.TITLE	TEST

.NLIST
	.INCLUDE	/ASCII.MAC/
.LIST
	.DSABL GBL

	.ASECT
	. = ^O<1000>

JSW = ^O<44>

START:
	CLR	L20426

	BIC	#70000, L20420

	MOV	#177777, L20440

	MOV	#177777, L20442

	BIC	#10000, @#JSW

	CALL	M10012

	BCC	M01064
	BIS	#10000, L20420

	MOV	#157, L20434

	MOV	#11631, R0

	EMT	351
M01064:
	MOVB	#15, R0

M01070:
	EMT	341
	BCS	M01070
	MOVB	#12, R0

M01100:
	EMT	341
	BCS	M01100
	CALL	M10116

	BCC	M01162
	MOVB	#15, R0

M01116:
	EMT	341
	BCS	M01116
	MOVB	#12, R0

M01126:
	EMT	341
	BCS	M01126
	CALL	M10216

	BCC	M01162
	MOVB	#15, R0

M01144:
	EMT	341
	BCS	M01144
	MOVB	#12, R0

M01154:
	EMT	341
	BCS	M01154
	BR	START
M01162:
	MOV	#20512, R0

	MOV	#16400, (R0)

	MOV	#20462, 2(R0)

	EMT	375
	BIS	#40000, @#JSW

	CALL	M07270

M01214:
	BIS	#10000, @#JSW

	CALL	M07354

	CALL	M01234

	BR	M01214
M01234:
	MOV	R0, -(SP)
	BIC	#177600, R0

	CMPB	R0, #33

	BEQ	M01300
	BISB	L20460, R0

	CMPB	R0, #40

	BLT	M01270
	CMPB	R0, #177

	BLT	M01440
M01270:
	TST	(SP)+
	MOV	#1450, R2

	BR	M01322
M01300:
	TST	(SP)+
	CALL	M07354

	BIC	#177600, R0

	BISB	L20460, R0

	MOV	#1476, R2

M01322:
	CMPB	(R2)+, R0
	BEQ	M01350
	TSTB	(R2)
	BNE	M01322
	CLR	L20460

	MOV	#17142, R1

	CALL	M06346

	RETURN
M01350:
	ASL	R2
	BIC	#177600, R0

	CLR	L20460

	MOV	176376(R2), L20430

	CALL	@L20430

M01374:
	BCC	M01404
	CALL	M06346

	BR	M01432
M01404:
	BIT	#4000, L20420

	BEQ	M01426
	CALL	M05626

	BIC	#4000, L20420

M01426:
	CALL	M07076

M01432:
	CALL	M07270

	RETURN
M01440:
	MOV	(SP)+, R0
	CALL	M04456

	BR	M01374
	.WORD	160746
	.WORD	166742
	.WORD	162762
	.WORD	167763
	.WORD	165752
	.WORD	177740
	.WORD	172361
	.WORD	173754
	.WORD	161756
	.WORD	001427
	.WORD	005177
	.WORD	041101
	.WORD	042103
	.WORD	051120
	.WORD	012521
	.WORD	161341
	.WORD	161744
	.WORD	171360
	.WORD	132761
	.WORD	000000
	.WORD	M03230
	.WORD	M03320
	.WORD	M03270
	.WORD	M03350
	.WORD	M10556
	.WORD	M03424
	.WORD	M04244
	.WORD	M03602
	.WORD	M04030
	.WORD	M04202
	.WORD	M04052
	.WORD	M04062
	.WORD	M03410
	.WORD	M03652
	.WORD	M10354
	.WORD	M10324
	.WORD	M10334
	.WORD	M10344
	.WORD	M03464
	.WORD	M03544
	.WORD	M03566
	.WORD	M03504
	.WORD	M01636
	.WORD	M01770
	.WORD	M02510
	.WORD	M02124
	.WORD	M03554
	.WORD	M03504
	.WORD	M04172
	.WORD	M04244
	.WORD	M03152
	.WORD	M03176
	.WORD	M03114
	.WORD	M03072
	.WORD	M03562
	.WORD	M04536
	.WORD	M04164
	.WORD	M03350
	.WORD	000000
M01636:
	CMP	L20454, #1

	BNE	M01724
	BIT	#400, L20440

	BNE	M01700
	TST	L20436

	BEQ	M01760
	CALL	M10556

	DEC	L20436

	CALL	M10376

M01700:
	MOV	#20, L20454

	SUB	#20, L20440

	SUB	#20, L20442

	BR	M01746
M01724:
	DEC	L20454

	SUB	#20, L20440

	SUB	#20, L20442

	BR	M01754
M01746:
	BIS	#4000, L20420

M01754:
	CLC
	RETURN
M01760:
	MOV	#17162, R1

	SEC
	RETURN
M01770:
	CMP	L20454, #20

	BNE	M02060
	BIT	#400, L20440

	BEQ	M02034
	CALL	M10556

	CMP	L20436, L20434

	BEQ	M02114
	INC	L20436

	CALL	M10376

M02034:
	MOV	#1, L20454

	ADD	#20, L20440

	ADD	#20, L20442

	BR	M02102
M02060:
	INC	L20454

	ADD	#20, L20440

	ADD	#20, L20442

	BR	M02110
M02102:
	BIS	#4000, L20420

M02110:
	CLC
	RETURN
M02114:
	MOV	#17203, R1

	SEC
	RETURN
M02124:
	BIT	#40000, L20420

	BEQ	M02164
M02134:
	CALL	M02234

	BCS	M02232
	CMP	L20446, #5

	BEQ	M02230
	CMP	L20446, #2

	BEQ	M02230
	BR	M02134
M02164:
	CMP	#1, L20426

	BNE	M02222
	TST	L20446

	BNE	M02222
	MOV	#3, -(SP)

M02206:
	CALL	M02234

	BCS	M02220
	DEC	(SP)
	BNE	M02206
M02220:
	TST	(SP)+
M02222:
	CALL	M02234

	BCS	M02232
M02230:
	CLC
M02232:
	RETURN
M02234:
	TST	L20446

	BNE	M02444
	CMP	L20450, #5

	BNE	M02410
	CMP	L20454, #1

	BNE	M02366
	BIT	#400, L20440

	BNE	M02314
	TST	L20436

	BEQ	M02500
	CALL	M10556

	DEC	L20436

	CALL	M10376

M02314:
	SUB	#2, L20440

	DEC	L20442

	MOV	#20, L20454

	MOV	#73, L20450

	MOV	#115, L20452

	MOV	#5, L20446

	BIS	#4000, L20420

	BR	M02474
M02366:
	DEC	L20454

	MOV	#73, L20450

	MOV	#115, L20452

	BR	M02422
M02410:
	SUB	#2, L20450

	DEC	L20452

M02422:
	MOV	#5, L20446

	SUB	#2, L20440

	DEC	L20442

	BR	M02474
M02444:
	DEC	L20450

	DEC	L20446

	CMP	L20446, #2

	BNE	M02474
	DEC	L20442

	DEC	L20452

M02474:
	CLC
	RETURN
M02500:
	MOV	#17226, R1

	SEC
	RETURN
M02510:
	BIT	#40000, L20420

	BEQ	M02546
M02520:
	CALL	M02616

	BCS	M02614
	TST	L20446

	BEQ	M02612
	CMP	L20446, #3

	BEQ	M02612
	BR	M02520
M02546:
	CMP	#1, L20426

	BNE	M02604
	CMP	#2, L20446

	BNE	M02604
	MOV	#3, -(SP)

M02572:
	CALL	M02616

	DEC	(SP)
	BNE	M02572
	TST	(SP)+
M02604:
	CALL	M02616

	BCS	M02614
M02612:
	CLC
M02614:
	RETURN
M02616:
	CMP	L20446, #5

	BNE	M03026
	CMP	L20450, #73

	BNE	M02774
	CMP	L20454, #20

	BNE	M02752
	BIT	#400, L20440

	BEQ	M02702
	CALL	M10556

	CMP	L20436, L20434

	BEQ	M03062
	INC	L20436

	CALL	M10376

M02702:
	ADD	#2, L20440

	INC	L20442

	MOV	#1, L20454

	MOV	#5, L20450

	MOV	#76, L20452

	CLR	L20446

	BIS	#4000, L20420

	BR	M03056
M02752:
	INC	L20454

	MOV	#5, L20450

	MOV	#76, L20452

	BR	M03006
M02774:
	ADD	#2, L20450

	INC	L20452

M03006:
	CLR	L20446

	ADD	#2, L20440

	INC	L20442

	BR	M03056
M03026:
	INC	L20450

	INC	L20446

	CMP	L20446, #3

	BNE	M03056
	INC	L20442

	INC	L20452

M03056:
	CLC
	RETURN
M03062:
	MOV	#17251, R1

	SEC
	RETURN
M03072:
	MOV	#6, -(SP)

M03076:
	CALL	M02616

	BCS	M03140
	DEC	(SP)
	BNE	M03076
	BR	M03132
	RETURN
M03114:
	MOV	#6, -(SP)

M03120:
	CALL	M02234

	BCS	M03140
	DEC	(SP)
	BNE	M03120
M03132:
	TST	(SP)+
	CLC
	RETURN
M03140:
	TST	(SP)+
	MOV	#17275, R1

	SEC
	RETURN
M03152:
	MOV	#20, R0

M03156:
	MOV	R0, -(SP)
	CALL	M01636

	MOV	(SP)+, R0
	BCS	M03214
	SOB	R0, M03156
	CLC
	RETURN
M03176:
	MOV	#20, R0

M03202:
	MOV	R0, -(SP)
	CALL	M01770

	MOV	(SP)+, R0
	BCC	M03222
M03214:
	MOV	#17327, R1

	RETURN
M03222:
	SOB	R0, M03202
	CLC
	RETURN
M03230:
	CALL	M10556

	BIC	#50000, @#JSW

	MOV	#20512, R0

	MOV	#16400, (R0)

	CLR	2(R0)

	EMT	375
	CALL	M06264

	JMP	START

M03270:
	CALL	M10556

	CALL	M06264

	CALL	M10116

	BCC	M03310
	RETURN
M03310:
	CALL	M06312

	CLC
	RETURN
M03320:
	CALL	M10556

	CALL	M06264

	CALL	M10216

	BCC	M03340
	RETURN
M03340:
	CALL	M06312

	CLC
	RETURN
M03350:
	CALL	M06264

	MOV	#17356, R1

	CALL	M10752

	BCC	M03376
	MOV	#17365, R1

	SEC
	RETURN
M03376:
	MOV	R5, L20444

	CALL	M06312

	RETURN
M03410:
	MOV	#17403, R1

	CALL	M07624

	BEQ	M03462
	BR	M03442
M03424:
	CALL	M10556

	MOV	#17411, R1

	CALL	M07624

	BEQ	M03462
M03442:
	MOV	#20512, R0

	MOV	#16400, (R0)

	CLR	2(R0)

	EMT	375
	EMT	350
M03462:
	RETURN
M03464:
	MOV	#11424, R0

	EMT	351
	BIS	#4000, L20420

	CLC
	RETURN
M03504:
	BIT	#40000, L20420

	BEQ	M03530
	CALL	M07300

	BIC	#40000, L20420

	BR	M03542
M03530:
	CALL	M07326

	BIS	#40000, L20420

M03542:
	RETURN
M03544:
	MOV	#17417, R1

	SEC
	RETURN
M03554:
	MOV	#240, L20460

M03562:
	CLC
	RETURN
M03566:
	CALL	M02124

	BCC	M03600
	MOV	#17445, R1

M03600:
	RETURN
M03602:
	CALL	M06264

	MOV	#17464, R1

	CALL	M10752

	BCC	M03626
	MOV	#17474, R1

	RETURN
M03626:
	ADD	L20440, R5

	BIS	#400, L20420

	CALL	M10216

	CALL	M06312

	RETURN
M03652:
	BIT	#40, L20420

	BEQ	M04004
	MOV	R1, -(SP)
	MOV	#20516, R1

	MOV	#11467, R0

	CALL	M07440

	MOVB	#11, (R1)+

	MOV	#20200, R0

	CALL	M07440

	MOVB	#15, (R1)+

	MOVB	#12, (R1)+

	CLRB	(R1)+
	SUB	#20516, R1

	ASR	R1
	MOV	#20466, R0

	MOV	#4400, (R0)

	CLR	2(R0)

	MOV	#20516, 4(R0)

	MOV	R1, 6(R0)

	CLR	10(R0)

	EMT	375
	MOV	(SP)+, R1
	BCC	M04004
	MOVB	#7, R0

M04000:
	EMT	341
	BCS	M04000
M04004:
	MOV	L20456, R5

	TST	(R5)+
	BIT	#10000, L20420

	BNE	M04100
	SUB	#17636, R5

	BR	M04100
M04030:
	BIS	#400, L20420

	MOV	L13122, R5

	MOV	#177777, L13122

	BR	M04100
M04052:
	CALL	M06410

	MOV	R1, R5
	BR	M04100
M04062:
	CALL	M06410

	MOV	R1, R5
	ADD	#2, R5

	ADD	L20440, R5

M04100:
	MOV	L20270, R1

	CMP	R1, #20244

	BNE	M04140
	MOV	#20264, R0

	MOV	#11, -(SP)

M04122:
	MOV	(R0), 2(R0)

	TST	-(R0)
	DEC	(SP)
	BPL	M04122
	TST	(SP)+
	TST	(R1)+
M04140:
	MOV	L20440, -(R1)

	MOV	R1, L20270

M04150:
	BIS	#400, L20420

	CALL	M10216

	RETURN
M04164:
	MOV	L20422, R5

	BR	M04150
M04172:
	MOV	L20440, L20422

	RETURN
M04202:
	CALL	M10556

	MOV	L20270, R1

	MOV	(R1), R5
	MOV	#177777, (R1)+

	CMP	R1, #20266

	BLOS	M04236
	MOV	#17513, R1

	SEC
	RETURN
M04236:
	MOV	R1, L20270

	BR	M04150
M04244:
	CMP	L20426, #1

	BEQ	M04264
	MOV	#6, L04454

	BR	M04272
M04264:
	MOV	#3, L04454

M04272:
	MOV	L20454, -(SP)

	MOV	L20452, -(SP)

	MOV	L20450, -(SP)

	MOV	L20446, -(SP)

	MOV	L20436, -(SP)

	MOV	L20440, -(SP)

	MOV	L20442, -(SP)

M04326:
	MOV	L04454, R2

M04332:
	TST	L20462

	BNE	M04372
	CALL	M02510

	BCS	M04372
	SOB	R2, M04332
	CALL	M06410

	CMP	L20444, R1

	BNE	M04326
	ADD	#16, SP

	CLC
	RETURN
M04372:
	CLR	L20462

	BIC	#4000, L20420

	MOV	(SP)+, L20442

	MOV	(SP)+, L20440

	MOV	(SP)+, L20436

	MOV	(SP)+, L20446

	MOV	(SP)+, L20450

	MOV	(SP)+, L20452

	MOV	(SP)+, L20454

	CALL	M10376

	MOV	#17531, R1

	SEC
	RETURN
L04454:
	.WORD	000000
M04456:
	BIT	#40000, L20420

	BEQ	M04474
	MOV	#3, R1

	BR	M04500
M04474:
	MOV	L20426, R1

M04500:
	ASL	R1
	CALL	@4520(R1)

	BCS	M04530
	CALL	M02510

	CLC
	RETURN
	.WORD	M04624
	.WORD	M05332
	.WORD	M05032
	.WORD	M05250
M04530:
	MOV	#17552, R1

	RETURN
M04536:
	DEC	L20426

	BPL	M04552
	MOV	#2, L20426

M04552:
	MOVB	L20426, R0

	ADD	#20060, R0

	CMPB	R0, #61

	BNE	M04600
	CLR	L20446

	CALL	M06752

M04600:
	MOV	R0, A11524

	CALL	M05626

	CALL	M07076

	CALL	M07270

	CLC
	RETURN
M04624:
	CMPB	#60, R0

	BHI	M04776
	CMPB	#67, R0

	BCS	M04776
	TST	L20446

	BNE	M04654
	CMPB	#61, R0

	BCS	M04776
M04654:
	BIS	#100000, L20420

M04662:
	EMT	341
	BCS	M04662
	MOV	R0, R1
	SUB	#60, R1

	MOV	L20446, R2

	ASL	R2
	ASL	R2
	MOV	5002(R2), -(SP)

	MOV	5004(R2), R3

	INC	(SP)
	BR	M04722
M04720:
	ASL	R1
M04722:
	DEC	(SP)
	BNE	M04720
	MOV	R1, L20432

	MOV	L20440, (SP)

	BIT	#10000, L20420

	BNE	M04756
	BIC	#177000, (SP)

	ADD	#20636, (SP)

M04756:
	BIC	R3, @0(SP)

	BIS	L20432, @(SP)+

	CALL	M05572

	CLC
	RETURN
M04776:
	SEC
	RETURN
	.WORD	000017
	.WORD	100000
	.WORD	000014
	.WORD	070000
	.WORD	000011
	.WORD	007000
	.WORD	000006
	.WORD	000700
	.WORD	000003
	.WORD	000070
	.WORD	000000
	.WORD	000007
M05032:
	CMPB	#60, R0

	BHI	M05214
	CMPB	#67, R0

	BCS	M05214
	TST	L20446

	BEQ	M05064
	CMP	#3, L20446

	BNE	M05072
M05064:
	CMPB	#63, R0

	BCS	M05214
M05072:
	BIS	#100000, L20420

M05100:
	EMT	341
	BCS	M05100
	MOV	R0, R1
	SUB	#60, R1

	MOV	L20446, R2

	ASL	R2
	ASL	R2
	MOV	5220(R2), -(SP)

	MOV	5222(R2), R3

	INC	(SP)
	BR	M05140
M05136:
	ASL	R1
M05140:
	DEC	(SP)
	BNE	M05136
	MOV	R1, L20432

	MOV	L20440, (SP)

	BIT	#10000, L20420

	BNE	M05174
	BIC	#177000, (SP)

	ADD	#20636, (SP)

M05174:
	BIC	R3, @0(SP)

	BIS	L20432, @(SP)+

	CALL	M05572

	CLC
	RETURN
M05214:
	SEC
	RETURN
	.WORD	000006
	.WORD	000300
	.WORD	000003
	.WORD	000070
	.WORD	000000
	.WORD	000007
	.WORD	000016
	.WORD	140000
	.WORD	000013
	.WORD	034000
	.WORD	000010
	.WORD	003400
M05250:
	CMPB	R0, #40

	BMI	M05326
	BIS	#100000, L20420

	MOV	L20442, -(SP)

	BIT	#10000, L20420

	BNE	M05310
	BIC	#177000, (SP)

	ADD	#20636, (SP)

M05310:
	MOVB	R0, @(SP)+
M05312:
	EMT	341
	BCS	M05312
	CALL	M05504

	CLC
	RETURN
M05326:
	SEC
	RETURN
M05332:
	CMP	#2, L20446

	BMI	M05326
	CMPB	#40, R0

	BEQ	M05414
	CMPB	#44, R0

	BEQ	M05414
	CMPB	#56, R0

	BEQ	M05414
	CMPB	#60, R0

	BHI	M05326
	CMPB	#71, R0

	BCC	M05414
	CMPB	#101, R0

	BHI	M05326
	CMPB	#132, R0

	BCS	M05326
M05414:
	MOV	#20157, -(SP)

	ADD	L20446, (SP)

	MOVB	R0, @(SP)+
M05426:
	EMT	341
	BCS	M05426
	MOV	#20157, R1

	CALL	M17026

	BIS	#100000, L20420

	MOV	L20440, -(SP)

	BIT	#10000, L20420

	BNE	M05474
	BIC	#177000, (SP)

	ADD	#20636, (SP)

M05474:
	MOV	R0, @(SP)+
	CALL	M05572

	RETURN
M05504:
	CALL	M06410

	MOV	L20450, -(SP)

	SUB	L20446, L20450

	CALL	M07300

	MOV	(SP)+, L20450

	TST	L20426

	BEQ	M05556
	CMP	L20426, #1

	BEQ	M05564
	CALL	M06722

	BR	M05570
M05556:
	CALL	M06702

	BR	M05570
M05564:
	CALL	M06642

M05570:
	RETURN
M05572:
	CALL	M06410

	MOV	L20452, -(SP)

	BIC	#1, L20452

	CALL	M07326

	MOV	(SP)+, L20452

	CALL	M06662

	RETURN
M05626:
	BIT	#20000, L20420

	BNE	M05652
	MOV	#11424, R0

	EMT	351
	BIS	#20000, L20420

M05652:
	CLR	R5
	MOV	L20440, R1

	MOV	#11467, R4

	CALL	M16632

	MOVB	#57, (R4)+

	MOV	L20442, R1

	CALL	M16632

	MOV	#11442, R4

	MOV	L20436, R1

	CALL	M16632

	MOVB	#57, (R4)+

	MOVB	#60, (R4)+

	CALL	M16442

	MOV	#11433, R0

	EMT	351
	MOV	#11505, R0

	EMT	351
	CALL	M06444

	BIT	#400, L20440

	BEQ	M05774
	BIS	#400, R5

	ADD	#400, R3

M05774:
	MOV	#20, -(SP)

M06000:
	MOV	#20021, R4

	MOV	R5, R1
	CALL	M16572

	MOVB	#57, (R4)+

	MOVB	#40, (R4)+

	MOV	R3, -(SP)
	MOV	#10, -(SP)

M06030:
	MOV	(R3), R1
	MOV	L20426, R2

	ASL	R2
	CALL	@6210(R2)

	TST	(R3)+
	MOVB	#40, (R4)+

	DEC	(SP)
	BNE	M06030
	TST	(SP)+
	MOVB	#52, (R4)+

	MOV	(SP)+, R3
	MOV	#10, -(SP)

M06072:
	MOV	(R3), R1
	BICB	#200, R1

	CMPB	R1, #40

	BCS	M06112
	MOVB	R1, (R4)+
	BR	M06116
M06112:
	MOVB	#177, (R4)+

M06116:
	SWAB	R1
	BICB	#200, R1

	CMPB	R1, #40

	BCS	M06136
	MOVB	R1, (R4)+
	BR	M06142
M06136:
	MOVB	#177, (R4)+

M06142:
	TST	(R3)+
	TST	(R5)+
	DEC	(SP)
	BNE	M06072
	TST	(SP)+
	MOVB	#52, (R4)+

	MOV	#20021, R0

	EMT	351
	DEC	(SP)
	BNE	M06000
	TST	(SP)+
	MOV	#11357, R0

	EMT	351
	CALL	M06516

	RETURN
	.WORD	M06216
	.WORD	M06224
	.WORD	M06246
M06216:
	CALL	M16632

	RETURN
M06224:
	CALL	M16702

	MOVB	#40, (R4)+

	MOVB	#40, (R4)+

	MOVB	#40, (R4)+

	RETURN
M06246:
	CALL	M16614

	SWAB	R1
	CALL	M16614

	SWAB	R1
	RETURN
M06264:
	MOV	#1, -(SP)

	SWAB	(SP)
	MOVB	#27, (SP)

	ADD	#20040, (SP)

	MOV	(SP)+, R0
	CALL	M07400

	RETURN
M06312:
	MOV	#1, -(SP)

	SWAB	(SP)
	MOVB	#27, (SP)

	ADD	#20040, (SP)

	MOV	(SP)+, R0
	CALL	M07400

	MOV	#11354, R0

	EMT	351
	RETURN
M06346:
	CALL	M06264

	MOV	R1, R0
	EMT	351
	MOV	#11354, R0

	EMT	351
	BIS	#2000, L20420

	CALL	M07270

	MOVB	#7, R0

M06402:
	EMT	341
	BCS	M06402
	RETURN
M06410:
	MOV	L20440, -(SP)

	BIT	#10000, L20420

	BNE	M06434
	BIC	#177000, (SP)

	ADD	#20636, (SP)

M06434:
	MOV	(SP), L20456

	MOV	@(SP)+, R1
	RETURN
M06444:
	BIT	#10000, L20420

	BEQ	M06466
	MOV	L20440, R3

	BIC	#777, R3

	BR	M06472
M06466:
	MOV	#20636, R3

M06472:
	RETURN
M06474:
	MOV	L20440, -(SP)

	BIC	#177000, (SP)

	ADD	#20636, (SP)

	MOV	(SP)+, L20456

	RETURN
M06516:
	MOV	#20266, R2

	MOV	#17722, R4

	MOV	#11, -(SP)

M06532:
	MOV	-(R2), R1
	CALL	M16632

	MOVB	#40, (R4)+

	DEC	(SP)
	BNE	M06532
	TST	(SP)+
	MOVB	#200, (R4)+

	MOV	#14, -(SP)

	SWAB	(SP)
	MOVB	#22, (SP)

	ADD	#20040, (SP)

	MOV	(SP)+, R0
	CALL	M07400

	MOV	#17722, R0

	EMT	351
	RETURN
M06612:
	MOV	#20200, R4

	MOV	L20456, R3

	CALL	M11664

	MOV	R3, L20456

	MOV	#20200, R0

	EMT	351
	RETURN
M06642:
	MOV	#20157, R4

	CALL	M16702

	MOV	#20157, R0

	EMT	351
	RETURN
M06662:
	MOV	#20163, R4

	CALL	M16516

	MOV	#20163, R0

	EMT	351
	RETURN
M06702:
	MOV	#20141, R4

	CALL	M16632

	MOV	#20141, R0

	EMT	351
	RETURN
M06722:
	MOV	#20150, R4

	CALL	M16614

	SWAB	R1
	CALL	M16614

	SWAB	R1
	MOV	#20150, R0

	EMT	351
	RETURN
M06752:
	MOV	L20440, R0

	BIC	#177400, R0

	ASR	R0
	ASR	R0
	ASR	R0
	ASR	R0
	INC	R0
	MOV	R0, L20454

	MOV	L20440, R0

	BIC	#177760, R0

	ASR	R0
	MOV	#5, L20450

	TST	R0
	BEQ	M07036
M07024:
	ADD	#7, L20450

	DEC	R0
	BNE	M07024
M07036:
	MOV	L20440, R0

	BIC	#177760, R0

	ASR	R0
	MOV	#76, L20452

	TST	R0
	BEQ	M07074
M07062:
	ADD	#2, L20452

	DEC	R0
	BNE	M07062
M07074:
	RETURN
M07076:
	MOV	L20440, R1

	MOV	#11467, R4

	CALL	M16632

	MOVB	#57, (R4)+

	MOV	L20442, R1

	CALL	M16632

	MOV	#32, -(SP)

	SWAB	(SP)
	MOVB	#0, (SP)

	ADD	#20040, (SP)

	MOV	(SP)+, R0
	CALL	M07400

	MOV	#11433, R0

	EMT	351
	CALL	M06410

	MOV	#14, -(SP)

	SWAB	(SP)
	MOVB	#24, (SP)

	ADD	#20040, (SP)

	MOV	(SP)+, R0
	CALL	M07400

	CALL	M06612

	MOV	#14, -(SP)

	SWAB	(SP)
	MOVB	#25, (SP)

	ADD	#20040, (SP)

	MOV	(SP)+, R0
	CALL	M07400

	CALL	M06642

	BIT	#2000, L20420

	BEQ	M07266
	BIC	#2000, L20420

	CALL	M06312

M07266:
	RETURN
M07270:
	BIT	#40000, L20420

	BNE	M07326
M07300:
	MOV	L20450, -(SP)

	SWAB	(SP)
	MOVB	L20454, (SP)

	ADD	#20040, (SP)

	MOV	(SP)+, R0
	CALL	M07400

	RETURN
M07326:
	MOV	L20452, -(SP)

	SWAB	(SP)
	MOVB	L20454, (SP)

	ADD	#20040, (SP)

	MOV	(SP)+, R0
	CALL	M07400

	RETURN
M07354:
	EMT	340
	BCS	M07354
	CMPB	R0, #15

	BNE	M07376
M07366:
	EMT	340
	BCS	M07366
	MOVB	#15, R0

M07376:
	RETURN
M07400:
	MOV	R0, -(SP)
	MOVB	#33, R0

M07406:
	EMT	341
	BCS	M07406
	MOVB	#131, R0

M07416:
	EMT	341
	BCS	M07416
	MOV	(SP)+, R0
M07424:
	EMT	341
	BCS	M07424
	SWAB	R0
M07432:
	EMT	341
	BCS	M07432
	RETURN
M07440:
	CMPB	#33, (R0)

	BEQ	M07466
	CMPB	#200, (R0)

	BEQ	M07466
	CMPB	#57, (R0)

	BEQ	M07466
	MOVB	(R0)+, (R1)+
	BR	M07440
M07466:
	RETURN
M07470:
	CMP	L20440, L20424

	BCC	M07514
	MOV	L20440, -(SP)

	MOV	(SP), -(SP)
	MOV	L20424, -(SP)

	BR	M07526
M07514:
	MOV	L20424, -(SP)

	MOV	(SP), -(SP)
	MOV	L20440, -(SP)

M07526:
	MOV	(SP), -(SP)
	BIC	#777, 6(SP)

	BIC	#777, (SP)

	SUB	6(SP), (SP)+

	BNE	M07572
	BIC	2(SP), (SP)

	BIT	#400, (SP)+

	BEQ	M07566
	CMP	(SP)+, (SP)+
	BR	M07602
M07566:
	CMP	(SP)+, (SP)+
	BR	M07606
M07572:
	CMP	(SP)+, (SP)+
	TST	(SP)+
	CALL	M10376

M07602:
	CALL	M05626

M07606:
	CALL	M06752

	CLR	L20446

	CALL	M07076

	RETURN
M07624:
	CALL	M06264

M07630:
	MOVB	(R1)+, R0
	BEQ	M07642
M07634:
	EMT	341
	BCS	M07634
	BR	M07630
M07642:
	MOVB	#40, R0

M07646:
	EMT	341
	BCS	M07646
	MOV	#20166, R1

	CLRB	(R1)
M07660:
	BIS	#10000, @#JSW

	CALL	M07354

	CMPB	#177, R0

	BEQ	M07732
	CMPB	#15, R0

	BEQ	M07774
	CMPB	#131, R0

	BEQ	M07722
	CMPB	#116, R0

	BNE	M07660
M07722:
	MOVB	R0, (R1)+
M07724:
	EMT	341
	BCS	M07724
	BR	M07660
M07732:
	CMP	R1, #20166

	BLOS	M07660
	CLRB	-(R1)
	MOVB	#10, R0

M07746:
	EMT	341
	BCS	M07746
	MOVB	#40, R0

M07756:
	EMT	341
	BCS	M07756
	MOVB	#10, R0

M07766:
	EMT	341
	BCS	M07766
	BR	M07660
M07774:
	CLRB	(R1)+
	CALL	M06312

	CMPB	#116, L20166

	RETURN
M10012:
	MOV	#3003, R0

	EMT	374
	MOV	SP, R5
	MOV	#20302, -(SP)

	MOV	#11344, -(SP)

	CLR	-(SP)
	EMT	345
	MOV	R5, SP
	TST	L20340

	BNE	M10052
	SEC
	RETURN
M10052:
	MOV	#20500, R0

	MOV	#403, (R0)

	MOV	#20340, 2(R0)

	EMT	375
	BCC	M10104
	MOV	#11556, R0

	EMT	351
	BR	M10012
M10104:
	MOV	R0, L20434

	DEC	L20434

	RETURN
M10116:
	MOV	#17602, R1

	CALL	M10752

	BCC	M10140
M10130:
	MOV	#17611, R1

	SEC
	RETURN
M10140:
	MOV	L20440, L20424

	MOV	R5, -(SP)
	CMP	(SP), L20434

	BLOS	M10162
	TST	(SP)+
	BR	M10130
M10162:
	MOV	(SP), L20436

	SWAB	(SP)
	ROL	(SP)
	BIC	#777, (SP)

	MOV	(SP), L20442

	MOV	(SP)+, L20440

	CALL	M07470

	CLC
	RETURN
M10216:
	MOV	#17627, R1

	CALL	M10752

	BCC	M10240
M10230:
	MOV	#17640, R1

	SEC
	RETURN
M10240:
	MOV	L20440, L20424

	MOV	R5, -(SP)
	BIC	#1, (SP)

	MOV	(SP), -(SP)
	BIC	#777, (SP)

	SWAB	(SP)
	ROR	(SP)
	CMP	(SP), L20434

	BLOS	M10300
	CMP	(SP)+, (SP)+
	BR	M10230
M10300:
	MOV	(SP)+, L20436

	MOV	(SP), L20440

	MOV	(SP)+, L20442

	CALL	M07470

	CLC
	RETURN
M10324:
	BIS	#40, L20420

	RETURN
M10334:
	BIC	#40, L20420

	RETURN
M10344:
	MOV	#3000, R0

	EMT	374
	RETURN
M10354:
	MOV	#20466, R0

	MOV	#1000, (R0)

	MOV	#20272, 2(R0)

	EMT	375
	RETURN
M10376:
	CALL	M10556

	BIT	#10000, L20420

	BNE	M10552
	MOV	#402, L10554

	CMP	L20436, L20434

	BEQ	M10446
	MOV	#400, L10554

	BIT	#10000, L20420

	BNE	M10522
M10446:
	MOV	#20500, R0

	MOV	#4003, (R0)

	MOV	L20436, 2(R0)

	MOV	#20636, 4(R0)

	MOV	L10554, 6(R0)

	CLR	10(R0)

	EMT	375
	BCC	M10546
	MOV	#17660, R1

	CALL	M06346

	RETURN
M10522:
	CALL	M10732

	CALL	M06444

	MOV	L10554, -(SP)

M10536:
	MOV	(R0)+, (R3)+
	DEC	(SP)
	BNE	M10536
	TST	(SP)+
M10546:
	CALL	M06474

M10552:
	RETURN
L10554:
	.WORD	000000
M10556:
	BIT	#100000, L20420

	BEQ	M10726
	BIT	#10000, L20420

	BNE	M10726
	MOV	#17674, R1

	CALL	M07624

	BEQ	M10720
	BIT	#10000, L20420

	BNE	M10674
	MOV	#20500, R0

	MOV	#4403, (R0)

	MOV	L20436, 2(R0)

	MOV	#20636, 4(R0)

	MOV	#400, 6(R0)

	CLR	10(R0)

	EMT	375
	BCC	M10720
	MOV	#17705, R1

	CALL	M06346

	RETURN
M10674:
	CALL	M10732

	CALL	M06444

	MOV	#400, -(SP)

M10710:
	MOV	(R3)+, (R0)+
	DEC	(SP)
	BNE	M10710
	TST	(SP)+
M10720:
	BIC	#100000, L20420

M10726:
	CLC
	RETURN
M10732:
	MOV	L20436, -(SP)

	SWAB	(SP)
	ROL	(SP)
	BIC	#777, (SP)

	MOV	(SP)+, R0
	RETURN
M10752:
	BIT	#400, L20420

	BEQ	M10776
	BIC	#400, L20420

	CALL	M06516

	RETURN
M10776:
	BIC	#400, L20420

	CALL	M11110

	MOV	#20166, R1

	BIT	#1000, L20420

	BEQ	M11034
	CALL	M17026

	MOV	R0, R5
	RETURN
M11034:
	CLR	R5
	TSTB	(R1)
	BEQ	M11100
M11042:
	MOVB	(R1)+, R2
	BEQ	M11100
	BIC	#177600, R2

	SUB	#60, R2

	BCS	M11104
	CMPB	#7, R2

	BCS	M11104
	ASL	R5
	ASL	R5
	ASL	R5
	ADD	R2, R5
	BR	M11042
M11100:
	CLC
	RETURN
M11104:
	SEC
	RETURN
M11110:
	MOVB	(R1)+, R0
	BEQ	M11122
M11114:
	EMT	341
	BCS	M11114
	BR	M11110
M11122:
	MOVB	#40, R0

M11126:
	EMT	341
	BCS	M11126
	MOV	#20166, R1

	CLRB	(R1)
M11140:
	BIS	#10000, @#JSW

	CALL	M07354

	CMPB	#177, R0

	BEQ	M11276
	CMPB	#15, R0

	BEQ	M11340
	CMPB	#40, R0

	BEQ	M11260
	CMPB	#44, R0

	BEQ	M11260
	CMPB	#56, R0

	BEQ	M11260
	CMPB	#55, R0

	BEQ	M11250
	CMPB	#60, R0

	BHI	M11140
	CMPB	#71, R0

	BCC	M11266
	CMPB	#101, R0

	BCS	M11260
	CMPB	#132, R0

	BCC	M11260
	BR	M11140
M11250:
	BIS	#200, L20420

	BR	M11270
M11260:
	BIS	#1000, L20420

M11266:
	MOVB	R0, (R1)+
M11270:
	EMT	341
	BCS	M11270
	BR	M11140
M11276:
	CMP	R1, #20166

	BLOS	M11140
	CLRB	-(R1)
	MOVB	#10, R0

M11312:
	EMT	341
	BCS	M11312
	MOVB	#40, R0

M11322:
	EMT	341
	BCS	M11322
	MOVB	#10, R0

M11332:
	EMT	341
	BCS	M11332
	BR	M11140
M11340:
	CLRB	(R1)+
	RETURN
	.RAD50	/SAV/
	.RAD50	/SAV/
	.RAD50	/SAV/
	.RAD50	/SAV/
	.ASCII	<ESC>|K|<200>
	.ASCIZ	<LF><CR>|Stack   :|<LF><CR><LF><CR>|Macro-11:|<LF><CR>|Rad50   :|<200>

	.ASCIZ	<27><ESC>|H|<ESC>|J|<200>

	.ASCII	<ESC>|HBLCK=000000/000000.  ADDR=000000/000000|<200>

	.ASCII	|          TYPE=|

A11524:
	.ASCIZ	|0            DESS V05.10s|

	.ASCIZ	|?DESS-F-File not found|

	.ASCIZ	|?DESS-W-Device full|

	.ASCIZ	<CR><LF>|Memory immediate editor|
	.EVEN

M11664:
	MOV	R1, -(SP)
	MOV	R2, -(SP)
	MOV	R5, -(SP)
	CALL	M13116

	CLR	R2
M11700:
	MOV	R5, R1
	BIC	15122(R2), R1

	CMP	R1, 15502(R2)

	BEQ	M11720
	TST	(R2)+
	BR	M11700
M11720:
	MOV	14542(R2), R1

M11724:
	MOVB	(R1)+, (R4)+
	TSTB	(R1)
	BNE	M11724
	JMP	@16062(R2)

M11736:
	MOVB	#33, (R4)+

	MOVB	#113, (R4)+

	CLRB	R0
	MOVB	R0, (R4)+
	MOV	(SP)+, R5
	MOV	(SP)+, R2
	MOV	(SP)+, R1
	RETURN
M11762:
	MOV	R1, R2
	BIC	#177770, R1

	BIC	#177707, R2

	ASR	R2
	ASR	R2
	JMP	@12004(R2)

	.WORD	M12024
	.WORD	M12102
	.WORD	M12120
	.WORD	M12164
	.WORD	M12172
	.WORD	M12200
	.WORD	M12206
	.WORD	M12262
M12024:
	CMP	#7, R1

	BNE	M12044
	MOVB	#120, (R4)+

	MOVB	#103, (R4)+

	RETURN
M12044:
	CMP	#6, R1

	BNE	M12064
	MOVB	#123, (R4)+

	MOVB	#120, (R4)+

	RETURN
M12064:
	MOVB	#122, (R4)+

	MOV	R1, R0
	ADD	#60, R0

	MOVB	R0, (R4)+
	RETURN
M12102:
	MOVB	#50, (R4)+

	CALL	M12024

	MOVB	#51, (R4)+

	RETURN
M12120:
	CMP	#7, R1

	BEQ	M12140
	CALL	M12102

	MOVB	#53, (R4)+

	RETURN
M12140:
	MOVB	#43, (R4)+

	MOV	R5, -(SP)
	CALL	M13114

	MOV	R5, R1
	CALL	M16632

	MOV	(SP)+, R5
	RETURN
M12164:
	MOVB	#100, (R4)+

	BR	M12120
M12172:
	MOVB	#55, (R4)+

	BR	M12102
M12200:
	MOVB	#100, (R4)+

	BR	M12172
M12206:
	MOV	R5, -(SP)
	MOV	R1, -(SP)
	CALL	M13114

	MOV	R5, R1
	CMP	#7, (SP)

	BNE	M12236
	ADD	L20440, R1

	ADD	#4, R1

M12236:
	CALL	M16632

	MOV	(SP)+, R1
	MOV	(SP)+, R5
	CMP	#7, R1

	BEQ	M12260
	CALL	M12102

M12260:
	RETURN
M12262:
	MOVB	#100, (R4)+

	BR	M12206
M12270:
	MOV	R5, R1
	BIC	#177700, R1

	CALL	M11762

	JMP	M11736

M12306:
	MOV	R5, R1
	BIC	#177770, R1

	CLR	R2
	CALL	M12024

	JMP	M11736

M12326:
	MOV	R5, R0
	BIC	#177770, R0

	ADD	#60, R0

	MOVB	R0, (R4)+
	JMP	M11736

M12346:
	MOV	R5, R0
	ROR	R0
	ROR	R0
	ROR	R0
	BIC	#177770, R0

	ADD	#60, R0

	MOVB	R0, (R4)+
	BR	M12326
M12372:
	MOV	R5, R1
	BIC	#177400, R1

	CALL	M16614

	JMP	M11736

M12410:
	MOV	R5, R1
	CALL	M16632

	JMP	M11736

M12422:
	MOVB	R5, R1
	CCC
	ROL	R1
	ADD	L20440, R1

	ADD	#2, R1

	MOV	R1, L13122

	CALL	M16632

	JMP	M11736

M12454:
	MOV	R5, R1
	ROR	R1
	ROR	R1
	ROR	R1
	ROR	R1
	ROR	R1
	ROR	R1
	BIC	#177770, R1

	CLR	R2
	CALL	M12024

M12504:
	MOVB	#54, (R4)+

	MOV	R5, R1
	BIC	#177700, R1

	CALL	M11762

	JMP	M11736

M12526:
	MOV	R5, R1
	ROR	R1
	ROR	R1
	ROR	R1
	ROR	R1
	ROR	R1
	ROR	R1
	BIC	#177700, R1

	CALL	M11762

	BR	M12504
M12556:
	MOV	R5, R1
	BIC	#177700, R1

	CALL	M11762

	MOVB	#54, (R4)+

	ROR	R1
	ROR	R1
	ROR	R1
	ROR	R1
	ROR	R1
	ROR	R1
	BIC	#177770, R1

	CLR	R2
	CALL	M12024

	JMP	M11736

	CALL	M12716

	MOVB	#54, (R4)+

M12636:
	CALL	M12666

	JMP	M11736

M12646:
	CALL	M12666

	MOVB	#54, (R4)+

	CALL	M12716

	JMP	M11736

M12666:
	MOV	R5, R1
	BIC	#177700, R1

	BIT	#70, R1

	BNE	M12710
	CALL	M12740

	RETURN
M12710:
	CALL	M11762

	RETURN
M12716:
	MOV	R5, R1
	ROR	R1
	ROR	R1
	ROR	R1
	ROR	R1
	ROR	R1
	ROR	R1
	BIC	#177774, R1

M12740:
	BIC	#177770, R1

	MOVB	#101, (R4)+

	MOVB	#103, (R4)+

	MOV	R1, R0
	ADD	#60, R0

	MOVB	R0, (R4)+
	RETURN
M12766:
	MOV	R5, R1
	ROR	R1
	ROR	R1
	ROR	R1
	ROR	R1
	ROR	R1
	ROR	R1
	BIC	#177770, R1

	CLR	R2
	CALL	M12024

	MOVB	#54, (R4)+

	MOV	R5, R1
	BIC	#177700, R1

	DEC	R1
	NEG	R1
	ASL	R1
	ADD	L20440, R1

	MOV	R1, L13122

	CALL	M16632

	JMP	M11736

	CALL	M12716

	JMP	M12504

	MOV	R5, R1
	BIC	#177700, R1

	CALL	M11762

	MOVB	#54, (R4)+

	CALL	M12716

	JMP	M11736

M13114:
	TST	(R3)+
M13116:
	MOV	(R3), R5
	RETURN
L13122:
	.WORD	000000
A13124:
	.ASCIZ	|WAIT|

A13131:
	.ASCIZ	|RTI|

A13135:
	.ASCIZ	|BPT|

A13141:
	.ASCIZ	|IOT|

A13145:
	.ASCIZ	|RESET|

A13153:
	.ASCIZ	|RTT|

A13157:
	.ASCIZ	|JMP   |

A13166:
	.ASCIZ	|RTS   |

A13175:
	.ASCIZ	|SPL   |

A13204:
	.ASCIZ	|NOP|

A13210:
	.ASCIZ	|NOP|

A13214:
	.ASCIZ	|CLC|

A13220:
	.ASCIZ	|CLV|

A13224:
	.ASCIZ	|CLZ|

A13230:
	.ASCIZ	|CLN|

A13234:
	.ASCIZ	|SEC|

A13240:
	.ASCIZ	|SEV|

A13244:
	.ASCIZ	|SEZ|

A13250:
	.ASCIZ	|SEN|

A13254:
	.ASCIZ	|SCC|

A13260:
	.ASCIZ	|SWAB  |

A13267:
	.ASCIZ	|BR    |

A13276:
	.ASCIZ	|BNE   |

A13305:
	.ASCIZ	|BEQ   |

A13314:
	.ASCIZ	|BGE   |

A13323:
	.ASCIZ	|BLT   |

A13332:
	.ASCIZ	|BGT   |

A13341:
	.ASCIZ	|BLE   |

A13350:
	.ASCIZ	|JSR   |

A13357:
	.ASCIZ	|CLR   |

A13366:
	.ASCIZ	|COM   |

A13375:
	.ASCIZ	|INC   |

A13404:
	.ASCIZ	|DEC   |

A13413:
	.ASCIZ	|NEG   |

A13422:
	.ASCIZ	|ADC   |

A13431:
	.ASCIZ	|SBC   |

A13440:
	.ASCIZ	|TST   |

A13447:
	.ASCIZ	|ROR   |

A13456:
	.ASCIZ	|ROL   |

A13465:
	.ASCIZ	|ASR   |

A13474:
	.ASCIZ	|ASL   |

A13503:
	.ASCIZ	|MARK  |

A13512:
	.ASCIZ	|MFPI  |

A13521:
	.ASCIZ	|MTPI  |

A13530:
	.ASCIZ	|SXT   |

A13537:
	.ASCIZ	|MOV   |

A13546:
	.ASCIZ	|CMP   |

A13555:
	.ASCIZ	|BIT   |

A13564:
	.ASCIZ	|BIC   |

A13573:
	.ASCIZ	|BIS   |

A13602:
	.ASCIZ	|ADD   |

A13611:
	.ASCIZ	|MUL   |

A13620:
	.ASCIZ	|DIV   |

A13627:
	.ASCIZ	|ASH   |

A13636:
	.ASCIZ	|ASHC  |

A13645:
	.ASCIZ	|XOR   |

A13654:
	.ASCIZ	|FADD  |

A13663:
	.ASCIZ	|FSUB  |

A13672:
	.ASCIZ	|FMUL  |

A13701:
	.ASCIZ	|FDIV  |

A13710:
	.ASCIZ	|SOB   |

A13717:
	.ASCIZ	|BPL   |

A13726:
	.ASCIZ	|BMI   |

A13735:
	.ASCIZ	|BHI   |

A13744:
	.ASCIZ	|BLOS  |

A13753:
	.ASCIZ	|BVC   |

A13762:
	.ASCIZ	|BVS   |

A13771:
	.ASCIZ	|BCC   |

A14000:
	.ASCIZ	|BCS   |

A14007:
	.ASCIZ	|EMT   |

A14016:
	.ASCIZ	|TRAP  |

A14025:
	.ASCIZ	|CLRB  |

A14034:
	.ASCIZ	|COMB  |

A14043:
	.ASCIZ	|INCB  |

A14052:
	.ASCIZ	|DECB  |

A14061:
	.ASCIZ	|NEGB  |

A14070:
	.ASCIZ	|ADCB  |

A14077:
	.ASCIZ	|SBCB  |

A14106:
	.ASCIZ	|TSTB  |

A14115:
	.ASCIZ	|RORB  |

A14124:
	.ASCIZ	|ROLB  |

A14133:
	.ASCIZ	|ASRB  |

A14142:
	.ASCIZ	|ASLB  |

A14151:
	.ASCIZ	|MTPS  |

A14160:
	.ASCIZ	|MFPD  |

A14167:
	.ASCIZ	|MTPD  |

A14176:
	.ASCIZ	|MFPS  |

A14205:
	.ASCIZ	|MOVB  |

A14214:
	.ASCIZ	|CMPB  |

A14223:
	.ASCIZ	|BITB  |

A14232:
	.ASCIZ	|BICB  |

A14241:
	.ASCIZ	|BISB  |

A14250:
	.ASCIZ	|SUB   |

A14257:
	.ASCIZ	|CFCC|

A14264:
	.ASCIZ	|SETF|

A14271:
	.ASCIZ	|SETI|

A14276:
	.ASCIZ	|SETD|

A14303:
	.ASCIZ	|SETL|

A14310:
	.ASCIZ	|LDFPS |

A14317:
	.ASCIZ	|STFPS |

A14326:
	.ASCIZ	|STST  |

A14335:
	.ASCIZ	|CLRF  |

A14344:
	.ASCIZ	|TSTF  |

A14353:
	.ASCIZ	|ABSF  |

A14362:
	.ASCIZ	|NEGF  |

A14371:
	.ASCIZ	|MULF  |

A14400:
	.ASCIZ	|MODF  |

A14407:
	.ASCIZ	|ADDF  |

A14416:
	.ASCIZ	|LDF   |

A14425:
	.ASCIZ	|SUBF  |

A14434:
	.ASCIZ	|CMPF  |

A14443:
	.ASCIZ	|STF   |

A14452:
	.ASCIZ	|DIVF  |

A14461:
	.ASCIZ	|STEXP |

A14470:
	.ASCIZ	|STCFI |

A14477:
	.ASCIZ	|STCFD |

A14506:
	.ASCIZ	|LDEXP |

A14515:
	.ASCIZ	|LDCIF |

A14524:
	.ASCIZ	|LDCDF |

A14533:
	.ASCIZ	|.WORD |

	.WORD	A13124
	.WORD	A13131
	.WORD	A13135
	.WORD	A13141
	.WORD	A13145
	.WORD	A13153
	.WORD	A13157
	.WORD	A13166
	.WORD	A13175
	.WORD	A13204
	.WORD	A13210
	.WORD	A13214
	.WORD	A13220
	.WORD	A13224
	.WORD	A13230
	.WORD	A13234
	.WORD	A13240
	.WORD	A13244
	.WORD	A13250
	.WORD	A13254
	.WORD	A13260
	.WORD	A13267
	.WORD	A13276
	.WORD	A13305
	.WORD	A13314
	.WORD	A13323
	.WORD	A13332
	.WORD	A13341
	.WORD	A13350
	.WORD	A13357
	.WORD	A13366
	.WORD	A13375
	.WORD	A13404
	.WORD	A13413
	.WORD	A13422
	.WORD	A13431
	.WORD	A13440
	.WORD	A13447
	.WORD	A13456
	.WORD	A13465
	.WORD	A13474
	.WORD	A13503
	.WORD	A13512
	.WORD	A13521
	.WORD	A13530
	.WORD	A13537
	.WORD	A13546
	.WORD	A13555
	.WORD	A13564
	.WORD	A13573
	.WORD	A13602
	.WORD	A13611
	.WORD	A13620
	.WORD	A13627
	.WORD	A13636
	.WORD	A13645
	.WORD	A13654
	.WORD	A13663
	.WORD	A13672
	.WORD	A13701
	.WORD	A13710
	.WORD	A13717
	.WORD	A13726
	.WORD	A13735
	.WORD	A13744
	.WORD	A13753
	.WORD	A13762
	.WORD	A13771
	.WORD	A14000
	.WORD	A14007
	.WORD	A14016
	.WORD	A14025
	.WORD	A14034
	.WORD	A14043
	.WORD	A14052
	.WORD	A14061
	.WORD	A14070
	.WORD	A14077
	.WORD	A14106
	.WORD	A14115
	.WORD	A14124
	.WORD	A14133
	.WORD	A14142
	.WORD	A14151
	.WORD	A14160
	.WORD	A14167
	.WORD	A14176
	.WORD	A14205
	.WORD	A14214
	.WORD	A14223
	.WORD	A14232
	.WORD	A14241
	.WORD	A14250
	.WORD	A14257
	.WORD	A14264
	.WORD	A14271
	.WORD	A14276
	.WORD	A14303
	.WORD	A14310
	.WORD	A14317
	.WORD	A14326
	.WORD	A14335
	.WORD	A14344
	.WORD	A14353
	.WORD	A14362
	.WORD	A14371
	.WORD	A14400
	.WORD	A14407
	.WORD	A14416
	.WORD	A14425
	.WORD	A14434
	.WORD	A14443
	.WORD	A14452
	.WORD	A14461
	.WORD	A14470
	.WORD	A14477
	.WORD	A14506
	.WORD	A14515
	.WORD	A14524
	.WORD	A14533
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000077
	.WORD	000007
	.WORD	000007
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000077
	.WORD	000377
	.WORD	000377
	.WORD	000377
	.WORD	000377
	.WORD	000377
	.WORD	000377
	.WORD	000377
	.WORD	000777
	.WORD	000077
	.WORD	000077
	.WORD	000077
	.WORD	000077
	.WORD	000077
	.WORD	000077
	.WORD	000077
	.WORD	000077
	.WORD	000077
	.WORD	000077
	.WORD	000077
	.WORD	000077
	.WORD	000077
	.WORD	000077
	.WORD	000077
	.WORD	000077
	.WORD	007777
	.WORD	007777
	.WORD	007777
	.WORD	007777
	.WORD	007777
	.WORD	007777
	.WORD	000777
	.WORD	000777
	.WORD	000777
	.WORD	000777
	.WORD	000777
	.WORD	000007
	.WORD	000007
	.WORD	000007
	.WORD	000007
	.WORD	000777
	.WORD	000377
	.WORD	000377
	.WORD	000377
	.WORD	000377
	.WORD	000377
	.WORD	000377
	.WORD	000377
	.WORD	000377
	.WORD	000377
	.WORD	000377
	.WORD	000077
	.WORD	000077
	.WORD	000077
	.WORD	000077
	.WORD	000077
	.WORD	000077
	.WORD	000077
	.WORD	000077
	.WORD	000077
	.WORD	000077
	.WORD	000077
	.WORD	000077
	.WORD	000077
	.WORD	000077
	.WORD	000077
	.WORD	000077
	.WORD	007777
	.WORD	007777
	.WORD	007777
	.WORD	007777
	.WORD	007777
	.WORD	007777
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000077
	.WORD	000077
	.WORD	000077
	.WORD	000077
	.WORD	000077
	.WORD	000077
	.WORD	000077
	.WORD	000377
	.WORD	000377
	.WORD	000377
	.WORD	000377
	.WORD	000377
	.WORD	000377
	.WORD	000377
	.WORD	000377
	.WORD	000377
	.WORD	000377
	.WORD	000377
	.WORD	000377
	.WORD	000377
	.WORD	000377
	.WORD	177777
	.WORD	WAIT
	.WORD	RTI
	.WORD	BPT
	.WORD	IOT
	.WORD	RESET
	.WORD	RTT
	.WORD	JMP
	.WORD	RTS
	.WORD	SPL
	.WORD	NOP
	.WORD	NOP!20
	.WORD	CLC
	.WORD	CLV
	.WORD	CLZ
	.WORD	CCC
	.WORD	SEC
	.WORD	SEV
	.WORD	SEZ
	.WORD	SEN
	.WORD	SCC
	.WORD	SWAB
	.WORD	BR
	.WORD	BNE
	.WORD	BEQ
	.WORD	BGE
	.WORD	BLT
	.WORD	BGT
	.WORD	BLE
	.WORD	JSR
	.WORD	CLR
	.WORD	COM
	.WORD	INC
	.WORD	DEC
	.WORD	NEG
	.WORD	ADC
	.WORD	SBC
	.WORD	TST
	.WORD	ROR
	.WORD	ROL
	.WORD	ASR
	.WORD	ASL
	.WORD	MARK
	.WORD	MFPI
	.WORD	MTPI
	.WORD	SXT
	.WORD	MOV
	.WORD	CMP
	.WORD	BIT
	.WORD	BIC
	.WORD	BIS
	.WORD	ADD
	.WORD	MUL
	.WORD	DIV
	.WORD	ASH
	.WORD	ASHC
	.WORD	XOR
	.WORD	075000
	.WORD	075010
	.WORD	075020
	.WORD	075030
	.WORD	SOB
	.WORD	BPL
	.WORD	BMI
	.WORD	BHI
	.WORD	BLOS
	.WORD	BVC
	.WORD	BVS
	.WORD	BCC
	.WORD	BCS
	.WORD	EMT
	.WORD	TRAP
	.WORD	CLRB
	.WORD	COMB
	.WORD	INCB
	.WORD	DECB
	.WORD	NEGB
	.WORD	ADCB
	.WORD	SBCB
	.WORD	TSTB
	.WORD	RORB
	.WORD	ROLB
	.WORD	ASRB
	.WORD	ASLB
	.WORD	MTPS
	.WORD	MFPD
	.WORD	MTPD
	.WORD	MFPS
	.WORD	MOVB
	.WORD	CMPB
	.WORD	BITB
	.WORD	BICB
	.WORD	BISB
	.WORD	SUB
	.WORD	170000
	.WORD	170001
	.WORD	170002
	.WORD	170011
	.WORD	170012
	.WORD	170100
	.WORD	170200
	.WORD	170300
	.WORD	170400
	.WORD	170500
	.WORD	170600
	.WORD	170700
	.WORD	171000
	.WORD	171400
	.WORD	172000
	.WORD	172400
	.WORD	173000
	.WORD	173400
	.WORD	174000
	.WORD	174400
	.WORD	175000
	.WORD	175400
	.WORD	176000
	.WORD	176400
	.WORD	177000
	.WORD	177400
	.WORD	0
	.WORD	M11736
	.WORD	M11736
	.WORD	M11736
	.WORD	M11736
	.WORD	M11736
	.WORD	M11736
	.WORD	M12270
	.WORD	M12306
	.WORD	M12326
	.WORD	M11736
	.WORD	M11736
	.WORD	M11736
	.WORD	M11736
	.WORD	M11736
	.WORD	M11736
	.WORD	M11736
	.WORD	M11736
	.WORD	M11736
	.WORD	M11736
	.WORD	M11736
	.WORD	M12270
	.WORD	M12422
	.WORD	M12422
	.WORD	M12422
	.WORD	M12422
	.WORD	M12422
	.WORD	M12422
	.WORD	M12422
	.WORD	M12454
	.WORD	M12270
	.WORD	M12270
	.WORD	M12270
	.WORD	M12270
	.WORD	M12270
	.WORD	M12270
	.WORD	M12270
	.WORD	M12270
	.WORD	M12270
	.WORD	M12270
	.WORD	M12270
	.WORD	M12270
	.WORD	M12346
	.WORD	M12270
	.WORD	M12270
	.WORD	M12270
	.WORD	M12526
	.WORD	M12526
	.WORD	M12526
	.WORD	M12526
	.WORD	M12526
	.WORD	M12526
	.WORD	M12556
	.WORD	M12556
	.WORD	M12556
	.WORD	M12556
	.WORD	M12454
	.WORD	M12306
	.WORD	M12306
	.WORD	M12306
	.WORD	M12306
	.WORD	M12766
	.WORD	M12422
	.WORD	M12422
	.WORD	M12422
	.WORD	M12422
	.WORD	M12422
	.WORD	M12422
	.WORD	M12422
	.WORD	M12422
	.WORD	M12372
	.WORD	M12372
	.WORD	M12270
	.WORD	M12270
	.WORD	M12270
	.WORD	M12270
	.WORD	M12270
	.WORD	M12270
	.WORD	M12270
	.WORD	M12270
	.WORD	M12270
	.WORD	M12270
	.WORD	M12270
	.WORD	M12270
	.WORD	M12270
	.WORD	M12270
	.WORD	M12270
	.WORD	M12270
	.WORD	M12526
	.WORD	M12526
	.WORD	M12526
	.WORD	M12526
	.WORD	M12526
	.WORD	M12526
	.WORD	M11736
	.WORD	M11736
	.WORD	M11736
	.WORD	M11736
	.WORD	M11736
	.WORD	M12270
	.WORD	M12270
	.WORD	M12270
	.WORD	M12636
	.WORD	M12636
	.WORD	M12636
	.WORD	M12636
	.WORD	M12646
	.WORD	M12646
	.WORD	M12646
	.WORD	M12646
	.WORD	M12646
	.WORD	M12646
	.WORD	M12646
	.WORD	M12646
	.WORD	M12646
	.WORD	M12646
	.WORD	M12646
	.WORD	M12646
	.WORD	M12646
	.WORD	M12646
	.WORD	M12410
M16442:
	MOV	R1, -(SP)
	MOV	#16502, R2

M16450:
	CLR	R0
M16452:
	CMP	R1, (R2)
	BCS	M16464
	SUB	(R2), R1
	INC	R0
	BR	M16452
M16464:
	ADD	#60, R0

	MOVB	R0, (R4)+
	TST	(R2)+
	TST	(R2)
	BNE	M16450
	BR	M16676
	.WORD	023420
	.WORD	001750
	.WORD	000144
	.WORD	000012
	.WORD	000001
	.WORD	000000
M16516:
	MOV	R1, -(SP)
	BICB	#200, R1

	CMPB	R1, #40

	BMI	M16536
	MOVB	R1, (R4)+
	BR	M16542
M16536:
	MOVB	#177, (R4)+

M16542:
	SWAB	R1
	BICB	#200, R1

	CMPB	R1, #40

	BMI	M16564
	MOVB	R1, (R4)+
	SWAB	R1
	BR	M16570
M16564:
	MOVB	#177, (R4)+

M16570:
	BR	M16676
M16572:
	MOV	R1, -(SP)
	MOV	#7, -(SP)

M16600:
	ASL	R1
	DEC	(SP)
	BNE	M16600
	MOV	#3, (SP)

	BR	M16646
M16614:
	MOV	R1, -(SP)
	MOV	#3, -(SP)

	MOV	#14, R0

	SWAB	R1
	BR	M16656
M16632:
	MOV	R1, -(SP)
	MOV	#6, -(SP)

	MOV	#30, R0

	BR	M16662
M16646:
	MOV	#6, R0

	ASL	R1
	ROL	R0
M16656:
	ASL	R1
	ROL	R0
M16662:
	ASL	R1
	ROL	R0
	MOVB	R0, (R4)+
	DEC	(SP)
	BNE	M16646
	TST	(SP)+
M16676:
	MOV	(SP)+, R1
	RETURN
M16702:
	MOV	R1, -(SP)
	MOV	R3, -(SP)
	MOV	#3, -(SP)

	MOV	#17024, R3

M16716:
	TST	-(R3)
	MOV	#177777, R0

	CMP	#174777, R1

	BCS	M16756
M16732:
	INC	R0
	SUB	(R3), R1
	BCC	M16732
	ADD	(R3), R1
	TST	R0
	BEQ	M16762
	CMP	#33, R0

	BCS	M16766
	BEQ	M16772
M16756:
	ADD	#40, R0

M16762:
	ADD	#16, R0

M16766:
	ADD	#11, R0

M16772:
	ADD	#11, R0

	MOVB	R0, (R4)+
	DEC	(SP)
	BNE	M16716
	TST	(SP)+
	MOV	(SP)+, R3
	MOV	(SP)+, R1
	RETURN
	.WORD	000000
	.WORD	000001
	.WORD	000050
	.WORD	003100
	.WORD	000000
M17026:
	MOV	R2, -(SP)
	MOV	R3, -(SP)
	MOV	#3, -(SP)

	CLR	R2
M17040:
	MOVB	(R1)+, R3
	CMPB	#40, R3

	BEQ	M17070
	CMPB	#44, R3

	BEQ	M17100
	CMPB	R3, #101

	BCS	M17074
	SUB	#40, R3

M17070:
	SUB	#16, R3

M17074:
	SUB	#11, R3

M17100:
	SUB	#11, R3

	ASL	R2
	ASL	R2
	ASL	R2
	MOV	R2, -(SP)
	ASL	R2
	ASL	R2
	ADD	(SP)+, R2
	ADD	R3, R2
	DEC	(SP)
	BNE	M17040
	TST	(SP)+
	MOV	R2, R0
	MOV	(SP)+, R3
	MOV	(SP)+, R2
	RETURN
	.ASCII	|Invalid command|<200>

	.ASCII	|At up margin now|<200>

	.ASCII	|At down margin now|<200>

	.ASCII	|At left margin now|<200>

	.ASCII	|At right margin now|<200>

	.ASCII	|Word at left/right margin|<200>

	.ASCII	|Line at up/down margin|<200>

	.ASCIZ	|Model:|

	.ASCII	|Invalid model|<200>

	.ASCIZ	|Quit?|

	.ASCIZ	|Exit?|

	.ASCII	|^C ignored - use exit|<200>

	.ASCII	|Nothing delete|<200>

	.ASCIZ	|Offset:|

	.ASCII	|Invalid offset|<200>

	.ASCII	|Stack top now|<200>

	.ASCII	|Target not found|<200>

	.ASCII	|Invalid char for insert|<200>

	.ASCIZ	|Block:|

	.ASCII	|Invalid block|<200>

	.ASCIZ	|Address:|

	.ASCII	|Invalid address|<200>

	.ASCII	|Input error|<200>

	.ASCIZ	|Replace?|

	.ASCIZ	|Output error|<200>

	.EVEN
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	100000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000200
	.WORD	000000
	.WORD	000200
	.WORD	100000
L20166:
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	177777
	.WORD	177777
	.WORD	177777
	.WORD	177777
	.WORD	177777
	.WORD	177777
	.WORD	177777
	.WORD	177777
	.WORD	177777
	.WORD	000000
L20270:
	.WORD	020266
	.WORD	046600
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
L20340:
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
L20420:
	.WORD	000000
L20422:
	.WORD	000000
L20424:
	.WORD	000000
L20426:
	.WORD	000000
L20430:
	.WORD	000000
L20432:
	.WORD	000000
L20434:
	.WORD	000000
L20436:
	.WORD	000000
L20440:
	.WORD	000000
L20442:
	.WORD	000000
L20444:
	.WORD	000000
L20446:
	.WORD	000000
L20450:
	.WORD	000000
L20452:
	.WORD	000000
L20454:
	.WORD	000000
L20456:
	.WORD	000000
L20460:
	.WORD	000000
L20462:
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000

	.BLKW	^D<256>

	.END	START