;
;	HAND LOADABLE PROGRAM TO TEST CONSOLE
;
SWR=0	;SWITCH REGISTER
RCSR=177560	;RECEIVE STATUS
RBUF=177562	;RECEIVE BUFFER
XCSR=177564	;XMIT STATUS
XBUF=177566	;XMIT BUFFER
;
;
.=.+1000				;READ TEST
A:	MOV	@#RBUF,@#SWR	;CHECK CHAR
	BR	A
;
;
					;WRITE TEST
B:	BIT	#200,@#XCSR	;WAIT TILL READY
	BEQ	B
	MOV	@#SWR,@#XBUF	;OUT THE CHAR
	BR	B
;
;
					;ECHO TEST
C:	BIT	#200,@#RCSR	;WAIT TILL CHAR INPUT
	BEQ	C
D:	BIT	#200,@#XCSR	;WAIT TILL READY
	BEQ	D
	MOV	@#RBUF,@#XBUF	;ECHO THE CHAR
	BR	C
;
;
					;ALL CHARACTER TEST
E:	BIT	#200,@#XCSR	;WAIT TILL XMIT READY
	BEQ	E
	MOVB	R0,@#XBUF	;XMIT A CHAR
	INC	R0
	BR	E
	.END