.TITLE	CBTA
	.IDENT	/04.04A/
	.ASECT
	.GLOBL	$SAVRG
	.GLOBL	$DIV
	.PSECT
	.PSECT	$$RESL,RO
	.GLOBL	$CBTA
	.GLOBL	$CBOSG
	.GLOBL	$CBVER
	.GLOBL	$CBTMG
	.GLOBL	$CBDAT
	.GLOBL	$CBDMG
	.GLOBL	$CBDSG
	.GLOBL	$CBOMG
	.GLOBL	$CBGMG								;HEXMOD
	.GLOBL	$CBHMG								;HEXMOD
	.GLOBL	$CBHSG								;HEXMOD
	.PSECT	$$RESL
$CBDAT:	MOV	#11012,-(SP)
	BR	E00046
$CBDMG:	MOV	#25012,-(SP)
	BR	E00046
$CBDSG:	MOV	#25412,-(SP)
	BR	E00046
$CBVER:
$CBOMG:	MOV	#31010,-(SP)
	BR	E00046
$CBOSG:	MOV	#31410,-(SP)
	BR	E00046
$CBTMG:	BIC	#177400,R1
	MOV	#15010,-(SP)
	BR	E00046								;HEXMOD
$CBHMG:	MOV	#21020,-(SP)							;HEXMOD
	BR	E00046								;HEXMOD
$CBHSG: MOV	#21420,-(SP)							;HEXMOD
	BR	E00046								;HEXMOD
$CBGMG:	BIC	#177400,R1							;HEXMOD
	MOV	#11020,-(SP)							;HEXMOD
E00046:	TST	R2
	BNE	E00056
	BIC	#1000,(SP)
E00056:	MOV	(SP)+,R2
$CBTA:	JSR	R5,$SAVRG
	MOVB	R2,R5
	CLRB	R2
	SWAB	R2
	ASR	R2
	BCC	E00114
	TST	R1
	BPL	E00114
	NEG	R1
	MOVB	#55,(R0)+
	SUB	#4,R2
E00114:	MOV	R0,R4
	ROR	R2
	ROR	R2
	ROR	R3
	CLRB	R3
	BISB	R2,R3
	CLRB	R2
	BISB	#60,R2
	MOV	R1,R0
E00140:	MOV	R5,R1
	CALL	$DIV
	CMP	R1,#11
	BLOS	E00160
	ADD	#7,R1
E00160:	ADD	R2,R1
	MOV	R1,-(SP)
	DECB	R3
	BLE	E00214
	TST	R0
	BNE	E00210
	TST	R2
	BPL	E00214
	TST	R3
	BPL	E00210
	BIC	#20,R2
E00210:	CALL	E00140
E00214:	MOVB	(SP)+,(R4)+
	MOV	R4,R0
	RETURN
	.END