perm filename IAUX1B.LST[EAL,HE]1 blob sn#708976 filedate 1983-04-28 generic text, type T, neo UTF8
IAUX1B	MACRO M1113  10-MAR-83 00:57  PAGE 1


      1		000000 				AC0=R0
      2		000001 				AC1=R1
      3		000002 				AC2=R2
      4		000003 				AC3=R3
      5		000004 				AC4=R4
      6		000005 				AC5=R5
      7
      8						.TITLE	IAUX1B
      9					.GLOBL	$RESR6,	$FILE
     10					.GLOBL	$RESR5
     11		000014 				$VER==12.
     12
     13	000000				.PSECT	GLOBAL,D,OVR,GBL
     14	000000	005644'			$G$:	.=.+5644
     15
     16	000000				.PSECT	TABLES,D,OVR,GBL
     17	000000	001001 			$BITS:	.WORD 1001
     18	000002	004004 				.WORD 4004
     19	000004	020020 				.WORD 20020
     20	000006	100100 				.WORD 100100
     21	000010	000001 				.WORD 1
     22	000012	000002 				.WORD 2
     23	000014	000004 				.WORD 4
     24	000016	000010 				.WORD 10
     25	000020	000020 				.WORD 20
     26	000022	000040 				.WORD 40
     27	000024	000100 				.WORD 100
     28	000026	000200 				.WORD 200
     29	000030	000400 				.WORD 400
     30	000032	001000 				.WORD 1000
     31	000034	002000 				.WORD 2000
     32	000036	004000 				.WORD 4000
     33	000040	010000 				.WORD 10000
     34	000042	020000 				.WORD 20000
     35	000044	040000 				.WORD 40000
     36	000046	100000 				.WORD 100000
     37
     38	000000				.PSECT	CONSTS,D,CON,LCL
     39	000000				$CONST:
     40	000000	060526 				.WORD 60526
     41	000002	072554 				.WORD 72554
     42	000004	020145 				.WORD 20145
     43	000006	072123 				.WORD 72123
     44	000010	061541 				.WORD 61541
     45	000012	020153 				.WORD 20153
     46	000014	067125 				.WORD 67125
     47	000016	062544 				.WORD 62544
     48	000020	063162 				.WORD 63162
     49	000022	067554 				.WORD 67554
     50	000024	062566 				.WORD 62566
     51	000026	072143 				.WORD 72143
     52	000030	071157 				.WORD 71157
     53	000032	020050 				.WORD 20050
     54	000034	020040 				.WORD 20040
     55	000036	071164 				.WORD 71164
     56	000040	067141 				.WORD 67141
     57	000042	024163 				.WORD 24163
IAUX1B	MACRO M1113  10-MAR-83 00:57  PAGE 1-1


     58	000044	067562 				.WORD 67562
     59	000046	024164 				.WORD 24164
     60	000050	026051 				.WORD 26051
     61	000052	062566 				.WORD 62566
     62	000054	072143 				.WORD 72143
     63	000056	071157 				.WORD 71157
     64	000060	020050 				.WORD 20050
     65	000062	067516 				.WORD 67516
     66	000064	060556 				.WORD 60556
     67	000066	062555 				.WORD 62555
     68	000070	020040 				.WORD 20040
     69	000072	020040 				.WORD 20040
     70	000074	020040 				.WORD 20040
     71	000076	065040 				.WORD 65040
     72	000100	064557 				.WORD 64557
     73	000102	072156 				.WORD 72156
     74	000104	071450 				.WORD 71450
     75	000106	020051 				.WORD 20051
     76	000110	020075 				.WORD 20075
     77	000112	020040 				.WORD 20040
     78	000114	020040 				.WORD 20040
     79	000116	020040 				.WORD 20040
     80	000120	071141 				.WORD 71141
     81	000122	020155 				.WORD 20155
     82	000124	067560 				.WORD 67560
     83	000126	062567 				.WORD 62567
     84	000130	020162 				.WORD 20162
     85	000132	067556 				.WORD 67556
     86	000134	020164 				.WORD 20164
     87	000136	067157 				.WORD 67157
     88	000140	020040 				.WORD 20040
     89	000142	020040 				.WORD 20040
     90	000144	062544 				.WORD 62544
     91	000146	064566 				.WORD 64566
     92	000150	062543 				.WORD 62543
     93	000152	061440 				.WORD 61440
     94	000154	071165 				.WORD 71165
     95	000156	062562 				.WORD 62562
     96	000160	072156 				.WORD 72156
     97	000162	074554 				.WORD 74554
     98	000164	064440 				.WORD 64440
     99	000166	020156 				.WORD 20156
    100	000170	071565 				.WORD 71565
    101	000172	020145 				.WORD 20145
    102	000174	026040 				.WORD 26040
    103	000176	062563 				.WORD 62563
    104	000200	073162 				.WORD 73162
    105	000202	020157 				.WORD 20157
    106	000204	062544 				.WORD 62544
    107	000206	062141 				.WORD 62141
    108	000210	027541 				.WORD 27541
    109	000212	020144 				.WORD 20144
    110	000214	071145 				.WORD 71145
    111	000216	067562 				.WORD 67562
    112	000220	020162 				.WORD 20162
    113	000222	060560 				.WORD 60560
    114	000224	064556 				.WORD 64556
IAUX1B	MACRO M1113  10-MAR-83 00:57  PAGE 1-2


    115	000226	020143 				.WORD 20143
    116	000230	072542 				.WORD 72542
    117	000232	072164 				.WORD 72164
    118	000234	067157 				.WORD 67157
    119	000236	070040 				.WORD 70040
    120	000240	071565 				.WORD 71565
    121	000242	062550 				.WORD 62550
    122	000244	020144 				.WORD 20144
    123	000246	074145 				.WORD 74145
    124	000250	062543 				.WORD 62543
    125	000252	071563 				.WORD 71563
    126	000254	073151 				.WORD 73151
    127	000256	020145 				.WORD 20145
    128	000260	067552 				.WORD 67552
    129	000262	067151 				.WORD 67151
    130	000264	020164 				.WORD 20164
    131	000266	067546 				.WORD 67546
    132	000270	061562 				.WORD 61562
    133	000272	064564 				.WORD 64564
    134	000274	062555 				.WORD 62555
    135	000276	067440 				.WORD 67440
    136	000300	072165 				.WORD 72165
    137	000302	020040 				.WORD 20040
    138	000304	067552 				.WORD 67552
    139	000306	067151 				.WORD 67151
    140	000310	020164 				.WORD 20164
    141	000312	072557 				.WORD 72557
    142	000314	020164 				.WORD 20164
    143	000316	063157 				.WORD 63157
    144	000320	071040 				.WORD 71040
    145	000322	067141 				.WORD 67141
    146	000324	062547 				.WORD 62547
    147	000326	020040 				.WORD 20040
    148	000330	060542 				.WORD 60542
    149	000332	020144 				.WORD 20144
    150	000334	067560 				.WORD 67560
    151	000336	020164 				.WORD 20164
    152	000340	067157 				.WORD 67157
    153	000342	050040 				.WORD 50040
    154	000344	046525 				.WORD 46525
    155	000346	020101 				.WORD 20101
    156	000350	020040 				.WORD 20040
    157	000352	020040 				.WORD 20040
    158	000354	067516 				.WORD 67516
    159	000356	060440 				.WORD 60440
    160	000360	066562 				.WORD 66562
    161	000362	071440 				.WORD 71440
    162	000364	066157 				.WORD 66157
    163	000366	072165 				.WORD 72165
    164	000370	067551 				.WORD 67551
    165	000372	020156 				.WORD 20156
    166	000374	020040 				.WORD 20040
    167	000376	020040 				.WORD 20040
    168	000400	067516 				.WORD 67516
    169	000402	041440 				.WORD 41440
    170	000404	071141 				.WORD 71141
    171	000406	062564 				.WORD 62564
IAUX1B	MACRO M1113  10-MAR-83 00:57  PAGE 1-3


    172	000410	064563 				.WORD 64563
    173	000412	067141 				.WORD 67141
    174	000414	070040 				.WORD 70040
    175	000416	072141 				.WORD 72141
    176	000420	020150 				.WORD 20150
    177	000422	074145 				.WORD 74145
    178	000424	071551 				.WORD 71551
    179	000426	071564 				.WORD 71564
    180	000430	061040 				.WORD 61040
    181	000432	072145 				.WORD 72145
    182	000434	062567 				.WORD 62567
    183	000436	067145 				.WORD 67145
    184	000440	072040 				.WORD 72040
    185	000442	062550 				.WORD 62550
    186	000444	062563 				.WORD 62563
    187	000446	070040 				.WORD 70040
    188	000450	072141 				.WORD 72141
    189	000452	020150 				.WORD 20150
    190	000454	067560 				.WORD 67560
    191	000456	067151 				.WORD 67151
    192	000460	071564 				.WORD 71564
    193	000462	020056 				.WORD 20056
    194	000464	020040 				.WORD 20040
    195	000466	020040 				.WORD 20040
    196	000470	020040 				.WORD 20040
    197	000472	020040 				.WORD 20040
    198	000474	070123 				.WORD 70123
    199	000476	061545 				.WORD 61545
    200	000500	063151 				.WORD 63151
    201	000502	062551 				.WORD 62551
    202	000504	020144 				.WORD 20144
    203	000506	067555 				.WORD 67555
    204	000510	064564 				.WORD 64564
    205	000512	067157 				.WORD 67157
    206	000514	072040 				.WORD 72040
    207	000516	066551 				.WORD 66551
    208	000520	020145 				.WORD 20145
    209	000522	074145 				.WORD 74145
    210	000524	062543 				.WORD 62543
    211	000526	062145 				.WORD 62145
    212	000530	020163 				.WORD 20163
    213	000532	060543 				.WORD 60543
    214	000534	060560 				.WORD 60560
    215	000536	064542 				.WORD 64542
    216	000540	064554 				.WORD 64554
    217	000542	064564 				.WORD 64564
    218	000544	071545 				.WORD 71545
    219	000546	020056 				.WORD 20056
    220	000550	026040 				.WORD 26040
    221	000552	067515 				.WORD 67515
    222	000554	064564 				.WORD 64564
    223	000556	067157 				.WORD 67157
    224	000560	067440 				.WORD 67440
    225	000562	062566 				.WORD 62566
    226	000564	066162 				.WORD 66162
    227	000566	020171 				.WORD 20171
    228	000570	067543 				.WORD 67543
IAUX1B	MACRO M1113  10-MAR-83 00:57  PAGE 1-4


    229	000572	071556 				.WORD 71556
    230	000574	071164 				.WORD 71164
    231	000576	064541 				.WORD 64541
    232	000600	062556 				.WORD 62556
    233	000602	026144 				.WORD 26144
    234	000604	073440 				.WORD 73440
    235	000606	066151 				.WORD 66151
    236	000610	020154 				.WORD 20154
    237	000612	063551 				.WORD 63551
    238	000614	067556 				.WORD 67556
    239	000616	062562 				.WORD 62562
    240	000620	063440 				.WORD 63440
    241	000622	067554 				.WORD 67554
    242	000624	060542 				.WORD 60542
    243	000626	020154 				.WORD 20154
    244	000630	064564 				.WORD 64564
    245	000632	062555 				.WORD 62555
    246	000634	061440 				.WORD 61440
    247	000636	067157 				.WORD 67157
    248	000640	072163 				.WORD 72163
    249	000642	060562 				.WORD 60562
    250	000644	067151 				.WORD 67151
    251	000646	027164 				.WORD 27164
    252	000650	020040 				.WORD 20040
    253	000652	026040 				.WORD 26040
    254	000654	060515 				.WORD 60515
    255	000656	064570 				.WORD 64570
    256	000660	072555 				.WORD 72555
    257	000662	020155 				.WORD 20155
    258	000664	062563 				.WORD 62563
    259	000666	066547 				.WORD 66547
    260	000670	067145 				.WORD 67145
    261	000672	020164 				.WORD 20164
    262	000674	064564 				.WORD 64564
    263	000676	062555 				.WORD 62555
    264	000700	060440 				.WORD 60440
    265	000702	066154 				.WORD 66154
    266	000704	073557 				.WORD 73557
    267	000706	062145 				.WORD 62145
    268	000710	064440 				.WORD 64440
    269	000712	020163 				.WORD 20163
    270	000714	031063 				.WORD 31063
    271	000716	031056 				.WORD 31056
    272	000720	071440 				.WORD 71440
    273	000722	061545 				.WORD 61545
    274	000724	067157 				.WORD 67157
    275	000726	071544 				.WORD 71544
    276	000730	026056 				.WORD 26056
    277	000732	060502 				.WORD 60502
    278	000734	020144 				.WORD 20144
    279	000736	060515 				.WORD 60515
    280	000740	064547 				.WORD 64547
    281	000742	020143 				.WORD 20143
    282	000744	060520 				.WORD 60520
    283	000746	060562 				.WORD 60562
    284	000750	062555 				.WORD 62555
    285	000752	062564 				.WORD 62564
IAUX1B	MACRO M1113  10-MAR-83 00:57  PAGE 1-5


    286	000754	020162 				.WORD 20162
    287	000756	067125 				.WORD 67125
    288	000760	067153 				.WORD 67153
    289	000762	073557 				.WORD 73557
    290	000764	020156 				.WORD 20156
    291	000766	062515 				.WORD 62515
    292	000770	071563 				.WORD 71563
    293	000772	063541 				.WORD 63541
    294	000774	020145 				.WORD 20145
    295	000776	074524 				.WORD 74524
    296	001000	062560 				.WORD 62560
    297	001002	071040 				.WORD 71040
    298	001004	061545 				.WORD 61545
    299	001006	064545 				.WORD 64545
    300	001010	062566 				.WORD 62566
    301	001012	020144 				.WORD 20144
    302	001014	071146 				.WORD 71146
    303	001016	066557 				.WORD 66557
    304	001020	040440 				.WORD 40440
    305	001022	020514 				.WORD 20514
    306	001024	020040 				.WORD 20040
    307	001026	067516 				.WORD 67516
    308	001030	055040 				.WORD 55040
    309	001032	071145 				.WORD 71145
    310	001034	020157 				.WORD 20157
    311	001036	067111 				.WORD 67111
    312	001040	062544 				.WORD 62544
    313	001042	020170 				.WORD 20170
    314	001044	067546 				.WORD 67546
    315	001046	067165 				.WORD 67165
    316	001050	020144 				.WORD 20144
    317	001052	020050 				.WORD 20050
    318	001054	052520 				.WORD 52520
    319	001056	040515 				.WORD 40515
    320	001060	042440 				.WORD 42440
    321	001062	061556 				.WORD 61556
    322	001064	062157 				.WORD 62157
    323	001066	071145 				.WORD 71145
    324	001070	024440 				.WORD 24440
    325	001072	020040 				.WORD 20040
    326	001074	020040 				.WORD 20040
    327	001076	062504 				.WORD 62504
    328	001100	064566 				.WORD 64566
    329	001102	062543 				.WORD 62543
    330	001104	061440 				.WORD 61440
    331	001106	067141 				.WORD 67141
    332	001110	072047 				.WORD 72047
    333	001112	070040 				.WORD 70040
    334	001114	071145 				.WORD 71145
    335	001116	067546 				.WORD 67546
    336	001120	066562 				.WORD 66562
    337	001122	061440 				.WORD 61440
    338	001124	066557 				.WORD 66557
    339	001126	060555 				.WORD 60555
    340	001130	062156 				.WORD 62156
    341	001132	062145 				.WORD 62145
    342	001134	060440 				.WORD 60440
IAUX1B	MACRO M1113  10-MAR-83 00:57  PAGE 1-6


    343	001136	072143 				.WORD 72143
    344	001140	067551 				.WORD 67551
    345	001142	020156 				.WORD 20156
    346	001144	020040 				.WORD 20040
    347	001146	051101 				.WORD 51101
    348	001150	020115 				.WORD 20115
    349	001152	067503 				.WORD 67503
    350	001154	062544 				.WORD 62544
    351	001156	061440 				.WORD 61440
    352	001160	066557 				.WORD 66557
    353	001162	072560 				.WORD 72560
    354	001164	062564 				.WORD 62564
    355	001166	061040 				.WORD 61040
    356	001170	072557 				.WORD 72557
    357	001172	062156 				.WORD 62156
    358	001174	020041 				.WORD 20041
    359	001176	026040 				.WORD 26040
    360	001200	062506 				.WORD 62506
    361	001202	072141 				.WORD 72141
    362	001204	071165 				.WORD 71165
    363	001206	020145 				.WORD 20145
    364	001210	067556 				.WORD 67556
    365	001212	020164 				.WORD 20164
    366	001214	073141 				.WORD 73141
    367	001216	064541 				.WORD 64541
    368	001220	060554 				.WORD 60554
    369	001222	066142 				.WORD 66142
    370	001224	020145 				.WORD 20145
    371	001226	062571 				.WORD 62571
    372	001230	027164 				.WORD 27164
    373	001232	020040 				.WORD 20040
    374	001234	020040 				.WORD 20040
    375	001236	067125 				.WORD 67125
    376	001240	067153 				.WORD 67153
    377	001242	073557 				.WORD 73557
    378	001244	020156 				.WORD 20156
    379	001246	071145 				.WORD 71145
    380	001250	067562 				.WORD 67562
    381	001252	020562 				.WORD 20562
    382	001254	036440 				.WORD 36440
    383	001256	020040 				.WORD 20040
    384	001260	020040 				.WORD 20040
    385	001262	071105 				.WORD 71105
    386	001264	067562 				.WORD 67562
    387	001266	020162 				.WORD 20162
    388	001270	067151 				.WORD 67151
    389	001272	063440 				.WORD 63440
    390	001274	072145 				.WORD 72145
    391	001276	071101 				.WORD 71101
    392	001300	035555 				.WORD 35555
    393	001302	062440 				.WORD 62440
    394	001304	071162 				.WORD 71162
    395	001306	063056 				.WORD 63056
    396	001310	060554 				.WORD 60554
    397	001312	036547 				.WORD 36547
    398	001314	060506 				.WORD 60506
    399	001316	060564 				.WORD 60564
IAUX1B	MACRO M1113  10-MAR-83 00:57  PAGE 1-7


    400	001320	020154 				.WORD 20154
    401	001322	071145 				.WORD 71145
    402	001324	067562 				.WORD 67562
    403	001326	035162 				.WORD 35162
    404	001330	020040 				.WORD 20040
    405	001332	020040 				.WORD 20040
    406	001334	020040 				.WORD 20040
    407	001336	020040 				.WORD 20040
    408	001340	060527 				.WORD 60527
    409	001342	067162 				.WORD 67162
    410	001344	067151 				.WORD 67151
    411	001346	035147 				.WORD 35147
    412	001350	020040 				.WORD 20040
    413	001352	060547 				.WORD 60547
    414	001354	066562 				.WORD 66562
    415	001356	026440 				.WORD 26440
    416	001360	020040 				.WORD 20040
    417	001362	020040 				.WORD 20040
    418	001364	064147 				.WORD 64147
    419	001366	067141 				.WORD 67141
    420	001370	020144 				.WORD 20144
    421	001372	020055 				.WORD 20055
    422	001374	020040 				.WORD 20040
    423	001376	060562 				.WORD 60562
    424	001400	066562 				.WORD 66562
    425	001402	026440 				.WORD 26440
    426	001404	020040 				.WORD 20040
    427	001406	020040 				.WORD 20040
    428	001410	064162 				.WORD 64162
    429	001412	067141 				.WORD 67141
    430	001414	020144 				.WORD 20144
    431	001416	020055 				.WORD 20055
    432	001420	020040 				.WORD 20040
    433	001422	071144 				.WORD 71144
    434	001424	073151 				.WORD 73151
    435	001426	071145 				.WORD 71145
    436	001430	026440 				.WORD 26440
    437	001432	020040 				.WORD 20040
    438	001434	064566 				.WORD 64566
    439	001436	062563 				.WORD 62563
    440	001440	026440 				.WORD 26440
    441	001442	020040 				.WORD 20040
    442	001444	020040 				.WORD 20040
    443	001446	067165 				.WORD 67165
    444	001450	067153 				.WORD 67153
    445	001452	073557 				.WORD 73557
    446	001454	020156 				.WORD 20156
    447	001456	062544 				.WORD 62544
    448	001460	064566 				.WORD 64566
    449	001462	062543 				.WORD 62543
    450	001464	026440 				.WORD 26440
    451	001466	020040 				.WORD 20040
    452	001470	020040 				.WORD 20040
    453	001472	060502 				.WORD 60502
    454	001474	020144 				.WORD 20144
    455	001476	062555 				.WORD 62555
    456	001500	071563 				.WORD 71563
IAUX1B	MACRO M1113  10-MAR-83 00:57  PAGE 1-8


    457	001502	063541 				.WORD 63541
    458	001504	020145 				.WORD 20145
    459	001506	062562 				.WORD 62562
    460	001510	062543 				.WORD 62543
    461	001512	073151 				.WORD 73151
    462	001514	062145 				.WORD 62145
    463	001516	062040 				.WORD 62040
    464	001520	071165 				.WORD 71165
    465	001522	067151 				.WORD 67151
    466	001524	020147 				.WORD 20147
    467	001526	051101 				.WORD 51101
    468	001530	020115 				.WORD 20115
    469	001532	040515 				.WORD 40515
    470	001534	044507 				.WORD 44507
    471	001536	020103 				.WORD 20103
    472	001540	020055 				.WORD 20055
    473	001542	067507 				.WORD 67507
    474	001544	062157 				.WORD 62157
    475	001546	046040 				.WORD 46040
    476	001550	061565 				.WORD 61565
    477	001552	020553 				.WORD 20553
    478	001554	060504 				.WORD 60504
    479	001556	060564 				.WORD 60564
    480	001560	074564 				.WORD 74564
    481	001562	062560 				.WORD 62560
    482	001564	067440 				.WORD 67440
    483	001566	020146 				.WORD 20146
    484	001570	060566 				.WORD 60566
    485	001572	072554 				.WORD 72554
    486	001574	020145 				.WORD 20145
    487	001576	062562 				.WORD 62562
    488	001600	072564 				.WORD 72564
    489	001602	067162 				.WORD 67162
    490	001604	062145 				.WORD 62145
    491	001606	063040 				.WORD 63040
    492	001610	067562 				.WORD 67562
    493	001612	020155 				.WORD 20155
    494	001614	051101 				.WORD 51101
    495	001616	020115 				.WORD 20115
    496	001620	040515 				.WORD 40515
    497	001622	044507 				.WORD 44507
    498	001624	020103 				.WORD 20103
    499	001626	067544 				.WORD 67544
    500	001630	071545 				.WORD 71545
    501	001632	067040 				.WORD 67040
    502	001634	072157 				.WORD 72157
    503	001636	066440 				.WORD 66440
    504	001640	072141 				.WORD 72141
    505	001642	064143 				.WORD 64143
    506	001644	020040 				.WORD 20040
    507	001646	020040 				.WORD 20040
    508	001650	067516 				.WORD 67516
    509	001652	020164 				.WORD 20164
    510	001654	067145 				.WORD 67145
    511	001656	072557 				.WORD 72557
    512	001660	064147 				.WORD 64147
    513	001662	073040 				.WORD 73040
IAUX1B	MACRO M1113  10-MAR-83 00:57  PAGE 1-9


    514	001664	066141 				.WORD 66141
    515	001666	062565 				.WORD 62565
    516	001670	020163 				.WORD 20163
    517	001672	060560 				.WORD 60560
    518	001674	071563 				.WORD 71563
    519	001676	062145 				.WORD 62145
    520	001700	061040 				.WORD 61040
    521	001702	061541 				.WORD 61541
    522	001704	020153 				.WORD 20153
    523	001706	071146 				.WORD 71146
    524	001710	066557 				.WORD 66557
    525	001712	040440 				.WORD 40440
    526	001714	046522 				.WORD 46522
    527	001716	046440 				.WORD 46440
    528	001720	043501 				.WORD 43501
    529	001722	041511 				.WORD 41511
    530	001724	026040 				.WORD 26040
    531	001726	067125 				.WORD 67125
    532	001730	067153 				.WORD 67153
    533	001732	073557 				.WORD 73557
    534	001734	020156 				.WORD 20156
    535	001736	062555 				.WORD 62555
    536	001740	071563 				.WORD 71563
    537	001742	063541 				.WORD 63541
    538	001744	020145 				.WORD 20145
    539	001746	063157 				.WORD 63157
    540	001750	072040 				.WORD 72040
    541	001752	070171 				.WORD 70171
    542	001754	035145 				.WORD 35145
    543	001756	026040 				.WORD 26040
    544	001760	000160 				.WORD 160
    545	001762	000000 				.WORD 0
    546
    547	000000				.PSECT	,I,LCL
    548	000000				$CODE:
IAUX1B	MACRO M1113  10-MAR-83 00:57  PAGE 2


    550					.GLOBL	IAUX1BGET
    551	000000				IAUX1BGET:
    552	000000	004767 	000000G			JSR	PC,$B127
    553					.GLOBL	$B127
    554	000004	000207 				RTS	PC
IAUX1B	MACRO M1113  10-MAR-83 00:57  PAGE 3


    556					;POP
    557	000006				P28:
    558	000006	010346 				MOV	R3,-(SP)
    559	000010	010246 				MOV	R2,-(SP)
    560	000012	004767 	000000G			JSR	PC,$B127
    561	000016	005737 	005562'			TST	@#$G$+5562
    562	000022	001002 				BNE	.+6
    563	000024	004767 	000000G			JSR	PC,$B47
    564					.GLOBL	$B47
    565	000030	013703 	005562'			MOV	@#$G$+5562,R3
    566	000034	016366 	000016 	000006 		MOV	16(R3),6(SP)
    567	000042	001021 				BNE	L3
    568	000044	012703 	000024'			MOV	#$CONST+24,R3
    569	000050	012702 	000012 			MOV	#12,R2
    570	000054	014346 			L32766:	MOV	-(R3),-(SP)
    571	000056	077202 				SOB	R2,L32766
    572	000060	012746 	000024 			MOV	#24,-(SP)
    573	000064	004767 	000000G			JSR	PC,PP20L
    574						.GLOBL	PP20L
    575	000070	112746 	000167 			MOVB	#167,-(SP)
    576	000074	004767 	000000G			JSR	PC,PPCHAR
    577						.GLOBL	PPCHAR
    578	000100	004767 	000000G			JSR	PC,PPLINE
    579						.GLOBL	PPLINE
    580	000104	000410 				BR	L4
    581
    582	000106	005763 	000016 		L3:	TST	16(R3)
    583	000112	001002 				BNE	.+6
    584	000114	004767 	000000G			JSR	PC,$B47
    585	000120	017363 	000016 	000016 		MOV	@16(R3),16(R3)
    586	000126	012602 			L4:	MOV	(SP)+,R2
    587	000130	012603 				MOV	(SP)+,R3
    588	000132	000207 				RTS	PC
IAUX1B	MACRO M1113  10-MAR-83 00:57  PAGE 4


    590	001764				.PSECT	CONSTS
    591	001764	043777 				.WORD 	43777
    592	001766	177000 				.WORD 	177000
    593	000134				.PSECT
    594					.GLOBL	PRNTSVAL
    595	000134				PRNTSVAL:
    596	000134	024646 				CMP	-(SP),-(SP)
    597	000136	010346 				MOV	R3,-(SP)
    598	000140	174046 				STF	AC0,-(SP)
    599	000142	174346 				STF	AC3,-(SP)
    600	000144	004767 	000000G			JSR	PC,$B127
    601	000150	172466 	000020 			LDF	20(SP),AC0
    602	000154	173437 	001764'			CMPF	@#↑O$CONST+1764,AC0
    603	000160	170000 				CFCC
    604	000162	003427 				BLE	L6
    605	000164	172466 	000020 			LDF	20(SP),AC0
    606	000170	175403 				STCFI	AC0,R3
    607	000172	177003 				LDCIF	R3,AC0
    608	000174	172700 				LDF	AC0,AC3
    609	000176	172466 	000020 			LDF	20(SP),AC0
    610	000202	173003 				SUBF	AC3,AC0
    611	000204	171027 	042572 			MULF	#↑O42572,AC0
    612	000210	170000 				CFCC
    613	000212	100002 				BPL	L32765
    614	000214	173027 	040200 			SUBF	#↑O40200,AC0
    615	000220	172027 	040000 		L32765:	ADDF	#↑O40000,AC0
    616	000224	175403 				STCFI	AC0,R3
    617	000226	177003 				LDCIF	R3,AC0
    618	000230	174427 	042572 			DIVF	#↑O42572,AC0
    619	000234	172003 				ADDF	AC3,AC0
    620	000236	174066 	000020 			STF	AC0,20(SP)
    621	000242	172466 	000020 		L6:	LDF	20(SP),AC0
    622	000246	174046 				STF	AC0,-(SP)
    623	000250	004767 	000000G			JSR	PC,I1BPPREAL
    624						.GLOBL	I1BPPREAL
    625	000254	172726 				LDF	(SP)+,AC3
    626	000256	172426 				LDF	(SP)+,AC0
    627	000260	012603 				MOV	(SP)+,R3
    628	000262	022626 				CMP	(SP)+,(SP)+
    629	000264	012616 				MOV	(SP)+,@SP
    630	000266	012616 				MOV	(SP)+,@SP
    631	000270	000207 				RTS	PC
IAUX1B	MACRO M1113  10-MAR-83 00:57  PAGE 5


    633					.GLOBL	PRNTVEC
    634	000272				PRNTVEC:
    635	000272	005746 				TST	-(SP)
    636	000274	004767 	000000G			JSR	PC,$B75
    637					.GLOBL	$B75
    638	000300	174046 				STF	AC0,-(SP)
    639	000302	004767 	000000G			JSR	PC,$B127
    640	000306	012703 	000036'			MOV	#$CONST+36,R3
    641	000312	012702 	000005 			MOV	#5,R2
    642	000316	014346 			L32764:	MOV	-(R3),-(SP)
    643	000320	077202 				SOB	R2,L32764
    644	000322	012746 	000007 			MOV	#7,-(SP)
    645	000326	004767 	000000G			JSR	PC,PP10
    646						.GLOBL	PP10
    647	000332	005766 	000024 			TST	24(SP)
    648	000336	001002 				BNE	.+6
    649	000340	004767 	000000G			JSR	PC,$B47
    650	000344	012705 	000001 			MOV	#1,R5
    651	000350	010503 			L7:	MOV	R5,R3
    652	000352	005303 				DEC	R3
    653	000354	020327 	000002 			CMP	R3,#2
    654	000360	101402 				BLOS	.+6
    655	000362	004767 	000000G			JSR	PC,$B43
    656					.GLOBL	$B43
    657	000366	072327 	000002 			ASH	#2,R3
    658	000372	066603 	000024 			ADD	24(SP),R3
    659	000376	172463 	000002 			LDF	2(R3),AC0
    660	000402	174046 				STF	AC0,-(SP)
    661	000404	004767 	177524 			JSR	PC,PRNTSVAL
    662						.GLOBL	PRNTSVAL
    663	000410	020527 	000003 			CMP	R5,#3
    664	000414	001003 				BNE	L10
    665	000416	112746 	000051 			MOVB	#51,-(SP)
    666	000422	000402 				BR	L32763
    667
    668	000424	112746 	000054 		L10:	MOVB	#54,-(SP)
    669	000430	004767 	000000G		L32763:	JSR	PC,PPCHAR
    670						.GLOBL	PPCHAR
    671	000434	005205 			L11:	INC	R5
    672	000436	020527 	000003 			CMP	R5,#3
    673	000442	003742 				BLE	L7
    674	000444	004767 	000000G		L8:	JSR	PC,PPOUTNOW
    675						.GLOBL	PPOUTNOW
    676	000450	172426 				LDF	(SP)+,AC0
    677	000452	004767 	000000G			JSR	PC,$B77
    678					.GLOBL	$B77
    679	000456	005726 				TST	(SP)+
    680	000460	012616 				MOV	(SP)+,@SP
    681	000462	000207 				RTS	PC
IAUX1B	MACRO M1113  10-MAR-83 00:57  PAGE 6


    683					.GLOBL	PRNTTRANS
    684	000464				PRNTTRANS:
    685	000464	024646 				CMP	-(SP),-(SP)
    686	000466	004767 	000000G			JSR	PC,$B75
    687	000472	174046 				STF	AC0,-(SP)
    688	000474	004767 	000000G			JSR	PC,$B127
    689	000500	005766 	000026 			TST	26(SP)
    690	000504	001002 				BNE	.+6
    691	000506	004767 	000000G			JSR	PC,$B47
    692	000512	005276 	000026 			INC	@26(SP)
    693	000516	012703 	000050'			MOV	#$CONST+50,R3
    694	000522	012702 	000005 			MOV	#5,R2
    695	000526	014346 			L32762:	MOV	-(R3),-(SP)
    696	000530	077202 				SOB	R2,L32762
    697	000532	012746 	000012 			MOV	#12,-(SP)
    698	000536	004767 	000000G			JSR	PC,PP10
    699						.GLOBL	PP10
    700	000542	005746 				TST	-(SP)
    701	000544	016646 	000030 			MOV	30(SP),-(SP)
    702	000550	004767 	000000G			JSR	PC,I1BTAXIS
    703						.GLOBL	I1BTAXIS
    704	000554	012604 				MOV	(SP)+,R4
    705	000556	010446 				MOV	R4,-(SP)
    706	000560	004767 	177506 			JSR	PC,PRNTVEC
    707						.GLOBL	PRNTVEC
    708	000564	010446 				MOV	R4,-(SP)
    709	000566	004767 	000000G			JSR	PC,RELVECTOR
    710						.GLOBL	RELVECTOR
    711	000572	112746 	000054 			MOVB	#54,-(SP)
    712	000576	004767 	000000G			JSR	PC,PPCHAR
    713						.GLOBL	PPCHAR
    714	000602	024646 				CMP	-(SP),-(SP)
    715	000604	016646 	000032 			MOV	32(SP),-(SP)
    716	000610	004767 	000000G			JSR	PC,I1BTMAGN
    717						.GLOBL	I1BTMAGN
    718	000614	004767 	177314 			JSR	PC,PRNTSVAL
    719						.GLOBL	PRNTSVAL
    720	000620	012703 	000062'			MOV	#$CONST+62,R3
    721	000624	012702 	000005 			MOV	#5,R2
    722	000630	014346 			L32761:	MOV	-(R3),-(SP)
    723	000632	077202 				SOB	R2,L32761
    724	000634	012746 	000011 			MOV	#11,-(SP)
    725	000640	004767 	000000G			JSR	PC,PP10
    726						.GLOBL	PP10
    727	000644	012705 	000001 			MOV	#1,R5
    728	000650	010503 			L12:	MOV	R5,R3
    729	000652	005303 				DEC	R3
    730	000654	020327 	000002 			CMP	R3,#2
    731	000660	101402 				BLOS	.+6
    732	000662	004767 	000000G			JSR	PC,$B43
    733	000666	072327 	000004 			ASH	#4,R3
    734	000672	066603 	000026 			ADD	26(SP),R3
    735	000676	172463 	000016 			LDF	16(R3),AC0
    736	000702	174046 				STF	AC0,-(SP)
    737	000704	004767 	177224 			JSR	PC,PRNTSVAL
    738						.GLOBL	PRNTSVAL
    739	000710	020527 	000003 			CMP	R5,#3
IAUX1B	MACRO M1113  10-MAR-83 00:57  PAGE 6-1


    740	000714	001003 				BNE	L15
    741	000716	112746 	000051 			MOVB	#51,-(SP)
    742	000722	000402 				BR	L32760
    743
    744	000724	112746 	000054 		L15:	MOVB	#54,-(SP)
    745	000730	004767 	000000G		L32760:	JSR	PC,PPCHAR
    746						.GLOBL	PPCHAR
    747	000734	005205 			L16:	INC	R5
    748	000736	020527 	000003 			CMP	R5,#3
    749	000742	003742 				BLE	L12
    750	000744	112746 	000051 		L13:	MOVB	#51,-(SP)
    751	000750	004767 	000000G			JSR	PC,PPCHAR
    752						.GLOBL	PPCHAR
    753	000754	005376 	000026 			DEC	@26(SP)
    754	000760	004767 	000000G			JSR	PC,PPLINE
    755						.GLOBL	PPLINE
    756	000764	172426 				LDF	(SP)+,AC0
    757	000766	004767 	000000G			JSR	PC,$B77
    758	000772	022626 				CMP	(SP)+,(SP)+
    759	000774	012616 				MOV	(SP)+,@SP
    760	000776	000207 				RTS	PC
IAUX1B	MACRO M1113  10-MAR-83 00:57  PAGE 7


    762					.GLOBL	PRNTSTRNG
    763	001000				PRNTSTRNG:
    764	001000	004767 	000000G			JSR	PC,$B127
    765	001004	016646 	000004 			MOV	4(SP),-(SP)
    766	001010	016646 	000004 			MOV	4(SP),-(SP)
    767	001014	004767 	000000G			JSR	PC,PPSTRNG
    768						.GLOBL	PPSTRNG
    769	001020	004767 	000000G			JSR	PC,PPOUTNOW
    770						.GLOBL	PPOUTNOW
    771	001024	012616 				MOV	(SP)+,@SP
    772	001026	012616 				MOV	(SP)+,@SP
    773	001030	000207 				RTS	PC
IAUX1B	MACRO M1113  10-MAR-83 00:57  PAGE 8


    775					;GETNVAL
    776	001032				P34:
    777	001032	010346 				MOV	R3,-(SP)
    778	001034	004767 	000000G			JSR	PC,$B127
    779	001040	105076 	000004 			CLRB	@4(SP)
    780	001044	005766 	000006 			TST	6(SP)
    781	001050	001002 				BNE	.+6
    782	001052	004767 	000000G			JSR	PC,$B47
    783	001056	016603 	000006 			MOV	6(SP),R3
    784	001062	126327 	000002 	000001 		CMPB	2(R3),#1
    785	001070	001004 				BNE	L17
    786	001072	126327 	000003 	000001 		CMPB	3(R3),#1
    787	001100	001010 				BNE	L18
    788	001102	005746 			L17:	TST	-(SP)
    789	001104	004767 	176676 			JSR	PC,P28	;POP
    790	001110	012666 	000006 			MOV	(SP)+,6(SP)
    791	001114	112776 	000001 	000004 		MOVB	#1,@4(SP)
    792	001122	005766 	000006 		L18:	TST	6(SP)
    793	001126	001417 				BEQ	L21
    794	001130	005766 	000006 			TST	6(SP)
    795	001134	001002 				BNE	.+6
    796	001136	004767 	000000G			JSR	PC,$B47
    797	001142	016603 	000006 			MOV	6(SP),R3
    798	001146	105763 	000003 			TSTB	3(R3)
    799	001152	001005 				BNE	L23
    800	001154	016366 	000006 	000006 		MOV	6(R3),6(SP)
    801	001162	105076 	000004 			CLRB	@4(SP)
    802	001166				L21:
    803	001166	016666 	000006 	000010 	L23:	MOV	6(SP),10(SP)
    804	001174	012603 				MOV	(SP)+,R3
    805	001176	012616 				MOV	(SP)+,@SP
    806	001200	012616 				MOV	(SP)+,@SP
    807	001202	000207 				RTS	PC
IAUX1B	MACRO M1113  10-MAR-83 00:57  PAGE 9


    809					;KILLNODE
    810	001204				P35:
    811	001204	010346 				MOV	R3,-(SP)
    812	001206	010246 				MOV	R2,-(SP)
    813	001210	004767 	000000G			JSR	PC,$B127
    814	001214	005766 	000006 			TST	6(SP)
    815	001220	001002 				BNE	.+6
    816	001222	004767 	000000G			JSR	PC,$B47
    817	001226	016603 	000006 			MOV	6(SP),R3
    818	001232	126327 	000002 	000001 		CMPB	2(R3),#1
    819	001240	001043 				BNE	L25
    820	001242	116302 	000003 			MOVB	3(R3),R2
    821	001246	062702 	177775 			ADD	#177775,R2
    822	001252	022702 	000002 			CMP	#2,R2
    823	001256	103434 				BLO	L26
    824	001260	006302 				ASL	R2
    825	001262	000172 	001770'			JMP	@$CONST+1770(R2)
    826	001770				.PSECT	CONSTS
    827	001770	001266'				L28
    828	001772	001350'				L26
    829	001774	001320'				L29
    830	001266				.PSECT
    831	001266	005763 	000004 		L28:	TST	4(R3)
    832	001272	001002 				BNE	.+6
    833	001274	004767 	000000G			JSR	PC,$B47
    834	001300	005773 	000004 			TST	@4(R3)
    835	001304	003004 				BGT	L31
    836	001306	016346 	000004 			MOV	4(R3),-(SP)
    837	001312	004767 	000000G			JSR	PC,RELVECTOR
    838						.GLOBL	RELVECTOR
    839	001316	000414 			L31:	BR	L27
    840
    841	001320	005763 	000004 		L29:	TST	4(R3)
    842	001324	001002 				BNE	.+6
    843	001326	004767 	000000G			JSR	PC,$B47
    844	001332	005773 	000004 			TST	@4(R3)
    845	001336	003004 				BGT	L33
    846	001340	016346 	000004 			MOV	4(R3),-(SP)
    847	001344	004767 	000000G			JSR	PC,RELTRANS
    848						.GLOBL	RELTRANS
    849	001350				L25:
    850	001350				L27:
    851	001350				L26:
    852	001350	016646 	000006 		L33:	MOV	6(SP),-(SP)
    853	001354	004767 	000000G			JSR	PC,RELNODE
    854						.GLOBL	RELNODE
    855	001360	012602 				MOV	(SP)+,R2
    856	001362	012603 				MOV	(SP)+,R3
    857	001364	012616 				MOV	(SP)+,@SP
    858	001366	000207 				RTS	PC
IAUX1B	MACRO M1113  10-MAR-83 00:57  PAGE 10


    860					.GLOBL	PRNTPLIST
    861	001370				PRNTPLIST:
    862	001370	024646 				CMP	-(SP),-(SP)
    863	001372	010346 				MOV	R3,-(SP)
    864	001374	010246 				MOV	R2,-(SP)
    865	001376	174046 				STF	AC0,-(SP)
    866	001400	004767 	000000G			JSR	PC,$B127
    867	001404	005766 	000016 		L34:	TST	16(SP)
    868	001410	001507 				BEQ	L36
    869	001412	005766 	000016 			TST	16(SP)
    870	001416	001002 				BNE	.+6
    871	001420	004767 	000000G			JSR	PC,$B47
    872	001424	005746 				TST	-(SP)
    873	001426	016603 	000020 			MOV	20(SP),R3
    874	001432	016346 	000004 			MOV	4(R3),-(SP)
    875	001436	012746 	000020 			MOV	#20,-(SP)
    876	001442	060616 				ADD	SP,@SP
    877	001444	004767 	177362 			JSR	PC,P34	;GETNVAL
    878	001450	012603 				MOV	(SP)+,R3
    879	001452	010366 	000010 			MOV	R3,10(SP)
    880	001456	001460 				BEQ	L38
    881	001460	005766 	000010 			TST	10(SP)
    882	001464	001002 				BNE	.+6
    883	001466	004767 	000000G			JSR	PC,$B47
    884	001472	016603 	000010 			MOV	10(SP),R3
    885	001476	116302 	000003 			MOVB	3(R3),R2
    886	001502	062702 	177776 			ADD	#177776,R2
    887	001506	022702 	000006 			CMP	#6,R2
    888	001512	103433 				BLO	L39
    889	001514	006302 				ASL	R2
    890	001516	000172 	001776'			JMP	@$CONST+1776(R2)
    891	001776				.PSECT	CONSTS
    892	001776	001522'				L41
    893	002000	001542'				L42
    894	002002	001602'				L39
    895	002004	001554'				L43
    896	002006	001602'				L39
    897	002010	001602'				L39
    898	002012	001566'				L44
    899	001522				.PSECT
    900	001522	172463 	000004 		L41:	LDF	4(R3),AC0
    901	001526	174046 				STF	AC0,-(SP)
    902	001530	004767 	176400 			JSR	PC,PRNTSVAL
    903						.GLOBL	PRNTSVAL
    904	001534	004767 	000000G			JSR	PC,PPOUTNOW
    905						.GLOBL	PPOUTNOW
    906	001540	000420 				BR	L40
    907
    908	001542	016346 	000004 		L42:	MOV	4(R3),-(SP)
    909	001546	004767 	176520 			JSR	PC,PRNTVEC
    910						.GLOBL	PRNTVEC
    911	001552	000413 				BR	L40
    912
    913	001554	016346 	000004 		L43:	MOV	4(R3),-(SP)
    914	001560	004767 	176700 			JSR	PC,PRNTTRANS
    915						.GLOBL	PRNTTRANS
    916	001564	000406 				BR	L40
IAUX1B	MACRO M1113  10-MAR-83 00:57  PAGE 10-1


    917
    918	001566	016346 	000004 		L44:	MOV	4(R3),-(SP)
    919	001572	016346 	000006 			MOV	6(R3),-(SP)
    920	001576	004767 	177176 			JSR	PC,PRNTSTRNG
    921						.GLOBL	PRNTSTRNG
    922	001602				L40:
    923	001602	105766 	000012 		L39:	TSTB	12(SP)
    924	001606	001404 				BEQ	L46
    925	001610	016646 	000010 			MOV	10(SP),-(SP)
    926	001614	004767 	177364 			JSR	PC,P35	;KILLNODE
    927	001620				L38:
    928	001620	017666 	000016 	000016 	L46:	MOV	@16(SP),16(SP)
    929	001626	000666 				BR	L34
    930
    931	001630	172426 			L36:	LDF	(SP)+,AC0
    932	001632	012602 				MOV	(SP)+,R2
    933	001634	012603 				MOV	(SP)+,R3
    934	001636	022626 				CMP	(SP)+,(SP)+
    935	001640	012616 				MOV	(SP)+,@SP
    936	001642	000207 				RTS	PC
IAUX1B	MACRO M1113  10-MAR-83 00:57  PAGE 11


    938					;ONUM1
    939	001644				P37:
    940	001644	024646 				CMP	-(SP),-(SP)
    941	001646	004767 	000000G			JSR	PC,$B75
    942	001652	004767 	000000G			JSR	PC,$B127
    943	001656	016603 	000022 			MOV	22(SP),R3
    944	001662	006702 				SXT	R2
    945	001664	071227 	000010 			DIV	#10,R2
    946	001670	010204 				MOV	R2,R4
    947	001672	010366 	000016 			MOV	R3,16(SP)
    948	001676	005702 				TST	R2
    949	001700	003403 				BLE	L48
    950	001702	010246 				MOV	R2,-(SP)
    951	001704	004767 	177734 			JSR	PC,P37	;ONUM1
    952	001710	010346 			L48:	MOV	R3,-(SP)
    953	001712	004767 	000000G			JSR	PC,PPINT
    954						.GLOBL	PPINT
    955	001716	004767 	000000G			JSR	PC,$B77
    956	001722	022626 				CMP	(SP)+,(SP)+
    957	001724	012616 				MOV	(SP)+,@SP
    958	001726	000207 				RTS	PC
IAUX1B	MACRO M1113  10-MAR-83 00:57  PAGE 12


    960					.GLOBL	ONUM
    961	001730				ONUM:
    962	001730	010546 				MOV	R5,-(SP)
    963	001732	004767 	000000G			JSR	PC,$B127
    964	001736	005766 	000004 			TST	4(SP)
    965	001742	002006 				BGE	L50
    966	001744	112746 	000055 			MOVB	#55,-(SP)
    967	001750	004767 	000000G			JSR	PC,PPCHAR
    968						.GLOBL	PPCHAR
    969	001754	005466 	000004 			NEG	4(SP)
    970	001760	016646 	000004 		L50:	MOV	4(SP),-(SP)
    971	001764	010605 				MOV	SP,R5
    972	001766	022525 				CMP	(R5)+,(R5)+
    973	001770	004767 	177650 			JSR	PC,P37	;ONUM1
    974	001774	004767 	000000G			JSR	PC,PPOUTNOW
    975						.GLOBL	PPOUTNOW
    976	002000	012605 				MOV	(SP)+,R5
    977	002002	012616 				MOV	(SP)+,@SP
    978	002004	000207 				RTS	PC
IAUX1B	MACRO M1113  10-MAR-83 00:57  PAGE 13


    980					.GLOBL	PRNTVAR
    981	002006				PRNTVAR:
    982	002006	162706 	000006 			SUB	#6,SP
    983	002012	004767 	000000G			JSR	PC,$B75
    984	002016	174046 				STF	AC0,-(SP)
    985	002020	004767 	000000G			JSR	PC,$B127
    986	002024	005766 	000030 			TST	30(SP)
    987	002030	001013 				BNE	L52
    988	002032	012703 	000074'			MOV	#$CONST+74,R3
    989	002036	012702 	000005 			MOV	#5,R2
    990	002042	014346 			L32759:	MOV	-(R3),-(SP)
    991	002044	077202 				SOB	R2,L32759
    992	002046	012746 	000006 			MOV	#6,-(SP)
    993	002052	004767 	000000G			JSR	PC,PP10
    994						.GLOBL	PP10
    995	002056	000544 				BR	L53
    996
    997	002060	005766 	000030 		L52:	TST	30(SP)
    998	002064	001002 				BNE	.+6
    999	002066	004767 	000000G			JSR	PC,$B47
   1000	002072	016603 	000030 			MOV	30(SP),R3
   1001	002076	126327 	000002 	000001 		CMPB	2(R3),#1
   1002	002104	001020 				BNE	L55
   1003	002106	005763 	000006 			TST	6(R3)
   1004	002112	001002 				BNE	.+6
   1005	002114	004767 	000000G			JSR	PC,$B47
   1006	002120	016302 	000006 			MOV	6(R3),R2
   1007	002124	016246 	000002 			MOV	2(R2),-(SP)
   1008	002130	016303 	000006 			MOV	6(R3),R3
   1009	002134	016346 	000004 			MOV	4(R3),-(SP)
   1010	002140	004767 	000000G			JSR	PC,PPSTRNG
   1011						.GLOBL	PPSTRNG
   1012	002144	000511 				BR	L56
   1013
   1014	002146	005763 	000004 		L55:	TST	4(R3)
   1015	002152	001002 				BNE	.+6
   1016	002154	004767 	000000G			JSR	PC,$B47
   1017	002160	016302 	000004 			MOV	4(R3),R2
   1018	002164	005762 	000006 			TST	6(R2)
   1019	002170	001002 				BNE	.+6
   1020	002172	004767 	000000G			JSR	PC,$B47
   1021	002176	016201 	000006 			MOV	6(R2),R1
   1022	002202	016146 	000002 			MOV	2(R1),-(SP)
   1023	002206	016202 	000006 			MOV	6(R2),R2
   1024	002212	016246 	000004 			MOV	4(R2),-(SP)
   1025	002216	004767 	000000G			JSR	PC,PPSTRNG
   1026						.GLOBL	PPSTRNG
   1027	002222	016305 	000006 			MOV	6(R3),R5
   1028	002226	112746 	000133 			MOVB	#133,-(SP)
   1029	002232	004767 	000000G			JSR	PC,PPCHAR
   1030						.GLOBL	PPCHAR
   1031	002236	005705 			L57:	TST	R5
   1032	002240	001453 				BEQ	L59
   1033	002242	005746 				TST	-(SP)
   1034	002244	004767 	175536 			JSR	PC,P28	;POP
   1035	002250	012666 	000024 			MOV	(SP)+,24(SP)
   1036	002254	001002 				BNE	.+6
IAUX1B	MACRO M1113  10-MAR-83 00:57  PAGE 13-1


   1037	002256	004767 	000000G			JSR	PC,$B47
   1038	002262	016603 	000024 			MOV	24(SP),R3
   1039	002266	172463 	000004 			LDF	4(R3),AC0
   1040	002272	170563 	000004 			TSTF	4(R3)
   1041	002276	170000 				CFCC
   1042	002300	100002 				BPL	L32758
   1043	002302	173027 	040200 			SUBF	#↑O40200,AC0
   1044	002306	172027 	040000 		L32758:	ADDF	#↑O40000,AC0
   1045	002312	175403 				STCFI	AC0,R3
   1046	002314	010304 				MOV	R3,R4
   1047	002316	010346 				MOV	R3,-(SP)
   1048	002320	004767 	000000G			JSR	PC,PPINT
   1049						.GLOBL	PPINT
   1050	002324	016646 	000024 			MOV	24(SP),-(SP)
   1051	002330	004767 	000000G			JSR	PC,RELNODE
   1052						.GLOBL	RELNODE
   1053	002334	005705 				TST	R5
   1054	002336	001002 				BNE	.+6
   1055	002340	004767 	000000G			JSR	PC,$B47
   1056	002344	011505 				MOV	@R5,R5
   1057	002346	001003 				BNE	L61
   1058	002350	112746 	000135 			MOVB	#135,-(SP)
   1059	002354	000402 				BR	L32757
   1060
   1061	002356	112746 	000054 		L61:	MOVB	#54,-(SP)
   1062	002362	004767 	000000G		L32757:	JSR	PC,PPCHAR
   1063						.GLOBL	PPCHAR
   1064	002366	000723 			L62:	BR	L57
   1065
   1066	002370				L53:
   1067	002370				L56:
   1068	002370	004767 	000000G		L59:	JSR	PC,PPLINE
   1069						.GLOBL	PPLINE
   1070	002374	172426 				LDF	(SP)+,AC0
   1071	002376	004767 	000000G			JSR	PC,$B77
   1072	002402	062706 	000006 			ADD	#6,SP
   1073	002406	012616 				MOV	(SP)+,@SP
   1074	002410	000207 				RTS	PC
IAUX1B	MACRO M1113  10-MAR-83 00:57  PAGE 14


   1076					.GLOBL	BADJOINTS
   1077	002412				BADJOINTS:
   1078	002412	005746 				TST	-(SP)
   1079	002414	004767 	000000G			JSR	PC,$B75
   1080	002420	004767 	000000G			JSR	PC,$B127
   1081	002424	012700 	000001 			MOV	#1,R0
   1082	002430	005766 	000020 			TST	20(SP)
   1083	002434	001446 				BEQ	L64
   1084	002436	012703 	000120'			MOV	#$CONST+120,R3
   1085	002442	012702 	000012 			MOV	#12,R2
   1086	002446	014346 			L32756:	MOV	-(R3),-(SP)
   1087	002450	077202 				SOB	R2,L32756
   1088	002452	012746 	000016 			MOV	#16,-(SP)
   1089	002456	004767 	000000G			JSR	PC,PP20
   1090						.GLOBL	PP20
   1091	002462	010005 				MOV	R0,R5
   1092	002464	005766 	000020 		L65:	TST	20(SP)
   1093	002470	001426 				BEQ	L67
   1094	002472	030066 	000020 			BIT	R0,20(SP)
   1095	002476	001412 				BEQ	L69
   1096	002500	010546 				MOV	R5,-(SP)
   1097	002502	004767 	000000G			JSR	PC,PPINT
   1098						.GLOBL	PPINT
   1099	002506	026600 	000020 			CMP	20(SP),R0
   1100	002512	003404 				BLE	L71
   1101	002514	112746 	000054 			MOVB	#54,-(SP)
   1102	002520	004767 	000000G			JSR	PC,PPCHAR
   1103						.GLOBL	PPCHAR
   1104	002524				L69:
   1105	002524	016603 	000020 		L71:	MOV	20(SP),R3
   1106	002530	006702 				SXT	R2
   1107	002532	071227 	000002 			DIV	#2,R2
   1108	002536	010266 	000020 			MOV	R2,20(SP)
   1109	002542	005205 				INC	R5
   1110	002544	000747 				BR	L65
   1111
   1112	002546	004767 	000000G		L67:	JSR	PC,PPLINE
   1113						.GLOBL	PPLINE
   1114	002552	004767 	000000G		L64:	JSR	PC,$B77
   1115	002556	005726 				TST	(SP)+
   1116	002560	012616 				MOV	(SP)+,@SP
   1117	002562	000207 				RTS	PC
IAUX1B	MACRO M1113  10-MAR-83 00:57  PAGE 15


   1119					.GLOBL	PPARMERROR
   1120	002564				PPARMERROR:
   1121	002564	004767 	000000G			JSR	PC,$B75
   1122	002570	004767 	000000G			JSR	PC,$B127
   1123	002574	012700 	000012 			MOV	#12,R0
   1124	002600	012704 	000024 			MOV	#24,R4
   1125	002604	012705 	000005 			MOV	#5,R5
   1126	002610	126627 	000020 	000014 		CMPB	20(SP),#14
   1127	002616	001015 				BNE	L73
   1128	002620	012703 	000144'			MOV	#$CONST+144,R3
   1129	002624	010002 				MOV	R0,R2
   1130	002626	014346 			L32755:	MOV	-(R3),-(SP)
   1131	002630	077202 				SOB	R2,L32755
   1132	002632	012746 	000020 			MOV	#20,-(SP)
   1133	002636	004767 	000000G			JSR	PC,PP20
   1134						.GLOBL	PP20
   1135	002642	004767 	000000G		L32712:	JSR	PC,PPLINE
   1136						.GLOBL	PPLINE
   1137	002646	000167 	001230 			JMP	L74
   1138
   1139	002652	126627 	000020 	000016 	L73:	CMPB	20(SP),#16
   1140	002660	001025 				BNE	L76
   1141	002662	012703 	000170'			MOV	#$CONST+170,R3
   1142	002666	010002 				MOV	R0,R2
   1143	002670	014346 			L32754:	MOV	-(R3),-(SP)
   1144	002672	077202 				SOB	R2,L32754
   1145	002674	010446 				MOV	R4,-(SP)
   1146	002676	004767 	000000G			JSR	PC,PP20
   1147						.GLOBL	PP20
   1148	002702	162706 	000006 			SUB	#6,SP
   1149	002706	010603 				MOV	SP,R3
   1150	002710	012702 	000170'			MOV	#$CONST+170,R2
   1151	002714	010501 				MOV	R5,R1
   1152	002716	112223 			L32753:	MOVB	(R2)+,(R3)+
   1153	002720	077102 				SOB	R1,L32753
   1154	002722	012746 	000004 			MOV	#4,-(SP)
   1155	002726	004767 	000000G			JSR	PC,PP5
   1156						.GLOBL	PP5
   1157	002732	000743 				BR	L32712
   1158
   1159	002734	116603 	000020 		L76:	MOVB	20(SP),R3
   1160	002740	010302 				MOV	R3,R2
   1161	002742	005302 				DEC	R2
   1162	002744	022702 	000023 			CMP	#23,R2
   1163	002750	103002 				BHIS	.+6
   1164	002752	000167 	001064 			JMP	L78
   1165	002756	006302 				ASL	R2
   1166	002760	000172 	002014'			JMP	@$CONST+2014(R2)
   1167	002014				.PSECT	CONSTS
   1168	002014	003172'				L87
   1169	002016	003272'				L89
   1170	002020	003366'				L90
   1171	002022	003474'				L91
   1172	002024	004000'				L97
   1173	002026	003576'				L93
   1174	002030	002764'				L80
   1175	002032	003010'				L81
IAUX1B	MACRO M1113  10-MAR-83 00:57  PAGE 15-1


   1176	002034	003634'				L94
   1177	002036	003056'				L83
   1178	002040	003132'				L85
   1179	002042	004042'				L78
   1180	002044	003152'				L86
   1181	002046	004042'				L78
   1182	002050	003672'				L95
   1183	002052	003112'				L84
   1184	002054	003030'				L82
   1185	002056	003212'				L88
   1186	002060	003734'				L96
   1187	002062	003560'				L92
   1188	002764				.PSECT
   1189	002764	012703 	000210'		L80:	MOV	#$CONST+210,R3
   1190	002770	010502 				MOV	R5,R2
   1191	002772	014346 			L32752:	MOV	-(R3),-(SP)
   1192	002774	077202 				SOB	R2,L32752
   1193	002776	010046 				MOV	R0,-(SP)
   1194	003000	004767 	000000G		L32719:	JSR	PC,PP10
   1195						.GLOBL	PP10
   1196	003004	000167 	001062 			JMP	L79
   1197
   1198	003010	012703 	000222'		L81:	MOV	#$CONST+222,R3
   1199	003014	010502 				MOV	R5,R2
   1200	003016	014346 			L32751:	MOV	-(R3),-(SP)
   1201	003020	077202 				SOB	R2,L32751
   1202	003022	012746 	000011 			MOV	#11,-(SP)
   1203	003026	000764 				BR	L32719
   1204
   1205	003030	012703 	000246'		L82:	MOV	#$CONST+246,R3
   1206	003034	010002 				MOV	R0,R2
   1207	003036	014346 			L32750:	MOV	-(R3),-(SP)
   1208	003040	077202 				SOB	R2,L32750
   1209	003042	012746 	000023 		L32714:	MOV	#23,-(SP)
   1210	003046	004767 	000000G		L32717:	JSR	PC,PP20
   1211						.GLOBL	PP20
   1212	003052	000167 	001014 			JMP	L79
   1213
   1214	003056	012703 	000272'		L83:	MOV	#$CONST+272,R3
   1215	003062	010002 				MOV	R0,R2
   1216	003064	014346 			L32749:	MOV	-(R3),-(SP)
   1217	003066	077202 				SOB	R2,L32749
   1218	003070	010446 				MOV	R4,-(SP)
   1219	003072	004767 	000000G			JSR	PC,PP20
   1220						.GLOBL	PP20
   1221	003076	112746 	000145 			MOVB	#145,-(SP)
   1222	003102	004767 	000000G			JSR	PC,PPCHAR
   1223						.GLOBL	PPCHAR
   1224	003106	000167 	000760 			JMP	L79
   1225
   1226	003112	012703 	000304'		L84:	MOV	#$CONST+304,R3
   1227	003116	010502 				MOV	R5,R2
   1228	003120	014346 			L32748:	MOV	-(R3),-(SP)
   1229	003122	077202 				SOB	R2,L32748
   1230	003124	012746 	000010 			MOV	#10,-(SP)
   1231	003130	000723 				BR	L32719
   1232
IAUX1B	MACRO M1113  10-MAR-83 00:57  PAGE 15-2


   1233	003132	012703 	000330'		L85:	MOV	#$CONST+330,R3
   1234	003136	010002 				MOV	R0,R2
   1235	003140	014346 			L32747:	MOV	-(R3),-(SP)
   1236	003142	077202 				SOB	R2,L32747
   1237	003144	012746 	000022 		L32715:	MOV	#22,-(SP)
   1238	003150	000736 				BR	L32717
   1239
   1240	003152	012703 	000354'		L86:	MOV	#$CONST+354,R3
   1241	003156	010002 				MOV	R0,R2
   1242	003160	014346 			L32746:	MOV	-(R3),-(SP)
   1243	003162	077202 				SOB	R2,L32746
   1244	003164	012746 	000017 			MOV	#17,-(SP)
   1245	003170	000726 				BR	L32717
   1246
   1247	003172	012703 	000400'		L87:	MOV	#$CONST+400,R3
   1248	003176	010002 				MOV	R0,R2
   1249	003200	014346 			L32745:	MOV	-(R3),-(SP)
   1250	003202	077202 				SOB	R2,L32745
   1251	003204	012746 	000020 		L32716:	MOV	#20,-(SP)
   1252	003210	000716 				BR	L32717
   1253
   1254	003212	012703 	000424'		L88:	MOV	#$CONST+424,R3
   1255	003216	010002 				MOV	R0,R2
   1256	003220	014346 			L32744:	MOV	-(R3),-(SP)
   1257	003222	077202 				SOB	R2,L32744
   1258	003224	010446 				MOV	R4,-(SP)
   1259	003226	004767 	000000G			JSR	PC,PP20
   1260						.GLOBL	PP20
   1261	003232	012703 	000450'			MOV	#$CONST+450,R3
   1262	003236	010002 				MOV	R0,R2
   1263	003240	014346 			L32743:	MOV	-(R3),-(SP)
   1264	003242	077202 				SOB	R2,L32743
   1265	003244	010446 				MOV	R4,-(SP)
   1266	003246	004767 	000000G			JSR	PC,PP20
   1267						.GLOBL	PP20
   1268	003252	012703 	000474'			MOV	#$CONST+474,R3
   1269	003256	010002 				MOV	R0,R2
   1270	003260	014346 			L32742:	MOV	-(R3),-(SP)
   1271	003262	077202 				SOB	R2,L32742
   1272	003264	012746 	000013 			MOV	#13,-(SP)
   1273	003270	000666 				BR	L32717
   1274
   1275	003272	012703 	000520'		L89:	MOV	#$CONST+520,R3
   1276	003276	010002 				MOV	R0,R2
   1277	003300	014346 			L32741:	MOV	-(R3),-(SP)
   1278	003302	077202 				SOB	R2,L32741
   1279	003304	010446 				MOV	R4,-(SP)
   1280	003306	004767 	000000G			JSR	PC,PP20
   1281						.GLOBL	PP20
   1282	003312	012703 	000544'			MOV	#$CONST+544,R3
   1283	003316	010002 				MOV	R0,R2
   1284	003320	014346 			L32740:	MOV	-(R3),-(SP)
   1285	003322	077202 				SOB	R2,L32740
   1286	003324	010446 				MOV	R4,-(SP)
   1287	003326	004767 	000000G			JSR	PC,PP20
   1288						.GLOBL	PP20
   1289	003332	162706 	000006 			SUB	#6,SP
IAUX1B	MACRO M1113  10-MAR-83 00:57  PAGE 15-3


   1290	003336	010603 				MOV	SP,R3
   1291	003340	012702 	000544'			MOV	#$CONST+544,R2
   1292	003344	010501 				MOV	R5,R1
   1293	003346	112223 			L32739:	MOVB	(R2)+,(R3)+
   1294	003350	077102 				SOB	R1,L32739
   1295	003352	012746 	000003 		L32718:	MOV	#3,-(SP)
   1296	003356	004767 	000000G		L32713:	JSR	PC,PP5
   1297						.GLOBL	PP5
   1298	003362	000167 	000504 			JMP	L79
   1299
   1300	003366	012703 	000576'		L90:	MOV	#$CONST+576,R3
   1301	003372	010002 				MOV	R0,R2
   1302	003374	014346 			L32738:	MOV	-(R3),-(SP)
   1303	003376	077202 				SOB	R2,L32738
   1304	003400	010446 				MOV	R4,-(SP)
   1305	003402	004767 	000000G			JSR	PC,PP20
   1306						.GLOBL	PP20
   1307	003406	012703 	000622'			MOV	#$CONST+622,R3
   1308	003412	010002 				MOV	R0,R2
   1309	003414	014346 			L32737:	MOV	-(R3),-(SP)
   1310	003416	077202 				SOB	R2,L32737
   1311	003420	010446 				MOV	R4,-(SP)
   1312	003422	004767 	000000G			JSR	PC,PP20
   1313						.GLOBL	PP20
   1314	003426	012703 	000646'			MOV	#$CONST+646,R3
   1315	003432	010002 				MOV	R0,R2
   1316	003434	014346 			L32736:	MOV	-(R3),-(SP)
   1317	003436	077202 				SOB	R2,L32736
   1318	003440	010446 				MOV	R4,-(SP)
   1319	003442	004767 	000000G			JSR	PC,PP20
   1320						.GLOBL	PP20
   1321	003446	162706 	000006 			SUB	#6,SP
   1322	003452	010603 				MOV	SP,R3
   1323	003454	012702 	000646'			MOV	#$CONST+646,R2
   1324	003460	010501 				MOV	R5,R1
   1325	003462	112223 			L32735:	MOVB	(R2)+,(R3)+
   1326	003464	077102 				SOB	R1,L32735
   1327	003466	012746 	000002 			MOV	#2,-(SP)
   1328	003472	000731 				BR	L32713
   1329
   1330	003474	012703 	000700'		L91:	MOV	#$CONST+700,R3
   1331	003500	010002 				MOV	R0,R2
   1332	003502	014346 			L32734:	MOV	-(R3),-(SP)
   1333	003504	077202 				SOB	R2,L32734
   1334	003506	010446 				MOV	R4,-(SP)
   1335	003510	004767 	000000G			JSR	PC,PP20
   1336						.GLOBL	PP20
   1337	003514	012703 	000724'			MOV	#$CONST+724,R3
   1338	003520	010002 				MOV	R0,R2
   1339	003522	014346 			L32733:	MOV	-(R3),-(SP)
   1340	003524	077202 				SOB	R2,L32733
   1341	003526	010446 				MOV	R4,-(SP)
   1342	003530	004767 	000000G			JSR	PC,PP20
   1343						.GLOBL	PP20
   1344	003534	162706 	000006 			SUB	#6,SP
   1345	003540	010603 				MOV	SP,R3
   1346	003542	012702 	000724'			MOV	#$CONST+724,R2
IAUX1B	MACRO M1113  10-MAR-83 00:57  PAGE 15-4


   1347	003546	010501 				MOV	R5,R1
   1348	003550	112223 			L32732:	MOVB	(R2)+,(R3)+
   1349	003552	077102 				SOB	R1,L32732
   1350	003554	010546 				MOV	R5,-(SP)
   1351	003556	000677 				BR	L32713
   1352
   1353	003560	012703 	000756'		L92:	MOV	#$CONST+756,R3
   1354	003564	010002 				MOV	R0,R2
   1355	003566	014346 			L32731:	MOV	-(R3),-(SP)
   1356	003570	077202 				SOB	R2,L32731
   1357	003572	000167 	177244 			JMP	L32714
   1358
   1359	003576	012703 	001002'		L93:	MOV	#$CONST+1002,R3
   1360	003602	010002 				MOV	R0,R2
   1361	003604	014346 			L32730:	MOV	-(R3),-(SP)
   1362	003606	077202 				SOB	R2,L32730
   1363	003610	010446 				MOV	R4,-(SP)
   1364	003612	004767 	000000G			JSR	PC,PP20
   1365						.GLOBL	PP20
   1366	003616	012703 	001026'			MOV	#$CONST+1026,R3
   1367	003622	010002 				MOV	R0,R2
   1368	003624	014346 			L32729:	MOV	-(R3),-(SP)
   1369	003626	077202 				SOB	R2,L32729
   1370	003630	000167 	177310 			JMP	L32715
   1371
   1372	003634	012703 	001052'		L94:	MOV	#$CONST+1052,R3
   1373	003640	010002 				MOV	R0,R2
   1374	003642	014346 			L32728:	MOV	-(R3),-(SP)
   1375	003644	077202 				SOB	R2,L32728
   1376	003646	010446 				MOV	R4,-(SP)
   1377	003650	004767 	000000G			JSR	PC,PP20
   1378						.GLOBL	PP20
   1379	003654	012703 	001076'			MOV	#$CONST+1076,R3
   1380	003660	010002 				MOV	R0,R2
   1381	003662	014346 			L32727:	MOV	-(R3),-(SP)
   1382	003664	077202 				SOB	R2,L32727
   1383	003666	000167 	177312 			JMP	L32716
   1384
   1385	003672	012703 	001122'		L95:	MOV	#$CONST+1122,R3
   1386	003676	010002 				MOV	R0,R2
   1387	003700	014346 			L32726:	MOV	-(R3),-(SP)
   1388	003702	077202 				SOB	R2,L32726
   1389	003704	010446 				MOV	R4,-(SP)
   1390	003706	004767 	000000G			JSR	PC,PP20
   1391						.GLOBL	PP20
   1392	003712	012703 	001146'			MOV	#$CONST+1146,R3
   1393	003716	010002 				MOV	R0,R2
   1394	003720	014346 			L32725:	MOV	-(R3),-(SP)
   1395	003722	077202 				SOB	R2,L32725
   1396	003724	012746 	000021 			MOV	#21,-(SP)
   1397	003730	000167 	177112 			JMP	L32717
   1398
   1399	003734	012703 	001172'		L96:	MOV	#$CONST+1172,R3
   1400	003740	010002 				MOV	R0,R2
   1401	003742	014346 			L32724:	MOV	-(R3),-(SP)
   1402	003744	077202 				SOB	R2,L32724
   1403	003746	010446 				MOV	R4,-(SP)
IAUX1B	MACRO M1113  10-MAR-83 00:57  PAGE 15-5


   1404	003750	004767 	000000G			JSR	PC,PP20
   1405						.GLOBL	PP20
   1406	003754	162706 	000006 			SUB	#6,SP
   1407	003760	010603 				MOV	SP,R3
   1408	003762	012702 	001172'			MOV	#$CONST+1172,R2
   1409	003766	010501 				MOV	R5,R1
   1410	003770	112223 			L32723:	MOVB	(R2)+,(R3)+
   1411	003772	077102 				SOB	R1,L32723
   1412	003774	000167 	177352 			JMP	L32718
   1413
   1414	004000	012703 	001224'		L97:	MOV	#$CONST+1224,R3
   1415	004004	010002 				MOV	R0,R2
   1416	004006	014346 			L32722:	MOV	-(R3),-(SP)
   1417	004010	077202 				SOB	R2,L32722
   1418	004012	010446 				MOV	R4,-(SP)
   1419	004014	004767 	000000G			JSR	PC,PP20
   1420						.GLOBL	PP20
   1421	004020	012703 	001236'			MOV	#$CONST+1236,R3
   1422	004024	010502 				MOV	R5,R2
   1423	004026	014346 			L32721:	MOV	-(R3),-(SP)
   1424	004030	077202 				SOB	R2,L32721
   1425	004032	012746 	000006 			MOV	#6,-(SP)
   1426	004036	000167 	176736 			JMP	L32719
   1427
   1428	004042	012702 	001262'		L78:	MOV	#$CONST+1262,R2
   1429	004046	010001 				MOV	R0,R1
   1430	004050	014246 			L32720:	MOV	-(R2),-(SP)
   1431	004052	077102 				SOB	R1,L32720
   1432	004054	012746 	000021 			MOV	#21,-(SP)
   1433	004060	004767 	000000G			JSR	PC,PP20
   1434						.GLOBL	PP20
   1435	004064	010346 				MOV	R3,-(SP)
   1436	004066	004767 	000000G			JSR	PC,PPINT
   1437						.GLOBL	PPINT
   1438	004072	016646 	000016 		L79:	MOV	16(SP),-(SP)
   1439	004076	004767 	176310 			JSR	PC,BADJOINTS
   1440						.GLOBL	BADJOINTS
   1441	004102				L74:
   1442	004102	004767 	000000G		L77:	JSR	PC,$B77
   1443	004106	012616 				MOV	(SP)+,@SP
   1444	004110	012616 				MOV	(SP)+,@SP
   1445	004112	000207 				RTS	PC
IAUX1B	MACRO M1113  10-MAR-83 00:57  PAGE 16


   1447					.GLOBL	ADDPDB
   1448	004114				ADDPDB:
   1449	004114	162706 	000006 			SUB	#6,SP
   1450	004120	004767 	000000G			JSR	PC,$B75
   1451	004124	004767 	000000G			JSR	PC,$B127
   1452	004130	005776 	000026 			TST	@26(SP)
   1453	004134	001013 				BNE	L99
   1454	004136	016676 	000024 	000026 		MOV	24(SP),@26(SP)
   1455	004144	001002 				BNE	.+6
   1456	004146	004767 	000000G			JSR	PC,$B47
   1457	004152	016603 	000024 			MOV	24(SP),R3
   1458	004156	005063 	000002 			CLR	2(R3)
   1459	004162	000522 				BR	L100
   1460
   1461	004164	005766 	000024 		L99:	TST	24(SP)
   1462	004170	001002 				BNE	.+6
   1463	004172	004767 	000000G			JSR	PC,$B47
   1464	004176	005776 	000026 			TST	@26(SP)
   1465	004202	001002 				BNE	.+6
   1466	004204	004767 	000000G			JSR	PC,$B47
   1467	004210	017603 	000026 			MOV	@26(SP),R3
   1468	004214	016602 	000024 			MOV	24(SP),R2
   1469	004220	005001 				CLR	R1
   1470	004222	156301 	000006 			BISB	6(R3),R1
   1471	004226	005003 				CLR	R3
   1472	004230	156203 	000006 			BISB	6(R2),R3
   1473	004234	020103 				CMP	R1,R3
   1474	004236	103007 				BHIS	L102
   1475	004240	017662 	000026 	000002 		MOV	@26(SP),2(R2)
   1476	004246	016676 	000024 	000026 		MOV	24(SP),@26(SP)
   1477	004254	000465 				BR	L103
   1478
   1479	004256	017605 	000026 		L102:	MOV	@26(SP),R5
   1480	004262	012704 	000001 			MOV	#1,R4
   1481	004266	005705 			L104:	TST	R5
   1482	004270	001002 				BNE	.+6
   1483	004272	004767 	000000G			JSR	PC,$B47
   1484	004276	005765 	000002 			TST	2(R5)
   1485	004302	001435 				BEQ	L106
   1486	004304	005704 				TST	R4
   1487	004306	001433 				BEQ	L106
   1488	004310	005765 	000002 			TST	2(R5)
   1489	004314	001002 				BNE	.+6
   1490	004316	004767 	000000G			JSR	PC,$B47
   1491	004322	016503 	000002 			MOV	2(R5),R3
   1492	004326	005766 	000024 			TST	24(SP)
   1493	004332	001002 				BNE	.+6
   1494	004334	004767 	000000G			JSR	PC,$B47
   1495	004340	016602 	000024 			MOV	24(SP),R2
   1496	004344	005001 				CLR	R1
   1497	004346	156301 	000006 			BISB	6(R3),R1
   1498	004352	005003 				CLR	R3
   1499	004354	156203 	000006 			BISB	6(R2),R3
   1500	004360	020103 				CMP	R1,R3
   1501	004362	103403 				BLO	L109
   1502	004364	016505 	000002 			MOV	2(R5),R5
   1503	004370	000401 				BR	L110
IAUX1B	MACRO M1113  10-MAR-83 00:57  PAGE 16-1


   1504
   1505	004372	005004 			L109:	CLR	R4
   1506	004374	000734 			L110:	BR	L104
   1507
   1508	004376	005766 	000024 		L106:	TST	24(SP)
   1509	004402	001002 				BNE	.+6
   1510	004404	004767 	000000G			JSR	PC,$B47
   1511	004410	016603 	000024 			MOV	24(SP),R3
   1512	004414	016563 	000002 	000002 		MOV	2(R5),2(R3)
   1513	004422	016665 	000024 	000002 		MOV	24(SP),2(R5)
   1514	004430				L100:
   1515	004430	004767 	000000G		L103:	JSR	PC,$B77
   1516	004434	062706 	000006 			ADD	#6,SP
   1517	004440	012616 				MOV	(SP)+,@SP
   1518	004442	012616 				MOV	(SP)+,@SP
   1519	004444	000207 				RTS	PC
IAUX1B	MACRO M1113  10-MAR-83 00:57  PAGE 17


   1521					.GLOBL	SLEEP
   1522	004446				SLEEP:
   1523	004446	162706 	000020 			SUB	#20,SP
   1524	004452	004767 	000000G			JSR	PC,$B75
   1525	004456	004767 	000000G			JSR	PC,$B127
   1526	004462	012700 	005562'			MOV	#$G$+5562,R0
   1527	004466	012701 	005602'			MOV	#$G$+5602,R1
   1528	004472	005710 				TST	@R0
   1529	004474	001002 				BNE	.+6
   1530	004476	004767 	000000G			JSR	PC,$B47
   1531	004502	011003 				MOV	@R0,R3
   1532	004504	005063 	000002 			CLR	2(R3)
   1533	004510	013766 	005574'	000020 		MOV	@#$G$+5574,20(SP)
   1534	004516	005004 				CLR	R4
   1535	004520	112766 	000001 	000026 		MOVB	#1,26(SP)
   1536	004526	005766 	000020 			TST	20(SP)
   1537	004532	001460 				BEQ	L112
   1538	004534	011103 				MOV	@R1,R3
   1539	004536	010366 	000032 			MOV	R3,32(SP)
   1540	004542	010146 				MOV	R1,-(SP)
   1541	004544	004767 	000000G			JSR	PC,GETTIME
   1542						.GLOBL	GETTIME
   1543	004550	005737 	005604'			TST	@#$G$+5604
   1544	004554	001440 				BEQ	L114
   1545	004556	005403 				NEG	R3
   1546	004560	061103 				ADD	@R1,R3
   1547	004562	006702 				SXT	R2
   1548	004564	071227 	043120 			DIV	#43120,R2
   1549	004570	005403 				NEG	R3
   1550	004572	010305 				MOV	R3,R5
   1551	004574	016604 	000020 		L115:	MOV	20(SP),R4
   1552	004600	001002 				BNE	.+6
   1553	004602	004767 	000000G			JSR	PC,$B47
   1554	004606	017666 	000020 	000020 		MOV	@20(SP),20(SP)
   1555	004614	001412 				BEQ	L118
   1556	004616	005766 	000020 			TST	20(SP)
   1557	004622	001002 				BNE	.+6
   1558	004624	004767 	000000G			JSR	PC,$B47
   1559	004630	016603 	000020 			MOV	20(SP),R3
   1560	004634	066305 	000006 			ADD	6(R3),R5
   1561	004640	000403 				BR	L119
   1562
   1563	004642	005405 			L118:	NEG	R5
   1564	004644	060566 	000036 			ADD	R5,36(SP)
   1565	004650	005705 			L119:	TST	R5
   1566	004652	002750 				BLT	L115
   1567	004654	000405 				BR	L120
   1568
   1569	004656	161103 			L114:	SUB	@R1,R3
   1570	004660	006702 				SXT	R2
   1571	004662	071227 	043120 			DIV	#43120,R2
   1572	004666	010305 				MOV	R3,R5
   1573	004670	016611 	000032 		L120:	MOV	32(SP),@R1
   1574	004674				L121:
   1575	004674	005766 	000020 		L112:	TST	20(SP)
   1576	004700	001460 				BEQ	L123
   1577	004702	020566 	000036 			CMP	R5,36(SP)
IAUX1B	MACRO M1113  10-MAR-83 00:57  PAGE 17-1


   1578	004706	001022 				BNE	L125
   1579	004710	005766 	000020 			TST	20(SP)
   1580	004714	001002 				BNE	.+6
   1581	004716	004767 	000000G			JSR	PC,$B47
   1582	004722	016603 	000020 			MOV	20(SP),R3
   1583	004726	010346 				MOV	R3,-(SP)
   1584	004730	062716 	000004 			ADD	#4,@SP
   1585	004734	011046 				MOV	@R0,-(SP)
   1586	004736	004767 	177152 			JSR	PC,ADDPDB
   1587						.GLOBL	ADDPDB
   1588	004742	005066 	000020 			CLR	20(SP)
   1589	004746	105066 	000026 			CLRB	26(SP)
   1590	004752	000432 				BR	L126
   1591
   1592	004754	020566 	000036 		L125:	CMP	R5,36(SP)
   1593	004760	002025 				BGE	L128
   1594	004762	160566 	000036 			SUB	R5,36(SP)
   1595	004766	016604 	000020 			MOV	20(SP),R4
   1596	004772	001002 				BNE	.+6
   1597	004774	004767 	000000G			JSR	PC,$B47
   1598	005000	017666 	000020 	000020 		MOV	@20(SP),20(SP)
   1599	005006	001411 				BEQ	L130
   1600	005010	005766 	000020 			TST	20(SP)
   1601	005014	001002 				BNE	.+6
   1602	005016	004767 	000000G			JSR	PC,$B47
   1603	005022	016603 	000020 			MOV	20(SP),R3
   1604	005026	016305 	000006 			MOV	6(R3),R5
   1605	005032	000402 			L130:	BR	L131
   1606
   1607	005034	005066 	000020 		L128:	CLR	20(SP)
   1608	005040				L126:
   1609	005040	000715 			L131:	BR	L121
   1610
   1611	005042	105766 	000026 		L123:	TSTB	26(SP)
   1612	005046	001514 				BEQ	L133
   1613	005050	005746 				TST	-(SP)
   1614	005052	004767 	000000G			JSR	PC,NEWNODE
   1615						.GLOBL	NEWNODE
   1616	005056	012666 	000014 			MOV	(SP)+,14(SP)
   1617	005062	001002 				BNE	.+6
   1618	005064	004767 	000000G			JSR	PC,$B47
   1619	005070	016603 	000014 			MOV	14(SP),R3
   1620	005074	112763 	000036 	000002 		MOVB	#36,2(R3)
   1621	005102	011063 	000004 			MOV	@R0,4(R3)
   1622	005106	016663 	000036 	000006 		MOV	36(SP),6(R3)
   1623	005114	005013 				CLR	@R3
   1624	005116	005704 				TST	R4
   1625	005120	001030 				BNE	L135
   1626	005122	005766 	000014 			TST	14(SP)
   1627	005126	001002 				BNE	.+6
   1628	005130	004767 	000000G			JSR	PC,$B47
   1629	005134	013776 	005574'	000014 		MOV	@#$G$+5574,@14(SP)
   1630	005142	016637 	000014 	005574'		MOV	14(SP),@#$G$+5574
   1631	005150	004767 	000000G			JSR	PC,CLRTIMEQUEUE
   1632						.GLOBL	CLRTIMEQUEUE
   1633	005154	010146 				MOV	R1,-(SP)
   1634	005156	004767 	000000G			JSR	PC,GETTIME
IAUX1B	MACRO M1113  10-MAR-83 00:57  PAGE 17-2


   1635						.GLOBL	GETTIME
   1636	005162	016646 	000036 			MOV	36(SP),-(SP)
   1637	005166	010146 				MOV	R1,-(SP)
   1638	005170	012746 	005604'			MOV	#$G$+5604,-(SP)
   1639	005174	004767 	000000G			JSR	PC,MARKTIME
   1640						.GLOBL	MARKTIME
   1641	005200	000415 				BR	L136
   1642
   1643	005202	005766 	000014 		L135:	TST	14(SP)
   1644	005206	001002 				BNE	.+6
   1645	005210	004767 	000000G			JSR	PC,$B47
   1646	005214	005704 				TST	R4
   1647	005216	001002 				BNE	.+6
   1648	005220	004767 	000000G			JSR	PC,$B47
   1649	005224	011476 	000014 			MOV	@R4,@14(SP)
   1650	005230	016614 	000014 			MOV	14(SP),@R4
   1651	005234	005766 	000014 		L136:	TST	14(SP)
   1652	005240	001002 				BNE	.+6
   1653	005242	004767 	000000G			JSR	PC,$B47
   1654	005246	005776 	000014 			TST	@14(SP)
   1655	005252	001412 				BEQ	L138
   1656	005254	005776 	000014 			TST	@14(SP)
   1657	005260	001002 				BNE	.+6
   1658	005262	004767 	000000G			JSR	PC,$B47
   1659	005266	017603 	000014 			MOV	@14(SP),R3
   1660	005272	166663 	000036 	000006 		SUB	36(SP),6(R3)
   1661	005300				L133:
   1662	005300	005710 			L138:	TST	@R0
   1663	005302	001002 				BNE	.+6
   1664	005304	004767 	000000G			JSR	PC,$B47
   1665	005310	011003 				MOV	@R0,R3
   1666	005312	142763 	000017 	000007 		BICB	#17,7(R3)
   1667	005320	152763 	000005 	000007 		BISB	#5,7(R3)
   1668	005326	005010 				CLR	@R0
   1669	005330	112737 	000001 	005612'		MOVB	#1,@#$G$+5612
   1670	005336	004767 	000000G			JSR	PC,$B77
   1671	005342	062706 	000020 			ADD	#20,SP
   1672	005346	012616 				MOV	(SP)+,@SP
   1673	005350	000207 				RTS	PC
IAUX1B	MACRO M1113  10-MAR-83 00:57  PAGE 18


   1675					.GLOBL	DECLKQUEUE
   1676	005352				DECLKQUEUE:
   1677	005352	162706 	000012 			SUB	#12,SP
   1678	005356	004767 	000000G			JSR	PC,$B75
   1679	005362	004767 	000000G			JSR	PC,$B127
   1680	005366	012700 	005574'			MOV	#$G$+5574,R0
   1681	005372	011004 				MOV	@R0,R4
   1682	005374	005066 	000016 			CLR	16(SP)
   1683	005400	112766 	000001 	000024 		MOVB	#1,24(SP)
   1684	005406	005704 			L139:	TST	R4
   1685	005410	001563 				BEQ	L141
   1686	005412	105766 	000024 			TSTB	24(SP)
   1687	005416	001560 				BEQ	L141
   1688	005420	005704 				TST	R4
   1689	005422	001002 				BNE	.+6
   1690	005424	004767 	000000G			JSR	PC,$B47
   1691	005430	016466 	000004 	000020 		MOV	4(R4),20(SP)
   1692	005436	005005 				CLR	R5
   1693	005440	005766 	000020 		L143:	TST	20(SP)
   1694	005444	001417 				BEQ	L145
   1695	005446	026666 	000020 	000030 		CMP	20(SP),30(SP)
   1696	005454	001413 				BEQ	L145
   1697	005456	016605 	000020 			MOV	20(SP),R5
   1698	005462	001002 				BNE	.+6
   1699	005464	004767 	000000G			JSR	PC,$B47
   1700	005470	016603 	000020 			MOV	20(SP),R3
   1701	005474	016366 	000002 	000020 		MOV	2(R3),20(SP)
   1702	005502	000756 				BR	L143
   1703
   1704	005504	005766 	000020 		L145:	TST	20(SP)
   1705	005510	001514 				BEQ	L148
   1706	005512	105066 	000024 			CLRB	24(SP)
   1707	005516	005705 				TST	R5
   1708	005520	001071 				BNE	L150
   1709	005522	005704 				TST	R4
   1710	005524	001002 				BNE	.+6
   1711	005526	004767 	000000G			JSR	PC,$B47
   1712	005532	005766 	000020 			TST	20(SP)
   1713	005536	001002 				BNE	.+6
   1714	005540	004767 	000000G			JSR	PC,$B47
   1715	005544	016603 	000020 			MOV	20(SP),R3
   1716	005550	016364 	000002 	000004 		MOV	2(R3),4(R4)
   1717	005556	001051 				BNE	L152
   1718	005560	005766 	000016 			TST	16(SP)
   1719	005564	001410 				BEQ	L154
   1720	005566	005766 	000016 			TST	16(SP)
   1721	005572	001002 				BNE	.+6
   1722	005574	004767 	000000G			JSR	PC,$B47
   1723	005600	011476 	000016 			MOV	@R4,@16(SP)
   1724	005604	000421 				BR	L155
   1725
   1726	005606	004767 	000000G		L154:	JSR	PC,CLRTIMEQUEUE
   1727						.GLOBL	CLRTIMEQUEUE
   1728	005612	011410 				MOV	@R4,@R0
   1729	005614	001415 				BEQ	L157
   1730	005616	005710 				TST	@R0
   1731	005620	001002 				BNE	.+6
IAUX1B	MACRO M1113  10-MAR-83 00:57  PAGE 18-1


   1732	005622	004767 	000000G			JSR	PC,$B47
   1733	005626	011003 				MOV	@R0,R3
   1734	005630	016346 	000006 			MOV	6(R3),-(SP)
   1735	005634	012746 	005602'			MOV	#$G$+5602,-(SP)
   1736	005640	012746 	005604'			MOV	#$G$+5604,-(SP)
   1737	005644	004767 	000000G			JSR	PC,MARKTIME
   1738						.GLOBL	MARKTIME
   1739	005650				L155:
   1740	005650	005714 			L157:	TST	@R4
   1741	005652	001410 				BEQ	L159
   1742	005654	005714 				TST	@R4
   1743	005656	001002 				BNE	.+6
   1744	005660	004767 	000000G			JSR	PC,$B47
   1745	005664	011403 				MOV	@R4,R3
   1746	005666	066463 	000006 	000006 		ADD	6(R4),6(R3)
   1747	005674	010446 			L159:	MOV	R4,-(SP)
   1748	005676	004767 	000000G			JSR	PC,RELNODE
   1749						.GLOBL	RELNODE
   1750	005702	000416 			L152:	BR	L160
   1751
   1752	005704	005705 			L150:	TST	R5
   1753	005706	001002 				BNE	.+6
   1754	005710	004767 	000000G			JSR	PC,$B47
   1755	005714	005766 	000020 			TST	20(SP)
   1756	005720	001002 				BNE	.+6
   1757	005722	004767 	000000G			JSR	PC,$B47
   1758	005726	016603 	000020 			MOV	20(SP),R3
   1759	005732	016365 	000002 	000002 		MOV	2(R3),2(R5)
   1760	005740	000406 			L160:	BR	L161
   1761
   1762	005742	010466 	000016 		L148:	MOV	R4,16(SP)
   1763	005746	001002 				BNE	.+6
   1764	005750	004767 	000000G			JSR	PC,$B47
   1765	005754	011404 				MOV	@R4,R4
   1766	005756	000613 			L161:	BR	L139
   1767
   1768	005760	004767 	000000G		L141:	JSR	PC,$B77
   1769	005764	062706 	000012 			ADD	#12,SP
   1770	005770	012616 				MOV	(SP)+,@SP
   1771	005772	000207 				RTS	PC
IAUX1B	MACRO M1113  10-MAR-83 00:57  PAGE 19


   1773					;FREEEVENT
   1774	005774				P45:
   1775	005774	024646 				CMP	-(SP),-(SP)
   1776	005776	004767 	000000G			JSR	PC,$B75
   1777	006002	004767 	000000G			JSR	PC,$B127
   1778	006006	012700 	005576'			MOV	#$G$+5576,R0
   1779	006012	021066 	000022 			CMP	@R0,22(SP)
   1780	006016	001012 				BNE	L163
   1781	006020	005766 	000022 			TST	22(SP)
   1782	006024	001002 				BNE	.+6
   1783	006026	004767 	000000G			JSR	PC,$B47
   1784	006032	017610 	000022 			MOV	@22(SP),@R0
   1785	006036	012704 	000001 			MOV	#1,R4
   1786	006042	000436 				BR	L164
   1787
   1788	006044	011005 			L163:	MOV	@R0,R5
   1789	006046	005004 				CLR	R4
   1790	006050	005705 			L165:	TST	R5
   1791	006052	001002 				BNE	.+6
   1792	006054	004767 	000000G			JSR	PC,$B47
   1793	006060	021566 	000022 			CMP	@R5,22(SP)
   1794	006064	001003 				BNE	L168
   1795	006066	012704 	000001 			MOV	#1,R4
   1796	006072	000401 				BR	L169
   1797
   1798	006074	011505 			L168:	MOV	@R5,R5
   1799	006076	005704 			L169:	TST	R4
   1800	006100	001002 				BNE	L166
   1801	006102	005705 				TST	R5
   1802	006104	001361 				BNE	L165
   1803	006106	005704 			L166:	TST	R4
   1804	006110	001413 				BEQ	L172
   1805	006112	005705 				TST	R5
   1806	006114	001002 				BNE	.+6
   1807	006116	004767 	000000G			JSR	PC,$B47
   1808	006122	005766 	000022 			TST	22(SP)
   1809	006126	001002 				BNE	.+6
   1810	006130	004767 	000000G			JSR	PC,$B47
   1811	006134	017615 	000022 			MOV	@22(SP),@R5
   1812	006140				L164:
   1813	006140	005704 			L172:	TST	R4
   1814	006142	001404 				BEQ	L174
   1815	006144	016646 	000022 			MOV	22(SP),-(SP)
   1816	006150	004767 	000000G			JSR	PC,RELEVENT
   1817						.GLOBL	RELEVENT
   1818	006154	004767 	000000G		L174:	JSR	PC,$B77
   1819	006160	022626 				CMP	(SP)+,(SP)+
   1820	006162	012616 				MOV	(SP)+,@SP
   1821	006164	000207 				RTS	PC
IAUX1B	MACRO M1113  10-MAR-83 00:57  PAGE 20


   1823					;KILLNODE
   1824	006166				P46:
   1825	006166	010346 				MOV	R3,-(SP)
   1826	006170	010246 				MOV	R2,-(SP)
   1827	006172	004767 	000000G			JSR	PC,$B127
   1828	006176	005766 	000006 			TST	6(SP)
   1829	006202	001002 				BNE	.+6
   1830	006204	004767 	000000G			JSR	PC,$B47
   1831	006210	016603 	000006 			MOV	6(SP),R3
   1832	006214	126327 	000002 	000001 		CMPB	2(R3),#1
   1833	006222	001043 				BNE	L176
   1834	006224	116302 	000003 			MOVB	3(R3),R2
   1835	006230	062702 	177775 			ADD	#177775,R2
   1836	006234	022702 	000002 			CMP	#2,R2
   1837	006240	103434 				BLO	L177
   1838	006242	006302 				ASL	R2
   1839	006244	000172 	002064'			JMP	@$CONST+2064(R2)
   1840	002064				.PSECT	CONSTS
   1841	002064	006250'				L179
   1842	002066	006332'				L177
   1843	002070	006302'				L180
   1844	006250				.PSECT
   1845	006250	005763 	000004 		L179:	TST	4(R3)
   1846	006254	001002 				BNE	.+6
   1847	006256	004767 	000000G			JSR	PC,$B47
   1848	006262	005773 	000004 			TST	@4(R3)
   1849	006266	003004 				BGT	L182
   1850	006270	016346 	000004 			MOV	4(R3),-(SP)
   1851	006274	004767 	000000G			JSR	PC,RELVECTOR
   1852						.GLOBL	RELVECTOR
   1853	006300	000414 			L182:	BR	L178
   1854
   1855	006302	005763 	000004 		L180:	TST	4(R3)
   1856	006306	001002 				BNE	.+6
   1857	006310	004767 	000000G			JSR	PC,$B47
   1858	006314	005773 	000004 			TST	@4(R3)
   1859	006320	003004 				BGT	L184
   1860	006322	016346 	000004 			MOV	4(R3),-(SP)
   1861	006326	004767 	000000G			JSR	PC,RELTRANS
   1862						.GLOBL	RELTRANS
   1863	006332				L176:
   1864	006332				L178:
   1865	006332				L177:
   1866	006332	016646 	000006 		L184:	MOV	6(SP),-(SP)
   1867	006336	004767 	000000G			JSR	PC,RELNODE
   1868						.GLOBL	RELNODE
   1869	006342	012602 				MOV	(SP)+,R2
   1870	006344	012603 				MOV	(SP)+,R3
   1871	006346	012616 				MOV	(SP)+,@SP
   1872	006350	000207 				RTS	PC
IAUX1B	MACRO M1113  10-MAR-83 00:57  PAGE 21


   1874					;GETARM
   1875	006352				P47:
   1876	006352	024646 				CMP	-(SP),-(SP)
   1877	006354	004767 	000000G			JSR	PC,$B127
   1878	006360	012746 	000002 			MOV	#2,-(SP)
   1879	006364	060616 				ADD	SP,@SP
   1880	006366	012746 	000006 			MOV	#6,-(SP)
   1881	006372	060616 				ADD	SP,@SP
   1882	006374	004767 	000000G			JSR	PC,RCVMSG
   1883						.GLOBL	RCVMSG
   1884	006400	005766 	000002 			TST	2(SP)
   1885	006404	001424 				BEQ	L186
   1886	006406	012746 	001262'			MOV	#$CONST+1262,-(SP)
   1887	006412	012746 	000032 			MOV	#32,-(SP)
   1888	006416	011646 				MOV	@SP,-(SP)
   1889	006420	004767 	000000G			JSR	PC,$B32
   1890					.GLOBL	$B32
   1891	006424	016646 	000002 			MOV	2(SP),-(SP)
   1892	006430	012746 	000002 			MOV	#2,-(SP)
   1893	006434	004767 	000000G			JSR	PC,$B24
   1894					.GLOBL	$B24
   1895	006440	004767 	000000G			JSR	PC,$B36
   1896					.GLOBL	$B36
   1897	006444	013737 	000000'	000000G		MOV	@#$G$+0,@#$FILE
   1898	006452	004767 	000000G			JSR	PC,$B62
   1899					.GLOBL	$B62
   1900	006456	105066 	000006 		L186:	CLRB	6(SP)
   1901	006462	005716 				TST	@SP
   1902	006464	001402 				BEQ	L188
   1903	006466	105266 	000006 			INCB	6(SP)
   1904	006472	022626 			L188:	CMP	(SP)+,(SP)+
   1905	006474	000207 				RTS	PC
IAUX1B	MACRO M1113  10-MAR-83 00:57  PAGE 22


   1907					;PUSH
   1908	006476				P48:
   1909	006476	010346 				MOV	R3,-(SP)
   1910	006500	004767 	000000G			JSR	PC,$B127
   1911	006504	005766 	000004 			TST	4(SP)
   1912	006510	001002 				BNE	.+6
   1913	006512	004767 	000000G			JSR	PC,$B47
   1914	006516	005737 	005562'			TST	@#$G$+5562
   1915	006522	001002 				BNE	.+6
   1916	006524	004767 	000000G			JSR	PC,$B47
   1917	006530	013703 	005562'			MOV	@#$G$+5562,R3
   1918	006534	016376 	000016 	000004 		MOV	16(R3),@4(SP)
   1919	006542	016663 	000004 	000016 		MOV	4(SP),16(R3)
   1920	006550	012603 				MOV	(SP)+,R3
   1921	006552	012616 				MOV	(SP)+,@SP
   1922	006554	000207 				RTS	PC
IAUX1B	MACRO M1113  10-MAR-83 00:57  PAGE 23


   1924					.GLOBL	MSGDISPATCH
   1925	006556				MSGDISPATCH:
   1926	006556	162706 	000024 			SUB	#24,SP
   1927	006562	004767 	000000G			JSR	PC,$B75
   1928	006566	174046 				STF	AC0,-(SP)
   1929	006570	004767 	000000G			JSR	PC,$B127
   1930	006574	005737 	005606'			TST	@#$G$+5606
   1931	006600	001002 				BNE	.+6
   1932	006602	004767 	000000G			JSR	PC,$B47
   1933	006606	013703 	005606'			MOV	@#$G$+5606,R3
   1934	006612	010346 				MOV	R3,-(SP)
   1935	006614	121327 	000030 			CMPB	@R3,#30
   1936	006620	001153 				BNE	L190
   1937	006622	105763 	000001 			TSTB	1(R3)
   1938	006626	001413 				BEQ	L192
   1939	006630	012702 	001340'			MOV	#$CONST+1340,R2
   1940	006634	012701 	000012 			MOV	#12,R1
   1941	006640	014246 			L32711:	MOV	-(R2),-(SP)
   1942	006642	077102 				SOB	R1,L32711
   1943	006644	012746 	000015 			MOV	#15,-(SP)
   1944	006650	004767 	000000G			JSR	PC,PP20L
   1945						.GLOBL	PP20L
   1946	006654	000412 				BR	L193
   1947
   1948	006656	012702 	001352'		L192:	MOV	#$CONST+1352,R2
   1949	006662	012701 	000005 			MOV	#5,R1
   1950	006666	014246 			L32710:	MOV	-(R2),-(SP)
   1951	006670	077102 				SOB	R1,L32710
   1952	006672	012746 	000011 			MOV	#11,-(SP)
   1953	006676	004767 	000000G			JSR	PC,PP10L
   1954						.GLOBL	PP10L
   1955	006702	016302 	000002 		L193:	MOV	2(R3),R2
   1956	006706	005302 				DEC	R2
   1957	006710	022702 	000005 			CMP	#5,R2
   1958	006714	103465 				BLO	L194
   1959	006716	006302 				ASL	R2
   1960	006720	000172 	002072'			JMP	@$CONST+2072(R2)
   1961	002072				.PSECT	CONSTS
   1962	002072	006724'				L196
   1963	002074	006752'				L197
   1964	002076	006774'				L198
   1965	002100	007012'				L199
   1966	002102	007030'				L200
   1967	002104	007052'				L201
   1968	006724				.PSECT
   1969	006724	012702 	001364'		L196:	MOV	#$CONST+1364,R2
   1970	006730	012701 	000005 			MOV	#5,R1
   1971	006734	014246 			L32709:	MOV	-(R2),-(SP)
   1972	006736	077102 				SOB	R1,L32709
   1973	006740	012746 	000007 		L32689:	MOV	#7,-(SP)
   1974	006744	004767 	000000G		L32688:	JSR	PC,PP10
   1975						.GLOBL	PP10
   1976	006750	000461 				BR	L195
   1977
   1978	006752	012702 	001376'		L197:	MOV	#$CONST+1376,R2
   1979	006756	012701 	000005 			MOV	#5,R1
   1980	006762	014246 			L32708:	MOV	-(R2),-(SP)
IAUX1B	MACRO M1113  10-MAR-83 00:57  PAGE 23-1


   1981	006764	077102 				SOB	R1,L32708
   1982	006766	012746 	000010 		L32687:	MOV	#10,-(SP)
   1983	006772	000764 				BR	L32688
   1984
   1985	006774	012702 	001410'		L198:	MOV	#$CONST+1410,R2
   1986	007000	012701 	000005 			MOV	#5,R1
   1987	007004	014246 			L32707:	MOV	-(R2),-(SP)
   1988	007006	077102 				SOB	R1,L32707
   1989	007010	000753 				BR	L32689
   1990
   1991	007012	012702 	001422'		L199:	MOV	#$CONST+1422,R2
   1992	007016	012701 	000005 			MOV	#5,R1
   1993	007022	014246 			L32706:	MOV	-(R2),-(SP)
   1994	007024	077102 				SOB	R1,L32706
   1995	007026	000757 				BR	L32687
   1996
   1997	007030	012702 	001434'		L200:	MOV	#$CONST+1434,R2
   1998	007034	012701 	000005 			MOV	#5,R1
   1999	007040	014246 			L32705:	MOV	-(R2),-(SP)
   2000	007042	077102 				SOB	R1,L32705
   2001	007044	012746 	000011 			MOV	#11,-(SP)
   2002	007050	000735 				BR	L32688
   2003
   2004	007052	012702 	001446'		L201:	MOV	#$CONST+1446,R2
   2005	007056	012701 	000005 			MOV	#5,R1
   2006	007062	014246 			L32704:	MOV	-(R2),-(SP)
   2007	007064	077102 				SOB	R1,L32704
   2008	007066	000724 				BR	L32689
   2009
   2010	007070	012702 	001472'		L194:	MOV	#$CONST+1472,R2
   2011	007074	012701 	000012 			MOV	#12,R1
   2012	007100	014246 			L32703:	MOV	-(R2),-(SP)
   2013	007102	077102 				SOB	R1,L32703
   2014	007104	012746 	000022 			MOV	#22,-(SP)
   2015	007110	004767 	000000G			JSR	PC,PP20
   2016						.GLOBL	PP20
   2017	007114	116302 	000016 		L195:	MOVB	16(R3),R2
   2018	007120	020227 	000024 			CMP	R2,#24
   2019	007124	101402 				BLOS	.+6
   2020	007126	004767 	000000G			JSR	PC,$B45
   2021					.GLOBL	$B45
   2022	007132	110246 				MOVB	R2,-(SP)
   2023	007134	016346 	000004 			MOV	4(R3),-(SP)
   2024	007140	004767 	173420 			JSR	PC,PPARMERROR
   2025						.GLOBL	PPARMERROR
   2026	007144	000167 	002622 			JMP	L202
   2027
   2028	007150	005763 	000010 		L190:	TST	10(R3)
   2029	007154	001002 				BNE	.+6
   2030	007156	004767 	000000G			JSR	PC,$B47
   2031	007162	016302 	000010 			MOV	10(R3),R2
   2032	007166	005262 	000002 			INC	2(R2)
   2033	007172	016201 	000004 			MOV	4(R2),R1
   2034	007176	010166 	000022 			MOV	R1,22(SP)
   2035	007202	001002 				BNE	.+6
   2036	007204	000167 	002562 			JMP	L204
   2037	007210	005766 	000022 			TST	22(SP)
IAUX1B	MACRO M1113  10-MAR-83 00:57  PAGE 23-2


   2038	007214	001002 				BNE	.+6
   2039	007216	004767 	000000G			JSR	PC,$B47
   2040	007222	016600 	000022 			MOV	22(SP),R0
   2041	007226	010046 				MOV	R0,-(SP)
   2042	007230	016062 	000002 	000004 		MOV	2(R0),4(R2)
   2043	007236	142760 	000017 	000007 		BICB	#17,7(R0)
   2044	007244	152760 	000002 	000007 		BISB	#2,7(R0)
   2045	007252	012746 	005564'			MOV	#$G$+5564,-(SP)
   2046	007256	010146 				MOV	R1,-(SP)
   2047	007260	004767 	174630 			JSR	PC,ADDPDB
   2048						.GLOBL	ADDPDB
   2049	007264	005737 	005562'			TST	@#$G$+5562
   2050	007270	001001 				BNE	L206
   2051	007272	000417 				BR	L32690
   2052
   2053	007274	005737 	005562'		L206:	TST	@#$G$+5562
   2054	007300	001002 				BNE	.+6
   2055	007302	004767 	000000G			JSR	PC,$B47
   2056	007306	013702 	005562'			MOV	@#$G$+5562,R2
   2057	007312	005001 				CLR	R1
   2058	007314	156001 	000006 			BISB	6(R0),R1
   2059	007320	005000 				CLR	R0
   2060	007322	156200 	000006 			BISB	6(R2),R0
   2061	007326	020100 				CMP	R1,R0
   2062	007330	101403 				BLOS	L209
   2063	007332	112737 	000001 	005612'	L32690:	MOVB	#1,@#$G$+5612
   2064	007340				L207:
   2065	007340	121327 	000012 		L209:	CMPB	@R3,#12
   2066	007344	001053 				BNE	L211
   2067	007346	005746 				TST	-(SP)
   2068	007350	004767 	000000G			JSR	PC,NEWNODE
   2069						.GLOBL	NEWNODE
   2070	007354	012666 	000030 			MOV	(SP)+,30(SP)
   2071	007360	001002 				BNE	.+6
   2072	007362	004767 	000000G			JSR	PC,$B47
   2073	007366	016602 	000030 			MOV	30(SP),R2
   2074	007372	112762 	000001 	000002 		MOVB	#1,2(R2)
   2075	007400	112762 	000002 	000003 		MOVB	#2,3(R2)
   2076	007406	105763 	000001 			TSTB	1(R3)
   2077	007412	001403 				BEQ	L213
   2078	007414	170462 	000004 			CLRF	4(R2)
   2079	007420	000411 				BR	L214
   2080
   2081	007422	116301 	000016 		L213:	MOVB	16(R3),R1
   2082	007426	070127 	000200 			MUL	#200,R1
   2083	007432	066301 	000004 			ADD	4(R3),R1
   2084	007436	177001 				LDCIF	R1,AC0
   2085	007440	174062 	000004 			STF	AC0,4(R2)
   2086	007444	011601 			L214:	MOV	@SP,R1
   2087	007446	016112 	000016 			MOV	16(R1),@R2
   2088	007452	016661 	000030 	000016 		MOV	30(SP),16(R1)
   2089	007460	016346 	000010 			MOV	10(R3),-(SP)
   2090	007464	004767 	176304 			JSR	PC,P45	;FREEEVENT
   2091	007470	000167 	002274 			JMP	L215
   2092
   2093	007474	121327 	000033 		L211:	CMPB	@R3,#33
   2094	007500	001402 				BEQ	.+6
IAUX1B	MACRO M1113  10-MAR-83 00:57  PAGE 23-3


   2095	007502	000167 	002162 			JMP	L217
   2096	007506	013766 	005562'	000026 		MOV	@#$G$+5562,26(SP)
   2097	007514	016637 	000024 	005562'		MOV	24(SP),@#$G$+5562
   2098	007522	016366 	000006 	000040 		MOV	6(R3),40(SP)
   2099	007530	011603 				MOV	@SP,R3
   2100	007532	005763 	000012 			TST	12(R3)
   2101	007536	001002 				BNE	.+6
   2102	007540	004767 	000000G			JSR	PC,$B47
   2103	007544	016303 	000012 			MOV	12(R3),R3
   2104	007550	016366 	000022 	000032 		MOV	22(R3),32(SP)
   2105	007556	016646 	000040 			MOV	40(SP),-(SP)
   2106	007562	012746 	000001 			MOV	#1,-(SP)
   2107	007566	021666 	000002 		L218:	CMP	@SP,2(SP)
   2108	007572	003402 				BLE	.+6
   2109	007574	000167 	001544 			JMP	L219
   2110	007600	005746 			L220:	TST	-(SP)
   2111	007602	004767 	176544 			JSR	PC,P47	;GETARM
   2112	007606	105726 				TSTB	(SP)+
   2113	007610	001773 				BEQ	L220
   2114	007612	005005 				CLR	R5
   2115	007614	005766 	000036 			TST	36(SP)
   2116	007620	001401 				BEQ	L223
   2117	007622	005205 				INC	R5
   2118	007624	005705 			L223:	TST	R5
   2119	007626	001435 				BEQ	L225
   2120	007630	005766 	000036 			TST	36(SP)
   2121	007634	001002 				BNE	.+6
   2122	007636	004767 	000000G			JSR	PC,$B47
   2123	007642	016603 	000036 			MOV	36(SP),R3
   2124	007646	005763 	000004 			TST	4(R3)
   2125	007652	001002 				BNE	.+6
   2126	007654	004767 	000000G			JSR	PC,$B47
   2127	007660	016303 	000004 			MOV	4(R3),R3
   2128	007664	126327 	000002 	000001 		CMPB	2(R3),#1
   2129	007672	001001 				BNE	L227
   2130	007674	000407 				BR	L32691
   2131
   2132	007676	005763 	000004 		L227:	TST	4(R3)
   2133	007702	001002 				BNE	.+6
   2134	007704	004767 	000000G			JSR	PC,$B47
   2135	007710	016303 	000004 			MOV	4(R3),R3
   2136	007714	016366 	000004 	000040 	L32691:	MOV	4(R3),40(SP)
   2137	007722				L225:
   2138	007722	005746 			L228:	TST	-(SP)
   2139	007724	004767 	000000G			JSR	PC,NEWNODE
   2140						.GLOBL	NEWNODE
   2141	007730	012666 	000034 			MOV	(SP)+,34(SP)
   2142	007734	001002 				BNE	.+6
   2143	007736	004767 	000000G			JSR	PC,$B47
   2144	007742	016603 	000034 			MOV	34(SP),R3
   2145	007746	112763 	000001 	000002 		MOVB	#1,2(R3)
   2146	007754	112763 	000002 	000003 		MOVB	#2,3(R3)
   2147	007762	016602 	000006 			MOV	6(SP),R2
   2148	007766	121227 	000034 			CMPB	@R2,#34
   2149	007772	001030 				BNE	L230
   2150	007774	172462 	000012 			LDF	12(R2),AC0
   2151	010000	174063 	000004 			STF	AC0,4(R3)
IAUX1B	MACRO M1113  10-MAR-83 00:57  PAGE 23-4


   2152	010004	005705 				TST	R5
   2153	010006	001420 				BEQ	L232
   2154	010010	005005 				CLR	R5
   2155	010012	005766 	000040 			TST	40(SP)
   2156	010016	001002 				BNE	.+6
   2157	010020	004767 	000000G			JSR	PC,$B47
   2158	010024	016603 	000040 			MOV	40(SP),R3
   2159	010030	116303 	000013 			MOVB	13(R3),R3
   2160	010034	042703 	177740 			BIC	#177740,R3
   2161	010040	020327 	000002 			CMP	R3,#2
   2162	010044	001001 				BNE	L234
   2163	010046	005205 				INC	R5
   2164	010050				L232:
   2165	010050	000167 	000700 		L234:	JMP	L235
   2166
   2167	010054	121227 	000035 		L230:	CMPB	@R2,#35
   2168	010060	001055 				BNE	L237
   2169	010062	112763 	000003 	000003 		MOVB	#3,3(R3)
   2170	010070	005746 				TST	-(SP)
   2171	010072	004767 	000000G			JSR	PC,NEWVECTOR
   2172						.GLOBL	NEWVECTOR
   2173	010076	012663 	000004 			MOV	(SP)+,4(R3)
   2174	010102	001002 				BNE	.+6
   2175	010104	004767 	000000G			JSR	PC,$B47
   2176	010110	016303 	000004 			MOV	4(R3),R3
   2177	010114	172462 	000016 			LDF	16(R2),AC0
   2178	010120	174063 	000002 			STF	AC0,2(R3)
   2179	010124	172462 	000022 			LDF	22(R2),AC0
   2180	010130	174063 	000006 			STF	AC0,6(R3)
   2181	010134	172462 	000026 			LDF	26(R2),AC0
   2182	010140	174063 	000012 			STF	AC0,12(R3)
   2183	010144	005705 				TST	R5
   2184	010146	001420 				BEQ	L239
   2185	010150	005005 				CLR	R5
   2186	010152	005766 	000040 			TST	40(SP)
   2187	010156	001002 				BNE	.+6
   2188	010160	004767 	000000G			JSR	PC,$B47
   2189	010164	016603 	000040 			MOV	40(SP),R3
   2190	010170	116303 	000013 			MOVB	13(R3),R3
   2191	010174	042703 	177740 			BIC	#177740,R3
   2192	010200	020327 	000003 			CMP	R3,#3
   2193	010204	001001 				BNE	L241
   2194	010206	005205 				INC	R5
   2195	010210				L239:
   2196	010210	000167 	000540 		L241:	JMP	L242
   2197
   2198	010214	121227 	000036 		L237:	CMPB	@R2,#36
   2199	010220	001402 				BEQ	.+6
   2200	010222	000167 	000424 			JMP	L244
   2201	010226	112763 	000005 	000003 		MOVB	#5,3(R3)
   2202	010234	005746 				TST	-(SP)
   2203	010236	004767 	000000G			JSR	PC,NEWTRANS
   2204						.GLOBL	NEWTRANS
   2205	010242	012663 	000004 			MOV	(SP)+,4(R3)
   2206	010246	001002 				BNE	.+6
   2207	010250	004767 	000000G			JSR	PC,$B47
   2208	010254	016346 	000004 			MOV	4(R3),-(SP)
IAUX1B	MACRO M1113  10-MAR-83 00:57  PAGE 23-5


   2209	010260	012704 	000001 			MOV	#1,R4
   2210	010264	010403 			L245:	MOV	R4,R3
   2211	010266	005303 				DEC	R3
   2212	010270	020327 	000005 			CMP	R3,#5
   2213	010274	101402 				BLOS	.+6
   2214	010276	004767 	000000G			JSR	PC,$B43
   2215	010302	072327 	000002 			ASH	#2,R3
   2216	010306	066603 	000010 			ADD	10(SP),R3
   2217	010312	010402 				MOV	R4,R2
   2218	010314	005302 				DEC	R2
   2219	010316	020227 	000002 			CMP	R2,#2
   2220	010322	101402 				BLOS	.+6
   2221	010324	004767 	000000G			JSR	PC,$B43
   2222	010330	072227 	000004 			ASH	#4,R2
   2223	010334	061602 				ADD	@SP,R2
   2224	010336	172462 	000002 			LDF	2(R2),AC0
   2225	010342	174063 	000002 			STF	AC0,2(R3)
   2226	010346	010403 				MOV	R4,R3
   2227	010350	062703 	000003 			ADD	#3,R3
   2228	010354	005303 				DEC	R3
   2229	010356	020327 	000005 			CMP	R3,#5
   2230	010362	101402 				BLOS	.+6
   2231	010364	004767 	000000G			JSR	PC,$B43
   2232	010370	072327 	000002 			ASH	#2,R3
   2233	010374	066603 	000010 			ADD	10(SP),R3
   2234	010400	172462 	000006 			LDF	6(R2),AC0
   2235	010404	174063 	000002 			STF	AC0,2(R3)
   2236	010410	005204 				INC	R4
   2237	010412	020427 	000003 			CMP	R4,#3
   2238	010416	003722 				BLE	L245
   2239	010420				L247:
   2240	010420	005746 			L246:	TST	-(SP)
   2241	010422	004767 	175724 			JSR	PC,P47	;GETARM
   2242	010426	105726 				TSTB	(SP)+
   2243	010430	001773 				BEQ	L247
   2244	010432	012704 	000001 			MOV	#1,R4
   2245	010436	010403 			L249:	MOV	R4,R3
   2246	010440	005303 				DEC	R3
   2247	010442	020327 	000005 			CMP	R3,#5
   2248	010446	101402 				BLOS	.+6
   2249	010450	004767 	000000G			JSR	PC,$B43
   2250	010454	072327 	000002 			ASH	#2,R3
   2251	010460	066603 	000010 			ADD	10(SP),R3
   2252	010464	010402 				MOV	R4,R2
   2253	010466	005302 				DEC	R2
   2254	010470	020227 	000002 			CMP	R2,#2
   2255	010474	101402 				BLOS	.+6
   2256	010476	004767 	000000G			JSR	PC,$B43
   2257	010502	072227 	000004 			ASH	#4,R2
   2258	010506	061602 				ADD	@SP,R2
   2259	010510	172462 	000012 			LDF	12(R2),AC0
   2260	010514	174063 	000002 			STF	AC0,2(R3)
   2261	010520	010403 				MOV	R4,R3
   2262	010522	062703 	000003 			ADD	#3,R3
   2263	010526	005303 				DEC	R3
   2264	010530	020327 	000005 			CMP	R3,#5
   2265	010534	101402 				BLOS	.+6
IAUX1B	MACRO M1113  10-MAR-83 00:57  PAGE 23-6


   2266	010536	004767 	000000G			JSR	PC,$B43
   2267	010542	072327 	000002 			ASH	#2,R3
   2268	010546	066603 	000010 			ADD	10(SP),R3
   2269	010552	172462 	000016 			LDF	16(R2),AC0
   2270	010556	174063 	000002 			STF	AC0,2(R3)
   2271	010562	005204 				INC	R4
   2272	010564	020427 	000003 			CMP	R4,#3
   2273	010570	003722 				BLE	L249
   2274	010572	005726 			L250:	TST	(SP)+
   2275	010574	005705 				TST	R5
   2276	010576	001424 				BEQ	L252
   2277	010600	005005 				CLR	R5
   2278	010602	005766 	000040 			TST	40(SP)
   2279	010606	001002 				BNE	.+6
   2280	010610	004767 	000000G			JSR	PC,$B47
   2281	010614	016603 	000040 			MOV	40(SP),R3
   2282	010620	116303 	000013 			MOVB	13(R3),R3
   2283	010624	042703 	177740 			BIC	#177740,R3
   2284	010630	005002 				CLR	R2
   2285	010632	071227 	000010 			DIV	#10,R2
   2286	010636	136362 	000000'	001760'		BITB	$BITS+0(R3),$CONST+1760(R2)
   2287	010644	001401 				BEQ	L254
   2288	010646	005205 				INC	R5
   2289	010650				L252:
   2290	010650	000441 			L254:	BR	L255
   2291
   2292	010652	012703 	001516'		L244:	MOV	#$CONST+1516,R3
   2293	010656	012702 	000012 			MOV	#12,R2
   2294	010662	014346 			L32702:	MOV	-(R3),-(SP)
   2295	010664	077202 				SOB	R2,L32702
   2296	010666	012746 	000024 			MOV	#24,-(SP)
   2297	010672	004767 	000000G			JSR	PC,PP20L
   2298						.GLOBL	PP20L
   2299	010676	012703 	001542'			MOV	#$CONST+1542,R3
   2300	010702	012702 	000012 			MOV	#12,R2
   2301	010706	014346 			L32701:	MOV	-(R3),-(SP)
   2302	010710	077202 				SOB	R2,L32701
   2303	010712	012746 	000024 			MOV	#24,-(SP)
   2304	010716	004767 	000000G			JSR	PC,PP20
   2305						.GLOBL	PP20
   2306	010722	012703 	001554'			MOV	#$CONST+1554,R3
   2307	010726	012702 	000005 			MOV	#5,R2
   2308	010732	014346 			L32700:	MOV	-(R3),-(SP)
   2309	010734	077202 				SOB	R2,L32700
   2310	010736	012746 	000012 			MOV	#12,-(SP)
   2311	010742	004767 	000000G			JSR	PC,PP10
   2312						.GLOBL	PP10
   2313	010746	004767 	000000G			JSR	PC,PPLINE
   2314						.GLOBL	PPLINE
   2315	010752	005005 				CLR	R5
   2316	010754				L235:
   2317	010754				L242:
   2318	010754	005766 	000036 		L255:	TST	36(SP)
   2319	010760	001005 				BNE	L257
   2320	010762	016646 	000034 			MOV	34(SP),-(SP)
   2321	010766	004767 	175174 			JSR	PC,P46	;KILLNODE
   2322	010772	000560 				BR	L258
IAUX1B	MACRO M1113  10-MAR-83 00:57  PAGE 23-7


   2323
   2324	010774	005705 			L257:	TST	R5
   2325	010776	001442 				BEQ	L260
   2326	011000	016646 	000034 			MOV	34(SP),-(SP)
   2327	011004	004767 	175466 			JSR	PC,P48	;PUSH
   2328	011010	005766 	000040 			TST	40(SP)
   2329	011014	001002 				BNE	.+6
   2330	011016	004767 	000000G			JSR	PC,$B47
   2331	011022	016603 	000040 			MOV	40(SP),R3
   2332	011026	005002 				CLR	R2
   2333	011030	156302 	000006 			BISB	6(R3),R2
   2334	011034	020227 	000377 			CMP	R2,#377
   2335	011040	101402 				BLOS	.+6
   2336	011042	004767 	000000G			JSR	PC,$B45
   2337	011046	010246 				MOV	R2,-(SP)
   2338	011050	016603 	000042 			MOV	42(SP),R3
   2339	011054	005002 				CLR	R2
   2340	011056	156302 	000007 			BISB	7(R3),R2
   2341	011062	020227 	000377 			CMP	R2,#377
   2342	011066	101402 				BLOS	.+6
   2343	011070	004767 	000000G			JSR	PC,$B45
   2344	011074	010246 				MOV	R2,-(SP)
   2345	011076	004767 	000000G			JSR	PC,I1BSETVAL
   2346						.GLOBL	I1BSETVAL
   2347	011102	000504 				BR	L261
   2348
   2349	011104	012703 	001600'		L260:	MOV	#$CONST+1600,R3
   2350	011110	012702 	000012 			MOV	#12,R2
   2351	011114	014346 			L32699:	MOV	-(R3),-(SP)
   2352	011116	077202 				SOB	R2,L32699
   2353	011120	012746 	000024 			MOV	#24,-(SP)
   2354	011124	004767 	000000G			JSR	PC,PP20L
   2355						.GLOBL	PP20L
   2356	011130	012703 	001624'			MOV	#$CONST+1624,R3
   2357	011134	012702 	000012 			MOV	#12,R2
   2358	011140	014346 			L32698:	MOV	-(R3),-(SP)
   2359	011142	077202 				SOB	R2,L32698
   2360	011144	012746 	000024 			MOV	#24,-(SP)
   2361	011150	004767 	000000G			JSR	PC,PP20
   2362						.GLOBL	PP20
   2363	011154	012703 	001650'			MOV	#$CONST+1650,R3
   2364	011160	012702 	000012 			MOV	#12,R2
   2365	011164	014346 			L32697:	MOV	-(R3),-(SP)
   2366	011166	077202 				SOB	R2,L32697
   2367	011170	012746 	000020 			MOV	#20,-(SP)
   2368	011174	004767 	000000G			JSR	PC,PP20
   2369						.GLOBL	PP20
   2370	011200	004767 	000000G			JSR	PC,PPLINE
   2371						.GLOBL	PPLINE
   2372	011204	016646 	000034 			MOV	34(SP),-(SP)
   2373	011210	004767 	174752 			JSR	PC,P46	;KILLNODE
   2374	011214	005766 	000040 			TST	40(SP)
   2375	011220	001002 				BNE	.+6
   2376	011222	004767 	000000G			JSR	PC,$B47
   2377	011226	005746 				TST	-(SP)
   2378	011230	016603 	000042 			MOV	42(SP),R3
   2379	011234	005002 				CLR	R2
IAUX1B	MACRO M1113  10-MAR-83 00:57  PAGE 23-8


   2380	011236	156302 	000006 			BISB	6(R3),R2
   2381	011242	020227 	000377 			CMP	R2,#377
   2382	011246	101402 				BLOS	.+6
   2383	011250	004767 	000000G			JSR	PC,$B45
   2384	011254	010246 				MOV	R2,-(SP)
   2385	011256	016603 	000044 			MOV	44(SP),R3
   2386	011262	005002 				CLR	R2
   2387	011264	156302 	000007 			BISB	7(R3),R2
   2388	011270	020227 	000377 			CMP	R2,#377
   2389	011274	101402 				BLOS	.+6
   2390	011276	004767 	000000G			JSR	PC,$B45
   2391	011302	010246 				MOV	R2,-(SP)
   2392	011304	004767 	000000G			JSR	PC,I1BGETVAR
   2393						.GLOBL	I1BGETVAR
   2394	011310	012666 	000052 			MOV	(SP)+,52(SP)
   2395	011314	005766 	000036 		L261:	TST	36(SP)
   2396	011320	001002 				BNE	.+6
   2397	011322	004767 	000000G			JSR	PC,$B47
   2398	011326	017666 	000036 	000036 		MOV	@36(SP),36(SP)
   2399	011334	005216 			L258:	INC	@SP
   2400	011336	102402 				BVS	.+6
   2401	011340	000167 	176222 			JMP	L218
   2402	011344	022626 			L219:	CMP	(SP)+,(SP)+
   2403	011346	005766 	000032 			TST	32(SP)
   2404	011352	001542 				BEQ	L263
   2405	011354	012703 	001674'			MOV	#$CONST+1674,R3
   2406	011360	012702 	000012 			MOV	#12,R2
   2407	011364	014346 			L32696:	MOV	-(R3),-(SP)
   2408	011366	077202 				SOB	R2,L32696
   2409	011370	012746 	000024 			MOV	#24,-(SP)
   2410	011374	004767 	000000G			JSR	PC,PP20L
   2411						.GLOBL	PP20L
   2412	011400	012703 	001720'			MOV	#$CONST+1720,R3
   2413	011404	012702 	000012 			MOV	#12,R2
   2414	011410	014346 			L32695:	MOV	-(R3),-(SP)
   2415	011412	077202 				SOB	R2,L32695
   2416	011414	012746 	000024 			MOV	#24,-(SP)
   2417	011420	004767 	000000G			JSR	PC,PP20
   2418						.GLOBL	PP20
   2419	011424	162706 	000006 			SUB	#6,SP
   2420	011430	010603 				MOV	SP,R3
   2421	011432	012702 	001720'			MOV	#$CONST+1720,R2
   2422	011436	012701 	000005 			MOV	#5,R1
   2423	011442	112223 			L32694:	MOVB	(R2)+,(R3)+
   2424	011444	077102 				SOB	R1,L32694
   2425	011446	012746 	000004 			MOV	#4,-(SP)
   2426	011452	004767 	000000G			JSR	PC,PP5
   2427						.GLOBL	PP5
   2428	011456	004767 	000000G			JSR	PC,PPLINE
   2429						.GLOBL	PPLINE
   2430	011462	005766 	000032 		L264:	TST	32(SP)
   2431	011466	001474 				BEQ	L266
   2432	011470	005766 	000032 			TST	32(SP)
   2433	011474	001002 				BNE	.+6
   2434	011476	004767 	000000G			JSR	PC,$B47
   2435	011502	016603 	000032 			MOV	32(SP),R3
   2436	011506	005763 	000004 			TST	4(R3)
IAUX1B	MACRO M1113  10-MAR-83 00:57  PAGE 23-9


   2437	011512	001002 				BNE	.+6
   2438	011514	004767 	000000G			JSR	PC,$B47
   2439	011520	016302 	000004 			MOV	4(R3),R2
   2440	011524	126227 	000002 	000001 		CMPB	2(R2),#1
   2441	011532	001447 				BEQ	L268
   2442	011534	005762 	000004 			TST	4(R2)
   2443	011540	001002 				BNE	.+6
   2444	011542	004767 	000000G			JSR	PC,$B47
   2445	011546	016202 	000004 			MOV	4(R2),R2
   2446	011552	005762 	000004 			TST	4(R2)
   2447	011556	001002 				BNE	.+6
   2448	011560	004767 	000000G			JSR	PC,$B47
   2449	011564	005746 				TST	-(SP)
   2450	011566	016201 	000004 			MOV	4(R2),R1
   2451	011572	005000 				CLR	R0
   2452	011574	156100 	000006 			BISB	6(R1),R0
   2453	011600	020027 	000377 			CMP	R0,#377
   2454	011604	101402 				BLOS	.+6
   2455	011606	004767 	000000G			JSR	PC,$B45
   2456	011612	010046 				MOV	R0,-(SP)
   2457	011614	016202 	000004 			MOV	4(R2),R2
   2458	011620	005001 				CLR	R1
   2459	011622	156201 	000007 			BISB	7(R2),R1
   2460	011626	020127 	000377 			CMP	R1,#377
   2461	011632	101402 				BLOS	.+6
   2462	011634	004767 	000000G			JSR	PC,$B45
   2463	011640	010146 				MOV	R1,-(SP)
   2464	011642	004767 	000000G			JSR	PC,I1BGETVAR
   2465						.GLOBL	I1BGETVAR
   2466	011646	012666 	000046 			MOV	(SP)+,46(SP)
   2467	011652	011366 	000032 		L268:	MOV	@R3,32(SP)
   2468	011656	000701 				BR	L264
   2469
   2470	011660				L263:
   2471	011660	016637 	000026 	005562'	L266:	MOV	26(SP),@#$G$+5562
   2472	011666	000440 				BR	L269
   2473
   2474	011670	121327 	000013 		L217:	CMPB	@R3,#13
   2475	011674	001435 				BEQ	L271
   2476	011676	012702 	001752'			MOV	#$CONST+1752,R2
   2477	011702	012701 	000012 			MOV	#12,R1
   2478	011706	014246 			L32693:	MOV	-(R2),-(SP)
   2479	011710	077102 				SOB	R1,L32693
   2480	011712	012746 	000024 			MOV	#24,-(SP)
   2481	011716	004767 	000000G			JSR	PC,PP20
   2482						.GLOBL	PP20
   2483	011722	162706 	000006 			SUB	#6,SP
   2484	011726	010602 				MOV	SP,R2
   2485	011730	012701 	001752'			MOV	#$CONST+1752,R1
   2486	011734	012700 	000005 			MOV	#5,R0
   2487	011740	112122 			L32692:	MOVB	(R1)+,(R2)+
   2488	011742	077002 				SOB	R0,L32692
   2489	011744	012746 	000005 			MOV	#5,-(SP)
   2490	011750	004767 	000000G			JSR	PC,PP5
   2491						.GLOBL	PP5
   2492	011754	111303 				MOVB	@R3,R3
   2493	011756	010346 				MOV	R3,-(SP)
IAUX1B	MACRO M1113  10-MAR-83 00:57  PAGE 23-10


   2494	011760	004767 	000000G			JSR	PC,PPINT
   2495						.GLOBL	PPINT
   2496	011764	004767 	000000G			JSR	PC,PPLINE
   2497						.GLOBL	PPLINE
   2498	011770				L215:
   2499	011770				L269:
   2500	011770	005726 			L271:	TST	(SP)+
   2501	011772				L202:
   2502	011772	005726 			L204:	TST	(SP)+
   2503	011774	172426 				LDF	(SP)+,AC0
   2504	011776	004767 	000000G			JSR	PC,$B77
   2505	012002	062706 	000024 			ADD	#24,SP
   2506	012006	000207 				RTS	PC
IAUX1B	MACRO M1113  10-MAR-83 00:57  PAGE 24


   2508					.GLOBL	SWAP
   2509	012010				SWAP:
   2510	012010	162706 	000010 			SUB	#10,SP
   2511	012014	004767 	000000G			JSR	PC,$B75
   2512	012020	004767 	000000G			JSR	PC,$B127
   2513	012024	012700 	005562'			MOV	#$G$+5562,R0
   2514	012030	005766 	000026 			TST	26(SP)
   2515	012034	001017 				BNE	L273
   2516	012036	013710 	005564'			MOV	@#$G$+5564,@R0
   2517	012042	001412 				BEQ	L275
   2518	012044	005737 	005564'			TST	@#$G$+5564
   2519	012050	001002 				BNE	.+6
   2520	012052	004767 	000000G			JSR	PC,$B47
   2521	012056	013703 	005564'			MOV	@#$G$+5564,R3
   2522	012062	016337 	000002 	005564'		MOV	2(R3),@#$G$+5564
   2523	012070	000167 	000516 		L275:	JMP	L276
   2524
   2525	012074	005766 	000026 		L273:	TST	26(SP)
   2526	012100	001002 				BNE	.+6
   2527	012102	004767 	000000G			JSR	PC,$B47
   2528	012106	016603 	000026 			MOV	26(SP),R3
   2529	012112	116302 	000007 			MOVB	7(R3),R2
   2530	012116	042702 	177760 			BIC	#177760,R2
   2531	012122	020227 	000002 			CMP	R2,#2
   2532	012126	001043 				BNE	L278
   2533	012130	023766 	005564'	000026 		CMP	@#$G$+5564,26(SP)
   2534	012136	001003 				BNE	L280
   2535	012140	016337 	000002 	005564'		MOV	2(R3),@#$G$+5564
   2536	012146	013705 	005564'		L280:	MOV	@#$G$+5564,R5
   2537	012152	005705 			L281:	TST	R5
   2538	012154	001002 				BNE	.+6
   2539	012156	004767 	000000G			JSR	PC,$B47
   2540	012162	005765 	000002 			TST	2(R5)
   2541	012166	001422 				BEQ	L283
   2542	012170	026566 	000002 	000026 		CMP	2(R5),26(SP)
   2543	012176	001013 				BNE	L285
   2544	012200	005766 	000026 			TST	26(SP)
   2545	012204	001002 				BNE	.+6
   2546	012206	004767 	000000G			JSR	PC,$B47
   2547	012212	016602 	000026 			MOV	26(SP),R2
   2548	012216	016265 	000002 	000002 		MOV	2(R2),2(R5)
   2549	012224	000402 				BR	L286
   2550
   2551	012226	016505 	000002 		L285:	MOV	2(R5),R5
   2552	012232	000747 			L286:	BR	L281
   2553
   2554	012234	000530 			L283:	BR	L287
   2555
   2556	012236	020227 	000005 		L278:	CMP	R2,#5
   2557	012242	001005 				BNE	L289
   2558	012244	016646 	000026 			MOV	26(SP),-(SP)
   2559	012250	004767 	173076 			JSR	PC,DECLKQUEUE
   2560						.GLOBL	DECLKQUEUE
   2561	012254	000520 				BR	L290
   2562
   2563	012256	020227 	000004 		L289:	CMP	R2,#4
   2564	012262	001115 				BNE	L292
IAUX1B	MACRO M1113  10-MAR-83 00:57  PAGE 24-1


   2565	012264	013766 	005576'	000022 		MOV	@#$G$+5576,22(SP)
   2566	012272	012704 	000001 			MOV	#1,R4
   2567	012276	005704 			L293:	TST	R4
   2568	012300	001506 				BEQ	L295
   2569	012302	005766 	000022 			TST	22(SP)
   2570	012306	001503 				BEQ	L295
   2571	012310	005766 	000022 			TST	22(SP)
   2572	012314	001002 				BNE	.+6
   2573	012316	004767 	000000G			JSR	PC,$B47
   2574	012322	016602 	000022 			MOV	22(SP),R2
   2575	012326	026266 	000004 	000026 		CMP	4(R2),26(SP)
   2576	012334	001014 				BNE	L298
   2577	012336	005766 	000026 			TST	26(SP)
   2578	012342	001002 				BNE	.+6
   2579	012344	004767 	000000G			JSR	PC,$B47
   2580	012350	016601 	000026 			MOV	26(SP),R1
   2581	012354	016162 	000002 	000004 		MOV	2(R1),4(R2)
   2582	012362	005004 				CLR	R4
   2583	012364	000441 				BR	L299
   2584
   2585	012366	016205 	000004 		L298:	MOV	4(R2),R5
   2586	012372	005704 			L300:	TST	R4
   2587	012374	001435 				BEQ	L302
   2588	012376	005705 				TST	R5
   2589	012400	001433 				BEQ	L302
   2590	012402	005705 				TST	R5
   2591	012404	001002 				BNE	.+6
   2592	012406	004767 	000000G			JSR	PC,$B47
   2593	012412	026566 	000002 	000026 		CMP	2(R5),26(SP)
   2594	012420	001014 				BNE	L305
   2595	012422	005766 	000026 			TST	26(SP)
   2596	012426	001002 				BNE	.+6
   2597	012430	004767 	000000G			JSR	PC,$B47
   2598	012434	016602 	000026 			MOV	26(SP),R2
   2599	012440	016265 	000002 	000002 		MOV	2(R2),2(R5)
   2600	012446	005004 				CLR	R4
   2601	012450	000406 				BR	L306
   2602
   2603	012452	005705 			L305:	TST	R5
   2604	012454	001002 				BNE	.+6
   2605	012456	004767 	000000G			JSR	PC,$B47
   2606	012462	016505 	000002 			MOV	2(R5),R5
   2607	012466	000741 			L306:	BR	L300
   2608
   2609	012470				L299:
   2610	012470	005704 			L302:	TST	R4
   2611	012472	001404 				BEQ	L308
   2612	012474	017666 	000022 	000022 		MOV	@22(SP),22(SP)
   2613	012502	000404 				BR	L309
   2614
   2615	012504	016602 	000022 		L308:	MOV	22(SP),R2
   2616	012510	005262 	000002 			INC	2(R2)
   2617	012514	000670 			L309:	BR	L293
   2618
   2619	012516				L287:
   2620	012516				L290:
   2621	012516				L292:
IAUX1B	MACRO M1113  10-MAR-83 00:57  PAGE 24-2


   2622	012516	026610 	000026 		L295:	CMP	26(SP),@R0
   2623	012522	001422 				BEQ	L311
   2624	012524	005710 				TST	@R0
   2625	012526	001420 				BEQ	L311
   2626	012530	005710 				TST	@R0
   2627	012532	001002 				BNE	.+6
   2628	012534	004767 	000000G			JSR	PC,$B47
   2629	012540	011002 				MOV	@R0,R2
   2630	012542	142762 	000017 	000007 		BICB	#17,7(R2)
   2631	012550	152762 	000002 	000007 		BISB	#2,7(R2)
   2632	012556	012746 	005564'			MOV	#$G$+5564,-(SP)
   2633	012562	011046 				MOV	@R0,-(SP)
   2634	012564	004767 	171324 			JSR	PC,ADDPDB
   2635						.GLOBL	ADDPDB
   2636	012570	016610 	000026 		L311:	MOV	26(SP),@R0
   2637	012574	001002 				BNE	.+6
   2638	012576	004767 	000000G			JSR	PC,$B47
   2639	012602	016602 	000026 			MOV	26(SP),R2
   2640	012606	005062 	000002 			CLR	2(R2)
   2641	012612	005710 			L276:	TST	@R0
   2642	012614	001415 				BEQ	L314
   2643	012616	005710 				TST	@R0
   2644	012620	001002 				BNE	.+6
   2645	012622	004767 	000000G			JSR	PC,$B47
   2646	012626	011002 				MOV	@R0,R2
   2647	012630	142762 	000017 	000007 		BICB	#17,7(R2)
   2648	012636	152762 	000001 	000007 		BISB	#1,7(R2)
   2649	012644	005062 	000002 			CLR	2(R2)
   2650	012650	004767 	000000G		L314:	JSR	PC,$B77
   2651	012654	062706 	000010 			ADD	#10,SP
   2652	012660	012616 				MOV	(SP)+,@SP
   2653	012662	000207 				RTS	PC
IAUX1B	MACRO M1113  10-MAR-83 00:57  PAGE 25


   2655		000001 				.END
IAUX1B	MACRO M1113  10-MAR-83 00:57  PAGE 25-1
SYMBOL TABLE

AC0   =%000000   	L16     000734R  	L239    010210R  	L32690  007332R  	L32747  003140R
AC1   =%000001   	L160    005740R  	L241    010210R  	L32691  007714R  	L32748  003120R
AC2   =%000002   	L161    005756R  	L242    010754R  	L32692  011740R  	L32749  003064R
AC3   =%000003   	L163    006044R  	L244    010652R  	L32693  011706R  	L32750  003036R
AC4   =%000004   	L164    006140R  	L245    010264R  	L32694  011442R  	L32751  003016R
AC5   =%000005   	L165    006050R  	L246    010420R  	L32695  011410R  	L32752  002772R
ADDPDB  004114RG 	L166    006106R  	L247    010420R  	L32696  011364R  	L32753  002716R
BADJOI  002412RG 	L168    006074R  	L249    010436R  	L32697  011164R  	L32754  002670R
CLRTIM= ****** G 	L169    006076R  	L25     001350R  	L32698  011140R  	L32755  002626R
DECLKQ  005352RG 	L17     001102R  	L250    010572R  	L32699  011114R  	L32756  002446R
GETTIM= ****** G 	L172    006140R  	L252    010650R  	L32700  010732R  	L32757  002362R
IAUX1B  000000RG 	L174    006154R  	L254    010650R  	L32701  010706R  	L32758  002306R
I1BGET= ****** G 	L176    006332R  	L255    010754R  	L32702  010662R  	L32759  002042R
I1BPPR= ****** G 	L177    006332R  	L257    010774R  	L32703  007100R  	L32760  000730R
I1BSET= ****** G 	L178    006332R  	L258    011334R  	L32704  007062R  	L32761  000630R
I1BTAX= ****** G 	L179    006250R  	L26     001350R  	L32705  007040R  	L32762  000526R
I1BTMA= ****** G 	L18     001122R  	L260    011104R  	L32706  007022R  	L32763  000430R
L10     000424R  	L180    006302R  	L261    011314R  	L32707  007004R  	L32764  000316R
L100    004430R  	L182    006300R  	L263    011660R  	L32708  006762R  	L32765  000220R
L102    004256R  	L184    006332R  	L264    011462R  	L32709  006734R  	L32766  000054R
L103    004430R  	L186    006456R  	L266    011660R  	L32710  006666R  	L33     001350R
L104    004266R  	L188    006472R  	L268    011652R  	L32711  006640R  	L34     001404R
L106    004376R  	L190    007150R  	L269    011770R  	L32712  002642R  	L36     001630R
L109    004372R  	L192    006656R  	L27     001350R  	L32713  003356R  	L38     001620R
L11     000434R  	L193    006702R  	L271    011770R  	L32714  003042R  	L39     001602R
L110    004374R  	L194    007070R  	L273    012074R  	L32715  003144R  	L4      000126R
L112    004674R  	L195    007114R  	L275    012070R  	L32716  003204R  	L40     001602R
L114    004656R  	L196    006724R  	L276    012612R  	L32717  003046R  	L41     001522R
L115    004574R  	L197    006752R  	L278    012236R  	L32718  003352R  	L42     001542R
L118    004642R  	L198    006774R  	L28     001266R  	L32719  003000R  	L43     001554R
L119    004650R  	L199    007012R  	L280    012146R  	L32720  004050R  	L44     001566R
L12     000650R  	L200    007030R  	L281    012152R  	L32721  004026R  	L46     001620R
L120    004670R  	L201    007052R  	L283    012234R  	L32722  004006R  	L48     001710R
L121    004674R  	L202    011772R  	L285    012226R  	L32723  003770R  	L50     001760R
L123    005042R  	L204    011772R  	L286    012232R  	L32724  003742R  	L52     002060R
L125    004754R  	L206    007274R  	L287    012516R  	L32725  003720R  	L53     002370R
L126    005040R  	L207    007340R  	L289    012256R  	L32726  003700R  	L55     002146R
L128    005034R  	L209    007340R  	L29     001320R  	L32727  003662R  	L56     002370R
L13     000744R  	L21     001166R  	L290    012516R  	L32728  003642R  	L57     002236R
L130    005032R  	L211    007474R  	L292    012516R  	L32729  003624R  	L59     002370R
L131    005040R  	L213    007422R  	L293    012276R  	L32730  003604R  	L6      000242R
L133    005300R  	L214    007444R  	L295    012516R  	L32731  003566R  	L61     002356R
L135    005202R  	L215    011770R  	L298    012366R  	L32732  003550R  	L62     002366R
L136    005234R  	L217    011670R  	L299    012470R  	L32733  003522R  	L64     002552R
L138    005300R  	L218    007566R  	L3      000106R  	L32734  003502R  	L65     002464R
L139    005406R  	L219    011344R  	L300    012372R  	L32735  003462R  	L67     002546R
L141    005760R  	L220    007600R  	L302    012470R  	L32736  003434R  	L69     002524R
L143    005440R  	L223    007624R  	L305    012452R  	L32737  003414R  	L7      000350R
L145    005504R  	L225    007722R  	L306    012466R  	L32738  003374R  	L71     002524R
L148    005742R  	L227    007676R  	L308    012504R  	L32739  003346R  	L73     002652R
L15     000724R  	L228    007722R  	L309    012514R  	L32740  003320R  	L74     004102R
L150    005704R  	L23     001166R  	L31     001316R  	L32741  003300R  	L76     002734R
L152    005702R  	L230    010054R  	L311    012570R  	L32742  003260R  	L77     004102R
L154    005606R  	L232    010050R  	L314    012650R  	L32743  003240R  	L78     004042R
L155    005650R  	L234    010050R  	L32687  006766R  	L32744  003220R  	L79     004072R
L157    005650R  	L235    010754R  	L32688  006744R  	L32745  003200R  	L8      000444R
L159    005674R  	L237    010214R  	L32689  006740R  	L32746  003160R  	L80     002764R
IAUX1B	MACRO M1113  10-MAR-83 00:57  PAGE 25-2
SYMBOL TABLE

L81     003010R  	L96     003734R  	PP10  = ****** G 	P45     005774R  	$B36  = ****** G
L82     003030R  	L97     004000R  	PP10L = ****** G 	P46     006166R  	$B43  = ****** G
L83     003056R  	L99     004164R  	PP20  = ****** G 	P47     006352R  	$B45  = ****** G
L84     003112R  	MARKTI= ****** G 	PP20L = ****** G 	P48     006476R  	$B47  = ****** G
L85     003132R  	MSGDIS  006556RG 	PP5   = ****** G 	RCVMSG= ****** G 	$B62  = ****** G
L86     003152R  	NEWNOD= ****** G 	PRNTPL  001370RG 	RELEVE= ****** G 	$B75  = ****** G
L87     003172R  	NEWTRA= ****** G 	PRNTST  001000RG 	RELNOD= ****** G 	$B77  = ****** G
L88     003212R  	NEWVEC= ****** G 	PRNTSV  000134RG 	RELTRA= ****** G 	$CODE   000000R
L89     003272R  	ONUM    001730RG 	PRNTTR  000464RG 	RELVEC= ****** G 	$CONST  000000R     004
L90     003366R  	PPARME  002564RG 	PRNTVA  002006RG 	SLEEP   004446RG 	$FILE = ****** G
L91     003474R  	PPCHAR= ****** G 	PRNTVE  000272RG 	SWAP    012010RG 	$G$     000000R     002
L92     003560R  	PPINT = ****** G 	P28     000006R  	$BITS   000000R     003	$RESR5= ****** G
L93     003576R  	PPLINE= ****** G 	P34     001032R  	$B127 = ****** G 	$RESR6= ****** G
L94     003634R  	PPOUTN= ****** G 	P35     001204R  	$B24  = ****** G 	$VER  = 000014 G
L95     003672R  	PPSTRN= ****** G 	P37     001644R  	$B32  = ****** G

. ABS.	000000	   000
      	012664	   001
GLOBAL	005644	   002
TABLES	000050	   003
CONSTS	002106	   004
ERRORS DETECTED:  0

VIRTUAL MEMORY USED:  1872 WORDS  ( 8 PAGES)
DYNAMIC MEMORY:  20238 WORDS  ( 77 PAGES)
ELAPSED TIME:  00:00:58
IAUX1B,IAUX1B=IAUX1B