1 <DEFINE MERGE-STATE (STATV)
2 #DECL ((STATV) SAVED-STATE)
5 "AUX" (AC <1 .STATV>) (DATS <REST .STATV 2>)
6 (STATAC <ACRESIDUE .AC>) (NINACS ()) (NRES ()))
7 #DECL ((STATV) <LIST AC ANY [REST <LIST SYMBOL ANY>]>
8 (AC) AC (DATS) <LIST [REST <LIST SYMBOL ANY>]>
9 (STATAC) <OR FALSE <LIST [REST SYMBOL]>>
10 (NRES) <LIST [REST SYMBOL]>
11 (NINACS) <LIST [REST <LIST SYMBOL ANY>]>)
14 "AUX" (SYMT <1 .ACX>) (INAC <2 .ACX>) (OINAC <SINACS .SYMT>)
16 #DECL ((ACX) <LIST SYMBOL ANY>
18 (INAC OINAC) <PRIMTYPE LIST>)
19 <COND (<TYPE? .SYMT SYMTAB>
23 <GET-STORED .SYMT <3 .ACX> <4 .ACX>>>)>
24 <COND (<AND <SS-POTENT-SLOT .ACX> <NOT <PROG-AC .SYMT>>>
27 (<AND <MEMQ .SYMT .STATAC>
31 <==? <DATVAL .INAC> <DATVAL .OINAC>>
32 <OR <==? <DATTYP .INAC> <DATTYP .OINAC>>
33 <AND <TYPE? .SYMT SYMTAB>
35 <ISTYPE? <1 <CHTYPE <DECL-SYM .SYMT>
37 <OR <==? <DATTYP .INAC> .TEM>
38 <==? <DATTYP .OINAC> .TEM>>>>>
39 <SET NRES (.SYMT !.NRES)>
41 ((.SYMT <DATUM <OR .TEM <DATTYP .INAC>> <DATVAL .INAC>>)
44 <OR <TYPE? <SET TEM <DATTYP .INAC>> AC>
45 <TYPE? <SET TEM <DATTYP .OINAC>> AC>>>
46 <FLUSH-RESIDUE .TEM .SYMT>)>)>
48 <OR <==? .AC <DATTYP .OINAC>>
49 <==? .AC <DATVAL .OINAC>>>>
50 <SMASH-INACS .SYMT <> <>>)>>
55 <SMASH-INACS .SYMT <> <>>>
57 <PUT .AC ,ACRESIDUE <COND (<NOT <EMPTY? .NRES>> .NRES)>>
59 <FUNCTION (SYMB "AUX" (SYMT <1 .SYMB>) (ELEIN <2 .SYMB>))
61 <SMASH-INACS .SYMT .ELEIN>>
67 <DECLARE ("VALUE" <OR COMMON!-COMPDEC!-PACKAGE FALSE
68 SYMTAB!-COMPDEC!-PACKAGE TEMP!-COMPDEC!-PACKAGE> SAVED-STATE!-COMPDEC!-PACKAGE)>
73 TAG1 <SUBM M* (P) > ; 4
74 <PUSH TP* <MQUOTE %<TYPE-W SAVED-STATE!-COMPDEC!-PACKAGE LIST>>>; [2]
77 <MOVE B* (TP) -2> ; (1)
78 <MOVEM B* (TP) > ; (3)
79 <MOVE A* <TYPE-WORD FALSE>>
83 TAG25 <PUSH TP* [0]> ; 15 [4]
86 <PUSH TP* <MQUOTE %<TYPE-W AC!-COMPDEC!-PACKAGE VECTOR>>>; [6]
87 <PUSH TP* (PVP) 1> ; [7]
90 <PUSH TP* <TYPE-WORD LIST>> ; [8]
92 <MOVE SP* (TP) -2> ; (7)
93 <PUSH TP* (SP) 14> ; [10]
94 <PUSH TP* (SP) 15> ; [11]
95 <PUSH TP* <TYPE-WORD LIST>> ; [12]
97 <PUSH TP* <TYPE-WORD LIST>> ; [14]
101 <MOVE B* (TP) -6> ; (9)
102 <MOVEM D* (TP) -12> ; (3)
104 TAG17 <PUSH TP* <TYPE-WORD LIST>> ; 36 [16]
105 <PUSH TP* [0]> ; [17]
106 <PUSH TP* [0]> ; [18]
107 <PUSH TP* [0]> ; [19]
109 <PUSH TP* (E) > ; [20]
110 <PUSH TP* (E) 1> ; [21]
112 <PUSH TP* (TVP) > ; [22]
113 <PUSH TP* (TVP) 1> ; [23]
114 <PUSH TP* (TP) -3> ; (20) [24]
115 <PUSH TP* (TP) -3> ; (21) [25]
116 <MOVE O* <TYPE-WORD LIST>>
117 <MOVEM O* (TP) -21> ; (4)
118 <MOVEM B* (TP) -20> ; (5)
119 <MOVEM E* (TP) -8> ; (17)
123 <PUSH TP* <TYPE-WORD FALSE>> ; [26]
124 <PUSH TP* [0]> ; [27]
125 <PUSH TP* <MQUOTE T> -1> ; [28]
126 <PUSH TP* <MQUOTE T>> ; [29]
128 <GETYP O* (TP) -9> ; (20)
129 <CAIE O* <MQUOTE %<TYPE-C SYMTAB!-COMPDEC!-PACKAGE VECTOR>>>
131 <MOVE B* (TP) -8> ; (21)
134 <PUSH TP* <MQUOTE %<TYPE-W SYMTAB!-COMPDEC!-PACKAGE VECTOR>>>; [30]
136 <MOVE D* (TP) -14> ; (17)
142 <PUSH TP* (PVP) > ; [32]
143 <PUSH TP* (PVP) 1> ; [33]
145 TAG7 <JUMPE D* |CERR2 > ; 78
149 <PUSH TP* (D) > ; [34]
150 <PUSH TP* (D) 1> ; [35]
151 <MOVE O* <MQUOTE %<TYPE-W SYMTAB!-COMPDEC!-PACKAGE VECTOR>>>
152 <MOVEM O* (TP) -17> ; (18)
153 <MOVEM B* (TP) -16> ; (19)
155 <MOVE D* (TP) -10> ; (19)
158 TAG6 <MOVE B* (TP) -12> ; 91 (17)
160 TAG8 <JUMPE B* |CERR2 > ; 93
165 <CAIN O* <TYPE-CODE DEFER>>
168 <CAIN O* <TYPE-CODE FALSE>>
170 <MOVE B* (TP) -8> ; (21)
172 <CAIE O* <TYPE-CODE FALSE>>
174 <MOVE B* <TYPE-WORD FALSE>>
176 <MOVEM B* (TP) -1> ; (28)
177 <MOVEM D* (TP) > ; (29)
178 TAG5 <MOVE B* (TP) -18> ; 111 (11)
179 <MOVE D* (TP) -8> ; (21)
180 <GETYP PVP* (TP) -9> ; (20)
182 TAG11 <GETYP O* (B) 0> ; 115
190 TAG10 <GETYP O* (TP) -5> ; 123 (24)
191 <CAIN O* <TYPE-CODE FALSE>>
193 <GETYP O* (TP) -7> ; (22)
194 <CAIE O* <TYPE-CODE FALSE>>
197 <MOVE B* (TP) -6> ; (23)
201 <MOVE D* (TP) -4> ; (25)
216 <GETYP O* (TP) -9> ; (20)
217 <CAIE O* <MQUOTE %<TYPE-C SYMTAB!-COMPDEC!-PACKAGE VECTOR>>>
219 <MOVE A* (TP) -8> ; (21)
223 <CAIN O* <TYPE-CODE DEFER>>
225 <PUSH TP* (SP) > ; [30]
226 <PUSH TP* (SP) 1> ; [31]
228 <MOVEM A* (TP) -3> ; (26)
229 <MOVEM B* (TP) -2> ; (27)
231 <CAIN O* <TYPE-CODE FALSE>>
233 <MOVE D* (TP) -6> ; (23)
242 <MOVE C* (TP) -4> ; (25)
250 TAG12 <MOVE E* (TP) -14> ; 183 (15)
251 <MOVE C* (TP) -9> ; (20)
252 <MOVE D* (TP) -8> ; (21)
254 <MOVE C* (TP) -9> ; (20)
255 <MOVE D* (TP) -8> ; (21)
257 <MOVEM B* (TP) -14> ; (15)
259 <MOVEM B* (TP) -12> ; (17)
260 <MOVE O* <TYPE-WORD LIST>>
261 <MOVEM O* (TP) -11> ; (18)
262 <MOVEM B* (TP) -10> ; (19)
263 <MOVE D* (TP) -3> ; (26)
264 <MOVE PVP* (TP) -2> ; (27)
266 <CAIE O* <TYPE-CODE FALSE>>
268 <MOVE TVP* (TP) -6> ; (23)
271 TAG13 <PUSH TP* D> ; 204 [30]
272 <PUSH TP* PVP> ; [31]
273 <MOVE D* (TP) -8> ; (23)
275 <PUSH TP* (PVP) > ; [32]
276 <PUSH TP* (PVP) 1> ; [33]
282 <HRRM B* @ (TP) -10> ; (19)
283 <MOVEM B* (TP) -10> ; (19)
284 <MOVE C* <TYPE-WORD LIST>>
285 <MOVE D* (TP) -12> ; (17)
288 <MOVEM B* (TP) -12> ; (17)
289 <MOVE D* (TP) -16> ; (13)
291 <MOVE B* (TP) -12> ; (17)
292 <MOVEM B* (TP) -16> ; (13)
293 <GETYP O* (TP) -3> ; (26)
294 <CAIN O* <TYPE-CODE FALSE>>
296 <MOVE D* (TP) -6> ; (23)
299 <MOVEM PVP* (TP) -3> ; (26)
300 <MOVEM TVP* (TP) -2> ; (27)
302 <CAIN O* <MQUOTE %<TYPE-C AC!-COMPDEC!-PACKAGE VECTOR>>>
304 <MOVE D* (TP) -4> ; (25)
307 <MOVEM C* (TP) -3> ; (26)
308 <MOVEM E* (TP) -2> ; (27)
310 <CAIE O* <MQUOTE %<TYPE-C AC!-COMPDEC!-PACKAGE VECTOR>>>
312 TAG14 <PUSH TP* (TP) -3> ; 245 (26) [30]
313 <PUSH TP* (TP) -3> ; (27) [31]
314 <PUSH TP* (TP) -11> ; (20) [32]
315 <PUSH TP* (TP) -11> ; (21) [33]
316 <MCALL 2 FLUSH-RESIDUE>
317 TAG9 <GETYP O* (TP) -5> ; 250 (24)
318 <CAIN O* <TYPE-CODE FALSE>>
320 <MOVE B* (TP) -4> ; (25)
324 <CAMN PVP* (TP) -22> ; (7)
325 <CAIE O* <MQUOTE %<TYPE-C AC!-COMPDEC!-PACKAGE VECTOR>>>
332 <CAMN E* (TP) -22> ; (7)
333 <CAIE O* <MQUOTE %<TYPE-C AC!-COMPDEC!-PACKAGE VECTOR>>>
335 TAG16 <PUSH TP* (TP) -9> ; 268 (20) [30]
336 <PUSH TP* (TP) -9> ; (21) [31]
337 <PUSH TP* <TYPE-WORD FALSE>> ; [32]
338 <PUSH TP* [0]> ; [33]
339 <PUSH TP* <TYPE-WORD FALSE>> ; [34]
340 <PUSH TP* [0]> ; [35]
341 <MCALL 3 SMASH-INACS>
342 TAG15 <SUB TP* [<(14) 14>]> ; 275
343 <MOVE B* (TP) -10> ; (5)
346 TAG4 <MOVE B* (TP) -8> ; 279 (7)
350 TAG19 <MOVE TVP* (PVP) > ; 283
353 <SAVAC O* [<(*71500*) 4>]>
354 <PUSH TP* TVP> ; [16]
356 <PUSH TP* <TYPE-WORD FALSE>> ; [18]
357 <PUSH TP* [0]> ; [19]
358 <PUSH TP* <TYPE-WORD FALSE>> ; [20]
359 <PUSH TP* [0]> ; [21]
360 <MOVEM D* (TP) -17> ; (4)
361 <MOVEM PVP* (TP) -16> ; (5)
362 <MCALL 3 SMASH-INACS>
363 <MOVE D* (TP) -11> ; (4)
364 <MOVE PVP* (TP) -10> ; (5)
367 TAG18 <MOVE B* (TP) > ; 300 (15)
369 <MOVE D* <TYPE-WORD FALSE>>
372 TAG20 <MOVE D* <TYPE-WORD LIST>> ; 305
374 TAG21 <MOVE TVP* (TP) -8> ; 307 (7)
376 <MOVEM PVP* (TVP) 15>
377 <MOVE C* (TP) -2> ; (13)
378 <MOVE A* <TYPE-WORD FALSE>>
381 TAG24 <MOVE E* (C) 1> ; 314
382 <PUSH TP* (E) > ; [16]
383 <PUSH TP* (E) 1> ; [17]
386 <CAIN O* <TYPE-CODE DEFER>>
388 <PUSH TP* (E) > ; [18]
389 <PUSH TP* (E) 1> ; [19]
392 <PUSH TP* (TP) -3> ; (16) [20]
393 <PUSH TP* (TP) -3> ; (17) [21]
394 <PUSH TP* (TP) -3> ; (18) [22]
395 <PUSH TP* (TP) -3> ; (19) [23]
396 <MOVE O* <TYPE-WORD LIST>>
397 <MOVEM O* (TP) -19> ; (4)
398 <MOVEM C* (TP) -18> ; (5)
399 <MCALL 2 SMASH-INACS>
401 <MOVE C* (TP) -10> ; (5)
404 TAG22 <SUB TP* [<(12) 12>]> ; 337
405 <HRRZ O* @ (TP) > ; (3)
406 <MOVEM O* (TP) > ; (3)
408 TAG2 <SUB TP* [<(4) 4>]> ; 341
411 TAG3 <*120012*> ; 344
413 <IMULI TB* (TP) -9> ; (-10)
418 <IMULI TB* (TP) -5> ; (-6)
419 <IMULI TB* (TP) -7> ; (-8)
427 <IMULI TB* (TP) -3> ; (-4)
433 TAG23 <(*12*) 0> ; 366
443 <DEFINE RESTORE-STATE (STATV
445 "AUX" (MUNGED-SYMS ()) PA OACR)
446 #DECL ((STATV) SAVED-STATE (PA) <OR FALSE <LIST NODE>> (OACR) <OR FALSE LIST>)
449 "AUX" (AC <1 .ACLST>) (SMT <2 .ACLST>) (SYMT <REST .ACLST 2>))
452 <OR FALSE <LIST [REST SYMBOL]>>
453 [REST <LIST SYMBOL ANY>]>
455 <LIST [REST <LIST SYMBOL ANY>]>
459 <OR FALSE <LIST [REST SYMBOL]>>)
460 <AND .SMT <EMPTY? .SMT> <SET SMT <>>>
463 <OR <MEMQ .ST .MUNGED-SYMS> <SMASH-INACS .ST <> <>>>>
465 <AND .SMT <SET SMT <LIST !.SMT>>>
466 <SET OACR <ACRESIDUE .AC>>
467 <PUT .AC ,ACRESIDUE .SMT>
469 <FUNCTION (SYMB "AUX" (SYMT <1 .SYMB>) (INAC <2 .SYMB>))
470 #DECL ((SYMB) <LIST SYMBOL ANY> (SYMT) SYMBOL)
471 <COND (<TYPE? .SYMT SYMTAB>
474 <GET-STORED .SYMT <3 .SYMB> <4 .SYMB>>>
475 <COND (<SET PA <PROG-AC .SYMT>>
477 <NOT <MEMQ .SYMT <LOOP-VARS <1 .PA>>>>
479 <NOT <MEMQ .SYMT .OACR>>
481 <FLUSH-RESIDUE .AC .SYMT>
484 <FLUSH-RESIDUE .AC .SYMT>
486 <OR <MEMQ .SYMT .MUNGED-SYMS>
487 <SET MUNGED-SYMS (.SYMT !.MUNGED-SYMS)>>
488 <SMASH-INACS .SYMT .INAC>>
492 <TITLE RESTORE-STATE>
494 <DECLARE ("VALUE" <OR COMMON!-COMPDEC!-PACKAGE FALSE
495 SYMTAB!-COMPDEC!-PACKAGE TEMP!-COMPDEC!-PACKAGE> SAVED-STATE!-COMPDEC!-PACKAGE
498 TAG1 <PUSH TP* (AB) > ; 1
509 TAG4 <PUSH TP* <MQUOTE T> -1> ; 12 [2]
510 <PUSH TP* <MQUOTE T>> ; [3]
511 TAG3 <SUBM M* (P) > ; 14
514 <PUSH TP* <MQUOTE %<TYPE-W SAVED-STATE!-COMPDEC!-PACKAGE LIST>>>; [6]
516 <PUSH TP* <TYPE-WORD LIST>> ; [8]
519 <MOVE B* (TP) -8> ; (1)
520 <MOVEM B* (TP) -2> ; (7)
521 <MOVE A* <TYPE-WORD FALSE>>
523 <MOVE D* (TP) -2> ; (7)
525 TAG29 <PUSH TP* [0]> ; 29 [10]
526 <PUSH TP* [0]> ; [11]
528 <PUSH TP* <MQUOTE %<TYPE-W AC!-COMPDEC!-PACKAGE VECTOR>>>; [12]
529 <PUSH TP* (PVP) 1> ; [13]
531 <PUSH TP* (TVP) > ; [14]
532 <PUSH TP* (TVP) 1> ; [15]
535 <PUSH TP* <TYPE-WORD LIST>> ; [16]
536 <PUSH TP* TVP> ; [17]
539 <MOVEM D* (TP) -10> ; (7)
540 <GETYP O* (TP) -3> ; (14)
541 <CAIN O* <TYPE-CODE FALSE>>
543 <MOVE B* (TP) -2> ; (15)
545 <MOVE C* <TYPE-WORD FALSE>>
547 <MOVEM C* (TP) -3> ; (14)
548 <MOVEM E* (TP) -2> ; (15)
549 TAG7 <MOVE B* (TP) -4> ; 53 (13)
553 TAG12 <MOVE A* PVP> ; 57
555 <CAIN O* <TYPE-CODE DEFER>>
560 <SAVAC O* [<(*71500*) 4>]>
561 <MOVEM D* (TP) -7> ; (10)
562 <MOVEM PVP* (TP) -6> ; (11)
563 <MOVE C* (TP) -8> ; (9)
566 TAG11 <GETYP O* (C) 0> ; 70
568 <CAIN O* <TYPE-CODE DEFER>>
577 TAG9 <PUSH TP* TVP> ; 81 [18]
579 <PUSH TP* <TYPE-WORD FALSE>> ; [20]
580 <PUSH TP* [0]> ; [21]
581 <PUSH TP* <TYPE-WORD FALSE>> ; [22]
582 <PUSH TP* [0]> ; [23]
583 <MCALL 3 SMASH-INACS>
584 TAG10 <MOVE D* (TP) -7> ; 88 (10)
585 <MOVE PVP* (TP) -6> ; (11)
588 TAG8 <GETYP O* (TP) -3> ; 92 (14)
589 <CAIN O* <TYPE-CODE FALSE>>
591 <MOVE A* (TP) -3> ; (14)
592 <MOVE B* (TP) -2> ; (15)
598 <MOVEM A* (TP) -3> ; (14)
599 <MOVEM B* (TP) -2> ; (15)
600 TAG13 <MOVE B* (TP) -4> ; 104 (13)
603 <MOVE O* (TP) -3> ; (14)
605 <MOVE O* (TP) -2> ; (15)
607 <MOVE TVP* (TP) > ; (17)
608 <MOVE A* <TYPE-WORD FALSE>>
610 <MOVEM D* (TP) -13> ; (4)
611 <MOVEM PVP* (TP) -12> ; (5)
613 TAG28 <PUSH TP* <TYPE-WORD LIST>> ; 117 [18]
614 <PUSH TP* [0]> ; [19]
615 <PUSH TP* <MQUOTE %<TYPE-W SYMTAB!-COMPDEC!-PACKAGE VECTOR>>>; [20]
616 <PUSH TP* [0]> ; [21]
618 <PUSH TP* (E) > ; [22]
619 <PUSH TP* (E) 1> ; [23]
622 <CAIN O* <TYPE-CODE DEFER>>
624 <PUSH TP* (C) > ; [24]
625 <PUSH TP* (C) 1> ; [25]
628 <MOVEM E* (TP) -6> ; (19)
629 <MOVE O* <TYPE-WORD LIST>>
630 <MOVEM O* (TP) -15> ; (10)
631 <MOVEM TVP* (TP) -14> ; (11)
632 <GETYP O* (TP) -3> ; (22)
633 <CAIE O* <MQUOTE %<TYPE-C SYMTAB!-COMPDEC!-PACKAGE VECTOR>>>
635 <MOVE B* (TP) -2> ; (23)
636 <PUSH TP* <MQUOTE %<TYPE-W SYMTAB!-COMPDEC!-PACKAGE VECTOR>>>; [26]
643 <PUSH TP* (C) > ; [28]
644 <PUSH TP* (C) 1> ; [29]
646 TAG17 <JUMPE E* |CERR2 > ; 150
650 <PUSH TP* (E) > ; [30]
651 <PUSH TP* (E) 1> ; [31]
652 <MOVEM B* (TP) -10> ; (21)
654 <MOVE D* (TP) -4> ; (21)
657 <MOVE D* (TP) -2> ; (23)
661 <CAIN O* <TYPE-CODE FALSE>>
669 TAG20 <GETYP O* (E) 0> ; 173
670 <CAIN O* <MQUOTE %<TYPE-C SYMTAB!-COMPDEC!-PACKAGE VECTOR>>>
676 TAG19 <GETYP O* (TP) -23> ; 180 (2)
677 <CAIE O* <TYPE-CODE FALSE>>
679 <MOVE C* (TP) -20> ; (5)
681 TAG22 <GETYP O* (C) 0> ; 185
682 <CAIN O* <MQUOTE %<TYPE-C SYMTAB!-COMPDEC!-PACKAGE VECTOR>>>
688 TAG21 <PUSH TP* <MQUOTE %<TYPE-W SYMTAB!-COMPDEC!-PACKAGE VECTOR>>>; 192 [26
691 <MCALL 1 KILL-LOOP-AC>
693 <PUSH TP* <MQUOTE %<TYPE-W AC!-COMPDEC!-PACKAGE VECTOR>>>; [26]
694 <PUSH TP* (TP) -13> ; (13) [27]
695 <PUSH TP* (TP) -5> ; (22) [28]
696 <PUSH TP* (TP) -5> ; (23) [29]
697 <MCALL 2 FLUSH-RESIDUE>
700 TAG18 <MOVE C* (TP) -6> ; 203 (19)
702 TAG24 <JUMPE C* |CERR2 > ; 205
707 <CAIN O* <TYPE-CODE DEFER>>
710 <CAIN O* <TYPE-CODE FALSE>>
712 <PUSH TP* <MQUOTE %<TYPE-W AC!-COMPDEC!-PACKAGE VECTOR>>>; [26]
713 <PUSH TP* (TP) -13> ; (13) [27]
714 <PUSH TP* <MQUOTE %<TYPE-W SYMTAB!-COMPDEC!-PACKAGE VECTOR>>>; [28]
716 <MCALL 2 FLUSH-RESIDUE>
717 TAG23 <MOVE B* <TYPE-WORD FALSE>> ; 220
719 <MOVEM B* (TP) -1> ; (24)
720 <MOVEM D* (TP) > ; (25)
721 TAG16 <MOVE B* (TP) -16> ; 224 (9)
722 <MOVE D* (TP) -2> ; (23)
723 <GETYP PVP* (TP) -3> ; (22)
725 TAG27 <GETYP O* (B) 0> ; 228
732 TAG25 <MOVE E* (TP) -16> ; 235 (9)
733 <MOVE C* (TP) -3> ; (22)
734 <MOVE D* (TP) -2> ; (23)
736 <MOVEM A* (TP) -17> ; (8)
737 <MOVEM B* (TP) -16> ; (9)
738 TAG26 <PUSH TP* (TP) -3> ; 241 (22) [26]
739 <PUSH TP* (TP) -3> ; (23) [27]
740 <PUSH TP* (TP) -3> ; (24) [28]
741 <PUSH TP* (TP) -3> ; (25) [29]
742 <MCALL 2 SMASH-INACS>
744 <MOVE TVP* (TP) -6> ; (11)
747 TAG14 <SUB TP* [<(8) 8>]> ; 250
748 <HRRZ O* @ (TP) -2> ; (7)
749 <MOVEM O* (TP) -2> ; (7)
751 TAG5 <SUB TP* [<(10) 10>]> ; 254
755 TAG6 <*120012*> ; 258
757 <IMULI TB* (TP) -3> ; (-4)
768 <IMULI TB* (TP) -23> ; (-24)
781 <DEFINE ASSERT-TYPES (L)
782 #DECL ((L) <LIST [REST <LIST SYMTAB ANY ANY>]>)
784 <FUNCTION (LL) <SET-CURRENT-TYPE <1 .LL> <2 .LL>>>
789 <DECLARE ("VALUE" <OR FALSE SYMTAB!-COMPDEC!-PACKAGE> <LIST [REST <LIST
790 SYMTAB!-COMPDEC!-PACKAGE ANY ANY>]>)>
795 TAG1 <SUBM M* (P) > ; 4
796 <PUSH TP* <TYPE-WORD LIST>> ; [2]
799 <MOVE B* (TP) -2> ; (1)
800 <MOVEM B* (TP) > ; (3)
801 <MOVE A* <TYPE-WORD FALSE>>
803 <MOVE D* (TP) > ; (3)
805 TAG3 <MOVE PVP* (D) 1> ; 15
807 <SAVAC O* [*120012*]>
808 <PUSH TP* <MQUOTE %<TYPE-W SYMTAB!-COMPDEC!-PACKAGE VECTOR>>>; [4]
809 <PUSH TP* (PVP) 1> ; [5]
812 <CAIN O* <TYPE-CODE DEFER>>
814 <PUSH TP* (PVP) > ; [6]
815 <PUSH TP* (PVP) 1> ; [7]
816 <MOVEM D* (TP) -4> ; (3)
817 <MCALL 2 SET-CURRENT-TYPE>
818 <HRRZ O* @ (TP) > ; (3)
819 <MOVEM O* (TP) > ; (3)
821 TAG2 <SUB TP* [<(4) 4>]> ; 31
833 <DEFINE SAME-DECL? (D1 D2) <OR <=? .D1 .D2> <NOT <TYPE-OK? .D2 <NOTIFY .D1>>>>>
837 <DECLARE ("VALUE" <OR ATOM FALSE> ANY ANY)>
838 <PUSH TP* (AB) > ; [0]
839 <PUSH TP* (AB) 1> ; [1]
840 <PUSH TP* (AB) 2> ; [2]
841 <PUSH TP* (AB) 3> ; [3]
844 TAG1 <SUBM M* (P) > ; 6
846 <MOVE A* (TP) -3> ; (0)
847 <MOVE B* (TP) -2> ; (1)
848 <MOVE C* (TP) -1> ; (2)
849 <MOVE D* (TP) > ; (3)
853 TAG2 <PUSH TP* (TP) -1> ; 16 (2) [4]
854 <PUSH TP* (TP) -1> ; (3) [5]
855 <PUSH TP* (TP) -5> ; (0) [6]
856 <PUSH TP* (TP) -5> ; (1) [7]
862 <CAIE O* <TYPE-CODE FALSE>>
864 <MOVE A* <MQUOTE T> -1>
867 TAG4 <MOVE A* <TYPE-WORD FALSE>> ; 30
869 TAG3 <SUB TP* [<(4) 4>]> ; 32
879 <DEFINE AC? (SYMT ACS)
880 #DECL ((SYMT) SYMTAB (ACS) LIST)
886 <COND (<EMPTY? .PTR> <RETURN <>>)>
887 <COND (<==? <CSYMT-SLOT .PTR> .SYMT>
888 <MAPLEAVE <CINACS-SLOT .PTR>>)>
889 <SET PTR <REST .PTR ,LENGTH-CSTATE>>>>
894 <DECLARE ("VALUE" ANY SYMTAB!-COMPDEC!-PACKAGE LIST)>
901 TAG1 <SUBM M* (P) > ; 6
902 <PUSH TP* <TYPE-WORD LIST>> ; [4]
905 <MOVE B* (TP) -2> ; (3)
906 <MOVEM B* (TP) > ; (5)
907 <MOVE A* <TYPE-WORD FALSE>>
909 <MOVE D* (TP) > ; (5)
911 TAG8 <MOVE PVP* (D) 1> ; 17
913 <SAVAC O* [*120012*]>
914 <PUSH TP* <TYPE-WORD LIST>> ; [6]
916 <MOVEM D* (TP) -2> ; (5)
917 TAG7 <SKIPGE |INTFLG > ; 23
918 <SAVAC O* [*120012*]>
923 TAG3 <MOVEM PVP* (TP) > ; 29 (7)
925 <CAIN O* <TYPE-CODE DEFER>>
930 <CAMN TVP* (TP) -6> ; (1)
931 <CAIE O* <MQUOTE %<TYPE-C SYMTAB!-COMPDEC!-PACKAGE VECTOR>>>
933 <MOVE E* (TP) > ; (7)
938 <CAIN O* <TYPE-CODE DEFER>>
944 TAG5 <MOVE E* (TP) > ; 50 (7)
946 TAG6 <JUMPE E* |CERR2 > ; 52
951 TAG4 <MOVE A* <TYPE-WORD FALSE>> ; 57
952 <HRRZ O* @ (TP) > ; (5)
953 <MOVEM O* (TP) > ; (5)
955 TAG2 <SUB TP* [<(6) 6>]> ; 61
970 <DEFINE FIXUP-STORES (STATE)
971 #DECL ((STATE) <LIST [REST REP-STATE <PRIMTYPE LIST> LIST <OR ATOM FALSE>]>)
972 <REPEAT ((PTR .STATE))
973 <COND (<EMPTY? .PTR> <RETURN>)>
975 <FUNCTION (STATE-ITEMS "AUX" SYMT PAC (STATE-ITEM <1 .STATE-ITEMS>))
977 <COND (<EMPTY? .STATE-ITEM> <RETURN>)>
978 <SET SYMT <CSYMT-SLOT .STATE-ITEM>>
979 <COND (<OR <CPOTLV-SLOT .STATE-ITEM>
980 <N==? <CSTORED-SLOT .STATE-ITEM> T>>
981 <COND (<OR <AND <N==? <CSTORED-SLOT .STATE-ITEM> T>
982 <MEMQ <CSTORED-SLOT .STATE-ITEM> .KILL-LIST>>
983 <AND <CPOTLV-SLOT .STATE-ITEM>
984 <CSTORED-SLOT .STATE-ITEM>
985 <SET PAC <PROG-AC .SYMT>>
986 <MEMQ .SYMT <LOOP-VARS <PROG-SLOT .PAC>>>
987 <NOT <STORED-SLOT .PAC>>>>
988 <PUT .STATE-ITEM ,CSTORED-SLOT <>>)>)>
989 <COND (<AND <CPOTLV-SLOT .STATE-ITEM>
990 <OR <NOT <SET PAC <PROG-AC .SYMT>>>
991 <NOT <MEMQ .SYMT <LOOP-VARS <PROG-SLOT .PAC>>>>>>
992 <SET STATE-ITEM <REST .STATE-ITEM ,LENGTH-CSTATE>>)
995 (<NOT <EMPTY? .STATE-ITEM>>
996 <REPEAT ((START-STATE .STATE-ITEM)
997 (STATE-ITEM <REST .STATE-ITEM ,LENGTH-CSTATE>))
998 <COND (<EMPTY? .STATE-ITEM> <RETURN>)>
999 <SET SYMT <CSYMT-SLOT .STATE-ITEM>>
1001 (<OR <CPOTLV-SLOT .STATE-ITEM>
1002 <N==? <CSTORED-SLOT .STATE-ITEM> T>>
1003 <COND (<OR <AND <N==? <CSTORED-SLOT .STATE-ITEM> T>
1004 <MEMQ <CSTORED-SLOT .STATE-ITEM> .KILL-LIST>>
1005 <AND <CPOTLV-SLOT .STATE-ITEM>
1006 <CSTORED-SLOT .STATE-ITEM>
1007 <SET PAC <PROG-AC .SYMT>>
1008 <MEMQ .SYMT <LOOP-VARS <PROG-SLOT .PAC>>>
1009 <NOT <STORED-SLOT .PAC>>>>
1010 <PUT .STATE-ITEM ,CSTORED-SLOT <>>)>)>
1011 <COND (<AND <CPOTLV-SLOT .STATE-ITEM>
1012 <OR <NOT <SET PAC <PROG-AC .SYMT>>>
1013 <NOT <MEMQ .SYMT <LOOP-VARS <PROG-SLOT .PAC>>>>>>
1014 <PUTREST .START-STATE <REST .STATE-ITEM ,LENGTH-CSTATE>>)>
1015 <SET STATE-ITEM <REST .STATE-ITEM ,LENGTH-CSTATE>>
1016 <SET START-STATE <REST .START-STATE ,LENGTH-CSTATE>>>)>
1017 <PUT .STATE-ITEMS 1 .STATE-ITEM>>
1018 <SAVED-AC-STATE .PTR>>
1019 <SET PTR <REST .PTR ,LENGTH-CONTROL-STATE>>>>
1021 <TITLE FIXUP-STORES>
1023 <DECLARE ("VALUE" ATOM <LIST [REST REP-STATE!-COMPDEC!-PACKAGE <PRIMTYPE
1024 LIST> LIST <OR ATOM FALSE>]>)>
1029 TAG1 <SUBM M* (P) > ; 4
1031 <PUSH TP* <TYPE-WORD LIST>> ; [2]
1032 <PUSH TP* (TP) -1> ; (1) [3]
1034 <MOVE B* (TP) > ; (3)
1036 <MOVE B* <MQUOTE T>>
1039 TAG2 <PUSH TP* <TYPE-WORD FALSE>> ; 16 [4]
1040 <PUSH TP* [0]> ; [5]
1042 <CAIN O* <TYPE-CODE DEFER>>
1044 <PUSH TP* (B) > ; [6]
1045 <PUSH TP* (B) 1> ; [7]
1047 TAG29 <MOVEI O* 6 > ; 24
1049 <MOVE A* (TP) -7> ; (6)
1050 <MOVE B* (TP) -6> ; (7)
1059 <MOVEM O* (TP) -7> ; (6)
1060 <MOVEM D* (TP) -6> ; (7)
1063 <MOVEM A* (TP) -5> ; (8)
1064 <MOVEM B* (TP) -4> ; (9)
1069 <PUSH TP* [0]> ; [16]
1070 <PUSH TP* [0]> ; [17]
1072 <MOVE A* (TP) -5> ; (12)
1073 <MOVE B* (TP) -4> ; (13)
1076 TAG13 <SUB TP* [<(2) 2>]> ; 55
1078 TAG5 <MOVE A* (TP) -5> ; 57 (12)
1079 <MOVE B* (TP) -4> ; (13)
1082 <MOVEM A* (TP) -7> ; (10)
1083 <MOVEM B* (TP) -6> ; (11)
1084 <MOVE A* (TP) -5> ; (12)
1085 <MOVE B* (TP) -4> ; (13)
1089 <CAIE O* <TYPE-CODE FALSE>>
1091 <MOVE A* (TP) -5> ; (12)
1092 <MOVE B* (TP) -4> ; (13)
1096 <CAMN B* <MQUOTE T>>
1097 <CAIE O* <TYPE-CODE ATOM>>
1100 TAG7 <MOVE A* (TP) -5> ; 79 (12)
1101 <MOVE B* (TP) -4> ; (13)
1105 <CAMN B* <MQUOTE T>>
1106 <CAIE O* <TYPE-CODE ATOM>>
1109 <MOVE A* (TP) -5> ; (12)
1110 <MOVE B* (TP) -4> ; (13)
1113 <MOVEM A* (TP) -1> ; (16)
1114 <MOVEM B* (TP) > ; (17)
1115 <MOVE B* <MQUOTE KILL-LIST!-CACS!-PACKAGE>>
1119 <MOVE A* (TP) -1> ; (16)
1120 <MOVE B* (TP) > ; (17)
1124 TAG9 <MOVE A* (TP) -5> ; 103 (12)
1125 <MOVE B* (TP) -4> ; (13)
1129 <CAIN O* <TYPE-CODE FALSE>>
1131 <MOVE A* (TP) -5> ; (12)
1132 <MOVE B* (TP) -4> ; (13)
1136 <CAIN O* <TYPE-CODE FALSE>>
1138 <MOVE B* (TP) -6> ; (11)
1141 <MOVEM D* (TP) -5> ; (12)
1142 <MOVEM PVP* (TP) -4> ; (13)
1144 <CAIN O* <TYPE-CODE FALSE>>
1150 <ADD B* [<(60) 60>]>
1153 <MOVE B* (TP) -6> ; (11)
1154 <GETYP PVP* (TP) -7> ; (10)
1156 TAG12 <GETYP O* (D) 0> ; 135
1158 <CAIN O* <TYPE-CODE DEFER>>
1168 TAG11 <MOVE A* (TP) -5> ; 147 (12)
1169 <MOVE B* (TP) -4> ; (13)
1173 <CAIE O* <TYPE-CODE FALSE>>
1175 TAG10 <MOVE A* (TP) -5> ; 154 (12)
1176 <MOVE B* (TP) -4> ; (13)
1177 <MOVE C* <TYPE-WORD FIX>>
1179 <PUSH TP* <TYPE-WORD FALSE>> ; [18]
1180 <PUSH TP* [0]> ; [19]
1182 TAG8 <MOVE A* (TP) -5> ; 161 (12)
1183 <MOVE B* (TP) -4> ; (13)
1187 <CAIN O* <TYPE-CODE FALSE>>
1189 <MOVE B* (TP) -6> ; (11)
1192 <MOVEM D* (TP) -5> ; (12)
1193 <MOVEM PVP* (TP) -4> ; (13)
1195 <CAIN O* <TYPE-CODE FALSE>>
1201 <ADD B* [<(60) 60>]>
1204 <MOVE B* (TP) -6> ; (11)
1205 <GETYP PVP* (TP) -7> ; (10)
1207 TAG15 <GETYP O* (D) 0> ; 186
1209 <CAIN O* <TYPE-CODE DEFER>>
1218 TAG14 <MOVE A* (TP) -5> ; 197 (12)
1219 <MOVE B* (TP) -4> ; (13)
1222 <MOVEM A* (TP) -5> ; (12)
1223 <MOVEM B* (TP) -4> ; (13)
1225 TAG6 <MOVE A* (TP) -3> ; 204 (12)
1226 <MOVE B* (TP) -2> ; (13)
1230 <PUSH TP* [0]> ; [16]
1231 <PUSH TP* [0]> ; [17]
1232 <PUSH TP* (TP) -5> ; (12) [18]
1233 <PUSH TP* (TP) -5> ; (13) [19]
1234 <MOVE A* (TP) -7> ; (12)
1235 <MOVE B* (TP) -6> ; (13)
1241 <MOVE A* (TP) -3> ; (18)
1242 <MOVE B* (TP) -2> ; (19)
1247 TAG18 <MOVE A* (TP) -3> ; 227 (18)
1248 <MOVE B* (TP) -2> ; (19)
1251 <MOVEM A* (TP) -11> ; (10)
1252 <MOVEM B* (TP) -10> ; (11)
1253 <MOVE A* (TP) -3> ; (18)
1254 <MOVE B* (TP) -2> ; (19)
1258 <CAIE O* <TYPE-CODE FALSE>>
1260 <MOVE A* (TP) -3> ; (18)
1261 <MOVE B* (TP) -2> ; (19)
1265 <CAMN B* <MQUOTE T>>
1266 <CAIE O* <TYPE-CODE ATOM>>
1269 TAG19 <MOVE A* (TP) -3> ; 249 (18)
1270 <MOVE B* (TP) -2> ; (19)
1274 <CAMN B* <MQUOTE T>>
1275 <CAIE O* <TYPE-CODE ATOM>>
1278 <MOVE A* (TP) -3> ; (18)
1279 <MOVE B* (TP) -2> ; (19)
1282 <MOVEM A* (TP) -5> ; (16)
1283 <MOVEM B* (TP) -4> ; (17)
1284 <MOVE B* <MQUOTE KILL-LIST!-CACS!-PACKAGE>>
1288 <MOVE A* (TP) -5> ; (16)
1289 <MOVE B* (TP) -4> ; (17)
1293 TAG21 <MOVE A* (TP) -3> ; 273 (18)
1294 <MOVE B* (TP) -2> ; (19)
1298 <CAIN O* <TYPE-CODE FALSE>>
1300 <MOVE A* (TP) -3> ; (18)
1301 <MOVE B* (TP) -2> ; (19)
1305 <CAIN O* <TYPE-CODE FALSE>>
1307 <MOVE B* (TP) -10> ; (11)
1310 <MOVEM D* (TP) -9> ; (12)
1311 <MOVEM PVP* (TP) -8> ; (13)
1313 <CAIN O* <TYPE-CODE FALSE>>
1319 <ADD B* [<(60) 60>]>
1322 <MOVE B* (TP) -10> ; (11)
1323 <GETYP PVP* (TP) -11> ; (10)
1325 TAG24 <GETYP O* (D) 0> ; 305
1327 <CAIN O* <TYPE-CODE DEFER>>
1337 TAG23 <MOVE A* (TP) -9> ; 317 (12)
1338 <MOVE B* (TP) -8> ; (13)
1342 <CAIE O* <TYPE-CODE FALSE>>
1344 TAG22 <MOVE A* (TP) -3> ; 324 (18)
1345 <MOVE B* (TP) -2> ; (19)
1346 <MOVE C* <TYPE-WORD FIX>>
1348 <PUSH TP* <TYPE-WORD FALSE>> ; [22]
1349 <PUSH TP* [0]> ; [23]
1351 TAG20 <MOVE A* (TP) -3> ; 331 (18)
1352 <MOVE B* (TP) -2> ; (19)
1356 <CAIN O* <TYPE-CODE FALSE>>
1358 <MOVE B* (TP) -10> ; (11)
1361 <MOVEM D* (TP) -9> ; (12)
1362 <MOVEM PVP* (TP) -8> ; (13)
1364 <CAIN O* <TYPE-CODE FALSE>>
1370 <ADD B* [<(60) 60>]>
1373 <MOVE B* (TP) -10> ; (11)
1374 <GETYP PVP* (TP) -11> ; (10)
1376 TAG27 <GETYP O* (D) 0> ; 356
1378 <CAIN O* <TYPE-CODE DEFER>>
1387 TAG26 <MOVE A* (TP) -3> ; 367 (18)
1388 <MOVE B* (TP) -2> ; (19)
1391 <SKIPN (TP) -4> ; (17)
1393 <HRRM B* @ (TP) -4> ; (17)
1394 TAG25 <MOVE A* (TP) -3> ; 374 (18)
1395 <MOVE B* (TP) -2> ; (19)
1398 <MOVEM A* (TP) -3> ; (18)
1399 <MOVEM B* (TP) -2> ; (19)
1400 <MOVE A* (TP) -5> ; (16)
1401 <MOVE B* (TP) -4> ; (17)
1404 <MOVEM A* (TP) -5> ; (16)
1405 <MOVEM B* (TP) -4> ; (17)
1407 TAG17 <MOVE A* (TP) -7> ; 387 (8)
1408 <MOVE B* (TP) -6> ; (9)
1409 <MOVE C* <TYPE-WORD FIX>>
1411 <PUSH TP* (TP) -3> ; (12) [16]
1412 <PUSH TP* (TP) -3> ; (13) [17]
1417 TAG4 <SUB TP* [<(6) 6>]> ; 397
1421 <MOVE B* (TP) > ; (3)
1423 TAG30 <JUMPE B* |CERR2 > ; 403
1426 <MOVEM B* (TP) > ; (3)
1428 TAG3 <SUB TP* [<(2) 2>]> ; 408
1429 <MOVE A* <TYPE-WORD ATOM>>
1438 <IMULI TB* (TP) -7> ; (-8)
1442 <IMULI TB* (TP) -11> ; (-12)
1451 <DEFINE HMAPFR (MNOD WHERE K
1452 "AUX" XX (NTSLOTS .NTSLOTS)
1454 <COND (.PRE .TMPS) (<STACK:L .STK .BSTB>) (ELSE (0))>)
1455 TEM NSLOTS (SPECD <>) STB (DTEM <DATUM FIX ANY-AC>)
1456 (STKOFFS <>) (FAP <1 .K>) (INRAP <2 .K>) F? (POFF 0)
1457 (ANY? <>) (NARG <LENGTH <SET K <REST .K 2>>>) START:TAG
1458 (R? <==? <NODE-SUBR .MNOD> ,MAPR>) STRV (FF? <>)
1459 (MAPEND <ILIST .NARG '<MAKE:TAG "MAP">>) (OSTK .STK)
1460 (MAPLP <MAKE:TAG "MAP">) (MAPL2 <MAKE:TAG "MAP">) MAP:OFF
1461 (SUBRC <AP? .FAP>) STOP (STK (0 !.STK)) (TMPS .TMPS) BTP
1462 (BASEF .BASEF) (FRMS .FRMS) (MAYBE-FALSE <>) (OPRE .PRE)
1463 (OTAG ()) DEST CD (AC-HACK .AC-HACK)
1464 (EXIT <MAKE:TAG "MAPEX">) (APPLTAG <MAKE:TAG "MAPAP">) TT
1465 GMF (OUTD .WHERE) OUTSAV CHF (FLS <==? .WHERE FLUSHED>)
1466 (RTAG <MAKE:TAG "MAP">) (NEED-INT T) FSYM OS NS (DOIT T)
1468 #DECL ((NTSLOTS) <SPECIAL LIST> (DTEM) DATUM
1469 (SPECD) <SPECIAL <OR FALSE ATOM>> (TEM) <OR ATOM DATUM> (OFFS) FIX
1470 (TMPS) <SPECIAL LIST> (POFF NSLOTS NARG) <SPECIAL FIX> (FAP) NODE
1471 (BASEF MNOD INRAP) <SPECIAL NODE> (K) <LIST [REST NODE]>
1472 (MAPEND) <LIST [REST ATOM]> (MAP:OFF) ATOM
1473 (EXIT MAPLP RTAG APPLTAG) <SPECIAL ATOM> (OSTK) LIST
1474 (DEST CD) <SPECIAL <OR ATOM DATUM>> (FRMS) <SPECIAL LIST>
1475 (STOP STRV STB BTP STK GSTK) <SPECIAL LIST>
1476 (AC-HACK START:TAG) <SPECIAL ANY>
1477 (GMF MAYBE-FALSE ANY?) <SPECIAL ANY> (FSYM) SYMTAB)
1478 <PUT .INRAP ,SPECS-START <- <SPECS-START .INRAP> .TOT-SPEC>>
1480 #DECL ((PRE) <SPECIAL ANY>)
1481 <COND (<AND <NOT <EMPTY? .K>>
1484 <AND <TYPE-OK? <RESULT-TYPE .Z>
1490 <COND (<AND <NOT <AND <EMPTY? .K> <NODE-NAME .FAP>>>
1491 <OR <==? <NODE-NAME .FAP> <>>
1492 <AND <==? <NODE-TYPE .FAP> ,MFIRST-CODE>
1493 <N==? <NODE-SUBR .FAP> 5>>
1496 <==? <NAME-SYM <1 <BINDING-STRUCTURE .INRAP>>>
1499 (ELSE <SET GMF <>>)>
1500 <COND (<AND <NOT <EMPTY? .K>>
1504 <MINL <RESULT-TYPE .N>>>
1508 (ELSE <SET CHF <>>)>
1509 <SET DEST <SET OUTD <COND (.FLS FLUSHED) (ELSE <GOODACS .MNOD .WHERE>)>>>
1510 <OR .PRE <EMIT-PRE <NOT <OR <ACTIVATED .INRAP> <0? <SSLOTS .BASEF>>>>>>
1518 <SET FSYM <1 <BINDING-STRUCTURE .INRAP>>>
1519 <PUT .INRAP ,BINDING-STRUCTURE <REST <BINDING-STRUCTURE .INRAP>>>
1524 <OR .F? <SET FF? <==? <NODE-TYPE .FAP> ,MFIRST-CODE>>>
1525 <SET ANY? <PUSH-STRUCS .K T .GMF <BINDING-STRUCTURE .INRAP>>>
1526 <DO-FIRST-SETUP-2 .FAP .DEST <COND (.GMF .FSYM)> .CHF <1? .NARG> .FLS>
1527 <AND .GMF <NOT .FLS> <INACS .FSYM> <SET OUTD <INACS .FSYM>>>
1528 <BEGIN-FRAME <TMPLS .INRAP> <ACTIVATED .INRAP> <PRE-ALLOC .INRAP>>
1529 <SET TMPS <COND (.PRE .NTMPS) (ELSE <STACK:L .STK <2 .FRMS>>)>>
1533 <COND (.F? <SET MAYBE-FALSE <DO-FINAL-SETUP .FAP .SUBRC>>)>
1534 <PROG-START-AC .INRAP>
1536 <COND (<AND .F? <NOT .GMF>>
1539 .DTEM .STB <AND <NOT .PRE> <NOT <ACTIVATED .INRAP>>>>>)>
1540 <AND <ACTIVATED .INRAP> <ACT:INITIAL> <ADD:STACK 2>>
1544 <AND .GMF <1? .NARG>>
1546 <SALLOC:SLOTS <TMPLS .INRAP>>
1547 <ADD:STACK <TMPLS .INRAP>>
1549 <SET NTSLOTS (<FORM GVAL <TMPLS .INRAP>> !.NTSLOTS)>)>
1550 <COND (.GMF <SET GSTK .STK> <SET STK (0 !.STK)>)>>>
1551 <AND .PRE .GMF <NOT <1? .NARG>> <SET GSTK .STK> <SET STK (0 !.STK)>>
1552 <SET POFF <COND (.MAYBE-FALSE -2) (.F? -1) (ELSE 0)>>
1553 <COND (<AND .GMF <OR .CHF <NOT <1? .NARG>>> <NOT .FLS>> <LVAL-UP .FSYM>)>
1554 <REPEAT ((KK .K) (BS <BINDING-STRUCTURE .INRAP>)
1561 #DECL ((S) <LIST SYMTAB>)
1562 <COND (<N==? <NAME-SYM <1 .S>> DUMMY-MAPF>
1565 .BS>)>) (OFFSET (<- 1 <* .NARG 2>> ())) TEM
1566 (TOFF (0 ())) (GOFF '(0)))
1567 #DECL ((BST) <LIST [REST SYMTAB]> (TOFF OFFSET) <LIST FIX LIST>
1568 (KK) <LIST [REST NODE]>)
1571 <AND .GMF <NOT <1? .NARG>> <NOT .FF?> <NOT .FLS> <RET-TMP-AC .OUTD>>
1572 <COND (<AND .F? <NOT .STKOFFS>> <RET-TMP-AC .DTEM>)>
1575 #DECL ((SYM) SYMTAB)
1576 <APPLY <NTH ,MBINDERS <CODE-SYM .SYM>> .SYM>>
1580 <SET RV <TYPE? <ADDR-SYM <1 .BST>> TEMPV>>
1586 <COND (.AC-HACK `(FRM) ) (`(TB) )>
1587 <COND (.AC-HACK 1) (ELSE 0)>>>
1588 <OR .RV <SET STKOFFS <+ .STKOFFS 2>>>)
1591 <SPEC-OFFPTR <1 .OFFSET>
1595 !<STACK:L .STK .STRV>)>>
1601 <FORM - 0 !<2 .TOFF>>)>>>)>)
1604 <ADDRESS:C <FORM - <1 .OFFSET> !<STACK:L .STK .STRV>>
1607 <SET OFFSET <STFIXIT .OFFSET (2)>>)>
1608 <AND <==? <CODE-SYM <1 .BST>> 4>
1609 <MESSAGE ERROR "NOT IMPLEMENTED MAPF/R TUPLES ">>
1612 <COND (.GMF (<FORM + !.GOFF>))
1613 ((<FORM - 0 <1 .TOFF> !<2 .TOFF>>
1614 <1 <SET TOFF <STFIXIT (0 ()) <STACK:L .STK .STRV>>>>
1618 <ISET <RESULT-TYPE <1 .KK>>
1627 <SET GOFF <STACK:L .STK .GSTK>>)
1629 <RETURN-UP .INRAP .STK>
1630 <IISET <RESULT-TYPE <1 .KK>>
1632 <STACKM <1 .KK> <DATUM .TEM .TEM> .R? <1 .MAPEND> .POFF>
1641 <SET MAPEND <REST .MAPEND>>
1643 <SET BST <REST .BST>>)>>
1645 (<AND .GMF <OR .CHF <NOT <1? .NARG>>> <NOT .FLS> <NOT .FF?>>
1649 <COND (<TYPE? <DATTYP <INACS .S>> AC>
1650 <FLUSH-RESIDUE <DATTYP <INACS .S>> .S>)>
1651 <COND (<TYPE? <DATVAL <INACS .S>> AC>
1652 <FLUSH-RESIDUE <DATVAL <INACS .S>> .S>)>
1653 <PUT .S ,INACS <>>)>>)>
1654 <COND (<AND .GMF <NOT .CHF> <1? .NARG> <NOT .FLS>> <LVAL-UP .FSYM>)>
1656 <0? <SET NSLOTS <SSLOTS .INRAP>>>
1658 <SALLOC:SLOTS .NSLOTS>
1660 <EMIT-PRE <SET PRE T>>>>
1661 <AND <ACTIVATED .INRAP> <ACT:FINAL>>
1663 <OR .OPRE <SET BASEF .INRAP>>
1665 <AND .NEED-INT <CALL-INTERRUPT>>
1672 <BLT-HACK <KIDS .INRAP>
1673 <BINDING-STRUCTURE .INRAP>
1674 <MINL <RESULT-TYPE <1 .K>>>>>
1677 <SET TEM <SEQ-GEN <KIDS .INRAP> <GOODACS .INRAP DONT-CARE> T>>)
1688 !<STACK:L .STK .STRV>>
1693 (ELSE <RET-TMP-AC <SET TEM <SEQ-GEN <KIDS .INRAP> FLUSHED T>>>)>
1695 (<AND .DOIT <N==? .TEM ,NO-DATUM>>
1696 <COND (<ACTIVATED .INRAP> <PROG:END> <LABEL:OFF .MAP:OFF>)
1699 <OR .OPRE <SET TEM <MOVE:ARG .TEM <DATUM ,AC-A ,AC-B>>>>>
1700 <POP:LOCS .STK .STRV>
1701 <UNBIND:FUNNY <SPECS-START .INRAP> !.NTSLOTS>)
1702 (ELSE <UNBIND:LOCS .STK .STB>)>
1704 (.F? <DO-STACK-ARGS .MAYBE-FALSE .TEM>)
1708 <SET NTSLOTS <REST <SET NS .NTSLOTS>>>
1711 <DO-EVEN-FUNNIER-HACK .TEM
1716 <LOOP-VARS .INRAP>>)
1717 (<AND .GMF <NOT .FLS>>
1719 <PUT .FSYM ,INACS .TEM>
1720 <PUT .FSYM ,STORED <>>
1721 <COND (<TYPE? <DATTYP .TEM> AC>
1724 (.FSYM !<ACRESIDUE <DATTYP .TEM>>)>)>
1725 <PUT <DATVAL .TEM> ,ACRESIDUE (.FSYM !<ACRESIDUE <DATVAL .TEM>>)>
1726 <PUT .FSYM ,STORED <>>
1728 (<NOT <MEMQ .FSYM <LOOP-VARS .INRAP>>>
1729 <REPEAT ((L <LOOP-VARS .INRAP>) LL)
1730 #DECL ((L) LIST (LL) DATUM)
1731 <COND (<EMPTY? .L> <RETURN>)>
1732 <COND (<TYPE? <DATVAL <SET LL <LINACS-SLOT .L>>> AC>
1733 <PUT <DATVAL .LL> ,ACPROT T>)>
1734 <COND (<TYPE? <DATTYP .LL> AC>
1735 <PUT <DATTYP .LL> ,ACPROT T>)>
1736 <SET L <REST .L ,LOOPVARS-LENGTH>>>
1744 <COND (<ISTYPE-GOOD? <RESULT-TYPE .MNOD>>)
1745 (<AND <TYPE? .WHERE DATUM>
1746 <TYPE? <SET R <DATTYP .WHERE>> AC>
1748 <PUT <SGETREG .R <>> ,ACPROT T>)
1749 (ELSE <PUT <SET R <GETREG <>>> ,ACPROT T>)>
1750 <COND (<AND <TYPE? .WHERE DATUM>
1751 <TYPE? <SET R2 <DATVAL .WHERE>> AC>
1754 (ELSE <SET R2 <GETREG <>>>)>>>
1755 <COND (<AND <ASSIGNED? R>>
1757 <PUT .R ,ACPROT <>>)>
1759 !<LOOP-VARS .INRAP>)>
1760 <REPEAT ((L <LOOP-VARS .INRAP>) LL)
1761 #DECL ((L) LIST (LL) DATUM)
1762 <COND (<EMPTY? .L> <RETURN>)>
1763 <COND (<TYPE? <DATVAL <SET LL <LINACS-SLOT .L>>> AC>
1764 <PUT <DATVAL .LL> ,ACPROT <>>)>
1765 <COND (<TYPE? <DATTYP .LL> AC>
1766 <PUT <DATTYP .LL> ,ACPROT <>>)>
1767 <SET L <REST .L ,LOOPVARS-LENGTH>>>)>)
1768 (.FF? <DO-FUNNY-HACK .TEM (<* .NARG -2> ()) .MNOD .FAP .INRAP>)>
1769 <COND (.ANY? <EMIT <INSTRUCTION `SETZM .POFF '`(P) >>)>
1773 <SET NTSLOTS <REST <SET NS .NTSLOTS>>>
1777 <AGAIN-UP .INRAP <AND .GMF <1? .NARG>>>
1780 <REST-STRUCS <BINDING-STRUCTURE .INRAP>
1786 <COND (<NOT <AND .GMF <1? .NARG>>> <BRANCH:TAG .MAPLP>)>
1787 <GEN-TAGS .OTAG .SPECD>
1788 <COND (<AND .GMF <NOT .PRE>> <SET STK .GSTK> <SET NTSLOTS .NS>)>
1789 <COND (<AND .GMF <NOT <1? .NARG>>>
1790 <COND (<OR .OPRE .F?>
1791 <POP:LOCS .STK .STRV>
1792 <UNBIND:FUNNY <SPECS-START .INRAP> !.NTSLOTS>)
1793 (ELSE <UNBIND:LOCS .STK .STB>)>)>
1797 <COND (<NOT <ISTYPE? <STRUCTYP <RESULT-TYPE .N>>>>
1798 <EMIT '<`SETZM |DSTORE >>
1801 (ELSE <GEN-TAGS .OTAG .SPECD>)>
1802 <CLEANUP-STATE .INRAP>
1803 <LABEL:TAG .APPLTAG>
1805 (<TYPE? .DEST DATUM>
1807 <COND (.F? <DO-LAST .SUBRC .MAYBE-FALSE <DATUM !.DEST>>)
1809 <MOVE:ARG <LADDR .FSYM <> <>> <DATUM !.DEST>>)
1810 (.FF? <DO-FUNNY-LAST .FAP <- -1 <* 2 .NARG>> <DATUM !.DEST>>)
1811 (.GMF <MOVE:ARG .OUTD <DATUM !.DEST>>)
1814 <DATUM <SET TT <ADDRESS:C <- -1 <* 2 .NARG>> '`(TP) >> .TT>
1817 <AND <ISTYPE? <DATTYP .DEST>>
1818 <TYPE? <DATTYP .CD> AC>
1819 <RET-TMP-AC <DATTYP .CD> .CD>>)
1820 (.F? <DO-LAST .SUBRC .MAYBE-FALSE <FUNCTION:VALUE>>)
1821 (<AND .FF? .GMF> <MOVE:ARG .OUTD <FUNCTION:VALUE>>)
1822 (<AND .GMF .FF?> <MOVE:ARG .OUTD <FUNCTION:VALUE>>)
1823 (.FF? <DO-FUNNY-LAST .FAP <- -1 <* 2 .NARG>> <FUNCTION:VALUE>>)>
1824 <POP:LOCS .STB .STOP>
1826 <COND (<ASSIGNED? CD>
1827 <AND <TYPE? <DATTYP .DEST> AC> <FIX-ACLINK <DATTYP .DEST> .DEST .CD>>
1828 <AND <TYPE? <DATVAL .DEST> AC>
1829 <FIX-ACLINK <DATVAL .DEST> .DEST .CD>>)>
1831 <SET XX <MOVE:ARG .DEST .WHERE>>
1837 <DECLARE ("VALUE" ANY NODE!-COMPDEC!-PACKAGE ANY <LIST [REST
1838 NODE!-COMPDEC!-PACKAGE]>)>
1847 TAG1 <SUBM M* (P) > ; 8
1848 <PUSH TP* [<(*35*) *10*>]> ; [6]
1849 <PUSH TP* FRM> ; [7]
1853 <PUSH TP* <MQUOTE %<TYPE-W SYMTAB!-COMPDEC!-PACKAGE VECTOR>>>; [24]
1854 <PUSH TP* [0]> ; [25]
1855 <PUSH TP* [0]> ; [26]
1856 <PUSH TP* [0]> ; [27]
1857 <PUSH TP* [0]> ; [28]
1858 <PUSH TP* [0]> ; [29]
1859 <PUSH TP* [<(%<TYPE-CODE ATOM>) -1>]> ; [30]
1860 <PUSH TP* <MQUOTE MNOD!-IMAPGEN!-MAPGEN!-PACKAGE>>; [31]
1861 <PUSH TP* (FRM) -7> ; (-7) [32]
1862 <PUSH TP* (FRM) -6> ; (-6) [33]
1863 <PUSH TP* <MQUOTE (NODE!-COMPDEC!-PACKAGE)> -1> ; [34]
1864 <PUSH TP* <MQUOTE (NODE!-COMPDEC!-PACKAGE)>> ; [35]
1866 <PUSH TP* [<(%<TYPE-CODE ATOM>) -1>]> ; [36]
1867 <PUSH TP* <MQUOTE NTSLOTS!-IMAPGEN!-MAPGEN!-PACKAGE>>; [37]
1868 <MOVE B* <MQUOTE NTSLOTS!-IMAPGEN!-MAPGEN!-PACKAGE>>
1872 <PUSH TP* <MQUOTE (LIST)> -1> ; [40]
1873 <PUSH TP* <MQUOTE (LIST)>> ; [41]
1875 <MOVE B* <MQUOTE PRE!-IMAPGEN!-MAPGEN!-PACKAGE>>
1878 <CAIN O* <TYPE-CODE FALSE>>
1880 <MOVE B* <MQUOTE TMPS!-COMPDEC!-PACKAGE>>
1883 TAG2 <MOVE B* <MQUOTE STK!-IMAPGEN!-MAPGEN!-PACKAGE>> ; 44
1887 <MOVE B* <MQUOTE BSTB!-IMAPGEN!-MAPGEN!-PACKAGE>>
1893 <CAIE O* <TYPE-CODE FALSE>>
1895 <MOVE C* <TYPE-WORD FIX>>
1899 TAG3 <PUSH TP* A> ; 60 [42]
1901 <PUSH TP* [<(%<TYPE-CODE ATOM>) -1>]> ; [44]
1902 <PUSH TP* <MQUOTE NSLOTS!-IMAPGEN!-MAPGEN!-PACKAGE>>; [45]
1903 <PUSH TP* <TYPE-WORD UNBOUND>> ; [46]
1904 <PUSH TP* [-1]> ; [47]
1905 <PUSH TP* <MQUOTE (FIX)> -1> ; [48]
1906 <PUSH TP* <MQUOTE (FIX)>> ; [49]
1908 <PUSH TP* [<(%<TYPE-CODE ATOM>) -1>]> ; [50]
1909 <PUSH TP* <MQUOTE SPECD!-IMAPGEN!-MAPGEN!-PACKAGE>>; [51]
1910 <PUSH TP* <TYPE-WORD FALSE>> ; [52]
1911 <PUSH TP* [0]> ; [53]
1912 <PUSH TP* <MQUOTE (<OR FALSE ATOM>)> -1> ; [54]
1913 <PUSH TP* <MQUOTE (<OR FALSE ATOM>)>> ; [55]
1915 <PUSH TP* [<(%<TYPE-CODE ATOM>) -1>]> ; [56]
1916 <PUSH TP* <MQUOTE STB!-IMAPGEN!-MAPGEN!-PACKAGE>> ; [57]
1917 <PUSH TP* <TYPE-WORD UNBOUND>> ; [58]
1918 <PUSH TP* [-1]> ; [59]
1919 <PUSH TP* <MQUOTE (LIST)> -1> ; [60]
1920 <PUSH TP* <MQUOTE (LIST)>> ; [61]
1922 <PUSH TP* <MQUOTE FIX> -1> ; [62]
1923 <PUSH TP* <MQUOTE FIX>> ; [63]
1924 <PUSH TP* <MQUOTE ANY-AC!-COMPDEC!-PACKAGE> -1> ; [64]
1925 <PUSH TP* <MQUOTE ANY-AC!-COMPDEC!-PACKAGE>> ; [65]
1929 <PUSH TP* <TYPE-WORD FALSE>> ; [64]
1930 <PUSH TP* [0]> ; [65]
1931 <MOVE B* (FRM) -2> ; (-2)
1933 <PUSH TP* <MQUOTE %<TYPE-W NODE!-COMPDEC!-PACKAGE VECTOR>>>; [66]
1934 <PUSH TP* (B) 1> ; [67]
1935 <PUSH TP* [<(%<TYPE-CODE ATOM>) -1>]> ; [68]
1936 <PUSH TP* <MQUOTE INRAP!-IMAPGEN!-MAPGEN!-PACKAGE>>; [69]
1940 <PUSH TP* <MQUOTE %<TYPE-W NODE!-COMPDEC!-PACKAGE VECTOR>>>; [70]
1941 <PUSH TP* (D) 1> ; [71]
1942 <PUSH TP* <MQUOTE (NODE!-COMPDEC!-PACKAGE)> -1> ; [72]
1943 <PUSH TP* <MQUOTE (NODE!-COMPDEC!-PACKAGE)>> ; [73]
1945 <PUSH TP* [<(%<TYPE-CODE ATOM>) -1>]> ; [74]
1946 <PUSH TP* <MQUOTE POFF!-IMAPGEN!-MAPGEN!-PACKAGE>>; [75]
1947 <PUSH TP* <TYPE-WORD FIX>> ; [76]
1948 <PUSH TP* [0]> ; [77]
1949 <PUSH TP* <MQUOTE (FIX)> -1> ; [78]
1950 <PUSH TP* <MQUOTE (FIX)>> ; [79]
1952 <PUSH TP* [<(%<TYPE-CODE ATOM>) -1>]> ; [80]
1953 <PUSH TP* <MQUOTE ANY?!-IMAPGEN!-MAPGEN!-PACKAGE>>; [81]
1954 <PUSH TP* <TYPE-WORD FALSE>> ; [82]
1955 <PUSH TP* [0]> ; [83]
1956 <PUSH TP* <MQUOTE (ANY)> -1> ; [84]
1957 <PUSH TP* <MQUOTE (ANY)>> ; [85]
1959 <PUSH TP* [<(%<TYPE-CODE ATOM>) -1>]> ; [86]
1960 <PUSH TP* <MQUOTE NARG!-IMAPGEN!-MAPGEN!-PACKAGE>>; [87]
1961 <MOVE B* (FRM) -2> ; (-2)
1968 TAG5 <HRR D* (D) -1> ; 129
1969 TAG4 <TRNE D* -1 > ; 130
1972 <PUSH TP* <TYPE-WORD FIX>> ; [88]
1974 <PUSH TP* <MQUOTE (FIX)> -1> ; [90]
1975 <PUSH TP* <MQUOTE (FIX)>> ; [91]
1976 <MOVEM B* (FRM) -2> ; (-2)
1978 <PUSH TP* [<(%<TYPE-CODE ATOM>) -1>]> ; [92]
1979 <PUSH TP* <MQUOTE START:TAG!-IMAPGEN!-MAPGEN!-PACKAGE>>; [93]
1980 <PUSH TP* <TYPE-WORD UNBOUND>> ; [94]
1981 <PUSH TP* [-1]> ; [95]
1982 <PUSH TP* <MQUOTE (ANY)> -1> ; [96]
1983 <PUSH TP* <MQUOTE (ANY)>> ; [97]
1985 <MOVE B* (FRM) 26> ; (26)
1986 <ADD B* [<(18) 18>]>
1990 <MOVE B* <MQUOTE %<RGLOC MAPR T>>>
1997 <MOVE B* <MQUOTE T> -1>
1998 <MOVE TVP* <MQUOTE T>>
2000 TAG6 <MOVE B* <TYPE-WORD FALSE>> ; 161
2002 TAG7 <PUSH TP* B> ; 163 [98]
2003 <PUSH TP* TVP> ; [99]
2004 <PUSH TP* [<(%<TYPE-CODE ATOM>) -1>]> ; [100]
2005 <PUSH TP* <MQUOTE STRV!-IMAPGEN!-MAPGEN!-PACKAGE>>; [101]
2006 <PUSH TP* <TYPE-WORD UNBOUND>> ; [102]
2007 <PUSH TP* [-1]> ; [103]
2008 <PUSH TP* <MQUOTE (LIST)> -1> ; [104]
2009 <PUSH TP* <MQUOTE (LIST)>> ; [105]
2011 <PUSH TP* <TYPE-WORD FALSE>> ; [106]
2012 <PUSH TP* [0]> ; [107]
2013 <PUSH P* (FRM) 82> ; (82)
2014 <PUSH TP* <TYPE-WORD LIST>> ; [108]
2015 <PUSH TP* [0]> ; [109]
2016 <PUSH TP* <TYPE-WORD LIST>> ; [110]
2017 <PUSH TP* [0]> ; [111]
2018 TAG9 <SOSGE (P) > ; 179
2020 <PUSH TP* <MQUOTE "MAP"> -1> ; [112]
2021 <PUSH TP* <MQUOTE "MAP">> ; [113]
2027 <SKIPE (TP) > ; (111)
2028 <HRRM B* @ (TP) > ; (111)
2029 <MOVEM B* (TP) > ; (111)
2030 <SKIPN (TP) -2> ; (109)
2031 <MOVEM B* (TP) -2> ; (109)
2033 TAG8 <MOVE B* (TP) -2> ; 194 (109)
2036 <PUSH TP* <TYPE-WORD LIST>> ; [108]
2037 <PUSH TP* B> ; [109]
2038 <MOVE B* <MQUOTE STK!-IMAPGEN!-MAPGEN!-PACKAGE>>
2040 <PUSH TP* A> ; [110]
2041 <PUSH TP* B> ; [111]
2042 <PUSH TP* [<(%<TYPE-CODE ATOM>) -1>]> ; [112]
2043 <PUSH TP* <MQUOTE MAPLP!-IMAPGEN!-MAPGEN!-PACKAGE>>; [113]
2044 <PUSH TP* <MQUOTE "MAP"> -1> ; [114]
2045 <PUSH TP* <MQUOTE "MAP">> ; [115]
2047 <PUSH TP* A> ; [114]
2048 <PUSH TP* B> ; [115]
2049 <PUSH TP* <MQUOTE (ATOM)> -1> ; [116]
2050 <PUSH TP* <MQUOTE (ATOM)>> ; [117]
2052 <PUSH TP* <MQUOTE "MAP"> -1> ; [118]
2053 <PUSH TP* <MQUOTE "MAP">> ; [119]
2055 <PUSH TP* A> ; [118]
2056 <PUSH TP* B> ; [119]
2057 <PUSH TP* (FRM) 59> ; (59) [120]
2058 <PUSH TP* (FRM) 60> ; (60) [121]
2060 <PUSH TP* A> ; [120]
2061 <PUSH TP* B> ; [121]
2062 <PUSH TP* [<(%<TYPE-CODE ATOM>) -1>]> ; [122]
2063 <PUSH TP* <MQUOTE STOP!-IMAPGEN!-MAPGEN!-PACKAGE>>; [123]
2064 <PUSH TP* <TYPE-WORD UNBOUND>> ; [124]
2065 <PUSH TP* [-1]> ; [125]
2066 <PUSH TP* <MQUOTE (LIST)> -1> ; [126]
2067 <PUSH TP* <MQUOTE (LIST)>> ; [127]
2069 <PUSH TP* [<(%<TYPE-CODE ATOM>) -1>]> ; [128]
2070 <PUSH TP* <MQUOTE STK!-IMAPGEN!-MAPGEN!-PACKAGE>> ; [129]
2071 <PUSH TP* <TYPE-WORD FIX>> ; [130]
2072 <PUSH TP* [0]> ; [131]
2073 <MOVE B* <MQUOTE STK!-IMAPGEN!-MAPGEN!-PACKAGE>>
2079 <PUSH TP* A> ; [130]
2080 <PUSH TP* B> ; [131]
2081 <PUSH TP* <MQUOTE (LIST)> -1> ; [132]
2082 <PUSH TP* <MQUOTE (LIST)>> ; [133]
2084 <PUSH TP* [<(%<TYPE-CODE ATOM>) -1>]> ; [134]
2085 <PUSH TP* <MQUOTE TMPS!-COMPDEC!-PACKAGE>> ; [135]
2086 <MOVE B* <MQUOTE TMPS!-COMPDEC!-PACKAGE>>
2088 <PUSH TP* A> ; [136]
2089 <PUSH TP* B> ; [137]
2090 <PUSH TP* <MQUOTE (LIST)> -1> ; [138]
2091 <PUSH TP* <MQUOTE (LIST)>> ; [139]
2093 <PUSH TP* [<(%<TYPE-CODE ATOM>) -1>]> ; [140]
2094 <PUSH TP* <MQUOTE BTP!-IMAPGEN!-MAPGEN!-PACKAGE>> ; [141]
2095 <PUSH TP* <TYPE-WORD UNBOUND>> ; [142]
2096 <PUSH TP* [-1]> ; [143]
2097 <PUSH TP* <MQUOTE (LIST)> -1> ; [144]
2098 <PUSH TP* <MQUOTE (LIST)>> ; [145]
2100 <PUSH TP* [<(%<TYPE-CODE ATOM>) -1>]> ; [146]
2101 <PUSH TP* <MQUOTE BASEF!-IMAPGEN!-MAPGEN!-PACKAGE>>; [147]
2102 <MOVE B* <MQUOTE BASEF!-IMAPGEN!-MAPGEN!-PACKAGE>>
2104 <PUSH TP* A> ; [148]
2105 <PUSH TP* B> ; [149]
2106 <PUSH TP* <MQUOTE (NODE!-COMPDEC!-PACKAGE)> -1> ; [150]
2107 <PUSH TP* <MQUOTE (NODE!-COMPDEC!-PACKAGE)>> ; [151]
2109 <PUSH TP* [<(%<TYPE-CODE ATOM>) -1>]> ; [152]
2110 <PUSH TP* <MQUOTE FRMS!-IMAPGEN!-MAPGEN!-PACKAGE>>; [153]
2111 <MOVE B* <MQUOTE FRMS!-IMAPGEN!-MAPGEN!-PACKAGE>>
2113 <PUSH TP* A> ; [154]
2114 <PUSH TP* B> ; [155]
2115 <PUSH TP* <MQUOTE (LIST)> -1> ; [156]
2116 <PUSH TP* <MQUOTE (LIST)>> ; [157]
2118 <PUSH TP* [<(%<TYPE-CODE ATOM>) -1>]> ; [158]
2119 <PUSH TP* <MQUOTE MAYBE-FALSE!-IMAPGEN!-MAPGEN!-PACKAGE>>; [159]
2120 <PUSH TP* <TYPE-WORD FALSE>> ; [160]
2121 <PUSH TP* [0]> ; [161]
2122 <PUSH TP* <MQUOTE (ANY)> -1> ; [162]
2123 <PUSH TP* <MQUOTE (ANY)>> ; [163]
2125 <MOVE B* <MQUOTE PRE!-IMAPGEN!-MAPGEN!-PACKAGE>>
2127 <PUSH TP* A> ; [164]
2128 <PUSH TP* B> ; [165]
2129 <PUSH TP* <TYPE-WORD LIST>> ; [166]
2130 <PUSH TP* [0]> ; [167]
2131 <PUSH TP* [<(%<TYPE-CODE ATOM>) -1>]> ; [168]
2132 <PUSH TP* <MQUOTE DEST!-IMAPGEN!-MAPGEN!-PACKAGE>>; [169]
2133 <PUSH TP* <TYPE-WORD UNBOUND>> ; [170]
2134 <PUSH TP* [-1]> ; [171]
2135 <PUSH TP* <MQUOTE (<OR ATOM DATUM!-COMPDEC!-PACKAGE>)> -1>; [172]
2136 <PUSH TP* <MQUOTE (<OR ATOM DATUM!-COMPDEC!-PACKAGE>)>>; [173]
2138 <PUSH TP* [<(%<TYPE-CODE ATOM>) -1>]> ; [174]
2139 <PUSH TP* <MQUOTE CD!-IMAPGEN!-MAPGEN!-PACKAGE>> ; [175]
2140 <PUSH TP* <TYPE-WORD UNBOUND>> ; [176]
2141 <PUSH TP* [-1]> ; [177]
2142 <PUSH TP* <MQUOTE (<OR ATOM DATUM!-COMPDEC!-PACKAGE>)> -1>; [178]
2143 <PUSH TP* <MQUOTE (<OR ATOM DATUM!-COMPDEC!-PACKAGE>)>>; [179]
2145 <PUSH TP* [<(%<TYPE-CODE ATOM>) -1>]> ; [180]
2146 <PUSH TP* <MQUOTE AC-HACK!-IMAPGEN!-MAPGEN!-PACKAGE>>; [181]
2147 <MOVE B* <MQUOTE AC-HACK!-IMAPGEN!-MAPGEN!-PACKAGE>>
2149 <PUSH TP* A> ; [182]
2150 <PUSH TP* B> ; [183]
2151 <PUSH TP* <MQUOTE (ANY)> -1> ; [184]
2152 <PUSH TP* <MQUOTE (ANY)>> ; [185]
2154 <PUSH TP* [<(%<TYPE-CODE ATOM>) -1>]> ; [186]
2155 <PUSH TP* <MQUOTE EXIT!-IMAPGEN!-MAPGEN!-PACKAGE>>; [187]
2156 <PUSH TP* <MQUOTE "MAPEX"> -1> ; [188]
2157 <PUSH TP* <MQUOTE "MAPEX">> ; [189]
2159 <PUSH TP* A> ; [188]
2160 <PUSH TP* B> ; [189]
2161 <PUSH TP* <MQUOTE (ATOM)> -1> ; [190]
2162 <PUSH TP* <MQUOTE (ATOM)>> ; [191]
2164 <PUSH TP* [<(%<TYPE-CODE ATOM>) -1>]> ; [192]
2165 <PUSH TP* <MQUOTE APPLTAG!-IMAPGEN!-MAPGEN!-PACKAGE>>; [193]
2166 <PUSH TP* <MQUOTE "MAPAP"> -1> ; [194]
2167 <PUSH TP* <MQUOTE "MAPAP">> ; [195]
2169 <PUSH TP* A> ; [194]
2170 <PUSH TP* B> ; [195]
2171 <PUSH TP* <MQUOTE (ATOM)> -1> ; [196]
2172 <PUSH TP* <MQUOTE (ATOM)>> ; [197]
2174 <PUSH TP* [<(%<TYPE-CODE ATOM>) -1>]> ; [198]
2175 <PUSH TP* <MQUOTE GMF!-IMAPGEN!-MAPGEN!-PACKAGE>> ; [199]
2176 <PUSH TP* <TYPE-WORD UNBOUND>> ; [200]
2177 <PUSH TP* [-1]> ; [201]
2178 <PUSH TP* <MQUOTE (ANY)> -1> ; [202]
2179 <PUSH TP* <MQUOTE (ANY)>> ; [203]
2181 <PUSH TP* (FRM) -5> ; (-5) [204]
2182 <PUSH TP* (FRM) -4> ; (-4) [205]
2183 <MOVE B* (FRM) -5> ; (-5)
2184 <MOVE D* (FRM) -4> ; (-4)
2186 <CAMN D* <MQUOTE FLUSHED!-COMPDEC!-PACKAGE>>
2187 <CAIE O* <TYPE-CODE ATOM>>
2189 <MOVE PVP* <MQUOTE T> -1>
2190 <MOVE TVP* <MQUOTE T>>
2192 TAG10 <MOVE PVP* <TYPE-WORD FALSE>> ; 353
2194 TAG11 <PUSH TP* PVP> ; 355 [206]
2195 <PUSH TP* TVP> ; [207]
2196 <PUSH TP* [<(%<TYPE-CODE ATOM>) -1>]> ; [208]
2197 <PUSH TP* <MQUOTE RTAG!-COMPDEC!-PACKAGE>> ; [209]
2198 <PUSH TP* <MQUOTE "MAP"> -1> ; [210]
2199 <PUSH TP* <MQUOTE "MAP">> ; [211]
2201 <PUSH TP* A> ; [210]
2202 <PUSH TP* B> ; [211]
2203 <PUSH TP* <MQUOTE (ATOM)> -1> ; [212]
2204 <PUSH TP* <MQUOTE (ATOM)>> ; [213]
2206 <PUSH TP* <MQUOTE T> -1> ; [214]
2207 <PUSH TP* <MQUOTE T>> ; [215]
2208 <PUSH TP* <MQUOTE T> -1> ; [216]
2209 <PUSH TP* <MQUOTE T>> ; [217]
2210 <PUSH TP* [<(%<TYPE-CODE ATOM>) -1>]> ; [218]
2211 <PUSH TP* <MQUOTE GSTK!-IMAPGEN!-MAPGEN!-PACKAGE>>; [219]
2212 <PUSH TP* <TYPE-WORD UNBOUND>> ; [220]
2213 <PUSH TP* [-1]> ; [221]
2214 <PUSH TP* <MQUOTE (LIST)> -1> ; [222]
2215 <PUSH TP* <MQUOTE (LIST)>> ; [223]
2220 <MOVE B* (FRM) 64> ; (64)
2221 <ADD B* [<(22) 22>]>
2223 <PUSH TP* <TYPE-WORD FIX>> ; [242]
2224 <PUSH TP* (B) 1> ; [243]
2225 <MOVE B* <MQUOTE TOT-SPEC!-IMAPGEN!-MAPGEN!-PACKAGE>>
2227 <PUSH TP* A> ; [244]
2228 <PUSH TP* B> ; [245]
2231 <MOVE D* (FRM) 64> ; (64)
2232 <ADD D* [<(22) 22>]>
2236 <MOVE B* <MQUOTE PRE!-IMAPGEN!-MAPGEN!-PACKAGE>>
2238 <MOVEI E* (FRM) 217> ; (217)
2239 <MOVE C* <MQUOTE PRE!-IMAPGEN!-MAPGEN!-PACKAGE>>
2240 <MOVE D* <MQUOTE (ANY)>>
2242 <MOVE B* (FRM) -2> ; (-2)
2244 <MOVE D* <TYPE-WORD FALSE>>
2247 TAG17 <MOVE TVP* (B) 1> ; 409
2250 <MOVE O* <TYPE-WORD LIST>>
2251 <MOVEM O* (FRM) 5> ; (5)
2252 <MOVEM B* (FRM) 6> ; (6)
2253 <PUSH TP* (TVP) 4> ; [242]
2254 <PUSH TP* (TVP) 5> ; [243]
2255 <PUSH TP* <MQUOTE <PRIMTYPE LIST>> -1> ; [244]
2256 <PUSH TP* <MQUOTE <PRIMTYPE LIST>>> ; [245]
2259 <CAIN O* <TYPE-CODE FALSE>>
2261 <MOVE B* <TYPE-WORD FALSE>>
2264 TAG15 <MOVE B* <MQUOTE T> -1> ; 426
2265 <MOVE D* <MQUOTE T>>
2268 <MOVE B* (FRM) 6> ; (6)
2271 TAG13 <MOVE B* PVP> ; 433
2272 TAG16 <JUMPGE D* TAG12> ; 434
2273 <MOVE B* <TYPE-WORD FALSE>>
2275 <MOVEM B* (FRM) 207> ; (207)
2276 <MOVEM D* (FRM) 208> ; (208)
2277 TAG12 <MOVE B* (FRM) -2> ; 439 (-2)
2279 <MOVE D* (FRM) 60> ; (60)
2281 <CAIE O* <TYPE-CODE FALSE>>
2283 TAG18 <MOVE D* (FRM) 60> ; 445 (60)
2288 <CAIE O* <TYPE-CODE FALSE>>
2294 <ADD D* [<(18) 18>]>
2300 <CAIE O* <TYPE-CODE FIX>>
2302 TAG21 <GETYP O* (FRM) 113> ; 464 (113)
2303 <CAIN O* <TYPE-CODE FALSE>>
2305 TAG20 <JUMPE B* TAG22> ; 467
2306 <MOVE D* (FRM) 64> ; (64)
2307 <ADD D* [<(20) 20>]>
2313 <CAME D* <MQUOTE DUMMY-MAPF!-COMPDEC!-PACKAGE>>
2315 TAG22 <MOVE D* <MQUOTE T> -1> ; 477
2316 <MOVE PVP* <MQUOTE T>>
2318 TAG19 <MOVE D* <TYPE-WORD FALSE>> ; 480
2320 TAG23 <MOVEM D* (FRM) 193> ; 482 (193)
2321 <MOVEM PVP* (FRM) 194> ; (194)
2325 TAG27 <MOVE TVP* (B) 1> ; 487
2328 <PUSH TP* (TVP) 4> ; [242]
2329 <PUSH TP* (TVP) 5> ; [243]
2330 <MOVE O* <TYPE-WORD LIST>>
2331 <MOVEM O* (FRM) 3> ; (3)
2332 <MOVEM B* (FRM) 4> ; (4)
2334 <PUSH TP* A> ; [242]
2335 <PUSH TP* B> ; [243]
2337 <MOVE B* (FRM) 4> ; (4)
2340 TAG25 <POP P* A> ; 502
2343 <MOVE B* <MQUOTE T> -1>
2344 <MOVE D* <MQUOTE T>>
2346 TAG24 <MOVE B* <TYPE-WORD FALSE>> ; 508
2348 TAG28 <MOVEM B* (FRM) 15> ; 510 (15)
2349 <MOVEM D* (FRM) 16> ; (16)
2350 <GETYP O* (FRM) 199> ; (199)
2351 <CAIN O* <TYPE-CODE FALSE>>
2353 <MOVE PVP* <MQUOTE FLUSHED!-COMPDEC!-PACKAGE> -1>
2354 <MOVE TVP* <MQUOTE FLUSHED!-COMPDEC!-PACKAGE>>
2356 TAG29 <PUSH TP* (FRM) 25> ; 518 (25) [238]
2357 <PUSH TP* (FRM) 26> ; (26) [239]
2358 <PUSH TP* (FRM) -5> ; (-5) [240]
2359 <PUSH TP* (FRM) -4> ; (-4) [241]
2363 TAG30 <MOVEM PVP* (FRM) 163> ; 525 (163)
2364 <MOVEM TVP* (FRM) 164> ; (164)
2365 <MOVEM PVP* (FRM) 197> ; (197)
2366 <MOVEM TVP* (FRM) 198> ; (198)
2367 <GETYP O* (FRM) 219> ; (219)
2368 <CAIE O* <TYPE-CODE FALSE>>
2370 <MOVE B* (FRM) 64> ; (64)
2371 <ADD B* [<(30) 30>]>
2375 <MOVE B* (FRM) 142> ; (142)
2376 <ADD B* [<(26) 26>]>
2380 TAG32 <MOVE B* <TYPE-WORD FALSE>> ; 542
2383 TAG33 <MOVE B* <MQUOTE T> -1> ; 545
2384 <MOVE D* <MQUOTE T>>
2385 TAG34 <PUSH TP* B> ; 547 [238]
2386 <PUSH TP* D> ; [239]
2388 TAG31 <MOVE B* (FRM) 123> ; 550 (123)
2389 <MOVE D* (FRM) 124> ; (124)
2391 <MOVEM B* (FRM) 117> ; (117)
2392 <MOVEM D* (FRM) 118> ; (118)
2393 <MOVE C* <TYPE-WORD FIX>>
2396 <PUSH TP* (FRM) 59> ; (59) [238]
2397 <PUSH TP* (FRM) 60> ; (60) [239]
2398 <PUSH TP* (FRM) 163> ; (163) [240]
2399 <PUSH TP* (FRM) 164> ; (164) [241]
2400 <MOVE D* (FRM) 193> ; (193)
2401 <MOVE PVP* (FRM) 194> ; (194)
2403 <CAIN O* <TYPE-CODE FALSE>>
2405 <MOVE TVP* (FRM) 64> ; (64)
2406 <ADD TVP* [<(20) 20>]>
2407 <JUMPGE TVP* |CERR2 >
2411 <MOVE C* (FRM) 64> ; (64)
2412 <ADD C* [<(20) 20>]>
2417 <MOVE SP* (FRM) 64> ; (64)
2418 <ADD SP* [<(20) 20>]>
2419 <JUMPGE SP* |CERR2 >
2421 <MOVE D* <MQUOTE %<TYPE-W SYMTAB!-COMPDEC!-PACKAGE VECTOR>>>
2423 <MOVEM TVP* (FRM) 18> ; (18)
2424 TAG35 <PUSH TP* D> ; 586 [242]
2425 <PUSH TP* PVP> ; [243]
2426 <PUSH TP* (FRM) 15> ; (15) [244]
2427 <PUSH TP* (FRM) 16> ; (16) [245]
2428 <MOVE D* (FRM) 82> ; (82)
2429 <MOVEM A* (FRM) 123> ; (123)
2430 <MOVEM B* (FRM) 124> ; (124)
2432 <MOVE D* <MQUOTE T> -1>
2433 <MOVE PVP* <MQUOTE T>>
2435 TAG36 <MOVE D* <TYPE-WORD FALSE>> ; 597
2437 TAG37 <PUSH TP* D> ; 599 [246]
2438 <PUSH TP* PVP> ; [247]
2439 <PUSH TP* (FRM) 199> ; (199) [248]
2440 <PUSH TP* (FRM) 200> ; (200) [249]
2441 <MCALL 6 DO-FIRST-SETUP>
2443 <CAIE O* <TYPE-CODE FALSE>>
2445 <MOVE D* (FRM) 60> ; (60)
2449 <MOVE TVP* <MQUOTE T> -1>
2450 <MOVE C* <MQUOTE T>>
2452 TAG39 <MOVE TVP* <TYPE-WORD FALSE>> ; 614
2454 TAG40 <MOVEM TVP* (FRM) 99> ; 616 (99)
2455 <MOVEM C* (FRM) 100> ; (100)
2456 TAG38 <PUSH TP* <TYPE-WORD LIST>> ; 618 [238]
2457 <PUSH TP* (FRM) -2> ; (-2) [239]
2458 <PUSH TP* <MQUOTE T> -1> ; [240]
2459 <PUSH TP* <MQUOTE T>> ; [241]
2460 <PUSH TP* (FRM) 193> ; (193) [242]
2461 <PUSH TP* (FRM) 194> ; (194) [243]
2462 <MOVE D* (FRM) 64> ; (64)
2463 <ADD D* [<(20) 20>]>
2465 <PUSH TP* <TYPE-WORD LIST>> ; [244]
2466 <PUSH TP* (D) 1> ; [245]
2467 <MOVEM A* (FRM) 13> ; (13)
2468 <MOVEM B* (FRM) 14> ; (14)
2469 <MCALL 4 PUSH-STRUCS>
2470 <PUSH TP* (FRM) 59> ; (59) [238]
2471 <PUSH TP* (FRM) 60> ; (60) [239]
2472 <PUSH TP* (FRM) 163> ; (163) [240]
2473 <PUSH TP* (FRM) 164> ; (164) [241]
2474 <MOVE D* (FRM) 193> ; (193)
2475 <MOVE PVP* (FRM) 194> ; (194)
2477 <CAIN O* <TYPE-CODE FALSE>>
2479 <MOVE D* (FRM) 17> ; (17)
2480 <MOVE PVP* (FRM) 18> ; (18)
2481 TAG41 <PUSH TP* D> ; 643 [242]
2482 <PUSH TP* PVP> ; [243]
2483 <PUSH TP* (FRM) 15> ; (15) [244]
2484 <PUSH TP* (FRM) 16> ; (16) [245]
2485 <MOVE D* (FRM) 82> ; (82)
2486 <MOVEM A* (FRM) 75> ; (75)
2487 <MOVEM B* (FRM) 76> ; (76)
2489 <MOVE D* <MQUOTE T> -1>
2490 <MOVE PVP* <MQUOTE T>>
2492 TAG42 <MOVE D* <TYPE-WORD FALSE>> ; 654
2494 TAG43 <PUSH TP* D> ; 656 [246]
2495 <PUSH TP* PVP> ; [247]
2496 <PUSH TP* (FRM) 199> ; (199) [248]
2497 <PUSH TP* (FRM) 200> ; (200) [249]
2498 <MCALL 6 DO-FIRST-SETUP-2>
2499 <GETYP O* (FRM) 193> ; (193)
2500 <CAIN O* <TYPE-CODE FALSE>>
2502 <GETYP O* (FRM) 199> ; (199)
2503 <CAIE O* <TYPE-CODE FALSE>>
2505 <MOVE B* (FRM) 18> ; (18)
2507 <CAIN O* <TYPE-CODE FALSE>>
2511 <MOVEM D* (FRM) 197> ; (197)
2512 <MOVEM PVP* (FRM) 198> ; (198)
2513 TAG44 <MOVE B* (FRM) 64> ; 675 (64)
2514 <ADD B* [<(32) 32>]>
2516 <PUSH TP* <TYPE-WORD ATOM>> ; [238]
2517 <PUSH TP* (B) 1> ; [239]
2518 <MOVE B* (FRM) 64> ; (64)
2519 <ADD B* [<(30) 30>]>
2521 <PUSH TP* (B) > ; [240]
2522 <PUSH TP* (B) 1> ; [241]
2523 <MOVE B* (FRM) 64> ; (64)
2524 <ADD B* [<(34) 34>]>
2526 <PUSH TP* (B) > ; [242]
2527 <PUSH TP* (B) 1> ; [243]
2528 <MCALL 3 BEGIN-FRAME>
2529 <GETYP O* (FRM) 219> ; (219)
2530 <CAIN O* <TYPE-CODE FALSE>>
2532 <MOVE B* (FRM) 36> ; (36)
2534 TAG45 <PUSH TP* (FRM) 123> ; 696 (123) [238]
2535 <PUSH TP* (FRM) 124> ; (124) [239]
2536 <MOVE B* (FRM) 148> ; (148)
2541 <CAIN O* <TYPE-CODE DEFER>>
2543 <PUSH TP* (D) > ; [240]
2544 <PUSH TP* (D) 1> ; [241]
2546 TAG46 <MOVE E* (FRM) 124> ; 708 (124)
2547 <MOVE C* <TYPE-WORD FIX>>
2549 <MOVEM B* (FRM) 130> ; (130)
2552 <MOVE C* <TYPE-WORD FIX>>
2554 <MOVEM A* (FRM) 51> ; (51)
2555 <MOVEM B* (FRM) 52> ; (52)
2556 <MOVEM A* (FRM) 123> ; (123)
2557 <MOVEM B* (FRM) 124> ; (124)
2559 <MOVEM A* (FRM) 123> ; (123)
2560 <MOVEM B* (FRM) 124> ; (124)
2561 <GETYP O* (FRM) 13> ; (13)
2562 <CAIN O* <TYPE-CODE FALSE>>
2564 <PUSH TP* (FRM) 59> ; (59) [238]
2565 <PUSH TP* (FRM) 60> ; (60) [239]
2566 <PUSH TP* (FRM) 113> ; (113) [240]
2567 <PUSH TP* (FRM) 114> ; (114) [241]
2568 <MCALL 2 DO-FINAL-SETUP>
2569 <MOVEM A* (FRM) 153> ; (153)
2570 <MOVEM B* (FRM) 154> ; (154)
2571 TAG47 <PUSH TP* (FRM) 63> ; 733 (63) [238]
2572 <PUSH TP* (FRM) 64> ; (64) [239]
2573 <MCALL 1 PROG-START-AC>
2574 <PUSH TP* (FRM) 107> ; (107) [238]
2575 <PUSH TP* (FRM) 108> ; (108) [239]
2577 <GETYP O* (FRM) 13> ; (13)
2578 <CAIN O* <TYPE-CODE FALSE>>
2580 <GETYP O* (FRM) 193> ; (193)
2581 <CAIE O* <TYPE-CODE FALSE>>
2583 <PUSH TP* (FRM) 55> ; (55) [238]
2584 <PUSH TP* (FRM) 56> ; (56) [239]
2585 <PUSH TP* (FRM) 51> ; (51) [240]
2586 <PUSH TP* (FRM) 52> ; (52) [241]
2587 <GETYP O* (FRM) 219> ; (219)
2588 <CAIN O* <TYPE-CODE FALSE>>
2590 TAG51 <MOVE B* <TYPE-WORD FALSE>> ; 752
2593 TAG49 <MOVE B* (FRM) 64> ; 755 (64)
2594 <ADD B* [<(30) 30>]>
2598 <MOVE B* <MQUOTE T> -1>
2599 <MOVE D* <MQUOTE T>>
2600 TAG50 <PUSH TP* B> ; 762 [242]
2601 <PUSH TP* D> ; [243]
2602 <MCALL 3 FIND-FIRST-STRUC>
2603 <MOVEM A* (FRM) 57> ; (57)
2604 <MOVEM B* (FRM) 58> ; (58)
2605 TAG48 <MOVE B* (FRM) 64> ; 767 (64)
2606 <ADD B* [<(30) 30>]>
2610 <MCALL 0 ACT:INITIAL>
2612 <CAIN O* <TYPE-CODE FALSE>>
2614 <PUSH TP* <TYPE-WORD FIX>> ; [238]
2615 <PUSH TP* [2]> ; [239]
2617 TAG52 <MOVE E* (FRM) 124> ; 779 (124)
2618 <MOVE C* <TYPE-WORD FIX>>
2621 <MOVEM A* (FRM) 95> ; (95)
2622 <MOVEM B* (FRM) 96> ; (96)
2623 <MOVEM A* (FRM) 123> ; (123)
2624 <MOVEM B* (FRM) 124> ; (124)
2625 <GETYP O* (FRM) 219> ; (219)
2626 <CAIE O* <TYPE-CODE FALSE>>
2628 <GETYP O* (FRM) 193> ; (193)
2629 <CAIN O* <TYPE-CODE FALSE>>
2631 <MOVE D* (FRM) 82> ; (82)
2633 TAG54 <MOVE D* (FRM) 64> ; 795 (64)
2634 <ADD D* [<(32) 32>]>
2636 <PUSH TP* <TYPE-WORD ATOM>> ; [238]
2637 <PUSH TP* (D) 1> ; [239]
2638 <MCALL 1 SALLOC:SLOTS>
2639 <MOVE B* (FRM) 64> ; (64)
2640 <ADD B* [<(32) 32>]>
2642 <PUSH TP* <TYPE-WORD ATOM>> ; [238]
2643 <PUSH TP* (B) 1> ; [239]
2645 <GETYP O* (FRM) 219> ; (219)
2646 <CAIE O* <TYPE-CODE FALSE>>
2648 <PUSH TP* <MQUOTE GVAL> -1> ; [238]
2649 <PUSH TP* <MQUOTE GVAL>> ; [239]
2650 <MOVE B* (FRM) 64> ; (64)
2651 <ADD B* [<(32) 32>]>
2653 <PUSH TP* <TYPE-WORD ATOM>> ; [240]
2654 <PUSH TP* (B) 1> ; [241]
2661 <MOVE O* <TYPE-WORD LIST>>
2662 <MOVEM O* (FRM) 1> ; (1)
2663 <MOVEM B* (FRM) 2> ; (2)
2664 <MOVE D* (FRM) 32> ; (32)
2666 <MOVE B* (FRM) 2> ; (2)
2667 <MOVEM B* (FRM) 32> ; (32)
2668 TAG55 <GETYP O* (FRM) 193> ; 830 (193)
2669 <CAIN O* <TYPE-CODE FALSE>>
2671 <MOVE B* (FRM) 123> ; (123)
2672 <MOVE D* (FRM) 124> ; (124)
2674 <MOVEM B* (FRM) 213> ; (213)
2675 <MOVEM D* (FRM) 214> ; (214)
2676 <MOVE C* <TYPE-WORD FIX>>
2679 <MOVEM A* (FRM) 123> ; (123)
2680 <MOVEM B* (FRM) 124> ; (124)
2681 TAG53 <GETYP O* (FRM) 219> ; 843 (219)
2682 <CAIN O* <TYPE-CODE FALSE>>
2684 <GETYP O* (FRM) 193> ; (193)
2685 <CAIN O* <TYPE-CODE FALSE>>
2687 <MOVE B* (FRM) 82> ; (82)
2689 <MOVE B* (FRM) 123> ; (123)
2690 <MOVE D* (FRM) 124> ; (124)
2691 <MOVEM B* (FRM) 213> ; (213)
2692 <MOVEM D* (FRM) 214> ; (214)
2694 <MOVE C* <TYPE-WORD FIX>>
2697 <MOVEM A* (FRM) 123> ; (123)
2698 <MOVEM B* (FRM) 124> ; (124)
2699 TAG56 <GETYP O* (FRM) 153> ; 861 (153)
2700 <CAIN O* <TYPE-CODE FALSE>>
2704 TAG57 <GETYP O* (FRM) 13> ; 866 (13)
2705 <CAIN O* <TYPE-CODE FALSE>>
2709 TAG59 <MOVEI B* 0> ; 871
2710 TAG58 <MOVEM B* (FRM) 70> ; 872 (70)
2711 <GETYP O* (FRM) 193> ; (193)
2712 <CAIN O* <TYPE-CODE FALSE>>
2714 <GETYP O* (FRM) 15> ; (15)
2715 <CAIE O* <TYPE-CODE FALSE>>
2717 <MOVE D* (FRM) 82> ; (82)
2719 TAG61 <GETYP O* (FRM) 199> ; 881 (199)
2720 <CAIE O* <TYPE-CODE FALSE>>
2722 <PUSH TP* (FRM) 17> ; (17) [238]
2723 <PUSH TP* (FRM) 18> ; (18) [239]
2725 TAG60 <MOVE O* <TYPE-WORD LIST>> ; 887
2726 <MOVEM O* (FRM) 223> ; (223)
2727 <MOVE O* (FRM) -2> ; (-2)
2728 <MOVEM O* (FRM) 224> ; (224)
2729 <MOVE B* (FRM) 64> ; (64)
2730 <ADD B* [<(20) 20>]>
2732 <MOVE O* <TYPE-WORD LIST>>
2733 <MOVEM O* (FRM) 225> ; (225)
2735 <MOVEM O* (FRM) 226> ; (226)
2736 <MOVE A* (FRM) 225> ; (225)
2737 <MOVE B* (FRM) 226> ; (226)
2742 TAG62 <PUSH TP* <TYPE-WORD FALSE>> ; 904 [238]
2743 <PUSH TP* [0]> ; [239]
2744 <PUSH TP* (FRM) 225> ; (225) [240]
2745 <PUSH TP* (FRM) 226> ; (226) [241]
2747 TAG66 <MOVE A* (TP) -1> ; 909 (240)
2748 <MOVE B* (TP) > ; (241)
2757 <MOVEM O* (TP) -1> ; (240)
2758 <MOVEM D* (TP) > ; (241)
2761 <SAVAC O* [<(*100*) 0>]>
2764 <CAME PVP* <MQUOTE DUMMY-MAPF!-COMPDEC!-PACKAGE>>
2767 <MOVE O* <TYPE-WORD LIST>>
2768 <MOVEM O* (TP) -3> ; (238)
2769 <MOVEM TVP* (TP) -2> ; (239)
2772 TAG64 <SETZM |DSTORE > ; 934
2773 <MOVE B* (TP) -2> ; (239)
2774 TAG65 <SUB TP* [<(4) 4>]> ; 936
2776 TAG63 <MOVE O* <TYPE-WORD LIST>> ; 938
2777 <MOVEM O* (FRM) 227> ; (227)
2778 <MOVEM B* (FRM) 228> ; (228)
2779 <MOVE C* <TYPE-WORD LIST>>
2784 <MOVE PVP* (FRM) 82> ; (82)
2787 <MOVE C* <TYPE-WORD FIX>>
2790 <MOVEM A* (FRM) 229> ; (229)
2791 <MOVEM B* (FRM) 230> ; (230)
2792 <MOVE C* <TYPE-WORD LIST>>
2796 <MOVE C* <TYPE-WORD FIX>>
2800 <MOVEM A* (FRM) 231> ; (231)
2801 <MOVEM B* (FRM) 232> ; (232)
2802 <MOVE O* <MQUOTE (0)> -1>
2803 <MOVEM O* (FRM) 233> ; (233)
2804 <MOVE O* <MQUOTE (0)>>
2805 <MOVEM O* (FRM) 234> ; (234)
2807 <MOVE B* (FRM) 224> ; (224)
2809 <GETYP O* (FRM) 193> ; (193)
2810 <CAIN O* <TYPE-CODE FALSE>>
2812 <MOVE D* (FRM) 82> ; (82)
2814 <GETYP O* (FRM) 99> ; (99)
2815 <CAIE O* <TYPE-CODE FALSE>>
2817 <GETYP O* (FRM) 199> ; (199)
2818 <CAIE O* <TYPE-CODE FALSE>>
2820 <PUSH TP* (FRM) 197> ; (197) [238]
2821 <PUSH TP* (FRM) 198> ; (198) [239]
2822 <MCALL 1 RET-TMP-AC>
2823 TAG68 <GETYP O* (FRM) 13> ; 986 (13)
2824 <CAIN O* <TYPE-CODE FALSE>>
2826 <GETYP O* (FRM) 57> ; (57)
2827 <CAIE O* <TYPE-CODE FALSE>>
2829 <PUSH TP* (FRM) 55> ; (55) [238]
2830 <PUSH TP* (FRM) 56> ; (56) [239]
2831 <MCALL 1 RET-TMP-AC>
2832 TAG69 <MOVE B* (FRM) 228> ; 995 (228)
2834 TAG71 <MOVE D* (B) 1> ; 997
2836 <SAVAC O* [<(*1200*) *150000*>]>
2837 <MOVE PVP* <MQUOTE %<RGLOC MBINDERS!-MAPGEN!-PACKAGE T>>>
2838 <ADD PVP* |GLOTOP 1>
2839 <MOVE O* <TYPE-WORD LIST>>
2840 <MOVEM O* (FRM) 5> ; (5)
2841 <MOVEM B* (FRM) 6> ; (6)
2845 <MOVE O* <MQUOTE %<TYPE-W SYMTAB!-COMPDEC!-PACKAGE VECTOR>>>
2846 <MOVEM O* (FRM) 1> ; (1)
2847 <MOVEM D* (FRM) 2> ; (2)
2849 <PUSH TP* A> ; [238]
2850 <PUSH TP* B> ; [239]
2851 <PUSH TP* (FRM) 1> ; (1) [240]
2852 <PUSH TP* (FRM) 2> ; (2) [241]
2854 <MOVE B* (FRM) 6> ; (6)
2858 TAG67 <MOVE D* (FRM) 228> ; 1021 (228)
2862 <CAIE O* <MQUOTE %<TYPE-C TEMPV!-COMPDEC!-PACKAGE LIST>>>
2864 <MOVE TVP* <MQUOTE TEMPV!-COMPDEC!-PACKAGE>>
2865 <MOVE C* <TYPE-WORD ATOM>>
2867 TAG72 <MOVE C* <TYPE-WORD FALSE>> ; 1030
2869 TAG73 <MOVEM C* (FRM) 21> ; 1032 (21)
2870 <MOVEM TVP* (FRM) 22> ; (22)
2871 <GETYP O* (FRM) 193> ; (193)
2872 <CAIE O* <TYPE-CODE FALSE>>
2874 <GETYP O* (FRM) 13> ; (13)
2875 <CAIN O* <TYPE-CODE FALSE>>
2877 <GETYP O* (FRM) 57> ; (57)
2878 <CAIN O* <TYPE-CODE FALSE>>
2880 <PUSH TP* (FRM) 57> ; (57) [238]
2881 <PUSH TP* (FRM) 58> ; (58) [239]
2882 <GETYP O* (FRM) 175> ; (175)
2883 <CAIN O* <TYPE-CODE FALSE>>
2885 <MOVSI E* <TYPE-CODE FORM>>
2887 TAG77 <MOVSI E* <TYPE-CODE TIME>> ; 1050
2888 TAG78 <PUSH TP* <MQUOTE %<TYPE-W OPCODE!-OP!-PACKAGE WORD>>>; 1051 [240]
2889 <PUSH TP* E> ; [241]
2890 <GETYP O* (FRM) 175> ; (175)
2891 <CAIN O* <TYPE-CODE FALSE>>
2895 TAG79 <MOVEI E* 0> ; 1058
2896 TAG80 <PUSH TP* <TYPE-WORD FIX>> ; 1059 [242]
2897 <PUSH TP* E> ; [243]
2899 <MOVEM A* (FRM) 3> ; (3)
2900 <MOVEM B* (FRM) 4> ; (4)
2901 <GETYP O* (FRM) 21> ; (21)
2902 <CAIE O* <TYPE-CODE FALSE>>
2904 <PUSH TP* (FRM) 57> ; (57) [238]
2905 <PUSH TP* (FRM) 58> ; (58) [239]
2906 <PUSH TP* <TYPE-WORD FIX>> ; [240]
2907 <PUSH TP* [2]> ; [241]
2910 <MOVEM A* (FRM) 57> ; (57)
2911 <MOVEM B* (FRM) 58> ; (58)
2913 TAG76 <MOVE E* (FRM) 230> ; 1076 (230)
2914 <PUSH TP* <TYPE-WORD FIX>> ; [238]
2915 <PUSH TP* (E) 1> ; [239]
2916 <PUSH TP* (FRM) 55> ; (55) [240]
2917 <PUSH TP* (FRM) 56> ; (56) [241]
2918 <PUSH TP* <MQUOTE VECTOR> -1> ; [242]
2919 <PUSH TP* <MQUOTE VECTOR>> ; [243]
2922 <MOVE A* <TYPE-WORD LIST>>
2926 <PUSH TP* (FRM) 123> ; (123) [244]
2927 <PUSH TP* (FRM) 124> ; (124) [245]
2928 <PUSH TP* (FRM) 95> ; (95) [246]
2929 <PUSH TP* (FRM) 96> ; (96) [247]
2934 <PUSH TP* A> ; [244]
2935 <PUSH TP* B> ; [245]
2936 <MCALL 4 SPEC-OFFPTR>
2937 <MOVEM A* (FRM) 3> ; (3)
2938 <MOVEM B* (FRM) 4> ; (4)
2939 <GETYP O* (FRM) 21> ; (21)
2940 <CAIE O* <TYPE-CODE FALSE>>
2942 <PUSH TP* <TYPE-WORD LIST>> ; [238]
2943 <PUSH TP* (FRM) 230> ; (230) [239]
2944 <MOVE C* <TYPE-WORD FIX>>
2948 <MOVE O* <TYPE-WORD LIST>>
2949 <MOVEM O* (FRM) 5> ; (5)
2950 <MOVEM B* (FRM) 6> ; (6)
2951 <MOVE D* (FRM) 232> ; (232)
2953 <MOVE C* <TYPE-WORD FIX>>
2955 <MOVE O* <TYPE-WORD LIST>>
2956 <MOVEM O* (FRM) 1> ; (1)
2957 <MOVEM B* (FRM) 2> ; (2)
2959 <HRRM B* @ (FRM) 2> ; (2)
2960 <MOVEM B* (FRM) 2> ; (2)
2961 <PUSH TP* <MQUOTE -> -1> ; [240]
2962 <PUSH TP* <MQUOTE ->> ; [241]
2963 <PUSH TP* <TYPE-WORD FIX>> ; [242]
2964 <PUSH TP* [0]> ; [243]
2965 <MOVE B* (FRM) 232> ; (232)
2967 <MOVE A* <TYPE-WORD LIST>>
2978 <HRRM B* @ (FRM) 2> ; (2)
2979 <MOVEM B* (FRM) 2> ; (2)
2980 <PUSH TP* <TYPE-WORD LIST>> ; [240]
2981 <PUSH TP* (FRM) 6> ; (6) [241]
2983 TAG75 <PUSH TP* <MQUOTE -> -1> ; 1146 [238]
2984 <PUSH TP* <MQUOTE ->> ; [239]
2985 <MOVE E* (FRM) 230> ; (230)
2986 <PUSH TP* <TYPE-WORD FIX>> ; [240]
2987 <PUSH TP* (E) 1> ; [241]
2988 <PUSH TP* (FRM) 123> ; (123) [242]
2989 <PUSH TP* (FRM) 124> ; (124) [243]
2990 <PUSH TP* (FRM) 95> ; (95) [244]
2991 <PUSH TP* (FRM) 96> ; (96) [245]
2998 <PUSH TP* A> ; [238]
2999 <PUSH TP* B> ; [239]
3000 <PUSH TP* <MQUOTE %<TYPE-W OPCODE!-OP!-PACKAGE WORD>>>; [240]
3001 <PUSH TP* [<(*13*) 0>]> ; [241]
3002 <MOVE B* (FRM) 230> ; (230)
3004 <MOVE A* <TYPE-WORD LIST>>
3010 <ACALL A* ADDRESS:C>
3011 <PUSH TP* <TYPE-WORD LIST>> ; [238]
3012 <PUSH TP* (FRM) 230> ; (230) [239]
3013 <MOVE C* <TYPE-WORD FIX>>
3016 <MOVEM A* (FRM) 3> ; (3)
3017 <MOVEM B* (FRM) 4> ; (4)
3019 <PUSH TP* A> ; [240]
3020 <PUSH TP* B> ; [241]
3021 TAG81 <MCALL 2 STFIXIT> ; 1184
3022 <MOVEM B* (FRM) 230> ; (230)
3023 TAG74 <MOVE B* (FRM) 228> ; 1186 (228)
3029 <PUSH TP* <MQUOTE ERROR> -1> ; [238]
3030 <PUSH TP* <MQUOTE ERROR>> ; [239]
3031 <PUSH TP* <MQUOTE "NOT IMPLEMENTED MAPF/R TUPLES "> -1>; [240]
3032 <PUSH TP* <MQUOTE "NOT IMPLEMENTED MAPF/R TUPLES ">>; [241]
3034 TAG82 <GETYP O* (FRM) 193> ; 1197 (193)
3035 <CAIN O* <TYPE-CODE FALSE>>
3037 <PUSH TP* <MQUOTE +> -1> ; [238]
3038 <PUSH TP* <MQUOTE +>> ; [239]
3039 <MOVE A* (FRM) 233> ; (233)
3040 <MOVE B* (FRM) 234> ; (234)
3050 <MOVE O* <TYPE-WORD LIST>>
3051 <MOVEM O* (FRM) 5> ; (5)
3052 <MOVEM B* (FRM) 6> ; (6)
3054 TAG83 <PUSH TP* <MQUOTE -> -1> ; 1217 [238]
3055 <PUSH TP* <MQUOTE ->> ; [239]
3056 <PUSH TP* <TYPE-WORD FIX>> ; [240]
3057 <PUSH TP* [0]> ; [241]
3058 <MOVE B* (FRM) 232> ; (232)
3059 <PUSH TP* <TYPE-WORD FIX>> ; [242]
3060 <PUSH TP* (B) 1> ; [243]
3062 <MOVE A* <TYPE-WORD LIST>>
3073 <MOVE O* <TYPE-WORD LIST>>
3074 <MOVEM O* (FRM) 5> ; (5)
3075 <MOVEM B* (FRM) 6> ; (6)
3076 <MOVE C* <TYPE-WORD LIST>>
3079 <MOVE O* <TYPE-WORD LIST>>
3080 <MOVEM O* (FRM) 1> ; (1)
3081 <MOVEM B* (FRM) 2> ; (2)
3083 <MOVE C* <TYPE-WORD FIX>>
3087 <PUSH TP* A> ; [238]
3088 <PUSH TP* B> ; [239]
3089 <PUSH TP* (FRM) 123> ; (123) [240]
3090 <PUSH TP* (FRM) 124> ; (124) [241]
3091 <PUSH TP* (FRM) 95> ; (95) [242]
3092 <PUSH TP* (FRM) 96> ; (96) [243]
3094 <PUSH TP* A> ; [240]
3095 <PUSH TP* B> ; [241]
3097 <MOVE C* <TYPE-WORD FIX>>
3100 <MOVEM B* (FRM) 232> ; (232)
3102 <HRRM B* @ (FRM) 2> ; (2)
3103 <MOVEM B* (FRM) 2> ; (2)
3104 <MOVE B* (FRM) 232> ; (232)
3107 <HRRM PVP* @ (FRM) 2> ; (2)
3108 TAG84 <MOVE D* (FRM) 6> ; 1271 (6)
3109 <MOVE C* <TYPE-WORD LIST>>
3112 <MOVE D* (FRM) 102> ; (102)
3114 <MOVE C* <TYPE-WORD ATOM>>
3118 <PUSH TP* A> ; [238]
3119 <PUSH TP* B> ; [239]
3120 <MOVE A* (FRM) 159> ; (159)
3121 <MOVE B* (FRM) 160> ; (160)
3126 <MOVEM A* (FRM) 159> ; (159)
3127 <MOVEM B* (FRM) 160> ; (160)
3128 <GETYP O* (FRM) 193> ; (193)
3129 <CAIN O* <TYPE-CODE FALSE>>
3131 <MOVE D* (FRM) 224> ; (224)
3134 <PUSH TP* (PVP) 4> ; [238]
3135 <PUSH TP* (PVP) 5> ; [239]
3136 <MOVE A* (FRM) 225> ; (225)
3137 <MOVE B* (FRM) 226> ; (226)
3140 <PUSH TP* A> ; [240]
3141 <PUSH TP* B> ; [241]
3142 <MOVE B* (FRM) 228> ; (228)
3144 <PUSH TP* <MQUOTE %<TYPE-W SYMTAB!-COMPDEC!-PACKAGE VECTOR>>>; [242]
3145 <PUSH TP* (B) 1> ; [243]
3146 <PUSH TP* (FRM) 91> ; (91) [244]
3147 <PUSH TP* (FRM) 92> ; (92) [245]
3148 <MOVE D* (FRM) 102> ; (102)
3150 <PUSH TP* <TYPE-WORD ATOM>> ; [246]
3151 <PUSH TP* (D) 1> ; [247]
3152 <PUSH TP* (FRM) 15> ; (15) [248]
3153 <PUSH TP* (FRM) 16> ; (16) [249]
3154 <PUSH TP* (FRM) 81> ; (81) [250]
3155 <PUSH TP* (FRM) 82> ; (82) [251]
3156 <PUSH TP* (FRM) 111> ; (111) [252]
3157 <PUSH TP* (FRM) 112> ; (112) [253]
3159 <MOVE A* (FRM) 225> ; (225)
3160 <MOVE B* (FRM) 226> ; (226)
3163 <PUSH TP* (FRM) 123> ; (123) [238]
3164 <PUSH TP* (FRM) 124> ; (124) [239]
3165 <PUSH TP* (FRM) 213> ; (213) [240]
3166 <PUSH TP* (FRM) 214> ; (214) [241]
3167 <MOVEM A* (FRM) 225> ; (225)
3168 <MOVEM B* (FRM) 226> ; (226)
3170 <MOVEM A* (FRM) 233> ; (233)
3171 <MOVEM B* (FRM) 234> ; (234)
3173 TAG85 <GETYP O* (FRM) 21> ; 1336 (21)
3174 <CAIN O* <TYPE-CODE FALSE>>
3176 <PUSH TP* (FRM) 63> ; (63) [238]
3177 <PUSH TP* (FRM) 64> ; (64) [239]
3178 <PUSH TP* (FRM) 123> ; (123) [240]
3179 <PUSH TP* (FRM) 124> ; (124) [241]
3181 <MOVE B* (FRM) 224> ; (224)
3184 <PUSH TP* (D) 4> ; [238]
3185 <PUSH TP* (D) 5> ; [239]
3186 <MOVE PVP* (FRM) 228> ; (228)
3187 <JUMPE PVP* |CERR2 >
3188 <PUSH TP* <MQUOTE %<TYPE-W SYMTAB!-COMPDEC!-PACKAGE VECTOR>>>; [240]
3189 <PUSH TP* (PVP) 1> ; [241]
3190 <PUSH TP* <MQUOTE %<TYPE-W NODE!-COMPDEC!-PACKAGE VECTOR>>>; [242]
3191 <PUSH TP* D> ; [243]
3192 <PUSH TP* (FRM) 3> ; (3) [244]
3193 <PUSH TP* (FRM) 4> ; (4) [245]
3194 <PUSH TP* (FRM) 3> ; (3) [246]
3195 <PUSH TP* (FRM) 4> ; (4) [247]
3197 <PUSH TP* A> ; [244]
3198 <PUSH TP* B> ; [245]
3199 <PUSH TP* (FRM) 91> ; (91) [246]
3200 <PUSH TP* (FRM) 92> ; (92) [247]
3201 <MOVE B* (FRM) 102> ; (102)
3203 <PUSH TP* <TYPE-WORD ATOM>> ; [248]
3204 <PUSH TP* (B) 1> ; [249]
3205 <PUSH TP* (FRM) 69> ; (69) [250]
3206 <PUSH TP* (FRM) 70> ; (70) [251]
3208 <PUSH TP* A> ; [242]
3209 <PUSH TP* B> ; [243]
3210 <PUSH TP* (FRM) 91> ; (91) [244]
3211 <PUSH TP* (FRM) 92> ; (92) [245]
3214 TAG87 <MOVE D* (FRM) 228> ; 1377 (228)
3216 <PUSH TP* <MQUOTE %<TYPE-W SYMTAB!-COMPDEC!-PACKAGE VECTOR>>>; [238]
3217 <PUSH TP* (D) 1> ; [239]
3218 <MOVE PVP* (FRM) 224> ; (224)
3219 <JUMPE PVP* |CERR2 >
3220 <PUSH TP* <MQUOTE %<TYPE-W NODE!-COMPDEC!-PACKAGE VECTOR>>>; [240]
3221 <PUSH TP* (PVP) 1> ; [241]
3222 <PUSH TP* (FRM) 3> ; (3) [242]
3223 <PUSH TP* (FRM) 4> ; (4) [243]
3224 <PUSH TP* (FRM) 3> ; (3) [244]
3225 <PUSH TP* (FRM) 4> ; (4) [245]
3227 <PUSH TP* A> ; [242]
3228 <PUSH TP* B> ; [243]
3229 <PUSH TP* (FRM) 91> ; (91) [244]
3230 <PUSH TP* (FRM) 92> ; (92) [245]
3231 <MOVE B* (FRM) 102> ; (102)
3233 <PUSH TP* <TYPE-WORD ATOM>> ; [246]
3234 <PUSH TP* (B) 1> ; [247]
3235 <PUSH TP* (FRM) 69> ; (69) [248]
3236 <PUSH TP* (FRM) 70> ; (70) [249]
3238 <PUSH TP* A> ; [240]
3239 <PUSH TP* B> ; [241]
3241 TAG86 <MOVE B* (FRM) 102> ; 1404 (102)
3244 <MOVE D* (FRM) 224> ; (224)
3247 <MOVE PVP* (FRM) 228> ; (228)
3248 <JUMPE PVP* |CERR2 >
3250 <MOVEM B* (FRM) 102> ; (102)
3251 <MOVEM D* (FRM) 224> ; (224)
3252 <MOVEM PVP* (FRM) 228> ; (228)
3254 TAG70 <GETYP O* (FRM) 193> ; 1417 (193)
3255 <CAIN O* <TYPE-CODE FALSE>>
3257 <GETYP O* (FRM) 15> ; (15)
3258 <CAIE O* <TYPE-CODE FALSE>>
3260 <MOVE B* (FRM) 82> ; (82)
3262 TAG90 <GETYP O* (FRM) 199> ; 1425 (199)
3263 <CAIE O* <TYPE-CODE FALSE>>
3265 <GETYP O* (FRM) 99> ; (99)
3266 <CAIE O* <TYPE-CODE FALSE>>
3268 <MOVE O* (FRM) 17> ; (17)
3269 <MOVEM O* (FRM) 223> ; (223)
3270 <MOVE O* (FRM) 18> ; (18)
3271 <MOVEM O* (FRM) 224> ; (224)
3272 <MOVE B* (FRM) 224> ; (224)
3273 <MOVE O* <MQUOTE T> -1>
3275 <MOVE O* <MQUOTE T>>
3278 <CAIN O* <TYPE-CODE FALSE>>
3282 <CAIE O* <MQUOTE %<TYPE-C AC!-COMPDEC!-PACKAGE VECTOR>>>
3284 <PUSH TP* (D) > ; [238]
3285 <PUSH TP* (D) 1> ; [239]
3286 <PUSH TP* <MQUOTE %<TYPE-W SYMTAB!-COMPDEC!-PACKAGE VECTOR>>>; [240]
3287 <PUSH TP* B> ; [241]
3288 <MCALL 2 FLUSH-RESIDUE>
3289 TAG91 <MOVE B* (FRM) 224> ; 1452 (224)
3293 <CAIE O* <MQUOTE %<TYPE-C AC!-COMPDEC!-PACKAGE VECTOR>>>
3296 <PUSH TP* (PVP) > ; [238]
3297 <PUSH TP* (PVP) 1> ; [239]
3298 <PUSH TP* <MQUOTE %<TYPE-W SYMTAB!-COMPDEC!-PACKAGE VECTOR>>>; [240]
3299 <PUSH TP* B> ; [241]
3300 <MCALL 2 FLUSH-RESIDUE>
3301 TAG92 <MOVE B* (FRM) 224> ; 1464 (224)
3302 <MOVE O* <TYPE-WORD FALSE>>
3305 TAG89 <GETYP O* (FRM) 193> ; 1468 (193)
3306 <CAIN O* <TYPE-CODE FALSE>>
3308 <GETYP O* (FRM) 15> ; (15)
3309 <CAIE O* <TYPE-CODE FALSE>>
3311 <MOVE B* (FRM) 82> ; (82)
3313 <GETYP O* (FRM) 199> ; (199)
3314 <CAIE O* <TYPE-CODE FALSE>>
3316 <PUSH TP* (FRM) 17> ; (17) [238]
3317 <PUSH TP* (FRM) 18> ; (18) [239]
3319 TAG93 <GETYP O* (FRM) 219> ; 1482 (219)
3320 <CAIE O* <TYPE-CODE FALSE>>
3322 <MOVE B* (FRM) 64> ; (64)
3323 <ADD B* [<(26) 26>]>
3325 <MOVE D* <TYPE-WORD FIX>>
3327 <MOVEM D* (FRM) 39> ; (39)
3328 <MOVEM PVP* (FRM) 40> ; (40)
3330 <PUSH TP* D> ; [238]
3331 <PUSH TP* PVP> ; [239]
3332 <MCALL 1 SALLOC:SLOTS>
3333 <PUSH TP* (FRM) 39> ; (39) [238]
3334 <PUSH TP* (FRM) 40> ; (40) [239]
3336 <MOVE B* <MQUOTE T> -1>
3337 <MOVE D* <MQUOTE T>>
3338 <PUSH TP* B> ; [238]
3339 <PUSH TP* D> ; [239]
3340 <MOVEM B* (FRM) 219> ; (219)
3341 <MOVEM D* (FRM) 220> ; (220)
3343 TAG94 <MOVE B* (FRM) 64> ; 1506 (64)
3344 <ADD B* [<(30) 30>]>
3348 <MOVE B* (FRM) 123> ; (123)
3349 <MOVE D* (FRM) 124> ; (124)
3350 <MOVEM B* (FRM) 135> ; (135)
3351 <MOVEM D* (FRM) 136> ; (136)
3352 <GETYP O* (FRM) 157> ; (157)
3353 <CAIE O* <TYPE-CODE FALSE>>
3355 <MOVE PVP* (FRM) 64> ; (64)
3356 <MOVEM PVP* (FRM) 142> ; (142)
3357 TAG95 <MOVE E* (FRM) 124> ; 1520 (124)
3358 <MOVE C* <TYPE-WORD FIX>>
3361 <MOVEM A* (FRM) 123> ; (123)
3362 <MOVEM B* (FRM) 124> ; (124)
3363 <GETYP O* (FRM) 207> ; (207)
3364 <CAIE O* <TYPE-CODE FALSE>>
3365 <MCALL 0 CALL-INTERRUPT>
3366 <GETYP O* (FRM) 91> ; (91)
3367 <CAIN O* <TYPE-CODE FALSE>>
3369 <GETYP O* (FRM) 13> ; (13)
3370 <CAIE O* <TYPE-CODE FALSE>>
3372 <GETYP O* (FRM) 99> ; (99)
3373 <CAIE O* <TYPE-CODE FALSE>>
3375 <GETYP O* (FRM) 199> ; (199)
3376 <CAIN O* <TYPE-CODE FALSE>>
3378 <MOVE B* (FRM) 82> ; (82)
3380 <MOVE B* (FRM) 64> ; (64)
3381 <PUSH TP* <TYPE-WORD LIST>> ; [238]
3382 <PUSH TP* (B) 9> ; [239]
3383 <ADD B* [<(20) 20>]>
3385 <PUSH TP* <TYPE-WORD LIST>> ; [240]
3386 <PUSH TP* (B) 1> ; [241]
3387 <MOVE B* (FRM) -2> ; (-2)
3390 <PUSH TP* (D) 4> ; [242]
3391 <PUSH TP* (D) 5> ; [243]
3393 <PUSH TP* A> ; [242]
3394 <PUSH TP* B> ; [243]
3397 <MOVE B* <TYPE-WORD FALSE>>
3399 <MOVEM B* (FRM) 209> ; (209)
3400 <MOVEM D* (FRM) 210> ; (210)
3402 TAG96 <GETYP O* (FRM) 13> ; 1565 (13)
3403 <CAIE O* <TYPE-CODE FALSE>>
3405 <GETYP O* (FRM) 99> ; (99)
3406 <CAIN O* <TYPE-CODE FALSE>>
3408 TAG98 <MOVE B* (FRM) 64> ; 1571 (64)
3409 <PUSH TP* <TYPE-WORD LIST>> ; [238]
3410 <PUSH TP* (B) 9> ; [239]
3411 <PUSH TP* <MQUOTE %<TYPE-W NODE!-COMPDEC!-PACKAGE VECTOR>>>; [240]
3412 <PUSH TP* B> ; [241]
3413 <PUSH TP* <MQUOTE DONT-CARE!-COMPDEC!-PACKAGE> -1>; [242]
3414 <PUSH TP* <MQUOTE DONT-CARE!-COMPDEC!-PACKAGE>> ; [243]
3416 <PUSH TP* A> ; [240]
3417 <PUSH TP* B> ; [241]
3418 <PUSH TP* <MQUOTE T> -1> ; [242]
3419 <PUSH TP* <MQUOTE T>> ; [243]
3421 TAG103 <MOVEM A* (FRM) 11> ; 1584 (11)
3422 <MOVEM B* (FRM) 12> ; (12)
3424 TAG99 <GETYP O* (FRM) 199> ; 1587 (199)
3425 <CAIE O* <TYPE-CODE FALSE>>
3427 <MOVE B* (FRM) 64> ; (64)
3428 <PUSH TP* <TYPE-WORD LIST>> ; [238]
3429 <PUSH TP* (B) 9> ; [239]
3430 <GETYP O* (FRM) 193> ; (193)
3431 <CAIN O* <TYPE-CODE FALSE>>
3433 <MOVE D* (FRM) 197> ; (197)
3434 <MOVE PVP* (FRM) 198> ; (198)
3436 TAG101 <PUSH TP* <MQUOTE -> -1> ; 1599 [240]
3437 <PUSH TP* <MQUOTE ->> ; [241]
3438 <PUSH TP* <TYPE-WORD FIX>> ; [242]
3439 <PUSH TP* [-1]> ; [243]
3440 <MOVE D* (FRM) 82> ; (82)
3442 <PUSH TP* <TYPE-WORD FIX>> ; [244]
3443 <PUSH TP* D> ; [245]
3444 <PUSH TP* (FRM) 123> ; (123) [246]
3445 <PUSH TP* (FRM) 124> ; (124) [247]
3446 <PUSH TP* (FRM) 95> ; (95) [248]
3447 <PUSH TP* (FRM) 96> ; (96) [249]
3454 <PUSH TP* A> ; [240]
3455 <PUSH TP* B> ; [241]
3456 <PUSH TP* <MQUOTE %<TYPE-W OPCODE!-OP!-PACKAGE WORD>>>; [242]
3457 <PUSH TP* [<(*13*) 0>]> ; [243]
3459 <PUSH TP* A> ; [240]
3460 <PUSH TP* B> ; [241]
3461 <PUSH TP* A> ; [242]
3462 <PUSH TP* B> ; [243]
3466 TAG102 <PUSH TP* D> ; 1629 [240]
3467 <PUSH TP* PVP> ; [241]
3468 <PUSH TP* <MQUOTE T> -1> ; [242]
3469 <PUSH TP* <MQUOTE T>> ; [243]
3471 <MOVEM A* (FRM) 197> ; (197)
3472 <MOVEM B* (FRM) 198> ; (198)
3474 TAG100 <MOVE B* (FRM) 64> ; 1637 (64)
3475 <PUSH TP* <TYPE-WORD LIST>> ; [238]
3476 <PUSH TP* (B) 9> ; [239]
3477 <PUSH TP* <MQUOTE FLUSHED!-COMPDEC!-PACKAGE> -1> ; [240]
3478 <PUSH TP* <MQUOTE FLUSHED!-COMPDEC!-PACKAGE>> ; [241]
3479 <PUSH TP* <MQUOTE T> -1> ; [242]
3480 <PUSH TP* <MQUOTE T>> ; [243]
3482 <PUSH TP* A> ; [238]
3483 <PUSH TP* B> ; [239]
3484 <MOVEM A* (FRM) 11> ; (11)
3485 <MOVEM B* (FRM) 12> ; (12)
3486 <MCALL 1 RET-TMP-AC>
3487 TAG97 <GETYP O* (FRM) 209> ; 1650 (209)
3488 <CAIN O* <TYPE-CODE FALSE>>
3490 <MOVE B* <MQUOTE %<RGLOC NO-DATUM!-COMPDEC!-PACKAGE T>>>
3494 <GETYP O* (FRM) 11> ; (11)
3496 <CAMN PVP* (FRM) 12> ; (12)
3500 <MOVE B* (FRM) 64> ; (64)
3501 <ADD B* [<(30) 30>]>
3506 <PUSH TP* (FRM) 7> ; (7) [238]
3507 <PUSH TP* (FRM) 8> ; (8) [239]
3510 TAG105 <GETYP O* (FRM) 157> ; 1673 (157)
3511 <CAIE O* <TYPE-CODE FALSE>>
3513 <GETYP O* (FRM) 13> ; (13)
3514 <CAIN O* <TYPE-CODE FALSE>>
3516 TAG107 <SKIPL (FRM) 46> ; 1679 (46)
3518 <GETYP O* (FRM) 157> ; (157)
3519 <CAIE O* <TYPE-CODE FALSE>>
3521 <PUSH TP* (FRM) 11> ; (11) [238]
3522 <PUSH TP* (FRM) 12> ; (12) [239]
3523 <MOVE B* <MQUOTE %<RGLOC AC-A!-COMPDEC!-PACKAGE T>>>
3525 <PUSH TP* <MQUOTE %<TYPE-W AC!-COMPDEC!-PACKAGE VECTOR>>>; [240]
3526 <PUSH TP* (B) 1> ; [241]
3527 <MOVE B* <MQUOTE %<RGLOC AC-B!-COMPDEC!-PACKAGE T>>>
3529 <PUSH TP* <MQUOTE %<TYPE-W AC!-COMPDEC!-PACKAGE VECTOR>>>; [242]
3530 <PUSH TP* (B) 1> ; [243]
3532 <PUSH TP* A> ; [240]
3533 <PUSH TP* B> ; [241]
3535 <MOVEM A* (FRM) 11> ; (11)
3536 <MOVEM B* (FRM) 12> ; (12)
3537 TAG109 <PUSH TP* (FRM) 123> ; 1700 (123) [238]
3538 <PUSH TP* (FRM) 124> ; (124) [239]
3539 <PUSH TP* (FRM) 95> ; (95) [240]
3540 <PUSH TP* (FRM) 96> ; (96) [241]
3542 <MOVE B* (FRM) 64> ; (64)
3543 <ADD B* [<(22) 22>]>
3545 <PUSH TP* <TYPE-WORD FIX>> ; [238]
3546 <PUSH TP* (B) 1> ; [239]
3547 <MOVE A* (FRM) 31> ; (31)
3548 <MOVE B* (FRM) 32> ; (32)
3553 <ACALL A* UNBIND:FUNNY>
3555 TAG108 <PUSH TP* (FRM) 123> ; 1718 (123) [238]
3556 <PUSH TP* (FRM) 124> ; (124) [239]
3557 <PUSH TP* (FRM) 51> ; (51) [240]
3558 <PUSH TP* (FRM) 52> ; (52) [241]
3559 <MCALL 2 UNBIND:LOCS>
3560 TAG106 <GETYP O* (FRM) 13> ; 1723 (13)
3561 <CAIN O* <TYPE-CODE FALSE>>
3563 <PUSH TP* (FRM) 153> ; (153) [238]
3564 <PUSH TP* (FRM) 154> ; (154) [239]
3565 <PUSH TP* (FRM) 11> ; (11) [240]
3566 <PUSH TP* (FRM) 12> ; (12) [241]
3567 <MCALL 2 DO-STACK-ARGS>
3569 TAG110 <GETYP O* (FRM) 193> ; 1732 (193)
3570 <CAIN O* <TYPE-CODE FALSE>>
3572 <GETYP O* (FRM) 99> ; (99)
3573 <CAIN O* <TYPE-CODE FALSE>>
3575 <GETYP O* (FRM) 219> ; (219)
3576 <CAIE O* <TYPE-CODE FALSE>>
3578 <MOVE B* (FRM) 31> ; (31)
3579 <MOVE D* (FRM) 32> ; (32)
3582 <MOVE TVP* (FRM) 123> ; (123)
3583 <MOVE C* (FRM) 124> ; (124)
3584 <MOVE E* (FRM) 52> ; (52)
3585 <MOVEM B* (FRM) 19> ; (19)
3586 <MOVEM D* (FRM) 20> ; (20)
3587 <MOVEM E* (FRM) 102> ; (102)
3588 <MOVEM PVP* (FRM) 10> ; (10)
3589 TAG113 <PUSH TP* (FRM) 11> ; 1752 (11) [238]
3590 <PUSH TP* (FRM) 12> ; (12) [239]
3591 <PUSH TP* (FRM) 17> ; (17) [240]
3592 <PUSH TP* (FRM) 18> ; (18) [241]
3593 <PUSH TP* (FRM) 25> ; (25) [242]
3594 <PUSH TP* (FRM) 26> ; (26) [243]
3595 <PUSH TP* (FRM) 59> ; (59) [244]
3596 <PUSH TP* (FRM) 60> ; (60) [245]
3597 <PUSH TP* (FRM) 63> ; (63) [246]
3598 <PUSH TP* (FRM) 64> ; (64) [247]
3599 <MOVE B* (FRM) 64> ; (64)
3600 <ADD B* [<(60) 60>]>
3602 <PUSH TP* <TYPE-WORD LIST>> ; [248]
3603 <PUSH TP* (B) 1> ; [249]
3604 <MCALL 6 DO-EVEN-FUNNIER-HACK>
3606 TAG112 <GETYP O* (FRM) 193> ; 1769 (193)
3607 <CAIN O* <TYPE-CODE FALSE>>
3609 <GETYP O* (FRM) 199> ; (199)
3610 <CAIE O* <TYPE-CODE FALSE>>
3612 <PUSH TP* (FRM) 11> ; (11) [238]
3613 <PUSH TP* (FRM) 12> ; (12) [239]
3614 <MCALL 1 RET-TMP-AC>
3615 <MOVE B* (FRM) 18> ; (18)
3616 <MOVE O* (FRM) 11> ; (11)
3618 <MOVE O* (FRM) 12> ; (12)
3620 <MOVE O* <TYPE-WORD FALSE>>
3623 <MOVE D* (FRM) 12> ; (12)
3625 <CAIE O* <MQUOTE %<TYPE-C AC!-COMPDEC!-PACKAGE VECTOR>>>
3629 <MOVE C* <MQUOTE %<TYPE-W SYMTAB!-COMPDEC!-PACKAGE VECTOR>>>
3631 <MOVE O* <MQUOTE %<TYPE-W AC!-COMPDEC!-PACKAGE VECTOR>>>
3632 <MOVEM O* (FRM) 3> ; (3)
3633 <MOVEM PVP* (FRM) 4> ; (4)
3635 <MOVE D* (FRM) 4> ; (4)
3638 TAG115 <MOVE B* (FRM) 12> ; 1801 (12)
3642 <MOVE C* (FRM) 17> ; (17)
3643 <MOVE D* (FRM) 18> ; (18)
3644 <MOVE O* <MQUOTE %<TYPE-W AC!-COMPDEC!-PACKAGE VECTOR>>>
3645 <MOVEM O* (FRM) 3> ; (3)
3646 <MOVEM PVP* (FRM) 4> ; (4)
3648 <MOVE D* (FRM) 4> ; (4)
3651 <MOVE B* (FRM) 18> ; (18)
3652 <MOVE O* <TYPE-WORD FALSE>>
3655 <MOVE D* (FRM) 64> ; (64)
3656 <ADD D* [<(60) 60>]>
3660 TAG117 <GETYP O* (PVP) 0> ; 1823
3661 <CAIN O* <MQUOTE %<TYPE-C SYMTAB!-COMPDEC!-PACKAGE VECTOR>>>
3667 TAG116 <MOVE D* (FRM) 64> ; 1830 (64)
3668 <ADD D* [<(60) 60>]>
3671 TAG121 <SKIPGE |INTFLG > ; 1834
3672 <SAVAC O* [<(*1500*) *12*>]>
3674 <JUMPE PVP* |CERR2 >
3680 <CAIE O* <MQUOTE %<TYPE-C AC!-COMPDEC!-PACKAGE VECTOR>>>
3684 <MOVE O* <MQUOTE T> -1>
3686 <MOVE O* <MQUOTE T>>
3688 TAG119 <GETYP O* (TVP) 0> ; 1851
3689 <CAIE O* <MQUOTE %<TYPE-C AC!-COMPDEC!-PACKAGE VECTOR>>>
3692 <MOVE O* <MQUOTE T> -1>
3694 <MOVE O* <MQUOTE T>>
3696 TAG120 <JUMPE PVP* |CERR2 > ; 1859
3698 <JUMPE PVP* |CERR2 >
3701 TAG118 <MOVE B* (FRM) 64> ; 1864 (64)
3702 <MOVE C* (FRM) 17> ; (17)
3703 <MOVE D* (FRM) 18> ; (18)
3705 <MOVE O* <MQUOTE %<TYPE-W NODE!-COMPDEC!-PACKAGE VECTOR>>>
3706 <MOVEM O* (FRM) 3> ; (3)
3707 <MOVEM B* (FRM) 4> ; (4)
3709 <MOVE O* <TYPE-WORD LIST>>
3710 <MOVEM O* (FRM) 1> ; (1)
3711 <MOVEM B* (FRM) 2> ; (2)
3712 <MOVE O* <TYPE-WORD LIST>>
3713 <MOVEM O* (FRM) 7> ; (7)
3714 <MOVEM B* (FRM) 8> ; (8)
3715 <MOVE O* <TYPE-WORD UNBOUND>>
3716 <MOVEM O* (FRM) 223> ; (223)
3717 <SETOM (FRM) 224> ; (224)
3718 <MOVE D* (FRM) 26> ; (26)
3719 <PUSH TP* (D) 4> ; [238]
3720 <PUSH TP* (D) 5> ; [239]
3721 <MCALL 1 ISTYPE-GOOD?>
3723 <CAIE O* <TYPE-CODE FALSE>>
3725 <GETYP O* (FRM) -5> ; (-5)
3726 <CAIE O* <MQUOTE %<TYPE-C DATUM!-COMPDEC!-PACKAGE LIST>>>
3728 <MOVE B* (FRM) -4> ; (-4)
3731 <MOVEM D* (FRM) 223> ; (223)
3732 <MOVEM PVP* (FRM) 224> ; (224)
3734 <CAIN O* <MQUOTE %<TYPE-C AC!-COMPDEC!-PACKAGE VECTOR>>>
3737 <PUSH TP* (FRM) 223> ; (223) [238]
3738 <PUSH TP* (FRM) 224> ; (224) [239]
3739 <PUSH TP* <TYPE-WORD FALSE>> ; [240]
3740 <PUSH TP* [0]> ; [241]
3742 <MOVE O* <MQUOTE T> -1>
3744 <MOVE O* <MQUOTE T>>
3747 TAG123 <PUSH TP* <TYPE-WORD FALSE>> ; 1910 [238]
3748 <PUSH TP* [0]> ; [239]
3750 <MOVE O* <MQUOTE T> -1>
3752 <MOVE O* <MQUOTE T>>
3754 <MOVEM A* (FRM) 223> ; (223)
3755 <MOVEM B* (FRM) 224> ; (224)
3756 TAG122 <PUSH TP* A> ; 1919 [238]
3757 <PUSH TP* B> ; [239]
3758 <GETYP O* (FRM) -5> ; (-5)
3759 <CAIE O* <MQUOTE %<TYPE-C DATUM!-COMPDEC!-PACKAGE LIST>>>
3761 <MOVE B* (FRM) -4> ; (-4)
3765 <MOVEM PVP* (FRM) 5> ; (5)
3766 <MOVEM TVP* (FRM) 6> ; (6)
3768 <CAIN O* <MQUOTE %<TYPE-C AC!-COMPDEC!-PACKAGE VECTOR>>>
3771 <PUSH TP* (FRM) 5> ; (5) [240]
3772 <PUSH TP* (FRM) 6> ; (6) [241]
3773 <PUSH TP* <TYPE-WORD FALSE>> ; [242]
3774 <PUSH TP* [0]> ; [243]
3777 TAG124 <PUSH TP* <TYPE-WORD FALSE>> ; 1940 [240]
3778 <PUSH TP* [0]> ; [241]
3780 <MOVEM A* (FRM) 5> ; (5)
3781 <MOVEM B* (FRM) 6> ; (6)
3782 TAG125 <PUSH TP* A> ; 1945 [240]
3783 <PUSH TP* B> ; [241]
3785 <GETYP O* (FRM) 223> ; (223)
3786 <CAIN O* <TYPE-CODE UNBOUND>>
3788 <GETYP O* (FRM) 223> ; (223)
3789 <CAIN O* <MQUOTE %<TYPE-C AC!-COMPDEC!-PACKAGE VECTOR>>>
3790 <MOVE D* <MQUOTE AC!-COMPDEC!-PACKAGE>>
3791 <MOVE D* (FRM) 224> ; (224)
3792 <MOVE O* <TYPE-WORD FALSE>>
3795 TAG126 <MOVE C* A> ; 1958
3799 <HRRM B* @ (FRM) 8> ; (8)
3800 <MOVEM B* (FRM) 8> ; (8)
3801 <MOVE B* (FRM) 64> ; (64)
3802 <ADD B* [<(60) 60>]>
3805 <HRRM D* @ (FRM) 8> ; (8)
3806 <MOVE B* (FRM) 4> ; (4)
3807 <ADD B* [<(60) 60>]>
3809 <MOVE O* (FRM) 2> ; (2)
3811 TAG129 <SKIPGE |INTFLG > ; 1974
3812 <SAVAC O* [*120000*]>
3820 <CAIE O* <MQUOTE %<TYPE-C AC!-COMPDEC!-PACKAGE VECTOR>>>
3824 <MOVE O* <TYPE-WORD FALSE>>
3827 TAG127 <GETYP O* (PVP) 0> ; 1990
3828 <CAIE O* <MQUOTE %<TYPE-C AC!-COMPDEC!-PACKAGE VECTOR>>>
3831 <MOVE O* <TYPE-WORD FALSE>>
3834 TAG128 <JUMPE D* |CERR2 > ; 1997
3839 TAG114 <GETYP O* (FRM) 99> ; 2002 (99)
3840 <CAIN O* <TYPE-CODE FALSE>>
3842 <PUSH TP* (FRM) 11> ; (11) [238]
3843 <PUSH TP* (FRM) 12> ; (12) [239]
3844 <MOVE C* <TYPE-WORD LIST>>
3848 <MOVE D* (FRM) 82> ; (82)
3850 <MOVE C* <TYPE-WORD FIX>>
3853 <PUSH TP* A> ; [240]
3854 <PUSH TP* B> ; [241]
3855 <PUSH TP* (FRM) 25> ; (25) [242]
3856 <PUSH TP* (FRM) 26> ; (26) [243]
3857 <PUSH TP* (FRM) 59> ; (59) [244]
3858 <PUSH TP* (FRM) 60> ; (60) [245]
3859 <PUSH TP* (FRM) 63> ; (63) [246]
3860 <PUSH TP* (FRM) 64> ; (64) [247]
3861 <MCALL 5 DO-FUNNY-HACK>
3862 TAG111 <GETYP O* (FRM) 75> ; 2025 (75)
3863 <CAIN O* <TYPE-CODE FALSE>>
3865 <PUSH TP* <MQUOTE %<TYPE-W OPCODE!-OP!-PACKAGE WORD>>>; [238]
3866 <PUSH TP* [<(*402000*) 0>]> ; [239]
3867 <PUSH TP* (FRM) 69> ; (69) [240]
3868 <PUSH TP* (FRM) 70> ; (70) [241]
3869 <PUSH TP* <MQUOTE %<TYPE-W OPCODE!-OP!-PACKAGE WORD>>>; [242]
3870 <PUSH TP* [<(*17*) 0>]> ; [243]
3873 <PUSH TP* A> ; [238]
3874 <PUSH TP* B> ; [239]
3876 TAG130 <GETYP O* (FRM) 219> ; 2039 (219)
3877 <CAIE O* <TYPE-CODE FALSE>>
3879 <GETYP O* (FRM) 193> ; (193)
3880 <CAIN O* <TYPE-CODE FALSE>>
3882 <GETYP O* (FRM) 99> ; (99)
3883 <CAIE O* <TYPE-CODE FALSE>>
3885 TAG131 <MOVE B* (FRM) 31> ; 2048 (31)
3886 <MOVE D* (FRM) 32> ; (32)
3889 <MOVE TVP* (FRM) 52> ; (52)
3890 <MOVEM B* (FRM) 19> ; (19)
3891 <MOVEM D* (FRM) 20> ; (20)
3892 <MOVEM PVP* (FRM) 10> ; (10)
3893 <MOVEM TVP* (FRM) 102> ; (102)
3894 TAG104 <GETYP O* (FRM) 209> ; 2057 (209)
3895 <CAIN O* <TYPE-CODE FALSE>>
3897 <PUSH TP* (FRM) 63> ; (63) [238]
3898 <PUSH TP* (FRM) 64> ; (64) [239]
3899 <MOVE B* (FRM) 193> ; (193)
3900 <MOVE D* (FRM) 194> ; (194)
3902 <CAIN O* <TYPE-CODE FALSE>>
3904 <MOVE PVP* (FRM) 82> ; (82)
3906 <MOVE B* <MQUOTE T> -1>
3907 <MOVE D* <MQUOTE T>>
3909 TAG134 <MOVE B* <TYPE-WORD FALSE>> ; 2072
3911 TAG133 <PUSH TP* B> ; 2074 [240]
3912 <PUSH TP* D> ; [241]
3914 <PUSH TP* (FRM) 203> ; (203) [238]
3915 <PUSH TP* (FRM) 204> ; (204) [239]
3917 <GETYP O* (FRM) 193> ; (193)
3918 <CAIN O* <TYPE-CODE FALSE>>
3920 <MOVE B* (FRM) 64> ; (64)
3921 <ADD B* [<(20) 20>]>
3923 <PUSH TP* <TYPE-WORD LIST>> ; [238]
3924 <PUSH TP* (B) 1> ; [239]
3925 <PUSH TP* <TYPE-WORD LIST>> ; [240]
3926 <PUSH TP* (FRM) -2> ; (-2) [241]
3927 <MOVE B* (FRM) 64> ; (64)
3928 <ADD B* [<(60) 60>]>
3930 <PUSH TP* <TYPE-WORD LIST>> ; [242]
3931 <PUSH TP* (B) 1> ; [243]
3932 <PUSH TP* (FRM) 81> ; (81) [244]
3933 <PUSH TP* (FRM) 82> ; (82) [245]
3934 <PUSH TP* (FRM) 111> ; (111) [246]
3935 <PUSH TP* (FRM) 112> ; (112) [247]
3936 <PUSH TP* (FRM) 91> ; (91) [248]
3937 <PUSH TP* (FRM) 92> ; (92) [249]
3938 <MCALL 6 REST-STRUCS>
3939 TAG135 <GETYP O* (FRM) 193> ; 2102 (193)
3940 <CAIN O* <TYPE-CODE FALSE>>
3942 <MOVE B* (FRM) 82> ; (82)
3944 TAG136 <PUSH TP* (FRM) 107> ; 2107 (107) [238]
3945 <PUSH TP* (FRM) 108> ; (108) [239]
3946 <MCALL 1 BRANCH:TAG>
3947 TAG137 <PUSH TP* (FRM) 159> ; 2110 (159) [238]
3948 <PUSH TP* (FRM) 160> ; (160) [239]
3949 <PUSH TP* (FRM) 45> ; (45) [240]
3950 <PUSH TP* (FRM) 46> ; (46) [241]
3952 <GETYP O* (FRM) 193> ; (193)
3953 <CAIN O* <TYPE-CODE FALSE>>
3955 <GETYP O* (FRM) 219> ; (219)
3956 <CAIE O* <TYPE-CODE FALSE>>
3958 <MOVE B* (FRM) 214> ; (214)
3959 <MOVE D* (FRM) 20> ; (20)
3960 <MOVEM B* (FRM) 124> ; (124)
3961 <MOVEM D* (FRM) 32> ; (32)
3962 TAG138 <GETYP O* (FRM) 193> ; 2125 (193)
3963 <CAIN O* <TYPE-CODE FALSE>>
3965 <MOVE B* (FRM) 82> ; (82)
3967 <GETYP O* (FRM) 157> ; (157)
3968 <CAIE O* <TYPE-CODE FALSE>>
3970 <GETYP O* (FRM) 13> ; (13)
3971 <CAIN O* <TYPE-CODE FALSE>>
3973 TAG140 <PUSH TP* (FRM) 123> ; 2136 (123) [238]
3974 <PUSH TP* (FRM) 124> ; (124) [239]
3975 <PUSH TP* (FRM) 95> ; (95) [240]
3976 <PUSH TP* (FRM) 96> ; (96) [241]
3978 <MOVE B* (FRM) 64> ; (64)
3979 <ADD B* [<(22) 22>]>
3981 <PUSH TP* <TYPE-WORD FIX>> ; [238]
3982 <PUSH TP* (B) 1> ; [239]
3983 <MOVE A* (FRM) 31> ; (31)
3984 <MOVE B* (FRM) 32> ; (32)
3989 <ACALL A* UNBIND:FUNNY>
3991 TAG141 <PUSH TP* (FRM) 123> ; 2154 (123) [238]
3992 <PUSH TP* (FRM) 124> ; (124) [239]
3993 <PUSH TP* (FRM) 51> ; (51) [240]
3994 <PUSH TP* (FRM) 52> ; (52) [241]
3995 <MCALL 2 UNBIND:LOCS>
3996 TAG139 <MOVE B* (FRM) -2> ; 2159 (-2)
3998 TAG144 <MOVE D* (B) 1> ; 2161
4000 <SAVAC O* [<(*1200*) *150000*>]>
4001 <MOVE O* <TYPE-WORD LIST>>
4002 <MOVEM O* (FRM) 7> ; (7)
4003 <MOVEM B* (FRM) 8> ; (8)
4004 <PUSH TP* (D) 4> ; [238]
4005 <PUSH TP* (D) 5> ; [239]
4007 <PUSH TP* A> ; [238]
4008 <PUSH TP* B> ; [239]
4011 <CAIE O* <TYPE-CODE FALSE>>
4013 <PUSH TP* <MQUOTE <`SETZM |DSTORE >> -1> ; [238]
4014 <PUSH TP* <MQUOTE <`SETZM |DSTORE >>> ; [239]
4017 TAG143 <MOVE B* (FRM) 8> ; 2180 (8)
4021 TAG132 <PUSH TP* (FRM) 159> ; 2184 (159) [238]
4022 <PUSH TP* (FRM) 160> ; (160) [239]
4023 <PUSH TP* (FRM) 45> ; (45) [240]
4024 <PUSH TP* (FRM) 46> ; (46) [241]
4026 TAG142 <PUSH TP* (FRM) 63> ; 2189 (63) [238]
4027 <PUSH TP* (FRM) 64> ; (64) [239]
4028 <MCALL 1 CLEANUP-STATE>
4029 <PUSH TP* (FRM) 187> ; (187) [238]
4030 <PUSH TP* (FRM) 188> ; (188) [239]
4032 <GETYP O* (FRM) 163> ; (163)
4033 <CAIE O* <MQUOTE %<TYPE-C DATUM!-COMPDEC!-PACKAGE LIST>>>
4035 <GETYP O* (FRM) 13> ; (13)
4036 <CAIN O* <TYPE-CODE FALSE>>
4038 <PUSH TP* (FRM) 113> ; (113) [238]
4039 <PUSH TP* (FRM) 114> ; (114) [239]
4040 <PUSH TP* (FRM) 153> ; (153) [240]
4041 <PUSH TP* (FRM) 154> ; (154) [241]
4042 <MOVE A* (FRM) 163> ; (163)
4043 <MOVE B* (FRM) 164> ; (164)
4049 <PUSH TP* A> ; [242]
4050 <PUSH TP* B> ; [243]
4053 TAG146 <GETYP O* (FRM) 99> ; 2216 (99)
4054 <CAIN O* <TYPE-CODE FALSE>>
4056 <GETYP O* (FRM) 193> ; (193)
4057 <CAIN O* <TYPE-CODE FALSE>>
4059 <PUSH TP* (FRM) 17> ; (17) [238]
4060 <PUSH TP* (FRM) 18> ; (18) [239]
4061 <PUSH TP* <TYPE-WORD FALSE>> ; [240]
4062 <PUSH TP* [0]> ; [241]
4063 <PUSH TP* <TYPE-WORD FALSE>> ; [242]
4064 <PUSH TP* [0]> ; [243]
4066 <PUSH TP* A> ; [238]
4067 <PUSH TP* B> ; [239]
4068 <MOVE A* (FRM) 163> ; (163)
4069 <MOVE B* (FRM) 164> ; (164)
4075 TAG148 <GETYP O* (FRM) 99> ; 2238 (99)
4076 <CAIN O* <TYPE-CODE FALSE>>
4078 <PUSH TP* (FRM) 59> ; (59) [238]
4079 <PUSH TP* (FRM) 60> ; (60) [239]
4081 <MOVE D* (FRM) 82> ; (82)
4084 <PUSH TP* <TYPE-WORD FIX>> ; [240]
4085 <PUSH TP* B> ; [241]
4086 <MOVE A* (FRM) 163> ; (163)
4087 <MOVE B* (FRM) 164> ; (164)
4093 <PUSH TP* A> ; [242]
4094 <PUSH TP* B> ; [243]
4095 <MCALL 3 DO-FUNNY-LAST>
4097 TAG150 <GETYP O* (FRM) 193> ; 2260 (193)
4098 <CAIN O* <TYPE-CODE FALSE>>
4100 <PUSH TP* (FRM) 197> ; (197) [238]
4101 <PUSH TP* (FRM) 198> ; (198) [239]
4102 <MOVE A* (FRM) 163> ; (163)
4103 <MOVE B* (FRM) 164> ; (164)
4109 TAG151 <MOVNI B* 1 > ; 2272
4110 <MOVE D* (FRM) 82> ; (82)
4113 <PUSH TP* <TYPE-WORD FIX>> ; [238]
4114 <PUSH TP* B> ; [239]
4115 <PUSH TP* <MQUOTE %<TYPE-W OPCODE!-OP!-PACKAGE WORD>>>; [240]
4116 <PUSH TP* [<(*13*) 0>]> ; [241]
4118 <PUSH TP* A> ; [238]
4119 <PUSH TP* B> ; [239]
4120 <PUSH TP* A> ; [240]
4121 <PUSH TP* B> ; [241]
4123 <PUSH TP* A> ; [238]
4124 <PUSH TP* B> ; [239]
4125 <MOVE A* (FRM) 163> ; (163)
4126 <MOVE B* (FRM) 164> ; (164)
4131 TAG149 <ACALL A* DATUM> ; 2294
4132 <PUSH TP* A> ; [240]
4133 <PUSH TP* B> ; [241]
4135 TAG147 <PUSH TP* (FRM) 163> ; 2298 (163) [238]
4136 <PUSH TP* (FRM) 164> ; (164) [239]
4137 <PUSH TP* A> ; [240]
4138 <PUSH TP* B> ; [241]
4139 <MOVEM A* (FRM) 169> ; (169)
4140 <MOVEM B* (FRM) 170> ; (170)
4142 <MOVE B* (FRM) 164> ; (164)
4143 <PUSH TP* (B) > ; [238]
4144 <PUSH TP* (B) 1> ; [239]
4147 <CAIN O* <TYPE-CODE FALSE>>
4149 <MOVE B* (FRM) 170> ; (170)
4151 <CAIE O* <MQUOTE %<TYPE-C AC!-COMPDEC!-PACKAGE VECTOR>>>
4153 <PUSH TP* (B) > ; [238]
4154 <PUSH TP* (B) 1> ; [239]
4155 <PUSH TP* <MQUOTE %<TYPE-W DATUM!-COMPDEC!-PACKAGE LIST>>>; [240]
4156 <PUSH TP* B> ; [241]
4157 <MCALL 2 RET-TMP-AC>
4159 TAG145 <GETYP O* (FRM) 13> ; 2322 (13)
4160 <CAIN O* <TYPE-CODE FALSE>>
4162 <PUSH TP* (FRM) 113> ; (113) [238]
4163 <PUSH TP* (FRM) 114> ; (114) [239]
4164 <PUSH TP* (FRM) 153> ; (153) [240]
4165 <PUSH TP* (FRM) 154> ; (154) [241]
4166 <MCALL 0 FUNCTION:VALUE>
4167 <PUSH TP* A> ; [242]
4168 <PUSH TP* B> ; [243]
4171 TAG153 <GETYP O* (FRM) 99> ; 2334 (99)
4172 <CAIN O* <TYPE-CODE FALSE>>
4174 <GETYP O* (FRM) 193> ; (193)
4175 <CAIN O* <TYPE-CODE FALSE>>
4177 TAG156 <PUSH TP* (FRM) 197> ; 2340 (197) [238]
4178 <PUSH TP* (FRM) 198> ; (198) [239]
4179 <MCALL 0 FUNCTION:VALUE>
4180 <PUSH TP* A> ; [240]
4181 <PUSH TP* B> ; [241]
4184 TAG154 <GETYP O* (FRM) 193> ; 2347 (193)
4185 <CAIN O* <TYPE-CODE FALSE>>
4187 <GETYP O* (FRM) 99> ; (99)
4188 <CAIE O* <TYPE-CODE FALSE>>
4190 TAG155 <GETYP O* (FRM) 99> ; 2353 (99)
4191 <CAIN O* <TYPE-CODE FALSE>>
4193 <PUSH TP* (FRM) 59> ; (59) [238]
4194 <PUSH TP* (FRM) 60> ; (60) [239]
4196 <MOVE D* (FRM) 82> ; (82)
4199 <PUSH TP* <TYPE-WORD FIX>> ; [240]
4200 <PUSH TP* B> ; [241]
4201 <MCALL 0 FUNCTION:VALUE>
4202 <PUSH TP* A> ; [242]
4203 <PUSH TP* B> ; [243]
4204 <MCALL 3 DO-FUNNY-LAST>
4205 TAG152 <PUSH TP* (FRM) 51> ; 2368 (51) [238]
4206 <PUSH TP* (FRM) 52> ; (52) [239]
4207 <PUSH TP* (FRM) 117> ; (117) [240]
4208 <PUSH TP* (FRM) 118> ; (118) [241]
4210 <PUSH TP* (FRM) 181> ; (181) [238]
4211 <PUSH TP* (FRM) 182> ; (182) [239]
4213 <MOVEI E* (FRM) 217> ; (217)
4215 <GETYP O* (FRM) 169> ; (169)
4216 <CAIN O* <TYPE-CODE UNBOUND>>
4218 <MOVE B* (FRM) 164> ; (164)
4220 <CAIE O* <MQUOTE %<TYPE-C AC!-COMPDEC!-PACKAGE VECTOR>>>
4222 <PUSH TP* (B) > ; [238]
4223 <PUSH TP* (B) 1> ; [239]
4224 <PUSH TP* <MQUOTE %<TYPE-W DATUM!-COMPDEC!-PACKAGE LIST>>>; [240]
4225 <PUSH TP* B> ; [241]
4226 <PUSH TP* (FRM) 169> ; (169) [242]
4227 <PUSH TP* (FRM) 170> ; (170) [243]
4228 <MCALL 3 FIX-ACLINK>
4229 TAG158 <MOVE B* (FRM) 164> ; 2392 (164)
4232 <CAIE O* <MQUOTE %<TYPE-C AC!-COMPDEC!-PACKAGE VECTOR>>>
4235 <PUSH TP* (D) > ; [238]
4236 <PUSH TP* (D) 1> ; [239]
4237 <PUSH TP* <MQUOTE %<TYPE-W DATUM!-COMPDEC!-PACKAGE LIST>>>; [240]
4238 <PUSH TP* B> ; [241]
4239 <PUSH TP* (FRM) 169> ; (169) [242]
4240 <PUSH TP* (FRM) 170> ; (170) [243]
4241 <MCALL 3 FIX-ACLINK>
4242 TAG157 <MOVE B* (FRM) 104> ; 2405 (104)
4243 <PUSH TP* (FRM) 163> ; (163) [238]
4244 <PUSH TP* (FRM) 164> ; (164) [239]
4245 <PUSH TP* (FRM) -5> ; (-5) [240]
4246 <PUSH TP* (FRM) -4> ; (-4) [241]
4247 <MOVEM B* (FRM) 124> ; (124)
4249 <MOVEM A* (FRM) 9> ; (9)
4250 <MOVEM B* (FRM) 10> ; (10)
4252 <MOVE A* (FRM) 9> ; (9)
4253 <MOVE B* (FRM) 10> ; (10)
4271 TAG14 <(*1200*) 0> ; 2434
4276 <IMULI TB* (FRM) 113> ; (113)
4278 TAG26 <(*1200*) 4> ; 2441
4280 <IMULI TB* (FRM) 199> ; (199)
4281 <IMULI TB* (FRM) 219> ; (219)
4285 <IMULI TB* (FRM) 193> ; (193)
4290 <IMULI TB* (FRM) 13> ; (13)
4292 <IMULI TB* (FRM) 153> ; (153)
4293 <IMULI TB* (FRM) 15> ; (15)
4296 <IMULI TB* (FRM) 99> ; (99)
4297 <IMULI TB* (FRM) 57> ; (57)
4299 <IMULI TB* (PVP) 14>
4300 <IMULI TB* (FRM) 175> ; (175)
4301 <IMULI TB* (FRM) 21> ; (21)
4306 <IMULI TB* (FRM) 157> ; (157)
4307 <IMULI TB* (FRM) 207> ; (207)
4308 <IMULI TB* (FRM) 91> ; (91)
4309 <IMULI TB* (FRM) 209> ; (209)
4310 <IMULI TB* (FRM) 11> ; (11)
4315 <IMULI TB* (FRM) -5> ; (-5)
4316 <IMULI TB* (FRM) 223> ; (223)
4320 <IMULI TB* (FRM) 75> ; (75)
4323 <IMULI TB* (FRM) 163> ; (163)
4324 <IMULI TB* (FRM) 169> ; (169)
4326 <(*56132*) *551434*>