001000	000167	046542		JMP    	047546	; PROCEDURE DCHAR (POS,COD:INTEGER)
001004	000167	046574		JMP    	047604	; PROCEDURE DSTRIN (POS,N:INTEGER; VAR CH:CHAR)
001010	000167	046636		JMP    	047652	; PROCEDURE DVAL (VAL,POS,N,RAD : INTEGER)
001014	000167	046722		JMP    	047742	; FUNCTION KSTRIN (VAR ADDR : STR20) : INTEGER
001020	000167	046744		JMP    	047770	; PROCEDURE RESPON (VAR ADDR : STR20)
001024	000167	045500		JMP    	046530	; FUNCTION  PUTBMAP (VAR MAP:CHAR):INTEGER
001030	000167	045674		JMP    	046730	; PROCEDURE KILPROC (NUM:INTEGER)
001034	000167	045704		JMP    	046744	; PROCEDURE SETPRI  (PRI:INTEGER)
001040	000167	046020		JMP    	047064	; FUNCTION  UNPVEC  (VEC:INTEGER):INTEGER
001044	000167	046104		JMP    	047154	; PROCEDURE UNPREG  (REG:INTEGER)
001050	000167	045374		JMP    	046450	; PROCEDURE FREMEM  (BLN:INTEGER; N8K:INTEGER)
001054	000167	045420		JMP    	046500	; PROCEDURE FRE4K   (BLN:INTEGER; N4K:INTEGER)
001060	000167	045472		JMP    	046556	; FUNCTION  GETBMAP (VAR MAP:CHAR):INTEGER
001064	000167	045520		JMP    	046610	; FUNCTION  GETSMAP (VAR MAP:CHAR):INTEGER
001070	000167	045264		JMP    	046360	; FUNCTION  GET4K   (N4K:INTEGER):INTEGER
001074	000167	045312		JMP    	046412	; FUNCTION  GET8K   (VAR N8K:INTEGER):INTEGER
001100	000167	045562		JMP    	046666	; FUNCTION  NEWPROC (UMAP, DESC : INTEGER):INTEGER
001104	000167	045650		JMP    	046760	; PROCEDURE HIMPRI  (PROC, PRI : INTEGER)
001110	000167	045520		JMP    	046634	; FUNCTION  NEWROMP (SADDR:INTEGER):INTEGER
001114	000167	045670		JMP    	047010	; FUNCTION  PROVEC  (PAR, VEC : INTEGER; VAR ADDR:INTEGER):INTEGER
001120	000167	045766		JMP    	047112	; FUNCTION  PROREG  (RTBL:INTEGER; VAR ADDR:INTEGER):INTEGER
001124	000167	046146		JMP    	047276	; PROCEDURE SETINT  (VEC:INTEGER)
001130	000167	046164		JMP    	047320	; PROCEDURE RESINT  (VEC:INTEGER)
001134	000167	046202		JMP    	047342	; PROCEDURE MTHLT   (WORD,ADR:INTEGER)
001140	000167	046226		JMP    	047372	; FUNCTION  MFHLT   (ADR:INTEGER):INTEGER
001144	000167	046246		JMP    	047416	; FUNCTION  INITSEM (IVAL:INTEGER):INTEGER
001150	000167	046274		JMP    	047450	; PROCEDURE RELSEM  (SEM:INTEGER)
001154	000167	046304		JMP    	047464	; PROCEDURE WAITSEM (SEM:INTEGER)
001160	000167	046314		JMP    	047500	; PROCEDURE SIGSEM  (SEM:INTEGER)
001164	000167	046324		JMP    	047514	; PROCEDURE TIMEOFF
001170	000167	046336		JMP    	047532	; PROCEDURE TIMEON
001174	000167	045770		JMP    	047170	; FUNCTION  WAITINT (MASK,INTERVAL,PARAM:INTEGER; VAR R0, R1, R2 : INTEGER):INTEGER
001200	000167	044020		JMP    	045224	; PROCEDURE PLMOD ( var PAL :PALTYP) ***
001204	000167	044054		JMP    	045264	; PROCEDURE PLSAV ( VAR PAL :PALTYP) ***
001210	000167	044354		JMP    	045570	; PROCEDURE PLCRE ( VAR PAL :PALTYP) ***
001214	000167	044406		JMP    	045626	; PROCEDURE PLFRE ( VAR PAL :PALTYP) ***
001220	000167	044600		JMP    	046024	; PROCEDURE PLMODx ( var PAL :PALTYP) ***
001224	000167	044634		JMP    	046064	; PROCEDURE PLSAVx ( VAR PAL :PALTYP) ***
001230	000167	044670		JMP    	046124	; PROCEDURE PLCREx ( VAR PAL :PALTYP) ***
001234	000167	044722		JMP    	046162	; PROCEDURE PLFREx ( VAR PAL :PALTYP)
001240	000167	043124		JMP    	044370	; PROCEDURE ARINST (VAR AR:ARETYP; VAR AREA:INTEGER)
001244	000167	043246		JMP    	044516	; PROCEDURE ARCRE ( VAR AREA :INTEGER; VAR AR : ARETYP)
001250	000167	043360		JMP    	044634	; PROCEDURE ARKILL (VAR AR :ARETYP) ***
001254	000167	044044		JMP    	045324	; PROCEDURE HBMOVE (AR1,CMD,Y1,NY,X1,NX,AR2,Y2,X2 :INTEGER) ***
001260	000167	043430		JMP    	044714	; PROCEDURE VWCRE (VAR WIN :WINTYP) ***
001264	000167	043464		JMP    	044754	; PROCEDURE VWKILL (VAR WIN :WINTYP) ***
001270	000167	043534		JMP    	045030	; PROCEDURE VWTAKE (VAR WIN :WINTYP) ***
001274	000167	043570		JMP    	045070	; PROCEDURE VWFORE (VAR WIN :WINTYP) ***
001300	000167	044160		JMP    	045464	; PROCEDURE WPRINT(ANUM, X, Y :INTEGER; VAR C :CHAR) ***
001304	000167	043620		JMP    	045130	; PROCEDURE VWBACK (VAR WIN:WINTYP) ***
001310	000167	043652		JMP    	045166	; PROCEDURE VWLOOK (VAR WIN:WINTYP)
001314	000167	044344		JMP    	045664	; PROCEDURE CRSET (XCUR,YCUR:INTEGER)
001320	000167	044424		JMP    	045750	; PROCEDURE CRERA
001324	000167	044434		JMP    	045764	; PROCEDURE FNINST (VAR PAR:FNTYP)
001330	000167	044664		JMP    	046220	; PROCEDURE FNKILL (VAR PAR:FNTYP)
001334	000167	044720		JMP    	046260	; PROCEDURE FNFIND (VAR PAR:FNTYP)
001340	000167	044754		JMP    	046320	; PROCEDURE FNLOOK (VAR PAR:FNTYP)
001344	000167	050706		JMP    	052256	; FUNCTION ERRLIB : INTEGER
001350	000167	046430		JMP    	050004	; PROCEDURE GCREA (WIDTH, HEIGHT, MODPAL : INTEGER; VAR IDENT, ANUM : INTEGER)
001354	000167	046532		JMP    	050112	; PROCEDURE GKILL (IDENT : INTEGER)
001360	000167	046576		JMP    	050162	; PROCEDURE GCLRR (IDENT : INTEGER)
001364	000167	046642		JMP    	050232	; PROCEDURE GASP (IDENT, XASP, YASP : INTEGER)
001370	000167	046730		JMP    	050324	; PROCEDURE GWNDW (IDENT, X1, Y1, X2, Y2 : INTEGER)
001374	000167	047032		JMP    	050432	; PROCEDURE GFGC (IDENT, COLOR : INTEGER)
001400	000167	047110		JMP    	050514	; PROCEDURE GBGC (IDENT, COLOR : INTEGER)
001404	000167	047166		JMP    	050576	; PROCEDURE GROP (IDENT, CODE : INTEGER)
001410	000167	047244		JMP    	050660	; PROCEDURE GTYPE (IDENT, TYP : INTEGER)
001414	000167	047322		JMP    	050742	; PROCEDURE GPTRN (IDENT : INTEGER; VAR PATTERN : INTEGER);
001420	000167	047400		JMP    	051024	; PROCEDURE GMOVE (IDENT, X, Y : INTEGER)
001424	000167	047466		JMP    	051116	; PROCEDURE GDOT (IDENT, X, Y : INTEGER)
001430	000167	047554		JMP    	051210	; FUNCTION GGET (IDENT, X, Y : INTEGER):INTEGER
001434	000167	047650		JMP    	051310	; PROCEDURE GLINE (IDENT, X, Y : INTEGER)
001440	000167	047736		JMP    	051402	; PROCEDURE GARCC (IDENT, XC, YC, XF, YF : INTEGER)
001444	000167	050040		JMP    	051510	; PROCEDURE GARCW (IDENT, XC, YC, XF, YF : INTEGER)
001450	000167	050142		JMP    	051616	; PROCEDURE GFILL (IDENT, X, Y : INTEGER)
001454	000167	050230		JMP    	051710	; PROCEDURE GRVR (IDENT, X, Y : INTEGER; VAR ADDR : INTEGER)
001460	000167	050324		JMP    	052010	; PROCEDURE GVRR (IDENT, X1, Y1, X2, Y2 : INTEGER; VAR ADDR : INTEGER)
001464	000167	050434		JMP    	052124	; PROCEDURE GVRVR (IDENT, X1, Y1, X2, Y2, X, Y : INTEGER)
001470	000167	050552		JMP    	052246	; FUNCTION GRERR : INTEGER
=============================================================
; PROCEDURE VAR 2312(SP):ARETYP (ARGET)
001474	162706	002310		SUB    	#002310, SP
; VAR @SP: RECORD
;           CODE:INTEGER;
;           ANUM:INTEGER;
;           LINS:INTEGER;
;           SLEN:INTEGER;
;           TAS:ARRAY[1..300,1..2] OF INTEGER;
;          END;
; 2270(SP),2272(SP),2274(SP),2276(SP),2300(SP),2302(SP),2304(SP),2306(SP):INTEGER
001500	005016			CLR    	(SP)			; @SP.CODE:=0
001502	017666	002312	000002	MOV    	@002312(SP), 000002(SP)	; @SP.ANUM:=2312(SP).ANUM
001510	016600	002312		MOV    	002312(SP), R0
001514	016066	000002	000004	MOV    	000002(R0), 000004(SP)	; @SP.LINS:=2312(SP).LINS
001522	016600	002312		MOV    	002312(SP), R0
001526	016066	000004	000006	MOV    	000004(R0), 000006(SP)	; @SP.SLENS:=2312(SP).SLEN
001534	012746	020000		MOV    	#020000, -(SP)
001540	016646	000010		MOV    	000010(SP), -(SP)
001544	004767	055546		CALL   	057316	; $B80
001550	012666	002270		MOV    	(SP)+, 002270(SP)	; 2270(SP):=20000 DIV @SP.SLEN
001554	016600	002312		MOV    	002312(SP), R0
001560	005760	000010		TST    	000010(R0)		; IF 2312(SP).AMMR=0
001564	001402			BEQ    	001572
001566	000167	000074		JMP    	001666
001572	016600	000004		MOV    	000004(SP), R0		; THEN
001576	066600	002270		ADD    	002270(SP), R0
001602	005300			DEC    	R0
001604	010046			MOV    	R0, -(SP)
001606	016646	002272		MOV    	002272(SP), -(SP)
001612	004767	055500		CALL   	057316	; $B80
001616	012666	002272		MOV    	(SP)+, 002272(SP)	; 2272(SP):=(@SP.LINS+2270(SP)-1) DIV 2270(SP)
001622	016600	002312		MOV    	002312(SP), R0
001626	016660	002272	000012	MOV    	002272(SP), 000012(R0)	; 2312(SP).NPAGE:=2272(SP)
001634	016637	002272	174200	MOV    	002272(SP), @#174200	; {$C
001642	000240			NOP    	
001644	010066	002274		MOV    	R0, 002274(SP)		; }
001650	016600	002312		MOV    	002312(SP), R0
001654	016660	002274	000010	MOV    	002274(SP), 000010(R0)	; 2312(SP).AMMR:=2274(SP)
001662	000167	000012		JMP    	001700
001666	016600	002312		MOV    	002312(SP), R0		; ELSE
001672	016066	000010	002274	MOV    	000010(R0), 002274(SP)	; 2274(SP):=2312(SP).AMMR ; END IF
001700	005066	002276		CLR    	002276(SP)		; 2276(SP):=0
001704	016600	002312		MOV    	002312(SP), R0
001710	016066	000006	002300	MOV    	000006(R0), 002300(SP)	; 2300(SP):=2312(SP).SLEN
001716	010603			MOV    	SP, R3			; WITH @SP
001720	010600			MOV    	SP, R0
001722	062700	002302		ADD    	#002302, R0		; FOR 2302(SP):=1 TO (@SP).LINS
001726	010046			MOV    	R0, -(SP)
001730	012746	000001		MOV    	#000001, -(SP)
001734	016346	000004		MOV    	000004(R3), -(SP)
001740	016676	000002	000004	MOV    	000002(SP), @000004(SP)
001746	027616	000004		CMP    	@000004(SP), (SP)
001752	003402			BLE    	001760
001754	000167	000154		JMP    	002134
001760	016600	002310		MOV    	002310(SP), R0
001764	006300			ASL    	R0
001766	006300			ASL    	R0
001770	060300			ADD    	R3, R0
001772	016660	002304	000004	MOV    	002304(SP), 000004(R0)	; (@SP).TAS[2302(SP),1]:=2276(SP) 
002000	016600	002310		MOV    	002310(SP), R0
002004	006300			ASL    	R0
002006	006300			ASL    	R0
002010	060300			ADD    	R3, R0
002012	016601	002302		MOV    	002302(SP), R1
002016	066601	002306		ADD    	002306(SP), R1
002022	010160	000006		MOV    	R1, 000006(R0)		; (@SP).TAS[2302(SP),2]:=2274(SP)+2300(SP)
002026	066366	000006	002304	ADD    	000006(R3), 002304(SP)	; 2276(SP):=2276(SP)+(@SP).SLEN
002034	026627	002304	010000	CMP    	002304(SP), #010000	; IF 2276(SP)>=10000
002042	002002			BGE    	002050
002044	000167	000014		JMP    	002064
002050	042766	170000	002304	BIC    	#170000, 002304(SP)	; THEN ; 2276(SP):=2276(SP) AND 7777
002056	062766	000020	002302	ADD    	#000020, 002302(SP)	; 2274(SP):=2274(SP)+20 ; END IF
002064	016646	002310		MOV    	002310(SP), -(SP)
002070	016646	002300		MOV    	002300(SP), -(SP)
002074	004767	055250		CALL   	057350	; $B82
002100	005726			TST    	(SP)+			; IF (2302(SP) MOD 2270(SP))=0
002102	001402			BEQ    	002110
002104	000167	000012		JMP    	002122
002110	005066	002304		CLR    	002304(SP)		; THEN ; 2276(SP):=0
002114	062766	000020	002302	ADD    	#000020, 002302(SP)	; 2274(SP):=2274(SP)+20 ; END IF
002122	005276	000004		INC    	@000004(SP)		; NEXT 2302(SP)
002126	102402			BVS    	002134
002130	000167	177612		JMP    	001746
002134	062706	000006		ADD    	#000006, SP		; END FOR 2302(SP)
002140	010315			MOV    	R3, (R5)		; VAR00.A:=@(@SP.CODE)
002142	011537	177530		MOV    	(R5), @#177530		; WCSR:=VAR00.W
002146	016315	000002		MOV    	000002(R3), (R5)	; VAR00.W:=(@SP).ANUM
002152	016376	000002	002312	MOV    	000002(R3), @002312(SP)	; 2312(SP).ANUM:=(@SP).ANUM
002160	017646	002312		MOV    	@002312(SP), -(SP)
002164	005046			CLR    	-(SP)
002166	005046			CLR    	-(SP)
002170	016600	002320		MOV    	002320(SP), R0
002174	016046	000002		MOV    	000002(R0), -(SP)
002200	005046			CLR    	-(SP)
002202	016600	002324		MOV    	002324(SP), R0
002206	016046	000004		MOV    	000004(R0), -(SP)
002212	005046			CLR    	-(SP)
002214	005046			CLR    	-(SP)
002216	005046			CLR    	-(SP)
002220	004767	177030		CALL   	001254			; HBMOVE(2312(SP).ANUM,VCV,0,2312(SP).LINS,0,2312(SP).SLEN,0,0,0)
002224	016666	002310	002312	MOV    	002310(SP), 002312(SP)
002232	062706	002312		ADD    	#002312, SP
002236	000207			RETURN 	
=============================================================
; PROCEDURE VAR 46(SP):ARETYP (ARFRE)
002240	162706	000044		SUB    	#000044, SP
; VAR @SP: RECORD
            CODE:INTEGER;
            ANUM:INTEGER;
           END;
; 4(SP),6(SP),10(SP),12(SP),14(SP),16(SP):INTEGER;
; 20(SP):WINTYP
002244	010603			MOV    	SP, R3			; WITH @SP
002246	012713	000002		MOV    	#000002, (R3)		; (@SP).CODE:=2
002252	017663	000046	000002	MOV    	@000046(SP), 000002(R3)	; (@SP).ANUM:=46(SP).ANUM
002260	010315			MOV    	R3, (R5)		; VAR00.A:=@CODE
002262	011537	177530		MOV    	(R5), @#177530		; WCSR:=VAR00.W
002266	016600	000046		MOV    	000046(SP), R0
002272	016066	000012	000006	MOV    	000012(R0), 000006(SP)	; 6(SP):=46(SP).NPAGE
002300	016600	000046		MOV    	000046(SP), R0
002304	016066	000010	000010	MOV    	000010(R0), 000010(SP)	; 10(SP):=46(SP).AMMR
002312	016600	000010		MOV    	000010(SP), R0		; {$C
002316	016637	000006	174202	MOV    	000006(SP), @#174202	; }
002324	005076	000046		CLR    	@000046(SP)		; 46(SP).ANUM:=0
002330	016600	000046		MOV    	000046(SP), R0
002334	005060	000010		CLR    	000010(R0)		; 46(SP).AMMR:=0
002340	016666	000044	000046	MOV    	000044(SP), 000046(SP)
002346	062706	000046		ADD    	#000046, SP
002352	000207			RETURN 	
=============================================================
; PROCEDURE 6(SP):INTEGER (DELAY)
002354	024646			CMP    	-(SP), -(SP)	; VAR @SP,2(SP):INTEGER
002356	010600			MOV    	SP, R0
002360	010046			MOV    	R0, -(SP)		; FOR @SP:=1 TO 6(SP)
002362	012746	000001		MOV    	#000001, -(SP)
002366	016646	000012		MOV    	000012(SP), -(SP)
002372	016676	000002	000004	MOV    	000002(SP), @000004(SP)
002400	027616	000004		CMP    	@000004(SP), (SP)
002404	003402			BLE    	002412
002406	000167	000026		JMP    	002440
002412	016600	000006		MOV    	000006(SP), R0
002416	062700	000010		ADD    	#000010, R0
002422	010066	000010		MOV    	R0, 000010(SP)		; 2(SP):=@SP+10
002426	005276	000004		INC    	@000004(SP)		; NEXT @SP
002432	102402			BVS    	002440
002434	000167	177740		JMP    	002400
002440	062706	000006		ADD    	#000006, SP		; END FOR @SP
002444	016666	000004	000006	MOV    	000004(SP), 000006(SP)
002452	062706	000006		ADD    	#000006, SP
002456	000207			RETURN 	
=============================================================
; PROCEDURE 4(SP):INTEGER; (LDELAY)
002460	005046			CLR    	-(SP)		; VAR @SP:INTEGER
002462	010600			MOV    	SP, R0
002464	010046			MOV    	R0, -(SP)		; FOR @SP:=1 TO 4(SP)
002466	012746	000001		MOV    	#000001, -(SP)
002472	016646	000010		MOV    	000010(SP), -(SP)
002476	016676	000002	000004	MOV    	000002(SP), @000004(SP)
002504	027616	000004		CMP    	@000004(SP), (SP)
002510	003402			BLE    	002516
002512	000167	000022		JMP    	002540
002516	012746	051661		MOV    	#051661, -(SP)
002522	004767	177626		CALL   	002354			; L02354(51661)
002526	005276	000004		INC    	@000004(SP)		; NEXT @SP
002532	102402			BVS    	002540
002534	000167	177744		JMP    	002504
002540	062706	000006		ADD    	#000006, SP		; END FOR @SP
002544	016666	000002	000004	MOV    	000002(SP), 000004(SP)
002552	062706	000004		ADD    	#000004, SP
002556	000207			RETURN 	
=============================================================
; PROCEDURE 74(SP),72(SP),70(SP),66(SP),64(SP):INTEGER; 40(SP):ARRAY[1..24]OF CHAR (RWPRINT)
002560	162706	000036		SUB    	#000036, SP ; VAR @SP:ARRAY[1..31]OF CHAR
                                                    ; 32(SP),34(SP):INTEGER
002564	016600	000072		MOV    	000072(SP), R0
002570	100001			BPL    	002574
002572	005400			NEG    	R0
002574	010066	000032		MOV    	R0, 000032(SP)		; 32(SP):=ABS(72(SP))
002600	005766	000072		TST    	000072(SP)		; IF 72(SP)>0
002604	003002			BGT    	002612
002606	000167	000010		JMP    	002622
002612	112716	000006		MOVB   	#000006, (SP)		; THEN ; @SP[1]:=CHR(6)
002616	000167	000004		JMP    	002626
002622	112716	000005		MOVB   	#000005, (SP)		; ELSE ; @SP[1]:=CHR(5) ; END IF
002626	112766	000007	000001	MOVB   	#000007, 000001(SP)	; @SP[2]:=CHR(7)
002634	016600	000032		MOV    	000032(SP), R0
002640	006300			ASL    	R0
002642	006300			ASL    	R0
002644	006300			ASL    	R0
002646	006300			ASL    	R0
002650	110066	000002		MOVB   	R0, 000002(SP)		; @SP[3]:=CHR(32(SP)*20)
002654	010600			MOV    	SP, R0
002656	062700	000034		ADD    	#000034, R0		; FOR 34(SP):=1 TO 64(SP)
002662	010046			MOV    	R0, -(SP)
002664	012746	000001		MOV    	#000001, -(SP)
002670	016646	000070		MOV    	000070(SP), -(SP)
002674	016676	000002	000004	MOV    	000002(SP), @000004(SP)
002702	027616	000004		CMP    	@000004(SP), (SP)
002706	003402			BLE    	002714
002710	000167	000040		JMP    	002754
002714	016600	000042		MOV    	000042(SP), R0
002720	062700	000003		ADD    	#000003, R0
002724	060600			ADD    	SP, R0
002726	010601			MOV    	SP, R1
002730	066601	000042		ADD    	000042(SP), R1
002734	116160	000045	000005	MOVB   	000045(R1), 000005(R0)	; @SP[34(SP)+3]:=40(SP)[34(SP)]
002742	005276	000004		INC    	@000004(SP)		; NEXT 34(SP)
002746	102402			BVS    	002754
002750	000167	177726		JMP    	002702
002754	062706	000006		ADD    	#000006, SP		; END FOR 34(SP)
002760	016600	000064		MOV    	000064(SP), R0
002764	062700	000004		ADD    	#000004, R0
002770	060600			ADD    	SP, R0
002772	105060	177777		CLRB   	177777(R0)		; @SP[64(SP)+4]:=CHR(0)
002776	016646	000074		MOV    	000074(SP), -(SP)
003002	016646	000072		MOV    	000072(SP), -(SP)
003006	016646	000072		MOV    	000072(SP), -(SP)
003012	010600			MOV    	SP, R0
003014	062700	000006		ADD    	#000006, R0
003020	010046			MOV    	R0, -(SP)
003022	004767	176252		CALL   	001300			; WPRINT(74(SP),70(SP),66(SP),@@SP[1])
003026	016666	000036	000074	MOV    	000036(SP), 000074(SP)
003034	062706	000074		ADD    	#000074, SP
003040	000207			RETURN 	
=============================================================
; PROCEDURE VAR 6(SP):WINTYP ; 4(SP),2(SP):INTEGER (WXMOVE)
003042	016603	000006		MOV    	000006(SP), R3		; WITH 6(SP)
003046	016600	000004		MOV    	000004(SP), R0
003052	066300	000020		ADD    	000020(R3), R0
003056	166300	000016		SUB    	000016(R3), R0
003062	010063	000020		MOV    	R0, 000020(R3)		; (6(SP)).SX2:=4(SP)+(6(SP)).SX2-(6(SP)).SX1
003066	016663	000004	000016	MOV    	000004(SP), 000016(R3)	; (6(SP)).SX1:= 4(SP)
003074	016600	000002		MOV    	000002(SP), R0
003100	066300	000014		ADD    	000014(R3), R0
003104	166300	000012		SUB    	000012(R3), R0
003110	010063	000014		MOV    	R0, 000014(R3)		; (6(SP)).SY2:=2(SP)+(6(SP)).SY2-(6(SP)).SY1
003114	016663	000002	000012	MOV    	000002(SP), 000012(R3)	; (6(SP)).SY1:= 2(SP)
003122	016646	000006		MOV    	000006(SP), -(SP)
003126	004767	176126		CALL   	001260			; VWCRE(6(SP))
003132	011666	000006		MOV    	(SP), 000006(SP)
003136	062706	000006		ADD    	#000006, SP
003142	000207			RETURN 	
=============================================================
; PROCEDURE VAR 12(SP):WINTYP; 10(SP):INTEGER (WHMOVE)
003144	162706	000006		SUB    	#000006, SP	; VAR @SP,2(SP),4(SP):INTEGER
003150	016600	000010		MOV    	000010(SP), R0
003154	100001			BPL    	003160
003156	005400			NEG    	R0
003160	010066	000004		MOV    	R0, 000004(SP)		; 4(SP):=ABS(10(SP))
003164	016646	000004		MOV    	000004(SP), -(SP)
003170	016646	000012		MOV    	000012(SP), -(SP)
003174	004767	054116		CALL   	057316	; $B80
003200	012666	000002		MOV    	(SP)+, 000002(SP)	; 2(SP):=4(SP) DIV 10(SP)
003204	010600			MOV    	SP, R0
003206	010046			MOV    	R0, -(SP)		; FOR @SP:=1 TO 4(SP)
003210	012746	000001		MOV    	#000001, -(SP)
003214	016646	000010		MOV    	000010(SP), -(SP)
003220	016676	000002	000004	MOV    	000002(SP), @000004(SP)
003226	027616	000004		CMP    	@000004(SP), (SP)
003232	003402			BLE    	003240
003234	000167	000072		JMP    	003332
003240	016600	000020		MOV    	000020(SP), R0
003244	016601	000020		MOV    	000020(SP), R1
003250	016101	000016		MOV    	000016(R1), R1
003254	066601	000010		ADD    	000010(SP), R1
003260	010160	000016		MOV    	R1, 000016(R0)		; 12(SP).SX1:=12(SP).SX1+2(SP)
003264	016600	000020		MOV    	000020(SP), R0
003270	016601	000020		MOV    	000020(SP), R1
003274	016101	000020		MOV    	000020(R1), R1
003300	066601	000010		ADD    	000010(SP), R1
003304	010160	000020		MOV    	R1, 000020(R0)		; 12(SP).SX2:=12(SP).SX2+2(SP)
003310	016646	000020		MOV    	000020(SP), -(SP)
003314	004767	175740		CALL   	001260			; VWCRE(12(SP))
003320	005276	000004		INC    	@000004(SP)		; NEXT @SP
003324	102402			BVS    	003332
003326	000167	177674		JMP    	003226
003332	062706	000006		ADD    	#000006, SP		; END FOR @SP
003336	016666	000006	000012	MOV    	000006(SP), 000012(SP)
003344	062706	000012		ADD    	#000012, SP
003350	000207			RETURN 	
=============================================================
; PROCEDURE VAR 12(SP):WINTYP; 10(SP):INTEGER (WVMOVE)
003352	162706	000006		SUB    	#000006, SP	; VAR @SP,2(SP),4(SP):INTEGER
003356	016600	000010		MOV    	000010(SP), R0
003362	005700			TST    	R0
003364	100001			BPL    	003370
003366	005300			DEC    	R0
003370	006200			ASR    	R0
003372	006200			ASR    	R0
003374	006200			ASR    	R0
003376	100001			BPL    	003402
003400	005200			INC    	R0
003402	010016			MOV    	R0, (SP)		; @SP:=10(SP) DIV 8
003404	011600			MOV    	(SP), R0
003406	100001			BPL    	003412
003410	005400			NEG    	R0
003412	010066	000004		MOV    	R0, 000004(SP)		; 4(SP):=ABS(@SP)
003416	016646	000010		MOV    	000010(SP), -(SP)
003422	016646	000006		MOV    	000006(SP), -(SP)
003426	004767	053664		CALL   	057316	; $B80
003432	012666	000002		MOV    	(SP)+, 000002(SP)	; 2(SP):=10(SP) DIV 4(SP)
003436	010600			MOV    	SP, R0
003440	010046			MOV    	R0, -(SP)		; FOR @SP:=1 TO 4(SP)
003442	012746	000001		MOV    	#000001, -(SP)
003446	016646	000010		MOV    	000010(SP), -(SP)
003452	016676	000002	000004	MOV    	000002(SP), @000004(SP)
003460	027616	000004		CMP    	@000004(SP), (SP)
003464	003402			BLE    	003472
003466	000167	000072		JMP    	003564
003472	016600	000020		MOV    	000020(SP), R0
003476	016601	000020		MOV    	000020(SP), R1
003502	016101	000012		MOV    	000012(R1), R1
003506	066601	000010		ADD    	000010(SP), R1
003512	010160	000012		MOV    	R1, 000012(R0)		; 12(SP).SY1:=12(SP).SY1+2(SP)
003516	016600	000020		MOV    	000020(SP), R0
003522	016601	000020		MOV    	000020(SP), R1
003526	016101	000014		MOV    	000014(R1), R1
003532	066601	000010		ADD    	000010(SP), R1
003536	010160	000014		MOV    	R1, 000014(R0)		; 12(SP).SY2:=12(SP).SY2+2(SP)
003542	016646	000020		MOV    	000020(SP), -(SP)
003546	004767	175506		CALL   	001260			; VWCRE(12(SP))
003552	005276	000004		INC    	@000004(SP)		; NEXT @SP
003556	102402			BVS    	003564
003560	000167	177674		JMP    	003460
003564	062706	000006		ADD    	#000006, SP		; END FOR @SP
003570	016666	000006	000012	MOV    	000006(SP), 000012(SP)
003576	062706	000012		ADD    	#000012, SP
003602	000207			RETURN 	
=============================================================
PROCEDURE 20(SP):ARRAY[1..12]OF CHAR; VAR 16(SP):ARETYP; VAR 14(SP):WINTYP; 12(SP),10(SP):INTEGER (LOADATR)
003604	011404			MOV    	(R4), R4
003606	011404			MOV    	(R4), R4
003610	011404			MOV    	(R4), R4
003612	011404			MOV    	(R4), R4
003614	011404			MOV    	(R4), R4
003616	011404			MOV    	(R4), R4
003620	011404			MOV    	(R4), R4
003622	011404			MOV    	(R4), R4
003624	011404			MOV    	(R4), R4
003626	024646			CMP    	-(SP), -(SP)	; VAR 2(SP):FILE OF RECORD(240); 4(SP):INTEGER
003630	010446			MOV    	R4, -(SP)
003632	010600			MOV    	SP, R0
003634	062700	000002		ADD    	#000002, R0
003640	010067	063532		MOV    	R0, 067376
003644	012746	000240		MOV    	#000240, -(SP)
003650	010600			MOV    	SP, R0
003652	062700	000022		ADD    	#000022, R0
003656	010046			MOV    	R0, -(SP)
003660	012746	000012		MOV    	#000012, -(SP)
003664	012746	004410		MOV    	#004410, -(SP)
003670	012746	000003		MOV    	#000003, -(SP)
003674	005046			CLR    	-(SP)
003676	004767	052102		CALL   	056004	; $B66		; RESET(2(SP),20(SP),'atr')
003702	011603			MOV    	(SP), R3		; WITH LOC00
003704	011600			MOV    	(SP), R0
003706	010001			MOV    	R0, R1
003710	062701	000024		ADD    	#000024, R1		; FOR LOC24:=0 TO 17
003714	010146			MOV    	R1, -(SP)
003716	005046			CLR    	-(SP)
003720	012746	000017		MOV    	#000017, -(SP)
003724	016676	000002	000004	MOV    	000002(SP), @000004(SP)
003732	027616	000004		CMP    	@000004(SP), (SP)
003736	003402			BLE    	003744
003740	000167	000044		JMP    	004010
003744	016600	000006		MOV    	000006(SP), R0
003750	010301			MOV    	R3, R1
003752	066001	000024		ADD    	000024(R0), R1
003756	017602	000010		MOV    	@000010(SP), R2
003762	016004	000024		MOV    	000024(R0), R4
003766	006304			ASL    	R4
003770	060204			ADD    	R2, R4
003772	111461	000004		MOVB   	(R4), 000004(R1)	; (LOC00).C[LOC24]:=2(SP)^[LOC24*2]
003776	005276	000004		INC    	@000004(SP)		; NEXT LOC24
004002	102402			BVS    	004010
004004	000167	177722		JMP    	003732
004010	062706	000006		ADD    	#000006, SP		; END FOR LOC24
004014	012763	000002	000002	MOV    	#000002, 000002(R3)	; (LOC00).MODPAL:=2
004022	011600			MOV    	(SP), R0
004024	010046			MOV    	R0, -(SP)
004026	004767	175156		CALL   	001210			; PLCRE(LOC00)
004032	016603	000016		MOV    	000016(SP), R3		; WITH 16(SP)
004036	005013			CLR    	(R3)			; (16(SP)).ANUM:=0
004040	012763	000310	000002	MOV    	#000310, 000002(R3)	; (16(SP)).LINS:=310
004046	012763	000240	000004	MOV    	#000240, 000004(R3)	; (16(SP)).SLEN:=240
004054	011600			MOV    	(SP), R0
004056	016063	000002	000006	MOV    	000002(R0), 000006(R3)	; (16(SP)).MODPAL:=LOC00.MODPAL
004064	005063	000010		CLR    	000010(R3)		; (16(SP)).AMMR:=0
004070	016646	000016		MOV    	000016(SP), -(SP)
004074	004767	175374		CALL   	001474			; L01474(16(SP))
004100	016603	000014		MOV    	000014(SP), R3		; WITH 14(SP)
004104	017663	000016	000004	MOV    	@000016(SP), 000004(R3)	; (14(SP)).AREA:=16(SP).ANUM
004112	005063	000002		CLR    	000002(R3)		; (14(SP)).WNUM:=0
004116	012763	001002	000022	MOV    	#001002, 000022(R3)	; (14(SP)).DEN:=1002
004124	005063	000006		CLR    	000006(R3)		; (14(SP)).ARY:=0
004130	005063	000010		CLR    	000010(R3)		; (14(SP)).ARX:=0
004134	016663	000010	000012	MOV    	000010(SP), 000012(R3)	; (14(SP)).SY1:=10(SP)
004142	016600	000010		MOV    	000010(SP), R0
004146	062700	000310		ADD    	#000310, R0
004152	010063	000014		MOV    	R0, 000014(R3)		; (14(SP)).SY2:=10(SP)+310
004156	016663	000012	000016	MOV    	000012(SP), 000016(R3)	; (14(SP)).SX1:=12(SP)
004164	016600	000012		MOV    	000012(SP), R0
004170	062700	000024		ADD    	#000024, R0
004174	010063	000020		MOV    	R0, 000020(R3)		; (14(SP)).SX2:=12(SP)+24
004200	016646	000014		MOV    	000014(SP), -(SP)
004204	004767	175050		CALL   	001260			; VWCRE(14(SP))
004210	011600			MOV    	(SP), R0
004212	010001			MOV    	R0, R1
004214	062701	000024		ADD    	#000024, R1		; FOR LOC24:=0 TO 307
004220	010146			MOV    	R1, -(SP)
004222	005046			CLR    	-(SP)
004224	012746	000307		MOV    	#000307, -(SP)
004230	016676	000002	000004	MOV    	000002(SP), @000004(SP)
004236	027616	000004		CMP    	@000004(SP), (SP)
004242	003402			BLE    	004250
004244	000167	000102		JMP    	004352
004250	016667	000010	063120	MOV    	000010(SP), 067376
004256	004767	047176		CALL   	053460	; $B61		; GET(2(SP))
004262	017600	000010		MOV    	@000010(SP), R0
004266	010066	000012		MOV    	R0, 000012(SP)		; 4(SP):=@2(SP)^[0]
004272	017646	000024		MOV    	@000024(SP), -(SP)
004276	012746	000010		MOV    	#000010, -(SP)
004302	016600	000012		MOV    	000012(SP), R0
004306	016046	000024		MOV    	000024(R0), -(SP)
004312	012746	000001		MOV    	#000001, -(SP)
004316	005046			CLR    	-(SP)
004320	012746	000240		MOV    	#000240, -(SP)
004324	016646	000026		MOV    	000026(SP), -(SP)
004330	005046			CLR    	-(SP)
004332	005046			CLR    	-(SP)
004334	004767	174714		CALL   	001254			; HBMOVE(16(SP).ANUM,10,LOC24,1,0,240,4(SP),0,0)
004340	005276	000004		INC    	@000004(SP)		; NEXT LOC24
004344	102402			BVS    	004352
004346	000167	177664		JMP    	004236
004352	062706	000006		ADD    	#000006, SP		; END FOR LOC24
004356	010600			MOV    	SP, R0
004360	062700	000002		ADD    	#000002, R0
004364	010067	063006		MOV    	R0, 067376
004370	004767	050072		CALL   	054466	; $B68		; CLOSE(2(SP))
004374	016666	000006	000030	MOV    	000006(SP), 000030(SP)
004402	062706	000030		ADD    	#000030, SP
004406	000207			RETURN 	
-------------------------------------------------------------
004410	072141	000162		.ASCIZ	/atr/
				.EVEN
====----------=====-------========------======--------=======
; PROCEDURE (READPIC)
004414	162706	000030		SUB	#000030, SP ; VAR @SP:PALTYP; 24(SP),26(SP):INTEGER
004420	010604			MOV    	SP, R4
004422	162706	000012		SUB    	#000012, SP
004426	012700	005070		MOV    	#005070, R0
004432	010601			MOV    	SP, R1
004434	012702	000005		MOV    	#000005, R2
004440	012021			MOV    	(R0)+, (R1)+
004442	005302			DEC    	R2
004444	001375			BNE    	004440
004446	010500			MOV    	R5, R0
004450	062700	002032		ADD    	#002032, R0
004454	010046			MOV    	R0, -(SP)
004456	010500			MOV    	R5, R0
004460	062700	002126		ADD    	#002126, R0
004464	010046			MOV    	R0, -(SP)
004466	012746	000001		MOV    	#000001, -(SP)
004472	012746	000031		MOV    	#000031, -(SP)
004476	004767	177124		CALL   	003626			; L03626('PIC1/SPAN ',@VAR2032,@VAR2126,1,31)
004502	012746	000002		MOV    	#000002, -(SP)
004506	004767	175746		CALL   	002460			; L02460(2)
004512	010604			MOV    	SP, R4
004514	162706	000012		SUB    	#000012, SP
004520	012700	005104		MOV    	#005104, R0
004524	010601			MOV    	SP, R1
004526	012702	000005		MOV    	#000005, R2
004532	012021			MOV    	(R0)+, (R1)+
004534	005302			DEC    	R2
004536	001375			BNE    	004532
004540	010500			MOV    	R5, R0
004542	062700	002046		ADD    	#002046, R0
004546	010046			MOV    	R0, -(SP)
004550	010500			MOV    	R5, R0
004552	062700	002152		ADD    	#002152, R0
004556	010046			MOV    	R0, -(SP)
004560	012746	000003		MOV    	#000003, -(SP)
004564	012746	000055		MOV    	#000055, -(SP)
004570	004767	177032		CALL   	003626			; L03626('PIC2/SPAN ',@VAR2046,@VAR2152,3,55)
004574	012746	000002		MOV    	#000002, -(SP)
004600	004767	175654		CALL   	002460			; L02460(2)
004604	010604			MOV    	SP, R4
004606	162706	000012		SUB    	#000012, SP
004612	012700	005120		MOV    	#005120, R0
004616	010601			MOV    	SP, R1
004620	012702	000005		MOV    	#000005, R2
004624	012021			MOV    	(R0)+, (R1)+
004626	005302			DEC    	R2
004630	001375			BNE    	004624
004632	010500			MOV    	R5, R0
004634	062700	002062		ADD    	#002062, R0
004640	010046			MOV    	R0, -(SP)
004642	010500			MOV    	R5, R0
004644	062700	002176		ADD    	#002176, R0
004650	010046			MOV    	R0, -(SP)
004652	012746	000005		MOV    	#000005, -(SP)
004656	012746	000101		MOV    	#000101, -(SP)
004662	004767	176740		CALL   	003626			; L03626('PIC3/SPAN ',@VAR2062,@VAR2176,5,101)
004666	012746	000002		MOV    	#000002, -(SP)
004672	004767	175562		CALL   	002460			; L02460(2)
004676	010604			MOV    	SP, R4
004700	162706	000012		SUB    	#000012, SP
004704	012700	005134		MOV    	#005134, R0
004710	010601			MOV    	SP, R1
004712	012702	000005		MOV    	#000005, R2
004716	012021			MOV    	(R0)+, (R1)+
004720	005302			DEC    	R2
004722	001375			BNE    	004716
004724	010500			MOV    	R5, R0
004726	062700	002076		ADD    	#002076, R0
004732	010046			MOV    	R0, -(SP)
004734	010500			MOV    	R5, R0
004736	062700	002222		ADD    	#002222, R0
004742	010046			MOV    	R0, -(SP)
004744	012746	000007		MOV    	#000007, -(SP)
004750	012746	000125		MOV    	#000125, -(SP)
004754	004767	176646		CALL   	003626			; L03626('PIC4/SPAN ',@VAR2076,@VAR2222,7,125)
004760	012746	000002		MOV    	#000002, -(SP)
004764	004767	175470		CALL   	002460			; L02460(2)
004770	010604			MOV    	SP, R4
004772	162706	000012		SUB    	#000012, SP
004776	012700	005150		MOV    	#005150, R0
005002	010601			MOV    	SP, R1
005004	012702	000005		MOV    	#000005, R2
005010	012021			MOV    	(R0)+, (R1)+
005012	005302			DEC    	R2
005014	001375			BNE    	005010
005016	010500			MOV    	R5, R0
005020	062700	002112		ADD    	#002112, R0
005024	010046			MOV    	R0, -(SP)
005026	010500			MOV    	R5, R0
005030	062700	002246		ADD    	#002246, R0
005034	010046			MOV    	R0, -(SP)
005036	012746	000011		MOV    	#000011, -(SP)
005042	012746	000151		MOV    	#000151, -(SP)
005046	004767	176554		CALL   	003626			; L03626('PIC5/SPAN ',@VAR2112,@VAR2246,11,151)
005052	012746	000002		MOV    	#000002, -(SP)
005056	004767	175376		CALL   	002460			; L02460(2)
005062	062706	000030		ADD    	#000030, SP
005066	000207			RETURN 	
-------------------------------------------------------------
005070	044520	030503	051457	.ASCIZ	"PIC1/SPAN "
	040520	020116	000000	.EVEN

005104	044520	031103	051457	.ASCIZ	"PIC2/SPAN "
	040520	020116	000000	.EVEN

005120	044520	031503	051457	.ASCIZ	"PIC3/SPAN "
	040520	020116	000000	.EVEN

005134	044520	032103	051457	.ASCIZ	"PIC4/SPAN "
	040520	020116	000000	.EVEN

005150	044520	032503	051457	.ASCIZ	"PIC5/SPAN "
	040520	020116	000000	.EVEN
=============================================================
; PROCEDURE (TXAREA)
005164	162706	000024		SUB    	#000024, SP	; VAR @SP:PALTYP
005170	010603			MOV    	SP, R3			; WITH @SP
005172	012763	000003	000002	MOV    	#000003, 000002(R3)	; (@SP).MODPAL:=3
005200	112763	000216	000004	MOVB   	#000216, 000004(R3)	; (@SP).C[0]:=216
005206	112763	000034	000005	MOVB   	#000034, 000005(R3)	; (@SP).C[1]:=34
005214	112763	000374	000006	MOVB   	#000374, 000006(R3)	; (@SP).C[2]:=374
005222	112763	000334	000007	MOVB   	#000334, 000007(R3)	; (@SP).C[3]:=334
005230	112763	000156	000010	MOVB   	#000156, 000010(R3)	; (@SP).C[4]:=156
005236	112763	000377	000011	MOVB   	#000377, 000011(R3)	; (@SP).C[5]:=377
005244	112763	000266	000012	MOVB   	#000266, 000012(R3)	; (@SP).C[6]:=266
005252	105063	000013		CLRB   	000013(R3)		; (@SP).C[7]:=0
005256	112763	000340	000014	MOVB   	#000340, 000014(R3)	; (@SP).C[10]:=340
005264	112763	000303	000015	MOVB   	#000303, 000015(R3)	; (@SP).C[11]:=303
005272	112763	000034	000016	MOVB   	#000034, 000016(R3)	; (@SP).C[12]:=34
005300	112763	000234	000017	MOVB   	#000234, 000017(R3)	; (@SP).C[13]:=234
005306	112763	000172	000020	MOVB   	#000172, 000020(R3)	; (@SP).C[14]:=172
005314	112763	000374	000021	MOVB   	#000374, 000021(R3)	; (@SP).C[15]:=374
005322	112763	000374	000022	MOVB   	#000374, 000022(R3)	; (@SP).C[16]:=374
005330	105063	000023		CLRB   	000023(R3)		; (@SP).C[17]:=0
005334	010600			MOV    	SP, R0
005336	010046			MOV    	R0, -(SP)
005340	004767	173644		CALL   	001210			; PLCRE(@SP)
005344	010503			MOV    	R5, R3
005346	062703	000102		ADD    	#000102, R3		; WITH VAR102
005352	005013			CLR    	(R3)			; (VAR102).ANUM:=0
005354	012763	000240	000002	MOV    	#000240, 000002(R3)	; (VAR102).LINS:=240
005362	012763	000240	000004	MOV    	#000240, 000004(R3)	; (VAR102).SLEN:=240
005370	016663	000002	000006	MOV    	000002(SP), 000006(R3)	; (VAR102).MODPAL:=@SP.MODPAL
005376	005063	000010		CLR    	000010(R3)		; (VAR102).AMMR:=0
005402	010500			MOV    	R5, R0
005404	062700	000102		ADD    	#000102, R0
005410	010046			MOV    	R0, -(SP)
005412	004767	174056		CALL   	001474			; L01474(VAR102)
005416	010503			MOV    	R5, R3
005420	062703	000116		ADD    	#000116, R3		; WITH	VAR116
005424	005013			CLR    	(R3)			; (VAR116).ANUM:=0
005426	012763	000036	000002	MOV    	#000036, 000002(R3)	; (VAR116).LINS:=36
005434	012763	000120	000004	MOV    	#000120, 000004(R3)	; (VAR116).SLEN:=120
005442	016663	000002	000006	MOV    	000002(SP), 000006(R3)	; (VAR116).MODPAL:=@SP.MODPAL
005450	005063	000010		CLR    	000010(R3)		; (VAR116).AMMR:=0
005454	010500			MOV    	R5, R0
005456	062700	000116		ADD    	#000116, R0
005462	010046			MOV    	R0, -(SP)
005464	004767	174004		CALL   	001474			; L01474(VAR116)
005470	062706	000024		ADD    	#000024, SP
005474	000207			RETURN 	
=============================================================
; PROCEDURE (BGAREA)
005476	162706	002334		SUB    	#002334, SP
; VAR @SP: RECORD
;           CODE:INTEGER;
;           ANUM:INTEGER;
;           LINS:INTEGER;
;           SLEN:INTEGER;
;           TAS:ARRAY[1..300,1..2] OF INTEGER;
;          END;
; 2270(SP),2272(SP),2274(SP),2276(SP),2300(SP),2302(SP),2304(SP),2306(SP):INTEGER
; 2310(SP):PALTYP
005502	010600			MOV    	SP, R0
005504	062700	002302		ADD    	#002302, R0		; FOR 2302(SP):=0 TO 17
005510	010046			MOV    	R0, -(SP)
005512	005046			CLR    	-(SP)
005514	012746	000017		MOV    	#000017, -(SP)
005520	016676	000002	000004	MOV    	000002(SP), @000004(SP)
005526	027616	000004		CMP    	@000004(SP), (SP)
005532	003402			BLE    	005540
005534	000167	000026		JMP    	005566
005540	010600			MOV    	SP, R0
005542	066600	002310		ADD    	002310(SP), R0
005546	112760	000216	002322	MOVB   	#000216, 002322(R0)	; 2310(SP).C[2302(SP)]:=216
005554	005276	000004		INC    	@000004(SP)		; NEXT 2302(SP)
005560	102402			BVS    	005566
005562	000167	177740		JMP    	005526
005566	062706	000006		ADD    	#000006, SP		; END FOR 2302(SP)
005572	012766	000001	002312	MOV    	#000001, 002312(SP)	; 2310(SP).MODPAL:=1
005600	010600			MOV    	SP, R0
005602	062700	002310		ADD    	#002310, R0
005606	010046			MOV    	R0, -(SP)
005610	004767	173374		CALL   	001210			; PLCRE(2310(SP))
005614	012765	000454	000070	MOV    	#000454, 000070(R5)	; VAR66.LINS:=454
005622	012765	000064	000072	MOV    	#000064, 000072(R5)	; VAR66.SLEN:=64
005630	016665	002312	000074	MOV    	002312(SP), 000074(R5)	; VAR66.MODPAL:=2310(SP).MODPAL
005636	005016			CLR    	(SP)			; @SP.CODE:=0
005640	005066	000002		CLR    	000002(SP)		; @SP.ANUM:=0
005644	012766	000454	000004	MOV    	#000454, 000004(SP)	; @SP.LINS:=454
005652	012766	000064	000006	MOV    	#000064, 000006(SP)	; @SP.SLEN:=64
005660	010500			MOV    	R5, R0			; {$C
005662	062700	000002		ADD    	#000002, R0
005666	010066	002276		MOV    	R0, 002276(SP)
005672	072027	177763		ASH    	#177763, R0
005676	006300			ASL    	R0
005700	016066	161220	002274	MOV    	161220(R0), 002274(SP)	; }
005706	066566	000074	002274	ADD    	000074(R5), 002274(SP)	; 2274(SP):=2274(SP)+VAR66.MODPAL
005714	010603			MOV    	SP, R3			; WITH @SP
005716	010600			MOV    	SP, R0
005720	062700	002302		ADD    	#002302, R0		; FOR 2302(SP):=1 TO (@SP).LINS
005724	010046			MOV    	R0, -(SP)
005726	012746	000001		MOV    	#000001, -(SP)
005732	016346	000004		MOV    	000004(R3), -(SP)
005736	016676	000002	000004	MOV    	000002(SP), @000004(SP)
005744	027616	000004		CMP    	@000004(SP), (SP)
005750	003402			BLE    	005756
005752	000167	000052		JMP    	006030
005756	016600	002310		MOV    	002310(SP), R0
005762	006300			ASL    	R0
005764	006300			ASL    	R0
005766	060300			ADD    	R3, R0
005770	016660	002304	000004	MOV    	002304(SP), 000004(R0)	; (@SP).TAS[2302(SP),1]:=2276(SP)
005776	016600	002310		MOV    	002310(SP), R0
006002	006300			ASL    	R0
006004	006300			ASL    	R0
006006	060300			ADD    	R3, R0
006010	016660	002302	000006	MOV    	002302(SP), 000006(R0)	; (@SP).TAS[2302(SP),2]:=2274(SP)
006016	005276	000004		INC    	@000004(SP)		; NEXT 2302(SP)
006022	102402			BVS    	006030
006024	000167	177714		JMP    	005744
006030	062706	000006		ADD    	#000006, SP		; END FOR 2302(SP)
006034	010315			MOV    	R3, (R5)		; VAR00.A:=@(@SP).CODE
006036	011537	177530		MOV    	(R5), @#177530		; WCSR:=VAR00.W
006042	016315	000002		MOV    	000002(R3), (R5)	; VAR00.W:=(@SP).ANUM
006046	016365	000002	000066	MOV    	000002(R3), 000066(R5)	; VAR66.ANUM:=(@SP).ANUM
006054	010503			MOV    	R5, R3
006056	062703	000256		ADD    	#000256, R3		; WITH VAR256
006062	016563	000066	000004	MOV    	000066(R5), 000004(R3)	; (VAR256).AREA:=VAR66.ANUM
006070	005063	000002		CLR    	000002(R3)		; (VAR256).WNUM:=0
006074	005063	000022		CLR    	000022(R3)		; (VAR256).DEN:=0
006100	005063	000006		CLR    	000006(R3)		; (VAR256).ARY:=0
006104	005063	000010		CLR    	000010(R3)		; (VAR256).ARX:=0
006110	062706	002334		ADD    	#002334, SP
006114	000207			RETURN 	
=============================================================
; PROCEDURE VAR 6(SP), 4(SP):WINTYP; 2(SP):INTEGER (BGCRE)
006116	016603	000004		MOV    	000004(SP), R3		; WITH 4(SP)
006122	016563	000066	000004	MOV    	000066(R5), 000004(R3)	; (4(SP)).AREA:=VAR66.ANUM
006130	016600	000006		MOV    	000006(SP), R0
006134	016646	000002		MOV    	000002(SP), -(SP)
006140	012746	000014		MOV    	#000014, -(SP)
006144	004767	051120		CALL   	057270	; $B78
006150	016000	000012		MOV    	000012(R0), R0
006154	062600			ADD    	(SP)+, R0
006156	010063	000012		MOV    	R0, 000012(R3)		; (4(SP)).SY1:=6(SP).SY1+2(SP)*14
006162	016600	000006		MOV    	000006(SP), R0
006166	016646	000002		MOV    	000002(SP), -(SP)
006172	012746	000014		MOV    	#000014, -(SP)
006176	004767	051066		CALL   	057270	; $B78
006202	016000	000014		MOV    	000014(R0), R0
006206	062600			ADD    	(SP)+, R0
006210	010063	000014		MOV    	R0, 000014(R3)		; (4(SP)).SY2:=6(SP).SY2+2(SP)*14
006214	016600	000006		MOV    	000006(SP), R0
006220	016000	000016		MOV    	000016(R0), R0
006224	066600	000002		ADD    	000002(SP), R0
006230	010063	000016		MOV    	R0, 000016(R3)		; (4(SP)).SX1:=6(SP).SX1+2(SP)
006234	016600	000006		MOV    	000006(SP), R0
006240	016000	000020		MOV    	000020(R0), R0
006244	066600	000002		ADD    	000002(SP), R0
006250	010063	000020		MOV    	R0, 000020(R3)		; (4(SP)).SX2:=6(SP).SX2+2(SP)
006254	005063	000022		CLR    	000022(R3)		; (4(SP)).DEN:=0
006260	005063	000010		CLR    	000010(R3)		; (4(SP)).ARX:=0
006264	005063	000006		CLR    	000006(R3)		; (4(SP)).ARY:=0
006270	016646	000004		MOV    	000004(SP), -(SP)
006274	004767	172760		CALL   	001260			; VWCRE(4(SP))
006300	011666	000006		MOV    	(SP), 000006(SP)
006304	062706	000006		ADD    	#000006, SP
006310	000207			RETURN 	
=============================================================
; PROCEDURE 30(SP):INTEGER (HIDEVT)
006312	162706	000026		SUB    	#000026, SP	; VAR @SP:PALTYP; 24(SP):INTEGER
006316	005065	000570		CLR    	000570(R5)		; VAR566.MODPAL:=0
006322	010500			MOV    	R5, R0
006324	062700	000566		ADD    	#000566, R0
006330	010046			MOV    	R0, -(SP)
006332	004767	172646		CALL   	001204			; PLSAV(VAR566)
006336	012765	040000	000614	MOV    	#040000, 000614(R5)	; VAR612.MODPAL:=40000
006344	010500			MOV    	R5, R0
006346	062700	000612		ADD    	#000612, R0
006352	010046			MOV    	R0, -(SP)
006354	004767	172624		CALL   	001204			; PLSAV(VAR612)
006360	010600			MOV    	SP, R0
006362	062700	000024		ADD    	#000024, R0		; FOR 24(SP):=0 TO 17
006366	010046			MOV    	R0, -(SP)
006370	005046			CLR    	-(SP)
006372	012746	000017		MOV    	#000017, -(SP)
006376	016676	000002	000004	MOV    	000002(SP), @000004(SP)
006404	027616	000004		CMP    	@000004(SP), (SP)
006410	003402			BLE    	006416
006412	000167	000026		JMP    	006444
006416	010600			MOV    	SP, R0
006420	066600	000032		ADD    	000032(SP), R0
006424	116660	000036	000012	MOVB   	000036(SP), 000012(R0)	; @SP.C[24(SP)]:=CHR(30(SP))
006432	005276	000004		INC    	@000004(SP)		; NEXT 24(SP)
006436	102402			BVS    	006444
006440	000167	177740		JMP    	006404
006444	062706	000006		ADD    	#000006, SP		; END FOR 24(SP)
006450	005066	000002		CLR    	000002(SP)		; @SP.MODPAL:=0
006454	010600			MOV    	SP, R0
006456	010046			MOV    	R0, -(SP)
006460	004767	172514		CALL   	001200			; PLMOD(@SP)
006464	012766	040000	000002	MOV    	#040000, 000002(SP)	; @SP.MODPAL:=40000
006472	010600			MOV    	SP, R0
006474	010046			MOV    	R0, -(SP)
006476	004767	172476		CALL   	001200			; PLMOD(@SP)
006502	016666	000026	000030	MOV    	000026(SP), 000030(SP)
006510	062706	000030		ADD    	#000030, SP
006514	000207			RETURN 	
=============================================================
; PROCEDURE 2(SP):INTEGER (SHOWVT)
006516	010500			MOV    	R5, R0
006520	062700	000566		ADD    	#000566, R0
006524	010046			MOV    	R0, -(SP)
006526	004767	172446		CALL   	001200			; PLMOD(VAR566)
006532	010500			MOV    	R5, R0
006534	062700	000612		ADD    	#000612, R0
006540	010046			MOV    	R0, -(SP)
006542	004767	172432		CALL   	001200			; PLMOD(VAR612)
006546	011666	000002		MOV    	(SP), 000002(SP)
006552	062706	000002		ADD    	#000002, SP
006556	000207			RETURN 	
=============================================================
; PROCEDURE (CLEARTX)
006560	012700	006662		MOV    	#006662, R0
006564	010501			MOV    	R5, R1
006566	062701	000636		ADD    	#000636, R1
006572	012702	000012		MOV    	#000012, R2
006576	012021			MOV    	(R0)+, (R1)+		; VAR636:='                    '
006600	005302			DEC    	R2
006602	001375			BNE    	006576
006604	010500			MOV    	R5, R0
006606	062700	000636		ADD    	#000636, R0
006612	010501			MOV    	R5, R1
006614	062701	000662		ADD    	#000662, R1
006620	012702	000012		MOV    	#000012, R2
006624	012021			MOV    	(R0)+, (R1)+		; VAR662:=VAR636
006626	005302			DEC    	R2
006630	001375			BNE    	006624
006632	010500			MOV    	R5, R0
006634	062700	000636		ADD    	#000636, R0
006640	010501			MOV    	R5, R1
006642	062701	000706		ADD    	#000706, R1
006646	012702	000012		MOV    	#000012, R2
006652	012021			MOV    	(R0)+, (R1)+		; VAR706:=VAR636
006654	005302			DEC    	R2
006656	001375			BNE    	006652
006660	000207			RETURN 	
-------------------------------------------------------------
006662	020040	020040	020040	.ASCIZ	/                    /
	020040	020040	020040	.EVEN
	020040	020040	020040
	020040	000000
=============================================================
; PROCEDURE (OPENTX)
006710	162706	000026		SUB    	#000026, SP	; VAR @SP:INTEGER; 2(SP):PALTYP
006714	016546	000102		MOV    	000102(R5), -(SP)
006720	005046			CLR    	-(SP)
006722	005046			CLR    	-(SP)
006724	012746	000144		MOV    	#000144, -(SP)
006730	005046			CLR    	-(SP)
006732	012746	000144		MOV    	#000144, -(SP)
006736	005046			CLR    	-(SP)
006740	005046			CLR    	-(SP)
006742	005046			CLR    	-(SP)
006744	004767	172304		CALL   	001254			; HBMOVE(VAR102.ANUM,0,0,144,0,144,0,0,0)
006750	016566	000110	000004	MOV    	000110(R5), 000004(SP)	; 2(SP).MODPAL:=VAR102.MODPAL
006756	010600			MOV    	SP, R0
006760	062700	000002		ADD    	#000002, R0
006764	010046			MOV    	R0, -(SP)
006766	004767	172212		CALL   	001204			; PLSAV(2(SP))
006772	112766	000142	000006	MOVB   	#000142, 000006(SP)	; 2(SP).C[0]:=CHR(142)
007000	010600			MOV    	SP, R0
007002	062700	000002		ADD    	#000002, R0
007006	010046			MOV    	R0, -(SP)
007010	004767	172164		CALL   	001200			; PLMOD(2(SP))
007014	016546	000102		MOV    	000102(R5), -(SP)
007020	012746	000007		MOV    	#000007, -(SP)
007024	012746	000005		MOV    	#000005, -(SP)
007030	012746	000014		MOV    	#000014, -(SP)
007034	012746	000024		MOV    	#000024, -(SP)
007040	162706	000024		SUB    	#000024, SP
007044	010500			MOV    	R5, R0
007046	062700	000636		ADD    	#000636, R0
007052	010601			MOV    	SP, R1
007054	012702	000012		MOV    	#000012, R2
007060	012021			MOV    	(R0)+, (R1)+
007062	005302			DEC    	R2
007064	001375			BNE    	007060
007066	004767	173466		CALL   	002560			; L02560(VAR102.ANUM,7,5,14,24,VAR636)
007072	016546	000102		MOV    	000102(R5), -(SP)
007076	012746	177776		MOV    	#177776, -(SP)
007102	012746	000004		MOV    	#000004, -(SP)
007106	012746	000012		MOV    	#000012, -(SP)
007112	012746	000024		MOV    	#000024, -(SP)
007116	162706	000024		SUB    	#000024, SP
007122	010500			MOV    	R5, R0
007124	062700	000636		ADD    	#000636, R0
007130	010601			MOV    	SP, R1
007132	012702	000012		MOV    	#000012, R2
007136	012021			MOV    	(R0)+, (R1)+
007140	005302			DEC    	R2
007142	001375			BNE    	007136
007144	004767	173410		CALL   	002560			; L02560(VAR102.ANUM,-2,4,12,24,VAR636)
007150	016546	000102		MOV    	000102(R5), -(SP)
007154	012746	000007		MOV    	#000007, -(SP)
007160	012746	000005		MOV    	#000005, -(SP)
007164	012746	000040		MOV    	#000040, -(SP)
007170	012746	000024		MOV    	#000024, -(SP)
007174	162706	000024		SUB    	#000024, SP
007200	010500			MOV    	R5, R0
007202	062700	000662		ADD    	#000662, R0
007206	010601			MOV    	SP, R1
007210	012702	000012		MOV    	#000012, R2
007214	012021			MOV    	(R0)+, (R1)+
007216	005302			DEC    	R2
007220	001375			BNE    	007214
007222	004767	173332		CALL   	002560			; L02560(VAR102.ANUM,7,5,40,24,VAR662)
007226	016546	000102		MOV    	000102(R5), -(SP)
007232	012746	177776		MOV    	#177776, -(SP)
007236	012746	000004		MOV    	#000004, -(SP)
007242	012746	000036		MOV    	#000036, -(SP)
007246	012746	000024		MOV    	#000024, -(SP)
007252	162706	000024		SUB    	#000024, SP
007256	010500			MOV    	R5, R0
007260	062700	000662		ADD    	#000662, R0
007264	010601			MOV    	SP, R1
007266	012702	000012		MOV    	#000012, R2
007272	012021			MOV    	(R0)+, (R1)+
007274	005302			DEC    	R2
007276	001375			BNE    	007272
007300	004767	173254		CALL   	002560			; L02560(VAR102.ANUM,-2,4,36,24,VAR662)
007304	016546	000102		MOV    	000102(R5), -(SP)
007310	012746	000007		MOV    	#000007, -(SP)
007314	012746	000005		MOV    	#000005, -(SP)
007320	012746	000064		MOV    	#000064, -(SP)
007324	012746	000024		MOV    	#000024, -(SP)
007330	162706	000024		SUB    	#000024, SP
007334	010500			MOV    	R5, R0
007336	062700	000706		ADD    	#000706, R0
007342	010601			MOV    	SP, R1
007344	012702	000012		MOV    	#000012, R2
007350	012021			MOV    	(R0)+, (R1)+
007352	005302			DEC    	R2
007354	001375			BNE    	007350
007356	004767	173176		CALL   	002560			; L02560(VAR102.ANUM,7,5,64,24,VAR706)
007362	016546	000102		MOV    	000102(R5), -(SP)
007366	012746	177776		MOV    	#177776, -(SP)
007372	012746	000004		MOV    	#000004, -(SP)
007376	012746	000062		MOV    	#000062, -(SP)
007402	012746	000024		MOV    	#000024, -(SP)
007406	162706	000024		SUB    	#000024, SP
007412	010500			MOV    	R5, R0
007414	062700	000706		ADD    	#000706, R0
007420	010601			MOV    	SP, R1
007422	012702	000012		MOV    	#000012, R2
007426	012021			MOV    	(R0)+, (R1)+
007430	005302			DEC    	R2
007432	001375			BNE    	007426
007434	004767	173120		CALL   	002560			; L02560(VAR102.ANUM,-2,4,62,24,VAR706)
007440	010503			MOV    	R5, R3
007442	062703	000302		ADD    	#000302, R3		; WITH VAR302
007446	005063	000002		CLR    	000002(R3)		; (VAR302).WNUM:=0
007452	016563	000102	000004	MOV    	000102(R5), 000004(R3)	; (VAR302).AREA:=VAR102.ANUM
007460	012763	000170	000012	MOV    	#000170, 000012(R3)	; (VAR302).SY1:=170
007466	012763	000170	000014	MOV    	#000170, 000014(R3)	; (VAR302).SY2:=170
007474	012763	000014	000016	MOV    	#000014, 000016(R3)	; (VAR302).SX1:=14
007502	012763	000014	000020	MOV    	#000014, 000020(R3)	; (VAR302).SX2:=14
007510	012763	000050	000010	MOV    	#000050, 000010(R3)	; (VAR302).ARX:=50
007516	012763	000120	000006	MOV    	#000120, 000006(R3)	; (VAR302).ARY:=120
007524	012763	000402	000022	MOV    	#000402, 000022(R3)	; (VAR302).DEN:=402
007532	010500			MOV    	R5, R0
007534	062700	000302		ADD    	#000302, R0
007540	010046			MOV    	R0, -(SP)
007542	010500			MOV    	R5, R0
007544	062700	000256		ADD    	#000256, R0
007550	010046			MOV    	R0, -(SP)
007552	012746	000001		MOV    	#000001, -(SP)
007556	004767	176334		CALL   	006116			; L06116(VAR302,VAR256,1)
007562	010600			MOV    	SP, R0
007564	010046			MOV    	R0, -(SP)		; FOR @SP:=1 TO 5
007566	012746	000001		MOV    	#000001, -(SP)
007572	012746	000005		MOV    	#000005, -(SP)
007576	016676	000002	000004	MOV    	000002(SP), @000004(SP)
007604	027616	000004		CMP    	@000004(SP), (SP)
007610	003402			BLE    	007616
007612	000167	000066		JMP    	007704
007616	062765	177760	000314	ADD    	#177760, 000314(R5)	; VAR302.SY1:=VAR302.SY1-20
007624	062765	000020	000316	ADD    	#000020, 000316(R5)	; VAR302.SY2:=VAR302.SY2+20
007632	005365	000320		DEC    	000320(R5)		; VAR302.SX1:=VAR302.SX1-1
007636	005265	000322		INC    	000322(R5)		; VAR302.SX2:=VAR302.SX2+1
007642	062765	177760	000310	ADD    	#177760, 000310(R5)	; VAR302.ARY:=VAR302.ARY-20
007650	062765	177770	000312	ADD    	#177770, 000312(R5)	; VAR302.ARX:=VAR302.ARX-10
007656	010500			MOV    	R5, R0
007660	062700	000302		ADD    	#000302, R0
007664	010046			MOV    	R0, -(SP)
007666	004767	171366		CALL   	001260			; VWCRE(VAR302)
007672	005276	000004		INC    	@000004(SP)		; NEXT @SP
007676	102402			BVS    	007704
007700	000167	177700		JMP    	007604
007704	062706	000006		ADD    	#000006, SP		; END FOR @SP
007710	010500			MOV    	R5, R0
007712	062700	000302		ADD    	#000302, R0
007716	010046			MOV    	R0, -(SP)
007720	010500			MOV    	R5, R0
007722	062700	000256		ADD    	#000256, R0
007726	010046			MOV    	R0, -(SP)
007730	012746	000001		MOV    	#000001, -(SP)
007734	004767	176156		CALL   	006116			; L06116(VAR302,VAR256,1)
007740	062706	000026		ADD    	#000026, SP
007744	000207			RETURN 	
=============================================================
; PROCEDURE (CLOSETX)
007746	005046			CLR    	-(SP)		; VAR @SP:INTEGER
007750	010500			MOV    	R5, R0
007752	062700	000256		ADD    	#000256, R0
007756	010046			MOV    	R0, -(SP)
007760	004767	171300		CALL   	001264			; VWKILL(VAR256)
007764	010600			MOV    	SP, R0
007766	010046			MOV    	R0, -(SP)		; FOR @SP:=1 TO 5
007770	012746	000001		MOV    	#000001, -(SP)
007774	012746	000005		MOV    	#000005, -(SP)
010000	016676	000002	000004	MOV    	000002(SP), @000004(SP)
010006	027616	000004		CMP    	@000004(SP), (SP)
010012	003402			BLE    	010020
010014	000167	000066		JMP    	010106
010020	062765	000020	000314	ADD    	#000020, 000314(R5)	; VAR302.SY1:=VAR302.SY1+20
010026	062765	177760	000316	ADD    	#177760, 000316(R5)	; VAR302.SY2:=VAR302.SY2-20
010034	005265	000320		INC    	000320(R5)		; VAR302.SX1:=VAR302.SX1+1
010040	005365	000322		DEC    	000322(R5)		; VAR302.SX2:=VAR302.SX2-1
010044	062765	000020	000310	ADD    	#000020, 000310(R5)	; VAR302.ARY:=VAR302.ARY+20
010052	062765	000010	000312	ADD    	#000010, 000312(R5)	; VAR302.ARX:=VAR302.ARX+10
010060	010500			MOV    	R5, R0
010062	062700	000302		ADD    	#000302, R0
010066	010046			MOV    	R0, -(SP)
010070	004767	171164		CALL   	001260			; VWCRE(VAR302)
010074	005276	000004		INC    	@000004(SP)		; NEXT @SP
010100	102402			BVS    	010106
010102	000167	177700		JMP    	010006
010106	062706	000006		ADD    	#000006, SP		; END FOR @SP
010112	010500			MOV    	R5, R0
010114	062700	000302		ADD    	#000302, R0
010120	010046			MOV    	R0, -(SP)
010122	004767	171136		CALL   	001264			; VWKILL(VAR302)
010126	062706	000002		ADD    	#000002, SP
010132	000207			RETURN 	
=============================================================
; PROCEDURE 10(SP):ARRAY[1..24]OF CHAR; 6(SP),4(SP):INTEGER (SCPRINT)
010134	011404			MOV    	(R4), R4
010136	011404			MOV    	(R4), R4
010140	011404			MOV    	(R4), R4
010142	011404			MOV    	(R4), R4
010144	011404			MOV    	(R4), R4
010146	011404			MOV    	(R4), R4
010150	011404			MOV    	(R4), R4
010152	011404			MOV    	(R4), R4
010154	011404			MOV    	(R4), R4
010156	010446			MOV    	R4, -(SP)
010160	016546	000102		MOV    	000102(R5), -(SP)
010164	012746	000007		MOV    	#000007, -(SP)
010170	012746	000013		MOV    	#000013, -(SP)
010174	012746	000216		MOV    	#000216, -(SP)
010200	012746	000023		MOV    	#000023, -(SP)
010204	162706	000024		SUB    	#000024, SP
010210	010600			MOV    	SP, R0
010212	062700	000046		ADD    	#000046, R0
010216	010601			MOV    	SP, R1
010220	012702	000012		MOV    	#000012, R2
010224	012021			MOV    	(R0)+, (R1)+
010226	005302			DEC    	R2
010230	001375			BNE    	010224
010232	004767	172322		CALL   	002560			; L02560(VAR102.ANUM,7,13,216,23,10(SP))
010236	016546	000102		MOV    	000102(R5), -(SP)
010242	016600	000010		MOV    	000010(SP), R0
010246	005400			NEG    	R0
010250	010046			MOV    	R0, -(SP)
010252	012746	000012		MOV    	#000012, -(SP)
010256	012746	000214		MOV    	#000214, -(SP)
010262	012746	000023		MOV    	#000023, -(SP)
010266	162706	000024		SUB    	#000024, SP
010272	010600			MOV    	SP, R0
010274	062700	000046		ADD    	#000046, R0
010300	010601			MOV    	SP, R1
010302	012702	000012		MOV    	#000012, R2
010306	012021			MOV    	(R0)+, (R1)+
010310	005302			DEC    	R2
010312	001375			BNE    	010306
010314	004767	172240		CALL   	002560			; L02560(VAR102.ANUM,-6(SP),12,214,23,10(SP))
010320	011600			MOV    	(SP), R0
010322	012760	000021	000022	MOV    	#000021, 000022(R0)	; LOC22:=21
010330	010001			MOV    	R0, R1
010332	062701	000006		ADD    	#000006, R1		; FOR LOC06:=214 DOWNTO 4(SP)
010336	010146			MOV    	R1, -(SP)
010340	012746	000214		MOV    	#000214, -(SP)
010344	016646	000010		MOV    	000010(SP), -(SP)
010350	016676	000002	000004	MOV    	000002(SP), @000004(SP)
010356	027616	000004		CMP    	@000004(SP), (SP)
010362	002002			BGE    	010370
010364	000167	000072		JMP    	010462
010370	016546	000102		MOV    	000102(R5), -(SP)
010374	016600	000010		MOV    	000010(SP), R0
010400	016046	000022		MOV    	000022(R0), -(SP)
010404	016001	000006		MOV    	000006(R0), R1
010410	005301			DEC    	R1
010412	010146			MOV    	R1, -(SP)
010414	012746	000016		MOV    	#000016, -(SP)
010420	012746	000012		MOV    	#000012, -(SP)
010424	012746	000110		MOV    	#000110, -(SP)
010430	016546	000102		MOV    	000102(R5), -(SP)
010434	016046	000006		MOV    	000006(R0), -(SP)
010440	012746	000012		MOV    	#000012, -(SP)
010444	004767	170604		CALL   	001254			; HBMOVE(VAR102.ANUM,LOC22,LOC06-1,16,12,110,VAR102.ANUM,LOC06,12)
010450	005376	000004		DEC    	@000004(SP)		; PREV LOC06
010454	102402			BVS    	010462
010456	000167	177674		JMP    	010356
010462	062706	000006		ADD    	#000006, SP		; END FOR LOC06
010466	016666	000002	000032	MOV    	000002(SP), 000032(SP)
010474	062706	000032		ADD    	#000032, SP
010500	000207			RETURN 	
=====-------------=========-------------========-------======
; PROCEDURE (PRESENT)
010502	162706	000144		SUB    	#000144, SP
; VAR @SP,2(SP),4(SP),6(SP),10(SP),12(SP),14(SP),16(SP),20(SP),22(SP):INTEGER
; 24(SP),50(SP):WINTYP; 74(SP),120(SP):ARRAY[1..24]OF CHAR
010506	010503			MOV    	R5, R3
010510	062703	000302		ADD    	#000302, R3		; WITH VAR302
010514	005063	000002		CLR    	000002(R3)		; (VAR302).WNUM:=0
010520	016563	000102	000004	MOV    	000102(R5), 000004(R3)	; (VAR302).AREA:=VAR102.ANUM
010526	005063	000006		CLR    	000006(R3)		; (VAR302).ARY:=0
010532	005063	000010		CLR    	000010(R3)		; (VAR302).ARX:=0
010536	012763	000010	000012	MOV    	#000010, 000012(R3)	; (VAR302).SY1:=10
010544	012763	000454	000014	MOV    	#000454, 000014(R3)	; (VAR302).SY2:=454
010552	012763	000002	000016	MOV    	#000002, 000016(R3)	; (VAR302).SX1:=2
010560	012763	000027	000020	MOV    	#000027, 000020(R3)	; (VAR302).SX2:=27
010566	012763	000401	000022	MOV    	#000401, 000022(R3)	; (VAR302).DEN:=401
010574	010500			MOV    	R5, R0
010576	062700	000302		ADD    	#000302, R0
010602	010046			MOV    	R0, -(SP)
010604	004767	170450		CALL   	001260			; VWCRE(VAR302)
010610	012700	012034		MOV    	#012034, R0
010614	010601			MOV    	SP, R1
010616	062701	000074		ADD    	#000074, R1
010622	012702	000012		MOV    	#000012, R2
010626	012021			MOV    	(R0)+, (R1)+		; 74(SP):='     '
010630	005302			DEC    	R2
010632	001375			BNE    	010626
010634	012700	012062		MOV    	#012062, R0
010640	010601			MOV    	SP, R1
010642	062701	000120		ADD    	#000120, R1
010646	012702	000012		MOV    	#000012, R2
010652	012021			MOV    	(R0)+, (R1)+		; 120(SP):='      - 11/16     '
010654	005302			DEC    	R2
010656	001375			BNE    	010652
010660	010604			MOV    	SP, R4
010662	162706	000024		SUB    	#000024, SP
010666	010600			MOV    	SP, R0
010670	062700	000120		ADD    	#000120, R0
010674	010601			MOV    	SP, R1
010676	012702	000012		MOV    	#000012, R2
010702	012021			MOV    	(R0)+, (R1)+
010704	005302			DEC    	R2
010706	001375			BNE    	010702
010710	012746	000002		MOV    	#000002, -(SP)
010714	012746	000002		MOV    	#000002, -(SP)
010720	004767	177232		CALL   	010156			; L10156(74(SP),2,2)
010724	010604			MOV    	SP, R4
010726	162706	000024		SUB    	#000024, SP
010732	010600			MOV    	SP, R0
010734	062700	000144		ADD    	#000144, R0
010740	010601			MOV    	SP, R1
010742	012702	000012		MOV    	#000012, R2
010746	012021			MOV    	(R0)+, (R1)+
010750	005302			DEC    	R2
010752	001375			BNE    	010746
010754	012746	000002		MOV    	#000002, -(SP)
010760	012746	000020		MOV    	#000020, -(SP)
010764	004767	177166		CALL   	010156			; L10156(120(SP),2,20)
010770	010604			MOV    	SP, R4
010772	162706	000024		SUB    	#000024, SP
010776	012700	012110		MOV    	#012110, R0
011002	010601			MOV    	SP, R1
011004	012702	000012		MOV    	#000012, R2
011010	012021			MOV    	(R0)+, (R1)+
011012	005302			DEC    	R2
011014	001375			BNE    	011010
011016	012746	000010		MOV    	#000010, -(SP)
011022	012746	000050		MOV    	#000050, -(SP)
011026	004767	177124		CALL   	010156			; L10156('      ',10,50)
011032	010604			MOV    	SP, R4
011034	162706	000024		SUB    	#000024, SP
011040	012700	012136		MOV    	#012136, R0
011044	010601			MOV    	SP, R1
011046	012702	000012		MOV    	#000012, R2
011052	012021			MOV    	(R0)+, (R1)+
011054	005302			DEC    	R2
011056	001375			BNE    	011052
011060	012746	000010		MOV    	#000010, -(SP)
011064	012746	000064		MOV    	#000064, -(SP)
011070	004767	177062		CALL   	010156			; L10156('   18062 / 8   ',10,64)
011074	010604			MOV    	SP, R4
011076	162706	000024		SUB    	#000024, SP
011102	012700	012164		MOV    	#012164, R0
011106	010601			MOV    	SP, R1
011110	012702	000012		MOV    	#000012, R2
011114	012021			MOV    	(R0)+, (R1)+
011116	005302			DEC    	R2
011120	001375			BNE    	011114
011122	012746	000011		MOV    	#000011, -(SP)
011126	012746	000100		MOV    	#000100, -(SP)
011132	004767	177020		CALL   	010156			; L10156('   ',11,100)
011136	010604			MOV    	SP, R4
011140	162706	000024		SUB    	#000024, SP
011144	012700	012212		MOV    	#012212, R0
011150	010601			MOV    	SP, R1
011152	012702	000012		MOV    	#000012, R2
011156	012021			MOV    	(R0)+, (R1)+
011160	005302			DEC    	R2
011162	001375			BNE    	011156
011164	012746	000011		MOV    	#000011, -(SP)
011170	012746	000114		MOV    	#000114, -(SP)
011174	004767	176756		CALL   	010156			; L10156('   512 - 4    ',11,114)
011200	010604			MOV    	SP, R4
011202	162706	000024		SUB    	#000024, SP
011206	012700	012240		MOV    	#012240, R0
011212	010601			MOV    	SP, R1
011214	012702	000012		MOV    	#000012, R2
011220	012021			MOV    	(R0)+, (R1)+
011222	005302			DEC    	R2
011224	001375			BNE    	011220
011226	012746	000012		MOV    	#000012, -(SP)
011232	012746	000130		MOV    	#000130, -(SP)
011236	004767	176714		CALL   	010156			; L10156('        ',12,130)
011242	010604			MOV    	SP, R4
011244	162706	000024		SUB    	#000024, SP
011250	012700	012266		MOV    	#012266, R0
011254	010601			MOV    	SP, R1
011256	012702	000012		MOV    	#000012, R2
011262	012021			MOV    	(R0)+, (R1)+
011264	005302			DEC    	R2
011266	001375			BNE    	011262
011270	012746	000012		MOV    	#000012, -(SP)
011274	012746	000144		MOV    	#000144, -(SP)
011300	004767	176652		CALL   	010156			; L10156('     ',12,144)
011304	010604			MOV    	SP, R4
011306	162706	000024		SUB    	#000024, SP
011312	012700	012314		MOV    	#012314, R0
011316	010601			MOV    	SP, R1
011320	012702	000012		MOV    	#000012, R2
011324	012021			MOV    	(R0)+, (R1)+
011326	005302			DEC    	R2
011330	001375			BNE    	011324
011332	012746	000013		MOV    	#000013, -(SP)
011336	012746	000160		MOV    	#000160, -(SP)
011342	004767	176610		CALL   	010156			; L10156(' 600     ',13,160)
011346	010604			MOV    	SP, R4
011350	162706	000024		SUB    	#000024, SP
011354	012700	012342		MOV    	#012342, R0
011360	010601			MOV    	SP, R1
011362	012702	000012		MOV    	#000012, R2
011366	012021			MOV    	(R0)+, (R1)+
011370	005302			DEC    	R2
011372	001375			BNE    	011366
011374	012746	000013		MOV    	#000013, -(SP)
011400	012746	000174		MOV    	#000174, -(SP)
011404	004767	176546		CALL   	010156			; L10156('     ',13,174)
011410	012746	000006		MOV    	#000006, -(SP)
011414	004767	171040		CALL   	002460			; L02460(6)
011420	010503			MOV    	R5, R3
011422	062703	000326		ADD    	#000326, R3		; WITH VAR326
011426	005063	000002		CLR    	000002(R3)		; (VAR326).WNUM:=0
011432	016563	000116	000004	MOV    	000116(R5), 000004(R3)	; (VAR326).AREA:=VAR116.ANUM
011440	005063	000006		CLR    	000006(R3)		; (VAR326).ARY:=0
011444	005063	000010		CLR    	000010(R3)		; (VAR326).ARX:=0
011450	012763	000004	000012	MOV    	#000004, 000012(R3)	; (VAR326).SY1:=4
011456	012763	000036	000014	MOV    	#000036, 000014(R3)	; (VAR326).SY2:=36
011464	012763	000001	000016	MOV    	#000001, 000016(R3)	; (VAR326).SX1:=1
011472	012763	000014	000020	MOV    	#000014, 000020(R3)	; (VAR326).SX2:=14
011500	012763	001002	000022	MOV    	#001002, 000022(R3)	; (VAR326).DEN:=1002
011506	016546	000116		MOV    	000116(R5), -(SP)
011512	012746	000007		MOV    	#000007, -(SP)
011516	012746	000003		MOV    	#000003, -(SP)
011522	012746	000004		MOV    	#000004, -(SP)
011526	012746	000021		MOV    	#000021, -(SP)
011532	162706	000024		SUB    	#000024, SP
011536	010600			MOV    	SP, R0
011540	062700	000132		ADD    	#000132, R0
011544	010601			MOV    	SP, R1
011546	012702	000012		MOV    	#000012, R2
011552	012021			MOV    	(R0)+, (R1)+
011554	005302			DEC    	R2
011556	001375			BNE    	011552
011560	004767	170774		CALL   	002560			; L02560(VAR116.ANUM,7,3,4,21,74(SP))
011564	016546	000116		MOV    	000116(R5), -(SP)
011570	012746	177776		MOV    	#177776, -(SP)
011574	012746	000002		MOV    	#000002, -(SP)
011600	012746	000002		MOV    	#000002, -(SP)
011604	012746	000021		MOV    	#000021, -(SP)
011610	162706	000024		SUB    	#000024, SP
011614	010600			MOV    	SP, R0
011616	062700	000132		ADD    	#000132, R0
011622	010601			MOV    	SP, R1
011624	012702	000012		MOV    	#000012, R2
011630	012021			MOV    	(R0)+, (R1)+
011632	005302			DEC    	R2
011634	001375			BNE    	011630
011636	004767	170716		CALL   	002560			; L02560(VAR116.ANUM,-2,2,2,21,74(SP))
011642	016546	000116		MOV    	000116(R5), -(SP)
011646	012746	000007		MOV    	#000007, -(SP)
011652	012746	000003		MOV    	#000003, -(SP)
011656	012746	000016		MOV    	#000016, -(SP)
011662	012746	000021		MOV    	#000021, -(SP)
011666	162706	000024		SUB    	#000024, SP
011672	010600			MOV    	SP, R0
011674	062700	000156		ADD    	#000156, R0
011700	010601			MOV    	SP, R1
011702	012702	000012		MOV    	#000012, R2
011706	012021			MOV    	(R0)+, (R1)+
011710	005302			DEC    	R2
011712	001375			BNE    	011706
011714	004767	170640		CALL   	002560			; L02560(VAR116.ANUM,7,3,16,21,120(SP))
011720	016546	000116		MOV    	000116(R5), -(SP)
011724	012746	177776		MOV    	#177776, -(SP)
011730	012746	000002		MOV    	#000002, -(SP)
011734	012746	000014		MOV    	#000014, -(SP)
011740	012746	000021		MOV    	#000021, -(SP)
011744	162706	000024		SUB    	#000024, SP
011750	010600			MOV    	SP, R0
011752	062700	000156		ADD    	#000156, R0
011756	010601			MOV    	SP, R1
011760	012702	000012		MOV    	#000012, R2
011764	012021			MOV    	(R0)+, (R1)+
011766	005302			DEC    	R2
011770	001375			BNE    	011764
011772	004767	170562		CALL   	002560			; L02560(VAR116.ANUM,-2,2,14,21,120(SP))
011776	010500			MOV    	R5, R0
012000	062700	000302		ADD    	#000302, R0
012004	010046			MOV    	R0, -(SP)
012006	004767	167252		CALL   	001264			; VWKILL(VAR302)
012012	010500			MOV    	R5, R0
012014	062700	000326		ADD    	#000326, R0
012020	010046			MOV    	R0, -(SP)
012022	004767	167232		CALL   	001260			; VWCRE(VAR326)
012026	062706	000144		ADD    	#000144, SP
012032	000207			RETURN 	
-------------------------------------------------------------
012034	137440	160325	157341	.ASCIZ	/     /
	150335	166333	150335	.EVEN
	020357	131315	020274
	020040	000000

012062	020040	020040	020277	.ASCIZ	"      - 11/16     "
	020272	020055	030461	.EVEN
	030457	020066	020040
	020040	000000

012110	154274	160332	157736	.ASCIZ	/      /
	157340	152746	160741	.EVEN
	160336	020040	020040
	020040	000000

012136	020040	030440	030070	.ASCIZ	"   18062 / 8   "
	131066	031274	027440	.EVEN
	034040	136040	163263
	020040	000000

012164	157676	160325	161320	.ASCIZ	/   /
	151330	150335	020357	.EVEN
	150337	167734	166342
	020040	000000

012212	020040	032440	031061	.ASCIZ	/   512 - 4    /
	020272	020055	136064	.EVEN
	150440	154720	020342
	020040	000000

012240	156674	151736	157336	.ASCIZ	/        /
	157332	156735	154753	.EVEN
	020040	020040	020040
	020040	000000

012266	020040	151040	152330	.ASCIZ	/     /
	157325	157332	161335	.EVEN
	157340	155733	160325
	020040	000000

012314	157261	152733	020325	.ASCIZ	/ 600     /
	030066	020060	151346	.EVEN
	161325	151336	020040
	020040	000000

012342	156440	020320	155355	.ASCIZ	/     /
	150340	152735	152040	.EVEN
	160730	155737	167725
	020040	000000
=============================================================
; PROCEDURE (CRPAL256)
012370	011404			MOV    	(R4), R4
012372	011404			MOV    	(R4), R4
012374	011404			MOV    	(R4), R4
012376	011404			MOV    	(R4), R4
012400	011404			MOV    	(R4), R4
012402	011404			MOV    	(R4), R4
012404	011404			MOV    	(R4), R4
012406	011404			MOV    	(R4), R4
012410	011404			MOV    	(R4), R4
012412	162706	000014		SUB    	#000014, SP	; VAR 2(SP),4(SP),6(SP),10(SP),12(SP),14(SP):INTEGER
012416	010446			MOV    	R4, -(SP)
012420	011600			MOV    	(SP), R0
012422	005060	002304		CLR    	002304(R0)		; LOC2304:=0
012426	010003			MOV    	R0, R3			; WITH LOC2334
012430	062703	002334		ADD    	#002334, R3
012434	010001			MOV    	R0, R1
012436	062701	002300		ADD    	#002300, R1		; FOR LOC2300:=0 TO 17
012442	010146			MOV    	R1, -(SP)
012444	005046			CLR    	-(SP)
012446	012746	000017		MOV    	#000017, -(SP)
012452	016676	000002	000004	MOV    	000002(SP), @000004(SP)
012460	027616	000004		CMP    	@000004(SP), (SP)
012464	003402			BLE    	012472
012466	000167	000300		JMP    	012772
012472	016600	000006		MOV    	000006(SP), R0
012476	010001			MOV    	R0, R1
012500	062701	002302		ADD    	#002302, R1		; FOR LOC2302:=0 TO 17
012504	010146			MOV    	R1, -(SP)
012506	005046			CLR    	-(SP)
012510	012746	000017		MOV    	#000017, -(SP)
012514	016676	000002	000004	MOV    	000002(SP), @000004(SP)
012522	027616	000004		CMP    	@000004(SP), (SP)
012526	003402			BLE    	012534
012530	000167	000220		JMP    	012754
012534	016600	000014		MOV    	000014(SP), R0
012540	016001	002300		MOV    	002300(R0), R1
012544	006301			ASL    	R1
012546	010166	000016		MOV    	R1, 000016(SP)		; 2(SP):=LOC2300*2
012552	016001	002302		MOV    	002302(R0), R1
012556	006301			ASL    	R1
012560	006301			ASL    	R1
012562	010166	000024		MOV    	R1, 000024(SP)		; 10(SP):=LOC2302*4
012566	016601	000016		MOV    	000016(SP), R1
012572	042701	177743		BIC    	#177743, R1
012576	010166	000020		MOV    	R1, 000020(SP)		; 4(SP):=2(SP) AND 34
012602	016601	000016		MOV    	000016(SP), R1
012606	042701	177774		BIC    	#177774, R1
012612	006301			ASL    	R1
012614	006301			ASL    	R1
012616	006301			ASL    	R1
012620	010166	000022		MOV    	R1, 000022(SP)		; 6(SP):=(2(SP) AND 3)*10
012624	016601	000024		MOV    	000024(SP), R1
012630	042701	177707		BIC    	#177707, R1
012634	006301			ASL    	R1
012636	006301			ASL    	R1
012640	010166	000026		MOV    	R1, 000026(SP)		; 12(SP):=(10(SP) AND 70)*4
012644	016601	000024		MOV    	000024(SP), R1
012650	042701	177770		BIC    	#177770, R1
012654	006301			ASL    	R1
012656	006301			ASL    	R1
012660	006301			ASL    	R1
012662	006301			ASL    	R1
012664	006301			ASL    	R1
012666	010166	000030		MOV    	R1, 000030(SP)		; 14(SP):=(10(SP) AND 7)*40
012672	010301			MOV    	R3, R1
012674	066001	002304		ADD    	002304(R0), R1
012700	016602	000020		MOV    	000020(SP), R2
012704	066602	000026		ADD    	000026(SP), R2
012710	110261	000004		MOVB   	R2, 000004(R1)		; (LOC2334).CL[LOC2304]:=CHR(4(SP)+12(SP))
012714	010301			MOV    	R3, R1
012716	066001	002304		ADD    	002304(R0), R1
012722	016602	000022		MOV    	000022(SP), R2
012726	066602	000030		ADD    	000030(SP), R2
012732	110261	000404		MOVB   	R2, 000404(R1)		; (LOC2334).CH[LOC2304]:=CHR(6(SP)+14(SP))
012736	005260	002304		INC    	002304(R0)		; LOC2304:=LOC2304+1
012742	005276	000004		INC    	@000004(SP)		; NEXT LOC2302
012746	102402			BVS    	012754
012750	000167	177546		JMP    	012522
012754	062706	000006		ADD    	#000006, SP		; END FOR LOC2302
012760	005276	000004		INC    	@000004(SP)		; NEXT LOC2300
012764	102402			BVS    	012772
012766	000167	177466		JMP    	012460
012772	062706	000006		ADD    	#000006, SP		; END FOR LOC2300
012776	011600			MOV    	(SP), R0
013000	010001			MOV    	R0, R1
013002	062701	002334		ADD    	#002334, R1
013006	010146			MOV    	R1, -(SP)
013010	004767	166204		CALL   	001220			; PLMODx(LOC2334)
013014	062706	000016		ADD    	#000016, SP
013020	000207			RETURN 	
=======--------========---------========-------====-----=====
013022	011404			MOV    	(R4), R4
013024	011404			MOV    	(R4), R4
013026	011404			MOV    	(R4), R4
013030	011404			MOV    	(R4), R4
013032	011404			MOV    	(R4), R4
013034	011404			MOV    	(R4), R4
013036	011404			MOV    	(R4), R4
013040	011404			MOV    	(R4), R4
013042	011404			MOV    	(R4), R4
013044	162706	000016		SUB    	#000016, SP ; VAR 2(SP),4(SP),6(SP),10(SP),12(SP),14(SP),16(SP)
013050	010446			MOV    	R4, -(SP)
013052	005066	000010		CLR    	000010(SP)		; 10(SP):=0
013056	012766	000001	000016	MOV    	#000001, 000016(SP)	; 16(SP):=1
013064	010600			MOV    	SP, R0
013066	062700	000002		ADD    	#000002, R0		; FOR 2(SP):=1 TO 76
013072	010046			MOV    	R0, -(SP)
013074	012746	000001		MOV    	#000001, -(SP)
013100	012746	000076		MOV    	#000076, -(SP)
013104	016676	000002	000004	MOV    	000002(SP), @000004(SP)
013112	027616	000004		CMP    	@000004(SP), (SP)
013116	003402			BLE    	013124
013120	000167	000460		JMP    	013604
013124	012746	023420		MOV    	#023420, -(SP)
013130	004767	167220		CALL   	002354			; L02354(23420)
013134	016600	000006		MOV    	000006(SP), R0
013140	005060	002304		CLR    	002304(R0)		; LOC2304:=0
013144	016601	000016		MOV    	000016(SP), R1
013150	042701	177747		BIC    	#177747, R1
013154	005701			TST    	R1
013156	100001			BPL    	013162
013160	005301			DEC    	R1
013162	006201			ASR    	R1
013164	006201			ASR    	R1
013166	006201			ASR    	R1
013170	100001			BPL    	013174
013172	005201			INC    	R1
013174	010166	000020		MOV    	R1, 000020(SP)		; 12(SP):=(10(SP) AND 30) DIV 10
013200	016601	000016		MOV    	000016(SP), R1
013204	042701	177770		BIC    	#177770, R1
013210	010166	000022		MOV    	R1, 000022(SP)		; 14(SP):=10(SP) AND 7
013214	010003			MOV    	R0, R3
013216	062703	002334		ADD    	#002334, R3		; WITH LOC2334
013222	010001			MOV    	R0, R1
013224	062701	002300		ADD    	#002300, R1		; FOR LOC2300:=0 TO 17
013230	010146			MOV    	R1, -(SP)
013232	005046			CLR    	-(SP)
013234	012746	000017		MOV    	#000017, -(SP)
013240	016676	000002	000004	MOV    	000002(SP), @000004(SP)
013246	027616	000004		CMP    	@000004(SP), (SP)
013252	003402			BLE    	013260
013254	000167	000226		JMP    	013506
013260	016600	000014		MOV    	000014(SP), R0
013264	010001			MOV    	R0, R1
013266	062701	002302		ADD    	#002302, R1		; FOR LOC2302:=0 TO 17
013272	010146			MOV    	R1, -(SP)
013274	005046			CLR    	-(SP)
013276	012746	000017		MOV    	#000017, -(SP)
013302	016676	000002	000004	MOV    	000002(SP), @000004(SP)
013310	027616	000004		CMP    	@000004(SP), (SP)
013314	003402			BLE    	013322
013316	000167	000146		JMP    	013470
013322	016600	000022		MOV    	000022(SP), R0
013326	010301			MOV    	R3, R1
013330	066001	002304		ADD    	002304(R0), R1
013334	116101	000004		MOVB   	000004(R1), R1
013340	010166	000026		MOV    	R1, 000026(SP)		; 4(SP):=ORD((LOC2334).C[LOC2304])
013344	010301			MOV    	R3, R1
013346	066001	002304		ADD    	002304(R0), R1
013352	116101	000404		MOVB   	000404(R1), R1
013356	010166	000030		MOV    	R1, 000030(SP)		; 6(SP):=ORD((LOC2334).C[LOC2304+400])
013362	016601	000026		MOV    	000026(SP), R1
013366	042701	177403		BIC    	#177403, R1
013372	066601	000034		ADD    	000034(SP), R1
013376	010166	000026		MOV    	R1, 000026(SP)		; 4(SP):=(4(SP) AND 374)+12(SP)
013402	016601	000030		MOV    	000030(SP), R1
013406	042701	177407		BIC    	#177407, R1
013412	066601	000036		ADD    	000036(SP), R1
013416	010166	000030		MOV    	R1, 000030(SP)		; 6(SP):=(6(SP) AND 370)+14(SP)
013422	010301			MOV    	R3, R1
013424	066001	002304		ADD    	002304(R0), R1
013430	116661	000026	000004	MOVB   	000026(SP), 000004(R1)	; (LOC2334).C[LOC2304]:=CHR(4(SP))
013436	010301			MOV    	R3, R1
013440	066001	002304		ADD    	002304(R0), R1
013444	116661	000030	000404	MOVB   	000030(SP), 000404(R1)	; (LOC2334).C[LOC2304+400]:=CHR(6(SP))
013452	005260	002304		INC    	002304(R0)		; LOC2304:=LOC2304+1
013456	005276	000004		INC    	@000004(SP)		; NEXT LOC2302
013462	102402			BVS    	013470
013464	000167	177620		JMP    	013310
013470	062706	000006		ADD    	#000006, SP		; END FOR LOC2302
013474	005276	000004		INC    	@000004(SP)		; NEXT LOC2300
013500	102402			BVS    	013506
013502	000167	177540		JMP    	013246
013506	062706	000006		ADD    	#000006, SP		; END FOR LOC2300
013512	016600	000006		MOV    	000006(SP), R0
013516	010001			MOV    	R0, R1
013520	062701	002334		ADD    	#002334, R1
013524	010146			MOV    	R1, -(SP)
013526	004767	165466		CALL   	001220			; PLMODx(LOC2334)
013532	066666	000024	000016	ADD    	000024(SP), 000016(SP)	; 10(SP):=10(SP)+16(SP)
013540	042766	177740	000016	BIC    	#177740, 000016(SP)	; 10(SP):=10(SP) MOD 40
013546	005766	000016		TST    	000016(SP)		; IF 10(SP)=0
013552	001402			BEQ    	013560
013554	000167	000012		JMP    	013572
013560	005466	000024		NEG    	000024(SP)		; THEN ; 16(SP):=-16(SP)
013564	012766	000036	000016	MOV    	#000036, 000016(SP)	; 10(SP):=36 ; END IF
013572	005276	000004		INC    	@000004(SP)		; NEXT 2(SP)
013576	102402			BVS    	013604
013600	000167	177306		JMP    	013112
013604	062706	000006		ADD    	#000006, SP		; END FOR 2(SP)
013610	062706	000020		ADD    	#000020, SP
013614	000207			RETURN 	
=======--------========---------========-------====-----=====
; PROCEDURE (COLOR64)
013616	162706	003354		SUB    	#003354, SP
; VAR @SP: RECORD
;           CODE:INTEGER;
;           ANUM:INTEGER;
;           LINS:INTEGER;
;           SLEN:INTEGER;
;           TAS:ARRAY[1..300,1..2] OF INTEGER;
;          END;
; 2270(SP),2272(SP),2274(SP),2276(SP),2300(SP),2302(SP),2304(SP),2306(SP):INTEGER
; 2310(SP):WINTYP; 2334(SP):PLXTYP; 3340(SP):ARETYP
013622	005016			CLR    	(SP)			; @SP.CODE:=0
013624	005066	000002		CLR    	000002(SP)		; @SP.ANUM:=0
013630	012766	000100	000004	MOV    	#000100, 000004(SP)	; @SP.LINS:=100
013636	012766	000044	000006	MOV    	#000044, 000006(SP)	; @SP.SLEN:=44
013644	010500			MOV    	R5, R0			; {$C
013646	062700	000732		ADD    	#000732, R0
013652	010001			MOV    	R0, R1
013654	042701	160000		BIC    	#160000, R1
013660	010166	002272		MOV    	R1, 002272(SP)
013664	072027	177763		ASH    	#177763, R0
013670	042700	177770		BIC    	#177770, R0
013674	006300			ASL    	R0
013676	062700	161220		ADD    	#161220, R0
013702	011066	002270		MOV    	(R0), 002270(SP)	; }
013706	026627	002272	010000	CMP    	002272(SP), #010000	; IF 2272(SP)>=10000
013714	002002			BGE    	013722
013716	000167	000014		JMP    	013736
013722	042766	170000	002272	BIC    	#170000, 002272(SP)	; THEN ; 2272(SP):=2272(SP) AND 7777
013730	062766	000020	002270	ADD    	#000020, 002270(SP)	; 2270(SP):=2270(SP)+20 ; END IF
013736	012766	000007	002336	MOV    	#000007, 002336(SP)	; 2334(SP).MODPAL:=7
013744	010600			MOV    	SP, R0
013746	062700	002334		ADD    	#002334, R0
013752	010046			MOV    	R0, -(SP)
013754	004767	165250		CALL   	001230			; PLCREX(2334(SP))
013760	016600	002336		MOV    	002336(SP), R0
013764	066600	002270		ADD    	002270(SP), R0
013770	010066	002306		MOV    	R0, 002306(SP)		; 2306(SP):=2334(SP).MODPAL+2270(SP)
013774	010604			MOV    	SP, R4
013776	004767	176410		CALL   	012412			; L12412
014002	010603			MOV    	SP, R3			; WITH @SP
014004	010600			MOV    	SP, R0
014006	062700	002300		ADD    	#002300, R0		; FOR 2300(SP):=1 TO 100
014012	010046			MOV    	R0, -(SP)
014014	012746	000001		MOV    	#000001, -(SP)
014020	012746	000100		MOV    	#000100, -(SP)
014024	016676	000002	000004	MOV    	000002(SP), @000004(SP)
014032	027616	000004		CMP    	@000004(SP), (SP)
014036	003402			BLE    	014044
014040	000167	000076		JMP    	014142
014044	016600	002306		MOV    	002306(SP), R0
014050	006300			ASL    	R0
014052	006300			ASL    	R0
014054	060300			ADD    	R3, R0
014056	016660	002300	000004	MOV    	002300(SP), 000004(R0)	; (@SP).TAS[2300(SP),1]:=2272(SP)
014064	016600	002306		MOV    	002306(SP), R0
014070	006300			ASL    	R0
014072	006300			ASL    	R0
014074	060300			ADD    	R3, R0
014076	016660	002314	000006	MOV    	002314(SP), 000006(R0)	; (@SP).TAS[2300(SP),2]:=2306(SP)
014104	016600	002306		MOV    	002306(SP), R0
014110	042700	177774		BIC    	#177774, R0		; IF (2300(SP) MOD 4)=0
014114	001402			BEQ    	014122
014116	000167	000006		JMP    	014130
014122	062766	000044	002300	ADD    	#000044, 002300(SP)	; THEN ; 2272(SP):=2272(SP)+44
014130	005276	000004		INC    	@000004(SP)		; NEXT 2300(SP)
014134	102402			BVS    	014142
014136	000167	177670		JMP    	014032
014142	062706	000006		ADD    	#000006, SP		; END FOR 2300(SP)
014146	010315			MOV    	R3, (R5)		; VAR00.A:=@(@SP).CODE
014150	011537	177530		MOV    	(R5), @#177530		; WCSR:=VAR00.W
014154	016315	000002		MOV    	000002(R3), (R5)	; VAR00.W:=(@SP).ANUM
014160	016366	000002	003340	MOV    	000002(R3), 003340(SP)	; 3340(SP).ANUM:=(@SP).ANUM
014166	010503			MOV    	R5, R3
014170	062703	000542		ADD    	#000542, R3		; WITH VAR542
014174	016663	000002	000004	MOV    	000002(SP), 000004(R3)	; (VAR542).AREA:=@SP.ANUM
014202	005063	000002		CLR    	000002(R3)		; (VAR542).WNUM:=0
014206	005063	000022		CLR    	000022(R3)		; (VAR542).DEN:=0
014212	005063	000006		CLR    	000006(R3)		; (VAR542).ARY:=0
014216	012763	000002	000010	MOV    	#000002, 000010(R3)	; (VAR542).ARX:=2
014224	012763	000005	000016	MOV    	#000005, 000016(R3)	; (VAR542).SX1:=5
014232	012763	000024	000020	MOV    	#000024, 000020(R3)	; (VAR542).SX2:=24
014240	012763	000040	000012	MOV    	#000040, 000012(R3)	; (VAR542).SY1:=40
014246	012763	000432	000014	MOV    	#000432, 000014(R3)	; (VAR542).SY2:=432
014254	010600			MOV    	SP, R0
014256	062700	003340		ADD    	#003340, R0
014262	010501			MOV    	R5, R1
014264	062701	000242		ADD    	#000242, R1
014270	012702	000006		MOV    	#000006, R2
014274	012021			MOV    	(R0)+, (R1)+		; VAR242:=3340(SP)
014276	005302			DEC    	R2
014300	001375			BNE    	014274
014302	010600			MOV    	SP, R0
014304	062700	002300		ADD    	#002300, R0		; FOR 2300(SP):=1 TO 20
014310	010046			MOV    	R0, -(SP)
014312	012746	000001		MOV    	#000001, -(SP)
014316	012746	000020		MOV    	#000020, -(SP)
014322	016676	000002	000004	MOV    	000002(SP), @000004(SP)
014330	027616	000004		CMP    	@000004(SP), (SP)
014334	003402			BLE    	014342
014336	000167	000166		JMP    	014530
014342	010600			MOV    	SP, R0
014344	062700	002310		ADD    	#002310, R0		; FOR 2302(SP):=0 TO 17
014350	010046			MOV    	R0, -(SP)
014352	005046			CLR    	-(SP)
014354	012746	000017		MOV    	#000017, -(SP)
014360	016676	000002	000004	MOV    	000002(SP), @000004(SP)
014366	027616	000004		CMP    	@000004(SP), (SP)
014372	003402			BLE    	014400
014374	000167	000112		JMP    	014512
014400	016600	002314		MOV    	002314(SP), R0
014404	005300			DEC    	R0
014406	006300			ASL    	R0
014410	006300			ASL    	R0
014412	006300			ASL    	R0
014414	006300			ASL    	R0
014416	066600	002316		ADD    	002316(SP), R0
014422	010066	002320		MOV    	R0, 002320(SP)		; 2304(SP):=(2300(SP)-1)*20+2302(SP)
014426	016646	002314		MOV    	002314(SP), -(SP)
014432	012746	000044		MOV    	#000044, -(SP)
014436	004767	042540		CALL   	057202	; $B116
014442	010500			MOV    	R5, R0
014444	062600			ADD    	(SP)+, R0
014446	016601	002316		MOV    	002316(SP), R1
014452	006301			ASL    	R1
014454	060001			ADD    	R0, R1
014456	016600	002320		MOV    	002320(SP), R0
014462	000300			SWAB   	R0
014464	042700	000377		BIC    	#000377, R0
014470	066600	002320		ADD    	002320(SP), R0
014474	010061	000666		MOV    	R0, 000666(R1)		; VAR732[2300(SP),2302(SP)]:=2304(SP)*400+2304(SP)
014500	005276	000004		INC    	@000004(SP)		; NEXT 2302(SP)
014504	102402			BVS    	014512
014506	000167	177654		JMP    	014366
014512	062706	000006		ADD    	#000006, SP		; END FOR 2302(SP)
014516	005276	000004		INC    	@000004(SP)		; NEXT 2300(SP)
014522	102402			BVS    	014530
014524	000167	177600		JMP    	014330
014530	062706	000006		ADD    	#000006, SP		; END FOR 2300(SP)
014534	005066	002312		CLR    	002312(SP)		; 2310(SP).WNUM:=0
014540	010500			MOV    	R5, R0
014542	062700	000542		ADD    	#000542, R0
014546	010046			MOV    	R0, -(SP)
014550	010600			MOV    	SP, R0
014552	062700	002312		ADD    	#002312, R0
014556	010046			MOV    	R0, -(SP)
014560	012746	000001		MOV    	#000001, -(SP)
014564	004767	171326		CALL   	006116			; L06116(VAR542,2310(SP),1)
014570	010500			MOV    	R5, R0
014572	062700	000542		ADD    	#000542, R0
014576	010046			MOV    	R0, -(SP)
014600	004767	164454		CALL   	001260			; VWCRE(VAR542)
014604	012700	014764		MOV    	#014764, R0
014610	010501			MOV    	R5, R1
014612	062701	000636		ADD    	#000636, R1
014616	012702	000012		MOV    	#000012, R2
014622	012021			MOV    	(R0)+, (R1)+		; VAR636:='  256      '
014624	005302			DEC    	R2
014626	001375			BNE    	014622
014630	012700	015012		MOV    	#015012, R0
014634	010501			MOV    	R5, R1
014636	062701	000662		ADD    	#000662, R1
014642	012702	000012		MOV    	#000012, R2
014646	012021			MOV    	(R0)+, (R1)+		; VAR662:='     '
014650	005302			DEC    	R2
014652	001375			BNE    	014646
014654	012700	015040		MOV    	#015040, R0
014660	010501			MOV    	R5, R1
014662	062701	000706		ADD    	#000706, R1
014666	012702	000012		MOV    	#000012, R2
014672	012021			MOV    	(R0)+, (R1)+		; VAR706:=' 65535-    '
014674	005302			DEC    	R2
014676	001375			BNE    	014672
014700	004767	172004		CALL   	006710			; L06710
014704	012746	000003		MOV    	#000003, -(SP)
014710	004767	165544		CALL   	002460			; L02460(3)
014714	004767	173026		CALL   	007746			; L07746
014720	010604			MOV    	SP, R4
014722	004767	176116		CALL   	013044			; L13044
014726	010600			MOV    	SP, R0
014730	062700	002310		ADD    	#002310, R0
014734	010046			MOV    	R0, -(SP)
014736	004767	164322		CALL   	001264			; VWKILL(2310(SP))
014742	010500			MOV    	R5, R0
014744	062700	000542		ADD    	#000542, R0
014750	010046			MOV    	R0, -(SP)
014752	004767	164326		CALL   	001304			; VWBACK(VAR542)
014756	062706	003354		ADD    	#003354, SP
014762	000207			RETURN 	
-------------------------------------------------------------
014764	132040	020336	032462	.ASCIZ	/  256      /
	020066	151346	161325	.EVEN
	151336	151040	020040
	020040	000000

015012	157040	152342	155725	.ASCIZ	/     /
	156754	156336	157040	.EVEN
	156732	020325	153730
	020040	000000

015040	033040	032465	032463	.ASCIZ	/ 65535-    /
	154055	157040	161342	.EVEN
	156725	157332	020322
	020040	000000
=============================================================
; PROCEDURE 36(SP):ARRAY[1..24]OF CHAR; 34(SP),32(SP),30(SP):INTEGER; VAR 26(SP):ARETYP (COLWPRINT)
015066	162706	000024		SUB    	#000024, SP	; VAR @SP:ARRAY[1..24]OF CHAR
015072	112716	000007		MOVB   	#000007, (SP)		; @SP[1]:=CHR(7)
015076	016600	000032		MOV    	000032(SP), R0
015102	006300			ASL    	R0
015104	006300			ASL    	R0
015106	006300			ASL    	R0
015110	006300			ASL    	R0
015112	066600	000030		ADD    	000030(SP), R0
015116	110066	000001		MOVB   	R0, 000001(SP)		; @SP[2]:=CHR(32(SP)*20+30(SP))
015122	105066	000002		CLRB   	000002(SP)		; @SP[3]:=CHR(0)
015126	017646	000026		MOV    	@000026(SP), -(SP)
015132	012746	000001		MOV    	#000001, -(SP)
015136	016646	000040		MOV    	000040(SP), -(SP)
015142	010600			MOV    	SP, R0
015144	062700	000006		ADD    	#000006, R0
015150	010046			MOV    	R0, -(SP)
015152	004767	164122		CALL   	001300			; WPRINT(26(SP).ANUM,1,34(SP),@@SP[1])
015156	010600			MOV    	SP, R0
015160	062700	000036		ADD    	#000036, R0
015164	010601			MOV    	SP, R1
015166	012702	000012		MOV    	#000012, R2
015172	012021			MOV    	(R0)+, (R1)+		; @SP:=36(SP)
015174	005302			DEC    	R2
015176	001375			BNE    	015172
015200	105066	000023		CLRB   	000023(SP)		; @SP[24]:=CHR(0)
015204	017646	000026		MOV    	@000026(SP), -(SP)
015210	012746	000011		MOV    	#000011, -(SP)
015214	016646	000040		MOV    	000040(SP), -(SP)
015220	012746	000012		MOV    	#000012, -(SP)
015224	004767	042040		CALL   	057270	; $B78
015230	010600			MOV    	SP, R0
015232	062700	000006		ADD    	#000006, R0
015236	010046			MOV    	R0, -(SP)
015240	004767	164034		CALL   	001300			; WPRINT(26(SP).ANUM,11,34(SP)*12,@@SP[1])
015244	016666	000024	000060	MOV    	000024(SP), 000060(SP)
015252	062706	000060		ADD    	#000060, SP
015256	000207			RETURN 	
=============================================================
; PROCEDURE VAR 10(SP):PALTYP; 6(SP),4(SP):INTEGER (GETPAL)
015260	011404			MOV    	(R4), R4
015262	011404			MOV    	(R4), R4
015264	011404			MOV    	(R4), R4
015266	011404			MOV    	(R4), R4
015270	011404			MOV    	(R4), R4
015272	011404			MOV    	(R4), R4
015274	011404			MOV    	(R4), R4
015276	011404			MOV    	(R4), R4
015300	011404			MOV    	(R4), R4
015302	010446			MOV    	R4, -(SP)
015304	016603	000010		MOV    	000010(SP), R3		; WITH 10(SP)
015310	005063	000002		CLR    	000002(R3)		; (10(SP)).MODPAL:=0
015314	116663	000006	000004	MOVB   	000006(SP), 000004(R3)	; (10(SP)).C[0]:=CHR(6(SP))
015322	116663	000006	000013	MOVB   	000006(SP), 000013(R3)	; (10(SP)).C[7]:=CHR(6(SP))
015330	116663	000006	000017	MOVB   	000006(SP), 000017(R3)	; (10(SP)).C[13]:=CHR(6(SP))
015336	116663	000006	000021	MOVB   	000006(SP), 000021(R3)	; (10(SP)).C[15]:=CHR(6(SP))
015344	116663	000006	000022	MOVB   	000006(SP), 000022(R3)	; (10(SP)).C[16]:=CHR(6(SP))
015352	116663	000004	000023	MOVB   	000004(SP), 000023(R3)	; (10(SP)).C[17]:=CHR(4(SP))
015360	016646	000010		MOV    	000010(SP), -(SP)
015364	004767	163620		CALL   	001210			; PLCRE(10(SP))
015370	016666	000002	000010	MOV    	000002(SP), 000010(SP)
015376	062706	000010		ADD    	#000010, SP
015402	000207			RETURN 	
====------=======-------=======-------=======--------========
; PROCEDURE VAR 4(SP):WINTYP (CRESWWIN)
015404	011404			MOV    	(R4), R4
015406	011404			MOV    	(R4), R4
015410	011404			MOV    	(R4), R4
015412	011404			MOV    	(R4), R4
015414	011404			MOV    	(R4), R4
015416	011404			MOV    	(R4), R4
015420	011404			MOV    	(R4), R4
015422	011404			MOV    	(R4), R4
015424	011404			MOV    	(R4), R4
015426	010446			MOV    	R4, -(SP)
015430	016603	000004		MOV    	000004(SP), R3		; WITH 4(SP)
015434	005063	000002		CLR    	000002(R3)		; (4(SP)).WNUM:=0
015440	012763	001002	000022	MOV    	#001002, 000022(R3)	; (4(SP)).DEN:=1002
015446	012763	000242	000012	MOV    	#000242, 000012(R3)	; (4(SP)).SY1:=242
015454	012763	000266	000014	MOV    	#000266, 000014(R3)	; (4(SP)).SY2:=266
015462	012763	000015	000016	MOV    	#000015, 000016(R3)	; (4(SP)).SX1:=15
015470	012763	000015	000020	MOV    	#000015, 000020(R3)	; (4(SP)).SX2:=15
015476	012763	000120	000006	MOV    	#000120, 000006(R3)	; (4(SP)).ARY:=120
015504	012763	000050	000010	MOV    	#000050, 000010(R3)	; (4(SP)).ARX:=50
015512	011600			MOV    	(SP), R0
015514	010046			MOV    	R0, -(SP)		; FOR LOC00:=1 TO 5
015516	012746	000001		MOV    	#000001, -(SP)
015522	012746	000005		MOV    	#000005, -(SP)
015526	016676	000002	000004	MOV    	000002(SP), @000004(SP)
015534	027616	000004		CMP    	@000004(SP), (SP)
015540	003402			BLE    	015546
015542	000167	000066		JMP    	015634
015546	016603	000012		MOV    	000012(SP), R3		; WITH 4(SP)
015552	062763	177760	000012	ADD    	#177760, 000012(R3)	; (4(SP)).SY1:=(4(SP)).SY1-20
015560	062763	000020	000014	ADD    	#000020, 000014(R3)	; (4(SP)).SY2:=(4(SP)).SY2+20
015566	005363	000016		DEC    	000016(R3)		; (4(SP)).SX1:=(4(SP)).SX1-1
015572	005263	000020		INC    	000020(R3)		; (4(SP)).SX2:=(4(SP)).SX2+1
015576	062763	177760	000006	ADD    	#177760, 000006(R3)	; (4(SP)).ARY:=(4(SP)).ARY-20
015604	062763	177770	000010	ADD    	#177770, 000010(R3)	; (4(SP)).ARX:=(4(SP)).ARX-10
015612	016646	000012		MOV    	000012(SP), -(SP)
015616	004767	163436		CALL   	001260			; VWCRE(4(SP))
015622	005276	000004		INC    	@000004(SP)		; NEXT LOC00
015626	102402			BVS    	015634
015630	000167	177700		JMP    	015534
015634	062706	000006		ADD    	#000006, SP		; END FOR LOC00
015640	016666	000002	000004	MOV    	000002(SP), 000004(SP)
015646	062706	000004		ADD    	#000004, SP
015652	000207			RETURN 	
====------======-------======-------=======---------=========
; PROCEDURE (PICTURES)
015654	162706	000054		SUB    	#000054, SP	; VAR @SP:INTEGER; ... 30(SP):PALTYP
015660	005065	000162		CLR    	000162(R5)		; VAL162.ANUM:=0
015664	012765	000264	000164	MOV    	#000264, 000164(R5)	; VAR162.LINS:=264
015672	012765	000134	000166	MOV    	#000134, 000166(R5)	; VAR162.SLEN:=134
015700	005065	000172		CLR    	000172(R5)		; VAR162.AMMR:=0
015704	010500			MOV    	R5, R0
015706	062700	000162		ADD    	#000162, R0
015712	010501			MOV    	R5, R1
015714	062701	000176		ADD    	#000176, R1
015720	012702	000006		MOV    	#000006, R2
015724	012021			MOV    	(R0)+, (R1)+		; VAR176:=VAR162
015726	005302			DEC    	R2
015730	001375			BNE    	015724
015732	010500			MOV    	R5, R0
015734	062700	000162		ADD    	#000162, R0
015740	010501			MOV    	R5, R1
015742	062701	000212		ADD    	#000212, R1
015746	012702	000006		MOV    	#000006, R2
015752	012021			MOV    	(R0)+, (R1)+		; VAR212:=VAR162
015754	005302			DEC    	R2
015756	001375			BNE    	015752
015760	010500			MOV    	R5, R0
015762	062700	000162		ADD    	#000162, R0
015766	010501			MOV    	R5, R1
015770	062701	000226		ADD    	#000226, R1
015774	012702	000006		MOV    	#000006, R2
016000	012021			MOV    	(R0)+, (R1)+		; VAR226:=VAR162
016002	005302			DEC    	R2
016004	001375			BNE    	016000
016006	010604			MOV    	SP, R4
016010	010600			MOV    	SP, R0
016012	062700	000030		ADD    	#000030, R0
016016	010046			MOV    	R0, -(SP)
016020	012746	000034		MOV    	#000034, -(SP)
016024	012746	000377		MOV    	#000377, -(SP)
016030	004767	177246		CALL   	015302			; L15302(30(SP),34,377)
016034	016665	000032	000170	MOV    	000032(SP), 000170(R5)	; VAR162.MODPAL:=30(SP).MODPAL
016042	010604			MOV    	SP, R4
016044	010600			MOV    	SP, R0
016046	062700	000030		ADD    	#000030, R0
016052	010046			MOV    	R0, -(SP)
016054	012746	000340		MOV    	#000340, -(SP)
016060	005046			CLR    	-(SP)
016062	004767	177214		CALL   	015302			; L15302(30(SP),340,0)
016066	016665	000032	000204	MOV    	000032(SP), 000204(R5)	; VAR176.MODPAL:=30(SP).MODPAL
016074	010604			MOV    	SP, R4
016076	010600			MOV    	SP, R0
016100	062700	000030		ADD    	#000030, R0
016104	010046			MOV    	R0, -(SP)
016106	012746	000200		MOV    	#000200, -(SP)
016112	012746	000374		MOV    	#000374, -(SP)
016116	004767	177160		CALL   	015302			; L15302(30(SP),200,374)
016122	016665	000032	000220	MOV    	000032(SP), 000220(R5)	; VAR212.MODPAL:=30(SP).MODPAL
016130	010604			MOV    	SP, R4
016132	010600			MOV    	SP, R0
016134	062700	000030		ADD    	#000030, R0
016140	010046			MOV    	R0, -(SP)
016142	012746	000374		MOV    	#000374, -(SP)
016146	012746	000034		MOV    	#000034, -(SP)
016152	004767	177124		CALL   	015302			; L15302(30(SP),374,34)
016156	016665	000032	000234	MOV    	000032(SP), 000234(R5)	; VAR226.MODPAL:=30(SP).MODPAL
016164	010500			MOV    	R5, R0
016166	062700	000162		ADD    	#000162, R0
016172	010046			MOV    	R0, -(SP)
016174	004767	163274		CALL   	001474			; L01474(VAR162)
016200	010500			MOV    	R5, R0
016202	062700	000176		ADD    	#000176, R0
016206	010046			MOV    	R0, -(SP)
016210	004767	163260		CALL   	001474			; L01474(VAR176)
016214	010500			MOV    	R5, R0
016216	062700	000212		ADD    	#000212, R0
016222	010046			MOV    	R0, -(SP)
016224	004767	163244		CALL   	001474			; L01474(VAR212)
016230	010500			MOV    	R5, R0
016232	062700	000226		ADD    	#000226, R0
016236	010046			MOV    	R0, -(SP)
016240	004767	163230		CALL   	001474			; L01474(VAR226)
016244	162706	000024		SUB    	#000024, SP
016250	012700	023636		MOV    	#023636, R0
016254	010601			MOV    	SP, R1
016256	012702	000012		MOV    	#000012, R2
016262	012021			MOV    	(R0)+, (R1)+
016264	005302			DEC    	R2
016266	001375			BNE    	016262
016270	012746	000001		MOV    	#000001, -(SP)
016274	012746	000001		MOV    	#000001, -(SP)
016300	012746	000004		MOV    	#000004, -(SP)
016304	010500			MOV    	R5, R0
016306	062700	000162		ADD    	#000162, R0
016312	010046			MOV    	R0, -(SP)
016314	004767	176546		CALL   	015066			; L15066('   ',1,1,4,VAR162)
016320	162706	000024		SUB    	#000024, SP
016324	012700	023664		MOV    	#023664, R0
016330	010601			MOV    	SP, R1
016332	012702	000012		MOV    	#000012, R2
016336	012021			MOV    	(R0)+, (R1)+
016340	005302			DEC    	R2
016342	001375			BNE    	016336
016344	012746	000002		MOV    	#000002, -(SP)
016350	012746	000001		MOV    	#000001, -(SP)
016354	012746	000004		MOV    	#000004, -(SP)
016360	010500			MOV    	R5, R0
016362	062700	000162		ADD    	#000162, R0
016366	010046			MOV    	R0, -(SP)
016370	004767	176472		CALL   	015066			; L15066('                    ',2,1,4,VAR162)
016374	162706	000024		SUB    	#000024, SP
016400	012700	023712		MOV    	#023712, R0
016404	010601			MOV    	SP, R1
016406	012702	000012		MOV    	#000012, R2
016412	012021			MOV    	(R0)+, (R1)+
016414	005302			DEC    	R2
016416	001375			BNE    	016412
016420	012746	000003		MOV    	#000003, -(SP)
016424	012746	000001		MOV    	#000001, -(SP)
016430	012746	000004		MOV    	#000004, -(SP)
016434	010500			MOV    	R5, R0
016436	062700	000162		ADD    	#000162, R0
016442	010046			MOV    	R0, -(SP)
016444	004767	176416		CALL   	015066			; L15066('     ',3,1,4,VAR162)
016450	162706	000024		SUB    	#000024, SP
016454	012700	023740		MOV    	#023740, R0
016460	010601			MOV    	SP, R1
016462	012702	000012		MOV    	#000012, R2
016466	012021			MOV    	(R0)+, (R1)+
016470	005302			DEC    	R2
016472	001375			BNE    	016466
016474	012746	000004		MOV    	#000004, -(SP)
016500	012746	000001		MOV    	#000001, -(SP)
016504	012746	000004		MOV    	#000004, -(SP)
016510	010500			MOV    	R5, R0
016512	062700	000162		ADD    	#000162, R0
016516	010046			MOV    	R0, -(SP)
016520	004767	176342		CALL   	015066			; L15066(' :',4,1,4,VAR162)
016524	162706	000024		SUB    	#000024, SP
016530	012700	023766		MOV    	#023766, R0
016534	010601			MOV    	SP, R1
016536	012702	000012		MOV    	#000012, R2
016542	012021			MOV    	(R0)+, (R1)+
016544	005302			DEC    	R2
016546	001375			BNE    	016542
016550	012746	000005		MOV    	#000005, -(SP)
016554	012746	000001		MOV    	#000001, -(SP)
016560	012746	000004		MOV    	#000004, -(SP)
016564	010500			MOV    	R5, R0
016566	062700	000162		ADD    	#000162, R0
016572	010046			MOV    	R0, -(SP)
016574	004767	176266		CALL   	015066			; L15066(' -        ',5,1,4,VAR162)
016600	162706	000024		SUB    	#000024, SP
016604	012700	024014		MOV    	#024014, R0
016610	010601			MOV    	SP, R1
016612	012702	000012		MOV    	#000012, R2
016616	012021			MOV    	(R0)+, (R1)+
016620	005302			DEC    	R2
016622	001375			BNE    	016616
016624	012746	000006		MOV    	#000006, -(SP)
016630	012746	000001		MOV    	#000001, -(SP)
016634	012746	000004		MOV    	#000004, -(SP)
016640	010500			MOV    	R5, R0
016642	062700	000162		ADD    	#000162, R0
016646	010046			MOV    	R0, -(SP)
016650	004767	176212		CALL   	015066			; L15066(' -           ',6,1,4,VAR162)
016654	162706	000024		SUB    	#000024, SP
016660	012700	024042		MOV    	#024042, R0
016664	010601			MOV    	SP, R1
016666	012702	000012		MOV    	#000012, R2
016672	012021			MOV    	(R0)+, (R1)+
016674	005302			DEC    	R2
016676	001375			BNE    	016672
016700	012746	000007		MOV    	#000007, -(SP)
016704	012746	000001		MOV    	#000001, -(SP)
016710	012746	000004		MOV    	#000004, -(SP)
016714	010500			MOV    	R5, R0
016716	062700	000162		ADD    	#000162, R0
016722	010046			MOV    	R0, -(SP)
016724	004767	176136		CALL   	015066			; L15066(' -           ',7,1,4,VAR162);
016730	162706	000024		SUB    	#000024, SP
016734	012700	024070		MOV    	#024070, R0
016740	010601			MOV    	SP, R1
016742	012702	000012		MOV    	#000012, R2
016746	012021			MOV    	(R0)+, (R1)+
016750	005302			DEC    	R2
016752	001375			BNE    	016746
016754	012746	000010		MOV    	#000010, -(SP)
016760	012746	000001		MOV    	#000001, -(SP)
016764	012746	000004		MOV    	#000004, -(SP)
016770	010500			MOV    	R5, R0
016772	062700	000162		ADD    	#000162, R0
016776	010046			MOV    	R0, -(SP)
017000	004767	176062		CALL   	015066			; L15066(' -       ',10,1,4,VAR162)
017004	162706	000024		SUB    	#000024, SP
017010	012700	024116		MOV    	#024116, R0
017014	010601			MOV    	SP, R1
017016	012702	000012		MOV    	#000012, R2
017022	012021			MOV    	(R0)+, (R1)+
017024	005302			DEC    	R2
017026	001375			BNE    	017022
017030	012746	000011		MOV    	#000011, -(SP)
017034	012746	000001		MOV    	#000001, -(SP)
017040	012746	000004		MOV    	#000004, -(SP)
017044	010500			MOV    	R5, R0
017046	062700	000162		ADD    	#000162, R0
017052	010046			MOV    	R0, -(SP)
017054	004767	176006		CALL   	015066			; L15066('           ',11,1,4,VAR162)
017060	162706	000024		SUB    	#000024, SP
017064	012700	024144		MOV    	#024144, R0
017070	010601			MOV    	SP, R1
017072	012702	000012		MOV    	#000012, R2
017076	012021			MOV    	(R0)+, (R1)+
017100	005302			DEC    	R2
017102	001375			BNE    	017076
017104	012746	000012		MOV    	#000012, -(SP)
017110	012746	000001		MOV    	#000001, -(SP)
017114	012746	000004		MOV    	#000004, -(SP)
017120	010500			MOV    	R5, R0
017122	062700	000162		ADD    	#000162, R0
017126	010046			MOV    	R0, -(SP)
017130	004767	175732		CALL   	015066			; L15066(' -       ',12,1,4,VAR162)
017134	162706	000024		SUB    	#000024, SP
017140	012700	024172		MOV    	#024172, R0
017144	010601			MOV    	SP, R1
017146	012702	000012		MOV    	#000012, R2
017152	012021			MOV    	(R0)+, (R1)+
017154	005302			DEC    	R2
017156	001375			BNE    	017152
017160	012746	000013		MOV    	#000013, -(SP)
017164	012746	000001		MOV    	#000001, -(SP)
017170	012746	000004		MOV    	#000004, -(SP)
017174	010500			MOV    	R5, R0
017176	062700	000162		ADD    	#000162, R0
017202	010046			MOV    	R0, -(SP)
017204	004767	175656		CALL   	015066			; L15066('           ',13,1,4,VAR162)
017210	162706	000024		SUB    	#000024, SP
017214	012700	024220		MOV    	#024220, R0
017220	010601			MOV    	SP, R1
017222	012702	000012		MOV    	#000012, R2
017226	012021			MOV    	(R0)+, (R1)+
017230	005302			DEC    	R2
017232	001375			BNE    	017226
017234	012746	000014		MOV    	#000014, -(SP)
017240	012746	000001		MOV    	#000001, -(SP)
017244	012746	000004		MOV    	#000004, -(SP)
017250	010500			MOV    	R5, R0
017252	062700	000162		ADD    	#000162, R0
017256	010046			MOV    	R0, -(SP)
017260	004767	175602		CALL   	015066			; L15066(' -      ',14,1,4,VAR162)
017264	162706	000024		SUB    	#000024, SP
017270	012700	024246		MOV    	#024246, R0
017274	010601			MOV    	SP, R1
017276	012702	000012		MOV    	#000012, R2
017302	012021			MOV    	(R0)+, (R1)+
017304	005302			DEC    	R2
017306	001375			BNE    	017302
017310	012746	000015		MOV    	#000015, -(SP)
017314	012746	000001		MOV    	#000001, -(SP)
017320	012746	000004		MOV    	#000004, -(SP)
017324	010500			MOV    	R5, R0
017326	062700	000162		ADD    	#000162, R0
017332	010046			MOV    	R0, -(SP)
017334	004767	175526		CALL   	015066			; L15066('              ',15,1,4,VAR162)
017340	162706	000024		SUB    	#000024, SP
017344	012700	024274		MOV    	#024274, R0
017350	010601			MOV    	SP, R1
017352	012702	000012		MOV    	#000012, R2
017356	012021			MOV    	(R0)+, (R1)+
017360	005302			DEC    	R2
017362	001375			BNE    	017356
017364	012746	000016		MOV    	#000016, -(SP)
017370	012746	000001		MOV    	#000001, -(SP)
017374	012746	000004		MOV    	#000004, -(SP)
017400	010500			MOV    	R5, R0
017402	062700	000162		ADD    	#000162, R0
017406	010046			MOV    	R0, -(SP)
017410	004767	175452		CALL   	015066			; L15066('                    ',16,1,4,VAR162)
017414	162706	000024		SUB    	#000024, SP
017420	012700	024322		MOV    	#024322, R0
017424	010601			MOV    	SP, R1
017426	012702	000012		MOV    	#000012, R2
017432	012021			MOV    	(R0)+, (R1)+
017434	005302			DEC    	R2
017436	001375			BNE    	017432
017440	012746	000001		MOV    	#000001, -(SP)
017444	012746	000002		MOV    	#000002, -(SP)
017450	012746	000006		MOV    	#000006, -(SP)
017454	010500			MOV    	R5, R0
017456	062700	000176		ADD    	#000176, R0
017462	010046			MOV    	R0, -(SP)
017464	004767	175376		CALL   	015066			; L15066(' : ',1,2,6,VAR176)
017470	162706	000024		SUB    	#000024, SP
017474	012700	024350		MOV    	#024350, R0
017500	010601			MOV    	SP, R1
017502	012702	000012		MOV    	#000012, R2
017506	012021			MOV    	(R0)+, (R1)+
017510	005302			DEC    	R2
017512	001375			BNE    	017506
017514	012746	000002		MOV    	#000002, -(SP)
017520	012746	000002		MOV    	#000002, -(SP)
017524	012746	000006		MOV    	#000006, -(SP)
017530	010500			MOV    	R5, R0
017532	062700	000176		ADD    	#000176, R0
017536	010046			MOV    	R0, -(SP)
017540	004767	175322		CALL   	015066			; L15066('  ',2,2,6,VAR176)
017544	162706	000024		SUB    	#000024, SP
017550	012700	024376		MOV    	#024376, R0
017554	010601			MOV    	SP, R1
017556	012702	000012		MOV    	#000012, R2
017562	012021			MOV    	(R0)+, (R1)+
017564	005302			DEC    	R2
017566	001375			BNE    	017562
017570	012746	000003		MOV    	#000003, -(SP)
017574	012746	000002		MOV    	#000002, -(SP)
017600	012746	000006		MOV    	#000006, -(SP)
017604	010500			MOV    	R5, R0
017606	062700	000176		ADD    	#000176, R0
017612	010046			MOV    	R0, -(SP)
017614	004767	175246		CALL   	015066			; L15066('   -    ',3,2,6,VAR176)
017620	162706	000024		SUB    	#000024, SP
017624	012700	024424		MOV    	#024424, R0
017630	010601			MOV    	SP, R1
017632	012702	000012		MOV    	#000012, R2
017636	012021			MOV    	(R0)+, (R1)+
017640	005302			DEC    	R2
017642	001375			BNE    	017636
017644	012746	000004		MOV    	#000004, -(SP)
017650	012746	000002		MOV    	#000002, -(SP)
017654	012746	000006		MOV    	#000006, -(SP)
017660	010500			MOV    	R5, R0
017662	062700	000176		ADD    	#000176, R0
017666	010046			MOV    	R0, -(SP)
017670	004767	175172		CALL   	015066			; L15066('       ',4,2,6,VAR176)
017674	162706	000024		SUB    	#000024, SP
017700	012700	024452		MOV    	#024452, R0
017704	010601			MOV    	SP, R1
017706	012702	000012		MOV    	#000012, R2
017712	012021			MOV    	(R0)+, (R1)+
017714	005302			DEC    	R2
017716	001375			BNE    	017712
017720	012746	000005		MOV    	#000005, -(SP)
017724	012746	000002		MOV    	#000002, -(SP)
017730	012746	000006		MOV    	#000006, -(SP)
017734	010500			MOV    	R5, R0
017736	062700	000176		ADD    	#000176, R0
017742	010046			MOV    	R0, -(SP)
017744	004767	175116		CALL   	015066			; L15066('  ',5,2,6,VAR176)
017750	162706	000024		SUB    	#000024, SP
017754	012700	024500		MOV    	#024500, R0
017760	010601			MOV    	SP, R1
017762	012702	000012		MOV    	#000012, R2
017766	012021			MOV    	(R0)+, (R1)+
017770	005302			DEC    	R2
017772	001375			BNE    	017766
017774	012746	000006		MOV    	#000006, -(SP)
020000	012746	000002		MOV    	#000002, -(SP)
020004	012746	000006		MOV    	#000006, -(SP)
020010	010500			MOV    	R5, R0
020012	062700	000176		ADD    	#000176, R0
020016	010046			MOV    	R0, -(SP)
020020	004767	175042		CALL   	015066			; L15066('  832       2      ',6,2,6,VAR176)
020024	162706	000024		SUB    	#000024, SP
020030	012700	024526		MOV    	#024526, R0
020034	010601			MOV    	SP, R1
020036	012702	000012		MOV    	#000012, R2
020042	012021			MOV    	(R0)+, (R1)+
020044	005302			DEC    	R2
020046	001375			BNE    	020042
020050	012746	000007		MOV    	#000007, -(SP)
020054	012746	000002		MOV    	#000002, -(SP)
020060	012746	000006		MOV    	#000006, -(SP)
020064	010500			MOV    	R5, R0
020066	062700	000176		ADD    	#000176, R0
020072	010046			MOV    	R0, -(SP)
020074	004767	174766		CALL   	015066			; L15066('  832       4      ',7,2,6,VAR176)
020100	162706	000024		SUB    	#000024, SP
020104	012700	024554		MOV    	#024554, R0
020110	010601			MOV    	SP, R1
020112	012702	000012		MOV    	#000012, R2
020116	012021			MOV    	(R0)+, (R1)+
020120	005302			DEC    	R2
020122	001375			BNE    	020116
020124	012746	000010		MOV    	#000010, -(SP)
020130	012746	000002		MOV    	#000002, -(SP)
020134	012746	000006		MOV    	#000006, -(SP)
020140	010500			MOV    	R5, R0
020142	062700	000176		ADD    	#000176, R0
020146	010046			MOV    	R0, -(SP)
020150	004767	174712		CALL   	015066			; L15066('  416      16      ',10,2,6,VAR176)
020154	162706	000024		SUB    	#000024, SP
020160	012700	024602		MOV    	#024602, R0
020164	010601			MOV    	SP, R1
020166	012702	000012		MOV    	#000012, R2
020172	012021			MOV    	(R0)+, (R1)+
020174	005302			DEC    	R2
020176	001375			BNE    	020172
020200	012746	000011		MOV    	#000011, -(SP)
020204	012746	000002		MOV    	#000002, -(SP)
020210	012746	000006		MOV    	#000006, -(SP)
020214	010500			MOV    	R5, R0
020216	062700	000176		ADD    	#000176, R0
020222	010046			MOV    	R0, -(SP)
020224	004767	174636		CALL   	015066			; L15066('  208     256      ',11,2,6,VAR176)
020230	162706	000024		SUB    	#000024, SP
020234	012700	024630		MOV    	#024630, R0
020240	010601			MOV    	SP, R1
020242	012702	000012		MOV    	#000012, R2
020246	012021			MOV    	(R0)+, (R1)+
020250	005302			DEC    	R2
020252	001375			BNE    	020246
020254	012746	000012		MOV    	#000012, -(SP)
020260	012746	000002		MOV    	#000002, -(SP)
020264	012746	000006		MOV    	#000006, -(SP)
020270	010500			MOV    	R5, R0
020272	062700	000176		ADD    	#000176, R0
020276	010046			MOV    	R0, -(SP)
020300	004767	174562		CALL   	015066			; L15066('                    ',12,2,6,VAR176)
020304	162706	000024		SUB    	#000024, SP
020310	012700	024656		MOV    	#024656, R0
020314	010601			MOV    	SP, R1
020316	012702	000012		MOV    	#000012, R2
020322	012021			MOV    	(R0)+, (R1)+
020324	005302			DEC    	R2
020326	001375			BNE    	020322
020330	012746	000013		MOV    	#000013, -(SP)
020334	012746	000002		MOV    	#000002, -(SP)
020340	012746	000006		MOV    	#000006, -(SP)
020344	010500			MOV    	R5, R0
020346	062700	000176		ADD    	#000176, R0
020352	010046			MOV    	R0, -(SP)
020354	004767	174506		CALL   	015066			; L15066('      3 0 0         ',13,2,6,VAR176)
020360	162706	000024		SUB    	#000024, SP
020364	012700	024704		MOV    	#024704, R0
020370	010601			MOV    	SP, R1
020372	012702	000012		MOV    	#000012, R2
020376	012021			MOV    	(R0)+, (R1)+
020400	005302			DEC    	R2
020402	001375			BNE    	020376
020404	012746	000014		MOV    	#000014, -(SP)
020410	012746	000002		MOV    	#000002, -(SP)
020414	012746	000006		MOV    	#000006, -(SP)
020420	010500			MOV    	R5, R0
020422	062700	000176		ADD    	#000176, R0
020426	010046			MOV    	R0, -(SP)
020430	004767	174432		CALL   	015066			; L15066('       ',14,2,6,VAR176)
020434	162706	000024		SUB    	#000024, SP
020440	012700	024732		MOV    	#024732, R0
020444	010601			MOV    	SP, R1
020446	012702	000012		MOV    	#000012, R2
020452	012021			MOV    	(R0)+, (R1)+
020454	005302			DEC    	R2
020456	001375			BNE    	020452
020460	012746	000015		MOV    	#000015, -(SP)
020464	012746	000002		MOV    	#000002, -(SP)
020470	012746	000006		MOV    	#000006, -(SP)
020474	010500			MOV    	R5, R0
020476	062700	000176		ADD    	#000176, R0
020502	010046			MOV    	R0, -(SP)
020504	004767	174356		CALL   	015066			; L15066('                    ',15,2,6,VAR176)
020510	162706	000024		SUB    	#000024, SP
020514	012700	024760		MOV    	#024760, R0
020520	010601			MOV    	SP, R1
020522	012702	000012		MOV    	#000012, R2
020526	012021			MOV    	(R0)+, (R1)+
020530	005302			DEC    	R2
020532	001375			BNE    	020526
020534	012746	000016		MOV    	#000016, -(SP)
020540	012746	000002		MOV    	#000002, -(SP)
020544	012746	000006		MOV    	#000006, -(SP)
020550	010500			MOV    	R5, R0
020552	062700	000176		ADD    	#000176, R0
020556	010046			MOV    	R0, -(SP)
020560	004767	174302		CALL   	015066			; L15066('                    '16,2,6,VAR176)
020564	162706	000024		SUB    	#000024, SP
020570	012700	025006		MOV    	#025006, R0
020574	010601			MOV    	SP, R1
020576	012702	000012		MOV    	#000012, R2
020602	012021			MOV    	(R0)+, (R1)+
020604	005302			DEC    	R2
020606	001375			BNE    	020602
020610	012746	000001		MOV    	#000001, -(SP)
020614	012746	000006		MOV    	#000006, -(SP)
020620	012746	000014		MOV    	#000014, -(SP)
020624	010500			MOV    	R5, R0
020626	062700	000212		ADD    	#000212, R0
020632	010046			MOV    	R0, -(SP)
020634	004767	174226		CALL   	015066			; L15066(' -   ',1,6,14,VAR212)
020640	162706	000024		SUB    	#000024, SP
020644	012700	025034		MOV    	#025034, R0
020650	010601			MOV    	SP, R1
020652	012702	000012		MOV    	#000012, R2
020656	012021			MOV    	(R0)+, (R1)+
020660	005302			DEC    	R2
020662	001375			BNE    	020656
020664	012746	000002		MOV    	#000002, -(SP)
020670	012746	000006		MOV    	#000006, -(SP)
020674	012746	000014		MOV    	#000014, -(SP)
020700	010500			MOV    	R5, R0
020702	062700	000212		ADD    	#000212, R0
020706	010046			MOV    	R0, -(SP)
020710	004767	174152		CALL   	015066			; L15066('       ',2,6,14,VAR212)
020714	162706	000024		SUB    	#000024, SP
020720	012700	025062		MOV    	#025062, R0
020724	010601			MOV    	SP, R1
020726	012702	000012		MOV    	#000012, R2
020732	012021			MOV    	(R0)+, (R1)+
020734	005302			DEC    	R2
020736	001375			BNE    	020732
020740	012746	000003		MOV    	#000003, -(SP)
020744	012746	000006		MOV    	#000006, -(SP)
020750	012746	000014		MOV    	#000014, -(SP)
020754	010500			MOV    	R5, R0
020756	062700	000212		ADD    	#000212, R0
020762	010046			MOV    	R0, -(SP)
020764	004767	174076		CALL   	015066			; L15066(':          ',3,6,14,VAR212)
020770	162706	000024		SUB    	#000024, SP
020774	012700	025110		MOV    	#025110, R0
021000	010601			MOV    	SP, R1
021002	012702	000012		MOV    	#000012, R2
021006	012021			MOV    	(R0)+, (R1)+
021010	005302			DEC    	R2
021012	001375			BNE    	021006
021014	012746	000004		MOV    	#000004, -(SP)
021020	012746	000006		MOV    	#000006, -(SP)
021024	012746	000014		MOV    	#000014, -(SP)
021030	010500			MOV    	R5, R0
021032	062700	000212		ADD    	#000212, R0
021036	010046			MOV    	R0, -(SP)
021040	004767	174022		CALL   	015066			; L15066('    1 : 1           ',4,6,14,VAR212)
021044	162706	000024		SUB    	#000024, SP
021050	012700	025136		MOV    	#025136, R0
021054	010601			MOV    	SP, R1
021056	012702	000012		MOV    	#000012, R2
021062	012021			MOV    	(R0)+, (R1)+
021064	005302			DEC    	R2
021066	001375			BNE    	021062
021070	012746	000005		MOV    	#000005, -(SP)
021074	012746	000006		MOV    	#000006, -(SP)
021100	012746	000014		MOV    	#000014, -(SP)
021104	010500			MOV    	R5, R0
021106	062700	000212		ADD    	#000212, R0
021112	010046			MOV    	R0, -(SP)
021114	004767	173746		CALL   	015066			; L15066('    1 : 2           ',5,6,14,VAR212)
021120	162706	000024		SUB    	#000024, SP
021124	012700	025164		MOV    	#025164, R0
021130	010601			MOV    	SP, R1
021132	012702	000012		MOV    	#000012, R2
021136	012021			MOV    	(R0)+, (R1)+
021140	005302			DEC    	R2
021142	001375			BNE    	021136
021144	012746	000006		MOV    	#000006, -(SP)
021150	012746	000006		MOV    	#000006, -(SP)
021154	012746	000014		MOV    	#000014, -(SP)
021160	010500			MOV    	R5, R0
021162	062700	000212		ADD    	#000212, R0
021166	010046			MOV    	R0, -(SP)
021170	004767	173672		CALL   	015066			; L15066('    1 : 4           ',6,6,14,VAR212)
021174	162706	000024		SUB    	#000024, SP
021200	012700	025212		MOV    	#025212, R0
021204	010601			MOV    	SP, R1
021206	012702	000012		MOV    	#000012, R2
021212	012021			MOV    	(R0)+, (R1)+
021214	005302			DEC    	R2
021216	001375			BNE    	021212
021220	012746	000007		MOV    	#000007, -(SP)
021224	012746	000006		MOV    	#000006, -(SP)
021230	012746	000014		MOV    	#000014, -(SP)
021234	010500			MOV    	R5, R0
021236	062700	000212		ADD    	#000212, R0
021242	010046			MOV    	R0, -(SP)
021244	004767	173616		CALL   	015066			; L15066(' :      ',7,6,14,VAR212)
021250	162706	000024		SUB    	#000024, SP
021254	012700	025240		MOV    	#025240, R0
021260	010601			MOV    	SP, R1
021262	012702	000012		MOV    	#000012, R2
021266	012021			MOV    	(R0)+, (R1)+
021270	005302			DEC    	R2
021272	001375			BNE    	021266
021274	012746	000010		MOV    	#000010, -(SP)
021300	012746	000006		MOV    	#000006, -(SP)
021304	012746	000014		MOV    	#000014, -(SP)
021310	010500			MOV    	R5, R0
021312	062700	000212		ADD    	#000212, R0
021316	010046			MOV    	R0, -(SP)
021320	004767	173542		CALL   	015066			; L15066('    1 : 1           ',10,6,14,VAR212)
021324	162706	000024		SUB    	#000024, SP
021330	012700	025266		MOV    	#025266, R0
021334	010601			MOV    	SP, R1
021336	012702	000012		MOV    	#000012, R2
021342	012021			MOV    	(R0)+, (R1)+
021344	005302			DEC    	R2
021346	001375			BNE    	021342
021350	012746	000011		MOV    	#000011, -(SP)
021354	012746	000006		MOV    	#000006, -(SP)
021360	012746	000014		MOV    	#000014, -(SP)
021364	010500			MOV    	R5, R0
021366	062700	000212		ADD    	#000212, R0
021372	010046			MOV    	R0, -(SP)
021374	004767	173466		CALL   	015066			; L15066('    1 : 2           ',11,6,14,VAR212)
021400	162706	000024		SUB    	#000024, SP
021404	012700	025314		MOV    	#025314, R0
021410	010601			MOV    	SP, R1
021412	012702	000012		MOV    	#000012, R2
021416	012021			MOV    	(R0)+, (R1)+
021420	005302			DEC    	R2
021422	001375			BNE    	021416
021424	012746	000012		MOV    	#000012, -(SP)
021430	012746	000006		MOV    	#000006, -(SP)
021434	012746	000014		MOV    	#000014, -(SP)
021440	010500			MOV    	R5, R0
021442	062700	000212		ADD    	#000212, R0
021446	010046			MOV    	R0, -(SP)
021450	004767	173412		CALL   	015066			; L15066('    1 : 4           ',12,6,14,VAR212)
021454	162706	000024		SUB    	#000024, SP
021460	012700	025342		MOV    	#025342, R0
021464	010601			MOV    	SP, R1
021466	012702	000012		MOV    	#000012, R2
021472	012021			MOV    	(R0)+, (R1)+
021474	005302			DEC    	R2
021476	001375			BNE    	021472
021500	012746	000013		MOV    	#000013, -(SP)
021504	012746	000006		MOV    	#000006, -(SP)
021510	012746	000014		MOV    	#000014, -(SP)
021514	010500			MOV    	R5, R0
021516	062700	000212		ADD    	#000212, R0
021522	010046			MOV    	R0, -(SP)
021524	004767	173336		CALL   	015066			; L15066('                    ',13,6,14,VAR212)
021530	162706	000024		SUB    	#000024, SP
021534	012700	025370		MOV    	#025370, R0
021540	010601			MOV    	SP, R1
021542	012702	000012		MOV    	#000012, R2
021546	012021			MOV    	(R0)+, (R1)+
021550	005302			DEC    	R2
021552	001375			BNE    	021546
021554	012746	000014		MOV    	#000014, -(SP)
021560	012746	000006		MOV    	#000006, -(SP)
021564	012746	000014		MOV    	#000014, -(SP)
021570	010500			MOV    	R5, R0
021572	062700	000212		ADD    	#000212, R0
021576	010046			MOV    	R0, -(SP)
021600	004767	173262		CALL   	015066			; L15066('                    ',14,6,14,VAR212)
021604	162706	000024		SUB    	#000024, SP
021610	012700	025416		MOV    	#025416, R0
021614	010601			MOV    	SP, R1
021616	012702	000012		MOV    	#000012, R2
021622	012021			MOV    	(R0)+, (R1)+
021624	005302			DEC    	R2
021626	001375			BNE    	021622
021630	012746	000001		MOV    	#000001, -(SP)
021634	012746	000012		MOV    	#000012, -(SP)
021640	012746	000003		MOV    	#000003, -(SP)
021644	010500			MOV    	R5, R0
021646	062700	000226		ADD    	#000226, R0
021652	010046			MOV    	R0, -(SP)
021654	004767	173206		CALL   	015066			; L15066('  ',1,12,3,VAR226)
021660	162706	000024		SUB    	#000024, SP
021664	012700	025444		MOV    	#025444, R0
021670	010601			MOV    	SP, R1
021672	012702	000012		MOV    	#000012, R2
021676	012021			MOV    	(R0)+, (R1)+
021700	005302			DEC    	R2
021702	001375			BNE    	021676
021704	012746	000002		MOV    	#000002, -(SP)
021710	012746	000012		MOV    	#000012, -(SP)
021714	012746	000003		MOV    	#000003, -(SP)
021720	010500			MOV    	R5, R0
021722	062700	000226		ADD    	#000226, R0
021726	010046			MOV    	R0, -(SP)
021730	004767	173132		CALL   	015066			; L15066('        ',2,12,3,VAR226)
021734	162706	000024		SUB    	#000024, SP
021740	012700	025472		MOV    	#025472, R0
021744	010601			MOV    	SP, R1
021746	012702	000012		MOV    	#000012, R2
021752	012021			MOV    	(R0)+, (R1)+
021754	005302			DEC    	R2
021756	001375			BNE    	021752
021760	012746	000003		MOV    	#000003, -(SP)
021764	012746	000012		MOV    	#000012, -(SP)
021770	012746	000003		MOV    	#000003, -(SP)
021774	010500			MOV    	R5, R0
021776	062700	000226		ADD    	#000226, R0
022002	010046			MOV    	R0, -(SP)
022004	004767	173056		CALL   	015066			; L15066('     -  ',3,12,3,VAR226)
022010	162706	000024		SUB    	#000024, SP
022014	012700	025520		MOV    	#025520, R0
022020	010601			MOV    	SP, R1
022022	012702	000012		MOV    	#000012, R2
022026	012021			MOV    	(R0)+, (R1)+
022030	005302			DEC    	R2
022032	001375			BNE    	022026
022034	012746	000004		MOV    	#000004, -(SP)
022040	012746	000012		MOV    	#000012, -(SP)
022044	012746	000003		MOV    	#000003, -(SP)
022050	010500			MOV    	R5, R0
022052	062700	000226		ADD    	#000226, R0
022056	010046			MOV    	R0, -(SP)
022060	004767	173002		CALL   	015066			; L15066(' ',4,12,3,VAR226)
022064	162706	000024		SUB    	#000024, SP
022070	012700	025546		MOV    	#025546, R0
022074	010601			MOV    	SP, R1
022076	012702	000012		MOV    	#000012, R2
022102	012021			MOV    	(R0)+, (R1)+
022104	005302			DEC    	R2
022106	001375			BNE    	022102
022110	012746	000005		MOV    	#000005, -(SP)
022114	012746	000012		MOV    	#000012, -(SP)
022120	012746	000003		MOV    	#000003, -(SP)
022124	010500			MOV    	R5, R0
022126	062700	000226		ADD    	#000226, R0
022132	010046			MOV    	R0, -(SP)
022134	004767	172726		CALL   	015066			; L15066('      -  ',5,12,3,VAR226)
022140	162706	000024		SUB    	#000024, SP
022144	012700	025574		MOV    	#025574, R0
022150	010601			MOV    	SP, R1
022152	012702	000012		MOV    	#000012, R2
022156	012021			MOV    	(R0)+, (R1)+
022160	005302			DEC    	R2
022162	001375			BNE    	022156
022164	012746	000006		MOV    	#000006, -(SP)
022170	012746	000012		MOV    	#000012, -(SP)
022174	012746	000003		MOV    	#000003, -(SP)
022200	010500			MOV    	R5, R0
022202	062700	000226		ADD    	#000226, R0
022206	010046			MOV    	R0, -(SP)
022210	004767	172652		CALL   	015066			; L15066('/    ',6,12,3,VAR226)
022214	162706	000024		SUB    	#000024, SP
022220	012700	025622		MOV    	#025622, R0
022224	010601			MOV    	SP, R1
022226	012702	000012		MOV    	#000012, R2
022232	012021			MOV    	(R0)+, (R1)+
022234	005302			DEC    	R2
022236	001375			BNE    	022232
022240	012746	000007		MOV    	#000007, -(SP)
022244	012746	000012		MOV    	#000012, -(SP)
022250	012746	000003		MOV    	#000003, -(SP)
022254	010500			MOV    	R5, R0
022256	062700	000226		ADD    	#000226, R0
022262	010046			MOV    	R0, -(SP)
022264	004767	172576		CALL   	015066			; L15066(' ',7,12,3,VAR226)
022270	162706	000024		SUB    	#000024, SP
022274	012700	025650		MOV    	#025650, R0
022300	010601			MOV    	SP, R1
022302	012702	000012		MOV    	#000012, R2
022306	012021			MOV    	(R0)+, (R1)+
022310	005302			DEC    	R2
022312	001375			BNE    	022306
022314	012746	000010		MOV    	#000010, -(SP)
022320	012746	000012		MOV    	#000012, -(SP)
022324	012746	000003		MOV    	#000003, -(SP)
022330	010500			MOV    	R5, R0
022332	062700	000226		ADD    	#000226, R0
022336	010046			MOV    	R0, -(SP)
022340	004767	172522		CALL   	015066			; L15066('    1        8     ',10,12,3,VAR226)
022344	162706	000024		SUB    	#000024, SP
022350	012700	025676		MOV    	#025676, R0
022354	010601			MOV    	SP, R1
022356	012702	000012		MOV    	#000012, R2
022362	012021			MOV    	(R0)+, (R1)+
022364	005302			DEC    	R2
022366	001375			BNE    	022362
022370	012746	000011		MOV    	#000011, -(SP)
022374	012746	000012		MOV    	#000012, -(SP)
022400	012746	000003		MOV    	#000003, -(SP)
022404	010500			MOV    	R5, R0
022406	062700	000226		ADD    	#000226, R0
022412	010046			MOV    	R0, -(SP)
022414	004767	172446		CALL   	015066			; L15066('    2        8     ',11,12,3,VAR226)
022420	162706	000024		SUB    	#000024, SP
022424	012700	025724		MOV    	#025724, R0
022430	010601			MOV    	SP, R1
022432	012702	000012		MOV    	#000012, R2
022436	012021			MOV    	(R0)+, (R1)+
022440	005302			DEC    	R2
022442	001375			BNE    	022436
022444	012746	000012		MOV    	#000012, -(SP)
022450	012746	000012		MOV    	#000012, -(SP)
022454	012746	000003		MOV    	#000003, -(SP)
022460	010500			MOV    	R5, R0
022462	062700	000226		ADD    	#000226, R0
022466	010046			MOV    	R0, -(SP)
022470	004767	172372		CALL   	015066			; L15066('    4       12     ',12,12,3,VAR226)
022474	162706	000024		SUB    	#000024, SP
022500	012700	025752		MOV    	#025752, R0
022504	010601			MOV    	SP, R1
022506	012702	000012		MOV    	#000012, R2
022512	012021			MOV    	(R0)+, (R1)+
022514	005302			DEC    	R2
022516	001375			BNE    	022512
022520	012746	000013		MOV    	#000013, -(SP)
022524	012746	000012		MOV    	#000012, -(SP)
022530	012746	000003		MOV    	#000003, -(SP)
022534	010500			MOV    	R5, R0
022536	062700	000226		ADD    	#000226, R0
022542	010046			MOV    	R0, -(SP)
022544	004767	172316		CALL   	015066			; L15066('    8        2     ',13,12,3,VAR226)
022550	162706	000024		SUB    	#000024, SP
022554	012700	026000		MOV    	#026000, R0
022560	010601			MOV    	SP, R1
022562	012702	000012		MOV    	#000012, R2
022566	012021			MOV    	(R0)+, (R1)+
022570	005302			DEC    	R2
022572	001375			BNE    	022566
022574	012746	000014		MOV    	#000014, -(SP)
022600	012746	000012		MOV    	#000012, -(SP)
022604	012746	000003		MOV    	#000003, -(SP)
022610	010500			MOV    	R5, R0
022612	062700	000226		ADD    	#000226, R0
022616	010046			MOV    	R0, -(SP)
022620	004767	172242		CALL   	015066			; L15066('                    ',14,12,3,VAR226)
022624	162706	000024		SUB    	#000024, SP
022630	012700	026026		MOV    	#026026, R0
022634	010601			MOV    	SP, R1
022636	012702	000012		MOV    	#000012, R2
022642	012021			MOV    	(R0)+, (R1)+
022644	005302			DEC    	R2
022646	001375			BNE    	022642
022650	012746	000014		MOV    	#000014, -(SP)
022654	012746	000012		MOV    	#000012, -(SP)
022660	012746	000003		MOV    	#000003, -(SP)
022664	010500			MOV    	R5, R0
022666	062700	000226		ADD    	#000226, R0
022672	010046			MOV    	R0, -(SP)
022674	004767	172166		CALL   	015066			; L15066(' :',14,12,3,VAR226)
022700	162706	000024		SUB    	#000024, SP
022704	012700	026054		MOV    	#026054, R0
022710	010601			MOV    	SP, R1
022712	012702	000012		MOV    	#000012, R2
022716	012021			MOV    	(R0)+, (R1)+
022720	005302			DEC    	R2
022722	001375			BNE    	022716
022724	012746	000014		MOV    	#000014, -(SP)
022730	012746	000012		MOV    	#000012, -(SP)
022734	012746	000003		MOV    	#000003, -(SP)
022740	010500			MOV    	R5, R0
022742	062700	000226		ADD    	#000226, R0
022746	010046			MOV    	R0, -(SP)
022750	004767	172112		CALL   	015066			; L15066('      6 5 5 3 5     ',14,12,3,VAR226)
022754	162706	000024		SUB    	#000024, SP
022760	012700	026102		MOV    	#026102, R0
022764	010601			MOV    	SP, R1
022766	012702	000012		MOV    	#000012, R2
022772	012021			MOV    	(R0)+, (R1)+
022774	005302			DEC    	R2
022776	001375			BNE    	022772
023000	012746	000014		MOV    	#000014, -(SP)
023004	012746	000012		MOV    	#000012, -(SP)
023010	012746	000003		MOV    	#000003, -(SP)
023014	010500			MOV    	R5, R0
023016	062700	000226		ADD    	#000226, R0
023022	010046			MOV    	R0, -(SP)
023024	004767	172036		CALL   	015066			; L15066('                    ',14,12,3,VAR226)
023030	016565	000162	000426	MOV    	000162(R5), 000426(R5)	; VAR422.AREA:=VAR162.ANUM
023036	010604			MOV    	SP, R4
023040	010500			MOV    	R5, R0
023042	062700	000422		ADD    	#000422, R0
023046	010046			MOV    	R0, -(SP)
023050	004767	172352		CALL   	015426			; L15426(VAR422)
023054	012746	000006		MOV    	#000006, -(SP)
023060	004767	157374		CALL   	002460			; L02460(6)
023064	016565	000176	000452	MOV    	000176(R5), 000452(R5)	; VAR446.AREA:=VAR176.ANUM
023072	010604			MOV    	SP, R4
023074	010500			MOV    	R5, R0
023076	062700	000446		ADD    	#000446, R0
023102	010046			MOV    	R0, -(SP)
023104	004767	172316		CALL   	015426			; L15426(VAR446)
023110	012746	000006		MOV    	#000006, -(SP)
023114	004767	157340		CALL   	002460			; L02460(6)
023120	016565	000212	000476	MOV    	000212(R5), 000476(R5)	; VAR472.AREA:=VAR212.ANUM
023126	010604			MOV    	SP, R4
023130	010500			MOV    	R5, R0
023132	062700	000472		ADD    	#000472, R0
023136	010046			MOV    	R0, -(SP)
023140	004767	172262		CALL   	015426			; L15426(VAR472)
023144	012746	000006		MOV    	#000006, -(SP)
023150	004767	157304		CALL   	002460			; L02460(6)
023154	016565	000226	000522	MOV    	000226(R5), 000522(R5)	; VAR516.AREA:=VAR226.ANUM
023162	010604			MOV    	SP, R4
023164	010500			MOV    	R5, R0
023166	062700	000516		ADD    	#000516, R0
023172	010046			MOV    	R0, -(SP)
023174	004767	172226		CALL   	015426			; L15426(VAR516)
023200	012746	000006		MOV    	#000006, -(SP)
023204	004767	157250		CALL   	002460			; L02460(6)
023210	010600			MOV    	SP, R0
023212	010046			MOV    	R0, -(SP)		; FOR @SP:=1 TO 7
023214	012746	000001		MOV    	#000001, -(SP)
023220	012746	000007		MOV    	#000007, -(SP)
023224	016676	000002	000004	MOV    	000002(SP), @000004(SP)
023232	027616	000004		CMP    	@000004(SP), (SP)
023236	003402			BLE    	023244
023240	000167	000260		JMP    	023524
023244	010503			MOV    	R5, R3
023246	062703	000422		ADD    	#000422, R3		; WITH VAR422
023252	062763	177764	000012	ADD    	#177764, 000012(R3)	; (VAR422).SY1:=(VAR422).SY1-14
023260	062763	177764	000014	ADD    	#177764, 000014(R3)	; (VAR422).SY2:=(VAR422).SY2-14
023266	005363	000016		DEC    	000016(R3)		; (VAR422).SX1:=(VAR422).SX1-1
023272	005363	000020		DEC    	000020(R3)		; (VAR422).SX2:=(VAR422).SX2-1
023276	010503			MOV    	R5, R3
023300	062703	000446		ADD    	#000446, R3		; WITH VAR446
023304	062763	177764	000012	ADD    	#177764, 000012(R3)	; (VAR446).SY1:=(VAR446).SY1-14
023312	062763	177764	000014	ADD    	#177764, 000014(R3)	; (VAR446).SY2:=(VAR446).SY2-14
023320	005263	000016		INC    	000016(R3)		; (VAR446).SX1:=(VAR446).SX1+1
023324	005263	000020		INC    	000020(R3)		; (VAR446).SX2:=(VAR446).SX2+1
023330	010503			MOV    	R5, R3
023332	062703	000472		ADD    	#000472, R3		; WITH VAR472
023336	062763	000014	000012	ADD    	#000014, 000012(R3)	; (VAR472).SY1:=(VAR472).SY1+14
023344	062763	000014	000014	ADD    	#000014, 000014(R3)	; (VAR472).SY2:=(VAR472).SY2+14
023352	005363	000016		DEC    	000016(R3)		; (VAR472).SX1:=(VAR472).SX1-1
023356	005363	000020		DEC    	000020(R3)		; (VAR472).SX2:=(VAR472).SX2-1
023362	010503			MOV    	R5, R3
023364	062703	000516		ADD    	#000516, R3		; WITH VAR516
023370	062763	000014	000012	ADD    	#000014, 000012(R3)	; (VAR516).SY1:=(VAR516).SY1+14
023376	062763	000014	000014	ADD    	#000014, 000014(R3)	; (VAR516).SY2:=(VAR516).SY2+14
023404	005263	000016		INC    	000016(R3)		; (VAR516).SX1:=(VAR516).SX1+1
023410	005263	000020		INC    	000020(R3)		; (VAR516).SX2:=(VAR516).SX2+1
023414	016600	000006		MOV    	000006(SP), R0
023420	042700	177776		BIC    	#177776, R0		; IF (@SP MOD 1)<>0
023424	001002			BNE    	023432
023426	000167	000060		JMP    	023512
023432	010500			MOV    	R5, R0			; THEN
023434	062700	000422		ADD    	#000422, R0
023440	010046			MOV    	R0, -(SP)
023442	004767	155612		CALL   	001260			; VWCRE(VAR422)
023446	010500			MOV    	R5, R0
023450	062700	000446		ADD    	#000446, R0
023454	010046			MOV    	R0, -(SP)
023456	004767	155576		CALL   	001260			; VWCRE(VAR446)
023462	010500			MOV    	R5, R0
023464	062700	000472		ADD    	#000472, R0
023470	010046			MOV    	R0, -(SP)
023472	004767	155562		CALL   	001260			; VWCRE(VAR472)
023476	010500			MOV    	R5, R0
023500	062700	000516		ADD    	#000516, R0
023504	010046			MOV    	R0, -(SP)
023506	004767	155546		CALL   	001260			; VWCRE(VAR516) ; END IF
023512	005276	000004		INC    	@000004(SP)		; NEXT @SP
023516	102402			BVS    	023524
023520	000167	177506		JMP    	023232
023524	062706	000006		ADD    	#000006, SP		; END FOR @SP
023530	012746	000005		MOV    	#000005, -(SP)
023534	004767	156720		CALL   	002460			; L02460(5)
023540	010500			MOV    	R5, R0
023542	062700	000422		ADD    	#000422, R0
023546	010046			MOV    	R0, -(SP)
023550	004767	155510		CALL   	001264			; VWKILL(VAR422)
023554	010500			MOV    	R5, R0
023556	062700	000446		ADD    	#000446, R0
023562	010046			MOV    	R0, -(SP)
023564	004767	155474		CALL   	001264			; VWKILL(VAR446)
023570	010500			MOV    	R5, R0
023572	062700	000472		ADD    	#000472, R0
023576	010046			MOV    	R0, -(SP)
023600	004767	155460		CALL   	001264			; VWKILL(VAR472)
023604	010500			MOV    	R5, R0
023606	062700	000516		ADD    	#000516, R0
023612	010046			MOV    	R0, -(SP)
023614	004767	155444		CALL   	001264			; VWKILL(VAR516)
023620	012746	000001		MOV    	#000001, -(SP)
023624	004767	156630		CALL   	002460			; L02460(1)
023630	062706	000054		ADD    	#000054, SP
023634	000207			RETURN 	
-------------------------------------------------------------
023636	160662	020325	155336	.ASCIZ	/   /
	150335	156440	153725	.EVEN
	151320	160730	156330
	020353	000000

023664	020040	020040	020040	.ASCIZ	/                    /
	020040	020040	020040	.EVEN
	020040	020040	020040
	020040	000000

023712	150272	152326	152736	.ASCIZ	/     /
	157040	156732	020336	.EVEN
	156330	152725	020342
	020040	000000

023740	155741	152325	167343	.ASCIZ	/ :/
	154351	020325	150337	.EVEN
	150340	152734	160342
	035353	000000

023766	026440	151040	152330	.ASCIZ	/ -        /
	157325	152740	154326	.EVEN
	020334	020040	020040
	020040	000000

024014	026440	157440	155720	.ASCIZ	/ -           /
	161330	161740	020040	.EVEN
	020040	020040	020040
	020040	000000

024042	026440	156040	160720	.ASCIZ	/ -           /
	161350	150720	020040	.EVEN
	020040	020040	020040
	020040	000000

024070	026440	151440	150340	.ASCIZ	/ -       /
	154344	152747	155341	.EVEN
	167343	020040	020040
	020040	000000

024116	020040	020040	020040	.ASCIZ	/           /
	020040	157440	157333	.EVEN
	155341	160736	166342
	020040	000000

024144	026440	157440	155736	.ASCIZ	/ -       /
	153336	156725	152730	.EVEN
	156440	020320	020040
	020040	000000

024172	020040	020040	020040	.ASCIZ	/           /
	020040	157440	157333	.EVEN
	155341	160736	154342
	020040	000000

024220	026440	160040	153720	.ASCIZ	/ -      /
	152734	152751	154335	.EVEN
	020325	150335	020040
	020040	000000

024246	020040	020040	020040	.ASCIZ	/              /
	020040	166440	160332	.EVEN
	156720	020325	020040
	020040	000000

024274	020040	020040	020040	.ASCIZ	/                    /
	020040	020040	020040	.EVEN
	020040	020040	020040
	020040	000000

024322	152707	165742	152740	.ASCIZ	/ : /
	151040	152330	157325	.EVEN
	152740	154326	150334
	020072	000000

024350	122244	122244	122244	.ASCIZ	/  /
	122244	122246	122244	.EVEN
	122244	122244	122244
	020040	000000

024376	157342	152747	020332	.ASCIZ	/   -    /
	020322	020245	157332	.EVEN
	026733	157322	020040
	020040	000000

024424	161341	157340	152732	.ASCIZ	/       /
	020040	020245	151346	.EVEN
	161325	151336	020040
	020040	000000

024452	122244	122244	122244	.ASCIZ	/  /
	122244	122252	122244	.EVEN
	122244	122244	122244
	020040	000000

024500	020040	031470	020062	.ASCIZ	/  832       2      /
	020040	020245	020040	.EVEN
	031040	020040	020040
	020040	000000

024526	020040	031470	020062	.ASCIZ	/  832       4      /
	020040	020245	020040	.EVEN
	032040	020040	020040
	020040	000000

024554	020040	030464	020066	.ASCIZ	/  416      16      /
	020040	020245	020040	.EVEN
	033061	020040	020040
	020040	000000

024602	020040	030062	020070	.ASCIZ	/  208     256      /
	020040	020245	031040	.EVEN
	033065	020040	020040
	020040	000000

024630	020040	020040	020040	.ASCIZ	/                    /
	020040	020040	020040	.EVEN
	020040	020040	020040
	020040	000000

024656	020040	020040	020040	.ASCIZ	/      3 0 0         /
	020063	020060	020060	.EVEN
	020040	020040	020040
	020040	000000

024704	020040	141301	137300	.ASCIZ	/       /
	020272	130275	146440	.EVEN
	140272	136660	020265
	020040	000000

024732	020040	020040	020040	.ASCIZ	/                    /
	020040	020040	020040	.EVEN
	020040	020040	020040
	020040	000000

024760	020040	020040	020040	.ASCIZ	/                    /
	020040	020040	020040	.EVEN
	020040	020040	020040
	020040	000000

025006	152675	150327	154322	.ASCIZ	/ -   /
	154341	157334	020325	.EVEN
	150334	164341	020055
	020040	000000

025034	150342	154321	157340	.ASCIZ	/       /
	150322	154335	020325	.EVEN
	157337	020040	020040
	020040	000000

025062	152722	161340	155330	.ASCIZ	/:          /
	155720	035330	020040	.EVEN
	020040	020040	020040
	020040	000000

025110	020040	020040	020061	.ASCIZ	/    1 : 1           /
	020072	020061	020040	.EVEN
	020040	020040	020040
	020040	000000

025136	020040	020040	020061	.ASCIZ	/    1 : 2           /
	020072	020062	020040	.EVEN
	020040	020040	020040
	020040	000000

025164	020040	020040	020061	.ASCIZ	/    1 : 4           /
	020072	020064	020040	.EVEN
	020040	020040	020040
	020040	000000

025212	020330	157323	154340	.ASCIZ	/ :      /
	157327	161335	155720	.EVEN
	035330	020040	020040
	020040	000000

025240	020040	020040	020061	.ASCIZ	/    1 : 1           /
	020072	020061	020040	.EVEN
	020040	020040	020040
	020040	000000

025266	020040	020040	020061	.ASCIZ	/    1 : 2           /
	020072	020062	020040	.EVEN
	020040	020040	020040
	020040	000000

025314	020040	020040	020061	.ASCIZ	/    1 : 4           /
	020072	020064	020040	.EVEN
	020040	020040	020040
	020040	000000

025342	020040	020040	020040	.ASCIZ	/                    /
	020040	020040	020040	.EVEN
	020040	020040	020040
	020040	000000

025370	020040	020040	020040	.ASCIZ	/                    /
	020040	020040	020040	.EVEN
	020040	020040	020040
	020040	000000

025416	152675	150327	154322	.ASCIZ	/  /
	154341	165734	020325	.EVEN
	150337	154333	160342
	020353	000000

025444	155724	020357	150340	.ASCIZ	/        /
	155727	163730	165735	.EVEN
	020345	020040	020040
	020040	000000

025472	020040	020040	151040	.ASCIZ	/     -  /
	152330	157325	160055	.EVEN
	153325	156330	151336
	020040	000000

025520	122244	122244	122244	.ASCIZ	/ /
	122244	122244	122246	.EVEN
	122244	122244	122244
	020244	000000

025546	160040	153325	156330	.ASCIZ	/      -  /
	020040	020040	020245	.EVEN
	157332	026733	157322
	020040	000000

025574	154321	027742	157342	.ASCIZ	"/    "
	155347	020343	020245	.EVEN
	150337	154333	160342
	020040	000000

025622	122244	122244	122244	.ASCIZ	/ /
	122244	122244	122252	.EVEN
	122244	122244	122244
	020244	000000

025650	020040	020040	020061	.ASCIZ	/    1        8     /
	020040	020040	020245	.EVEN
	020040	020070	020040
	020040	000000

025676	020040	020040	020062	.ASCIZ	/    2        8     /
	020040	020040	020245	.EVEN
	020040	020070	020040
	020040	000000

025724	020040	020040	020064	.ASCIZ	/    4       12     /
	020040	020040	020245	.EVEN
	030440	020062	020040
	020040	000000

025752	020040	020040	020070	.ASCIZ	/    8        2     /
	020040	020040	020245	.EVEN
	020040	020062	020040
	020040	000000

026000	020040	020040	020040	.ASCIZ	/                    /
	020040	020040	020040	.EVEN
	020040	020040	020040
	020040	000000

026026	157272	154333	152747	.ASCIZ	/ :/
	16134	157322	157040	.EVEN
	161342	156725	157332
	035322	000000

026054	020040	020040	020040	.ASCIZ	/      6 5 5 3 5     /
	020066	020065	020065	.EVEN
	020063	020065	020040
	020040	000000

026102	020040	020040	020040	.ASCIZ	/                    /
	020040	020040	020040	.EVEN
	020040	020040	020040
	020040	000000
=============================================================
; PROCEDURE (WINEXP)
026130	162706	000204		SUB    	#000204, SP	; VAR @SP,2(SP),4(SP),6(SP),10(SP),12(SP):INTEGER
; 14(SP):ARRAY[0..5]OF WINTYP
026134	012700	030622		MOV    	#030622, R0
026140	010501			MOV    	R5, R1
026142	062701	000636		ADD    	#000636, R1
026146	012702	000012		MOV    	#000012, R2
026152	012021			MOV    	(R0)+, (R1)+		; VAR636:='       ';
026154	005302			DEC    	R2
026156	001375			BNE    	026152
026160	012700	030650		MOV    	#030650, R0
026164	010501			MOV    	R5, R1
026166	062701	000662		ADD    	#000662, R1
026172	012702	000012		MOV    	#000012, R2
026176	012021			MOV    	(R0)+, (R1)+		; VAR662:='    ';
026200	005302			DEC    	R2
026202	001375			BNE    	026176
026204	012700	030676		MOV    	#030676, R0
026210	010501			MOV    	R5, R1
026212	062701	000706		ADD    	#000706, R1
026216	012702	000012		MOV    	#000012, R2
026222	012021			MOV    	(R0)+, (R1)+		; VAR706:='               ';
026224	005302			DEC    	R2
026226	001375			BNE    	026222
026230	004767	160454		CALL   	006710           	; L06710
026234	012746	000003		MOV    	#000003, -(SP)
026240	004767	154214		CALL   	002460			; L02460(3)
026244	004767	161476		CALL   	007746			; L07746
026250	010500			MOV    	R5, R0
026252	062700	002222		ADD    	#002222, R0
026256	010046			MOV    	R0, -(SP)
026260	004767	153010		CALL   	001274			; VWFORE(VAR2222)
026264	010600			MOV    	SP, R0
026266	010046			MOV    	R0, -(SP)		; FOR @SP:=2 DOWNTO 0
026270	012746	000002		MOV    	#000002, -(SP)
026274	005046			CLR    	-(SP)
026276	016676	000002	000004	MOV    	000002(SP), @000004(SP)
026304	027616	000004		CMP    	@000004(SP), (SP)
026310	002002			BGE    	026316
026312	000167	000344		JMP    	026662
026316	010600			MOV    	SP, R0
026320	062700	000010		ADD    	#000010, R0		; FOR 2(SP):=2 DOWNTO 0
026324	010046			MOV    	R0, -(SP)
026326	012746	000002		MOV    	#000002, -(SP)
026332	005046			CLR    	-(SP)
026334	016676	000002	000004	MOV    	000002(SP), @000004(SP)
026342	027616	000004		CMP    	@000004(SP), (SP)
026346	002002			BGE    	026354
026350	000167	000270		JMP    	026644
026354	016600	000014		MOV    	000014(SP), R0
026360	000300			SWAB   	R0
026362	042700	000377		BIC    	#000377, R0
026366	066600	000016		ADD    	000016(SP), R0
026372	010065	002244		MOV    	R0, 002244(R5)		; VAR2222.DEN:=@SP*400+2(SP)
026376	016600	000016		MOV    	000016(SP), R0		; CASE 2(SP) OF
026402	162700	000000		SUB    	#000000, R0
026406	002002			BGE    	026414
026410	000167	000054		JMP    	026470
026414	022700	000002		CMP    	#000002, R0
026420	002002			BGE    	026426
026422	000167	000042		JMP    	026470
026426	006300			ASL    	R0
026430	000170	026474		JMP    	@026474(R0)
026434	005065	002232		CLR    	002232(R5) ; 2		; VAR2222.ARX:=0
026440	000167	000036		JMP    	026502
026444	012765	000050	002232	MOV    	#000050, 002232(R5) ; 1	; VAR2222.ARX:=50
026452	000167	000024		JMP    	026502
026456	012765	000074	002232	MOV    	#000074, 002232(R5) ; 0	; VAR2222.ARX:=74
026464	000167	000012		JMP    	026502
026470	000167	000006		JMP    	026502		; END CASE
; CASE OF ADDR BEGIN
026474	026456	026444	026434	; 0 1 2
; CASE OF ADDR END
026502	016600	000014		MOV	000014(SP), R0		; CASE @SP OF
026506	162700	000000		SUB    	#000000, R0
026512	002002			BGE    	026520
026514	000167	000054		JMP    	026574
026520	022700	000002		CMP    	#000002, R0
026524	002002			BGE    	026532
026526	000167	000042		JMP    	026574
026532	006300			ASL    	R0
026534	000170	026600		JMP    	@026600(R0)
026540	005065	002230		CLR    	002230(R5) ; 2		; VAR2222.ARY:=0
026544	000167	000036		JMP    	026606
026550	012765	000062	002230	MOV    	#000062, 002230(R5) ; 1	; VAR2222.ARY:=62
026556	000167	000024		JMP    	026606
026562	012765	000113	002230	MOV    	#000113, 002230(R5) ; 0	; VAR2222.ARY:=113
026570	000167	000012		JMP    	026606
026574	000167	000006		JMP    	026606		; END CASE
; CASE OF ADDR BEGIN
026600	026562	026550	026540	; 0 1 2
; CASE OF ADDR END
026606	010500			MOV    	R5, R0
026610	062700	002222		ADD    	#002222, R0
026614	010046			MOV    	R0, -(SP)
026616	004767	152436		CALL   	001260			; VWCRE(VAR2222)
026622	012746	000004		MOV    	#000004, -(SP)
026626	004767	153626		CALL   	002460			; L02460(4)
026632	005376	000004		DEC    	@000004(SP)		; PREV 2(SP)
026636	102402			BVS    	026644
026640	000167	177476		JMP    	026342
026644	062706	000006		ADD    	#000006, SP		; END FOR 2(SP)
026650	005376	000004		DEC    	@000004(SP)		; PREV @SP
026654	102402			BVS    	026662
026656	000167	177422		JMP    	026304
026662	062706	000006		ADD    	#000006, SP		; END FOR @SP
026666	012765	001002	002244	MOV    	#001002, 002244(R5)	; VAR2222.DEN:=1002
026674	005065	002232		CLR    	002232(R5)		; VAR2222.ARX:=0
026700	005065	002230		CLR    	002230(R5)		; VAR2222.ARY:=0
026704	010500			MOV    	R5, R0
026706	062700	002222		ADD    	#002222, R0
026712	010046			MOV    	R0, -(SP)
026714	004767	152340		CALL   	001260			; VWCRE(VAR2222)
026720	012746	000002		MOV    	#000002, -(SP)
026724	004767	153530		CALL   	002460			; L02460(2)
026730	012700	030724		MOV    	#030724, R0
026734	010501			MOV    	R5, R1
026736	062701	000636		ADD    	#000636, R1
026742	012702	000012		MOV    	#000012, R2
026746	012021			MOV    	(R0)+, (R1)+		; VAR636:='        '
026750	005302			DEC    	R2
026752	001375			BNE    	026746
026754	012700	030752		MOV    	#030752, R0
026760	010501			MOV    	R5, R1
026762	062701	000662		ADD    	#000662, R1
026766	012702	000012		MOV    	#000012, R2
026772	012021			MOV    	(R0)+, (R1)+		; VAR662:='           '
026774	005302			DEC    	R2
026776	001375			BNE    	026772
027000	012700	031000		MOV    	#031000, R0
027004	010501			MOV    	R5, R1
027006	062701	000706		ADD    	#000706, R1
027012	012702	000012		MOV    	#000012, R2
027016	012021			MOV    	(R0)+, (R1)+		; VAR706:='               '
027020	005302			DEC    	R2
027022	001375			BNE    	027016
027024	004767	157660		CALL   	006710			; L06710
027030	012746	000003		MOV    	#000003, -(SP)
027034	004767	153420		CALL   	002460			; L02460(3)
027040	004767	160702		CALL   	007746			; L07746
027044	010500			MOV    	R5, R0
027046	062700	002246		ADD    	#002246, R0
027052	010046			MOV    	R0, -(SP)
027054	004767	152214		CALL   	001274			; VWFORE(VAR2246)
027060	012746	000003		MOV    	#000003, -(SP)
027064	004767	153370		CALL   	002460			; L02460(3)
027070	012765	000401	002270	MOV    	#000401, 002270(R5)	; VAR2246.DEN:=401
027076	010500			MOV    	R5, R0
027100	062700	002246		ADD    	#002246, R0
027104	010046			MOV    	R0, -(SP)
027106	004767	152146		CALL   	001260			; VWCRE(VAR2246)
027112	012766	000024	000012	MOV    	#000024, 000012(SP)	; 12(SP):=24
027120	010600			MOV    	SP, R0
027122	010046			MOV    	R0, -(SP)		; FOR @SP:=1 TO 12(SP)
027124	012746	000001		MOV    	#000001, -(SP)
027130	016646	000016		MOV    	000016(SP), -(SP)
027134	016676	000002	000004	MOV    	000002(SP), @000004(SP)
027142	027616	000004		CMP    	@000004(SP), (SP)
027146	003402			BLE    	027154
027150	000167	000044		JMP    	027220
027154	062765	000004	002256	ADD    	#000004, 002256(R5)	; VAR2246.ARX:=VAR2246.ARX+4
027162	010500			MOV    	R5, R0
027164	062700	002246		ADD    	#002246, R0
027170	010046			MOV    	R0, -(SP)
027172	004767	152062		CALL   	001260			; VWCRE(VAR2246)
027176	012746	005670		MOV    	#005670, -(SP)
027202	004767	153146		CALL   	002354			; L02354(5670)
027206	005276	000004		INC    	@000004(SP)		; NEXT @SP
027212	102402			BVS    	027220
027214	000167	177722		JMP    	027142
027220	062706	000006		ADD    	#000006, SP		; END FOR @SP
027224	010600			MOV    	SP, R0
027226	010046			MOV    	R0, -(SP)		; FOR @SP:=1 TO 12(SP)
027230	012746	000001		MOV    	#000001, -(SP)
027234	016646	000016		MOV    	000016(SP), -(SP)
027240	016676	000002	000004	MOV    	000002(SP), @000004(SP)
027246	027616	000004		CMP    	@000004(SP), (SP)
027252	003402			BLE    	027260
027254	000167	000044		JMP    	027324
027260	062765	177774	002256	ADD    	#177774, 002256(R5)	; VAR2246.ARX:=VAR2246.ARX-4
027266	010500			MOV    	R5, R0
027270	062700	002246		ADD    	#002246, R0
027274	010046			MOV    	R0, -(SP)
027276	004767	151756		CALL   	001260			; VWCRE(VAR2246)
027302	012746	005670		MOV    	#005670, -(SP)
027306	004767	153042		CALL   	002354			; L02354(5670)
027312	005276	000004		INC    	@000004(SP)		; NEXT @SP
027316	102402			BVS    	027324
027320	000167	177722		JMP    	027246
027324	062706	000006		ADD    	#000006, SP		; END FOR @SP
027330	016500	002262		MOV    	002262(R5), R0
027334	166500	002260		SUB    	002260(R5), R0
027340	010066	000012		MOV    	R0, 000012(SP)		; 12(SP):=VAR2246.SY2-VAR2246.SY1
027344	010600			MOV    	SP, R0
027346	010046			MOV    	R0, -(SP)		; FOR @SP:=1 TO 12(SP)
027350	012746	000001		MOV    	#000001, -(SP)
027354	016646	000016		MOV    	000016(SP), -(SP)
027360	016676	000002	000004	MOV    	000002(SP), @000004(SP)
027366	027616	000004		CMP    	@000004(SP), (SP)
027372	003402			BLE    	027400
027374	000167	000032		JMP    	027432
027400	005265	002254		INC    	002254(R5)		; VAR2246.ARY:=VAR2246.ARY+1
027404	010500			MOV    	R5, R0
027406	062700	002246		ADD    	#002246, R0
027412	010046			MOV    	R0, -(SP)
027414	004767	151640		CALL   	001260			; VWCRE(VAR2246)
027420	005276	000004		INC    	@000004(SP)		; NEXT @SP
027424	102402			BVS    	027432
027426	000167	177734		JMP    	027366
027432	062706	000006		ADD    	#000006, SP		; END FOR @SP
027436	010600			MOV    	SP, R0
027440	010046			MOV    	R0, -(SP)		; FOR @SP:=1 TO 12(SP)
027442	012746	000001		MOV    	#000001, -(SP)
027446	016646	000016		MOV    	000016(SP), -(SP)
027452	016676	000002	000004	MOV    	000002(SP), @000004(SP)
027460	027616	000004		CMP    	@000004(SP), (SP)
027464	003402			BLE    	027472
027466	000167	000032		JMP    	027524
027472	005365	002254		DEC    	002254(R5)		; VAR2246.ARY:=VAR2246.ARY-1
027476	010500			MOV    	R5, R0
027500	062700	002246		ADD    	#002246, R0
027504	010046			MOV    	R0, -(SP)
027506	004767	151546		CALL   	001260			; VWCRE(VAR2246)
027512	005276	000004		INC    	@000004(SP)		; NEXT @SP
027516	102402			BVS    	027524
027520	000167	177734		JMP    	027460
027524	062706	000006		ADD    	#000006, SP		; END FOR @SP
027530	012765	001002	002270	MOV    	#001002, 002270(R5)	; VAR2246.DEN:=1002
027536	010500			MOV    	R5, R0
027540	062700	002246		ADD    	#002246, R0
027544	010046			MOV    	R0, -(SP)
027546	004767	151506		CALL   	001260			; VWCRE(VAR2246)
027552	012746	000002		MOV    	#000002, -(SP)
027556	004767	152676		CALL   	002460			; L02460(2)
027562	012700	031026		MOV    	#031026, R0
027566	010501			MOV    	R5, R1
027570	062701	000636		ADD    	#000636, R1
027574	012702	000012		MOV    	#000012, R2
027600	012021			MOV    	(R0)+, (R1)+		; VAR636:='        '
027602	005302			DEC    	R2
027604	001375			BNE    	027600
027606	012700	031054		MOV    	#031054, R0
027612	010501			MOV    	R5, R1
027614	062701	000662		ADD    	#000662, R1
027620	012702	000012		MOV    	#000012, R2
027624	012021			MOV    	(R0)+, (R1)+		; VAR662:='       '
027626	005302			DEC    	R2
027630	001375			BNE    	027624
027632	012700	031102		MOV    	#031102, R0
027636	010501			MOV    	R5, R1
027640	062701	000706		ADD    	#000706, R1
027644	012702	000012		MOV    	#000012, R2
027650	012021			MOV    	(R0)+, (R1)+		; VAR706:='     '
027652	005302			DEC    	R2
027654	001375			BNE    	027650
027656	004767	157026		CALL   	006710			; L06710
027662	012746	000003		MOV    	#000003, -(SP)
027666	004767	152566		CALL   	002460			; L02460(3)
027672	010600			MOV    	SP, R0
027674	010046			MOV    	R0, -(SP)		; FOR @SP:=0 TO 5
027676	005046			CLR    	-(SP)
027700	012746	000005		MOV    	#000005, -(SP)
027704	016676	000002	000004	MOV    	000002(SP), @000004(SP)
027712	027616	000004		CMP    	@000004(SP), (SP)
027716	003402			BLE    	027724
027720	000167	000066		JMP    	030012
027724	016646	000006		MOV    	000006(SP), -(SP)
027730	012746	000024		MOV    	#000024, -(SP)
027734	004767	027242		CALL   	057202	; $B116
027740	010603			MOV    	SP, R3
027742	062603			ADD    	(SP)+, R3
027744	062703	000024		ADD    	#000024, R3		; WITH 14(SP)[@SP]
027750	005063	000002		CLR    	000002(R3)		; (14(SP)[@SP]).WNUM:=0
027754	012763	000016	000004	MOV    	#000016, 000004(R3)	; (14(SP)[@SP]).AREA:=16
027762	005063	000006		CLR    	000006(R3)		; (14(SP)[@SP]).ARY:=0
027766	005063	000010		CLR    	000010(R3)		; (14(SP)[@SP]).ARX:=0
027772	012763	000454	000014	MOV    	#000454, 000014(R3)	; (14(SP)[@SP]).SY2:=454
030000	005276	000004		INC    	@000004(SP)		; NEXT @SP
030004	102402			BVS    	030012
030006	000167	177700		JMP    	027712
030012	062706	000006		ADD    	#000006, SP		; END FOR @SP
030016	010600			MOV    	SP, R0
030020	010046			MOV    	R0, -(SP)		; FOR @SP:=1 DOWNTO 0
030022	012746	000001		MOV    	#000001, -(SP)
030026	005046			CLR    	-(SP)
030030	016676	000002	000004	MOV    	000002(SP), @000004(SP)
030036	027616	000004		CMP    	@000004(SP), (SP)
030042	002002			BGE    	030050
030044	000167	000412		JMP    	030462
030050	010600			MOV    	SP, R0
030052	062700	000010		ADD    	#000010, R0		; FOR 2(SP):=2 DOWNTO 0
030056	010046			MOV    	R0, -(SP)
030060	012746	000002		MOV    	#000002, -(SP)
030064	005046			CLR    	-(SP)
030066	016676	000002	000004	MOV    	000002(SP), @000004(SP)
030074	027616	000004		CMP    	@000004(SP), (SP)
030100	002002			BGE    	030106
030102	000167	000336		JMP    	030444
030106	016646	000014		MOV    	000014(SP), -(SP)
030112	012746	000003		MOV    	#000003, -(SP)
030116	004767	027146		CALL   	057270	; $B78
030122	016603	000020		MOV    	000020(SP), R3
030126	062603			ADD    	(SP)+, R3
030130	010346			MOV    	R3, -(SP)
030132	012746	000024		MOV    	#000024, -(SP)
030136	004767	027040		CALL   	057202	; $B116
030142	010603			MOV    	SP, R3
030144	062603			ADD    	(SP)+, R3
030146	062703	000032		ADD    	#000032, R3		; WITH 14(SP)[@SP*3+2(SP)]
030152	016600	000016		MOV    	000016(SP), R0
030156	000300			SWAB   	R0
030160	042700	000377		BIC    	#000377, R0
030164	066600	000014		ADD    	000014(SP), R0
030170	010063	000022		MOV    	R0, 000022(R3)		; (14(SP)[@SP*3+2(SP)]).DEN:=2(SP)*400+@SP
030174	016600	000016		MOV    	000016(SP), R0		; CASE 2(SP) OF
030200	162700	000000		SUB    	#000000, R0
030204	002002			BGE    	030212
030206	000167	000056		JMP    	030270
030212	022700	000002		CMP    	#000002, R0
030216	002002			BGE    	030224
030220	000167	000044		JMP    	030270
030224	006300			ASL    	R0
030226	000170	030274		JMP    	@030274(R0)
030232	012763	000240	000012	MOV    	#000240, 000012(R3) ; 0	; (14(SP)[@SP*3+2(SP)]).SY1:=240
030240	000167	000036		JMP    	030302
030244	012763	000340	000012	MOV    	#000340, 000012(R3) ; 1	; (14(SP)[@SP*3+2(SP)]).SY1:=340
030252	000167	000024		JMP    	030302
030256	012763	000400	000012	MOV    	#000400, 000012(R3) ; 2	; (14(SP)[@SP*3+2(SP)]).SY1:=400
030264	000167	000012		JMP    	030302
030270	000167	000006		JMP    	030302		; END CASE
; CASE OF ADDR BEGIN
030274	030232	030244	030256	; 0 1 2
; CASE OF ADDR END
030302	016646	000014		MOV    	000014(SP), -(SP)
030306	012746	000017		MOV    	#000017, -(SP)
030312	004767	026752		CALL   	057270	; $B78
030316	062716	000002		ADD    	#000002, (SP)
030322	012663	000016		MOV    	(SP)+, 000016(R3)	; (14(SP)[@SP*3+2(SP)]).SX1:=@SP*17+2
030326	016300	000016		MOV    	000016(R3), R0
030332	062700	000014		ADD    	#000014, R0
030336	016646	000014		MOV    	000014(SP), -(SP)
030342	012746	177772		MOV    	#177772, -(SP)
030346	004767	026716		CALL   	057270	; $B78
030352	062600			ADD    	(SP)+, R0
030354	010063	000020		MOV    	R0, 000020(R3)		; (14(SP)[@SP*3+2(SP)]).SX2:=(14(SP)[@SP*3+2(SP)]).SX1+14+@SP*-6
030360	016646	000014		MOV    	000014(SP), -(SP)
030364	012746	000003		MOV    	#000003, -(SP)
030370	004767	026674		CALL   	057270	; $B78
030374	016600	000020		MOV    	000020(SP), R0
030400	062600			ADD    	(SP)+, R0
030402	010046			MOV    	R0, -(SP)
030404	012746	000024		MOV    	#000024, -(SP)
030410	004767	026566		CALL   	057202	; $B116
030414	010600			MOV    	SP, R0
030416	062600			ADD    	(SP)+, R0
030420	062700	000032		ADD    	#000032, R0
030424	010046			MOV    	R0, -(SP)
030426	004767	150626		CALL   	001260			; VWCRE(14(SP)[@SP*3+2(SP)])
030432	005376	000004		DEC    	@000004(SP)		; PREV 2(SP)
030436	102402			BVS    	030444
030440	000167	177430		JMP    	030074
030444	062706	000006		ADD    	#000006, SP		; END FOR 2(SP)
030450	005376	000004		DEC    	@000004(SP)		; PREV @SP
030454	102402			BVS    	030462
030456	000167	177354		JMP    	030036
030462	062706	000006		ADD    	#000006, SP		; END FOR @SP
030466	012746	000017		MOV    	#000017, -(SP)
030472	004767	151762		CALL   	002460			; L02460(17)
030476	010600			MOV    	SP, R0
030500	010046			MOV    	R0, -(SP)		; FOR @SP:=0 TO 5
030502	005046			CLR    	-(SP)
030504	012746	000005		MOV    	#000005, -(SP)
030510	016676	000002	000004	MOV    	000002(SP), @000004(SP)
030516	027616	000004		CMP    	@000004(SP), (SP)
030522	003402			BLE    	030530
030524	000167	000044		JMP    	030574
030530	016646	000006		MOV    	000006(SP), -(SP)
030534	012746	000024		MOV    	#000024, -(SP)
030540	004767	026436		CALL   	057202	; $B116
030544	010600			MOV    	SP, R0
030546	062600			ADD    	(SP)+, R0
030550	062700	000024		ADD    	#000024, R0
030554	010046			MOV    	R0, -(SP)
030556	004767	150502		CALL   	001264			; VWKILL(14(SP)[@SP])
030562	005276	000004		INC    	@000004(SP)		; NEXT @SP
030566	102402			BVS    	030574
030570	000167	177722		JMP    	030516
030574	062706	000006		ADD    	#000006, SP		; END FOR @SP
030600	004767	157142		CALL   	007746			; L07746
030604	012746	000003		MOV    	#000003, -(SP)
030610	004767	151644		CALL   	002460			; L02460(3)
030614	062706	000204		ADD    	#000204, SP
030620	000207			RETURN 	
-------------------------------------------------------------
030622	136040	153336	157335	.ASCIZ	/       /
	154040	156327	156725	.EVEN
	161330	020354	020040
	020040	000000

030650	156040	160720	161350	.ASCIZ	/    /
	150720	157440	157333	.EVEN
	155341	160736	154342
	020040	000000

030676	151040	157040	156732	.ASCIZ	/               /
	020325	020040	020040	.EVEN
	020040	020040	020040
	020040	000000

030724	136040	153336	157335	.ASCIZ	/        /
	152040	154322	150323	.EVEN
	166342	020040	020040
	020040	000000

030752	157440	157333	155341	.ASCIZ	/           /
	160736	166342	020040	.EVEN
	020040	020040	020040
	020040	000000

031000	151040	157040	156732	.ASCIZ	/               /
	020325	020040	020040	.EVEN
	020040	020040	020040
	020040	000000

031026	136040	153336	157335	.ASCIZ	/        /
	157040	155342	165740	.EVEN
	166342	020040	020040
	020040	000000

031054	156440	160725	157332	.ASCIZ	/       /
	166333	157332	157040	.EVEN
	157332	020335	020040
	020040	000000

031102	156440	020320	152336	.ASCIZ	/     /
	161735	157440	157333	.EVEN
	155341	160736	166342
	020040	000000
=============================================================
; PROCEDURE VAR 2(SP):PALTYP (RAINBOWCOLORS)
031130	016603	000002		MOV    	000002(SP), R3		; WITH 2(SP)
031134	105063	000004		CLRB   	000004(R3)		; (2(SP)).C[0]:=0
031140	112763	000036	000005	MOVB   	#000036, 000005(R3)	; (2(SP)).C[1]:=36
031146	112763	000034	000006	MOVB   	#000034, 000006(R3)	; (2(SP)).C[2]:=34
031154	112763	000234	000007	MOVB   	#000234, 000007(R3)	; (2(SP)).C[3]:=234
031162	112763	000334	000010	MOVB   	#000334, 000010(R3)	; (2(SP)).C[4]:=334
031170	112763	000374	000011	MOVB   	#000374, 000011(R3)	; (2(SP)).C[5]:=374
031176	112763	000360	000012	MOVB   	#000360, 000012(R3)	; (2(SP)).C[6]:=360
031204	112763	000340	000013	MOVB   	#000340, 000013(R3)	; (2(SP)).C[7]:=340
031212	112763	000342	000014	MOVB   	#000342, 000014(R3)	; (2(SP)).C[10]:=342
031220	112763	000343	000015	MOVB   	#000343, 000015(R3)	; (2(SP)).C[11]:=343
031226	112763	000303	000016	MOVB   	#000303, 000016(R3)	; (2(SP)).C[12]:=303
031234	112763	000203	000017	MOVB   	#000203, 000017(R3)	; (2(SP)).C[13]:=203
031242	112763	000017	000020	MOVB   	#000017, 000020(R3)	; (2(SP)).C[14]:=17
031250	112763	000023	000021	MOVB   	#000023, 000021(R3)	; (2(SP)).C[15]:=23
031256	112763	000033	000022	MOVB   	#000033, 000022(R3)	; (2(SP)).C[16]:=33
031264	112763	000037	000023	MOVB   	#000037, 000023(R3)	; (2(SP)).C[17]:=37
031272	016646	000002		MOV    	000002(SP), -(SP)
031276	004767	147676		CALL   	001200			; PLMOD(2(SP))
031302	011666	000002		MOV    	(SP), 000002(SP)
031306	062706	000002		ADD    	#000002, SP
031312	000207			RETURN 	
=============================================================
; PROCEDURE VAR 14(SP):PALTYP; 12(SP),10(SP):INTEGER; (PALROT)
031314	162706	000006		SUB    	#000006, SP	; VAR @SP,2(SP):INTEGER; 4(SP):CHAR
031320	010600			MOV    	SP, R0
031322	062700	000002		ADD    	#000002, R0		; FOR 2(SP):=1 TO 12(SP)
031326	010046			MOV    	R0, -(SP)
031330	012746	000001		MOV    	#000001, -(SP)
031334	016646	000016		MOV    	000016(SP), -(SP)
031340	016676	000002	000004	MOV    	000002(SP), @000004(SP)
031346	027616	000004		CMP    	@000004(SP), (SP)
031352	003402			BLE    	031360
031354	000167	000154		JMP    	031534
031360	016646	000016		MOV    	000016(SP), -(SP)
031364	004767	150764		CALL   	002354			; L02354(10(SP))
031370	016603	000022		MOV    	000022(SP), R3		; WITH 14(SP)
031374	116366	000023	000012	MOVB   	000023(R3), 000012(SP)	; 4(SP):=(14(SP)).C[17]
031402	010600			MOV    	SP, R0
031404	062700	000006		ADD    	#000006, R0		; FOR @SP:=17 DOWNTO 2
031410	010046			MOV    	R0, -(SP)
031412	012746	000017		MOV    	#000017, -(SP)
031416	012746	000002		MOV    	#000002, -(SP)
031422	016676	000002	000004	MOV    	000002(SP), @000004(SP)
031430	027616	000004		CMP    	@000004(SP), (SP)
031434	002002			BGE    	031442
031436	000167	000036		JMP    	031500
031442	010300			MOV    	R3, R0
031444	066600	000014		ADD    	000014(SP), R0
031450	016601	000014		MOV    	000014(SP), R1
031454	005301			DEC    	R1
031456	060301			ADD    	R3, R1
031460	116160	000004	000004	MOVB   	000004(R1), 000004(R0)	; (14(SP)).C[I]:=(14(SP)).C[I-1]
031466	005376	000004		DEC    	@000004(SP)		; PREV @SP
031472	102402			BVS    	031500
031474	000167	177730		JMP    	031430
031500	062706	000006		ADD    	#000006, SP		; END FOR @SP
031504	116663	000012	000005	MOVB   	000012(SP), 000005(R3)	; (14(SP)).C[1]:=4(SP)
031512	016646	000022		MOV    	000022(SP), -(SP)
031516	004767	147456		CALL   	001200			; PLMOD(14(SP))
031522	005276	000004		INC    	@000004(SP)		; NEXT 2(SP)
031526	102402			BVS    	031534
031530	000167	177612		JMP    	031346
031534	062706	000006		ADD    	#000006, SP		; END FOR 2(SP)
031540	016666	000006	000014	MOV    	000006(SP), 000014(SP)
031546	062706	000014		ADD    	#000014, SP
031552	000207			RETURN 	
=============================================================
; PROCEDURE (RAINBOW)
031554	162706	000052		SUB    	#000052, SP	; VAR @SP:PALTYP; 24(SP),26(SP),30(SP),32(SP),34(SP),36(SP):INTEGER;
; 40(SP),44(SP):REAL; 50(SP):CHAR;
031560	012766	000003	000002	MOV    	#000003, 000002(SP)	; @SP.MODPAL:=3
031566	010600			MOV    	SP, R0
031570	010046			MOV    	R0, -(SP)
031572	004767	147412		CALL   	001210			; PLCRE(@SP)
031576	005065	000132		CLR    	000132(R5)		; VAR132.ANUM:=0
031602	012765	000334	000134	MOV    	#000334, 000134(R5)	; VAR132.LINS:=334
031610	012765	000240	000136	MOV    	#000240, 000136(R5)	; VAR132.SLEN:=240
031616	016665	000002	000140	MOV    	000002(SP), 000140(R5)	; VAR132.MODPAL:=@SP.MODPAL
031624	005065	000142		CLR    	000142(R5)		; VAR132.AMMR:=0
031630	010500			MOV    	R5, R0
031632	062700	000132		ADD    	#000132, R0
031636	010046			MOV    	R0, -(SP)
031640	004767	147630		CALL   	001474			; L01474(VAR132)
031644	010600			MOV    	SP, R0
031646	010046			MOV    	R0, -(SP)
031650	004767	177254		CALL   	031130			; L31130(@SP)
031654	010600			MOV    	SP, R0
031656	010046			MOV    	R0, -(SP)
031660	004767	147314		CALL   	001200			; PLMOD(@SP)
031664	016546	000132		MOV    	000132(R5), -(SP)
031670	012746	000002		MOV    	#000002, -(SP)
031674	012746	000010		MOV    	#000010, -(SP)
031700	012746	000012		MOV    	#000012, -(SP)
031704	012746	000003		MOV    	#000003, -(SP)
031710	162706	000024		SUB    	#000024, SP
031714	012700	033116		MOV    	#033116, R0
031720	010601			MOV    	SP, R1
031722	012702	000012		MOV    	#000012, R2
031726	012021			MOV    	(R0)+, (R1)+
031730	005302			DEC    	R2
031732	001375			BNE    	031726
031734	004767	150620		CALL   	002560			; L02560(VAR132.ANUM,2,10,12,3,'.................')
031740	016546	000132		MOV    	000132(R5), -(SP)
031744	012746	000003		MOV    	#000003, -(SP)
031750	012746	000010		MOV    	#000010, -(SP)
031754	012746	000031		MOV    	#000031, -(SP)
031760	012746	000005		MOV    	#000005, -(SP)
031764	162706	000024		SUB    	#000024, SP
031770	012700	033144		MOV    	#033144, R0
031774	010601			MOV    	SP, R1
031776	012702	000012		MOV    	#000012, R2
032002	012021			MOV    	(R0)+, (R1)+
032004	005302			DEC    	R2
032006	001375			BNE    	032002
032010	004767	150544		CALL   	002560			; L02560(VAR132.ANUM,3,10,31,5,'...............')
032014	016546	000132		MOV    	000132(R5), -(SP)
032020	012746	000004		MOV    	#000004, -(SP)
032024	012746	000010		MOV    	#000010, -(SP)
032030	012746	000050		MOV    	#000050, -(SP)
032034	012746	000006		MOV    	#000006, -(SP)
032040	162706	000024		SUB    	#000024, SP
032044	012700	033172		MOV    	#033172, R0
032050	010601			MOV    	SP, R1
032052	012702	000012		MOV    	#000012, R2
032056	012021			MOV    	(R0)+, (R1)+
032060	005302			DEC    	R2
032062	001375			BNE    	032056
032064	004767	150470		CALL   	002560			; L02560(VAR132.ANUM,4,10,50,6,'..............')
032070	016546	000132		MOV    	000132(R5), -(SP)
032074	012746	000005		MOV    	#000005, -(SP)
032100	012746	000010		MOV    	#000010, -(SP)
032104	012746	000067		MOV    	#000067, -(SP)
032110	012746	000002		MOV    	#000002, -(SP)
032114	162706	000024		SUB    	#000024, SP
032120	012700	033220		MOV    	#033220, R0
032124	010601			MOV    	SP, R1
032126	012702	000012		MOV    	#000012, R2
032132	012021			MOV    	(R0)+, (R1)+
032134	005302			DEC    	R2
032136	001375			BNE    	032132
032140	004767	150414		CALL   	002560			; L02560(VAR132.ANUM,5,10,67,2,'..................')
032144	016546	000132		MOV    	000132(R5), -(SP)
032150	012746	000006		MOV    	#000006, -(SP)
032154	012746	000010		MOV    	#000010, -(SP)
032160	012746	000106		MOV    	#000106, -(SP)
032164	012746	000006		MOV    	#000006, -(SP)
032170	162706	000024		SUB    	#000024, SP
032174	012700	033246		MOV    	#033246, R0
032200	010601			MOV    	SP, R1
032202	012702	000012		MOV    	#000012, R2
032206	012021			MOV    	(R0)+, (R1)+
032210	005302			DEC    	R2
032212	001375			BNE    	032206
032214	004767	150340		CALL   	002560			; L02560(VAR132.ANUM,6,10,106,6,'..............')
032220	010503			MOV    	R5, R3
032222	062703	000352		ADD    	#000352, R3		; WITH VAR352
032226	016563	000132	000004	MOV    	000132(R5), 000004(R3)	; (VAR352).AREA:=VAR132.ANUM;
032234	005063	000002		CLR    	000002(R3)		; (VAR352).WNUM:=0
032240	012763	000400	000022	MOV    	#000400, 000022(R3)	; (VAR352).DEN:=400
032246	012763	000050	000012	MOV    	#000050, 000012(R3)	; (VAR352).SY1:=50
032254	012763	000404	000014	MOV    	#000404, 000014(R3)	; (VAR352).SY2:=404
032262	012763	000032	000016	MOV    	#000032, 000016(R3)	; (VAR352).SX1:=32
032270	012763	000055	000020	MOV    	#000055, 000020(R3)	; (VAR352).SX2:=55
032276	005063	000006		CLR    	000006(R3)		; (VAR352).ARY:=0
032302	005063	000010		CLR    	000010(R3)		; (VAR352).ARX:=0
032306	010500			MOV    	R5, R0
032310	062700	000352		ADD    	#000352, R0
032314	010046			MOV    	R0, -(SP)
032316	012746	177751		MOV    	#177751, -(SP)
032322	004767	150616		CALL   	003144			; L03144(VAR352,-27)
032326	012746	000002		MOV    	#000002, -(SP)
032332	004767	150122		CALL   	002460			; L02460(2)
032336	012765	001002	000374	MOV    	#001002, 000374(R5)	; VAR352.DEN:=1002
032344	010500			MOV    	R5, R0
032346	062700	000352		ADD    	#000352, R0
032352	010046			MOV    	R0, -(SP)
032354	004767	146700		CALL   	001260			; VWCRE(VAR352)
032360	012746	000002		MOV    	#000002, -(SP)
032364	004767	150070		CALL   	002460			; L02460(2)
032370	005046			CLR    	-(SP)
032372	005046			CLR    	-(SP)
032374	012666	000042		MOV    	(SP)+, 000042(SP)	; 40(SP):=0.0
032400	012666	000042		MOV    	(SP)+, 000042(SP)
032404	012766	000164	000034	MOV    	#000164, 000034(SP)	; 34(SP):=164
032412	012746	172702		MOV    	#172702, -(SP)
032416	012746	040710		MOV    	#040710, -(SP)
032422	016646	000040		MOV    	000040(SP), -(SP)
032426	004767	025102		CALL   	057534	; $B88
032432	075036			FDIV	SP
032434	012666	000046		MOV    	(SP)+, 000046(SP)	; 44(SP):=6.28/34(SP)
032440	012666	000046		MOV    	(SP)+, 000046(SP)
032444	005046			CLR    	-(SP)
032446	012746	041640		MOV    	#041640, -(SP)
032452	016646	000052		MOV    	000052(SP), -(SP)
032456	016646	000052		MOV    	000052(SP), -(SP)
032462	004767	024114		CALL   	056602	; $B92
032466	075026			FMUL	SP
032470	004767	025172		CALL   	057666	; $B86
032474	062716	000156		ADD    	#000156, (SP)
032500	012666	000026		MOV    	(SP)+, 000026(SP)	; 26(SP):=TRUNC(80.0*SIN(44(SP)))+156
032504	010600			MOV    	SP, R0
032506	062700	000032		ADD    	#000032, R0		; FOR 32(SP):=0 TO 34(SP)
032512	010046			MOV    	R0, -(SP)
032514	005046			CLR    	-(SP)
032516	016646	000040		MOV    	000040(SP), -(SP)
032522	016676	000002	000004	MOV    	000002(SP), @000004(SP)
032530	027616	000004		CMP    	@000004(SP), (SP)
032534	003402			BLE    	032542
032536	000167	000306		JMP    	033050
032542	005046			CLR    	-(SP)
032544	012746	041640		MOV    	#041640, -(SP)
032550	016646	000054		MOV    	000054(SP), -(SP)
032554	016646	000054		MOV    	000054(SP), -(SP)
032560	004767	024016		CALL   	056602	; $B92
032564	075026			FMUL	SP
032566	004767	025074		CALL   	057666	; $B86
032572	062716	000156		ADD    	#000156, (SP)
032576	012666	000036		MOV    	(SP)+, 000036(SP)	; 30(SP):=TRUNC(80.0+SIN(40(SP))+156
032602	016600	000040		MOV    	000040(SP), R0
032606	005700			TST    	R0
032610	100001			BPL    	032614
032612	005300			DEC    	R0
032614	006200			ASR    	R0
032616	100001			BPL    	032622
032620	005200			INC    	R0
032622	010046			MOV    	R0, -(SP)
032624	012746	000017		MOV    	#000017, -(SP)
032630	004767	024514		CALL   	057350	; $B82
032634	012600			MOV    	(SP)+, R0
032636	005200			INC    	R0
032640	010066	000044		MOV    	R0, 000044(SP)		; 36(SP):=((32(SP) DIV 2) MOD 17)+1
032644	016600	000044		MOV    	000044(SP), R0
032650	006300			ASL    	R0
032652	006300			ASL    	R0
032654	006300			ASL    	R0
032656	006300			ASL    	R0
032660	066600	000044		ADD    	000044(SP), R0
032664	000300			SWAB   	R0
032666	042700	000377		BIC    	#000377, R0
032672	016601	000044		MOV    	000044(SP), R1
032676	006301			ASL    	R1
032700	006301			ASL    	R1
032702	006301			ASL    	R1
032704	006301			ASL    	R1
032706	060001			ADD    	R0, R1
032710	066601	000044		ADD    	000044(SP), R1
032714	010166	000044		MOV    	R1, 000044(SP)		; 36(SP):=(36(SP)*20+36(SP))*256+36(SP)*20+36(SP)
032720	016546	000132		MOV    	000132(R5), -(SP)
032724	005046			CLR    	-(SP)
032726	016646	000042		MOV    	000042(SP), -(SP)
032732	016600	000044		MOV    	000044(SP), R0
032736	166600	000042		SUB    	000042(SP), R0
032742	100001			BPL    	032746
032744	005400			NEG    	R0
032746	005200			INC    	R0
032750	010046			MOV    	R0, -(SP)
032752	016646	000050		MOV    	000050(SP), -(SP)
032756	012746	000044		MOV    	#000044, -(SP)
032762	016646	000060		MOV    	000060(SP), -(SP)
032766	005046			CLR    	-(SP)
032770	005046			CLR    	-(SP)
032772	004767	146256		CALL   	001254			; HBMOVE(VAR132.ANUM,0,30(SP),ABS(30(SP)-26(SP)),32(SP),44,36(SP),0,0)
032776	016666	000036	000034	MOV    	000036(SP), 000034(SP)	; 26(SP):=30(SP)
033004	016646	000050		MOV    	000050(SP), -(SP)
033010	016646	000050		MOV    	000050(SP), -(SP)
033014	016646	000060		MOV    	000060(SP), -(SP)
033020	016646	000060		MOV    	000060(SP), -(SP)
033024	075006			FADD	SP
033026	012666	000050		MOV    	(SP)+, 000050(SP)	; 40(SP):=40(SP)+44(SP)
033032	012666	000050		MOV    	(SP)+, 000050(SP)
033036	005276	000004		INC    	@000004(SP)		; NEXT 32(SP)
033042	102402			BVS    	033050
033044	000167	177460		JMP    	032530
033050	062706	000006		ADD    	#000006, SP		; END FOR 32(SP)
033054	010600			MOV    	SP, R0
033056	010046			MOV    	R0, -(SP)
033060	012746	000144		MOV    	#000144, -(SP)
033064	012746	003244		MOV    	#003244, -(SP)
033070	004767	176220		CALL   	031314			; L31314(@SP,144,3244)
033074	010500			MOV    	R5, R0
033076	062700	000352		ADD    	#000352, R0
033102	010046			MOV    	R0, -(SP)
033104	004767	146154		CALL   	001264			; VWKILL(VAR352)
033110	062706	000052		ADD    	#000052, SP
033114	000207			RETURN 	
-------------------------------------------------------------
033116	160662	027325	027056	.ASCIZ	/................./
	027056	027056	027056	.EVEN
	027056	027056	027056
	027056	000000

033144	151346	161325	027320	.ASCIZ	/.............../
	027056	027056	027056	.EVEN
	027056	027056	027056
	027056	000000

033172	150340	161724	154323	.ASCIZ	/............../
	027056	027056	027056	.EVEN
	027056	027056	027056
	027056	000000

033220	150335	027056	027056	.ASCIZ	/................../
	027056	027056	027056	.EVEN
	027056	027056	027056
	027056	000000

033246	155355	150340	152735	.ASCIZ	/............../
	027056	027056	027056	.EVEN
	027056	027056	027056
	027056	000000
=============================================================
; PROCEDURE (RAND)
033274	011404			MOV    	(R4), R4
033276	011404			MOV    	(R4), R4
033300	011404			MOV    	(R4), R4
033302	011404			MOV    	(R4), R4
033304	011404			MOV    	(R4), R4
033306	011404			MOV    	(R4), R4
033310	011404			MOV    	(R4), R4
033312	011404			MOV    	(R4), R4
033314	011404			MOV    	(R4), R4
033316	010446			MOV    	R4, -(SP)
033320	011600			MOV    	(SP), R0
033322	011046			MOV    	(R0), -(SP)
033324	012746	031425		MOV    	#031425, -(SP)
033330	004767	023646		CALL   	057202	; $B116
033334	062716	015415		ADD    	#015415, (SP)
033340	012601			MOV    	(SP)+, R1
033342	042701	100000		BIC    	#100000, R1
033346	010110			MOV    	R1, (R0)		; LOC00:=(LOC00*31425+15415) MOD 10000
033350	011001			MOV    	(R0), R1
033352	000241			CLC    	
033354	006001			ROR    	R1
033356	006201			ASR    	R1
033360	006201			ASR    	R1
033362	006201			ASR    	R1
033364	006201			ASR    	R1
033366	042701	177400		BIC    	#177400, R1
033372	010160	000002		MOV    	R1, 000002(R0)		; LOC02:=(LOC00 DIV 40) AND 377
033376	011001			MOV    	(R0), R1
033400	042701	177760		BIC    	#177760, R1
033404	010160	000004		MOV    	R1, 000004(R0)		; LOC04:=LOC00 AND 17
033410	011001			MOV    	(R0), R1
033412	105001			CLRB   	R1
033414	000301			SWAB   	R1
033416	000241			CLC    	
033420	006001			ROR    	R1
033422	006201			ASR    	R1
033424	006201			ASR    	R1
033426	006201			ASR    	R1
033430	006201			ASR    	R1
033432	042701	177776		BIC    	#177776, R1
033436	010160	000006		MOV    	R1, 000006(R0)		; LOC06:=(LOC00 DIV 20000) AND 1
033442	062706	000002		ADD    	#000002, SP
033446	000207			RETURN 	
=====----------=========----------=========-----------=======
; PROCEDURE (RANDWIN)
033450	162706	000422		SUB    	#000422, SP
; VAR @SP:UINT; 2(SP),4(SP),6(SP),10(SP),12(SP),14(SP):INTEGER; 16(SP):ARRAY[1..14]OF WINTYP; 376(SP):WINTYP
033454	012716	030071		MOV    	#030071, (SP)		; @SP:=30071
033460	012766	000002	000400	MOV    	#000002, 000400(SP)	; 376(SP).WNUM:=2
033466	010600			MOV    	SP, R0
033470	062700	000376		ADD    	#000376, R0
033474	010046			MOV    	R0, -(SP)
033476	004767	145566		CALL   	001270			; VWTAKE(376(SP))
033502	010600			MOV    	SP, R0
033504	062700	000376		ADD    	#000376, R0
033510	010601			MOV    	SP, R1
033512	062701	000016		ADD    	#000016, R1
033516	012702	000012		MOV    	#000012, R2
033522	012021			MOV    	(R0)+, (R1)+		; 16(SP)[1]:=376(SP)
033524	005302			DEC    	R2
033526	001375			BNE    	033522
033530	010500			MOV    	R5, R0
033532	062700	000422		ADD    	#000422, R0
033536	010601			MOV    	SP, R1
033540	062701	000042		ADD    	#000042, R1
033544	012702	000012		MOV    	#000012, R2
033550	012021			MOV    	(R0)+, (R1)+		; 16(SP)[2]:=VAR422
033552	005302			DEC    	R2
033554	001375			BNE    	033550
033556	010500			MOV    	R5, R0
033560	062700	000446		ADD    	#000446, R0
033564	010601			MOV    	SP, R1
033566	062701	000066		ADD    	#000066, R1
033572	012702	000012		MOV    	#000012, R2
033576	012021			MOV    	(R0)+, (R1)+		; 16(SP)[3]:=VAR446
033600	005302			DEC    	R2
033602	001375			BNE    	033576
033604	010500			MOV    	R5, R0
033606	062700	000472		ADD    	#000472, R0
033612	010601			MOV    	SP, R1
033614	062701	000112		ADD    	#000112, R1
033620	012702	000012		MOV    	#000012, R2
033624	012021			MOV    	(R0)+, (R1)+		; 16(SP)[4]:=VAR472
033626	005302			DEC    	R2
033630	001375			BNE    	033624
033632	010500			MOV    	R5, R0
033634	062700	000516		ADD    	#000516, R0
033640	010601			MOV    	SP, R1
033642	062701	000136		ADD    	#000136, R1
033646	012702	000012		MOV    	#000012, R2
033652	012021			MOV    	(R0)+, (R1)+		; 16(SP)[5]:=VAR516
033654	005302			DEC    	R2
033656	001375			BNE    	033652
033660	010500			MOV    	R5, R0
033662	062700	000352		ADD    	#000352, R0
033666	010601			MOV    	SP, R1
033670	062701	000162		ADD    	#000162, R1
033674	012702	000012		MOV    	#000012, R2
033700	012021			MOV    	(R0)+, (R1)+		; 16(SP)[6]:=VAR352
033702	005302			DEC    	R2
033704	001375			BNE    	033700
033706	010500			MOV    	R5, R0
033710	062700	000542		ADD    	#000542, R0
033714	010601			MOV    	SP, R1
033716	062701	000206		ADD    	#000206, R1
033722	012702	000012		MOV    	#000012, R2
033726	012021			MOV    	(R0)+, (R1)+		; 16(SP)[7]:=VAR542
033730	005302			DEC    	R2
033732	001375			BNE    	033726
033734	010500			MOV    	R5, R0
033736	062700	002126		ADD    	#002126, R0
033742	010601			MOV    	SP, R1
033744	062701	000232		ADD    	#000232, R1
033750	012702	000012		MOV    	#000012, R2
033754	012021			MOV    	(R0)+, (R1)+		; 16(SP)[10]:=VAR2126
033756	005302			DEC    	R2
033760	001375			BNE    	033754
033762	010500			MOV    	R5, R0
033764	062700	002152		ADD    	#002152, R0
033770	010601			MOV    	SP, R1
033772	062701	000256		ADD    	#000256, R1
033776	012702	000012		MOV    	#000012, R2
034002	012021			MOV    	(R0)+, (R1)+		; 16(SP)[11]:=VAR2152
034004	005302			DEC    	R2
034006	001375			BNE    	034002
034010	010500			MOV    	R5, R0
034012	062700	002176		ADD    	#002176, R0
034016	010601			MOV    	SP, R1
034020	062701	000302		ADD    	#000302, R1
034024	012702	000012		MOV    	#000012, R2
034030	012021			MOV    	(R0)+, (R1)+		; 16(SP)[12]:=VAR2176
034032	005302			DEC    	R2
034034	001375			BNE    	034030
034036	010500			MOV    	R5, R0
034040	062700	002222		ADD    	#002222, R0
034044	010601			MOV    	SP, R1
034046	062701	000326		ADD    	#000326, R1
034052	012702	000012		MOV    	#000012, R2
034056	012021			MOV    	(R0)+, (R1)+		; 16(SP)[13]:=VAR2222
034060	005302			DEC    	R2
034062	001375			BNE    	034056
034064	010500			MOV    	R5, R0
034066	062700	002246		ADD    	#002246, R0
034072	010601			MOV    	SP, R1
034074	062701	000352		ADD    	#000352, R1
034100	012702	000012		MOV    	#000012, R2
034104	012021			MOV    	(R0)+, (R1)+		; 16(SP)[14]:=VAR2246
034106	005302			DEC    	R2
034110	001375			BNE    	034104
034112	010600			MOV    	SP, R0
034114	062700	000010		ADD    	#000010, R0		; FOR 10(SP):=2 TO 14
034120	010046			MOV    	R0, -(SP)
034122	012746	000002		MOV    	#000002, -(SP)
034126	012746	000014		MOV    	#000014, -(SP)
034132	016676	000002	000004	MOV    	000002(SP), @000004(SP)
034140	027616	000004		CMP    	@000004(SP), (SP)
034144	003402			BLE    	034152
034146	000167	000044		JMP    	034216
034152	016646	000016		MOV    	000016(SP), -(SP)
034156	012746	000024		MOV    	#000024, -(SP)
034162	004767	023014		CALL   	057202	; $B116
034166	010600			MOV    	SP, R0
034170	062600			ADD    	(SP)+, R0
034172	062700	000002		ADD    	#000002, R0
034176	010046			MOV    	R0, -(SP)
034200	004767	145054		CALL   	001260			; VWCRE(16(SP)[10(SP)])
034204	005276	000004		INC    	@000004(SP)		; NEXT 10(SP)
034210	102402			BVS    	034216
034212	000167	177722		JMP    	034140
034216	062706	000006		ADD    	#000006, SP		; END FOR 10(SP)
034222	010600			MOV    	SP, R0
034224	062700	000010		ADD    	#000010, R0		; FOR 10(SP):=1 TO 24
034230	010046			MOV    	R0, -(SP)
034232	012746	000001		MOV    	#000001, -(SP)
034236	012746	000024		MOV    	#000024, -(SP)
034242	016676	000002	000004	MOV    	000002(SP), @000004(SP)
034250	027616	000004		CMP    	@000004(SP), (SP)
034254	003402			BLE    	034262
034256	000167	000376		JMP    	034660
034262	010600			MOV    	SP, R0
034264	062700	000020		ADD    	#000020, R0		; FOR 12(SP):=1 TO 14
034270	010046			MOV    	R0, -(SP)
034272	012746	000001		MOV    	#000001, -(SP)
034276	012746	000014		MOV    	#000014, -(SP)
034302	016676	000002	000004	MOV    	000002(SP), @000004(SP)
034310	027616	000004		CMP    	@000004(SP), (SP)
034314	003402			BLE    	034322
034316	000167	000320		JMP    	034642
034322	012746	023420		MOV    	#023420, -(SP)
034326	004767	146022		CALL   	002354			; L02354(23420)
034332	010604			MOV    	SP, R4
034334	062704	000014		ADD    	#000014, R4
034340	004767	176752		CALL   	033316			; L33316
034344	016646	000026		MOV    	000026(SP), -(SP)
034350	012746	000024		MOV    	#000024, -(SP)
034354	004767	022622		CALL   	057202	; $B116
034360	010600			MOV    	SP, R0
034362	062600			ADD    	(SP)+, R0
034364	062700	000010		ADD    	#000010, R0
034370	010601			MOV    	SP, R1
034372	062701	000412		ADD    	#000412, R1
034376	012702	000012		MOV    	#000012, R2
034402	012021			MOV    	(R0)+, (R1)+		; 376(SP):=16(SP)[12(SP)]
034404	005302			DEC    	R2
034406	001375			BNE    	034402
034410	016646	000024		MOV    	000024(SP), -(SP)
034414	012746	000024		MOV    	#000024, -(SP)
034420	004767	022724		CALL   	057350	; $B82
034424	022627	000001		CMP    	(SP)+, #000001		; IF (10(SP) MOD 24) >=1
034430	002002			BGE    	034436
034432	000167	000172		JMP    	034630
034436	010603			MOV    	SP, R3			; THEN 1
034440	062703	000412		ADD    	#000412, R3		; WITH 376(SP)
034444	016300	000020		MOV    	000020(R3), R0
034450	166300	000016		SUB    	000016(R3), R0
034454	010066	000030		MOV    	R0, 000030(SP)		; 14(SP):=(376(SP)).SX2-(376(SP)).SX1
034460	016600	000020		MOV    	000020(SP), R0
034464	062700	000002		ADD    	#000002, R0
034470	010063	000016		MOV    	R0, 000016(R3)		; (376(SP)).SX1:=4(SP)+2
034474	016600	000020		MOV    	000020(SP), R0
034500	066600	000030		ADD    	000030(SP), R0
034504	010063	000020		MOV    	R0, 000020(R3)		; (376(SP)).SX2:=4(SP)+14(SP)
034510	016300	000014		MOV    	000014(R3), R0
034514	166300	000012		SUB    	000012(R3), R0
034520	010066	000030		MOV    	R0, 000030(SP)		; 14(SP):=(376(SP)).SY2-(376(SP)).SY1
034524	016663	000016	000012	MOV    	000016(SP), 000012(R3)	; (376(SP)).SY1:=2(SP)
034532	016600	000016		MOV    	000016(SP), R0
034536	066600	000030		ADD    	000030(SP), R0
034542	010063	000014		MOV    	R0, 000014(R3)		; (376(SP)).SY2:=2(SP)+14(SP)
034546	005766	000022		TST    	000022(SP)		; IF 6(SP)<>0
034552	001002			BNE    	034560
034554	000167	000012		JMP    	034572
034560	012763	001002	000022	MOV    	#001002, 000022(R3)	; THEN 2 ; (376(SP)).DEN:=1002
034566	000167	000006		JMP    	034600
034572	012763	000401	000022	MOV    	#000401, 000022(R3)	; ELSE 2 ; (376(SP)).DEN:=401 ; END IF 2
034600	010600			MOV    	SP, R0
034602	062700	000412		ADD    	#000412, R0
034606	010046			MOV    	R0, -(SP)
034610	004767	144444		CALL   	001260			; VWCRE(376(SP))
034614	010600			MOV    	SP, R0
034616	062700	000412		ADD    	#000412, R0
034622	010046			MOV    	R0, -(SP)
034624	004767	144444		CALL   	001274			; VWFORE(376(SP)) ; END IF 1
034630	005276	000004		INC    	@000004(SP)		; NEXT 12(SP)
034634	102402			BVS    	034642
034636	000167	177446		JMP    	034310
034642	062706	000006		ADD    	#000006, SP		; END FOR 12(SP)
034646	005276	000004		INC    	@000004(SP)		; NEXT 10(SP)
034652	102402			BVS    	034660
034654	000167	177370		JMP    	034250
034660	062706	000006		ADD    	#000006, SP		; END FOR 10(SP)
034664	010600			MOV    	SP, R0
034666	062700	000016		ADD    	#000016, R0
034672	010046			MOV    	R0, -(SP)
034674	004767	144360		CALL   	001260			; VWCRE(16(SP)[1])
034700	062706	000422		ADD    	#000422, SP
034704	000207			RETURN 	
=============================================================
034706	011404			MOV    	(R4), R4
034710	011404			MOV    	(R4), R4
034712	011404			MOV    	(R4), R4
034714	011404			MOV    	(R4), R4
034716	011404			MOV    	(R4), R4
034720	011404			MOV    	(R4), R4
034722	011404			MOV    	(R4), R4
034724	011404			MOV    	(R4), R4
034726	011404			MOV    	(R4), R4
034730	010446			MOV    	R4, -(SP)
034732	011600			MOV    	(SP), R0
034734	010001			MOV    	R0, R1
034736	062701	001644		ADD    	#001644, R1		; FOR LOC1644:=0 TO 17
034742	010146			MOV    	R1, -(SP)
034744	005046			CLR    	-(SP)
034746	012746	000017		MOV    	#000017, -(SP)
034752	016676	000002	000004	MOV    	000002(SP), @000004(SP)
034760	027616	000004		CMP    	@000004(SP), (SP)
034764	003402			BLE    	034772
034766	000167	000300		JMP    	035272
034772	016600	000006		MOV    	000006(SP), R0
034776	010001			MOV    	R0, R1
035000	066001	001644		ADD    	001644(R0), R1
035004	116160	000004	001650	MOVB   	000004(R1), 001650(R0)	; LOC1650:=LOC00.C[LOC1644]
035012	016001	001644		MOV    	001644(R0), R1
035016	062701	000020		ADD    	#000020, R1
035022	060001			ADD    	R0, R1
035024	116160	000004	001651	MOVB   	000004(R1), 001651(R0)	; LOC1651:=LOC00.C[LOC1644+20]
035032	016001	001644		MOV    	001644(R0), R1
035036	006301			ASL    	R1
035040	060001			ADD    	R0, R1
035042	116002	001650		MOVB   	001650(R0), R2
035046	042702	177743		BIC    	#177743, R2
035052	006302			ASL    	R2
035054	116003	001651		MOVB   	001651(R0), R3
035060	042703	177747		BIC    	#177747, R3
035064	005703			TST    	R3
035066	100001			BPL    	035072
035070	005303			DEC    	R3
035072	006203			ASR    	R3
035074	006203			ASR    	R3
035076	100001			BPL    	035102
035100	005203			INC    	R3
035102	060203			ADD    	R2, R3
035104	010361	001004		MOV    	R3, 001004(R1)		; LOC1004[LOC1644]:=(ORD(LOC1650) AND 34)*2+((ORD(LOC1651) AND 30) DIV 4)
035110	016001	001644		MOV    	001644(R0), R1
035114	006301			ASL    	R1
035116	060001			ADD    	R0, R1
035120	116002	001650		MOVB   	001650(R0), R2
035124	042702	177437		BIC    	#177437, R2
035130	005702			TST    	R2
035132	100001			BPL    	035136
035134	005302			DEC    	R2
035136	006202			ASR    	R2
035140	006202			ASR    	R2
035142	100001			BPL    	035146
035144	005202			INC    	R2
035146	116003	001651		MOVB   	001651(R0), R3
035152	042703	177437		BIC    	#177437, R3
035156	005703			TST    	R3
035160	100001			BPL    	035164
035162	005303			DEC    	R3
035164	006203			ASR    	R3
035166	006203			ASR    	R3
035170	006203			ASR    	R3
035172	006203			ASR    	R3
035174	006203			ASR    	R3
035176	100001			BPL    	035202
035200	005203			INC    	R3
035202	060203			ADD    	R2, R3
035204	010361	001044		MOV    	R3, 001044(R1)		; LOC1044[LOC1644]:=((ORD(LOC1650) AND 340) DIV 4)+((ORD(LOC1651) AND 340) DIV 40)
035210	016001	001644		MOV    	001644(R0), R1
035214	006301			ASL    	R1
035216	060001			ADD    	R0, R1
035220	116002	001650		MOVB   	001650(R0), R2
035224	042702	177774		BIC    	#177774, R2
035230	006302			ASL    	R2
035232	006302			ASL    	R2
035234	006302			ASL    	R2
035236	006302			ASL    	R2
035240	116003	001651		MOVB   	001651(R0), R3
035244	042703	177770		BIC    	#177770, R3
035250	006303			ASL    	R3
035252	060203			ADD    	R2, R3
035254	010361	001104		MOV    	R3, 001104(R1)		; LOC1104[LOC1644]:=(ORD(LOC1650) AND 3)*20+(ORD(LOC1651) AND 7)*2
035260	005276	000004		INC    	@000004(SP)		; NEXT LOC1644
035264	102402			BVS    	035272
035266	000167	177466		JMP    	034760
035272	062706	000006		ADD    	#000006, SP		; END FOR LOC1644
035276	011600			MOV    	(SP), R0
035300	010001			MOV    	R0, R1
035302	062701	001004		ADD    	#001004, R1
035306	010002			MOV    	R0, R2
035310	062702	001144		ADD    	#001144, R2
035314	012703	000020		MOV    	#000020, R3
035320	012122			MOV    	(R1)+, (R2)+		; LOC1144:=LOC1004
035322	005303			DEC    	R3
035324	001375			BNE    	035320
035326	010001			MOV    	R0, R1
035330	062701	001044		ADD    	#001044, R1
035334	010002			MOV    	R0, R2
035336	062702	001204		ADD    	#001204, R2
035342	012703	000020		MOV    	#000020, R3
035346	012122			MOV    	(R1)+, (R2)+		; LOC1204:=LOC1044
035350	005303			DEC    	R3
035352	001375			BNE    	035346
035354	010001			MOV    	R0, R1
035356	062701	001104		ADD    	#001104, R1
035362	010002			MOV    	R0, R2
035364	062702	001244		ADD    	#001244, R2
035370	012703	000020		MOV    	#000020, R3
035374	012122			MOV    	(R1)+, (R2)+		; LOC1244:=LOC1104
035376	005303			DEC    	R3
035400	001375			BNE    	035374
035402	010001			MOV    	R0, R1
035404	062701	001004		ADD    	#001004, R1
035410	010002			MOV    	R0, R2
035412	062702	001304		ADD    	#001304, R2
035416	012703	000020		MOV    	#000020, R3
035422	012122			MOV    	(R1)+, (R2)+		; LOC1304:=LOC1004
035424	005303			DEC    	R3
035426	001375			BNE    	035422
035430	010001			MOV    	R0, R1
035432	062701	001044		ADD    	#001044, R1
035436	010002			MOV    	R0, R2
035440	062702	001344		ADD    	#001344, R2
035444	012703	000020		MOV    	#000020, R3
035450	012122			MOV    	(R1)+, (R2)+		; LOC1344:=LOC1044
035452	005303			DEC    	R3
035454	001375			BNE    	035450
035456	010001			MOV    	R0, R1
035460	062701	001104		ADD    	#001104, R1
035464	010002			MOV    	R0, R2
035466	062702	001404		ADD    	#001404, R2
035472	012703	000020		MOV    	#000020, R3
035476	012122			MOV    	(R1)+, (R2)+		; LOC1404:=LOC1104
035500	005303			DEC    	R3
035502	001375			BNE    	035476
035504	062706	000002		ADD    	#000002, SP
035510	000207			RETURN 	
======--------=======-----------==========-----------========
035512	011404			MOV    	(R4), R4
035514	011404			MOV    	(R4), R4
035516	011404			MOV    	(R4), R4
035520	011404			MOV    	(R4), R4
035522	011404			MOV    	(R4), R4
035524	011404			MOV    	(R4), R4
035526	011404			MOV    	(R4), R4
035530	011404			MOV    	(R4), R4
035532	011404			MOV    	(R4), R4
035534	005046			CLR    	-(SP)		; VAR 2(SP):INTEGER
035536	010446			MOV    	R4, -(SP)
035540	010600			MOV    	SP, R0
035542	062700	000002		ADD    	#000002, R0		; FOR 2(SP):=0 TO 17
035546	010046			MOV    	R0, -(SP)
035550	005046			CLR    	-(SP)
035552	012746	000017		MOV    	#000017, -(SP)
035556	016676	000002	000004	MOV    	000002(SP), @000004(SP)
035564	027616	000004		CMP    	@000004(SP), (SP)
035570	003402			BLE    	035576
035572	000167	000546		JMP    	036344
035576	016600	000006		MOV    	000006(SP), R0
035602	016601	000010		MOV    	000010(SP), R1
035606	006301			ASL    	R1
035610	060001			ADD    	R0, R1
035612	016101	001144		MOV    	001144(R1), R1
035616	042701	000077		BIC    	#000077, R1		; IF (LOC1144[2(SP)] AND 177700)=0
035622	001402			BEQ    	035630
035624	000167	000026		JMP    	035656
035630	016601	000010		MOV    	000010(SP), R1		; THEN
035634	006301			ASL    	R1
035636	060001			ADD    	R0, R1
035640	016602	000010		MOV    	000010(SP), R2
035644	006302			ASL    	R2
035646	060002			ADD    	R0, R2
035650	016261	001144	001004	MOV    	001144(R2), 001004(R1)	; LOC1004[2(SP)]:=LOC1144[2(SP)] ; END IF
035656	016600	000006		MOV    	000006(SP), R0
035662	016601	000010		MOV    	000010(SP), R1
035666	006301			ASL    	R1
035670	060001			ADD    	R0, R1
035672	016101	001204		MOV    	001204(R1), R1
035676	042701	000077		BIC    	#000077, R1		; IF (LOC1204[2(SP)] AND 177700)=0
035702	001402			BEQ    	035710
035704	000167	000026		JMP    	035736
035710	016601	000010		MOV    	000010(SP), R1		; THEN
035714	006301			ASL    	R1
035716	060001			ADD    	R0, R1
035720	016602	000010		MOV    	000010(SP), R2
035724	006302			ASL    	R2
035726	060002			ADD    	R0, R2
035730	016261	001204	001044	MOV    	001204(R2), 001044(R1)	; LOC1044[2(SP)]:=LOC1204[2(SP)] ; END IF
035736	016600	000006		MOV    	000006(SP), R0
035742	016601	000010		MOV    	000010(SP), R1
035746	006301			ASL    	R1
035750	060001			ADD    	R0, R1
035752	016101	001244		MOV    	001244(R1), R1
035756	042701	000077		BIC    	#000077, R1		; IF (LOC1244[2(SP)] AND 177700)=0
035762	001402			BEQ    	035770
035764	000167	000026		JMP    	036016
035770	016601	000010		MOV    	000010(SP), R1		; THEN
035774	006301			ASL    	R1
035776	060001			ADD    	R0, R1
036000	016602	000010		MOV    	000010(SP), R2
036004	006302			ASL    	R2
036006	060002			ADD    	R0, R2
036010	016261	001244	001104	MOV    	001244(R2), 001104(R1)	; LOC1104[2(SP)]:=LOC1244[2(SP)] ; END IF
036016	016600	000006		MOV    	000006(SP), R0
036022	016601	000010		MOV    	000010(SP), R1
036026	006301			ASL    	R1
036030	060001			ADD    	R0, R1
036032	016101	001004		MOV    	001004(R1), R1
036036	042701	177707		BIC    	#177707, R1
036042	005701			TST    	R1
036044	100001			BPL    	036050
036046	005301			DEC    	R1
036050	006201			ASR    	R1
036052	100001			BPL    	036056
036054	005201			INC    	R1
036056	016602	000010		MOV    	000010(SP), R2
036062	006302			ASL    	R2
036064	060002			ADD    	R0, R2
036066	016202	001044		MOV    	001044(R2), R2
036072	042702	177707		BIC    	#177707, R2
036076	006302			ASL    	R2
036100	006302			ASL    	R2
036102	060102			ADD    	R1, R2
036104	016601	000010		MOV    	000010(SP), R1
036110	006301			ASL    	R1
036112	060001			ADD    	R0, R1
036114	016101	001104		MOV    	001104(R1), R1
036120	042701	177717		BIC    	#177717, R1
036124	005701			TST    	R1
036126	100001			BPL    	036132
036130	005301			DEC    	R1
036132	006201			ASR    	R1
036134	006201			ASR    	R1
036136	006201			ASR    	R1
036140	006201			ASR    	R1
036142	100001			BPL    	036146
036144	005201			INC    	R1
036146	060201			ADD    	R2, R1
036150	110160	001650		MOVB   	R1, 001650(R0)		; LOC1650:=CHR(((LOC1004[2(SP)] AND 70) DIV 2)+((LOC1044[2(SP)] AND 70)*4)+((LOC1104[2(SP)] AND 60) DIV 20))
036154	016601	000010		MOV    	000010(SP), R1
036160	006301			ASL    	R1
036162	060001			ADD    	R0, R1
036164	016101	001004		MOV    	001004(R1), R1
036170	042701	177771		BIC    	#177771, R1
036174	006301			ASL    	R1
036176	006301			ASL    	R1
036200	016602	000010		MOV    	000010(SP), R2
036204	006302			ASL    	R2
036206	060002			ADD    	R0, R2
036210	016202	001044		MOV    	001044(R2), R2
036214	042702	177770		BIC    	#177770, R2
036220	006302			ASL    	R2
036222	006302			ASL    	R2
036224	006302			ASL    	R2
036226	006302			ASL    	R2
036230	006302			ASL    	R2
036232	060102			ADD    	R1, R2
036234	016601	000010		MOV    	000010(SP), R1
036240	006301			ASL    	R1
036242	060001			ADD    	R0, R1
036244	016101	001104		MOV    	001104(R1), R1
036250	042701	177761		BIC    	#177761, R1
036254	005701			TST    	R1
036256	100001			BPL    	036262
036260	005301			DEC    	R1
036262	006201			ASR    	R1
036264	100001			BPL    	036270
036266	005201			INC    	R1
036270	060201			ADD    	R2, R1
036272	110160	001651		MOVB   	R1, 001651(R0)		; LOC1651:=CHR(((LOC1004[2(SP)] AND 6)*4)+((LOC1044[2(SP)] AND 7)*40)+((LOC1104[2(SP)] AND 16) DIV 2))
036276	010001			MOV    	R0, R1
036300	066601	000010		ADD    	000010(SP), R1
036304	116061	001650	000004	MOVB   	001650(R0), 000004(R1)	; LOC00.C[2(SP)]:=LOC1650
036312	016601	000010		MOV    	000010(SP), R1
036316	062701	000020		ADD    	#000020, R1
036322	060001			ADD    	R0, R1
036324	116061	001651	000004	MOVB   	001651(R0), 000004(R1)	; LOC00.C[2(SP)+20]:=LOC1651
036332	005276	000004		INC    	@000004(SP)		; NEXT 2(SP)
036336	102402			BVS    	036344
036340	000167	177220		JMP    	035564
036344	062706	000006		ADD    	#000006, SP		; END FOR 2(SP)
036350	011600			MOV    	(SP), R0
036352	010046			MOV    	R0, -(SP)
036354	004767	142640		CALL   	001220			; PLMODx(LOC00)
036360	062706	000004		ADD    	#000004, SP
036364	000207			RETURN 	
=====--------========----------==========---------===========
; PROCEDURE 6(SP):INTEGER
036366	011404			MOV    	(R4), R4
036370	011404			MOV    	(R4), R4
036372	011404			MOV    	(R4), R4
036374	011404			MOV    	(R4), R4
036376	011404			MOV    	(R4), R4
036400	011404			MOV    	(R4), R4
036402	011404			MOV    	(R4), R4
036404	011404			MOV    	(R4), R4
036406	011404			MOV    	(R4), R4
036410	005046			CLR    	-(SP)		; VAR 2(SP):INTEGER
036412	010446			MOV    	R4, -(SP)
036414	011600			MOV    	(SP), R0
036416	016660	000006	000002	MOV    	000006(SP), 000002(R0)	; LOC00.MODPAL:=6(SP)
036424	010046			MOV    	R0, -(SP)
036426	004767	142572		CALL   	001224			; PLSAVx(LOC00)
036432	010604			MOV    	SP, R4
036434	004767	176266		CALL   	034726			; L34730
036440	010600			MOV    	SP, R0
036442	062700	000002		ADD    	#000002, R0		; FOR 2(SP):=0 TO 17
036446	010046			MOV    	R0, -(SP)
036450	005046			CLR    	-(SP)
036452	012746	000017		MOV    	#000017, -(SP)
036456	016676	000002	000004	MOV    	000002(SP), @000004(SP)
036464	027616	000004		CMP    	@000004(SP), (SP)
036470	003402			BLE    	036476
036472	000167	000122		JMP    	036620
036476	016600	000006		MOV    	000006(SP), R0
036502	016601	000010		MOV    	000010(SP), R1
036506	006301			ASL    	R1
036510	060001			ADD    	R0, R1
036512	016602	000010		MOV    	000010(SP), R2
036516	006302			ASL    	R2
036520	060002			ADD    	R0, R2
036522	016202	001144		MOV    	001144(R2), R2
036526	006302			ASL    	R2
036530	016603	000010		MOV    	000010(SP), R3
036534	006303			ASL    	R3
036536	060003			ADD    	R0, R3
036540	016303	001204		MOV    	001204(R3), R3
036544	006303			ASL    	R3
036546	006303			ASL    	R3
036550	060203			ADD    	R2, R3
036552	016602	000010		MOV    	000010(SP), R2
036556	006302			ASL    	R2
036560	060002			ADD    	R0, R2
036562	066203	001244		ADD    	001244(R2), R3
036566	006303			ASL    	R3
036570	006303			ASL    	R3
036572	006303			ASL    	R3
036574	006303			ASL    	R3
036576	006303			ASL    	R3
036600	006303			ASL    	R3
036602	010361	001604		MOV    	R3, 001604(R1)		; LOC1604[2(SP)]:=(LOC1144[2(SP)]*2+LOC1204[2(SP)]*4+LOC1244[2(SP)])*100
036606	005276	000004		INC    	@000004(SP)		; NEXT 2(SP)
036612	102402			BVS    	036620
036614	000167	177644		JMP    	036464
036620	062706	000006		ADD    	#000006, SP		; END FOR 2(SP)
036624	010600			MOV    	SP, R0
036626	062700	000002		ADD    	#000002, R0		; FOR 2(SP):=0 TO 17
036632	010046			MOV    	R0, -(SP)
036634	005046			CLR    	-(SP)
036636	012746	000017		MOV    	#000017, -(SP)
036642	016676	000002	000004	MOV    	000002(SP), @000004(SP)
036650	027616	000004		CMP    	@000004(SP), (SP)
036654	003402			BLE    	036662
036656	000167	000274		JMP    	037156
036662	016600	000006		MOV    	000006(SP), R0
036666	016601	000010		MOV    	000010(SP), R1
036672	006301			ASL    	R1
036674	060001			ADD    	R0, R1
036676	016602	000010		MOV    	000010(SP), R2
036702	006302			ASL    	R2
036704	060002			ADD    	R0, R2
036706	016202	001144		MOV    	001144(R2), R2
036712	006302			ASL    	R2
036714	006302			ASL    	R2
036716	006302			ASL    	R2
036720	006302			ASL    	R2
036722	006302			ASL    	R2
036724	006302			ASL    	R2
036726	016603	000010		MOV    	000010(SP), R3
036732	006303			ASL    	R3
036734	060003			ADD    	R0, R3
036736	016346	001604		MOV    	001604(R3), -(SP)
036742	012746	000007		MOV    	#000007, -(SP)
036746	004767	020344		CALL   	057316	; $B80
036752	162602			SUB    	(SP)+, R2
036754	010261	001444		MOV    	R2, 001444(R1)		; LOC1444[2(SP)]:=LOC1144[2(SP)]*100-(LOC1604[2(SP)] DIV 7)
036760	016601	000010		MOV    	000010(SP), R1
036764	006301			ASL    	R1
036766	060001			ADD    	R0, R1
036770	016602	000010		MOV    	000010(SP), R2
036774	006302			ASL    	R2
036776	060002			ADD    	R0, R2
037000	016202	001204		MOV    	001204(R2), R2
037004	006302			ASL    	R2
037006	006302			ASL    	R2
037010	006302			ASL    	R2
037012	006302			ASL    	R2
037014	006302			ASL    	R2
037016	006302			ASL    	R2
037020	016603	000010		MOV    	000010(SP), R3
037024	006303			ASL    	R3
037026	060003			ADD    	R0, R3
037030	016346	001604		MOV    	001604(R3), -(SP)
037034	012746	000007		MOV    	#000007, -(SP)
037040	004767	020252		CALL   	057316	; $B80
037044	162602			SUB    	(SP)+, R2
037046	010261	001504		MOV    	R2, 001504(R1)		; LOC1504[2(SP)]:=LOC1204[2(SP)]*100-(LOC1604[2(SP)] DIV 7)
037052	016601	000010		MOV    	000010(SP), R1
037056	006301			ASL    	R1
037060	060001			ADD    	R0, R1
037062	016602	000010		MOV    	000010(SP), R2
037066	006302			ASL    	R2
037070	060002			ADD    	R0, R2
037072	016202	001244		MOV    	001244(R2), R2
037076	006302			ASL    	R2
037100	006302			ASL    	R2
037102	006302			ASL    	R2
037104	006302			ASL    	R2
037106	006302			ASL    	R2
037110	006302			ASL    	R2
037112	016603	000010		MOV    	000010(SP), R3
037116	006303			ASL    	R3
037120	060003			ADD    	R0, R3
037122	016346	001604		MOV    	001604(R3), -(SP)
037126	012746	000007		MOV    	#000007, -(SP)
037132	004767	020160		CALL   	057316	; $B80
037136	162602			SUB    	(SP)+, R2
037140	010261	001544		MOV    	R2, 001544(R1)		; LOC1544[2(SP)]:=LOC1244[2(SP)]*100-(LOC1604[2(SP)] DIV 7)
037144	005276	000004		INC    	@000004(SP)		; NEXT 2(SP)
037150	102402			BVS    	037156
037152	000167	177472		JMP    	036650
037156	062706	000006		ADD    	#000006, SP		; END FOR 2(SP)
037162	016666	000004	000006	MOV    	000004(SP), 000006(SP)
037170	062706	000006		ADD    	#000006, SP
037174	000207			RETURN 	
========----------==========-----------========--------======
; PROCEDURE 12(SP):INTEGER
037176	011404			MOV    	(R4), R4
037200	011404			MOV    	(R4), R4
037202	011404			MOV    	(R4), R4
037204	011404			MOV    	(R4), R4
037206	011404			MOV    	(R4), R4
037210	011404			MOV    	(R4), R4
037212	011404			MOV    	(R4), R4
037214	011404			MOV    	(R4), R4
037216	011404			MOV    	(R4), R4
037220	162706	000006		SUB    	#000006, SP	; VAR 2(SP):INTEGER; 4(SP):REAL
037224	010446			MOV    	R4, -(SP)
037226	016646	000012		MOV    	000012(SP), -(SP)
037232	004767	020276		CALL   	057534	; $B88
037236	012666	000006		MOV    	(SP)+, 000006(SP)	; 4(SP):=12(SP)
037242	012666	000006		MOV    	(SP)+, 000006(SP)
037246	010600			MOV    	SP, R0
037250	062700	000002		ADD    	#000002, R0		; FOR 2(SP):=0 TO 17
037254	010046			MOV    	R0, -(SP)
037256	005046			CLR    	-(SP)
037260	012746	000017		MOV    	#000017, -(SP)
037264	016676	000002	000004	MOV    	000002(SP), @000004(SP)
037272	027616	000004		CMP    	@000004(SP), (SP)
037276	003402			BLE    	037304
037300	000167	000316		JMP    	037622
037304	016600	000006		MOV    	000006(SP), R0
037310	016601	000010		MOV    	000010(SP), R1
037314	006301			ASL    	R1
037316	060001			ADD    	R0, R1
037320	016602	000010		MOV    	000010(SP), R2
037324	006302			ASL    	R2
037326	060002			ADD    	R0, R2
037330	016603	000010		MOV    	000010(SP), R3
037334	006303			ASL    	R3
037336	060003			ADD    	R0, R3
037340	016346	001444		MOV    	001444(R3), -(SP)
037344	004767	020164		CALL   	057534	; $B88
037350	016646	000020		MOV    	000020(SP), -(SP)
037354	016646	000020		MOV    	000020(SP), -(SP)
037360	075026			FMUL	SP
037362	005046			CLR    	-(SP)
037364	012746	043200		MOV    	#043200, -(SP)
037370	075036			FDIV	SP
037372	004767	020316		CALL   	057714	; $B108
037376	016202	001304		MOV    	001304(R2), R2
037402	062602			ADD    	(SP)+, R2
037404	010261	001144		MOV    	R2, 001144(R1)		; LOC1144[2(SP)]:= LOC1304[2(SP)]+ROUND(LOC1444[2(SP)]*4(SP)/4096.0)
037410	016601	000010		MOV    	000010(SP), R1
037414	006301			ASL    	R1
037416	060001			ADD    	R0, R1
037420	016602	000010		MOV    	000010(SP), R2
037424	006302			ASL    	R2
037426	060002			ADD    	R0, R2
037430	016603	000010		MOV    	000010(SP), R3
037434	006303			ASL    	R3
037436	060003			ADD    	R0, R3
037440	016346	001504		MOV    	001504(R3), -(SP)
037444	004767	020064		CALL   	057534	; $B88
037450	016646	000020		MOV    	000020(SP), -(SP)
037454	016646	000020		MOV    	000020(SP), -(SP)
037460	075026			FMUL	SP
037462	005046			CLR    	-(SP)
037464	012746	043200		MOV    	#043200, -(SP)
037470	075036			FDIV	SP
037472	004767	020216		CALL   	057714	; $B108
037476	016202	001344		MOV    	001344(R2), R2
037502	062602			ADD    	(SP)+, R2
037504	010261	001204		MOV    	R2, 001204(R1)		; LOC1204[2(SP)]:= LOC1344[2(SP)]+ROUND(LOC1504[2(SP)]*4(SP)/4096.0)
037510	016601	000010		MOV    	000010(SP), R1
037514	006301			ASL    	R1
037516	060001			ADD    	R0, R1
037520	016602	000010		MOV    	000010(SP), R2
037524	006302			ASL    	R2
037526	060002			ADD    	R0, R2
037530	016603	000010		MOV    	000010(SP), R3
037534	006303			ASL    	R3
037536	060003			ADD    	R0, R3
037540	016346	001544		MOV    	001544(R3), -(SP)
037544	004767	017764		CALL   	057534	; $B88
037550	016646	000020		MOV    	000020(SP), -(SP)
037554	016646	000020		MOV    	000020(SP), -(SP)
037560	075026			FMUL	SP
037562	005046			CLR    	-(SP)
037564	012746	043200		MOV    	#043200, -(SP)
037570	075036			FDIV	SP
037572	004767	020116		CALL   	057714	; $B108
037576	016202	001404		MOV    	001404(R2), R2
037602	062602			ADD    	(SP)+, R2
037604	010261	001244		MOV    	R2, 001244(R1)		; LOC1244[2(SP)]:= LOC1404[2(SP)]+ROUND(LOC1544[2(SP)]*4(SP)/4096.0)
037610	005276	000004		INC    	@000004(SP)		; NEXT 2(SP)
037614	102402			BVS    	037622
037616	000167	177450		JMP    	037272
037622	062706	000006		ADD    	#000006, SP		; END FOR 2(SP)
037626	010604			MOV    	SP, R4
037630	004767	175676		CALL   	035532			; L35534
037634	016666	000010	000012	MOV    	000010(SP), 000012(SP)
037642	062706	000012		ADD    	#000012, SP
037646	000207			RETURN 	
=====-------=======----------=========--------======----=====
; PROCEDURE 6(SP):INTEGER
037650	011404			MOV    	(R4), R4
037652	011404			MOV    	(R4), R4
037654	011404			MOV    	(R4), R4
037656	011404			MOV    	(R4), R4
037660	011404			MOV    	(R4), R4
037662	011404			MOV    	(R4), R4
037664	011404			MOV    	(R4), R4
037666	011404			MOV    	(R4), R4
037670	011404			MOV    	(R4), R4
037672	005046			CLR    	-(SP)		; VAR 2(SP):INTEGER
037674	010446			MOV    	R4, -(SP)
037676	011600			MOV    	(SP), R0
037700	016660	000006	000002	MOV    	000006(SP), 000002(R0)	; LOC00.MODPAL:=6(SP)
037706	010046			MOV    	R0, -(SP)
037710	004767	141310		CALL   	001224			; PLSAVx(LOC00)
037714	010604			MOV    	SP, R4
037716	004767	175004		CALL   	034726			; L34730
037722	011600			MOV    	(SP), R0
037724	005060	001646		CLR    	001646(R0)		; LOC1646:=0
037730	010601			MOV    	SP, R1
037732	062701	000002		ADD    	#000002, R1		; FOR 2(SP):=0 TO 17
037736	010146			MOV    	R1, -(SP)
037740	005046			CLR    	-(SP)
037742	012746	000017		MOV    	#000017, -(SP)
037746	016676	000002	000004	MOV    	000002(SP), @000004(SP)
037754	027616	000004		CMP    	@000004(SP), (SP)
037760	003402			BLE    	037766
037762	000167	000170		JMP    	040156
037766	016600	000006		MOV    	000006(SP), R0
037772	016601	000010		MOV    	000010(SP), R1
037776	006301			ASL    	R1
040000	060001			ADD    	R0, R1
040002	016602	000010		MOV    	000010(SP), R2
040006	006302			ASL    	R2
040010	060002			ADD    	R0, R2
040012	016202	001144		MOV    	001144(R2), R2
040016	006302			ASL    	R2
040020	016603	000010		MOV    	000010(SP), R3
040024	006303			ASL    	R3
040026	060003			ADD    	R0, R3
040030	016303	001204		MOV    	001204(R3), R3
040034	006303			ASL    	R3
040036	006303			ASL    	R3
040040	060203			ADD    	R2, R3
040042	016602	000010		MOV    	000010(SP), R2
040046	006302			ASL    	R2
040050	060002			ADD    	R0, R2
040052	066203	001244		ADD    	001244(R2), R3
040056	010361	001604		MOV    	R3, 001604(R1)		; LOC1604[2(SP)]:=LOC1144[2(SP)]*2+LOC1204[2(SP)]*4+LOC1244[2(SP)]
040062	016601	000010		MOV    	000010(SP), R1
040066	006301			ASL    	R1
040070	060001			ADD    	R0, R1
040072	066160	001604	001646	ADD    	001604(R1), 001646(R0)	; LOC1646:=LOC1646+LOC1604[2(SP)]
040100	016601	000010		MOV    	000010(SP), R1
040104	006301			ASL    	R1
040106	060001			ADD    	R0, R1
040110	016602	000010		MOV    	000010(SP), R2
040114	006302			ASL    	R2
040116	060002			ADD    	R0, R2
040120	016202	001604		MOV    	001604(R2), R2
040124	006302			ASL    	R2
040126	006302			ASL    	R2
040130	006302			ASL    	R2
040132	006302			ASL    	R2
040134	006302			ASL    	R2
040136	006302			ASL    	R2
040140	010261	001604		MOV    	R2, 001604(R1)		; LOC1604[2(SP)]:=LOC1604[2(SP)]*100
040144	005276	000004		INC    	@000004(SP)		; NEXT 2(SP)
040150	102402			BVS    	040156
040152	000167	177576		JMP    	037754
040156	062706	000006		ADD    	#000006, SP		; END FOR 2(SP)
040162	011600			MOV    	(SP), R0
040164	006360	001646		ASL    	001646(R0)
040170	006360	001646		ASL    	001646(R0)		; LOC1646:=LOC1646*4
040174	010601			MOV    	SP, R1
040176	062701	000002		ADD    	#000002, R1		; FOR 2(SP):=0 TO 17
040202	010146			MOV    	R1, -(SP)
040204	005046			CLR    	-(SP)
040206	012746	000017		MOV    	#000017, -(SP)
040212	016676	000002	000004	MOV    	000002(SP), @000004(SP)
040220	027616	000004		CMP    	@000004(SP), (SP)
040224	003402			BLE    	040232
040226	000167	000052		JMP    	040304
040232	016600	000006		MOV    	000006(SP), R0
040236	016601	000010		MOV    	000010(SP), R1
040242	006301			ASL    	R1
040244	060001			ADD    	R0, R1
040246	016602	000010		MOV    	000010(SP), R2
040252	006302			ASL    	R2
040254	060002			ADD    	R0, R2
040256	016202	001604		MOV    	001604(R2), R2
040262	166002	001646		SUB    	001646(R0), R2
040266	010261	001604		MOV    	R2, 001604(R1)		; LOC1604[2(SP)]:=LOC1604[2(SP)]-LOC1646
040272	005276	000004		INC    	@000004(SP)		; NEXT 2(SP)
040276	102402			BVS    	040304
040300	000167	177714		JMP    	040220
040304	062706	000006		ADD    	#000006, SP		; END FOR 2(SP)
040310	016666	000004	000006	MOV    	000004(SP), 000006(SP)
040316	062706	000006		ADD    	#000006, SP
040322	000207			RETURN 	
======--------=======--------========---------======----=====
; PROCEDURE 12(SP):INTEGER
040324	011404			MOV    	(R4), R4
040326	011404			MOV    	(R4), R4
040330	011404			MOV    	(R4), R4
040332	011404			MOV    	(R4), R4
040334	011404			MOV    	(R4), R4
040336	011404			MOV    	(R4), R4
040340	011404			MOV    	(R4), R4
040342	011404			MOV    	(R4), R4
040344	011404			MOV    	(R4), R4
040346	162706	000006		SUB    	#000006, SP	; VAR 2(SP):INTEGER; 4(SP):REAL
040352	010446			MOV    	R4, -(SP)
040354	016646	000012		MOV    	000012(SP), -(SP)
040360	004767	017150		CALL   	057534	; $B88
040364	005046			CLR    	-(SP)
040366	012746	040740		MOV    	#040740, -(SP)
040372	075036			FDIV	SP
040374	005046			CLR    	-(SP)
040376	012746	043200		MOV    	#043200, -(SP)
040402	075036			FDIV	SP
040404	012666	000006		MOV    	(SP)+, 000006(SP)	; 4(SP):=(12(SP)/7.0)/4096.0
040410	012666	000006		MOV    	(SP)+, 000006(SP)
040414	010600			MOV    	SP, R0
040416	062700	000002		ADD    	#000002, R0		; FOR 2(SP):=0 TO 17
040422	010046			MOV    	R0, -(SP)
040424	005046			CLR    	-(SP)
040426	012746	000017		MOV    	#000017, -(SP)
040432	016676	000002	000004	MOV    	000002(SP), @000004(SP)
040440	027616	000004		CMP    	@000004(SP), (SP)
040444	003402			BLE    	040452
040446	000167	000266		JMP    	040740
040452	016600	000006		MOV    	000006(SP), R0
040456	016601	000010		MOV    	000010(SP), R1
040462	006301			ASL    	R1
040464	060001			ADD    	R0, R1
040466	016602	000010		MOV    	000010(SP), R2
040472	006302			ASL    	R2
040474	060002			ADD    	R0, R2
040476	016603	000010		MOV    	000010(SP), R3
040502	006303			ASL    	R3
040504	060003			ADD    	R0, R3
040506	016346	001604		MOV    	001604(R3), -(SP)
040512	004767	017016		CALL   	057534	; $B88
040516	016646	000020		MOV    	000020(SP), -(SP)
040522	016646	000020		MOV    	000020(SP), -(SP)
040526	075026			FMUL	SP
040530	004767	017160		CALL   	057714	; $B108
040534	016202	001304		MOV    	001304(R2), R2
040540	062602			ADD    	(SP)+, R2
040542	010261	001144		MOV    	R2, 001144(R1)		; LOC1144[2(SP)]:=LOC1304[2(SP)]+ROUND(LOC1604[2(SP)]*4(SP))
040546	016601	000010		MOV    	000010(SP), R1
040552	006301			ASL    	R1
040554	060001			ADD    	R0, R1
040556	016602	000010		MOV    	000010(SP), R2
040562	006302			ASL    	R2
040564	060002			ADD    	R0, R2
040566	016603	000010		MOV    	000010(SP), R3
040572	006303			ASL    	R3
040574	060003			ADD    	R0, R3
040576	016346	001604		MOV    	001604(R3), -(SP)
040602	004767	016726		CALL   	057534	; $B88
040606	016646	000020		MOV    	000020(SP), -(SP)
040612	016646	000020		MOV    	000020(SP), -(SP)
040616	075026			FMUL	SP
040620	004767	017070		CALL   	057714	; $B108
040624	016202	001344		MOV    	001344(R2), R2
040630	062602			ADD    	(SP)+, R2
040632	010261	001204		MOV    	R2, 001204(R1)		; LOC1204[2(SP)]:=LOC1344[2(SP)]+ROUND(LOC1604[2(SP)]*4(SP))
040636	016601	000010		MOV    	000010(SP), R1
040642	006301			ASL    	R1
040644	060001			ADD    	R0, R1
040646	016602	000010		MOV    	000010(SP), R2
040652	006302			ASL    	R2
040654	060002			ADD    	R0, R2
040656	016603	000010		MOV    	000010(SP), R3
040662	006303			ASL    	R3
040664	060003			ADD    	R0, R3
040666	016346	001604		MOV    	001604(R3), -(SP)
040672	004767	016636		CALL   	057534	; $B88
040676	016646	000020		MOV    	000020(SP), -(SP)
040702	016646	000020		MOV    	000020(SP), -(SP)
040706	075026			FMUL	SP
040710	004767	017000		CALL   	057714	; $B108
040714	016202	001404		MOV    	001404(R2), R2
040720	062602			ADD    	(SP)+, R2
040722	010261	001244		MOV    	R2, 001244(R1)		; LOC1244[2(SP)]:=LOC1404[2(SP)]+ROUND(LOC1604[2(SP)]*4(SP))
040726	005276	000004		INC    	@000004(SP)		; NEXT 2(SP)
040732	102402			BVS    	040740
040734	000167	177500		JMP    	040440
040740	062706	000006		ADD    	#000006, SP		; END FOR 2(SP)
040744	010604			MOV    	SP, R4
040746	004767	174560		CALL   	035532			; L35534
040752	016666	000010	000012	MOV    	000010(SP), 000012(SP)
040760	062706	000012		ADD    	#000012, SP
040764	000207			RETURN 	
======-------========-----------=======-------=====----======
; PROCEDURE 6(SP):INTEGER
040766	011404			MOV    	(R4), R4
040770	011404			MOV    	(R4), R4
040772	011404			MOV    	(R4), R4
040774	011404			MOV    	(R4), R4
040776	011404			MOV    	(R4), R4
041000	011404			MOV    	(R4), R4
041002	011404			MOV    	(R4), R4
041004	011404			MOV    	(R4), R4
041006	011404			MOV    	(R4), R4
041010	005046			CLR    	-(SP)		; VAR 2(SP):INTEGER
041012	010446			MOV    	R4, -(SP)
041014	011600			MOV    	(SP), R0
041016	016660	000006	000002	MOV    	000006(SP), 000002(R0)	; LOC00.MODPAL:=6(SP)
041024	010046			MOV    	R0, -(SP)
041026	004767	140172		CALL   	001224			; PLSAVx(LOC00)
041032	010604			MOV    	SP, R4
041034	004767	173666		CALL   	034726			; L34730
041040	010600			MOV    	SP, R0
041042	062700	000002		ADD    	#000002, R0		; FOR 2(SP):=0 TO 17
041046	010046			MOV    	R0, -(SP)
041050	005046			CLR    	-(SP)
041052	012746	000017		MOV    	#000017, -(SP)
041056	016676	000002	000004	MOV    	000002(SP), @000004(SP)
041064	027616	000004		CMP    	@000004(SP), (SP)
041070	003402			BLE    	041076
041072	000167	000122		JMP    	041220
041076	016600	000006		MOV    	000006(SP), R0
041102	016601	000010		MOV    	000010(SP), R1
041106	006301			ASL    	R1
041110	060001			ADD    	R0, R1
041112	016602	000010		MOV    	000010(SP), R2
041116	006302			ASL    	R2
041120	060002			ADD    	R0, R2
041122	016202	001144		MOV    	001144(R2), R2
041126	006302			ASL    	R2
041130	016603	000010		MOV    	000010(SP), R3
041134	006303			ASL    	R3
041136	060003			ADD    	R0, R3
041140	016303	001204		MOV    	001204(R3), R3
041144	006303			ASL    	R3
041146	006303			ASL    	R3
041150	060203			ADD    	R2, R3
041152	016602	000010		MOV    	000010(SP), R2
041156	006302			ASL    	R2
041160	060002			ADD    	R0, R2
041162	066203	001244		ADD    	001244(R2), R3
041166	006303			ASL    	R3
041170	006303			ASL    	R3
041172	006303			ASL    	R3
041174	006303			ASL    	R3
041176	006303			ASL    	R3
041200	006303			ASL    	R3
041202	010361	001604		MOV    	R3, 001604(R1)		; LOC1604[2(SP)]:=(LOC1144[2(SP)]*2+LOC1204[2(SP)]*4+LOC1244[2(SP)])*100
041206	005276	000004		INC    	@000004(SP)		; NEXT 2(SP)
041212	102402			BVS    	041220
041214	000167	177644		JMP    	041064
041220	062706	000006		ADD    	#000006, SP		; END FOR 2(SP)
041224	016666	000004	000006	MOV    	000004(SP), 000006(SP)
041232	062706	000006		ADD    	#000006, SP
041236	000207			RETURN 	
=====-------=======----------=======------========-----======
; PROCEDURE 12(SP):INTEGER
041240	011404			MOV    	(R4), R4
041242	011404			MOV    	(R4), R4
041244	011404			MOV    	(R4), R4
041246	011404			MOV    	(R4), R4
041250	011404			MOV    	(R4), R4
041252	011404			MOV    	(R4), R4
041254	011404			MOV    	(R4), R4
041256	011404			MOV    	(R4), R4
041260	011404			MOV    	(R4), R4
041262	162706	000006		SUB    	#000006, SP	; VAR 2(SP):INTEGER; 4(SP):REAL
041266	010446			MOV    	R4, -(SP)
041270	016646	000012		MOV    	000012(SP), -(SP)
041274	004767	016234		CALL   	057534	; $B88
041300	005046			CLR    	-(SP)
041302	012746	040740		MOV    	#040740, -(SP)
041306	075036			FDIV	SP
041310	005046			CLR    	-(SP)
041312	012746	043200		MOV    	#043200, -(SP)
041316	075036			FDIV	SP
041320	012666	000006		MOV    	(SP)+, 000006(SP)	; 4(SP):=(12(SP)/7.0)/4096.0
041324	012666	000006		MOV    	(SP)+, 000006(SP)
041330	010600			MOV    	SP, R0
041332	062700	000002		ADD    	#000002, R0		; FOR 2(SP):=0 TO 17
041336	010046			MOV    	R0, -(SP)
041340	005046			CLR    	-(SP)
041342	012746	000017		MOV    	#000017, -(SP)
041346	016676	000002	000004	MOV    	000002(SP), @000004(SP)
041354	027616	000004		CMP    	@000004(SP), (SP)
041360	003402			BLE    	041366
041362	000167	000266		JMP    	041654
041366	016600	000006		MOV    	000006(SP), R0
041372	016601	000010		MOV    	000010(SP), R1
041376	006301			ASL    	R1
041400	060001			ADD    	R0, R1
041402	016602	000010		MOV    	000010(SP), R2
041406	006302			ASL    	R2
041410	060002			ADD    	R0, R2
041412	016603	000010		MOV    	000010(SP), R3
041416	006303			ASL    	R3
041420	060003			ADD    	R0, R3
041422	016346	001604		MOV    	001604(R3), -(SP)
041426	004767	016102		CALL   	057534	; $B88
041432	016646	000020		MOV    	000020(SP), -(SP)
041436	016646	000020		MOV    	000020(SP), -(SP)
041442	075026			FMUL	SP
041444	004767	016244		CALL   	057714	; $B108
041450	016202	001304		MOV    	001304(R2), R2
041454	062602			ADD    	(SP)+, R2
041456	010261	001144		MOV    	R2, 001144(R1)		; LOC1144[2(SP)]:=LOC1304[2(SP)]+ROUND(LOC1604[2(SP)]*4(SP))
041462	016601	000010		MOV    	000010(SP), R1
041466	006301			ASL    	R1
041470	060001			ADD    	R0, R1
041472	016602	000010		MOV    	000010(SP), R2
041476	006302			ASL    	R2
041500	060002			ADD    	R0, R2
041502	016603	000010		MOV    	000010(SP), R3
041506	006303			ASL    	R3
041510	060003			ADD    	R0, R3
041512	016346	001604		MOV    	001604(R3), -(SP)
041516	004767	016012		CALL   	057534	; $B88
041522	016646	000020		MOV    	000020(SP), -(SP)
041526	016646	000020		MOV    	000020(SP), -(SP)
041532	075026			FMUL	SP
041534	004767	016154		CALL   	057714	; $B108
041540	016202	001344		MOV    	001344(R2), R2
041544	062602			ADD    	(SP)+, R2
041546	010261	001204		MOV    	R2, 001204(R1)		; LOC1204[2(SP)]:=LOC1344[2(SP)]+ROUND(LOC1604[2(SP)]*4(SP))
041552	016601	000010		MOV    	000010(SP), R1
041556	006301			ASL    	R1
041560	060001			ADD    	R0, R1
041562	016602	000010		MOV    	000010(SP), R2
041566	006302			ASL    	R2
041570	060002			ADD    	R0, R2
041572	016603	000010		MOV    	000010(SP), R3
041576	006303			ASL    	R3
041600	060003			ADD    	R0, R3
041602	016346	001604		MOV    	001604(R3), -(SP)
041606	004767	015722		CALL   	057534	; $B88
041612	016646	000020		MOV    	000020(SP), -(SP)
041616	016646	000020		MOV    	000020(SP), -(SP)
041622	075026			FMUL	SP
041624	004767	016064		CALL   	057714	; $B108
041630	016202	001404		MOV    	001404(R2), R2
041634	062602			ADD    	(SP)+, R2
041636	010261	001244		MOV    	R2, 001244(R1)		; LOC1244[2(SP)]:=LOC1404[2(SP)]+ROUND(LOC1604[2(SP)]*4(SP))
041642	005276	000004		INC    	@000004(SP)		; NEXT 2(SP)
041646	102402			BVS    	041654
041650	000167	177500		JMP    	041354
041654	062706	000006		ADD    	#000006, SP		; END FOR 2(SP)
041660	010604			MOV    	SP, R4
041662	004767	173644		CALL   	035532			; L35534
041666	016666	000010	000012	MOV    	000010(SP), 000012(SP)
041674	062706	000012		ADD    	#000012, SP
041700	000207			RETURN 	
=====------========---------=======--------=====-------======
041702	162706	001652		SUB    	#001652, SP
; VAR @SP:PLxTYP; 1004(SP),1044(SP),1104(SP),1144(SP),1204(SP),1244(SP),1304(SP),1344(SP),1404(SP),1444(SP),1504(SP),1544(SP),1604(SP):ARRAY[0..17]OF INTEGER;
;     1644(SP),1646(SP):INTEGER; 1650(SP),1651(SP):CHAR
041706	012700	043362		MOV    	#043362, R0
041712	010501			MOV    	R5, R1
041714	062701	000636		ADD    	#000636, R1
041720	012702	000012		MOV    	#000012, R2
041724	012021			MOV    	(R0)+, (R1)+		; VAR636:='   '
041726	005302			DEC    	R2
041730	001375			BNE    	041724
041732	012700	043410		MOV    	#043410, R0
041736	010501			MOV    	R5, R1
041740	062701	000662		ADD    	#000662, R1
041744	012702	000012		MOV    	#000012, R2
041750	012021			MOV    	(R0)+, (R1)+		; VAR662:='             '
041752	005302			DEC    	R2
041754	001375			BNE    	041750
041756	012700	043436		MOV    	#043436, R0
041762	010501			MOV    	R5, R1
041764	062701	000706		ADD    	#000706, R1
041770	012702	000012		MOV    	#000012, R2
041774	012021			MOV    	(R0)+, (R1)+		; VAR706:='      '
041776	005302			DEC    	R2
042000	001375			BNE    	041774
042002	004767	144702		CALL   	006710			; L06710
042006	012746	000003		MOV    	#000003, -(SP)
042012	004767	140442		CALL   	002460			; L02460(3)
042016	004767	145724		CALL   	007746			; L07746
042022	010500			MOV    	R5, R0
042024	062700	002126		ADD    	#002126, R0
042030	010046			MOV    	R0, -(SP)
042032	004767	137236		CALL   	001274			; VWFORE(VAR2126)
042036	010604			MOV    	SP, R4
042040	016546	002040		MOV    	002040(R5), -(SP)
042044	004767	176740		CALL   	041010			; L41010(VAR2032.MODPAL)
042050	010600			MOV    	SP, R0
042052	062700	001644		ADD    	#001644, R0		; FOR 1644(SP):=0 DOWNTO -101
042056	010046			MOV    	R0, -(SP)
042060	005046			CLR    	-(SP)
042062	012746	177677		MOV    	#177677, -(SP)
042066	016676	000002	000004	MOV    	000002(SP), @000004(SP)
042074	027616	000004		CMP    	@000004(SP), (SP)
042100	002002			BGE    	042106
042102	000167	000030		JMP    	042136
042106	010604			MOV    	SP, R4
042110	062704	000006		ADD    	#000006, R4
042114	016646	001652		MOV    	001652(SP), -(SP)
042120	004767	177136		CALL   	041262			; L41262(1644(SP))
042124	005376	000004		DEC    	@000004(SP)		; PREV 1644(SP)
042130	102402			BVS    	042136
042132	000167	177736		JMP    	042074
042136	062706	000006		ADD    	#000006, SP		; END FOR 1644(SP)
042142	010600			MOV    	SP, R0
042144	062700	001644		ADD    	#001644, R0		; FOR 1644(SP):=-100 TO 200
042150	010046			MOV    	R0, -(SP)
042152	012746	177700		MOV    	#177700, -(SP)
042156	012746	000200		MOV    	#000200, -(SP)
042162	016676	000002	000004	MOV    	000002(SP), @000004(SP)
042170	027616	000004		CMP    	@000004(SP), (SP)
042174	003402			BLE    	042202
042176	000167	000030		JMP    	042232
042202	010604			MOV    	SP, R4
042204	062704	000006		ADD    	#000006, R4
042210	016646	001652		MOV    	001652(SP), -(SP)
042214	004767	177042		CALL   	041262			; L41262(1644(SP))
042220	005276	000004		INC    	@000004(SP)		; NEXT 1644(SP)
042224	102402			BVS    	042232
042226	000167	177736		JMP    	042170
042232	062706	000006		ADD    	#000006, SP		; END FOR 1644(SP)
042236	012746	000001		MOV    	#000001, -(SP)
042242	004767	140212		CALL   	002460			; L02460(1)
042246	010600			MOV    	SP, R0
042250	062700	001644		ADD    	#001644, R0		; FOR 1644(SP):=200 DOWNTO 0
042254	010046			MOV    	R0, -(SP)
042256	012746	000200		MOV    	#000200, -(SP)
042262	005046			CLR    	-(SP)
042264	016676	000002	000004	MOV    	000002(SP), @000004(SP)
042272	027616	000004		CMP    	@000004(SP), (SP)
042276	002002			BGE    	042304
042300	000167	000030		JMP    	042334
042304	010604			MOV    	SP, R4
042306	062704	000006		ADD    	#000006, R4
042312	016646	001652		MOV    	001652(SP), -(SP)
042316	004767	176740		CALL   	041262			; L41262(1644(SP))
042322	005376	000004		DEC    	@000004(SP)		; PREV 1644(SP)
042326	102402			BVS    	042334
042330	000167	177736		JMP    	042272
042334	062706	000006		ADD    	#000006, SP		; END FOR 1644(SP)
042340	012746	000003		MOV    	#000003, -(SP)
042344	004767	140110		CALL   	002460			; L02460(3)
042350	012700	043464		MOV    	#043464, R0
042354	010501			MOV    	R5, R1
042356	062701	000662		ADD    	#000662, R1
042362	012702	000012		MOV    	#000012, R2
042366	012021			MOV    	(R0)+, (R1)+		; VAR662:='       '
042370	005302			DEC    	R2
042372	001375			BNE    	042366
042374	004767	144310		CALL   	006710			; L06710
042400	012746	000003		MOV    	#000003, -(SP)
042404	004767	140050		CALL   	002460			; L02460(3)
042410	004767	145332		CALL   	007746			; L07746
042414	010500			MOV    	R5, R0
042416	062700	002152		ADD    	#002152, R0
042422	010046			MOV    	R0, -(SP)
042424	004767	136644		CALL   	001274			; VWFORE(VAR2152)
042430	010604			MOV    	SP, R4
042432	016546	002054		MOV    	002054(R5), -(SP)
042436	004767	175230		CALL   	037672			; L37672(VAR2046.MODPAL)
042442	010600			MOV    	SP, R0
042444	062700	001644		ADD    	#001644, R0		; FOR 1644(SP):=0 DOWNTO -67
042450	010046			MOV    	R0, -(SP)
042452	005046			CLR    	-(SP)
042454	012746	177711		MOV    	#177711, -(SP)
042460	016676	000002	000004	MOV    	000002(SP), @000004(SP)
042466	027616	000004		CMP    	@000004(SP), (SP)
042472	002002			BGE    	042500
042474	000167	000030		JMP    	042530
042500	010604			MOV    	SP, R4
042502	062704	000006		ADD    	#000006, R4
042506	016646	001652		MOV    	001652(SP), -(SP)
042512	004767	175630		CALL   	040346			; L40346(1644(SP))
042516	005376	000004		DEC    	@000004(SP)		; PREV 1644(SP)
042522	102402			BVS    	042530
042524	000167	177736		JMP    	042466
042530	062706	000006		ADD    	#000006, SP		; END FOR 1644(SP)
042534	012746	000001		MOV    	#000001, -(SP)
042540	004767	137714		CALL   	002460			; L02460(1)
042544	010600			MOV    	SP, R0
042546	062700	001644		ADD    	#001644, R0		; FOR 1644(SP):=-67 TO 177
042552	010046			MOV    	R0, -(SP)
042554	012746	177711		MOV    	#177711, -(SP)
042560	012746	000177		MOV    	#000177, -(SP)
042564	016676	000002	000004	MOV    	000002(SP), @000004(SP)
042572	027616	000004		CMP    	@000004(SP), (SP)
042576	003402			BLE    	042604
042600	000167	000030		JMP    	042634
042604	010604			MOV    	SP, R4
042606	062704	000006		ADD    	#000006, R4
042612	016646	001652		MOV    	001652(SP), -(SP)
042616	004767	175524		CALL   	040346			; L40346(1644(SP))
042622	005276	000004		INC    	@000004(SP)		; NEXT 1644(SP)
042626	102402			BVS    	042634
042630	000167	177736		JMP    	042572
042634	062706	000006		ADD    	#000006, SP		; END FOR 1644(SP)
042640	012746	000001		MOV    	#000001, -(SP)
042644	004767	137610		CALL   	002460			; L02460(1)
042650	010600			MOV    	SP, R0
042652	062700	001644		ADD    	#001644, R0		; FOR 1644(SP):=177 DOWNTO 0
042656	010046			MOV    	R0, -(SP)
042660	012746	000177		MOV    	#000177, -(SP)
042664	005046			CLR    	-(SP)
042666	016676	000002	000004	MOV    	000002(SP), @000004(SP)
042674	027616	000004		CMP    	@000004(SP), (SP)
042700	002002			BGE    	042706
042702	000167	000030		JMP    	042736
042706	010604			MOV    	SP, R4
042710	062704	000006		ADD    	#000006, R4
042714	016646	001652		MOV    	001652(SP), -(SP)
042720	004767	175422		CALL   	040346			; L40346(1644(SP))
042724	005376	000004		DEC    	@000004(SP)		; PREV 1644(SP)
042730	102402			BVS    	042736
042732	000167	177736		JMP    	042674
042736	062706	000006		ADD    	#000006, SP		; END FOR 1644(SP)
042742	012746	000003		MOV    	#000003, -(SP)
042746	004767	137506		CALL   	002460			; L02460(3)
042752	012700	043512		MOV    	#043512, R0
042756	010501			MOV    	R5, R1
042760	062701	000662		ADD    	#000662, R1
042764	012702	000012		MOV    	#000012, R2
042770	012021			MOV    	(R0)+, (R1)+		; VAR662:='           '
042772	005302			DEC    	R2
042774	001375			BNE    	042770
042776	004767	143706		CALL   	006710			; L06710
043002	012746	000003		MOV    	#000003, -(SP)
043006	004767	137446		CALL   	002460			; L02460(3)
043012	004767	144730		CALL   	007746			; L07746
043016	010500			MOV    	R5, R0
043020	062700	002176		ADD    	#002176, R0
043024	010046			MOV    	R0, -(SP)
043026	004767	136242		CALL   	001274			; VWFORE(VAR2176)
043032	010604			MOV    	SP, R4
043034	016546	002070		MOV    	002070(R5), -(SP)
043040	004767	173344		CALL   	036410			; L36410(VAR2062.MODPAL)
043044	010600			MOV    	SP, R0
043046	062700	001644		ADD    	#001644, R0		; FOR LOC1644:=0 DOWNTO -101
043052	010046			MOV    	R0, -(SP)
043054	005046			CLR    	-(SP)
043056	012746	177677		MOV    	#177677, -(SP)
043062	016676	000002	000004	MOV    	000002(SP), @000004(SP)
043070	027616	000004		CMP    	@000004(SP), (SP)
043074	002002			BGE    	043102
043076	000167	000030		JMP    	043132
043102	010604			MOV    	SP, R4
043104	062704	000006		ADD    	#000006, R4
043110	016646	001652		MOV    	001652(SP), -(SP)
043114	004767	174100		CALL   	037220			; L37220(LOC1644)
043120	005376	000004		DEC    	@000004(SP)		; PREV LOC1644
043124	102402			BVS    	043132
043126	000167	177736		JMP    	043070
043132	062706	000006		ADD    	#000006, SP		; END FOR LOC1644
043136	012746	000005		MOV    	#000005, -(SP)
043142	004767	137312		CALL   	002460			; L02460(5)
043146	010600			MOV    	SP, R0
043150	062700	001644		ADD    	#001644, R0		; FOR LOC1644:=-100 TO 200
043154	010046			MOV    	R0, -(SP)
043156	012746	177700		MOV    	#177700, -(SP)
043162	012746	000200		MOV    	#000200, -(SP)
043166	016676	000002	000004	MOV    	000002(SP), @000004(SP)
043174	027616	000004		CMP    	@000004(SP), (SP)
043200	003402			BLE    	043206
043202	000167	000030		JMP    	043236
043206	010604			MOV    	SP, R4
043210	062704	000006		ADD    	#000006, R4
043214	016646	001652		MOV    	001652(SP), -(SP)
043220	004767	173774		CALL   	037220			; L37220(LOC1644)
043224	005276	000004		INC    	@000004(SP)		; NEXT LOC1644
043230	102402			BVS    	043236
043232	000167	177736		JMP    	043174
043236	062706	000006		ADD    	#000006, SP		; END FOR LOC1644
043242	012746	000001		MOV    	#000001, -(SP)
043246	004767	137206		CALL   	002460			; L02460(1)
043252	010600			MOV    	SP, R0
043254	062700	001644		ADD    	#001644, R0		; FOR LOC1644:=200 DOWNTO 0
043260	010046			MOV    	R0, -(SP)
043262	012746	000200		MOV    	#000200, -(SP)
043266	005046			CLR    	-(SP)
043270	016676	000002	000004	MOV    	000002(SP), @000004(SP)
043276	027616	000004		CMP    	@000004(SP), (SP)
043302	002002			BGE    	043310
043304	000167	000030		JMP    	043340
043310	010604			MOV    	SP, R4
043312	062704	000006		ADD    	#000006, R4
043316	016646	001652		MOV    	001652(SP), -(SP)
043322	004767	173672		CALL   	037220			; L37220(LOC1644)
043326	005376	000004		DEC    	@000004(SP)		; PREV LOC1644
043332	102402			BVS    	043340
043334	000167	177736		JMP    	043276
043340	062706	000006		ADD    	#000006, SP		; END FOR LOC1644
043344	012746	000003		MOV    	#000003, -(SP)
043350	004767	137104		CALL   	002460			; L02460(3)
043354	062706	001652		ADD    	#001652, SP
043360	000207			RETURN 	
-------------------------------------------------------------
043362	136040	153336	157335	.ASCIZ	/   /
	160040	151725	155743	.EVEN
	160330	151336	161320
	020354	000000

043410	167440	160040	155040	.ASCIZ	/             /
	157040	160440	161040	.EVEN
	166040	020040	020040
	020040	000000

043436	151040	157040	152342	.ASCIZ	/      /
	155725	156754	156336	.EVEN
	157040	156732	020325
	020040	000000

043464	155040	156736	160342	.ASCIZ	/       /
	160720	156742	160736	.EVEN
	166342	020040	020040
	020040	000000

043512	163040	151040	152440	.ASCIZ	/           /
	161040	156440	157040	.EVEN
	160440	161040	166040
	020040	000000
=============================================================
; PROCEDURE 4(SP):INTEGER
043540	011404			MOV    	(R4), R4
043542	011404			MOV    	(R4), R4
043544	011404			MOV    	(R4), R4
043546	011404			MOV    	(R4), R4
043550	011404			MOV    	(R4), R4
043552	011404			MOV    	(R4), R4
043554	011404			MOV    	(R4), R4
043556	011404			MOV    	(R4), R4
043560	011404			MOV    	(R4), R4
043562	010446			MOV    	R4, -(SP)
043564	011600			MOV    	(SP), R0
043566	016660	000004	000002	MOV    	000004(SP), 000002(R0)	; LOC00.MODPAL:=4(SP)
043574	010046			MOV    	R0, -(SP)
043576	004767	135412		CALL   	001214			; PLFRE(LOC00)
043602	016666	000002	000004	MOV    	000002(SP), 000004(SP)
043610	062706	000004		ADD    	#000004, SP
043614	000207			RETURN 	
====------======------======------=========------------======
; PROCEDURE VAR 4(SP):ARETYP
043616	011404			MOV    	(R4), R4
043620	011404			MOV    	(R4), R4
043622	011404			MOV    	(R4), R4
043624	011404			MOV    	(R4), R4
043626	011404			MOV    	(R4), R4
043630	011404			MOV    	(R4), R4
043632	011404			MOV    	(R4), R4
043634	011404			MOV    	(R4), R4
043636	011404			MOV    	(R4), R4
043640	010446			MOV    	R4, -(SP)
043642	011600			MOV    	(SP), R0
043644	016601	000004		MOV    	000004(SP), R1
043650	016160	000006	000002	MOV    	000006(R1), 000002(R0)	; LOC00.MODPAL:=4(SP).MODPAL
043656	010046			MOV    	R0, -(SP)
043660	004767	135330		CALL   	001214			; PLFRE(LOC00)
043664	016646	000004		MOV    	000004(SP), -(SP)
043670	004767	136344		CALL   	002240			; L02240(4(SP))
043674	016666	000002	000004	MOV    	000002(SP), 000004(SP)
043702	062706	000004		ADD    	#000004, SP
043706	000207			RETURN 	
=====--------=======--------========---------======-----=====
; PROCEDURE (ALLFRE)
043710	162706	000024		SUB    	#000024, SP	; VAR @SP:PALTYP
043714	010604			MOV    	SP, R4
043716	010500			MOV    	R5, R0
043720	062700	000102		ADD    	#000102, R0
043724	010046			MOV    	R0, -(SP)
043726	004767	177706		CALL   	043640			; L43640(VAR102)
043732	010500			MOV    	R5, R0
043734	062700	000116		ADD    	#000116, R0
043740	010046			MOV    	R0, -(SP)
043742	004767	136272		CALL   	002240			; L02240(VAR116)
043746	010604			MOV    	SP, R4
043750	016546	000250		MOV    	000250(R5), -(SP)
043754	004767	177602		CALL   	043562			; L43562(VAR242.MODPAL)
043760	010500			MOV    	R5, R0
043762	062700	000242		ADD    	#000242, R0
043766	010046			MOV    	R0, -(SP)
043770	004767	135254		CALL   	001250			; L01250(VAR242)
043774	010604			MOV    	SP, R4
043776	010500			MOV    	R5, R0
044000	062700	000132		ADD    	#000132, R0
044004	010046			MOV    	R0, -(SP)
044006	004767	177626		CALL   	043640			; L43640(VAR132)
044012	010604			MOV    	SP, R4
044014	010500			MOV    	R5, R0
044016	062700	002032		ADD    	#002032, R0
044022	010046			MOV    	R0, -(SP)
044024	004767	177610		CALL   	043640			; L43640(VAR2032)
044030	010604			MOV    	SP, R4
044032	010500			MOV    	R5, R0
044034	062700	002046		ADD    	#002046, R0
044040	010046			MOV    	R0, -(SP)
044042	004767	177572		CALL   	043640			; L43640(VAR2046)
044046	010604			MOV    	SP, R4
044050	010500			MOV    	R5, R0
044052	062700	002062		ADD    	#002062, R0
044056	010046			MOV    	R0, -(SP)
044060	004767	177554		CALL   	043640			; L43640(VAR2062)
044064	010604			MOV    	SP, R4
044066	010500			MOV    	R5, R0
044070	062700	002076		ADD    	#002076, R0
044074	010046			MOV    	R0, -(SP)
044076	004767	177536		CALL   	043640			; L43640(VAR2076)
044102	010604			MOV    	SP, R4
044104	010500			MOV    	R5, R0
044106	062700	002112		ADD    	#002112, R0
044112	010046			MOV    	R0, -(SP)
044114	004767	177520		CALL   	043640			; L43640(VAR2112)
044120	010604			MOV    	SP, R4
044122	010500			MOV    	R5, R0
044124	062700	000162		ADD    	#000162, R0
044130	010046			MOV    	R0, -(SP)
044132	004767	177502		CALL   	043640			; L43640(VAR162)
044136	010604			MOV    	SP, R4
044140	010500			MOV    	R5, R0
044142	062700	000176		ADD    	#000176, R0
044146	010046			MOV    	R0, -(SP)
044150	004767	177464		CALL   	043640			; L43640(VAR176)
044154	010604			MOV    	SP, R4
044156	010500			MOV    	R5, R0
044160	062700	000212		ADD    	#000212, R0
044164	010046			MOV    	R0, -(SP)
044166	004767	177446		CALL   	043640			; L43640(VAR212)
044172	010604			MOV    	SP, R4
044174	010500			MOV    	R5, R0
044176	062700	000226		ADD    	#000226, R0
044202	010046			MOV    	R0, -(SP)
044204	004767	177430		CALL   	043640			; L43640(VAR226)
044210	010604			MOV    	SP, R4
044212	016546	000074		MOV    	000074(R5), -(SP)
044216	004767	177340		CALL   	043562			; L43562(VAR66.MODPAL)
044222	010500			MOV    	R5, R0
044224	062700	000066		ADD    	#000066, R0
044230	010046			MOV    	R0, -(SP)
044232	004767	135012		CALL   	001250			; L01250(VAR66)
044236	062706	000024		ADD    	#000024, SP
044242	000207			RETURN 	
=============================================================
================= MAIN MODULE BEGIN ==============================
044244	012746	002276		MOV    	#002276, -(SP)
044250	004767	013660		CALL   	060134	; $B70
044254	012605			MOV    	(SP)+, R5
044256	011625			MOV    	(SP), (R5)+
044260	016625	000002		MOV    	000002(SP), (R5)+
044264	010567	023030		MOV    	R5, 067320
044270	004767	140670		CALL   	005164			; L05164
044274	004767	141176		CALL   	005476			; L05476
044300	012746	000216		MOV    	#000216, -(SP)
044304	004767	142002		CALL   	006312			; L06312(216)
044310	004767	144166		CALL   	010502			; L10502
044314	004767	165234		CALL   	031554			; L31554
044320	004767	140070		CALL   	004414			; L04414
044324	012746	000002		MOV    	#000002, -(SP)
044330	004767	142162		CALL   	006516			; L06516(2)
044334	004767	151314		CALL   	015654			; L15654
044340	004767	147252		CALL   	013616			; L13616
044344	004767	175332		CALL   	041702			; L41702
044350	004767	161554		CALL   	026130			; L26130
044354	004767	167070		CALL   	033450			; L33450
044360	004767	177324		CALL   	043710			; L43710
044364	000167	006556		JMP    	053146	; $END
==================== MAIN MODULE END ================================
==================== PLIB11 MODULE BEGIN ============================
; PROCEDURE ARINST (VAR AR:ARETYP; VAR AREA:INTEGER)
044370	010146			MOV    	R1, -(SP)
044372	010246			MOV    	R2, -(SP)
044374	010346			MOV    	R3, -(SP)
044376	010446			MOV    	R4, -(SP)
044400	010546			MOV    	R5, -(SP)
044402	005067	005706		CLR    	052314
044406	010601			MOV    	SP, R1
044410	016602	000016		MOV    	000016(SP), R2
044414	016204	000002		MOV    	000002(R2), R4
044420	006304			ASL    	R4
044422	160406			SUB    	R4, SP
044424	162706	000010		SUB    	#000010, SP
044430	010605			MOV    	SP, R5
044432	005025			CLR    	(R5)+
044434	012225			MOV    	(R2)+, (R5)+
044436	012225			MOV    	(R2)+, (R5)+
044440	012225			MOV    	(R2)+, (R5)+
044442	016103	000014		MOV    	000014(R1), R3
044446	012325			MOV    	(R3)+, (R5)+
044450	077402			SOB    	R4, 044446
044452	010637	177530		MOV    	SP, @#177530
044456	005726			TST    	(SP)+
044460	100404			BMI    	044472
044462	005267	005626		INC    	052314
044466	011671	000016		MOV    	(SP), @000016(R1)
044472	010106			MOV    	R1, SP
044474	012605			MOV    	(SP)+, R5
044476	012604			MOV    	(SP)+, R4
044500	012603			MOV    	(SP)+, R3
044502	012602			MOV    	(SP)+, R2
044504	012601			MOV    	(SP)+, R1
044506	012666	000002		MOV    	(SP)+, 000002(SP)
044512	005726			TST    	(SP)+
044514	000207			RETURN 	
; PROCEDURE ARCRE ( VAR AREA :INTEGER; VAR AR : ARETYP)
044516	010146			MOV    	R1, -(SP)
044520	010246			MOV    	R2, -(SP)
044522	010601			MOV    	SP, R1
044524	005067	005564		CLR    	052314
044530	162706	000012		SUB    	#000012, SP
044534	016102	000006		MOV    	000006(R1), R2
044540	012716	000046		MOV    	#000046, (SP)
044544	016166	000010	000002	MOV    	000010(R1), 000002(SP)
044552	016266	000002	000004	MOV    	000002(R2), 000004(SP)
044560	016266	000004	000006	MOV    	000004(R2), 000006(SP)
044566	016266	000006	000010	MOV    	000006(R2), 000010(SP)
044574	010637	177530		MOV    	SP, @#177530
044600	000240			NOP    	
044602	005716			TST    	(SP)
044604	100404			BMI    	044616
044606	016612	000002		MOV    	000002(SP), (R2)
044612	005267	005476		INC    	052314
044616	010106			MOV    	R1, SP
044620	012602			MOV    	(SP)+, R2
044622	012601			MOV    	(SP)+, R1
044624	012666	000002		MOV    	(SP)+, 000002(SP)
044630	005726			TST    	(SP)+
044632	000207			RETURN 	
; PROCEDURE ARKILL (VAR AR :ARETYP)
044634	010146			MOV    	R1, -(SP)
044636	005067	005452		CLR    	052314
044642	010601			MOV    	SP, R1
044644	162706	000004		SUB    	#000004, SP
044650	012716	000002		MOV    	#000002, (SP)
044654	017166	000004	000002	MOV    	@000004(R1), 000002(SP)
044662	010637	177530		MOV    	SP, @#177530
044666	000240			NOP    	
044670	005716			TST    	(SP)
044672	100404			BMI    	044704
044674	005267	005414		INC    	052314
044700	005071	000004		CLR    	@000004(R1)
044704	010106			MOV    	R1, SP
044706	012601			MOV    	(SP)+, R1
044710	012616			MOV    	(SP)+, (SP)
044712	000207			RETURN 	
; PROCEDURE VWCRE (VAR WIN :WINTYP)
044714	005067	005374		CLR    	052314
044720	012776	000004	000002	MOV    	#000004, @000002(SP)
044726	016637	000002	177530	MOV    	000002(SP), @#177530
044734	000240			NOP    	
044736	005776	000002		TST    	@000002(SP)
044742	100402			BMI    	044750
044744	005267	005344		INC    	052314
044750	012616			MOV    	(SP)+, (SP)
044752	000207			RETURN 	
; PROCEDURE VWKILL (VAR WIN :WINTYP)
044754	005067	005334		CLR    	052314
044760	012776	000006	000002	MOV    	#000006, @000002(SP)
044766	016637	000002	177530	MOV    	000002(SP), @#177530
044774	000240			NOP    	
044776	005776	000002		TST    	@000002(SP)
045002	100410			BMI    	045024
045004	005267	005304		INC    	052314
045010	010146			MOV    	R1, -(SP)
045012	016601	000004		MOV    	000004(SP), R1
045016	005061	000002		CLR    	000002(R1)
045022	012601			MOV    	(SP)+, R1
045024	012616			MOV    	(SP)+, (SP)
045026	000207			RETURN 	
; PROCEDURE VWTAKE (VAR WIN :WINTYP)
045030	005067	005260		CLR    	052314
045034	012776	000010	000002	MOV    	#000010, @000002(SP)
045042	016637	000002	177530	MOV    	000002(SP), @#177530
045050	000240			NOP    	
045052	005776	000002		TST    	@000002(SP)
045056	100402			BMI    	045064
045060	005267	005230		INC    	052314
045064	012616			MOV    	(SP)+, (SP)
045066	000207			RETURN 	
; PROCEDURE VWFORE (VAR WIN :WINTYP)
045070	005067	005220		CLR    	052314
045074	012776	000012	000002	MOV    	#000012, @000002(SP)
045102	016637	000002	177530	MOV    	000002(SP), @#177530
045110	000240			NOP    	
045112	005776	000002		TST    	@000002(SP)
045116	100402			BMI    	045124
045120	005267	005170		INC    	052314
045124	012616			MOV    	(SP)+, (SP)
045126	000207			RETURN 	
; PROCEDURE VWBACK (VAR WIN:WINTYP)
045130	005067	005160		CLR    	052314
045134	012776	000014	000002	MOV    	#000014, @000002(SP)
045142	016637	000002	177530	MOV    	000002(SP), @#177530
045150	005776	000002		TST    	@000002(SP)
045154	100402			BMI    	045162
045156	005267	005132		INC    	052314
045162	012616			MOV    	(SP)+, (SP)
045164	000207			RETURN 	
; PROCEDURE VWLOOK (VAR WIN:WINTYP)
045166	005067	005122		CLR    	052314
045172	012776	000042	000002	MOV    	#000042, @000002(SP)
045200	016637	000002	177530	MOV    	000002(SP), @#177530
045206	005776	000002		TST    	@000002(SP)
045212	100402			BMI    	045220
045214	005267	005074		INC    	052314
045220	012616			MOV    	(SP)+, (SP)
045222	000207			RETURN 	
; PROCEDURE PLMOD ( var PAL :PALTYP)
045224	005067	005064		CLR    	052314
045230	012776	000022	000002	MOV    	#000022, @000002(SP)
045236	016637	000002	177530	MOV    	000002(SP), @#177530
045244	000240			NOP    	
045246	005776	000002		TST    	@000002(SP)
045252	100402			BMI    	045260
045254	005267	005034		INC    	052314
045260	012616			MOV    	(SP)+, (SP)
045262	000207			RETURN 	
; PROCEDURE PLSAV ( VAR PAL :PALTYP)
045264	005067	005024		CLR    	052314
045270	012776	000024	000002	MOV    	#000024, @000002(SP)
045276	016637	000002	177530	MOV    	000002(SP), @#177530
045304	000240			NOP    	
045306	005776	000002		TST    	@000002(SP)
045312	100402			BMI    	045320
045314	005267	004774		INC    	052314
045320	012616			MOV    	(SP)+, (SP)
045322	000207			RETURN 	
; PROCEDURE HBMOVE (AR1,CMD,Y1,NY,X1,NX,AR2,Y2,X2 :INTEGER)
045324	010146			MOV    	R1, -(SP)
045326	010246			MOV    	R2, -(SP)
045330	010346			MOV    	R3, -(SP)
045332	010601			MOV    	SP, R1
045334	005067	004754		CLR    	052314
045340	162706	000024		SUB    	#000024, SP
045344	010602			MOV    	SP, R2
045346	012722	000050		MOV    	#000050, (R2)+
045352	005003			CLR    	R3
045354	156103	000026		BISB   	000026(R1), R3
045360	000303			SWAB   	R3
045362	156103	000030		BISB   	000030(R1), R3
045366	010322			MOV    	R3, (R2)+
045370	016122	000024		MOV    	000024(R1), (R2)+
045374	016122	000022		MOV    	000022(R1), (R2)+
045400	016122	000020		MOV    	000020(R1), (R2)+
045404	016122	000016		MOV    	000016(R1), (R2)+
045410	016122	000014		MOV    	000014(R1), (R2)+
045414	016122	000012		MOV    	000012(R1), (R2)+
045420	016122	000010		MOV    	000010(R1), (R2)+
045424	010637	177530		MOV    	SP, @#177530
045430	000240			NOP    	
045432	005716			TST    	(SP)
045434	100402			BMI    	045442
045436	005267	004652		INC    	052314
045442	010106			MOV    	R1, SP
045444	012603			MOV    	(SP)+, R3
045446	012602			MOV    	(SP)+, R2
045450	012601			MOV    	(SP)+, R1
045452	011666	000022		MOV    	(SP), 000022(SP)
045456	062706	000022		ADD    	#000022, SP
045462	000207			RETURN 	
; PROCEDURE WPRINT(ANUM, X, Y :INTEGER; VAR C :CHAR)
045464	010146			MOV    	R1, -(SP)
045466	010601			MOV    	SP, R1
045470	005067	004620		CLR    	052314
045474	162706	000012		SUB    	#000012, SP
045500	012716	000044		MOV    	#000044, (SP)
045504	016166	000012	000002	MOV    	000012(R1), 000002(SP)
045512	016166	000006	000004	MOV    	000006(R1), 000004(SP)
045520	016166	000010	000006	MOV    	000010(R1), 000006(SP)
045526	016166	000004	000010	MOV    	000004(R1), 000010(SP)
045534	010637	177530		MOV    	SP, @#177530
045540	000240			NOP    	
045542	005716			TST    	(SP)
045544	100402			BMI    	045552
045546	005267	004542		INC    	052314
045552	010106			MOV    	R1, SP
045554	012601			MOV    	(SP)+, R1
045556	011666	000010		MOV    	(SP), 000010(SP)
045562	062706	000010		ADD    	#000010, SP
045566	000207			RETURN 	
; PROCEDURE PLCRE ( VAR PAL :PALTYP)
045570	005067	004520		CLR    	052314
045574	012776	000016	000002	MOV    	#000016, @000002(SP)
045602	016637	000002	177530	MOV    	000002(SP), @#177530
045610	005776	000002		TST    	@000002(SP)
045614	100402			BMI    	045622
045616	005267	004472		INC    	052314
045622	012616			MOV    	(SP)+, (SP)
045624	000207			RETURN 	
; PROCEDURE PLFRE ( VAR PAL :PALTYP)
045626	005067	004462		CLR    	052314
045632	012776	000020	000002	MOV    	#000020, @000002(SP)
045640	016637	000002	177530	MOV    	000002(SP), @#177530
045646	005776	000002		TST    	@000002(SP)
045652	100402			BMI    	045660
045654	005267	004434		INC    	052314
045660	012616			MOV    	(SP)+, (SP)
045662	000207			RETURN 	
; PROCEDURE CRSET (XCUR,YCUR:INTEGER)
045664	010146			MOV    	R1, -(SP)
045666	005067	004422		CLR    	052314
045672	010601			MOV    	SP, R1
045674	162706	000006		SUB    	#000006, SP
045700	012716	000026		MOV    	#000026, (SP)
045704	016166	000006	000002	MOV    	000006(R1), 000002(SP)
045712	016166	000004	000004	MOV    	000004(R1), 000004(SP)
045720	010637	177530		MOV    	SP, @#177530
045724	005716			TST    	(SP)
045726	100402			BMI    	045734
045730	005267	004360		INC    	052314
045734	010106			MOV    	R1, SP
045736	012601			MOV    	(SP)+, R1
045740	012666	000002		MOV    	(SP)+, 000002(SP)
045744	005726			TST    	(SP)+
045746	000207			RETURN 	
; PROCEDURE CRERA
045750	012746	000030		MOV    	#000030, -(SP)
045754	010637	177530		MOV    	SP, @#177530
045760	005726			TST    	(SP)+
045762	000207			RETURN 	
; PROCEDURE FNINST (VAR PAR:FNTYP)
045764	005067	004324		CLR    	052314
045770	012776	000032	000002	MOV    	#000032, @000002(SP)
045776	016637	000002	177530	MOV    	000002(SP), @#177530
046004	000240			NOP    	
046006	005776	000002		TST    	@000002(SP)
046012	100402			BMI    	046020
046014	005267	004274		INC    	052314
046020	012616			MOV    	(SP)+, (SP)
046022	000207			RETURN 	
; PROCEDURE PLMODx ( var PAL :PLXTYP)
046024	005067	004264		CLR    	052314
046030	012776	000023	000002	MOV    	#000023, @000002(SP)
046036	016637	000002	177530	MOV    	000002(SP), @#177530
046044	000240			NOP    	
046046	005776	000002		TST    	@000002(SP)
046052	100402			BMI    	046060
046054	005267	004234		INC    	052314
046060	012616			MOV    	(SP)+, (SP)
046062	000207			RETURN 	
; PROCEDURE PLSAVx ( VAR PAL :PLXTYP)
046064	005067	004224		CLR    	052314
046070	012776	000025	000002	MOV    	#000025, @000002(SP)
046076	016637	000002	177530	MOV    	000002(SP), @#177530
046104	000240			NOP    	
046106	005776	000002		TST    	@000002(SP)
046112	100402			BMI    	046120
046114	005267	004174		INC    	052314
046120	012616			MOV    	(SP)+, (SP)
046122	000207			RETURN 	
; PROCEDURE PLCREx ( VAR PAL :PLXTYP)
046124	005067	004164		CLR    	052314
046130	012776	000017	000002	MOV    	#000017, @000002(SP)
046136	016637	000002	177530	MOV    	000002(SP), @#177530
046144	005776	000002		TST    	@000002(SP)
046150	100402			BMI    	046156
046152	005267	004136		INC    	052314
046156	012616			MOV    	(SP)+, (SP)
046160	000207			RETURN 	
; PROCEDURE PLFREx ( VAR PAL :PLXTYP)
046162	005067	004126		CLR    	052314
046166	012776	000021	000002	MOV    	#000021, @000002(SP)
046174	016637	000002	177530	MOV    	000002(SP), @#177530
046202	005776	000002		TST    	@000002(SP)
046206	100402			BMI    	046214
046210	005267	004100		INC    	052314
046214	012616			MOV    	(SP)+, (SP)
046216	000207			RETURN 	
; PROCEDURE FNKILL (VAR PAR:FNTYP)
046220	005067	004070		CLR    	052314
046224	012776	000034	000002	MOV    	#000034, @000002(SP)
046232	016637	000002	177530	MOV    	000002(SP), @#177530
046240	000240			NOP    	
046242	005776	000002		TST    	@000002(SP)
046246	100402			BMI    	046254
046250	005267	004040		INC    	052314
046254	012616			MOV    	(SP)+, (SP)
046256	000207			RETURN 	
; PROCEDURE FNFIND (VAR PAR:FNTYP)
046260	005067	004030		CLR    	052314
046264	012776	000036	000002	MOV    	#000036, @000002(SP)
046272	016637	000002	177530	MOV    	000002(SP), @#177530
046300	000240			NOP    	
046302	005776	000002		TST    	@000002(SP)
046306	100402			BMI    	046314
046310	005267	004000		INC    	052314
046314	012616			MOV    	(SP)+, (SP)
046316	000207			RETURN 	
; PROCEDURE FNLOOK (VAR PAR:FNTYP)
046320	005067	003770		CLR    	052314
046324	012776	000040	000002	MOV    	#000040, @000002(SP)
046332	016637	000002	177530	MOV    	000002(SP), @#177530
046340	000240			NOP    	
046342	005776	000002		TST    	@000002(SP)
046346	100402			BMI    	046354
046350	005267	003740		INC    	052314
046354	012616			MOV    	(SP)+, (SP)
046356	000207			RETURN 	
; FUNCTION  GET4K   (N4K:INTEGER):INTEGER
046360	010046			MOV    	R0, -(SP)
046362	005066	000006		CLR    	000006(SP)
046366	016637	000004	174176	MOV    	000004(SP), @#174176
046374	000240			NOP    	
046376	103402			BLO    	046404
046400	010066	000006		MOV    	R0, 000006(SP)
046404	012600			MOV    	(SP)+, R0
046406	012616			MOV    	(SP)+, (SP)
046410	000207			RETURN 	
; FUNCTION  GET8K   (VAR N8K:INTEGER):INTEGER
046412	010046			MOV    	R0, -(SP)
046414	005066	000006		CLR    	000006(SP)
046420	017637	000004	174200	MOV    	@000004(SP), @#174200
046426	000240			NOP    	
046430	103402			BLO    	046436
046432	005266	000006		INC    	000006(SP)
046436	010076	000004		MOV    	R0, @000004(SP)
046442	012600			MOV    	(SP)+, R0
046444	012616			MOV    	(SP)+, (SP)
046446	000207			RETURN 	
; PROCEDURE FREMEM  (BLN:INTEGER; N8K:INTEGER)
046450	010046			MOV    	R0, -(SP)
046452	016600	000006		MOV    	000006(SP), R0
046456	016637	000004	174202	MOV    	000004(SP), @#174202
046464	000240			NOP    	
046466	012600			MOV    	(SP)+, R0
046470	012666	000002		MOV    	(SP)+, 000002(SP)
046474	005726			TST    	(SP)+
046476	000207			RETURN 	
; PROCEDURE FRE4K   (BLN:INTEGER; N4K:INTEGER)
046500	010046			MOV    	R0, -(SP)
046502	016600	000006		MOV    	000006(SP), R0
046506	016637	000004	174174	MOV    	000004(SP), @#174174
046514	000240			NOP    	
046516	012600			MOV    	(SP)+, R0
046520	012666	000002		MOV    	(SP)+, 000002(SP)
046524	005726			TST    	(SP)+
046526	000207			RETURN 	
; FUNCTION  PUTBMAP (VAR MAP:CHAR):INTEGER
046530	005066	000004		CLR    	000004(SP)
046534	016637	000002	174204	MOV    	000002(SP), @#174204
046542	000240			NOP    	
046544	103402			BLO    	046552
046546	005266	000004		INC    	000004(SP)
046552	012616			MOV    	(SP)+, (SP)
046554	000207			RETURN 	
; FUNCTION  GETBMAP (VAR MAP:CHAR):INTEGER
046556	010046			MOV    	R0, -(SP)
046560	005066	000006		CLR    	000006(SP)
046564	016637	000004	174206	MOV    	000004(SP), @#174206
046572	000240			NOP    	
046574	103402			BLO    	046602
046576	010066	000006		MOV    	R0, 000006(SP)
046602	012600			MOV    	(SP)+, R0
046604	012616			MOV    	(SP)+, (SP)
046606	000207			RETURN 	
; FUNCTION  GETSMAP (VAR MAP:CHAR):INTEGER
046610	010046			MOV    	R0, -(SP)
046612	016637	000004	174210	MOV    	000004(SP), @#174210
046620	000240			NOP    	
046622	010066	000006		MOV    	R0, 000006(SP)
046626	012600			MOV    	(SP)+, R0
046630	012616			MOV    	(SP)+, (SP)
046632	000207			RETURN 	
; FUNCTION  NEWROMP (SADDR:INTEGER):INTEGER
046634	010046			MOV    	R0, -(SP)
046636	005066	000006		CLR    	000006(SP)
046642	016637	000004	174166	MOV    	000004(SP), @#174166
046650	000240			NOP    	
046652	103402			BLO    	046660
046654	010066	000006		MOV    	R0, 000006(SP)
046660	012600			MOV    	(SP)+, R0
046662	012616			MOV    	(SP)+, (SP)
046664	000207			RETURN 	
; FUNCTION  NEWPROC (UMAP, DESC : INTEGER):INTEGER
046666	010046			MOV    	R0, -(SP)
046670	005066	000010		CLR    	000010(SP)
046674	016600	000006		MOV    	000006(SP), R0
046700	016637	000004	174214	MOV    	000004(SP), @#174214
046706	000240			NOP    	
046710	103402			BLO    	046716
046712	010066	000010		MOV    	R0, 000010(SP)
046716	012600			MOV    	(SP)+, R0
046720	012666	000002		MOV    	(SP)+, 000002(SP)
046724	005726			TST    	(SP)+
046726	000207			RETURN 	
; PROCEDURE KILPROC (NUM:INTEGER)
046730	016637	000002	174222	MOV    	000002(SP), @#174222
046736	000240			NOP    	
046740	012616			MOV    	(SP)+, (SP)
046742	000207			RETURN 	
; PROCEDURE SETPRI  (PRI:INTEGER)
046744	016637	000002	174152	MOV    	000002(SP), @#174152
046752	000240			NOP    	
046754	012616			MOV    	(SP)+, (SP)
046756	000207			RETURN 	
; PROCEDURE HIMPRI  (PROC, PRI : INTEGER)
046760	010046			MOV    	R0, -(SP)
046762	016600	000006		MOV    	000006(SP), R0
046766	016637	000004	174212	MOV    	000004(SP), @#174212
046774	000240			NOP    	
046776	012600			MOV    	(SP)+, R0
047000	012666	000002		MOV    	(SP)+, 000002(SP)
047004	005726			TST    	(SP)+
047006	000207			RETURN 	
; FUNCTION  PROVEC  (PAR, VEC : INTEGER; VAR ADDR:INTEGER):INTEGER
047010	010046			MOV    	R0, -(SP)
047012	005066	000012		CLR    	000012(SP)
047016	005076	000004		CLR    	@000004(SP)
047022	016600	000010		MOV    	000010(SP), R0
047026	016637	000006	174154	MOV    	000006(SP), @#174154
047034	000240			NOP    	
047036	103403			BLO    	047046
047040	005266	000012		INC    	000012(SP)
047044	000402			BR     	047052
047046	010076	000004		MOV    	R0, @000004(SP)
047052	012600			MOV    	(SP)+, R0
047054	012666	000004		MOV    	(SP)+, 000004(SP)
047060	022626			CMP    	(SP)+, (SP)+
047062	000207			RETURN 	
; FUNCTION  UNPVEC  (VEC:INTEGER):INTEGER
047064	005066	000004		CLR    	000004(SP)
047070	016637	000002	174156	MOV    	000002(SP), @#174156
047076	000240			NOP    	
047100	103402			BLO    	047106
047102	005266	000004		INC    	000004(SP)
047106	012616			MOV    	(SP)+, (SP)
047110	000207			RETURN 	
; FUNCTION  PROREG  (RTBL:INTEGER; VAR ADDR:INTEGER):INTEGER
047112	010046			MOV    	R0, -(SP)
047114	005066	000010		CLR    	000010(SP)
047120	016637	000006	174160	MOV    	000006(SP), @#174160
047126	000240			NOP    	
047130	010076	000004		MOV    	R0, @000004(SP)
047134	103402			BLO    	047142
047136	005266	000010		INC    	000010(SP)
047142	012600			MOV    	(SP)+, R0
047144	012666	000002		MOV    	(SP)+, 000002(SP)
047150	005726			TST    	(SP)+
047152	000207			RETURN 	
; PROCEDURE UNPREG  (REG:INTEGER)
047154	016637	000002	174162	MOV    	000002(SP), @#174162
047162	000240			NOP    	
047164	012616			MOV    	(SP)+, (SP)
047166	000207			RETURN 	
; FUNCTION  WAITINT (MASK,INTERVAL,PARAM:INTEGER; VAR R0, R1, R2 : INTEGER):INTEGER
047170	010046			MOV    	R0, -(SP)
047172	010146			MOV    	R1, -(SP)
047174	010246			MOV    	R2, -(SP)
047176	010346			MOV    	R3, -(SP)
047200	010446			MOV    	R4, -(SP)
047202	005066	000030		CLR    	000030(SP)
047206	016603	000024		MOV    	000024(SP), R3
047212	016604	000022		MOV    	000022(SP), R4
047216	016637	000026	174164	MOV    	000026(SP), @#174164
047224	000240			NOP    	
047226	103407			BLO    	047246
047230	005266	000030		INC    	000030(SP)
047234	010076	000020		MOV    	R0, @000020(SP)
047240	010166	000016		MOV    	R1, 000016(SP)
047244	000402			BR     	047252
047246	010276	000012		MOV    	R2, @000012(SP)
047252	012604			MOV    	(SP)+, R4
047254	012603			MOV    	(SP)+, R3
047256	012602			MOV    	(SP)+, R2
047260	012601			MOV    	(SP)+, R1
047262	012600			MOV    	(SP)+, R0
047264	011666	000014		MOV    	(SP), 000014(SP)
047270	062706	000014		ADD    	#000014, SP
047274	000207			RETURN 	
; PROCEDURE SETINT  (VEC:INTEGER)
047276	062766	100072	000002	ADD    	#100072, 000002(SP)
047304	016637	000002	174170	MOV    	000002(SP), @#174170
047312	000240			NOP    	
047314	012616			MOV    	(SP)+, (SP)
047316	000207			RETURN 	
; PROCEDURE RESINT  (VEC:INTEGER)
047320	062766	100072	000002	ADD    	#100072, 000002(SP)
047326	016637	000002	174172	MOV    	000002(SP), @#174172
047334	000240			NOP    	
047336	012616			MOV    	(SP)+, (SP)
047340	000207			RETURN 	
; PROCEDURE MTHLT   (WORD,ADR:INTEGER)
047342	010046			MOV    	R0, -(SP)
047344	016600	000006		MOV    	000006(SP), R0
047350	016637	000004	174216	MOV    	000004(SP), @#174216
047356	000240			NOP    	
047360	012600			MOV    	(SP)+, R0
047362	012666	000002		MOV    	(SP)+, 000002(SP)
047366	005726			TST    	(SP)+
047370	000207			RETURN 	
; FUNCTION  MFHLT   (ADR:INTEGER):INTEGER
047372	010046			MOV    	R0, -(SP)
047374	016637	000004	174220	MOV    	000004(SP), @#174220
047402	000240			NOP    	
047404	010066	000006		MOV    	R0, 000006(SP)
047410	012600			MOV    	(SP)+, R0
047412	012616			MOV    	(SP)+, (SP)
047414	000207			RETURN 	
; FUNCTION  INITSEM (IVAL:INTEGER):INTEGER
047416	010046			MOV    	R0, -(SP)
047420	005066	000006		CLR    	000006(SP)
047424	016637	000004	174142	MOV    	000004(SP), @#174142
047432	000240			NOP    	
047434	103402			BLO    	047442
047436	010066	000006		MOV    	R0, 000006(SP)
047442	012600			MOV    	(SP)+, R0
047444	012616			MOV    	(SP)+, (SP)
047446	000207			RETURN 	
; PROCEDURE RELSEM  (SEM:INTEGER)
047450	016637	000002	174144	MOV    	000002(SP), @#174144
047456	000240			NOP    	
047460	012616			MOV    	(SP)+, (SP)
047462	000207			RETURN 	
; PROCEDURE WAITSEM (SEM:INTEGER)
047464	016637	000002	174146	MOV    	000002(SP), @#174146
047472	000240			NOP    	
047474	012616			MOV    	(SP)+, (SP)
047476	000207			RETURN 	
; PROCEDURE SIGSEM  (SEM:INTEGER)
047500	016637	000002	174150	MOV    	000002(SP), @#174150
047506	000240			NOP    	
047510	012616			MOV    	(SP)+, (SP)
047512	000207			RETURN 	
; PROCEDURE TIMEOFF
047514	012700	000001		MOV    	#000001, R0
047520	012737	100600	174216	MOV    	#100600, @#174216
047526	000240			NOP    	
047530	000207			RETURN 	
; PROCEDURE TIMEON
047532	005000			CLR    	R0
047534	012737	100600	174216	MOV    	#100600, @#174216
047542	000240			NOP    	
047544	000207			RETURN 	
; PROCEDURE DCHAR (POS,COD:INTEGER)
047546	010046			MOV    	R0, -(SP)
047550	005000			CLR    	R0
047552	156600	000006		BISB   	000006(SP), R0
047556	000300			SWAB   	R0
047560	156600	000004		BISB   	000004(SP), R0
047564	010037	174100		MOV    	R0, @#174100
047570	000240			NOP    	
047572	012600			MOV    	(SP)+, R0
047574	012666	000002		MOV    	(SP)+, 000002(SP)
047600	005726			TST    	(SP)+
047602	000207			RETURN 	
; PROCEDURE DSTRIN (POS,N:INTEGER; VAR CH:CHAR)
047604	010046			MOV    	R0, -(SP)
047606	005000			CLR    	R0
047610	016600	000006		MOV    	000006(SP), R0
047614	072027	000004		ASH    	#000004, R0
047620	066600	000010		ADD    	000010(SP), R0
047624	110076	000004		MOVB   	R0, @000004(SP)
047630	016637	000004	174102	MOV    	000004(SP), @#174102
047636	000240			NOP    	
047640	012600			MOV    	(SP)+, R0
047642	012666	000004		MOV    	(SP)+, 000004(SP)
047646	022626			CMP    	(SP)+, (SP)+
047650	000207			RETURN 	
; PROCEDURE DVAL (VAL,POS,N,RAD : INTEGER)
047652	010046			MOV    	R0, -(SP)
047654	162706	000004		SUB    	#000004, SP
047660	016616	000016		MOV    	000016(SP), (SP)
047664	005000			CLR    	R0
047666	156600	000012		BISB   	000012(SP), R0
047672	072027	000004		ASH    	#000004, R0
047676	156600	000014		BISB   	000014(SP), R0
047702	000300			SWAB   	R0
047704	156600	000010		BISB   	000010(SP), R0
047710	000300			SWAB   	R0
047712	010066	000002		MOV    	R0, 000002(SP)
047716	010637	174104		MOV    	SP, @#174104
047722	000240			NOP    	
047724	022626			CMP    	(SP)+, (SP)+
047726	012600			MOV    	(SP)+, R0
047730	011666	000010		MOV    	(SP), 000010(SP)
047734	062706	000010		ADD    	#000010, SP
047740	000207			RETURN 	
; FUNCTION KSTRIN (VAR ADDR : STR20) : INTEGER
047742	005066	000004		CLR    	000004(SP)
047746	016637	000002	174106	MOV    	000002(SP), @#174106
047754	000240			NOP    	
047756	103402			BLO    	047764
047760	005266	000004		INC    	000004(SP)
047764	012616			MOV    	(SP)+, (SP)
047766	000207			RETURN 	
; PROCEDURE RESPON (VAR ADDR : STR20)
047770	016637	000002	174110	MOV    	000002(SP), @#174110
047776	000240			NOP    	
050000	012616			MOV    	(SP)+, (SP)
050002	000207			RETURN 	
; PROCEDURE GCREA (WIDTH, HEIGHT, MODPAL : INTEGER; VAR IDENT, ANUM : INTEGER)
050004	005067	002256		CLR    	052266
050010	012700	052270		MOV    	#052270, R0
050014	012710	000000		MOV    	#000000, (R0)
050020	016660	000012	000002	MOV    	000012(SP), 000002(R0)
050026	016660	000010	000004	MOV    	000010(SP), 000004(R0)
050034	016660	000006	000006	MOV    	000006(SP), 000006(R0)
050042	010037	177600		MOV    	R0, @#177600
050046	000240			NOP    	
050050	005767	002214		TST    	052270
050054	100003			BPL    	050064
050056	016767	002206	002202	MOV    	052270, 052266
050064	016776	002202	000004	MOV    	052272, @000004(SP)
050072	016776	002176	000002	MOV    	052274, @000002(SP)
050100	011666	000012		MOV    	(SP), 000012(SP)
050104	062706	000012		ADD    	#000012, SP
050110	000207			RETURN 	
; PROCEDURE GKILL (IDENT : INTEGER)
050112	005067	002150		CLR    	052266
050116	012700	052270		MOV    	#052270, R0
050122	012710	000001		MOV    	#000001, (R0)
050126	016660	000002	000002	MOV    	000002(SP), 000002(R0)
050134	010037	177600		MOV    	R0, @#177600
050140	000240			NOP    	
050142	005767	002122		TST    	052270
050146	100003			BPL    	050156
050150	016767	002114	002110	MOV    	052270, 052266
050156	012616			MOV    	(SP)+, (SP)
050160	000207			RETURN 	
; PROCEDURE GCLRR (IDENT : INTEGER)
050162	005067	002100		CLR    	052266
050166	012700	052270		MOV    	#052270, R0
050172	012710	000002		MOV    	#000002, (R0)
050176	016660	000002	000002	MOV    	000002(SP), 000002(R0)
050204	010037	177600		MOV    	R0, @#177600
050210	000240			NOP    	
050212	005767	002052		TST    	052270
050216	100003			BPL    	050226
050220	016767	002044	002040	MOV    	052270, 052266
050226	012616			MOV    	(SP)+, (SP)
050230	000207			RETURN 	
; PROCEDURE GASP (IDENT, XASP, YASP : INTEGER)
050232	005067	002030		CLR    	052266
050236	012700	052270		MOV    	#052270, R0
050242	012710	000003		MOV    	#000003, (R0)
050246	016660	000006	000002	MOV    	000006(SP), 000002(R0)
050254	016660	000004	000004	MOV    	000004(SP), 000004(R0)
050262	016660	000002	000006	MOV    	000002(SP), 000006(R0)
050270	010037	177600		MOV    	R0, @#177600
050274	000240			NOP    	
050276	005767	001766		TST    	052270
050302	100003			BPL    	050312
050304	016767	001760	001754	MOV    	052270, 052266
050312	011666	000006		MOV    	(SP), 000006(SP)
050316	062706	000006		ADD    	#000006, SP
050322	000207			RETURN 	
; PROCEDURE GWNDW (IDENT, X1, Y1, X2, Y2 : INTEGER)
050324	005067	001736		CLR    	052266
050330	012700	052270		MOV    	#052270, R0
050334	012710	000004		MOV    	#000004, (R0)
050340	016660	000012	000002	MOV    	000012(SP), 000002(R0)
050346	016660	000010	000004	MOV    	000010(SP), 000004(R0)
050354	016660	000006	000006	MOV    	000006(SP), 000006(R0)
050362	016660	000004	000010	MOV    	000004(SP), 000010(R0)
050370	016660	000002	000012	MOV    	000002(SP), 000012(R0)
050376	010037	177600		MOV    	R0, @#177600
050402	000240			NOP    	
050404	005767	001660		TST    	052270
050410	100003			BPL    	050420
050412	016767	001652	001646	MOV    	052270, 052266
050420	011666	000012		MOV    	(SP), 000012(SP)
050424	062706	000012		ADD    	#000012, SP
050430	000207			RETURN 	
; PROCEDURE GFGC (IDENT, COLOR : INTEGER)
050432	005067	001630		CLR    	052266
050436	012700	052270		MOV    	#052270, R0
050442	012710	000005		MOV    	#000005, (R0)
050446	016660	000004	000002	MOV    	000004(SP), 000002(R0)
050454	016660	000002	000004	MOV    	000002(SP), 000004(R0)
050462	010037	177600		MOV    	R0, @#177600
050466	000240			NOP    	
050470	005767	001574		TST    	052270
050474	100003			BPL    	050504
050476	016767	001566	001562	MOV    	052270, 052266
050504	012666	000002		MOV    	(SP)+, 000002(SP)
050510	005726			TST    	(SP)+
050512	000207			RETURN 	
; PROCEDURE GBGC (IDENT, COLOR : INTEGER)
050514	005067	001546		CLR    	052266
050520	012700	052270		MOV    	#052270, R0
050524	012710	000006		MOV    	#000006, (R0)
050530	016660	000004	000002	MOV    	000004(SP), 000002(R0)
050536	016660	000002	000004	MOV    	000002(SP), 000004(R0)
050544	010037	177600		MOV    	R0, @#177600
050550	000240			NOP    	
050552	005767	001512		TST    	052270
050556	100003			BPL    	050566
050560	016767	001504	001500	MOV    	052270, 052266
050566	012666	000002		MOV    	(SP)+, 000002(SP)
050572	005726			TST    	(SP)+
050574	000207			RETURN 	
; PROCEDURE GROP (IDENT, CODE : INTEGER)
050576	005067	001464		CLR    	052266
050602	012700	052270		MOV    	#052270, R0
050606	012710	000007		MOV    	#000007, (R0)
050612	016660	000004	000002	MOV    	000004(SP), 000002(R0)
050620	016660	000002	000004	MOV    	000002(SP), 000004(R0)
050626	010037	177600		MOV    	R0, @#177600
050632	000240			NOP    	
050634	005767	001430		TST    	052270
050640	100003			BPL    	050650
050642	016767	001422	001416	MOV    	052270, 052266
050650	012666	000002		MOV    	(SP)+, 000002(SP)
050654	005726			TST    	(SP)+
050656	000207			RETURN 	
; PROCEDURE GTYPE (IDENT, TYP : INTEGER)
050660	005067	001402		CLR    	052266
050664	012700	052270		MOV    	#052270, R0
050670	012710	000010		MOV    	#000010, (R0)
050674	016660	000004	000002	MOV    	000004(SP), 000002(R0)
050702	016660	000002	000004	MOV    	000002(SP), 000004(R0)
050710	010037	177600		MOV    	R0, @#177600
050714	000240			NOP    	
050716	005767	001346		TST    	052270
050722	100003			BPL    	050732
050724	016767	001340	001334	MOV    	052270, 052266
050732	012666	000002		MOV    	(SP)+, 000002(SP)
050736	005726			TST    	(SP)+
050740	000207			RETURN 	
; PROCEDURE GPTRN (IDENT : INTEGER; VAR PATTERN : INTEGER);
050742	005067	001320		CLR    	052266
050746	012700	052270		MOV    	#052270, R0
050752	012710	000011		MOV    	#000011, (R0)
050756	016660	000004	000002	MOV    	000004(SP), 000002(R0)
050764	016660	000002	000004	MOV    	000002(SP), 000004(R0)
050772	010037	177600		MOV    	R0, @#177600
050776	000240			NOP    	
051000	005767	001264		TST    	052270
051004	100003			BPL    	051014
051006	016767	001256	001252	MOV    	052270, 052266
051014	012666	000002		MOV    	(SP)+, 000002(SP)
051020	005726			TST    	(SP)+
051022	000207			RETURN 	
; PROCEDURE GMOVE (IDENT, X, Y : INTEGER)
051024	005067	001236		CLR    	052266
051030	012700	052270		MOV    	#052270, R0
051034	012710	000012		MOV    	#000012, (R0)
051040	016660	000006	000002	MOV    	000006(SP), 000002(R0)
051046	016660	000004	000004	MOV    	000004(SP), 000004(R0)
051054	016660	000002	000006	MOV    	000002(SP), 000006(R0)
051062	010037	177600		MOV    	R0, @#177600
051066	000240			NOP    	
051070	005767	001174		TST    	052270
051074	100003			BPL    	051104
051076	016767	001166	001162	MOV    	052270, 052266
051104	011666	000006		MOV    	(SP), 000006(SP)
051110	062706	000006		ADD    	#000006, SP
051114	000207			RETURN 	
; PROCEDURE GDOT (IDENT, X, Y : INTEGER)
051116	005067	001144		CLR    	052266
051122	012700	052270		MOV    	#052270, R0
051126	012710	000013		MOV    	#000013, (R0)
051132	016660	000006	000002	MOV    	000006(SP), 000002(R0)
051140	016660	000004	000004	MOV    	000004(SP), 000004(R0)
051146	016660	000002	000006	MOV    	000002(SP), 000006(R0)
051154	010037	177600		MOV    	R0, @#177600
051160	000240			NOP    	
051162	005767	001102		TST    	052270
051166	100003			BPL    	051176
051170	016767	001074	001070	MOV    	052270, 052266
051176	011666	000006		MOV    	(SP), 000006(SP)
051202	062706	000006		ADD    	#000006, SP
051206	000207			RETURN 	
; FUNCTION GGET (IDENT, X, Y : INTEGER):INTEGER
051210	005067	001052		CLR    	052266
051214	012700	052270		MOV    	#052270, R0
051220	012710	000014		MOV    	#000014, (R0)
051224	016660	000006	000002	MOV    	000006(SP), 000002(R0)
051232	016660	000004	000004	MOV    	000004(SP), 000004(R0)
051240	016660	000002	000006	MOV    	000002(SP), 000006(R0)
051246	010037	177600		MOV    	R0, @#177600
051252	000240			NOP    	
051254	005767	001010		TST    	052270
051260	100003			BPL    	051270
051262	016767	001002	000776	MOV    	052270, 052266
051270	016766	001000	000010	MOV    	052274, 000010(SP)
051276	011666	000006		MOV    	(SP), 000006(SP)
051302	062706	000006		ADD    	#000006, SP
051306	000207			RETURN 	
; PROCEDURE GLINE (IDENT, X, Y : INTEGER)
051310	005067	000752		CLR    	052266
051314	012700	052270		MOV    	#052270, R0
051320	012710	000015		MOV    	#000015, (R0)
051324	016660	000006	000002	MOV    	000006(SP), 000002(R0)
051332	016660	000004	000004	MOV    	000004(SP), 000004(R0)
051340	016660	000002	000006	MOV    	000002(SP), 000006(R0)
051346	010037	177600		MOV    	R0, @#177600
051352	000240			NOP    	
051354	005767	000710		TST    	052270
051360	100003			BPL    	051370
051362	016767	000702	000676	MOV    	052270, 052266
051370	011666	000006		MOV    	(SP), 000006(SP)
051374	062706	000006		ADD    	#000006, SP
051400	000207			RETURN 	
; PROCEDURE GARCC (IDENT, XC, YC, XF, YF : INTEGER)
051402	005067	000660		CLR    	052266
051406	012700	052270		MOV    	#052270, R0
051412	012710	000016		MOV    	#000016, (R0)
051416	016660	000012	000002	MOV    	000012(SP), 000002(R0)
051424	016660	000010	000004	MOV    	000010(SP), 000004(R0)
051432	016660	000006	000006	MOV    	000006(SP), 000006(R0)
051440	016660	000004	000010	MOV    	000004(SP), 000010(R0)
051446	016660	000002	000012	MOV    	000002(SP), 000012(R0)
051454	010037	177600		MOV    	R0, @#177600
051460	000240			NOP    	
051462	005767	000602		TST    	052270
051466	100003			BPL    	051476
051470	016767	000574	000570	MOV    	052270, 052266
051476	011666	000012		MOV    	(SP), 000012(SP)
051502	062706	000012		ADD    	#000012, SP
051506	000207			RETURN 	
; PROCEDURE GARCW (IDENT, XC, YC, XF, YF : INTEGER)
051510	005067	000552		CLR    	052266
051514	012700	052270		MOV    	#052270, R0
051520	012710	000017		MOV    	#000017, (R0)
051524	016660	000012	000002	MOV    	000012(SP), 000002(R0)
051532	016660	000010	000004	MOV    	000010(SP), 000004(R0)
051540	016660	000006	000006	MOV    	000006(SP), 000006(R0)
051546	016660	000004	000010	MOV    	000004(SP), 000010(R0)
051554	016660	000002	000012	MOV    	000002(SP), 000012(R0)
051562	010037	177600		MOV    	R0, @#177600
051566	000240			NOP    	
051570	005767	000474		TST    	052270
051574	100003			BPL    	051604
051576	016767	000466	000462	MOV    	052270, 052266
051604	011666	000012		MOV    	(SP), 000012(SP)
051610	062706	000012		ADD    	#000012, SP
051614	000207			RETURN 	
; PROCEDURE GFILL (IDENT, X, Y : INTEGER)
051616	005067	000444		CLR    	052266
051622	012700	052270		MOV    	#052270, R0
051626	012710	000020		MOV    	#000020, (R0)
051632	016660	000006	000002	MOV    	000006(SP), 000002(R0)
051640	016660	000004	000004	MOV    	000004(SP), 000004(R0)
051646	016660	000002	000006	MOV    	000002(SP), 000006(R0)
051654	010037	177600		MOV    	R0, @#177600
051660	000240			NOP    	
051662	005767	000402		TST    	052270
051666	100003			BPL    	051676
051670	016767	000374	000370	MOV    	052270, 052266
051676	011666	000006		MOV    	(SP), 000006(SP)
051702	062706	000006		ADD    	#000006, SP
051706	000207			RETURN 	
; PROCEDURE GRVR (IDENT, X, Y : INTEGER; VAR ADDR : INTEGER)
051710	005067	000352		CLR    	052266
051714	012700	052270		MOV    	#052270, R0
051720	012710	000021		MOV    	#000021, (R0)
051724	016660	000010	000002	MOV    	000010(SP), 000002(R0)
051732	016660	000006	000004	MOV    	000006(SP), 000004(R0)
051740	016660	000004	000006	MOV    	000004(SP), 000006(R0)
051746	016660	000002	000010	MOV    	000002(SP), 000010(R0)
051754	010037	177600		MOV    	R0, @#177600
051760	000240			NOP    	
051762	005767	000302		TST    	052270
051766	100003			BPL    	051776
051770	016767	000274	000270	MOV    	052270, 052266
051776	011666	000010		MOV    	(SP), 000010(SP)
052002	062706	000010		ADD    	#000010, SP
052006	000207			RETURN 	
; PROCEDURE GVRR (IDENT, X1, Y1, X2, Y2 : INTEGER; VAR ADDR : INTEGER)
052010	005067	000252		CLR    	052266
052014	012700	052270		MOV    	#052270, R0
052020	012710	000022		MOV    	#000022, (R0)
052024	016660	000014	000002	MOV    	000014(SP), 000002(R0)
052032	016660	000012	000004	MOV    	000012(SP), 000004(R0)
052040	016660	000010	000006	MOV    	000010(SP), 000006(R0)
052046	016660	000006	000010	MOV    	000006(SP), 000010(R0)
052054	016660	000004	000012	MOV    	000004(SP), 000012(R0)
052062	016660	000002	000014	MOV    	000002(SP), 000014(R0)
052070	010037	177600		MOV    	R0, @#177600
052074	000240			NOP    	
052076	005767	000166		TST    	052270
052102	100003			BPL    	052112
052104	016767	000160	000154	MOV    	052270, 052266
052112	011666	000014		MOV    	(SP), 000014(SP)
052116	062706	000014		ADD    	#000014, SP
052122	000207			RETURN 	
; PROCEDURE GVRVR (IDENT, X1, Y1, X2, Y2, X, Y : INTEGER)
052124	005067	000136		CLR    	052266
052130	012700	052270		MOV    	#052270, R0
052134	012710	000023		MOV    	#000023, (R0)
052140	016660	000016	000002	MOV    	000016(SP), 000002(R0)
052146	016660	000014	000004	MOV    	000014(SP), 000004(R0)
052154	016660	000012	000006	MOV    	000012(SP), 000006(R0)
052162	016660	000010	000010	MOV    	000010(SP), 000010(R0)
052170	016660	000006	000012	MOV    	000006(SP), 000012(R0)
052176	016660	000004	000014	MOV    	000004(SP), 000014(R0)
052204	016660	000002	000016	MOV    	000002(SP), 000016(R0)
052212	010037	177600		MOV    	R0, @#177600
052216	000240			NOP    	
052220	005767	000044		TST    	052270
052224	100003			BPL    	052234
052226	016767	000036	000032	MOV    	052270, 052266
052234	011666	000016		MOV    	(SP), 000016(SP)
052240	062706	000016		ADD    	#000016, SP
052244	000207			RETURN 	
; FUNCTION GRERR : INTEGER
052246	016766	000014	000002	MOV    	052266, 000002(SP)
052254	000207			RETURN 	
; FUNCTION ERRLIB : INTEGER
052256	016766	000032	000002	MOV    	052314, 000002(SP)
052264	000207			RETURN 	
; GR$ERR
052266	000000			HALT   	
; AREA
052270	000000			HALT   	
052272	000000			HALT   	
052274	000000			HALT   	
052276	000000			HALT   	
052300	000000			HALT   	
052302	000000			HALT   	
052304	000000			HALT   	
052306	000000			HALT   	
052310	000000			HALT   	
052312	000000			HALT   	
; ERR$FL
052314	000000			HALT   	
==================== PLIB11 MODULE END ============================
=============== INIT BEGIN ===================================
052316	005767	015610		TST    	070132
052322	001002			BNE    	052330
052324	000167	000616		JMP    	053146	; $END
052330	000177	015576		JMP    	@070132
052334	000770			BR     	052316
; $START
052336	022727	000014	000014	CMP    	#000014, #000014
052344	001407			BEQ    	052364
052346	012700	052764		MOV    	#052764, R0
052352	104351			EMT    	000351
052354	152767	000010	125471	BISB   	#000010, 000053
052362	104350			EMT    	000350
052364	012706	070126		MOV    	#070126, SP
052370	012700	177776		MOV    	#177776, R0
052374	026767	125442	000360	CMP    	000042, 052762
052402	101402			BLOS   	052410
052404	016700	125432		MOV    	000042, R0
052410	104354			EMT    	000354
052412	010067	014772		MOV    	R0, 067410
052416	162700	000214		SUB    	#000214, R0
052422	010006			MOV    	R0, SP
052424	010067	014666		MOV    	R0, 067316
052430	005067	014746		CLR    	067402
052434	005067	014744		CLR    	067404
052440	005067	014742		CLR    	067406
052444	005067	014724		CLR    	067374
052450	010005			MOV    	R0, R5
052452	010567	014644		MOV    	R5, 067322
052456	010567	014642		MOV    	R5, 067324
052462	010500			MOV    	R5, R0
052464	062705	000036		ADD    	#000036, R5
052470	010567	014632		MOV    	R5, 067326
052474	010567	014630		MOV    	R5, 067330
052500	010501			MOV    	R5, R1
052502	062705	000036		ADD    	#000036, R5
052506	010520			MOV    	R5, (R0)+
052510	112715	000040		MOVB   	#000040, (R5)
052514	062705	000020		ADD    	#000020, R5
052520	010521			MOV    	R5, (R1)+
052522	012720	004210		MOV    	#004210, (R0)+
052526	012721	100220		MOV    	#100220, (R1)+
052532	012710	077150		MOV    	#077150, (R0)
052536	012021			MOV    	(R0)+, (R1)+
052540	012702	000004		MOV    	#000004, R2
052544	005020			CLR    	(R0)+
052546	005021			CLR    	(R1)+
052550	077203			SOB    	R2, 052544
052552	012720	004377		MOV    	#004377, (R0)+
052556	012721	004777		MOV    	#004777, (R1)+
052562	005020			CLR    	(R0)+
052564	005021			CLR    	(R1)+
052566	017720	014530		MOV    	@067322, (R0)+
052572	010521			MOV    	R5, (R1)+
052574	012720	000020		MOV    	#000020, (R0)+
052600	012721	000100		MOV    	#000100, (R1)+
052604	012710	000004		MOV    	#000004, (R0)
052610	012021			MOV    	(R0)+, (R1)+
052612	012710	000001		MOV    	#000001, (R0)
052616	012021			MOV    	(R0)+, (R1)+
052620	017720	014476		MOV    	@067322, (R0)+
052624	010521			MOV    	R5, (R1)+
052626	005020			CLR    	(R0)+
052630	005021			CLR    	(R1)+
052632	016705	000124		MOV    	052762, R5
052636	010567	014536		MOV    	R5, 067400
052642	010500			MOV    	R5, R0
052644	005020			CLR    	(R0)+
052646	020067	014444		CMP    	R0, 067316
052652	103774			BLO    	052644
052654	012701	000020		MOV    	#000020, R1
052660	012700	067332		MOV    	#067332, R0
052664	005020			CLR    	(R0)+
052666	077102			SOB    	R1, 052664
052670	052767	060000	125146	BIS    	#060000, 000044
052676	012700	067452		MOV    	#067452, R0
052702	012710	001400		MOV    	#001400, (R0)
052706	012760	053012	000002	MOV    	#053012, 000002(R0)
052714	104375			EMT    	000375
052716	032767	001000	125120	BIT    	#001000, 000044
052724	001404			BEQ    	052736
052726	012767	177777	014434	MOV    	#177777, 067370
052734	000403			BR     	052744
052736	012700	001417		MOV    	#001417, R0
052742	104374			EMT    	000374
052744	016746	014352		MOV    	067322, -(SP)
052750	016746	014352		MOV    	067326, -(SP)
052754	000167	171264		JMP    	044244
052760	001000			BNE    	052762
052762	070136			MUL    	@(SP)+, R1
052764	040502			BIC    	R5, R2
052766	020104			CMP    	R1, R4
052770	047503	050115		BIC    	@050115(R5), R3
052774	046111	051105		BIC    	051105(R1), (R1)
053000	053040			BIS    	@(R0)+, -(R0)
053002	051105			BIS    	(R1), R5
053004	044523			BIC    	-(R5), (R3)+
053006	047117	000000		BIC    	@000000(R1), (PC)
053012	103017			BHIS   	053052
053014	005767	015114		TST    	070134
053020	001427			BEQ    	053100
053022	010046			MOV    	R0, -(SP)
053024	012700	067432		MOV    	#067432, R0
053030	012710	001400		MOV    	#001400, (R0)
053034	012760	053012	000002	MOV    	#053012, 000002(R0)
053042	104375			EMT    	000375
053044	012600			MOV    	(SP)+, R0
053046	000177	015062		JMP    	@070134
053052	011667	014314		MOV    	(SP), 067372
053056	004067	006022		JSR    	R0, 061104 ; $ERROR
053062	016400	000011		MOV    	000011(R4), R0
053066	051124			BIS    	(R1), (R4)+
053070	050101			BIS    	R1, R1
053072	052040			BIS    	(R0)+, -(R0)
053074	020117			CMP    	R1, (PC)
053076	000064			unknown	000064
053100	011667	014266		MOV    	(SP), 067372
053104	004067	005774		JSR    	R0, 061104 ; $ERROR
053110	016400	000031		MOV    	000031(R4), R0
053114	042522			BIC    	(R5)+, (R2)+
053116	042523			BIC    	(R5)+, (R3)+
053120	053122			BIS    	@(R1)+, (R2)+
053122	042105			BIC    	(R1)+, R5
053124	044440			BIC    	-(R4), -(R0)
053126	051516			BIS    	(R5), (SP)
053130	051124			BIS    	(R1), (R4)+
053132	041525			BIC    	(R5), (R5)+
053134	044524			BIC    	-(R5), (R4)+
053136	047117	052040		BIC    	@052040(R1), (PC)
053142	040522			BIC    	R5, (R2)+
053144	000120			JMP    	(R0)+
; $END
053146	005767	014756		TST    	070130
053152	001027			BNE    	053232
053154	012703	000020		MOV    	#000020, R3
053160	012704	067332		MOV    	#067332, R4
053164	012405			MOV    	(R4)+, R5
053166	001413			BEQ    	053216
053170	032705	000001		BIT    	#000001, R5
053174	001010			BNE    	053216
053176	012767	067412	014172	MOV    	#067412, 067376
053204	010567	014202		MOV    	R5, 067412
053210	005725			TST    	(R5)+
053212	004767	001310		CALL   	054526	; $CLOSE
053216	077316			SOB    	R3, 053164
053220	012700	001000		MOV    	#001000, R0
053224	104354			EMT    	000354
053226	005000			CLR    	R0
053230	104350			EMT    	000350
053232	000177	014672		JMP    	@070130
================================ INIT END ====================================
==================== IO BEGIN =====================================
; $TSTCHN
053236	005705			TST    	R5
053240	001433			BEQ    	053330
053242	020567	014142		CMP    	R5, 067410
053246	103030			BHIS   	053330
053250	032705	000001		BIT    	#000001, R5
053254	001025			BNE    	053330
053256	005000			CLR    	R0
053260	156500	000016		BISB   	000016(R5), R0
053264	020027	000377		CMP    	R0, #000377
053270	001415			BEQ    	053324
053272	020027	000017		CMP    	R0, #000017
053276	101014			BHI    	053330
053300	026705	014016		CMP    	067322, R5
053304	001407			BEQ    	053324
053306	026705	014014		CMP    	067326, R5
053312	001404			BEQ    	053324
053314	006300			ASL    	R0
053316	026005	067332		CMP    	067332(R0), R5
053322	001002			BNE    	053330
053324	005725			TST    	(R5)+
053326	000207			RETURN 	
053330	000261			SEC    	
053332	000207			RETURN 	
; CLRSCR
053334	012700	067452		MOV    	#067452, R0
053340	012701	000226		MOV    	#000226, R1
053344	005020			CLR    	(R0)+
053346	005301			DEC    	R1
053350	001375			BNE    	053344
053352	000207			RETURN 	
; $SETIO
053354	016667	000002	014010	MOV    	000002(SP), 067372
053362	012546			MOV    	(R5)+, -(SP)
053364	060616			ADD    	SP, (SP)
053366	010146			MOV    	R1, -(SP)
053370	010046			MOV    	R0, -(SP)
053372	010546			MOV    	R5, -(SP)
053374	016705	013776		MOV    	067376, R5
053400	004767	177632		CALL   	053236	; $TSTCHN
053404	103013			BHIS   	053434
053406	004067	005472		JSR    	R0, 061104 ; $ERROR
053412	017000	000015		MOV    	@000015(R0), R0
053416	044506			BIC    	-(R5), SP
053420	042514			BIC    	(R5)+, (R4)
053422	047040	052117		BIC    	@052117(R0), -(R0)
053426	047440	042520		BIC    	@042520(R4), -(R0)
053432	000116			JMP    	(SP)
053434	004736			CALL   	@(SP)+
053436	012600			MOV    	(SP)+, R0
053440	012601			MOV    	(SP)+, R1
053442	016605	000002		MOV    	000002(SP), R5
053446	016676	000004	000000	MOV    	000004(SP), @000000(SP)
053454	011606			MOV    	(SP), SP
053456	000207			RETURN 	
; $B61
053460	004567	177670		JSR    	R5, 053354 ; $SETIO
053464	000004			IOT    	
; $GET
053466	032715	000014		BIT    	#000014, (R5)
053472	001011			BNE    	053516
053474	004067	005404		JSR    	R0, 061104 ; $ERROR
053500	011001			MOV    	(R0), R1
053502	000012			START  	
053504	040503			BIC    	R5, R3
053506	023516			CMP    	@(R5)+, (SP)
053510	020124			CMP    	R1, (R4)+
053512	042522			BIC    	(R5)+, (R2)+
053514	042101			BIC    	(R1)+, R1
053516	042715	044000		BIC    	#044000, (R5)
053522	100012			BPL    	053550
053524	004067	005354		JSR    	R0, 061104 ; $ERROR
053530	010401			MOV    	R4, R1
053532	000013			unknown	000013
053534	047105	020104		BIC    	@020104(R1), R5
053540	043117			BIC    	@(R1)+, (PC)
053542	043040			BIC    	@(R0)+, -(R0)
053544	046111	000105		BIC    	000105(R1), (R1)
053550	032715	000200		BIT    	#000200, (R5)
053554	001011			BNE    	053600
053556	004767	000260		CALL   	054042
053562	103403			BLO    	053572
053564	026500	000030		CMP    	000030(R5), R0
053570	103002			BHIS   	053576
053572	004767	000326		CALL   	054124	; NXTBUF
053576	000207			RETURN 	
053600	005245			INC    	-(R5)
053602	022565	000030		CMP    	(R5)+, 000030(R5)
053606	103402			BLO    	053614
053610	004767	000310		CALL   	054124	; NXTBUF
053614	005715			TST    	(R5)
053616	100423			BMI    	053666
053620	117500	177776		MOVB   	@177776(R5), R0
053624	042700	177600		BIC    	#177600, R0
053630	001763			BEQ    	053600
053632	122700	000015		CMPB   	#000015, R0
053636	001760			BEQ    	053600
053640	122700	000012		CMPB   	#000012, R0
053644	001410			BEQ    	053666
053646	122700	000033		CMPB   	#000033, R0
053652	001405			BEQ    	053666
053654	122700	000032		CMPB   	#000032, R0
053660	001346			BNE    	053576
053662	052715	100000		BIS    	#100000, (R5)
053666	012700	000040		MOV    	#000040, R0
053672	110075	177776		MOVB   	R0, @177776(R5)
053676	052715	040000		BIS    	#040000, (R5)
053702	000207			RETURN 	
; $B60
053704	004567	177444		JSR    	R5, 053354 ; $SETIO
053710	000004			IOT    	
; $PUT
053712	032715	000024		BIT    	#000024, (R5)
053716	001014			BNE    	053750
053720	004067	005160		JSR    	R0, 061104 ; $ERROR
053724	011401			MOV    	(R4), R1
053726	000017			unknown	000017
053730	052520			BIS    	(R5)+, (R0)+
053732	020124			CMP    	R1, (R4)+
053734	047516	020124		BIC    	@020124(R5), (SP)
053740	046101	047514		BIC    	047514(R1), R1
053744	042527	000104		BIC    	(R5)+, #000104
053750	004767	000066		CALL   	054042
053754	052715	000001		BIS    	#000001, (R5)
053760	026565	000030	177776	CMP    	000030(R5), 177776(R5)
053766	101005			BHI    	054002
053770	016565	177776	000030	MOV    	177776(R5), 000030(R5)
053776	052715	100000		BIS    	#100000, (R5)
054002	122765	000377	000014	CMPB   	#000377, 000014(R5)
054010	001003			BNE    	054020
054012	004767	000664		CALL   	054702	; $BREAK
054016	000207			RETURN 	
054020	166500	000020		SUB    	000020(R5), R0
054024	103403			BLO    	054034
054026	026500	000022		CMP    	000022(R5), R0
054032	103002			BHIS   	054040
054034	004767	000064		CALL   	054124	; NXTBUF
054040	000207			RETURN 	
054042	066545	000026		ADD    	000026(R5), -(R5)
054046	012500			MOV    	(R5)+, R0
054050	032715	000002		BIT    	#000002, (R5)
054054	001020			BNE    	054116
054056	166500	000020		SUB    	000020(R5), R0
054062	042700	177000		BIC    	#177000, R0
054066	001411			BEQ    	054112
054070	066500	000026		ADD    	000026(R5), R0
054074	162700	001000		SUB    	#001000, R0
054100	101404			BLOS   	054112
054102	166500	000026		SUB    	000026(R5), R0
054106	160065	177776		SUB    	R0, 177776(R5)
054112	016500	177776		MOV    	177776(R5), R0
054116	066500	000026		ADD    	000026(R5), R0
054122	000207			RETURN 	
; NXTBUF
054124	010146			MOV    	R1, -(SP)
054126	010246			MOV    	R2, -(SP)
054130	010346			MOV    	R3, -(SP)
054132	032715	000002		BIT    	#000002, (R5)
054136	001500			BEQ    	054340
054140	016500	177776		MOV    	177776(R5), R0
054144	166500	000020		SUB    	000020(R5), R0
054150	042700	000777		BIC    	#000777, R0
054154	010001			MOV    	R0, R1
054156	066500	000020		ADD    	000020(R5), R0
054162	166500	000030		SUB    	000030(R5), R0
054166	103064			BHIS   	054340
054170	005400			NEG    	R0
054172	032715	000001		BIT    	#000001, (R5)
054176	001402			BEQ    	054204
054200	004767	001416		CALL   	055622
054204	160165	177776		SUB    	R1, 177776(R5)
054210	160165	000030		SUB    	R1, 000030(R5)
054214	010102			MOV    	R1, R2
054216	000302			SWAB   	R2
054220	006202			ASR    	R2
054222	060265	000016		ADD    	R2, 000016(R5)
054226	103013			BHIS   	054256
054230	004067	004650		JSR    	R0, 061104 ; $ERROR
054234	020401			CMP    	R4, R1
054236	000015			unknown	000015
054240	044506			BIC    	-(R5), SP
054242	042514			BIC    	(R5)+, (R4)
054244	047440	042526		BIC    	@042526(R4), -(R0)
054250	043122			BIC    	@(R1)+, (R2)+
054252	047514	000127		BIC    	@000127(R5), (R4)
054256	016502	000020		MOV    	000020(R5), R2
054262	060201			ADD    	R2, R1
054264	010003			MOV    	R0, R3
054266	006203			ASR    	R3
054270	012122			MOV    	(R1)+, (R2)+
054272	005303			DEC    	R3
054274	001375			BNE    	054270
054276	032715	000014		BIT    	#000014, (R5)
054302	001415			BEQ    	054336
054304	010067	013146		MOV    	R0, 067456
054310	010067	013144		MOV    	R0, 067460
054314	005467	013140		NEG    	067460
054320	105000			CLRB   	R0
054322	000300			SWAB   	R0
054324	006200			ASR    	R0
054326	010067	013122		MOV    	R0, 067454
054332	004767	000624		CALL   	055162
054336	000434			BR     	054430
054340	032715	000001		BIT    	#000001, (R5)
054344	001404			BEQ    	054356
054346	004767	001240		CALL   	055612
054352	042715	020001		BIC    	#020001, (R5)
054356	016500	000030		MOV    	000030(R5), R0
054362	166500	000020		SUB    	000020(R5), R0
054366	062700	000777		ADD    	#000777, R0
054372	105000			CLRB   	R0
054374	000300			SWAB   	R0
054376	006200			ASR    	R0
054400	060065	000016		ADD    	R0, 000016(R5)
054404	103711			BLO    	054230
054406	016545	000020		MOV    	000020(R5), -(R5)
054412	012565	000030		MOV    	(R5)+, 000030(R5)
054416	032715	000014		BIT    	#000014, (R5)
054422	001402			BEQ    	054430
054424	004767	000474		CALL   	055124	; READ
054430	012603			MOV    	(SP)+, R3
054432	012602			MOV    	(SP)+, R2
054434	012601			MOV    	(SP)+, R1
; CHKEOF
054436	042715	140000		BIC    	#140000, (R5)
054442	016500	177776		MOV    	177776(R5), R0
054446	066500	000026		ADD    	000026(R5), R0
054452	026500	000030		CMP    	000030(R5), R0
054456	103002			BHIS   	054464
054460	052715	140000		BIS    	#140000, (R5)
054464	000207			RETURN 	
; $B68
054466	011667	012700		MOV    	(SP), 067372
054472	010046			MOV    	R0, -(SP)
054474	010146			MOV    	R1, -(SP)
054476	010546			MOV    	R5, -(SP)
054500	017705	012672		MOV    	@067376, R5
054504	004767	176526		CALL   	053236	; $TSTCHN
054510	103402			BLO    	054516
054512	004767	000010		CALL   	054526	; $CLOSE
054516	012605			MOV    	(SP)+, R5
054520	012601			MOV    	(SP)+, R1
054522	012600			MOV    	(SP)+, R0
054524	000207			RETURN 	
; $CLOSE
054526	016746	012644		MOV    	067376, -(SP)
054532	017767	012640	012636	MOV    	@067376, 067376
054540	004767	000136		CALL   	054702	; $BREAK
054544	012667	012626		MOV    	(SP)+, 067376
054550	005745			TST    	-(R5)
054552	026705	012544		CMP    	067322, R5
054556	001445			BEQ    	054672
054560	026705	012542		CMP    	067326, R5
054564	001442			BEQ    	054672
054566	005725			TST    	(R5)+
054570	016546	000020		MOV    	000020(R5), -(SP)
054574	001406			BEQ    	054612
054576	016500	000022		MOV    	000022(R5), R0
054602	001403			BEQ    	054612
054604	004767	003650		CALL   	060460	; $DISPO
054610	000401			BR     	054614
054612	005726			TST    	(SP)+
054614	005000			CLR    	R0
054616	156500	000014		BISB   	000014(R5), R0
054622	120027	000377		CMPB   	R0, #000377
054626	001417			BEQ    	054666
054630	012701	001400		MOV    	#001400, R1
054634	032765	000100	000000	BIT    	#000100, 000000(R5)
054642	001001			BNE    	054646
054644	006301			ASL    	R1
054646	050001			BIS    	R0, R1
054650	104374			EMT    	000374
054652	004767	000064		CALL   	054742	; LOWSTK
054656	010100			MOV    	R1, R0
054660	104374			EMT    	000374
054662	004767	000100		CALL   	054766	; HISTK
054666	004767	000122		CALL   	055014	; $ZAPCH
054672	000207			RETURN 	
; $B62
054674	004567	176454		JSR    	R5, 053354 ; $SETIO
054700	000004			IOT    	
; $BREAK
054702	032715	000001		BIT    	#000001, (R5)
054706	001414			BEQ    	054740
054710	004767	000676		CALL   	055612
054714	042715	020001		BIC    	#020001, (R5)
054720	132765	000200	000025	BITB   	#000200, 000025(R5)
054726	001004			BNE    	054740
054730	016545	000020		MOV    	000020(R5), -(R5)
054734	012565	000030		MOV    	(R5)+, 000030(R5)
054740	000207			RETURN 	
; LOWSTK
054742	020627	070126		CMP    	SP, #070126
054746	101406			BLOS   	054764
054750	012667	013150		MOV    	(SP)+, 070124
054754	010667	013146		MOV    	SP, 070126
054760	012706	070124		MOV    	#070124, SP
054764	000207			RETURN 	
; HISTK
054766	006046			ROR    	-(SP)
054770	020627	070126		CMP    	SP, #070126
054774	101402			BLOS   	055002
054776	006126			ROL    	(SP)+
055000	000207			RETURN 	
055002	006126			ROL    	(SP)+
055004	016706	013116		MOV    	070126, SP
055010	016707	013110		MOV    	070124, PC
; $ZAPCH
055014	005745			TST    	-(R5)
055016	005000			CLR    	R0
055020	156500	000016		BISB   	000016(R5), R0
055024	020027	000377		CMP    	R0, #000377
055030	001403			BEQ    	055040
055032	006300			ASL    	R0
055034	005060	067332		CLR    	067332(R0)
055040	005077	012332		CLR    	@067376
055044	026705	012254		CMP    	067324, R5
055050	001006			BNE    	055066
055052	016767	012244	012244	MOV    	067322, 067324
055060	016777	012236	012310	MOV    	067322, @067376
055066	026705	012236		CMP    	067330, R5
055072	001006			BNE    	055110
055074	016767	012226	012226	MOV    	067326, 067330
055102	016777	012220	012266	MOV    	067326, @067376
055110	012700	000036		MOV    	#000036, R0
055114	010546			MOV    	R5, -(SP)
055116	004767	003336		CALL   	060460	; $DISPO
055122	000207			RETURN 	
; READ
055124	004767	176204		CALL   	053334	; CLRSCR
055130	016500	000000		MOV    	000000(R5), R0
055134	042700	167777		BIC    	#167777, R0
055140	122765	000377	000014	CMPB   	#000377, 000014(R5)
055146	001005			BNE    	055162
055150	042767	010000	122666	BIC    	#010000, 000044
055156	050067	122662		BIS    	R0, 000044
055162	032715	000040		BIT    	#000040, (R5)
055166	001401			BEQ    	055172
055170	000207			RETURN 	
055172	012700	067452		MOV    	#067452, R0
055176	010046			MOV    	R0, -(SP)
055200	010146			MOV    	R1, -(SP)
055202	010246			MOV    	R2, -(SP)
055204	116520	000014		MOVB   	000014(R5), (R0)+
055210	112720	000010		MOVB   	#000010, (R0)+
055214	066520	000016		ADD    	000016(R5), (R0)+
055220	066510	000020		ADD    	000020(R5), (R0)
055224	012065	000030		MOV    	(R0)+, 000030(R5)
055230	066510	000022		ADD    	000022(R5), (R0)
055234	005210			INC    	(R0)
055236	006220			ASR    	(R0)+
055240	005020			CLR    	(R0)+
055242	122765	000377	000014	CMPB   	#000377, 000014(R5)
055250	001050			BNE    	055372
055252	011501			MOV    	(R5), R1
055254	042701	167777		BIC    	#167777, R1
055260	042737	010000	000044	BIC    	#010000, @#000044
055266	050137	000044		BIS    	R1, @#000044
055272	005000			CLR    	R0
055274	016701	012156		MOV    	067456, R1
055300	016702	012154		MOV    	067460, R2
055304	006302			ASL    	R2
055306	001416			BEQ    	055344
055310	104340			EMT    	000340
055312	103776			BLO    	055310
055314	120027	000032		CMPB   	R0, #000032
055320	001411			BEQ    	055344
055322	110021			MOVB   	R0, (R1)+
055324	005302			DEC    	R2
055326	001406			BEQ    	055344
055330	120027	000012		CMPB   	R0, #000012
055334	001403			BEQ    	055344
055336	032715	010000		BIT    	#010000, (R5)
055342	001762			BEQ    	055310
055344	010001			MOV    	R0, R1
055346	016700	012106		MOV    	067460, R0
055352	006300			ASL    	R0
055354	160200			SUB    	R2, R0
055356	120127	000032		CMPB   	R1, #000032
055362	001105			BNE    	055576
055364	105067	122462		CLRB   	000052
055370	000411			BR     	055414
055372	005000			CLR    	R0
055374	156500	000014		BISB   	000014(R5), R0
055400	104374			EMT    	000374
055402	012700	067452		MOV    	#067452, R0
055406	104375			EMT    	000375
055410	103071			BHIS   	055574
055412	006300			ASL    	R0
055414	060065	000030		ADD    	R0, 000030(R5)
055420	105767	122426		TSTB   	000052
055424	001003			BNE    	055434
055426	052715	000040		BIS    	#000040, (R5)
055432	000463			BR     	055602
055434	113767	000052	011732	MOVB   	@#000052, 067374
055442	152767	000004	122403	BISB   	#000004, 000053
055450	032715	001000		BIT    	#001000, (R5)
055454	001052			BNE    	055602
055456	126727	122370	000001	CMPB   	000052, #000001
055464	003014			BGT    	055516
055466	002427			BLT    	055546
055470	004067	003410		JSR    	R0, 061104 ; $ERROR
055474	020401			CMP    	R4, R1
055476	000016			STEP   	
055500	051124			BIS    	(R1), (R4)+
055502	047101	043123		BIC    	@043123(R1), R1
055506	051105			BIS    	(R1), R5
055510	042440			BIC    	(R4)+, -(R0)
055512	051122			BIS    	(R1), (R2)+
055514	051117			BIS    	(R1), (PC)
055516	004067	003362		JSR    	R0, 061104 ; $ERROR
055522	017001	000020		MOV    	@000020(R0), R1
055526	044103			BIC    	-(R1), R3
055530	047101	042516		BIC    	@042516(R1), R1
055534	020114			CMP    	R1, (R4)
055536	047516	020124		BIC    	@020124(R5), (SP)
055542	050117			BIS    	R1, (PC)
055544	047105	004067		BIC    	@004067(R1), R5
055550	003332			BGT    	055436
055552	020401			CMP    	R4, R1
055554	000016			STEP   	
055556	051127	052111		BIS    	(R1), #052111
055562	020105			CMP    	R1, R5
055564	040520			BIC    	R5, (R0)+
055566	052123			BIS    	(R1)+, (R3)+
055570	042440			BIC    	(R4)+, -(R0)
055572	043117			BIC    	@(R1)+, (PC)
055574	006300			ASL    	R0
055576	060065	000030		ADD    	R0, 000030(R5)
055602	012602			MOV    	(SP)+, R2
055604	012601			MOV    	(SP)+, R1
055606	012600			MOV    	(SP)+, R0
055610	000207			RETURN 	
055612	016501	000030		MOV    	000030(R5), R1
055616	166501	000020		SUB    	000020(R5), R1
055622	010046			MOV    	R0, -(SP)
055624	010146			MOV    	R1, -(SP)
055626	010246			MOV    	R2, -(SP)
055630	132765	000200	000025	BITB   	#000200, 000025(R5)
055636	001416			BEQ    	055674
055640	010100			MOV    	R1, R0
055642	042700	177000		BIC    	#177000, R0
055646	001412			BEQ    	055674
055650	005400			NEG    	R0
055652	062700	001000		ADD    	#001000, R0
055656	066501	000020		ADD    	000020(R5), R1
055662	105021			CLRB   	(R1)+
055664	005300			DEC    	R0
055666	001375			BNE    	055662
055670	166501	000020		SUB    	000020(R5), R1
055674	005701			TST    	R1
055676	001741			BEQ    	055602
055700	126527	000014	000377	CMPB   	000014(R5), #000377
055706	001426			BEQ    	055764
055710	005201			INC    	R1
055712	006201			ASR    	R1
055714	103402			BLO    	055722
055716	105075	000030		CLRB   	@000030(R5)
055722	012702	067452		MOV    	#067452, R2
055726	116522	000014		MOVB   	000014(R5), (R2)+
055732	112722	000011		MOVB   	#000011, (R2)+
055736	016522	000016		MOV    	000016(R5), (R2)+
055742	016522	000020		MOV    	000020(R5), (R2)+
055746	010122			MOV    	R1, (R2)+
055750	005022			CLR    	(R2)+
055752	012700	067452		MOV    	#067452, R0
055756	104375			EMT    	000375
055760	103625			BLO    	055434
055762	000707			BR     	055602
055764	016502	000020		MOV    	000020(R5), R2
055770	112200			MOVB   	(R2)+, R0
055772	104341			EMT    	000341
055774	103776			BLO    	055772
055776	005301			DEC    	R1
056000	001373			BNE    	055770
056002	000677			BR     	055602
============================== IO END ============================================
============================== RESET BEGIN =======================================
; $B66
056004	011667	011362		MOV    	(SP), 067372
056010	010046			MOV    	R0, -(SP)
056012	010146			MOV    	R1, -(SP)
056014	010546			MOV    	R5, -(SP)
056016	017705	011354		MOV    	@067376, R5
056022	020567	011302		CMP    	R5, 067330
056026	001430			BEQ    	056110
056030	004767	175202		CALL   	053236	; $TSTCHN
056034	103405			BLO    	056050
056036	005766	000020		TST    	000020(SP)
056042	001576			BEQ    	056440
056044	004767	176456		CALL   	054526	; $CLOSE
056050	005766	000020		TST    	000020(SP)
056054	001033			BNE    	056144
056056	004067	003022		JSR    	R0, 061104 ; $ERROR
056062	017000	000021		MOV    	@000021(R0), R0
056066	042522			BIC    	(R5)+, (R2)+
056070	042523			BIC    	(R5)+, (R3)+
056072	020124			CMP    	R1, (R4)+
056074	047101	020104		BIC    	@020104(R1), R1
056100	047516	043040		BIC    	@043040(R5), (SP)
056104	046111	000105		BIC    	000105(R1), (R1)
056110	004067	002770		JSR    	R0, 061104 ; $ERROR
056114	005400			NEG    	R0
056116	000023			unknown	000023
056120	040503			BIC    	R5, R3
056122	023516			CMP    	@(R5)+, (SP)
056124	020124			CMP    	R1, (R4)+
056126	042522			BIC    	(R5)+, (R2)+
056130	042523			BIC    	(R5)+, (R3)+
056132	024124			CMP    	-(R1), (R4)+
056134	052517			BIS    	(R5)+, (PC)
056136	050124			BIS    	R1, (R4)+
056140	052125			BIS    	(R1)+, (R5)+
056142	000051			unknown	000051
056144	004767	003360		CALL   	061530	; GETCHN
056150	004767	004074		CALL   	062250	; BLDNAM
056154	103521			BLO    	056420
056156	005700			TST    	R0
056160	001554			BEQ    	056512
056162	026727	011336	077150	CMP    	067524, #077150
056170	001016			BNE    	056226
056172	012765	000004	000024	MOV    	#000004, 000024(R5)
056200	005000			CLR    	R0
056202	156500	000014		BISB   	000014(R5), R0
056206	006300			ASL    	R0
056210	005060	067332		CLR    	067332(R0)
056214	005000			CLR    	R0
056216	112765	000377	000014	MOVB   	#000377, 000014(R5)
056224	000427			BR     	056304
056226	004767	003604		CALL   	062036	; GETHND
056232	103527			BLO    	056512
056234	004767	003670		CALL   	062130	; NFSCHK
056240	103524			BLO    	056512
056242	004767	176474		CALL   	054742	; LOWSTK
056246	012700	067542		MOV    	#067542, R0
056252	012710	000400		MOV    	#000400, (R0)
056256	116510	000014		MOVB   	000014(R5), (R0)
056262	012760	067524	000002	MOV    	#067524, 000002(R0)
056270	005060	000004		CLR    	000004(R0)
056274	104375			EMT    	000375
056276	004767	176464		CALL   	054766	; HISTK
056302	103503			BLO    	056512
056304	016601	000010		MOV    	000010(SP), R1
056310	001401			BEQ    	056314
056312	010011			MOV    	R0, (R1)
056314	016600	000022		MOV    	000022(SP), R0
056320	022700	177777		CMP    	#177777, R0
056324	001003			BNE    	056334
056326	005400			NEG    	R0
056330	052715	000200		BIS    	#000200, (R5)
056334	010065	000026		MOV    	R0, 000026(R5)
056340	004767	003340		CALL   	061704	; GETBUF
056344	052715	000010		BIS    	#000010, (R5)
056350	016545	000020		MOV    	000020(R5), -(R5)
056354	012565	000030		MOV    	(R5)+, 000030(R5)
056360	005065	000016		CLR    	000016(R5)
056364	122765	000377	000014	CMPB   	#000377, 000014(R5)
056372	001406			BEQ    	056410
056374	017767	010776	010774	MOV    	@067376, 067376
056402	004767	175060		CALL   	053466	; $GET
056406	000404			BR     	056420
056410	052715	004000		BIS    	#004000, (R5)
056414	012755	000040		MOV    	#000040, @-(R5)
056420	012605			MOV    	(SP)+, R5
056422	012601			MOV    	(SP)+, R1
056424	012600			MOV    	(SP)+, R0
056426	012666	000012		MOV    	(SP)+, 000012(SP)
056432	062706	000012		ADD    	#000012, SP
056436	000207			RETURN 	
056440	004767	176236		CALL   	054702	; $BREAK
056444	042715	166071		BIC    	#166071, (R5)
056450	132765	000020	000025	BITB   	#000020, 000025(R5)
056456	001732			BEQ    	056344
056460	012700	067536		MOV    	#067536, R0
056464	012710	015000		MOV    	#015000, (R0)
056470	116510	000014		MOVB   	000014(R5), (R0)
056474	012760	175777	000010	MOV    	#175777, 000010(R0)
056502	005060	000012		CLR    	000012(R0)
056506	104375			EMT    	000375
056510	103315			BHIS   	056344
056512	016600	000010		MOV    	000010(SP), R0
056516	001405			BEQ    	056532
056520	012710	177777		MOV    	#177777, (R0)
056524	004767	175776		CALL   	054526	; $CLOSE
056530	000733			BR     	056420
056532	017767	010640	010636	MOV    	@067376, 067376
056540	004067	002340		JSR    	R0, 061104 ; $ERROR
056544	005401			NEG    	R1
056546	000015			unknown	000015
056550	042522			BIC    	(R5)+, (R2)+
056552	042523			BIC    	(R5)+, (R3)+
056554	020124			CMP    	R1, (R4)+
056556	040506			BIC    	R5, SP
056560	046111	051125		BIC    	051125(R1), (R1)
056564	000105			JMP    	R5
============================== RESET END =========================================
============================== FTRIG BEGIN =======================================
; $B94
056566	042766	100000	000002	BIC    	#100000, 000002(SP)
056574	005046			CLR    	-(SP)
056576	005216			INC    	(SP)
056600	000401			BR     	056604
; $B92
056602	005046			CLR    	-(SP)
056604	004767	005116		CALL   	063726	; $B75
056610	005046			CLR    	-(SP)
056612	016604	000022		MOV    	000022(SP), R4
056616	016605	000024		MOV    	000024(SP), R5
056622	006304			ASL    	R4
056624	006016			ROR    	(SP)
056626	006004			ROR    	R4
056630	020427	043600		CMP    	R4, #043600
056634	002403			BLT    	056644
056636	005002			CLR    	R2
056640	005003			CLR    	R3
056642	000545			BR     	057156
056644	012703	007732		MOV    	#007732, R3
056650	012702	040311		MOV    	#040311, R2
056654	004767	005530		CALL   	064410	; $FDIV
056660	010346			MOV    	R3, -(SP)
056662	010246			MOV    	R2, -(SP)
056664	004767	000776		CALL   	057666	; $B86
056670	066616	000020		ADD    	000020(SP), (SP)
056674	032716	000001		BIT    	#000001, (SP)
056700	001401			BEQ    	056704
056702	005216			INC    	(SP)
056704	032716	000002		BIT    	#000002, (SP)
056710	001403			BEQ    	056720
056712	062766	100000	000002	ADD    	#100000, 000002(SP)
056720	166616	000020		SUB    	000020(SP), (SP)
056724	004767	000604		CALL   	057534	; $B88
056730	010204			MOV    	R2, R4
056732	010305			MOV    	R3, R5
056734	012602			MOV    	(SP)+, R2
056736	012603			MOV    	(SP)+, R3
056740	004767	005460		CALL   	064424	; $FSUB
056744	020227	035200		CMP    	R2, #035200
056750	103010			BHIS   	056772
056752	020227	142600		CMP    	R2, #142600
056756	101405			BLOS   	056772
056760	012705	007732		MOV    	#007732, R5
056764	012704	040311		MOV    	#040311, R4
056770	000466			BR     	057146
056772	010346			MOV    	R3, -(SP)
056774	010246			MOV    	R2, -(SP)
056776	010204			MOV    	R2, R4
057000	010305			MOV    	R3, R5
057002	004767	005410		CALL   	064416	; $FMUL
057006	010346			MOV    	R3, -(SP)
057010	010246			MOV    	R2, -(SP)
057012	012705	153672		MOV    	#153672, R5
057016	012704	035036		MOV    	#035036, R4
057022	004767	005370		CALL   	064416	; $FMUL
057026	012705	023143		MOV    	#023143, R5
057032	012704	136231		MOV    	#136231, R4
057036	004767	005370		CALL   	064432	; $FADD
057042	011604			MOV    	(SP), R4
057044	016605	000002		MOV    	000002(SP), R5
057050	004767	005342		CALL   	064416	; $FMUL
057054	012705	032130		MOV    	#032130, R5
057060	012704	037243		MOV    	#037243, R4
057064	004767	005342		CALL   	064432	; $FADD
057070	011604			MOV    	(SP), R4
057072	016605	000002		MOV    	000002(SP), R5
057076	004767	005314		CALL   	064416	; $FMUL
057102	012705	056741		MOV    	#056741, R5
057106	012704	140045		MOV    	#140045, R4
057112	004767	005314		CALL   	064432	; $FADD
057116	012604			MOV    	(SP)+, R4
057120	012605			MOV    	(SP)+, R5
057122	004767	005270		CALL   	064416	; $FMUL
057126	012705	007732		MOV    	#007732, R5
057132	012704	040311		MOV    	#040311, R4
057136	004767	005270		CALL   	064432	; $FADD
057142	012604			MOV    	(SP)+, R4
057144	012605			MOV    	(SP)+, R5
057146	004767	005244		CALL   	064416	; $FMUL
057152	005702			TST    	R2
057154	001001			BNE    	057160
057156	005016			CLR    	(SP)
057160	062602			ADD    	(SP)+, R2
057162	010266	000020		MOV    	R2, 000020(SP)
057166	010366	000022		MOV    	R3, 000022(SP)
057172	004767	004574		CALL   	063772	; $B77
057176	005726			TST    	(SP)+
057200	000207			RETURN 	
============================== FTRIG END =========================================
==================== ARITH BEGIN ========================================
; $B116
057202	010046			MOV    	R0, -(SP)
057204	010146			MOV    	R1, -(SP)
057206	005000			CLR    	R0
057210	016601	000010		MOV    	000010(SP), R1
057214	070166	000006		MUL    	000006(SP), R1
057220	000527			BR     	057500
; $B118
057222	010046			MOV    	R0, -(SP)
057224	010146			MOV    	R1, -(SP)
057226	005000			CLR    	R0
057230	016601	000010		MOV    	000010(SP), R1
057234	071066	000006		DIV    	000006(SP), R0
057240	103476			BLO    	057436
057242	010001			MOV    	R0, R1
057244	000515			BR     	057500
; $B120
057246	010046			MOV    	R0, -(SP)
057250	010146			MOV    	R1, -(SP)
057252	005000			CLR    	R0
057254	016601	000010		MOV    	000010(SP), R1
057260	071066	000006		DIV    	000006(SP), R0
057264	103464			BLO    	057436
057266	000504			BR     	057500
; $B78
057270	010046			MOV    	R0, -(SP)
057272	010146			MOV    	R1, -(SP)
057274	005000			CLR    	R0
057276	016601	000010		MOV    	000010(SP), R1
057302	100001			BPL    	057306
057304	005100			COM    	R0
057306	070166	000006		MUL    	000006(SP), R1
057312	103431			BLO    	057376
057314	000471			BR     	057500
; $B80
057316	010046			MOV    	R0, -(SP)
057320	010146			MOV    	R1, -(SP)
057322	005000			CLR    	R0
057324	016601	000010		MOV    	000010(SP), R1
057330	100001			BPL    	057334
057332	005100			COM    	R0
057334	071066	000006		DIV    	000006(SP), R0
057340	103436			BLO    	057436
057342	102435			BVS    	057436
057344	010001			MOV    	R0, R1
057346	000454			BR     	057500
; $B82
057350	010046			MOV    	R0, -(SP)
057352	010146			MOV    	R1, -(SP)
057354	005000			CLR    	R0
057356	016601	000010		MOV    	000010(SP), R1
057362	100001			BPL    	057366
057364	005100			COM    	R0
057366	071066	000006		DIV    	000006(SP), R0
057372	103421			BLO    	057436
057374	102041			BVC    	057500
057376	016667	000004	007766	MOV    	000004(SP), 067372
057404	004067	001474		JSR    	R0, 061104 ; $ERROR
057410	012000			MOV    	(R0)+, R0
057412	000020			RSEL   	
057414	047111	042524		BIC    	@042524(R1), (R1)
057420	042507			BIC    	(R5)+, PC
057422	020122			CMP    	R1, (R2)+
057424	053117			BIS    	@(R1)+, (PC)
057426	051105			BIS    	(R1), R5
057430	046106	053517		BIC    	053517(R1), SP
057434	000417			BR     	057474
057436	016667	000004	007726	MOV    	000004(SP), 067372
057444	004067	001434		JSR    	R0, 061104 ; $ERROR
057450	002400			BLT    	057452
057452	000020			RSEL   	
057454	044504			BIC    	-(R5), R4
057456	044526			BIC    	-(R5), (SP)+
057460	044523			BIC    	-(R5), (R3)+
057462	047117	041040		BIC    	@041040(R1), (PC)
057466	020131			CMP    	R1, @(R1)+
057470	042532			BIC    	(R5)+, @(R2)+
057472	047522	012701		BIC    	@012701(R5), (R2)+
057476	077777			SOB    	PC, 057302
057500	010166	000010		MOV    	R1, 000010(SP)
057504	012601			MOV    	(SP)+, R1
057506	012600			MOV    	(SP)+, R0
057510	012616			MOV    	(SP)+, (SP)
057512	000207			RETURN 	
======================= ARITH END ====================================
=================== CNVRT BEGIN =====================================
; $B89
057514	016646	000002		MOV    	000002(SP), -(SP)
057520	016646	000002		MOV    	000002(SP), -(SP)
057524	005066	000004		CLR    	000004(SP)
057530	005066	000006		CLR    	000006(SP)
; $B88
057534	011646			MOV    	(SP), -(SP)
057536	010046			MOV    	R0, -(SP)
057540	010146			MOV    	R1, -(SP)
057542	005046			CLR    	-(SP)
057544	005000			CLR    	R0
057546	016601	000012		MOV    	000012(SP), R1
057552	001421			BEQ    	057616
057554	100002			BPL    	057562
057556	005401			NEG    	R1
057560	005116			COM    	(SP)
057562	112766	000220	000011	MOVB   	#000220, 000011(SP)
057570	000301			SWAB   	R1
057572	110100			MOVB   	R1, R0
057574	105001			CLRB   	R1
057576	105700			TSTB   	R0
057600	000402			BR     	057606
057602	006301			ASL    	R1
057604	106100			ROLB   	R0
057606	100405			BMI    	057622
057610	105366	000011		DECB   	000011(SP)
057614	000772			BR     	057602
057616	005066	000010		CLR    	000010(SP)
057622	106300			ASLB   	R0
057624	110066	000010		MOVB   	R0, 000010(SP)
057630	006326			ASL    	(SP)+
057632	006066	000006		ROR    	000006(SP)
057636	010166	000010		MOV    	R1, 000010(SP)
057642	012601			MOV    	(SP)+, R1
057644	012600			MOV    	(SP)+, R0
057646	000207			RETURN 	
; $B87
057650	016666	000004	000010	MOV    	000004(SP), 000010(SP)
057656	012666	000002		MOV    	(SP)+, 000002(SP)
057662	012666	000002		MOV    	(SP)+, 000002(SP)
; $B86
057666	010046			MOV    	R0, -(SP)
057670	010146			MOV    	R1, -(SP)
057672	005046			CLR    	-(SP)
057674	000413			BR     	057724
; $B109
057676	016666	000004	000010	MOV    	000004(SP), 000010(SP)
057704	012666	000002		MOV    	(SP)+, 000002(SP)
057710	012666	000002		MOV    	(SP)+, 000002(SP)
; $B108
057714	010046			MOV    	R0, -(SP)
057716	010146			MOV    	R1, -(SP)
057720	012746	177777		MOV    	#177777, -(SP)
057724	000241			CLC    	
057726	016601	000012		MOV    	000012(SP), R1
057732	016600	000010		MOV    	000010(SP), R0
057736	001460			BEQ    	060100
057740	006300			ASL    	R0
057742	000261			SEC    	
057744	106000			RORB   	R0
057746	105001			CLRB   	R1
057750	150001			BISB   	R0, R1
057752	105000			CLRB   	R0
057754	000300			SWAB   	R0
057756	000301			SWAB   	R1
057760	162700	000200		SUB    	#000200, R0
057764	003033			BGT    	060054
057766	002403			BLT    	057776
057770	005001			CLR    	R1
057772	000261			SEC    	
057774	000441			BR     	060100
057776	005001			CLR    	R1
060000	000437			BR     	060100
060002	005726			TST    	(SP)+
060004	016667	000004	007360	MOV    	000004(SP), 067372
060012	004067	001066		JSR    	R0, 061104 ; $ERROR
060016	012000			MOV    	(R0)+, R0
060020	000024			RCPS   	
060022	051124			BIS    	(R1), (R4)+
060024	047125	027503		BIC    	@027503(R1), (R5)+
060030	047522	047125		BIC    	@047125(R5), (R2)+
060034	020104			CMP    	R1, R4
060036	053117			BIS    	@(R1)+, (PC)
060040	051105			BIS    	(R1), R5
060042	046106	053517		BIC    	053517(R1), SP
060046	012701	077777		MOV    	#077777, R1
060052	000415			BR     	060106
060054	162700	000017		SUB    	#000017, R0
060060	003350			BGT    	060002
060062	001404			BEQ    	060074
060064	000241			CLC    	
060066	006001			ROR    	R1
060070	005200			INC    	R0
060072	100774			BMI    	060064
060074	000241			CLC    	
060076	006001			ROR    	R1
060100	005526			ADC    	(SP)+
060102	005501			ADC    	R1
060104	102737			BVS    	060004
060106	005766	000006		TST    	000006(SP)
060112	100002			BPL    	060120
060114	005401			NEG    	R1
060116	003331			BGT    	060002
060120	010166	000010		MOV    	R1, 000010(SP)
060124	012601			MOV    	(SP)+, R1
060126	012600			MOV    	(SP)+, R0
060130	012616			MOV    	(SP)+, (SP)
060132	000207			RETURN 	
================= CNVRT END ================================================
======================== ALLOC BEGIN =============================
; $B70
060134	011667	007232		MOV    	(SP), 067372
; $NEW
060140	010046			MOV    	R0, -(SP)
060142	010146			MOV    	R1, -(SP)
060144	010246			MOV    	R2, -(SP)
060146	016600	000010		MOV    	000010(SP), R0
060152	001466			BEQ    	060330
060154	005200			INC    	R0
060156	042700	000001		BIC    	#000001, R0
060162	022700	000004		CMP    	#000004, R0
060166	101406			BLOS   	060204
060170	012701	067406		MOV    	#067406, R1
060174	011102			MOV    	(R1), R2
060176	001402			BEQ    	060204
060200	011211			MOV    	(R2), (R1)
060202	000514			BR     	060434
060204	012702	067402		MOV    	#067402, R2
060210	010201			MOV    	R2, R1
060212	011202			MOV    	(R2), R2
060214	001406			BEQ    	060232
060216	020062	000002		CMP    	R0, 000002(R2)
060222	101372			BHI    	060210
060224	001057			BNE    	060364
060226	011211			MOV    	(R2), (R1)
060230	000501			BR     	060434
060232	016702	007142		MOV    	067400, R2
060236	060067	007136		ADD    	R0, 067400
060242	103413			BLO    	060272
060244	010601			MOV    	SP, R1
060246	020127	070126		CMP    	R1, #070126
060252	101002			BHI    	060260
060254	016701	007646		MOV    	070126, R1
060260	162701	000100		SUB    	#000100, R1
060264	026701	007110		CMP    	067400, R1
060270	101461			BLOS   	060434
060272	004067	000606		JSR    	R0, 061104 ; $ERROR
060276	000400			BR     	060300
060300	000025			unknown	000025
060302	042516			BIC    	(R5)+, (SP)
060304	024127	020051		CMP    	-(R1), #020051
060310	054105			BIS    	-(R1), R5
060312	042503			BIC    	(R5)+, R3
060314	042105			BIC    	(R1)+, R5
060316	042105			BIC    	(R1)+, R5
060320	046440	046505		BIC    	046505(R4), -(R0)
060324	051117			BIS    	(R1), (PC)
060326	000131			JMP    	@(R1)+
060330	004067	000550		JSR    	R0, 061104 ; $ERROR
060334	012400			MOV    	(R4)+, R0
060336	000024			RCPS   	
060340	042516			BIC    	(R5)+, (SP)
060342	024127	020051		CMP    	-(R1), #020051
060346	043117			BIC    	@(R1)+, (PC)
060350	055040			BIS    	@-(R0), -(R0)
060352	051105			BIS    	(R1), R5
060354	020117			CMP    	R1, (PC)
060356	042514			BIC    	(R5)+, (R4)
060360	043516			BIC    	@(R5)+, (SP)
060362	044124			BIC    	-(R1), (R4)+
060364	160062	000002		SUB    	R0, 000002(R2)
060370	022762	000002	000002	CMP    	#000002, 000002(R2)
060376	001010			BNE    	060420
060400	011211			MOV    	(R2), (R1)
060402	060200			ADD    	R2, R0
060404	010046			MOV    	R0, -(SP)
060406	012700	000002		MOV    	#000002, R0
060412	004767	000042		CALL   	060460	; $DISPO
060416	000406			BR     	060434
060420	060011			ADD    	R0, (R1)
060422	011101			MOV    	(R1), R1
060424	016261	000002	000002	MOV    	000002(R2), 000002(R1)
060432	011211			MOV    	(R2), (R1)
060434	010266	000010		MOV    	R2, 000010(SP)
060440	012712	177777		MOV    	#177777, (R2)
060444	012602			MOV    	(SP)+, R2
060446	012601			MOV    	(SP)+, R1
060450	012600			MOV    	(SP)+, R0
060452	000207			RETURN 	
; $B72
060454	011667	006712		MOV    	(SP), 067372
; $DISPO
060460	010146			MOV    	R1, -(SP)
060462	010246			MOV    	R2, -(SP)
060464	010346			MOV    	R3, -(SP)
060466	010446			MOV    	R4, -(SP)
060470	016603	000012		MOV    	000012(SP), R3
060474	001536			BEQ    	060772
060476	005200			INC    	R0
060500	042700	000001		BIC    	#000001, R0
060504	010304			MOV    	R3, R4
060506	010002			MOV    	R0, R2
060510	000241			CLC    	
060512	006002			ROR    	R2
060514	012724	177777		MOV    	#177777, (R4)+
060520	077203			SOB    	R2, 060514
060522	012704	067406		MOV    	#067406, R4
060526	004767	000330		CALL   	061062
060532	162703	000002		SUB    	#000002, R3
060536	020203			CMP    	R2, R3
060540	001004			BNE    	060552
060542	062700	000002		ADD    	#000002, R0
060546	010411			MOV    	R4, (R1)
060550	000764			BR     	060522
060552	062703	000002		ADD    	#000002, R3
060556	010301			MOV    	R3, R1
060560	060001			ADD    	R0, R1
060562	020104			CMP    	R1, R4
060564	001004			BNE    	060576
060566	062700	000002		ADD    	#000002, R0
060572	011412			MOV    	(R4), (R2)
060574	000752			BR     	060522
060576	010246			MOV    	R2, -(SP)
060600	010446			MOV    	R4, -(SP)
060602	012704	067402		MOV    	#067402, R4
060606	004767	000250		CALL   	061062
060612	010413			MOV    	R4, (R3)
060614	005762	000002		TST    	000002(R2)
060620	001414			BEQ    	060652
060622	010204			MOV    	R2, R4
060624	066204	000002		ADD    	000002(R2), R4
060630	020403			CMP    	R4, R3
060632	101074			BHI    	061024
060634	001006			BNE    	060652
060636	066200	000002		ADD    	000002(R2), R0
060642	010062	000002		MOV    	R0, 000002(R2)
060646	010203			MOV    	R2, R3
060650	010102			MOV    	R1, R2
060652	010301			MOV    	R3, R1
060654	060001			ADD    	R0, R1
060656	020167	006516		CMP    	R1, 067400
060662	001004			BNE    	060674
060664	160067	006510		SUB    	R0, 067400
060670	011312			MOV    	(R3), (R2)
060672	000430			BR     	060754
060674	103403			BLO    	060704
060676	020306			CMP    	R3, SP
060700	101001			BHI    	060704
060702	000450			BR     	061024
060704	010312			MOV    	R3, (R2)
060706	005713			TST    	(R3)
060710	001405			BEQ    	060724
060712	020113			CMP    	R1, (R3)
060714	101043			BHI    	061024
060716	001002			BNE    	060724
060720	012113			MOV    	(R1)+, (R3)
060722	061100			ADD    	(R1), R0
060724	022700	000002		CMP    	#000002, R0
060730	001403			BEQ    	060740
060732	010063	000002		MOV    	R0, 000002(R3)
060736	000406			BR     	060754
060740	011312			MOV    	(R3), (R2)
060742	016602	000002		MOV    	000002(SP), R2
060746	011604			MOV    	(SP), R4
060750	010312			MOV    	R3, (R2)
060752	010413			MOV    	R4, (R3)
060754	022626			CMP    	(SP)+, (SP)+
060756	012604			MOV    	(SP)+, R4
060760	012603			MOV    	(SP)+, R3
060762	012602			MOV    	(SP)+, R2
060764	012601			MOV    	(SP)+, R1
060766	012616			MOV    	(SP)+, (SP)
060770	000207			RETURN 	
060772	004067	000106		JSR    	R0, 061104 ; $ERROR
060776	021002			CMP    	(R0), R2
061000	000020			RSEL   	
061002	044504			BIC    	-(R5), R4
061004	050123			BIS    	R1, (R3)+
061006	051517			BIS    	(R5), (PC)
061010	024105			CMP    	-(R1), R5
061012	020051			CMP    	R0, @-(R1)
061014	043117			BIC    	@(R1)+, (PC)
061016	047040	046111		BIC    	@046111(R0), -(R0)
061022	000755			BR     	060756
061024	004067	000054		JSR    	R0, 061104 ; $ERROR
061030	013002			MOV    	@(R0)+, R2
061032	000023			unknown	000023
061034	052504			BIS    	(R5)+, R4
061036	046120	041511		BIC    	041511(R1), (R0)+
061042	052101			BIS    	(R1)+, R1
061044	020105			CMP    	R1, R5
061046	044504			BIC    	-(R5), R4
061050	050123			BIS    	R1, (R3)+
061052	051517			BIS    	(R5), (PC)
061054	024105			CMP    	-(R1), R5
061056	000051			unknown	000051
061060	000735			BR     	060754
061062	010402			MOV    	R4, R2
061064	010201			MOV    	R2, R1
061066	010402			MOV    	R4, R2
061070	011404			MOV    	(R4), R4
061072	001403			BEQ    	061102
061074	020304			CMP    	R3, R4
061076	101372			BHI    	061064
061100	001751			BEQ    	061024
061102	000207			RETURN 	
==================== ALLOC END ==================================
==================== SERROR BEGIN ===============================
; $ERROR
061104	010046			MOV    	R0, -(SP)
061106	010146			MOV    	R1, -(SP)
061110	010246			MOV    	R2, -(SP)
061112	010346			MOV    	R3, -(SP)
061114	010446			MOV    	R4, -(SP)
061116	010546			MOV    	R5, -(SP)
061120	016746	006246		MOV    	067372, -(SP)
061124	016746	006246		MOV    	067376, -(SP)
061130	016746	006174		MOV    	067330, -(SP)
061134	016767	006166	006166	MOV    	067326, 067330
061142	104347			EMT    	000347
061144	104347			EMT    	000347
061146	104347			EMT    	000347
061150	005046			CLR    	-(SP)
061152	112016			MOVB   	(R0)+, (SP)
061154	005046			CLR    	-(SP)
061156	112016			MOVB   	(R0)+, (SP)
061160	012046			MOV    	(R0)+, -(SP)
061162	010046			MOV    	R0, -(SP)
061164	016746	006206		MOV    	067376, -(SP)
061170	005046			CLR    	-(SP)
061172	116716	116654		MOVB   	000052, (SP)
061176	016746	006170		MOV    	067372, -(SP)
061202	005046			CLR    	-(SP)
061204	012746	067414		MOV    	#067414, -(SP)
061210	026627	000020	000001	CMP    	000020(SP), #000001
061216	001037			BNE    	061316
061220	011600			MOV    	(SP), R0
061222	016705	006150		MOV    	067376, R5
061226	052765	001000	000002	BIS    	#001000, 000002(R5)
061234	062705	000004		ADD    	#000004, R5
061240	012503			MOV    	(R5)+, R3
061242	001404			BEQ    	061254
061244	004767	000150		CALL   	061420
061250	112720	000072		MOVB   	#000072, (R0)+
061254	012503			MOV    	(R5)+, R3
061256	001405			BEQ    	061272
061260	004767	000134		CALL   	061420
061264	011503			MOV    	(R5), R3
061266	004767	000126		CALL   	061420
061272	016503	000002		MOV    	000002(R5), R3
061276	001404			BEQ    	061310
061300	112720	000056		MOVB   	#000056, (R0)+
061304	004767	000110		CALL   	061420
061310	161600			SUB    	(SP), R0
061312	010066	000002		MOV    	R0, 000002(SP)
061316	104355			EMT    	000355
061320	004767	004412		CALL   	065736	; ERROR
061324	012667	006000		MOV    	(SP)+, 067330
061330	012667	006042		MOV    	(SP)+, 067376
061334	012667	006032		MOV    	(SP)+, 067372
061340	012605			MOV    	(SP)+, R5
061342	012604			MOV    	(SP)+, R4
061344	012603			MOV    	(SP)+, R3
061346	012602			MOV    	(SP)+, R2
061350	012601			MOV    	(SP)+, R1
061352	012600			MOV    	(SP)+, R0
061354	121027	000002		CMPB   	(R0), #000002
061360	001405			BEQ    	061374
061362	152767	000010	116463	BISB   	#000010, 000053
061370	000167	171552		JMP    	053146	; $END
061374	152767	000002	116451	BISB   	#000002, 000053
061402	066000	000002		ADD    	000002(R0), R0
061406	062700	000005		ADD    	#000005, R0
061412	042700	000001		BIC    	#000001, R0
061416	000200			RTS    	R0
061420	012701	061460		MOV    	#061460, R1
061424	005741			TST    	-(R1)
061426	001407			BEQ    	061446
061430	005002			CLR    	R2
061432	071211			DIV    	(R1), R2
061434	116202	061460		MOVB   	061460(R2), R2
061440	001771			BEQ    	061424
061442	110220			MOVB   	R2, (R0)+
061444	000767			BR     	061424
061446	000207			RETURN 	
061450	000000			HALT   	
061452	000001			WAIT   	
061454	000050			unknown	000050
061456	003100			BGT    	061660
061460	040400			BIC    	R4, R0
061462	041502			BIC    	(R5), R2
061464	042504			BIC    	(R5)+, R4
061466	043506			BIC    	@(R5)+, SP
061470	044510			BIC    	-(R5), (R0)
061472	045512			BIC    	@-(R5), (R2)
061474	046514	047516		BIC    	047516(R5), (R4)
061500	050520			BIS    	R5, (R0)+
061502	051522			BIS    	(R5), (R2)+
061504	052524			BIS    	(R5)+, (R4)+
061506	053526			BIS    	@(R5)+, (SP)+
061510	054530			BIS    	-(R5), @(R0)+
061512	022132			CMP    	(R1)+, @(R2)+
061514	037456	030460		BIT    	@030460(R4), @-(SP)
061520	031462	032464		BIT    	(R4), 032464(R2)
061524	033466	034470		BIT    	@(R4)+, 034470(SP)
==================== SERROR END ===================================
==================== OPEN BEGIN ===================================
; GETCHN
061530	012700	067372		MOV    	#067372, R0
061534	012701	000020		MOV    	#000020, R1
061540	005740			TST    	-(R0)
061542	001420			BEQ    	061604
061544	077103			SOB    	R1, 061540
061546	004067	177332		JSR    	R0, 061104 ; $ERROR
061552	010000			MOV    	R0, R0
061554	000025			unknown	000025
061556	047516	041440		BIC    	@041440(R5), (SP)
061562	040510			BIC    	R5, (R0)
061564	047116	046105		BIC    	@046105(R1), (SP)
061570	020123			CMP    	R1, (R3)+
061572	053101			BIS    	@(R1)+, R1
061574	044501			BIC    	-(R5), R1
061576	040514			BIC    	R5, (R4)
061600	046102	000105		BIC    	000105(R1), R2
061604	012746	000036		MOV    	#000036, -(SP)
061610	004767	176324		CALL   	060140	; $NEW
061614	012605			MOV    	(SP)+, R5
061616	010510			MOV    	R5, (R0)
061620	027767	005552	005476	CMP    	@067376, 067324
061626	001002			BNE    	061634
061630	010567	005470		MOV    	R5, 067324
061634	027767	005536	005466	CMP    	@067376, 067330
061642	001002			BNE    	061650
061644	010567	005460		MOV    	R5, 067330
061650	010577	005522		MOV    	R5, @067376
061654	012701	000017		MOV    	#000017, R1
061660	005025			CLR    	(R5)+
061662	077102			SOB    	R1, 061660
061664	011005			MOV    	(R0), R5
061666	005725			TST    	(R5)+
061670	162700	067332		SUB    	#067332, R0
061674	006200			ASR    	R0
061676	110065	000014		MOVB   	R0, 000014(R5)
061702	000207			RETURN 	
; GETBUF
061704	016500	000026		MOV    	000026(R5), R0
061710	001422			BEQ    	061756
061712	132765	000200	000025	BITB   	#000200, 000025(R5)
061720	001416			BEQ    	061756
061722	032715	000002		BIT    	#000002, (R5)
061726	001407			BEQ    	061746
061730	000241			CLC    	
061732	010001			MOV    	R0, R1
061734	006001			ROR    	R1
061736	103376			BHIS   	061734
061740	001402			BEQ    	061746
061742	062700	001000		ADD    	#001000, R0
061746	062700	000777		ADD    	#000777, R0
061752	042700	000777		BIC    	#000777, R0
061756	022700	001000		CMP    	#001000, R0
061762	101402			BLOS   	061770
061764	012700	001000		MOV    	#001000, R0
061770	026500	000022		CMP    	000022(R5), R0
061774	103002			BHIS   	062002
061776	010065	000022		MOV    	R0, 000022(R5)
062002	016546	000022		MOV    	000022(R5), -(SP)
062006	004767	176126		CALL   	060140	; $NEW
062012	012665	000020		MOV    	(SP)+, 000020(R5)
062016	012701	001000		MOV    	#001000, R1
062022	005000			CLR    	R0
062024	071065	000026		DIV    	000026(R5), R0
062030	010065	000032		MOV    	R0, 000032(R5)
062034	000207			RETURN 	
; GETHND
062036	004767	172700		CALL   	054742	; LOWSTK
062042	104346			EMT    	000346
062044	012700	067524		MOV    	#067524, R0
062050	012746	067542		MOV    	#067542, -(SP)
062054	104342			EMT    	000342
062056	103413			BLO    	062106
062060	005767	005462		TST    	067546
062064	001010			BNE    	062106
062066	016746	005452		MOV    	067544, -(SP)
062072	004767	176042		CALL   	060140	; $NEW
062076	012700	067524		MOV    	#067524, R0
062102	012646			MOV    	(SP)+, -(SP)
062104	104343			EMT    	000343
062106	006100			ROL    	R0
062110	104347			EMT    	000347
062112	004767	172650		CALL   	054766	; HISTK
062116	016765	005420	000024	MOV    	067542, 000024(R5)
062124	006000			ROR    	R0
062126	000207			RETURN 	
; NFSCHK
062130	132765	000200	000025	BITB   	#000200, 000025(R5)
062136	001414			BEQ    	062170
062140	005765	000004		TST    	000004(R5)
062144	001011			BNE    	062170
062146	032715	000400		BIT    	#000400, (R5)
062152	001006			BNE    	062170
062154	016600	000012		MOV    	000012(SP), R0
062160	001407			BEQ    	062200
062162	021027	100000		CMP    	(R0), #100000
062166	001002			BNE    	062174
062170	000241			CLC    	
062172	000207			RETURN 	
062174	000261			SEC    	
062176	000207			RETURN 	
062200	017767	005172	005170	MOV    	@067376, 067376
062206	004067	176672		JSR    	R0, 061104 ; $ERROR
062212	005401			NEG    	R1
062214	000031			MTUS   	
062216	043116			BIC    	@(R1)+, (SP)
062220	020123			CMP    	R1, (R3)+
062222	041501			BIC    	(R5), R1
062224	042503			BIC    	(R5)+, R3
062226	051523			BIS    	(R5), (R3)+
062230	052040			BIS    	(R0)+, -(R0)
062232	020117			CMP    	R1, (PC)
062234	044506			BIC    	-(R5), SP
062236	042514			BIC    	(R5)+, (R4)
062240	042040			BIC    	(R0)+, -(R0)
062242	053105			BIS    	@(R1)+, R5
062244	041511			BIC    	(R5), (R1)
062246	000105			JMP    	R5
; BLDNAM
062250	004767	171060		CALL   	053334	; CLRSCR
062254	012700	000016		MOV    	#000016, R0
062260	004767	000332		CALL   	062616
062264	105767	005163		TSTB   	067453
062270	001014			BNE    	062322
062272	012767	015270	005224	MOV    	#015270, 067524
062300	105767	005146		TSTB   	067452
062304	001006			BNE    	062322
062306	005767	005216		TST    	067530
062312	001003			BNE    	062322
062314	016767	005206	005210	MOV    	067526, 067532
062322	012700	067524		MOV    	#067524, R0
062326	012701	067456		MOV    	#067456, R1
062332	012021			MOV    	(R0)+, (R1)+
062334	012021			MOV    	(R0)+, (R1)+
062336	012021			MOV    	(R0)+, (R1)+
062340	012021			MOV    	(R0)+, (R1)+
062342	012700	000022		MOV    	#000022, R0
062346	004767	000244		CALL   	062616
062352	105767	005075		TSTB   	067453
062356	001003			BNE    	062366
062360	016767	005072	005136	MOV    	067456, 067524
062366	012700	067526		MOV    	#067526, R0
062372	005710			TST    	(R0)
062374	001005			BNE    	062410
062376	016710	005056		MOV    	067460, (R0)
062402	016760	005054	000002	MOV    	067462, 000002(R0)
062410	005710			TST    	(R0)
062412	001005			BNE    	062426
062414	005767	005112		TST    	067532
062420	001410			BEQ    	062442
062422	105267	005026		INCB   	067454
062426	105767	005020		TSTB   	067452
062432	001003			BNE    	062442
062434	016767	005024	005070	MOV    	067464, 067532
062442	116700	005005		MOVB   	067453, R0
062446	056700	005054		BIS    	067526, R0
062452	001005			BNE    	062466
062454	052715	000100		BIS    	#000100, (R5)
062460	012767	077430	005040	MOV    	#077430, 067526
062466	012700	067524		MOV    	#067524, R0
062472	012701	000002		MOV    	#000002, R1
062476	060501			ADD    	R5, R1
062500	012021			MOV    	(R0)+, (R1)+
062502	012021			MOV    	(R0)+, (R1)+
062504	012021			MOV    	(R0)+, (R1)+
062506	012021			MOV    	(R0)+, (R1)+
062510	105767	004740		TSTB   	067454
062514	001424			BEQ    	062566
062516	016600	000012		MOV    	000012(SP), R0
062522	001422			BEQ    	062570
062524	012710	177777		MOV    	#177777, (R0)
062530	005000			CLR    	R0
062532	156500	000014		BISB   	000014(R5), R0
062536	006300			ASL    	R0
062540	005060	067332		CLR    	067332(R0)
062544	005745			TST    	-(R5)
062546	010546			MOV    	R5, -(SP)
062550	012700	000036		MOV    	#000036, R0
062554	004767	175700		CALL   	060460	; $DISPO
062560	005077	004612		CLR    	@067376
062564	000261			SEC    	
062566	000207			RETURN 	
062570	004067	176310		JSR    	R0, 061104 ; $ERROR
062574	007000			unknown	007000
062576	000015			unknown	000015
062600	040502			BIC    	R5, R2
062602	020104			CMP    	R1, R4
062604	044506			BIC    	-(R5), SP
062606	042514			BIC    	(R5)+, (R4)
062610	047040	046501		BIC    	@046501(R0), -(R0)
062614	000105			JMP    	R5
062616	005067	004630		CLR    	067452
062622	060600			ADD    	SP, R0
062624	010246			MOV    	R2, -(SP)
062626	010346			MOV    	R3, -(SP)
062630	010446			MOV    	R4, -(SP)
062632	012003			MOV    	(R0)+, R3
062634	011002			MOV    	(R0), R2
062636	060203			ADD    	R2, R3
062640	012701	067466		MOV    	#067466, R1
062644	004767	000530		CALL   	063400
062650	103504			BLO    	063062
062652	120427	000072		CMPB   	R4, #000072
062656	001004			BNE    	062670
062660	005700			TST    	R0
062662	001074			BNE    	063054
062664	105267	004563		INCB   	067453
062670	120427	000056		CMPB   	R4, #000056
062674	001013			BNE    	062724
062676	020127	067466		CMP    	R1, #067466
062702	001006			BNE    	062720
062704	012704	000052		MOV    	#000052, R4
062710	004767	000536		CALL   	063452
062714	012704	000056		MOV    	#000056, R4
062720	105267	004526		INCB   	067452
062724	005000			CLR    	R0
062726	120427	000057		CMPB   	R4, #000057
062732	001050			BNE    	063054
062734	004767	000512		CALL   	063452
062740	004767	000434		CALL   	063400
062744	010400			MOV    	R4, R0
062746	004767	000426		CALL   	063400
062752	000304			SWAB   	R4
062754	150004			BISB   	R0, R4
062756	010146			MOV    	R1, -(SP)
062760	012701	063504		MOV    	#063504, R1
062764	012700	000060		MOV    	#000060, R0
062770	005711			TST    	(R1)
062772	001423			BEQ    	063042
062774	020421			CMP    	R4, (R1)+
062776	001407			BEQ    	063016
063000	105721			TSTB   	(R1)+
063002	001376			BNE    	063000
063004	005201			INC    	R1
063006	042701	000001		BIC    	#000001, R1
063012	005200			INC    	R0
063014	000765			BR     	062770
063016	004767	000356		CALL   	063400
063022	120427	000132		CMPB   	R4, #000132
063026	101007			BHI    	063046
063030	120427	000101		CMPB   	R4, #000101
063034	103404			BLO    	063046
063036	120421			CMPB   	R4, (R1)+
063040	001766			BEQ    	063016
063042	005726			TST    	(SP)+
063044	000512			BR     	063272
063046	005302			DEC    	R2
063050	012601			MOV    	(SP)+, R1
063052	010004			MOV    	R0, R4
063054	004767	000372		CALL   	063452
063060	000671			BR     	062644
063062	105767	004366		TSTB   	067454
063066	001061			BNE    	063232
063070	020127	067466		CMP    	R1, #067466
063074	001456			BEQ    	063232
063076	005004			CLR    	R4
063100	004767	000346		CALL   	063452
063104	004767	171632		CALL   	054742	; LOWSTK
063110	012746	067466		MOV    	#067466, -(SP)
063114	012746	063474		MOV    	#063474, -(SP)
063120	012746	067466		MOV    	#067466, -(SP)
063124	104345			EMT    	000345
063126	103461			BLO    	063272
063130	012700	067466		MOV    	#067466, R0
063134	012701	000042		MOV    	#000042, R1
063140	020027	067524		CMP    	R0, #067524
063144	001002			BNE    	063152
063146	062700	000010		ADD    	#000010, R0
063152	005720			TST    	(R0)+
063154	001046			BNE    	063272
063156	077110			SOB    	R1, 063140
063160	012604			MOV    	(SP)+, R4
063162	001423			BEQ    	063232
063164	012600			MOV    	(SP)+, R0
063166	010003			MOV    	R0, R3
063170	100001			BPL    	063174
063172	012602			MOV    	(SP)+, R2
063174	005001			CLR    	R1
063176	150001			BISB   	R0, R1
063200	162701	000060		SUB    	#000060, R1
063204	006301			ASL    	R1
063206	000300			SWAB   	R0
063210	042700	177600		BIC    	#177600, R0
063214	020027	000003		CMP    	R0, #000003
063220	001024			BNE    	063272
063222	005703			TST    	R3
063224	004771	063566		CALL   	@063566(R1)
063230	077423			SOB    	R4, 063164
063232	012700	067526		MOV    	#067526, R0
063236	021027	132500		CMP    	(R0), #132500
063242	001403			BEQ    	063252
063244	021027	134745		CMP    	(R0), #134745
063250	001002			BNE    	063256
063252	005020			CLR    	(R0)+
063254	005010			CLR    	(R0)
063256	004767	171504		CALL   	054766	; HISTK
063262	012604			MOV    	(SP)+, R4
063264	012603			MOV    	(SP)+, R3
063266	012602			MOV    	(SP)+, R2
063270	000207			RETURN 	
063272	105267	004156		INCB   	067454
063276	000755			BR     	063232
063300	100774			BMI    	063272
063302	052715	000002		BIS    	#000002, (R5)
063306	000207			RETURN 	
063310	100770			BMI    	063272
063312	052715	000004		BIS    	#000004, (R5)
063316	000207			RETURN 	
063320	100764			BMI    	063272
063322	052715	010000		BIS    	#010000, (R5)
063326	000207			RETURN 	
063330	100760			BMI    	063272
063332	052715	000100		BIS    	#000100, (R5)
063336	000207			RETURN 	
063340	100354			BPL    	063272
063342	010265	000022		MOV    	R2, 000022(R5)
063346	000207			RETURN 	
063350	100750			BMI    	063272
063352	052715	001000		BIS    	#001000, (R5)
063356	000207			RETURN 	
063360	100344			BPL    	063272
063362	010265	000012		MOV    	R2, 000012(R5)
063366	000207			RETURN 	
063370	100740			BMI    	063272
063372	052715	000400		BIS    	#000400, (R5)
063376	000207			RETURN 	
063400	112204			MOVB   	(R2)+, R4
063402	042704	177600		BIC    	#177600, R4
063406	020203			CMP    	R2, R3
063410	101015			BHI    	063444
063412	122704	000040		CMPB   	#000040, R4
063416	103370			BHIS   	063400
063420	120427	000172		CMPB   	R4, #000172
063424	101005			BHI    	063440
063426	120427	000141		CMPB   	R4, #000141
063432	103402			BLO    	063440
063434	162704	000040		SUB    	#000040, R4
063440	000241			CLC    	
063442	000207			RETURN 	
063444	005004			CLR    	R4
063446	000261			SEC    	
063450	000207			RETURN 	
063452	020127	067616		CMP    	R1, #067616
063456	103404			BLO    	063470
063460	112767	000001	003766	MOVB   	#000001, 067454
063466	000207			RETURN 	
063470	110421			MOVB   	R4, (R1)+
063472	000207			RETURN 	
063474	000000			HALT   	
063476	000000			HALT   	
063500	000000			HALT   	
063502	000000			HALT   	
063504	042523			BIC    	(R5)+, (R3)+
063506	045505			BIC    	@-(R5), R5
063510	000000			HALT   	
063512	050123			BIS    	R1, (R3)+
063514	047101	000000		BIC    	@000000(R1), R1
063520	042117			BIC    	(R1)+, (PC)
063522	000124			JMP    	(R4)+
063524	042524			BIC    	(R5)+, (R4)+
063526	050115			BIS    	R1, (R5)
063530	000000			HALT   	
063532	052502			BIS    	(R5)+, R2
063534	043106			BIC    	@(R1)+, SP
063536	051105			BIS    	(R1), R5
063540	044523			BIC    	-(R5), (R3)+
063542	042532			BIC    	(R5)+, @(R2)+
063544	000000			HALT   	
063546	047507	000000		BIC    	@000000(R5), PC
063552	044523			BIC    	-(R5), (R3)+
063554	042532			BIC    	(R5)+, @(R2)+
063556	000000			HALT   	
063560	043116			BIC    	@(R1)+, (SP)
063562	000123			JMP    	(R3)+
063564	000000			HALT   	
063566	063310			ADD    	@(R3)+, (R0)
063570	063300			ADD    	@(R3)+, R0
063572	063320			ADD    	@(R3)+, (R0)+
063574	063330			ADD    	@(R3)+, @(R0)+
063576	063340			ADD    	@(R3)+, -(R0)
063600	063350			ADD    	@(R3)+, @-(R0)
063602	063360	063370		ADD    	@(R3)+, 063370(R0)
==================== OPEN END ===================================
========================== REG BEGIN =======================================
; $B74
063606	016746	003564		MOV    	067376, -(SP)
063612	010146			MOV    	R1, -(SP)
063614	010246			MOV    	R2, -(SP)
063616	010346			MOV    	R3, -(SP)
063620	010046			MOV    	R0, -(SP)
; $B127
063622	012746	177704		MOV    	#177704, -(SP)
063626	060616			ADD    	SP, (SP)
063630	022667	003544		CMP    	(SP)+, 067400
063634	101410			BLOS   	063656	; $NOMEM
063636	000207			RETURN 	
; $B76
063640	005726			TST    	(SP)+
063642	012603			MOV    	(SP)+, R3
063644	012602			MOV    	(SP)+, R2
063646	012601			MOV    	(SP)+, R1
063650	012667	003522		MOV    	(SP)+, 067376
063654	000200			RTS    	R0
; $NOMEM
063656	011667	003510		MOV    	(SP), 067372
063662	016767	003432	003510	MOV    	067320, 067400
063670	004067	175210		JSR    	R0, 061104 ; $ERROR
063674	000400			BR     	063676
063676	000025			unknown	000025
063700	052123			BIS    	(R1)+, (R3)+
063702	041501			BIC    	(R5), R1
063704	020113			CMP    	R1, (R3)
063706	054105			BIS    	-(R1), R5
063710	042503			BIC    	(R5)+, R3
063712	042105			BIC    	(R1)+, R5
063714	042105			BIC    	(R1)+, R5
063716	046440	046505		BIC    	046505(R4), -(R0)
063722	051117			BIS    	(R1), (PC)
063724	000131			JMP    	@(R1)+
; $B75
063726	010446			MOV    	R4, -(SP)
063730	010346			MOV    	R3, -(SP)
063732	010246			MOV    	R2, -(SP)
063734	010146			MOV    	R1, -(SP)
063736	010046			MOV    	R0, -(SP)
063740	016646	000012		MOV    	000012(SP), -(SP)
063744	010566	000014		MOV    	R5, 000014(SP)
063750	010600			MOV    	SP, R0
063752	162700	000074		SUB    	#000074, R0
063756	026700	003416		CMP    	067400, R0
063762	101335			BHI    	063656	; $NOMEM
063764	016600	000002		MOV    	000002(SP), R0
063770	000207			RETURN 	
; $B77
063772	012605			MOV    	(SP)+, R5
063774	012600			MOV    	(SP)+, R0
063776	012601			MOV    	(SP)+, R1
064000	012602			MOV    	(SP)+, R2
064002	012603			MOV    	(SP)+, R3
064004	012604			MOV    	(SP)+, R4
064006	000205			RTS    	R5
; $B125
064010	011667	003356		MOV    	(SP), 067372
064014	004067	175064		JSR    	R0, 061104 ; $ERROR
064020	001000			BNE    	064022
064022	000027			unknown	000027
064024	052523			BIS    	(R5)+, (R3)+
064026	051502			BIS    	(R5), R2
064030	051103			BIS    	(R1), R3
064032	050111			BIS    	R1, (R1)
064034	020124			CMP    	R1, (R4)+
064036	052517			BIS    	(R5)+, (PC)
064040	020124			CMP    	R1, (R4)+
064042	043117			BIC    	@(R1)+, (PC)
064044	041040			BIC    	(R0), -(R0)
064046	052517			BIS    	(R5)+, (PC)
064050	042116			BIC    	(R1)+, (SP)
064052	000123			JMP    	(R3)+
======================== REG END =================================
======================== FPSIM BEGIN =============================
; SUPSIM
064054	010046			MOV    	R0, -(SP)
064056	016600	000002		MOV    	000002(SP), R0
064062	014000			MOV    	-(R0), R0
064064	162700	075000		SUB    	#075000, R0
064070	022700	000037		CMP    	#000037, R0
064074	103407			BLO    	064114
064076	042700	000007		BIC    	#000007, R0
064102	006200			ASR    	R0
064104	006200			ASR    	R0
064106	016000	064156		MOV    	064156(R0), R0
064112	000200			RTS    	R0
064114	004067	174764		JSR    	R0, 061104 ; $ERROR
064120	016400	000031		MOV    	000031(R4), R0
064124	042522			BIC    	(R5)+, (R2)+
064126	042523			BIC    	(R5)+, (R3)+
064130	053122			BIS    	@(R1)+, (R2)+
064132	042105			BIC    	(R1)+, R5
064134	044440			BIC    	-(R4), -(R0)
064136	051516			BIS    	(R5), (SP)
064140	051124			BIS    	(R1), (R4)+
064142	041525			BIC    	(R5), (R5)+
064144	044524			BIC    	-(R5), (R4)+
064146	047117	052040		BIC    	@052040(R1), (PC)
064152	040522			BIC    	R5, (R2)+
064154	000120			JMP    	(R0)+
064156	064174	064210		ADD    	-(R1), @064210(R4)
064162	064224			ADD    	-(R2), (R4)+
064164	064240			ADD    	-(R2), -(R0)
; $B123
064166	011646			MOV    	(SP), -(SP)
064170	005066	000002		CLR    	000002(SP)
064174	004067	000046		JSR    	R0, 064246
064200	065130			ADD    	@-(R1), @(R0)+
; $B121
064202	011646			MOV    	(SP), -(SP)
064204	005066	000002		CLR    	000002(SP)
064210	004067	000032		JSR    	R0, 064246
064214	065120			ADD    	@-(R1), (R0)+
; $B119
064216	011646			MOV    	(SP), -(SP)
064220	005066	000002		CLR    	000002(SP)
064224	004067	000016		JSR    	R0, 064246
064230	064462
; $B117
064232	011646			MOV    	(SP), -(SP)
064234	005066	000002		CLR    	000002(SP)
064240	004067	000002		JSR    	R0, 064246
064244	064676	016667		ADD    	-(SP), @016667(SP)
064250	000002			RTI    	
064252	003116			BGT    	064510
064254	010146			MOV    	R1, -(SP)
064256	010246			MOV    	R2, -(SP)
064260	010346			MOV    	R3, -(SP)
064262	010446			MOV    	R4, -(SP)
064264	010546			MOV    	R5, -(SP)
064266	010601			MOV    	SP, R1
064270	062701	000020		ADD    	#000020, R1
064274	012102			MOV    	(R1)+, R2
064276	012103			MOV    	(R1)+, R3
064300	012104			MOV    	(R1)+, R4
064302	012105			MOV    	(R1)+, R5
064304	006302			ASL    	R2
064306	001401			BEQ    	064312
064310	006002			ROR    	R2
064312	006304			ASL    	R4
064314	001401			BEQ    	064320
064316	006004			ROR    	R4
064320	004730			CALL   	@(R0)+
064322	010266	000024		MOV    	R2, 000024(SP)
064326	010366	000026		MOV    	R3, 000026(SP)
064332	012605			MOV    	(SP)+, R5
064334	012604			MOV    	(SP)+, R4
064336	012603			MOV    	(SP)+, R3
064340	012602			MOV    	(SP)+, R2
064342	012601			MOV    	(SP)+, R1
064344	012600			MOV    	(SP)+, R0
064346	012666	000002		MOV    	(SP)+, 000002(SP)
064352	042716	000017		BIC    	#000017, (SP)
064356	052716	000004		BIS    	#000004, (SP)
064362	005766	000006		TST    	000006(SP)
064366	001405			BEQ    	064402
064370	100002			BPL    	064376
064372	052716	000010		BIS    	#000010, (SP)
064376	042716	000004		BIC    	#000004, (SP)
064402	012666	000002		MOV    	(SP)+, 000002(SP)
064406	000002			RTI    	
; $FDIV
064410	004067	000024		JSR    	R0, 064440
064414	064676
; $FMUL
064416	004067	000016		JSR    	R0, 064440
064422	064462
; $FSUB
064424	004067	000010		JSR    	R0, 064440
064430	065120			ADD    	@-(R1), (R0)+
; $FADD
064432	004067	000002		JSR    	R0, 064440
064436	065130			ADD    	@-(R1), @(R0)+
064440	010146			MOV    	R1, -(SP)
064442	010446			MOV    	R4, -(SP)
064444	010546			MOV    	R5, -(SP)
064446	004730			CALL   	@(R0)+
064450	012605			MOV    	(SP)+, R5
064452	012604			MOV    	(SP)+, R4
064454	012601			MOV    	(SP)+, R1
064456	012600			MOV    	(SP)+, R0
064460	000207			RETURN 	
064462	010200			MOV    	R2, R0
064464	001501			BEQ    	064670
064466	005046			CLR    	-(SP)
064470	006100			ROL    	R0
064472	006016			ROR    	(SP)
064474	105000			CLRB   	R0
064476	010401			MOV    	R4, R1
064500	001472			BEQ    	064666
064502	005046			CLR    	-(SP)
064504	006101			ROL    	R1
064506	006016			ROR    	(SP)
064510	105001			CLRB   	R1
064512	062616			ADD    	(SP)+, (SP)
064514	060100			ADD    	R1, R0
064516	103401			BLO    	064522
064520	105100			COMB   	R0
064522	000300			SWAB   	R0
064524	010046			MOV    	R0, -(SP)
064526	042702	177400		BIC    	#177400, R2
064532	052702	000200		BIS    	#000200, R2
064536	042704	177400		BIC    	#177400, R4
064542	052704	000200		BIS    	#000200, R4
064546	005000			CLR    	R0
064550	005001			CLR    	R1
064552	005705			TST    	R5
064554	100004			BPL    	064566
064556	010301			MOV    	R3, R1
064560	010200			MOV    	R2, R0
064562	042701	100000		BIC    	#100000, R1
064566	005703			TST    	R3
064570	100005			BPL    	064604
064572	010546			MOV    	R5, -(SP)
064574	042716	100000		BIC    	#100000, (SP)
064600	062601			ADD    	(SP)+, R1
064602	060400			ADD    	R4, R0
064604	010146			MOV    	R1, -(SP)
064606	010046			MOV    	R0, -(SP)
064610	010401			MOV    	R4, R1
064612	070102			MUL    	R2, R1
064614	010146			MOV    	R1, -(SP)
064616	010300			MOV    	R3, R0
064620	070005			MUL    	R5, R0
064622	010301			MOV    	R3, R1
064624	070205			MUL    	R5, R2
064626	070401			MUL    	R1, R4
064630	062602			ADD    	(SP)+, R2
064632	060003			ADD    	R0, R3
064634	005502			ADC    	R2
064636	005700			TST    	R0
064640	100001			BPL    	064644
064642	005302			DEC    	R2
064644	060402			ADD    	R4, R2
064646	060503			ADD    	R5, R3
064650	005502			ADC    	R2
064652	062602			ADD    	(SP)+, R2
064654	062603			ADD    	(SP)+, R3
064656	005502			ADC    	R2
064660	005004			CLR    	R4
064662	000167	000576		JMP    	065464
064666	005726			TST    	(SP)+
064670	005002			CLR    	R2
064672	005003			CLR    	R3
064674	000207			RETURN 	
064676	010201			MOV    	R2, R1
064700	001467			BEQ    	065060
064702	005046			CLR    	-(SP)
064704	006101			ROL    	R1
064706	006016			ROR    	(SP)
064710	105001			CLRB   	R1
064712	010400			MOV    	R4, R0
064714	001475			BEQ    	065110
064716	005046			CLR    	-(SP)
064720	006100			ROL    	R0
064722	006016			ROR    	(SP)
064724	105000			CLRB   	R0
064726	062616			ADD    	(SP)+, (SP)
064730	160100			SUB    	R1, R0
064732	103001			BHIS   	064736
064734	105100			COMB   	R0
064736	000300			SWAB   	R0
064740	010046			MOV    	R0, -(SP)
064742	042702	177400		BIC    	#177400, R2
064746	052702	000200		BIS    	#000200, R2
064752	042704	177400		BIC    	#177400, R4
064756	052704	000200		BIS    	#000200, R4
064762	062716	000010		ADD    	#000010, (SP)
064766	012746	000031		MOV    	#000031, -(SP)
064772	010200			MOV    	R2, R0
064774	010301			MOV    	R3, R1
064776	005002			CLR    	R2
065000	005003			CLR    	R3
065002	020004			CMP    	R0, R4
065004	103403			BLO    	065014
065006	101006			BHI    	065024
065010	020105			CMP    	R1, R5
065012	101004			BHI    	065024
065014	160105			SUB    	R1, R5
065016	005604			SBC    	R4
065020	160004			SUB    	R0, R4
065022	000261			SEC    	
065024	006103			ROL    	R3
065026	006102			ROL    	R2
065030	005316			DEC    	(SP)
065032	001406			BEQ    	065050
065034	073427	000001		ASHC   	#000001, R4
065040	032704	177600		BIT    	#177600, R4
065044	001767			BEQ    	065024
065046	000755			BR     	065002
065050	005726			TST    	(SP)+
065052	005004			CLR    	R4
065054	000167	000404		JMP    	065464
065060	004067	174020		JSR    	R0, 061104 ; $ERROR
065064	002400			BLT    	065066
065066	000020			RSEL   	
065070	044504			BIC    	-(R5), R4
065072	044526			BIC    	-(R5), (SP)+
065074	044523			BIC    	-(R5), (R3)+
065076	047117	041040		BIC    	@041040(R1), (PC)
065102	020131			CMP    	R1, @(R1)+
065104	042532			BIC    	(R5)+, @(R2)+
065106	047522	005726		BIC    	@005726(R5), (R2)+
065112	005002			CLR    	R2
065114	005003			CLR    	R3
065116	000207			RETURN 	
065120	005702			TST    	R2
065122	001402			BEQ    	065130
065124	062702	100000		ADD    	#100000, R2
065130	005046			CLR    	-(SP)
065132	012746	000010		MOV    	#000010, -(SP)
065136	010200			MOV    	R2, R0
065140	001545			BEQ    	065454
065142	006300			ASL    	R0
065144	105000			CLRB   	R0
065146	000300			SWAB   	R0
065150	010401			MOV    	R4, R1
065152	001542			BEQ    	065460
065154	006301			ASL    	R1
065156	105001			CLRB   	R1
065160	000301			SWAB   	R1
065162	160100			SUB    	R1, R0
065164	100405			BMI    	065200
065166	020027	000030		CMP    	R0, #000030
065172	003132			BGT    	065460
065174	060001			ADD    	R0, R1
065176	000403			BR     	065206
065200	020027	177750		CMP    	R0, #177750
065204	002523			BLT    	065454
065206	162701	000200		SUB    	#000200, R1
065212	060116			ADD    	R1, (SP)
065214	042704	077600		BIC    	#077600, R4
065220	052704	000200		BIS    	#000200, R4
065224	100005			BPL    	065240
065226	005405			NEG    	R5
065230	005504			ADC    	R4
065232	005404			NEG    	R4
065234	052704	100000		BIS    	#100000, R4
065240	042702	077600		BIC    	#077600, R2
065244	052702	000200		BIS    	#000200, R2
065250	100005			BPL    	065264
065252	005403			NEG    	R3
065254	005502			ADC    	R2
065256	005402			NEG    	R2
065260	052702	100000		BIS    	#100000, R2
065264	005700			TST    	R0
065266	100423			BMI    	065336
065270	001446			BEQ    	065406
065272	005001			CLR    	R1
065274	020027	000010		CMP    	R0, #000010
065300	002411			BLT    	065324
065302	105001			CLRB   	R1
065304	150501			BISB   	R5, R1
065306	000301			SWAB   	R1
065310	073427	177770		ASHC   	#177770, R4
065314	162700	000010		SUB    	#000010, R0
065320	003365			BGT    	065274
065322	000433			BR     	065412
065324	073427	177777		ASHC   	#177777, R4
065330	006001			ROR    	R1
065332	077004			SOB    	R0, 065324
065334	000426			BR     	065412
065336	010001			MOV    	R0, R1
065340	005000			CLR    	R0
065342	005401			NEG    	R1
065344	020127	000010		CMP    	R1, #000010
065350	002411			BLT    	065374
065352	105000			CLRB   	R0
065354	150300			BISB   	R3, R0
065356	000300			SWAB   	R0
065360	073227	177770		ASHC   	#177770, R2
065364	162701	000010		SUB    	#000010, R1
065370	003365			BGT    	065344
065372	001407			BEQ    	065412
065374	073227	177777		ASHC   	#177777, R2
065400	006000			ROR    	R0
065402	077104			SOB    	R1, 065374
065404	000402			BR     	065412
065406	005001			CLR    	R1
065410	005000			CLR    	R0
065412	060100			ADD    	R1, R0
065414	005503			ADC    	R3
065416	005502			ADC    	R2
065420	060503			ADD    	R5, R3
065422	005502			ADC    	R2
065424	060402			ADD    	R4, R2
065426	100010			BPL    	065450
065430	005400			NEG    	R0
065432	005503			ADC    	R3
065434	005502			ADC    	R2
065436	005403			NEG    	R3
065440	005502			ADC    	R2
065442	005402			NEG    	R2
065444	005166	000002		COM    	000002(SP)
065450	010004			MOV    	R0, R4
065452	000404			BR     	065464
065454	010402			MOV    	R4, R2
065456	010503			MOV    	R5, R3
065460	022626			CMP    	(SP)+, (SP)+
065462	000207			RETURN 	
065464	012601			MOV    	(SP)+, R1
065466	012600			MOV    	(SP)+, R0
065470	162701	000010		SUB    	#000010, R1
065474	010205			MOV    	R2, R5
065476	050305			BIS    	R3, R5
065500	050405			BIS    	R4, R5
065502	001514			BEQ    	065734
065504	032702	177400		BIT    	#177400, R2
065510	001424			BEQ    	065562
065512	100012			BPL    	065540
065514	010304			MOV    	R3, R4
065516	105003			CLRB   	R3
065520	150203			BISB   	R2, R3
065522	105002			CLRB   	R2
065524	000304			SWAB   	R4
065526	000303			SWAB   	R3
065530	000302			SWAB   	R2
065532	062701	000010		ADD    	#000010, R1
065536	000433			BR     	065626
065540	000241			CLC    	
065542	006002			ROR    	R2
065544	006003			ROR    	R3
065546	006004			ROR    	R4
065550	005201			INC    	R1
065552	032702	177400		BIT    	#177400, R2
065556	001355			BNE    	065512
065560	000422			BR     	065626
065562	005702			TST    	R2
065564	001016			BNE    	065622
065566	000303			SWAB   	R3
065570	150302			BISB   	R3, R2
065572	105003			CLRB   	R3
065574	000304			SWAB   	R4
065576	150403			BISB   	R4, R3
065600	105004			CLRB   	R4
065602	162701	000010		SUB    	#000010, R1
065606	000765			BR     	065562
065610	000241			CLC    	
065612	006104			ROL    	R4
065614	006103			ROL    	R3
065616	006102			ROL    	R2
065620	005301			DEC    	R1
065622	105702			TSTB   	R2
065624	100371			BPL    	065610
065626	006304			ASL    	R4
065630	005503			ADC    	R3
065632	005502			ADC    	R2
065634	005004			CLR    	R4
065636	032702	000400		BIT    	#000400, R2
065642	001336			BNE    	065540
065644	062701	000200		ADD    	#000200, R1
065650	000301			SWAB   	R1
065652	001424			BEQ    	065724
065654	100420			BMI    	065716
065656	004067	173222		JSR    	R0, 061104 ; $ERROR
065662	001400			BEQ    	065664
065664	000027			unknown	000027
065666	046106	040517		BIC    	040517(R1), SP
065672	044524			BIC    	-(R5), (R4)+
065674	043516			BIC    	@(R5)+, (SP)
065676	050040			BIS    	R0, -(R0)
065700	044517			BIC    	-(R5), (PC)
065702	052116			BIS    	(R1)+, (SP)
065704	047440	042526		BIC    	@042526(R4), -(R0)
065710	043122			BIC    	@(R1)+, (R2)+
065712	047514	000127		BIC    	@000127(R5), (R4)
065716	005002			CLR    	R2
065720	005003			CLR    	R3
065722	000404			BR     	065734
065724	106302			ASLB   	R2
065726	050102			BIS    	R1, R2
065730	006300			ASL    	R0
065732	006002			ROR    	R2
065734	000207			RETURN 	
======================== FPSIM END =============================
======================== ERROR BEGIN =============================
; ERROR
065736	005046			CLR    	-(SP)
065740	004767	001116		CALL   	067062	; $B36
065744	116600	000024		MOVB   	000024(SP), R0
065750	162700	000001		SUB    	#000001, R0
065754	002002			BGE    	065762
065756	000167	000070		JMP    	066052
065762	022700	000001		CMP    	#000001, R0
065766	002002			BGE    	065774
065770	000167	000056		JMP    	066052
065774	006300			ASL    	R0
065776	000170	066076		JMP    	@066076(R0)
066002	012746	066346		MOV    	#066346, -(SP)
066006	012746	000011		MOV    	#000011, -(SP)
066012	012746	000011		MOV    	#000011, -(SP)
066016	004767	001076		CALL   	067120	; $B32
066022	000167	000054		JMP    	066102
066026	012746	066360		MOV    	#066360, -(SP)
066032	012746	000014		MOV    	#000014, -(SP)
066036	012746	000014		MOV    	#000014, -(SP)
066042	004767	001052		CALL   	067120	; $B32
066046	000167	000030		JMP    	066102
066052	012746	066376		MOV    	#066376, -(SP)
066056	012746	000016		MOV    	#000016, -(SP)
066062	012746	000016		MOV    	#000016, -(SP)
066066	004767	001026		CALL   	067120	; $B32
066072	000167	000004		JMP    	066102
066076	066026	066002		ADD    	066002(R0), (SP)+
066102	016646	000016		MOV    	000016(SP), -(SP)
066106	012746	000144		MOV    	#000144, -(SP)
066112	016646	000024		MOV    	000024(SP), -(SP)
066116	004767	000776		CALL   	067120	; $B32
066122	004767	000734		CALL   	067062	; $B36
066126	126627	000024	000001	CMPB   	000024(SP), #000001
066134	001402			BEQ    	066142
066136	000167	000130		JMP    	066272
066142	005766	000006		TST    	000006(SP)
066146	003002			BGT    	066154
066150	000167	000056		JMP    	066232
066154	012746	066416		MOV    	#066416, -(SP)
066160	012746	000014		MOV    	#000014, -(SP)
066164	012746	000014		MOV    	#000014, -(SP)
066170	004767	000724		CALL   	067120	; $B32
066174	016646	000004		MOV    	000004(SP), -(SP)
066200	012746	000144		MOV    	#000144, -(SP)
066204	016646	000012		MOV    	000012(SP), -(SP)
066210	004767	000704		CALL   	067120	; $B32
066214	012746	000042		MOV    	#000042, -(SP)
066220	005046			CLR    	-(SP)
066222	004767	000552		CALL   	067000	; $B20
066226	004767	000630		CALL   	067062	; $B36
066232	012746	066434		MOV    	#066434, -(SP)
066236	012746	000015		MOV    	#000015, -(SP)
066242	012746	000015		MOV    	#000015, -(SP)
066246	004767	000646		CALL   	067120	; $B32
066252	016646	000012		MOV    	000012(SP), -(SP)
066256	012746	000001		MOV    	#000001, -(SP)
066262	004767	000210		CALL   	066476	; $B24
066266	004767	000570		CALL   	067062	; $B36
066272	012746	066452		MOV    	#066452, -(SP)
066276	012746	000022		MOV    	#000022, -(SP)
066302	012746	000022		MOV    	#000022, -(SP)
066306	004767	000606		CALL   	067120	; $B32
066312	016646	000010		MOV    	000010(SP), -(SP)
066316	012746	177777		MOV    	#177777, -(SP)
066322	004767	000150		CALL   	066476	; $B24
066326	004767	000530		CALL   	067062	; $B36
066332	016666	000002	000024	MOV    	000002(SP), 000024(SP)
066340	062706	000024		ADD    	#000024, SP
066344	000207			RETURN 	
066346	040527	047122		BIC    	R5, #047122
066352	047111	035107		BIC    	@035107(R1), (R1)
066356	000040			unknown	000040
066360	044477	047457		BIC    	-(R4), @136043
066364	042440			BIC    	(R4)+, -(R0)
066366	051122			BIS    	(R1), (R2)+
066370	051117			BIS    	(R1), (PC)
066372	020072	000000		CMP    	R0, @000000(R2)
066376	043077	052101		BIC    	@(R0)+, @140503
066402	046101	042440		BIC    	042440(R1), R1
066406	051122			BIS    	(R1), (R2)+
066410	051117			BIS    	(R1), (PC)
066412	020072	000000		CMP    	R0, @000000(R2)
066416	043040			BIC    	@(R0)+, -(R0)
066420	046111	047105		BIC    	047105(R1), (R1)
066424	046501	035105		BIC    	035105(R5), R1
066430	021040			CMP    	(R0), -(R0)
066432	000000			HALT   	
066434	044440			BIC    	-(R4), -(R0)
066436	047457	051440		BIC    	@051440(R4), @-(PC)
066442	040524			BIC    	R5, (R4)+
066444	052524			BIS    	(R5)+, (R4)+
066446	035123			BIT    	@-(R1), (R3)+
066450	000040			unknown	000040
066452	050040			BIS    	R0, -(R0)
066454	047522	051107		BIC    	@051107(R5), (R2)+
066460	046501	041440		BIC    	041440(R5), R1
066464	052517			BIS    	(R5)+, (PC)
066466	052116			BIS    	(R1)+, (SP)
066470	051105			BIS    	(R1), R5
066472	020072	000000		CMP    	R0, @000000(R2)
======================== ERROR END =============================
======================== WRITI BEGIN ===========================
; $B24
066476	016767	000626	000672	MOV    	067330, 067376
; $B26
066504	004567	164644		JSR    	R5, 053354 ; $SETIO
066510	000010			unknown	000010
066512	010246			MOV    	R2, -(SP)
066514	010346			MOV    	R3, -(SP)
066516	010446			MOV    	R4, -(SP)
066520	005046			CLR    	-(SP)
066522	012703	000006		MOV    	#000006, R3
066526	016601	000026		MOV    	000026(SP), R1
066532	001001			BNE    	066536
066534	005203			INC    	R3
066536	016602	000024		MOV    	000024(SP), R2
066542	100012			BPL    	066570
066544	012704	066676		MOV    	#066676, R4
066550	005402			NEG    	R2
066552	005701			TST    	R1
066554	100015			BPL    	066610
066556	012716	000061		MOV    	#000061, (SP)
066562	042701	100000		BIC    	#100000, R1
066566	000415			BR     	066622
066570	012704	066712		MOV    	#066712, R4
066574	005701			TST    	R1
066576	100004			BPL    	066610
066600	012716	000055		MOV    	#000055, (SP)
066604	005401			NEG    	R1
066606	005203			INC    	R3
066610	005303			DEC    	R3
066612	022401			CMP    	(R4)+, R1
066614	101375			BHI    	066610
066616	005744			TST    	-(R4)
066620	001776			BEQ    	066616
066622	160302			SUB    	R3, R2
066624	003405			BLE    	066640
066626	012700	000040		MOV    	#000040, R0
066632	004767	000070		CALL   	066726	; $PUTCH
066636	077205			SOB    	R2, 066626
066640	012600			MOV    	(SP)+, R0
066642	001004			BNE    	066654
066644	005000			CLR    	R0
066646	071024			DIV    	(R4)+, R0
066650	062700	000060		ADD    	#000060, R0
066654	004767	000046		CALL   	066726	; $PUTCH
066660	077307			SOB    	R3, 066644
066662	004767	000156		CALL   	067044	; $FLUSH
066666	012604			MOV    	(SP)+, R4
066670	012603			MOV    	(SP)+, R3
066672	012602			MOV    	(SP)+, R2
066674	000207			RETURN 	
066676	010000			MOV    	R0, R0
066700	001000			BNE    	066702
066702	000100			JMP    	R0
066704	000010			unknown	000010
066706	000001			WAIT   	
066710	000000			HALT   	
066712	023420			CMP    	@(R4)+, (R0)+
066714	001750			BEQ    	066636
066716	000144			JMP    	-(R4)
066720	000012			START  	
066722	000001			WAIT   	
066724	000000			HALT   	
======================== WRITI END =============================
======================== WRITC BEGIN ===========================
; $PUTCH
066726	110075	177776		MOVB   	R0, @177776(R5)
066732	052715	000001		BIS    	#000001, (R5)
066736	005245			INC    	-(R5)
066740	022565	000030		CMP    	(R5)+, 000030(R5)
066744	101403			BLOS   	066754
066746	016565	177776	000030	MOV    	177776(R5), 000030(R5)
066754	016500	000020		MOV    	000020(R5), R0
066760	066500	000022		ADD    	000022(R5), R0
066764	026500	177776		CMP    	177776(R5), R0
066770	103402			BLO    	066776
066772	004767	165126		CALL   	054124	; NXTBUF
066776	000207			RETURN 	
; $B20
067000	016767	000324	000370	MOV    	067330, 067376
; $B22
067006	004567	164342		JSR    	R5, 053354 ; $SETIO
067012	000010			unknown	000010
067014	000404			BR     	067026
067016	012700	000040		MOV    	#000040, R0
067022	004767	177700		CALL   	066726	; $PUTCH
067026	005366	000014		DEC    	000014(SP)
067032	003371			BGT    	067016
067034	016600	000016		MOV    	000016(SP), R0
067040	004767	177662		CALL   	066726	; $PUTCH
; $FLUSH
067044	122765	000377	000014	CMPB   	#000377, 000014(R5)
067052	001002			BNE    	067060
067054	004767	165622		CALL   	054702	; $BREAK
067060	000207			RETURN 	
; $B36
067062	016767	000242	000306	MOV    	067330, 067376
; $B38
067070	004567	164260		JSR    	R5, 053354 ; $SETIO
067074	000004			IOT    	
067076	112700	000015		MOVB   	#000015, R0
067102	004767	177620		CALL   	066726	; $PUTCH
067106	112700	000012		MOVB   	#000012, R0
067112	004767	177610		CALL   	066726	; $PUTCH
067116	000752			BR     	067044	; $FLUSH
; $B32
067120	016767	000204	000250	MOV    	067330, 067376
; $B34
067126	004567	164222		JSR    	R5, 053354 ; $SETIO
067132	000012			START  	
067134	016601	000014		MOV    	000014(SP), R1
067140	166601	000016		SUB    	000016(SP), R1
067144	003405			BLE    	067160
067146	012700	000040		MOV    	#000040, R0
067152	004767	177550		CALL   	066726	; $PUTCH
067156	077105			SOB    	R1, 067146
067160	060166	000016		ADD    	R1, 000016(SP)
067164	003410			BLE    	067206
067166	016601	000020		MOV    	000020(SP), R1
067172	112100			MOVB   	(R1)+, R0
067174	004767	177526		CALL   	066726	; $PUTCH
067200	005366	000016		DEC    	000016(SP)
067204	003372			BGT    	067172
067206	000716			BR     	067044	; $FLUSH
; $B110
067210	016767	000114	000160	MOV    	067330, 067376
; $B112
067216	011646			MOV    	(SP), -(SP)
067220	016666	000004	000002	MOV    	000004(SP), 000002(SP)
067226	004567	164122		JSR    	R5, 053354 ; $SETIO
067232	000012			START  	
067234	006066	000020		ROR    	000020(SP)
067240	012700	000004		MOV    	#000004, R0
067244	012766	067304	000020	MOV    	#067304, 000020(SP)
067252	103404			BLO    	067264
067254	012766	067310	000020	MOV    	#067310, 000020(SP)
067262	005200			INC    	R0
067264	026600	000014		CMP    	000014(SP), R0
067270	103002			BHIS   	067276
067272	010066	000014		MOV    	R0, 000014(SP)
067276	010066	000016		MOV    	R0, 000016(SP)
067302	000714			BR     	067134
067304	051124			BIS    	(R1), (R4)+
067306	042525			BIC    	(R5)+, (R5)+
067310	040506			BIC    	R5, SP
067312	051514			BIS    	(R5), (R4)
067314	000105			JMP    	R5
======================== WRITC END =============================
============================== RTSDAT BEGIN ======================================
067316	000000			HALT   	
067320	000000			HALT   	
067322	000000			HALT   	
067324	000000			HALT   	
067326	000000			HALT   	
067330	000000			HALT   	
067332	000000			HALT   	
067334	000000			HALT   	
067336	000000			HALT   	
067340	000000			HALT   	
067342	000000			HALT   	
067344	000000			HALT   	
067346	000000			HALT   	
067350	000000			HALT   	
067352	000000			HALT   	
067354	000000			HALT   	
067356	000000			HALT   	
067360	000000			HALT   	
067362	000000			HALT   	
067364	000000			HALT   	
067366	000000			HALT   	
067370	000000			HALT   	
067372	000000			HALT   	
067374	000000			HALT   	
067376	000000			HALT   	
067400	000000			HALT   	
067402	000000			HALT   	
067404	000000			HALT   	
067406	000000			HALT   	
067410	000000			HALT   	
067412	000000			HALT   	
067414	000000			HALT   	
067416	000000			HALT   	
067420	000000			HALT   	
067422	000000			HALT   	
067424	000000			HALT   	
067426	000000			HALT   	
067430	000000			HALT   	
067432	000000			HALT   	
067434	000000			HALT   	
067436	000000			HALT   	
067440	000000			HALT   	
067442	000000			HALT   	
067444	000000			HALT   	
067446	000000			HALT   	
067450	000000			HALT   	
067452	000000			HALT   	
067454	000000			HALT   	
067456	000000			HALT   	
067460	000000			HALT   	
067462	000000			HALT   	
067464	000000			HALT   	
067466	000000			HALT   	
067470	000000			HALT   	
067472	000000			HALT   	
067474	000000			HALT   	
067476	000000			HALT   	
067500	000000			HALT   	
067502	000000			HALT   	
067504	000000			HALT   	
067506	000000			HALT   	
067510	000000			HALT   	
067512	000000			HALT   	
067514	000000			HALT   	
067516	000000			HALT   	
067520	000000			HALT   	
067522	000000			HALT   	
067524	000000			HALT   	
067526	000000			HALT   	
067530	000000			HALT   	
067532	000000			HALT   	
067534	000000			HALT   	
067536	000000			HALT   	
067540	000000			HALT   	
067542	000000			HALT   	
067544	000000			HALT   	
067546	000000			HALT   	
067550	000000			HALT   	
067552	000000			HALT   	
067554	000000			HALT   	
067556	000000			HALT   	
067560	000000			HALT   	
067562	000000			HALT   	
067564	000000			HALT   	
067566	000000			HALT   	
067570	000000			HALT   	
067572	000000			HALT   	
067574	000000			HALT   	
067576	000000			HALT   	
067600	000000			HALT   	
067602	000000			HALT   	
067604	000000			HALT   	
067606	000000			HALT   	
067610	000000			HALT   	
067612	000000			HALT   	
067614	000000			HALT   	
067616	000000			HALT   	
067620	000000			HALT   	
067622	000000			HALT   	
067624	000000			HALT   	
067626	000000			HALT   	
067630	000000			HALT   	
067632	000000			HALT   	
067634	000000			HALT   	
067636	000000			HALT   	
067640	000000			HALT   	
067642	000000			HALT   	
067644	000000			HALT   	
067646	000000			HALT   	
067650	000000			HALT   	
067652	000000			HALT   	
067654	000000			HALT   	
067656	000000			HALT   	
067660	000000			HALT   	
067662	000000			HALT   	
067664	000000			HALT   	
067666	000000			HALT   	
067670	000000			HALT   	
067672	000000			HALT   	
067674	000000			HALT   	
067676	000000			HALT   	
067700	000000			HALT   	
067702	000000			HALT   	
067704	000000			HALT   	
067706	000000			HALT   	
067710	000000			HALT   	
067712	000000			HALT   	
067714	000000			HALT   	
067716	000000			HALT   	
067720	000000			HALT   	
067722	000000			HALT   	
067724	000000			HALT   	
067726	000000			HALT   	
067730	000000			HALT   	
067732	000000			HALT   	
067734	000000			HALT   	
067736	000000			HALT   	
067740	000000			HALT   	
067742	000000			HALT   	
067744	000000			HALT   	
067746	000000			HALT   	
067750	000000			HALT   	
067752	000000			HALT   	
067754	000000			HALT   	
067756	000000			HALT   	
067760	000000			HALT   	
067762	000000			HALT   	
067764	000000			HALT   	
067766	000000			HALT   	
067770	000000			HALT   	
067772	000000			HALT   	
067774	000000			HALT   	
067776	000000			HALT   	
070000	000000			HALT   	
070002	000000			HALT   	
070004	000000			HALT   	
070006	000000			HALT   	
070010	000000			HALT   	
070012	000000			HALT   	
070014	000000			HALT   	
070016	000000			HALT   	
070020	000000			HALT   	
070022	000000			HALT   	
070024	000000			HALT   	
070026	000000			HALT   	
070030	000000			HALT   	
070032	000000			HALT   	
070034	000000			HALT   	
070036	000000			HALT   	
070040	000000			HALT   	
070042	000000			HALT   	
070044	000000			HALT   	
070046	000000			HALT   	
070050	000000			HALT   	
070052	000000			HALT   	
070054	000000			HALT   	
070056	000000			HALT   	
070060	000000			HALT   	
070062	000000			HALT   	
070064	000000			HALT   	
070066	000000			HALT   	
070070	000000			HALT   	
070072	000000			HALT   	
070074	000000			HALT   	
070076	000000			HALT   	
070100	000000			HALT   	
070102	000000			HALT   	
070104	000000			HALT   	
070106	000000			HALT   	
070110	000000			HALT   	
070112	000000			HALT   	
070114	000000			HALT   	
070116	000000			HALT   	
070120	000000			HALT   	
070122	000000			HALT   	
070124	000000			HALT   	
070126	000000			HALT   	
============================ RTSDAT DATA END =============================
============================ DBGLNK DATA BEGIN =============================
070130	000000			HALT   	
070132	000000			HALT   	
============================ DBGLNK DATA END =============================
============================ SIMLNK DATA BEGIN =============================
070134	064054			ADD    	-(R0), @-(R4)	; SUPSIM
============================ SIMLNK DATA END =============================
070136	000000			HALT   	
070140	000000			HALT   	
070142	000000			HALT   	
070144	000000			HALT   	
070146	000000			HALT   	
070150	000000			HALT   	
070152	000000			HALT   	
070154	000000			HALT   	
070156	000000			HALT   	
070160	000000			HALT   	
070162	000000			HALT   	
070164	000000			HALT   	
070166	000000			HALT   	
070170	000000			HALT   	
070172	000000			HALT   	
070174	000000			HALT   	
070176	000000			HALT   	
070200	000000			HALT   	
070202	000000			HALT   	
070204	000000			HALT   	
070206	000000			HALT   	
070210	000000			HALT   	
070212	000000			HALT   	
070214	000000			HALT   	
070216	000000			HALT   	
070220	000000			HALT   	
070222	000000			HALT   	
070224	000000			HALT   	
070226	000000			HALT   	
070230	000000			HALT   	
070232	000000			HALT   	
070234	000000			HALT   	
070236	000000			HALT   	
070240	000000			HALT   	
070242	000000			HALT   	
070244	000000			HALT   	
070246	000000			HALT   	
070250	000000			HALT   	
070252	000000			HALT   	
070254	000000			HALT   	
070256	000000			HALT   	
070260	000000			HALT   	
070262	000000			HALT   	
070264	000000			HALT   	
070266	000000			HALT   	
070270	000000			HALT   	
070272	000000			HALT   	
070274	000000			HALT   	
070276	000000			HALT   	
070300	000000			HALT   	
070302	000000			HALT   	
070304	000000			HALT   	
070306	000000			HALT   	
070310	000000			HALT   	
070312	000000			HALT   	
070314	000000			HALT   	
070316	000000			HALT   	
070320	000000			HALT   	
070322	000000			HALT   	
070324	000000			HALT   	
070326	000000			HALT   	
070330	000000			HALT   	
070332	000000			HALT   	
070334	000000			HALT   	
070336	000000			HALT   	
070340	000000			HALT   	
070342	000000			HALT   	
070344	000000			HALT   	
070346	000000			HALT   	
070350	000000			HALT   	
070352	000000			HALT   	
070354	000000			HALT   	
070356	000000			HALT   	
070360	000000			HALT   	
070362	000000			HALT   	
070364	000000			HALT   	
070366	000000			HALT   	
070370	000000			HALT   	
070372	000000			HALT   	
070374	000000			HALT   	
070376	000000			HALT   	
070400	000000			HALT   	
070402	000000			HALT   	
070404	000000			HALT   	
070406	000000			HALT   	
070410	000000			HALT   	
070412	000000			HALT   	
070414	000000			HALT   	
070416	000000			HALT   	
070420	000000			HALT   	
070422	000000			HALT   	
070424	000000			HALT   	
070426	000000			HALT   	
070430	000000			HALT   	
070432	000000			HALT   	
070434	000000			HALT   	
070436	000000			HALT   	
070440	000000			HALT   	
070442	000000			HALT   	
070444	000000			HALT   	
070446	000000			HALT   	
070450	000000			HALT   	
070452	000000			HALT   	
070454	000000			HALT   	
070456	000000			HALT   	
070460	000000			HALT   	
070462	000000			HALT   	
070464	000000			HALT   	
070466	000000			HALT   	
070470	000000			HALT   	
070472	000000			HALT   	
070474	000000			HALT   	
070476	000000			HALT   	
070500	000000			HALT   	
070502	000000			HALT   	
070504	000000			HALT   	
070506	000000			HALT   	
070510	000000			HALT   	
070512	000000			HALT   	
070514	000000			HALT   	
070516	000000			HALT   	
070520	000000			HALT   	
070522	000000			HALT   	
070524	000000			HALT   	
070526	000000			HALT   	
070530	000000			HALT   	
070532	000000			HALT   	
070534	000000			HALT   	
070536	000000			HALT   	
070540	000000			HALT   	
070542	000000			HALT   	
070544	000000			HALT   	
070546	000000			HALT   	
070550	000000			HALT   	
070552	000000			HALT   	
070554	000000			HALT   	
070556	000000			HALT   	
070560	000000			HALT   	
070562	000000			HALT   	
070564	000000			HALT   	
070566	000000			HALT   	
070570	000000			HALT   	
070572	000000			HALT   	
070574	000000			HALT   	
070576	000000			HALT   	
070600	000000			HALT   	
070602	000000			HALT   	
070604	000000			HALT   	
070606	000000			HALT   	
070610	000000			HALT   	
070612	000000			HALT   	
070614	000000			HALT   	
070616	000000			HALT   	
070620	000000			HALT   	
070622	000000			HALT   	
070624	000000			HALT   	
070626	000000			HALT   	
070630	000000			HALT   	
070632	000000			HALT   	
070634	000000			HALT   	
070636	000000			HALT   	
070640	000000			HALT   	
070642	000000			HALT   	
070644	000000			HALT   	
070646	000000			HALT   	
070650	000000			HALT   	
070652	000000			HALT   	
070654	000000			HALT   	
070656	000000			HALT   	
070660	000000			HALT   	
070662	000000			HALT   	
070664	000000			HALT   	
070666	000000			HALT   	
070670	000000			HALT   	
070672	000000			HALT   	
070674	000000			HALT   	
070676	000000			HALT   	
070700	000000			HALT   	
070702	000000			HALT   	
070704	000000			HALT   	
070706	000000			HALT   	
070710	000000			HALT   	
070712	000000			HALT   	
070714	000000			HALT   	
070716	000000			HALT   	
070720	000000			HALT   	
070722	000000			HALT   	
070724	000000			HALT   	
070726	000000			HALT   	
070730	000000			HALT   	
070732	000000			HALT   	
070734	000000			HALT   	
070736	000000			HALT   	
070740	000000			HALT   	
070742	000000			HALT   	
070744	000000			HALT   	
070746	000000			HALT   	
070750	000000			HALT   	
070752	000000			HALT   	
070754	000000			HALT   	
070756	000000			HALT   	
070760	000000			HALT   	
070762	000000			HALT   	
070764	000000			HALT   	
070766	000000			HALT   	
070770	000000			HALT   	
070772	000000			HALT   	
070774	000000			HALT   	
070776	000000			HALT   	
