home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / ENTERPRS / CPM / UTILS / A / ARC20.ARC / ARCMACS.ARC / DECLONG.MAC < prev    next >
Text File  |  1989-10-17  |  228b  |  18 lines
  1. ; 32-Bit Decrement f}r Turbo
  2. ; 151089 Tilmann Reh
  3.     .z80
  4.  
  5.     extrn    lw
  6.  
  7.     ld    hl,(lw)        ; Zeiger auf Langwort
  8.     ld    b,3
  9. loop:    dec    (hl)        ; LSB, 3SB, 2SB
  10.     ld    a,(hl)
  11.     inc    a
  12.     ret    nz
  13.     inc    hl
  14.     djnz    loop
  15.     dec    (hl)        ; MSB
  16.  
  17.     end
  18.