.TITLE	.ODCVT
	.IDENT	/04.03A/
	.ASECT
	.GLOBL	.SAVR1
	.PSECT
	.PSECT	$$RESL,RO
	.GLOBL	.VRCVT
	.GLOBL	.DCCVT
	.GLOBL	.ODCVT
	.GLOBL	.HXCVT								;HEXMOD
	.PSECT	$$RESL
.VRCVT:
.ODCVT:	CLR	(R3)
	BR	E00010
.DCCVT:	MOV	#1,(R3)
	BR	E00010								;HEXMOD
.HXCVT:	MOV	#-1,(R3)							;HEXMOD
E00010:	JSR	R5,.SAVR1
	MOV	R0,-(SP)
	MOV	R5,R2
	ADD	R4,R5
	CLR	R1
	CMPB	(R2),#53
	BEQ	E00042
	CMPB	(R2),#55
	BNE	E00046
	INC	R1
E00042:	INC	R2
	DEC	R4
E00046:	CMPB	#43,(R2)
	BNE	E00062
	INC	R2
	CLR	(R3)								;HEXMOD
	BR	E00072								;HEXMOD
E00062:	CMPB	#41,(R2)							;HEXMOD
	BNE	10$								;HEXMOD
	INC	R2								;HEXMOD
	MOV	#-1,(R3)							;HEXMOD
	BR	E00072								;HEXMOD
10$:										;HEXMOD
	CMPB	#56,-(R5)							;HEXMOD
	BNE	E00074								;HEXMOD
	MOV	#1,(R3)								;HEXMOD
E00072:	DEC	R4								;**-5
E00074:	MOV	#7,R5
	MOV	(R3),-(SP)
	BEQ	E00106								;HEXMOD
	CMPB	(R5)+,(R5)+							;HEXMOD
	TST	(SP)								;HEXMOD
	BGT	E00106								;HEXMOD
	MOV	#15.,R5								;HEXMOD
E00106:	CLR	(R3)								;**-2
	TST	R4
	BLE	E00210
E00114:	MOVB	(R2)+,R0
	CMPB	R0,#140								;HEXMOD
	BLT	20$								;HEXMOD
	BIC	#40,R0								;HEXMOD
20$:										;HEXMOD
	SUB	#60,R0								;HEXMOD
	BMI	E00210								;HEXMOD
	TST	(SP)								;HEXMOD
	BGE	30$								;HEXMOD
	CMP	R0,#11								;HEXMOD
	BLE	30$								;HEXMOD
	CMP	R0,#21								;HEXMOD
	BLT	E00210								;HEXMOD
	SUB	#7,R0								;HEXMOD
30$:										;HEXMOD
	CMP	R0,R5								;**-2
	BHI	E00210
	ASL	(R3)
	BCS	E00210
	TST	(SP)
	BLE	E00144
	ADD	(R3),R0
	BCS	E00210
E00144:	ASL	(R3)
	BCS	E00210
	ASL	(R3)
	BCS	E00210
	TST	(SP)								;HEXMOD
	BGE	40$								;HEXMOD
	ASL	(R3)								;HEXMOD
	BCS	E00210								;HEXMOD
40$:										;HEXMOD
	ADD	R0,(R3)
	BCS	E00210
	BPL	E00166
	TST	(SP)
	BGT	E00210
E00166:	DEC	R4
	BNE	E00114
	TST	R1
	BEQ	E00200
	NEG	(R3)
E00200:	CLC
E00202:	MOV	(SP)+,R0
	MOV	(SP)+,R0
	RETURN
E00210:	SEC
	BR	E00202
	.END