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 / CPM3 / CCP105P.ARK / DIRNAME.MAC < prev    next >
Text File  |  1986-10-17  |  896b  |  64 lines
  1.     .z80
  2.  
  3. ;Utility to enable or disable directory name display by the CCP
  4. ;
  5. ;Copyright (c) 1984 - Jim Lopushinsky
  6. ;
  7.  
  8. tbuff    equ    80h
  9. fcb    equ    5ch
  10. bdos    equ    5
  11.  
  12. dirname:
  13.     ld    de,scbpb
  14.     ld    c,49
  15.     call    bdos
  16.     ld    (scbadr),hl
  17.     ld    a,(fcb+1)
  18.     cp    'O'
  19.     jp    z,onoff
  20. help:
  21.     call    ilprt
  22.     db    'Use: DIRNAME OFF to disable directory name display',13,10
  23.     db    '     DIRNAME ON  to enable directory name display',13,10,0
  24.     rst    0
  25. onoff:
  26.     ld    hl,(scbadr)
  27.     ld    l,0a4h
  28.     ld    a,(fcb+2)
  29.     cp    'N'
  30.     jp    z,diron
  31.     cp    'F'
  32.     jp    nz,help
  33.     ld    a,(hl)
  34.     and    7fh
  35.     ld    (hl),a
  36.     rst    0
  37. diron:
  38.     ld    a,(hl)
  39.     or    80h
  40.     ld    (hl),a
  41.     rst    0
  42.  
  43. ilprt:
  44.     pop    hl
  45.     ld    a,(hl)
  46.     inc    hl
  47.     push    hl
  48.     or    a
  49.     ret    z
  50.     ld    e,a
  51.     ld    c,2
  52.     call    bdos
  53.     jp    ilprt
  54.  
  55.  
  56.     dseg
  57.  
  58.     db    'DIRNAME Copyright (c) 1984 - Jim Lopushinsky'
  59. scbpb:    db    3ah,0
  60. scbadr:    ds    2
  61. rsx66:    db    66
  62.  
  63.     end    dirname
  64.