<mdl.comp>/undassm.crud.2

   1 <DEFINE MERGE-STATE (STATV)
   2    #DECL ((STATV) SAVED-STATE)
   3    <MAPF <>
   4     <FUNCTION (STATV
   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>]>)
  12        <MAPF <>
  13         <FUNCTION (ACX
  14                    "AUX" (SYMT <1 .ACX>) (INAC <2 .ACX>) (OINAC <SINACS .SYMT>)
  15                          (TEM <>) (PMERG T))
  16                 #DECL ((ACX) <LIST SYMBOL ANY>
  17                        (SYMT) SYMBOL
  18                        (INAC OINAC) <PRIMTYPE LIST>)
  19                 <COND (<TYPE? .SYMT SYMTAB>
  20                        <COND (<STORED .SYMT>
  21                               <PUT .SYMT
  22                                    ,STORED
  23                                    <GET-STORED .SYMT <3 .ACX> <4 .ACX>>>)>
  24                        <COND (<AND <SS-POTENT-SLOT .ACX> <NOT <PROG-AC .SYMT>>>
  25                               <SET PMERG <>>)>)>
  26                 <COND
  27                  (<AND <MEMQ .SYMT .STATAC>
  28                        .OINAC
  29                        .INAC
  30                        .PMERG
  31                        <==? <DATVAL .INAC> <DATVAL .OINAC>>
  32                        <OR <==? <DATTYP .INAC> <DATTYP .OINAC>>
  33                            <AND <TYPE? .SYMT SYMTAB>
  34                                 <SET TEM
  35                                      <ISTYPE? <1 <CHTYPE <DECL-SYM .SYMT>
  36                                                          LIST>>>>
  37                                 <OR <==? <DATTYP .INAC> .TEM>
  38                                     <==? <DATTYP .OINAC> .TEM>>>>>
  39                   <SET NRES (.SYMT !.NRES)>
  40                   <SET NINACS
  41                        ((.SYMT <DATUM <OR .TEM <DATTYP .INAC>> <DATVAL .INAC>>)
  42                         !.NINACS)>
  43                   <COND (<AND .TEM
  44                               <OR <TYPE? <SET TEM <DATTYP .INAC>> AC>
  45                                   <TYPE? <SET TEM <DATTYP .OINAC>> AC>>>
  46                          <FLUSH-RESIDUE .TEM .SYMT>)>)>
  47                 <COND (<AND .OINAC
  48                             <OR <==? .AC <DATTYP .OINAC>>
  49                                 <==? .AC <DATVAL .OINAC>>>>
  50                        <SMASH-INACS .SYMT <> <>>)>>
  51         .DATS>
  52        <MAPF <>
  53              <FUNCTION (SYMT)
  54                      #DECL ((SYMT) SYMBOL)
  55                      <SMASH-INACS .SYMT <> <>>>
  56              <ACRESIDUE .AC>>
  57        <PUT .AC ,ACRESIDUE <COND (<NOT <EMPTY? .NRES>> .NRES)>>
  58        <MAPF <>
  59              <FUNCTION (SYMB "AUX" (SYMT <1 .SYMB>) (ELEIN <2 .SYMB>))
  60                      #DECL ((SYMT) SYMBOL)
  61                      <SMASH-INACS .SYMT .ELEIN>>
  62              .NINACS>>
  63     .STATV>>
  64
  65         <TITLE MERGE-STATE>
  66
  67         <DECLARE ("VALUE" <OR COMMON!-COMPDEC!-PACKAGE FALSE
  68 SYMTAB!-COMPDEC!-PACKAGE TEMP!-COMPDEC!-PACKAGE> SAVED-STATE!-COMPDEC!-PACKAGE)>
  69         <PUSH   TP* (AB) >
  70         <PUSH   TP* (AB) 1>
  71         <PUSHJ  P* TAG1>
  72         <JRST   |FINIS >
  73 TAG1    <SUBM   M* (P) >                                    ; 4
  74         <PUSH   TP* <MQUOTE %<TYPE-W SAVED-STATE!-COMPDEC!-PACKAGE LIST>>>; [2]
  75         <PUSH   TP* [0]>                                    ; [3]
  76         <INTGO>
  77         <MOVE   B* (TP) -2>                                 ; (1)
  78         <MOVEM  B* (TP) >                                   ; (3)
  79         <MOVE   A* <TYPE-WORD FALSE>>
  80         <MOVEI  B* 0>
  81         <MOVE   D* (TP) >                                   ; (3)
  82         <JUMPE  D* TAG2>
  83 TAG25   <PUSH   TP* [0]>                                    ; 15 [4]
  84         <PUSH   TP* [0]>                                    ; [5]
  85         <MOVE   PVP* (D) 1>
  86         <PUSH   TP* <MQUOTE %<TYPE-W AC!-COMPDEC!-PACKAGE VECTOR>>>; [6]
  87         <PUSH   TP* (PVP) 1>                                ; [7]
  88         <HRRZ   TVP* (PVP) >
  89         <HRRZ   TVP* (TVP) >
  90         <PUSH   TP* <TYPE-WORD LIST>>                       ; [8]
  91         <PUSH   TP* TVP>                                    ; [9]
  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]
  96         <PUSH   TP* [0]>                                    ; [13]
  97         <PUSH   TP* <TYPE-WORD LIST>>                       ; [14]
  98         <PUSH   TP* [0]>                                    ; [15]
  99         <SKIPGE |INTFLG >
 100         <TAG3>
 101         <MOVE   B* (TP) -6>                                 ; (9)
 102         <MOVEM  D* (TP) -12>                                ; (3)
 103         <JUMPE  B* TAG4>
 104 TAG17   <PUSH   TP* <TYPE-WORD LIST>>                       ; 36 [16]
 105         <PUSH   TP* [0]>                                    ; [17]
 106         <PUSH   TP* [0]>                                    ; [18]
 107         <PUSH   TP* [0]>                                    ; [19]
 108         <MOVE   E* (B) 1>
 109         <PUSH   TP* (E) >                                   ; [20]
 110         <PUSH   TP* (E) 1>                                  ; [21]
 111         <HRRZ   TVP* (E) >
 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)
 120         <MCALL  1 SINACS>
 121         <PUSH   TP* A>                                      ; [24]
 122         <PUSH   TP* B>                                      ; [25]
 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]
 127         <INTGO>
 128         <GETYP  O* (TP) -9>                                 ; (20)
 129         <CAIE   O* <MQUOTE %<TYPE-C SYMTAB!-COMPDEC!-PACKAGE VECTOR>>>
 130         <JRST   TAG5>
 131         <MOVE   B* (TP) -8>                                 ; (21)
 132         <SKIPL  (B) 27>
 133         <JRST   TAG6>
 134         <PUSH   TP* <MQUOTE %<TYPE-W SYMTAB!-COMPDEC!-PACKAGE VECTOR>>>; [30]
 135         <PUSH   TP* B>                                      ; [31]
 136         <MOVE   D* (TP) -14>                                ; (17)
 137         <JUMPE  D* |CERR2 >
 138         <HRRZ   PVP* (D) >
 139         <JUMPE  PVP* |CERR2 >
 140         <HRRZ   PVP* (PVP) >
 141         <JUMPE  PVP* |CERR2 >
 142         <PUSH   TP* (PVP) >                                 ; [32]
 143         <PUSH   TP* (PVP) 1>                                ; [33]
 144         <MOVEI  PVP* 3 >
 145 TAG7    <JUMPE  D* |CERR2 >                                 ; 78
 146         <HRRZ   D* (D) >
 147         <SOJG   PVP* TAG7>
 148         <JUMPE  D* |CERR2 >
 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)
 154         <MCALL  3 GET-STORED>
 155         <MOVE   D* (TP) -10>                                ; (19)
 156         <MOVEM  A* (D) 26>
 157         <MOVEM  B* (D) 27>
 158 TAG6    <MOVE   B* (TP) -12>                                ; 91 (17)
 159         <MOVEI  D* 3 >
 160 TAG8    <JUMPE  B* |CERR2 >                                 ; 93
 161         <HRRZ   B* (B) >
 162         <SOJG   D* TAG8>
 163         <JUMPE  B* |CERR2 >
 164         <GETYP  O* (B) 0>
 165         <CAIN   O* <TYPE-CODE DEFER>>
 166         <MOVE   B* (B) 1>
 167         <GETYP  O* (B) 0>
 168         <CAIN   O* <TYPE-CODE FALSE>>
 169         <JRST   TAG5>
 170         <MOVE   B* (TP) -8>                                 ; (21)
 171         <GETYP  O* (B) 32>
 172         <CAIE   O* <TYPE-CODE FALSE>>
 173         <JRST   TAG5>
 174         <MOVE   B* <TYPE-WORD FALSE>>
 175         <MOVEI  D* 0>
 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)
 181         <JUMPE  B* TAG9>
 182 TAG11   <GETYP  O* (B) 0>                                   ; 115
 183         <CAIN   O* (PVP) 0>
 184         <CAME   D* (B) 1>
 185         <SKIPA  O>
 186         <JRST   TAG10>
 187         <HRRZ   B* (B) >
 188         <JUMPN  B* TAG11>
 189         <JRST   TAG9>
 190 TAG10   <GETYP  O* (TP) -5>                                 ; 123 (24)
 191         <CAIN   O* <TYPE-CODE FALSE>>
 192         <JRST   TAG9>
 193         <GETYP  O* (TP) -7>                                 ; (22)
 194         <CAIE   O* <TYPE-CODE FALSE>>
 195         <SKIPL  (TP) >                                      ; (29)
 196         <JRST   TAG9>
 197         <MOVE   B* (TP) -6>                                 ; (23)
 198         <HRRZ   D* (B) >
 199         <MOVE   PVP* (D) >
 200         <MOVE   TVP* (D) 1>
 201         <MOVE   D* (TP) -4>                                 ; (25)
 202         <HRRZ   A* (D) >
 203         <GETYP  O* (A) 0>
 204         <GETYP  C* PVP>
 205         <CAMN   TVP* (A) 1>
 206         <CAIE   O* (C) 0>
 207         <JRST   TAG9>
 208         <MOVE   E* (B) >
 209         <MOVE   C* (B) 1>
 210         <GETYP  O* (D) 0>
 211         <GETYP  A* E>
 212         <CAMN   C* (D) 1>
 213         <CAIE   O* (A) 0>
 214         <SKIPA  O>
 215         <JRST   TAG12>
 216         <GETYP  O* (TP) -9>                                 ; (20)
 217         <CAIE   O* <MQUOTE %<TYPE-C SYMTAB!-COMPDEC!-PACKAGE VECTOR>>>
 218         <JRST   TAG9>
 219         <MOVE   A* (TP) -8>                                 ; (21)
 220         <MOVE   SP* (A) 13>
 221         <JUMPE  SP* |CERR2 >
 222         <GETYP  O* (SP) 0>
 223         <CAIN   O* <TYPE-CODE DEFER>>
 224         <MOVE   SP* (SP) 1>
 225         <PUSH   TP* (SP) >                                  ; [30]
 226         <PUSH   TP* (SP) 1>                                 ; [31]
 227         <MCALL  1 ISTYPE?>
 228         <MOVEM  A* (TP) -3>                                 ; (26)
 229         <MOVEM  B* (TP) -2>                                 ; (27)
 230         <GETYP  O* A>
 231         <CAIN   O* <TYPE-CODE FALSE>>
 232         <JRST   TAG9>
 233         <MOVE   D* (TP) -6>                                 ; (23)
 234         <MOVE   PVP* (D) >
 235         <MOVE   TVP* (D) 1>
 236         <GETYP  O* A>
 237         <GETYP  E* PVP>
 238         <CAMN   TVP* B>
 239         <CAIE   O* (E) 0>
 240         <SKIPA  O>
 241         <JRST   TAG12>
 242         <MOVE   C* (TP) -4>                                 ; (25)
 243         <MOVE   E* (C) >
 244         <MOVE   SP* (C) 1>
 245         <GETYP  O* A>
 246         <GETYP  C* E>
 247         <CAMN   SP* B>
 248         <CAIE   O* (C) 0>
 249         <JRST   TAG9>
 250 TAG12   <MOVE   E* (TP) -14>                                ; 183 (15)
 251         <MOVE   C* (TP) -9>                                 ; (20)
 252         <MOVE   D* (TP) -8>                                 ; (21)
 253         <PUSHJ  P* |C1CONS >
 254         <MOVE   C* (TP) -9>                                 ; (20)
 255         <MOVE   D* (TP) -8>                                 ; (21)
 256         <MOVEI  E* 0>
 257         <MOVEM  B* (TP) -14>                                ; (15)
 258         <PUSHJ  P* |C1CONS >
 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)
 265         <GETYP  O* D>
 266         <CAIE   O* <TYPE-CODE FALSE>>
 267         <JRST   TAG13>
 268         <MOVE   TVP* (TP) -6>                               ; (23)
 269         <MOVE   D* (TVP) >
 270         <MOVE   PVP* (TVP) 1>
 271 TAG13   <PUSH   TP* D>                                      ; 204 [30]
 272         <PUSH   TP* PVP>                                    ; [31]
 273         <MOVE   D* (TP) -8>                                 ; (23)
 274         <HRRZ   PVP* (D) >
 275         <PUSH   TP* (PVP) >                                 ; [32]
 276         <PUSH   TP* (PVP) 1>                                ; [33]
 277         <MCALL  2 DATUM>
 278         <MOVE   C* A>
 279         <MOVE   D* B>
 280         <MOVEI  E* 0>
 281         <PUSHJ  P* |C1CONS >
 282         <HRRM   B* @ (TP) -10>                              ; (19)
 283         <MOVEM  B* (TP) -10>                                ; (19)
 284         <MOVE   C* <TYPE-WORD LIST>>
 285         <MOVE   D* (TP) -12>                                ; (17)
 286         <MOVEI  E* 0>
 287         <PUSHJ  P* |C1CONS >
 288         <MOVEM  B* (TP) -12>                                ; (17)
 289         <MOVE   D* (TP) -16>                                ; (13)
 290         <HRRM   D* @ B>
 291         <MOVE   B* (TP) -12>                                ; (17)
 292         <MOVEM  B* (TP) -16>                                ; (13)
 293         <GETYP  O* (TP) -3>                                 ; (26)
 294         <CAIN   O* <TYPE-CODE FALSE>>
 295         <JRST   TAG9>
 296         <MOVE   D* (TP) -6>                                 ; (23)
 297         <MOVE   PVP* (D) >
 298         <MOVE   TVP* (D) 1>
 299         <MOVEM  PVP* (TP) -3>                               ; (26)
 300         <MOVEM  TVP* (TP) -2>                               ; (27)
 301         <GETYP  O* PVP>
 302         <CAIN   O* <MQUOTE %<TYPE-C AC!-COMPDEC!-PACKAGE VECTOR>>>
 303         <JRST   TAG14>
 304         <MOVE   D* (TP) -4>                                 ; (25)
 305         <MOVE   C* (D) >
 306         <MOVE   E* (D) 1>
 307         <MOVEM  C* (TP) -3>                                 ; (26)
 308         <MOVEM  E* (TP) -2>                                 ; (27)
 309         <GETYP  O* C>
 310         <CAIE   O* <MQUOTE %<TYPE-C AC!-COMPDEC!-PACKAGE VECTOR>>>
 311         <JRST   TAG9>
 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>>
 319         <JRST   TAG15>
 320         <MOVE   B* (TP) -4>                                 ; (25)
 321         <MOVE   D* (B) >
 322         <MOVE   PVP* (B) 1>
 323         <GETYP  O* D>
 324         <CAMN   PVP* (TP) -22>                              ; (7)
 325         <CAIE   O* <MQUOTE %<TYPE-C AC!-COMPDEC!-PACKAGE VECTOR>>>
 326         <SKIPA  O>
 327         <JRST   TAG16>
 328         <HRRZ   B* (B) >
 329         <MOVE   TVP* (B) >
 330         <MOVE   E* (B) 1>
 331         <GETYP  O* TVP>
 332         <CAMN   E* (TP) -22>                                ; (7)
 333         <CAIE   O* <MQUOTE %<TYPE-C AC!-COMPDEC!-PACKAGE VECTOR>>>
 334         <JRST   TAG15>
 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)
 344         <HRRZ   B* (B) >
 345         <JUMPN  B* TAG17>
 346 TAG4    <MOVE   B* (TP) -8>                                 ; 279 (7)
 347         <MOVE   D* (B) 14>
 348         <MOVE   PVP* (B) 15>
 349         <JUMPE  PVP* TAG18>
 350 TAG19   <MOVE   TVP* (PVP) >                                ; 283
 351         <MOVE   A* (PVP) 1>
 352         <SKIPGE |INTFLG >
 353         <SAVAC  O* [<(*71500*) 4>]>
 354         <PUSH   TP* TVP>                                    ; [16]
 355         <PUSH   TP* A>                                      ; [17]
 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)
 365         <HRRZ   PVP* (PVP) >
 366         <JUMPN  PVP* TAG19>
 367 TAG18   <MOVE   B* (TP) >                                   ; 300 (15)
 368         <JUMPN  B* TAG20>
 369         <MOVE   D* <TYPE-WORD FALSE>>
 370         <MOVEI  PVP* 0>
 371         <JRST   TAG21>
 372 TAG20   <MOVE   D* <TYPE-WORD LIST>>                        ; 305
 373         <MOVE   PVP* B>
 374 TAG21   <MOVE   TVP* (TP) -8>                               ; 307 (7)
 375         <MOVEM  D* (TVP) 14>
 376         <MOVEM  PVP* (TVP) 15>
 377         <MOVE   C* (TP) -2>                                 ; (13)
 378         <MOVE   A* <TYPE-WORD FALSE>>
 379         <MOVEI  B* 0>
 380         <JUMPE  C* TAG22>
 381 TAG24   <MOVE   E* (C) 1>                                   ; 314
 382         <PUSH   TP* (E) >                                   ; [16]
 383         <PUSH   TP* (E) 1>                                  ; [17]
 384         <HRRZ   E* (E) >
 385         <GETYP  O* (E) 0>
 386         <CAIN   O* <TYPE-CODE DEFER>>
 387         <MOVE   E* (E) 1>
 388         <PUSH   TP* (E) >                                   ; [18]
 389         <PUSH   TP* (E) 1>                                  ; [19]
 390         <SKIPGE |INTFLG >
 391         <TAG23>
 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>
 400         <SUB    TP* [<(4) 4>]>
 401         <MOVE   C* (TP) -10>                                ; (5)
 402         <HRRZ   C* (C) >
 403         <JUMPN  C* TAG24>
 404 TAG22   <SUB    TP* [<(12) 12>]>                            ; 337
 405         <HRRZ   O* @ (TP) >                                 ; (3)
 406         <MOVEM  O* (TP) >                                   ; (3)
 407         <JUMPN  O* TAG25>
 408 TAG2    <SUB    TP* [<(4) 4>]>                              ; 341
 409         <JRST   |MPOPJ >
 410         <0>
 411 TAG3    <*120012*>                                          ; 344
 412         <(*121500*) 0>
 413         <IMULI  TB* (TP) -9>                                ; (-10)
 414         <IMULI  TB* (B) 0>
 415         <IMULI  TB* (B) 0>
 416         <IMULI  TB* (B) 32>
 417         <IMULI  TB* (B) 0>
 418         <IMULI  TB* (TP) -5>                                ; (-6)
 419         <IMULI  TB* (TP) -7>                                ; (-8)
 420         <IMULI  TB* (A) 0>
 421         <IMULI  TB* 6 >
 422         <IMULI  TB* (D) 0>
 423         <IMULI  TB* 5 >
 424         <IMULI  TB* (SP) 0>
 425         <IMULI  TB* 1 >
 426         <IMULI  TB* 4 >
 427         <IMULI  TB* (TP) -3>                                ; (-4)
 428         <IMULI  TB* 3 >
 429         <IMULI  TB* 7 >
 430         <(14) 14>
 431         <(*71500*) 4>
 432         <IMULI  TB* (E) 0>
 433 TAG23   <(*12*) 0>                                          ; 366
 434         <FSB    O* O>
 435         <(4) 4>
 436         <(12) 12>
 437         <(1) 4>
 438         <(*61661*) *632265*>
 439         <0>
 440         <(1) 2>
 441
 442 \f
 443 <DEFINE RESTORE-STATE (STATV
 444                        "OPTIONAL" (NORET T)
 445                        "AUX" (MUNGED-SYMS ()) PA OACR)
 446    #DECL ((STATV) SAVED-STATE (PA) <OR FALSE <LIST NODE>> (OACR) <OR FALSE LIST>)
 447    <MAPF <>
 448     <FUNCTION (ACLST
 449                "AUX" (AC <1 .ACLST>) (SMT <2 .ACLST>) (SYMT <REST .ACLST 2>))
 450        #DECL ((ACLST)
 451               <LIST AC
 452                     <OR FALSE <LIST [REST SYMBOL]>>
 453                     [REST <LIST SYMBOL ANY>]>
 454               (SYMT)
 455               <LIST [REST <LIST SYMBOL ANY>]>
 456               (AC)
 457               AC
 458               (SMT)
 459               <OR FALSE <LIST [REST SYMBOL]>>)
 460        <AND .SMT <EMPTY? .SMT> <SET SMT <>>>
 461        <MAPF <>
 462              <FUNCTION (ST)
 463                      <OR <MEMQ .ST .MUNGED-SYMS> <SMASH-INACS .ST <> <>>>>
 464              <ACRESIDUE .AC>>
 465        <AND .SMT <SET SMT <LIST !.SMT>>>
 466        <SET OACR <ACRESIDUE .AC>>
 467        <PUT .AC ,ACRESIDUE .SMT>
 468        <MAPF <>
 469         <FUNCTION (SYMB "AUX" (SYMT <1 .SYMB>) (INAC <2 .SYMB>))
 470                 #DECL ((SYMB) <LIST SYMBOL ANY> (SYMT) SYMBOL)
 471                 <COND (<TYPE? .SYMT SYMTAB>
 472                        <PUT .SYMT
 473                             ,STORED
 474                             <GET-STORED .SYMT <3 .SYMB> <4 .SYMB>>>
 475                        <COND (<SET PA <PROG-AC .SYMT>>
 476                               <AND <STORED .SYMT>
 477                                    <NOT <MEMQ .SYMT <LOOP-VARS <1 .PA>>>>
 478                                    <NOT .NORET>
 479                                    <NOT <MEMQ .SYMT .OACR>>
 480                                    <KILL-LOOP-AC .SYMT>
 481                                    <FLUSH-RESIDUE .AC .SYMT>
 482                                    <SET INAC <>>>)
 483                              (<4 .SYMB>
 484                               <FLUSH-RESIDUE .AC .SYMT>
 485                               <SET INAC <>>)>)>
 486                 <OR <MEMQ .SYMT .MUNGED-SYMS>
 487                     <SET MUNGED-SYMS (.SYMT !.MUNGED-SYMS)>>
 488                 <SMASH-INACS .SYMT .INAC>>
 489         .SYMT>>
 490     .STATV>>
 491 \f
 492         <TITLE RESTORE-STATE>
 493
 494         <DECLARE ("VALUE" <OR COMMON!-COMPDEC!-PACKAGE FALSE
 495 SYMTAB!-COMPDEC!-PACKAGE TEMP!-COMPDEC!-PACKAGE> SAVED-STATE!-COMPDEC!-PACKAGE
 496 "OPTIONAL" ANY)>
 497         <MOVE   A* AB>
 498 TAG1    <PUSH   TP* (AB) >                                  ; 1
 499         <PUSH   TP* (AB) 1>
 500         <ADD    AB* [<(2) 2>]>
 501         <JUMPL  AB* TAG1>
 502         <HLRES  A>
 503         <ASH    A* -1 >
 504         <ADDI   A* TAG2>
 505         <PUSHJ  P* @ (A) 1 >
 506         <JRST   |FINIS >
 507         <TAG3>
 508 TAG2    <TAG4>                                              ; 11
 509 TAG4    <PUSH   TP* <MQUOTE T> -1>                          ; 12 [2]
 510         <PUSH   TP* <MQUOTE T>>                             ; [3]
 511 TAG3    <SUBM   M* (P) >                                    ; 14
 512         <PUSH   TP* [0]>                                    ; [4]
 513         <PUSH   TP* [0]>                                    ; [5]
 514         <PUSH   TP* <MQUOTE %<TYPE-W SAVED-STATE!-COMPDEC!-PACKAGE LIST>>>; [6]
 515         <PUSH   TP* [0]>                                    ; [7]
 516         <PUSH   TP* <TYPE-WORD LIST>>                       ; [8]
 517         <PUSH   TP* [0]>                                    ; [9]
 518         <INTGO>
 519         <MOVE   B* (TP) -8>                                 ; (1)
 520         <MOVEM  B* (TP) -2>                                 ; (7)
 521         <MOVE   A* <TYPE-WORD FALSE>>
 522         <MOVEI  B* 0>
 523         <MOVE   D* (TP) -2>                                 ; (7)
 524         <JUMPE  D* TAG5>
 525 TAG29   <PUSH   TP* [0]>                                    ; 29 [10]
 526         <PUSH   TP* [0]>                                    ; [11]
 527         <MOVE   PVP* (D) 1>
 528         <PUSH   TP* <MQUOTE %<TYPE-W AC!-COMPDEC!-PACKAGE VECTOR>>>; [12]
 529         <PUSH   TP* (PVP) 1>                                ; [13]
 530         <HRRZ   TVP* (PVP) >
 531         <PUSH   TP* (TVP) >                                 ; [14]
 532         <PUSH   TP* (TVP) 1>                                ; [15]
 533         <HRRZ   TVP* (PVP) >
 534         <HRRZ   TVP* (TVP) >
 535         <PUSH   TP* <TYPE-WORD LIST>>                       ; [16]
 536         <PUSH   TP* TVP>                                    ; [17]
 537         <SKIPGE |INTFLG >
 538         <TAG6>
 539         <MOVEM  D* (TP) -10>                                ; (7)
 540         <GETYP  O* (TP) -3>                                 ; (14)
 541         <CAIN   O* <TYPE-CODE FALSE>>
 542         <JRST   TAG7>
 543         <MOVE   B* (TP) -2>                                 ; (15)
 544         <JUMPN  B* TAG7>
 545         <MOVE   C* <TYPE-WORD FALSE>>
 546         <MOVEI  E* 0>
 547         <MOVEM  C* (TP) -3>                                 ; (14)
 548         <MOVEM  E* (TP) -2>                                 ; (15)
 549 TAG7    <MOVE   B* (TP) -4>                                 ; 53 (13)
 550         <MOVE   D* (B) 14>
 551         <MOVE   PVP* (B) 15>
 552         <JUMPE  PVP* TAG8>
 553 TAG12   <MOVE   A* PVP>                                     ; 57
 554         <GETYP  O* (PVP) 0>
 555         <CAIN   O* <TYPE-CODE DEFER>>
 556         <MOVE   A* (A) 1>
 557         <MOVE   TVP* (A) >
 558         <MOVE   A* (A) 1>
 559         <SKIPGE |INTFLG >
 560         <SAVAC  O* [<(*71500*) 4>]>
 561         <MOVEM  D* (TP) -7>                                 ; (10)
 562         <MOVEM  PVP* (TP) -6>                               ; (11)
 563         <MOVE   C* (TP) -8>                                 ; (9)
 564         <GETYP  E* TVP>
 565         <JUMPE  C* TAG9>
 566 TAG11   <GETYP  O* (C) 0>                                   ; 70
 567         <MOVE   SP* C>
 568         <CAIN   O* <TYPE-CODE DEFER>>
 569         <MOVE   SP* (SP) 1>
 570         <GETYP  O* (SP) 0>
 571         <CAIN   O* (E) 0>
 572         <CAME   A* (SP) 1>
 573         <SKIPA  O>
 574         <JRST   TAG10>
 575         <HRRZ   C* (C) >
 576         <JUMPN  C* TAG11>
 577 TAG9    <PUSH   TP* TVP>                                    ; 81 [18]
 578         <PUSH   TP* A>                                      ; [19]
 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)
 586         <HRRZ   PVP* (PVP) >
 587         <JUMPN  PVP* TAG12>
 588 TAG8    <GETYP  O* (TP) -3>                                 ; 92 (14)
 589         <CAIN   O* <TYPE-CODE FALSE>>
 590         <JRST   TAG13>
 591         <MOVE   A* (TP) -3>                                 ; (14)
 592         <MOVE   B* (TP) -2>                                 ; (15)
 593         <PUSH   P* [0]>
 594         <MOVEI  O* |SEGMNT >
 595         <PUSHJ  P* |RCALL >
 596         <POP    P* A>
 597         <PUSHJ  P* |IILIST >
 598         <MOVEM  A* (TP) -3>                                 ; (14)
 599         <MOVEM  B* (TP) -2>                                 ; (15)
 600 TAG13   <MOVE   B* (TP) -4>                                 ; 104 (13)
 601         <MOVE   D* (B) 14>
 602         <MOVE   PVP* (B) 15>
 603         <MOVE   O* (TP) -3>                                 ; (14)
 604         <MOVEM  O* (B) 14>
 605         <MOVE   O* (TP) -2>                                 ; (15)
 606         <MOVEM  O* (B) 15>
 607         <MOVE   TVP* (TP) >                                 ; (17)
 608         <MOVE   A* <TYPE-WORD FALSE>>
 609         <MOVEI  B* 0>
 610         <MOVEM  D* (TP) -13>                                ; (4)
 611         <MOVEM  PVP* (TP) -12>                              ; (5)
 612         <JUMPE  TVP* TAG14>
 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]
 617         <MOVE   E* (TVP) 1>
 618         <PUSH   TP* (E) >                                   ; [22]
 619         <PUSH   TP* (E) 1>                                  ; [23]
 620         <HRRZ   C* (E) >
 621         <GETYP  O* (C) 0>
 622         <CAIN   O* <TYPE-CODE DEFER>>
 623         <MOVE   C* (C) 1>
 624         <PUSH   TP* (C) >                                   ; [24]
 625         <PUSH   TP* (C) 1>                                  ; [25]
 626         <SKIPGE |INTFLG >
 627         <TAG15>
 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>>>
 634         <JRST   TAG16>
 635         <MOVE   B* (TP) -2>                                 ; (23)
 636         <PUSH   TP* <MQUOTE %<TYPE-W SYMTAB!-COMPDEC!-PACKAGE VECTOR>>>; [26]
 637         <PUSH   TP* B>                                      ; [27]
 638         <JUMPE  E* |CERR2 >
 639         <HRRZ   C* (E) >
 640         <JUMPE  C* |CERR2 >
 641         <HRRZ   C* (C) >
 642         <JUMPE  C* |CERR2 >
 643         <PUSH   TP* (C) >                                   ; [28]
 644         <PUSH   TP* (C) 1>                                  ; [29]
 645         <MOVEI  C* 3 >
 646 TAG17   <JUMPE  E* |CERR2 >                                 ; 150
 647         <HRRZ   E* (E) >
 648         <SOJG   C* TAG17>
 649         <JUMPE  E* |CERR2 >
 650         <PUSH   TP* (E) >                                   ; [30]
 651         <PUSH   TP* (E) 1>                                  ; [31]
 652         <MOVEM  B* (TP) -10>                                ; (21)
 653         <MCALL  3 GET-STORED>
 654         <MOVE   D* (TP) -4>                                 ; (21)
 655         <MOVEM  A* (D) 26>
 656         <MOVEM  B* (D) 27>
 657         <MOVE   D* (TP) -2>                                 ; (23)
 658         <MOVE   PVP* (D) 32>
 659         <MOVE   TVP* (D) 33>
 660         <GETYP  O* PVP>
 661         <CAIN   O* <TYPE-CODE FALSE>>
 662         <JRST   TAG18>
 663         <JUMPGE B* TAG16>
 664         <MOVE   C* (TVP) 1>
 665         <ADD    C* [<(60) 60>]>
 666         <JUMPGE C* |CERR2 >
 667         <MOVE   E* (C) 1>
 668         <JUMPE  E* TAG19>
 669 TAG20   <GETYP  O* (E) 0>                                   ; 173
 670         <CAIN   O* <MQUOTE %<TYPE-C SYMTAB!-COMPDEC!-PACKAGE VECTOR>>>
 671         <CAME   D* (E) 1>
 672         <SKIPA  O>
 673         <JRST   TAG16>
 674         <HRRZ   E* (E) >
 675         <JUMPN  E* TAG20>
 676 TAG19   <GETYP  O* (TP) -23>                                ; 180 (2)
 677         <CAIE   O* <TYPE-CODE FALSE>>
 678         <JRST   TAG16>
 679         <MOVE   C* (TP) -20>                                ; (5)
 680         <JUMPE  C* TAG21>
 681 TAG22   <GETYP  O* (C) 0>                                   ; 185
 682         <CAIN   O* <MQUOTE %<TYPE-C SYMTAB!-COMPDEC!-PACKAGE VECTOR>>>
 683         <CAME   D* (C) 1>
 684         <SKIPA  O>
 685         <JRST   TAG16>
 686         <HRRZ   C* (C) >
 687         <JUMPN  C* TAG22>
 688 TAG21   <PUSH   TP* <MQUOTE %<TYPE-W SYMTAB!-COMPDEC!-PACKAGE VECTOR>>>; 192 [26
 689 ]
 690         <PUSH   TP* D>                                      ; [27]
 691         <MCALL  1 KILL-LOOP-AC>
 692         <JUMPGE B* TAG16>
 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>
 698         <JUMPGE B* TAG16>
 699         <JRST   TAG23>
 700 TAG18   <MOVE   C* (TP) -6>                                 ; 203 (19)
 701         <MOVEI  E* 3 >
 702 TAG24   <JUMPE  C* |CERR2 >                                 ; 205
 703         <HRRZ   C* (C) >
 704         <SOJG   E* TAG24>
 705         <JUMPE  C* |CERR2 >
 706         <GETYP  O* (C) 0>
 707         <CAIN   O* <TYPE-CODE DEFER>>
 708         <MOVE   C* (C) 1>
 709         <GETYP  O* (C) 0>
 710         <CAIN   O* <TYPE-CODE FALSE>>
 711         <JRST   TAG16>
 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]
 715         <PUSH   TP* D>                                      ; [29]
 716         <MCALL  2 FLUSH-RESIDUE>
 717 TAG23   <MOVE   B* <TYPE-WORD FALSE>>                       ; 220
 718         <MOVEI  D* 0>
 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)
 724         <JUMPE  B* TAG25>
 725 TAG27   <GETYP  O* (B) 0>                                   ; 228
 726         <CAIN   O* (PVP) 0>
 727         <CAME   D* (B) 1>
 728         <SKIPA  O>
 729         <JRST   TAG26>
 730         <HRRZ   B* (B) >
 731         <JUMPN  B* TAG27>
 732 TAG25   <MOVE   E* (TP) -16>                                ; 235 (9)
 733         <MOVE   C* (TP) -3>                                 ; (22)
 734         <MOVE   D* (TP) -2>                                 ; (23)
 735         <PUSHJ  P* |C1CONS >
 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>
 743         <SUB    TP* [<(8) 8>]>
 744         <MOVE   TVP* (TP) -6>                               ; (11)
 745         <HRRZ   TVP* (TVP) >
 746         <JUMPN  TVP* TAG28>
 747 TAG14   <SUB    TP* [<(8) 8>]>                              ; 250
 748         <HRRZ   O* @ (TP) -2>                               ; (7)
 749         <MOVEM  O* (TP) -2>                                 ; (7)
 750         <JUMPN  O* TAG29>
 751 TAG5    <SUB    TP* [<(10) 10>]>                            ; 254
 752         <JRST   |MPOPJ >
 753         <(2) 2>
 754         <0>
 755 TAG6    <*120012*>                                          ; 258
 756         <(*120000*) 0>
 757         <IMULI  TB* (TP) -3>                                ; (-4)
 758         <IMULI  TB* (PVP) 0>
 759         <(*71500*) 4>
 760         <IMULI  TB* 7 >
 761         <IMULI  TB* (C) 0>
 762         <IMULI  TB* (SP) 0>
 763 TAG15   <*1204*>                                            ; 266
 764         <(*120000*) 0>
 765         <IMULI  TB* 6 >
 766         <(60) 60>
 767         <IMULI  TB* (E) 0>
 768         <IMULI  TB* (TP) -23>                               ; (-24)
 769         <IMULI  TB* (C) 0>
 770         <IMULI  TB* (C) 0>
 771         <IMULI  TB* (B) 0>
 772         <(8) 8>
 773         <(10) 10>
 774         <(2) *16*>
 775         <(1) *14*>
 776         <(*65523*) *200604*>
 777         <0>
 778         <(2) 2>
 779
 780 \f
 781 <DEFINE ASSERT-TYPES (L)
 782         #DECL ((L) <LIST [REST <LIST SYMTAB ANY ANY>]>)
 783         <MAPF <>
 784               <FUNCTION (LL) <SET-CURRENT-TYPE <1 .LL> <2 .LL>>>
 785               .L>>
 786 \f
 787         <TITLE ASSERT-TYPES>
 788
 789         <DECLARE ("VALUE" <OR FALSE SYMTAB!-COMPDEC!-PACKAGE> <LIST [REST <LIST
 790 SYMTAB!-COMPDEC!-PACKAGE ANY ANY>]>)>
 791         <PUSH   TP* (AB) >
 792         <PUSH   TP* (AB) 1>
 793         <PUSHJ  P* TAG1>
 794         <JRST   |FINIS >
 795 TAG1    <SUBM   M* (P) >                                    ; 4
 796         <PUSH   TP* <TYPE-WORD LIST>>                       ; [2]
 797         <PUSH   TP* [0]>                                    ; [3]
 798         <INTGO>
 799         <MOVE   B* (TP) -2>                                 ; (1)
 800         <MOVEM  B* (TP) >                                   ; (3)
 801         <MOVE   A* <TYPE-WORD FALSE>>
 802         <MOVEI  B* 0>
 803         <MOVE   D* (TP) >                                   ; (3)
 804         <JUMPE  D* TAG2>
 805 TAG3    <MOVE   PVP* (D) 1>                                 ; 15
 806         <SKIPGE |INTFLG >
 807         <SAVAC  O* [*120012*]>
 808         <PUSH   TP* <MQUOTE %<TYPE-W SYMTAB!-COMPDEC!-PACKAGE VECTOR>>>; [4]
 809         <PUSH   TP* (PVP) 1>                                ; [5]
 810         <HRRZ   PVP* (PVP) >
 811         <GETYP  O* (PVP) 0>
 812         <CAIN   O* <TYPE-CODE DEFER>>
 813         <MOVE   PVP* (PVP) 1>
 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)
 820         <JUMPN  O* TAG3>
 821 TAG2    <SUB    TP* [<(4) 4>]>                              ; 31
 822         <JRST   |MPOPJ >
 823         <0>
 824         <*120012*>
 825         <IMULI  TB* (PVP) 0>
 826         <(4) 4>
 827         <(1) 4>
 828         <(*50753*) *202076*>
 829         <0>
 830         <(1) 2>
 831
 832 \f
 833 <DEFINE SAME-DECL? (D1 D2) <OR <=? .D1 .D2> <NOT <TYPE-OK? .D2 <NOTIFY .D1>>>>>
 834
 835         <TITLE SAME-DECL?>
 836
 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]
 842         <PUSHJ  P* TAG1>
 843         <JRST   |FINIS >
 844 TAG1    <SUBM   M* (P) >                                    ; 6
 845         <INTGO>
 846         <MOVE   A* (TP) -3>                                 ; (0)
 847         <MOVE   B* (TP) -2>                                 ; (1)
 848         <MOVE   C* (TP) -1>                                 ; (2)
 849         <MOVE   D* (TP) >                                   ; (3)
 850         <PUSHJ  P* |CIEQUA >
 851         <JRST   TAG2>
 852         <JRST   TAG3>
 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]
 857         <MCALL  1 NOTIFY>
 858         <PUSH   TP* A>                                      ; [6]
 859         <PUSH   TP* B>                                      ; [7]
 860         <MCALL  2 TYPE-OK?>
 861         <GETYP  O* A>
 862         <CAIE   O* <TYPE-CODE FALSE>>
 863         <JRST   TAG4>
 864         <MOVE   A* <MQUOTE T> -1>
 865         <MOVE   B* <MQUOTE T>>
 866         <JRST   TAG3>
 867 TAG4    <MOVE   A* <TYPE-WORD FALSE>>                       ; 30
 868         <MOVEI  B* 0>
 869 TAG3    <SUB    TP* [<(4) 4>]>                              ; 32
 870         <JRST   |MPOPJ >
 871         <IMULI  TB* 1 >
 872         <(4) 4>
 873         <(2) 6>
 874         <(*66261*) *202777*>
 875         <0>
 876         <(1) 2>
 877
 878 \f
 879 <DEFINE AC? (SYMT ACS)
 880         #DECL ((SYMT) SYMTAB (ACS) LIST)
 881         <MAPF <>
 882               <FUNCTION (AC)
 883                       #DECL ((AC) LIST)
 884                       <REPEAT ((PTR .AC))
 885                               #DECL ((PTR) LIST)
 886                               <COND (<EMPTY? .PTR> <RETURN <>>)>
 887                               <COND (<==? <CSYMT-SLOT .PTR> .SYMT>
 888                                      <MAPLEAVE <CINACS-SLOT .PTR>>)>
 889                               <SET PTR <REST .PTR ,LENGTH-CSTATE>>>>
 890               .ACS>>
 891 \f
 892         <TITLE AC?>
 893
 894         <DECLARE ("VALUE" ANY SYMTAB!-COMPDEC!-PACKAGE LIST)>
 895         <PUSH   TP* (AB) >
 896         <PUSH   TP* (AB) 1>
 897         <PUSH   TP* (AB) 2>
 898         <PUSH   TP* (AB) 3>
 899         <PUSHJ  P* TAG1>
 900         <JRST   |FINIS >
 901 TAG1    <SUBM   M* (P) >                                    ; 6
 902         <PUSH   TP* <TYPE-WORD LIST>>                       ; [4]
 903         <PUSH   TP* [0]>                                    ; [5]
 904         <INTGO>
 905         <MOVE   B* (TP) -2>                                 ; (3)
 906         <MOVEM  B* (TP) >                                   ; (5)
 907         <MOVE   A* <TYPE-WORD FALSE>>
 908         <MOVEI  B* 0>
 909         <MOVE   D* (TP) >                                   ; (5)
 910         <JUMPE  D* TAG2>
 911 TAG8    <MOVE   PVP* (D) 1>                                 ; 17
 912         <SKIPGE |INTFLG >
 913         <SAVAC  O* [*120012*]>
 914         <PUSH   TP* <TYPE-WORD LIST>>                       ; [6]
 915         <PUSH   TP* [0]>                                    ; [7]
 916         <MOVEM  D* (TP) -2>                                 ; (5)
 917 TAG7    <SKIPGE |INTFLG >                                   ; 23
 918         <SAVAC  O* [*120012*]>
 919         <JUMPN  PVP* TAG3>
 920         <MOVEI  B* 0>
 921         <SUB    TP* [<(2) 2>]>
 922         <JRST   TAG4>
 923 TAG3    <MOVEM  PVP* (TP) >                                 ; 29 (7)
 924         <GETYP  O* (PVP) 0>
 925         <CAIN   O* <TYPE-CODE DEFER>>
 926         <MOVE   PVP* (PVP) 1>
 927         <MOVE   B* (PVP) >
 928         <MOVE   TVP* (PVP) 1>
 929         <GETYP  O* B>
 930         <CAMN   TVP* (TP) -6>                               ; (1)
 931         <CAIE   O* <MQUOTE %<TYPE-C SYMTAB!-COMPDEC!-PACKAGE VECTOR>>>
 932         <JRST   TAG5>
 933         <MOVE   E* (TP) >                                   ; (7)
 934         <JUMPE  E* |CERR2 >
 935         <HRRZ   E* (E) >
 936         <JUMPE  E* |CERR2 >
 937         <GETYP  O* (E) 0>
 938         <CAIN   O* <TYPE-CODE DEFER>>
 939         <MOVE   E* (E) 1>
 940         <MOVE   A* (E) >
 941         <MOVE   B* (E) 1>
 942         <SUB    TP* [<(2) 2>]>
 943         <JRST   TAG2>
 944 TAG5    <MOVE   E* (TP) >                                   ; 50 (7)
 945         <MOVEI  C* 4 >
 946 TAG6    <JUMPE  E* |CERR2 >                                 ; 52
 947         <HRRZ   E* (E) >
 948         <SOJG   C* TAG6>
 949         <MOVE   PVP* E>
 950         <JRST   TAG7>
 951 TAG4    <MOVE   A* <TYPE-WORD FALSE>>                       ; 57
 952         <HRRZ   O* @ (TP) >                                 ; (5)
 953         <MOVEM  O* (TP) >                                   ; (5)
 954         <JUMPN  O* TAG8>
 955 TAG2    <SUB    TP* [<(6) 6>]>                              ; 61
 956         <JRST   |MPOPJ >
 957         <0>
 958         <*120012*>
 959         <(2) 2>
 960         <IMULI  TB* (PVP) 0>
 961         <IMULI  TB* 2 >
 962         <IMULI  TB* (E) 0>
 963         <(6) 6>
 964         <(2) 6>
 965         <(*50507*) *650000*>
 966         <0>
 967         <(1) 2>
 968
 969 \f
 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>)>
 974      <MAPR <>
 975       <FUNCTION (STATE-ITEMS "AUX" SYMT PAC (STATE-ITEM <1 .STATE-ITEMS>))
 976          <REPEAT ()
 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>>)
 993                  (<RETURN>)>>
 994          <COND
 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>>
1000              <COND
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>>>>
1020 \f
1021         <TITLE FIXUP-STORES>
1022
1023         <DECLARE ("VALUE" ATOM <LIST [REST REP-STATE!-COMPDEC!-PACKAGE <PRIMTYPE
1024 LIST> LIST <OR ATOM FALSE>]>)>
1025         <PUSH   TP* (AB) >
1026         <PUSH   TP* (AB) 1>
1027         <PUSHJ  P* TAG1>
1028         <JRST   |FINIS >
1029 TAG1    <SUBM   M* (P) >                                    ; 4
1030         <INTGO>
1031         <PUSH   TP* <TYPE-WORD LIST>>                       ; [2]
1032         <PUSH   TP* (TP) -1>                                ; (1) [3]
1033 TAG31   <INTGO>                                             ; 9
1034         <MOVE   B* (TP) >                                   ; (3)
1035         <JUMPN  B* TAG2>
1036         <MOVE   B* <MQUOTE T>>
1037         <SUB    TP* [<(2) 2>]>
1038         <JRST   TAG3>
1039 TAG2    <PUSH   TP* <TYPE-WORD FALSE>>                      ; 16 [4]
1040         <PUSH   TP* [0]>                                    ; [5]
1041         <GETYP  O* (B) 0>
1042         <CAIN   O* <TYPE-CODE DEFER>>
1043         <MOVE   B* (B) 1>
1044         <PUSH   TP* (B) >                                   ; [6]
1045         <PUSH   TP* (B) 1>                                  ; [7]
1046         <PUSH   P* [-1]>
1047 TAG29   <MOVEI  O* 6 >                                      ; 24
1048         <PUSHJ  P* |NTPALO >
1049         <MOVE   A* (TP) -7>                                 ; (6)
1050         <MOVE   B* (TP) -6>                                 ; (7)
1051         <PUSHJ  P* |TYPSEG >
1052         <SKIPL  (P) >
1053         <XCT    (C) |INCR1 >
1054         <XCT    (C) |TESTR >
1055         <JRST   TAG4>
1056         <MOVE   A* |DSTORE >
1057         <MOVE   B* D>
1058         <MOVE   O* |DSTORE >
1059         <MOVEM  O* (TP) -7>                                 ; (6)
1060         <MOVEM  D* (TP) -6>                                 ; (7)
1061         <SETZM  |DSTORE >
1062         <MOVEI  C* 1 >
1063         <MOVEM  A* (TP) -5>                                 ; (8)
1064         <MOVEM  B* (TP) -4>                                 ; (9)
1065         <PUSHJ  P* |CINTH >
1066         <PUSH   TP* A>                                      ; [14]
1067         <PUSH   TP* B>                                      ; [15]
1068         <INTGO>
1069         <PUSH   TP* [0]>                                    ; [16]
1070         <PUSH   TP* [0]>                                    ; [17]
1071 TAG16   <INTGO>                                             ; 49
1072         <MOVE   A* (TP) -5>                                 ; (12)
1073         <MOVE   B* (TP) -4>                                 ; (13)
1074         <PUSHJ  P* |CEMPTY >
1075         <JRST   TAG5>
1076 TAG13   <SUB    TP* [<(2) 2>]>                              ; 55
1077         <JRST   TAG6>
1078 TAG5    <MOVE   A* (TP) -5>                                 ; 57 (12)
1079         <MOVE   B* (TP) -4>                                 ; (13)
1080         <MOVEI  C* 1 >
1081         <PUSHJ  P* |CINTH >
1082         <MOVEM  A* (TP) -7>                                 ; (10)
1083         <MOVEM  B* (TP) -6>                                 ; (11)
1084         <MOVE   A* (TP) -5>                                 ; (12)
1085         <MOVE   B* (TP) -4>                                 ; (13)
1086         <MOVEI  C* 4 >
1087         <PUSHJ  P* |CINTH >
1088         <GETYP  O* A>
1089         <CAIE   O* <TYPE-CODE FALSE>>
1090         <JRST   TAG7>
1091         <MOVE   A* (TP) -5>                                 ; (12)
1092         <MOVE   B* (TP) -4>                                 ; (13)
1093         <MOVEI  C* 3 >
1094         <PUSHJ  P* |CINTH >
1095         <GETYP  O* A>
1096         <CAMN   B* <MQUOTE T>>
1097         <CAIE   O* <TYPE-CODE ATOM>>
1098         <SKIPA  O>
1099         <JRST   TAG8>
1100 TAG7    <MOVE   A* (TP) -5>                                 ; 79 (12)
1101         <MOVE   B* (TP) -4>                                 ; (13)
1102         <MOVEI  C* 3 >
1103         <PUSHJ  P* |CINTH >
1104         <GETYP  O* A>
1105         <CAMN   B* <MQUOTE T>>
1106         <CAIE   O* <TYPE-CODE ATOM>>
1107         <SKIPA  O>
1108         <JRST   TAG9>
1109         <MOVE   A* (TP) -5>                                 ; (12)
1110         <MOVE   B* (TP) -4>                                 ; (13)
1111         <MOVEI  C* 3 >
1112         <PUSHJ  P* |CINTH >
1113         <MOVEM  A* (TP) -1>                                 ; (16)
1114         <MOVEM  B* (TP) >                                   ; (17)
1115         <MOVE   B* <MQUOTE KILL-LIST!-CACS!-PACKAGE>>
1116         <PUSHJ  P* |CILVAL >
1117         <MOVE   C* A>
1118         <MOVE   D* B>
1119         <MOVE   A* (TP) -1>                                 ; (16)
1120         <MOVE   B* (TP) >                                   ; (17)
1121         <PUSHJ  P* |CIMEMQ >
1122         <SKIPA  O>
1123         <JRST   TAG10>
1124 TAG9    <MOVE   A* (TP) -5>                                 ; 103 (12)
1125         <MOVE   B* (TP) -4>                                 ; (13)
1126         <MOVEI  C* 4 >
1127         <PUSHJ  P* |CINTH >
1128         <GETYP  O* A>
1129         <CAIN   O* <TYPE-CODE FALSE>>
1130         <JRST   TAG8>
1131         <MOVE   A* (TP) -5>                                 ; (12)
1132         <MOVE   B* (TP) -4>                                 ; (13)
1133         <MOVEI  C* 3 >
1134         <PUSHJ  P* |CINTH >
1135         <GETYP  O* A>
1136         <CAIN   O* <TYPE-CODE FALSE>>
1137         <JRST   TAG8>
1138         <MOVE   B* (TP) -6>                                 ; (11)
1139         <MOVE   D* (B) 32>
1140         <MOVE   PVP* (B) 33>
1141         <MOVEM  D* (TP) -5>                                 ; (12)
1142         <MOVEM  PVP* (TP) -4>                               ; (13)
1143         <GETYP  O* D>
1144         <CAIN   O* <TYPE-CODE FALSE>>
1145         <JRST   TAG8>
1146         <MOVE   A* D>
1147         <MOVE   B* PVP>
1148         <MOVEI  C* 1 >
1149         <PUSHJ  P* |CINTH >
1150         <ADD    B* [<(60) 60>]>
1151         <JUMPGE B* |CERR2 >
1152         <MOVE   D* (B) 1>
1153         <MOVE   B* (TP) -6>                                 ; (11)
1154         <GETYP  PVP* (TP) -7>                               ; (10)
1155         <JUMPE  D* TAG8>
1156 TAG12   <GETYP  O* (D) 0>                                   ; 135
1157         <MOVE   TVP* D>
1158         <CAIN   O* <TYPE-CODE DEFER>>
1159         <MOVE   TVP* (TVP) 1>
1160         <GETYP  O* (TVP) 0>
1161         <CAIN   O* (PVP) 0>
1162         <CAME   B* (TVP) 1>
1163         <SKIPA  O>
1164         <JRST   TAG11>
1165         <HRRZ   D* (D) >
1166         <JUMPN  D* TAG12>
1167         <JRST   TAG8>
1168 TAG11   <MOVE   A* (TP) -5>                                 ; 147 (12)
1169         <MOVE   B* (TP) -4>                                 ; (13)
1170         <MOVEI  C* 3 >
1171         <PUSHJ  P* |CINTH >
1172         <GETYP  O* A>
1173         <CAIE   O* <TYPE-CODE FALSE>>
1174         <JRST   TAG8>
1175 TAG10   <MOVE   A* (TP) -5>                                 ; 154 (12)
1176         <MOVE   B* (TP) -4>                                 ; (13)
1177         <MOVE   C* <TYPE-WORD FIX>>
1178         <MOVEI  D* 3 >
1179         <PUSH   TP* <TYPE-WORD FALSE>>                      ; [18]
1180         <PUSH   TP* [0]>                                    ; [19]
1181         <PUSHJ  P* |CIPUT >
1182 TAG8    <MOVE   A* (TP) -5>                                 ; 161 (12)
1183         <MOVE   B* (TP) -4>                                 ; (13)
1184         <MOVEI  C* 4 >
1185         <PUSHJ  P* |CINTH >
1186         <GETYP  O* A>
1187         <CAIN   O* <TYPE-CODE FALSE>>
1188         <JRST   TAG13>
1189         <MOVE   B* (TP) -6>                                 ; (11)
1190         <MOVE   D* (B) 32>
1191         <MOVE   PVP* (B) 33>
1192         <MOVEM  D* (TP) -5>                                 ; (12)
1193         <MOVEM  PVP* (TP) -4>                               ; (13)
1194         <GETYP  O* D>
1195         <CAIN   O* <TYPE-CODE FALSE>>
1196         <JRST   TAG14>
1197         <MOVE   A* D>
1198         <MOVE   B* PVP>
1199         <MOVEI  C* 1 >
1200         <PUSHJ  P* |CINTH >
1201         <ADD    B* [<(60) 60>]>
1202         <JUMPGE B* |CERR2 >
1203         <MOVE   D* (B) 1>
1204         <MOVE   B* (TP) -6>                                 ; (11)
1205         <GETYP  PVP* (TP) -7>                               ; (10)
1206         <JUMPE  D* TAG14>
1207 TAG15   <GETYP  O* (D) 0>                                   ; 186
1208         <MOVE   TVP* D>
1209         <CAIN   O* <TYPE-CODE DEFER>>
1210         <MOVE   TVP* (TVP) 1>
1211         <GETYP  O* (TVP) 0>
1212         <CAIN   O* (PVP) 0>
1213         <CAME   B* (TVP) 1>
1214         <SKIPA  O>
1215         <JRST   TAG13>
1216         <HRRZ   D* (D) >
1217         <JUMPN  D* TAG15>
1218 TAG14   <MOVE   A* (TP) -5>                                 ; 197 (12)
1219         <MOVE   B* (TP) -4>                                 ; (13)
1220         <MOVEI  C* 4 >
1221         <PUSHJ  P* |CIREST >
1222         <MOVEM  A* (TP) -5>                                 ; (12)
1223         <MOVEM  B* (TP) -4>                                 ; (13)
1224         <JRST   TAG16>
1225 TAG6    <MOVE   A* (TP) -3>                                 ; 204 (12)
1226         <MOVE   B* (TP) -2>                                 ; (13)
1227         <PUSHJ  P* |CEMPTY >
1228         <SKIPA  O>
1229         <JRST   TAG17>
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)
1236         <MOVEI  C* 4 >
1237         <PUSHJ  P* |CIREST >
1238         <PUSH   TP* A>                                      ; [20]
1239         <PUSH   TP* B>                                      ; [21]
1240 TAG28   <INTGO>                                             ; 219
1241         <MOVE   A* (TP) -3>                                 ; (18)
1242         <MOVE   B* (TP) -2>                                 ; (19)
1243         <PUSHJ  P* |CEMPTY >
1244         <JRST   TAG18>
1245         <SUB    TP* [<(6) 6>]>
1246         <JRST   TAG17>
1247 TAG18   <MOVE   A* (TP) -3>                                 ; 227 (18)
1248         <MOVE   B* (TP) -2>                                 ; (19)
1249         <MOVEI  C* 1 >
1250         <PUSHJ  P* |CINTH >
1251         <MOVEM  A* (TP) -11>                                ; (10)
1252         <MOVEM  B* (TP) -10>                                ; (11)
1253         <MOVE   A* (TP) -3>                                 ; (18)
1254         <MOVE   B* (TP) -2>                                 ; (19)
1255         <MOVEI  C* 4 >
1256         <PUSHJ  P* |CINTH >
1257         <GETYP  O* A>
1258         <CAIE   O* <TYPE-CODE FALSE>>
1259         <JRST   TAG19>
1260         <MOVE   A* (TP) -3>                                 ; (18)
1261         <MOVE   B* (TP) -2>                                 ; (19)
1262         <MOVEI  C* 3 >
1263         <PUSHJ  P* |CINTH >
1264         <GETYP  O* A>
1265         <CAMN   B* <MQUOTE T>>
1266         <CAIE   O* <TYPE-CODE ATOM>>
1267         <SKIPA  O>
1268         <JRST   TAG20>
1269 TAG19   <MOVE   A* (TP) -3>                                 ; 249 (18)
1270         <MOVE   B* (TP) -2>                                 ; (19)
1271         <MOVEI  C* 3 >
1272         <PUSHJ  P* |CINTH >
1273         <GETYP  O* A>
1274         <CAMN   B* <MQUOTE T>>
1275         <CAIE   O* <TYPE-CODE ATOM>>
1276         <SKIPA  O>
1277         <JRST   TAG21>
1278         <MOVE   A* (TP) -3>                                 ; (18)
1279         <MOVE   B* (TP) -2>                                 ; (19)
1280         <MOVEI  C* 3 >
1281         <PUSHJ  P* |CINTH >
1282         <MOVEM  A* (TP) -5>                                 ; (16)
1283         <MOVEM  B* (TP) -4>                                 ; (17)
1284         <MOVE   B* <MQUOTE KILL-LIST!-CACS!-PACKAGE>>
1285         <PUSHJ  P* |CILVAL >
1286         <MOVE   C* A>
1287         <MOVE   D* B>
1288         <MOVE   A* (TP) -5>                                 ; (16)
1289         <MOVE   B* (TP) -4>                                 ; (17)
1290         <PUSHJ  P* |CIMEMQ >
1291         <SKIPA  O>
1292         <JRST   TAG22>
1293 TAG21   <MOVE   A* (TP) -3>                                 ; 273 (18)
1294         <MOVE   B* (TP) -2>                                 ; (19)
1295         <MOVEI  C* 4 >
1296         <PUSHJ  P* |CINTH >
1297         <GETYP  O* A>
1298         <CAIN   O* <TYPE-CODE FALSE>>
1299         <JRST   TAG20>
1300         <MOVE   A* (TP) -3>                                 ; (18)
1301         <MOVE   B* (TP) -2>                                 ; (19)
1302         <MOVEI  C* 3 >
1303         <PUSHJ  P* |CINTH >
1304         <GETYP  O* A>
1305         <CAIN   O* <TYPE-CODE FALSE>>
1306         <JRST   TAG20>
1307         <MOVE   B* (TP) -10>                                ; (11)
1308         <MOVE   D* (B) 32>
1309         <MOVE   PVP* (B) 33>
1310         <MOVEM  D* (TP) -9>                                 ; (12)
1311         <MOVEM  PVP* (TP) -8>                               ; (13)
1312         <GETYP  O* D>
1313         <CAIN   O* <TYPE-CODE FALSE>>
1314         <JRST   TAG20>
1315         <MOVE   A* D>
1316         <MOVE   B* PVP>
1317         <MOVEI  C* 1 >
1318         <PUSHJ  P* |CINTH >
1319         <ADD    B* [<(60) 60>]>
1320         <JUMPGE B* |CERR2 >
1321         <MOVE   D* (B) 1>
1322         <MOVE   B* (TP) -10>                                ; (11)
1323         <GETYP  PVP* (TP) -11>                              ; (10)
1324         <JUMPE  D* TAG20>
1325 TAG24   <GETYP  O* (D) 0>                                   ; 305
1326         <MOVE   TVP* D>
1327         <CAIN   O* <TYPE-CODE DEFER>>
1328         <MOVE   TVP* (TVP) 1>
1329         <GETYP  O* (TVP) 0>
1330         <CAIN   O* (PVP) 0>
1331         <CAME   B* (TVP) 1>
1332         <SKIPA  O>
1333         <JRST   TAG23>
1334         <HRRZ   D* (D) >
1335         <JUMPN  D* TAG24>
1336         <JRST   TAG20>
1337 TAG23   <MOVE   A* (TP) -9>                                 ; 317 (12)
1338         <MOVE   B* (TP) -8>                                 ; (13)
1339         <MOVEI  C* 3 >
1340         <PUSHJ  P* |CINTH >
1341         <GETYP  O* A>
1342         <CAIE   O* <TYPE-CODE FALSE>>
1343         <JRST   TAG20>
1344 TAG22   <MOVE   A* (TP) -3>                                 ; 324 (18)
1345         <MOVE   B* (TP) -2>                                 ; (19)
1346         <MOVE   C* <TYPE-WORD FIX>>
1347         <MOVEI  D* 3 >
1348         <PUSH   TP* <TYPE-WORD FALSE>>                      ; [22]
1349         <PUSH   TP* [0]>                                    ; [23]
1350         <PUSHJ  P* |CIPUT >
1351 TAG20   <MOVE   A* (TP) -3>                                 ; 331 (18)
1352         <MOVE   B* (TP) -2>                                 ; (19)
1353         <MOVEI  C* 4 >
1354         <PUSHJ  P* |CINTH >
1355         <GETYP  O* A>
1356         <CAIN   O* <TYPE-CODE FALSE>>
1357         <JRST   TAG25>
1358         <MOVE   B* (TP) -10>                                ; (11)
1359         <MOVE   D* (B) 32>
1360         <MOVE   PVP* (B) 33>
1361         <MOVEM  D* (TP) -9>                                 ; (12)
1362         <MOVEM  PVP* (TP) -8>                               ; (13)
1363         <GETYP  O* D>
1364         <CAIN   O* <TYPE-CODE FALSE>>
1365         <JRST   TAG26>
1366         <MOVE   A* D>
1367         <MOVE   B* PVP>
1368         <MOVEI  C* 1 >
1369         <PUSHJ  P* |CINTH >
1370         <ADD    B* [<(60) 60>]>
1371         <JUMPGE B* |CERR2 >
1372         <MOVE   D* (B) 1>
1373         <MOVE   B* (TP) -10>                                ; (11)
1374         <GETYP  PVP* (TP) -11>                              ; (10)
1375         <JUMPE  D* TAG26>
1376 TAG27   <GETYP  O* (D) 0>                                   ; 356
1377         <MOVE   TVP* D>
1378         <CAIN   O* <TYPE-CODE DEFER>>
1379         <MOVE   TVP* (TVP) 1>
1380         <GETYP  O* (TVP) 0>
1381         <CAIN   O* (PVP) 0>
1382         <CAME   B* (TVP) 1>
1383         <SKIPA  O>
1384         <JRST   TAG25>
1385         <HRRZ   D* (D) >
1386         <JUMPN  D* TAG27>
1387 TAG26   <MOVE   A* (TP) -3>                                 ; 367 (18)
1388         <MOVE   B* (TP) -2>                                 ; (19)
1389         <MOVEI  C* 4 >
1390         <PUSHJ  P* |CIREST >
1391         <SKIPN  (TP) -4>                                    ; (17)
1392         <JRST   |CERR2 >
1393         <HRRM   B* @ (TP) -4>                               ; (17)
1394 TAG25   <MOVE   A* (TP) -3>                                 ; 374 (18)
1395         <MOVE   B* (TP) -2>                                 ; (19)
1396         <MOVEI  C* 4 >
1397         <PUSHJ  P* |CIREST >
1398         <MOVEM  A* (TP) -3>                                 ; (18)
1399         <MOVEM  B* (TP) -2>                                 ; (19)
1400         <MOVE   A* (TP) -5>                                 ; (16)
1401         <MOVE   B* (TP) -4>                                 ; (17)
1402         <MOVEI  C* 4 >
1403         <PUSHJ  P* |CIREST >
1404         <MOVEM  A* (TP) -5>                                 ; (16)
1405         <MOVEM  B* (TP) -4>                                 ; (17)
1406         <JRST   TAG28>
1407 TAG17   <MOVE   A* (TP) -7>                                 ; 387 (8)
1408         <MOVE   B* (TP) -6>                                 ; (9)
1409         <MOVE   C* <TYPE-WORD FIX>>
1410         <MOVEI  D* 1 >
1411         <PUSH   TP* (TP) -3>                                ; (12) [16]
1412         <PUSH   TP* (TP) -3>                                ; (13) [17]
1413         <PUSHJ  P* |CIPUT >
1414         <SUB    TP* [<(8) 8>]>
1415         <SETZM  (P) >
1416         <JRST   TAG29>
1417 TAG4    <SUB    TP* [<(6) 6>]>                              ; 397
1418         <SETZM  |DSTORE >
1419         <SUB    TP* [<(4) 4>]>
1420         <SUB    P* [<(1) 1>]>
1421         <MOVE   B* (TP) >                                   ; (3)
1422         <MOVEI  D* 4 >
1423 TAG30   <JUMPE  B* |CERR2 >                                 ; 403
1424         <HRRZ   B* (B) >
1425         <SOJG   D* TAG30>
1426         <MOVEM  B* (TP) >                                   ; (3)
1427         <JRST   TAG31>
1428 TAG3    <SUB    TP* [<(2) 2>]>                              ; 408
1429         <MOVE   A* <TYPE-WORD ATOM>>
1430         <JRST   |MPOPJ >
1431         <(2) 2>
1432         <0>
1433         <IMULI  TB* (B) 0>
1434         <-1>
1435         <IMULI  TB* 1 >
1436         <IMULI  TB* 4 >
1437         <(60) 60>
1438         <IMULI  TB* (TP) -7>                                ; (-8)
1439         <IMULI  TB* (D) 0>
1440         <IMULI  TB* (TVP) 0>
1441         <(6) 6>
1442         <IMULI  TB* (TP) -11>                               ; (-12)
1443         <(8) 8>
1444         <(4) 4>
1445         <(1) 1>
1446         <(1) 4>
1447         <(*54454*) *24755*>
1448         <0>
1449         <(1) 2>
1450 \f
1451 <DEFINE HMAPFR (MNOD WHERE K
1452                 "AUX" XX (NTSLOTS .NTSLOTS)
1453                       (NTMPS
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)
1467                       RV GSTK)
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>>
1479    <PROG ((PRE .PRE))
1480      #DECL ((PRE) <SPECIAL ANY>)
1481      <COND (<AND <NOT <EMPTY? .K>>
1482                  <MAPF <>
1483                        <FUNCTION (Z)
1484                                <AND <TYPE-OK? <RESULT-TYPE .Z>
1485                                               '<PRIMTYPE LIST>>
1486                                     <MAPLEAVE <>>>
1487                                T>
1488                        .K>>
1489             <SET NEED-INT <>>)>
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>>
1494                      .SUBRC>
1495                  <OR <EMPTY? .K>
1496                      <==? <NAME-SYM <1 <BINDING-STRUCTURE .INRAP>>>
1497                           DUMMY-MAPF>>>
1498             <SET GMF T>)
1499            (ELSE <SET GMF <>>)>
1500      <COND (<AND <NOT <EMPTY? .K>>
1501                  <L=? <MAPF ,MIN
1502                             <FUNCTION (N)
1503                                     #DECL ((N) NODE)
1504                                     <MINL <RESULT-TYPE .N>>>
1505                             .K>
1506                       0>>
1507             <SET CHF T>)
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>>>>>>
1511      <SET STOP .STK>
1512      <SET STK (0 !.STK)>
1513      <SET F?
1514       <DO-FIRST-SETUP
1515        .FAP
1516        .DEST
1517        <COND (.GMF
1518               <SET FSYM <1 <BINDING-STRUCTURE .INRAP>>>
1519               <PUT .INRAP ,BINDING-STRUCTURE <REST <BINDING-STRUCTURE .INRAP>>>
1520               .FSYM)>
1521        .CHF
1522        <1? .NARG>
1523        .FLS>>
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>>)>>
1530      <SET STK (0 !.STK)>
1531      <SET STB .STK>
1532      <SET STK (0 !.STK)>
1533      <COND (.F? <SET MAYBE-FALSE <DO-FINAL-SETUP .FAP .SUBRC>>)>
1534      <PROG-START-AC .INRAP>
1535      <LABEL:TAG .MAPLP>
1536      <COND (<AND .F? <NOT .GMF>>
1537             <SET STKOFFS
1538                  <FIND-FIRST-STRUC
1539                   .DTEM .STB <AND <NOT .PRE> <NOT <ACTIVATED .INRAP>>>>>)>
1540      <AND <ACTIVATED .INRAP> <ACT:INITIAL> <ADD:STACK 2>>
1541      <SET STK (0 !.STK)>
1542      <SET STRV .STK>
1543      <OR .PRE
1544          <AND .GMF <1? .NARG>>
1545          <PROG ()
1546                <SALLOC:SLOTS <TMPLS .INRAP>>
1547                <ADD:STACK <TMPLS .INRAP>>
1548                <COND (<NOT .PRE>
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>)
1555               (BST
1556                <COND
1557                 (<EMPTY? .BS> ())
1558                 (ELSE
1559                  <MAPR <>
1560                        <FUNCTION (S)
1561                                #DECL ((S) <LIST SYMTAB>)
1562                                <COND (<N==? <NAME-SYM <1 .S>> DUMMY-MAPF>
1563                                       <MAPLEAVE .S>)
1564                                      (ELSE ())>>
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]>)
1569        <COND
1570         (<EMPTY? .KK>
1571          <AND .GMF <NOT <1? .NARG>> <NOT .FF?> <NOT .FLS> <RET-TMP-AC .OUTD>>
1572          <COND (<AND .F? <NOT .STKOFFS>> <RET-TMP-AC .DTEM>)>
1573          <MAPF <>
1574                <FUNCTION (SYM)
1575                        #DECL ((SYM) SYMTAB)
1576                        <APPLY <NTH ,MBINDERS <CODE-SYM .SYM>> .SYM>>
1577                .BST>
1578          <RETURN>)
1579         (ELSE
1580          <SET RV <TYPE? <ADDR-SYM <1 .BST>> TEMPV>>
1581          <COND (.GMF)
1582                (.F?
1583                 <COND (.STKOFFS
1584                        <SET TEM
1585                             <ADDRESS:C .STKOFFS
1586                                        <COND (.AC-HACK `(FRM) ) (`(TB) )>
1587                                        <COND (.AC-HACK 1) (ELSE 0)>>>
1588                        <OR .RV <SET STKOFFS <+ .STKOFFS 2>>>)
1589                       (ELSE
1590                        <SET TEM
1591                             <SPEC-OFFPTR <1 .OFFSET>
1592                                          .DTEM
1593                                          VECTOR
1594                                          (!<2 .OFFSET>
1595                                           !<STACK:L .STK .STRV>)>>
1596                        <OR .RV
1597                            <SET OFFSET
1598                                 <STFIXIT .OFFSET
1599                                          (2
1600                                           <- <1 .TOFF>>
1601                                           <FORM - 0 !<2 .TOFF>>)>>>)>)
1602                (ELSE
1603                 <SET TEM
1604                      <ADDRESS:C <FORM - <1 .OFFSET> !<STACK:L .STK .STRV>>
1605                                 '`(TP)
1606                                 !<2 .OFFSET>>>
1607                 <SET OFFSET <STFIXIT .OFFSET (2)>>)>
1608          <AND <==? <CODE-SYM <1 .BST>> 4>
1609              <MESSAGE ERROR "NOT IMPLEMENTED MAPF/R TUPLES ">>
1610          <SET OTAG
1611               ((<1 .MAPEND>
1612                 <COND (.GMF (<FORM + !.GOFF>))
1613                       ((<FORM - 0 <1 .TOFF> !<2 .TOFF>>
1614                         <1 <SET TOFF <STFIXIT (0 ()) <STACK:L .STK .STRV>>>>
1615                         !<2 .TOFF>))>)
1616                !.OTAG)>
1617          <COND (.GMF
1618                 <ISET <RESULT-TYPE <1 .KK>>
1619                       <1 .BS>
1620                       <1 .BST>
1621                       .R?
1622                       <1 .MAPEND>
1623                       .CHF
1624                       .NARG
1625                       .MAPL2>
1626                 <SET BS <REST .BS>>
1627                 <SET GOFF <STACK:L .STK .GSTK>>)
1628                (.RV
1629                 <RETURN-UP .INRAP .STK>
1630                 <IISET <RESULT-TYPE <1 .KK>>
1631                        <1 .BST>
1632                        <STACKM <1 .KK> <DATUM .TEM .TEM> .R? <1 .MAPEND> .POFF>
1633                        .R?>)
1634                (ELSE
1635                 <BINDUP <1 .BST>
1636                         <STACKM <1 .KK>
1637                                 <DATUM .TEM .TEM>
1638                                 .R?
1639                                 <1 .MAPEND>
1640                                 .POFF>>)>
1641          <SET MAPEND <REST .MAPEND>>
1642          <SET KK <REST .KK>>
1643          <SET BST <REST .BST>>)>>
1644      <COND
1645       (<AND .GMF <OR .CHF <NOT <1? .NARG>>> <NOT .FLS> <NOT .FF?>>
1646        <PROG ((S .FSYM))
1647              <PUT .S ,STORED T>
1648              <COND (<INACS .S>
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>)>
1655      <OR .PRE
1656          <0? <SET NSLOTS <SSLOTS .INRAP>>>
1657          <PROG ()
1658                <SALLOC:SLOTS .NSLOTS>
1659                <ADD:STACK .NSLOTS>
1660                <EMIT-PRE <SET PRE T>>>>
1661      <AND <ACTIVATED .INRAP> <ACT:FINAL>>
1662      <SET BTP .STK>
1663      <OR .OPRE <SET BASEF .INRAP>>
1664      <SET STK (0 !.STK)>
1665      <AND .NEED-INT <CALL-INTERRUPT>>
1666      <COND
1667       (<AND .R?
1668             <NOT .F?>
1669             <NOT .FF?>
1670             .FLS
1671             <1? .NARG>
1672             <BLT-HACK <KIDS .INRAP>
1673                       <BINDING-STRUCTURE .INRAP>
1674                       <MINL <RESULT-TYPE <1 .K>>>>>
1675        <SET DOIT <>>)
1676       (<OR .F? .FF?>
1677        <SET TEM <SEQ-GEN <KIDS .INRAP> <GOODACS .INRAP DONT-CARE> T>>)
1678       (<NOT .FLS>
1679        <SET TEM
1680         <SEQ-GEN
1681          <KIDS .INRAP>
1682          <COND (.GMF .OUTD)
1683                (ELSE
1684                 <DATUM <SET TT
1685                             <ADDRESS:C <FORM -
1686                                              -1
1687                                              <* 2 .NARG>
1688                                              !<STACK:L .STK .STRV>>
1689                                        '`(TP) >>
1690                        .TT>)>
1691          T>>
1692        <SET OUTD .TEM>)
1693       (ELSE <RET-TMP-AC <SET TEM <SEQ-GEN <KIDS .INRAP> FLUSHED T>>>)>
1694      <COND
1695       (<AND .DOIT <N==? .TEM ,NO-DATUM>>
1696        <COND (<ACTIVATED .INRAP> <PROG:END> <LABEL:OFF .MAP:OFF>)
1697              (<OR .OPRE .F?>
1698               <AND .SPECD
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>)>
1703        <COND
1704         (.F? <DO-STACK-ARGS .MAYBE-FALSE .TEM>)
1705         (<AND .GMF .FF?>
1706          <OR .PRE
1707              <PROG ()
1708                    <SET NTSLOTS <REST <SET NS .NTSLOTS>>>
1709                    <SET OS .STK>
1710                    <SET STK .STB>>>
1711          <DO-EVEN-FUNNIER-HACK .TEM
1712                                .FSYM
1713                                .MNOD
1714                                .FAP
1715                                .INRAP
1716                                <LOOP-VARS .INRAP>>)
1717         (<AND .GMF <NOT .FLS>>
1718          <RET-TMP-AC .TEM>
1719          <PUT .FSYM ,INACS .TEM>
1720          <PUT .FSYM ,STORED <>>
1721          <COND (<TYPE? <DATTYP .TEM> AC>
1722                 <PUT <DATTYP .TEM>
1723                      ,ACRESIDUE
1724                      (.FSYM !<ACRESIDUE <DATTYP .TEM>>)>)>
1725          <PUT <DATVAL .TEM> ,ACRESIDUE (.FSYM !<ACRESIDUE <DATVAL .TEM>>)>
1726          <PUT .FSYM ,STORED <>>
1727          <COND
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>>>
1737            <PUT
1738             .INRAP
1739             ,LOOP-VARS
1740             (.FSYM
1741              <PROG (R R2 D)
1742                    <SET D
1743                         <DATUM
1744                          <COND (<ISTYPE-GOOD? <RESULT-TYPE .MNOD>>)
1745                                (<AND <TYPE? .WHERE DATUM>
1746                                      <TYPE? <SET R <DATTYP .WHERE>> AC>
1747                                      <NOT <ACPROT .R>>>
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>
1752                                      <NOT <ACPROT .R2>>>
1753                                 <SGETREG .R2 <>>)
1754                                (ELSE <SET R2 <GETREG <>>>)>>>
1755                    <COND (<AND <ASSIGNED? R>>
1756                           <TYPE? .R AC>
1757                           <PUT .R ,ACPROT <>>)>
1758                    .D>
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) >>)>
1770        <OR .PRE
1771            <AND .GMF .FF?>
1772            <PROG ()
1773                  <SET NTSLOTS <REST <SET NS .NTSLOTS>>>
1774                  <SET STK .STB>>>)>
1775      <COND
1776       (.DOIT
1777        <AGAIN-UP .INRAP <AND .GMF <1? .NARG>>>
1778        <LABEL:TAG .RTAG>
1779        <COND (.GMF
1780               <REST-STRUCS <BINDING-STRUCTURE .INRAP>
1781                            .K
1782                            <LOOP-VARS .INRAP>
1783                            .NARG
1784                            .MAPL2
1785                            .R?>)>
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>)>)>
1794        <MAPF <>
1795         <FUNCTION (N)
1796                 #DECL ((N) NODE)
1797                 <COND (<NOT <ISTYPE? <STRUCTYP <RESULT-TYPE .N>>>>
1798                        <EMIT '<`SETZM  |DSTORE >>
1799                        <MAPLEAVE>)>>
1800         .K>)
1801       (ELSE <GEN-TAGS .OTAG .SPECD>)>
1802      <CLEANUP-STATE .INRAP>
1803      <LABEL:TAG .APPLTAG>
1804      <COND
1805       (<TYPE? .DEST DATUM>
1806        <SET CD
1807             <COND (.F? <DO-LAST .SUBRC .MAYBE-FALSE <DATUM !.DEST>>)
1808                   (<AND .FF? .GMF>
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>>)
1812                   (ELSE
1813                    <MOVE:ARG
1814                     <DATUM <SET TT <ADDRESS:C <- -1 <* 2 .NARG>> '`(TP) >> .TT>
1815                     <DATUM !.DEST>>)>>
1816        <ACFIX .DEST .CD>
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>
1825      <LABEL:TAG .EXIT>>
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>>)>
1830    <SET STK .OSTK>
1831    <SET XX <MOVE:ARG .DEST .WHERE>>
1832    <END-FRAME>
1833    .XX>
1834 \f
1835         <TITLE HMAPFR>
1836
1837         <DECLARE ("VALUE" ANY NODE!-COMPDEC!-PACKAGE ANY <LIST [REST
1838 NODE!-COMPDEC!-PACKAGE]>)>
1839         <PUSH   TP* (AB) >
1840         <PUSH   TP* (AB) 1>
1841         <PUSH   TP* (AB) 2>
1842         <PUSH   TP* (AB) 3>
1843         <PUSH   TP* (AB) 4>
1844         <PUSH   TP* (AB) 5>
1845         <PUSHJ  P* TAG1>
1846         <JRST   |FINIS >
1847 TAG1    <SUBM   M* (P) >                                    ; 8
1848         <PUSH   TP* [<(*35*) *10*>]>                        ; [6]
1849         <PUSH   TP* FRM>                                    ; [7]
1850         <MOVE   FRM* TP>
1851         <MOVEI  O* *20* >
1852         <PUSHJ  P* |NTPALO >
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]
1865         <PUSHJ  P* |SPECBN >
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>>
1869         <PUSHJ  P* |CILVAL >
1870         <PUSH   TP* A>                                      ; [38]
1871         <PUSH   TP* B>                                      ; [39]
1872         <PUSH   TP* <MQUOTE (LIST)> -1>                     ; [40]
1873         <PUSH   TP* <MQUOTE (LIST)>>                        ; [41]
1874         <PUSHJ  P* |SPECBN >
1875         <MOVE   B* <MQUOTE PRE!-IMAPGEN!-MAPGEN!-PACKAGE>>
1876         <PUSHJ  P* |CILVAL >
1877         <GETYP  O* A>
1878         <CAIN   O* <TYPE-CODE FALSE>>
1879         <JRST   TAG2>
1880         <MOVE   B* <MQUOTE TMPS!-COMPDEC!-PACKAGE>>
1881         <PUSHJ  P* |CILVAL >
1882         <JRST   TAG3>
1883 TAG2    <MOVE   B* <MQUOTE STK!-IMAPGEN!-MAPGEN!-PACKAGE>>  ; 44
1884         <PUSHJ  P* |CILVAL >
1885         <PUSH   TP* A>                                      ; [42]
1886         <PUSH   TP* B>                                      ; [43]
1887         <MOVE   B* <MQUOTE BSTB!-IMAPGEN!-MAPGEN!-PACKAGE>>
1888         <PUSHJ  P* |CILVAL >
1889         <PUSH   TP* A>                                      ; [44]
1890         <PUSH   TP* B>                                      ; [45]
1891         <MCALL  2 STACK:L>
1892         <GETYP  O* A>
1893         <CAIE   O* <TYPE-CODE FALSE>>
1894         <JRST   TAG3>
1895         <MOVE   C* <TYPE-WORD FIX>>
1896         <MOVEI  D* 0>
1897         <MOVEI  E* 0>
1898         <PUSHJ  P* |C1CONS >
1899 TAG3    <PUSH   TP* A>                                      ; 60 [42]
1900         <PUSH   TP* B>                                      ; [43]
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]
1907         <PUSHJ  P* |SPECBN >
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]
1914         <PUSHJ  P* |SPECBN >
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]
1921         <PUSHJ  P* |SPECBN >
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]
1926         <MCALL  2 DATUM>
1927         <PUSH   TP* A>                                      ; [62]
1928         <PUSH   TP* B>                                      ; [63]
1929         <PUSH   TP* <TYPE-WORD FALSE>>                      ; [64]
1930         <PUSH   TP* [0]>                                    ; [65]
1931         <MOVE   B* (FRM) -2>                                ; (-2)
1932         <JUMPE  B* |CERR2 >
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]
1937         <JUMPE  B* |CERR2 >
1938         <HRRZ   D* (B) >
1939         <JUMPE  D* |CERR2 >
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]
1944         <PUSHJ  P* |SPECBN >
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]
1951         <PUSHJ  P* |SPECBN >
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]
1958         <PUSHJ  P* |SPECBN >
1959         <PUSH   TP* [<(%<TYPE-CODE ATOM>) -1>]>             ; [86]
1960         <PUSH   TP* <MQUOTE NARG!-IMAPGEN!-MAPGEN!-PACKAGE>>; [87]
1961         <MOVE   B* (FRM) -2>                                ; (-2)
1962         <JUMPE  B* |CERR2 >
1963         <HRRZ   B* (B) >
1964         <JUMPE  B* |CERR2 >
1965         <HRRZ   B* (B) >
1966         <MOVE   D* B>
1967         <JRST   TAG4>
1968 TAG5    <HRR    D* (D) -1>                                  ; 129
1969 TAG4    <TRNE   D* -1 >                                     ; 130
1970         <AOBJP  D* TAG5>
1971         <HLRZS  D>
1972         <PUSH   TP* <TYPE-WORD FIX>>                        ; [88]
1973         <PUSH   TP* D>                                      ; [89]
1974         <PUSH   TP* <MQUOTE (FIX)> -1>                      ; [90]
1975         <PUSH   TP* <MQUOTE (FIX)>>                         ; [91]
1976         <MOVEM  B* (FRM) -2>                                ; (-2)
1977         <PUSHJ  P* |SPECBN >
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]
1984         <PUSHJ  P* |SPECBN >
1985         <MOVE   B* (FRM) 26>                                ; (26)
1986         <ADD    B* [<(18) 18>]>
1987         <JUMPGE B* |CERR2 >
1988         <MOVE   D* (B) >
1989         <MOVE   PVP* (B) 1>
1990         <MOVE   B* <MQUOTE %<RGLOC MAPR T>>>
1991         <ADD    B* |GLOTOP 1>
1992         <GETYP  O* (B) 0>
1993         <GETYP  TVP* D>
1994         <CAMN   PVP* (B) 1>
1995         <CAIE   O* (TVP) 0>
1996         <JRST   TAG6>
1997         <MOVE   B* <MQUOTE T> -1>
1998         <MOVE   TVP* <MQUOTE T>>
1999         <JRST   TAG7>
2000 TAG6    <MOVE   B* <TYPE-WORD FALSE>>                       ; 161
2001         <MOVEI  TVP* 0>
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]
2010         <PUSHJ  P* |SPECBN >
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
2019         <JRST   TAG8>
2020         <PUSH   TP* <MQUOTE "MAP"> -1>                      ; [112]
2021         <PUSH   TP* <MQUOTE "MAP">>                         ; [113]
2022         <MCALL  1 MAKE:TAG>
2023         <MOVE   C* A>
2024         <MOVE   D* B>
2025         <MOVEI  E* 0>
2026         <PUSHJ  P* |CICONS >
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)
2032         <JRST   TAG9>
2033 TAG8    <MOVE   B* (TP) -2>                                 ; 194 (109)
2034         <SUB    TP* [<(4) 4>]>
2035         <SUB    P* [<(1) 1>]>
2036         <PUSH   TP* <TYPE-WORD LIST>>                       ; [108]
2037         <PUSH   TP* B>                                      ; [109]
2038         <MOVE   B* <MQUOTE STK!-IMAPGEN!-MAPGEN!-PACKAGE>>
2039         <PUSHJ  P* |CILVAL >
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]
2046         <MCALL  1 MAKE:TAG>
2047         <PUSH   TP* A>                                      ; [114]
2048         <PUSH   TP* B>                                      ; [115]
2049         <PUSH   TP* <MQUOTE (ATOM)> -1>                     ; [116]
2050         <PUSH   TP* <MQUOTE (ATOM)>>                        ; [117]
2051         <PUSHJ  P* |SPECBN >
2052         <PUSH   TP* <MQUOTE "MAP"> -1>                      ; [118]
2053         <PUSH   TP* <MQUOTE "MAP">>                         ; [119]
2054         <MCALL  1 MAKE:TAG>
2055         <PUSH   TP* A>                                      ; [118]
2056         <PUSH   TP* B>                                      ; [119]
2057         <PUSH   TP* (FRM) 59>                               ; (59) [120]
2058         <PUSH   TP* (FRM) 60>                               ; (60) [121]
2059         <MCALL  1 AP?>
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]
2068         <PUSHJ  P* |SPECBN >
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>>
2074         <PUSHJ  P* |CILVAL >
2075         <PUSH   P* [1]>
2076         <MOVEI  O* |SEGLST >
2077         <PUSHJ  P* |RCALL >
2078         <SUB    P* [<(1) 1>]>
2079         <PUSH   TP* A>                                      ; [130]
2080         <PUSH   TP* B>                                      ; [131]
2081         <PUSH   TP* <MQUOTE (LIST)> -1>                     ; [132]
2082         <PUSH   TP* <MQUOTE (LIST)>>                        ; [133]
2083         <PUSHJ  P* |SPECBN >
2084         <PUSH   TP* [<(%<TYPE-CODE ATOM>) -1>]>             ; [134]
2085         <PUSH   TP* <MQUOTE TMPS!-COMPDEC!-PACKAGE>>        ; [135]
2086         <MOVE   B* <MQUOTE TMPS!-COMPDEC!-PACKAGE>>
2087         <PUSHJ  P* |CILVAL >
2088         <PUSH   TP* A>                                      ; [136]
2089         <PUSH   TP* B>                                      ; [137]
2090         <PUSH   TP* <MQUOTE (LIST)> -1>                     ; [138]
2091         <PUSH   TP* <MQUOTE (LIST)>>                        ; [139]
2092         <PUSHJ  P* |SPECBN >
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]
2099         <PUSHJ  P* |SPECBN >
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>>
2103         <PUSHJ  P* |CILVAL >
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]
2108         <PUSHJ  P* |SPECBN >
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>>
2112         <PUSHJ  P* |CILVAL >
2113         <PUSH   TP* A>                                      ; [154]
2114         <PUSH   TP* B>                                      ; [155]
2115         <PUSH   TP* <MQUOTE (LIST)> -1>                     ; [156]
2116         <PUSH   TP* <MQUOTE (LIST)>>                        ; [157]
2117         <PUSHJ  P* |SPECBN >
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]
2124         <PUSHJ  P* |SPECBN >
2125         <MOVE   B* <MQUOTE PRE!-IMAPGEN!-MAPGEN!-PACKAGE>>
2126         <PUSHJ  P* |CILVAL >
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]
2137         <PUSHJ  P* |SPECBN >
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]
2144         <PUSHJ  P* |SPECBN >
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>>
2148         <PUSHJ  P* |CILVAL >
2149         <PUSH   TP* A>                                      ; [182]
2150         <PUSH   TP* B>                                      ; [183]
2151         <PUSH   TP* <MQUOTE (ANY)> -1>                      ; [184]
2152         <PUSH   TP* <MQUOTE (ANY)>>                         ; [185]
2153         <PUSHJ  P* |SPECBN >
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]
2158         <MCALL  1 MAKE:TAG>
2159         <PUSH   TP* A>                                      ; [188]
2160         <PUSH   TP* B>                                      ; [189]
2161         <PUSH   TP* <MQUOTE (ATOM)> -1>                     ; [190]
2162         <PUSH   TP* <MQUOTE (ATOM)>>                        ; [191]
2163         <PUSHJ  P* |SPECBN >
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]
2168         <MCALL  1 MAKE:TAG>
2169         <PUSH   TP* A>                                      ; [194]
2170         <PUSH   TP* B>                                      ; [195]
2171         <PUSH   TP* <MQUOTE (ATOM)> -1>                     ; [196]
2172         <PUSH   TP* <MQUOTE (ATOM)>>                        ; [197]
2173         <PUSHJ  P* |SPECBN >
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]
2180         <PUSHJ  P* |SPECBN >
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)
2185         <GETYP  O* B>
2186         <CAMN   D* <MQUOTE FLUSHED!-COMPDEC!-PACKAGE>>
2187         <CAIE   O* <TYPE-CODE ATOM>>
2188         <JRST   TAG10>
2189         <MOVE   PVP* <MQUOTE T> -1>
2190         <MOVE   TVP* <MQUOTE T>>
2191         <JRST   TAG11>
2192 TAG10   <MOVE   PVP* <TYPE-WORD FALSE>>                     ; 353
2193         <MOVEI  TVP* 0>
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]
2200         <MCALL  1 MAKE:TAG>
2201         <PUSH   TP* A>                                      ; [210]
2202         <PUSH   TP* B>                                      ; [211]
2203         <PUSH   TP* <MQUOTE (ATOM)> -1>                     ; [212]
2204         <PUSH   TP* <MQUOTE (ATOM)>>                        ; [213]
2205         <PUSHJ  P* |SPECBN >
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]
2216         <PUSHJ  P* |SPECBN >
2217         <MOVEI  O* *22* >
2218         <PUSHJ  P* |NTPALO >
2219         <INTGO>
2220         <MOVE   B* (FRM) 64>                                ; (64)
2221         <ADD    B* [<(22) 22>]>
2222         <JUMPGE B* |CERR2 >
2223         <PUSH   TP* <TYPE-WORD FIX>>                        ; [242]
2224         <PUSH   TP* (B) 1>                                  ; [243]
2225         <MOVE   B* <MQUOTE TOT-SPEC!-IMAPGEN!-MAPGEN!-PACKAGE>>
2226         <PUSHJ  P* |CILVAL >
2227         <PUSH   TP* A>                                      ; [244]
2228         <PUSH   TP* B>                                      ; [245]
2229         <MOVEI  A* 2 >
2230         <PUSHJ  P* |CMINUS >
2231         <MOVE   D* (FRM) 64>                                ; (64)
2232         <ADD    D* [<(22) 22>]>
2233         <JUMPGE D* |CERR2 >
2234         <MOVEM  A* (D) >
2235         <MOVEM  B* (D) 1>
2236         <MOVE   B* <MQUOTE PRE!-IMAPGEN!-MAPGEN!-PACKAGE>>
2237         <PUSHJ  P* |CILVAL >
2238         <MOVEI  E* (FRM) 217>                               ; (217)
2239         <MOVE   C* <MQUOTE PRE!-IMAPGEN!-MAPGEN!-PACKAGE>>
2240         <MOVE   D* <MQUOTE (ANY)>>
2241         <PUSHJ  P* |IBIND >
2242         <MOVE   B* (FRM) -2>                                ; (-2)
2243         <JUMPE  B* TAG12>
2244         <MOVE   D* <TYPE-WORD FALSE>>
2245         <MOVEI  PVP* 0>
2246         <JUMPE  B* TAG13>
2247 TAG17   <MOVE   TVP* (B) 1>                                 ; 409
2248         <SKIPGE |INTFLG >
2249         <TAG14>
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]
2257         <MCALL  2 TYPE-OK?>
2258         <GETYP  O* A>
2259         <CAIN   O* <TYPE-CODE FALSE>>
2260         <JRST   TAG15>
2261         <MOVE   B* <TYPE-WORD FALSE>>
2262         <MOVEI  D* 0>
2263         <JRST   TAG16>
2264 TAG15   <MOVE   B* <MQUOTE T> -1>                           ; 426
2265         <MOVE   D* <MQUOTE T>>
2266         <MOVE   D* B>
2267         <MOVE   PVP* D>
2268         <MOVE   B* (FRM) 6>                                 ; (6)
2269         <HRRZ   B* (B) >
2270         <JUMPN  B* TAG17>
2271 TAG13   <MOVE   B* PVP>                                     ; 433
2272 TAG16   <JUMPGE D* TAG12>                                   ; 434
2273         <MOVE   B* <TYPE-WORD FALSE>>
2274         <MOVEI  D* 0>
2275         <MOVEM  B* (FRM) 207>                               ; (207)
2276         <MOVEM  D* (FRM) 208>                               ; (208)
2277 TAG12   <MOVE   B* (FRM) -2>                                ; 439 (-2)
2278         <JUMPN  B* TAG18>
2279         <MOVE   D* (FRM) 60>                                ; (60)
2280         <GETYP  O* (D) 6>
2281         <CAIE   O* <TYPE-CODE FALSE>>
2282         <JRST   TAG19>
2283 TAG18   <MOVE   D* (FRM) 60>                                ; 445 (60)
2284         <MOVE   PVP* (D) 6>
2285         <MOVE   TVP* (D) 7>
2286         <GETYP  O* PVP>
2287         <CAIN   TVP* 0>
2288         <CAIE   O* <TYPE-CODE FALSE>>
2289         <SKIPA  O>
2290         <JRST   TAG20>
2291         <MOVE   C* (D) 1>
2292         <CAIE   C* *107* >
2293         <JRST   TAG21>
2294         <ADD    D* [<(18) 18>]>
2295         <JUMPGE D* |CERR2 >
2296         <MOVE   E* (D) >
2297         <MOVE   A* (D) 1>
2298         <GETYP  O* E>
2299         <CAIN   A* 5 >
2300         <CAIE   O* <TYPE-CODE FIX>>
2301         <JRST   TAG20>
2302 TAG21   <GETYP  O* (FRM) 113>                               ; 464 (113)
2303         <CAIN   O* <TYPE-CODE FALSE>>
2304         <JRST   TAG19>
2305 TAG20   <JUMPE  B* TAG22>                                   ; 467
2306         <MOVE   D* (FRM) 64>                                ; (64)
2307         <ADD    D* [<(20) 20>]>
2308         <JUMPGE D* |CERR2 >
2309         <MOVE   C* (D) 1>
2310         <JUMPE  C* |CERR2 >
2311         <MOVE   E* (C) 1>
2312         <MOVE   D* (E) 3>
2313         <CAME   D* <MQUOTE DUMMY-MAPF!-COMPDEC!-PACKAGE>>
2314         <JRST   TAG19>
2315 TAG22   <MOVE   D* <MQUOTE T> -1>                           ; 477
2316         <MOVE   PVP* <MQUOTE T>>
2317         <JRST   TAG23>
2318 TAG19   <MOVE   D* <TYPE-WORD FALSE>>                       ; 480
2319         <MOVEI  PVP* 0>
2320 TAG23   <MOVEM  D* (FRM) 193>                               ; 482 (193)
2321         <MOVEM  PVP* (FRM) 194>                             ; (194)
2322         <JUMPE  B* TAG24>
2323         <PUSH   P* [0]>
2324         <JUMPE  B* TAG25>
2325 TAG27   <MOVE   TVP* (B) 1>                                 ; 487
2326         <SKIPGE |INTFLG >
2327         <TAG26>
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)
2333         <MCALL  1 MINL>
2334         <PUSH   TP* A>                                      ; [242]
2335         <PUSH   TP* B>                                      ; [243]
2336         <AOS    (P) >
2337         <MOVE   B* (FRM) 4>                                 ; (4)
2338         <HRRZ   B* (B) >
2339         <JUMPN  B* TAG27>
2340 TAG25   <POP    P* A>                                       ; 502
2341         <PUSHJ  P* |CMIN >
2342         <JUMPG  B* TAG24>
2343         <MOVE   B* <MQUOTE T> -1>
2344         <MOVE   D* <MQUOTE T>>
2345         <JRST   TAG28>
2346 TAG24   <MOVE   B* <TYPE-WORD FALSE>>                       ; 508
2347         <MOVEI  D* 0>
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>>
2352         <JRST   TAG29>
2353         <MOVE   PVP* <MQUOTE FLUSHED!-COMPDEC!-PACKAGE> -1>
2354         <MOVE   TVP* <MQUOTE FLUSHED!-COMPDEC!-PACKAGE>>
2355         <JRST   TAG30>
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]
2360         <MCALL  2 GOODACS>
2361         <MOVE   PVP* A>
2362         <MOVE   TVP* B>
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>>
2369         <JRST   TAG31>
2370         <MOVE   B* (FRM) 64>                                ; (64)
2371         <ADD    B* [<(30) 30>]>
2372         <JUMPGE B* |CERR2 >
2373         <SKIPGE (B) 1>
2374         <JRST   TAG32>
2375         <MOVE   B* (FRM) 142>                               ; (142)
2376         <ADD    B* [<(26) 26>]>
2377         <JUMPGE B* |CERR2 >
2378         <SKIPE  (B) 1>
2379         <JRST   TAG33>
2380 TAG32   <MOVE   B* <TYPE-WORD FALSE>>                       ; 542
2381         <MOVEI  D* 0>
2382         <JRST   TAG34>
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]
2387         <MCALL  1 EMIT-PRE>
2388 TAG31   <MOVE   B* (FRM) 123>                               ; 550 (123)
2389         <MOVE   D* (FRM) 124>                               ; (124)
2390         <MOVE   E* D>
2391         <MOVEM  B* (FRM) 117>                               ; (117)
2392         <MOVEM  D* (FRM) 118>                               ; (118)
2393         <MOVE   C* <TYPE-WORD FIX>>
2394         <MOVEI  D* 0>
2395         <PUSHJ  P* |C1CONS >
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)
2402         <GETYP  O* D>
2403         <CAIN   O* <TYPE-CODE FALSE>>
2404         <JRST   TAG35>
2405         <MOVE   TVP* (FRM) 64>                              ; (64)
2406         <ADD    TVP* [<(20) 20>]>
2407         <JUMPGE TVP* |CERR2 >
2408         <MOVE   C* (TVP) 1>
2409         <JUMPE  C* |CERR2 >
2410         <MOVE   TVP* (C) 1>
2411         <MOVE   C* (FRM) 64>                                ; (64)
2412         <ADD    C* [<(20) 20>]>
2413         <JUMPGE C* |CERR2 >
2414         <MOVE   E* (C) 1>
2415         <JUMPE  E* |CERR2 >
2416         <HRRZ   C* (E) >
2417         <MOVE   SP* (FRM) 64>                               ; (64)
2418         <ADD    SP* [<(20) 20>]>
2419         <JUMPGE SP* |CERR2 >
2420         <MOVEM  C* (SP) 1>
2421         <MOVE   D* <MQUOTE %<TYPE-W SYMTAB!-COMPDEC!-PACKAGE VECTOR>>>
2422         <MOVE   PVP* TVP>
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)
2431         <SOJN   D* TAG36>
2432         <MOVE   D* <MQUOTE T> -1>
2433         <MOVE   PVP* <MQUOTE T>>
2434         <JRST   TAG37>
2435 TAG36   <MOVE   D* <TYPE-WORD FALSE>>                       ; 597
2436         <MOVEI  PVP* 0>
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>
2442         <GETYP  O* A>
2443         <CAIE   O* <TYPE-CODE FALSE>>
2444         <JRST   TAG38>
2445         <MOVE   D* (FRM) 60>                                ; (60)
2446         <MOVE   PVP* (D) 1>
2447         <CAIE   PVP* *107* >
2448         <JRST   TAG39>
2449         <MOVE   TVP* <MQUOTE T> -1>
2450         <MOVE   C* <MQUOTE T>>
2451         <JRST   TAG40>
2452 TAG39   <MOVE   TVP* <TYPE-WORD FALSE>>                     ; 614
2453         <MOVEI  C* 0>
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>]>
2464         <JUMPGE D* |CERR2 >
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)
2476         <GETYP  O* D>
2477         <CAIN   O* <TYPE-CODE FALSE>>
2478         <JRST   TAG41>
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)
2488         <SOJN   D* TAG42>
2489         <MOVE   D* <MQUOTE T> -1>
2490         <MOVE   PVP* <MQUOTE T>>
2491         <JRST   TAG43>
2492 TAG42   <MOVE   D* <TYPE-WORD FALSE>>                       ; 654
2493         <MOVEI  PVP* 0>
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>>
2501         <JRST   TAG44>
2502         <GETYP  O* (FRM) 199>                               ; (199)
2503         <CAIE   O* <TYPE-CODE FALSE>>
2504         <JRST   TAG44>
2505         <MOVE   B* (FRM) 18>                                ; (18)
2506         <GETYP  O* (B) 24>
2507         <CAIN   O* <TYPE-CODE FALSE>>
2508         <JRST   TAG44>
2509         <MOVE   D* (B) 24>
2510         <MOVE   PVP* (B) 25>
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>]>
2515         <JUMPGE B* |CERR2 >
2516         <PUSH   TP* <TYPE-WORD ATOM>>                       ; [238]
2517         <PUSH   TP* (B) 1>                                  ; [239]
2518         <MOVE   B* (FRM) 64>                                ; (64)
2519         <ADD    B* [<(30) 30>]>
2520         <JUMPGE B* |CERR2 >
2521         <PUSH   TP* (B) >                                   ; [240]
2522         <PUSH   TP* (B) 1>                                  ; [241]
2523         <MOVE   B* (FRM) 64>                                ; (64)
2524         <ADD    B* [<(34) 34>]>
2525         <JUMPGE B* |CERR2 >
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>>
2531         <JRST   TAG45>
2532         <MOVE   B* (FRM) 36>                                ; (36)
2533         <JRST   TAG46>
2534 TAG45   <PUSH   TP* (FRM) 123>                              ; 696 (123) [238]
2535         <PUSH   TP* (FRM) 124>                              ; (124) [239]
2536         <MOVE   B* (FRM) 148>                               ; (148)
2537         <JUMPE  B* |CERR2 >
2538         <HRRZ   D* (B) >
2539         <JUMPE  D* |CERR2 >
2540         <GETYP  O* (D) 0>
2541         <CAIN   O* <TYPE-CODE DEFER>>
2542         <MOVE   D* (D) 1>
2543         <PUSH   TP* (D) >                                   ; [240]
2544         <PUSH   TP* (D) 1>                                  ; [241]
2545         <MCALL  2 STACK:L>
2546 TAG46   <MOVE   E* (FRM) 124>                               ; 708 (124)
2547         <MOVE   C* <TYPE-WORD FIX>>
2548         <MOVEI  D* 0>
2549         <MOVEM  B* (FRM) 130>                               ; (130)
2550         <PUSHJ  P* |C1CONS >
2551         <MOVE   E* B>
2552         <MOVE   C* <TYPE-WORD FIX>>
2553         <MOVEI  D* 0>
2554         <MOVEM  A* (FRM) 51>                                ; (51)
2555         <MOVEM  B* (FRM) 52>                                ; (52)
2556         <MOVEM  A* (FRM) 123>                               ; (123)
2557         <MOVEM  B* (FRM) 124>                               ; (124)
2558         <PUSHJ  P* |C1CONS >
2559         <MOVEM  A* (FRM) 123>                               ; (123)
2560         <MOVEM  B* (FRM) 124>                               ; (124)
2561         <GETYP  O* (FRM) 13>                                ; (13)
2562         <CAIN   O* <TYPE-CODE FALSE>>
2563         <JRST   TAG47>
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]
2576         <MCALL  1 LABEL:TAG>
2577         <GETYP  O* (FRM) 13>                                ; (13)
2578         <CAIN   O* <TYPE-CODE FALSE>>
2579         <JRST   TAG48>
2580         <GETYP  O* (FRM) 193>                               ; (193)
2581         <CAIE   O* <TYPE-CODE FALSE>>
2582         <JRST   TAG48>
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>>
2589         <JRST   TAG49>
2590 TAG51   <MOVE   B* <TYPE-WORD FALSE>>                       ; 752
2591         <MOVEI  D* 0>
2592         <JRST   TAG50>
2593 TAG49   <MOVE   B* (FRM) 64>                                ; 755 (64)
2594         <ADD    B* [<(30) 30>]>
2595         <JUMPGE B* |CERR2 >
2596         <SKIPGE (B) 1>
2597         <JRST   TAG51>
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>]>
2607         <JUMPGE B* |CERR2 >
2608         <SKIPL  (B) 1>
2609         <JRST   TAG52>
2610         <MCALL  0 ACT:INITIAL>
2611         <GETYP  O* A>
2612         <CAIN   O* <TYPE-CODE FALSE>>
2613         <JRST   TAG52>
2614         <PUSH   TP* <TYPE-WORD FIX>>                        ; [238]
2615         <PUSH   TP* [2]>                                    ; [239]
2616         <MCALL  1 ADD:STACK>
2617 TAG52   <MOVE   E* (FRM) 124>                               ; 779 (124)
2618         <MOVE   C* <TYPE-WORD FIX>>
2619         <MOVEI  D* 0>
2620         <PUSHJ  P* |C1CONS >
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>>
2627         <JRST   TAG53>
2628         <GETYP  O* (FRM) 193>                               ; (193)
2629         <CAIN   O* <TYPE-CODE FALSE>>
2630         <JRST   TAG54>
2631         <MOVE   D* (FRM) 82>                                ; (82)
2632         <SOJE   D* TAG53>
2633 TAG54   <MOVE   D* (FRM) 64>                                ; 795 (64)
2634         <ADD    D* [<(32) 32>]>
2635         <JUMPGE D* |CERR2 >
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>]>
2641         <JUMPGE B* |CERR2 >
2642         <PUSH   TP* <TYPE-WORD ATOM>>                       ; [238]
2643         <PUSH   TP* (B) 1>                                  ; [239]
2644         <MCALL  1 ADD:STACK>
2645         <GETYP  O* (FRM) 219>                               ; (219)
2646         <CAIE   O* <TYPE-CODE FALSE>>
2647         <JRST   TAG55>
2648         <PUSH   TP* <MQUOTE GVAL> -1>                       ; [238]
2649         <PUSH   TP* <MQUOTE GVAL>>                          ; [239]
2650         <MOVE   B* (FRM) 64>                                ; (64)
2651         <ADD    B* [<(32) 32>]>
2652         <JUMPGE B* |CERR2 >
2653         <PUSH   TP* <TYPE-WORD ATOM>>                       ; [240]
2654         <PUSH   TP* (B) 1>                                  ; [241]
2655         <MOVEI  A* 2 >
2656         <PUSHJ  P* |IIFORM >
2657         <MOVE   C* A>
2658         <MOVE   D* B>
2659         <MOVEI  E* 0>
2660         <PUSHJ  P* |C1CONS >
2661         <MOVE   O* <TYPE-WORD LIST>>
2662         <MOVEM  O* (FRM) 1>                                 ; (1)
2663         <MOVEM  B* (FRM) 2>                                 ; (2)
2664         <MOVE   D* (FRM) 32>                                ; (32)
2665         <HRRM   D* @ B>
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>>
2670         <JRST   TAG53>
2671         <MOVE   B* (FRM) 123>                               ; (123)
2672         <MOVE   D* (FRM) 124>                               ; (124)
2673         <MOVE   E* D>
2674         <MOVEM  B* (FRM) 213>                               ; (213)
2675         <MOVEM  D* (FRM) 214>                               ; (214)
2676         <MOVE   C* <TYPE-WORD FIX>>
2677         <MOVEI  D* 0>
2678         <PUSHJ  P* |C1CONS >
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>>
2683         <JRST   TAG56>
2684         <GETYP  O* (FRM) 193>                               ; (193)
2685         <CAIN   O* <TYPE-CODE FALSE>>
2686         <JRST   TAG56>
2687         <MOVE   B* (FRM) 82>                                ; (82)
2688         <SOJE   B* TAG56>
2689         <MOVE   B* (FRM) 123>                               ; (123)
2690         <MOVE   D* (FRM) 124>                               ; (124)
2691         <MOVEM  B* (FRM) 213>                               ; (213)
2692         <MOVEM  D* (FRM) 214>                               ; (214)
2693         <MOVE   E* D>
2694         <MOVE   C* <TYPE-WORD FIX>>
2695         <MOVEI  D* 0>
2696         <PUSHJ  P* |C1CONS >
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>>
2701         <JRST   TAG57>
2702         <MOVNI  B* 2 >
2703         <JRST   TAG58>
2704 TAG57   <GETYP  O* (FRM) 13>                                ; 866 (13)
2705         <CAIN   O* <TYPE-CODE FALSE>>
2706         <JRST   TAG59>
2707         <MOVNI  B* 1 >
2708         <JRST   TAG58>
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>>
2713         <JRST   TAG60>
2714         <GETYP  O* (FRM) 15>                                ; (15)
2715         <CAIE   O* <TYPE-CODE FALSE>>
2716         <JRST   TAG61>
2717         <MOVE   D* (FRM) 82>                                ; (82)
2718         <SOJE   D* TAG60>
2719 TAG61   <GETYP  O* (FRM) 199>                               ; 881 (199)
2720         <CAIE   O* <TYPE-CODE FALSE>>
2721         <JRST   TAG60>
2722         <PUSH   TP* (FRM) 17>                               ; (17) [238]
2723         <PUSH   TP* (FRM) 18>                               ; (18) [239]
2724         <MCALL  1 LVAL-UP>
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>]>
2731         <JUMPGE B* |CERR2 >
2732         <MOVE   O* <TYPE-WORD LIST>>
2733         <MOVEM  O* (FRM) 225>                               ; (225)
2734         <MOVE   O* (B) 1>
2735         <MOVEM  O* (FRM) 226>                               ; (226)
2736         <MOVE   A* (FRM) 225>                               ; (225)
2737         <MOVE   B* (FRM) 226>                               ; (226)
2738         <PUSHJ  P* |CEMPTY >
2739         <JRST   TAG62>
2740         <MOVEI  B* 0>
2741         <JRST   TAG63>
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]
2746         <PUSH   P* [-1]>
2747 TAG66   <MOVE   A* (TP) -1>                                 ; 909 (240)
2748         <MOVE   B* (TP) >                                   ; (241)
2749         <PUSHJ  P* |TYPSEG >
2750         <SKIPL  (P) >
2751         <XCT    (C) |INCR1 >
2752         <XCT    (C) |TESTR >
2753         <JRST   TAG64>
2754         <MOVE   A* |DSTORE >
2755         <MOVE   B* D>
2756         <MOVE   O* |DSTORE >
2757         <MOVEM  O* (TP) -1>                                 ; (240)
2758         <MOVEM  D* (TP) >                                   ; (241)
2759         <SETZM  |DSTORE >
2760         <SKIPGE |INTFLG >
2761         <SAVAC  O* [<(*100*) 0>]>
2762         <MOVE   D* (B) 1>
2763         <MOVE   PVP* (D) 3>
2764         <CAME   PVP* <MQUOTE DUMMY-MAPF!-COMPDEC!-PACKAGE>>
2765         <JRST   TAG65>
2766         <MOVEI  TVP* 0>
2767         <MOVE   O* <TYPE-WORD LIST>>
2768         <MOVEM  O* (TP) -3>                                 ; (238)
2769         <MOVEM  TVP* (TP) -2>                               ; (239)
2770         <SETZM  (P) >
2771         <JRST   TAG66>
2772 TAG64   <SETZM  |DSTORE >                                   ; 934
2773         <MOVE   B* (TP) -2>                                 ; (239)
2774 TAG65   <SUB    TP* [<(4) 4>]>                              ; 936
2775         <SUB    P* [<(1) 1>]>
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>>
2780         <MOVEI  D* 0>
2781         <MOVEI  E* 0>
2782         <PUSHJ  P* |C1CONS >
2783         <MOVEI  D* 1 >
2784         <MOVE   PVP* (FRM) 82>                              ; (82)
2785         <ASH    PVP* A>
2786         <SUB    D* PVP>
2787         <MOVE   C* <TYPE-WORD FIX>>
2788         <MOVE   E* B>
2789         <PUSHJ  P* |C1CONS >
2790         <MOVEM  A* (FRM) 229>                               ; (229)
2791         <MOVEM  B* (FRM) 230>                               ; (230)
2792         <MOVE   C* <TYPE-WORD LIST>>
2793         <MOVEI  D* 0>
2794         <MOVEI  E* 0>
2795         <PUSHJ  P* |C1CONS >
2796         <MOVE   C* <TYPE-WORD FIX>>
2797         <MOVEI  D* 0>
2798         <MOVE   E* B>
2799         <PUSHJ  P* |C1CONS >
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)
2806 TAG88   <INTGO>                                             ; 968
2807         <MOVE   B* (FRM) 224>                               ; (224)
2808         <JUMPN  B* TAG67>
2809         <GETYP  O* (FRM) 193>                               ; (193)
2810         <CAIN   O* <TYPE-CODE FALSE>>
2811         <JRST   TAG68>
2812         <MOVE   D* (FRM) 82>                                ; (82)
2813         <SOJE   D* TAG68>
2814         <GETYP  O* (FRM) 99>                                ; (99)
2815         <CAIE   O* <TYPE-CODE FALSE>>
2816         <JRST   TAG68>
2817         <GETYP  O* (FRM) 199>                               ; (199)
2818         <CAIE   O* <TYPE-CODE FALSE>>
2819         <JRST   TAG68>
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>>
2825         <JRST   TAG69>
2826         <GETYP  O* (FRM) 57>                                ; (57)
2827         <CAIE   O* <TYPE-CODE FALSE>>
2828         <JRST   TAG69>
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)
2833         <JUMPE  B* TAG70>
2834 TAG71   <MOVE   D* (B) 1>                                   ; 997
2835         <SKIPGE |INTFLG >
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)
2842         <MOVE   A* (PVP) >
2843         <MOVE   B* (PVP) 1>
2844         <MOVE   C* (D) 7>
2845         <MOVE   O* <MQUOTE %<TYPE-W SYMTAB!-COMPDEC!-PACKAGE VECTOR>>>
2846         <MOVEM  O* (FRM) 1>                                 ; (1)
2847         <MOVEM  D* (FRM) 2>                                 ; (2)
2848         <PUSHJ  P* |CINTH >
2849         <PUSH   TP* A>                                      ; [238]
2850         <PUSH   TP* B>                                      ; [239]
2851         <PUSH   TP* (FRM) 1>                                ; (1) [240]
2852         <PUSH   TP* (FRM) 2>                                ; (2) [241]
2853         <MCALL  2 APPLY>
2854         <MOVE   B* (FRM) 6>                                 ; (6)
2855         <HRRZ   B* (B) >
2856         <JUMPN  B* TAG71>
2857         <JRST   TAG70>
2858 TAG67   <MOVE   D* (FRM) 228>                               ; 1021 (228)
2859         <JUMPE  D* |CERR2 >
2860         <MOVE   PVP* (D) 1>
2861         <GETYP  O* (PVP) 14>
2862         <CAIE   O* <MQUOTE %<TYPE-C TEMPV!-COMPDEC!-PACKAGE LIST>>>
2863         <JRST   TAG72>
2864         <MOVE   TVP* <MQUOTE TEMPV!-COMPDEC!-PACKAGE>>
2865         <MOVE   C* <TYPE-WORD ATOM>>
2866         <JRST   TAG73>
2867 TAG72   <MOVE   C* <TYPE-WORD FALSE>>                       ; 1030
2868         <MOVEI  TVP* 0>
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>>
2873         <JRST   TAG74>
2874         <GETYP  O* (FRM) 13>                                ; (13)
2875         <CAIN   O* <TYPE-CODE FALSE>>
2876         <JRST   TAG75>
2877         <GETYP  O* (FRM) 57>                                ; (57)
2878         <CAIN   O* <TYPE-CODE FALSE>>
2879         <JRST   TAG76>
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>>
2884         <JRST   TAG77>
2885         <MOVSI  E* <TYPE-CODE FORM>>
2886         <JRST   TAG78>
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>>
2892         <JRST   TAG79>
2893         <MOVEI  E* 1 >
2894         <JRST   TAG80>
2895 TAG79   <MOVEI  E* 0>                                       ; 1058
2896 TAG80   <PUSH   TP* <TYPE-WORD FIX>>                        ; 1059 [242]
2897         <PUSH   TP* E>                                      ; [243]
2898         <MCALL  3 ADDRESS:C>
2899         <MOVEM  A* (FRM) 3>                                 ; (3)
2900         <MOVEM  B* (FRM) 4>                                 ; (4)
2901         <GETYP  O* (FRM) 21>                                ; (21)
2902         <CAIE   O* <TYPE-CODE FALSE>>
2903         <JRST   TAG74>
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]
2908         <MOVEI  A* 2 >
2909         <PUSHJ  P* |CPLUS >
2910         <MOVEM  A* (FRM) 57>                                ; (57)
2911         <MOVEM  B* (FRM) 58>                                ; (58)
2912         <JRST   TAG74>
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]
2920         <HRRZ   A* (E) >
2921         <MOVE   B* (A) 1>
2922         <MOVE   A* <TYPE-WORD LIST>>
2923         <PUSH   P* [0]>
2924         <MOVEI  O* |SEGMNT >
2925         <PUSHJ  P* |RCALL >
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]
2930         <MCALL  2 STACK:L>
2931         <MOVEI  O* |SEGLST >
2932         <PUSHJ  P* |RCALL >
2933         <SUB    P* [<(1) 1>]>
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>>
2941         <JRST   TAG74>
2942         <PUSH   TP* <TYPE-WORD LIST>>                       ; [238]
2943         <PUSH   TP* (FRM) 230>                              ; (230) [239]
2944         <MOVE   C* <TYPE-WORD FIX>>
2945         <MOVEI  D* 2 >
2946         <MOVEI  E* 0>
2947         <PUSHJ  P* |C1CONS >
2948         <MOVE   O* <TYPE-WORD LIST>>
2949         <MOVEM  O* (FRM) 5>                                 ; (5)
2950         <MOVEM  B* (FRM) 6>                                 ; (6)
2951         <MOVE   D* (FRM) 232>                               ; (232)
2952         <MOVN   D* (D) 1>
2953         <MOVE   C* <TYPE-WORD FIX>>
2954         <MOVEI  E* 0>
2955         <MOVE   O* <TYPE-WORD LIST>>
2956         <MOVEM  O* (FRM) 1>                                 ; (1)
2957         <MOVEM  B* (FRM) 2>                                 ; (2)
2958         <PUSHJ  P* |C1CONS >
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)
2966         <HRRZ   D* (B) >
2967         <MOVE   A* <TYPE-WORD LIST>>
2968         <MOVE   B* (D) 1>
2969         <PUSH   P* [2]>
2970         <MOVEI  O* |SEGMNT >
2971         <PUSHJ  P* |RCALL >
2972         <POP    P* A>
2973         <PUSHJ  P* |IIFORM >
2974         <MOVE   C* A>
2975         <MOVE   D* B>
2976         <MOVEI  E* 0>
2977         <PUSHJ  P* |C1CONS >
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]
2982         <JRST   TAG81>
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]
2992         <MCALL  2 STACK:L>
2993         <PUSH   P* [2]>
2994         <MOVEI  O* |SEGMNT >
2995         <PUSHJ  P* |RCALL >
2996         <POP    P* A>
2997         <PUSHJ  P* |IIFORM >
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)
3003         <HRRZ   D* (B) >
3004         <MOVE   A* <TYPE-WORD LIST>>
3005         <MOVE   B* (D) 1>
3006         <PUSH   P* [2]>
3007         <MOVEI  O* |SEGMNT >
3008         <PUSHJ  P* |RCALL >
3009         <POP    P* A>
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>>
3014         <MOVEI  D* 2 >
3015         <MOVEI  E* 0>
3016         <MOVEM  A* (FRM) 3>                                 ; (3)
3017         <MOVEM  B* (FRM) 4>                                 ; (4)
3018         <PUSHJ  P* |C1CONS >
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)
3024         <JUMPE  B* |CERR2 >
3025         <MOVE   D* (B) 1>
3026         <MOVE   PVP* (D) 7>
3027         <CAIE   PVP* 4 >
3028         <JRST   TAG82>
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]
3033         <MCALL  2 MESSAGE>
3034 TAG82   <GETYP  O* (FRM) 193>                               ; 1197 (193)
3035         <CAIN   O* <TYPE-CODE FALSE>>
3036         <JRST   TAG83>
3037         <PUSH   TP* <MQUOTE +> -1>                          ; [238]
3038         <PUSH   TP* <MQUOTE +>>                             ; [239]
3039         <MOVE   A* (FRM) 233>                               ; (233)
3040         <MOVE   B* (FRM) 234>                               ; (234)
3041         <PUSH   P* [1]>
3042         <MOVEI  O* |SEGMNT >
3043         <PUSHJ  P* |RCALL >
3044         <POP    P* A>
3045         <PUSHJ  P* |IIFORM >
3046         <MOVE   C* A>
3047         <MOVE   D* B>
3048         <MOVEI  E* 0>
3049         <PUSHJ  P* |C1CONS >
3050         <MOVE   O* <TYPE-WORD LIST>>
3051         <MOVEM  O* (FRM) 5>                                 ; (5)
3052         <MOVEM  B* (FRM) 6>                                 ; (6)
3053         <JRST   TAG84>
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]
3061         <HRRZ   B* (B) >
3062         <MOVE   A* <TYPE-WORD LIST>>
3063         <MOVE   B* (B) 1>
3064         <PUSH   P* [3]>
3065         <MOVEI  O* |SEGMNT >
3066         <PUSHJ  P* |RCALL >
3067         <POP    P* A>
3068         <PUSHJ  P* |IIFORM >
3069         <MOVE   C* A>
3070         <MOVE   D* B>
3071         <MOVEI  E* 0>
3072         <PUSHJ  P* |C1CONS >
3073         <MOVE   O* <TYPE-WORD LIST>>
3074         <MOVEM  O* (FRM) 5>                                 ; (5)
3075         <MOVEM  B* (FRM) 6>                                 ; (6)
3076         <MOVE   C* <TYPE-WORD LIST>>
3077         <MOVEI  D* 0>
3078         <MOVEI  E* 0>
3079         <MOVE   O* <TYPE-WORD LIST>>
3080         <MOVEM  O* (FRM) 1>                                 ; (1)
3081         <MOVEM  B* (FRM) 2>                                 ; (2)
3082         <PUSHJ  P* |C1CONS >
3083         <MOVE   C* <TYPE-WORD FIX>>
3084         <MOVEI  D* 0>
3085         <MOVE   E* B>
3086         <PUSHJ  P* |C1CONS >
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]
3093         <MCALL  2 STACK:L>
3094         <PUSH   TP* A>                                      ; [240]
3095         <PUSH   TP* B>                                      ; [241]
3096         <MCALL  2 STFIXIT>
3097         <MOVE   C* <TYPE-WORD FIX>>
3098         <MOVE   D* (B) 1>
3099         <MOVEI  E* 0>
3100         <MOVEM  B* (FRM) 232>                               ; (232)
3101         <PUSHJ  P* |C1CONS >
3102         <HRRM   B* @ (FRM) 2>                               ; (2)
3103         <MOVEM  B* (FRM) 2>                                 ; (2)
3104         <MOVE   B* (FRM) 232>                               ; (232)
3105         <HRRZ   D* (B) >
3106         <MOVE   PVP* (D) 1>
3107         <HRRM   PVP* @ (FRM) 2>                             ; (2)
3108 TAG84   <MOVE   D* (FRM) 6>                                 ; 1271 (6)
3109         <MOVE   C* <TYPE-WORD LIST>>
3110         <MOVEI  E* 0>
3111         <PUSHJ  P* |C1CONS >
3112         <MOVE   D* (FRM) 102>                               ; (102)
3113         <JUMPE  D* |CERR2 >
3114         <MOVE   C* <TYPE-WORD ATOM>>
3115         <MOVE   D* (D) 1>
3116         <MOVE   E* B>
3117         <PUSHJ  P* |C1CONS >
3118         <PUSH   TP* A>                                      ; [238]
3119         <PUSH   TP* B>                                      ; [239]
3120         <MOVE   A* (FRM) 159>                               ; (159)
3121         <MOVE   B* (FRM) 160>                               ; (160)
3122         <PUSH   P* [1]>
3123         <MOVEI  O* |SEGLST >
3124         <PUSHJ  P* |RCALL >
3125         <SUB    P* [<(1) 1>]>
3126         <MOVEM  A* (FRM) 159>                               ; (159)
3127         <MOVEM  B* (FRM) 160>                               ; (160)
3128         <GETYP  O* (FRM) 193>                               ; (193)
3129         <CAIN   O* <TYPE-CODE FALSE>>
3130         <JRST   TAG85>
3131         <MOVE   D* (FRM) 224>                               ; (224)
3132         <JUMPE  D* |CERR2 >
3133         <MOVE   PVP* (D) 1>
3134         <PUSH   TP* (PVP) 4>                                ; [238]
3135         <PUSH   TP* (PVP) 5>                                ; [239]
3136         <MOVE   A* (FRM) 225>                               ; (225)
3137         <MOVE   B* (FRM) 226>                               ; (226)
3138         <MOVEI  C* 1 >
3139         <PUSHJ  P* |CINTH >
3140         <PUSH   TP* A>                                      ; [240]
3141         <PUSH   TP* B>                                      ; [241]
3142         <MOVE   B* (FRM) 228>                               ; (228)
3143         <JUMPE  B* |CERR2 >
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)
3149         <JUMPE  D* |CERR2 >
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]
3158         <MCALL  *10* ISET>
3159         <MOVE   A* (FRM) 225>                               ; (225)
3160         <MOVE   B* (FRM) 226>                               ; (226)
3161         <MOVEI  C* 1 >
3162         <PUSHJ  P* |CIREST >
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)
3169         <MCALL  2 STACK:L>
3170         <MOVEM  A* (FRM) 233>                               ; (233)
3171         <MOVEM  B* (FRM) 234>                               ; (234)
3172         <JRST   TAG86>
3173 TAG85   <GETYP  O* (FRM) 21>                                ; 1336 (21)
3174         <CAIN   O* <TYPE-CODE FALSE>>
3175         <JRST   TAG87>
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]
3180         <MCALL  2 RETURN-UP>
3181         <MOVE   B* (FRM) 224>                               ; (224)
3182         <JUMPE  B* |CERR2 >
3183         <MOVE   D* (B) 1>
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]
3196         <MCALL  2 DATUM>
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)
3202         <JUMPE  B* |CERR2 >
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]
3207         <MCALL  5 STACKM>
3208         <PUSH   TP* A>                                      ; [242]
3209         <PUSH   TP* B>                                      ; [243]
3210         <PUSH   TP* (FRM) 91>                               ; (91) [244]
3211         <PUSH   TP* (FRM) 92>                               ; (92) [245]
3212         <MCALL  4 IISET>
3213         <JRST   TAG86>
3214 TAG87   <MOVE   D* (FRM) 228>                               ; 1377 (228)
3215         <JUMPE  D* |CERR2 >
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]
3226         <MCALL  2 DATUM>
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)
3232         <JUMPE  B* |CERR2 >
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]
3237         <MCALL  5 STACKM>
3238         <PUSH   TP* A>                                      ; [240]
3239         <PUSH   TP* B>                                      ; [241]
3240         <MCALL  2 BINDUP>
3241 TAG86   <MOVE   B* (FRM) 102>                               ; 1404 (102)
3242         <JUMPE  B* |CERR2 >
3243         <HRRZ   B* (B) >
3244         <MOVE   D* (FRM) 224>                               ; (224)
3245         <JUMPE  D* |CERR2 >
3246         <HRRZ   D* (D) >
3247         <MOVE   PVP* (FRM) 228>                             ; (228)
3248         <JUMPE  PVP* |CERR2 >
3249         <HRRZ   PVP* (PVP) >
3250         <MOVEM  B* (FRM) 102>                               ; (102)
3251         <MOVEM  D* (FRM) 224>                               ; (224)
3252         <MOVEM  PVP* (FRM) 228>                             ; (228)
3253         <JRST   TAG88>
3254 TAG70   <GETYP  O* (FRM) 193>                               ; 1417 (193)
3255         <CAIN   O* <TYPE-CODE FALSE>>
3256         <JRST   TAG89>
3257         <GETYP  O* (FRM) 15>                                ; (15)
3258         <CAIE   O* <TYPE-CODE FALSE>>
3259         <JRST   TAG90>
3260         <MOVE   B* (FRM) 82>                                ; (82)
3261         <SOJE   B* TAG89>
3262 TAG90   <GETYP  O* (FRM) 199>                               ; 1425 (199)
3263         <CAIE   O* <TYPE-CODE FALSE>>
3264         <JRST   TAG89>
3265         <GETYP  O* (FRM) 99>                                ; (99)
3266         <CAIE   O* <TYPE-CODE FALSE>>
3267         <JRST   TAG89>
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>
3274         <MOVEM  O* (B) 26>
3275         <MOVE   O* <MQUOTE T>>
3276         <MOVEM  O* (B) 27>
3277         <GETYP  O* (B) 24>
3278         <CAIN   O* <TYPE-CODE FALSE>>
3279         <JRST   TAG89>
3280         <MOVE   D* (B) 25>
3281         <GETYP  O* (D) 0>
3282         <CAIE   O* <MQUOTE %<TYPE-C AC!-COMPDEC!-PACKAGE VECTOR>>>
3283         <JRST   TAG91>
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)
3290         <MOVE   D* (B) 25>
3291         <HRRZ   PVP* (D) >
3292         <GETYP  O* (PVP) 0>
3293         <CAIE   O* <MQUOTE %<TYPE-C AC!-COMPDEC!-PACKAGE VECTOR>>>
3294         <JRST   TAG92>
3295         <HRRZ   PVP* (D) >
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>>
3303         <MOVEM  O* (B) 24>
3304         <SETZM  (B) 25>
3305 TAG89   <GETYP  O* (FRM) 193>                               ; 1468 (193)
3306         <CAIN   O* <TYPE-CODE FALSE>>
3307         <JRST   TAG93>
3308         <GETYP  O* (FRM) 15>                                ; (15)
3309         <CAIE   O* <TYPE-CODE FALSE>>
3310         <JRST   TAG93>
3311         <MOVE   B* (FRM) 82>                                ; (82)
3312         <SOJN   B* TAG93>
3313         <GETYP  O* (FRM) 199>                               ; (199)
3314         <CAIE   O* <TYPE-CODE FALSE>>
3315         <JRST   TAG93>
3316         <PUSH   TP* (FRM) 17>                               ; (17) [238]
3317         <PUSH   TP* (FRM) 18>                               ; (18) [239]
3318         <MCALL  1 LVAL-UP>
3319 TAG93   <GETYP  O* (FRM) 219>                               ; 1482 (219)
3320         <CAIE   O* <TYPE-CODE FALSE>>
3321         <JRST   TAG94>
3322         <MOVE   B* (FRM) 64>                                ; (64)
3323         <ADD    B* [<(26) 26>]>
3324         <JUMPGE B* |CERR2 >
3325         <MOVE   D* <TYPE-WORD FIX>>
3326         <MOVE   PVP* (B) 1>
3327         <MOVEM  D* (FRM) 39>                                ; (39)
3328         <MOVEM  PVP* (FRM) 40>                              ; (40)
3329         <JUMPE  PVP* TAG94>
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]
3335         <MCALL  1 ADD:STACK>
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)
3342         <MCALL  1 EMIT-PRE>
3343 TAG94   <MOVE   B* (FRM) 64>                                ; 1506 (64)
3344         <ADD    B* [<(30) 30>]>
3345         <JUMPGE B* |CERR2 >
3346         <SKIPGE (B) 1>
3347         <MCALL  0 ACT:FINAL>
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>>
3354         <JRST   TAG95>
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>>
3359         <MOVEI  D* 0>
3360         <PUSHJ  P* |C1CONS >
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>>
3368         <JRST   TAG96>
3369         <GETYP  O* (FRM) 13>                                ; (13)
3370         <CAIE   O* <TYPE-CODE FALSE>>
3371         <JRST   TAG96>
3372         <GETYP  O* (FRM) 99>                                ; (99)
3373         <CAIE   O* <TYPE-CODE FALSE>>
3374         <JRST   TAG96>
3375         <GETYP  O* (FRM) 199>                               ; (199)
3376         <CAIN   O* <TYPE-CODE FALSE>>
3377         <JRST   TAG96>
3378         <MOVE   B* (FRM) 82>                                ; (82)
3379         <SOJN   B* TAG96>
3380         <MOVE   B* (FRM) 64>                                ; (64)
3381         <PUSH   TP* <TYPE-WORD LIST>>                       ; [238]
3382         <PUSH   TP* (B) 9>                                  ; [239]
3383         <ADD    B* [<(20) 20>]>
3384         <JUMPGE B* |CERR2 >
3385         <PUSH   TP* <TYPE-WORD LIST>>                       ; [240]
3386         <PUSH   TP* (B) 1>                                  ; [241]
3387         <MOVE   B* (FRM) -2>                                ; (-2)
3388         <JUMPE  B* |CERR2 >
3389         <MOVE   D* (B) 1>
3390         <PUSH   TP* (D) 4>                                  ; [242]
3391         <PUSH   TP* (D) 5>                                  ; [243]
3392         <MCALL  1 MINL>
3393         <PUSH   TP* A>                                      ; [242]
3394         <PUSH   TP* B>                                      ; [243]
3395         <MCALL  3 BLT-HACK>
3396         <JUMPGE B* TAG96>
3397         <MOVE   B* <TYPE-WORD FALSE>>
3398         <MOVEI  D* 0>
3399         <MOVEM  B* (FRM) 209>                               ; (209)
3400         <MOVEM  D* (FRM) 210>                               ; (210)
3401         <JRST   TAG97>
3402 TAG96   <GETYP  O* (FRM) 13>                                ; 1565 (13)
3403         <CAIE   O* <TYPE-CODE FALSE>>
3404         <JRST   TAG98>
3405         <GETYP  O* (FRM) 99>                                ; (99)
3406         <CAIN   O* <TYPE-CODE FALSE>>
3407         <JRST   TAG99>
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]
3415         <MCALL  2 GOODACS>
3416         <PUSH   TP* A>                                      ; [240]
3417         <PUSH   TP* B>                                      ; [241]
3418         <PUSH   TP* <MQUOTE T> -1>                          ; [242]
3419         <PUSH   TP* <MQUOTE T>>                             ; [243]
3420         <MCALL  3 SEQ-GEN>
3421 TAG103  <MOVEM  A* (FRM) 11>                                ; 1584 (11)
3422         <MOVEM  B* (FRM) 12>                                ; (12)
3423         <JRST   TAG97>
3424 TAG99   <GETYP  O* (FRM) 199>                               ; 1587 (199)
3425         <CAIE   O* <TYPE-CODE FALSE>>
3426         <JRST   TAG100>
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>>
3432         <JRST   TAG101>
3433         <MOVE   D* (FRM) 197>                               ; (197)
3434         <MOVE   PVP* (FRM) 198>                             ; (198)
3435         <JRST   TAG102>
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)
3441         <ASH    D* A>
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]
3448         <MCALL  2 STACK:L>
3449         <PUSH   P* [3]>
3450         <MOVEI  O* |SEGMNT >
3451         <PUSHJ  P* |RCALL >
3452         <POP    P* A>
3453         <PUSHJ  P* |IIFORM >
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]
3458         <MCALL  2 ADDRESS:C>
3459         <PUSH   TP* A>                                      ; [240]
3460         <PUSH   TP* B>                                      ; [241]
3461         <PUSH   TP* A>                                      ; [242]
3462         <PUSH   TP* B>                                      ; [243]
3463         <MCALL  2 DATUM>
3464         <MOVE   D* A>
3465         <MOVE   PVP* B>
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]
3470         <MCALL  3 SEQ-GEN>
3471         <MOVEM  A* (FRM) 197>                               ; (197)
3472         <MOVEM  B* (FRM) 198>                               ; (198)
3473         <JRST   TAG103>
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]
3481         <MCALL  3 SEQ-GEN>
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>>
3489         <JRST   TAG104>
3490         <MOVE   B* <MQUOTE %<RGLOC NO-DATUM!-COMPDEC!-PACKAGE T>>>
3491         <ADD    B* |GLOTOP 1>
3492         <MOVE   D* (B) >
3493         <MOVE   PVP* (B) 1>
3494         <GETYP  O* (FRM) 11>                                ; (11)
3495         <GETYP  B* D>
3496         <CAMN   PVP* (FRM) 12>                              ; (12)
3497         <CAIE   O* (B) 0>
3498         <SKIPA  O>
3499         <JRST   TAG104>
3500         <MOVE   B* (FRM) 64>                                ; (64)
3501         <ADD    B* [<(30) 30>]>
3502         <JUMPGE B* |CERR2 >
3503         <SKIPL  (B) 1>
3504         <JRST   TAG105>
3505         <MCALL  0 PROG:END>
3506         <PUSH   TP* (FRM) 7>                                ; (7) [238]
3507         <PUSH   TP* (FRM) 8>                                ; (8) [239]
3508         <MCALL  1 LABEL:OFF>
3509         <JRST   TAG106>
3510 TAG105  <GETYP  O* (FRM) 157>                               ; 1673 (157)
3511         <CAIE   O* <TYPE-CODE FALSE>>
3512         <JRST   TAG107>
3513         <GETYP  O* (FRM) 13>                                ; (13)
3514         <CAIN   O* <TYPE-CODE FALSE>>
3515         <JRST   TAG108>
3516 TAG107  <SKIPL  (FRM) 46>                                   ; 1679 (46)
3517         <JRST   TAG109>
3518         <GETYP  O* (FRM) 157>                               ; (157)
3519         <CAIE   O* <TYPE-CODE FALSE>>
3520         <JRST   TAG109>
3521         <PUSH   TP* (FRM) 11>                               ; (11) [238]
3522         <PUSH   TP* (FRM) 12>                               ; (12) [239]
3523         <MOVE   B* <MQUOTE %<RGLOC AC-A!-COMPDEC!-PACKAGE T>>>
3524         <ADD    B* |GLOTOP 1>
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>>>
3528         <ADD    B* |GLOTOP 1>
3529         <PUSH   TP* <MQUOTE %<TYPE-W AC!-COMPDEC!-PACKAGE VECTOR>>>; [242]
3530         <PUSH   TP* (B) 1>                                  ; [243]
3531         <MCALL  2 DATUM>
3532         <PUSH   TP* A>                                      ; [240]
3533         <PUSH   TP* B>                                      ; [241]
3534         <MCALL  2 MOVE:ARG>
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]
3541         <MCALL  2 POP:LOCS>
3542         <MOVE   B* (FRM) 64>                                ; (64)
3543         <ADD    B* [<(22) 22>]>
3544         <JUMPGE B* |CERR2 >
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)
3549         <PUSH   P* [1]>
3550         <MOVEI  O* |SEGMNT >
3551         <PUSHJ  P* |RCALL >
3552         <POP    P* A>
3553         <ACALL  A* UNBIND:FUNNY>
3554         <JRST   TAG106>
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>>
3562         <JRST   TAG110>
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>
3568         <JRST   TAG111>
3569 TAG110  <GETYP  O* (FRM) 193>                               ; 1732 (193)
3570         <CAIN   O* <TYPE-CODE FALSE>>
3571         <JRST   TAG112>
3572         <GETYP  O* (FRM) 99>                                ; (99)
3573         <CAIN   O* <TYPE-CODE FALSE>>
3574         <JRST   TAG112>
3575         <GETYP  O* (FRM) 219>                               ; (219)
3576         <CAIE   O* <TYPE-CODE FALSE>>
3577         <JRST   TAG113>
3578         <MOVE   B* (FRM) 31>                                ; (31)
3579         <MOVE   D* (FRM) 32>                                ; (32)
3580         <JUMPE  D* |CERR2 >
3581         <HRRZ   PVP* (D) >
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>]>
3601         <JUMPGE B* |CERR2 >
3602         <PUSH   TP* <TYPE-WORD LIST>>                       ; [248]
3603         <PUSH   TP* (B) 1>                                  ; [249]
3604         <MCALL  6 DO-EVEN-FUNNIER-HACK>
3605         <JRST   TAG111>
3606 TAG112  <GETYP  O* (FRM) 193>                               ; 1769 (193)
3607         <CAIN   O* <TYPE-CODE FALSE>>
3608         <JRST   TAG114>
3609         <GETYP  O* (FRM) 199>                               ; (199)
3610         <CAIE   O* <TYPE-CODE FALSE>>
3611         <JRST   TAG114>
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)
3617         <MOVEM  O* (B) 24>
3618         <MOVE   O* (FRM) 12>                                ; (12)
3619         <MOVEM  O* (B) 25>
3620         <MOVE   O* <TYPE-WORD FALSE>>
3621         <MOVEM  O* (B) 26>
3622         <SETZM  (B) 27>
3623         <MOVE   D* (FRM) 12>                                ; (12)
3624         <GETYP  O* (D) 0>
3625         <CAIE   O* <MQUOTE %<TYPE-C AC!-COMPDEC!-PACKAGE VECTOR>>>
3626         <JRST   TAG115>
3627         <MOVE   PVP* (D) 1>
3628         <MOVE   E* (PVP) 15>
3629         <MOVE   C* <MQUOTE %<TYPE-W SYMTAB!-COMPDEC!-PACKAGE VECTOR>>>
3630         <MOVE   D* B>
3631         <MOVE   O* <MQUOTE %<TYPE-W AC!-COMPDEC!-PACKAGE VECTOR>>>
3632         <MOVEM  O* (FRM) 3>                                 ; (3)
3633         <MOVEM  PVP* (FRM) 4>                               ; (4)
3634         <PUSHJ  P* |C1CONS >
3635         <MOVE   D* (FRM) 4>                                 ; (4)
3636         <MOVEM  A* (D) 14>
3637         <MOVEM  B* (D) 15>
3638 TAG115  <MOVE   B* (FRM) 12>                                ; 1801 (12)
3639         <HRRZ   D* (B) >
3640         <MOVE   PVP* (D) 1>
3641         <MOVE   E* (PVP) 15>
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)
3647         <PUSHJ  P* |C1CONS >
3648         <MOVE   D* (FRM) 4>                                 ; (4)
3649         <MOVEM  A* (D) 14>
3650         <MOVEM  B* (D) 15>
3651         <MOVE   B* (FRM) 18>                                ; (18)
3652         <MOVE   O* <TYPE-WORD FALSE>>
3653         <MOVEM  O* (B) 26>
3654         <SETZM  (B) 27>
3655         <MOVE   D* (FRM) 64>                                ; (64)
3656         <ADD    D* [<(60) 60>]>
3657         <JUMPGE D* |CERR2 >
3658         <MOVE   PVP* (D) 1>
3659         <JUMPE  PVP* TAG116>
3660 TAG117  <GETYP  O* (PVP) 0>                                 ; 1823
3661         <CAIN   O* <MQUOTE %<TYPE-C SYMTAB!-COMPDEC!-PACKAGE VECTOR>>>
3662         <CAME   B* (PVP) 1>
3663         <SKIPA  O>
3664         <JRST   TAG111>
3665         <HRRZ   PVP* (PVP) >
3666         <JUMPN  PVP* TAG117>
3667 TAG116  <MOVE   D* (FRM) 64>                                ; 1830 (64)
3668         <ADD    D* [<(60) 60>]>
3669         <JUMPGE D* |CERR2 >
3670         <MOVE   PVP* (D) 1>
3671 TAG121  <SKIPGE |INTFLG >                                   ; 1834
3672         <SAVAC  O* [<(*1500*) *12*>]>
3673         <JUMPE  PVP* TAG118>
3674         <JUMPE  PVP* |CERR2 >
3675         <HRRZ   D* (PVP) >
3676         <JUMPE  D* |CERR2 >
3677         <MOVE   TVP* (D) 1>
3678         <HRRZ   D* (TVP) >
3679         <GETYP  O* (D) 0>
3680         <CAIE   O* <MQUOTE %<TYPE-C AC!-COMPDEC!-PACKAGE VECTOR>>>
3681         <JRST   TAG119>
3682         <HRRZ   D* (TVP) >
3683         <MOVE   C* (D) 1>
3684         <MOVE   O* <MQUOTE T> -1>
3685         <MOVEM  O* (C) 10>
3686         <MOVE   O* <MQUOTE T>>
3687         <MOVEM  O* (C) 11>
3688 TAG119  <GETYP  O* (TVP) 0>                                 ; 1851
3689         <CAIE   O* <MQUOTE %<TYPE-C AC!-COMPDEC!-PACKAGE VECTOR>>>
3690         <JRST   TAG120>
3691         <MOVE   D* (TVP) 1>
3692         <MOVE   O* <MQUOTE T> -1>
3693         <MOVEM  O* (D) 10>
3694         <MOVE   O* <MQUOTE T>>
3695         <MOVEM  O* (D) 11>
3696 TAG120  <JUMPE  PVP* |CERR2 >                               ; 1859
3697         <HRRZ   PVP* (PVP) >
3698         <JUMPE  PVP* |CERR2 >
3699         <HRRZ   PVP* (PVP) >
3700         <JRST   TAG121>
3701 TAG118  <MOVE   B* (FRM) 64>                                ; 1864 (64)
3702         <MOVE   C* (FRM) 17>                                ; (17)
3703         <MOVE   D* (FRM) 18>                                ; (18)
3704         <MOVEI  E* 0>
3705         <MOVE   O* <MQUOTE %<TYPE-W NODE!-COMPDEC!-PACKAGE VECTOR>>>
3706         <MOVEM  O* (FRM) 3>                                 ; (3)
3707         <MOVEM  B* (FRM) 4>                                 ; (4)
3708         <PUSHJ  P* |C1CONS >
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?>
3722         <GETYP  O* A>
3723         <CAIE   O* <TYPE-CODE FALSE>>
3724         <JRST   TAG122>
3725         <GETYP  O* (FRM) -5>                                ; (-5)
3726         <CAIE   O* <MQUOTE %<TYPE-C DATUM!-COMPDEC!-PACKAGE LIST>>>
3727         <JRST   TAG123>
3728         <MOVE   B* (FRM) -4>                                ; (-4)
3729         <MOVE   D* (B) >
3730         <MOVE   PVP* (B) 1>
3731         <MOVEM  D* (FRM) 223>                               ; (223)
3732         <MOVEM  PVP* (FRM) 224>                             ; (224)
3733         <GETYP  O* D>
3734         <CAIN   O* <MQUOTE %<TYPE-C AC!-COMPDEC!-PACKAGE VECTOR>>>
3735         <SKIPGE (PVP) 11>
3736         <JRST   TAG123>
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]
3741         <MCALL  2 SGETREG>
3742         <MOVE   O* <MQUOTE T> -1>
3743         <MOVEM  O* (B) 10>
3744         <MOVE   O* <MQUOTE T>>
3745         <MOVEM  O* (B) 11>
3746         <JRST   TAG122>
3747 TAG123  <PUSH   TP* <TYPE-WORD FALSE>>                      ; 1910 [238]
3748         <PUSH   TP* [0]>                                    ; [239]
3749         <MCALL  1 GETREG>
3750         <MOVE   O* <MQUOTE T> -1>
3751         <MOVEM  O* (B) 10>
3752         <MOVE   O* <MQUOTE T>>
3753         <MOVEM  O* (B) 11>
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>>>
3760         <JRST   TAG124>
3761         <MOVE   B* (FRM) -4>                                ; (-4)
3762         <HRRZ   D* (B) >
3763         <MOVE   PVP* (D) >
3764         <MOVE   TVP* (D) 1>
3765         <MOVEM  PVP* (FRM) 5>                               ; (5)
3766         <MOVEM  TVP* (FRM) 6>                               ; (6)
3767         <GETYP  O* PVP>
3768         <CAIN   O* <MQUOTE %<TYPE-C AC!-COMPDEC!-PACKAGE VECTOR>>>
3769         <SKIPGE (TVP) 11>
3770         <JRST   TAG124>
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]
3775         <MCALL  2 SGETREG>
3776         <JRST   TAG125>
3777 TAG124  <PUSH   TP* <TYPE-WORD FALSE>>                      ; 1940 [240]
3778         <PUSH   TP* [0]>                                    ; [241]
3779         <MCALL  1 GETREG>
3780         <MOVEM  A* (FRM) 5>                                 ; (5)
3781         <MOVEM  B* (FRM) 6>                                 ; (6)
3782 TAG125  <PUSH   TP* A>                                      ; 1945 [240]
3783         <PUSH   TP* B>                                      ; [241]
3784         <MCALL  2 DATUM>
3785         <GETYP  O* (FRM) 223>                               ; (223)
3786         <CAIN   O* <TYPE-CODE UNBOUND>>
3787         <JRST   TAG126>
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>>
3793         <MOVEM  O* (D) 10>
3794         <SETZM  (D) 11>
3795 TAG126  <MOVE   C* A>                                       ; 1958
3796         <MOVE   D* B>
3797         <MOVEI  E* 0>
3798         <PUSHJ  P* |CICONS >
3799         <HRRM   B* @ (FRM) 8>                               ; (8)
3800         <MOVEM  B* (FRM) 8>                                 ; (8)
3801         <MOVE   B* (FRM) 64>                                ; (64)
3802         <ADD    B* [<(60) 60>]>
3803         <JUMPGE B* |CERR2 >
3804         <MOVE   D* (B) 1>
3805         <HRRM   D* @ (FRM) 8>                               ; (8)
3806         <MOVE   B* (FRM) 4>                                 ; (4)
3807         <ADD    B* [<(60) 60>]>
3808         <JUMPGE B* |CERR2 >
3809         <MOVE   O* (FRM) 2>                                 ; (2)
3810         <MOVEM  O* (B) 1>
3811 TAG129  <SKIPGE |INTFLG >                                   ; 1974
3812         <SAVAC  O* [*120000*]>
3813         <JUMPE  D* TAG111>
3814         <JUMPE  D* |CERR2 >
3815         <HRRZ   B* (D) >
3816         <JUMPE  B* |CERR2 >
3817         <MOVE   PVP* (B) 1>
3818         <HRRZ   B* (PVP) >
3819         <GETYP  O* (B) 0>
3820         <CAIE   O* <MQUOTE %<TYPE-C AC!-COMPDEC!-PACKAGE VECTOR>>>
3821         <JRST   TAG127>
3822         <HRRZ   B* (PVP) >
3823         <MOVE   TVP* (B) 1>
3824         <MOVE   O* <TYPE-WORD FALSE>>
3825         <MOVEM  O* (TVP) 10>
3826         <SETZM  (TVP) 11>
3827 TAG127  <GETYP  O* (PVP) 0>                                 ; 1990
3828         <CAIE   O* <MQUOTE %<TYPE-C AC!-COMPDEC!-PACKAGE VECTOR>>>
3829         <JRST   TAG128>
3830         <MOVE   B* (PVP) 1>
3831         <MOVE   O* <TYPE-WORD FALSE>>
3832         <MOVEM  O* (B) 10>
3833         <SETZM  (B) 11>
3834 TAG128  <JUMPE  D* |CERR2 >                                 ; 1997
3835         <HRRZ   D* (D) >
3836         <JUMPE  D* |CERR2 >
3837         <HRRZ   D* (D) >
3838         <JRST   TAG129>
3839 TAG114  <GETYP  O* (FRM) 99>                                ; 2002 (99)
3840         <CAIN   O* <TYPE-CODE FALSE>>
3841         <JRST   TAG111>
3842         <PUSH   TP* (FRM) 11>                               ; (11) [238]
3843         <PUSH   TP* (FRM) 12>                               ; (12) [239]
3844         <MOVE   C* <TYPE-WORD LIST>>
3845         <MOVEI  D* 0>
3846         <MOVEI  E* 0>
3847         <PUSHJ  P* |C1CONS >
3848         <MOVE   D* (FRM) 82>                                ; (82)
3849         <IMUL   D* [-2]>
3850         <MOVE   C* <TYPE-WORD FIX>>
3851         <MOVE   E* B>
3852         <PUSHJ  P* |C1CONS >
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>>
3864         <JRST   TAG130>
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]
3871         <MOVEI  A* 3 >
3872         <PUSHJ  P* |IIFORM >
3873         <PUSH   TP* A>                                      ; [238]
3874         <PUSH   TP* B>                                      ; [239]
3875         <MCALL  1 EMIT>
3876 TAG130  <GETYP  O* (FRM) 219>                               ; 2039 (219)
3877         <CAIE   O* <TYPE-CODE FALSE>>
3878         <JRST   TAG104>
3879         <GETYP  O* (FRM) 193>                               ; (193)
3880         <CAIN   O* <TYPE-CODE FALSE>>
3881         <JRST   TAG131>
3882         <GETYP  O* (FRM) 99>                                ; (99)
3883         <CAIE   O* <TYPE-CODE FALSE>>
3884         <JRST   TAG104>
3885 TAG131  <MOVE   B* (FRM) 31>                                ; 2048 (31)
3886         <MOVE   D* (FRM) 32>                                ; (32)
3887         <JUMPE  D* |CERR2 >
3888         <HRRZ   PVP* (D) >
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>>
3896         <JRST   TAG132>
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)
3901         <GETYP  O* B>
3902         <CAIN   O* <TYPE-CODE FALSE>>
3903         <JRST   TAG133>
3904         <MOVE   PVP* (FRM) 82>                              ; (82)
3905         <SOJN   PVP* TAG134>
3906         <MOVE   B* <MQUOTE T> -1>
3907         <MOVE   D* <MQUOTE T>>
3908         <JRST   TAG133>
3909 TAG134  <MOVE   B* <TYPE-WORD FALSE>>                       ; 2072
3910         <MOVEI  D* 0>
3911 TAG133  <PUSH   TP* B>                                      ; 2074 [240]
3912         <PUSH   TP* D>                                      ; [241]
3913         <MCALL  2 AGAIN-UP>
3914         <PUSH   TP* (FRM) 203>                              ; (203) [238]
3915         <PUSH   TP* (FRM) 204>                              ; (204) [239]
3916         <MCALL  1 LABEL:TAG>
3917         <GETYP  O* (FRM) 193>                               ; (193)
3918         <CAIN   O* <TYPE-CODE FALSE>>
3919         <JRST   TAG135>
3920         <MOVE   B* (FRM) 64>                                ; (64)
3921         <ADD    B* [<(20) 20>]>
3922         <JUMPGE B* |CERR2 >
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>]>
3929         <JUMPGE B* |CERR2 >
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>>
3941         <JRST   TAG136>
3942         <MOVE   B* (FRM) 82>                                ; (82)
3943         <SOJE   B* TAG137>
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]
3951         <MCALL  2 GEN-TAGS>
3952         <GETYP  O* (FRM) 193>                               ; (193)
3953         <CAIN   O* <TYPE-CODE FALSE>>
3954         <JRST   TAG138>
3955         <GETYP  O* (FRM) 219>                               ; (219)
3956         <CAIE   O* <TYPE-CODE FALSE>>
3957         <JRST   TAG138>
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>>
3964         <JRST   TAG139>
3965         <MOVE   B* (FRM) 82>                                ; (82)
3966         <SOJE   B* TAG139>
3967         <GETYP  O* (FRM) 157>                               ; (157)
3968         <CAIE   O* <TYPE-CODE FALSE>>
3969         <JRST   TAG140>
3970         <GETYP  O* (FRM) 13>                                ; (13)
3971         <CAIN   O* <TYPE-CODE FALSE>>
3972         <JRST   TAG141>
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]
3977         <MCALL  2 POP:LOCS>
3978         <MOVE   B* (FRM) 64>                                ; (64)
3979         <ADD    B* [<(22) 22>]>
3980         <JUMPGE B* |CERR2 >
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)
3985         <PUSH   P* [1]>
3986         <MOVEI  O* |SEGMNT >
3987         <PUSHJ  P* |RCALL >
3988         <POP    P* A>
3989         <ACALL  A* UNBIND:FUNNY>
3990         <JRST   TAG139>
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)
3997         <JUMPE  B* TAG142>
3998 TAG144  <MOVE   D* (B) 1>                                   ; 2161
3999         <SKIPGE |INTFLG >
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]
4006         <MCALL  1 STRUCTYP>
4007         <PUSH   TP* A>                                      ; [238]
4008         <PUSH   TP* B>                                      ; [239]
4009         <MCALL  1 ISTYPE?>
4010         <GETYP  O* A>
4011         <CAIE   O* <TYPE-CODE FALSE>>
4012         <JRST   TAG143>
4013         <PUSH   TP* <MQUOTE <`SETZM  |DSTORE >> -1>         ; [238]
4014         <PUSH   TP* <MQUOTE <`SETZM  |DSTORE >>>            ; [239]
4015         <MCALL  1 EMIT>
4016         <JRST   TAG142>
4017 TAG143  <MOVE   B* (FRM) 8>                                 ; 2180 (8)
4018         <HRRZ   B* (B) >
4019         <JUMPN  B* TAG144>
4020         <JRST   TAG142>
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]
4025         <MCALL  2 GEN-TAGS>
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]
4031         <MCALL  1 LABEL:TAG>
4032         <GETYP  O* (FRM) 163>                               ; (163)
4033         <CAIE   O* <MQUOTE %<TYPE-C DATUM!-COMPDEC!-PACKAGE LIST>>>
4034         <JRST   TAG145>
4035         <GETYP  O* (FRM) 13>                                ; (13)
4036         <CAIN   O* <TYPE-CODE FALSE>>
4037         <JRST   TAG146>
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)
4044         <PUSH   P* [0]>
4045         <MOVEI  O* |SEGMNT >
4046         <PUSHJ  P* |RCALL >
4047         <POP    P* A>
4048         <ACALL  A* DATUM>
4049         <PUSH   TP* A>                                      ; [242]
4050         <PUSH   TP* B>                                      ; [243]
4051         <MCALL  3 DO-LAST>
4052         <JRST   TAG147>
4053 TAG146  <GETYP  O* (FRM) 99>                                ; 2216 (99)
4054         <CAIN   O* <TYPE-CODE FALSE>>
4055         <JRST   TAG148>
4056         <GETYP  O* (FRM) 193>                               ; (193)
4057         <CAIN   O* <TYPE-CODE FALSE>>
4058         <JRST   TAG148>
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]
4065         <MCALL  3 LADDR>
4066         <PUSH   TP* A>                                      ; [238]
4067         <PUSH   TP* B>                                      ; [239]
4068         <MOVE   A* (FRM) 163>                               ; (163)
4069         <MOVE   B* (FRM) 164>                               ; (164)
4070         <PUSH   P* [0]>
4071         <MOVEI  O* |SEGMNT >
4072         <PUSHJ  P* |RCALL >
4073         <POP    P* A>
4074         <JRST   TAG149>
4075 TAG148  <GETYP  O* (FRM) 99>                                ; 2238 (99)
4076         <CAIN   O* <TYPE-CODE FALSE>>
4077         <JRST   TAG150>
4078         <PUSH   TP* (FRM) 59>                               ; (59) [238]
4079         <PUSH   TP* (FRM) 60>                               ; (60) [239]
4080         <MOVNI  B* 1 >
4081         <MOVE   D* (FRM) 82>                                ; (82)
4082         <ASH    D* A>
4083         <SUB    B* D>
4084         <PUSH   TP* <TYPE-WORD FIX>>                        ; [240]
4085         <PUSH   TP* B>                                      ; [241]
4086         <MOVE   A* (FRM) 163>                               ; (163)
4087         <MOVE   B* (FRM) 164>                               ; (164)
4088         <PUSH   P* [0]>
4089         <MOVEI  O* |SEGMNT >
4090         <PUSHJ  P* |RCALL >
4091         <POP    P* A>
4092         <ACALL  A* DATUM>
4093         <PUSH   TP* A>                                      ; [242]
4094         <PUSH   TP* B>                                      ; [243]
4095         <MCALL  3 DO-FUNNY-LAST>
4096         <JRST   TAG147>
4097 TAG150  <GETYP  O* (FRM) 193>                               ; 2260 (193)
4098         <CAIN   O* <TYPE-CODE FALSE>>
4099         <JRST   TAG151>
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)
4104         <PUSH   P* [0]>
4105         <MOVEI  O* |SEGMNT >
4106         <PUSHJ  P* |RCALL >
4107         <POP    P* A>
4108         <JRST   TAG149>
4109 TAG151  <MOVNI  B* 1 >                                      ; 2272
4110         <MOVE   D* (FRM) 82>                                ; (82)
4111         <ASH    D* A>
4112         <SUB    B* D>
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]
4117         <MCALL  2 ADDRESS:C>
4118         <PUSH   TP* A>                                      ; [238]
4119         <PUSH   TP* B>                                      ; [239]
4120         <PUSH   TP* A>                                      ; [240]
4121         <PUSH   TP* B>                                      ; [241]
4122         <MCALL  2 DATUM>
4123         <PUSH   TP* A>                                      ; [238]
4124         <PUSH   TP* B>                                      ; [239]
4125         <MOVE   A* (FRM) 163>                               ; (163)
4126         <MOVE   B* (FRM) 164>                               ; (164)
4127         <PUSH   P* [0]>
4128         <MOVEI  O* |SEGMNT >
4129         <PUSHJ  P* |RCALL >
4130         <POP    P* A>
4131 TAG149  <ACALL  A* DATUM>                                   ; 2294
4132         <PUSH   TP* A>                                      ; [240]
4133         <PUSH   TP* B>                                      ; [241]
4134         <MCALL  2 MOVE:ARG>
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)
4141         <MCALL  2 ACFIX>
4142         <MOVE   B* (FRM) 164>                               ; (164)
4143         <PUSH   TP* (B) >                                   ; [238]
4144         <PUSH   TP* (B) 1>                                  ; [239]
4145         <MCALL  1 ISTYPE?>
4146         <GETYP  O* A>
4147         <CAIN   O* <TYPE-CODE FALSE>>
4148         <JRST   TAG152>
4149         <MOVE   B* (FRM) 170>                               ; (170)
4150         <GETYP  O* (B) 0>
4151         <CAIE   O* <MQUOTE %<TYPE-C AC!-COMPDEC!-PACKAGE VECTOR>>>
4152         <JRST   TAG152>
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>
4158         <JRST   TAG152>
4159 TAG145  <GETYP  O* (FRM) 13>                                ; 2322 (13)
4160         <CAIN   O* <TYPE-CODE FALSE>>
4161         <JRST   TAG153>
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]
4169         <MCALL  3 DO-LAST>
4170         <JRST   TAG152>
4171 TAG153  <GETYP  O* (FRM) 99>                                ; 2334 (99)
4172         <CAIN   O* <TYPE-CODE FALSE>>
4173         <JRST   TAG154>
4174         <GETYP  O* (FRM) 193>                               ; (193)
4175         <CAIN   O* <TYPE-CODE FALSE>>
4176         <JRST   TAG154>
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]
4182         <MCALL  2 MOVE:ARG>
4183         <JRST   TAG152>
4184 TAG154  <GETYP  O* (FRM) 193>                               ; 2347 (193)
4185         <CAIN   O* <TYPE-CODE FALSE>>
4186         <JRST   TAG155>
4187         <GETYP  O* (FRM) 99>                                ; (99)
4188         <CAIE   O* <TYPE-CODE FALSE>>
4189         <JRST   TAG156>
4190 TAG155  <GETYP  O* (FRM) 99>                                ; 2353 (99)
4191         <CAIN   O* <TYPE-CODE FALSE>>
4192         <JRST   TAG152>
4193         <PUSH   TP* (FRM) 59>                               ; (59) [238]
4194         <PUSH   TP* (FRM) 60>                               ; (60) [239]
4195         <MOVNI  B* 1 >
4196         <MOVE   D* (FRM) 82>                                ; (82)
4197         <ASH    D* A>
4198         <SUB    B* D>
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]
4209         <MCALL  2 POP:LOCS>
4210         <PUSH   TP* (FRM) 181>                              ; (181) [238]
4211         <PUSH   TP* (FRM) 182>                              ; (182) [239]
4212         <MCALL  1 LABEL:TAG>
4213         <MOVEI  E* (FRM) 217>                               ; (217)
4214         <PUSHJ  P* |SSPEC1 >
4215         <GETYP  O* (FRM) 169>                               ; (169)
4216         <CAIN   O* <TYPE-CODE UNBOUND>>
4217         <JRST   TAG157>
4218         <MOVE   B* (FRM) 164>                               ; (164)
4219         <GETYP  O* (B) 0>
4220         <CAIE   O* <MQUOTE %<TYPE-C AC!-COMPDEC!-PACKAGE VECTOR>>>
4221         <JRST   TAG158>
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)
4230         <HRRZ   D* (B) >
4231         <GETYP  O* (D) 0>
4232         <CAIE   O* <MQUOTE %<TYPE-C AC!-COMPDEC!-PACKAGE VECTOR>>>
4233         <JRST   TAG157>
4234         <HRRZ   D* (B) >
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)
4248         <MCALL  2 MOVE:ARG>
4249         <MOVEM  A* (FRM) 9>                                 ; (9)
4250         <MOVEM  B* (FRM) 10>                                ; (10)
4251         <MCALL  0 END-FRAME>
4252         <MOVE   A* (FRM) 9>                                 ; (9)
4253         <MOVE   B* (FRM) 10>                                ; (10)
4254         <MOVE   TP* FRM>
4255         <PUSHJ  P* |SSPECS >
4256         <JRST   |FMPOPJ >
4257         <TAG1>
4258         <0>
4259         <(*47*) -1>
4260         <IMULI  TB* 1 >
4261         <-1>
4262         <(18) 18>
4263         <IMULI  TB* (B) 0>
4264         <IMULI  TB* 4 >
4265         <(4) 4>
4266         <(1) 1>
4267         <1>
4268         <IMULI  TB* 2 >
4269         <(22) 22>
4270         <(22) 22>
4271 TAG14   <(*1200*) 0>                                        ; 2434
4272         <FSB    O* O>
4273         <IMULI  TB* (D) 6>
4274         <IMULI  TB* 6 >
4275         <IMULI  TB* 5 >
4276         <IMULI  TB* (FRM) 113>                              ; (113)
4277         <(20) 20>
4278 TAG26   <(*1200*) 4>                                        ; 2441
4279         <FSB    O* O>
4280         <IMULI  TB* (FRM) 199>                              ; (199)
4281         <IMULI  TB* (FRM) 219>                              ; (219)
4282         <(30) 30>
4283         <(26) 26>
4284         <(20) 20>
4285         <IMULI  TB* (FRM) 193>                              ; (193)
4286         <IMULI  TB* (B) 24>
4287         <(32) 32>
4288         <(34) 34>
4289         <IMULI  TB* (D) 0>
4290         <IMULI  TB* (FRM) 13>                               ; (13)
4291         <2>
4292         <IMULI  TB* (FRM) 153>                              ; (153)
4293         <IMULI  TB* (FRM) 15>                               ; (15)
4294         <(*100*) 0>
4295         <(4) 4>
4296         <IMULI  TB* (FRM) 99>                               ; (99)
4297         <IMULI  TB* (FRM) 57>                               ; (57)
4298         <(*1200*) *150000*>
4299         <IMULI  TB* (PVP) 14>
4300         <IMULI  TB* (FRM) 175>                              ; (175)
4301         <IMULI  TB* (FRM) 21>                               ; (21)
4302         <(*13*) 0>
4303         <3>
4304         <IMULI  TB* (D) 0>
4305         <IMULI  TB* (PVP) 0>
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)
4311         <(60) 60>
4312         <IMULI  TB* (PVP) 0>
4313         <(*1500*) *12*>
4314         <IMULI  TB* (TVP) 0>
4315         <IMULI  TB* (FRM) -5>                               ; (-5)
4316         <IMULI  TB* (FRM) 223>                              ; (223)
4317         <(60) 60>
4318         <*120000*>
4319         <-2>
4320         <IMULI  TB* (FRM) 75>                               ; (75)
4321         <SETZM  O>
4322         <(*17*) 0>
4323         <IMULI  TB* (FRM) 163>                              ; (163)
4324         <IMULI  TB* (FRM) 169>                              ; (169)
4325         <(3) *10*>
4326         <(*56132*) *551434*>
4327         <0>
4328         <(1) 2>
4329 \1a