perm filename IAUX1B.LST[EAL,HE] blob
sn#712028 filedate 1983-05-26 generic text, type T, neo UTF8
IAUX1B MACRO M1113 26-MAY-83 12:15 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 005660' $G$: .=.+5660
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 26-MAY-83 12:15 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 26-MAY-83 12:15 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 26-MAY-83 12:15 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 26-MAY-83 12:15 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 26-MAY-83 12:15 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 26-MAY-83 12:15 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 26-MAY-83 12:15 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 26-MAY-83 12:15 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 26-MAY-83 12:15 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 26-MAY-83 12:15 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 26-MAY-83 12:15 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 005576' TST @#$G$+5576
562 000022 001002 BNE .+6
563 000024 004767 000000G JSR PC,$B47
564 .GLOBL $B47
565 000030 013703 005576' MOV @#$G$+5576,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 26-MAY-83 12:15 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 26-MAY-83 12:15 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 26-MAY-83 12:15 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 26-MAY-83 12:15 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 26-MAY-83 12:15 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 26-MAY-83 12:15 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 26-MAY-83 12:15 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 26-MAY-83 12:15 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 26-MAY-83 12:15 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 26-MAY-83 12:15 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 26-MAY-83 12:15 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 26-MAY-83 12:15 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 26-MAY-83 12:15 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 26-MAY-83 12:15 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 26-MAY-83 12:15 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 26-MAY-83 12:15 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 26-MAY-83 12:15 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 26-MAY-83 12:15 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 26-MAY-83 12:15 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 26-MAY-83 12:15 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 26-MAY-83 12:15 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 26-MAY-83 12:15 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 26-MAY-83 12:15 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 005576' MOV #$G$+5576,R0
1527 004466 012701 005616' MOV #$G$+5616,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 005610' 000020 MOV @#$G$+5610,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 005620' TST @#$G$+5620
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 26-MAY-83 12:15 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 005610' 000014 MOV @#$G$+5610,@14(SP)
1630 005142 016637 000014 005610' MOV 14(SP),@#$G$+5610
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 26-MAY-83 12:15 PAGE 17-2
1635 .GLOBL GETTIME
1636 005162 016646 000036 MOV 36(SP),-(SP)
1637 005166 010146 MOV R1,-(SP)
1638 005170 012746 005620' MOV #$G$+5620,-(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 005626' MOVB #1,@#$G$+5626
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 26-MAY-83 12:15 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 005610' MOV #$G$+5610,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 26-MAY-83 12:15 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 005616' MOV #$G$+5616,-(SP)
1736 005640 012746 005620' MOV #$G$+5620,-(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 26-MAY-83 12:15 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 005612' MOV #$G$+5612,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 26-MAY-83 12:15 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 26-MAY-83 12:15 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 26-MAY-83 12:15 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 005576' TST @#$G$+5576
1915 006522 001002 BNE .+6
1916 006524 004767 000000G JSR PC,$B47
1917 006530 013703 005576' MOV @#$G$+5576,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 26-MAY-83 12:15 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 005622' TST @#$G$+5622
1931 006600 001002 BNE .+6
1932 006602 004767 000000G JSR PC,$B47
1933 006606 013703 005622' MOV @#$G$+5622,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 26-MAY-83 12:15 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 26-MAY-83 12:15 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 005600' MOV #$G$+5600,-(SP)
2046 007256 010146 MOV R1,-(SP)
2047 007260 004767 174630 JSR PC,ADDPDB
2048 .GLOBL ADDPDB
2049 007264 005737 005576' TST @#$G$+5576
2050 007270 001001 BNE L206
2051 007272 000417 BR L32690
2052
2053 007274 005737 005576' L206: TST @#$G$+5576
2054 007300 001002 BNE .+6
2055 007302 004767 000000G JSR PC,$B47
2056 007306 013702 005576' MOV @#$G$+5576,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 005626' L32690: MOVB #1,@#$G$+5626
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 26-MAY-83 12:15 PAGE 23-3
2095 007502 000167 002162 JMP L217
2096 007506 013766 005576' 000026 MOV @#$G$+5576,26(SP)
2097 007514 016637 000024 005576' MOV 24(SP),@#$G$+5576
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 26-MAY-83 12:15 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 26-MAY-83 12:15 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 26-MAY-83 12:15 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 26-MAY-83 12:15 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 26-MAY-83 12:15 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 26-MAY-83 12:15 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 005576' L266: MOV 26(SP),@#$G$+5576
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 26-MAY-83 12:15 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 26-MAY-83 12:15 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 005576' MOV #$G$+5576,R0
2514 012030 005766 000026 TST 26(SP)
2515 012034 001017 BNE L273
2516 012036 013710 005600' MOV @#$G$+5600,@R0
2517 012042 001412 BEQ L275
2518 012044 005737 005600' TST @#$G$+5600
2519 012050 001002 BNE .+6
2520 012052 004767 000000G JSR PC,$B47
2521 012056 013703 005600' MOV @#$G$+5600,R3
2522 012062 016337 000002 005600' MOV 2(R3),@#$G$+5600
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 005600' 000026 CMP @#$G$+5600,26(SP)
2534 012136 001003 BNE L280
2535 012140 016337 000002 005600' MOV 2(R3),@#$G$+5600
2536 012146 013705 005600' L280: MOV @#$G$+5600,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 26-MAY-83 12:15 PAGE 24-1
2565 012264 013766 005612' 000022 MOV @#$G$+5612,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 26-MAY-83 12:15 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 005600' MOV #$G$+5600,-(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 26-MAY-83 12:15 PAGE 25
2655 000001 .END
IAUX1B MACRO M1113 26-MAY-83 12:15 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 26-MAY-83 12:15 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 005660 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:57
IAUX1B,IAUX1B=IAUX1B