.TITLE	EDTMG
	.IDENT	/16A/
	.ASECT
	.GLOBL	$CBOSG
	.GLOBL	$CBVER
	.GLOBL	$CBTMG
	.GLOBL	$CDTB
	.GLOBL	$DAT
	.GLOBL	$SAVRG
	.GLOBL	$TIM
	.GLOBL	$CBDMG
	.GLOBL	$CBDSG
	.GLOBL	$CDDMG
	.GLOBL	$C5TA
	.GLOBL	$CBOMG
	.GLOBL	$CBGMG								;HEXMOD
	.GLOBL	$CBHMG								;HEXMOD
	.GLOBL	$CBHSG								;HEXMOD
	.PSECT
	.PSECT	PUR$D,RO,D
	.PSECT	PUR$I,RO
	.GLOBL	$EDMSG
	.PSECT	PUR$D
E00000:	.BYTE	'A								;HEXMOD
	.BYTE	'B								;HEXMOD
	.BYTE	'D								;HEXMOD
	.BYTE	'E								;HEXMOD
	.BYTE	'F								;HEXMOD
	.BYTE	'G								;HEXMOD
	.BYTE	'H								;HEXMOD
	.BYTE	'I								;HEXMOD
	.BYTE	'J								;HEXMOD
	.BYTE	'K								;HEXMOD
	.BYTE	'M								;HEXMOD
	.BYTE	'N								;HEXMOD
	.BYTE	'O								;HEXMOD
	.BYTE	'P								;HEXMOD
	.BYTE	'Q								;HEXMOD
	.BYTE	'R								;HEXMOD
	.BYTE	'S								;HEXMOD
	.BYTE	'T								;HEXMOD
	.BYTE	'U								;HEXMOD
	.BYTE	'X								;HEXMOD
	.BYTE	'Y								;HEXMOD
	.BYTE	'Z								;HEXMOD
	.BYTE	'<								;HEXMOD
	.BYTE	'>								;HEXMOD
	.EVEN									;HEXMOD
E00024:	.WORD	G00172-E00024!1							;HEXMOD
E00026:	.WORD	G00214-E00026							;HEXMOD
E00030:	.WORD	G00230-E00030							;**-11
E00032:	.WORD	G00254-E00032
E00034:	.WORD	G00316-E00034
E00036:	.WORD	G00370-E00036!1
E00037:	.WORD	HXBYT-E00037							;HEXMOD
E00038:	.WORD	HXMAG-E00038							;HEXMOD
E00040:	.WORD	G00726-E00040							;HEXMOD
E00041:	.WORD	HXSGN-E00041							;HEXMOD
E00039:	.WORD	HXMAL-E00039							;HEXMOD
E00042:	.WORD	G00266-E00042							;**-1
E00044:	.WORD	G00416-E00044!1
E00046:	.WORD	G00434-E00046
E00050:	.WORD	G00452-E00050
E00052:	.WORD	G00446-E00052
E00054:	.WORD	G00526-E00054
E00056:	.WORD	G00540-E00056!1
E00060:	.WORD	G00304-E00060
E00062:	.WORD	G00272-E00062
E00064:	.WORD	G00560-E00064
E00066:	.WORD	G00674-E00066
E00070:	.WORD	G00710-E00070
E00072:	.WORD	G00354-E00072!1
E00074:	.WORD	G00402-E00074!1
	.PSECT	PUR$I
	.ENABL	LSB								;HEXMOD
$EDMSG:	JSR	R5,$SAVRG
	MOV	R0,-(SP)
	CLR	-(SP)
	MOV	R0,R3
	MOV	R1,R4
	MOV	R2,R5
G00016:	MOVB	(R4)+,R2
	BEQ	G00034
	CMPB	#45,R2
	BEQ	G00054
	MOVB	R2,(R3)+
	BR	G00016
G00034:	MOV	(SP)+,R4
	BNE	G00016
	CLRB	(R3)
	MOV	R3,R0
	MOV	R0,R1
	SUB	(SP)+,R1
	MOV	R5,R2
	RETURN
G00054:	MOV	R4,-(SP)
	MOV	R4,R0
	CMPB	#126,(R0)+
	BNE	G00072
	MOV	(R5)+,R1
	BR	G00102
G00072:	MOV	R4,R0
	CALL	$CDTB
	DEC	R0
G00102:	MOV	R0,R4
	MOV	R3,R0
	MOV	R1,R3
	BNE	G00114
	INC	R3
G00114:	MOV	PC,R1
G00116:	ADD	#E00000+30-G00116,R1						;HEXMOD
	MOV	#30,R2								;HEXMOD
G00126:	CMPB	(R4),-(R1)							;**-2
	BEQ	G00136
	DEC	R2
	BNE	G00126
G00136:	INC	R4
	ASL	R2
	ADD	PC,R2
G00144:	ADD	#E00024-G00144,R2
	ADD	(R2),R2
	ASR	R2
	BCS	G00160
	MOV	(R5)+,R1
G00160:	ASL	R2
	CALL	(R2)
	MOV	R0,R3
	TST	(SP)+
	BR	G00016
G00172:	MOVB	#45,(R0)+
	MOV	2(SP),R4
	CMPB	#126,(R4)
	BNE	G00212
	TST	-(R5)
G00212:	RETURN
G00214:	MOVB	(R1)+,(R0)+
	DEC	R3
	BNE	G00214
	RETURN
G00224:	MOVB	#40,(R0)+
G00230:	MOVB	(R1)+,R2
	MOV	R1,-(SP)
	MOV	R2,R1
	MOV	SP,R2
	CALL	$CBTMG
	MOV	(SP)+,R1
	DEC	R3
	BNE	G00224
	RETURN
10$:	MOVB	#40,(R0)+							;HEXMOD
HXBYT:	MOVB	(R1)+,R2							;HEXMOD
	MOV	R1,-(SP)							;HEXMOD
	MOV	R2,R1								;HEXMOD
	MOV	SP,R2								;HEXMOD
	CALL	$CBGMG								;HEXMOD
	MOV	(SP)+,R1							;HEXMOD
	DEC	R3								;HEXMOD
	BNE	10$								;HEXMOD
	RETURN									;HEXMOD
G00254:	CLR	-(SP)
	MOV	PC,-(SP)
G00260:	ADD	#$CBDSG-G00260,(SP)
	BR	G00472
G00266:	CLR	-(SP)
	BR	G00274
G00272:	MOV	R2,-(SP)
G00274:	MOV	PC,-(SP)
G00276:	ADD	#$CBDMG-G00276,(SP)
	BR	G00472
G00304:	CLR	-(SP)
	MOV	PC,-(SP)
G00310:	ADD	#$CDDMG-G00310,(SP)
	BR	G00472
G00316:	MOVB	(R1)+,(R0)
	BICB	#200,(R0)
	CMPB	(R0),#40
	BLT	G00340
	CMPB	(R0),#177
	BNE	G00344
G00340:	MOVB	#40,(R0)
G00344:	INC	R0
	DEC	R3
	BNE	G00316
	RETURN
G00354:	MOV	R0,R2
	CALL	G00540
	CLRB	(R0)
	MOV	R2,R0
	RETURN
G00370:	MOVB	#14,(R0)+
	DEC	R3
	BNE	G00370
	RETURN
G00402:	TSTB	(R0)+
	BEQ	G00412
	DEC	R3
	BNE	G00402
G00412:	DEC	R0
	RETURN
G00416:	MOVB	#15,(R0)+
	MOVB	#12,(R0)+
	DEC	R3
	BNE	G00416
	RETURN
G00434:	CLR	-(SP)
	MOV	PC,-(SP)
G00440:	ADD	#$CBOSG-G00440,(SP)
	BR	G00472
G00446:	CLR	-(SP)
	BR	G00454
G00452:	MOV	R2,-(SP)
G00454:	MOV	PC,-(SP)
G00456:	ADD	#$CBOMG-G00456,(SP)
	BR	G00472
HXSGN:	CLR	-(SP)								;HEXMOD
	MOV	PC,-(SP)							;HEXMOD
	ADD	#$CBHSG-.,(SP)							;HEXMOD
	BR	G00472								;HEXMOD
HXMAG:	CLR	-(SP)								;HEXMOD
	BR	60$								;HEXMOD
HXMAL:	MOV	R2,-(SP)							;HEXMOD
60$:	MOV	PC,-(SP)							;HEXMOD
	ADD	#$CBHMG-.,(SP)							;HEXMOD
	BR	G00472								;HEXMOD
G00464:	MOVB	#11,(R0)+
	MOV	(R5)+,R1
G00472:	MOV	2(SP),R2
	MOV	(SP),-(SP)
	CALL	@(SP)+
	DEC	R3
	BNE	G00464
	CMP	(SP)+,(SP)+
	RETURN
G00524:	MOV	(R5)+,R1							;**-4
G00526:	CALL	$C5TA
	DEC	R3
	BNE	G00524
	RETURN
G00540:	MOVB	#40,(R0)+
	DEC	R3
	BNE	G00540
	RETURN
G00552:	MOVB	#11,(R0)+
	MOV	(R5)+,R1
G00560:	MOV	#3,-(SP)
G00564:	CALL	$C5TA
	MOV	(R5)+,R1
	DEC	(SP)
	BGT	G00564
	TST	(SP)+
	MOV	#11,R2
	CALL	G00654
	MOVB	#56,(R0)+
	CALL	$C5TA
	MOV	#3,R2
	CALL	G00654
	MOV	(R5)+,R1
	BEQ	G00646
	MOVB	#73,(R0)+
	CLR	R2
	CALL	$CBVER
G00646:	DEC	R3
	BNE	G00552
G00652:	RETURN
G00654:	DEC	R2
	BLT	G00652
	CMPB	#40,177777(R0)
	BNE	G00652
	DEC	R0
	BR	G00654
G00674:	MOV	R5,R1
	TST	-(R1)
	CALL	$DAT
	MOV	R1,R5
	RETURN
G00710:	MOV	R5,R1
	TST	-(R1)
	MOV	R3,R2
	CALL	$TIM
	MOV	R1,R5
	RETURN
G00726:	TST	R1
	BEQ	G00750
	MOV	(SP),-(SP)
	MOV	4(SP),2(SP)
	MOV	R4,4(SP)
	MOV	R1,R4
G00750:	RETURN
	.END