/SET ANALOG MODE SUBROUTINE
/EXECUTION TIME:  74 MICROSECONDS
/CALLING SEQUENCE: CALL SAMO(MODE,ERROR)
/     MODE: 1=PC,2=PP,3=ST,4=OP,
/           5=HD,6=IC,7=SP
/     ERROR=0: NO ERROR
/          =1: ILLEGAL MODE REQUESTED
/          =2: HARDWARE MALFUNCTION
	.TITLE SAMO
	.GLOBL SAMO,%SAMO
SAMO	0
	ISZ SAMO
	LAC* SAMO
	DAC MODE
	SPA
	LAC* MODE   /INDIRECT
	DAC MODE    /MODE LOCATION
	ISZ SAMO
	LAC* SAMO
	DAC ERROR
	SPA
	LAC* ERROR  /INDIRECT
	DAC ERROR   /ERROR LOCATION
	ISZ SAMO    /BUMP TO EXIT
	LAC* MODE
	JMS* %SAMO  /SET ANALOG MODE
	DAC* ERROR  /ERROR CODE
	JMP* SAMO
MODE
ERROR
	.END
