; DCFG.MAC
;
; ZCNFG configuration module for D.COM.  The assembled version of this
; file must be named Dxx.CFG, where xx is the version number of D.COM,
; to be automatically recognized by ZCNFG.
;
; Version 1.0 -- September 6, 1990 -- Gene Pizzetta
;	For D 1.7.
;
; Patch locations . . .
;
RevVid	equ	015h		; reverse video flag
DskLbl	equ	016h		; CP/M Plus disk label flag
ZReg	equ	017h		; ZCPR3 register to be used
;
; ZCNFG function definitions . . .
;
Switch	equ	0		; toggle bit n in a byte (n is specified)
Text	equ	1		; edit text with UC conversion
DUSpec	equ	2		; replace a ZCPR style DU spec (NOT DIR:!)
HexRad	equ	3		; edit byte/word using HEX radix
DecRad	equ	4		; edit byte/word using DECIMAL radix
TextLC	equ	5		; edit text, both UC and LC
FileSp	equ	6		; edit a Z3 filespec or filespec fragment
Togl3	equ	7		; toggle one of three options: 001B, 010B, 100B
ToglTF	equ	8		; toggle a byte between 0ffh and 0
;
; ASCII characters . . .
;
TAB	equ	9		; tab
LF	equ	10		; linefeed
CR	equ	13		; carriage return
;
	MACLIB	Z80
;
; Code . . .
;
	rst	0		; for safety, so .CFG file won't execute
;
	dw	MenuA		; for relocation of addresses, this
				; ..points to the NEXT location.
;
; Menu list section . . .
;
MenuA:	dw	MenuA, MenuA, ScrnA, CaseA, HelpA	; single menu
;
; Case table section . . .
;
CaseA:	db	(CaseAX-CaseA1)/(CaseA2-CaseA1)	; number of cases
	db	CaseA2-CaseA1	; length of each record
;
CaseA1:	db	'1'		; menu selector
	dw	ToglTF		; ZCNFG function number
	dw	RevVid		; patch location in file
	db	1		; number of bytes to change
	dw	ScrnA1		; screen location
	dw	YesNo		; string address
;
CaseA2:	db	'2'		; menu selector
	dw	ToglTF		; ZCNFG function number
	dw	DskLbl		; patch location in file
	db	1		; number of bytes to change
	dw	ScrnA2		; screen location
	dw	YesNo		; string address
;
CaseA3:	db	'3'		; menu selector
	dw	DecRad		; ZCNFG function number
	dw	ZReg		; patch location in file
	db	1		; number bytes to change
	dw	ScrnA3		; screen location
	dw	ZRRnge		; string address
;
CaseAX:				; for calculation of list length
;
; Case table support . . .
;
ZRRnge:	dw	0,30		; minimum/maximum for ZReg
YesNo:	db	'YES',0		; displayed if value is FFh (ToglTF)
	db	' NO',0		; displayed if value is 00h (ToglTF)
;
; Screen image section . . .
;
ScrnA:	db	cr,lf,lf,tab,tab,tab,'   D.COM Installation Menu'
	db	cr,lf,lf,lf
;
	db	tab,tab,'(1) ',1,'Reverse video highlighting? . . . . . ',2
ScrnA1:	db	'   '		; current value
	db	cr,lf,lf
;
	db	tab,tab,'(2) ',1,'CP/M Plus disk labels?  . . . . . . . ',2
ScrnA2:	db	'   '		; current value
	db	cr,lf,lf
;
	db	tab,tab,'(3) ',1,'ZCPR register to use  . . . . . . . . ',2
ScrnA3:	db	'  '		; current value
;
	db	lf,lf,lf,lf,lf,lf,	; fill rest of screen
;
	db	0		; terminator
;
; Help screen section . . .
;
HelpA:
	db	CR,LF,LF
	db	1,'Option (1)',2,' -- Normally D prints two horizontal lines on the screen in'
	db	CR,LF
	db	'alternate video.  For terminals using dim video, this display looks very'
	db	CR,LF
	db	'neat, but it looks very bad on terminals using reverse video.  Selecting'
	db	CR,LF
	db	'"YES" here will eliminate use of alternate video for these lines.'
	db	CR,LF,LF
;
	db	1,'Option (2)',2,' -- For those running Z3PLUS on a CP/M Plus computer, D allows'
	db	CR,LF
	db	'display of the disk label, instead of the ZCPR3 named directory, in the'
	db	CR,LF
	db	'summary line.  The disk label could be more useful for floppy based systems.'
	db	CR,LF
	db	'"YES" will cause D to display disk labels; "NO" will cause display of'
	db	CR,LF
	db	'named directories.'
	db	CR,LF,LF

	db	1,'Option (3)',2,' -- The "M" command line option will cause the number of'
	db	CR,LF
	db	'matching files to be stored in two ZCPR3 message registers.  Any register'
	db	CR,LF
	db	'can be selected from 0 to 30.  D will then use the chosen register and the'
	db	CR,LF
	db	'next register immediate following your choice.  It is highly recommended that'
	db	CR,LF
	db	'you choose one of the user registers beginning with register 16.  Since 16'
	db	CR,LF
	db	'and 17 are used by ZDE, the distributed version of D uses 18 and 19.'
	db	CR,LF
;
	db	0		; Terminator
;
	end