; Sample SYSRCP.LIB for SYSRCP14

RCPID	EQU	'A'

;-----------------------------------------------------------------------------

;	W H E E L    E Q U A T E S

WCP	equ	FALSE	;Make CP   a Wheel-Oriented Command
WDIR	equ	FALSE	; "   DIR  "  "       "       "
WERA	equ	FALSE	; "   ERA  "  "       "       "
WLIST	equ	FALSE	; "   LIST "  "       "       "
WPEEK	equ	FALSE	; "   PEEK "  "       "       "
WPOKE	equ	FALSE	; "   POKE "  "       "       "
WPROT	equ	FALSE	; "   PROT "  "       "       "
WREG	equ	FALSE	; "   REG  "  "       "       "
WREN	equ	FALSE	; "   REN  "  "       "       "
WTYPE	equ	FALSE	; "   TYPE "  "       "       "

WHEEL	set	WCP OR WDIR OR WERA OR WLIST OR WPEEK OR WPOKE
WHEEL	set	WHEEL OR WPROT OR WREG OR WREN OR WTYPE

;-----------------------------------------------------------------------------

;	C O M M A N D    E Q U A T E S

CMDLEN		EQU	4		;length of command names

HELPCMD		MACRO			;help command name
		DB	'H   '
		ENDM


;------------------------------  CLEAR SCREEN

CLSON		EQU	TRUE

CLSCMD		MACRO			;name for clear screen command
		DB	'CLS '
		ENDM

CLSTCAP		EQU	TRUE		;use TCAP for clear-screen string

		;if CLSTCAP is false, the string below must be provided and
		;it must end with a character with the high bit set
CLSSTR		MACRO
		DB	'L'-'@'+80H	;control-L to clear screen
		ENDM

;------------------------------  COPY COMMAND

CPON		EQU	TRUE

CPCMD		MACRO			;name for copy command
		DB	'CP  '
		ENDM

CPBLOCKS	EQU	128		;USE 16K FOR BUFFERING OF COPY
COPYTOP		EQU	TRUE		;USE TOP OF TPA AS COPY BUFFER

;------------------------------  COPY COMMAND

DIRON		EQU	FALSE

DIRCMD		MACRO			;name for directory command
		DB	'DIR '
		ENDM


SYSFLG		EQU	'A'
SOFLG		EQU	'S'
SORTNT		EQU	TRUE 
WIDE		EQU	TRUE 
FENCE		EQU	'|'

;------------------------------  ECHO COMMAND

ECHOON		EQU	TRUE 

ECHOCMD		MACRO			;name for echo command
		DB	'ECHO'
		ENDM

ECHOLST		EQU	FALSE

;------------------------------  ERASE COMMAND

ERAON		EQU	TRUE 

ERACMD		MACRO			;name for erase command
		DB	'ERA '
		ENDM

;------------------------------  LIST AND TYPE COMMANDS

LTON		EQU	TRUE

TYPECMD		MACRO			;name for type command
		DB	'TYPE'
		ENDM

LISTON		EQU	TRUE 

LISTCMD		MACRO			;name for list command
		DB	'LIST'
		ENDM

PGDFLT		EQU	TRUE 
PGDFLG		EQU	'P'
NLINES		EQU	24

;------------------------------  NOTE COMMAND

NOTEON		EQU	FALSE 

NOTECMD		MACRO			;name for note command
		DB	'NOTE'
		ENDM

;------------------------------  PEEK COMMAND

PEEKON		EQU	TRUE 

PEEKCMD		MACRO			;name for peek command
		DB	'P   '
		ENDM

;------------------------------  POKE COMMAND

POKEON		EQU	TRUE 

POKECMD		MACRO			;name for poke command
		DB	'POKE'
		ENDM

;------------------------------  PROTECT COMMAND

PROTON		EQU	FALSE

PROTCMD		MACRO			;name for protect command
		DB	'PROT'
		ENDM

;------------------------------  REGISTER COMMAND

REGON		EQU	FALSE

REGCMD		MACRO			;name for register command
		DB	'REG '
		ENDM

;------------------------------  RENAME COMMAND

RENON		EQU	TRUE

RENCMD		MACRO			;name for rename command
		DB	'REN '
		ENDM

;------------------------------  DISK RESET COMMAND

RESON		EQU	TRUE		;reset disk system

RESETCMD	MACRO			;name for disk reset command
		DB	'R   '
		ENDM

RESMSG		EQU	FALSE		;print disk reset message

;------------------------------  ERROR TESTING COMMAND

TSTON		EQU	FALSE		;include program error testing

TESTCMD		MACRO			;name for error testing command
		DB	'TST '
		ENDM

TESTM80		EQU	TRUE
TESTF80		EQU	FALSE
TESTZAS		EQU	FALSE
TESTSLR		EQU	TRUE

;------------------------------  WHEEL COMMANDS

WHLON		EQU	FALSE

WHLCMD		MACRO			;name for wheel setting command
		DB	'WHL '
		ENDM

WHLQCMD		MACRO			;name for wheel query command
		DB	'WHLQ'
		ENDM

WHLQUIET	EQU	TRUE		;don't report wheel state with WHL cmd

WPASS		MACRO
		DB	'SYSTEM  '
		ENDM