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 / SKIPEOF.MAC < prev    next >
Text File  |  1989-11-07  |  447b  |  30 lines
  1. ; EOF for FSKIP for Turbo-ARC, TR 071189
  2.     .z80
  3.     extrn    f
  4.  
  5.     ld    de,(f)
  6.     ld    hl,104h
  7.     add    hl,de
  8.     ld    b,h
  9.     ld    c,l        ; BC = ^ACTPOS
  10.     ld    hl,100h
  11.     add    hl,de        ; HL = ^FSIZE
  12.     ld    a,(bc)
  13.     sub    (hl)
  14.     inc    bc
  15.     inc    hl
  16.     ld    a,(bc)
  17.     sbc    a,(hl)
  18.     inc    bc
  19.     inc    hl
  20.     ld    a,(bc)
  21.     sbc    a,(hl)        ; CY=1 wenn ACTPOS < FSIZE
  22.     ccf            ; CY=1 wenn ACTPOS >= FSIZE
  23.     ld    a,0
  24.     rla            ; A = (ACTPOS>=FSIZE)
  25.     ld    hl,108h
  26.     add    hl,de
  27.     ld    (hl),a        ; FEOF speichern
  28.  
  29.     end
  30.