.TITLE	CBTA
	.IDENT	/04.04B/
	.ASECT
	.GLOBL	$SAVRG
	.GLOBL	$DIV
	.PSECT
	.PSECT	$$RESL,RO							;HEXMOD
	.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								;HEXMOD
$CBDAT:	MOV	#11012,-(SP)							;**-1
	BR	C00046
$CBDMG:	MOV	#25012,-(SP)
	BR	C00046
$CBDSG:	MOV	#25412,-(SP)
	BR	C00046
$CBVER:
$CBOMG:	MOV	#31010,-(SP)
	BR	C00046
$CBOSG:	MOV	#31410,-(SP)
	BR	C00046
$CBTMG:	BIC	#177400,R1
	MOV	#15010,-(SP)
	BR	C00046								;HEXMOD
$CBHMG:	MOV	#21020,-(SP)							;HEXMOD
	BR	C00046								;HEXMOD
$CBHSG: MOV	#21420,-(SP)							;HEXMOD
	BR	C00046								;HEXMOD
$CBGMG:	BIC	#177400,R1							;HEXMOD
	MOV	#11020,-(SP)							;HEXMOD
C00046:	TST	R2
	BNE	C00056
	BIC	#1000,(SP)
C00056:	MOV	(SP)+,R2
$CBTA:	JSR	R5,$SAVRG
	MOVB	R2,R5
	CLRB	R2
	SWAB	R2
	ASR	R2
	BCC	C00110
	TST	R1
	BPL	C00110
	NEG	R1
	MOVB	#55,(R0)+
C00110:	MOV	R0,R4
	ROR	R2
	ROR	R2
	ROR	R3
	CLRB	R3
	BISB	R2,R3
	CLRB	R2
	BISB	#60,R2
	MOV	R1,R0
C00134:	MOV	R5,R1
	CALL	$DIV
	CMP	R1,#11
	BLOS	C00154
	ADD	#7,R1
C00154:	ADD	R2,R1
	MOV	R1,-(SP)
	DECB	R3
	BLE	C00210
	TST	R0
	BNE	C00204
	TST	R2
	BPL	C00210
	TST	R3
	BPL	C00204
	BIC	#20,R2
C00204:	CALL	C00134
C00210:	MOVB	(SP)+,(R4)+
	MOV	R4,R0
	RETURN
	.END