.TITLE	STALK

	.NLIST

	.INCLUDE	/ASCII.MAC/
	.INCLUDE	/HWDF.MAC/
	.DSABL	GBL

	.LIST
	.ASECT

	.=^O<44>
K00044:

	.=^O<52>
K00052:

	.=^O<100>

	.ASCII	|****************                    Hacked by      O l e g  H.     25. 10. 91.                  |
	.ASCIZ	|****************|


	.EVEN

	.=^O<300>

	.ASCIZ	|Corrected by LDNAugust 1993|


	.=^O<400>

	.ASCII	|Внимание !!!    Программа выводит текстовые сообщения в коде КОИ-8, поэтому вы должны иметь драйвер, |
	.ASCIZ	|обслуживающий терминал в КОИ-8. (например, мой TS.SYS для УКНЦ).                Олег Ховайко, (UB5AJV).   |


	.=^O<722>

	.ASCIZ	<ESC>|H|<ESC>|J*BASED ON '|<RUS>|PIKNIK NA OBO^INE|<LAT>|'* |

	.PSECT
M01000:
	JSR	R0, M54316

	CALL	M54422

	CALL	M50232

	MOV	R1, 24(SP)

	MOV	R0, 22(SP)

	MOV	K50410, R5

	JSR	R0, M54346

	MOV	(SP), 6(SP)

	ADD	#6, SP

	RETURN
M01046:
	JSR	R0, M54316

	MOV	14(SP), R0

	SUB	16(SP), R0

	MOV	R0, -(SP)
	CALL	M52750

	CMP	-(SP), -(SP)
	MOV	R5, R0
	ADD	#42, R0

	MOV	R0, -(SP)
	MOV	R5, R0
	ADD	#44, R0

	MOV	R0, -(SP)
	MOV	#2, -(SP)

	MOV	SP, R4
	CALL	M01000

	FMUL	SP
	MOV	22(SP), -(SP)

	CALL	M52750

	FADD	SP
	CALL	M53056

	MOV	(SP)+, 20(SP)

	JSR	R0, M54346

	MOV	(SP), 4(SP)

	ADD	#4, SP

	RETURN
M01166:
	BIS	#10000, @#K00044

M01174:
	EMT	340
	BCS	M01174
	MOVB	R0, @2(SP)

	MOV	(SP), 2(SP)

	ADD	#2, SP

	RETURN
M01216:
	MOV	#ESC, -(SP)

	CLR	-(SP)
	CALL	M52224

	MOV	#'Y, -(SP)

	CLR	-(SP)
	CALL	M52224

	MOV	4(SP), R0

	ADD	#40, R0

	MOV	R0, -(SP)
	CLR	-(SP)
	CALL	M52224

	MOV	2(SP), R0

	ADD	2(SP), R0

	ADD	#40, R0

	MOV	R0, -(SP)
	CLR	-(SP)
	CALL	M52224

	MOV	(SP), 4(SP)

	ADD	#4, SP

	RETURN
M01320:
	MOV	#20, -(SP)

	CLR	-(SP)
	CALL	M01216

	MOV	R5, R0
	ADD	#16, R0

	MOV	R0, -(SP)
	MOV	#1, -(SP)

	MOV	#7, -(SP)

	MOV	2(SP), @4(SP)

M01360:
	CMP	@4(SP), (SP)

	BLE	M01372
	JMP	M01440

M01372:
	MOV	#12, -(SP)

	CLR	-(SP)
	CALL	M52224

	MOV	#ESC, -(SP)

	CLR	-(SP)
	CALL	M52224

	MOV	#'K, -(SP)

	CLR	-(SP)
	CALL	M52224

	INC	@4(SP)

	JMP	M01360

M01440:
	ADD	#6, SP

	MOV	#21, -(SP)

	CLR	-(SP)
	CALL	M01216

	RETURN
M01460:
	CMP	-(SP), -(SP)
	MOV	SP, R0
	MOV	R0, -(SP)
	MOV	#177777, -(SP)

	MOV	#1, -(SP)

	MOV	2(SP), @4(SP)

M01504:
	CMP	@4(SP), (SP)

	BLE	M01516
	JMP	M02312

M01516:
	MOV	SP, R0
	ADD	#10, R0

	MOV	R0, -(SP)
	MOV	#177777, -(SP)

	MOV	#1, -(SP)

	MOV	2(SP), @4(SP)

M01544:
	CMP	@4(SP), (SP)

	BLE	M01556
	JMP	M02276

M01556:
	MOV	24(SP), R0

	ADD	14(SP), R0

	MOV	R0, 22(R5)

	MOV	22(SP), R0

	ADD	16(SP), R0

	MOV	R0, 24(R5)

	MOV	26(SP), R0

	SWAB	R0
	BIC	#377, R0

	ASL	R0
	ADD	R5, R0
	MOV	22(R5), R1

	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ADD	R0, R1
	ADD	24(R5), R1

	CMPB	27(R1), #136

	BEQ	M01664
	CLR	R0
	BR	M01670
M01664:
	MOV	#1, R0

M01670:
	MOV	26(SP), R1

	SWAB	R1
	BIC	#377, R1

	ASL	R1
	ASL	R1
	ADD	R5, R1
	MOV	22(R5), R2

	ASL	R2
	ASL	R2
	ASL	R2
	ASL	R2
	ASL	R2
	ASL	R2
	ADD	R1, R2
	MOV	24(R5), R1

	ASL	R1
	ADD	R2, R1
	MOV	10772(R1), R1

	BIC	#177771, R1

	CMP	R1, #4

	BNE	M01764
	CLR	R1
	BR	M01770
M01764:
	MOV	#1, R1

M01770:
	COMB	R1
	BICB	R1, R0
	BNE	M02002
	JMP	M02034

M02002:
	MOV	22(R5), -(SP)

	MOV	24(R5), -(SP)

	CALL	M01216

	MOV	#56, -(SP)

	CLR	-(SP)
	CALL	M52224

	JMP	M02266

M02034:
	MOV	26(SP), R0

	SWAB	R0
	BIC	#377, R0

	ASL	R0
	ASL	R0
	ADD	R5, R0
	MOV	22(R5), R1

	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ADD	R0, R1
	MOV	24(R5), R0

	ASL	R0
	ADD	R1, R0
	MOV	26(SP), R1

	SWAB	R1
	BIC	#377, R1

	ASL	R1
	ASL	R1
	ADD	R5, R1
	MOV	22(R5), R2

	ASL	R2
	ASL	R2
	ASL	R2
	ASL	R2
	ASL	R2
	ASL	R2
	ADD	R1, R2
	MOV	24(R5), R1

	ASL	R1
	ADD	R2, R1
	MOV	10772(R1), R1

	BIS	#100, R1

	MOV	R1, 10772(R0)

	MOV	22(R5), -(SP)

	MOV	24(R5), -(SP)

	CALL	M01216

	MOV	26(SP), R0

	SWAB	R0
	BIC	#377, R0

	ASL	R0
	ADD	R5, R0
	MOV	22(R5), R1

	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ADD	R0, R1
	ADD	24(R5), R1

	CLR	-(SP)
	MOVB	27(R1), (SP)

	CLR	-(SP)
	CALL	M52224

M02266:
	INC	@4(SP)

	JMP	M01544

M02276:
	ADD	#6, SP

	INC	@4(SP)

	JMP	M01504

M02312:
	ADD	#6, SP

	MOV	4(SP), 12(SP)

	ADD	#12, SP

	RETURN
M02332:
	CLR	-(SP)
	JSR	R0, M54316

	MOV	#1, 12(SP)

M02346:
	MOV	R5, R0
	ADD	12(SP), R0

	CMPB	33077(R0), 20(SP)

	BNE	M02370
	CLR	R0
	BR	M02374
M02370:
	MOV	#1, R0

M02374:
	MOV	R5, R1
	ADD	12(SP), R1

	CMPB	33077(R1), 16(SP)

	BNE	M02416
	CLR	R1
	BR	M02422
M02416:
	MOV	#1, R1

M02422:
	COMB	R1
	BICB	R1, R0
	CMP	12(SP), #7

	BLT	M02442
	CLR	R1
	BR	M02446
M02442:
	MOV	#1, R1

M02446:
	COMB	R1
	BICB	R1, R0
	BNE	M02460
	JMP	M02470

M02460:
	INC	12(SP)

	JMP	M02346

M02470:
	MOV	12(SP), 22(SP)

	MOVB	#1, 33156(R5)

	JSR	R0, M54346

	MOV	2(SP), 6(SP)

	ADD	#6, SP

	RETURN
M02524:
	MOV	#A02550, -(SP)

	MOV	#22, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

	RETURN
A02550:
	.ASCIZ	| Н е л ь з я ! ! !|


	.EVEN
M02574:
	CMP	-(SP), -(SP)
	MOV	12(SP), R0

	SWAB	R0
	BIC	#377, R0

	ASL	R0
	ADD	R5, R0
	MOV	10(SP), R1

	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ADD	R0, R1
	ADD	6(SP), R1

	MOVB	27(R1), (SP)

	MOV	12(SP), R0

	SWAB	R0
	BIC	#377, R0

	ASL	R0
	ASL	R0
	ADD	R5, R0
	MOV	10(SP), R1

	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ADD	R0, R1
	MOV	6(SP), R0

	ASL	R0
	ADD	R1, R0
	MOV	10772(R0), 2(SP)

	MOV	#A03272, -(SP)

	MOV	#13, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

	MOV	2(SP), R0

	BIC	#177773, R0

	BNE	M02764
	JMP	M03256

M02764:
	CMPB	(SP), 33122(R5)

	BNE	M02776
	CLR	R0
	BR	M03002
M02776:
	MOV	#1, R0

M03002:
	CMPB	(SP), 33123(R5)

	BNE	M03014
	CLR	R1
	BR	M03020
M03014:
	MOV	#1, R1

M03020:
	COMB	R1
	BICB	R1, R0
	CMPB	(SP), 33124(R5)

	BNE	M03036
	CLR	R1
	BR	M03042
M03036:
	MOV	#1, R1

M03042:
	COMB	R1
	BICB	R1, R0
	BNE	M03054
	JMP	M03256

M03054:
	CLR	16(R5)

	MOV	R5, R0
	ADD	#20, R0

	MOV	R0, -(SP)
	MOV	#1, -(SP)

	MOV	#3, -(SP)

	MOV	2(SP), @4(SP)

M03106:
	CMP	@4(SP), (SP)

	BLE	M03120
	JMP	M03166

M03120:
	INC	16(R5)

	MOV	R5, R0
	ADD	16(R5), R0

	CMPB	33121(R0), #40

	BEQ	M03146
	JMP	M03156

M03146:
	ADD	#6, SP

	JMP	M03172

M03156:
	INC	@4(SP)

	JMP	M03106

M03166:
	ADD	#6, SP

M03172:
	MOV	R5, R0
	ADD	16(R5), R0

	MOVB	(SP), 33121(R0)

	MOV	16(R5), R0

	ASL	R0
	ADD	R5, R0
	MOV	2(SP), 33124(R0)

	MOV	16(R5), R0

	ASL	R0
	ADD	R5, R0
	MOV	10(SP), 33134(R0)

	MOV	16(R5), R0

	ASL	R0
	ADD	R5, R0
	MOV	6(SP), 33144(R0)

M03256:
	MOV	4(SP), 12(SP)

	ADD	#12, SP

	RETURN
A03272:
	.ASCIZ	|З в е р ь !|

M03306:
	MOV	#A03332, -(SP)

	MOV	#26, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

	RETURN
A03332:
	.ASCIZ	|На этой штуке заклятие|


	.EVEN
M03362:
	MOVB	#1, 33156(R5)

	CMPB	2(SP), #112

	BNE	M03404
	JMP	M04166

M03404:
	CMPB	@11070(R5), #45

	BEQ	M03420
	JMP	M04140

M03420:
	MOV	R5, R0
	ADD	#16, R0

	MOV	R0, -(SP)
	MOV	#1, -(SP)

	MOV	#4, -(SP)

	MOV	2(SP), @4(SP)

M03446:
	CMP	@4(SP), (SP)

	BLE	M03460
	JMP	M03504

M03460:
	MOV	R5, R0
	ADD	16(R5), R0

	MOVB	#40, 33121(R0)

	INC	@4(SP)

	JMP	M03446

M03504:
	ADD	#6, SP

	CMPB	2(SP), #56

	BEQ	M03524
	CLR	R0
	BR	M03530
M03524:
	MOV	#1, R0

M03530:
	TST	4(R5)

	BNE	M03542
	CLR	R1
	BR	M03546
M03542:
	MOV	#1, R1

M03546:
	COMB	R1
	BICB	R1, R0
	BNE	M03560
	JMP	M03610

M03560:
	DEC	4(R5)

	ADD	#177776, 60(R5)

	INC	56(R5)

	CLR	R4
	JMP	M04170

	JMP	M03644

M03610:
	CMP	4(R5), #10

	BNE	M03624
	JMP	M03644

M03624:
	INC	4(R5)

	ADD	#3, 56(R5)

	CLR	R4
	JMP	M04170

M03644:
	MOV	4(R5), R0

	SWAB	R0
	BIC	#377, R0

	ASL	R0
	ADD	R5, R0
	MOV	12(R5), R1

	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ADD	R0, R1
	ADD	14(R5), R1

	ADD	#27, R1

	MOV	R1, 11070(R5)

	MOV	4(R5), R0

	SWAB	R0
	BIC	#377, R0

	ASL	R0
	ASL	R0
	ADD	R5, R0
	MOV	12(R5), R1

	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ADD	R0, R1
	MOV	14(R5), R0

	ASL	R0
	ADD	R1, R0
	ADD	#10772, R0

	MOV	R0, 33074(R5)

	MOV	4(R5), R0

	SWAB	R0
	BIC	#377, R0

	ASL	R0
	ADD	R5, R0
	MOV	6(R5), R1

	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ADD	R0, R1
	ADD	10(R5), R1

	ADD	#27, R1

	MOV	R1, 11072(R5)

	MOV	4(R5), R0

	SWAB	R0
	BIC	#377, R0

	ASL	R0
	ASL	R0
	ADD	R5, R0
	MOV	6(R5), R1

	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ADD	R0, R1
	MOV	10(R5), R0

	ASL	R0
	ADD	R1, R0
	ADD	#10772, R0

	MOV	R0, 33076(R5)

	JMP	M04162

M04140:
	MOV	#A05126, -(SP)

	MOV	#16, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

M04162:
	JMP	M05114

M04166:
	BR	M04172
M04170:
	ADD	R4, SP
M04172:
	MOV	#ESC, -(SP)

	CLR	-(SP)
	CALL	M52224

	MOV	#'H, -(SP)

	CLR	-(SP)
	CALL	M52224

	MOV	#ESC, -(SP)

	CLR	-(SP)
	CALL	M52224

	MOV	#A05146, -(SP)

	MOV	#15, -(SP)

	CLR	-(SP)
	CALL	M52644

	MOV	(R5), -(SP)
	CLR	-(SP)
	CALL	M52306

	MOV	#A05164, -(SP)

	MOV	#203, -(SP)

	CLR	-(SP)
	CALL	M52644

	MOV	R5, R0
	ADD	#16, R0

	MOV	R0, -(SP)
	MOV	#1, -(SP)

	MOV	#5, -(SP)

	MOV	2(SP), @4(SP)

M04322:
	CMP	@4(SP), (SP)

	BLE	M04334
	JMP	M04416

M04334:
	MOV	16(R5), -(SP)

	MOV	#45, -(SP)

	CALL	M01216

	MOV	16(R5), R0

	ASL	R0
	ADD	R5, R0
	MOV	54(R0), -(SP)

	MOV	#3, -(SP)

	CALL	M52306

	MOV	#40, -(SP)

	CLR	-(SP)
	CALL	M52224

	INC	@4(SP)

	JMP	M04322

M04416:
	ADD	#6, SP

	MOV	#7, -(SP)

	MOV	#45, -(SP)

	CALL	M01216

	MOV	30(R5), -(SP)

	MOV	#3, -(SP)

	CALL	M52306

	MOV	#12, -(SP)

	MOV	#41, -(SP)

	CALL	M01216

	MOV	R5, R0
	ADD	#16, R0

	MOV	R0, -(SP)
	MOV	#1, -(SP)

	MOV	#6, -(SP)

	MOV	2(SP), @4(SP)

M04514:
	CMP	@4(SP), (SP)

	BLE	M04526
	JMP	M04562

M04526:
	MOV	R5, R0
	ADD	16(R5), R0

	CLR	-(SP)
	MOVB	33077(R0), (SP)

	MOV	#2, -(SP)

	CALL	M52224

	INC	@4(SP)

	JMP	M04514

M04562:
	ADD	#6, SP

	CLR	-(SP)
	CLR	-(SP)
	CALL	M01216

	MOV	R5, R0
	ADD	#16, R0

	MOV	R0, -(SP)
	MOV	#1, -(SP)

	MOV	#20, -(SP)

	MOV	2(SP), @4(SP)

M04624:
	CMP	@4(SP), (SP)

	BLE	M04636
	JMP	M05104

M04636:
	MOV	R5, R0
	ADD	#20, R0

	MOV	R0, -(SP)
	MOV	#1, -(SP)

	MOV	#40, -(SP)

	MOV	2(SP), @4(SP)

M04664:
	CMP	@4(SP), (SP)

	BLE	M04676
	JMP	M05070

M04676:
	MOV	4(R5), R0

	SWAB	R0
	BIC	#377, R0

	ASL	R0
	ASL	R0
	ADD	R5, R0
	MOV	16(R5), R1

	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ADD	R0, R1
	MOV	20(R5), R0

	ASL	R0
	ADD	R1, R0
	MOV	10772(R0), R0

	BIC	#177677, R0

	BNE	M04766
	JMP	M05060

M04766:
	MOV	16(R5), -(SP)

	MOV	20(R5), -(SP)

	CALL	M01216

	MOV	4(R5), R0

	SWAB	R0
	BIC	#377, R0

	ASL	R0
	ADD	R5, R0
	MOV	16(R5), R1

	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ADD	R0, R1
	ADD	20(R5), R1

	CLR	-(SP)
	MOVB	27(R1), (SP)

	CLR	-(SP)
	CALL	M52224

M05060:
	INC	@4(SP)

	JMP	M04664

M05070:
	ADD	#6, SP

	INC	@4(SP)

	JMP	M04624

M05104:
	ADD	#6, SP

	CALL	M01320

M05114:
	MOV	(SP), 2(SP)

	ADD	#2, SP

	RETURN
A05126:
	.ASCIZ	| Без лестницы?|


	.EVEN
A05146:
	.ASCIZ	|J|<HT>|Подземелье |

A05164:
	.ASCIZ	<CR><LF><HT><HT><HT><HT><HT><HT><HT><HT>


	.ASCII	| Рейтинг|<LF><HT><HT><HT><HT><ESC>|Y|

	.BYTE	42, 140
	.ASCII	| Энергия|<CR><LF><HT><HT><HT><HT><HT><HT><HT><HT>| Оружие|<CR><LF><HT><HT><HT><HT><HT><HT><HT><HT>| Защита|<CR>
	.ASCII	<LF><HT><HT><HT><HT><HT><HT><HT><HT>| В банке|<CR><LF><CR><LF><HT><HT><HT><HT><HT><HT><HT><HT>| Вредность|<CR><LF>
	.ASCIZ	<CR><LF><HT><HT><HT><HT><HT><HT><HT><HT>|  Рюкзак:|

M05370:
	MOV	4(R5), R0

	SWAB	R0
	BIC	#377, R0

	ASL	R0
	ADD	R5, R0
	MOV	12(R5), R1

	ADD	4(SP), R1

	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ADD	R0, R1
	MOV	14(R5), R0

	ADD	2(SP), R0

	ADD	R1, R0
	MOV	#K05672, -(SP)

	CALL	M53634

	CLR	-(SP)
	MOVB	27(R0), (SP)

	SUB	#40, (SP)

	CALL	M53452

	BEQ	M05500
	JMP	M05654

M05500:
	ADD	4(SP), 12(R5)

	ADD	2(SP), 14(R5)

	MOV	4(R5), R0

	SWAB	R0
	BIC	#377, R0

	ASL	R0
	ADD	R5, R0
	MOV	12(R5), R1

	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ADD	R0, R1
	ADD	14(R5), R1

	ADD	#27, R1

	MOV	R1, 11070(R5)

	MOV	4(R5), R0

	SWAB	R0
	BIC	#377, R0

	ASL	R0
	ASL	R0
	ADD	R5, R0
	MOV	12(R5), R1

	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ADD	R0, R1
	MOV	14(R5), R0

	ASL	R0
	ADD	R1, R0
	ADD	#10772, R0

	MOV	R0, 33074(R5)

	JMP	M05660

M05654:
	CALL	M02524

M05660:
	MOV	(SP), 4(SP)

	ADD	#4, SP

	RETURN
K05672:
	.WORD	20002
	.WORD	0
	.WORD	0
	.WORD	0
M05702:
	CLR	-(SP)
	MOV	#2, -(SP)

	MOV	#17, -(SP)

	CALL	M01046

	MOV	(SP)+, R0
	MOV	R0, 12(R5)

	CLR	-(SP)
	MOV	#2, -(SP)

	MOV	#37, -(SP)

	CALL	M01046

	MOV	(SP)+, R0
	MOV	R0, 14(R5)

	MOV	4(R5), R0

	SWAB	R0
	BIC	#377, R0

	ASL	R0
	ADD	R5, R0
	MOV	12(R5), R1

	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ADD	R0, R1
	ADD	14(R5), R1

	MOVB	2(SP), 27(R1)

	MOV	4(R5), R0

	SWAB	R0
	BIC	#377, R0

	ASL	R0
	ASL	R0
	ADD	R5, R0
	MOV	12(R5), R1

	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ADD	R0, R1
	MOV	14(R5), R0

	ASL	R0
	ADD	R1, R0
	CLR	-(SP)
	CLR	-(SP)
	MOV	#77777, -(SP)

	CALL	M01046

	MOV	(SP)+, R1
	BIC	#100, R1

	MOV	R1, 10772(R0)

	MOV	(SP), 2(SP)

	ADD	#2, SP

	RETURN
M06134:
	ADD	#33216, K50400

	MOVB	#'(, 33160(R5)

	MOVB	#'H, 33161(R5)

	MOVB	#'), 33162(R5)

	MOVB	#SPACE, 33163(R5)

	MOVB	#'H, 33164(R5)

	MOVB	#'a, 33165(R5)

	MOVB	#'c, 33166(R5)

	MOVB	#'k, 33167(R5)

	MOVB	#'e, 33170(R5)

	MOVB	#'d, 33171(R5)

	MOVB	#SPACE, 33172(R5)

	MOVB	#'b, 33173(R5)

	MOVB	#'y, 33174(R5)

	MOVB	#SPACE, 33175(R5)

	MOVB	#'O, 33176(R5)

	MOVB	#'l, 33177(R5)

	MOVB	#'e, 33200(R5)

	MOVB	#'g, 33201(R5)

	MOVB	#SPACE, 33202(R5)

	MOVB	#'H, 33203(R5)

	MOVB	#'., 33204(R5)

	MOVB	#SPACE, 33205(R5)

	MOVB	#SPACE, 33206(R5)

	MOVB	#SPACE, 33207(R5)

	MOVB	#SPACE, 33210(R5)

	MOVB	#SPACE, 33211(R5)

	MOVB	#SPACE, 33212(R5)

	MOVB	#SPACE, 33213(R5)

	MOVB	#SPACE, 33214(R5)

	MOVB	#SPACE, 33215(R5)

	MOV	#A40234, -(SP)

	MOV	#4, -(SP)

	CLR	-(SP)
	CALL	M52644

	MOV	R5, R0
	ADD	#33160, R0

	MOV	R0, -(SP)
	MOV	#36, -(SP)

	CLR	-(SP)
	CALL	M52644

	MOV	#A40242, -(SP)

	MOV	#3, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

	MOV	#A40246, -(SP)

	MOV	#44, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

	MOV	#A40314, -(SP)

	MOV	#72, -(SP)

	CLR	-(SP)
	CALL	M52644

	CLR	44(R5)

	BIS	#10100, @#K00044

M06562:
	EMT	340
	BCC	M06562
M06566:
	EMT	340
	BCC	M06614
	INC	44(R5)

	CMP	44(R5), #4704

	BLE	M06566
	CLR	44(R5)

	BR	M06566
M06614:
	BIC	#10100, @#K00044

	CALL	M51742

	MOV	(SP)+, 42(R5)

	CALL	M51664

	MOV	#1, (R5)

	BIS	#10000, @#K00044

M06650:
	MOV	#ESC, -(SP)

	CLR	-(SP)
	CALL	M52224

	MOV	#'H, -(SP)

	CLR	-(SP)
	CALL	M52224

	MOV	#ESC, -(SP)

	CLR	-(SP)
	CALL	M52224

	MOV	#'J, -(SP)

	CLR	-(SP)
	CALL	M52224

	MOV	#12, -(SP)

	MOV	#1, -(SP)

	CALL	M01216

	MOV	R5, R0
	ADD	#4, R0

	MOV	R0, -(SP)
	CLR	-(SP)
	MOV	#10, -(SP)

	MOV	2(SP), @4(SP)

M06760:
	CMP	@4(SP), (SP)

	BLE	M06772
	JMP	M07624

M06772:
	CLR	-(SP)
	CLR	-(SP)
	MOV	#130, -(SP)

	CALL	M01046

	MOV	(SP)+, R0
	MOV	R0, 22(R5)

	MOV	R5, R0
	ADD	#20, R0

	MOV	R0, -(SP)
	MOV	#1, -(SP)

	MOV	#40, -(SP)

	MOV	2(SP), @4(SP)

M07042:
	CMP	@4(SP), (SP)

	BLE	M07054
	JMP	M07114

M07054:
	MOV	4(R5), R0

	SWAB	R0
	BIC	#377, R0

	ASL	R0
	ADD	R5, R0
	ADD	20(R5), R0

	MOVB	#55, 67(R0)

	INC	@4(SP)

	JMP	M07042

M07114:
	ADD	#6, SP

	MOV	R5, R0
	ADD	#16, R0

	MOV	R0, -(SP)
	MOV	#2, -(SP)

	MOV	#17, -(SP)

	MOV	2(SP), @4(SP)

M07146:
	CMP	@4(SP), (SP)

	BLE	M07160
	JMP	M07504

M07160:
	MOV	4(R5), R0

	SWAB	R0
	BIC	#377, R0

	ASL	R0
	ADD	R5, R0
	MOV	16(R5), R1

	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ADD	R0, R1
	MOVB	#41, 30(R1)

	MOV	R5, R0
	ADD	#20, R0

	MOV	R0, -(SP)
	MOV	#2, -(SP)

	MOV	#37, -(SP)

	MOV	2(SP), @4(SP)

M07252:
	CMP	@4(SP), (SP)

	BLE	M07264
	JMP	M07424

M07264:
	MOV	4(R5), R0

	SWAB	R0
	BIC	#377, R0

	ASL	R0
	ADD	R5, R0
	MOV	16(R5), R1

	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ADD	R0, R1
	ADD	20(R5), R1

	MOVB	#56, 27(R1)

	MOV	4(R5), R0

	SWAB	R0
	BIC	#377, R0

	ASL	R0
	ASL	R0
	ADD	R5, R0
	MOV	16(R5), R1

	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ADD	R0, R1
	MOV	20(R5), R0

	ASL	R0
	ADD	R1, R0
	MOV	22(R5), 10772(R0)

	INC	@4(SP)

	JMP	M07252

M07424:
	ADD	#6, SP

	MOV	4(R5), R0

	SWAB	R0
	BIC	#377, R0

	ASL	R0
	ADD	R5, R0
	MOV	16(R5), R1

	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ADD	R0, R1
	MOVB	#41, 67(R1)

	INC	@4(SP)

	JMP	M07146

M07504:
	ADD	#6, SP

	MOV	R5, R0
	ADD	#20, R0

	MOV	R0, -(SP)
	MOV	#1, -(SP)

	MOV	#40, -(SP)

	MOV	2(SP), @4(SP)

M07536:
	CMP	@4(SP), (SP)

	BLE	M07550
	JMP	M07610

M07550:
	MOV	4(R5), R0

	SWAB	R0
	BIC	#377, R0

	ASL	R0
	ADD	R5, R0
	ADD	20(R5), R0

	MOVB	#'-, 1027(R0)

	INC	@4(SP)

	JMP	M07536

M07610:
	ADD	#6, SP

	INC	@4(SP)

	JMP	M06760

M07624:
	ADD	#6, SP

	MOV	#A40410, -(SP)

	MOV	#37, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

	MOV	R5, R0
	ADD	#4, R0

	MOV	R0, -(SP)
	MOV	#1, -(SP)

	MOV	#10, -(SP)

	MOV	2(SP), @4(SP)

M07700:
	CMP	@4(SP), (SP)

	BLE	M07712
	JMP	M10272

M07712:
	CLR	-(SP)
	MOV	#2, -(SP)

	MOV	#7, -(SP)

	CALL	M01046

	MOV	(SP)+, R0
	MOV	R0, 16(R5)

M07736:
	CMP	16(R5), #20

	BLT	M07752
	JMP	M10262

M07752:
	MOV	#2, 22(R5)

	CLR	-(SP)
	MOV	#1, -(SP)

	MOV	#7, -(SP)

	CALL	M01046

	MOV	(SP)+, R0
	MOV	R0, 24(R5)

M10004:
	CMP	24(R5), #40

	BLT	M10020
	JMP	M10230

M10020:
	MOV	R5, R0
	ADD	#20, R0

	MOV	R0, -(SP)
	MOV	22(R5), -(SP)

	MOV	24(R5), -(SP)

	MOV	2(SP), @4(SP)

M10046:
	CMP	@4(SP), (SP)

	BLE	M10060
	JMP	M10140

M10060:
	MOV	4(R5), R0

	SWAB	R0
	BIC	#377, R0

	ASL	R0
	ADD	R5, R0
	MOV	16(R5), R1

	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ADD	R0, R1
	ADD	20(R5), R1

	MOVB	#55, 27(R1)

	INC	@4(SP)

	JMP	M10046

M10140:
	ADD	#6, SP

	CLR	-(SP)
	MOV	#1, -(SP)

	MOV	#5, -(SP)

	CALL	M01046

	MOV	(SP)+, R0
	ADD	24(R5), R0

	MOV	R0, 22(R5)

	CLR	-(SP)
	MOV	#3, -(SP)

	MOV	#12, -(SP)

	CALL	M01046

	MOV	(SP)+, R0
	ADD	24(R5), R0

	MOV	R0, 24(R5)

	JMP	M10004

M10230:
	CLR	-(SP)
	CLR	-(SP)
	MOV	#7, -(SP)

	CALL	M01046

	MOV	(SP)+, R0
	ADD	16(R5), R0

	MOV	R0, 16(R5)

	JMP	M07736

M10262:
	INC	@4(SP)

	JMP	M07700

M10272:
	ADD	#6, SP

	MOV	#15, -(SP)

	CLR	-(SP)
	CALL	M52224

	MOV	#A40450, -(SP)

	MOV	#32, -(SP)

	CLR	-(SP)
	CALL	M52644

	MOV	R5, R0
	ADD	#4, R0

	MOV	R0, -(SP)
	MOV	#1, -(SP)

	MOV	#10, -(SP)

	MOV	2(SP), @4(SP)

M10354:
	CMP	@4(SP), (SP)

	BLE	M10366
	JMP	M11102

M10366:
	CLR	-(SP)
	MOV	#2, -(SP)

	MOV	#7, -(SP)

	CALL	M01046

	MOV	(SP)+, R0
	MOV	R0, 20(R5)

M10412:
	CMP	20(R5), #40

	BLT	M10426
	JMP	M11072

M10426:
	MOV	#2, 22(R5)

	CLR	-(SP)
	MOV	#1, -(SP)

	MOV	#7, -(SP)

	CALL	M01046

	MOV	(SP)+, R0
	MOV	R0, 24(R5)

M10460:
	CMP	24(R5), #20

	BLT	M10474
	JMP	M11036

M10474:
	MOV	R5, R0
	ADD	#16, R0

	MOV	R0, -(SP)
	MOV	22(R5), -(SP)

	MOV	24(R5), -(SP)

	MOV	2(SP), @4(SP)

M10522:
	CMP	@4(SP), (SP)

	BLE	M10534
	JMP	M10746

M10534:
	MOV	4(R5), R0

	SWAB	R0
	BIC	#377, R0

	ASL	R0
	ADD	R5, R0
	MOV	16(R5), R1

	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ADD	R0, R1
	ADD	20(R5), R1

	CMPB	27(R1), #'.

	BEQ	M10612
	JMP	M10666

M10612:
	MOV	4(R5), R0

	SWAB	R0
	BIC	#377, R0

	ASL	R0
	ADD	R5, R0
	MOV	16(R5), R1

	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ADD	R0, R1
	ADD	20(R5), R1

	MOVB	#'!, 27(R1)

	JMP	M10736

M10666:
	MOV	4(R5), R0

	SWAB	R0
	BIC	#377, R0

	ASL	R0
	ADD	R5, R0
	MOV	16(R5), R1

	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ADD	R0, R1
	ADD	20(R5), R1

	MOVB	#43, 27(R1)

M10736:
	INC	@4(SP)

	JMP	M10522

M10746:
	ADD	#6, SP

	CLR	-(SP)
	MOV	#1, -(SP)

	MOV	#5, -(SP)

	CALL	M01046

	MOV	(SP)+, R0
	ADD	24(R5), R0

	MOV	R0, 22(R5)

	CLR	-(SP)
	MOV	#2, -(SP)

	MOV	#7, -(SP)

	CALL	M01046

	MOV	(SP)+, R0
	ADD	24(R5), R0

	MOV	R0, 24(R5)

	JMP	M10460

M11036:
	CLR	-(SP)
	MOV	#2, -(SP)

	MOV	#5, -(SP)

	CALL	M01046

	MOV	(SP)+, R0
	ADD	20(R5), R0

	MOV	R0, 20(R5)

	JMP	M10412

M11072:
	INC	@4(SP)

	JMP	M10354

M11102:
	ADD	#6, SP

	MOV	#15, -(SP)

	CLR	-(SP)
	CALL	M52224

	MOV	#A40504, -(SP)

	MOV	#30, -(SP)

	CLR	-(SP)
	CALL	M52644

	MOV	R5, R0
	ADD	#20, R0

	MOV	R0, -(SP)
	MOV	#1, -(SP)

	MOV	(R5), -(SP)
	MOV	2(SP), @4(SP)

M11162:
	CMP	@4(SP), (SP)

	BLE	M11174
	JMP	M11314

M11174:
	MOV	R5, R0
	ADD	#16, R0

	MOV	R0, -(SP)
	MOV	#40, -(SP)

	MOV	#177, -(SP)

	MOV	2(SP), @4(SP)

M11222:
	CMP	@4(SP), (SP)

	BLE	M11234
	JMP	M11300

M11234:
	CLR	-(SP)
	CLR	-(SP)
	MOV	#10, -(SP)

	CALL	M01046

	MOV	(SP)+, R0
	MOV	R0, 4(R5)

	CLR	-(SP)
	MOVB	16(R5), (SP)

	CALL	M05702

	INC	@4(SP)

	JMP	M11222

M11300:
	ADD	#6, SP

	INC	@4(SP)

	JMP	M11162

M11314:
	ADD	#6, SP

	MOV	#15, -(SP)

	CLR	-(SP)
	CALL	M52224

	MOV	#A40536, -(SP)

	MOV	#50, -(SP)

	CLR	-(SP)
	CALL	M52644

	MOV	R5, R0
	ADD	#4, R0

	MOV	R0, -(SP)
	CLR	-(SP)
	MOV	#10, -(SP)

	MOV	2(SP), @4(SP)

M11374:
	CMP	@4(SP), (SP)

	BLE	M11406
	JMP	M11446

M11406:
	MOV	#'^, -(SP)

	CALL	M05702

	MOV	#52, -(SP)

	CALL	M05702

	MOV	#'%, -(SP)

	CALL	M05702

	INC	@4(SP)

	JMP	M11374

M11446:
	ADD	#6, SP

	MOV	#10, 4(R5)

	MOV	#'%, -(SP)

	CALL	M05702

	MOV	#',, -(SP)

	CALL	M05702

	CMP	(R5), #1

	BEQ	M11512
	JMP	M11762

M11512:
	MOV	R5, R0
	ADD	#16, R0

	MOV	R0, -(SP)
	MOV	#1, -(SP)

	MOV	#6, -(SP)

	MOV	2(SP), @4(SP)

M11540:
	CMP	@4(SP), (SP)

	BLE	M11552
	JMP	M11576

M11552:
	MOV	R5, R0
	ADD	16(R5), R0

	MOVB	#'., 33077(R0)

	INC	@4(SP)

	JMP	M11540

M11576:
	ADD	#6, SP

	MOVB	#'], 33100(R5)

	MOVB	#'(, 33101(R5)

	MOVB	#'<, 33102(R5)

	MOV	R5, R0
	ADD	#16, R0

	MOV	R0, -(SP)
	MOV	#1, -(SP)

	MOV	#5, -(SP)

	MOV	2(SP), @4(SP)

M11652:
	CMP	@4(SP), (SP)

	BLE	M11664
	JMP	M11710

M11664:
	MOV	16(R5), R0

	ASL	R0
	ADD	R5, R0
	CLR	54(R0)

	INC	@4(SP)

	JMP	M11652

M11710:
	ADD	#6, SP

	MOV	#31, 60(R5)

	CLRB	47(R5)

	CLRB	51(R5)

	CLRB	50(R5)

	CLR	40(R5)

	MOV	#620, 32(R5)

	CLR	26(R5)

	MOVB	#1, 33156(R5)

M11762:
	MOV	R5, R0
	ADD	#16, R0

	MOV	R0, -(SP)
	MOV	#1, -(SP)

	MOV	#6, -(SP)

	MOV	2(SP), @4(SP)

M12010:
	CMP	@4(SP), (SP)

	BLE	M12022
	JMP	M12070

M12022:
	MOV	16(R5), R0

	ASL	R0
	ADD	R5, R0
	CLR	-(SP)
	CLR	-(SP)
	MOV	#17777, -(SP)

	CALL	M01046

	MOV	(SP)+, R1
	BIC	#2000, R1

	MOV	R1, 33104(R0)

	INC	@4(SP)

	JMP	M12010

M12070:
	ADD	#6, SP

	CLRB	46(R5)

	MOV	R5, R0
	ADD	#16, R0

	MOV	R0, -(SP)
	MOV	#1, -(SP)

	MOV	#4, -(SP)

	MOV	2(SP), @4(SP)

M12126:
	CMP	@4(SP), (SP)

	BLE	M12140
	JMP	M12164

M12140:
	MOV	R5, R0
	ADD	16(R5), R0

	MOVB	#40, 33121(R0)

	INC	@4(SP)

	JMP	M12126

M12164:
	ADD	#6, SP

	CLR	4(R5)

	MOV	#'J, -(SP)

	CALL	M03362

	CALL	M01320

	MOV	#A40610, -(SP)

	MOV	#34, -(SP)

	CLR	-(SP)
	CALL	M52644

	CLR	2(R5)

	MOV	#2, 12(R5)

	MOV	#2, 14(R5)

	MOV	#1, 30(R5)

M12254:
	TSTB	#1

	BNE	M12266
	JMP	M40120

M12266:
	MOV	4(R5), R0

	SWAB	R0
	BIC	#377, R0

	ASL	R0
	ADD	R5, R0
	MOV	12(R5), R1

	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ADD	R0, R1
	ADD	14(R5), R1

	ADD	#27, R1

	MOV	R1, 11070(R5)

	MOV	4(R5), R0

	SWAB	R0
	BIC	#377, R0

	ASL	R0
	ASL	R0
	ADD	R5, R0
	MOV	12(R5), R1

	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ADD	R0, R1
	MOV	14(R5), R0

	ASL	R0
	ADD	R1, R0
	ADD	#10772, R0

	MOV	R0, 33074(R5)

	MOV	R5, R0
	ADD	#16, R0

	MOV	R0, -(SP)
	MOV	#177777, -(SP)

	MOV	#1, -(SP)

	MOV	2(SP), @4(SP)

M12450:
	CMP	@4(SP), (SP)

	BLE	M12462
	JMP	M17774

M12462:
	MOV	R5, R0
	ADD	#20, R0

	MOV	R0, -(SP)
	MOV	#177777, -(SP)

	MOV	#1, -(SP)

	MOV	2(SP), @4(SP)

M12510:
	CMP	@4(SP), (SP)

	BLE	M12522
	JMP	M17760

M12522:
	MOV	12(R5), R0

	ADD	16(R5), R0

	MOV	R0, 6(R5)

	MOV	14(R5), R0

	ADD	20(R5), R0

	MOV	R0, 10(R5)

	MOV	4(R5), R0

	SWAB	R0
	BIC	#377, R0

	ASL	R0
	ADD	R5, R0
	MOV	6(R5), R1

	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ADD	R0, R1
	ADD	10(R5), R1

	ADD	#27, R1

	MOV	R1, 11072(R5)

	MOV	4(R5), R0

	SWAB	R0
	BIC	#377, R0

	ASL	R0
	ASL	R0
	ADD	R5, R0
	MOV	6(R5), R1

	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ADD	R0, R1
	MOV	10(R5), R0

	ASL	R0
	ADD	R1, R0
	ADD	#10772, R0

	MOV	R0, 33076(R5)

	MOVB	@11072(R5), R0

	SUB	#40, R0

	BGE	M12724
	JMP	M17302

M12724:
	CMP	#136, R0

	BGE	M12736
	JMP	M17302

M12736:
	ASL	R0
	JMP	@17452(R0)

M12744:
	MOV	#A40646, -(SP)

	MOV	#11, -(SP)

	CLR	-(SP)
	CALL	M52644

	JMP	M17750

M12766:
	MOV	#A40660, -(SP)

	MOV	#7, -(SP)

	CLR	-(SP)
	CALL	M52644

	JMP	M17750

M13010:
	CMP	4(R5), #10

	BEQ	M13024
	JMP	M13054

M13024:
	MOV	#A40670, -(SP)

	MOV	#16, -(SP)

	CLR	-(SP)
	CALL	M52644

	MOVB	#1, 46(R5)

	JMP	M13072

M13054:
	MOV	#A40710, -(SP)

	MOV	#20, -(SP)

	CLR	-(SP)
	CALL	M52644

M13072:
	JMP	M17750

M13076:
	MOV	#A40732, -(SP)

	MOV	#36, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

	JMP	M17750

M13124:
	MOV	#A40772, -(SP)

	MOV	#13, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

	TST	16(R5)

	BEQ	M13160
	CLR	R0
	BR	M13164
M13160:
	MOV	#1, R0

M13164:
	TST	20(R5)

	BEQ	M13176
	CLR	R1
	BR	M13202
M13176:
	MOV	#1, R1

M13202:
	COMB	R1
	BICB	R1, R0
	BNE	M13214
	JMP	M13336

M13214:
	TSTB	46(R5)

	BNE	M13226
	JMP	M13250

M13226:
	TST	4(R5)

	BGT	M13240
	JMP	M13244

M13240:
	DEC	4(R5)

M13244:
	JMP	M13270

M13250:
	CMP	4(R5), #10

	BLT	M13264
	JMP	M13270

M13264:
	INC	4(R5)

M13270:
	ADD	#177775, 60(R5)

	ADD	#7, 30(R5)

	MOV	#112, -(SP)

	CALL	M03362

	MOV	#A41006, -(SP)

	MOV	#22, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

M13336:
	JMP	M17750

M13342:
	MOV	#A41032, -(SP)

	MOV	#7, -(SP)

	CLR	-(SP)
	CALL	M52644

	JMP	M17750

M13364:
	TST	16(R5)

	BEQ	M13376
	CLR	R0
	BR	M13402
M13376:
	MOV	#1, R0

M13402:
	TST	20(R5)

	BEQ	M13414
	CLR	R1
	BR	M13420
M13414:
	MOV	#1, R1

M13420:
	COMB	R1
	BICB	R1, R0
	BNE	M13432
	JMP	M13534

M13432:
	MOV	#A41042, -(SP)

	MOV	#20, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

	CLR	-(SP)
	MOV	#3, -(SP)

	MOV	#17, -(SP)

	CALL	M01046

	MOV	(SP)+, R0
	SUB	R0, 60(R5)

	CLR	-(SP)
	CLR	-(SP)
	MOV	#5, -(SP)

	CALL	M01046

	MOV	(SP)+, R0
	ADD	30(R5), R0

	MOV	R0, 30(R5)

	MOV	#4, @33076(R5)

M13534:
	JMP	M17750

M13540:
	TST	16(R5)

	BEQ	M13552
	CLR	R0
	BR	M13556
M13552:
	MOV	#1, R0

M13556:
	TST	20(R5)

	BEQ	M13570
	CLR	R1
	BR	M13574
M13570:
	MOV	#1, R1

M13574:
	COMB	R1
	BICB	R1, R0
	BNE	M13606
	JMP	M13660

M13606:
	CLR	-(SP)
	MOV	#1, -(SP)

	MOV	#2, -(SP)

	CALL	M01046

	MOV	(SP)+, R0
	CMP	R0, #1

	BEQ	M13640
	JMP	M13652

M13640:
	MOVB	#41, @11070(R5)

	JMP	M13660

M13652:
	MOVB	#'-, @11070(R5)

M13660:
	JMP	M17750

M13664:
	MOV	#A41064, -(SP)

	MOV	#10, -(SP)

	CLR	-(SP)
	CALL	M52644

	JMP	M17750

M13706:
	MOV	#A41076, -(SP)

	MOV	#7, -(SP)

	CLR	-(SP)
	CALL	M52644

	JMP	M17750

M13730:
	MOV	#A41106, -(SP)

	MOV	#10, -(SP)

	CLR	-(SP)
	CALL	M52644

	JMP	M17750

M13752:
	MOV	#A41120, -(SP)

	MOV	#6, -(SP)

	CLR	-(SP)
	CALL	M52644

	JMP	M17750

M13774:
	MOV	#A41130, -(SP)

	MOV	#5, -(SP)

	CLR	-(SP)
	CALL	M52644

	JMP	M17750

M14016:
	MOV	#A41136, -(SP)

	MOV	#10, -(SP)

	CLR	-(SP)
	CALL	M52644

	JMP	M17750

M14040:
	MOV	#A41150, -(SP)

	MOV	#17, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

	MOV	6(R5), 12(R5)

	MOV	10(R5), 14(R5)

	MOV	4(R5), R0

	SWAB	R0
	BIC	#377, R0

	ASL	R0
	ADD	R5, R0
	MOV	12(R5), R1

	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ADD	R0, R1
	ADD	14(R5), R1

	ADD	#27, R1

	MOV	R1, 11070(R5)

	MOV	4(R5), R0

	SWAB	R0
	BIC	#377, R0

	ASL	R0
	ASL	R0
	ADD	R5, R0
	MOV	12(R5), R1

	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ADD	R0, R1
	MOV	14(R5), R0

	ASL	R0
	ADD	R1, R0
	ADD	#10772, R0

	MOV	R0, 33074(R5)

	TSTB	46(R5)

	BNE	M14244
	JMP	M14252

M14244:
	MOVB	#56, @11070(R5)

M14252:
	JMP	M17750

M14256:
	MOV	#A41170, -(SP)

	MOV	#10, -(SP)

	CLR	-(SP)
	CALL	M52644

	JMP	M17750

M14300:
	MOV	#7, -(SP)

	CLR	-(SP)
	CALL	M52224

	MOV	#A41202, -(SP)

	MOV	#61, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

	CLR	-(SP)
	MOV	#2, -(SP)

	MOV	#10, -(SP)

	CALL	M01046

	MOV	(SP)+, R0
	SUB	R0, 60(R5)

	MOVB	#'., @11072(R5)

	JMP	M17750

M14372:
	TST	16(R5)

	BEQ	M14404
	CLR	R0
	BR	M14410
M14404:
	MOV	#1, R0

M14410:
	TST	20(R5)

	BEQ	M14422
	CLR	R1
	BR	M14426
M14422:
	MOV	#1, R1

M14426:
	COMB	R1
	BICB	R1, R0
	BNE	M14440
	JMP	M15572

M14440:
	MOV	@33074(R5), R0

	BIC	#177771, R0

	BEQ	M14456
	JMP	M14520

M14456:
	MOV	@33076(R5), R0

	BIS	#6, R0

	MOV	R0, @33076(R5)

	MOV	#A41264, -(SP)

	MOV	#34, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

	JMP	M15566

M14520:
	MOV	@33076(R5), R0

	BIC	#177771, R0

	CMP	R0, #2

	BEQ	M14542
	JMP	M15100

M14542:
	CLR	-(SP)
	MOV	#1, -(SP)

	MOV	#3, -(SP)

	CALL	M01046

	MOV	(SP)+, R0
	ADD	#177776, R0

	ADD	12(R5), R0

	MOV	R0, 22(R5)

	CLR	-(SP)
	MOV	#1, -(SP)

	MOV	#3, -(SP)

	CALL	M01046

	MOV	(SP)+, R0
	ADD	#177776, R0

	ADD	14(R5), R0

	MOV	R0, 24(R5)

	MOV	4(R5), R0

	SWAB	R0
	BIC	#377, R0

	ASL	R0
	ADD	R5, R0
	MOV	22(R5), R1

	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ADD	R0, R1
	ADD	24(R5), R1

	MOV	#K50222, -(SP)

	CALL	M53634

	CLR	-(SP)
	MOVB	27(R1), (SP)

	SUB	#40, (SP)

	CALL	M53452

	BEQ	M14730
	JMP	M15074

M14730:
	MOVB	@11070(R5), 53(R5)

	MOVB	#'., @11070(R5)

	MOV	4(R5), R0

	SWAB	R0
	BIC	#377, R0

	ASL	R0
	ADD	R5, R0
	MOV	22(R5), R1

	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ADD	R0, R1
	ADD	24(R5), R1

	MOVB	53(R5), 27(R1)

	MOV	4(R5), R0

	SWAB	R0
	BIC	#377, R0

	ASL	R0
	ASL	R0
	ADD	R5, R0
	MOV	22(R5), R1

	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ADD	R0, R1
	MOV	24(R5), R0

	ASL	R0
	ADD	R1, R0
	MOV	@33074(R5), 10772(R0)

M15074:
	JMP	M15566

M15100:
	MOVB	51(R5), R0

	COMB	R0
	BICB	#177776, R0

	BNE	M15120
	JMP	M15566

M15120:
	MOVB	50(R5), R0

	COMB	R0
	BICB	#177776, R0

	BNE	M15140
	JMP	M15270

M15140:
	CMP	64(R5), #1

	BGT	M15154
	JMP	M15204

M15154:
	CLR	-(SP)
	MOV	#2, -(SP)

	MOV	#17, -(SP)

	CALL	M01046

	MOV	(SP)+, R0
	SUB	R0, 64(R5)

	JMP	M15230

M15204:
	CLR	-(SP)
	MOV	#2, -(SP)

	MOV	#17, -(SP)

	CALL	M01046

	MOV	(SP)+, R0
	SUB	R0, 60(R5)

M15230:
	MOV	#7, -(SP)

	CLR	-(SP)
	CALL	M52224

	MOV	#A41322, -(SP)

	MOV	#21, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

	JMP	M15566

M15270:
	CLR	-(SP)
	MOV	#2, -(SP)

	MOV	#13, -(SP)

	CALL	M01046

	MOV	(SP)+, R0
	SUB	R0, 62(R5)

	ADD	#177776, 64(R5)

	CLRB	50(R5)

	MOVB	#'., 54(R5)

	MOV	#7, -(SP)

	CLR	-(SP)
	CALL	M52224

	MOV	#A41344, -(SP)

	MOV	#6, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

	ADD	#12, 56(R5)

	TST	64(R5)

	BLT	M15410
	JMP	M15422

M15410:
	ADD	64(R5), 60(R5)

	CLR	64(R5)

M15422:
	TST	62(R5)

	BLT	M15434
	JMP	M15446

M15434:
	ADD	62(R5), 56(R5)

	CLR	62(R5)

M15446:
	MOV	#1, 16(R5)

M15454:
	MOV	R5, R0
	ADD	16(R5), R0

	CMPB	33121(R0), @11070(R5)

	BNE	M15476
	CLR	R0
	BR	M15502
M15476:
	MOV	#1, R0

M15502:
	CMP	16(R5), #4

	BLT	M15516
	CLR	R1
	BR	M15522
M15516:
	MOV	#1, R1

M15522:
	COMB	R1
	BICB	R1, R0
	BNE	M15534
	JMP	M15544

M15534:
	INC	16(R5)

	JMP	M15454

M15544:
	MOV	R5, R0
	ADD	16(R5), R0

	MOVB	#SPACE, 33121(R0)

	MOVB	#'m, @11070(R5)

M15566:
	JMP	M15612

M15572:
	MOV	4(R5), -(SP)

	MOV	6(R5), -(SP)

	MOV	10(R5), -(SP)

	CALL	M02574

M15612:
	JMP	M17750

M15616:
	TST	16(R5)

	BEQ	M15630
	CLR	R0
	BR	M15634
M15630:
	MOV	#1, R0

M15634:
	TST	20(R5)

	BEQ	M15646
	CLR	R1
	BR	M15652
M15646:
	MOV	#1, R1

M15652:
	COMB	R1
	BICB	R1, R0
	BNE	M15664
	JMP	M16020

M15664:
	CLR	-(SP)
	MOV	#177771, -(SP)

	MOV	#7, -(SP)

	CALL	M01046

	MOV	(SP)+, R0
	MOV	R0, 22(R5)

	ADD	22(R5), 60(R5)

	TST	22(R5)

	BGT	M15730
	JMP	M15764

M15730:
	MOV	#A41354, -(SP)

	MOV	#15, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

	MOVB	#'z, @11070(R5)

	JMP	M16014

M15764:
	MOV	#A41372, -(SP)

	MOV	#7, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

	MOVB	#'y, @11072(R5)

M16014:
	JMP	M16042

M16020:
	MOV	#A41402, -(SP)

	MOV	#20, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

M16042:
	JMP	M17750

M16046:
	JMP	M17750

M16052:
	MOV	#A41424, -(SP)

	MOV	#'., -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

	JMP	M17750

M16100:
	MOV	#A41504, -(SP)

	MOV	#15, -(SP)

	CLR	-(SP)
	CALL	M52644

	JMP	M17750

M16122:
	MOV	#A41522, -(SP)

	MOV	#30, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

	JMP	M17750

M16150:
	MOV	#A41554, -(SP)

	MOV	#6, -(SP)

	CLR	-(SP)
	CALL	M52644

	JMP	M17750

M16172:
	MOV	#A41564, -(SP)

	MOV	#24, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

	JMP	M17750

M16220:
	MOV	#A41612, -(SP)

	MOV	#35, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

	JMP	M17750

M16246:
	MOV	#A41650, -(SP)

	MOV	#25, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

	JMP	M17750

M16274:
	MOV	#A41676, -(SP)

	MOV	#57, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

	JMP	M17750

M16322:
	MOV	#A41756, -(SP)

	MOV	#14, -(SP)

	CLR	-(SP)
	CALL	M52644

	JMP	M17750

M16344:
	MOV	#A41774, -(SP)

	MOV	#24, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

	JMP	M17750

M16372:
	MOV	#A42022, -(SP)

	MOV	#55, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

	JMP	M17750

M16420:
	MOV	#A42100, -(SP)

	MOV	#15, -(SP)

	CLR	-(SP)
	CALL	M52644

	JMP	M17750

M16442:
	MOV	#A42116, -(SP)

	MOV	#5, -(SP)

	CLR	-(SP)
	CALL	M52644

	JMP	M17750

M16464:
	MOV	#A42124, -(SP)

	MOV	#11, -(SP)

	CLR	-(SP)
	CALL	M52644

	JMP	M17750

M16506:
	MOV	#A42136, -(SP)

	MOV	#15, -(SP)

	CLR	-(SP)
	CALL	M52644

	JMP	M17750

M16530:
	MOV	#A42154, -(SP)

	MOV	#40, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

	JMP	M17750

M16556:
	MOV	#A42216, -(SP)

	MOV	#51, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

	JMP	M17750

M16604:
	MOV	#A42270, -(SP)

	MOV	#71, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

	JMP	M17750

M16632:
	MOV	#A42362, -(SP)

	MOV	#60, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

	JMP	M17750

M16660:
	MOV	#A42444, -(SP)

	MOV	#11, -(SP)

	CLR	-(SP)
	CALL	M52644

	JMP	M17750

M16702:
	MOV	#A42456, -(SP)

	MOV	#41, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

	JMP	M17750

M16730:
	MOV	#A42520, -(SP)

	MOV	#27, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

	JMP	M17750

M16756:
	MOV	#A42550, -(SP)

	MOV	#24, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

	JMP	M17750

M17004:
	MOV	#A42576, -(SP)

	MOV	#16, -(SP)

	CLR	-(SP)
	CALL	M52644

	JMP	M17750

M17026:
	MOV	#A42616, -(SP)

	MOV	#37, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

	JMP	M17750

M17054:
	MOV	#A42656, -(SP)

	MOV	#14, -(SP)

	CLR	-(SP)
	CALL	M52644

	JMP	M17750

M17076:
	MOV	#A42674, -(SP)

	MOV	#31, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

	JMP	M17750

M17124:
	MOV	#A42726, -(SP)

	MOV	#23, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

	JMP	M17750

M17152:
	MOV	#A42752, -(SP)

	MOV	#34, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

	JMP	M17750

M17200:
	MOV	#A43010, -(SP)

	MOV	#10, -(SP)

	CLR	-(SP)
	CALL	M52644

	CLR	-(SP)
	MOV	#56, -(SP)

	MOV	#56, -(SP)

	CALL	M02332

	MOV	(SP)+, R0
	MOV	R0, 22(R5)

	CMP	22(R5), #7

	BLT	M17256
	JMP	M17262

M17256:
	INC	30(R5)

M17262:
	MOV	R5, R0
	ADD	22(R5), R0

	MOVB	#'@, 33077(R0)

	JMP	M17750

M17302:
	TST	16(R5)

	BEQ	M17314
	CLR	R0
	BR	M17320
M17314:
	MOV	#1, R0

M17320:
	TST	20(R5)

	BEQ	M17332
	CLR	R1
	BR	M17336
M17332:
	MOV	#1, R1

M17336:
	COMB	R1
	BICB	R1, R0
	BNE	M17350
	JMP	M17424

M17350:
	CLR	-(SP)
	MOV	#40, -(SP)

	MOV	#176, -(SP)

	CALL	M01046

	MOV	(SP)+, R0
	MOVB	R0, @11070(R5)

	CLR	-(SP)
	MOV	#1, -(SP)

	MOV	#17777, -(SP)

	CALL	M01046

	MOV	(SP)+, R0
	MOV	R0, @33074(R5)

	JMP	M17446

M17424:
	MOV	#A43022, -(SP)

	MOV	#33, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

M17446:
	JMP	M17750

	.WORD	M13124
	.WORD	M16046
	.WORD	M14040
	.WORD	M13540
	.WORD	M13076
	.WORD	M12744
	.WORD	M14256
	.WORD	M14040
	.WORD	M13664
	.WORD	M13664
	.WORD	M12766
	.WORD	M13076
	.WORD	M13010
	.WORD	M16046
	.WORD	M16046
	.WORD	M13774
	.WORD	M15616
	.WORD	M17076
	.WORD	M15616
	.WORD	M15616
	.WORD	M15616
	.WORD	M15616
	.WORD	M15616
	.WORD	M15616
	.WORD	M15616
	.WORD	M15616
	.WORD	M13752
	.WORD	M13752
	.WORD	M14016
	.WORD	M13342
	.WORD	M14016
	.WORD	M13730
	.WORD	M17200
	.WORD	M17076
	.WORD	M17076
	.WORD	M14300
	.WORD	M14372
	.WORD	M14372
	.WORD	M14372
	.WORD	M14372
	.WORD	M14300
	.WORD	M14372
	.WORD	M14300
	.WORD	M14372
	.WORD	M14372
	.WORD	M14372
	.WORD	M14372
	.WORD	M14372
	.WORD	M14372
	.WORD	M14372
	.WORD	M14372
	.WORD	M14372
	.WORD	M14300
	.WORD	M14372
	.WORD	M14372
	.WORD	M14372
	.WORD	M14372
	.WORD	M14372
	.WORD	M14372
	.WORD	M13706
	.WORD	M13774
	.WORD	M13706
	.WORD	M13364
	.WORD	M17302
	.WORD	M17152
	.WORD	M17302
	.WORD	M16052
	.WORD	M16100
	.WORD	M16122
	.WORD	M16150
	.WORD	M16172
	.WORD	M16220
	.WORD	M16246
	.WORD	M16274
	.WORD	M16322
	.WORD	M16344
	.WORD	M16372
	.WORD	M16420
	.WORD	M16442
	.WORD	M16464
	.WORD	M16506
	.WORD	M17026
	.WORD	M16530
	.WORD	M16556
	.WORD	M16604
	.WORD	M16632
	.WORD	M16660
	.WORD	M16702
	.WORD	M16730
	.WORD	M16756
	.WORD	M17004
	.WORD	M15616
	.WORD	M17124
	.WORD	M15616
	.WORD	M17054
M17750:
	INC	@4(SP)

	JMP	M12510

M17760:
	ADD	#6, SP

	INC	@4(SP)

	JMP	M12450

M17774:
	ADD	#6, SP

	MOVB	@11070(R5), 54(R5)

	MOVB	#100, @11070(R5)

	TSTB	47(R5)

	BNE	M20026
	JMP	M20052

M20026:
	MOV	4(R5), -(SP)

	MOV	12(R5), -(SP)

	MOV	14(R5), -(SP)

	CALL	M01460

	JMP	M20136

M20052:
	MOV	12(R5), -(SP)

	MOV	14(R5), -(SP)

	CALL	M01216

	MOV	#100, -(SP)

	CLR	-(SP)
	CALL	M52224

	BIS	#100, @33074(R5)

	MOV	34(R5), -(SP)

	MOV	36(R5), -(SP)

	CALL	M01216

	CLR	-(SP)
	MOVB	55(R5), (SP)

	CLR	-(SP)
	CALL	M52224

M20136:
	MOVB	54(R5), @11070(R5)

	MOV	12(R5), 34(R5)

	MOV	14(R5), 36(R5)

	MOVB	54(R5), 55(R5)

	MOV	#1, -(SP)

	CLR	-(SP)
	CALL	M01216

	MOV	4(R5), -(SP)

	MOV	#3, -(SP)

	CALL	M52306

	MOV	R5, R0
	ADD	#16, R0

	MOV	R0, -(SP)
	MOV	#1, -(SP)

	MOV	#5, -(SP)

	MOV	2(SP), @4(SP)

M20242:
	CMP	@4(SP), (SP)

	BLE	M20254
	JMP	M20336

M20254:
	MOV	16(R5), -(SP)

	MOV	#45, -(SP)

	CALL	M01216

	MOV	16(R5), R0

	ASL	R0
	ADD	R5, R0
	MOV	54(R0), -(SP)

	MOV	#3, -(SP)

	CALL	M52306

	MOV	#40, -(SP)

	CLR	-(SP)
	CALL	M52224

	INC	@4(SP)

	JMP	M20242

M20336:
	ADD	#6, SP

	MOV	#7, -(SP)

	MOV	#45, -(SP)

	CALL	M01216

	MOV	30(R5), -(SP)

	MOV	#3, -(SP)

	CALL	M52306

	MOV	#12, -(SP)

	MOV	#41, -(SP)

	CALL	M01216

	TSTB	33156(R5)

	BNE	M20420
	JMP	M20520

M20420:
	MOV	R5, R0
	ADD	#16, R0

	MOV	R0, -(SP)
	MOV	#1, -(SP)

	MOV	#6, -(SP)

	MOV	2(SP), @4(SP)

M20446:
	CMP	@4(SP), (SP)

	BLE	M20460
	JMP	M20514

M20460:
	MOV	R5, R0
	ADD	16(R5), R0

	CLR	-(SP)
	MOVB	33077(R0), (SP)

	MOV	#2, -(SP)

	CALL	M52224

	INC	@4(SP)

	JMP	M20446

M20514:
	ADD	#6, SP

M20520:
	CLRB	33156(R5)

	CLR	-(SP)
	CLR	-(SP)
	CALL	M01216

	MOV	R5, R0
	ADD	#53, R0

	MOV	R0, -(SP)
	CALL	M01166

	CALL	M01320

	MOVB	53(R5), R0

	SUB	#56, R0

	BGE	M20572
	JMP	M35114

M20572:
	CMP	#54, R0

	BGE	M20604
	JMP	M35114

M20604:
	ASL	R0
	JMP	@35142(R0)

M20612:
	MOV	#1, -(SP)

	MOV	#177777, -(SP)

	CALL	M05370

	JMP	M35274

M20632:
	MOV	#1, -(SP)

	CLR	-(SP)
	CALL	M05370

	JMP	M35274

M20650:
	MOV	#1, -(SP)

	MOV	#1, -(SP)

	CALL	M05370

	JMP	M35274

M20670:
	CLR	-(SP)
	MOV	#177777, -(SP)

	CALL	M05370

	JMP	M35274

M20706:
	MOV	#65, -(SP)

	CALL	M03362

	JMP	M35274

M20722:
	CLR	-(SP)
	MOV	#1, -(SP)

	CALL	M05370

	JMP	M35274

M20740:
	MOV	#177777, -(SP)

	MOV	#177777, -(SP)

	CALL	M05370

	JMP	M35274

M20760:
	MOV	#177777, -(SP)

	CLR	-(SP)
	CALL	M05370

	JMP	M35274

M20776:
	MOV	#177777, -(SP)

	MOV	#1, -(SP)

	CALL	M05370

	JMP	M35274

M21016:
	CLR	26(R5)

	JMP	M35274

M21026:
	MOV	#56, -(SP)

	CALL	M03362

	JMP	M35274

M21042:
	CLR	-(SP)
	MOV	#44, -(SP)

	MOV	#53, -(SP)

	CALL	M02332

	MOV	(SP)+, R0
	MOV	R0, 16(R5)

	CMP	16(R5), #7

	BLT	M21102
	JMP	M22440

M21102:
	MOV	R5, R0
	ADD	16(R5), R0

	MOVB	#56, 33077(R0)

	DEC	30(R5)

	MOV	16(R5), R0

	ASL	R0
	ADD	R5, R0
	MOV	33104(R0), R0

	BIC	#177771, R0

	BEQ	M21150
	JMP	M21610

M21150:
	MOV	R5, R0
	ADD	#16, R0

	MOV	R0, -(SP)
	MOV	#2, -(SP)

	MOV	#17, -(SP)

	MOV	2(SP), @4(SP)

M21176:
	CMP	@4(SP), (SP)

	BLE	M21210
	JMP	M21574

M21210:
	MOV	R5, R0
	ADD	#20, R0

	MOV	R0, -(SP)
	MOV	#2, -(SP)

	MOV	#37, -(SP)

	MOV	2(SP), @4(SP)

M21236:
	CMP	@4(SP), (SP)

	BLE	M21250
	JMP	M21560

M21250:
	MOV	4(R5), R0

	SWAB	R0
	BIC	#377, R0

	ASL	R0
	ADD	R5, R0
	MOV	16(R5), R1

	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ADD	R0, R1
	ADD	20(R5), R1

	CMPB	27(R1), #56

	BNE	M21326
	JMP	M21550

M21326:
	MOV	16(R5), -(SP)

	MOV	20(R5), -(SP)

	CALL	M01216

	MOV	4(R5), R0

	SWAB	R0
	BIC	#377, R0

	ASL	R0
	ADD	R5, R0
	MOV	16(R5), R1

	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ADD	R0, R1
	ADD	20(R5), R1

	MOVB	27(R1), 53(R5)

	MOV	4(R5), R0

	SWAB	R0
	BIC	#377, R0

	ASL	R0
	ADD	R5, R0
	MOV	16(R5), R1

	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ADD	R0, R1
	ADD	20(R5), R1

	MOV	#K50212, -(SP)

	CALL	M53634

	CLR	-(SP)
	MOVB	27(R1), (SP)

	SUB	#40, (SP)

	CALL	M53452

	BEQ	M21510
	JMP	M21534

M21510:
	CLR	-(SP)
	MOV	#41, -(SP)

	MOV	#176, -(SP)

	CALL	M01046

	MOV	(SP)+, R0
	MOVB	R0, 53(R5)

M21534:
	CLR	-(SP)
	MOVB	53(R5), (SP)

	CLR	-(SP)
	CALL	M52224

M21550:
	INC	@4(SP)

	JMP	M21236

M21560:
	ADD	#6, SP

	INC	@4(SP)

	JMP	M21176

M21574:
	ADD	#6, SP

	CALL	M01320

	JMP	M22434

M21610:
	MOV	16(R5), R0

	ASL	R0
	ADD	R5, R0
	MOV	33104(R0), R0

	BIC	#177771, R0

	CMP	R0, #2

	BEQ	M21642
	JMP	M21702

M21642:
	ADD	#24, 60(R5)

	CLR	26(R5)

	MOV	#A43056, -(SP)

	MOV	#26, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

	JMP	M22434

M21702:
	MOV	16(R5), R0

	ASL	R0
	ADD	R5, R0
	MOV	33104(R0), R0

	BIC	#177771, R0

	CMP	R0, #4

	BEQ	M21734
	JMP	M22404

M21734:
	MOV	R5, R0
	ADD	#16, R0

	MOV	R0, -(SP)
	MOV	#2, -(SP)

	MOV	#17, -(SP)

	MOV	2(SP), @4(SP)

M21762:
	CMP	@4(SP), (SP)

	BLE	M21774
	JMP	M22370

M21774:
	MOV	R5, R0
	ADD	#20, R0

	MOV	R0, -(SP)
	MOV	#2, -(SP)

	MOV	#37, -(SP)

	MOV	2(SP), @4(SP)

M22022:
	CMP	@4(SP), (SP)

	BLE	M22034
	JMP	M22354

M22034:
	MOV	4(R5), R0

	SWAB	R0
	BIC	#377, R0

	ASL	R0
	ADD	R5, R0
	MOV	16(R5), R1

	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ADD	R0, R1
	ADD	20(R5), R1

	CMPB	27(R1), #56

	BNE	M22112
	JMP	M22344

M22112:
	MOV	16(R5), -(SP)

	MOV	20(R5), -(SP)

	CALL	M01216

	MOV	4(R5), R0

	SWAB	R0
	BIC	#377, R0

	ASL	R0
	ADD	R5, R0
	MOV	16(R5), R1

	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ADD	R0, R1
	ADD	20(R5), R1

	CLR	-(SP)
	MOVB	27(R1), (SP)

	CLR	-(SP)
	CALL	M52224

	MOV	4(R5), R0

	SWAB	R0
	BIC	#377, R0

	ASL	R0
	ASL	R0
	ADD	R5, R0
	MOV	16(R5), R1

	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ADD	R0, R1
	MOV	20(R5), R0

	ASL	R0
	ADD	R1, R0
	MOV	4(R5), R1

	SWAB	R1
	BIC	#377, R1

	ASL	R1
	ASL	R1
	ADD	R5, R1
	MOV	16(R5), R2

	ASL	R2
	ASL	R2
	ASL	R2
	ASL	R2
	ASL	R2
	ASL	R2
	ADD	R1, R2
	MOV	20(R5), R1

	ASL	R1
	ADD	R2, R1
	MOV	10772(R1), R1

	BIS	#100, R1

	MOV	R1, 10772(R0)

M22344:
	INC	@4(SP)

	JMP	M22022

M22354:
	ADD	#6, SP

	INC	@4(SP)

	JMP	M21762

M22370:
	ADD	#6, SP

	CALL	M01320

	JMP	M22434

M22404:
	MOV	#24, 40(R5)

	MOV	#A43106, -(SP)

	MOV	#35, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

M22434:
	JMP	M22462

M22440:
	MOV	#A43144, -(SP)

	MOV	#13, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

M22462:
	JMP	M35274

M22466:
	MOV	#A43160, -(SP)

	MOV	#17, -(SP)

	CLR	-(SP)
	CALL	M52644

	BIS	#40000, @#K00044

	MOV	R5, R0
	ADD	#53, R0

	MOV	R0, -(SP)
	CALL	M01166

	BIC	#40000, @#K00044

	CALL	M01320

	CLR	-(SP)
	CLR	-(SP)
	MOVB	53(R5), (SP)

	CLR	-(SP)
	MOVB	53(R5), (SP)

	CALL	M02332

	MOV	(SP)+, R0
	MOV	R0, 16(R5)

	CMP	16(R5), #7

	BLT	M22604
	JMP	M22762

M22604:
	MOV	16(R5), R0

	ASL	R0
	ADD	R5, R0
	MOV	33104(R0), R0

	BIC	#175777, R0

	BEQ	M22632
	JMP	M22752

M22632:
	CMPB	53(R5), #56

	BNE	M22646
	JMP	M22746

M22646:
	DEC	30(R5)

	MOV	R5, R0
	ADD	16(R5), R0

	MOVB	#56, 33077(R0)

	MOV	#K50202, -(SP)

	CALL	M53634

	CLR	-(SP)
	MOVB	@11070(R5), (SP)

	SUB	#40, (SP)

	CALL	M53452

	BEQ	M22722
	JMP	M22746

M22722:
	MOVB	53(R5), @11070(R5)

	MOV	16(R5), R0

	ASL	R0
	ADD	R5, R0
	MOV	33104(R0), @33074(R5)

M22746:
	JMP	M22756

M22752:
	CALL	M03306

M22756:
	JMP	M23004

M22762:
	MOV	#A43200, -(SP)

	MOV	#4, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

M23004:
	JMP	M35274

M23010:
	CLR	-(SP)
	MOV	#52, -(SP)

	MOV	#52, -(SP)

	CALL	M02332

	MOV	(SP)+, R0
	MOV	R0, 16(R5)

	CMP	16(R5), #7

	BLT	M23050
	JMP	M23152

M23050:
	INC	56(R5)

	DEC	30(R5)

	MOV	R5, R0
	ADD	16(R5), R0

	MOVB	#56, 33077(R0)

	CLR	-(SP)
	MOV	#12, -(SP)

	MOV	#106, -(SP)

	CALL	M01046

	MOV	(SP)+, R0
	ADD	66(R5), R0

	MOV	R0, 66(R5)

	MOV	#A43206, -(SP)

	MOV	#4, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

	JMP	M23174

M23152:
	MOV	#A43214, -(SP)

	MOV	#16, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

M23174:
	JMP	M35274

M23200:
	CLR	-(SP)
	MOV	#77, -(SP)

	MOV	#77, -(SP)

	CALL	M02332

	MOV	(SP)+, R0
	MOV	R0, 22(R5)

	CMP	22(R5), #7

	BLT	M23240
	JMP	M24626

M23240:
	MOV	22(R5), R0

	ASL	R0
	ADD	R5, R0
	MOV	33104(R0), R0

	BIC	#177771, R0

	CMP	R0, #4

	BEQ	M23272
	JMP	M23310

M23272:
	MOV	#7, -(SP)

	CLR	-(SP)
	CALL	M52224

	JMP	M24622

M23310:
	MOV	22(R5), R0

	ASL	R0
	ADD	R5, R0
	MOV	33104(R0), R0

	BIC	#177771, R0

	CMP	R0, #2

	BEQ	M23342
	JMP	M23706

M23342:
	MOV	R5, R0
	ADD	#16, R0

	MOV	R0, -(SP)
	MOV	#177776, -(SP)

	MOV	#2, -(SP)

	MOV	2(SP), @4(SP)

M23370:
	CMP	@4(SP), (SP)

	BLE	M23402
	JMP	M23662

M23402:
	MOV	R5, R0
	ADD	#20, R0

	MOV	R0, -(SP)
	MOV	#177776, -(SP)

	MOV	#2, -(SP)

	MOV	2(SP), @4(SP)

M23430:
	CMP	@4(SP), (SP)

	BLE	M23442
	JMP	M23646

M23442:
	MOV	12(R5), R0

	ADD	16(R5), R0

	MOV	#K50172, -(SP)

	CALL	M53634

	MOV	R0, -(SP)
	CALL	M53452

	BNE	M23476
	CLR	R0
	BR	M23502
M23476:
	MOV	#1, R0

M23502:
	MOV	14(R5), R1

	ADD	20(R5), R1

	MOV	#50162, -(SP)

	CALL	M53634

	MOV	R1, -(SP)
	CALL	M53452

	BNE	M23536
	CLR	R1
	BR	M23542
M23536:
	MOV	#1, R1

M23542:
	COMB	R1
	BICB	R1, R0
	BNE	M23554
	JMP	M23636

M23554:
	MOV	4(R5), R0

	SWAB	R0
	BIC	#377, R0

	ASL	R0
	ADD	R5, R0
	MOV	12(R5), R1

	ADD	16(R5), R1

	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ADD	R0, R1
	MOV	14(R5), R0

	ADD	20(R5), R0

	ADD	R1, R0
	MOVB	#40, 27(R0)

M23636:
	INC	@4(SP)

	JMP	M23430

M23646:
	ADD	#6, SP

	INC	@4(SP)

	JMP	M23370

M23662:
	ADD	#6, SP

	MOV	R5, R0
	ADD	22(R5), R0

	MOVB	#56, 33077(R0)

	JMP	M24622

M23706:
	MOV	22(R5), R0

	ASL	R0
	ADD	R5, R0
	MOV	33104(R0), R0

	BIC	#177771, R0

	BEQ	M23734
	JMP	M24166

M23734:
	MOV	#A43234, -(SP)

	MOV	#23, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

	CLR	-(SP)
	MOV	#2, -(SP)

	MOV	#17, -(SP)

	CALL	M01046

	MOV	(SP)+, R0
	MOV	R0, 12(R5)

	CLR	-(SP)
	MOV	#2, -(SP)

	MOV	#37, -(SP)

	CALL	M01046

	MOV	(SP)+, R0
	MOV	R0, 14(R5)

	MOV	4(R5), R0

	SWAB	R0
	BIC	#377, R0

	ASL	R0
	ADD	R5, R0
	MOV	12(R5), R1

	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ADD	R0, R1
	ADD	14(R5), R1

	ADD	#27, R1

	MOV	R1, 11070(R5)

	MOV	4(R5), R0

	SWAB	R0
	BIC	#377, R0

	ASL	R0
	ASL	R0
	ADD	R5, R0
	MOV	12(R5), R1

	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ADD	R0, R1
	MOV	14(R5), R0

	ASL	R0
	ADD	R1, R0
	ADD	#10772, R0

	MOV	R0, 33074(R5)

	JMP	M24622

M24166:
	MOV	#A43260, -(SP)

	MOV	#21, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

	MOV	R5, R0
	ADD	#16, R0

	MOV	R0, -(SP)
	MOV	#1, -(SP)

	MOV	#4, -(SP)

	MOV	2(SP), @4(SP)

M24236:
	CMP	@4(SP), (SP)

	BLE	M24250
	JMP	M24274

M24250:
	MOV	R5, R0
	ADD	16(R5), R0

	MOVB	#40, 33121(R0)

	INC	@4(SP)

	JMP	M24236

M24274:
	ADD	#6, SP

	MOV	R5, R0
	ADD	#16, R0

	MOV	R0, -(SP)
	MOV	#177777, -(SP)

	MOV	#1, -(SP)

	MOV	2(SP), @4(SP)

M24326:
	CMP	@4(SP), (SP)

	BLE	M24340
	JMP	M24616

M24340:
	MOV	R5, R0
	ADD	#20, R0

	MOV	R0, -(SP)
	MOV	#177777, -(SP)

	MOV	#1, -(SP)

	MOV	2(SP), @4(SP)

M24366:
	CMP	@4(SP), (SP)

	BLE	M24400
	JMP	M24602

M24400:
	MOV	4(R5), R0

	SWAB	R0
	BIC	#377, R0

	ASL	R0
	ADD	R5, R0
	MOV	12(R5), R1

	ADD	16(R5), R1

	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ADD	R0, R1
	MOV	14(R5), R0

	ADD	20(R5), R0

	ADD	R1, R0
	MOV	#K50152, -(SP)

	CALL	M53634

	CLR	-(SP)
	MOVB	27(R0), (SP)

	SUB	#40, (SP)

	CALL	M53452

	BNE	M24510
	JMP	M24572

M24510:
	MOV	4(R5), R0

	SWAB	R0
	BIC	#377, R0

	ASL	R0
	ADD	R5, R0
	MOV	12(R5), R1

	ADD	16(R5), R1

	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ADD	R0, R1
	MOV	14(R5), R0

	ADD	20(R5), R0

	ADD	R1, R0
	MOVB	#52, 27(R0)

M24572:
	INC	@4(SP)

	JMP	M24366

M24602:
	ADD	#6, SP

	INC	@4(SP)

	JMP	M24326

M24616:
	ADD	#6, SP

M24622:
	JMP	M24650

M24626:
	MOV	#A43302, -(SP)

	MOV	#25, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

M24650:
	JMP	M35274

M24654:
	CLR	-(SP)
	MOV	#72, -(SP)

	MOV	#73, -(SP)

	CALL	M02332

	MOV	(SP)+, R0
	MOV	R0, 16(R5)

	CMP	16(R5), #7

	BLT	M24714
	JMP	M24770

M24714:
	ADD	#22, 60(R5)

	MOV	R5, R0
	ADD	16(R5), R0

	MOVB	#56, 33077(R0)

	DEC	30(R5)

	MOV	#A43330, -(SP)

	MOV	#10, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

	JMP	M25012

M24770:
	MOV	#A43342, -(SP)

	MOV	#7, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

M25012:
	JMP	M35274

M25016:
	CLR	-(SP)
	MOV	#56, -(SP)

	MOV	#56, -(SP)

	CALL	M02332

	MOV	(SP)+, R0
	MOV	R0, 16(R5)

	CMP	16(R5), #7

	BLT	M25056
	JMP	M25214

M25056:
	MOV	#K50142, -(SP)

	CALL	M53634

	CLR	-(SP)
	MOVB	@11070(R5), (SP)

	SUB	#40, (SP)

	CALL	M53452

	BNE	M25112
	JMP	M25122

M25112:
	CALL	M02524

	JMP	M25210

M25122:
	MOV	#A43352, -(SP)

	MOV	#5, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

	INC	30(R5)

	MOV	R5, R0
	ADD	16(R5), R0

	MOVB	@11070(R5), 33077(R0)

	MOV	16(R5), R0

	ASL	R0
	ADD	R5, R0
	MOV	@33074(R5), 33104(R0)

	MOVB	#56, @11070(R5)

M25210:
	JMP	M25236

M25214:
	MOV	#A43360, -(SP)

	MOV	#14, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

M25236:
	JMP	M35274

M25242:
	CLR	-(SP)
	MOV	#51, -(SP)

	MOV	#50, -(SP)

	CALL	M02332

	MOV	(SP)+, R0
	MOV	R0, 16(R5)

	CMP	16(R5), #7

	BLT	M25302
	JMP	M25410

M25302:
	MOV	16(R5), R0

	ASL	R0
	ADD	R5, R0
	MOV	33104(R0), R0

	BIC	#175777, R0

	BEQ	M25330
	JMP	M25400

M25330:
	MOV	R5, R0
	ADD	16(R5), R0

	MOVB	#56, 33077(R0)

	ADD	#13, 64(R5)

	MOV	#A43376, -(SP)

	MOV	#16, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

	JMP	M25404

M25400:
	CALL	M03306

M25404:
	JMP	M25432

M25410:
	MOV	#A43416, -(SP)

	MOV	#4, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

M25432:
	JMP	M35274

M25436:
	TST	32(R5)

	BGT	M25450
	JMP	M25504

M25450:
	MOVB	#1, 47(R5)

	MOV	#A43424, -(SP)

	MOV	#16, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

	JMP	M25526

M25504:
	MOV	#A43444, -(SP)

	MOV	#45, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

M25526:
	JMP	M35274

M25532:
	CLRB	47(R5)

	MOV	#A43512, -(SP)

	MOV	#17, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

	JMP	M35274

M25564:
	CLR	-(SP)
	MOV	#57, -(SP)

	MOV	#134, -(SP)

	CALL	M02332

	MOV	(SP)+, R0
	MOV	R0, 16(R5)

	CMP	16(R5), #7

	BLT	M25624
	JMP	M27036

M25624:
	MOV	16(R5), R0

	ASL	R0
	ADD	R5, R0
	MOV	33104(R0), R0

	BIC	#177774, R0

	CMP	R0, #3

	BEQ	M25656
	JMP	M25704

M25656:
	MOV	#A43532, -(SP)

	MOV	#32, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

	JMP	M27032

M25704:
	MOV	16(R5), R0

	ASL	R0
	ADD	R5, R0
	MOV	33104(R0), R0

	BIC	#177774, R0

	CMP	R0, #2

	BEQ	M25736
	JMP	M26366

M25736:
	MOV	R5, R0
	ADD	#20, R0

	MOV	R0, -(SP)
	MOV	#2, -(SP)

	MOV	#37, -(SP)

	MOV	2(SP), @4(SP)

M25764:
	CMP	@4(SP), (SP)

	BLE	M25776
	JMP	M26314

M25776:
	MOV	R5, R0
	ADD	#22, R0

	MOV	R0, -(SP)
	MOV	#2, -(SP)

	MOV	#17, -(SP)

	MOV	2(SP), @4(SP)

M26024:
	CMP	@4(SP), (SP)

	BLE	M26036
	JMP	M26300

M26036:
	MOV	22(R5), -(SP)

	MOV	20(R5), -(SP)

	CALL	M01216

	MOV	4(R5), R0

	SWAB	R0
	BIC	#377, R0

	ASL	R0
	ADD	R5, R0
	MOV	22(R5), R1

	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ADD	R0, R1
	ADD	20(R5), R1

	CLR	-(SP)
	MOVB	27(R1), (SP)

	CLR	-(SP)
	CALL	M52224

	MOV	4(R5), R0

	SWAB	R0
	BIC	#377, R0

	ASL	R0
	ASL	R0
	ADD	R5, R0
	MOV	22(R5), R1

	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ADD	R0, R1
	MOV	20(R5), R0

	ASL	R0
	ADD	R1, R0
	MOV	4(R5), R1

	SWAB	R1
	BIC	#377, R1

	ASL	R1
	ASL	R1
	ADD	R5, R1
	MOV	22(R5), R2

	ASL	R2
	ASL	R2
	ASL	R2
	ASL	R2
	ASL	R2
	ASL	R2
	ADD	R1, R2
	MOV	20(R5), R1

	ASL	R1
	ADD	R2, R1
	MOV	10772(R1), R1

	BIS	#100, R1

	MOV	R1, 10772(R0)

	INC	@4(SP)

	JMP	M26024

M26300:
	ADD	#6, SP

	INC	@4(SP)

	JMP	M25764

M26314:
	ADD	#6, SP

	MOV	R5, R0
	ADD	16(R5), R0

	MOVB	#56, 33077(R0)

	CALL	M01320

	MOV	#A43566, -(SP)

	MOV	#22, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

	JMP	M27032

M26366:
	MOV	16(R5), R0

	ASL	R0
	ADD	R5, R0
	MOV	33104(R0), R0

	BIC	#177774, R0

	CMP	R0, #1

	BEQ	M26420
	JMP	M26570

M26420:
	TSTB	46(R5)

	BNE	M26432
	JMP	M26462

M26432:
	ADD	#177775, 4(R5)

	TST	4(R5)

	BLT	M26452
	JMP	M26456

M26452:
	CLR	4(R5)

M26456:
	JMP	M26512

M26462:
	ADD	#3, 4(R5)

	CMP	4(R5), #10

	BGT	M26504
	JMP	M26512

M26504:
	MOV	#10, 4(R5)

M26512:
	MOV	R5, R0
	ADD	16(R5), R0

	MOVB	#56, 33077(R0)

	MOV	#112, -(SP)

	CALL	M03362

	MOV	#A43612, -(SP)

	MOV	#54, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

	DEC	30(R5)

	JMP	M27032

M26570:
	MOV	#A43670, -(SP)

	MOV	#35, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

	MOV	R5, R0
	ADD	#22, R0

	MOV	R0, -(SP)
	MOV	#1, -(SP)

	MOV	#3, -(SP)

	MOV	2(SP), @4(SP)

M26640:
	CMP	@4(SP), (SP)

	BLE	M26652
	JMP	M27026

M26652:
	MOV	R5, R0
	ADD	22(R5), R0

	CMPB	33121(R0), #40

	BNE	M26674
	JMP	M27016

M26674:
	MOV	R5, R0
	ADD	22(R5), R0

	MOVB	#40, 33121(R0)

	MOV	4(R5), R0

	SWAB	R0
	BIC	#377, R0

	ASL	R0
	ADD	R5, R0
	MOV	22(R5), R1

	ASL	R1
	ADD	R5, R1
	MOV	33134(R1), R1

	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ADD	R0, R1
	MOV	22(R5), R0

	ASL	R0
	ADD	R5, R0
	ADD	33144(R0), R1

	CLR	-(SP)
	MOV	#44, -(SP)

	MOV	#77, -(SP)

	CALL	M01046

	MOV	(SP)+, R0
	MOVB	R0, 27(R1)

M27016:
	INC	@4(SP)

	JMP	M26640

M27026:
	ADD	#6, SP

M27032:
	JMP	M27060

M27036:
	MOV	#A43726, -(SP)

	MOV	#21, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

M27060:
	JMP	M35274

M27064:
	MOVB	33105(R5), 52(R5)

	MOV	33120(R5), 20(R5)

	MOV	R5, R0
	ADD	#16, R0

	MOV	R0, -(SP)
	MOV	#1, -(SP)

	MOV	#6, -(SP)

	MOV	2(SP), @4(SP)

M27126:
	CMP	@4(SP), (SP)

	BLE	M27140
	JMP	M27240

M27140:
	MOV	#7, R0

	SUB	16(R5), R0

	ADD	R5, R0
	MOV	#6, R1

	SUB	16(R5), R1

	ADD	R5, R1
	MOVB	33077(R1), 33077(R0)

	MOV	#7, R0

	SUB	16(R5), R0

	ASL	R0
	ADD	R5, R0
	MOV	#6, R1

	SUB	16(R5), R1

	ASL	R1
	ADD	R5, R1
	MOV	33104(R1), 33104(R0)

	INC	@4(SP)

	JMP	M27126

M27240:
	ADD	#6, SP

	MOVB	52(R5), 33100(R5)

	MOV	20(R5), 33106(R5)

	MOVB	#1, 33156(R5)

	MOV	#A43750, -(SP)

	MOV	#25, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

	JMP	M35274

M27314:
	MOVB	#1, 50(R5)

	MOV	#A43776, -(SP)

	MOV	#21, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

	JMP	M35274

M27350:
	MOV	#33, -(SP)

	CLR	-(SP)
	CALL	M52224

	MOV	#105, -(SP)

	CLR	-(SP)
	CALL	M52224

	MOV	R5, R0
	ADD	#16, R0

	MOV	R0, -(SP)
	MOV	#1, -(SP)

	MOV	#23, -(SP)

	MOV	2(SP), @4(SP)

M27422:
	CMP	@4(SP), (SP)

	BLE	M27434
	JMP	M27456

M27434:
	MOV	#22, -(SP)

	CLR	-(SP)
	CALL	M52224

	INC	@4(SP)

	JMP	M27422

M27456:
	ADD	#6, SP

M27462:
	MOV	R5, R0
	ADD	#53, R0

	MOV	R0, -(SP)
	CALL	M01166

	CMPB	53(R5), #120

	BEQ	M27512
	JMP	M27462

M27512:
	MOV	R5, R0
	ADD	#16, R0

	MOV	R0, -(SP)
	MOV	#1, -(SP)

	MOV	#23, -(SP)

	MOV	2(SP), @4(SP)

M27540:
	CMP	@4(SP), (SP)

	BLE	M27552
	JMP	M27574

M27552:
	MOV	#26, -(SP)

	CLR	-(SP)
	CALL	M52224

	INC	@4(SP)

	JMP	M27540

M27574:
	ADD	#6, SP

	MOV	#27, -(SP)

	CLR	-(SP)
	CALL	M52224

	JMP	M35274

M27616:
	MOV	#A44020, -(SP)

	MOV	#24, -(SP)

	CLR	-(SP)
	CALL	M52644

	MOV	R5, R0
	ADD	#53, R0

	MOV	R0, -(SP)
	CALL	M01166

	MOV	#K50132, -(SP)

	CALL	M53634

	CLR	-(SP)
	MOVB	53(R5), (SP)

	SUB	#40, (SP)

	CALL	M53452

	BNE	M27704
	JMP	M27736

M27704:
	MOV	#A44046, -(SP)

	MOV	#27, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

	MOV	K50406, SP

	JMP	M40120

M27736:
	JMP	M35274

M27742:
	CLR	-(SP)
	MOV	#133, -(SP)

	MOV	#135, -(SP)

	CALL	M02332

	MOV	(SP)+, R0
	MOV	R0, 16(R5)

	CMP	16(R5), #7

	BLT	M30002
	JMP	M30110

M30002:
	MOV	16(R5), R0

	ASL	R0
	ADD	R5, R0
	MOV	33104(R0), R0

	BIC	#175777, R0

	BEQ	M30030
	JMP	M30100

M30030:
	MOV	R5, R0
	ADD	16(R5), R0

	MOVB	#56, 33077(R0)

	ADD	#17, 62(R5)

	MOV	#A44076, -(SP)

	MOV	#23, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

	JMP	M30104

M30100:
	CALL	M03306

M30104:
	JMP	M30132

M30110:
	MOV	#A44122, -(SP)

	MOV	#5, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

M30132:
	JMP	M35274

M30136:
	CLR	-(SP)
	MOV	#74, -(SP)

	MOV	#76, -(SP)

	CALL	M02332

	MOV	(SP)+, R0
	MOV	R0, 16(R5)

	CMP	16(R5), #7

	BLT	M30176
	JMP	M30310

M30176:
	MOV	16(R5), R0

	ASL	R0
	ADD	R5, R0
	MOV	33104(R0), R0

	BIC	#175777, R0

	BEQ	M30224
	JMP	M30300

M30224:
	MOV	R5, R0
	ADD	16(R5), R0

	MOVB	#56, 33077(R0)

	DEC	30(R5)

	MOV	#620, 32(R5)

	MOV	#A44130, -(SP)

	MOV	#20, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

	JMP	M30304

M30300:
	CALL	M03306

M30304:
	JMP	M30332

M30310:
	MOV	#A44152, -(SP)

	MOV	#13, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

M30332:
	JMP	M35274

M30336:
	MOV	#112, -(SP)

	CALL	M03362

	JMP	M35274

M30352:
	CLR	-(SP)
	MOV	#46, -(SP)

	MOV	#46, -(SP)

	CALL	M02332

	MOV	(SP)+, R0
	MOV	R0, 16(R5)

	CMP	16(R5), #7

	BLT	M30412
	JMP	M31610

M30412:
	MOV	16(R5), R0

	ASL	R0
	ADD	R5, R0
	MOV	33104(R0), R0

	BIC	#177771, R0

	BEQ	M30440
	JMP	M30576

M30440:
	MOV	R5, R0
	ADD	#20, R0

	MOV	R0, -(SP)
	MOV	#1, -(SP)

	MOV	#10, -(SP)

	MOV	2(SP), @4(SP)

M30466:
	CMP	@4(SP), (SP)

	BLE	M30500
	JMP	M30544

M30500:
	MOV	20(R5), R0

	ASL	R0
	ADD	R5, R0
	MOV	20(R5), R1

	ASL	R1
	ADD	R5, R1
	MOV	33104(R1), R1

	BIC	#2000, R1

	MOV	R1, 33104(R0)

	INC	@4(SP)

	JMP	M30466

M30544:
	ADD	#6, SP

	MOV	#A44166, -(SP)

	MOV	#43, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

	JMP	M31604

M30576:
	MOV	16(R5), R0

	ASL	R0
	ADD	R5, R0
	MOV	33104(R0), R0

	BIC	#177771, R0

	CMP	R0, #2

	BEQ	M30630
	JMP	M30656

M30630:
	MOV	#A44232, -(SP)

	MOV	#33, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

	JMP	M31604

M30656:
	MOV	16(R5), R0

	ASL	R0
	ADD	R5, R0
	MOV	33104(R0), R0

	BIC	#177771, R0

	CMP	R0, #4

	BEQ	M30710
	JMP	M31226

M30710:
	MOV	#2, 22(R5)

M30716:
	CMP	22(R5), #20

	BLT	M30732
	JMP	M31150

M30732:
	MOV	#2, 24(R5)

M30740:
	CMP	24(R5), #40

	BLT	M30754
	JMP	M31052

M30754:
	MOV	4(R5), R0

	SWAB	R0
	BIC	#377, R0

	ASL	R0
	ADD	R5, R0
	MOV	22(R5), R1

	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ADD	R0, R1
	ADD	24(R5), R1

	CMPB	27(R1), #45

	BEQ	M31032
	JMP	M31042

M31032:
	JMP	M31052

	JMP	M31046

M31042:
	INC	24(R5)

M31046:
	JMP	M30740

M31052:
	MOV	4(R5), R0

	SWAB	R0
	BIC	#377, R0

	ASL	R0
	ADD	R5, R0
	MOV	22(R5), R1

	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ADD	R0, R1
	ADD	24(R5), R1

	CMPB	27(R1), #45

	BEQ	M31130
	JMP	M31140

M31130:
	JMP	M31150

	JMP	M31144

M31140:
	INC	22(R5)

M31144:
	JMP	M30716

M31150:
	MOV	#A44266, -(SP)

	MOV	#12, -(SP)

	CLR	-(SP)
	CALL	M52644

	MOV	22(R5), -(SP)

	MOV	#4, -(SP)

	CALL	M52306

	MOV	24(R5), -(SP)

	MOV	#4, -(SP)

	CALL	M52306

	CALL	M52176

	JMP	M31604

M31226:
	MOV	#1, 22(R5)

M31234:
	CMP	22(R5), #20

	BLT	M31250
	JMP	M31432

M31250:
	MOV	#2, 24(R5)

M31256:
	CMP	24(R5), #40

	BLT	M31272
	JMP	M31352

M31272:
	MOV	22(R5), R0

	ASL	R0
	ASL	R0
	ASL	R0
	ASL	R0
	ASL	R0
	ADD	R5, R0
	ADD	24(R5), R0

	CMPB	10027(R0), #54

	BEQ	M31332
	JMP	M31342

M31332:
	JMP	M31352

	JMP	M31346

M31342:
	INC	24(R5)

M31346:
	JMP	M31256

M31352:
	MOV	22(R5), R0

	ASL	R0
	ASL	R0
	ASL	R0
	ASL	R0
	ASL	R0
	ADD	R5, R0
	ADD	24(R5), R0

	CMPB	10027(R0), #54

	BEQ	M31412
	JMP	M31422

M31412:
	JMP	M31432

	JMP	M31426

M31422:
	INC	22(R5)

M31426:
	JMP	M31234

M31432:
	CMP	22(R5), #20

	BEQ	M31446
	CLR	R0
	BR	M31452
M31446:
	MOV	#1, R0

M31452:
	CMP	24(R5), #40

	BEQ	M31466
	CLR	R1
	BR	M31472
M31466:
	MOV	#1, R1

M31472:
	COMB	R1
	BICB	R1, R0
	BNE	M31504
	JMP	M31532

M31504:
	MOV	#A44302, -(SP)

	MOV	#24, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

	JMP	M31604

M31532:
	MOV	#A44330, -(SP)

	MOV	#17, -(SP)

	CLR	-(SP)
	CALL	M52644

	MOV	22(R5), -(SP)

	MOV	#4, -(SP)

	CALL	M52306

	MOV	24(R5), -(SP)

	MOV	#4, -(SP)

	CALL	M52306

	CALL	M52176

M31604:
	JMP	M31632

M31610:
	MOV	#A44350, -(SP)

	MOV	#24, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

M31632:
	JMP	M35274

M31636:
	CLR	-(SP)
	MOV	#75, -(SP)

	MOV	#75, -(SP)

	CALL	M02332

	MOV	(SP)+, R0
	MOV	R0, 16(R5)

	CMP	16(R5), #7

	BLT	M31676
	JMP	M32004

M31676:
	MOV	16(R5), R0

	ASL	R0
	ADD	R5, R0
	MOV	33104(R0), R0

	BIC	#175777, R0

	BEQ	M31724
	JMP	M31774

M31724:
	MOV	#A44376, -(SP)

	MOV	#26, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

	MOVB	#1, 51(R5)

	MOV	R5, R0
	ADD	16(R5), R0

	MOVB	#56, 33077(R0)

	JMP	M32000

M31774:
	CALL	M03306

M32000:
	JMP	M32026

M32004:
	MOV	#A44426, -(SP)

	MOV	#4, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

M32026:
	JMP	M35274

M32032:
	TSTB	51(R5)

	BNE	M32044
	JMP	M32174

M32044:
	CLR	-(SP)
	MOV	#56, -(SP)

	MOV	#56, -(SP)

	CALL	M02332

	MOV	(SP)+, R0
	MOV	R0, 16(R5)

	CMP	16(R5), #7

	BLT	M32104
	JMP	M32146

M32104:
	MOV	R5, R0
	ADD	16(R5), R0

	MOVB	#75, 33077(R0)

	MOV	16(R5), R0

	ASL	R0
	ADD	R5, R0
	MOV	#2000, 33104(R0)

	CLRB	51(R5)

	JMP	M32170

M32146:
	MOV	#A44434, -(SP)

	MOV	#14, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

M32170:
	JMP	M32216

M32174:
	MOV	#A44452, -(SP)

	MOV	#12, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

M32216:
	JMP	M35274

M32222:
	MOV	#K50122, -(SP)

	CALL	M53634

	CLR	-(SP)
	MOVB	@11070(R5), (SP)

	SUB	#40, (SP)

	CALL	M53452

	BNE	M32256
	JMP	M32552

M32256:
	TST	66(R5)

	BGT	M32270
	JMP	M32524

M32270:
	MOV	#A44466, -(SP)

	MOV	#16, -(SP)

	CLR	-(SP)
	CALL	M52644

	MOV	R5, R0
	ADD	#53, R0

	MOV	R0, -(SP)
	CALL	M01166

	CLR	-(SP)
	MOV	#56, -(SP)

	MOV	#56, -(SP)

	CALL	M02332

	MOV	(SP)+, R0
	MOV	R0, 16(R5)

	CMP	16(R5), #7

	BLT	M32362
	JMP	M32520

M32362:
	MOV	R5, R0
	ADD	16(R5), R0

	MOVB	53(R5), 33077(R0)

	MOV	16(R5), R0

	ASL	R0
	ADD	R5, R0
	CLR	-(SP)
	MOV	#1, -(SP)

	MOV	#17777, -(SP)

	CALL	M01046

	MOV	(SP)+, R1
	MOV	R1, 33104(R0)

	CLR	-(SP)
	MOV	#12, -(SP)

	MOV	#372, -(SP)

	CALL	M01046

	MOV	(SP)+, R0
	SUB	R0, 66(R5)

	MOV	#15, -(SP)

	CLR	-(SP)
	CALL	M52224

	MOV	#A44506, -(SP)

	MOV	#21, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

	MOVB	#153, @11070(R5)

M32520:
	JMP	M32546

M32524:
	MOV	#A44530, -(SP)

	MOV	#31, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

M32546:
	JMP	M32574

M32552:
	MOV	#A44562, -(SP)

	MOV	#31, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

M32574:
	JMP	M35274

M32600:
	CLR	-(SP)
	MOV	#54, -(SP)

	MOV	#54, -(SP)

	CALL	M02332

	MOV	(SP)+, R0
	MOV	R0, 16(R5)

	CMP	16(R5), #7

	BLT	M32640
	JMP	M33676

M32640:
	MOV	#A44614, -(SP)

	MOV	#15, -(SP)

	CLR	-(SP)
	CALL	M52644

	MOV	R5, R0
	ADD	#53, R0

	MOV	R0, -(SP)
	CALL	M01166

	CALL	M01320

	MOV	12(R5), 22(R5)

	MOV	14(R5), 24(R5)

	MOVB	53(R5), R0

	SUB	#56, R0

	BGE	M32730
	JMP	M33324

M32730:
	CMP	#13, R0

	BGE	M32742
	JMP	M33324

M32742:
	ASL	R0
	JMP	@K33334(R0)

M32750:
	MOV	12(R5), R0

	INC	R0
	MOV	R0, 22(R5)

	MOV	14(R5), R0

	DEC	R0
	MOV	R0, 24(R5)

	JMP	M33364

M33000:
	MOV	12(R5), R0

	INC	R0
	MOV	R0, 22(R5)

	JMP	M33364

M33016:
	MOV	12(R5), R0

	INC	R0
	MOV	R0, 22(R5)

	MOV	14(R5), R0

	INC	R0
	MOV	R0, 24(R5)

	JMP	M33364

M33046:
	MOV	14(R5), R0

	DEC	R0
	MOV	R0, 24(R5)

	JMP	M33364

M33064:
	MOVB	#40, @11070(R5)

	JMP	M33364

M33076:
	MOV	14(R5), R0

	INC	R0
	MOV	R0, 24(R5)

	JMP	M33364

M33114:
	MOV	12(R5), R0

	DEC	R0
	MOV	R0, 22(R5)

	MOV	14(R5), R0

	DEC	R0
	MOV	R0, 24(R5)

	JMP	M33364

M33144:
	MOV	12(R5), R0

	DEC	R0
	MOV	R0, 22(R5)

	JMP	M33364

M33162:
	MOV	12(R5), R0

	DEC	R0
	MOV	R0, 22(R5)

	MOV	14(R5), R0

	INC	R0
	MOV	R0, 24(R5)

	JMP	M33364

M33212:
	TST	4(R5)

	BGT	M33224
	JMP	M33320

M33224:
	MOV	4(R5), R0

	DEC	R0
	SWAB	R0
	BIC	#377, R0

	ASL	R0
	ADD	R5, R0
	MOV	12(R5), R1

	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ADD	R0, R1
	ADD	14(R5), R1

	MOVB	#40, 27(R1)

	MOV	#A44632, -(SP)

	MOV	#67, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

M33320:
	JMP	M33364

M33324:
	CALL	M02524

	JMP	M33364

K33334:
	.WORD	M33212
	.WORD	M33324
	.WORD	M33324
	.WORD	M32750
	.WORD	M33000
	.WORD	M33016
	.WORD	M33046
	.WORD	M33064
	.WORD	M33076
	.WORD	M33114
	.WORD	M33144
	.WORD	M33162
M33364:
	MOV	#K50112, -(SP)

	CALL	M53634

	MOV	22(R5), -(SP)

	CALL	M53452

	BNE	M33412
	CLR	R0
	BR	M33416
M33412:
	MOV	#1, R0

M33416:
	MOV	#K50102, -(SP)

	CALL	M53634

	MOV	24(R5), -(SP)

	CALL	M53452

	BNE	M33444
	CLR	R1
	BR	M33450
M33444:
	MOV	#1, R1

M33450:
	COMB	R1
	BICB	R1, R0
	MOV	4(R5), R1

	SWAB	R1
	BIC	#377, R1

	ASL	R1
	ADD	R5, R1
	MOV	22(R5), R2

	ASL	R2
	ASL	R2
	ASL	R2
	ASL	R2
	ASL	R2
	ADD	R1, R2
	ADD	24(R5), R2

	MOV	#K50072, -(SP)

	CALL	M53634

	CLR	-(SP)
	MOVB	27(R2), (SP)

	SUB	#40, (SP)

	CALL	M53452

	BNE	M33552
	CLR	R1
	BR	M33556
M33552:
	MOV	#1, R1

M33556:
	COMB	R1
	BICB	R1, R0
	BNE	M33570
	JMP	M33650

M33570:
	MOV	4(R5), R0

	SWAB	R0
	BIC	#377, R0

	ASL	R0
	ADD	R5, R0
	MOV	22(R5), R1

	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ADD	R0, R1
	ADD	24(R5), R1

	MOVB	#143, 27(R1)

	DEC	60(R5)

	JMP	M33672

M33650:
	MOV	#A44722, -(SP)

	MOV	#24, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

M33672:
	JMP	M33720

M33676:
	MOV	#A44750, -(SP)

	MOV	#44, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

M33720:
	JMP	M35274

M33724:
	MOV	@33074(R5), R0

	BIC	#177771, R0

	CMP	R0, #2

	BEQ	M33746
	CLR	R0
	BR	M33752
M33746:
	MOV	#1, R0

M33752:
	MOV	#K50062, -(SP)

	CALL	M53634

	CLR	-(SP)
	MOVB	@11070(R5), (SP)

	SUB	#40, (SP)

	CALL	M53452

	BNE	M34006
	CLR	R1
	BR	M34012
M34006:
	MOV	#1, R1

M34012:
	COMB	R1
	BICB	R1, R0
	BNE	M34024
	JMP	M34036

M34024:
	MOVB	#72, @11070(R5)

	JMP	M34042

M34036:
	CALL	M02524

M34042:
	JMP	M35274

M34046:
	MOV	#33, -(SP)

	CLR	-(SP)
	CALL	M52224

	MOV	#110, -(SP)

	CLR	-(SP)
	CALL	M52224

	MOV	#33, -(SP)

	CLR	-(SP)
	CALL	M52224

	MOV	#A45016, -(SP)

	MOV	#1376, -(SP)

	CLR	-(SP)
	CALL	M52644

	MOV	R5, R0
	ADD	#53, R0

	MOV	R0, -(SP)
	CALL	M01166

	CMPB	53(R5), #15

	BEQ	M34152
	JMP	M34166

M34152:
	MOV	R5, R0
	ADD	#53, R0

	MOV	R0, -(SP)
	CALL	M01166

M34166:
	MOV	#A46416, -(SP)

	MOV	#731, -(SP)

	CLR	-(SP)
	CALL	M52644

	MOV	R5, R0
	ADD	#53, R0

	MOV	R0, -(SP)
	CALL	M01166

	CMPB	53(R5), #15

	BEQ	M34234
	JMP	M34250

M34234:
	MOV	R5, R0
	ADD	#53, R0

	MOV	R0, -(SP)
	CALL	M01166

M34250:
	MOV	#112, -(SP)

	CALL	M03362

	ADD	#177776, 56(R5)

	JMP	M35274

M34272:
	MOVB	46(R5), R0

	COMB	R0
	BICB	#177776, R0

	BNE	M34312
	JMP	M35066

M34312:
	MOV	#A47350, -(SP)

	MOV	#140, -(SP)

	CLR	-(SP)
	CALL	M52644

	MOV	R5, R0
	ADD	#53, R0

	MOV	R0, -(SP)
	CALL	M01166

	CMPB	53(R5), #116

	BNE	M34360
	JMP	M35062

M34360:
	MOV	R5, R0
	ADD	#16, R0

	MOV	R0, -(SP)
	MOV	#1, -(SP)

	MOV	#5, -(SP)

	MOV	2(SP), @4(SP)

M34406:
	CMP	@4(SP), (SP)

	BLE	M34420
	JMP	M34500

M34420:
	MOV	16(R5), R0

	ASL	R0
	ADD	R5, R0
	MOV	16(R5), R1

	ASL	R1
	ADD	R5, R1
	CLR	-(SP)
	CLR	-(SP)
	MOV	#17, -(SP)

	CALL	M01046

	MOV	(SP)+, R2
	MOV	54(R1), R1

	SUB	R2, R1
	MOV	R1, 54(R0)

	INC	@4(SP)

	JMP	M34406

M34500:
	ADD	#6, SP

	MOV	R5, R0
	ADD	#16, R0

	MOV	R0, -(SP)
	MOV	#1, -(SP)

	MOV	#6, -(SP)

	MOV	2(SP), @4(SP)

M34532:
	CMP	@4(SP), (SP)

	BLE	M34544
	JMP	M34570

M34544:
	MOV	R5, R0
	ADD	16(R5), R0

	MOVB	#56, 33077(R0)

	INC	@4(SP)

	JMP	M34532

M34570:
	ADD	#6, SP

	CLR	-(SP)
	MOV	#2, -(SP)

	MOV	#17, -(SP)

	CALL	M01046

	MOV	(SP)+, R0
	MOV	R0, 12(R5)

	CLR	-(SP)
	MOV	#2, -(SP)

	MOV	#37, -(SP)

	CALL	M01046

	MOV	(SP)+, R0
	MOV	R0, 14(R5)

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

	CALL	M01046

	MOV	(SP)+, R0
	MOV	R0, 22(R5)

	MOV	4(R5), R0

	SWAB	R0
	BIC	#377, R0

	ASL	R0
	ADD	R5, R0
	MOV	12(R5), R1

	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ADD	R0, R1
	ADD	14(R5), R1

	ADD	#27, R1

	MOV	R1, 11070(R5)

	MOV	4(R5), R0

	SWAB	R0
	BIC	#377, R0

	ASL	R0
	ASL	R0
	ADD	R5, R0
	MOV	12(R5), R1

	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ADD	R0, R1
	MOV	14(R5), R0

	ASL	R0
	ADD	R1, R0
	ADD	#10772, R0

	MOV	R0, 33074(R5)

	CMP	22(R5), 4(R5)

	BGT	M35036
	JMP	M35044

M35036:
	MOV	4(R5), 22(R5)

M35044:
	MOV	22(R5), 4(R5)

	MOV	#112, -(SP)

	CALL	M03362

M35062:
	JMP	M35110

M35066:
	MOV	#A47512, -(SP)

	MOV	#16, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

M35110:
	JMP	M35274

M35114:
	MOV	#A47532, -(SP)

	MOV	#10, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

	JMP	M35274

	.WORD	M21026
	.WORD	M27064
	.WORD	M21016
	.WORD	M20612
	.WORD	M20632
	.WORD	M20650
	.WORD	M20670
	.WORD	M20706
	.WORD	M20722
	.WORD	M20740
	.WORD	M20760
	.WORD	M20776
	.WORD	M35114
	.WORD	M35114
	.WORD	M35114
	.WORD	M35114
	.WORD	M35114
	.WORD	M27064
	.WORD	M35114
	.WORD	M32222
	.WORD	M30136
	.WORD	M35114
	.WORD	M22466
	.WORD	M24654
	.WORD	M27314
	.WORD	M35114
	.WORD	M34046
	.WORD	M31636
	.WORD	M30336
	.WORD	M32600
	.WORD	M25436
	.WORD	M27742
	.WORD	M27350
	.WORD	M25532
	.WORD	M25242
	.WORD	M21042
	.WORD	M30352
	.WORD	M23200
	.WORD	M25016
	.WORD	M34272
	.WORD	M32032
	.WORD	M25564
	.WORD	M27616
	.WORD	M33724
	.WORD	M23010
M35274:
	TST	40(R5)

	BGT	M35306
	JMP	M35650

M35306:
	CLR	-(SP)
	MOV	#1, -(SP)

	MOV	#3, -(SP)

	CALL	M01046

	MOV	(SP)+, R0
	ADD	12(R5), R0

	ADD	#177776, R0

	MOV	R0, 22(R5)

	CLR	-(SP)
	MOV	#1, -(SP)

	MOV	#3, -(SP)

	CALL	M01046

	MOV	(SP)+, R0
	ADD	14(R5), R0

	ADD	#177776, R0

	MOV	R0, 24(R5)

	MOV	#K50052, -(SP)

	CALL	M53634

	MOV	22(R5), -(SP)

	CALL	M53452

	BNE	M35424
	CLR	R0
	BR	M35430
M35424:
	MOV	#1, R0

M35430:
	MOV	#K50042, -(SP)

	CALL	M53634

	MOV	24(R5), -(SP)

	CALL	M53452

	BNE	M35456
	CLR	R1
	BR	M35462
M35456:
	MOV	#1, R1

M35462:
	COMB	R1
	BICB	R1, R0
	BNE	M35474
	JMP	M35514

M35474:
	MOV	22(R5), 12(R5)

	MOV	24(R5), 14(R5)

	DEC	40(R5)

M35514:
	MOV	4(R5), R0

	SWAB	R0
	BIC	#377, R0

	ASL	R0
	ADD	R5, R0
	MOV	12(R5), R1

	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ADD	R0, R1
	ADD	14(R5), R1

	ADD	#27, R1

	MOV	R1, 11070(R5)

	MOV	4(R5), R0

	SWAB	R0
	BIC	#377, R0

	ASL	R0
	ASL	R0
	ADD	R5, R0
	MOV	12(R5), R1

	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ADD	R0, R1
	MOV	14(R5), R0

	ASL	R0
	ADD	R1, R0
	ADD	#10772, R0

	MOV	R0, 33074(R5)

M35650:
	MOV	#1, 20(R5)

	ADD	30(R5), 26(R5)

	TSTB	47(R5)

	BNE	M35676
	JMP	M35702

M35676:
	DEC	32(R5)

M35702:
	MOV	62(R5), R0

	ADD	64(R5), R0

	MOV	R0, -(SP)
	MOV	#12, -(SP)

	CALL	M54230

	ADD	(SP)+, 2(R5)

	CMP	2(R5), #310

	BGT	M35744
	JMP	M35760

M35744:
	CLR	2(R5)

	INC	56(R5)

	DEC	60(R5)

M35760:
	CMP	60(R5), #5

	BLT	M35774
	JMP	M36016

M35774:
	MOV	#A47544, -(SP)

	MOV	#16, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

M36016:
	CMP	60(R5), #62

	BGT	M36032
	JMP	M36040

M36032:
	MOV	#62, 60(R5)

M36040:
	CMP	32(R5), #12

	BLT	M36054
	CLR	R0
	BR	M36060
M36054:
	MOV	#1, R0

M36060:
	COMB	R0
	MOVB	47(R5), R1

	BICB	R0, R1
	CMP	32(R5), #1

	BGT	M36104
	CLR	R0
	BR	M36110
M36104:
	MOV	#1, R0

M36110:
	COMB	R0
	BICB	R0, R1
	BNE	M36122
	JMP	M36144

M36122:
	MOV	#A47564, -(SP)

	MOV	#15, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

M36144:
	CMP	32(R5), #1

	BEQ	M36160
	JMP	M36174

M36160:
	DEC	56(R5)

	CLRB	47(R5)

	CLR	32(R5)

M36174:
	CMP	26(R5), #310

	BGT	M36210
	JMP	M36232

M36210:
	MOV	#A47602, -(SP)

	MOV	#14, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

M36232:
	CMP	26(R5), #327

	BGT	M36246
	JMP	M36262

M36246:
	ADD	#177775, 60(R5)

	MOV	#62, 26(R5)

M36262:
	MOV	R5, R0
	ADD	#16, R0

	MOV	R0, -(SP)
	MOV	#1, -(SP)

	MOV	#4, -(SP)

	MOV	2(SP), @4(SP)

M36310:
	CMP	@4(SP), (SP)

	BLE	M36322
	JMP	M37532

M36322:
	MOV	R5, R0
	ADD	16(R5), R0

	CMPB	33121(R0), #40

	BNE	M36344
	JMP	M37522

M36344:
	MOV	16(R5), R0

	ASL	R0
	ADD	R5, R0
	CMP	33134(R0), 12(R5)

	BNE	M36370
	CLR	R0
	BR	M36374
M36370:
	MOV	#1, R0

M36374:
	MOV	16(R5), R1

	ASL	R1
	ADD	R5, R1
	CMP	33144(R1), 14(R5)

	BNE	M36420
	CLR	R1
	BR	M36424
M36420:
	MOV	#1, R1

M36424:
	BISB	R0, R1
	BNE	M36434
	JMP	M37522

M36434:
	MOV	16(R5), R0

	ASL	R0
	ADD	R5, R0
	CMP	12(R5), 33134(R0)

	BGT	M36460
	JMP	M36506

M36460:
	MOV	16(R5), R0

	ASL	R0
	ADD	R5, R0
	MOV	33134(R0), R0

	INC	R0
	MOV	R0, 22(R5)

	JMP	M36554

M36506:
	MOV	16(R5), R0

	ASL	R0
	ADD	R5, R0
	CMP	12(R5), 33134(R0)

	BLT	M36532
	JMP	M36554

M36532:
	MOV	16(R5), R0

	ASL	R0
	ADD	R5, R0
	MOV	33134(R0), R0

	DEC	R0
	MOV	R0, 22(R5)

M36554:
	MOV	16(R5), R0

	ASL	R0
	ADD	R5, R0
	CMP	14(R5), 33144(R0)

	BGT	M36600
	JMP	M36626

M36600:
	MOV	16(R5), R0

	ASL	R0
	ADD	R5, R0
	MOV	33144(R0), R0

	INC	R0
	MOV	R0, 24(R5)

	JMP	M36674

M36626:
	MOV	16(R5), R0

	ASL	R0
	ADD	R5, R0
	CMP	14(R5), 33144(R0)

	BLT	M36652
	JMP	M36674

M36652:
	MOV	16(R5), R0

	ASL	R0
	ADD	R5, R0
	MOV	33144(R0), R0

	DEC	R0
	MOV	R0, 24(R5)

M36674:
	MOV	4(R5), R0

	SWAB	R0
	BIC	#377, R0

	ASL	R0
	ADD	R5, R0
	MOV	22(R5), R1

	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ADD	R0, R1
	ADD	24(R5), R1

	MOV	#K50032, -(SP)

	CALL	M53634

	CLR	-(SP)
	MOVB	27(R1), (SP)

	SUB	#40, (SP)

	CALL	M53452

	BNE	M36772
	CLR	R0
	BR	M36776
M36772:
	MOV	#1, R0

M36776:
	MOV	16(R5), R1

	ASL	R1
	ADD	R5, R1
	MOV	33124(R1), R1

	BIC	#177771, R1

	CMP	R1, #4

	BEQ	M37030
	CLR	R1
	BR	M37034
M37030:
	MOV	#1, R1

M37034:
	COMB	R1
	BICB	R1, R0
	BNE	M37046
	JMP	M37066

M37046:
	MOV	R5, R0
	ADD	16(R5), R0

	MOVB	#40, 33121(R0)

	JMP	M37522

M37066:
	MOV	4(R5), R0

	SWAB	R0
	BIC	#377, R0

	ASL	R0
	ADD	R5, R0
	MOV	16(R5), R1

	ASL	R1
	ADD	R5, R1
	MOV	33134(R1), R1

	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ADD	R0, R1
	MOV	16(R5), R0

	ASL	R0
	ADD	R5, R0
	ADD	33144(R0), R1

	MOVB	#56, 27(R1)

	MOV	16(R5), R0

	ASL	R0
	ADD	R5, R0
	MOV	33134(R0), -(SP)

	MOV	16(R5), R0

	ASL	R0
	ADD	R5, R0
	MOV	33144(R0), -(SP)

	CALL	M01216

	MOV	#56, -(SP)

	CLR	-(SP)
	CALL	M52224

	MOV	4(R5), R0

	SWAB	R0
	BIC	#377, R0

	ASL	R0
	ADD	R5, R0
	MOV	22(R5), R1

	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ADD	R0, R1
	ADD	24(R5), R1

	MOV	R5, R0
	ADD	16(R5), R0

	MOVB	33121(R0), 27(R1)

	MOV	22(R5), -(SP)

	MOV	24(R5), -(SP)

	CALL	M01216

	MOV	R5, R0
	ADD	16(R5), R0

	CLR	-(SP)
	MOVB	33121(R0), (SP)

	CLR	-(SP)
	CALL	M52224

	MOV	4(R5), R0

	SWAB	R0
	BIC	#377, R0

	ASL	R0
	ASL	R0
	ADD	R5, R0
	MOV	22(R5), R1

	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ADD	R0, R1
	MOV	24(R5), R0

	ASL	R0
	ADD	R1, R0
	MOV	16(R5), R1

	ASL	R1
	ADD	R5, R1
	MOV	33124(R1), 10772(R0)

	MOV	16(R5), R0

	ASL	R0
	ADD	R5, R0
	MOV	22(R5), 33134(R0)

	MOV	16(R5), R0

	ASL	R0
	ADD	R5, R0
	MOV	24(R5), 33144(R0)

	MOV	#22, -(SP)

	CLR	-(SP)
	CALL	M01216

	MOV	#33, -(SP)

	CLR	-(SP)
	CALL	M52224

	MOV	#113, -(SP)

	CLR	-(SP)
	CALL	M52224

M37522:
	INC	@4(SP)

	JMP	M36310

M37532:
	ADD	#6, SP

	TST	60(R5)

	BLT	M37550
	JMP	M37660

M37550:
	CLR	-(SP)
	MOV	#12, -(SP)

	MOV	#1750, -(SP)

	CALL	M01046

	MOV	(SP)+, R0
	MOV	R0, 16(R5)

	MOV	#A47620, -(SP)

	MOV	#17, -(SP)

	CLR	-(SP)
	CALL	M52644

	MOV	16(R5), -(SP)

	MOV	#4, -(SP)

	CALL	M52306

	MOV	#A47640, -(SP)

	MOV	#35, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

	MOV	K50406, SP

	JMP	M40120

M37660:
	TST	4(R5)

	BEQ	M37672
	JMP	M40114

M37672:
	TSTB	46(R5)

	BNE	M37704
	JMP	M40114

M37704:
	CMP	12(R5), #2

	BEQ	M37720
	CLR	R0
	BR	M37724
M37720:
	MOV	#1, R0

M37724:
	CMP	14(R5), #2

	BEQ	M37740
	CLR	R1
	BR	M37744
M37740:
	MOV	#1, R1

M37744:
	COMB	R1
	BICB	R1, R0
	BNE	M37756
	JMP	M40114

M37756:
	TST	66(R5)

	BGE	M37770
	JMP	M40072

M37770:
	MOV	#A47676, -(SP)

	MOV	#62, -(SP)

	CLR	-(SP)
	CALL	M52644

	MOV	R5, R0
	ADD	#53, R0

	MOV	R0, -(SP)
	CALL	M01166

	CMPB	53(R5), #131

	BEQ	M40036
	JMP	M40056

M40036:
	INC	(R5)
	ADD	#62, 56(R5)

	MOV	K50406, SP

	JMP	M06650

M40056:
	MOV	K50406, SP

	JMP	M40120

	JMP	M40114

M40072:
	MOV	#A47762, -(SP)

	MOV	#33, -(SP)

	CLR	-(SP)
	CALL	M52644

	CALL	M52176

M40114:
	JMP	M12254

M40120:
	MOV	60(R5), R0

	ADD	62(R5), R0

	ADD	64(R5), R0

	MOV	66(R5), -(SP)

	MOV	#5, -(SP)

	CALL	M54230

	ADD	(SP)+, R0
	MOV	R0, -(SP)
	MOV	#3, -(SP)

	CALL	M54230

	MOV	56(R5), R0

	ADD	(SP)+, R0
	MOV	R0, 16(R5)

	MOV	#A50016, -(SP)

	MOV	#12, -(SP)

	CLR	-(SP)
	CALL	M52644

	MOV	16(R5), -(SP)

	MOV	#5, -(SP)

	CALL	M52306

	JMP	M50356

A40234:
	.ASCIZ	|*** |


	.EVEN
A40242:
	.ASCIZ	|***|

A40246:
	.ASCIZ	| |<ESC>|H|<ESC>|J|<ESC>|Y|<ESC>|  |<del><del>| С Т А Л К Е Р |<del><del>|       |


	.EVEN
A40314:
	.ASCIZ	|загадайте число. может быть, оно вам пригодится... там... |


	.EVEN
A40410:
	.ASCIZ	|   Для подсказки нажимайте "H" |

A40450:
	.ASCIZ	<HT><HT>|Темный  коридор ...     |


	.EVEN
A40504:
	.ASCIZ	<HT><HT>|С к е л е т ы . . .   |


	.EVEN
A40536:
	.ASCIZ	<HT>|a-a-a-a-a-a-a-a-a-a-a-a-a . . . . . . .|


	.EVEN
A40610:
	.ASCIZ	|Прогнивший пол провалился...|


	.EVEN
A40646:
	.ASCIZ	|Лестница.|

A40660:
	.ASCIZ	|Золото.|

A40670:
	.ASCIZ	|Золотой шар!!!|


	.EVEN
A40710:
	.ASCIZ	|Волшебная кирка.|


	.EVEN
A40732:
	.ASCIZ	|Бутылка с надписью "Drink me!"|


	.EVEN
A40772:
	.ASCIZ	|Черная дыра|

A41006:
	.ASCIZ	|Ой, как больно!...|


	.EVEN
A41032:
	.ASCIZ	|Кольцо.|

A41042:
	.ASCIZ	|Ведьмин студень!|


	.EVEN
A41064:
	.ASCIZ	|Доспехи.|


	.EVEN
A41076:
	.ASCIZ	|Оружие.|

A41106:
	.ASCIZ	|Свисток.|


	.EVEN
A41120:
	.ASCIZ	|Еда!!!|


	.EVEN
A41130:
	.ASCIZ	|"ВП".|

A41136:
	.ASCIZ	|Батареи.|


	.EVEN
A41150:
	.ASCIZ	|Комариная плешь|

A41170:
	.ASCIZ	|Папирус.|


	.EVEN
A41202:
	.ASCIZ	|Холодная, скользкая рука схватила вас за ногу ...|

A41264:
	.ASCIZ	|Ну, сейчас он вам покажет...|


	.EVEN
A41322:
	.ASCIZ	|Защищайтесь же!!!|

A41344:
	.ASCIZ	|Готов!|


	.EVEN
A41354:
	.ASCIZ	|Недурственно!|

A41372:
	.ASCIZ	|Тьфу...|

A41402:
	.ASCIZ	|Свертoк. съедим?|


	.EVEN
A41424:
	.ASCIZ	|Надпись "Здесь был Вася"(здесь Вася и остался)|


	.EVEN
A41504:
	.ASCIZ	|Груда камней.|

A41522:
	.ASCIZ	|Метла бабы яги (сломана)|


	.EVEN
A41554:
	.ASCIZ	|Череп.|


	.EVEN
A41564:
	.ASCIZ	|Странствующий скелет|


	.EVEN
A41612:
	.ASCIZ	|Стадо бродячих живых трупов.|


	.EVEN
A41650:
	.ASCIZ	|Кусочек Ноева ковчега|

A41676:
	.ASCIZ	|Записка:" Зря ты сюда полез, парень... Автор. "|

A41756:
	.ASCIZ	|Черный ящик.|


	.EVEN
A41774:
	.ASCIZ	|Лужа машинного масла|


	.EVEN
A42022:
	.ASCIZ	|Раздолбанный компьютер ZX SPECTRUM - 128.|

	.WORD	0
	.WORD	0
A42100:
	.ASCIZ	|Дохлый морлок|

A42116:
	.ASCIZ	|Зуда.|

A42124:
	.ASCIZ	|Пустышка.|

A42136:
	.ASCIZ	|Куча сепулек.|

A42154:
	.ASCIZ	|Разложившийся труп девушки.|

	.WORD	0
	.WORD	0
	.WORD	0
A42216:
	.ASCIZ	|Надпись: "Мы до тебя еще доберемся!!! "|

	.WORD	0
A42270:
	.ASCIZ	|Отрезанная голова предыдущего Сталкера.|

	.WORD	0
	.WORD	0
	.WORD	0
	.WORD	0
	.WORD	0
	.WORD	0
	.WORD	0
	.WORD	0
	.WORD	0
A42362:
	.ASCIZ	|Зачитанный журнал "АКУШЕРСТВО И ГИНЕКОЛОГИЯ"|


	.EVEN
	.WORD	0
	.WORD	0
A42444:
	.ASCIZ	|Артефакт.|

A42456:
	.ASCIZ	|Надпись "Здесь-то мы его и съели"|

A42520:
	.ASCIZ	|Окровавленная бензопила|

A42550:
	.ASCIZ	|Что-то очень мерзкое|


	.EVEN
A42576:
	.ASCIZ	|Следы пикника.|


	.EVEN
A42616:
	.ASCIZ	|Кладбище снусмумриков.|


	.EVEN
	.WORD	0
	.WORD	0
	.WORD	0
	.WORD	0
A42656:
	.ASCIZ	|Черт-те что.|


	.EVEN
A42674:
	.ASCIZ	|Бродячий торговый автомат|

A42726:
	.ASCIZ	|Пережаренный зелюк.|

A42752:
	.ASCIZ	|Мышелот (в собственном соку)|


	.EVEN
A43010:
	.ASCIZ	|Призрак.|


	.EVEN
A43022:
	.ASCIZ	|Мешок с надписью "Take me!"|

A43056:
	.ASCIZ	|Чувствуете прилив сил?|


	.EVEN
A43106:
	.ASCIZ	|Напился - сдай стеклотару!!!!|

A43144:
	.ASCIZ	|Пить нечего|

A43160:
	.ASCIZ	|Что выбросить? |

A43200:
	.ASCIZ	|Нету|


	.EVEN
A43206:
	.ASCIZ	|Там!|


	.EVEN
A43214:
	.ASCIZ	|Где золото-тo?|


	.EVEN
A43234:
	.ASCIZ	|Б А М - М - М ! ! !|

A43260:
	.ASCIZ	|Уничтожение зверя|

A43302:
	.ASCIZ	|Однакo, свисток нужен|

A43330:
	.ASCIZ	|Спасибо!|


	.EVEN
A43342:
	.ASCIZ	|Еды нет|

A43352:
	.ASCIZ	|Берем|

A43360:
	.ASCIZ	|Рюкзак полон|


	.EVEN
A43376:
	.ASCIZ	|Доспехи надеты|


	.EVEN
A43416:
	.ASCIZ	|Нету|


	.EVEN
A43424:
	.ASCIZ	|Фонарь включен|


	.EVEN
A43444:
	.ASCIZ	|Батареи сели.Надо было экономить ... |

A43512:
	.ASCIZ	|Фонарь выключен|

A43532:
	.ASCIZ	|Выпустили до госприемки...|


	.EVEN
A43566:
	.ASCIZ	|"Да будет свет..."|


	.EVEN
A43612:
	.ASCIZ	|Пока Вы летели сквозь этажи, "ВП" потерялась|


	.EVEN
A43670:
	.ASCIZ	|Превращение догоняющего зверя|

A43726:
	.ASCIZ	|Махать-то нечем !|

A43750:
	.ASCIZ	|Перестройка в рюкзаке|

A43776:
	.ASCIZ	|У-р-р-р-а-a ! ! !|

A44020:
	.ASCIZ	|Закончить изволите? |


	.EVEN
A44046:
	.ASCIZ	|А ведь придупреждали...|

A44076:
	.ASCIZ	|Оружие приготовлено|

A44122:
	.ASCIZ	|Нету!|

A44130:
	.ASCIZ	|Батареи заменены|


	.EVEN
A44152:
	.ASCIZ	|Батарей нет|

A44166:
	.ASCIZ	|"APCHXYZZYURR!!!"... Заклятие снято|

A44232:
	.ASCIZ	|Надпись гласит: "Сам дурак"|

A44266:
	.ASCIZ	|Лестница -|


	.EVEN
A44302:
	.ASCIZ	|Золотой шар украден!|


	.EVEN
A44330:
	.ASCIZ	|Золотой шар - 8|

A44350:
	.ASCIZ	|А читать-то и нечего|


	.EVEN
A44376:
	.ASCIZ	|Силовое поле включено!|


	.EVEN
A44426:
	.ASCIZ	|Нету|


	.EVEN
A44434:
	.ASCIZ	|Рюкзак полон|


	.EVEN
A44452:
	.ASCIZ	|Кольца нет|


	.EVEN
A44466:
	.ASCIZ	|Чего изволите?|


	.EVEN
A44506:
	.ASCIZ	|П о л у ч и т е !|

A44530:
	.ASCIZ	|Подаю только по пятницам!|

A44562:
	.ASCIZ	|Подойди ближе к автомату!|

A44614:
	.ASCIZ	|Направление? |

A44632:
	.ASCIZ	|Кусок свода обрушился и раскололся о вашу глупую голову|

A44722:
	.ASCIZ	|Ну, чего размахался?|


	.EVEN
A44750:
	.ASCIZ	|А стенку вы будете лбом прошибать?..|


	.EVEN
A45016:
	.ASCII	|J|<CR><LF>|Ладно, я кое-что подскажу. Итак: здесь творится черт знает что,|<CR><LF>|но на восьмом уровне |
	.ASCII	|лежит золотой шар. Только достав его, Вы|<CR><LF>|сможете выйти из подземелья,придя на то же место, откуда вы |
	.ASCII	|вышли|<CR><LF>|вначале. Своим глазам не всегда стоит доверять!|<CR><LF>| Вы можете использовать команды:|<CR><LF>
	.ASCII	|A - Купить (на золото)|<CR><LF>|B - Заменить батареи|<CR><LF>|D - Выбросить предмет|<CR><LF>|E - Поесть|<CR><LF>
	.ASCII	|F - Приготовиться к сражению|<CR><LF>|H - HELP (этот текст)|<CR><LF>|I - Надеть кольцо|<CR><LF>|J - Обновить |
	.ASCII	|экран|<CR><LF>|K - Сломать стенку (киркой)|<CR><LF>|L - Включить фонарь|<CR><LF>|M - Приготовить оружие|<CR><LF>
	.ASCII	|N - Клавиша "Идет начальник" (отбой тревоги - "P")|<CR><LF>|O - Выключить фонарь|<CR><LF>|P - Надеть доспехи|<CR>
	.ASCII	<LF>|Q - Пить|<CR><LF>|R - Читать папирус|<CR><LF>|S - Свистнуть|<CR><LF>|T - Взять предмет, на клтором стоишь|<CR>
	.ASCIZ	<LF>|U - Вызвать джинна (только в безнадежном случае!)...|<HT>|Дальше? |


	.EVEN
A46416:
	.ASCII	<CR><LF>|V - Снять кольцо|<CR><LF>|W - Взмахнуть волшебной палочкой|<CR><LF>|X - Закончить|<CR><LF>|Y - |
	.ASCII	|Зажарить убегающего зверя|<CR><LF>|Z - Перевести деньги в банк на счет пещеры.|<CR><LF>|/ - Переложить вещи в |
	.ASCII	|рюкзаке|<CR><LF>|   П Е Р Е Д В И Ж Е Н И Е:|<CR><LF><CR><LF><HT>|7 8 9|<CR><LF><HT>|4   6 |<HT>|- Движение |
	.ASCII	|по уровню|<CR><LF><HT>|1 2 3|<CR><LF>|5 - Внмз по лестнице|<CR><LF>|. - Вверх по лестнице|<CR><LF>|0 - |
	.ASCII	|Отдыхать.|<CR><LF><CR><LF>|Использовать можно лишь вещи, лежащие в рюкзаке.|<CR><LF>|Примечание:|<CR><LF><HT>
	.ASCIZ	|Волшебная кирка вынесет вас из "комариной плеши" при ударе ей вниз.|<CR><LF><CR><LF>|Ну, что, пойдем дальше?|

A47350:
	.ASCII	|Что, влип? ладно, попробую тебя перенести |<CR><LF>|отсюда. только дороговато это встанет...|<CR><LF>|Ты |
	.ASCIZ	|готов? |


	.EVEN
A47512:
	.ASCIZ	|Джинн в отгуле|


	.EVEN
A47532:
	.ASCIZ	|Что-что?|


	.EVEN
A47544:
	.ASCIZ	|Силы на исходе|


	.EVEN
A47564:
	.ASCIZ	|Фонарь гаснет|

A47602:
	.ASCIZ	|Отдохнуть-бы|


	.EVEN
A47620:
	.ASCIZ	<HT>|Вот Вы и стали|

A47640:
	.ASCIZ	|-ой жертвой этого подземелья.|

A47676:
	.ASCIZ	|Как, Вы вернулись?! Ну и ну !!!|<CR><LF>|А дальше пойдете?|


	.EVEN
A47762:
	.ASCIZ	|А расплачиваться кто будет?|

A50016:
	.ASCIZ	|Ваш счет -|


	.EVEN
K50032:
	.WORD	20002
	.WORD	0
	.WORD	0
	.WORD	0
K50042:
	.WORD	177774
	.WORD	177777
	.WORD	0
	.WORD	0
K50052:
	.WORD	177774
	.WORD	0
	.WORD	0
	.WORD	0
K50062:
	.WORD	0
	.WORD	0
	.WORD	177776
	.WORD	3777
K50072:
	.WORD	20002
	.WORD	0
	.WORD	0
	.WORD	0
K50102:
	.WORD	177774
	.WORD	177777
	.WORD	0
	.WORD	0
K50112:
	.WORD	177774
	.WORD	0
	.WORD	0
	.WORD	0
K50122:
	.WORD	0
	.WORD	2
	.WORD	6
	.WORD	0
K50132:
	.WORD	0
	.WORD	0
	.WORD	20
	.WORD	1000
K50142:
	.WORD	204
	.WORD	0
	.WORD	0
	.WORD	0
K50152:
	.WORD	0
	.WORD	0
	.WORD	177776
	.WORD	3777
	.WORD	177774
	.WORD	177777
	.WORD	0
	.WORD	0
K50172:
	.WORD	177774
	.WORD	0
	.WORD	0
	.WORD	0
K50202:
	.WORD	204
	.WORD	0
	.WORD	0
	.WORD	0
K50212:
	.WORD	60012
	.WORD	0
	.WORD	0
	.WORD	0
K50222:
	.WORD	20002
	.WORD	0
	.WORD	0
	.WORD	0
M50232:
	CMPB	(R5), #2

	BNE	M50352
	TST	(R5)+
	MOV	(R5)+, R2
	MOV	(R5)+, R3
	MOV	(R2), R0
	MOV	(R3), R1
	BEQ	M50342
	ASL	R1
	ROL	R0
	ADD	(R2), R0
	ADD	(R3), R1
	ADC	R0
	ADD	(R3), R0
	BPL	M50276
	ADD	#100000, R0

M50276:
	MOV	R0, (R2)
	MOV	R1, (R3)
	MOV	#201, R2

M50306:
	ASL	R1
	ROL	R0
	BCS	M50320
	DEC	R2
	BR	M50306
M50320:
	CLRB	R1
	BISB	R0, R1
	SWAB	R1
	CLRB	R0
	BISB	R2, R0
	SWAB	R0
	ROR	R0
	ROR	R1
	BR	M50354
M50342:
	MOV	#3, R1

	INC	R0
	BR	M50276
M50352:
	TRAP	220
M50354:
	RETURN
M50356:
	EMT	350
	HALT
	.WORD	3
	.WORD	A50366
A50366:
	.ASCIZ	|DAT|

K50372:
	.WORD	060012
K50374:
	.WORD	000000
K50376:
	.WORD	000000
K50400:
	.WORD	000000
	.WORD	100000
K50404:
	.WORD	000000
K50406:
	.WORD	001000
K50410:
	.WORD	060016
	.WORD	10
K50414:
	.WORD	0
	.WORD	0
	.WORD	0
	.WORD	0
	.WORD	0
	.WORD	0
	.WORD	0
	.WORD	0
K50434:
	.WORD	0
	.WORD	0
	.WORD	0
	.WORD	0
	.WORD	0
	.WORD	0
	.WORD	0
	.WORD	0
A50454:
	.ASCIZ	<CR><LF>

A50457:
	.ASCIZ	| - FROM PC |


A50473:
	.ASCIZ	|TRAP TO 4|


A50505:
	.ASCIZ	|BAD SUPPORT PACKAGE|<CR><LF>


	.ASCIZ	|NOT A VALID DEVICE|

A50556:
	.ASCIZ	|I/O CHANNEL NOT OPEN|


A50603:
	.ASCIZ	|END OF FILE ON DEVICE|


	.ASCIZ	|SUPPORT CONDITIONALS ERROR|

A50664:
	.ASCIZ	|RESERVED INSTRUCTION TRAP|

A50716:
	.ASCIZ	|INTEGER ERROR|

	.ASCIZ	|EXP OVERFLOW|


	.ASCIZ	|LOG OF NEGATIVE|


	.ASCIZ	|SQRT OF NEGATIVE|

A51012:
	.ASCIZ	|DEVIDE BY ZERO|


	.ASCIZ	|MISSING SPECIAL FEATURE|


A51061:
	.ASCIZ	|NOT ENOUGH AVAILABLE MEMORY|


	.ASCIZ	|NEW OF LENGTH 0|


A51135:
	.ASCIZ	|BAD SET EXPRESSION|

	.ASCIZ	|FATAL I/O ERROR|

A51200:
	.ASCIZ	|ARRAY BOUNDS ERROR|


	.ASCIZ	|TOO MANY FILES OPEN|


	.EVEN
START:
	MOV	K50410, R5

	MOV	R5, K50400

	CLR	K50404

	MOV	#177776, R0

	EMT	354
	MOV	R0, SP
	MOV	R0, K50406

	CMP	#73, #73

	BEQ	M51322
	MOV	#A50505, R0

	CALL	M51346

	EMT	350
M51322:
	MOV	#K50414, R0

	MOV	#1400, (R0)

	MOV	#M51440, 2(R0)

	EMT	375
	JMP	M06134

M51346:
	MOV	R1, -(SP)
	MOV	R0, R1
	BR	M51360
M51354:
	EMT	341
	BCS	M51354
M51360:
	MOVB	(R1)+, R0
	BNE	M51354
	MOV	(SP)+, R1
	RETURN
M51370:
	MOV	R4, -(SP)
	MOV	R3, -(SP)
	MOV	R2, -(SP)
	MOV	R1, -(SP)
	MOV	R0, -(SP)
	MOV	12(SP), -(SP)

	MOV	R5, 14(SP)

	RETURN
M51414:
	MOV	14(SP), R5

	MOV	(SP)+, 12(SP)

	MOV	(SP)+, R0
	MOV	(SP)+, R1
	MOV	(SP)+, R2
	MOV	(SP)+, R3
	MOV	(SP)+, R4
	RETURN
M51440:
	BCS	M51504
	MOV	#A50473, R0

	CALL	M51346

	MOV	#A50457, R0

	CALL	M51346

	MOV	(SP), R0
	CALL	M51574

	MOV	#A50454, R0

	CALL	M51346

	JMP	M50356

M51504:
	MOV	R0, -(SP)
	MOV	#K50434, R0

	MOV	#1400, (R0)

	MOV	#M51440, 2(R0)

	EMT	375
	MOV	(SP)+, R0
	JMP	M54464

M51534:
	MOV	(R5), R0
	CALL	M51346

	MOV	#A50457, R0

	CALL	M51346

	MOV	R5, R0
	CALL	M51574

	MOV	#A50454, R0

	CALL	M51346

	JMP	M50356

M51574:
	MOV	R0, -(SP)
	MOV	R1, -(SP)
	MOV	R0, R1
	MOV	#30, R0

	ROL	R1
	ROL	R0
M51612:
	EMT	341
	BCS	M51612
	BIS	#1, R1

M51622:
	MOV	#6, R0

	CLC
	ROL	R1
	ROL	R0
	ROL	R1
	ROL	R0
	ROL	R1
	ROL	R0
M51644:
	EMT	341
	BCS	M51644
	CMP	R1, #100000

	BNE	M51622
	MOV	(SP)+, R1
	MOV	(SP)+, R0
	RETURN
M51664:
	MOV	#50372, K50374

	JSR	R5, M56732

	.WORD	000004
	BIT	#140000, (R4)

	BMI	M51740
	BNE	M51720
M51710:
	CALL	M57212

	BEQ	M51710
	BR	M51734
M51720:
	CALL	M57212

	BNE	M51734
	CALL	M57062

	RETURN
M51734:
	CALL	M57534

M51740:
	RETURN
M51742:
	MOV	#K50372, K50374

	MOV	(SP), -(SP)
	JSR	R5, M56732

	.WORD	000004
	MOV	R1, -(SP)
	MOV	R2, -(SP)
	MOV	R3, -(SP)
	CLR	R2
	CLR	R1
	CLR	R3
	BR	M52000
M51776:
	MOV	(PC), R2
M52000:
	CALL	M57212

	BMI	M52054
	BIC	#177600, R0

	CMP	R0, #SPACE

	BLOS	M52000
	CMP	R0, #53

	BEQ	M52000
	CMP	R0, #54

	BEQ	M52000
	CMP	R0, #55

	BEQ	M51776
	SUB	#72, R0

	ADD	#12, R0

	BCS	M52110
M52054:
	COM	R3
	BR	M52120
M52060:
	SUB	#72, R0

	ADD	#12, R0

	BCC	M52120
	ASL	R1
	MOV	R1, -(SP)
	ASL	R1
	ASL	R1
	ADD	(SP)+, R1
	BCC	M52110
	MOV	(PC), R3
M52110:
	ADD	R0, R1
	CALL	M57212

	BEQ	M52060
M52120:
	CALL	M57062

	TST	R2
	BEQ	M52132
	NEG	R1
M52132:
	TST	R3
	BEQ	M52146
	MOV	#A52162, R0

	CALL	M51346

M52146:
	MOV	R1, 22(SP)

	MOV	(SP)+, R3
	MOV	(SP)+, R2
	MOV	(SP)+, R1
	RETURN
A52162:
	.ASCIZ	|Bad integer|

M52176:
	MOV	#K50372, K50374

	MOV	#A50454, -(SP)

	MOV	#2, -(SP)

	CLR	-(SP)
	CALL	M52652

	RETURN
M52224:
	MOV	#K50372, K50374

	JSR	R5, M56732

	.WORD	000010
	MOV	R1, -(SP)
	MOV	16(SP), R1

	DEC	R1
	BLE	M52266
	MOV	#40, R0

M52256:
	CALL	M57672

	DEC	R1
	BNE	M52256
M52266:
	MOV	20(SP), R0

	CALL	M57672

	CALL	M60014

	MOV	(SP)+, R1
	RETURN
M52306:
	MOV	#K50372, K50374

	CALL	M56730

	CALL	M51370

	CLR	R3
	MOV	20(SP), R1

	MOV	16(SP), R5

	BNE	M52344
	MOV	#15, R5

M52344:
	BPL	M52364
	ADD	#7, R5

	NEG	R5
	INC	R3
	MOV	#52612, R4

	BR	M52410
M52364:
	SUB	#5, R5

	CMP	R1, #100000

	BCS	M52404
	DEC	R5
	COM	R3
	NEG	R1
M52404:
	MOV	#K52626, R4

M52410:
	CLR	R2
	TST	R5
	BLE	M52432
	MOV	#40, R0

M52422:
	CALL	M57736

	DEC	R5
	BNE	M52422
M52432:
	TST	(R4)+
	BEQ	M52452
	CLR	R0
	ROL	R1
	ROL	R0
	ROR	R1
	TST	R0
	BR	M52476
M52452:
	CMP	(R4), #1

	BNE	M52462
	INC	R2
M52462:
	CLR	R0
M52464:
	INC	R0
	SUB	(R4), R1
	BPL	M52464
	ADD	(R4)+, R1
	DEC	R0
M52476:
	BNE	M52516
	TST	R2
	BNE	M52516
	INC	R5
	BLE	M52552
	MOV	#40, R0

	BR	M52546
M52516:
	INC	R2
	ADD	#60, R0

	TST	R3
	BGE	M52546
	CLR	R3
	MOV	R0, -(SP)
	MOV	#55, R0

	CALL	M57736

	MOV	(SP)+, R0
M52546:
	CALL	M57736

M52552:
	TST	(R4)
	BNE	M52452
	TST	R3
	BLE	M52572
	MOV	#102, R0

	CALL	M57736

M52572:
	CALL	M60014

	CALL	M51414

	MOV	(SP)+, (SP)
	MOV	(SP)+, (SP)
	JMP	M57006

	.WORD	177777
	.WORD	10000
	.WORD	1000
	.WORD	100
	.WORD	10
	.WORD	1
K52626:
	.WORD	0
	.WORD	23420
	.WORD	1750
	.WORD	144
	.WORD	12
	.WORD	1
	.WORD	0
M52644:
	MOV	#K50372, K50374

M52652:
	JSR	R5, M56732

	.WORD	000012
	MOV	R1, -(SP)
	MOV	R2, -(SP)
	MOV	20(SP), R1

	MOV	22(SP), R2

	SUB	R2, R1
	BLE	M52714
	MOV	#40, R0

M52704:
	CALL	M57672

	DEC	R1
	BNE	M52704
M52714:
	MOV	24(SP), R1

	TST	R2
	BEQ	M52736
M52724:
	MOVB	(R1)+, R0
	CALL	M57672

	DEC	R2
	BNE	M52724
M52736:
	CALL	M60014

	MOV	(SP)+, R2
	MOV	(SP)+, R1
	RETURN
M52750:
	MOV	(SP), -(SP)
	MOV	R0, -(SP)
	CLR	R0
	CLR	4(SP)

	TST	6(SP)

	BGT	M53010
	NEG	6(SP)

	BGT	M53004
	CLR	6(SP)

	BR	M53052
M53004:
	BIS	#100000, R0

M53010:
	BIS	#46000, R0

M53014:
	ASL	6(SP)

	ROL	4(SP)

	SUB	#200, R0

	BIT	#200, 4(SP)

	BEQ	M53014
	BIC	#200, 4(SP)

	BIS	R0, 4(SP)

M53052:
	MOV	(SP)+, R0
	RETURN
M53056:
	MOV	#0, -(SP)

	MOV	#40000, -(SP)

	MOV	10(SP), -(SP)

	MOV	10(SP), -(SP)

	BPL	M53106
	BIS	#100000, 4(SP)

M53106:
	CALL	M54720

	MOV	(SP)+, 4(SP)

	MOV	(SP)+, 4(SP)

	MOV	R0, -(SP)
	MOV	R1, -(SP)
	MOV	R2, -(SP)
	MOV	10(SP), R0

	BEQ	M53250
	MOV	R0, R1
	MOV	12(SP), R2

	BIC	#177600, R1

	BIS	#200, R1

	ASL	R0
	SWAB	R0
	BIC	#177400, R0

	SUB	#200, R0

	BLE	M53250
	SUB	#30, R0

	CMP	R0, #177770

	BLT	M53212
	JSR	R5, M51534

	.WORD	A50716
M53212:
	ASR	R1
	ROR	R2
	INC	R0
	BNE	M53212
	TST	10(SP)

	BPL	M53232
	NEG	R2
M53232:
	MOV	R2, 12(SP)

	MOV	(SP)+, R2
	MOV	(SP)+, R1
	MOV	(SP)+, R0
	MOV	(SP)+, (SP)
	RETURN
M53250:
	CLR	R2
	BR	M53232
	MOV	R0, K50376

	MOVB	2(SP), R0

	MOV	(SP)+, (SP)
	BR	M53312
M53270:
	MOV	R0, -(SP)
	JSR	R1, M53330

	BIS	R1, 4(R2)

	MOV	(SP)+, R2
	MOV	(SP)+, R1
	MOV	(SP)+, R0
	INC	R0
M53312:
	CMPB	R0, 2(SP)

	BLOS	M53270
	MOV	(SP)+, (SP)
	MOV	K50376, R0

	RETURN
M53330:
	MOV	R2, -(SP)
	MOV	R1, -(SP)
	CMP	R0, #77

	BHI	M53444
	MOV	R0, R2
	ASR	R2
	ASR	R2
	ASR	R2
	ASR	R2
	ASL	R2
	ADD	SP, R2
	ADD	#10, R2

	MOV	#1, R1

	BIC	#177760, R0

	ASL	R0
	SUB	#36, R0

	SUB	R0, PC
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	ASL	R1
	RETURN
M53444:
	JSR	R5, M51534

	.WORD	A51135
M53452:
	MOV	R0, K50376

	MOVB	2(SP), R0

	MOV	(SP)+, (SP)
	CMP	R0, #77

	BLOS	M53500
	CLR	4(SP)

	BR	M53520
M53500:
	JSR	R1, M53330

	MOV	(R2), 12(SP)

	MOV	R1, 10(SP)

	MOV	(SP)+, R2
	MOV	(SP)+, R1
M53520:
	MOV	(SP)+, 6(SP)

	TST	(SP)+
	MOV	K50376, R0

	BIT	(SP)+, (SP)+
	RETURN
	JSR	R0, M54076

	BIC	(R1)+, (R0)+
	BIC	(R1)+, (R0)+
	BIC	(R1)+, (R0)+
	BIC	(R1)+, (R0)+
	BR	M53570
	JSR	R0, M54076

	BIS	(R1)+, (R0)+
	BIS	(R1)+, (R0)+
	BIS	(R1)+, (R0)+
	BIS	(R1)+, (R0)+
M53570:
	MOV	(SP)+, R1
	MOV	(SP)+, R0
	MOV	(SP)+, 6(SP)

	ADD	#6, SP

	RETURN
	JSR	R0, M54076

	COM	(R1)
	BIC	(R1)+, (R0)+
	COM	(R1)
	BIC	(R1)+, (R0)+
	COM	(R1)
	BIC	(R1)+, (R0)+
	COM	(R1)
	BIC	(R1)+, (R0)+
	BR	M53570
M53634:
	MOV	R0, K50376

	MOV	2(SP), R0

	MOV	(SP)+, (SP)
	CMP	(R0)+, (R0)+
	MOV	(R0), -(SP)
	MOV	-(R0), -(SP)
	MOV	-(R0), -(SP)
	MOV	6(SP), -(SP)

	MOV	6(R0), 10(SP)

	MOV	K50376, R0

	RETURN
	MOV	R0, K50376

	MOV	2(SP), R0

	MOV	(SP)+, (SP)
	MOV	10(SP), 6(R0)

	MOV	(SP)+, 6(SP)

	MOV	(SP)+, (R0)+
	MOV	(SP)+, (R0)+
	MOV	(SP)+, (R0)
	MOV	K50376, R0

	RETURN
	JSR	R0, M54076

	CMP	(R1)+, (R0)+
	BNE	M54002
	CMP	(R1)+, (R0)+
	BNE	M54002
	CMP	(R1)+, (R0)+
	BNE	M54002
	CMP	(R1)+, (R0)+
	BNE	M54002
M53762:
	MOV	(SP)+, R1
	MOV	(SP)+, R0
	MOV	(SP)+, 16(SP)

	ADD	#16, SP

	SEZ
	RETURN
M54002:
	MOV	(SP)+, R1
	MOV	(SP)+, R0
	MOV	(SP)+, 16(SP)

	ADD	#16, SP

	CLZ
	RETURN
	JSR	R0, M54076

	BIC	(R1)+, (R0)+
	BNE	M54002
	BIC	(R1)+, (R0)+
	BNE	M54002
	BIC	(R1)+, (R0)+
	BNE	M54002
	BIC	(R1), (R0)
	BNE	M54002
	BR	M53762
	JSR	R0, M54076

	BIC	(R0)+, (R1)+
	BNE	M54002
	BIC	(R0)+, (R1)+
	BNE	M54002
	BIC	(R0)+, (R1)+
	BNE	M54002
	BIC	(R0), (R1)
	BNE	M54002
	BR	M53762
M54076:
	MOV	R1, -(SP)
	MOV	R0, -(SP)
	MOV	SP, R1
	ADD	#10, R1

	MOV	R1, R0
	ADD	#10, R0

	RETURN
M54120:
	MOV	R0, -(SP)
	MOV	R1, -(SP)
	CLR	R0
	MOV	12(SP), R1

	BPL	M54136
	DEC	R0
M54136:
	JMP	@4(SP)

	CALL	M54120

	CLR	R0
	CALL	M56466

	BR	M54264
	CALL	M54120

	CLR	R0
	CALL	M56570

	BCS	M54310
	MOV	R0, R1
	BR	M54264
	CALL	M54120

	CLR	R0
	CALL	M56570

	BCS	M54310
	BR	M54264
	CALL	M54120

	CALL	M56466

	BCS	M54302
	BR	M54264
M54230:
	CALL	M54120

	CALL	M56570

	BCS	M54310
	BVS	M54310
	MOV	R0, R1
	BR	M54264
	CALL	M54120

	CALL	M56570

	BCS	M54310
	BVS	M54302
M54264:
	MOV	R1, 12(SP)

	MOV	(SP)+, R1
	MOV	(SP)+, R0
	TST	(SP)+
	MOV	(SP)+, (SP)
	RETURN
M54302:
	JSR	R5, M51534

	.WORD	A50716
M54310:
	JSR	R5, M51534

	.WORD	A51012
M54316:
	MOV	K50374, -(SP)

	MOV	R1, -(SP)
	MOV	R2, -(SP)
	MOV	R3, -(SP)
	MOV	SP, R1
	SUB	#30, R1

	CMP	R1, K50400

	BLOS	M54402
	MOV	R0, PC
M54346:
	TST	(SP)+
	MOV	(SP)+, R3
	MOV	(SP)+, R2
	MOV	(SP)+, R1
	MOV	(SP)+, K50374

	RTS	R0
	MOV	SP, R1
	SUB	#30, R1

	CMP	R1, K50400

	BLOS	M54402
	RETURN
M54402:
	CLR	K50400

	JSR	R5, M51534

	.WORD	A51061
	JSR	R5, M51534

	.WORD	A51200
M54422:
	MOV	R4, -(SP)
	MOV	(R4)+, -(SP)
	BEQ	M54456
	MOV	R4, R5
	MOV	(SP), -(SP)
	ASL	(SP)
	ADD	(SP)+, R5
	ASR	(SP)
	BEQ	M54456
M54444:
	MOV	-(R5), -(SP)
	MOV	(R4), (R5)
	MOV	(SP)+, (R4)+
	DEC	(SP)
	BNE	M54444
M54456:
	TST	(SP)+
	MOV	(SP)+, R5
	RETURN
M54464:
	CALL	M51370

	MOV	14(SP), R0

	MOV	-(R0), R0
	CMP	R0, #75037

	BHI	M54512
	CMP	R0, #75000

	BCC	M54520
M54512:
	JSR	R5, M51534

	.WORD	A50664
M54520:
	BIC	#177747, R0

	ASR	R0
	ASR	R0
	MOV	SP, R1
	ADD	#20, R1

	MOV	(R1)+, R2
	MOV	(R1)+, R3
	MOV	(R1)+, R4
	MOV	(R1)+, R5
	BIC	#17, 16(SP)

	CALL	@K56720(R0)

	MOV	R2, 24(SP)

	MOV	R3, 26(SP)

	MOV	14(SP), R1

	MOV	(R1)+, R0
	CMP	R0, #75037

	BHI	M54650
	CMP	R0, #75000

	BCS	M54650
	MOV	R1, 14(SP)

	MOV	SP, R1
	MOV	SP, R2
	ADD	#20, R1

	ADD	#24, R2

	MOV	#10, R3

M54636:
	MOV	-(R1), -(R2)
	DEC	R3
	BNE	M54636
	CMP	(SP)+, (SP)+
	BR	M54520
M54650:
	CALL	M51414

	MOV	(SP)+, 2(SP)

	MOV	(SP)+, 2(SP)

	BIS	#4, 2(SP)

	TST	4(SP)

	BEQ	M54716
	BPL	M54710
	BIS	#10, 2(SP)

M54710:
	BIC	#4, 2(SP)

M54716:
	RTI
M54720:
	CALL	M54750

	.WORD	M55620
	CALL	M54750

	.WORD	M55614
	CALL	M54750

	.WORD	M55154
	CALL	M54750

	.WORD	M55410
M54750:
	MOV	R5, -(SP)
	MOV	R4, -(SP)
	MOV	R3, -(SP)
	MOV	R2, -(SP)
	MOV	R1, -(SP)
	MOV	R0, -(SP)
	MOV	@14(SP), R0

	MOV	SP, R1
	ADD	#30, R1

	MOV	-(R1), R5
	MOV	-(R1), R4
	MOV	-(R1), R3
	MOV	-(R1), R2
	MOV	-(R1), -(R1)
	CLR	2(R1)

	CALL	(R0)
	MOV	SP, R1
	ADD	#30, R1

	MOV	R3, -(R1)
	MOV	R2, -(R1)
	MOV	177772(R1), -(R1)

	MOV	177772(R1), -(R1)

	MOV	(SP)+, R0
	MOV	(SP)+, R1
	MOV	(SP)+, R2
	MOV	(SP)+, R3
	MOV	(SP)+, R4
	MOV	(SP)+, R5
	ADD	#4, SP

	RTI
	JSR	R0, M55112

	.WORD	M55154
	JSR	R0, M55112

	.WORD	M55410
	JSR	R0, M55112

	.WORD	M55620
	JSR	R0, M55112

	.WORD	M55614
M55112:
	MOV	R1, -(SP)
	MOV	R4, -(SP)
	MOV	R5, -(SP)
	CALL	@(R0)+
	MOV	(SP)+, R5
	MOV	(SP)+, R4
	MOV	(SP)+, R1
	MOV	(SP)+, R0
	RETURN
M55134:
	JSR	R5, M51534

	.WORD	A55142
A55142:
	.ASCIZ	|FIS error|

M55154:
	MOV	R2, R0
	BEQ	M55402
	CLR	-(SP)
	ROL	R0
	ROR	(SP)
	CLRB	R0
	MOV	R4, R1
	BEQ	M55400
	CLR	-(SP)
	ROL	R1
	ROR	(SP)
	CLRB	R1
	ADD	(SP)+, (SP)
	ADD	R1, R0
	BCS	M55214
	COMB	R0
M55214:
	SWAB	R0
	MOV	R0, -(SP)
	BIC	#177400, R2

	BIS	#200, R2

	BIC	#177400, R4

	BIS	#200, R4

	MOV	R3, -(SP)
	SWAB	R4
	SWAB	R5
	BISB	R5, R4
	CLRB	R5
	MOV	R4, -(SP)
	MOV	R2, R0
	CLR	R1
	CLR	R4
	CLR	R3
	CLR	R2
M55266:
	TST	R0
	BNE	M55332
	SWAB	2(SP)

	BEQ	M55366
	BISB	2(SP), R0

	CLRB	2(SP)

	CLRB	R1
	BISB	R5, R1
	SWAB	R1
	CLRB	R5
	BISB	(SP), R5
	SWAB	R5
	CLRB	(SP)
	SWAB	(SP)
	BR	M55266
M55332:
	ROR	(SP)
	ROR	R5
	ROR	R1
	ASL	2(SP)

	ROLB	R0
	BCC	M55266
	ADD	R1, R4
	ADC	R3
	ADC	R2
	ADD	R5, R3
	ADC	R2
	ADD	(SP), R2
	BR	M55266
M55366:
	CMP	(SP)+, (SP)+
	CLR	R4
	CALL	M56210

	RETURN
M55400:
	TST	(SP)+
M55402:
	CLR	R2
	CLR	R3
	RETURN
M55410:
	MOV	R2, R1
	BEQ	M55574
	CLR	-(SP)
	ROL	R1
	ROR	(SP)
	CLRB	R1
	MOV	R4, R0
	BEQ	M55604
	CLR	-(SP)
	ROL	R0
	ROR	(SP)
	CLRB	R0
	ADD	(SP)+, (SP)
	SUB	R1, R0
	BCC	M55450
	COMB	R0
M55450:
	SWAB	R0
	MOV	R0, -(SP)
	BIC	#177400, R2

	BIS	#200, R2

	BIC	#177400, R4

	BIS	#200, R4

	ADD	#10, (SP)

	MOV	#31, -(SP)

	MOV	R2, R0
	MOV	R3, R1
	CLR	R2
	CLR	R3
M55514:
	CMP	R0, R4
	BCS	M55526
	BHI	M55536
	CMP	R1, R5
	BHI	M55536
M55526:
	SUB	R1, R5
	SBC	R4
	SUB	R0, R4
	SEC
M55536:
	ROL	R3
	ROL	R2
	DEC	(SP)
	BEQ	M55562
	ASL	R5
	ROL	R4
	BIT	#177600, R4

	BEQ	M55536
	BR	M55514
M55562:
	TST	(SP)+
	CLR	R4
	CALL	M56210

	RETURN
M55574:
	JSR	R0, M55134

	.WORD	13
	CLR	-(SP)
M55604:
	TST	(SP)+
	CLR	R2
	CLR	R3
	RETURN
M55614:
	ADD	#100000, R2

M55620:
	CLR	-(SP)
	MOV	#10, -(SP)

	MOV	R2, R0
	BEQ	M56170
	ASL	R0
	CLRB	R0
	SWAB	R0
	MOV	R4, R1
	BEQ	M56174
	ASL	R1
	CLRB	R1
	SWAB	R1
	SUB	R1, R0
	BMI	M55670
	CMP	R0, #30

	BGT	M56174
	ADD	R0, R1
	BR	M55676
M55670:
	CMP	R0, #177750

	BLT	M56170
M55676:
	SUB	#200, R1

	ADD	R1, (SP)
	BIC	#77600, R4

	BIS	#200, R4

	BPL	M55730
	NEG	R5
	ADC	R4
	NEG	R4
	BIS	#100000, R4

M55730:
	BIC	#77600, R2

	BIS	#200, R2

	BPL	M55754
	NEG	R3
	ADC	R2
	NEG	R2
	BIS	#100000, R2

M55754:
	TST	R0
	BMI	M56036
	BEQ	M56116
	CLR	R1
M55764:
	CMP	R0, #10

	BLT	M56022
	CLRB	R1
	BISB	R5, R1
	SWAB	R1
	CLRB	R5
	BISB	R4, R5
	SWAB	R5
	SWAB	R4
	MOVB	R4, R4
	SUB	#10, R0

	BGT	M55764
	BR	M56122
M56022:
	ASR	R4
	ROR	R5
	ROR	R1
	DEC	R0
	BNE	M56022
	BR	M56122
M56036:
	MOV	R0, R1
	CLR	R0
	NEG	R1
M56044:
	CMP	R1, #10

	BLT	M56102
	CLRB	R0
	BISB	R3, R0
	SWAB	R0
	CLRB	R3
	BISB	R2, R3
	SWAB	R3
	SWAB	R2
	MOVB	R2, R2
	SUB	#10, R1

	BGT	M56044
	BEQ	M56122
M56102:
	ASR	R2
	ROR	R3
	ROR	R0
	DEC	R1
	BNE	M56102
	BR	M56122
M56116:
	CLR	R1
	CLR	R0
M56122:
	ADD	R1, R0
	ADC	R3
	ADC	R2
	ADD	R5, R3
	ADC	R2
	ADD	R4, R2
	BPL	M56160
	NEG	R0
	ADC	R3
	ADC	R2
	NEG	R3
	ADC	R2
	NEG	R2
	COM	2(SP)

M56160:
	MOV	R0, R4
	CALL	M56210

	RETURN
M56170:
	MOV	R4, R2
	MOV	R5, R3
M56174:
	CMP	(SP)+, (SP)+
	CMP	R2, #100000

	BNE	M56206
	CLR	R2
M56206:
	RETURN
M56210:
	MOV	4(SP), R0

	MOV	(SP)+, 2(SP)

	MOV	(SP)+, R1
	SUB	#10, R1

	MOV	R2, R5
	BIS	R3, R5
	BIS	R4, R5
	BEQ	M56464
	BIT	#177400, R2

	BEQ	M56314
M56244:
	BPL	M56272
	MOV	R3, R4
	CLRB	R3
	BISB	R2, R3
	CLRB	R2
	SWAB	R4
	SWAB	R3
	SWAB	R2
	ADD	#10, R1

	BR	M56360
M56272:
	CLC
	ROR	R2
	ROR	R3
	ROR	R4
	INC	R1
	BIT	#177400, R2

	BNE	M56244
	BR	M56360
M56314:
	TST	R2
	BNE	M56354
	SWAB	R3
	BISB	R3, R2
	CLRB	R3
	SWAB	R4
	BISB	R4, R3
	CLRB	R4
	SUB	#10, R1

	BR	M56314
M56342:
	CLC
	ROL	R4
	ROL	R3
	ROL	R2
	DEC	R1
M56354:
	TSTB	R2
	BPL	M56342
M56360:
	ADD	#100000, R4

	ADC	R3
	ADC	R2
	BIT	#400, R2

	BNE	M56272
	CMP	R1, #177600

	BGT	M56414
	JSR	R0, M55134

	.WORD	12
	BR	M56464
M56414:
	CMP	R1, #200

	BLT	M56432
	JSR	R0, M55134

	RTI
	.WORD	415
M56432:
	ADD	#200, R1

	BIC	#177400, R1

	ASL	R2
	BIC	#177400, R2

	SWAB	R1
	BIS	R1, R2
	ROR	R2
	BIC	#77777, R0

	BIS	R0, R2
M56464:
	RETURN
M56466:
	MOV	R4, -(SP)
	MOV	R3, -(SP)
	MOV	R2, -(SP)
	MOV	20(SP), R4

	BEQ	M56562
	MOV	R1, R3
	BEQ	M56564
	CLR	R2
	CLR	R1
	CLR	R0
M56514:
	ROR	R4
	BCC	M56526
	ADD	R3, R1
	ADC	R0
	ADD	R2, R0
M56526:
	ASL	R3
	ROR	R2
	TST	R4
	BNE	M56514
M56536:
	MOV	(SP)+, R2
	MOV	(SP)+, R3
	MOV	(SP)+, R4
	INC	R0
	CMP	R0, #1

	BLOS	M56560
	SEC
	CLC
M56560:
	RETURN
M56562:
	CLR	R1
M56564:
	CLR	R0
	BR	M56536
M56570:
	MOV	R4, -(SP)
	MOV	R2, -(SP)
	MOV	16(SP), R4

	BNE	M56606
	SEC
	BR	M56712
M56606:
	MOV	R0, -(SP)
	MOV	R0, -(SP)
	BPL	M56624
	NEG	R1
	CLR	R0
	BIC	#77777, (SP)

M56624:
	ADD	R4, (SP)
	TST	R4
	BPL	M56634
	NEG	R4
M56634:
	MOV	R4, R2
	CMP	R2, R1
	BHI	M56666
M56642:
	ASL	R2
	BCS	M56666
	CMP	R2, R1
	BLOS	M56642
	BR	M56666
M56654:
	ASL	R0
	CMP	R2, R1
	BHI	M56666
	SUB	R2, R1
	INC	R0
M56666:
	ROR	R2
	CMP	R2, R4
	BCC	M56654
	TST	(SP)+
	BPL	M56702
	NEG	R0
M56702:
	TST	(SP)+
	BPL	M56710
	NEG	R1
M56710:
	CLC
M56712:
	MOV	(SP)+, R2
	MOV	(SP)+, R4
	RETURN
K56720:
	.WORD	M55620
	.WORD	M55614
	.WORD	M55154
	.WORD	M55410
M56730:
	RETURN
M56732:
	MOV	(R5)+, -(SP)
	ADD	SP, (SP)
	MOV	R4, -(SP)
	MOV	R0, -(SP)
	MOV	R5, -(SP)
	MOV	@#K50374, R5

	MOV	R5, R4
	CMP	R5, #50372

	BEQ	M56764
	ADD	#14, R4

M56764:
	CALL	@(SP)+
	MOV	(SP)+, R0
	MOV	(SP)+, R4
	MOV	2(SP), R5

	MOV	4(SP), @0(SP)

	MOV	(SP), SP
M57006:
	RETURN
M57010:
	BCS	M57014
	RETURN
M57014:
	CMPB	@#K00052, #1

	BCS	K57034
	BHI	M57042
	JSR	R5, M51534

	.WORD	51160
K57034:
	.WORD	4567
	.WORD	172474
	.WORD	A50556
M57042:
	JSR	R5, M51534

	.WORD	A50603
	SUB	#72, R0

	ADD	#12, R0

	RETURN
M57062:
	CMPB	R5, #50372

	BNE	M57106
	TSTB	(R5)
	BEQ	M57122
	BIS	#20000, (R5)

	BIC	#10000, (R5)

	RETURN
M57106:
	TSTB	12(R5)

	BEQ	M57122
	BIS	#20000, 12(R5)

M57122:
	RETURN
	MOV	R5, -(SP)
	MOV	K50374, R5

	CALL	M57062

	MOV	(SP)+, R5
	RETURN
	CLR	-(SP)
	MOV	R5, -(SP)
	MOV	R4, -(SP)
	MOV	K50374, R5

	MOV	R5, R4
	CMP	R5, #50372

	BEQ	M57170
	ADD	#14, R4

M57170:
	CALL	M57212

	MOV	(R4), 4(SP)

	MOV	(SP)+, R4
	MOV	(SP)+, R5
	BIT	#140000, (SP)+

	RETURN
M57212:
	BIC	#40000, (R4)

	CMP	R5, #50372

	BEQ	M57322
	TST	(R4)
	BPL	M57236
	JSR	R5, M51534

	.WORD	A50603
M57236:
	BIT	#20000, 12(R5)

	BEQ	M57260
	MOVB	12(R5), R0

	CLR	12(R5)

	BR	M57366
M57260:
	MOVB	@0(R5), R0

	INC	(R5)
	MOV	14(R5), -(SP)

	ADD	6(R5), (SP)

	CMP	(R5), (SP)+
	BCS	M57366
	CALL	M57604

	BCC	M57366
	BIS	#140000, (R4)

	MOV	#40, R0

	BR	M57526
M57322:
	BIT	#10000, @#K00044

	BEQ	M57342
	EMT	340
	BCC	M57524
	CLR	R0
	BR	M57524
M57342:
	BIT	#120000, (R5)

	BMI	M57474
	BEQ	M57362
	MOVB	(R5), R0
	BIC	#20377, (R4)

	BR	M57366
M57362:
	EMT	340
	BCS	M57362
M57366:
	TST	R0
	BEQ	M57212
	CMPB	R0, #15

	BEQ	M57212
	CMPB	R0, #12

	BEQ	M57414
	CMPB	R0, #33

	BNE	M57504
M57414:
	CMP	R5, #50372

	BNE	M57456
	BIT	#10000, (R5)

	BEQ	M57442
	BIC	#10000, (R5)

	BIS	#20000, (R5)

	BR	M57446
M57442:
	BIS	#50000, (R5)

M57446:
	MOVB	R0, (R5)
	MOV	#40, R0

	BR	M57526
M57456:
	MOV	R0, 12(R5)

	MOV	#40, R0

	BIS	#40000, (R4)

	BR	M57526
M57474:
	MOV	#40, R0

	BIS	#140000, (R4)

M57504:
	BIC	#10000, (R4)

	CMP	R5, #50372

	BEQ	M57524
	MOV	R0, 12(R5)

	BR	M57526
M57524:
	MOVB	R0, (R5)
M57526:
	BIT	#140000, (R4)

	RETURN
M57534:
	CMP	R5, #50372

	BEQ	M57554
M57542:
	CALL	M57212

	CALL	M57062

	RETURN
M57554:
	BIT	#10000, @#K00044

	BNE	M57602
	BIT	#40000, (R5)

	BEQ	M57542
	BIC	#40000, (R5)

	BIS	#10000, (R5)

M57602:
	RETURN
M57604:
	CLR	12(R5)

	MOV	R0, -(SP)
	MOV	R5, R0
	TST	(R0)+
	EMT	375
	BCC	M57634
	TSTB	@#K00052

	BEQ	M57660
	CALL	M57014

M57634:
	ASL	R0
	BIC	#37777, (R4)

	BIS	R0, (R4)
	MOV	6(R5), (R5)

	INC	4(R5)

	CLC
	BR	M57666
M57660:
	BIC	#37777, (R4)

	SEC
M57666:
	MOV	(SP)+, R0
	RETURN
M57672:
	CMP	R5, #50372

	BNE	M57706
M57700:
	EMT	341
	BCS	M57700
	RETURN
M57706:
	MOVB	R0, @0(R5)

	INC	(R5)
	MOV	6(R5), -(SP)

	ADD	#1000, (SP)

	CMP	(SP)+, (R5)
	BHI	M57734
	CALL	M57754

M57734:
	RETURN
M57736:
	MOV	R5, -(SP)
	MOV	K50374, R5

	CALL	M57672

	MOV	(SP)+, R5
	RETURN
M57754:
	CMP	R5, #50372

	BEQ	M60014
	CLR	12(R5)

	MOV	R0, -(SP)
	MOV	R5, R0
	TST	(R0)+
	EMT	375
	CALL	M57010

	MOV	(SP)+, R0
	MOV	6(R5), (R5)

	INC	4(R5)

M60014:
	RETURN
	.WORD	0

	.END	START