.TITLE	ISYSW	
	.IDENT	/RICEX1/	
	.GLOBL	IUSSW,ISYSW	
	.PSECT	SW.SYS,GBL,OVR,D	
SYSW:	.BLKW	8.	
USSW:	.BLKW	8.		; ARRAY OF USER SWITCHES	
	.PSECT	
IUSSW:	MOV	#USSW,R1	; ADDRESS OF USER SWITCHES	
	BR	GET		; GET VALUE OF SWITCHES	
ISYSW:	MOV	#SYSW,R1	; ADDRESS OF SYSTEM SWITCHES	
GET:	MOV	#1,R0		; CHECK IF NUMBER OF APRAM IS CORRECT	
	JSR	PC,R5CHEK	
	MOV	@(R5),R2	; VALUE OF SWITCH WANTED	
	BIC	#177770,R2		; ALLOW ONLY 8 SWITCHES	
	ASL	R2		; NOW POINTS TO BYTE # OF SW	
	ADD	R2,R1		; IS PHYSICAL ADDRESS OF SW	
	CLR	R0		; ZERO = SWITCH DOWN	
	TST	(R1)		; CHECK VALUE OF SWITCH	
	BEQ	1$		; DOWN	
	DEC	R0		; UP	
1$:	RTS	PC		; RETURN	
	.END