mim/development/mim/vaxc/acmerge.mima

   1
   2 <COND (<NOT <GASSIGNED? INST-NULLF>> <SETG INST-NULLF <CHTYPE <LSH ,INST-NULL 24> FIX>>)>
   3
   4 #WORD *6042326423*
   5                     <GFCN \1aSAVE-LOAD-STATE ("VALUE" <VECTOR [REST <OR FALSE AC-LOAD-STATE>]>)>
   6                     <TEMP TEMP15:VECTOR TEMP13 AC16:AC TEMP19>
   7                     <INTGO>
   8                     <GVAL 'ALL-ACS = TEMP15>
   9                     <SET TEMP13 0 (TYPE FIX)>
  10                     <LOOP>
  11 MAP5
  12                     <INTGO>
  13                     <EMPUV? TEMP15 + MAPAP8>
  14                     <NTHUV TEMP15 1 = AC16>
  15                     <NTHUV AC16 9 = TEMP19>
  16                     <TYPE? TEMP19 <TYPE-CODE FALSE> + TAG20>
  17                     <DEAD TEMP19>
  18                     <SET TEMP19 %<> (TYPE FALSE)>
  19                     <JUMP + BOOL17>
  20 TAG20
  21                     <NTHUV AC16 6 = STACK>
  22                     <NTHUV AC16 7 = STACK>
  23                     <DEAD AC16>
  24                     <UBLOCK <TYPE-CODE VECTOR> 2 = TEMP19 (TYPE VECTOR)>
  25                     <CHTYPE TEMP19 <TYPE-CODE AC-LOAD-STATE> = TEMP19>
  26 BOOL17
  27                     <PUSH TEMP19>
  28                     <DEAD TEMP19>
  29                     <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
  30                     <RESTUV TEMP15 1 = TEMP15 (TYPE VECTOR)>
  31                     <JUMP + MAP5>
  32 MAPAP8
  33                     <UBLOCK <TYPE-CODE VECTOR> TEMP13 = TEMP13 (TYPE VECTOR)>
  34                     <RETURN TEMP13>
  35                     <DEAD TEMP13>
  36                     <END \1aSAVE-LOAD-STATE>
  37
  38 #WORD *20471352535*
  39                     <GFCN \1aSET-AC-LOAD-STATE ("VALUE" <OR FALSE AC> SLOAD-STATE) LSTATE4>
  40                     <TEMP TEMP15 TEMP17:VECTOR TEMP12:VECTOR AC18:AC TEMP22>
  41                     <INTGO>
  42                     <SET TEMP15 %<> (TYPE FALSE)>
  43                     <GVAL 'ALL-ACS = TEMP17>
  44                     <SET TEMP12 LSTATE4 (TYPE VECTOR)>
  45                     <DEAD LSTATE4>
  46                     <LOOP>
  47 MAP6
  48                     <INTGO>
  49                     <EMPUV? TEMP17 + MAPAP9>
  50                     <EMPUV? TEMP12 + MAPAP9>
  51                     <NTHUV TEMP17 1 = AC18>
  52                     <NTHUV TEMP12 1 = TEMP15>
  53                     <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE21>
  54                     <PUTUV AC18 9 %<>>
  55                     <NTHUV TEMP15 1 = TEMP22>
  56                     <PUTUV AC18 6 TEMP22>
  57                     <DEAD TEMP22>
  58                     <NTHUV TEMP15 2 = TEMP22>
  59                     <DEAD TEMP15>
  60                     <PUTUV AC18 7 TEMP22>
  61                     <DEAD TEMP22>
  62                     <SET TEMP15 AC18>
  63                     <DEAD AC18>
  64                     <JUMP + PHRASE23>
  65 PHRASE21
  66                     <PUTUV AC18 9 'T>
  67                     <PUTUV AC18 6 %<>>
  68                     <PUTUV AC18 7 %<>>
  69                     <SET TEMP15 AC18>
  70                     <DEAD AC18>
  71 PHRASE23
  72                     <RESTUV TEMP17 1 = TEMP17 (TYPE VECTOR)>
  73                     <RESTUV TEMP12 1 = TEMP12 (TYPE VECTOR)>
  74                     <JUMP + MAP6>
  75 MAPAP9
  76                     <RETURN TEMP15>
  77                     <DEAD TEMP15>
  78                     <END \1aSET-AC-LOAD-STATE>
  79
  80 #WORD *12114471154*
  81                     <GFCN \1aSAVE-STATE ("VALUE" VECTOR)>
  82                     <TEMP CACHE4:VECTOR TEMP14 LVAR16>
  83                     <INTGO>
  84                     <GVAL 'VARIABLE-CACHE = CACHE4>
  85                     <SET TEMP14 0 (TYPE FIX)>
  86                     <LOOP>
  87 MAP6
  88                     <INTGO>
  89                     <EMPUV? CACHE4 + MAPAP9>
  90                     <NTHUV CACHE4 1 = LVAR16>
  91                     <FRAME '\1aCOPY-LINKVAR>
  92                     <PUSH LVAR16>
  93                     <DEAD LVAR16>
  94                     <CALL '\1aCOPY-LINKVAR 1 = LVAR16>
  95                     <PUSH LVAR16>
  96                     <DEAD LVAR16>
  97                     <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
  98                     <RESTUV CACHE4 1 = CACHE4 (TYPE VECTOR)>
  99                     <JUMP + MAP6>
 100 MAPAP9
 101                     <UBLOCK <TYPE-CODE VECTOR> TEMP14 = TEMP14 (TYPE VECTOR)>
 102                     <RETURN TEMP14>
 103                     <DEAD TEMP14>
 104                     <END \1aSAVE-STATE>
 105
 106 #WORD *21400704120*
 107                     <GFCN \1aPAIR-MERGE-STATE ("VALUE" VECTOR AC-STATE AC-STATE "OPTIONAL" <OR FALSE <PRIMTYPE VECTOR>> ANY) SSTATE17 SSTATE28 SSTATE9 LEN10>
 108                     <OPT-DISPATCH 2 %<> OPT4 OPT5 OPT6>
 109 OPT4
 110                     <PUSH %<>>
 111 OPT5
 112                     <PUSH #T$UNBOUND 0>
 113 OPT6
 114                     <TEMP TEMP12 TEMP13 LKV211>
 115                     <INTGO>
 116                     <LENUV SSTATE17 = TEMP12 (TYPE FIX)>
 117                     <LENUV SSTATE28 = TEMP13 (TYPE FIX)>
 118                     <LESS? TEMP12 TEMP13 - TAG14>
 119                     <SET TEMP12 TEMP13 (TYPE FIX)>
 120                     <DEAD TEMP13>
 121 TAG14
 122                     <SET LEN10 TEMP12>
 123                     <DEAD TEMP12>
 124                     <TYPE? SSTATE9 <TYPE-CODE FALSE> + PHRASE16>
 125                     <FRAME '\1aADJUST-LENGTH>
 126                     <PUSH SSTATE9>
 127                     <DEAD SSTATE9>
 128                     <PUSH LEN10>
 129                     <DEAD LEN10>
 130                     <CALL '\1aADJUST-LENGTH 2 = SSTATE9>
 131                     <JUMP + PHRASE18>
 132 PHRASE16
 133                     <UUBLOCK <TYPE-CODE VECTOR> LEN10 = SSTATE9 (TYPE VECTOR)>
 134                     <DEAD LEN10>
 135 PHRASE18
 136                     <FRAME '\1aREST>
 137                     <PUSH SSTATE9>
 138                     <FRAME '\1aLENGTH>
 139                     <PUSH SSTATE9>
 140                     <DEAD SSTATE9>
 141                     <CALL '\1aLENGTH 1 = STACK>
 142                     <CALL '\1aREST 2 = SSTATE9>
 143                     <SET TEMP13 SSTATE17 (TYPE VECTOR)>
 144                     <DEAD SSTATE17>
 145                     <LOOP>
 146 MAP22
 147                     <INTGO>
 148                     <EMPUV? TEMP13 + MAPAP25>
 149                     <NTHUV TEMP13 1 = TEMP12>
 150                     <FRAME '\1aLINK-FIND>
 151                     <PUSH TEMP12>
 152                     <PUSH SSTATE28>
 153                     <CALL '\1aLINK-FIND 2 = LKV211>
 154                     <TYPE? LKV211 <TYPE-CODE FALSE> + PHRASE36>
 155                     <FRAME '\1aADJUST-LINKS>
 156                     <PUSH TEMP12>
 157                     <DEAD TEMP12>
 158                     <PUSH LKV211>
 159                     <DEAD LKV211>
 160                     <CALL '\1aADJUST-LINKS 2 = LKV211>
 161                     <TYPE? LKV211 <TYPE-CODE FALSE> + PHRASE36>
 162                     <BACKU SSTATE9 1 = SSTATE9>
 163                     <PUTUV SSTATE9 1 LKV211>
 164                     <DEAD LKV211>
 165 PHRASE36
 166                     <RESTUV TEMP13 1 = TEMP13 (TYPE VECTOR)>
 167                     <JUMP + MAP22>
 168 MAPAP25
 169                     <RETURN SSTATE9>
 170                     <DEAD SSTATE9>
 171                     <END \1aPAIR-MERGE-STATE>
 172
 173 #WORD *16012622054*
 174                     <GFCN \1aLINK-FIND ("VALUE" <OR FALSE LINKVAR> LINKVAR <VECTOR [REST LINKVAR]>) LK14 LINKS5>
 175                     <TEMP VAR6:VARTBL TEMP16 TEMP13:VECTOR TEMP22:VARTBL>
 176                     <INTGO>
 177                     <NTHUV LK14 1 = VAR6 (TYPE VARTBL)>
 178                     <DEAD LK14>
 179                     <SET TEMP16 %<> (TYPE FALSE)>
 180                     <SET TEMP13 LINKS5 (TYPE VECTOR)>
 181                     <DEAD LINKS5>
 182                     <LOOP>
 183 MAP8
 184                     <INTGO>
 185                     <EMPUV? TEMP13 + MAPAP11>
 186                     <NTHUV TEMP13 1 = TEMP16>
 187                     <NTHUV TEMP16 1 = TEMP22 (TYPE VARTBL)>
 188                     <VEQUAL? TEMP22 VAR6 + TAG21>
 189                     <DEAD TEMP22>
 190                     <SET TEMP16 %<> (TYPE FALSE)>
 191                     <JUMP + PHRASE20>
 192 TAG21
 193                     <RETURN TEMP16>
 194                     <DEAD TEMP16>
 195 PHRASE20
 196                     <RESTUV TEMP13 1 = TEMP13 (TYPE VECTOR)>
 197                     <JUMP + MAP8>
 198 MAPAP11
 199                     <RETURN TEMP16>
 200                     <DEAD TEMP16>
 201                     <END \1aLINK-FIND>
 202
 203 #WORD *244257215*
 204                     <GFCN \1aADJUST-LINKS ("VALUE" <OR FALSE LINKVAR> LINKVAR LINKVAR) LK14 LK25>
 205                     <TEMP (VAC7 %<>) (TAC8 %<>) (TWAC9 %<>) (CAC10 %<>) TEMP14 TEMP15 DECL6>
 206                     <INTGO>
 207                     <NTHUV LK14 5 = TEMP14>
 208                     <NTHUV LK25 5 = TEMP15>
 209                     <EQUAL? TEMP14 TEMP15 - PHRASE13>
 210                     <DEAD TEMP14 TEMP15>
 211                     <NTHUV LK14 5 = DECL6>
 212                     <JUMP + PHRASE16>
 213 PHRASE13
 214                     <SET DECL6 %<> (TYPE FALSE)>
 215 PHRASE16
 216                     <NTHUV LK14 7 = TEMP15>
 217                     <NTHUV LK25 7 = TEMP14>
 218                     <EQUAL? TEMP15 TEMP14 - PHRASE18>
 219                     <DEAD TEMP15>
 220                     <NTHUV LK14 7 = TAC8>
 221 PHRASE18
 222                     <NTHUV LK14 6 = TEMP14>
 223                     <NTHUV LK25 6 = TEMP15>
 224                     <EQUAL? TEMP14 TEMP15 - PHRASE20>
 225                     <DEAD TEMP14 TEMP15>
 226                     <NTHUV LK14 6 = VAC7>
 227 PHRASE20
 228                     <NTHUV LK14 8 = TEMP15>
 229                     <NTHUV LK25 8 = TEMP14>
 230                     <EQUAL? TEMP15 TEMP14 - PHRASE22>
 231                     <DEAD TEMP15>
 232                     <NTHUV LK14 8 = CAC10>
 233 PHRASE22
 234                     <NTHUV LK14 9 = TEMP14>
 235                     <NTHUV LK25 9 = TEMP15>
 236                     <EQUAL? TEMP14 TEMP15 - PHRASE24>
 237                     <DEAD TEMP14 TEMP15>
 238                     <NTHUV LK14 9 = TWAC9>
 239 PHRASE24
 240                     <TYPE? VAC7 <TYPE-CODE FALSE> - BOOL27>
 241                     <TYPE? TAC8 <TYPE-CODE FALSE> - BOOL27>
 242                     <TYPE? TWAC9 <TYPE-CODE FALSE> - BOOL27>
 243                     <SET TEMP15 CAC10>
 244                     <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE26>
 245 BOOL27
 246                     <FRAME '\1aCOPY-LINKVAR>
 247                     <PUSH LK14>
 248                     <DEAD LK14>
 249                     <CALL '\1aCOPY-LINKVAR 1 = LK14>
 250                     <PUTUV LK14 5 DECL6>
 251                     <DEAD DECL6>
 252                     <PUTUV LK14 7 TAC8>
 253                     <DEAD TAC8>
 254                     <PUTUV LK14 6 VAC7>
 255                     <DEAD VAC7>
 256                     <PUTUV LK14 9 TWAC9>
 257                     <DEAD TWAC9>
 258                     <PUTUV LK14 8 CAC10>
 259                     <DEAD CAC10>
 260                     <FRAME '\1aMERGE-XREFS>
 261                     <NTHUV LK14 10 = STACK (TYPE LIST)>
 262                     <NTHUV LK25 10 = STACK (TYPE LIST)>
 263                     <CALL '\1aMERGE-XREFS 2 = VAC7>
 264                     <NTHUV LK14 2 = TEMP14>
 265                     <TYPE? TEMP14 <TYPE-CODE FALSE> + BOOL30>
 266                     <NTHUV LK25 2 = TEMP14>
 267 BOOL30
 268                     <PUTUV LK14 2 TEMP14>
 269                     <DEAD TEMP14>
 270                     <NTHUV LK14 4 = TEMP14>
 271                     <TYPE? TEMP14 <TYPE-CODE FALSE> + BOOL31>
 272                     <NTHUV LK25 4 = TEMP14>
 273 BOOL31
 274                     <PUTUV LK14 4 TEMP14>
 275                     <DEAD TEMP14>
 276                     <NTHUV LK14 3 = TEMP14>
 277                     <TYPE? TEMP14 <TYPE-CODE FALSE> + BOOL32>
 278                     <NTHUV LK25 3 = TEMP14>
 279                     <DEAD LK25>
 280 BOOL32
 281                     <PUTUV LK14 3 TEMP14>
 282                     <DEAD TEMP14>
 283                     <PUTUV LK14 10 VAC7 (TYPE LIST)>
 284                     <DEAD VAC7>
 285                     <SET TEMP15 LK14>
 286                     <DEAD LK14>
 287 PHRASE26
 288                     <RETURN TEMP15>
 289                     <DEAD TEMP15>
 290                     <END \1aADJUST-LINKS>
 291
 292 #WORD *5321560740*
 293                     <GFCN \1aMERGE-XREFS ("VALUE" <LIST [REST XREF-INFO]> <LIST [REST XREF-INFO]> <LIST [REST XREF-INFO]>) LX14 LX25>
 294                     <TEMP TEMP15 TEMP13 TEMP12:LIST XF117:XREF-INFO TEMP23 TEMP24>
 295                     <INTGO>
 296                     <SET TEMP15 () (TYPE LIST)>
 297                     <SET TEMP13 () (TYPE LIST)>
 298                     <SET TEMP12 LX14 (TYPE LIST)>
 299                     <DEAD LX14>
 300                     <LOOP>
 301 MAP7
 302                     <INTGO>
 303                     <EMPL? TEMP12 + MAPAP10>
 304                     <NTHL TEMP12 1 = XF117>
 305                     <SET TEMP23 LX25>
 306                     <EMPL? TEMP23 + COND18>
 307                     <LOOP (XF117 VALUE) (TEMP23 VALUE)>
 308 TAG21
 309                     <NTHL TEMP23 1 = TEMP24>
 310                     <VEQUAL? TEMP24 XF117 + TAG20>
 311                     <DEAD TEMP24>
 312                     <RESTL TEMP23 1 = TEMP23 (TYPE LIST)>
 313                     <EMPL? TEMP23 - TAG21>
 314                     <JUMP + COND18>
 315 TAG20
 316                     <CONS XF117 () = TEMP23 (TYPE LIST)>
 317                     <DEAD XF117>
 318                     <EMPL? TEMP15 - TAG26>
 319                     <SET TEMP15 TEMP23 (TYPE LIST)>
 320                     <JUMP + TAG27>
 321 TAG26
 322                     <PUTREST TEMP13 TEMP23>
 323                     <DEAD TEMP13>
 324 TAG27
 325                     <SET TEMP13 TEMP23 (TYPE LIST)>
 326                     <DEAD TEMP23>
 327 COND18
 328                     <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
 329                     <JUMP + MAP7>
 330 MAPAP10
 331                     <RETURN TEMP15>
 332                     <DEAD TEMP15>
 333                     <END \1aMERGE-XREFS>
 334
 335 #WORD *15336521710*
 336                     <GFCN \1aSET-AC-STATE ("VALUE" ATOM AC-STATE) SSTATE4>
 337                     <TEMP TEMP6:VECTOR TEMP7 AC18 TEMP21>
 338                     <INTGO>
 339                     <FRAME '\1aFLUSH-VAR-TEMP-DECLS>
 340                     <CALL '\1aFLUSH-VAR-TEMP-DECLS 0>
 341                     <GVAL 'VARIABLE-CACHE = TEMP6>
 342                     <GVAL 'VARIABLE-CACHE = TEMP7>
 343                     <LENUV TEMP7 = TEMP7 (TYPE FIX)>
 344                     <RESTUV TEMP6 TEMP7 = TEMP6 (TYPE VECTOR)>
 345                     <DEAD TEMP7>
 346                     <SETG 'VARIABLE-CACHE TEMP6>
 347                     <DEAD TEMP6>
 348                     <GVAL 'ALL-ACS = TEMP6>
 349                     <LOOP>
 350 MAP9
 351                     <INTGO>
 352                     <EMPUV? TEMP6 + MAPAP12>
 353                     <NTHUV TEMP6 1 = AC18>
 354                     <NTHUV AC18 8 = TEMP7 (TYPE VECTOR)>
 355                     <FRAME '\1aUSE-AC>
 356                     <PUSH AC18>
 357                     <CALL '\1aUSE-AC 1>
 358                     <LENUV TEMP7 = TEMP21 (TYPE FIX)>
 359                     <RESTUV TEMP7 TEMP21 = TEMP21 (TYPE VECTOR)>
 360                     <DEAD TEMP7>
 361                     <PUTUV AC18 8 TEMP21>
 362                     <DEAD AC18 TEMP21>
 363                     <RESTUV TEMP6 1 = TEMP6 (TYPE VECTOR)>
 364                     <JUMP + MAP9>
 365 MAPAP12
 366                     <SET TEMP6 SSTATE4 (TYPE VECTOR)>
 367                     <LOOP>
 368 MAP23
 369                     <INTGO>
 370                     <EMPUV? TEMP6 + MAPAP26>
 371                     <NTHUV TEMP6 1 = AC18>
 372                     <NTHUV AC18 1 = TEMP7 (TYPE VARTBL)>
 373                     <FRAME '\1aCACHE-VAR>
 374                     <PUSH TEMP7>
 375                     <PUSH AC18>
 376                     <CALL '\1aCACHE-VAR 2>
 377                     <NTHUV AC18 5 = TEMP21>
 378                     <DEAD AC18>
 379                     <TYPE? TEMP21 <TYPE-CODE FALSE> + BOOL33>
 380                     <FRAME '\1aINDICATE-VAR-TEMP-DECL>
 381                     <PUSH TEMP7>
 382                     <DEAD TEMP7>
 383                     <PUSH TEMP21>
 384                     <DEAD TEMP21>
 385                     <CALL '\1aINDICATE-VAR-TEMP-DECL 2>
 386 BOOL33
 387                     <RESTUV TEMP6 1 = TEMP6 (TYPE VECTOR)>
 388                     <JUMP + MAP23>
 389 MAPAP26
 390                     <SET TEMP6 SSTATE4 (TYPE VECTOR)>
 391                     <DEAD SSTATE4>
 392                     <LOOP>
 393 MAP36
 394                     <INTGO>
 395                     <EMPUV? TEMP6 + MAPAP39>
 396                     <NTHUV TEMP6 1 = AC18>
 397                     <FRAME '\1aFIND-CACHE-VAR>
 398                     <NTHUV AC18 1 = STACK (TYPE VARTBL)>
 399                     <DEAD AC18>
 400                     <CALL '\1aFIND-CACHE-VAR 1 = TEMP7>
 401                     <NTHUV TEMP7 6 = TEMP21>
 402                     <TYPE? TEMP21 <TYPE-CODE FALSE> + BOOL47>
 403                     <FRAME '\1aPLACE-LV-IN-AC>
 404                     <PUSH TEMP21>
 405                     <DEAD TEMP21>
 406                     <PUSH TEMP7>
 407                     <CALL '\1aPLACE-LV-IN-AC 2>
 408 BOOL47
 409                     <NTHUV TEMP7 7 = TEMP21>
 410                     <TYPE? TEMP21 <TYPE-CODE FALSE> + BOOL49>
 411                     <FRAME '\1aPLACE-LV-IN-AC>
 412                     <PUSH TEMP21>
 413                     <DEAD TEMP21>
 414                     <PUSH TEMP7>
 415                     <CALL '\1aPLACE-LV-IN-AC 2>
 416 BOOL49
 417                     <NTHUV TEMP7 8 = TEMP21>
 418                     <TYPE? TEMP21 <TYPE-CODE FALSE> + BOOL51>
 419                     <FRAME '\1aPLACE-LV-IN-AC>
 420                     <PUSH TEMP21>
 421                     <DEAD TEMP21>
 422                     <PUSH TEMP7>
 423                     <CALL '\1aPLACE-LV-IN-AC 2>
 424 BOOL51
 425                     <NTHUV TEMP7 9 = TEMP21>
 426                     <TYPE? TEMP21 <TYPE-CODE FALSE> + BOOL53>
 427                     <FRAME '\1aPLACE-LV-IN-AC>
 428                     <PUSH TEMP21>
 429                     <DEAD TEMP21>
 430                     <PUSH TEMP7>
 431                     <DEAD TEMP7>
 432                     <CALL '\1aPLACE-LV-IN-AC 2>
 433 BOOL53
 434                     <RESTUV TEMP6 1 = TEMP6 (TYPE VECTOR)>
 435                     <JUMP + MAP36>
 436 MAPAP39
 437                     <RETURN 'T>
 438                     <END \1aSET-AC-STATE>
 439
 440 #WORD *30230770756*
 441                     <GFCN \1aPROCESS-LABEL-MERGE ("VALUE" <OR FALSE XREF-INFO> LABEL-REF BOOLEAN FIX) LABEL4 UCB?5 PATCH6>
 442                     <TEMP (PRE-STATE9 %<>) SSTATE7 TEMP27:LIST XREF28:XREF-INFO NSSTATE8>
 443                     <INTGO>
 444                     <TYPE? UCB?5 <TYPE-CODE FALSE> - PHRASE11>
 445                     <FRAME '\1aSAVE-STATE>
 446                     <CALL '\1aSAVE-STATE 0 = PRE-STATE9>
 447 PHRASE11
 448                     <FRAME '\1aCOMPUTE-MERGE-STATE>
 449                     <PUSH PRE-STATE9>
 450                     <PUSH LABEL4>
 451                     <CALL '\1aCOMPUTE-MERGE-STATE 2 = SSTATE7>
 452                     <TYPE? UCB?5 <TYPE-CODE FALSE> - BOOL14>
 453                     <DEAD UCB?5>
 454                     <FRAME '\1aADJUST-PRE-LABEL>
 455                     <PUSH PRE-STATE9>
 456                     <PUSH SSTATE7>
 457                     <PUSH PATCH6>
 458                     <DEAD PATCH6>
 459                     <CALL '\1aADJUST-PRE-LABEL 3>
 460 BOOL14
 461                     <NTHUV LABEL4 2 = TEMP27 (TYPE LIST)>
 462                     <LOOP>
 463 MAP17
 464                     <INTGO>
 465                     <EMPL? TEMP27 + MAPAP20>
 466                     <NTHL TEMP27 1 = XREF28>
 467                     <NTHUV XREF28 3 = NSSTATE8>
 468                     <TYPE? NSSTATE8 <TYPE-CODE FALSE> + PHRASE30>
 469                     <FRAME '\1aADJUST-JUMP>
 470                     <PUSH XREF28>
 471                     <DEAD XREF28>
 472                     <PUSH NSSTATE8>
 473                     <DEAD NSSTATE8>
 474                     <PUSH SSTATE7>
 475                     <CALL '\1aADJUST-JUMP 3>
 476 PHRASE30
 477                     <RESTL TEMP27 1 = TEMP27 (TYPE LIST)>
 478                     <JUMP + MAP17>
 479 MAPAP20
 480                     <FRAME '\1aCOMPUTE-MERGE-STATE>
 481                     <PUSH PRE-STATE9>
 482                     <DEAD PRE-STATE9>
 483                     <PUSH LABEL4>
 484                     <CALL '\1aCOMPUTE-MERGE-STATE 2 = SSTATE7>
 485                     <TYPE? SSTATE7 <TYPE-CODE FALSE> + PHRASE34>
 486                     <FRAME '\1aSET-AC-STATE>
 487                     <PUSH SSTATE7>
 488                     <DEAD SSTATE7>
 489                     <CALL '\1aSET-AC-STATE 1>
 490                     <JUMP + MAP36>
 491 PHRASE34
 492                     <GVAL 'ALL-ACS = PRE-STATE9>
 493                     <LOOP>
 494 MAP37
 495                     <INTGO>
 496                     <EMPUV? PRE-STATE9 + MAP36>
 497                     <FRAME '\1aCLEAR-VARS-FROM-AC>
 498                     <NTHUV PRE-STATE9 1 = STACK>
 499                     <CALL '\1aCLEAR-VARS-FROM-AC 1>
 500                     <RESTUV PRE-STATE9 1 = PRE-STATE9 (TYPE VECTOR)>
 501                     <JUMP + MAP37>
 502 MAP36
 503                     <FRAME '\1aCLEAN-UP-LABEL>
 504                     <PUSH LABEL4>
 505                     <DEAD LABEL4>
 506                     <CALL '\1aCLEAN-UP-LABEL 1 = PRE-STATE9>
 507                     <RETURN PRE-STATE9>
 508                     <DEAD PRE-STATE9>
 509                     <END \1aPROCESS-LABEL-MERGE>
 510
 511 #WORD *13522771277*
 512                     <GFCN \1aCLEAN-UP-LABEL ("VALUE" <OR FALSE XREF-INFO> LABEL-REF) LABEL4>
 513                     <TEMP TEMP14 TEMP16:LIST>
 514                     <INTGO>
 515                     <SET TEMP14 %<> (TYPE FALSE)>
 516                     <NTHUV LABEL4 2 = TEMP16 (TYPE LIST)>
 517                     <DEAD LABEL4>
 518                     <LOOP>
 519 MAP6
 520                     <INTGO>
 521                     <EMPL? TEMP16 + MAPAP9>
 522                     <NTHL TEMP16 1 = TEMP14>
 523                     <PUTUV TEMP14 3 %<>>
 524                     <PUTUV TEMP14 10 %<>>
 525                     <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
 526                     <JUMP + MAP6>
 527 MAPAP9
 528                     <RETURN TEMP14>
 529                     <DEAD TEMP14>
 530                     <END \1aCLEAN-UP-LABEL>
 531
 532 #WORD *33642531744*
 533                     <GFCN \1aCOMPUTE-MERGE-STATE ("VALUE" <OR FALSE <VECTOR [REST LINKVAR]>> <OR FALSE AC-STATE> LABEL-REF) PSSTATE4 LABEL5>
 534                     <TEMP SSTATE7 TEMP19:LIST XREF20>
 535                     <INTGO>
 536                     <SET SSTATE7 PSSTATE4>
 537                     <NTHUV LABEL5 2 = TEMP19 (TYPE LIST)>
 538                     <DEAD LABEL5>
 539                     <LOOP>
 540 MAP9
 541                     <INTGO>
 542                     <EMPL? TEMP19 + MAPAP12>
 543                     <NTHL TEMP19 1 = XREF20>
 544                     <NTHUV XREF20 3 = XREF20>
 545                     <TYPE? XREF20 <TYPE-CODE FALSE> + PHRASE25>
 546                     <TYPE? PSSTATE4 <TYPE-CODE FALSE> - PHRASE24>
 547                     <SET PSSTATE4 XREF20>
 548                     <DEAD XREF20>
 549                     <SET SSTATE7 PSSTATE4>
 550                     <JUMP + PHRASE25>
 551 PHRASE24
 552                     <FRAME '\1aPAIR-MERGE-STATE>
 553                     <PUSH PSSTATE4>
 554                     <DEAD PSSTATE4>
 555                     <PUSH XREF20>
 556                     <DEAD XREF20>
 557                     <CALL '\1aPAIR-MERGE-STATE 2 = SSTATE7>
 558                     <SET PSSTATE4 SSTATE7>
 559 PHRASE25
 560                     <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
 561                     <JUMP + MAP9>
 562 MAPAP12
 563                     <RETURN SSTATE7>
 564                     <DEAD SSTATE7>
 565                     <END \1aCOMPUTE-MERGE-STATE>
 566
 567 #WORD *27246637070*
 568                     <GFCN \1aADJUST-JUMP ("VALUE" XREF-INFO XREF-INFO AC-STATE AC-STATE) XREF4 JSSTATE5 LSSTATE6>
 569                     <TEMP SVEC7>
 570                     <INTGO>
 571                     <FRAME '\1aSET-AC-LOAD-STATE>
 572                     <NTHUV XREF4 10 = STACK (TYPE VECTOR)>
 573                     <CALL '\1aSET-AC-LOAD-STATE 1>
 574                     <FRAME '\1aGEN-INSERT>
 575                     <PUSH JSSTATE5>
 576                     <DEAD JSSTATE5>
 577                     <PUSH LSSTATE6>
 578                     <DEAD LSSTATE6>
 579                     <PUSH XREF4>
 580                     <CALL '\1aGEN-INSERT 3 = SVEC7>
 581                     <FRAME '\1aPRE-INSERT>
 582                     <PUSH SVEC7>
 583                     <DEAD SVEC7>
 584                     <NTHUV XREF4 7 = STACK>
 585                     <NTHUV XREF4 8 = STACK (TYPE FIX)>
 586                     <NTHUV XREF4 9 = STACK (TYPE FIX)>
 587                     <CALL '\1aPRE-INSERT 4 = SVEC7>
 588                     <PUTUV XREF4 4 SVEC7>
 589                     <DEAD SVEC7>
 590                     <RETURN XREF4>
 591                     <DEAD XREF4>
 592                     <END \1aADJUST-JUMP>
 593
 594 #WORD *36455377001*
 595                     <GFCN \1aPRE-INSERT ("VALUE" UVECTOR CODEVEC ANY FIX FIX) CDV4 STATUS?5 LILEN6 CP7>
 596                     <TEMP (INS29 %<>) INS18 NLILEN22 TEMP27>
 597                     <INTGO>
 598                     <EQUAL? STATUS?5 'UNCONDITIONAL-BRANCH + BOOL13>
 599                     <EMPUU? CDV4 - PHRASE12 (TYPE UVECTOR)>
 600 BOOL13
 601                     <RETURN CDV4>
 602                     <DEAD CDV4>
 603 PHRASE12
 604                     <FRAME '\1aNTH-CODE>
 605                     <SUB CP7 LILEN6 = STACK (TYPE FIX)>
 606                     <CALL '\1aNTH-CODE 1 = INS18>
 607                     <LESS? LILEN6 2 + EXIT19 (TYPE FIX)>
 608                     <SET INS29 () (TYPE LIST)>
 609                     <SET NLILEN22 0 (TYPE FIX)>
 610                     <LOOP>
 611 AGAIN23
 612                     <INTGO>
 613                     <ADD NLILEN22 1 = NLILEN22 (TYPE FIX)>
 614                     <LESS? NLILEN22 LILEN6 + PHRASE25 (TYPE FIX)>
 615                     <JUMP + EXIT19>
 616 PHRASE25
 617                     <FRAME '\1aNTH-CODE>
 618                     <SUB CP7 NLILEN22 = STACK (TYPE FIX)>
 619                     <CALL '\1aNTH-CODE 1 = TEMP27>
 620                     <CONS TEMP27 () = TEMP27>
 621                     <PUTREST TEMP27 INS29>
 622                     <DEAD INS29>
 623                     <SET INS29 TEMP27>
 624                     <DEAD TEMP27>
 625                     <FRAME '\1aPUT-CODE>
 626                     <SUB CP7 NLILEN22 = STACK (TYPE FIX)>
 627                     <GVAL 'INST-NULLF = STACK>
 628                     <CALL '\1aPUT-CODE 2>
 629                     <JUMP + AGAIN23>
 630 EXIT19
 631                     <TYPE? STATUS?5 <TYPE-CODE AC> - PHRASE30>
 632                     <FRAME '\1aRE-GEN>
 633                     <PUSH CDV4>
 634                     <DEAD CDV4>
 635                     <PUSH STATUS?5>
 636                     <DEAD STATUS?5>
 637                     <PUSH INS18>
 638                     <DEAD INS18>
 639                     <PUSH INS29>
 640                     <DEAD INS29>
 641                     <CALL '\1aRE-GEN 4 = INS29>
 642                     <JUMP + COND29>
 643 PHRASE30
 644                     <VEQUAL? LILEN6 1 - PHRASE32 (TYPE FIX)>
 645                     <SET NLILEN22 1 (TYPE FIX)>
 646                     <SET TEMP27 CDV4>
 647                     <DEAD CDV4>
 648                     <LOOP (TEMP27 VALUE LENGTH) (NLILEN22 VALUE)>
 649 TAG37
 650                     <INTGO>
 651                     <EMPUU? TEMP27 + TAG35>
 652                     <NTHUU TEMP27 1 = STACK>
 653                     <RESTUU TEMP27 1 = TEMP27 (TYPE UVECTOR)>
 654                     <ADD NLILEN22 1 = NLILEN22 (TYPE FIX)>
 655                     <JUMP + TAG37>
 656 TAG35
 657                     <PUSH INS18>
 658                     <DEAD INS18>
 659                     <UBLOCK <TYPE-CODE UVECTOR> NLILEN22 = INS29 (TYPE UVECTOR)>
 660                     <DEAD NLILEN22>
 661                     <JUMP + COND29>
 662 PHRASE32
 663                     <SET TEMP27 1 (TYPE FIX)>
 664                     <SET NLILEN22 CDV4>
 665                     <DEAD CDV4>
 666                     <LOOP (NLILEN22 VALUE LENGTH) (TEMP27 VALUE)>
 667 TAG40
 668                     <INTGO>
 669                     <EMPUU? NLILEN22 + TAG39>
 670                     <NTHUU NLILEN22 1 = STACK>
 671                     <RESTUU NLILEN22 1 = NLILEN22 (TYPE UVECTOR)>
 672                     <ADD TEMP27 1 = TEMP27 (TYPE FIX)>
 673                     <JUMP + TAG40>
 674 TAG39
 675                     <PUSH INS18>
 676                     <DEAD INS18>
 677                     <SET NLILEN22 INS29>
 678                     <DEAD INS29>
 679                     <LOOP (NLILEN22 VALUE) (TEMP27 VALUE)>
 680 TAG42
 681                     <INTGO>
 682                     <EMPL? NLILEN22 + TAG41>
 683                     <NTHL NLILEN22 1 = STACK>
 684                     <RESTL NLILEN22 1 = NLILEN22 (TYPE LIST)>
 685                     <ADD TEMP27 1 = TEMP27 (TYPE FIX)>
 686                     <JUMP + TAG42>
 687 TAG41
 688                     <UBLOCK <TYPE-CODE UVECTOR> TEMP27 = INS29 (TYPE UVECTOR)>
 689                     <DEAD TEMP27>
 690 COND29
 691                     <FRAME '\1aPUT-CODE>
 692                     <SUB CP7 LILEN6 = STACK (TYPE FIX)>
 693                     <DEAD CP7 LILEN6>
 694                     <GVAL 'INST-NULLF = STACK>
 695                     <CALL '\1aPUT-CODE 2>
 696                     <RETURN INS29>
 697                     <DEAD INS29>
 698                     <END \1aPRE-INSERT>
 699
 700 #WORD *34421404575*
 701                     <GFCN \1aRE-GEN ("VALUE" UVECTOR CODEVEC AC FIX <OR FALSE <LIST [REST FIX]>>) CDV4 AC5 INS16 INS27>
 702                     <TEMP TEMP13 TEMP12>
 703                     <INTGO>
 704                     <SETG 'RE-GEN-POST ()>
 705                     <SETG 'RE-GEN-PRE ()>
 706                     <FRAME '\1aINT-RE-GEN>
 707                     <PUSH CDV4>
 708                     <DEAD CDV4>
 709                     <PUSH AC5>
 710                     <DEAD AC5>
 711                     <PUSH %<>>
 712                     <CALL '\1aINT-RE-GEN 3>
 713                     <TYPE? INS27 <TYPE-CODE FALSE> + PHRASE10>
 714                     <SET TEMP13 1 (TYPE FIX)>
 715                     <GVAL 'RE-GEN-PRE = TEMP12>
 716                     <LOOP (TEMP12 VALUE) (TEMP13 VALUE)>
 717 TAG14
 718                     <INTGO>
 719                     <EMPL? TEMP12 + TAG11>
 720                     <NTHL TEMP12 1 = STACK>
 721                     <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
 722                     <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
 723                     <JUMP + TAG14>
 724 TAG11
 725                     <PUSH INS16>
 726                     <DEAD INS16>
 727                     <SET TEMP12 INS27>
 728                     <DEAD INS27>
 729                     <LOOP (TEMP12 VALUE) (TEMP13 VALUE)>
 730 TAG16
 731                     <INTGO>
 732                     <EMPL? TEMP12 + TAG15>
 733                     <NTHL TEMP12 1 = STACK>
 734                     <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
 735                     <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
 736                     <JUMP + TAG16>
 737 TAG15
 738                     <GVAL 'RE-GEN-POST = TEMP12>
 739                     <LOOP (TEMP12 VALUE) (TEMP13 VALUE)>
 740 TAG18
 741                     <INTGO>
 742                     <EMPL? TEMP12 + TAG17>
 743                     <NTHL TEMP12 1 = STACK>
 744                     <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
 745                     <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
 746                     <JUMP + TAG18>
 747 TAG17
 748                     <UBLOCK <TYPE-CODE UVECTOR> TEMP13 = TEMP13 (TYPE UVECTOR)>
 749                     <RETURN TEMP13>
 750                     <DEAD TEMP13>
 751 PHRASE10
 752                     <SET TEMP13 1 (TYPE FIX)>
 753                     <GVAL 'RE-GEN-PRE = TEMP12>
 754                     <LOOP (TEMP12 VALUE) (TEMP13 VALUE)>
 755 TAG23
 756                     <INTGO>
 757                     <EMPL? TEMP12 + TAG20>
 758                     <NTHL TEMP12 1 = STACK>
 759                     <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
 760                     <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
 761                     <JUMP + TAG23>
 762 TAG20
 763                     <PUSH INS16>
 764                     <DEAD INS16>
 765                     <GVAL 'RE-GEN-POST = TEMP12>
 766                     <LOOP (TEMP12 VALUE) (TEMP13 VALUE)>
 767 TAG25
 768                     <INTGO>
 769                     <EMPL? TEMP12 + TAG24>
 770                     <NTHL TEMP12 1 = STACK>
 771                     <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
 772                     <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
 773                     <JUMP + TAG25>
 774 TAG24
 775                     <UBLOCK <TYPE-CODE UVECTOR> TEMP13 = TEMP13 (TYPE UVECTOR)>
 776                     <RETURN TEMP13>
 777                     <DEAD TEMP13>
 778                     <END \1aRE-GEN>
 779
 780 #WORD *7317467555*
 781                     <GFCN \1aGET-I-FIELD ("VALUE" FIX ANY) X4>
 782                     <TEMP TEMP5:FIX>
 783                     <INTGO>
 784                     <LSH X4 -24 = TEMP5 (TYPE FIX)>
 785                     <DEAD X4>
 786                     <RETURN TEMP5>
 787                     <DEAD TEMP5>
 788                     <END \1aGET-I-FIELD>
 789
 790 #WORD *3310107271*
 791                     <GFCN \1aGET-S-FIELD ("VALUE" FIX ANY) X4>
 792                     <TEMP TEMP6:FIX OP15:FIX>
 793                     <INTGO>
 794                     <LSH X4 -16 = TEMP6 (TYPE FIX)>
 795                     <DEAD X4>
 796                     <AND TEMP6 #WORD *377* = OP15>
 797                     <DEAD TEMP6>
 798                     <AND OP15 #WORD *360* = TEMP6>
 799                     <VEQUAL? TEMP6 80 - PHRASE8 (TYPE FIX)>
 800                     <DEAD TEMP6>
 801                     <AND OP15 #WORD *17* = TEMP6>
 802                     <DEAD OP15>
 803                     <RETURN TEMP6>
 804                     <DEAD TEMP6>
 805 PHRASE8
 806                     <RETURN -1>
 807                     <END \1aGET-S-FIELD>
 808
 809 #WORD *20303650247*
 810                     <GFCN \1aINT-RE-GEN ("VALUE" ATOM CODEVEC AC <OR FALSE PTN-SAVE>) CDV4 AC5 PSAVE6>
 811                     <TEMP TEMP7 IFLD10 IREG11:FIX TEMP25:FIX>
 812                     <INTGO>
 813                     <LOOP>
 814 AGAIN13
 815                     <INTGO>
 816                     <EMPUU? CDV4 - PHRASE15 (TYPE UVECTOR)>
 817                     <RETURN 'T>
 818 PHRASE15
 819                     <FRAME '\1aGET-I-FIELD>
 820                     <NTHUU CDV4 1 = TEMP7 (TYPE FIX)>
 821                     <PUSH TEMP7>
 822                     <CALL '\1aGET-I-FIELD 1 = IFLD10>
 823                     <FRAME '\1aGET-S-FIELD>
 824                     <PUSH TEMP7>
 825                     <CALL '\1aGET-S-FIELD 1 = IREG11>
 826                     <VEQUAL? IFLD10 90 - PHRASE19 (TYPE FIX)>
 827                     <FRAME '\1aGET-PTNS>
 828                     <AND TEMP7 #WORD *377777* = STACK>
 829                     <CALL '\1aGET-PTNS 1 = PSAVE6>
 830                     <FRAME '\1aPSTORE-RE-GEN>
 831                     <NTHUV PSAVE6 1 = STACK (TYPE UVECTOR)>
 832                     <PUSH AC5>
 833                     <PUSH PSAVE6>
 834                     <PUSH TEMP7>
 835                     <DEAD TEMP7>
 836                     <CALL '\1aPSTORE-RE-GEN 4>
 837                     <RESTUU CDV4 1 = CDV4 (TYPE UVECTOR)>
 838                     <JUMP + AGAIN13>
 839 PHRASE19
 840                     <VEQUAL? IFLD10 176 + BOOL24 (TYPE FIX)>
 841                     <VEQUAL? IFLD10 208 + BOOL24 (TYPE FIX)>
 842                     <VEQUAL? IFLD10 144 - PHRASE22 (TYPE FIX)>
 843 BOOL24
 844                     <NTHUV AC5 2 = TEMP25 (TYPE FIX)>
 845                     <VEQUAL? IREG11 TEMP25 - PHRASE22 (TYPE FIX)>
 846                     <DEAD IREG11 TEMP25>
 847                     <FRAME '\1aGROUP-INST>
 848                     <PUSH 'POST>
 849                     <PUSH PSAVE6>
 850                     <PUSH TEMP7>
 851                     <DEAD TEMP7>
 852                     <NTHUU CDV4 2 = TEMP25 (TYPE FIX)>
 853                     <CONS TEMP25 () = STACK>
 854                     <DEAD TEMP25>
 855                     <CALL '\1aGROUP-INST 4>
 856                     <RESTUU CDV4 2 = CDV4 (TYPE UVECTOR)>
 857                     <JUMP + AGAIN13>
 858 PHRASE22
 859                     <EQUAL? IFLD10 144 + BOOL30>
 860                     <EQUAL? IFLD10 176 + BOOL30>
 861                     <EQUAL? IFLD10 208 - PHRASE29>
 862                     <DEAD IFLD10>
 863 BOOL30
 864                     <FRAME '\1aGROUP-INST>
 865                     <PUSH 'PRE>
 866                     <PUSH PSAVE6>
 867                     <PUSH TEMP7>
 868                     <DEAD TEMP7>
 869                     <NTHUU CDV4 2 = TEMP25 (TYPE FIX)>
 870                     <CONS TEMP25 () = STACK>
 871                     <DEAD TEMP25>
 872                     <CALL '\1aGROUP-INST 4>
 873                     <RESTUU CDV4 2 = CDV4 (TYPE UVECTOR)>
 874                     <JUMP + AGAIN13>
 875 PHRASE29
 876                     <FRAME '\1aGROUP-INST>
 877                     <PUSH 'PRE>
 878                     <PUSH PSAVE6>
 879                     <PUSH TEMP7>
 880                     <DEAD TEMP7>
 881                     <PUSH %<>>
 882                     <CALL '\1aGROUP-INST 4>
 883                     <RESTUU CDV4 1 = CDV4 (TYPE UVECTOR)>
 884                     <JUMP + AGAIN13>
 885                     <END \1aINT-RE-GEN>
 886
 887 #WORD *116556126*
 888                     <GFCN \1aPSTORE-RE-GEN ("VALUE" ANY CODEVEC AC <OR FALSE PTN-SAVE> FIX) CDV4 AC5 PSAVE6 INST7>
 889                     <TEMP TEMP11>
 890                     <INTGO>
 891                     <FRAME '\1aTEST-PRE-POST>
 892                     <PUSH CDV4>
 893                     <PUSH AC5>
 894                     <CALL '\1aTEST-PRE-POST 2 = TEMP11>
 895                     <EQUAL? TEMP11 'ALL-PRE - PHRASE9>
 896                     <DEAD TEMP11>
 897                     <FRAME '\1aGROUP-INST>
 898                     <PUSH 'PRE>
 899                     <PUSH %<>>
 900                     <PUSH INST7>
 901                     <DEAD INST7>
 902                     <PUSH %<>>
 903                     <CALL '\1aGROUP-INST 4 = TEMP11>
 904                     <RETURN TEMP11>
 905                     <DEAD TEMP11>
 906 PHRASE9
 907                     <FRAME '\1aTEST-PRE-POST>
 908                     <PUSH CDV4>
 909                     <PUSH AC5>
 910                     <CALL '\1aTEST-PRE-POST 2 = TEMP11>
 911                     <EQUAL? TEMP11 'ALL-POST - PHRASE13>
 912                     <DEAD TEMP11>
 913                     <FRAME '\1aGROUP-INST>
 914                     <PUSH 'POST>
 915                     <PUSH %<>>
 916                     <PUSH INST7>
 917                     <DEAD INST7>
 918                     <PUSH %<>>
 919                     <CALL '\1aGROUP-INST 4 = TEMP11>
 920                     <RETURN TEMP11>
 921                     <DEAD TEMP11>
 922 PHRASE13
 923                     <FRAME '\1aINT-RE-GEN>
 924                     <PUSH CDV4>
 925                     <DEAD CDV4>
 926                     <PUSH AC5>
 927                     <DEAD AC5>
 928                     <PUSH PSAVE6>
 929                     <DEAD PSAVE6>
 930                     <CALL '\1aINT-RE-GEN 3 = TEMP11>
 931                     <RETURN TEMP11>
 932                     <DEAD TEMP11>
 933                     <END \1aPSTORE-RE-GEN>
 934
 935 #WORD *14733464643*
 936                     <GFCN \1aTEST-PRE-POST ("VALUE" <OR ATOM FALSE> CODEVEC AC) CDV4 AC5>
 937                     <TEMP (MODE6 %<>) INST13:FIX IFLD10:FIX TEMP23:FIX>
 938                     <INTGO>
 939                     <LOOP>
 940 AGAIN14
 941                     <INTGO>
 942                     <EMPUU? CDV4 - PHRASE16 (TYPE UVECTOR)>
 943                     <RETURN MODE6>
 944                     <DEAD MODE6>
 945 PHRASE16
 946                     <FRAME '\1aGET-I-FIELD>
 947                     <NTHUU CDV4 1 = INST13 (TYPE FIX)>
 948                     <PUSH INST13>
 949                     <CALL '\1aGET-I-FIELD 1 = IFLD10>
 950                     <FRAME '\1aGET-S-FIELD>
 951                     <PUSH INST13>
 952                     <DEAD INST13>
 953                     <CALL '\1aGET-S-FIELD 1 = INST13>
 954                     <VEQUAL? IFLD10 176 + BOOL22 (TYPE FIX)>
 955                     <VEQUAL? IFLD10 208 - PHRASE20 (TYPE FIX)>
 956 BOOL22
 957                     <NTHUV AC5 2 = TEMP23 (TYPE FIX)>
 958                     <VEQUAL? INST13 TEMP23 - PHRASE20 (TYPE FIX)>
 959                     <DEAD INST13 TEMP23>
 960                     <EQUAL? MODE6 'ALL-PRE + PHRASE25>
 961                     <DEAD MODE6>
 962                     <SET MODE6 'ALL-POST (TYPE ATOM)>
 963                     <JUMP + COND24>
 964 PHRASE25
 965                     <RETURN 'MIXED>
 966 COND24
 967                     <RESTUU CDV4 2 = CDV4 (TYPE UVECTOR)>
 968                     <JUMP + AGAIN14>
 969 PHRASE20
 970                     <EQUAL? MODE6 'ALL-POST - PHRASE28>
 971                     <DEAD MODE6>
 972                     <RETURN 'MIXED>
 973 PHRASE28
 974                     <SET MODE6 'ALL-PRE (TYPE ATOM)>
 975                     <VEQUAL? IFLD10 144 + BOOL31 (TYPE FIX)>
 976                     <VEQUAL? IFLD10 176 + BOOL31 (TYPE FIX)>
 977                     <VEQUAL? IFLD10 208 - PHRASE30 (TYPE FIX)>
 978                     <DEAD IFLD10>
 979 BOOL31
 980                     <RESTUU CDV4 2 = CDV4 (TYPE UVECTOR)>
 981                     <JUMP + AGAIN14>
 982 PHRASE30
 983                     <RESTUU CDV4 1 = CDV4 (TYPE UVECTOR)>
 984                     <JUMP + AGAIN14>
 985                     <END \1aTEST-PRE-POST>
 986
 987 #WORD *124034536*
 988                     <GFCN \1aGROUP-INST ("VALUE" LIST ATOM <OR FALSE PTN-SAVE> FIX <OR FALSE LIST>) MODE4 PSAVE5 INST16 INST27>
 989                     <TEMP TEMP16 TEMP15 NPSAVE9 TEMP32 TEMP33>
 990                     <INTGO>
 991                     <TYPE? PSAVE5 <TYPE-CODE FALSE> + PHRASE11>
 992                     <TYPE? INST27 <TYPE-CODE FALSE> + PHRASE13>
 993                     <PUSH INST16>
 994                     <DEAD INST16>
 995                     <SET TEMP16 1 (TYPE FIX)>
 996                     <SET TEMP15 INST27>
 997                     <DEAD INST27>
 998                     <LOOP (TEMP15 VALUE) (TEMP16 VALUE)>
 999 TAG17
1000                     <INTGO>
1001                     <EMPL? TEMP15 + TAG14>
1002                     <NTHL TEMP15 1 = STACK>
1003                     <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
1004                     <ADD TEMP16 1 = TEMP16 (TYPE FIX)>
1005                     <JUMP + TAG17>
1006 TAG14
1007                     <UBLOCK <TYPE-CODE UVECTOR> TEMP16 = TEMP16 (TYPE UVECTOR)>
1008                     <JUMP + COND12>
1009 PHRASE13
1010                     <PUSH INST16>
1011                     <DEAD INST16>
1012                     <UBLOCK <TYPE-CODE UVECTOR> 1 = TEMP16 (TYPE UVECTOR)>
1013 COND12
1014                     <FRAME '\1aCOPY-PSAVE>
1015                     <PUSH PSAVE5>
1016                     <DEAD PSAVE5>
1017                     <PUSH TEMP16>
1018                     <DEAD TEMP16>
1019                     <CALL '\1aCOPY-PSAVE 2 = NPSAVE9>
1020                     <VEQUAL? MODE4 'PRE - PHRASE22>
1021                     <DEAD MODE4>
1022                     <GVAL 'RE-GEN-PRE = TEMP16>
1023                     <CONS NPSAVE9 TEMP16 = TEMP16>
1024                     <DEAD NPSAVE9>
1025                     <SETG 'RE-GEN-PRE TEMP16>
1026                     <RETURN TEMP16>
1027                     <DEAD TEMP16>
1028 PHRASE22
1029                     <GVAL 'RE-GEN-POST = TEMP15>
1030                     <CONS NPSAVE9 TEMP15 = TEMP15>
1031                     <DEAD NPSAVE9>
1032                     <SETG 'RE-GEN-POST TEMP15>
1033                     <RETURN TEMP15>
1034                     <DEAD TEMP15>
1035 PHRASE11
1036                     <VEQUAL? MODE4 'PRE - PHRASE25>
1037                     <DEAD MODE4>
1038                     <TYPE? INST27 <TYPE-CODE FALSE> + PHRASE27>
1039                     <GVAL 'RE-GEN-PRE = TEMP15>
1040                     <SET TEMP16 INST27>
1041                     <DEAD INST27>
1042                     <SET NPSAVE9 TEMP15>
1043                     <EMPL? TEMP16 + TAG29>
1044                     <NTHL TEMP16 1 = TEMP32>
1045                     <CONS TEMP32 TEMP15 = TEMP32>
1046                     <SET NPSAVE9 TEMP32>
1047                     <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
1048                     <EMPL? TEMP16 + TAG29>
1049                     <LOOP (TEMP16 VALUE) (TEMP32 VALUE) (TEMP15 VALUE)>
1050 TAG28
1051                     <NTHL TEMP16 1 = TEMP33>
1052                     <CONS TEMP33 TEMP15 = TEMP33>
1053                     <PUTREST TEMP32 TEMP33>
1054                     <DEAD TEMP32>
1055                     <SET TEMP32 TEMP33>
1056                     <DEAD TEMP33>
1057                     <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
1058                     <EMPL? TEMP16 - TAG28>
1059 TAG29
1060                     <CONS INST16 NPSAVE9 = NPSAVE9>
1061                     <DEAD INST16>
1062                     <SETG 'RE-GEN-PRE NPSAVE9>
1063                     <RETURN NPSAVE9>
1064                     <DEAD NPSAVE9>
1065 PHRASE27
1066                     <GVAL 'RE-GEN-PRE = NPSAVE9>
1067                     <CONS INST16 NPSAVE9 = NPSAVE9>
1068                     <DEAD INST16>
1069                     <SETG 'RE-GEN-PRE NPSAVE9>
1070                     <RETURN NPSAVE9>
1071                     <DEAD NPSAVE9>
1072 PHRASE25
1073                     <TYPE? INST27 <TYPE-CODE FALSE> + PHRASE35>
1074                     <GVAL 'RE-GEN-POST = NPSAVE9>
1075                     <SET TEMP32 INST27>
1076                     <DEAD INST27>
1077                     <SET TEMP16 NPSAVE9>
1078                     <EMPL? TEMP32 + TAG37>
1079                     <NTHL TEMP32 1 = TEMP33>
1080                     <CONS TEMP33 NPSAVE9 = TEMP33>
1081                     <SET TEMP16 TEMP33>
1082                     <RESTL TEMP32 1 = TEMP32 (TYPE LIST)>
1083                     <EMPL? TEMP32 + TAG37>
1084                     <LOOP (TEMP32 VALUE) (TEMP33 VALUE) (NPSAVE9 VALUE)>
1085 TAG36
1086                     <NTHL TEMP32 1 = TEMP15>
1087                     <CONS TEMP15 NPSAVE9 = TEMP15>
1088                     <PUTREST TEMP33 TEMP15>
1089                     <DEAD TEMP33>
1090                     <SET TEMP33 TEMP15>
1091                     <DEAD TEMP15>
1092                     <RESTL TEMP32 1 = TEMP32 (TYPE LIST)>
1093                     <EMPL? TEMP32 - TAG36>
1094 TAG37
1095                     <CONS INST16 TEMP16 = TEMP16>
1096                     <DEAD INST16>
1097                     <SETG 'RE-GEN-POST TEMP16>
1098                     <RETURN TEMP16>
1099                     <DEAD TEMP16>
1100 PHRASE35
1101                     <GVAL 'RE-GEN-POST = TEMP16>
1102                     <CONS INST16 TEMP16 = TEMP16>
1103                     <DEAD INST16>
1104                     <SETG 'RE-GEN-POST TEMP16>
1105                     <RETURN TEMP16>
1106                     <DEAD TEMP16>
1107                     <END \1aGROUP-INST>
1108
1109 #WORD *24222734321*
1110                     <GFCN \1aGEN-INSERT ("VALUE" ANY AC-STATE AC-STATE "OPTIONAL" ANY) JSSTATE6 LSSTATE7 XREF8>
1111                     <OPT-DISPATCH 2 %<> OPT4 OPT5>
1112 OPT4
1113                     <PUSH %<>>
1114 OPT5
1115                     <TEMP TEMP16 JLV21:LINKVAR VAR23>
1116                     <INTGO>
1117                     <FRAME '\1aSTART-CODE-INSERT>
1118                     <CALL '\1aSTART-CODE-INSERT 0>
1119                     <SET TEMP16 JSSTATE6 (TYPE VECTOR)>
1120                     <DEAD JSSTATE6>
1121                     <LOOP>
1122 MAP11
1123                     <INTGO>
1124                     <EMPUV? TEMP16 + MAPAP14>
1125                     <NTHUV TEMP16 1 = JLV21>
1126                     <NTHUV JLV21 1 = VAR23 (TYPE VARTBL)>
1127                     <FRAME '\1aFIND-CACHE-VAR>
1128                     <PUSH VAR23>
1129                     <DEAD VAR23>
1130                     <PUSH LSSTATE7>
1131                     <CALL '\1aFIND-CACHE-VAR 2 = VAR23>
1132                     <TYPE? VAR23 <TYPE-CODE FALSE> + PHRASE25>
1133                     <FRAME '\1aCHECK-VALUE-STORED>
1134                     <PUSH JLV21>
1135                     <PUSH VAR23>
1136                     <PUSH XREF8>
1137                     <CALL '\1aCHECK-VALUE-STORED 3>
1138                     <FRAME '\1aCHECK-TYPE-STORED>
1139                     <PUSH JLV21>
1140                     <PUSH VAR23>
1141                     <PUSH XREF8>
1142                     <CALL '\1aCHECK-TYPE-STORED 3>
1143                     <FRAME '\1aCHECK-COUNT-STORED>
1144                     <PUSH JLV21>
1145                     <DEAD JLV21>
1146                     <PUSH VAR23>
1147                     <DEAD VAR23>
1148                     <PUSH XREF8>
1149                     <CALL '\1aCHECK-COUNT-STORED 3>
1150                     <JUMP + PHRASE30>
1151 PHRASE25
1152                     <FRAME '\1aISTORE-VAR>
1153                     <PUSH JLV21>
1154                     <DEAD JLV21>
1155                     <PUSH XREF8>
1156                     <CALL '\1aISTORE-VAR 2>
1157 PHRASE30
1158                     <RESTUV TEMP16 1 = TEMP16 (TYPE VECTOR)>
1159                     <JUMP + MAP11>
1160 MAPAP14
1161                     <FRAME '\1aEND-CODE-INSERT>
1162                     <CALL '\1aEND-CODE-INSERT 0 = TEMP16>
1163                     <RETURN TEMP16>
1164                     <DEAD TEMP16>
1165                     <END \1aGEN-INSERT>
1166
1167 #WORD *23011313313*
1168                     <GFCN \1aADJUST-PRE-LABEL ("VALUE" ANY AC-STATE AC-STATE FIX) JSSTATE4 LSSTATE5 PATCH6>
1169                     <TEMP SVEC7>
1170                     <INTGO>
1171                     <FRAME '\1aGEN-INSERT>
1172                     <PUSH JSSTATE4>
1173                     <DEAD JSSTATE4>
1174                     <PUSH LSSTATE5>
1175                     <DEAD LSSTATE5>
1176                     <CALL '\1aGEN-INSERT 2 = SVEC7>
1177                     <FRAME '\1aINSERT-PATCH>
1178                     <PUSH PATCH6>
1179                     <DEAD PATCH6>
1180                     <PUSH SVEC7>
1181                     <DEAD SVEC7>
1182                     <CALL '\1aINSERT-PATCH 2 = SVEC7>
1183                     <RETURN SVEC7>
1184                     <DEAD SVEC7>
1185                     <END \1aADJUST-PRE-LABEL>
1186
1187 #WORD *12331740371*
1188                     <GFCN \1aCHECK-VALUE-STORED ("VALUE" ANY LINKVAR LINKVAR <OR FALSE XREF-INFO>) JLV4 LLV5 XREF6>
1189                     <TEMP VAR9:VARTBL TEMP13 DADDR7>
1190                     <INTGO>
1191                     <NTHUV JLV4 1 = VAR9 (TYPE VARTBL)>
1192                     <NTHUV JLV4 6 = TEMP13>
1193                     <TYPE? TEMP13 <TYPE-CODE FALSE> + BOOL26>
1194                     <NTHUV LLV5 6 = TEMP13>
1195                     <DEAD LLV5>
1196                     <TYPE? TEMP13 <TYPE-CODE FALSE> + TAG16>
1197                     <DEAD TEMP13>
1198                     <RETURN %<>>
1199 TAG16
1200                     <NTHUV JLV4 2 = TEMP13>
1201                     <TYPE? TEMP13 <TYPE-CODE FALSE> + TAG17>
1202                     <DEAD TEMP13>
1203                     <RETURN %<>>
1204 TAG17
1205                     <FRAME '\1aSTART-CODE-INSERT>
1206                     <CALL '\1aSTART-CODE-INSERT 0>
1207                     <NTHUV JLV4 6 = TEMP13>
1208                     <TYPE? TEMP13 <TYPE-CODE FALSE> - PHRASE20>
1209                     <FRAME '\1aERROR>
1210                     <PUSH "VARIABLE NOT IN AC">
1211                     <PUSH 'CHECK-VALUE-STORED>
1212                     <CALL '\1aERROR 2>
1213 PHRASE20
1214                     <FRAME '\1aADDR-VAR-VALUE>
1215                     <PUSH VAR9>
1216                     <CALL '\1aADDR-VAR-VALUE 1 = DADDR7>
1217                     <FRAME '\1aEMIT-STORE-AC>
1218                     <PUSH TEMP13>
1219                     <DEAD TEMP13>
1220                     <PUSH DADDR7>
1221                     <DEAD DADDR7>
1222                     <PUSH 'LONG>
1223                     <CALL '\1aEMIT-STORE-AC 3>
1224                     <PUTUV JLV4 2 'T>
1225                     <FRAME '\1aEND-CODE-INSERT>
1226                     <CALL '\1aEND-CODE-INSERT 0 = TEMP13>
1227                     <FRAME '\1aEMIT-POTENTIAL-STORE>
1228                     <PUSH TEMP13>
1229                     <DEAD TEMP13>
1230                     <PUSH 'VALUE>
1231                     <PUSH JLV4>
1232                     <DEAD JLV4>
1233                     <CALL '\1aEMIT-POTENTIAL-STORE 3>
1234                     <SET TEMP13 XREF6>
1235                     <TYPE? TEMP13 <TYPE-CODE FALSE> + BOOL26>
1236                     <FRAME '\1aKILL-STORES>
1237                     <PUSH XREF6>
1238                     <DEAD XREF6>
1239                     <PUSH 'VALUE>
1240                     <PUSH VAR9>
1241                     <DEAD VAR9>
1242                     <CALL '\1aKILL-STORES 3 = TEMP13>
1243 BOOL26
1244                     <RETURN TEMP13>
1245                     <DEAD TEMP13>
1246                     <END \1aCHECK-VALUE-STORED>
1247
1248 #WORD *36155130605*
1249                     <GFCN \1aKILL-STORES ("VALUE" ANY XREF-INFO ATOM VARTBL) XREF4 KIND5 VAR6>
1250                     <TEMP TEMP16 TEMP18:LIST PSAVE19:PTN-SAVE>
1251                     <INTGO>
1252                     <SET TEMP16 %<> (TYPE FALSE)>
1253                     <NTHUV XREF4 11 = TEMP18 (TYPE LIST)>
1254                     <DEAD XREF4>
1255                     <LOOP>
1256 MAP8
1257                     <INTGO>
1258                     <EMPL? TEMP18 + MAPAP11>
1259                     <NTHL TEMP18 1 = PSAVE19>
1260                     <NTHUV PSAVE19 2 = TEMP16 (TYPE VARTBL)>
1261                     <VEQUAL? TEMP16 VAR6 + TAG23>
1262                     <DEAD TEMP16>
1263                     <SET TEMP16 %<> (TYPE FALSE)>
1264                     <JUMP + PHRASE21>
1265 TAG23
1266                     <FRAME '\1aSTRONGER-SAVE?>
1267                     <PUSH KIND5>
1268                     <NTHUV PSAVE19 3 = STACK (TYPE ATOM)>
1269                     <CALL '\1aSTRONGER-SAVE? 2 = TEMP16>
1270                     <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE21>
1271                     <FRAME '\1aKILL-PSAVE>
1272                     <PUSH PSAVE19>
1273                     <DEAD PSAVE19>
1274                     <CALL '\1aKILL-PSAVE 1 = TEMP16>
1275 PHRASE21
1276                     <RESTL TEMP18 1 = TEMP18 (TYPE LIST)>
1277                     <JUMP + MAP8>
1278 MAPAP11
1279                     <RETURN TEMP16>
1280                     <DEAD TEMP16>
1281                     <END \1aKILL-STORES>
1282
1283 #WORD *3171373371*
1284                     <GFCN \1aSTRONGER-SAVE? ("VALUE" <OR ATOM FALSE> ATOM ATOM) KIND14 KIND25>
1285                     <TEMP TEMP7>
1286                     <INTGO>
1287                     <VEQUAL? KIND14 KIND25 - TAG8>
1288                     <RETURN 'T>
1289 TAG8
1290                     <VEQUAL? KIND14 'TYPE-COUNT-VALUE - TAG9>
1291                     <RETURN 'T>
1292 TAG9
1293                     <VEQUAL? KIND14 'TYPE-COUNT - TAG13>
1294                     <VEQUAL? KIND25 'TYPE - TAG12>
1295                     <RETURN 'T>
1296 TAG12
1297                     <VEQUAL? KIND25 'COUNT - TAG13>
1298                     <RETURN 'T>
1299 TAG13
1300                     <VEQUAL? KIND14 'TYPE-VALUE - TAG17>
1301                     <VEQUAL? KIND25 'TYPE - TAG16>
1302                     <RETURN 'T>
1303 TAG16
1304                     <VEQUAL? KIND25 'VALUE - TAG17>
1305                     <RETURN 'T>
1306 TAG17
1307                     <VEQUAL? KIND14 'COUNT-VALUE + TAG19>
1308                     <DEAD KIND14>
1309                     <RETURN %<>>
1310 TAG19
1311                     <VEQUAL? KIND25 'COUNT - TAG21>
1312                     <RETURN 'T>
1313 TAG21
1314                     <VEQUAL? KIND25 'VALUE - TAG22>
1315                     <DEAD KIND25>
1316                     <RETURN 'T>
1317 TAG22
1318                     <RETURN %<>>
1319                     <END \1aSTRONGER-SAVE?>
1320
1321 #WORD *10434565332*
1322                     <GFCN \1aCHECK-TYPE-STORED ("VALUE" ANY LINKVAR LINKVAR <OR FALSE XREF-INFO>) JLV4 LLV5 XREF6>
1323                     <TEMP VAR10:VARTBL (KIND12 'TYPE) TEMP17 TAC8>
1324                     <INTGO>
1325                     <NTHUV JLV4 1 = VAR10 (TYPE VARTBL)>
1326                     <NTHUV JLV4 4 = TEMP17>
1327                     <TYPE? TEMP17 <TYPE-CODE FALSE> + TAG18>
1328                     <DEAD TEMP17>
1329                     <RETURN %<>>
1330 TAG18
1331                     <NTHUV LLV5 5 = TEMP17>
1332                     <TYPE? TEMP17 <TYPE-CODE FALSE> + TAG19>
1333                     <DEAD TEMP17>
1334                     <RETURN %<>>
1335 TAG19
1336                     <NTHUV LLV5 7 = TEMP17>
1337                     <TYPE? TEMP17 <TYPE-CODE FALSE> + TAG20>
1338                     <DEAD TEMP17>
1339                     <RETURN %<>>
1340 TAG20
1341                     <NTHUV LLV5 9 = TEMP17>
1342                     <DEAD LLV5>
1343                     <TYPE? TEMP17 <TYPE-CODE FALSE> + TAG21>
1344                     <DEAD TEMP17>
1345                     <RETURN %<>>
1346 TAG21
1347                     <FRAME '\1aSTART-CODE-INSERT>
1348                     <CALL '\1aSTART-CODE-INSERT 0>
1349                     <FRAME '\1aADDR-VAR-TYPE>
1350                     <PUSH VAR10>
1351                     <CALL '\1aADDR-VAR-TYPE 1 = TEMP17>
1352                     <PUTUV JLV4 4 'T>
1353                     <NTHUV JLV4 9 = TAC8>
1354                     <TYPE? TAC8 <TYPE-CODE FALSE> + PHRASE25>
1355                     <FRAME '\1aEMIT-STORE-AC>
1356                     <PUSH TAC8>
1357                     <DEAD TAC8>
1358                     <PUSH TEMP17>
1359                     <DEAD TEMP17>
1360                     <PUSH 'LONG>
1361                     <CALL '\1aEMIT-STORE-AC 3>
1362                     <PUTUV JLV4 3 'T>
1363                     <SET KIND12 'TYPE-COUNT (TYPE ATOM)>
1364                     <JUMP + COND24>
1365 PHRASE25
1366                     <NTHUV JLV4 5 = TAC8>
1367                     <TYPE? TAC8 <TYPE-CODE FALSE> + PHRASE27>
1368                     <FRAME '\1aSTORE-TYPE>
1369                     <PUSH TAC8>
1370                     <PUSH TEMP17>
1371                     <DEAD TEMP17>
1372                     <CALL '\1aSTORE-TYPE 2>
1373                     <FRAME '\1aCOUNT-NEEDED?>
1374                     <PUSH TAC8>
1375                     <DEAD TAC8>
1376                     <CALL '\1aCOUNT-NEEDED? 1 = TEMP17>
1377                     <TYPE? TEMP17 <TYPE-CODE FALSE> - COND24>
1378                     <DEAD TEMP17>
1379                     <PUTUV JLV4 3 'T>
1380                     <JUMP + COND24>
1381 PHRASE27
1382                     <NTHUV JLV4 7 = TAC8>
1383                     <TYPE? TAC8 <TYPE-CODE FALSE> + PHRASE32>
1384                     <FRAME '\1aEMIT-STORE-AC>
1385                     <PUSH TAC8>
1386                     <DEAD TAC8>
1387                     <PUSH TEMP17>
1388                     <DEAD TEMP17>
1389                     <PUSH 'WORD>
1390                     <CALL '\1aEMIT-STORE-AC 3>
1391                     <JUMP + COND24>
1392 PHRASE32
1393                     <FRAME '\1aERROR>
1394                     <PUSH "VARIABLE NOT IN AC">
1395                     <PUSH 'ISTORE-ADDR>
1396                     <CALL '\1aERROR 2>
1397 COND24
1398                     <FRAME '\1aEND-CODE-INSERT>
1399                     <CALL '\1aEND-CODE-INSERT 0 = TEMP17>
1400                     <FRAME '\1aEMIT-POTENTIAL-STORE>
1401                     <PUSH TEMP17>
1402                     <DEAD TEMP17>
1403                     <PUSH KIND12>
1404                     <PUSH JLV4>
1405                     <DEAD JLV4>
1406                     <CALL '\1aEMIT-POTENTIAL-STORE 3>
1407                     <SET TEMP17 XREF6>
1408                     <TYPE? TEMP17 <TYPE-CODE FALSE> + BOOL37>
1409                     <FRAME '\1aKILL-STORES>
1410                     <PUSH XREF6>
1411                     <DEAD XREF6>
1412                     <PUSH KIND12>
1413                     <DEAD KIND12>
1414                     <PUSH VAR10>
1415                     <DEAD VAR10>
1416                     <CALL '\1aKILL-STORES 3 = TEMP17>
1417 BOOL37
1418                     <RETURN TEMP17>
1419                     <DEAD TEMP17>
1420                     <END \1aCHECK-TYPE-STORED>
1421
1422 #WORD *30327525312*
1423                     <GFCN \1aCHECK-COUNT-STORED ("VALUE" ANY LINKVAR LINKVAR <OR FALSE XREF-INFO>) JLV4 LLV5 XREF6>
1424                     <TEMP (KIND11 'COUNT) VAR12:VARTBL TEMP17 TAC8>
1425                     <INTGO>
1426                     <NTHUV JLV4 1 = VAR12 (TYPE VARTBL)>
1427                     <NTHUV LLV5 8 = TEMP17>
1428                     <TYPE? TEMP17 <TYPE-CODE FALSE> + TAG18>
1429                     <DEAD TEMP17>
1430                     <RETURN %<>>
1431 TAG18
1432                     <NTHUV LLV5 9 = TEMP17>
1433                     <TYPE? TEMP17 <TYPE-CODE FALSE> + TAG19>
1434                     <DEAD TEMP17>
1435                     <RETURN %<>>
1436 TAG19
1437                     <NTHUV JLV4 3 = TEMP17>
1438                     <TYPE? TEMP17 <TYPE-CODE FALSE> + TAG20>
1439                     <DEAD TEMP17>
1440                     <RETURN %<>>
1441 TAG20
1442                     <NTHUV LLV5 5 = TEMP17>
1443                     <DEAD LLV5>
1444                     <TYPE? TEMP17 <TYPE-CODE FALSE> + BOOL21>
1445                     <FRAME '\1aCOUNT-NEEDED?>
1446                     <PUSH TEMP17>
1447                     <DEAD TEMP17>
1448                     <CALL '\1aCOUNT-NEEDED? 1 = TEMP17>
1449                     <TYPE? TEMP17 <TYPE-CODE FALSE> + BOOL35>
1450 BOOL21
1451                     <NTHUV JLV4 5 = TEMP17>
1452                     <TYPE? TEMP17 <TYPE-CODE FALSE> + BOOL23>
1453                     <FRAME '\1aCOUNT-NEEDED?>
1454                     <PUSH TEMP17>
1455                     <DEAD TEMP17>
1456                     <CALL '\1aCOUNT-NEEDED? 1 = TEMP17>
1457                     <TYPE? TEMP17 <TYPE-CODE FALSE> + BOOL35>
1458 BOOL23
1459                     <FRAME '\1aSTART-CODE-INSERT>
1460                     <CALL '\1aSTART-CODE-INSERT 0>
1461                     <FRAME '\1aADDR-VAR-COUNT>
1462                     <NTHUV JLV4 1 = STACK (TYPE VARTBL)>
1463                     <CALL '\1aADDR-VAR-COUNT 1 = TEMP17>
1464                     <PUTUV JLV4 3 'T>
1465                     <NTHUV JLV4 9 = TAC8>
1466                     <TYPE? TAC8 <TYPE-CODE FALSE> + PHRASE28>
1467                     <FRAME '\1aADDR-VAR-TYPE>
1468                     <NTHUV JLV4 1 = STACK (TYPE VARTBL)>
1469                     <CALL '\1aADDR-VAR-TYPE 1 = TEMP17>
1470                     <FRAME '\1aEMIT-STORE-AC>
1471                     <PUSH TAC8>
1472                     <DEAD TAC8>
1473                     <PUSH TEMP17>
1474                     <DEAD TEMP17>
1475                     <PUSH 'LONG>
1476                     <CALL '\1aEMIT-STORE-AC 3>
1477                     <PUTUV JLV4 4 'T>
1478                     <SET KIND11 'TYPE-COUNT (TYPE ATOM)>
1479                     <JUMP + PHRASE31>
1480 PHRASE28
1481                     <NTHUV JLV4 8 = TAC8>
1482                     <TYPE? TAC8 <TYPE-CODE FALSE> + PHRASE31>
1483                     <FRAME '\1aEMIT-STORE-AC>
1484                     <PUSH TAC8>
1485                     <DEAD TAC8>
1486                     <PUSH TEMP17>
1487                     <DEAD TEMP17>
1488                     <PUSH 'WORD>
1489                     <CALL '\1aEMIT-STORE-AC 3>
1490 PHRASE31
1491                     <FRAME '\1aEND-CODE-INSERT>
1492                     <CALL '\1aEND-CODE-INSERT 0 = TEMP17>
1493                     <FRAME '\1aEMIT-POTENTIAL-STORE>
1494                     <PUSH TEMP17>
1495                     <DEAD TEMP17>
1496                     <PUSH KIND11>
1497                     <PUSH JLV4>
1498                     <DEAD JLV4>
1499                     <CALL '\1aEMIT-POTENTIAL-STORE 3>
1500                     <SET TEMP17 XREF6>
1501                     <TYPE? TEMP17 <TYPE-CODE FALSE> + BOOL35>
1502                     <FRAME '\1aKILL-STORES>
1503                     <PUSH XREF6>
1504                     <DEAD XREF6>
1505                     <PUSH KIND11>
1506                     <DEAD KIND11>
1507                     <PUSH VAR12>
1508                     <DEAD VAR12>
1509                     <CALL '\1aKILL-STORES 3 = TEMP17>
1510 BOOL35
1511                     <RETURN TEMP17>
1512                     <DEAD TEMP17>
1513                     <END \1aCHECK-COUNT-STORED>
1514
1515 #WORD *1563173445*
1516                     <GFCN \1aSETUP-PSAVES ("VALUE" <OR FALSE LINKVAR> XREF-INFO) XREF4>
1517                     <TEMP CACHE5:VECTOR TEMP15 PSAVES18>
1518                     <INTGO>
1519                     <GVAL 'VARIABLE-CACHE = CACHE5>
1520                     <SET TEMP15 %<> (TYPE FALSE)>
1521                     <LOOP>
1522 MAP7
1523                     <INTGO>
1524                     <EMPUV? CACHE5 + MAPAP10>
1525                     <NTHUV CACHE5 1 = TEMP15>
1526                     <NTHUV TEMP15 10 = PSAVES18 (TYPE LIST)>
1527                     <CONS XREF4 PSAVES18 = PSAVES18>
1528                     <PUTUV TEMP15 10 PSAVES18 (TYPE LIST)>
1529                     <DEAD PSAVES18>
1530                     <RESTUV CACHE5 1 = CACHE5 (TYPE VECTOR)>
1531                     <JUMP + MAP7>
1532 MAPAP10
1533                     <RETURN TEMP15>
1534                     <DEAD TEMP15>
1535                     <END \1aSETUP-PSAVES>
1536
1537 #WORD *5601706346*
1538                     <GFCN \1aLOOP-GEN ("VALUE" ATOM "TUPLE" <TUPLE [REST <OR ATOM LIST>]>)>
1539                     <MAKTUP VARS4:TUPLE TEMP12:VECTOR MVARS17:VECTOR VARLST18 TEMP23 = VARS4>
1540                     <INTGO>
1541                     <FRAME '\1aCLEAR-STATUS>
1542                     <CALL '\1aCLEAR-STATUS 0>
1543                     <CHTYPE VARS4 <TYPE-CODE VECTOR> = TEMP12>
1544                     <LOOP>
1545 MAP7
1546                     <INTGO>
1547                     <EMPUV? TEMP12 + MAPAP10>
1548                     <SET MVARS17 TEMP12>
1549                     <NTHUV MVARS17 1 = VARLST18>
1550                     <TYPE? VARLST18 <TYPE-CODE ATOM> - PHRASE20>
1551                     <FRAME '\1aFIND-VAR>
1552                     <PUSH VARLST18>
1553                     <DEAD VARLST18>
1554                     <CALL '\1aFIND-VAR 1 = STACK>
1555                     <PUSH 'VALUE>
1556                     <LIST 2 = TEMP23 (TYPE LIST)>
1557                     <PUTUV MVARS17 1 TEMP23>
1558                     <DEAD MVARS17 TEMP23>
1559                     <JUMP + COND19>
1560 PHRASE20
1561                     <FRAME '\1aFIND-VAR>
1562                     <NTHL VARLST18 1 = STACK>
1563                     <CALL '\1aFIND-VAR 1 = TEMP23>
1564                     <CONS TEMP23 () = TEMP23>
1565                     <RESTL VARLST18 1 = VARLST18 (TYPE LIST)>
1566                     <PUTREST TEMP23 VARLST18>
1567                     <DEAD VARLST18>
1568                     <PUTUV MVARS17 1 TEMP23>
1569                     <DEAD MVARS17 TEMP23>
1570 COND19
1571                     <RESTUV TEMP12 1 = TEMP12 (TYPE VECTOR)>
1572                     <JUMP + MAP7>
1573 MAPAP10
1574                     <FRAME '\1aSETUP-LOOP-ACS>
1575                     <PUSH VARS4>
1576                     <DEAD VARS4>
1577                     <CALL '\1aSETUP-LOOP-ACS 1>
1578                     <FRAME '\1aSAVE-STATE>
1579                     <CALL '\1aSAVE-STATE 0 = TEMP12>
1580                     <SETG 'LOOP-VARS TEMP12>
1581                     <DEAD TEMP12>
1582                     <FRAME '\1aCLEAR-STATUS>
1583                     <CALL '\1aCLEAR-STATUS 0>
1584                     <RETURN 'LOOP-LABEL>
1585                     <END \1aLOOP-GEN>
1586
1587 #WORD *22546541532*
1588                     <GFCN \1aSETUP-LOOP-ACS ("VALUE" ATOM <TUPLE [REST LIST]>) VARS4>
1589                     <TEMP TEMP17:VECTOR LVAR18 VAR19 TEMP23 VS39 TS40 RVAR36 NLVAR37 TEMP47 TEMP48>
1590                     <INTGO>
1591                     <GVAL 'VARIABLE-CACHE = TEMP17>
1592                     <LOOP>
1593 MAP7
1594                     <INTGO>
1595                     <EMPUV? TEMP17 + MAPAP10>
1596                     <NTHUV TEMP17 1 = LVAR18>
1597                     <NTHUV LVAR18 1 = VAR19 (TYPE VARTBL)>
1598                     <FRAME '\1aFIND-INFO>
1599                     <PUSH VAR19>
1600                     <PUSH VARS4>
1601                     <CALL '\1aFIND-INFO 2 = TEMP23>
1602                     <TYPE? TEMP23 <TYPE-CODE FALSE> - PHRASE21>
1603                     <DEAD TEMP23>
1604                     <FRAME '\1aISTORE-VAR>
1605                     <PUSH LVAR18>
1606                     <DEAD LVAR18>
1607                     <CALL '\1aISTORE-VAR 1>
1608                     <FRAME '\1aDEAD-VAR>
1609                     <PUSH VAR19>
1610                     <DEAD VAR19>
1611                     <CALL '\1aDEAD-VAR 1>
1612 PHRASE21
1613                     <RESTUV TEMP17 1 = TEMP17 (TYPE VECTOR)>
1614                     <JUMP + MAP7>
1615 MAPAP10
1616                     <GVAL 'VARIABLE-CACHE = TEMP17>
1617                     <LOOP>
1618 MAP27
1619                     <INTGO>
1620                     <EMPUV? TEMP17 + MAPAP30>
1621                     <NTHUV TEMP17 1 = LVAR18>
1622                     <NTHUV LVAR18 1 = VAR19 (TYPE VARTBL)>
1623                     <NTHUV LVAR18 3 = TEMP23>
1624                     <NTHUV LVAR18 2 = VS39>
1625                     <NTHUV LVAR18 4 = TS40>
1626                     <FRAME '\1aFIND-INFO>
1627                     <PUSH VAR19>
1628                     <PUSH VARS4>
1629                     <CALL '\1aFIND-INFO 2 = RVAR36>
1630                     <FRAME '\1aCOPY-LINKVAR>
1631                     <PUSH LVAR18>
1632                     <CALL '\1aCOPY-LINKVAR 1 = NLVAR37>
1633                     <SET TEMP47 RVAR36>
1634                     <EMPL? TEMP47 + BOOL43>
1635                     <LOOP (TEMP47 VALUE)>
1636 TAG45
1637                     <NTHL TEMP47 1 = TEMP48>
1638                     <TYPE? TEMP48 <TYPE-CODE ATOM> - TAG46>
1639                     <VEQUAL? TEMP48 'TYPE + TAG44>
1640                     <DEAD TEMP48>
1641 TAG46
1642                     <RESTL TEMP47 1 = TEMP47 (TYPE LIST)>
1643                     <EMPL? TEMP47 - TAG45>
1644                     <JUMP + BOOL43>
1645 TAG44
1646                     <SET TS40 'T (TYPE ATOM)>
1647 BOOL43
1648                     <SET TEMP47 RVAR36>
1649                     <EMPL? TEMP47 + BOOL49>
1650                     <LOOP (TEMP47 VALUE)>
1651 TAG51
1652                     <NTHL TEMP47 1 = TEMP48>
1653                     <TYPE? TEMP48 <TYPE-CODE ATOM> - TAG52>
1654                     <VEQUAL? TEMP48 'VALUE + TAG50>
1655                     <DEAD TEMP48>
1656 TAG52
1657                     <RESTL TEMP47 1 = TEMP47 (TYPE LIST)>
1658                     <EMPL? TEMP47 - TAG51>
1659                     <JUMP + BOOL49>
1660 TAG50
1661                     <SET VS39 'T (TYPE ATOM)>
1662 BOOL49
1663                     <SET TEMP47 RVAR36>
1664                     <EMPL? TEMP47 + PHRASE54>
1665                     <LOOP (TEMP47 VALUE)>
1666 TAG56
1667                     <NTHL TEMP47 1 = TEMP48>
1668                     <TYPE? TEMP48 <TYPE-CODE ATOM> - TAG57>
1669                     <VEQUAL? TEMP48 'LENGTH + TAG55>
1670                     <DEAD TEMP48>
1671 TAG57
1672                     <RESTL TEMP47 1 = TEMP47 (TYPE LIST)>
1673                     <EMPL? TEMP47 - TAG56>
1674                     <JUMP + PHRASE54>
1675 TAG55
1676                     <SET TEMP23 'T (TYPE ATOM)>
1677                     <SET TS40 'T (TYPE ATOM)>
1678 PHRASE54
1679                     <TYPE? VS39 <TYPE-CODE FALSE> + BOOL60>
1680                     <TYPE? TS40 <TYPE-CODE FALSE> + BOOL60>
1681                     <TYPE? TEMP23 <TYPE-CODE FALSE> - PHRASE59>
1682 BOOL60
1683                     <FRAME '\1aISTORE-VAR>
1684                     <PUSH NLVAR37>
1685                     <CALL '\1aISTORE-VAR 1>
1686                     <JUMP + PHRASE62>
1687 PHRASE59
1688                     <PUTUV NLVAR37 3 TEMP23>
1689                     <DEAD TEMP23>
1690                     <PUTUV NLVAR37 4 TS40>
1691                     <DEAD TS40>
1692                     <PUTUV NLVAR37 2 VS39>
1693                     <DEAD VS39>
1694 PHRASE62
1695                     <NTHUV NLVAR37 7 = TEMP23>
1696                     <TYPE? TEMP23 <TYPE-CODE FALSE> + PHRASE64>
1697                     <SET TEMP47 RVAR36>
1698                     <EMPL? TEMP47 + TAG66>
1699                     <LOOP (TEMP47 VALUE)>
1700 TAG67
1701                     <NTHL TEMP47 1 = TEMP48>
1702                     <TYPE? TEMP48 <TYPE-CODE ATOM> - TAG68>
1703                     <VEQUAL? TEMP48 'TYPE + PHRASE64>
1704                     <DEAD TEMP48>
1705 TAG68
1706                     <RESTL TEMP47 1 = TEMP47 (TYPE LIST)>
1707                     <EMPL? TEMP47 - TAG67>
1708 TAG66
1709                     <NTHUV LVAR18 7 = TEMP47>
1710                     <TYPE? TEMP47 <TYPE-CODE FALSE> + BOOL69>
1711                     <DEAD TEMP47>
1712                     <FRAME '\1aBREAK-LINK>
1713                     <PUSH TEMP23>
1714                     <DEAD TEMP23>
1715                     <PUSH VAR19>
1716                     <CALL '\1aBREAK-LINK 2>
1717 BOOL69
1718                     <PUTUV LVAR18 4 'T>
1719 PHRASE64
1720                     <NTHUV NLVAR37 8 = TEMP23>
1721                     <TYPE? TEMP23 <TYPE-CODE FALSE> + BOOL77>
1722                     <SET TEMP47 RVAR36>
1723                     <EMPL? TEMP47 + TAG74>
1724                     <LOOP (TEMP47 VALUE)>
1725 TAG75
1726                     <NTHL TEMP47 1 = TEMP48>
1727                     <TYPE? TEMP48 <TYPE-CODE ATOM> - TAG76>
1728                     <VEQUAL? TEMP48 'LENGTH + BOOL77>
1729                     <DEAD TEMP48>
1730 TAG76
1731                     <RESTL TEMP47 1 = TEMP47 (TYPE LIST)>
1732                     <EMPL? TEMP47 - TAG75>
1733 TAG74
1734                     <PUTUV LVAR18 3 'T>
1735                     <NTHUV LVAR18 8 = TEMP47>
1736                     <TYPE? TEMP47 <TYPE-CODE FALSE> + BOOL77>
1737                     <DEAD TEMP47>
1738                     <FRAME '\1aBREAK-LINK>
1739                     <PUSH TEMP23>
1740                     <DEAD TEMP23>
1741                     <PUSH VAR19>
1742                     <CALL '\1aBREAK-LINK 2>
1743 BOOL77
1744                     <NTHUV NLVAR37 9 = TEMP23>
1745                     <DEAD NLVAR37>
1746                     <TYPE? TEMP23 <TYPE-CODE FALSE> + PHRASE80>
1747                     <SET TEMP47 RVAR36>
1748                     <EMPL? TEMP47 + TAG82>
1749                     <LOOP (TEMP47 VALUE)>
1750 TAG83
1751                     <NTHL TEMP47 1 = TEMP48>
1752                     <TYPE? TEMP48 <TYPE-CODE ATOM> - TAG84>
1753                     <VEQUAL? TEMP48 'TYPE + PHRASE80>
1754                     <DEAD TEMP48>
1755 TAG84
1756                     <RESTL TEMP47 1 = TEMP47 (TYPE LIST)>
1757                     <EMPL? TEMP47 - TAG83>
1758 TAG82
1759                     <SET TEMP47 RVAR36>
1760                     <DEAD RVAR36>
1761                     <EMPL? TEMP47 + TAG85>
1762                     <LOOP (TEMP47 VALUE)>
1763 TAG86
1764                     <NTHL TEMP47 1 = TEMP48>
1765                     <TYPE? TEMP48 <TYPE-CODE ATOM> - TAG87>
1766                     <VEQUAL? TEMP48 'LENGTH + PHRASE80>
1767                     <DEAD TEMP48>
1768 TAG87
1769                     <RESTL TEMP47 1 = TEMP47 (TYPE LIST)>
1770                     <EMPL? TEMP47 - TAG86>
1771 TAG85
1772                     <NTHUV LVAR18 9 = TEMP47>
1773                     <TYPE? TEMP47 <TYPE-CODE FALSE> + BOOL88>
1774                     <DEAD TEMP47>
1775                     <FRAME '\1aBREAK-LINK>
1776                     <PUSH TEMP23>
1777                     <DEAD TEMP23>
1778                     <PUSH VAR19>
1779                     <DEAD VAR19>
1780                     <CALL '\1aBREAK-LINK 2>
1781 BOOL88
1782                     <PUTUV LVAR18 4 'T>
1783                     <PUTUV LVAR18 3 'T>
1784                     <DEAD LVAR18>
1785 PHRASE80
1786                     <RESTUV TEMP17 1 = TEMP17 (TYPE VECTOR)>
1787                     <JUMP + MAP27>
1788 MAPAP30
1789                     <CHTYPE VARS4 <TYPE-CODE VECTOR> = TEMP17>
1790                     <DEAD VARS4>
1791                     <LOOP>
1792 MAP91
1793                     <INTGO>
1794                     <EMPUV? TEMP17 + MAPAP94>
1795                     <NTHUV TEMP17 1 = LVAR18>
1796                     <NTHL LVAR18 1 = VAR19>
1797                     <FRAME '\1aVARTBL-ASSIGNED?>
1798                     <PUSH VAR19>
1799                     <CALL '\1aVARTBL-ASSIGNED? 1 = TEMP48>
1800                     <TYPE? TEMP48 <TYPE-CODE FALSE> + BOOL152>
1801                     <DEAD TEMP48>
1802                     <FRAME '\1aFIND-CACHE-VAR>
1803                     <PUSH VAR19>
1804                     <CALL '\1aFIND-CACHE-VAR 1 = TEMP23>
1805                     <TYPE? TEMP23 <TYPE-CODE FALSE> + BOOL111>
1806                     <NTHUV TEMP23 7 = VS39>
1807                     <TYPE? VS39 <TYPE-CODE FALSE> + BOOL107>
1808                     <FRAME '\1aPROTECT>
1809                     <PUSH VS39>
1810                     <DEAD VS39>
1811                     <CALL '\1aPROTECT 1>
1812 BOOL107
1813                     <NTHUV TEMP23 8 = VS39>
1814                     <TYPE? VS39 <TYPE-CODE FALSE> + BOOL109>
1815                     <FRAME '\1aPROTECT>
1816                     <PUSH VS39>
1817                     <DEAD VS39>
1818                     <CALL '\1aPROTECT 1>
1819 BOOL109
1820                     <NTHUV TEMP23 9 = VS39>
1821                     <DEAD TEMP23>
1822                     <TYPE? VS39 <TYPE-CODE FALSE> + BOOL111>
1823                     <FRAME '\1aPROTECT>
1824                     <PUSH VS39>
1825                     <DEAD VS39>
1826                     <CALL '\1aPROTECT 1>
1827 BOOL111
1828                     <SET TEMP48 LVAR18>
1829                     <EMPL? TEMP48 + BOOL113>
1830                     <LOOP (TEMP48 VALUE)>
1831 TAG115
1832                     <NTHL TEMP48 1 = VS39>
1833                     <TYPE? VS39 <TYPE-CODE ATOM> - TAG116>
1834                     <VEQUAL? VS39 'VALUE + TAG114>
1835                     <DEAD VS39>
1836 TAG116
1837                     <RESTL TEMP48 1 = TEMP48 (TYPE LIST)>
1838                     <EMPL? TEMP48 - TAG115>
1839                     <JUMP + BOOL113>
1840 TAG114
1841                     <FRAME '\1aPROTECT>
1842                     <FRAME '\1aLOAD-VAR-APP>
1843                     <PUSH VAR19>
1844                     <PUSH %<>>
1845                     <CALL '\1aLOAD-VAR-APP 2 = STACK>
1846                     <CALL '\1aPROTECT 1>
1847 BOOL113
1848                     <SET TEMP48 LVAR18>
1849                     <EMPL? TEMP48 + PHRASE121>
1850                     <LOOP (TEMP48 VALUE)>
1851 TAG124
1852                     <NTHL TEMP48 1 = VS39>
1853                     <TYPE? VS39 <TYPE-CODE ATOM> - TAG125>
1854                     <VEQUAL? VS39 'TYPE + TAG123>
1855                     <DEAD VS39>
1856 TAG125
1857                     <RESTL TEMP48 1 = TEMP48 (TYPE LIST)>
1858                     <EMPL? TEMP48 - TAG124>
1859                     <JUMP + PHRASE121>
1860 TAG123
1861                     <SET TEMP48 LVAR18>
1862                     <EMPL? TEMP48 + PHRASE121>
1863                     <LOOP (TEMP48 VALUE)>
1864 TAG127
1865                     <NTHL TEMP48 1 = VS39>
1866                     <TYPE? VS39 <TYPE-CODE ATOM> - TAG128>
1867                     <VEQUAL? VS39 'LENGTH + TAG126>
1868                     <DEAD VS39>
1869 TAG128
1870                     <RESTL TEMP48 1 = TEMP48 (TYPE LIST)>
1871                     <EMPL? TEMP48 - TAG127>
1872                     <JUMP + PHRASE121>
1873 TAG126
1874                     <FRAME '\1aPROTECT>
1875                     <FRAME '\1aLOAD-VAR>
1876                     <PUSH VAR19>
1877                     <PUSH 'TYPE-WORD>
1878                     <PUSH %<>>
1879                     <PUSH 'PREF-TYPE>
1880                     <CALL '\1aLOAD-VAR 4 = STACK>
1881                     <CALL '\1aPROTECT 1>
1882                     <JUMP + PHRASE137>
1883 PHRASE121
1884                     <SET TEMP48 LVAR18>
1885                     <EMPL? TEMP48 + PHRASE131>
1886                     <LOOP (TEMP48 VALUE)>
1887 TAG133
1888                     <NTHL TEMP48 1 = VS39>
1889                     <TYPE? VS39 <TYPE-CODE ATOM> - TAG134>
1890                     <VEQUAL? VS39 'TYPE + TAG132>
1891                     <DEAD VS39>
1892 TAG134
1893                     <RESTL TEMP48 1 = TEMP48 (TYPE LIST)>
1894                     <EMPL? TEMP48 - TAG133>
1895                     <JUMP + PHRASE131>
1896 TAG132
1897                     <FRAME '\1aPROTECT>
1898                     <FRAME '\1aLOAD-VAR>
1899                     <PUSH VAR19>
1900                     <PUSH 'TYPE>
1901                     <PUSH %<>>
1902                     <PUSH 'PREF-TYPE>
1903                     <CALL '\1aLOAD-VAR 4 = STACK>
1904                     <CALL '\1aPROTECT 1>
1905                     <JUMP + PHRASE137>
1906 PHRASE131
1907                     <SET TEMP48 LVAR18>
1908                     <EMPL? TEMP48 + PHRASE137>
1909                     <LOOP (TEMP48 VALUE)>
1910 TAG139
1911                     <NTHL TEMP48 1 = VS39>
1912                     <TYPE? VS39 <TYPE-CODE ATOM> - TAG140>
1913                     <VEQUAL? VS39 'LENGTH + TAG138>
1914                     <DEAD VS39>
1915 TAG140
1916                     <RESTL TEMP48 1 = TEMP48 (TYPE LIST)>
1917                     <EMPL? TEMP48 - TAG139>
1918                     <JUMP + PHRASE137>
1919 TAG138
1920                     <FRAME '\1aPROTECT>
1921                     <FRAME '\1aLOAD-VAR>
1922                     <PUSH VAR19>
1923                     <PUSH 'TYPE-WORD>
1924                     <PUSH %<>>
1925                     <PUSH 'PREF-TYPE>
1926                     <CALL '\1aLOAD-VAR 4 = STACK>
1927                     <CALL '\1aPROTECT 1>
1928 PHRASE137
1929                     <FRAME '\1aFIND-CACHE-VAR>
1930                     <PUSH VAR19>
1931                     <DEAD VAR19>
1932                     <CALL '\1aFIND-CACHE-VAR 1 = TEMP23>
1933                     <PUTUV TEMP23 10 () (TYPE LIST)>
1934                     <SET TEMP48 LVAR18>
1935                     <EMPL? TEMP48 + BOOL144>
1936                     <LOOP (TEMP48 VALUE)>
1937 TAG146
1938                     <NTHL TEMP48 1 = VS39>
1939                     <TYPE? VS39 <TYPE-CODE ATOM> - TAG147>
1940                     <VEQUAL? VS39 'TYPE + TAG145>
1941                     <DEAD VS39>
1942 TAG147
1943                     <RESTL TEMP48 1 = TEMP48 (TYPE LIST)>
1944                     <EMPL? TEMP48 - TAG146>
1945                     <JUMP + BOOL144>
1946 TAG145
1947                     <PUTUV TEMP23 4 %<>>
1948 BOOL144
1949                     <SET TEMP48 LVAR18>
1950                     <EMPL? TEMP48 + BOOL148>
1951                     <LOOP (TEMP48 VALUE)>
1952 TAG150
1953                     <NTHL TEMP48 1 = VS39>
1954                     <TYPE? VS39 <TYPE-CODE ATOM> - TAG151>
1955                     <VEQUAL? VS39 'VALUE + TAG149>
1956                     <DEAD VS39>
1957 TAG151
1958                     <RESTL TEMP48 1 = TEMP48 (TYPE LIST)>
1959                     <EMPL? TEMP48 - TAG150>
1960                     <JUMP + BOOL148>
1961 TAG149
1962                     <PUTUV TEMP23 2 %<>>
1963 BOOL148
1964                     <SET TEMP48 LVAR18>
1965                     <DEAD LVAR18>
1966                     <EMPL? TEMP48 + BOOL152>
1967                     <LOOP (TEMP48 VALUE)>
1968 TAG154
1969                     <NTHL TEMP48 1 = VS39>
1970                     <TYPE? VS39 <TYPE-CODE ATOM> - TAG155>
1971                     <VEQUAL? VS39 'LENGTH + TAG153>
1972                     <DEAD VS39>
1973 TAG155
1974                     <RESTL TEMP48 1 = TEMP48 (TYPE LIST)>
1975                     <EMPL? TEMP48 - TAG154>
1976                     <JUMP + BOOL152>
1977 TAG153
1978                     <PUTUV TEMP23 3 %<>>
1979                     <DEAD TEMP23>
1980 BOOL152
1981                     <RESTUV TEMP17 1 = TEMP17 (TYPE VECTOR)>
1982                     <JUMP + MAP91>
1983 MAPAP94
1984                     <RETURN 'T>
1985                     <END \1aSETUP-LOOP-ACS>
1986
1987 #WORD *26057022456*
1988                     <GFCN \1aFIND-INFO ("VALUE" <OR FALSE <LIST ANY>> VARTBL <TUPLE [REST LIST]>) VAR4 VARS5>
1989                     <TEMP TEMP15 TEMP12:VECTOR RVAR17:LIST>
1990                     <INTGO>
1991                     <SET TEMP15 %<> (TYPE FALSE)>
1992                     <CHTYPE VARS5 <TYPE-CODE VECTOR> = TEMP12>
1993                     <DEAD VARS5>
1994                     <LOOP>
1995 MAP7
1996                     <INTGO>
1997                     <EMPUV? TEMP12 + MAPAP10>
1998                     <NTHUV TEMP12 1 = RVAR17>
1999                     <NTHL RVAR17 1 = TEMP15>
2000                     <EQUAL? TEMP15 VAR4 + TAG20>
2001                     <DEAD TEMP15>
2002                     <SET TEMP15 %<> (TYPE FALSE)>
2003                     <JUMP + PHRASE19>
2004 TAG20
2005                     <RETURN RVAR17>
2006                     <DEAD RVAR17>
2007 PHRASE19
2008                     <RESTUV TEMP12 1 = TEMP12 (TYPE VECTOR)>
2009                     <JUMP + MAP7>
2010 MAPAP10
2011                     <RETURN TEMP15>
2012                     <DEAD TEMP15>
2013                     <END \1aFIND-INFO>
2014
2015 #WORD *24000707254*
2016                     <GFCN \1aRESTORE-LOOP-STATE ("VALUE" ATOM AC-STATE) LSTATE4>
2017                     <TEMP TEMP17 LVAR18 VAR19 LVAR120>
2018                     <INTGO>
2019                     <FRAME '\1aSAVE-STATE>
2020                     <CALL '\1aSAVE-STATE 0 = TEMP17>
2021                     <LOOP>
2022 MAP6
2023                     <INTGO>
2024                     <EMPUV? TEMP17 + MAPAP9>
2025                     <NTHUV TEMP17 1 = LVAR18>
2026                     <NTHUV LVAR18 1 = VAR19 (TYPE VARTBL)>
2027                     <FRAME '\1aFIND-CACHE-VAR>
2028                     <PUSH VAR19>
2029                     <PUSH LSTATE4>
2030                     <CALL '\1aFIND-CACHE-VAR 2 = LVAR120>
2031                     <TYPE? LVAR120 <TYPE-CODE FALSE> + PHRASE22>
2032                     <FRAME '\1aPROTECT-MATCHES>
2033                     <PUSH LVAR18>
2034                     <DEAD LVAR18>
2035                     <PUSH LVAR120>
2036                     <DEAD LVAR120>
2037                     <CALL '\1aPROTECT-MATCHES 2>
2038                     <JUMP + PHRASE25>
2039 PHRASE22
2040                     <FRAME '\1aISTORE-VAR>
2041                     <PUSH LVAR18>
2042                     <DEAD LVAR18>
2043                     <PUSH %<>>
2044                     <PUSH 'T>
2045                     <CALL '\1aISTORE-VAR 3>
2046                     <FRAME '\1aDEAD-VAR>
2047                     <PUSH VAR19>
2048                     <DEAD VAR19>
2049                     <CALL '\1aDEAD-VAR 1>
2050 PHRASE25
2051                     <RESTUV TEMP17 1 = TEMP17 (TYPE VECTOR)>
2052                     <JUMP + MAP6>
2053 MAPAP9
2054                     <SET TEMP17 LSTATE4 (TYPE VECTOR)>
2055                     <LOOP>
2056 MAP29
2057                     <INTGO>
2058                     <EMPUV? TEMP17 + MAPAP32>
2059                     <NTHUV TEMP17 1 = LVAR120>
2060                     <NTHUV LVAR120 1 = LVAR18 (TYPE VARTBL)>
2061                     <NTHUV LVAR120 6 = VAR19>
2062                     <TYPE? VAR19 <TYPE-CODE FALSE> + BOOL39>
2063                     <FRAME '\1aPROTECT>
2064                     <FRAME '\1aLP-LOAD-VAR>
2065                     <PUSH LVAR18>
2066                     <PUSH 'VALUE>
2067                     <PUSH %<>>
2068                     <PUSH VAR19>
2069                     <DEAD VAR19>
2070                     <CALL '\1aLP-LOAD-VAR 4 = STACK>
2071                     <CALL '\1aPROTECT 1>
2072 BOOL39
2073                     <NTHUV LVAR120 7 = VAR19>
2074                     <TYPE? VAR19 <TYPE-CODE FALSE> + BOOL42>
2075                     <FRAME '\1aPROTECT>
2076                     <FRAME '\1aLP-LOAD-VAR>
2077                     <PUSH LVAR18>
2078                     <PUSH 'TYPE>
2079                     <PUSH %<>>
2080                     <PUSH VAR19>
2081                     <DEAD VAR19>
2082                     <CALL '\1aLP-LOAD-VAR 4 = STACK>
2083                     <CALL '\1aPROTECT 1>
2084 BOOL42
2085                     <NTHUV LVAR120 9 = VAR19>
2086                     <TYPE? VAR19 <TYPE-CODE FALSE> + BOOL45>
2087                     <FRAME '\1aPROTECT>
2088                     <FRAME '\1aLP-LOAD-VAR>
2089                     <PUSH LVAR18>
2090                     <PUSH 'TYPE-WORD>
2091                     <PUSH %<>>
2092                     <PUSH VAR19>
2093                     <DEAD VAR19>
2094                     <CALL '\1aLP-LOAD-VAR 4 = STACK>
2095                     <CALL '\1aPROTECT 1>
2096 BOOL45
2097                     <NTHUV LVAR120 8 = VAR19>
2098                     <DEAD LVAR120>
2099                     <TYPE? VAR19 <TYPE-CODE FALSE> + BOOL48>
2100                     <FRAME '\1aPROTECT>
2101                     <FRAME '\1aLP-LOAD-VAR>
2102                     <PUSH LVAR18>
2103                     <DEAD LVAR18>
2104                     <PUSH 'COUNT>
2105                     <PUSH %<>>
2106                     <PUSH VAR19>
2107                     <DEAD VAR19>
2108                     <CALL '\1aLP-LOAD-VAR 4 = STACK>
2109                     <CALL '\1aPROTECT 1>
2110 BOOL48
2111                     <RESTUV TEMP17 1 = TEMP17 (TYPE VECTOR)>
2112                     <JUMP + MAP29>
2113 MAPAP32
2114                     <FRAME '\1aSET-AC-STATE>
2115                     <PUSH LSTATE4>
2116                     <DEAD LSTATE4>
2117                     <CALL '\1aSET-AC-STATE 1 = TEMP17>
2118                     <RETURN TEMP17>
2119                     <DEAD TEMP17>
2120                     <END \1aRESTORE-LOOP-STATE>
2121
2122 #WORD *306712041*
2123                     <GFCN \1aPROTECT-MATCHES ("VALUE" ANY LINKVAR LINKVAR) LVAR14 LVAR25>
2124                     <TEMP VAR7:VARTBL TEMP9 VAC6>
2125                     <INTGO>
2126                     <NTHUV LVAR14 1 = VAR7 (TYPE VARTBL)>
2127                     <NTHUV LVAR25 6 = TEMP9>
2128                     <TYPE? TEMP9 <TYPE-CODE FALSE> + BOOL8>
2129                     <DEAD TEMP9>
2130                     <PUTUV LVAR14 2 'T>
2131 BOOL8
2132                     <NTHUV LVAR25 7 = TEMP9>
2133                     <TYPE? TEMP9 <TYPE-CODE FALSE> + BOOL10>
2134                     <DEAD TEMP9>
2135                     <PUTUV LVAR14 4 'T>
2136 BOOL10
2137                     <NTHUV LVAR25 8 = TEMP9>
2138                     <TYPE? TEMP9 <TYPE-CODE FALSE> + BOOL11>
2139                     <DEAD TEMP9>
2140                     <PUTUV LVAR25 3 'T>
2141 BOOL11
2142                     <NTHUV LVAR25 9 = TEMP9>
2143                     <TYPE? TEMP9 <TYPE-CODE FALSE> + BOOL12>
2144                     <DEAD TEMP9>
2145                     <PUTUV LVAR14 4 'T>
2146                     <PUTUV LVAR14 3 'T>
2147 BOOL12
2148                     <NTHUV LVAR14 7 = VAC6>
2149                     <TYPE? VAC6 <TYPE-CODE FALSE> + PHRASE20>
2150                     <NTHUV LVAR25 7 = TEMP9>
2151                     <TYPE? TEMP9 <TYPE-CODE FALSE> - PHRASE16>
2152                     <DEAD TEMP9>
2153                     <NTHUV LVAR25 9 = TEMP9>
2154                     <TYPE? TEMP9 <TYPE-CODE FALSE> - PHRASE16>
2155                     <DEAD TEMP9>
2156                     <FRAME '\1aISTORE-VAR>
2157                     <PUSH LVAR14>
2158                     <PUSH %<>>
2159                     <PUSH 'T>
2160                     <CALL '\1aISTORE-VAR 3>
2161                     <FRAME '\1aBREAK-LINK>
2162                     <PUSH VAC6>
2163                     <DEAD VAC6>
2164                     <PUSH VAR7>
2165                     <CALL '\1aBREAK-LINK 2>
2166                     <JUMP + PHRASE20>
2167 PHRASE16
2168                     <NTHUV LVAR25 7 = TEMP9>
2169                     <EQUAL? TEMP9 VAC6 - PHRASE20>
2170                     <DEAD TEMP9>
2171                     <FRAME '\1aPROTECT>
2172                     <PUSH VAC6>
2173                     <DEAD VAC6>
2174                     <CALL '\1aPROTECT 1>
2175 PHRASE20
2176                     <NTHUV LVAR14 6 = VAC6>
2177                     <TYPE? VAC6 <TYPE-CODE FALSE> + PHRASE28>
2178                     <NTHUV LVAR25 6 = TEMP9>
2179                     <TYPE? TEMP9 <TYPE-CODE FALSE> - PHRASE25>
2180                     <DEAD TEMP9>
2181                     <FRAME '\1aISTORE-VAR>
2182                     <PUSH LVAR14>
2183                     <PUSH %<>>
2184                     <PUSH 'T>
2185                     <CALL '\1aISTORE-VAR 3>
2186                     <FRAME '\1aBREAK-LINK>
2187                     <PUSH VAC6>
2188                     <DEAD VAC6>
2189                     <PUSH VAR7>
2190                     <CALL '\1aBREAK-LINK 2>
2191                     <JUMP + PHRASE28>
2192 PHRASE25
2193                     <NTHUV LVAR25 6 = TEMP9 (TYPE AC)>
2194                     <VEQUAL? TEMP9 VAC6 - PHRASE28>
2195                     <DEAD TEMP9>
2196                     <FRAME '\1aPROTECT>
2197                     <PUSH VAC6>
2198                     <DEAD VAC6>
2199                     <CALL '\1aPROTECT 1>
2200 PHRASE28
2201                     <NTHUV LVAR14 9 = VAC6>
2202                     <TYPE? VAC6 <TYPE-CODE FALSE> + PHRASE37>
2203                     <NTHUV LVAR25 9 = TEMP9>
2204                     <TYPE? TEMP9 <TYPE-CODE FALSE> - PHRASE33>
2205                     <DEAD TEMP9>
2206                     <NTHUV LVAR25 8 = TEMP9>
2207                     <TYPE? TEMP9 <TYPE-CODE FALSE> - PHRASE33>
2208                     <DEAD TEMP9>
2209                     <NTHUV LVAR25 7 = TEMP9>
2210                     <TYPE? TEMP9 <TYPE-CODE FALSE> - PHRASE33>
2211                     <DEAD TEMP9>
2212                     <FRAME '\1aISTORE-VAR>
2213                     <PUSH LVAR14>
2214                     <PUSH %<>>
2215                     <PUSH 'T>
2216                     <CALL '\1aISTORE-VAR 3>
2217                     <FRAME '\1aBREAK-LINK>
2218                     <PUSH VAC6>
2219                     <DEAD VAC6>
2220                     <PUSH VAR7>
2221                     <CALL '\1aBREAK-LINK 2>
2222                     <JUMP + PHRASE37>
2223 PHRASE33
2224                     <NTHUV LVAR25 9 = TEMP9>
2225                     <EQUAL? TEMP9 VAC6 - PHRASE37>
2226                     <DEAD TEMP9>
2227                     <FRAME '\1aPROTECT>
2228                     <PUSH VAC6>
2229                     <DEAD VAC6>
2230                     <CALL '\1aPROTECT 1>
2231 PHRASE37
2232                     <NTHUV LVAR14 8 = VAC6>
2233                     <SET TEMP9 VAC6>
2234                     <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE47>
2235                     <NTHUV LVAR25 8 = TEMP9>
2236                     <TYPE? TEMP9 <TYPE-CODE FALSE> - PHRASE42>
2237                     <DEAD TEMP9>
2238                     <NTHUV LVAR25 9 = TEMP9>
2239                     <TYPE? TEMP9 <TYPE-CODE FALSE> - PHRASE42>
2240                     <DEAD TEMP9>
2241                     <FRAME '\1aISTORE-VAR>
2242                     <PUSH LVAR14>
2243                     <DEAD LVAR14>
2244                     <PUSH %<>>
2245                     <PUSH 'T>
2246                     <CALL '\1aISTORE-VAR 3>
2247                     <FRAME '\1aBREAK-LINK>
2248                     <PUSH VAC6>
2249                     <DEAD VAC6>
2250                     <PUSH VAR7>
2251                     <DEAD VAR7>
2252                     <CALL '\1aBREAK-LINK 2 = TEMP9>
2253                     <RETURN TEMP9>
2254                     <DEAD TEMP9>
2255 PHRASE42
2256                     <NTHUV LVAR25 8 = TEMP9>
2257                     <DEAD LVAR25>
2258                     <EQUAL? TEMP9 VAC6 + TAG48>
2259                     <DEAD TEMP9>
2260                     <RETURN %<>>
2261 TAG48
2262                     <FRAME '\1aPROTECT>
2263                     <PUSH VAC6>
2264                     <DEAD VAC6>
2265                     <CALL '\1aPROTECT 1 = TEMP9>
2266 PHRASE47
2267                     <RETURN TEMP9>
2268                     <DEAD TEMP9>
2269                     <END \1aPROTECT-MATCHES>
2270
2271 "THE STATUS INFORMATION THAT IS CURRENTLY-GENERATED IS AN ATOM
2272  EITHER NORMAL, UNCONDITIONAL-BRANCH, LOOP-LABEL"
2273
2274 #WORD *6524171405*
2275                     <GFCN \1aGEN-LABEL ("VALUE" ANY ATOM ATOM) LABEL4 STATUS5>
2276                     <TEMP TEMP13 TEMP14 PATCH7>
2277                     <INTGO>
2278                     <SET TEMP13 [TCOMPERR] (TYPE VECTOR)>
2279                     <LOOP (LABEL4 VALUE) (TEMP13 LENGTH VALUE)>
2280 TAG11
2281                     <NTHUV TEMP13 1 = TEMP14>
2282                     <VEQUAL? TEMP14 LABEL4 + TAG10>
2283                     <DEAD TEMP14>
2284                     <RESTUV TEMP13 1 = TEMP13 (TYPE VECTOR)>
2285                     <EMPUV? TEMP13 - TAG11>
2286                     <JUMP + PHRASE9>
2287 TAG10
2288                     <FRAME '\1aEMIT-LABEL>
2289                     <PUSH LABEL4>
2290                     <DEAD LABEL4>
2291                     <PUSH %<>>
2292                     <CALL '\1aEMIT-LABEL 2>
2293                     <SET TEMP14 %<> (TYPE FALSE)>
2294                     <GVAL 'ALL-ACS = TEMP13>
2295                     <LOOP>
2296 MAP17
2297                     <INTGO>
2298                     <EMPUV? TEMP13 + COND41>
2299                     <FRAME '\1aCLEAR-VARS-FROM-AC>
2300                     <NTHUV TEMP13 1 = STACK>
2301                     <CALL '\1aCLEAR-VARS-FROM-AC 1 = TEMP14>
2302                     <RESTUV TEMP13 1 = TEMP13 (TYPE VECTOR)>
2303                     <JUMP + MAP17>
2304 PHRASE9
2305                     <GVAL 'ICALL-LABELS = TEMP14>
2306                     <EMPL? TEMP14 + MAP29>
2307                     <LOOP (LABEL4 VALUE) (TEMP14 VALUE)>
2308 TAG26
2309                     <NTHL TEMP14 1 = TEMP13>
2310                     <VEQUAL? TEMP13 LABEL4 + TAG25>
2311                     <DEAD TEMP13>
2312                     <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
2313                     <EMPL? TEMP14 - TAG26>
2314                     <JUMP + MAP29>
2315 TAG25
2316                     <FRAME '\1aPOP-MODEL>
2317                     <CALL '\1aPOP-MODEL 0>
2318                     <GVAL 'ICALL-LEVEL = TEMP14>
2319                     <SUB TEMP14 1 = TEMP14 (TYPE FIX)>
2320                     <SETG 'ICALL-LEVEL TEMP14>
2321                     <DEAD TEMP14>
2322                     <GVAL 'ALL-ACS = TEMP13>
2323                     <LOOP>
2324 MAP30
2325                     <INTGO>
2326                     <EMPUV? TEMP13 + MAP29>
2327                     <FRAME '\1aCLEAR-VARS-FROM-AC>
2328                     <NTHUV TEMP13 1 = STACK>
2329                     <CALL '\1aCLEAR-VARS-FROM-AC 1>
2330                     <RESTUV TEMP13 1 = TEMP13 (TYPE VECTOR)>
2331                     <JUMP + MAP30>
2332 MAP29
2333                     <VEQUAL? STATUS5 'UNCONDITIONAL-BRANCH + BOOL35>
2334                     <FRAME '\1aADD-PATCH>
2335                     <PUSH 'LABEL-MERGE>
2336                     <CALL '\1aADD-PATCH 1 = PATCH7>
2337 BOOL35
2338                     <VEQUAL? STATUS5 'LOOP-LABEL - PHRASE38>
2339                     <FRAME '\1aEMIT-LABEL>
2340                     <PUSH LABEL4>
2341                     <DEAD LABEL4>
2342                     <GVAL 'LOOP-VARS = STACK>
2343                     <CALL '\1aEMIT-LABEL 2 = TEMP14>
2344                     <JUMP + COND37>
2345 PHRASE38
2346                     <FRAME '\1aEMIT-LABEL>
2347                     <PUSH LABEL4>
2348                     <DEAD LABEL4>
2349                     <PUSH %<>>
2350                     <CALL '\1aEMIT-LABEL 2 = TEMP14>
2351 COND37
2352                     <VEQUAL? STATUS5 'UNCONDITIONAL-BRANCH - PHRASE42>
2353                     <DEAD STATUS5>
2354                     <FRAME '\1aPROCESS-LABEL-MERGE>
2355                     <PUSH TEMP14>
2356                     <DEAD TEMP14>
2357                     <PUSH 'T>
2358                     <PUSH 0>
2359                     <CALL '\1aPROCESS-LABEL-MERGE 3 = TEMP14>
2360                     <RETURN TEMP14>
2361                     <DEAD TEMP14>
2362 PHRASE42
2363                     <FRAME '\1aPROCESS-LABEL-MERGE>
2364                     <PUSH TEMP14>
2365                     <DEAD TEMP14>
2366                     <PUSH %<>>
2367                     <PUSH PATCH7>
2368                     <DEAD PATCH7>
2369                     <CALL '\1aPROCESS-LABEL-MERGE 3 = TEMP14>
2370 COND41
2371                     <RETURN TEMP14>
2372                     <DEAD TEMP14>
2373                     <END \1aGEN-LABEL>
2374
2375 #WORD *26164577333*
2376                     <GFCN \1aGEN-BRANCH ("VALUE" ANY FIX <OR ATOM SPEC-LABEL> ANY "OPTIONAL" ANY BOOLEAN ANY) INST8 LABEL9 STATUS?10 ACNUM11 FLONG?12 NO-KILL13>
2377                     <OPT-DISPATCH 3 %<> OPT4 OPT5 OPT6 OPT7>
2378 OPT4
2379                     <PUSH %<>>
2380 OPT5
2381                     <PUSH %<>>
2382 OPT6
2383                     <PUSH %<>>
2384 OPT7
2385                     <TEMP LLEN17 CCOUNT18:FIX XREF14 LREF15:LABEL-REF LSTATE19>
2386                     <INTGO>
2387                     <GVAL 'LAST-INST-LENGTH = LLEN17>
2388                     <GVAL 'CODE-COUNT = CCOUNT18>
2389                     <FRAME '\1aEMIT-BRANCH>
2390                     <PUSH INST8>
2391                     <DEAD INST8>
2392                     <PUSH LABEL9>
2393                     <PUSH STATUS?10>
2394                     <PUSH LLEN17>
2395                     <PUSH ACNUM11>
2396                     <DEAD ACNUM11>
2397                     <PUSH FLONG?12>
2398                     <DEAD FLONG?12>
2399                     <CALL '\1aEMIT-BRANCH 6 = XREF14>
2400                     <TYPE? LABEL9 <TYPE-CODE SPEC-LABEL> - TAG24>
2401                     <DEAD LABEL9>
2402                     <RETURN 'SPEC-LABEL>
2403 TAG24
2404                     <NTHUV XREF14 1 = LREF15 (TYPE LABEL-REF)>
2405                     <NTHUV LREF15 5 = LSTATE19>
2406                     <TYPE? LSTATE19 <TYPE-CODE FALSE> + PHRASE25>
2407                     <FRAME '\1aSTART-CODE-INSERT>
2408                     <CALL '\1aSTART-CODE-INSERT 0>
2409                     <FRAME '\1aRESTORE-LOOP-STATE>
2410                     <PUSH LSTATE19>
2411                     <DEAD LSTATE19>
2412                     <CALL '\1aRESTORE-LOOP-STATE 1>
2413                     <FRAME '\1aEND-CODE-INSERT>
2414                     <CALL '\1aEND-CODE-INSERT 0 = LSTATE19>
2415                     <FRAME '\1aPRE-INSERT>
2416                     <PUSH LSTATE19>
2417                     <DEAD LSTATE19>
2418                     <PUSH STATUS?10>
2419                     <DEAD STATUS?10>
2420                     <PUSH LLEN17>
2421                     <DEAD LLEN17>
2422                     <PUSH CCOUNT18>
2423                     <DEAD CCOUNT18>
2424                     <CALL '\1aPRE-INSERT 4 = LSTATE19>
2425                     <PUTUV XREF14 4 LSTATE19>
2426                     <DEAD LSTATE19>
2427                     <RETURN XREF14>
2428                     <DEAD XREF14>
2429 PHRASE25
2430                     <GVAL 'OUTST-LABEL-TABLE = LLEN17>
2431                     <EMPUV? LLEN17 + TAG32>
2432                     <LOOP (LREF15 VALUE) (LLEN17 LENGTH VALUE)>
2433 TAG33
2434                     <NTHUV LLEN17 1 = LSTATE19>
2435                     <VEQUAL? LSTATE19 LREF15 + PHRASE31>
2436                     <DEAD LSTATE19>
2437                     <RESTUV LLEN17 1 = LLEN17 (TYPE VECTOR)>
2438                     <EMPUV? LLEN17 - TAG33>
2439 TAG32
2440                     <FRAME '\1aERROR>
2441                     <PUSH "JUMPING BACK TO A NON-LOOP LABEL">
2442                     <PUSH LREF15>
2443                     <DEAD LREF15>
2444                     <CALL '\1aERROR 2 = LLEN17>
2445                     <RETURN LLEN17>
2446                     <DEAD LLEN17>
2447 PHRASE31
2448                     <TYPE? NO-KILL13 <TYPE-CODE FALSE> - PHRASE40>
2449                     <DEAD NO-KILL13>
2450                     <FRAME '\1aSET-DEATH>
2451                     <GEN-LVAL 'CODPTR = STACK>
2452                     <PUSH 'T>
2453                     <CALL '\1aSET-DEATH 2>
2454 PHRASE40
2455                     <FRAME '\1aSAVE-XREF-AC-INFO>
2456                     <PUSH XREF14>
2457                     <FRAME '\1aSAVE-STATE>
2458                     <CALL '\1aSAVE-STATE 0 = STACK>
2459                     <FRAME '\1aSAVE-LOAD-STATE>
2460                     <CALL '\1aSAVE-LOAD-STATE 0 = STACK>
2461                     <CALL '\1aSAVE-XREF-AC-INFO 3>
2462                     <FRAME '\1aUSE-ALL-ACS>
2463                     <CALL '\1aUSE-ALL-ACS 0>
2464                     <FRAME '\1aSETUP-PSAVES>
2465                     <PUSH XREF14>
2466                     <DEAD XREF14>
2467                     <CALL '\1aSETUP-PSAVES 1 = LLEN17>
2468                     <RETURN LLEN17>
2469                     <DEAD LLEN17>
2470                     <END \1aGEN-BRANCH>
2471
2472 #WORD *35554156742*
2473                     <GFCN \1aLP-LOAD-VAR ("VALUE" ANY VARTBL ATOM BOOLEAN AC) VAR4 TYP5 MUNG6 VAC7>
2474                     <TEMP LVAR9 TEMP15>
2475                     <INTGO>
2476                     <FRAME '\1aFIND-CACHE-VAR>
2477                     <PUSH VAR4>
2478                     <CALL '\1aFIND-CACHE-VAR 1 = LVAR9>
2479                     <TYPE? LVAR9 <TYPE-CODE FALSE> + BOOL18>
2480                     <VEQUAL? TYP5 'TYPE - BOOL14>
2481                     <NTHUV LVAR9 7 = TEMP15>
2482                     <EQUAL? TEMP15 VAC7 + PHRASE22>
2483                     <DEAD TEMP15>
2484 BOOL14
2485                     <VEQUAL? TYP5 'VALUE - BOOL16>
2486                     <NTHUV LVAR9 6 = TEMP15>
2487                     <EQUAL? TEMP15 VAC7 + PHRASE22>
2488                     <DEAD TEMP15>
2489 BOOL16
2490                     <VEQUAL? TYP5 'COUNT - BOOL17>
2491                     <NTHUV LVAR9 8 = TEMP15>
2492                     <EQUAL? TEMP15 VAC7 + PHRASE22>
2493                     <DEAD TEMP15>
2494 BOOL17
2495                     <VEQUAL? TYP5 'TYPE-WORD - BOOL18>
2496                     <NTHUV LVAR9 9 = TEMP15>
2497                     <DEAD LVAR9>
2498                     <EQUAL? TEMP15 VAC7 + PHRASE22>
2499                     <DEAD TEMP15>
2500 BOOL18
2501                     <FRAME '\1aALL-DEAD?>
2502                     <PUSH VAC7>
2503                     <CALL '\1aALL-DEAD? 1 = TEMP15>
2504                     <TYPE? TEMP15 <TYPE-CODE FALSE> - PHRASE22>
2505                     <DEAD TEMP15>
2506                     <FRAME '\1aFREE-AC?>
2507                     <CALL '\1aFREE-AC? 0 = LVAR9>
2508                     <TYPE? LVAR9 <TYPE-CODE FALSE> + PHRASE22>
2509                     <FRAME '\1aEMIT-EXCH>
2510                     <PUSH VAC7>
2511                     <PUSH LVAR9>
2512                     <CALL '\1aEMIT-EXCH 2>
2513                     <FRAME '\1aEXCH-AC>
2514                     <PUSH LVAR9>
2515                     <DEAD LVAR9>
2516                     <PUSH VAC7>
2517                     <CALL '\1aEXCH-AC 2>
2518 PHRASE22
2519                     <FRAME '\1aLOAD-VAR>
2520                     <PUSH VAR4>
2521                     <DEAD VAR4>
2522                     <PUSH TYP5>
2523                     <DEAD TYP5>
2524                     <PUSH MUNG6>
2525                     <DEAD MUNG6>
2526                     <PUSH VAC7>
2527                     <DEAD VAC7>
2528                     <CALL '\1aLOAD-VAR 4 = TEMP15>
2529                     <RETURN TEMP15>
2530                     <DEAD TEMP15>
2531                     <END \1aLP-LOAD-VAR>