;------------------------------------------------------------------------------
;
;................................
				;
FALSE	EQU	0		; False: the negation of truth
				;
TRUE	EQU	0FFFFH		; Truth: ask your local philosopher
;...............................;


;==============================================================================
;
;		<Customization starts here>
;
; You MUST fill in the next 2 values.  See the DOC file if you need further
; information on any of these.

				; - Assember preference equate -
				;
M80	EQU	FALSE		; TRUE if using M80 or SLR assemblers
				; FALSE if using "Z1" (supplied)

				; - CCP equate -
				;
ZCPR3	EQU	FALSE		; If TRUE, produces Z3-compatible version,
				; Linkage with VLIB/Z3LIB/SYSLIB required.
				; FALSE will produce a regular CP/M version
				; With no linking necessary.

;..............................................................................
;
;		- Terminal support equates -
;
; 1. Minimal Support- While QL will run with no terminal support at all,
;   it is strongly recommended that you at least fill in the "clearscreen"
;   (surely your terminal does THAT).
;
; 2. ZCPR3- If you answered TRUE to "ZCPR3" above  you may skip this section.
;    The program will use your TCAP 'stndout' sequence for anything not
;    defined below.  If you DO define either of the sequences here, however,
;    it will override any TCAP defined sequence.  Thus, if you define here
;    only the form of hilighting NOT already defined in your TCAP (or define
;    both), the program will be able to take advantage of both video modes.
;
; 3. The sequences may have any number of bytes, separated by commas.
;    No terminating zeroes are necessary.  Edit only the lines starting
;    with "DB", as indicated.  If your terminal does not support a feature,
;    a single zero following the "DB" will deactivate it.
;
;
CLRSCR	 MACRO
	DB	0		; <=== Put your "clear-screen" sequence here
	 ENDM

DIMON	 MACRO
	DB	0		; <=== Sequence for "dim video"
	 ENDM

DIMOFF	 MACRO
	DB	0		; <=== Sequence for "normal/bright" video
	 ENDM

REVON	 MACRO
	DB	0		; <=== Sequence to initiate "reverse" video
	 ENDM

REVOFF	 MACRO
	DB	0		; <=== Sequence to cancel "reverse" video
	 ENDM

;..............................................................................
;
;			- RCP/M Equate -
;
; SYSOPS: Simply set your wheel byte here (eg. to 003EH) and QL will
; instantly become a very viable online utility. This gives users a new
; flexibility to examine HEX files online; to go backwords when one types
; 'too far', and to save time by using the FIND command to skip right
; to a section of interest in a textfile, not to mention eliminating
; annoying typographical errors of filenames.
;
; QL will sense the presence of BYE, and not send video specific sequences
; to remote terminals.	The wheel byte is used to provide security by not
; allowing hex displays of files with .COM extension or of the system memory.
; Files with the SYS attribute set are ignored as well. The WHEEL and BYE
; checks are independent- SYSOPS may remotely examine system memory, etc.
;
; If you have NO plans of EVER running QL on an RCP/M, leave this EQUATE set
; to 0005H, which guarantees full operation on any CP/M system. Else set it
; to your wheel byte address.
;
; ZCPR3 users may ignore this ignore this EQU, it will take care of itself.
;
;
WHEEL	EQU	0005H		; <== SET to your wheel byte address!

;==============================================================================
;
; *** Optional configuration. It is not necessary to change anything below,
;     you may wish to customize QL to your various preferences.

;.....
;
; - How control characters are displayed:
;
CTRLDIMVID EQU	FALSE		; TRUE	= display with DIM video
CTRLWORDSTAR EQU TRUE		; TRUE	= display control chars as  ^ <char>
CTRLMARKER EQU	'@'		; Char to use if both options above are FALSE
				; 0 = do not display anything.
;.....
;
; - How "found" strings are marked if REVON / REVOFF was not defined above
;   (also used during remote operation). May be multiple characters.
;
MRKCHR	 MACRO
	DB	'\',0		; Marks found strings like \this\
	 ENDM			; MRKCHR

;.....
;
; - This value controls amount of time user has to input a number before the
;   program considers him 'done' (ie no carriage return is required).
;   QL is 'intelligent' about this and will respond instantly when either
;   a carriage return is typed, or the program determines enough digits
;   have already been entered.	Increase this number if you have a fast
;   computer and/or are a slow typist, and vice-versa.	Alternatively enter
;   zero and QL will wait forever until you type a CR yourself.
;
DELAY	EQU	5000		; Higher number = more time.

;.....
;
; - This character will be put in the last column position of your terminal
;   if the line is longer than your terminal width. Wordstar users may be
;   feel at home using a "+" character here; some previous QL versions also
;   used a ">" here. (Note- truncation may be optionally toggled off at run
;   time, in which case the long lines will be sent thru and probably wrap
;   on your terminal, though this mode usually messes up proper 'pagination').
;
;
TRUNKCHAR EQU	'+'		; Character to indicate truncation of line

;.....
;
; - If you are running CB Falconer's DOS+, you may answer TRUE here to take
;   advantage of system calls which will reduce program size.
;
DOSPLUS	EQU	FALSE		; TRUE if using CB Falconer's excellent DOS+
				; FALSE for normal CP/M.
;.....
;
; - QL will normally expand tab characters to the appropriate number of
;   spaces (columns which are multiples of 8, plus 1). This is the
;   recommended mode of operation. You may answer FALSE here if you know
;   your terminal or hardware can do that and are interested in the [nearly
;   insignificant] time savings, or have some capability/need for non-standard
;   tab stop positions.
;
EXPANDTABS EQU	TRUE		; TRUE to have QL expand tab characters
				; FALSE to send them right through

REVSPACE EQU	0		; If reverse video on your terminal uses
				; "guard" characters, set this to 1.

LINEOVERLAP EQU	1		; Number of lines to show from preceding page.
				; This can help orient you on a new page.

FINDFRTOP EQU	FALSE		; TRUE means finds always start at top of file.
				; FALSE means finds start on next page.

UCHEX	EQU	TRUE		; TRUE	for upper case a-f in hex dump.
				; FALSE for lower case a-f (if you can't
				; - distinguish B from 8).

LOWERCASE EQU	FALSE		; True for lowercase filename display

USEBIOSCONOUT EQU TRUE		; TRUE to use faster BIOS console output rtn.
				; FALSE to go thru bdos, which is slower.

HEXSIGNAL EQU	'$'		; Character to signal entry of a hex find $.

ALWAYSBOOT EQU	FALSE		; TRUE if you desire QL to always warm start
				; - when finished.  FALSE to return to CCP
				; - unless it was overwritten.

VER1	EQU	FALSE		; Support version 1 uncrunching (obsolete)

;  < end of user customization >
;
;==============================================================================

; And now for the rest of it....
;
	 IF	M80		;;; M80-style syntax
	INCLUDE	QL.001		; Part 1 - file and lbr access routines
	INCLUDE QL.002		; Part 2 - typer and low-level routines
	INCLUDE	QFC.LIB		; Choose-by-number interface
	INCLUDE	UNC.LIB		; Uncrunching module
	INCLUDE	QL.DTA		; Data segment

	 ELSE			;;; Nonstandard Z1 syntax
*INCLUDE	QL.001
*INCLUDE	QL.002
*INCLUDE	QFC.LIB
*INCLUDE	UNC.LIB
*INCLUDE	QL.DTA
	 ENDIF

	END	QL		; That's all, folks...