.TITLE	RAMO
/
/  7 MAR 72 - MOD BY P. HENDERSON
/
/READ ANALOG MODE SUBROUTINE
/EXECUTION TIME: 30 MICROSECONDS
/CALLING SEQUENCE: CALL RAMO(MODE)
/     MODE: 1=PC,2=PP,3=ST,4=OP,
/           5=HD,6=IC,7=SP
/
	.GLOBL RAMO
/
RAMO	XX
	.ARG	RAMO
	DAC MODE    /MODE LOCATION
	IOT3
	JMP .-1
	RSW         /READ STATUS WORD
	RTL
	RTL
	RAL
	AND (7
	DAC* MODE   /ANALOG MODE
	JMP* RAMO
MODE
IOT3=703003
RSW=703613
	.END