; PROCEDURE VAR 2(SP):PALTYP (PLMOD)
001000	012776	000022	000002	MOV    	#000022, @000002(SP)	; 2(SP).CODE:=22
001006	016615	000002		MOV    	000002(SP), (R5)	; VAR00.A:=@2(SP).CODE
001012	011537	177530		MOV    	(R5), @#177530		; WCSR:=VAR00.W
001016	011666	000002		MOV    	(SP), 000002(SP)
001022	062706	000002		ADD    	#000002, SP
001026	000207			RETURN 	
====================================================================
; PROCEDURE VAR 2(SP):PALTYP (PLSAV)
001030	012776	000024	000002	MOV    	#000024, @000002(SP)	; 2(SP).CODE:=24
001036	016615	000002		MOV    	000002(SP), (R5)	; VAR00.A:=@2(SP).CODE
001042	011537	177530		MOV    	(R5), @#177530		; WCSR:=VAR00.W
001046	011666	000002		MOV    	(SP), 000002(SP)
001052	062706	000002		ADD    	#000002, SP
001056	000207			RETURN 	
====================================================================
FUNCTION 50(SP):INTEGER; VAR 46(SP):INTEGER; 44(SP),42(SP),40(SP):INTEGER; (ARCRE)
001060	162706	000024		SUB    	#000024, SP
; VAR 12(SP):RECORD
;             CODE:INTEGER;
;             ANUM:INTEGER;
;             LINS:INTEGER;
;             SLEN:INTEGER;
;             MODPAL:INTEGER;
;             END;
; 24(SP),26(SP),30(SP),32(SP),34(SP):INTEGER;
001064	004067	037272		JSR    	R0, 040362 ; $B74
001070	012766	000046	000012	MOV    	#000046, 000012(SP)	; 12(SP).CODE:=46
001076	016615	000046		MOV    	000046(SP), (R5)	; VAR00.A:=@46(SP)
001102	011566	000014		MOV    	(R5), 000014(SP)	; 12(SP).ANUM:=VAR00.W
001106	016666	000044	000016	MOV    	000044(SP), 000016(SP)	; 12(SP).LINS:=44(SP)
001114	016666	000042	000020	MOV    	000042(SP), 000020(SP)	; 12(SP).SLEN:=42(SP)
001122	016666	000040	000022	MOV    	000040(SP), 000022(SP)	; 12(SP).MODPAL:=40(SP)
001130	010600			MOV    	SP, R0
001132	062700	000012		ADD    	#000012, R0
001136	010015			MOV    	R0, (R5)		; VAR00.A:=@12(SP).CODE
001140	011537	177530		MOV    	(R5), @#177530		; WCSR:=VAR00.W
001144	016615	000014		MOV    	000014(SP), (R5)	; VAR00.W:=12(SP).ANUM
001150	016666	000014	000050	MOV    	000014(SP), 000050(SP)	; L01060:=12(SP).ANUM
001156	004067	037232		JSR    	R0, 040414 ; $B76
001162	016666	000024	000034	MOV    	000024(SP), 000034(SP)
001170	062706	000034		ADD    	#000034, SP
001174	000207			RETURN 	
====================================================================
; PROCEDURE VAR 26(SP):ARETYP (ARKILL)
001176	162706	000024		SUB    	#000024, SP
; VAR @SP:RECORD
;          CODE:INTEGER;
;          ANUM:INTEGER;
;          LENS:INTEGER;
;          SLEN:INTEGER;
;          MODPAL:INTEGER;
;         END;
; 12(SP),14(SP),16(SP),20(SP),22(SP):INTEGER;
001202	012716	000002		MOV    	#000002, (SP)		; @SP.CODE:=2
001206	017666	000026	000002	MOV    	@000026(SP), 000002(SP)	; @SP.ANUM:=26(SP).ANUM
001214	010615			MOV    	SP, (R5)		; VAR00.A:=@@SP.CODE
001216	011537	177530		MOV    	(R5), @#177530		; WCSR:=VAR00.A
001222	005076	000026		CLR    	@000026(SP)		; 26(SP):=0
001226	016666	000024	000026	MOV    	000024(SP), 000026(SP)
001234	062706	000026		ADD    	#000026, SP
001240	000207			RETURN 	
====================================================================
; PROCEDURE 46(SP),44(SP),42(SP),40(SP),36(SP),34(SP),32(SP),30(SP),26(SP):INTEGER (HBMOVE)
001242	162706	000024		SUB    	#000024, SP
; VAR @SP:RECORD
;          CODE:INTEGER;
;          AR1NUM:INTEGER;
;          AR1Y:INTEGER;
;          NY:INTEGER;
;          AR1X:INTEGER;
;          NX:INTEGER;
;          AR2NUM:INTEGER;
;          AR2Y:INTEGER;
;          AR2X:INTEGER;
;         END;
; 22(SP):INTEGER
001246	012716	000050		MOV    	#000050, (SP)		; @SP.CODE:=50
001252	016600	000044		MOV    	000044(SP), R0
001256	000300			SWAB   	R0
001260	042700	000377		BIC    	#000377, R0
001264	066600	000046		ADD    	000046(SP), R0
001270	010066	000002		MOV    	R0, 000002(SP)		; @SP.AR1NUM:=44(SP)*400+46(SP)
001274	016666	000042	000004	MOV    	000042(SP), 000004(SP)	; @SP.AR1Y:=42(SP)
001302	016666	000040	000006	MOV    	000040(SP), 000006(SP)	; @SP.NY:=40(SP)
001310	016666	000036	000010	MOV    	000036(SP), 000010(SP)	; @SP.AR1X:=36(SP)
001316	016666	000034	000012	MOV    	000034(SP), 000012(SP)	; @SP.NX:=34(SP)
001324	016666	000032	000014	MOV    	000032(SP), 000014(SP)	; @SP.AR2NUM:=32(SP)
001332	016666	000030	000016	MOV    	000030(SP), 000016(SP)	; @SP.AR2Y:=30(SP)
001340	016666	000026	000020	MOV    	000026(SP), 000020(SP)	; @SP.AR2X:=26(SP)
001346	010615			MOV    	SP, (R5)		; VAR00.A:=@@SP.CODE
001350	011537	177530		MOV    	(R5), @#177530		; WCSR:=VAR00.A
001354	016666	000024	000046	MOV    	000024(SP), 000046(SP)
001362	062706	000046		ADD    	#000046, SP
001366	000207			RETURN 	
====================================================================
; PROCEDURE VAR 2312(SP):ARETYP (ARGET)
001370	162706	002310		SUB    	#002310, SP
; VAR @SP: RECORD
;           CODE:INTEGER;
;           ANUM:INTEGER;
;           LINS:INTEGER;
;           SLEN:INTEGER;
;           TAS:ARRAY[1..300.,1..2]OF INTEGER;
;     END;
; 2270(SP),2272(SP),2274(SP),2276(SP),2300(SP),2302(SP),2304(SP),2306(SP):INTEGER
001374	005016			CLR    	(SP)			; @SP.CODE:=0
001376	017666	002312	000002	MOV    	@002312(SP), 000002(SP)	; @SP.ANUM:=2312(SP).ANUM
001404	016600	002312		MOV    	002312(SP), R0
001410	016066	000002	000004	MOV    	000002(R0), 000004(SP)	; @SP.LINS:=2312(SP).LINS
001416	016600	002312		MOV    	002312(SP), R0
001422	016066	000004	000006	MOV    	000004(R0), 000006(SP)	; @SP.SLEN:=2312(SP).SLEN
001430	012746	020000		MOV    	#020000, -(SP)
001434	016646	000010		MOV    	000010(SP), -(SP)
001440	004767	036104		CALL   	037550	; $B80
001444	012666	002270		MOV    	(SP)+, 002270(SP)	; 2270(SP):=20000 DIV @SP.SLEN
001450	016600	002312		MOV    	002312(SP), R0
001454	005760	000010		TST    	000010(R0)		; IF 2312(SP).AMMR=0
001460	001402			BEQ    	001466
001462	000167	000074		JMP    	001562
001466	016600	000004		MOV    	000004(SP), R0		; THEN
001472	066600	002270		ADD    	002270(SP), R0
001476	005300			DEC    	R0
001500	010046			MOV    	R0, -(SP)
001502	016646	002272		MOV    	002272(SP), -(SP)
001506	004767	036036		CALL   	037550	; $B80
001512	012666	002272		MOV    	(SP)+, 002272(SP)	; 2272(SP):=(@SP.LINS+2270(SP)-1) DIV 2270(SP)
001516	016600	002312		MOV    	002312(SP), R0
001522	016660	002272	000012	MOV    	002272(SP), 000012(R0)	; 2312(SP).NPAGE:=2272(SP)
001530	016637	002272	174200	MOV    	002272(SP), @#174200	; {$C
001536	000240			NOP    	
001540	010066	002274		MOV    	R0, 002274(SP)		; }
001544	016600	002312		MOV    	002312(SP), R0
001550	016660	002274	000010	MOV    	002274(SP), 000010(R0)	; 2312(SP).AMMR:=2274(SP)
001556	000167	000012		JMP    	001574
001562	016600	002312		MOV    	002312(SP), R0		; ELSE
001566	016066	000010	002274	MOV    	000010(R0), 002274(SP)	; 2274(SP):=2312(SP).AMMR ; END IF
001574	005066	002276		CLR    	002276(SP)		; 2276(SP):=0
001600	016600	002312		MOV    	002312(SP), R0
001604	016066	000006	002300	MOV    	000006(R0), 002300(SP)	; 2300(SP):=2312(SP).MODPAL
001612	010603			MOV    	SP, R3			; WITH @SP
001614	010600			MOV    	SP, R0
001616	062700	002302		ADD    	#002302, R0		; FOR 2302(SP):=1 TO (@SP).LINS
001622	010046			MOV    	R0, -(SP)
001624	012746	000001		MOV    	#000001, -(SP)
001630	016346	000004		MOV    	000004(R3), -(SP)
001634	016676	000002	000004	MOV    	000002(SP), @000004(SP)
001642	027616	000004		CMP    	@000004(SP), (SP)
001646	003402			BLE    	001654
001650	000167	000154		JMP    	002030
001654	016600	002310		MOV    	002310(SP), R0
001660	006300			ASL    	R0
001662	006300			ASL    	R0
001664	060300			ADD    	R3, R0
001666	016660	002304	000004	MOV    	002304(SP), 000004(R0)	; (@SP).TAS[2302(SP),1]:=2276(SP)
001674	016600	002310		MOV    	002310(SP), R0
001700	006300			ASL    	R0
001702	006300			ASL    	R0
001704	060300			ADD    	R3, R0
001706	016601	002302		MOV    	002302(SP), R1
001712	066601	002306		ADD    	002306(SP), R1
001716	010160	000006		MOV    	R1, 000006(R0)		; (@SP).TAS[2302(SP),2]:=2274(SP)+2300(SP)
001722	066366	000006	002304	ADD    	000006(R3), 002304(SP)	; 2276(SP):=2276(SP)+(@SP).SLEN
001730	026627	002304	010000	CMP    	002304(SP), #010000	; IF 2276(SP)>=10000
001736	002002			BGE    	001744
001740	000167	000014		JMP    	001760
001744	042766	170000	002304	BIC    	#170000, 002304(SP)	; THEN ; 2276(SP):=2276(SP) AND 7777
001752	062766	000020	002302	ADD    	#000020, 002302(SP)	; 2274(SP):=2274(SP)+20 ; END IF
001760	016646	002310		MOV    	002310(SP), -(SP)
001764	016646	002300		MOV    	002300(SP), -(SP)
001770	004767	035606		CALL   	037602	; $B82
001774	005726			TST    	(SP)+			; IF (2302(SP) MOD 2270(SP))=0
001776	001402			BEQ    	002004
002000	000167	000012		JMP    	002016
002004	005066	002304		CLR    	002304(SP)		; THEN ; 2276(SP):=0
002010	062766	000020	002302	ADD    	#000020, 002302(SP)	; 2274(SP):=2274(SP)+20 ; END IF
002016	005276	000004		INC    	@000004(SP)		; NEXT 2302(SP)
002022	102402			BVS    	002030
002024	000167	177612		JMP    	001642
002030	062706	000006		ADD    	#000006, SP		; END FOR 2302(SP)
002034	010315			MOV    	R3, (R5)		; VAR00.A:=@(@SP).CODE
002036	011537	177530		MOV    	(R5), @#177530		; WCSR:=VAR00.W
002042	016315	000002		MOV    	000002(R3), (R5)	; VAR00.W:=(@SP).ANUM
002046	016376	000002	002312	MOV    	000002(R3), @002312(SP)	; 2312(SP).ANUM:=(@SP).ANUM
002054	017646	002312		MOV    	@002312(SP), -(SP)
002060	005046			CLR    	-(SP)
002062	005046			CLR    	-(SP)
002064	016600	002320		MOV    	002320(SP), R0
002070	016046	000002		MOV    	000002(R0), -(SP)
002074	005046			CLR    	-(SP)
002076	016600	002324		MOV    	002324(SP), R0
002102	016046	000004		MOV    	000004(R0), -(SP)
002106	005046			CLR    	-(SP)
002110	005046			CLR    	-(SP)
002112	005046			CLR    	-(SP)
002114	004767	177122		CALL   	001242			; L01242(2312(SP).ANUM,0,0,2312(SP).LINS,0,2312(SP).SLEN,0,0,0)
002120	016666	002310	002312	MOV    	002310(SP), 002312(SP)
002126	062706	002312		ADD    	#002312, SP
002132	000207			RETURN 	
====================================================================
; PROCEDURE VAR 22(SP):ARETYP (ARFRE)
002134	162706	000020		SUB    	#000020, SP
; VAR @SP: RECORD
;           CODE:INTEGER;
;           ANUM:INTEGER;
;     END;
; 4(SP),6(SP),10(SP),12(SP),14(SP),16(SP):INTEGER
002140	010603			MOV    	SP, R3			; WITH @SP
002142	012713	000002		MOV    	#000002, (R3)		; (@SP).CODE:=2
002146	017663	000022	000002	MOV    	@000022(SP), 000002(R3)	; (@SP).ANUM:=22(SP).ANUM
002154	010315			MOV    	R3, (R5)		; VAR00.A:=@(@SP).CODE
002156	011537	177530		MOV    	(R5), @#177530		; WCSR:=VAR00.W
002162	016600	000022		MOV    	000022(SP), R0
002166	016066	000012	000006	MOV    	000012(R0), 000006(SP)	; 6(SP):=22(SP).NPAGE
002174	016600	000022		MOV    	000022(SP), R0
002200	016066	000010	000010	MOV    	000010(R0), 000010(SP)	; 10(SP):=22(SP).AMMR
002206	016600	000010		MOV    	000010(SP), R0		; {$C
002212	016637	000006	174202	MOV    	000006(SP), @#174202	; }
002220	005076	000022		CLR    	@000022(SP)		; 22(SP).ANUM:=0
002224	016600	000022		MOV    	000022(SP), R0
002230	005060	000010		CLR    	000010(R0)		; 22(SP).AMMR:=0
002234	016666	000020	000022	MOV    	000020(SP), 000022(SP)
002242	062706	000022		ADD    	#000022, SP
002246	000207			RETURN 	
====================================================================
; PROCEDURE VAR 2(SP):WINTYP (VWCRE)
002250	012776	000004	000002	MOV    	#000004, @000002(SP)	; 2(SP).CODE:=4
002256	016615	000002		MOV    	000002(SP), (R5)	; VAR00.A:=@2(SP).CODE
002262	011537	177530		MOV    	(R5), @#177530		; WCSR:=VAR00.W
002266	011666	000002		MOV    	(SP), 000002(SP)
002272	062706	000002		ADD    	#000002, SP
002276	000207			RETURN 	
====================================================================
; PROCEDURE VAR 2(SP):WINTYP (VWKILL)
002300	012776	000006	000002	MOV    	#000006, @000002(SP)	; 2(SP).CODE:=6
002306	016615	000002		MOV    	000002(SP), (R5)	; VAR00.A:=@2(SP).CODE
002312	011537	177530		MOV    	(R5), @#177530		; WCSR:=VAR00.W
002316	016600	000002		MOV    	000002(SP), R0
002322	005060	000002		CLR    	000002(R0)		; 2(SP).WNUM:=0
002326	011666	000002		MOV    	(SP), 000002(SP)
002332	062706	000002		ADD    	#000002, SP
002336	000207			RETURN 	
====================================================================
; PROCEDURE VAR 2(SP):WINTYP (VWTAKE)
002340	012776	000010	000002	MOV    	#000010, @000002(SP)	; 2(SP).CODE:=10
002346	016615	000002		MOV    	000002(SP), (R5)	; VAR00.A:=@2(SP).CODE
002352	011537	177530		MOV    	(R5), @#177530		; WCSR:=VAR00.W
002356	011666	000002		MOV    	(SP), 000002(SP)
002362	062706	000002		ADD    	#000002, SP
002366	000207			RETURN 	
====================================================================
; PROCEDURE VAR 2(SP):WINTYP (VWFORE)
002370	012776	000012	000002	MOV    	#000012, @000002(SP)	; 2(SP).CODE:=12
002376	016615	000002		MOV    	000002(SP), (R5)	; VAR00.A:=@2(SP).CODE
002402	011537	177530		MOV    	(R5), @#177530		; WCSR:=VAR00.W
002406	011666	000002		MOV    	(SP), 000002(SP)
002412	062706	000002		ADD    	#000002, SP
002416	000207			RETURN 	
====================================================================
; PROCEDURE 34(SP),32(SP),30(SP):INTEGER; VAR 26(SP):CHAR (WPRINT)
002420	162706	000024		SUB    	#000024, SP
; VAR @SP:RECORD
;          CODE:INTEGER;
;          ANUM:INTEGER;
;          Y0:INTEGER;
;          X0:INTEGER;
;          SADR:INTEGER;
;         END;
12(SP),14(SP),16(SP),20(SP),22(SP):INTEGER;
002424	012716	000044		MOV    	#000044, (SP)		; @SP.CODE:=44
002430	016666	000034	000002	MOV    	000034(SP), 000002(SP)	; @SP.ANUM:=34(SP)
002436	016666	000030	000004	MOV    	000030(SP), 000004(SP)	; @SP.Y0:=30(SP)
002444	016666	000032	000006	MOV    	000032(SP), 000006(SP)	; @SP.X0:=32(SP)
002452	016615	000026		MOV    	000026(SP), (R5)	; VAR00.AC:=@26(SP)
002456	011566	000010		MOV    	(R5), 000010(SP)	; @SP.SADR:=VAR00.W
002462	010615			MOV    	SP, (R5)		; VAR00.A:=@@SP.CODE
002464	011537	177530		MOV    	(R5), @#177530		; WCSR:=VAR00.W
002470	016666	000024	000034	MOV    	000024(SP), 000034(SP)
002476	062706	000034		ADD    	#000034, SP
002502	000207			RETURN 	
====================================================================
; PROCEDURE 6(SP):INTEGER; (DELAY)
002504	024646			CMP    	-(SP), -(SP)	; VAR @SP,2(SP):INTEGER
002506	010600			MOV    	SP, R0
002510	010046			MOV    	R0, -(SP)		; FOR @SP:=1 TO 6(SP)
002512	012746	000001		MOV    	#000001, -(SP)
002516	016646	000012		MOV    	000012(SP), -(SP)
002522	016676	000002	000004	MOV    	000002(SP), @000004(SP)
002530	027616	000004		CMP    	@000004(SP), (SP)
002534	003402			BLE    	002542
002536	000167	000026		JMP    	002570
002542	016600	000006		MOV    	000006(SP), R0
002546	062700	000010		ADD    	#000010, R0
002552	010066	000010		MOV    	R0, 000010(SP)		; 2(SP):=@SP+10
002556	005276	000004		INC    	@000004(SP)		; NEXT @SP
002562	102402			BVS    	002570
002564	000167	177740		JMP    	002530
002570	062706	000006		ADD    	#000006, SP		; END FOR @SP
002574	016666	000004	000006	MOV    	000004(SP), 000006(SP)
002602	062706	000006		ADD    	#000006, SP
002606	000207			RETURN 	
====================================================================
; PROCEDURE 4(SP):INTEGER; (LDELAY)
002610	005046			CLR    	-(SP)	; VAR @SP:INTEGER;
002612	010600			MOV    	SP, R0
002614	010046			MOV    	R0, -(SP)		; FOR @SP:=1 TO 4(SP)
002616	012746	000001		MOV    	#000001, -(SP)
002622	016646	000010		MOV    	000010(SP), -(SP)
002626	016676	000002	000004	MOV    	000002(SP), @000004(SP)
002634	027616	000004		CMP    	@000004(SP), (SP)
002640	003402			BLE    	002646
002642	000167	000022		JMP    	002670
002646	012746	051661		MOV    	#051661, -(SP)
002652	004767	177626		CALL   	002504			; L02504(51661)
002656	005276	000004		INC    	@000004(SP)		; NEXT @SP
002662	102402			BVS    	002670
002664	000167	177744		JMP    	002634
002670	062706	000006		ADD    	#000006, SP		; END FOR @SP
002674	016666	000002	000004	MOV    	000002(SP), 000004(SP)
002702	062706	000004		ADD    	#000004, SP
002706	000207			RETURN 	
====================================================================
; PROCEDURE 74(SP),72(SP),70(SP),66(SP),64(SP):INTEGER; 40(SP):ARRAY[1..24]OF CHAR (RWPRINT)
002710	162706	000036		SUB    	#000036, SP
; VAR @SP:ARRAY[1..31]OF CHAR; 32(SP),34(SP):INTEGER
002714	016600	000072		MOV    	000072(SP), R0
002720	100001			BPL    	002724
002722	005400			NEG    	R0
002724	010066	000032		MOV    	R0, 000032(SP)		; 32(SP):=ABS(72(SP))
002730	005766	000072		TST    	000072(SP)		; IF 72(SP)>0
002734	003002			BGT    	002742
002736	000167	000010		JMP    	002752
002742	112716	000006		MOVB   	#000006, (SP)		; THEN ; @SP[1]:=6
002746	000167	000004		JMP    	002756
002752	112716	000005		MOVB   	#000005, (SP)		; ELSE ; @SP[1]:=5 ; END IF
002756	112766	000007	000001	MOVB   	#000007, 000001(SP)	; @SP[2]:=7
002764	016600	000032		MOV    	000032(SP), R0
002770	006300			ASL    	R0
002772	006300			ASL    	R0
002774	006300			ASL    	R0
002776	006300			ASL    	R0
003000	110066	000002		MOVB   	R0, 000002(SP)		; @SP[3]:=CHR(32(SP)*20)
003004	010600			MOV    	SP, R0
003006	062700	000034		ADD    	#000034, R0		; FOR 34(SP):=1 TO 64(SP)
003012	010046			MOV    	R0, -(SP)
003014	012746	000001		MOV    	#000001, -(SP)
003020	016646	000070		MOV    	000070(SP), -(SP)
003024	016676	000002	000004	MOV    	000002(SP), @000004(SP)
003032	027616	000004		CMP    	@000004(SP), (SP)
003036	003402			BLE    	003044
003040	000167	000072		JMP    	003136
003044	010600			MOV    	SP, R0
003046	066600	000042		ADD    	000042(SP), R0
003052	116000	000045		MOVB   	000045(R0), R0
003056	010066	000040		MOV    	R0, 000040(SP)		; 32(SP):=ORD(40(SP)[34(SP)])
003062	026627	000040	000100	CMP    	000040(SP), #000100	; IF 32(SP)>=100
003070	002002			BGE    	003076
003072	000167	000006		JMP    	003104
003076	062766	000160	000040	ADD    	#000160, 000040(SP)	; THEN ; 32(SP):=32(SP)+160 ; END IF
003104	016600	000042		MOV    	000042(SP), R0
003110	062700	000003		ADD    	#000003, R0
003114	060600			ADD    	SP, R0
003116	116660	000040	000005	MOVB   	000040(SP), 000005(R0)	; @SP[34(SP)+3]:=CHR(32(SP))
003124	005276	000004		INC    	@000004(SP)		; NEXT 34(SP)
003130	102402			BVS    	003136
003132	000167	177674		JMP    	003032
003136	062706	000006		ADD    	#000006, SP		; END FOR 34(SP)
003142	016600	000064		MOV    	000064(SP), R0
003146	062700	000004		ADD    	#000004, R0
003152	060600			ADD    	SP, R0
003154	105060	177777		CLRB   	177777(R0)		; @SP[64(SP)+4]:=CHR(0)
003160	016646	000074		MOV    	000074(SP), -(SP)
003164	016646	000072		MOV    	000072(SP), -(SP)
003170	016646	000072		MOV    	000072(SP), -(SP)
003174	010600			MOV    	SP, R0
003176	062700	000006		ADD    	#000006, R0
003202	010046			MOV    	R0, -(SP)
003204	004767	177210		CALL   	002420			; L02420(74(SP),70(SP),66(SP),@SP[1])
003210	016666	000036	000074	MOV    	000036(SP), 000074(SP)
003216	062706	000074		ADD    	#000074, SP
003222	000207			RETURN 	
====================================================================
; PROCEDURE VAR 12(SP):WINTYP; 10(SP):INTEGER (WHMOVE)
003224	162706	000006		SUB    	#000006, SP ; VAR @SP,2(SP),4(SP):INTEGER
003230	016600	000010		MOV    	000010(SP), R0
003234	100001			BPL    	003240
003236	005400			NEG    	R0
003240	010066	000004		MOV    	R0, 000004(SP)		; 4(SP):=ABS(10(SP))
003244	016646	000004		MOV    	000004(SP), -(SP)
003250	016646	000012		MOV    	000012(SP), -(SP)
003254	004767	034270		CALL   	037550	; $B80
003260	012666	000002		MOV    	(SP)+, 000002(SP)	; 2(SP):=4(SP) DIV 10(SP)
003264	010600			MOV    	SP, R0
003266	010046			MOV    	R0, -(SP)		; FOR @SP:=1 TO 4(SP)
003270	012746	000001		MOV    	#000001, -(SP)
003274	016646	000010		MOV    	000010(SP), -(SP)
003300	016676	000002	000004	MOV    	000002(SP), @000004(SP)
003306	027616	000004		CMP    	@000004(SP), (SP)
003312	003402			BLE    	003320
003314	000167	000072		JMP    	003412
003320	016600	000020		MOV    	000020(SP), R0
003324	016601	000020		MOV    	000020(SP), R1
003330	016101	000016		MOV    	000016(R1), R1
003334	066601	000010		ADD    	000010(SP), R1
003340	010160	000016		MOV    	R1, 000016(R0)		; 12(SP).SX1:=12(SP).SX1+2(SP)
003344	016600	000020		MOV    	000020(SP), R0
003350	016601	000020		MOV    	000020(SP), R1
003354	016101	000020		MOV    	000020(R1), R1
003360	066601	000010		ADD    	000010(SP), R1
003364	010160	000020		MOV    	R1, 000020(R0)		; 12(SP).SX2:=12(SP).SX2+2(SP)
003370	016646	000020		MOV    	000020(SP), -(SP)
003374	004767	176650		CALL   	002250			; L02250(12(SP))
003400	005276	000004		INC    	@000004(SP)		; NEXT @SP
003404	102402			BVS    	003412
003406	000167	177674		JMP    	003306
003412	062706	000006		ADD    	#000006, SP		; END FOR @SP
003416	016666	000006	000012	MOV    	000006(SP), 000012(SP)
003424	062706	000012		ADD    	#000012, SP
003430	000207			RETURN 	
====================================================================
; PROCEDURE VAR 12(SP):WINTYP; 10(SP):INTEGER; (WVMOVE)
003432	162706	000006		SUB    	#000006, SP ; VAR @SP,2(SP),4(SP):INTEGER;
003436	016600	000010		MOV    	000010(SP), R0
003442	005700			TST    	R0
003444	100001			BPL    	003450
003446	005300			DEC    	R0
003450	006200			ASR    	R0
003452	006200			ASR    	R0
003454	006200			ASR    	R0
003456	100001			BPL    	003462
003460	005200			INC    	R0
003462	010016			MOV    	R0, (SP)		; @SP:=10(SP) DIV 10
003464	011600			MOV    	(SP), R0
003466	100001			BPL    	003472
003470	005400			NEG    	R0
003472	010066	000004		MOV    	R0, 000004(SP)		; 4(SP):=ABS(@SP)
003476	016646	000010		MOV    	000010(SP), -(SP)
003502	016646	000006		MOV    	000006(SP), -(SP)
003506	004767	034036		CALL   	037550	; $B80
003512	012666	000002		MOV    	(SP)+, 000002(SP)	; 2(SP):=10(SP) DIV 4(SP)
003516	010600			MOV    	SP, R0
003520	010046			MOV    	R0, -(SP)		; FOR @SP:=1 TO 4(SP)
003522	012746	000001		MOV    	#000001, -(SP)
003526	016646	000010		MOV    	000010(SP), -(SP)
003532	016676	000002	000004	MOV    	000002(SP), @000004(SP)
003540	027616	000004		CMP    	@000004(SP), (SP)
003544	003402			BLE    	003552
003546	000167	000072		JMP    	003644
003552	016600	000020		MOV    	000020(SP), R0
003556	016601	000020		MOV    	000020(SP), R1
003562	016101	000012		MOV    	000012(R1), R1
003566	066601	000010		ADD    	000010(SP), R1
003572	010160	000012		MOV    	R1, 000012(R0)		; 12(SP).SY1:=12(SP).SY1+2(SP)
003576	016600	000020		MOV    	000020(SP), R0
003602	016601	000020		MOV    	000020(SP), R1
003606	016101	000014		MOV    	000014(R1), R1
003612	066601	000010		ADD    	000010(SP), R1
003616	010160	000014		MOV    	R1, 000014(R0)		; 12(SP).SY2:=12(SP).SY2+2(SP)
003622	016646	000020		MOV    	000020(SP), -(SP)
003626	004767	176416		CALL   	002250			; L02250(12(SP))
003632	005276	000004		INC    	@000004(SP)		; NEXT @SP
003636	102402			BVS    	003644
003640	000167	177674		JMP    	003540
003644	062706	000006		ADD    	#000006, SP		; END FOR @SP
003650	016666	000006	000012	MOV    	000006(SP), 000012(SP)
003656	062706	000012		ADD    	#000012, SP
003662	000207			RETURN 	
====================================================================
; PROCEDURE (TXAREA)
003664	162706	000024		SUB    	#000024, SP	; VAR @SP:PALTYP
003670	005065	000102		CLR    	000102(R5)		; VAR102.ANUM:=0
003674	012765	000240	000104	MOV    	#000240, 000104(R5)	; VAR102.LINS:=240
003702	012765	000240	000106	MOV    	#000240, 000106(R5)	; VAR102.SLEN:=240
003710	012765	000002	000110	MOV    	#000002, 000110(R5)	; VAR102.MODPAL:=2
003716	005065	000112		CLR    	000112(R5)		; VAR102.AMMR:=0
003722	010500			MOV    	R5, R0
003724	062700	000102		ADD    	#000102, R0
003730	010046			MOV    	R0, -(SP)
003732	004767	175432		CALL   	001370			; L01370(VAR102)
003736	010603			MOV    	SP, R3			; WITH @SP
003740	016563	000110	000002	MOV    	000110(R5), 000002(R3)	; (@SP).MODPAL:=VAR102.MODPAL
003746	112763	000216	000004	MOVB   	#000216, 000004(R3)	; (@SP).C[0]:=216
003754	112763	000034	000005	MOVB   	#000034, 000005(R3)	; (@SP).C[1]:=34
003762	112763	000374	000006	MOVB   	#000374, 000006(R3)	; (@SP).C[2]:=374
003770	112763	000334	000007	MOVB   	#000334, 000007(R3)	; (@SP).C[3]:=334
003776	112763	000156	000010	MOVB   	#000156, 000010(R3)	; (@SP).C[4]:=156
004004	112763	000377	000011	MOVB   	#000377, 000011(R3)	; (@SP).C[5]:=377
004012	112763	000266	000012	MOVB   	#000266, 000012(R3)	; (@SP).C[6]:=266
004020	105063	000013		CLRB   	000013(R3)		; (@SP).C[7]:=0
004024	112763	000034	000014	MOVB   	#000034, 000014(R3)	; (@SP).C[8]:=34
004032	112763	000376	000015	MOVB   	#000376, 000015(R3)	; (@SP).C[9]:=376
004040	112763	000151	000016	MOVB   	#000151, 000016(R3)	; (@SP).C[10]:=151
004046	112763	000236	000017	MOVB   	#000236, 000017(R3)	; (@SP).C[11]:=236
004054	112763	000172	000020	MOVB   	#000172, 000020(R3)	; (@SP).C[12]:=172
004062	112763	000374	000021	MOVB   	#000374, 000021(R3)	; (@SP).C[13]:=374
004070	112763	000374	000022	MOVB   	#000374, 000022(R3)	; (@SP).C[14]:=374
004076	105063	000023		CLRB   	000023(R3)		; (@SP).C[15]:=0
004102	010600			MOV    	SP, R0
004104	010046			MOV    	R0, -(SP)
004106	004767	174666		CALL   	001000			; L01000(@SP)
004112	062706	000024		ADD    	#000024, SP
004116	000207			RETURN 	
====================================================================
; PROCEDURE (BGAREA)
004120	162706	002310		SUB    	#002310, SP
; VAR @SP:RECORD
;          CODE:INTEGER;
;          ANUM:INTEGER;
;          LINS:INTEGER;
;          SLEN:INTEGER;
;          TAS:ARRAY[1..300.,1..2]OF INTEGER;
;         END;
; 2270(SP),2272(SP),2274(SP),2276(SP),2300(SP),2302(SP),2304(SP),2306(SP):INTEGER;
004124	012765	000454	000070	MOV    	#000454, 000070(R5)	; VAR66.LINS:=454
004132	012765	000064	000072	MOV    	#000064, 000072(R5)	; VAR66.SLEN:=64
004140	012765	140001	000074	MOV    	#140001, 000074(R5)	; VAR66.MODPAL:=140001
004146	005016			CLR    	(SP)			; @SP.CODE:=0
004150	005066	000002		CLR    	000002(SP)		; @SP.ANUM:=0
004154	012766	000454	000004	MOV    	#000454, 000004(SP)	; @SP.LINS:=454
004162	012766	000064	000006	MOV    	#000064, 000006(SP)	; @SP.SLEN:=64
004170	010500			MOV    	R5, R0			; {$C
004172	062700	000002		ADD    	#000002, R0
004176	010066	002276		MOV    	R0, 002276(SP)
004202	072027	177763		ASH    	#177763, R0
004206	006300			ASL    	R0
004210	016066	161220	002274	MOV    	161220(R0), 002274(SP)	; }
004216	066566	000074	002274	ADD    	000074(R5), 002274(SP)	; 2274(SP):=2274(SP)+VAR66.MODPAL
004224	010603			MOV    	SP, R3			; WITH @SP
004226	010600			MOV    	SP, R0
004230	062700	002302		ADD    	#002302, R0		; FOR 2302(SP):=1 TO (@SP).LINS
004234	010046			MOV    	R0, -(SP)
004236	012746	000001		MOV    	#000001, -(SP)
004242	016346	000004		MOV    	000004(R3), -(SP)
004246	016676	000002	000004	MOV    	000002(SP), @000004(SP)
004254	027616	000004		CMP    	@000004(SP), (SP)
004260	003402			BLE    	004266
004262	000167	000052		JMP    	004340
004266	016600	002310		MOV    	002310(SP), R0
004272	006300			ASL    	R0
004274	006300			ASL    	R0
004276	060300			ADD    	R3, R0
004300	016660	002304	000004	MOV    	002304(SP), 000004(R0)	; (@SP).TAS[2302(SP),1]:=2276(SP)
004306	016600	002310		MOV    	002310(SP), R0
004312	006300			ASL    	R0
004314	006300			ASL    	R0
004316	060300			ADD    	R3, R0
004320	016660	002302	000006	MOV    	002302(SP), 000006(R0)	; (@SP).TAS[2302(SP),2]:=2274(SP)
004326	005276	000004		INC    	@000004(SP)		; NEXT 2302(SP)
004332	102402			BVS    	004340
004334	000167	177714		JMP    	004254
004340	062706	000006		ADD    	#000006, SP		; END FOR 2302(SP)
004344	010315			MOV    	R3, (R5)		; VAR00.A:=@(@SP).CODE
004346	011537	177530		MOV    	(R5), @#177530		; WCSR:=VAR00.W
004352	016315	000002		MOV    	000002(R3), (R5)	; VAR00.W:=(@SP).ANUM
004356	016365	000002	000066	MOV    	000002(R3), 000066(R5)	; VAR66.ANUM:=(@SP).ANUM
004364	010503			MOV    	R5, R3
004366	062703	000242		ADD    	#000242, R3		; WITH VAR242
004372	016563	000066	000004	MOV    	000066(R5), 000004(R3)	; (VAR242).AREA:=VAR66.ANUM
004400	005063	000002		CLR    	000002(R3)		; (VAR242).WNUM:=0
004404	005063	000022		CLR    	000022(R3)		; (VAR242).DEN:=0
004410	005063	000006		CLR    	000006(R3)		; (VAR242).ARY:=0
004414	005063	000010		CLR    	000010(R3)		; (VAR242).ARX:=0
004420	062706	002310		ADD    	#002310, SP
004424	000207			RETURN 	
====================================================================
; PROCEDURE VAR 6(SP),4(SP):WINTYP; 2(SP):INTEGER (BGCRE)
004426	016603	000004		MOV    	000004(SP), R3		; WITH 4(SP)
004432	016563	000066	000004	MOV    	000066(R5), 000004(R3)	; (4(SP)).AREA:=VAR66.ANUM
004440	016600	000006		MOV    	000006(SP), R0
004444	016646	000002		MOV    	000002(SP), -(SP)
004450	012746	000014		MOV    	#000014, -(SP)
004454	004767	033042		CALL   	037522	; $B78
004460	016000	000012		MOV    	000012(R0), R0
004464	062600			ADD    	(SP)+, R0
004466	010063	000012		MOV    	R0, 000012(R3)		; (4(SP)).SY1:=6(SP).SY1+2(SP)*12
004472	016600	000006		MOV    	000006(SP), R0
004476	016646	000002		MOV    	000002(SP), -(SP)
004502	012746	000014		MOV    	#000014, -(SP)
004506	004767	033010		CALL   	037522	; $B78
004512	016000	000014		MOV    	000014(R0), R0
004516	062600			ADD    	(SP)+, R0
004520	010063	000014		MOV    	R0, 000014(R3)		; (4(SP)).SY2:=6(SP).SY2+2(SP)*12
004524	016600	000006		MOV    	000006(SP), R0
004530	016000	000016		MOV    	000016(R0), R0
004534	066600	000002		ADD    	000002(SP), R0
004540	010063	000016		MOV    	R0, 000016(R3)		; (4(SP)).SX1:=6(SP).SX1+2(SP)
004544	016600	000006		MOV    	000006(SP), R0
004550	016000	000020		MOV    	000020(R0), R0
004554	066600	000002		ADD    	000002(SP), R0
004560	010063	000020		MOV    	R0, 000020(R3)		; (4(SP)).SX2:=6(SP).SX2+2(SP)
004564	005063	000022		CLR    	000022(R3)		; (4(SP)).DEN:=0
004570	005063	000010		CLR    	000010(R3)		; (4(SP)).ARX:=0
004574	005063	000006		CLR    	000006(R3)		; (4(SP)).ARY:=0
004600	016646	000004		MOV    	000004(SP), -(SP)
004604	004767	175440		CALL   	002250			; L02250(4(SP))
004610	011666	000006		MOV    	(SP), 000006(SP)
004614	062706	000006		ADD    	#000006, SP
004620	000207			RETURN 	
====================================================================
; PROCEDURE 30(SP):INTEGER (HIDEVT)
004622	162706	000026		SUB    	#000026, SP	; VAR @SP:PALTYP; 24(SP):INTEGER
004626	010600			MOV    	SP, R0
004630	062700	000024		ADD    	#000024, R0		; FOR 24(SP):=0 TO 17
004634	010046			MOV    	R0, -(SP)
004636	005046			CLR    	-(SP)
004640	012746	000017		MOV    	#000017, -(SP)
004644	016676	000002	000004	MOV    	000002(SP), @000004(SP)
004652	027616	000004		CMP    	@000004(SP), (SP)
004656	003402			BLE    	004664
004660	000167	000026		JMP    	004712
004664	010600			MOV    	SP, R0
004666	066600	000032		ADD    	000032(SP), R0
004672	116660	000036	000012	MOVB   	000036(SP), 000012(R0)	; @SP.C[24(SP)]:=CHR(30(SP))
004700	005276	000004		INC    	@000004(SP)		; NEXT 24(SP)
004704	102402			BVS    	004712
004706	000167	177740		JMP    	004652
004712	062706	000006		ADD    	#000006, SP		; END FOR 24(SP)
004716	005066	000002		CLR    	000002(SP)		; @SP.MODPAL:=0
004722	010600			MOV    	SP, R0
004724	010046			MOV    	R0, -(SP)
004726	004767	174046		CALL   	001000			; L01000(@SP)
004732	012766	040000	000002	MOV    	#040000, 000002(SP)	; @SP.MODPAL:=40000
004740	010600			MOV    	SP, R0
004742	010046			MOV    	R0, -(SP)
004744	004767	174030		CALL   	001000			; L01000(@SP)
004750	016666	000026	000030	MOV    	000026(SP), 000030(SP)
004756	062706	000030		ADD    	#000030, SP
004762	000207			RETURN 	
====================================================================
; PROCEDURE 26(SP):INTEGER (SHOWVT)
004764	162706	000024		SUB    	#000024, SP	; VAR @SP:PALTYP
004770	010603			MOV    	SP, R3			; WITH @SP
004772	116663	000026	000004	MOVB   	000026(SP), 000004(R3)	; (@SP).C[0]:=CHR(26(SP))
005000	116663	000026	000013	MOVB   	000026(SP), 000013(R3)	; (@SP).C[7]:=CHR(26(SP))
005006	116663	000026	000017	MOVB   	000026(SP), 000017(R3)	; (@SP).C[13]:=CHR(26(SP))
005014	116663	000026	000021	MOVB   	000026(SP), 000021(R3)	; (@SP).C[15]:=CHR(26(SP))
005022	116663	000026	000022	MOVB   	000026(SP), 000022(R3)	; (@SP).C[16]:=CHR(26(SP))
005030	112763	000376	000023	MOVB   	#000376, 000023(R3)	; (@SP).C[17]:=CHR(376)
005036	012763	040000	000002	MOV    	#040000, 000002(R3)	; (@SP).MODPAL:=40000
005044	010600			MOV    	SP, R0
005046	010046			MOV    	R0, -(SP)
005050	004767	173724		CALL   	001000			; L01000(@SP)
005054	016666	000024	000026	MOV    	000024(SP), 000026(SP)
005062	062706	000026		ADD    	#000026, SP
005066	000207			RETURN 	
====================================================================
; PROCEDURE (CLEARTX)
005070	012700	005172		MOV    	#005172, R0
005074	010501			MOV    	R5, R1
005076	062701	000526		ADD    	#000526, R1
005102	012702	000012		MOV    	#000012, R2
005106	012021			MOV    	(R0)+, (R1)+		; VAR526:='                    '
005110	005302			DEC    	R2
005112	001375			BNE    	005106
005114	010500			MOV    	R5, R0
005116	062700	000526		ADD    	#000526, R0
005122	010501			MOV    	R5, R1
005124	062701	000552		ADD    	#000552, R1
005130	012702	000012		MOV    	#000012, R2
005134	012021			MOV    	(R0)+, (R1)+		; VAR552:=VAR526
005136	005302			DEC    	R2
005140	001375			BNE    	005134
005142	010500			MOV    	R5, R0
005144	062700	000526		ADD    	#000526, R0
005150	010501			MOV    	R5, R1
005152	062701	000576		ADD    	#000576, R1
005156	012702	000012		MOV    	#000012, R2
005162	012021			MOV    	(R0)+, (R1)+		; VAR576:=VAR526
005164	005302			DEC    	R2
005166	001375			BNE    	005162
005170	000207			RETURN 	
--------------------------------------------------------------------
005172	020040	020040	020040	.ASCIZ	/                    /
	020040	020040	020040	.EVEN
	020040	020040	020040
	020040	000000
====================================================================
; PROCEDURE (OPENTX)
005220	162706	000026		SUB    	#000026, SP	; VAR @SP:INTEGER; 2(SP):PALTYP
005224	016546	000102		MOV    	000102(R5), -(SP)
005230	005046			CLR    	-(SP)
005232	005046			CLR    	-(SP)
005234	012746	000144		MOV    	#000144, -(SP)
005240	005046			CLR    	-(SP)
005242	012746	000144		MOV    	#000144, -(SP)
005246	005046			CLR    	-(SP)
005250	005046			CLR    	-(SP)
005252	005046			CLR    	-(SP)
005254	004767	173762		CALL   	001242			; L01242(VAR102.ANUM,0,0,144,0,144,0,0,0)
005260	016566	000110	000004	MOV    	000110(R5), 000004(SP)	; 2(SP).MODPAL:=VAR102.MODPAL
005266	010600			MOV    	SP, R0
005270	062700	000002		ADD    	#000002, R0
005274	010046			MOV    	R0, -(SP)
005276	004767	173526		CALL   	001030			; L01030(2(SP))
005302	112766	000142	000006	MOVB   	#000142, 000006(SP)	; 2(SP).C[0]:=CHR(142)
005310	010600			MOV    	SP, R0
005312	062700	000002		ADD    	#000002, R0
005316	010046			MOV    	R0, -(SP)
005320	004767	173454		CALL   	001000			; L01000(2(SP))
005324	016546	000102		MOV    	000102(R5), -(SP)
005330	012746	000007		MOV    	#000007, -(SP)
005334	012746	000005		MOV    	#000005, -(SP)
005340	012746	000014		MOV    	#000014, -(SP)
005344	012746	000024		MOV    	#000024, -(SP)
005350	162706	000024		SUB    	#000024, SP
005354	010500			MOV    	R5, R0
005356	062700	000526		ADD    	#000526, R0
005362	010601			MOV    	SP, R1
005364	012702	000012		MOV    	#000012, R2
005370	012021			MOV    	(R0)+, (R1)+
005372	005302			DEC    	R2
005374	001375			BNE    	005370
005376	004767	175306		CALL   	002710			; L02710(VAR102.ANUM,7,5,14,24,VAR526)
005402	016546	000102		MOV    	000102(R5), -(SP)
005406	012746	177776		MOV    	#177776, -(SP)
005412	012746	000004		MOV    	#000004, -(SP)
005416	012746	000012		MOV    	#000012, -(SP)
005422	012746	000024		MOV    	#000024, -(SP)
005426	162706	000024		SUB    	#000024, SP
005432	010500			MOV    	R5, R0
005434	062700	000526		ADD    	#000526, R0
005440	010601			MOV    	SP, R1
005442	012702	000012		MOV    	#000012, R2
005446	012021			MOV    	(R0)+, (R1)+
005450	005302			DEC    	R2
005452	001375			BNE    	005446
005454	004767	175230		CALL   	002710			; L02710(VAR102.ANUM,-2,4,12,24,VAR526)
005460	016546	000102		MOV    	000102(R5), -(SP)
005464	012746	000007		MOV    	#000007, -(SP)
005470	012746	000005		MOV    	#000005, -(SP)
005474	012746	000040		MOV    	#000040, -(SP)
005500	012746	000024		MOV    	#000024, -(SP)
005504	162706	000024		SUB    	#000024, SP
005510	010500			MOV    	R5, R0
005512	062700	000552		ADD    	#000552, R0
005516	010601			MOV    	SP, R1
005520	012702	000012		MOV    	#000012, R2
005524	012021			MOV    	(R0)+, (R1)+
005526	005302			DEC    	R2
005530	001375			BNE    	005524
005532	004767	175152		CALL   	002710			; L02710(VAR102.ANUM,7,5,40,24,VAR552)
005536	016546	000102		MOV    	000102(R5), -(SP)
005542	012746	177776		MOV    	#177776, -(SP)
005546	012746	000004		MOV    	#000004, -(SP)
005552	012746	000036		MOV    	#000036, -(SP)
005556	012746	000024		MOV    	#000024, -(SP)
005562	162706	000024		SUB    	#000024, SP
005566	010500			MOV    	R5, R0
005570	062700	000552		ADD    	#000552, R0
005574	010601			MOV    	SP, R1
005576	012702	000012		MOV    	#000012, R2
005602	012021			MOV    	(R0)+, (R1)+
005604	005302			DEC    	R2
005606	001375			BNE    	005602
005610	004767	175074		CALL   	002710			; L02710(VAR102.ANUM,-2,4,36,24,VAR552)
005614	016546	000102		MOV    	000102(R5), -(SP)
005620	012746	000007		MOV    	#000007, -(SP)
005624	012746	000005		MOV    	#000005, -(SP)
005630	012746	000064		MOV    	#000064, -(SP)
005634	012746	000024		MOV    	#000024, -(SP)
005640	162706	000024		SUB    	#000024, SP
005644	010500			MOV    	R5, R0
005646	062700	000576		ADD    	#000576, R0
005652	010601			MOV    	SP, R1
005654	012702	000012		MOV    	#000012, R2
005660	012021			MOV    	(R0)+, (R1)+
005662	005302			DEC    	R2
005664	001375			BNE    	005660
005666	004767	175016		CALL   	002710			; L02710(VAR102.ANUM,7,5,64,24,VAR576)
005672	016546	000102		MOV    	000102(R5), -(SP)
005676	012746	177776		MOV    	#177776, -(SP)
005702	012746	000004		MOV    	#000004, -(SP)
005706	012746	000062		MOV    	#000062, -(SP)
005712	012746	000024		MOV    	#000024, -(SP)
005716	162706	000024		SUB    	#000024, SP
005722	010500			MOV    	R5, R0
005724	062700	000576		ADD    	#000576, R0
005730	010601			MOV    	SP, R1
005732	012702	000012		MOV    	#000012, R2
005736	012021			MOV    	(R0)+, (R1)+
005740	005302			DEC    	R2
005742	001375			BNE    	005736
005744	004767	174740		CALL   	002710			; L02710(VAR102.ANUM,-2,4,62,24,VAR576)
005750	010503			MOV    	R5, R3
005752	062703	000266		ADD    	#000266, R3		; WITH VAR266
005756	005063	000002		CLR    	000002(R3)		; (VAR266).WNUM:=0
005762	016563	000102	000004	MOV    	000102(R5), 000004(R3)	; (VAR266).AREA:=VAR102.ANUM
005770	012763	000170	000012	MOV    	#000170, 000012(R3)	; (VAR266).SY1:=170
005776	012763	000170	000014	MOV    	#000170, 000014(R3)	; (VAR266).SY2:=170
006004	012763	000014	000016	MOV    	#000014, 000016(R3)	; (VAR266).SX1:=14
006012	012763	000014	000020	MOV    	#000014, 000020(R3)	; (VAR266).SX2:=14
006020	012763	000050	000010	MOV    	#000050, 000010(R3)	; (VAR266).ARX:=50
006026	012763	000120	000006	MOV    	#000120, 000006(R3)	; (VAR266).ARY:=120
006034	012763	000402	000022	MOV    	#000402, 000022(R3)	; (VAR266).DEN:=402
006042	010500			MOV    	R5, R0
006044	062700	000266		ADD    	#000266, R0
006050	010046			MOV    	R0, -(SP)
006052	010500			MOV    	R5, R0
006054	062700	000242		ADD    	#000242, R0
006060	010046			MOV    	R0, -(SP)
006062	012746	000001		MOV    	#000001, -(SP)
006066	004767	176334		CALL   	004426			; L04426(VAR266,VAR242,1)
006072	010600			MOV    	SP, R0
006074	010046			MOV    	R0, -(SP)		; FOR @SP:=1 TO 5
006076	012746	000001		MOV    	#000001, -(SP)
006102	012746	000005		MOV    	#000005, -(SP)
006106	016676	000002	000004	MOV    	000002(SP), @000004(SP)
006114	027616	000004		CMP    	@000004(SP), (SP)
006120	003402			BLE    	006126
006122	000167	000066		JMP    	006214
006126	062765	177760	000300	ADD    	#177760, 000300(R5)	; VAR266.SY1:=VAR266.SY1-20
006134	062765	000020	000302	ADD    	#000020, 000302(R5)	; VAR266.SY2:=VAR266.SY2+20
006142	005365	000304		DEC    	000304(R5)		; VAR266.SX1:=VAR266.SX1-1
006146	005265	000306		INC    	000306(R5)		; VAR266.SX2:=VAR266.SX2+1
006152	062765	177760	000274	ADD    	#177760, 000274(R5)	; VAR266.ARY:=VAR266.ARY-20
006160	062765	177770	000276	ADD    	#177770, 000276(R5)	; VAR266.ARX:=VAR266.ARX-10
006166	010500			MOV    	R5, R0
006170	062700	000266		ADD    	#000266, R0
006174	010046			MOV    	R0, -(SP)
006176	004767	174046		CALL   	002250			; L02250(VAR266)
006202	005276	000004		INC    	@000004(SP)		; NEXT @SP
006206	102402			BVS    	006214
006210	000167	177700		JMP    	006114
006214	062706	000006		ADD    	#000006, SP		; END FOR @SP
006220	010500			MOV    	R5, R0
006222	062700	000266		ADD    	#000266, R0
006226	010046			MOV    	R0, -(SP)
006230	010500			MOV    	R5, R0
006232	062700	000242		ADD    	#000242, R0
006236	010046			MOV    	R0, -(SP)
006240	012746	000001		MOV    	#000001, -(SP)
006244	004767	176156		CALL   	004426			; L04426(VAR266,VAR242,1)
006250	062706	000026		ADD    	#000026, SP
006254	000207			RETURN 	
====================================================================
; PROCEDURE (CLOSETX)
006256	005046			CLR    	-(SP)	; VAR @SP:INTEGER
006260	010500			MOV    	R5, R0
006262	062700	000242		ADD    	#000242, R0
006266	010046			MOV    	R0, -(SP)
006270	004767	174004		CALL   	002300			; L02300(VAR242)
006274	010600			MOV    	SP, R0
006276	010046			MOV    	R0, -(SP)		; FOR @SP:=1 TO 5
006300	012746	000001		MOV    	#000001, -(SP)
006304	012746	000005		MOV    	#000005, -(SP)
006310	016676	000002	000004	MOV    	000002(SP), @000004(SP)
006316	027616	000004		CMP    	@000004(SP), (SP)
006322	003402			BLE    	006330
006324	000167	000066		JMP    	006416
006330	062765	000020	000300	ADD    	#000020, 000300(R5)	; VAR266.SY1:=VAR266.SY1+20
006336	062765	177760	000302	ADD    	#177760, 000302(R5)	; VAR266.SY2:=VAR266.SY2-20
006344	005265	000304		INC    	000304(R5)		; VAR266.SX1:=VAR266.SX1+1
006350	005365	000306		DEC    	000306(R5)		; VAR266.SX2:=VAR266.SX2-1
006354	062765	000020	000274	ADD    	#000020, 000274(R5)	; VAR266.ARY:=VAR266.ARY+20
006362	062765	000010	000276	ADD    	#000010, 000276(R5)	; VAR266.ARX:=VAR266.ARX+10
006370	010500			MOV    	R5, R0
006372	062700	000266		ADD    	#000266, R0
006376	010046			MOV    	R0, -(SP)
006400	004767	173644		CALL   	002250			; L02250(VAR266)
006404	005276	000004		INC    	@000004(SP)		; NEXT @SP
006410	102402			BVS    	006416
006412	000167	177700		JMP    	006316
006416	062706	000006		ADD    	#000006, SP		; END FOR @SP
006422	010500			MOV    	R5, R0
006424	062700	000266		ADD    	#000266, R0
006430	010046			MOV    	R0, -(SP)
006432	004767	173642		CALL   	002300			; L02300(VAR266)
006436	062706	000002		ADD    	#000002, SP
006442	000207			RETURN 	
====================================================================
; PROCEDURE 70(SP):ARRAY[1..12]OF CHAR ; 54(SP):ARETYP (READPIC)
006444	162706	000052		SUB    	#000052, SP
; @SP:INTEGER/^INTEGER; 2(SP):PALTYP; VAR 26(SP):FILE OF RECORD(1000)
; 30(SP),32(SP),34(SP),36(SP),40(SP),42(SP),44(SP),46(SP),50(SP):INTEGER;
006450	010600			MOV    	SP, R0
006452	062700	000026		ADD    	#000026, R0
006456	010067	037070		MOV    	R0, 045552
006462	012746	001000		MOV    	#001000, -(SP)
006466	010600			MOV    	SP, R0
006470	062700	000072		ADD    	#000072, R0
006474	010046			MOV    	R0, -(SP)
006476	012746	000012		MOV    	#000012, -(SP)
006502	012746	007266		MOV    	#007266, -(SP)
006506	012746	000011		MOV    	#000011, -(SP)
006512	005046			CLR    	-(SP)
006514	004767	027100		CALL   	035620	; $B66		; RESET(26(SP),70(SP),'.GE5/SEEK')
006520	016667	000026	037024	MOV    	000026(SP), 045552
006526	012746	000074		MOV    	#000074, -(SP)
006532	005046			CLR    	-(SP)
006534	004767	027642		CALL   	036402	; $B65		; SEEK(26(SP),74)
006540	010603			MOV    	SP, R3
006542	062703	000002		ADD    	#000002, R3		; WITH 2(SP)
006546	010600			MOV    	SP, R0
006550	062700	000030		ADD    	#000030, R0		; FOR 30(SP):=0 TO 17
006554	010046			MOV    	R0, -(SP)
006556	005046			CLR    	-(SP)
006560	012746	000017		MOV    	#000017, -(SP)
006564	016676	000002	000004	MOV    	000002(SP), @000004(SP)
006572	027616	000004		CMP    	@000004(SP), (SP)
006576	003402			BLE    	006604
006600	000167	000212		JMP    	007016
006604	017600	000034		MOV    	@000034(SP), R0
006610	016601	000036		MOV    	000036(SP), R1
006614	062701	000100		ADD    	#000100, R1
006620	006301			ASL    	R1
006622	060001			ADD    	R0, R1
006624	011166	000042		MOV    	(R1), 000042(SP)	; 34(SP):=26(SP)^[30(SP)+100]
006630	016600	000042		MOV    	000042(SP), R0
006634	042700	177617		BIC    	#177617, R0
006640	005700			TST    	R0
006642	100001			BPL    	006646
006644	005300			DEC    	R0
006646	006200			ASR    	R0
006650	006200			ASR    	R0
006652	006200			ASR    	R0
006654	006200			ASR    	R0
006656	100001			BPL    	006662
006660	005200			INC    	R0
006662	010066	000050		MOV    	R0, 000050(SP)		; 42(SP):=(34(SP) AND 160) DIV 20
006666	016600	000042		MOV    	000042(SP), R0
006672	042700	174377		BIC    	#174377, R0
006676	000300			SWAB   	R0
006700	110000			MOVB   	R0, R0
006702	010066	000052		MOV    	R0, 000052(SP)		; 44(SP):=(34(SP) AND 3400) DIV 400
006706	016600	000042		MOV    	000042(SP), R0
006712	042700	177770		BIC    	#177770, R0
006716	005700			TST    	R0
006720	100001			BPL    	006724
006722	005300			DEC    	R0
006724	006200			ASR    	R0
006726	100001			BPL    	006732
006730	005200			INC    	R0
006732	010066	000054		MOV    	R0, 000054(SP)		; 46(SP):=(34(SP) AND 7) DIV 2
006736	010300			MOV    	R3, R0
006740	066600	000036		ADD    	000036(SP), R0
006744	016601	000052		MOV    	000052(SP), R1
006750	006301			ASL    	R1
006752	006301			ASL    	R1
006754	006301			ASL    	R1
006756	006301			ASL    	R1
006760	006301			ASL    	R1
006762	016602	000050		MOV    	000050(SP), R2
006766	006302			ASL    	R2
006770	006302			ASL    	R2
006772	060102			ADD    	R1, R2
006774	066602	000054		ADD    	000054(SP), R2
007000	110260	000004		MOVB   	R2, 000004(R0)		; (2(SP)).C[30(SP)]:=CHR(44(SP)*40+42(SP)*4+46(SP))
007004	005276	000004		INC    	@000004(SP)		; NEXT 30(SP)
007010	102402			BVS    	007016
007012	000167	177554		JMP    	006572
007016	062706	000006		ADD    	#000006, SP		; END FOR 30(SP)
007022	016663	000062	000002	MOV    	000062(SP), 000002(R3)	; (2(SP)).MODPAL:=54(SP).MODPAL
007030	010600			MOV    	SP, R0
007032	062700	000002		ADD    	#000002, R0
007036	010046			MOV    	R0, -(SP)
007040	004767	171734		CALL   	001000			; L01000(2(SP))
007044	012766	000010	000040	MOV    	#000010, 000040(SP)	; 40(SP):=10
007052	017600	000026		MOV    	@000026(SP), R0
007056	010016			MOV    	R0, (SP)		; @SP.A:=@26(SP)^[0]
007060	011666	000036		MOV    	(SP), 000036(SP)	; 36(SP):=@SP.W
007064	010600			MOV    	SP, R0
007066	062700	000032		ADD    	#000032, R0		; FOR 32(SP):=0 TO 64
007072	010046			MOV    	R0, -(SP)
007074	005046			CLR    	-(SP)
007076	012746	000064		MOV    	#000064, -(SP)
007102	016676	000002	000004	MOV    	000002(SP), @000004(SP)
007110	027616	000004		CMP    	@000004(SP), (SP)
007114	003402			BLE    	007122
007116	000167	000106		JMP    	007230
007122	016667	000034	036422	MOV    	000034(SP), 045552
007130	016600	000040		MOV    	000040(SP), R0
007134	005200			INC    	R0
007136	010046			MOV    	R0, -(SP)
007140	005046			CLR    	-(SP)
007142	004767	027234		CALL   	036402	; $B65		; SEEK(26(SP),32(SP)+1)
007146	016646	000062		MOV    	000062(SP), -(SP)
007152	016646	000050		MOV    	000050(SP), -(SP)
007156	016600	000044		MOV    	000044(SP), R0
007162	006300			ASL    	R0
007164	006300			ASL    	R0
007166	010046			MOV    	R0, -(SP)
007170	012746	000004		MOV    	#000004, -(SP)
007174	005046			CLR    	-(SP)
007176	012746	000200		MOV    	#000200, -(SP)
007202	016646	000060		MOV    	000060(SP), -(SP)
007206	005046			CLR    	-(SP)
007210	005046			CLR    	-(SP)
007212	004767	172024		CALL   	001242			; L01242(54(SP).ANUM,40(SP),32(SP)*4,4,0,200,36(SP),0,0)
007216	005276	000004		INC    	@000004(SP)		; NEXT 32(SP)
007222	102402			BVS    	007230
007224	000167	177660		JMP    	007110
007230	062706	000006		ADD    	#000006, SP		; END FOR 32(SP)
007234	010600			MOV    	SP, R0
007236	062700	000026		ADD    	#000026, R0
007242	010067	036304		MOV    	R0, 045552
007246	004767	024674		CALL   	034146	; $B68		; CLOSE(26(SP))
007252	016666	000052	000100	MOV    	000052(SP), 000100(SP)
007260	062706	000100		ADD    	#000100, SP
007264	000207			RETURN 	
--------------------------------------------------------------------
007266	043456	032505	051457	.ASCIZ	".GE5/SEEK"
	042505	000113		.EVEN
====================================================================
; PROCEDURE (PRESENT)
007300	162706	000134		SUB    	#000134, SP
; VAR 6(SP) 22(SP):INTEGER; 24(SP):ARETYP; 40(SP),64(SP):WINTYP; 110(SP):ARRAY[1..24]OF CHAR
007304	010503			MOV    	R5, R3
007306	062703	000266		ADD    	#000266, R3		; WITH VAR266
007312	005063	000002		CLR    	000002(R3)		; (VAR266).WNUM:=0
007316	016563	000102	000004	MOV    	000102(R5), 000004(R3)	; (VAR266).AREA:=VAR102.ANUM
007324	005063	000006		CLR    	000006(R3)		; (VAR266).ARY:=0
007330	005063	000010		CLR    	000010(R3)		; (VAR266).ARX:=0
007334	012763	000010	000012	MOV    	#000010, 000012(R3)	; (VAR266).SY1:=10
007342	012763	000454	000014	MOV    	#000454, 000014(R3)	; (VAR266).SY2:=454
007350	012763	000002	000016	MOV    	#000002, 000016(R3)	; (VAR266).SX1:=2
007356	012763	000027	000020	MOV    	#000027, 000020(R3)	; (VAR266).SX2:=27
007364	012763	000401	000022	MOV    	#000401, 000022(R3)	; (VAR266).DEN:=401
007372	010500			MOV    	R5, R0
007374	062700	000266		ADD    	#000266, R0
007400	010046			MOV    	R0, -(SP)
007402	004767	172642		CALL   	002250			; L02250(VAR266)
007406	012700	010664		MOV    	#010664, R0
007412	010601			MOV    	SP, R1
007414	062701	000110		ADD    	#000110, R1
007420	012702	000012		MOV    	#000012, R2
007424	012021			MOV    	(R0)+, (R1)+		; 110(SP):=' Oepqnm`k|m`_ ]BL   '
007426	005302			DEC    	R2
007430	001375			BNE    	007424
007432	112766	000177	000124	MOVB   	#000177, 000124(SP)	; 110(SP)[15]:=CHR(177)
007440	016546	000102		MOV    	000102(R5), -(SP)
007444	012746	000007		MOV    	#000007, -(SP)
007450	012746	000013		MOV    	#000013, -(SP)
007454	012746	000216		MOV    	#000216, -(SP)
007460	012746	000021		MOV    	#000021, -(SP)
007464	162706	000024		SUB    	#000024, SP
007470	010600			MOV    	SP, R0
007472	062700	000146		ADD    	#000146, R0
007476	010601			MOV    	SP, R1
007500	012702	000012		MOV    	#000012, R2
007504	012021			MOV    	(R0)+, (R1)+
007506	005302			DEC    	R2
007510	001375			BNE    	007504
007512	004767	173172		CALL   	002710			; L02710(VAR102.ANUM,7,13,216,21,110(SP))
007516	016546	000102		MOV    	000102(R5), -(SP)
007522	012746	177776		MOV    	#177776, -(SP)
007526	012746	000012		MOV    	#000012, -(SP)
007532	012746	000214		MOV    	#000214, -(SP)
007536	012746	000021		MOV    	#000021, -(SP)
007542	162706	000024		SUB    	#000024, SP
007546	010600			MOV    	SP, R0
007550	062700	000146		ADD    	#000146, R0
007554	010601			MOV    	SP, R1
007556	012702	000012		MOV    	#000012, R2
007562	012021			MOV    	(R0)+, (R1)+
007564	005302			DEC    	R2
007566	001375			BNE    	007562
007570	004767	173114		CALL   	002710			; L02710(VAR102.ANUM,-2,12,214,21,110(SP))
007574	012766	000021	000022	MOV    	#000021, 000022(SP)	; 22(SP):=21
007602	010600			MOV    	SP, R0
007604	062700	000006		ADD    	#000006, R0		; FOR 6(SP):=214 DOWNTO 2
007610	010046			MOV    	R0, -(SP)
007612	012746	000214		MOV    	#000214, -(SP)
007616	012746	000002		MOV    	#000002, -(SP)
007622	016676	000002	000004	MOV    	000002(SP), @000004(SP)
007630	027616	000004		CMP    	@000004(SP), (SP)
007634	002002			BGE    	007642
007636	000167	000066		JMP    	007730
007642	016546	000102		MOV    	000102(R5), -(SP)
007646	016646	000032		MOV    	000032(SP), -(SP)
007652	016600	000020		MOV    	000020(SP), R0
007656	005300			DEC    	R0
007660	010046			MOV    	R0, -(SP)
007662	012746	000016		MOV    	#000016, -(SP)
007666	012746	000012		MOV    	#000012, -(SP)
007672	012746	000110		MOV    	#000110, -(SP)
007676	016546	000102		MOV    	000102(R5), -(SP)
007702	016646	000032		MOV    	000032(SP), -(SP)
007706	012746	000012		MOV    	#000012, -(SP)
007712	004767	171324		CALL   	001242			; L01242(VAR102.ANUM,22(SP),6(SP)-1,16,12,110,VAR102.ANUM,6(SP),12)
007716	005376	000004		DEC    	@000004(SP)		; PREV 6(SP)
007722	102402			BVS    	007730
007724	000167	177700		JMP    	007630
007730	062706	000006		ADD    	#000006, SP		; END FOR 6(SP)
007734	012700	010712		MOV    	#010712, R0
007740	010601			MOV    	SP, R1
007742	062701	000110		ADD    	#000110, R1
007746	012702	000012		MOV    	#000012, R2
007752	012021			MOV    	(R0)+, (R1)+		; 110(SP):='    HNM-11/16       '
007754	005302			DEC    	R2
007756	001375			BNE    	007752
007760	016546	000102		MOV    	000102(R5), -(SP)
007764	012746	000007		MOV    	#000007, -(SP)
007770	012746	000013		MOV    	#000013, -(SP)
007774	012746	000216		MOV    	#000216, -(SP)
010000	012746	000021		MOV    	#000021, -(SP)
010004	162706	000024		SUB    	#000024, SP
010010	010600			MOV    	SP, R0
010012	062700	000146		ADD    	#000146, R0
010016	010601			MOV    	SP, R1
010020	012702	000012		MOV    	#000012, R2
010024	012021			MOV    	(R0)+, (R1)+
010026	005302			DEC    	R2
010030	001375			BNE    	010024
010032	004767	172652		CALL   	002710			; L02710(VAR102.ANUM,7,13,216,21,110(SP))
010036	016546	000102		MOV    	000102(R5), -(SP)
010042	012746	177776		MOV    	#177776, -(SP)
010046	012746	000012		MOV    	#000012, -(SP)
010052	012746	000214		MOV    	#000214, -(SP)
010056	012746	000021		MOV    	#000021, -(SP)
010062	162706	000024		SUB    	#000024, SP
010066	010600			MOV    	SP, R0
010070	062700	000146		ADD    	#000146, R0
010074	010601			MOV    	SP, R1
010076	012702	000012		MOV    	#000012, R2
010102	012021			MOV    	(R0)+, (R1)+
010104	005302			DEC    	R2
010106	001375			BNE    	010102
010110	004767	172574		CALL   	002710			; L02710(VAR102.ANUM,-2,12,214,21,110(SP))
010114	012766	000021	000022	MOV    	#000021, 000022(SP)	; 22(SP):=21
010122	010600			MOV    	SP, R0
010124	062700	000006		ADD    	#000006, R0		; FOR 6(SP):=214 TO 20
010130	010046			MOV    	R0, -(SP)
010132	012746	000214		MOV    	#000214, -(SP)
010136	012746	000020		MOV    	#000020, -(SP)
010142	016676	000002	000004	MOV    	000002(SP), @000004(SP)
010150	027616	000004		CMP    	@000004(SP), (SP)
010154	002002			BGE    	010162
010156	000167	000066		JMP    	010250
010162	016546	000102		MOV    	000102(R5), -(SP)
010166	016646	000032		MOV    	000032(SP), -(SP)
010172	016600	000020		MOV    	000020(SP), R0
010176	005300			DEC    	R0
010200	010046			MOV    	R0, -(SP)
010202	012746	000016		MOV    	#000016, -(SP)
010206	012746	000012		MOV    	#000012, -(SP)
010212	012746	000110		MOV    	#000110, -(SP)
010216	016546	000102		MOV    	000102(R5), -(SP)
010222	016646	000032		MOV    	000032(SP), -(SP)
010226	012746	000012		MOV    	#000012, -(SP)
010232	004767	171004		CALL   	001242			; L01242(VAR102.ANUM,22(SP),6(SP)-1,16,12,110,VAR102.ANUM,6(SP),12)
010236	005376	000004		DEC    	@000004(SP)		; NEXT 6(SP)
010242	102402			BVS    	010250
010244	000167	177700		JMP    	010150
010250	062706	000006		ADD    	#000006, SP		; END FOR 6(SP)
010254	005066	000024		CLR    	000024(SP)		; 24(SP).ANUM:=0
010260	012766	000324	000026	MOV    	#000324, 000026(SP)	; 24(SP).LINS:=324
010266	012766	000202	000030	MOV    	#000202, 000030(SP)	; 24(SP).SLEN:=202
010274	005066	000034		CLR    	000034(SP)		; 24(SP).AMMR:=0
010300	012766	100003	000032	MOV    	#100003, 000032(SP)	; 24(SP).MODPAL:=100003
010306	010600			MOV    	SP, R0
010310	062700	000024		ADD    	#000024, R0
010314	010046			MOV    	R0, -(SP)
010316	004767	171046		CALL   	001370			; L01370(24(SP))
010322	162706	000012		SUB    	#000012, SP
010326	012700	010740		MOV    	#010740, R0
010332	010601			MOV    	SP, R1
010334	012702	000005		MOV    	#000005, R2
010340	012021			MOV    	(R0)+, (R1)+
010342	005302			DEC    	R2
010344	001375			BNE    	010340
010346	162706	000014		SUB    	#000014, SP
010352	010600			MOV    	SP, R0
010354	062700	000052		ADD    	#000052, R0
010360	010601			MOV    	SP, R1
010362	012702	000006		MOV    	#000006, R2
010366	012021			MOV    	(R0)+, (R1)+
010370	005302			DEC    	R2
010372	001375			BNE    	010366
010374	004767	176044		CALL   	006444			; L06444('box       ',24(SP))
010400	010603			MOV    	SP, R3
010402	062703	000064		ADD    	#000064, R3		; WITH 64(SP)
010406	016663	000024	000004	MOV    	000024(SP), 000004(R3)	; (64(SP)).AREA:=24(SP).ANUM
010414	005063	000002		CLR    	000002(R3)		; (64(SP)).WNUM:=0
010420	012763	001002	000022	MOV    	#001002, 000022(R3)	; (64(SP)).DEN:=1002
010426	012763	001074	000014	MOV    	#001074, 000014(R3)	; (64(SP)).SY2:=1074
010434	016300	000014		MOV    	000014(R3), R0
010440	062700	177470		ADD    	#177470, R0
010444	010063	000012		MOV    	R0, 000012(R3)		; (64(SP)).SY1:=(64(SP)).SY2-310
010450	012763	000005	000016	MOV    	#000005, 000016(R3)	; (64(SP)).SX1:=5
010456	012763	000024	000020	MOV    	#000024, 000020(R3)	; (64(SP)).SX2:=24
010464	012763	000014	000006	MOV    	#000014, 000006(R3)	; (64(SP)).ARY:=14
010472	005063	000010		CLR    	000010(R3)		; (64(SP)).ARX:=0
010476	005066	000042		CLR    	000042(SP)		; 40(SP).WNUM:=0
010502	010600			MOV    	SP, R0
010504	062700	000064		ADD    	#000064, R0
010510	010046			MOV    	R0, -(SP)
010512	010600			MOV    	SP, R0
010514	062700	000042		ADD    	#000042, R0
010520	010046			MOV    	R0, -(SP)
010522	012746	000001		MOV    	#000001, -(SP)
010526	004767	173674		CALL   	004426			; L04426(64(SP),40(SP),1)
010532	010600			MOV    	SP, R0
010534	062700	000064		ADD    	#000064, R0
010540	010046			MOV    	R0, -(SP)
010542	012746	177320		MOV    	#177320, -(SP)
010546	004767	172660		CALL   	003432			; L03432(64(SP),-460)
010552	010600			MOV    	SP, R0
010554	062700	000064		ADD    	#000064, R0
010560	010046			MOV    	R0, -(SP)
010562	010600			MOV    	SP, R0
010564	062700	000042		ADD    	#000042, R0
010570	010046			MOV    	R0, -(SP)
010572	012746	000001		MOV    	#000001, -(SP)
010576	004767	173624		CALL   	004426			; L04426(64(SP),40(SP),1)
010602	012746	000004		MOV    	#000004, -(SP)
010606	004767	171776		CALL   	002610			; L02610(4)
010612	010600			MOV    	SP, R0
010614	062700	000024		ADD    	#000024, R0
010620	010046			MOV    	R0, -(SP)
010622	004767	171306		CALL   	002134			; L02134(24(SP))
010626	010600			MOV    	SP, R0
010630	062700	000040		ADD    	#000040, R0
010634	010046			MOV    	R0, -(SP)
010636	004767	171436		CALL   	002300			; L02300(40(SP))
010642	010500			MOV    	R5, R0
010644	062700	000266		ADD    	#000266, R0
010650	010046			MOV    	R0, -(SP)
010652	004767	171422		CALL   	002300			; L02300(VAR266)
010656	062706	000134		ADD    	#000134, SP
010662	000207			RETURN 	
--------------------------------------------------------------------
010664	047440	070145	067161	.ASCIZ	/ Oepqnm`k|m`_ ]BL   /
	060155	076153	060155	.EVEN
	020137	041135	020114
	020040	000000

010712	020040	020040	047110	.ASCIZ	"    HNM-11/16       "
	026515	030461	030457	.EVEN
	020066	020040	020040
	020040	000000

010740	067542	020170	020040	.ASCIZ	/box       /
	020040	020040	000000	.EVEN
====================================================================
; PROCEDURE (COLOR64)
010754	162706	002532		SUB    	#002532, SP
; VAR @SP: RECORD
;           CODE:INTEGER;
;           ANUM:INTEGER;
;           LINS:INTEGER;
;           SLEN:INTEGER;
;           TAS:ARRAY[1..300.,1..2]OF INTEGER;
;     END;
; 2270(SP),2272(SP),2274(SP),2276(SP),2300(SP),2302(SP),2304(SP):INTEGER
; 2306(SP):ARRAY[1..2,0..16]OF INTEGER; 2412(SP):ARRAY[1..4]OF INTEGER;
; 2422(SP),2446(SP):WINTYP; 2472(SP):PALTYP; 2516(SP):ARETYP
010760	005016			CLR    	(SP)			; @SP.CODE:=0
010762	005066	000002		CLR    	000002(SP)		; @SP.ANUM:=0
010766	012766	000070	000004	MOV    	#000070, 000004(SP)	; @SP.LINS:=70
010774	012766	000042	000006	MOV    	#000042, 000006(SP)	; @SP.SLIN:=42
011002	010600			MOV    	SP, R0			; {$C
011004	062700	002306		ADD    	#002306, R0
011010	010001			MOV    	R0, R1
011012	042701	160000		BIC    	#160000, R1
011016	010166	002272		MOV    	R1, 002272(SP)
011022	072027	177763		ASH    	#177763, R0
011026	042700	177770		BIC    	#177770, R0
011032	006300			ASL    	R0
011034	062700	161220		ADD    	#161220, R0
011040	011066	002270		MOV    	(R0), 002270(SP)	; }
011044	026627	002272	010000	CMP    	002272(SP), #010000	; IF 2272(SP)>=10000
011052	002002			BGE    	011060
011054	000167	000014		JMP    	011074
011060	042766	170000	002272	BIC    	#170000, 002272(SP)	; 2272(SP):=2272(SP) AND 7777
011066	062766	000020	002270	ADD    	#000020, 002270(SP)	; 2270(SP):=2270(SP)+20 ; END IF
011074	012766	040002	002412	MOV    	#040002, 002412(SP)	; 2412(SP)[1]:=40002
011102	012766	100002	002414	MOV    	#100002, 002414(SP)	; 2412(SP)[2]:=100002
011110	012766	140002	002416	MOV    	#140002, 002416(SP)	; 2412(SP)[3]:=140002
011116	012766	140003	002420	MOV    	#140003, 002420(SP)	; 2412(SP)[4]:=140003
011124	010603			MOV    	SP, R3			; WITH @SP
011126	010600			MOV    	SP, R0
011130	062700	002300		ADD    	#002300, R0		; FOR 2300(SP):=0 TO 3
011134	010046			MOV    	R0, -(SP)
011136	005046			CLR    	-(SP)
011140	012746	000003		MOV    	#000003, -(SP)
011144	016676	000002	000004	MOV    	000002(SP), @000004(SP)
011152	027616	000004		CMP    	@000004(SP), (SP)
011156	003402			BLE    	011164
011160	000167	000246		JMP    	011432
011164	010600			MOV    	SP, R0
011166	062700	002310		ADD    	#002310, R0		; FOR 2302(SP):=1 TO 16
011172	010046			MOV    	R0, -(SP)
011174	012746	000001		MOV    	#000001, -(SP)
011200	012746	000016		MOV    	#000016, -(SP)
011204	016676	000002	000004	MOV    	000002(SP), @000004(SP)
011212	027616	000004		CMP    	@000004(SP), (SP)
011216	003402			BLE    	011224
011220	000167	000170		JMP    	011414
011224	016646	002314		MOV    	002314(SP), -(SP)
011230	012746	000016		MOV    	#000016, -(SP)
011234	004767	026262		CALL   	037522	; $B78
011240	066616	002320		ADD    	002320(SP), (SP)
011244	012600			MOV    	(SP)+, R0
011246	006300			ASL    	R0
011250	006300			ASL    	R0
011252	060300			ADD    	R3, R0
011254	016601	002316		MOV    	002316(SP), R1
011260	005701			TST    	R1
011262	100001			BPL    	011266
011264	005301			DEC    	R1
011266	006201			ASR    	R1
011270	006201			ASR    	R1
011272	006201			ASR    	R1
011274	100001			BPL    	011300
011276	005201			INC    	R1
011300	010146			MOV    	R1, -(SP)
011302	012746	000042		MOV    	#000042, -(SP)
011306	004767	026210		CALL   	037522	; $B78
011312	016601	002310		MOV    	002310(SP), R1
011316	062601			ADD    	(SP)+, R1
011320	010160	000004		MOV    	R1, 000004(R0)		; (@SP).TAS[2300(SP)*16+2302(SP),1]:=(2302(SP) DIV 10)*42+2272(SP)
011324	016646	002314		MOV    	002314(SP), -(SP)
011330	012746	000016		MOV    	#000016, -(SP)
011334	004767	026162		CALL   	037522	; $B78
011340	066616	002320		ADD    	002320(SP), (SP)
011344	012600			MOV    	(SP)+, R0
011346	006300			ASL    	R0
011350	006300			ASL    	R0
011352	060300			ADD    	R3, R0
011354	016601	002314		MOV    	002314(SP), R1
011360	005201			INC    	R1
011362	006301			ASL    	R1
011364	060601			ADD    	SP, R1
011366	016602	002304		MOV    	002304(SP), R2
011372	066102	002424		ADD    	002424(R1), R2
011376	010260	000006		MOV    	R2, 000006(R0)		; (@SP).TAS[2300(SP)*16+2302(SP),2]:=2270(SP)+2412(SP)[2300(SP)+1]
011402	005276	000004		INC    	@000004(SP)		; NEXT 2302(SP)
011406	102402			BVS    	011414
011410	000167	177576		JMP    	011212
011414	062706	000006		ADD    	#000006, SP		; END FOR 2302(SP)
011420	005276	000004		INC    	@000004(SP)		; NEXT 2300(SP)
011424	102402			BVS    	011432
011426	000167	177520		JMP    	011152
011432	062706	000006		ADD    	#000006, SP		; END FOR 2300(SP)
011436	010315			MOV    	R3, (R5)		; VAR00.A:=@(@SP).CODE
011440	011537	177530		MOV    	(R5), @#177530		; WCSR:=VAR00.W
011444	016315	000002		MOV    	000002(R3), (R5)	; VAR00.W:=(@SP).ANUM
011450	016366	000002	002516	MOV    	000002(R3), 002516(SP)	; 2516(SP).ANUM:=(@SP).ANUM
011456	010603			MOV    	SP, R3
011460	062703	002422		ADD    	#002422, R3		; WITH 2422(SP)
011464	016663	000002	000004	MOV    	000002(SP), 000004(R3)	; (2422(SP)).AREA:=@SP.ANUM
011472	005063	000002		CLR    	000002(R3)		; (2422(SP)).WNUM:=0
011476	005063	000022		CLR    	000022(R3)		; (2422(SP)).DEN:=0
011502	005063	000006		CLR    	000006(R3)		; (2422(SP)).ARY:=0
011506	005063	000010		CLR    	000010(R3)		; (2422(SP)).ARX:=0
011512	012763	000005	000016	MOV    	#000005, 000016(R3)	; (2422(SP)).SX1:=5
011520	012763	000024	000020	MOV    	#000024, 000020(R3)	; (2422(SP)).SX2:=24
011526	012763	000040	000012	MOV    	#000040, 000012(R3)	; (2422(SP)).SY1:=40
011534	012763	000374	000014	MOV    	#000374, 000014(R3)	; (2422(SP)).SY2:=374
011542	010600			MOV    	SP, R0
011544	062700	002304		ADD    	#002304, R0		; FOR 2304(SP):=1 TO 4
011550	010046			MOV    	R0, -(SP)
011552	012746	000001		MOV    	#000001, -(SP)
011556	012746	000004		MOV    	#000004, -(SP)
011562	016676	000002	000004	MOV    	000002(SP), @000004(SP)
011570	027616	000004		CMP    	@000004(SP), (SP)
011574	003402			BLE    	011602
011576	000167	000340		JMP    	012142
011602	010603			MOV    	SP, R3
011604	062703	002500		ADD    	#002500, R3		; WITH 2472(SP)
011610	016600	002312		MOV    	002312(SP), R0
011614	005200			INC    	R0
011616	042700	177776		BIC    	#177776, R0
011622	006300			ASL    	R0
011624	006300			ASL    	R0
011626	005200			INC    	R0
011630	010066	002310		MOV    	R0, 002310(SP)		; 2302(SP):=((2304(SP)+1) MOD 2)*4+1
011634	016646	002312		MOV    	002312(SP), -(SP)
011640	012746	000003		MOV    	#000003, -(SP)
011644	004767	025700		CALL   	037550	; $B80
011650	012600			MOV    	(SP)+, R0
011652	006300			ASL    	R0
011654	010066	002302		MOV    	R0, 002302(SP)		; 2274(SP):=(2304(SP) DIV 3)*2
011660	010600			MOV    	SP, R0
011662	062700	002306		ADD    	#002306, R0		; FOR 2300(SP):=0 TO 17
011666	010046			MOV    	R0, -(SP)
011670	005046			CLR    	-(SP)
011672	012746	000017		MOV    	#000017, -(SP)
011676	016676	000002	000004	MOV    	000002(SP), @000004(SP)
011704	027616	000004		CMP    	@000004(SP), (SP)
011710	003402			BLE    	011716
011712	000167	000154		JMP    	012072
011716	016600	002314		MOV    	002314(SP), R0
011722	042700	177774		BIC    	#177774, R0
011726	006300			ASL    	R0
011730	005200			INC    	R0
011732	006300			ASL    	R0
011734	006300			ASL    	R0
011736	066600	002310		ADD    	002310(SP), R0
011742	016601	002314		MOV    	002314(SP), R1
011746	005701			TST    	R1
011750	100001			BPL    	011754
011752	005301			DEC    	R1
011754	006201			ASR    	R1
011756	006201			ASR    	R1
011760	006201			ASR    	R1
011762	100001			BPL    	011766
011764	005201			INC    	R1
011766	006301			ASL    	R1
011770	066601	002316		ADD    	002316(SP), R1
011774	006301			ASL    	R1
011776	006301			ASL    	R1
012000	006301			ASL    	R1
012002	006301			ASL    	R1
012004	006301			ASL    	R1
012006	060001			ADD    	R0, R1
012010	016600	002314		MOV    	002314(SP), R0
012014	005700			TST    	R0
012016	100001			BPL    	012022
012020	005300			DEC    	R0
012022	006200			ASR    	R0
012024	006200			ASR    	R0
012026	100001			BPL    	012032
012030	005200			INC    	R0
012032	042700	177776		BIC    	#177776, R0
012036	060100			ADD    	R1, R0
012040	010066	002312		MOV    	R0, 002312(SP)		; 2276(SP):=2274(SP)+((2300(SP) MOD 4)*2+1)*4+((2300(SP) DIV 10)*2+2302(SP))*40+((2300(SP) DIV 4) MOD 2)
012044	010300			MOV    	R3, R0
012046	066600	002314		ADD    	002314(SP), R0
012052	116660	002312	000004	MOVB   	002312(SP), 000004(R0)	; (2472(SP)).C[2300(SP)]:=CHR(2276(SP))
012060	005276	000004		INC    	@000004(SP)		; NEXT 2300(SP)
012064	102402			BVS    	012072
012066	000167	177612		JMP    	011704
012072	062706	000006		ADD    	#000006, SP		; END FOR 2300(SP)
012076	016600	002312		MOV    	002312(SP), R0
012102	006300			ASL    	R0
012104	060600			ADD    	SP, R0
012106	016063	002416	000002	MOV    	002416(R0), 000002(R3)	; (2472(SP)).MODPAL:=2412(SP)[2304(SP)]
012114	010600			MOV    	SP, R0
012116	062700	002500		ADD    	#002500, R0
012122	010046			MOV    	R0, -(SP)
012124	004767	166650		CALL   	001000			; L01000(2472(SP))
012130	005276	000004		INC    	@000004(SP)		; NEXT 2304(SP)
012134	102402			BVS    	012142
012136	000167	177426		JMP    	011570
012142	062706	000006		ADD    	#000006, SP		; END FOR 2304(SP)
012146	010600			MOV    	SP, R0
012150	062700	002300		ADD    	#002300, R0		; FOR 2300(SP):=1 TO 2
012154	010046			MOV    	R0, -(SP)
012156	012746	000001		MOV    	#000001, -(SP)
012162	012746	000002		MOV    	#000002, -(SP)
012166	016676	000002	000004	MOV    	000002(SP), @000004(SP)
012174	027616	000004		CMP    	@000004(SP), (SP)
012200	003402			BLE    	012206
012202	000167	000306		JMP    	012514
012206	010600			MOV    	SP, R0
012210	062700	002310		ADD    	#002310, R0		; FOR 2302(SP):=0 TO 7
012214	010046			MOV    	R0, -(SP)
012216	005046			CLR    	-(SP)
012220	012746	000007		MOV    	#000007, -(SP)
012224	016676	000002	000004	MOV    	000002(SP), @000004(SP)
012232	027616	000004		CMP    	@000004(SP), (SP)
012236	003402			BLE    	012244
012240	000167	000232		JMP    	012476
012244	016600	002314		MOV    	002314(SP), R0
012250	005300			DEC    	R0
012252	006300			ASL    	R0
012254	006300			ASL    	R0
012256	006300			ASL    	R0
012260	066600	002316		ADD    	002316(SP), R0
012264	010066	002320		MOV    	R0, 002320(SP)		; 2304(SP):=(2300(SP)-1)*10+2302(SP)
012270	016600	002320		MOV    	002320(SP), R0
012274	006300			ASL    	R0
012276	006300			ASL    	R0
012300	006300			ASL    	R0
012302	006300			ASL    	R0
012304	066600	002320		ADD    	002320(SP), R0
012310	010066	002320		MOV    	R0, 002320(SP)		; 2304(SP):=2304(SP)*20+2304(SP)
012314	016646	002314		MOV    	002314(SP), -(SP)
012320	012746	000042		MOV    	#000042, -(SP)
012324	004767	025104		CALL   	037434	; $B116
012330	010600			MOV    	SP, R0
012332	062600			ADD    	(SP)+, R0
012334	016601	002316		MOV    	002316(SP), R1
012340	006301			ASL    	R1
012342	006301			ASL    	R1
012344	060001			ADD    	R0, R1
012346	016600	002320		MOV    	002320(SP), R0
012352	000300			SWAB   	R0
012354	042700	000377		BIC    	#000377, R0
012360	066600	002320		ADD    	002320(SP), R0
012364	010061	002262		MOV    	R0, 002262(R1)		; 2306(SP)[2300(SP),2302(SP)*2]:=2304(SP)*400+2304(SP)
012370	016646	002314		MOV    	002314(SP), -(SP)
012374	012746	000042		MOV    	#000042, -(SP)
012400	004767	025030		CALL   	037434	; $B116
012404	010600			MOV    	SP, R0
012406	062600			ADD    	(SP)+, R0
012410	016601	002316		MOV    	002316(SP), R1
012414	006301			ASL    	R1
012416	005201			INC    	R1
012420	006301			ASL    	R1
012422	060001			ADD    	R0, R1
012424	016646	002314		MOV    	002314(SP), -(SP)
012430	012746	000042		MOV    	#000042, -(SP)
012434	004767	024774		CALL   	037434	; $B116
012440	010600			MOV    	SP, R0
012442	062600			ADD    	(SP)+, R0
012444	016602	002316		MOV    	002316(SP), R2
012450	006302			ASL    	R2
012452	006302			ASL    	R2
012454	060002			ADD    	R0, R2
012456	016261	002262	002262	MOV    	002262(R2), 002262(R1)	; 2306(SP)[2300(SP),2302(SP)*2+1]:=2306(SP)[2300(SP),2302(SP)*2]
012464	005276	000004		INC    	@000004(SP)		; NEXT 2302(SP)
012470	102402			BVS    	012476
012472	000167	177534		JMP    	012232
012476	062706	000006		ADD    	#000006, SP		; END FOR 2302(SP)
012502	005276	000004		INC    	@000004(SP)		; NEXT 2300(SP)
012506	102402			BVS    	012514
012510	000167	177460		JMP    	012174
012514	062706	000006		ADD    	#000006, SP		; END FOR 2300(SP)
012520	005066	002450		CLR    	002450(SP)		; 2446(SP).WNUM:=0
012524	010600			MOV    	SP, R0
012526	062700	002422		ADD    	#002422, R0
012532	010046			MOV    	R0, -(SP)
012534	010600			MOV    	SP, R0
012536	062700	002450		ADD    	#002450, R0
012542	010046			MOV    	R0, -(SP)
012544	012746	000002		MOV    	#000002, -(SP)
012550	004767	171652		CALL   	004426			; L04426(2422(SP),2446(SP),2)
012554	010600			MOV    	SP, R0
012556	062700	002422		ADD    	#002422, R0
012562	010046			MOV    	R0, -(SP)
012564	004767	167460		CALL   	002250			; L02250(2422(SP))
012570	012746	000006		MOV    	#000006, -(SP)
012574	004767	170010		CALL   	002610			; L02610(6)
012600	012700	012760		MOV    	#012760, R0
012604	010501			MOV    	R5, R1
012606	062701	000526		ADD    	#000526, R1
012612	012702	000012		MOV    	#000012, R2
012616	012021			MOV    	(R0)+, (R1)+		; VAR526:=' Ankee 128 vbernb   '
012620	005302			DEC    	R2
012622	001375			BNE    	012616
012624	012700	013006		MOV    	#013006, R0
012630	010501			MOV    	R5, R1
012632	062701	000552		ADD    	#000552, R1
012636	012702	000012		MOV    	#000012, R2
012642	012021			MOV    	(R0)+, (R1)+		; VAR552:=' m` }jp`me dhqoke_  '
012644	005302			DEC    	R2
012646	001375			BNE    	012642
012650	112765	000177	000573	MOVB   	#000177, 000573(R5)	; VAR552[22]:=CHR(177)
012656	012700	013034		MOV    	#013034, R0
012662	010501			MOV    	R5, R1
012664	062701	000576		ADD    	#000576, R1
012670	012702	000012		MOV    	#000012, R2
012674	012021			MOV    	(R0)+, (R1)+		; VAR576:=' ndmnbpelemmn       '
012676	005302			DEC    	R2
012700	001375			BNE    	012674
012702	004767	172312		CALL   	005220			; L05220
012706	012746	000005		MOV    	#000005, -(SP)
012712	004767	167672		CALL   	002610			; L02610(5)
012716	004767	173334		CALL   	006256			; L06256
012722	010600			MOV    	SP, R0
012724	062700	002516		ADD    	#002516, R0
012730	010046			MOV    	R0, -(SP)
012732	004767	166240		CALL   	001176			; L01176(2516(SP))
012736	010600			MOV    	SP, R0
012740	062700	002446		ADD    	#002446, R0
012744	010046			MOV    	R0, -(SP)
012746	004767	167326		CALL   	002300			; L02300(2446(SP))
012752	062706	002532		ADD    	#002532, SP
012756	000207			RETURN 	
--------------------------------------------------------------------
012760	040440	065556	062545	.ASCIZ	/ Ankee 128 vbernb   /
	030440	034062	073040	.EVEN
	062542	067162	020142
	020040	000000

013006	066440	020140	065175	.ASCIZ	/ m` }jp`me dhqoke_  /
	060160	062555	062040	.EVEN
	070550	065557	057545
	020040	000000

013034	067040	066544	061156	.ASCIZ	/ ndmnbpelemmn       /
	062560	062554	066555	.EVEN
	020156	020040	020040
	020040	000000
====================================================================
; PROCEDURE (PEVM)
013062	162706	001020		SUB    	#001020, SP
; VAR 2(SP):PALTYP; 26(SP):FILE OF INTEGER; 30(SP):ARRAY[0..307]OF INTEGER;
; 650(SP),652(SP),654(SP),656(SP),660(SP) ... 670(SP),672(SP):INTEGER
; 674(SP),710(SP):ARETYP; 724(SP),750(SP):WINTYP ...
013066	005066	000710		CLR    	000710(SP)		; 710(SP).ANUM:=0
013072	012766	000420	000712	MOV    	#000420, 000712(SP)	; 710(SP).LINS:=420
013100	012766	000322	000714	MOV    	#000322, 000714(SP)	; 710(SP).SLEN:=322
013106	012766	040002	000716	MOV    	#040002, 000716(SP)	; 710(SP).MODPAL:=40002
013114	005066	000720		CLR    	000720(SP)		; 710(SP).AMMR:=0
013120	005066	000674		CLR    	000674(SP)		; 674(SP).ANUM:=0
013124	012766	000144	000676	MOV    	#000144, 000676(SP)	; 674(SP).LINS:=144
013132	012766	000144	000700	MOV    	#000144, 000700(SP)	; 674(SP).SLEN:=144
013140	016666	000716	000702	MOV    	000716(SP), 000702(SP)	; 674(SP).MODPAL:=712(SP).MODPAL
013146	005066	000704		CLR    	000704(SP)		; 674(SP).AMMR:=0
013152	010600			MOV    	SP, R0
013154	062700	000710		ADD    	#000710, R0
013160	010046			MOV    	R0, -(SP)
013162	004767	166202		CALL   	001370			; L01370(710(SP))
013166	010600			MOV    	SP, R0
013170	062700	000674		ADD    	#000674, R0
013174	010046			MOV    	R0, -(SP)
013176	004767	166166		CALL   	001370			; L01370(674(SP))
013202	010603			MOV    	SP, R3
013204	062703	000002		ADD    	#000002, R3		; WITH 2(SP)
013210	016663	000716	000002	MOV    	000716(SP), 000002(R3)	; (2(SP)).MODPAL:=710(SP).MODPAL
013216	112763	000105	000004	MOVB   	#000105, 000004(R3)	; (2(SP)).C[0]:=CHR(105)
013224	112763	000034	000005	MOVB   	#000034, 000005(R3)	; (2(SP)).C[1]:=CHR(34)
013232	112763	000340	000006	MOVB   	#000340, 000006(R3)	; (2(SP)).C[2]:=CHR(340)
013240	112763	000334	000007	MOVB   	#000334, 000007(R3)	; (2(SP)).C[3]:=CHR(334)
013246	112763	000156	000010	MOVB   	#000156, 000010(R3)	; (2(SP)).C[4]:=CHR(156)
013254	112763	000377	000011	MOVB   	#000377, 000011(R3)	; (2(SP)).C[5]:=CHR(377)
013262	112763	000266	000012	MOVB   	#000266, 000012(R3)	; (2(SP)).C[6]:=CHR(266)
013270	105063	000013		CLRB   	000013(R3)		; (2(SP)).C[7]:=CHR(0)
013274	112763	000034	000014	MOVB   	#000034, 000014(R3)	; (2(SP)).C[10]:=CHR(34)
013302	112763	000376	000015	MOVB   	#000376, 000015(R3)	; (2(SP)).C[11]:=CHR(376)
013310	112763	000151	000016	MOVB   	#000151, 000016(R3)	; (2(SP)).C[12]:=CHR(151)
013316	112763	000236	000017	MOVB   	#000236, 000017(R3)	; (2(SP)).C[13]:=CHR(236)
013324	112763	000172	000020	MOVB   	#000172, 000020(R3)	; (2(SP)).C[14]:=CHR(172)
013332	112763	000374	000021	MOVB   	#000374, 000021(R3)	; (2(SP)).C[15]:=CHR(374)
013340	112763	000374	000022	MOVB   	#000374, 000022(R3)	; (2(SP)).C[16]:=CHR(374)
013346	105063	000023		CLRB   	000023(R3)		; (2(SP)).C[17]:=CHR(0)
013352	010600			MOV    	SP, R0
013354	062700	000002		ADD    	#000002, R0
013360	010046			MOV    	R0, -(SP)
013362	004767	165412		CALL   	001000			; L01000(2(SP))
013366	010603			MOV    	SP, R3
013370	062703	000750		ADD    	#000750, R3		; WITH 750(SP)
013374	005063	000002		CLR    	000002(R3)		; (750(SP)).WNUM:=0
013400	016663	000710	000004	MOV    	000710(SP), 000004(R3)	; (750(SP)).AREA:=710(SP).ANUM
013406	005063	000006		CLR    	000006(R3)		; (750(SP)).ARY:=0
013412	005063	000010		CLR    	000010(R3)		; (750(SP)).ARX:=0
013416	012763	000010	000012	MOV    	#000010, 000012(R3)	; (750(SP)).SY1:=10
013424	012763	000420	000014	MOV    	#000420, 000014(R3)	; (750(SP)).SY2:=420
013432	012763	000002	000016	MOV    	#000002, 000016(R3)	; (750(SP)).SX1:=2
013440	012763	000027	000020	MOV    	#000027, 000020(R3)	; (750(SP)).SX2:=27
013446	012763	001002	000022	MOV    	#001002, 000022(R3)	; (750(SP)).DEN:=1002
013454	005066	000726		CLR    	000726(SP)		; 724(SP).WNUM:=0
013460	010600			MOV    	SP, R0
013462	062700	000750		ADD    	#000750, R0
013466	010046			MOV    	R0, -(SP)
013470	010600			MOV    	SP, R0
013472	062700	000726		ADD    	#000726, R0
013476	010046			MOV    	R0, -(SP)
013500	012746	000001		MOV    	#000001, -(SP)
013504	004767	170716		CALL   	004426			; L04426(750(SP),724(SP),1)
013510	010600			MOV    	SP, R0
013512	062700	000750		ADD    	#000750, R0
013516	010046			MOV    	R0, -(SP)
013520	004767	166524		CALL   	002250			; L02250(750(SP))
013524	012746	000002		MOV    	#000002, -(SP)
013530	004767	167054		CALL   	002610			; L02610(2)
013534	012700	016330		MOV    	#016330, R0
013540	010501			MOV    	R5, R1
013542	062701	000526		ADD    	#000526, R1
013546	012702	000012		MOV    	#000012, R2
013552	012021			MOV    	(R0)+, (R1)+		; VAR526:='        WRN         '
013554	005302			DEC    	R2
013556	001375			BNE    	013552
013560	012700	016356		MOV    	#016356, R0
013564	010501			MOV    	R5, R1
013566	062701	000552		ADD    	#000552, R1
013572	012702	000012		MOV    	#000012, R2
013576	012021			MOV    	(R0)+, (R1)+		; VAR552:='      BMSRPH        '
013600	005302			DEC    	R2
013602	001375			BNE    	013576
013604	012700	016404		MOV    	#016404, R0
013610	010501			MOV    	R5, R1
013612	062701	000576		ADD    	#000576, R1
013616	012702	000012		MOV    	#000012, R2
013622	012021			MOV    	(R0)+, (R1)+		; VAR576:='     s O]BL ?       '
013624	005302			DEC    	R2
013626	001375			BNE    	013622
013630	004767	171364		CALL   	005220			; L05220
013634	010600			MOV    	SP, R0
013636	062700	000026		ADD    	#000026, R0
013642	010067	031704		MOV    	R0, 045552
013646	012746	000002		MOV    	#000002, -(SP)
013652	012746	016432		MOV    	#016432, -(SP)
013656	012746	000010		MOV    	#000010, -(SP)
013662	005046			CLR    	-(SP)
013664	005046			CLR    	-(SP)
013666	005046			CLR    	-(SP)
013670	004767	021724		CALL   	035620	; $B66		; RESET(26(SP),'  IC.DAT')
013674	012766	000010	000672	MOV    	#000010, 000672(SP)     ; 672(SP):=10
013702	010600			MOV    	SP, R0
013704	062700	000030		ADD    	#000030, R0
013710	010016			MOV    	R0, (SP)		; @SP:=@30(SP)[0]
013712	011666	000670		MOV    	(SP), 000670(SP)	; 670(SP):=@SP
013716	010600			MOV    	SP, R0
013720	062700	000656		ADD    	#000656, R0		; FOR 656(SP):=0 TO 30
013724	010046			MOV    	R0, -(SP)
013726	005046			CLR    	-(SP)
013730	012746	000030		MOV    	#000030, -(SP)
013734	016676	000002	000004	MOV    	000002(SP), @000004(SP)
013742	027616	000004		CMP    	@000004(SP), (SP)
013746	003402			BLE    	013754
013750	000167	000170		JMP    	014144
013754	010600			MOV    	SP, R0
013756	062700	000662		ADD    	#000662, R0		; FOR 654(SP):=0 TO 307
013762	010046			MOV    	R0, -(SP)
013764	005046			CLR    	-(SP)
013766	012746	000307		MOV    	#000307, -(SP)
013772	016676	000002	000004	MOV    	000002(SP), @000004(SP)
014000	027616	000004		CMP    	@000004(SP), (SP)
014004	003402			BLE    	014012
014006	000167	000044		JMP    	014056
014012	016600	000670		MOV    	000670(SP), R0
014016	006300			ASL    	R0
014020	060600			ADD    	SP, R0
014022	017601	000042		MOV    	@000042(SP), R1
014026	011160	000044		MOV    	(R1), 000044(R0)	; 30(SP)[654(SP)]:=26(SP)^
014032	016667	000042	031512	MOV    	000042(SP), 045552
014040	004767	017110		CALL   	033154	; $B61		; GET(26(SP))
014044	005276	000004		INC    	@000004(SP)		; NEXT 654(SP)
014050	102402			BVS    	014056
014052	000167	177722		JMP    	014000
014056	062706	000006		ADD    	#000006, SP		; END FOR 654(SP)
014062	016646	000702		MOV    	000702(SP), -(SP)
014066	016646	000702		MOV    	000702(SP), -(SP)
014072	016600	000670		MOV    	000670(SP), R0
014076	006300			ASL    	R0
014100	006300			ASL    	R0
014102	010046			MOV    	R0, -(SP)
014104	012746	000004		MOV    	#000004, -(SP)
014110	005046			CLR    	-(SP)
014112	012746	000144		MOV    	#000144, -(SP)
014116	016646	000712		MOV    	000712(SP), -(SP)
014122	005046			CLR    	-(SP)
014124	005046			CLR    	-(SP)
014126	004767	165110		CALL   	001242			; L01242(674(SP).ANUM,672(SP),656(SP)*4,4,0,144,670(SP),0,0)
014132	005276	000004		INC    	@000004(SP)		; NEXT 656(SP)
014136	102402			BVS    	014144
014140	000167	177576		JMP    	013742
014144	062706	000006		ADD    	#000006, SP		; END FOR 656(SP)
014150	010600			MOV    	SP, R0
014152	062700	000026		ADD    	#000026, R0
014156	010067	031370		MOV    	R0, 045552
014162	004767	017760		CALL   	034146	; $B68		; CLOSE(26(SP))
014166	012746	000002		MOV    	#000002, -(SP)
014172	004767	166412		CALL   	002610			; L02610(2)
014176	004767	172054		CALL   	006256			; L06256
014202	012746	000001		MOV    	#000001, -(SP)
014206	004767	166376		CALL   	002610			; L02610(1)
014212	012766	000020	000672	MOV    	#000020, 000672(SP)	; 672(SP):=20
014220	010600			MOV    	SP, R0
014222	062700	000654		ADD    	#000654, R0		; FOR 654(SP):=0 TO 106
014226	010046			MOV    	R0, -(SP)
014230	005046			CLR    	-(SP)
014232	012746	000106		MOV    	#000106, -(SP)
014236	016676	000002	000004	MOV    	000002(SP), @000004(SP)
014244	027616	000004		CMP    	@000004(SP), (SP)
014250	003402			BLE    	014256
014252	000167	000070		JMP    	014346
014256	016646	000716		MOV    	000716(SP), -(SP)
014262	016646	000702		MOV    	000702(SP), -(SP)
014266	016600	000666		MOV    	000666(SP), R0
014272	006300			ASL    	R0
014274	006300			ASL    	R0
014276	010046			MOV    	R0, -(SP)
014300	012746	000116		MOV    	#000116, -(SP)
014304	012746	000104		MOV    	#000104, -(SP)
014310	012746	000054		MOV    	#000054, -(SP)
014314	016646	000716		MOV    	000716(SP), -(SP)
014320	012746	000005		MOV    	#000005, -(SP)
014324	012746	000006		MOV    	#000006, -(SP)
014330	004767	164706		CALL   	001242			; L01242(710(SP).ANUM,672(SP),654(SP)*4,116,104,54,674(SP).ANUM,5,6)
014334	005276	000004		INC    	@000004(SP)		; NEXT 654(SP)
014340	102402			BVS    	014346
014342	000167	177676		JMP    	014244
014346	062706	000006		ADD    	#000006, SP		; END FOR 654(SP)
014352	010600			MOV    	SP, R0
014354	062700	000654		ADD    	#000654, R0		; FOR 654(SP):=106 DOWNTO 2
014360	010046			MOV    	R0, -(SP)
014362	012746	000106		MOV    	#000106, -(SP)
014366	012746	000002		MOV    	#000002, -(SP)
014372	016676	000002	000004	MOV    	000002(SP), @000004(SP)
014400	027616	000004		CMP    	@000004(SP), (SP)
014404	002002			BGE    	014412
014406	000167	000070		JMP    	014502
014412	016646	000716		MOV    	000716(SP), -(SP)
014416	016646	000702		MOV    	000702(SP), -(SP)
014422	016600	000666		MOV    	000666(SP), R0
014426	006300			ASL    	R0
014430	006300			ASL    	R0
014432	010046			MOV    	R0, -(SP)
014434	012746	000116		MOV    	#000116, -(SP)
014440	012746	000104		MOV    	#000104, -(SP)
014444	012746	000054		MOV    	#000054, -(SP)
014450	016646	000716		MOV    	000716(SP), -(SP)
014454	012746	000005		MOV    	#000005, -(SP)
014460	012746	000006		MOV    	#000006, -(SP)
014464	004767	164552		CALL   	001242			; L01242(710(SP).ANUM,672(SP),654(SP)*4,116,104,54,674(SP).ANUM,5,6)
014470	005376	000004		DEC    	@000004(SP)		; PREV 654(SP)
014474	102402			BVS    	014502
014476	000167	177676		JMP    	014400
014502	062706	000006		ADD    	#000006, SP		; END FOR 654(SP)
014506	016646	000710		MOV    	000710(SP), -(SP)
014512	012746	000002		MOV    	#000002, -(SP)
014516	012746	000064		MOV    	#000064, -(SP)
014522	012746	000134		MOV    	#000134, -(SP)
014526	012746	000024		MOV    	#000024, -(SP)
014532	162706	000024		SUB    	#000024, SP
014536	012700	016444		MOV    	#016444, R0
014542	010601			MOV    	SP, R1
014544	012702	000012		MOV    	#000012, R2
014550	012021			MOV    	(R0)+, (R1)+
014552	005302			DEC    	R2
014554	001375			BNE    	014550
014556	004767	166126		CALL   	002710			; L02710(710(SP).ANUM,2,64,134,24,'1 lkm noep`vhi b qej')
014562	012746	000002		MOV    	#000002, -(SP)
014566	004767	166016		CALL   	002610			; L02610(2)
014572	010600			MOV    	SP, R0
014574	062700	000656		ADD    	#000656, R0		; FOR 656(SP):=0 TO 3
014600	010046			MOV    	R0, -(SP)
014602	005046			CLR    	-(SP)
014604	012746	000003		MOV    	#000003, -(SP)
014610	016676	000002	000004	MOV    	000002(SP), @000004(SP)
014616	027616	000004		CMP    	@000004(SP), (SP)
014622	003402			BLE    	014630
014624	000167	000272		JMP    	015122
014630	016646	000664		MOV    	000664(SP), -(SP)
014634	012746	000050		MOV    	#000050, -(SP)
014640	004767	022656		CALL   	037522	; $B78
014644	062716	000010		ADD    	#000010, (SP)
014650	012666	000656		MOV    	(SP)+, 000656(SP)	; 650(SP):=656(SP)*50+10
014654	010600			MOV    	SP, R0
014656	062700	000666		ADD    	#000666, R0		; FOR 660(SP):=0 TO 2
014662	010046			MOV    	R0, -(SP)
014664	005046			CLR    	-(SP)
014666	012746	000002		MOV    	#000002, -(SP)
014672	016676	000002	000004	MOV    	000002(SP), @000004(SP)
014700	027616	000004		CMP    	@000004(SP), (SP)
014704	003402			BLE    	014712
014706	000167	000172		JMP    	015104
014712	016646	000674		MOV    	000674(SP), -(SP)
014716	012746	000013		MOV    	#000013, -(SP)
014722	004767	022574		CALL   	037522	; $B78
014726	062716	000034		ADD    	#000034, (SP)
014732	012666	000666		MOV    	(SP)+, 000666(SP)	; 652(SP):=660(SP)*13+34
014736	010600			MOV    	SP, R0
014740	062700	000670		ADD    	#000670, R0		; FOR 654(SP):=106 DOWNTO 652(SP)
014744	010046			MOV    	R0, -(SP)
014746	012746	000106		MOV    	#000106, -(SP)
014752	016646	000672		MOV    	000672(SP), -(SP)
014756	016676	000002	000004	MOV    	000002(SP), @000004(SP)
014764	027616	000004		CMP    	@000004(SP), (SP)
014770	002002			BGE    	014776
014772	000167	000070		JMP    	015066
014776	016646	000732		MOV    	000732(SP), -(SP)
015002	016646	000716		MOV    	000716(SP), -(SP)
015006	016600	000702		MOV    	000702(SP), R0
015012	006300			ASL    	R0
015014	006300			ASL    	R0
015016	010046			MOV    	R0, -(SP)
015020	012746	000052		MOV    	#000052, -(SP)
015024	016646	000702		MOV    	000702(SP), -(SP)
015030	012746	000046		MOV    	#000046, -(SP)
015034	016646	000732		MOV    	000732(SP), -(SP)
015040	012746	000020		MOV    	#000020, -(SP)
015044	012746	000060		MOV    	#000060, -(SP)
015050	004767	164166		CALL   	001242			; L01242(710(SP).ANUM,672(SP),654(SP)*4,52,650(SP),46,674(SP).ANUM,20,60)
015054	005376	000004		DEC    	@000004(SP)		; PREV 654(SP)
015060	102402			BVS    	015066
015062	000167	177676		JMP    	014764
015066	062706	000006		ADD    	#000006, SP		; END FOR 654(SP)
015072	005276	000004		INC    	@000004(SP)		; NEXT 660(SP)
015076	102402			BVS    	015104
015100	000167	177574		JMP    	014700
015104	062706	000006		ADD    	#000006, SP		; END FOR 660(SP)
015110	005276	000004		INC    	@000004(SP)		; NEXT 656(SP)
015114	102402			BVS    	015122
015116	000167	177474		JMP    	014616
015122	062706	000006		ADD    	#000006, SP		; END FOR 656(SP)
015126	016646	000710		MOV    	000710(SP), -(SP)
015132	012746	000002		MOV    	#000002, -(SP)
015136	012746	000062		MOV    	#000062, -(SP)
015142	012746	000374		MOV    	#000374, -(SP)
015146	012746	000024		MOV    	#000024, -(SP)
015152	162706	000024		SUB    	#000024, SP
015156	012700	016472		MOV    	#016472, R0
015162	010601			MOV    	SP, R1
015164	012702	000012		MOV    	#000012, R2
015170	012021			MOV    	(R0)+, (R1)+
015172	005302			DEC    	R2
015174	001375			BNE    	015170
015176	004767	165506		CALL   	002710			; L02710(710(SP).ANUM,2,62,374,24,'   1 La`ir NGS      ')
015202	012746	000003		MOV    	#000003, -(SP)
015206	004767	165376		CALL   	002610			; L02610(3)
015212	012766	000401	000772	MOV    	#000401, 000772(SP)	; 750(SP).DEN:=401
015220	012766	000062	000760	MOV    	#000062, 000760(SP)	; 750(SP).ARX:=62
015226	012766	000004	000756	MOV    	#000004, 000756(SP)	; 750(SP).ARY:=4
015234	010600			MOV    	SP, R0
015236	062700	000750		ADD    	#000750, R0
015242	010046			MOV    	R0, -(SP)
015244	004767	165000		CALL   	002250			; L02250(750(SP))
015250	012746	000003		MOV    	#000003, -(SP)
015254	004767	165330		CALL   	002610			; L02610(3)
015260	005066	000772		CLR    	000772(SP)		; 750(SP).DEN:=0
015264	012766	000104	000760	MOV    	#000104, 000760(SP)	; 750(SP).ARX:=104
015272	012766	000010	000756	MOV    	#000010, 000756(SP)	; 750(SP).ARY:=10
015300	010600			MOV    	SP, R0
015302	062700	000750		ADD    	#000750, R0
015306	010046			MOV    	R0, -(SP)
015310	004767	164734		CALL   	002250			; L02250(750(SP))
015314	012746	000004		MOV    	#000004, -(SP)
015320	004767	165264		CALL   	002610			; L02610(4)
015324	012766	000401	000772	MOV    	#000401, 000772(SP)	; 750(SP).DEN:=401
015332	012766	000062	000760	MOV    	#000062, 000760(SP)	; 750(SP).ARX:=62
015340	012766	000004	000756	MOV    	#000004, 000756(SP)	; 750(SP).ARY:=4
015346	010600			MOV    	SP, R0
015350	062700	000750		ADD    	#000750, R0
015354	010046			MOV    	R0, -(SP)
015356	004767	164666		CALL   	002250			; L02250(750(SP))
015362	012746	013560		MOV    	#013560, -(SP)
015366	004767	165112		CALL   	002504			; L02504(13560)
015372	012766	001002	000772	MOV    	#001002, 000772(SP)	; 750(SP).DEN:=1002
015400	005066	000760		CLR    	000760(SP)		; 750(SP).ARX:=0
015404	005066	000756		CLR    	000756(SP)		; 750(SP).ARY:=0
015410	010600			MOV    	SP, R0
015412	062700	000750		ADD    	#000750, R0
015416	010046			MOV    	R0, -(SP)
015420	004767	164624		CALL   	002250			; L02250(750(SP))
015424	012746	000003		MOV    	#000003, -(SP)
015430	004767	165154		CALL   	002610			; L02610(3)
015434	012766	000401	000772	MOV    	#000401, 000772(SP)	; 750(SP).DEN:=401
015442	012766	000062	000760	MOV    	#000062, 000760(SP)	; 750(SP).ARX:=62
015450	012766	000234	000756	MOV    	#000234, 000756(SP)	; 750(SP).ARY:=234
015456	010600			MOV    	SP, R0
015460	062700	000750		ADD    	#000750, R0
015464	010046			MOV    	R0, -(SP)
015466	004767	164556		CALL   	002250			; L02250(750(SP))
015472	012746	000003		MOV    	#000003, -(SP)
015476	004767	165106		CALL   	002610			; L02610(3)
015502	005066	000772		CLR    	000772(SP)		; 750(SP).DEN:=0
015506	012766	000060	000760	MOV    	#000060, 000760(SP)	; 750(SP).ARX:=60
015514	012766	000310	000756	MOV    	#000310, 000756(SP)	; 750(SP).ARY:=310
015522	010600			MOV    	SP, R0
015524	062700	000750		ADD    	#000750, R0
015530	010046			MOV    	R0, -(SP)
015532	004767	164512		CALL   	002250			; L02250(750(SP))
015536	012746	000004		MOV    	#000004, -(SP)
015542	004767	165042		CALL   	002610			; L02610(4)
015546	012766	000401	000772	MOV    	#000401, 000772(SP)	; 750(SP).DEN:=401
015554	012766	000062	000760	MOV    	#000062, 000760(SP)	; 750(SP).ARX:=62
015562	005066	000756		CLR    	000756(SP)		; 750(SP).ARY:=0
015566	010600			MOV    	SP, R0
015570	062700	000654		ADD    	#000654, R0		; FOR 654(SP):=1 TO 202
015574	010046			MOV    	R0, -(SP)
015576	012746	000001		MOV    	#000001, -(SP)
015602	012746	000202		MOV    	#000202, -(SP)
015606	016676	000002	000004	MOV    	000002(SP), @000004(SP)
015614	027616	000004		CMP    	@000004(SP), (SP)
015620	003402			BLE    	015626
015622	000167	000032		JMP    	015660
015626	005266	000764		INC    	000764(SP)		; 750(SP).ARY:=750(SP).ARY+1
015632	010600			MOV    	SP, R0
015634	062700	000756		ADD    	#000756, R0
015640	010046			MOV    	R0, -(SP)
015642	004767	164402		CALL   	002250			; L02250(750(SP))
015646	005276	000004		INC    	@000004(SP)		; NEXT 654(SP)
015652	102402			BVS    	015660
015654	000167	177734		JMP    	015614
015660	062706	000006		ADD    	#000006, SP		; END FOR 654(SP)
015664	010600			MOV    	SP, R0
015666	062700	000654		ADD    	#000654, R0		; FOR 654(SP):=1 TO 202
015672	010046			MOV    	R0, -(SP)
015674	012746	000001		MOV    	#000001, -(SP)
015700	012746	000202		MOV    	#000202, -(SP)
015704	016676	000002	000004	MOV    	000002(SP), @000004(SP)
015712	027616	000004		CMP    	@000004(SP), (SP)
015716	003402			BLE    	015724
015720	000167	000032		JMP    	015756
015724	005366	000764		DEC    	000764(SP)		; 750(SP).ARY:=750(SP).ARY-1
015730	010600			MOV    	SP, R0
015732	062700	000756		ADD    	#000756, R0
015736	010046			MOV    	R0, -(SP)
015740	004767	164304		CALL   	002250			; L02250(750(SP))
015744	005276	000004		INC    	@000004(SP)		; NEXT 654(SP)
015750	102402			BVS    	015756
015752	000167	177734		JMP    	015712
015756	062706	000006		ADD    	#000006, SP		; END FOR 654(SP)
015762	005066	000760		CLR    	000760(SP)		; 750(SP).ARX:=0
015766	012766	000024	000756	MOV    	#000024, 000756(SP)	; 750(SP).ARY:=24
015774	010600			MOV    	SP, R0
015776	062700	000654		ADD    	#000654, R0		; FOR 654(SP):=1 TO 31
016002	010046			MOV    	R0, -(SP)
016004	012746	000001		MOV    	#000001, -(SP)
016010	012746	000031		MOV    	#000031, -(SP)
016014	016676	000002	000004	MOV    	000002(SP), @000004(SP)
016022	027616	000004		CMP    	@000004(SP), (SP)
016026	003402			BLE    	016034
016030	000167	000044		JMP    	016100
016034	062766	000004	000766	ADD    	#000004, 000766(SP)	; 750(SP).ARX:=750(SP).ARX+4
016042	010600			MOV    	SP, R0
016044	062700	000756		ADD    	#000756, R0
016050	010046			MOV    	R0, -(SP)
016052	004767	164172		CALL   	002250			; L02250(750(SP))
016056	012746	003720		MOV    	#003720, -(SP)
016062	004767	164416		CALL   	002504			; L02504(3720)
016066	005276	000004		INC    	@000004(SP)		; NEXT 654(SP)
016072	102402			BVS    	016100
016074	000167	177722		JMP    	016022
016100	062706	000006		ADD    	#000006, SP		; END FOR 654(SP)
016104	010600			MOV    	SP, R0
016106	062700	000654		ADD    	#000654, R0		; FOR 654(SP):=1 TO 31
016112	010046			MOV    	R0, -(SP)
016114	012746	000001		MOV    	#000001, -(SP)
016120	012746	000031		MOV    	#000031, -(SP)
016124	016676	000002	000004	MOV    	000002(SP), @000004(SP)
016132	027616	000004		CMP    	@000004(SP), (SP)
016136	003402			BLE    	016144
016140	000167	000044		JMP    	016210
016144	062766	177774	000766	ADD    	#177774, 000766(SP)	; 750(SP).ARX:=750(SP).ARX-4
016152	010600			MOV    	SP, R0
016154	062700	000756		ADD    	#000756, R0
016160	010046			MOV    	R0, -(SP)
016162	004767	164062		CALL   	002250			; L02250(750(SP))
016166	012746	003720		MOV    	#003720, -(SP)
016172	004767	164306		CALL   	002504			; L02504(3720)
016176	005276	000004		INC    	@000004(SP)		; NEXT 654(SP)
016202	102402			BVS    	016210
016204	000167	177722		JMP    	016132
016210	062706	000006		ADD    	#000006, SP		; END FOR 654(SP)
016214	012766	001002	000772	MOV    	#001002, 000772(SP)	; 750(SP).DEN:=1002
016222	005066	000760		CLR    	000760(SP)		; 750(SP).ARX:=0
016226	005066	000756		CLR    	000756(SP)		; 750(SP).ARY:=0
016232	010600			MOV    	SP, R0
016234	062700	000750		ADD    	#000750, R0
016240	010046			MOV    	R0, -(SP)
016242	004767	164002		CALL   	002250			; L02250(750(SP))
016246	012746	000003		MOV    	#000003, -(SP)
016252	004767	164332		CALL   	002610			; L02610(3)
016256	010600			MOV    	SP, R0
016260	062700	000710		ADD    	#000710, R0
016264	010046			MOV    	R0, -(SP)
016266	004767	163642		CALL   	002134			; L02134(710(SP))
016272	010600			MOV    	SP, R0
016274	062700	000674		ADD    	#000674, R0
016300	010046			MOV    	R0, -(SP)
016302	004767	163626		CALL   	002134			; L02134(674(SP))
016306	010600			MOV    	SP, R0
016310	062700	000724		ADD    	#000724, R0
016314	010046			MOV    	R0, -(SP)
016316	004767	163756		CALL   	002300			; L02300(724(SP))
016322	062706	001020		ADD    	#001020, SP
016326	000207			RETURN 	
--------------------------------------------------------------------
016330	020040	020040	020040	.ASCIZ	/        WRN         /
	020040	051127	020116	.EVEN
	020040	020040	020040
	020040	000000

016356	020040	020040	020040	.ASCIZ	/      BMSRPH        /
	046502	051123	044120	.EVEN
	020040	020040	020040
	020040	000000

016404	020040	020040	071440	.ASCIZ	/     s O]BL ?       /
	047440	041135	020114	.EVEN
	020077	020040	020040
	020040	000000

016432	020040	041511	042056	.ASCIZ	/  IC.DAT/
	052101	000000		.EVEN

016444	020061	065554	020155	.ASCIZ	/1 lkm noep`vhi b qej/
	067556	070145	073140	.EVEN
	064550	061040	070440
	065145	000000

016472	020040	030440	046040	.ASCIZ	/   1 La`ir NGS      /
	060141	071151	047040	.EVEN
	051507	020040	020040
	020040	000000
====================================================================
; PROCEDURE 664(SP):ARRAY[1..12]OF CHAR; VAR 662(SP):ARETYP (READDAT)
016520	162706	000660		SUB    	#000660, SP
; VAR 2(SP):PALTYP; 26(SP):FILE OF INTEGER; 30(SP):ARRAY[0..307]OF INTEGER; 650(SP),652(SP),654(SP),656(SP):INTEGER
016524	010600			MOV    	SP, R0
016526	062700	000026		ADD    	#000026, R0
016532	010067	027014		MOV    	R0, 045552
016536	012746	000002		MOV    	#000002, -(SP)
016542	010600			MOV    	SP, R0
016544	062700	000666		ADD    	#000666, R0
016550	010046			MOV    	R0, -(SP)
016552	012746	000012		MOV    	#000012, -(SP)
016556	012746	017326		MOV    	#017326, -(SP)
016562	012746	000004		MOV    	#000004, -(SP)
016566	005046			CLR    	-(SP)
016570	004767	017024		CALL   	035620	; $B66		; RESET(26(SP),664(SP),'.DAT')
016574	010603			MOV    	SP, R3
016576	062703	000002		ADD    	#000002, R3		; WITH 2(SP)
016602	016600	000662		MOV    	000662(SP), R0
016606	016063	000006	000002	MOV    	000006(R0), 000002(R3)	; (2(SP)).MODPAL:=662(SP).MODPAL
016614	105063	000004		CLRB   	000004(R3)		; (2(SP)).C[0]:=CHR(0)
016620	010600			MOV    	SP, R0
016622	062700	000650		ADD    	#000650, R0		; FOR 650(SP):=1 TO 6
016626	010046			MOV    	R0, -(SP)
016630	012746	000001		MOV    	#000001, -(SP)
016634	012746	000006		MOV    	#000006, -(SP)
016640	016676	000002	000004	MOV    	000002(SP), @000004(SP)
016646	027616	000004		CMP    	@000004(SP), (SP)
016652	003402			BLE    	016660
016654	000167	000026		JMP    	016706
016660	010300			MOV    	R3, R0
016662	066600	000656		ADD    	000656(SP), R0
016666	112760	000377	000004	MOVB   	#000377, 000004(R0)	; (2(SP)).C[650(SP)]:=CHR(377)
016674	005276	000004		INC    	@000004(SP)		; NEXT 650(SP)
016700	102402			BVS    	016706
016702	000167	177740		JMP    	016646
016706	062706	000006		ADD    	#000006, SP		; END FOR 650(SP)
016712	010600			MOV    	SP, R0
016714	062700	000650		ADD    	#000650, R0		; FOR 650(SP):=7 TO 14
016720	010046			MOV    	R0, -(SP)
016722	012746	000007		MOV    	#000007, -(SP)
016726	012746	000014		MOV    	#000014, -(SP)
016732	016676	000002	000004	MOV    	000002(SP), @000004(SP)
016740	027616	000004		CMP    	@000004(SP), (SP)
016744	003402			BLE    	016752
016746	000167	000026		JMP    	017000
016752	010300			MOV    	R3, R0
016754	066600	000656		ADD    	000656(SP), R0
016760	112760	000034	000004	MOVB   	#000034, 000004(R0)	; (2(SP)).C[650(SP)]:=CHR(34)
016766	005276	000004		INC    	@000004(SP)		; NEXT 650(SP)
016772	102402			BVS    	017000
016774	000167	177740		JMP    	016740
017000	062706	000006		ADD    	#000006, SP		; END FOR 650(SP)
017004	010600			MOV    	SP, R0
017006	062700	000002		ADD    	#000002, R0
017012	010046			MOV    	R0, -(SP)
017014	004767	161760		CALL   	001000			; L01000(2(SP))
017020	012766	000010	000656	MOV    	#000010, 000656(SP)	; 656(SP):=10
017026	010600			MOV    	SP, R0
017030	062700	000030		ADD    	#000030, R0
017034	010016			MOV    	R0, (SP)		; @SP:=@30(SP)[0]
017036	011666	000654		MOV    	(SP), 000654(SP)	; 654(SP):=@SP
017042	010600			MOV    	SP, R0
017044	062700	000652		ADD    	#000652, R0		; FOR 652(SP):=0 TO 54
017050	010046			MOV    	R0, -(SP)
017052	005046			CLR    	-(SP)
017054	012746	000054		MOV    	#000054, -(SP)
017060	016676	000002	000004	MOV    	000002(SP), @000004(SP)
017066	027616	000004		CMP    	@000004(SP), (SP)
017072	003402			BLE    	017100
017074	000167	000170		JMP    	017270
017100	010600			MOV    	SP, R0
017102	062700	000656		ADD    	#000656, R0		; FOR 650(SP):=0 TO 307
017106	010046			MOV    	R0, -(SP)
017110	005046			CLR    	-(SP)
017112	012746	000307		MOV    	#000307, -(SP)
017116	016676	000002	000004	MOV    	000002(SP), @000004(SP)
017124	027616	000004		CMP    	@000004(SP), (SP)
017130	003402			BLE    	017136
017132	000167	000044		JMP    	017202
017136	016600	000664		MOV    	000664(SP), R0
017142	006300			ASL    	R0
017144	060600			ADD    	SP, R0
017146	017601	000042		MOV    	@000042(SP), R1
017152	011160	000044		MOV    	(R1), 000044(R0)	; 30(SP)[650(SP)]:=26(SP)^
017156	016667	000042	026366	MOV    	000042(SP), 045552
017164	004767	013764		CALL   	033154; $B61		; GET(26(SP))
017170	005276	000004		INC    	@000004(SP)		; NEXT 650(SP)
017174	102402			BVS    	017202
017176	000167	177722		JMP    	017124
017202	062706	000006		ADD    	#000006, SP		; END FOR 650(SP)
017206	017646	000670		MOV    	@000670(SP), -(SP)
017212	016646	000666		MOV    	000666(SP), -(SP)
017216	016600	000664		MOV    	000664(SP), R0
017222	006300			ASL    	R0
017224	006300			ASL    	R0
017226	010046			MOV    	R0, -(SP)
017230	012746	000004		MOV    	#000004, -(SP)
017234	005046			CLR    	-(SP)
017236	012746	000144		MOV    	#000144, -(SP)
017242	016646	000676		MOV    	000676(SP), -(SP)
017246	005046			CLR    	-(SP)
017250	005046			CLR    	-(SP)
017252	004767	161764		CALL   	001242			; L01242(662(SP).ANUM,656(SP),652(SP)*4,4,0,144,654(SP),0,0)
017256	005276	000004		INC    	@000004(SP)		; NEXT 652(SP)
017262	102402			BVS    	017270
017264	000167	177576		JMP    	017066
017270	062706	000006		ADD    	#000006, SP		; END FOR 652(SP)
017274	010600			MOV    	SP, R0
017276	062700	000026		ADD    	#000026, R0
017302	010067	026244		MOV    	R0, 045552
017306	004767	014634		CALL   	034146	; $B68		; CLOSE(26(SP))
017312	016666	000660	000674	MOV    	000660(SP), 000674(SP)
017320	062706	000674		ADD    	#000674, SP
017324	000207			RETURN 	
--------------------------------------------------------------------
017326	042056	052101	000000	.ASCIZ	/.DAT/
				.EVEN
====================================================================
; PROCEDURE (PICTURES)
017334	162706	000030		SUB    	#000030, SP	; VAR @SP,2(SP):INTEGER; 4(SP):WINTYP
017340	005065	000132		CLR    	000132(R5)		; VAR132.ANUM:=0
017344	012765	000264	000134	MOV    	#000264, 000134(R5)	; VAR132.LINS:=264
017352	012765	000144	000136	MOV    	#000144, 000136(R5)	; VAR132.SLEN:=144
017360	005065	000142		CLR    	000142(R5)		; VAR132.AMMR:=0
017364	005065	000146		CLR    	000146(R5)		; VAR146.ANUM:=0
017370	012765	000324	000150	MOV    	#000324, 000150(R5)	; VAR146.LINS:=324
017376	012765	000202	000152	MOV    	#000202, 000152(R5)	; VAR146.SLEN:=202
017404	005065	000156		CLR    	000156(R5)		; VAR146.AMMR:=0
017410	010500			MOV    	R5, R0
017412	062700	000146		ADD    	#000146, R0
017416	010501			MOV    	R5, R1
017420	062701	000162		ADD    	#000162, R1
017424	012702	000006		MOV    	#000006, R2
017430	012021			MOV    	(R0)+, (R1)+		; VAR162:=VAR146
017432	005302			DEC    	R2
017434	001375			BNE    	017430
017436	010500			MOV    	R5, R0
017440	062700	000146		ADD    	#000146, R0
017444	010501			MOV    	R5, R1
017446	062701	000176		ADD    	#000176, R1
017452	012702	000006		MOV    	#000006, R2
017456	012021			MOV    	(R0)+, (R1)+		; VAR176:=VAR146
017460	005302			DEC    	R2
017462	001375			BNE    	017456
017464	010500			MOV    	R5, R0
017466	062700	000146		ADD    	#000146, R0
017472	010501			MOV    	R5, R1
017474	062701	000212		ADD    	#000212, R1
017500	012702	000006		MOV    	#000006, R2
017504	012021			MOV    	(R0)+, (R1)+		; VAR212:=VAR146
017506	005302			DEC    	R2
017510	001375			BNE    	017504
017512	012765	040003	000140	MOV    	#040003, 000140(R5)	; VAR132.MODPAL:=40003
017520	012765	100003	000154	MOV    	#100003, 000154(R5)	; VAR146.MODPAL:=100003
017526	012765	140003	000170	MOV    	#140003, 000170(R5)	; VAR162.MODPAL:=140003
017534	012765	100002	000204	MOV    	#100002, 000204(R5)	; VAR176.MODPAL:=100002
017542	012765	140002	000220	MOV    	#140002, 000220(R5)	; VAR212.MODPAL:=140002
017550	010500			MOV    	R5, R0
017552	062700	000132		ADD    	#000132, R0
017556	010046			MOV    	R0, -(SP)
017560	004767	161604		CALL   	001370			; L01370(VAR132)
017564	010500			MOV    	R5, R0
017566	062700	000146		ADD    	#000146, R0
017572	010046			MOV    	R0, -(SP)
017574	004767	161570		CALL   	001370			; L01370(VAR146)
017600	010500			MOV    	R5, R0
017602	062700	000162		ADD    	#000162, R0
017606	010046			MOV    	R0, -(SP)
017610	004767	161554		CALL   	001370			; L01370(VAR162)
017614	010500			MOV    	R5, R0
017616	062700	000176		ADD    	#000176, R0
017622	010046			MOV    	R0, -(SP)
017624	004767	161540		CALL   	001370			; L01370(VAR176)
017630	010500			MOV    	R5, R0
017632	062700	000212		ADD    	#000212, R0
017636	010046			MOV    	R0, -(SP)
017640	004767	161524		CALL   	001370			; L01370(VAR212)
017644	010503			MOV    	R5, R3
017646	062703	000362		ADD    	#000362, R3		; WITH	VAR362
017652	005063	000002		CLR    	000002(R3)		; (VAR362).WNUM:=0
017656	012763	001002	000022	MOV    	#001002, 000022(R3)	; (VAR362).DEN:=1002
017664	012763	000024	000012	MOV    	#000024, 000012(R3)	; (VAR362).SY1:=24
017672	012763	000330	000014	MOV    	#000330, 000014(R3)	; (VAR362).SY2:=330
017700	012763	000006	000016	MOV    	#000006, 000016(R3)	; (VAR362).SX1:=6
017706	012763	000025	000020	MOV    	#000025, 000020(R3)	; (VAR362).SX2:=25
017714	005063	000006		CLR    	000006(R3)		; (VAR362).ARY:=0
017720	005063	000010		CLR    	000010(R3)		; (VAR362).ARX:=0
017724	010500			MOV    	R5, R0
017726	062700	000362		ADD    	#000362, R0
017732	010501			MOV    	R5, R1
017734	062701	000336		ADD    	#000336, R1
017740	012702	000012		MOV    	#000012, R2
017744	012021			MOV    	(R0)+, (R1)+		; VAR336:=VAR362
017746	005302			DEC    	R2
017750	001375			BNE    	017744
017752	010500			MOV    	R5, R0
017754	062700	000362		ADD    	#000362, R0
017760	010501			MOV    	R5, R1
017762	062701	000406		ADD    	#000406, R1
017766	012702	000012		MOV    	#000012, R2
017772	012021			MOV    	(R0)+, (R1)+		; VAR406:=VAR362
017774	005302			DEC    	R2
017776	001375			BNE    	017772
020000	010500			MOV    	R5, R0
020002	062700	000362		ADD    	#000362, R0
020006	010501			MOV    	R5, R1
020010	062701	000432		ADD    	#000432, R1
020014	012702	000012		MOV    	#000012, R2
020020	012021			MOV    	(R0)+, (R1)+		; VAR432:=VAR362
020022	005302			DEC    	R2
020024	001375			BNE    	020020
020026	010500			MOV    	R5, R0
020030	062700	000362		ADD    	#000362, R0
020034	010501			MOV    	R5, R1
020036	062701	000456		ADD    	#000456, R1
020042	012702	000012		MOV    	#000012, R2
020046	012021			MOV    	(R0)+, (R1)+		; VAR456:=VAR362
020050	005302			DEC    	R2
020052	001375			BNE    	020046
020054	012765	000010	000416	MOV    	#000010, 000416(R5)	; VAR406.ARX:=10
020062	012765	000004	000466	MOV    	#000004, 000466(R5)	; VAR456.ARX:=4
020070	005265	000476		INC    	000476(R5)		; VAR456.SX2:=VAR456.SX2+1
020074	016565	000132	000342	MOV    	000132(R5), 000342(R5)	; VAR336.AREA:=VAR132.ANUM
020102	016565	000146	000366	MOV    	000146(R5), 000366(R5)	; VAR362.AREA:=VAR146.ANUM
020110	016565	000162	000412	MOV    	000162(R5), 000412(R5)	; VAR406.AREA:=VAR162.ANUM
020116	016565	000176	000436	MOV    	000176(R5), 000436(R5)	; VAR432.AREA:=VAR176.ANUM
020124	016565	000212	000462	MOV    	000212(R5), 000462(R5)	; VAR456.AREA:=VAR212.ANUM
020132	005066	000006		CLR    	000006(SP)		; 4(SP).WNUM:=0
020136	010500			MOV    	R5, R0
020140	062700	000362		ADD    	#000362, R0
020144	010046			MOV    	R0, -(SP)
020146	010600			MOV    	SP, R0
020150	062700	000006		ADD    	#000006, R0
020154	010046			MOV    	R0, -(SP)
020156	012746	000001		MOV    	#000001, -(SP)
020162	004767	164240		CALL   	004426			; L04426(VAR362,4(SP),1)
020166	010500			MOV    	R5, R0
020170	062700	000336		ADD    	#000336, R0
020174	010046			MOV    	R0, -(SP)
020176	004767	162046		CALL   	002250			; L02250(VAR336)
020202	010500			MOV    	R5, R0
020204	062700	000456		ADD    	#000456, R0
020210	010046			MOV    	R0, -(SP)
020212	004767	162032		CALL   	002250			; L02250(VAR456)
020216	010500			MOV    	R5, R0
020220	062700	000432		ADD    	#000432, R0
020224	010046			MOV    	R0, -(SP)
020226	004767	162016		CALL   	002250			; L02250(VAR432)
020232	010500			MOV    	R5, R0
020234	062700	000406		ADD    	#000406, R0
020240	010046			MOV    	R0, -(SP)
020242	004767	162002		CALL   	002250			; L02250(VAR406)
020246	010500			MOV    	R5, R0
020250	062700	000362		ADD    	#000362, R0
020254	010046			MOV    	R0, -(SP)
020256	004767	161766		CALL   	002250			; L02250(VAR362)
020262	162706	000012		SUB    	#000012, SP
020266	012700	020764		MOV    	#020764, R0
020272	010601			MOV    	SP, R1
020274	012702	000005		MOV    	#000005, R2
020300	012021			MOV    	(R0)+, (R1)+
020302	005302			DEC    	R2
020304	001375			BNE    	020300
020306	162706	000014		SUB    	#000014, SP
020312	010500			MOV    	R5, R0
020314	062700	000146		ADD    	#000146, R0
020320	010601			MOV    	SP, R1
020322	012702	000006		MOV    	#000006, R2
020326	012021			MOV    	(R0)+, (R1)+
020330	005302			DEC    	R2
020332	001375			BNE    	020326
020334	004767	166104		CALL   	006444			; L06444('  venus   ',VAR146)
020340	162706	000012		SUB    	#000012, SP
020344	012700	021000		MOV    	#021000, R0
020350	010601			MOV    	SP, R1
020352	012702	000005		MOV    	#000005, R2
020356	012021			MOV    	(R0)+, (R1)+
020360	005302			DEC    	R2
020362	001375			BNE    	020356
020364	162706	000014		SUB    	#000014, SP
020370	010500			MOV    	R5, R0
020372	062700	000162		ADD    	#000162, R0
020376	010601			MOV    	SP, R1
020400	012702	000006		MOV    	#000006, R2
020404	012021			MOV    	(R0)+, (R1)+
020406	005302			DEC    	R2
020410	001375			BNE    	020404
020412	004767	166026		CALL   	006444			; L06444('  GORILA  ',VAR162)
020416	010500			MOV    	R5, R0
020420	062700	000362		ADD    	#000362, R0
020424	010046			MOV    	R0, -(SP)
020426	012746	000454		MOV    	#000454, -(SP)
020432	004767	162774		CALL   	003432			; L03432(VAR362,454)
020436	162706	000012		SUB    	#000012, SP
020442	012700	021014		MOV    	#021014, R0
020446	010601			MOV    	SP, R1
020450	012702	000005		MOV    	#000005, R2
020454	012021			MOV    	(R0)+, (R1)+
020456	005302			DEC    	R2
020460	001375			BNE    	020454
020462	162706	000014		SUB    	#000014, SP
020466	010500			MOV    	R5, R0
020470	062700	000176		ADD    	#000176, R0
020474	010601			MOV    	SP, R1
020476	012702	000006		MOV    	#000006, R2
020502	012021			MOV    	(R0)+, (R1)+
020504	005302			DEC    	R2
020506	001375			BNE    	020502
020510	004767	165730		CALL   	006444			; L06444('  SATURN  ',VAR176)
020514	010500			MOV    	R5, R0
020516	062700	000406		ADD    	#000406, R0
020522	010046			MOV    	R0, -(SP)
020524	012746	000454		MOV    	#000454, -(SP)
020530	004767	162676		CALL   	003432			; L03432(VAR406,454)
020534	162706	000012		SUB    	#000012, SP
020540	012700	021030		MOV    	#021030, R0
020544	010601			MOV    	SP, R1
020546	012702	000005		MOV    	#000005, R2
020552	012021			MOV    	(R0)+, (R1)+
020554	005302			DEC    	R2
020556	001375			BNE    	020552
020560	162706	000014		SUB    	#000014, SP
020564	010500			MOV    	R5, R0
020566	062700	000212		ADD    	#000212, R0
020572	010601			MOV    	SP, R1
020574	012702	000006		MOV    	#000006, R2
020600	012021			MOV    	(R0)+, (R1)+
020602	005302			DEC    	R2
020604	001375			BNE    	020600
020606	004767	165632		CALL   	006444			; L06444('  CAR     ',VAR212)
020612	010500			MOV    	R5, R0
020614	062700	000432		ADD    	#000432, R0
020620	010046			MOV    	R0, -(SP)
020622	012746	000454		MOV    	#000454, -(SP)
020626	004767	162600		CALL   	003432			; L03432(VAR432,454)
020632	162706	000012		SUB    	#000012, SP
020636	012700	021044		MOV    	#021044, R0
020642	010601			MOV    	SP, R1
020644	012702	000005		MOV    	#000005, R2
020650	012021			MOV    	(R0)+, (R1)+
020652	005302			DEC    	R2
020654	001375			BNE    	020650
020656	010500			MOV    	R5, R0
020660	062700	000132		ADD    	#000132, R0
020664	010046			MOV    	R0, -(SP)
020666	004767	175626		CALL   	016520			; L16520('  SHAR    ',VAR132)
020672	010600			MOV    	SP, R0
020674	062700	000004		ADD    	#000004, R0
020700	010046			MOV    	R0, -(SP)
020702	004767	161372		CALL   	002300			; L02300(4(SP))
020706	010500			MOV    	R5, R0
020710	062700	000456		ADD    	#000456, R0
020714	010046			MOV    	R0, -(SP)
020716	012746	000454		MOV    	#000454, -(SP)
020722	004767	162504		CALL   	003432			; L03432(VAR456,454)
020726	012746	000005		MOV    	#000005, -(SP)
020732	004767	161652		CALL   	002610			; L02610(5)
020736	010500			MOV    	R5, R0
020740	062700	000336		ADD    	#000336, R0
020744	010046			MOV    	R0, -(SP)
020746	012746	000454		MOV    	#000454, -(SP)
020752	004767	162454		CALL   	003432			; L03432(VAR336,454)
020756	062706	000030		ADD    	#000030, SP
020762	000207			RETURN 	
--------------------------------------------------------------------
020764	020040	062566	072556	.ASCIZ	/  venus   /
	020163	020040	000000	.EVEN

021000	020040	047507	044522	.ASCIZ	/  GORILA  /
	040514	020040	000000	.EVEN

021014	020040	040523	052524	.ASCIZ	/  SATURN  /
	047122	020040	000000	.EVEN

021030	020040	040503	020122	.ASCIZ	/  CAR     /
	020040	020040	000000	.EVEN

021044	020040	044123	051101	.ASCIZ	/  SHAR    /
	020040	020040	000000	.EVEN
====================================================================
; PROCEDURE VAR 10(SP):WINTYP; 6(SP),4(SP):INTEGER (PUTWIN)
021060	011404			MOV    	(R4), R4
021062	011404			MOV    	(R4), R4
021064	011404			MOV    	(R4), R4
021066	011404			MOV    	(R4), R4
021070	011404			MOV    	(R4), R4
021072	011404			MOV    	(R4), R4
021074	011404			MOV    	(R4), R4
021076	011404			MOV    	(R4), R4
021100	011404			MOV    	(R4), R4
021102	010446			MOV    	R4, -(SP)
021104	016603	000010		MOV    	000010(SP), R3		; WITH 10(SP)
021110	016600	000006		MOV    	000006(SP), R0
021114	066300	000020		ADD    	000020(R3), R0
021120	166300	000016		SUB    	000016(R3), R0
021124	010063	000020		MOV    	R0, 000020(R3)		; (10(SP)).SX2:=6(SP)+(10(SP)).SX2-(10(SP)).SX1
021130	016663	000006	000016	MOV    	000006(SP), 000016(R3)	; (10(SP)).SX1:= 6(SP)
021136	016600	000004		MOV    	000004(SP), R0
021142	066300	000014		ADD    	000014(R3), R0
021146	166300	000012		SUB    	000012(R3), R0
021152	010063	000014		MOV    	R0, 000014(R3)		; (10(SP)).SY2:=4(SP)+(10(SP)).SY2-(10(SP)).SY1
021156	016663	000004	000012	MOV    	000004(SP), 000012(R3)	; (10(SP)).SY1:= 4(SP)
021164	016646	000010		MOV    	000010(SP), -(SP)
021170	004767	161054		CALL   	002250			; L02250(10(SP))
021174	016666	000002	000010	MOV    	000002(SP), 000010(SP)
021202	062706	000010		ADD    	#000010, SP
021206	000207			RETURN 	
=====-------======-------=======-------=======------======-----=====
; PROCEDURE (WINEXP)
021210	162706	000134		SUB    	#000134, SP ; VAR @SP,2(SP),4(SP),6(SP),10(SP),12(SP):INTEGER;
; 14(SP):WINTYP; 40(SP):ARRAY[1..3]OF WINTYP
021214	012746	000216		MOV    	#000216, -(SP)
021220	004767	163540		CALL   	004764			; L04764(216)
021224	010500			MOV    	R5, R0
021226	062700	000456		ADD    	#000456, R0
021232	010601			MOV    	SP, R1
021234	062701	000014		ADD    	#000014, R1
021240	012702	000012		MOV    	#000012, R2
021244	012021			MOV    	(R0)+, (R1)+		; 14(SP):=VAR456
021246	005302			DEC    	R2
021250	001375			BNE    	021244
021252	012700	025346		MOV    	#025346, R0
021256	010501			MOV    	R5, R1
021260	062701	000526		ADD    	#000526, R1
021264	012702	000012		MOV    	#000012, R2
021270	012021			MOV    	(R0)+, (R1)+		; VAR526:=' Njmn lnfmn         '
021272	005302			DEC    	R2
021274	001375			BNE    	021270
021276	012700	025374		MOV    	#025374, R0
021302	010501			MOV    	R5, R1
021304	062701	000552		ADD    	#000552, R1
021310	012702	000012		MOV    	#000012, R2
021314	012021			MOV    	(R0)+, (R1)+		; VAR552:=' oepeley`r|         '
021316	005302			DEC    	R2
021320	001375			BNE    	021314
021322	012700	025422		MOV    	#025422, R0
021326	010501			MOV    	R5, R1
021330	062701	000576		ADD    	#000576, R1
021334	012702	000012		MOV    	#000012, R2
021340	012021			MOV    	(R0)+, (R1)+		; VAR576:=' on }jp`ms          '
021342	005302			DEC    	R2
021344	001375			BNE    	021340
021346	004767	163646		CALL   	005220			; L05220
021352	012746	000003		MOV    	#000003, -(SP)
021356	004767	161226		CALL   	002610			; L02610(3)
021362	010604			MOV    	SP, R4
021364	010600			MOV    	SP, R0
021366	062700	000014		ADD    	#000014, R0
021372	010046			MOV    	R0, -(SP)
021374	012746	000033		MOV    	#000033, -(SP)
021400	005046			CLR    	-(SP)
021402	004767	177474		CALL   	021102			; L21102(14(SP),33,0)
021406	010600			MOV    	SP, R0
021410	062700	000014		ADD    	#000014, R0
021414	010046			MOV    	R0, -(SP)
021416	012746	177747		MOV    	#177747, -(SP)
021422	004767	161576		CALL   	003224			; L03224(14(SP),-31)
021426	010600			MOV    	SP, R0
021430	062700	000014		ADD    	#000014, R0
021434	010046			MOV    	R0, -(SP)
021436	012746	000454		MOV    	#000454, -(SP)
021442	004767	161764		CALL   	003432			; L03432(14(SP),454)
021446	010600			MOV    	SP, R0
021450	062700	000014		ADD    	#000014, R0
021454	010046			MOV    	R0, -(SP)
021456	012746	177324		MOV    	#177324, -(SP)
021462	004767	161744		CALL   	003432			; L03432(14(SP),-454)
021466	010600			MOV    	SP, R0
021470	062700	000014		ADD    	#000014, R0
021474	010046			MOV    	R0, -(SP)
021476	004767	160666		CALL   	002370			; L02370(14(SP))
021502	010600			MOV    	SP, R0
021504	062700	000014		ADD    	#000014, R0
021510	010046			MOV    	R0, -(SP)
021512	012746	000454		MOV    	#000454, -(SP)
021516	004767	161710		CALL   	003432			; L03432(14(SP),454)
021522	010600			MOV    	SP, R0
021524	062700	000014		ADD    	#000014, R0
021530	010046			MOV    	R0, -(SP)
021532	012746	177324		MOV    	#177324, -(SP)
021536	004767	161670		CALL   	003432			; L03432(14(SP),-454)
021542	010600			MOV    	SP, R0
021544	062700	000014		ADD    	#000014, R0
021550	010046			MOV    	R0, -(SP)
021552	012746	000031		MOV    	#000031, -(SP)
021556	004767	161442		CALL   	003224			; L03224(14(SP),31)
021562	010604			MOV    	SP, R4
021564	010600			MOV    	SP, R0
021566	062700	000014		ADD    	#000014, R0
021572	010046			MOV    	R0, -(SP)
021574	012746	000033		MOV    	#000033, -(SP)
021600	012746	000454		MOV    	#000454, -(SP)
021604	004767	177272		CALL   	021102			; L21102(14(SP),33,454)
021610	004767	164442		CALL   	006256			; L06256
021614	010500			MOV    	R5, R0
021616	062700	000362		ADD    	#000362, R0
021622	010601			MOV    	SP, R1
021624	062701	000014		ADD    	#000014, R1
021630	012702	000012		MOV    	#000012, R2
021634	012021			MOV    	(R0)+, (R1)+		; 14(SP):=VAR362
021636	005302			DEC    	R2
021640	001375			BNE    	021634
021642	012700	025450		MOV    	#025450, R0
021646	010501			MOV    	R5, R1
021650	062701	000526		ADD    	#000526, R1
021654	012702	000012		MOV    	#000012, R2
021660	012021			MOV    	(R0)+, (R1)+		; VAR526:=' Lnfmn hglemhr|     '
021662	005302			DEC    	R2
021664	001375			BNE    	021660
021666	012700	025476		MOV    	#025476, R0
021672	010501			MOV    	R5, R1
021674	062701	000552		ADD    	#000552, R1
021700	012702	000012		MOV    	#000012, R2
021704	012021			MOV    	(R0)+, (R1)+		; VAR552:=' p`glep             '
021706	005302			DEC    	R2
021710	001375			BNE    	021704
021712	012700	025524		MOV    	#025524, R0
021716	010501			MOV    	R5, R1
021720	062701	000576		ADD    	#000576, R1
021724	012702	000012		MOV    	#000012, R2
021730	012021			MOV    	(R0)+, (R1)+		; VAR576:=' njm`               '
021732	005302			DEC    	R2
021734	001375			BNE    	021730
021736	004767	163256		CALL   	005220			; L05220
021742	012746	000003		MOV    	#000003, -(SP)
021746	004767	160636		CALL   	002610			; L02610(3)
021752	010600			MOV    	SP, R0
021754	062700	000014		ADD    	#000014, R0
021760	010046			MOV    	R0, -(SP)
021762	004767	160402		CALL   	002370			; L02370(14(SP))
021766	010604			MOV    	SP, R4
021770	010600			MOV    	SP, R0
021772	062700	000014		ADD    	#000014, R0
021776	010046			MOV    	R0, -(SP)
022000	012746	000006		MOV    	#000006, -(SP)
022004	012746	000024		MOV    	#000024, -(SP)
022010	004767	177066		CALL   	021102			; L21102(14(SP),6,24)
022014	010600			MOV    	SP, R0
022016	010046			MOV    	R0, -(SP)		; FOR @SP:=1 TO 61
022020	012746	000001		MOV    	#000001, -(SP)
022024	012746	000061		MOV    	#000061, -(SP)
022030	016676	000002	000004	MOV    	000002(SP), @000004(SP)
022036	027616	000004		CMP    	@000004(SP), (SP)
022042	003402			BLE    	022050
022044	000167	000042		JMP    	022112
022050	062766	000004	000034	ADD    	#000004, 000034(SP)	; 14(SP).SY1:=14(SP).SY1+4
022056	062766	000004	000030	ADD    	#000004, 000030(SP)	; 14(SP).ARY:=14(SP).ARY+4
022064	010600			MOV    	SP, R0
022066	062700	000022		ADD    	#000022, R0
022072	010046			MOV    	R0, -(SP)
022074	004767	160150		CALL   	002250			; L02250(14(SP))
022100	005276	000004		INC    	@000004(SP)		; NEXT @SP
022104	102402			BVS    	022112
022106	000167	177724		JMP    	022036
022112	062706	000006		ADD    	#000006, SP		; END FOR @SP
022116	010600			MOV    	SP, R0
022120	010046			MOV    	R0, -(SP)		; FOR @SP:=1 TO 61
022122	012746	000001		MOV    	#000001, -(SP)
022126	012746	000061		MOV    	#000061, -(SP)
022132	016676	000002	000004	MOV    	000002(SP), @000004(SP)
022140	027616	000004		CMP    	@000004(SP), (SP)
022144	003402			BLE    	022152
022146	000167	000042		JMP    	022214
022152	062766	177774	000034	ADD    	#177774, 000034(SP)	; 14(SP).SY1:=14(SP).SY1-4
022160	062766	177774	000030	ADD    	#177774, 000030(SP)	; 14(SP).ARY:=14(SP).ARY-4
022166	010600			MOV    	SP, R0
022170	062700	000022		ADD    	#000022, R0
022174	010046			MOV    	R0, -(SP)
022176	004767	160046		CALL   	002250			; L02250(14(SP))
022202	005276	000004		INC    	@000004(SP)		; NEXT @SP
022206	102402			BVS    	022214
022210	000167	177724		JMP    	022140
022214	062706	000006		ADD    	#000006, SP		; END FOR @SP
022220	010600			MOV    	SP, R0
022222	010046			MOV    	R0, -(SP)		; FOR @SP:=1 TO 61
022224	012746	000001		MOV    	#000001, -(SP)
022230	012746	000061		MOV    	#000061, -(SP)
022234	016676	000002	000004	MOV    	000002(SP), @000004(SP)
022242	027616	000004		CMP    	@000004(SP), (SP)
022246	003402			BLE    	022254
022250	000167	000034		JMP    	022310
022254	062766	177774	000036	ADD    	#177774, 000036(SP)	; 14(SP).SY2:=14(SP).SY2-4
022262	010600			MOV    	SP, R0
022264	062700	000022		ADD    	#000022, R0
022270	010046			MOV    	R0, -(SP)
022272	004767	157752		CALL   	002250			; L02250(14(SP))
022276	005276	000004		INC    	@000004(SP)		; NEXT @SP
022302	102402			BVS    	022310
022304	000167	177732		JMP    	022242
022310	062706	000006		ADD    	#000006, SP		; END FOR @SP
022314	010600			MOV    	SP, R0
022316	010046			MOV    	R0, -(SP)		; FOR @SP:=1 TO 61
022320	012746	000001		MOV    	#000001, -(SP)
022324	012746	000061		MOV    	#000061, -(SP)
022330	016676	000002	000004	MOV    	000002(SP), @000004(SP)
022336	027616	000004		CMP    	@000004(SP), (SP)
022342	003402			BLE    	022350
022344	000167	000034		JMP    	022404
022350	062766	000004	000036	ADD    	#000004, 000036(SP)	; 14(SP).SY2:=14(SP).SY2+4
022356	010600			MOV    	SP, R0
022360	062700	000022		ADD    	#000022, R0
022364	010046			MOV    	R0, -(SP)
022366	004767	157656		CALL   	002250			; L02250(14(SP))
022372	005276	000004		INC    	@000004(SP)		; NEXT @SP
022376	102402			BVS    	022404
022400	000167	177732		JMP    	022336
022404	062706	000006		ADD    	#000006, SP		; END FOR @SP
022410	010600			MOV    	SP, R0
022412	010046			MOV    	R0, -(SP)		; FOR @SP:=1 TO 20
022414	012746	000001		MOV    	#000001, -(SP)
022420	012746	000020		MOV    	#000020, -(SP)
022424	016676	000002	000004	MOV    	000002(SP), @000004(SP)
022432	027616	000004		CMP    	@000004(SP), (SP)
022436	003402			BLE    	022444
022440	000167	000040		JMP    	022504
022444	005266	000040		INC    	000040(SP)		; 14(SP).SX1:=14(SP).SX1+1
022450	062766	000010	000032	ADD    	#000010, 000032(SP)	; 14(SP).ARX:=14(SP).ARX+10
022456	010600			MOV    	SP, R0
022460	062700	000022		ADD    	#000022, R0
022464	010046			MOV    	R0, -(SP)
022466	004767	157556		CALL   	002250			; L02250(14(SP))
022472	005276	000004		INC    	@000004(SP)		; NEXT @SP
022476	102402			BVS    	022504
022500	000167	177726		JMP    	022432
022504	062706	000006		ADD    	#000006, SP		; END FOR @SP
022510	010600			MOV    	SP, R0
022512	010046			MOV    	R0, -(SP)		; FOR @SP:=1 TO 20
022514	012746	000001		MOV    	#000001, -(SP)
022520	012746	000020		MOV    	#000020, -(SP)
022524	016676	000002	000004	MOV    	000002(SP), @000004(SP)
022532	027616	000004		CMP    	@000004(SP), (SP)
022536	003402			BLE    	022544
022540	000167	000040		JMP    	022604
022544	005366	000040		DEC    	000040(SP)		; 14(SP).SX1:=14(SP).SX1-1
022550	062766	177770	000032	ADD    	#177770, 000032(SP)	; 14(SP).ARX:=14(SP).ARX-10
022556	010600			MOV    	SP, R0
022560	062700	000022		ADD    	#000022, R0
022564	010046			MOV    	R0, -(SP)
022566	004767	157456		CALL   	002250			; L02250(14(SP))
022572	005276	000004		INC    	@000004(SP)		; NEXT @SP
022576	102402			BVS    	022604
022600	000167	177726		JMP    	022532
022604	062706	000006		ADD    	#000006, SP		; END FOR @SP
022610	010600			MOV    	SP, R0
022612	010046			MOV    	R0, -(SP)		; FOR @SP:=1 TO 20
022614	012746	000001		MOV    	#000001, -(SP)
022620	012746	000020		MOV    	#000020, -(SP)
022624	016676	000002	000004	MOV    	000002(SP), @000004(SP)
022632	027616	000004		CMP    	@000004(SP), (SP)
022636	003402			BLE    	022644
022640	000167	000032		JMP    	022676
022644	005366	000042		DEC    	000042(SP)		; 14(SP).SX2:=14(SP).SX2-1
022650	010600			MOV    	SP, R0
022652	062700	000022		ADD    	#000022, R0
022656	010046			MOV    	R0, -(SP)
022660	004767	157364		CALL   	002250			; L02250(14(SP))
022664	005276	000004		INC    	@000004(SP)		; NEXT @SP
022670	102402			BVS    	022676
022672	000167	177734		JMP    	022632
022676	062706	000006		ADD    	#000006, SP		; END FOR @SP
022702	010600			MOV    	SP, R0
022704	010046			MOV    	R0, -(SP)		; FOR @SP:=1 TO 20
022706	012746	000001		MOV    	#000001, -(SP)
022712	012746	000020		MOV    	#000020, -(SP)
022716	016676	000002	000004	MOV    	000002(SP), @000004(SP)
022724	027616	000004		CMP    	@000004(SP), (SP)
022730	003402			BLE    	022736
022732	000167	000032		JMP    	022770
022736	005266	000042		INC    	000042(SP)		; 14(SP).SX2:=14(SP).SX2+1
022742	010600			MOV    	SP, R0
022744	062700	000022		ADD    	#000022, R0
022750	010046			MOV    	R0, -(SP)
022752	004767	157272		CALL   	002250			; L02250(14(SP))
022756	005276	000004		INC    	@000004(SP)		; NEXT @SP
022762	102402			BVS    	022770
022764	000167	177734		JMP    	022724
022770	062706	000006		ADD    	#000006, SP		; END FOR @SP
022774	010604			MOV    	SP, R4
022776	010600			MOV    	SP, R0
023000	062700	000014		ADD    	#000014, R0
023004	010046			MOV    	R0, -(SP)
023006	012746	000033		MOV    	#000033, -(SP)
023012	012746	000454		MOV    	#000454, -(SP)
023016	004767	176060		CALL   	021102			; L21102(14(SP),33,454)
023022	004767	163230		CALL   	006256			; L06256
023026	010500			MOV    	R5, R0
023030	062700	000406		ADD    	#000406, R0
023034	010601			MOV    	SP, R1
023036	062701	000014		ADD    	#000014, R1
023042	012702	000012		MOV    	#000012, R2
023046	012021			MOV    	(R0)+, (R1)+		; 14(SP):=VAR406
023050	005302			DEC    	R2
023052	001375			BNE    	023046
023054	012700	025552		MOV    	#025552, R0
023060	010501			MOV    	R5, R1
023062	062701	000526		ADD    	#000526, R1
023066	012702	000012		MOV    	#000012, R2
023072	012021			MOV    	(R0)+, (R1)+		; VAR526:=' Lnfmn hglemhr|     '
023074	005302			DEC    	R2
023076	001375			BNE    	023072
023100	012700	025600		MOV    	#025600, R0
023104	010501			MOV    	R5, R1
023106	062701	000552		ADD    	#000552, R1
023112	012702	000012		MOV    	#000012, R2
023116	012021			MOV    	(R0)+, (R1)+		; VAR552:=' l`qxr`a oknqjnqrh  '
023120	005302			DEC    	R2
023122	001375			BNE    	023116
023124	012700	025626		MOV    	#025626, R0
023130	010501			MOV    	R5, R1
023132	062701	000576		ADD    	#000576, R1
023136	012702	000012		MOV    	#000012, R2
023142	012021			MOV    	(R0)+, (R1)+		; VAR576:=' b njme             '
023144	005302			DEC    	R2
023146	001375			BNE    	023142
023150	004767	162044		CALL   	005220			; L05220
023154	012746	000003		MOV    	#000003, -(SP)
023160	004767	157424		CALL   	002610			; L02610(3)
023164	010600			MOV    	SP, R0
023166	062700	000014		ADD    	#000014, R0
023172	010046			MOV    	R0, -(SP)
023174	004767	157170		CALL   	002370			; L02370(14(SP))
023200	010604			MOV    	SP, R4
023202	010600			MOV    	SP, R0
023204	062700	000014		ADD    	#000014, R0
023210	010046			MOV    	R0, -(SP)
023212	012746	000006		MOV    	#000006, -(SP)
023216	012746	000024		MOV    	#000024, -(SP)
023222	004767	175654		CALL   	021102			; L21102(14(SP),6,24)
023226	010600			MOV    	SP, R0
023230	010046			MOV    	R0, -(SP)		; FOR @SP:=2 DOWNTO 0
023232	012746	000002		MOV    	#000002, -(SP)
023236	005046			CLR    	-(SP)
023240	016676	000002	000004	MOV    	000002(SP), @000004(SP)
023246	027616	000004		CMP    	@000004(SP), (SP)
023252	002002			BGE    	023260
023254	000167	000220		JMP    	023500
023260	010600			MOV    	SP, R0
023262	062700	000010		ADD    	#000010, R0		; FOR 2(SP):=2 DOWNTO 0
023266	010046			MOV    	R0, -(SP)
023270	012746	000002		MOV    	#000002, -(SP)
023274	005046			CLR    	-(SP)
023276	016676	000002	000004	MOV    	000002(SP), @000004(SP)
023304	027616	000004		CMP    	@000004(SP), (SP)
023310	002002			BGE    	023316
023312	000167	000144		JMP    	023462
023316	026627	000016	000002	CMP    	000016(SP), #000002	; IF 2(SP)=2
023324	001402			BEQ    	023332
023326	000167	000010		JMP    	023342
023332	005066	000040		CLR    	000040(SP)		; THEN ; 14(SP).ARX:=0
023336	000167	000006		JMP    	023350
023342	012766	000054	000040	MOV    	#000054, 000040(SP)	; ELSE ; 14(SP).ARX:=54 ; END IF
023350	026627	000014	000002	CMP    	000014(SP), #000002	; IF @SP=2
023356	001402			BEQ    	023364
023360	000167	000010		JMP    	023374
023364	005066	000036		CLR    	000036(SP)		; THEN ; 14(SP).ARY:=0
023370	000167	000006		JMP    	023402
023374	012766	000110	000036	MOV    	#000110, 000036(SP)	; ELSE ; 14(SP).ARY:=110 ; END IF
023402	016600	000014		MOV    	000014(SP), R0
023406	000300			SWAB   	R0
023410	042700	000377		BIC    	#000377, R0
023414	066600	000016		ADD    	000016(SP), R0
023420	010066	000052		MOV    	R0, 000052(SP)		; 14(SP).DEN:=@SP*256+2(SP)
023424	010600			MOV    	SP, R0
023426	062700	000030		ADD    	#000030, R0
023432	010046			MOV    	R0, -(SP)
023434	004767	156610		CALL   	002250			; L02250(14(SP)
023440	012746	000002		MOV    	#000002, -(SP)
023444	004767	157140		CALL   	002610			; L02610(2)
023450	005376	000004		DEC    	@000004(SP)		; PREV 2(SP)
023454	102402			BVS    	023462
023456	000167	177622		JMP    	023304
023462	062706	000006		ADD    	#000006, SP		; END FOR 2(SP)
023466	005376	000004		DEC    	@000004(SP)		; PREV	@SP
023472	102402			BVS    	023500
023474	000167	177546		JMP    	023246
023500	062706	000006		ADD    	#000006, SP		; END FOR @SP
023504	010604			MOV    	SP, R4
023506	010600			MOV    	SP, R0
023510	062700	000014		ADD    	#000014, R0
023514	010046			MOV    	R0, -(SP)
023516	012746	000033		MOV    	#000033, -(SP)
023522	012746	000454		MOV    	#000454, -(SP)
023526	004767	175350		CALL   	021102			; L21102(14(SP),33,454)
023532	004767	162520		CALL   	006256			; L06256
023536	010500			MOV    	R5, R0
023540	062700	000362		ADD    	#000362, R0
023544	010601			MOV    	SP, R1
023546	062701	000014		ADD    	#000014, R1
023552	012702	000012		MOV    	#000012, R2
023556	012021			MOV    	(R0)+, (R1)+		; 14(SP):=VAR362
023560	005302			DEC    	R2
023562	001375			BNE    	023556
023564	012700	025654		MOV    	#025654, R0
023570	010501			MOV    	R5, R1
023572	062701	000526		ADD    	#000526, R1
023576	012702	000012		MOV    	#000012, R2
023602	012021			MOV    	(R0)+, (R1)+		; VAR526:=' Lnfmn dbhc`r|      '
023604	005302			DEC    	R2
023606	001375			BNE    	023602
023610	012700	025702		MOV    	#025702, R0
023614	010501			MOV    	R5, R1
023616	062701	000552		ADD    	#000552, R1
023622	012702	000012		MOV    	#000012, R2
023626	012021			MOV    	(R0)+, (R1)+		; VAR552:=' oknqjnqr|          '
023630	005302			DEC    	R2
023632	001375			BNE    	023626
023634	012700	025730		MOV    	#025730, R0
023640	010501			MOV    	R5, R1
023642	062701	000576		ADD    	#000576, R1
023646	012702	000012		MOV    	#000012, R2
023652	012021			MOV    	(R0)+, (R1)+		; VAR576:=' b njme             '
023654	005302			DEC    	R2
023656	001375			BNE    	023652
023660	004767	161334		CALL   	005220			; L05220
023664	012746	000003		MOV    	#000003, -(SP)
023670	004767	156714		CALL   	002610			; L02610(3)
023674	010600			MOV    	SP, R0
023676	062700	000014		ADD    	#000014, R0
023702	010046			MOV    	R0, -(SP)
023704	004767	156460		CALL   	002370			; L02370(14(SP))
023710	012766	000401	000036	MOV    	#000401, 000036(SP)	; 14(SP).DEN:=401
023716	010604			MOV    	SP, R4
023720	010600			MOV    	SP, R0
023722	062700	000014		ADD    	#000014, R0
023726	010046			MOV    	R0, -(SP)
023730	012746	000006		MOV    	#000006, -(SP)
023734	012746	000024		MOV    	#000024, -(SP)
023740	004767	175136		CALL   	021102			; L21102(14(SP),6,24)
023744	012766	000132	000022	MOV    	#000132, 000022(SP)	; 14(SP).ARY:=132
023752	010600			MOV    	SP, R0
023754	010046			MOV    	R0, -(SP)		; FOR @SP:=1 TO 24
023756	012746	000001		MOV    	#000001, -(SP)
023762	012746	000024		MOV    	#000024, -(SP)
023766	016676	000002	000004	MOV    	000002(SP), @000004(SP)
023774	027616	000004		CMP    	@000004(SP), (SP)
024000	003402			BLE    	024006
024002	000167	000044		JMP    	024052
024006	062766	000004	000032	ADD    	#000004, 000032(SP)	; 14(SP).ARX:=14(SP).ARX+4
024014	010600			MOV    	SP, R0
024016	062700	000022		ADD    	#000022, R0
024022	010046			MOV    	R0, -(SP)
024024	004767	156220		CALL   	002250			; L02250(14(SP))
024030	012746	003410		MOV    	#003410, -(SP)
024034	004767	156444		CALL   	002504			; L02504(3410)
024040	005276	000004		INC    	@000004(SP)		; NEXT @SP
024044	102402			BVS    	024052
024046	000167	177722		JMP    	023774
024052	062706	000006		ADD    	#000006, SP		; END FOR @SP
024056	010600			MOV    	SP, R0
024060	010046			MOV    	R0, -(SP)		; FOR @SP:=1 TO 24
024062	012746	000001		MOV    	#000001, -(SP)
024066	012746	000024		MOV    	#000024, -(SP)
024072	016676	000002	000004	MOV    	000002(SP), @000004(SP)
024100	027616	000004		CMP    	@000004(SP), (SP)
024104	003402			BLE    	024112
024106	000167	000044		JMP    	024156
024112	062766	177774	000032	ADD    	#177774, 000032(SP)	; 14(SP).ARX:=14(SP).ARX-4
024120	010600			MOV    	SP, R0
024122	062700	000022		ADD    	#000022, R0
024126	010046			MOV    	R0, -(SP)
024130	004767	156114		CALL   	002250			; L02250(14(SP))
024134	012746	003410		MOV    	#003410, -(SP)
024140	004767	156340		CALL   	002504			; L02504(3410)
024144	005276	000004		INC    	@000004(SP)		; NEXT @SP
024150	102402			BVS    	024156
024152	000167	177722		JMP    	024100
024156	062706	000006		ADD    	#000006, SP		; END FOR @SP
024162	005066	000022		CLR    	000022(SP)		; 14(SP).ARY:=0
024166	010600			MOV    	SP, R0
024170	010046			MOV    	R0, -(SP)		; FOR @SP:=1 TO 144
024172	012746	000001		MOV    	#000001, -(SP)
024176	012746	000144		MOV    	#000144, -(SP)
024202	016676	000002	000004	MOV    	000002(SP), @000004(SP)
024210	027616	000004		CMP    	@000004(SP), (SP)
024214	003402			BLE    	024222
024216	000167	000032		JMP    	024254
024222	005266	000030		INC    	000030(SP)		; 14(SP).ARY:=14(SP).ARY+1
024226	010600			MOV    	SP, R0
024230	062700	000022		ADD    	#000022, R0
024234	010046			MOV    	R0, -(SP)
024236	004767	156006		CALL   	002250			; L02250(14(SP))
024242	005276	000004		INC    	@000004(SP)		; NEXT @SP
024246	102402			BVS    	024254
024250	000167	177734		JMP    	024210
024254	062706	000006		ADD    	#000006, SP		; END FOR @SP
024260	010600			MOV    	SP, R0
024262	010046			MOV    	R0, -(SP)		; FOR @SP:=1 TO 144
024264	012746	000001		MOV    	#000001, -(SP)
024270	012746	000144		MOV    	#000144, -(SP)
024274	016676	000002	000004	MOV    	000002(SP), @000004(SP)
024302	027616	000004		CMP    	@000004(SP), (SP)
024306	003402			BLE    	024314
024310	000167	000032		JMP    	024346
024314	005366	000030		DEC    	000030(SP)		; 14(SP).ARY:=14(SP).ARY+1
024320	010600			MOV    	SP, R0
024322	062700	000022		ADD    	#000022, R0
024326	010046			MOV    	R0, -(SP)
024330	004767	155714		CALL   	002250			; L02250(14(SP))
024334	005276	000004		INC    	@000004(SP)		; NEXT @SP
024340	102402			BVS    	024346
024342	000167	177734		JMP    	024302
024346	062706	000006		ADD    	#000006, SP		; END FOR @SP
024352	010604			MOV    	SP, R4
024354	010600			MOV    	SP, R0
024356	062700	000014		ADD    	#000014, R0
024362	010046			MOV    	R0, -(SP)
024364	012746	000033		MOV    	#000033, -(SP)
024370	012746	000454		MOV    	#000454, -(SP)
024374	004767	174502		CALL   	021102			; L21102(14(SP),33,454)
024400	004767	161652		CALL   	006256			; L06256
024404	010500			MOV    	R5, R0
024406	062700	000336		ADD    	#000336, R0
024412	010601			MOV    	SP, R1
024414	062701	000014		ADD    	#000014, R1
024420	012702	000012		MOV    	#000012, R2
024424	012021			MOV    	(R0)+, (R1)+		; 14(SP):=VAR336
024426	005302			DEC    	R2
024430	001375			BNE    	024424
024432	012700	025756		MOV    	#025756, R0
024436	010501			MOV    	R5, R1
024440	062701	000526		ADD    	#000526, R1
024444	012702	000012		MOV    	#000012, R2
024450	012021			MOV    	(R0)+, (R1)+		; VAR526:=' Lnfmn nrjp{r|      '
024452	005302			DEC    	R2
024454	001375			BNE    	024450
024456	012700	026004		MOV    	#026004, R0
024462	010501			MOV    	R5, R1
024464	062701	000552		ADD    	#000552, R1
024470	012702	000012		MOV    	#000012, R2
024474	012021			MOV    	(R0)+, (R1)+		; VAR552:=' meqjnk|jn njnm     '
024476	005302			DEC    	R2
024500	001375			BNE    	024474
024502	012700	026032		MOV    	#026032, R0
024506	010501			MOV    	R5, R1
024510	062701	000576		ADD    	#000576, R1
024514	012702	000012		MOV    	#000012, R2
024520	012021			MOV    	(R0)+, (R1)+		; VAR576:=' m` ndms oknqjnqr|  '
024522	005302			DEC    	R2
024524	001375			BNE    	024520
024526	004767	160466		CALL   	005220			; L05220
024532	012746	000003		MOV    	#000003, -(SP)
024536	004767	156046		CALL   	002610			; L02610(3)
024542	010603			MOV    	SP, R3
024544	062703	000014		ADD    	#000014, R3		; WITH 14(SP)
024550	062763	000002	000016	ADD    	#000002, 000016(R3)	; (14(SP)).SX1:=(14(SP)).SX1+2
024556	062763	177776	000020	ADD    	#177776, 000020(R3)	; (14(SP)).SX2:=(14(SP)).SX2-2
024564	062763	000020	000012	ADD    	#000020, 000012(R3)	; (14(SP)).SY1:=(14(SP)).SY1+20
024572	062763	177760	000014	ADD    	#177760, 000014(R3)	; (14(SP)).SY2:=(14(SP)).SY2-20
024600	012763	000020	000010	MOV    	#000020, 000010(R3)	; (14(SP)).ARX:=20
024606	012763	000020	000006	MOV    	#000020, 000006(R3)	; (14(SP)).ARY:=20
024614	010600			MOV    	SP, R0
024616	062700	000014		ADD    	#000014, R0
024622	010046			MOV    	R0, -(SP)
024624	004767	155540		CALL   	002370			; L02370(14(SP))
024630	010604			MOV    	SP, R4
024632	010600			MOV    	SP, R0
024634	062700	000014		ADD    	#000014, R0
024640	010046			MOV    	R0, -(SP)
024642	012746	000002		MOV    	#000002, -(SP)
024646	005046			CLR    	-(SP)
024650	004767	174226		CALL   	021102			; L21102(14(SP),2,0)
024654	010600			MOV    	SP, R0
024656	010046			MOV    	R0, -(SP)		; FOR @SP:=1 TO 3
024660	012746	000001		MOV    	#000001, -(SP)
024664	012746	000003		MOV    	#000003, -(SP)
024670	016676	000002	000004	MOV    	000002(SP), @000004(SP)
024676	027616	000004		CMP    	@000004(SP), (SP)
024702	003402			BLE    	024710
024704	000167	000102		JMP    	025012
024710	016646	000006		MOV    	000006(SP), -(SP)
024714	012746	000024		MOV    	#000024, -(SP)
024720	004767	012510		CALL   	037434	; $B116
024724	010600			MOV    	SP, R0
024726	062600			ADD    	(SP)+, R0
024730	010601			MOV    	SP, R1
024732	062701	000022		ADD    	#000022, R1
024736	062700	000024		ADD    	#000024, R0
024742	012702	000012		MOV    	#000012, R2
024746	012120			MOV    	(R1)+, (R0)+		; 40(SP)[@SP]:=14(SP)
024750	005302			DEC    	R2
024752	001375			BNE    	024746
024754	016646	000006		MOV    	000006(SP), -(SP)
024760	012746	000024		MOV    	#000024, -(SP)
024764	004767	012444		CALL   	037434	; $B116
024770	010600			MOV    	SP, R0
024772	062600			ADD    	(SP)+, R0
024774	005060	000026		CLR    	000026(R0)		; 40(SP)[@SP].WNUM:=0
025000	005276	000004		INC    	@000004(SP)		; NEXT @SP
025004	102402			BVS    	025012
025006	000167	177664		JMP    	024676
025012	062706	000006		ADD    	#000006, SP		; END FOR @SP
025016	010600			MOV    	SP, R0
025020	062700	000040		ADD    	#000040, R0
025024	010046			MOV    	R0, -(SP)
025026	004767	155216		CALL   	002250			; L02250(40(SP)[1])
025032	010600			MOV    	SP, R0
025034	062700	000040		ADD    	#000040, R0
025040	010046			MOV    	R0, -(SP)
025042	012746	000015		MOV    	#000015, -(SP)
025046	004767	156152		CALL   	003224			; L03224(40(SP)[1],15)
025052	010600			MOV    	SP, R0
025054	062700	000064		ADD    	#000064, R0
025060	010046			MOV    	R0, -(SP)
025062	004767	155162		CALL   	002250			; L02250(40(SP)[2])
025066	010600			MOV    	SP, R0
025070	062700	000064		ADD    	#000064, R0
025074	010046			MOV    	R0, -(SP)
025076	012746	000264		MOV    	#000264, -(SP)
025102	004767	156324		CALL   	003432			; L03432(40(SP)[2],264)
025106	010600			MOV    	SP, R0
025110	062700	000110		ADD    	#000110, R0
025114	010046			MOV    	R0, -(SP)
025116	004767	155126		CALL   	002250			; L02250(40(SP)[3])
025122	010600			MOV    	SP, R0
025124	062700	000110		ADD    	#000110, R0
025130	010046			MOV    	R0, -(SP)
025132	012746	000015		MOV    	#000015, -(SP)
025136	004767	156062		CALL   	003224			; L03224(40(SP)[3],15)
025142	010600			MOV    	SP, R0
025144	062700	000110		ADD    	#000110, R0
025150	010046			MOV    	R0, -(SP)
025152	012746	000264		MOV    	#000264, -(SP)
025156	004767	156250		CALL   	003432			; L03432(40(SP)[3],264)
025162	012746	000004		MOV    	#000004, -(SP)
025166	004767	155416		CALL   	002610			; L02610(4)
025172	010600			MOV    	SP, R0
025174	010046			MOV    	R0, -(SP)		; FOR @SP:=1 TO 3
025176	012746	000001		MOV    	#000001, -(SP)
025202	012746	000003		MOV    	#000003, -(SP)
025206	016676	000002	000004	MOV    	000002(SP), @000004(SP)
025214	027616	000004		CMP    	@000004(SP), (SP)
025220	003402			BLE    	025226
025222	000167	000044		JMP    	025272
025226	016646	000006		MOV    	000006(SP), -(SP)
025232	012746	000024		MOV    	#000024, -(SP)
025236	004767	012172		CALL   	037434	; $B116
025242	010600			MOV    	SP, R0
025244	062600			ADD    	(SP)+, R0
025246	062700	000024		ADD    	#000024, R0
025252	010046			MOV    	R0, -(SP)
025254	004767	155020		CALL   	002300			; L2300(40(SP)[@SP])
025260	005276	000004		INC    	@000004(SP)		; NEXT @SP
025264	102402			BVS    	025272
025266	000167	177722		JMP    	025214
025272	062706	000006		ADD    	#000006, SP		; END FOR @SP
025276	010604			MOV    	SP, R4
025300	010600			MOV    	SP, R0
025302	062700	000014		ADD    	#000014, R0
025306	010046			MOV    	R0, -(SP)
025310	012746	000033		MOV    	#000033, -(SP)
025314	012746	000454		MOV    	#000454, -(SP)
025320	004767	173556		CALL   	021102			; L21102(14(SP),33,454)
025324	004767	160726		CALL   	006256			; L06256
025330	012746	000216		MOV    	#000216, -(SP)
025334	004767	157262		CALL   	004622			; L04622(216)
025340	062706	000134		ADD    	#000134, SP
025344	000207			RETURN 	
--------------------------------------------------------------------
025346	047040	066552	020156	.ASCIZ	/ Njmn lnfmn         /
	067154	066546	020156	.EVEN
	020040	020040	020040
	020040	000000

025374	067440	070145	066145	.ASCIZ	/ oepeley`r|         /
	074545	071140	020174	.EVEN
	020040	020040	020040
	020040	000000

025422	067440	020156	065175	.ASCIZ	/ on }jp`ms          /
	060160	071555	020040	.EVEN
	020040	020040	020040
	020040	000000

025450	046040	063156	067155	.ASCIZ	/ Lnfmn hglemhr|     /
	064040	066147	066545	.EVEN
	071150	020174	020040
	020040	000000

025476	070040	063540	062554	.ASCIZ	/ p`glep             /
	020160	020040	020040	.EVEN
	020040	020040	020040
	020040	000000

025524	067040	066552	020140	.ASCIZ	/ njm`               /
	020040	020040	020040	.EVEN
	020040	020040	020040
	020040	000000

025552	046040	063156	067155	.ASCIZ	/ Lnfmn hglemhr|     /
	064040	066147	066545	.EVEN
	071150	020174	020040
	020040	000000

025600	066040	070540	071170	.ASCIZ	/ l`qxr`a oknqjnqrh  /
	060540	067440	067153	.EVEN
	065161	070556	064162
	020040	000000

025626	061040	067040	066552	.ASCIZ	/ b njme             /
	020145	020040	020040	.EVEN
	020040	020040	020040
	020040	000000

025654	046040	063156	067155	.ASCIZ	/ Lnfmn dbhc`r|      /
	062040	064142	060143	.EVEN
	076162	020040	020040
	020040	000000

025702	067440	067153	065161	.ASCIZ	/ oknqjnqr|          /
	070556	076162	020040	.EVEN
	020040	020040	020040
	020040	000000

05730	061040	067040	066552	.ASCIZ	/ b njme             /
	020145	020040	020040	.EVEN
	020040	020040	020040
	020040	000000

025756	046040	063156	067155	.ASCIZ	/ Lnfmn nrjp{r|      /
	067040	065162	075560	.EVEN
	076162	020040	020040
	020040	000000

026004	066440	070545	067152	.ASCIZ	/ meqjnk|jn njnm     /
	076153	067152	067040	.EVEN
	067152	020155	020040
	020040	000000

026032	066440	020140	062156	.ASCIZ	/ m` ndms oknqjnqr|  /
	071555	067440	067153	.EVEN
	065161	070556	076162
	020040	000000
====================================================================
; PROCEDURE VAR 2(SP):PALTYP (RAINBOWCOLORS)
026060	016603	000002		MOV    	000002(SP), R3		; WITH 2(SP)
026064	105063	000004		CLRB   	000004(R3)		; (2(SP)).C[0]:=0
026070	112763	000036	000005	MOVB   	#000036, 000005(R3)	; (2(SP)).C[1]:=36
026076	112763	000034	000006	MOVB   	#000034, 000006(R3)	; (2(SP)).C[2]:=34
026104	112763	000234	000007	MOVB   	#000234, 000007(R3)	; (2(SP)).C[3]:=234
026112	112763	000334	000010	MOVB   	#000334, 000010(R3)	; (2(SP)).C[4]:=334
026120	112763	000374	000011	MOVB   	#000374, 000011(R3)	; (2(SP)).C[5]:=374
026126	112763	000360	000012	MOVB   	#000360, 000012(R3)	; (2(SP)).C[6]:=360
026134	112763	000340	000013	MOVB   	#000340, 000013(R3)	; (2(SP)).C[7]:=340
026142	112763	000342	000014	MOVB   	#000342, 000014(R3)	; (2(SP)).C[10]:=342
026150	112763	000343	000015	MOVB   	#000343, 000015(R3)	; (2(SP)).C[11]:=343
026156	112763	000303	000016	MOVB   	#000303, 000016(R3)	; (2(SP)).C[12]:=303
026164	112763	000203	000017	MOVB   	#000203, 000017(R3)	; (2(SP)).C[13]:=203
026172	112763	000017	000020	MOVB   	#000017, 000020(R3)	; (2(SP)).C[14]:=17
026200	112763	000023	000021	MOVB   	#000023, 000021(R3)	; (2(SP)).C[15]:=23
026206	112763	000033	000022	MOVB   	#000033, 000022(R3)	; (2(SP)).C[16]:=33
026214	112763	000037	000023	MOVB   	#000037, 000023(R3)	; (2(SP)).C[17]:=37
026222	016646	000002		MOV    	000002(SP), -(SP)
026226	004767	152546		CALL   	001000			; L01000(2(SP))
026232	011666	000002		MOV    	(SP), 000002(SP)
026236	062706	000002		ADD    	#000002, SP
026242	000207			RETURN 	
====================================================================
; PROCEDURE VAR 16(SP):PALTYP; 14(SP),12(SP),10(SP):INTEGER; (PALROT)
026244	162706	000006		SUB    	#000006, SP ; VAR @SP,2(SP):INTEGER; 4(SP):CHAR;
026250	010600			MOV    	SP, R0
026252	062700	000002		ADD    	#000002, R0		; FOR 2(SP):=1 TO 12(SP)
026256	010046			MOV    	R0, -(SP)
026260	012746	000001		MOV    	#000001, -(SP)
026264	016646	000016		MOV    	000016(SP), -(SP)
026270	016676	000002	000004	MOV    	000002(SP), @000004(SP)
026276	027616	000004		CMP    	@000004(SP), (SP)
026302	003402			BLE    	026310
026304	000167	000154		JMP    	026464
026310	016646	000016		MOV    	000016(SP), -(SP)
026314	004767	154164		CALL   	002504			; L02504(10(SP))
026320	016603	000024		MOV    	000024(SP), R3		; WITH 16(SP)
026324	116366	000023	000012	MOVB   	000023(R3), 000012(SP)	; 4(SP):=(16(SP)).C[17]
026332	010600			MOV    	SP, R0
026334	062700	000006		ADD    	#000006, R0		; FOR @SP:=14(SP) DOWNTO 2
026340	010046			MOV    	R0, -(SP)
026342	016646	000024		MOV    	000024(SP), -(SP)
026346	012746	000002		MOV    	#000002, -(SP)
026352	016676	000002	000004	MOV    	000002(SP), @000004(SP)
026360	027616	000004		CMP    	@000004(SP), (SP)
026364	002002			BGE    	026372
026366	000167	000036		JMP    	026430
026372	010300			MOV    	R3, R0
026374	066600	000014		ADD    	000014(SP), R0
026400	016601	000014		MOV    	000014(SP), R1
026404	005301			DEC    	R1
026406	060301			ADD    	R3, R1
026410	116160	000004	000004	MOVB   	000004(R1), 000004(R0)	; (16(SP)).C[@SP]:=(16(SP)).C[@SP-1]
026416	005376	000004		DEC    	@000004(SP)		; PREV @SP
026422	102402			BVS    	026430
026424	000167	177730		JMP    	026360
026430	062706	000006		ADD    	#000006, SP		; END FOR @SP
026434	116663	000012	000005	MOVB   	000012(SP), 000005(R3)	; (16(SP)).C[1]:=4(SP)
026442	016646	000024		MOV    	000024(SP), -(SP)
026446	004767	152326		CALL   	001000			; L01000(16(SP))
026452	005276	000004		INC    	@000004(SP)		; NEXT 2(SP)
026456	102402			BVS    	026464
026460	000167	177612		JMP    	026276
026464	062706	000006		ADD    	#000006, SP		; END FOR 2(SP)
026470	016666	000006	000016	MOV    	000006(SP), 000016(SP)
026476	062706	000016		ADD    	#000016, SP
026502	000207			RETURN 	
====================================================================
; PROCEDURE (RAINBOW)
026504	162706	000052		SUB    	#000052, SP ; VAR @SP:PALTYP;
; 24(SP),26(SP),30(SP),32(SP),34(SP),36(SP):INTEGER; 40(SP),44(SP):REAL; 50(SP):CHAR;
026510	005065	000116		CLR    	000116(R5)		; VAR116.ANUM:=0
026514	012765	000334	000120	MOV    	#000334, 000120(R5)	; VAR116.LINS:=334
026522	012765	000240	000122	MOV    	#000240, 000122(R5)	; VAR116.SLIN:=240
026530	012765	000003	000124	MOV    	#000003, 000124(R5)	; VAR116.MODPAL:=3
026536	005065	000126		CLR    	000126(R5)		; VAR116.AMMR:=0
026542	010500			MOV    	R5, R0
026544	062700	000116		ADD    	#000116, R0
026550	010046			MOV    	R0, -(SP)
026552	004767	152612		CALL   	001370			; L01370(VAR116)
026556	016566	000124	000002	MOV    	000124(R5), 000002(SP)	; @SP.MODPAL:=VAR116.MODPAL
026564	010600			MOV    	SP, R0
026566	010046			MOV    	R0, -(SP)
026570	004767	177264		CALL   	026060			; L26060(@SP)
026574	010600			MOV    	SP, R0
026576	010046			MOV    	R0, -(SP)
026600	004767	152174		CALL   	001000			; L01000(@SP)
026604	016546	000116		MOV    	000116(R5), -(SP)
026610	012746	000002		MOV    	#000002, -(SP)
026614	012746	000010		MOV    	#000010, -(SP)
026620	012746	000012		MOV    	#000012, -(SP)
026624	012746	000003		MOV    	#000003, -(SP)
026630	162706	000024		SUB    	#000024, SP
026634	012700	030046		MOV    	#030046, R0
026640	010601			MOV    	SP, R1
026642	012702	000012		MOV    	#000012, R2
026646	012021			MOV    	(R0)+, (R1)+
026650	005302			DEC    	R2
026652	001375			BNE    	026646
026654	004767	154030		CALL   	002710			; L02710(VAR116.ANUM,2,10,12,3,'BQE.................')
026660	016546	000116		MOV    	000116(R5), -(SP)
026664	012746	000003		MOV    	#000003, -(SP)
026670	012746	000010		MOV    	#000010, -(SP)
026674	012746	000031		MOV    	#000031, -(SP)
026700	012746	000005		MOV    	#000005, -(SP)
026704	162706	000024		SUB    	#000024, SP
026710	012700	030074		MOV    	#030074, R0
026714	010601			MOV    	SP, R1
026716	012702	000012		MOV    	#000012, R2
026722	012021			MOV    	(R0)+, (R1)+
026724	005302			DEC    	R2
026726	001375			BNE    	026722
026730	004767	153754		CALL   	002710			; L02710(VAR116.ANUM,3,10,31,5,'VBER@...............')
026734	016546	000116		MOV    	000116(R5), -(SP)
026740	012746	000004		MOV    	#000004, -(SP)
026744	012746	000010		MOV    	#000010, -(SP)
026750	012746	000050		MOV    	#000050, -(SP)
026754	012746	000006		MOV    	#000006, -(SP)
026760	162706	000024		SUB    	#000024, SP
026764	012700	030122		MOV    	#030122, R0
026770	010601			MOV    	SP, R1
026772	012702	000012		MOV    	#000012, R2
026776	012021			MOV    	(R0)+, (R1)+
027000	005302			DEC    	R2
027002	001375			BNE    	026776
027004	004767	153700		CALL   	002710			; L02710(VAR116.ANUM,4,10,50,6,'P@DSCH..............')
027010	016546	000116		MOV    	000116(R5), -(SP)
027014	012746	000005		MOV    	#000005, -(SP)
027020	012746	000010		MOV    	#000010, -(SP)
027024	012746	000067		MOV    	#000067, -(SP)
027030	012746	000002		MOV    	#000002, -(SP)
027034	162706	000024		SUB    	#000024, SP
027040	012700	030150		MOV    	#030150, R0
027044	010601			MOV    	SP, R1
027046	012702	000012		MOV    	#000012, R2
027052	012021			MOV    	(R0)+, (R1)+
027054	005302			DEC    	R2
027056	001375			BNE    	027052
027060	004767	153624		CALL   	002710			; L02710(VAR116.ANUM,5,10,67,2,'M@..................')
027064	016546	000116		MOV    	000116(R5), -(SP)
027070	012746	000006		MOV    	#000006, -(SP)
027074	012746	000010		MOV    	#000010, -(SP)
027100	012746	000106		MOV    	#000106, -(SP)
027104	012746	000006		MOV    	#000006, -(SP)
027110	162706	000024		SUB    	#000024, SP
027114	012700	030176		MOV    	#030176, R0
027120	010601			MOV    	SP, R1
027122	012702	000012		MOV    	#000012, R2
027126	012021			MOV    	(R0)+, (R1)+
027130	005302			DEC    	R2
027132	001375			BNE    	027126
027134	004767	153550		CALL   	002710			; L02710(VAR116.ANUM,6,10,106,6,']JP@ME..............')
027140	010503			MOV    	R5, R3
027142	062703	000312		ADD    	#000312, R3		; WITH VAR312
027146	016563	000116	000004	MOV    	000116(R5), 000004(R3)	; (VAR312).AREA:=VAR116.ANUM
027154	005063	000002		CLR    	000002(R3)		; (VAR312).WNUM:=0
027160	012763	000400	000022	MOV    	#000400, 000022(R3)	; (VAR312).DEN:=400
027166	012763	000024	000012	MOV    	#000024, 000012(R3)	; (VAR312).SY1:=24
027174	012763	000360	000014	MOV    	#000360, 000014(R3)	; (VAR312).SY2:=360
027202	012763	000032	000016	MOV    	#000032, 000016(R3)	; (VAR312).SX1:=32
027210	012763	000056	000020	MOV    	#000056, 000020(R3)	; (VAR312).SX2:=56
027216	005063	000006		CLR    	000006(R3)		; (VAR312).ARY:=0
027222	005063	000010		CLR    	000010(R3)		; (VAR312).ARX:=0
027226	010500			MOV    	R5, R0
027230	062700	000312		ADD    	#000312, R0
027234	010046			MOV    	R0, -(SP)
027236	012746	177751		MOV    	#177751, -(SP)
027242	004767	153756		CALL   	003224			; L03224(VAR312,-27)
027246	012746	000007		MOV    	#000007, -(SP)
027252	004767	153332		CALL   	002610			; L02610(7)
027256	012765	001002	000334	MOV    	#001002, 000334(R5)	; VAR312.DEN:=1002
027264	010500			MOV    	R5, R0
027266	062700	000312		ADD    	#000312, R0
027272	010046			MOV    	R0, -(SP)
027274	004767	152750		CALL   	002250			; L02250(VAR312)
027300	012746	000002		MOV    	#000002, -(SP)
027304	004767	153300		CALL   	002610			; L02610(2)
027310	016546	000116		MOV    	000116(R5), -(SP)
027314	005046			CLR    	-(SP)
027316	005046			CLR    	-(SP)
027320	012746	000334		MOV    	#000334, -(SP)
027324	005046			CLR    	-(SP)
027326	012746	000240		MOV    	#000240, -(SP)
027332	005046			CLR    	-(SP)
027334	005046			CLR    	-(SP)
027336	005046			CLR    	-(SP)
027340	004767	151676		CALL   	001242			; L01242(VAR116.ANUM,0,0,334,0,240,0,0,0)
027344	005046			CLR    	-(SP)
027346	005046			CLR    	-(SP)
027350	012666	000042		MOV    	(SP)+, 000042(SP)	; 40(SP):=0.0
027354	012666	000042		MOV    	(SP)+, 000042(SP)
027360	012766	000164	000034	MOV    	#000164, 000034(SP)	; 34(SP):=164
027366	012746	172702		MOV    	#172702, -(SP)
027372	012746	040710		MOV    	#040710, -(SP)
027376	016646	000040		MOV    	000040(SP), -(SP)
027402	004767	010360		CALL   	037766	; $B88
027406	075036			FDIV	SP
027410	012666	000046		MOV    	(SP)+, 000046(SP)	; 44(SP):=6.28/34(SP)
027414	012666	000046		MOV    	(SP)+, 000046(SP)
027420	005046			CLR    	-(SP)
027422	012746	041640		MOV    	#041640, -(SP)
027426	016646	000052		MOV    	000052(SP), -(SP)
027432	016646	000052		MOV    	000052(SP), -(SP)
027436	004767	007424		CALL   	037066	; $B92
027442	075026			FMUL	SP
027444	004767	010450		CALL   	040120	; $B86
027450	062716	000156		ADD    	#000156, (SP)
027454	012666	000026		MOV    	(SP)+, 000026(SP)	; 26(SP):=156+TRUNC(80.0*SIN(44(SP)))
027460	010600			MOV    	SP, R0
027462	062700	000032		ADD    	#000032, R0		; FOR 32(SP):=0 TO 34(SP)
027466	010046			MOV    	R0, -(SP)
027470	005046			CLR    	-(SP)
027472	016646	000040		MOV    	000040(SP), -(SP)
027476	016676	000002	000004	MOV    	000002(SP), @000004(SP)
027504	027616	000004		CMP    	@000004(SP), (SP)
027510	003402			BLE    	027516
027512	000167	000306		JMP    	030024
027516	005046			CLR    	-(SP)
027520	012746	041640		MOV    	#041640, -(SP)
027524	016646	000054		MOV    	000054(SP), -(SP)
027530	016646	000054		MOV    	000054(SP), -(SP)
027534	004767	007326		CALL   	037066	; $B92
027540	075026			FMUL	SP
027542	004767	010352		CALL   	040120	; $B86
027546	062716	000156		ADD    	#000156, (SP)
027552	012666	000036		MOV    	(SP)+, 000036(SP)	; 30(SP):=156+TRUNC(80.0*SIN(40(SP)))
027556	016600	000040		MOV    	000040(SP), R0
027562	005700			TST    	R0
027564	100001			BPL    	027570
027566	005300			DEC    	R0
027570	006200			ASR    	R0
027572	100001			BPL    	027576
027574	005200			INC    	R0
027576	010046			MOV    	R0, -(SP)
027600	012746	000017		MOV    	#000017, -(SP)
027604	004767	007772		CALL   	037602	; $B82
027610	012600			MOV    	(SP)+, R0
027612	005200			INC    	R0
027614	010066	000044		MOV    	R0, 000044(SP)		; 36(SP):=((32(SP) DIV 2) MOD 17)+1
027620	016600	000044		MOV    	000044(SP), R0
027624	006300			ASL    	R0
027626	006300			ASL    	R0
027630	006300			ASL    	R0
027632	006300			ASL    	R0
027634	066600	000044		ADD    	000044(SP), R0
027640	000300			SWAB   	R0
027642	042700	000377		BIC    	#000377, R0
027646	016601	000044		MOV    	000044(SP), R1
027652	006301			ASL    	R1
027654	006301			ASL    	R1
027656	006301			ASL    	R1
027660	006301			ASL    	R1
027662	060001			ADD    	R0, R1
027664	066601	000044		ADD    	000044(SP), R1
027670	010166	000044		MOV    	R1, 000044(SP)		; 36(SP):=(36(SP)*20+36(SP))*256+36(SP)*20+36(SP)
027674	016546	000116		MOV    	000116(R5), -(SP)
027700	005046			CLR    	-(SP)
027702	016646	000042		MOV    	000042(SP), -(SP)
027706	016600	000044		MOV    	000044(SP), R0
027712	166600	000042		SUB    	000042(SP), R0
027716	100001			BPL    	027722
027720	005400			NEG    	R0
027722	005200			INC    	R0
027724	010046			MOV    	R0, -(SP)
027726	016646	000050		MOV    	000050(SP), -(SP)
027732	012746	000044		MOV    	#000044, -(SP)
027736	016646	000060		MOV    	000060(SP), -(SP)
027742	005046			CLR    	-(SP)
027744	005046			CLR    	-(SP)
027746	004767	151270		CALL   	001242			; L01242(VAR116.ANUM,0,30(SP),ABS(30(SP)-26(SP))+1,32(SP),44,36(SP),0,0)
027752	016666	000036	000034	MOV    	000036(SP), 000034(SP)	; 26(SP):=30(SP)
027760	016646	000050		MOV    	000050(SP), -(SP)
027764	016646	000050		MOV    	000050(SP), -(SP)
027770	016646	000060		MOV    	000060(SP), -(SP)
027774	016646	000060		MOV    	000060(SP), -(SP)
030000	075006			FADD	SP
030002	012666	000050		MOV    	(SP)+, 000050(SP)	; 40(SP):=40(SP)+44(SP)
030006	012666	000050		MOV    	(SP)+, 000050(SP)
030012	005276	000004		INC    	@000004(SP)		; NEXT 32(SP)
030016	102402			BVS    	030024
030020	000167	177460		JMP    	027504
030024	062706	000006		ADD    	#000006, SP		; END FOR 32(SP)
030030	012746	000014		MOV    	#000014, -(SP)
030034	004767	152550		CALL   	002610			; L02610(14)
030040	062706	000052		ADD    	#000052, SP
030044	000207			RETURN 	
--------------------------------------------------------------------
030046	050502	027105	027056	.ASCIZ	/BQE................./
	027056	027056	027056	.EVEN
	027056	027056	027056
	027056	000000

030074	041126	051105	027100	.ASCIZ	/VBER@.............../
	027056	027056	027056	.EVEN
	027056	027056	027056
	027056	000000

030122	040120	051504	044103	.ASCIZ	/P@DSCH............../
	027056	027056	027056	.EVEN
	027056	027056	027056
	027056	000000

030150	040115	027056	027056	.ASCIZ	/M@................../
	027056	027056	027056	.EVEN
	027056	027056	027056
	027056	000000

030176	045135	040120	042515	.ASCIZ	/]JP@ME............../
	027056	027056	027056	.EVEN
	027056	027056	027056
	027056	000000
====================================================================
; PROCEDURE (RAND)
030224	011404			MOV    	(R4), R4
030226	011404			MOV    	(R4), R4
030230	011404			MOV    	(R4), R4
030232	011404			MOV    	(R4), R4
030234	011404			MOV    	(R4), R4
030236	011404			MOV    	(R4), R4
030240	011404			MOV    	(R4), R4
030242	011404			MOV    	(R4), R4
030244	011404			MOV    	(R4), R4
030246	010446			MOV    	R4, -(SP)
030250	011600			MOV    	(SP), R0
030252	011046			MOV    	(R0), -(SP)
030254	012746	031425		MOV    	#031425, -(SP)
030260	004767	007150		CALL   	037434	; $B116
030264	062716	015415		ADD    	#015415, (SP)
030270	012601			MOV    	(SP)+, R1
030272	042701	100000		BIC    	#100000, R1
030276	010110			MOV    	R1, (R0)		; LOC00:=(LOC00*31425+15415) MOD 100000
030300	011001			MOV    	(R0), R1
030302	000241			CLC    	
030304	006001			ROR    	R1
030306	006201			ASR    	R1
030310	006201			ASR    	R1
030312	006201			ASR    	R1
030314	006201			ASR    	R1
030316	042701	177400		BIC    	#177400, R1
030322	010160	000002		MOV    	R1, 000002(R0)		; LOC02:=(LOC00 DIV 40) AND 377
030326	011001			MOV    	(R0), R1
030330	042701	177740		BIC    	#177740, R1
030334	010160	000004		MOV    	R1, 000004(R0)		; LOC04:=LOC00 AND 37
030340	026027	000004	000032	CMP    	000004(R0), #000032	; IF LOC04>32
030346	003002			BGT    	030354
030350	000167	000006		JMP    	030362
030354	062760	177754	000004	ADD    	#177754, 000004(R0)	; THEN ; LOC04:=LOC04-24 ; END IF
030362	011600			MOV    	(SP), R0
030364	011001			MOV    	(R0), R1
030366	105001			CLRB   	R1
030370	000301			SWAB   	R1
030372	000241			CLC    	
030374	006001			ROR    	R1
030376	006201			ASR    	R1
030400	006201			ASR    	R1
030402	006201			ASR    	R1
030404	006201			ASR    	R1
030406	042701	177776		BIC    	#177776, R1
030412	010160	000006		MOV    	R1, 000006(R0)		; LOC06:=(LOC00 DIV 20000) AND 1
030416	062706	000002		ADD    	#000002, SP
030422	000207			RETURN 	
======---------=======--------=======---------=======--------=======
; PROCEDURE (RANDWIN)
030424	162706	000256		SUB    	#000256, SP ; VAR @SP:UINT; 2(SP),4(SP),6(SP),10(SP),12(SP),14(SP):INTEGER
; 16(SP):ARRAY[1..7]OF WINTYP; 232(SP):WINTYP
030430	012716	030071		MOV    	#030071, (SP)		; @SP:=30071
030434	012766	000002	000234	MOV    	#000002, 000234(SP)	; 232(SP).WNUM:=2
030442	010600			MOV    	SP, R0
030444	062700	000232		ADD    	#000232, R0
030450	010046			MOV    	R0, -(SP)
030452	004767	151662		CALL   	002340			; L02340(232(SP))
030456	010600			MOV    	SP, R0
030460	062700	000232		ADD    	#000232, R0
030464	010601			MOV    	SP, R1
030466	062701	000016		ADD    	#000016, R1
030472	012702	000012		MOV    	#000012, R2
030476	012021			MOV    	(R0)+, (R1)+		; 16(SP)[1]:=232(SP)
030500	005302			DEC    	R2
030502	001375			BNE    	030476
030504	010500			MOV    	R5, R0
030506	062700	000336		ADD    	#000336, R0
030512	010601			MOV    	SP, R1
030514	062701	000042		ADD    	#000042, R1
030520	012702	000012		MOV    	#000012, R2
030524	012021			MOV    	(R0)+, (R1)+		; 16(SP)[2]:=VAR336
030526	005302			DEC    	R2
030530	001375			BNE    	030524
030532	010500			MOV    	R5, R0
030534	062700	000362		ADD    	#000362, R0
030540	010601			MOV    	SP, R1
030542	062701	000066		ADD    	#000066, R1
030546	012702	000012		MOV    	#000012, R2
030552	012021			MOV    	(R0)+, (R1)+		; 16(SP)[3]:=VAR362
030554	005302			DEC    	R2
030556	001375			BNE    	030552
030560	010500			MOV    	R5, R0
030562	062700	000406		ADD    	#000406, R0
030566	010601			MOV    	SP, R1
030570	062701	000112		ADD    	#000112, R1
030574	012702	000012		MOV    	#000012, R2
030600	012021			MOV    	(R0)+, (R1)+		; 16(SP)[4]:=VAR406
030602	005302			DEC    	R2
030604	001375			BNE    	030600
030606	010500			MOV    	R5, R0
030610	062700	000432		ADD    	#000432, R0
030614	010601			MOV    	SP, R1
030616	062701	000136		ADD    	#000136, R1
030622	012702	000012		MOV    	#000012, R2
030626	012021			MOV    	(R0)+, (R1)+		; 16(SP)[5]:=VAR432
030630	005302			DEC    	R2
030632	001375			BNE    	030626
030634	010500			MOV    	R5, R0
030636	062700	000456		ADD    	#000456, R0
030642	010601			MOV    	SP, R1
030644	062701	000162		ADD    	#000162, R1
030650	012702	000012		MOV    	#000012, R2
030654	012021			MOV    	(R0)+, (R1)+		; 16(SP)[6]:=VAR456
030656	005302			DEC    	R2
030660	001375			BNE    	030654
030662	010500			MOV    	R5, R0
030664	062700	000312		ADD    	#000312, R0
030670	010601			MOV    	SP, R1
030672	062701	000206		ADD    	#000206, R1
030676	012702	000012		MOV    	#000012, R2
030702	012021			MOV    	(R0)+, (R1)+		; 16(SP)[7]:=VAR312
030704	005302			DEC    	R2
030706	001375			BNE    	030702
030710	010600			MOV    	SP, R0
030712	062700	000010		ADD    	#000010, R0		; FOR 10(SP):=1 TO 36
030716	010046			MOV    	R0, -(SP)
030720	012746	000001		MOV    	#000001, -(SP)
030724	012746	000036		MOV    	#000036, -(SP)
030730	016676	000002	000004	MOV    	000002(SP), @000004(SP)
030736	027616	000004		CMP    	@000004(SP), (SP)
030742	003402			BLE    	030750
030744	000167	000430		JMP    	031400
030750	010600			MOV    	SP, R0
030752	062700	000020		ADD    	#000020, R0		; FOR 12(SP):=1 TO 7
030756	010046			MOV    	R0, -(SP)
030760	012746	000001		MOV    	#000001, -(SP)
030764	012746	000007		MOV    	#000007, -(SP)
030770	016676	000002	000004	MOV    	000002(SP), @000004(SP)
030776	027616	000004		CMP    	@000004(SP), (SP)
031002	003402			BLE    	031010
031004	000167	000352		JMP    	031362
031010	010604			MOV    	SP, R4
031012	062704	000014		ADD    	#000014, R4
031016	004767	177224		CALL   	030246			; L30246
031022	016646	000026		MOV    	000026(SP), -(SP)
031026	012746	000024		MOV    	#000024, -(SP)
031032	004767	006376		CALL   	037434	; $B116
031036	010600			MOV    	SP, R0
031040	062600			ADD    	(SP)+, R0
031042	062700	000010		ADD    	#000010, R0
031046	010601			MOV    	SP, R1
031050	062701	000246		ADD    	#000246, R1
031054	012702	000012		MOV    	#000012, R2
031060	012021			MOV    	(R0)+, (R1)+		; 232(SP):=16(SP)[12(SP)]
031062	005302			DEC    	R2
031064	001375			BNE    	031060
031066	016646	000024		MOV    	000024(SP), -(SP)
031072	012746	000024		MOV    	#000024, -(SP)
031076	004767	006500		CALL   	037602	; $B82
031102	022627	000001		CMP    	(SP)+, #000001		; IF (10(SP) MOD 24)<1
031106	002402			BLT    	031114
031110	000167	000062		JMP    	031176
031114	005766	000022		TST    	000022(SP)		; THEN 1 ; IF 6(SP)=0
031120	001402			BEQ    	031126
031122	000167	000024		JMP    	031152
031126	010600			MOV    	SP, R0			; THEN 2
031130	062700	000246		ADD    	#000246, R0
031134	010046			MOV    	R0, -(SP)
031136	012746	000310		MOV    	#000310, -(SP)
031142	004767	152264		CALL   	003432			; L03432(232(SP),310)
031146	000167	000020		JMP    	031172
031152	010600			MOV    	SP, R0			; ELSE 2
031154	062700	000246		ADD    	#000246, R0
031160	010046			MOV    	R0, -(SP)
031162	012746	000023		MOV    	#000023, -(SP)
031166	004767	152032		CALL   	003224			; L03224(232(SP),23)
031172	000167	000152		JMP    	031350			; END IF 2
031176	010603			MOV    	SP, R3			; ELSE 1
031200	062703	000246		ADD    	#000246, R3		; WITH 232(SP)
031204	016300	000020		MOV    	000020(R3), R0
031210	166300	000016		SUB    	000016(R3), R0
031214	010066	000030		MOV    	R0, 000030(SP)		; 14(SP):=(232(SP)).SX2-(232(SP)).SX1
031220	016600	000020		MOV    	000020(SP), R0
031224	062700	000002		ADD    	#000002, R0
031230	010063	000016		MOV    	R0, 000016(R3)		; (232(SP)).SX1:=4(SP)+2
031234	016600	000020		MOV    	000020(SP), R0
031240	066600	000030		ADD    	000030(SP), R0
031244	010063	000020		MOV    	R0, 000020(R3)		; (232(SP)).SX2:=4(SP)+14(SP)
031250	016300	000014		MOV    	000014(R3), R0
031254	166300	000012		SUB    	000012(R3), R0
031260	010066	000030		MOV    	R0, 000030(SP)		; 14(SP):=(232(SP)).SY2-(232(SP)).SY1
031264	016663	000016	000012	MOV    	000016(SP), 000012(R3)	; (232(SP)).SY1:=2(SP)
031272	016600	000016		MOV    	000016(SP), R0
031276	066600	000030		ADD    	000030(SP), R0
031302	010063	000014		MOV    	R0, 000014(R3)		; (232(SP)).SY2:=2(SP)+14(SP)
031306	010600			MOV    	SP, R0
031310	062700	000246		ADD    	#000246, R0
031314	010046			MOV    	R0, -(SP)
031316	004767	150726		CALL   	002250			; L02250(232(SP))
031322	005766	000022		TST    	000022(SP)		; IF 6(SP)=0
031326	001402			BEQ    	031334
031330	000167	000014		JMP    	031350
031334	010600			MOV    	SP, R0			; THEN
031336	062700	000246		ADD    	#000246, R0
031342	010046			MOV    	R0, -(SP)
031344	004767	151020		CALL   	002370			; L02370(232(SP)) ; END IF ; END IF 1
031350	005276	000004		INC    	@000004(SP)		; NEXT 12(SP)
031354	102402			BVS    	031362
031356	000167	177414		JMP    	030776
031362	062706	000006		ADD    	#000006, SP		; END FOR 12(SP)
031366	005276	000004		INC    	@000004(SP)		; NEXT 10(SP)
031372	102402			BVS    	031400
031374	000167	177336		JMP    	030736
031400	062706	000006		ADD    	#000006, SP		; END FOR 10(SP)
031404	010600			MOV    	SP, R0
031406	062700	000016		ADD    	#000016, R0
031412	010046			MOV    	R0, -(SP)
031414	004767	150630		CALL   	002250			; L02250(16(SP)[1])
031420	062706	000256		ADD    	#000256, SP
031424	000207			RETURN 	
====================================================================
; PROCEDURE (ALLFRE)
031426	010500			MOV    	R5, R0
031430	062700	000102		ADD    	#000102, R0
031434	010046			MOV    	R0, -(SP)
031436	004767	150472		CALL   	002134			; L02134(VAR102)
031442	010500			MOV    	R5, R0
031444	062700	000132		ADD    	#000132, R0
031450	010046			MOV    	R0, -(SP)
031452	004767	150456		CALL   	002134			; L02134(VAR132)
031456	010500			MOV    	R5, R0
031460	062700	000116		ADD    	#000116, R0
031464	010046			MOV    	R0, -(SP)
031466	004767	150442		CALL   	002134			; L02134(VAR116)
031472	010500			MOV    	R5, R0
031474	062700	000146		ADD    	#000146, R0
031500	010046			MOV    	R0, -(SP)
031502	004767	150426		CALL   	002134			; L02134(VAR146)
031506	010500			MOV    	R5, R0
031510	062700	000162		ADD    	#000162, R0
031514	010046			MOV    	R0, -(SP)
031516	004767	150412		CALL   	002134			; L02134(VAR162)
031522	010500			MOV    	R5, R0
031524	062700	000176		ADD    	#000176, R0
031530	010046			MOV    	R0, -(SP)
031532	004767	150376		CALL   	002134			; L02134(VAR176)
031536	010500			MOV    	R5, R0
031540	062700	000212		ADD    	#000212, R0
031544	010046			MOV    	R0, -(SP)
031546	004767	150362		CALL   	002134			; L02134(VAR212)
031552	010500			MOV    	R5, R0
031554	062700	000066		ADD    	#000066, R0
031560	010046			MOV    	R0, -(SP)
031562	004767	147410		CALL   	001176			; L01176(VAR66)
031566	000207			RETURN 	
====================================================================
==================== MAIN MODULE BEGIN =============================
031570	012746	000626		MOV    	#000626, -(SP)
031574	004767	007010		CALL   	040610	; $B70
031600	012605			MOV    	(SP)+, R5
031602	011625			MOV    	(SP), (R5)+
031604	016625	000002		MOV    	000002(SP), (R5)+
031610	010567	013660		MOV    	R5, 045474
031614	004767	152044		CALL   	003664			; L03664
031620	004767	152274		CALL   	004120			; L04120
031624	012746	000216		MOV    	#000216, -(SP)
031630	004767	152766		CALL   	004622			; L04622(216)
031634	004767	155440		CALL   	007300			; L07300
031640	004767	161216		CALL   	013062			; L13062
031644	004767	157104		CALL   	010754			; L10754
031650	004767	165460		CALL   	017334			; L17334
031654	004767	167330		CALL   	021210			; L21210
031660	004767	174620		CALL   	026504			; L26504
031664	012746	000002		MOV    	#000002, -(SP)
031670	004767	153070		CALL   	004764			; L04764(2)
031674	004767	176524		CALL   	030424			; L30424
031700	004767	177522		CALL   	031426			; L31426
031704	000167	000652		JMP    	032562	; $END
==================== MAIN MODULE END ===============================
===================== INIT BEGIN ===================================
031710	005767	014366		TST    	046302
031714	001002			BNE    	031722
031716	000167	000640		JMP    	032562	; $END
031722	000177	014354		JMP    	@046302
031726	000770			BR     	031710
; $START
031730	022727	000014	000014	CMP    	#000014, #000014
031736	001410			BEQ    	031760
031740	012700	032342		MOV    	#032342, R0
031744	004767	000672		CALL   	032642
031750	052767	000010	146075	BIS    	#000010, 000053
031756	104350			EMT    	000350
031760	012706	046300		MOV    	#046300, SP
031764	012700	177776		MOV    	#177776, R0
031770	026767	146046	000342	CMP    	000042, 032340
031776	101402			BLOS   	032004
032000	016700	146036		MOV    	000042, R0
032004	104354			EMT    	000354
032006	010006			MOV    	R0, SP
032010	010067	013456		MOV    	R0, 045472
032014	010067	013542		MOV    	R0, 045562
032020	005067	013532		CLR    	045556
032024	005067	013530		CLR    	045560
032030	005067	013514		CLR    	045550
032034	016705	000300		MOV    	032340, R5
032040	010567	013432		MOV    	R5, 045476
032044	010567	013430		MOV    	R5, 045500
032050	010500			MOV    	R5, R0
032052	062705	000036		ADD    	#000036, R5
032056	010567	013420		MOV    	R5, 045502
032062	010567	013416		MOV    	R5, 045504
032066	010501			MOV    	R5, R1
032070	062705	000036		ADD    	#000036, R5
032074	010520			MOV    	R5, (R0)+
032076	112715	000040		MOVB   	#000040, (R5)
032102	062705	000020		ADD    	#000020, R5
032106	010521			MOV    	R5, (R1)+
032110	012720	004210		MOV    	#004210, (R0)+
032114	012721	100220		MOV    	#100220, (R1)+
032120	012710	077150		MOV    	#077150, (R0)
032124	012021			MOV    	(R0)+, (R1)+
032126	012702	000004		MOV    	#000004, R2
032132	005020			CLR    	(R0)+
032134	005021			CLR    	(R1)+
032136	077203			SOB    	R2, 032132
032140	012720	004377		MOV    	#004377, (R0)+
032144	012721	004777		MOV    	#004777, (R1)+
032150	005020			CLR    	(R0)+
032152	005021			CLR    	(R1)+
032154	017720	013316		MOV    	@045476, (R0)+
032160	010521			MOV    	R5, (R1)+
032162	012720	000020		MOV    	#000020, (R0)+
032166	012721	000100		MOV    	#000100, (R1)+
032172	012710	000004		MOV    	#000004, (R0)
032176	012021			MOV    	(R0)+, (R1)+
032200	012710	000001		MOV    	#000001, (R0)
032204	012021			MOV    	(R0)+, (R1)+
032206	017720	013264		MOV    	@045476, (R0)+
032212	010521			MOV    	R5, (R1)+
032214	005020			CLR    	(R0)+
032216	005021			CLR    	(R1)+
032220	062705	000100		ADD    	#000100, R5
032224	010567	013324		MOV    	R5, 045554
032230	010500			MOV    	R5, R0
032232	005020			CLR    	(R0)+
032234	020067	013322		CMP    	R0, 045562
032240	103774			BLO    	032232
032242	012701	000020		MOV    	#000020, R1
032246	012700	045506		MOV    	#045506, R0
032252	005020			CLR    	(R0)+
032254	077102			SOB    	R1, 032252
032256	052767	060000	145560	BIS    	#060000, 000044
032264	012700	045624		MOV    	#045624, R0
032270	012710	001400		MOV    	#001400, (R0)
032274	012760	032454	000002	MOV    	#032454, 000002(R0)
032302	104375			EMT    	000375
032304	032767	001000	145532	BIT    	#001000, 000044
032312	001403			BEQ    	032322
032314	012767	177777	013222	MOV    	#177777, 045544
032322	016746	013150		MOV    	045476, -(SP)
032326	016746	013150		MOV    	045502, -(SP)
032332	000167	177232		JMP    	031570
032336	001000			BNE    	032340
032340	046306	040502		BIC    	040502(R3), SP
032344	020104			CMP    	R1, R4
032346	047503	050115		BIC    	@050115(R5), R3
032352	046111	051105		BIC    	051105(R1), (R1)
032356	053040			BIS    	@(R0)+, -(R0)
032360	051105			BIS    	(R1), R5
032362	044523			BIC    	-(R5), (R3)+
032364	047117	005015		BIC    	@005015(R1), (PC)
032370	051000			BIS    	(R0), R0
032372	051505			BIS    	(R5), R5
032374	051105			BIS    	(R1), R5
032376	042526			BIC    	(R5)+, (SP)+
032400	020104			CMP    	R1, R4
032402	047111	052123		BIC    	@052123(R1), (R1)
032406	052522			BIS    	(R5)+, (R2)+
032410	052103			BIS    	(R1)+, R3
032412	047511	020116		BIC    	@020116(R5), (R1)
032416	051124			BIS    	(R1), (R4)+
032420	050101			BIS    	R1, R1
032422	052000			BIS    	(R0)+, R0
032424	040522			BIC    	R5, (R2)+
032426	020120			CMP    	R1, (R0)+
032430	047524	032040		BIC    	@032040(R5), (R4)+
032434	020000			CMP    	R0, R0
032436	020055			CMP    	R0, @-(R5)
032440	051106			BIS    	(R1), SP
032442	046517	050040		BIC    	050040(R5), (PC)
032446	020103			CMP    	R1, R3
032450	006400			MARK   	R0
032452	000012			START  	
032454	010046			MOV    	R0, -(SP)
032456	012700	032423		MOV    	#032423, R0
032462	103020			BHIS   	032524
032464	012700	032371		MOV    	#032371, R0
032470	005767	013610		TST    	046304
032474	001413			BEQ    	032524
032476	012700	045604		MOV    	#045604, R0
032502	012710	001400		MOV    	#001400, (R0)
032506	012760	032454	000002	MOV    	#032454, 000002(R0)
032514	104375			EMT    	000375
032516	012600			MOV    	(SP)+, R0
032520	000177	013560		JMP    	@046304
032524	104355			EMT    	000355
032526	004767	000110		CALL   	032642
032532	012700	032435		MOV    	#032435, R0
032536	004767	000100		CALL   	032642
032542	016600	000002		MOV    	000002(SP), R0
032546	004767	000112		CALL   	032664
032552	012700	032451		MOV    	#032451, R0
032556	004767	000060		CALL   	032642
; $END
032562	005767	013512		TST    	046300
032566	001023			BNE    	032636
032570	012703	000020		MOV    	#000020, R3
032574	012704	045506		MOV    	#045506, R4
032600	012405			MOV    	(R4)+, R5
032602	001413			BEQ    	032632
032604	032705	000001		BIT    	#000001, R5
032610	001010			BNE    	032632
032612	012767	045564	012732	MOV    	#045564, 045552
032620	010567	012740		MOV    	R5, 045564
032624	005725			TST    	(R5)+
032626	004767	001354		CALL   	034206	; $CLOSE
032632	077316			SOB    	R3, 032600
032634	104350			EMT    	000350
032636	000177	013436		JMP    	@046300
032642	010146			MOV    	R1, -(SP)
032644	010001			MOV    	R0, R1
032646	112100			MOVB   	(R1)+, R0
032650	001403			BEQ    	032660
032652	104341			EMT    	000341
032654	103776			BLO    	032652
032656	000773			BR     	032646
032660	012601			MOV    	(SP)+, R1
032662	000207			RETURN 	
032664	010146			MOV    	R1, -(SP)
032666	010246			MOV    	R2, -(SP)
032670	010001			MOV    	R0, R1
032672	005000			CLR    	R0
032674	073027	000001		ASHC   	#000001, R0
032700	012702	000006		MOV    	#000006, R2
032704	000403			BR     	032714
032706	005000			CLR    	R0
032710	073027	000003		ASHC   	#000003, R0
032714	062700	000060		ADD    	#000060, R0
032720	104341			EMT    	000341
032722	103776			BLO    	032720
032724	077210			SOB    	R2, 032706
032726	012602			MOV    	(SP)+, R2
032730	012601			MOV    	(SP)+, R1
032732	000207			RETURN 	
===================== INIT END ===================================
===================== IO BEGIN ===================================
; TSTCHN
032734	005705			TST    	R5
032736	001433			BEQ    	033026
032740	020567	012616		CMP    	R5, 045562
032744	103030			BHIS   	033026
032746	032705	000001		BIT    	#000001, R5
032752	001025			BNE    	033026
032754	005000			CLR    	R0
032756	156500	000016		BISB   	000016(R5), R0
032762	020027	000377		CMP    	R0, #000377
032766	001415			BEQ    	033022
032770	020027	000017		CMP    	R0, #000017
032774	101014			BHI    	033026
032776	026705	012474		CMP    	045476, R5
033002	001407			BEQ    	033022
033004	026705	012472		CMP    	045502, R5
033010	001404			BEQ    	033022
033012	006300			ASL    	R0
033014	026005	045506		CMP    	045506(R0), R5
033020	001002			BNE    	033026
033022	005725			TST    	(R5)+
033024	000207			RETURN 	
033026	000261			SEC    	
033030	000207			RETURN 	
; CLRSCR
033032	012700	045624		MOV    	#045624, R0
033036	012701	000226		MOV    	#000226, R1
033042	005020			CLR    	(R0)+
033044	077102			SOB    	R1, 033042
033046	000207			RETURN 	
; $SETIO
033050	016667	000002	012470	MOV    	000002(SP), 045546
033056	012546			MOV    	(R5)+, -(SP)
033060	060616			ADD    	SP, (SP)
033062	010146			MOV    	R1, -(SP)
033064	010046			MOV    	R0, -(SP)
033066	010546			MOV    	R5, -(SP)
033070	016705	012456		MOV    	045552, R5
033074	004767	177634		CALL   	032734	; TSTCHN
033100	103013			BHIS   	033130
033102	004067	006310		JSR    	R0, 041416 ; $ERROR
033106	017000	000015		MOV    	@000015(R0), R0
033112	044506			BIC    	-(R5), SP
033114	042514			BIC    	(R5)+, (R4)
033116	047040	052117		BIC    	@052117(R0), -(R0)
033122	047440	042520		BIC    	@042520(R4), -(R0)
033126	000116			JMP    	(SP)
033130	004736			CALL   	@(SP)+
033132	012600			MOV    	(SP)+, R0
033134	012601			MOV    	(SP)+, R1
033136	016605	000002		MOV    	000002(SP), R5
033142	016676	000004	000000	MOV    	000004(SP), @000000(SP)
033150	011606			MOV    	(SP), SP
033152	000207			RETURN 	
; $B61
033154	004567	177670		JSR    	R5, 033050 ; $SETIO
033160	000004			IOT    	
; $GETCH ; $GET
033162	032715	000014		BIT    	#000014, (R5)
033166	001011			BNE    	033212
033170	004067	006222		JSR    	R0, 041416 ; $ERROR
033174	011001			MOV    	(R0), R1
033176	000012			START  	
033200	040503			BIC    	R5, R3
033202	023516			CMP    	@(R5)+, (SP)
033204	020124			CMP    	R1, (R4)+
033206	042522			BIC    	(R5)+, (R2)+
033210	042101			BIC    	(R1)+, R1
033212	042715	044000		BIC    	#044000, (R5)
033216	100012			BPL    	033244
033220	004067	006172		JSR    	R0, 041416 ; $ERROR
033224	010401			MOV    	R4, R1
033226	000013			unknown	000013
033230	047105	020104		BIC    	@020104(R1), R5
033234	043117			BIC    	@(R1)+, (PC)
033236	043040			BIC    	@(R0)+, -(R0)
033240	046111	000105		BIC    	000105(R1), (R1)
033244	032715	000200		BIT    	#000200, (R5)
033250	001010			BNE    	033272
033252	004767	000250		CALL   	033526
033256	026500	000030		CMP    	000030(R5), R0
033262	103002			BHIS   	033270
033264	004767	000316		CALL   	033606	; NXTBUF
033270	000207			RETURN 	
033272	005245			INC    	-(R5)
033274	022565	000030		CMP    	(R5)+, 000030(R5)
033300	103402			BLO    	033306
033302	004767	000300		CALL   	033606	; NXTBUF
033306	005715			TST    	(R5)
033310	100423			BMI    	033360
033312	117500	177776		MOVB   	@177776(R5), R0
033316	042700	177600		BIC    	#177600, R0
033322	001763			BEQ    	033272
033324	122700	000015		CMPB   	#000015, R0
033330	001760			BEQ    	033272
033332	122700	000012		CMPB   	#000012, R0
033336	001410			BEQ    	033360
033340	122700	000033		CMPB   	#000033, R0
033344	001405			BEQ    	033360
033346	122700	000032		CMPB   	#000032, R0
033352	001346			BNE    	033270
033354	052715	100000		BIS    	#100000, (R5)
033360	012700	000040		MOV    	#000040, R0
033364	110075	177776		MOVB   	R0, @177776(R5)
033370	052715	040000		BIS    	#040000, (R5)
033374	000207			RETURN 	
; $B60
033376	004567	177446		JSR    	R5, 033050 ; $SETIO
033402	000004			IOT    	
; $PUT
033404	032715	000024		BIT    	#000024, (R5)
033410	001014			BNE    	033442
033412	004067	006000		JSR    	R0, 041416 ; $ERROR
033416	011401			MOV    	(R4), R1
033420	000017			unknown	000017
033422	052520			BIS    	(R5)+, (R0)+
033424	020124			CMP    	R1, (R4)+
033426	047516	020124		BIC    	@020124(R5), (SP)
033432	046101	047514		BIC    	047514(R1), R1
033436	042527	000104		BIC    	(R5)+, #000104
033442	004767	000060		CALL   	033526
033446	052715	000001		BIS    	#000001, (R5)
033452	026565	000030	177776	CMP    	000030(R5), 177776(R5)
033460	103003			BHIS   	033470
033462	016565	177776	000030	MOV    	177776(R5), 000030(R5)
033470	122765	000377	000014	CMPB   	#000377, 000014(R5)
033476	001003			BNE    	033506
033500	004767	000660		CALL   	034364	; $BREAK
033504	000207			RETURN 	
033506	166500	000020		SUB    	000020(R5), R0
033512	026500	000022		CMP    	000022(R5), R0
033516	103002			BHIS   	033524
033520	004767	000062		CALL   	033606	; NXTBUF
033524	000207			RETURN 	
033526	066545	000026		ADD    	000026(R5), -(R5)
033532	012500			MOV    	(R5)+, R0
033534	032715	000002		BIT    	#000002, (R5)
033540	001017			BNE    	033600
033542	166500	000020		SUB    	000020(R5), R0
033546	042700	177000		BIC    	#177000, R0
033552	066500	000026		ADD    	000026(R5), R0
033556	162700	001000		SUB    	#001000, R0
033562	101404			BLOS   	033574
033564	166500	000026		SUB    	000026(R5), R0
033570	160065	177776		SUB    	R0, 177776(R5)
033574	016500	177776		MOV    	177776(R5), R0
033600	066500	000026		ADD    	000026(R5), R0
033604	000207			RETURN 	
; NXTBUF
033606	010146			MOV    	R1, -(SP)
033610	010246			MOV    	R2, -(SP)
033612	010346			MOV    	R3, -(SP)
033614	032715	000002		BIT    	#000002, (R5)
033620	001477			BEQ    	034020
033622	016500	177776		MOV    	177776(R5), R0
033626	166500	000020		SUB    	000020(R5), R0
033632	042700	000777		BIC    	#000777, R0
033636	010001			MOV    	R0, R1
033640	066500	000020		ADD    	000020(R5), R0
033644	166500	000030		SUB    	000030(R5), R0
033650	103063			BHIS   	034020
033652	005400			NEG    	R0
033654	032715	000001		BIT    	#000001, (R5)
033660	001402			BEQ    	033666
033662	004767	001562		CALL   	035450
033666	160165	177776		SUB    	R1, 177776(R5)
033672	160165	000030		SUB    	R1, 000030(R5)
033676	010102			MOV    	R1, R2
033700	000302			SWAB   	R2
033702	006202			ASR    	R2
033704	060265	000016		ADD    	R2, 000016(R5)
033710	103013			BHIS   	033740
033712	004067	005500		JSR    	R0, 041416 ; $ERROR
033716	020401			CMP    	R4, R1
033720	000015			unknown	000015
033722	044506			BIC    	-(R5), SP
033724	042514			BIC    	(R5)+, (R4)
033726	047440	042526		BIC    	@042526(R4), -(R0)
033732	043122			BIC    	@(R1)+, (R2)+
033734	047514	000127		BIC    	@000127(R5), (R4)
033740	016502	000020		MOV    	000020(R5), R2
033744	060201			ADD    	R2, R1
033746	010003			MOV    	R0, R3
033750	006203			ASR    	R3
033752	012122			MOV    	(R1)+, (R2)+
033754	077302			SOB    	R3, 033752
033756	032715	000014		BIT    	#000014, (R5)
033762	001415			BEQ    	034016
033764	010067	011640		MOV    	R0, 045630
033770	010067	011636		MOV    	R0, 045632
033774	005467	011632		NEG    	045632
034000	105000			CLRB   	R0
034002	000300			SWAB   	R0
034004	006200			ASR    	R0
034006	010067	011614		MOV    	R0, 045626
034012	004767	000772		CALL   	035010
034016	000434			BR     	034110
034020	032715	000001		BIT    	#000001, (R5)
034024	001404			BEQ    	034036
034026	004767	001406		CALL   	035440
034032	042715	020001		BIC    	#020001, (R5)
034036	016500	000030		MOV    	000030(R5), R0
034042	166500	000020		SUB    	000020(R5), R0
034046	062700	000777		ADD    	#000777, R0
034052	105000			CLRB   	R0
034054	000300			SWAB   	R0
034056	006200			ASR    	R0
034060	060065	000016		ADD    	R0, 000016(R5)
034064	103712			BLO    	033712
034066	016545	000020		MOV    	000020(R5), -(R5)
034072	012565	000030		MOV    	(R5)+, 000030(R5)
034076	032715	000010		BIT    	#000010, (R5)
034102	001402			BEQ    	034110
034104	004767	000642		CALL   	034752	; READ
034110	012603			MOV    	(SP)+, R3
034112	012602			MOV    	(SP)+, R2
034114	012601			MOV    	(SP)+, R1
; CHKEOF
034116	042715	140000		BIC    	#140000, (R5)
034122	016500	177776		MOV    	177776(R5), R0
034126	066500	000026		ADD    	000026(R5), R0
034132	026500	000030		CMP    	000030(R5), R0
034136	103002			BHIS   	034144
034140	052715	140000		BIS    	#140000, (R5)
034144	000207			RETURN 	
; $B68
034146	011667	011374		MOV    	(SP), 045546
034152	010046			MOV    	R0, -(SP)
034154	010146			MOV    	R1, -(SP)
034156	010546			MOV    	R5, -(SP)
034160	017705	011366		MOV    	@045552, R5
034164	004767	176544		CALL   	032734	; TSTCHN
034170	103402			BLO    	034176
034172	004767	000010		CALL   	034206	; $CLOSE
034176	012605			MOV    	(SP)+, R5
034200	012601			MOV    	(SP)+, R1
034202	012600			MOV    	(SP)+, R0
034204	000207			RETURN 	
; $CLOSE
034206	016746	011340		MOV    	045552, -(SP)
034212	017767	011334	011332	MOV    	@045552, 045552
034220	004767	000140		CALL   	034364	; $BREAK
034224	012667	011322		MOV    	(SP)+, 045552
034230	005745			TST    	-(R5)
034232	026705	011240		CMP    	045476, R5
034236	001446			BEQ    	034354
034240	026705	011236		CMP    	045502, R5
034244	001443			BEQ    	034354
034246	005725			TST    	(R5)+
034250	016500	000022		MOV    	000022(R5), R0
034254	001404			BEQ    	034266
034256	016546	000020		MOV    	000020(R5), -(SP)
034262	004767	004624		CALL   	041112	; $DISPO
034266	005000			CLR    	R0
034270	156500	000014		BISB   	000014(R5), R0
034274	120027	000377		CMPB   	R0, #000377
034300	001423			BEQ    	034350
034302	000300			SWAB   	R0
034304	152700	000003		BISB   	#000003, R0
034310	032765	000100	000000	BIT    	#000100, 000000(R5)
034316	001001			BNE    	034322
034320	106300			ASLB   	R0
034322	000300			SWAB   	R0
034324	010001			MOV    	R0, R1
034326	042700	177400		BIC    	#177400, R0
034332	104374			EMT    	000374
034334	004767	000064		CALL   	034424	; LOWSTK
034340	010100			MOV    	R1, R0
034342	104374			EMT    	000374
034344	004767	000100		CALL   	034450	; HISTK
034350	004767	000124		CALL   	034500	; $ZAPCH
034354	000207			RETURN 	
; $B62
034356	004567	176466		JSR    	R5, 033050 ; $SETIO
034362	000004			IOT    	
; $BREAK
034364	032715	000001		BIT    	#000001, (R5)
034370	001414			BEQ    	034422
034372	004767	001042		CALL   	035440
034376	042715	020001		BIC    	#020001, (R5)
034402	132765	000200	000025	BITB   	#000200, 000025(R5)
034410	001004			BNE    	034422
034412	016545	000020		MOV    	000020(R5), -(R5)
034416	012565	000030		MOV    	(R5)+, 000030(R5)
034422	000207			RETURN 	
; LOWSTK
034424	020627	046300		CMP    	SP, #046300
034430	101406			BLOS   	034446
034432	011667	011636		MOV    	(SP), 046274
034436	010667	011634		MOV    	SP, 046276
034442	012706	046274		MOV    	#046274, SP
034446	000207			RETURN 	
; HISTK
034450	006046			ROR    	-(SP)
034452	020627	046272		CMP    	SP, #046272
034456	101402			BLOS   	034464
034460	006126			ROL    	(SP)+
034462	000207			RETURN 	
034464	006126			ROL    	(SP)+
034466	011677	011604		MOV    	(SP), @046276
034472	016706	011600		MOV    	046276, SP
034476	000207			RETURN 	
; $ZAPCH
034500	005745			TST    	-(R5)
034502	005000			CLR    	R0
034504	156500	000016		BISB   	000016(R5), R0
034510	020027	000377		CMP    	R0, #000377
034514	001462			BEQ    	034662
034516	006300			ASL    	R0
034520	005060	045506		CLR    	045506(R0)
034524	012701	045506		MOV    	#045506, R1
034530	012100			MOV    	(R1)+, R0
034532	001406			BEQ    	034550
034534	020005			CMP    	R0, R5
034536	001404			BEQ    	034550
034540	126065	000026	000026	CMPB   	000026(R0), 000026(R5)
034546	001444			BEQ    	034660
034550	020127	045546		CMP    	R1, #045546
034554	103765			BLO    	034530
034556	016567	000004	011052	MOV    	000004(R5), 045636
034564	004767	177634		CALL   	034424	; LOWSTK
034570	104346			EMT    	000346
034572	012700	045636		MOV    	#045636, R0
034576	012746	045624		MOV    	#045624, -(SP)
034602	104342			EMT    	000342
034604	103425			BLO    	034660
034606	016701	011016		MOV    	045630, R1
034612	162701	000006		SUB    	#000006, R1
034616	020167	010652		CMP    	R1, 045474
034622	103416			BLO    	034660
034624	020167	010724		CMP    	R1, 045554
034630	103013			BHIS   	034660
034632	012700	045636		MOV    	#045636, R0
034636	005046			CLR    	-(SP)
034640	104343			EMT    	000343
034642	103406			BLO    	034660
034644	104347			EMT    	000347
034646	010146			MOV    	R1, -(SP)
034650	016700	010752		MOV    	045626, R0
034654	004767	004232		CALL   	041112	; $DISPO
034660	104347			EMT    	000347
034662	005077	010664		CLR    	@045552
034666	026705	010606		CMP    	045500, R5
034672	001006			BNE    	034710
034674	016767	010576	010576	MOV    	045476, 045500
034702	016777	010570	010642	MOV    	045476, @045552
034710	026705	010570		CMP    	045504, R5
034714	001006			BNE    	034732
034716	016767	010560	010560	MOV    	045502, 045504
034724	016777	010552	010620	MOV    	045502, @045552
034732	012700	000036		MOV    	#000036, R0
034736	010546			MOV    	R5, -(SP)
034740	004767	004146		CALL   	041112	; $DISPO
034744	004767	177500		CALL   	034450	; HISTK
034750	000207			RETURN 	
; READ
034752	004767	176054		CALL   	033032	; CLRSCR
034756	016500	000000		MOV    	000000(R5), R0
034762	042700	167777		BIC    	#167777, R0
034766	122765	000377	000014	CMPB   	#000377, 000014(R5)
034774	001005			BNE    	035010
034776	042767	010000	143040	BIC    	#010000, 000044
035004	050067	143034		BIS    	R0, 000044
035010	032715	000040		BIT    	#000040, (R5)
035014	001401			BEQ    	035020
035016	000207			RETURN 	
035020	012700	045624		MOV    	#045624, R0
035024	010046			MOV    	R0, -(SP)
035026	010146			MOV    	R1, -(SP)
035030	010246			MOV    	R2, -(SP)
035032	116520	000014		MOVB   	000014(R5), (R0)+
035036	112720	000010		MOVB   	#000010, (R0)+
035042	066520	000016		ADD    	000016(R5), (R0)+
035046	066510	000020		ADD    	000020(R5), (R0)
035052	012065	000030		MOV    	(R0)+, 000030(R5)
035056	066510	000022		ADD    	000022(R5), (R0)
035062	005210			INC    	(R0)
035064	006220			ASR    	(R0)+
035066	005020			CLR    	(R0)+
035070	122765	000377	000014	CMPB   	#000377, 000014(R5)
035076	001050			BNE    	035220
035100	011501			MOV    	(R5), R1
035102	042701	167777		BIC    	#167777, R1
035106	042737	010000	000044	BIC    	#010000, @#000044
035114	050137	000044		BIS    	R1, @#000044
035120	005000			CLR    	R0
035122	016701	010502		MOV    	045630, R1
035126	016702	010500		MOV    	045632, R2
035132	006302			ASL    	R2
035134	001416			BEQ    	035172
035136	104340			EMT    	000340
035140	103776			BLO    	035136
035142	120027	000032		CMPB   	R0, #000032
035146	001411			BEQ    	035172
035150	110021			MOVB   	R0, (R1)+
035152	005302			DEC    	R2
035154	001406			BEQ    	035172
035156	120027	000012		CMPB   	R0, #000012
035162	001403			BEQ    	035172
035164	032715	010000		BIT    	#010000, (R5)
035170	001762			BEQ    	035136
035172	010001			MOV    	R0, R1
035174	016700	010432		MOV    	045632, R0
035200	006300			ASL    	R0
035202	160200			SUB    	R2, R0
035204	120127	000032		CMPB   	R1, #000032
035210	001105			BNE    	035424
035212	105067	142634		CLRB   	000052
035216	000411			BR     	035242
035220	005000			CLR    	R0
035222	156500	000014		BISB   	000014(R5), R0
035226	104374			EMT    	000374
035230	012700	045624		MOV    	#045624, R0
035234	104375			EMT    	000375
035236	103071			BHIS   	035422
035240	006300			ASL    	R0
035242	060065	000030		ADD    	R0, 000030(R5)
035246	105767	142600		TSTB   	000052
035252	001003			BNE    	035262
035254	052715	000040		BIS    	#000040, (R5)
035260	000463			BR     	035430
035262	112767	000052	010260	MOVB   	#000052, 045550
035270	152767	000004	142555	BISB   	#000004, 000053
035276	032715	001000		BIT    	#001000, (R5)
035302	001052			BNE    	035430
035304	126727	142542	000001	CMPB   	000052, #000001
035312	003014			BGT    	035344
035314	002427			BLT    	035374
035316	004067	004074		JSR    	R0, 041416 ; $ERROR
035322	020401			CMP    	R4, R1
035324	000016			STEP   	
035326	051124			BIS    	(R1), (R4)+
035330	047101	043123		BIC    	@043123(R1), R1
035334	051105			BIS    	(R1), R5
035336	042440			BIC    	(R4)+, -(R0)
035340	051122			BIS    	(R1), (R2)+
035342	051117			BIS    	(R1), (PC)
035344	004067	004046		JSR    	R0, 041416 ; $ERROR
035350	017001	000020		MOV    	@000020(R0), R1
035354	044103			BIC    	-(R1), R3
035356	047101	042516		BIC    	@042516(R1), R1
035362	020114			CMP    	R1, (R4)
035364	047516	020124		BIC    	@020124(R5), (SP)
035370	050117			BIS    	R1, (PC)
035372	047105	004067		BIC    	@004067(R1), R5
035376	004016			JSR    	R0, (SP)
035400	020401			CMP    	R4, R1
035402	000016			STEP   	
035404	051127	052111		BIS    	(R1), #052111
035410	020105			CMP    	R1, R5
035412	040520			BIC    	R5, (R0)+
035414	052123			BIS    	(R1)+, (R3)+
035416	042440			BIC    	(R4)+, -(R0)
035420	043117			BIC    	@(R1)+, (PC)
035422	006300			ASL    	R0
035424	060065	000030		ADD    	R0, 000030(R5)
035430	012602			MOV    	(SP)+, R2
035432	012601			MOV    	(SP)+, R1
035434	012600			MOV    	(SP)+, R0
035436	000207			RETURN 	
035440	016501	000030		MOV    	000030(R5), R1
035444	166501	000020		SUB    	000020(R5), R1
035450	010046			MOV    	R0, -(SP)
035452	010146			MOV    	R1, -(SP)
035454	010246			MOV    	R2, -(SP)
035456	132765	000200	000025	BITB   	#000200, 000025(R5)
035464	001415			BEQ    	035520
035466	010100			MOV    	R1, R0
035470	042700	177000		BIC    	#177000, R0
035474	001411			BEQ    	035520
035476	005400			NEG    	R0
035500	062700	001000		ADD    	#001000, R0
035504	066501	000020		ADD    	000020(R5), R1
035510	105021			CLRB   	(R1)+
035512	077002			SOB    	R0, 035510
035514	166501	000020		SUB    	000020(R5), R1
035520	005701			TST    	R1
035522	001742			BEQ    	035430
035524	126527	000014	000377	CMPB   	000014(R5), #000377
035532	001423			BEQ    	035602
035534	012702	045624		MOV    	#045624, R2
035540	116522	000014		MOVB   	000014(R5), (R2)+
035544	112722	000011		MOVB   	#000011, (R2)+
035550	016522	000016		MOV    	000016(R5), (R2)+
035554	016522	000020		MOV    	000020(R5), (R2)+
035560	005201			INC    	R1
035562	006201			ASR    	R1
035564	010122			MOV    	R1, (R2)+
035566	005022			CLR    	(R2)+
035570	012700	045624		MOV    	#045624, R0
035574	104375			EMT    	000375
035576	103631			BLO    	035262
035600	000713			BR     	035430
035602	016502	000020		MOV    	000020(R5), R2
035606	112200			MOVB   	(R2)+, R0
035610	104341			EMT    	000341
035612	103776			BLO    	035610
035614	077104			SOB    	R1, 035606
035616	000704			BR     	035430
===================== IO END =====================================
===================== RESET BEGIN ================================
; $B66
035620	011667	007722		MOV    	(SP), 045546
035624	010046			MOV    	R0, -(SP)
035626	010146			MOV    	R1, -(SP)
035630	010546			MOV    	R5, -(SP)
035632	017705	007714		MOV    	@045552, R5
035636	020567	007642		CMP    	R5, 045504
035642	001430			BEQ    	035724
035644	004767	175064		CALL   	032734	; TSTCHN
035650	103405			BLO    	035664
035652	005766	000020		TST    	000020(SP)
035656	001576			BEQ    	036254
035660	004767	176322		CALL   	034206	; $CLOSE
035664	005766	000020		TST    	000020(SP)
035670	001033			BNE    	035760
035672	004067	003520		JSR    	R0, 041416 ; $ERROR
035676	017000	000021		MOV    	@000021(R0), R0
035702	042522			BIC    	(R5)+, (R2)+
035704	042523			BIC    	(R5)+, (R3)+
035706	020124			CMP    	R1, (R4)+
035710	047101	020104		BIC    	@020104(R1), R1
035714	047516	043040		BIC    	@043040(R5), (SP)
035720	046111	000105		BIC    	000105(R1), (R1)
035724	004067	003466		JSR    	R0, 041416 ; $ERROR
035730	005400			NEG    	R0
035732	000023			unknown	000023
035734	040503			BIC    	R5, R3
035736	023516			CMP    	@(R5)+, (SP)
035740	020124			CMP    	R1, (R4)+
035742	042522			BIC    	(R5)+, (R2)+
035744	042523			BIC    	(R5)+, (R3)+
035746	024124			CMP    	-(R1), (R4)+
035750	052517			BIS    	(R5)+, (PC)
035752	050124			BIS    	R1, (R4)+
035754	052125			BIS    	(R1)+, (R5)+
035756	000051			unknown	000051
035760	004767	004050		CALL   	042034	; GETCHN
035764	004767	004556		CALL   	042546	; BLDNAM
035770	103521			BLO    	036234
035772	005700			TST    	R0
035774	001554			BEQ    	036326
035776	026727	007674	077150	CMP    	045676, #077150
036004	001016			BNE    	036042
036006	012765	000004	000024	MOV    	#000004, 000024(R5)
036014	005000			CLR    	R0
036016	156500	000014		BISB   	000014(R5), R0
036022	006300			ASL    	R0
036024	005060	045506		CLR    	045506(R0)
036030	005000			CLR    	R0
036032	112765	000377	000014	MOVB   	#000377, 000014(R5)
036040	000427			BR     	036120
036042	004767	004274		CALL   	042342	; GETHND
036046	103527			BLO    	036326
036050	004767	004360		CALL   	042434	; NFSCHK
036054	103524			BLO    	036326
036056	004767	176342		CALL   	034424	; LOWSTK
036062	012700	045714		MOV    	#045714, R0
036066	012710	000400		MOV    	#000400, (R0)
036072	116510	000014		MOVB   	000014(R5), (R0)
036076	012760	045676	000002	MOV    	#045676, 000002(R0)
036104	005060	000004		CLR    	000004(R0)
036110	104375			EMT    	000375
036112	004767	176332		CALL   	034450	; HISTK
036116	103503			BLO    	036326
036120	016601	000010		MOV    	000010(SP), R1
036124	001401			BEQ    	036130
036126	010011			MOV    	R0, (R1)
036130	016600	000022		MOV    	000022(SP), R0
036134	022700	177777		CMP    	#177777, R0
036140	001003			BNE    	036150
036142	005400			NEG    	R0
036144	052715	000200		BIS    	#000200, (R5)
036150	010065	000026		MOV    	R0, 000026(R5)
036154	004767	004030		CALL   	042210	; GETBUF
036160	052715	000010		BIS    	#000010, (R5)
036164	016545	000020		MOV    	000020(R5), -(R5)
036170	012565	000030		MOV    	(R5)+, 000030(R5)
036174	005065	000016		CLR    	000016(R5)
036200	122765	000377	000014	CMPB   	#000377, 000014(R5)
036206	001406			BEQ    	036224
036210	017767	007336	007334	MOV    	@045552, 045552
036216	004767	174740		CALL   	033162	; $GETCH ; $GET
036222	000404			BR     	036234
036224	052715	004000		BIS    	#004000, (R5)
036230	012755	000040		MOV    	#000040, @-(R5)
036234	012605			MOV    	(SP)+, R5
036236	012601			MOV    	(SP)+, R1
036240	012600			MOV    	(SP)+, R0
036242	012666	000012		MOV    	(SP)+, 000012(SP)
036246	062706	000012		ADD    	#000012, SP
036252	000207			RETURN 	
036254	004767	176104		CALL   	034364	; $BREAK
036260	042715	166471		BIC    	#166471, (R5)
036264	132765	000020	000025	BITB   	#000020, 000025(R5)
036272	001732			BEQ    	036160
036274	012700	045710		MOV    	#045710, R0
036300	012710	015000		MOV    	#015000, (R0)
036304	116510	000014		MOVB   	000014(R5), (R0)
036310	012760	175777	000010	MOV    	#175777, 000010(R0)
036316	005060	000012		CLR    	000012(R0)
036322	104375			EMT    	000375
036324	103315			BHIS   	036160
036326	016600	000010		MOV    	000010(SP), R0
036332	001405			BEQ    	036346
036334	012710	177777		MOV    	#177777, (R0)
036340	004767	175642		CALL   	034206	; $CLOSE
036344	000733			BR     	036234
036346	017767	007200	007176	MOV    	@045552, 045552
036354	004067	003036		JSR    	R0, 041416 ; $ERROR
036360	005401			NEG    	R1
036362	000015			unknown	000015
036364	042522			BIC    	(R5)+, (R2)+
036366	042523			BIC    	(R5)+, (R3)+
036370	020124			CMP    	R1, (R4)+
036372	040506			BIC    	R5, SP
036374	046111	051125		BIC    	051125(R1), (R1)
036400	000105			JMP    	R5
===================== RESET END ==================================
===================== SEEK BEGIN =================================
; $B65
036402	004567	174442		JSR    	R5, 033050 ; $SETIO
036406	000010			unknown	000010
036410	010246			MOV    	R2, -(SP)
036412	010346			MOV    	R3, -(SP)
036414	010446			MOV    	R4, -(SP)
036416	016600	000022		MOV    	000022(SP), R0
036422	016601	000024		MOV    	000024(SP), R1
036426	162701	000001		SUB    	#000001, R1
036432	005600			SBC    	R0
036434	100015			BPL    	036470
036436	004067	002754		JSR    	R0, 041416 ; $ERROR
036442	015401			MOV    	@-(R4), R1
036444	000021			MFUS   	
036446	042523			BIC    	(R5)+, (R3)+
036450	045505			BIC    	@-(R5), R5
036452	047440	052125		BIC    	@052125(R4), -(R0)
036456	047440	020106		BIC    	@020106(R4), -(R0)
036462	040522			BIC    	R5, (R2)+
036464	043516			BIC    	@(R5)+, (SP)
036466	000105			JMP    	R5
036470	032715	000004		BIT    	#000004, (R5)
036474	001404			BEQ    	036506
036476	132765	000200	000025	BITB   	#000200, 000025(R5)
036504	001020			BNE    	036546
036506	004067	002704		JSR    	R0, 041416 ; $ERROR
036512	016001	000027		MOV    	000027(R0), R1
036516	042523			BIC    	(R5)+, (R3)+
036520	045505			BIC    	@-(R5), R5
036522	047440	020116		BIC    	@020116(R4), -(R0)
036526	042523			BIC    	(R5)+, (R3)+
036530	052521			BIS    	(R5)+, (R1)+
036532	047105	044524		BIC    	@044524(R1), R5
036536	046101	043040		BIC    	043040(R1), R1
036542	046111	000105		BIC    	000105(R1), (R1)
036546	042715	100040		BIC    	#100040, (R5)
036552	032715	000002		BIT    	#000002, (R5)
036556	001405			BEQ    	036572
036560	016502	000026		MOV    	000026(R5), R2
036564	004767	000232		CALL   	037022
036570	000425			BR     	036644
036572	016502	000032		MOV    	000032(R5), R2
036576	001405			BEQ    	036612
036600	004767	000172		CALL   	036776
036604	070365	000026		MUL    	000026(R5), R3
036610	000411			BR     	036634
036612	016502	000026		MOV    	000026(R5), R2
036616	062702	000777		ADD    	#000777, R2
036622	072227	177767		ASH    	#177767, R2
036626	004767	000170		CALL   	037022
036632	005003			CLR    	R3
036634	073027	000011		ASHC   	#000011, R0
036640	060301			ADD    	R3, R1
036642	005500			ADC    	R0
036644	005002			CLR    	R2
036646	016503	000016		MOV    	000016(R5), R3
036652	073227	000011		ASHC   	#000011, R2
036656	160301			SUB    	R3, R1
036660	005600			SBC    	R0
036662	160200			SUB    	R2, R0
036664	001016			BNE    	036722
036666	016504	000030		MOV    	000030(R5), R4
036672	166504	000020		SUB    	000020(R5), R4
036676	166504	000026		SUB    	000026(R5), R4
036702	103407			BLO    	036722
036704	020104			CMP    	R1, R4
036706	101005			BHI    	036722
036710	066501	000020		ADD    	000020(R5), R1
036714	010165	177776		MOV    	R1, 177776(R5)
036720	000422			BR     	036766
036722	060103			ADD    	R1, R3
036724	005502			ADC    	R2
036726	060002			ADD    	R0, R2
036730	004767	175430		CALL   	034364	; $BREAK
036734	010345			MOV    	R3, -(R5)
036736	042715	177000		BIC    	#177000, (R5)
036742	066525	000022		ADD    	000022(R5), (R5)+
036746	073227	177767		ASHC   	#177767, R2
036752	010365	000016		MOV    	R3, 000016(R5)
036756	004767	175770		CALL   	034752	; READ
036762	004767	175130		CALL   	034116	; CHKEOF
036766	012604			MOV    	(SP)+, R4
036770	012603			MOV    	(SP)+, R3
036772	012602			MOV    	(SP)+, R2
036774	000207			RETURN 	
036776	010204			MOV    	R2, R4
037000	010003			MOV    	R0, R3
037002	006702			SXT    	R2
037004	071204			DIV    	R4, R2
037006	010200			MOV    	R2, R0
037010	010302			MOV    	R3, R2
037012	010103			MOV    	R1, R3
037014	071204			DIV    	R4, R2
037016	010201			MOV    	R2, R1
037020	000207			RETURN 	
037022	010103			MOV    	R1, R3
037024	070002			MUL    	R2, R0
037026	010300			MOV    	R3, R0
037030	002001			BGE    	037034
037032	060201			ADD    	R2, R1
037034	010103			MOV    	R1, R3
037036	005702			TST    	R2
037040	002001			BGE    	037044
037042	060003			ADD    	R0, R3
037044	070002			MUL    	R2, R0
037046	060300			ADD    	R3, R0
037050	000207			RETURN 	
===================== SEEK END ===================================
===================== FTRIG BEGIN ================================
; $B94
037052	042766	100000	000002	BIC    	#100000, 000002(SP)
037060	005046			CLR    	-(SP)
037062	005216			INC    	(SP)
037064	000401			BR     	037070
; $B92
037066	005046			CLR    	-(SP)
037070	005046			CLR    	-(SP)
037072	016646	000010		MOV    	000010(SP), -(SP)
037076	016646	000010		MOV    	000010(SP), -(SP)
037102	006316			ASL    	(SP)
037104	006066	000004		ROR    	000004(SP)
037110	006016			ROR    	(SP)
037112	021627	043600		CMP    	(SP), #043600
037116	002404			BLT    	037130
037120	005016			CLR    	(SP)
037122	005066	000002		CLR    	000002(SP)
037126	000534			BR     	037420
037130	012746	007732		MOV    	#007732, -(SP)
037134	012746	040311		MOV    	#040311, -(SP)
037140	075036			FDIV	SP
037142	016646	000002		MOV    	000002(SP), -(SP)
037146	016646	000002		MOV    	000002(SP), -(SP)
037152	004767	000742		CALL   	040120	; $B86
037156	066616	000010		ADD    	000010(SP), (SP)
037162	032716	000001		BIT    	#000001, (SP)
037166	001401			BEQ    	037172
037170	005216			INC    	(SP)
037172	032716	000002		BIT    	#000002, (SP)
037176	001403			BEQ    	037206
037200	062766	100000	000006	ADD    	#100000, 000006(SP)
037206	166616	000010		SUB    	000010(SP), (SP)
037212	004767	000550		CALL   	037766	; $B88
037216	075016			FSUB	SP
037220	021627	035200		CMP    	(SP), #035200
037224	103010			BHIS   	037246
037226	021627	142600		CMP    	(SP), #142600
037232	101405			BLOS   	037246
037234	012746	007732		MOV    	#007732, -(SP)
037240	012746	040311		MOV    	#040311, -(SP)
037244	000461			BR     	037410
037246	016646	000002		MOV    	000002(SP), -(SP)
037252	016646	000002		MOV    	000002(SP), -(SP)
037256	016646	000002		MOV    	000002(SP), -(SP)
037262	016646	000002		MOV    	000002(SP), -(SP)
037266	075026			FMUL	SP
037270	016646	000002		MOV    	000002(SP), -(SP)
037274	016646	000002		MOV    	000002(SP), -(SP)
037300	012746	153672		MOV    	#153672, -(SP)
037304	012746	035036		MOV    	#035036, -(SP)
037310	075026			FMUL	SP
037312	012746	023143		MOV    	#023143, -(SP)
037316	012746	136231		MOV    	#136231, -(SP)
037322	075006			FADD	SP
037324	016646	000006		MOV    	000006(SP), -(SP)
037330	016646	000006		MOV    	000006(SP), -(SP)
037334	075026			FMUL	SP
037336	012746	032130		MOV    	#032130, -(SP)
037342	012746	037243		MOV    	#037243, -(SP)
037346	075006			FADD	SP
037350	016646	000006		MOV    	000006(SP), -(SP)
037354	016646	000006		MOV    	000006(SP), -(SP)
037360	075026			FMUL	SP
037362	012746	056741		MOV    	#056741, -(SP)
037366	012746	140045		MOV    	#140045, -(SP)
037372	075006			FADD	SP
037374	075026			FMUL	SP
037376	012746	007732		MOV    	#007732, -(SP)
037402	012746	040311		MOV    	#040311, -(SP)
037406	075006			FADD	SP
037410	075026			FMUL	SP
037412	001402			BEQ    	037420
037414	066616	000004		ADD    	000004(SP), (SP)
037420	012666	000010		MOV    	(SP)+, 000010(SP)
037424	012666	000010		MOV    	(SP)+, 000010(SP)
037430	022626			CMP    	(SP)+, (SP)+
037432	000207			RETURN 	
===================== FTRIG END ==================================
===================== ARITH BEGIN ================================
; $B116
037434	010046			MOV    	R0, -(SP)
037436	010146			MOV    	R1, -(SP)
037440	005000			CLR    	R0
037442	016601	000010		MOV    	000010(SP), R1
037446	070166	000006		MUL    	000006(SP), R1
037452	000527			BR     	037732
; $B118
037454	010046			MOV    	R0, -(SP)
037456	010146			MOV    	R1, -(SP)
037460	005000			CLR    	R0
037462	016601	000010		MOV    	000010(SP), R1
037466	071066	000006		DIV    	000006(SP), R0
037472	103476			BLO    	037670
037474	010001			MOV    	R0, R1
037476	000515			BR     	037732
; $B120
037500	010046			MOV    	R0, -(SP)
037502	010146			MOV    	R1, -(SP)
037504	005000			CLR    	R0
037506	016601	000010		MOV    	000010(SP), R1
037512	071066	000006		DIV    	000006(SP), R0
037516	103464			BLO    	037670
037520	000504			BR     	037732
; $B78
037522	010046			MOV    	R0, -(SP)
037524	010146			MOV    	R1, -(SP)
037526	005000			CLR    	R0
037530	016601	000010		MOV    	000010(SP), R1
037534	100001			BPL    	037540
037536	005100			COM    	R0
037540	070166	000006		MUL    	000006(SP), R1
037544	103431			BLO    	037630
037546	000471			BR     	037732
; $B80
037550	010046			MOV    	R0, -(SP)
037552	010146			MOV    	R1, -(SP)
037554	005000			CLR    	R0
037556	016601	000010		MOV    	000010(SP), R1
037562	100001			BPL    	037566
037564	005100			COM    	R0
037566	071066	000006		DIV    	000006(SP), R0
037572	103436			BLO    	037670
037574	102435			BVS    	037670
037576	010001			MOV    	R0, R1
037600	000454			BR     	037732
; $B82
037602	010046			MOV    	R0, -(SP)
037604	010146			MOV    	R1, -(SP)
037606	005000			CLR    	R0
037610	016601	000010		MOV    	000010(SP), R1
037614	100001			BPL    	037620
037616	005100			COM    	R0
037620	071066	000006		DIV    	000006(SP), R0
037624	103421			BLO    	037670
037626	102041			BVC    	037732
037630	016667	000004	005710	MOV    	000004(SP), 045546
037636	004067	001554		JSR    	R0, 041416 ; $ERROR
037642	012002			MOV    	(R0)+, R2
037644	000020			RSEL   	
037646	047111	042524		BIC    	@042524(R1), (R1)
037652	042507			BIC    	(R5)+, PC
037654	020122			CMP    	R1, (R2)+
037656	053117			BIS    	@(R1)+, (PC)
037660	051105			BIS    	(R1), R5
037662	046106	053517		BIC    	053517(R1), SP
037666	000417			BR     	037726
037670	016667	000004	005650	MOV    	000004(SP), 045546
037676	004067	001514		JSR    	R0, 041416 ; $ERROR
037702	002400			BLT    	037704
037704	000020			RSEL   	
037706	044504			BIC    	-(R5), R4
037710	044526			BIC    	-(R5), (SP)+
037712	044523			BIC    	-(R5), (R3)+
037714	047117	041040		BIC    	@041040(R1), (PC)
037720	020131			CMP    	R1, @(R1)+
037722	042532			BIC    	(R5)+, @(R2)+
037724	047522	012701		BIC    	@012701(R5), (R2)+
037730	077777			SOB    	PC, 037534
037732	010166	000010		MOV    	R1, 000010(SP)
037736	012601			MOV    	(SP)+, R1
037740	012600			MOV    	(SP)+, R0
037742	012616			MOV    	(SP)+, (SP)
037744	000207			RETURN 	
===================== ARITH END ==================================
===================== CNVRT BEGIN ================================
; $B89
037746	016646	000002		MOV    	000002(SP), -(SP)
037752	016646	000002		MOV    	000002(SP), -(SP)
037756	005066	000004		CLR    	000004(SP)
037762	005066	000006		CLR    	000006(SP)
; $B88
037766	011646			MOV    	(SP), -(SP)
037770	010046			MOV    	R0, -(SP)
037772	010146			MOV    	R1, -(SP)
037774	005046			CLR    	-(SP)
037776	005000			CLR    	R0
040000	016601	000012		MOV    	000012(SP), R1
040004	001421			BEQ    	040050
040006	100002			BPL    	040014
040010	005401			NEG    	R1
040012	005116			COM    	(SP)
040014	112766	000220	000011	MOVB   	#000220, 000011(SP)
040022	000301			SWAB   	R1
040024	110100			MOVB   	R1, R0
040026	105001			CLRB   	R1
040030	105700			TSTB   	R0
040032	000402			BR     	040040
040034	006301			ASL    	R1
040036	106100			ROLB   	R0
040040	100405			BMI    	040054
040042	105366	000011		DECB   	000011(SP)
040046	000772			BR     	040034
040050	005066	000010		CLR    	000010(SP)
040054	106300			ASLB   	R0
040056	110066	000010		MOVB   	R0, 000010(SP)
040062	006326			ASL    	(SP)+
040064	006066	000006		ROR    	000006(SP)
040070	010166	000010		MOV    	R1, 000010(SP)
040074	012601			MOV    	(SP)+, R1
040076	012600			MOV    	(SP)+, R0
040100	000207			RETURN 	
; $B87
040102	016666	000004	000010	MOV    	000004(SP), 000010(SP)
040110	012666	000002		MOV    	(SP)+, 000002(SP)
040114	012666	000002		MOV    	(SP)+, 000002(SP)
; $B86
040120	010046			MOV    	R0, -(SP)
040122	010146			MOV    	R1, -(SP)
040124	005046			CLR    	-(SP)
040126	000413			BR     	040156
; $B109
040130	016666	000004	000010	MOV    	000004(SP), 000010(SP)
040136	012666	000002		MOV    	(SP)+, 000002(SP)
040142	012666	000002		MOV    	(SP)+, 000002(SP)
; $B108
040146	010046			MOV    	R0, -(SP)
040150	010146			MOV    	R1, -(SP)
040152	012746	177777		MOV    	#177777, -(SP)
040156	000241			CLC    	
040160	016601	000012		MOV    	000012(SP), R1
040164	016600	000010		MOV    	000010(SP), R0
040170	001456			BEQ    	040326
040172	006300			ASL    	R0
040174	000261			SEC    	
040176	106000			RORB   	R0
040200	105001			CLRB   	R1
040202	150001			BISB   	R0, R1
040204	105000			CLRB   	R0
040206	000300			SWAB   	R0
040210	000301			SWAB   	R1
040212	162700	000200		SUB    	#000200, R0
040216	003031			BGT    	040302
040220	002403			BLT    	040230
040222	005001			CLR    	R1
040224	000261			SEC    	
040226	000437			BR     	040326
040230	005001			CLR    	R1
040232	000435			BR     	040326
040234	005726			TST    	(SP)+
040236	016667	000004	005302	MOV    	000004(SP), 045546
040244	004067	001146		JSR    	R0, 041416 ; $ERROR
040250	012002			MOV    	(R0)+, R2
040252	000020			RSEL   	
040254	047111	042524		BIC    	@042524(R1), (R1)
040260	042507			BIC    	(R5)+, PC
040262	020122			CMP    	R1, (R2)+
040264	053117			BIS    	@(R1)+, (PC)
040266	051105			BIS    	(R1), R5
040270	046106	053517		BIC    	053517(R1), SP
040274	012701	077777		MOV    	#077777, R1
040300	000415			BR     	040334
040302	162700	000017		SUB    	#000017, R0
040306	003352			BGT    	040234
040310	001404			BEQ    	040322
040312	000241			CLC    	
040314	006001			ROR    	R1
040316	005200			INC    	R0
040320	100774			BMI    	040312
040322	000241			CLC    	
040324	006001			ROR    	R1
040326	005526			ADC    	(SP)+
040330	005501			ADC    	R1
040332	102741			BVS    	040236
040334	005766	000006		TST    	000006(SP)
040340	100002			BPL    	040346
040342	005401			NEG    	R1
040344	003333			BGT    	040234
040346	010166	000010		MOV    	R1, 000010(SP)
040352	012601			MOV    	(SP)+, R1
040354	012600			MOV    	(SP)+, R0
040356	012616			MOV    	(SP)+, (SP)
040360	000207			RETURN 	
===================== CNVRT END ==================================
===================== REG BEGIN ==================================
; $B74
040362	016746	005164		MOV    	045552, -(SP)
040366	010146			MOV    	R1, -(SP)
040370	010246			MOV    	R2, -(SP)
040372	010346			MOV    	R3, -(SP)
040374	010046			MOV    	R0, -(SP)
; $B127
040376	010601			MOV    	SP, R1
040400	162701	000036		SUB    	#000036, R1
040404	020167	005144		CMP    	R1, 045554
040410	101410			BLOS   	040432	; $NOMEM
040412	000207			RETURN 	
; $B76
040414	005726			TST    	(SP)+
040416	012603			MOV    	(SP)+, R3
040420	012602			MOV    	(SP)+, R2
040422	012601			MOV    	(SP)+, R1
040424	012667	005122		MOV    	(SP)+, 045552
040430	000200			RTS    	R0
; $NOMEM
040432	010067	005110		MOV    	R0, 045546
040436	012767	045474	005110	MOV    	#045474, 045554
040444	004067	000746		JSR    	R0, 041416 ; $ERROR
040450	000400			BR     	040452
040452	000025			unknown	000025
040454	052123			BIS    	(R1)+, (R3)+
040456	041501			BIC    	(R5), R1
040460	020113			CMP    	R1, (R3)
040462	054105			BIS    	-(R1), R5
040464	042503			BIC    	(R5)+, R3
040466	042105			BIC    	(R1)+, R5
040470	042105			BIC    	(R1)+, R5
040472	046440	046505		BIC    	046505(R4), -(R0)
040476	051117			BIS    	(R1), (PC)
040500	000131			JMP    	@(R1)+
; $B75
040502	010446			MOV    	R4, -(SP)
040504	016604	000002		MOV    	000002(SP), R4
040510	010566	000002		MOV    	R5, 000002(SP)
040514	010346			MOV    	R3, -(SP)
040516	010246			MOV    	R2, -(SP)
040520	010146			MOV    	R1, -(SP)
040522	010046			MOV    	R0, -(SP)
040524	000114			JMP    	(R4)
; $B77
040526	012605			MOV    	(SP)+, R5
040530	012600			MOV    	(SP)+, R0
040532	012601			MOV    	(SP)+, R1
040534	012602			MOV    	(SP)+, R2
040536	012603			MOV    	(SP)+, R3
040540	012604			MOV    	(SP)+, R4
040542	000205			RTS    	R5
; $B125
040544	011667	004776		MOV    	(SP), 045546
040550	004067	000642		JSR    	R0, 041416 ; $ERROR
040554	001000			BNE    	040556
040556	000027			unknown	000027
040560	052523			BIS    	(R5)+, (R3)+
040562	051502			BIS    	(R5), R2
040564	051103			BIS    	(R1), R3
040566	050111			BIS    	R1, (R1)
040570	020124			CMP    	R1, (R4)+
040572	052517			BIS    	(R5)+, (PC)
040574	020124			CMP    	R1, (R4)+
040576	043117			BIC    	@(R1)+, (PC)
040600	041040			BIC    	(R0), -(R0)
040602	052517			BIS    	(R5)+, (PC)
040604	042116			BIC    	(R1)+, (SP)
040606	000123			JMP    	(R3)+
===================== REG END ====================================
===================== ALLOC BEGIN ================================
; $B70
040610	011667	004732		MOV    	(SP), 045546
; $NEW
040614	010046			MOV    	R0, -(SP)
040616	010146			MOV    	R1, -(SP)
040620	010246			MOV    	R2, -(SP)
040622	016600	000010		MOV    	000010(SP), R0
040626	001465			BEQ    	041002
040630	005200			INC    	R0
040632	042700	000001		BIC    	#000001, R0
040636	012702	045556		MOV    	#045556, R2
040642	010201			MOV    	R2, R1
040644	011202			MOV    	(R2), R2
040646	001410			BEQ    	040670
040650	020062	000002		CMP    	R0, 000002(R2)
040654	101372			BHI    	040642
040656	001066			BNE    	041034
040660	011211			MOV    	(R2), (R1)
040662	010266	000010		MOV    	R2, 000010(SP)
040666	000503			BR     	041076
040670	010602			MOV    	SP, R2
040672	020627	046300		CMP    	SP, #046300
040676	101005			BHI    	040712
040700	020627	045624		CMP    	SP, #045624
040704	101402			BLOS   	040712
040706	016702	004560		MOV    	045472, R2
040712	016701	004636		MOV    	045554, R1
040716	060001			ADD    	R0, R1
040720	062701	000030		ADD    	#000030, R1
040724	020102			CMP    	R1, R2
040726	103006			BHIS   	040744
040730	016766	004620	000010	MOV    	045554, 000010(SP)
040736	060067	004612		ADD    	R0, 045554
040742	000455			BR     	041076
040744	004067	000446		JSR    	R0, 041416 ; $ERROR
040750	000400			BR     	040752
040752	000025			unknown	000025
040754	047047	053505		BIC    	@053505(R0), -(PC)
040760	020047			CMP    	R0, -(PC)
040762	054105			BIS    	-(R1), R5
040764	042503			BIC    	(R5)+, R3
040766	042105			BIC    	(R1)+, R5
040770	042105			BIC    	(R1)+, R5
040772	046440	046505		BIC    	046505(R4), -(R0)
040776	051117			BIS    	(R1), (PC)
041000	000131			JMP    	@(R1)+
041002	004067	000410		JSR    	R0, 041416 ; $ERROR
041006	012400			MOV    	(R4)+, R0
041010	000022			RCPC   	
041012	042516			BIC    	(R5)+, (SP)
041014	020127	043117		CMP    	R1, #043117
041020	055040			BIS    	@-(R0), -(R0)
041022	051105			BIS    	(R1), R5
041024	020117			CMP    	R1, (PC)
041026	042514			BIC    	(R5)+, (R4)
041030	043516			BIC    	@(R5)+, (SP)
041032	044124			BIC    	-(R1), (R4)+
041034	010266	000010		MOV    	R2, 000010(SP)
041040	010146			MOV    	R1, -(SP)
041042	060011			ADD    	R0, (R1)
041044	011101			MOV    	(R1), R1
041046	160062	000002		SUB    	R0, 000002(R2)
041052	022762	000004	000002	CMP    	#000004, 000002(R2)
041060	101004			BHI    	041072
041062	005726			TST    	(SP)+
041064	012221			MOV    	(R2)+, (R1)+
041066	012221			MOV    	(R2)+, (R1)+
041070	000402			BR     	041076
041072	012601			MOV    	(SP)+, R1
041074	011211			MOV    	(R2), (R1)
041076	012602			MOV    	(SP)+, R2
041100	012601			MOV    	(SP)+, R1
041102	012600			MOV    	(SP)+, R0
041104	000207			RETURN 	
; $B72
041106	011667	004434		MOV    	(SP), 045546
; $DISPO
041112	010146			MOV    	R1, -(SP)
041114	010246			MOV    	R2, -(SP)
041116	010346			MOV    	R3, -(SP)
041120	010446			MOV    	R4, -(SP)
041122	016603	000012		MOV    	000012(SP), R3
041126	001525			BEQ    	041402
041130	005200			INC    	R0
041132	042700	000001		BIC    	#000001, R0
041136	010063	000002		MOV    	R0, 000002(R3)
041142	022700	000004		CMP    	#000004, R0
041146	101407			BLOS   	041166
041150	060003			ADD    	R0, R3
041152	020367	004376		CMP    	R3, 045554
041156	001111			BNE    	041402
041160	160067	004370		SUB    	R0, 045554
041164	000506			BR     	041402
041166	012704	045556		MOV    	#045556, R4
041172	010402			MOV    	R4, R2
041174	010201			MOV    	R2, R1
041176	010402			MOV    	R4, R2
041200	011404			MOV    	(R4), R4
041202	001433			BEQ    	041272
041204	020304			CMP    	R3, R4
041206	101372			BHI    	041174
041210	001030			BNE    	041272
041212	004067	000200		JSR    	R0, 041416 ; $ERROR
041216	013002			MOV    	@(R0)+, R2
041220	000045			unknown	000045
041222	047504	041125		BIC    	@041125(R5), R4
041226	042514			BIC    	(R5)+, (R4)
041230	042040			BIC    	(R0)+, -(R0)
041232	040505			BIC    	R5, R5
041234	046114	041517		BIC    	041517(R1), (R4)
041240	052101			BIS    	(R1)+, R1
041242	047511	020116		BIC    	@020116(R5), (R1)
041246	043117			BIC    	@(R1)+, (PC)
041250	042040			BIC    	(R0)+, -(R0)
041252	047131	046501		BIC    	@046501(R1), @(R1)+
041256	041511			BIC    	(R5), (R1)
041260	046440	046505		BIC    	046505(R4), -(R0)
041264	051117			BIS    	(R1), (PC)
041266	000131			JMP    	@(R1)+
041270	000444			BR     	041402
041272	010413			MOV    	R4, (R3)
041274	010204			MOV    	R2, R4
041276	066204	000002		ADD    	000002(R2), R4
041302	020403			CMP    	R4, R3
041304	101342			BHI    	041212
041306	001006			BNE    	041324
041310	066200	000002		ADD    	000002(R2), R0
041314	010062	000002		MOV    	R0, 000002(R2)
041320	010203			MOV    	R2, R3
041322	010102			MOV    	R1, R2
041324	010300			MOV    	R3, R0
041326	066300	000002		ADD    	000002(R3), R0
041332	020067	004216		CMP    	R0, 045554
041336	001005			BNE    	041352
041340	166367	000002	004206	SUB    	000002(R3), 045554
041346	011312			MOV    	(R3), (R2)
041350	000414			BR     	041402
041352	103403			BLO    	041362
041354	020306			CMP    	R3, SP
041356	101001			BHI    	041362
041360	000714			BR     	041212
041362	010312			MOV    	R3, (R2)
041364	005713			TST    	(R3)
041366	001405			BEQ    	041402
041370	020013			CMP    	R0, (R3)
041372	101307			BHI    	041212
041374	001002			BNE    	041402
041376	012023			MOV    	(R0)+, (R3)+
041400	062023			ADD    	(R0)+, (R3)+
041402	012604			MOV    	(SP)+, R4
041404	012603			MOV    	(SP)+, R3
041406	012602			MOV    	(SP)+, R2
041410	012601			MOV    	(SP)+, R1
041412	012616			MOV    	(SP)+, (SP)
041414	000207			RETURN 	
===================== ALLOC END ==================================
===================== SERROR BEGIN ===============================
; $ERROR
041416	010046			MOV    	R0, -(SP)
041420	010146			MOV    	R1, -(SP)
041422	010246			MOV    	R2, -(SP)
041424	010346			MOV    	R3, -(SP)
041426	010446			MOV    	R4, -(SP)
041430	010546			MOV    	R5, -(SP)
041432	016746	004110		MOV    	045546, -(SP)
041436	016746	004110		MOV    	045552, -(SP)
041442	016746	004036		MOV    	045504, -(SP)
041446	016767	004030	004030	MOV    	045502, 045504
041454	005046			CLR    	-(SP)
041456	112016			MOVB   	(R0)+, (SP)
041460	005046			CLR    	-(SP)
041462	112016			MOVB   	(R0)+, (SP)
041464	012046			MOV    	(R0)+, -(SP)
041466	010046			MOV    	R0, -(SP)
041470	016746	004056		MOV    	045552, -(SP)
041474	005046			CLR    	-(SP)
041476	116716	136350		MOVB   	000052, (SP)
041502	016746	004040		MOV    	045546, -(SP)
041506	005046			CLR    	-(SP)
041510	012746	045566		MOV    	#045566, -(SP)
041514	026627	000020	000001	CMP    	000020(SP), #000001
041522	001037			BNE    	041622
041524	011600			MOV    	(SP), R0
041526	016705	004020		MOV    	045552, R5
041532	052765	001000	000002	BIS    	#001000, 000002(R5)
041540	062705	000004		ADD    	#000004, R5
041544	012503			MOV    	(R5)+, R3
041546	001404			BEQ    	041560
041550	004767	000150		CALL   	041724
041554	112720	000072		MOVB   	#000072, (R0)+
041560	012503			MOV    	(R5)+, R3
041562	001405			BEQ    	041576
041564	004767	000134		CALL   	041724
041570	011503			MOV    	(R5), R3
041572	004767	000126		CALL   	041724
041576	016503	000002		MOV    	000002(R5), R3
041602	001404			BEQ    	041614
041604	112720	000056		MOVB   	#000056, (R0)+
041610	004767	000110		CALL   	041724
041614	161600			SUB    	(SP), R0
041616	010066	000002		MOV    	R0, 000002(SP)
041622	104355			EMT    	000355
041624	004767	002310		CALL   	044140	; ERROR
041630	012667	003650		MOV    	(SP)+, 045504
041634	012667	003712		MOV    	(SP)+, 045552
041640	012667	003702		MOV    	(SP)+, 045546
041644	012605			MOV    	(SP)+, R5
041646	012604			MOV    	(SP)+, R4
041650	012603			MOV    	(SP)+, R3
041652	012602			MOV    	(SP)+, R2
041654	012601			MOV    	(SP)+, R1
041656	012600			MOV    	(SP)+, R0
041660	121027	000002		CMPB   	(R0), #000002
041664	001405			BEQ    	041700
041666	152767	000010	136157	BISB   	#000010, 000053
041674	000167	170662		JMP    	032562	; $END
041700	152767	000002	136145	BISB   	#000002, 000053
041706	066000	000002		ADD    	000002(R0), R0
041712	062700	000005		ADD    	#000005, R0
041716	042700	000001		BIC    	#000001, R0
041722	000200			RTS    	R0
041724	012701	041764		MOV    	#041764, R1
041730	005741			TST    	-(R1)
041732	001407			BEQ    	041752
041734	005002			CLR    	R2
041736	071211			DIV    	(R1), R2
041740	116202	041764		MOVB   	041764(R2), R2
041744	001771			BEQ    	041730
041746	110220			MOVB   	R2, (R0)+
041750	000767			BR     	041730
041752	000207			RETURN 	
041754	000000			HALT   	
041756	000001			WAIT   	
041760	000050			unknown	000050
041762	003100			BGT    	042164
041764	040400			BIC    	R4, R0
041766	041502			BIC    	(R5), R2
041770	042504			BIC    	(R5)+, R4
041772	043506			BIC    	@(R5)+, SP
041774	044510			BIC    	-(R5), (R0)
041776	045512			BIC    	@-(R5), (R2)
042000	046514	047516		BIC    	047516(R5), (R4)
042004	050520			BIS    	R5, (R0)+
042006	051522			BIS    	(R5), (R2)+
042010	052524			BIS    	(R5)+, (R4)+
042012	053526			BIS    	@(R5)+, (SP)+
042014	054530			BIS    	-(R5), @(R0)+
042016	022132			CMP    	(R1)+, @(R2)+
042020	037456	030460		BIT    	@030460(R4), @-(SP)
042024	031462	032464		BIT    	(R4), 032464(R2)
042030	033466	000071		BIT    	@(R4)+, 000071(SP)
===================== SERROR END =================================
===================== OPEN BEGIN =================================
; GETCHN
042034	012700	045546		MOV    	#045546, R0
042040	012701	000020		MOV    	#000020, R1
042044	005740			TST    	-(R0)
042046	001420			BEQ    	042110
042050	077103			SOB    	R1, 042044
042052	004067	177340		JSR    	R0, 041416 ; $ERROR
042056	010000			MOV    	R0, R0
042060	000025			unknown	000025
042062	047516	041440		BIC    	@041440(R5), (SP)
042066	040510			BIC    	R5, (R0)
042070	047116	046105		BIC    	@046105(R1), (SP)
042074	020123			CMP    	R1, (R3)+
042076	053101			BIS    	@(R1)+, R1
042100	044501			BIC    	-(R5), R1
042102	040514			BIC    	R5, (R4)
042104	046102	000105		BIC    	000105(R1), R2
042110	012746	000036		MOV    	#000036, -(SP)
042114	004767	176474		CALL   	040614	; $NEW
042120	012605			MOV    	(SP)+, R5
042122	010510			MOV    	R5, (R0)
042124	027767	003422	003346	CMP    	@045552, 045500
042132	001002			BNE    	042140
042134	010567	003340		MOV    	R5, 045500
042140	027767	003406	003336	CMP    	@045552, 045504
042146	001002			BNE    	042154
042150	010567	003330		MOV    	R5, 045504
042154	010577	003372		MOV    	R5, @045552
042160	012701	000017		MOV    	#000017, R1
042164	005025			CLR    	(R5)+
042166	077102			SOB    	R1, 042164
042170	011005			MOV    	(R0), R5
042172	005725			TST    	(R5)+
042174	162700	045506		SUB    	#045506, R0
042200	006200			ASR    	R0
042202	110065	000014		MOVB   	R0, 000014(R5)
042206	000207			RETURN 	
; GETBUF
042210	016500	000026		MOV    	000026(R5), R0
042214	001422			BEQ    	042262
042216	132765	000200	000025	BITB   	#000200, 000025(R5)
042224	001416			BEQ    	042262
042226	032715	000002		BIT    	#000002, (R5)
042232	001407			BEQ    	042252
042234	000241			CLC    	
042236	010001			MOV    	R0, R1
042240	006001			ROR    	R1
042242	103376			BHIS   	042240
042244	001402			BEQ    	042252
042246	062700	001000		ADD    	#001000, R0
042252	062700	000777		ADD    	#000777, R0
042256	042700	000777		BIC    	#000777, R0
042262	022700	001000		CMP    	#001000, R0
042266	101402			BLOS   	042274
042270	012700	001000		MOV    	#001000, R0
042274	026500	000022		CMP    	000022(R5), R0
042300	103002			BHIS   	042306
042302	010065	000022		MOV    	R0, 000022(R5)
042306	016546	000022		MOV    	000022(R5), -(SP)
042312	004767	176276		CALL   	040614	; $NEW
042316	012665	000020		MOV    	(SP)+, 000020(R5)
042322	012701	001000		MOV    	#001000, R1
042326	005000			CLR    	R0
042330	071065	000026		DIV    	000026(R5), R0
042334	010065	000032		MOV    	R0, 000032(R5)
042340	000207			RETURN 	
; GETHND
042342	004767	172056		CALL   	034424	; LOWSTK
042346	104346			EMT    	000346
042350	012700	045676		MOV    	#045676, R0
042354	012746	045714		MOV    	#045714, -(SP)
042360	104342			EMT    	000342
042362	103413			BLO    	042412
042364	005767	003330		TST    	045720
042370	001010			BNE    	042412
042372	016746	003320		MOV    	045716, -(SP)
042376	004767	176212		CALL   	040614	; $NEW
042402	012700	045676		MOV    	#045676, R0
042406	012646			MOV    	(SP)+, -(SP)
042410	104343			EMT    	000343
042412	006100			ROL    	R0
042414	104347			EMT    	000347
042416	004767	172026		CALL   	034450	; HISTK
042422	016765	003266	000024	MOV    	045714, 000024(R5)
042430	006000			ROR    	R0
042432	000207			RETURN 	
; NFSCHK
042434	132765	000200	000025	BITB   	#000200, 000025(R5)
042442	001411			BEQ    	042466
042444	005765	000004		TST    	000004(R5)
042450	001006			BNE    	042466
042452	016600	000012		MOV    	000012(SP), R0
042456	001407			BEQ    	042476
042460	021027	100000		CMP    	(R0), #100000
042464	001002			BNE    	042472
042466	000241			CLC    	
042470	000207			RETURN 	
042472	000261			SEC    	
042474	000207			RETURN 	
042476	017767	003050	003046	MOV    	@045552, 045552
042504	004067	176706		JSR    	R0, 041416 ; $ERROR
042510	021001			CMP    	(R0), R1
042512	000031			MTUS   	
042514	043116			BIC    	@(R1)+, (SP)
042516	020123			CMP    	R1, (R3)+
042520	041501			BIC    	(R5), R1
042522	042503			BIC    	(R5)+, R3
042524	051523			BIS    	(R5), (R3)+
042526	052040			BIS    	(R0)+, -(R0)
042530	020117			CMP    	R1, (PC)
042532	044506			BIC    	-(R5), SP
042534	042514			BIC    	(R5)+, (R4)
042536	042040			BIC    	(R0)+, -(R0)
042540	053105			BIS    	@(R1)+, R5
042542	041511			BIC    	(R5), (R1)
042544	000105			JMP    	R5
; BLDNAM
042546	004767	170260		CALL   	033032	; CLRSCR
042552	012700	000016		MOV    	#000016, R0
042556	004767	000330		CALL   	043112
042562	105767	003036		TSTB   	045624
042566	001406			BEQ    	042604
042570	016767	003104	003106	MOV    	045700, 045704
042576	005067	003076		CLR    	045700
042602	000414			BR     	042634
042604	105767	003015		TSTB   	045625
042610	001003			BNE    	042620
042612	012767	000000	003064	MOV    	#000000, 045704
042620	105767	003002		TSTB   	045626
042624	001003			BNE    	042634
042626	012767	015270	003042	MOV    	#015270, 045676
042634	012700	045676		MOV    	#045676, R0
042640	012701	045630		MOV    	#045630, R1
042644	012021			MOV    	(R0)+, (R1)+
042646	012021			MOV    	(R0)+, (R1)+
042650	012021			MOV    	(R0)+, (R1)+
042652	012021			MOV    	(R0)+, (R1)+
042654	012700	000022		MOV    	#000022, R0
042660	004767	000226		CALL   	043112
042664	105767	002736		TSTB   	045626
042670	001003			BNE    	042700
042672	016767	002732	002776	MOV    	045630, 045676
042700	012700	045700		MOV    	#045700, R0
042704	005710			TST    	(R0)
042706	001004			BNE    	042720
042710	016720	002716		MOV    	045632, (R0)+
042714	016720	002714		MOV    	045634, (R0)+
042720	105767	002701		TSTB   	045625
042724	001003			BNE    	042734
042726	016767	002704	002750	MOV    	045636, 045704
042734	012700	045676		MOV    	#045676, R0
042740	012701	000002		MOV    	#000002, R1
042744	060501			ADD    	R5, R1
042746	012021			MOV    	(R0)+, (R1)+
042750	012021			MOV    	(R0)+, (R1)+
042752	012021			MOV    	(R0)+, (R1)+
042754	012021			MOV    	(R0)+, (R1)+
042756	005021			CLR    	(R1)+
042760	116700	002642		MOVB   	045626, R0
042764	056500	000004		BIS    	000004(R5), R0
042770	001005			BNE    	043004
042772	052715	000100		BIS    	#000100, (R5)
042776	012765	077430	000004	MOV    	#077430, 000004(R5)
043004	105767	002617		TSTB   	045627
043010	001424			BEQ    	043062
043012	016600	000012		MOV    	000012(SP), R0
043016	001422			BEQ    	043064
043020	012700	177777		MOV    	#177777, R0
043024	005000			CLR    	R0
043026	156500	000014		BISB   	000014(R5), R0
043032	006300			ASL    	R0
043034	005060	045506		CLR    	045506(R0)
043040	005745			TST    	-(R5)
043042	010546			MOV    	R5, -(SP)
043044	012700	000036		MOV    	#000036, R0
043050	004767	176036		CALL   	041112	; $DISPO
043054	005077	002472		CLR    	@045552
043060	000261			SEC    	
043062	000207			RETURN 	
043064	004067	176326		JSR    	R0, 041416 ; $ERROR
043070	017000	000015		MOV    	@000015(R0), R0
043074	040502			BIC    	R5, R2
043076	020104			CMP    	R1, R4
043100	044506			BIC    	-(R5), SP
043102	042514			BIC    	(R5)+, (R4)
043104	047040	046501		BIC    	@046501(R0), -(R0)
043110	000105			JMP    	R5
043112	012767	000377	002504	MOV    	#000377, 045624
043120	105067	002502		CLRB   	045626
043124	060600			ADD    	SP, R0
043126	010246			MOV    	R2, -(SP)
043130	010346			MOV    	R3, -(SP)
043132	010446			MOV    	R4, -(SP)
043134	012003			MOV    	(R0)+, R3
043136	011002			MOV    	(R0), R2
043140	060203			ADD    	R2, R3
043142	012701	045640		MOV    	#045640, R1
043146	004767	000566		CALL   	043740
043152	103522			BLO    	043420
043154	120427	000072		CMPB   	R4, #000072
043160	001004			BNE    	043172
043162	005700			TST    	R0
043164	001112			BNE    	043412
043166	105267	002434		INCB   	045626
043172	120427	000056		CMPB   	R4, #000056
043176	001013			BNE    	043226
043200	020127	045640		CMP    	R1, #045640
043204	001006			BNE    	043222
043206	012704	000052		MOV    	#000052, R4
043212	004767	000574		CALL   	044012
043216	012704	000056		MOV    	#000056, R4
043222	105267	002377		INCB   	045625
043226	120427	000132		CMPB   	R4, #000132
043232	101011			BHI    	043256
043234	120427	000101		CMPB   	R4, #000101
043240	103010			BHIS   	043262
043242	120427	000071		CMPB   	R4, #000071
043246	101003			BHI    	043256
043250	120427	000060		CMPB   	R4, #000060
043254	103002			BHIS   	043262
043256	105067	002342		CLRB   	045624
043262	005000			CLR    	R0
043264	120427	000057		CMPB   	R4, #000057
043270	001050			BNE    	043412
043272	004767	000514		CALL   	044012
043276	004767	000436		CALL   	043740
043302	010400			MOV    	R4, R0
043304	004767	000430		CALL   	043740
043310	000304			SWAB   	R4
043312	150004			BISB   	R0, R4
043314	010146			MOV    	R1, -(SP)
043316	012701	044044		MOV    	#044044, R1
043322	012700	000060		MOV    	#000060, R0
043326	005711			TST    	(R1)
043330	001423			BEQ    	043400
043332	020421			CMP    	R4, (R1)+
043334	001407			BEQ    	043354
043336	105721			TSTB   	(R1)+
043340	001376			BNE    	043336
043342	005201			INC    	R1
043344	042701	000001		BIC    	#000001, R1
043350	005200			INC    	R0
043352	000765			BR     	043326
043354	004767	000360		CALL   	043740
043360	120427	000132		CMPB   	R4, #000132
043364	101007			BHI    	043404
043366	120427	000101		CMPB   	R4, #000101
043372	103404			BLO    	043404
043374	120421			CMPB   	R4, (R1)+
043376	001766			BEQ    	043354
043400	005726			TST    	(SP)+
043402	000517			BR     	043642
043404	005302			DEC    	R2
043406	012601			MOV    	(SP)+, R1
043410	010004			MOV    	R0, R4
043412	004767	000374		CALL   	044012
043416	000653			BR     	043146
043420	105767	002203		TSTB   	045627
043424	001061			BNE    	043570
043426	020127	045640		CMP    	R1, #045640
043432	001456			BEQ    	043570
043434	005004			CLR    	R4
043436	004767	000350		CALL   	044012
043442	004767	170756		CALL   	034424	; LOWSTK
043446	012746	045640		MOV    	#045640, -(SP)
043452	012746	044034		MOV    	#044034, -(SP)
043456	012746	045640		MOV    	#045640, -(SP)
043462	104345			EMT    	000345
043464	103466			BLO    	043642
043466	012700	045640		MOV    	#045640, R0
043472	012701	000042		MOV    	#000042, R1
043476	020027	045676		CMP    	R0, #045676
043502	001002			BNE    	043510
043504	062700	000010		ADD    	#000010, R0
043510	005720			TST    	(R0)+
043512	001053			BNE    	043642
043514	077110			SOB    	R1, 043476
043516	012604			MOV    	(SP)+, R4
043520	001423			BEQ    	043570
043522	012600			MOV    	(SP)+, R0
043524	010003			MOV    	R0, R3
043526	100001			BPL    	043532
043530	012602			MOV    	(SP)+, R2
043532	005001			CLR    	R1
043534	150001			BISB   	R0, R1
043536	162701	000060		SUB    	#000060, R1
043542	006301			ASL    	R1
043544	000300			SWAB   	R0
043546	042700	177600		BIC    	#177600, R0
043552	020027	000003		CMP    	R0, #000003
043556	001031			BNE    	043642
043560	005703			TST    	R3
043562	004771	044122		CALL   	@044122(R1)
043566	077423			SOB    	R4, 043522
043570	012700	045676		MOV    	#045676, R0
043574	021027	132500		CMP    	(R0), #132500
043600	001403			BEQ    	043610
043602	021027	134745		CMP    	(R0), #134745
043606	001002			BNE    	043614
043610	005020			CLR    	(R0)+
043612	005010			CLR    	(R0)
043614	005767	002060		TST    	045700
043620	001002			BNE    	043626
043622	105067	001776		CLRB   	045624
043626	004767	170616		CALL   	034450	; HISTK
043632	012604			MOV    	(SP)+, R4
043634	012603			MOV    	(SP)+, R3
043636	012602			MOV    	(SP)+, R2
043640	000207			RETURN 	
043642	105267	001761		INCB   	045627
043646	000750			BR     	043570
043650	100774			BMI    	043642
043652	052715	000002		BIS    	#000002, (R5)
043656	000207			RETURN 	
043660	100770			BMI    	043642
043662	052715	000004		BIS    	#000004, (R5)
043666	000207			RETURN 	
043670	100764			BMI    	043642
043672	052715	010000		BIS    	#010000, (R5)
043676	000207			RETURN 	
043700	100760			BMI    	043642
043702	052715	000100		BIS    	#000100, (R5)
043706	000207			RETURN 	
043710	100354			BPL    	043642
043712	010265	000022		MOV    	R2, 000022(R5)
043716	000207			RETURN 	
043720	100750			BMI    	043642
043722	052715	001000		BIS    	#001000, (R5)
043726	000207			RETURN 	
043730	100344			BPL    	043642
043732	010265	000012		MOV    	R2, 000012(R5)
043736	000207			RETURN 	
043740	112204			MOVB   	(R2)+, R4
043742	042704	177600		BIC    	#177600, R4
043746	020203			CMP    	R2, R3
043750	101015			BHI    	044004
043752	122704	000040		CMPB   	#000040, R4
043756	103370			BHIS   	043740
043760	120427	000172		CMPB   	R4, #000172
043764	101005			BHI    	044000
043766	120427	000141		CMPB   	R4, #000141
043772	103402			BLO    	044000
043774	162704	000040		SUB    	#000040, R4
044000	000241			CLC    	
044002	000207			RETURN 	
044004	005004			CLR    	R4
044006	000261			SEC    	
044010	000207			RETURN 	
044012	020127	045770		CMP    	R1, #045770
044016	103404			BLO    	044030
044020	112767	000001	001601	MOVB   	#000001, 045627
044026	000207			RETURN 	
044030	110421			MOVB   	R4, (R1)+
044032	000207			RETURN 	
044034	000000			HALT   	
044036	000000			HALT   	
044040	000000			HALT   	
044042	000000			HALT   	
044044	042523			BIC    	(R5)+, (R3)+
044046	045505			BIC    	@-(R5), R5
044050	000000			HALT   	
044052	050123			BIS    	R1, (R3)+
044054	047101	000000		BIC    	@000000(R1), R1
044060	042117			BIC    	(R1)+, (PC)
044062	000124			JMP    	(R4)+
044064	042524			BIC    	(R5)+, (R4)+
044066	050115			BIS    	R1, (R5)
044070	000000			HALT   	
044072	052502			BIS    	(R5)+, R2
044074	043106			BIC    	@(R1)+, SP
044076	051105			BIS    	(R1), R5
044100	044523			BIC    	-(R5), (R3)+
044102	042532			BIC    	(R5)+, @(R2)+
044104	000000			HALT   	
044106	047507	000000		BIC    	@000000(R5), PC
044112	044523			BIC    	-(R5), (R3)+
044114	042532			BIC    	(R5)+, @(R2)+
044116	000000			HALT   	
044120	000000			HALT   	
044122	043660	043650		BIC    	@(SP)+, 043650(R0)
044126	043670	043700		BIC    	@(SP)+, @043700(R0)
044132	043710	043720		BIC    	@#043720, (R0)
044136	043730
===================== OPEN END ===================================
===================== ERROR BEGIN =================================
; ERROR
044140	005046			CLR	-(SP)
044142	004767	001070		CALL   	045236	; $B36
044146	116600	000024		MOVB   	000024(SP), R0
044152	162700	000001		SUB    	#000001, R0
044156	002430			BLT    	044240
044160	022700	000001		CMP    	#000001, R0
044164	002425			BLT    	044240
044166	006300			ASL    	R0
044170	000170	044262		JMP    	@044262(R0)
044174	012746	044522		MOV    	#044522, -(SP)
044200	012746	000011		MOV    	#000011, -(SP)
044204	012746	000011		MOV    	#000011, -(SP)
044210	004767	001060		CALL   	045274	; $B32
044214	000424			BR     	044266
044216	012746	044534		MOV    	#044534, -(SP)
044222	012746	000014		MOV    	#000014, -(SP)
044226	012746	000014		MOV    	#000014, -(SP)
044232	004767	001036		CALL   	045274	; $B32
044236	000413			BR     	044266
044240	012746	044552		MOV    	#044552, -(SP)
044244	012746	000016		MOV    	#000016, -(SP)
044250	012746	000016		MOV    	#000016, -(SP)
044254	004767	001014		CALL   	045274	; $B32
044260	000402			BR     	044266
044262	044216			BIC    	-(R2), (SP)
044264	044174	016646		BIC    	-(R1), @016646(R4)
044270	000016			STEP   	
044272	012746	000144		MOV    	#000144, -(SP)
044276	016646	000024		MOV    	000024(SP), -(SP)
044302	004767	000766		CALL   	045274	; $B32
044306	004767	000724		CALL   	045236	; $B36
044312	126627	000024	000001	CMPB   	000024(SP), #000001
044320	001052			BNE    	044446
044322	005766	000006		TST    	000006(SP)
044326	003427			BLE    	044406
044330	012746	044572		MOV    	#044572, -(SP)
044334	012746	000014		MOV    	#000014, -(SP)
044340	012746	000014		MOV    	#000014, -(SP)
044344	004767	000724		CALL   	045274	; $B32
044350	016646	000004		MOV    	000004(SP), -(SP)
044354	012746	000144		MOV    	#000144, -(SP)
044360	016646	000012		MOV    	000012(SP), -(SP)
044364	004767	000704		CALL   	045274	; $B32
044370	012746	000042		MOV    	#000042, -(SP)
044374	005046			CLR    	-(SP)
044376	004767	000552		CALL   	045154	; $B20
044402	004767	000630		CALL   	045236	; $B36
044406	012746	044610		MOV    	#044610, -(SP)
044412	012746	000015		MOV    	#000015, -(SP)
044416	012746	000015		MOV    	#000015, -(SP)
044422	004767	000646		CALL   	045274	; $B32
044426	016646	000012		MOV    	000012(SP), -(SP)
044432	012746	000001		MOV    	#000001, -(SP)
044436	004767	000210		CALL   	044652	; $B24
044442	004767	000570		CALL   	045236	; $B36
044446	012746	044626		MOV    	#044626, -(SP)
044452	012746	000022		MOV    	#000022, -(SP)
044456	012746	000022		MOV    	#000022, -(SP)
044462	004767	000606		CALL   	045274	; $B32
044466	016646	000010		MOV    	000010(SP), -(SP)
044472	012746	177777		MOV    	#177777, -(SP)
044476	004767	000150		CALL   	044652	; $B24
044502	004767	000530		CALL   	045236	; $B36
044506	016666	000002	000024	MOV    	000002(SP), 000024(SP)
044514	062706	000024		ADD    	#000024, SP
044520	000207			RETURN 	
044522	040527	047122		BIC    	R5, #047122
044526	047111	035107		BIC    	@035107(R1), (R1)
044532	000040			unknown	000040
044534	044477	047457		BIC    	-(R4), @114217
044540	042440			BIC    	(R4)+, -(R0)
044542	051122			BIS    	(R1), (R2)+
044544	051117			BIS    	(R1), (PC)
044546	020072	000000		CMP    	R0, @000000(R2)
044552	043077	052101		BIC    	@(R0)+, @116657
044556	046101	042440		BIC    	042440(R1), R1
044562	051122			BIS    	(R1), (R2)+
044564	051117			BIS    	(R1), (PC)
044566	020072	000000		CMP    	R0, @000000(R2)
044572	043040			BIC    	@(R0)+, -(R0)
044574	046111	047105		BIC    	047105(R1), (R1)
044600	046501	035105		BIC    	035105(R5), R1
044604	021040			CMP    	(R0), -(R0)
044606	000000			HALT   	
044610	044440			BIC    	-(R4), -(R0)
044612	047457	051440		BIC    	@051440(R4), @-(PC)
044616	040524			BIC    	R5, (R4)+
044620	052524			BIS    	(R5)+, (R4)+
044622	035123			BIT    	@-(R1), (R3)+
044624	000040			unknown	000040
044626	050040			BIS    	R0, -(R0)
044630	047522	051107		BIC    	@051107(R5), (R2)+
044634	046501	041440		BIC    	041440(R5), R1
044640	052517			BIS    	(R5)+, (PC)
044642	052116			BIS    	(R1)+, (SP)
044644	051105			BIS    	(R1), R5
044646	020072	000000		CMP    	R0, @000000(R2)
===================== ERROR END ==================================
===================== WRITI BEGIN ================================
; $B24
044652	016767	000626	000672	MOV    	045504, 045552
; $B26
044660	004567	166164		JSR    	R5, 033050 ; $SETIO
044664	000010			unknown	000010
044666	010246			MOV    	R2, -(SP)
044670	010346			MOV    	R3, -(SP)
044672	010446			MOV    	R4, -(SP)
044674	005046			CLR    	-(SP)
044676	012703	000006		MOV    	#000006, R3
044702	016601	000026		MOV    	000026(SP), R1
044706	001001			BNE    	044712
044710	005203			INC    	R3
044712	016602	000024		MOV    	000024(SP), R2
044716	100012			BPL    	044744
044720	012704	045052		MOV    	#045052, R4
044724	005402			NEG    	R2
044726	005701			TST    	R1
044730	100015			BPL    	044764
044732	012716	000061		MOV    	#000061, (SP)
044736	042701	100000		BIC    	#100000, R1
044742	000415			BR     	044776
044744	012704	045066		MOV    	#045066, R4
044750	005701			TST    	R1
044752	100004			BPL    	044764
044754	012716	000055		MOV    	#000055, (SP)
044760	005401			NEG    	R1
044762	005203			INC    	R3
044764	005303			DEC    	R3
044766	022401			CMP    	(R4)+, R1
044770	101375			BHI    	044764
044772	005744			TST    	-(R4)
044774	001776			BEQ    	044772
044776	160302			SUB    	R3, R2
045000	003405			BLE    	045014
045002	012700	000040		MOV    	#000040, R0
045006	004767	000070		CALL   	045102	; $PUTCH
045012	077205			SOB    	R2, 045002
045014	012600			MOV    	(SP)+, R0
045016	001004			BNE    	045030
045020	005000			CLR    	R0
045022	071024			DIV    	(R4)+, R0
045024	062700	000060		ADD    	#000060, R0
045030	004767	000046		CALL   	045102	; $PUTCH
045034	077307			SOB    	R3, 045020
045036	004767	000156		CALL   	045220	; $FLUSH
045042	012604			MOV    	(SP)+, R4
045044	012603			MOV    	(SP)+, R3
045046	012602			MOV    	(SP)+, R2
045050	000207			RETURN 	
045052	010000			MOV    	R0, R0
045054	001000			BNE    	045056
045056	000100			JMP    	R0
045060	000010			unknown	000010
045062	000001			WAIT   	
045064	000000			HALT   	
045066	023420			CMP    	@(R4)+, (R0)+
045070	001750			BEQ    	045012
045072	000144			JMP    	-(R4)
045074	000012			START  	
045076	000001			WAIT   	
045100	000000			HALT   	
===================== WRITI END ==================================
===================== WRITC BEGIN ================================
; $PUTCH
045102	110075	177776		MOVB   	R0, @177776(R5)
045106	052715	000001		BIS    	#000001, (R5)
045112	005245			INC    	-(R5)
045114	022565	000030		CMP    	(R5)+, 000030(R5)
045120	101403			BLOS   	045130
045122	016565	177776	000030	MOV    	177776(R5), 000030(R5)
045130	016500	000020		MOV    	000020(R5), R0
045134	066500	000022		ADD    	000022(R5), R0
045140	026500	177776		CMP    	177776(R5), R0
045144	103402			BLO    	045152
045146	004767	166434		CALL   	033606	; NXTBUF
045152	000207			RETURN 	
; $B20
045154	016767	000324	000370	MOV    	045504, 045552
; $B22
045162	004567	165662		JSR    	R5, 033050 ; $SETIO
045166	000010			unknown	000010
045170	000404			BR     	045202
045172	012700	000040		MOV    	#000040, R0
045176	004767	177700		CALL   	045102	; $PUTCH
045202	005366	000014		DEC    	000014(SP)
045206	003371			BGT    	045172
045210	016600	000016		MOV    	000016(SP), R0
045214	004767	177662		CALL   	045102	; $PUTCH
; $FLUSH
045220	122765	000377	000014	CMPB   	#000377, 000014(R5)
045226	001002			BNE    	045234
045230	004767	167130		CALL   	034364	; $BREAK
045234	000207			RETURN 	
; $B36
045236	016767	000242	000306	MOV    	045504, 045552
; $B38
045244	004567	165600		JSR    	R5, 033050 ; $SETIO
045250	000004			IOT    	
045252	112700	000015		MOVB   	#000015, R0
045256	004767	177620		CALL   	045102	; $PUTCH
045262	112700	000012		MOVB   	#000012, R0
045266	004767	177610		CALL   	045102	; $PUTCH
045272	000752			BR     	045220	; $FLUSH
; $B32
045274	016767	000204	000250	MOV    	045504, 045552
; $B34
045302	004567	165542		JSR    	R5, 033050 ; $SETIO
045306	000012			START  	
045310	016601	000014		MOV    	000014(SP), R1
045314	166601	000016		SUB    	000016(SP), R1
045320	003405			BLE    	045334
045322	012700	000040		MOV    	#000040, R0
045326	004767	177550		CALL   	045102	; $PUTCH
045332	077105			SOB    	R1, 045322
045334	060166	000016		ADD    	R1, 000016(SP)
045340	003410			BLE    	045362
045342	016601	000020		MOV    	000020(SP), R1
045346	112100			MOVB   	(R1)+, R0
045350	004767	177526		CALL   	045102	; $PUTCH
045354	005366	000016		DEC    	000016(SP)
045360	003372			BGT    	045346
045362	000716			BR     	045220	; $FLUSH
; $B110
045364	016767	000114	000160	MOV    	045504, 045552
; $B112
045372	011646			MOV    	(SP), -(SP)
045374	016666	000004	000002	MOV    	000004(SP), 000002(SP)
045402	004567	165442		JSR    	R5, 033050 ; $SETIO
045406	000012			START  	
045410	006066	000020		ROR    	000020(SP)
045414	012700	000004		MOV    	#000004, R0
045420	012766	045460	000020	MOV    	#045460, 000020(SP)
045426	103404			BLO    	045440
045430	012766	045464	000020	MOV    	#045464, 000020(SP)
045436	005200			INC    	R0
045440	026600	000014		CMP    	000014(SP), R0
045444	103002			BHIS   	045452
045446	010066	000014		MOV    	R0, 000014(SP)
045452	010066	000016		MOV    	R0, 000016(SP)
045456	000714			BR     	045310
045460	051124			BIS    	(R1), (R4)+
045462	042525			BIC    	(R5)+, (R5)+
045464	040506			BIC    	R5, SP
045466	051514			BIS    	(R5), (R4)
045470	000105			JMP    	R5
===================== WRITC END ==================================
045472	000000			HALT   	
045474	000000			HALT   	
045476	000000			HALT   	
045500	000000			HALT   	
045502	000000			HALT   	
045504	000000			HALT   	
045506	000000			HALT   	
045510	000000			HALT   	
045512	000000			HALT   	
045514	000000			HALT   	
045516	000000			HALT   	
045520	000000			HALT   	
045522	000000			HALT   	
045524	000000			HALT   	
045526	000000			HALT   	
045530	000000			HALT   	
045532	000000			HALT   	
045534	000000			HALT   	
045536	000000			HALT   	
045540	000000			HALT   	
045542	000000			HALT   	
045544	000000			HALT   	
045546	000000			HALT   	
045550	000000			HALT   	
045552	000000			HALT   	
045554	000000			HALT   	
045556	000000			HALT   	
045560	000000			HALT   	
045562	000000			HALT   	
045564	000000			HALT   	
045566	000000			HALT   	
045570	000000			HALT   	
045572	000000			HALT   	
045574	000000			HALT   	
045576	000000			HALT   	
045600	000000			HALT   	
045602	000000			HALT   	
045604	000000			HALT   	
045606	000000			HALT   	
045610	000000			HALT   	
045612	000000			HALT   	
045614	000000			HALT   	
045616	000000			HALT   	
045620	000000			HALT   	
045622	000000			HALT   	
045624	000000			HALT   	
045626	000000			HALT   	
045630	000000			HALT   	
045632	000000			HALT   	
045634	000000			HALT   	
045636	000000			HALT   	
045640	000000			HALT   	
045642	000000			HALT   	
045644	000000			HALT   	
045646	000000			HALT   	
045650	000000			HALT   	
045652	000000			HALT   	
045654	000000			HALT   	
045656	000000			HALT   	
045660	000000			HALT   	
045662	000000			HALT   	
045664	000000			HALT   	
045666	000000			HALT   	
045670	000000			HALT   	
045672	000000			HALT   	
045674	000000			HALT   	
045676	000000			HALT   	
045700	000000			HALT   	
045702	000000			HALT   	
045704	000000			HALT   	
045706	000000			HALT   	
045710	000000			HALT   	
045712	000000			HALT   	
045714	000000			HALT   	
045716	000000			HALT   	
045720	000000			HALT   	
045722	000000			HALT   	
045724	000000			HALT   	
045726	000000			HALT   	
045730	000000			HALT   	
045732	000000			HALT   	
045734	000000			HALT   	
045736	000000			HALT   	
045740	000000			HALT   	
045742	000000			HALT   	
045744	000000			HALT   	
045746	000000			HALT   	
045750	000000			HALT   	
045752	000000			HALT   	
045754	000000			HALT   	
045756	000000			HALT   	
045760	000000			HALT   	
045762	000000			HALT   	
045764	000000			HALT   	
045766	000000			HALT   	
045770	000000			HALT   	
045772	000000			HALT   	
045774	000000			HALT   	
045776	000000			HALT   	
046000	000000			HALT   	
046002	000000			HALT   	
046004	000000			HALT   	
046006	000000			HALT   	
046010	000000			HALT   	
046012	000000			HALT   	
046014	000000			HALT   	
046016	000000			HALT   	
046020	000000			HALT   	
046022	000000			HALT   	
046024	000000			HALT   	
046026	000000			HALT   	
046030	000000			HALT   	
046032	000000			HALT   	
046034	000000			HALT   	
046036	000000			HALT   	
046040	000000			HALT   	
046042	000000			HALT   	
046044	000000			HALT   	
046046	000000			HALT   	
046050	000000			HALT   	
046052	000000			HALT   	
046054	000000			HALT   	
046056	000000			HALT   	
046060	000000			HALT   	
046062	000000			HALT   	
046064	000000			HALT   	
046066	000000			HALT   	
046070	000000			HALT   	
046072	000000			HALT   	
046074	000000			HALT   	
046076	000000			HALT   	
046100	000000			HALT   	
046102	000000			HALT   	
046104	000000			HALT   	
046106	000000			HALT   	
046110	000000			HALT   	
046112	000000			HALT   	
046114	000000			HALT   	
046116	000000			HALT   	
046120	000000			HALT   	
046122	000000			HALT   	
046124	000000			HALT   	
046126	000000			HALT   	
046130	000000			HALT   	
046132	000000			HALT   	
046134	000000			HALT   	
046136	000000			HALT   	
046140	000000			HALT   	
046142	000000			HALT   	
046144	000000			HALT   	
046146	000000			HALT   	
046150	000000			HALT   	
046152	000000			HALT   	
046154	000000			HALT   	
046156	000000			HALT   	
046160	000000			HALT   	
046162	000000			HALT   	
046164	000000			HALT   	
046166	000000			HALT   	
046170	000000			HALT   	
046172	000000			HALT   	
046174	000000			HALT   	
046176	000000			HALT   	
046200	000000			HALT   	
046202	000000			HALT   	
046204	000000			HALT   	
046206	000000			HALT   	
046210	000000			HALT   	
046212	000000			HALT   	
046214	000000			HALT   	
046216	000000			HALT   	
046220	000000			HALT   	
046222	000000			HALT   	
046224	000000			HALT   	
046226	000000			HALT   	
046230	000000			HALT   	
046232	000000			HALT   	
046234	000000			HALT   	
046236	000000			HALT   	
046240	000000			HALT   	
046242	000000			HALT   	
046244	000000			HALT   	
046246	000000			HALT   	
046250	000000			HALT   	
046252	000000			HALT   	
046254	000000			HALT   	
046256	000000			HALT   	
046260	000000			HALT   	
046262	000000			HALT   	
046264	000000			HALT   	
046266	000000			HALT   	
046270	000000			HALT   	
046272	000000			HALT   	
046274	000000			HALT   	
046276	000000			HALT   	
046300	000000			HALT   	
046302	000000			HALT   	
046304	000000			HALT   	
046306	000000			HALT   	
046310	000000			HALT   	
046312	000000			HALT   	
046314	000000			HALT   	
046316	000000			HALT   	
046320	000000			HALT   	
046322	000000			HALT   	
046324	000000			HALT   	
046326	000000			HALT   	
046330	000000			HALT   	
046332	000000			HALT   	
046334	000000			HALT   	
046336	000000			HALT   	
046340	000000			HALT   	
046342	000000			HALT   	
046344	000000			HALT   	
046346	000000			HALT   	
046350	000000			HALT   	
046352	000000			HALT   	
046354	000000			HALT   	
046356	000000			HALT   	
046360	000000			HALT   	
046362	000000			HALT   	
046364	000000			HALT   	
046366	000000			HALT   	
046370	000000			HALT   	
046372	000000			HALT   	
046374	000000			HALT   	
046376	000000			HALT   	
046400	000000			HALT   	
046402	000000			HALT   	
046404	000000			HALT   	
046406	000000			HALT   	
046410	000000			HALT   	
046412	000000			HALT   	
046414	000000			HALT   	
046416	000000			HALT   	
046420	000000			HALT   	
046422	000000			HALT   	
046424	000000			HALT   	
046426	000000			HALT   	
046430	000000			HALT   	
046432	000000			HALT   	
046434	000000			HALT   	
046436	000000			HALT   	
046440	000000			HALT   	
046442	000000			HALT   	
046444	000000			HALT   	
046446	000000			HALT   	
046450	000000			HALT   	
046452	000000			HALT   	
046454	000000			HALT   	
046456	000000			HALT   	
046460	000000			HALT   	
046462	000000			HALT   	
046464	000000			HALT   	
046466	000000			HALT   	
046470	000000			HALT   	
046472	000000			HALT   	
046474	000000			HALT   	
046476	000000			HALT   	
046500	000000			HALT   	
046502	000000			HALT   	
046504	000000			HALT   	
046506	000000			HALT   	
046510	000000			HALT   	
046512	000000			HALT   	
046514	000000			HALT   	
046516	000000			HALT   	
046520	000000			HALT   	
046522	000000			HALT   	
046524	000000			HALT   	
046526	000000			HALT   	
046530	000000			HALT   	
046532	000000			HALT   	
046534	000000			HALT   	
046536	000000			HALT   	
046540	000000			HALT   	
046542	000000			HALT   	
046544	000000			HALT   	
046546	000000			HALT   	
046550	000000			HALT   	
046552	000000			HALT   	
046554	000000			HALT   	
046556	000000			HALT   	
046560	000000			HALT   	
046562	000000			HALT   	
046564	000000			HALT   	
046566	000000			HALT   	
046570	000000			HALT   	
046572	000000			HALT   	
046574	000000			HALT   	
046576	000000			HALT   	
046600	000000			HALT   	
046602	000000			HALT   	
046604	000000			HALT   	
046606	000000			HALT   	
046610	000000			HALT   	
046612	000000			HALT   	
046614	000000			HALT   	
046616	000000			HALT   	
046620	000000			HALT   	
046622	000000			HALT   	
046624	000000			HALT   	
046626	000000			HALT   	
046630	000000			HALT   	
046632	000000			HALT   	
046634	000000			HALT   	
046636	000000			HALT   	
046640	000000			HALT   	
046642	000000			HALT   	
046644	000000			HALT   	
046646	000000			HALT   	
046650	000000			HALT   	
046652	000000			HALT   	
046654	000000			HALT   	
046656	000000			HALT   	
046660	000000			HALT   	
046662	000000			HALT   	
046664	000000			HALT   	
046666	000000			HALT   	
046670	000000			HALT   	
046672	000000			HALT   	
046674	000000			HALT   	
046676	000000			HALT   	
046700	000000			HALT   	
046702	000000			HALT   	
046704	000000			HALT   	
046706	000000			HALT   	
046710	000000			HALT   	
046712	000000			HALT   	
046714	000000			HALT   	
046716	000000			HALT   	
046720	000000			HALT   	
046722	000000			HALT   	
046724	000000			HALT   	
046726	000000			HALT   	
046730	000000			HALT   	
046732	000000			HALT   	
046734	000000			HALT   	
046736	000000			HALT   	
046740	000000			HALT   	
046742	000000			HALT   	
046744	000000			HALT   	
046746	000000			HALT   	
046750	000000			HALT   	
046752	000000			HALT   	
046754	000000			HALT   	
046756	000000			HALT   	
046760	000000			HALT   	
046762	000000			HALT   	
046764	000000			HALT   	
046766	000000			HALT   	
046770	000000			HALT   	
046772	000000			HALT   	
046774	000000			HALT   	
046776	000000			HALT   	
