;
; CSI INTERFACE DATA BASE FOR CAD PROGRAM
;
; ASSEMBLY COMMAND LINE:
; MAC CSICAD=[200,201]CSINTFDEF/ML,CSINTR,[X,Y]CSICAD
;
NSTLVL=4			;MAXIMUM IND COMMAND FILE NESTING
CMDLUN=5			;GCML COMMAND LUN NUMBER
TILUN=4				;LUN ASSIGNED TO TI:
QIOEFG=1			;ERROR MESSAGE QIO EVENT FLAG
ARMXBP=974.			;MAXIMUM USER AVAILABLE BITPLANE ADDRESS + 1
LABLEN=10.			;ARRAY LABEL LENGTH (+1 IF ODD)
CNDLEN=10.			;BREAKPOINT CONDITION STRING LENGTH
	.PSECT	$VARS
	GCMLDF	CAD,$VARS
	TMSGDF	CAD,$VARS
	FTYPDF	<$$$,$$$>,$VARS
;
; SWITCH TABLES START HERE
;
; SWITCH TABLE #1 FOR THE DU COMMAND.
;
	SWTSRT	$VARS
	SWTVAL	MC,<<HEX,2,<-1,0>>,<DECIMAL,2,<0>>>,$VARS
	SWTVAL	PE,<<HEX,2,<-1,0>>,<DECIMAL,2,<0>>>,$VARS
	SWTVAL	IO,<<HEX,2,<-1,0>>,<DECIMAL,2,<0>>>,$VARS
	SWTVAL	AM,<<ASCII,LABLEN,1>>,$VARS
	SWTVAL	BP,<<HEX,2,<ARMXBP>>>,$VARS
	SWTVAL	RG,<<ASCII,4,11.>>,$VARS
	SWTVAL	RB,<<ASCII,2,1>,<DECIMAL,2,<0,7>>>,$VARS
	SWTVAL	RO,<<DECIMAL,2,<0,127.>>>,$VARS
	SWTVAL	CO,<<DECIMAL,2,<0,127.>>>,$VARS
	SWTVAL	R,<<DECIMAL,2,<32.>>>,$VARS
	SWTVAL	I,<<DECIMAL,2,<16.>>>,$VARS
	SWTVAL	C,<<DECIMAL,2,<16.>>>,$VARS
	SWTVAL	H,<<DECIMAL,2,<4.>>>,$VARS
	SWTVAL	O,<<DECIMAL,2,<6.>>>,$VARS
	SWTVAL	B,<<ASCII,2,1>,<DECIMAL,2,<16.>>>,$VARS
	SWTEND	$VARS
;
;SWITCH TABLE #2 FOR THE CO,HA,RE,SS,ST AND TR COMMANDS.
;
	SWTSRT	$VARS
	SWTNEG	<ALL>,$VARS
	SWTVAL	MC,<<HEX,2,<-1>>,<DECIMAL,2,<0>>>,$VARS
	SWTVAL	PE,<<HEX,2,<-1>>,<DECIMAL,2,<0>>>,$VARS
	SWTVAL	IO,<<HEX,2,<-1>>,<DECIMAL,2,<0>>>,$VARS
	SWTEND	$VARS
;
; SWITCH TABLE #3 FOR THE AL COMMAND.
;
	SWTSRT	$VARS
	SWTVAL	AD,<<HEX,2,<ARMXBP>>,<DECIMAL,2,<0.>>>,$VARS
	SWTVAL	RO,<<DECIMAL,2,<0,127.>>>,$VARS
	SWTVAL	CO,<<DECIMAL,2,<0,127.>>>,$VARS
	SWTVAL	R,<<DECIMAL,2,<32.>>>,$VARS
	SWTVAL	I,<<DECIMAL,2,<16.>>>,$VARS
	SWTVAL	C,<<DECIMAL,2,<16.>>>,$VARS
	SWTVAL	H,<<DECIMAL,2,<4.>>>,$VARS
	SWTVAL	O,<<DECIMAL,2,<6.>>>,$VARS
	SWTVAL	B,<<ASCII,2,1>,<DECIMAL,2,<16.>>>,$VARS
	SWTNEG	<LI,RD,WR,DE>,$VARS
	SWTEND	$VARS
;
; SWITCH TABLE #4 FOR THE LD COMMAND.
;
	SWTSRT	$VARS
	SWTVAL	MC,<<HEX,2,<-1>>,<DECIMAL,2,<0>>>,$VARS
	SWTVAL	PE,<<HEX,2,<-1>>,<DECIMAL,2,<0>>>,$VARS
	SWTVAL	GO,<<HEX,2,<-1>>,<DECIMAL,2,<0>>>,$VARS
	SWTEND	$VARS
;
; SWITCH TABLE #5 FOR THE DI COMMAND.
;
	SWTSRT	$VARS
	SWTNEG	<ST,PP>,$VARS
	SWTVAL	CS,<<DECIMAL,2,<1>>>,$VARS
	SWTVAL	MC,<<HEX,2,<-1>>,<DECIMAL,2,<0,0>>,<ASCII,CNDLEN,1>>,$VARS
	SWTVAL	PE,<<HEX,2,<-1>>,<DECIMAL,2,<0,0>>,<ASCII,CNDLEN,1>>,$VARS
	SWTEND	$VARS
;
; SWITCH TABLE #6 FOR THE BR AND SR COMMANDS.
;
	SWTSRT	$VARS
	SWTNEG	<LI>,$VARS
	SWTVAL	SE,<<DECIMAL,2,<0>>>,$VARS
	SWTVAL	RE,<<DECIMAL,2,<0>>>,$VARS
	SWTVAL	MC,<<HEX,2,<-1>>,<DECIMAL,2,<0,0>>,<ASCII,CNDLEN,1>>,$VARS
	SWTVAL	PE,<<HEX,2,<-1>>,<DECIMAL,2,<0,0>>,<ASCII,CNDLEN,1>>,$VARS
	SWTVAL	IO,<<HEX,2,<-1>>,<DECIMAL,2,<0,0>>,<ASCII,CNDLEN,1>>,$VARS
	SWTEND	$VARS
;
; SWITCH TABLE #7 FOR THE SA COMMAND.
;
	SWTSRT	$VARS
	SWTVAL	MC,<<HEX,2,<-1,0>>,<DECIMAL,2,<0>>>,$VARS
	SWTVAL	PE,<<HEX,2,<-1,0>>,<DECIMAL,2,<0>>>,$VARS
	SWTVAL	IO,<<HEX,2,<-1,0>>,<DECIMAL,2,<0>>>,$VARS
	SWTVAL	AM,<<ASCII,LABLEN,1>>,$VARS
	SWTVAL	BP,<<HEX,2,<ARMXBP>>>,$VARS
	SWTVAL	RG,<<ASCII,2,1>>,$VARS
	SWTVAL	RB,<<ASCII,2,1>>,$VARS
	SWTVAL	CO,<<DECIMAL,2,<0,127.>>>,$VARS
	SWTVAL	RO,<<DECIMAL,2,<0,127.>>>,$VARS
	SWTVAL	E,<<HEX,2,<-1>>>,$VARS
	SWTNEG	<RD,WR>,$VARS
	SWTEND	$VARS
;
; SWITCH TABLE #8 FOR WA COMMAND.
;
	SWTSRT	$VARS
	SWTNEG	<ON,OFF>,$VARS
	SWTEND	$VARS
;
; SWITCH TABLE #9 FOR THE IC COMMAND.
;
	SWTSRT	$VARS
	SWTVAL	MC,<<HEX,2,<-1>>,<DECIMAL,2,<0>>>,$VARS
	SWTVAL	PE,<<HEX,2,<-1>>,<DECIMAL,2,<0>>>,$VARS
	SWTVAL	IO,<<HEX,2,<-1>>,<DECIMAL,2,<0>>>,$VARS
	SWTVAL	AM,<<ASCII,LABLEN,1>>,$VARS
	SWTVAL	BP,<<HEX,2,<ARMXBP>>>,$VARS
	SWTVAL	RG,<<ASCII,4,11.>>,$VARS
	SWTVAL	RB,<<ASCII,2,1>,<DECIMAL,2,<0>>>,$VARS
	SWTVAL	RO,<<DECIMAL,2,<0>>>,$VARS
	SWTVAL	CO,<<DECIMAL,2,<0>>>,$VARS
	SWTVAL	R,<<DECIMAL,2,<32.>>>,$VARS
	SWTVAL	I,<<DECIMAL,2,<16.>>>,$VARS
	SWTVAL	C,<<DECIMAL,2,<16.>>>,$VARS
	SWTVAL	H,<<DECIMAL,2,<4.>>>,$VARS
	SWTVAL	O,<<DECIMAL,2,<6.>>>,$VARS
	SWTVAL	B,<<ASCII,2,1>,<DECIMAL,2,<16.>>>,$VARS
	SWTEND	$VARS
;
; SWITCH TABLES END HERE
;
	.END