.TITLE	DVMR
/
/  7 MAR 72 - MOD BY P. HENDERSON
/
/READ DVM SUBROUTINE
/EXECUTION TIME: DEVICE LIMITED
/CALLING SEQUENCE: CALL DVMR(VALUE,ERROR)
/     VALUE: UNNORMALIZED INTEGER VALUE
/               IF ERROR=0
/            UNDEFINED IF ERROR=4 OR 5
/     ERROR=0: NO ERROR
/          =4: HARDWARE MALFUNCTION
/          =5: DVM OVVERRANGE (DVM>1.1799)
/
	.GLOBL DVMR,%DVM
/
DVMR	XX
	.ARG	DVMR
	DAC VALUE   /VALUE LOCATION
	.ARG
	DAC ERROR   /ERROR LOCATION
	JMS* %DVM
	DAC* ERROR   /ERROR CODE
	LACQ
	DAC* VALUE  /VALUE
	JMP* DVMR
ERROR
VALUE
	.END