/DVM CONVERT SUBROUTINE
/EXECUTION TIME: 10 MICROSECONDS
/CALLING SEQUENCE: CALL DVMC
	.TITLE DVMC
	.GLOBL DVMC
DVMC	0
	IOT3
	JMP .-1
	CDVM        /DVM CONVERT
	JMP* DVMC
IOT3=703003
CDVM=703626
	.END