MD0:CATB.MAC;2=MD0:CATB.VGN;1/AU/-BF
\
-2,2,/;HEXMOD/
	.IDENT	/03A/
%
-8,,/;HEXMOD/
	.GLOBL	$CHTB
-12,,/;HEXMOD/
	BR	C00012
$CHTB:	MOV	#16.,R2
-20,20,/;HEXMOD/
C00036:	CMPB	R5,#140
	BLT	10$
	BIC	#40,R5
10$:
	SUB	#60,R5
	CMP	R2,#12
	BLOS	20$
	CMP	R5,#12
	BCS	20$
	CMP	R5,#21
	BCS	C00066
	SUB	#7,R5
20$:
/
MD0:CBTA.MAC;2=MD0:CBTA.VGN;1/AU/-BF
\
-2,2,/;HEXMOD/
	.IDENT	/04.04A/
%
-15,,/;HEXMOD/
	.GLOBL	$CBGMG
	.GLOBL	$CBHMG
	.GLOBL	$CBHSG
-29,,/;HEXMOD/
	BR	E00046
$CBHMG:	MOV	#21020,-(SP)
	BR	E00046
$CBHSG: MOV	#21420,-(SP)
	BR	E00046
$CBGMG:	BIC	#177400,R1
	MOV	#11020,-(SP)
/
MD0:EDTMG.MAC;2=MD0:EDTMG.VGN;1/AU/-BF
\
-2,2,/;HEXMOD/
	.IDENT	/16A/
%
-15,,/;HEXMOD/
	.GLOBL	$CBGMG
	.GLOBL	$CBHMG
	.GLOBL	$CBHSG
-21,31,/;HEXMOD/
E00000:	.BYTE	'A
	.BYTE	'B
	.BYTE	'D
	.BYTE	'E
	.BYTE	'F
	.BYTE	'G
	.BYTE	'H
	.BYTE	'I
	.BYTE	'J
	.BYTE	'K
	.BYTE	'M
	.BYTE	'N
	.BYTE	'O
	.BYTE	'P
	.BYTE	'Q
	.BYTE	'R
	.BYTE	'S
	.BYTE	'T
	.BYTE	'U
	.BYTE	'X
	.BYTE	'Y
	.BYTE	'Z
	.BYTE	'<
	.BYTE	'>
	.EVEN
E00024:	.WORD	G00172-E00024!1
E00026:	.WORD	G00214-E00026
-36,36,/;HEXMOD/
E00037:	.WORD	HXBYT-E00037
E00038:	.WORD	HXMAG-E00038
E00040:	.WORD	G00726-E00040
E00041:	.WORD	HXSGN-E00041
E00039:	.WORD	HXMAL-E00039
-51,,/;HEXMOD/
	.ENABL	LSB
-87,88,/;HEXMOD/
G00116:	ADD	#E00000+30-G00116,R1
	MOV	#30,R2
-125,,/;HEXMOD/
10$:	MOVB	#40,(R0)+
HXBYT:	MOVB	(R1)+,R2
	MOV	R1,-(SP)
	MOV	R2,R1
	MOV	SP,R2
	CALL	$CBGMG
	MOV	(SP)+,R1
	DEC	R3
	BNE	10$
	RETURN
-180,,/;HEXMOD/
HXSGN:	CLR	-(SP)
	MOV	PC,-(SP)
	ADD	#$CBHSG-.,(SP)
	BR	G00472
HXMAG:	CLR	-(SP)
	BR	60$
HXMAL:	MOV	R2,-(SP)
60$:	MOV	PC,-(SP)
	ADD	#$CBHMG-.,(SP)
	BR	G00472
-190,193,/;HEXMOD/
/
MD0:ODCVT.MAC;2=MD0:ODCVT.VGN;1/AU/-BF
\
-2,2,/;HEXMOD/
	.IDENT	/04.03A/
%
-9,,/;HEXMOD/
	.GLOBL	.HXCVT
-14,,/;HEXMOD/
	BR	E00010
.HXCVT:	MOV	#-1,(R3)
-30,34,/;HEXMOD/
	CLR	(R3)
	BR	E00072
E00062:	CMPB	#41,(R2)
	BNE	10$
	INC	R2
	MOV	#-1,(R3)
	BR	E00072
10$:
	CMPB	#56,-(R5)
	BNE	E00074
	MOV	#1,(R3)
-38,39,/;HEXMOD/
	BEQ	E00106
	CMPB	(R5)+,(R5)+
	TST	(SP)
	BGT	E00106
	MOV	#15.,R5
-44,45,/;HEXMOD/
	CMPB	R0,#140
	BLT	20$
	BIC	#40,R0
20$:
	SUB	#60,R0
	BMI	E00210
	TST	(SP)
	BGE	30$
	CMP	R0,#11
	BLE	30$
	CMP	R0,#21
	BLT	E00210
	SUB	#7,R0
30$:
-57,,/;HEXMOD/
	TST	(SP)
	BGE	40$
	ASL	(R3)
	BCS	E00210
40$:
/
MD0:OD2CT.MAC;2=MD0:OD2CT.VGN;1/AU/-BF
\
-2,2,/;HEXMOD/
	.IDENT	/V0301B/
%
-8,,/;HEXMOD/
	.GLOBL	.HD2CT
-15,,/;HEXMOD/
	BR	E00022
.HD2CT:	JSR	R5,.SAVR1
	MOV	#20,R1
-30,33,/;HEXMOD/
E00066:	CMPB	(R5),#41
	BNE	5$
	MOV	#20,R1
	BR	E00100
5$:	CMPB	(R5),#43
	BNE	E00104
	MOV	#10,R1
E00100:	INC	R5
-38,39,/;HEXMOD/
	CMPB	R2,#140
	BLT	10$
	BIC	#40,R2
10$:
	SUB	#60,R2
	BCS	E00220
	CMP	R1,#12
	BLOS	20$
	CMP	R2,#12
	BCS	20$
	CMP	R2,#21
	BCS	20$
	SUB	#7,R2
20$:
-52,,/;HEXMOD/
	CMP	R1,#12
	BLT	E00166
	ASL	(R3)
	ROL	-2(R3)
-75,,/;HEXMOD/
	CMPB	#3,(R3)
	BEQ	30$
	CALL	.HD2CT
	BR	E00254
30$:
/
MD0:TPARS.MAC;2=MD0:TPARS.VGN;1/AU/-BF
\
-2,2,/;HEXMOD/
	.IDENT	/V0122A/
%
-5,,/;HEXMOD/
	.GLOBL	.HD2CT
-17,,/;HEXMOD/
	.ENABL	LSB
-35,35,/;HEXMOD/
	CMP	R0,#30
-49,,/;HEXMOD/
	BR	20$
	BR	10$
10$:	JMP	40$
-104,,/;HEXMOD/
20$:	NEG	R1
	BR	C00326
-151,151,/;HEXMOD/
	BEQ	C00420
-167,,/;HEXMOD/
	BMI	30$
-170,,/;HEXMOD/
30$:	CALL	.HD2CT
	BR	C00612
-175,,/;HEXMOD/
40$:	CALL	C00722
	BCS	50$
45$:	JMP	C00210
50$:	CALL	100$
	BCC	45$
	JMP	C00126
-181,182,/;HEXMOD/
	BGE	60$
	TST	R1
	BGE	C00700
	CALL	100$
	BCC	C00666
	BR	C00700
60$:	CALL	C00706
-202,203,/;HEXMOD/
	CMPB	(R4),#60
C00734:	RETURN
100$:	CMPB	#106,(R4)
	BCS	110$
	CMPB	(R4),#101
110$:	RETURN
/
MD0:CSISV.MAC;2=MD0:CSISV.VGN;1/AU/-BF
\
%
-17,,/;HEXMOD/
	.IF	IDN	<HEX>,<TYPE>
	.BYTE	4
	.IFF
-22,,/;HEXMOD/
	.ENDC
/
MD0:ISTAT.MAC;2=MD0:ISTAT.VGN;1/AU/-BF
\
%
-43,,/;HEXMOD/
	$HXNUM = 326
	$HXDIG = 330
/
MD0:FCSST1.MAC;2=MD0:FCSST1.VGN;1/AU/-BF
\
-2,2,/;HEXMOD/
	.IDENT	/0100A/
%
-/.END/,.,/;HEXMOD/
.HD2CT==.+400
$CHTB==	.+404
$CBGMG==.+410
$CBHMG==.+414
$CBHSG==.+420
	.END
/
MD0:FCSST2.MAC;2=MD0:FCSST2.VGN;1/AU/-BF
\
-2,2,/;HEXMOD/
	.IDENT	/0100A/
%
-/.END/,.,/;HEXMOD/
.ODCVT==.+400
.DCCVT==.+404
.VRCVT==.+410
.HXCVT==.+414
	.END
/
MD0:FCSLB1.MAC;2=MD0:FCSLB1.VGN;1/AU/-BF
\
-2,2,/;HEXMOD/
	.IDENT	/0100A/
%
-/HALT/,.,/;HEXMOD/
BASE=.
	HALT
-/.END/,.,/;HEXMOD/
.=BASE+400
	JMP	.HD2CT
	JMP	$CHTB
	JMP	$CBGMG
	JMP	$CBHMG
	JMP	$CBHSG
	.END
/
MD0:FCSLB2.MAC;2=MD0:FCSLB2.VGN;1/AU/-BF
\
-2,2,/;HEXMOD/
	.IDENT	/0100A/
%
-/HALT/,.,/;HEXMOD/
BASE=.
	HALT
-/.END/,.,/;HEXMOD/
.=BASE+400
	JMP	.ODCVT
	JMP	.DCCVT
	JMP	.VRCVT
	JMP	.HXCVT
	.END
/
MD0:FCSRS1BLD.BLD;2=KT1:[1,20]FCSRS1BLD.BLD/-AU/-CM
\
%
-/GBLREF...PARSE/,.+1,/;HEXMOD/
	.DATA GBLREF=.PARSE,.PRSDI,.PRSDV,.PRSFN,.ODCVT,.DCCVT,.VRCVT,.ASLUN
	.DATA GBLREF=.HXCVT
	.DATA ;GBLREF=.PARSE,.PRSDI,.PRSDV,.PRSFN,.ASLUN
-/.OD2CT/,,/;HEXMOD/
	.DATA GBLREF=.HD2CT
-/$COTB/,,/;HEXMOD/
	.DATA GBLREF=$CHTB
-/$CBDAT/,,/;HEXMOD/
	.DATA GBLREF=$CBHSG,$CBGMG,$CBHMG
-/EXTSCT=$$$/,.+1,/;HEXMOD/
.IF $DFLIB NE "ANSLIB"	.DATA EXTSCT=$$$$$1:2756
.IF $DFLIB EQ "ANSLIB"	.DATA EXTSCT=$$$$$2:1162
-/OPEN5:/,.+1,/;HEXMOD/
	.DATA OPEN5:	.FCTR	LB:[1,1]'$DFLIB'/LB:UDIREC:EXTEND:TRNCLS:$PRINT:DSPAT:PPNR50
	.DATA ;OPEN5:	.FCTR	LB:[1,1]'$DFLIB'/LB:UDIREC:EXTEND:TRNCLS:$PRINT:DSPAT
/