.TITLE	shoRSX
	.IDENT /M01/
;
; show I/O DATA BASE
;
; MACRO LIBRARY CALLS
;
	.MCALL	GCMLB$,FDBDF$,FDAT$A,FDOP$A,FDRC$A,NMBLK$,FSRSZ$
	.MCALL	CSI$SW,CSI$ND,CSI$SV
	.IF DF	RSTS
	FSRSZ$	4,<512.*2+80.>
	.IFF
	FSRSZ$	4,<512.*4+80.>
	.ENDC
 

TTBLK::	FDBDF$
	FDAT$A	R.VAR,FD.CR
	FDOP$A	3,,TTFIL	;LUN=3
	FDRC$A	,TTBUF,TTLIN
;
;	set up command input file
TTFIL:	NMBLK$	CMO,CMD
TTIBLK::GCMLB$	2,SHO,TTIBUF	;LUN=1
;
;	set up input file blks
TTLDMY::FDBDF$
	FDAT$A	2
	FDOP$A	4,,TTLFIL	;LUN=4
TTLFIL::	NMBLK$	SHOW,SHO,,SY,0
;
;	set up output file blks
LSTBLK::FDBDF$
	FDAT$A	R.VAR,FD.FTN
	FDOP$A	5,,LSTFIL	;LUN=5
	.IF DF	RSTS
	FDRC$A	FD.RWM		;
	.ENDC
LSTFIL::	NMBLK$	SHOW,SHO,,SY,0
 
	.PSECT	SWTCH,GBL
;
;	switch bit definitions
;
;
GRAMSK==2	;use graphics format not image
IMGMSK==4	;use image format not GRAPHICS
COLMSK==1000	;color memory mask
FUNMSK==2000	;function memory mask
ANNMSK==4000	;annotaion memory values 0-3 , on or off
TPNMSK==10000	;test pattren memory values 0-3 , on or off
;
;	output side switch values
;	output switches can be negated for display setup purposes
;
SWTBLO::	CSI$SW  GR,GRAMSK,$SWTHO,SET,NEG,GRAOUT	;graphics value
		CSI$SW  IM,IMGMSK,$SWTHO,SET,NEG,IMGOUT	;image value
		CSI$SW  CM,COLMSK,$SWTHO,SET,NEG,COLOUT	;color memorys
		CSI$SW  FM,FUNMSK,$SWTHO,SET,NEG,FUNOUT	;function memory
		CSI$SW  AN,ANNMSK,$SWTHO,SET,NEG,ANNOUT	;annotaion
		CSI$SW  TP,TPNMSK,$SWTHO,SET,NEG,TPNOUT	;test pattrn
;
;
GRAOUT:	CSI$SV decimal,GRAPHO,2
	CSI$ND
;
IMGOUT:	CSI$SV decimal,IMAGEO,2
	CSI$SV decimal,IMAGOH,2
	CSI$ND
;
;
COLOUT:	CSI$SV ascii,COLMEO,1
	CSI$ND
FUNOUT:	CSI$SV decimal,FUNMEO,2
	CSI$ND
;
ANNOUT:	CSI$SV decimal,ANNMEO,2
	CSI$ND
;
TPNOUT:	CSI$SV decimal,TPNMEO,2
	CSI$ND
;
;
SPSAV::	.blkw 1
$SWTHI::	.blkw 1		;INPUT switch word
$SWTHO::	.blkw 1		;OUTPUT switch word
	.END