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 / PSTRING.MAC < prev    next >
Text File  |  1989-11-22  |  160b  |  16 lines
  1. ; PSTRING for Turbo-ARC, TR 011189
  2.     .z80
  3.     extrn    st
  4.  
  5.     ld    hl,st
  6.     ld    b,-1
  7. loop:    inc    hl
  8.     inc    b
  9.     ld    a,(hl)
  10.     or    a
  11.     jr    nz,loop
  12.     ld    a,b
  13.     ld    (st),a
  14.  
  15.     end
  16.