/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)
	.TITLE DVMR
	.GLOBL DVMR,%DVM
DVMR	0
	ISZ DVMR
	LAC* DVMR
	DAC VALUE
	SPA
	LAC* VALUE  /INDIRECT
	DAC VALUE   /VALUE LOCATION
	ISZ DVMR
	LAC* DVMR
	DAC ERROR
	SPA
	LAC* ERROR  /INDIRECT
	DAC ERROR   /ERROR LOCATION
	ISZ DVMR    /BUMP TO EXIT
	JMS* %DVM
	DAC* ERROR   /ERROR CODE
	LACQ
	DAC* VALUE  /VALUE
	JMP* DVMR
ERROR
VALUE
	.END
