.TITLE	CATB
	.IDENT	/03A/
	.ASECT
	.GLOBL	$MUL
	.GLOBL	$SAVRG
	.PSECT
	.GLOBL	$COTB
	.GLOBL	$CDTB
	.GLOBL	$CHTB								;HEXMOD
	.PSECT
$CDTB:	MOV	#12,R2
	BR	C00012
$COTB:	MOV	#10,R2
	BR	C00012								;HEXMOD
$CHTB:	MOV	#16.,R2								;HEXMOD
C00012:	JSR	R5,$SAVRG
	CLR	R1
C00020:	MOVB	(R0)+,R5
	CMPB	#40,R5
	BEQ	C00020
	CMPB	#11,R5
	BEQ	C00020
C00036:	CMPB	R5,#140								;HEXMOD
	BLT	10$								;HEXMOD
	BIC	#40,R5								;HEXMOD
10$:										;HEXMOD
	SUB	#60,R5								;HEXMOD
	CMP	R2,#12								;HEXMOD
	BLOS	20$								;HEXMOD
	CMP	R5,#12								;HEXMOD
	BCS	20$								;HEXMOD
	CMP	R5,#21								;HEXMOD
	BCS	C00066								;HEXMOD
	SUB	#7,R5								;HEXMOD
20$:										;HEXMOD
	CMPB	R5,R2								;**-1
	BCC	C00066
	MOV	R0,R4
	MOV	R2,R0
	CALL	$MUL
	MOV	R4,R0
	ADD	R5,R1
	MOVB	(R0)+,R5
	BR	C00036
C00066:	MOVB	177777(R0),R2
	RETURN
	.END