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