mim/development/mim/vaxc/nrpgen.mima

   1
   2 #WORD *27501407235*
   3 <GFCN \1aNTH-LIST-GEN ("VALUE" ANY <OR VARTBL <PRIMTYPE LIST>> <OR FIX VARTBL> <OR ATOM VARTBL> "OPTIONAL" <OR FALSE HINT>) SVAR6 NUM7 RES8 HINT9>
   4                     <OPT-DISPATCH 3 %<> OPT4 OPT5>
   5 OPT4
   6                     <PUSH %<>>
   7 OPT5
   8                     <TEMP TEMP12>
   9                     <INTGO>
  10                     <FRAME '\1aNTH-LOOK-AHEAD>
  11                     <PUSH 'NTHL!-MIMOP>
  12                     <PUSH SVAR6>
  13                     <PUSH NUM7>
  14                     <PUSH RES8>
  15                     <PUSH HINT9>
  16                     <CALL '\1aNTH-LOOK-AHEAD 5 = TEMP12>
  17                     <TYPE? TEMP12 <TYPE-CODE FALSE> - PHRASE14>
  18                     <EQUAL? NUM7 1 - PHRASE16>
  19                     <FRAME '\1aNTH-FIXOFFSET-GEN>
  20                     <PUSH SVAR6>
  21                     <DEAD SVAR6>
  22                     <PUSH 1>
  23                     <PUSH RES8>
  24                     <DEAD RES8>
  25                     <PUSH HINT9>
  26                     <DEAD HINT9>
  27                     <CALL '\1aNTH-FIXOFFSET-GEN 4>
  28                     <JUMP + PHRASE21>
  29 PHRASE16
  30                     <TYPE? NUM7 <TYPE-CODE FIX> - PHRASE18>
  31                     <FRAME '\1aLIST-REST-CONSTANT-GEN>
  32                     <PUSH SVAR6>
  33                     <DEAD SVAR6>
  34                     <SUB NUM7 1 = STACK (TYPE FIX)>
  35                     <DEAD NUM7>
  36                     <CALL '\1aLIST-REST-CONSTANT-GEN 2 = TEMP12>
  37                     <FRAME '\1aFINISH-NTH-FIXOFFSET-GEN>
  38                     <PUSH TEMP12>
  39                     <DEAD TEMP12>
  40                     <PUSH 1>
  41                     <PUSH RES8>
  42                     <DEAD RES8>
  43                     <PUSH HINT9>
  44                     <DEAD HINT9>
  45                     <CALL '\1aFINISH-NTH-FIXOFFSET-GEN 4>
  46                     <JUMP + PHRASE21>
  47 PHRASE18
  48                     <FRAME '\1aLIST-REST-VAR-GEN>
  49                     <PUSH SVAR6>
  50                     <DEAD SVAR6>
  51                     <PUSH NUM7>
  52                     <DEAD NUM7>
  53                     <PUSH 'NTH>
  54                     <CALL '\1aLIST-REST-VAR-GEN 3 = TEMP12>
  55                     <FRAME '\1aFINISH-NTH-FIXOFFSET-GEN>
  56                     <PUSH TEMP12>
  57                     <DEAD TEMP12>
  58                     <PUSH 1>
  59                     <PUSH RES8>
  60                     <DEAD RES8>
  61                     <PUSH HINT9>
  62                     <DEAD HINT9>
  63                     <CALL '\1aFINISH-NTH-FIXOFFSET-GEN 4>
  64 PHRASE21
  65                     <FRAME '\1aCLEAR-STATUS>
  66                     <CALL '\1aCLEAR-STATUS 0>
  67                     <SET TEMP12 'NORMAL (TYPE ATOM)>
  68 PHRASE14
  69                     <RETURN TEMP12>
  70                     <DEAD TEMP12>
  71                     <END \1aNTH-LIST-GEN>\r\0\r\0
  72 #WORD *21267330724*
  73 <GFCN \1aREST-LIST-GEN ("VALUE" ATOM <OR VARTBL <PRIMTYPE LIST>> <OR FIX VARTBL> <OR VARTBL ATOM> "OPTIONAL" ANY) SVAR6 NUM7 RES8 HINT9>
  74                     <OPT-DISPATCH 3 %<> OPT4 OPT5>
  75 OPT4
  76                     <PUSH #T$UNBOUND 0>
  77 OPT5
  78                     <TEMP VAC10 TEMP23>
  79                     <INTGO>
  80                     <EQUAL? RES8 'STACK - PHRASE12>
  81                     <FRAME '\1aEMIT-PUSH>
  82                     <FRAME '\1aTYPE-WORD>
  83                     <PUSH 'LIST>
  84                     <CALL '\1aTYPE-WORD 1 = STACK>
  85                     <PUSH 'LONG>
  86                     <CALL '\1aEMIT-PUSH 2>
  87 PHRASE12
  88                     <TYPE? NUM7 <TYPE-CODE FIX> - PHRASE16>
  89                     <FRAME '\1aLIST-REST-CONSTANT-GEN>
  90                     <PUSH SVAR6>
  91                     <DEAD SVAR6>
  92                     <PUSH NUM7>
  93                     <DEAD NUM7>
  94                     <PUSH RES8>
  95                     <CALL '\1aLIST-REST-CONSTANT-GEN 3 = VAC10>
  96                     <JUMP + PHRASE18>
  97 PHRASE16
  98                     <FRAME '\1aLIST-REST-VAR-GEN>
  99                     <PUSH SVAR6>
 100                     <DEAD SVAR6>
 101                     <PUSH NUM7>
 102                     <DEAD NUM7>
 103                     <PUSH 'REST>
 104                     <PUSH RES8>
 105                     <CALL '\1aLIST-REST-VAR-GEN 4 = VAC10>
 106 PHRASE18
 107                     <FRAME '\1aN=?>
 108                     <PUSH RES8>
 109                     <PUSH 'STACK>
 110                     <CALL '\1aN=? 2 = TEMP23>
 111                     <VEQUAL? TEMP23 0 + PHRASE21>
 112                     <DEAD TEMP23>
 113                     <FRAME '\1aDEST-DECL>
 114                     <PUSH VAC10>
 115                     <DEAD VAC10>
 116                     <PUSH RES8>
 117                     <DEAD RES8>
 118                     <PUSH 'LIST>
 119                     <CALL '\1aDEST-DECL 3>
 120 PHRASE21
 121                     <FRAME '\1aCLEAR-STATUS>
 122                     <CALL '\1aCLEAR-STATUS 0>
 123                     <RETURN 'NORMAL>
 124                     <END \1aREST-LIST-GEN>
 125 #WORD *4605212570*
 126 <GFCN \1aLIST-REST-CONSTANT-GEN ("VALUE" ANY VARTBL FIX "OPTIONAL" <OR FALSE VARTBL ATOM>) SVAR6 NUM7 RES8>
 127                     <OPT-DISPATCH 2 %<> OPT4 OPT5>
 128 OPT4
 129                     <PUSH %<>>
 130 OPT5
 131                     <TEMP VAC9 VAC113 TEMP28 CAC11 LABEL12>
 132                     <INTGO>
 133                     <FRAME '\1aVAR-VALUE-IN-AC?>
 134                     <PUSH SVAR6>
 135                     <CALL '\1aVAR-VALUE-IN-AC? 1 = VAC9>
 136                     <TYPE? VAC9 <TYPE-CODE FALSE> - BOOL16>
 137                     <FRAME '\1aLOAD-VAR>
 138                     <PUSH SVAR6>
 139                     <PUSH 'VALUE>
 140                     <PUSH %<>>
 141                     <PUSH 'PREF-VAL>
 142                     <CALL '\1aLOAD-VAR 4 = VAC9>
 143 BOOL16
 144                     <TYPE? VAC9 <TYPE-CODE FALSE> + PHRASE35>
 145                     <FRAME '\1aPROTECT>
 146                     <PUSH VAC9>
 147                     <CALL '\1aPROTECT 1>
 148                     <TYPE? RES8 <TYPE-CODE VARTBL> - PHRASE21>
 149                     <FRAME '\1aVAR-VALUE-IN-AC?>
 150                     <PUSH RES8>
 151                     <CALL '\1aVAR-VALUE-IN-AC? 1 = VAC113>
 152                     <TYPE? VAC113 <TYPE-CODE FALSE> + PHRASE21>
 153                     <FRAME '\1aDEAD-VAR>
 154                     <PUSH RES8>
 155                     <CALL '\1aDEAD-VAR 1>
 156                     <FRAME '\1aSTORE-AC>
 157                     <PUSH VAC113>
 158                     <PUSH 'T>
 159                     <CALL '\1aSTORE-AC 2>
 160                     <FRAME '\1aEMIT-MOVE>
 161                     <FRAME '\1aMA-DISP>
 162                     <PUSH VAC9>
 163                     <PUSH -4>
 164                     <CALL '\1aMA-DISP 2 = STACK>
 165                     <NTHUV VAC113 2 = TEMP28 (TYPE FIX)>
 166                     <OR TEMP28 #WORD *120* = TEMP28>
 167                     <LSH TEMP28 24 = TEMP28 (TYPE FIX)>
 168                     <CHTYPE TEMP28 <TYPE-CODE EFF-ADDR> = STACK>
 169                     <DEAD TEMP28>
 170                     <PUSH 'LONG>
 171                     <CALL '\1aEMIT-MOVE 3>
 172                     <FRAME '\1aUNPROTECT>
 173                     <PUSH VAC9>
 174                     <DEAD VAC9>
 175                     <CALL '\1aUNPROTECT 1>
 176                     <SET VAC9 VAC113>
 177                     <DEAD VAC113>
 178                     <SUB NUM7 1 = NUM7 (TYPE FIX)>
 179                     <JUMP + PHRASE35>
 180 PHRASE21
 181                     <EQUAL? RES8 'STACK - BOOL31>
 182                     <VEQUAL? NUM7 1 + PHRASE35 (TYPE FIX)>
 183 BOOL31
 184                     <FRAME '\1aWILL-DIE?>
 185                     <PUSH SVAR6>
 186                     <DEAD SVAR6>
 187                     <CALL '\1aWILL-DIE? 1 = TEMP28>
 188                     <TYPE? TEMP28 <TYPE-CODE FALSE> - PHRASE35>
 189                     <DEAD TEMP28>
 190                     <FRAME '\1aGET-AC>
 191                     <PUSH 'PREF-VAL>
 192                     <PUSH 'T>
 193                     <CALL '\1aGET-AC 2 = VAC113>
 194                     <FRAME '\1aEMIT-MOVE>
 195                     <FRAME '\1aMA-DISP>
 196                     <PUSH VAC9>
 197                     <PUSH -4>
 198                     <CALL '\1aMA-DISP 2 = STACK>
 199                     <NTHUV VAC113 2 = TEMP28 (TYPE FIX)>
 200                     <OR TEMP28 #WORD *120* = TEMP28>
 201                     <LSH TEMP28 24 = TEMP28 (TYPE FIX)>
 202                     <CHTYPE TEMP28 <TYPE-CODE EFF-ADDR> = STACK>
 203                     <DEAD TEMP28>
 204                     <PUSH 'LONG>
 205                     <CALL '\1aEMIT-MOVE 3>
 206                     <FRAME '\1aUNPROTECT>
 207                     <PUSH VAC9>
 208                     <DEAD VAC9>
 209                     <CALL '\1aUNPROTECT 1>
 210                     <SET VAC9 VAC113>
 211                     <DEAD VAC113>
 212                     <SUB NUM7 1 = NUM7 (TYPE FIX)>
 213 PHRASE35
 214                     <FRAME '\1aPROTECT>
 215                     <PUSH VAC9>
 216                     <CALL '\1aPROTECT 1>
 217                     <FRAME '\1aMA-DISP>
 218                     <PUSH VAC9>
 219                     <PUSH -4>
 220                     <CALL '\1aMA-DISP 2 = VAC113>
 221                     <VEQUAL? NUM7 0 + PHRASE65 (TYPE FIX)>
 222                     <VEQUAL? NUM7 1 - PHRASE45 (TYPE FIX)>
 223                     <EQUAL? RES8 'STACK - PHRASE49>
 224                     <DEAD RES8>
 225                     <FRAME '\1aEMIT-PUSH>
 226                     <PUSH VAC113>
 227                     <DEAD VAC113>
 228                     <PUSH 'LONG>
 229                     <CALL '\1aEMIT-PUSH 2>
 230                     <RETURN VAC9>
 231                     <DEAD VAC9>
 232 PHRASE49
 233                     <FRAME '\1aEMIT-MOVE>
 234                     <PUSH VAC113>
 235                     <DEAD VAC113>
 236                     <NTHUV VAC9 2 = TEMP28 (TYPE FIX)>
 237                     <OR TEMP28 #WORD *120* = TEMP28>
 238                     <LSH TEMP28 24 = TEMP28 (TYPE FIX)>
 239                     <CHTYPE TEMP28 <TYPE-CODE EFF-ADDR> = STACK>
 240                     <DEAD TEMP28>
 241                     <PUSH 'LONG>
 242                     <CALL '\1aEMIT-MOVE 3>
 243                     <RETURN VAC9>
 244                     <DEAD VAC9>
 245 PHRASE45
 246                     <FRAME '\1aPROTECT>
 247                     <FRAME '\1aGET-AC>
 248                     <PUSH 'PREF-VAL>
 249                     <PUSH 'T>
 250                     <CALL '\1aGET-AC 2 = CAC11>
 251                     <PUSH CAC11>
 252                     <CALL '\1aPROTECT 1>
 253                     <EQUAL? RES8 'STACK - PHRASE56>
 254                     <FRAME '\1aLOAD-CONSTANT>
 255                     <PUSH CAC11>
 256                     <SUB NUM7 2 = STACK (TYPE FIX)>
 257                     <DEAD NUM7>
 258                     <CALL '\1aLOAD-CONSTANT 2>
 259                     <JUMP + PHRASE58>
 260 PHRASE56
 261                     <FRAME '\1aLOAD-CONSTANT>
 262                     <PUSH CAC11>
 263                     <SUB NUM7 1 = STACK (TYPE FIX)>
 264                     <DEAD NUM7>
 265                     <CALL '\1aLOAD-CONSTANT 2>
 266 PHRASE58
 267                     <FRAME '\1aMAKE-LABEL>
 268                     <CALL '\1aMAKE-LABEL 0 = LABEL12>
 269                     <FRAME '\1aEMIT-LABEL>
 270                     <PUSH LABEL12>
 271                     <PUSH 'T>
 272                     <CALL '\1aEMIT-LABEL 2>
 273                     <FRAME '\1aEMIT-MOVE>
 274                     <PUSH VAC113>
 275                     <NTHUV VAC9 2 = TEMP28 (TYPE FIX)>
 276                     <OR TEMP28 #WORD *120* = TEMP28>
 277                     <LSH TEMP28 24 = TEMP28 (TYPE FIX)>
 278                     <CHTYPE TEMP28 <TYPE-CODE EFF-ADDR> = STACK>
 279                     <DEAD TEMP28>
 280                     <PUSH 'LONG>
 281                     <CALL '\1aEMIT-MOVE 3>
 282                     <FRAME '\1aGEN-BRANCH>
 283                     <PUSH 244>
 284                     <PUSH LABEL12>
 285                     <DEAD LABEL12>
 286                     <PUSH %<>>
 287                     <NTHUV CAC11 2 = TEMP28 (TYPE FIX)>
 288                     <DEAD CAC11>
 289                     <OR TEMP28 #WORD *120* = TEMP28>
 290                     <LSH TEMP28 24 = TEMP28 (TYPE FIX)>
 291                     <CHTYPE TEMP28 <TYPE-CODE EFF-ADDR> = STACK>
 292                     <DEAD TEMP28>
 293                     <CALL '\1aGEN-BRANCH 4>
 294                     <EQUAL? RES8 'STACK - PHRASE65>
 295                     <DEAD RES8>
 296                     <FRAME '\1aEMIT-PUSH>
 297                     <PUSH VAC113>
 298                     <DEAD VAC113>
 299                     <PUSH 'LONG>
 300                     <CALL '\1aEMIT-PUSH 2>
 301 PHRASE65
 302                     <RETURN VAC9>
 303                     <DEAD VAC9>
 304                     <END \1aLIST-REST-CONSTANT-GEN>
 305 #WORD *26630435275*
 306 <GFCN \1aLIST-REST-VAR-GEN ("VALUE" STRUCTURED <OR VARTBL <PRIMTYPE LIST>> VARTBL ATOM "OPTIONAL" <OR FALSE ATOM VARTBL>) SVAR6 NVAR7 OP8 RES9>
 307                     <OPT-DISPATCH 3 %<> OPT4 OPT5>
 308 OPT4
 309                     <PUSH %<>>
 310 OPT5
 311                     <TEMP (STATUS?10 %<>) VAC11 CAC12 TEMP28 SLABEL13 LADDR15>
 312                     <INTGO>
 313                     <FRAME '\1aPROTECT-VAL>
 314                     <PUSH NVAR7>
 315                     <CALL '\1aPROTECT-VAL 1>
 316                     <TYPE? SVAR6 <TYPE-CODE LIST> - PHRASE18>
 317                     <FRAME '\1aGEN-CONSTANT>
 318                     <PUSH SVAR6>
 319                     <DEAD SVAR6>
 320                     <PUSH 'PREF-VAL>
 321                     <PUSH 'NONE>
 322                     <PUSH 'NONE>
 323                     <CALL '\1aGEN-CONSTANT 4 = VAC11>
 324                     <JUMP + PHRASE20>
 325 PHRASE18
 326                     <FRAME '\1aLOAD-VAR>
 327                     <PUSH SVAR6>
 328                     <DEAD SVAR6>
 329                     <PUSH 'VALUE>
 330                     <PUSH 'T>
 331                     <PUSH 'PREF-VAL>
 332                     <CALL '\1aLOAD-VAR 4 = VAC11>
 333 PHRASE20
 334                     <FRAME '\1aPROTECT-USE>
 335                     <PUSH VAC11>
 336                     <CALL '\1aPROTECT-USE 1>
 337                     <FRAME '\1aVAR-VALUE-IN-AC?>
 338                     <PUSH NVAR7>
 339                     <CALL '\1aVAR-VALUE-IN-AC? 1 = CAC12>
 340                     <TYPE? CAC12 <TYPE-CODE FALSE> + PHRASE24>
 341                     <FRAME '\1aAVAILABLE?>
 342                     <PUSH CAC12>
 343                     <CALL '\1aAVAILABLE? 1 = TEMP28>
 344                     <TYPE? TEMP28 <TYPE-CODE FALSE> + PHRASE24>
 345                     <DEAD TEMP28>
 346                     <FRAME '\1aPROTECT-USE>
 347                     <PUSH CAC12>
 348                     <CALL '\1aPROTECT-USE 1>
 349                     <VEQUAL? OP8 'NTH + BOOL32>
 350                     <EQUAL? RES9 'STACK - PHRASE43>
 351 BOOL32
 352                     <FRAME '\1aEMIT>
 353                     <PUSH 215>
 354                     <NTHUV CAC12 2 = TEMP28 (TYPE FIX)>
 355                     <OR TEMP28 #WORD *120* = TEMP28>
 356                     <LSH TEMP28 24 = TEMP28 (TYPE FIX)>
 357                     <CHTYPE TEMP28 <TYPE-CODE EFF-ADDR> = STACK>
 358                     <DEAD TEMP28>
 359                     <CALL '\1aEMIT 2>
 360                     <SET STATUS?10 'T (TYPE ATOM)>
 361                     <JUMP + PHRASE43>
 362 PHRASE24
 363                     <FRAME '\1aPROTECT-USE>
 364                     <FRAME '\1aGET-AC>
 365                     <PUSH 'PREF-VAL>
 366                     <PUSH 'T>
 367                     <CALL '\1aGET-AC 2 = CAC12>
 368                     <PUSH CAC12>
 369                     <CALL '\1aPROTECT-USE 1>
 370                     <VEQUAL? OP8 'NTH + BOOL39>
 371                     <EQUAL? RES9 'STACK - PHRASE38>
 372 BOOL39
 373                     <FRAME '\1aEMIT>
 374                     <PUSH 195>
 375                     <FRAME '\1aMA-IMM>
 376                     <PUSH 1>
 377                     <CALL '\1aMA-IMM 1 = STACK>
 378                     <FRAME '\1aVAR-VALUE-ADDRESS>
 379                     <PUSH NVAR7>
 380                     <DEAD NVAR7>
 381                     <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
 382                     <NTHUV CAC12 2 = TEMP28 (TYPE FIX)>
 383                     <OR TEMP28 #WORD *120* = TEMP28>
 384                     <LSH TEMP28 24 = TEMP28 (TYPE FIX)>
 385                     <CHTYPE TEMP28 <TYPE-CODE EFF-ADDR> = STACK>
 386                     <DEAD TEMP28>
 387                     <CALL '\1aEMIT 4>
 388                     <SET STATUS?10 'T (TYPE ATOM)>
 389                     <JUMP + PHRASE43>
 390 PHRASE38
 391                     <FRAME '\1aEMIT>
 392                     <PUSH 208>
 393                     <FRAME '\1aVAR-VALUE-ADDRESS>
 394                     <PUSH NVAR7>
 395                     <DEAD NVAR7>
 396                     <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
 397                     <NTHUV CAC12 2 = TEMP28 (TYPE FIX)>
 398                     <OR TEMP28 #WORD *120* = TEMP28>
 399                     <LSH TEMP28 24 = TEMP28 (TYPE FIX)>
 400                     <CHTYPE TEMP28 <TYPE-CODE EFF-ADDR> = STACK>
 401                     <DEAD TEMP28>
 402                     <CALL '\1aEMIT 3>
 403                     <SET STATUS?10 'T (TYPE ATOM)>
 404 PHRASE43
 405                     <GVAL 'STATUS-AC = TEMP28>
 406                     <EQUAL? TEMP28 CAC12 - PHRASE47>
 407                     <DEAD TEMP28>
 408                     <SET STATUS?10 'T (TYPE ATOM)>
 409 PHRASE47
 410                     <VEQUAL? STATUS?10 0 - PHRASE49>
 411                     <DEAD STATUS?10>
 412                     <FRAME '\1aEMIT>
 413                     <PUSH 213>
 414                     <NTHUV CAC12 2 = TEMP28 (TYPE FIX)>
 415                     <OR TEMP28 #WORD *120* = TEMP28>
 416                     <LSH TEMP28 24 = TEMP28 (TYPE FIX)>
 417                     <CHTYPE TEMP28 <TYPE-CODE EFF-ADDR> = STACK>
 418                     <DEAD TEMP28>
 419                     <CALL '\1aEMIT 2>
 420 PHRASE49
 421                     <FRAME '\1aMAKE-LABEL>
 422                     <CALL '\1aMAKE-LABEL 0 = STATUS?10>
 423                     <FRAME '\1aGEN-BRANCH>
 424                     <PUSH 21>
 425                     <PUSH STATUS?10>
 426                     <PUSH %<>>
 427                     <CALL '\1aGEN-BRANCH 3>
 428                     <FRAME '\1aMAKE-LABEL>
 429                     <CALL '\1aMAKE-LABEL 0 = SLABEL13>
 430                     <FRAME '\1aEMIT-LABEL>
 431                     <PUSH SLABEL13>
 432                     <PUSH 'T>
 433                     <CALL '\1aEMIT-LABEL 2>
 434                     <FRAME '\1aMA-DISP>
 435                     <PUSH VAC11>
 436                     <PUSH -4>
 437                     <CALL '\1aMA-DISP 2 = LADDR15>
 438                     <FRAME '\1aEMIT-MOVE>
 439                     <PUSH LADDR15>
 440                     <NTHUV VAC11 2 = TEMP28 (TYPE FIX)>
 441                     <OR TEMP28 #WORD *120* = TEMP28>
 442                     <LSH TEMP28 24 = TEMP28 (TYPE FIX)>
 443                     <CHTYPE TEMP28 <TYPE-CODE EFF-ADDR> = STACK>
 444                     <DEAD TEMP28>
 445                     <PUSH 'LONG>
 446                     <CALL '\1aEMIT-MOVE 3>
 447                     <FRAME '\1aGEN-BRANCH>
 448                     <PUSH 245>
 449                     <PUSH SLABEL13>
 450                     <DEAD SLABEL13>
 451                     <PUSH %<>>
 452                     <NTHUV CAC12 2 = TEMP28 (TYPE FIX)>
 453                     <DEAD CAC12>
 454                     <OR TEMP28 #WORD *120* = TEMP28>
 455                     <LSH TEMP28 24 = TEMP28 (TYPE FIX)>
 456                     <CHTYPE TEMP28 <TYPE-CODE EFF-ADDR> = STACK>
 457                     <DEAD TEMP28>
 458                     <CALL '\1aGEN-BRANCH 4>
 459                     <FRAME '\1aEMIT-LABEL>
 460                     <PUSH STATUS?10>
 461                     <DEAD STATUS?10>
 462                     <PUSH %<>>
 463                     <CALL '\1aEMIT-LABEL 2>
 464                     <VEQUAL? OP8 'REST - PHRASE60>
 465                     <DEAD OP8>
 466                     <EQUAL? RES9 'STACK - PHRASE60>
 467                     <DEAD RES9>
 468                     <FRAME '\1aEMIT-PUSH>
 469                     <PUSH LADDR15>
 470                     <DEAD LADDR15>
 471                     <PUSH 'LONG>
 472                     <CALL '\1aEMIT-PUSH 2>
 473 PHRASE60
 474                     <RETURN VAC11>
 475                     <DEAD VAC11>
 476                     <END \1aLIST-REST-VAR-GEN>
 477 #WORD *24523515313*
 478 <GFCN \1aFINISH-NTH-FIXOFFSET-GEN ("VALUE" ANY AC FIX <OR VARTBL ATOM> <OR FALSE HINT> "OPTIONAL" <OR FALSE AC>) SVAC6 OFF7 RES8 HINT9 INDXAC10>
 479                     <OPT-DISPATCH 4 %<> OPT4 OPT5>
 480 OPT4
 481                     <PUSH %<>>
 482 OPT5
 483                     <TEMP (TYP11 %<>) TYPADDR13 RVAC12>
 484                     <INTGO>
 485                     <SUB OFF7 1 = TYP11 (TYPE FIX)>
 486                     <DEAD OFF7>
 487                     <LSH TYP11 3 = OFF7 (TYPE FIX)>
 488                     <DEAD TYP11>
 489                     <FRAME '\1aMA-DISP>
 490                     <PUSH SVAC6>
 491                     <PUSH OFF7>
 492                     <CALL '\1aMA-DISP 2 = TYPADDR13>
 493                     <FRAME '\1aMA-DISP>
 494                     <PUSH SVAC6>
 495                     <ADD OFF7 2 = STACK (TYPE FIX)>
 496                     <CALL '\1aMA-DISP 2 = TYP11>
 497                     <FRAME '\1aMA-DISP>
 498                     <PUSH SVAC6>
 499                     <DEAD SVAC6>
 500                     <ADD OFF7 4 = STACK (TYPE FIX)>
 501                     <DEAD OFF7>
 502                     <CALL '\1aMA-DISP 2 = TYP11>
 503                     <TYPE? HINT9 <TYPE-CODE FALSE> + BOOL21>
 504                     <FRAME '\1aPARSE-HINT>
 505                     <PUSH HINT9>
 506                     <DEAD HINT9>
 507                     <PUSH 'TYPE>
 508                     <CALL '\1aPARSE-HINT 2 = TYP11>
 509 BOOL21
 510                     <EQUAL? RES8 'STACK - PHRASE24>
 511                     <GVAL 'GC-MODE = TYP11>
 512                     <TYPE? TYP11 <TYPE-CODE FALSE> - PHRASE24>
 513                     <DEAD TYP11>
 514                     <TYPE? INDXAC10 <TYPE-CODE FALSE> + PHRASE27>
 515                     <FRAME '\1aEMIT>
 516                     <PUSH 125>
 517                     <NTHUV INDXAC10 2 = TYP11 (TYPE FIX)>
 518                     <DEAD INDXAC10>
 519                     <OR TYP11 #WORD *100* = TYP11>
 520                     <LSH TYP11 24 = TYP11 (TYPE FIX)>
 521                     <CHTYPE TYP11 <TYPE-CODE EFF-ADDR> = STACK>
 522                     <DEAD TYP11>
 523                     <PUSH TYPADDR13>
 524                     <DEAD TYPADDR13>
 525                     <GVAL 'AC-TP = TYP11>
 526                     <NTHUV TYP11 2 = TYP11 (TYPE FIX)>
 527                     <OR TYP11 #WORD *200* = TYP11>
 528                     <LSH TYP11 24 = TYP11 (TYPE FIX)>
 529                     <CHTYPE TYP11 <TYPE-CODE EFF-ADDR> = STACK>
 530                     <DEAD TYP11>
 531                     <CALL '\1aEMIT 4 = TYP11>
 532                     <RETURN TYP11>
 533                     <DEAD TYP11>
 534 PHRASE27
 535                     <FRAME '\1aEMIT>
 536                     <PUSH 125>
 537                     <PUSH TYPADDR13>
 538                     <DEAD TYPADDR13>
 539                     <GVAL 'AC-TP = TYP11>
 540                     <NTHUV TYP11 2 = TYP11 (TYPE FIX)>
 541                     <OR TYP11 #WORD *200* = TYP11>
 542                     <LSH TYP11 24 = TYP11 (TYPE FIX)>
 543                     <CHTYPE TYP11 <TYPE-CODE EFF-ADDR> = STACK>
 544                     <DEAD TYP11>
 545                     <CALL '\1aEMIT 3 = TYP11>
 546                     <RETURN TYP11>
 547                     <DEAD TYP11>
 548 PHRASE24
 549                     <FRAME '\1aGET-AC>
 550                     <PUSH 'DOUBLE>
 551                     <PUSH 'T>
 552                     <CALL '\1aGET-AC 2 = RVAC12>
 553                     <TYPE? INDXAC10 <TYPE-CODE FALSE> + PHRASE35>
 554                     <FRAME '\1aEMIT>
 555                     <PUSH 125>
 556                     <NTHUV INDXAC10 2 = TYP11 (TYPE FIX)>
 557                     <DEAD INDXAC10>
 558                     <OR TYP11 #WORD *100* = TYP11>
 559                     <LSH TYP11 24 = TYP11 (TYPE FIX)>
 560                     <CHTYPE TYP11 <TYPE-CODE EFF-ADDR> = STACK>
 561                     <DEAD TYP11>
 562                     <PUSH TYPADDR13>
 563                     <DEAD TYPADDR13>
 564                     <NTHUV RVAC12 2 = TYP11 (TYPE FIX)>
 565                     <OR TYP11 #WORD *120* = TYP11>
 566                     <LSH TYP11 24 = TYP11 (TYPE FIX)>
 567                     <CHTYPE TYP11 <TYPE-CODE EFF-ADDR> = STACK>
 568                     <DEAD TYP11>
 569                     <CALL '\1aEMIT 4>
 570                     <JUMP + PHRASE37>
 571 PHRASE35
 572                     <FRAME '\1aEMIT>
 573                     <PUSH 125>
 574                     <PUSH TYPADDR13>
 575                     <DEAD TYPADDR13>
 576                     <NTHUV RVAC12 2 = TYP11 (TYPE FIX)>
 577                     <OR TYP11 #WORD *120* = TYP11>
 578                     <LSH TYP11 24 = TYP11 (TYPE FIX)>
 579                     <CHTYPE TYP11 <TYPE-CODE EFF-ADDR> = STACK>
 580                     <DEAD TYP11>
 581                     <CALL '\1aEMIT 3>
 582 PHRASE37
 583                     <FRAME '\1aDEST-PAIR>
 584                     <FRAME '\1aNEXT-AC>
 585                     <PUSH RVAC12>
 586                     <CALL '\1aNEXT-AC 1 = STACK>
 587                     <PUSH RVAC12>
 588                     <DEAD RVAC12>
 589                     <PUSH RES8>
 590                     <DEAD RES8>
 591                     <PUSH 'VALUE>
 592                     <CALL '\1aDEST-PAIR 4 = TYP11>
 593                     <RETURN TYP11>
 594                     <DEAD TYP11>
 595                     <END \1aFINISH-NTH-FIXOFFSET-GEN>
 596 #WORD *24546764171*
 597 <GFCN \1aFNTH-DET-VALUE-AC ("VALUE" ANY AC <OR FALSE ATOM>) SVAC4 TYP5>
 598                     <TEMP TEMP10>
 599                     <INTGO>
 600                     <TYPE? TYP5 <TYPE-CODE FALSE> + PHRASE7>
 601                     <FRAME '\1aSTRUCTURED-TYPE?>
 602                     <PUSH TYP5>
 603                     <DEAD TYP5>
 604                     <CALL '\1aSTRUCTURED-TYPE? 1 = TEMP10>
 605                     <TYPE? TEMP10 <TYPE-CODE FALSE> - PHRASE7>
 606                     <DEAD TEMP10>
 607                     <FRAME '\1aFREE-VALUE-AC?>
 608                     <PUSH 'STORED>
 609                     <CALL '\1aFREE-VALUE-AC? 1 = TEMP10>
 610                     <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE7>
 611                     <DEAD TEMP10>
 612                     <FRAME '\1aPROTECT>
 613                     <FRAME '\1aGET-AC>
 614                     <PUSH 'VALUE>
 615                     <PUSH 'T>
 616                     <CALL '\1aGET-AC 2 = STACK>
 617                     <CALL '\1aPROTECT 1 = TEMP10>
 618                     <RETURN TEMP10>
 619                     <DEAD TEMP10>
 620 PHRASE7
 621                     <FRAME '\1aALL-DEAD?>
 622                     <PUSH SVAC4>
 623                     <CALL '\1aALL-DEAD? 1 = TEMP10>
 624                     <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE14>
 625                     <DEAD TEMP10>
 626                     <RETURN SVAC4>
 627                     <DEAD SVAC4>
 628 PHRASE14
 629                     <FRAME '\1aPROTECT>
 630                     <FRAME '\1aGET-AC>
 631                     <PUSH 'PREF-VAL>
 632                     <PUSH 'T>
 633                     <CALL '\1aGET-AC 2 = STACK>
 634                     <CALL '\1aPROTECT 1 = TEMP10>
 635                     <RETURN TEMP10>
 636                     <DEAD TEMP10>
 637                     <END \1aFNTH-DET-VALUE-AC>
 638 #WORD *37550605674*
 639 <GFCN \1aNTH-FIXOFFSET-GEN ("VALUE" ANY VARTBL FIX ANY <OR FALSE HINT>) SVAR4 OFF5 RES6 HINT7>
 640                     <TEMP VAC8>
 641                     <INTGO>
 642                     <FRAME '\1aPROTECT>
 643                     <FRAME '\1aLOAD-VAR>
 644                     <PUSH SVAR4>
 645                     <DEAD SVAR4>
 646                     <PUSH 'VALUE>
 647                     <PUSH %<>>
 648                     <PUSH 'PREF-VAL>
 649                     <CALL '\1aLOAD-VAR 4 = VAC8>
 650                     <PUSH VAC8>
 651                     <CALL '\1aPROTECT 1>
 652                     <FRAME '\1aFINISH-NTH-FIXOFFSET-GEN>
 653                     <PUSH VAC8>
 654                     <DEAD VAC8>
 655                     <PUSH OFF5>
 656                     <DEAD OFF5>
 657                     <PUSH RES6>
 658                     <DEAD RES6>
 659                     <PUSH HINT7>
 660                     <DEAD HINT7>
 661                     <CALL '\1aFINISH-NTH-FIXOFFSET-GEN 4 = VAC8>
 662                     <RETURN VAC8>
 663                     <DEAD VAC8>
 664                     <END \1aNTH-FIXOFFSET-GEN>
 665 #WORD *25627760313*
 666 <GFCN \1aNTH-VECTOR-GEN ("VALUE" ANY <OR VARTBL <PRIMTYPE VECTOR>> <OR FIX VARTBL> <OR ATOM VARTBL> "OPTIONAL" <OR FALSE HINT>) SVAR6 OFF7 RES8 HINT9>
 667                     <OPT-DISPATCH 3 %<> OPT4 OPT5>
 668 OPT4
 669                     <PUSH %<>>
 670 OPT5
 671                     <TEMP TEMP11>
 672                     <INTGO>
 673                     <FRAME '\1aNTH-LOOK-AHEAD>
 674                     <PUSH 'NTHUV!-MIMOP>
 675                     <PUSH SVAR6>
 676                     <PUSH OFF7>
 677                     <PUSH RES8>
 678                     <PUSH HINT9>
 679                     <CALL '\1aNTH-LOOK-AHEAD 5 = TEMP11>
 680                     <TYPE? TEMP11 <TYPE-CODE FALSE> - PHRASE13>
 681                     <TYPE? OFF7 <TYPE-CODE FIX> - PHRASE15>
 682                     <FRAME '\1aNTH-FIXOFFSET-GEN>
 683                     <PUSH SVAR6>
 684                     <DEAD SVAR6>
 685                     <PUSH OFF7>
 686                     <DEAD OFF7>
 687                     <PUSH RES8>
 688                     <DEAD RES8>
 689                     <PUSH HINT9>
 690                     <DEAD HINT9>
 691                     <CALL '\1aNTH-FIXOFFSET-GEN 4>
 692                     <JUMP + PHRASE17>
 693 PHRASE15
 694                     <FRAME '\1aNTH-VECTOR-VAR-GEN>
 695                     <PUSH SVAR6>
 696                     <DEAD SVAR6>
 697                     <PUSH OFF7>
 698                     <DEAD OFF7>
 699                     <PUSH RES8>
 700                     <DEAD RES8>
 701                     <PUSH HINT9>
 702                     <DEAD HINT9>
 703                     <CALL '\1aNTH-VECTOR-VAR-GEN 4>
 704 PHRASE17
 705                     <FRAME '\1aCLEAR-STATUS>
 706                     <CALL '\1aCLEAR-STATUS 0>
 707                     <SET TEMP11 'NORMAL (TYPE ATOM)>
 708 PHRASE13
 709                     <RETURN TEMP11>
 710                     <DEAD TEMP11>
 711                     <END \1aNTH-VECTOR-GEN>
 712 #WORD *25535760745*
 713 <GFCN \1aNTH-VECTOR-VAR-GEN ("VALUE" ANY <OR VARTBL <PRIMTYPE VECTOR>> VARTBL <OR ATOM VARTBL> <OR FALSE HINT>) SVAR4 OFF5 RES6 HINT7>
 714                     <TEMP DAC9 VAC8 TEMP18>
 715                     <INTGO>
 716                     <FRAME '\1aLOAD-VAR>
 717                     <PUSH OFF5>
 718                     <DEAD OFF5>
 719                     <PUSH 'VALUE>
 720                     <PUSH %<>>
 721                     <PUSH 'PREF-VAL>
 722                     <CALL '\1aLOAD-VAR 4 = DAC9>
 723                     <FRAME '\1aPROTECT-USE>
 724                     <PUSH DAC9>
 725                     <CALL '\1aPROTECT-USE 1>
 726                     <TYPE? SVAR4 <TYPE-CODE VARTBL> + PHRASE13>
 727                     <FRAME '\1aPROTECT-USE>
 728                     <FRAME '\1aGET-AC>
 729                     <PUSH 'PREF-VAL>
 730                     <PUSH 'T>
 731                     <CALL '\1aGET-AC 2 = VAC8>
 732                     <PUSH VAC8>
 733                     <CALL '\1aPROTECT-USE 1>
 734                     <FRAME '\1aEMIT>
 735                     <PUSH 208>
 736                     <FRAME '\1aADDR-VALUE-MQUOTE>
 737                     <PUSH SVAR4>
 738                     <DEAD SVAR4>
 739                     <CALL '\1aADDR-VALUE-MQUOTE 1 = STACK>
 740                     <NTHUV VAC8 2 = TEMP18 (TYPE FIX)>
 741                     <OR TEMP18 #WORD *120* = TEMP18>
 742                     <LSH TEMP18 24 = TEMP18 (TYPE FIX)>
 743                     <CHTYPE TEMP18 <TYPE-CODE EFF-ADDR> = STACK>
 744                     <DEAD TEMP18>
 745                     <CALL '\1aEMIT 3>
 746                     <JUMP + PHRASE19>
 747 PHRASE13
 748                     <FRAME '\1aPROTECT-USE>
 749                     <FRAME '\1aLOAD-VAR>
 750                     <PUSH SVAR4>
 751                     <DEAD SVAR4>
 752                     <PUSH 'VALUE>
 753                     <PUSH %<>>
 754                     <PUSH 'PREF-VAL>
 755                     <CALL '\1aLOAD-VAR 4 = VAC8>
 756                     <PUSH VAC8>
 757                     <CALL '\1aPROTECT-USE 1>
 758 PHRASE19
 759                     <FRAME '\1aFINISH-NTH-FIXOFFSET-GEN>
 760                     <PUSH VAC8>
 761                     <DEAD VAC8>
 762                     <PUSH 0>
 763                     <PUSH RES6>
 764                     <DEAD RES6>
 765                     <PUSH HINT7>
 766                     <DEAD HINT7>
 767                     <PUSH DAC9>
 768                     <DEAD DAC9>
 769                     <CALL '\1aFINISH-NTH-FIXOFFSET-GEN 5 = TEMP18>
 770                     <RETURN TEMP18>
 771                     <DEAD TEMP18>
 772                     <END \1aNTH-VECTOR-VAR-GEN>
 773 #WORD *3054736177*
 774 <GFCN \1aREST-VECTOR-GEN ("VALUE" ATOM <OR VARTBL <PRIMTYPE VECTOR>> <OR FIX VARTBL> <OR VARTBL ATOM> "OPTIONAL" ANY) SVAR6 NUM7 RES8 HINT9>
 775                     <OPT-DISPATCH 3 %<> OPT4 OPT5>
 776 OPT4
 777                     <PUSH %<>>
 778 OPT5
 779                     <TEMP (TYP10 %<>)>
 780                     <INTGO>
 781                     <TYPE? HINT9 <TYPE-CODE FALSE> + BOOL11>
 782                     <FRAME '\1aPARSE-HINT>
 783                     <PUSH HINT9>
 784                     <DEAD HINT9>
 785                     <PUSH 'TYPE>
 786                     <CALL '\1aPARSE-HINT 2 = TYP10>
 787 BOOL11
 788                     <FRAME '\1aREST-BLOCK-GEN>
 789                     <PUSH SVAR6>
 790                     <DEAD SVAR6>
 791                     <PUSH NUM7>
 792                     <DEAD NUM7>
 793                     <PUSH RES8>
 794                     <DEAD RES8>
 795                     <PUSH 3>
 796                     <TYPE? TYP10 <TYPE-CODE FALSE> - BOOL14>
 797                     <SET TYP10 'VECTOR (TYPE ATOM)>
 798 BOOL14
 799                     <PUSH TYP10>
 800                     <DEAD TYP10>
 801                     <CALL '\1aREST-BLOCK-GEN 5 = TYP10>
 802                     <RETURN TYP10>
 803                     <DEAD TYP10>
 804                     <END \1aREST-VECTOR-GEN>
 805 #WORD *15141227467*
 806 <GFCN \1aREST-BYTE-GEN ("VALUE" ATOM <OR VARTBL <PRIMTYPE BYTES>> <OR FIX VARTBL> <OR VARTBL ATOM> "OPTIONAL" ANY) SVAR6 NUM7 RES8 HINT9>
 807                     <OPT-DISPATCH 3 %<> OPT4 OPT5>
 808 OPT4
 809                     <PUSH #T$UNBOUND 0>
 810 OPT5
 811                     <TEMP TEMP11:ATOM>
 812                     <INTGO>
 813                     <FRAME '\1aREST-BLOCK-GEN>
 814                     <PUSH SVAR6>
 815                     <DEAD SVAR6>
 816                     <PUSH NUM7>
 817                     <DEAD NUM7>
 818                     <PUSH RES8>
 819                     <DEAD RES8>
 820                     <PUSH 0>
 821                     <PUSH 'BYTES>
 822                     <CALL '\1aREST-BLOCK-GEN 5 = TEMP11>
 823                     <RETURN TEMP11>
 824                     <DEAD TEMP11>
 825                     <END \1aREST-BYTE-GEN>
 826 #WORD *27544216205*
 827 <GFCN \1aREST-STRING-GEN ("VALUE" ATOM <OR VARTBL <PRIMTYPE STRING>> <OR FIX VARTBL> <OR VARTBL ATOM> "OPTIONAL" ANY) SVAR6 NUM7 RES8 HINT9>
 828                     <OPT-DISPATCH 3 %<> OPT4 OPT5>
 829 OPT4
 830                     <PUSH #T$UNBOUND 0>
 831 OPT5
 832                     <TEMP TEMP11:ATOM>
 833                     <INTGO>
 834                     <FRAME '\1aREST-BLOCK-GEN>
 835                     <PUSH SVAR6>
 836                     <DEAD SVAR6>
 837                     <PUSH NUM7>
 838                     <DEAD NUM7>
 839                     <PUSH RES8>
 840                     <DEAD RES8>
 841                     <PUSH 0>
 842                     <PUSH 'STRING>
 843                     <CALL '\1aREST-BLOCK-GEN 5 = TEMP11>
 844                     <RETURN TEMP11>
 845                     <DEAD TEMP11>
 846                     <END \1aREST-STRING-GEN>
 847 #WORD *23021361116*
 848 <GFCN \1aREST-UVECTOR-GEN ("VALUE" ATOM <OR VARTBL <PRIMTYPE UVECTOR>> <OR FIX VARTBL> <OR VARTBL ATOM> "OPTIONAL" ANY) SVAR6 NUM7 RES8 HINT9>
 849                     <OPT-DISPATCH 3 %<> OPT4 OPT5>
 850 OPT4
 851                     <PUSH #T$UNBOUND 0>
 852 OPT5
 853                     <TEMP TEMP11:ATOM>
 854                     <INTGO>
 855                     <FRAME '\1aREST-BLOCK-GEN>
 856                     <PUSH SVAR6>
 857                     <DEAD SVAR6>
 858                     <PUSH NUM7>
 859                     <DEAD NUM7>
 860                     <PUSH RES8>
 861                     <DEAD RES8>
 862                     <PUSH 2>
 863                     <PUSH 'UVECTOR>
 864                     <CALL '\1aREST-BLOCK-GEN 5 = TEMP11>
 865                     <RETURN TEMP11>
 866                     <DEAD TEMP11>
 867                     <END \1aREST-UVECTOR-GEN>
 868 <MSETG TYP-MASK <PUTBITS -1 <BITS 6 16> 0>>
 869
 870 <MSETG PTYP-MASK <PUTBITS 0 <BITS 3 16> -1>>
 871
 872 #WORD *27265716755*
 873 <GFCN \1aREST-BLOCK-GEN ("VALUE" ATOM ANY <OR FIX VARTBL> <OR VARTBL ATOM> FIX <OR ATOM FALSE> "OPTIONAL" ANY ANY ANY ANY) SVAR9 NUM10 RES11 SHFT12 TYP13 INS14 ELAC15 PUT?16 TYPE-ADDR17>
 874                     <OPT-DISPATCH 5 %<> OPT4 OPT5 OPT6 OPT7 OPT8>
 875 OPT4
 876                     <PUSH %<>>
 877 OPT5
 878                     <PUSH %<>>
 879 OPT6
 880                     <PUSH %<>>
 881 OPT7
 882                     <PUSH %<>>
 883 OPT8
 884                     <TEMP>
 885                     <INTGO>
 886                     <EQUAL? SVAR9 RES11 - PHRASE19>
 887                     <TYPE? NUM10 <TYPE-CODE FIX> - PHRASE21>
 888                     <FRAME '\1aFIX-R-B-G-SELF>
 889                     <PUSH SVAR9>
 890                     <DEAD SVAR9>
 891                     <PUSH NUM10>
 892                     <DEAD NUM10>
 893                     <PUSH SHFT12>
 894                     <DEAD SHFT12>
 895                     <PUSH TYP13>
 896                     <DEAD TYP13>
 897                     <PUSH INS14>
 898                     <DEAD INS14>
 899                     <PUSH ELAC15>
 900                     <DEAD ELAC15>
 901                     <PUSH PUT?16>
 902                     <DEAD PUT?16>
 903                     <PUSH TYPE-ADDR17>
 904                     <DEAD TYPE-ADDR17>
 905                     <CALL '\1aFIX-R-B-G-SELF 8>
 906                     <JUMP + PHRASE30>
 907 PHRASE21
 908                     <FRAME '\1aR-B-G-SELF>
 909                     <PUSH SVAR9>
 910                     <DEAD SVAR9>
 911                     <PUSH NUM10>
 912                     <DEAD NUM10>
 913                     <PUSH SHFT12>
 914                     <DEAD SHFT12>
 915                     <PUSH TYP13>
 916                     <DEAD TYP13>
 917                     <CALL '\1aR-B-G-SELF 4>
 918                     <JUMP + PHRASE30>
 919 PHRASE19
 920                     <TYPE? SVAR9 <TYPE-CODE VARTBL> + PHRASE25>
 921                     <FRAME '\1aR-B-G-Q>
 922                     <PUSH SVAR9>
 923                     <PUSH NUM10>
 924                     <DEAD NUM10>
 925                     <PUSH RES11>
 926                     <DEAD RES11>
 927                     <PUSH SHFT12>
 928                     <DEAD SHFT12>
 929                     <FRAME '\1aPRIMTYPE>
 930                     <PUSH SVAR9>
 931                     <DEAD SVAR9>
 932                     <CALL '\1aPRIMTYPE 1 = STACK>
 933                     <CALL '\1aR-B-G-Q 5>
 934                     <JUMP + PHRASE30>
 935 PHRASE25
 936                     <TYPE? NUM10 <TYPE-CODE FIX> - PHRASE28>
 937                     <FRAME '\1aFIX-R-B-G-OTHER>
 938                     <PUSH SVAR9>
 939                     <DEAD SVAR9>
 940                     <PUSH NUM10>
 941                     <DEAD NUM10>
 942                     <PUSH RES11>
 943                     <DEAD RES11>
 944                     <PUSH SHFT12>
 945                     <DEAD SHFT12>
 946                     <PUSH TYP13>
 947                     <DEAD TYP13>
 948                     <PUSH INS14>
 949                     <DEAD INS14>
 950                     <PUSH ELAC15>
 951                     <DEAD ELAC15>
 952                     <PUSH PUT?16>
 953                     <DEAD PUT?16>
 954                     <PUSH TYPE-ADDR17>
 955                     <DEAD TYPE-ADDR17>
 956                     <CALL '\1aFIX-R-B-G-OTHER 9>
 957                     <JUMP + PHRASE30>
 958 PHRASE28
 959                     <FRAME '\1aR-B-G>
 960                     <PUSH SVAR9>
 961                     <DEAD SVAR9>
 962                     <PUSH NUM10>
 963                     <DEAD NUM10>
 964                     <PUSH RES11>
 965                     <DEAD RES11>
 966                     <PUSH SHFT12>
 967                     <DEAD SHFT12>
 968                     <PUSH TYP13>
 969                     <DEAD TYP13>
 970                     <CALL '\1aR-B-G 5>
 971 PHRASE30
 972                     <FRAME '\1aCLEAR-STATUS>
 973                     <CALL '\1aCLEAR-STATUS 0>
 974                     <RETURN 'NORMAL>
 975                     <END \1aREST-BLOCK-GEN>
 976 #WORD *21141104606*
 977 <GFCN \1aFIX-R-B-G-SELF ("VALUE" ATOM VARTBL FIX FIX <OR ATOM FALSE> ANY ANY ANY ANY) SVAR4 NUM5 SHFT6 TYP7 INS8 ELAC9 PUT?10 TYPE-ADDR11>
 978                     <TEMP (VAC12 %<>) (TAC13 %<>) (CAC14 %<>) (COUNT-STORED?16 %<>) LV15 TEMP28>
 979                     <INTGO>
 980                     <FRAME '\1aFIND-CACHE-VAR>
 981                     <PUSH SVAR4>
 982                     <CALL '\1aFIND-CACHE-VAR 1 = LV15>
 983                     <TYPE? LV15 <TYPE-CODE FALSE> + PHRASE30>
 984                     <NTHUV LV15 6 = VAC12>
 985                     <TYPE? VAC12 <TYPE-CODE FALSE> + PHRASE21>
 986                     <FRAME '\1aPROTECT>
 987                     <PUSH VAC12>
 988                     <CALL '\1aPROTECT 1>
 989 PHRASE21
 990                     <NTHUV LV15 9 = TAC13>
 991                     <TYPE? TAC13 <TYPE-CODE FALSE> - PHRASE24>
 992                     <NTHUV LV15 3 = TEMP28>
 993                     <TYPE? TEMP28 <TYPE-CODE FALSE> - PHRASE30>
 994                     <DEAD TEMP28>
 995                     <NTHUV LV15 8 = CAC14>
 996                     <DEAD LV15>
 997                     <TYPE? CAC14 <TYPE-CODE FALSE> + PHRASE30>
 998                     <FRAME '\1aPROTECT>
 999                     <PUSH CAC14>
1000                     <CALL '\1aPROTECT 1>
1001                     <JUMP + PHRASE30>
1002 PHRASE24
1003                     <FRAME '\1aPROTECT>
1004                     <PUSH TAC13>
1005                     <CALL '\1aPROTECT 1>
1006 PHRASE30
1007                     <FRAME '\1aDEAD-VAR>
1008                     <PUSH SVAR4>
1009                     <CALL '\1aDEAD-VAR 1>
1010                     <TYPE? VAC12 <TYPE-CODE FALSE> + PHRASE34>
1011                     <FRAME '\1aMUNG-AC>
1012                     <PUSH VAC12>
1013                     <CALL '\1aMUNG-AC 1>
1014 PHRASE34
1015                     <TYPE? TAC13 <TYPE-CODE FALSE> + PHRASE37>
1016                     <FRAME '\1aMUNG-AC>
1017                     <PUSH TAC13>
1018                     <CALL '\1aMUNG-AC 1>
1019                     <JUMP + PHRASE39>
1020 PHRASE37
1021                     <TYPE? CAC14 <TYPE-CODE FALSE> + PHRASE39>
1022                     <FRAME '\1aMUNG-AC>
1023                     <PUSH CAC14>
1024                     <CALL '\1aMUNG-AC 1>
1025 PHRASE39
1026                     <TYPE? INS8 <TYPE-CODE FALSE> + PHRASE44>
1027                     <TYPE? VAC12 <TYPE-CODE FALSE> - PHRASE44>
1028                     <FRAME '\1aLOAD-VAR>
1029                     <PUSH SVAR4>
1030                     <PUSH 'VALUE>
1031                     <PUSH 'T>
1032                     <PUSH 'PREF-VAL>
1033                     <CALL '\1aLOAD-VAR 4 = VAC12>
1034 PHRASE44
1035                     <TYPE? TAC13 <TYPE-CODE FALSE> + PHRASE47>
1036                     <FRAME '\1aEMIT>
1037                     <PUSH 192>
1038                     <FRAME '\1aMA-IMM>
1039                     <SUB 0 NUM5 = TEMP28 (TYPE FIX)>
1040                     <LSH TEMP28 16 = STACK (TYPE FIX)>
1041                     <DEAD TEMP28>
1042                     <CALL '\1aMA-IMM 1 = STACK>
1043                     <NTHUV TAC13 2 = TEMP28 (TYPE FIX)>
1044                     <OR TEMP28 #WORD *120* = TEMP28>
1045                     <LSH TEMP28 24 = TEMP28 (TYPE FIX)>
1046                     <CHTYPE TEMP28 <TYPE-CODE EFF-ADDR> = STACK>
1047                     <DEAD TEMP28>
1048                     <CALL '\1aEMIT 3>
1049                     <JUMP + PHRASE66>
1050 PHRASE47
1051                     <TYPE? CAC14 <TYPE-CODE FALSE> + PHRASE50>
1052                     <VEQUAL? NUM5 1 - PHRASE52 (TYPE FIX)>
1053                     <FRAME '\1aEMIT>
1054                     <PUSH 215>
1055                     <NTHUV CAC14 2 = TEMP28 (TYPE FIX)>
1056                     <OR TEMP28 #WORD *120* = TEMP28>
1057                     <LSH TEMP28 24 = TEMP28 (TYPE FIX)>
1058                     <CHTYPE TEMP28 <TYPE-CODE EFF-ADDR> = STACK>
1059                     <DEAD TEMP28>
1060                     <CALL '\1aEMIT 2>
1061                     <JUMP + PHRASE66>
1062 PHRASE52
1063                     <FRAME '\1aEMIT>
1064                     <PUSH 194>
1065                     <FRAME '\1aMA-IMM>
1066                     <PUSH NUM5>
1067                     <CALL '\1aMA-IMM 1 = STACK>
1068                     <NTHUV CAC14 2 = TEMP28 (TYPE FIX)>
1069                     <OR TEMP28 #WORD *120* = TEMP28>
1070                     <LSH TEMP28 24 = TEMP28 (TYPE FIX)>
1071                     <CHTYPE TEMP28 <TYPE-CODE EFF-ADDR> = STACK>
1072                     <DEAD TEMP28>
1073                     <CALL '\1aEMIT 3>
1074                     <JUMP + PHRASE66>
1075 PHRASE50
1076                     <SET COUNT-STORED?16 'T (TYPE ATOM)>
1077                     <VEQUAL? NUM5 1 - PHRASE61 (TYPE FIX)>
1078                     <FRAME '\1aEMIT>
1079                     <PUSH 183>
1080                     <FRAME '\1aVAR-COUNT-ADDRESS>
1081                     <PUSH SVAR4>
1082                     <CALL '\1aVAR-COUNT-ADDRESS 1 = STACK>
1083                     <CALL '\1aEMIT 2>
1084                     <JUMP + PHRASE66>
1085 PHRASE61
1086                     <FRAME '\1aEMIT>
1087                     <PUSH 162>
1088                     <FRAME '\1aMA-IMM>
1089                     <PUSH NUM5>
1090                     <CALL '\1aMA-IMM 1 = STACK>
1091                     <FRAME '\1aVAR-COUNT-ADDRESS>
1092                     <PUSH SVAR4>
1093                     <CALL '\1aVAR-COUNT-ADDRESS 1 = STACK>
1094                     <CALL '\1aEMIT 3>
1095 PHRASE66
1096                     <FRAME '\1aSHIFT-NUM>
1097                     <PUSH NUM5>
1098                     <DEAD NUM5>
1099                     <PUSH SHFT6>
1100                     <DEAD SHFT6>
1101                     <CALL '\1aSHIFT-NUM 2 = NUM5>
1102                     <TYPE? INS8 <TYPE-CODE FALSE> + PHRASE72>
1103                     <TYPE? INS8 <TYPE-CODE ATOM> + PHRASE96>
1104                     <TYPE? PUT?10 <TYPE-CODE FALSE> + PHRASE74>
1105                     <DEAD PUT?10>
1106                     <TYPE? TYPE-ADDR11 <TYPE-CODE FALSE> + PHRASE76>
1107                     <FRAME '\1aEMIT>
1108                     <PUSH 208>
1109                     <PUSH TYPE-ADDR11>
1110                     <DEAD TYPE-ADDR11>
1111                     <NTHUV VAC12 2 = TEMP28 (TYPE FIX)>
1112                     <OR TEMP28 #WORD *200* = TEMP28>
1113                     <LSH TEMP28 24 = TEMP28 (TYPE FIX)>
1114                     <CHTYPE TEMP28 <TYPE-CODE EFF-ADDR> = STACK>
1115                     <DEAD TEMP28>
1116                     <CALL '\1aEMIT 3>
1117                     <FRAME '\1aEMIT>
1118                     <PUSH 208>
1119                     <TYPE? ELAC9 <TYPE-CODE AC> - PHRASE80>
1120                     <NTHUV ELAC9 2 = TEMP28 (TYPE FIX)>
1121                     <DEAD ELAC9>
1122                     <OR TEMP28 #WORD *120* = TEMP28>
1123                     <LSH TEMP28 24 = TEMP28 (TYPE FIX)>
1124                     <CHTYPE TEMP28 <TYPE-CODE EFF-ADDR> = TEMP28>
1125                     <JUMP + COND79>
1126 PHRASE80
1127                     <SET TEMP28 ELAC9>
1128                     <DEAD ELAC9>
1129 COND79
1130                     <PUSH TEMP28>
1131                     <DEAD TEMP28>
1132                     <NTHUV VAC12 2 = TEMP28 (TYPE FIX)>
1133                     <OR TEMP28 #WORD *200* = TEMP28>
1134                     <LSH TEMP28 24 = TEMP28 (TYPE FIX)>
1135                     <CHTYPE TEMP28 <TYPE-CODE EFF-ADDR> = STACK>
1136                     <DEAD TEMP28>
1137                     <CALL '\1aEMIT 3>
1138                     <JUMP + PHRASE96>
1139 PHRASE76
1140                     <FRAME '\1aEMIT>
1141                     <PUSH INS8>
1142                     <DEAD INS8>
1143                     <TYPE? ELAC9 <TYPE-CODE AC> - PHRASE84>
1144                     <NTHUV ELAC9 2 = TEMP28 (TYPE FIX)>
1145                     <DEAD ELAC9>
1146                     <OR TEMP28 #WORD *120* = TEMP28>
1147                     <LSH TEMP28 24 = TEMP28 (TYPE FIX)>
1148                     <CHTYPE TEMP28 <TYPE-CODE EFF-ADDR> = TEMP28>
1149                     <JUMP + COND83>
1150 PHRASE84
1151                     <SET TEMP28 ELAC9>
1152                     <DEAD ELAC9>
1153 COND83
1154                     <PUSH TEMP28>
1155                     <DEAD TEMP28>
1156                     <NTHUV VAC12 2 = TEMP28 (TYPE FIX)>
1157                     <OR TEMP28 #WORD *200* = TEMP28>
1158                     <LSH TEMP28 24 = TEMP28 (TYPE FIX)>
1159                     <CHTYPE TEMP28 <TYPE-CODE EFF-ADDR> = STACK>
1160                     <DEAD TEMP28>
1161                     <CALL '\1aEMIT 3>
1162                     <JUMP + PHRASE96>
1163 PHRASE74
1164                     <FRAME '\1aEMIT>
1165                     <PUSH INS8>
1166                     <DEAD INS8>
1167                     <NTHUV VAC12 2 = TEMP28 (TYPE FIX)>
1168                     <OR TEMP28 #WORD *200* = TEMP28>
1169                     <LSH TEMP28 24 = TEMP28 (TYPE FIX)>
1170                     <CHTYPE TEMP28 <TYPE-CODE EFF-ADDR> = STACK>
1171                     <DEAD TEMP28>
1172                     <TYPE? ELAC9 <TYPE-CODE AC> - PHRASE87>
1173                     <NTHUV ELAC9 2 = TEMP28 (TYPE FIX)>
1174                     <DEAD ELAC9>
1175                     <OR TEMP28 #WORD *120* = TEMP28>
1176                     <LSH TEMP28 24 = TEMP28 (TYPE FIX)>
1177                     <CHTYPE TEMP28 <TYPE-CODE EFF-ADDR> = TEMP28>
1178                     <JUMP + COND86>
1179 PHRASE87
1180                     <SET TEMP28 ELAC9>
1181                     <DEAD ELAC9>
1182 COND86
1183                     <PUSH TEMP28>
1184                     <DEAD TEMP28>
1185                     <CALL '\1aEMIT 3>
1186                     <JUMP + PHRASE96>
1187 PHRASE72
1188                     <VEQUAL? NUM5 1 - PHRASE88 (TYPE FIX)>
1189                     <FRAME '\1aEMIT>
1190                     <PUSH 214>
1191                     <TYPE? VAC12 <TYPE-CODE FALSE> + PHRASE93>
1192                     <NTHUV VAC12 2 = TEMP28 (TYPE FIX)>
1193                     <OR TEMP28 #WORD *120* = TEMP28>
1194                     <LSH TEMP28 24 = TEMP28 (TYPE FIX)>
1195                     <CHTYPE TEMP28 <TYPE-CODE EFF-ADDR> = TEMP28>
1196                     <JUMP + PHRASE94>
1197 PHRASE93
1198                     <FRAME '\1aVAR-VALUE-ADDRESS>
1199                     <PUSH SVAR4>
1200                     <CALL '\1aVAR-VALUE-ADDRESS 1 = TEMP28>
1201 PHRASE94
1202                     <PUSH TEMP28>
1203                     <DEAD TEMP28>
1204                     <CALL '\1aEMIT 2>
1205                     <JUMP + PHRASE96>
1206 PHRASE88
1207                     <FRAME '\1aEMIT>
1208                     <PUSH 192>
1209                     <FRAME '\1aMA-IMM>
1210                     <PUSH NUM5>
1211                     <DEAD NUM5>
1212                     <CALL '\1aMA-IMM 1 = STACK>
1213                     <TYPE? VAC12 <TYPE-CODE FALSE> + PHRASE100>
1214                     <NTHUV VAC12 2 = TEMP28 (TYPE FIX)>
1215                     <OR TEMP28 #WORD *120* = TEMP28>
1216                     <LSH TEMP28 24 = TEMP28 (TYPE FIX)>
1217                     <CHTYPE TEMP28 <TYPE-CODE EFF-ADDR> = TEMP28>
1218                     <JUMP + PHRASE101>
1219 PHRASE100
1220                     <FRAME '\1aVAR-VALUE-ADDRESS>
1221                     <PUSH SVAR4>
1222                     <CALL '\1aVAR-VALUE-ADDRESS 1 = TEMP28>
1223 PHRASE101
1224                     <PUSH TEMP28>
1225                     <DEAD TEMP28>
1226                     <CALL '\1aEMIT 3>
1227 PHRASE96
1228                     <TYPE? VAC12 <TYPE-CODE FALSE> + PHRASE104>
1229                     <FRAME '\1aDEST-DECL>
1230                     <PUSH VAC12>
1231                     <PUSH SVAR4>
1232                     <PUSH TYP7>
1233                     <CALL '\1aDEST-DECL 3>
1234 PHRASE104
1235                     <TYPE? TAC13 <TYPE-CODE FALSE> + PHRASE107>
1236                     <TYPE? VAC12 <TYPE-CODE FALSE> + PHRASE109>
1237                     <FRAME '\1aDEST-PAIR>
1238                     <PUSH VAC12>
1239                     <DEAD VAC12>
1240                     <PUSH TAC13>
1241                     <DEAD TAC13>
1242                     <PUSH SVAR4>
1243                     <CALL '\1aDEST-PAIR 3>
1244                     <JUMP + PHRASE117>
1245 PHRASE109
1246                     <FRAME '\1aLINK-VAR-TO-AC>
1247                     <PUSH SVAR4>
1248                     <PUSH TAC13>
1249                     <DEAD TAC13>
1250                     <PUSH 'TYPE-WORD>
1251                     <CALL '\1aLINK-VAR-TO-AC 3>
1252                     <JUMP + PHRASE117>
1253 PHRASE107
1254                     <TYPE? CAC14 <TYPE-CODE FALSE> + PHRASE117>
1255                     <TYPE? VAC12 <TYPE-CODE FALSE> + PHRASE115>
1256                     <FRAME '\1aDEST-COUNT-DECL>
1257                     <PUSH VAC12>
1258                     <DEAD VAC12>
1259                     <PUSH CAC14>
1260                     <DEAD CAC14>
1261                     <PUSH SVAR4>
1262                     <PUSH TYP7>
1263                     <DEAD TYP7>
1264                     <CALL '\1aDEST-COUNT-DECL 4>
1265                     <JUMP + PHRASE117>
1266 PHRASE115
1267                     <FRAME '\1aLINK-VAR-TO-AC>
1268                     <PUSH SVAR4>
1269                     <PUSH CAC14>
1270                     <DEAD CAC14>
1271                     <PUSH 'COUNT>
1272                     <CALL '\1aLINK-VAR-TO-AC 3>
1273                     <FRAME '\1aINDICATE-CACHED-VARIABLE-DECL>
1274                     <PUSH SVAR4>
1275                     <PUSH TYP7>
1276                     <DEAD TYP7>
1277                     <CALL '\1aINDICATE-CACHED-VARIABLE-DECL 2>
1278 PHRASE117
1279                     <FRAME '\1aFIND-CACHE-VAR>
1280                     <PUSH SVAR4>
1281                     <DEAD SVAR4>
1282                     <CALL '\1aFIND-CACHE-VAR 1 = LV15>
1283                     <TYPE? LV15 <TYPE-CODE FALSE> + PHRASE121>
1284                     <PUTUV LV15 4 'T>
1285                     <PUTUV LV15 3 COUNT-STORED?16>
1286                     <DEAD LV15 COUNT-STORED?16>
1287 PHRASE121
1288                     <RETURN 'T>
1289                     <END \1aFIX-R-B-G-SELF>
1290 #WORD *17361277236*
1291 <GFCN \1aFIX-R-B-G-OTHER ("VALUE" ANY VARTBL FIX ANY FIX <OR ATOM FALSE> ANY ANY ANY ANY) SVAR4 NUM5 RES6 SHFT7 TYP8 INS9 ELAC10 PUT?11 TYPE-ADDR12>
1292                     <TEMP (VAC13 %<>) (CAC14 %<>) (CN16 %<>) LV15 TEMP33>
1293                     <INTGO>
1294                     <TYPE? INS9 <TYPE-CODE FALSE> + PHRASE20>
1295                     <FRAME '\1aVAR-VALUE-IN-AC?>
1296                     <PUSH SVAR4>
1297                     <CALL '\1aVAR-VALUE-IN-AC? 1 = VAC13>
1298                     <TYPE? VAC13 <TYPE-CODE FALSE> - PHRASE20>
1299                     <FRAME '\1aLOAD-VAR>
1300                     <PUSH SVAR4>
1301                     <PUSH 'VALUE>
1302                     <PUSH 'T>
1303                     <PUSH 'PREF-VAL>
1304                     <CALL '\1aLOAD-VAR 4 = VAC13>
1305 PHRASE20
1306                     <FRAME '\1aFIND-CACHE-VAR>
1307                     <PUSH SVAR4>
1308                     <CALL '\1aFIND-CACHE-VAR 1 = LV15>
1309                     <TYPE? LV15 <TYPE-CODE FALSE> + PHRASE25>
1310                     <NTHUV LV15 9 = CAC14>
1311                     <TYPE? CAC14 <TYPE-CODE FALSE> + PHRASE25>
1312                     <TYPE? RES6 <TYPE-CODE VARTBL> - PHRASE28>
1313                     <FRAME '\1aMUNG-AC>
1314                     <PUSH CAC14>
1315                     <CALL '\1aMUNG-AC 1>
1316                     <FRAME '\1aPROTECT>
1317                     <PUSH CAC14>
1318                     <CALL '\1aPROTECT 1>
1319                     <FRAME '\1aEMIT>
1320                     <PUSH 192>
1321                     <FRAME '\1aMA-IMM>
1322                     <SUB 0 NUM5 = TEMP33 (TYPE FIX)>
1323                     <LSH TEMP33 16 = STACK (TYPE FIX)>
1324                     <DEAD TEMP33>
1325                     <CALL '\1aMA-IMM 1 = STACK>
1326                     <NTHUV CAC14 2 = TEMP33 (TYPE FIX)>
1327                     <OR TEMP33 #WORD *120* = TEMP33>
1328                     <LSH TEMP33 24 = TEMP33 (TYPE FIX)>
1329                     <CHTYPE TEMP33 <TYPE-CODE EFF-ADDR> = STACK>
1330                     <DEAD TEMP33>
1331                     <CALL '\1aEMIT 3>
1332                     <JUMP + PHRASE56>
1333 PHRASE28
1334                     <FRAME '\1aEMIT>
1335                     <PUSH 193>
1336                     <FRAME '\1aMA-IMM>
1337                     <SUB 0 NUM5 = TEMP33 (TYPE FIX)>
1338                     <LSH TEMP33 16 = STACK (TYPE FIX)>
1339                     <DEAD TEMP33>
1340                     <CALL '\1aMA-IMM 1 = STACK>
1341                     <NTHUV CAC14 2 = TEMP33 (TYPE FIX)>
1342                     <OR TEMP33 #WORD *120* = TEMP33>
1343                     <LSH TEMP33 24 = TEMP33 (TYPE FIX)>
1344                     <CHTYPE TEMP33 <TYPE-CODE EFF-ADDR> = STACK>
1345                     <DEAD TEMP33>
1346                     <GVAL 'AC-TP = TEMP33>
1347                     <NTHUV TEMP33 2 = TEMP33 (TYPE FIX)>
1348                     <OR TEMP33 #WORD *200* = TEMP33>
1349                     <LSH TEMP33 24 = TEMP33 (TYPE FIX)>
1350                     <CHTYPE TEMP33 <TYPE-CODE EFF-ADDR> = STACK>
1351                     <DEAD TEMP33>
1352                     <CALL '\1aEMIT 4>
1353                     <JUMP + PHRASE56>
1354 PHRASE25
1355                     <TYPE? LV15 <TYPE-CODE FALSE> + PHRASE37>
1356                     <NTHUV LV15 8 = CAC14>
1357                     <TYPE? CAC14 <TYPE-CODE FALSE> + PHRASE37>
1358                     <NTHUV LV15 3 = TEMP33>
1359                     <TYPE? TEMP33 <TYPE-CODE FALSE> - PHRASE37>
1360                     <DEAD TEMP33>
1361                     <TYPE? TYP8 <TYPE-CODE FALSE> + PHRASE37>
1362                     <SET CN16 'T (TYPE ATOM)>
1363                     <TYPE? RES6 <TYPE-CODE VARTBL> - PHRASE40>
1364                     <FRAME '\1aMUNG-AC>
1365                     <PUSH CAC14>
1366                     <CALL '\1aMUNG-AC 1>
1367                     <FRAME '\1aPROTECT>
1368                     <PUSH CAC14>
1369                     <CALL '\1aPROTECT 1>
1370                     <VEQUAL? NUM5 1 - PHRASE44 (TYPE FIX)>
1371                     <FRAME '\1aEMIT>
1372                     <PUSH 215>
1373                     <NTHUV CAC14 2 = TEMP33 (TYPE FIX)>
1374                     <OR TEMP33 #WORD *120* = TEMP33>
1375                     <LSH TEMP33 24 = TEMP33 (TYPE FIX)>
1376                     <CHTYPE TEMP33 <TYPE-CODE EFF-ADDR> = STACK>
1377                     <DEAD TEMP33>
1378                     <CALL '\1aEMIT 2>
1379                     <JUMP + PHRASE56>
1380 PHRASE44
1381                     <FRAME '\1aEMIT>
1382                     <PUSH 194>
1383                     <FRAME '\1aMA-IMM>
1384                     <PUSH NUM5>
1385                     <CALL '\1aMA-IMM 1 = STACK>
1386                     <NTHUV CAC14 2 = TEMP33 (TYPE FIX)>
1387                     <OR TEMP33 #WORD *120* = TEMP33>
1388                     <LSH TEMP33 24 = TEMP33 (TYPE FIX)>
1389                     <CHTYPE TEMP33 <TYPE-CODE EFF-ADDR> = STACK>
1390                     <DEAD TEMP33>
1391                     <CALL '\1aEMIT 3>
1392                     <JUMP + PHRASE56>
1393 PHRASE40
1394                     <FRAME '\1aEMIT-PUSH>
1395                     <FRAME '\1aTYPE-CODE>
1396                     <PUSH TYP8>
1397                     <CALL '\1aTYPE-CODE 1 = STACK>
1398                     <PUSH 'WORD>
1399                     <CALL '\1aEMIT-PUSH 2>
1400                     <FRAME '\1aEMIT>
1401                     <PUSH 163>
1402                     <FRAME '\1aMA-IMM>
1403                     <PUSH NUM5>
1404                     <CALL '\1aMA-IMM 1 = STACK>
1405                     <NTHUV CAC14 2 = TEMP33 (TYPE FIX)>
1406                     <OR TEMP33 #WORD *120* = TEMP33>
1407                     <LSH TEMP33 24 = TEMP33 (TYPE FIX)>
1408                     <CHTYPE TEMP33 <TYPE-CODE EFF-ADDR> = STACK>
1409                     <DEAD TEMP33>
1410                     <GVAL 'AC-TP = TEMP33>
1411                     <NTHUV TEMP33 2 = TEMP33 (TYPE FIX)>
1412                     <OR TEMP33 #WORD *200* = TEMP33>
1413                     <LSH TEMP33 24 = TEMP33 (TYPE FIX)>
1414                     <CHTYPE TEMP33 <TYPE-CODE EFF-ADDR> = STACK>
1415                     <DEAD TEMP33>
1416                     <CALL '\1aEMIT 4>
1417                     <JUMP + PHRASE56>
1418 PHRASE37
1419                     <TYPE? CAC14 <TYPE-CODE FALSE> + PHRASE58>
1420                     <FRAME '\1aMUNG-AC>
1421                     <PUSH CAC14>
1422                     <CALL '\1aMUNG-AC 1>
1423                     <FRAME '\1aFIND-CACHE-VAR>
1424                     <PUSH SVAR4>
1425                     <CALL '\1aFIND-CACHE-VAR 1 = LV15>
1426 PHRASE58
1427                     <EQUAL? RES6 'STACK + PHRASE65>
1428                     <TYPE? LV15 <TYPE-CODE FALSE> + PHRASE62>
1429                     <NTHUV LV15 6 = TEMP33>
1430                     <TYPE? TEMP33 <TYPE-CODE FALSE> + PHRASE62>
1431                     <DEAD TEMP33>
1432                     <FRAME '\1aGET-AC>
1433                     <PUSH 'PREF-TYPE>
1434                     <PUSH 'T>
1435                     <CALL '\1aGET-AC 2 = CAC14>
1436                     <JUMP + PHRASE65>
1437 PHRASE62
1438                     <FRAME '\1aGET-AC>
1439                     <PUSH 'DOUBLE>
1440                     <PUSH 'T>
1441                     <CALL '\1aGET-AC 2 = CAC14>
1442                     <FRAME '\1aNEXT-AC>
1443                     <PUSH CAC14>
1444                     <CALL '\1aNEXT-AC 1 = VAC13>
1445 PHRASE65
1446                     <FRAME '\1aEMIT>
1447                     <PUSH 193>
1448                     <FRAME '\1aMA-IMM>
1449                     <SUB 0 NUM5 = TEMP33 (TYPE FIX)>
1450                     <LSH TEMP33 16 = STACK (TYPE FIX)>
1451                     <DEAD TEMP33>
1452                     <CALL '\1aMA-IMM 1 = STACK>
1453                     <FRAME '\1aVAR-TYPE-ADDRESS>
1454                     <PUSH SVAR4>
1455                     <PUSH 'TYPE-WORD>
1456                     <CALL '\1aVAR-TYPE-ADDRESS 2 = STACK>
1457                     <EQUAL? RES6 'STACK - PHRASE72>
1458                     <GVAL 'AC-TP = TEMP33>
1459                     <NTHUV TEMP33 2 = TEMP33 (TYPE FIX)>
1460                     <OR TEMP33 #WORD *200* = TEMP33>
1461                     <LSH TEMP33 24 = TEMP33 (TYPE FIX)>
1462                     <CHTYPE TEMP33 <TYPE-CODE EFF-ADDR> = TEMP33>
1463                     <JUMP + PHRASE73>
1464 PHRASE72
1465                     <NTHUV CAC14 2 = TEMP33 (TYPE FIX)>
1466                     <OR TEMP33 #WORD *120* = TEMP33>
1467                     <LSH TEMP33 24 = TEMP33 (TYPE FIX)>
1468                     <CHTYPE TEMP33 <TYPE-CODE EFF-ADDR> = TEMP33>
1469 PHRASE73
1470                     <PUSH TEMP33>
1471                     <DEAD TEMP33>
1472                     <CALL '\1aEMIT 4>
1473 PHRASE56
1474                     <FRAME '\1aSHIFT-NUM>
1475                     <PUSH NUM5>
1476                     <DEAD NUM5>
1477                     <PUSH SHFT7>
1478                     <DEAD SHFT7>
1479                     <CALL '\1aSHIFT-NUM 2 = NUM5>
1480                     <TYPE? INS9 <TYPE-CODE FALSE> + PHRASE77>
1481                     <TYPE? INS9 <TYPE-CODE ATOM> + PHRASE127>
1482                     <TYPE? PUT?11 <TYPE-CODE FALSE> + PHRASE81>
1483                     <DEAD PUT?11>
1484                     <TYPE? TYPE-ADDR12 <TYPE-CODE FALSE> + PHRASE83>
1485                     <FRAME '\1aEMIT>
1486                     <PUSH 208>
1487                     <PUSH TYPE-ADDR12>
1488                     <DEAD TYPE-ADDR12>
1489                     <NTHUV VAC13 2 = TEMP33 (TYPE FIX)>
1490                     <OR TEMP33 #WORD *200* = TEMP33>
1491                     <LSH TEMP33 24 = TEMP33 (TYPE FIX)>
1492                     <CHTYPE TEMP33 <TYPE-CODE EFF-ADDR> = STACK>
1493                     <DEAD TEMP33>
1494                     <CALL '\1aEMIT 3>
1495                     <FRAME '\1aEMIT>
1496                     <PUSH 208>
1497                     <TYPE? ELAC10 <TYPE-CODE AC> - PHRASE87>
1498                     <NTHUV ELAC10 2 = TEMP33 (TYPE FIX)>
1499                     <DEAD ELAC10>
1500                     <OR TEMP33 #WORD *120* = TEMP33>
1501                     <LSH TEMP33 24 = TEMP33 (TYPE FIX)>
1502                     <CHTYPE TEMP33 <TYPE-CODE EFF-ADDR> = TEMP33>
1503                     <JUMP + COND86>
1504 PHRASE87
1505                     <SET TEMP33 ELAC10>
1506                     <DEAD ELAC10>
1507 COND86
1508                     <PUSH TEMP33>
1509                     <DEAD TEMP33>
1510                     <NTHUV VAC13 2 = TEMP33 (TYPE FIX)>
1511                     <OR TEMP33 #WORD *200* = TEMP33>
1512                     <LSH TEMP33 24 = TEMP33 (TYPE FIX)>
1513                     <CHTYPE TEMP33 <TYPE-CODE EFF-ADDR> = STACK>
1514                     <DEAD TEMP33>
1515                     <CALL '\1aEMIT 3>
1516                     <JUMP + PHRASE127>
1517 PHRASE83
1518                     <FRAME '\1aEMIT>
1519                     <PUSH INS9>
1520                     <DEAD INS9>
1521                     <TYPE? ELAC10 <TYPE-CODE AC> - PHRASE91>
1522                     <NTHUV ELAC10 2 = TEMP33 (TYPE FIX)>
1523                     <DEAD ELAC10>
1524                     <OR TEMP33 #WORD *120* = TEMP33>
1525                     <LSH TEMP33 24 = TEMP33 (TYPE FIX)>
1526                     <CHTYPE TEMP33 <TYPE-CODE EFF-ADDR> = TEMP33>
1527                     <JUMP + COND90>
1528 PHRASE91
1529                     <SET TEMP33 ELAC10>
1530                     <DEAD ELAC10>
1531 COND90
1532                     <PUSH TEMP33>
1533                     <DEAD TEMP33>
1534                     <NTHUV VAC13 2 = TEMP33 (TYPE FIX)>
1535                     <OR TEMP33 #WORD *200* = TEMP33>
1536                     <LSH TEMP33 24 = TEMP33 (TYPE FIX)>
1537                     <CHTYPE TEMP33 <TYPE-CODE EFF-ADDR> = STACK>
1538                     <DEAD TEMP33>
1539                     <CALL '\1aEMIT 3>
1540                     <JUMP + PHRASE127>
1541 PHRASE81
1542                     <FRAME '\1aEMIT>
1543                     <PUSH INS9>
1544                     <DEAD INS9>
1545                     <NTHUV VAC13 2 = TEMP33 (TYPE FIX)>
1546                     <OR TEMP33 #WORD *200* = TEMP33>
1547                     <LSH TEMP33 24 = TEMP33 (TYPE FIX)>
1548                     <CHTYPE TEMP33 <TYPE-CODE EFF-ADDR> = STACK>
1549                     <DEAD TEMP33>
1550                     <TYPE? ELAC10 <TYPE-CODE AC> - PHRASE95>
1551                     <NTHUV ELAC10 2 = TEMP33 (TYPE FIX)>
1552                     <DEAD ELAC10>
1553                     <OR TEMP33 #WORD *120* = TEMP33>
1554                     <LSH TEMP33 24 = TEMP33 (TYPE FIX)>
1555                     <CHTYPE TEMP33 <TYPE-CODE EFF-ADDR> = TEMP33>
1556                     <JUMP + COND94>
1557 PHRASE95
1558                     <SET TEMP33 ELAC10>
1559                     <DEAD ELAC10>
1560 COND94
1561                     <PUSH TEMP33>
1562                     <DEAD TEMP33>
1563                     <CALL '\1aEMIT 3>
1564                     <JUMP + PHRASE127>
1565 PHRASE77
1566                     <EQUAL? RES6 'STACK - PHRASE96>
1567                     <FRAME '\1aVAR-VALUE-IN-AC?>
1568                     <PUSH SVAR4>
1569                     <CALL '\1aVAR-VALUE-IN-AC? 1 = VAC13>
1570                     <TYPE? VAC13 <TYPE-CODE FALSE> + PHRASE98>
1571                     <FRAME '\1aEMIT>
1572                     <PUSH 222>
1573                     <FRAME '\1aMA-DISP>
1574                     <PUSH VAC13>
1575                     <PUSH NUM5>
1576                     <DEAD NUM5>
1577                     <CALL '\1aMA-DISP 2 = STACK>
1578                     <GVAL 'AC-TP = TEMP33>
1579                     <NTHUV TEMP33 2 = TEMP33 (TYPE FIX)>
1580                     <OR TEMP33 #WORD *200* = TEMP33>
1581                     <LSH TEMP33 24 = TEMP33 (TYPE FIX)>
1582                     <CHTYPE TEMP33 <TYPE-CODE EFF-ADDR> = STACK>
1583                     <DEAD TEMP33>
1584                     <CALL '\1aEMIT 3>
1585                     <JUMP + PHRASE127>
1586 PHRASE98
1587                     <FRAME '\1aEMIT>
1588                     <PUSH 193>
1589                     <FRAME '\1aMA-IMM>
1590                     <PUSH NUM5>
1591                     <DEAD NUM5>
1592                     <CALL '\1aMA-IMM 1 = STACK>
1593                     <FRAME '\1aVAR-VALUE-ADDRESS>
1594                     <PUSH SVAR4>
1595                     <DEAD SVAR4>
1596                     <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
1597                     <GVAL 'AC-TP = TEMP33>
1598                     <NTHUV TEMP33 2 = TEMP33 (TYPE FIX)>
1599                     <OR TEMP33 #WORD *200* = TEMP33>
1600                     <LSH TEMP33 24 = TEMP33 (TYPE FIX)>
1601                     <CHTYPE TEMP33 <TYPE-CODE EFF-ADDR> = STACK>
1602                     <DEAD TEMP33>
1603                     <CALL '\1aEMIT 4>
1604                     <JUMP + PHRASE127>
1605 PHRASE96
1606                     <TYPE? LV15 <TYPE-CODE FALSE> + PHRASE106>
1607                     <NTHUV LV15 6 = VAC13>
1608                     <DEAD LV15>
1609                     <TYPE? VAC13 <TYPE-CODE FALSE> + PHRASE106>
1610                     <FRAME '\1aMUNG-AC>
1611                     <PUSH VAC13>
1612                     <CALL '\1aMUNG-AC 1>
1613                     <VEQUAL? NUM5 1 - PHRASE110 (TYPE FIX)>
1614                     <FRAME '\1aEMIT>
1615                     <PUSH 214>
1616                     <NTHUV VAC13 2 = TEMP33 (TYPE FIX)>
1617                     <OR TEMP33 #WORD *120* = TEMP33>
1618                     <LSH TEMP33 24 = TEMP33 (TYPE FIX)>
1619                     <CHTYPE TEMP33 <TYPE-CODE EFF-ADDR> = STACK>
1620                     <DEAD TEMP33>
1621                     <CALL '\1aEMIT 2>
1622                     <JUMP + PHRASE127>
1623 PHRASE110
1624                     <FRAME '\1aEMIT>
1625                     <PUSH 192>
1626                     <FRAME '\1aMA-IMM>
1627                     <PUSH NUM5>
1628                     <DEAD NUM5>
1629                     <CALL '\1aMA-IMM 1 = STACK>
1630                     <NTHUV VAC13 2 = TEMP33 (TYPE FIX)>
1631                     <OR TEMP33 #WORD *120* = TEMP33>
1632                     <LSH TEMP33 24 = TEMP33 (TYPE FIX)>
1633                     <CHTYPE TEMP33 <TYPE-CODE EFF-ADDR> = STACK>
1634                     <DEAD TEMP33>
1635                     <CALL '\1aEMIT 3>
1636                     <JUMP + PHRASE127>
1637 PHRASE106
1638                     <FRAME '\1aVAR-VALUE-IN-AC?>
1639                     <PUSH SVAR4>
1640                     <CALL '\1aVAR-VALUE-IN-AC? 1 = TEMP33>
1641                     <TYPE? TEMP33 <TYPE-CODE FALSE> + PHRASE119>
1642                     <DEAD TEMP33>
1643                     <FRAME '\1aEMIT>
1644                     <PUSH 222>
1645                     <FRAME '\1aMA-DISP>
1646                     <FRAME '\1aVAR-VALUE-IN-AC?>
1647                     <PUSH SVAR4>
1648                     <DEAD SVAR4>
1649                     <CALL '\1aVAR-VALUE-IN-AC? 1 = STACK>
1650                     <PUSH NUM5>
1651                     <DEAD NUM5>
1652                     <CALL '\1aMA-DISP 2 = STACK>
1653                     <SET TEMP33 VAC13>
1654                     <TYPE? TEMP33 <TYPE-CODE FALSE> - PHRASE125>
1655                     <FRAME '\1aGET-AC>
1656                     <PUSH 'PREF-VAL>
1657                     <PUSH 'T>
1658                     <CALL '\1aGET-AC 2 = VAC13>
1659                     <SET TEMP33 VAC13>
1660 PHRASE125
1661                     <NTHUV TEMP33 2 = TEMP33 (TYPE FIX)>
1662                     <OR TEMP33 #WORD *120* = TEMP33>
1663                     <LSH TEMP33 24 = TEMP33 (TYPE FIX)>
1664                     <CHTYPE TEMP33 <TYPE-CODE EFF-ADDR> = STACK>
1665                     <DEAD TEMP33>
1666                     <CALL '\1aEMIT 3>
1667                     <JUMP + PHRASE127>
1668 PHRASE119
1669                     <FRAME '\1aEMIT>
1670                     <PUSH 193>
1671                     <FRAME '\1aMA-IMM>
1672                     <PUSH NUM5>
1673                     <DEAD NUM5>
1674                     <CALL '\1aMA-IMM 1 = STACK>
1675                     <FRAME '\1aVAR-VALUE-ADDRESS>
1676                     <PUSH SVAR4>
1677                     <DEAD SVAR4>
1678                     <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
1679                     <SET TEMP33 VAC13>
1680                     <TYPE? TEMP33 <TYPE-CODE FALSE> - PHRASE132>
1681                     <FRAME '\1aGET-AC>
1682                     <PUSH 'PREF-VAL>
1683                     <PUSH 'T>
1684                     <CALL '\1aGET-AC 2 = VAC13>
1685                     <SET TEMP33 VAC13>
1686 PHRASE132
1687                     <NTHUV TEMP33 2 = TEMP33 (TYPE FIX)>
1688                     <OR TEMP33 #WORD *120* = TEMP33>
1689                     <LSH TEMP33 24 = TEMP33 (TYPE FIX)>
1690                     <CHTYPE TEMP33 <TYPE-CODE EFF-ADDR> = STACK>
1691                     <DEAD TEMP33>
1692                     <CALL '\1aEMIT 4>
1693 PHRASE127
1694                     <EQUAL? RES6 'STACK - TAG136>
1695                     <RETURN %<>>
1696 TAG136
1697                     <VEQUAL? CN16 0 - PHRASE138>
1698                     <DEAD CN16>
1699                     <FRAME '\1aDEST-PAIR>
1700                     <PUSH VAC13>
1701                     <DEAD VAC13>
1702                     <PUSH CAC14>
1703                     <DEAD CAC14>
1704                     <PUSH RES6>
1705                     <DEAD RES6>
1706                     <CALL '\1aDEST-PAIR 3 = TEMP33>
1707                     <RETURN TEMP33>
1708                     <DEAD TEMP33>
1709 PHRASE138
1710                     <FRAME '\1aDEST-COUNT-DECL>
1711                     <PUSH VAC13>
1712                     <DEAD VAC13>
1713                     <PUSH CAC14>
1714                     <DEAD CAC14>
1715                     <PUSH RES6>
1716                     <DEAD RES6>
1717                     <PUSH TYP8>
1718                     <DEAD TYP8>
1719                     <CALL '\1aDEST-COUNT-DECL 4 = TEMP33>
1720                     <RETURN TEMP33>
1721                     <DEAD TEMP33>
1722                     <END \1aFIX-R-B-G-OTHER>
1723 #WORD *23267075325*
1724 <GFCN \1aR-B-G-SELF ("VALUE" <OR FALSE LINKVAR> VARTBL VARTBL FIX <OR ATOM FALSE>) SVAR4 NUM5 SHFT6 TYP7>
1725                     <TEMP (VAC8 %<>) (TAC9 %<>) (CAC10 %<>) (NAC12 %<>) (COUNT-STORED?13 %<>) LV11 TEMP25>
1726                     <INTGO>
1727                     <FRAME '\1aFIND-CACHE-VAR>
1728                     <PUSH SVAR4>
1729                     <CALL '\1aFIND-CACHE-VAR 1 = LV11>
1730                     <TYPE? LV11 <TYPE-CODE FALSE> + PHRASE27>
1731                     <NTHUV LV11 6 = VAC8>
1732                     <TYPE? VAC8 <TYPE-CODE FALSE> + PHRASE18>
1733                     <FRAME '\1aPROTECT>
1734                     <PUSH VAC8>
1735                     <CALL '\1aPROTECT 1>
1736 PHRASE18
1737                     <NTHUV LV11 9 = TAC9>
1738                     <TYPE? TAC9 <TYPE-CODE FALSE> - PHRASE21>
1739                     <NTHUV LV11 3 = TEMP25>
1740                     <TYPE? TEMP25 <TYPE-CODE FALSE> - PHRASE27>
1741                     <DEAD TEMP25>
1742                     <NTHUV LV11 8 = CAC10>
1743                     <DEAD LV11>
1744                     <TYPE? CAC10 <TYPE-CODE FALSE> + PHRASE27>
1745                     <FRAME '\1aPROTECT>
1746                     <PUSH CAC10>
1747                     <CALL '\1aPROTECT 1>
1748                     <JUMP + PHRASE27>
1749 PHRASE21
1750                     <FRAME '\1aMUNG-AC>
1751                     <PUSH TAC9>
1752                     <CALL '\1aMUNG-AC 1>
1753 PHRASE27
1754                     <FRAME '\1aDEAD-VAR>
1755                     <PUSH SVAR4>
1756                     <CALL '\1aDEAD-VAR 1>
1757                     <TYPE? VAC8 <TYPE-CODE FALSE> + PHRASE31>
1758                     <FRAME '\1aMUNG-AC>
1759                     <PUSH VAC8>
1760                     <CALL '\1aMUNG-AC 1>
1761 PHRASE31
1762                     <TYPE? TAC9 <TYPE-CODE FALSE> - PHRASE34>
1763                     <TYPE? CAC10 <TYPE-CODE FALSE> + PHRASE34>
1764                     <FRAME '\1aMUNG-AC>
1765                     <PUSH CAC10>
1766                     <CALL '\1aMUNG-AC 1>
1767 PHRASE34
1768                     <VEQUAL? SHFT6 0 + PHRASE37 (TYPE FIX)>
1769                     <FRAME '\1aLOAD-VAR>
1770                     <PUSH NUM5>
1771                     <PUSH 'VALUE>
1772                     <PUSH %<>>
1773                     <PUSH 'PREF-VAL>
1774                     <CALL '\1aLOAD-VAR 4 = NAC12>
1775 PHRASE37
1776                     <TYPE? TAC9 <TYPE-CODE FALSE> + PHRASE42>
1777                     <DEAD TAC9>
1778                     <SET TAC9 %<> (TYPE FALSE)>
1779                     <FRAME '\1aEMIT>
1780                     <PUSH 162>
1781                     <FRAME '\1aVAR-VALUE-ADDRESS>
1782                     <PUSH NUM5>
1783                     <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
1784                     <FRAME '\1aVAR-COUNT-ADDRESS>
1785                     <PUSH SVAR4>
1786                     <CALL '\1aVAR-COUNT-ADDRESS 1 = STACK>
1787                     <CALL '\1aEMIT 3>
1788                     <SET COUNT-STORED?13 'T (TYPE ATOM)>
1789                     <JUMP + PHRASE49>
1790 PHRASE42
1791                     <TYPE? CAC10 <TYPE-CODE FALSE> + PHRASE46>
1792                     <FRAME '\1aEMIT>
1793                     <PUSH 194>
1794                     <FRAME '\1aVAR-VALUE-ADDRESS>
1795                     <PUSH NUM5>
1796                     <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
1797                     <NTHUV CAC10 2 = TEMP25 (TYPE FIX)>
1798                     <OR TEMP25 #WORD *120* = TEMP25>
1799                     <LSH TEMP25 24 = TEMP25 (TYPE FIX)>
1800                     <CHTYPE TEMP25 <TYPE-CODE EFF-ADDR> = STACK>
1801                     <DEAD TEMP25>
1802                     <CALL '\1aEMIT 3>
1803                     <JUMP + PHRASE49>
1804 PHRASE46
1805                     <SET COUNT-STORED?13 'T (TYPE ATOM)>
1806                     <FRAME '\1aEMIT>
1807                     <PUSH 162>
1808                     <FRAME '\1aVAR-VALUE-ADDRESS>
1809                     <PUSH NUM5>
1810                     <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
1811                     <FRAME '\1aVAR-COUNT-ADDRESS>
1812                     <PUSH SVAR4>
1813                     <CALL '\1aVAR-COUNT-ADDRESS 1 = STACK>
1814                     <CALL '\1aEMIT 3>
1815 PHRASE49
1816                     <TYPE? VAC8 <TYPE-CODE FALSE> - PHRASE54>
1817                     <VEQUAL? SHFT6 0 + PHRASE54 (TYPE FIX)>
1818                     <FRAME '\1aLOAD-VAR>
1819                     <PUSH SVAR4>
1820                     <PUSH 'JUST-VALUE>
1821                     <PUSH %<>>
1822                     <PUSH 'PREF-VAL>
1823                     <CALL '\1aLOAD-VAR 4 = VAC8>
1824 PHRASE54
1825                     <VEQUAL? SHFT6 0 - PHRASE60 (TYPE FIX)>
1826                     <FRAME '\1aEMIT>
1827                     <PUSH 192>
1828                     <FRAME '\1aVAR-VALUE-ADDRESS>
1829                     <PUSH NUM5>
1830                     <DEAD NUM5>
1831                     <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
1832                     <TYPE? VAC8 <TYPE-CODE FALSE> + PHRASE66>
1833                     <NTHUV VAC8 2 = TEMP25 (TYPE FIX)>
1834                     <OR TEMP25 #WORD *120* = TEMP25>
1835                     <LSH TEMP25 24 = TEMP25 (TYPE FIX)>
1836                     <CHTYPE TEMP25 <TYPE-CODE EFF-ADDR> = TEMP25>
1837                     <JUMP + PHRASE67>
1838 PHRASE66
1839                     <FRAME '\1aVAR-VALUE-ADDRESS>
1840                     <PUSH SVAR4>
1841                     <CALL '\1aVAR-VALUE-ADDRESS 1 = TEMP25>
1842 PHRASE67
1843                     <PUSH TEMP25>
1844                     <DEAD TEMP25>
1845                     <CALL '\1aEMIT 3>
1846                     <JUMP + PHRASE71>
1847 PHRASE60
1848                     <VEQUAL? SHFT6 2 - PHRASE69 (TYPE FIX)>
1849                     <DEAD SHFT6>
1850                     <FRAME '\1aEMIT>
1851                     <PUSH 222>
1852                     <NTHUV NAC12 2 = TEMP25 (TYPE FIX)>
1853                     <DEAD NAC12>
1854                     <OR TEMP25 #WORD *100* = TEMP25>
1855                     <LSH TEMP25 24 = TEMP25 (TYPE FIX)>
1856                     <CHTYPE TEMP25 <TYPE-CODE EFF-ADDR> = STACK>
1857                     <DEAD TEMP25>
1858                     <NTHUV VAC8 2 = TEMP25 (TYPE FIX)>
1859                     <OR TEMP25 #WORD *140* = TEMP25>
1860                     <LSH TEMP25 24 = TEMP25 (TYPE FIX)>
1861                     <CHTYPE TEMP25 <TYPE-CODE EFF-ADDR> = STACK>
1862                     <DEAD TEMP25>
1863                     <NTHUV VAC8 2 = TEMP25 (TYPE FIX)>
1864                     <OR TEMP25 #WORD *120* = TEMP25>
1865                     <LSH TEMP25 24 = TEMP25 (TYPE FIX)>
1866                     <CHTYPE TEMP25 <TYPE-CODE EFF-ADDR> = STACK>
1867                     <DEAD TEMP25>
1868                     <CALL '\1aEMIT 4>
1869                     <JUMP + PHRASE71>
1870 PHRASE69
1871                     <FRAME '\1aEMIT>
1872                     <PUSH 126>
1873                     <NTHUV NAC12 2 = TEMP25 (TYPE FIX)>
1874                     <DEAD NAC12>
1875                     <OR TEMP25 #WORD *100* = TEMP25>
1876                     <LSH TEMP25 24 = TEMP25 (TYPE FIX)>
1877                     <CHTYPE TEMP25 <TYPE-CODE EFF-ADDR> = STACK>
1878                     <DEAD TEMP25>
1879                     <NTHUV VAC8 2 = TEMP25 (TYPE FIX)>
1880                     <OR TEMP25 #WORD *140* = TEMP25>
1881                     <LSH TEMP25 24 = TEMP25 (TYPE FIX)>
1882                     <CHTYPE TEMP25 <TYPE-CODE EFF-ADDR> = STACK>
1883                     <DEAD TEMP25>
1884                     <NTHUV VAC8 2 = TEMP25 (TYPE FIX)>
1885                     <OR TEMP25 #WORD *120* = TEMP25>
1886                     <LSH TEMP25 24 = TEMP25 (TYPE FIX)>
1887                     <CHTYPE TEMP25 <TYPE-CODE EFF-ADDR> = STACK>
1888                     <DEAD TEMP25>
1889                     <CALL '\1aEMIT 4>
1890 PHRASE71
1891                     <TYPE? VAC8 <TYPE-CODE FALSE> + PHRASE74>
1892                     <FRAME '\1aDEST-DECL>
1893                     <PUSH VAC8>
1894                     <PUSH SVAR4>
1895                     <PUSH TYP7>
1896                     <CALL '\1aDEST-DECL 3>
1897 PHRASE74
1898                     <TYPE? CAC10 <TYPE-CODE FALSE> + PHRASE81>
1899                     <TYPE? VAC8 <TYPE-CODE FALSE> + PHRASE79>
1900                     <FRAME '\1aDEST-COUNT-DECL>
1901                     <PUSH VAC8>
1902                     <DEAD VAC8>
1903                     <PUSH CAC10>
1904                     <DEAD CAC10>
1905                     <PUSH SVAR4>
1906                     <PUSH TYP7>
1907                     <DEAD TYP7>
1908                     <CALL '\1aDEST-COUNT-DECL 4>
1909                     <JUMP + PHRASE81>
1910 PHRASE79
1911                     <FRAME '\1aLINK-VAR-TO-AC>
1912                     <PUSH SVAR4>
1913                     <PUSH CAC10>
1914                     <DEAD CAC10>
1915                     <PUSH 'COUNT>
1916                     <PUSH %<>>
1917                     <CALL '\1aLINK-VAR-TO-AC 4>
1918                     <FRAME '\1aINDICATE-CACHED-VARIABLE-DECL>
1919                     <PUSH SVAR4>
1920                     <PUSH TYP7>
1921                     <DEAD TYP7>
1922                     <CALL '\1aINDICATE-CACHED-VARIABLE-DECL 2>
1923 PHRASE81
1924                     <FRAME '\1aFIND-CACHE-VAR>
1925                     <PUSH SVAR4>
1926                     <DEAD SVAR4>
1927                     <CALL '\1aFIND-CACHE-VAR 1 = LV11>
1928                     <SET TEMP25 LV11>
1929                     <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE85>
1930                     <PUTUV LV11 4 'T>
1931                     <PUTUV LV11 3 COUNT-STORED?13>
1932                     <DEAD COUNT-STORED?13>
1933                     <SET TEMP25 LV11>
1934                     <DEAD LV11>
1935 PHRASE85
1936                     <RETURN TEMP25>
1937                     <DEAD TEMP25>
1938                     <END \1aR-B-G-SELF>\r\0\r\0
1939 #WORD *32267166226*
1940 <GFCN \1aR-B-G ("VALUE" ANY VARTBL VARTBL ANY FIX <OR ATOM FALSE>) SVAR4 NUM5 RES6 SHFT7 TYP8>
1941                     <TEMP (VAC9 %<>) (CAC10 %<>) (CN12 %<>) (NAC13 %<>) (FORCE-CHTYPE?14 %<>) LV11 TEMP31>
1942                     <INTGO>
1943                     <FRAME '\1aFIND-CACHE-VAR>
1944                     <PUSH SVAR4>
1945                     <CALL '\1aFIND-CACHE-VAR 1 = LV11>
1946                     <VEQUAL? SHFT7 0 + PHRASE17 (TYPE FIX)>
1947                     <FRAME '\1aPROTECT>
1948                     <FRAME '\1aLOAD-VAR>
1949                     <PUSH NUM5>
1950                     <PUSH 'VALUE>
1951                     <PUSH %<>>
1952                     <PUSH 'PREF-VAL>
1953                     <CALL '\1aLOAD-VAR 4 = NAC13>
1954                     <PUSH NAC13>
1955                     <CALL '\1aPROTECT 1>
1956 PHRASE17
1957                     <TYPE? LV11 <TYPE-CODE FALSE> + PHRASE23>
1958                     <NTHUV LV11 9 = CAC10>
1959                     <TYPE? CAC10 <TYPE-CODE FALSE> + PHRASE23>
1960                     <TYPE? RES6 <TYPE-CODE VARTBL> - PHRASE26>
1961                     <TYPE? TYP8 <TYPE-CODE FALSE> + PHRASE28>
1962                     <FRAME '\1aVARTBL-DECL>
1963                     <PUSH RES6>
1964                     <CALL '\1aVARTBL-DECL 1 = TEMP31>
1965                     <EQUAL? TEMP31 TYP8 + PHRASE28>
1966                     <DEAD TEMP31>
1967                     <SET FORCE-CHTYPE?14 'T (TYPE ATOM)>
1968 PHRASE28
1969                     <FRAME '\1aMUNG-AC>
1970                     <PUSH CAC10>
1971                     <DEAD CAC10>
1972                     <CALL '\1aMUNG-AC 1>
1973                     <SET CAC10 %<> (TYPE FALSE)>
1974                     <FRAME '\1aEMIT>
1975                     <PUSH 163>
1976                     <FRAME '\1aVAR-VALUE-ADDRESS>
1977                     <PUSH NUM5>
1978                     <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
1979                     <FRAME '\1aVAR-COUNT-ADDRESS>
1980                     <PUSH SVAR4>
1981                     <CALL '\1aVAR-COUNT-ADDRESS 1 = STACK>
1982                     <FRAME '\1aVAR-COUNT-ADDRESS>
1983                     <PUSH RES6>
1984                     <PUSH 'T>
1985                     <CALL '\1aVAR-COUNT-ADDRESS 2 = STACK>
1986                     <CALL '\1aEMIT 4>
1987                     <JUMP + PHRASE84>
1988 PHRASE26
1989                     <FRAME '\1aEMIT-PUSH>
1990                     <NTHUV CAC10 2 = TEMP31 (TYPE FIX)>
1991                     <OR TEMP31 #WORD *120* = TEMP31>
1992                     <LSH TEMP31 24 = TEMP31 (TYPE FIX)>
1993                     <CHTYPE TEMP31 <TYPE-CODE EFF-ADDR> = STACK>
1994                     <DEAD TEMP31>
1995                     <PUSH 'LONG>
1996                     <CALL '\1aEMIT-PUSH 2>
1997                     <FRAME '\1aEMIT>
1998                     <PUSH 162>
1999                     <FRAME '\1aVAR-VALUE-ADDRESS>
2000                     <PUSH NUM5>
2001                     <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
2002                     <FRAME '\1aMA-DISP>
2003                     <GVAL 'AC-TP = STACK>
2004                     <PUSH -2>
2005                     <CALL '\1aMA-DISP 2 = STACK>
2006                     <CALL '\1aEMIT 3>
2007                     <JUMP + PHRASE84>
2008 PHRASE23
2009                     <TYPE? LV11 <TYPE-CODE FALSE> + PHRASE42>
2010                     <NTHUV LV11 8 = CAC10>
2011                     <TYPE? CAC10 <TYPE-CODE FALSE> + PHRASE42>
2012                     <TYPE? TYP8 <TYPE-CODE FALSE> + PHRASE42>
2013                     <SET CN12 'T (TYPE ATOM)>
2014                     <TYPE? RES6 <TYPE-CODE VARTBL> - PHRASE45>
2015                     <FRAME '\1aMUNG-AC>
2016                     <PUSH CAC10>
2017                     <CALL '\1aMUNG-AC 1>
2018                     <FRAME '\1aPROTECT>
2019                     <PUSH CAC10>
2020                     <CALL '\1aPROTECT 1>
2021                     <FRAME '\1aEMIT>
2022                     <PUSH 194>
2023                     <FRAME '\1aVAR-VALUE-ADDRESS>
2024                     <PUSH NUM5>
2025                     <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
2026                     <NTHUV CAC10 2 = TEMP31 (TYPE FIX)>
2027                     <OR TEMP31 #WORD *120* = TEMP31>
2028                     <LSH TEMP31 24 = TEMP31 (TYPE FIX)>
2029                     <CHTYPE TEMP31 <TYPE-CODE EFF-ADDR> = STACK>
2030                     <DEAD TEMP31>
2031                     <CALL '\1aEMIT 3>
2032                     <JUMP + PHRASE84>
2033 PHRASE45
2034                     <FRAME '\1aEMIT-PUSH>
2035                     <FRAME '\1aTYPE-CODE>
2036                     <PUSH TYP8>
2037                     <CALL '\1aTYPE-CODE 1 = STACK>
2038                     <PUSH 'WORD>
2039                     <CALL '\1aEMIT-PUSH 2>
2040                     <FRAME '\1aEMIT>
2041                     <PUSH 163>
2042                     <FRAME '\1aVARTBL-VALUE-ADDRESS>
2043                     <PUSH NUM5>
2044                     <CALL '\1aVARTBL-VALUE-ADDRESS 1 = STACK>
2045                     <NTHUV CAC10 2 = TEMP31 (TYPE FIX)>
2046                     <OR TEMP31 #WORD *120* = TEMP31>
2047                     <LSH TEMP31 24 = TEMP31 (TYPE FIX)>
2048                     <CHTYPE TEMP31 <TYPE-CODE EFF-ADDR> = STACK>
2049                     <DEAD TEMP31>
2050                     <GVAL 'AC-TP = TEMP31>
2051                     <NTHUV TEMP31 2 = TEMP31 (TYPE FIX)>
2052                     <OR TEMP31 #WORD *200* = TEMP31>
2053                     <LSH TEMP31 24 = TEMP31 (TYPE FIX)>
2054                     <CHTYPE TEMP31 <TYPE-CODE EFF-ADDR> = STACK>
2055                     <DEAD TEMP31>
2056                     <CALL '\1aEMIT 4>
2057                     <JUMP + PHRASE84>
2058 PHRASE42
2059                     <TYPE? CAC10 <TYPE-CODE FALSE> + PHRASE57>
2060                     <FRAME '\1aMUNG-AC>
2061                     <PUSH CAC10>
2062                     <CALL '\1aMUNG-AC 1>
2063                     <FRAME '\1aFIND-CACHE-VAR>
2064                     <PUSH SVAR4>
2065                     <CALL '\1aFIND-CACHE-VAR 1 = LV11>
2066 PHRASE57
2067                     <EQUAL? RES6 'STACK + PHRASE61>
2068                     <FRAME '\1aGET-AC>
2069                     <PUSH 'PREF-TYPE>
2070                     <PUSH 'T>
2071                     <CALL '\1aGET-AC 2 = CAC10>
2072                     <FRAME '\1aPROTECT>
2073                     <PUSH CAC10>
2074                     <CALL '\1aPROTECT 1>
2075                     <FRAME '\1aEMIT>
2076                     <PUSH 212>
2077                     <NTHUV CAC10 2 = TEMP31 (TYPE FIX)>
2078                     <OR TEMP31 #WORD *120* = TEMP31>
2079                     <LSH TEMP31 24 = TEMP31 (TYPE FIX)>
2080                     <CHTYPE TEMP31 <TYPE-CODE EFF-ADDR> = STACK>
2081                     <DEAD TEMP31>
2082                     <CALL '\1aEMIT 2>
2083 PHRASE61
2084                     <EQUAL? RES6 'STACK - PHRASE66>
2085                     <TYPE? TYP8 <TYPE-CODE FALSE> + PHRASE68>
2086                     <FRAME '\1aEMIT-PUSH>
2087                     <FRAME '\1aTYPE-CODE>
2088                     <PUSH TYP8>
2089                     <CALL '\1aTYPE-CODE 1 = STACK>
2090                     <PUSH 'WORD>
2091                     <CALL '\1aEMIT-PUSH 2>
2092                     <JUMP + PHRASE71>
2093 PHRASE68
2094                     <FRAME '\1aEMIT>
2095                     <PUSH 180>
2096                     <GVAL 'AC-TP = TEMP31>
2097                     <NTHUV TEMP31 2 = TEMP31 (TYPE FIX)>
2098                     <OR TEMP31 #WORD *200* = TEMP31>
2099                     <LSH TEMP31 24 = TEMP31 (TYPE FIX)>
2100                     <CHTYPE TEMP31 <TYPE-CODE EFF-ADDR> = STACK>
2101                     <DEAD TEMP31>
2102                     <CALL '\1aEMIT 2>
2103 PHRASE71
2104                     <FRAME '\1aEMIT>
2105                     <PUSH 163>
2106                     <FRAME '\1aVAR-VALUE-ADDRESS>
2107                     <PUSH NUM5>
2108                     <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
2109                     <FRAME '\1aVAR-COUNT-ADDRESS>
2110                     <PUSH SVAR4>
2111                     <CALL '\1aVAR-COUNT-ADDRESS 1 = STACK>
2112                     <GVAL 'AC-TP = TEMP31>
2113                     <NTHUV TEMP31 2 = TEMP31 (TYPE FIX)>
2114                     <OR TEMP31 #WORD *200* = TEMP31>
2115                     <LSH TEMP31 24 = TEMP31 (TYPE FIX)>
2116                     <CHTYPE TEMP31 <TYPE-CODE EFF-ADDR> = STACK>
2117                     <DEAD TEMP31>
2118                     <CALL '\1aEMIT 4>
2119                     <JUMP + PHRASE84>
2120 PHRASE66
2121                     <FRAME '\1aEMIT>
2122                     <PUSH 163>
2123                     <FRAME '\1aVAR-VALUE-ADDRESS>
2124                     <PUSH NUM5>
2125                     <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
2126                     <FRAME '\1aVAR-COUNT-ADDRESS>
2127                     <PUSH SVAR4>
2128                     <CALL '\1aVAR-COUNT-ADDRESS 1 = STACK>
2129                     <NTHUV CAC10 2 = TEMP31 (TYPE FIX)>
2130                     <OR TEMP31 #WORD *120* = TEMP31>
2131                     <LSH TEMP31 24 = TEMP31 (TYPE FIX)>
2132                     <CHTYPE TEMP31 <TYPE-CODE EFF-ADDR> = STACK>
2133                     <DEAD TEMP31>
2134                     <CALL '\1aEMIT 4>
2135                     <TYPE? TYP8 <TYPE-CODE FALSE> - PHRASE81>
2136                     <FRAME '\1aEMIT>
2137                     <PUSH 120>
2138                     <FRAME '\1aMA-IMM>
2139                     <PUSH 16>
2140                     <CALL '\1aMA-IMM 1 = STACK>
2141                     <NTHUV CAC10 2 = TEMP31 (TYPE FIX)>
2142                     <OR TEMP31 #WORD *120* = TEMP31>
2143                     <LSH TEMP31 24 = TEMP31 (TYPE FIX)>
2144                     <CHTYPE TEMP31 <TYPE-CODE EFF-ADDR> = STACK>
2145                     <DEAD TEMP31>
2146                     <NTHUV CAC10 2 = TEMP31 (TYPE FIX)>
2147                     <OR TEMP31 #WORD *120* = TEMP31>
2148                     <LSH TEMP31 24 = TEMP31 (TYPE FIX)>
2149                     <CHTYPE TEMP31 <TYPE-CODE EFF-ADDR> = STACK>
2150                     <DEAD TEMP31>
2151                     <CALL '\1aEMIT 4>
2152                     <JUMP + PHRASE84>
2153 PHRASE81
2154                     <SET CN12 'T (TYPE ATOM)>
2155 PHRASE84
2156                     <VEQUAL? SHFT7 0 - PHRASE86 (TYPE FIX)>
2157                     <EQUAL? RES6 'STACK + PHRASE90>
2158                     <TYPE? LV11 <TYPE-CODE FALSE> + PHRASE90>
2159                     <NTHUV LV11 6 = VAC9>
2160                     <DEAD LV11>
2161                     <TYPE? VAC9 <TYPE-CODE FALSE> + PHRASE90>
2162                     <FRAME '\1aMUNG-AC>
2163                     <PUSH VAC9>
2164                     <CALL '\1aMUNG-AC 1>
2165                     <FRAME '\1aEMIT>
2166                     <PUSH 192>
2167                     <FRAME '\1aVAR-VALUE-ADDRESS>
2168                     <PUSH NUM5>
2169                     <DEAD NUM5>
2170                     <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
2171                     <NTHUV VAC9 2 = TEMP31 (TYPE FIX)>
2172                     <OR TEMP31 #WORD *120* = TEMP31>
2173                     <LSH TEMP31 24 = TEMP31 (TYPE FIX)>
2174                     <CHTYPE TEMP31 <TYPE-CODE EFF-ADDR> = STACK>
2175                     <DEAD TEMP31>
2176                     <CALL '\1aEMIT 3>
2177                     <JUMP + PHRASE115>
2178 PHRASE90
2179                     <EQUAL? RES6 'STACK + PHRASE95>
2180                     <FRAME '\1aEMIT>
2181                     <PUSH 193>
2182                     <FRAME '\1aVAR-VALUE-ADDRESS>
2183                     <PUSH NUM5>
2184                     <DEAD NUM5>
2185                     <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
2186                     <FRAME '\1aVAR-VALUE-ADDRESS>
2187                     <PUSH SVAR4>
2188                     <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
2189                     <FRAME '\1aGET-AC>
2190                     <PUSH 'PREF-VAL>
2191                     <PUSH 'T>
2192                     <CALL '\1aGET-AC 2 = VAC9>
2193                     <NTHUV VAC9 2 = TEMP31 (TYPE FIX)>
2194                     <OR TEMP31 #WORD *120* = TEMP31>
2195                     <LSH TEMP31 24 = TEMP31 (TYPE FIX)>
2196                     <CHTYPE TEMP31 <TYPE-CODE EFF-ADDR> = STACK>
2197                     <DEAD TEMP31>
2198                     <CALL '\1aEMIT 4>
2199                     <JUMP + PHRASE115>
2200 PHRASE95
2201                     <FRAME '\1aEMIT>
2202                     <PUSH 193>
2203                     <FRAME '\1aVAR-VALUE-ADDRESS>
2204                     <PUSH NUM5>
2205                     <DEAD NUM5>
2206                     <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
2207                     <FRAME '\1aVAR-VALUE-ADDRESS>
2208                     <PUSH SVAR4>
2209                     <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
2210                     <GVAL 'AC-TP = TEMP31>
2211                     <NTHUV TEMP31 2 = TEMP31 (TYPE FIX)>
2212                     <OR TEMP31 #WORD *200* = TEMP31>
2213                     <LSH TEMP31 24 = TEMP31 (TYPE FIX)>
2214                     <CHTYPE TEMP31 <TYPE-CODE EFF-ADDR> = STACK>
2215                     <DEAD TEMP31>
2216                     <CALL '\1aEMIT 4>
2217                     <JUMP + PHRASE115>
2218 PHRASE86
2219                     <FRAME '\1aLOAD-VAR>
2220                     <PUSH SVAR4>
2221                     <PUSH 'JUST-VALUE>
2222                     <EQUAL? RES6 'STACK + TAG106>
2223                     <PUSH 'T>
2224                     <JUMP + TAG107>
2225 TAG106
2226                     <PUSH %<>>
2227 TAG107
2228                     <PUSH 'PREF-VAL>
2229                     <CALL '\1aLOAD-VAR 4 = VAC9>
2230                     <VEQUAL? SHFT7 2 - PHRASE109 (TYPE FIX)>
2231                     <FRAME '\1aEMIT>
2232                     <PUSH 222>
2233                     <NTHUV NAC13 2 = TEMP31 (TYPE FIX)>
2234                     <DEAD NAC13>
2235                     <OR TEMP31 #WORD *100* = TEMP31>
2236                     <LSH TEMP31 24 = TEMP31 (TYPE FIX)>
2237                     <CHTYPE TEMP31 <TYPE-CODE EFF-ADDR> = STACK>
2238                     <DEAD TEMP31>
2239                     <NTHUV VAC9 2 = TEMP31 (TYPE FIX)>
2240                     <OR TEMP31 #WORD *140* = TEMP31>
2241                     <LSH TEMP31 24 = TEMP31 (TYPE FIX)>
2242                     <CHTYPE TEMP31 <TYPE-CODE EFF-ADDR> = STACK>
2243                     <DEAD TEMP31>
2244                     <EQUAL? RES6 'STACK - PHRASE112>
2245                     <GVAL 'AC-TP = TEMP31>
2246                     <NTHUV TEMP31 2 = TEMP31 (TYPE FIX)>
2247                     <OR TEMP31 #WORD *200* = TEMP31>
2248                     <LSH TEMP31 24 = TEMP31 (TYPE FIX)>
2249                     <CHTYPE TEMP31 <TYPE-CODE EFF-ADDR> = TEMP31>
2250                     <JUMP + PHRASE113>
2251 PHRASE112
2252                     <NTHUV VAC9 2 = NAC13 (TYPE FIX)>
2253                     <OR NAC13 #WORD *120* = NAC13>
2254                     <LSH NAC13 24 = NAC13 (TYPE FIX)>
2255                     <CHTYPE NAC13 <TYPE-CODE EFF-ADDR> = TEMP31>
2256                     <DEAD NAC13>
2257 PHRASE113
2258                     <PUSH TEMP31>
2259                     <DEAD TEMP31>
2260                     <CALL '\1aEMIT 4>
2261                     <JUMP + PHRASE115>
2262 PHRASE109
2263                     <FRAME '\1aEMIT>
2264                     <PUSH 126>
2265                     <NTHUV NAC13 2 = NAC13 (TYPE FIX)>
2266                     <OR NAC13 #WORD *100* = NAC13>
2267                     <LSH NAC13 24 = NAC13 (TYPE FIX)>
2268                     <CHTYPE NAC13 <TYPE-CODE EFF-ADDR> = STACK>
2269                     <DEAD NAC13>
2270                     <NTHUV VAC9 2 = NAC13 (TYPE FIX)>
2271                     <OR NAC13 #WORD *140* = NAC13>
2272                     <LSH NAC13 24 = NAC13 (TYPE FIX)>
2273                     <CHTYPE NAC13 <TYPE-CODE EFF-ADDR> = STACK>
2274                     <DEAD NAC13>
2275                     <EQUAL? RES6 'STACK - PHRASE118>
2276                     <GVAL 'AC-TP = NAC13>
2277                     <NTHUV NAC13 2 = NAC13 (TYPE FIX)>
2278                     <OR NAC13 #WORD *200* = NAC13>
2279                     <LSH NAC13 24 = NAC13 (TYPE FIX)>
2280                     <CHTYPE NAC13 <TYPE-CODE EFF-ADDR> = NAC13>
2281                     <JUMP + PHRASE119>
2282 PHRASE118
2283                     <NTHUV VAC9 2 = TEMP31 (TYPE FIX)>
2284                     <OR TEMP31 #WORD *120* = TEMP31>
2285                     <LSH TEMP31 24 = TEMP31 (TYPE FIX)>
2286                     <CHTYPE TEMP31 <TYPE-CODE EFF-ADDR> = NAC13>
2287                     <DEAD TEMP31>
2288 PHRASE119
2289                     <PUSH NAC13>
2290                     <DEAD NAC13>
2291                     <CALL '\1aEMIT 4>
2292 PHRASE115
2293                     <TYPE? TYP8 <TYPE-CODE FALSE> + BOOL122>
2294                     <VEQUAL? FORCE-CHTYPE?14 0 - BOOL122>
2295                     <DEAD FORCE-CHTYPE?14>
2296                     <FRAME '\1aVARTBL-DECL>
2297                     <PUSH SVAR4>
2298                     <DEAD SVAR4>
2299                     <CALL '\1aVARTBL-DECL 1 = NAC13>
2300                     <EQUAL? TYP8 NAC13 + PHRASE121>
2301                     <DEAD NAC13>
2302                     <VEQUAL? CN12 0 - PHRASE121>
2303 BOOL122
2304                     <FRAME '\1aDO-TYPE-CHANGE>
2305                     <EQUAL? RES6 'STACK - PHRASE127>
2306                     <FRAME '\1aMA-DISP>
2307                     <GVAL 'AC-TP = STACK>
2308                     <PUSH -8>
2309                     <CALL '\1aMA-DISP 2 = NAC13>
2310                     <JUMP + PHRASE130>
2311 PHRASE127
2312                     <TYPE? CAC10 <TYPE-CODE FALSE> + PHRASE129>
2313                     <NTHUV CAC10 2 = TEMP31 (TYPE FIX)>
2314                     <OR TEMP31 #WORD *120* = TEMP31>
2315                     <LSH TEMP31 24 = TEMP31 (TYPE FIX)>
2316                     <CHTYPE TEMP31 <TYPE-CODE EFF-ADDR> = NAC13>
2317                     <DEAD TEMP31>
2318                     <JUMP + PHRASE130>
2319 PHRASE129
2320                     <FRAME '\1aVAR-TYPE-ADDRESS>
2321                     <PUSH RES6>
2322                     <CALL '\1aVAR-TYPE-ADDRESS 1 = NAC13>
2323 PHRASE130
2324                     <PUSH NAC13>
2325                     <DEAD NAC13>
2326                     <EQUAL? RES6 'STACK - PHRASE133>
2327                     <FRAME '\1aMA-DISP>
2328                     <GVAL 'AC-TP = STACK>
2329                     <PUSH -4>
2330                     <CALL '\1aMA-DISP 2 = NAC13>
2331                     <JUMP + PHRASE135>
2332 PHRASE133
2333                     <NTHUV VAC9 2 = TEMP31 (TYPE FIX)>
2334                     <OR TEMP31 #WORD *120* = TEMP31>
2335                     <LSH TEMP31 24 = TEMP31 (TYPE FIX)>
2336                     <CHTYPE TEMP31 <TYPE-CODE EFF-ADDR> = NAC13>
2337                     <DEAD TEMP31>
2338 PHRASE135
2339                     <PUSH NAC13>
2340                     <DEAD NAC13>
2341                     <PUSH TYP8>
2342                     <DEAD TYP8>
2343                     <PUSH SHFT7>
2344                     <DEAD SHFT7>
2345                     <CALL '\1aDO-TYPE-CHANGE 4>
2346                     <EQUAL? RES6 'STACK - TAG138>
2347                     <RETURN %<>>
2348 TAG138
2349                     <TYPE? CAC10 <TYPE-CODE FALSE> + PHRASE140>
2350                     <FRAME '\1aDEST-PAIR>
2351                     <PUSH VAC9>
2352                     <DEAD VAC9>
2353                     <PUSH CAC10>
2354                     <DEAD CAC10>
2355                     <PUSH RES6>
2356                     <DEAD RES6>
2357                     <CALL '\1aDEST-PAIR 3 = NAC13>
2358                     <RETURN NAC13>
2359                     <DEAD NAC13>
2360 PHRASE140
2361                     <FRAME '\1aDEAD-VAR>
2362                     <PUSH RES6>
2363                     <CALL '\1aDEAD-VAR 1>
2364                     <FRAME '\1aLINK-VAR-TO-AC>
2365                     <PUSH RES6>
2366                     <PUSH VAC9>
2367                     <DEAD VAC9>
2368                     <PUSH 'VALUE>
2369                     <PUSH %<>>
2370                     <CALL '\1aLINK-VAR-TO-AC 4>
2371                     <FRAME '\1aFIND-CACHE-VAR>
2372                     <PUSH RES6>
2373                     <DEAD RES6>
2374                     <CALL '\1aFIND-CACHE-VAR 1 = LV11>
2375                     <PUTUV LV11 3 'T>
2376                     <PUTUV LV11 4 'T>
2377                     <PUTUV LV11 7 %<>>
2378                     <PUTUV LV11 8 %<>>
2379                     <PUTUV LV11 9 %<>>
2380                     <RETURN LV11>
2381                     <DEAD LV11>
2382 PHRASE121
2383                     <EQUAL? RES6 'STACK - TAG147>
2384                     <RETURN %<>>
2385 TAG147
2386                     <VEQUAL? CN12 0 - PHRASE149>
2387                     <DEAD CN12>
2388                     <TYPE? CAC10 <TYPE-CODE FALSE> + PHRASE151>
2389                     <FRAME '\1aDEST-PAIR>
2390                     <PUSH VAC9>
2391                     <DEAD VAC9>
2392                     <PUSH CAC10>
2393                     <DEAD CAC10>
2394                     <PUSH RES6>
2395                     <DEAD RES6>
2396                     <CALL '\1aDEST-PAIR 3 = NAC13>
2397                     <RETURN NAC13>
2398                     <DEAD NAC13>
2399 PHRASE151
2400                     <FRAME '\1aDEAD-VAR>
2401                     <PUSH RES6>
2402                     <CALL '\1aDEAD-VAR 1>
2403                     <FRAME '\1aLINK-VAR-TO-AC>
2404                     <PUSH RES6>
2405                     <PUSH VAC9>
2406                     <DEAD VAC9>
2407                     <PUSH 'VALUE>
2408                     <PUSH %<>>
2409                     <CALL '\1aLINK-VAR-TO-AC 4>
2410                     <FRAME '\1aFIND-CACHE-VAR>
2411                     <PUSH RES6>
2412                     <DEAD RES6>
2413                     <CALL '\1aFIND-CACHE-VAR 1 = LV11>
2414                     <PUTUV LV11 3 'T>
2415                     <PUTUV LV11 4 'T>
2416                     <PUTUV LV11 7 %<>>
2417                     <PUTUV LV11 8 %<>>
2418                     <PUTUV LV11 9 %<>>
2419                     <RETURN LV11>
2420                     <DEAD LV11>
2421 PHRASE149
2422                     <FRAME '\1aDEST-COUNT-DECL>
2423                     <PUSH VAC9>
2424                     <DEAD VAC9>
2425                     <PUSH CAC10>
2426                     <DEAD CAC10>
2427                     <PUSH RES6>
2428                     <DEAD RES6>
2429                     <PUSH TYP8>
2430                     <DEAD TYP8>
2431                     <CALL '\1aDEST-COUNT-DECL 4 = NAC13>
2432                     <RETURN NAC13>
2433                     <DEAD NAC13>
2434                     <END \1aR-B-G>
2435 #WORD *27144002031*
2436 <GFCN \1aR-B-G-Q ("VALUE" ANY ANY VARTBL ANY FIX ATOM) SVAR4 NUM5 RES6 SHFT7 TYP8>
2437                     <TEMP TEMP21 CAC11 VAC10 NAC9>
2438                     <INTGO>
2439                     <EQUAL? RES6 'STACK - PHRASE13>
2440                     <FRAME '\1aEMIT-PUSH>
2441                     <FRAME '\1aTYPE-CODE>
2442                     <FRAME '\1aPRIMTYPE>
2443                     <PUSH SVAR4>
2444                     <CALL '\1aPRIMTYPE 1 = STACK>
2445                     <CALL '\1aTYPE-CODE 1 = STACK>
2446                     <PUSH 'WORD>
2447                     <CALL '\1aEMIT-PUSH 2>
2448                     <FRAME '\1aEMIT>
2449                     <PUSH 163>
2450                     <FRAME '\1aVAR-VALUE-ADDRESS>
2451                     <PUSH NUM5>
2452                     <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
2453                     <FRAME '\1aMA-IMM>
2454                     <FRAME '\1aLENGTH>
2455                     <PUSH SVAR4>
2456                     <CALL '\1aLENGTH 1 = STACK>
2457                     <CALL '\1aMA-IMM 1 = STACK>
2458                     <GVAL 'AC-TP = TEMP21>
2459                     <NTHUV TEMP21 2 = TEMP21 (TYPE FIX)>
2460                     <OR TEMP21 #WORD *200* = TEMP21>
2461                     <LSH TEMP21 24 = TEMP21 (TYPE FIX)>
2462                     <CHTYPE TEMP21 <TYPE-CODE EFF-ADDR> = STACK>
2463                     <DEAD TEMP21>
2464                     <CALL '\1aEMIT 4>
2465                     <JUMP + PHRASE22>
2466 PHRASE13
2467                     <FRAME '\1aEMIT>
2468                     <PUSH 195>
2469                     <FRAME '\1aVAR-VALUE-ADDRESS>
2470                     <PUSH NUM5>
2471                     <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
2472                     <FRAME '\1aMA-IMM>
2473                     <FRAME '\1aLENGTH>
2474                     <PUSH SVAR4>
2475                     <CALL '\1aLENGTH 1 = STACK>
2476                     <CALL '\1aMA-IMM 1 = STACK>
2477                     <FRAME '\1aGET-AC>
2478                     <PUSH 'DOUBLE>
2479                     <PUSH 'T>
2480                     <CALL '\1aGET-AC 2 = CAC11>
2481                     <NTHUV CAC11 2 = TEMP21 (TYPE FIX)>
2482                     <OR TEMP21 #WORD *120* = TEMP21>
2483                     <LSH TEMP21 24 = TEMP21 (TYPE FIX)>
2484                     <CHTYPE TEMP21 <TYPE-CODE EFF-ADDR> = STACK>
2485                     <DEAD TEMP21>
2486                     <CALL '\1aEMIT 4>
2487 PHRASE22
2488                     <TYPE? CAC11 <TYPE-CODE FALSE> + PHRASE29>
2489                     <FRAME '\1aNEXT-AC>
2490                     <PUSH CAC11>
2491                     <CALL '\1aNEXT-AC 1 = VAC10>
2492 PHRASE29
2493                     <VEQUAL? SHFT7 0 - PHRASE32 (TYPE FIX)>
2494                     <FRAME '\1aEMIT>
2495                     <PUSH 193>
2496                     <FRAME '\1aVAR-VALUE-ADDRESS>
2497                     <PUSH NUM5>
2498                     <DEAD NUM5>
2499                     <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
2500                     <FRAME '\1aADDR-VALUE-M>
2501                     <FRAME '\1aADD-MVEC>
2502                     <PUSH SVAR4>
2503                     <CALL '\1aADD-MVEC 1 = STACK>
2504                     <CALL '\1aADDR-VALUE-M 1 = STACK>
2505                     <EQUAL? RES6 'STACK - PHRASE40>
2506                     <GVAL 'AC-TP = TEMP21>
2507                     <NTHUV TEMP21 2 = TEMP21 (TYPE FIX)>
2508                     <OR TEMP21 #WORD *200* = TEMP21>
2509                     <LSH TEMP21 24 = TEMP21 (TYPE FIX)>
2510                     <CHTYPE TEMP21 <TYPE-CODE EFF-ADDR> = TEMP21>
2511                     <JUMP + PHRASE41>
2512 PHRASE40
2513                     <SET TEMP21 VAC10>
2514 PHRASE41
2515                     <PUSH TEMP21>
2516                     <DEAD TEMP21>
2517                     <CALL '\1aEMIT 4>
2518                     <JUMP + PHRASE42>
2519 PHRASE32
2520                     <FRAME '\1aEMIT>
2521                     <PUSH 208>
2522                     <FRAME '\1aADDR-VALUE-M>
2523                     <FRAME '\1aADD-MVEC>
2524                     <PUSH SVAR4>
2525                     <CALL '\1aADD-MVEC 1 = STACK>
2526                     <CALL '\1aADDR-VALUE-M 1 = STACK>
2527                     <SET TEMP21 VAC10>
2528                     <TYPE? TEMP21 <TYPE-CODE FALSE> - PHRASE47>
2529                     <FRAME '\1aGET-AC>
2530                     <PUSH 'PREF-VAL>
2531                     <PUSH 'T>
2532                     <CALL '\1aGET-AC 2 = VAC10>
2533                     <SET TEMP21 VAC10>
2534 PHRASE47
2535                     <PUSH TEMP21>
2536                     <DEAD TEMP21>
2537                     <CALL '\1aEMIT 3>
2538                     <FRAME '\1aLOAD-VAR>
2539                     <PUSH NUM5>
2540                     <DEAD NUM5>
2541                     <PUSH 'VALUE>
2542                     <PUSH %<>>
2543                     <PUSH 'PREF-VAL>
2544                     <CALL '\1aLOAD-VAR 4 = NAC9>
2545                     <FRAME '\1aEMIT>
2546                     <VEQUAL? SHFT7 2 - PHRASE52 (TYPE FIX)>
2547                     <DEAD SHFT7>
2548                     <SET TEMP21 222 (TYPE FIX)>
2549                     <JUMP + PHRASE53>
2550 PHRASE52
2551                     <SET TEMP21 126 (TYPE FIX)>
2552 PHRASE53
2553                     <PUSH TEMP21>
2554                     <DEAD TEMP21>
2555                     <NTHUV NAC9 2 = TEMP21 (TYPE FIX)>
2556                     <DEAD NAC9>
2557                     <OR TEMP21 #WORD *100* = TEMP21>
2558                     <LSH TEMP21 24 = TEMP21 (TYPE FIX)>
2559                     <CHTYPE TEMP21 <TYPE-CODE EFF-ADDR> = STACK>
2560                     <DEAD TEMP21>
2561                     <NTHUV VAC10 2 = TEMP21 (TYPE FIX)>
2562                     <OR TEMP21 #WORD *140* = TEMP21>
2563                     <LSH TEMP21 24 = TEMP21 (TYPE FIX)>
2564                     <CHTYPE TEMP21 <TYPE-CODE EFF-ADDR> = STACK>
2565                     <DEAD TEMP21>
2566                     <EQUAL? RES6 'STACK - PHRASE55>
2567                     <GVAL 'AC-TP = TEMP21>
2568                     <NTHUV TEMP21 2 = TEMP21 (TYPE FIX)>
2569                     <OR TEMP21 #WORD *200* = TEMP21>
2570                     <LSH TEMP21 24 = TEMP21 (TYPE FIX)>
2571                     <CHTYPE TEMP21 <TYPE-CODE EFF-ADDR> = TEMP21>
2572                     <JUMP + PHRASE56>
2573 PHRASE55
2574                     <NTHUV VAC10 2 = TEMP21 (TYPE FIX)>
2575                     <OR TEMP21 #WORD *120* = TEMP21>
2576                     <LSH TEMP21 24 = TEMP21 (TYPE FIX)>
2577                     <CHTYPE TEMP21 <TYPE-CODE EFF-ADDR> = TEMP21>
2578 PHRASE56
2579                     <PUSH TEMP21>
2580                     <DEAD TEMP21>
2581                     <CALL '\1aEMIT 4>
2582 PHRASE42
2583                     <EQUAL? RES6 'STACK - TAG60>
2584                     <RETURN %<>>
2585 TAG60
2586                     <FRAME '\1aDEST-COUNT-DECL>
2587                     <PUSH VAC10>
2588                     <DEAD VAC10>
2589                     <PUSH CAC11>
2590                     <DEAD CAC11>
2591                     <PUSH RES6>
2592                     <DEAD RES6>
2593                     <FRAME '\1aPRIMTYPE>
2594                     <PUSH SVAR4>
2595                     <DEAD SVAR4>
2596                     <CALL '\1aPRIMTYPE 1 = STACK>
2597                     <CALL '\1aDEST-COUNT-DECL 4 = TEMP21>
2598                     <RETURN TEMP21>
2599                     <DEAD TEMP21>
2600                     <END \1aR-B-G-Q>
2601 #WORD *11740033356*
2602 <GFCN \1aDO-TYPE-CHANGE ("VALUE" ANY ANY ANY ANY ANY) TADDR4 VADDR5 TYP6 SHFT7>
2603                     <TEMP TEMP13>
2604                     <INTGO>
2605                     <TYPE? TYP6 <TYPE-CODE FALSE> + PHRASE10>
2606                     <FRAME '\1aEMIT>
2607                     <PUSH 176>
2608                     <FRAME '\1aTYPE-CODE>
2609                     <PUSH TYP6>
2610                     <DEAD TYP6>
2611                     <CALL '\1aTYPE-CODE 1 = STACK>
2612                     <PUSH TADDR4>
2613                     <DEAD TADDR4>
2614                     <CALL '\1aEMIT 3 = TEMP13>
2615                     <RETURN TEMP13>
2616                     <DEAD TEMP13>
2617 PHRASE10
2618                     <FRAME '\1aEMIT-MOVE>
2619                     <FRAME '\1aTYPE-CODE>
2620                     <PUSH 'VECTOR>
2621                     <CALL '\1aTYPE-CODE 1 = STACK>
2622                     <PUSH TADDR4>
2623                     <PUSH 'WORD>
2624                     <CALL '\1aEMIT-MOVE 3>
2625                     <FRAME '\1aGEN-COMP-INST>
2626                     <PUSH VADDR5>
2627                     <DEAD VADDR5>
2628                     <GVAL 'AC-TP = TEMP13>
2629                     <NTHUV TEMP13 2 = TEMP13 (TYPE FIX)>
2630                     <OR TEMP13 #WORD *120* = TEMP13>
2631                     <LSH TEMP13 24 = TEMP13 (TYPE FIX)>
2632                     <CHTYPE TEMP13 <TYPE-CODE EFF-ADDR> = STACK>
2633                     <DEAD TEMP13>
2634                     <PUSH 'LONG>
2635                     <CALL '\1aGEN-COMP-INST 3>
2636                     <FRAME '\1aMAKE-LABEL>
2637                     <CALL '\1aMAKE-LABEL 0 = TEMP13>
2638                     <FRAME '\1aGEN-BRANCH>
2639                     <PUSH 20>
2640                     <PUSH TEMP13>
2641                     <PUSH %<>>
2642                     <CALL '\1aGEN-BRANCH 3>
2643                     <FRAME '\1aEMIT-MOVE>
2644                     <FRAME '\1aTYPE-CODE>
2645                     <PUSH 'TUPLE>
2646                     <CALL '\1aTYPE-CODE 1 = STACK>
2647                     <PUSH TADDR4>
2648                     <DEAD TADDR4>
2649                     <PUSH 'WORD>
2650                     <CALL '\1aEMIT-MOVE 3>
2651                     <FRAME '\1aEMIT-LABEL>
2652                     <PUSH TEMP13>
2653                     <DEAD TEMP13>
2654                     <PUSH %<>>
2655                     <CALL '\1aEMIT-LABEL 2 = TEMP13>
2656                     <RETURN TEMP13>
2657                     <DEAD TEMP13>
2658                     <END \1aDO-TYPE-CHANGE>
2659 #WORD *22303257037*
2660 <GFCN \1aSHIFT-NUM ("VALUE" FIX FIX FIX) NUM4 SHFT5>
2661                     <TEMP TEMP10:FIX>
2662                     <INTGO>
2663                     <VEQUAL? SHFT5 0 - PHRASE7 (TYPE FIX)>
2664                     <RETURN NUM4>
2665                     <DEAD NUM4>
2666 PHRASE7
2667                     <VEQUAL? SHFT5 2 - PHRASE11 (TYPE FIX)>
2668                     <DEAD SHFT5>
2669                     <LSH NUM4 2 = TEMP10 (TYPE FIX)>
2670                     <DEAD NUM4>
2671                     <RETURN TEMP10>
2672                     <DEAD TEMP10>
2673 PHRASE11
2674                     <LSH NUM4 3 = TEMP10 (TYPE FIX)>
2675                     <DEAD NUM4>
2676                     <RETURN TEMP10>
2677                     <DEAD TEMP10>
2678                     <END \1aSHIFT-NUM>
2679 #WORD *15246431521*
2680 <GFCN \1aLIST-LENGTH-GEN ("VALUE" ATOM VARTBL <OR ATOM VARTBL> "OPTIONAL" ANY) SVAR6 RES7 HINT8>
2681                     <OPT-DISPATCH 2 %<> OPT4 OPT5>
2682 OPT4
2683                     <PUSH #T$UNBOUND 0>
2684 OPT5
2685                     <TEMP VAC9 CAC10 TEMP18 SLABEL11 ELABEL12>
2686                     <INTGO>
2687                     <FRAME '\1aVAR-VALUE-IN-AC?>
2688                     <PUSH SVAR6>
2689                     <CALL '\1aVAR-VALUE-IN-AC? 1 = VAC9>
2690                     <TYPE? VAC9 <TYPE-CODE FALSE> + BOOL13>
2691                     <FRAME '\1aPROTECT>
2692                     <PUSH VAC9>
2693                     <DEAD VAC9>
2694                     <CALL '\1aPROTECT 1>
2695 BOOL13
2696                     <FRAME '\1aGET-AC>
2697                     <PUSH 'PREF-VAL>
2698                     <PUSH 'T>
2699                     <CALL '\1aGET-AC 2 = CAC10>
2700                     <FRAME '\1aEMIT>
2701                     <PUSH 212>
2702                     <NTHUV CAC10 2 = TEMP18 (TYPE FIX)>
2703                     <OR TEMP18 #WORD *120* = TEMP18>
2704                     <LSH TEMP18 24 = TEMP18 (TYPE FIX)>
2705                     <CHTYPE TEMP18 <TYPE-CODE EFF-ADDR> = STACK>
2706                     <DEAD TEMP18>
2707                     <CALL '\1aEMIT 2>
2708                     <FRAME '\1aPROTECT>
2709                     <PUSH CAC10>
2710                     <CALL '\1aPROTECT 1>
2711                     <FRAME '\1aLOAD-VAR>
2712                     <PUSH SVAR6>
2713                     <DEAD SVAR6>
2714                     <PUSH 'VALUE>
2715                     <PUSH 'T>
2716                     <PUSH 'PREF-VAL>
2717                     <CALL '\1aLOAD-VAR 4 = VAC9>
2718                     <FRAME '\1aPROTECT-USE>
2719                     <PUSH VAC9>
2720                     <CALL '\1aPROTECT-USE 1>
2721                     <FRAME '\1aMAKE-LABEL>
2722                     <CALL '\1aMAKE-LABEL 0 = SLABEL11>
2723                     <FRAME '\1aMAKE-LABEL>
2724                     <CALL '\1aMAKE-LABEL 0 = ELABEL12>
2725                     <GVAL 'STATUS-AC = TEMP18>
2726                     <EQUAL? TEMP18 VAC9 + PHRASE25>
2727                     <DEAD TEMP18>
2728                     <FRAME '\1aEMIT>
2729                     <PUSH 213>
2730                     <NTHUV VAC9 2 = TEMP18 (TYPE FIX)>
2731                     <OR TEMP18 #WORD *120* = TEMP18>
2732                     <LSH TEMP18 24 = TEMP18 (TYPE FIX)>
2733                     <CHTYPE TEMP18 <TYPE-CODE EFF-ADDR> = STACK>
2734                     <DEAD TEMP18>
2735                     <CALL '\1aEMIT 2>
2736 PHRASE25
2737                     <FRAME '\1aGEN-BRANCH>
2738                     <PUSH 19>
2739                     <PUSH ELABEL12>
2740                     <PUSH %<>>
2741                     <CALL '\1aGEN-BRANCH 3>
2742                     <FRAME '\1aEMIT-LABEL>
2743                     <PUSH SLABEL11>
2744                     <PUSH 'T>
2745                     <CALL '\1aEMIT-LABEL 2>
2746                     <FRAME '\1aEMIT>
2747                     <PUSH 214>
2748                     <NTHUV CAC10 2 = TEMP18 (TYPE FIX)>
2749                     <OR TEMP18 #WORD *120* = TEMP18>
2750                     <LSH TEMP18 24 = TEMP18 (TYPE FIX)>
2751                     <CHTYPE TEMP18 <TYPE-CODE EFF-ADDR> = STACK>
2752                     <DEAD TEMP18>
2753                     <CALL '\1aEMIT 2>
2754                     <FRAME '\1aEMIT-MOVE>
2755                     <FRAME '\1aMA-DISP>
2756                     <PUSH VAC9>
2757                     <PUSH -4>
2758                     <CALL '\1aMA-DISP 2 = STACK>
2759                     <NTHUV VAC9 2 = TEMP18 (TYPE FIX)>
2760                     <DEAD VAC9>
2761                     <OR TEMP18 #WORD *120* = TEMP18>
2762                     <LSH TEMP18 24 = TEMP18 (TYPE FIX)>
2763                     <CHTYPE TEMP18 <TYPE-CODE EFF-ADDR> = STACK>
2764                     <DEAD TEMP18>
2765                     <PUSH 'LONG>
2766                     <CALL '\1aEMIT-MOVE 3>
2767                     <FRAME '\1aGEN-BRANCH>
2768                     <PUSH 18>
2769                     <PUSH SLABEL11>
2770                     <DEAD SLABEL11>
2771                     <PUSH %<>>
2772                     <CALL '\1aGEN-BRANCH 3>
2773                     <FRAME '\1aEMIT-LABEL>
2774                     <PUSH ELABEL12>
2775                     <DEAD ELABEL12>
2776                     <PUSH %<>>
2777                     <CALL '\1aEMIT-LABEL 2>
2778                     <FRAME '\1aDEST-DECL>
2779                     <PUSH CAC10>
2780                     <DEAD CAC10>
2781                     <PUSH RES7>
2782                     <DEAD RES7>
2783                     <PUSH 'FIX>
2784                     <CALL '\1aDEST-DECL 3>
2785                     <FRAME '\1aCLEAR-STATUS>
2786                     <CALL '\1aCLEAR-STATUS 0>
2787                     <RETURN 'NORMAL>
2788                     <END \1aLIST-LENGTH-GEN>
2789 #WORD *1677554166*
2790 <GFCN \1aBLOCK-LENGTH-GEN ("VALUE" ATOM ANY <OR ATOM VARTBL> "OPTIONAL" ANY ANY) SVAR7 RES8 HINT9 HINT210>
2791                     <OPT-DISPATCH 2 %<> OPT4 OPT5 OPT6>
2792 OPT4
2793                     <PUSH #T$UNBOUND 0>
2794 OPT5
2795                     <PUSH #T$UNBOUND 0>
2796 OPT6
2797                     <TEMP VAC11 TEMP25>
2798                     <INTGO>
2799                     <TYPE? SVAR7 <TYPE-CODE VARTBL> + PHRASE15>
2800                     <EQUAL? RES8 'STACK - PHRASE17>
2801                     <FRAME '\1aPUSH-CONSTANT>
2802                     <FRAME '\1aLENGTH>
2803                     <PUSH SVAR7>
2804                     <DEAD SVAR7>
2805                     <CALL '\1aLENGTH 1 = STACK>
2806                     <CALL '\1aPUSH-CONSTANT 1>
2807                     <RETURN 'NORMAL>
2808 PHRASE17
2809                     <FRAME '\1aGET-AC>
2810                     <PUSH 'PREF-VAL>
2811                     <PUSH 'T>
2812                     <CALL '\1aGET-AC 2 = VAC11>
2813                     <EMPTY? SVAR7 - PHRASE23>
2814                     <FRAME '\1aEMIT>
2815                     <PUSH 212>
2816                     <NTHUV VAC11 2 = TEMP25 (TYPE FIX)>
2817                     <OR TEMP25 #WORD *120* = TEMP25>
2818                     <LSH TEMP25 24 = TEMP25 (TYPE FIX)>
2819                     <CHTYPE TEMP25 <TYPE-CODE EFF-ADDR> = STACK>
2820                     <DEAD TEMP25>
2821                     <CALL '\1aEMIT 2>
2822                     <JUMP + PHRASE26>
2823 PHRASE23
2824                     <FRAME '\1aEMIT>
2825                     <PUSH 208>
2826                     <FRAME '\1aMA-IMM>
2827                     <FRAME '\1aLENGTH>
2828                     <PUSH SVAR7>
2829                     <DEAD SVAR7>
2830                     <CALL '\1aLENGTH 1 = STACK>
2831                     <CALL '\1aMA-IMM 1 = STACK>
2832                     <NTHUV VAC11 2 = TEMP25 (TYPE FIX)>
2833                     <OR TEMP25 #WORD *120* = TEMP25>
2834                     <LSH TEMP25 24 = TEMP25 (TYPE FIX)>
2835                     <CHTYPE TEMP25 <TYPE-CODE EFF-ADDR> = STACK>
2836                     <DEAD TEMP25>
2837                     <CALL '\1aEMIT 3>
2838 PHRASE26
2839                     <FRAME '\1aDEST-DECL>
2840                     <PUSH VAC11>
2841                     <DEAD VAC11>
2842                     <PUSH RES8>
2843                     <DEAD RES8>
2844                     <PUSH 'FIX>
2845                     <CALL '\1aDEST-DECL 3>
2846                     <RETURN 'NORMAL>
2847 PHRASE15
2848                     <EQUAL? RES8 'STACK - PHRASE31>
2849                     <FRAME '\1aEMIT-PUSH>
2850                     <FRAME '\1aTYPE-CODE>
2851                     <PUSH 'FIX>
2852                     <CALL '\1aTYPE-CODE 1 = STACK>
2853                     <PUSH 'LONG>
2854                     <CALL '\1aEMIT-PUSH 2>
2855                     <FRAME '\1aFIND-CACHE-VAR>
2856                     <PUSH SVAR7>
2857                     <CALL '\1aFIND-CACHE-VAR 1 = VAC11>
2858                     <TYPE? VAC11 <TYPE-CODE FALSE> + PHRASE35>
2859                     <NTHUV VAC11 3 = TEMP25>
2860                     <DEAD VAC11>
2861                     <TYPE? TEMP25 <TYPE-CODE FALSE> - PHRASE35>
2862                     <DEAD TEMP25>
2863                     <FRAME '\1aLOAD-VAR>
2864                     <PUSH SVAR7>
2865                     <DEAD SVAR7>
2866                     <PUSH 'COUNT>
2867                     <PUSH 'T>
2868                     <PUSH 'PREF-VAL>
2869                     <CALL '\1aLOAD-VAR 4 = VAC11>
2870                     <FRAME '\1aEMIT-PUSH>
2871                     <NTHUV VAC11 2 = TEMP25 (TYPE FIX)>
2872                     <DEAD VAC11>
2873                     <OR TEMP25 #WORD *120* = TEMP25>
2874                     <LSH TEMP25 24 = TEMP25 (TYPE FIX)>
2875                     <CHTYPE TEMP25 <TYPE-CODE EFF-ADDR> = STACK>
2876                     <DEAD TEMP25>
2877                     <PUSH 'LONG>
2878                     <CALL '\1aEMIT-PUSH 2>
2879                     <RETURN 'NORMAL>
2880 PHRASE35
2881                     <FRAME '\1aEMIT>
2882                     <PUSH 60>
2883                     <FRAME '\1aADDR-VAR-COUNT>
2884                     <PUSH SVAR7>
2885                     <DEAD SVAR7>
2886                     <CALL '\1aADDR-VAR-COUNT 1 = STACK>
2887                     <GVAL 'AC-TP = TEMP25>
2888                     <NTHUV TEMP25 2 = TEMP25 (TYPE FIX)>
2889                     <OR TEMP25 #WORD *200* = TEMP25>
2890                     <LSH TEMP25 24 = TEMP25 (TYPE FIX)>
2891                     <CHTYPE TEMP25 <TYPE-CODE EFF-ADDR> = STACK>
2892                     <DEAD TEMP25>
2893                     <CALL '\1aEMIT 3>
2894                     <RETURN 'NORMAL>
2895 PHRASE31
2896                     <FRAME '\1aFIND-CACHE-VAR>
2897                     <PUSH SVAR7>
2898                     <CALL '\1aFIND-CACHE-VAR 1 = VAC11>
2899                     <TYPE? VAC11 <TYPE-CODE FALSE> + PHRASE45>
2900                     <NTHUV VAC11 3 = TEMP25>
2901                     <DEAD VAC11>
2902                     <TYPE? TEMP25 <TYPE-CODE FALSE> - PHRASE45>
2903                     <DEAD TEMP25>
2904                     <FRAME '\1aPROTECT>
2905                     <FRAME '\1aLOAD-VAR>
2906                     <PUSH SVAR7>
2907                     <DEAD SVAR7>
2908                     <PUSH 'COUNT>
2909                     <PUSH 'T>
2910                     <PUSH 'PREF-VAL>
2911                     <CALL '\1aLOAD-VAR 4 = VAC11>
2912                     <PUSH VAC11>
2913                     <CALL '\1aPROTECT 1>
2914                     <JUMP + PHRASE50>
2915 PHRASE45
2916                     <FRAME '\1aGET-AC>
2917                     <PUSH 'PREF-VAL>
2918                     <PUSH 'T>
2919                     <CALL '\1aGET-AC 2 = VAC11>
2920                     <FRAME '\1aEMIT>
2921                     <PUSH 60>
2922                     <FRAME '\1aADDR-VAR-COUNT>
2923                     <PUSH SVAR7>
2924                     <DEAD SVAR7>
2925                     <CALL '\1aADDR-VAR-COUNT 1 = STACK>
2926                     <NTHUV VAC11 2 = TEMP25 (TYPE FIX)>
2927                     <OR TEMP25 #WORD *120* = TEMP25>
2928                     <LSH TEMP25 24 = TEMP25 (TYPE FIX)>
2929                     <CHTYPE TEMP25 <TYPE-CODE EFF-ADDR> = STACK>
2930                     <DEAD TEMP25>
2931                     <CALL '\1aEMIT 3>
2932 PHRASE50
2933                     <FRAME '\1aDEST-DECL>
2934                     <PUSH VAC11>
2935                     <DEAD VAC11>
2936                     <PUSH RES8>
2937                     <DEAD RES8>
2938                     <PUSH 'FIX>
2939                     <CALL '\1aDEST-DECL 3>
2940                     <RETURN 'NORMAL>
2941                     <END \1aBLOCK-LENGTH-GEN>
2942 #WORD *25152207657*
2943 <GFCN \1aLIST-EMP-GEN ("VALUE" ATOM VARTBL ATOM ATOM "OPTIONAL" ANY) SVAR6 DIR7 LABEL8 HINT9>
2944                     <OPT-DISPATCH 3 %<> OPT4 OPT5>
2945 OPT4
2946                     <PUSH #T$UNBOUND 0>
2947 OPT5
2948                     <TEMP VAC12 TEMP18>
2949                     <INTGO>
2950                     <FRAME '\1aVAR-VALUE-IN-AC?>
2951                     <PUSH SVAR6>
2952                     <CALL '\1aVAR-VALUE-IN-AC? 1 = VAC12>
2953                     <TYPE? VAC12 <TYPE-CODE FALSE> + BOOL16>
2954                     <GVAL 'STATUS-AC = TEMP18>
2955                     <EQUAL? TEMP18 VAC12 + PHRASE15>
2956                     <DEAD TEMP18 VAC12>
2957 BOOL16
2958                     <FRAME '\1aEMIT>
2959                     <PUSH 213>
2960                     <FRAME '\1aVAR-VALUE-ADDRESS>
2961                     <PUSH SVAR6>
2962                     <DEAD SVAR6>
2963                     <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
2964                     <CALL '\1aEMIT 2>
2965 PHRASE15
2966                     <VEQUAL? DIR7 '+ - PHRASE22>
2967                     <DEAD DIR7>
2968                     <SET VAC12 7 (TYPE FIX)>
2969                     <JUMP + PHRASE23>
2970 PHRASE22
2971                     <SET VAC12 6 (TYPE FIX)>
2972 PHRASE23
2973                     <FRAME '\1aGEN-BRANCH>
2974                     <FRAME '\1aNTH>
2975                     <GVAL 'BRANCHES = STACK>
2976                     <ADD VAC12 1 = STACK (TYPE FIX)>
2977                     <DEAD VAC12>
2978                     <CALL '\1aNTH 2 = STACK>
2979                     <PUSH LABEL8>
2980                     <DEAD LABEL8>
2981                     <PUSH %<>>
2982                     <PUSH %<>>
2983                     <CALL '\1aGEN-BRANCH 4>
2984                     <FRAME '\1aCLEAR-STATUS>
2985                     <CALL '\1aCLEAR-STATUS 0>
2986                     <RETURN 'NORMAL>
2987                     <END \1aLIST-EMP-GEN>
2988 #WORD *2743763275*
2989 <GFCN \1aBLOCK-EMP-GEN ("VALUE" ATOM ANY ATOM ATOM "OPTIONAL" ANY) SVAR6 DIR7 LABEL8 HINT9>
2990                     <OPT-DISPATCH 3 %<> OPT4 OPT5>
2991 OPT4
2992                     <PUSH #T$UNBOUND 0>
2993 OPT5
2994                     <TEMP>
2995                     <INTGO>
2996                     <TYPE? SVAR6 <TYPE-CODE VARTBL> - PHRASE11>
2997                     <FRAME '\1aZERO-COUNT-TEST-GEN>
2998                     <PUSH SVAR6>
2999                     <DEAD SVAR6>
3000                     <PUSH DIR7>
3001                     <DEAD DIR7>
3002                     <PUSH LABEL8>
3003                     <DEAD LABEL8>
3004                     <CALL '\1aZERO-COUNT-TEST-GEN 3>
3005                     <FRAME '\1aCLEAR-STATUS>
3006                     <CALL '\1aCLEAR-STATUS 0>
3007                     <RETURN 'NORMAL>
3008 PHRASE11
3009                     <TYPE? SVAR6 <TYPE-CODE ATOM> + BOOL15>
3010                     <EMPTY? SVAR6 + PHRASE14>
3011                     <DEAD SVAR6>
3012 BOOL15
3013                     <VEQUAL? DIR7 '- - PHRASE19>
3014                     <DEAD DIR7>
3015                     <FRAME '\1aGEN-BRANCH>
3016                     <GVAL 'INST-BBR = STACK>
3017                     <PUSH LABEL8>
3018                     <DEAD LABEL8>
3019                     <PUSH %<>>
3020                     <CALL '\1aGEN-BRANCH 3>
3021                     <RETURN 'NORMAL>
3022 PHRASE14
3023                     <VEQUAL? DIR7 '+ - PHRASE19>
3024                     <DEAD DIR7>
3025                     <FRAME '\1aGEN-BRANCH>
3026                     <GVAL 'INST-BBR = STACK>
3027                     <PUSH LABEL8>
3028                     <DEAD LABEL8>
3029                     <PUSH %<>>
3030                     <CALL '\1aGEN-BRANCH 3>
3031 PHRASE19
3032                     <RETURN 'NORMAL>
3033                     <END \1aBLOCK-EMP-GEN>
3034 #WORD *7107022514*
3035 <GFCN \1aZERO-COUNT-TEST-GEN ("VALUE" ANY VARTBL ATOM ATOM) VAR4 DIR5 LABEL6>
3036                     <TEMP (USE-CMP11 %<>) LVAR10 TEMP16>
3037                     <INTGO>
3038                     <FRAME '\1aFIND-CACHE-VAR>
3039                     <PUSH VAR4>
3040                     <CALL '\1aFIND-CACHE-VAR 1 = LVAR10>
3041                     <TYPE? LVAR10 <TYPE-CODE FALSE> + BOOL14>
3042                     <NTHUV LVAR10 3 = TEMP16>
3043                     <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE13>
3044                     <DEAD TEMP16>
3045 BOOL14
3046                     <FRAME '\1aVAR-COUNT-ADDRESS>
3047                     <PUSH VAR4>
3048                     <CALL '\1aVAR-COUNT-ADDRESS 1 = LVAR10>
3049                     <JUMP + PHRASE20>
3050 PHRASE13
3051                     <NTHUV LVAR10 8 = TEMP16>
3052                     <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE18>
3053                     <NTHUV TEMP16 2 = TEMP16 (TYPE FIX)>
3054                     <OR TEMP16 #WORD *120* = TEMP16>
3055                     <LSH TEMP16 24 = TEMP16 (TYPE FIX)>
3056                     <CHTYPE TEMP16 <TYPE-CODE EFF-ADDR> = LVAR10>
3057                     <DEAD TEMP16>
3058                     <JUMP + PHRASE20>
3059 PHRASE18
3060                     <NTHUV LVAR10 9 = TEMP16>
3061                     <DEAD LVAR10>
3062                     <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE19>
3063                     <NTHUV TEMP16 2 = TEMP16 (TYPE FIX)>
3064                     <OR TEMP16 #WORD *120* = TEMP16>
3065                     <LSH TEMP16 24 = TEMP16 (TYPE FIX)>
3066                     <CHTYPE TEMP16 <TYPE-CODE EFF-ADDR> = LVAR10>
3067                     <DEAD TEMP16>
3068                     <SET USE-CMP11 'T (TYPE ATOM)>
3069                     <JUMP + PHRASE20>
3070 PHRASE19
3071                     <FRAME '\1aVAR-COUNT-ADDRESS>
3072                     <PUSH VAR4>
3073                     <CALL '\1aVAR-COUNT-ADDRESS 1 = LVAR10>
3074 PHRASE20
3075                     <FRAME '\1aSTATUS?>
3076                     <PUSH VAR4>
3077                     <DEAD VAR4>
3078                     <PUSH 'COUNT>
3079                     <CALL '\1aSTATUS? 2 = TEMP16>
3080                     <TYPE? TEMP16 <TYPE-CODE FALSE> - PHRASE23>
3081                     <DEAD TEMP16>
3082                     <VEQUAL? USE-CMP11 0 + PHRASE26>
3083                     <DEAD USE-CMP11>
3084                     <FRAME '\1aEMIT>
3085                     <PUSH 209>
3086                     <PUSH LVAR10>
3087                     <DEAD LVAR10>
3088                     <FRAME '\1aMA-IMM>
3089                     <PUSH 65535>
3090                     <CALL '\1aMA-IMM 1 = STACK>
3091                     <CALL '\1aEMIT 3>
3092                     <JUMP + PHRASE31>
3093 PHRASE26
3094                     <FRAME '\1aEMIT>
3095                     <PUSH 181>
3096                     <PUSH LVAR10>
3097                     <DEAD LVAR10>
3098                     <CALL '\1aEMIT 2>
3099                     <JUMP + PHRASE31>
3100 PHRASE23
3101                     <SET USE-CMP11 %<> (TYPE FALSE)>
3102 PHRASE31
3103                     <VEQUAL? DIR5 '+ - PHRASE33>
3104                     <DEAD DIR5>
3105                     <FRAME '\1aGEN-BRANCH>
3106                     <PUSH 27>
3107                     <PUSH LABEL6>
3108                     <DEAD LABEL6>
3109                     <PUSH %<>>
3110                     <CALL '\1aGEN-BRANCH 3 = TEMP16>
3111                     <RETURN TEMP16>
3112                     <DEAD TEMP16>
3113 PHRASE33
3114                     <FRAME '\1aGEN-BRANCH>
3115                     <PUSH 26>
3116                     <PUSH LABEL6>
3117                     <DEAD LABEL6>
3118                     <PUSH %<>>
3119                     <CALL '\1aGEN-BRANCH 3 = TEMP16>
3120                     <RETURN TEMP16>
3121                     <DEAD TEMP16>
3122                     <END \1aZERO-COUNT-TEST-GEN>
3123 #WORD *23460362600*
3124 <GFCN \1aPUTREST-GEN ("VALUE" ATOM VARTBL <OR <PRIMTYPE LIST> VARTBL>) VAL14 VAL25>
3125                     <TEMP VAC6 OFF7>
3126                     <INTGO>
3127                     <FRAME '\1aPROTECT>
3128                     <FRAME '\1aLOAD-VAR>
3129                     <PUSH VAL14>
3130                     <DEAD VAL14>
3131                     <PUSH 'VALUE>
3132                     <PUSH %<>>
3133                     <PUSH 'PREF-VAL>
3134                     <CALL '\1aLOAD-VAR 4 = VAC6>
3135                     <PUSH VAC6>
3136                     <CALL '\1aPROTECT 1>
3137                     <FRAME '\1aMA-DISP>
3138                     <PUSH VAC6>
3139                     <DEAD VAC6>
3140                     <PUSH -4>
3141                     <CALL '\1aMA-DISP 2 = VAC6>
3142                     <TYPE? VAL25 <TYPE-CODE LIST> - PHRASE13>
3143                     <EMPL? VAL25 - PHRASE15 (TYPE LIST)>
3144                     <FRAME '\1aEMIT>
3145                     <PUSH 212>
3146                     <PUSH VAC6>
3147                     <DEAD VAC6>
3148                     <CALL '\1aEMIT 2>
3149                     <JUMP + COND12>
3150 PHRASE15
3151                     <FRAME '\1aADD-MVEC>
3152                     <PUSH VAL25>
3153                     <DEAD VAL25>
3154                     <CALL '\1aADD-MVEC 1 = OFF7>
3155                     <FRAME '\1aEMIT>
3156                     <PUSH 208>
3157                     <FRAME '\1aADDR-VALUE-M>
3158                     <PUSH OFF7>
3159                     <DEAD OFF7>
3160                     <CALL '\1aADDR-VALUE-M 1 = STACK>
3161                     <PUSH VAC6>
3162                     <DEAD VAC6>
3163                     <CALL '\1aEMIT 3>
3164                     <JUMP + COND12>
3165 PHRASE13
3166                     <FRAME '\1aEMIT>
3167                     <PUSH 208>
3168                     <FRAME '\1aVAR-VALUE-ADDRESS>
3169                     <PUSH VAL25>
3170                     <DEAD VAL25>
3171                     <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
3172                     <PUSH VAC6>
3173                     <DEAD VAC6>
3174                     <CALL '\1aEMIT 3>
3175 COND12
3176                     <FRAME '\1aCLEAR-STATUS>
3177                     <CALL '\1aCLEAR-STATUS 0>
3178                     <RETURN 'NORMAL>
3179                     <END \1aPUTREST-GEN>
3180 #WORD *34541114204*
3181 <GFCN \1aPUT-LIST-GEN ("VALUE" ATOM VARTBL <OR FIX VARTBL> ANY "OPTIONAL" ANY) VAR6 OFF7 VAL8 HINT9>
3182                     <OPT-DISPATCH 3 %<> OPT4 OPT5>
3183 OPT4
3184                     <PUSH %<>>
3185 OPT5
3186                     <TEMP VAC10>
3187                     <INTGO>
3188                     <TYPE? HINT9 <TYPE-CODE FALSE> + PHRASE12>
3189                     <FRAME '\1aPARSE-HINT>
3190                     <PUSH HINT9>
3191                     <DEAD HINT9>
3192                     <PUSH 'TYPE>
3193                     <CALL '\1aPARSE-HINT 2 = HINT9>
3194 PHRASE12
3195                     <FRAME '\1aPROTECT-VAL>
3196                     <PUSH VAL8>
3197                     <CALL '\1aPROTECT-VAL 1>
3198                     <EQUAL? OFF7 1 - PHRASE16>
3199                     <FRAME '\1aSLOT-CLOBBER>
3200                     <PUSH VAR6>
3201                     <DEAD VAR6>
3202                     <PUSH 1>
3203                     <PUSH VAL8>
3204                     <DEAD VAL8>
3205                     <PUSH %<>>
3206                     <PUSH HINT9>
3207                     <DEAD HINT9>
3208                     <CALL '\1aSLOT-CLOBBER 5>
3209                     <JUMP + PHRASE21>
3210 PHRASE16
3211                     <TYPE? OFF7 <TYPE-CODE FIX> - PHRASE18>
3212                     <FRAME '\1aLIST-REST-CONSTANT-GEN>
3213                     <PUSH VAR6>
3214                     <DEAD VAR6>
3215                     <SUB OFF7 1 = STACK (TYPE FIX)>
3216                     <DEAD OFF7>
3217                     <CALL '\1aLIST-REST-CONSTANT-GEN 2 = VAC10>
3218                     <FRAME '\1aFINISH-SLOT-CLOBBER>
3219                     <PUSH VAC10>
3220                     <DEAD VAC10>
3221                     <PUSH 1>
3222                     <PUSH VAL8>
3223                     <DEAD VAL8>
3224                     <PUSH %<>>
3225                     <PUSH HINT9>
3226                     <DEAD HINT9>
3227                     <CALL '\1aFINISH-SLOT-CLOBBER 5>
3228                     <JUMP + PHRASE21>
3229 PHRASE18
3230                     <FRAME '\1aLIST-REST-VAR-GEN>
3231                     <PUSH VAR6>
3232                     <DEAD VAR6>
3233                     <PUSH OFF7>
3234                     <DEAD OFF7>
3235                     <PUSH 'NTH>
3236                     <CALL '\1aLIST-REST-VAR-GEN 3 = VAC10>
3237                     <FRAME '\1aFINISH-SLOT-CLOBBER>
3238                     <PUSH VAC10>
3239                     <DEAD VAC10>
3240                     <PUSH 1>
3241                     <PUSH VAL8>
3242                     <DEAD VAL8>
3243                     <PUSH %<>>
3244                     <PUSH HINT9>
3245                     <DEAD HINT9>
3246                     <CALL '\1aFINISH-SLOT-CLOBBER 5>
3247 PHRASE21
3248                     <FRAME '\1aCLEAR-STATUS>
3249                     <CALL '\1aCLEAR-STATUS 0>
3250                     <RETURN 'NORMAL>
3251                     <END \1aPUT-LIST-GEN>
3252 #WORD *12367365616*
3253 <GFCN \1aSLOT-CLOBBER ("VALUE" ANY VARTBL FIX ANY BOOLEAN ANY) VAR4 OFF5 VAL6 UVC7 HINT8>
3254                     <TEMP VAC9>
3255                     <INTGO>
3256                     <FRAME '\1aPROTECT>
3257                     <FRAME '\1aLOAD-VAR>
3258                     <PUSH VAR4>
3259                     <DEAD VAR4>
3260                     <PUSH 'VALUE>
3261                     <PUSH %<>>
3262                     <PUSH 'PREF-VAL>
3263                     <CALL '\1aLOAD-VAR 4 = VAC9>
3264                     <PUSH VAC9>
3265                     <CALL '\1aPROTECT 1>
3266                     <FRAME '\1aFINISH-SLOT-CLOBBER>
3267                     <PUSH VAC9>
3268                     <DEAD VAC9>
3269                     <PUSH OFF5>
3270                     <DEAD OFF5>
3271                     <PUSH VAL6>
3272                     <DEAD VAL6>
3273                     <PUSH UVC7>
3274                     <DEAD UVC7>
3275                     <PUSH HINT8>
3276                     <DEAD HINT8>
3277                     <CALL '\1aFINISH-SLOT-CLOBBER 5 = VAC9>
3278                     <RETURN VAC9>
3279                     <DEAD VAC9>
3280                     <END \1aSLOT-CLOBBER>
3281 <DEFINE FINISH-SLOT-CLOBBER (VAC OFF VAL UVC HINT "OPT" (INDXAC <>) "AUX" DTADDR DVADDR DCADDR ROFF (KLUDGE <TUPLE <COND (.INDXAC <MA-INDX .INDXAC>) (ELSE <>)>>) LAC GAC DCL FX? LVAR (DONE? <>)) #DECL ((VAC) AC (OFF) FIX (VAL) ANY (UVC) BOOLEAN (INDXAC) <OR AC FALSE> (KLUDGE) <PRIMTYPE VECTOR> (LAC GAC) <OR AC FALSE> (LVAR) <OR FALSE LINKVAR>) <COND (.INDXAC <PROTECT .INDXAC>) (ELSE <SET KLUDGE <REST .KLUDGE>>)> <COND (.UVC <SET ROFF <* <- .OFF 1> 4>>) (ELSE <SET ROFF <* <- .OFF 1> 8>>)> <PROTECT .VAC> <COND (<NOT <TYPE? .VAL VARTBL>> <COND (<SET FX? <FIX-CONSTANT? .VAL>> <COND (.UVC <COND (<0? .FX?> <EMIT ,INST-CLRL !.KLUDGE <MA-DISP .VAC .ROFF>>) (<AND <L? .FX? 0> <G? .FX? -64>> <EMIT ,INST-MNEGL <MA-IMM <- .FX?>> !.KLUDGE <MA-DISP .VAC .ROFF>>) (<EMPTY? .KLUDGE> <EMIT-MOVE <MA-IMM .FX?> <MA-DISP .VAC .ROFF> LONG>) (ELSE <EMIT ,INST-MOVL <MA-IMM .FX?> !.KLUDGE <MA-DISP .VAC .ROFF>>)>) (ELSE <COND (.INDXAC <COND (<OR <AVAILABLE? .INDXAC> <NOT <SET LAC <FREE-AC?>>>> <MUNG-AC .INDXAC> <EMIT ,INST-ASHL <MA-IMM 1> <MA-REG .INDXAC> <MA-REG .INDXAC>>) (ELSE <EMIT ,INST-ASHL <MA-IMM 1> <MA-REG .INDXAC> <MA-REG <SET INDXAC .LAC>>>)> <PUT .KLUDGE 1 <MA-INDX .INDXAC>>)> <COND (<NOT .HINT> <EMIT-MOVE <TYPE-WORD <TYPE .VAL>> <MA-DISP .VAC .ROFF> LONG .KLUDGE>)> <COND (<0? .FX?> <EMIT ,INST-CLRL !.KLUDGE <MA-DISP .VAC <+ .ROFF 4>>>) (<AND <L? .FX? 0> <G? .FX? -64>> <EMIT ,INST-MNEGL <MA-IMM <- .FX?>> !.KLUDGE <MA-DISP .VAC <+ .ROFF 4>>>) (ELSE <EMIT-MOVE <MA-IMM .FX?> <MA-DISP .VAC <+ .ROFF 4>> LONG .KLUDGE>)>)>) (.UVC <EMIT ,INST-MOVL <ADDR-VALUE-MQUOTE .VAL> !.KLUDGE <MA-DISP .VAC .ROFF>>) (ELSE <EMIT ,INST-MOVQ <ADDR-TYPE-MQUOTE .VAL> !.KLUDGE <MA-DISP .VAC .ROFF>>)>) (.UVC <EMIT ,INST-MOVL <VAR-VALUE-ADDRESS .VAL> !.KLUDGE <MA-DISP .VAC .ROFF>>) (ELSE <SET LVAR <FIND-CACHE-VAR .VAL>> <COND (<AND .LVAR <SET LAC <LINKVAR-TYPE-WORD-AC .LVAR>> <SET GAC <LINKVAR-VALUE-AC .LVAR>> <==? .GAC <NEXT-AC .LAC>>> <SET DONE? T> <EMIT ,INST-MOVQ <MA-REG .LAC> !.KLUDGE <MA-DISP .VAC .ROFF>>) (<OR <NOT .LVAR> <AND <LINKVAR-VALUE-STORED .LVAR> <LINKVAR-TYPE-STORED .LVAR> <OR <AND .HINT <NOT <COUNT-NEEDED? .HINT>>> <AND <SET DCL <VARTBL-DECL .VAL>> <NOT <COUNT-NEEDED? .DCL>>> <LINKVAR-COUNT-STORED .LVAR>>>> <SET DONE? T> <EMIT ,INST-MOVQ <ADDR-VAR-TYPE-VALUE .VAL> !.KLUDGE <MA-DISP .VAC .ROFF>>) (ELSE <COND (.INDXAC <COND (<OR <AVAILABLE? .INDXAC> <NOT <SET LAC <FREE-AC?>>>> <MUNG-AC .INDXAC> <EMIT ,INST-ASHL <MA-IMM 1> <MA-REG .INDXAC> <MA-REG .INDXAC>>) (ELSE <EMIT ,INST-ASHL <MA-IMM 1> <MA-REG .INDXAC> <MA-REG <SET INDXAC .LAC>>>)> <PUT .KLUDGE 1 <MA-INDX .INDXAC>>)> <COND (<AND .HINT <NOT <COUNT-NEEDED? .HINT>>>) (<OR <NOT .LVAR> <AND <LINKVAR-TYPE-STORED .LVAR> <OR <AND <SET DCL <VARTBL-DECL .VAL>> <NOT <COUNT-NEEDED? .DCL>>> <LINKVAR-COUNT-STORED .LVAR>>> <LINKVAR-TYPE-WORD-AC .LVAR>> <EMIT ,INST-MOVL <VAR-TYPE-ADDRESS .VAL TYPEWORD> !.KLUDGE <MA-DISP .VAC .ROFF>>) (ELSE <COND (<SET DCL <VARTBL-DECL .VAL>> <COND (<NOT <COUNT-NEEDED? .DCL>> <COND (<NOT .HINT> <STORE-TYPE .DCL <MA-DISP .VAC .ROFF> !.KLUDGE>)>) (<LINKVAR-COUNT-STORED .LVAR> <STORE-TYPE .DCL <ADDR-VAR-TYPE .VAL>> <PUT .LVAR ,LINKVAR-TYPE-STORED T> <EMIT ,INST-MOVL <ADDR-VAR-TYPE .VAL> !.KLUDGE <MA-DISP .VAC .ROFF>>) (ELSE <STORE-TYPE .DCL <ADDR-VAR-TYPE .VAL>> <EMIT ,INST-MOVW <MA-REG <LINKVAR-COUNT-AC .LVAR>> <ADDR-VAR-COUNT .VAL>> <LINKVAR-COUNT-STORED .LVAR T> <LINKVAR-TYPE-STORED .LVAR T> <EMIT ,INST-MOVL <ADDR-VAR-TYPE .VAL> !.KLUDGE <MA-DISP .VAC .ROFF>>)>) (ELSE <COND (<LINKVAR-TYPE-STORED .LVAR> <EMIT ,INST-MOVW <MA-REG <LINKVAR-COUNT-AC .LVAR>> <ADDR-VAR-COUNT .VAL>> <LINKVAR-COUNT-STORED .LVAR T>) (ELSE <EMIT ,INST-MOVW <MA-REG <LINKVAR-TYPE-AC .LVAR>> <ADDR-VAR-TYPE .VAL>> <LINKVAR-TYPE-STORED .LVAR T>)> <EMIT ,INST-MOVL <ADDR-VAR-TYPE .VAL> !.KLUDGE <MA-DISP .VAC .ROFF>>)>)> <COND (<NOT .DONE?> <EMIT ,INST-MOVL <VAR-VALUE-ADDRESS .VAL> !.KLUDGE <MA-DISP .VAC <+ .ROFF 4>>>)>)>)> .VAC>
3282
3283 #WORD *36775203056*
3284 <GFCN \1aPUT-VEC-GEN ("VALUE" ATOM VARTBL <OR FIX VARTBL> ANY "OPTIONAL" ANY ANY) VAR7 OFF8 VAL9 HINT10 UVC11>
3285                     <OPT-DISPATCH 3 %<> OPT4 OPT5 OPT6>
3286 OPT4
3287                     <PUSH %<>>
3288 OPT5
3289                     <PUSH %<>>
3290 OPT6
3291                     <TEMP>
3292                     <INTGO>
3293                     <TYPE? HINT10 <TYPE-CODE FALSE> + BOOL12>
3294                     <FRAME '\1aPARSE-HINT>
3295                     <PUSH HINT10>
3296                     <DEAD HINT10>
3297                     <PUSH 'TYPE>
3298                     <CALL '\1aPARSE-HINT 2 = HINT10>
3299 BOOL12
3300                     <FRAME '\1aPROTECT-VAL>
3301                     <PUSH VAL9>
3302                     <CALL '\1aPROTECT-VAL 1>
3303                     <TYPE? OFF8 <TYPE-CODE FIX> - PHRASE16>
3304                     <FRAME '\1aSLOT-CLOBBER>
3305                     <PUSH VAR7>
3306                     <DEAD VAR7>
3307                     <PUSH OFF8>
3308                     <DEAD OFF8>
3309                     <PUSH VAL9>
3310                     <DEAD VAL9>
3311                     <PUSH UVC11>
3312                     <DEAD UVC11>
3313                     <PUSH HINT10>
3314                     <DEAD HINT10>
3315                     <CALL '\1aSLOT-CLOBBER 5>
3316                     <JUMP + PHRASE18>
3317 PHRASE16
3318                     <FRAME '\1aVAR-SLOT-CLOBBER>
3319                     <PUSH VAR7>
3320                     <DEAD VAR7>
3321                     <PUSH OFF8>
3322                     <DEAD OFF8>
3323                     <PUSH VAL9>
3324                     <DEAD VAL9>
3325                     <PUSH UVC11>
3326                     <DEAD UVC11>
3327                     <PUSH HINT10>
3328                     <DEAD HINT10>
3329                     <CALL '\1aVAR-SLOT-CLOBBER 5>
3330 PHRASE18
3331                     <FRAME '\1aCLEAR-STATUS>
3332                     <CALL '\1aCLEAR-STATUS 0>
3333                     <RETURN 'NORMAL>
3334                     <END \1aPUT-VEC-GEN>
3335 #WORD *22241057107*
3336 <GFCN \1aPROTECT-VAL ("VALUE" ANY ANY) VAL4>
3337                     <TEMP TEMP8 LV5>
3338                     <INTGO>
3339                     <TYPE? VAL4 <TYPE-CODE VARTBL> + TAG10>
3340                     <RETURN %<>>
3341 TAG10
3342                     <FRAME '\1aFIND-CACHE-VAR>
3343                     <PUSH VAL4>
3344                     <DEAD VAL4>
3345                     <CALL '\1aFIND-CACHE-VAR 1 = LV5>
3346                     <SET TEMP8 LV5>
3347                     <TYPE? TEMP8 <TYPE-CODE FALSE> + PHRASE24>
3348                     <NTHUV LV5 6 = TEMP8>
3349                     <TYPE? TEMP8 <TYPE-CODE FALSE> + PHRASE14>
3350                     <DEAD TEMP8>
3351                     <FRAME '\1aPROTECT>
3352                     <NTHUV LV5 6 = STACK (TYPE AC)>
3353                     <CALL '\1aPROTECT 1>
3354 PHRASE14
3355                     <NTHUV LV5 9 = TEMP8>
3356                     <TYPE? TEMP8 <TYPE-CODE FALSE> + PHRASE18>
3357                     <DEAD TEMP8>
3358                     <FRAME '\1aPROTECT>
3359                     <NTHUV LV5 9 = STACK (TYPE AC)>
3360                     <CALL '\1aPROTECT 1>
3361 PHRASE18
3362                     <NTHUV LV5 7 = TEMP8>
3363                     <TYPE? TEMP8 <TYPE-CODE FALSE> + PHRASE21>
3364                     <DEAD TEMP8>
3365                     <FRAME '\1aPROTECT>
3366                     <NTHUV LV5 7 = STACK (TYPE AC)>
3367                     <CALL '\1aPROTECT 1>
3368 PHRASE21
3369                     <NTHUV LV5 8 = TEMP8>
3370                     <TYPE? TEMP8 <TYPE-CODE FALSE> + PHRASE24>
3371                     <FRAME '\1aPROTECT>
3372                     <NTHUV LV5 8 = STACK (TYPE AC)>
3373                     <DEAD LV5>
3374                     <CALL '\1aPROTECT 1 = TEMP8>
3375 PHRASE24
3376                     <RETURN TEMP8>
3377                     <DEAD TEMP8>
3378                     <END \1aPROTECT-VAL>
3379 #WORD *32722434201*
3380 <GFCN \1aVAR-SLOT-CLOBBER ("VALUE" AC VARTBL VARTBL ANY BOOLEAN ANY) VAR4 OFF5 VAL6 UVC7 HINT8>
3381                     <TEMP NAC10 VAC9>
3382                     <INTGO>
3383                     <FRAME '\1aPROTECT-VAL>
3384                     <PUSH VAR4>
3385                     <CALL '\1aPROTECT-VAL 1>
3386                     <FRAME '\1aPROTECT-USE>
3387                     <FRAME '\1aLOAD-VAR>
3388                     <PUSH OFF5>
3389                     <DEAD OFF5>
3390                     <PUSH 'VALUE>
3391                     <PUSH %<>>
3392                     <PUSH 'PREF-VAL>
3393                     <CALL '\1aLOAD-VAR 4 = NAC10>
3394                     <PUSH NAC10>
3395                     <CALL '\1aPROTECT-USE 1>
3396                     <FRAME '\1aPROTECT-USE>
3397                     <FRAME '\1aLOAD-VAR>
3398                     <PUSH VAR4>
3399                     <DEAD VAR4>
3400                     <PUSH 'VALUE>
3401                     <PUSH %<>>
3402                     <PUSH 'PREF-VAL>
3403                     <CALL '\1aLOAD-VAR 4 = VAC9>
3404                     <PUSH VAC9>
3405                     <CALL '\1aPROTECT-USE 1>
3406                     <FRAME '\1aFINISH-SLOT-CLOBBER>
3407                     <PUSH VAC9>
3408                     <PUSH 0>
3409                     <PUSH VAL6>
3410                     <DEAD VAL6>
3411                     <PUSH UVC7>
3412                     <DEAD UVC7>
3413                     <PUSH HINT8>
3414                     <DEAD HINT8>
3415                     <PUSH NAC10>
3416                     <DEAD NAC10>
3417                     <CALL '\1aFINISH-SLOT-CLOBBER 6>
3418                     <RETURN VAC9>
3419                     <DEAD VAC9>
3420                     <END \1aVAR-SLOT-CLOBBER>
3421 #WORD *14741654716*
3422 <GFCN \1aNTH-STRING-GEN ("VALUE" ANY ANY ANY ANY "OPTIONAL" ANY) S6 N7 R8 H9>
3423                     <OPT-DISPATCH 3 %<> OPT4 OPT5>
3424 OPT4
3425                     <PUSH %<>>
3426 OPT5
3427                     <TEMP TEMP11>
3428                     <INTGO>
3429                     <FRAME '\1aNTH-LOOK-AHEAD>
3430                     <PUSH 'NTHUS!-MIMOP>
3431                     <PUSH S6>
3432                     <PUSH N7>
3433                     <PUSH R8>
3434                     <PUSH H9>
3435                     <DEAD H9>
3436                     <CALL '\1aNTH-LOOK-AHEAD 5 = TEMP11>
3437                     <TYPE? TEMP11 <TYPE-CODE FALSE> - PHRASE13>
3438                     <FRAME '\1aNTH-STRING-GEN-1>
3439                     <PUSH S6>
3440                     <DEAD S6>
3441                     <PUSH N7>
3442                     <DEAD N7>
3443                     <PUSH R8>
3444                     <DEAD R8>
3445                     <PUSH 'CHARACTER>
3446                     <CALL '\1aNTH-STRING-GEN-1 4 = TEMP11>
3447 PHRASE13
3448                     <RETURN TEMP11>
3449                     <DEAD TEMP11>
3450                     <END \1aNTH-STRING-GEN>
3451 #WORD *22644204706*
3452 <GFCN \1aNTH-BYTE-GEN ("VALUE" ANY ANY ANY ANY "OPTIONAL" ANY) S6 N7 R8 H9>
3453                     <OPT-DISPATCH 3 %<> OPT4 OPT5>
3454 OPT4
3455                     <PUSH %<>>
3456 OPT5
3457                     <TEMP TEMP11>
3458                     <INTGO>
3459                     <FRAME '\1aNTH-LOOK-AHEAD>
3460                     <PUSH 'NTHUB!-MIMOP>
3461                     <PUSH S6>
3462                     <PUSH N7>
3463                     <PUSH R8>
3464                     <PUSH H9>
3465                     <DEAD H9>
3466                     <CALL '\1aNTH-LOOK-AHEAD 5 = TEMP11>
3467                     <TYPE? TEMP11 <TYPE-CODE FALSE> - PHRASE13>
3468                     <FRAME '\1aNTH-STRING-GEN-1>
3469                     <PUSH S6>
3470                     <DEAD S6>
3471                     <PUSH N7>
3472                     <DEAD N7>
3473                     <PUSH R8>
3474                     <DEAD R8>
3475                     <PUSH 'FIX>
3476                     <CALL '\1aNTH-STRING-GEN-1 4 = TEMP11>
3477 PHRASE13
3478                     <RETURN TEMP11>
3479                     <DEAD TEMP11>
3480                     <END \1aNTH-BYTE-GEN>
3481 #WORD *20063176204*
3482 <GFCN \1aNTH-STRING-GEN-1 ("VALUE" ATOM <OR VARTBL STRING BYTES> <OR VARTBL FIX> ANY ANY) SVAR4 NUM5 RES6 TYP7>
3483                     <TEMP VAC8 RVAC9 TEMP25>
3484                     <INTGO>
3485                     <TYPE? SVAR4 <TYPE-CODE VARTBL> - PHRASE13>
3486                     <FRAME '\1aLOAD-VAR>
3487                     <PUSH SVAR4>
3488                     <DEAD SVAR4>
3489                     <PUSH 'VALUE>
3490                     <PUSH %<>>
3491                     <PUSH 'PREF-VAL>
3492                     <CALL '\1aLOAD-VAR 4 = VAC8>
3493                     <JUMP + PHRASE15>
3494 PHRASE13
3495                     <FRAME '\1aGET-AC>
3496                     <PUSH 'PREF-VAL>
3497                     <PUSH 'T>
3498                     <CALL '\1aGET-AC 2 = VAC8>
3499                     <FRAME '\1aMOVE-VALUE>
3500                     <PUSH SVAR4>
3501                     <DEAD SVAR4>
3502                     <PUSH VAC8>
3503                     <CALL '\1aMOVE-VALUE 2>
3504 PHRASE15
3505                     <FRAME '\1aPROTECT-USE>
3506                     <PUSH VAC8>
3507                     <CALL '\1aPROTECT-USE 1>
3508                     <FRAME '\1aGET-AC>
3509                     <PUSH 'PREF-VAL>
3510                     <PUSH 'T>
3511                     <CALL '\1aGET-AC 2 = RVAC9>
3512                     <FRAME '\1aPROTECT>
3513                     <PUSH RVAC9>
3514                     <CALL '\1aPROTECT 1>
3515                     <TYPE? NUM5 <TYPE-CODE FIX> - PHRASE22>
3516                     <FRAME '\1aEMIT>
3517                     <PUSH 154>
3518                     <FRAME '\1aMA-DISP>
3519                     <PUSH VAC8>
3520                     <DEAD VAC8>
3521                     <SUB NUM5 1 = STACK (TYPE FIX)>
3522                     <DEAD NUM5>
3523                     <CALL '\1aMA-DISP 2 = STACK>
3524                     <NTHUV RVAC9 2 = TEMP25 (TYPE FIX)>
3525                     <OR TEMP25 #WORD *120* = TEMP25>
3526                     <LSH TEMP25 24 = TEMP25 (TYPE FIX)>
3527                     <CHTYPE TEMP25 <TYPE-CODE EFF-ADDR> = STACK>
3528                     <DEAD TEMP25>
3529                     <CALL '\1aEMIT 3>
3530                     <JUMP + PHRASE26>
3531 PHRASE22
3532                     <FRAME '\1aPROTECT-USE>
3533                     <FRAME '\1aLOAD-VAR>
3534                     <PUSH NUM5>
3535                     <DEAD NUM5>
3536                     <PUSH 'VALUE>
3537                     <PUSH %<>>
3538                     <PUSH 'PREF-VAL>
3539                     <CALL '\1aLOAD-VAR 4 = TEMP25>
3540                     <PUSH TEMP25>
3541                     <CALL '\1aPROTECT-USE 1>
3542                     <FRAME '\1aEMIT>
3543                     <PUSH 154>
3544                     <NTHUV TEMP25 2 = TEMP25 (TYPE FIX)>
3545                     <OR TEMP25 #WORD *100* = TEMP25>
3546                     <LSH TEMP25 24 = TEMP25 (TYPE FIX)>
3547                     <CHTYPE TEMP25 <TYPE-CODE EFF-ADDR> = STACK>
3548                     <DEAD TEMP25>
3549                     <FRAME '\1aMA-DISP>
3550                     <PUSH VAC8>
3551                     <DEAD VAC8>
3552                     <PUSH -1>
3553                     <CALL '\1aMA-DISP 2 = STACK>
3554                     <NTHUV RVAC9 2 = TEMP25 (TYPE FIX)>
3555                     <OR TEMP25 #WORD *120* = TEMP25>
3556                     <LSH TEMP25 24 = TEMP25 (TYPE FIX)>
3557                     <CHTYPE TEMP25 <TYPE-CODE EFF-ADDR> = STACK>
3558                     <DEAD TEMP25>
3559                     <CALL '\1aEMIT 4>
3560 PHRASE26
3561                     <FRAME '\1aDEST-DECL>
3562                     <PUSH RVAC9>
3563                     <DEAD RVAC9>
3564                     <PUSH RES6>
3565                     <DEAD RES6>
3566                     <PUSH TYP7>
3567                     <DEAD TYP7>
3568                     <CALL '\1aDEST-DECL 3>
3569                     <RETURN 'NORMAL>
3570                     <END \1aNTH-STRING-GEN-1>
3571 #WORD *7731722674*
3572 <GFCN \1aPUT-STRING-GEN ("VALUE" ATOM VARTBL <OR VARTBL FIX> <OR VARTBL CHARACTER FIX> "OPTIONAL" ANY) SVAR6 NUM7 VAL8 INS9>
3573                     <OPT-DISPATCH 3 %<> OPT4 OPT5>
3574 OPT4
3575                     <PUSH 'PUTUS!-MIMOP>
3576 OPT5
3577                     <TEMP VAC10 CADDR11 NAC14>
3578                     <INTGO>
3579                     <FRAME '\1aPROTECT-VAL>
3580                     <PUSH VAL8>
3581                     <CALL '\1aPROTECT-VAL 1>
3582                     <FRAME '\1aLOAD-VAR>
3583                     <PUSH SVAR6>
3584                     <DEAD SVAR6>
3585                     <PUSH 'VALUE>
3586                     <PUSH %<>>
3587                     <PUSH 'PREF-VAL>
3588                     <CALL '\1aLOAD-VAR 4 = VAC10>
3589                     <FRAME '\1aPROTECT-USE>
3590                     <PUSH VAC10>
3591                     <CALL '\1aPROTECT-USE 1>
3592                     <TYPE? VAL8 <TYPE-CODE CHARACTER> - PHRASE19>
3593                     <FRAME '\1aMA-IMM>
3594                     <CHTYPE VAL8 <TYPE-CODE FIX> = STACK>
3595                     <DEAD VAL8>
3596                     <CALL '\1aMA-IMM 1 = CADDR11>
3597                     <JUMP + PHRASE29>
3598 PHRASE19
3599                     <TYPE? VAL8 <TYPE-CODE FIX> - PHRASE21>
3600                     <FRAME '\1aMA-IMM>
3601                     <PUSH VAL8>
3602                     <DEAD VAL8>
3603                     <CALL '\1aMA-IMM 1 = CADDR11>
3604                     <JUMP + PHRASE29>
3605 PHRASE21
3606                     <FRAME '\1aVAR-VALUE-IN-AC?>
3607                     <PUSH VAL8>
3608                     <CALL '\1aVAR-VALUE-IN-AC? 1 = CADDR11>
3609                     <TYPE? CADDR11 <TYPE-CODE FALSE> + PHRASE25>
3610                     <FRAME '\1aPROTECT-USE>
3611                     <PUSH CADDR11>
3612                     <CALL '\1aPROTECT-USE 1>
3613                     <NTHUV CADDR11 2 = CADDR11 (TYPE FIX)>
3614                     <OR CADDR11 #WORD *120* = CADDR11>
3615                     <LSH CADDR11 24 = CADDR11 (TYPE FIX)>
3616                     <CHTYPE CADDR11 <TYPE-CODE EFF-ADDR> = CADDR11>
3617                     <JUMP + PHRASE29>
3618 PHRASE25
3619                     <FRAME '\1aADDR-VAR-CHAR-VALUE>
3620                     <PUSH VAL8>
3621                     <DEAD VAL8>
3622                     <CALL '\1aADDR-VAR-CHAR-VALUE 1 = CADDR11>
3623 PHRASE29
3624                     <TYPE? NUM7 <TYPE-CODE FIX> - PHRASE32>
3625                     <FRAME '\1aMA-DISP>
3626                     <PUSH VAC10>
3627                     <DEAD VAC10>
3628                     <SUB NUM7 1 = STACK (TYPE FIX)>
3629                     <DEAD NUM7>
3630                     <CALL '\1aMA-DISP 2 = VAC10>
3631                     <FRAME '\1aEMIT>
3632                     <PUSH 144>
3633                     <PUSH CADDR11>
3634                     <DEAD CADDR11>
3635                     <PUSH VAC10>
3636                     <DEAD VAC10>
3637                     <CALL '\1aEMIT 3>
3638                     <RETURN 'NORMAL>
3639 PHRASE32
3640                     <FRAME '\1aPROTECT-USE>
3641                     <FRAME '\1aLOAD-VAR>
3642                     <PUSH NUM7>
3643                     <DEAD NUM7>
3644                     <PUSH 'VALUE>
3645                     <PUSH %<>>
3646                     <PUSH 'PREF-VAL>
3647                     <CALL '\1aLOAD-VAR 4 = NAC14>
3648                     <PUSH NAC14>
3649                     <CALL '\1aPROTECT-USE 1>
3650                     <FRAME '\1aMA-DISP>
3651                     <PUSH VAC10>
3652                     <DEAD VAC10>
3653                     <PUSH -1>
3654                     <CALL '\1aMA-DISP 2 = VAC10>
3655                     <FRAME '\1aEMIT>
3656                     <PUSH 144>
3657                     <PUSH CADDR11>
3658                     <DEAD CADDR11>
3659                     <NTHUV NAC14 2 = CADDR11 (TYPE FIX)>
3660                     <DEAD NAC14>
3661                     <OR CADDR11 #WORD *100* = CADDR11>
3662                     <LSH CADDR11 24 = CADDR11 (TYPE FIX)>
3663                     <CHTYPE CADDR11 <TYPE-CODE EFF-ADDR> = STACK>
3664                     <DEAD CADDR11>
3665                     <PUSH VAC10>
3666                     <DEAD VAC10>
3667                     <CALL '\1aEMIT 4>
3668                     <RETURN 'NORMAL>
3669                     <END \1aPUT-STRING-GEN>
3670 #WORD *6444412235*
3671 <GFCN \1aPUT-BYTE-GEN ("VALUE" ATOM ANY ANY ANY) SVAR4 OFF5 VAL6>
3672                     <TEMP TEMP8:ATOM>
3673                     <INTGO>
3674                     <FRAME '\1aPUT-STRING-GEN>
3675                     <PUSH SVAR4>
3676                     <DEAD SVAR4>
3677                     <PUSH OFF5>
3678                     <DEAD OFF5>
3679                     <PUSH VAL6>
3680                     <DEAD VAL6>
3681                     <PUSH 'PUTUB!-MIMOP>
3682                     <CALL '\1aPUT-STRING-GEN 4 = TEMP8>
3683                     <RETURN TEMP8>
3684                     <DEAD TEMP8>
3685                     <END \1aPUT-BYTE-GEN>
3686 #WORD *37133657720*
3687 <GFCN \1aNTH-UVECTOR-GEN ("VALUE" ANY <OR VARTBL UVECTOR> <OR VARTBL FIX> <OR VARTBL ATOM> "OPTIONAL" <OR FALSE HINT>) UVAR6 NUM7 RES8 HINT9>
3688                     <OPT-DISPATCH 3 %<> OPT4 OPT5>
3689 OPT4
3690                     <PUSH %<>>
3691 OPT5
3692                     <TEMP (NAC15 %<>) TYP10 VAL16 VAC11 TAC12 RVAC14>
3693                     <INTGO>
3694                     <TYPE? UVAR6 <TYPE-CODE UVECTOR> - PHRASE19>
3695                     <SET TYP10 'FIX (TYPE ATOM)>
3696                     <JUMP + PHRASE22>
3697 PHRASE19
3698                     <TYPE? HINT9 <TYPE-CODE FALSE> + PHRASE20>
3699                     <FRAME '\1aPARSE-HINT>
3700                     <PUSH HINT9>
3701                     <DEAD HINT9>
3702                     <PUSH 'TYPE>
3703                     <CALL '\1aPARSE-HINT 2 = TYP10>
3704                     <JUMP + PHRASE22>
3705 PHRASE20
3706                     <SET TYP10 'FIX (TYPE ATOM)>
3707 PHRASE22
3708                     <FRAME '\1aNTH-LOOK-AHEAD>
3709                     <PUSH 'NTHUU!-MIMOP>
3710                     <PUSH UVAR6>
3711                     <PUSH NUM7>
3712                     <PUSH RES8>
3713                     <PUSH TYP10>
3714                     <CALL '\1aNTH-LOOK-AHEAD 5 = VAL16>
3715                     <TYPE? VAL16 <TYPE-CODE FALSE> + PHRASE24>
3716                     <RETURN VAL16>
3717                     <DEAD VAL16>
3718 PHRASE24
3719                     <TYPE? NUM7 <TYPE-CODE FIX> - PHRASE28>
3720                     <TYPE? UVAR6 <TYPE-CODE VARTBL> - PHRASE30>
3721                     <FRAME '\1aLOAD-VAR>
3722                     <PUSH UVAR6>
3723                     <PUSH 'VALUE>
3724                     <PUSH %<>>
3725                     <PUSH 'PREF-VAL>
3726                     <CALL '\1aLOAD-VAR 4 = VAC11>
3727                     <JUMP + PHRASE32>
3728 PHRASE30
3729                     <FRAME '\1aGET-AC>
3730                     <PUSH 'PREF-VAL>
3731                     <PUSH 'T>
3732                     <CALL '\1aGET-AC 2 = VAC11>
3733                     <FRAME '\1aMOVE-VALUE>
3734                     <PUSH UVAR6>
3735                     <PUSH VAC11>
3736                     <CALL '\1aMOVE-VALUE 2>
3737 PHRASE32
3738                     <FRAME '\1aPROTECT-USE>
3739                     <PUSH VAC11>
3740                     <CALL '\1aPROTECT-USE 1>
3741 PHRASE28
3742                     <TYPE? TYP10 <TYPE-CODE FALSE> - COND44>
3743                     <FRAME '\1aERROR>
3744                     <CALL '\1aERROR 0>
3745                     <FRAME '\1aPROTECT-USE>
3746                     <FRAME '\1aLOAD-VAR>
3747                     <PUSH UVAR6>
3748                     <PUSH 'COUNT>
3749                     <PUSH %<>>
3750                     <PUSH 'DATA>
3751                     <CALL '\1aLOAD-VAR 4 = TAC12>
3752                     <PUSH TAC12>
3753                     <CALL '\1aPROTECT-USE 1>
3754                     <FRAME '\1aEMIT-SHIFT>
3755                     <PUSH 120>
3756                     <PUSH 2>
3757                     <PUSH TAC12>
3758                     <PUSH 'LONG>
3759                     <CALL '\1aEMIT-SHIFT 4>
3760                     <FRAME '\1aADD-TO-AC>
3761                     <PUSH TAC12>
3762                     <FRAME '\1aVAR-VALUE-ADDRESS>
3763                     <PUSH UVAR6>
3764                     <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
3765                     <CALL '\1aADD-TO-AC 2>
3766                     <EQUAL? RES8 'STACK - PHRASE45>
3767                     <FRAME '\1aEMIT-PUSH>
3768                     <FRAME '\1aMA-DISP>
3769                     <PUSH TAC12>
3770                     <PUSH 0>
3771                     <CALL '\1aMA-DISP 2 = STACK>
3772                     <PUSH 'WORD>
3773                     <CALL '\1aEMIT-PUSH 2>
3774                     <FRAME '\1aCLEAR-PUSH>
3775                     <PUSH 'WORD>
3776                     <CALL '\1aCLEAR-PUSH 1>
3777                     <JUMP + COND44>
3778 PHRASE45
3779                     <FRAME '\1aMOVE-TO-AC>
3780                     <PUSH TAC12>
3781                     <FRAME '\1aMA-DISP>
3782                     <PUSH TAC12>
3783                     <PUSH 4>
3784                     <CALL '\1aMA-DISP 2 = STACK>
3785                     <PUSH 'WORD>
3786                     <CALL '\1aMOVE-TO-AC 3>
3787 COND44
3788                     <TYPE? RES8 <TYPE-CODE VARTBL> - PHRASE52>
3789                     <FRAME '\1aPROTECT>
3790                     <FRAME '\1aGET-AC>
3791                     <PUSH 'PREF-VAL>
3792                     <PUSH 'T>
3793                     <CALL '\1aGET-AC 2 = RVAC14>
3794                     <PUSH RVAC14>
3795                     <CALL '\1aPROTECT 1>
3796 PHRASE52
3797                     <TYPE? NUM7 <TYPE-CODE FIX> - PHRASE56>
3798                     <FRAME '\1aMA-DISP>
3799                     <PUSH VAC11>
3800                     <DEAD VAC11>
3801                     <SUB NUM7 1 = VAL16 (TYPE FIX)>
3802                     <DEAD NUM7>
3803                     <LSH VAL16 2 = STACK (TYPE FIX)>
3804                     <DEAD VAL16>
3805                     <CALL '\1aMA-DISP 2 = VAC11>
3806                     <JUMP + PHRASE59>
3807 PHRASE56
3808                     <FRAME '\1aLOAD-VAR>
3809                     <PUSH NUM7>
3810                     <DEAD NUM7>
3811                     <PUSH 'VALUE>
3812                     <PUSH %<>>
3813                     <PUSH 'PREF-VAL>
3814                     <CALL '\1aLOAD-VAR 4 = NAC15>
3815                     <FRAME '\1aPROTECT-USE>
3816                     <PUSH NAC15>
3817                     <CALL '\1aPROTECT-USE 1>
3818                     <TYPE? UVAR6 <TYPE-CODE VARTBL> - PHRASE63>
3819                     <FRAME '\1aLOAD-VAR>
3820                     <PUSH UVAR6>
3821                     <DEAD UVAR6>
3822                     <PUSH 'VALUE>
3823                     <PUSH %<>>
3824                     <PUSH 'PREF-VAL>
3825                     <CALL '\1aLOAD-VAR 4 = VAC11>
3826                     <JUMP + PHRASE65>
3827 PHRASE63
3828                     <FRAME '\1aGET-AC>
3829                     <PUSH 'PREF-VAL>
3830                     <PUSH 'T>
3831                     <CALL '\1aGET-AC 2 = VAC11>
3832                     <FRAME '\1aMOVE-VALUE>
3833                     <PUSH UVAR6>
3834                     <DEAD UVAR6>
3835                     <NTHUV VAC11 2 = VAL16 (TYPE FIX)>
3836                     <OR VAL16 #WORD *120* = VAL16>
3837                     <LSH VAL16 24 = VAL16 (TYPE FIX)>
3838                     <CHTYPE VAL16 <TYPE-CODE EFF-ADDR> = STACK>
3839                     <DEAD VAL16>
3840                     <CALL '\1aMOVE-VALUE 2>
3841 PHRASE65
3842                     <FRAME '\1aPROTECT-USE>
3843                     <PUSH VAC11>
3844                     <CALL '\1aPROTECT-USE 1>
3845                     <FRAME '\1aMA-DISP>
3846                     <PUSH VAC11>
3847                     <DEAD VAC11>
3848                     <PUSH -4>
3849                     <CALL '\1aMA-DISP 2 = VAC11>
3850 PHRASE59
3851                     <EQUAL? RES8 'STACK - PHRASE71>
3852                     <TYPE? TYP10 <TYPE-CODE FALSE> + PHRASE73>
3853                     <FRAME '\1aEMIT-PUSH>
3854                     <FRAME '\1aTYPE-WORD>
3855                     <PUSH TYP10>
3856                     <DEAD TYP10>
3857                     <CALL '\1aTYPE-WORD 1 = STACK>
3858                     <PUSH 'LONG>
3859                     <CALL '\1aEMIT-PUSH 2>
3860 PHRASE73
3861                     <TYPE? NAC15 <TYPE-CODE FALSE> + PHRASE77>
3862                     <FRAME '\1aEMIT>
3863                     <PUSH 208>
3864                     <NTHUV NAC15 2 = VAL16 (TYPE FIX)>
3865                     <DEAD NAC15>
3866                     <OR VAL16 #WORD *100* = VAL16>
3867                     <LSH VAL16 24 = VAL16 (TYPE FIX)>
3868                     <CHTYPE VAL16 <TYPE-CODE EFF-ADDR> = STACK>
3869                     <DEAD VAL16>
3870                     <PUSH VAC11>
3871                     <DEAD VAC11>
3872                     <GVAL 'AC-TP = VAL16>
3873                     <NTHUV VAL16 2 = VAL16 (TYPE FIX)>
3874                     <OR VAL16 #WORD *200* = VAL16>
3875                     <LSH VAL16 24 = VAL16 (TYPE FIX)>
3876                     <CHTYPE VAL16 <TYPE-CODE EFF-ADDR> = STACK>
3877                     <DEAD VAL16>
3878                     <CALL '\1aEMIT 4>
3879                     <JUMP + PHRASE90>
3880 PHRASE77
3881                     <FRAME '\1aEMIT>
3882                     <PUSH 208>
3883                     <PUSH VAC11>
3884                     <DEAD VAC11>
3885                     <GVAL 'AC-TP = VAL16>
3886                     <NTHUV VAL16 2 = VAL16 (TYPE FIX)>
3887                     <OR VAL16 #WORD *200* = VAL16>
3888                     <LSH VAL16 24 = VAL16 (TYPE FIX)>
3889                     <CHTYPE VAL16 <TYPE-CODE EFF-ADDR> = STACK>
3890                     <DEAD VAL16>
3891                     <CALL '\1aEMIT 3>
3892                     <JUMP + PHRASE90>
3893 PHRASE71
3894                     <TYPE? NAC15 <TYPE-CODE FALSE> + PHRASE83>
3895                     <FRAME '\1aEMIT>
3896                     <PUSH 208>
3897                     <NTHUV NAC15 2 = VAL16 (TYPE FIX)>
3898                     <DEAD NAC15>
3899                     <OR VAL16 #WORD *100* = VAL16>
3900                     <LSH VAL16 24 = VAL16 (TYPE FIX)>
3901                     <CHTYPE VAL16 <TYPE-CODE EFF-ADDR> = STACK>
3902                     <DEAD VAL16>
3903                     <PUSH VAC11>
3904                     <DEAD VAC11>
3905                     <NTHUV RVAC14 2 = VAL16 (TYPE FIX)>
3906                     <OR VAL16 #WORD *120* = VAL16>
3907                     <LSH VAL16 24 = VAL16 (TYPE FIX)>
3908                     <CHTYPE VAL16 <TYPE-CODE EFF-ADDR> = STACK>
3909                     <DEAD VAL16>
3910                     <CALL '\1aEMIT 4>
3911                     <JUMP + PHRASE85>
3912 PHRASE83
3913                     <FRAME '\1aEMIT>
3914                     <PUSH 208>
3915                     <PUSH VAC11>
3916                     <DEAD VAC11>
3917                     <NTHUV RVAC14 2 = VAL16 (TYPE FIX)>
3918                     <OR VAL16 #WORD *120* = VAL16>
3919                     <LSH VAL16 24 = VAL16 (TYPE FIX)>
3920                     <CHTYPE VAL16 <TYPE-CODE EFF-ADDR> = STACK>
3921                     <DEAD VAL16>
3922                     <CALL '\1aEMIT 3>
3923 PHRASE85
3924                     <TYPE? TYP10 <TYPE-CODE FALSE> + PHRASE88>
3925                     <FRAME '\1aDEST-DECL>
3926                     <PUSH RVAC14>
3927                     <DEAD RVAC14>
3928                     <PUSH RES8>
3929                     <DEAD RES8>
3930                     <PUSH TYP10>
3931                     <DEAD TYP10>
3932                     <CALL '\1aDEST-DECL 3>
3933                     <JUMP + PHRASE90>
3934 PHRASE88
3935                     <FRAME '\1aDEST-TYPE-VALUE>
3936                     <PUSH RVAC14>
3937                     <DEAD RVAC14>
3938                     <PUSH TAC12>
3939                     <DEAD TAC12>
3940                     <PUSH RES8>
3941                     <DEAD RES8>
3942                     <CALL '\1aDEST-TYPE-VALUE 3>
3943 PHRASE90
3944                     <RETURN 'NORMAL>
3945                     <END \1aNTH-UVECTOR-GEN>
3946 #WORD *2352251631*
3947 <GFCN \1aPUT-UVECTOR-GEN ("VALUE" ATOM VARTBL <OR FIX VARTBL> ANY "OPTIONAL" ANY) VAR6 OFF7 VAL8 HINT9>
3948                     <OPT-DISPATCH 3 %<> OPT4 OPT5>
3949 OPT4
3950                     <PUSH %<>>
3951 OPT5
3952                     <TEMP TEMP11:ATOM>
3953                     <INTGO>
3954                     <FRAME '\1aPUT-VEC-GEN>
3955                     <PUSH VAR6>
3956                     <DEAD VAR6>
3957                     <PUSH OFF7>
3958                     <DEAD OFF7>
3959                     <PUSH VAL8>
3960                     <DEAD VAL8>
3961                     <PUSH HINT9>
3962                     <DEAD HINT9>
3963                     <PUSH 'T>
3964                     <CALL '\1aPUT-VEC-GEN 5 = TEMP11>
3965                     <RETURN TEMP11>
3966                     <DEAD TEMP11>
3967                     <END \1aPUT-UVECTOR-GEN>
3968 #WORD *25567031167*
3969 <GFCN \1aBACKU-GEN ("VALUE" ATOM ANY ANY ANY "OPTIONAL" ANY) STR6 NUM7 RES8 HINT9>
3970                     <OPT-DISPATCH 3 %<> OPT4 OPT5>
3971 OPT4
3972                     <PUSH %<>>
3973 OPT5
3974                     <TEMP>
3975                     <INTGO>
3976                     <FRAME '\1aCALL-RTE>
3977                     <GVAL 'IBACKU!-MIMOP = STACK>
3978                     <PUSH 'CALL>
3979                     <PUSH RES8>
3980                     <DEAD RES8>
3981                     <PUSH HINT9>
3982                     <DEAD HINT9>
3983                     <PUSH STR6>
3984                     <DEAD STR6>
3985                     <PUSH NUM7>
3986                     <DEAD NUM7>
3987                     <CALL '\1aCALL-RTE 6>
3988                     <RETURN 'NORMAL>
3989                     <END \1aBACKU-GEN>
3990 #WORD *30004104535*
3991 <GFCN \1aTOPU-GEN ("VALUE" ATOM ANY ANY "OPTIONAL" ANY) STR6 RES7 HINT8>
3992                     <OPT-DISPATCH 2 %<> OPT4 OPT5>
3993 OPT4
3994                     <PUSH %<>>
3995 OPT5
3996                     <TEMP>
3997                     <INTGO>
3998                     <FRAME '\1aCALL-RTE>
3999                     <GVAL 'ITOPU!-MIMOP = STACK>
4000                     <PUSH 'CALL>
4001                     <PUSH RES7>
4002                     <DEAD RES7>
4003                     <PUSH HINT8>
4004                     <DEAD HINT8>
4005                     <PUSH STR6>
4006                     <DEAD STR6>
4007                     <CALL '\1aCALL-RTE 5>
4008                     <RETURN 'NORMAL>
4009                     <END \1aTOPU-GEN>
4010 <SETG SAVES <IVECTOR 3 <>>>
4011
4012 #WORD *32434650550*
4013 <GFCN \1aMOVE-WORDS-GEN ("VALUE" ANY ANY ANY ANY "TUPLE" ANY) FROM4 TO5 CT6>
4014                     <MAKTUP HINTS7 (TYPE8 %<>) TEMP16:VECTOR = HINTS7>
4015                     <INTGO>
4016                     <CHTYPE HINTS7 <TYPE-CODE VECTOR> = TEMP16>
4017                     <LOOP>
4018 MAP11
4019                     <INTGO>
4020                     <EMPUV? TEMP16 + MAPAP14>
4021                     <NTHUV TEMP16 1 = TYPE8>
4022                     <FRAME '\1aPARSE-HINT>
4023                     <PUSH TYPE8>
4024                     <DEAD TYPE8>
4025                     <PUSH 'TYPE>
4026                     <CALL '\1aPARSE-HINT 2 = TYPE8>
4027                     <TYPE? TYPE8 <TYPE-CODE FALSE> - MAPAP14>
4028                     <RESTUV TEMP16 1 = TEMP16 (TYPE VECTOR)>
4029                     <JUMP + MAP11>
4030 MAPAP14
4031                     <TYPE? TYPE8 <TYPE-CODE FALSE> + PHRASE27>
4032                     <EQUAL? TYPE8 'VECTOR - PHRASE29>
4033                     <DEAD TYPE8>
4034                     <SET HINTS7 3 (TYPE FIX)>
4035                     <JUMP + PHRASE30>
4036 PHRASE29
4037                     <SET HINTS7 2 (TYPE FIX)>
4038 PHRASE30
4039                     <FRAME '\1aDO-BLT>
4040                     <PUSH FROM4>
4041                     <DEAD FROM4>
4042                     <PUSH TO5>
4043                     <DEAD TO5>
4044                     <PUSH CT6>
4045                     <DEAD CT6>
4046                     <PUSH HINTS7>
4047                     <DEAD HINTS7>
4048                     <CALL '\1aDO-BLT 4 = TYPE8>
4049                     <RETURN TYPE8>
4050                     <DEAD TYPE8>
4051 PHRASE27
4052                     <FRAME '\1aERROR>
4053                     <PUSH 'BAD-HINT!-ERRORS>
4054                     <PUSH HINTS7>
4055                     <DEAD HINTS7>
4056                     <PUSH 'MOVE-WORDS-GEN>
4057                     <CALL '\1aERROR 3 = TYPE8>
4058                     <RETURN TYPE8>
4059                     <DEAD TYPE8>
4060                     <END \1aMOVE-WORDS-GEN>
4061 #WORD *36364145750*
4062 <GFCN \1aMOVE-STRING-GEN ("VALUE" ATOM ANY ANY ANY "OPTIONAL" ANY) FROM6 TO7 CT8 HINT9>
4063                     <OPT-DISPATCH 3 %<> OPT4 OPT5>
4064 OPT4
4065                     <PUSH %<>>
4066 OPT5
4067                     <TEMP TEMP11:ATOM>
4068                     <INTGO>
4069                     <FRAME '\1aDO-BLT>
4070                     <PUSH FROM6>
4071                     <DEAD FROM6>
4072                     <PUSH TO7>
4073                     <DEAD TO7>
4074                     <PUSH CT8>
4075                     <DEAD CT8>
4076                     <PUSH 0>
4077                     <CALL '\1aDO-BLT 4 = TEMP11>
4078                     <RETURN TEMP11>
4079                     <DEAD TEMP11>
4080                     <END \1aMOVE-STRING-GEN>
4081 #WORD *12645153613*
4082 <GFCN \1aDO-BLT ("VALUE" ATOM ANY ANY ANY ANY) FROM4 TO5 CT6 SHIFT7>
4083                     <TEMP SAVES8 TAC9 TEMP33 TEMP45 TEMP46>
4084                     <INTGO>
4085                     <GVAL 'SAVES = SAVES8>
4086                     <TYPE? FROM4 <TYPE-CODE VARTBL> - PHRASE11>
4087                     <FRAME '\1aVAR-VALUE-IN-AC?>
4088                     <PUSH FROM4>
4089                     <CALL '\1aVAR-VALUE-IN-AC? 1 = TAC9>
4090                     <TYPE? TAC9 <TYPE-CODE FALSE> + PHRASE11>
4091                     <FRAME '\1aSTORE-AC>
4092                     <PUSH TAC9>
4093                     <CALL '\1aSTORE-AC 1>
4094                     <FRAME '\1aPROTECT>
4095                     <PUSH TAC9>
4096                     <CALL '\1aPROTECT 1>
4097                     <PUTUV SAVES8 1 TAC9>
4098                     <DEAD TAC9>
4099                     <JUMP + COND10>
4100 PHRASE11
4101                     <PUTUV SAVES8 1 %<>>
4102 COND10
4103                     <TYPE? TO5 <TYPE-CODE VARTBL> - PHRASE17>
4104                     <FRAME '\1aVAR-VALUE-IN-AC?>
4105                     <PUSH TO5>
4106                     <CALL '\1aVAR-VALUE-IN-AC? 1 = TAC9>
4107                     <TYPE? TAC9 <TYPE-CODE FALSE> + PHRASE17>
4108                     <FRAME '\1aSTORE-AC>
4109                     <PUSH TAC9>
4110                     <CALL '\1aSTORE-AC 1>
4111                     <FRAME '\1aPROTECT>
4112                     <PUSH TAC9>
4113                     <CALL '\1aPROTECT 1>
4114                     <PUTUV SAVES8 2 TAC9>
4115                     <DEAD TAC9>
4116                     <JUMP + COND16>
4117 PHRASE17
4118                     <PUTUV SAVES8 2 %<>>
4119 COND16
4120                     <SET TAC9 %<> (TYPE FALSE)>
4121                     <TYPE? CT6 <TYPE-CODE VARTBL> + PHRASE23>
4122                     <LSH CT6 SHIFT7 = CT6 (TYPE FIX)>
4123                     <DEAD SHIFT7>
4124                     <JUMP + PHRASE38>
4125 PHRASE23
4126                     <GRTR? SHIFT7 0 - PHRASE26>
4127                     <FRAME '\1aLOAD-VAR>
4128                     <PUSH CT6>
4129                     <PUSH 'VALUE>
4130                     <PUSH 'T>
4131                     <PUSH 'PREF-VAL>
4132                     <CALL '\1aLOAD-VAR 4 = TAC9>
4133                     <FRAME '\1aPROTECT>
4134                     <PUSH TAC9>
4135                     <CALL '\1aPROTECT 1>
4136                     <FRAME '\1aEMIT>
4137                     <PUSH 120>
4138                     <FRAME '\1aMA-IMM>
4139                     <PUSH SHIFT7>
4140                     <DEAD SHIFT7>
4141                     <CALL '\1aMA-IMM 1 = STACK>
4142                     <NTHUV TAC9 2 = TEMP33 (TYPE FIX)>
4143                     <OR TEMP33 #WORD *120* = TEMP33>
4144                     <LSH TEMP33 24 = TEMP33 (TYPE FIX)>
4145                     <CHTYPE TEMP33 <TYPE-CODE EFF-ADDR> = STACK>
4146                     <DEAD TEMP33>
4147                     <NTHUV TAC9 2 = TEMP33 (TYPE FIX)>
4148                     <OR TEMP33 #WORD *120* = TEMP33>
4149                     <LSH TEMP33 24 = TEMP33 (TYPE FIX)>
4150                     <CHTYPE TEMP33 <TYPE-CODE EFF-ADDR> = STACK>
4151                     <DEAD TEMP33>
4152                     <CALL '\1aEMIT 4>
4153                     <PUTUV SAVES8 3 TAC9>
4154                     <DEAD TAC9>
4155                     <JUMP + PHRASE38>
4156 PHRASE26
4157                     <FRAME '\1aVAR-VALUE-IN-AC?>
4158                     <PUSH CT6>
4159                     <CALL '\1aVAR-VALUE-IN-AC? 1 = TAC9>
4160                     <TYPE? TAC9 <TYPE-CODE FALSE> + PHRASE34>
4161                     <FRAME '\1aSTORE-AC>
4162                     <PUSH TAC9>
4163                     <CALL '\1aSTORE-AC 1>
4164                     <FRAME '\1aPROTECT>
4165                     <PUSH TAC9>
4166                     <CALL '\1aPROTECT 1>
4167                     <PUTUV SAVES8 3 TAC9>
4168                     <DEAD TAC9>
4169                     <JUMP + PHRASE38>
4170 PHRASE34
4171                     <PUTUV SAVES8 3 %<>>
4172 PHRASE38
4173                     <GVAL 'AC-0 = TEMP33>
4174                     <SET TAC9 SAVES8>
4175                     <TYPE TEMP33 = TEMP45>
4176                     <LOOP (TEMP33 VALUE) (TEMP45 VALUE) (TAC9 LENGTH VALUE)>
4177 TAG42
4178                     <NTHUV TAC9 1 = TEMP46>
4179                     <TYPE? TEMP46 TEMP45 - TAG43>
4180                     <VEQUAL? TEMP46 TEMP33 + PHRASE40>
4181                     <DEAD TEMP46>
4182 TAG43
4183                     <RESTUV TAC9 1 = TAC9 (TYPE VECTOR)>
4184                     <EMPUV? TAC9 - TAG42>
4185                     <FRAME '\1aMUNG-AC>
4186                     <GVAL 'AC-0 = STACK>
4187                     <CALL '\1aMUNG-AC 1>
4188 PHRASE40
4189                     <GVAL 'AC-1 = TAC9>
4190                     <SET TEMP45 SAVES8>
4191                     <TYPE TAC9 = TEMP33>
4192                     <EMPUV? TEMP45 + TAG50>
4193                     <LOOP (TAC9 VALUE) (TEMP33 VALUE) (TEMP45 LENGTH VALUE)>
4194 TAG51
4195                     <NTHUV TEMP45 1 = TEMP46>
4196                     <TYPE? TEMP46 TEMP33 - TAG52>
4197                     <VEQUAL? TEMP46 TAC9 + PHRASE49>
4198                     <DEAD TEMP46>
4199 TAG52
4200                     <RESTUV TEMP45 1 = TEMP45 (TYPE VECTOR)>
4201                     <EMPUV? TEMP45 - TAG51>
4202 TAG50
4203                     <FRAME '\1aMUNG-AC>
4204                     <GVAL 'AC-1 = STACK>
4205                     <CALL '\1aMUNG-AC 1>
4206 PHRASE49
4207                     <GVAL 'AC-2 = TEMP45>
4208                     <SET TEMP33 SAVES8>
4209                     <TYPE TEMP45 = TAC9>
4210                     <EMPUV? TEMP33 + TAG56>
4211                     <LOOP (TEMP45 VALUE) (TAC9 VALUE) (TEMP33 LENGTH VALUE)>
4212 TAG57
4213                     <NTHUV TEMP33 1 = TEMP46>
4214                     <TYPE? TEMP46 TAC9 - TAG58>
4215                     <VEQUAL? TEMP46 TEMP45 + PHRASE55>
4216                     <DEAD TEMP46>
4217 TAG58
4218                     <RESTUV TEMP33 1 = TEMP33 (TYPE VECTOR)>
4219                     <EMPUV? TEMP33 - TAG57>
4220 TAG56
4221                     <FRAME '\1aMUNG-AC>
4222                     <GVAL 'AC-2 = STACK>
4223                     <CALL '\1aMUNG-AC 1>
4224 PHRASE55
4225                     <GVAL 'AC-3 = TEMP33>
4226                     <SET TAC9 SAVES8>
4227                     <TYPE TEMP33 = TEMP45>
4228                     <EMPUV? TAC9 + TAG62>
4229                     <LOOP (TEMP33 VALUE) (TEMP45 VALUE) (TAC9 LENGTH VALUE)>
4230 TAG63
4231                     <NTHUV TAC9 1 = TEMP46>
4232                     <TYPE? TEMP46 TEMP45 - TAG64>
4233                     <VEQUAL? TEMP46 TEMP33 + PHRASE61>
4234                     <DEAD TEMP46>
4235 TAG64
4236                     <RESTUV TAC9 1 = TAC9 (TYPE VECTOR)>
4237                     <EMPUV? TAC9 - TAG63>
4238 TAG62
4239                     <FRAME '\1aMUNG-AC>
4240                     <GVAL 'AC-3 = STACK>
4241                     <CALL '\1aMUNG-AC 1>
4242 PHRASE61
4243                     <GVAL 'AC-4 = TAC9>
4244                     <SET TEMP45 SAVES8>
4245                     <TYPE TAC9 = TEMP33>
4246                     <EMPUV? TEMP45 + TAG68>
4247                     <LOOP (TAC9 VALUE) (TEMP33 VALUE) (TEMP45 LENGTH VALUE)>
4248 TAG69
4249                     <NTHUV TEMP45 1 = TEMP46>
4250                     <TYPE? TEMP46 TEMP33 - TAG70>
4251                     <VEQUAL? TEMP46 TAC9 + PHRASE67>
4252                     <DEAD TEMP46>
4253 TAG70
4254                     <RESTUV TEMP45 1 = TEMP45 (TYPE VECTOR)>
4255                     <EMPUV? TEMP45 - TAG69>
4256 TAG68
4257                     <FRAME '\1aMUNG-AC>
4258                     <GVAL 'AC-4 = STACK>
4259                     <CALL '\1aMUNG-AC 1>
4260 PHRASE67
4261                     <GVAL 'AC-5 = TEMP45>
4262                     <SET TEMP33 SAVES8>
4263                     <TYPE TEMP45 = TAC9>
4264                     <EMPUV? TEMP33 + TAG74>
4265                     <LOOP (TEMP45 VALUE) (TAC9 VALUE) (TEMP33 LENGTH VALUE)>
4266 TAG75
4267                     <NTHUV TEMP33 1 = TEMP46>
4268                     <TYPE? TEMP46 TAC9 - TAG76>
4269                     <VEQUAL? TEMP46 TEMP45 + PHRASE73>
4270                     <DEAD TEMP46>
4271 TAG76
4272                     <RESTUV TEMP33 1 = TEMP33 (TYPE VECTOR)>
4273                     <EMPUV? TEMP33 - TAG75>
4274 TAG74
4275                     <FRAME '\1aMUNG-AC>
4276                     <GVAL 'AC-5 = STACK>
4277                     <CALL '\1aMUNG-AC 1>
4278 PHRASE73
4279                     <FRAME '\1aEMIT>
4280                     <PUSH 40>
4281                     <TYPE? CT6 <TYPE-CODE VARTBL> - PHRASE80>
4282                     <NTHUV SAVES8 3 = TEMP33>
4283                     <TYPE? TEMP33 <TYPE-CODE FALSE> + PHRASE82>
4284                     <DEAD TEMP33>
4285                     <NTHUV SAVES8 3 = TEMP33 (TYPE AC)>
4286                     <NTHUV TEMP33 2 = TEMP33 (TYPE FIX)>
4287                     <OR TEMP33 #WORD *120* = TEMP33>
4288                     <LSH TEMP33 24 = TEMP33 (TYPE FIX)>
4289                     <CHTYPE TEMP33 <TYPE-CODE EFF-ADDR> = TEMP33>
4290                     <JUMP + PHRASE84>
4291 PHRASE82
4292                     <FRAME '\1aVAR-VALUE-ADDRESS>
4293                     <PUSH CT6>
4294                     <DEAD CT6>
4295                     <CALL '\1aVAR-VALUE-ADDRESS 1 = TEMP33>
4296                     <JUMP + PHRASE84>
4297 PHRASE80
4298                     <FRAME '\1aMA-IMM>
4299                     <PUSH CT6>
4300                     <DEAD CT6>
4301                     <CALL '\1aMA-IMM 1 = TEMP33>
4302 PHRASE84
4303                     <PUSH TEMP33>
4304                     <DEAD TEMP33>
4305                     <TYPE? FROM4 <TYPE-CODE VARTBL> - PHRASE87>
4306                     <NTHUV SAVES8 1 = TEMP33>
4307                     <TYPE? TEMP33 <TYPE-CODE FALSE> + PHRASE89>
4308                     <DEAD TEMP33>
4309                     <NTHUV SAVES8 1 = TEMP33 (TYPE AC)>
4310                     <NTHUV TEMP33 2 = TEMP33 (TYPE FIX)>
4311                     <OR TEMP33 #WORD *140* = TEMP33>
4312                     <LSH TEMP33 24 = TEMP33 (TYPE FIX)>
4313                     <CHTYPE TEMP33 <TYPE-CODE EFF-ADDR> = TEMP33>
4314                     <JUMP + PHRASE92>
4315 PHRASE89
4316                     <FRAME '\1aGEN-LOC>
4317                     <PUSH FROM4>
4318                     <DEAD FROM4>
4319                     <PUSH 4>
4320                     <PUSH 'T>
4321                     <CALL '\1aGEN-LOC 3 = TEMP33>
4322                     <JUMP + PHRASE92>
4323 PHRASE87
4324                     <FRAME '\1aMA-DEF-DISP>
4325                     <GVAL 'AC-M = STACK>
4326                     <FRAME '\1aADD-MVEC>
4327                     <PUSH FROM4>
4328                     <DEAD FROM4>
4329                     <CALL '\1aADD-MVEC 1 = TAC9>
4330                     <ADD TAC9 4 = STACK (TYPE FIX)>
4331                     <DEAD TAC9>
4332                     <CALL '\1aMA-DEF-DISP 2 = TEMP33>
4333 PHRASE92
4334                     <PUSH TEMP33>
4335                     <DEAD TEMP33>
4336                     <TYPE? TO5 <TYPE-CODE VARTBL> - PHRASE96>
4337                     <NTHUV SAVES8 2 = TEMP33>
4338                     <TYPE? TEMP33 <TYPE-CODE FALSE> + PHRASE98>
4339                     <DEAD TEMP33>
4340                     <NTHUV SAVES8 2 = TEMP33 (TYPE AC)>
4341                     <NTHUV TEMP33 2 = TEMP33 (TYPE FIX)>
4342                     <OR TEMP33 #WORD *140* = TEMP33>
4343                     <LSH TEMP33 24 = TEMP33 (TYPE FIX)>
4344                     <CHTYPE TEMP33 <TYPE-CODE EFF-ADDR> = TEMP33>
4345                     <JUMP + PHRASE101>
4346 PHRASE98
4347                     <FRAME '\1aGEN-LOC>
4348                     <PUSH TO5>
4349                     <DEAD TO5>
4350                     <PUSH 4>
4351                     <PUSH 'T>
4352                     <CALL '\1aGEN-LOC 3 = TEMP33>
4353                     <JUMP + PHRASE101>
4354 PHRASE96
4355                     <FRAME '\1aMA-DEF-DISP>
4356                     <GVAL 'AC-M = STACK>
4357                     <FRAME '\1aADD-MVEC>
4358                     <PUSH TO5>
4359                     <DEAD TO5>
4360                     <CALL '\1aADD-MVEC 1 = TAC9>
4361                     <ADD TAC9 4 = STACK (TYPE FIX)>
4362                     <DEAD TAC9>
4363                     <CALL '\1aMA-DEF-DISP 2 = TEMP33>
4364 PHRASE101
4365                     <PUSH TEMP33>
4366                     <DEAD TEMP33>
4367                     <CALL '\1aEMIT 4>
4368                     <SET TEMP33 SAVES8 (TYPE VECTOR)>
4369                     <DEAD SAVES8>
4370                     <LOOP>
4371 MAP105
4372                     <INTGO>
4373                     <EMPUV? TEMP33 + MAPAP108>
4374                     <NTHUV TEMP33 1 = TAC9>
4375                     <TYPE? TAC9 <TYPE-CODE FALSE> + PHRASE113>
4376                     <NTHUV TAC9 2 = SAVES8 (TYPE FIX)>
4377                     <GRTR? SAVES8 5 + PHRASE113 (TYPE FIX)>
4378                     <DEAD SAVES8>
4379                     <FRAME '\1aMUNG-AC>
4380                     <PUSH TAC9>
4381                     <DEAD TAC9>
4382                     <CALL '\1aMUNG-AC 1>
4383 PHRASE113
4384                     <RESTUV TEMP33 1 = TEMP33 (TYPE VECTOR)>
4385                     <JUMP + MAP105>
4386 MAPAP108
4387                     <RETURN 'NORMAL>
4388                     <END \1aDO-BLT>
4389 #WORD *7733772020*
4390 <GFCN \1aSTRING-EQUAL?-GEN ("VALUE" ATOM ANY ANY ATOM ATOM) STR14 STR25 DIR6 LABEL7>
4391                     <TEMP SAVES9:VECTOR TEMP20 LV11 TEMP88 TEMP89 TEMP90>
4392                     <INTGO>
4393                     <GVAL 'SAVES = SAVES9>
4394                     <TYPE? STR14 <TYPE-CODE VARTBL> + PHRASE13>
4395                     <TYPE? STR25 <TYPE-CODE VARTBL> + PHRASE13>
4396                     <VEQUAL? DIR6 '- - PHRASE16>
4397                     <FRAME '\1aN=?>
4398                     <PUSH STR14>
4399                     <DEAD STR14>
4400                     <PUSH STR25>
4401                     <DEAD STR25>
4402                     <CALL '\1aN=? 2 = TEMP20>
4403                     <VEQUAL? TEMP20 0 + PHRASE22>
4404                     <DEAD TEMP20>
4405                     <FRAME '\1aUCBRANCH-GEN>
4406                     <PUSH DIR6>
4407                     <DEAD DIR6>
4408                     <PUSH LABEL7>
4409                     <DEAD LABEL7>
4410                     <CALL '\1aUCBRANCH-GEN 2>
4411                     <RETURN 'UNCONDITIONAL-BRANCH>
4412 PHRASE16
4413                     <FRAME '\1a=?>
4414                     <PUSH STR14>
4415                     <DEAD STR14>
4416                     <PUSH STR25>
4417                     <DEAD STR25>
4418                     <CALL '\1a=? 2 = TEMP20>
4419                     <VEQUAL? TEMP20 0 + PHRASE22>
4420                     <DEAD TEMP20>
4421                     <FRAME '\1aUCBRANCH-GEN>
4422                     <PUSH DIR6>
4423                     <DEAD DIR6>
4424                     <PUSH LABEL7>
4425                     <DEAD LABEL7>
4426                     <CALL '\1aUCBRANCH-GEN 2>
4427 PHRASE22
4428                     <RETURN 'UNCONDITIONAL-BRANCH>
4429 PHRASE13
4430                     <TYPE? STR14 <TYPE-CODE VARTBL> - PHRASE27>
4431                     <FRAME '\1aVAR-TYPE-WORD-IN-AC?>
4432                     <PUSH STR14>
4433                     <CALL '\1aVAR-TYPE-WORD-IN-AC? 1 = TEMP20>
4434                     <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE27>
4435                     <FRAME '\1aSTORE-AC>
4436                     <PUSH TEMP20>
4437                     <PUSH 'T>
4438                     <FRAME '\1aFIND-CACHE-VAR>
4439                     <PUSH STR14>
4440                     <CALL '\1aFIND-CACHE-VAR 1 = LV11>
4441                     <PUSH LV11>
4442                     <DEAD LV11>
4443                     <CALL '\1aSTORE-AC 3>
4444                     <FRAME '\1aSTORE-AC>
4445                     <PUSH TEMP20>
4446                     <DEAD TEMP20>
4447                     <PUSH %<>>
4448                     <CALL '\1aSTORE-AC 2>
4449 PHRASE27
4450                     <TYPE? STR25 <TYPE-CODE VARTBL> - PHRASE34>
4451                     <FRAME '\1aVAR-TYPE-WORD-IN-AC?>
4452                     <PUSH STR25>
4453                     <CALL '\1aVAR-TYPE-WORD-IN-AC? 1 = TEMP20>
4454                     <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE34>
4455                     <FRAME '\1aSTORE-AC>
4456                     <PUSH TEMP20>
4457                     <PUSH 'T>
4458                     <FRAME '\1aFIND-CACHE-VAR>
4459                     <PUSH STR25>
4460                     <CALL '\1aFIND-CACHE-VAR 1 = LV11>
4461                     <PUSH LV11>
4462                     <DEAD LV11>
4463                     <CALL '\1aSTORE-AC 3>
4464                     <FRAME '\1aSTORE-AC>
4465                     <PUSH TEMP20>
4466                     <DEAD TEMP20>
4467                     <PUSH %<>>
4468                     <CALL '\1aSTORE-AC 2>
4469 PHRASE34
4470                     <FRAME '\1aEMIT>
4471                     <PUSH 177>
4472                     <TYPE? STR14 <TYPE-CODE VARTBL> - PHRASE42>
4473                     <FRAME '\1aVAR-COUNT-ADDRESS>
4474                     <PUSH STR14>
4475                     <CALL '\1aVAR-COUNT-ADDRESS 1 = TEMP20>
4476                     <JUMP + PHRASE45>
4477 PHRASE42
4478                     <FRAME '\1aMA-IMM>
4479                     <FRAME '\1aLENGTH>
4480                     <PUSH STR14>
4481                     <CALL '\1aLENGTH 1 = STACK>
4482                     <CALL '\1aMA-IMM 1 = TEMP20>
4483 PHRASE45
4484                     <PUSH TEMP20>
4485                     <DEAD TEMP20>
4486                     <TYPE? STR25 <TYPE-CODE VARTBL> - PHRASE49>
4487                     <FRAME '\1aVAR-COUNT-ADDRESS>
4488                     <PUSH STR25>
4489                     <CALL '\1aVAR-COUNT-ADDRESS 1 = TEMP20>
4490                     <JUMP + PHRASE51>
4491 PHRASE49
4492                     <FRAME '\1aMA-IMM>
4493                     <FRAME '\1aLENGTH>
4494                     <PUSH STR25>
4495                     <CALL '\1aLENGTH 1 = STACK>
4496                     <CALL '\1aMA-IMM 1 = TEMP20>
4497 PHRASE51
4498                     <PUSH TEMP20>
4499                     <DEAD TEMP20>
4500                     <CALL '\1aEMIT 3>
4501                     <FRAME '\1aMAKE-LABEL>
4502                     <CALL '\1aMAKE-LABEL 0 = LV11>
4503                     <VEQUAL? DIR6 '- - PHRASE56>
4504                     <FRAME '\1aGEN-BRANCH>
4505                     <PUSH 18>
4506                     <PUSH LABEL7>
4507                     <PUSH %<>>
4508                     <PUSH %<>>
4509                     <PUSH %<>>
4510                     <PUSH 'T>
4511                     <CALL '\1aGEN-BRANCH 6>
4512                     <JUMP + PHRASE58>
4513 PHRASE56
4514                     <FRAME '\1aGEN-BRANCH>
4515                     <PUSH 18>
4516                     <PUSH LV11>
4517                     <PUSH %<>>
4518                     <PUSH %<>>
4519                     <PUSH %<>>
4520                     <PUSH 'T>
4521                     <CALL '\1aGEN-BRANCH 6>
4522 PHRASE58
4523                     <PUTUV SAVES9 1 %<>>
4524                     <TYPE? STR14 <TYPE-CODE VARTBL> - PHRASE63>
4525                     <FRAME '\1aVAR-COUNT-IN-AC?>
4526                     <PUSH STR14>
4527                     <CALL '\1aVAR-COUNT-IN-AC? 1 = TEMP20>
4528                     <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE63>
4529                     <FRAME '\1aPROTECT>
4530                     <PUSH TEMP20>
4531                     <CALL '\1aPROTECT 1>
4532                     <PUTUV SAVES9 1 TEMP20>
4533                     <DEAD TEMP20>
4534 PHRASE63
4535                     <NTHUV SAVES9 1 = TEMP20>
4536                     <TYPE? TEMP20 <TYPE-CODE FALSE> - PHRASE70>
4537                     <DEAD TEMP20>
4538                     <TYPE? STR25 <TYPE-CODE VARTBL> - PHRASE70>
4539                     <FRAME '\1aVAR-COUNT-IN-AC?>
4540                     <PUSH STR25>
4541                     <CALL '\1aVAR-COUNT-IN-AC? 1 = TEMP20>
4542                     <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE70>
4543                     <FRAME '\1aPROTECT>
4544                     <PUSH TEMP20>
4545                     <CALL '\1aPROTECT 1>
4546                     <PUTUV SAVES9 1 TEMP20>
4547                     <DEAD TEMP20>
4548 PHRASE70
4549                     <TYPE? STR14 <TYPE-CODE VARTBL> - PHRASE74>
4550                     <FRAME '\1aVAR-VALUE-IN-AC?>
4551                     <PUSH STR14>
4552                     <CALL '\1aVAR-VALUE-IN-AC? 1 = TEMP20>
4553                     <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE74>
4554                     <FRAME '\1aPROTECT>
4555                     <PUSH TEMP20>
4556                     <CALL '\1aPROTECT 1>
4557                     <PUTUV SAVES9 2 TEMP20>
4558                     <DEAD TEMP20>
4559                     <JUMP + COND73>
4560 PHRASE74
4561                     <PUTUV SAVES9 2 %<>>
4562 COND73
4563                     <TYPE? STR25 <TYPE-CODE VARTBL> - PHRASE79>
4564                     <FRAME '\1aVAR-VALUE-IN-AC?>
4565                     <PUSH STR25>
4566                     <CALL '\1aVAR-VALUE-IN-AC? 1 = TEMP20>
4567                     <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE79>
4568                     <FRAME '\1aPROTECT>
4569                     <PUSH TEMP20>
4570                     <CALL '\1aPROTECT 1>
4571                     <PUTUV SAVES9 3 TEMP20>
4572                     <DEAD TEMP20>
4573                     <JUMP + COND78>
4574 PHRASE79
4575                     <PUTUV SAVES9 3 %<>>
4576 COND78
4577                     <GVAL 'AC-0 = TEMP20>
4578                     <SET TEMP88 SAVES9>
4579                     <TYPE TEMP20 = TEMP89>
4580                     <LOOP (TEMP20 VALUE) (TEMP89 VALUE) (TEMP88 LENGTH VALUE)>
4581 TAG86
4582                     <NTHUV TEMP88 1 = TEMP90>
4583                     <TYPE? TEMP90 TEMP89 - TAG87>
4584                     <VEQUAL? TEMP90 TEMP20 + PHRASE84>
4585                     <DEAD TEMP90>
4586 TAG87
4587                     <RESTUV TEMP88 1 = TEMP88 (TYPE VECTOR)>
4588                     <EMPUV? TEMP88 - TAG86>
4589                     <FRAME '\1aMUNG-AC>
4590                     <GVAL 'AC-0 = STACK>
4591                     <CALL '\1aMUNG-AC 1>
4592                     <JUMP + COND83>
4593 PHRASE84
4594                     <FRAME '\1aSTORE-AC>
4595                     <GVAL 'AC-0 = STACK>
4596                     <CALL '\1aSTORE-AC 1>
4597 COND83
4598                     <GVAL 'AC-1 = TEMP88>
4599                     <SET TEMP89 SAVES9>
4600                     <TYPE TEMP88 = TEMP20>
4601                     <EMPUV? TEMP89 + TAG95>
4602                     <LOOP (TEMP88 VALUE) (TEMP20 VALUE) (TEMP89 LENGTH VALUE)>
4603 TAG96
4604                     <NTHUV TEMP89 1 = TEMP90>
4605                     <TYPE? TEMP90 TEMP20 - TAG97>
4606                     <VEQUAL? TEMP90 TEMP88 + PHRASE94>
4607                     <DEAD TEMP90>
4608 TAG97
4609                     <RESTUV TEMP89 1 = TEMP89 (TYPE VECTOR)>
4610                     <EMPUV? TEMP89 - TAG96>
4611 TAG95
4612                     <FRAME '\1aMUNG-AC>
4613                     <GVAL 'AC-1 = STACK>
4614                     <CALL '\1aMUNG-AC 1>
4615                     <JUMP + COND93>
4616 PHRASE94
4617                     <FRAME '\1aSTORE-AC>
4618                     <GVAL 'AC-1 = STACK>
4619                     <CALL '\1aSTORE-AC 1>
4620 COND93
4621                     <GVAL 'AC-2 = TEMP89>
4622                     <SET TEMP20 SAVES9>
4623                     <TYPE TEMP89 = TEMP88>
4624                     <EMPUV? TEMP20 + TAG102>
4625                     <LOOP (TEMP89 VALUE) (TEMP88 VALUE) (TEMP20 LENGTH VALUE)>
4626 TAG103
4627                     <NTHUV TEMP20 1 = TEMP90>
4628                     <TYPE? TEMP90 TEMP88 - TAG104>
4629                     <VEQUAL? TEMP90 TEMP89 + PHRASE101>
4630                     <DEAD TEMP90>
4631 TAG104
4632                     <RESTUV TEMP20 1 = TEMP20 (TYPE VECTOR)>
4633                     <EMPUV? TEMP20 - TAG103>
4634 TAG102
4635                     <FRAME '\1aMUNG-AC>
4636                     <GVAL 'AC-2 = STACK>
4637                     <CALL '\1aMUNG-AC 1>
4638                     <JUMP + COND100>
4639 PHRASE101
4640                     <FRAME '\1aSTORE-AC>
4641                     <GVAL 'AC-2 = STACK>
4642                     <CALL '\1aSTORE-AC 1>
4643 COND100
4644                     <GVAL 'AC-3 = TEMP20>
4645                     <SET TEMP88 SAVES9>
4646                     <TYPE TEMP20 = TEMP89>
4647                     <EMPUV? TEMP88 + TAG109>
4648                     <LOOP (TEMP20 VALUE) (TEMP89 VALUE) (TEMP88 LENGTH VALUE)>
4649 TAG110
4650                     <NTHUV TEMP88 1 = TEMP90>
4651                     <TYPE? TEMP90 TEMP89 - TAG111>
4652                     <VEQUAL? TEMP90 TEMP20 + PHRASE108>
4653                     <DEAD TEMP90>
4654 TAG111
4655                     <RESTUV TEMP88 1 = TEMP88 (TYPE VECTOR)>
4656                     <EMPUV? TEMP88 - TAG110>
4657 TAG109
4658                     <FRAME '\1aMUNG-AC>
4659                     <GVAL 'AC-3 = STACK>
4660                     <CALL '\1aMUNG-AC 1>
4661                     <JUMP + COND107>
4662 PHRASE108
4663                     <FRAME '\1aSTORE-AC>
4664                     <GVAL 'AC-3 = STACK>
4665                     <CALL '\1aSTORE-AC 1>
4666 COND107
4667                     <FRAME '\1aEMIT>
4668                     <PUSH 41>
4669                     <NTHUV SAVES9 1 = TEMP88>
4670                     <TYPE? TEMP88 <TYPE-CODE FALSE> + PHRASE116>
4671                     <DEAD TEMP88>
4672                     <NTHUV SAVES9 1 = TEMP88 (TYPE AC)>
4673                     <NTHUV TEMP88 2 = TEMP88 (TYPE FIX)>
4674                     <OR TEMP88 #WORD *120* = TEMP88>
4675                     <LSH TEMP88 24 = TEMP88 (TYPE FIX)>
4676                     <CHTYPE TEMP88 <TYPE-CODE EFF-ADDR> = TEMP88>
4677                     <JUMP + PHRASE123>
4678 PHRASE116
4679                     <TYPE? STR14 <TYPE-CODE VARTBL> + PHRASE117>
4680                     <FRAME '\1aMA-IMM>
4681                     <FRAME '\1aLENGTH>
4682                     <PUSH STR14>
4683                     <CALL '\1aLENGTH 1 = STACK>
4684                     <CALL '\1aMA-IMM 1 = TEMP88>
4685                     <JUMP + PHRASE123>
4686 PHRASE117
4687                     <TYPE? STR25 <TYPE-CODE VARTBL> + PHRASE120>
4688                     <FRAME '\1aMA-IMM>
4689                     <FRAME '\1aLENGTH>
4690                     <PUSH STR25>
4691                     <CALL '\1aLENGTH 1 = STACK>
4692                     <CALL '\1aMA-IMM 1 = TEMP88>
4693                     <JUMP + PHRASE123>
4694 PHRASE120
4695                     <FRAME '\1aVAR-COUNT-ADDRESS>
4696                     <PUSH STR14>
4697                     <CALL '\1aVAR-COUNT-ADDRESS 1 = TEMP88>
4698 PHRASE123
4699                     <PUSH TEMP88>
4700                     <DEAD TEMP88>
4701                     <NTHUV SAVES9 2 = TEMP88>
4702                     <TYPE? TEMP88 <TYPE-CODE FALSE> + PHRASE126>
4703                     <DEAD TEMP88>
4704                     <NTHUV SAVES9 2 = TEMP88 (TYPE AC)>
4705                     <NTHUV TEMP88 2 = TEMP88 (TYPE FIX)>
4706                     <OR TEMP88 #WORD *140* = TEMP88>
4707                     <LSH TEMP88 24 = TEMP88 (TYPE FIX)>
4708                     <CHTYPE TEMP88 <TYPE-CODE EFF-ADDR> = TEMP88>
4709                     <JUMP + PHRASE129>
4710 PHRASE126
4711                     <TYPE? STR14 <TYPE-CODE VARTBL> - PHRASE127>
4712                     <FRAME '\1aGEN-LOC>
4713                     <PUSH STR14>
4714                     <DEAD STR14>
4715                     <PUSH 4>
4716                     <PUSH 'T>
4717                     <CALL '\1aGEN-LOC 3 = TEMP88>
4718                     <JUMP + PHRASE129>
4719 PHRASE127
4720                     <FRAME '\1aMA-DEF-DISP>
4721                     <GVAL 'AC-M = STACK>
4722                     <FRAME '\1aADD-MVEC>
4723                     <PUSH STR14>
4724                     <DEAD STR14>
4725                     <CALL '\1aADD-MVEC 1 = TEMP89>
4726                     <ADD TEMP89 4 = STACK (TYPE FIX)>
4727                     <DEAD TEMP89>
4728                     <CALL '\1aMA-DEF-DISP 2 = TEMP88>
4729 PHRASE129
4730                     <PUSH TEMP88>
4731                     <DEAD TEMP88>
4732                     <NTHUV SAVES9 3 = TEMP88>
4733                     <TYPE? TEMP88 <TYPE-CODE FALSE> + PHRASE133>
4734                     <DEAD TEMP88>
4735                     <NTHUV SAVES9 3 = TEMP88 (TYPE AC)>
4736                     <DEAD SAVES9>
4737                     <NTHUV TEMP88 2 = TEMP88 (TYPE FIX)>
4738                     <OR TEMP88 #WORD *140* = TEMP88>
4739                     <LSH TEMP88 24 = TEMP88 (TYPE FIX)>
4740                     <CHTYPE TEMP88 <TYPE-CODE EFF-ADDR> = TEMP88>
4741                     <JUMP + PHRASE136>
4742 PHRASE133
4743                     <TYPE? STR25 <TYPE-CODE VARTBL> - PHRASE134>
4744                     <FRAME '\1aGEN-LOC>
4745                     <PUSH STR25>
4746                     <DEAD STR25>
4747                     <PUSH 4>
4748                     <PUSH 'T>
4749                     <CALL '\1aGEN-LOC 3 = TEMP88>
4750                     <JUMP + PHRASE136>
4751 PHRASE134
4752                     <FRAME '\1aMA-DEF-DISP>
4753                     <GVAL 'AC-M = STACK>
4754                     <FRAME '\1aADD-MVEC>
4755                     <PUSH STR25>
4756                     <DEAD STR25>
4757                     <CALL '\1aADD-MVEC 1 = TEMP89>
4758                     <ADD TEMP89 4 = STACK (TYPE FIX)>
4759                     <DEAD TEMP89>
4760                     <CALL '\1aMA-DEF-DISP 2 = TEMP88>
4761 PHRASE136
4762                     <PUSH TEMP88>
4763                     <DEAD TEMP88>
4764                     <CALL '\1aEMIT 4>
4765                     <FRAME '\1aMUNG-AC>
4766                     <GVAL 'AC-0 = STACK>
4767                     <CALL '\1aMUNG-AC 1>
4768                     <FRAME '\1aMUNG-AC>
4769                     <GVAL 'AC-1 = STACK>
4770                     <CALL '\1aMUNG-AC 1>
4771                     <FRAME '\1aMUNG-AC>
4772                     <GVAL 'AC-2 = STACK>
4773                     <CALL '\1aMUNG-AC 1>
4774                     <FRAME '\1aMUNG-AC>
4775                     <GVAL 'AC-3 = STACK>
4776                     <CALL '\1aMUNG-AC 1>
4777                     <VEQUAL? DIR6 '- - PHRASE144>
4778                     <DEAD DIR6>
4779                     <FRAME '\1aGEN-BRANCH>
4780                     <PUSH 18>
4781                     <PUSH LABEL7>
4782                     <DEAD LABEL7>
4783                     <PUSH %<>>
4784                     <CALL '\1aGEN-BRANCH 3>
4785                     <JUMP + PHRASE146>
4786 PHRASE144
4787                     <FRAME '\1aGEN-BRANCH>
4788                     <PUSH 19>
4789                     <PUSH LABEL7>
4790                     <DEAD LABEL7>
4791                     <PUSH %<>>
4792                     <CALL '\1aGEN-BRANCH 3>
4793 PHRASE146
4794                     <FRAME '\1aEMIT-LABEL>
4795                     <PUSH LV11>
4796                     <DEAD LV11>
4797                     <PUSH %<>>
4798                     <CALL '\1aEMIT-LABEL 2>
4799                     <RETURN 'CONDITIONAL-BRANCH>
4800                     <END \1aSTRING-EQUAL?-GEN>
4801 #WORD *27132666164*
4802 <GFCN \1aSTRCOMP-GEN ("VALUE" ATOM ANY ANY ANY) STR14 STR25 RES6>
4803                     <TEMP TEMP19 TEMP20 TEMP21 TEMP22 TEMP23 TEMP24>
4804                     <INTGO>
4805                     <TYPE? STR14 <TYPE-CODE VARTBL> + PHRASE13>
4806                     <TYPE? STR25 <TYPE-CODE VARTBL> + PHRASE13>
4807                     <TYPE? RES6 <TYPE-CODE ATOM> - PHRASE16>
4808                     <FRAME '\1aPUSH-CONSTANT>
4809                     <IFCAN "STRCOMP">
4810                     <STRCOMP STR14 STR25 = STACK>
4811                     <ENDIF "STRCOMP">
4812                     <IFCANNOT "STRCOMP">
4813                     <SET TEMP19 STR14>
4814                     <DEAD STR14>
4815                     <SET TEMP20 STR25>
4816                     <DEAD STR25>
4817                     <LENUS TEMP19 = TEMP21 (TYPE FIX)>
4818                     <LENUS TEMP20 = TEMP22 (TYPE FIX)>
4819                     <LOOP (TEMP19 VALUE LENGTH) (TEMP20 VALUE LENGTH) (TEMP21 VALUE) (TEMP22 VALUE)>
4820 TAG25
4821                     <NTHUS TEMP19 1 = TEMP23>
4822                     <NTHUS TEMP20 1 = TEMP24>
4823                     <VEQUAL? TEMP23 TEMP24 - TAG18>
4824                     <RESTUS TEMP19 1 = TEMP19 (TYPE STRING)>
4825                     <RESTUS TEMP20 1 = TEMP20 (TYPE STRING)>
4826                     <SUB TEMP22 1 = TEMP22 (TYPE FIX)>
4827                     <GRTR? TEMP22 0 - TAG26 (TYPE FIX)>
4828                     <SUB TEMP21 1 = TEMP21 (TYPE FIX)>
4829                     <GRTR? TEMP21 0 + TAG25 (TYPE FIX)>
4830                     <PUSH 1>
4831                     <JUMP + TAG27>
4832 TAG26
4833                     <SUB TEMP21 1 = TEMP21 (TYPE FIX)>
4834                     <VEQUAL TEMP21 0 - TAG28>
4835                     <DEAD TEMP21>
4836                     <PUSH 0>
4837                     <JUMP + TAG27>
4838 TAG28
4839                     <PUSH -1>
4840                     <JUMP + TAG27>
4841 TAG18
4842                     <GRTR? TEMP23 TEMP24 - TAG28>
4843                     <DEAD TEMP23 TEMP24>
4844                     <PUSH 1>
4845 TAG27
4846                     <ENDIF "STRCOMP">
4847                     <CALL '\1aPUSH-CONSTANT 1>
4848                     <RETURN 'NORMAL>
4849 PHRASE16
4850                     <FRAME '\1aSET-GEN>
4851                     <PUSH RES6>
4852                     <DEAD RES6>
4853                     <IFCAN "STRCOMP">
4854                     <STRCOMP STR14 STR25 = STACK>
4855                     <ENDIF "STRCOMP">
4856                     <IFCANNOT "STRCOMP">
4857                     <SET TEMP20 STR14>
4858                     <DEAD STR14>
4859                     <SET TEMP19 STR25>
4860                     <DEAD STR25>
4861                     <LENUS TEMP20 = TEMP24 (TYPE FIX)>
4862                     <LENUS TEMP19 = TEMP23 (TYPE FIX)>
4863                     <LOOP (TEMP20 VALUE LENGTH) (TEMP19 VALUE LENGTH) (TEMP24 VALUE) (TEMP23 VALUE)>
4864 TAG34
4865                     <NTHUS TEMP20 1 = TEMP21>
4866                     <NTHUS TEMP19 1 = TEMP22>
4867                     <VEQUAL? TEMP21 TEMP22 - TAG31>
4868                     <RESTUS TEMP20 1 = TEMP20 (TYPE STRING)>
4869                     <RESTUS TEMP19 1 = TEMP19 (TYPE STRING)>
4870                     <SUB TEMP23 1 = TEMP23 (TYPE FIX)>
4871                     <GRTR? TEMP23 0 - TAG35 (TYPE FIX)>
4872                     <SUB TEMP24 1 = TEMP24 (TYPE FIX)>
4873                     <GRTR? TEMP24 0 + TAG34 (TYPE FIX)>
4874                     <PUSH 1>
4875                     <JUMP + TAG36>
4876 TAG35
4877                     <SUB TEMP24 1 = TEMP24 (TYPE FIX)>
4878                     <VEQUAL TEMP24 0 - TAG37>
4879                     <DEAD TEMP24>
4880                     <PUSH 0>
4881                     <JUMP + TAG36>
4882 TAG37
4883                     <PUSH -1>
4884                     <JUMP + TAG36>
4885 TAG31
4886                     <GRTR? TEMP21 TEMP22 - TAG37>
4887                     <DEAD TEMP21 TEMP22>
4888                     <PUSH 1>
4889 TAG36
4890                     <ENDIF "STRCOMP">
4891                     <CALL '\1aSET-GEN 2>
4892                     <RETURN 'NORMAL>
4893 PHRASE13
4894                     <FRAME '\1aGET-AC>
4895                     <GVAL 'AC-4 = STACK>
4896                     <PUSH 'T>
4897                     <CALL '\1aGET-AC 2>
4898                     <FRAME '\1aGET-AC>
4899                     <GVAL 'AC-3 = STACK>
4900                     <PUSH 'T>
4901                     <CALL '\1aGET-AC 2>
4902                     <FRAME '\1aMUNG-AC>
4903                     <GVAL 'AC-0 = STACK>
4904                     <CALL '\1aMUNG-AC 1>
4905                     <FRAME '\1aMUNG-AC>
4906                     <GVAL 'AC-1 = STACK>
4907                     <CALL '\1aMUNG-AC 1>
4908                     <FRAME '\1aMUNG-AC>
4909                     <GVAL 'AC-2 = STACK>
4910                     <CALL '\1aMUNG-AC 1>
4911                     <FRAME '\1aEMIT-MOVE>
4912                     <FRAME '\1aMA-IMM>
4913                     <PUSH 0>
4914                     <CALL '\1aMA-IMM 1 = STACK>
4915                     <GVAL 'AC-4 = TEMP19>
4916                     <NTHUV TEMP19 2 = TEMP19 (TYPE FIX)>
4917                     <OR TEMP19 #WORD *120* = TEMP19>
4918                     <LSH TEMP19 24 = TEMP19 (TYPE FIX)>
4919                     <CHTYPE TEMP19 <TYPE-CODE EFF-ADDR> = STACK>
4920                     <DEAD TEMP19>
4921                     <PUSH 'LONG>
4922                     <CALL '\1aEMIT-MOVE 3>
4923                     <TYPE? STR14 <TYPE-CODE VARTBL> + PHRASE47>
4924                     <FRAME '\1aMA-IMM>
4925                     <FRAME '\1aLENGTH>
4926                     <PUSH STR14>
4927                     <CALL '\1aLENGTH 1 = STACK>
4928                     <CALL '\1aMA-IMM 1 = TEMP19>
4929                     <JUMP + PHRASE52>
4930 PHRASE47
4931                     <FRAME '\1aVAR-COUNT-IN-AC?>
4932                     <PUSH STR14>
4933                     <CALL '\1aVAR-COUNT-IN-AC? 1 = TEMP19>
4934                     <TYPE? TEMP19 <TYPE-CODE FALSE> + PHRASE50>
4935                     <NTHUV TEMP19 2 = TEMP19 (TYPE FIX)>
4936                     <OR TEMP19 #WORD *120* = TEMP19>
4937                     <LSH TEMP19 24 = TEMP19 (TYPE FIX)>
4938                     <CHTYPE TEMP19 <TYPE-CODE EFF-ADDR> = TEMP19>
4939                     <JUMP + PHRASE52>
4940 PHRASE50
4941                     <FRAME '\1aVAR-TYPE-WORD-IN-AC?>
4942                     <PUSH STR14>
4943                     <CALL '\1aVAR-TYPE-WORD-IN-AC? 1 = TEMP19>
4944                     <TYPE? TEMP19 <TYPE-CODE FALSE> + PHRASE54>
4945                     <FRAME '\1aSTORE-AC>
4946                     <PUSH TEMP19>
4947                     <PUSH 'T>
4948                     <FRAME '\1aFIND-CACHE-VAR>
4949                     <PUSH STR14>
4950                     <CALL '\1aFIND-CACHE-VAR 1 = TEMP20>
4951                     <PUSH TEMP20>
4952                     <DEAD TEMP20>
4953                     <CALL '\1aSTORE-AC 3>
4954                     <FRAME '\1aSTORE-AC>
4955                     <PUSH TEMP19>
4956                     <DEAD TEMP19>
4957                     <PUSH %<>>
4958                     <CALL '\1aSTORE-AC 2>
4959 PHRASE54
4960                     <FRAME '\1aVAR-COUNT-ADDRESS>
4961                     <PUSH STR14>
4962                     <CALL '\1aVAR-COUNT-ADDRESS 1 = TEMP19>
4963 PHRASE52
4964                     <FRAME '\1aEMIT-MOVE>
4965                     <PUSH TEMP19>
4966                     <DEAD TEMP19>
4967                     <GVAL 'AC-3 = TEMP19>
4968                     <NTHUV TEMP19 2 = TEMP19 (TYPE FIX)>
4969                     <OR TEMP19 #WORD *120* = TEMP19>
4970                     <LSH TEMP19 24 = TEMP19 (TYPE FIX)>
4971                     <CHTYPE TEMP19 <TYPE-CODE EFF-ADDR> = STACK>
4972                     <DEAD TEMP19>
4973                     <PUSH 'LONG>
4974                     <CALL '\1aEMIT-MOVE 3>
4975                     <FRAME '\1aEMIT>
4976                     <PUSH 177>
4977                     <GVAL 'AC-3 = TEMP19>
4978                     <NTHUV TEMP19 2 = TEMP19 (TYPE FIX)>
4979                     <OR TEMP19 #WORD *120* = TEMP19>
4980                     <LSH TEMP19 24 = TEMP19 (TYPE FIX)>
4981                     <CHTYPE TEMP19 <TYPE-CODE EFF-ADDR> = STACK>
4982                     <DEAD TEMP19>
4983                     <TYPE? STR25 <TYPE-CODE VARTBL> + PHRASE63>
4984                     <FRAME '\1aMA-IMM>
4985                     <FRAME '\1aLENGTH>
4986                     <PUSH STR25>
4987                     <CALL '\1aLENGTH 1 = STACK>
4988                     <CALL '\1aMA-IMM 1 = TEMP19>
4989                     <JUMP + PHRASE68>
4990 PHRASE63
4991                     <FRAME '\1aVAR-COUNT-IN-AC?>
4992                     <PUSH STR25>
4993                     <CALL '\1aVAR-COUNT-IN-AC? 1 = TEMP19>
4994                     <TYPE? TEMP19 <TYPE-CODE FALSE> + PHRASE66>
4995                     <NTHUV TEMP19 2 = TEMP20 (TYPE FIX)>
4996                     <DEAD TEMP19>
4997                     <OR TEMP20 #WORD *120* = TEMP20>
4998                     <LSH TEMP20 24 = TEMP20 (TYPE FIX)>
4999                     <CHTYPE TEMP20 <TYPE-CODE EFF-ADDR> = TEMP19>
5000                     <DEAD TEMP20>
5001                     <JUMP + PHRASE68>
5002 PHRASE66
5003                     <FRAME '\1aVAR-TYPE-WORD-IN-AC?>
5004                     <PUSH STR25>
5005                     <CALL '\1aVAR-TYPE-WORD-IN-AC? 1 = TEMP19>
5006                     <TYPE? TEMP19 <TYPE-CODE FALSE> + PHRASE70>
5007                     <FRAME '\1aSTORE-AC>
5008                     <PUSH TEMP19>
5009                     <PUSH 'T>
5010                     <FRAME '\1aFIND-CACHE-VAR>
5011                     <PUSH STR14>
5012                     <CALL '\1aFIND-CACHE-VAR 1 = STACK>
5013                     <CALL '\1aSTORE-AC 3>
5014                     <FRAME '\1aSTORE-AC>
5015                     <PUSH TEMP19>
5016                     <DEAD TEMP19>
5017                     <PUSH %<>>
5018                     <CALL '\1aSTORE-AC 2>
5019 PHRASE70
5020                     <FRAME '\1aVAR-COUNT-ADDRESS>
5021                     <PUSH STR25>
5022                     <CALL '\1aVAR-COUNT-ADDRESS 1 = TEMP19>
5023 PHRASE68
5024                     <PUSH TEMP19>
5025                     <DEAD TEMP19>
5026                     <CALL '\1aEMIT 3>
5027                     <FRAME '\1aMAKE-LABEL>
5028                     <CALL '\1aMAKE-LABEL 0 = TEMP20>
5029                     <FRAME '\1aMAKE-LABEL>
5030                     <CALL '\1aMAKE-LABEL 0 = TEMP21>
5031                     <FRAME '\1aGEN-BRANCH>
5032                     <PUSH 19>
5033                     <PUSH TEMP20>
5034                     <PUSH %<>>
5035                     <PUSH %<>>
5036                     <PUSH %<>>
5037                     <PUSH 'T>
5038                     <CALL '\1aGEN-BRANCH 6>
5039                     <FRAME '\1aGEN-BRANCH>
5040                     <PUSH 25>
5041                     <PUSH TEMP21>
5042                     <PUSH %<>>
5043                     <PUSH %<>>
5044                     <PUSH %<>>
5045                     <PUSH 'T>
5046                     <CALL '\1aGEN-BRANCH 6>
5047                     <FRAME '\1aEMIT-MOVE>
5048                     <FRAME '\1aMA-IMM>
5049                     <PUSH 1>
5050                     <CALL '\1aMA-IMM 1 = STACK>
5051                     <GVAL 'AC-4 = TEMP19>
5052                     <NTHUV TEMP19 2 = TEMP19 (TYPE FIX)>
5053                     <OR TEMP19 #WORD *120* = TEMP19>
5054                     <LSH TEMP19 24 = TEMP19 (TYPE FIX)>
5055                     <CHTYPE TEMP19 <TYPE-CODE EFF-ADDR> = STACK>
5056                     <DEAD TEMP19>
5057                     <PUSH 'LONG>
5058                     <CALL '\1aEMIT-MOVE 3>
5059                     <FRAME '\1aEMIT-MOVE>
5060                     <TYPE? STR25 <TYPE-CODE VARTBL> - PHRASE84>
5061                     <FRAME '\1aVAR-COUNT-ADDRESS>
5062                     <PUSH STR25>
5063                     <CALL '\1aVAR-COUNT-ADDRESS 1 = TEMP19>
5064                     <JUMP + PHRASE86>
5065 PHRASE84
5066                     <FRAME '\1aMA-IMM>
5067                     <FRAME '\1aLENGTH>
5068                     <PUSH STR25>
5069                     <CALL '\1aLENGTH 1 = STACK>
5070                     <CALL '\1aMA-IMM 1 = TEMP19>
5071 PHRASE86
5072                     <PUSH TEMP19>
5073                     <DEAD TEMP19>
5074                     <GVAL 'AC-3 = TEMP19>
5075                     <NTHUV TEMP19 2 = TEMP19 (TYPE FIX)>
5076                     <OR TEMP19 #WORD *120* = TEMP19>
5077                     <LSH TEMP19 24 = TEMP19 (TYPE FIX)>
5078                     <CHTYPE TEMP19 <TYPE-CODE EFF-ADDR> = STACK>
5079                     <DEAD TEMP19>
5080                     <PUSH 'LONG>
5081                     <CALL '\1aEMIT-MOVE 3>
5082                     <FRAME '\1aGEN-BRANCH>
5083                     <PUSH 17>
5084                     <PUSH TEMP20>
5085                     <PUSH 'UNCONDITIONAL-BRANCH>
5086                     <PUSH %<>>
5087                     <PUSH %<>>
5088                     <PUSH 'T>
5089                     <CALL '\1aGEN-BRANCH 6>
5090                     <FRAME '\1aEMIT-LABEL>
5091                     <PUSH TEMP21>
5092                     <DEAD TEMP21>
5093                     <PUSH %<>>
5094                     <CALL '\1aEMIT-LABEL 2>
5095                     <FRAME '\1aEMIT-MOVE>
5096                     <FRAME '\1aMA-IMM>
5097                     <PUSH -1>
5098                     <CALL '\1aMA-IMM 1 = STACK>
5099                     <GVAL 'AC-4 = TEMP19>
5100                     <NTHUV TEMP19 2 = TEMP19 (TYPE FIX)>
5101                     <OR TEMP19 #WORD *120* = TEMP19>
5102                     <LSH TEMP19 24 = TEMP19 (TYPE FIX)>
5103                     <CHTYPE TEMP19 <TYPE-CODE EFF-ADDR> = STACK>
5104                     <DEAD TEMP19>
5105                     <PUSH 'LONG>
5106                     <CALL '\1aEMIT-MOVE 3>
5107                     <FRAME '\1aEMIT-LABEL>
5108                     <PUSH TEMP20>
5109                     <DEAD TEMP20>
5110                     <PUSH %<>>
5111                     <CALL '\1aEMIT-LABEL 2>
5112                     <FRAME '\1aEMIT>
5113                     <PUSH 41>
5114                     <GVAL 'AC-3 = TEMP19>
5115                     <NTHUV TEMP19 2 = TEMP19 (TYPE FIX)>
5116                     <OR TEMP19 #WORD *120* = TEMP19>
5117                     <LSH TEMP19 24 = TEMP19 (TYPE FIX)>
5118                     <CHTYPE TEMP19 <TYPE-CODE EFF-ADDR> = STACK>
5119                     <DEAD TEMP19>
5120                     <TYPE? STR14 <TYPE-CODE VARTBL> - PHRASE96>
5121                     <FRAME '\1aVAR-VALUE-IN-AC?>
5122                     <PUSH STR14>
5123                     <CALL '\1aVAR-VALUE-IN-AC? 1 = TEMP19>
5124                     <TYPE? TEMP19 <TYPE-CODE FALSE> + PHRASE98>
5125                     <NTHUV TEMP19 2 = TEMP19 (TYPE FIX)>
5126                     <OR TEMP19 #WORD *140* = TEMP19>
5127                     <LSH TEMP19 24 = TEMP19 (TYPE FIX)>
5128                     <CHTYPE TEMP19 <TYPE-CODE EFF-ADDR> = TEMP19>
5129                     <JUMP + COND95>
5130 PHRASE98
5131                     <FRAME '\1aGEN-LOC>
5132                     <PUSH STR14>
5133                     <DEAD STR14>
5134                     <PUSH 4>
5135                     <PUSH 'T>
5136                     <CALL '\1aGEN-LOC 3 = TEMP19>
5137                     <JUMP + COND95>
5138 PHRASE96
5139                     <FRAME '\1aMA-DEF-DISP>
5140                     <GVAL 'AC-M = STACK>
5141                     <FRAME '\1aADD-MVEC>
5142                     <PUSH STR14>
5143                     <DEAD STR14>
5144                     <CALL '\1aADD-MVEC 1 = TEMP20>
5145                     <ADD TEMP20 4 = STACK (TYPE FIX)>
5146                     <DEAD TEMP20>
5147                     <CALL '\1aMA-DEF-DISP 2 = TEMP19>
5148 COND95
5149                     <PUSH TEMP19>
5150                     <DEAD TEMP19>
5151                     <TYPE? STR25 <TYPE-CODE VARTBL> - PHRASE105>
5152                     <FRAME '\1aVAR-VALUE-IN-AC?>
5153                     <PUSH STR25>
5154                     <CALL '\1aVAR-VALUE-IN-AC? 1 = TEMP19>
5155                     <TYPE? TEMP19 <TYPE-CODE FALSE> + PHRASE107>
5156                     <NTHUV TEMP19 2 = TEMP19 (TYPE FIX)>
5157                     <OR TEMP19 #WORD *140* = TEMP19>
5158                     <LSH TEMP19 24 = TEMP19 (TYPE FIX)>
5159                     <CHTYPE TEMP19 <TYPE-CODE EFF-ADDR> = TEMP19>
5160                     <JUMP + COND104>
5161 PHRASE107
5162                     <FRAME '\1aGEN-LOC>
5163                     <PUSH STR25>
5164                     <DEAD STR25>
5165                     <PUSH 4>
5166                     <PUSH 'T>
5167                     <CALL '\1aGEN-LOC 3 = TEMP19>
5168                     <JUMP + COND104>
5169 PHRASE105
5170                     <FRAME '\1aMA-DEF-DISP>
5171                     <GVAL 'AC-M = STACK>
5172                     <FRAME '\1aADD-MVEC>
5173                     <PUSH STR25>
5174                     <DEAD STR25>
5175                     <CALL '\1aADD-MVEC 1 = TEMP20>
5176                     <ADD TEMP20 4 = STACK (TYPE FIX)>
5177                     <DEAD TEMP20>
5178                     <CALL '\1aMA-DEF-DISP 2 = TEMP19>
5179 COND104
5180                     <PUSH TEMP19>
5181                     <DEAD TEMP19>
5182                     <CALL '\1aEMIT 4>
5183                     <FRAME '\1aMAKE-LABEL>
5184                     <CALL '\1aMAKE-LABEL 0 = TEMP20>
5185                     <FRAME '\1aMAKE-LABEL>
5186                     <CALL '\1aMAKE-LABEL 0 = TEMP21>
5187                     <FRAME '\1aGEN-BRANCH>
5188                     <PUSH 19>
5189                     <PUSH TEMP20>
5190                     <PUSH %<>>
5191                     <PUSH %<>>
5192                     <PUSH %<>>
5193                     <PUSH 'T>
5194                     <CALL '\1aGEN-BRANCH 6>
5195                     <FRAME '\1aGEN-BRANCH>
5196                     <PUSH 25>
5197                     <PUSH TEMP21>
5198                     <PUSH %<>>
5199                     <PUSH %<>>
5200                     <PUSH %<>>
5201                     <PUSH 'T>
5202                     <CALL '\1aGEN-BRANCH 6>
5203                     <FRAME '\1aEMIT-MOVE>
5204                     <FRAME '\1aMA-IMM>
5205                     <PUSH 1>
5206                     <CALL '\1aMA-IMM 1 = STACK>
5207                     <GVAL 'AC-4 = TEMP19>
5208                     <NTHUV TEMP19 2 = TEMP19 (TYPE FIX)>
5209                     <OR TEMP19 #WORD *120* = TEMP19>
5210                     <LSH TEMP19 24 = TEMP19 (TYPE FIX)>
5211                     <CHTYPE TEMP19 <TYPE-CODE EFF-ADDR> = STACK>
5212                     <DEAD TEMP19>
5213                     <PUSH 'LONG>
5214                     <CALL '\1aEMIT-MOVE 3>
5215                     <FRAME '\1aGEN-BRANCH>
5216                     <PUSH 17>
5217                     <PUSH TEMP20>
5218                     <PUSH 'UNCONDITIONAL-BRANCH>
5219                     <PUSH %<>>
5220                     <PUSH %<>>
5221                     <PUSH 'T>
5222                     <CALL '\1aGEN-BRANCH 6>
5223                     <FRAME '\1aEMIT-LABEL>
5224                     <PUSH TEMP21>
5225                     <DEAD TEMP21>
5226                     <PUSH %<>>
5227                     <CALL '\1aEMIT-LABEL 2>
5228                     <FRAME '\1aEMIT-MOVE>
5229                     <FRAME '\1aMA-IMM>
5230                     <PUSH -1>
5231                     <CALL '\1aMA-IMM 1 = STACK>
5232                     <GVAL 'AC-4 = TEMP19>
5233                     <NTHUV TEMP19 2 = TEMP19 (TYPE FIX)>
5234                     <OR TEMP19 #WORD *120* = TEMP19>
5235                     <LSH TEMP19 24 = TEMP19 (TYPE FIX)>
5236                     <CHTYPE TEMP19 <TYPE-CODE EFF-ADDR> = STACK>
5237                     <DEAD TEMP19>
5238                     <PUSH 'LONG>
5239                     <CALL '\1aEMIT-MOVE 3>
5240                     <FRAME '\1aEMIT-LABEL>
5241                     <PUSH TEMP20>
5242                     <DEAD TEMP20>
5243                     <PUSH %<>>
5244                     <CALL '\1aEMIT-LABEL 2>
5245                     <EQUAL? RES6 'STACK - PHRASE125>
5246                     <FRAME '\1aEMIT-PUSH>
5247                     <FRAME '\1aTYPE-WORD>
5248                     <PUSH 'FIX>
5249                     <CALL '\1aTYPE-WORD 1 = STACK>
5250                     <PUSH 'LONG>
5251                     <CALL '\1aEMIT-PUSH 2>
5252                     <FRAME '\1aEMIT-PUSH>
5253                     <GVAL 'AC-4 = TEMP19>
5254                     <NTHUV TEMP19 2 = TEMP19 (TYPE FIX)>
5255                     <OR TEMP19 #WORD *120* = TEMP19>
5256                     <LSH TEMP19 24 = TEMP19 (TYPE FIX)>
5257                     <CHTYPE TEMP19 <TYPE-CODE EFF-ADDR> = STACK>
5258                     <DEAD TEMP19>
5259                     <PUSH 'LONG>
5260                     <CALL '\1aEMIT-PUSH 2>
5261                     <RETURN 'NORMAL>
5262 PHRASE125
5263                     <FRAME '\1aDEST-DECL>
5264                     <GVAL 'AC-4 = STACK>
5265                     <PUSH RES6>
5266                     <DEAD RES6>
5267                     <PUSH 'FIX>
5268                     <CALL '\1aDEST-DECL 3>
5269                     <RETURN 'NORMAL>
5270                     <END \1aSTRCOMP-GEN>\r\0\7f