home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / intel8051 / i51sakn.asm < prev    next >
Assembly Source File  |  2020-01-01  |  394b  |  21 lines
  1. ; routine to send an ACK and increment the packet number
  2. SAKN:    mov    dptr,#GDA
  3.     clr    a
  4.     movx    @dptr,a        ; d$ = ""
  5.     mov    TYP,#'Y'
  6. ; entry point to send a packet
  7. send:    mov    dptr,#GDA
  8.     call    strlen
  9.     mov    Len,a        ; L = len(D$)
  10.     call    spack        ; send packet
  11.     mov    a,N
  12.     inc    a
  13.     anl    a,#3fh        ; 63
  14.     mov    N,a        ; n = (n + 1) and 63
  15.     anl    a,#3
  16.     jnz    L8050
  17.     cpl    runlite
  18. L8050:    ret
  19. ;
  20. 
  21.