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 / CPM / TURBODSG / PDIR.MAC < prev    next >
Text File  |  2000-06-30  |  616b  |  61 lines
  1. ; primitive dir
  2. ;
  3.     cseg
  4. ;
  5. .z80
  6. .request syslib
  7. ;
  8. start:    ld    sp,stack
  9.     call    crlf##
  10.     ld    c,32
  11.     ld    e,0ffh
  12.     call    bdos##
  13.     ld    (curusr),a
  14.     ld    de,fcb
  15.     ld    c,17
  16.     call    bdos##
  17.     call    eval
  18. loop:    ld    de,fcb
  19.     ld    c,18
  20.     call    bdos##
  21.     cp    0ffh
  22.     jr    z,done
  23.     call    eval
  24.     jr    loop
  25. ;
  26. eval:    ld    bc,20h
  27.     ld    hl,80h
  28.     or    a
  29.     jr    z,nom
  30. evl:    add    hl,bc
  31.     dec    a
  32.     jr    nz,evl
  33. nom:    ld    a,(curusr)
  34.     cp    (hl)
  35.     ret    nz
  36. ;
  37. dsply:    inc    hl
  38.     ex    de,hl
  39.     call    pfn1##
  40.     call    print##
  41.     db    '   ',0
  42.     ld    a,(col)
  43.     dec    a
  44.     ld    (col),a
  45.     ret    nz
  46.     ld    a,5
  47.     ld    (col),a
  48.     jp    crlf##
  49. ;
  50. done:    call    crlf##
  51.     rst    0
  52. ;
  53.     dseg
  54. ;
  55. curusr:    db    0
  56. col:    db    5
  57. fcb:    db    0,'???????????',0,0,0,0
  58.     ds    80
  59. stack    equ    $
  60.     end
  61.