home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / jsage / znode3 / uploads / zslsrc36.lbr / INCRLW.Z80 < prev    next >
Encoding:
Text File  |  1992-03-08  |  640 b   |  29 lines
  1. ; Library:    ZSLIB
  2. ; Version:    3.6
  3. ; Module:    INCRLW
  4. ; Version:    1.0
  5. ; Author:    Gene Pizzetta
  6. ; Date:        March 8, 1992
  7. ;
  8. ; INCRLW -- increments 4-byte (32-bit) binary number.
  9. ;
  10. ; Entry: HL = address of 32-bit binary number (4-bytes, low-byte first)
  11. ; Exit:     Zero flag reset (NZ) if okay
  12. ;     Zero flag set (Z) if overflow
  13. ; Uses:     Flags
  14. ;
  15.     PUBLIC    INCRLW
  16. ;
  17. INCRLW:    push    hl        ; save registers
  18.     push    bc
  19.     ld    b,4        ; 4 bytes
  20. LoopLW:    inc    (hl)        ; increment byte
  21.     jr    nz,ExitLW    ; (quit if it hasn't reach zero)
  22.     inc    hl        ; point to next byte
  23.     djnz    LoopLW        ; ..and do it again
  24. ExitLW:    pop    bc        ; restore registers
  25.     pop    hl
  26.     ret
  27. ;
  28.     end
  29.