==================== EXTERNAL MODULES 1 =============================
001000	162706	000130		SUB    	#000130, SP ; VAR
; @SP: ARRAY [0..47] OF INTEGER 116(SP): ARRAY [1..4] OF INTEGER 126(SP): INTEGER
001004	004767	052036		CALL   	053046	; STKCHK ; $B127
001010	010600			MOV    	SP, R0
001012	062700	000126		ADD    	#000126, R0		; FOR 126(SP):=1 TO 4
001016	010046			MOV    	R0, -(SP)
001020	012746	000001		MOV    	#000001, -(SP)
001024	012746	000004		MOV    	#000004, -(SP)
001030	016676	000002	000004	MOV    	000002(SP), @000004(SP)
001036	027616	000004		CMP    	@000004(SP), (SP)
001042	003402			BLE    	001050
001044	000167	000044		JMP    	001114
001050	016600	000134		MOV    	000134(SP), R0
001054	020027	000001		CMP    	R0, #000001
001060	002403			BLT    	001070
001062	020027	000004		CMP    	R0, #000004
001066	003402			BLE    	001074
001070	004767	052002		CALL   	053076	; $B125 ; $$B125
001074	006300			ASL    	R0
001076	060600			ADD    	SP, R0
001100	005060	000122		CLR    	000122(R0)		; 116(SP)[126(SP)]:=0
001104	005276	000004		INC    	@000004(SP)		; NEXT 126(SP)
001110	000167	177722		JMP    	001036
001114	062706	000006		ADD    	#000006, SP		; END FOR 126(SP)
001120	010602			MOV    	SP, R2			; {$C
001122	062702	000000		ADD    	#000000, R2
001126	010603			MOV    	SP, R3
001130	062703	000116		ADD    	#000116, R3
001134	012713	057032		MOV    	#057032, (R3)
001140	012763	050553	000002	MOV    	#050553, 000002(R3)
001146	104355			EMT    	000355
001150	012737	001000	000046	MOV    	#001000, @#000046
001156	010601			MOV    	SP, R1
001160	010246			MOV    	R2, -(SP)
001162	010346			MOV    	R3, -(SP)
001164	005046			CLR    	-(SP)
001166	104344			EMT    	000344
001170	010106			MOV    	R1, SP
001172	103772			BLO    	001160			; }
001174	010600			MOV    	SP, R0
001176	062700	000126		ADD    	#000126, R0		; FOR 126(SP):=0 TO 17
001202	010046			MOV    	R0, -(SP)
001204	005046			CLR    	-(SP)
001206	012746	000017		MOV    	#000017, -(SP)
001212	016676	000002	000004	MOV    	000002(SP), @000004(SP)
001220	027616	000004		CMP    	@000004(SP), (SP)
001224	003402			BLE    	001232
001226	000167	000040		JMP    	001272
001232	016600	000134		MOV    	000134(SP), R0
001236	020027	000000		CMP    	R0, #000000
001242	002403			BLT    	001252
001244	020027	000017		CMP    	R0, #000017
001250	003402			BLE    	001256
001252	004767	051620		CALL   	053076	; $B125 ; $$B125
001256	060500			ADD    	R5, R0
001260	105010			CLRB   	(R0)			; VAR00[126(SP)]:=CHST00
001262	005276	000004		INC    	@000004(SP)		; NEXT 126(SP)
001266	000167	177726		JMP    	001220
001272	062706	000006		ADD    	#000006, SP		; END FOR 126(SP)
001276	062706	000130		ADD    	#000130, SP
001302	000207			RETURN 	
=============================================================
; PROCEDURE VAR 6(SP): RECF1012 4(SP):INTEGER 2(SP):CHSTATE
001304	004767	051536		CALL   	053046	; STKCHK ; $B127
001310	016600	000004		MOV    	000004(SP), R0
001314	020027	000000		CMP    	R0, #000000
001320	002403			BLT    	001330
001322	020027	000017		CMP    	R0, #000017
001326	003402			BLE    	001334
001330	004767	051542		CALL   	053076	; $B125 ; $$B125
001334	060500			ADD    	R5, R0
001336	105710			TSTB   	(R0)			; IF VAR00[4(SP)]<>CHST00
001340	001002			BNE    	001346
001342	000167	000004		JMP    	001352
001346	000167	000136		JMP    	001510			; THEN 1
001352	016603	000006		MOV    	000006(SP), R3		; ELSE 1 ; WITH 6(SP)
001356	016663	000004	000004	MOV    	000004(SP), 000004(R3)	; (6(SP)).RF04:=4(SP)
001364	005063	000002		CLR    	000002(R3)		; (6(SP)).RF02:=0
001370	005063	000002		CLR    	000002(R3)		; (6(SP)).RF02:=0
001374	126627	000002	000001	CMPB   	000002(SP), #000001	; IF 2(SP)=CHST01
001402	001402			BEQ    	001410
001404	000167	000020		JMP    	001430
001410	012763	177777	000006	MOV    	#177777, 000006(R3)	; THEN 2 ; (6(SP)).RF06:=-1
001416	012763	001000	001010	MOV    	#001000, 001010(R3)	; (6(SP)).RF1010:=1000
001424	000167	000026		JMP    	001456
001430	126627	000002	000002	CMPB   	000002(SP), #000002	; ELSE 2 ; IF 2(SP):=CHST02
001436	001402			BEQ    	001444
001440	000167	000012		JMP    	001456
001444	005063	000006		CLR    	000006(R3)		; THEN 3 ; (6(SP)).RF06:=0
001450	012763	000001	001010	MOV    	#000001, 001010(R3)	; (6(SP)).RF1010:=1 ; END IF 3 ; END IF 2
001456	016600	000004		MOV    	000004(SP), R0
001462	020027	000000		CMP    	R0, #000000
001466	002403			BLT    	001476
001470	020027	000017		CMP    	R0, #000017
001474	003402			BLE    	001502
001476	004767	051374		CALL   	053076	; $B125 ; $$B125
001502	060500			ADD    	R5, R0
001504	116610	000002		MOVB   	000002(SP), (R0)	; VAR00[4(SP)]:=2(SP) ; END IF 1
001510	011666	000006		MOV    	(SP), 000006(SP)
001514	062706	000006		ADD    	#000006, SP
001520	000207			RETURN 	
=============================================================
; PROCEDURE VAR 20(SP): RECF1012 VAR 16(SP):INTEGER
001522	162706	000014		SUB    	#000014, SP ; VAR @SP: ARRAY [0..5] OF INTEGER
001526	004767	051314		CALL   	053046	; STKCHK ; $B127
001532	016603	000020		MOV    	000020(SP), R3		; WITH 20(SP)
001536	016300	000004		MOV    	000004(R3), R0
001542	020027	000000		CMP    	R0, #000000
001546	002403			BLT    	001556
001550	020027	000017		CMP    	R0, #000017
001554	003402			BLE    	001562
001556	004767	051314		CALL   	053076	; $B125 ; $$B125
001562	060500			ADD    	R5, R0
001564	121027	000001		CMPB   	(R0), #000001		; IF VAR00[(20(SP)).RF04]=CHST01
001570	001402			BEQ    	001576
001572	000167	000206		JMP    	002004
001576	026327	001010	001000	CMP    	001010(R3), #001000	; THEN 1 ; IF (20(SP)).RF1010=1000
001604	001402			BEQ    	001612
001606	000167	000110		JMP    	001722
001612	005263	000006		INC    	000006(R3)		; THEN 2 ; (20(SP)).RF06:=(20(SP)).RF06+1
001616	005063	000002		CLR    	000002(R3)		; (20(SP)).RF02:=0
001622	105013			CLRB   	(R3)			; (20(SP)).RF00:=FALSE
001624	010600			MOV    	SP, R0			; {$C
001626	062700	000000		ADD    	#000000, R0
001632	010301			MOV    	R3, R1
001634	062701	000010		ADD    	#000010, R1
001640	012710	004000		MOV    	#004000, (R0)
001644	116310	000004		MOVB   	000004(R3), (R0)
001650	016360	000006	000002	MOV    	000006(R3), 000002(R0)
001656	010160	000004		MOV    	R1, 000004(R0)
001662	012760	000400	000006	MOV    	#000400, 000006(R0)
001670	005060	000010		CLR    	000010(R0)
001674	104375			EMT    	000375
001676	103007			BHIS   	001716
001700	113700	000064		MOVB   	@#000064, R0
001704	010063	000002		MOV    	R0, 000002(R3)
001710	001002			BNE    	001716
001712	005263	000000		INC    	000000(R3)		; }
001716	005063	001010		CLR    	001010(R3)		; (20(SP)).RF1010:=0 ; END IF 2
001722	005263	001010		INC    	001010(R3)		; (20(SP)).RF1010:=(20(SP)).RF1010+1
001726	016300	001010		MOV    	001010(R3), R0
001732	020027	000001		CMP    	R0, #000001
001736	002403			BLT    	001746
001740	020027	001000		CMP    	R0, #001000
001744	003402			BLE    	001752
001746	004767	051124		CALL   	053076	; $B125 ; $$B125
001752	060300			ADD    	R3, R0
001754	116000	000007		MOVB   	000007(R0), R0
001760	010076	000016		MOV    	R0, @000016(SP)		; @16(SP):=ORD((20(SP)).RF10[(20(SP)).RF1010])
001764	005776	000016		TST    	@000016(SP)		; IF @16(SP)<0
001770	002402			BLT    	001776
001772	000167	000006		JMP    	002004
001776	062776	000400	000016	ADD    	#000400, @000016(SP)	; THEN ; @16(SP):=@16(SP)+400 ; END IF ; END IF 1
002004	016666	000014	000020	MOV    	000014(SP), 000020(SP)
002012	062706	000020		ADD    	#000020, SP
002016	000207			RETURN 	
=============================================================
; PROCEDURE VAR 20(SP): RECF1012 16(SP):INTEGER
002020	162706	000014		SUB    	#000014, SP ; VAR @SP: ARRAY [0..5] OF INTEGER
002024	004767	051016		CALL   	053046	; STKCHK ; $B127
002030	016603	000020		MOV    	000020(SP), R3		; WITH (20)SP
002034	016300	000004		MOV    	000004(R3), R0
002040	020027	000000		CMP    	R0, #000000
002044	002403			BLT    	002054
002046	020027	000017		CMP    	R0, #000017
002052	003402			BLE    	002060
002054	004767	051016		CALL   	053076	; $B125 ; $$B125
002060	060500			ADD    	R5, R0
002062	121027	000002		CMPB   	(R0), #000002		; IF VAR00[(20(SP)).RF04]=CHST02
002066	001402			BEQ    	002074
002070	000167	000166		JMP    	002262
002074	016300	001010		MOV    	001010(R3), R0		; THEN 1
002100	020027	000001		CMP    	R0, #000001
002104	002403			BLT    	002114
002106	020027	001000		CMP    	R0, #001000
002112	003402			BLE    	002120
002114	004767	050756		CALL   	053076	; $B125 ; $$B125
002120	060300			ADD    	R3, R0
002122	116660	000016	000007	MOVB   	000016(SP), 000007(R0)	; (20(SP)).RF10[(20(SP)).RF1010]:=CHR(16(SP))
002130	005263	001010		INC    	001010(R3)		; (20(SP)).RF1010:=(20(SP)).RF1010+1
002134	026327	001010	001000	CMP    	001010(R3), #001000	; IF (20(SP)).RF1010>1000
002142	003002			BGT    	002150
002144	000167	000112		JMP    	002262
002150	005063	000002		CLR    	000002(R3)		; THEN 2 ; (20(SP)).RF02:=0
002154	105013			CLRB   	(R3)			; (20(SP)).RF00:=FALSE
002156	010600			MOV    	SP, R0			; {$C
002160	062700	000000		ADD    	#000000, R0
002164	010301			MOV    	R3, R1
002166	062701	000010		ADD    	#000010, R1
002172	012710	004400		MOV    	#004400, (R0)
002176	116310	000004		MOVB   	000004(R3), (R0)
002202	016360	000006	000002	MOV    	000006(R3), 000002(R0)
002210	010160	000004		MOV    	R1, 000004(R0)
002214	012760	000400	000006	MOV    	#000400, 000006(R0)
002222	005060	000010		CLR    	000010(R0)
002226	104375			EMT    	000375
002230	103007			BHIS   	002250
002232	113700	000064		MOVB   	@#000064, R0
002236	010063	000002		MOV    	R0, 000002(R3)
002242	001002			BNE    	002250
002244	005263	000000		INC    	000000(R3)		; }
002250	005263	000006		INC    	000006(R3)		; (20(SP)).RF06:=(20(SP)).RF06+1
002254	012763	000001	001010	MOV    	#000001, 001010(R3)	; (20(SP)).RF1010:=1 ; END IF 2 ; END IF 1
002262	016666	000014	000020	MOV    	000014(SP), 000020(SP)
002270	062706	000020		ADD    	#000020, SP
002274	000207			RETURN 	
=============================================================
; PROCEDURE VAR 2(SP): RECF1012
002276	004767	050544		CALL   	053046	; STKCHK ; $B127
002302	016603	000002		MOV    	000002(SP), R3		; WITH 2(SP)
002306	016300	000004		MOV    	000004(R3), R0
002312	020027	000000		CMP    	R0, #000000
002316	002403			BLT    	002326
002320	020027	000017		CMP    	R0, #000017
002324	003402			BLE    	002332
002326	004767	050544		CALL   	053076	; $B125 ; $$B125
002332	060500			ADD    	R5, R0
002334	105710			TSTB   	(R0)			; IF VAR00[(2(SP)).RF04]=CHST00
002336	001402			BEQ    	002344
002340	000167	000004		JMP    	002350
002344	000167	000126		JMP    	002476			; THEN 1
002350	016300	000004		MOV    	000004(R3), R0		; ELSE 1
002354	020027	000000		CMP    	R0, #000000
002360	002403			BLT    	002370
002362	020027	000017		CMP    	R0, #000017
002366	003402			BLE    	002374
002370	004767	050502		CALL   	053076	; $B125 ; $$B125
002374	060500			ADD    	R5, R0
002376	121027	000002		CMPB   	(R0), #000002		; IF VAR00[(2(SP)).RF04]=CHST02
002402	001402			BEQ    	002410
002404	000167	000036		JMP    	002446
002410	026327	001010	000001	CMP    	001010(R3), #000001	; THEN 2 ; WHILE (2(SP)).RF1010<>1
002416	001002			BNE    	002424
002420	000167	000022		JMP    	002446
002424	010346			MOV    	R3, -(SP)
002426	016646	000004		MOV    	000004(SP), -(SP)
002432	005046			CLR    	-(SP)
002434	004767	177360		CALL   	002020			; L02020(@(2(SP)),0)
002440	012603			MOV    	(SP)+, R3
002442	000167	177742		JMP    	002410			; END WHILE ; END IF 2
002446	016300	000004		MOV    	000004(R3), R0
002452	020027	000000		CMP    	R0, #000000
002456	002403			BLT    	002466
002460	020027	000017		CMP    	R0, #000017
002464	003402			BLE    	002472
002466	004767	050404		CALL   	053076	; $B125 ; $$B125
002472	060500			ADD    	R5, R0
002474	105010			CLRB   	(R0)			; VAR00[(2(SP)).RF04]:=CHST00 ; END IF 1
002476	011666	000002		MOV    	(SP), 000002(SP)
002502	062706	000002		ADD    	#000002, SP
002506	000207			RETURN 	
=============================================================
==================== EXTERNAL MODULES 2 =============================
002510	000167	176264		JMP    	001000
002514	000167	176564		JMP    	001304
002520	000167	176776		JMP    	001522
002524	000167	177270		JMP    	002020
002530	000167	177542		JMP    	002276
=============================================================
; FUNCTION 16(SP): INTEGER
002534	011404			MOV    	(R4), R4
002536	011404			MOV    	(R4), R4
002540	011404			MOV    	(R4), R4
002542	011404			MOV    	(R4), R4
002544	011404			MOV    	(R4), R4
002546	011404			MOV    	(R4), R4
002550	011404			MOV    	(R4), R4
002552	011404			MOV    	(R4), R4
002554	010446			MOV    	R4, -(SP)
002556	004067	050216		JSR    	R0, 053000 ; SVREG ; $B74
002562	016603	000012		MOV    	000012(SP), R3
002566	016303	000006		MOV    	000006(R3), R3		; WITH LOC06(SP)
002572	010346			MOV    	R3, -(SP)
002574	016600	000014		MOV    	000014(SP), R0
002600	016046	000010		MOV    	000010(R0), -(SP)
002604	016600	000016		MOV    	000016(SP), R0
002610	062700	000002		ADD    	#000002, R0
002614	010046			MOV    	R0, -(SP)
002616	004767	177676		CALL   	002520			; L01522(LOC10(SP),@LOC02(SP))
002622	012603			MOV    	(SP)+, R3
002624	016600	000012		MOV    	000012(SP), R0
002630	016301	001004		MOV    	001004(R3), R1
002634	066001	000002		ADD    	000002(R0), R1
002640	042701	177400		BIC    	#177400, R1
002644	010163	001004		MOV    	R1, 001004(R3)	; (LOC06(SP)).RG1004:=((LOC06(SP)).RG1004+LOC02(SP)) MOD 400
002650	016600	000012		MOV    	000012(SP), R0
002654	016066	000002	000016	MOV    	000002(R0), 000016(SP)	; L02554:=LOC02(SP)
002662	004067	050142		JSR    	R0, 053030 ; UNREG ; $B76
002666	062706	000002		ADD    	#000002, SP
002672	000207			RETURN 	
======------------==========------------=======---------=====
; FUNCTION 16(SP): INTEGER
002674	011404			MOV    	(R4), R4
002676	011404			MOV    	(R4), R4
002700	011404			MOV    	(R4), R4
002702	011404			MOV    	(R4), R4
002704	011404			MOV    	(R4), R4
002706	011404			MOV    	(R4), R4
002710	011404			MOV    	(R4), R4
002712	011404			MOV    	(R4), R4
002714	010446			MOV    	R4, -(SP)
002716	004067	050056		JSR    	R0, 053000 ; SVREG ; $B74
002722	005046			CLR    	-(SP)
002724	010604			MOV    	SP, R4
002726	062704	000014		ADD    	#000014, R4
002732	004767	177614		CALL   	002552
002736	012600			MOV    	(SP)+, R0
002740	005046			CLR    	-(SP)
002742	010604			MOV    	SP, R4
002744	062704	000014		ADD    	#000014, R4
002750	004767	177576		CALL   	002552
002754	012601			MOV    	(SP)+, R1
002756	000301			SWAB   	R1
002760	042701	000377		BIC    	#000377, R1
002764	060001			ADD    	R0, R1
002766	010166	000016		MOV    	R1, 000016(SP)		; L02714:=L02554+L02554*400
002772	004067	050032		JSR    	R0, 053030 ; UNREG ; $B76
002776	062706	000002		ADD    	#000002, SP
003002	000207			RETURN 	
======--------========----------=========-----------=========
; PROCEDURE VAR 10(SP):RECF1012 VAR 6(SP):RECG1012
003004	024646			CMP    	-(SP), -(SP) ; VAR @SP,2(SP): INTEGER
003006	004767	050034		CALL   	053046	; STKCHK ; $B127
003012	016603	000006		MOV    	000006(SP), R3		; WITH 6(SP)
003016	005063	001004		CLR    	001004(R3)		; REPEAT ; (6(SP)).RG1004:=0
003022	005046			CLR    	-(SP)
003024	010604			MOV    	SP, R4
003026	062704	000002		ADD    	#000002, R4
003032	004767	177516		CALL   	002554
003036	012600			MOV    	(SP)+, R0
003040	020027	000001		CMP    	R0, #000001		; UNTIL L02554=1
003044	001402			BEQ    	003052
003046	000167	177744		JMP    	003016
003052	005046			CLR    	-(SP)
003054	010604			MOV    	SP, R4
003056	062704	000002		ADD    	#000002, R4
003062	004767	177466		CALL   	002554
003066	012600			MOV    	(SP)+, R0
003070	010016			MOV    	R0, (SP)		; @SP:=L02554
003072	005046			CLR    	-(SP)
003074	010604			MOV    	SP, R4
003076	062704	000002		ADD    	#000002, R4
003102	004767	177606		CALL   	002714
003106	012600			MOV    	(SP)+, R0
003110	010016			MOV    	R0, (SP)		; @SP:=L02714
003112	011600			MOV    	(SP), R0
003114	062700	177772		ADD    	#177772, R0
003120	010013			MOV    	R0, (R3)		; (6(SP)).RG00:=@SP-6
003122	005046			CLR    	-(SP)
003124	010604			MOV    	SP, R4
003126	062704	000002		ADD    	#000002, R4
003132	004767	177556		CALL   	002714
003136	012600			MOV    	(SP)+, R0
003140	010063	000004		MOV    	R0, 000004(R3)		; (6(SP)).RG04[1]:=L02714
003144	016363	000004	000002	MOV    	000004(R3), 000002(R3)	; (6(SP)).RG02:=(6(SP)).RG04[1]
003152	010600			MOV    	SP, R0
003154	010046			MOV    	R0, -(SP)		; FOR @SP:=1 TO (6(SP)).RG00
003156	012746	000001		MOV    	#000001, -(SP)
003162	011346			MOV    	(R3), -(SP)
003164	016676	000002	000004	MOV    	000002(SP), @000004(SP)
003172	027616	000004		CMP    	@000004(SP), (SP)
003176	003402			BLE    	003204
003200	000167	000062		JMP    	003266
003204	016600	000006		MOV    	000006(SP), R0
003210	020027	000001		CMP    	R0, #000001
003214	002403			BLT    	003224
003216	020027	000400		CMP    	R0, #000400
003222	003402			BLE    	003230
003224	004767	047646		CALL   	053076	; $B125 ; $$B125
003230	006300			ASL    	R0
003232	060300			ADD    	R3, R0
003234	005046			CLR    	-(SP)
003236	010604			MOV    	SP, R4
003240	062704	000010		ADD    	#000010, R4
003244	004767	177304		CALL   	002554
003250	012601			MOV    	(SP)+, R1
003252	010160	000002		MOV    	R1, 000002(R0)		; (6(SP)).RG04[@SP]:=L02554
003256	005276	000004		INC    	@000004(SP)		; NEXT @SP
003262	000167	177704		JMP    	003172
003266	062706	000006		ADD    	#000006, SP		; END FOR @SP
003272	005046			CLR    	-(SP)
003274	010604			MOV    	SP, R4
003276	062704	000002		ADD    	#000002, R4
003302	004767	177246		CALL   	002554
003306	012600			MOV    	(SP)+, R0
003310	010016			MOV    	R0, (SP)		; @SP:=L02554
003312	005763	001004		TST    	001004(R3)		; IF (6(SP)).RG1004<>0
003316	001002			BNE    	003324
003320	000167	000000		JMP    	003324
003324	005063	001006		CLR    	001006(R3)		; THEN ; END IF ; (6(SP)).RG1006:=0
003330	105063	001010		CLRB   	001010(R3)		; (6(SP)).RG1010:=FALSE
003334	016666	000004	000010	MOV    	000004(SP), 000010(SP)
003342	062706	000010		ADD    	#000010, SP
003346	000207			RETURN 	
=============================================================
; FUNCTION 16(SP):INTEGER; VAR 14(SP):RECG1012
003350	004067	047424		JSR    	R0, 053000 ; SVREG ; $B74
003354	016603	000014		MOV    	000014(SP), R3		; WITH 14(SP)
003360	005263	001006		INC    	001006(R3)		; (14(SP)).RG1006:=(14(SP)).RG1006+1
003364	016300	001006		MOV    	001006(R3), R0
003370	020027	000001		CMP    	R0, #000001
003374	002403			BLT    	003404
003376	020027	000400		CMP    	R0, #000400
003402	003402			BLE    	003410
003404	004767	047466		CALL   	053076	; $B125 ; $$B125
003410	006300			ASL    	R0
003412	060300			ADD    	R3, R0
003414	016066	000002	000016	MOV    	000002(R0), 000016(SP)	; L03350:=(14(SP)).RG04[(14(SP)).RG1006]
003422	026313	001006		CMP    	001006(R3), (R3)
003426	002002			BGE    	003434
003430	005000			CLR    	R0
003432	000402			BR     	003440
003434	012700	000001		MOV    	#000001, R0
003440	110063	001010		MOVB   	R0, 001010(R3)		; (14(SP)).RG1010:=(14(SP)).RG1006>=(14(SP)).RG00
003444	004067	047360		JSR    	R0, 053030 ; UNREG ; $B76
003450	011666	000002		MOV    	(SP), 000002(SP)
003454	062706	000002		ADD    	#000002, SP
003460	000207			RETURN 	
=============================================================
; FUNCTION 16(SP):INTEGER VAR 14(SP):RECG1012
003462	004067	047312		JSR    	R0, 053000 ; SVREG ; $B74
003466	005046			CLR    	-(SP)
003470	016646	000016		MOV    	000016(SP), -(SP)
003474	004767	177650		CALL   	003350
003500	012600			MOV    	(SP)+, R0
003502	005046			CLR    	-(SP)
003504	016646	000016		MOV    	000016(SP), -(SP)
003510	004767	177634		CALL   	003350
003514	012601			MOV    	(SP)+, R1
003516	000301			SWAB   	R1
003520	042701	000377		BIC    	#000377, R1
003524	060001			ADD    	R0, R1
003526	010166	000016		MOV    	R1, 000016(SP)		; L03462:=L03350(14(SP))+L03350(14(SP))*400
003532	004067	047272		JSR    	R0, 053030 ; UNREG ; $B76
003536	011666	000002		MOV    	(SP), 000002(SP)
003542	062706	000002		ADD    	#000002, SP
003546	000207			RETURN 	
=============================================================
; FUNCTION 16(SP):INTEGER 14(SP):CHAR
003550	004067	047224		JSR    	R0, 053000 ; SVREG ; $B74
003554	126627	000014	000040	CMPB   	000014(SP), #000040	; IF 14(SP)=' '
003562	001402			BEQ    	003570
003564	000167	000010		JMP    	003600
003570	005066	000016		CLR    	000016(SP)		; THEN 1 ; L03550:=0
003574	000167	000254		JMP    	004054
003600	122766	000101	000014	CMPB   	#000101, 000014(SP)	; ELSE 1 ; IF 'A'<=14(SP)
003606	003402			BLE    	003614
003610	005000			CLR    	R0
003612	000402			BR     	003620
003614	012700	000001		MOV    	#000001, R0
003620	126627	000014	000132	CMPB   	000014(SP), #000132	; AND 14(SP)<='Z'
003626	003402			BLE    	003634
003630	005001			CLR    	R1
003632	000402			BR     	003640
003634	012701	000001		MOV    	#000001, R1
003640	105101			COMB   	R1
003642	140100			BICB   	R1, R0
003644	001002			BNE    	003652
003646	000167	000022		JMP    	003674
003652	116600	000014		MOVB   	000014(SP), R0		; THEN 2
003656	162700	000101		SUB    	#000101, R0
003662	005200			INC    	R0
003664	010066	000016		MOV    	R0, 000016(SP)		; L03550:=ORD(14(SP))-ORD('A')+1
003670	000167	000160		JMP    	004054
003674	126627	000014	000044	CMPB   	000014(SP), #000044	; ELSE 2 ; IF 14(SP)='$'
003702	001402			BEQ    	003710
003704	000167	000012		JMP    	003722
003710	012766	000033	000016	MOV    	#000033, 000016(SP)	; THEN 3 ; L03550:=33
003716	000167	000132		JMP    	004054
003722	126627	000014	000056	CMPB   	000014(SP), #000056	; ELSE 3 ; IF 14(SP)='.'
003730	001402			BEQ    	003736
003732	000167	000012		JMP    	003750
003736	012766	000034	000016	MOV    	#000034, 000016(SP)	; THEN 4 ; L03550:=34
003744	000167	000104		JMP    	004054
003750	122766	000060	000014	CMPB   	#000060, 000014(SP)	; ELSE 4 ; IF '0'<=14(SP)
003756	003402			BLE    	003764
003760	005000			CLR    	R0
003762	000402			BR     	003770
003764	012700	000001		MOV    	#000001, R0
003770	126627	000014	000071	CMPB   	000014(SP), #000071	; AND 14(SP)<='9'
003776	003402			BLE    	004004
004000	005001			CLR    	R1
004002	000402			BR     	004010
004004	012701	000001		MOV    	#000001, R1
004010	105101			COMB   	R1
004012	140100			BICB   	R1, R0
004014	001002			BNE    	004022
004016	000167	000024		JMP    	004046
004022	116600	000014		MOVB   	000014(SP), R0		; THEN 5
004026	162700	000060		SUB    	#000060, R0
004032	062700	000036		ADD    	#000036, R0
004036	010066	000016		MOV    	R0, 000016(SP)		; L03550:=ORD(14(SP))-ORD('0')+36
004042	000167	000006		JMP    	004054
004046	012766	000035	000016	MOV    	#000035, 000016(SP)	; ELSE 5 ; L03550:=35 ; EI4 ; EI3 ; EI2 ; EI1
004054	004067	046750		JSR    	R0, 053030 ; UNREG ; $B76
004060	011666	000002		MOV    	(SP), 000002(SP)
004064	062706	000002		ADD    	#000002, SP
004070	000207			RETURN 	
=============================================================
; FUNCTION 22(SP):INTEGER; 20(SP) 16(SP) 14(SP):CHAR
004072	004067	046702		JSR    	R0, 053000 ; SVREG ; $B74
004076	005046			CLR    	-(SP)
004100	005046			CLR    	-(SP)
004102	116616	000024		MOVB   	000024(SP), (SP)
004106	004767	177436		CALL   	003550
004112	012600			MOV    	(SP)+, R0
004114	010046			MOV    	R0, -(SP)
004116	012746	000050		MOV    	#000050, -(SP)
004122	004767	046550		CALL   	052676	; DOMUL ; $B78
004126	005046			CLR    	-(SP)
004130	005046			CLR    	-(SP)
004132	116616	000024		MOVB   	000024(SP), (SP)
004136	004767	177406		CALL   	003550
004142	012600			MOV    	(SP)+, R0
004144	062600			ADD    	(SP)+, R0
004146	010046			MOV    	R0, -(SP)
004150	012746	000050		MOV    	#000050, -(SP)
004154	004767	046516		CALL   	052676	; DOMUL ; $B78
004160	005046			CLR    	-(SP)
004162	005046			CLR    	-(SP)
004164	116616	000022		MOVB   	000022(SP), (SP)
004170	004767	177354		CALL   	003550
004174	012600			MOV    	(SP)+, R0
004176	062600			ADD    	(SP)+, R0
004200	010066	000022		MOV    	R0, 000022(SP) ; L04072:=(L03550(20(SP))*50+L03550(16(SP)))*50+L03550(14(SP))
004204	004067	046620		JSR    	R0, 053030 ; UNREG ; $B76
004210	011666	000006		MOV    	(SP), 000006(SP)
004214	062706	000006		ADD    	#000006, SP
004220	000207			RETURN 	
=============================================================
; FUNCTION 16(SP):CHAR; 14(SP):INTEGER
004222	004067	046552		JSR    	R0, 053000 ; SVREG ; $B74
004226	005766	000014		TST    	000014(SP)		; IF 14(SP)=0
004232	001402			BEQ    	004240
004234	000167	000012		JMP    	004252
004240	112766	000040	000016	MOVB   	#000040, 000016(SP)	; THEN 1 ; L04222:=' '
004246	000167	000254		JMP    	004526
004252	022766	000001	000014	CMP    	#000001, 000014(SP)	; ELSE 1 ; IF 1<=14(SP)
004260	003402			BLE    	004266
004262	005000			CLR    	R0
004264	000402			BR     	004272
004266	012700	000001		MOV    	#000001, R0
004272	026627	000014	000032	CMP    	000014(SP), #000032	; AND 14(SP)<=32
004300	003402			BLE    	004306
004302	005001			CLR    	R1
004304	000402			BR     	004312
004306	012701	000001		MOV    	#000001, R1
004312	105101			COMB   	R1
004314	140100			BICB   	R1, R0
004316	001002			BNE    	004324
004320	000167	000022		JMP    	004346
004324	016600	000014		MOV    	000014(SP), R0		; THEN 2
004330	005300			DEC    	R0
004332	062700	000101		ADD    	#000101, R0
004336	110066	000016		MOVB   	R0, 000016(SP)		; L04222:=CHR(14(SP)-1+ORD('A'))
004342	000167	000160		JMP    	004526
004346	026627	000014	000033	CMP    	000014(SP), #000033	; ELSE 2 ; IF 14(SP)=33
004354	001402			BEQ    	004362
004356	000167	000012		JMP    	004374
004362	112766	000044	000016	MOVB   	#000044, 000016(SP)	; THEN 3 ; L04222:='$'
004370	000167	000132		JMP    	004526
004374	026627	000014	000034	CMP    	000014(SP), #000034	; ELSE 3 ; IF 14(SP)=34
004402	001402			BEQ    	004410
004404	000167	000012		JMP    	004422
004410	112766	000056	000016	MOVB   	#000056, 000016(SP)	; THEN 4 ; L04222:='.'
004416	000167	000104		JMP    	004526
004422	022766	000036	000014	CMP    	#000036, 000014(SP)	; ELSE 4 ; IF 36<=14(SP)
004430	003402			BLE    	004436
004432	005000			CLR    	R0
004434	000402			BR     	004442
004436	012700	000001		MOV    	#000001, R0
004442	026627	000014	000047	CMP    	000014(SP), #000047	; AND 14(SP)>=47
004450	003402			BLE    	004456
004452	005001			CLR    	R1
004454	000402			BR     	004462
004456	012701	000001		MOV    	#000001, R1
004462	105101			COMB   	R1
004464	140100			BICB   	R1, R0
004466	001002			BNE    	004474
004470	000167	000024		JMP    	004520
004474	016600	000014		MOV    	000014(SP), R0		; THEN 5
004500	062700	177742		ADD    	#177742, R0
004504	062700	000060		ADD    	#000060, R0
004510	110066	000016		MOVB   	R0, 000016(SP)		; L04222:=CHR(14(SP)-36+ORD('0'))
004514	000167	000006		JMP    	004526
004520	112766	000077	000016	MOVB   	#000077, 000016(SP)	; ELSE 5 ; L04222:='?' ; EI4 ; EI3 ; EI2 ; EI1
004526	004067	046276		JSR    	R0, 053030 ; UNREG ; $B76
004532	011666	000002		MOV    	(SP), 000002(SP)
004536	062706	000002		ADD    	#000002, SP
004542	000207			RETURN 	
=============================================================
; PROCEDURE 12(SP),10(SP):INTEGER VAR 6(SP):ARRAY [1..6] OF CHAR
004544	024646			CMP    	-(SP), -(SP) ; VAR @SP:INTEGER ,2(SP): UINT
004546	004767	046274		CALL   	053046	; STKCHK ; $B127
004552	016666	000012	000002	MOV    	000012(SP), 000002(SP)	; 2(SP):=12(SP)
004560	010600			MOV    	SP, R0
004562	010046			MOV    	R0, -(SP)		; FOR @SP:=3 DOWNTO 1
004564	012746	000003		MOV    	#000003, -(SP)
004570	012746	000001		MOV    	#000001, -(SP)
004574	016676	000002	000004	MOV    	000002(SP), @000004(SP)
004602	027616	000004		CMP    	@000004(SP), (SP)
004606	002002			BGE    	004614
004610	000167	000110		JMP    	004724
004614	016600	000014		MOV    	000014(SP), R0
004620	016601	000006		MOV    	000006(SP), R1
004624	020127	000001		CMP    	R1, #000001
004630	002403			BLT    	004640
004632	020127	000006		CMP    	R1, #000006
004636	003402			BLE    	004644
004640	004767	046232		CALL   	053076	; $B125 ; $$B125
004644	060001			ADD    	R0, R1
004646	005046			CLR    	-(SP)
004650	016646	000012		MOV    	000012(SP), -(SP)
004654	012746	000050		MOV    	#000050, -(SP)
004660	004767	045774		CALL   	052660	; UNSMOD ; $B120
004664	004767	177332		CALL   	004222
004670	112661	177777		MOVB   	(SP)+, 177777(R1)	; 6(SP)[@SP]:=L04222(2(SP) MOD 50)
004674	016646	000010		MOV    	000010(SP), -(SP)
004700	012746	000050		MOV    	#000050, -(SP)
004704	004767	045730		CALL   	052640	; UNSDIV ; $B118
004710	012666	000010		MOV    	(SP)+, 000010(SP)	; 2(SP):=2(SP) DIV 50
004714	005376	000004		DEC    	@000004(SP)		; NEXT @SP
004720	000167	177656		JMP    	004602
004724	062706	000006		ADD    	#000006, SP		; END FOR @SP
004730	016666	000010	000002	MOV    	000010(SP), 000002(SP)	; 2(SP):=10(SP)
004736	010600			MOV    	SP, R0
004740	010046			MOV    	R0, -(SP)		; FOR @SP:=6 TO 4
004742	012746	000006		MOV    	#000006, -(SP)
004746	012746	000004		MOV    	#000004, -(SP)
004752	016676	000002	000004	MOV    	000002(SP), @000004(SP)
004760	027616	000004		CMP    	@000004(SP), (SP)
004764	002002			BGE    	004772
004766	000167	000110		JMP    	005102
004772	016600	000014		MOV    	000014(SP), R0
004776	016601	000006		MOV    	000006(SP), R1
005002	020127	000001		CMP    	R1, #000001
005006	002403			BLT    	005016
005010	020127	000006		CMP    	R1, #000006
005014	003402			BLE    	005022
005016	004767	046054		CALL   	053076	; $B125 ; $$B125
005022	060001			ADD    	R0, R1
005024	005046			CLR    	-(SP)
005026	016646	000012		MOV    	000012(SP), -(SP)
005032	012746	000050		MOV    	#000050, -(SP)
005036	004767	045616		CALL   	052660	; UNSMOD ; $B120
005042	004767	177154		CALL   	004222
005046	112661	177777		MOVB   	(SP)+, 177777(R1)	; 6(SP)[@SP]:=L04222(2(SP) MOD 50)
005052	016646	000010		MOV    	000010(SP), -(SP)
005056	012746	000050		MOV    	#000050, -(SP)
005062	004767	045552		CALL   	052640	; UNSDIV ; $B118
005066	012666	000010		MOV    	(SP)+, 000010(SP)	; 2(SP):=2(SP) DIV 50
005072	005376	000004		DEC    	@000004(SP)		; NEXT @SP
005076	000167	177656		JMP    	004760
005102	062706	000006		ADD    	#000006, SP		; END FOR @SP
005106	016666	000004	000012	MOV    	000004(SP), 000012(SP)
005114	062706	000012		ADD    	#000012, SP
005120	000207			RETURN 	
=============================================================
; FUNCTION 16(SP):INTEGER; 14(SP):INTEGER;
005122	004067	045652		JSR    	R0, 053000 ; SVREG ; $B74
005126	016600	000014		MOV    	000014(SP), R0
005132	042700	177400		BIC    	#177400, R0
005136	010066	000016		MOV    	R0, 000016(SP)		; L05122:=14(SP) MOD 400
005142	004067	045662		JSR    	R0, 053030 ; UNREG ; $B76
005146	011666	000002		MOV    	(SP), 000002(SP)
005152	062706	000002		ADD    	#000002, SP
005156	000207			RETURN 	
=============================================================
; FUNCTION 16(SP):INTEGER; 14(SP):INTEGER;
005160	004067	045614		JSR    	R0, 053000 ; SVREG ; $B74
005164	016600	000014		MOV    	000014(SP), R0
005170	000300			SWAB   	R0
005172	110000			MOVB   	R0, R0
005174	010066	000016		MOV    	R0, 000016(SP)		; L05160:=14(SP) DIV 400
005200	004067	045624		JSR    	R0, 053030 ; UNREG ; $B76
005204	011666	000002		MOV    	(SP), 000002(SP)
005210	062706	000002		ADD    	#000002, SP
005214	000207			RETURN 	
=============================================================
; PROCEDURE VAR 4(SP):RECG1012 VAR 2(SP):RECE50
005216	004767	045624		CALL   	053046	; STKCHK ; $B127
005222	005046			CLR    	-(SP)
005224	016646	000006		MOV    	000006(SP), -(SP)
005230	004767	176226		CALL   	003462
005234	012600			MOV    	(SP)+, R0
005236	010046			MOV    	R0, -(SP)
005240	005046			CLR    	-(SP)
005242	016646	000010		MOV    	000010(SP), -(SP)
005246	004767	176210		CALL   	003462
005252	012600			MOV    	(SP)+, R0
005254	010046			MOV    	R0, -(SP)
005256	016600	000006		MOV    	000006(SP), R0
005262	062700	000002		ADD    	#000002, R0
005266	010046			MOV    	R0, -(SP)
005270	004767	177250		CALL   	004544			; L04544(L03462(4(SP)),L03462(4(SP)),@2(SP).RE02)
005274	011666	000004		MOV    	(SP), 000004(SP)
005300	062706	000004		ADD    	#000004, SP
005304	000207			RETURN 	
=============================================================
; PROCEDURE VAR 10(SP):RECG1012 VAR 6(SP):RECE50
005306	024646			CMP    	-(SP), -(SP) ; VAR @SP 2(SP): INTEGER
005310	004767	045532		CALL   	053046	; STKCHK ; $B127
005314	016603	000010		MOV    	000010(SP), R3		; WITH 10(SP)
005320	016602	000006		MOV    	000006(SP), R2		; WITH 6(SP)
005324	010346			MOV    	R3, -(SP)
005326	010246			MOV    	R2, -(SP)
005330	016646	000014		MOV    	000014(SP), -(SP)
005334	016646	000014		MOV    	000014(SP), -(SP)
005340	004767	177652		CALL   	005216			; L05216(10(SP),6(SP))
005344	012602			MOV    	(SP)+, R2
005346	012603			MOV    	(SP)+, R3
005350	005046			CLR    	-(SP)
005352	016646	000012		MOV    	000012(SP), -(SP)
005356	004767	176100		CALL   	003462
005362	012600			MOV    	(SP)+, R0
005364	010016			MOV    	R0, (SP)		; @SP:=L03462(10(SP))
005366	005046			CLR    	-(SP)
005370	016646	000002		MOV    	000002(SP), -(SP)
005374	004767	177522		CALL   	005122
005400	012600			MOV    	(SP)+, R0
005402	010066	000002		MOV    	R0, 000002(SP)		; 2(SP):=L05122(@SP)
005406	016600	000006		MOV    	000006(SP), R0
005412	116660	000002	000012	MOVB   	000002(SP), 000012(R0)	; ???
005420	005046			CLR    	-(SP)
005422	016646	000002		MOV    	000002(SP), -(SP)
005426	004767	177526		CALL   	005160
005432	012600			MOV    	(SP)+, R0
005434	010066	000002		MOV    	R0, 000002(SP)		; 2(SP):=L05160(@SP)
005440	016600	000006		MOV    	000006(SP), R0
005444	116660	000002	000010	MOVB   	000002(SP), 000010(R0)	; ???
005452	005046			CLR    	-(SP)
005454	016646	000012		MOV    	000012(SP), -(SP)
005460	004767	175776		CALL   	003462
005464	012600			MOV    	(SP)+, R0
005466	010062	000022		MOV    	R0, 000022(R2)		; (6(SP)).RE22:=L03462(10(SP))
005472	016666	000004	000010	MOV    	000004(SP), 000010(SP)
005500	062706	000010		ADD    	#000010, SP
005504	000207			RETURN 	
=============================================================
; PROCEDURE VAR 4(SP):RECG1012  VAR 2(SP):RECE50
005506	004767	045334		CALL   	053046	; STKCHK ; $B127
005512	016603	000004		MOV    	000004(SP), R3		; WITH 4(SP)
005516	016602	000002		MOV    	000002(SP), R2		; WITH 2(SP)
005522	005763	001006		TST    	001006(R3)		; IF (4(SP)).RG1006=0
005526	001402			BEQ    	005534
005530	000167	000026		JMP    	005562
005534	005046			CLR    	-(SP)			; THEN
005536	016646	000006		MOV    	000006(SP), -(SP)
005542	004767	175714		CALL   	003462
005546	012600			MOV    	(SP)+, R0
005550	010062	000024		MOV    	R0, 000024(R2)		; (2(SP)).RE24:=L03462(4(SP))
005554	016262	000024	000032	MOV    	000024(R2), 000032(R2)	; (2(SP)).RE32:=(2(SP)).RE24 ; END IF
005562	016262	000032	000030	MOV    	000032(R2), 000030(R2)	; (2(SP)).RE30:=(2(SP)).RE32
005570	016200	000030		MOV    	000030(R2), R0
005574	042700	177776		BIC    	#177776, R0
005600	010062	000026		MOV    	R0, 000026(R2)		; (2(SP)).RE26:=(2(SP)).RE30 MOD 2
005604	016300	001006		MOV    	001006(R3), R0
005610	005200			INC    	R0
005612	020013			CMP    	R0, (R3)		; IF ((4(SP)).RG1006+1)=(4(SP)).RG00
005614	001402			BEQ    	005622
005616	000167	000006		JMP    	005630
005622	012762	000001	000026	MOV    	#000001, 000026(R2)	; THEN ; (2(SP)).RE26:=1 ; END IF
005630	005762	000026		TST    	000026(R2)		; IF (2(SP)).RE26=0
005634	001402			BEQ    	005642
005636	000167	000024		JMP    	005666
005642	005046			CLR    	-(SP)			; THEN
005644	016646	000006		MOV    	000006(SP), -(SP)
005650	004767	175606		CALL   	003462
005654	012600			MOV    	(SP)+, R0
005656	010062	000034		MOV    	R0, 000034(R2)		; (2(SP)).RE34:=L03462(4(SP))
005662	000167	000020		JMP    	005706
005666	005046			CLR    	-(SP)			; ELSE
005670	016646	000006		MOV    	000006(SP), -(SP)
005674	004767	175450		CALL   	003350
005700	012600			MOV    	(SP)+, R0
005702	010062	000034		MOV    	R0, 000034(R2)		; (2(SP)).RE34:=L03350(4(SP)) ; END IF
005706	016200	000024		MOV    	000024(R2), R0
005712	062700	177776		ADD    	#177776, R0
005716	066300	001006		ADD    	001006(R3), R0
005722	010062	000032		MOV    	R0, 000032(R2)		; (2(SP)).RE32:=(2(SP)).RE24-2+(4(SP)).RG1006
005726	011666	000004		MOV    	(SP), 000004(SP)
005732	062706	000004		ADD    	#000004, SP
005736	000207			RETURN 	
=============================================================
; PROCEDURE VAR 10(SP):RECG1012 VAR 6(SP):RECE50
005740	024646			CMP    	-(SP), -(SP) ; VAR @SP 2(SP)
005742	004767	045100		CALL   	053046	; STKCHK ; $B127
005746	016603	000010		MOV    	000010(SP), R3		; WITH 10(SP)
005752	016602	000006		MOV    	000006(SP), R2		; WITH 6(SP)
005756	005046			CLR    	-(SP)
005760	016646	000012		MOV    	000012(SP), -(SP)
005764	004767	175472		CALL   	003462
005770	012600			MOV    	(SP)+, R0
005772	010016			MOV    	R0, (SP)		; @SP:=L03462(10(SP))
005774	005046			CLR    	-(SP)
005776	016646	000002		MOV    	000002(SP), -(SP)
006002	004767	177114		CALL   	005122
006006	012600			MOV    	(SP)+, R0
006010	042700	177600		BIC    	#177600, R0
006014	010066	000002		MOV    	R0, 000002(SP)		; 2(SP):=L05122(@SP) MOD 200
006020	016600	000006		MOV    	000006(SP), R0
006024	116660	000002	000036	MOVB   	000002(SP), 000036(R0)	; ???
006032	005046			CLR    	-(SP)
006034	016646	000002		MOV    	000002(SP), -(SP)
006040	004767	177056		CALL   	005122
006044	012600			MOV    	(SP)+, R0
006046	005700			TST    	R0
006050	100001			BPL    	006054
006052	005300			DEC    	R0
006054	006200			ASR    	R0
006056	006200			ASR    	R0
006060	006200			ASR    	R0
006062	006200			ASR    	R0
006064	006200			ASR    	R0
006066	006200			ASR    	R0
006070	006200			ASR    	R0
006072	100001			BPL    	006076
006074	005200			INC    	R0
006076	010062	000040		MOV    	R0, 000040(R2)		; (6(SP)).RE40:=L05122(@SP) DIV 200
006102	005046			CLR    	-(SP)
006104	016646	000002		MOV    	000002(SP), -(SP)
006110	004767	177044		CALL   	005160
006114	012600			MOV    	(SP)+, R0
006116	062700	177774		ADD    	#177774, R0
006122	066200	000024		ADD    	000024(R2), R0
006126	010062	000042		MOV    	R0, 000042(R2)		; (6(SP)).RE42:=L05160(@SP)-4+(6(SP)).RE24
006132	012700	006742		MOV    	#006742, R0
006136	012062	000002		MOV    	(R0)+, 000002(R2)	; (6(SP)).RE02:='******'
006142	012062	000004		MOV    	(R0)+, 000004(R2)
006146	012062	000006		MOV    	(R0)+, 000006(R2)
006152	012746	006762		MOV    	#006762, -(SP)
006156	004767	044134		CALL   	052316	; PSHSET ; $B52
006162	005046			CLR    	-(SP)
006164	116216	000036		MOVB   	000036(R2), (SP)
006170	004767	043740		CALL   	052134	; DOIN ; $B40	; IF (6(SP)).RE36 IN [2,4,5,6,7,14,15,16]
006174	001002			BNE    	006202
006176	000167	000024		JMP    	006226
006202	010346			MOV    	R3, -(SP)		; THEN
006204	010246			MOV    	R2, -(SP)
006206	016646	000014		MOV    	000014(SP), -(SP)
006212	016646	000014		MOV    	000014(SP), -(SP)
006216	004767	176774		CALL   	005216			; L05216(10(SP),6(SP))
006222	012602			MOV    	(SP)+, R2
006224	012603			MOV    	(SP)+, R3		; END IF
006226	005062	000044		CLR    	000044(R2)		; (6(SP)).RE44:=0
006232	012746	006752		MOV    	#006752, -(SP)
006236	004767	044054		CALL   	052316	; PSHSET ; $B52
006242	005046			CLR    	-(SP)
006244	116216	000036		MOVB   	000036(R2), (SP)
006250	004767	043660		CALL   	052134	; DOIN ; $B40	; IF (6(SP)).RE36 IN [1,3,5,6,7,10,15,16]
006254	001002			BNE    	006262
006256	000167	000020		JMP    	006302
006262	005046			CLR    	-(SP)			; THEN
006264	016646	000012		MOV    	000012(SP), -(SP)
006270	004767	175166		CALL   	003462
006274	012600			MOV    	(SP)+, R0
006276	010062	000044		MOV    	R0, 000044(R2)		; (6(SP)).RE44:=L03462(10(SP)) ; END IF
006302	126227	000036	000017	CMPB   	000036(R2), #000017	; IF (6(SP)).RE36=17
006310	001402			BEQ    	006316
006312	000167	000410		JMP    	006726
006316	016562	000400	000046	MOV    	000400(R5), 000046(R2)	; THEN 1 ; (6(SP)).RE46:=VAR400
006324	005265	000400		INC    	000400(R5)		; REPEAT ; VAR400:=VAR400+1
006330	026527	000400	000024	CMP    	000400(R5), #000024	; IF VAR400>24
006336	003002			BGT    	006344
006340	000167	000006		JMP    	006352
006344	012765	000001	000400	MOV    	#000001, 000400(R5)	; THEN ; VAR400:=1 ; END IF
006352	005046			CLR    	-(SP)
006354	016646	000012		MOV    	000012(SP), -(SP)
006360	004767	174764		CALL   	003350
006364	012600			MOV    	(SP)+, R0
006366	010066	000002		MOV    	R0, 000002(SP)		; 2(SP):=L03350(10(SP))
006372	016501	000400		MOV    	000400(R5), R1		; WITH VAR20[VAR400]
006376	020127	000001		CMP    	R1, #000001
006402	002403			BLT    	006412
006404	020127	000024		CMP    	R1, #000024
006410	003402			BLE    	006416
006412	004767	044460		CALL   	053076	; $B125 ; $$B125
006416	010146			MOV    	R1, -(SP)
006420	012746	000014		MOV    	#000014, -(SP)
006424	004767	044174		CALL   	052624	; UNSMUL ; $B116
006430	010501			MOV    	R5, R1
006432	062601			ADD    	(SP)+, R1
006434	062701	000004		ADD    	#000004, R1
006440	016611	000002		MOV    	000002(SP), (R1)	; (VAR20[VAR400]).RA00:=2(SP)
006444	026627	000002	000016	CMP    	000002(SP), #000016	; IF 2(SP)=16
006452	001402			BEQ    	006460
006454	000167	000062		JMP    	006542
006460	010346			MOV    	R3, -(SP)		; THEN 2
006462	010246			MOV    	R2, -(SP)
006464	010146			MOV    	R1, -(SP)
006466	016646	000016		MOV    	000016(SP), -(SP)
006472	016646	000016		MOV    	000016(SP), -(SP)
006476	004767	176514		CALL   	005216			; L05216(10(SP),6(SP))
006502	012601			MOV    	(SP)+, R1
006504	012602			MOV    	(SP)+, R2
006506	012603			MOV    	(SP)+, R3
006510	016600	000006		MOV    	000006(SP), R0
006514	016061	000002	000002	MOV    	000002(R0), 000002(R1)	; (VAR20[VAR400]).RA02:=6(SP).RE02
006522	016061	000004	000004	MOV    	000004(R0), 000004(R1)
006530	016061	000006	000006	MOV    	000006(R0), 000006(R1)
006536	000167	000114		JMP    	006656
006542	026627	000002	000017	CMP    	000002(SP), #000017	; ELSE 2 ; IF 2(SP)=17
006550	001402			BEQ    	006556
006552	000167	000044		JMP    	006622
006556	005046			CLR    	-(SP)			; THEN 3
006560	016646	000012		MOV    	000012(SP), -(SP)
006564	004767	174560		CALL   	003350
006570	012600			MOV    	(SP)+, R0
006572	010061	000010		MOV    	R0, 000010(R1)		; (VAR20[VAR400]).RA10:=L03350(10(SP))
006576	005046			CLR    	-(SP)
006600	016646	000012		MOV    	000012(SP), -(SP)
006604	004767	174652		CALL   	003462
006610	012600			MOV    	(SP)+, R0
006612	010061	000012		MOV    	R0, 000012(R1)		; (VAR20[VAR400]).RA12:=L03462(10(SP))
006616	000167	000034		JMP    	006656
006622	026627	000002	000020	CMP    	000002(SP), #000020	; ELSE 3 ; IF 2(SP)=20
006630	001402			BEQ    	006636
006632	000167	000020		JMP    	006656
006636	005046			CLR    	-(SP)			; THEN 4
006640	016646	000012		MOV    	000012(SP), -(SP)
006644	004767	174612		CALL   	003462
006650	012600			MOV    	(SP)+, R0
006652	010061	000012		MOV    	R0, 000012(R1)		; (VAR20[VAR400]).RA12:=L03462(10(SP)) ; EI4 ; EI3 ; EI2
006656	026627	000002	000012	CMP    	000002(SP), #000012	; UNTIL 2(SP)=12
006664	001402			BEQ    	006672
006666	005000			CLR    	R0
006670	000402			BR     	006676
006672	012700	000001		MOV    	#000001, R0
006676	026627	000002	000013	CMP    	000002(SP), #000013	; OR 2(SP)=13
006704	001402			BEQ    	006712
006706	005001			CLR    	R1
006710	000402			BR     	006716
006712	012701	000001		MOV    	#000001, R1
006716	150001			BISB   	R0, R1
006720	001002			BNE    	006726
006722	000167	177376		JMP    	006324		; END UNTIL ; END IF 1
006726	016666	000004	000010	MOV    	000004(SP), 000010(SP)
006734	062706	000010		ADD    	#000010, SP
006740	000207			RETURN 	
-------------------------------------------------------------
006742	025052	025052	025052	.ASCIZ	/******/
	000000			.EVEN
; SET OF 1,3,5,6,7,10,15,16 (BYTE)
006752	060752	000000	000000	000000
; SET OF 2,4,5,6,7,14,15,16 (BYTE)
006762	070364	000000	000000	000000
=============================================================
; PROCEDURE VAR 2(SP): RECF1012
006772	004767	044050		CALL   	053046	; STKCHK ; $B127
006776	010503			MOV    	R5, R3
007000	062703	000402		ADD    	#000402, R3		; WITH VAR402
007004	010502			MOV    	R5, R2
007006	062702	002436		ADD    	#002436, R2		; WITH VAR2436
007012	116500	002426		MOVB   	002426(R5), R0		; IF VAR2426
007016	005100			COM    	R0
007020	116301	001010		MOVB   	001010(R3), R1		; AND (VAR402).RG1010
007024	140001			BICB   	R0, R1
007026	001002			BNE    	007034
007030	000167	000014		JMP    	007050
007034	112712	000004		MOVB   	#000004, (R2)		; THEN 1 ; (VAR2436).RE00:=4
007040	105065	002426		CLRB   	002426(R5)		; VAR2426:=FALSE
007044	000167	001012		JMP    	010062
007050	105763	001010		TSTB   	001010(R3)		; ELSE 1 ; WHILE (VAR402).RG1010
007054	001002			BNE    	007062
007056	000167	000076		JMP    	007160
007062	010500			MOV    	R5, R0
007064	062700	001414		ADD    	#001414, R0
007070	010501			MOV    	R5, R1
007072	062701	000402		ADD    	#000402, R1
007076	012704	000405		MOV    	#000405, R4
007102	012021			MOV    	(R0)+, (R1)+		; VAR402:=VAR1414
007104	005304			DEC    	R4
007106	001375			BNE    	007102
007110	126327	000002	000006	CMPB   	000002(R3), #000006	; IF (VAR402).RG02<>6
007116	001002			BNE    	007124
007120	000167	000030		JMP    	007154
007124	010346			MOV    	R3, -(SP)		; THEN
007126	010246			MOV    	R2, -(SP)
007130	016646	000006		MOV    	000006(SP), -(SP)
007134	010500			MOV    	R5, R0
007136	062700	001414		ADD    	#001414, R0
007142	010046			MOV    	R0, -(SP)
007144	004767	173634		CALL   	003004			; L03004(2(SP),VAR1414)
007150	012602			MOV    	(SP)+, R2
007152	012603			MOV    	(SP)+, R3
007154	000167	177670		JMP    	007050			; END IF ; END WHILE
007160	116312	000002		MOVB   	000002(R3), (R2)	; (VAR2436).RE00:=(VAR402).RG02
007164	116300	000002		MOVB   	000002(R3), R0		; CASE (VAR402).RG02
007170	162700	000001		SUB    	#000001, R0
007174	002002			BGE    	007202
007176	000167	000640		JMP    	010042
007202	022700	000005		CMP    	#000005, R0
007206	002002			BGE    	007214
007210	000167	000626		JMP    	010042
007214	006300			ASL    	R0
007216	000170	010046		JMP    	@010046(R0)
007222	010346			MOV    	R3, -(SP) ; 1 ;
007224	010246			MOV    	R2, -(SP)
007226	010500			MOV    	R5, R0
007230	062700	000402		ADD    	#000402, R0
007234	010046			MOV    	R0, -(SP)
007236	010500			MOV    	R5, R0
007240	062700	002436		ADD    	#002436, R0
007244	010046			MOV    	R0, -(SP)
007246	004767	176034		CALL   	005306			; L05306(VAR402,VAR2436)
007252	012602			MOV    	(SP)+, R2
007254	012603			MOV    	(SP)+, R3
007256	000167	000600		JMP    	010062
007262	112763	000001	001010	MOVB   	#000001, 001010(R3) ; 2 ; (VAR402).RG1010:=TRUE
007270	105065	002426		CLRB   	002426(R5)		; VAR2426:=FALSE
007274	000167	000562		JMP    	010062
007300	010346			MOV    	R3, -(SP) ; 3 ;
007302	010246			MOV    	R2, -(SP)
007304	010500			MOV    	R5, R0
007306	062700	000402		ADD    	#000402, R0
007312	010046			MOV    	R0, -(SP)
007314	010500			MOV    	R5, R0
007316	062700	002436		ADD    	#002436, R0
007322	010046			MOV    	R0, -(SP)
007324	004767	176156		CALL   	005506			; L05506(VAR402,VAR2436)
007330	012602			MOV    	(SP)+, R2
007332	012603			MOV    	(SP)+, R3
007334	010501			MOV    	R5, R1
007336	062701	001414		ADD    	#001414, R1		; WITH VAR1414
007342	116500	002426		MOVB   	002426(R5), R0		; IF NOT VAR2426
007346	105100			COMB   	R0
007350	142700	177776		BICB   	#177776, R0
007354	116104	001010		MOVB   	001010(R1), R4		; AND (VAR1414).RG1010
007360	005104			COM    	R4
007362	140400			BICB   	R4, R0
007364	001002			BNE    	007372
007366	000167	000034		JMP    	007426
007372	010346			MOV    	R3, -(SP)		; THEN
007374	010246			MOV    	R2, -(SP)
007376	010146			MOV    	R1, -(SP)
007400	016646	000010		MOV    	000010(SP), -(SP)
007404	010500			MOV    	R5, R0
007406	062700	001414		ADD    	#001414, R0
007412	010046			MOV    	R0, -(SP)
007414	004767	173364		CALL   	003004			; L03004(2(SP),VAR1414)
007420	012601			MOV    	(SP)+, R1
007422	012602			MOV    	(SP)+, R2
007424	012603			MOV    	(SP)+, R3		; END IF
007426	126127	000002	000004	CMPB   	000002(R1), #000004	; IF (VAR1414).RG02=4
007434	001402			BEQ    	007442
007436	000167	000306		JMP    	007750
007442	116500	002426		MOVB   	002426(R5), R0		; THEN 2 ; IF NOT VAR2426
007446	105100			COMB   	R0
007450	142700	177776		BICB   	#177776, R0
007454	001002			BNE    	007462
007456	000167	000046		JMP    	007530
007462	010346			MOV    	R3, -(SP)		; THEN
007464	010246			MOV    	R2, -(SP)
007466	010146			MOV    	R1, -(SP)
007470	010500			MOV    	R5, R0
007472	062700	001414		ADD    	#001414, R0
007476	010046			MOV    	R0, -(SP)
007500	010500			MOV    	R5, R0
007502	062700	002436		ADD    	#002436, R0
007506	010046			MOV    	R0, -(SP)
007510	004767	176224		CALL   	005740			; L05740(VAR1414,VAR2436)
007514	012601			MOV    	(SP)+, R1
007516	012602			MOV    	(SP)+, R2
007520	012603			MOV    	(SP)+, R3
007522	112765	000001	002426	MOVB   	#000001, 002426(R5)	; VAR2426:=TRUE ; END IF
007530	012746	010074		MOV    	#010074, -(SP)
007534	004767	042556		CALL   	052316	; PSHSET ; $B52
007540	005046			CLR    	-(SP)
007542	116216	000036		MOVB   	000036(R2), (SP)
007546	004767	042362		CALL   	052134	; DOIN ; $B40	; IF (VAR2436).RE36 IN [1,2,3,4,5,6,11,14,15,16,17]
007552	001002			BNE    	007560
007554	005000			CLR    	R0
007556	000402			BR     	007564
007560	012700	000001		MOV    	#000001, R0
007564	105100			COMB   	R0
007566	116504	002426		MOVB   	002426(R5), R4		; AND VAR2426
007572	140004			BICB   	R0, R4
007574	001002			BNE    	007602
007576	000167	000146		JMP    	007750
007602	026262	000042	000030	CMP    	000042(R2), 000030(R2)	; THEN 3 ; IF (VAR2436).RE42=(VAR2436).RE30
007610	001402			BEQ    	007616
007612	000167	000056		JMP    	007674
007616	026227	000040	000001	CMP    	000040(R2), #000001	; THEN 4 ; IF (VAR2436).RE40=1
007624	001402			BEQ    	007632
007626	000167	000026		JMP    	007660
007632	005762	000026		TST    	000026(R2)		; THEN 5 ; IF (VAR2436).RE26=0
007636	001402			BEQ    	007644
007640	000167	000014		JMP    	007660
007644	005365	001410		DEC    	001410(R5)		; THEN 6 ; VAR402.RG1006:=VAR402.RG1006-1
007650	105065	001412		CLRB   	001412(R5)		; VAR402.RG1010:=FALSE
007654	005365	002470		DEC    	002470(R5)		; VAR2436.RE32:=VAR2436.RE32-1 ; END IF 6 ; END IF 5
007660	112712	000004		MOVB   	#000004, (R2)		; (VAR2436).RE00:=4
007664	105065	002426		CLRB   	002426(R5)		; VAR2426:=FALSE
007670	000167	000054		JMP    	007750
007674	016200	000030		MOV    	000030(R2), R0		; ELSE 4
007700	005200			INC    	R0
007702	026200	000042		CMP    	000042(R2), R0		; IF (VAR2436).RE42=((VAR2436).RE30+1)
007706	001402			BEQ    	007714
007710	000167	000034		JMP    	007750
007714	005762	000026		TST    	000026(R2)		; THEN 5 ; IF (VAR2436).RE26=0
007720	001402			BEQ    	007726
007722	000167	000022		JMP    	007750
007726	012762	000001	000026	MOV    	#000001, 000026(R2)	; THEN 6 ; (VAR2436).RE26:=1
007734	005365	001410		DEC    	001410(R5)		; VAR402.RG1006:=VAR402.RG1006-1
007740	105065	001412		CLRB   	001412(R5)		; VAR402.RG1010:=FALSE
007744	005365	002470		DEC    	002470(R5)		; VAR2436.RE32:=VAR2436.RE32-1
007750	000167	000106		JMP    	010062			; EI6 ; EI5 ; EI4 ; EI3 ; EI2
007754	105765	002426		TSTB   	002426(R5) ; 4 ;	; IF VAR2426
007760	001002			BNE    	007766
007762	000167	000010		JMP    	007776
007766	105065	002426		CLRB   	002426(R5)		; THEN ; VAR2426:=FALSE
007772	000167	000034		JMP    	010032
007776	010346			MOV    	R3, -(SP)		; ELSE
010000	010246			MOV    	R2, -(SP)
010002	010500			MOV    	R5, R0
010004	062700	000402		ADD    	#000402, R0
010010	010046			MOV    	R0, -(SP)
010012	010500			MOV    	R5, R0
010014	062700	002436		ADD    	#002436, R0
010020	010046			MOV    	R0, -(SP)
010022	004767	175712		CALL   	005740			; L05740(VAR402,VAR2436)
010026	012602			MOV    	(SP)+, R2
010030	012603			MOV    	(SP)+, R3
010032	000167	000024		JMP    	010062			; END IF
010036	000167	000020		JMP    	010062 ; 6 ;
010042	000167	000014		JMP    	010062		; END CASE ; END IF 1
; CASE OF ADDR BEGIN
010046	007222	007262	007300	007754	;  1  2  3  4
	010042	010036			;  5  6
; CASE OF ADDR END
010062	011666	000002		MOV    	(SP), 000002(SP)
010066	062706	000002		ADD    	#000002, SP
010072	000207			RETURN 	
-------------------------------------------------------------
; SET OF 1,2,3,4,5,6,11,14,15,16,17
010074	171176	000000	000000	000000
=============================================================
; PROCEDURE VAR 2(SP): RECF1012
010104	004767	042736		CALL   	053046	; STKCHK ; $B127
010110	016646	000002		MOV    	000002(SP), -(SP)
010114	004767	176652		CALL   	006772			; L06772(2(SP))
010120	116565	002556	002506	MOVB   	002556(R5), 002506(R5)	; VAR2506.RE00:=VAR2556.RE00
010126	016565	002560	002510	MOV    	002560(R5), 002510(R5)	; VAR2506.RE02:=VAR2556.RE02
010134	016565	002562	002512	MOV    	002562(R5), 002512(R5)
010142	016565	002564	002514	MOV    	002564(R5), 002514(R5)
010150	116565	002566	002516	MOVB   	002566(R5), 002516(R5)	; VAR2506.RE10:=VAR2556.RE10
010156	010500			MOV    	R5, R0
010160	062700	002570		ADD    	#002570, R0
010164	010046			MOV    	R0, -(SP)
010166	004767	042124		CALL   	052316	; PSHSET ; $B52
010172	010500			MOV    	R5, R0
010174	062700	002520		ADD    	#002520, R0
010200	010046			MOV    	R0, -(SP)
010202	004767	042152		CALL   	052360	; POPSET ; $B54	; VAR2506.RE12:=VAR2556.RE12
010206	016565	002600	002530	MOV    	002600(R5), 002530(R5)	; VAR2506.RE22:=VAR2556.RE22
010214	016565	002602	002532	MOV    	002602(R5), 002532(R5)	; VAR2506.RE24:=VAR2556.RE24
010222	016565	002604	002534	MOV    	002604(R5), 002534(R5)	; VAR2506.RE26:=VAR2556.RE26
010230	016565	002606	002536	MOV    	002606(R5), 002536(R5)	; VAR2506.RE30:=VAR2556.RE30
010236	016565	002610	002540	MOV    	002610(R5), 002540(R5)	; VAR2506.RE32:=VAR2556.RE32
010244	016565	002612	002542	MOV    	002612(R5), 002542(R5)	; VAR2506.RE34:=VAR2556.RE34
010252	116565	002614	002544	MOVB   	002614(R5), 002544(R5)	; VAR2506.RE36:=VAR2556.RE36
010260	016565	002616	002546	MOV    	002616(R5), 002546(R5)	; VAR2506.RE40:=VAR2556.RE40
010266	016565	002620	002550	MOV    	002620(R5), 002550(R5)	; VAR2506.RE42:=VAR2556.RE42
010274	016565	002622	002552	MOV    	002622(R5), 002552(R5)	; VAR2506.RE44:=VAR2556.RE44
010302	016565	002624	002554	MOV    	002624(R5), 002554(R5)	; VAR2506.RE46:=VAR2556.RE46
010310	010500			MOV    	R5, R0
010312	062700	002626		ADD    	#002626, R0
010316	010501			MOV    	R5, R1
010320	062701	002556		ADD    	#002556, R1
010324	012702	000024		MOV    	#000024, R2
010330	012021			MOV    	(R0)+, (R1)+		; VAR2556:=VAR2626
010332	005302			DEC    	R2
010334	001375			BNE    	010330
010336	010500			MOV    	R5, R0
010340	062700	002436		ADD    	#002436, R0
010344	010501			MOV    	R5, R1
010346	062701	002626		ADD    	#002626, R1
010352	012702	000024		MOV    	#000024, R2
010356	012021			MOV    	(R0)+, (R1)+		; VAR2626:=VAR2436
010360	005302			DEC    	R2
010362	001375			BNE    	010356
010364	011666	000002		MOV    	(SP), 000002(SP)
010370	062706	000002		ADD    	#000002, SP
010374	000207			RETURN 	
=============================================================
010376	000167	170376		JMP    	001000
010402	000167	170676		JMP    	001304
010406	000167	171110		JMP    	001522
010412	000167	171402		JMP    	002020
010416	000167	171654		JMP    	002276
010422	000167	172356		JMP    	003004
010426	000167	174470		JMP    	005122
010432	000167	174522		JMP    	005160
010436	000167	177442		JMP    	010104
=============================================================
; PROCEDURE 2(SP):CHAR
010442	004767	042400		CALL   	053046	; STKCHK ; $B127
010446	026527	002676	000002	CMP    	002676(R5), #000002	; IF VAR2676=2
010454	001402			BEQ    	010462
010456	000167	000022		JMP    	010504
010462	010500			MOV    	R5, R0			; THEN
010464	062700	002700		ADD    	#002700, R0
010470	010046			MOV    	R0, -(SP)
010472	116600	000004		MOVB   	000004(SP), R0
010476	010046			MOV    	R0, -(SP)
010500	004767	177706		CALL   	010412			; L02020(VAR2700,2(SP)) ; END IF
010504	011666	000002		MOV    	(SP), 000002(SP)
010510	062706	000002		ADD    	#000002, SP
010514	000207			RETURN 	
=============================================================
010516	004767	042324		CALL   	053046	; STKCHK ; $B127
010522	012746	000015		MOV    	#000015, -(SP)
010526	004767	177710		CALL   	010442			; L10442(CHR(15))
010532	012746	000012		MOV    	#000012, -(SP)
010536	004767	177700		CALL   	010442			; L10442(CHR(12))
010542	000207			RETURN 	
=============================================================
010544	004767	042276		CALL   	053046	; STKCHK ; $B127
010550	012746	000011		MOV    	#000011, -(SP)
010554	004767	177662		CALL   	010442			; L10442(CHR(11))
010560	000207			RETURN 	
=============================================================
; PROCEDURE 4(SP): ARRAY [1..6] OF CHAR
010562	005046			CLR    	-(SP)	; VAR @SP: INTEGER
010564	004767	042256		CALL   	053046	; STKCHK ; $B127
010570	012716	000001		MOV    	#000001, (SP)		; @SP:=1
010574	021627	000006		CMP    	(SP), #000006		; WHILE @SP<6
010600	002402			BLT    	010606
010602	005000			CLR    	R0
010604	000402			BR     	010612
010606	012700	000001		MOV    	#000001, R0
010612	011601			MOV    	(SP), R1
010614	020127	000001		CMP    	R1, #000001
010620	002403			BLT    	010630
010622	020127	000006		CMP    	R1, #000006
010626	003402			BLE    	010634
010630	004767	042242		CALL   	053076	; $B125 ; $$B125
010634	060601			ADD    	SP, R1
010636	126127	000003	000134	CMPB   	000003(R1), #000134	; AND 4(SP)[@SP]<>'\'
010644	001002			BNE    	010652
010646	005001			CLR    	R1
010650	000402			BR     	010656
010652	012701	000001		MOV    	#000001, R1
010656	105101			COMB   	R1
010660	140100			BICB   	R1, R0
010662	001002			BNE    	010670
010664	000167	000126		JMP    	011016
010670	011600			MOV    	(SP), R0
010672	020027	000001		CMP    	R0, #000001
010676	002403			BLT    	010706
010700	020027	000006		CMP    	R0, #000006
010704	003402			BLE    	010712
010706	004767	042164		CALL   	053076	; $B125 ; $$B125
010712	060600			ADD    	SP, R0
010714	005046			CLR    	-(SP)
010716	116016	000003		MOVB   	000003(R0), (SP)
010722	004767	177514		CALL   	010442			; L10442(4(SP)[@SP])
010726	005216			INC    	(SP)			; @SP:=@SP+1
010730	021627	000006		CMP    	(SP), #000006		; IF @SP=6
010734	001402			BEQ    	010742
010736	005000			CLR    	R0
010740	000402			BR     	010746
010742	012700	000001		MOV    	#000001, R0
010746	126627	000011	000134	CMPB   	000011(SP), #000134	; AND 4(SP)[6]<>'\'
010754	001002			BNE    	010762
010756	005001			CLR    	R1
010760	000402			BR     	010766
010762	012701	000001		MOV    	#000001, R1
010766	105101			COMB   	R1
010770	140100			BICB   	R1, R0
010772	001002			BNE    	011000
010774	000167	000012		JMP    	011012
011000	005046			CLR    	-(SP)
011002	116616	000013		MOVB   	000013(SP), (SP)
011006	004767	177430		CALL   	010442			; L10442(4(SP)[6])
011012	000167	177556		JMP    	010574			; END WHILE
011016	016666	000002	000010	MOV    	000002(SP), 000010(SP)
011024	062706	000010		ADD    	#000010, SP
011030	000207			RETURN 	
=============================================================
; PROCEDURE 22(SP):INTEGER
011032	162706	000020		SUB    	#000020, SP ; VAR @SP,2(SP):INTEGER; 4(SP):ARRAY [1..6] OF INTEGER
011036	004767	042004		CALL   	053046	; STKCHK ; $B127
011042	005766	000022		TST    	000022(SP)		; IF 22(SP)=0 THEN
011046	001402			BEQ    	011054
011050	000167	000014		JMP    	011070
011054	012746	000060		MOV    	#000060, -(SP) 		; THEN 1
011060	004767	177356		CALL   	010442			; L10442('0')
011064	000167	000404		JMP    	011474
011070	016616	000022		MOV    	000022(SP), (SP)	; ELSE 1 ; @SP:=22(SP)
011074	010600			MOV    	SP, R0
011076	062700	000002		ADD    	#000002, R0		; FOR 2(SP):=6 DOWNTO 1
011102	010046			MOV    	R0, -(SP)
011104	012746	000006		MOV    	#000006, -(SP)
011110	012746	000001		MOV    	#000001, -(SP)
011114	016676	000002	000004	MOV    	000002(SP), @000004(SP)
011122	027616	000004		CMP    	@000004(SP), (SP)
011126	002002			BGE    	011134
011130	000167	000070		JMP    	011224
011134	016600	000010		MOV    	000010(SP), R0
011140	020027	000001		CMP    	R0, #000001
011144	002403			BLT    	011154
011146	020027	000006		CMP    	R0, #000006
011152	003402			BLE    	011160
011154	004767	041716		CALL   	053076	; $B125 ; $$B125
011160	006300			ASL    	R0
011162	060600			ADD    	SP, R0
011164	016601	000006		MOV    	000006(SP), R1
011170	042701	177770		BIC    	#177770, R1
011174	010160	000010		MOV    	R1, 000010(R0)		; 4(SP)[2(SP)]:=@SP MOD 10
011200	006266	000006		ASR    	000006(SP)
011204	006266	000006		ASR    	000006(SP)
011210	006266	000006		ASR    	000006(SP)		; @SP:=@SP DIV 10
011214	005376	000004		DEC    	@000004(SP)		; NEXT 2(SP)
011220	000167	177676		JMP    	011122
011224	062706	000006		ADD    	#000006, SP		; END FOR 2(SP)
011230	012766	000001	000002	MOV    	#000001, 000002(SP)	; 2(SP):=1
011236	016600	000002		MOV    	000002(SP), R0
011242	020027	000001		CMP    	R0, #000001
011246	002403			BLT    	011256
011250	020027	000006		CMP    	R0, #000006
011254	003402			BLE    	011262
011256	004767	041614		CALL   	053076	; $B125 ; $$B125
011262	006300			ASL    	R0
011264	060600			ADD    	SP, R0
011266	005760	000002		TST    	000002(R0)		; WHILE 4(SP)[2(SP)]=0
011272	001402			BEQ    	011300
011274	000167	000010		JMP    	011310
011300	005266	000002		INC    	000002(SP)		; THEN ; 2(SP):=2(SP)+1
011304	000167	177726		JMP    	011236			; END WHILE
011310	026627	000002	000006	CMP    	000002(SP), #000006	; WHILE 2(SP)<=6
011316	003402			BLE    	011324
011320	000167	000150		JMP    	011474
011324	026627	000002	000001	CMP    	000002(SP), #000001	; IF 2(SP)=1
011332	001402			BEQ    	011340
011334	000167	000056		JMP    	011416
011340	016600	000002		MOV    	000002(SP), R0		; THEN 2
011344	020027	000001		CMP    	R0, #000001
011350	002403			BLT    	011360
011352	020027	000006		CMP    	R0, #000006
011356	003402			BLE    	011364
011360	004767	041512		CALL   	053076	; $B125 ; $$B125
011364	006300			ASL    	R0
011366	060600			ADD    	SP, R0
011370	016000	000002		MOV    	000002(R0), R0
011374	042700	177776		BIC    	#177776, R0
011400	062700	000060		ADD    	#000060, R0
011404	010046			MOV    	R0, -(SP)
011406	004767	177030		CALL   	010442			; L10442(CHR((4(SP)[2(SP)] MOD 2)+ORD('0')))
011412	000167	000046		JMP    	011464
011416	016600	000002		MOV    	000002(SP), R0		; ELSE 2
011422	020027	000001		CMP    	R0, #000001
011426	002403			BLT    	011436
011430	020027	000006		CMP    	R0, #000006
011434	003402			BLE    	011442
011436	004767	041434		CALL   	053076	; $B125 ; $$B125
011442	006300			ASL    	R0
011444	060600			ADD    	SP, R0
011446	016000	000002		MOV    	000002(R0), R0
011452	062700	000060		ADD    	#000060, R0
011456	010046			MOV    	R0, -(SP)
011460	004767	176756		CALL   	010442			; L10442(CHR(4(SP)[2(SP)]+ORD('0'))) ; END IF 2
011464	005266	000002		INC    	000002(SP)		; 2(SP):=2(SP)+1
011470	000167	177614		JMP    	011310			; END WHILE ; END IF 1
011474	016666	000020	000022	MOV    	000020(SP), 000022(SP)
011502	062706	000022		ADD    	#000022, SP
011506	000207			RETURN 	
=============================================================
; PROCEDURE 2(SP):WORD
011510	004767	041332		CALL   	053046	; STKCHK ; $B127
011514	026627	000002	100000	CMP    	000002(SP), #100000	; IF 2(SP)<=100000
011522	101402			BLOS   	011530
011524	000167	000014		JMP    	011544
011530	016646	000002		MOV    	000002(SP), -(SP)	; THEN
011534	004767	177272		CALL   	011032			; L11032(2(SP))
011540	000167	000024		JMP    	011570
011544	012746	000055		MOV    	#000055, -(SP)		; ELSE
011550	004767	176666		CALL   	010442			; L10442('-')
011554	016600	000002		MOV    	000002(SP), R0
011560	005400			NEG    	R0
011562	010046			MOV    	R0, -(SP)
011564	004767	177242		CALL   	011032			; L11032(-2(SP)) ; END IF
011570	011666	000002		MOV    	(SP), 000002(SP)
011574	062706	000002		ADD    	#000002, SP
011600	000207			RETURN 	
=============================================================
; PROCEDURE 6(SP):ARRAY [1..6] OF CHAR;
011602	024646			CMP    	-(SP), -(SP) ; VAR @SP,2(SP):INTEGER
011604	004767	041236		CALL   	053046	; STKCHK ; $B127
011610	012700	012046		MOV    	#012046, R0
011614	010601			MOV    	SP, R1
011616	062701	000006		ADD    	#000006, R1
011622	012702	000006		MOV    	#000006, R2
011626	122021			CMPB   	(R0)+, (R1)+		; IF 6(SP)<>'      '
011630	001002			BNE    	011636
011632	005302			DEC    	R2
011634	001374			BNE    	011626
011636	001002			BNE    	011644
011640	000167	000166		JMP    	012032
011644	012716	000006		MOV    	#000006, (SP)		; THEN ; @SP:=6
011650	011600			MOV    	(SP), R0
011652	020027	000001		CMP    	R0, #000001
011656	002403			BLT    	011666
011660	020027	000006		CMP    	R0, #000006
011664	003402			BLE    	011672
011666	004767	041204		CALL   	053076	; $B125 ; $$B125
011672	060600			ADD    	SP, R0
011674	126027	000005	000040	CMPB   	000005(R0), #000040	; WHILE 6(SP)[@SP]=' '
011702	001402			BEQ    	011710
011704	000167	000006		JMP    	011716
011710	005316			DEC    	(SP)			; @SP:=@SP-1
011712	000167	177732		JMP    	011650			; END WHILE
011716	010600			MOV    	SP, R0
011720	062700	000002		ADD    	#000002, R0		; FOR 2(SP):=1 TO @SP
011724	010046			MOV    	R0, -(SP)
011726	012746	000001		MOV    	#000001, -(SP)
011732	016646	000004		MOV    	000004(SP), -(SP)
011736	016676	000002	000004	MOV    	000002(SP), @000004(SP)
011744	027616	000004		CMP    	@000004(SP), (SP)
011750	003402			BLE    	011756
011752	000167	000050		JMP    	012026
011756	016600	000010		MOV    	000010(SP), R0
011762	020027	000001		CMP    	R0, #000001
011766	002403			BLT    	011776
011770	020027	000006		CMP    	R0, #000006
011774	003402			BLE    	012002
011776	004767	041074		CALL   	053076	; $B125 ; $$B125
012002	060600			ADD    	SP, R0
012004	005046			CLR    	-(SP)
012006	116016	000013		MOVB   	000013(R0), (SP)
012012	004767	176424		CALL   	010442			; L10442(6(SP)[2(SP)])
012016	005276	000004		INC    	@000004(SP)		; NEXT 2(SP)
012022	000167	177716		JMP    	011744
012026	062706	000006		ADD    	#000006, SP		; END FOR 2(SP) ; END IF
012032	016666	000004	000012	MOV    	000004(SP), 000012(SP)
012040	062706	000012		ADD    	#000012, SP
012044	000207			RETURN 	
-------------------------------------------------------------
012046	020040	020040	020040	.ASCIZ	/      /
	000000			.EVEN
=============================================================
; PROCEDURE 4(SP): ARRAY [1..6] OF CHAR; 2(SP): INTEGER;
012056	004767	040764		CALL   	053046	; STKCHK ; $B127
012062	012700	012252		MOV    	#012252, R0
012066	010601			MOV    	SP, R1
012070	062701	000004		ADD    	#000004, R1
012074	012702	000006		MOV    	#000006, R2
012100	122021			CMPB   	(R0)+, (R1)+		; IF 4(SP)<>'. ABS.'
012102	001002			BNE    	012110
012104	005302			DEC    	R2
012106	001374			BNE    	012100
012110	001002			BNE    	012116
012112	000167	000026		JMP    	012144
012116	162706	000006		SUB    	#000006, SP		; THEN
012122	010600			MOV    	SP, R0
012124	016620	000012		MOV    	000012(SP), (R0)+
012130	016620	000014		MOV    	000014(SP), (R0)+
012134	016620	000016		MOV    	000016(SP), (R0)+
012140	004767	177436		CALL   	011602			; L11602(4(SP)) ; END IF
012144	005766	000002		TST    	000002(SP)		; IF 2(SP)>0
012150	003002			BGT    	012156
012152	000167	000024		JMP    	012202
012156	012746	000053		MOV    	#000053, -(SP)		; THEN
012162	004767	176254		CALL   	010442			; L10442('+')
012166	016646	000002		MOV    	000002(SP), -(SP)
012172	004767	176634		CALL   	011032			; L11032(2(SP))
012176	000167	000036		JMP    	012240
012202	005766	000002		TST    	000002(SP)		; ELSE ; IF 2(SP)<0
012206	002402			BLT    	012214
012210	000167	000024		JMP    	012240
012214	012746	000055		MOV    	#000055, -(SP)		; THEN
012220	004767	176216		CALL   	010442			; L10442('-')
012224	016600	000002		MOV    	000002(SP), R0
012230	005400			NEG    	R0
012232	010046			MOV    	R0, -(SP)
012234	004767	176572		CALL   	011032			; L11032(-2(SP)) ; END IF; END IF
012240	011666	000010		MOV    	(SP), 000010(SP)
012244	062706	000010		ADD    	#000010, SP
012250	000207			RETURN 	
-------------------------------------------------------------
012252	020056	041101	027123	.ASCIZ	/. ABS./
	000000			.EVEN
=============================================================
CONST STRABS='. ABS.'
=============================================================
; PROCEDURE 4(SP): ARRAY [1..6] OF CHAR
012262	005046			CLR    	-(SP)	; VAR @SP: BOOLEAN
012264	004767	040556		CALL   	053046	; STKCHK ; $B127
012270	005065	004370		CLR    	004370(R5)		; VAR4370:=0
012274	012700	012674		MOV    	#012674, R0
012300	010601			MOV    	SP, R1
012302	062701	000004		ADD    	#000004, R1
012306	012702	000006		MOV    	#000006, R2
012312	122021			CMPB   	(R0)+, (R1)+		; IF 4(SP)<>STRABS
012314	001002			BNE    	012322
012316	005302			DEC    	R2
012320	001374			BNE    	012312
012322	001002			BNE    	012330
012324	000167	000330		JMP    	012660
012330	105016			CLRB   	(SP)			; THEN 1 ; @SP:=FALSE
012332	026565	004370	004366	CMP    	004370(R5), 004366(R5)	; WHILE VAR4370<VAR4366
012340	002402			BLT    	012346
012342	005000			CLR    	R0
012344	000402			BR     	012352
012346	012700	000001		MOV    	#000001, R0
012352	111601			MOVB   	(SP), R1		; AND NOT @SP
012354	105101			COMB   	R1
012356	142701	177776		BICB   	#177776, R1
012362	105101			COMB   	R1
012364	140100			BICB   	R1, R0
012366	001002			BNE    	012374
012370	000167	000114		JMP    	012510
012374	005265	004370		INC    	004370(R5)		; VAR4370:=VAR4370+1
012400	016500	004370		MOV    	004370(R5), R0
012404	020027	000000		CMP    	R0, #000000
012410	002403			BLT    	012420
012412	020027	000030		CMP    	R0, #000030
012416	003402			BLE    	012424
012420	004767	040452		CALL   	053076	; $B125 ; $$B125
012424	010046			MOV    	R0, -(SP)
012426	012746	000014		MOV    	#000014, -(SP)
012432	004767	040166		CALL   	052624	; UNSMUL ; $B116
012436	010500			MOV    	R5, R0
012440	062600			ADD    	(SP)+, R0
012442	010601			MOV    	SP, R1
012444	062701	000004		ADD    	#000004, R1
012450	062700	003712		ADD    	#003712, R0
012454	012702	000006		MOV    	#000006, R2
012460	122120			CMPB   	(R1)+, (R0)+
012462	001002			BNE    	012470
012464	005302			DEC    	R2
012466	001374			BNE    	012460
012470	001402			BEQ    	012476
012472	005000			CLR    	R0
012474	000402			BR     	012502
012476	012700	000001		MOV    	#000001, R0
012502	110016			MOVB   	R0, (SP)		; @SP:=4(SP)=VAR3712[VAR4370].RB00
012504	000167	177622		JMP    	012332			; END WHILE
012510	111600			MOVB   	(SP), R0
012512	105100			COMB   	R0
012514	142700	177776		BICB   	#177776, R0		; IF NOT @SP
012520	001002			BNE    	012526
012522	000167	000132		JMP    	012660
012526	026527	004366	000030	CMP    	004366(R5), #000030	; THEN 2 ; IF VAR4366<30
012534	002402			BLT    	012542
012536	000167	000112		JMP    	012654
012542	005265	004366		INC    	004366(R5)		; THEN 3 ; VAR4366:=VAR4366+1
012546	016565	004366	004370	MOV    	004366(R5), 004370(R5)	; VAR4370:=VAR4366
012554	016503	004370		MOV    	004370(R5), R3
012560	020327	000000		CMP    	R3, #000000
012564	002403			BLT    	012574
012566	020327	000030		CMP    	R3, #000030
012572	003402			BLE    	012600
012574	004767	040276		CALL   	053076	; $B125 ; $$B125
012600	010346			MOV    	R3, -(SP)
012602	012746	000014		MOV    	#000014, -(SP)
012606	004767	040012		CALL   	052624	; UNSMUL ; $B116
012612	010503			MOV    	R5, R3
012614	062603			ADD    	(SP)+, R3
012616	062703	003712		ADD    	#003712, R3		; WITH VAR3712[VAR4370]
012622	010300			MOV    	R3, R0
012624	016620	000004		MOV    	000004(SP), (R0)+	; (VAR3712.[VAR4370]).RB00:=4(SP)
012630	016620	000006		MOV    	000006(SP), (R0)+
012634	016620	000010		MOV    	000010(SP), (R0)+
012640	005063	000010		CLR    	000010(R3)		; (VAR3712.[VAR4370]).RB10:=0
012644	005063	000012		CLR    	000012(R3)		; (VAR3712.[VAR4370]).RB12:=0
012650	000167	000004		JMP    	012660
012654	005065	004370		CLR    	004370(R5)		; ELSE 3 ; VAR4370:=0 ; END IF 2 ; END IF 1
012660	016666	000002	000010	MOV    	000002(SP), 000010(SP)
012666	062706	000010		ADD    	#000010, SP
012672	000207			RETURN 	
-------------------------------------------------------------
012674	020056	041101	027123	.ASCIZ	/. ABS./
	000000
=============================================================
; FUNCTION 22(SP):CHAR  14(SP): ARRAY [1..6] OF CHAR
012704	004067	040070		JSR    	R0, 053000 ; SVREG ; $B74
012710	162706	000006		SUB    	#000006, SP
012714	010600			MOV    	SP, R0
012716	016620	000022		MOV    	000022(SP), (R0)+
012722	016620	000024		MOV    	000024(SP), (R0)+
012726	016620	000026		MOV    	000026(SP), (R0)+
012732	004767	177324		CALL   	012262			; L12262(14(SP))
012736	005765	004370		TST    	004370(R5)		; IF VAR4370<>0
012742	001002			BNE    	012750
012744	000167	000122		JMP    	013072
012750	016500	004370		MOV    	004370(R5), R0		; THEN
012754	020027	000000		CMP    	R0, #000000
012760	002403			BLT    	012770
012762	020027	000030		CMP    	R0, #000030
012766	003402			BLE    	012774
012770	004767	040102		CALL   	053076	; $B125 ; $$B125
012774	010046			MOV    	R0, -(SP)
012776	012746	000014		MOV    	#000014, -(SP)
013002	004767	037616		CALL   	052624	; UNSMUL ; $B116
013006	010500			MOV    	R5, R0
013010	062600			ADD    	(SP)+, R0
013012	012701	013110		MOV    	#013110, R1
013016	062700	003712		ADD    	#003712, R0
013022	012702	000006		MOV    	#000006, R2
013026	122120			CMPB   	(R1)+, (R0)+		; IF VAR3712[VAR4370].RB00='      '
013030	001002			BNE    	013036
013032	005302			DEC    	R2
013034	001374			BNE    	013026
013036	001402			BEQ    	013044
013040	000167	000012		JMP    	013056
013044	112766	000056	000022	MOVB   	#000056, 000022(SP)	; THEN ; L12704:='.'
013052	000167	000014		JMP    	013072
013056	016500	004370		MOV    	004370(R5), R0		; ELSE
013062	062700	000100		ADD    	#000100, R0
013066	110066	000022		MOVB   	R0, 000022(SP)		; L12704:=CHR(VAR4370+100) ; END IF
013072	004067	037732		JSR    	R0, 053030 ; UNREG ; $B76
013076	011666	000006		MOV    	(SP), 000006(SP)
013102	062706	000006		ADD    	#000006, SP
013106	000207			RETURN 	
-------------------------------------------------------------
013110	020040	020040	020040	.ASCIZ	/      /
	000000
=============================================================
; PROCEDURE 14(SP),6(SP): ARRAY [1..6] OF CHAR; 4(SP):INTEGER
013120	005046			CLR    	-(SP)	; VAR @SP:
013122	004767	037720		CALL   	053046	; STKCHK ; $B127
013126	026527	007200	000144	CMP    	007200(R5), #000144	; IF VAR7200<144
013134	002402			BLT    	013142
013136	000167	000132		JMP    	013274
013142	005265	007200		INC    	007200(R5)		; THEN ; VAR7200:=VAR7200+1
013146	016565	007200	007202	MOV    	007200(R5), 007202(R5)	; VAR7202:=VAR7200
013154	016503	007202		MOV    	007202(R5), R3
013160	020327	000000		CMP    	R3, #000000
013164	002403			BLT    	013174
013166	020327	000144		CMP    	R3, #000144
013172	003402			BLE    	013200
013174	004767	037676		CALL   	053076	; $B125 ; $$B125
013200	010346			MOV    	R3, -(SP)
013202	012746	000016		MOV    	#000016, -(SP)
013206	004767	037412		CALL   	052624	; UNSMUL ; $B116
013212	010503			MOV    	R5, R3
013214	062603			ADD    	(SP)+, R3
013216	062703	004372		ADD    	#004372, R3		; WITH VAR4372[VAR7202]
013222	010300			MOV    	R3, R0
013224	016620	000014		MOV    	000014(SP), (R0)+	; (VAR4372[VAR7202]).RC00:=14(SP)
013230	016620	000016		MOV    	000016(SP), (R0)+
013234	016620	000020		MOV    	000020(SP), (R0)+
013240	016663	000006	000006	MOV    	000006(SP), 000006(R3)	; (VAR4372[VAR7202]).RC06:=6(SP)
013246	016663	000010	000010	MOV    	000010(SP), 000010(R3)
013254	016663	000012	000012	MOV    	000012(SP), 000012(R3)
013262	016663	000004	000014	MOV    	000004(SP), 000014(R3)	; (VAR4372[VAR7202]).RC14:=4(SP)
013270	000167	000004		JMP    	013300
013274	005065	007202		CLR    	007202(R5)		; ELSE ; VAR7202:=0 ; END IF
013300	016666	000002	000020	MOV    	000002(SP), 000020(SP)
013306	062706	000020		ADD    	#000020, SP
013312	000207			RETURN 	
=============================================================
; FUNCTION 26(SP):BOOLEAN;  20(SP): ARRAY [1..6] OF CHAR; 16(SP):INTEGER
013314	005046			CLR    	-(SP)	; VAR 12(SP): BOOLEAN
013316	004067	037456		JSR    	R0, 053000 ; SVREG ; $B74
013322	162706	000006		SUB    	#000006, SP
013326	010600			MOV    	SP, R0
013330	016620	000026		MOV    	000026(SP), (R0)+
013334	016620	000030		MOV    	000030(SP), (R0)+
013340	016620	000032		MOV    	000032(SP), (R0)+
013344	004767	176712		CALL   	012262			; L12262(20(SP))
013350	005065	052350		CLR    	052350(R5)		; VAR52350:=0
013354	105066	000012		CLRB   	000012(SP)		; 12(SP):=FALSE
013360	016565	052350	052352	MOV    	052350(R5), 052352(R5)	; REPEAT ; VAR52352:=VAR52350
013366	016503	052350		MOV    	052350(R5), R3
013372	020327	000000		CMP    	R3, #000000
013376	002403			BLT    	013406
013400	020327	001750		CMP    	R3, #001750
013404	003402			BLE    	013412
013406	004767	037464		CALL   	053076	; $B125 ; $$B125
013412	010346			MOV    	R3, -(SP)
013414	012746	000022		MOV    	#000022, -(SP)
013420	004767	037200		CALL   	052624	; UNSMUL ; $B116
013424	010503			MOV    	R5, R3
013426	062603			ADD    	(SP)+, R3
013430	062703	007204		ADD    	#007204, R3		; WITH VAR7204[VAR52350]
013434	016500	004370		MOV    	004370(R5), R0
013440	166300	000004		SUB    	000004(R3), R0
013444	010065	052354		MOV    	R0, 052354(R5)		; VAR52354:=VAR4370-(VAR7204[VAR52350]).RD04
013450	005765	052354		TST    	052354(R5)		; IF VAR52354<0
013454	002402			BLT    	013462
013456	000167	000010		JMP    	013472
013462	011365	052350		MOV    	(R3), 052350(R5)	; THEN 1 ; VAR52350:=(VAR7204[VAR52350]).RD00
013466	000167	000114		JMP    	013606
013472	005765	052354		TST    	052354(R5)		; ELSE 1 ; IF VAR52354>0
013476	003002			BGT    	013504
013500	000167	000012		JMP    	013516
013504	016365	000002	052350	MOV    	000002(R3), 052350(R5)	; THEN 2 ; VAR52350:=(VAR7204[VAR52350]).RD02
013512	000167	000070		JMP    	013606
013516	016600	000016		MOV    	000016(SP), R0		; ELSE 2
013522	166300	000006		SUB    	000006(R3), R0
013526	010065	052354		MOV    	R0, 052354(R5)		; VAR52354:=16(SP)-(VAR7204[VAR52350]).RD06
013532	005765	052354		TST    	052354(R5)		; IF VAR52354<0
013536	002402			BLT    	013544
013540	000167	000010		JMP    	013554
013544	011365	052350		MOV    	(R3), 052350(R5)	; THEN 3 ; VAR52350:=(VAR7204[VAR52350]).RD00
013550	000167	000032		JMP    	013606
013554	005765	052354		TST    	052354(R5)		; ELSE 3 ; IF VAR52354>0
013560	003002			BGT    	013566
013562	000167	000012		JMP    	013600
013566	016365	000002	052350	MOV    	000002(R3), 052350(R5)	; THEN 4 ; VAR52350:=(VAR7204[VAR52350]).RD02
013574	000167	000006		JMP    	013606
013600	112766	000001	000012	MOVB   	#000001, 000012(SP)	; ELSE 4 ; 12(SP):=TRUE ; EI3 ; EI2 ; EI1
013606	026565	052350	052352	CMP    	052350(R5), 052352(R5)	; UNTIL VAR52350<VAR52352
013614	003402			BLE    	013622
013616	005000			CLR    	R0
013620	000402			BR     	013626
013622	012700	000001		MOV    	#000001, R0
013626	156600	000012		BISB   	000012(SP), R0		; OR 12(SP)
013632	001002			BNE    	013640
013634	000167	177520		JMP    	013360		; END UNTIL
013640	116666	000012	000026	MOVB   	000012(SP), 000026(SP)	; L13314:=12(SP)
013646	004067	037156		JSR    	R0, 053030 ; UNREG ; $B76
013652	016666	000002	000012	MOV    	000002(SP), 000012(SP)
013660	062706	000012		ADD    	#000012, SP
013664	000207			RETURN 	
=============================================================
; PROCEDURE 4(SP): ARRAY [1..6] OF CHAR; 2(SP): WORD
013666	004767	037154		CALL   	053046	; STKCHK ; $B127
013672	162706	000006		SUB    	#000006, SP
013676	010600			MOV    	SP, R0
013700	016620	000012		MOV    	000012(SP), (R0)+
013704	016620	000014		MOV    	000014(SP), (R0)+
013710	016620	000016		MOV    	000016(SP), (R0)+
013714	004767	176342		CALL   	012262			; L12262(4(SP))
013720	016500	004370		MOV    	004370(R5), R0
013724	020027	000000		CMP    	R0, #000000
013730	002403			BLT    	013740
013732	020027	000030		CMP    	R0, #000030
013736	003402			BLE    	013744
013740	004767	037132		CALL   	053076	; $B125 ; $$B125
013744	010046			MOV    	R0, -(SP)
013746	012746	000014		MOV    	#000014, -(SP)
013752	004767	036646		CALL   	052624	; UNSMUL ; $B116
013756	010500			MOV    	R5, R0
013760	062600			ADD    	(SP)+, R0
013762	026660	000002	003720	CMP    	000002(SP), 003720(R0)	; IF 2(SP)<=VAR3712[VAR4370].RB06
013770	101402			BLOS   	013776
013772	005000			CLR    	R0
013774	000402			BR     	014002
013776	012700	000001		MOV    	#000001, R0
014002	026627	000002	077777	CMP    	000002(SP), #077777	; AND 2(SP)<=77777
014010	101402			BLOS   	014016
014012	005001			CLR    	R1
014014	000402			BR     	014022
014016	012701	000001		MOV    	#000001, R1
014022	105101			COMB   	R1
014024	140100			BICB   	R1, R0
014026	001002			BNE    	014034
014030	000167	000530		JMP    	014564
014034	005046			CLR    	-(SP)			; THEN 1
014036	162706	000006		SUB    	#000006, SP
014042	010600			MOV    	SP, R0
014044	016620	000014		MOV    	000014(SP), (R0)+
014050	016620	000016		MOV    	000016(SP), (R0)+
014054	016620	000020		MOV    	000020(SP), (R0)+
014060	016646	000012		MOV    	000012(SP), -(SP)
014064	004767	177224		CALL   	013314
014070	112600			MOVB   	(SP)+, R0
014072	105100			COMB   	R0
014074	142700	177776		BICB   	#177776, R0		; IF NOT L13314(4(SP),2(SP))
014100	001002			BNE    	014106
014102	000167	000340		JMP    	014446
014106	026527	052346	001750	CMP    	052346(R5), #001750	; THEN 2 ; IF VAR52346<1750
014114	002402			BLT    	014122
014116	000167	000320		JMP    	014442
014122	005265	052346		INC    	052346(R5)		; THEN 3 ; VAR52346:=VAR52346+1
014126	016565	052346	052350	MOV    	052346(R5), 052350(R5)	; VAR52350:=VAR52346
014134	016503	052350		MOV    	052350(R5), R3
014140	020327	000000		CMP    	R3, #000000
014144	002403			BLT    	014154
014146	020327	001750		CMP    	R3, #001750
014152	003402			BLE    	014160
014154	004767	036716		CALL   	053076	; $B125 ; $$B125
014160	010346			MOV    	R3, -(SP)
014162	012746	000022		MOV    	#000022, -(SP)
014166	004767	036432		CALL   	052624	; UNSMUL ; $B116
014172	010503			MOV    	R5, R3
014174	062603			ADD    	(SP)+, R3
014176	062703	007204		ADD    	#007204, R3		; WITH VAR7204[VAR52350]
014202	005013			CLR    	(R3)			; (VAR7204[VAR52350]).RD00:=0
014204	005765	052354		TST    	052354(R5)		; IF VAR52354<0
014210	002402			BLT    	014216
014212	000167	000012		JMP    	014230
014216	016563	052352	000002	MOV    	052352(R5), 000002(R3)	; THEN ; (VAR7204[VAR52350]).RD02:=VAR52352
014224	000167	000050		JMP    	014300
014230	016500	052352		MOV    	052352(R5), R0		; ELSE
014234	020027	000000		CMP    	R0, #000000
014240	002403			BLT    	014250
014242	020027	001750		CMP    	R0, #001750
014246	003402			BLE    	014254
014250	004767	036622		CALL   	053076	; $B125 ; $$B125
014254	010046			MOV    	R0, -(SP)
014256	012746	000022		MOV    	#000022, -(SP)
014262	004767	036336		CALL   	052624	; UNSMUL ; $B116
014266	010500			MOV    	R5, R0
014270	062600			ADD    	(SP)+, R0
014272	016063	007206	000002	MOV    	007206(R0), 000002(R3)	; (VAR7204[VAR52350]).RD02:=VAR7204[VAR52352].RD02 ; END IF
014300	016563	004370	000004	MOV    	004370(R5), 000004(R3)	; (VAR7204[VAR52350]).RD04:=VAR4370
014306	016663	000002	000006	MOV    	000002(SP), 000006(R3)	; (VAR7204[VAR52350]).RD06:=2(SP)
014314	010500			MOV    	R5, R0
014316	062700	052356		ADD    	#052356, R0
014322	010046			MOV    	R0, -(SP)
014324	004767	035766		CALL   	052316	; PSHSET ; $B52
014330	010300			MOV    	R3, R0
014332	062700	000010		ADD    	#000010, R0
014336	010046			MOV    	R0, -(SP)
014340	004767	036014		CALL   	052360	; POPSET ; $B54	; (VAR7204[VAR52350]).RD10:=VAR52356
014344	016503	052352		MOV    	052352(R5), R3
014350	020327	000000		CMP    	R3, #000000
014354	002403			BLT    	014364
014356	020327	001750		CMP    	R3, #001750
014362	003402			BLE    	014370
014364	004767	036506		CALL   	053076	; $B125 ; $$B125
014370	010346			MOV    	R3, -(SP)
014372	012746	000022		MOV    	#000022, -(SP)
014376	004767	036222		CALL   	052624	; UNSMUL ; $B116
014402	010503			MOV    	R5, R3
014404	062603			ADD    	(SP)+, R3
014406	062703	007204		ADD    	#007204, R3		; WITH VAR7204[VAR52352]
014412	005765	052354		TST    	052354(R5)		; IF VAR52354<0
014416	002402			BLT    	014424
014420	000167	000010		JMP    	014434
014424	016513	052350		MOV    	052350(R5), (R3)	; THEN 4 ; (VAR7204[VAR52352]).RD00:=VAR52350
014430	000167	000006		JMP    	014442
014434	016563	052350	000002	MOV    	052350(R5), 000002(R3)	; ELSE 4 ; (VAR7204[VAR52352]).RD02:=VAR52350
014442	000167	000116		JMP    	014564			; END IF 4 ; END IF 3
014446	016503	052350		MOV    	052350(R5), R3		; ELSE 2
014452	020327	000000		CMP    	R3, #000000
014456	002403			BLT    	014466
014460	020327	001750		CMP    	R3, #001750
014464	003402			BLE    	014472
014466	004767	036404		CALL   	053076	; $B125 ; $$B125
014472	010346			MOV    	R3, -(SP)
014474	012746	000022		MOV    	#000022, -(SP)
014500	004767	036120		CALL   	052624	; UNSMUL ; $B116
014504	010503			MOV    	R5, R3
014506	062603			ADD    	(SP)+, R3
014510	062703	007204		ADD    	#007204, R3		; WITH VAR7204[VAR52350]
014514	010300			MOV    	R3, R0
014516	062700	000010		ADD    	#000010, R0
014522	010046			MOV    	R0, -(SP)
014524	004767	035566		CALL   	052316	; PSHSET ; $B52
014530	010500			MOV    	R5, R0
014532	062700	052356		ADD    	#052356, R0
014536	010046			MOV    	R0, -(SP)
014540	004767	035552		CALL   	052316	; PSHSET ; $B52
014544	004767	035466		CALL   	052236	; SETOR ; $B56
014550	010300			MOV    	R3, R0
014552	062700	000010		ADD    	#000010, R0
014556	010046			MOV    	R0, -(SP)
014560	004767	035574		CALL   	052360	; POPSET ; $B54	; (VAR7204[VAR52350]).RD10:=(VAR7204[VAR52350]).RD10+VAR52356 ; EI2 ; EI1
014564	011666	000010		MOV    	(SP), 000010(SP)
014570	062706	000010		ADD    	#000010, SP
014574	000207			RETURN 	
=============================================================
; PROCEDURE 2(SP):INTEGER
014576	004767	036244		CALL   	053046	; STKCHK ; $B127
014602	016603	000002		MOV    	000002(SP), R3
014606	020327	000000		CMP    	R3, #000000
014612	002403			BLT    	014622
014614	020327	001750		CMP    	R3, #001750
014620	003402			BLE    	014626
014622	004767	036250		CALL   	053076	; $B125 ; $$B125
014626	010346			MOV    	R3, -(SP)
014630	012746	000022		MOV    	#000022, -(SP)
014634	004767	035764		CALL   	052624	; UNSMUL ; $B116
014640	010503			MOV    	R5, R3
014642	062603			ADD    	(SP)+, R3
014644	062703	007204		ADD    	#007204, R3		; WITH VAR7204[2(SP)]
014650	016365	000002	052350	MOV    	000002(R3), 052350(R5)	; VAR52350:=(VAR7204[2(SP)]).RD02
014656	026566	052350	000002	CMP    	052350(R5), 000002(SP)	; IF VAR52350>2(SP)
014664	003002			BGT    	014672
014666	000167	000130		JMP    	015022
014672	016500	052350		MOV    	052350(R5), R0		; THEN
014676	020027	000000		CMP    	R0, #000000
014702	002403			BLT    	014712
014704	020027	001750		CMP    	R0, #001750
014710	003402			BLE    	014716
014712	004767	036160		CALL   	053076	; $B125 ; $$B125
014716	010046			MOV    	R0, -(SP)
014720	012746	000022		MOV    	#000022, -(SP)
014724	004767	035674		CALL   	052624	; UNSMUL ; $B116
014730	010500			MOV    	R5, R0
014732	062600			ADD    	(SP)+, R0
014734	005760	007204		TST    	007204(R0)		; WHILE VAR7204[VAR52350].RD00<>0
014740	001002			BNE    	014746
014742	000167	000054		JMP    	015022
014746	016500	052350		MOV    	052350(R5), R0
014752	020027	000000		CMP    	R0, #000000
014756	002403			BLT    	014766
014760	020027	001750		CMP    	R0, #001750
014764	003402			BLE    	014772
014766	004767	036104		CALL   	053076	; $B125 ; $$B125
014772	010046			MOV    	R0, -(SP)
014774	012746	000022		MOV    	#000022, -(SP)
015000	004767	035620		CALL   	052624	; UNSMUL ; $B116
015004	010500			MOV    	R5, R0
015006	062600			ADD    	(SP)+, R0
015010	016065	007204	052350	MOV    	007204(R0), 052350(R5)	; VAR52350:=VAR7204[VAR52350].RD00
015016	000167	177650		JMP    	014672			; END WHILE ; END IF
015022	011666	000002		MOV    	(SP), 000002(SP)
015026	062706	000002		ADD    	#000002, SP
015032	000207			RETURN 	
=============================================================
; PROCEDURE 4(SP): ARRAY [1..6] OF CHAR; 2(SP): INTEGER
015034	004767	036006		CALL   	053046	; STKCHK ; $B127
015040	005046			CLR    	-(SP)
015042	162706	000006		SUB    	#000006, SP
015046	010600			MOV    	SP, R0
015050	016620	000014		MOV    	000014(SP), (R0)+
015054	016620	000016		MOV    	000016(SP), (R0)+
015060	016620	000020		MOV    	000020(SP), (R0)+
015064	016646	000012		MOV    	000012(SP), -(SP)
015070	004767	176220		CALL   	013314			; IF NOT L13314(4(SP),2(SP))
015074	112600			MOVB   	(SP)+, R0
015076	105100			COMB   	R0
015100	142700	177776		BICB   	#177776, R0
015104	001002			BNE    	015112
015106	000167	000034		JMP    	015146
015112	005765	052354		TST    	052354(R5)		; THEN 1 ; IF VAR52354<0
015116	002402			BLT    	015124
015120	000167	000012		JMP    	015136
015124	016565	052352	052350	MOV    	052352(R5), 052350(R5)	; THEN 2 ; VAR52350:=VAR52352
015132	000167	000010		JMP    	015146
015136	016546	052352		MOV    	052352(R5), -(SP)	; ELSE 2
015142	004767	177430		CALL   	014576			; L14576(VAR52352) ; END IF 2 ; END IF 1
015146	011666	000010		MOV    	(SP), 000010(SP)
015152	062706	000010		ADD    	#000010, SP
015156	000207			RETURN 	
=============================================================
015160	004767	035662		CALL   	053046	; STKCHK ; $B127
015164	005065	052346		CLR    	052346(R5)		; VAR52346:=0
015170	010503			MOV    	R5, R3
015172	062703	007204		ADD    	#007204, R3		; WITH VAR7204[0]
015176	005013			CLR    	(R3)			; (VAR7204[0]).RD00:=0
015200	005063	000002		CLR    	000002(R3)		; (VAR7204[0]).RD02:=0
015204	012763	000031	000004	MOV    	#000031, 000004(R3)	; (VAR7204[0]).RD04:=31
015212	000207			RETURN 	
=============================================================
; PROCEDURE 12(SP): ARRAY [1..6] OF CHAR; 10(SP):INTEGER
015214	162706	000006		SUB    	#000006, SP	; VAR @SP: ARRAY [1..6] OF CHAR
015220	004767	035622		CALL   	053046	; STKCHK ; $B127
015224	012700	015340		MOV    	#015340, R0
015230	010601			MOV    	SP, R1
015232	012021			MOV    	(R0)+, (R1)+		; @SP:=' .    '
015234	012021			MOV    	(R0)+, (R1)+
015236	012021			MOV    	(R0)+, (R1)+
015240	005046			CLR    	-(SP)
015242	162706	000006		SUB    	#000006, SP
015246	010600			MOV    	SP, R0
015250	016620	000022		MOV    	000022(SP), (R0)+
015254	016620	000024		MOV    	000024(SP), (R0)+
015260	016620	000026		MOV    	000026(SP), (R0)+
015264	004767	175414		CALL   	012704
015270	112616			MOVB   	(SP)+, (SP)		; @SP[1]:=L12704(12(SP))
015272	162706	000006		SUB    	#000006, SP
015276	010600			MOV    	SP, R0
015300	016620	000006		MOV    	000006(SP), (R0)+
015304	016620	000010		MOV    	000010(SP), (R0)+
015310	016620	000012		MOV    	000012(SP), (R0)+
015314	016646	000016		MOV    	000016(SP), -(SP)
015320	004767	174532		CALL   	012056			; L12056(@SP,10(SP))
015324	016666	000006	000016	MOV    	000006(SP), 000016(SP)
015332	062706	000016		ADD    	#000016, SP
015336	000207			RETURN 	
-------------------------------------------------------------
015340	027040	020040	020040	.ASCIZ	/ .    /
	000000
=============================================================
; PROCEDURE 6(SP): ARRAY [1..6] OF CHAR; 4(SP): WORD
015350	005046			CLR    	-(SP)	; VAR @SP
015352	004767	035470		CALL   	053046	; STKCHK ; $B127
015356	016500	002676		MOV    	002676(R5), R0		; CASE VAR2676 OF
015362	162700	000000		SUB    	#000000, R0
015366	002002			BGE    	015374
015370	000167	000650		JMP    	016244
015374	022700	000002		CMP    	#000002, R0
015400	002002			BGE    	015406
015402	000167	000636		JMP    	016244
015406	006300			ASL    	R0
015410	000170	016250		JMP    	@016250(R0)
015414	162706	000006		SUB    	#000006, SP ; 0 ;
015420	010600			MOV    	SP, R0
015422	016620	000014		MOV    	000014(SP), (R0)+
015426	016620	000016		MOV    	000016(SP), (R0)+
015432	016620	000020		MOV    	000020(SP), (R0)+
015436	016646	000012		MOV    	000012(SP), -(SP)
015442	004767	176220		CALL   	013666			; L13666(6(SP),4(SP))
015446	000167	000604		JMP    	016256
015452	010500			MOV    	R5, R0 ; 1 ;
015454	062700	052356		ADD    	#052356, R0
015460	010046			MOV    	R0, -(SP)
015462	004767	034630		CALL   	052316	; PSHSET ; $B52
015466	012746	016272		MOV    	#016272, -(SP)
015472	004767	034620		CALL   	052316	; PSHSET ; $B52
015476	004767	034534		CALL   	052236	; SETOR ; $B56
015502	010500			MOV    	R5, R0
015504	062700	052356		ADD    	#052356, R0
015510	010046			MOV    	R0, -(SP)
015512	004767	034642		CALL   	052360	; POPSET ; $B54	; VAR52356:=VAR52356+[6]
015516	162706	000006		SUB    	#000006, SP
015522	010600			MOV    	SP, R0
015524	016620	000014		MOV    	000014(SP), (R0)+
015530	016620	000016		MOV    	000016(SP), (R0)+
015534	016620	000020		MOV    	000020(SP), (R0)+
015540	016646	000012		MOV    	000012(SP), -(SP)
015544	004767	176116		CALL   	013666			; L13666(6(SP),4(SP))
015550	000167	000502		JMP    	016256
015554	012700	012674		MOV    	#012674, R0 ; 2 ;
015560	010601			MOV    	SP, R1
015562	062701	000006		ADD    	#000006, R1
015566	012702	000006		MOV    	#000006, R2
015572	122021			CMPB   	(R0)+, (R1)+		; IF 6(SP)=STRABS
015574	001002			BNE    	015602
015576	005302			DEC    	R2
015600	001374			BNE    	015572
015602	001402			BEQ    	015610
015604	000167	000014		JMP    	015624
015610	016646	000004		MOV    	000004(SP), -(SP)	; THEN 1
015614	004767	173212		CALL   	011032			; L11032(4(SP))
015620	000167	000414		JMP    	016240
015624	005046			CLR    	-(SP)			; ELSE 1
015626	162706	000006		SUB    	#000006, SP
015632	010600			MOV    	SP, R0
015634	016620	000016		MOV    	000016(SP), (R0)+
015640	016620	000020		MOV    	000020(SP), (R0)+
015644	016620	000022		MOV    	000022(SP), (R0)+
015650	016646	000014		MOV    	000014(SP), -(SP)
015654	004767	175434		CALL   	013314
015660	112600			MOVB   	(SP)+, R0
015662	105100			COMB   	R0
015664	142700	177776		BICB   	#177776, R0		; IF NOT L13314(6(SP),4(SP))
015670	001002			BNE    	015676
015672	000167	000036		JMP    	015734
015676	162706	000006		SUB    	#000006, SP		; THEN 2
015702	010600			MOV    	SP, R0
015704	016620	000014		MOV    	000014(SP), (R0)+
015710	016620	000016		MOV    	000016(SP), (R0)+
015714	016620	000020		MOV    	000020(SP), (R0)+
015720	016646	000012		MOV    	000012(SP), -(SP)
015724	004767	177264		CALL   	015214			; L15214(6(SP),4(SP))
015730	000167	000304		JMP    	016240
015734	016503	052350		MOV    	052350(R5), R3		; ELSE 2
015740	020327	000000		CMP    	R3, #000000
015744	002403			BLT    	015754
015746	020327	001750		CMP    	R3, #001750
015752	003402			BLE    	015760
015754	004767	035116		CALL   	053076	; $B125 ; $$B125
015760	010346			MOV    	R3, -(SP)
015762	012746	000022		MOV    	#000022, -(SP)
015766	004767	034632		CALL   	052624	; UNSMUL ; $B116
015772	010503			MOV    	R5, R3
015774	062603			ADD    	(SP)+, R3
015776	062703	007204		ADD    	#007204, R3		; WITH VAR7204[VAR52350]
016002	010300			MOV    	R3, R0
016004	062700	000010		ADD    	#000010, R0
016010	010046			MOV    	R0, -(SP)
016012	004767	034300		CALL   	052316	; PSHSET ; $B52
016016	005046			CLR    	-(SP)
016020	004767	034110		CALL   	052134	; DOIN ; $B40	; IF 0 IN (VAR7204[VAR52350]).RD10
016024	001002			BNE    	016032
016026	000167	000102		JMP    	016134
016032	010346			MOV    	R3, -(SP)		; THEN 3
016034	016300	000020		MOV    	000020(R3), R0
016040	020027	000000		CMP    	R0, #000000
016044	002403			BLT    	016054
016046	020027	000144		CMP    	R0, #000144
016052	003402			BLE    	016060
016054	004767	035016		CALL   	053076	; $B125 ; $$B125
016060	010046			MOV    	R0, -(SP)
016062	012746	000016		MOV    	#000016, -(SP)
016066	004767	034532		CALL   	052624	; UNSMUL ; $B116
016072	010500			MOV    	R5, R0
016074	062600			ADD    	(SP)+, R0
016076	162706	000006		SUB    	#000006, SP
016102	010601			MOV    	SP, R1
016104	016021	004372		MOV    	004372(R0), (R1)+
016110	016021	004374		MOV    	004374(R0), (R1)+
016114	016021	004376		MOV    	004376(R0), (R1)+
016120	005046			CLR    	-(SP)
016122	004767	173730		CALL   	012056			; L12056(VAR4372[(VAR7204[VAR52350]).RD20],0)
016126	012603			MOV    	(SP)+, R3
016130	000167	000104		JMP    	016240
016134	010346			MOV    	R3, -(SP)		; ELSE 3
016136	005046			CLR    	-(SP)
016140	162706	000006		SUB    	#000006, SP
016144	010600			MOV    	SP, R0
016146	016620	000020		MOV    	000020(SP), (R0)+
016152	016620	000022		MOV    	000022(SP), (R0)+
016156	016620	000024		MOV    	000024(SP), (R0)+
016162	004767	174516		CALL   	012704
016166	004767	172250		CALL   	010442			; L10442(L12704(6(SP)))
016172	012603			MOV    	(SP)+, R3
016174	026627	000004	007777	CMP    	000004(SP), #007777	; IF 4(SP)<=7777
016202	101402			BLOS   	016210
016204	000167	000014		JMP    	016224
016210	010346			MOV    	R3, -(SP)		; THEN 4
016212	012746	000056		MOV    	#000056, -(SP)
016216	004767	172220		CALL   	010442			; L10442('.')
016222	012603			MOV    	(SP)+, R3		; END IF 4
016224	010346			MOV    	R3, -(SP)
016226	016646	000006		MOV    	000006(SP), -(SP)
016232	004767	172574		CALL   	011032			; L11032(4(SP))
016236	012603			MOV    	(SP)+, R3		; END IF 3 ; END IF 2 ; END IF 1
016240	000167	000012		JMP    	016256
016244	000167	000006		JMP    	016256		; END CASE
; CASE OF ADDR BEGIN
016250	015414	015452	015554	;  0  1  2
; CASE OF ADDR END
016256	016666	000002	000012	MOV    	000002(SP), 000012(SP)
016264	062706	000012		ADD    	#000012, SP
016270	000207			RETURN 	
-------------------------------------------------------------
; SET OF 6
016272	000100	000000	000000	000000
=============================================================
016302	004767	034540		CALL   	053046	; STKCHK ; $B127
016306	005765	002676		TST    	002676(R5)		; IF VAR2676=0
016312	001402			BEQ    	016320
016314	000167	000010		JMP    	016330
016320	005265	053426		INC    	053426(R5)		; THEN 1 ; VAR53426:=VAR53426+1
016324	000167	000126		JMP    	016456
016330	026527	002676	000001	CMP    	002676(R5), #000001	; ELSE 1 ; IF VAR2676=1
016336	001402			BEQ    	016344
016340	000167	000112		JMP    	016456
016344	016503	053412		MOV    	053412(R5), R3		; THEN 2
016350	020327	000000		CMP    	R3, #000000
016354	002403			BLT    	016364
016356	020327	001750		CMP    	R3, #001750
016362	003402			BLE    	016370
016364	004767	034506		CALL   	053076	; $B125 ; $$B125
016370	010346			MOV    	R3, -(SP)
016372	012746	000022		MOV    	#000022, -(SP)
016376	004767	034222		CALL   	052624	; UNSMUL ; $B116
016402	010503			MOV    	R5, R3
016404	062603			ADD    	(SP)+, R3
016406	062703	007204		ADD    	#007204, R3		; WITH VAR7204[VAR53412]
016412	010300			MOV    	R3, R0
016414	062700	000010		ADD    	#000010, R0
016420	010046			MOV    	R0, -(SP)
016422	004767	033670		CALL   	052316	; PSHSET ; $B52
016426	012746	016460		MOV    	#016460, -(SP)
016432	004767	033660		CALL   	052316	; PSHSET ; $B52
016436	004767	033574		CALL   	052236	; SETOR ; $B56
016442	010300			MOV    	R3, R0
016444	062700	000010		ADD    	#000010, R0
016450	010046			MOV    	R0, -(SP)
016452	004767	033702		CALL   	052360	; POPSET ; $B54	; (VAR7204[VAR53412]).RD10:=(VAR7204[VAR53412]).RD10+[10] ; EI2 ; EI1
016456	000207			RETURN 	
-------------------------------------------------------------
; SET OF 10
016460	000400	000000	000000	000000
=============================================================
016470	004767	034352		CALL   	053046	; STKCHK ; $B127
016474	005765	002676		TST    	002676(R5)		; IF VAR2676=0
016500	001402			BEQ    	016506
016502	000167	000010		JMP    	016516
016506	005265	053430		INC    	053430(R5)		; THEN 1 ; VAR53430:=VAR53430+1
016512	000167	000126		JMP    	016644
016516	026527	002676	000001	CMP    	002676(R5), #000001	; ELSE 1 ; IF VAR2676=1
016524	001402			BEQ    	016532
016526	000167	000112		JMP    	016644
016532	016503	053412		MOV    	053412(R5), R3		; THEN 2
016536	020327	000000		CMP    	R3, #000000
016542	002403			BLT    	016552
016544	020327	001750		CMP    	R3, #001750
016550	003402			BLE    	016556
016552	004767	034320		CALL   	053076	; $B125 ; $$B125
016556	010346			MOV    	R3, -(SP)
016560	012746	000022		MOV    	#000022, -(SP)
016564	004767	034034		CALL   	052624	; UNSMUL ; $B116
016570	010503			MOV    	R5, R3
016572	062603			ADD    	(SP)+, R3
016574	062703	007204		ADD    	#007204, R3		; WITH VAR7204[VAR53412]
016600	010300			MOV    	R3, R0
016602	062700	000010		ADD    	#000010, R0
016606	010046			MOV    	R0, -(SP)
016610	004767	033502		CALL   	052316	; PSHSET ; $B52
016614	012746	016646		MOV    	#016646, -(SP)
016620	004767	033472		CALL   	052316	; PSHSET ; $B52
016624	004767	033406		CALL   	052236	; SETOR ; $B56
016630	010300			MOV    	R3, R0
016632	062700	000010		ADD    	#000010, R0
016636	010046			MOV    	R0, -(SP)
016640	004767	033514		CALL   	052360	; POPSET ; $B54	; (VAR7204[VAR53412]).RD10:=(VAR7204[VAR53412]).RD10+[7] ; EI2 ; EI1
016644	000207			RETURN 	
-------------------------------------------------------------
; SET OF 7
016646	000200	000000	000000	000000
=============================================================
016656	004767	034164		CALL   	053046	; STKCHK ; $B127
016662	005046			CLR    	-(SP)
016664	162706	000006		SUB    	#000006, SP
016670	010600			MOV    	SP, R0
016672	016520	053402		MOV    	053402(R5), (R0)+
016676	016520	053404		MOV    	053404(R5), (R0)+
016702	016520	053406		MOV    	053406(R5), (R0)+
016706	016546	053410		MOV    	053410(R5), -(SP)
016712	004767	174376		CALL   	013314
016716	105726			TSTB   	(SP)+			; IF L13314(VAR53402,VAR53410)
016720	001002			BNE    	016726
016722	000167	002064		JMP    	021012
016726	016503	052350		MOV    	052350(R5), R3		; THEN 1
016732	020327	000000		CMP    	R3, #000000
016736	002403			BLT    	016746
016740	020327	001750		CMP    	R3, #001750
016744	003402			BLE    	016752
016746	004767	034124		CALL   	053076	; $B125 ; $$B125
016752	010346			MOV    	R3, -(SP)
016754	012746	000022		MOV    	#000022, -(SP)
016760	004767	033640		CALL   	052624	; UNSMUL ; $B116
016764	010503			MOV    	R5, R3
016766	062603			ADD    	(SP)+, R3
016770	062703	007204		ADD    	#007204, R3		; WITH VAR7204[VAR52350]
016774	026527	002676	000002	CMP    	002676(R5), #000002	; IF VAR2676=2
017002	001402			BEQ    	017010
017004	000167	001570		JMP    	020600
017010	010300			MOV    	R3, R0			; THEN 2
017012	062700	000010		ADD    	#000010, R0
017016	010046			MOV    	R0, -(SP)
017020	004767	033272		CALL   	052316	; PSHSET ; $B52
017024	012746	000011		MOV    	#000011, -(SP)
017030	004767	033100		CALL   	052134	; DOIN ; $B40	; IF NOT 11 IN (VAR7204[VAR52350]).RD10
017034	001402			BEQ    	017042
017036	000167	001536		JMP    	020600
017042	010300			MOV    	R3, R0			; THEN 3
017044	062700	000010		ADD    	#000010, R0
017050	010046			MOV    	R0, -(SP)
017052	004767	033240		CALL   	052316	; PSHSET ; $B52
017056	012746	021114		MOV    	#021114, -(SP)
017062	004767	033230		CALL   	052316	; PSHSET ; $B52
017066	004767	033144		CALL   	052236	; SETOR ; $B56
017072	010300			MOV    	R3, R0
017074	062700	000010		ADD    	#000010, R0
017100	010046			MOV    	R0, -(SP)
017102	004767	033252		CALL   	052360	; POPSET ; $B54	; (VAR7204[VAR52350]).RD10:=(VAR7204[VAR52350]).RD10+[11]
017106	010300			MOV    	R3, R0
017110	062700	000010		ADD    	#000010, R0
017114	010046			MOV    	R0, -(SP)
017116	004767	033174		CALL   	052316	; PSHSET ; $B52
017122	005046			CLR    	-(SP)
017124	004767	033004		CALL   	052134	; DOIN ; $B40	; IF 0 IN (VAR7204[VAR52350]).RD10
017130	001002			BNE    	017136
017132	000167	000336		JMP    	017474
017136	010500			MOV    	R5, R0			; THEN 4
017140	062700	007202		ADD    	#007202, R0		; FOR VAR7202:=1 TO 144
017144	010046			MOV    	R0, -(SP)
017146	012746	000001		MOV    	#000001, -(SP)
017152	012746	000144		MOV    	#000144, -(SP)
017156	016676	000002	000004	MOV    	000002(SP), @000004(SP)
017164	027616	000004		CMP    	@000004(SP), (SP)
017170	003402			BLE    	017176
017172	000167	000266		JMP    	017464
017176	016502	007202		MOV    	007202(R5), R2
017202	020227	000000		CMP    	R2, #000000
017206	002403			BLT    	017216
017210	020227	000144		CMP    	R2, #000144
017214	003402			BLE    	017222
017216	004767	033654		CALL   	053076	; $B125 ; $$B125
017222	010246			MOV    	R2, -(SP)
017224	012746	000016		MOV    	#000016, -(SP)
017230	004767	033370		CALL   	052624	; UNSMUL ; $B116
017234	010502			MOV    	R5, R2
017236	062602			ADD    	(SP)+, R2
017240	062702	004372		ADD    	#004372, R2		; WITH VAR4372[VAR7202]
017244	010500			MOV    	R5, R0
017246	062700	053402		ADD    	#053402, R0
017252	010201			MOV    	R2, R1
017254	062701	000006		ADD    	#000006, R1
017260	012704	000006		MOV    	#000006, R4
017264	122021			CMPB   	(R0)+, (R1)+		; IF VAR53402=(VAR4372[VAR7202]).RC06
017266	001002			BNE    	017274
017270	005304			DEC    	R4
017272	001374			BNE    	017264
017274	001402			BEQ    	017302
017276	000167	000152		JMP    	017454
017302	026265	000014	053410	CMP    	000014(R2), 053410(R5)	; THEN 5 ; IF (VAR4372[VAR7202]).RC14=VAR53410
017310	001402			BEQ    	017316
017312	000167	000136		JMP    	017454
017316	010346			MOV    	R3, -(SP)		; THEN 6
017320	010246			MOV    	R2, -(SP)
017322	004767	171170		CALL   	010516			; L10516
017326	012602			MOV    	(SP)+, R2
017330	012603			MOV    	(SP)+, R3
017332	010346			MOV    	R3, -(SP)
017334	010246			MOV    	R2, -(SP)
017336	162706	000006		SUB    	#000006, SP
017342	010200			MOV    	R2, R0
017344	010601			MOV    	SP, R1
017346	012021			MOV    	(R0)+, (R1)+
017350	012021			MOV    	(R0)+, (R1)+
017352	012021			MOV    	(R0)+, (R1)+
017354	004767	172222		CALL   	011602			; L11602((VAR4372[VAR7202]).RC00)
017360	012602			MOV    	(SP)+, R2
017362	012603			MOV    	(SP)+, R3
017364	010346			MOV    	R3, -(SP)
017366	010246			MOV    	R2, -(SP)
017370	162706	000006		SUB    	#000006, SP
017374	012700	021014		MOV    	#021014, R0
017400	010601			MOV    	SP, R1
017402	012021			MOV    	(R0)+, (R1)+
017404	012021			MOV    	(R0)+, (R1)+
017406	012021			MOV    	(R0)+, (R1)+
017410	004767	171146		CALL   	010562			; L10562('::\   ')
017414	012602			MOV    	(SP)+, R2
017416	012603			MOV    	(SP)+, R3
017420	010346			MOV    	R3, -(SP)
017422	010246			MOV    	R2, -(SP)
017424	162706	000006		SUB    	#000006, SP
017430	012700	021024		MOV    	#021024, R0
017434	010601			MOV    	SP, R1
017436	012021			MOV    	(R0)+, (R1)+
017440	012021			MOV    	(R0)+, (R1)+
017442	012021			MOV    	(R0)+, (R1)+
017444	004767	171112		CALL   	010562			; L10562('      ')
017450	012602			MOV    	(SP)+, R2
017452	012603			MOV    	(SP)+, R3		; END IF 6 ; END IF 5
017454	005276	000004		INC    	@000004(SP)		; NEXT VAR7202
017460	000167	177500		JMP    	017164
017464	062706	000006		ADD    	#000006, SP		; END FOR VAR7202
017470	000167	000062		JMP    	017556
017474	010346			MOV    	R3, -(SP)		; ELSE 4
017476	162706	000006		SUB    	#000006, SP
017502	010600			MOV    	SP, R0
017504	016520	053402		MOV    	053402(R5), (R0)+
017510	016520	053404		MOV    	053404(R5), (R0)+
017514	016520	053406		MOV    	053406(R5), (R0)+
017520	016546	053410		MOV    	053410(R5), -(SP)
017524	004767	175620		CALL   	015350			; L15350(VAR53402,VAR53410)
017530	012603			MOV    	(SP)+, R3
017532	010346			MOV    	R3, -(SP)
017534	012746	000072		MOV    	#000072, -(SP)
017540	004767	170676		CALL   	010442			; L10442(':')
017544	012603			MOV    	(SP)+, R3
017546	010346			MOV    	R3, -(SP)
017550	004767	170770		CALL   	010544			; L10544
017554	012603			MOV    	(SP)+, R3		; END IF 4
017556	010346			MOV    	R3, -(SP)
017560	004767	170760		CALL   	010544			; L10544
017564	012603			MOV    	(SP)+, R3
017566	010346			MOV    	R3, -(SP)
017570	004767	170750		CALL   	010544			; L10544
017574	012603			MOV    	(SP)+, R3
017576	010346			MOV    	R3, -(SP)
017600	004767	170740		CALL   	010544			; L10544
017604	012603			MOV    	(SP)+, R3
017606	010346			MOV    	R3, -(SP)
017610	162706	000006		SUB    	#000006, SP
017614	012700	021034		MOV    	#021034, R0
017620	010601			MOV    	SP, R1
017622	012021			MOV    	(R0)+, (R1)+
017624	012021			MOV    	(R0)+, (R1)+
017626	012021			MOV    	(R0)+, (R1)+
017630	004767	170726		CALL   	010562			; L10562('; \   ')
017634	012603			MOV    	(SP)+, R3
017636	010300			MOV    	R3, R0
017640	062700	000010		ADD    	#000010, R0
017644	010046			MOV    	R0, -(SP)
017646	004767	032444		CALL   	052316	; PSHSET ; $B52
017652	012746	000010		MOV    	#000010, -(SP)
017656	004767	032252		CALL   	052134	; DOIN ; $B40	; IF 10 IN (VAR7204[VAR52350]).RD10
017662	001002			BNE    	017670
017664	000167	000034		JMP    	017724
017670	010346			MOV    	R3, -(SP)		; THEN 4
017672	162706	000006		SUB    	#000006, SP
017676	012700	021044		MOV    	#021044, R0
017702	010601			MOV    	SP, R1
017704	012021			MOV    	(R0)+, (R1)+
017706	012021			MOV    	(R0)+, (R1)+
017710	012021			MOV    	(R0)+, (R1)+
017712	004767	170644		CALL   	010562			; L10562('+I \  ')
017716	012603			MOV    	(SP)+, R3
017720	000167	000030		JMP    	017754
017724	010346			MOV    	R3, -(SP)		; ELSE 4
017726	162706	000006		SUB    	#000006, SP
017732	012700	021054		MOV    	#021054, R0
017736	010601			MOV    	SP, R1
017740	012021			MOV    	(R0)+, (R1)+
017742	012021			MOV    	(R0)+, (R1)+
017744	012021			MOV    	(R0)+, (R1)+
017746	004767	170610		CALL   	010562			; L10562('   \  ')
017752	012603			MOV    	(SP)+, R3		; END IF 4
017754	010300			MOV    	R3, R0
017756	062700	000010		ADD    	#000010, R0
017762	010046			MOV    	R0, -(SP)
017764	004767	032326		CALL   	052316	; PSHSET ; $B52
017770	012746	000007		MOV    	#000007, -(SP)
017774	004767	032134		CALL   	052134	; DOIN ; $B40	; IF 7 IN (VAR7204[VAR52350]).RD10
020000	001002			BNE    	020006
020002	000167	000034		JMP    	020042
020006	010346			MOV    	R3, -(SP)		; THEN 4
020010	162706	000006		SUB    	#000006, SP
020014	012700	021064		MOV    	#021064, R0
020020	010601			MOV    	SP, R1
020022	012021			MOV    	(R0)+, (R1)+
020024	012021			MOV    	(R0)+, (R1)+
020026	012021			MOV    	(R0)+, (R1)+
020030	004767	170526		CALL   	010562			; L10562('-I \  ')
020034	012603			MOV    	(SP)+, R3
020036	000167	000030		JMP    	020072
020042	010346			MOV    	R3, -(SP)		; ELSE 4
020044	162706	000006		SUB    	#000006, SP
020050	012700	021074		MOV    	#021074, R0
020054	010601			MOV    	SP, R1
020056	012021			MOV    	(R0)+, (R1)+
020060	012021			MOV    	(R0)+, (R1)+
020062	012021			MOV    	(R0)+, (R1)+
020064	004767	170472		CALL   	010562			; L10562('   \  ')
020070	012603			MOV    	(SP)+, R3		; END IF 4
020072	010300			MOV    	R3, R0
020074	062700	000010		ADD    	#000010, R0
020100	010046			MOV    	R0, -(SP)
020102	004767	032210		CALL   	052316	; PSHSET ; $B52
020106	012746	000002		MOV    	#000002, -(SP)
020112	004767	032016		CALL   	052134	; DOIN ; $B40	; IF 2 IN (VAR7204[VAR52350]).RD10
020116	001002			BNE    	020124
020120	000167	000020		JMP    	020144
020124	010346			MOV    	R3, -(SP)		; THEN 4
020126	012746	000104		MOV    	#000104, -(SP)
020132	004767	170304		CALL   	010442			; L10442('D')
020136	012603			MOV    	(SP)+, R3
020140	000167	000014		JMP    	020160
020144	010346			MOV    	R3, -(SP)		; ELSE 4
020146	012746	000040		MOV    	#000040, -(SP)
020152	004767	170264		CALL   	010442			; L10442(' ')
020156	012603			MOV    	(SP)+, R3		; END IF 4
020160	010346			MOV    	R3, -(SP)
020162	012746	000040		MOV    	#000040, -(SP)
020166	004767	170250		CALL   	010442			; L10442(' ')
020172	012603			MOV    	(SP)+, R3
020174	010300			MOV    	R3, R0
020176	062700	000010		ADD    	#000010, R0
020202	010046			MOV    	R0, -(SP)
020204	004767	032106		CALL   	052316	; PSHSET ; $B52
020210	012746	000001		MOV    	#000001, -(SP)
020214	004767	031714		CALL   	052134	; DOIN ; $B40	; IF 1 IN (VAR7204[VAR52350]).RD10
020220	001002			BNE    	020226
020222	000167	000020		JMP    	020246
020226	010346			MOV    	R3, -(SP)		; THEN 4
020230	012746	000100		MOV    	#000100, -(SP)
020234	004767	170202		CALL   	010442			; L10442('@')
020240	012603			MOV    	(SP)+, R3
020242	000167	000014		JMP    	020262
020246	010346			MOV    	R3, -(SP)		; ELSE 4
020250	012746	000040		MOV    	#000040, -(SP)
020254	004767	170162		CALL   	010442			; L10442(' ')
020260	012603			MOV    	(SP)+, R3		; END IF 4
020262	010346			MOV    	R3, -(SP)
020264	012746	000040		MOV    	#000040, -(SP)
020270	004767	170146		CALL   	010442			; L10442(' ')
020274	012603			MOV    	(SP)+, R3
020276	010300			MOV    	R3, R0
020300	062700	000010		ADD    	#000010, R0
020304	010046			MOV    	R0, -(SP)
020306	004767	032004		CALL   	052316	; PSHSET ; $B52
020312	012746	000003		MOV    	#000003, -(SP)
020316	004767	031612		CALL   	052134	; DOIN ; $B40	; IF 3 IN (VAR7204[VAR52350]).RD10
020322	001002			BNE    	020330
020324	000167	000020		JMP    	020350
020330	010346			MOV    	R3, -(SP)		; THEN 4
020332	012746	000103		MOV    	#000103, -(SP)
020336	004767	170100		CALL   	010442			; L10442('C')
020342	012603			MOV    	(SP)+, R3
020344	000167	000014		JMP    	020364
020350	010346			MOV    	R3, -(SP)		; ELSE 4
020352	012746	000040		MOV    	#000040, -(SP)		; L10442(' ')
020356	004767	170060		CALL   	010442
020362	012603			MOV    	(SP)+, R3		; END IF 4
020364	010346			MOV    	R3, -(SP)
020366	012746	000040		MOV    	#000040, -(SP)
020372	004767	170044		CALL   	010442			; L10442(' ')
020376	012603			MOV    	(SP)+, R3
020400	010300			MOV    	R3, R0
020402	062700	000010		ADD    	#000010, R0
020406	010046			MOV    	R0, -(SP)
020410	004767	031702		CALL   	052316	; PSHSET ; $B52
020414	012746	000004		MOV    	#000004, -(SP)
020420	004767	031510		CALL   	052134	; DOIN ; $B40	; IF 4 IN (VAR7204[VAR52350]).RD10
020424	001002			BNE    	020432
020426	000167	000020		JMP    	020452
020432	010346			MOV    	R3, -(SP)		; THEN 4
020434	012746	000112		MOV    	#000112, -(SP)
020440	004767	167776		CALL   	010442			; L10442('J')
020444	012603			MOV    	(SP)+, R3
020446	000167	000014		JMP    	020466
020452	010346			MOV    	R3, -(SP)		; ELSE 4
020454	012746	000040		MOV    	#000040, -(SP)
020460	004767	167756		CALL   	010442			; L10442(' ')
020464	012603			MOV    	(SP)+, R3		; END IF 4
020466	010346			MOV    	R3, -(SP)
020470	012746	000040		MOV    	#000040, -(SP)
020474	004767	167742		CALL   	010442			; L10442(' ')
020500	012603			MOV    	(SP)+, R3
020502	010300			MOV    	R3, R0
020504	062700	000010		ADD    	#000010, R0
020510	010046			MOV    	R0, -(SP)
020512	004767	031600		CALL   	052316	; PSHSET ; $B52
020516	012746	000005		MOV    	#000005, -(SP)
020522	004767	031406		CALL   	052134	; DOIN ; $B40	; IF 5 IN (VAR7204[VAR52350]).RD10
020526	001002			BNE    	020534
020530	000167	000020		JMP    	020554
020534	010346			MOV    	R3, -(SP)		; THEN 4
020536	012746	000102		MOV    	#000102, -(SP)
020542	004767	167674		CALL   	010442			; L10442('B')
020546	012603			MOV    	(SP)+, R3
020550	000167	000014		JMP    	020570
020554	010346			MOV    	R3, -(SP)		; ELSE 4
020556	012746	000040		MOV    	#000040, -(SP)
020562	004767	167654		CALL   	010442			; L10442(' ')
020566	012603			MOV    	(SP)+, R3		; END IF 4
020570	010346			MOV    	R3, -(SP)
020572	004767	167720		CALL   	010516			; L10516
020576	012603			MOV    	(SP)+, R3		; END IF 3 ; END IF 2
020600	016565	052350	053412	MOV    	052350(R5), 053412(R5)	; VAR53412:=VAR52350
020606	010300			MOV    	R3, R0
020610	062700	000010		ADD    	#000010, R0
020614	010046			MOV    	R0, -(SP)
020616	004767	031474		CALL   	052316	; PSHSET ; $B52
020622	012746	021104		MOV    	#021104, -(SP)
020626	004767	031464		CALL   	052316	; PSHSET ; $B52
020632	004767	031432		CALL   	052270	; SETAND ; $B58
020636	010500			MOV    	R5, R0
020640	062700	053414		ADD    	#053414, R0
020644	010046			MOV    	R0, -(SP)
020646	004767	031506		CALL   	052360	; POPSET ; $B54	; VAR53414:=(VAR7204[VAR52350]).RD10*[1,2,3,4,5,7,10]
020652	016546	052350		MOV    	052350(R5), -(SP)
020656	004767	173714		CALL   	014576			; L14576(VAR52350)
020662	162706	000006		SUB    	#000006, SP
020666	010600			MOV    	SP, R0
020670	016520	053402		MOV    	053402(R5), (R0)+
020674	016520	053404		MOV    	053404(R5), (R0)+
020700	016520	053406		MOV    	053406(R5), (R0)+
020704	004767	171352		CALL   	012262			; L12262(VAR53402)
020710	016503	052350		MOV    	052350(R5), R3
020714	020327	000000		CMP    	R3, #000000
020720	002403			BLT    	020730
020722	020327	001750		CMP    	R3, #001750
020726	003402			BLE    	020734
020730	004767	032142		CALL   	053076	; $B125 ; $$B125
020734	010346			MOV    	R3, -(SP)
020736	012746	000022		MOV    	#000022, -(SP)
020742	004767	031656		CALL   	052624	; UNSMUL ; $B116
020746	010503			MOV    	R5, R3
020750	062603			ADD    	(SP)+, R3
020752	062703	007204		ADD    	#007204, R3		; WITH VAR7204[VAR52350]
020756	026365	000004	004370	CMP    	000004(R3), 004370(R5)	; IF (VAR7204[VAR52350]).RD04=VAR4370
020764	001402			BEQ    	020772
020766	000167	000012		JMP    	021004
020772	016365	000006	053424	MOV    	000006(R3), 053424(R5)	; THEN ; VAR53424:=(VAR7204[VAR52350]).RD06
021000	000167	000006		JMP    	021012
021004	012765	177777	053424	MOV    	#177777, 053424(R5)	; VAR53424:=-1 ; END IF 1
021012	000207			RETURN 	
-------------------------------------------------------------
021014	035072	020134	020040	.ASCIZ	/::\   /
	000000			.EVEN

021024	020040	020040	020040	.ASCIZ	/      /
	000000			.EVEN

021034	020073	020134	020040	.ASCIZ	/; \   /
	000000			.EVEN

021044	044453	056040	020040	.ASCIZ	/+I \  /
	000000			.EVEN

021054	020040	056040	020040	.ASCIZ	/   \  /
	000000			.EVEN

021064	044455	056040	020040	.ASCIZ	/-I \  /
	000000			.EVEN

021074	020040	056040	020040	.ASCIZ	/   \  /
	000000			.EVEN
; SET OF 1,2,3,4,5,7,10
021104	000676	000000	000000	000000
; SET OF 11
021114	001000	000000	000000	000000
=============================================================
; PROCEDURE VAR 2(SP):INTEGER
021124	004767	031716		CALL   	053046	; STKCHK ; $B127
021130	017603	000002		MOV    	@000002(SP), R3
021134	020327	000001		CMP    	R3, #000001
021140	002403			BLT    	021150
021142	020327	000024		CMP    	R3, #000024
021146	003402			BLE    	021154
021150	004767	031722		CALL   	053076	; $B125 ; $$B125
021154	010346			MOV    	R3, -(SP)
021156	012746	000014		MOV    	#000014, -(SP)
021162	004767	031436		CALL   	052624	; UNSMUL ; $B116
021166	010503			MOV    	R5, R3
021170	062603			ADD    	(SP)+, R3
021172	062703	000004		ADD    	#000004, R3		; WITH VAR20[@2(SP)]
021176	005376	000002		DEC    	@000002(SP)		; @2(SP):=@2(SP)-1
021202	027627	000002	000001	CMP    	@000002(SP), #000001	; IF @2(SP)<1
021210	002402			BLT    	021216
021212	000167	000006		JMP    	021224
021216	012776	000024	000002	MOV    	#000024, @000002(SP)	; THEN ; @2(SP):=24 ; END IF
021224	021327	000006		CMP    	(R3), #000006		; IF VAR20[@2(SP)].RA00<=6
021230	003402			BLE    	021236
021232	000167	000014		JMP    	021252
021236	010346			MOV    	R3, -(SP)		; THEN
021240	016646	000004		MOV    	000004(SP), -(SP)
021244	004767	177654		CALL   	021124			; L21124(2(SP))
021250	012603			MOV    	(SP)+, R3		; END IF
021252	021327	000011		CMP    	(R3), #000011		; IF VAR20[@2(SP)].RA00<=11
021256	003402			BLE    	021264
021260	000167	000014		JMP    	021300
021264	010346			MOV    	R3, -(SP)		; THEN
021266	016646	000004		MOV    	000004(SP), -(SP)
021272	004767	177626		CALL   	021124			; L21124(2(SP))
021276	012603			MOV    	(SP)+, R3		; END IF
021300	011666	000002		MOV    	(SP), 000002(SP)
021304	062706	000002		ADD    	#000002, SP
021310	000207			RETURN 	
=============================================================
; PROCEDURE 12(SP),10(SP):INTEGER
021312	162706	000006		SUB    	#000006, SP ; VAR @SP,2(SP):INTEGER 4(SP):CHAR
021316	004767	031524		CALL   	053046	; STKCHK ; $B127
021322	016600	000010		MOV    	000010(SP), R0
021326	005300			DEC    	R0
021330	010066	000002		MOV    	R0, 000002(SP)		; 2(SP):=10(SP)-1
021334	026627	000002	000001	CMP    	000002(SP), #000001	; IF 2(SP)<1
021342	002402			BLT    	021350
021344	000167	000006		JMP    	021356
021350	012766	000024	000002	MOV    	#000024, 000002(SP)	; THEN ; 2(SP):=24 ; END IF
021356	026666	000012	000002	CMP    	000012(SP), 000002(SP)	; IF 12(SP)=2(SP)
021364	001402			BEQ    	021372
021366	000167	000302		JMP    	021674
021372	016603	000010		MOV    	000010(SP), R3		; THEN 1
021376	020327	000001		CMP    	R3, #000001
021402	002403			BLT    	021412
021404	020327	000024		CMP    	R3, #000024
021410	003402			BLE    	021416
021412	004767	031460		CALL   	053076	; $B125 ; $$B125
021416	010346			MOV    	R3, -(SP)
021420	012746	000014		MOV    	#000014, -(SP)
021424	004767	031174		CALL   	052624	; UNSMUL ; $B116
021430	010503			MOV    	R5, R3
021432	062603			ADD    	(SP)+, R3
021434	062703	000004		ADD    	#000004, R3		; WITH VAR20[10(SP)]
021440	011300			MOV    	(R3), R0		; CASE (VAR20[10(SP)]).RA00
021442	162700	000016		SUB    	#000016, R0
021446	002002			BGE    	021454
021450	000167	000202		JMP    	021656
021454	022700	000002		CMP    	#000002, R0
021460	002002			BGE    	021466
021462	000167	000170		JMP    	021656
021466	006300			ASL    	R0
021470	000170	021662		JMP    	@021662(R0)
021474	010346			MOV    	R3, -(SP) ; 16 ;
021476	162706	000006		SUB    	#000006, SP
021502	010600			MOV    	SP, R0
021504	016320	000002		MOV    	000002(R3), (R0)+
021510	016320	000004		MOV    	000004(R3), (R0)+
021514	016320	000006		MOV    	000006(R3), (R0)+
021520	004767	170056		CALL   	011602			; L11602((VAR20[10(SP)]).RA02)
021524	012603			MOV    	(SP)+, R3
021526	000167	000136		JMP    	021670
021532	010346			MOV    	R3, -(SP) ; 17 ;
021534	016300	000010		MOV    	000010(R3), R0
021540	020027	000000		CMP    	R0, #000000
021544	002403			BLT    	021554
021546	020027	000030		CMP    	R0, #000030
021552	003402			BLE    	021560
021554	004767	031316		CALL   	053076	; $B125 ; $$B125
021560	010046			MOV    	R0, -(SP)
021562	012746	000014		MOV    	#000014, -(SP)
021566	004767	031032		CALL   	052624	; UNSMUL ; $B116
021572	010500			MOV    	R5, R0
021574	062600			ADD    	(SP)+, R0
021576	162706	000006		SUB    	#000006, SP
021602	010601			MOV    	SP, R1
021604	016021	003712		MOV    	003712(R0), (R1)+
021610	016021	003714		MOV    	003714(R0), (R1)+
021614	016021	003716		MOV    	003716(R0), (R1)+
021620	016346	000012		MOV    	000012(R3), -(SP)
021624	004767	173520		CALL   	015350			; L15350(VAR3712[(VAR20[10(SP)]).RA10].RB00)
021630	012603			MOV    	(SP)+, R3
021632	000167	000032		JMP    	021670
021636	010346			MOV    	R3, -(SP) ; 20 ;
021640	016346	000012		MOV    	000012(R3), -(SP)
021644	004767	167162		CALL   	011032			; L11032((VAR20[10(SP)]).RA12)
021650	012603			MOV    	(SP)+, R3
021652	000167	000012		JMP    	021670
021656	000167	000006		JMP    	021670		; END CASE
; CASE OF ADDR BEGIN
021662	021474	021532	021636	; 16 17 20
; CASE OF ADDR END
021670	000167	000374		JMP    	022270
021674	016616	000002		MOV    	000002(SP), (SP)	; ELSE 1 ; @SP:=2(SP)
021700	010600			MOV    	SP, R0
021702	010046			MOV    	R0, -(SP)
021704	004767	177214		CALL   	021124			; L21124(@@SP)
021710	021666	000012		CMP    	(SP), 000012(SP)	; IF @SP<>12(SP)
021714	001002			BNE    	021722
021716	000167	000014		JMP    	021736
021722	016646	000012		MOV    	000012(SP), -(SP)	; THEN
021726	016646	000002		MOV    	000002(SP), -(SP)
021732	004767	177354		CALL   	021312			; L21312(12(SP),@SP) ; END IF
021736	016603	000010		MOV    	000010(SP), R3
021742	020327	000001		CMP    	R3, #000001
021746	002403			BLT    	021756
021750	020327	000024		CMP    	R3, #000024
021754	003402			BLE    	021762
021756	004767	031114		CALL   	053076	; $B125 ; $$B125
021762	010346			MOV    	R3, -(SP)
021764	012746	000014		MOV    	#000014, -(SP)
021770	004767	030630		CALL   	052624	; UNSMUL ; $B116
021774	010503			MOV    	R5, R3
021776	062603			ADD    	(SP)+, R3
022000	062703	000004		ADD    	#000004, R3		; WITH VAR20[10(SP)]
022004	021327	000011		CMP    	(R3), #000011		; IF (VAR20[10(SP)]).RA00=11
022010	001402			BEQ    	022016
022012	000167	000034		JMP    	022052
022016	010346			MOV    	R3, -(SP)		; THEN 2
022020	162706	000006		SUB    	#000006, SP
022024	012700	022304		MOV    	#022304, R0
022030	010601			MOV    	SP, R1
022032	012021			MOV    	(R0)+, (R1)+
022034	012021			MOV    	(R0)+, (R1)+
022036	012021			MOV    	(R0)+, (R1)+
022040	004767	166516		CALL   	010562			; L10562('^C\   ')
022044	012603			MOV    	(SP)+, R3
022046	000167	000204		JMP    	022256
022052	011300			MOV    	(R3), R0		; ELSE 2
022054	162700	000001		SUB    	#000001, R0		; CASE (VAR20[10(SP)]).RA00 OF
022060	002002			BGE    	022066
022062	000167	000126		JMP    	022214
022066	022700	000007		CMP    	#000007, R0
022072	002002			BGE    	022100
022074	000167	000114		JMP    	022214
022100	006300			ASL    	R0
022102	000170	022220		JMP    	@022220(R0)
022106	112766	000053	000004	MOVB   	#000053, 000004(SP) ; 1 ; 4(SP):='+'
022114	000167	000120		JMP    	022240
022120	112766	000055	000004	MOVB   	#000055, 000004(SP) ; 2 ; 4(SP):='-'
022126	000167	000106		JMP    	022240
022132	112766	000052	000004	MOVB   	#000052, 000004(SP) ; 3 ; 4(SP):='*'
022140	000167	000074		JMP    	022240
022144	112766	000057	000004	MOVB   	#000057, 000004(SP) ; 4 ; 4(SP):='/'
022152	000167	000062		JMP    	022240
022156	112766	000046	000004	MOVB   	#000046, 000004(SP) ; 5 ; 4(SP):='&'
022164	000167	000050		JMP    	022240
022170	112766	000041	000004	MOVB   	#000041, 000004(SP) ; 6 ; 4(SP):='!'
022176	000167	000036		JMP    	022240
022202	112766	000055	000004	MOVB   	#000055, 000004(SP) ; 10 ; 4(SP):='-'
022210	000167	000024		JMP    	022240
022214	000167	000020		JMP    	022240		; END CASE
; CASE OF ADDR BEGIN
022220	022106	022120	022132	022144	;  1  2  3  4
	022156	022170	022214	022202	;  5  6  7 10
; CASE OF ADDR END
022240	010346			MOV    	R3, -(SP)
022242	005046			CLR    	-(SP)
022244	116616	000010		MOVB   	000010(SP), (SP)
022250	004767	166166		CALL   	010442			; L10442(4(SP))
022254	012603			MOV    	(SP)+, R3		; END IF 2
022256	011646			MOV    	(SP), -(SP)
022260	016646	000004		MOV    	000004(SP), -(SP)
022264	004767	177022		CALL   	021312			; L21312(@SP,2(SP)) ; END IF 1
022270	016666	000006	000012	MOV    	000006(SP), 000012(SP)
022276	062706	000012		ADD    	#000012, SP
022302	000207			RETURN 	
-------------------------------------------------------------
022304	041536	020134	020040	.ASCIZ	/^C\   /
	000000			.EVEN
=============================================================
; PROCEDURE 10(SP)
022314	162706	000006		SUB    	#000006, SP ; VAR @SP 2(SP) 4(SP)
022320	004767	030522		CALL   	053046	; STKCHK ; $B127
022324	016616	000010		MOV    	000010(SP), (SP)	; @SP:=10(SP)
022330	011666	000002		MOV    	(SP), 000002(SP)	; REPEAT ; 2(SP):=@SP
022334	005216			INC    	(SP)			; @SP:=@SP+1
022336	021627	000024		CMP    	(SP), #000024		; IF @SP>24
022342	003002			BGT    	022350
022344	000167	000004		JMP    	022354
022350	012716	000001		MOV    	#000001, (SP)		; THEN ; @SP:=1 ; END IF
022354	011600			MOV    	(SP), R0
022356	020027	000001		CMP    	R0, #000001
022362	002403			BLT    	022372
022364	020027	000024		CMP    	R0, #000024
022370	003402			BLE    	022376
022372	004767	030500		CALL   	053076	; $B125 ; $$B125
022376	010046			MOV    	R0, -(SP)
022400	012746	000014		MOV    	#000014, -(SP)
022404	004767	030214		CALL   	052624	; UNSMUL ; $B116
022410	010500			MOV    	R5, R0
022412	062600			ADD    	(SP)+, R0
022414	016066	000004	000004	MOV    	000004(R0), 000004(SP)	; 4(SP):=VAR20[@SP].RA00
022422	026627	000004	000012	CMP    	000004(SP), #000012	; UNTIL 4(SP)=12
022430	001402			BEQ    	022436
022432	005000			CLR    	R0
022434	000402			BR     	022442
022436	012700	000001		MOV    	#000001, R0
022442	026627	000004	000013	CMP    	000004(SP), #000013	; OR 4(SP)=13
022450	001402			BEQ    	022456
022452	005001			CLR    	R1
022454	000402			BR     	022462
022456	012701	000001		MOV    	#000001, R1
022462	150001			BISB   	R0, R1
022464	001002			BNE    	022472
022466	000167	177636		JMP    	022330		; END UNTIL
022472	016646	000010		MOV    	000010(SP), -(SP)
022476	016646	000004		MOV    	000004(SP), -(SP)
022502	004767	176604		CALL   	021312			; L21312(10(SP),2(SP))
022506	016666	000006	000010	MOV    	000006(SP), 000010(SP)
022514	062706	000010		ADD    	#000010, SP
022520	000207			RETURN 	
=============================================================
; FUNCTION 20(SP):BOOLEAN; 16(SP):WORD
022522	011404			MOV    	(R4), R4
022524	011404			MOV    	(R4), R4
022526	011404			MOV    	(R4), R4
022530	011404			MOV    	(R4), R4
022532	011404			MOV    	(R4), R4
022534	011404			MOV    	(R4), R4
022536	011404			MOV    	(R4), R4
022540	011404			MOV    	(R4), R4
022542	010446			MOV    	R4, -(SP)
022544	004067	030230		JSR    	R0, 053000 ; SVREG ; $B74
022550	022766	000040	000016	CMP    	#000040, 000016(SP)
022556	101402			BLOS   	022564
022560	005000			CLR    	R0
022562	000402			BR     	022570
022564	012700	000001		MOV    	#000001, R0
022570	026627	000016	000137	CMP    	000016(SP), #000137
022576	101402			BLOS   	022604
022600	005001			CLR    	R1
022602	000402			BR     	022610
022604	012701	000001		MOV    	#000001, R1
022610	105101			COMB   	R1
022612	140100			BICB   	R1, R0
022614	110066	000020		MOVB   	R0, 000020(SP)		; L22542:=(40<=16(SP)) AND (16(SP)<=137)
022620	004067	030204		JSR    	R0, 053030 ; UNREG ; $B76
022624	016666	000002	000004	MOV    	000002(SP), 000004(SP)
022632	062706	000004		ADD    	#000004, SP
022636	000207			RETURN 	
=====----------========-----------========-----------========
022640	004767	030202		CALL   	053046	; STKCHK ; $B127
022644	116500	002506		MOVB   	002506(R5), R0		; CASE VAR2506.RE00
022650	162700	000003		SUB    	#000003, R0
022654	002002			BGE    	022662
022656	000167	001042		JMP    	023724
022662	022700	000001		CMP    	#000001, R0
022666	002002			BGE    	022674
022670	000167	001030		JMP    	023724
022674	006300			ASL    	R0
022676	000170	023730		JMP    	@023730(R0)
022702	005046			CLR    	-(SP) ; 3 ;
022704	010604			MOV    	SP, R4
022706	062704	000002		ADD    	#000002, R4
022712	016546	002542		MOV    	002542(R5), -(SP)
022716	004767	177620		CALL   	022542
022722	105726			TSTB   	(SP)+			; IF L22542(VAR2506.RE34)
022724	001002			BNE    	022732
022726	000167	000026		JMP    	022760
022732	012746	000047		MOV    	#000047, -(SP)		; THEN 1
022736	004767	165500		CALL   	010442			; L10442('''')
022742	005046			CLR    	-(SP)
022744	116516	002542		MOVB   	002542(R5), (SP)
022750	004767	165466		CALL   	010442			; L10442(CHR(VAR2506.RE34))
022754	000167	000206		JMP    	023166
022760	005046			CLR    	-(SP)			; ELSE 1
022762	010604			MOV    	SP, R4
022764	062704	000002		ADD    	#000002, R4
022770	005046			CLR    	-(SP)
022772	016546	002542		MOV    	002542(R5), -(SP)
022776	004767	165424		CALL   	010426
023002	012600			MOV    	(SP)+, R0
023004	010046			MOV    	R0, -(SP)
023006	010604			MOV    	SP, R4
023010	062704	000004		ADD    	#000004, R4
023014	004767	177522		CALL   	022542
023020	005046			CLR    	-(SP)
023022	010604			MOV    	SP, R4
023024	062704	000004		ADD    	#000004, R4
023030	005046			CLR    	-(SP)
023032	016546	002542		MOV    	002542(R5), -(SP)
023036	004767	165370		CALL   	010432
023042	012600			MOV    	(SP)+, R0
023044	010046			MOV    	R0, -(SP)
023046	010604			MOV    	SP, R4
023050	062704	000006		ADD    	#000006, R4
023054	004767	177462		CALL   	022542
023060	112600			MOVB   	(SP)+, R0
023062	005100			COM    	R0
023064	140016			BICB   	R0, (SP)
023066	105726			TSTB   	(SP)+			; IF L22542(L05122(VAR2506.RE34)) AND L22542(L05160(VAR2506.RE34))
023070	001002			BNE    	023076
023072	000167	000060		JMP    	023156
023076	012746	000042		MOV    	#000042, -(SP)		; THEN 2
023102	004767	165334		CALL   	010442			; L10442('"')
023106	005046			CLR    	-(SP)
023110	016546	002542		MOV    	002542(R5), -(SP)
023114	004767	165306		CALL   	010426
023120	012600			MOV    	(SP)+, R0
023122	010046			MOV    	R0, -(SP)
023124	004767	165312		CALL   	010442			; L10442(CHR(L05122(VAR2506.RE34)))
023130	005046			CLR    	-(SP)
023132	016546	002542		MOV    	002542(R5), -(SP)
023136	004767	165270		CALL   	010432
023142	012600			MOV    	(SP)+, R0
023144	010046			MOV    	R0, -(SP)
023146	004767	165270		CALL   	010442			; L10442(CHR(L05160(VAR2506.RE34)))
023152	000167	000010		JMP    	023166
023156	016546	002542		MOV    	002542(R5), -(SP)	; ELSE 2
023162	004767	165644		CALL   	011032			; L11032(VAR2506.RE34)
023166	000167	000542		JMP    	023734			; END IF 2 ; END IF 1
023172	116500	002544		MOVB   	002544(R5), R0 ; 4 ;	; CASE VAR2506.RE36
023176	162700	000001		SUB    	#000001, R0
023202	002002			BGE    	023210
023204	000167	000446		JMP    	023656
023210	022700	000016		CMP    	#000016, R0
023214	002002			BGE    	023222
023216	000167	000434		JMP    	023656
023222	006300			ASL    	R0
023224	000170	023662		JMP    	@023662(R0)
023230	162706	000006		SUB    	#000006, SP ; 1 ;
023234	010600			MOV    	SP, R0
023236	016520	053402		MOV    	053402(R5), (R0)+
023242	016520	053404		MOV    	053404(R5), (R0)+
023246	016520	053406		MOV    	053406(R5), (R0)+
023252	016546	002552		MOV    	002552(R5), -(SP)
023256	004767	172066		CALL   	015350			; L15350(VAR53402,VAR2506.RE44)
023262	000167	000432		JMP    	023720
023266	004767	173010		CALL   	016302 ; 3 ;		; L16302
023272	016546	002552		MOV    	002552(R5), -(SP)
023276	004767	165530		CALL   	011032			; L11032(VAR2506.RE44)
023302	000167	000412		JMP    	023720
023306	162706	000006		SUB    	#000006, SP ; 2 ;
023312	010600			MOV    	SP, R0
023314	016520	002510		MOV    	002510(R5), (R0)+
023320	016520	002512		MOV    	002512(R5), (R0)+
023324	016520	002514		MOV    	002514(R5), (R0)+
023330	005046			CLR    	-(SP)
023332	004767	166520		CALL   	012056			; L12056(VAR2506.RE02,0)
023336	000167	000356		JMP    	023720
023342	004767	172734		CALL   	016302 ; 4 ;		; L16032
023346	162706	000006		SUB    	#000006, SP
023352	010600			MOV    	SP, R0
023354	016520	002510		MOV    	002510(R5), (R0)+
023360	016520	002512		MOV    	002512(R5), (R0)+
023364	016520	002514		MOV    	002514(R5), (R0)+
023370	005046			CLR    	-(SP)
023372	004767	166460		CALL   	012056			; L12056(VAR2506.RE02,0)
023376	000167	000316		JMP    	023720
023402	162706	000006		SUB    	#000006, SP ; 5 ;
023406	010600			MOV    	SP, R0
023410	016520	002510		MOV    	002510(R5), (R0)+
023414	016520	002512		MOV    	002512(R5), (R0)+
023420	016520	002514		MOV    	002514(R5), (R0)+
023424	016546	002552		MOV    	002552(R5), -(SP)
023430	004767	166422		CALL   	012056			; L12056(VAR2506.RE02,VAR2506.RE44)
023434	000167	000260		JMP    	023720
023440	004767	172636		CALL   	016302 ; 6 ;		; L16302
023444	162706	000006		SUB    	#000006, SP
023450	010600			MOV    	SP, R0
023452	016520	002510		MOV    	002510(R5), (R0)+
023456	016520	002512		MOV    	002512(R5), (R0)+
023462	016520	002514		MOV    	002514(R5), (R0)+
023466	016546	002552		MOV    	002552(R5), -(SP)
023472	004767	166360		CALL   	012056			; L12056(VAR2506.RE02,VAR2506.RE44)
023476	000167	000216		JMP    	023720
023502	004767	172574		CALL   	016302 ; 14 ;		; L16302
023506	162706	000006		SUB    	#000006, SP
023512	010600			MOV    	SP, R0
023514	016520	002510		MOV    	002510(R5), (R0)+
023520	016520	002512		MOV    	002512(R5), (R0)+
023524	016520	002514		MOV    	002514(R5), (R0)+
023530	005046			CLR    	-(SP)
023532	004767	171612		CALL   	015350			; L15350(VAR2506.RE02,0)
023536	000167	000156		JMP    	023720
023542	162706	000006		SUB    	#000006, SP ; 15 ;
023546	010600			MOV    	SP, R0
023550	016520	002510		MOV    	002510(R5), (R0)+
023554	016520	002512		MOV    	002512(R5), (R0)+
023560	016520	002514		MOV    	002514(R5), (R0)+
023564	016546	002552		MOV    	002552(R5), -(SP)
023570	004767	171554		CALL   	015350			; L15350(VAR2506.RE02,VAR2506.RE44)
023574	000167	000120		JMP    	023720
023600	004767	172476		CALL   	016302 ; 16 ;		; L16302
023604	162706	000006		SUB    	#000006, SP
023610	010600			MOV    	SP, R0
023612	016520	002510		MOV    	002510(R5), (R0)+
023616	016520	002512		MOV    	002512(R5), (R0)+
023622	016520	002514		MOV    	002514(R5), (R0)+
023626	016546	002552		MOV    	002552(R5), -(SP)
023632	004767	171512		CALL   	015350			; L15350(VAR2506.RE02,VAR2506.RE44)
023636	000167	000056		JMP    	023720
023642	016546	002554		MOV    	002554(R5), -(SP) ; 17 ;
023646	004767	176442		CALL   	022314			; L22314(VAR2506.RE46)
023652	000167	000042		JMP    	023720
023656	000167	000036		JMP    	023720
; CASE OF ADDR BEGIN
023662	023230	023306	023266	023342	;  1  2  3  4
	023402	023440	023656	023656	;  5  6  7 10
	023656	023656	023656	023502	; 11 12 13 14
	023542	023600	023642		; 15 16 17
; CASE OF ADDR END
023720	000167	000010		JMP    	023734
023724	000167	000004		JMP    	023734
; CASE OF ADDR BEGIN
023730	022702	023172		;  3  4
; CASE OF ADDR END
023734	000207			RETURN 	
=============================================================
023736	004767	027104		CALL   	053046	; STKCHK ; $B127
023742	016565	002542	053432	MOV    	002542(R5), 053432(R5)	; VAR53432:=VAR2506.RE34
023750	005001			CLR    	R1			; {$C
023752	012700	001500		MOV    	#001500, R0
023756	010102			MOV    	R1, R2
023760	060002			ADD    	R0, R2
023762	006202			ASR    	R2
023764	062702	000007		ADD    	#000007, R2
023770	042702	000007		BIC    	#000007, R2
023774	020200			CMP    	R2, R0
023776	001410			BEQ    	024020
024000	026265	024046	002542	CMP    	024046(R2), 002542(R5)
024006	101002			BHI    	024014
024010	010200			MOV    	R2, R0
024012	000761			BR     	023756
024014	010201			MOV    	R2, R1
024016	000757			BR     	023756
024020	062700	024046		ADD    	#024046, R0
024024	012065	053434		MOV    	(R0)+, 053434(R5)
024030	012065	053436		MOV    	(R0)+, 053436(R5)
024034	012065	053440		MOV    	(R0)+, 053440(R5)
024040	012065	053442		MOV    	(R0)+, 053442(R5)
024044	012765	020040	053444	MOV    	#020040, 053444(R5)
024052	000167	001500		JMP    	025556			; }
024056	170000	000014		.WORD	170000,14
024062	043052	052120		.ASCII	/*FPT/
024066	160000	000012		.WORD	160000,12
024072	052523	020102		.ASCII	/SUB /
024076	150000	000012		.WORD	150000,12
024102	044502	041123		.ASCII	/BISB/
024106	140000	000012		.WORD	140000,12
024112	044502	041103		.ASCII	/BICB/
024116	130000	000012		.WORD	130000,12
024122	044502	041124		.ASCII	/BITB/
024126	120000	000012		.WORD	120000,12
024132	046503	041120		.ASCII	/CMPB/
024136	110000	000012		.WORD	110000,12
024142	047515	041126		.ASCII	/MOVB/
024146	106700	000015		.WORD	106700,15
024152	020040	020040		.ASCII	/    /	; MFPS
024156	106600	000001		.WORD	106600,1
024162	052115	042120		.ASCII	/MTPD/
024166	106500	000001		.WORD	106500,1
024172	043115	042120		.ASCII	/MFPD/
024176	106400	000015		.WORD	106400,15
024202	020040	020040		.ASCII	/    /	; MTPS
024206	106300	000001		.WORD	106300,1
024212	051501	041114		.ASCII	/ASLB/
024216	106200	000001		.WORD	106200,1
024222	051501	041122		.ASCII	/ASRB/
024226	106100	000001		.WORD	106100,1
024232	047522	041114		.ASCII	/ROLB/
024236	106000	000001		.WORD	106000,1
024242	047522	041122		.ASCII	/RORB/
024246	105700	000001		.WORD	105700,1
024252	051524	041124		.ASCII	/TSTB/
024256	105600	000001		.WORD	105600,1
024262	041123	041103		.ASCII	/SBCB/
024266	105500	000001		.WORD	105500,1
024272	042101	041103		.ASCII	/ADCB/
024276	105400	000001		.WORD	105400,1
024302	042516	041107		.ASCII	/NEGB/
024306	105300	000001		.WORD	105300,1
024312	042504	041103		.ASCII	/DECB/
024316	105200	000001		.WORD	105200,1
024322	047111	041103		.ASCII	/INCB/
024326	105100	000001		.WORD	105100,1
024332	047503	041115		.ASCII	/COMB/
024336	105000	000001		.WORD	105000,1
024342	046103	041122		.ASCII	/CLRB/
024346	104400	000010		.WORD	104400,10
024352	051124	050101		.ASCII	/TRAP/
024356	104000	000010		.WORD	104000,10
024362	046505	020124		.ASCII	/EMT /
024366	103400	000005		.WORD	103400,5
024372	041502	020123		.ASCII	/BCS /
024376	103000	000005		.WORD	103000,5
024402	041502	020103		.ASCII	/BCC /
024406	102400	000005		.WORD	102400,5
024412	053102	020123		.ASCII	/BVS /
024416	102000	000005		.WORD	102000,5
024422	053102	020103		.ASCII	/BVC /
024426	101400	000005		.WORD	101400,5
024432	046102	051517		.ASCII	/BLOS/
024436	101000	000005		.WORD	101000,5
024442	044102	020111		.ASCII	/BHI /
024446	100400	000005		.WORD	100400,5
024452	046502	020111		.ASCII	/BMI /
024456	100000	000005		.WORD	100000,5
024462	050102	020114		.ASCII	/BPL /
024466	077000	000013		.WORD	077000,13
024472	047523	020102		.ASCII	/SOB /
024476	075040	000015		.WORD	075040,15
024502	020040	020040		.ASCII	/    /
024506	075030	000002		.WORD	075030,2
024512	042106	053111		.ASCII	/FDIV/
024516	075020	000002		.WORD	075020,2
024522	046506	046125		.ASCII	/FMUL/
024526	075010	000002		.WORD	075010,2
024532	051506	041125		.ASCII	/FSUB/
024536	075000	000002		.WORD	075000,2
024542	040506	042104		.ASCII	/FADD/
024546	074000	000006		.WORD	074000,6
024552	047530	020122		.ASCII	/XOR /
024556	073000	000007		.WORD	073000,7
024562	051501	041510		.ASCII	/ASHC/
024566	072000	000007		.WORD	072000,7
024572	051501	020110		.ASCII	/ASH /
024576	071000	000007		.WORD	071000,7
024602	044504	020126		.ASCII	/DIV /
024606	070000	000007		.WORD	070000,7
024612	052515	020114		.ASCII	/MUL /
024616	060000	000012		.WORD	060000,12
024622	042101	020104		.ASCII	/ADD /
024626	050000	000012		.WORD	050000,12
024632	044502	020123		.ASCII	/BIS /
024636	040000	000012		.WORD	040000,12
024642	044502	020103		.ASCII	/BIC /
024646	030000	000012		.WORD	030000,12
024652	044502	020124		.ASCII	/BIT /
024656	020000	000012		.WORD	020000,12
024662	046503	020120		.ASCII	/CMP /
024666	010000	000012		.WORD	010000,12
024672	047515	020126		.ASCII	/MOV /
024676	007000	000015		.WORD	007000,15
024702	020040	020040		.ASCII	/    /
024706	006300	000001		.WORD	006300,1
024712	051501	020114		.ASCII	/ASL /
024716	006200	000001		.WORD	006200,1
024722	051501	020122		.ASCII	/ASR /
024726	006100	000001		.WORD	006100,1
024732	047522	020114		.ASCII	/ROL /
024736	006000	000001		.WORD	006000,1
024742	047522	020122		.ASCII	/ROR /
024746	005700	000001		.WORD	005700,1
024752	051524	020124		.ASCII	/TST /
024756	005600	000001		.WORD	005600,1
024762	041123	020103		.ASCII	/SBC /
024766	005500	000001		.WORD	005500,1
024772	042101	020103		.ASCII	/ADC /
024776	005400	000001		.WORD	005400,1
025002	042516	020107		.ASCII	/NEG /
025006	005300	000001		.WORD	005300,1
025012	042504	020103		.ASCII	/DEC /
025016	005200	000001		.WORD	005200,1
025022	047111	020103		.ASCII	/INC /
025026	005100	000001		.WORD	005100,1
025032	047503	020115		.ASCII	/COM /
025036	005000	000001		.WORD	005000,1
025042	046103	020122		.ASCII	/CLR /
025046	004700	000001		.WORD	004700,1
025052	040503	046114		.ASCII	/CALL/
025056	004000	000006		.WORD	004000,1
025062	051512	020122		.ASCII	/JSR /
025066	003400	000005		.WORD	003400
025072	046102	020105		.ASCII	/BLE /
025076	003000	000005		.WORD	003000,5
025102	043502	020124		.ASCII	/BGT /
025106	002400	000005		.WORD	002400,5
025112	046102	020124		.ASCII	/BLT /
025116	002000	000005		.WORD	002000,5
025122	043502	020105		.ASCII	/BGE /
025126	001400	000005		.WORD	001400,5
025132	042502	020121		.ASCII	/BEQ /
025136	001000	000005		.WORD	001000,5
025142	047102	020105		.ASCII	/BNE /
025146	000400	000005		.WORD	000400,5
025152	051102	020040		.ASCII	/BR  /
025156	000300	000001		.WORD	000300,1
025162	053523	041101		.ASCII	/SWAB/
025166	000277	000000		.WORD	000277,0
025172	041523	020103		.ASCII	/SCC /
025176	000276	000014		.WORD	000276,14
025202	020040	020040		.ASCII	/    /
025206	000270	000000		.WORD	000270,0
025212	042523	020116		.ASCII	/SEN /
025216	000267	000014		.WORD	000267,14
025222	020040	020040		.ASCII	/    /
025226	000264	000000		.WORD	000264,0
025232	042523	020132		.ASCII	/SEZ /
025236	000263	000014		.WORD	000263,14
025242	020040	020040		.ASCII	/    /
025246	000262	000000		.WORD	000262,0
025252	042523	020126		.ASCII	/SEV /
025256	000261	000000		.WORD	000261,0
025262	042523	020103		.ASCII	/SEC /
025266	000260	000014		.WORD	000260,14
025272	020040	020040		.ASCII	/    /
025276	000257	000000		.WORD	000257,0
025302	041503	020103		.ASCII	/CCC /
025306	000256	000014		.WORD	000256,14
025312	020040	020040		.ASCII	/    /
025316	000250	000000		.WORD	000250,0
025322	046103	020116		.ASCII	/CLN /
025326	000247	000014		.WORD	000247,14
025332	020040	020040		.ASCII	/    /
025336	000244	000000		.WORD	000244,0
025342	046103	020132		.ASCII	/CLZ /
025346	000243	000014		.WORD	000243,14
025352	020040	020040		.ASCII	/    /
025356	000242	000000		.WORD	000242,0
025362	046103	020126		.ASCII	/CLV /
025366	000241	000000		.WORD	000241,0
025372	046103	020103		.ASCII	/CLC /
025376	000240	000000		.WORD	000240,0
025402	047516	020120		.ASCII	/NOP /
025406	000230	000004		.WORD	000230,4
025412	050123	020114		.ASCII	/SPL /
025416	000210	000015		.WORD	000210,15
025422	020040	020040		.ASCII	/    /
025426	000207	000000		.WORD	000207,0
025432	042522	052524		.ASCII	/RETU/
025436	000200	000002		.WORD	000200,2
025442	052122	020123		.ASCII	/RTS /
025446	000100	000001		.WORD	000100,1
025452	046512	020120		.ASCII	/JMP /
025456	000007	000015		.WORD	000007,15
025462	020040	020040		.ASCII	/    /
025466	000006	000000		.WORD	000006,0
025472	052122	020124		.ASCII	/RTT /
025476	000005	000014		.WORD	000005,14
025502	042522	042523		.ASCII	/RESE/
025506	000004	000014		.WORD	000004,14
025512	047511	020124		.ASCII	/IOT /
025516	000003	000014		.WORD	000003,14
025522	050102	020124		.ASCII	/BPT /
025526	000002	000000		.WORD	000002,0
025532	052122	020111		.ASCII	/RTI /
025536	000001	000014		.WORD	000001,14
025542	040527	052111		.ASCII	/WAIT/
025546	000000	000014		.WORD	000000,14
025552	040510	052114		.ASCII	/HALT/
025556	000207			RETURN 	
=============================================================
025560	011404			MOV    	(R4), R4
025562	011404			MOV    	(R4), R4
025564	011404			MOV    	(R4), R4
025566	011404			MOV    	(R4), R4
025570	011404			MOV    	(R4), R4
025572	011404			MOV    	(R4), R4
025574	011404			MOV    	(R4), R4
025576	011404			MOV    	(R4), R4
025600	010446			MOV    	R4, -(SP)
025602	004067	025172		JSR    	R0, 053000 ; SVREG ; $B74
025606	010603			MOV    	SP, R3
025610	062703	000016		ADD    	#000016, R3
025614	121327	000003		CMPB   	(R3), #000003
025620	001402			BEQ    	025626
025622	005000			CLR    	R0
025624	000402			BR     	025632
025626	012700	000001		MOV    	#000001, R0
025632	121327	000004		CMPB   	(R3), #000004
025636	001402			BEQ    	025644
025640	005001			CLR    	R1
025642	000402			BR     	025650
025644	012701	000001		MOV    	#000001, R1
025650	012746	025760		MOV    	#025760, -(SP)
025654	004767	024436		CALL   	052316	; PSHSET ; $B52
025660	005046			CLR    	-(SP)
025662	116316	000036		MOVB   	000036(R3), (SP)
025666	004767	024242		CALL   	052134	; DOIN ; $B40
025672	001402			BEQ    	025700
025674	005002			CLR    	R2
025676	000402			BR     	025704
025700	012702	000001		MOV    	#000001, R2
025704	105102			COMB   	R2
025706	140201			BICB   	R2, R1
025710	150001			BISB   	R0, R1
025712	005763	000026		TST    	000026(R3)
025716	001402			BEQ    	025724
025720	005000			CLR    	R0
025722	000402			BR     	025730
025724	012700	000001		MOV    	#000001, R0
025730	105100			COMB   	R0
025732	140001			BICB   	R0, R1
025734	110166	000066		MOVB   	R1, 000066(SP)
025740	004067	025064		JSR    	R0, 053030 ; UNREG ; $B76
025744	016666	000002	000052	MOV    	000002(SP), 000052(SP)
025752	062706	000052		ADD    	#000052, SP
025756	000207			RETURN 	
-------------------------------------------------------------
; SET OF 7,10,11
025760	001600	000000	000000	000000
========---------==========------------=========----------===
025770	011404			MOV    	(R4), R4
025772	011404			MOV    	(R4), R4
025774	011404			MOV    	(R4), R4
025776	011404			MOV    	(R4), R4
026000	011404			MOV    	(R4), R4
026002	011404			MOV    	(R4), R4
026004	011404			MOV    	(R4), R4
026006	011404			MOV    	(R4), R4
026010	010446			MOV    	R4, -(SP)
026012	004067	024762		JSR    	R0, 053000 ; SVREG ; $B74
026016	010603			MOV    	SP, R3
026020	062703	000016		ADD    	#000016, R3
026024	121327	000003		CMPB   	(R3), #000003
026030	001402			BEQ    	026036
026032	005000			CLR    	R0
026034	000402			BR     	026042
026036	012700	000001		MOV    	#000001, R0
026042	005763	000026		TST    	000026(R3)
026046	001402			BEQ    	026054
026050	005001			CLR    	R1
026052	000402			BR     	026060
026054	012701	000001		MOV    	#000001, R1
026060	105101			COMB   	R1
026062	140100			BICB   	R1, R0
026064	016301	000034		MOV    	000034(R3), R1
026070	042701	177776		BIC    	#177776, R1
026074	001002			BNE    	026102
026076	005001			CLR    	R1
026100	000402			BR     	026106
026102	012701	000001		MOV    	#000001, R1
026106	105101			COMB   	R1
026110	140100			BICB   	R1, R0
026112	110066	000066		MOVB   	R0, 000066(SP)
026116	004067	024706		JSR    	R0, 053030 ; UNREG ; $B76
026122	016666	000002	000052	MOV    	000002(SP), 000052(SP)
026130	062706	000052		ADD    	#000052, SP
026134	000207			RETURN 	
=======-----------==========-----------========---------=====
026136	011404			MOV    	(R4), R4
026140	011404			MOV    	(R4), R4
026142	011404			MOV    	(R4), R4
026144	011404			MOV    	(R4), R4
026146	011404			MOV    	(R4), R4
026150	011404			MOV    	(R4), R4
026152	011404			MOV    	(R4), R4
026154	011404			MOV    	(R4), R4
026156	005046			CLR    	-(SP)
026160	010446			MOV    	R4, -(SP)
026162	004767	024660		CALL   	053046	; STKCHK ; $B127
026166	016600	000006		MOV    	000006(SP), R0
026172	006200			ASR    	R0
026174	006200			ASR    	R0
026176	006200			ASR    	R0
026200	010066	000002		MOV    	R0, 000002(SP)
026204	011600			MOV    	(SP), R0
026206	016601	000002		MOV    	000002(SP), R1
026212	005701			TST    	R1
026214	100001			BPL    	026220
026216	005301			DEC    	R1
026220	006201			ASR    	R1
026222	100001			BPL    	026226
026224	005201			INC    	R1
026226	006301			ASL    	R1
026230	010110			MOV    	R1, (R0)
026232	011600			MOV    	(SP), R0
026234	016601	000002		MOV    	000002(SP), R1
026240	042701	177776		BIC    	#177776, R1
026244	010160	000002		MOV    	R1, 000002(R0)
026250	011600			MOV    	(SP), R0
026252	016601	000006		MOV    	000006(SP), R1
026256	042701	177770		BIC    	#177770, R1
026262	010160	000004		MOV    	R1, 000004(R0)
026266	012746	026376		MOV    	#026376, -(SP)
026272	004767	024020		CALL   	052316	; PSHSET ; $B52
026276	010500			MOV    	R5, R0
026300	062700	052356		ADD    	#052356, R0
026304	010046			MOV    	R0, -(SP)
026306	004767	024046		CALL   	052360	; POPSET ; $B54
026312	026627	000006	000027	CMP    	000006(SP), #000027
026320	001402			BEQ    	026326
026322	000167	000024		JMP    	026352
026326	012746	026366		MOV    	#026366, -(SP)
026332	004767	023760		CALL   	052316	; PSHSET ; $B52
026336	010500			MOV    	R5, R0
026340	062700	052356		ADD    	#052356, R0
026344	010046			MOV    	R0, -(SP)
026346	004767	024006		CALL   	052360	; POPSET ; $B54
026352	016666	000004	000006	MOV    	000004(SP), 000006(SP)
026360	062706	000006		ADD    	#000006, SP
026364	000207			RETURN 	
-------------------------------------------------------------
; SET OF 1
026366	000002	000000	000000	000000
; SET OF 2
026376	000004	000000	000000	000000
=======----------=========------------=======-----------=====
026406	011404			MOV    	(R4), R4
026410	011404			MOV    	(R4), R4
026412	011404			MOV    	(R4), R4
026414	011404			MOV    	(R4), R4
026416	011404			MOV    	(R4), R4
026420	011404			MOV    	(R4), R4
026422	011404			MOV    	(R4), R4
026424	011404			MOV    	(R4), R4
026426	010446			MOV    	R4, -(SP)
026430	004767	024412		CALL   	053046	; STKCHK ; $B127
026434	010604			MOV    	SP, R4
026436	016500	053432		MOV    	053432(R5), R0
026442	042700	177700		BIC    	#177700, R0
026446	010046			MOV    	R0, -(SP)
026450	004767	177500		CALL   	026154
026454	062706	000002		ADD    	#000002, SP
026460	000207			RETURN 	
========----------========-----------========----------======
026462	011404			MOV    	(R4), R4
026464	011404			MOV    	(R4), R4
026466	011404			MOV    	(R4), R4
026470	011404			MOV    	(R4), R4
026472	011404			MOV    	(R4), R4
026474	011404			MOV    	(R4), R4
026476	011404			MOV    	(R4), R4
026500	011404			MOV    	(R4), R4
026502	010446			MOV    	R4, -(SP)
026504	004767	024336		CALL   	053046	; STKCHK ; $B127
026510	010604			MOV    	SP, R4
026512	016500	053432		MOV    	053432(R5), R0
026516	006200			ASR    	R0
026520	006200			ASR    	R0
026522	006200			ASR    	R0
026524	006200			ASR    	R0
026526	006200			ASR    	R0
026530	006200			ASR    	R0
026532	042700	177700		BIC    	#177700, R0
026536	010046			MOV    	R0, -(SP)
026540	004767	177410		CALL   	026154
026544	011600			MOV    	(SP), R0
026546	011601			MOV    	(SP), R1
026550	011160	000010		MOV    	(R1), 000010(R0)
026554	011600			MOV    	(SP), R0
026556	011601			MOV    	(SP), R1
026560	016160	000002	000012	MOV    	000002(R1), 000012(R0)
026566	011600			MOV    	(SP), R0
026570	011601			MOV    	(SP), R1
026572	016160	000004	000014	MOV    	000004(R1), 000014(R0)
026600	062706	000002		ADD    	#000002, SP
026604	000207			RETURN 	
========---------=========-------------=======---------======
026606	011404			MOV    	(R4), R4
026610	011404			MOV    	(R4), R4
026612	011404			MOV    	(R4), R4
026614	011404			MOV    	(R4), R4
026616	011404			MOV    	(R4), R4
026620	011404			MOV    	(R4), R4
026622	011404			MOV    	(R4), R4
026624	010446			MOV    	R4, -(SP)
026626	004767	024214		CALL   	053046	; STKCHK ; $B127
026632	011600			MOV    	(SP), R0
026634	011000			MOV    	(R0), R0
026636	026027	000004	000007	CMP    	000004(R0), #000007
026644	001402			BEQ    	026652
026646	000167	000030		JMP    	026702
026652	162706	000006		SUB    	#000006, SP
026656	012700	027004		MOV    	#027004, R0
026662	010601			MOV    	SP, R1
026664	012021			MOV    	(R0)+, (R1)+
026666	012021			MOV    	(R0)+, (R1)+
026670	012021			MOV    	(R0)+, (R1)+
026672	004767	161664		CALL   	010562
026676	000167	000074		JMP    	026776
026702	011600			MOV    	(SP), R0
026704	011000			MOV    	(R0), R0
026706	026027	000004	000006	CMP    	000004(R0), #000006
026714	001402			BEQ    	026722
026716	000167	000030		JMP    	026752
026722	162706	000006		SUB    	#000006, SP
026726	012700	027014		MOV    	#027014, R0
026732	010601			MOV    	SP, R1
026734	012021			MOV    	(R0)+, (R1)+
026736	012021			MOV    	(R0)+, (R1)+
026740	012021			MOV    	(R0)+, (R1)+
026742	004767	161614		CALL   	010562
026746	000167	000024		JMP    	026776
026752	012746	000122		MOV    	#000122, -(SP)
026756	004767	161460		CALL   	010442
026762	011600			MOV    	(SP), R0
026764	011000			MOV    	(R0), R0
026766	016046	000004		MOV    	000004(R0), -(SP)
026772	004767	162034		CALL   	011032
026776	062706	000002		ADD    	#000002, SP
027002	000207			RETURN 	
-------------------------------------------------------------
027004	041520	020134	020040	.ASCIZ	/PC\   /
	000000			.EVEN

027014	050123	020134	020040	.ASCIZ	/SP\   /
	000000			.EVEN
========---------==========------------=========-------======
027024	011404			MOV    	(R4), R4
027026	011404			MOV    	(R4), R4
027030	011404			MOV    	(R4), R4
027032	011404			MOV    	(R4), R4
027034	011404			MOV    	(R4), R4
027036	011404			MOV    	(R4), R4
027040	011404			MOV    	(R4), R4
027042	010446			MOV    	R4, -(SP)
027044	004767	023776		CALL   	053046	; STKCHK ; $B127
027050	012746	000050		MOV    	#000050, -(SP)
027054	004767	161362		CALL   	010442
027060	010604			MOV    	SP, R4
027062	004767	177534		CALL   	026622
027066	012746	000051		MOV    	#000051, -(SP)
027072	004767	161344		CALL   	010442
027076	062706	000002		ADD    	#000002, SP
027102	000207			RETURN 	
=======---------===========------------=======--------=======
027104	011404			MOV    	(R4), R4
027106	011404			MOV    	(R4), R4
027110	011404			MOV    	(R4), R4
027112	011404			MOV    	(R4), R4
027114	011404			MOV    	(R4), R4
027116	011404			MOV    	(R4), R4
027120	011404			MOV    	(R4), R4
027122	010446			MOV    	R4, -(SP)
027124	004767	023716		CALL   	053046	; STKCHK ; $B127
027130	010500			MOV    	R5, R0
027132	062700	052366		ADD    	#052366, R0
027136	010046			MOV    	R0, -(SP)
027140	004767	161272		CALL   	010436			; L10104
027144	126527	002506	000003	CMPB   	002506(R5), #000003
027152	001402			BEQ    	027160
027154	005000			CLR    	R0
027156	000402			BR     	027164
027160	012700	000001		MOV    	#000001, R0
027164	011601			MOV    	(SP), R1
027166	011101			MOV    	(R1), R1
027170	021127	000006		CMP    	(R1), #000006
027174	001402			BEQ    	027202
027176	005001			CLR    	R1
027200	000402			BR     	027206
027202	012701	000001		MOV    	#000001, R1
027206	105101			COMB   	R1
027210	140100			BICB   	R1, R0
027212	011601			MOV    	(SP), R1
027214	011101			MOV    	(R1), R1
027216	026127	000004	000007	CMP    	000004(R1), #000007
027224	001402			BEQ    	027232
027226	005001			CLR    	R1
027230	000402			BR     	027236
027232	012701	000001		MOV    	#000001, R1
027236	105101			COMB   	R1
027240	140100			BICB   	R1, R0
027242	001002			BNE    	027250
027244	000167	000050		JMP    	027320
027250	162706	000006		SUB    	#000006, SP
027254	010600			MOV    	SP, R0
027256	016520	053402		MOV    	053402(R5), (R0)+
027262	016520	053404		MOV    	053404(R5), (R0)+
027266	016520	053406		MOV    	053406(R5), (R0)+
027272	016500	053410		MOV    	053410(R5), R0
027276	062700	000002		ADD    	#000002, R0
027302	066500	002542		ADD    	002542(R5), R0
027306	010046			MOV    	R0, -(SP)
027310	004767	166034		CALL   	015350
027314	000167	000004		JMP    	027324
027320	004767	173314		CALL   	022640
027324	062765	000002	053410	ADD    	#000002, 053410(R5)
027332	062706	000002		ADD    	#000002, SP
027336	000207			RETURN 	
=========-----------=========-----------=======--------======
027340	011404			MOV    	(R4), R4
027342	011404			MOV    	(R4), R4
027344	011404			MOV    	(R4), R4
027346	011404			MOV    	(R4), R4
027350	011404			MOV    	(R4), R4
027352	011404			MOV    	(R4), R4
027354	011404			MOV    	(R4), R4
027356	011404			MOV    	(R4), R4
027360	010446			MOV    	R4, -(SP)
027362	004767	023460		CALL   	053046	; STKCHK ; $B127
027366	011600			MOV    	(SP), R0
027370	005760	000002		TST    	000002(R0)
027374	001002			BNE    	027402
027376	000167	000010		JMP    	027412
027402	012746	000100		MOV    	#000100, -(SP)
027406	004767	161030		CALL   	010442
027412	011600			MOV    	(SP), R0
027414	026027	000004	000007	CMP    	000004(R0), #000007
027422	001402			BEQ    	027430
027424	005000			CLR    	R0
027426	000402			BR     	027434
027430	012700	000001		MOV    	#000001, R0
027434	011601			MOV    	(SP), R1
027436	021127	000002		CMP    	(R1), #000002
027442	001402			BEQ    	027450
027444	005001			CLR    	R1
027446	000402			BR     	027454
027450	012701	000001		MOV    	#000001, R1
027454	011602			MOV    	(SP), R2
027456	021227	000006		CMP    	(R2), #000006
027462	001402			BEQ    	027470
027464	005002			CLR    	R2
027466	000402			BR     	027474
027470	012702	000001		MOV    	#000001, R2
027474	150102			BISB   	R1, R2
027476	105102			COMB   	R2
027500	140200			BICB   	R2, R0
027502	005046			CLR    	-(SP)
027504	010604			MOV    	SP, R4
027506	062704	000002		ADD    	#000002, R4
027512	162706	000050		SUB    	#000050, SP
027516	010501			MOV    	R5, R1
027520	062701	002556		ADD    	#002556, R1
027524	010602			MOV    	SP, R2
027526	012703	000024		MOV    	#000024, R3
027532	012122			MOV    	(R1)+, (R2)+
027534	005303			DEC    	R3
027536	001375			BNE    	027532
027540	004767	176032		CALL   	025576
027544	112601			MOVB   	(SP)+, R1
027546	005101			COM    	R1
027550	140100			BICB   	R1, R0
027552	001002			BNE    	027560
027554	000167	000114		JMP    	027674
027560	011600			MOV    	(SP), R0
027562	011000			MOV    	(R0), R0
027564	162700	000002		SUB    	#000002, R0
027570	002002			BGE    	027576
027572	000167	000054		JMP    	027652
027576	022700	000004		CMP    	#000004, R0
027602	002002			BGE    	027610
027604	000167	000042		JMP    	027652
027610	006300			ASL    	R0
027612	000170	027656		JMP    	@027656(R0)
027616	012746	000043		MOV    	#000043, -(SP) ; 2 ;
027622	004767	160614		CALL   	010442
027626	010604			MOV    	SP, R4
027630	004767	177266		CALL   	027122
027634	000167	000030		JMP    	027670
027640	010604			MOV    	SP, R4 ; 6 ;
027642	004767	177254		CALL   	027122
027646	000167	000016		JMP    	027670
027652	000167	000012		JMP    	027670
; CASE OF ADDR BEGIN
027656	027616	027652	027652	027652	;  2  3  4  5
	027640				;  6
; CASE OF ADDR END
027670	000167	000156		JMP	030052
027674	011600			MOV    	(SP), R0
027676	011000			MOV    	(R0), R0
027700	162700	000000		SUB    	#000000, R0
027704	002002			BGE    	027712
027706	000167	000116		JMP    	030030
027712	022700	000006		CMP    	#000006, R0
027716	002002			BGE    	027724
027720	000167	000104		JMP    	030030
027724	006300			ASL    	R0
027726	000170	030034		JMP    	@030034(R0)
027732	010604			MOV    	SP, R4 ; 0 ;
027734	004767	176664		CALL   	026624
027740	000167	000106		JMP    	030052
027744	010604			MOV    	SP, R4 ; 2 ;
027746	004767	177070		CALL   	027042
027752	012746	000053		MOV    	#000053, -(SP)
027756	004767	160460		CALL   	010442
027762	000167	000064		JMP    	030052
027766	012746	000055		MOV    	#000055, -(SP) ; 4 ;
027772	004767	160444		CALL   	010442
027776	010604			MOV    	SP, R4
030000	004767	177036		CALL   	027042
030004	000167	000042		JMP    	030052 ; 6 ;
030010	010604			MOV    	SP, R4
030012	004767	177104		CALL   	027122
030016	010604			MOV    	SP, R4
030020	004767	177016		CALL   	027042
030024	000167	000022		JMP    	030052
030030	000167	000016		JMP    	030052
; CASE OF ADDR BEGIN
030034	027732	030030	027744	030030	;  0  1  2  3
	027766	030030	030010		;  4  5  6
; CASE OF ADDR END
030052	062706	000002		ADD    	#000002, SP
030056	000207			RETURN 	
=======--------========----------=========---------==========
030060	162706	000020		SUB    	#000020, SP
030064	004767	022756		CALL   	053046	; STKCHK ; $B127
030070	004767	173642		CALL   	023736
030074	062765	000002	053410	ADD    	#000002, 053410(R5)
030102	010604			MOV    	SP, R4
030104	004767	176372		CALL   	026502
030110	010604			MOV    	SP, R4
030112	004767	176310		CALL   	026426
030116	126527	053436	000012	CMPB   	053436(R5), #000012
030124	001402			BEQ    	030132
030126	000167	001202		JMP    	031334
030132	005766	000012		TST    	000012(SP)
030136	001402			BEQ    	030144
030140	000167	000100		JMP    	030244
030144	005766	000010		TST    	000010(SP)
030150	001402			BEQ    	030156
030152	000167	000066		JMP    	030244
030156	026666	000004	000014	CMP    	000004(SP), 000014(SP)
030164	001402			BEQ    	030172
030166	000167	000052		JMP    	030244
030172	021627	000002		CMP    	(SP), #000002
030176	001402			BEQ    	030204
030200	005000			CLR    	R0
030202	000402			BR     	030210
030204	012700	000001		MOV    	#000001, R0
030210	021627	000004		CMP    	(SP), #000004
030214	001402			BEQ    	030222
030216	005001			CLR    	R1
030220	000402			BR     	030226
030222	012701	000001		MOV    	#000001, R1
030226	150001			BISB   	R0, R1
030230	001002			BNE    	030236
030232	000167	000006		JMP    	030244
030236	112765	000015	053436	MOVB   	#000015, 053436(R5)
030244	026627	000014	000007	CMP    	000014(SP), #000007
030252	001402			BEQ    	030260
030254	005000			CLR    	R0
030256	000402			BR     	030264
030260	012700	000001		MOV    	#000001, R0
030264	016601	000010		MOV    	000010(SP), R1
030270	042701	177774		BIC    	#177774, R1
030274	001402			BEQ    	030302
030276	005001			CLR    	R1
030300	000402			BR     	030306
030302	012701	000001		MOV    	#000001, R1
030306	105101			COMB   	R1
030310	140100			BICB   	R1, R0
030312	001002			BNE    	030320
030314	000167	000006		JMP    	030326
030320	112765	000015	053436	MOVB   	#000015, 053436(R5)
030326	026627	000004	000007	CMP    	000004(SP), #000007
030334	001402			BEQ    	030342
030336	005000			CLR    	R0
030340	000402			BR     	030346
030342	012700	000001		MOV    	#000001, R0
030346	011601			MOV    	(SP), R1
030350	042701	177774		BIC    	#177774, R1
030354	001402			BEQ    	030362
030356	005001			CLR    	R1
030360	000402			BR     	030366
030362	012701	000001		MOV    	#000001, R1
030366	105101			COMB   	R1
030370	140100			BICB   	R1, R0
030372	001002			BNE    	030400
030374	000167	000006		JMP    	030406
030400	112765	000015	053436	MOVB   	#000015, 053436(R5)
030406	026627	000010	000006	CMP    	000010(SP), #000006
030414	001402			BEQ    	030422
030416	005000			CLR    	R0
030420	000402			BR     	030426
030422	012700	000001		MOV    	#000001, R0
030426	026627	000010	000002	CMP    	000010(SP), #000002
030434	001402			BEQ    	030442
030436	005001			CLR    	R1
030440	000402			BR     	030446
030442	012701	000001		MOV    	#000001, R1
030446	026627	000014	000007	CMP    	000014(SP), #000007
030454	001402			BEQ    	030462
030456	005002			CLR    	R2
030460	000402			BR     	030466
030462	012702	000001		MOV    	#000001, R2
030466	105102			COMB   	R2
030470	140201			BICB   	R2, R1
030472	150001			BISB   	R0, R1
030474	110166	000016		MOVB   	R1, 000016(SP)
030500	021627	000006		CMP    	(SP), #000006
030504	001402			BEQ    	030512
030506	005000			CLR    	R0
030510	000402			BR     	030516
030512	012700	000001		MOV    	#000001, R0
030516	021627	000002		CMP    	(SP), #000002
030522	001402			BEQ    	030530
030524	005001			CLR    	R1
030526	000402			BR     	030534
030530	012701	000001		MOV    	#000001, R1
030534	026627	000004	000007	CMP    	000004(SP), #000007
030542	001402			BEQ    	030550
030544	005002			CLR    	R2
030546	000402			BR     	030554
030550	012702	000001		MOV    	#000001, R2
030554	105102			COMB   	R2
030556	140201			BICB   	R2, R1
030560	150001			BISB   	R0, R1
030562	110166	000017		MOVB   	R1, 000017(SP)
030566	116600	000016		MOVB   	000016(SP), R0
030572	156600	000017		BISB   	000017(SP), R0
030576	001002			BNE    	030604
030600	000167	000176		JMP    	031002
030604	005046			CLR    	-(SP)
030606	010604			MOV    	SP, R4
030610	062704	000002		ADD    	#000002, R4
030614	162706	000050		SUB    	#000050, SP
030620	010500			MOV    	R5, R0
030622	062700	002556		ADD    	#002556, R0
030626	010601			MOV    	SP, R1
030630	012702	000024		MOV    	#000024, R2
030634	012021			MOV    	(R0)+, (R1)+
030636	005302			DEC    	R2
030640	001375			BNE    	030634
030642	004767	174732		CALL   	025600
030646	112600			MOVB   	(SP)+, R0
030650	105100			COMB   	R0
030652	142700	177776		BICB   	#177776, R0
030656	001002			BNE    	030664
030660	000167	000006		JMP    	030672
030664	112765	000015	053436	MOVB   	#000015, 053436(R5)
030672	116600	000017		MOVB   	000017(SP), R0
030676	005100			COM    	R0
030700	116601	000016		MOVB   	000016(SP), R1
030704	140001			BICB   	R0, R1
030706	001002			BNE    	030714
030710	000167	000066		JMP    	031002
030714	005046			CLR    	-(SP)
030716	010604			MOV    	SP, R4
030720	062704	000002		ADD    	#000002, R4
030724	162706	000050		SUB    	#000050, SP
030730	010500			MOV    	R5, R0
030732	062700	002626		ADD    	#002626, R0
030736	010601			MOV    	SP, R1
030740	012702	000024		MOV    	#000024, R2
030744	012021			MOV    	(R0)+, (R1)+
030746	005302			DEC    	R2
030750	001375			BNE    	030744
030752	004767	174622		CALL   	025600
030756	112600			MOVB   	(SP)+, R0
030760	105100			COMB   	R0
030762	142700	177776		BICB   	#177776, R0
030766	001002			BNE    	030774
030770	000167	000006		JMP    	031002
030774	112765	000015	053436	MOVB   	#000015, 053436(R5)
031002	022765	010000	053434	CMP    	#010000, 053434(R5)
031010	101402			BLOS   	031016
031012	005000			CLR    	R0
031014	000402			BR     	031022
031016	012700	000001		MOV    	#000001, R0
031022	026527	053434	070000	CMP    	053434(R5), #070000
031030	103402			BLO    	031036
031032	005001			CLR    	R1
031034	000402			BR     	031042
031036	012701	000001		MOV    	#000001, R1
031042	105101			COMB   	R1
031044	140100			BICB   	R1, R0
031046	001002			BNE    	031054
031050	000167	000260		JMP    	031334
031054	026627	000010	000006	CMP    	000010(SP), #000006
031062	001402			BEQ    	031070
031064	005000			CLR    	R0
031066	000402			BR     	031074
031070	012700	000001		MOV    	#000001, R0
031074	116601	000016		MOVB   	000016(SP), R1
031100	105101			COMB   	R1
031102	142701	177776		BICB   	#177776, R1
031106	021627	000006		CMP    	(SP), #000006
031112	001402			BEQ    	031120
031114	005002			CLR    	R2
031116	000402			BR     	031124
031120	012702	000001		MOV    	#000001, R2
031124	105102			COMB   	R2
031126	140201			BICB   	R2, R1
031130	150001			BISB   	R0, R1
031132	001002			BNE    	031140
031134	000167	000060		JMP    	031220
031140	005046			CLR    	-(SP)
031142	010604			MOV    	SP, R4
031144	062704	000002		ADD    	#000002, R4
031150	162706	000050		SUB    	#000050, SP
031154	010500			MOV    	R5, R0
031156	062700	002556		ADD    	#002556, R0
031162	010601			MOV    	SP, R1
031164	012702	000024		MOV    	#000024, R2
031170	012021			MOV    	(R0)+, (R1)+
031172	005302			DEC    	R2
031174	001375			BNE    	031170
031176	004767	174606		CALL   	026010
031202	105726			TSTB   	(SP)+
031204	001002			BNE    	031212
031206	000167	000006		JMP    	031220
031212	112765	000015	053436	MOVB   	#000015, 053436(R5)
031220	021627	000006		CMP    	(SP), #000006
031224	001402			BEQ    	031232
031226	005000			CLR    	R0
031230	000402			BR     	031236
031232	012700	000001		MOV    	#000001, R0
031236	105100			COMB   	R0
031240	116601	000016		MOVB   	000016(SP), R1
031244	140001			BICB   	R0, R1
031246	001002			BNE    	031254
031250	000167	000060		JMP    	031334
031254	005046			CLR    	-(SP)
031256	010604			MOV    	SP, R4
031260	062704	000002		ADD    	#000002, R4
031264	162706	000050		SUB    	#000050, SP
031270	010500			MOV    	R5, R0
031272	062700	002626		ADD    	#002626, R0
031276	010601			MOV    	SP, R1
031300	012702	000024		MOV    	#000024, R2
031304	012021			MOV    	(R0)+, (R1)+
031306	005302			DEC    	R2
031310	001375			BNE    	031304
031312	004767	174472		CALL   	026010
031316	105726			TSTB   	(SP)+
031320	001002			BNE    	031326
031322	000167	000006		JMP    	031334
031326	112765	000015	053436	MOVB   	#000015, 053436(R5)
031334	026527	053434	071000	CMP    	053434(R5), #071000
031342	001402			BEQ    	031350
031344	000167	000024		JMP    	031374
031350	016600	000014		MOV    	000014(SP), R0
031354	042700	177776		BIC    	#177776, R0
031360	001002			BNE    	031366
031362	000167	000006		JMP    	031374
031366	112765	000015	053436	MOVB   	#000015, 053436(R5)
031374	026527	053434	000100	CMP    	053434(R5), #000100
031402	001402			BEQ    	031410
031404	005000			CLR    	R0
031406	000402			BR     	031414
031410	012700	000001		MOV    	#000001, R0
031414	026527	053434	004000	CMP    	053434(R5), #004000
031422	001402			BEQ    	031430
031424	005001			CLR    	R1
031426	000402			BR     	031434
031430	012701	000001		MOV    	#000001, R1
031434	150001			BISB   	R0, R1
031436	001002			BNE    	031444
031440	000167	000054		JMP    	031520
031444	005766	000002		TST    	000002(SP)
031450	001402			BEQ    	031456
031452	005000			CLR    	R0
031454	000402			BR     	031462
031456	012700	000001		MOV    	#000001, R0
031462	021627	000002		CMP    	(SP), #000002
031466	003402			BLE    	031474
031470	005001			CLR    	R1
031472	000402			BR     	031500
031474	012701	000001		MOV    	#000001, R1
031500	105101			COMB   	R1
031502	140100			BICB   	R1, R0
031504	001002			BNE    	031512
031506	000167	000006		JMP    	031520
031512	112765	000015	053436	MOVB   	#000015, 053436(R5)
031520	012746	033356		MOV    	#033356, -(SP)
031524	004767	020566		CALL   	052316	; PSHSET ; $B52
031530	005046			CLR    	-(SP)
031532	116516	053436		MOVB   	053436(R5), (SP)
031536	004767	020372		CALL   	052134	; DOIN ; $B40
031542	001002			BNE    	031550
031544	000167	000160		JMP    	031730
031550	026627	000004	000007	CMP    	000004(SP), #000007
031556	001402			BEQ    	031564
031560	005000			CLR    	R0
031562	000402			BR     	031570
031564	012700	000001		MOV    	#000001, R0
031570	011601			MOV    	(SP), R1
031572	042701	177774		BIC    	#177774, R1
031576	001402			BEQ    	031604
031600	005001			CLR    	R1
031602	000402			BR     	031610
031604	012701	000001		MOV    	#000001, R1
031610	105101			COMB   	R1
031612	140100			BICB   	R1, R0
031614	001002			BNE    	031622
031616	000167	000006		JMP    	031630
031622	112765	000015	053436	MOVB   	#000015, 053436(R5)
031630	021627	000006		CMP    	(SP), #000006
031634	001402			BEQ    	031642
031636	000167	000066		JMP    	031730
031642	005046			CLR    	-(SP)
031644	010604			MOV    	SP, R4
031646	062704	000002		ADD    	#000002, R4
031652	162706	000050		SUB    	#000050, SP
031656	010500			MOV    	R5, R0
031660	062700	002556		ADD    	#002556, R0
031664	010601			MOV    	SP, R1
031666	012702	000024		MOV    	#000024, R2
031672	012021			MOV    	(R0)+, (R1)+
031674	005302			DEC    	R2
031676	001375			BNE    	031672
031700	004767	173674		CALL   	025600
031704	112600			MOVB   	(SP)+, R0
031706	105100			COMB   	R0
031710	142700	177776		BICB   	#177776, R0
031714	001002			BNE    	031722
031716	000167	000006		JMP    	031730
031722	112765	000015	053436	MOVB   	#000015, 053436(R5)
031730	126527	053436	000015	CMPB   	053436(R5), #000015
031736	001402			BEQ    	031744
031740	000167	000030		JMP    	031774
031744	004767	164520		CALL   	016470
031750	004767	156570		CALL   	010544
031754	012746	000040		MOV    	#000040, -(SP)
031760	004767	156456		CALL   	010442
031764	004767	170650		CALL   	022640
031770	000167	001230		JMP    	033224
031774	126527	053436	000014	CMPB   	053436(R5), #000014
032002	001402			BEQ    	032010
032004	000167	000030		JMP    	032040
032010	004767	156530		CALL   	010544
032014	012746	000040		MOV    	#000040, -(SP)
032020	004767	156416		CALL   	010442
032024	016546	053432		MOV    	053432(R5), -(SP)
032030	004767	156776		CALL   	011032
032034	000167	001164		JMP    	033224
032040	004767	156500		CALL   	010544
032044	162706	000006		SUB    	#000006, SP
032050	010600			MOV    	SP, R0
032052	016520	053440		MOV    	053440(R5), (R0)+
032056	016520	053442		MOV    	053442(R5), (R0)+
032062	016520	053444		MOV    	053444(R5), (R0)+
032066	004767	157510		CALL   	011602
032072	026527	053434	000207	CMP    	053434(R5), #000207
032100	001402			BEQ    	032106
032102	000167	000024		JMP    	032132
032106	162706	000006		SUB    	#000006, SP
032112	012700	033236		MOV    	#033236, R0
032116	010601			MOV    	SP, R1
032120	012021			MOV    	(R0)+, (R1)+
032122	012021			MOV    	(R0)+, (R1)+
032124	012021			MOV    	(R0)+, (R1)+
032126	004767	156430		CALL   	010562
032132	004767	156406		CALL   	010544
032136	116500	053436		MOVB   	053436(R5), R0
032142	162700	000001		SUB    	#000001, R0
032146	002002			BGE    	032154
032150	000167	001016		JMP    	033172
032154	022700	000012		CMP    	#000012, R0
032160	002002			BGE    	032166
032162	000167	001004		JMP    	033172
032166	006300			ASL    	R0
032170	000170	033176		JMP    	@033176(R0)
032174	010604			MOV    	SP, R4 ; 2 ;
032176	004767	174224		CALL   	026426
032202	005016			CLR    	(SP)
032204	005066	000002		CLR    	000002(SP)
032210	010604			MOV    	SP, R4
032212	004767	175142		CALL   	027360
032216	000167	001002		JMP    	033224
032222	010604			MOV    	SP, R4 ; 1 ;
032224	004767	174176		CALL   	026426
032230	026527	053434	000100	CMP    	053434(R5), #000100
032236	001402			BEQ    	032244
032240	000167	000024		JMP    	032270
032244	012746	033346		MOV    	#033346, -(SP)
032250	004767	020042		CALL   	052316	; PSHSET ; $B52
032254	010500			MOV    	R5, R0
032256	062700	052356		ADD    	#052356, R0
032262	010046			MOV    	R0, -(SP)
032264	004767	020070		CALL   	052360	; POPSET ; $B54
032270	026527	053434	004700	CMP    	053434(R5), #004700
032276	001402			BEQ    	032304
032300	000167	000024		JMP    	032330
032304	012746	033336		MOV    	#033336, -(SP)
032310	004767	020002		CALL   	052316	; PSHSET ; $B52
032314	010500			MOV    	R5, R0
032316	062700	052356		ADD    	#052356, R0
032322	010046			MOV    	R0, -(SP)
032324	004767	020030		CALL   	052360	; POPSET ; $B54
032330	010604			MOV    	SP, R4
032332	004767	175022		CALL   	027360
032336	000167	000662		JMP    	033224
032342	010604			MOV    	SP, R4 ; 6 ;
032344	004767	174132		CALL   	026502
032350	005016			CLR    	(SP)
032352	005066	000002		CLR    	000002(SP)
032356	010604			MOV    	SP, R4
032360	004767	174774		CALL   	027360
032364	162706	000006		SUB    	#000006, SP
032370	012700	033246		MOV    	#033246, R0
032374	010601			MOV    	SP, R1
032376	012021			MOV    	(R0)+, (R1)+
032400	012021			MOV    	(R0)+, (R1)+
032402	012021			MOV    	(R0)+, (R1)+
032404	004767	156152		CALL   	010562
032410	010604			MOV    	SP, R4
032412	004767	174010		CALL   	026426
032416	026527	053434	004000	CMP    	053434(R5), #004000
032424	001402			BEQ    	032432
032426	000167	000024		JMP    	032456
032432	012746	033326		MOV    	#033326, -(SP)
032436	004767	017654		CALL   	052316	; PSHSET ; $B52
032442	010500			MOV    	R5, R0
032444	062700	052356		ADD    	#052356, R0
032450	010046			MOV    	R0, -(SP)
032452	004767	017702		CALL   	052360	; POPSET ; $B54
032456	010604			MOV    	SP, R4
032460	004767	174674		CALL   	027360
032464	000167	000534		JMP    	033224
032470	010604			MOV    	SP, R4 ; 7 ;
032472	004767	173730		CALL   	026426
032476	010604			MOV    	SP, R4
032500	004767	174654		CALL   	027360
032504	162706	000006		SUB    	#000006, SP
032510	012700	033256		MOV    	#033256, R0
032514	010601			MOV    	SP, R1
032516	012021			MOV    	(R0)+, (R1)+
032520	012021			MOV    	(R0)+, (R1)+
032522	012021			MOV    	(R0)+, (R1)+
032524	004767	156032		CALL   	010562
032530	010604			MOV    	SP, R4
032532	004767	173744		CALL   	026502
032536	005016			CLR    	(SP)
032540	005066	000002		CLR    	000002(SP)
032544	010604			MOV    	SP, R4
032546	004767	174606		CALL   	027360
032552	000167	000446		JMP    	033224
032556	010604			MOV    	SP, R4 ; 12 ;
032560	004767	173716		CALL   	026502
032564	010604			MOV    	SP, R4
032566	004767	174566		CALL   	027360
032572	162706	000006		SUB    	#000006, SP
032576	012700	033266		MOV    	#033266, R0
032602	010601			MOV    	SP, R1
032604	012021			MOV    	(R0)+, (R1)+
032606	012021			MOV    	(R0)+, (R1)+
032610	012021			MOV    	(R0)+, (R1)+
032612	004767	155744		CALL   	010562
032616	010604			MOV    	SP, R4
032620	004767	173602		CALL   	026426
032624	010604			MOV    	SP, R4
032626	004767	174526		CALL   	027360
032632	000167	000366		JMP    	033224
032636	016500	053432		MOV    	053432(R5), R0 ; 5 ;
032642	042700	177400		BIC    	#177400, R0
032646	010066	000006		MOV    	R0, 000006(SP)
032652	026627	000006	000200	CMP    	000006(SP), #000200
032660	002002			BGE    	032666
032662	000167	000006		JMP    	032674
032666	062766	177400	000006	ADD    	#177400, 000006(SP)
032674	012746	033316		MOV    	#033316, -(SP)
032700	004767	017412		CALL   	052316	; PSHSET ; $B52
032704	010500			MOV    	R5, R0
032706	062700	052356		ADD    	#052356, R0
032712	010046			MOV    	R0, -(SP)
032714	004767	017440		CALL   	052360	; POPSET ; $B54
032720	162706	000006		SUB    	#000006, SP
032724	010600			MOV    	SP, R0
032726	016520	053402		MOV    	053402(R5), (R0)+
032732	016520	053404		MOV    	053404(R5), (R0)+
032736	016520	053406		MOV    	053406(R5), (R0)+
032742	016600	000014		MOV    	000014(SP), R0
032746	006300			ASL    	R0
032750	066500	053410		ADD    	053410(R5), R0
032754	010046			MOV    	R0, -(SP)
032756	004767	162366		CALL   	015350
032762	000167	000236		JMP    	033224
032766	010604			MOV    	SP, R4 ; 13 ;
032770	004767	173506		CALL   	026502
032774	005016			CLR    	(SP)
032776	005066	000002		CLR    	000002(SP)
033002	010604			MOV    	SP, R4
033004	004767	174350		CALL   	027360
033010	162706	000006		SUB    	#000006, SP
033014	012700	033276		MOV    	#033276, R0
033020	010601			MOV    	SP, R1
033022	012021			MOV    	(R0)+, (R1)+
033024	012021			MOV    	(R0)+, (R1)+
033026	012021			MOV    	(R0)+, (R1)+
033030	004767	155526		CALL   	010562
033034	016500	053432		MOV    	053432(R5), R0
033040	042700	177700		BIC    	#177700, R0
033044	010066	000006		MOV    	R0, 000006(SP)
033050	012746	033306		MOV    	#033306, -(SP)
033054	004767	017236		CALL   	052316	; PSHSET ; $B52
033060	010500			MOV    	R5, R0
033062	062700	052356		ADD    	#052356, R0
033066	010046			MOV    	R0, -(SP)
033070	004767	017264		CALL   	052360	; POPSET ; $B54
033074	162706	000006		SUB    	#000006, SP
033100	010600			MOV    	SP, R0
033102	016520	053402		MOV    	053402(R5), (R0)+
033106	016520	053404		MOV    	053404(R5), (R0)+
033112	016520	053406		MOV    	053406(R5), (R0)+
033116	016600	000014		MOV    	000014(SP), R0
033122	006300			ASL    	R0
033124	016501	053410		MOV    	053410(R5), R1
033130	160001			SUB    	R0, R1
033132	010146			MOV    	R1, -(SP)
033134	004767	162210		CALL   	015350
033140	000167	000060		JMP    	033224
033144	005046			CLR    	-(SP) ; 10 ;
033146	016546	053432		MOV    	053432(R5), -(SP)
033152	004767	155250		CALL   	010426			; L05122
033156	012600			MOV    	(SP)+, R0
033160	010046			MOV    	R0, -(SP)
033162	004767	155644		CALL   	011032
033166	000167	000032		JMP    	033224
033172	000167	000026		JMP    	033224
; CASE OF ADDR BEGIN
033176	032222	032174	033172	033172	;  1  2  3  4
	032636	032342	032470	033144	;  5  6  7 10
	033172	032556	032766		; 11 12 13
; CASE OF ADDR END
033224	004767	155266		CALL	010516
033230	062706	000020		ADD    	#000020, SP
033234	000207			RETURN 	
-------------------------------------------------------------
033236	047122	020134	020040	.ASCIZ	/RN\   /
	000000			.EVEN

033246	020054	020134	020040	.ASCIZ	/, \   /
	000000			.EVEN

033256	020054	020134	020040	.ASCIZ	/, \   /
	000000			.EVEN

033266	020054	020134	020040	.ASCIZ	/, \   /
	000000			.EVEN

033276	020054	020134	020040	.ASCIZ	/, \   /
	000000			.EVEN

; SET OF 5
033306	000040	000000	000000	000000
; SET OF 5
033316	000040	000000	000000	000000
; SET OF 3
033326	000010	000000	000000	000000
; SET OF 3
033336	000010	000000	000000	000000
; SET OF 4
033346	000020	000000	000000	000000
; SET OF 1,6,7
033356	000302	000000	000000	000000
=============================================================
033366	011404			MOV    	(R4), R4
033370	011404			MOV    	(R4), R4
033372	011404			MOV    	(R4), R4
033374	011404			MOV    	(R4), R4
033376	011404			MOV    	(R4), R4
033400	011404			MOV    	(R4), R4
033402	011404			MOV    	(R4), R4
033404	011404			MOV    	(R4), R4
033406	010446			MOV    	R4, -(SP)
033410	004067	017364		JSR    	R0, 053000 ; SVREG ; $B74
033414	022766	000040	000016	CMP    	#000040, 000016(SP)
033422	101402			BLOS   	033430
033424	005000			CLR    	R0
033426	000402			BR     	033434
033430	012700	000001		MOV    	#000001, R0
033434	026627	000016	000177	CMP    	000016(SP), #000177
033442	101402			BLOS   	033450
033444	005001			CLR    	R1
033446	000402			BR     	033454
033450	012701	000001		MOV    	#000001, R1
033454	105101			COMB   	R1
033456	140100			BICB   	R1, R0
033460	026627	000016	000007	CMP    	000016(SP), #000007
033466	001402			BEQ    	033474
033470	005001			CLR    	R1
033472	000402			BR     	033500
033474	012701	000001		MOV    	#000001, R1
033500	150001			BISB   	R0, R1
033502	026627	000016	000011	CMP    	000016(SP), #000011
033510	001402			BEQ    	033516
033512	005000			CLR    	R0
033514	000402			BR     	033522
033516	012700	000001		MOV    	#000001, R0
033522	150100			BISB   	R1, R0
033524	026627	000016	000015	CMP    	000016(SP), #000015
033532	001402			BEQ    	033540
033534	005001			CLR    	R1
033536	000402			BR     	033544
033540	012701	000001		MOV    	#000001, R1
033544	150001			BISB   	R0, R1
033546	026627	000016	000012	CMP    	000016(SP), #000012
033554	001402			BEQ    	033562
033556	005000			CLR    	R0
033560	000402			BR     	033566
033562	012700	000001		MOV    	#000001, R0
033566	150100			BISB   	R1, R0
033570	026627	000016	000014	CMP    	000016(SP), #000014
033576	001402			BEQ    	033604
033600	005001			CLR    	R1
033602	000402			BR     	033610
033604	012701	000001		MOV    	#000001, R1
033610	150001			BISB   	R0, R1
033612	026627	000016	000200	CMP    	000016(SP), #000200
033620	001402			BEQ    	033626
033622	005000			CLR    	R0
033624	000402			BR     	033632
033626	012700	000001		MOV    	#000001, R0
033632	150100			BISB   	R1, R0
033634	005766	000016		TST    	000016(SP)
033640	001402			BEQ    	033646
033642	005001			CLR    	R1
033644	000402			BR     	033652
033646	012701	000001		MOV    	#000001, R1
033652	150001			BISB   	R0, R1
033654	110166	000020		MOVB   	R1, 000020(SP)
033660	004067	017144		JSR    	R0, 053030 ; UNREG ; $B76
033664	016666	000002	000004	MOV    	000002(SP), 000004(SP)
033672	062706	000004		ADD    	#000004, SP
033676	000207			RETURN 	
=========---------------======----------=========---------===
033700	011404			MOV    	(R4), R4
033702	011404			MOV    	(R4), R4
033704	011404			MOV    	(R4), R4
033706	011404			MOV    	(R4), R4
033710	011404			MOV    	(R4), R4
033712	011404			MOV    	(R4), R4
033714	011404			MOV    	(R4), R4
033716	011404			MOV    	(R4), R4
033720	010446			MOV    	R4, -(SP)
033722	004767	017120		CALL   	053046	; STKCHK ; $B127
033726	011600			MOV    	(SP), R0
033730	005760	000074		TST    	000074(R0)
033734	003002			BGT    	033742
033736	000167	001310		JMP    	035252
033742	004767	154576		CALL   	010544
033746	011600			MOV    	(SP), R0
033750	011601			MOV    	(SP), R1
033752	016101	000074		MOV    	000074(R1), R1
033756	020127	000001		CMP    	R1, #000001
033762	002403			BLT    	033772
033764	020127	000074		CMP    	R1, #000074
033770	003402			BLE    	033776
033772	004767	017100		CALL   	053076	; $B125 ; $$B125
033776	060001			ADD    	R0, R1
034000	105761	177777		TSTB   	177777(R1)
034004	001002			BNE    	034012
034006	005000			CLR    	R0
034010	000402			BR     	034016
034012	012700	000001		MOV    	#000001, R0
034016	011601			MOV    	(SP), R1
034020	026127	000074	000001	CMP    	000074(R1), #000001
034026	001402			BEQ    	034034
034030	005001			CLR    	R1
034032	000402			BR     	034040
034034	012701	000001		MOV    	#000001, R1
034040	150001			BISB   	R0, R1
034042	001002			BNE    	034050
034044	000167	000030		JMP    	034100
034050	162706	000006		SUB    	#000006, SP
034054	012700	035266		MOV    	#035266, R0
034060	010601			MOV    	SP, R1
034062	012021			MOV    	(R0)+, (R1)+
034064	012021			MOV    	(R0)+, (R1)+
034066	012021			MOV    	(R0)+, (R1)+
034070	004767	154466		CALL   	010562
034074	000167	000042		JMP    	034142
034100	162706	000006		SUB    	#000006, SP
034104	012700	035276		MOV    	#035276, R0
034110	010601			MOV    	SP, R1
034112	012021			MOV    	(R0)+, (R1)+
034114	012021			MOV    	(R0)+, (R1)+
034116	012021			MOV    	(R0)+, (R1)+
034120	004767	154436		CALL   	010562
034124	011600			MOV    	(SP), R0
034126	011601			MOV    	(SP), R1
034130	016101	000074		MOV    	000074(R1), R1
034134	005301			DEC    	R1
034136	010160	000074		MOV    	R1, 000074(R0)
034142	004767	154376		CALL   	010544
034146	011600			MOV    	(SP), R0
034150	112760	000042	000101	MOVB   	#000042, 000101(R0)
034156	011600			MOV    	(SP), R0
034160	062700	000076		ADD    	#000076, R0
034164	010046			MOV    	R0, -(SP)
034166	012746	000001		MOV    	#000001, -(SP)
034172	016600	000004		MOV    	000004(SP), R0
034176	016046	000074		MOV    	000074(R0), -(SP)
034202	016676	000002	000004	MOV    	000002(SP), @000004(SP)
034210	027616	000004		CMP    	@000004(SP), (SP)
034214	003402			BLE    	034222
034216	000167	000100		JMP    	034322
034222	016600	000006		MOV    	000006(SP), R0
034226	016601	000006		MOV    	000006(SP), R1
034232	016101	000076		MOV    	000076(R1), R1
034236	020127	000001		CMP    	R1, #000001
034242	002403			BLT    	034252
034244	020127	000074		CMP    	R1, #000074
034250	003402			BLE    	034256
034252	004767	016620		CALL   	053076	; $B125 ; $$B125
034256	060001			ADD    	R0, R1
034260	016600	000006		MOV    	000006(SP), R0
034264	126160	177777	000101	CMPB   	177777(R1), 000101(R0)
034272	001402			BEQ    	034300
034274	000167	000012		JMP    	034312
034300	016600	000006		MOV    	000006(SP), R0
034304	112760	000057	000101	MOVB   	#000057, 000101(R0)
034312	005276	000004		INC    	@000004(SP)
034316	000167	177666		JMP    	034210
034322	062706	000006		ADD    	#000006, SP
034326	011600			MOV    	(SP), R0
034330	121027	000040		CMPB   	(R0), #000040
034334	002002			BGE    	034342
034336	000167	000014		JMP    	034356
034342	011600			MOV    	(SP), R0
034344	005046			CLR    	-(SP)
034346	116016	000101		MOVB   	000101(R0), (SP)
034352	004767	154064		CALL   	010442
034356	011600			MOV    	(SP), R0
034360	062700	000076		ADD    	#000076, R0
034364	010046			MOV    	R0, -(SP)
034366	012746	000001		MOV    	#000001, -(SP)
034372	016600	000004		MOV    	000004(SP), R0
034376	016046	000074		MOV    	000074(R0), -(SP)
034402	016676	000002	000004	MOV    	000002(SP), @000004(SP)
034410	027616	000004		CMP    	@000004(SP), (SP)
034414	003402			BLE    	034422
034416	000167	000536		JMP    	035160
034422	016600	000006		MOV    	000006(SP), R0
034426	016601	000006		MOV    	000006(SP), R1
034432	016101	000076		MOV    	000076(R1), R1
034436	020127	000001		CMP    	R1, #000001
034442	002403			BLT    	034452
034444	020127	000074		CMP    	R1, #000074
034450	003402			BLE    	034456
034452	004767	016420		CALL   	053076	; $B125 ; $$B125
034456	060001			ADD    	R0, R1
034460	126127	177777	000040	CMPB   	177777(R1), #000040
034466	002002			BGE    	034474
034470	000167	000054		JMP    	034550
034474	016600	000006		MOV    	000006(SP), R0
034500	016601	000006		MOV    	000006(SP), R1
034504	016101	000076		MOV    	000076(R1), R1
034510	020127	000001		CMP    	R1, #000001
034514	002403			BLT    	034524
034516	020127	000074		CMP    	R1, #000074
034522	003402			BLE    	034530
034524	004767	016346		CALL   	053076	; $B125 ; $$B125
034530	060001			ADD    	R0, R1
034532	005046			CLR    	-(SP)
034534	116116	177777		MOVB   	177777(R1), (SP)
034540	004767	153676		CALL   	010442
034544	000167	000400		JMP    	035150
034550	016600	000006		MOV    	000006(SP), R0
034554	026027	000076	000001	CMP    	000076(R0), #000001
034562	003002			BGT    	034570
034564	000167	000072		JMP    	034662
034570	016600	000006		MOV    	000006(SP), R0
034574	016601	000006		MOV    	000006(SP), R1
034600	016101	000076		MOV    	000076(R1), R1
034604	005301			DEC    	R1
034606	020127	000001		CMP    	R1, #000001
034612	002403			BLT    	034622
034614	020127	000074		CMP    	R1, #000074
034620	003402			BLE    	034626
034622	004767	016250		CALL   	053076	; $B125 ; $$B125
034626	060001			ADD    	R0, R1
034630	126127	177777	000040	CMPB   	177777(R1), #000040
034636	002002			BGE    	034644
034640	000167	000016		JMP    	034662
034644	016600	000006		MOV    	000006(SP), R0
034650	005046			CLR    	-(SP)
034652	116016	000101		MOVB   	000101(R0), (SP)
034656	004767	153560		CALL   	010442
034662	012746	000074		MOV    	#000074, -(SP)
034666	004767	153550		CALL   	010442
034672	016600	000006		MOV    	000006(SP), R0
034676	016601	000006		MOV    	000006(SP), R1
034702	016602	000006		MOV    	000006(SP), R2
034706	016202	000076		MOV    	000076(R2), R2
034712	020227	000001		CMP    	R2, #000001
034716	002403			BLT    	034726
034720	020227	000074		CMP    	R2, #000074
034724	003402			BLE    	034732
034726	004767	016144		CALL   	053076	; $B125 ; $$B125
034732	060102			ADD    	R1, R2
034734	116201	177777		MOVB   	177777(R2), R1
034740	010160	000102		MOV    	R1, 000102(R0)
034744	016600	000006		MOV    	000006(SP), R0
034750	005760	000102		TST    	000102(R0)
034754	002402			BLT    	034762
034756	000167	000024		JMP    	035006
034762	016600	000006		MOV    	000006(SP), R0
034766	016601	000006		MOV    	000006(SP), R1
034772	016101	000102		MOV    	000102(R1), R1
034776	062701	000400		ADD    	#000400, R1
035002	010160	000102		MOV    	R1, 000102(R0)
035006	016600	000006		MOV    	000006(SP), R0
035012	016046	000102		MOV    	000102(R0), -(SP)
035016	004767	154010		CALL   	011032
035022	012746	000076		MOV    	#000076, -(SP)
035026	004767	153410		CALL   	010442
035032	016600	000006		MOV    	000006(SP), R0
035036	016601	000006		MOV    	000006(SP), R1
035042	026061	000076	000074	CMP    	000076(R0), 000074(R1)
035050	002402			BLT    	035056
035052	000167	000072		JMP    	035150
035056	016600	000006		MOV    	000006(SP), R0
035062	016601	000006		MOV    	000006(SP), R1
035066	016101	000076		MOV    	000076(R1), R1
035072	005201			INC    	R1
035074	020127	000001		CMP    	R1, #000001
035100	002403			BLT    	035110
035102	020127	000074		CMP    	R1, #000074
035106	003402			BLE    	035114
035110	004767	015762		CALL   	053076	; $B125 ; $$B125
035114	060001			ADD    	R0, R1
035116	126127	177777	000040	CMPB   	177777(R1), #000040
035124	002002			BGE    	035132
035126	000167	000016		JMP    	035150
035132	016600	000006		MOV    	000006(SP), R0
035136	005046			CLR    	-(SP)
035140	116016	000101		MOVB   	000101(R0), (SP)
035144	004767	153272		CALL   	010442
035150	005276	000004		INC    	@000004(SP)
035154	000167	177230		JMP    	034410
035160	062706	000006		ADD    	#000006, SP
035164	011600			MOV    	(SP), R0
035166	011601			MOV    	(SP), R1
035170	016101	000074		MOV    	000074(R1), R1
035174	020127	000001		CMP    	R1, #000001
035200	002403			BLT    	035210
035202	020127	000074		CMP    	R1, #000074
035206	003402			BLE    	035214
035210	004767	015662		CALL   	053076	; $B125 ; $$B125
035214	060001			ADD    	R0, R1
035216	126127	177777	000040	CMPB   	177777(R1), #000040
035224	002002			BGE    	035232
035226	000167	000014		JMP    	035246
035232	011600			MOV    	(SP), R0
035234	005046			CLR    	-(SP)
035236	116016	000101		MOVB   	000101(R0), (SP)
035242	004767	153174		CALL   	010442
035246	004767	153244		CALL   	010516
035252	011600			MOV    	(SP), R0
035254	005060	000074		CLR    	000074(R0)
035260	062706	000002		ADD    	#000002, SP
035264	000207			RETURN 	
-------------------------------------------------------------
035266	040456	041523	044511	.ASCIZ	/.ASCII/
	000000			.EVEN

035276	040456	041523	055111	.ASCIZ	/.ASCIZ/
	000000			.EVEN
========----------=========-----------=======---------=======
035306	011404			MOV    	(R4), R4
035310	011404			MOV    	(R4), R4
035312	011404			MOV    	(R4), R4
035314	011404			MOV    	(R4), R4
035316	011404			MOV    	(R4), R4
035320	011404			MOV    	(R4), R4
035322	011404			MOV    	(R4), R4
035324	011404			MOV    	(R4), R4
035326	010446			MOV    	R4, -(SP)
035330	004767	015512		CALL   	053046	; STKCHK ; $B127
035334	011600			MOV    	(SP), R0
035336	011601			MOV    	(SP), R1
035340	016101	000074		MOV    	000074(R1), R1
035344	005201			INC    	R1
035346	010160	000074		MOV    	R1, 000074(R0)
035352	011600			MOV    	(SP), R0
035354	011601			MOV    	(SP), R1
035356	016101	000074		MOV    	000074(R1), R1
035362	020127	000001		CMP    	R1, #000001
035366	002403			BLT    	035376
035370	020127	000074		CMP    	R1, #000074
035374	003402			BLE    	035402
035376	004767	015474		CALL   	053076	; $B125 ; $$B125
035402	060001			ADD    	R0, R1
035404	116661	000004	177777	MOVB   	000004(SP), 177777(R1)
035412	011600			MOV    	(SP), R0
035414	026027	000074	000074	CMP    	000074(R0), #000074
035422	002002			BGE    	035430
035424	005000			CLR    	R0
035426	000402			BR     	035434
035430	012700	000001		MOV    	#000001, R0
035434	005766	000004		TST    	000004(SP)
035440	001402			BEQ    	035446
035442	005001			CLR    	R1
035444	000402			BR     	035452
035446	012701	000001		MOV    	#000001, R1
035452	150001			BISB   	R0, R1
035454	026627	000004	000200	CMP    	000004(SP), #000200
035462	001402			BEQ    	035470
035464	005000			CLR    	R0
035466	000402			BR     	035474
035470	012700	000001		MOV    	#000001, R0
035474	150100			BISB   	R1, R0
035476	001002			BNE    	035504
035500	000167	000006		JMP    	035512
035504	010604			MOV    	SP, R4
035506	004767	176204		CALL   	033716
035512	005265	053410		INC    	053410(R5)
035516	016666	000002	000004	MOV    	000002(SP), 000004(SP)
035524	062706	000004		ADD    	#000004, SP
035530	000207			RETURN 	
======------------========------------========--------=======
035532	162706	000106		SUB    	#000106, SP
035536	004767	015304		CALL   	053046	; STKCHK ; $B127
035542	105066	000100		CLRB   	000100(SP)
035546	016500	053410		MOV    	053410(R5), R0
035552	062700	000003		ADD    	#000003, R0
035556	020065	053424		CMP    	R0, 053424(R5)
035562	101402			BLOS   	035570
035564	000167	000706		JMP    	036476
035570	126527	002556	000003	CMPB   	002556(R5), #000003
035576	001402			BEQ    	035604
035600	000167	000672		JMP    	036476
035604	005046			CLR    	-(SP)
035606	010604			MOV    	SP, R4
035610	062704	000002		ADD    	#000002, R4
035614	005046			CLR    	-(SP)
035616	016546	002542		MOV    	002542(R5), -(SP)
035622	004767	152600		CALL   	010426			; L05122
035626	012600			MOV    	(SP)+, R0
035630	010046			MOV    	R0, -(SP)
035632	010604			MOV    	SP, R4
035634	062704	000004		ADD    	#000004, R4
035640	004767	175542		CALL   	033406
035644	005046			CLR    	-(SP)
035646	016546	002542		MOV    	002542(R5), -(SP)
035652	004767	152550		CALL   	010426			; L05122
035656	012600			MOV    	(SP)+, R0
035660	001002			BNE    	035666
035662	005000			CLR    	R0
035664	000402			BR     	035672
035666	012700	000001		MOV    	#000001, R0
035672	105100			COMB   	R0
035674	140016			BICB   	R0, (SP)
035676	026527	002534	000001	CMP    	002534(R5), #000001
035704	001402			BEQ    	035712
035706	005000			CLR    	R0
035710	000402			BR     	035716
035712	012700	000001		MOV    	#000001, R0
035716	005046			CLR    	-(SP)
035720	010604			MOV    	SP, R4
035722	062704	000004		ADD    	#000004, R4
035726	005046			CLR    	-(SP)
035730	016546	002542		MOV    	002542(R5), -(SP)
035734	004767	152472		CALL   	010432			; L05160
035740	012601			MOV    	(SP)+, R1
035742	010146			MOV    	R1, -(SP)
035744	010604			MOV    	SP, R4
035746	062704	000006		ADD    	#000006, R4
035752	004767	175430		CALL   	033406
035756	005046			CLR    	-(SP)
035760	016546	002542		MOV    	002542(R5), -(SP)
035764	004767	152442		CALL   	010432			; L05160
035770	012601			MOV    	(SP)+, R1
035772	001002			BNE    	036000
035774	005001			CLR    	R1
035776	000402			BR     	036004
036000	012701	000001		MOV    	#000001, R1
036004	105101			COMB   	R1
036006	140116			BICB   	R1, (SP)
036010	152600			BISB   	(SP)+, R0
036012	105100			COMB   	R0
036014	140016			BICB   	R0, (SP)
036016	005046			CLR    	-(SP)
036020	010604			MOV    	SP, R4
036022	062704	000004		ADD    	#000004, R4
036026	005046			CLR    	-(SP)
036030	016546	002612		MOV    	002612(R5), -(SP)
036034	004767	152366		CALL   	010426			; L05122
036040	012600			MOV    	(SP)+, R0
036042	010046			MOV    	R0, -(SP)
036044	010604			MOV    	SP, R4
036046	062704	000006		ADD    	#000006, R4
036052	004767	175330		CALL   	033406
036056	112600			MOVB   	(SP)+, R0
036060	005100			COM    	R0
036062	140016			BICB   	R0, (SP)
036064	105726			TSTB   	(SP)+
036066	001002			BNE    	036074
036070	000167	000402		JMP    	036476
036074	005066	000074		CLR    	000074(SP)
036100	010604			MOV    	SP, R4
036102	005046			CLR    	-(SP)
036104	016546	002542		MOV    	002542(R5), -(SP)
036110	004767	152312		CALL   	010426			; L05122
036114	012600			MOV    	(SP)+, R0
036116	010046			MOV    	R0, -(SP)
036120	010604			MOV    	SP, R4
036122	062704	000002		ADD    	#000002, R4
036126	004767	177174		CALL   	035326
036132	005765	002534		TST    	002534(R5)
036136	001402			BEQ    	036144
036140	000167	000032		JMP    	036176
036144	010604			MOV    	SP, R4
036146	005046			CLR    	-(SP)
036150	016546	002542		MOV    	002542(R5), -(SP)
036154	004767	152252		CALL   	010432			; L05160
036160	012600			MOV    	(SP)+, R0
036162	010046			MOV    	R0, -(SP)
036164	010604			MOV    	SP, R4
036166	062704	000002		ADD    	#000002, R4
036172	004767	177130		CALL   	035326
036176	010500			MOV    	R5, R0
036200	062700	052366		ADD    	#052366, R0
036204	010046			MOV    	R0, -(SP)
036206	004767	152224		CALL   	010436			; L10104
036212	010604			MOV    	SP, R4
036214	005046			CLR    	-(SP)
036216	016546	002542		MOV    	002542(R5), -(SP)
036222	004767	152200		CALL   	010426			; L05122
036226	012600			MOV    	(SP)+, R0
036230	010046			MOV    	R0, -(SP)
036232	010604			MOV    	SP, R4
036234	062704	000002		ADD    	#000002, R4
036240	004767	177062		CALL   	035326
036244	026527	002534	000001	CMP    	002534(R5), #000001
036252	001402			BEQ    	036260
036254	000167	000020		JMP    	036300
036260	010500			MOV    	R5, R0
036262	062700	052366		ADD    	#052366, R0
036266	010046			MOV    	R0, -(SP)
036270	004767	152142		CALL   	010436			; L10104
036274	000167	000032		JMP    	036332
036300	012765	000001	002534	MOV    	#000001, 002534(R5)
036306	005265	002536		INC    	002536(R5)
036312	005046			CLR    	-(SP)
036314	016546	002542		MOV    	002542(R5), -(SP)
036320	004767	152106		CALL   	010432			; L05160
036324	012600			MOV    	(SP)+, R0
036326	010065	002542		MOV    	R0, 002542(R5)
036332	126527	002506	000003	CMPB   	002506(R5), #000003
036340	001002			BNE    	036346
036342	005000			CLR    	R0
036344	000402			BR     	036352
036346	012700	000001		MOV    	#000001, R0
036352	005046			CLR    	-(SP)
036354	010604			MOV    	SP, R4
036356	062704	000002		ADD    	#000002, R4
036362	005046			CLR    	-(SP)
036364	016546	002542		MOV    	002542(R5), -(SP)
036370	004767	152032		CALL   	010426			; L05122
036374	012601			MOV    	(SP)+, R1
036376	010146			MOV    	R1, -(SP)
036400	010604			MOV    	SP, R4
036402	062704	000004		ADD    	#000004, R4
036406	004767	174774		CALL   	033406
036412	112601			MOVB   	(SP)+, R1
036414	105101			COMB   	R1
036416	142701	177776		BICB   	#177776, R1
036422	150001			BISB   	R0, R1
036424	026565	053410	053424	CMP    	053410(R5), 053424(R5)
036432	103002			BHIS   	036440
036434	005000			CLR    	R0
036436	000402			BR     	036444
036440	012700	000001		MOV    	#000001, R0
036444	150100			BISB   	R1, R0
036446	001002			BNE    	036454
036450	000167	177536		JMP    	036212
036454	112765	000001	053400	MOVB   	#000001, 053400(R5)
036462	010604			MOV    	SP, R4
036464	004767	175230		CALL   	033720
036470	112766	000001	000100	MOVB   	#000001, 000100(SP)
036476	116600	000100		MOVB   	000100(SP), R0
036502	105100			COMB   	R0
036504	142700	177776		BICB   	#177776, R0
036510	001002			BNE    	036516
036512	000167	000250		JMP    	036766
036516	004767	152022		CALL   	010544
036522	016500	053410		MOV    	053410(R5), R0
036526	005200			INC    	R0
036530	026500	053424		CMP    	053424(R5), R0
036534	001402			BEQ    	036542
036536	000167	000066		JMP    	036630
036542	005765	002534		TST    	002534(R5)
036546	001402			BEQ    	036554
036550	000167	000054		JMP    	036630
036554	005046			CLR    	-(SP)
036556	016546	002542		MOV    	002542(R5), -(SP)
036562	004767	151644		CALL   	010432			; L05160
036566	012600			MOV    	(SP)+, R0
036570	010066	000104		MOV    	R0, 000104(SP)
036574	005046			CLR    	-(SP)
036576	016546	002542		MOV    	002542(R5), -(SP)
036602	004767	151620		CALL   	010426			; L05122
036606	012600			MOV    	(SP)+, R0
036610	010065	002542		MOV    	R0, 002542(R5)
036614	012765	000001	002534	MOV    	#000001, 002534(R5)
036622	112765	000001	053400	MOVB   	#000001, 053400(R5)
036630	005765	002534		TST    	002534(R5)
036634	001402			BEQ    	036642
036636	000167	000014		JMP    	036656
036642	012746	000040		MOV    	#000040, -(SP)
036646	004767	151570		CALL   	010442
036652	000167	000034		JMP    	036712
036656	162706	000006		SUB    	#000006, SP
036662	012700	036774		MOV    	#036774, R0
036666	010601			MOV    	SP, R1
036670	012021			MOV    	(R0)+, (R1)+
036672	012021			MOV    	(R0)+, (R1)+
036674	012021			MOV    	(R0)+, (R1)+
036676	004767	151660		CALL   	010562
036702	004767	151636		CALL   	010544
036706	004767	157556		CALL   	016470
036712	004767	163722		CALL   	022640
036716	004767	151574		CALL   	010516
036722	012700	000002		MOV    	#000002, R0
036726	166500	002534		SUB    	002534(R5), R0
036732	066500	053410		ADD    	053410(R5), R0
036736	010065	053410		MOV    	R0, 053410(R5)
036742	105765	053400		TSTB   	053400(R5)
036746	001002			BNE    	036754
036750	000167	000012		JMP    	036766
036754	005265	002536		INC    	002536(R5)
036760	016665	000104	002542	MOV    	000104(SP), 002542(R5)
036766	062706	000106		ADD    	#000106, SP
036772	000207			RETURN 	
-------------------------------------------------------------
036774	041056	052131	056105	.ASCIZ	/.BYTE\/
	000000			.EVEN
=============================================================
037004	004767	014036		CALL   	053046	; STKCHK ; $B127
037010	010500			MOV    	R5, R0
037012	062700	053402		ADD    	#053402, R0
037016	010601			MOV    	SP, R1
037020	062701	000004		ADD    	#000004, R1
037024	012702	000006		MOV    	#000006, R2
037030	122021			CMPB   	(R0)+, (R1)+
037032	001002			BNE    	037040
037034	005302			DEC    	R2
037036	001374			BNE    	037030
037040	001002			BNE    	037046
037042	005000			CLR    	R0
037044	000402			BR     	037052
037046	012700	000001		MOV    	#000001, R0
037052	026665	000002	053410	CMP    	000002(SP), 053410(R5)
037060	001002			BNE    	037066
037062	005001			CLR    	R1
037064	000402			BR     	037072
037066	012701	000001		MOV    	#000001, R1
037072	150001			BISB   	R0, R1
037074	001002			BNE    	037102
037076	000167	000004		JMP    	037106
037102	004767	151410		CALL   	010516
037106	010500			MOV    	R5, R0
037110	062700	053402		ADD    	#053402, R0
037114	010601			MOV    	SP, R1
037116	062701	000004		ADD    	#000004, R1
037122	012702	000006		MOV    	#000006, R2
037126	122021			CMPB   	(R0)+, (R1)+
037130	001002			BNE    	037136
037132	005302			DEC    	R2
037134	001374			BNE    	037126
037136	001002			BNE    	037144
037140	000167	000370		JMP    	037534
037144	162706	000006		SUB    	#000006, SP
037150	010600			MOV    	SP, R0
037152	016520	053402		MOV    	053402(R5), (R0)+
037156	016520	053404		MOV    	053404(R5), (R0)+
037162	016520	053406		MOV    	053406(R5), (R0)+
037166	004767	153070		CALL   	012262
037172	016500	004370		MOV    	004370(R5), R0
037176	020027	000000		CMP    	R0, #000000
037202	002403			BLT    	037212
037204	020027	000030		CMP    	R0, #000030
037210	003402			BLE    	037216
037212	004767	013660		CALL   	053076	; $B125 ; $$B125
037216	010046			MOV    	R0, -(SP)
037220	012746	000014		MOV    	#000014, -(SP)
037224	004767	013374		CALL   	052624	; UNSMUL ; $B116
037230	010500			MOV    	R5, R0
037232	062600			ADD    	(SP)+, R0
037234	016560	053410	003722	MOV    	053410(R5), 003722(R0)
037242	004767	151276		CALL   	010544
037246	012700	012674		MOV    	#012674, R0
037252	010601			MOV    	SP, R1
037254	062701	000004		ADD    	#000004, R1
037260	012702	000006		MOV    	#000006, R2
037264	122021			CMPB   	(R0)+, (R1)+
037266	001002			BNE    	037274
037270	005302			DEC    	R2
037272	001374			BNE    	037264
037274	001402			BEQ    	037302
037276	000167	000030		JMP    	037332
037302	162706	000006		SUB    	#000006, SP
037306	012700	037652		MOV    	#037652, R0
037312	010601			MOV    	SP, R1
037314	012021			MOV    	(R0)+, (R1)+
037316	012021			MOV    	(R0)+, (R1)+
037320	012021			MOV    	(R0)+, (R1)+
037322	004767	151234		CALL   	010562
037326	000167	000056		JMP    	037410
037332	162706	000006		SUB    	#000006, SP
037336	012700	037662		MOV    	#037662, R0
037342	010601			MOV    	SP, R1
037344	012021			MOV    	(R0)+, (R1)+
037346	012021			MOV    	(R0)+, (R1)+
037350	012021			MOV    	(R0)+, (R1)+
037352	004767	151204		CALL   	010562
037356	004767	151162		CALL   	010544
037362	162706	000006		SUB    	#000006, SP
037366	010600			MOV    	SP, R0
037370	016620	000012		MOV    	000012(SP), (R0)+
037374	016620	000014		MOV    	000014(SP), (R0)+
037400	016620	000016		MOV    	000016(SP), (R0)+
037404	004767	152172		CALL   	011602
037410	004767	151102		CALL   	010516
037414	016665	000004	053402	MOV    	000004(SP), 053402(R5)
037422	016665	000006	053404	MOV    	000006(SP), 053404(R5)
037430	016665	000010	053406	MOV    	000010(SP), 053406(R5)
037436	162706	000006		SUB    	#000006, SP
037442	010600			MOV    	SP, R0
037444	016520	053402		MOV    	053402(R5), (R0)+
037450	016520	053404		MOV    	053404(R5), (R0)+
037454	016520	053406		MOV    	053406(R5), (R0)+
037460	004767	152576		CALL   	012262
037464	016500	004370		MOV    	004370(R5), R0
037470	020027	000000		CMP    	R0, #000000
037474	002403			BLT    	037504
037476	020027	000030		CMP    	R0, #000030
037502	003402			BLE    	037510
037504	004767	013366		CALL   	053076	; $B125 ; $$B125
037510	010046			MOV    	R0, -(SP)
037512	012746	000014		MOV    	#000014, -(SP)
037516	004767	013102		CALL   	052624	; UNSMUL ; $B116
037522	010500			MOV    	R5, R0
037524	062600			ADD    	(SP)+, R0
037526	016065	003722	053410	MOV    	003722(R0), 053410(R5)
037534	026665	000002	053410	CMP    	000002(SP), 053410(R5)
037542	001002			BNE    	037550
037544	000167	000070		JMP    	037640
037550	162706	000006		SUB    	#000006, SP
037554	012700	037672		MOV    	#037672, R0
037560	010601			MOV    	SP, R1
037562	012021			MOV    	(R0)+, (R1)+
037564	012021			MOV    	(R0)+, (R1)+
037566	012021			MOV    	(R0)+, (R1)+
037570	004767	150766		CALL   	010562
037574	162706	000006		SUB    	#000006, SP
037600	010600			MOV    	SP, R0
037602	016620	000012		MOV    	000012(SP), (R0)+
037606	016620	000014		MOV    	000014(SP), (R0)+
037612	016620	000016		MOV    	000016(SP), (R0)+
037616	016646	000010		MOV    	000010(SP), -(SP)
037622	004767	155366		CALL   	015214
037626	004767	150664		CALL   	010516
037632	016665	000002	053410	MOV    	000002(SP), 053410(R5)
037640	011666	000010		MOV    	(SP), 000010(SP)
037644	062706	000010		ADD    	#000010, SP
037650	000207			RETURN 	
-------------------------------------------------------------
037652	040456	042523	052103	.ASCIZ	/.ASECT/
	000000			.EVEN

037662	041456	042523	052103	.ASCIZ	/.CSECT/
	000000			.EVEN

037672	020056	020075	020134	.ASCIZ	/. = \ /
	000000			.EVEN
================= MAIN MODULE BEGIN ==============================
037702	062767	053502	010154	ADD    	#053502, 050064
037710	004767	013132		CALL   	053046	; STKCHK ; $B127
037714	012746	050032		MOV    	#050032, -(SP)
037720	004767	012372		CALL   	052316	; PSHSET ; $B52
037724	010500			MOV    	R5, R0
037726	062700	053462		ADD    	#053462, R0
037732	010046			MOV    	R0, -(SP)
037734	004767	012420		CALL   	052360	; POPSET ; $B54
037740	012746	050022		MOV    	#050022, -(SP)
037744	004767	012346		CALL   	052316	; PSHSET ; $B52
037750	010500			MOV    	R5, R0
037752	062700	053472		ADD    	#053472, R0
037756	010046			MOV    	R0, -(SP)
037760	004767	012374		CALL   	052360	; POPSET ; $B54
037764	004767	150406		CALL   	010376			; L01000
037770	012746	050012		MOV    	#050012, -(SP)
037774	004767	012316		CALL   	052316	; PSHSET ; $B52
040000	010500			MOV    	R5, R0
040002	062700	002640		ADD    	#002640, R0
040006	010046			MOV    	R0, -(SP)
040010	004767	012344		CALL   	052360	; POPSET ; $B54
040014	012765	000001	000400	MOV    	#000001, 000400(R5)
040022	005065	004366		CLR    	004366(R5)
040026	005065	007200		CLR    	007200(R5)
040032	004767	155122		CALL   	015160
040036	005065	053426		CLR    	053426(R5)
040042	005065	053430		CLR    	053430(R5)
040046	010500			MOV    	R5, R0
040050	062700	002676		ADD    	#002676, R0
040054	010046			MOV    	R0, -(SP)
040056	005046			CLR    	-(SP)
040060	012746	000002		MOV    	#000002, -(SP)
040064	016676	000002	000004	MOV    	000002(SP), @000004(SP)
040072	027616	000004		CMP    	@000004(SP), (SP)
040076	003402			BLE    	040104
040100	000167	007112		JMP    	047216
040104	010500			MOV    	R5, R0
040106	062700	052366		ADD    	#052366, R0
040112	010046			MOV    	R0, -(SP)
040114	012746	000003		MOV    	#000003, -(SP)
040120	012746	000001		MOV    	#000001, -(SP)
040124	004767	150252		CALL   	010402			; L01304
040130	010500			MOV    	R5, R0
040132	062700	002700		ADD    	#002700, R0
040136	010046			MOV    	R0, -(SP)
040140	005046			CLR    	-(SP)
040142	012746	000002		MOV    	#000002, -(SP)
040146	004767	150230		CALL   	010402			; L01304
040152	112765	000001	001412	MOVB   	#000001, 001412(R5)
040160	105065	002426		CLRB   	002426(R5)
040164	010500			MOV    	R5, R0
040166	062700	052366		ADD    	#052366, R0
040172	010046			MOV    	R0, -(SP)
040174	010500			MOV    	R5, R0
040176	062700	001414		ADD    	#001414, R0
040202	010046			MOV    	R0, -(SP)
040204	004767	150212		CALL   	010422			; L03004
040210	010500			MOV    	R5, R0
040212	062700	052366		ADD    	#052366, R0
040216	010046			MOV    	R0, -(SP)
040220	004767	150212		CALL   	010436			; L10104
040224	010500			MOV    	R5, R0
040226	062700	052366		ADD    	#052366, R0
040232	010046			MOV    	R0, -(SP)
040234	004767	150176		CALL   	010436			; L10104
040240	105065	053400		CLRB   	053400(R5)
040244	005065	053456		CLR    	053456(R5)
040250	116500	053400		MOVB   	053400(R5), R0
040254	105100			COMB   	R0
040256	142700	177776		BICB   	#177776, R0
040262	001002			BNE    	040270
040264	000167	000014		JMP    	040304
040270	010500			MOV    	R5, R0
040272	062700	052366		ADD    	#052366, R0
040276	010046			MOV    	R0, -(SP)
040300	004767	150132		CALL   	010436			; L10104
040304	105065	053400		CLRB   	053400(R5)
040310	005765	053456		TST    	053456(R5)
040314	003002			BGT    	040322
040316	000167	000120		JMP    	040442
040322	126527	002506	000001	CMPB   	002506(R5), #000001
040330	001002			BNE    	040336
040332	005000			CLR    	R0
040334	000402			BR     	040342
040336	012700	000001		MOV    	#000001, R0
040342	126527	002516	000004	CMPB   	002516(R5), #000004
040350	001002			BNE    	040356
040352	005001			CLR    	R1
040354	000402			BR     	040362
040356	012701	000001		MOV    	#000001, R1
040362	150001			BISB   	R0, R1
040364	010500			MOV    	R5, R0
040366	062700	002520		ADD    	#002520, R0
040372	010046			MOV    	R0, -(SP)
040374	004767	011716		CALL   	052316	; PSHSET ; $B52
040400	012746	000003		MOV    	#000003, -(SP)
040404	004767	011524		CALL   	052134	; DOIN ; $B40
040410	001002			BNE    	040416
040412	005000			CLR    	R0
040414	000402			BR     	040422
040416	012700	000001		MOV    	#000001, R0
040422	150100			BISB   	R1, R0
040424	001002			BNE    	040432
040426	000167	000010		JMP    	040442
040432	004767	150060		CALL   	010516
040436	005065	053456		CLR    	053456(R5)
040442	116500	002506		MOVB   	002506(R5), R0
040446	162700	000001		SUB    	#000001, R0
040452	002002			BGE    	040460
040454	000167	006442		JMP    	047122
040460	022700	000005		CMP    	#000005, R0
040464	002002			BGE    	040472
040466	000167	006430		JMP    	047122
040472	006300			ASL    	R0
040474	000170	047126		JMP    	@047126(R0)
040500	116500	002516		MOVB   	002516(R5), R0 ; 1 ;
040504	162700	000000		SUB    	#000000, R0
040510	002002			BGE    	040516
040512	000167	003364		JMP    	044102
040516	022700	000006		CMP    	#000006, R0
040522	002002			BGE    	040530
040524	000167	003352		JMP    	044102
040530	006300			ASL    	R0
040532	000170	044106		JMP    	@044106(R0)
040536	004767	150002		CALL   	010544 ; 0 ;
040542	162706	000006		SUB    	#000006, SP
040546	012700	047240		MOV    	#047240, R0
040552	010601			MOV    	SP, R1
040554	012021			MOV    	(R0)+, (R1)+
040556	012021			MOV    	(R0)+, (R1)+
040560	012021			MOV    	(R0)+, (R1)+
040562	004767	147774		CALL   	010562
040566	004767	147752		CALL   	010544
040572	162706	000006		SUB    	#000006, SP
040576	012700	047250		MOV    	#047250, R0
040602	010601			MOV    	SP, R1
040604	012021			MOV    	(R0)+, (R1)+
040606	012021			MOV    	(R0)+, (R1)+
040610	012021			MOV    	(R0)+, (R1)+
040612	004767	147744		CALL   	010562
040616	004767	147674		CALL   	010516
040622	004767	147716		CALL   	010544
040626	162706	000006		SUB    	#000006, SP
040632	012700	047260		MOV    	#047260, R0
040636	010601			MOV    	SP, R1
040640	012021			MOV    	(R0)+, (R1)+
040642	012021			MOV    	(R0)+, (R1)+
040644	012021			MOV    	(R0)+, (R1)+
040646	004767	147710		CALL   	010562
040652	004767	147666		CALL   	010544
040656	162706	000006		SUB    	#000006, SP
040662	012700	047270		MOV    	#047270, R0
040666	010601			MOV    	SP, R1
040670	012021			MOV    	(R0)+, (R1)+
040672	012021			MOV    	(R0)+, (R1)+
040674	012021			MOV    	(R0)+, (R1)+
040676	004767	147660		CALL   	010562
040702	004767	147610		CALL   	010516
040706	004767	147604		CALL   	010516
040712	004767	147626		CALL   	010544
040716	162706	000006		SUB    	#000006, SP
040722	012700	047300		MOV    	#047300, R0
040726	010601			MOV    	SP, R1
040730	012021			MOV    	(R0)+, (R1)+
040732	012021			MOV    	(R0)+, (R1)+
040734	012021			MOV    	(R0)+, (R1)+
040736	004767	147620		CALL   	010562
040742	004767	147576		CALL   	010544
040746	162706	000006		SUB    	#000006, SP
040752	010600			MOV    	SP, R0
040754	016520	002510		MOV    	002510(R5), (R0)+
040760	016520	002512		MOV    	002512(R5), (R0)+
040764	016520	002514		MOV    	002514(R5), (R0)+
040770	004767	147566		CALL   	010562
040774	004767	147516		CALL   	010516
041000	000167	003120		JMP    	044124
041004	016565	002510	053446	MOV    	002510(R5), 053446(R5) ; 3 ;
041012	016565	002512	053450	MOV    	002512(R5), 053450(R5)
041020	016565	002514	053452	MOV    	002514(R5), 053452(R5)
041026	016565	002530	053454	MOV    	002530(R5), 053454(R5)
041034	000167	003064		JMP    	044124
041040	010500			MOV    	R5, R0 ; 4 ;
041042	062700	002520		ADD    	#002520, R0
041046	010046			MOV    	R0, -(SP)
041050	004767	011242		CALL   	052316	; PSHSET ; $B52
041054	012746	000003		MOV    	#000003, -(SP)
041060	004767	011050		CALL   	052134	; DOIN ; $B40
041064	001402			BEQ    	041072
041066	000167	000204		JMP    	041276
041072	005765	053456		TST    	053456(R5)
041076	001402			BEQ    	041104
041100	000167	000074		JMP    	041200
041104	004767	147434		CALL   	010544
041110	162706	000006		SUB    	#000006, SP
041114	012700	047310		MOV    	#047310, R0
041120	010601			MOV    	SP, R1
041122	012021			MOV    	(R0)+, (R1)+
041124	012021			MOV    	(R0)+, (R1)+
041126	012021			MOV    	(R0)+, (R1)+
041130	004767	147426		CALL   	010562
041134	004767	147404		CALL   	010544
041140	162706	000006		SUB    	#000006, SP
041144	010600			MOV    	SP, R0
041146	016520	002510		MOV    	002510(R5), (R0)+
041152	016520	002512		MOV    	002512(R5), (R0)+
041156	016520	002514		MOV    	002514(R5), (R0)+
041162	004767	150414		CALL   	011602
041166	012765	000001	053456	MOV    	#000001, 053456(R5)
041174	000167	000046		JMP    	041246
041200	012746	000054		MOV    	#000054, -(SP)
041204	004767	147232		CALL   	010442
041210	004767	147330		CALL   	010544
041214	162706	000006		SUB    	#000006, SP
041220	010600			MOV    	SP, R0
041222	016520	002510		MOV    	002510(R5), (R0)+
041226	016520	002512		MOV    	002512(R5), (R0)+
041232	016520	002514		MOV    	002514(R5), (R0)+
041236	004767	150340		CALL   	011602
041242	005265	053456		INC    	053456(R5)
041246	026527	053456	000006	CMP    	053456(R5), #000006
041254	002002			BGE    	041262
041256	000167	000010		JMP    	041272
041262	004767	147230		CALL   	010516
041266	005065	053456		CLR    	053456(R5)
041272	000167	000722		JMP    	042220
041276	016500	002676		MOV    	002676(R5), R0
041302	162700	000000		SUB    	#000000, R0
041306	002002			BGE    	041314
041310	000167	000672		JMP    	042206
041314	022700	000002		CMP    	#000002, R0
041320	002002			BGE    	041326
041322	000167	000660		JMP    	042206
041326	006300			ASL    	R0
041330	000170	042212		JMP    	@042212(R0)
041334	012700	012674		MOV    	#012674, R0 ; 0 ;
041340	010501			MOV    	R5, R1
041342	062701	053402		ADD    	#053402, R1
041346	012702	000006		MOV    	#000006, R2
041352	122021			CMPB   	(R0)+, (R1)+
041354	001002			BNE    	041362
041356	005302			DEC    	R2
041360	001374			BNE    	041352
041362	001002			BNE    	041370
041364	000167	000342		JMP    	041732
041370	162706	000006		SUB    	#000006, SP
041374	010600			MOV    	SP, R0
041376	016520	002510		MOV    	002510(R5), (R0)+
041402	016520	002512		MOV    	002512(R5), (R0)+
041406	016520	002514		MOV    	002514(R5), (R0)+
041412	162706	000006		SUB    	#000006, SP
041416	010600			MOV    	SP, R0
041420	016520	053402		MOV    	053402(R5), (R0)+
041424	016520	053404		MOV    	053404(R5), (R0)+
041430	016520	053406		MOV    	053406(R5), (R0)+
041434	016546	002530		MOV    	002530(R5), -(SP)
041440	004767	151454		CALL   	013120
041444	005765	007202		TST    	007202(R5)
041450	001002			BNE    	041456
041452	000167	000254		JMP    	041732
041456	012746	050002		MOV    	#050002, -(SP)
041462	004767	010630		CALL   	052316	; PSHSET ; $B52
041466	010500			MOV    	R5, R0
041470	062700	052356		ADD    	#052356, R0
041474	010046			MOV    	R0, -(SP)
041476	004767	010656		CALL   	052360	; POPSET ; $B54
041502	016500	002530		MOV    	002530(R5), R0
041506	042700	177776		BIC    	#177776, R0
041512	001002			BNE    	041520
041514	000167	000044		JMP    	041564
041520	010500			MOV    	R5, R0
041522	062700	052356		ADD    	#052356, R0
041526	010046			MOV    	R0, -(SP)
041530	004767	010562		CALL   	052316	; PSHSET ; $B52
041534	012746	047772		MOV    	#047772, -(SP)
041540	004767	010552		CALL   	052316	; PSHSET ; $B52
041544	004767	010466		CALL   	052236	; SETOR ; $B56
041550	010500			MOV    	R5, R0
041552	062700	052356		ADD    	#052356, R0
041556	010046			MOV    	R0, -(SP)
041560	004767	010574		CALL   	052360	; POPSET ; $B54
041564	162706	000006		SUB    	#000006, SP
041570	010600			MOV    	SP, R0
041572	016520	053402		MOV    	053402(R5), (R0)+
041576	016520	053404		MOV    	053404(R5), (R0)+
041602	016520	053406		MOV    	053406(R5), (R0)+
041606	016546	002530		MOV    	002530(R5), -(SP)
041612	004767	152050		CALL   	013666
041616	005046			CLR    	-(SP)
041620	162706	000006		SUB    	#000006, SP
041624	010600			MOV    	SP, R0
041626	016520	053402		MOV    	053402(R5), (R0)+
041632	016520	053404		MOV    	053404(R5), (R0)+
041636	016520	053406		MOV    	053406(R5), (R0)+
041642	016546	002530		MOV    	002530(R5), -(SP)
041646	004767	151442		CALL   	013314
041652	105726			TSTB   	(SP)+
041654	001002			BNE    	041662
041656	000167	000050		JMP    	041732
041662	016500	052350		MOV    	052350(R5), R0
041666	020027	000000		CMP    	R0, #000000
041672	002403			BLT    	041702
041674	020027	001750		CMP    	R0, #001750
041700	003402			BLE    	041706
041702	004767	011170		CALL   	053076	; $B125 ; $$B125
041706	010046			MOV    	R0, -(SP)
041710	012746	000022		MOV    	#000022, -(SP)
041714	004767	010704		CALL   	052624	; UNSMUL ; $B116
041720	010500			MOV    	R5, R0
041722	062600			ADD    	(SP)+, R0
041724	016560	007202	007224	MOV    	007202(R5), 007224(R0)
041732	000167	000262		JMP    	042220
041736	012700	012674		MOV    	#012674, R0 ; 2 ;
041742	010501			MOV    	R5, R1
041744	062701	053402		ADD    	#053402, R1
041750	012702	000006		MOV    	#000006, R2
041754	122021			CMPB   	(R0)+, (R1)+
041756	001002			BNE    	041764
041760	005302			DEC    	R2
041762	001374			BNE    	041754
041764	001402			BEQ    	041772
041766	000167	000074		JMP    	042066
041772	162706	000006		SUB    	#000006, SP
041776	010600			MOV    	SP, R0
042000	016520	002510		MOV    	002510(R5), (R0)+
042004	016520	002512		MOV    	002512(R5), (R0)+
042010	016520	002514		MOV    	002514(R5), (R0)+
042014	005046			CLR    	-(SP)
042016	004767	150034		CALL   	012056
042022	162706	000006		SUB    	#000006, SP
042026	012700	047320		MOV    	#047320, R0
042032	010601			MOV    	SP, R1
042034	012021			MOV    	(R0)+, (R1)+
042036	012021			MOV    	(R0)+, (R1)+
042040	012021			MOV    	(R0)+, (R1)+
042042	004767	146514		CALL   	010562
042046	016546	002530		MOV    	002530(R5), -(SP)
042052	004767	146754		CALL   	011032
042056	004767	146434		CALL   	010516
042062	000167	000114		JMP    	042202
042066	005046			CLR    	-(SP)
042070	162706	000006		SUB    	#000006, SP
042074	010600			MOV    	SP, R0
042076	016520	053402		MOV    	053402(R5), (R0)+
042102	016520	053404		MOV    	053404(R5), (R0)+
042106	016520	053406		MOV    	053406(R5), (R0)+
042112	016546	002530		MOV    	002530(R5), -(SP)
042116	004767	151172		CALL   	013314
042122	112600			MOVB   	(SP)+, R0
042124	105100			COMB   	R0
042126	142700	177776		BICB   	#177776, R0
042132	001002			BNE    	042140
042134	000167	000042		JMP    	042202
042140	162706	000006		SUB    	#000006, SP
042144	010600			MOV    	SP, R0
042146	016520	053402		MOV    	053402(R5), (R0)+
042152	016520	053404		MOV    	053404(R5), (R0)+
042156	016520	053406		MOV    	053406(R5), (R0)+
042162	016546	002530		MOV    	002530(R5), -(SP)
042166	004767	174612		CALL   	037004
042172	004767	154460		CALL   	016656
042176	000167	000000		JMP    	042202
042202	000167	000012		JMP    	042220
042206	000167	000006		JMP    	042220
; CASE OF ADDR BEGIN
042212	041334	042206	041736	;  0  1  2
; CASE OF ADDR END
042220	000167	001700		JMP    	044124
042224	012700	012674		MOV    	#012674, R0 ; 5 ;
042230	010501			MOV    	R5, R1
042232	062701	002510		ADD    	#002510, R1
042236	012702	000006		MOV    	#000006, R2
042242	122021			CMPB   	(R0)+, (R1)+
042244	001002			BNE    	042252
042246	005302			DEC    	R2
042250	001374			BNE    	042242
042252	001402			BEQ    	042260
042254	000167	000164		JMP    	042444
042260	004767	146232		CALL   	010516
042264	004767	146254		CALL   	010544
042270	162706	000006		SUB    	#000006, SP
042274	012700	047330		MOV    	#047330, R0
042300	010601			MOV    	SP, R1
042302	012021			MOV    	(R0)+, (R1)+
042304	012021			MOV    	(R0)+, (R1)+
042306	012021			MOV    	(R0)+, (R1)+
042310	004767	146246		CALL   	010562
042314	004767	146224		CALL   	010544
042320	004767	146220		CALL   	010544
042324	004767	146166		CALL   	010516
042330	005765	002530		TST    	002530(R5)
042334	001002			BNE    	042342
042336	000167	000050		JMP    	042412
042342	004767	146176		CALL   	010544
042346	162706	000006		SUB    	#000006, SP
042352	012700	047340		MOV    	#047340, R0
042356	010601			MOV    	SP, R1
042360	012021			MOV    	(R0)+, (R1)+
042362	012021			MOV    	(R0)+, (R1)+
042364	012021			MOV    	(R0)+, (R1)+
042366	004767	146170		CALL   	010562
042372	004767	146146		CALL   	010544
042376	016546	002530		MOV    	002530(R5), -(SP)
042402	004767	146424		CALL   	011032
042406	004767	146104		CALL   	010516
042412	012700	012674		MOV    	#012674, R0
042416	012065	053402		MOV    	(R0)+, 053402(R5)
042422	012065	053404		MOV    	(R0)+, 053404(R5)
042426	012065	053406		MOV    	(R0)+, 053406(R5)
042432	016565	002530	053410	MOV    	002530(R5), 053410(R5)
042440	000167	001320		JMP    	043764
042444	162706	000006		SUB    	#000006, SP
042450	010600			MOV    	SP, R0
042452	016520	002510		MOV    	002510(R5), (R0)+
042456	016520	002512		MOV    	002512(R5), (R0)+
042462	016520	002514		MOV    	002514(R5), (R0)+
042466	004767	147570		CALL   	012262
042472	016500	004370		MOV    	004370(R5), R0
042476	020027	000000		CMP    	R0, #000000
042502	002403			BLT    	042512
042504	020027	000030		CMP    	R0, #000030
042510	003402			BLE    	042516
042512	004767	010360		CALL   	053076	; $B125 ; $$B125
042516	010046			MOV    	R0, -(SP)
042520	012746	000014		MOV    	#000014, -(SP)
042524	004767	010074		CALL   	052624	; UNSMUL ; $B116
042530	010500			MOV    	R5, R0
042532	062600			ADD    	(SP)+, R0
042534	016560	002530	003720	MOV    	002530(R5), 003720(R0)
042542	004767	145750		CALL   	010516
042546	004767	145772		CALL   	010544
042552	010500			MOV    	R5, R0
042554	062700	002520		ADD    	#002520, R0
042560	010046			MOV    	R0, -(SP)
042562	004767	007530		CALL   	052316	; PSHSET ; $B52
042566	010500			MOV    	R5, R0
042570	062700	053462		ADD    	#053462, R0
042574	010046			MOV    	R0, -(SP)
042576	004767	007514		CALL   	052316	; PSHSET ; $B52
042602	004767	007612		CALL   	052420	; SETEQ ; $B42
042606	001402			BEQ    	042614
042610	005000			CLR    	R0
042612	000402			BR     	042620
042614	012700	000001		MOV    	#000001, R0
042620	012701	047350		MOV    	#047350, R1
042624	010502			MOV    	R5, R2
042626	062702	002510		ADD    	#002510, R2
042632	012703	000006		MOV    	#000006, R3
042636	122122			CMPB   	(R1)+, (R2)+
042640	001002			BNE    	042646
042642	005303			DEC    	R3
042644	001374			BNE    	042636
042646	001402			BEQ    	042654
042650	005001			CLR    	R1
042652	000402			BR     	042660
042654	012701	000001		MOV    	#000001, R1
042660	010502			MOV    	R5, R2
042662	062702	002520		ADD    	#002520, R2
042666	010246			MOV    	R2, -(SP)
042670	004767	007422		CALL   	052316	; PSHSET ; $B52
042674	010502			MOV    	R5, R2
042676	062702	053472		ADD    	#053472, R2
042702	010246			MOV    	R2, -(SP)
042704	004767	007406		CALL   	052316	; PSHSET ; $B52
042710	004767	007504		CALL   	052420	; SETEQ ; $B42
042714	001402			BEQ    	042722
042716	005002			CLR    	R2
042720	000402			BR     	042726
042722	012702	000001		MOV    	#000001, R2
042726	105102			COMB   	R2
042730	140201			BICB   	R2, R1
042732	150001			BISB   	R0, R1
042734	001002			BNE    	042742
042736	000167	000062		JMP    	043024
042742	162706	000006		SUB    	#000006, SP
042746	012700	047360		MOV    	#047360, R0
042752	010601			MOV    	SP, R1
042754	012021			MOV    	(R0)+, (R1)+
042756	012021			MOV    	(R0)+, (R1)+
042760	012021			MOV    	(R0)+, (R1)+
042762	004767	145574		CALL   	010562
042766	004767	145552		CALL   	010544
042772	162706	000006		SUB    	#000006, SP
042776	010600			MOV    	SP, R0
043000	016520	002510		MOV    	002510(R5), (R0)+
043004	016520	002512		MOV    	002512(R5), (R0)+
043010	016520	002514		MOV    	002514(R5), (R0)+
043014	004767	146562		CALL   	011602
043020	000167	000512		JMP    	043536
043024	162706	000006		SUB    	#000006, SP
043030	012700	047370		MOV    	#047370, R0
043034	010601			MOV    	SP, R1
043036	012021			MOV    	(R0)+, (R1)+
043040	012021			MOV    	(R0)+, (R1)+
043042	012021			MOV    	(R0)+, (R1)+
043044	004767	145512		CALL   	010562
043050	004767	145470		CALL   	010544
043054	162706	000006		SUB    	#000006, SP
043060	010600			MOV    	SP, R0
043062	016520	002510		MOV    	002510(R5), (R0)+
043066	016520	002512		MOV    	002512(R5), (R0)+
043072	016520	002514		MOV    	002514(R5), (R0)+
043076	004767	146500		CALL   	011602
043102	010500			MOV    	R5, R0
043104	062700	002520		ADD    	#002520, R0
043110	010046			MOV    	R0, -(SP)
043112	004767	007200		CALL   	052316	; PSHSET ; $B52
043116	010500			MOV    	R5, R0
043120	062700	053472		ADD    	#053472, R0
043124	010046			MOV    	R0, -(SP)
043126	004767	007164		CALL   	052316	; PSHSET ; $B52
043132	004767	007262		CALL   	052420	; SETEQ ; $B42
043136	001002			BNE    	043144
043140	000167	000372		JMP    	043536
043144	010500			MOV    	R5, R0
043146	062700	002520		ADD    	#002520, R0
043152	010046			MOV    	R0, -(SP)
043154	004767	007136		CALL   	052316	; PSHSET ; $B52
043160	012746	000004		MOV    	#000004, -(SP)
043164	004767	006744		CALL   	052134	; DOIN ; $B40
043170	001002			BNE    	043176
043172	000167	000030		JMP    	043226
043176	162706	000006		SUB    	#000006, SP
043202	012700	047400		MOV    	#047400, R0
043206	010601			MOV    	SP, R1
043210	012021			MOV    	(R0)+, (R1)+
043212	012021			MOV    	(R0)+, (R1)+
043214	012021			MOV    	(R0)+, (R1)+
043216	004767	145340		CALL   	010562
043222	000167	000000		JMP    	043226
043226	010500			MOV    	R5, R0
043230	062700	002520		ADD    	#002520, R0
043234	010046			MOV    	R0, -(SP)
043236	004767	007054		CALL   	052316	; PSHSET ; $B52
043242	012746	000007		MOV    	#000007, -(SP)
043246	004767	006662		CALL   	052134	; DOIN ; $B40
043252	001002			BNE    	043260
043254	000167	000030		JMP    	043310
043260	162706	000006		SUB    	#000006, SP
043264	012700	047410		MOV    	#047410, R0
043270	010601			MOV    	SP, R1
043272	012021			MOV    	(R0)+, (R1)+
043274	012021			MOV    	(R0)+, (R1)+
043276	012021			MOV    	(R0)+, (R1)+
043300	004767	145256		CALL   	010562
043304	000167	000000		JMP    	043310
043310	010500			MOV    	R5, R0
043312	062700	002520		ADD    	#002520, R0
043316	010046			MOV    	R0, -(SP)
043320	004767	006772		CALL   	052316	; PSHSET ; $B52
043324	012746	000002		MOV    	#000002, -(SP)
043330	004767	006600		CALL   	052134	; DOIN ; $B40
043334	001002			BNE    	043342
043336	000167	000030		JMP    	043372
043342	162706	000006		SUB    	#000006, SP
043346	012700	047420		MOV    	#047420, R0
043352	010601			MOV    	SP, R1
043354	012021			MOV    	(R0)+, (R1)+
043356	012021			MOV    	(R0)+, (R1)+
043360	012021			MOV    	(R0)+, (R1)+
043362	004767	145174		CALL   	010562
043366	000167	000000		JMP    	043372
043372	010500			MOV    	R5, R0
043374	062700	002520		ADD    	#002520, R0
043400	010046			MOV    	R0, -(SP)
043402	004767	006710		CALL   	052316	; PSHSET ; $B52
043406	012746	000005		MOV    	#000005, -(SP)
043412	004767	006516		CALL   	052134	; DOIN ; $B40
043416	001002			BNE    	043424
043420	000167	000004		JMP    	043430
043424	000167	000024		JMP    	043454
043430	162706	000006		SUB    	#000006, SP
043434	012700	047430		MOV    	#047430, R0
043440	010601			MOV    	SP, R1
043442	012021			MOV    	(R0)+, (R1)+
043444	012021			MOV    	(R0)+, (R1)+
043446	012021			MOV    	(R0)+, (R1)+
043450	004767	145106		CALL   	010562
043454	010500			MOV    	R5, R0
043456	062700	002520		ADD    	#002520, R0
043462	010046			MOV    	R0, -(SP)
043464	004767	006626		CALL   	052316	; PSHSET ; $B52
043470	012746	000006		MOV    	#000006, -(SP)
043474	004767	006434		CALL   	052134	; DOIN ; $B40
043500	001002			BNE    	043506
043502	000167	000030		JMP    	043536
043506	162706	000006		SUB    	#000006, SP
043512	012700	047440		MOV    	#047440, R0
043516	010601			MOV    	SP, R1
043520	012021			MOV    	(R0)+, (R1)+
043522	012021			MOV    	(R0)+, (R1)+
043524	012021			MOV    	(R0)+, (R1)+
043526	004767	145030		CALL   	010562
043532	000167	000000		JMP    	043536
043536	004767	144754		CALL   	010516
043542	016565	002510	053402	MOV    	002510(R5), 053402(R5)
043550	016565	002512	053404	MOV    	002512(R5), 053404(R5)
043556	016565	002514	053406	MOV    	002514(R5), 053406(R5)
043564	005065	053410		CLR    	053410(R5)
043570	162706	000006		SUB    	#000006, SP
043574	010600			MOV    	SP, R0
043576	016520	002510		MOV    	002510(R5), (R0)+
043602	016520	002512		MOV    	002512(R5), (R0)+
043606	016520	002514		MOV    	002514(R5), (R0)+
043612	005046			CLR    	-(SP)
043614	004767	151374		CALL   	015214
043620	012746	000072		MOV    	#000072, -(SP)
043624	004767	144612		CALL   	010442
043630	016500	004370		MOV    	004370(R5), R0
043634	020027	000000		CMP    	R0, #000000
043640	002403			BLT    	043650
043642	020027	000030		CMP    	R0, #000030
043646	003402			BLE    	043654
043650	004767	007222		CALL   	053076	; $B125 ; $$B125
043654	010046			MOV    	R0, -(SP)
043656	012746	000014		MOV    	#000014, -(SP)
043662	004767	006736		CALL   	052624	; UNSMUL ; $B116
043666	010500			MOV    	R5, R0
043670	062600			ADD    	(SP)+, R0
043672	026560	002530	003724	CMP    	002530(R5), 003724(R0)
043700	001002			BNE    	043706
043702	000167	000052		JMP    	043760
043706	004767	144632		CALL   	010544
043712	162706	000006		SUB    	#000006, SP
043716	012700	047450		MOV    	#047450, R0
043722	010601			MOV    	SP, R1
043724	012021			MOV    	(R0)+, (R1)+
043726	012021			MOV    	(R0)+, (R1)+
043730	012021			MOV    	(R0)+, (R1)+
043732	004767	144624		CALL   	010562
043736	004767	144602		CALL   	010544
043742	016546	002530		MOV    	002530(R5), -(SP)
043746	004767	145060		CALL   	011032
043752	016565	002530	053410	MOV    	002530(R5), 053410(R5)
043760	004767	144532		CALL   	010516
043764	000167	000134		JMP    	044124
043770	004767	144550		CALL   	010544 ; 6 ;
043774	162706	000006		SUB    	#000006, SP
044000	012700	047460		MOV    	#047460, R0
044004	010601			MOV    	SP, R1
044006	012021			MOV    	(R0)+, (R1)+
044010	012021			MOV    	(R0)+, (R1)+
044012	012021			MOV    	(R0)+, (R1)+
044014	004767	144542		CALL   	010562
044020	004767	144520		CALL   	010544
044024	012746	000057		MOV    	#000057, -(SP)
044030	004767	144406		CALL   	010442
044034	162706	000006		SUB    	#000006, SP
044040	010600			MOV    	SP, R0
044042	016520	002510		MOV    	002510(R5), (R0)+
044046	016520	002512		MOV    	002512(R5), (R0)+
044052	016520	002514		MOV    	002514(R5), (R0)+
044056	004767	144500		CALL   	010562
044062	012746	000057		MOV    	#000057, -(SP)
044066	004767	144350		CALL   	010442
044072	004767	144420		CALL   	010516
044076	000167	000022		JMP    	044124
044102	000167	000016		JMP    	044124
; CASE OF ADDR BEGIN
044106	040536	044102	044102	041004	;  0  1  2  3
	041040	042224	043770		;  4  5  6
; CASE OF ADDR END
044124	000167	003012		JMP	047142
044130	004767	152522		CALL   	016656 ; 3 ;
044134	026565	002536	053410	CMP    	002536(R5), 053410(R5)
044142	001002			BNE    	044150
044144	000167	000156		JMP    	044326
044150	004767	144342		CALL   	010516
044154	162706	000006		SUB    	#000006, SP
044160	012700	047470		MOV    	#047470, R0
044164	010601			MOV    	SP, R1
044166	012021			MOV    	(R0)+, (R1)+
044170	012021			MOV    	(R0)+, (R1)+
044172	012021			MOV    	(R0)+, (R1)+
044174	004767	144362		CALL   	010562
044200	012746	000040		MOV    	#000040, -(SP)
044204	004767	144232		CALL   	010442
044210	016546	053410		MOV    	053410(R5), -(SP)
044214	004767	144612		CALL   	011032
044220	162706	000006		SUB    	#000006, SP
044224	012700	047500		MOV    	#047500, R0
044230	010601			MOV    	SP, R1
044232	012021			MOV    	(R0)+, (R1)+
044234	012021			MOV    	(R0)+, (R1)+
044236	012021			MOV    	(R0)+, (R1)+
044240	004767	144316		CALL   	010562
044244	162706	000006		SUB    	#000006, SP
044250	012700	047510		MOV    	#047510, R0
044254	010601			MOV    	SP, R1
044256	012021			MOV    	(R0)+, (R1)+
044260	012021			MOV    	(R0)+, (R1)+
044262	012021			MOV    	(R0)+, (R1)+
044264	004767	144272		CALL   	010562
044270	004767	144222		CALL   	010516
044274	162706	000006		SUB    	#000006, SP
044300	010600			MOV    	SP, R0
044302	016520	053402		MOV    	053402(R5), (R0)+
044306	016520	053404		MOV    	053404(R5), (R0)+
044312	016520	053406		MOV    	053406(R5), (R0)+
044316	016546	002536		MOV    	002536(R5), -(SP)
044322	004767	172456		CALL   	037004
044326	016500	053410		MOV    	053410(R5), R0
044332	042700	177776		BIC    	#177776, R0
044336	001402			BEQ    	044344
044340	005000			CLR    	R0
044342	000402			BR     	044350
044344	012700	000001		MOV    	#000001, R0
044350	005765	002534		TST    	002534(R5)
044354	001402			BEQ    	044362
044356	005001			CLR    	R1
044360	000402			BR     	044366
044362	012701	000001		MOV    	#000001, R1
044366	105101			COMB   	R1
044370	140100			BICB   	R1, R0
044372	010501			MOV    	R5, R1
044374	062701	053414		ADD    	#053414, R1
044400	010146			MOV    	R1, -(SP)
044402	004767	005710		CALL   	052316	; PSHSET ; $B52
044406	012746	047762		MOV    	#047762, -(SP)
044412	004767	005700		CALL   	052316	; PSHSET ; $B52
044416	004767	005776		CALL   	052420	; SETEQ ; $B42
044422	001002			BNE    	044430
044424	005001			CLR    	R1
044426	000402			BR     	044434
044430	012701	000001		MOV    	#000001, R1
044434	010502			MOV    	R5, R2
044436	062702	053414		ADD    	#053414, R2
044442	010246			MOV    	R2, -(SP)
044444	004767	005646		CALL   	052316	; PSHSET ; $B52
044450	012746	000007		MOV    	#000007, -(SP)
044454	004767	005454		CALL   	052134	; DOIN ; $B40
044460	001402			BEQ    	044466
044462	005002			CLR    	R2
044464	000402			BR     	044472
044466	012702	000001		MOV    	#000001, R2
044472	105102			COMB   	R2
044474	140201			BICB   	R2, R1
044476	010502			MOV    	R5, R2
044500	062702	053414		ADD    	#053414, R2
044504	010246			MOV    	R2, -(SP)
044506	004767	005604		CALL   	052316	; PSHSET ; $B52
044512	012746	000010		MOV    	#000010, -(SP)
044516	004767	005412		CALL   	052134	; DOIN ; $B40
044522	001002			BNE    	044530
044524	005002			CLR    	R2
044526	000402			BR     	044534
044530	012702	000001		MOV    	#000001, R2
044534	150102			BISB   	R1, R2
044536	105102			COMB   	R2
044540	140200			BICB   	R2, R0
044542	016501	053410		MOV    	053410(R5), R1
044546	005201			INC    	R1
044550	020165	053424		CMP    	R1, 053424(R5)
044554	001002			BNE    	044562
044556	005001			CLR    	R1
044560	000402			BR     	044566
044562	012701	000001		MOV    	#000001, R1
044566	105101			COMB   	R1
044570	140100			BICB   	R1, R0
044572	001002			BNE    	044600
044574	000167	000010		JMP    	044610
044600	004767	163254		CALL   	030060
044604	000167	000004		JMP    	044614
044610	004767	170716		CALL   	035532
044614	000167	002322		JMP    	047142
044620	116500	002544		MOVB   	002544(R5), R0 ; 4 ;
044624	162700	000001		SUB    	#000001, R0
044630	002002			BGE    	044636
044632	000167	001264		JMP    	046122
044636	022700	000016		CMP    	#000016, R0
044642	002002			BGE    	044650
044644	000167	001252		JMP    	046122
044650	006300			ASL    	R0
044652	000170	046126		JMP    	@046126(R0)
044656	162706	000006		SUB    	#000006, SP ; 7 ;
044662	010600			MOV    	SP, R0
044664	016520	002510		MOV    	002510(R5), (R0)+
044670	016520	002512		MOV    	002512(R5), (R0)+
044674	016520	002514		MOV    	002514(R5), (R0)+
044700	016546	002552		MOV    	002552(R5), -(SP)
044704	004767	172074		CALL   	037004
044710	162706	000006		SUB    	#000006, SP
044714	010600			MOV    	SP, R0
044716	016520	053402		MOV    	053402(R5), (R0)+
044722	016520	053404		MOV    	053404(R5), (R0)+
044726	016520	053406		MOV    	053406(R5), (R0)+
044732	016546	053410		MOV    	053410(R5), -(SP)
044736	004767	150072		CALL   	015034
044742	162706	000006		SUB    	#000006, SP
044746	010600			MOV    	SP, R0
044750	016520	053402		MOV    	053402(R5), (R0)+
044754	016520	053404		MOV    	053404(R5), (R0)+
044760	016520	053406		MOV    	053406(R5), (R0)+
044764	004767	145272		CALL   	012262
044770	016503	052350		MOV    	052350(R5), R3
044774	020327	000000		CMP    	R3, #000000
045000	002403			BLT    	045010
045002	020327	001750		CMP    	R3, #001750
045006	003402			BLE    	045014
045010	004767	006062		CALL   	053076	; $B125 ; $$B125
045014	010346			MOV    	R3, -(SP)
045016	012746	000022		MOV    	#000022, -(SP)
045022	004767	005576		CALL   	052624	; UNSMUL ; $B116
045026	010503			MOV    	R5, R3
045030	062603			ADD    	(SP)+, R3
045032	062703	007204		ADD    	#007204, R3
045036	026365	000004	004370	CMP    	000004(R3), 004370(R5)
045044	001402			BEQ    	045052
045046	000167	000012		JMP    	045064
045052	016365	000006	053424	MOV    	000006(R3), 053424(R5)
045060	000167	000006		JMP    	045072
045064	012765	177777	053424	MOV    	#177777, 053424(R5)
045072	005065	053412		CLR    	053412(R5)
045076	012746	047752		MOV    	#047752, -(SP)
045102	004767	005210		CALL   	052316	; PSHSET ; $B52
045106	010500			MOV    	R5, R0
045110	062700	053414		ADD    	#053414, R0
045114	010046			MOV    	R0, -(SP)
045116	004767	005236		CALL   	052360	; POPSET ; $B54
045122	000167	001036		JMP    	046164
045126	004767	151524		CALL   	016656 ; 10 ;
045132	026565	002552	053424	CMP    	002552(R5), 053424(R5)
045140	101402			BLOS   	045146
045142	000167	000020		JMP    	045166
045146	016500	002552		MOV    	002552(R5), R0
045152	166500	053410		SUB    	053410(R5), R0
045156	010065	053460		MOV    	R0, 053460(R5)
045162	000167	000022		JMP    	045210
045166	016500	053424		MOV    	053424(R5), R0
045172	166500	053410		SUB    	053410(R5), R0
045176	010065	053460		MOV    	R0, 053460(R5)
045202	112765	000001	053400	MOVB   	#000001, 053400(R5)
045210	005765	053460		TST    	053460(R5)
045214	002402			BLT    	045222
045216	005000			CLR    	R0
045220	000402			BR     	045226
045222	012700	000001		MOV    	#000001, R0
045226	022765	000020	053460	CMP    	#000020, 053460(R5)
045234	002402			BLT    	045242
045236	005001			CLR    	R1
045240	000402			BR     	045246
045242	012701	000001		MOV    	#000001, R1
045246	150001			BISB   	R0, R1
045250	001002			BNE    	045256
045252	000167	000064		JMP    	045342
045256	162706	000006		SUB    	#000006, SP
045262	012700	047520		MOV    	#047520, R0
045266	010601			MOV    	SP, R1
045270	012021			MOV    	(R0)+, (R1)+
045272	012021			MOV    	(R0)+, (R1)+
045274	012021			MOV    	(R0)+, (R1)+
045276	004767	143260		CALL   	010562
045302	162706	000006		SUB    	#000006, SP
045306	012700	047530		MOV    	#047530, R0
045312	010601			MOV    	SP, R1
045314	012021			MOV    	(R0)+, (R1)+
045316	012021			MOV    	(R0)+, (R1)+
045320	012021			MOV    	(R0)+, (R1)+
045322	016546	053460		MOV    	053460(R5), -(SP)
045326	004767	144524		CALL   	012056
045332	004767	143160		CALL   	010516
045336	000167	000312		JMP    	045654
045342	016500	053460		MOV    	053460(R5), R0
045346	042700	177776		BIC    	#177776, R0
045352	001402			BEQ    	045360
045354	000167	000072		JMP    	045452
045360	004767	143160		CALL   	010544
045364	162706	000006		SUB    	#000006, SP
045370	012700	047540		MOV    	#047540, R0
045374	010601			MOV    	SP, R1
045376	012021			MOV    	(R0)+, (R1)+
045400	012021			MOV    	(R0)+, (R1)+
045402	012021			MOV    	(R0)+, (R1)+
045404	004767	143152		CALL   	010562
045410	004767	143130		CALL   	010544
045414	016500	053460		MOV    	053460(R5), R0
045420	005700			TST    	R0
045422	100001			BPL    	045426
045424	005300			DEC    	R0
045426	006200			ASR    	R0
045430	100001			BPL    	045434
045432	005200			INC    	R0
045434	010046			MOV    	R0, -(SP)
045436	004767	143370		CALL   	011032
045442	004767	143050		CALL   	010516
045446	000167	000202		JMP    	045654
045452	026527	053460	000001	CMP    	053460(R5), #000001
045460	001402			BEQ    	045466
045462	000167	000116		JMP    	045604
045466	016500	053410		MOV    	053410(R5), R0
045472	042700	177776		BIC    	#177776, R0
045476	001002			BNE    	045504
045500	000167	000040		JMP    	045544
045504	004767	143034		CALL   	010544
045510	162706	000006		SUB    	#000006, SP
045514	012700	047550		MOV    	#047550, R0
045520	010601			MOV    	SP, R1
045522	012021			MOV    	(R0)+, (R1)+
045524	012021			MOV    	(R0)+, (R1)+
045526	012021			MOV    	(R0)+, (R1)+
045530	004767	143026		CALL   	010562
045534	004767	142756		CALL   	010516
045540	000167	000034		JMP    	045600
045544	004767	142774		CALL   	010544
045550	162706	000006		SUB    	#000006, SP
045554	012700	047560		MOV    	#047560, R0
045560	010601			MOV    	SP, R1
045562	012021			MOV    	(R0)+, (R1)+
045564	012021			MOV    	(R0)+, (R1)+
045566	012021			MOV    	(R0)+, (R1)+
045570	004767	142766		CALL   	010562
045574	004767	142716		CALL   	010516
045600	000167	000050		JMP    	045654
045604	004767	142734		CALL   	010544
045610	162706	000006		SUB    	#000006, SP
045614	012700	047570		MOV    	#047570, R0
045620	010601			MOV    	SP, R1
045622	012021			MOV    	(R0)+, (R1)+
045624	012021			MOV    	(R0)+, (R1)+
045626	012021			MOV    	(R0)+, (R1)+
045630	004767	142726		CALL   	010562
045634	004767	142704		CALL   	010544
045640	016546	053460		MOV    	053460(R5), -(SP)
045644	004767	143162		CALL   	011032
045650	004767	142642		CALL   	010516
045654	066565	053460	053410	ADD    	053460(R5), 053410(R5)
045662	000167	000276		JMP    	046164
045666	004767	150764		CALL   	016656 ; 1 2 3 4 5 6 14 15 16 17;
045672	004767	142646		CALL   	010544
045676	005765	002546		TST    	002546(R5)
045702	001402			BEQ    	045710
045704	000167	000014		JMP    	045724
045710	012746	000040		MOV    	#000040, -(SP)
045714	004767	142522		CALL   	010442
045720	000167	000030		JMP    	045754
045724	162706	000006		SUB    	#000006, SP
045730	012700	047600		MOV    	#047600, R0
045734	010601			MOV    	SP, R1
045736	012021			MOV    	(R0)+, (R1)+
045740	012021			MOV    	(R0)+, (R1)+
045742	012021			MOV    	(R0)+, (R1)+
045744	004767	142612		CALL   	010562
045750	004767	142570		CALL   	010544
045754	012746	047742		MOV    	#047742, -(SP)
045760	004767	004332		CALL   	052316	; PSHSET ; $B52
045764	010500			MOV    	R5, R0
045766	062700	052356		ADD    	#052356, R0
045772	010046			MOV    	R0, -(SP)
045774	004767	004360		CALL   	052360	; POPSET ; $B54
046000	004767	154634		CALL   	022640
046004	004767	142506		CALL   	010516
046010	012700	000002		MOV    	#000002, R0
046014	166500	002546		SUB    	002546(R5), R0
046020	066500	053410		ADD    	053410(R5), R0
046024	010065	053410		MOV    	R0, 053410(R5)
046030	000167	000130		JMP    	046164
046034	004767	150616		CALL   	016656 ; 11 ;
046040	004767	142500		CALL   	010544
046044	162706	000006		SUB    	#000006, SP
046050	012700	047610		MOV    	#047610, R0
046054	010601			MOV    	SP, R1
046056	012021			MOV    	(R0)+, (R1)+
046060	012021			MOV    	(R0)+, (R1)+
046062	012021			MOV    	(R0)+, (R1)+
046064	004767	142472		CALL   	010562
046070	004767	142422		CALL   	010516
046074	010500			MOV    	R5, R0
046076	062700	052366		ADD    	#052366, R0
046102	010046			MOV    	R0, -(SP)
046104	004767	142326		CALL   	010436			; L10104
046110	062765	000004	053410	ADD    	#000004, 053410(R5)
046116	000167	000042		JMP    	046164
046122	000167	000036		JMP    	046164
; CASE OF ADDR BEGIN
046126	045666	045666	045666	045666	;  1  2  3  4
	045666	045666	044656	045126	;  5  6  7 10
	046034	046122	046122	045666	; 11 12 13 14
	045666	045666	045666		; 15 16 17
; CASE OF ADDR END
046164	000167	000752		JMP	047142
046170	026527	002676	000002	CMP    	002676(R5), #000002 ; 6 ;
046176	001402			BEQ    	046204
046200	000167	000500		JMP    	046704
046204	012746	047620		MOV    	#047620, -(SP)
046210	012746	000025		MOV    	#000025, -(SP)
046214	005046			CLR    	-(SP)
046216	004767	003460		CALL   	051702	; WRSTG ; $B32
046222	016546	052346		MOV    	052346(R5), -(SP)
046226	012746	000004		MOV    	#000004, -(SP)
046232	004767	003116		CALL   	051354	; WRNM ; $B24
046236	004767	003064		CALL   	051326	; WRLN ; $B36
046242	005046			CLR    	-(SP)
046244	162706	000006		SUB    	#000006, SP
046250	012700	012674		MOV    	#012674, R0
046254	010601			MOV    	SP, R1
046256	012021			MOV    	(R0)+, (R1)+
046260	012021			MOV    	(R0)+, (R1)+
046262	012021			MOV    	(R0)+, (R1)+
046264	005046			CLR    	-(SP)
046266	004767	145022		CALL   	013314
046272	105726			TSTB   	(SP)+
046274	001002			BNE    	046302
046276	000167	000000		JMP    	046302
046302	016565	052352	052350	MOV    	052352(R5), 052350(R5)
046310	005065	053456		CLR    	053456(R5)
046314	026527	053456	000006	CMP    	053456(R5), #000006
046322	001402			BEQ    	046330
046324	000167	000010		JMP    	046340
046330	004767	002772		CALL   	051326	; WRLN ; $B36
046334	005065	053456		CLR    	053456(R5)
046340	016503	052350		MOV    	052350(R5), R3
046344	020327	000000		CMP    	R3, #000000
046350	002403			BLT    	046360
046352	020327	001750		CMP    	R3, #001750
046356	003402			BLE    	046364
046360	004767	004512		CALL   	053076	; $B125 ; $$B125
046364	010346			MOV    	R3, -(SP)
046366	012746	000022		MOV    	#000022, -(SP)
046372	004767	004226		CALL   	052624	; UNSMUL ; $B116
046376	010503			MOV    	R5, R3
046400	062603			ADD    	(SP)+, R3
046402	062703	007204		ADD    	#007204, R3
046406	010300			MOV    	R3, R0
046410	062700	000010		ADD    	#000010, R0
046414	010046			MOV    	R0, -(SP)
046416	004767	003674		CALL   	052316	; PSHSET ; $B52
046422	012746	000011		MOV    	#000011, -(SP)
046426	004767	003502		CALL   	052134	; DOIN ; $B40
046432	001402			BEQ    	046440
046434	000167	000110		JMP    	046550
046440	010346			MOV    	R3, -(SP)
046442	016300	000004		MOV    	000004(R3), R0
046446	020027	000000		CMP    	R0, #000000
046452	002403			BLT    	046462
046454	020027	000030		CMP    	R0, #000030
046460	003402			BLE    	046466
046462	004767	004410		CALL   	053076	; $B125 ; $$B125
046466	010046			MOV    	R0, -(SP)
046470	012746	000014		MOV    	#000014, -(SP)
046474	004767	004124		CALL   	052624	; UNSMUL ; $B116
046500	010500			MOV    	R5, R0
046502	062600			ADD    	(SP)+, R0
046504	162706	000006		SUB    	#000006, SP
046510	010601			MOV    	SP, R1
046512	016021	003712		MOV    	003712(R0), (R1)+
046516	016021	003714		MOV    	003714(R0), (R1)+
046522	016021	003716		MOV    	003716(R0), (R1)+
046526	016346	000006		MOV    	000006(R3), -(SP)
046532	004767	170246		CALL   	037004
046536	012603			MOV    	(SP)+, R3
046540	010346			MOV    	R3, -(SP)
046542	004767	150110		CALL   	016656
046546	012603			MOV    	(SP)+, R3
046550	016546	052350		MOV    	052350(R5), -(SP)
046554	004767	146016		CALL   	014576
046560	005765	052350		TST    	052350(R5)
046564	001402			BEQ    	046572
046566	000167	177522		JMP    	046314
046572	005765	053456		TST    	053456(R5)
046576	001002			BNE    	046604
046600	000167	000004		JMP    	046610
046604	004767	002516		CALL   	051326	; WRLN ; $B36
046610	012746	047646		MOV    	#047646, -(SP)
046614	012746	000025		MOV    	#000025, -(SP)
046620	005046			CLR    	-(SP)
046622	004767	003054		CALL   	051702	; WRSTG ; $B32
046626	016546	053426		MOV    	053426(R5), -(SP)
046632	012746	000004		MOV    	#000004, -(SP)
046636	004767	002512		CALL   	051354	; WRNM ; $B24
046642	004767	002460		CALL   	051326	; WRLN ; $B36
046646	012746	047674		MOV    	#047674, -(SP)
046652	012746	000025		MOV    	#000025, -(SP)
046656	005046			CLR    	-(SP)
046660	004767	003016		CALL   	051702	; WRSTG ; $B32
046664	016546	053430		MOV    	053430(R5), -(SP)
046670	012746	000004		MOV    	#000004, -(SP)
046674	004767	002454		CALL   	051354	; WRNM ; $B24
046700	004767	002422		CALL   	051326	; WRLN ; $B36
046704	004767	141606		CALL   	010516
046710	004767	141630		CALL   	010544
046714	162706	000006		SUB    	#000006, SP
046720	012700	047722		MOV    	#047722, R0
046724	010601			MOV    	SP, R1
046726	012021			MOV    	(R0)+, (R1)+
046730	012021			MOV    	(R0)+, (R1)+
046732	012021			MOV    	(R0)+, (R1)+
046734	004767	141622		CALL   	010562
046740	004767	141600		CALL   	010544
046744	012700	012674		MOV    	#012674, R0
046750	010501			MOV    	R5, R1
046752	062701	053446		ADD    	#053446, R1
046756	012702	000006		MOV    	#000006, R2
046762	122021			CMPB   	(R0)+, (R1)+
046764	001002			BNE    	046772
046766	005302			DEC    	R2
046770	001374			BNE    	046762
046772	001002			BNE    	047000
046774	005000			CLR    	R0
046776	000402			BR     	047004
047000	012700	000001		MOV    	#000001, R0
047004	026527	053454	000001	CMP    	053454(R5), #000001
047012	001002			BNE    	047020
047014	005001			CLR    	R1
047016	000402			BR     	047024
047020	012701	000001		MOV    	#000001, R1
047024	150001			BISB   	R0, R1
047026	001002			BNE    	047034
047030	000167	000056		JMP    	047112
047034	012746	047732		MOV    	#047732, -(SP)
047040	004767	003252		CALL   	052316	; PSHSET ; $B52
047044	010500			MOV    	R5, R0
047046	062700	052356		ADD    	#052356, R0
047052	010046			MOV    	R0, -(SP)
047054	004767	003300		CALL   	052360	; POPSET ; $B54
047060	162706	000006		SUB    	#000006, SP
047064	010600			MOV    	SP, R0
047066	016520	053446		MOV    	053446(R5), (R0)+
047072	016520	053450		MOV    	053450(R5), (R0)+
047076	016520	053452		MOV    	053452(R5), (R0)+
047102	016546	053454		MOV    	053454(R5), -(SP)
047106	004767	146236		CALL   	015350
047112	004767	141400		CALL   	010516
047116	000167	000020		JMP    	047142
047122	000167	000014		JMP    	047142
; CASE OF ADDR BEGIN
047126	040500	047122	044130	044620	;  1  2  3  4
	047122	046170			;  5  6
; CASE OF ADDR END
047142	126527	002506	000006	CMPB   	002506(R5), #000006
047150	001402			BEQ    	047156
047152	000167	171072		JMP    	040250
047156	010500			MOV    	R5, R0
047160	062700	002700		ADD    	#002700, R0
047164	010046			MOV    	R0, -(SP)
047166	004767	141224		CALL   	010416			; L02276
047172	010500			MOV    	R5, R0
047174	062700	052366		ADD    	#052366, R0
047200	010046			MOV    	R0, -(SP)
047202	004767	141210		CALL   	010416			; L02276
047206	005276	000004		INC    	@000004(SP)
047212	000167	170654		JMP    	040072
047216	062706	000006		ADD    	#000006, SP
047222	105727	000000		TSTB   	#000000
047226	001002			BNE    	047234
047230	000167	170530		JMP    	037764
047234	000167	000602		JMP    	050042	; $END
-------------------------------------------------------------
047240	042456	040516	046102	.ASCIZ	/.ENABL/
	000000			.EVEN

047250	041514	020134	020040	.ASCIZ	/LC\   /
	000000			.EVEN

047260	047056	044514	052123	.ASCIZ	/.NLIST/
	000000			.EVEN

047270	042502	056130	020040	.ASCIZ	/BEX\  /
	000000			.EVEN

047300	052056	052111	042514	.ASCIZ	/.TITLE/
	000000			.EVEN

047310	043456	047514	046102	.ASCIZ	/.GLOBL/
	000000			.EVEN

047320	036440	020075	020134	.ASCIZ	/ == \ /
	000000			.EVEN

047330	040456	042523	052103	.ASCIZ	/.ASECT/
	000000			.EVEN

047340	041056	045514	056102	.ASCIZ	/.BLKB\/
	000000			.EVEN

047350	020040	020040	020040	.ASCIZ	/      /
	000000			.EVEN

047360	041456	042523	052103	.ASCIZ	/.CSECT/
	000000			.EVEN

047370	050056	042523	052103	.ASCIZ	/.PSECT/
	000000			.EVEN

047400	020054	047522	020134	.ASCIZ	/, RO\ /
	000000			.EVEN

047410	020054	056104	020040	.ASCIZ	/, D\  /
	000000			.EVEN

047420	020054	053117	056122	.ASCIZ	/, OVR\/
	000000			.EVEN

047430	020054	041101	056123	.ASCIZ	/, ABS\/
	000000			.EVEN

047440	020054	041107	056114	.ASCIZ	/, GBL\/
	000000			.EVEN

047450	041056	045514	056102	.ASCIZ	/.BLKB\/
	000000			.EVEN

047460	044456	042504	052116	.ASCIZ	/.IDENT/
	000000			.EVEN

047470	042456	051122	051117	.ASCIZ	/.ERROR/
	000000			.EVEN

047500	035440	041040	042101	.ASCIZ	/ ; BAD/
	000000			.EVEN

047510	046040	041517	047124	.ASCIZ	/ LOCTN/
	000000			.EVEN

047520	020040	020056	020075	.ASCIZ	/  . = /
	000000			.EVEN

047530	020056	020040	020040	.ASCIZ	/.     /
	000000			.EVEN

047540	041056	045514	020127	.ASCIZ	/.BLKW /
	000000			.EVEN

047550	042456	042526	056116	.ASCIZ	/.EVEN\/
	000000			.EVEN

047560	047456	042104	020134	.ASCIZ	/.ODD\ /
	000000			.EVEN

047570	041056	045514	020102	.ASCIZ	/.BLKB /
	000000			.EVEN

047600	041056	052131	056105	.ASCIZ	/.BYTE\/
	000000			.EVEN

047610	046056	046511	052111	.ASCIZ	/.LIMIT/
	000000			.EVEN

047620	042077	041505	044455	.ASCIZ	/?DEC-I-LABELS USED : /
	046055	041101	046105	.EVEN
	020123	051525	042105
	035040	000040

047646	042077	041505	044455	.ASCIZ	/?DEC-I-MRKED INSTR : /
	046455	045522	042105	.EVEN
	044440	051516	051124
	035040	000040

047674	042077	041505	044455	.ASCIZ	/?DEC-I-MKD NO INST : /
	046455	042113	047040	.EVEN
	020117	047111	052123
	035040	000040

047722	042456	042116	020134	.ASCIZ	/.END\ /
	000000			.EVEN
; SET OF 4
047732	000020	000000	000000	000000
; SET OF 1
047742	000002	000000	000000	000000
; SET OF
047752	000000	000000	000000	000000
; SET OF 2
047762	000004	000000	000000	000000
; SET OF 2
047772	000004	000000	000000	000000
; SET OF 0
050002	000001	000000	000000	000000
; SET OF
050012	000000	000000	000000	000000
; SET OF 3,5
050022	000050	000000	000000	000000
; SET OF 2,3,5,6
050032	000154	000000	000000	000000
=============================================================
==================== SUPMON DATA BEGIN ==============================
; $END
050042	104350			EMT    	000350
050044	000000			HALT   	
050046	000003			BPT    	
050050	050052			BIS    	R0, @-(R2)
050052	040504			BIC    	R5, R4
050054	000124			JMP    	(R4)+
050056	060012			ADD    	R0, (R2)
050060	000000			HALT   	
050062	000000			HALT   	
050064	000000			HALT   	
050066	100000			BPL    	050070
050070	000000			HALT   	
050072	001000			BNE    	050074
050074	053350			BIS    	@(R3)+, @-(R0)
050076	000010			unknown	000010
050100	000000			HALT   	
050102	000000			HALT   	
050104	000000			HALT   	
050106	000000			HALT   	
050110	000000			HALT   	
050112	000000			HALT   	
050114	000000			HALT   	
050116	000000			HALT   	
050120	000000			HALT   	
050122	000000			HALT   	
050124	000000			HALT   	
050126	000000			HALT   	
050130	000000			HALT   	
050132	000000			HALT   	
050134	000000			HALT   	
050136	000000			HALT   	
050140	005015			CLR    	(R5)
050142	020000			CMP    	R0, R0
050144	020055			CMP    	R0, @-(R5)
050146	051106			BIS    	(R1), SP
050150	046517	050040		BIC    	050040(R5), (PC)
050154	020103			CMP    	R1, R3
050156	052000			BIS    	(R0)+, R0
050160	040522			BIC    	R5, (R2)+
050162	020120			CMP    	R1, (R0)+
050164	047524	032040		BIC    	@032040(R5), (R4)+
050170	041000			BIC    	(R0), R0
050172	042101			BIC    	(R1)+, R1
050174	051440			BIS    	(R4), -(R0)
050176	050125			BIS    	R1, (R5)+
050200	047520	052122		BIC    	@052122(R5), (R0)+
050204	050040			BIS    	R0, -(R0)
050206	041501			BIC    	(R5), R1
050210	040513			BIC    	R5, (R3)
050212	042507			BIC    	(R5)+, PC
050214	005015			CLR    	(R5)
050216	047000	052117		BIC    	@052117(R0), R0
050222	040440			BIC    	R4, -(R0)
050224	053040			BIS    	@(R0)+, -(R0)
050226	046101	042111		BIC    	042111(R1), R1
050232	042040			BIC    	(R0)+, -(R0)
050234	053105			BIS    	@(R1)+, R5
050236	041511			BIC    	(R5), (R1)
050240	000105			JMP    	R5
050242	027511	020117		CMP    	@020117(R5), (R1)
050246	044103			BIC    	-(R1), R3
050250	047101	042516		BIC    	@042516(R1), R1
050254	020114			CMP    	R1, (R4)
050256	047516	020124		BIC    	@020124(R5), (SP)
050262	050117			BIS    	R1, (PC)
050264	047105	042400		BIC    	@042400(R1), R5
050270	042116			BIC    	(R1)+, (SP)
050272	047440	020106		BIC    	@020106(R4), -(R0)
050276	044506			BIC    	-(R5), SP
050300	042514			BIC    	(R5)+, (R4)
050302	047440	020116		BIC    	@020116(R4), -(R0)
050306	042504			BIC    	(R5)+, R4
050310	044526			BIC    	-(R5), (SP)+
050312	042503			BIC    	(R5)+, R3
050314	051400			BIS    	(R4), R0
050316	050125			BIS    	R1, (R5)+
050320	047520	052122		BIC    	@052122(R5), (R0)+
050324	041440			BIC    	(R4), -(R0)
050326	047117	044504		BIC    	@044504(R1), (PC)
050332	044524			BIC    	-(R5), (R4)+
050334	047117	046101		BIC    	@046101(R1), (PC)
050340	020123			CMP    	R1, (R3)+
050342	051105			BIS    	(R1), R5
050344	047522	000122		BIC    	@000122(R5), (R2)+
050350	042522			BIC    	(R5)+, (R2)+
050352	042523			BIC    	(R5)+, (R3)+
050354	053122			BIS    	@(R1)+, (R2)+
050356	042105			BIC    	(R1)+, R5
050360	044440			BIC    	-(R4), -(R0)
050362	051516			BIS    	(R5), (SP)
050364	051124			BIS    	(R1), (R4)+
050366	041525			BIC    	(R5), (R5)+
050370	044524			BIC    	-(R5), (R4)+
050372	047117	052040		BIC    	@052040(R1), (PC)
050376	040522			BIC    	R5, (R2)+
050400	000120			JMP    	(R0)+
050402	047111	042524		BIC    	@042524(R1), (R1)
050406	042507			BIC    	(R5)+, PC
050410	020122			CMP    	R1, (R2)+
050412	051105			BIS    	(R1), R5
050414	047522	000122		BIC    	@000122(R5), (R2)+
050420	054105			BIS    	-(R1), R5
050422	020120			CMP    	R1, (R0)+
050424	053117			BIS    	@(R1)+, (PC)
050426	051105			BIS    	(R1), R5
050430	046106	053517		BIC    	053517(R1), SP
050434	046000	043517		BIC    	043517(R0), R0
050440	047440	020106		BIC    	@020106(R4), -(R0)
050444	042516			BIC    	(R5)+, (SP)
050446	040507			BIC    	R5, PC
050450	044524			BIC    	-(R5), (R4)+
050452	042526			BIC    	(R5)+, (SP)+
050454	051400			BIS    	(R4), R0
050456	051121			BIS    	(R1), (R1)+
050460	020124			CMP    	R1, (R4)+
050462	043117			BIC    	@(R1)+, (PC)
050464	047040	043505		BIC    	@043505(R0), -(R0)
050470	052101			BIS    	(R1)+, R1
050472	053111			BIS    	@(R1)+, (R1)
050474	000105			JMP    	R5
050476	042504			BIC    	(R5)+, R4
050500	044526			BIC    	-(R5), (SP)+
050502	042504			BIC    	(R5)+, R4
050504	041040			BIC    	(R0), -(R0)
050506	020131			CMP    	R1, @(R1)+
050510	042532			BIC    	(R5)+, @(R2)+
050512	047522	046400		BIC    	@046400(R5), (R2)+
050516	051511			BIS    	(R5), (R1)
050520	044523			BIC    	-(R5), (R3)+
050522	043516			BIC    	@(R5)+, (SP)
050524	051440			BIS    	(R4), -(R0)
050526	042520			BIC    	(R5)+, (R0)+
050530	044503			BIC    	-(R5), R3
050532	046101	043040		BIC    	043040(R1), R1
050536	040505			BIC    	R5, R5
050540	052524			BIS    	(R5)+, (R4)+
050542	042522			BIC    	(R5)+, (R2)+
050544	047000	052117		BIC    	@052117(R0), R0
050550	042440			BIC    	(R4)+, -(R0)
050552	047516	043525		BIC    	@043525(R5), (SP)
050556	020110			CMP    	R1, (R0)
050560	053101			BIS    	@(R1)+, R1
050562	044501			BIC    	-(R5), R1
050564	040514			BIC    	R5, (R4)
050566	046102	020105		BIC    	020105(R1), R2
050572	042515			BIC    	(R5)+, (R5)
050574	047515	054522		BIC    	@054522(R5), (R5)
050600	047000	053505		BIC    	@053505(R0), R0
050604	047440	020106		BIC    	@020106(R4), -(R0)
050610	042514			BIC    	(R5)+, (R4)
050612	043516			BIC    	@(R5)+, (SP)
050614	044124			BIC    	-(R1), (R4)+
050616	030040			BIT    	R0, -(R0)
050620	041000			BIC    	(R0), R0
050622	042101			BIC    	(R1)+, R1
050624	051440			BIS    	(R4), -(R0)
050626	052105			BIS    	(R1)+, R5
050630	042440			BIC    	(R4)+, -(R0)
050632	050130			BIS    	R1, @(R0)+
050634	042522			BIC    	(R5)+, (R2)+
050636	051523			BIS    	(R5), (R3)+
050640	047511	000116		BIC    	@000116(R5), (R1)
050644	040506			BIC    	R5, SP
050646	040524			BIC    	R5, (R4)+
050650	020114			CMP    	R1, (R4)
050652	027511	020117		CMP    	@020117(R5), (R1)
050656	051105			BIS    	(R1), R5
050660	047522	000122		BIC    	@000122(R5), (R2)+
050664	051101			BIS    	(R1), R1
050666	040522			BIC    	R5, (R2)+
050670	020131			CMP    	R1, @(R1)+
050672	047502	047125		BIC    	@047125(R5), R2
050676	051504			BIS    	(R5), R4
050700	042440			BIC    	(R4)+, -(R0)
050702	051122			BIS    	(R1), (R2)+
050704	051117			BIS    	(R1), (PC)
050706	052000			BIS    	(R0)+, R0
050710	047517	046440		BIC    	@046440(R5), (PC)
050714	047101	020131		BIC    	@020131(R1), R1
050720	044506			BIC    	-(R5), SP
050722	042514			BIC    	(R5)+, (R4)
050724	020123			CMP    	R1, (R3)+
050726	050117			BIS    	R1, (PC)
050730	047105	000000		BIC    	@000000(R1), R5
========================= SUPMON DATA END =============================
========================= SUPMON CODE BEGIN ===========================
; $START:
050734	016705	177134		MOV    	050074, R5
050740	010567	177120		MOV    	R5, 050064
050744	005067	177120		CLR    	050070
050750	012700	177776		MOV    	#177776, R0
050754	104354			EMT    	000354
050756	010006			MOV    	R0, SP
050760	010067	177106		MOV    	R0, 050072
050764	022727	000073	000073	CMP    	#000073, #000073
050772	001405			BEQ    	051006
050774	012700	050171		MOV    	#050171, R0
051000	004767	000026		CALL   	051032	; TYPER
051004	104350			EMT    	000350
051006	012700	050100		MOV    	#050100, R0
051012	012710	001400		MOV    	#001400, (R0)
051016	012760	051124	000002	MOV    	#051124, 000002(R0)
051024	104375			EMT    	000375
051026	000167	166650		JMP    	037702
; TYPER
051032	010146			MOV    	R1, -(SP)
051034	010001			MOV    	R0, R1
051036	000402			BR     	051044
051040	104341			EMT    	000341
051042	103776			BLO    	051040
051044	112100			MOVB   	(R1)+, R0
051046	001374			BNE    	051040
051050	012601			MOV    	(SP)+, R1
051052	000207			RETURN 	
; SAVREG
051054	010446			MOV    	R4, -(SP)
051056	010346			MOV    	R3, -(SP)
051060	010246			MOV    	R2, -(SP)
051062	010146			MOV    	R1, -(SP)
051064	010046			MOV    	R0, -(SP)
051066	016646	000012		MOV    	000012(SP), -(SP)
051072	010566	000014		MOV    	R5, 000014(SP)
051076	000207			RETURN 	
; RESREG
051100	016605	000014		MOV    	000014(SP), R5
051104	012666	000012		MOV    	(SP)+, 000012(SP)
051110	012600			MOV    	(SP)+, R0
051112	012601			MOV    	(SP)+, R1
051114	012602			MOV    	(SP)+, R2
051116	012603			MOV    	(SP)+, R3
051120	012604			MOV    	(SP)+, R4
051122	000207			RETURN 	
051124	103421			BLO    	051170
051126	012700	050157		MOV    	#050157, R0
051132	004767	177674		CALL   	051032	; TYPER
051136	012700	050143		MOV    	#050143, R0
051142	004767	177664		CALL   	051032	; TYPER
051146	011600			MOV    	(SP), R0
051150	004767	000062		CALL   	051236
051154	012700	050140		MOV    	#050140, R0
051160	004767	177646		CALL   	051032	; TYPER
051164	000167	176652		JMP    	050042	; $END
051170	004567	000002		JSR    	R5, 051176 ; RTERR
051174	050350			BIS    	R3, @-(R0)
; RTERR
051176	011500			MOV    	(R5), R0
051200	004767	177626		CALL   	051032	; TYPER
051204	012700	050143		MOV    	#050143, R0
051210	004767	177616		CALL   	051032	; TYPER
051214	010500			MOV    	R5, R0
051216	004767	000014		CALL   	051236
051222	012700	050140		MOV    	#050140, R0
051226	004767	177600		CALL   	051032	; TYPER
051232	000167	176604		JMP    	050042
051236	010046			MOV    	R0, -(SP)
051240	010146			MOV    	R1, -(SP)
051242	010001			MOV    	R0, R1
051244	012700	000030		MOV    	#000030, R0
051250	006101			ROL    	R1
051252	006100			ROL    	R0
051254	104341			EMT    	000341
051256	103776			BLO    	051254
051260	052701	000001		BIS    	#000001, R1
051264	012700	000006		MOV    	#000006, R0
051270	000241			CLC    	
051272	006101			ROL    	R1
051274	006100			ROL    	R0
051276	006101			ROL    	R1
051300	006100			ROL    	R0
051302	006101			ROL    	R1
051304	006100			ROL    	R0
051306	104341			EMT    	000341
051310	103776			BLO    	051306
051312	020127	100000		CMP    	R1, #100000
051316	001362			BNE    	051264
051320	012601			MOV    	(SP)+, R1
051322	012600			MOV    	(SP)+, R0
051324	000207			RETURN 	
======================= SUPMON CODE END =====================
======================= SUPWLN CODE BEGIN ===================
; WRLN ; $B36
051326	012767	050056	176524	MOV    	#050056, 050060
; WRLNFL ; $B38
051334	012746	050140		MOV    	#050140, -(SP)
051340	012746	000002		MOV    	#000002, -(SP)
051344	005046			CLR    	-(SP)
051346	004767	000336		CALL   	051710	; WRSTGF ; $B34
051352	000207			RETURN 	
======================= SUPWLN CODE END =====================
======================= SUPWNM CODE BEGIN ===================
; WRNM ; $B24
051354	012767	050056	176476	MOV    	#050056, 050060
; WRNMFL ; $B26
051362	004767	001516		CALL   	053104	; CHKOPN
051366	004767	177462		CALL   	051054	; SAVREG
051372	005003			CLR    	R3
051374	016601	000020		MOV    	000020(SP), R1
051400	016605	000016		MOV    	000016(SP), R5
051404	001002			BNE    	051412
051406	012705	000015		MOV    	#000015, R5
051412	100007			BPL    	051432
051414	062705	000007		ADD    	#000007, R5
051420	005405			NEG    	R5
051422	005203			INC    	R3
051424	012704	051650		MOV    	#051650, R4
051430	000412			BR     	051456
051432	162705	000005		SUB    	#000005, R5
051436	020127	100000		CMP    	R1, #100000
051442	103403			BLO    	051452
051444	005305			DEC    	R5
051446	005103			COM    	R3
051450	005401			NEG    	R1
051452	012704	051664		MOV    	#051664, R4
051456	005002			CLR    	R2
051460	005705			TST    	R5
051462	003406			BLE    	051500
051464	012700	000040		MOV    	#000040, R0
051470	004767	001574		CALL   	053270	; PUTCHF
051474	005305			DEC    	R5
051476	001374			BNE    	051470
051500	005724			TST    	(R4)+
051502	001406			BEQ    	051520
051504	005000			CLR    	R0
051506	006101			ROL    	R1
051510	006100			ROL    	R0
051512	006001			ROR    	R1
051514	005700			TST    	R0
051516	000406			BR     	051534
051520	021427	000001		CMP    	(R4), #000001
051524	001001			BNE    	051530
051526	005202			INC    	R2
051530	005000			CLR    	R0
051532	071024			DIV    	(R4)+, R0
051534	001007			BNE    	051554
051536	005702			TST    	R2
051540	001005			BNE    	051554
051542	005205			INC    	R5
051544	003421			BLE    	051610
051546	012700	000040		MOV    	#000040, R0
051552	000414			BR     	051604
051554	005202			INC    	R2
051556	062700	000060		ADD    	#000060, R0
051562	005703			TST    	R3
051564	002007			BGE    	051604
051566	005003			CLR    	R3
051570	010046			MOV    	R0, -(SP)
051572	012700	000055		MOV    	#000055, R0
051576	004767	001466		CALL   	053270	; PUTCHF
051602	012600			MOV    	(SP)+, R0
051604	004767	001460		CALL   	053270	; PUTCHF
051610	005714			TST    	(R4)
051612	001342			BNE    	051520
051614	005703			TST    	R3
051616	003404			BLE    	051630
051620	012700	000102		MOV    	#000102, R0
051624	004767	001440		CALL   	053270	; PUTCHF
051630	004767	001512		CALL   	053346	; FORCE ; FORCEF
051634	004767	177240		CALL   	051100	; RESREG
051640	012616			MOV    	(SP)+, (SP)
051642	012616			MOV    	(SP)+, (SP)
051644	000167	001312		JMP    	053162	; KLUDGE
051650	177777			unknown	177777
051652	010000			MOV    	R0, R0
051654	001000			BNE    	051656
051656	000100			JMP    	R0
051660	000010			unknown	000010
051662	000001			WAIT   	
051664	000000			HALT   	
051666	023420			CMP    	@(R4)+, (R0)+
051670	001750			BEQ    	051612
051672	000144			JMP    	-(R4)
051674	000012			START  	
051676	000001			WAIT   	
051700	000000			HALT   	
======================= SUPWNM CODE END =====================
======================= SUPWST CODE BEGIN ===================
; WRSTG ; $B32
051702	012767	050056	176150	MOV    	#050056, 050060
; WRSTGF ; $B34
051710	004567	001172		JSR    	R5, 053106 ; SETIO
051714	000012			START  	
051716	010146			MOV    	R1, -(SP)
051720	010246			MOV    	R2, -(SP)
051722	016601	000020		MOV    	000020(SP), R1
051726	016602	000022		MOV    	000022(SP), R2
051732	160201			SUB    	R2, R1
051734	003406			BLE    	051752
051736	012700	000040		MOV    	#000040, R0
051742	004767	001256		CALL   	053224	; PUTCHR
051746	005301			DEC    	R1
051750	001374			BNE    	051742
051752	016601	000024		MOV    	000024(SP), R1
051756	005702			TST    	R2
051760	001405			BEQ    	051774
051762	112100			MOVB   	(R1)+, R0
051764	004767	001234		CALL   	053224	; PUTCHR
051770	005302			DEC    	R2
051772	001373			BNE    	051762
051774	004767	001346		CALL   	053346	; FORCE ; FORCEF
052000	012602			MOV    	(SP)+, R2
052002	012601			MOV    	(SP)+, R1
052004	000207			RETURN 	
======================= SUPWST CODE END =====================
======================= SUPSET CODE BEGIN ===================
; INSERT ; $B50
052006	010067	176050		MOV    	R0, 050062
052012	116600	000002		MOVB   	000002(SP), R0
052016	012616			MOV    	(SP)+, (SP)
052020	000411			BR     	052044
052022	010046			MOV    	R0, -(SP)
052024	004167	000032		JSR    	R1, 052062
052030	050162	000004		BIS    	R1, 000004(R2)
052034	012602			MOV    	(SP)+, R2
052036	012601			MOV    	(SP)+, R1
052040	012600			MOV    	(SP)+, R0
052042	005200			INC    	R0
052044	120066	000002		CMPB   	R0, 000002(SP)
052050	101764			BLOS   	052022
052052	012616			MOV    	(SP)+, (SP)
052054	016700	176002		MOV    	050062, R0
052060	000207			RETURN 	
052062	010246			MOV    	R2, -(SP)
052064	010146			MOV    	R1, -(SP)
052066	020027	000077		CMP    	R0, #000077
052072	101015			BHI    	052126
052074	010002			MOV    	R0, R2
052076	072227	177774		ASH    	#177774, R2
052102	006302			ASL    	R2
052104	060602			ADD    	SP, R2
052106	062702	000010		ADD    	#000010, R2
052112	012701	000001		MOV    	#000001, R1
052116	042700	177760		BIC    	#177760, R0
052122	072100			ASH    	R0, R1
052124	000207			RETURN 	
052126	004567	177044		JSR    	R5, 051176 ; RTERR
052132	050621			BIS    	SP, (R1)+
; DOIN ; $B40
052134	010067	175722		MOV    	R0, 050062
052140	116600	000002		MOVB   	000002(SP), R0
052144	012616			MOV    	(SP)+, (SP)
052146	020027	000077		CMP    	R0, #000077
052152	101403			BLOS   	052162
052154	005066	000004		CLR    	000004(SP)
052160	000410			BR     	052202
052162	004167	177674		JSR    	R1, 052062
052166	011266	000012		MOV    	(R2), 000012(SP)
052172	010166	000010		MOV    	R1, 000010(SP)
052176	012602			MOV    	(SP)+, R2
052200	012601			MOV    	(SP)+, R1
052202	012666	000006		MOV    	(SP)+, 000006(SP)
052206	005726			TST    	(SP)+
052210	016700	175646		MOV    	050062, R0
052214	032626			BIT    	(SP)+, (SP)+
052216	000207			RETURN 	
; SETDIF ; $B48
052220	004067	000334		JSR    	R0, 052560
052224	042120			BIC    	(R1)+, (R0)+
052226	042120			BIC    	(R1)+, (R0)+
052230	042120			BIC    	(R1)+, (R0)+
052232	042120			BIC    	(R1)+, (R0)+
052234	000406			BR     	052252
; SETOR ; $B56
052236	004067	000316		JSR    	R0, 052560
052242	052120			BIS    	(R1)+, (R0)+
052244	052120			BIS    	(R1)+, (R0)+
052246	052120			BIS    	(R1)+, (R0)+
052250	052120			BIS    	(R1)+, (R0)+
052252	012601			MOV    	(SP)+, R1
052254	012600			MOV    	(SP)+, R0
052256	012666	000006		MOV    	(SP)+, 000006(SP)
052262	062706	000006		ADD    	#000006, SP
052266	000207			RETURN 	
; SETAND ; $B58
052270	004067	000264		JSR    	R0, 052560
052274	005111			COM    	(R1)
052276	042120			BIC    	(R1)+, (R0)+
052300	005111			COM    	(R1)
052302	042120			BIC    	(R1)+, (R0)+
052304	005111			COM    	(R1)
052306	042120			BIC    	(R1)+, (R0)+
052310	005111			COM    	(R1)
052312	042120			BIC    	(R1)+, (R0)+
052314	000756			BR     	052252
; PSHSET ; $B52
052316	010067	175540		MOV    	R0, 050062
052322	016600	000002		MOV    	000002(SP), R0
052326	012616			MOV    	(SP)+, (SP)
052330	022020			CMP    	(R0)+, (R0)+
052332	011046			MOV    	(R0), -(SP)
052334	014046			MOV    	-(R0), -(SP)
052336	014046			MOV    	-(R0), -(SP)
052340	016646	000006		MOV    	000006(SP), -(SP)
052344	016066	000006	000010	MOV    	000006(R0), 000010(SP)
052352	016700	175504		MOV    	050062, R0
052356	000207			RETURN 	
; POPSET ; $B54
052360	010067	175476		MOV    	R0, 050062
052364	016600	000002		MOV    	000002(SP), R0
052370	012616			MOV    	(SP)+, (SP)
052372	016660	000010	000006	MOV    	000010(SP), 000006(R0)
052400	012666	000006		MOV    	(SP)+, 000006(SP)
052404	012620			MOV    	(SP)+, (R0)+
052406	012620			MOV    	(SP)+, (R0)+
052410	012610			MOV    	(SP)+, (R0)
052412	016700	175444		MOV    	050062, R0
052416	000207			RETURN 	
; SETEQ ; $B42
052420	004067	000134		JSR    	R0, 052560
052424	022120			CMP    	(R1)+, (R0)+
052426	001016			BNE    	052464
052430	022120			CMP    	(R1)+, (R0)+
052432	001014			BNE    	052464
052434	022120			CMP    	(R1)+, (R0)+
052436	001012			BNE    	052464
052440	022120			CMP    	(R1)+, (R0)+
052442	001010			BNE    	052464
052444	012601			MOV    	(SP)+, R1
052446	012600			MOV    	(SP)+, R0
052450	012666	000016		MOV    	(SP)+, 000016(SP)
052454	062706	000016		ADD    	#000016, SP
052460	000264			SEZ    	
052462	000207			RETURN 	
052464	012601			MOV    	(SP)+, R1
052466	012600			MOV    	(SP)+, R0
052470	012666	000016		MOV    	(SP)+, 000016(SP)
052474	062706	000016		ADD    	#000016, SP
052500	000244			CLZ    	
052502	000207			RETURN 	
; SETGE ; $B46
052504	004067	000050		JSR    	R0, 052560
052510	042120			BIC    	(R1)+, (R0)+
052512	001364			BNE    	052464
052514	042120			BIC    	(R1)+, (R0)+
052516	001362			BNE    	052464
052520	042120			BIC    	(R1)+, (R0)+
052522	001360			BNE    	052464
052524	041110			BIC    	(R1), (R0)
052526	001356			BNE    	052464
052530	000745			BR     	052444
; SETLE ; $B44
052532	004067	000022		JSR    	R0, 052560
052536	042021			BIC    	(R0)+, (R1)+
052540	001351			BNE    	052464
052542	042021			BIC    	(R0)+, (R1)+
052544	001347			BNE    	052464
052546	042021			BIC    	(R0)+, (R1)+
052550	001345			BNE    	052464
052552	041011			BIC    	(R0), (R1)
052554	001343			BNE    	052464
052556	000732			BR     	052444
052560	010146			MOV    	R1, -(SP)
052562	010046			MOV    	R0, -(SP)
052564	010601			MOV    	SP, R1
052566	062701	000010		ADD    	#000010, R1
052572	010100			MOV    	R1, R0
052574	062700	000010		ADD    	#000010, R0
052600	000207			RETURN 	
======================= SUPSET CODE END =====================
======================= SUPINT CODE BEGIN ===================
052602	010046			MOV    	R0, -(SP)
052604	010146			MOV    	R1, -(SP)
052606	005000			CLR    	R0
052610	016601	000012		MOV    	000012(SP), R1
052614	100001			BPL    	052620
052616	005300			DEC    	R0
052620	000176	000004		JMP    	@000004(SP)
; UNSMUL ; $B116
052624	004767	177752		CALL   	052602
052630	005000			CLR    	R0
052632	070166	000010		MUL    	000010(SP), R1
052636	000443			BR     	052746
; UNSDIV ; $B118
052640	004767	177736		CALL   	052602
052644	005000			CLR    	R0
052646	071066	000010		DIV    	000010(SP), R0
052652	103447			BLO    	052772
052654	010001			MOV    	R0, R1
052656	000433			BR     	052746
; UNSMOD ; $B120
052660	004767	177716		CALL   	052602
052664	005000			CLR    	R0
052666	071066	000010		DIV    	000010(SP), R0
052672	103437			BLO    	052772
052674	000424			BR     	052746
; DOMUL ; $B78
052676	004767	177700		CALL   	052602
052702	070166	000010		MUL    	000010(SP), R1
052706	103426			BLO    	052764
052710	000416			BR     	052746
; DODIV ; $B80
052712	004767	177664		CALL   	052602
052716	071066	000010		DIV    	000010(SP), R0
052722	103423			BLO    	052772
052724	102422			BVS    	052772
052726	010001			MOV    	R0, R1
052730	000406			BR     	052746
; DOMOD ; $B82
052732	004767	177644		CALL   	052602
052736	071066	000010		DIV    	000010(SP), R0
052742	103413			BLO    	052772
052744	102407			BVS    	052764
052746	010166	000012		MOV    	R1, 000012(SP)
052752	012601			MOV    	(SP)+, R1
052754	012600			MOV    	(SP)+, R0
052756	005726			TST    	(SP)+
052760	012616			MOV    	(SP)+, (SP)
052762	000207			RETURN 	
052764	004567	176206		JSR    	R5, 051176 ; RTERR
052770	050402			BIS    	R4, R2
052772	004567	176200		JSR    	R5, 051176 ; RTERR
052776	050476
======================= SUPINT CODE END =====================
======================= SUPREG CODE BEGIN ===================
; SVREG ; $B74
053000	016746	175054		MOV	050060, -(SP)
053004	010146			MOV    	R1, -(SP)
053006	010246			MOV    	R2, -(SP)
053010	010346			MOV    	R3, -(SP)
053012	010601			MOV    	SP, R1
053014	162701	000030		SUB    	#000030, R1
053020	020167	175040		CMP    	R1, 050064
053024	101417			BLOS   	053064
053026	010007			MOV    	R0, PC
; UNREG ; $B76
053030	005726			TST    	(SP)+
053032	012603			MOV    	(SP)+, R3
053034	012602			MOV    	(SP)+, R2
053036	012601			MOV    	(SP)+, R1
053040	012667	175014		MOV    	(SP)+, 050060
053044	000200			RTS    	R0
; STKCHK ; $B127
053046	010601			MOV    	SP, R1
053050	162701	000030		SUB    	#000030, R1
053054	020167	175004		CMP    	R1, 050064
053060	101401			BLOS   	053064
053062	000207			RETURN 	
053064	005067	174774		CLR    	050064
053070	004567	176102		JSR    	R5, 051176 ; RTERR
053074	050545			BIS    	R5, -(R5)
; $B125 ; $$B125
053076	004567	176074		JSR    	R5, 051176 ; RTERR
053102	050664
======================= SUPREG CODE END =====================
======================= SUPIO CODE BEGIN ====================
; CHKOPN
053104	000207			RETURN
; SETIO
053106	012546			MOV    	(R5)+, -(SP)
053110	060616			ADD    	SP, (SP)
053112	010446			MOV    	R4, -(SP)
053114	010046			MOV    	R0, -(SP)
053116	010546			MOV    	R5, -(SP)
053120	013705	050060		MOV    	@#050060, R5
053124	010504			MOV    	R5, R4
053126	020527	050056		CMP    	R5, #050056
053132	001402			BEQ    	053140
053134	062704	000014		ADD    	#000014, R4
053140	004736			CALL   	@(SP)+
053142	012600			MOV    	(SP)+, R0
053144	012604			MOV    	(SP)+, R4
053146	016605	000002		MOV    	000002(SP), R5
053152	016676	000004	000000	MOV    	000004(SP), @000000(SP)
053160	011606			MOV    	(SP), SP
; KLUDGE
053162	000207			RETURN 	
; CHKRW
053164	103401			BLO    	053170	; CHKRWE
053166	000207			RETURN 	
; CHKRWE
053170	123727	000052	000001	CMPB   	@#000052, #000001
053176	103404			BLO    	053210
053200	101006			BHI    	053216
053202	004567	175770		JSR    	R5, 051176 ; RTERR
053206	050644			BIS    	SP, -(R4)
053210	004567	175762		JSR    	R5, 051176 ; RTERR
053214	050242			BIS    	R2, -(R2)
053216	004567	175754		JSR    	R5, 051176 ; RTERR
053222	050267
======================= SUPIO CODE END ======================
======================= SUPIOO CODE BEGIN ===================
; PUTCHR
053224	020527	050056		CMP	R5, #050056
053230	001003			BNE    	053240
053232	104341			EMT    	000341
053234	103776			BLO    	053232
053236	000207			RETURN 	
053240	110075	000000		MOVB   	R0, @000000(R5)
053244	005215			INC    	(R5)
053246	016546	000006		MOV    	000006(R5), -(SP)
053252	062716	001000		ADD    	#001000, (SP)
053256	022615			CMP    	(SP)+, (R5)
053260	101002			BHI    	053266
053262	004767	000020		CALL   	053306	; DUMPBF ; FORCER
053266	000207			RETURN 	
; PUTCHF
053270	010546			MOV    	R5, -(SP)
053272	016705	174562		MOV    	050060, R5
053276	004767	177722		CALL   	053224	; PUTCHR
053302	012605			MOV    	(SP)+, R5
053304	000207			RETURN 	
; DUMPBF ; FORCER
053306	020527	050056		CMP    	R5, #050056
053312	001415			BEQ    	053346	; FORCE ; FORCEF
053314	005065	000012		CLR    	000012(R5)
053320	010046			MOV    	R0, -(SP)
053322	010500			MOV    	R5, R0
053324	005720			TST    	(R0)+
053326	104375			EMT    	000375
053330	004767	177630		CALL   	053164	; CHKRW
053334	012600			MOV    	(SP)+, R0
053336	016515	000006		MOV    	000006(R5), (R5)
053342	005265	000004		INC    	000004(R5)
; FORCE ; FORCEF
053346	000207			RETURN 	
======================= SUPIOO CODE END ===================
053350	000000			HALT   	
053352	000000			HALT   	
053354	000000			HALT   	
053356	000000			HALT   	
053360	000000			HALT   	
053362	000000			HALT   	
053364	000000			HALT   	
053366	000000			HALT   	
053370	000000			HALT   	
053372	000000			HALT   	
053374	000000			HALT   	
053376	000000			HALT   	
053400	000000			HALT   	
053402	000000			HALT   	
053404	000000			HALT   	
053406	000000			HALT   	
053410	000000			HALT   	
053412	000000			HALT   	
053414	000000			HALT   	
053416	000000			HALT   	
053420	000000			HALT   	
053422	000000			HALT   	
053424	000000			HALT   	
053426	000000			HALT   	
053430	000000			HALT   	
053432	000000			HALT   	
053434	000000			HALT   	
053436	000000			HALT   	
053440	000000			HALT   	
053442	000000			HALT   	
053444	000000			HALT   	
053446	000000			HALT   	
053450	000000			HALT   	
053452	000000			HALT   	
053454	000000			HALT   	
053456	000000			HALT   	
053460	000000			HALT   	
053462	000000			HALT   	
053464	000000			HALT   	
053466	000000			HALT   	
053470	000000			HALT   	
053472	000000			HALT   	
053474	000000			HALT   	
053476	000000			HALT   	
053500	000000			HALT   	
053502	000000			HALT   	
053504	000000			HALT   	
053506	000000			HALT   	
053510	000000			HALT   	
053512	000000			HALT   	
053514	000000			HALT   	
053516	000000			HALT   	
053520	000000			HALT   	
053522	000000			HALT   	
053524	000000			HALT   	
053526	000000			HALT   	
053530	000000			HALT   	
053532	000000			HALT   	
053534	000000			HALT   	
053536	000000			HALT   	
053540	000000			HALT   	
053542	000000			HALT   	
053544	000000			HALT   	
053546	000000			HALT   	
053550	000000			HALT   	
053552	000000			HALT   	
053554	000000			HALT   	
053556	000000			HALT   	
053560	000000			HALT   	
053562	000000			HALT   	
053564	000000			HALT   	
053566	000000			HALT   	
053570	000000			HALT   	
053572	000000			HALT   	
053574	000000			HALT   	
053576	000000			HALT   	
053600	000000			HALT   	
053602	000000			HALT   	
053604	000000			HALT   	
053606	000000			HALT   	
053610	000000			HALT   	
053612	000000			HALT   	
053614	000000			HALT   	
053616	000000			HALT   	
053620	000000			HALT   	
053622	000000			HALT   	
053624	000000			HALT   	
053626	000000			HALT   	
053630	000000			HALT   	
053632	000000			HALT   	
053634	000000			HALT   	
053636	000000			HALT   	
053640	000000			HALT   	
053642	000000			HALT   	
053644	000000			HALT   	
053646	000000			HALT   	
053650	000000			HALT   	
053652	000000			HALT   	
053654	000000			HALT   	
053656	000000			HALT   	
053660	000000			HALT   	
053662	000000			HALT   	
053664	000000			HALT   	
053666	000000			HALT   	
053670	000000			HALT   	
053672	000000			HALT   	
053674	000000			HALT   	
053676	000000			HALT   	
053700	000000			HALT   	
053702	000000			HALT   	
053704	000000			HALT   	
053706	000000			HALT   	
053710	000000			HALT   	
053712	000000			HALT   	
053714	000000			HALT   	
053716	000000			HALT   	
053720	000000			HALT   	
053722	000000			HALT   	
053724	000000			HALT   	
053726	000000			HALT   	
053730	000000			HALT   	
053732	000000			HALT   	
053734	000000			HALT   	
053736	000000			HALT   	
053740	000000			HALT   	
053742	000000			HALT   	
053744	000000			HALT   	
053746	000000			HALT   	
053750	000000			HALT   	
053752	000000			HALT   	
053754	000000			HALT   	
053756	000000			HALT   	
053760	000000			HALT   	
053762	000000			HALT   	
053764	000000			HALT   	
053766	000000			HALT   	
053770	000000			HALT   	
053772	000000			HALT   	
053774	000000			HALT   	
053776	000000			HALT   	
