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 / CCP105P.ARC / DIRRSX.MAC < prev    next >
Text File  |  1986-10-17  |  640b  |  43 lines
  1.     .z80
  2.  
  3. ;DIR RSX used in conjuction with SETDIR.  The Directory names
  4. ;are loaded into this RSX.  The only function that this RSX performs
  5. ;is to return the address of the Directory table for the CCP
  6. ;
  7. ;Copyright (c) 1984 - Jim Lopushinsky
  8. ;
  9.  
  10. ;RSX prefex follows:
  11. ;
  12.     dw    0,0,0
  13.     jp    ftest
  14. next:
  15.     jp    0
  16.     dw    0,0
  17.     db    'DIR     '
  18.     db    0,0,0
  19.  
  20. init:    db    0
  21.  
  22. ftest:
  23.     ld    a,(init)
  24.     or    a
  25.     jp    z,next
  26.     ld    a,c
  27.     cp    60
  28.     jp    nz,next
  29.     ld    a,(de)
  30.     cp    66
  31.     jp    nz,next
  32.     xor    a
  33.     ld    hl,dirtbl
  34.     ret
  35.  
  36. dirtbl:
  37.     db    0
  38.     ds    256        ;to give 2 pages for the RSX and lots
  39.                 ;of room for directory names
  40.     db    0
  41.  
  42.     end
  43.