/TRANSFER ANALOG VALUE SUBROUTINE
/EXECUTION TIME: DEVICE LIMITED
/CALLING SEQUENCE: CALL TAVA(VALUE,ERROR)
/     VALUE: UNNORMALIZED POSITIVE 
/            INTEGER VALUE
/     ERROR=0: NO ERROR
/          =1: VALUE<0 OR VALUE>9999
/          =4: HARDWARE MALFUNCTION
/          =7: KEYBOARD INTERFERENCE
/              TAVA CANNOT PROCEED
	.TITLE TAVA
	.GLOBL TAVA,%TAVA
TAVA	0
	ISZ TAVA
	LAC* TAVA
	DAC VALUE
	SPA
	LAC* VALUE  /INDIRECT
	DAC VALUE   /VALUE LOCATION
	ISZ TAVA
	LAC* TAVA
	DAC ERROR
	SPA
	LAC* ERROR  /INDIRECT
	DAC ERROR   /ERROR LOCATION
	ISZ TAVA    /BUMP TO EXIT
	LAC* VALUE
	JMS* %TAVA
	DAC* ERROR  /ERROR CODE
	JMP* TAVA
ERROR
VALUE
	.END