.z80

;Utility to enable or disable directory name display by the CCP
;
;Copyright (c) 1984 - Jim Lopushinsky
;

tbuff	equ	80h
fcb	equ	5ch
bdos	equ	5

dirname:
	ld	de,scbpb
	ld	c,49
	call	bdos
	ld	(scbadr),hl
	ld	a,(fcb+1)
	cp	'O'
	jp	z,onoff
help:
	call	ilprt
	db	'Use: DIRNAME OFF to disable directory name display',13,10
	db	'     DIRNAME ON  to enable directory name display',13,10,0
	rst	0
onoff:
	ld	hl,(scbadr)
	ld	l,0a4h
	ld	a,(fcb+2)
	cp	'N'
	jp	z,diron
	cp	'F'
	jp	nz,help
	ld	a,(hl)
	and	7fh
	ld	(hl),a
	rst	0
diron:
	ld	a,(hl)
	or	80h
	ld	(hl),a
	rst	0

ilprt:
	pop	hl
	ld	a,(hl)
	inc	hl
	push	hl
	or	a
	ret	z
	ld	e,a
	ld	c,2
	call	bdos
	jp	ilprt


	dseg

	db	'DIRNAME Copyright (c) 1984 - Jim Lopushinsky'
scbpb:	db	3ah,0
scbadr:	ds	2
rsx66:	db	66

	end	dirname