.TITLE	RLMO
/
/  7 MAR 72 - MOD BY P. HENDERSON
/
/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
/
	.GLOBL RLMO,%RLMO
/
RLMO	XX
	.ARG	RLMO
	DAC MODE    /MODE LOCATION
RL2	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
/
%RLMO	XX
	DAC	MODE	/ARGUMENT ADDRESS IN AC AT ENTRY
	LAC	%RLMO	/MOVE RETURN ADDRESS
	DAC	RLMO
	JMP	RL2
/
MODE
IOT3=703003
RSW=703613
	.END