home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / intel8051 / i51chkl.asm < prev    next >
Assembly Source File  |  2020-01-01  |  273b  |  21 lines
  1. ; calculate kermit checksum, dptr has string start
  2. chkl:    call    chksum
  3.     call    blkchk
  4.     ret
  5. ;    
  6. ; compute arithmetic sum
  7. chksum:    mov    r2,#0
  8.     mov    r3,#0ffh
  9.     jnb    parity,cs1
  10.     mov    r3,#07fh
  11. cs1:    movx    a,@dptr
  12.     jz    cs2
  13.     anl    a,r3
  14.     add    a,r2
  15.     mov    r2,a
  16.     inc    dptr
  17.     sjmp    cs1
  18. cs2:    mov    a,r2
  19.     ret
  20.  
  21.