.TITLE	DATA
	.SBTTL	COMMON DATA DEFINITIONS
;************************************************************************
;
;	FILE DESCRIPTORS
;
;************************************************************************
	FSRSZ$	4			;6 POSSIBLE FILES OPEN AT ONCE
OUTDST::NMBLK$				;GENERAL SPEC USED FOR SEVERAL FILES
;
OUTLST::FDBDF$				;FDB FOR OUTPUT LIST FILE
	FDAT$A	R.VAR,FD.CR,BUFSIZ	;VARIABLE RECORDS
	FDRC$A	FD.PLC,,		;LOCATE MODE
	FDOP$A	2,,OUTDST		;LUN = 2
LSTNAM::NMBLK$	,CMP,,SY,0		;DEFAULT SY0:*.CMP
;
PRIINP::FDBDF$				;FDB FOR PRIMARY INPUT FILE
	FDRC$A	FD.RWM			;BLOCK MODE
	FDBK$A	PRIBUF,512.,,1,PRIER	;BLOCK = 512. BYTES
	FDOP$A	3,,PRIDST		;LUN = 3
PRIBUF::.BLKW	256.			;INPUT BUFFER
PRIER::	.BLKW	2			;I/O STATUS BLOCK
CILNAM::NMBLK$	,CIL,,SY,0		;DEFAULT SY0:*.CIL
PRIDST::NMBLK$				;FINAL FILENAME BLOCK
;
SECINP::FDBDF$				;FDB FOR SECONDARY INPUT FILE
	FDRC$A	FD.RWM			;BLOCK MODE
	FDBK$A	SECBUF,512.,,1,SECER	;BLOCK = 512. BYTES
	FDOP$A	4,,SECDST		;LUN = 4
SECBUF::.BLKW	256.			;INPUT BUFFER
SECER::	.BLKW	2			;I/O STATUS BLOCK
SECDST::NMBLK$				;FINAL FILENAME BLOCK
	.PAGE
;**************************************************************************
;
;	COMMAND LINE MACROS
;
;**************************************************************************
CMDL::	GCMLB$	2,CCM,,1		;GET COMMAND LINE CONTROL BLOCK
;
	CSI$				;COMMAND INTERPRETTER CONTROL BLOCK
CSIBLK::.BLKB	C.SIZE
	.EVEN
;**************************************************************************
;
;	SWITCH TABLE
;
;**************************************************************************
FLAG::	.WORD	0			;SWITCH FLAG WORD
SWTAB::	CSI$SW	SPL,SPL,FLAG,SET,NEG	;SPOOL OUTPUT
	CSI$ND
;**************************************************************************
;
;	INPUT AND OUTPUT BUFFERS
;
;**************************************************************************
INP::	.BLKB	BUFSIZ			;INPUT BUFFER
	.EVEN
OUT::	.BLKW	BUFSIZ			;OUTPUT BUFFER FOR LISTING FILE
ICMD::	.REPT	ICNUM			;INDIRECT COMMAND BUFFER
	.BLKW	5			;5 WORDS PER COMMAND
					;1 = COMMAND CODE BITS
					;2 = 1ST WORD OF NAME
					;3 = 2ND WORD OF NAME
					;4 = 1ST WORD OF IDENT
					;5 = 2ND WORD OF IDENT
	.ENDR
ICMDE::					;END OF COMMAND BUFFER
;**************************************************************************
	.PAGE
;**************************************************************************
;
;	ARGUMENT BUFFER
;
;**************************************************************************
ARG::	.WORD	0			;ARGUMENT BLOCK
ARG2::	.WORD	0			;
ARG3::	.WORD	0			;
ARG4::	.WORD	0			;
ARG5::	.WORD	0			;
ARG6::	.WORD	0			;
ARG7::	.WORD	0			;
ARG8::	.WORD	0			;
ARG9::	.WORD	0			;
ARG10::	.WORD	0			;
ARG11::	.WORD	0			;
	.WORD	0,0,0,0,0		;
	.WORD	0,0,0,0,0		;
;**************************************************************************
;
;	MISC DATA DEFINITIONS
;
;**************************************************************************
BLOCK::	.WORD	0			;RELATIVE BLOCK # OF CORE IMAGE
NAME::	.WORD	0,0,0			;NAME OF FILE DESIRED (EDIT,DUMP)
LADR::	.WORD	0			;LOAD ADDRESS
SIZE::	.WORD	0			;SIZE
YEAR::	.WORD	0			;YEAR OFFSET BECAUSE OF LNK ERROR
CODE::	.WORD	0			;COMMAND CODE WORD STORAGE
	.PAGE
;**************************************************************************
;
;	THE INITIAL JUMP TO GET US STARTED
;
;**************************************************************************
BEGIN::	JMP	START			;LET'S GO!!!
RESTAR::CALL	CLOSE			;CLOSE ANY OPEN FILES
	JMP	RESTRT			;LET'S TRY AGAIN!!
COMP::	CALL	INDCMD			;PROCESS INDIRECT COMMANDS
	CALL	DIRECT			;BANNER IS SAME AS LI OR DI
	JMP	CMPR			;PROCESS DUMP COMMAND
	.END	BEGIN