/!H\DBUGAU23  FODT9 .RA     17/02/84!
	EXTERN	BA1		/EXTERNAL SYMBOLS
	EXTERN	BA2
	EXTERN	BE1
	EXTERN	BE2
	EXTERN	BL1
	EXTERN	BL2
	EXTERN	BA1RST
	EXTERN	BA2RST
	EXTERN	BE1RST
	EXTERN	BE2RST

	SECT	FODT9
	JA	#ST
#XR,	ORG	.+10
	TEXT	+FODT9+
#RET,	SETX	#XR
	SETB	#BASE
	JA	.+3
#BASE,	ORG	.+6
	ORG	#BASE+30
	FNOP
	JA	#RET
	FNOP
#GOBAK,	0;0
#ARGS,	ORG	.+3
IX,	ORG	.+0003
#TMP,	ORG	.+0011
#LIT,	0000
	0000
	0000
	0001
	2000
	0000
	0002
	2000
	0000
	0002
	3000
	0000
	0003
	3000
	0000
	0004
	3000
	0000
	0000
	JA	ADDR-0003
	0000
	JA	BA-0003
	0000
	JA	BACC-0003
	0000
	JA	BAREAL-0003
	0000
	JA	BATC-0003
	0000
	JA	BE-0003
	0000
	JA	BECC-0003
	0000
	JA	BEREAL-0003
	0000
	JA	BESUB-0003
	0000
	JA	BETC-0003
	0000
	JA	BL-0003
	0000
	JA	BLCC-0003
	0000
	JA	BLLN-0003
	0000
	JA	BLREAL-0003
	0000
	JA	BLSUB-0003
	0000
	JA	BLTC-0003
	0000
	JA	ODTDAT-0003
	0000
	JA	SUBNAM-0003
	#LBL=.
	COMMON	ODTCOM
ODTSTS,	ORG	.+0003
ADDR,	ORG	.+0006
BA,	ORG	.+0006
BAREAL,	ORG	.+0006
BATC,	ORG	.+0006
BACC,	ORG	.+0006
BL,	ORG	.+0006
BLTC,	ORG	.+0006
BLCC,	ORG	.+0006
BLLN,	ORG	.+0006
BESUB,	ORG	.+0006
SUBNAM,	ORG	.+0006
ODTDAT,	ORG	.+0044
ODTN,	ORG	.+0003
BLREAL,	ORG	.+0006
BLSUB,	ORG	.+0006
NAME,	ORG	.+0003
QREG,	ORG	.+0003
BE,	ORG	.+0006
BEREAL,	ORG	.+0006
BETC,	ORG	.+0006
BECC,	ORG	.+0006
	ORG	#LBL
#RTN,	BASE	#BASE
	JA	#GOBAK
#ST,	STARTD
	0210
	FSTA	#GOBAK,0
	0200
	SETX	#XR
	SETB	#BASE
	STARTF
	FLDA	#LIT+0003
	FSTA	IX

#G0001,	FLDA	IX
	ATX	7
	FLDA	BAREAL-0003,7
	FSUB	#LIT+0000
	EXTERN	#GT
	JSA	#GT
	JEQ	#210

#12000,
	JSA	RSTBA		/RSTORE ORIGINAL CODE
#210,	FLDA	IX
	ATX	7
	FLDA	BEREAL-0003,7
	FSUB	#LIT+0000
	EXTERN	#GT
	JSA	#GT
	JEQ	#220

#13000,
	JSA	RSTBE		/RESTORE ORIGINAL CODE
#220,	FLDA	IX
	ATX	7
	FLDA	BLREAL-0003,7
	FSUB	#LIT+0000
	EXTERN	#GT
	JSA	#GT
	JEQ	#300

#14000,
	JSA	RSTBL		/RESTORE ORIGINAL CODE
#300,	FLDA	IX
	FADD	#LIT+0003
	FSTA	IX
	FSUB	#LIT+0006
	JLE	#G0001

#8881,	JA	.+0023
	5047
	4005
	2222
	1722
	7240
	1114
	1405
	0701
	1440
	0222
	0501
	1340
	0104
	0422
	0523
	2347
	5100
	JA	#9999

#8888,	EXTERN	#WRITO
	TRAP3	#WRITO
	JA	#LIT+0000
	JA	#8889+2
	EXTERN	#RENDO
	TRAP3	#RENDO

#8889,	JA	.+0005
	5047
	4077
	4751

#9999,	EXTERN	#NE
	JA	#RTN

RSTBA,	ORG	.+2		/ROUTINE TO RESET ENTRY BREAK PT
	FLDA	IX		/PT.TO REAL BREAK ADDRESS
	ATX	7
	FLDA	BAREAL-3,7
	LDX	0,1		/INIT INDEX REG 1

	FSTA	#BASE
	FLDA	IX		/WHICH BREAK-PT ?
	FSUB	#LIT+3
	JNE	RSTBA1		/JUMP IF IX != 1
	STARTD
	FLDA%	#BASE,1		/DOUBLE CHECK
	FSUB	JSABA1
	JNE	RSTBA9		/DO NOTHING IF NOT CONSISTANT
	FLDA	BA1RST+1	/GET ORIGINAL 'SETX #XR' CODE
	JA	RSTBA2
RSTBA1,	STARTD
	FLDA%	#BASE,1		/DOUBLE CHECK
	FSUB	JSABA2
	JNE	RSTBA9		/DO NOTHING IF NOT CONSISTANT
	FLDA	BA2RST+1	/GET ORIGINAL 'SETX #XR' CODE
RSTBA2,
	FSTA%	#BASE,1		/PUT IT BACK
RSTBA9,	STARTF
	JA	RSTBA		/RETURN

JSABA1,	JSA	BA1		/JSA TO BREAK ENTRIES
JSABA2,	JSA	BA2


RSTBL,	ORG	.+2		/ROUTINE TO RESET LINE BREAK PT
	FLDA	IX
	ATX	7
	FLDA	BLREAL-3,7
	FSTA	#BASE		/PT TO CODE
	LDX	0,1		/INIT. INDEX
	FLDA	IX
	FSUB	#LIT+3
	JNE	RSTBL1		/JMP IF IX == 2
	STARTD
	FLDA%	#BASE,1		/DOUBLE CHECK
	FSUB	JSRBL1
	JNE	RSTBL9		/DO NOTHING IF NOT CONSISTANT
	FLDA	BL1		/RESTORE CODE
	JA	RSTBL2

RSTBL1,	STARTD
	FLDA%	#BASE,1		/DOUBLE CHECK
	FSUB	JSRBL2
	JNE	RSTBL9		/DO NOTHING IF NOT CONSISTANT
	FLDA	BL2
RSTBL2,	FSTA%	#BASE,1
RSTBL9,	STARTF
	JA	RSTBL		/RETURN

JSRBL1,	JSR	BL1
JSRBL2,	JSR	BL2


RSTBE,	ORG	.+2		/ROUTINE TO RESET EXIT BREAK PT
	FLDA	IX		/PT.TO REAL BREAK ADDRESS
	ATX	7
	FLDA	BEREAL-3,7
	LDX	0,1		/INIT INDEX REG 1

	FSTA	#BASE
	FLDA	IX		/WHICH BREAK-PT ?
	FSUB	#LIT+3
	JNE	RSTBE1		/JUMP IF IX != 1
	STARTD
	FLDA%	#BASE,1		/DOUBLE CHECK
	FSUB	JABE1
	JNE	RSTBE9		/DO NOTHING IF NOT CONSISTANT
	FLDA	BE1RST+3	/GET ORIGINAL 'JA' CODE
	JA	RSTBE2
RSTBE1,	STARTD
	FLDA%	#BASE,1		/DOUBLE CHECK
	FSUB	JABE2
	JNE	RSTBE9		/DO NOTHING IF NOT CONSISTANT
	FLDA	BE2RST+3	/GET ORIGINAL 'JA' CODE
RSTBE2,
	FSTA%	#BASE,1		/PUT IT BACK
RSTBE9,	STARTF
	JA	RSTBE		/RETURN

JABE1,	JA	BE1		/JSA TO BREAK ENTRIES
JABE2,	JA	BE2
