-							       -						  -

				       -31-
			    589.7545471.00066-01 12 01


      1	
      2	000000					.ASECT
      3						.TITLE 066101 
      4						.DSABL GBL
      5						.ENABL AMA
      6						.ENABL LC 
      7						;***********************************************************************
      8						; 
      9						;	    	   	  	     -    
     10						; 
     11						; -  	  
     12						;    160000.    
     13						;(),  	(),    (),
     14						; ,	  	 
     15						;,   ,     .
     16						; 	     ,  
     17						;       ().
     18						; 	 -  	 
     19						;  " 	   	   	"     
     20						;      . 
     21						; 
     22						;***********************************************************************
     23		130000				.=130000
     24		000100				.REPT 100 
     25						.-130000+2
     26						HALT
     27						.ENDR 
     28		130004				.=130004
     29	130004	163134				163134
     30		130200				.=130200
     31						;***********************************************************************
     32						; 
     33						;     	  
     34						; 
     35						; 
     36						;***********************************************************************
     37	
     38	130200	012764	000011	177716		MOV	#11,177716(R4)	;    
     39									;   
     40	130206	005064	177714			CLR	177714(R4)
     41	130212	000207				RTS	PC
     42	
     43						;***********************************************************************
     44						; 
     45						;   	   
     46						;     
     47						; 
     48						;***********************************************************************
     49	
     50	130214	012764	000033	177712		MOV	#33,177712(R4)		;    
     51										;  	
     52	130222	013764	177640	177710		MOV	@#177640,177710(R4)	;    
     53	130230	000241				CLC 
     54	130232	006064	177710			ROR	177710(R4)
     55	130236	042764	000377	177710		BIC	#377,177710(R4)	
     56	130244	000207				RTS	PC			;  
     57	
-							       -						  -

				       -32-
			    589.7545471.00066-01 12 01


     58						;***********************************************************************
     59						; 
     60						;     	  
     61						;  
     62						; 
     63						;***********************************************************************
     64	
     65	130246	012764	000026	177706		MOV	#26,177706(R4)	; 	 	 
     66	130254	005064	177704			CLR	177704(R4)
     67	130260	000207				RTS	PC
     68	130262	005064	177676			CLR	177676(R4)
     69	130266	000207				RTS	PC
     70	
     71						;***********************************************************************
     72						; 
     73						;       
     74						;    	 
     75						; 
     76						;***********************************************************************
     77	
     78	130270	005000				CLR	R0
     79	130272	032737	000020	173700		BIT	#20,@#173700	; ? 
     80	130300	001402				BEQ	.+6		;,  
     81	130302	012700	000032			MOV	#32,R0		;      
     82	130306	010064	177702			MOV	R0,177702(R4)	; 
     83	130312	000207				RTS	PC
     84	
     85						;**********************************************************************	
     86						; 
     87						;    
     88						; 
     89						;***********************************************************************
     90	
     91	130314	012764	000025	177636		MOV	#25,177636(R4)	;      	
     92									;   
     93	130322	005064	177634			CLR	177634(R4)	;  /  
     94	130326	012737	000340	177776		MOV	#340,@#177776	;   = 7
     95	130334	012737	130652	000004		MOV	#130652,@#4	;    000004 
     96	130342	012737	000340	000006		MOV	#340,@#6
     97	130350	010446				MOV	R4,-(SP)
     98	130352	012700	131206			MOV	#131206,R0
     99	130356	012704	173200			MOV	#173200,R4	;    
    100	130362	005710				TST	@R0 
    101	130364	001422				BEQ	130432
    102	130366	012001				MOV	(R0)+,R1
    103	130370	112164	000002			MOVB	(R1)+,2(R4)	;     
    104	130374	112164	000002			MOVB	(R1)+,2(R4)	;      
    105									; 
    106	130400	112114				MOVB	(R1)+,@R4	;      
    107									;     
    108									;   
    109	130402	105711				TSTB	@R1		;  ? 
    110	130404	001404				BEQ	130416		;,   
    111	130406	112164	000002			MOVB	(R1)+,2(R4)	;     
    112									;  	   
    113									;
    114	130412	112114				MOVB	(R1)+,@R4	;   
-							       -						  -

				       -33-
			    589.7545471.00066-01 12 01


    115	130414	000772				BR	130402
    116	130416	005724				TST	(R4)+		; 	 	
    117	130420	012714	000245			MOV	#245,@R4	;     
    118	130424	012724	000260			MOV	#260,(R4)+	;    
    119									; 
    120	130430	000754				BR	130362
    121	130432	012604				MOV	(SP)+,R4
    122	130434	005000				CLR	R0
    123	130436	010046				MOV	R0,-(SP)
    124	130440	006200				ASR	R0
    125	130442	042700	177760			BIC	#177760,R0
    126	130446	016001	130666			MOV	130666(R0),R1	;   	
    127	130452	012702	000010			MOV	#10,R2		;   	
    128	130456	012703	130674			MOV	#130674,R3	;     	
    129									; 
    130	130462	012137	002000			MOV	(R1)+,@#2000	;  
    131	130466	012377	051306			MOV	(R3)+,@2000 
    132	130472	062737	000002	002000		ADD	#2,@#2000 
    133	130500	012777	000340	051272		MOV	#340,@2000
    134	130506	077213				SOB	R2,130462 
    135	130510	016002	130666			MOV	130666(R0),R2	;   	
    136	130514	012600				MOV	(SP)+,R0
    137	130516	005001				CLR	R1
    138	130520	012760	000100	173202		MOV	#100,173202(R0)	;   	   
    139	130526	012760	000040	173202		MOV	#40,173202(R0)	; 	
    140	130534	012760	000120	173202		MOV	#120,173202(R0)	; 		    
    141	130542	012737	000000	002012		MOV	#0,@#2012 
    142	130550	005037	177776			CLR	@#177776	;   = 0
    143									;	 
    144	130554	022701	000010			CMP	#10,R1		;      
    145	130560	001403				BEQ	.+10		;  
    146	130562	005337	002012			DEC	@#2012
    147	130566	001772				BEQ	130554
    148	
    149	130570	012737	000340	177776		MOV	#340,@#177776	;   =7 
    150	130576	012760	000100	173202		MOV	#100,173202(R0)	;   	   
    151	130604	012760	000060	173202		MOV	#60,173202(R0)	; 	
    152	130612	022701	000010			CMP	#10,R1		; 8	? 
    153	130616	001403				BEQ	.+10		;,   
    154	130620	012764	000001	177634		MOV	#1,177634(R4)	;	1.       
    155	130626	022700	000010			CMP	#10,R0		; ?
    156	130632	001406				BEQ	130650		;,   
    157	130634	005764	177634			TST	177634(R4)	; ? 
    158	130640	001003				BNE	.+10		;,   
    159	130642	062700	000004			ADD	#4,R0 
    160	130646	000673				BR	130436
    161	130650	000207				RTS	PC		;  
    162	
    163						;   			000004
    164	130652	012716	130570			MOV	#130570,@SP	;    
    165	130656	012766	000340	000002		MOV	#340,2(SP)
    166	130664	000002				RTI			;  
    167	
    168	130666	130714				130714
    169	130670	130734				130734
    170	130672	130754				130754
    171	
-							       -						  -

				       -34-
			    589.7545471.00066-01 12 01


    172						;    
    173	130674	130774				130774
    174	130676	131012				131012
    175	130700	131032				131032
    176	130702	131052				131052
    177	130704	131072				131072
    178	130706	131112				131112
    179	130710	131132				131132
    180	130712	131152				131152
    181	
    182						;      
    183	130714	000234				234 
    184	130716	000200				200 
    185	130720	000204				204 
    186	130722	000210				210 
    187	130724	000214				214 
    188	130726	000220				220 
    189	130730	000224				224 
    190	130732	000230				230 
    191	
    192						;       
    193	
    194	130734	000300				300 
    195	130736	000310				310 
    196	130740	000320				320 
    197	130742	000330				330 
    198	130744	000340				340 
    199	130746	000350				350 
    200	130750	000360				360 
    201	130752	000370				370 
    202	130754	000304				304 
    203	130756	000314				314 
    204	130760	000324				324 
    205	130762	000334				334 
    206	130764	000344				344 
    207	130766	000354				354 
    208	130770	000364				364 
    209	130772	000374				374 
    210	
    211						;    
    212	130774	011237	002000			MOV	@R2,@#2000	;     
    213									; 
    214	131000	012777	131172	050772		MOV	#131172,@2000	;  	
    215	131006	005201				INC	R1		;  
    216	131010	000002				RTI 
    217	131012	016237	000002	002000		MOV	2(R2),@#2000	;     
    218									; 
    219	131020	012777	131172	050752		MOV	#131172,@2000	;  	
    220	131026	005201				INC	R1		;   
    221	131030	000002				RTI 
    222	131032	016237	000004	002000		MOV	4(R2),@#2000	;     
    223									; 
    224	131040	012777	131172	050732		MOV	#131172,@2000	;   
    225	131046	005201				INC	R1		;   
    226	131050	000002				RTI 
    227	131052	016237	000006	002000		MOV	6(R2),@#2000	;     
    228									; 
-							       -						  -

				       -35-
			    589.7545471.00066-01 12 01


    229	131060	012777	131172	050712		MOV	#131172,@2000	;  	
    230	131066	005201				INC	R1		;   
    231	131070	000002				RTI 
    232	131072	016237	000010	002000		MOV	10(R2),@#2000	;     
    233									; 
    234	131100	012777	131172	050672		MOV	#131172,@2000	;  	
    235	131106	005201				INC	R1		;   
    236	131110	000002				RTI 
    237	131112	016237	000012	002000		MOV	12(R2),@#2000	;     
    238									; 
    239	131120	012777	131172	050652		MOV	#131172,@2000	;  	
    240	131126	005201				INC	R1		;   
    241	131130	000002				RTI 
    242	131132	016237	000014	002000		MOV	14(R2),@#2000	;     
    243									; 
    244	131140	012777	131172	050632		MOV	#131172,@2000	;  	
    245	131146	005201				INC	R1		;   
    246	131150	000002				RTI 
    247	131152	016237	000016	002000		MOV	16(R2),@#2000	;     
    248									; 
    249	131160	012777	131172	050612		MOV	#131172,@2000	;  	
    250	131166	005201				INC	R1		;   
    251	131170	000002				RTI 
    252	
    253	
    254						;     
    255	
    256	131172	012764	000002	177634		MOV	#2,177634(R4)	;	2.  	 
    257									;      
    258									;   
    259									; 
    260	131200	012716	130570			MOV	#130570,@SP	;    
    261	131204	000002				RTI 
    262	
    263						; 
    264	131206	131216				131216
    265	131210	131242				131242
    266	131212	131266				131266
    267	131214	000000				000000
    268	
    269						;      	
    270	131216	140200				140200
    271	131220	160377				160377
    272	131222	160634				160634
    273	131224	161200				161200
    274	131226	161604				161604
    275	131230	162210				162210
    276	131232	162614				162614
    277	131234	163220				163220
    278	131236	163624				163624
    279	131240	000230				000230
    280	
    281	131242	140201				140201
    282	131244	160377				160377
    283	131246	160700				160700
    284	131250	161310				161310
    285	131252	161720				161720
-							       -						  -

				       -36-
			    589.7545471.00066-01 12 01


    286	131254	162330				162330
    287	131256	162740				162740
    288	131260	163350				163350
    289	131262	163760				163760
    290	131264	000370				000370
    291	
    292	131266	140201				140201
    293	131270	160377				160377
    294	131272	160704				160704
    295	131274	161314				161314
    296	131276	161724				161724
    297	131300	162334				162334
    298	131302	162744				162744
    299	131304	163354				163354
    300	131306	163764				163764
    301	131310	000374				000374
    302	
    303	
    304	
    305						;**********************************************************************	
    306						; 
    307						;      
    308						;" " 
    309						; 
    310						;***********************************************************************
    311	
    312	131312	012764	000014	177672		MOV	#14,177672(R4)	;  	
    313									;    
    314	131320	012737	000340	177776		MOV	#340,@#177776	;   = 7
    315	131326	012700	173500			MOV	#173500,R0	;   
    316	131332	012701	000001			MOV	#1,R1		;  R1    	
    317	131336	010546				MOV	R5,-(SP)
    318	131340	004737	132036			JSR	PC,@#132036	;  	  " " 
    319	131344	010564	177670			MOV	R5,177670(R4)	;      	 
    320									;0,  	 
    321	131350	012605				MOV	(SP)+,R5
    322	131352	005764	177670			TST	177670(R4)	; ? 
    323	131356	001013				BNE	131406		;,   
    324	131360	005760	000006			TST	6(R0) 
    325	131364	012760	000116	000004		MOV	#116,4(R0)	;	    8-		
    326									;	 1  
    327	131372	012760	000074	000004		MOV	#74,4(R0)	;	 	- 4800 /
    328	131400	012760	000047	000006		MOV	#47,6(R0)	;       
    329									; 
    330	131406	000207				RTS	PC		;  
    331	
    332						;***********************************************************************
    333						; 
    334						;   	     
    335						;   , 	 
    336						; 
    337						;***********************************************************************
    338	
    339	131410	005764	177702			TST	177702(R4)	; ? 
    340	131414	001403				BEQ	.+10		;,  
    341	131416	105764	177670			TSTB	177670(R4)	;       
    342									;	" "? 
-							       -						  -

				       -37-
			    589.7545471.00066-01 12 01


    343	131422	001401				BEQ	.+4		;,  
    344	131424	000207				RTS	PC
    345	131426	012737	000340	177776		MOV	#340,@#177776	;   = 7
    346	131434	012737	131600	000200		MOV	#131600,@#200	;     000200 
    347	131442	012737	000340	000202		MOV	#340,@#202	;000204	
    348	131450	012737	131564	000204		MOV	#131564,@#204 
    349	131456	012737	000340	000206		MOV	#340,@#206
    350	131464	012701	000001			MOV	#1,R1 
    351	131470	005737	173500			TST	@#173500	; 
    352	131474	104002				EMT+2			;     
    353	131476	005201				INC	R1
    354	131500	104002				EMT+2			;   	
    355	131502	012737	000375	173500		MOV	#375,@#173500	; ,  	
    356									; 
    357	131510	005000				CLR	R0
    358	131512	005001				CLR	R1
    359	131514	005037	002000			CLR	@#2000
    360	131520	012737	177777	002002		MOV	#-1,@#2002
    361	131526	005037	177776			CLR	@#177776	;   = 0
    362									;	 
    363	131532	077001				SOB	R0,.+0		;      
    364	131534	012701	000001			MOV	#1,R1 
    365	131540	104003				EMT+3			;     
    366	131542	005201				INC	R1
    367	131544	104003				EMT+3			;   	
    368	131546	013764	002000	177722		MOV	@#2000,177722(R4) ;    
    369	131554	013764	002002	177720		MOV	@#2002,177720(R4) ;	 
    370	131562	000207				RTS	PC		;  
    371	
    372						;    	
    373						;(		 - 000204)
    374	
    375	131564	010146				MOV	R1,-(SP)
    376	131566	012701	000002			MOV	#2,R1 
    377	131572	104003				EMT+3			;   	
    378	131574	012601				MOV	(SP)+,R1
    379	131576	000002				RTI			;  
    380	
    381						;      
    382						;(		 - 000200)
    383	
    384	131600	113761	173500	002000		MOVB	@#173500,2000(R1) ;     
    385	131606	005201				INC	R1		;  
    386	131610	022701	000004			CMP	#4,R1		;4 	?
    387	131614	001005				BNE	131630		;,  
    388	131616	010146				MOV	R1,-(SP)
    389	131620	012701	000001			MOV	#1,R1 
    390	131624	104003				EMT+3			;     
    391	131626	012601				MOV	(SP)+,R1
    392	131630	000002				RTI			;  
    393	
    394						;***********************************************************************
    395						; 
    396						;    
    397						;  " "
    398						; 
    399						;***********************************************************************
-							       -						  -

				       -38-
			    589.7545471.00066-01 12 01


    400	
    401	131632	012737	000340	177776		MOV	#340,@#177776	;   = 7
    402	131640	012764	000017	177666		MOV	#17,177666(R4)	;      
    403									; 	 
    404	131646	012700	173400			MOV	#173400,R0	;    
    405	131652	012701	000005			MOV	#5,R1		;  R1    
    406									; 
    407	131656	042737	000200	173700		BIC	#200,@#173700	;  
    408	131664	010546				MOV	R5,-(SP)
    409	131666	004737	132036			JSR	PC,@#132036	;     
    410									;" " 
    411	131672	010564	177664			MOV	R5,177664(R4)	;      	 
    412									;0,  	 
    413	131676	012605				MOV	(SP)+,R5
    414	131700	005764	177664			TST	177664(R4)	; ? 
    415	131704	001016				BNE	131742		;,   
    416	131706	005760	000006			TST	6(R0) 
    417	131712	012760	000116	000004		MOV	#116,4(R0)	;	    8-		
    418									; 1  
    419	131720	012760	000274	000004		MOV	#274,4(R0)	;	 	- 4800 /
    420	131726	012760	000047	000006		MOV	#47,6(R0)	;      	
    421	131734	052737	000200	173700		BIS	#200,@#173700	;  
    422	131742	000207				RTS	PC
    423	
    424						;***********************************************************************
    425						; 
    426						;      
    427						;      
    428						;    9600 / 
    429						; 
    430						;***********************************************************************
    431	
    432	131744	012737	132030	000004		MOV	#132030,@#4	;    000004 
    433	131752	005737	177564			TST	@#177564	;  ?
    434									;(,    ) 
    435	131756	001423				BEQ	132026		;,  
    436	131760	012700	173400			MOV	#173400,R0	;    
    437	131764	012764	000027	177662		MOV	#27,177662(R4)	;  	 
    438									;  	 
    439	131772	005760	000006			TST	6(R0)		;      
    440	131776	012760	000116	000004		MOV	#116,4(R0)	;: 	   8-
    441									;  1  
    442	132004	012760	000276	000004		MOV	#276,4(R0)	;	 	- 9600 /
    443	132012	012760	000047	000006		MOV	#47,6(R0)	;      	
    444	132020	052737	000200	173700		BIS	#200,@#173700	;  
    445	132026	000207				RTS	PC
    446	
    447						;   			000004
    448	132030	012716	132026			MOV	#132026,@SP	;    
    449	132034	000002				RTI			;  
    450	
    451	
    452						;***********************************************************************
    453						; 
    454						;   000-377 	  
    455						;   " " 
    456						; 
-							       -						  -

				       -39-
			    589.7545471.00066-01 12 01


    457						;***********************************************************************
    458	
    459	132036	012737	132444	000004		MOV	#132444,@#4	;    000004 
    460	132044	012737	000340	000006		MOV	#340,@#6
    461	132052	010102				MOV	R1,R2		;  	
    462									;1 -   
    463									;5 -    
    464	132054	005710				TST	@R0		; 
    465	132056	072227	000002			ASH	#2,R2 
    466	132062	012737	000000	002004		MOV	#0,@#2004 
    467	132070	012762	132332	000174		MOV	#132332,174(R2)	;     
    468	132076	012762	000340	000176		MOV	#340,176(R2)	;000200	 000204  	, 
    469	132104	012762	132300	000200		MOV	#132300,200(R2)	;000220	 000224  	 
    470	132112	012762	000340	000202		MOV	#340,202(R2)	; 
    471	132120	005060	000006			CLR	6(R0) 
    472	132124	005760	000006			TST	6(R0)		;   : 
    473	132130	012760	000116	000004		MOV	#116,4(R0)	;	   8-		 
    474									;1  
    475	132136	012760	000057	000004		MOV	#57,4(R0)	;	 	- 19200	/ 
    476	132144	012760	000243	000006		MOV	#243,6(R0)	;	 "	"
    477	132152	005037	002002			CLR	@#2002
    478	132156	005037	002000			CLR	@#2000
    479	132162	011005				MOV	@R0,R5		; 
    480	132164	005005				CLR	R5
    481	132166	104002				EMT+2			;     / 
    482									; 	
    483	132170	005201				INC	R1
    484	132172	104002				EMT+2			;   	 /
    485									; 	
    486	132174	104004				EMT+4			;	   	
    487									;/	
    488	132176	005301				DEC	R1
    489	132200	005037	177776			CLR	@#177776	;   = 0
    490									;	 
    491	132204	022737	000400	002002		CMP	#400,@#2002	;      
    492	132212	001405				BEQ	132226		;  
    493	132214	005705				TST	R5		; ? 
    494	132216	001003				BNE	.+10		;,   
    495	132220	005337	002004			DEC	@#2004
    496	132224	001367				BNE	132204
    497	132226	012737	000340	177776		MOV	#340,@#177776	;   = 7
    498	132234	005060	000006			CLR	6(R0) 
    499	132240	104003				EMT+3			;     / 
    500									; 	
    501	132242	005201				INC	R1
    502	132244	104003				EMT+3			;   	 /
    503									; 	
    504	132246	005301				DEC	R1
    505	132250	005737	002004			TST	@#2004		;  =0? 
    506	132254	001010				BNE	132276		;,  
    507	132256	022701	000001			CMP	#1,R1		;  ?
    508	132262	001003				BNE	.+10		;,  
    509									;   
    510	132264	012705	000004			MOV	#4,R5		;	4.    	 
    511									;	 	  
    512	132270	000402				BR	.+6 
    513	132272	012705	000005			MOV	#5,R5		;	5.    	 
-							       -						  -

				       -40-
			    589.7545471.00066-01 12 01


    514									; 	 	  
    515									; 	
    516	132276	000207				RTS	PC
    517	
    518						;    	 /
    519						; 	
    520						;(   000204 -    ,	 000224	-  
    521						; 	) 
    522	
    523	132300	022737	000400	002000		CMP	#400,@#2000	;  ? 
    524	132306	001004				BNE	132320		;,  
    525	132310	005201				INC	R1
    526	132312	104003				EMT+3			;   	
    527	132314	005301				DEC	R1
    528	132316	000404				BR	132330
    529	132320	013710	002000			MOV	@#2000,@R0	;    	
    530	132324	005237	002000			INC	@#2000		;  	
    531	132330	000002				RTI			;  
    532	
    533						;      / 
    534						; 	
    535						;(   000200 - 	 ,	 000220	-  
    536						; 	
    537	
    538	132332	016003	000002			MOV	2(R0),R3	;  
    539	132336	032703	000060			BIT	#60,R3		;      ?
    540	132342	001003				BNE	.+10		;,   
    541	132344	032703	000002			BIT	#2,R3		;  ?
    542	132350	001011				BNE	132374		;,  	
    543	132352	022701	000001			CMP	#1,R1		;  ?
    544	132356	001003				BNE	.+10		;,    	
    545	132360	012705	000006			MOV	#6,R5		;	6.  ,	   
    546									;     	
    547	132364	000417				BR	132424
    548	132366	012705	000007			MOV	#7,R5		;	7.  ,	   
    549									;     
    550									; 
    551	132372	000414				BR	132424
    552	132374	011003				MOV	@R0,R3		;  
    553	132376	120337	002002			CMPB	R3,@#2002	;	?
    554	132402	001415				BEQ	132436		;,   
    555	132404	022701	000001			CMP	#1,R1		;  ?
    556	132410	001003				BNE	.+10		;,    	
    557	132412	012705	000010			MOV	#10,R5		;	10.   	 
    558									;	  	
    559	132416	000402				BR	.+6 
    560	132420	012705	000011			MOV	#11,R5		;	11.   	 
    561									;	  	 
    562	132424	104003				EMT+3			;     
    563	132426	005201				INC	R1
    564	132430	104003				EMT+3			;   	
    565	132432	005301				DEC	R1
    566	132434	000402				BR	.+6 
    567	132436	005237	002002			INC	@#2002		;    
    568	132442	000002				RTI			;  
    569	
    570						; 	    000004 
-							       -						  -

				       -41-
			    589.7545471.00066-01 12 01


    571	
    572	132444	012716	132204			MOV	#132204,@SP	;    
    573	132450	022701	000001			CMP	#1,R1		;  ?
    574	132454	001003				BNE	.+10		;,    	
    575	132456	012705	000026			MOV	#26,R5		;	26. 
    576									;       
    577	132462	000402				BR	.+6 
    578	132464	012705	000003			MOV	#3,R5		;	3.  	   
    579									; 	
    580	132470	000002				RTI			;  
    581	
    582						;***********************************************************************
    583						; 
    584						;    
    585						;N -  , N -   
    586						;N -  , N -   
    587						; 
    588						;***********************************************************************
    589	
    590	132472	012737	000340	177776		MOV	#340,@#177776	;   =7 
    591	132500	012764	000021	177656		MOV	#21,177656(R4)	;  	 
    592									;    
    593	132506	012737	133066	000004		MOV	#133066,@#4	;    000004 
    594	132514	012737	000340	000006		MOV	#340,@#6
    595	132522	012737	000377	173314		MOV	#377,@#173314	;	 	- 19200	/ 
    596	132530	012737	000340	173310		MOV	#340,@#173310	;    	
    597									; 
    598	132536	012737	133106	000210		MOV	#133106,@#210	;  	 
    599	132544	012737	000340	000212		MOV	#340,@#212	; 
    600	132552	005037	002000			CLR	@#2000
    601	132556	005037	002002			CLR	@#2002
    602	132562	010546				MOV	R5,-(SP)
    603	132564	012737	000000	002004		MOV	#0,@#2004 
    604	132572	012737	000030	173302		MOV	#30,@#173302	; 	  0, 	
    605	132600	012737	000030	173306		MOV	#30,@#173306	;     
    606									;     
    607	132606	012737	000300	173302		MOV	#300,@#173302 
    608	132614	012737	000004	173302		MOV	#4,@#173302	;  =4   
    609	132622	012737	000104	173302		MOV	#104,@#173302	; ,  
    610									;  1   
    611	132630	012737	000003	173302		MOV	#3,@#173302	;  =3   
    612	132636	012737	000341	173302		MOV	#341,@#173302	;  8- 
    613	132644	012737	000005	173302		MOV	#5,@#173302	;  =5   
    614	132652	012737	000352	173302		MOV	#352,@#173302	;  8-  
    615	132660	012737	000002	173302		MOV	#2,@#173302	;  =2   
    616	132666	012737	000000	173302		MOV	#0,@#173302	;       , 
    617									;  
    618	132674	012737	000020	173302		MOV	#20,@#173302	;    0,
    619									;  
    620	132702	012737	000002	173306		MOV	#2,@#173306	;  =2   
    621	132710	012737	000000	173306		MOV	#0,@#173306 
    622	132716	012737	000001	173306		MOV	#1,@#173306	;  =1   
    623	132724	012737	000004	173306		MOV	#4,@#173306	;  02 	1 
    624	132732	012737	000001	173302		MOV	#1,@#173302	;  =1   
    625	132740	012737	000022	173302		MOV	#22,@#173302	;      
    626									; (    
    627	132746	012701	000003			MOV	#3,R1		;   )
-							       -						  -

				       -42-
			    589.7545471.00066-01 12 01


    628	132752	104002				EMT+2			;     
    629	132754	005037	173300			CLR	@#173300	;     	
    630	132760	005237	002000			INC	@#2000
    631	132764	005005				CLR	R5
    632	132766	005037	177776			CLR	@#177776	;  = 0 
    633									;	    
    634									;000210	
    635	132772	022737	000400	002002		CMP	#400,@#2002	;  ? 
    636	133000	001405				BEQ	133014		;,   
    637	133002	005705				TST	R5		; ? 
    638	133004	001003				BNE	.+10		;,   
    639	133006	005337	002004			DEC	@#2004		;  	  
    640	133012	001367				BNE	132772		;  
    641	133014	005037	173310			CLR	@#173310	;    
    642									; 
    643	133020	012737	000340	177776		MOV	#340,@#177776	;  =7
    644	133026	104003				EMT+3			;    
    645	133030	005737	002004			TST	@#2004		; =0?
    646	133034	001002				BNE	.+6		;,  
    647	133036	012705	000012			MOV	#12,R5		;	12.     
    648									;    
    649	133042	012737	000030	173302		MOV	#30,@#173302	;     
    650	133050	012737	000030	173306		MOV	#30,@#173306	;    
    651	133056	010564	177654			MOV	R5,177654(R4)	;      	 0,
    652									;  
    653	133062	012605				MOV	(SP)+,R5
    654	133064	000207				RTS	PC
    655	
    656						;   			000004
    657	
    658	133066	012705	000013			MOV	#13,R5		;	13. 	     
    659									;  
    660	133072	012716	132772			MOV	#132772,@SP	;    
    661	133076	012766	000340	000002		MOV	#340,2(SP)
    662	133104	000002				RTI			;  
    663	
    664						;   			000210
    665	
    666	133106	000240				NOP 
    667	133110	000240				NOP 
    668	133112	012737	000002	173306		MOV	#2,@#173306	;  =2   
    669	133120	013700	173306			MOV	@#173306,R0	;  2	
    670	133124	006200				ASR	R0
    671	133126	042700	177761			BIC	#177761,R0
    672	133132	000170	133136			JMP	@133136(R0)	;  
    673	
    674						;	 
    675						; 	  	  
    676						; 2	 : 
    677	133136	133272				133272			; 2=0
    678	133140	133272				133272			; 2=4
    679	133142	133272				133272			; 2=10 
    680	133144	133272				133272			; 2=14 
    681	133146	133156				133156			; 2=20 
    682	133150	133212				133212			; 2=24 
    683	133152	133220				133220			; 2=30 
    684	133154	133244				133244			; 2=34 
-							       -						  -

				       -43-
			    589.7545471.00066-01 12 01


    685	
    686						;   	  
    687	133156	032737	000400	002000		BIT	#400,@#2000	;  ? 
    688	133164	001404				BEQ	133176		;,  
    689	133166	012737	000050	173302		MOV	#50,@#173302	;  
    690	133174	000440				BR	133276
    691	133176	113737	002000	173300		MOVB	@#2000,@#173300	;   
    692	133204	005237	002000			INC	@#2000		;  	
    693	133210	000432				BR	133276
    694	
    695	
    696	133212	012705	000014			MOV	#14,R5		;	14.  2=24 
    697	133216	000427				BR	133276
    698	
    699						;  	   
    700	133220	013700	173300			MOV	@#173300,R0	;    	
    701	133224	123700	002002			CMPB	@#2002,R0	;  =?
    702	133230	001402				BEQ	.+6		;,   
    703	133232	012705	000015			MOV	#15,R5		;	15.  	
    704	133236	005237	002002			INC	@#2002		;    
    705	133242	000415				BR	133276
    706	
    707	
    708	133244	012705	000016			MOV	#16,R5		;	16.  	 
    709									; 	
    710	133250	012737	000001	173302		MOV	#1,@#173302	;  =1 
    711	133256	013701	173302			MOV	@#173302,R1	;  	
    712	133262	012737	000060	173302		MOV	#60,@#173302	;  
    713	133270	000402				BR	.+6 
    714	
    715	
    716	133272	012705	000017			MOV	#17,R5		;	17. 2=0, 4,	10  14 
    717	133276	012737	000070	173302		MOV	#70,@#173302	;    
    718									;
    719	133304	000002				RTI			;  
    720	
    721						;***********************************************************************
    722						; 
    723						;  	  724					      ;	
    725						;***********************************************************************
    726	
    727	133306	012764	000023	177652		MOV	#23,177652(R4)	;  		  
    728									;  
    729	133314	012737	133606	000004		MOV	#133606,@#4	;    000004 
    730	133322	012737	000340	000006		MOV	#340,@#6
    731	133330	105737	173032			TSTB	@#173032	;    	
    732									;  ?
    733	133334	100412				BMI	133362		;,   
    734	133336	012764	000400	177650		MOV	#400,177650(R4)	
    735	133344	012764	000400	177644		MOV	#400,177644(R4)	
    736	133352	052737	000200	173026		BIS	#200,@#173026	;  
    737	133360	000404				BR	133372
    738	133362	005064	177644			CLR	177644(R4)
    739	133366	005064	177650			CLR	177650(R4)
    740	133372	012737	000340	177776		MOV	#340,@#177776	;  =7
    741	133400	012737	133510	000230		MOV	#133510,@#230	;  	 
-							       -						  -

				       -44-
			    589.7545471.00066-01 12 01


    742	133406	012737	000340	000232		MOV	#340,@#232
    743	133414	012737	000047	173024		MOV	#47,@#173024	;		 - 512  
    744	133422	012701	000007			MOV	#7,R1 
    745	133426	104002				EMT+2			;   
    746	133430	005737	173030			TST	@#173030	; 	  
    747	133434	052737	000100	173026		BIS	#100,@#173026	;    
    748	133442	005037	177776			CLR	@#177776	;   =0 
    749									;	    
    750	133446	005000				CLR	R0
    751	133450	005002				CLR	R2
    752	133452	077001				SOB	R0,.+0
    753	133454	012764	000020	177650		MOV	#20,177650(R4)	;	20. 	   
    754	133462	012737	000340	177776		MOV	#340,@#177776	;   =7 
    755	133470	104003				EMT+3			;   
    756	133472	042737	000017	173024		BIC	#17,@#173024
    757	133500	042737	000100	173026		BIC	#100,@#173026	;    
    758	133506	000207				RTS	PC		;   		
    759	
    760						;     
    761						;  
    762	133510	005737	173030			TST	@#173030	; 	  
    763	133514	005702				TST	R2		;	? 
    764	133516	001406				BEQ	133534		;,   
    765	133520	012716	133540			MOV	#133540,@SP	;    
    766	133524	005000				CLR	R0		;    SOB
    767	133526	012737	133544	000230		MOV	#133544,@#230	;    000230 
    768	133534	005202				INC	R2		;   
    769	133536	000002				RTI			;  
    770	
    771	133540	077001				SOB	R0,.+0		;    SOB
    772									; 2-  3- 	
    773									;(    	)
    774	133542	000744				BR	133454		;  ,    
    775	
    776						;      
    777	133544	005737	173030			TST	@#173030	; 	  
    778	133550	062706	000004			ADD	#4,SP 
    779	133554	022700	176500			CMP	#176500,R0	; SOB  	300 ?
    780	133560	002006				BGE	133576		;  ,  
    781	133562	022700	176700			CMP	#176700,R0	; SOB  	100 ?
    782	133566	003403				BLE	.+10		;  ,  
    783	133570	105064	177650			CLRB	177650(R4)	;      	
    784									;	
    785	133574	000732				BR	133462
    786	133576	012764	000021	177650		MOV	#21,177650(R4)	;	21.     
    787									;  
    788	133604	000726				BR	133462
    789	
    790						;   			000004
    791	133606	012764	000025	177650		MOV	#25,177650(R4)	;	25. 	     
    792									;
    793	133614	012626				MOV	(SP)+,(SP)+ 
    794	133616	000207				RTS	PC
    795	
    796						;***********************************************************************
    797						; 
    798						;   
-							       -						  -

				       -45-
			    589.7545471.00066-01 12 01


    799						; 
    800						;***********************************************************************
    801	
    802	133620	012764	000024	177646		MOV	#24,177646(R4)	;     
    803									;  
    804	133626	012737	133704	000004		MOV	#133704,@#4	;    000004 
    805	133634	012737	000340	000006		MOV	#340,@#6
    806	133642	105064	177644			CLRB	177644(R4)
    807	133646	112737	000125	173050		MOVB	#125,@#173050	;  	  
    808	133654	105137	173050			COMB	@#173050	;  	
    809	133660	105137	173050			COMB	@#173050	;  	
    810	133664	122737	000125	173050		CMPB	#125,@#173050	;	?
    811	133672	001403				BEQ	.+10		;,   
    812	133674	012764	000023	177644		MOV	#23,177644(R4)	;	23.    	
    813	133702	000207				RTS	PC
    814	
    815						;       000004	
    816	133704	012764	000022	177644		MOV	#22,177644(R4)	;	22. 	   173050	
    817	133712	012626				MOV	(SP)+,(SP)+ 
    818	133714	000207				RTS	PC
    819	
    820	
    821						;***********************************************************************
    822						; 
    823						;      (	) 
    824						; 
    825						;  	-   
    826						;  	-    	
    827						;***********************************************************************
    828	
    829		000000				AC0=R0
    830		000001				AC1=R1
    831		000002				AC2=R2
    832		000003				AC3=R3
    833		000004				AC4=R4
    834		000005				AC5=R5
    835		133716				.=133716
    836	133716	012737	134752	000010		MV	#134752,@#10	; 	  - 	
    837	133724	012737	000340	000012		MOV	#340,@#12	;   
    838	133732	170537	134762			TSTF	@#134762
    839	133736	012764	000012	177642		MOV	#12,177642(R4)	;       
    840									;   	 
    841	133744	010446				MOV	R4,-(SP)
    842	133746	005037	002036			CLR	@#2036
    843	133752	012737	134744	000244		MOV	#134744,@#244 
    844	133760	012737	000005	000246		MOV	#5,@#246
    845	133766	170127	007400			LDFPS	#7400		; #7400	 
    846									; :
    847									;-   
    848									;-  
    849									;-  
    850									;-     
    851	133772	170011				SETD			;     
    852	133774	177027	077777			LDCID	#77777,AC0	;      . 
    853									;   0
    854	134000	177127	002525			LDCID	#2525,AC1 
    855	134004	174401				DIVD	AC1,AC0	
-							       -						  -

				       -46-
			    589.7545471.00066-01 12 01


    856	134006	171001				MULD	AC1,AC0	
    857	134010	172001				ADDD	AC1,AC0	
    858	134012	173001				SUBD	AC1,AC0	
    859	134014	175437	002014			STCDI	AC0,@#2014	;       
    860	134020	170200				STFPS	R0		;  R0   
    861	134022	022737	077777	002014		CMP	#77777,@#2014	;	?
    862	134030	001403				BEQ	.+10		;,   
    863	134032	004737	134730			JSR	PC,@#134730	;	27.     
    864	134036	000027				27
    865	
    866	134040	172437				LDD	@(PC)+,AC0	;      0
    867	134042	134772				134772
    868	134044	012702	002014			MOV	#2014,R2
    869	134050	174022				STD	AC0,(R2)+	;       	0 
    870	134052	172537				LDD	@(PC)+,AC1
    871	134054	134772				134772
    872	134056	174122				STD	AC1,(R2)+ 
    873	134060	172737				LDD	@(PC)+,AC3
    874	134062	002024				2024
    875	134064	170200				STFPS	R0		;  R0   
    876	134066	173737				CMPD	@(PC)+,AC3	;	?
    877	134070	002014				2014
    878	134072	170000				CFCC			;     	
    879	134074	001403				BEQ	.+10		;,   
    880	134076	004737	134730			JSR	PC,@#134730	;	30.    STD 
    881	134102	000030				30
    882	
    883	134104	172537				LDD	@(PC)+,AC1	; 0  1
    884	134106	134774				134774
    885	134110	174142				STD	AC1,-(R2)	;       1
    886	134112	172012				ADDD	@R2,AC0	
    887	134114	173042				SUBD	-(R2),AC0 
    888	134116	173001				SUBD	AC1,AC0	
    889	134120	175437	002014			STCDI	AC0,@#2014	;   .   
									;   
    890	134124	022737	000000	002014		CMP	#0,@#2014	;	?
    891	134132	170200				STFPS	R0		;  R0   
    892	134134	001403				BEQ	.+10		;,   
    893	134136	004737	134730			JSR	PC,@#134730	;	31.    STCDI 
    894	134142	000031				31
    895	
    896	134144	170001				SETF			;     
    897	134146	177027	000525			LDCIF	#525,AC0	;      . 
    898									;   0
    899	134152	177127	000252			LDCIF	#252,AC1
    900	134156	174104				STD	AC1,AC4		;    	4 
    901	134160	172104				ADDF	AC4,AC1	
    902	134162	172701				LDF	AC1,AC3	
    903	134164	173003				SUBF	AC3,AC0	
    904	134166	175037	002014			STEXP	AC0,@#2014	; EXP  	2014
    905	134172	170200				STFPS	R0		;  R0   
    906	134174	022737	000001	002014		CMP	#1,@#2014	;	?
    907	134202	001403				BEQ	.+10		;,   
    908	134204	004737	134730			JSR	PC,@#134730	;	32.    STEXP  
    909	134210	000032				32			;  ADDF, LDF  SUBF 
    910	
    911	134212	177027	000021			LDCIF	#21,AC0		;      . 
    912									;   0
-							       -						  -

				       -47-
			    589.7545471.00066-01 12 01


    913	134216	171000				MULF	AC0,AC0	
    914	134220	174427				DIVF	(PC)+,AC0 
    915	134222	040400				40400 
    916	134224	171427				MODF	(PC)+,AC0	;    
    917	134226	040200				40200 
    918	134230	170200				STFPS	R0		;  R0   
    919	134232	175537	002014			STCFI	AC1,@#2014	;      
    920									;    2014 
    921	134236	022737	000220	002014		CMP	#220,@#2014	;	?
    922	134244	001403				BEQ	.+10		;,   
    923	134246	004737	134730			JSR	PC,@#134730	;	33.    MODF, 
    924	134252	000033				33			;   > 1	
    925	
    926	134254	171427				MODF	(PC)+,AC0	;    
    927	134256	041040				41040 
    928	134260	175537	002014			STCFI	AC1,@#2014	;      
    929									;    2014 
    930	134264	022737	000005	002014		CMP	#5,@#2014	;	?
    931	134272	001403				BEQ	.+10		;,   
    932	134274	004737	134730			JSR	PC,@#134730	;	34.    MODF, 
    933	134300	000034				34			;  . > 1, 0 <  . < 1
    934	
    935	134302	012704	007400			MOV	#7400,R4	;  . 
    936	134306	170104				LDFPS	R4		; 
    937	134310	172537				LDF	@(PC)+,AC1	;   1
    938	134312	134756				134756
    939	134314	170601				ABSF	AC1		;    
    940	134316	174137	002000			STF	AC1,@#2000	;  002000
    941	134322	005737	002000			TST	@#2000
    942	134326	003003				BGT	.+10
    943	134330	004737	134730			JSR	PC,@#134730	;	35.    ABSF
    944	134334	000035				35
    945	
    946	134336	172537				LDF	@(PC)+,AC1	;   1
    947	134340	002000				2000
    948	134342	170701				NEGF	AC1		;  
    949	134344	174137	002000			STF	AC1,@#2000
    950	134350	005737	002000			TST	@#2000
    951	134354	002403				BLT	.+10
    952	134356	004737	134730			JSR	PC,@#134730	;	36.    NEGF
    953	134362	000036				36
    954	
    955	134364	012704	007600			MOV	#7600,R4	;  . 
    956	134370	170104				LDFPS	R4		; 
    957	134372	172737				LDF	@(PC)+,AC3	;   3
    958	134374	134762				134762
    959	134376	170603				ABSD	AC3		;    
    960	134400	174337	002004			STD	AC3,@#2004	;  002004
    961	134404	005737	002004			TST	@#2004
    962	134410	003003				BGT	.+10
    963	134412	004737	134730			JSR	PC,@#134730	;	37.    ABSD
    964	134416	000037				37
    965	
    966	134420	172737				LDD	@(PC)+,AC3	;   3
    967	134422	002004				2004
    968	134424	170703				NEGD	AC3		;  
    969	134426	174337	002004			STD	AC3,@#2004	;  002004
-							       -						  -

				       -48-
			    589.7545471.00066-01 12 01


    970	134432	005737	002004			TST	@#2004
    971	134436	002403				BLT	.+10
    972	134440	004737	134730			JSR	PC,@#134730	;	40.    NEGD
    973	134444	000040				40
    974	
    975	134446	170001				SETF			;  . 
    976	134450	170204				STFPS	R4		;  R4   
    977	134452	032704	000200			BIT	#200,R4		; ?
    978	134456	001403				BEQ	.+10		;,   
    979	134460	004737	134730			JSR	PC,@#134730	;	41.    SETF
    980	134464	000041				41
    981	
    982	134466	170011				SETD			;  . 
    983	134470	170012				SETL			;    	
    984	134472	170204				STFPS	R4		;  R4   
    985	134474	032704	000100			BIT	#100,R4		; 	 ?
    986	134500	001003				BNE	.+10		;,   
    987	134502	004737	134730			JSR	PC,@#134730	;	42.    SETL
    988	134506	000042				42
    989	
    990	134510	170002				SETI			;     
    991	134512	170204				STFPS	R4		;  R4   
    992	134514	032704	000100			BIT	#100,R4		;   ? 
    993	134520	001403				BEQ	.+10		;,   
    994	134522	004737	134730			JSR	PC,@#134730	;	43.    SETI
    995	134526	000043				43
    996	
    997	134530	170000				CFCC			;     	
    998	134532	170537				TSTD	@(PC)+
    999	134534	134762				134762
   1000	134536	002403				BLT	.+10
   1001	134540	004737	134730			JSR	PC,@#134730	;	44.    CFCC
   1002	134544	000044				44
   1003	
   1004	134546	177737				LDCDF	@(PC)+,AC3
   1005	134550	134762				134762
   1006	134552	005037	002004			CLR	@#2004
   1007	134556	005037	002006			CLR	@#2006
   1008	134562	005037	002010			CLR	@#2010
   1009	134566	005037	002012			CLR	@#2012
   1010	134572	176337	002004			STCDF	AC3,@#2004
   1011	134576	023737	002004	134762		CMP	@#2004,@#134762	
   1012	134604	001012				BNE	1$
   1013	134606	023737	002006	134764		CMP	@#2006,@#134764	
   1014	134614	001006				BNE	1$
   1015	134616	005737	002010			TST	@#2010
   1016	134622	001003				BNE	1$
   1017	134624	005737	002012			TST	@#2012
   1018	134630	001403				BEQ	.+10
   1019	134632	004737	134730		1$:	JSR	PC,@#134730	;	45.    LDCDF  STCDF
   1020	134636	000045				45
   1021	
   1022	134640	170437	002004			CLRD	@#2004
   1023	134644	005737	002004			TST	@#2004
   1024	134650	001003				BNE	.+10
   1025	134652	005737	002006			TST	@#2006
   1026	134656	001403				BEQ	.+10
-							       -						  -

				       -49-
			    589.7545471.00066-01 12 01


   1027	134660	004737	134730			JSR	PC,@#134730	;	46.    CLRD
   1028	134664	000046				46
   1029	
   1030	134666	005737	002036			TST	@#2036		; 	? 
   1031	134672	001403				BEQ	.+10		;,  
   1032	134674	004737	134730			JSR	PC,@#134730	;	47.    	
   1033	134700	000047				47			;    000244
   1034	
   1035	134702	170010				170010			;  170010 
   1036									;	    
   1037									;000244
   1038	134704	000240				NOP 
   1039	134706	005737	002036			TST	@#2036		;    ? 
   1040	134712	001003				BNE	.+10		;,   
   1041	134714	004737	134730			JSR	PC,@#134730	;	50. 	   
   1042	134720	000050				50			;    170010 
   1043	
   1044	134722	004737	134730			JSR	PC,@#134730	;      
   1045	134726	000000				HALT			;     
   1046	
   1047	
   1048						;     
   1049	
   1050	134730	016604	000002			MOV	2(SP),R4	; . .   
   1051	134734	013664	177640			MOV	@(SP)+,177640(R4);  	   
   1052	134740	005716				TST	(SP)		; 
   1053	134742	000207				RTS	PC		;   	  
   1054	
   1055	
   1056	
   1057						;      000244
   1058	
   1059	134744	005237	002036			INC	@#2036		;   
   1060	134750	000002				RTI 
   1061	
   1062	
   1063						;      000004
   1064						;     
   1065	
   1066	134752	022626				CMP	(6)+,(6)+	; 
   1067	134754	000207				RTS	PC		;  
   1068	
   1069	
   1070						;	   
   1071	134756	141510				141510
   1072	134760	000000				000000
   1073	134762	140507				140507
   1074	134764	157473				157473
   1075	134766	062132				062132
   1076	134770	016254				016254
   1077	134772	177777				177777
   1078	134774	000000				000000
   1079	134776	177777				177777
   1080	135000	000000				000000
   1081	135002	177777				177777
   1082	135004	000000				000000
   1083	135006	000000				000000
-							       -						  -

				       -50-
			    589.7545471.00066-01 12 01


   1084	135010	177777				177777
   1085	135012	000001				000001
   1086	135014	000000				000000
   1087	135016	177777				177777
   1088	135020	134774				134774
   1089	135022	135002				135002
   1090	135024	135142				135142
   1091	135026	077777				077777
   1092	135030	000000				000000
   1093	135032	177777				177777
   1094	135034	000000				000000
   1095	135036	100000				100000
   1096	135040	000000				000000
   1097	135042	000000				000000
   1098	135044	000000				000000
   1099	135046	002014				002014
   1100	135050	040252				040252
   1101	135052	125252				125252
   1102	135054	125252				125252
   1103	135056	125252				125252
   1104	135060	040325				040325
   1105	135062	052525				052525
   1106	135064	052525				052525
   1107	135066	052525				052525
   1108	135070	040325				040325
   1109	135072	052525				052525
   1110	135074	052525				052525
   1111	135076	052526				052526
   1112	135100	040000				040000
   1113	135102	000000				000000
   1114	135104	000000				000000
   1115	135106	000000				000000
   1116	135110	037400				037400
   1117	135112	000000				000000
   1118	135114	000000				000000
   1119	135116	000000				000000
   1120	135120	040600				040600
   1121	135122	000000				000000
   1122	135124	000000				000000
   1123	135126	000000				000000
   1124	135130	020000				020000
   1125	135132	000000				000000
   1126	135134	000000				000000
   1127	135136	000000				000000
   1128	135140	000000				000000
   1129	135142	177777				177777
   1130	135144	000000				000000
   1131	135146	000000				000000
   1132	135150	000000				000000
   1133	135152	000100				000100
   1134	135154	000000				000000
   1135	135156	000000				000000
   1136	135160	000000				000000
   1137	135162	177777				177777
   1138	135164	177777				177777
   1139	135166	177777				177777
   1140	135170	000000				000000
-							       -						  -

				       -51-
			    589.7545471.00066-01 12 01


   1141	135172	054321				054321
   1142	135174	135170				135170
   1143	135176	043661				043661
   1144	135200	121000				121000
   1145	135202	000000				000000
   1146	135204	000000				000000
   1147	135206	177252				177252
   1148	135210	177125				177125
   1149	135212	177063				177063
   1150	135214	177017				177017
   1151	
   1152	
   1153						;**********************************************************************	
   1154						; 
   1155						;   	
   1156						; 
   1157						;**********************************************************************	
   1158	
   1159	135216	012737	000340	177776		MOV	#340,@#177776	;   =7 
   1160	135224	010002				MOV	R0,R2 
   1161	135226	072227	000007			ASH	#7,R2 
   1162	135232	062702	174000			ADD	#174000,R2	; 	 
   1163	135236	010003				MOV	R0,R3 
   1164	135240	072327	000002			ASH	#2,R3 
   1165	135244	005403				NEG	R3
   1166	135246	062703	117756			ADD	#117756,R3	; 	    ,
   1167									;   
   1168	135252	010337	002002			MOV	R3,@#2002 
   1169	135256	010446				MOV	R4,-(SP)
   1170	135260	010237	002000			MOV	R2,@#2000	;   	
   1171	135264	013702	002000			MOV	@#2000,R2 
   1172	135270	005037	177650			CLR	@#177650
   1173	135274	000137	167612			JMP	@#167612	;  - 
   1174									;    
   1175	135300	072127	000003			ASH	#3,R1 
   1176	135304	012761	135566	000300		MOV	#135566,300(R1)	;  	  
   1177	135312	012761	000340	000302		MOV	#340,302(R1)	; 
   1178	135320	010001				MOV	R0,R1 
   1179	135322	052701	000400			BIS	#400,R1	
   1180	135326	104002				EMT+2			;    
   1181	135330	005762	000024			TST	24(R2)		;  
   1182	135334	005037	177776			CLR	@#177776	;  =0
   1183									;    -
   1184									;  	
   1185	135340	012704	000020			MOV	#20,R4		;    -
   1186	135344	005001				CLR	R1		;   
   1187	135346	005301				DEC	R1
   1188	135350	001376				BNE	.-2 
   1189	135352	077404				SOB	R4,.-6
   1190	135354	012737	000340	177776		MOV	#340,@#177776	;  =7
   1191	135362	010001				MOV	R0,R1 
   1192	135364	052701	000400			BIS	#400,R1	
   1193	135370	104003				EMT+3			;    
   1194	135372	012777	000001	044402		MOV	#1,@2002	;	1.      
   1195	135400	012604				MOV	(SP)+,R4	;   
   1196	135402	104000				EMT			;   	 
   1197	135404	012737	000340	177776		MOV	#340,@#177776	;  =7 
-							       -						  -

				       -52-
			    589.7545471.00066-01 12 01


   1198	135412	010001				MOV	R0,R1 
   1199	135414	052701	000400			BIS	#400,R1	
   1200	135420	104003				EMT+3			;    
   1201	135422	013702	002000			MOV	@#2000,R2	;   	
   1202	135426	032762	000200	000004		BIT	#200,4(R2)	; ? 
   1203	135434	001717				BEQ	135274		;,  
   1204	135436	022762	000120	000006		CMP	#120,6(R2)	;	 ? 
   1205	135444	001713				BEQ	135274		;,   
   1206	135446	016277	000006	044326		MOV	6(R2),@2002	;  ,  -,
   1207	135454	012604				MOV	(SP)+,R4	;  	 
   1208	135456	104000				EMT			;   	 
   1209	135460	012704	000005			MOV	#5,R4		;   
   1210	135464	012701	135206			MOV	#135206,R1	;   
   1211	135470	012703	001000			MOV	#1000,R3	;		   
   1212	135474	005062	000022			CLR	22(R2)		;   	
   1213	135500	111162	000020			MOVB	@R1,20(R2)	;      
   1214	135504	077303				SOB	R3,.-4
   1215	135506	012703	001000			MOV	#1000,R3	;		  
   1216	135512	005062	000022			CLR	22(R2)		;   	
   1217	135516	121162	000020			CMPB	@R1,20(R2)	;	?
   1218	135522	001014				BNE	135554		;  ,  
   1219	135524	077304				SOB	R3,.-6		;      
   1220	135526	005721				TST	(R1)+		; 	   
   1221	135530	077421				SOB	R4,135470	;  ,  	  
   1222									; 
   1223	135532	005077	044244			CLR	@2002		;      
   1224									; 
   1225	135536	005237	002002			INC	@#2002		; 	 
   1226	135542	116277	000014	044232		MOVB	14(R2),@2002	;     
   1227									;      	
   1228	135550	012604				MOV	(SP)+,R4
   1229	135552	104000				EMT			;   	 
   1230	
   1231	135554	012777	000003	044220		MOV	#3,@2002	;	3. 	  
   1232	135562	012604				MOV	(SP)+,R4	;	   
   1233	135564	104000				EMT			;   	 
   1234	
   1235						;      	
   1236	135566	012716	135404			MOV	#135404,@SP	;    
   1237	135572	012766	000340	000002		MOV	#340,2(SP)
   1238	135600	000002				RTI			;  
   1239	
   1240	
   1241						;***********************************************************************
   1242						; 
   1243						;   
   1244						; 
   1245						;***********************************************************************
   1246	
   1247	135602	010002				MOV	R0,R2 
   1248	135604	072227	000007			ASH	#7,R2 
   1249	135610	062702	174000			ADD	#174000,R2	; 	 	
   1250	135614	012737	000340	177776		MOV	#340,@#177776	;  =7
   1251	135622	010003				MOV	R0,R3 
   1252	135624	072327	000002			ASH	#2,R3 
   1253	135630	005403				NEG	R3
   1254	135632	062703	117756			ADD	#117756,R3	;   		 , 
-							       -						  -

				       -53-
			    589.7545471.00066-01 12 01


   1255									;  
   1256	135636	010337	002002			MOV	R3,@#2002 
   1257	135642	005077	044134			CLR	@2002		; 
   1258	135646	010446				MOV	R4,-(SP)
   1259	135650	010003				MOV	R0,R3 
   1260	135652	072327	000003			ASH	#3,R3 
   1261	135656	005001				CLR	R1
   1262	135660	032762	000001	000020		BIT	#1,20(R2)	;	" "   ?	
   1263	135666	001006				BNE	135704		;,   
   1264	135670	077105				SOB	R1,135660	;   " "
   1265	135672	112777	000001	044102		MOVB	#1,@2002	;	1.    "
   1266									;"     
   1267	135700	012604				MOV	(SP)+,R4
   1268	135702	104000				EMT			;   	 	
   1269	135704	032762	000400	000016		BIT	#400,16(R2)	;  ?
   1270	135712	001405				BEQ	135726		;,  
   1271	135714	112777	000002	044060		MOVB	#2,@2002	;	2.  	2<08>   
   1272									;
   1273	135722	012604				MOV	(SP)+,R4
   1274	135724	104000				EMT			;   	 	
   1275	135726	012704	000005			MOV	#5,R4		;   
   1276	135732	012701	137116			MOV	#137116,R1	;  	
   1277	135736	011162	000006			MOV	@R1,6(R2)	;   
   1278	135742	011137	002010			MOV	@R1,@#2010
   1279	135746	042737	000340	002010		BIC	#340,@#2010	; 	
   1280	135754	023762	002010	000006		CMP	@#2010,6(R2)	;	?
   1281	135762	001045				BNE	136076		;  ,  
   1282	135764	005721				TST	(R1)+		; 	   
   1283	135766	077415				SOB	R4,135736 
   1284	135770	012704	000005			MOV	#5,R4		;   
   1285	135774	012701	137116			MOV	#137116,R1	;  	
   1286	136000	011162	000012			MOV	@R1,12(R2)	;   
   1287	136004	011137	002010			MOV	@R1,@#2010
   1288	136010	042737	176000	002010		BIC	#176000,@#2010	; 	
   1289	136016	023762	002010	000012		CMP	@#2010,12(R2)	;	?
   1290	136024	001024				BNE	136076		;  ,  
   1291	136026	005721				TST	(R1)+		; 	   
   1292	136030	077415				SOB	R4,136000 
   1293	136032	012704	000005			MOV	#5,R4		;   
   1294	136036	012701	137116			MOV	#137116,R1	;  	
   1295	136042	011162	000014			MOV	@R1,14(R2)	;   
   1296	136046	011137	002010			MOV	@R1,@#2010
   1297	136052	042737	177770	002010		BIC	#177770,@#2010	; 	
   1298	136060	023762	002010	000014		CMP	@#2010,14(R2)	;	?
   1299	136066	001003				BNE	.+10		;  ,  
   1300	136070	005721				TST	(R1)+		; 	 
   1301	136072	077415				SOB	R4,136042 
   1302	136074	000405				BR	136110
   1303	136076	112777	000003	043676		MOVB	#3,@2002	;	3. 	  
   1304									;	 ,     
   1305	136104	012604				MOV	(SP)+,R4
   1306	136106	104000				EMT			;   	 	
   1307	136110	032762	100000	000020		BIT	#100000,20(R2)	;	""	 "=0?
   1308	136116	001405				BEQ	136132		;,   
   1309	136120	112777	000004	043654		MOVB	#4,@2002	;	4.  	 ""   
   1310	136126	012604				MOV	(SP)+,R4	;  
   1311	136130	104000				EMT			;   	 	
-							       -						  -







-							       -						  -

				       -54-
			    589.7545471.00066-01 12 01


   1312	136132	005001				CLR	R1
   1313	136134	022762	050000	000016		CMP	#50000,16(R2) 
   1314	136142	001406				BEQ	136160
   1315	136144	077105				SOB	R1,136134 
   1316	136146	112777	000005	043626		MOVB	#5,@2002	;	5.  2   50000 	
   1317									; 
   1318	136154	012604				MOV	(SP)+,R4
   1319	136156	104000				EMT			;   	 	
   1320	136160	012763	136256	000300		MOV	#136256,300(R3)	;  	  
   1321									; 
   1322	136166	012763	000340	000302		MOV	#340,302(R3)
   1323	136174	012737	000100	173206		MOV	#100,@#173206	;    
   1324	136202	012737	000100	173212		MOV	#100,@#173212	; 
   1325	136210	010001				MOV	R0,R1 
   1326	136212	052701	000400			BIS	#400,R1	
   1327	136216	104002				EMT+2			;    
   1328									; 
   1329	136220	012704	000006			MOV	#6,R4 
   1330	136224	005001				CLR	R1
   1331	136226	012762	000020	000016		MOV	#20,16(R2)	;    
   1332	136234	005037	177776			CLR	@#177776	;   = 0
   1333									;   
   1334									;"   "  
   1335									;  
   1336	136240	077101				SOB	R1,.+0		; 
   1337	136242	077402				SOB	R4,.-2
   1338	136244	112777	000006	043530		MOVB	#6,@2002	;	6.     
   1339	136252	012604				MOV	(SP)+,R4	;   
   1340									;"   "
   1341	136254	104000				EMT			;   	 	
   1342	136256	022626				CMP	(SP)+,(SP)+ 
   1343	136260	010001				MOV	R0,R1 
   1344	136262	052701	000400			BIS	#400,R1	
   1345	136266	104003				EMT+3			;    
   1346	136270	032762	000001	000020		BIT	#1,20(R2)	;	"    =1?
   1347	136276	001005				BNE	136312		;,   
   1348	136300	112777	000007	043474		MOVB	#7,@2002	;	7.    " " 
   1349	136306	012604				MOV	(SP)+,R4	; 	   " 
   1350									;  "
   1351	136310	104000				EMT			;   	 	
   1352	136312	032762	000400	000016		BIT	#400,16(R2)	; ? 
   1353	136320	001405				BEQ	136334		;,  
   1354	136322	112777	000010	043452		MOVB	#10,@2002	;	10. 	2<08>  	
   1355	136330	012604				MOV	(SP)+,R4	; "   "	
   1356	136332	104000				EMT			;   	 	
   1357	136334	032762	000400	000020		BIT	#400,20(R2)	;    
   1358									;" "? 
   1359	136342	001003				BNE	.+10		;,  	
   1360									;  " " 
   1361	136344	052777	000400	043430		BIS	#400,@2002	;     
   1362									;  	 
   1363									;" K"
   1364	136352	012737	000230	002004		MOV	#230,@#2004	;  	= 230 
   1365	136360	012737	000002	002006		MOV	#2,@#2006 
   1366	136366	012763	136732	000300		MOV	#136732,300(R3)	;    	
   1367	136374	012763	000340	000302		MOV	#340,302(R3)	;
   1368	136402	012763	137000	000304		MOV	#137000,304(R3)	
-							       -						  -

				       -55-
			    589.7545471.00066-01 12 01


   1369	136410	012763	000340	000306		MOV	#340,306(R3)
   1370	136416	013704	002006			MOV	@#2006,R4 
   1371	136422	005037	002000			CLR	@#2000
   1372	136426	005737	002000			TST	@#2000
   1373	136432	001004				BNE	136444
   1374	136434	013762	002004	000012		MOV	@#2004,12(R2)	;	  ( O  230 )
   1375	136442	000412				BR	136470
   1376	136444	032737	000001	002000		BIT	#1,@#2000 
   1377	136452	001403				BEQ	.+10
   1378	136454	005062	000012			CLR	12(R2)		;	  = 000000	
   1379	136460	000403				BR	.+10
   1380	136462	013762	002004	000012		MOV	@#2004,12(R2)	;	 	( 0 	230 ) 
   1381	136470	005062	000006			CLR	6(R2)		;	  =	000000
   1382	136474	032737	000001	002000		BIT	#1,@#2000 
   1383	136502	001403				BEQ	.+10
   1384	136504	013701	002006			MOV	@#2006,R1	;	  ( O  1 ) 
   1385	136510	000401				BR	.+4 
   1386	136512	010401				MOV	R4,R1 
   1387	136514	005401				NEG	R1
   1388	136516	063701	002006			ADD	@#2006,R1	;  	
   1389	136522	010162	000014			MOV	R1,14(R2)	;	  
   1390	136526	010001				MOV	R0,R1 
   1391	136530	052701	000400			BIS	#400,R1	
   1392	136534	104002				EMT+2			;    
   1393									;   
   1394	136536	042701	000400			BIC	#400,R1	
   1395	136542	052701	001000			BIS	#1000,R1
   1396	136546	104002				EMT+2			;    
   1397									;      
   1398									;
   1399	136550	012762	000040	000016		MOV	#40,16(R2)	;  " "
   1400	136556	005037	002012			CLR	@#2012
   1401	136562	012737	000003	002014		MOV	#3,@#2014 
   1402	136570	052705	177777			BIS	#-1,R5
   1403	136574	005037	177776			CLR	@#177776	;   = 0
   1404									;	  	 
   1405									;     
   1406									; 
   1407	136600	105777	043176			TSTB	@2002		; ? 
   1408	136604	001013				BNE	136634		;,   
   1409	136606	005705				TST	R5		;     ? 
   1410	136610	001412				BEQ	136636		;, 	
   1411	136612	005337	002012			DEC	@#2012		;    
   1412	136616	001370				BNE	136600		;" "  	
   1413	136620	005337	002014			DEC	@#2014		; 
   1414	136624	001365				BNE	136600
   1415	136626	112777	000011	043146		MOVB	#11,@2002	;	11. 	  
   1416									;    	 
   1417									;     
   1418									;
   1419	136634	000411				BR	136660		;     	
   1420									;  	""	 
   1421									;" " 	
   1422	136636	032737	000002	002000		BIT	#2,@#2000 
   1423	136644	001003				BNE	.+10
   1424	136646	005237	002000			INC	@#2000
   1425	136652	000665				BR	136426
-							       -						  -

				       -56-
			    589.7545471.00066-01 12 01


   1426	136654	005304				DEC	R4
   1427	136656	001261				BNE	136422
   1428	136660	012737	000340	177776		MOV	#340,@#177776	;  =7
   1429	136666	010001				MOV	R0,R1 
   1430	136670	052701	000400			BIS	#400,R1	
   1431	136674	104003				EMT+3			;      
   1432									;  	
   1433	136676	042701	000400			BIC	#400,R1	
   1434	136702	052701	001000			BIS	#1000,R1
   1435	136706	104003				EMT+3			;      
   1436									;    
   1437									;
   1438	136710	004737	137036			JSR	PC,@#137036	;  ""  " " 
   1439									; 	
   1440	136714	000401				BR	.+4		;  
   1441	136716	000403				BR	.+10		;	 12 
   1442	136720	112777	000012	043054		MOVB	#12,@2002	;	12.   	""	 
   1443									; 	 " " 
   1444									; 	    
   1445	136726	012604				MOV	(SP)+,R4
   1446	136730	104000				EMT			;   	 	
   1447	
   1448						;      	
   1449	
   1450	136732	010001				MOV	R0,R1 
   1451	
   1452	136734	052701	000400			BIS	#400,R1	
   1453	136740	104003				EMT+3			;    
   1454									;   
   1455	136742	042701	000400			BIC	#400,R1	
   1456	136746	052701	001000			BIS	#1000,R1
   1457	136752	104003				EMT+3			;    
   1458									;      
   1459									;
   1460	136754	032762	000400	000016		BIT	#400,16(R2)	; ?
   1461	136762	001002				BNE	.+6		;,   
   1462	136764	005005				CLR	R5		;     
   1463									;     
   1464									; 
   1465	136766	000002				RTI			;  
   1466	
   1467	136770	112777	000013	043004		MOVB	#13,@2002	;	13. 	2<08>
   1468									; 	 " " 
   1469	136776	000002				RTI			;  
   1470	
   1471						;     
   1472						;   
   1473	137000	005037	177776			CLR	@#177776	;  =0
   1474	137004	010001				MOV	R0,R1 
   1475	137006	052701	001000			BIS	#1000,R1
   1476	137012	104003				EMT+3			;    
   1477									;     
   1478									; 
   1479	137014	012701	000400			MOV	#400,R1	
   1480	137020	005762	000010			TST	10(R2)		;  	
   1481	137024	077103				SOB	R1,.-4
   1482									;    	
-							       -						  -

				       -57-
			    589.7545471.00066-01 12 01


   1483									;  " " 
   1484									;  	  
   1485									; 
   1486	137026	012737	000100	173212		MOV	#100,@#173212	;   	  
   1487									; 
   1488	137034	000002				RTI			;  
   1489	
   1490						;  	""	 " "
   1491	
   1492	137036	005001				CLR	R1
   1493	137040	032762	100000	000020		BIT	#100000,20(R2)	;	""	?	
   1494	137046	001402				BEQ	.+6		;,   
   1495	137050	077105				SOB	R1,137040 
   1496	137052	000207				RTS	PC		;   12 
   1497	137054	012762	000020	000016		MOV	#20,16(R2)	;    
   1498	137062	005001				CLR	R1
   1499	137064	032762	000001	000020		BIT	#1,20(R2)	;	" "   =1?	
   1500	137072	001003				BNE	.+10		;,   
   1501	137074	077105				SOB	R1,137064	;  		" 
   1502	137076	077406				SOB	R4,137064	;"  
   1503	137100	000402				BR	.+6		;   12,   "
   1504									;"  
   1505	137102	062716	000002			ADD	#2,@SP		;  ,   "
   1506									;" 	
   1507	137106	012737	000100	173206		MOV	#100,@#173206	;   	  
   1508									; 
   1509	137114	000207				RTS	PC		;  
   1510	
   1511						; 	
   1512	137116	125252				125252
   1513	137120	052525				052525
   1514	137122	031463				031463
   1515	137124	004717				004717
   1516	137126	000377				000377
   1517	
   1518						;***********************************************************************
   1519						; 
   1520						;  	
   1521						; 
   1522						;***********************************************************************
   1523	137130	010001				MOV	R0,R1 
   1524	137132	072127	000007			ASH	#7,R1 
   1525	137136	062701	174000			ADD	#174000,R1	; 		
   1526	137142	012761	000030	000006		MOV	#30,6(R1)	; 	   
   1527									; 
   1528	137150	012761	014030	000010		MOV	#14030,10(R1) 
   1529	137156	010002				MOV	R0,R2 
   1530	137160	072227	000002			ASH	#2,R2 
   1531	137164	005402				NEG	R2
   1532	137166	062702	117756			ADD	#117756,R2	; 	   ,
   1533									;  
   1534	137172	010237	002000			MOV	R2,@#2000 
   1535	137176	005077	042576			CLR	@2000 
   1536	137202	012746	000004			MOV	#4,-(SP)
   1537	137206	012746	000140			MOV	#140,-(SP)
   1538	137212	011661	000026			MOV	@SP,26(R1)	;     
   1539									;  14000000  14077777 
-							       -						  -

				       -58-
			    589.7545471.00066-01 12 01


   1540	137216	006316				ASL	@SP 
   1541	137220	006316				ASL	@SP 
   1542	137222	104005				EMT+5			; 	  
   1543									;   
   1544	137224	022626				CMP	(SP)+,(SP)+ 
   1545	137226	004737	140052			JSR	PC,@#140052	;  	
   1546									;  
   1547	137232	103003				BCC	.+10		; , 	 
   1548	137234	004737	137714			JSR	PC,@#137714	;	2.      
   1549	137240	000002				000002			;   
   1550	137242	052761	000040	000006		BIS	#40,6(R1)	;     
   1551	137250	004737	140156			JSR	PC,@#140156	;   , 
   1552									;    
   1553									; 
   1554	137254	103003				BCC	.+10		;,    
   1555	137256	004737	137714			JSR	PC,@#137714	;	3.  /  
   1556	137262	000003				000003			; 
   1557	137264	004737	140214			JSR	PC,@#140214	;     
   1558									;    
   1559									;
   1560	137270	103003				BCC	.+10		;,    
   1561	137272	004737	137714			JSR	PC,@#137714	;	4.   	  
   1562	137276	000004				000004			;    
   1563									;  
   1564	137300	042761	000007	000006		BIC	#7,6(R1)
   1565	137306	052761	000002	000006		BIS	#2,6(R1)
   1566	137314	004737	140434			JSR	PC,@#140434	; 	  
   1567									;     
   1568									;
   1569	137320	103003				BCC	.+10		;,    
   1570	137322	004737	137714			JSR	PC,@#137714	;	5.
   1571	137326	000005				000005			;	     	
   1572									;    
   1573	137330	010103				MOV	R1,R3 
   1574	137332	062703	000006			ADD	#6,R3 
   1575	137336	012746	000007			MOV	#7,-(SP)
   1576	137342	012746	000001			MOV	#1,-(SP)
   1577	137346	004737	140772			JSR	PC,@#140772	; 		 
   1578									;
   1579	137352	103003				BCC	.+10		;,    
   1580	137354	004737	137714			JSR	PC,@#137714	;	6.
   1581	137360	000006				000006			;	  
   1582	137362	004737	142250			JSR	PC,@#142250	;    	
   1583									;  
   1584	137366	103003				BCC	.+10		;,    
   1585	137370	004737	137714			JSR	PC,@#137714	;	7.     
   1586	137374	000007				7			;  	
   1587									;
   1588	137376	104006				EMT+6			; 	  
   1589									; 	
   1590	137400	012700	001403			MOV	#1403,R0	;   
   1591									;	 
   1592	137404	104001				EMT+1			;    
   1593									;	 
   1594									; R0 -	  
   1595									; 	  
   1596									;R0=177777
-							       -						  -

				       -59-
			    589.7545471.00066-01 12 01


   1597	137406	020027	177777			CMP	R0,#-1		;  	? 
   1598	137412	001011				BNE	137436		;,   
   1599	137414	032761	020000	000004		BIT	#20000,4(R1)	;<13>=1?
   1600	137422	001003				BNE	.+10		;, 
   1601	137424	004737	137714			JSR	PC,@#137714	;	10. <13>=0   	
   1602	137430	000010				10			;	 
   1603	137432	000137	137732			JMP	@#137732
   1604	
   1605						;***********************************************************************
   1606						; 
   1607						;     
   1608						; 
   1609						;***********************************************************************
   1610	
   1611	137436	010002				MOV	R0,R2 
   1612	137440	072227	000002			ASH	#2,R2 
   1613	137444	005402				NEG	R2
   1614	137446	062702	117756			ADD	#117756,R2	; 	   ,
   1615									;   	
   1616	137452	010237	002000			MOV	R2,@#2000 
   1617	137456	027727	042316	177777		CMP	@2000,#-1 
   1618	137464	001402				BEQ	.+6 
   1619	137466	000137	137732			JMP	@#137732
   1620	137472	005077	042302			CLR	@2000 
   1621	137476	012746	000004			MOV	#4,-(SP)
   1622	137502	012746	000140			MOV	#140,-(SP)
   1623	137506	011661	000026			MOV	@SP,26(R1)	;   
   1624									;  14000000
   1625	137512	006316				ASL	@SP 
   1626	137514	006316				ASL	@SP 
   1627	137516	104005				EMT+5			; 	   
   1628									; 
   1629	137520	022626				CMP	(SP)+,(SP)+ 
   1630	137522	004737	140120			JSR	PC,@#140120	;<13>	=0? 
   1631	137526	103003				BCC	.+10		;,   
   1632	137530	004737	137724			JSR	PC,@#137724	;	1. <13>=1 		 
   1633	137534	000001				000001			;	 
   1634	137536	004737	140136			JSR	PC,@#140136 
   1635	137542	103003				BCC	.+10		;,    
   1636	137544	004737	137724			JSR	PC,@#137724	;	2.
   1637	137550	000002				000002
   1638	137552	012761	000030	000006		MOV	#30,6(R1)	; 	  K 
   1639									; 
   1640	137560	012761	014070	000010		MOV	#14070,10(R1) 
   1641	137566	004737	140156			JSR	PC,@#140156	;    
   1642									; / 
   1643	137572	103003				BCC	.+10		;,    
   1644	137574	004737	137724			JSR	PC,@#137724	;	3.  /  
   1645	137600	000003				000003			; 
   1646	137602	010103				MOV	R1,R3 
   1647	137604	062703	000010			ADD	#10,R3
   1648	137610	012746	000007			MOV	#7,-(SP)
   1649	137614	012746	000001			MOV	#1,-(SP)
   1650	137620	004737	140772			JSR	PC,@#140772	;    
   1651	137624	103003				BCC	.+10		;,    
   1652	137626	004737	137724			JSR	PC,@#137724	;	4.    
   1653	137632	000004				000004
-							       -						  -

				       -60-
			    589.7545471.00066-01 12 01


   1654	137634	012761	034030	000010		MOV	#34030,10(R1) 
   1655	137642	004737	140156			JSR	PC,@#140156 
   1656	137646	103003				BCC	.+10
   1657	137650	004737	137724			JSR	PC,@#137724 
   1658	137654	000005				000005
   1659	137656	010103				MOV	R1,R3 
   1660	137660	062703	000010			ADD	#10,R3
   1661	137664	012746	003400			MOV	#3400,-(SP) 
   1662	137670	012746	000400			MOV	#400,-(SP)
   1663	137674	004737	140772			JSR	PC,@#140772 
   1664	137700	103003				BCC	.+10
   1665	137702	004737	137724			JSR	PC,@#137724 
   1666	137706	000006				000006
   1667	137710	000137	137732			JMP	@#137732
   1668	137714	104006				EMT+6			; 	  
   1669	137716	013677	042056			MOV	@(SP)+,@2000	;      	
   1670	137722	000441				BR	140026
   1671	137724	104006				EMT+6			; 	  
   1672	137726	013677	042046			MOV	@(SP)+,@2000	;      	
   1673	137732	012761	001000	000004		MOV	#1000,4(R1) 
   1674	137740	012761	000032	000006		MOV	#32,6(R1) 
   1675	137746	012761	015032	000010		MOV	#15032,10(R1) 
   1676	
   1677						;   	  0
   1678	137754	005061	000024			CLR	24(R1)		;			
   1679	137760	005061	000016			CLR	16(R1)		;	 X=0
   1680	137764	005061	000020			CLR	20(R1)		;	 Y=0
   1681	137770	012761	177777	000022		MOV	#-1,22(R1)	;	  
   1682	137776	012746	012455			MOV	#12455,-(SP)
   1683	140002	005761	000004			TST	4(1)		; ?
   1684	140006	100406				BMI	140024		;,   
   1685	140010	005316				DEC	@%6		;   
   1686	140012	001373				BNE	140002
   1687	140014	005726				TST	(6)+		; 
   1688	140016	004737	137714			JSR	%7,@#137714	;	1.     
   1689	140022	000001				1			;    177777
   1690	140024	005726				TST	(6)+
   1691	140026	005061	000004			CLR	4(1)		;  
   1692	140032	005061	000006			CLR	6(1)		;   
   1693	140036	005061	000010			CLR	10(1) 
   1694	140042	005061	000014			CLR	14(1)		;   
   1695	140046	104006				EMT+6			; 	  
   1696									; 	
   1697	140050	104000				EMT			;   	
   1698	
   1699						;***********************************************************************
   1700						;  	 	 
   1701						; ( RESET)
   1702						; <15-14>, <10-08>, <06>, <01-00>    
   1703						; <05>, <02-00>    
   1704						; <07-00>      
   1705						;***********************************************************************
   1706	
   1707	140052	005761	000004			TST	4(1)
   1708	140056	100016				BPL	140114
   1709	140060	036127	000004	043503		BIT	4(1),#43503 
   1710	140066	001012				BNE	140114
-							       -						  -

				       -61-
			    589.7545471.00066-01 12 01


   1711	140070	032761	000047	000006		BIT	#47,6(1)
   1712	140076	001006				BNE	140114
   1713	140100	032761	000377	000014		BIT	#377,14(1)
   1714	140106	001002				BNE	.+6 
   1715	140110	000241				CLC			; -   
   1716	140112	000401				BR	.+4 
   1717	140114	000261				SEC			; -   	
   1718	140116	000207				RTS	%7
   1719	
   1720	
   1721						;***********************************************************************
   1722						; 
   1723						;  <13>   	(  RESET)
   1724						; <13>=1  -
   1725						; 
   1726						;***********************************************************************
   1727	
   1728	
   1729	140120	032761	020000	000004		BIT	#20000,4(1)	;  	? 
   1730	140126	001001				BNE	.+4		;,  
   1731	140130	005727	000261			TST	#261
   1732	140134	000207				RTS	%7
   1733	
   1734	140136	032761	023447	000010		BIT	#23447,10(1)
   1735	140144	001002				BNE	.+6 
   1736	140146	000241				CLC 
   1737	140150	000401				BR	.+4 
   1738	140152	000261				SEC 
   1739	140154	000207				RTS	%7
   1740	
   1741	
   1742						;***********************************************************************
   1743						; 
   1744						;    / 
   1745						; .     - 
   1746						; 
   1747						;***********************************************************************
   1748	
   1749	140156	010046				MOV	%0,-(6)		;   R0-R4
   1750	140160	010146				MOV	%1,-(6)	
   1751	140162	010246				MOV	%2,-(6)	
   1752	140164	010446				MOV	%4,-(6)	
   1753	140166	013703	172342			MOV	@#172342,%3 
   1754	140172	012705	000001			MOV	#1,%5		;    	
   1755	140176	004737	162256			JSR	%7,@#162256	;   
   1756	140202	012604				MOV	(6)+,%4		; R4-R0 
   1757	140204	012602				MOV	(6)+,%2	
   1758	140206	012601				MOV	(6)+,%1	
   1759	140210	012600				MOV	(6)+,%0	
   1760	140212	000207				RTS	%7
   1761	
   1762						;***********************************************************************
   1763						; 
   1764						;      
   1765						;  	   
   1766						; 
   1767						;***********************************************************************
-							       -						  -

				       -62-
			    589.7545471.00066-01 12 01


   1768	
   1769	140214	010146				MOV	%1,-(6)		; R1 
   1770	140216	010001				MOV	%0,%1		;  
   1771	140220	072127	000003			ASH	#3,%1 
   1772	140224	012761	140412	000300		MOV	#140412,300(1)	;  	
   1773									;   000320
   1774	140232	012761	000340	000302		MOV	#340,302(1) 
   1775	140240	010001				MOV	%0,%1 
   1776	140242	052701	000400			BIS	#400,%1	
   1777	140246	011604				MOV	@%6,%4
   1778	140250	104002				EMT+2			;    
   1779									;    
   1780	140252	012746	140304			MOV	#140304,-(6)	;    
   1781									; 
   1782	140256	012702	000003			MOV	#3,%2 
   1783	140262	005003				CLR	%3
   1784	140264	012764	000101	000004		MOV	#101,4(4)	; <06>  <00> 
   1785	140272	005037	177776			CLR	@#177776	;  =0
   1786									;	 3 
   1787	140276	005203				INC	%3		;   	
   1788	140300	001376				BNE	.-2		;INC  BNE  	  ,
   1789									;  R3 
   1790						;    ( 625 	) 
   1791	140302	005726				TST	(6)+
   1792	140304	020327	010060			CMP	%3,#10060	;R3  10060? 
   1793	140310	002432				BLT	140376		;  ,   
   1794	140312	020327	011711			CMP	%3,#11711	;R3  11711? 
   1795	140316	003027				BGT	140376		;  ,   
   1796	140320	012746	140352			MOV	#140352,-(6)	;    
   1797									; 
   1798	140324	012702	000003			MOV	#3,%2		;   
   1799	140330	005003				CLR	%3
   1800	140332	012764	000100	000004		MOV	#100,4(4)	; <06>, <00>  
   1801	140340	005037	177776			CLR	@#177776	;  =0
   1802									;	 3 
   1803	140344	005203				INC	%3		;   	
   1804	140346	001376				BNE	.-2		;INC  BNE  	   
   1805									;  R3 
   1806						;    ( 525 	) 
   1807	140350	005726				TST	(6)+
   1808	140352	020327	006632			CMP	%3,#6632	;R3  6632?
   1809	140356	002407				BLT	140376		;  ,   
   1810	140360	020327	010237			CMP	%3,#10237	;R3  10237? 
   1811	140364	003004				BGT	140376		;  ,   
   1812	140366	104003				EMT+3			;    
   1813	140370	000241				CLC			; -   
   1814	140372	012601				MOV	(6)+,%1	
   1815	140374	000405				BR	140410
   1816	140376	005064	000004			CLR	4(4)		; 
   1817	140402	104003				EMT+3			;   
   1818	140404	000261				SEC			; -   	
   1819	140406	012601				MOV	(6)+,%1	
   1820	140410	000207				RTS	%7
   1821	
   1822	
   1823					       ;    
   1824	
-							       -						  -

				       -63-
			    589.7545471.00066-01 12 01


   1825	140412	005302				DEC	%2		;	? 
   1826	140414	001403				BEQ	.+10		;,   
   1827	140416	012703	000001			MOV	#1,%3 
   1828	140422	000002				RTI 
   1829	140424	005064	000004			CLR	4(4)		; 
   1830	140430	022626				CMP	(6)+,(6)+ 
   1831	140432	000207				RTS	%7
   1832	
   1833	
   1834						;***********************************************************************
   1835						; 
   1836						;      
   1837						;    
   1838						; 
   1839						;***********************************************************************
   1840	140434	010146				MOV	%1,-(6)	
   1841	140436	012703	000003			MOV	#3,%3		;   
   1842	140442	010102				MOV	%1,%2 
   1843	140444	010001				MOV	%0,%1		;   	
   1844	140446	072127	000003			ASH	#3,%1 
   1845	140452	012761	140766	000304		MOV	#140766,304(1)	;    000324 
   1846	140460	012761	000340	000306		MOV	#340,306(1) 
   1847	140466	010001				MOV	%0,%1 
   1848	140470	052701	001000			BIS	#1000,%1
   1849	140474	104002				EMT+2			;    
   1850									;  
   1851	140476	052762	040000	000004		BIS	#40000,4(2)	;   
   1852									;  	
   1853									;
   1854	140504	005037	177776			CLR	@#177776	;  =0
   1855									;	   
   1856									; 000324	
   1857	140510	005062	000016			CLR	16(2)		;	. .  =0
   1858	140514	005062	000020			CLR	20(2)		;	. .  Y=0
   1859	140520	005037	020000			CLR	@#20000		; 0     
   1860	140524	005037	025252			CLR	@#25252	
   1861	140530	012737	000001	025254		MOV	#1,@#25254
   1862	140536	012762	000037	000024		MOV	#37,24(2)	;			
   1863	140544	012762	052525	000022		MOV	#52525,22(2)	;  
   1864	140552	012746	012455			MOV	#12455,-(6)	;     
   1865	140556	005762	000004			TST	4(2)		;  ?
   1866	140562	100405				BMI	140576		;,   
   1867	140564	005316				DEC	@%6		;    
   1868	140566	001373				BNE	140556		;	 
   1869	140570	005726				TST	(6)+
   1870	140572	000137	140760			JMP	@#140760	;  ,    
   1871	140576	005726				TST	(6)+		;
   1872	140600	023727	020000	000037		CMP	@#20000,#37	;	 = 37?
   1873	140606	001064				BNE	140760		;,  
   1874	140610	023727	025252	000037		CMP	@#25252,#37	;   = 37?
   1875	140616	001060				BNE	140760		;,  
   1876	140620	023727	025254	000001		CMP	@#25254,#1	;   ? 
   1877	140626	001054				BNE	140760		;,    
   1878									; 
   1879	140630	005037	032524			CLR	@#32524	
   1880	140634	012737	000002	032526		MOV	#2,@#32526	; 2    	
   1881	140642	012762	001777	000024		MOV	#1777,24(2)	;			
-							       -						  -

				       -64-
			    589.7545471.00066-01 12 01


   1882	140650	012762	125252	000022		MOV	#125252,22(2)	;	  
   1883	140656	012746	012455			MOV	#12455,-(6)	;   
   1884	140662	005762	000004			TST	4(2)		;  ?
   1885	140666	100405				BMI	140702		;,   
   1886	140670	005316				DEC	@%6		;    
   1887	140672	001373				BNE	140662		;	 
   1888	140674	005726				TST	(6)+
   1889	140676	000137	140760			JMP	@#140760	;  ,    
   1890	140702	005726				TST	(6)+		;
   1891	140704	023727	020000	001777		CMP	@#20000,#1777	;	 = 377? 
   1892	140712	001022				BNE	140760		;  ,  
   1893	140714	023727	032524	001777		CMP	@#32524,#1777	;  = 377?
   1894	140722	001016				BNE	140760		;  ,  
   1895	140724	023727	032526	000002		CMP	@#32526,#2	;   ? 
   1896	140732	001012				BNE	140760		;  ,   
   1897									;  
   1898	140734	012737	000340	177776		MOV	#340,@#177776	;  =7
   1899	140742	005062	000004			CLR	4(2)
   1900	140746	104003				EMT+3			;    
   1901									;    
   1902	140750	005703				TST	%3		; 3 ?
   1903	140752	001002				BNE	.+6		;  ,  
   1904	140754	000241				CLC			; 	 	-
   1905	140756	000401				BR	.+4 
   1906	140760	000261				SEC			;    -	
   1907	140762	012601				MOV	(6)+,%1	
   1908	140764	000207				RTS	%7
   1909	
   1910						; 	    000324 
   1911	
   1912	140766	005303				DEC	%3		;   
   1913	140770	000002				RTI			;  
   1914	
   1915	
   1916						;***********************************************************
   1917						;    
   1918						;************************************************************ 
   1919	
   1920						;   
   1921						;<09-08>=0
   1922						;<02-00>=0,1,2,...,7	
   1923	
   1924	140772	042761	001400	000004		BIC	#1400,4(1)
   1925	141000	012737	063140	072452		MOV	#63140,@#72452
   1926	141006	012761	000525	000016		MOV	#525,16(1)	;	  X	
   1927	141014	012761	000252	000020		MOV	#252,20(1)	;	  Y	
   1928	141022	012761	125252	000024		MOV	#125252,24(1)	;	  
   1929	141030	046613	000004			BIC	4(6),@%3
   1930	141034	012702	142040			MOV	#142040,%2	;   
   1931	141040	012761	000014	000022		MOV	#14,22(1)	;  
   1932	141046	012746	012455			MOV	#12455,-(6)	;   
   1933	141052	005761	000004			TST	4(1)		;  ?
   1934	141056	100405				BMI	141072		;,   
   1935	141060	005316				DEC	@%6 
   1936	141062	001373				BNE	141052
   1937	141064	005726				TST	(6)+
   1938	141066	000137	142026			JMP	@#142026
-							       -						  -

				       -65-
			    589.7545471.00066-01 12 01


   1939	141072	005726				TST	(6)+
   1940	141074	022237	072452			CMP	(2)+,@#72452	;.  	?
   1941	141100	001402				BEQ	.+6		;,   
   1942	141102	000137	142026			JMP	@#142026
   1943	141106	020227	142060			CMP	%2,#142060	;  ?
   1944	141112	001403				BEQ	.+10		;,   
   1945	141114	066613	000002			ADD	2(6),@%3	;  174406 	1 
   1946	141120	000747				BR	141040		;    
   1947	
   1948						;  
   1949						;  <09-08>=01
   1950						;<02-00>=0,1,2,...,7	
   1951	
   1952	141122	062761	000400	000004		ADD	#400,4(1) 
   1953	141130	012737	000001	020100		MOV	#1,@#20100
   1954	141136	012737	000001	020300		MOV	#1,@#20300
   1955	141144	005037	020500			CLR	@#20500	
   1956	141150	005037	020700			CLR	@#20700	
   1957	141154	012761	001000	000016		MOV	#1000,16(1)	;	 O X
   1958	141162	005061	000020			CLR	20(1)		;  Y	
   1959	141166	012761	052525	000024		MOV	#52525,24(1)	;	  
   1960	141174	046613	000004			BIC	4(6),@%3
   1961	141200	012761	000004	000022		MOV	#4,22(1)	;			
   1962	141206	012746	012455			MOV	#12455,-(6)	;   
   1963	141212	005761	000004			TST	4(1)		;  ?
   1964	141216	100405				BMI	141232		;,   
   1965	141220	005316				DEC	@%6 
   1966	141222	001373				BNE	141212
   1967	141224	005726				TST	(6)+
   1968	141226	000137	142026			JMP	@#142026	;  
   1969	141232	005726				TST	(6)+
   1970	141234	022237	020100			CMP	(2)+,@#20100
   1971	141240	001402				BEQ	.+6 
   1972	141242	000137	142026			JMP	@#142026
   1973	141246	022237	020300			CMP	(2)+,@#20300
   1974	141252	001402				BEQ	.+6 
   1975	141254	000137	142026			JMP	@#142026
   1976	141260	022237	020500			CMP	(2)+,@#20500
   1977	141264	001402				BEQ	.+6 
   1978	141266	000137	142026			JMP	@#142026
   1979	141272	022237	020700			CMP	(2)+,@#20700
   1980	141276	001402				BEQ	.+6 
   1981	141300	000137	142026			JMP	@#142026
   1982	141304	020227	142160			CMP	%2,#142160	; ?	
   1983	141310	001403				BEQ	.+10		;,   
   1984	141312	066613	000002			ADD	2(6),@%3	;    1
   1985	141316	000730				BR	141200		;    
   1986	
   1987						;   
   1988						;<09-08>=10 
   1989						;<02-00>=0,1,2,3 
   1990	
   1991	141320	062761	000400	000004		ADD	#400,4(1) 
   1992	141326	005037	020000			CLR	@#20000	
   1993	141332	005037	020176			CLR	@#20176	
   1994	141336	005061	000016			CLR	16(1) 
   1995	141342	005061	000024			CLR	24(1) 
-							       -						  -

				       -66-
			    589.7545471.00066-01 12 01


   1996	141346	046613	000004			BIC	4(6),@%3
   1997	141352	012761	000100	000022		MOV	#100,22(1)
   1998	141360	012746	012455			MOV	#12455,-(6) 
   1999	141364	005761	000004			TST	4(1)
   2000	141370	100405				BMI	141404
   2001	141372	005316				DEC	@%6 
   2002	141374	001373				BNE	141364
   2003	141376	005726				TST	(6)+
   2004	141400	000137	142026			JMP	@#142026
   2005	141404	005726				TST	(6)+
   2006	141406	022237	020000			CMP	(2)+,@#20000
   2007	141412	001402				BEQ	.+6 
   2008	141414	000137	142026			JMP	@#142026
   2009	141420	022237	020176			CMP	(2)+,@#20176
   2010	141424	001402				BEQ	.+6 
   2011	141426	000137	142026			JMP	@#142026
   2012	141432	066613	000002			ADD	2(6),@%3
   2013	141436	020227	142200			CMP	%2,#142200
   2014	141442	001343				BNE	141352
   2015	
   2016						;   
   2017						;<09-08>=10 
   2018						;<02-00>=5,6,7 
   2019	
   2020	141444	066613	000002			ADD	2(6),@%3
   2021	141450	005037	020000			CLR	@#20000	
   2022	141454	005037	020174			CLR	@#20174	
   2023	141460	012737	100001	020176		MOV	#100001,@#20176	
   2024	141466	012761	000001	000024		MOV	#1,24(1)
   2025	141474	012761	000100	000022		MOV	#100,22(1)
   2026	141502	012746	012455			MOV	#12455,-(6) 
   2027	141506	005761	000004			TST	4(1)
   2028	141512	100405				BMI	141526
   2029	141514	005316				DEC	@%6 
   2030	141516	001373				BNE	141506
   2031	141520	005726				TST	(6)+
   2032	141522	000137	142026			JMP	@#142026
   2033	141526	005726				TST	(6)+
   2034	141530	022237	020000			CMP	(2)+,@#20000
   2035	141534	001134				BNE	142026
   2036	141536	022237	020176			CMP	(2)+,@#20176
   2037	141542	001131				BNE	142026
   2038	141544	020227	142214			CMP	%2,#142214
   2039	141550	001403				BEQ	.+10
   2040	141552	066613	000002			ADD	2(6),@%3
   2041	141556	000746				BR	141474
   2042	
   2043						;   
   2044						;<09-08>=11 
   2045						;<02-00>=0,1,2,3 
   2046	
   2047	141560	062761	000400	000004		ADD	#400,4(1) 
   2048	141566	012737	177777	020000		MOV	#-1,@#20000 
   2049	141574	012737	177777	020176		MOV	#-1,@#20176 
   2050	141602	012761	001777	000016		MOV	#1777,16(1) 
   2051	141610	012761	000001	000024		MOV	#1,24(1)
   2052	141616	046613	000004			BIC	4(6),@%3
-							       -						  -

				       -67-
			    589.7545471.00066-01 12 01


   2053	141622	012761	000100	000022		MOV	#100,22(1)
   2054	141630	012746	012455			MOV	#12455,-(6) 
   2055	141634	005761	000004			TST	4(1)
   2056	141640	100405				BMI	141654
   2057	141642	005316				DEC	@%6 
   2058	141644	001373				BNE	141634
   2059	141646	005726				TST	(6)+
   2060	141650	000137	142026			JMP	@#142026
   2061	141654	005726				TST	(6)+
   2062	141656	022237	020000			CMP	(2)+,@#20000
   2063	141662	001061				BNE	142026
   2064	141664	022237	020176			CMP	(2)+,@#20176
   2065	141670	001056				BNE	142026
   2066	141672	066613	000002			ADD	2(6),@%3
   2067	141676	020227	142234			CMP	%2,#142234
   2068	141702	001347				BNE	141622
   2069	
   2070						;   
   2071						;<09-08>=11 
   2072						;<02-00>=5,6,7 
   2073	
   2074	141704	066613	000002			ADD	2(6),@%3
   2075	141710	012737	077776	020000		MOV	#77776,@#20000
   2076	141716	012737	177777	020002		MOV	#-1,@#20002 
   2077	141724	012737	177777	020176		MOV	#-1,@#20176 
   2078	141732	005061	000024			CLR	24(1) 
   2079	141736	012761	000100	000022		MOV	#100,22(1)
   2080	141744	012746	012455			MOV	#12455,-(6) 
   2081	141750	005761	000004			TST	4(1)
   2082	141754	100405				BMI	141770
   2083	141756	005316				DEC	@%6 
   2084	141760	001373				BNE	141750
   2085	141762	005726				TST	(6)+
   2086	141764	000137	142026			JMP	@#142026
   2087	141770	005726				TST	(6)+
   2088	141772	022237	020000			CMP	(2)+,@#20000
   2089	141776	001013				BNE	142026
   2090	142000	022237	020176			CMP	(2)+,@#20176
   2091	142004	001010				BNE	142026
   2092	142006	020227	142250			CMP	%2,#142250
   2093	142012	001403				BEQ	.+10
   2094	142014	066613	000002			ADD	2(6),@%3
   2095	142020	000746				BR	141736
   2096	142022	000241				CLC			; -   
   2097	142024	000401				BR	.+4 
   2098	142026	000261				SEC			; -   	
   2099	142030	011666	000004			MOV	@%6,4(6)
   2100	142034	012626				MOV	(6)+,(6)+ 
   2101	142036	000207				RTS	%7		;  
   2102	
   2103						; 	
   2104	142040	063140				063140
   2105	142042	031440				031440
   2106	142044	052500				052500
   2107	142046	125240				125240
   2108	142050	177740				177740
   2109	142052	125240				125240
-							       -						  -

				       -68-
			    589.7545471.00066-01 12 01


   2110	142054	000000				000000
   2111	142056	177740				177740
   2112	
   2113	142060	000001				000001
   2114	142062	000001				000001
   2115	142064	000000				000000
   2116	142066	000000				000000
   2117	
   2118	142070	000000				000000
   2119	142072	000001				000001
   2120	142074	000001				000001
   2121	142076	000000				000000
   2122	
   2123	142100	000001				000001
   2124	142102	000000				000000
   2125	142104	000001				000001
   2126	142106	000000				000000
   2127	
   2128	142110	000000				000000
   2129	142112	000001				000001
   2130	142114	000000				000000
   2131	142116	000001				000001
   2132	
   2133	142120	000001				000001
   2134	142122	000001				000001
   2135	142124	000001				000001
   2136	142126	000001				000001
   2137	
   2138	142130	000000				000000
   2139	142132	000001				000001
   2140	142134	000000				000000
   2141	142136	000001				000001
   2142	
   2143	142140	000000				000000
   2144	142142	000000				000000
   2145	142144	000000				000000
   2146	142146	000000				000000
   2147	
   2148	142150	000001				000001
   2149	142152	000001				000001
   2150	142154	000001				000001
   2151	142156	000001				000001
   2152	
   2153	142160	000000				000000
   2154	142162	000000				000000
   2155	142164	177777				177777
   2156	142166	177777				177777
   2157	142170	000000				000000
   2158	142172	000000				000000
   2159	142174	177777				177777
   2160	142176	177777				177777
   2161	
   2162	142200	000001				000001
   2163	142202	000002				000002
   2164	142204	000007				000007
   2165	142206	000010				000010
   2166	142210	000177				000177
-							       -						  -

				       -69-
			    589.7545471.00066-01 12 01


   2167	142212	000200				000200
   2168	
   2169	142214	177777				177777
   2170	142216	177777				177777
   2171	142220	000000				000000
   2172	142222	000000				000000
   2173	142224	177777				177777
   2174	142226	177777				177777
   2175	142230	000000				000000
   2176	142232	000000				000000
   2177	
   2178	142234	137777				137777
   2179	142236	077777				077777
   2180	142240	167777				167777
   2181	142242	017777				017777
   2182	142244	177377				177377
   2183	142246	000377				000377
   2184	
   2185		142250				.=142250
   2186	
   2187						;***********************************************************************
   2188						; 
   2189						;  		  
   2190						;
   2191						; 
   2192						;***********************************************************************
   2193	
   2194	142250	012702	020000			MOV	#20000,%2	;    
   2195									; 
   2196	142254	005012				CLR	@%2		;    
   2197	142256	005062	000176			CLR	176(2)
   2198	142262	012762	000001	012600		MOV	#1,12600(2) 
   2199	142270	012762	000002	012776		MOV	#2,12776(2) 
   2200	142276	012762	000003	025200		MOV	#3,25200(2) 
   2201	142304	012762	000004	025376		MOV	#4,25376(2) 
   2202	142312	062761	000125	000014		ADD	#125,14(1)	;	 	
   2203	142320	012746	012455			MOV	#12455,-(6)	;    
   2204	142324	005761	000004			TST	4(1)		; 	  
   2205	142330	100405				BMI	142344		;
   2206	142332	005316				DEC	@%6 
   2207	142334	001373				BNE	142324
   2208	142336	005726				TST	(6)+
   2209	142340	000137	142442			JMP	@#142442
   2210	142344	005726				TST	(6)+
   2211						;    	
   2212	142346	022712	000003			CMP	#3,@%2
   2213	142352	001033				BNE	142442
   2214	142354	022762	000004	000176		CMP	#4,176(2) 
   2215	142362	001027				BNE	142442
   2216	142364	162761	000052	000014		SUB	#52,14(1)	;	 	
   2217	142372	012746	012455			MOV	#12455,-(6)	;    
   2218	142376	005761	000004			TST	4(1)		; 	  
   2219	142402	100405				BMI	142416		;
   2220	142404	005316				DEC	@%6 
   2221	142406	001373				BNE	142376
   2222	142410	005726				TST	(6)+
   2223	142412	000137	142442			JMP	@#142442
-							       -						  -

				       -70-
			    589.7545471.00066-01 12 01


   2224	142416	005726				TST	(6)+
   2225						;    	
   2226	142420	022712	000001			CMP	#1,@%2
   2227	142424	001006				BNE	142442
   2228	142426	022762	000002	000176		CMP	#2,176(2) 
   2229	142434	001002				BNE	.+6 
   2230	142436	000241				CLC			; -, 	  
   2231	142440	000401				BR	.+4 
   2232	142442	000261				SEC			; -,   
   2233	142444	000207				RTS	%7
   2234		142446				.=142446
   2235	
   2236						;***********************************************************************
   2237						; 
   2238						;      
   2239						; 	   "  	   	   	 " 
   2240						;       
   2241						;  ,  	   
   2242						;  
   2243						; 
   2244						;***********************************************************************
   2245	
   2246	142446	004737	155014			JSR	PC,@#155014	; 		 002000-002004,	002010
   2247									;	  
   2248									;   
   2249	
   2250						;	    
   2251	
   2252	142452	012702	117712			MOV	#117712,R2	;    	 
   2253	142456	012703	000015			MOV	#15,R3		;   
   2254	142462	005037	137556			CLR	@#137556	;  
   2255	142466	105712				TSTB	@R2		; ? 
   2256	142470	001410				BEQ	142512		;,   
   2257	142472	022712	177777			CMP	#-1,@R2		; ? 
   2258	142476	001405				BEQ	142512		;,  
   2259	142500	005046				CLR	-(SP)		;  	,	 0
   2260	142502	004737	142766			JSR	PC,@#142766	;  	 	
   2261									;    , 
   2262									;    
   2263									;   ,  
   2264									;4  
   2265	142506	005726				TST	(SP)+		; 
   2266	142510	000403				BR	.+10		;      
   2267									; 
   2268	142512	162702	000004			SUB	#4,R2		;     
   2269									;	
   2270	142516	077315				SOB	R3,142466 
   2271	
   2272						;	    
   2273	
   2274	142520	012702	117756			MOV	#117756,R2	;    	 
   2275	142524	012703	000011			MOV	#11,R3
   2276	142530	026227	000002	177776		CMP	2(R2),#177776	; ?
   2277	142536	001405				BEQ	142552		;,  
   2278	142540	105712				TSTB	@R2		;	? 
   2279	142542	001412				BEQ	142570		;,   
   2280	142544	022712	177777			CMP	#-1,@R2		;	? 
-							       -						  -

				       -71-
			    589.7545471.00066-01 12 01


   2281	142550	001407				BEQ	142570		;,  
   2282	142552	012704	000012			MOV	#12,R4
   2283	142556	160304				SUB	R3,R4 
   2284	142560	010446				MOV	R4,-(SP)
   2285	142562	004737	142766			JSR	PC,@#142766	;  	 	
   2286									;   	
   2287									;,   ,  	 
   2288									;   . 
   2289									;   	
   2290	142566	005726				TST	(SP)+ 
   2291	142570	162702	000004			SUB	#4,R2		;   
   2292	142574	077323				SOB	R3,142530 
   2293	142576	005737	137556			TST	@#137556	; ? 
   2294	142602	001070				BNE	142764		;,  
   2295	
   2296						;   "            "
   2297	142604	012702	145020			MOV	#145020,R2	;    
   2298									;"            "
   2299	142610	012746	177777			MOV	#-1,-(SP) 
   2300	142614	012703	060000			MOV	#60000,R3 
   2301	142620	105712				TSTB	@R2 
   2302	142622	001443				BEQ	142732
   2303	142624	100022				BPL	142672
   2304	142626	005202				INC	R2
   2305	142630	012723	100312			MOV	#100312,(R3)+ 
   2306	142634	016363	177776	000002		MOV	177776(R3),2(R3)
   2307	142642	042763	100000	000002		BIC	#100000,2(R3) 
   2308	142650	016363	177776	000006		MOV	177776(R3),6(R3)
   2309	142656	005216				INC	@SP 
   2310	142660	011623				MOV	@SP,(R3)+ 
   2311	142662	112204				MOVB	(R2)+,R4
   2312	142664	060423				ADD	R4,(R3)+
   2313	142666	011623				MOV	@SP,(R3)+ 
   2314	142670	000753				BR	142620
   2315	142672	112204				MOVB	(R2)+,R4
   2316	142674	060423				ADD	R4,(R3)+
   2317	142676	016363	177776	000002		MOV	177776(R3),2(R3)
   2318	142704	042763	100000	000002		BIC	#100000,2(R3) 
   2319	142712	016363	177776	000006		MOV	177776(R3),6(R3)
   2320	142720	011623				MOV	@SP,(R3)+ 
   2321	142722	112204				MOVB	(R2)+,R4
   2322	142724	060423				ADD	R4,(R3)+
   2323	142726	011623				MOV	@SP,(R3)+ 
   2324	142730	000733				BR	142620
   2325	142732	005013				CLR	@R3 
   2326	142734	005726				TST	(SP)+ 
   2327	142736	012746	060000			MOV	#60000,-(SP)
   2328	142742	010337	001022			MOV	R3,@#1022 
   2329	142746	012703	177777			MOV	#-1,R3		;  
   2330	142752	004777	037022			JSR	PC,@2000	;  "            "
   2331	142756	013703	001022			MOV	@#1022,R3 
   2332	142762	005726				TST	(SP)+ 
   2333	142764	000207				RTS	PC
   2334	
   2335	
   2336						;***********************************************************************
   2337						; 
-							       -						  -

				       -72-
			    589.7545471.00066-01 12 01


   2338						;      
   2339						; 	  	 
   2340						; 4(SP) -  ,  @R2	- 	,	 2(R2)	- .
   2341						; 	
   2342						; 
   2343						;***********************************************************************
   2344	
   2345	142766	005737	137556			TST	@#137556	;	?	
   2346	142772	001105				BNE	143206		;,  
   2347	142774	012746	144232			MOV	#144232,-(SP)	;     	
   2348									; 	 	
   2349	143000	010337	001022			MOV	R3,@#1022 
   2350	143004	012703	177777			MOV	#-1,R3
   2351	143010	004777	036764			JSR	PC,@2000	;    
   2352									;    
   2353	143014	013703	001022			MOV	@#1022,R3 
   2354	143020	016605	000004			MOV	4(SP),R5	;  
   2355	143024	005705				TST	R5		;   ? 
   2356	143026	001401				BEQ	.+4		;,   
   2357	143030	005105				COM	R5
   2358	143032	010537	173704			MOV	R5,@#173704	;   	
   2359	143036	012705	002172			MOV	#2172,R5
   2360	143042	016616	000004			MOV	4(SP),@SP	;  
   2361	143046	012746	000002			MOV	#2,-(SP)	;  
   2362	143052	012746	177777			MOV	#-1,-(SP) 
   2363	143056	004737	143244			JSR	PC,@#143244	;   ( ) 
   2364	
   2365	143062	111266	000004			MOVB	@R2,4(SP)	;   
   2366	143066	012766	000004	000002		MOV	#4,2(SP)	;  
   2367	143074	005016				CLR	@SP 
   2368	143076	004737	143244			JSR	PC,@#143244	;   ( )
   2369	143102	012766	002172	000004		MOV	#2172,4(SP) 
   2370	143110	012766	001551	000002		MOV	#1551,2(SP)	;    X 
   2371	143116	012716	000151			MOV	#151,@SP	;     Y
   2372	143122	004777	036656			JSR	PC,@2004	; 	  
   2373	143126	012705	002172			MOV	#2172,R5
   2374	143132	016266	000002	000004		MOV	2(R2),4(SP)	;    
   2375	143140	012766	000006	000002		MOV	#6,2(SP)	;  
   2376	143146	012716	177777			MOV	#-1,@SP	
   2377	143152	004737	143244			JSR	PC,@#143244	;  
   2378	143156	012766	002172	000004		MOV	#2172,4(SP) 
   2379	143164	012766	001551	000002		MOV	#1551,2(SP)	;    X 
   2380	143172	012716	000202			MOV	#202,@SP	;    Y 
   2381	143176	004777	036602			JSR	PC,@2004	; 	  
   2382	143202	062706	000006			ADD	#6,SP 
   2383	143206	016605	000002			MOV	2(SP),R5
   2384	143212	072527	000002			ASH	#2,R5 
   2385	143216	016546	143350			MOV	143350(R5),-(SP) ;    X 	
   2386									 ;   
   2387	143222	016546	143352			MOV	143352(R5),-(SP) ;    Y 
   2388									 ;   	
   2389	143226	004777	036550			JSR	PC,@2002	 ;   
   2390	143232	022626				CMP	(SP)+,(SP)+ 
   2391	143234	052737	177777	137556		BIS	#-1,@#137556	;  
   2392	143242	000207				RTS	PC		;   	
   2393	
   2394						;***********************************************************************
-							       -						  -

				       -73-
			    589.7545471.00066-01 12 01


   2395						; 
   2396						;    	. 
   2397						; -  12(SP),  	 -	 10(SP). 
   2398						; 6(SP),  	0,   	
   2399						; 
   2400						; 
   2401						;***********************************************************************
   2402	
   2403	143244	010446				MOV	R4,-(SP)
   2404	143246	010346				MOV	R3,-(SP)
   2405	143250	016604	000010			MOV	10(SP),R4	;    
   2406	143254	005304				DEC	R4
   2407	143256	006304				ASL	R4
   2408	143260	005003				CLR	R3
   2409	143262	166466	143334	000012		SUB	143334(R4),12(SP) 
   2410	143270	100402				BMI	.+6 
   2411	143272	005203				INC	R3		; 	
   2412	143274	000772				BR	143262
   2413	143276	066466	143334	000012		ADD	143334(R4),12(SP) 
   2414	143304	005766	000006			TST	6(SP)		;   ?
   2415	143310	001402				BEQ	.+6		;,  
   2416	143312	052703	000200			BIS	#200,R3		;  	 
   2417	143316	110325				MOVB	R3,(R5)+	; 	  
   2418	143320	162704	000002			SUB	#2,R4 
   2419	143324	100355				BPL	143260		;   	  
   2420	143326	012603				MOV	(SP)+,R3
   2421	143330	012604				MOV	(SP)+,R4
   2422	143332	000207				RTS	PC		;  
   2423	
   2424	143334	000001				000001
   2425	143336	000010				000010
   2426	143340	000100				000100
   2427	143342	001000				001000
   2428	143344	010000				010000
   2429	143346	100000				100000
   2430	
   2431	
   2432						;  ,   
   2433						; 
   2434	143350	000610				000610			;.   X   
   2435									;	
   2436	143352	000234				000234			;.   Y   
   2437									;	
   2438	143354	001362				001362			;   X
   2439	143356	000261				000261			;  Y	 	1- 
   2440	
   2441	143360	001374				001374			;   X
   2442	143362	000257				000257			;  Y	 	2- 
   2443	
   2444	143364	001406				001406			;   X
   2445	143366	000255				000255			;  Y	 	3- 
   2446	
   2447	143370	001420				001420			;   X
   2448	143372	000253				000253			;  Y	 	4- 
   2449	
   2450	143374	001422				001432			;   X
   2451	143376	000251				000251			;  Y	 	5- 
-							       -						  -

				       -74-
			    589.7545471.00066-01 12 01


   2452	
   2453	143400	001444				001444			;   X
   2454	143402	000247				000247			;  Y	 	6- 
   2455	143404	000000				000000
   2456	143406	000000				000000
   2457	143410	000000				000000
   2458	143412	000000				000000
   2459	143414	000761				000761			;A   X
   2460	143416	000340				000340			;  Y	 	
   2461	
   2462	
   2463						;***********************************************************************
   2464						; 
   2465						;    	
   2466						; 
   2467						; 
   2468						;***********************************************************************
   2469	143420	004037	144174			JSR	R0,@#144174 
   2470	143424	013701	002006			MOV	@#2006,R1	;  	
   2471	143430	005061	000004			CLR	4(R1) 
   2472	143434	032761	020000	000004		BIT	#20000,4(R1)	; 	 ?
   2473	143442	001004				BNE	143454		;,  
   2474	143444	012761	000002	000010		MOV	#2,10(R1) 
   2475	143452	000403				BR	.+10
   2476	143454	012761	000002	000006		MOV	#2,6(R1)
   2477	143462	010361	000024			MOV	R3,24(R1)	;			
   2478	143466	024646				CMP	-(SP),-(SP) 
   2479	143470	016600	000024			MOV	24(SP),R0	;     	
   2480									;
   2481	143474	005710				TST	@R0		; ?	
   2482	143476	001412				BEQ	143524		;,   
   2483	143500	100003				BPL	.+10		;     
   2484	
   2485	143502	004737	143530			JSR	PC,@#143530	;    
   2486									;   
   2487	143506	000772				BR	143474
   2488	143510	012066	000002			MOV	(R0)+,2(SP)	; K  X 	 
   2489	143514	012016				MOV	(R0)+,@SP	;   Y 	 
   2490	143516	004737	143550			JSR	PC,@#143550	; ,  2   
   2491	143522	000764				BR	143474
   2492	143524	022626				CMP	(SP)+,(SP)+ 
   2493	143526	000207				RTS	PC
   2494	
   2495						;  	  
   2496						;  
   2497	
   2498	143530	012037	002010			MOV	(R0)+,@#2010	 ;    X 
   2499	143534	012037	002012			MOV	(R0)+,@#2012	 ;    Y 
   2500	143540	042737	100000	002010		BIC	#100000,@#2010
   2501	143546	000207				RTS	PC
   2502	
   2503						;*******************************************************************
   2504						; 
   2505						;  	,  2  ,
   2506						;    ,  1 
   2507						; 002010 -   X  
   2508						; 002012 -   Y  
-							       -						  -

				       -75-
			    589.7545471.00066-01 12 01


   2509						; 26(SP) -   X  
   2510						; 24(SP) -   Y  
   2511						; 
   2512						;***********************************************************************
   2513	
   2514	143550	004037	144174			JSR	R0,@#144174	; R1-R5  
   2515	
   2516	143554	024646				CMP	-(SP),-(SP) 
   2517	143556	005061	000004			CLR	4(R1) 
   2518	143562	013705	002010			MOV	@#2010,R5	;   X 	 
   2519	143566	010561	000016			MOV	R5,16(R1)	;	  	  (1) 
   2520	143572	013700	002012			MOV	@#2012,R0	;   Y 	 
   2521	143576	010061	000020			MOV	R0,20(R1)	;	  Y	  (Y1) 
   2522	143602	016637	000026	002014		MOV	26(SP),@#2014	;    	 (2)
   2523	143610	160537	002014			SUB	R5,@#2014	;   	 (X2-X1) 
   2524	143614	100002				BPL	.+6		;,  2-1>0
   2525	143616	005437	002014			NEG	@#2014		;    ( /2-1/ )
   2526	143622	016637	000024	002016		MOV	24(SP),@#2016	;   Y 	 (Y2)
   2527	143630	160037	002016			SUB	R0,@#2016	;   	Y (Y2-Y1) 
   2528	143634	100002				BPL	.+6		;,  Y2-Y1>0
   2529	143636	005437	002016			NEG	@#2016		;    ( /Y2-Y1/ )
   2530	143642	026605	000026			CMP	26(SP),R5	;2>1?	
   2531	143646	003404				BLE	143660		;,  
   2532	143650	012737	000001	002020		MOV	#1,@#2020	;1--> 2020,   2>1	
   2533	143656	000403				BR	.+10
   2534	143660	012737	177777	002020		MOV	#-1,@#2020	;-1-->2020,  X2    X1	
   2535	143666	026600	000024			CMP	24(SP),R0	 ;Y2>Y1?
   2536	143672	003404				BLE	143704		;,  
   2537	143674	012737	000001	002022		MOV	#1,@#2022	;1--> 2022,   Y2>Y1	
   2538	143702	000403				BR	.+10
   2539	143704	012737	177777	002022		MOV	#-1,@#2022	;-1-->2022,  Y2    Y1	
   2540	143712	010137	002034			MOV	R1,@#2034	;  
   2541	143716	010137	002036			MOV	R1,@#2036	;  
   2542	143722	013705	002014			MOV	@#2014,R5	; /X2-X1/
   2543	143726	013700	002016			MOV	@#2016,R0	; /Y2-Y1/
   2544	143732	020500				CMP	R5,R0		;/2-1/ > /Y2-Y1/ ?
   2545	143734	003426				BLE	144012		;,  
   2546	143736	010537	002024			MOV	R5,@#2024	; /X2-X1/
   2547	143742	010037	002026			MOV	R0,@#2026	; /Y2-Y1/
   2548	143746	012766	002010	000002		MOV	#2010,2(SP)	;  1 
   2549	143754	012716	002012			MOV	#2012,@SP	;  Y1 
   2550	143760	062737	000016	002034		ADD	#16,@#2034	; 	   	
   2551	143766	062737	000020	002036		ADD	#20,@#2036	; 	   Y	
   2552	143774	013737	002020	002030		MOV	@#2020,@#2030 
   2553	144002	013737	002022	002032		MOV	@#2022,@#2032 
   2554	144010	000425				BR	144064
   2555	144012	010037	002024			MOV	R0,@#2024	;   /Y2-Y1/
   2556	144016	010537	002026			MOV	R5,@#2026	;  /2-1/ 
   2557	144022	012766	002012	000002		MOV	#2012,2(SP)	; Y1 
   2558	144030	012716	002010			MOV	#2010,@SP	; 1 
   2559	144034	062737	000020	002034		ADD	#20,@#2034	; 	  Y
   2560	144042	062737	000016	002036		ADD	#16,@#2036	; 	  
   2561	144050	013737	002022	002030		MOV	@#2022,@#2030 
   2562	144056	013737	002020	002032		MOV	@#2020,@#2032 
   2563	144064	013702	002026			MOV	@#2026,R2 
   2564	144070	163702	002024			SUB	@#2024,R2 
   2565	144074	010205				MOV	R2,R5 
-							       -						  -

				       -76-
			    589.7545471.00066-01 12 01


   2566	144076	005003				CLR	R3
   2567	144100	000427				BR	144160
   2568	
   2569						;   
   2570	144102	012761	000001	000022		MOV	#1,22(R1)	 ;   = 1
   2571	144110	005705				TST	R5
   2572	144112	003410				BLE	144134
   2573	144114	063776	002032	000000		ADD	@#2032,@0(SP) 
   2574	144122	017677	000000	035706		MOV	@0(SP),@2036
   2575	144130	060205				ADD	R2,R5 
   2576	144132	000404				BR	144144
   2577	144134	013700	002026			MOV	@#2026,R0 
   2578	144140	060500				ADD	R5,R0 
   2579	144142	010005				MOV	R0,R5 
   2580	144144	063776	002030	000002		ADD	@#2030,@2(SP) 
   2581	144152	017677	000002	035654		MOV	@2(SP),@2034
   2582	144160	005203				INC	R3
   2583	144162	020337	002024			CMP	R3,@#2024 
   2584	144166	003745				BLE	144102
   2585	144170	022626				CMP	(SP)+,(SP)+ 
   2586	144172	000207				RTS	PC
   2587	
   2588						;    R1-R5 
   2589	
   2590	144174	010146				MOV	R1,-(SP)
   2591	144176	010246				MOV	R2,-(SP)
   2592	144200	010346				MOV	R3,-(SP)
   2593	144202	010446				MOV	R4,-(SP)
   2594	144204	010546				MOV	R5,-(SP)
   2595	144206	012746	144214			MOV	#144214,-(SP) 
   2596	144212	000110				JMP	@R0 
   2597	
   2598						;    R1-R5
   2599	
   2600	144214	012605				MOV	(SP)+,R5
   2601	144216	012604				MOV	(SP)+,R4
   2602	144220	012603				MOV	(SP)+,R3
   2603	144222	012602				MOV	(SP)+,R2
   2604	144224	012601				MOV	(SP)+,R1
   2605	144226	012600				MOV	(SP)+,R0
   2606	144230	000207				RTS	PC
   2607	
   2608		144232				.=144232
   2609						;      
   2610						;  
   2611	
   2612	144232	100761				100761
   2613	144234	000357				357 
   2614	144236	000305				305 
   2615	144240	000250				250 
   2616	144242	000305				305 
   2617	144244	000246				246 
   2618	144246	000761				761 
   2619	144250	000354				354 
   2620	144252	001111				1111
   2621	144254	000320				320 
   2622	144256	000435				435 
-							       -						  -

				       -77-
			    589.7545471.00066-01 12 01


   2623	144260	000220				220 
   2624	144262	000311				311 
   2625	144264	000246				246 
   2626	144266	100761				100761
   2627	144270	000357				357 
   2628	144272	001120				1120
   2629	144274	000334				334 
   2630	144276	001111				1111
   2631	144300	000322				322 
   2632	144302	101164				101164
   2633	144304	000324				324 
   2634	144306	000465				465 
   2635	144310	000220				220 
   2636	144312	000456				456 
   2637	144314	000207				207 
   2638	144316	000465				465 
   2639	144320	000160				160 
   2640	144322	000772				772 
   2641	144324	000122				122 
   2642	144326	001471				1471
   2643	144330	000211				211 
   2644	144332	001500				1500
   2645	144334	000241				241 
   2646	144336	001471				1471
   2647	144340	000253				253 
   2648	144342	001164				1164
   2649	144344	000324				324 
   2650	144346	101164				101164
   2651	144350	000306				306 
   2652	144352	001164				1164
   2653	144354	000255				255 
   2654	144356	001035				1035
   2655	144360	000233				233 
   2656	144362	101164				101164
   2657	144364	000317				317 
   2658	144366	000601				601 
   2659	144370	000234				234 
   2660	144372	000601				601 
   2661	144374	000231				231 
   2662	144376	000616				616 
   2663	144400	000226				226 
   2664	144402	100601				100601
   2665	144404	000231				231 
   2666	144406	001164				1164
   2667	144410	000314				314 
   2668	144412	001445				1445
   2669	144414	000247				247 
   2670	144416	001445				1445
   2671	144420	000253				253 
   2672	144422	001164				1164
   2673	144424	000320				320 
   2674	144426	101025				101025
   2675	144430	000231				231 
   2676	144432	000705				705 
   2677	144434	000212				212 
   2678	144436	100672				100672
   2679	144440	000211				211 
-							       -						  -

				       -78-
			    589.7545471.00066-01 12 01


   2680	144442	000505				505 
   2681	144444	000162				162 
   2682	144446	000764				764 
   2683	144450	000130				130 
   2684	144452	001151				1151
   2685	144454	000154				154 
   2686	144456	001151				1151
   2687	144460	000156				156 
   2688	144462	101151				101151
   2689	144464	000154				154 
   2690	144466	000672				672 
   2691	144470	000212				212 
   2692	144472	000672				672 
   2693	144474	000240				240 
   2694	144476	000510				510 
   2695	144500	000210				210 
   2696	144502	000510				510 
   2697	144504	000164				164 
   2698	144506	100705				100705
   2699	144510	000240				240 
   2700	144512	000705				705 
   2701	144514	000213				213 
   2702	144516	001033				1033
   2703	144520	000174				174 
   2704	144522	001047				1047
   2705	144524	000173				173 
   2706	144526	001067				1067
   2707	144530	000174				174 
   2708	144532	001067				1067
   2709	144534	000167				167 
   2710	144536	101067				101067
   2711	144540	000175				175 
   2712	144542	001144				1144
   2713	144544	000204				204 
   2714	144546	001151				1151
   2715	144550	000210				210 
   2716	144552	001151				1151
   2717	144554	000214				214 
   2718	144556	101144				101144
   2719	144560	000204				204 
   2720	144562	001137				1137
   2721	144564	000212				212 
   2722	144566	001025				1025
   2723	144570	000231				231 
   2724	144572	001025				1025
   2725	144574	000261				261 
   2726	144576	000705				705 
   2727	144600	000240				240 
   2728	144602	101035				101035
   2729	144604	000264				264 
   2730	144606	001035				1035
   2731	144610	000234				234 
   2732	144612	001206				1206
   2733	144614	000210				210 
   2734	144616	001336				1336
   2735	144620	000230				230 
   2736	144622	001336				1336
-							       -						  -

				       -79-
			    589.7545471.00066-01 12 01


   2737	144624	000261				261 
   2738	144626	001353				1353
   2739	144630	000263				263 
   2740	144632	101336				101336
   2741	144634	000261				261 
   2742	144636	001164				1164
   2743	144640	000306				306 
   2744	144642	101165				101165
   2745	144644	000255				255 
   2746	144646	001336				1336
   2747	144650	000227				227 
   2748	144652	101164				101164
   2749	144654	000306				306 
   2750	144656	001035				1035
   2751	144660	000263				263 
   2752	144662	001352				1352
   2753	144664	000263				263 
   2754	144666	001352				1352
   2755	144670	000226				226 
   2756	144672	001066				1066
   2757	144674	000167				167 
   2758	144676	101364				101364
   2759	144700	000261				261 
   2760	144702	001364				1364
   2761	144704	000224				224 
   2762	144706	001100				1100
   2763	144710	000165				165 
   2764	144712	101376				101376
   2765	144714	000257				257 
   2766	144716	001376				1376
   2767	144720	000222				222 
   2768	144722	001112				1112
   2769	144724	000163				163 
   2770	144726	101410				101410
   2771	144730	000255				255 
   2772	144732	001410				1410
   2773	144734	000220				220 
   2774	144736	001124				1124
   2775	144740	000161				161 
   2776	144742	101422				101422
   2777	144744	000253				253 
   2778	144746	001422				1422
   2779	144750	000216				216 
   2780	144752	001136				1136
   2781	144754	000157				157 
   2782	144756	101434				101434
   2783	144760	000251				251 
   2784	144762	001434				1434
   2785	144764	000214				214 
   2786	144766	001150				1150
   2787	144770	000155				155 
   2788	144772	101446				101446
   2789	144774	000247				247 
   2790	144776	001446				1446
   2791	145000	000212				212 
   2792	145002	001160				1160
   2793	145004	000154				154 
-							       -						  -




-							       -						  -

				       -80-
			    589.7545471.00066-01 12 01


   2794	145006	101066				101066
   2795	145010	000167				167 
   2796	145012	001164				1164
   2797	145014	000154				154 
   2798	145016	000000				000000
   2799	
   2800		145020				.=145020
   2801						;  "            "
   2802	
   2803		147510				.=147510
   2804						;      	 "?" 
   2805	
   2806		151362				.=151362
   2807						;***********************************************************************
   2808						; 
   2809						;  	  
   2810						;   
   2811						; 4(SP) -  	 X
   2812						; 2(SP) -  	 Y
   2813						; 
   2814						;***********************************************************************
   2815	
   2816	151362	013701	002006			MOV	@#2006,R1	;  	
   2817	151366	016637	000004	002040		MOV	4(SP),@#2040	;    X
   2818	151374	016637	000002	002042		MOV	2(SP),@#2042	;    Y
   2819	151402	004037	144174			JSR	R0,@#144174 
   2820	151406	012746	000004			MOV	#4,-(SP)
   2821	151412	012746	000140			MOV	#140,-(SP)
   2822	151416	011661	000026			MOV	@SP,26(R1)	;     
   2823									; 14000000-14077776	
   2824	151422	032761	020000	000004		BIT	#20000,4(R1)	;  	? 
   2825	151430	001004				BNE	151442		;,  
   2826	151432	012761	000042	000010		MOV	#42,10(R1)	;   	
   2827									;
   2828	151440	000403				BR	.+10
   2829	151442	012761	000042	000006		MOV	#42,6(R1)	;    
   2830	151450	006316				ASL	@SP 
   2831	151452	006316				ASL	@SP 
   2832	151454	104005				EMT+5			; 	 
   2833									;     
   2834	151456	022626				CMP	(SP)+,(SP)+ 
   2835	151460	012704	002144			MOV	#2144,R4
   2836	151464	012705	002170			MOV	#2170,R5
   2837	151470	105045				CLRB	-(R5) 
   2838	151472	013746	002040			MOV	@#2040,-(SP)	;   X
   2839	151476	013746	002042			MOV	@#2042,-(SP)	;   Y
   2840	151502	005316				DEC	@SP		;   Y  1	
   2841	151504	004737	153554			JSR	PC,@#153554	;   	? 
   2842	151510	103407				BCS	151530		;,   
   2843	151512	004737	153332			JSR	PC,@#153332 
   2844	151516	016644	000002			MOV	2(SP),-(R4) 
   2845	151522	011644				MOV	@SP,-(R4) 
   2846	151524	112745	000002			MOVB	#2,-(R5)
   2847	151530	022626				CMP	(SP)+,(SP)+ 
   2848	151532	013746	002040			MOV	@#2040,-(SP)	;   X
   2849	151536	013746	002042			MOV	@#2042,-(SP)	;   Y
   2850	151542	004737	153332			JSR	PC,@#153332 
-							       -						  -

				       -81-
			    589.7545471.00066-01 12 01


   2851	151546	012637	002042			MOV	(SP)+,@#2042
   2852	151552	012637	002040			MOV	(SP)+,@#2040
   2853	151556	013744	002040			MOV	@#2040,-(R4)
   2854	151562	013744	002042			MOV	@#2042,-(R4)
   2855	151566	112745	000001			MOVB	#1,-(R5)
   2856	151572	105715				TSTB	@R5		; ?
   2857	151574	001002				BNE	.+6		;,  
   2858	151576	000137	152442			JMP	@#152442	;     
   2859	151602	012437	002046			MOV	(R4)+,@#2046
   2860	151606	012437	002044			MOV	(R4)+,@#2044
   2861	151612	112537	002060			MOVB	(R5)+,@#2060
   2862	151616	012737	000377	002052		MOV	#377,@#2052	;   Y 
   2863	151624	012737	001777	002050		MOV	#1777,@#2050	;   X 
   2864	151632	013700	002044			MOV	@#2044,R0 
   2865	151636	053700	002046			BIS	@#2046,R0 
   2866	151642	001002				BNE	.+6 
   2867	151644	000137	152436			JMP	@#152436
   2868	151650	013746	002044			MOV	@#2044,-(SP)	;   X
   2869	151654	013746	002046			MOV	@#2046,-(SP)	;   Y
   2870	151660	004737	153554			JSR	PC,@#153554	;   	? 
   2871	151664	103003				BCC	.+10		;,  
   2872	151666	022626				CMP	(SP)+,(SP)+ 
   2873	151670	000137	152436			JMP	@#152436
   2874	151674	022626				CMP	(SP)+,(SP)+ 
   2875	151676	013737	002044	002040		MOV	@#2044,@#2040 
   2876	151704	013737	002046	002042		MOV	@#2046,@#2042 
   2877	151712	013746	002040			MOV	@#2040,-(SP)
   2878	151716	005316				DEC	@SP 
   2879	151720	013746	002042			MOV	@#2042,-(SP)
   2880	151724	004737	152466			JSR	PC,@#152466 
   2881	151730	022626				CMP	(SP)+,(SP)+ 
   2882	151732	023737	002040	002050		CMP	@#2040,@#2050 
   2883	151740	003402				BLE	.+6 
   2884	151742	000137	152436			JMP	@#152436
   2885	151746	005737	002062			TST	@#2062
   2886	151752	001425				BEQ	152026
   2887	151754	005737	002064			TST	@#2064
   2888	151760	001422				BEQ	152026
   2889	151762	032737	000001	002060		BIT	#1,@#2060 
   2890	151770	001007				BNE	152010
   2891	151772	013737	002066	002044		MOV	@#2066,@#2044 
   2892	152000	013737	002070	002046		MOV	@#2070,@#2046 
   2893	152006	000535				BR	152302
   2894	152010	013737	002072	002044		MOV	@#2072,@#2044 
   2895	152016	013737	002074	002046		MOV	@#2074,@#2046 
   2896	152024	000526				BR	152302
   2897	152026	013746	002040			MOV	@#2040,-(SP)
   2898	152032	013746	002042			MOV	@#2042,-(SP)
   2899	152036	004737	153506			JSR	PC,@#153506 
   2900	152042	004737	153332			JSR	PC,@#153332 
   2901	152046	016644	000002			MOV	2(SP),-(R4) 
   2902	152052	011644				MOV	@SP,-(R4) 
   2903	152054	022626				CMP	(SP)+,(SP)+ 
   2904	152056	032737	000001	002060		BIT	#1,@#2060 
   2905	152064	001403				BEQ	.+10
   2906	152066	112745	000002			MOVB	#2,-(R5)
   2907	152072	000402				BR	.+6 
-							       -						  -

				       -82-
			    589.7545471.00066-01 12 01


   2908	152074	112745	000001			MOVB	#1,-(R5)
   2909	152100	005737	002062			TST	@#2062
   2910	152104	001010				BNE	152126
   2911	152106	005737	002064			TST	@#2064
   2912	152112	001405				BEQ	152126
   2913	152114	032737	000001	002060		BIT	#1,@#2060 
   2914	152122	001401				BEQ	.+4 
   2915	152124	000412				BR	152152
   2916	152126	005737	002064			TST	@#2064
   2917	152132	001031				BNE	152216
   2918	152134	005737	002062			TST	@#2062
   2919	152140	001426				BEQ	152216
   2920	152142	032737	000002	002060		BIT	#2,@#2060 
   2921	152150	001422				BEQ	152216
   2922	152152	032737	000001	002060		BIT	#1,@#2060 
   2923	152160	001007				BNE	152200
   2924	152162	013737	002066	002044		MOV	@#2066,@#2044 
   2925	152170	013737	002070	002046		MOV	@#2070,@#2046 
   2926	152176	000441				BR	152302
   2927	152200	013737	002072	002044		MOV	@#2072,@#2044 
   2928	152206	013737	002074	002046		MOV	@#2074,@#2046 
   2929	152214	000432				BR	152302
   2930	152216	013746	002040			MOV	@#2040,-(SP)
   2931	152222	013746	002042			MOV	@#2042,-(SP)
   2932	152226	032737	000001	002060		BIT	#1,@#2060 
   2933	152234	001402				BEQ	.+6 
   2934	152236	005316				DEC	@SP 
   2935	152240	000401				BR	.+4 
   2936	152242	005216				INC	@SP 
   2937	152244	004737	153554			JSR	PC,@#153554 
   2938	152250	103407				BCS	152270
   2939	152252	004737	153332			JSR	PC,@#153332 
   2940	152256	012637	002046			MOV	(SP)+,@#2046
   2941	152262	012637	002044			MOV	(SP)+,@#2044
   2942	152266	000405				BR	152302
   2943	152270	022626				CMP	(SP)+,(SP)+ 
   2944	152272	005037	002044			CLR	@#2044
   2945	152276	005037	002046			CLR	@#2046
   2946	152302	013746	002040			MOV	@#2040,-(SP)
   2947	152306	013746	002042			MOV	@#2042,-(SP)
   2948	152312	004737	153420			JSR	PC,@#153420 
   2949	152316	005266	000002			INC	2(SP) 
   2950	152322	004737	152466			JSR	PC,@#152466 
   2951	152326	004737	153634			JSR	PC,@#153634	;  
   2952	152332	013737	002040	002050		MOV	@#2040,@#2050 
   2953	152340	013737	002042	002052		MOV	@#2042,@#2052 
   2954	152346	005737	002062			TST	@#2062
   2955	152352	001403				BEQ	.+10
   2956	152354	005737	002064			TST	@#2064
   2957	152360	001023				BNE	152430
   2958	152362	013766	002054	000002		MOV	@#2054,2(SP)	;   X
   2959	152370	013716	002056			MOV	@#2056,@SP	;   Y
   2960	152374	004737	153554			JSR	PC,@#153554	;   	? 
   2961	152400	103413				BCS	152430		;,   
   2962	152402	016644	000002			MOV	2(SP),-(R4) 
   2963	152406	011644				MOV	@SP,-(R4) 
   2964	152410	005737	002062			TST	@#2062
-							       -						  -

				       -83-
			    589.7545471.00066-01 12 01


   2965	152414	001003				BNE	.+10
   2966	152416	112745	000001			MOVB	#1,-(R5)
   2967	152422	000402				BR	.+6 
   2968	152424	112745	000002			MOVB	#2,-(R5)
   2969	152430	022626				CMP	(SP)+,(SP)+ 
   2970	152432	000137	151632			JMP	@#151632
   2971	152436	000137	151572			JMP	@#151572
   2972	152442	005061	000006			CLR	6(R1)		;   
   2973	152446	005061	000010			CLR	10(R1)
   2974	152452	005061	000014			CLR	14(R1)		;   
   2975	152456	005061	000004			CLR	4(R1)		;  
   2976	152462	104006				EMT+6			; 	  
   2977	152464	000207				RTS	PC		;  
   2978	152466	005037	002062			CLR	@#2062
   2979	152472	005037	002064			CLR	@#2064
   2980	152476	005037	002066			CLR	@#2066
   2981	152502	005037	002070			CLR	@#2070
   2982	152506	005037	002072			CLR	@#2072
   2983	152512	005037	002074			CLR	@#2074
   2984	152516	016646	000004			MOV	4(SP),-(SP) 
   2985	152522	016646	000004			MOV	4(SP),-(SP) 
   2986	152526	004737	153332			JSR	PC,@#153332 
   2987	152532	005316				DEC	@SP 
   2988	152534	005366	000002			DEC	2(SP) 
   2989	152540	004737	153554			JSR	PC,@#153554 
   2990	152544	103002				BCC	.+6 
   2991	152546	005237	002062			INC	@#2062
   2992	152552	062716	000002			ADD	#2,@SP
   2993	152556	004737	153554			JSR	PC,@#153554 
   2994	152562	103002				BCC	.+6 
   2995	152564	005237	002064			INC	@#2064
   2996	152570	005316				DEC	@SP 
   2997	152572	005266	000002			INC	2(SP) 
   2998	152576	004737	153554			JSR	PC,@#153554 
   2999	152602	103107				BCC	153022
   3000	152604	005316				DEC	@SP 
   3001	152606	004737	153554			JSR	PC,@#153554 
   3002	152612	103010				BCC	152634
   3003	152614	005366	000002			DEC	2(SP) 
   3004	152620	004737	153554			JSR	PC,@#153554 
   3005	152624	103405				BCS	152640
   3006	152626	005237	002062			INC	@#2062
   3007	152632	000402				BR	.+6 
   3008	152634	005366	000002			DEC	2(SP) 
   3009	152640	062716	000002			ADD	#2,@SP
   3010	152644	004737	153554			JSR	PC,@#153554 
   3011	152650	103410				BCS	152672
   3012	152652	005266	000002			INC	2(SP) 
   3013	152656	004737	153554			JSR	PC,@#153554 
   3014	152662	103005				BCC	152676
   3015	152664	005237	002064			INC	@#2064
   3016	152670	000402				BR	.+6 
   3017	152672	005266	000002			INC	2(SP) 
   3018	152676	162716	000002			SUB	#2,@SP
   3019	152702	004737	153554			JSR	PC,@#153554 
   3020	152706	103415				BCS	152742
   3021	152710	005366	000002			DEC	2(SP) 
-							       -						  -

				       -84-
			    589.7545471.00066-01 12 01


   3022	152714	004737	153554			JSR	PC,@#153554 
   3023	152720	103012				BCC	152746
   3024	152722	016637	000002	002066		MOV	2(SP),@#2066
   3025	152730	011637	002070			MOV	@SP,@#2070
   3026	152734	005237	002066			INC	@#2066
   3027	152740	000402				BR	.+6 
   3028	152742	005366	000002			DEC	2(SP) 
   3029	152746	062716	000002			ADD	#2,@SP
   3030	152752	004737	153554			JSR	PC,@#153554 
   3031	152756	103013				BCC	153006
   3032	152760	005266	000002			INC	2(SP) 
   3033	152764	004737	153554			JSR	PC,@#153554 
   3034	152770	103410				BCS	153012
   3035	152772	016637	000002	002072		MOV	2(SP),@#2072
   3036	153000	011637	002074			MOV	@SP,@#2074
   3037	153004	000402				BR	.+6 
   3038	153006	005266	000002			INC	2(SP) 
   3039	153012	005316				DEC	@SP 
   3040	153014	005266	000002			INC	2(SP) 
   3041	153020	000666				BR	152576
   3042	153022	005316				DEC	@SP 
   3043	153024	004737	153554			JSR	PC,@#153554 
   3044	153030	103010				BCC	153052
   3045	153032	005366	000002			DEC	2(SP) 
   3046	153036	004737	153554			JSR	PC,@#153554 
   3047	153042	103405				BCS	153056
   3048	153044	005237	002062			INC	@#2062
   3049	153050	000402				BR	.+6 
   3050	153052	005366	000002			DEC	2(SP) 
   3051	153056	062716	000002			ADD	#2,@SP
   3052	153062	004737	153554			JSR	PC,@#153554 
   3053	153066	103410				BCS	153110
   3054	153070	005266	000002			INC	2(SP) 
   3055	153074	004737	153554			JSR	PC,@#153554 
   3056	153100	103005				BCC	153114
   3057	153102	005237	002064			INC	@#2064
   3058	153106	000402				BR	.+6 
   3059	153110	005266	000002			INC	2(SP) 
   3060	153114	004737	153554			JSR	PC,@#153554 
   3061	153120	103015				BCC	153154
   3062	153122	016646	000002			MOV	2(SP),-(SP) 
   3063	153126	016646	000002			MOV	2(SP),-(SP) 
   3064	153132	004737	153420			JSR	PC,@#153420 
   3065	153136	012637	002074			MOV	(SP)+,@#2074
   3066	153142	012637	002072			MOV	(SP)+,@#2072
   3067	153146	005237	002072			INC	@#2072
   3068	153152	000417				BR	153212
   3069	153154	005366	000002			DEC	2(SP) 
   3070	153160	004737	153554			JSR	PC,@#153554 
   3071	153164	103010				BCC	153206
   3072	153166	005266	000002			INC	2(SP) 
   3073	153172	016637	000002	002072		MOV	2(SP),@#2072
   3074	153200	011637	002074			MOV	@SP,@#2074
   3075	153204	000402				BR	.+6 
   3076	153206	005266	000002			INC	2(SP) 
   3077	153212	162716	000002			SUB	#2,@SP
   3078	153216	004737	153554			JSR	PC,@#153554 
-							       -						  -

				       -85-
			    589.7545471.00066-01 12 01


   3079	153222	103016				BCC	153260
   3080	153224	016646	000002			MOV	2(SP),-(SP) 
   3081	153230	016646	000002			MOV	2(SP),-(SP) 
   3082	153234	004737	153420			JSR	PC,@#153420 
   3083	153240	012637	002070			MOV	(SP)+,@#2070
   3084	153244	012637	002066			MOV	(SP)+,@#2066
   3085	153250	005216				INC	@SP 
   3086	153252	005237	002066			INC	@#2066
   3087	153256	000420				BR	153320
   3088	153260	005366	000002			DEC	2(SP) 
   3089	153264	004737	153554			JSR	PC,@#153554 
   3090	153270	103010				BCC	153312
   3091	153272	005266	000002			INC	2(SP) 
   3092	153276	016637	000002	002066		MOV	2(SP),@#2066
   3093	153304	011637	002070			MOV	@SP,@#2070
   3094	153310	000402				BR	.+6 
   3095	153312	005266	000002			INC	2(SP) 
   3096	153316	005216				INC	@SP 
   3097	153320	012637	002056			MOV	(SP)+,@#2056
   3098	153324	012637	002054			MOV	(SP)+,@#2054
   3099	153330	000207				RTS	PC
   3100	153332	016646	000004			MOV	4(SP),-(SP)	;   X
   3101	153336	016646	000004			MOV	4(SP),-(SP)	;   Y
   3102	153342	012702	177777			MOV	#-1,R2
   3103	153346	004737	153554			JSR	PC,@#153554	;   	? 
   3104	153352	103401				BCS	.+4		;,   
   3105	153354	005002				CLR	R2		; R2,    	X, Y
   3106									; 
   3107	153356	005366	000002			DEC	2(SP)		;   X
   3108	153362	004737	153554			JSR	PC,@#153554	;   	? 
   3109	153366	103403				BCS	.+10		;,   
   3110	153370	005702				TST	R2
   3111	153372	001771				BEQ	153356
   3112	153374	000402				BR	.+6 
   3113	153376	005702				TST	R2
   3114	153400	001366				BNE	153356
   3115	153402	005266	000002			INC	2(SP) 
   3116	153406	012666	000004			MOV	(SP)+,4(SP)	;   Y
   3117	153412	012666	000004			MOV	(SP)+,4(SP)	;   X
   3118	153416	000207				RTS	PC
   3119	153420	016646	000004			MOV	4(SP),-(SP)	;   X
   3120	153424	016646	000004			MOV	4(SP),-(SP)	;   Y
   3121	153430	012702	177777			MOV	#-1,R2
   3122	153434	004737	153554			JSR	PC,@#153554	;   	? 
   3123	153440	103401				BCS	.+4		;,   
   3124	153442	005002				CLR	R2		; R2,    	X,Y 
   3125									; 
   3126	153444	005266	000002			INC	2(SP)		;   X
   3127	153450	004737	153554			JSR	PC,@#153554	;   	? 
   3128	153454	103403				BCS	.+10		;,   
   3129	153456	005702				TST	R2
   3130	153460	001771				BEQ	153444
   3131	153462	000402				BR	.+6 
   3132	153464	005702				TST	R2
   3133	153466	001366				BNE	153444
   3134	153470	005366	000002			DEC	2(SP) 
   3135	153474	012666	000004			MOV	(SP)+,4(SP)	;   Y
-							       -						  -

				       -86-
			    589.7545471.00066-01 12 01


   3136	153500	012666	000004			MOV	(SP)+,4(SP)	;   X
   3137	153504	000207				RTS	PC
   3138	153506	016646	000004			MOV	4(SP),-(SP) 
   3139	153512	016646	000004			MOV	4(SP),-(SP) 
   3140	153516	005366	000002			DEC	2(SP) 
   3141	153522	004737	153332			JSR	PC,@#153332 
   3142	153526	005366	000002			DEC	2(SP) 
   3143	153532	004737	153332			JSR	PC,@#153332 
   3144	153536	005266	000002			INC	2(SP) 
   3145	153542	012666	000004			MOV	(SP)+,4(SP) 
   3146	153546	012666	000004			MOV	(SP)+,4(SP) 
   3147	153552	000207				RTS	PC
   3148	
   3149						;     
   3150						; 
   3151						;  	     X 	Y.
   3152						;  ()    X	 Y 
   3153						;( 1),  -.   () 	
   3154						; ( 0), - . 
   3155	
   3156	153554	016600	000002			MOV	2(SP),R0	;   Y
   3157	153560	072027	000007			ASH	#7,R0		;  7  
   3158	153564	016601	000004			MOV	4(SP),R1	;   X
   3159	153570	072127	177775			ASH	#177775,R1	;  3   
   3160	153574	060100				ADD	R1,R0 
   3161	153576	062700	020000			ADD	#20000,R0	;     
   3162									; 
   3163	153602	016601	000004			MOV	4(SP),R1	;   X
   3164	153606	042701	177760			BIC	#177760,R1	; 		 
   3165	153612	010146				MOV	R1,-(SP)
   3166	153614	012701	000001			MOV	#1,R1 
   3167	153620	072126				ASH	(SP)+,R1
   3168	153622	030110				BIT	R1,@R0		; ?
   3169	153624	000261				SEC			; -  
   3170	153626	001001				BNE	.+4		;,   	
   3171	153630	000241				CLC			; -,    
   3172	153632	000207				RTS	PC		;  
   3173	
   3174						;   
   3175	
   3176	153634	062737	000002	002040		ADD	#2,@#2040 
   3177	153642	013700	002042			MOV	@#2042,R0	;   Y
   3178	153646	072027	000007			ASH	#7,R0		;  7  
   3179	153652	013701	002040			MOV	@#2040,R1	;   X
   3180	153656	072127	177775			ASH	#177775,R1	;  3   
   3181	153662	060100				ADD	R1,R0 
   3182	153664	062700	020000			ADD	#20000,R0	;     
   3183									; 
   3184	153670	013701	002040			MOV	@#2040,R1	;   X
   3185	153674	042701	177760			BIC	#177760,R1	; 		 
   3186	153700	010146				MOV	R1,-(SP)
   3187	153702	012701	000001			MOV	#1,R1 
   3188	153706	072126				ASH	(SP)+,R1
   3189	153710	030110				BIT	R1,@R0		; ?
   3190	153712	001004				BNE	153724		;,   
   3191	153714	050110				BIS	R1,@R0		;    
   3192									;X  Y
-							       -						  -

				       -87-
			    589.7545471.00066-01 12 01


   3193	153716	005237	002040			INC	@#2040		;   X
   3194	153722	000747				BR	153642
   3195	153724	005337	002040			DEC	@#2040
   3196	153730	000207				RTS	PC		;  
   3197	
   3198						;***********************************************************************
   3199						; 
   3200						;      	
   3201						; 
   3202						;***********************************************************************
   3203	
   3204	153732	004037	144174			JSR	R0,@#144174	; R1-R5  
   3205	153736	013701	002006			MOV	@#2006,R1	;  
   3206	153742	016604	000024			MOV	24(SP),R4 
   3207	153746	016661	000022	000016		MOV	22(SP),16(R1)	;	  	X 
   3208	153754	012705	000006			MOV	#6,R5 
   3209	153760	016661	000020	000020		MOV	20(SP),20(R1)	;	  	Y 
   3210	153766	112400				MOVB	(R4)+,R0	; 
   3211	153770	010446				MOV	R4,-(SP)
   3212	153772	010546				MOV	R5,-(SP)
   3213	153774	032700	000200			BIT	#200,R0		; 	?
   3214	154000	001414				BEQ	154032		;,  
   3215	154002	032761	020000	000004		BIT	#20000,4(R1)	;  	? 
   3216	154010	001004				BNE	154022		;,  
   3217	154012	052761	000001	000010		BIS	#1,10(R1)	; 	 	
   3218									;    
   3219	154020	000412				BR	154046
   3220	154022	052761	000001	000006		BIS	#1,6(R1)	; 	 	
   3221									;  
   3222	
   3223	154030	000406				BR	154046
   3224	154032	042761	000001	000006		BIC	#1,6(R1)	; 	 	
   3225	154040	042761	000001	000010		BIC	#1,10(R1) 
   3226	154046	042700	177600			BIC	#177600,R0
   3227	154052	010002				MOV	R0,R2 
   3228	154054	072027	000002			ASH	#2,R0 
   3229	154060	060200				ADD	R2,R0 
   3230	154062	006300				ASL	R0
   3231	154064	062700	154242			ADD	#154242,R0	; 		  
   3232	154070	012704	000012			MOV	#12,R4		;    
   3233	154074	112005				MOVB	(R0)+,R5
   3234	154076	010146				MOV	R1,-(SP)
   3235	154100	012701	000010			MOV	#10,R1		;    
   3236	154104	005002				CLR	R2
   3237	154106	005003				CLR	R3
   3238	154110	072327	000002			ASH	#2,R3 
   3239	154114	106105				ROLB	R5
   3240	154116	103403				BCS	.+10
   3241	154120	042703	000003			BIC	#3,R3 
   3242	154124	000402				BR	.+6 
   3243	154126	052703	000003			BIS	#3,R3 
   3244	154132	077112				SOB	R1,154110 
   3245	154134	073227	000010			ASHC	#10,R2
   3246	154140	072327	177774			ASH	#177774,R3
   3247	154144	012705	000002			MOV	#2,R5 
   3248	154150	012601				MOV	(SP)+,R1
   3249	154152	010361	000024			MOV	R3,24(R1) 
-							       -						  -

				       -88-
			    589.7545471.00066-01 12 01


   3250	154156	012761	000014	000022		MOV	#14,22(R1)
   3251	154164	062761	000014	000016		ADD	#14,16(R1)
   3252	154172	010261	000024			MOV	R2,24(R1) 
   3253	154176	012761	000014	000022		MOV	#14,22(R1)
   3254	154204	162761	000014	000016		SUB	#14,16(R1)
   3255	154212	005261	000020			INC	20(R1)
   3256	154216	077523				SOB	R5,154152 
   3257	154220	077453				SOB	R4,154074 
   3258	154222	012605				MOV	(SP)+,R5
   3259	154224	012604				MOV	(SP)+,R4
   3260	154226	062761	000030	000016		ADD	#30,16(R1)
   3261	154234	005305				DEC	R5		;  ?
   3262	154236	001250				BNE	153760		;,  
   3263	154240	000207				RTS	PC		;  
   3264	
   3265						;   
   3266	
   3267						;  0
   3268	154242	056000				056000
   3269	154244	050443				050443
   3270	154246	042511				042511
   3271	154250	016442				016442
   3272	154252	000000				000000
   3273	
   3274						;  1
   3275	154254	004000				004000
   3276	154256	005014				005014
   3277	154260	004010				004010
   3278	154262	037010				037010
   3279	154264	000000				000000
   3280	
   3281						;  2
   3282	154266	017000				017000
   3283	154270	040041				040041
   3284	154272	003070				003070
   3285	154274	077401				077401
   3286	154276	000000				000000
   3287	
   3288						;  3
   3289	154300	077400				077400
   3290	154302	010040				010040
   3291	154304	040070				040070
   3292	154306	037101				037101
   3293	154310	000000				000000
   3294	
   3295						;  4
   3296	154312	010000				010000
   3297	154314	012030				012030
   3298	154316	077422				077422
   3299	154320	010020				010020
   3300	154322	000000				000000
   3301	
   3302						;  5
   3303	154324	077400				077400
   3304	154326	036401				036401
   3305	154330	040103				040103
   3306	154332	037101				037101
-							       -						  -

				       -89-
			    589.7545471.00066-01 12 01


   3307	154334	000000				000000
   3308	
   3309						;  6
   3310	154336	036000				036000
   3311	154340	000502				000502
   3312	154342	041475				041475
   3313	154344	036102				036102
   3314	154346	000000				000000
   3315	
   3316						;  7
   3317	154350	077400				077400
   3318	154352	020100				020100
   3319	154354	004020				004020
   3320	154356	001004				001004
   3321	154360	000000				000000
   3322	
   3323						;  8
   3324	154362	037000				037000
   3325	154364	040501				040501
   3326	154366	040476				040476
   3327	154370	037101				037101
   3328	154372	000000				000000
   3329	
   3330						;  9
   3331	154374	017000				017000
   3332	154376	060441				060441
   3333	154400	040136				040136
   3334	154402	017041				017041
   3335	154404	000000				000000
   3336	
   3337						;  " ? "
   3338	154406	037000				037000
   3339	154410	030101				030101
   3340	154412	004010				004010
   3341	154414	004000				004000
   3342	154416	000000				000000
   3343	
   3344	
   3345						;*********************************************************************
   3346						; 
   3347						;    
   3348						; 
   3349						;**********************************************************************	
   3350		154420				.=154420
   3351	154420	004037	144174			JSR	R0,@#144174 
   3352	154424	013701	002006			MOV	@#2006,R1 
   3353	154430	012761	001000	000004		MOV	#1000,4(R1) 
   3354	154436	012761	000002	000006		MOV	#2,6(R1)
   3355	154444	012761	001002	000010		MOV	#1002,10(R1)
   3356	154452	005061	000016			CLR	16(R1)
   3357	154456	005061	000020			CLR	20(R1)
   3358	154462	005061	000024			CLR	24(R1)
   3359	154466	012761	177777	000022		MOV	#-1,22(R1)
   3360	154474	005761	000004			TST	4(R1) 
   3361	154500	100375				BPL	.-4 
   3362	154502	005061	000006			CLR	6(R1) 
   3363	154506	005061	000010			CLR	10(R1)
-							       -						  -

				       -90-
			    589.7545471.00066-01 12 01


   3364	154512	000207				RTS	PC
   3365	
   3366						;***********************************************************************
   3367						; 
   3368						;      
   3369						;-  	.	    ,	
   3370						;   002000
   3371						; 
   3372						;***********************************************************************
   3373	
   3374	154514	113701	001005			MOVB	@#1005,R1 
   3375	154520	042701	177600			BIC	#177600,R1
   3376	154524	005065	000002			CLR	2(R5)		;   	 
   3377	154530	012700	000012			MOV	#12,R0
   3378	154534	005715				TST	@R5		;    13  
   3379	154536	077002				SOB	R0,.-2
   3380	154540	010246				MOV	R2,-(SP)
   3381	154542	012700	001000			MOV	#1000,R0
   3382	154546	012704	000020			MOV	#20,R4
   3383	154552	111520				MOVB	@R5,(R0)+	;   13-32  
   3384	154554	077402				SOB	R4,.-2		;	 ,   	001000
   3385	154556	012704	001000			MOV	#1000,R4
   3386	154562	011602				MOV	@SP,R2		;   	
   3387	
   3388						;   13-24      
   3389						; ,  	 164732-164742 
   3390						;  
   3391	154564	012700	000012			MOV	#12,R0
   3392	154570	122224				CMPB	(R2)+,(R4)+	;	?
   3393	154572	001403				BEQ	.+10		;,   
   3394	154574	011602				MOV	@SP,R2		;   	
   3395	154576	000137	154774			JMP	@#154774
   3396	154602	077006				SOB	R0,154570 
   3397	154604	105737	001017			TSTB	@#1017		; 32  	 = 0? 
   3398	154610	001012				BNE	154636		;,  
   3399	154612	113737	001015	001022		MOVB	@#1015,@#1022	;  001022   - 
   3400	154620	113737	001016	001023		MOVB	@#1016,@#1023 
   3401	154626	023727	001022	060000		CMP	@#1022,#60000	; 	60000?
   3402	154634	101403				BLOS	.+10		; , 	
   3403	154636	012702	177777			MOV	#-1,R2		;  
   3404	154642	000454				BR	154774
   3405	154644	005065	000002			CLR	2(R5)		;   	 
   3406	154650	005715				TST	@R5		;    -
   3407	154652	005337	001012			DEC	@#1012
   3408	154656	001374				BNE	.-6 
   3409	154660	105737	001014			TSTB	@#1014
   3410	154664	001403				BEQ	.+10
   3411	154666	105337	001014			DECB	@#1014
   3412	154672	000766				BR	154650
   3413	154674	012700	002000			MOV	#2000,R0	;  
   3414	154700	013704	001022			MOV	@#1022,R4	;  	-	
   3415	154704	006204				ASR	R4		;  	-	
   3416	
   3417						;  -     
   3418						;   
   3419	
   3420	154706	012737	177777	001020		MOV	#-1,@#1020
-							       -						  -

				       -91-
			    589.7545471.00066-01 12 01


   3421	154714	010146				MOV	R1,-(SP)
   3422	154716	111537	001022			MOVB	@R5,@#1022	;  - 
   3423	154722	111537	001023			MOVB	@R5,@#1023	;  	-	
   3424	154726	013701	001022			MOV	@#1022,R1	; 	
   3425	154732	074137	001020			XOR	R1,@#1020 
   3426	154736	000241				CLC 
   3427	154740	006137	001020			ROL	@#1020
   3428	154744	005537	001020			ADC	@#1020
   3429	154750	010120				MOV	R1,(R0)+	; 2  -  	
   3430	154752	077417				SOB	R4,154716	;   	 
   3431									;-
   3432	154754	012601				MOV	(SP)+,R1
   3433	154756	005737	001020			TST	@#1020		;=0?
   3434	154762	001403				BEQ	.+10		;,   
   3435	154764	012702	177776			MOV	#177776,R2	;	  -
   3436									;  177776 	  
   3437									;  
   3438	154770	000401				BR	.+4 
   3439	154772	005002				CLR	R2		;    
   3440	154774	020216				CMP	R2,@SP
   3441	154776	001004				BNE	155010
   3442	155000	005301				DEC	R1
   3443	155002	001257				BNE	154542
   3444	155004	012702	177777			MOV	#-1,R2
   3445	155010	005726				TST	(SP)+ 
   3446	155012	000207				RTS	PC
   3447	
   3448						;**********************************************************************	
   3449						; 
   3450						;    O  
   3451						;     002000-0002004,002010
   3452						; 
   3453						;***********************************************************************
   3454	155014	005037	137556			CLR	@#137556	;  
   3455	155020	032737	000020	173700		BIT	#20,@#173700	; ? 
   3456	155026	001003				BNE	.+10		;,   
   3457	155030	012737	000004	173704		MOV	#4,@#173704	;  	
   3458									;   1,2,4 
   3459	
   3460						;   ,  	
   3461						;  	  	 
   3462	155036	005002				CLR	R2
   3463	155040	010246				MOV	R2,-(SP)
   3464	155042	011602				MOV	@SP,R2
   3465	155044	010201				MOV	R2,R1 
   3466	155046	072127	000002			ASH	#2,R1 
   3467	155052	005401				NEG	R1
   3468	155054	105761	137756			TSTB	137756(R1)	; ?
   3469	155060	001047				BNE	155200		;,  
   3470	155062	022761	001002	137760		CMP	#1002,137760(R1) ;    ?
   3471	155070	001024				BNE	155142		;,  
   3472	155072	012737	143420	002000		MOV	#143420,@#2000	;   002000-002004, 002010	
   3473	155100	012737	151362	002002		MOV	#151362,@#2002	;	  
   3474	155106	012737	153732	002004		MOV	#153732,@#2004
   3475	155114	012737	154420	002010		MOV	#154420,@#2010
   3476	155122	012602				MOV	(SP)+,R2
   3477	155124	072227	000007			ASH	#7,R2 
-							       -						  -

				       -92-
			    589.7545471.00066-01 12 01


   3478	155130	062702	174000			ADD	#174000,R2	; 	
   3479	155134	010237	002006			MOV	R2,@#2006	; 	
   3480	155140	000207				RTS	PC		;  
   3481	155142	010205				MOV	R2,R5 
   3482	155144	012746	000010			MOV	#10,-(SP) 
   3483	155150	004737	167340			JSR	PC,@#167340 
   3484	155154	103410				BCS	155176
   3485	155156	013702	164756			MOV	@#164756,R2 
   3486	155162	004737	154514			JSR	PC,@#154514 
   3487	155166	005702				TST	R2
   3488	155170	001402				BEQ	.+6 
   3489	155172	005726				TST	(SP)+ 
   3490	155174	000752				BR	155122
   3491	155176	005726				TST	(SP)+ 
   3492	155200	005216				INC	@SP 
   3493	155202	021627	000010			CMP	@SP,#10	
   3494	155206	001315				BNE	155042
   3495	155210	012737	155242	002000		MOV	#155242,@#2000
   3496	155216	012737	155242	002002		MOV	#155242,@#2002
   3497	155224	012737	155242	002004		MOV	#155242,@#2004
   3498	155232	012737	155242	002010		MOV	#155242,@#2010
   3499	155240	000730				BR	155122
   3500	155242	000207				RTS	PC
   3501	
   3502	
   3503						;***********************************************************************
   3504						; 
   3505						;  " "   
   3506						; 		   (  )	
   3507						; 
   3508						;*********************************************************************
   3509	
   3510	155244	005002				CLR	R2
   3511	155246	020027	000003			CMP	R0,#3 
   3512	155252	003043				BGT	155362
   3513	155254	010002				MOV	R0,R2 
   3514	155256	006302				ASL	R2
   3515	155260	152702	000100			BISB	#100,R2	
   3516	155264	110261	000004			MOVB	R2,4(R1)	 ;  "  "
   3517	155270	112761	000001	000006		MOVB	#1,6(R1)	 ;  
   3518	155276	112761	000001	000010		MOVB	#1,10(R1)	 ;  
   3519	155304	112761	000000	000024		MOVB	#0,24(R1)	 ;  
   3520	155312	132761	000010	000004		BITB	#10,4(R1)	 ;  
   3521	155320	001774				BEQ	.-6 
   3522	155322	105761	000004			TSTB	4(R1)		; ?
   3523	155326	100415				BMI	155362		;,   
   3524	155330	005002				CLR	R2		;  
   3525	155332	105761	000022			TSTB	22(R1)		;   	
   3526	155336	012703	001000			MOV	#1000,R3	;    
   3527	155342	005303				DEC	R3
   3528	155344	002403				BLT	.+10
   3529	155346	116122	000020			MOVB	20(R1),(R2)+	;   
   3530	155352	000773				BR	155342
   3531	155354	012702	055104			MOV	#55104,R2	;  	 (DZ) 
   3532	155360	005727	000261			TST	#261
   3533	155364	000207				RTS	PC
   3534	
-							       -						  -

				       -93-
			    589.7545471.00066-01 12 01


   3535						;***********************************************************************
   3536						; 
   3537						; " "   
   3538						; 		   () 
   3539						; 
   3540						; 
   3541						;**********************************************************************	
   3542	155366	005002				CLR	R2
   3543	155370	005700				TST	R0
   3544	155372	001051				BNE	155516
   3545	155374	132761	100000	000020		BITB	#100000,20(R1)	 ;   
   3546	155402	001374				BNE	.-6 
   3547	155404	012761	000000	000014		MOV	#0,14(R1)	 ;  
   3548	155412	012761	000001	000006		MOV	#1,6(R1)	 ;  
   3549	155420	012761	000000	000012		MOV	#0,12(R1)	 ;  	
   3550	155426	012761	000040	000016		MOV	#40,16(R1)	 ;   " " 
   3551	155434	132761	100000	000020		BITB	#100000,20(R1)	 ;   
   3552	155442	001374				BNE	.-6 
   3553	155444	132761	000200	000020		BITB	#200,20(R1) 
   3554	155452	001774				BEQ	.-6 
   3555	155454	132761	000001	000017		BITB	#1,17(R1)	; ?
   3556	155462	001015				BNE	155516		;,   
   3557	155464	005002				CLR	R2		;  ,  000000 
   3558	155466	012703	000400			MOV	#400,R3		;   	
   3559	155472	032761	000200	000020		BIT	#200,20(R1) 
   3560	155500	001774				BEQ	.-6 
   3561	155502	016122	000010			MOV	10(R1),(R2)+	;   ,  	 000000 
   3562	155506	077307				SOB	R3,155472 
   3563	155510	012702	053504			MOV	#53504,R2	;  	 (DW)
   3564	155514	005727	000261			TST	#261		;  
   3565	155520	000207				RTS	PC
   3566	
   3567		160000				.=160000
   3568	160000	000005				RESET			;  RESET
   3569	160002	005737	173406			TST	@#173406	;	  	 
   3570									;:
   3571	160006	012737	000116	173404		MOV	#116,@#173404	;	    8-
   3572									;  1-  
   3573	160014	012737	000276	173404		MOV	#276,@#173404	;	 	- 9600 /
   3574	160022	012737	000047	173406		MOV	#47,@#173406	;      	
   3575	160030	052737	000200	173700		BIS	#200,@#173700	;  
   3576	
   3577						;***********************************************************************
   3578						; 
   3579						;  	 	
   3580						; 
   3581						;  	  	  4 	
   3582						;, 		  ,   
   3583						;JSR R0,XXXXXX   XXXXXX,     
   3584						;BR .+0	(000777). 
   3585						;  	    
   3586						;   ,     	
   3587						; /,   .
   3588						;***********************************************************************
   3589	
   3590	160036	012700	000340			MOV	#340,R0		;   = 7
   3591	160042	106400				MTPS	R0
-							       -						  -

				       -94-
			    589.7545471.00066-01 12 01


   3592	160044	012706	001002			MOV	#1002,SP	; 
   3593	160050	005001				CLR	R1		;  R1-R5
   3594	160052	005002				CLR	R2
   3595	160054	005003				CLR	R3
   3596	160056	005004				CLR	R4
   3597	160060	005005				CLR	R5
   3598	160062	004037	160070			JSR	R0,@#160070	;  JSR
   3599	160066	000777				BR	.+0		;.   
   3600									;- 
   3601	
   3602						;**********************************************************************	
   3603						;    
   3604						;   ,
   3605						;   ,
   3606						;  N
   3607						; 160066, R0=160066
   3608	
   3609	160070	000257				CCC			;  N,Z,V,C
   3610	
   3611						;  
   3612	160072	001775				BEQ	.-4		;,  Z=1
   3613	160074	100774				BMI	.-6		;,  N=1
   3614	160076	102773				BVS	160066		;,  V=1
   3615	160100	103772				BCS	160066		;,  C=1
   3616	160102	002771				BLT	160066		;,  NVV=1
   3617	160104	003770				BLE	160066		;,  ZV(NVV)=1
   3618	160106	101767				BLOS	160066		;,  CVZ=1
   3619	160110	101015				BHI	160144		;,  CVZ=0
   3620	160112	100365				BPL	160066		;,  N=0
   3621	160114	002364				BGE	160066		;,  NVV=0
   3622	160116	003363				BGT	160066		;,  ZV(NVV)=0
   3623	160120	002400				BLT	.+2		;,  NVV=1
   3624	160122	000277				SCC			;  N,Z,V,C
   3625	
   3626						;  
   3627	160124	001360				BNE	160066		;,  Z=0
   3628	160126	100357				BPL	160066		;,  N=0
   3629	160130	102356				BVC	160066		;,  V=0
   3630	160132	103355				BCC	160066		;,  C=0
   3631	160134	003354				BGT	160066		;,  ZV(NVV)=0
   3632	160136	101353				BHI	160066		;,  CVZ=0
   3633	160140	002752				BLT	160066		;,  NVV=1
   3634	160142	002002				BGE	.+6		;,  NVV=0
   3635	160144	000270				SEN			; N-
   3636	160146	000761				BR	160112		;     
   3637	
   3638						;***********************************************************************
   3639						;    JSR 
   3640	
   3641	160150	022700	160066			CMP	#160066,R0	;R0   ,   JSR? 
   3642	160154	001344				BNE	160066		;  ,  
   3643	160156	022706	001000			CMP	#1000,SP	;   2    JSR? 
   3644	160162	001341				BNE	160066		;  ,  
   3645	160164	022737	000340	001000		CMP	#340,@#1000	; R0    ? 
   3646	160172	001335				BNE	160066		;  ,  
   3647	160174	005726				TST	(SP)+		;  
   3648	160176	022706	001002			CMP	#1002,SP	; = 1002? 
-							       -						  -

				       -95-
			    589.7545471.00066-01 12 01


   3649	160202	001331				BNE	160066		;  ,  
   3650						;***************************************************************
   3651						;     
   3652						;  (  R1) 
   3653						; 	160066,	R0=160320 
   3654	
   3655	160204	000277				SCC			; 	
   3656	160206	005001				CLR	R1
   3657	160210	001041				BNE	160314
   3658	160212	101040				BHI	160314
   3659	160214	003037				BGT	160314
   3660	160216	005101				COM	R1
   3661	160220	103035				BCC	160314
   3662	160222	003034				BGT	160314
   3663	160224	005401				NEG	R1
   3664	160226	101032				BHI	160314
   3665	160230	002431				BLT	160314
   3666	160232	006001				ROR	R1
   3667	160234	103027				BCC	160314
   3668	160236	100026				BPL	160314
   3669	160240	005501				ADC	R1
   3670	160242	103424				BCS	160314
   3671	160244	000261				SEC 
   3672	160246	100022				BPL	160314
   3673	160250	002021				BGE	160314
   3674	160252	006101				ROL	R1
   3675	160254	103017				BCC	160314
   3676	160256	102016				BVC	160314
   3677	160260	006201				ASR	R1
   3678	160262	103014				BCC	160314
   3679	160264	102013				BVC	160314
   3680	160266	005601				SBC	R1
   3681	160270	003011				BGT	160314
   3682	160272	006301				ASL	R1
   3683	160274	002407				BLT	160314
   3684	160276	005201				INC	R1
   3685	160300	001405				BEQ	160314
   3686	160302	005301				DEC	R1
   3687	160304	001003				BNE	.+10
   3688	160306	005701				TST	R1
   3689	160310	003001				BGT	.+4 
   3690	160312	001402				BEQ	.+6 
   3691	160314	004037	160066			JSR	R0,@#160066 
   3692	
   3693						;***********************************************************************
   3694						;   
   3695						;	  MOVB     	
   3696						;(  .	 R2) 
   3697						; 	160066,	R0=160434 
   3698	
   3699	160320	112702	000377			MOVB	#377,R2	
   3700	160324	001405				BEQ	160340
   3701	160326	105002				CLRB	R2
   3702	160330	101037				BHI	160430
   3703	160332	105102				COMB	R2
   3704	160334	103035				BCC	160430
   3705	160336	100034				BPL	160430
-							       -						  -

				       -96-
			    589.7545471.00066-01 12 01


   3706	160340	105602				SBCB	R2
   3707	160342	103432				BCS	160430
   3708	160344	105202				INCB	R2
   3709	160346	100030				BPL	160430
   3710	160350	105402				NEGB	R2
   3711	160352	101026				BHI	160430
   3712	160354	105302				DECB	R2
   3713	160356	103024				BCC	160430
   3714	160360	003023				BGT	160430
   3715	160362	000302				SWAB	R2
   3716	160364	001421				BEQ	160430
   3717	160366	106302				ASLB	R2
   3718	160370	002017				BGE	160430
   3719	160372	106002				RORB	R2
   3720	160374	103415				BCS	160430
   3721	160376	003414				BLE	160430
   3722	160400	106202				ASRB	R2
   3723	160402	103012				BCC	160430
   3724	160404	102411				BVS	160430
   3725	160406	106102				ROLB	R2
   3726	160410	100007				BPL	160430
   3727	160412	001406				BEQ	160430
   3728	160414	105502				ADCB	R2
   3729	160416	100404				BMI	160430
   3730	160420	001003				BNE	.+10
   3731	160422	105702				TSTB	R2
   3732	160424	103401				BCS	.+4 
   3733	160426	001402				BEQ	.+6 
   3734	160430	004037	160066			JSR	R0,@#160066 
   3735	
   3736						;***********************************************************************
   3737						;   MOV    27, 37, 	77
   3738						;  
   3739						; 	160650,	R0=160502 
   3740	
   3741	160434	012701	160636			MOV	#160636,R1	;   27 
   3742	160440	022701	160636			CMP	#160636,R1
   3743	160444	001014				BNE	160476
   3744	160446	013702	160636			MOV	@#160636,R2	;   37 
   3745	160452	013703	160636			MOV	@#160636,R3	;   37 
   3746	160456	021102				CMP	@R1,R2
   3747	160460	001006				BNE	160476
   3748	160462	021103				CMP	@R1,R3
   3749	160464	001004				BNE	160476
   3750	160466	017704	000144			MOV	@160636,R4	;   77 
   3751	160472	021204				CMP	@R2,R4
   3752	160474	001402				BEQ	.+6 
   3753	160476	004037	160650			JSR	R0,@#160650 
   3754	
   3755	
   3756						;***********************************************************************
   3757						;     	 
   3758						;  MOV	
   3759						; 	160650,	R0=160636 
   3760	
   3761	160502	012700	160636			MOV	#160636,R0
   3762	160506	012001				MOV	(R0)+,R1
-							       -						  -

				       -97-
			    589.7545471.00066-01 12 01


   3763	160510	012002				MOV	(R0)+,R2	; 	
   3764	160512	022700	160642			CMP	#160642,R0
   3765	160516	001045				BNE	160632
   3766	160520	011203				MOV	@R2,R3		;-  
   3767	160522	022703	052525			CMP	#52525,R3 
   3768	160526	001041				BNE	160632
   3769	160530	012204				MOV	(R2)+,R4	; 	
   3770	160532	020403				CMP	R4,R3 
   3771	160534	001036				BNE	160632
   3772	160536	012204				MOV	(R2)+,R4	; 	
   3773	160540	022704	125252			CMP	#125252,R4
   3774	160544	001032				BNE	160632
   3775	160546	014205				MOV	-(R2),R5	; 	
   3776	160550	020405				CMP	R4,R5 
   3777	160552	001027				BNE	160632
   3778	160554	014205				MOV	-(R2),R5	; 	
   3779	160556	020503				CMP	R5,R3 
   3780	160560	001024				BNE	160632
   3781	160562	015001				MOV	@-(R0),R1	;- 
   3782	160564	020103				CMP	R1,R3 
   3783	160566	001021				BNE	160632
   3784	160570	015001				MOV	@-(R0),R1	;- 
   3785	160572	020401				CMP	R4,R1 
   3786	160574	001016				BNE	160632
   3787	160576	013002				MOV	@(R0)+,R2	;- 
   3788	160600	020204				CMP	R2,R4 
   3789	160602	001013				BNE	160632
   3790	160604	013002				MOV	@(R0)+,R2 
   3791	160606	020302				CMP	R3,R2 
   3792	160610	001010				BNE	160632
   3793	160612	016002	000004			MOV	4(R0),R2	; 
   3794	160616	020102				CMP	R1,R2 
   3795	160620	001004				BNE	160632
   3796	160622	017002	177776			MOV	@177776(R0),R2	;-  
   3797	160626	020302				CMP	R3,R2 
   3798	160630	001410				BEQ	160652
   3799	160632	004037	160650			JSR	R0,@#160650 
   3800	
   3801						;	
   3802	
   3803	160636	160642				160642
   3804	160640	160644				160644
   3805	160642	125252				125252
   3806	160644	052525				052525
   3807	160646	125252				125252
   3808	
   3809	160650	000777				BR	.+0		;.   
   3810									;- 
   3811	
   3812						;***********************************************************************
   3813						;     	 
   3814						;  MOV	
   3815						; 	161470,	  R0=161006 
   3816	
   3817	160652	012700	161436			MOV	#161436,R0
   3818	160656	012001				MOV	(R0)+,R1
   3819	160660	012002				MOV	(R0)+,R2
-							       -						  -

				       -98-
			    589.7545471.00066-01 12 01


   3820	160662	012003				MOV	(R0)+,R3
   3821	160664	011304				MOV	@R3,R4
   3822	160666	010305				MOV	R3,R5 
   3823	160670	011172	000010			MOV	@R1,@10(R2)	;-  
   3824	160674	022170	000020			CMP	(R1)+,@20(R0) 
   3825	160700	001040				BNE	161002
   3826	160702	011166	177776			MOV	@R1,177776(SP)	; 
   3827	160706	022166	177776			CMP	(R1)+,177776(SP)
   3828	160712	001033				BNE	161002
   3829	160714	011133				MOV	@R1,@(R3)+	;- 
   3830	160716	022135				CMP	(R1)+,@(R5)+
   3831	160720	001030				BNE	161002
   3832	160722	020305				CMP	R3,R5 
   3833	160724	001026				BNE	161002
   3834	160726	022705	161466			CMP	#161466,R5
   3835	160732	001023				BNE	161002
   3836	160734	011153				MOV	@R1,@-(R3)	;- 
   3837	160736	022155				CMP	(R1)+,@-(R5)
   3838	160740	001020				BNE	161002
   3839	160742	020102				CMP	R1,R2 
   3840	160744	001016				BNE	161002
   3841	160746	010405				MOV	R4,R5		; 
   3842	160750	011114				MOV	@R1,@R4		;-  
   3843	160752	022115				CMP	(R1)+,@R5 
   3844	160754	001012				BNE	161002
   3845	160756	011124				MOV	@R1,(R4)+	; 	
   3846	160760	022125				CMP	(R1)+,(R5)+ 
   3847	160762	001007				BNE	161002
   3848	160764	020405				CMP	R4,R5 
   3849	160766	001005				BNE	161002
   3850	160770	020604				CMP	SP,R4 
   3851	160772	001003				BNE	.+10
   3852	160774	011145				MOV	@R1,-(R5)	; 	
   3853	160776	022144				CMP	(R1)+,-(R4) 
   3854	161000	001402				BEQ	.+6 
   3855	161002	004037	161470			JSR	R0,@#161470 
   3856	
   3857						;***********************************************************************
   3858						;    MOV 	 
   3859						;37  77   
   3860						; 	161470	R0=161056 
   3861	
   3862	161006	012702	161440			MOV	#161440,R2
   3863	161012	012203				MOV	(R2)+,R3
   3864	161014	012204				MOV	(R2)+,R4
   3865	161016	011405				MOV	@R4,R5
   3866	161020	010637	001000			MOV	SP,@#1000	;  37 
   3867	161024	020615				CMP	SP,@R5
   3868	161026	001011				BNE	161052
   3869	161030	011237	001000			MOV	@R2,@#1000	;  37 
   3870	161034	021215				CMP	@R2,@R5	
   3871	161036	001005				BNE	161052
   3872	161040	012777	052525	000416		MOV	#52525,@161464	;  77 
   3873	161046	021315				CMP	@R3,@R5	
   3874	161050	001402				BEQ	.+6 
   3875	161052	004037	161470			JSR	R0,@#161470 
   3876	
-							       -						  -

				       -99-
			    589.7545471.00066-01 12 01


   3877						;**********************************************************************	
   3878						;     
   3879						; 	   
   3880						; 	161470,	R0=161132 
   3881	
   3882	161056	012702	161442			MOV	#161442,R2
   3883	161062	011203				MOV	@R2,R3
   3884	161064	011304				MOV	@R3,R4
   3885	161066	005014				CLR	@R4 
   3886	161070	005124				COM	(R4)+ 
   3887	161072	005444				NEG	-(R4) 
   3888	161074	006033				ROR	@(R3)+
   3889	161076	005553				ADC	@-(R3)
   3890	161100	000261				SEC 
   3891	161102	006172	000022			ROL	@22(R2)	
   3892	161106	006266	177776			ASR	177776(SP)
   3893	161112	005614				SBC	@R4 
   3894	161114	006324				ASL	(R4)+ 
   3895	161116	005244				INC	-(R4) 
   3896	161120	005333				DEC	@(R3)+
   3897	161122	005753				TST	@-(R3)
   3898	161124	001402				BEQ	.+6 
   3899	161126	004037	161470			JSR	R0,@#161470 
   3900	
   3901						;***********************************************************************
   3902						;   
   3903						;	      
   3904						; 	161470,	R0=161206 
   3905	
   3906	161132	012714	177777			MOV	#-1,@R4	
   3907	161136	105014				CLRB	@R4 
   3908	161140	105124				COMB	(R4)+ 
   3909	161142	105644				SBCB	-(R4) 
   3910	161144	105233				INCB	@(R3)+
   3911	161146	105453				NEGB	@-(R3)
   3912	161150	105372	000022			DECB	@22(R2)	
   3913	161154	000366	177776			SWAB	177776(SP)
   3914	161160	106314				ASLB	@R4 
   3915	161162	006024				ROR	(R4)+ 
   3916	161164	106244				ASRB	-(R4) 
   3917	161166	106133				ROLB	@(R3)+
   3918	161170	105553				ADCB	@-(R3)
   3919	161172	105724				TSTB	(R4)+ 
   3920	161174	001002				BNE	.+6 
   3921	161176	105724				TSTB	(R4)+ 
   3922	161200	001402				BEQ	.+6 
   3923	161202	004037	161470			JSR	R0,@#161470 
   3924	
   3925						;***********************************************************************
   3926						;   MOVB    
   3927						;1,2,3 	 
   3928						; 	161470,	R0=161300 
   3929	
   3930	161206	012701	161442			MOV	#161442,R1
   3931	161212	011104				MOV	@R1,R4
   3932	161214	011403				MOV	@R4,R3
   3933	161216	014102				MOV	-(R1),R2
-							       -						  -

				       -100- 
			    589.7545471.00066-01 12 01


   3934	161220	014105				MOV	-(R1),R5
   3935	161222	005013				CLR	@R3		; R3
   3936	161224	113134				MOVB	@(R1)+,@(R4)+	;- 
   3937	161226	121513				CMPB	@R5,@R3	
   3938	161230	001021				BNE	161274
   3939	161232	111305				MOVB	@R3,R5		;-  
   3940	161234	113113				MOVB	@(R1)+,@R3	;- 
   3941	161236	121254				CMPB	@R2,@-(R4)
   3942	161240	001015				BNE	161274
   3943	161242	011302				MOV	@R3,R2
   3944	161244	022705	177652			CMP	#177652,R5
   3945	161250	001011				BNE	161274
   3946	161252	022702	000125			CMP	#125,R2	
   3947	161256	001006				BNE	161274
   3948	161260	113104				MOVB	@(R1)+,R4	;- 
   3949	161262	120304				CMPB	R3,R4 
   3950	161264	001003				BNE	.+10
   3951	161266	112103				MOVB	(R1)+,R3	; 	
   3952	161270	120503				CMPB	R5,R3 
   3953	161272	001402				BEQ	.+6 
   3954	161274	004037	161470			JSR	R0,@#161470 
   3955	
   3956						;***********************************************************************
   3957						;   BIS, BIT, BIC, BISB, BITB, BICB 
   3958						; 	161470,	R0=161436 
   3959	
   3960	
   3961	161300	012700	161436			MOV	#161436,R0		;  
   3962	161304	012001				MOV	(R0)+,R1		;161444	--> R1
   3963	161306	012002				MOV	(R0)+,R2		;161454	--> R2
   3964	161310	012003				MOV	(R0)+,R3		;161464	--> R3
   3965	161312	011304				MOV	@R3,R4			;001000	--> R4
   3966	161314	012700	177777			MOV	#-1,R0			;177777	--> R0
   3967	161320	000277				SCC				;  N,Z,V,C
   3968	161322	050005				BIS	R0,R5			;  BIS
   3969	161324	100042				BPL	161432			;,     N
   3970	161326	041205				BIC	@R2,R5			;  BIC
   3971	161330	032205				BIT	(R2)+,R5		;  BIT
   3972	161332	001037				BNE	161432			;,     Z
   3973	161334	050033				BIS	R0,@(R3)+		;  BIS
   3974	161336	100035				BPL	161432			;,     N
   3975	161340	042153				BIC	(R1)+,@-(R3)		;  BIC
   3976	161342	100433				BMI	161432			;,     N
   3977	161344	031214				BIT	@R2,@R4			;  BIT
   3978	161346	001031				BNE	161432			;,     Z
   3979	161350	022137	001000			CMP	(R1)+,@#1000		;  BIC
   3980										;(1000)=052525?	
   3981	161354	001026				BNE	161432			;,  
   3982	161356	022205				CMP	(R2)+,R5		;  BIC
   3983										;(R5)=125252? 
   3984	161360	001024				BNE	161432			;,  
   3985	161362	150005				BISB	R0,R5			;  BISB	
   3986	161364	100022				BPL	161432			;,     N
   3987	161366	144205				BICB	-(R2),R5		;  BICB	
   3988	161370	100420				BMI	161432			;,     N
   3989	161372	131205				BITB	@R2,R5			;  BITB	
   3990	161374	001016				BNE	161432			;,     Z
-							       -						  -

				       -101- 
			    589.7545471.00066-01 12 01


   3991	161376	000305				SWAB	R5			;   R5	(R5=52652)
   3992	161400	100014				BPL	161432			;,     N
   3993	161402	130514				BITB	R5,@R4			;  BITB	
   3994	161404	001012				BNE	161432			;,     Z
   3995	161406	150514				BISB	R5,@R4			;  BISB	
   3996	161410	100010				BPL	161432			;,     N
   3997	161412	000314				SWAB	@R4 
   3998	161414	100406				BMI	161432			;,     N
   3999	161416	131233				BITB	@R2,@(R3)+		;  BITB	
   4000	161420	001004				BNE	161432			;,     Z
   4001	161422	144153				BICB	-(R1),@-(R3)		;  BICB	
   4002	161424	001002				BNE	.+6			;,     Z
   4003	161426	021214				CMP	@R2,@R4			;  BISB	
   4004	161430	001020				BNE	161472
   4005	161432	004037	161470			JSR	R0,@#161470 
   4006	
   4007						;	
   4008	
   4009	161436	161444				161444
   4010	161440	161454				161454
   4011	161442	161464				161464
   4012	161444	125252				125252
   4013	161446	052525				052525
   4014	161450	177400				177400
   4015	161452	000377				000377
   4016	161454	052525				052525
   4017	161456	125252				125252
   4018	161460	000377				000377
   4019	161462	177400				177400
   4020	161464	001000				001000
   4021	161466	161464				161464
   4022	
   4023	161470	000777				BR	.+0	;.   
   4024								;-    4025 
   4026						;***********************************************************************
   4027						;   ADD
   4028						; 	161730,	R0=161564 
   4029	
   4030	161472	012701	161726			MOV	#161726,R1
   4031	161476	011104				MOV	@R1,R4		;025252-->R4
   4032	161500	014103				MOV	-(R1),R3	;052525-->R3
   4033	161502	061104				ADD	@R1,R4		;  052525  025252 
   4034	161504	101425				BLOS	161560		;,  CVZ=1
   4035	161506	003424				BLE	161560		;,  ZV(NVV)=1
   4036	161510	061104				ADD	@R1,R4		;  052525  077777 
   4037	161512	101422				BLOS	161560		;,  CVZ=1
   4038	161514	002421				BLT	161560		;,  NVV=1
   4039	161516	061104				ADD	@R1,R4		;  052525  152524 
   4040	161520	003417				BLE	161560		;,  ZV(NVV)=1
   4041	161522	010451				MOV	R4,@-(R1) 
   4042	161524	011104				MOV	@R1,R4
   4043	161526	064114				ADD	-(R1),@R4	;  125252  025251 
   4044	161530	101413				BLOS	161560		;,  CVZ=1
   4045	161532	002012				BGE	161560		;,  NVV=0
   4046	161534	064114				ADD	-(R1),@R4	;  152525  152523 
   4047	161536	101010				BHI	161560		;,  CVZ=0
-							       -						  -

				       -102- 
			    589.7545471.00066-01 12 01


   4048	161540	002007				BGE	161560		;,  NVV=0
   4049	161542	061114				ADD	@R1,@R4		;  152525  125250 
   4050	161544	101005				BHI	161560		;,  CVZ=0
   4051	161546	002004				BGE	161560		;,  NVV=00 
   4052	161550	064114				ADD	-(R1),@R4	;  100003  077775 
   4053	161552	002402				BLT	.+6		;,  NVV=1
   4054	161554	003001				BGT	.+4		;,  ZV(NVV)=0
   4055	161556	001402				BEQ	.+6		;,  Z=1
   4056	161560	004037	161730			JSR	R0,@#161730 
   4057	
   4058						;***********************************************************************
   4059						;   SUB
   4060						; 	161730,	R0=161660 
   4061	
   4062	161564	012701	161726			MOV	#161726,R1
   4063	161570	014104				MOV	-(R1),R4	;052525-->R4
   4064	161572	161104				SUB	@R1,R4		;  052525   052525
   4065	161574	002427				BLT	161654		;,  NVV=1
   4066	161576	003026				BGT	161654		;,  ZV(NVV)=0
   4067	161600	103425				BCS	161654		;,  C=1
   4068	161602	161104				SUB	@R1,R4		;  052525   000000
   4069	161604	003023				BGT	161654		;,  ZV(NVV)=0
   4070	161606	101022				BHI	161654		;,  CVZ=0
   4071	161610	161104				SUB	@R1,R4		;  052525   125253
   4072	161612	101420				BLOS	161654		;,  CVZ=1
   4073	161614	002017				BGE	161654		;,  NVV=0
   4074	161616	010451				MOV	R4,@-(R1) 
   4075	161620	011104				MOV	@R1,R4
   4076	161622	164114				SUB	-(R1),@R4	;  125252   052526
   4077	161624	003413				BLE	161654		;,  ZV(NVV)=1
   4078	161626	101012				BHI	161654		;,  CVZ=0
   4079	161630	161114				SUB	@R1,@R4		;  125252   125254
   4080	161632	103410				BCS	161654		;,  C=1
   4081	161634	102407				BVS	161654		;,  V=1
   4082	161636	005741				TST	-(R1)		; R1  2
   4083	161640	164114				SUB	-(R1),@R4	;  100003   2 
   4084	161642	103004				BCC	161654		;,  C=0
   4085	161644	003403				BLE	.+10		;,  ZV(NVV)=1
   4086	161646	022714	077777			CMP	#77777,@R4	;	?
   4087	161652	001402				BEQ	.+6		;,   
   4088	161654	004037	161730			JSR	R0,@#161730 
   4089	
   4090						;***********************************************************************
   4091						;   DEC, SOB
   4092						; 	 161730, R0=161714
   4093	
   4094	161660	012701	000002			MOV	#2,R1		;		  SOB
   4095	161664	010102				MOV	R1,R2		;2-->R2	
   4096	161666	005302				DEC	R2		; R2  1
   4097	161670	002407				BLT	161710		;,  R2<0 
   4098	161672	005701				TST	R1
   4100	161676	077105				SOB	R1,161666	; 1  R1  ,  R1   0
   4101	161700	005701				TST	R1		; R1    SOB
   4102	161702	001002				BNE	.+6		;,  R1   0
   4103	161704	000137	161732			JMP	@#161732	;     
   4104	161710	004037	161730			JSR	R0,@#161730	;  

-							       -						  -

				       -103- 
			    589.7545471.00066-01 12 01


   4105	
   4106						;	  	
   4107	
   4108	161714	100003				100003
   4109	161716	152525				152525
   4110	161720	125252				125252
   4111	161722	001000				001000
   4112	161724	052525				052525
   4113	161726	025252				025252
   4114	
   4115	161730	000777				BR	.+0		;.   
   4116									;- 
   4117	
   4118	
   4119						;***********************************************************************
   4120						; 
   4121						;          
   4122						; 
   4123						;***********************************************************************
   4124	
   4125	161732	012700	000006			MOV	#6,R0 
   4126	161736	012710	000340			MOV	#340,@R0
   4127	161742	012740	162126			MOV	#162126,-(R0)	;    000004 
   4128	161746	012737	000020	172516		MOV	#20,@#172516	; 22-	
   4129	161754	004737	162136			JSR	PC,@#162136	;  
   4130	161760	005003				CLR	R3		;     2  
   4131	161762	012701	020000			MOV	#20000,R1 
   4132	161766	012737	000001	177572		MOV	#1,@#177572	;  
   4133	161774	012710	162012			MOV	#162012,@R0	;    000004 
   4134	
   4135						;***********************************************************************
   4136						;   
   4137						; 
   4138						;        
   4139						;	  2   . 
   4140						;R3   .   	 2 
   4141	
   4142	162000	011111				MOV	@R1,@R1		;    
   4143									; ,	   
   4144	162002	005203				INC	R3		;  		 
   4145									; 2  
   4146	162004	062712	000040			ADD	#40,@R2		;  
   4147	162010	000773				BR	162000		;    
   4148	
   4149	162012	005037	172516			CLR	@#172516	; 22-	
   4150	162016	005037	177572			CLR	@#177572	;  
   4151	162022	005001				CLR	R1
   4152	162024	013700	173700			MOV	@#173700,R0 
   4153	162030	032700	000001			BIT	#1,R0		;	 ?
   4154	162034	001001				BNE	.+4		;,   
   4155	162036	000407				BR	162056		;,  
   4156	162040	032700	000002			BIT	#2,R0		;	  128 ?	
   4157	162044	001402				BEQ	.+6		;,   
   4158	162046	012701	000300			MOV	#300,R1		; 	 
   4159	162052	062701	000100			ADD	#100,R1		; 512 
   4160	162056	032700	000004			BIT	#4,R0		;	 ?
   4161	162062	001407				BEQ	162102		;,  
-							       -						  -

				       -104- 
			    589.7545471.00066-01 12 01


   4162	162064	032700	000010			BIT	#10,R0		;	  128 ?	
   4163	162070	001402				BEQ	.+6		;,   
   4164	162072	062701	000300			ADD	#300,R1		; 	 
   4165	162076	062701	000100			ADD	#100,R1		; 512 
   4166	162102	005701				TST	R1		;   ?
   4167	162104	001407				BEQ	162124		;  ,   
   4168	162106	020103				CMP	R1,R3		;    
   4169									;  ? 
   4170	162110	101005				BHI	162124		;  ,   
   4171	162112	070127	000040			MUL	#40,R1		;   
   4172	162116	010137	177640			MOV	R1,@#177640	;	
   4173	162122	000426				BR	162200
   4174	162124	000240				NOP 
   4175	162126	012737	000003	173704		MOV	#3,@#173704	;   3	 4 
   4176									;.  	 
   4177	162134	000777				BR	.+0		;   - 
   4178	
   4179						;***********************************************************************
   4180						;    
   4181	
   4182	162136	005037	172340			CLR	@#172340
   4183	162142	012702	172342			MOV	#172342,R2
   4184	162146	005012				CLR	@R2 
   4185	162150	012737	177600	172356		MOV	#177600,@#172356 ;    	
   4186	162156	012701	077406			MOV	#77406,R1	; /   
   4187	162162	010137	172300			MOV	R1,@#172300 
   4188	162166	010137	172302			MOV	R1,@#172302 
   4189	162172	010137	172316			MOV	R1,@#172316 
   4190	162176	000207				RTS	PC
   4191	
   4192	162200	005003				CLR	R3
   4193	162202	005037	177642			CLR	@#177642	;  
   4194	162206	005005				CLR	R5		;    32 
   4195	162210	032737	000001	173700		BIT	#1,@#173700	;1-  ? 
   4196	162216	001402				BEQ	.+6		;,  
   4197	162220	005703				TST	R3		; 1- ? 
   4198	162222	001405				BEQ	162236		;,  
   4199	162224	032737	000010	173700		BIT	#10,@#173700	; 2-  512 ?
   4200	162232	001005				BNE	162246		;,   
   4201	162234	000406				BR	162252		;,   2- 	128  
   4202	162236	032737	000002	173700		BIT	#2,@#173700	; 1-  512 ?
   4203	162244	001402				BEQ	.+6		;,   1- 	128  
   4204	162246	012705	000012			MOV	#12,R5		; 	R4
   4205	162252	062705	000004			ADD	#4,R5		;  
   4206	162256	010504				MOV	R5,R4		;   32  
   4207	162260	012737	000020	172516		MOV	#20,@#172516	; 22-	
   4208	162266	010301				MOV	R3,R1		;  R1	  
   4209	
   4210						;***********************************************************************
   4211						;  
   4212	
   4213	162270	012737	177300	172340		MOV	#177300,@#172340 ;  
   4214	162276	010137	172342			MOV	R1,@#172342 
   4215	162302	062701	000200			ADD	#200,R1	
   4216	162306	010137	172344			MOV	R1,@#172344 
   4217	162312	062701	000200			ADD	#200,R1	
   4218	162316	010137	172346			MOV	R1,@#172346 
-							       -						  -

				       -105- 
			    589.7545471.00066-01 12 01 1


   4219	162322	062701	000200			ADD	#200,R1	
   4220	162326	010137	172350			MOV	R1,@#172350 
   4221	162332	012737	177200	172352		MOV	#177200,@#172352
   4222	162340	012737	177400	172354		MOV	#177400,@#172354
   4223	162346	012737	177600	172356		MOV	#177600,@#172356
   4224	162354	012701	077406			MOV	#77406,R1	 ;    
   4225	162360	012737	004006	172300		MOV	#4006,@#172300
   4226	162366	010137	172302			MOV	R1,@#172302 
   4227	162372	010137	172304			MOV	R1,@#172304 
   4228	162376	010137	172306			MOV	R1,@#172306 
   4229	162402	010137	172310			MOV	R1,@#172310 
   4230	162406	010137	172312			MOV	R1,@#172312 
   4231	162412	010137	172314			MOV	R1,@#172314 
   4232	162416	010137	172316			MOV	R1,@#172316 
   4233	162422	012737	000001	177572		MOV	#1,@#177572	; 
   4234	
   4235						;***********************************************************************
   4236						;  052525 	  ,    
   4237	
   4238	162430	012700	020000			MOV	#20000,R0	;  R0  
   4239	162434	012710	052525			MOV	#52525,@R0	;  052525   R0 
   4240	162440	000421				BR	162504		;    
   4241	
   4242	162442	062737	001000	172342		ADD	#1000,@#172342	;	 
   4243	162450	012701	020000			MOV	#20000,R1	;
   4244	162454	011011				MOV	@R0,@R1		;  
   4245	162456	062737	001000	172344		ADD	#1000,@#172344	; 32  
   4246	162464	062737	001000	172346		ADD	#1000,@#172346
   4247	162472	062737	001000	172350		ADD	#1000,@#172350
   4248	162500	012700	020000			MOV	#20000,R0 
   4249	162504	010001				MOV	R0,R1		; 	
   4250	162506	005721				TST	(R1)+		;   2 
   4251	162510	012702	037777			MOV	#37777,R2	;     	32 
   4252	162514	012021				MOV	(R0)+,(R1)+	;    
   4253	162516	077202				SOB	R2,.-2		;  	32 ? 
   4254									;,  
   4255	162520	077430				SOB	R4,162442	;  	512/128	?
   4256									;,  
   4257	
   4258						;***********************************************************************
   4259						;  ,  	 	
   4260	
   4261	162522	010504				MOV	R5,R4		;  R4   	 32  
   4262	162524	010301				MOV	R3,R1		; 
   4263	162526	010137	172342			MOV	R1,@#172342	;
   4264	162532	062701	000200			ADD	#200,R1		;
   4265	162536	010137	172344			MOV	R1,@#172344	;  32 
   4266	162542	062701	000200			ADD	#200,R1	
   4267	162546	010137	172346			MOV	R1,@#172346 
   4268	162552	062701	000200			ADD	#200,R1	
   4269	162556	010137	172350			MOV	R1,@#172350 
   4270	162562	000414				BR	162614
   4271	
   4272	162564	062737	001000	172342		ADD	#1000,@#172342	;	 
   4273	162572	062737	001000	172344		ADD	#1000,@#172344	;
   4274	162600	062737	001000	172346		ADD	#1000,@#172346	;  32 	
   4275	162606	062737	001000	172350		ADD	#1000,@#172350
-							       -						  -

				       -106- 
			    589.7545471.00066-01 12 01


   4276	162614	012702	040000			MOV	#40000,R2	;     	32 
   4277	162620	012700	020000			MOV	#20000,R0	;  
   4278	162624	005120				COM	(R0)+		;  
   4279	162626	077202				SOB	R2,.-2		;   32 ?
   4280									;,  
   4281	162630	077423				SOB	R4,162564	; ?
   4282									;,  
   4283	
   4284						;***********************************************************************
   4285						;  ,    
   4286						; ,   	
   4287	
   4288	162632	010504				MOV	R5,R4		;  R4   	32 
   4289	162634	005001				CLR	R1
   4290	162636	000414				BR	162670
   4291	162640	162737	001000	172342		SUB	#1000,@#172342	;	
   4292	162646	162737	001000	172344		SUB	#1000,@#172344	; 
   4293	162654	162737	001000	172346		SUB	#1000,@#172346	;  
   4294	162662	162737	001000	172350		SUB	#1000,@#172350	; 32 
   4295	162670	012702	040000			MOV	#40000,R2	;      32 
   4296	162674	012700	120000			MOV	#120000,R0	;    R0	
   4297	162700	024027	125252			CMP	-(R0),#125252	;	?
   4298	162704	001034				BNE	162776		;,  
   4299	162706	005110				COM	@R0		;  
   4300	162710	077205				SOB	R2,162700	; 	 32 ? 
   4301									;,  
   4302	162712	077426				SOB	R4,162640	; ?
   4303									;,  
   4304	
   4305						;***********************************************************************
   4306						; ,     
   4307	
   4308	162714	010504				MOV	R5,R4		;   	32 
   4309	162716	005001				CLR	R1
   4310	162720	000414				BR	162752
   4311	162722	062737	001000	172342		ADD	#1000,@#172342
   4312	162730	062737	001000	172344		ADD	#1000,@#172344
   4313	162736	062737	001000	172346		ADD	#1000,@#172346
   4314	162744	062737	001000	172350		ADD	#1000,@#172350
   4315	162752	012702	040000			MOV	#40000,R2	;   
   4316	162756	012700	020000			MOV	#20000,R0	; -->R0	
   4317	162762	022027	052525			CMP	(R0)+,#52525	;	?
   4318	162766	001003				BNE	.+10		;,  
   4319	162770	077204				SOB	R2,.-6		; ?	,   
   4320	162772	077425				SOB	R4,162722	; ? ,	 
   4321	162774	000402				BR	.+6		;,     
   4322	162776	000261				SEC			; -, 
   4323	163000	000401				BR	.+4		;  	 
   4324	163002	000241				CLC			; -
   4325	163004	012737	000000	172340		MOV	#0,@#172340	;  
   4326	163012	012737	077406	172300		MOV	#77406,@#172300	; 0- 	
   4327	163020	032705	000001			BIT	#1,R5		;  ? 
   4328	163024	001401				BEQ	.+4		;,  
   4329	163026	000207				RTS	PC		;   	
   4330									; 
   4331	163030	103015				BCC	163064		;,     
   4332	163032	032737	000001	173700		BIT	#1,@#173700	;1-  ? 
-							       -						  -

				       -107- 
			    589.7545471.00066-01 12 01


   4333	163040	001406				BEQ	163056		;,  
   4334	163042	005703				TST	R3		;	 2- ? 
   4335	163044	001004				BNE	163056		;,   
   4336	163046	052737	000001	177642		BIS	#1,@#177642	;    1- 
   4337	163054	000403				BR	.+10		; 
   4338	163056	052737	000002	177642		BIS	#2,@#177642	;    2-  
   4339	163064	032737	000001	173700		BIT	#1,@#173700	;1-  ? 
   4340	163072	001421				BEQ	163136		;,  
   4341	163074	005703				TST	R3		;2-  ? 
   4342	163076	001017				BNE	163136		;,   
   4343	163100	032737	000004	173700		BIT	#4,@#173700	;2-  ? 
   4344	163106	001413				BEQ	163136		;,  
   4345	163110	012703	004000			MOV	#4000,R3	;   
   4346									;2-  
   4347	163114	032737	000002	173700		BIT	#2,@#173700	;1-   512 ?
   4348	163122	001402				BEQ	.+6		;,   1- 	128  
   4349	163124	006303				ASL	R3		; 	 
   4350	163126	006303				ASL	R3		; 2-  
   4351	163130	000137	162206			JMP	@#162206	;   2-  
   4352	163134	000777				BR	.+0		;.     /
   4353									;  			000004
   4354	163136	005737	177642			TST	@#177642	; ? 
   4355	163142	001404				BEQ	163154		;    ,
   4356									;   
   4357	
   4358	163144	013737	177642	173704		MOV	@#177642,@#173704 ; /	 
   4359									;   2,3  4,  
   4360									;	 1- . 
   4361									;   1,3  4,  
   4362									;	 2-	 
   4363									;   3	 4,  
   4364									;	  1-	  2-  
   4365	163152	000777				BR	.+0		;  
   4366									;- 
   4367	
   4368						;***********************************************************************
   4369						; 
   4370						;  	 	
   4371						;   TRAP (34,36), EMT	(30,32), IOT (20,22), BPT (14,16),  
   4372						;   107777 (10,12),    JMP R1 (4,6)	
   4373						; 
   4374						;***********************************************************************
   4375	
   4376	163154	012701	163432			MOV	#163432,R1
   4377	163160	010046				MOV	R0,-(SP)	; R0 
   4378	163162	012100				MOV	(R1)+,R0
   4379	163164	005040				CLR	-(R0)		; 
   4380	163166	010002				MOV	R0,R2		;
   4381	163170	005740				TST	-(R0)		; 
   4382	163172	010210				MOV	R2,@R0		;  000000-000366 
   4383	163174	005700				TST	R0
   4384	163176	003372				BGT	163164
   4385	163200	012600				MOV	(SP)+,R0	; R0
   4386	163202	012106				MOV	(R1)+,SP	;   
   4387	163204	012104				MOV	(R1)+,R4
   4388	163206	012102				MOV	(R1)+,R2	;163452-->R2
   4389	163210	012103				MOV	(R1)+,R3	;163454-->R3
-							       -						  -

				       -108- 
			    589.7545471.00066-01 12 01


   4390	163212	004737	163416			JSR	PC,@#163416	;163312-->34
   4391	163216	104777				TRAP+377		; 	  
   4392									;TRAP 			 34 
   4393	163220	004737	163356			JSR	PC,@#163356	;     000034 
   4394	163224	004737	163416			JSR	PC,@#163416	;163312-->30
   4395	163230	104377				EMT+377			; 	  
   4396									; 	    30	
   4397	163232	004737	163356			JSR	PC,@#163356	;    
   4398									;000030	
   4399	163236	024444				CMP	-(R4),-(R4) 
   4400	163240	004737	163416			JSR	PC,@#163416	;163312-->20
   4401	163244	000004				IOT			; 	  
   4402									; IOT	    20	
   4403	163246	004737	163356			JSR	PC,@#163356	;    
   4404									;	000020
   4405	163252	004737	163416			JSR	PC,@#163416	;163312-->14
   4406	163256	000003				BPT			; 	  
   4407									; BPT	    14	
   4408	163260	004737	163356			JSR	PC,@#163356	;    
   4409									;	000014
   4410	163264	004737	163416			JSR	PC,@#163416	;163312-->10
   4411	163270	107777				107777			; 	  
   4412									;   
   4413	163272	004737	163356			JSR	PC,@#163356	;    
   4414									;	000010
   4415	163276	004737	163416			JSR	PC,@#163416	;163312-->4 
   4416	163302	000101				JMP	R1		; 	  
   4417									;      
   4418	163304	004737	163356			JSR	PC,@#163356	;    
   4419									;	000004
   4420	163310	000467				BR	163470		;    
   4421									;   4422 
   4423						;***********************************************************************
   4424						; 	
   4425	
   4426	163312	106705				MFPS	R5		;  
   4427	163314	020627	001074			CMP	SP,#1074	;  ? 
   4428	163320	001014				BNE	163352		;  ,  
   4429	163322	022316				CMP	(R3)+,@SP	;   ? 
   4430	163324	001012				BNE	163352		;  ,  
   4431	163326	022766	000340	000002		CMP	#340,2(SP)	;   ? 
   4432	163334	001006				BNE	163352		;  ,  
   4433	163336	120521				CMPB	R5,(R1)+	;   ? 
   4434	163340	001004				BNE	163352		;  ,  
   4435	163342	005705				TST	R5
   4436	163344	103401				BCS	.+4		;,  -=1 
   4437	163346	000006				RTT 
   4438	163350	000002				RTI 
   4439	
   4440	163352	004037	160650			JSR	R0,@#160650	;  
   4441	
   4442						;***********************************************************************
   4443						;        
   4444						;		
   4445	
   4446	163356	106705				MFPS	R5		; 

-							       -						  -

				       -109- 
			    589.7545471.00066-01 12 01


   4447	163360	120527	000340			CMPB	R5,#340		;=340? 
   4448	163364	001012				BNE	163412		;  ,   
   4449	163366	020627	001076			CMP	SP,#1076	;=1076? 
   4450	163372	001007				BNE	163412		;  ,  
   4451	163374	005044				CLR	-(R4)		;  
   4452	163376	010046				MOV	R0,-(SP)	; 	
   4453	163400	010400				MOV	R4,R0		;   ,
   4454	163402	005744				TST	-(R4)		;  R0
   4455	163404	010014				MOV	R0,@R4
   4456	163406	012600				MOV	(SP)+,R0
   4457	163410	000207				RTS	PC
   4458	
   4459	163412	004037	160650			JSR	R0,@#160650	;  
   4460	
   4461						;***********************************************************************
   4462						;   
   4463	
   4464	163416	111164	177776			MOVB	@R1,177776(R4)
   4465	163422	011264	177774			MOV	@R2,177774(R4)
   4466	163426	000257				CCC 
   4467	163430	000207				RTS	PC
   4468	
   4469						;	
   4470	
   4471	163432	000400				000400
   4472	163434	001100				001100
   4473	163436	000040				000040
   4474	163440	163452				163452
   4475	163442	163454				163454
   4476	163444	100601				100601
   4477	163446	102210				102210
   4478	163450	100602				100602
   4479	163452	163312				163312
   4480	163454	163220				163220			; 	  TRAP
   4481	163456	163232				163232			; 	  EMT 
   4482	163460	163246				163246			; 	  IOT 
   4483	163462	163260				163260			; 	  BPT 
   4484	163464	163272				163272			; 	  		
   4485	163466	163304				163304			; 	    
   4486	
   4487	
   4488	163470	012737	000017	173704		MOV	#17,@#173704	;  
   4489	163476	005000				CLR	R0
   4490	163500	012701	172340			MOV	#172340,R1	; 	 
   4491	163504	012702	000004			MOV	#4,R2 
   4492	163510	010021				MOV	R0,(R1)+
   4493	163512	062700	000200			ADD	#200,R0	
   4494	163516	077204				SOB	R2,.-6
   4495	163520	012737	001400	172350		MOV	#1400,@#172350
   4496	163526	012706	001000			MOV	#1000,SP	;   
   4497	163532	012737	000020	172516		MOV	#20,@#172516	; 22-	
   4498	163540	012737	000001	177572		MOV	#1,@#177572	;  
   4499	
   4500	
   4501						;   
   4502						;  	  157766-157772  "0"
   4503	
-							       -						  -

				       -110- 
			    589.7545471.00066-01 12 01


   4504	163546	012703	117776			MOV	#117776,R3
   4505	163552	012763	000014	000000		MOV	#14,0(R3) 
   4506	163560	012700	173600			MOV	#173600,R0	;   173600-173616 
   4507	163564	012701	177770			MOV	#177770,R1	;  157766-157774	
   4508	163570	012702	000010			MOV	#10,R2
   4509	163574	111061	117776			MOVB	@R0,117776(R1)
   4510	163600	005201				INC	R1
   4511	163602	005720				TST	(R0)+ 
   4512	163604	077205				SOB	R2,163574 
   4513	
   4514						;  	  	
   4515	163606	012737	177777	001020		MOV	#-1,@#1020
   4516	163614	012702	000004			MOV	#4,R2 
   4517	163620	010300				MOV	R3,R0 
   4518	163622	016001	177770			MOV	177770(R0),R1	;  	
   4519	163626	074137	001020			XOR	R1,@#1020	;  	
   4520	163632	000241				CLC 
   4521	163634	006137	001020			ROL	@#1020
   4522	163640	005537	001020			ADC	@#1020
   4523	163644	062700	000002			ADD	#2,R0 
   4524	163650	077214				SOB	R2,163622 
   4525	163652	005737	001020			TST	@#1020		;  ?
   4526	163656	001406				BEQ	163674		;,   
   4527	163660	005063	177770			CLR	177770(R3)	;  157766-157772
   4528	163664	005063	177772			CLR	177772(R3)
   4529	163670	005063	177774			CLR	177774(R3)
   4530	
   4531	
   4532	
   4533	163674	012763	000006	177766		MOV	#6,177766(R3)	; 		   
   4534	163702	012763	000031	177776		MOV	#31,177776(R3)	;  	   
   4535									;  
   4536						;  	 0 	177777,		  
   4537						;	157760
   4538	163710	005063	177764			CLR	177764(R3)
   4539	163714	012700	117760			MOV	#117760,R0
   4540	163720	012701	000036			MOV	#36,R1
   4541	163724	005010				CLR	@R0		; 0 
   4542	163726	052760	177777	177776		BIS	#-1,177776(R0)	; 177777
   4543	163734	162700	000004			SUB	#4,R0 
   4544	163740	062763	000004	000000		ADD	#4,0(R3)
   4545	163746	062763	000004	177764		ADD	#4,177764(R3) 
   4546	163754	077115				SOB	R1,163724 
   4547	163756	012763	165746	177572		MOV	#165746,177572(R3) ;    
   4548									   ;     
   4549	163764	005063	177570			CLR	177570(R3)
   4550	163770	005063	177566			CLR	177566(R3)
   4551	163774	005063	177564			CLR	177564(R3)
   4552	164000	005063	177562			CLR	177562(R3)
   4553	164004	005063	177560			CLR	177560(R3)
   4554	164010	005063	177556			CLR	177556(R3)
   4555	164014	062763	000016	000000		ADD	#16,0(R3)	; 		    
   4556	
   4557						; 	   
   4558	
   4559	164022	012737	165036	000030		MOV	#165036,@#30	;    000030 
   4560	164030	012737	000340	000032		MOV	#340,@#32 
-							       -						  -

				       -111- 
			    589.7545471.00066-01 12 01


   4561	164036	005005				CLR	R5		; R5
   4562	164040	012704	117776			MOV	#117776,R4
   4563	164044	005765	164064			TST	164064(R5)	; 	?
   4564	164050	001404				BEQ	164062		;,   
   4565	164052	004775	164064			JSR	PC,@164064(R5)	; 	  
   4566	164056	005725				TST	(R5)+		; 	 
   4567	164060	000771				BR	164044		;     
   4568									; 
   4569	164062	000417				BR	164122		;     
   4570	
   4571						;    	
   4572	
   4573	164064	130200				130200		;       
   4574								;   
   4575	164066	130214				130214		;       
   4576								;       
   4577	164070	130246				130246		;       
   4578								;	 	 
   4579	164072	130314				130314		;     
   4580	164074	130270				130270		;  		
   4581	164076	130262				130262
   4582	164100	131312				131312		;   	
   4583								;  " "
   4584	164102	131410				131410		;     
   4585								; ,  
   4586	164104	131632				131632		;   	 
   4587								;   " " 
   4588	164106	131744				131744		;      
   4589								;  
   4590	164110	132472				132472		;   
   4591								; 
   4592	164112	133306				133306		;   
   4593	164114	133620				133620		;    
   4594	164116	133716				133716		;    		
   4595	164120	000000				000000
   4596	
   4597	
   4598						;***********************************************************************
   4599						; 
   4600						;   	
   4601						;     	  
   4602						;      	.
   4603						;        ,  
   4604						; 	 0,    	(177777	 0). 
   4605						; 
   4606						;***********************************************************************
   4607	
   4608	
   4609	164122	012700	177762			MOV	#177762,R0
   4610	164126	012701	000010			MOV	#10,R1
   4611	164132	012737	164402	000004		MOV	#164402,@#4	;    000004 
   4612	164140	012737	000340	000006		MOV	#340,@#6
   4613	164146	012702	174000			MOV	#174000,R2	;  1- 
   4614	164152	012746	000005			MOV	#5,-(SP)	;     
   4615									;    
   4616									; 
   4617	164156	005004				CLR	R4
-							       -						  -

				       -112- 
			    589.7545471.00066-01 12 01


   4618	164160	005746				TST	-(SP)		;     
   4619									;  	 
   4620	164162	005062	000002			CLR	2(R2)		; 02
   4621									;     000004,
   4622									;    
   4623	164166	111237	001022			MOVB	@R2,@#1022	;  001022   	
   4624	164172	111237	001023			MOVB	@R2,@#1023
   4625	164176	013716	001022			MOV	@#1022,@SP	;    
   4626	164202	005716				TST	@SP		;   0?	
   4627	164204	001030				BNE	164266		;    ,  	
   4628	164206	012705	000010			MOV	#10,R5
   4629	164212	160105				SUB	R1,R5 
   4630	164214	012703	000001			MOV	#1,R3		; 1	 ,  
   4631	164220	072305				ASH	R5,R3		; 	
   4632	164222	030337	173702			BIT	R3,@#173702	; ?
   4633	164226	001421				BEQ	164272		;    ,  
   4634									; 
   4635	164230	005766	000002			TST	2(SP)		;    ?
   4636	164234	001405				BEQ	164250		;,   
   4637	164236	005304				DEC	R4
   4638	164240	001350				BNE	164162		;    
   4639	164242	005366	000002			DEC	2(SP)		; 	
   4640	164246	001345				BNE	164162
   4641	164250	005716				TST	@SP		;     000004?
   4642	164252	001003				BNE	.+10		;,   
   4643	164254	012760	177775	117774		MOV	#177775,117774(R0);    
   4644									  ;  177775: 
   4645									  ; , 
   4646									  ;  	= 0 
   4647	164262	012716	177776			MOV	#177776,@SP	;    
   4648									;  177776: 
   4649									; ,  	   
   4650									;	   
   4651									; 000004	   
   4652									;	= 0 
   4653	
   4654	164266	011660	117776			MOV	@SP,117776(R0)	;      	
   4655	164272	062702	000200			ADD	#200,R2		; 	  
   4656	164276	162700	000004			SUB	#4,R0		; 	   
   4657									;  
   4658	164302	077151				SOB	R1,164162 
   4659	164304	013700	173702			MOV	@#173702,R0	;    
   4660	164310	012701	177762			MOV	#177762,R1
   4661	164314	012702	000010			MOV	#10,R2
   4662	164320	032700	000001			BIT	#1,R0		; ?
   4663	164324	001407				BEQ	164344		;,  	
   4664	164326	005761	117776			TST	117776(R1)	;  =0?
   4665	164332	001015				BNE	164366		;,  
   4666	164334	012761	177776	117776		MOV	#177776,117776(R1); 	     
   4667	164342	000411				BR	164366		;     
   4668	164344	032700	000001			BIT	#1,R0		; ?
   4669	164350	001006				BNE	164366		;,   
   4670	164352	005761	117776			TST	117776(R1)	;    0? 
   4671	164356	001403				BEQ	.+10		;,   
   4672	164360	012761	177774	117774		MOV	#177774,117774(R1);    
   4673									  ;  177774: 
   4674									  ; ,   
-							       -						  -

				       -113- 
			    589.7545471.00066-01 12 01


   4675									  ;   0 
   4676	164366	162701	000004			SUB	#4,R1 
   4677	164372	006000				ROR	R0
   4678	164374	077227				SOB	R2,164320	 ;    
   4679	164376	022626				CMP	(SP)+,(SP)+	 ;  
   4680	164400	000406				BR	164416		 ;    
   4681									 ;
   4682						;   			000004
   4683	
   4684	164402	012766	177777	000004		MOV	#-1,4(SP)	;	177777   
   4685	164410	012716	164206			MOV	#164206,@SP	;   	
   4686	164414	000002				RTI 
   4687	
   4688						;*********************************************************************
   4689						; 
   4690						; ,     	
   4691						; 
   4692						;*********************************************************************
   4693	
   4694	164416	005005				CLR	R5		;   
   4695	164420	010546				MOV	R5,-(SP)
   4696	164422	005765	117760			TST	117760(R5)	; ?
   4697	164426	001527				BEQ	164706		;,  	
   4698	164430	022765	177776	117760		CMP	#177776,117760(R5) ; ? 
   4699	164436	001523				BEQ	164706		;,  
   4700	164440	010500				MOV	R5,R0 
   4701	164442	005400				NEG	R0
   4702	164444	072027	177776			ASH	#177776,R0
   4703	164450	022765	002004	117760		CMP	#2004,117760(R5);    ?
   4704	164456	001002				BNE	.+6		;,  
   4705	164460	000137	135216			JMP	@#135216	; 	 
   4706									; 
   4707	164464	022765	000401	117760		CMP	#401,117760(R5)	;    ? 
   4708	164472	001002				BNE	.+6		;,  
   4709	164474	000137	135602			JMP	@#135602	; 	  
   4710	164500	022765	001002	117760		CMP	#1002,117760(R5);   ?
   4711	164506	001002				BNE	.+6		;,   
   4712	164510	000137	137130			JMP	@#137130	;  	
   4713	164514	026527	117756	177777		CMP	117756(R5),#-1	; 	   
   4714									;   0?
   4715	164522	001071				BNE	164706		;,  
   4716	164524	012737	164730	000004		MOV	#164730,@#4	;    000004 
   4717	164532	005405				NEG	R5
   4718	164534	072527	177776			ASH	#177776,R5
   4719	164540	004737	164770			JSR	PC,@#164770	;  1-12 	  	 
   4720									; 001000-001010	
   4721	164544	103003				BCC	.+10		;,   3    377
   4722	164546	052702	177777			BIS	#-1,R2
   4723	164552	000442				BR	164660		;     
   4724	164554	013700	001006			MOV	@#1006,R0	;  7	 
   4725	164560	005065	000002			CLR	2(R5)		;   	 
   4726	
   4727						; 	    
   4728						; 	  	 7,
   4729						; 	200 
   4730	164564	052737	177777	001020		BIS	#-1,@#1020
   4731	164572	012701	000200			MOV	#200,R1	
-							       -						  -

				       -114- 
			    589.7545471.00066-01 12 01


   4732	164576	111537	001022			MOVB	@R5,@#1022
   4733	164602	111537	001023			MOVB	@R5,@#1023
   4734	164606	013702	001022			MOV	@#1022,R2 
   4735	164612	074237	001020			XOR	R2,@#1020 
   4736	164616	000241				CLC 
   4737	164620	006137	001020			ROL	@#1020
   4738	164624	005537	001020			ADC	@#1020
   4739	164630	077116				SOB	R1,164576 
   4740	164632	077021				SOB	R0,164572 
   4741	164634	005737	001020			TST	@#1020		;=0?
   4742	164640	001403				BEQ	.+10		;,   
   4743	164642	012702	177776			MOV	#177776,R2	;	    
   4744	164646	000404				BR	164660		;     		
   4745									;  
   4746	164650	012702	164732			MOV	#164732,R2
   4747	164654	004737	154514			JSR	PC,@#154514	; 	 
   4748									;-   -
   4749									; 	  ,  	 002000 
   4750	164660	005702				TST	R2		; ? 
   4751	164662	001006				BNE	164700		;,   
   4752	164664	011600				MOV	@SP,R0		;  
   4753	164666	005400				NEG	R0
   4754	164670	072027	177776			ASH	#177776,R0
   4755	164674	012707	002000			MOV	#2000,PC	;    
   4756	164700	011605				MOV	@SP,R5
   4757	164702	010265	117756			MOV	R2,117756(R5)	;  /  
   4758									;  
   4759	164706	012605				MOV	(SP)+,R5
   4760	164710	022705	177744			CMP	#177744,R5	;  ?	
   4761	164714	001002				BNE	.+6		;,  
   4762	164716	000137	165470			JMP	@#165470	;    
   4763									;  
   4764	164722	162705	000004			SUB	#4,R5 
   4765	164726	000634				BR	164420
   4766	164730	000777				BR	.+0 
   4767	164732	042046				042046
   4768	164734	000000				0 
   4769	164736	000000				0 
   4770	164740	000000				0 
   4771	164742	000000				0 
   4772	164744	041046				041046
   4773	164746	000000				0 
   4774	164750	000000				0 
   4775	164752	000000				0 
   4776	164754	000000				0 
   4777	164756	053046				053046
   4778	164760	000000				0 
   4779	164762	000000				0 
   4780	164764	000000				0 
   4781	164766	000000				0 
   4782	
   4783	
   4784						;***********************************************************************
   4785						; 
   4786						;    1-12      	
   4787						; 001000-001010	
   4788						; 	 3	  ,  377,  ""- 
-							       -						  -

				       -115- 
			    589.7545471.00066-01 12 01


   4789						;   -  
   4790						; 
   4791						;***********************************************************************
   4792	
   4793	164770	072527	000007			ASH	#7,R5 
   4794	164774	062705	174000			ADD	#174000,R5	; 	
   4795	165000	005065	000002			CLR	2(R5)		;   	 
   4796	165004	012700	001000			MOV	#1000,R0	;  
   4797	165010	012701	000012			MOV	#12,R1		;  	
   4798	165014	111520				MOVB	@R5,(R0)+	;  1-12   
   4799	165016	077102				SOB	R1,.-2
   4800	165020	122737	000377	001002		CMPB	#377,@#1002	; 3	=377? 
   4801	165026	001001				BNE	.+4		;   ""-, 	 
   4802	165030	005727	000261			TST	#261
   4803	165034	000207				RTS	PC		;  
   4804	
   4805						;***********************************************************************
   4806						; 
   4807						;   			
   4808						; 000030
   4809						; 
   4810						;***********************************************************************
   4811	
   4812	165036	010346				MOV	R3,-(SP)	; R3 
   4813	165040	012746	165070			MOV	#165070,-(SP) 
   4814	165044	016603	000004			MOV	4(SP),R3	;    
   4815	165050	005743				TST	-(R3)		; 	 
   4816	165052	011303				MOV	@R3,R3		;  
   4817	165054	042703	177000			BIC	#177000,R3	; 	EMT 
   4818	165060	020327	000006			CMP	R3,#6		;  6	? 
   4819	165064	003403				BLE	.+10		;,  
   4820	165066	000207				RTS	PC
   4821	165070	012603				MOV	(SP)+,R3	; R3
   4822	165072	000002				RTI			;  
   4823	165074	006303				ASL	R3
   4824	165076	016307	165104			MOV	165104(R3),PC	;      
   4825	165102	000777				BR	.+0 
   4826	
   4827	
   4828						;     
   4829						;   
   4830	
   4831	165104	165326				165326			;+0
   4832	165106	165254				165254			;+1
   4833	165110	165160				165160			;+2
   4834	165112	165122				165122			;+3
   4835	165114	165216				165216			;+4
   4836	165116	165336				165336			;+5
   4837	165120	165412				165412			;+6	 4838 
   4839						;**********************************************************************	
   4840						; 
   4841						;  +3. 
   4842						;     
   4843						; 
   4844						;***********************************************************************
   4845	

-							       -						  -

				       -116- 
			    589.7545471.00066-01 12 01


   4846	165122	010146				MOV	R1,-(SP)
   4847	165124	011603				MOV	@SP,R3		;   
   4848	165126	000303				SWAB	R3
   4849	165130	006303				ASL	R3
   4850	165132	006303				ASL	R3
   4851	165134	042703	177400			BIC	#177400,R3
   4852	165140	042716	177400			BIC	#177400,@SP 
   4853	165144	062716	000070			ADD	#70,@SP	
   4854	165150	011663	173202			MOV	@SP,173202(R3)	;    
   4855	165154	005726				TST	(SP)+ 
   4856	165156	000207				RTS	PC
   4857	
   4858						;***********************************************************************
   4859						; 
   4860						;  +2
   4861						;     
   4862						; 
   4863						;***********************************************************************
   4864	
   4865	165160	010146				MOV	R1,-(SP)
   4866	165162	011603				MOV	@SP,R3		;   
   4867	165164	000303				SWAB	R3
   4868	165166	006303				ASL	R3
   4869	165170	006303				ASL	R3
   4870	165172	042703	177400			BIC	#177400,R3
   4871	165176	042716	177400			BIC	#177400,@SP 
   4872	165202	062716	000030			ADD	#30,@SP	
   4873	165206	011663	173202			MOV	@SP,173202(R3)	;    
   4874	165212	005726				TST	(SP)+ 
   4875	165214	000207				RTS	PC
   4876	
   4877						;***********************************************************************
   4878						; 
   4879						;  +4
   4880						; 	    
   4881						; 
   4882						;***********************************************************************
   4883	
   4884	165216	010146				MOV	R1,-(SP)
   4885	165220	011603				MOV	@SP,R3		;   
   4886	165222	000303				SWAB	R3
   4887	165224	006303				ASL	R3
   4888	165226	006303				ASL	R3
   4889	165230	042703	177400			BIC	#177400,R3
   4890	165234	042716	177400			BIC	#177400,@SP 
   4891	165240	062716	000130			ADD	#130,@SP
   4892	165244	011663	173202			MOV	@SP,173202(R3)	;    	
   4893	165250	005726				TST	(SP)+ 
   4894	165252	000207				RTS	PC
   4895	
   4896						;***********************************************************************
   4897						; 
   4898						;  +1
   4899						;      R0   
   4900						; 
   4901						;***********************************************************************
   4902	
-							       -						  -

				       -117- 
			    589.7545471.00066-01 12 01


   4903	165254	010146				MOV	R1,-(SP)	; R1 
   4904	165256	010246				MOV	R2,-(SP)	; R2 
   4905	165260	012701	177762			MOV	#177762,R1	;    . 
   4906	165264	005002				CLR	R2		; R2
   4907	165266	020061	117776			CMP	R0,117776(R1)	;    ? 
   4908	165272	001411				BEQ	165316		;,   
   4909	165274	022702	000007			CMP	#7,R2		; ? 
   4910	165300	001404				BEQ	165312		;,   
   4911	165302	162701	000004			SUB	#4,R1		; 	   .
   4912	165306	005202				INC	R2		; 	  
   4913	165310	000766				BR	165266
   4914	165312	052702	177777			BIS	#-1,R2		;    	
   4915	165316	010200				MOV	R2,R0		;  
   4916	165320	012602				MOV	(SP)+,R2	; R2
   4917	165322	012601				MOV	(SP)+,R1	; R1
   4918	165324	000207				RTS	PC		;  
   4919	
   4920	
   4921						;***********************************************************************
   4922						; 
   4923						;  +0
   4924						;   ,   
   4925						;  
   4926						; 
   4927						;*********************************************************************
   4928	
   4929	165326	012766	164706	000004		MOV	#164706,4(SP)	;    
   4930									;   
   4931	165334	000207				RTS	PC
   4932	
   4933	
   4934						;***********************************************************************
   4935						; 
   4936						;  +5
   4937						;    172342-172350 	
   4938						;  .
   4939						; . 172342-172350	  .  1766-1774	
   4940						; 
   4941						;***********************************************************************
   4942	
   4943	165336	010146				MOV	R1,-(SP)
   4944	165340	012701	002000			MOV	#2000,R1	;    
   4945	165344	010046				MOV	R0,-(SP)	; R0 
   4946	165346	012700	172342			MOV	#172342,R0	;  
   4947	165352	016641	000016			MOV	16(SP),-(R1)	;  
   4948	165356	016603	000014			MOV	14(SP),R3 
   4949	165362	072327	000007			ASH	#7,R3		; .   
   4950									;   
   4951	165366	011041				MOV	@R0,-(R1)	; 
   4952	165370	010320				MOV	R3,(R0)+	; 	 
   4953	165372	062703	000200			ADD	#200,R3		;   
   4954	165376	005366	000016			DEC	16(SP)
   4955	165402	001371				BNE	165366
   4956	165404	012600				MOV	(SP)+,R0	; R0
   4957	165406	012601				MOV	(SP)+,R1	; R1
   4958	165410	000207				RTS	PC
   4959	
-							       -						  -

				       -118- 
			    589.7545471.00066-01 12 01


   4960	
   4961						;***********************************************************************
   4962						; 
   4963						;  +6
   4964						;    172342-172350
   4965						;  1766-1774    
   4966						; 
   4967						;***********************************************************************
   4968	
   4969	165412	010046				MOV	R0,-(SP)	; R0 
   4970	165414	010146				MOV	R1,-(SP)	; R1 
   4971	165416	012701	002000			MOV	#2000,R1	;   R1 
   4972	165422	014146				MOV	-(R1),-(SP)	;  
   4973	165424	005716				TST	@SP		;   ? 
   4974	165426	001405				BEQ	165442		;,   
   4975	165430	012700	172342			MOV	#172342,R0	;  
   4976	165434	014120				MOV	-(R1),(R0)+	;  
   4977	165436	005316				DEC	@SP		;  ?	
   4978	165440	001375				BNE	.-4		;,  
   4979	165442	005037	001776			CLR	@#1776
   4980	165446	005726				TST	(SP)+		; 
   4981	165450	012601				MOV	(SP)+,R1	; R1
   4982	165452	012600				MOV	(SP)+,R0	; R0
   4983	165454	000207				RTS	PC		;  
   4984	
   4985						;***********************************************************************
   4986						; 
   4987						;   111 		
   4988						; R0  R1 (  )
   4989						; 
   4990						;***********************************************************************
   4991	
   4992	165456	012703	000111			MOV	#111,R3		;     
   4993	165462	014041				MOV	-(R0),-(R1)	;  	R0  R1	
   4994									;   
   4995	165464	077302				SOB	R3,.-2		;,    
   4996	165466	000207				RTS	PC
   4997	
   4998						;***********************************************************************
   4999						; 
   5000						;    
   5001						; 
   5002						;*********************************************************************
   5003	
   5004	165470	012737	165744	000004		MOV	#165744,@#4	;    000004 
   5005	165476	012737	000245	173202		MOV	#245,@#173202 
   5006	165504	012737	000260	173202		MOV	#260,@#173202 
   5007	165512	012737	000245	173206		MOV	#245,@#173206 
   5008	165520	012737	000260	173206		MOV	#260,@#173206 
   5009	165526	012737	000245	173212		MOV	#245,@#173212 
   5010	165534	012737	000260	173212		MOV	#260,@#173212 
   5011	165542	005037	177572			CLR	@#177572	;  
   5012	165546	005037	172516			CLR	@#172516	; 22-	
   5013	165552	005037	172340			CLR	@#172340	; 	  
   5014	165556	012737	000200	172342		MOV	#200,@#172342	;  
   5015	165564	012737	000400	172344		MOV	#400,@#172344 
   5016	165572	012737	000600	172346		MOV	#600,@#172346 
-							       -						  -

				       -119- 
			    589.7545471.00066-01 12 01


   5017	165600	012737	001400	172350		MOV	#1400,@#172350
   5018	165606	012737	177400	172354		MOV	#177400,@#172354 ;   
   5019									 ;  	 
   5020	165614	012737	177600	172356		MOV	#177600,@#172356 ;  / 
   5021	165622	012700	000010			MOV	#10,R0
   5022	165626	012701	077406			MOV	#77406,R1	 ;    
   5023	165632	012702	172300			MOV	#172300,R2
   5024	165636	010122				MOV	R1,(R2)+
   5025	165640	077002				SOB	R0,.-2
   5026	165642	012737	000020	172516		MOV	#20,@#172516	; 22-	
   5027	165650	012737	000001	177572		MOV	#1,@#177572	;  
   5028	165656	013737	117706	172352		MOV	@#117706,@#172352 
   5029	165664	006337	172352			ASL	@#172352
   5030	165670	162737	000200	172352		SUB	#200,@#172352	  ;  	
   5031									  ;  
   5032	
   5033	
   5034	165676	012700	120000			MOV	#120000,R0
   5035	165702	012701	140000			MOV	#140000,R1
   5036	165706	004737	165456			JSR	PC,@#165456	;     
   5037									;  00157554-00157776 	  
   5038	165712	004737	142446			JSR	PC,@#142446	;     
   5039									;"  	   	   "
   5040	
   5041	165716	113737	117707	173050		MOVB	@#117707,@#173050 ;  
   5042	165724	123737	117707	173050		CMPB	@#117707,@#173050 ; ?
   5043	165732	001004				BNE	165744		  ;,  
   5044	165734	005000				CLR	R0
   5045	165736	005001				CLR	R1
   5046	165740	000137	167730			JMP	@#167730
   5047	165744	000777				BR	.+0 
   5048	
   5049						;***********************************************************************
   5050						; 
   5051						;   	
   5052						; 	 ,    ,
   5053						; (177640)=0  (177642)=0.
   5054						; (177640)=0	 (177642)=0     	
   5055	
   5056	165746	005737	177640			TST	@#177640	; ?
   5057	165752	001003				BNE	.+10		;,   
   5058	165754	005737	177642			TST	@#177642
   5059	165760	001471				BEQ	166144
   5060	165762	004737	155036			JSR	PC,@#155036	; 		002000-002004 	002010
   5061									;	  
   5062	165766	004777	014016			JSR	PC,@2010	; 	
   5063	165772	012746	144232			MOV	#144232,-(SP) 
   5064	165776	010337	001022			MOV	R3,@#1022 
   5065	166002	012703	177777			MOV	#-1,R3
   5066	166006	004777	013766			JSR	PC,@2000	;      
   5067									;   
   5068	166012	013703	001022			MOV	@#1022,R3 
   5069	166016	013716	177640			MOV	@#177640,@SP	; 	 
   5070	166022	012746	000006			MOV	#6,-(SP)	;    
   5071	166026	005046				CLR	-(SP) 
   5072	166030	012705	001100			MOV	#1100,R5
   5073	166034	004737	143244			JSR	PC,@#143244	; 
-							       -						  -

				       -120- 
			    589.7545471.00066-01 12 01


   5074	166040	012766	001100	000004		MOV	#1100,4(SP) 
   5075	166046	012766	001551	000002		MOV	#1551,2(SP)	;   X
   5076	166054	012716	000151			MOV	#151,@SP	;   Y
   5077	166060	004777	013720			JSR	PC,@2004	;       
   5078	166064	013766	177642	000004		MOV	@#177642,4(SP)	; 	 
   5079	166072	012766	000006	000002		MOV	#6,2(SP)	;    
   5080	166100	005016				CLR	@SP 
   5081	166102	012705	001100			MOV	#1100,R5
   5082	166106	004737	143244			JSR	PC,@#143244	; 
   5083	166112	012766	001100	000004		MOV	#1100,4(SP) 
   5084	166120	012766	001551	000002		MOV	#1551,2(SP)	;   X
   5085	166126	012716	000202			MOV	#202,@SP	;   Y
   5086	166132	004777	013646			JSR	PC,@2004	;    	
   5087	166136	062706	000006			ADD	#6,SP 
   5088	166142	000777				BR	.+0 
   5089	
   5090						;*********************************************************************
   5091						;      (  )	
   5092						;   3 . 
   5093						;**********************************************************************	
   5094	
   5095						;**********************************************************************	
   5096						;     1-    	            
   5097						; 
   5098						;         
   5099						;        
   5100						;   .   	  
   5101						; 	     
   5102						;	 .
   5103						;**********************************************************************	
   5104	
   5105	166144	005037	137564			CLR	@#137564	;    
   5106									;   
   5107	166150	112737	000377	137562		MOVB	#377,@#137562 
   5108	166156	105037	137563			CLRB	@#137563	;   ( 03-00) 
   5109									;	<07>  137563 -   
   5110									;<07>=0 -			 
   5111	166162	012737	166170	137560		MOV	#166170,@#137560 ;   	1- 
   5112									 ;
   5113	166170	012737	000340	177776		MOV	#340,@#177776	;  =7
   5114	166176	012706	001100			MOV	#1100,SP	;   
   5115	166202	004737	167450			JSR	PC,@#167450	; 	 
   5116	166206	123727	137563	000010		CMPB	@#137563,#10	;   ? 
   5117	166214	001403				BEQ	.+10		;  2-	 ,  
   5118	166216	004737	166712			JSR	PC,@#166712	;,  	  
   5119									;   ,  
   5120									;   	
   5121	166222	000762				BR	166170		;,    
   5122	
   5123	
   5124						;**********************************************************************	
   5125						; 
   5126						;    2-               
   5127						; 
   5128						;      ,   
   5129						;.  		 -  173034 	173036
   5130						;  	-  173040  173042 
-							       -						  -

				       -121- 
			    589.7545471.00066-01 12 01


   5131						;***********************************************************************
   5132	
   5133	166224	112737	000377	137562		MOVB	#377,@#137562 
   5134	166232	005037	137564			CLR	@#137564	;    
   5135									; 
   5136	166236	112737	000200	137563		MOVB	#200,@#137563	;   ( 03-00) 
   5137									;  2-  	(	07) 
   5138	166244	005737	137642			TST	@#137642	;    	
   5139									; ?
   5140	166250	001131				BNE	166534		;  3-	 ,	 
   5141	
   5142						; 	  173034-173046
   5143	166252	012737	177777	001020		MOV	#-1,@#1020
   5144	166260	012702	000003			MOV	#3,R2 
   5145	166264	012701	173034			MOV	#173034,R1
   5146	166270	012137	001022			MOV	(R1)+,@#1022
   5147	166274	111137	001023			MOVB	@R1,@#1023
   5148	166300	005721				TST	(R1)+ 
   5149	166302	013703	001022			MOV	@#1022,R3 
   5150	166306	074337	001020			XOR	R3,@#1020 
   5151	166312	000241				CLC 
   5152	166314	006137	001020			ROL	@#1020
   5153	166320	005537	001020			ADC	@#1020
   5154	166324	077217				SOB	R2,166270 
   5155	166326	005737	001020			TST	@#1020		;=0?
   5156	166332	001100				BNE	166534		;  3-	 ,	 
   5157	166334	012737	166422	137560		MOV	#166422,@#137560 ;   	 
   5158									 ;
   5159	166342	113737	173036	001022		MOVB	@#173036,@#1022	
   5160	166350	000337	001022			SWAB	@#1022
   5161	166354	113737	173034	001022		MOVB	@#173034,@#1022	
   5162	166362	013700	001022			MOV	@#1022,R0	;   
   5163									;	
   5164	166366	012737	165036	000030		MOV	#165036,@#30
   5165	166374	012737	000340	000032		MOV	#340,@#32 
   5166	166402	104001				EMT+1			;    
   5167									;  	 R0
   5168									; 		  R0 
   5169									; 177777 
   5170	166404	022700	177777			CMP	#-1,R0		;  ?
   5171	166410	001404				BEQ	166422		;,  
   5172	166412	150037	137563			BISB	R0,@#137563	; 		
   5173	166416	004737	166712			JSR	PC,@#166712	;    
   5174									;   
   5175									; 	 ,   
   5176									;,   173040  173042 
   5177	
   5178	166422	012737	000340	177776		MOV	#340,@#177776	;  =7
   5179	166430	012706	001100			MOV	#1100,SP
   5180	166434	004737	167450			JSR	PC,@#167450	; 	 
   5181	166440	113737	173042	001022		MOVB	@#173042,@#1022	
   5182	166446	000337	001022			SWAB	@#1022
   5183	166452	113737	173040	001022		MOVB	@#173040,@#1022	
   5184	166460	013700	001022			MOV	@#1022,R0	;    
   5185	166464	012737	165036	000030		MOV	#165036,@#30
   5186	166472	012737	000340	000032		MOV	#340,@#32 
   5187	166500	104001				EMT+1			;   
-							       -						  -

				       -122- 
			    589.7545471.00066-01 12 01


   5188	166502	022700	177777			CMP	#-1,R0		;	? 
   5189	166506	001412				BEQ	166534		;,  
   5190	166510	112737	000200	137563		MOVB	#200,@#137563	;   07  2-  
   5191									; 
   5192	166516	150037	137563			BISB	R0,@#137563	; 		
   5193	166522	012737	166534	137560		MOV	#166534,@#137560 ;   		 
   5194									 ;
   5195	166530	004737	166712			JSR	PC,@#166712	;   
   5196									;  3-	 ,	 
   5197									; 
   5198	
   5199						;***********************************************************************
   5200						; 
   5201						;  3-	   	          
   5202						; 
   5203						; 3-  	   
   5204						;,  1-    , 
   5205						;,     -   
   5206						;**********************************************************************	
   5207	
   5208	166534	012737	000340	177776		MOV	#340,@#177776	;  =7
   5209	166542	012706	001100			MOV	#1100,SP	;   
   5210	166546	004737	167450			JSR	PC,@#167450	; 	 
   5211	166552	005037	137564			CLR	@#137564	;    
   5212									; 
   5213	166556	112737	000377	137562		MOVB	#377,@#137562 
   5214	166564	112737	000200	137563		MOVB	#200,@#137563	;   07  3-  
   5215									; 
   5216	166572	012737	166600	137560		MOV	#166600,@#137560 ;   		 
   5217									 ;
   5218	166600	012737	000340	177776		MOV	#340,@#177776	;  =7
   5219	166606	012706	001100			MOV	#1100,SP
   5220	166612	004737	167450			JSR	PC,@#167450	; 	 
   5221	166616	123727	137563	000210		CMPB	@#137563,#210	;	  ?	
   5222	166624	001403				BEQ	.+10		;,   
   5223	166626	004737	166712			JSR	PC,@#166712	;   
   5224	166632	000762				BR	166600		;,    
   5225	
   5226	
   5227	
   5228	166634	004737	155036			JSR	PC,@#155036	; 		002000-002004,002010
   5229									;	  
   5230									;   
   5231	166640	010337	001022			MOV	R3,@#1022 
   5232	166644	012703	177777			MOV	#-1,R3
   5233	166650	012746	147510			MOV	#147510,-(SP) 
   5234	166654	004777	013120			JSR	PC,@2000	;   	 
   5235									;( 		  )
   5236	166660	013703	001022			MOV	@#1022,R3 
   5237	166664	005726				TST	(SP)+ 
   5238	166666	005737	137556			TST	@#137556	;    ?
   5239	166672	001003				BNE	.+10		;,   
   5240	166674	012737	000005	173704		MOV	#5,@#173704	;   2, 4
   5241									;( 		  )
   5242	166702	005000				CLR	R0
   5243	166704	005001				CLR	R1
   5244	166706	000137	167730			JMP	@#167730	;     
-							       -						  -

				       -123- 
			    589.7545471.00066-01 12 01


   5245	
   5246	166712	113705	137563			MOVB	@#137563,R5	;      	
   5247	166716	005003				CLR	R3
   5248	166720	005705				TST	R5		;1-  ? 
   5249	166722	100002				BPL	.+6		;,   
   5250	166724	052703	000007			BIS	#7,R3		;  2-  3-	 	
   5251	166730	052703	000001			BIS	#1,R3		;  1-  	
   5252	166734	042705	177760			BIC	#177760,R5	; 		  
   5253	166740	010546				MOV	R5,-(SP)	;  
   5254	166742	072527	000002			ASH	#2,R5 
   5255	166746	005405				NEG	R5
   5256	166750	132765	000177	137756		BITB	#177,137756(R5)	;,   	, ?
   5257	166756	001164				BNE	167330		;,  
   5258	166760	022765	002004	137760		CMP	#2004,137760(R5);   ? 
   5259	166766	001412				BEQ	167014		;,   
   5260	166770	022765	000401	137760		CMP	#401,137760(R5)	;   ?
   5261	166776	001406				BEQ	167014		;,   
   5262	167000	011605				MOV	@SP,R5		;  
   5263	167002	010346				MOV	R3,-(SP)
   5264	167004	004737	167340			JSR	PC,@#167340	;  3  5   
   5265	167010	012603				MOV	(SP)+,R3
   5266	167012	103546				BCS	167330		;   ,   
   5267									; 
   5268	167014	016537	137760	137564		MOV	137760(R5),@#137564 ; 	 
   5269									    ;   	
   5270	167022	011605				MOV	@SP,R5		;  
   5271	167024	072527	000007			ASH	#7,R5 
   5272	167030	062705	174000			ADD	#174000,R5	; 	   
   5273	167034	022737	002004	137564		CMP	#2004,@#137564	;  ? 
   5274	167042	001011				BNE	167066		;,  
   5275	
   5276						;     
   5277						;  
   5278	167044	012700	155244			MOV	#155244,R0	;   " " 
   5279	167050	012701	000122			MOV	#122,R1		;   	
   5280	167054	012702	002000			MOV	#2000,R2	; 	  
   5281	167060	112022				MOVB	(R0)+,(R2)+	;       
   5282	167062	077102				SOB	R1,.-2
   5283	167064	000422				BR	167132		;    
   5284	167066	022737	000401	137564		CMP	#401,@#137564	;  ?
   5285	167074	001010				BNE	167116		;,  
   5286	
   5287						;     	
   5288						;  
   5289	167076	032703	000002			BIT	#2,R3		;	 ?
   5290	167102	001512				BEQ	167330		;, 	
   5291	167104	012700	155366			MOV	#155366,R0	;   " " 
   5292	167110	012701	000134			MOV	#134,R1		;  
   5293	167114	000757				BR	167054
   5294	167116	012702	164744			MOV	#164744,R2
   5295	167122	004737	154514			JSR	PC,@#154514	;    ,
   5296									;  	   
   5297									; ,		  002000	
   5298	167126	005702				TST	R2		;      
   5299									;	? 
   5300	167130	001077				BNE	167330		;,   
   5301	167132	105237	137562			INCB	@#137562
-							       -						  -

				       -124- 
			    589.7545471.00066-01 12 01


   5302	167136	113700	137562			MOVB	@#137562,R0 
   5303	167142	010501				MOV	R5,R1 
   5304	167144	004737	002000			JSR	PC,@#2000	;  
   5305									;     
   5306									;  (	 )  
   5307									; ,		  000000	
   5308	
   5309	167150	103006				BCC	167166		;,      	
   5310	167152	005702				TST	R2		;     ?
   5311	167154	001067				BNE	167334		;,  
   5312	167156	112737	000377	137562		MOVB	#377,@#137562 
   5313	167164	000461				BR	167330		;   
   5314	167166	010046				MOV	R0,-(SP)
   5315	167170	004737	167364			JSR	PC,@#167364	;     
   5316									;  	
   5317	167174	012600				MOV	(SP)+,R0
   5318	167176	103456				BCS	167334		;,  	 
   5319	167200	010046				MOV	R0,-(SP)	; R0 
   5320	167202	010146				MOV	R1,-(SP)	; R1 
   5321	167204	012701	120000			MOV	#120000,R1
   5322	167210	012700	140000			MOV	#140000,R0
   5323	167214	004737	165456			JSR	PC,@#165456	;      
   5324									;    157554- 157776
   5325	167220	005737	137556			TST	@#137556	;    ?
   5326	167224	001013				BNE	167254		;,   
   5327	167226	032737	000020	173700		BIT	#20,@#173700	; ? 
   5328	167234	001004				BNE	167246		;,   
   5329	167236	012737	000004	173704		MOV	#4,@#173704	;   1,2,4 
   5330									;  	
   5331	167244	000403				BR	.+10
   5332	167246	012737	000017	173704		MOV	#17,@#173704	;  
   5333	167254	004737	155036			JSR	PC,@#155036	; 		002000-002004,002010
   5334									;	  
   5335									;   
   5336	167260	010337	001022			MOV	R3,@#1022 
   5337	167264	005003				CLR	R3
   5338	167266	012746	147510			MOV	#147510,-(SP) 
   5339	167272	004777	012502			JSR	PC,@2000	;     "?"
   5340	167276	013703	001022			MOV	@#1022,R3 
   5341	167302	005726				TST	(SP)+		; 
   5342	167304	012601				MOV	(SP)+,R1	; R1
   5343	167306	012600				MOV	(SP)+,R0	; R0
   5344	167310	013705	117566			MOV	@#117566,R5 
   5345	167314	005037	177572			CLR	@#177572	;  
   5346	167320	005037	172516			CLR	@#172516	; 22-	
   5347	167324	000165	000002			JMP	2(R5)		; 
   5348	
   5349	
   5350	167330	105237	137563			INCB	@#137563	;  
   5351	167334	005726				TST	(SP)+ 
   5352	167336	000207				RTS	PC		;  
   5353	
   5354						;   3	 5 	
   5355	167340	004737	164770			JSR	PC,@#164770 
   5356	167344	103405				BCS	167360		;,   3     377	
   5357	167346	136637	000002	001004		BITB	2(SP),@#1004
   5358	167354	001401				BEQ	.+4 
-							       -						  -

				       -125- 
			    589.7545471.00066-01 12 01


   5359	167356	005727	000261			TST	#261
   5360	167362	000207				RTS	PC		;  
   5361	
   5362						;***********************************************************************
   5363						; 
   5364						;A  	   
   5365						;.   " "   ,
   5366						; ""-    5367					    ; 
   5368						;***********************************************************************
   5369	
   5370	167364	005000				CLR	R0		; 	   
   5371	167366	022710	000260			CMP	#260,@R0	;   = 260?
   5372	167372	001405				BEQ	167406		;,   
   5373	167374	022710	000240			CMP	#240,@R0	;   = 240?
   5374	167400	001402				BEQ	.+6		;,   
   5375	167402	005710				TST	@R0		;   =0? 
   5376	167404	001017				BNE	167444		;   -,   
   5377	167406	005720				TST	(R0)+ 
   5378	167410	005200				INC	R0		; 	   
   5379	167412	122710	000001			CMPB	#1,@R0		;=1? (..  	000002  BR? )
   5380	167416	001012				BNE	167444		;   -,   
   5381	167420	005300				DEC	R0		; 	  
   5382	167422	111003				MOVB	@R0,R3		;    () 
   5383	167424	006303				ASL	R3		; 	
   5384	167426	122713	000020			CMPB	#20,@R3		;   =20?	
   5385	167432	001004				BNE	167444		;   -,   
   5386	167434	032713	002000			BIT	#2000,@R3	;	10 = 1?	
   5387	167440	001401				BEQ	.+4		;   -,   
   5388	
   5389									;#261 -	  "	-" 
   5390									;- , 	 
   5391									;  	
   5392	167442	005727	000261			TST	#261
   5393	167446	000207				RTS	PC		;  
   5394	
   5395	
   5396						;    
   5397	167450	005037	177572			CLR	@#177572
   5398	167454	005037	172516			CLR	@#172516
   5399	167460	005037	172340			CLR	@#172340
   5400	167464	012737	000200	172342		MOV	#200,@#172342 
   5401	167472	012737	000400	172344		MOV	#400,@#172344 
   5402	167500	012737	000600	172346		MOV	#600,@#172346 
   5403	167506	012737	001400	172350		MOV	#1400,@#172350	 ;  
   5404									 ;  		 ,  
   5405									 ;  28 
   5406	167514	013737	173050	172352		MOV	@#173050,@#172352  ;    
   5407	167522	000337	172352			SWAB	@#172352	   ;		   	
   5408	167526	006337	172352			ASL	@#172352	   ;
   5409	167532	162737	000200	172352		SUB	#200,@#172352 
   5410	167540	012737	177400	172354		MOV	#177400,@#172354
   5411	167546	012737	177600	172356		MOV	#177600,@#172356
   5412	167554	012700	000010			MOV	#10,R0
   5413	167560	012701	077406			MOV	#77406,R1 
   5414	167564	012702	172300			MOV	#172300,R2
   5415	167570	010122				MOV	R1,(R2)+

-							       -						  -
				      -126-
			    589.7545471.00066-01 12 01

   5416	167572	077002				SOB	R0,.-2
   5417	167574	012737	000020	172516		MOV	#20,@#172516	  ; 22- 
   5418	167602	012737	000001	177572		MOV	#1,@#177572	  ; 	
   5419	167610	000207				RTS	PC		  ;  
   5420	
   5421						;*******************************************************************
   5422						; 
   5423						; 		- 	
   5424						; 1  2	
   5425						; 
   5426						;******************************************************************** 
   5427	
   5428	167612	005737	177650			TST	@#177650	  ;-   1 ? 
   5429	167616	001010				BNE	167640		  ;,   
   5430	167620	012762	000020	000004		MOV	#20,4(R2)	  ;  -  
   5431									  ;   1 	
   5432	167626	010001				MOV	R0,R1 
   5433	167630	005237	177650			INC	@#177650	  ;   1-  
   5434	167634	000137	135300			JMP	@#135300
   5435	167640	022737	000001	177650		CMP	#1,@#177650	  ;-   2 ? 
   5436	167646	001007				BNE	167666		  ;,   
   5437	167650	005237	177650			INC	@#177650	  ;   2-  
   5438	167654	012762	000022	000004		MOV	#22,4(R2)	  ;  - 
   5439									  ;   2 	
   5440	167662	000137	135320			JMP	@#135320
   5441	167666	005037	177650			CLR	@#177650
   5442	167672	000137	135460			JMP	@#135460
   5443	
   5444						;******************************************************************** 
   5445						; 
   5446						;    	
   5447						; 
   5448						;*********************************************************************
   5449	
   5450	167700	012737	000340	177776		MOV	#340,@#177776	;  =7
   5451	167706	012706	001100			MOV	#1100,SP	;   
   5452	167712	004737	167450			JSR	PC,@#167450	; 	 
   5453	167716	000177	147636			JMP	@137560		;    
   5454	167722	000000				0 
   5455	167724	000000				0 
   5456	167726	000000				0 
   5457	
   5458						;******************************************************************** 
   5459						; 
   5460						;     	  
   5461						;  
   5462						; 
   5463						;*********************************************************************
   5464	
   5465	167730	012737	000340	177776		MOV	#340,@#177776	;   =7 
   5466	167736	010037	177640			MOV	R0,@#177640 
   5467	167742	010137	177642			MOV	R1,@#177642 
   5468	167746	012706	001100			MOV	#1100,SP
   5469	167752	004737	167450			JSR	PC,@#167450	; 	 
   5470	167756	000177	147606			JMP	@137570		;      
   5471									;    ,
   5472									; R0  R1		 0
   5473	167762					.BLKW 7	
   5474		000001				.END
-							       -						  -



