TSWIN[-1]=TSWIN.SS/I:ALL
RANGE:	120000-134776

120000	146	 BV	f	JMP	-(SP)

120002	110466
;	134122
120006	0
120010	0
120012	.Rad50	"WINPRT"
120016	.BlkW	10

120036	MOV	R0,-(SP)
120040	MOV	R2,-(SP)
120042	MOV	R5,-(SP)
120044	MOV	R0,R5
120046	MOV	13370(R1),R2
120052	BIT	#20000,20(R2)
120060	BNE	120164
120062	BIT	#10000,7510(R1)
120070	BNE	120076
120072	BIC	#^C177,R5
120076	TSTB	R5
120100	BEQ	120150
120102	JSR	PC,@#120502
120106	BCC	120150
120110	MOV	24(R2),R0
120114	BEQ	120122
120116	JSR	PC,@R0
120120	BR	120150
120122	MOV	R5,R0
120124	BIC	#-200,R0
120130	CMP	R0,#37
120134	BHI	120144
120136	JSR	PC,@#120362
120142	BR	120150
120144	JSR	PC,@#120176
120150	BIT	#40000,20(R2)
120156	BEQ	120164
120160	SEC
120162	BR	120166
120164	CLC
120166	MOV	(SP)+,R5
120170	MOV	(SP)+,R2
120172	MOV	(SP)+,R0
120174	RTS	PC
120176	MOV	R3,-(SP)
120200	MOV	R5,-(SP)
120202	MOV	26(R2),R3
120206	MOV	4(R2),R0
120212	DEC	R0
120214	ASL	R0
120216	ADD	R0,R3
120220	MOVB	47(R2),R0
120224	BIT	#200,R5
120230	BNE	120260
120232	MOVB	46(R2),R0
120236	BIT	#1000,20(R2)
120244	BEQ	120260
120246	MOVB	50(R2),R0
120252	BIC	#1000,20(R2)
120260	ADD	R2,R0
120262	MOVB	42(R0),R0
120266	BIC	#-200,R5
120272	BISB	41(R2),R0
120276	BIS	#340,@#-2
120304	MOV	@#172354,@#120010
120312	MOV	32(R2),@#172354
120320	MOVB	R5,(R3)+
120322	MOVB	R0,(R3)+
120324	MOV	@#120010,@#172354
120332	BIC	@#21520,@#-2
120340	CMP	4(R2),10(R2)
120346	BCC	120354
120350	INC	4(R2)
120354	MOV	(SP)+,R5
120356	MOV	(SP)+,R3
120360	RTS	PC
120362	MOV	R5,R0
120364	BIC	#-200,R0
120370	ASL	R0
120372	JSR	PC,@120400(R0)
120376	RTS	PC

120400	.Word	120500,120500,120500,120500,120500,120500,120500,120500
	.Word	122162,122200,122406,122406,122406,122240,123450,123460
	.Word	120500,120500,120500,120500,120500,120500,120500,120500
	.Word	120500,120500,120500,120500,120500,120500,120500,120500
120500	RTS	PC
120502	CMPB	R5,#33
120506	BNE	120516
120510	JSR	PC,@#120540
120514	BR	120530
120516	CMPB	R5,#233
120522	BNE	120534
120524	JSR	PC,@#120572
120530	CLC
120532	BR	120536
120534	SEC
120536	RTS	PC
120540	CLR	22(R2)
120544	MOV	#120616,R0
120550	BIT	#1,20(R2)
120556	BEQ	120564
120560	MOV	#120702,R0
120564	MOV	R0,24(R2)
120570	RTS	PC
120572	MOV	#120616,24(R2)
120600	CLR	22(R2)
120604	MOVB	#133,R0
120610	JSR	PC,@#121130
120614	RTS	PC
120616	MOV	R5,-(SP)
120620	BIC	#-200,R5
120624	MOV	R5,R0
120626	JSR	PC,@#121130
120632	CMPB	R5,#60
120636	BCS	120676
120640	CMPB	R5,#176
120644	BHI	120676
120646	CMPB	R5,#133
120652	BEQ	120676
120654	CMPB	R5,#100
120660	BCC	120672
120662	CMPB	51(R2),#133
120670	BEQ	120676
120672	JSR	PC,@#121166
120676	MOV	(SP)+,R5
120700	RTS	PC
120702	MOV	R5,-(SP)
120704	BIC	#-200,R5
120710	CMPB	R5,#101
120714	BCS	120752
120716	CMPB	R5,#132
120722	BHI	120752
120724	MOV	#133,R0
120730	JSR	PC,@#121130
120734	CMPB	R5,#131
120740	BNE	120752
120742	MOV	#120770,24(R2)
120750	BR	120764
120752	MOV	R5,R0
120754	JSR	PC,@#121130
120760	JSR	PC,@#121166
120764	MOV	(SP)+,R5
120766	RTS	PC
120770	BIC	#-200,R5
120774	CMPB	R5,#70
121000	BCS	121012
121002	MOV	2(R2),R5
121006	ADD	#37,R5
121012	JSR	PC,@#121060
121016	MOVB	#73,R0
121022	JSR	PC,@#121130
121026	MOV	#121036,24(R2)
121034	RTS	PC
121036	JSR	PC,@#121060
121042	MOVB	#110,R0
121046	JSR	PC,@#121130
121052	JSR	PC,@#121166
121056	RTS	PC
121060	MOV	R4,-(SP)
121062	MOV	R5,-(SP)
121064	SUB	#37,R5
121070	CLR	R4
121072	DIV	#12,R4
121076	ADD	#60,R4
121102	MOV	R4,R0
121104	JSR	PC,@#121130
121110	ADD	#60,R5
121114	MOV	R5,R0
121116	JSR	PC,@#121130
121122	MOV	(SP)+,R5
121124	MOV	(SP)+,R4
121126	RTS	PC
121130	MOV	R3,-(SP)
121132	BIC	#-200,R0
121136	MOV	22(R2),R3
121142	CMP	R3,#13
121146	BCC	121162
121150	ADD	R2,R3
121152	MOVB	R0,51(R3)
121156	INC	22(R2)
121162	MOV	(SP)+,R3
121164	RTS	PC
121166	MOV	R3,-(SP)
121170	MOV	R4,-(SP)
121172	MOV	R5,-(SP)
121174	MOV	R2,R3
121176	ADD	22(R2),R3
121202	CLRB	51(R3)
121206	MOV	#120016,R5
121212	MOV	R2,R3
121214	ADD	#51,R3
121220	CMPB	@R3,#133
121224	BNE	121256
121226	MOVB	(R3)+,R0
121230	BEQ	121252
121232	CMPB	R0,#60
121236	BCS	121246
121240	CMPB	R0,#76
121244	BLOS	121226
121246	MOVB	R0,(R5)+
121250	BR	121226
121252	CLRB	(R5)+
121254	BR	121262
121256	MOVB	(R3)+,(R5)+
121260	BNE	121256
121262	MOV	#121404,R4
121266	CMPB	-2(R5),#140
121274	BCC	121302
121276	MOV	#121512,R4
121302	MOV	#120016,R3
121306	CMPB	(R3)+,(R4)+
121310	BNE	121322
121312	TSTB	-1(R4)
121316	BNE	121306
121320	BR	121346
121322	DEC	R4
121324	TSTB	(R4)+
121326	BNE	121324
121330	ADD	#3,R4
121334	BIC	#1,R4
121340	TST	@R4
121342	BNE	121302
121344	BR	121364
121346	MOV	R2,R5
121350	ADD	#52,R5
121354	INC	R4
121356	BIC	#1,R4
121362	JSR	PC,@(R4)+
121364	CLR	22(R2)
121370	CLR	24(R2)
121374	MOV	(SP)+,R5
121376	MOV	(SP)+,R4
121400	MOV	(SP)+,R3
121402	RTS	PC
121404	.Asciz	"[f"
	.Even
	.Word	122610
	Asciz	|["p|
	.Word	124266
	.Asciz	"[h"
	.Even
	.Word	123572
	.Asciz	"[l"
	.Word	123640
	.Asciz	"[?h"
	.Word	123572
	.Asciz	"[?l"
	.Word	123640
	.Asciz	"[m"
	.Even
	.Word	124142
	.Asciz	"[r"
	.Even
	.Word	124446
	.Asciz	"~"
	.Word	123506
	.Asciz	"n"
	.Word	123466
	.Asciz	"o"
	.Even
	.Word	123516
	.Asciz	"|"
	.Word	123526
	.Word	0
121512	.Asciz	"[A"
	.Even
	.Word	122250
	.Asciz	"[B"
	.Even
	.Word	122326
	.Asciz	"[C"
	.Even
	.Word	122516
	.Asciz	"[D"
	.Even
	.Word	122554
	.Asciz	"[F"
	.Even
	.Word	123306
	.Asciz	"[G"
	.Even
	.Word	123300
	.Asciz	"[H"
	.Even
	.Word	122610
	.Asciz	"[I"
	.Even
	.Word	122462
	.Asciz	"[J"
	.Even
	.Word	124400
	.Asciz	"[K"
	.Even
	.Word	124332
	.Asciz	"[L"
	.Even
	.Word	122774
	.Asciz	"[M"
	.Even
	.Word	123140
	.Asciz	"D"
	.Word	122406
	.Asciz	"E"
	.Word	122450
	.Asciz	"M"
	.Word	122462
	.Asciz	"N"
	.Word	123536
	.Asciz	"O"
	.Word	123554
	.Asciz	"(A"
	.Even
	.Word	123316
	.Asciz	"(B"
	.Even
	.Word	123300
	.Asciz	"(0"
	.Even
	.Word	123326
	.Asciz	")A"
	.Even
	.Word	123336
	.Asciz	")B"
	.Even
	.Word	123336
	.Asciz	")0"
	.Even
	.Word	123364
	.Asciz	"*B"
	.Even
	.Word	123374
	.Asciz	"*0"
	.Even
	.Word	123412
	.Asciz	"+B"
	.Even
	.Word	123422
	.Asciz	"+0"
	.Even
	.Word	123440
	.Asciz	"#3"
	.Even
	.Word	124042
	.Asciz	"#4"
	.Even
	.Word	124064
	.Asciz	"#5"
	.Even
	.Word	124106
	.Asciz	"#6"
	.Even
	.Word	124124
	.Asciz	"7"
	.Word	122722
	.Asciz	"8"
	.Word	122746
	.Asciz	"="
	.Word	124022
	.Asciz	"(<"
	.Even
	.Word	123306
	.Asciz	")<"
	.Even
	.Word	123344
	.Asciz	"*<"
	.Even
	.Word	123402
	.Asciz	"+<"
	.Even
	.Word	123430
	.Asciz	"<"
	.Word	124266
	.Asciz	">"
	.Word	124032
	.Word	0

122050	MOV	R1,-(SP)
122052	MOVB	(R5)+,R0
122054	BEQ	122140
122056	CMPB	R0,#73
122062	BEQ	122142
122064	CMPB	R0,#71
122070	BHI	122052
122072	CMPB	R0,#60
122076	BCS	122052
122100	CLR	R1
122102	BR	122130
122104	MOVB	(R5)+,R0
122106	BEQ	122150
122110	CMPB	R0,#71
122114	BHI	122152
122116	CMPB	R0,#60
122122	BCS	122152
122124	MUL	#12,R1
122130	SUB	#60,R0
122134	ADD	R0,R1
122136	BR	122104
122140	DEC	R5
122142	CLR	R0
122144	SEC
122146	BR	122156
122150	DEC	R5
122152	MOV	R1,R0
122154	CLC
122156	MOV	(SP)+,R1
122160	RTS	PC
122162	CMP	4(R2),#1
122170	BEQ	122176
122172	DEC	4(R2)
122176	RTS	PC
122200	MOV	4(R2),R0
122204	DEC	R0
122206	ADD	#10,R0
122212	BIC	#7,R0
122216	INC	R0
122220	CMP	R0,10(R2)
122224	BLOS	122232
122226	MOV	10(R2),R0
122232	MOV	R0,4(R2)
122236	RTS	PC
122240	MOV	#1,4(R2)
122246	RTS	PC
122250	JSR	PC,@#122050
122254	TST	R0
122256	BNE	122262
122260	INC	R0
122262	NEG	R0
122264	ADD	2(R2),R0
122270	BGT	122276
122272	MOV	#1,R0
122276	CMP	2(R2),14(R2)
122304	BCS	122320
122306	CMP	R0,14(R2)
122312	BCC	122320
122314	MOV	14(R2),R0
122320	JSR	PC,@#126306
122324	RTS	PC
122326	JSR	PC,@#122050
122332	TST	R0
122334	BNE	122340
122336	INC	R0
122340	ADD	2(R2),R0
122344	CMP	R0,6(R2)
122350	BLOS	122356
122352	MOV	6(R2),R0
122356	CMP	2(R2),16(R2)
122364	BHI	122400
122366	CMP	R0,16(R2)
122372	BLOS	122400
122374	MOV	16(R2),R0
122400	JSR	PC,@#126306
122404	RTS	PC
122406	MOV	2(R2),R0
122412	CMP	R0,16(R2)
122416	BEQ	122442
122420	INC	R0
122422	CMP	R0,6(R2)
122426	BLOS	122434
122430	MOV	6(R2),R0
122434	JSR	PC,@#126306
122440	BR	122446
122442	JSR	PC,@#124552
122446	RTS	PC
122450	JSR	PC,@#122240
122454	JSR	PC,@#122406
122460	RTS	PC
122462	MOV	2(R2),R0
122466	CMP	R0,14(R2)
122472	BEQ	122510
122474	DEC	R0
122476	BGT	122502
122500	INC	R0
122502	JSR	PC,@#126306
122506	BR	122514
122510	JSR	PC,@#124672
122514	RTS	PC
122516	JSR	PC,@#122050
122522	TST	R0
122524	BNE	122530
122526	INC	R0
122530	ADD	4(R2),R0
122534	CMP	R0,10(R2)
122540	BLOS	122546
122542	MOV	10(R2),R0
122546	MOV	R0,4(R2)
122552	RTS	PC
122554	JSR	PC,@#122050
122560	TST	R0
122562	BNE	122566
122564	INC	R0
122566	NEG	R0
122570	ADD	4(R2),R0
122574	BGT	122602
122576	MOV	#1,R0
122602	MOV	R0,4(R2)
122606	RTS	PC
122610	JSR	PC,@#122050
122614	TST	R0
122616	BNE	122622
122620	INC	R0
122622	BIT	#100,20(R2)
122630	BEQ	122652
122632	ADD	14(R2),R0
122636	DEC	R0
122640	CMP	R0,16(R2)
122644	BLOS	122652
122646	MOV	16(R2),R0
122652	CMP	R0,6(R2)
122656	BLOS	122664
122660	MOV	6(R2),R0
122664	JSR	PC,@#126306
122670	JSR	PC,@#122050
122674	TST	R0
122676	BNE	122702
122700	INC	R0
122702	CMP	R0,10(R2)
122706	BLOS	122714
122710	MOV	10(R2),R0
122714	MOV	R0,4(R2)
122720	RTS	PC
122722	MOVB	2(R2),34(R2)
122730	MOVB	4(R2),35(R2)
122736	MOVB	41(R2),36(R2)
122744	RTS	PC
122746	MOVB	35(R2),4(R2)
122754	MOVB	34(R2),R0
122760	JSR	PC,@#126306
122764	MOVB	36(R2),41(R2)
122772	RTS	PC
122774	MOV	R1,-(SP)
122776	MOV	R3,-(SP)
123000	MOV	R4,-(SP)
123002	MOV	R5,-(SP)
123004	MOV	2(R2),R3
123010	CMP	R3,14(R2)
123014	BCS	123126
123016	CMP	R3,16(R2)
123022	BHI	123126
123024	JSR	PC,@#122050
123030	TST	R0
123032	BGT	123040
123034	MOV	#1,R0
123040	MOV	16(R2),R1
123044	SUB	R3,R1
123046	INC	R1
123050	CMP	R1,R0
123052	BLOS	123102
123054	MOV	R1,R3
123056	SUB	R0,R3
123060	MOV	R0,R1
123062	MOV	16(R2),R5
123066	MOV	R5,R4
123070	SUB	R1,R4
123072	JSR	PC,@#125752
123076	DEC	R5
123100	SOB	R3,123066
123102	MOV	2(R2),R3
123106	MOV	R3,R0
123110	JSR	PC,@#125636
123114	INC	R3
123116	SOB	R1,123106
123120	MOV	#1,4(R2)
123126	MOV	(SP)+,R5
123130	MOV	(SP)+,R4
123132	MOV	(SP)+,R3
123134	MOV	(SP)+,R1
123136	RTS	PC
123140	MOV	R1,-(SP)
123142	MOV	R3,-(SP)
123144	MOV	R4,-(SP)
123146	MOV	R5,-(SP)
123150	MOV	2(R2),R3
123154	CMP	R3,14(R2)
123160	BCS	123266
123162	CMP	R3,16(R2)
123166	BHI	123266
123170	JSR	PC,@#122050
123174	TST	R0
123176	BGT	123204
123200	MOV	#1,R0
123204	MOV	16(R2),R1
123210	SUB	R3,R1
123212	INC	R1
123214	CMP	R1,R0
123216	BLOS	123244
123220	MOV	R3,R5
123222	MOV	R1,R3
123224	SUB	R0,R3
123226	MOV	R0,R1
123230	MOV	R5,R4
123232	ADD	R1,R4
123234	JSR	PC,@#125752
123240	INC	R5
123242	SOB	R3,123230
123244	MOV	16(R2),R3
123250	MOV	R3,R0
123252	JSR	PC,@#125636
123256	SOB	R1,123250
123260	MOV	#1,4(R2)
123266	MOV	(SP)+,R5
123270	MOV	(SP)+,R4
123272	MOV	(SP)+,R3
123274	MOV	(SP)+,R1
123276	RTS	PC
123300	CLRB	42(R2)
123304	RTS	PC
123306	MOVB	#1,42(R2)
123314	RTS	PC
123316	MOVB	#2,42(R2)
123324	RTS	PC
123326	MOVB	#3,42(R2)
123334	RTS	PC
123336	CLRB	43(R2)
123342	RTS	PC
123344	MOVB	#1,43(R2)
123352	RTS	PC
123354	MOVB	#2,43(R2)
123362	RTS	PC
123364	MOVB	#3,43(R2)
123372	RTS	PC
123374	CLRB	44(R2)
123400	RTS	PC
123402	MOVB	#1,44(R2)
123410	RTS	PC
123412	MOVB	#3,44(R2)
123420	RTS	PC
123422	CLRB	45(R2)
123426	RTS	PC
123430	MOVB	#1,45(R2)
123436	RTS	PC
123440	MOVB	#3,45(R2)
123446	RTS	PC
123450	MOVB	#1,46(R2)
123456	RTS	PC
123460	CLRB	46(R2)
123464	RTS	PC
123466	MOVB	#2,46(R2)
123474	RTS	PC
123476	MOVB	#3,46(R2)
123504	RTS	PC
123506	MOVB	#1,47(R2)
123514	RTS	PC
123516	MOVB	#2,47(R2)
123524	RTS	PC
123526	MOVB	#3,47(R2)
123534	RTS	PC
123536	MOVB	#2,50(R2)
123544	BIS	#1000,20(R2)
123552	RTS	PC
123554	MOVB	#3,50(R2)
123562	BIS	#1000,20(R2)
123570	RTS	PC
123572	MOV	R3,-(SP)
123574	JSR	PC,@#122050
123600	TST	R0
123602	BEQ	123634
123604	MOV	R0,R3
123606	JSR	PC,@#123732
123612	BCS	123574
123614	BIS	R0,20(R2)
123620	CMP	R3,#6
123624	BNE	123574
123626	JSR	PC,@#124514
123632	BR	123574
123634	MOV	(SP)+,R3
123636	RTS	PC
123640	MOV	R3,-(SP)
123642	JSR	PC,@#122050
123646	TST	R0
123650	BEQ	123726
123652	CMP	R0,#2
123656	BNE	123676
123660	BIC	#2,20(R2)
123666	BIS	#1,20(R2)
123674	BR	123642
123676	MOV	R0,R3
123700	JSR	PC,@#123732
123704	BCS	123642
123706	BIC	R0,20(R2)
123712	CMP	R3,#6
123716	BNE	123642
123720	JSR	PC,@#124514
123724	BR	123642
123726	MOV	(SP)+,R3
123730	RTS	PC
123732	MOV	R3,-(SP)
123734	MOV	#123770,R3
123740	CMP	R0,(R3)+
123742	BEQ	123760
123744	TST	(R3)+
123746	TST	@R3
123750	BNE	123740
123752	CLR	R0
123754	SEC
123756	BR	123764
123760	MOV	@R3,R0
123762	CLC
123764	MOV	(SP)+,R3
123766	RTS	PC

123770	.Word	1,20
123774	.Word	3,4
124000	.Word	4,10
124004	.Word	5,40
124010	.Word	6,100
124014	.Word	25.,400
124020	.Word	0

124022	BIS	#200,20(R2)
124030	RTS	PC
124032	BIC	#200,20(R2)
124040	RTS	PC
124042	JSR	PC,@#126216
124046	BIC	#1,R0
124052	BIS	#2,R0
124056	JSR	PC,@#126126
124062	RTS	PC
124064	JSR	PC,@#126216
124070	BIC	#2,R0
124074	BIS	#1,R0
124100	JSR	PC,@#126126
124104	RTS	PC
124106	JSR	PC,@#126216
124112	BIC	#4,R0
124116	JSR	PC,@#126126
124122	RTS	PC
124124	JSR	PC,@#126216
124130	BIS	#4,R0
124134	JSR	PC,@#126126
124140	RTS	PC
124142	MOV	R3,-(SP)
124144	CMPB	@R5,#155
124150	BNE	124162
124152	BICB	#360,41(R2)
124160	BR	124226
124162	JSR	PC,@#122050
124166	BCS	124226
124170	MOV	#124232,R3
124174	CMPB	R0,(R3)+
124176	BEQ	124214
124200	ADD	#2,R3
124204	CMP	R3,#124265
124210	BCS	124174
124212	BR	124162
124214	BISB	(R3)+,41(R2)
124220	BICB	(R3)+,41(R2)
124224	BR	124162
124226	MOV	(SP)+,R3
124230	RTS	PC

124232	.Byte	0,0,360
	.Byte	1,20,0
	.Byte	4,200,0
	.Byte	5,,40,0
	.Byte	7,100,0
	.Byte	22.,0,20
	.BYTE	24.,0,200
	.BYTE	25.,0,40
	.BYTE	27.,0,100
124265
	.Even
124266	BIC	#3,20(R2)
124274	MOVB	0(R2),R0
124300	BIT	#14000,10530(R0)
124306	BNE	124322
124310	JSR	PC,@#122050
124314	CMP	R0,#76
124320	BNE	124330
124322	BIS	#2,20(R2)
124330	RTS	PC
124332	JSR	PC,@#122050
124336	TST	R0
124340	BNE	124350
124342	JSR	PC,@#125236
124346	BR	124376
124350	CMP	R0,#1
124354	BNE	124364
124356	JSR	PC,@#125350
124362	BR	124376
124364	CMP	R0,#2
124370	BNE	124376
124372	JSR	PC,@#125152
124376	RTS	PC
124400	JSR	PC,@#122050
124404	TST	R0
124406	BNE	124416
124410	JSR	PC,@#125434
124414	BR	124444
124416	CMP	R0,#1
124422	BNE	124432
124424	JSR	PC,@#125516
124430	BR	124444
124432	CMP	R0,#2
124436	BNE	124444
124440	JSR	PC,@#125614
124444	RTS	PC
124446	JSR	PC,@#122050
124452	TST	R0
124454	BNE	124462
124456	MOV	#1,R0
124462	MOV	R0,14(R2)
124466	JSR	PC,@#122050
124472	TST	R0
124474	BNE	124502
124476	MOV	6(R2),R0
124502	MOV	R0,16(R2)
124506	JSR	PC,@#124514
124512	RTS	PC
124514	BIT	#100,20(R2)
124522	BEQ	124532
124524	MOV	14(R2),R0
124530	BR	124536
124532	MOV	#1,R0
124536	JSR	PC,@#126306
124542	MOV	#1,4(R2)
124550	RTS	PC
124552	MOV	R3,-(SP)
124554	MOV	R4,-(SP)
124556	MOV	R5,-(SP)
124560	MOV	#1,R0
124564	JSR	PC,@#125020
124570	CMP	14(R2),#1
124576	BNE	124626
124600	CMP	16(R2),6(R2)
124606	BNE	124626
124610	DEC	12(R2)
124614	BGT	124652
124616	MOV	6(R2),12(R2)
124624	BR	124652
124626	MOV	14(R2),R3
124632	MOV	R3,R5
124634	INC	R3
124636	MOV	R3,R4
124640	JSR	PC,@#125752
124644	CMP	R3,16(R2)
124650	BCS	124632
124652	MOV	16(R2),R0
124656	JSR	PC,@#125636
124662	MOV	(SP)+,R5
124664	MOV	(SP)+,R4
124666	MOV	(SP)+,R3
124670	RTS	PC
124672	MOV	R3,-(SP)
124674	MOV	R4,-(SP)
124676	MOV	R5,-(SP)
124700	MOV	#-1,R0
124704	JSR	PC,@#125020
124710	CMP	14(R2),#1
124716	BNE	124754
124720	CMP	16(R2),6(R2)
124726	BNE	124754
124730	INC	12(R2)
124734	CMP	12(R2),6(R2)
124742	BLOS	125000
124744	MOV	#1,12(R2)
124752	BR	125000
124754	MOV	16(R2),R3
124760	MOV	R3,R5
124762	DEC	R3
124764	MOV	R3,R4
124766	JSR	PC,@#125752
124772	CMP	R3,14(R2)
124776	BHI	124760
125000	MOV	14(R2),R0
125004	JSR	PC,@#125636
125010	MOV	(SP)+,R5
125012	MOV	(SP)+,R4
125014	MOV	(SP)+,R3
125016	RTS	PC
125020	MOV	R1,-(SP)
125022	BIT	#40000,20(R2)
125030	BEQ	125106
125032	MOVB	0(R2),R1
125036	BIT	#20,7436(R1)
125044	BEQ	125106
125046	MOVB	37(R2),R1
125052	BLT	125106
125054	BEQ	125102
125056	MOVB	40(R2),R1
125062	ADD	R0,R1
125064	MOVB	R1,40(R2)
125070	BGE	125074
125072	NEG	R1
125074	CMPB	R1,37(R2)
125100	BLOS	125106
125102	JSR	PC,@#125112
125106	MOV	(SP)+,R1
125110	RTS	PC
125112	MOV	R1,-(SP)
125114	TSTB	@#21407
125120	BNE	125146
125122	MOVB	0(R2),R1
125126	BIT	#20,7436(R1)
125134	BEQ	125146
125136	JSR	PC,@#20430
125142	BEQ	125460
125144	BR	125122
125146	MOV	(SP)+,R1
125150	RTS	PC
125152	MOV	R3,-(SP)
125154	MOV	26(R2),R3
125160	MOV	10(R2),R0
125164	BIS	#340,@#-2
125172	MOV	@#172354,@#120010
125200	MOV	32(R2),@#172354
125206	MOVB	#40,(R3)+
125212	CLRB	(R3)+
125214	MOV	@#120010,@#172354
125222	BIC	@#21520,@#-2
125230	SOB	R0,125164
125232	MOV	(SP)+,R3
125234	RTS	PC
125236	MOV	R3,-(SP)
125240	MOV	R4,-(SP)
125242	MOV	4(R2),R3
125246	DEC	R3
125250	ASL	R3
125252	ADD	26(R2),R3
125256	MOV	10(R2),R4
125262	DEC	R4
125264	ASL	R4
125266	ADD	26(R2),R4
125272	BIS	#340,@#-2
125300	MOV	@#172354,@#120010
125306	MOV	32(R2),@#172354
125314	MOVB	#40,(R3)+
125320	CLRB	(R3)+
125322	MOV	@#120010,@#172354
125330	BIC	@#21520,@#-2
125336	CMP	R3,R4
125340	BLOS	125272
125342	MOV	(SP)+,R4
125344	MOV	(SP)+,R3
125346	RTS	PC
125350	MOV	R3,-(SP)
125352	MOV	26(R2),R3
125356	MOV	4(R2),R0
125362	BIS	#340,@#-2
125370	MOV	@#172354,@#120010
125376	MOV	32(R2),@#172354
125404	MOVB	#40,(R3)+
125410	CLRB	(R3)+
125412	MOV	@#120010,@#172354
125420	BIC	@#21520,@#-2
125426	SOB	R0,125362
125430	MOV	(SP)+,R3
125432	RTS	PC
125434	MOV	R5,-(SP)
125436	MOV	2(R2),-(SP)
125442	MOV	2(R2),R5
125446	CMP	4(R2),#1
125454	BEQ	125464
125456	JSR	PC,@#125236
125462	INC	R5
125464	CMP	R5,6(R2)
125470	BHI	125504
125472	MOV	R5,R0
125474	JSR	PC,@#125636
125500	INC	R5
125502	BR	125464
125504	MOV	(SP)+,R0
125506	JSR	PC,@#126306
125512	MOV	(SP)+,R5
125514	RTS	PC
125516	MOV	R4,-(SP)
125520	MOV	R5,-(SP)
125522	MOV	2(R2),R5
125526	MOV	#1,R4
125532	CMP	R4,R5
125534	BCC	125550
125536	MOV	R4,R0
125540	JSR	PC,@#125636
125544	INC	R4
125546	BR	125532
125550	MOV	R4,R0
125552	CMP	4(R2),10(R2)
125560	BNE	125570
125562	JSR	PC,@#125636
125566	BR	125600
125570	JSR	PC,@#126306
125574	JSR	PC,@#125350
125600	MOV	R5,R0
125602	JSR	PC,@#126306
125606	MOV	(SP)+,R5
125610	MOV	(SP)+,R4
125612	RTS	PC
125614	MOV	R5,-(SP)
125616	MOV	6(R2),R5
125622	MOV	R5,R0
125624	JSR	PC,@#125636
125630	SOB	R5,125622
125632	MOV	(SP)+,R5
125634	RTS	PC
125636	MOV	R3,-(SP)
125640	MOV	R4,-(SP)
125642	MOV	2(R2),-(SP)
125646	JSR	PC,@#126306
125652	MOV	26(R2),R3
125656	MOV	10(R2),R4
125662	BIS	#340,@#-2
125670	MOV	@#172354,@#120010
125676	MOV	32(R2),@#172354
125704	MOVB	#40,(R3)+
125710	CLRB	(R3)+
125712	MOV	@#120010,@#172354
125720	BIC	@#21520,@#-2
125726	SOB	R4,125662
125730	CLR	R0
125732	JSR	PC,@#126126
125736	MOV	(SP)+,R0
125740	JSR	PC,@#126306
125744	MOV	(SP)+,R4
125746	MOV	(SP)+,R3
125750	RTS	PC
125752	MOV	R3,-(SP)
125754	MOV	R4,-(SP)
125756	MOV	R5,-(SP)
125760	MOV	2(R2),-(SP)
125764	MOV	R4,R0
125766	JSR	PC,@#126306
125772	JSR	PC,@#126216
125776	MOV	R0,R3
126000	MOV	R5,R0
126002	JSR	PC,@#126306
126006	MOV	R3,R0
126010	JSR	PC,@#126126
126014	MOV	R4,R0
126016	JSR	PC,@#126306
126022	MOV	26(R2),R4
126026	MOV	R5,R0
126030	JSR	PC,@#126306
126034	MOV	26(R2),R5
126040	MOV	10(R2),R0
126044	BIS	#340,@#-2
126052	MOV	@#172354,@#120010
126060	MOV	32(R2),@#172354
126066	MOVB	(R4)+,(R5)+
126070	MOVB	(R4)+,(R5)+
126072	MOV	@#120010,@#172354
126100	BIC	@#21520,@#-2
126106	SOB	R0,126044
126110	MOV	(SP)+,R0
126112	JSR	PC,@#126306
126116	MOV	(SP)+,R5
126120	MOV	(SP)+,R4
126122	MOV	(SP)+,R3
126124	RTS	PC
126126	MOV	R3,-(SP)
126130	MOV	2(R2),R3
126134	SUB	12(R2),R3
126140	BGE	126146
126142	ADD	6(R2),R3
126146	ADD	#-40000,R3
126152	BIS	#340,@#-2
126160	MOV	@#172354,@#120010
126166	MOV	32(R2),@#172354
126174	MOVB	R0,@R3
126176	MOV	@#120010,@#172354
126204	BIC	@#21520,@#-2
126212	MOV	(SP)+,R3
126214	RTS	PC
126216	MOV	R3,-(SP)
126220	MOV	2(R2),R3
126224	SUB	12(R2),R3
126230	BGE	126236
126232	ADD	6(R2),R3
126236	ADD	#-40000,R3
126242	BIS	#340,@#-2
126250	MOV	@#172354,@#120010
126256	MOV	32(R2),@#172354
126264	MOVB	@R3,R0
126266	MOV	@#120010,@#172354
126274	BIC	@#21520,@#-2
126302	MOV	(SP)+,R3
126304	RTS	PC
126306	MOV	R1,-(SP)
126310	MOV	R0,2(R2)
126314	SUB	12(R2),R0
126320	BGE	126326
126322	ADD	6(R2),R0
126326	MOV	R0,R1
126330	MUL	10(R2),R1
126334	ASL	R1
126336	ADD	6(R2),R1
126342	ADD	#-40000,R1
126346	MOV	R1,26(R2)
126352	MOV	(SP)+,R1
126354	RTS	PC
126356	BIS	#40000,20(R2)
126364	CLRB	40(R2)
126370	RTS	PC
126372	MOV	R1,-(SP)
126374	MOVB	0(R2),R1
126400	BIS	#4,10046(R1)
126406	CMP	7240(R1),#24
126414	BNE	126422
126416	JSR	PC,@#26446
126422	MOV	(SP)+,R1
126424	RTS	PC
126426	MOV	R2,-(SP)
126430	BIC	#4,10046(R1)
126436	BIS	#100000,7722(R1)
126444	MOV	13370(R1),R2
126450	BEQ	126456
126452	JSR	PC,@#126470
126456	BIC	#100000,7722(R1)
126464	MOV	(SP)+,R2
126466	RTS	PC
126470	MOV	R1,-(SP)
126472	MOV	R5,-(SP)
126474	BIS	#40000,20(R2)
126502	MOVB	0(R2),R1
126506	BIS	#340,@#-2
126514	MOV	12774(R1),13316(R1)
126522	MOV	13172(R1),13244(R1)
126530	BIC	@#21520,@#-2
126536	BIC	#1000,7650(R1)
126544	JSR	PC,@#127146
126550	JSR	PC,@#130444
126554	CLR	R5
126556	MOV	2(R2),-(SP)
126562	MOV	#1,R1
126566	MOV	R1,R0
126570	JSR	PC,@#126306
126574	JSR	PC,@#126702
126600	INC	R1
126602	CMP	R1,6(R2)
126606	BLOS	126566
126610	MOV	(SP)+,R0
126612	JSR	PC,@#126306
126616	JSR	PC,@#130302
126622	JSR	PC,@#131244
126626	MOV	4(R2),R0
126632	DEC	R0
126634	MOVB	0(R2),R1
126640	MOVB	R0,14716(R1)
126644	CMPB	R5,41(R2)
126650	BEQ	126662
126652	MOVB	41(R2),R0
126656	JSR	PC,@#127456
126662	JSR	PC,@#130070
126666	BIC	#40000,20(R2)
126674	MOV	(SP)+,R5
126676	MOV	(SP)+,R1
126700	RTS	PC
126702	MOV	R1,-(SP)
126704	MOV	R3,-(SP)
126706	MOV	R4,-(SP)
126710	MOV	4(R2),-(SP)
126714	JSR	PC,@#126216
126720	JSR	PC,@#130762
126724	MOV	#1,R1
126730	MOV	R1,4(R2)
126734	MOV	26(R2),R3
126740	BIS	#340,@#-2
126746	MOV	@#172354,@#120010
126754	MOV	32(R2),@#172354
126762	MOVB	(R3)+,R4
126764	MOVB	(R3)+,R0
126766	MOV	@#120010,@#172354
126774	BIC	@#21520,@#-2
127002	CMPB	R4,#40
127006	BNE	127022
127010	CMPB	R0,R5
127012	BNE	127022
127014	BIT	#360,R0
127020	BEQ	127062
127022	CMP	R1,4(R2)
127026	BEQ	127040
127030	MOV	R0,-(SP)
127032	JSR	PC,@#131076
127036	MOV	(SP)+,R0
127040	CMPB	R0,R5
127042	BEQ	127050
127044	JSR	PC,@#127456
127050	MOV	R4,R0
127052	JSR	PC,@#131454
127056	INC	4(R2)
127062	INC	R1
127064	CMP	R1,10(R2)
127070	BLOS	126740
127072	,	CMP	2(R2),6(R2)
127100	BEQ	127132
127102	CMP	4(R2),#1
127110	BEQ	127122
127112	MOVB	#15,R0
127116	JSR	PC,@#131454
127122	MOVB	#12,R0
127126	JSR	PC,@#131454
127132	MOV	(SP)+,4(R2)
127136	MOV	(SP)+,R4
127140	MOV	(SP)+,R3
127142	MOV	(SP)+,R1
127144	RTS	PC
127146	BIT	#1,20(R2)
127154	BNE	127410
127156	JSR	PC,@#131432
127162	MOVB	#162,R0
127166	JSR	PC,@#131454
127172	JSR	PC,@#131432
127176	MOVB	#77,R0
127202	JSR	PC,@#131454
127206	MOVB	#66,R0
127212	JSR	PC,@#131454
127216	MOVB	#154,R0
127222	JSR	PC,@#131454
127226	JSR	PC,@#131432
127232	MOVB	#110,R0
127236	JSR	PC,@#131454
127242	JSR	PC,@#131432
127246	MOVB	#112,R0
127252	JSR	PC,@#131454
127256	JSR	PC,@#131432
127262	MOVB	#60,R0
127266	JSR	PC,@#131454
127272	MOVB	#155,R0
127276	JSR	PC,@#131454
127302	MOVB	#17,R0
127306	JSR	PC,@#131454
127312	JSR	PC,@#131420
127316	MOVB	#50,R0
127322	JSR	PC,@#131454
127326	MOVB	#102,R0
127332	JSR	PC,@#131454
127336	BIT	#2,20(R2)
127344	BEQ	127454
127346	JSR	PC,@#131420
127352	MOVB	#175,R0
127356	JSR	PC,@#131454
127362	JSR	PC,@#131420
127366	MOVB	#52,R0
127372	JSR	PC,@#131454
127376	MOVB	#102,R0
127402	JSR	PC,@#131454
127406	BR	127454
127410	JSR	PC,@#131420
127414	MOVB	#110,R0
127420	JSR	PC,@#131454
127424	JSR	PC,@#131420
127430	MOVB	#112,R0
127434	JSR	PC,@#131454
127440	JSR	PC,@#131420
127444	MOVB	#107,R0
127450	JSR	PC,@#131454
127454	RTS	PC
127456	MOV	R1,-(SP)
127460	MOV	R3,-(SP)
127462	MOV	R4,-(SP)
127464	MOV	R0,R1
127466	JSR	PC,@#127710
127472	BIT	#1,20(R2)
127500	BNE	127676
127502	MOV	R1,R3
127504	MOV	R5,R4
127506	BIC	#^C<200!100!40!20>,R3
127512	BIC	#^C<200!100!40!20>,R4
127516	CMP	R3,R4
127520	BEQ	127676
127522	JSR	PC,@#131432
127526	MOVB	#60,R0
127532	JSR	PC,@#131454
127536	BIT	#20,R1
127542	BEQ	127564
127544	MOVB	#73,R0
127550	JSR	PC,@#131454
127554	MOVB	#61,R0
127560	JSR	PC,@#131454
127564	BIT	#200,R1
127570	BEQ	127612
127572	MOVB	#73,R0
127576	JSR	PC,@#131454
127602	MOVB	#64,R0
127606	JSR	PC,@#131454
127612	BIT	#40,R1
127616	BEQ	127640
127620	MOVB	#73,R0
127624	JSR	PC,@#131454
127630	MOVB	#65,R0
127634	JSR	PC,@#131454
127640	BIT	#100,R1
127644	BEQ	127666
127646	MOVB	#73,R0
127652	JSR	PC,@#131454
127656	MOVB	#67,R0
127662	JSR	PC,@#131454
127666	MOVB	#155,R0
127672	JSR	PC,@#131454
127676	MOV	R1,R5
127700	MOV	(SP)+,R4
127702	MOV	(SP)+,R3
127704	MOV	(SP)+,R1
127706	RTS	PC
127710	MOV	R0,-(SP)
127712	MOV	R1,-(SP)
127714	MOV	R3,-(SP)
127716	MOV	R4,-(SP)
127720	MOV	R0,R1
127722	MOV	R1,R3
127724	BIC	#-4,R3
127730	MOV	R5,R4
127732	BIC	#-4,R4
127736	CMP	R3,R4
127740	BEQ	130050
127742	BIT	#1,20(R2)
127750	BNE	130034
127752	JSR	PC,@#131420
127756	MOVB	#50,R0
127762	JSR	PC,@#131454
127766	MOVB	130062(R3),R0
127772	JSR	PC,@#131454
127776	BIT	#2,20(R2)
130004	BEQ	130050
130006	JSR	PC,@#131420
130012	MOVB	#52,R0
130016	JSR	PC,@#131454
130022	MOVB	130062(R3),R0
130026	JSR	PC,@#131454
130032	BR	130050
130034	JSR	PC,@#131420
130040	MOVB	130066(R3),R0
130044	JSR	PC,@#131454
130050	MOV	(SP)+,R4
130052	MOV	(SP)+,R3
130054	MOV	(SP)+,R1
130056	MOV	(SP)+,R0
130060	RTS	PC

130062	.Ascii	"B<A0"
130066	.Ascii	"GF"

130070	MOV	R3,-(SP)
130072	BIT	#1,20(R2)
130100	BNE	130242
130102	MOVB	46(R2),R3
130106	CMPB	R3,#1
130112	BLOS	130120
130114	JSR	PC,@#131420
130120	MOVB	130266(R3),R0
130124	JSR	PC,@#131454
130130	BIT	#2,20(R2)
130136	BEQ	130160
130140	MOVB	47(R2),R3
130144	JSR	PC,@#131420
130150	MOVB	130272(R3),R0
130154	JSR	PC,@#131454
130160	MOV	#1,R3
130164	BIT	#2,20(R2)
130172	BEQ	130200
130174	MOV	#3,R3
130200	JSR	PC,@#131420
130204	MOVB	130276(R3),R0
130210	JSR	PC,@#131454
130214	MOV	R3,R0
130216	ADD	R2,R0
130220	MOVB	42(R0),R0
130224	MOVB	130062(R0),R0
130230	JSR	PC,@#131454
130234	DEC	R3
130236	BGE	130200
130240	BR	130262
130242	JSR	PC,@#131420
130246	MOVB	42(R2),R3
130252	MOVB	130066(R3),R0
130256	JSR	PC,@#131454
130262	MOV	(SP)+,R3
130264	RTS	PC
130266	.BYTE	17,16,'n,'o
130272	.Ascii	"?~}|"
130276	.Ascii	"()*+"

130302	BIT	#1,20(R2)
130310	BNE	130442
130312	CMP	14(R2),#1
130320	BNE	130332
130322	CMP	16(R2),6(R2)
130330	BEQ	130442
130332	JSR	PC,@#131432
130336	MOV	14(R2),R0
130342	JSR	PC,@#131474
130346	MOVB	#73,R0
130352	JSR	PC,@#131454
130356	MOV	16(R2),R0
130362	JSR	PC,@#131474
130366	MOVB	#162,R0
130372	JSR	PC,@#131454
130376	BIT	#100,20(R2)
130404	BEQ	130442
130406	JSR	PC,@#131432
130412	MOVB	#77,R0
130416	JSR	PC,@#131454
130422	MOVB	#66,R0
130426	JSR	PC,@#131454
130432	MOVB	#150,R0
130436	JSR	PC,@#131454
130442	RTS	PC
130444	MOV	R3,-(SP)
130446	MOV	R4,-(SP)
130450	MOV	20(R2),R3
130454	COM	R3
130456	MOV	#154,R4
130462	JSR	PC,@#130554
130466	JSR	PC,@#130616
130472	COM	R3
130474	MOV	#150,R4
130500	JSR	PC,@#130554
130504	JSR	PC,@#130616
130510	JSR	PC,@#131420
130514	BIT	#200,20(R2)
130522	BEQ	130536
130524	MOVB	#75,R0
130530	JSR	PC,@#131454
130534	BR	130546
130536	MOVB	#76,R0
130542	JSR	PC,@#131454
130546	MOV	(SP)+,R4
130550	MOV	(SP)+,R3
130552	RTS	PC
130554	BIT	#1,20(R2)
130562	BNE	130614
130564	BIT	#10,R3
130570	BEQ	130614
130572	JSR	PC,@#131432
130576	MOVB	#64,R0
130602	JSR	PC,@#131454
130606	MOVB	R4,R0
130610	JSR	PC,@#131454
130614	RTS	PC
130616	MOV	R1,-(SP)
130620	MOV	R5,-(SP)
130622	BIT	#1,20(R2)
130630	BNE	130732
130632	CLR	R5
130634	MOV	#130740,R1
130640	BIT	2(R1),R3
130644	BEQ	130710
130646	TST	R5
130650	BNE	130672
130652	JSR	PC,@#131432
130656	MOVB	#77,R0
130662	JSR	PC,@#131454
130666	INC	R5
130670	BR	130702
130672	MOVB	#73,R0
130676	JSR	PC,@#131454
130702	MOV	@R1,R0
130704	JSR	PC,@#131474
130710	ADD	#4,R1
130714	TST	@R1
130716	BNE	130640
130720	TST	R5
130722	BEQ	130732
130724	MOVB	R4,R0
130726	JSR	PC,@#131454
130732	MOV	(SP)+,R5
130734	MOV	(SP)+,R1
130736	RTS	PC

130740	.Word	1,20
	.Word	3,4
	.Word	5,40
	.Word	25.,400
	.Word	0

130762	MOV	R5,-(SP)
130764	MOV	R0,R5
130766	BIT	#3,R5
130772	BEQ	131040
130774	JSR	PC,@#131420
131000	MOVB	#43,R0
131004	JSR	PC,@#131454
131010	BIT	#2,R5
131014	BEQ	131030
131016	MOVB	#63,R0
131022	JSR	PC,@#131454
131026	BR	131040
131030	MOVB	#64,R0
131034	JSR	PC,@#131454
131040	BIT	#4,R5
131044	BEQ	131072
131046	JSR	PC,@#131420
131052	MOVB	#43,R0
131056	JSR	PC,@#131454
131062	MOVB	#66,R0
131066	JSR	PC,@#131454
131072	MOV	(SP)+,R5
131074	RTS	PC
131076	MOV	R3,-(SP)
131100	MOV	R1,R3
131102	SUB	4(R2),R3
131106	BLE	131234
131110	CMP	R3,#5
131114	BGT	131132
131116	MOVB	#40,R0
131122	JSR	PC,@#131454
131126	SOB	R3,131116
131130	BR	131234
131132	BIT	#1,20(R2)
131140	BNE	131166
131142	JSR	PC,@#131432
131146	MOV	R3,R0
131150	JSR	PC,@#131474
131154	MOVB	#103,R0
131160	JSR	PC,@#131454
131164	BR	131234
131166	JSR	PC,@#131420
131172	MOVB	#131,R0
131176	JSR	PC,@#131454
131202	MOV	2(R2),R0
131206	ADD	#37,R0
131212	MOVB	R0,R0
131214	JSR	PC,@#131454
131220	MOV	R1,R0
131222	ADD	#37,R0
131226	MOVB	R0,R0
131230	JSR	PC,@#131454
131234	MOV	R1,4(R2)
131240	MOV	(SP)+,R3
131242	RTS	PC
131244	BIT	#1,20(R2)
131252	BNE	131346
131254	JSR	PC,@#131432
131260	MOV	2(R2),R0
131264	BIT	#100,20(R2)
131272	BEQ	131310
131274	SUB	14(R2),R0
131300	INC	R0
131302	BGT	131310
131304	MOV	#1,R0
131310	JSR	PC,@#131474
131314	MOVB	#73,R0
131320	JSR	PC,@#131454
131324	MOV	4(R2),R0
131330	JSR	PC,@#131474
131334	MOVB	#110,R0
131340	JSR	PC,@#131454
131344	BR	131416
131346	JSR	PC,@#131420
131352	MOVB	#131,R0
131356	JSR	PC,@#131454
131362	MOV	2(R2),R0
131366	ADD	#37,R0
131372	MOVB	R0,R0
131374	JSR	PC,@#131454
131400	MOV	4(R2),R0
131404	ADD	#37,R0
131410	MOVB	R0,R0
131412	JSR	PC,@#131454
131416	RTS	PC
131420	MOVB	#33,R0
131424	JSR	PC,@#131454
131430	RTS	PC
131432	MOVB	#33,R0
131436	JSR	PC,@#131454
131442	MOVB	#133,R0
131446	JSR	PC,@#131454
131452	RTS	PC
131454	MOV	R1,-(SP)
131456	MOVB	0(R2),R1
131462	JSR	PC,@#20430
131466	BNE	131104
131470	MOV	(SP)+,R1
131472	RTS	PC
131474	MOV	R4,-(SP)
131476	MOV	R5,-(SP)
131500	MOV	R0,R5
131502	CLR	-(SP)
131504	CLR	R4
131506	DIV	#12,R4
131512	ADD	#60,R5
131516	MOV	R5,-(SP)
131520	MOV	R4,R5
131522	BNE	131504
131524	MOV	(SP)+,R0
131526	BEQ	131540
131530	MOVB	R0,R0
131532	JSR	PC,@#131454
131536	BR	131524
131540	MOV	(SP)+,R5
131542	MOV	(SP)+,R4
131544	RTS	PC
131546	MOVB	@#141472,R0
131552	CMP	R0,#6
131556	BEQ	131576
131560	BIT	#10,7436(R1)
131566	BEQ	131576
131570	CLR	R0
131572	JMP	@#35200
131576	ASL	R0
131600	CMP	R0,#16
131604	BCS	131614
131606	CLR	R0
131610	JMP	@#35200
131614	JMP	@131620(R0)
131620	.Word	131636,132350,132422,132534,132554,132574,132642

131636	MOVB	@#141474,R2
131642	JSR	PC,@#133212
131646	BCS	131654
131650	JSR	PC,@#133156
131654	MOV	@#120004,R2
131660	TSTB	0(R2)
131664	BEQ	131710
131666	ADD	#66,R2
131672	CMP	R2,@#120006
131676	BCS	131660
131700	MOV	#1,R0
131704	JMP	@#35200
131710	MOV	#33,R0
131714	MOV	R2,R3
131716	CLR	(R3)+
131720	SOB	R0,131716
131722	MOVB	R1,0(R2)
131726	MOVB	@#141474,1(R2)
131734	MOV	#400,20(R2)
131742	MOVB	@#141476,R0
131746	BIC	#-400,R0
131752	BNE	131760
131754	MOV	#120,R0
131760	CMP	R0,#204
131764	BLOS	131772
131766	MOV	#204,R0
131772	MOV	R0,10(R2)
131776	MOV	#30,6(R2)
132004	MOVB	@#141477,37(R2)
132012	MOV	#1,12(R2)
132020	MOV	#1,14(R2)
132026	MOV	6(R2),16(R2)
132034	BIT	#10,10530(R1)
132042	BEQ	132054
132044	BIS	#1,20(R2)
132052	BR	132114
132054	BIT	#14000,10530(R1)
132062	BEQ	132114
132064	BIS	#2,20(R2)
132072	MOVB	#1,44(R2)
132100	MOVB	#1,45(R2)
132106	MOVB	#2,47(R2)
132114	BIT	#1000,10120(R1)
132122	BEQ	132142
132124	BIT	#10000,10120(R1)
132132	BEQ	132142
132134	BIS	#200,20(R2)
132142	TSTB	@#141475
132146	BEQ	132156
132150	BIS	#100000,20(R2)
132156	TST	@#141500
132162	BEQ	132272
132164	MOV	R2,R3
132166	MOV	@#141500,R2
132172	MOV	R2,R1
132174	BIC	#-400,R2
132200	SWAB	R1
132202	BIC	#-400,R1
132206	ASL	R1
132210	BNE	132216
132212	MOVB	@#4470,R1
132216	JSR	PC,@#133212
132222	BCS	132270
132224	MOV	6(R2),6(R3)
132232	MOV	10(R2),10(R3)
132240	MOVB	37(R2),37(R3)
132246	MOV	20(R2),R0
132252	BIC	#177733,R0
132256	BIC	#44,20(R3)
132264	BIS	R0,20(R3)
132270	MOV	R3,R2
132272	JSR	PC,@#133256
132276	BCC	132314
132300	JSR	PC,@#133156
132304	MOV	#2,R0
132310	JMP	@#35200
132314	JSR	PC,@#125614
132320	MOV	#1,R0
132324	MOVB	R0,34(R2)
132330	MOVB	R0,35(R2)
132334	MOV	R0,4(R2)
132340	JSR	PC,@#126306
132344	JMP	@#32376
132350	MOV	@#141474,R2
132354	BNE	132370
132356	CLR	13370(R1)
132362	JSR	PC,@#127146
132366	BR	132416
132370	JSR	PC,@#133212
132374	BCC	132406
132376	MOV	#3,R0
132402	JMP	@#35200
132406	MOV	R2,13370(R1)
132412	JSR	PC,@#126470
132416	JMP	@#32376
132422	MOVB	@#141474,R2
132426	BEQ	132444
132430	CMPB	R2,#-1
132434	BNE	132506
132436	JSR	PC,@#133124
132442	BR	132530
132444	MOV	@#120004,R2
132450	CMPB	R1,0(R2)
132454	BNE	132472
132456	BIT	#100000,20(R2)
132464	BNE	132472
132466	JSR	PC,@#133156
132472	ADD	#66,R2
132476	CMP	R2,@#120006
132502	BCS	132450
132504	BR	132530
132506	JSR	PC,@#133212
132512	BCC	132524
132514	MOV	#3,R0
132520	JMP	@#35200
132524	JSR	PC,@#133156
132530	JMP	@#32376
132534	MOV	13370(R1),R2
132540	BEQ	132550
132542	BIS	#20000,20(R2)
132550	JMP	@#32376
132554	MOV	13370(R1),R2
132560	BEQ	132570
132562	BIC	#20000,20(R2)
132570	JMP	@#32376
132574	MOVB	@#141474,R2
132600	BEQ	132610
132602	JSR	PC,@#133212
132606	BCC	132620
132610	MOV	#3,R0
132614	JMP	@#35200
132620	JSR	PC,@#133762
132624	BCC	132636
132626	MOV	#4,R0
132632	JMP	@#35200
132636	JMP	@#32376
132642	MOV	@#141476,R0
132646	JSR	PC,@#36662
132652	ADD	@#141500,R0
132656	JSR	PC,@#36672
132662	MOVB	@#141475,R1
132666	ASL	R1
132670	BNE	132676
132672	MOVB	@#4470,R1
132676	CMPB	R1,@#4470
132702	BEQ	132724
132704	BIT	#200,@#143772
132712	BNE	132724
132714	MOV	#1,R0
132720	JMP	@#35200
132724	MOVB	@#141474,R2
132730	JSR	PC,@#133212
132734	BCC	132746
132736	MOV	#3,R0
132742	JMP	@#35200
132746	MOV	6(R2),R3
132752	MUL	10(R2),R3
132756	ASL	R3
132760	ADD	6(R2),R3
132764	INC	R3
132766	BIC	#1,R3
132772	MOV	R3,R0
132774	ADD	#6,R0
133000	CMP	R0,@#141500
133004	BLOS	133016
133006	MOV	#4,R0
133012	JMP	@#35200
133016	MOV	@#141476,R5
133022	MOV	12(R2),-(SP)
133026	MTPD	(R5)+
133030	MOV	6(R2),-(SP)
133034	MTPD	(R5)+
133036	MOV	10(R2),-(SP)
133042	MTPD	(R5)+
133044	ASR	R3
133046	MOV	#-40000,R4
133052	BIS	#340,@#-2
133060	MOV	@#172354,@#120010
133066	MOV	32(R2),@#172354
133074	MOV	(R4)+,R0
133076	MOV	@#120010,@#172354
133104	BIC	@#21520,@#-2
133112	MOV	R0,-(SP)
133114	MTPD	(R5)+
133116	SOB	R3,133052
133120	JMP	@#32376
133124	MOV	@#120004,R2
133130	CMPB	R1,0(R2)
133134	BNE	133142
133136	JSR	PC,@#133156
133142	ADD	#66,R2
133146	CMP	R2,@#120006
133152	BCS	133130
133154	RTS	PC
133156	MOVB	0(R2),R0
133162	CMP	R2,13370(R0)
133166	BNE	133174
133170	CLR	13370(R0)
133174	JSR	PC,@#133566
133200	CLRB	1(R2)
133204	CLRB	0(R2)
133210	RTS	PC
133212	MOV	R2,R0
133214	MOV	@#120004,R2
133220	CMPB	R0,1(R2)
133224	BNE	133234
133226	CMPB	R1,0(R2)
133232	BEQ	133252
133234	ADD	#66,R2
133240	CMP	R2,@#120006
133244	BCS	133220
133246	SEC
133250	BR	133254
133252	CLC
133254	RTS	PC
133256	MOV	R1,-(SP)
133260	MOV	R3,-(SP)
133262	MOV	R4,-(SP)
133264	MOV	R5,-(SP)
133266	MOV	SP,R5
133270	MOV	6(R2),R3
133274	MUL	10(R2),R3
133300	ASL	R3
133302	ADD	6(R2),R3
133306	ADD	#77,R3
133312	ASH	#-6,R3
133316	SUB	#12,SP
133322	MOV	SP,R4
133324	JSR	PC,@#133456
133330	MOV	R3,2(R4)
133334	MOV	#6000,4(R4)
133342	SUB	#4,SP
133346	MOV	SP,R1
133350	MOV	SP,R0
133352	MOV	#17000,@R0
133356	MOV	R4,2(R0)
133362	EMT	375	;.375	(R0)+
133364	BCS	133442
133366	MOV	0(R4),R3
133372	MOV	6(R3),30(R2)
133400	MOV	4(R3),32(R2)
133406	CLR	4(R4)
133412	MOV	R1,R0
133414	MOV	#17001,@R0
133420	EMT	375	;.375	(R0)+
133422	MOV	30(R2),R3
133426	BIS	#40,10(R3)
133434	INCB	16(R3)
133440	CLC
133442	MOV	R5,SP
133444	MOV	(SP)+,R5
133446	MOV	(SP)+,R4
133450	MOV	(SP)+,R3
133452	MOV	(SP)+,R1
133454	RTS	PC
133456	MOV	R1,-(SP)
133460	MOV	R3,-(SP)
133462	CLR	0(R4)
133466	CLR	4(R4)
133472	CLR	2(R4)
133476	MOV	@#120012,6(R4)
133504	MOVB	0(R2),R1
133510	ASR	R1
133512	CLR	R0
133514	DIV	#12,R0
133520	ADD	#36,R1
133524	MUL	#50,R1
133530	MOV	R1,R3
133532	MOV	R0,R1
133534	ADD	#36,R1
133540	MUL	#3100,R1
133544	ADD	R1,R3
133546	MOVB	1(R2),R1
133552	ADD	R1,R3
133554	MOV	R3,10(R4)
133560	MOV	(SP)+,R3
133562	MOV	(SP)+,R1
133564	RTS	PC
133566	MOV	R1,-(SP)
133570	MOV	R4,-(SP)
133572	MOV	R5,-(SP)
133574	MOV	SP,R5
133576	MOV	30(R2),R4
133602	BEQ	133700
133604	DECB	16(R4)
133610	BIC	#40,10(R4)
133616	SUB	#12,SP
133622	MOV	SP,R4
133624	JSR	PC,@#133456
133630	MOV	#4000,4(R4)
133636	SUB	#4,SP
133642	MOV	SP,R1
133644	MOV	SP,R0
133646	MOV	#17000,@R0
133652	MOV	R4,2(R0)
133656	EMT	375	;.375	(R0)+
133660	BCS	133700
133662	MOV	#4400,4(R4)
133670	MOV	R1,R0
133672	MOV	#17001,@R0
133676	EMT	375	;.375	(R0)+
133700	MOV	R5,SP
133702	MOV	(SP)+,R5
133704	MOV	(SP)+,R4
133706	MOV	(SP)+,R1
133710	RTS	PC
133712	MOV	R5,-(SP)
133714	MOV	@#5454,R5
133720	MUL	#66,R5
133724	ADD	#134122,R5
133730	CMP	R5,#137712
133734	BLOS	133742
133736	MOV	#137712,R5
133742	MOV	R5,@#120006
133746	CLR	-(R5)
133750	CMP	R5,@#120004
133754	BHI	133746
133756	MOV	(SP)+,R5
133760	RTS	PC
133762	MOV	R1,-(SP)
133764	MOV	R4,-(SP)
133766	MOV	R5,-(SP)
133770	MOV	#52,R1
133774	CMP	16340(R1),@#120012
134002	BNE	134014
134004	CMP	16412(R1),@#120014
134012	BEQ	134024
134014	SUB	#2,R1
134020	BGT	133774
134022	BR	134110
134024	MOV	14520(R1),R4
134030	BEQ	134110
134032	TST	@#17746
134036	BLE	134110
134040	JSR	PC,@#35556
134044	MOV	#26,R0
134050	MOV	R1,R5
134052	MOV	(R4)+,(R5)+
134054	SOB	R0,134052
134056	MOVB	0(R2),R0
134062	ASR	R0
134064	MOVB	R0,13(R1)
134070	MOVB	1(R2),12(R1)
134076	MOV	R1,R4
134100	JSR	PC,@#34532
134104	CLC
134106	BR	134112
134110	SEC
134112	MOV	(SP)+,R5
134114	MOV	(SP)+,R4
134116	MOV	(SP)+,R1
134120	RTS	PC

134122:
	.End
120004:				;--GBL--XX-
120006:				;--GBL--XX-
120010:				;--GBL--XX-
120012:				;--GBL--XX-
120014:				;--GBL--XX-
120016:				;--GBL--#X-
120076:				;--BR-
120122:				;--BR-
120144:				;--BR-
120150:				;--BR-
120164:				;--BR-
120166:				;--BR-
120176:				;--BR---XX-
120260:				;--BR-
120354:				;--BR-
120362:				;--BR---XX-
120400:				;--BR---XX-
120500:				;--#X---XX-
120502:				;--BR---XX-
120516:				;--BR-
120530:				;--BR-
120534:				;--BR-
120536:				;--BR-
120540:				;--BR---XX-
120564:				;--BR-
120572:				;--BR---XX-
120616:				;--#X-
120672:				;--BR-
120676:				;--BR-
120702:				;--#X-
120752:				;--BR-
120764:				;--BR-
120770:				;--#X-
121012:				;--BR-
121036:				;--#X-
121060:				;--BR---XX-
121130:				;--BR---XX-
121162:				;--BR-
121166:				;--BR---XX-
121226:				;--BR-
121246:				;--BR-
121252:				;--BR-
121256:				;--BR-
121262:				;--BR-
121302:				;--BR-
121306:				;--BR-
121322:				;--BR-
121324:				;--BR-
121346:				;--BR-
121364:				;--BR-
121404:				;--#X-
121512:				;--#X-
122050:				;--GBL--BR---XX-
122052:				;--BR-
122104:				;--BR-
122130:				;--BR-
122140:				;--BR-
122142:				;--BR-
122150:				;--BR-
122152:				;--BR-
122156:				;--BR-
122176:				;--BR-
122200:				;--GBL--XX-
122232:				;--BR-
122240:				;--BR---XX-
122262:				;--BR-
122276:				;--BR-
122320:				;--BR-
122340:				;--BR-
122356:				;--BR-
122400:				;--BR-
122406:				;--GBL--BR---#X---XX-
122434:				;--BR-
122442:				;--BR-
122446:				;--BR-
122462:				;--GBL--#X-
122502:				;--BR-
122510:				;--BR-
122514:				;--BR-
122516:				;--GBL--#X-
122530:				;--BR-
122546:				;--BR-
122554:				;--GBL--#X-
122566:				;--BR-
122602:				;--BR-
122610:				;--GBL--#X-
122622:				;--BR-
122652:				;--BR-
122664:				;--BR-
122702:				;--BR-
122714:				;--BR-
122722:				;--GBL--#X-
122746:				;--GBL--#X-
122774:				;--GBL--#X-
123040:				;--BR-
123066:				;--BR-
123102:				;--BR-
123106:				;--BR-
123126:				;--BR-
123140:				;--GBL--#X-
123204:				;--BR-
123230:				;--BR-
123244:				;--BR-
123250:				;--BR-
123266:				;--BR-
123300:				;--GBL--#X-
123306:				;--GBL--#X-
123344:				;--GBL--#X-
123364:				;--GBL--#X-
123374:				;--GBL--#X-
123402:				;--GBL--#X-
123412:				;--GBL--#X-
123422:				;--GBL--#X-
123430:				;--GBL--#X-
123440:				;--GBL--#X-
123506:				;--GBL--BR---XX-
123526:				;--GBL--BR---XX-
123536:				;--GBL--#X-
123574:				;--BR-
123634:				;--BR-
123642:				;--BR-
123676:				;--BR-
123726:				;--BR-
123732:				;--BR---XX-
123740:				;--BR-
123760:				;--BR-
123764:				;--BR-
123770:				;--#X-
124022:				;--GBL--#X-
124042:				;--GBL--#X-
124064:				;--GBL--#X-
124106:				;--GBL--#X-
124124:				;--GBL--#X-
124162:				;--BR-
124174:				;--BR-
124176:				;--BR-
124214:				;--BR-
124226:				;--BR-
124232:				;--#X-
124252:				;--BR-
124265:				;--#X-
124266:				;--GBL--BR---XX-
124322:				;--BR-
124330:				;--BR-
124332:				;--GBL--#X-
124350:				;--BR-
124364:				;--BR-
124376:				;--BR-
124400:				;--GBL--#X-
124416:				;--BR-
124432:				;--BR-
124444:				;--BR-
124462:				;--BR-
124502:				;--BR-
124514:				;--GBL--BR---XX-
124532:				;--BR-
124536:				;--BR-
124552:				;--GBL--BR---XX-
124626:				;--BR-
124632:				;--BR-
124652:				;--BR-
124672:				;--GBL--BR---XX-
124754:				;--BR-
124760:				;--BR-
125000:				;--BR-
125020:				;--BR---XX-
125074:				;--BR-
125102:				;--BR-
125106:				;--BR-
125112:				;--BR---XX-
125122:				;--BR-
125146:				;--BR-
125152:				;--GBL--BR---XX-
125164:				;--BR-
125236:				;--GBL--BR---XX-
125272:				;--BR-
125350:				;--GBL--BR---XX-
125362:				;--BR-
125434:				;--GBL--BR---XX-
125460:				;--BR-
125464:				;--BR-
125504:				;--BR-
125516:				;--GBL--BR---XX-
125532:				;--BR-
125550:				;--BR-
125570:				;--BR-
125600:				;--BR-
125614:				;--GBL--BR---XX-
125622:				;--BR-
125636:				;--GBL--BR---XX-
125662:				;--BR-
125752:				;--GBL--BR---XX-
126044:				;--BR-
126126:				;--GBL--BR---XX-
126146:				;--BR-
126216:				;--GBL--BR---XX-
126236:				;--BR-
126306:				;--GBL--BR---XX-
126326:				;--BR-
126422:				;--BR-
126456:				;--BR-
126470:				;--GBL--BR---XX-
126566:				;--BR-
126662:				;--BR-
126702:				;--BR---XX-
126740:				;--BR-
127022:				;--BR-
127040:				;--BR-
127050:				;--BR-
127062:				;--BR-
127122:				;--BR-
127132:				;--BR-
127146:				;--GBL--BR---XX-
127410:				;--BR-
127454:				;--BR-
127456:				;--GBL--BR---XX-
127564:				;--BR-
127612:				;--BR-
127640:				;--BR-
127666:				;--BR-
127676:				;--BR-
127710:				;--BR---XX-
130034:				;--BR-
130050:				;--BR-
130062:				;--XX-
130066:				;--XX-
130070:				;--GBL--BR---XX-
130076:				;--BR-
130120:				;--BR-
130160:				;--BR-
130200:				;--BR-
130242:				;--BR-
130262:				;--BR-
130266:				;--XX-
130272:				;--XX-
130276:				;--XX-
130302:				;--GBL--BR---XX-
130332:				;--BR-
130442:				;--BR-
130444:				;--GBL--BR---XX-
130536:				;--BR-
130546:				;--BR-
130554:				;--BR---XX-
130614:				;--BR-
130616:				;--BR---XX-
130640:				;--BR-
130672:				;--BR-
130702:				;--BR-
130710:				;--BR-
130732:				;--BR-
130740:				;--#X-
130762:				;--GBL--BR---XX-
131030:				;--BR-
131040:				;--BR-
131072:				;--BR-
131076:				;--GBL--BR---XX-
131104:				;--BR-
131116:				;--BR-
131132:				;--BR-
131166:				;--BR-
131234:				;--BR-
131244:				;--GBL--BR---XX-
131310:				;--BR-
131346:				;--BR-
131416:				;--BR-
131420:				;--GBL--BR---XX-
131432:				;--GBL--BR---XX-
131454:				;--GBL--BR---XX-
131474:				;--GBL--BR---XX-
131504:				;--BR-
131524:				;--BR-
131540:				;--BR-
131576:				;--BR-
131614:				;--BR-
131620:				;--BR---XX-
131654:				;--BR-
131660:				;--BR-
131710:				;--BR-
131716:				;--BR-
131760:				;--BR-
131772:				;--BR-
132054:				;--BR-
132114:				;--BR-
132142:				;--BR-
132156:				;--BR-
132216:				;--BR-
132270:				;--BR-
132272:				;--BR-
132314:				;--BR-
132370:				;--BR-
132406:				;--BR-
132416:				;--BR-
132444:				;--BR-
132450:				;--BR-
132472:				;--BR-
132506:				;--BR-
132524:				;--BR-
132530:				;--BR-
132550:				;--BR-
132570:				;--BR-
132610:				;--BR-
132620:				;--BR-
132636:				;--BR-
132642:				;--GBL--XX-
132676:				;--BR-
132724:				;--BR-
132746:				;--BR-
133016:				;--BR-
133052:				;--BR-
133124:				;--GBL--BR---XX-
133130:				;--BR-
133142:				;--BR-
133156:				;--GBL--BR---XX-
133174:				;--BR-
133212:				;--GBL--BR---XX-
133220:				;--BR-
133234:				;--BR-
133252:				;--BR-
133254:				;--BR-
133256:				;--GBL--BR---XX-
133442:				;--BR-
133456:				;--BR---XX-
133566:				;--BR---XX-
133700:				;--BR-
133742:				;--BR-
133746:				;--BR-
133762:				;--GBL--BR---XX-
133774:				;--BR-
134014:				;--BR-
134024:				;--BR-
134052:				;--BR-
134110:				;--BR-
134112:				;--BR-
134122:				;--GBL--#X---XX-
                         