.TITLE	CCSDAT - CCS DATA AREAS
	.SBTTL	CCSDAT - TITLE PAGE
	.IDENT	/V01.00/
	.ENABL	LC
;
; Define data areas for CCS task.
;
; Version:	V01.00
;
; Author:	R.W. Stamerjohn
;
; Modification history:
;
;	V01.00	RWS	14-Oct-82	Initial version

	.SBTTL	CCSDAT - DECLARATIONS
	.DSABL	GBL
	.DSABL	CRF
;
; Macro library calls:
;
;	Executive directives.
;
	.MCALL	GMCR$			;Get MCR command line
;
;	FCS macros.
;
	.MCALL	FDBDF$			;Define FDB
	.MCALL	FDRC$A			;Define record attributes
	.MCALL	FDOP$A			;Define open attributes
	.MCALL	NMBLK$			;Define FNB
	.MCALL	FSRSZ$			;Define FCS data area
;
; Global declarations:
;
;	All declarations made in this module are global.
;
; Global references:
;
;	none.
;
	.ENABL	CRF

	.SBTTL	CCSDAT - COMMON DATA
;
; Define LUN numbers.
;
ILUN	== 1			; Input file lun
TLUN	== 2			; Terminal lun
;
; Define event flags.
;
SEFN	== 1			; Spawn wait event flag
TEFN	== 2			; Terminal I/O event flag
;
; Define buffer sizes.
;
MSIZ	== 256.			; MCR command buffer
OSIZ	== 256.			; Output command buffer
ISIZ	== 256.			; Input  command buffer
PSIZ	== 256.			; Parameter string buffer
;
; Define CCSFLG bit definitions.
;
CS.WAI	== 1			; Current command is wait task (-)
CS.MOR	== 2			; Current command is execute/more (+)
CS.LST	== 4			; Current command is execute/last (*)
CS.DBG	== 10			; Current command has debug (%D)
CS.PRT	== 20			; Current command has print (%P)
CS.QUT	== 40			; Current command has quit  (%Q)
CS.NUL	== 100			; Current command has null  (%N)
CS.XIT	== 200			; Current command has exit  (%$)
CS.NON	== 400			; Current command missing required parameter
;
; Command action flags.
;
CCSFLG::.WORD	0		; Command action flags
;
; Command line maximum.
;
CMDMAX::.WORD	0		;Set according to system (79/255)
;
; Task exit status
;
XITSTS::.WORD	0		; Exit status
;
; MCR Command buffer, length.
;
GMCR::	GMCR$			; Get MCR command
;
; MCR output string.
;
MBUF::	.BLKB	MSIZ		; MCR command buffer
OBUF::	.BLKB	OSIZ		; Output command buffer
IBUF::	.BLKB	ISIZ		; Input  command buffer
PBUF::	.BLKB	PSIZ		; Parameter buffer
;
; Keyword pointer, length.
;
KEYL::	.WORD	0		; Length of keyword
KEYB::	.WORD	0		; Keyword buffer address
;
; Command pointer, length
;
OBUFL::	.WORD	0		; Length of command in OBUF
OBUFB::	.WORD	0		; Current pointer into OBUF
;
; Parsing variables.
;
PBUFB::	.WORD	0		; Points to next free spot in PBUF
PBUFL::	.WORD	0		; Length of space left in PBUF
PINDX::	.WORD	0		; Index to parameter ?
PNTR0::	.WORD	0,0		; Parameter 0 pointer
PNTR1::	.WORD	0,0		; Parameter 1 pointer
PNTR2::	.WORD	0,0		; Parameter 2 pointer
PNTR3::	.WORD	0,0		; Parameter 3 pointer
PNTR4::	.WORD	0,0		; Parameter 4 pointer
PNTR5::	.WORD	0,0		; Parameter 5 pointer
PNTR6::	.WORD	0,0		; Parameter 6 pointer
PNTR7::	.WORD	0,0		; Parameter 7 pointer
PNTR8::	.WORD	0,0		; Parameter 8 pointer
PNTR9::	.WORD	0,0		; Parameter 9 pointer
PNTRA::	.WORD	0,0		; Parameter A pointer
PNTRB::	.WORD	0,0		; Parameter B pointer
PNTRC::	.WORD	0,0		; Parameter C pointer
PMIN::	.WORD	0		; Min # of parameters allowed
PMAX::	.WORD	0		; Max # of parameters to prompt for
;
; Define the input file FDB.
;
INPFDB::FDBDF$				;Declare FDB
	FDRC$A				;Define record parameters
	FDOP$A	ILUN			;Define open parameters

TSKFNB::NMBLK$	,TSK,,,			;Default .TSK extension
;
; Define the FCS data area.
;
	FSRSZ$	1			;Allow one file

	.END