/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
	.TITLE RAMO
	.GLOBL RAMO
RAMO	0
	ISZ RAMO
	LAC* RAMO
	DAC MODE
	SPA
	LAC* MODE  /INDIRECT
	DAC MODE    /MODE LOCATION
	ISZ RAMO    /BUMP TO EXIT
	IOT3
	JMP .-1
	RSW         /READ STATUS WORD
	RTL
	RTL
	RAL
	AND (7
	DAC* MODE   /ANALOG MODE
	JMP* RAMO
MODE
IOT3=703003
RSW=703613
	.END
