/READ LOGIC MODE SUBROUTINE
/EXECUTION TIME: 33(RUN), 34(CLEAR),
/                35(STOP), OR 36(PP) 
/                 MICROSECONDS
/CALLING SEQUENCE: CALL RLMO(MODE)
/     MODE: 1=RUN,2=STOP,3=CLEAR,4=PP
	.TITLE RLMO
	.GLOBL RLMO
RLMO	0
	ISZ RLMO
	LAC* RLMO
	DAC MODE
	SPA
	LAC* MODE   /INDIRECT
	DAC MODE    /MODE LOCATION
	ISZ RLMO    /BUMP TO EXIT
	IOT3
	JMP .-1
	RSW         /READ STATUS WORD
	RTL
	RTL
	RAL
	SZL
	JMP .+5	/STOP OR RUN
	SPA!CLA	/PP OR CLEAR
	TAD (1	/PP
	TAD (3	/CLEAR
	JMP .+4
	SMA!CLA
	TAD (1	/STOP
	TAD (1	/RUN
	DAC* MODE   /TRANSMIT LOGIC MODE
	JMP* RLMO
MODE
IOT3=703003
RSW=703613
	.END
