.TITLE	SAMO
/
/  7 MAR 72 - MOD BY P. HENDERSON
/
/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
/
	.GLOBL SAMO,%SAMO
/
SAMO	XX
	.ARG	SAMO
	DAC MODE    /MODE LOCATION
	.ARG
	DAC ERROR   /ERROR LOCATION
	LAC* MODE
	JMS* %SAMO  /SET ANALOG MODE
	DAC* ERROR  /ERROR CODE
	JMP* SAMO
MODE
ERROR
	.END