mim/development/mim/vaxc/intgen.mima

   1
   2 <SETG LB-DOPE <+ <CHTYPE <LSH 18 16> FIX> 32 770>>
   3
   4 <SETG LB-OBJ 0>
   5
   6 <SETG LB-ATOM 8>
   7
   8 <SETG LB-DECL 12>
   9
  10 <SETG LB-PREV 20>
  11
  12 <SETG LB-LAST 24>
  13
  14 <SETG LB-BID 28>
  15
  16 <MANIFEST LB-DOPE LB-OBJ LB-ATOM LB-DECL LB-PREV LB-LAST LB-BID>
  17
  18 #WORD *17217611322*
  19                     <GFCN \1aGEN-BBIND ("VALUE" ATOM ATOM ANY <OR ATOM FALSE> "OPTIONAL" ANY) ATM6 DECL7 FIXUP?8 INIT9>
  20                     <OPT-DISPATCH 3 %<> OPT4 OPT5>
  21 OPT4
  22                     <PUSH #T$UNBOUND 0>
  23 OPT5
  24                     <TEMP AC10 TEMP23 TEMP28>
  25                     <INTGO>
  26                     <FRAME '\1aEMIT-PUSH>
  27                     <FRAME '\1aMA-IMM>
  28                     <PUSH 1180450>
  29                     <CALL '\1aMA-IMM 1 = STACK>
  30                     <PUSH 'LONG>
  31                     <CALL '\1aEMIT-PUSH 2>
  32                     <TYPE? INIT9 <TYPE-CODE UNBOUND> + PHRASE15>
  33                     <FRAME '\1aPUSH-GEN>
  34                     <PUSH INIT9>
  35                     <DEAD INIT9>
  36                     <CALL '\1aPUSH-GEN 1>
  37                     <JUMP + PHRASE17>
  38 PHRASE15
  39                     <FRAME '\1aEMIT-PUSH>
  40                     <FRAME '\1aMA-IMM>
  41                     <PUSH 0>
  42                     <CALL '\1aMA-IMM 1 = STACK>
  43                     <PUSH 'DOUBLE>
  44                     <CALL '\1aEMIT-PUSH 2>
  45 PHRASE17
  46                     <FRAME '\1aGET-AC>
  47                     <PUSH 'PREF-VAL>
  48                     <PUSH 'T>
  49                     <CALL '\1aGET-AC 2 = AC10>
  50                     <FRAME '\1aEMIT-MOVE>
  51                     <FRAME '\1aADDR-VALUE-MQUOTE>
  52                     <PUSH ATM6>
  53                     <DEAD ATM6>
  54                     <CALL '\1aADDR-VALUE-MQUOTE 1 = STACK>
  55                     <NTHUV AC10 2 = TEMP23 (TYPE FIX)>
  56                     <OR TEMP23 #WORD *120* = TEMP23>
  57                     <LSH TEMP23 24 = TEMP23 (TYPE FIX)>
  58                     <CHTYPE TEMP23 <TYPE-CODE EFF-ADDR> = TEMP23>
  59                     <PUSH TEMP23>
  60                     <PUSH 'LONG>
  61                     <CALL '\1aEMIT-MOVE 3>
  62                     <FRAME '\1aEMIT-MOVE>
  63                     <PUSH TEMP23>
  64                     <DEAD TEMP23>
  65                     <GVAL 'AC-TP = TEMP23>
  66                     <NTHUV TEMP23 2 = TEMP23 (TYPE FIX)>
  67                     <OR TEMP23 #WORD *200* = TEMP23>
  68                     <LSH TEMP23 24 = TEMP23 (TYPE FIX)>
  69                     <CHTYPE TEMP23 <TYPE-CODE EFF-ADDR> = STACK>
  70                     <DEAD TEMP23>
  71                     <PUSH 'LONG>
  72                     <CALL '\1aEMIT-MOVE 3>
  73                     <FRAME '\1aPUSH-GEN>
  74                     <PUSH DECL7>
  75                     <DEAD DECL7>
  76                     <CALL '\1aPUSH-GEN 1>
  77                     <FRAME '\1aEMIT-PUSH>
  78                     <GVAL 'AC-PC = TEMP23>
  79                     <NTHUV TEMP23 2 = TEMP23 (TYPE FIX)>
  80                     <OR TEMP23 #WORD *220* = TEMP23>
  81                     <LSH TEMP23 24 = TEMP23 (TYPE FIX)>
  82                     <CHTYPE TEMP23 <TYPE-CODE EFF-ADDR> = TEMP23>
  83                     <CONS TEMP23 () = TEMP23>
  84                     <FRAME '\1aLREV>
  85                     <GVAL 'SPSTO-LOC = STACK>
  86                     <CALL '\1aLREV 1 = TEMP28>
  87                     <CHTYPE TEMP28 <TYPE-CODE EFF-ADDR> = TEMP28>
  88                     <CONS TEMP28 () = TEMP28>
  89                     <PUTREST TEMP23 TEMP28>
  90                     <DEAD TEMP28>
  91                     <CHTYPE TEMP23 <TYPE-CODE LADDR> = STACK>
  92                     <DEAD TEMP23>
  93                     <PUSH 'LONG>
  94                     <CALL '\1aEMIT-PUSH 2>
  95                     <FRAME '\1aEMIT-PUSH>
  96                     <FRAME '\1aMA-DISP>
  97                     <PUSH AC10>
  98                     <PUSH 4>
  99                     <CALL '\1aMA-DISP 2 = STACK>
 100                     <PUSH 'LONG>
 101                     <CALL '\1aEMIT-PUSH 2>
 102                     <FRAME '\1aEMIT-PUSH>
 103                     <GVAL 'AC-PC = TEMP23>
 104                     <NTHUV TEMP23 2 = TEMP23 (TYPE FIX)>
 105                     <OR TEMP23 #WORD *220* = TEMP23>
 106                     <LSH TEMP23 24 = TEMP23 (TYPE FIX)>
 107                     <CHTYPE TEMP23 <TYPE-CODE EFF-ADDR> = TEMP23>
 108                     <CONS TEMP23 () = TEMP23>
 109                     <FRAME '\1aLREV>
 110                     <GVAL 'BINDID-LOC = STACK>
 111                     <CALL '\1aLREV 1 = TEMP28>
 112                     <CHTYPE TEMP28 <TYPE-CODE EFF-ADDR> = TEMP28>
 113                     <CONS TEMP28 () = TEMP28>
 114                     <PUTREST TEMP23 TEMP28>
 115                     <DEAD TEMP28>
 116                     <CHTYPE TEMP23 <TYPE-CODE LADDR> = STACK>
 117                     <DEAD TEMP23>
 118                     <PUSH 'LONG>
 119                     <CALL '\1aEMIT-PUSH 2>
 120                     <FRAME '\1aEMIT>
 121                     <PUSH 222>
 122                     <FRAME '\1aMA-DISP>
 123                     <GVAL 'AC-TP = STACK>
 124                     <PUSH -32>
 125                     <CALL '\1aMA-DISP 2 = STACK>
 126                     <GVAL 'AC-PC = TEMP23>
 127                     <NTHUV TEMP23 2 = TEMP23 (TYPE FIX)>
 128                     <OR TEMP23 #WORD *220* = TEMP23>
 129                     <LSH TEMP23 24 = TEMP23 (TYPE FIX)>
 130                     <CHTYPE TEMP23 <TYPE-CODE EFF-ADDR> = TEMP23>
 131                     <CONS TEMP23 () = TEMP23>
 132                     <FRAME '\1aLREV>
 133                     <GVAL 'SPSTO-LOC = STACK>
 134                     <CALL '\1aLREV 1 = TEMP28>
 135                     <CHTYPE TEMP28 <TYPE-CODE EFF-ADDR> = TEMP28>
 136                     <CONS TEMP28 () = TEMP28>
 137                     <PUTREST TEMP23 TEMP28>
 138                     <DEAD TEMP28>
 139                     <CHTYPE TEMP23 <TYPE-CODE LADDR> = STACK>
 140                     <DEAD TEMP23>
 141                     <CALL '\1aEMIT 3>
 142                     <TYPE? FIXUP?8 <TYPE-CODE FALSE> + PHRASE37>
 143                     <DEAD FIXUP?8>
 144                     <FRAME '\1aEMIT>
 145                     <PUSH 222>
 146                     <FRAME '\1aMA-DISP>
 147                     <GVAL 'AC-TP = STACK>
 148                     <PUSH -32>
 149                     <CALL '\1aMA-DISP 2 = STACK>
 150                     <NTHUV AC10 2 = TEMP23 (TYPE FIX)>
 151                     <DEAD AC10>
 152                     <OR TEMP23 #WORD *340* = TEMP23>
 153                     <LSH TEMP23 24 = TEMP23 (TYPE FIX)>
 154                     <CHTYPE TEMP23 <TYPE-CODE EFF-ADDR> = TEMP23>
 155                     <CONS TEMP23 () = TEMP23>
 156                     <FRAME '\1aLREV>
 157                     <PUSH 4>
 158                     <CALL '\1aLREV 1 = TEMP28>
 159                     <CHTYPE TEMP28 <TYPE-CODE EFF-ADDR> = TEMP28>
 160                     <CONS TEMP28 () = TEMP28>
 161                     <PUTREST TEMP23 TEMP28>
 162                     <DEAD TEMP28>
 163                     <CHTYPE TEMP23 <TYPE-CODE LADDR> = STACK>
 164                     <DEAD TEMP23>
 165                     <CALL '\1aEMIT 3>
 166 PHRASE37
 167                     <RETURN 'NORMAL>
 168                     <END \1aGEN-BBIND>
 169
 170 #WORD *5263336007*
 171                     <GFCN \1aGEN-ASSIGNED? ("VALUE" ATOM ANY ANY ANY) FROB4 DIR5 LABEL6>
 172                     <TEMP TEMP9>
 173                     <INTGO>
 174                     <FRAME '\1aCALL-RTE>
 175                     <GVAL 'IASSQ!-MIMOP = STACK>
 176                     <PUSH 'CALL>
 177                     <PUSH %<>>
 178                     <PUSH %<>>
 179                     <PUSH FROB4>
 180                     <DEAD FROB4>
 181                     <CALL '\1aCALL-RTE 5>
 182                     <FRAME '\1aEMIT>
 183                     <PUSH 213>
 184                     <GVAL 'AC-1 = TEMP9>
 185                     <NTHUV TEMP9 2 = TEMP9 (TYPE FIX)>
 186                     <OR TEMP9 #WORD *120* = TEMP9>
 187                     <LSH TEMP9 24 = TEMP9 (TYPE FIX)>
 188                     <CHTYPE TEMP9 <TYPE-CODE EFF-ADDR> = STACK>
 189                     <DEAD TEMP9>
 190                     <CALL '\1aEMIT 2>
 191                     <EQUAL? DIR5 '- - PHRASE11>
 192                     <DEAD DIR5>
 193                     <FRAME '\1aGEN-BRANCH>
 194                     <PUSH 19>
 195                     <PUSH LABEL6>
 196                     <DEAD LABEL6>
 197                     <PUSH 'CONDITIONAL-BRANCH>
 198                     <CALL '\1aGEN-BRANCH 3>
 199                     <RETURN 'CONDITIONAL-BRANCH>
 200 PHRASE11
 201                     <FRAME '\1aGEN-BRANCH>
 202                     <PUSH 18>
 203                     <PUSH LABEL6>
 204                     <DEAD LABEL6>
 205                     <PUSH 'CONDITIONAL-BRANCH>
 206                     <CALL '\1aGEN-BRANCH 3>
 207                     <RETURN 'CONDITIONAL-BRANCH>
 208                     <END \1aGEN-ASSIGNED?>
 209
 210 #WORD *17215554571*
 211                     <GFCN \1aGEN-LVAL ("VALUE" ATOM <OR ATOM VARTBL> ANY) ATM4 RES5>
 212                     <TEMP>
 213                     <INTGO>
 214                     <FRAME '\1aCALL-RTE>
 215                     <GVAL 'ILVAL!-MIMOP = STACK>
 216                     <PUSH 'CALL>
 217                     <PUSH RES5>
 218                     <DEAD RES5>
 219                     <PUSH %<>>
 220                     <PUSH ATM4>
 221                     <DEAD ATM4>
 222                     <CALL '\1aCALL-RTE 5>
 223                     <RETURN 'NORMAL>
 224                     <END \1aGEN-LVAL>
 225
 226 #WORD *14271027403*
 227                     <GFCN \1aGEN-SET ("VALUE" ATOM ANY ANY) ATM4 VAL5>
 228                     <TEMP>
 229                     <INTGO>
 230                     <FRAME '\1aCALL-RTE>
 231                     <GVAL 'ISET!-MIMOP = STACK>
 232                     <PUSH 'CALL>
 233                     <PUSH %<>>
 234                     <PUSH %<>>
 235                     <PUSH ATM4>
 236                     <DEAD ATM4>
 237                     <PUSH VAL5>
 238                     <DEAD VAL5>
 239                     <CALL '\1aCALL-RTE 6>
 240                     <RETURN 'NORMAL>
 241                     <END \1aGEN-SET>
 242
 243 #WORD *30670023021*
 244                     <GFCN \1aMOVSTK-GEN ("VALUE" ATOM ANY "OPTIONAL" ANY ANY ANY) AMT8 RES9 HINT10 TYP11>
 245                     <OPT-DISPATCH 1 %<> OPT4 OPT5 OPT6 OPT7>
 246 OPT4
 247                     <PUSH %<>>
 248 OPT5
 249                     <PUSH #T$UNBOUND 0>
 250 OPT6
 251                     <PUSH #T$UNBOUND 0>
 252 OPT7
 253                     <TEMP>
 254                     <INTGO>
 255                     <FRAME '\1aCALL-RTE>
 256                     <GVAL 'IMOVSTK!-MIMOP = STACK>
 257                     <PUSH 'CALL>
 258                     <PUSH RES9>
 259                     <DEAD RES9>
 260                     <PUSH %<>>
 261                     <PUSH AMT8>
 262                     <DEAD AMT8>
 263                     <CALL '\1aCALL-RTE 5>
 264                     <RETURN 'NORMAL>
 265                     <END \1aMOVSTK-GEN>
 266
 267 #WORD *1461513520*
 268                     <GFCN \1aGETSTK-GEN ("VALUE" ATOM ANY "OPTIONAL" ANY ANY ANY) UV8 RES9 HINT10 TYP11>
 269                     <OPT-DISPATCH 1 %<> OPT4 OPT5 OPT6 OPT7>
 270 OPT4
 271                     <PUSH %<>>
 272 OPT5
 273                     <PUSH #T$UNBOUND 0>
 274 OPT6
 275                     <PUSH #T$UNBOUND 0>
 276 OPT7
 277                     <TEMP>
 278                     <INTGO>
 279                     <FRAME '\1aCALL-RTE>
 280                     <GVAL 'IGETSTK!-MIMOP = STACK>
 281                     <PUSH 'CALL>
 282                     <PUSH RES9>
 283                     <DEAD RES9>
 284                     <PUSH %<>>
 285                     <PUSH UV8>
 286                     <DEAD UV8>
 287                     <CALL '\1aCALL-RTE 5>
 288                     <RETURN 'NORMAL>
 289                     <END \1aGETSTK-GEN>
 290
 291 #WORD *13700674530*
 292                     <GFCN \1aGETTTY-GEN ("VALUE" ATOM ANY "OPTIONAL" ANY ANY ANY) FROB8 RES9 HINT10 TYP11>
 293                     <OPT-DISPATCH 1 %<> OPT4 OPT5 OPT6 OPT7>
 294 OPT4
 295                     <PUSH %<>>
 296 OPT5
 297                     <PUSH #T$UNBOUND 0>
 298 OPT6
 299                     <PUSH #T$UNBOUND 0>
 300 OPT7
 301                     <TEMP>
 302                     <INTGO>
 303                     <FRAME '\1aCALL-RTE>
 304                     <GVAL 'IGETTTY!-MIMOP = STACK>
 305                     <PUSH 'CALL>
 306                     <PUSH RES9>
 307                     <DEAD RES9>
 308                     <PUSH %<>>
 309                     <PUSH FROB8>
 310                     <DEAD FROB8>
 311                     <CALL '\1aCALL-RTE 5>
 312                     <RETURN 'NORMAL>
 313                     <END \1aGETTTY-GEN>
 314
 315 #WORD *7577763157*
 316                     <GFCN \1aSAVTTY-GEN ("VALUE" ATOM ANY ANY "OPTIONAL" ANY ANY ANY) OLD8 NEW9 RES10 HINT11 TYP12>
 317                     <OPT-DISPATCH 2 %<> OPT4 OPT5 OPT6 OPT7>
 318 OPT4
 319                     <PUSH %<>>
 320 OPT5
 321                     <PUSH #T$UNBOUND 0>
 322 OPT6
 323                     <PUSH #T$UNBOUND 0>
 324 OPT7
 325                     <TEMP>
 326                     <INTGO>
 327                     <FRAME '\1aCALL-RTE>
 328                     <GVAL 'ISAVTTY!-MIMOP = STACK>
 329                     <PUSH 'CALL>
 330                     <PUSH RES10>
 331                     <DEAD RES10>
 332                     <PUSH %<>>
 333                     <PUSH OLD8>
 334                     <DEAD OLD8>
 335                     <PUSH NEW9>
 336                     <DEAD NEW9>
 337                     <CALL '\1aCALL-RTE 6>
 338                     <RETURN 'NORMAL>
 339                     <END \1aSAVTTY-GEN>
 340
 341 #WORD *14216610552*
 342                     <GFCN \1aSETZONE-GEN ("VALUE" ATOM ANY "OPTIONAL" ANY ANY ANY) ZONE8 RES9 HINT10 TYP11>
 343                     <OPT-DISPATCH 1 %<> OPT4 OPT5 OPT6 OPT7>
 344 OPT4
 345                     <PUSH %<>>
 346 OPT5
 347                     <PUSH #T$UNBOUND 0>
 348 OPT6
 349                     <PUSH #T$UNBOUND 0>
 350 OPT7
 351                     <TEMP>
 352                     <INTGO>
 353                     <FRAME '\1aCALL-RTE>
 354                     <GVAL 'ISETZONE!-MIMOP = STACK>
 355                     <PUSH 'CALL>
 356                     <PUSH RES9>
 357                     <DEAD RES9>
 358                     <PUSH %<>>
 359                     <PUSH ZONE8>
 360                     <DEAD ZONE8>
 361                     <CALL '\1aCALL-RTE 5>
 362                     <RETURN 'NORMAL>
 363                     <END \1aSETZONE-GEN>
 364
 365 #WORD *12314570650*
 366                     <GFCN \1aLEGAL-GEN ("VALUE" ATOM ANY "OPTIONAL" ANY ANY ANY) OBJ8 RES9 HINT10 TYP11>
 367                     <OPT-DISPATCH 1 %<> OPT4 OPT5 OPT6 OPT7>
 368 OPT4
 369                     <PUSH %<>>
 370 OPT5
 371                     <PUSH #T$UNBOUND 0>
 372 OPT6
 373                     <PUSH #T$UNBOUND 0>
 374 OPT7
 375                     <TEMP>
 376                     <INTGO>
 377                     <FRAME '\1aCALL-RTE>
 378                     <GVAL 'ILEGAL?!-MIMOP = STACK>
 379                     <PUSH 'CALL>
 380                     <PUSH RES9>
 381                     <DEAD RES9>
 382                     <PUSH %<>>
 383                     <PUSH OBJ8>
 384                     <DEAD OBJ8>
 385                     <CALL '\1aCALL-RTE 5>
 386                     <RETURN 'NORMAL>
 387                     <END \1aLEGAL-GEN>
 388
 389 #WORD *13221765640*
 390                     <GFCN \1aTEMPLATE-TABLE-GEN ("VALUE" ATOM ANY ANY "OPTIONAL" ANY) OFFS6 TBL7 HINT8>
 391                     <OPT-DISPATCH 2 %<> OPT4 OPT5>
 392 OPT4
 393                     <PUSH #T$UNBOUND 0>
 394 OPT5
 395                     <TEMP>
 396                     <INTGO>
 397                     <FRAME '\1aCALL-RTE>
 398                     <GVAL 'ITTABLE!-MIMOP = STACK>
 399                     <PUSH 'CALL>
 400                     <PUSH %<>>
 401                     <PUSH %<>>
 402                     <PUSH OFFS6>
 403                     <DEAD OFFS6>
 404                     <PUSH TBL7>
 405                     <DEAD TBL7>
 406                     <CALL '\1aCALL-RTE 6>
 407                     <RETURN 'NORMAL>
 408                     <END \1aTEMPLATE-TABLE-GEN>
 409
 410 #WORD *37771467564*
 411                     <GFCN \1aFATAL-GEN ("VALUE" ATOM "OPTIONAL" ANY ANY) STR7 HINT8>
 412                     <OPT-DISPATCH 0 %<> OPT4 OPT5 OPT6>
 413 OPT4
 414                     <PUSH %<>>
 415 OPT5
 416                     <PUSH #T$UNBOUND 0>
 417 OPT6
 418                     <TEMP>
 419                     <INTGO>
 420                     <FRAME '\1aCALL-RTE>
 421                     <GVAL 'IFATAL!-MIMOP = STACK>
 422                     <PUSH 'CALL>
 423                     <PUSH %<>>
 424                     <PUSH %<>>
 425                     <PUSH STR7>
 426                     <DEAD STR7>
 427                     <CALL '\1aCALL-RTE 5>
 428                     <RETURN 'NORMAL>
 429                     <END \1aFATAL-GEN>
 430
 431 #WORD *17255152210*
 432                     <GFCN \1aQUIT-GEN ("VALUE" ATOM "OPTIONAL" ANY ANY) ARG7 HINT8>
 433                     <OPT-DISPATCH 0 %<> OPT4 OPT5 OPT6>
 434 OPT4
 435                     <PUSH -1>
 436 OPT5
 437                     <PUSH #T$UNBOUND 0>
 438 OPT6
 439                     <TEMP>
 440                     <INTGO>
 441                     <FRAME '\1aCALL-RTE>
 442                     <GVAL 'IQUIT!-MIMOP = STACK>
 443                     <PUSH 'CALL>
 444                     <PUSH %<>>
 445                     <PUSH %<>>
 446                     <PUSH ARG7>
 447                     <DEAD ARG7>
 448                     <CALL '\1aCALL-RTE 5>
 449                     <RETURN 'NORMAL>
 450                     <END \1aQUIT-GEN>
 451
 452 #WORD *2144160714*
 453                     <GFCN \1aCONS-GEN ("VALUE" ATOM ANY <OR VARTBL LIST> <OR VARTBL ATOM> "OPTIONAL" ANY) NEARG6 LARG7 RES8 HINT9>
 454                     <OPT-DISPATCH 3 %<> OPT4 OPT5>
 455 OPT4
 456                     <PUSH #T$UNBOUND 0>
 457 OPT5
 458                     <TEMP>
 459                     <INTGO>
 460                     <FRAME '\1aCALL-RTE>
 461                     <GVAL 'ICONS!-MIMOP = STACK>
 462                     <PUSH 'CALL>
 463                     <PUSH RES8>
 464                     <DEAD RES8>
 465                     <PUSH 'LIST>
 466                     <PUSH LARG7>
 467                     <DEAD LARG7>
 468                     <PUSH NEARG6>
 469                     <DEAD NEARG6>
 470                     <CALL '\1aCALL-RTE 6>
 471                     <RETURN 'NORMAL>
 472                     <END \1aCONS-GEN>
 473
 474 #WORD *22701133236*
 475                     <GFCN \1aUBLOCK-GEN ("VALUE" ATOM ATOM <OR FIX VARTBL> ANY "OPTIONAL" ANY) TYPARG6 NUMARG7 RES8 HINT9>
 476                     <OPT-DISPATCH 3 %<> OPT4 OPT5>
 477 OPT4
 478                     <PUSH #T$UNBOUND 0>
 479 OPT5
 480                     <TEMP VEC10 TEMP18>
 481                     <INTGO>
 482                     <FRAME '\1aGET-AC>
 483                     <GVAL 'AC-0 = STACK>
 484                     <PUSH 'T>
 485                     <CALL '\1aGET-AC 2>
 486                     <GVAL 'TYPE-WORDS = VEC10>
 487                     <EMPUV? VEC10 + TAG14>
 488                     <LOOP (TYPARG6 VALUE) (VEC10 LENGTH VALUE)>
 489 TAG16
 490                     <NTHUV VEC10 1 = TEMP18>
 491                     <TYPE? TEMP18 <TYPE-CODE ATOM> - TAG17>
 492                     <VEQUAL? TEMP18 TYPARG6 + TAG15>
 493                     <DEAD TEMP18>
 494 TAG17
 495                     <RESTUV VEC10 1 = VEC10 (TYPE VECTOR)>
 496                     <EMPUV? VEC10 - TAG16>
 497 TAG14
 498                     <SET VEC10 %<> (TYPE FALSE)>
 499 TAG15
 500                     <VEQUAL? VEC10 0 + PHRASE13>
 501                     <FRAME '\1aLOAD-CONSTANT>
 502                     <GVAL 'AC-0 = STACK>
 503                     <NTHUV VEC10 2 = STACK>
 504                     <DEAD VEC10>
 505                     <CALL '\1aLOAD-CONSTANT 2>
 506                     <JUMP + PHRASE20>
 507 PHRASE13
 508                     <FRAME '\1aEMIT-MOVE>
 509                     <FRAME '\1aTYPE-CODE>
 510                     <PUSH TYPARG6>
 511                     <CALL '\1aTYPE-CODE 1 = STACK>
 512                     <GVAL 'AC-0 = TEMP18>
 513                     <NTHUV TEMP18 2 = TEMP18 (TYPE FIX)>
 514                     <OR TEMP18 #WORD *120* = TEMP18>
 515                     <LSH TEMP18 24 = TEMP18 (TYPE FIX)>
 516                     <CHTYPE TEMP18 <TYPE-CODE EFF-ADDR> = STACK>
 517                     <DEAD TEMP18>
 518                     <PUSH 'LONG>
 519                     <CALL '\1aEMIT-MOVE 3>
 520 PHRASE20
 521                     <FRAME '\1aCALL-RTE>
 522                     <GVAL 'IBLOCK!-MIMOP = STACK>
 523                     <PUSH 'CALL>
 524                     <PUSH RES8>
 525                     <DEAD RES8>
 526                     <PUSH TYPARG6>
 527                     <DEAD TYPARG6>
 528                     <PUSH NUMARG7>
 529                     <DEAD NUMARG7>
 530                     <CALL '\1aCALL-RTE 5>
 531                     <RETURN 'NORMAL>
 532                     <END \1aUBLOCK-GEN>
 533
 534 #WORD *6501567264*
 535                     <GFCN \1aUUBLOCK-GEN ("VALUE" ATOM ATOM <OR FIX VARTBL> ANY "OPTIONAL" ANY) TYPARG6 NUMARG7 RES8 HINT9>
 536                     <OPT-DISPATCH 3 %<> OPT4 OPT5>
 537 OPT4
 538                     <PUSH #T$UNBOUND 0>
 539 OPT5
 540                     <TEMP VEC10 TEMP18>
 541                     <INTGO>
 542                     <FRAME '\1aGET-AC>
 543                     <GVAL 'AC-0 = STACK>
 544                     <PUSH 'T>
 545                     <CALL '\1aGET-AC 2>
 546                     <GVAL 'TYPE-WORDS = VEC10>
 547                     <EMPUV? VEC10 + TAG14>
 548                     <LOOP (TYPARG6 VALUE) (VEC10 LENGTH VALUE)>
 549 TAG16
 550                     <NTHUV VEC10 1 = TEMP18>
 551                     <TYPE? TEMP18 <TYPE-CODE ATOM> - TAG17>
 552                     <VEQUAL? TEMP18 TYPARG6 + TAG15>
 553                     <DEAD TEMP18>
 554 TAG17
 555                     <RESTUV VEC10 1 = VEC10 (TYPE VECTOR)>
 556                     <EMPUV? VEC10 - TAG16>
 557 TAG14
 558                     <SET VEC10 %<> (TYPE FALSE)>
 559 TAG15
 560                     <VEQUAL? VEC10 0 + PHRASE13>
 561                     <FRAME '\1aLOAD-CONSTANT>
 562                     <GVAL 'AC-0 = STACK>
 563                     <NTHUV VEC10 2 = STACK>
 564                     <DEAD VEC10>
 565                     <CALL '\1aLOAD-CONSTANT 2>
 566                     <JUMP + PHRASE20>
 567 PHRASE13
 568                     <FRAME '\1aEMIT-MOVE>
 569                     <FRAME '\1aTYPE-CODE>
 570                     <PUSH TYPARG6>
 571                     <CALL '\1aTYPE-CODE 1 = STACK>
 572                     <GVAL 'AC-0 = TEMP18>
 573                     <NTHUV TEMP18 2 = TEMP18 (TYPE FIX)>
 574                     <OR TEMP18 #WORD *120* = TEMP18>
 575                     <LSH TEMP18 24 = TEMP18 (TYPE FIX)>
 576                     <CHTYPE TEMP18 <TYPE-CODE EFF-ADDR> = STACK>
 577                     <DEAD TEMP18>
 578                     <PUSH 'LONG>
 579                     <CALL '\1aEMIT-MOVE 3>
 580 PHRASE20
 581                     <FRAME '\1aCALL-RTE>
 582                     <GVAL 'UIBLOCK!-MIMOP = STACK>
 583                     <PUSH 'CALL>
 584                     <PUSH RES8>
 585                     <DEAD RES8>
 586                     <PUSH TYPARG6>
 587                     <DEAD TYPARG6>
 588                     <PUSH NUMARG7>
 589                     <DEAD NUMARG7>
 590                     <CALL '\1aCALL-RTE 5>
 591                     <RETURN 'NORMAL>
 592                     <END \1aUUBLOCK-GEN>
 593
 594 #WORD *24724724136*
 595                     <GFCN \1aCHTYPE-GEN ("VALUE" ATOM ANY <OR ATOM FORM VARTBL> <OR ATOM VARTBL> "OPTIONAL" ANY) VAR6 TYP7 RES8 HINT9>
 596                     <OPT-DISPATCH 3 %<> OPT4 OPT5>
 597 OPT4
 598                     <PUSH #T$UNBOUND 0>
 599 OPT5
 600                     <TEMP TEMP20 LV13 CAC11>
 601                     <INTGO>
 602                     <TYPE? VAR6 <TYPE-CODE VARTBL> - PHRASE15>
 603                     <EQUAL? RES8 VAR6 - PHRASE17>
 604                     <FRAME '\1aVAR-COUNT-STORED?>
 605                     <PUSH VAR6>
 606                     <CALL '\1aVAR-COUNT-STORED? 1 = TEMP20>
 607                     <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE17>
 608                     <DEAD TEMP20>
 609                     <FRAME '\1aEMIT>
 610                     <PUSH 176>
 611                     <TYPE? TYP7 <TYPE-CODE ATOM> - PHRASE23>
 612                     <FRAME '\1aTYPE-CODE>
 613                     <PUSH TYP7>
 614                     <DEAD TYP7>
 615                     <CALL '\1aTYPE-CODE 1 = TEMP20>
 616                     <JUMP + PHRASE27>
 617 PHRASE23
 618                     <TYPE? TYP7 <TYPE-CODE VARTBL> - PHRASE25>
 619                     <FRAME '\1aVAR-VALUE-ADDRESS>
 620                     <PUSH TYP7>
 621                     <DEAD TYP7>
 622                     <CALL '\1aVAR-VALUE-ADDRESS 1 = TEMP20>
 623                     <JUMP + PHRASE27>
 624 PHRASE25
 625                     <FRAME '\1aVAR-TYPE-ADDRESS>
 626                     <RESTL TYP7 1 = TEMP20 (TYPE LIST)>
 627                     <DEAD TYP7>
 628                     <NTHL TEMP20 1 = STACK>
 629                     <DEAD TEMP20>
 630                     <CALL '\1aVAR-TYPE-ADDRESS 1 = TEMP20>
 631 PHRASE27
 632                     <PUSH TEMP20>
 633                     <DEAD TEMP20>
 634                     <FRAME '\1aVAR-TYPE-ADDRESS>
 635                     <PUSH VAR6>
 636                     <PUSH 'TYPE-WORD>
 637                     <CALL '\1aVAR-TYPE-ADDRESS 2 = STACK>
 638                     <CALL '\1aEMIT 3>
 639                     <FRAME '\1aFIND-CACHE-VAR>
 640                     <PUSH VAR6>
 641                     <DEAD VAR6>
 642                     <CALL '\1aFIND-CACHE-VAR 1 = LV13>
 643                     <TYPE? LV13 <TYPE-CODE FALSE> + PHRASE89>
 644                     <NTHUV LV13 9 = TEMP20>
 645                     <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE89>
 646                     <DEAD TEMP20>
 647                     <PUTUV LV13 4 %<>>
 648                     <DEAD LV13>
 649                     <RETURN 'NORMAL>
 650 PHRASE17
 651                     <TYPE? TYP7 <TYPE-CODE ATOM> - BOOL37>
 652                     <FRAME '\1aCOUNT-NEEDED?>
 653                     <PUSH TYP7>
 654                     <CALL '\1aCOUNT-NEEDED? 1 = TEMP20>
 655                     <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE36>
 656                     <DEAD TEMP20>
 657 BOOL37
 658                     <EQUAL? RES8 'STACK - PHRASE40>
 659                     <FRAME '\1aEMIT-PUSH>
 660                     <FRAME '\1aVAR-TYPE-ADDRESS>
 661                     <PUSH VAR6>
 662                     <PUSH 'TYPE-WORD>
 663                     <CALL '\1aVAR-TYPE-ADDRESS 2 = STACK>
 664                     <PUSH 'LONG>
 665                     <CALL '\1aEMIT-PUSH 2>
 666                     <TYPE? TYP7 <TYPE-CODE VARTBL> - PHRASE44>
 667                     <FRAME '\1aEMIT>
 668                     <PUSH 176>
 669                     <FRAME '\1aVAR-VALUE-ADDRESS>
 670                     <PUSH TYP7>
 671                     <DEAD TYP7>
 672                     <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
 673                     <FRAME '\1aMA-DISP>
 674                     <GVAL 'AC-TP = STACK>
 675                     <PUSH -4>
 676                     <CALL '\1aMA-DISP 2 = STACK>
 677                     <CALL '\1aEMIT 3>
 678                     <JUMP + PHRASE52>
 679 PHRASE44
 680                     <TYPE? TYP7 <TYPE-CODE FORM> - PHRASE48>
 681                     <FRAME '\1aEMIT>
 682                     <PUSH 176>
 683                     <FRAME '\1aVAR-TYPE-ADDRESS>
 684                     <RESTL TYP7 1 = TEMP20 (TYPE LIST)>
 685                     <DEAD TYP7>
 686                     <NTHL TEMP20 1 = STACK>
 687                     <DEAD TEMP20>
 688                     <CALL '\1aVAR-TYPE-ADDRESS 1 = STACK>
 689                     <FRAME '\1aMA-DISP>
 690                     <GVAL 'AC-TP = STACK>
 691                     <PUSH -4>
 692                     <CALL '\1aMA-DISP 2 = STACK>
 693                     <CALL '\1aEMIT 3>
 694                     <JUMP + PHRASE52>
 695 PHRASE48
 696                     <FRAME '\1aEMIT>
 697                     <PUSH 176>
 698                     <FRAME '\1aTYPE-CODE>
 699                     <PUSH TYP7>
 700                     <DEAD TYP7>
 701                     <CALL '\1aTYPE-CODE 1 = STACK>
 702                     <FRAME '\1aMA-DISP>
 703                     <GVAL 'AC-TP = STACK>
 704                     <PUSH -4>
 705                     <CALL '\1aMA-DISP 2 = STACK>
 706                     <CALL '\1aEMIT 3>
 707 PHRASE52
 708                     <FRAME '\1aEMIT-PUSH>
 709                     <FRAME '\1aVAR-VALUE-ADDRESS>
 710                     <PUSH VAR6>
 711                     <DEAD VAR6>
 712                     <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
 713                     <PUSH 'LONG>
 714                     <CALL '\1aEMIT-PUSH 2>
 715                     <RETURN 'NORMAL>
 716 PHRASE40
 717                     <FRAME '\1aLOAD-VAR>
 718                     <PUSH VAR6>
 719                     <PUSH 'VALUE>
 720                     <PUSH %<>>
 721                     <PUSH 'PREF-VAL>
 722                     <CALL '\1aLOAD-VAR 4 = LV13>
 723                     <FRAME '\1aPROTECT>
 724                     <PUSH LV13>
 725                     <CALL '\1aPROTECT 1>
 726                     <TYPE? TYP7 <TYPE-CODE ATOM> - PHRASE62>
 727                     <FRAME '\1aVAR-TYPE-WORD-IN-AC?>
 728                     <PUSH VAR6>
 729                     <CALL '\1aVAR-TYPE-WORD-IN-AC? 1 = TEMP20>
 730                     <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE62>
 731                     <DEAD TEMP20>
 732                     <FRAME '\1aLOAD-VAR>
 733                     <PUSH VAR6>
 734                     <DEAD VAR6>
 735                     <PUSH 'TYPE-WORD>
 736                     <PUSH 'T>
 737                     <PUSH 'PREF-TYPE>
 738                     <CALL '\1aLOAD-VAR 4 = CAC11>
 739                     <FRAME '\1aEMIT>
 740                     <PUSH 176>
 741                     <FRAME '\1aTYPE-CODE>
 742                     <PUSH TYP7>
 743                     <DEAD TYP7>
 744                     <CALL '\1aTYPE-CODE 1 = STACK>
 745                     <NTHUV CAC11 2 = TEMP20 (TYPE FIX)>
 746                     <OR TEMP20 #WORD *120* = TEMP20>
 747                     <LSH TEMP20 24 = TEMP20 (TYPE FIX)>
 748                     <CHTYPE TEMP20 <TYPE-CODE EFF-ADDR> = STACK>
 749                     <DEAD TEMP20>
 750                     <CALL '\1aEMIT 3>
 751                     <FRAME '\1aDEST-PAIR>
 752                     <PUSH LV13>
 753                     <DEAD LV13>
 754                     <PUSH CAC11>
 755                     <DEAD CAC11>
 756                     <PUSH RES8>
 757                     <DEAD RES8>
 758                     <CALL '\1aDEST-PAIR 3>
 759                     <RETURN 'NORMAL>
 760 PHRASE62
 761                     <TYPE? TYP7 <TYPE-CODE ATOM> - PHRASE69>
 762                     <FRAME '\1aLOAD-VAR>
 763                     <PUSH VAR6>
 764                     <DEAD VAR6>
 765                     <PUSH 'COUNT>
 766                     <PUSH %<>>
 767                     <PUSH 'PREF-TYPE>
 768                     <CALL '\1aLOAD-VAR 4 = CAC11>
 769                     <FRAME '\1aDEST-COUNT-DECL>
 770                     <PUSH LV13>
 771                     <DEAD LV13>
 772                     <PUSH CAC11>
 773                     <DEAD CAC11>
 774                     <PUSH RES8>
 775                     <DEAD RES8>
 776                     <PUSH TYP7>
 777                     <DEAD TYP7>
 778                     <CALL '\1aDEST-COUNT-DECL 4>
 779                     <RETURN 'NORMAL>
 780 PHRASE69
 781                     <TYPE? TYP7 <TYPE-CODE FORM> - PHRASE72>
 782                     <FRAME '\1aLOAD-VAR>
 783                     <PUSH VAR6>
 784                     <DEAD VAR6>
 785                     <PUSH 'TYPE-WORD>
 786                     <PUSH 'T>
 787                     <PUSH 'PREF-TYPE>
 788                     <CALL '\1aLOAD-VAR 4 = CAC11>
 789                     <FRAME '\1aEMIT>
 790                     <PUSH 176>
 791                     <FRAME '\1aVAR-TYPE-ADDRESS>
 792                     <RESTL TYP7 1 = TEMP20 (TYPE LIST)>
 793                     <DEAD TYP7>
 794                     <NTHL TEMP20 1 = STACK>
 795                     <DEAD TEMP20>
 796                     <PUSH 'TYPE>
 797                     <CALL '\1aVAR-TYPE-ADDRESS 2 = STACK>
 798                     <NTHUV CAC11 2 = TEMP20 (TYPE FIX)>
 799                     <OR TEMP20 #WORD *120* = TEMP20>
 800                     <LSH TEMP20 24 = TEMP20 (TYPE FIX)>
 801                     <CHTYPE TEMP20 <TYPE-CODE EFF-ADDR> = STACK>
 802                     <DEAD TEMP20>
 803                     <CALL '\1aEMIT 3>
 804                     <FRAME '\1aDEST-PAIR>
 805                     <PUSH LV13>
 806                     <DEAD LV13>
 807                     <PUSH CAC11>
 808                     <DEAD CAC11>
 809                     <PUSH RES8>
 810                     <DEAD RES8>
 811                     <CALL '\1aDEST-PAIR 3>
 812                     <RETURN 'NORMAL>
 813 PHRASE72
 814                     <FRAME '\1aLOAD-VAR>
 815                     <PUSH VAR6>
 816                     <DEAD VAR6>
 817                     <PUSH 'TYPE-WORD>
 818                     <PUSH 'T>
 819                     <PUSH 'PREF-TYPE>
 820                     <CALL '\1aLOAD-VAR 4 = CAC11>
 821                     <FRAME '\1aEMIT>
 822                     <PUSH 176>
 823                     <FRAME '\1aVAR-VALUE-ADDRESS>
 824                     <PUSH TYP7>
 825                     <DEAD TYP7>
 826                     <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
 827                     <NTHUV CAC11 2 = TEMP20 (TYPE FIX)>
 828                     <OR TEMP20 #WORD *120* = TEMP20>
 829                     <LSH TEMP20 24 = TEMP20 (TYPE FIX)>
 830                     <CHTYPE TEMP20 <TYPE-CODE EFF-ADDR> = STACK>
 831                     <DEAD TEMP20>
 832                     <CALL '\1aEMIT 3>
 833                     <FRAME '\1aDEST-PAIR>
 834                     <PUSH LV13>
 835                     <DEAD LV13>
 836                     <PUSH CAC11>
 837                     <DEAD CAC11>
 838                     <PUSH RES8>
 839                     <DEAD RES8>
 840                     <CALL '\1aDEST-PAIR 3>
 841                     <RETURN 'NORMAL>
 842 PHRASE36
 843                     <EQUAL? RES8 'STACK - PHRASE84>
 844                     <FRAME '\1aEMIT-PUSH>
 845                     <FRAME '\1aTYPE-WORD>
 846                     <PUSH TYP7>
 847                     <DEAD TYP7>
 848                     <CALL '\1aTYPE-WORD 1 = STACK>
 849                     <PUSH 'LONG>
 850                     <CALL '\1aEMIT-PUSH 2>
 851                     <FRAME '\1aEMIT-PUSH>
 852                     <FRAME '\1aVAR-VALUE-ADDRESS>
 853                     <PUSH VAR6>
 854                     <DEAD VAR6>
 855                     <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
 856                     <PUSH 'LONG>
 857                     <CALL '\1aEMIT-PUSH 2>
 858                     <RETURN 'NORMAL>
 859 PHRASE84
 860                     <FRAME '\1aLOAD-VAR-APP>
 861                     <PUSH VAR6>
 862                     <DEAD VAR6>
 863                     <PUSH %<>>
 864                     <CALL '\1aLOAD-VAR-APP 2 = LV13>
 865                     <FRAME '\1aDEST-DECL>
 866                     <PUSH LV13>
 867                     <DEAD LV13>
 868                     <PUSH RES8>
 869                     <DEAD RES8>
 870                     <PUSH TYP7>
 871                     <DEAD TYP7>
 872                     <CALL '\1aDEST-DECL 3>
 873 PHRASE89
 874                     <RETURN 'NORMAL>
 875 PHRASE15
 876                     <FRAME '\1aCOUNT-NEEDED?>
 877                     <FRAME '\1aTYPE>
 878                     <PUSH VAR6>
 879                     <CALL '\1aTYPE 1 = STACK>
 880                     <CALL '\1aCOUNT-NEEDED? 1 = TEMP20>
 881                     <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE92>
 882                     <DEAD TEMP20>
 883                     <EQUAL? RES8 'STACK - PHRASE96>
 884                     <FRAME '\1aEMIT-PUSH>
 885                     <FRAME '\1aADDR-TYPE-M>
 886                     <FRAME '\1aADD-MVEC>
 887                     <PUSH VAR6>
 888                     <CALL '\1aADD-MVEC 1 = STACK>
 889                     <CALL '\1aADDR-TYPE-M 1 = STACK>
 890                     <CALL '\1aEMIT-PUSH 1>
 891                     <TYPE? TYP7 <TYPE-CODE VARTBL> - PHRASE101>
 892                     <FRAME '\1aEMIT>
 893                     <PUSH 176>
 894                     <FRAME '\1aVAR-VALUE-ADDRESS>
 895                     <PUSH TYP7>
 896                     <DEAD TYP7>
 897                     <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
 898                     <FRAME '\1aMA-DISP>
 899                     <GVAL 'AC-TP = STACK>
 900                     <PUSH -4>
 901                     <CALL '\1aMA-DISP 2 = STACK>
 902                     <CALL '\1aEMIT 3>
 903                     <JUMP + PHRASE109>
 904 PHRASE101
 905                     <TYPE? TYP7 <TYPE-CODE FORM> - PHRASE105>
 906                     <FRAME '\1aEMIT>
 907                     <PUSH 176>
 908                     <FRAME '\1aVAR-TYPE-ADDRESS>
 909                     <RESTL TYP7 1 = TEMP20 (TYPE LIST)>
 910                     <DEAD TYP7>
 911                     <NTHL TEMP20 1 = STACK>
 912                     <DEAD TEMP20>
 913                     <CALL '\1aVAR-TYPE-ADDRESS 1 = STACK>
 914                     <FRAME '\1aMA-DISP>
 915                     <GVAL 'AC-TP = STACK>
 916                     <PUSH -4>
 917                     <CALL '\1aMA-DISP 2 = STACK>
 918                     <CALL '\1aEMIT 3>
 919                     <JUMP + PHRASE109>
 920 PHRASE105
 921                     <FRAME '\1aEMIT>
 922                     <PUSH 176>
 923                     <FRAME '\1aTYPE-CODE>
 924                     <PUSH TYP7>
 925                     <DEAD TYP7>
 926                     <CALL '\1aTYPE-CODE 1 = STACK>
 927                     <FRAME '\1aMA-DISP>
 928                     <GVAL 'AC-TP = STACK>
 929                     <PUSH -4>
 930                     <CALL '\1aMA-DISP 2 = STACK>
 931                     <CALL '\1aEMIT 3>
 932 PHRASE109
 933                     <FRAME '\1aEMIT-PUSH>
 934                     <FRAME '\1aADDR-VAL-M>
 935                     <PUSH VAR6>
 936                     <DEAD VAR6>
 937                     <CALL '\1aADDR-VAL-M 1 = STACK>
 938                     <PUSH 'LONG>
 939                     <CALL '\1aEMIT-PUSH 2>
 940                     <RETURN 'NORMAL>
 941 PHRASE96
 942                     <FRAME '\1aSET-GEN>
 943                     <PUSH RES8>
 944                     <PUSH VAR6>
 945                     <DEAD VAR6>
 946                     <CALL '\1aSET-GEN 2>
 947                     <FRAME '\1aCHTYPE-GEN>
 948                     <PUSH RES8>
 949                     <PUSH TYP7>
 950                     <DEAD TYP7>
 951                     <PUSH RES8>
 952                     <DEAD RES8>
 953                     <CALL '\1aCHTYPE-GEN 3>
 954                     <RETURN 'NORMAL>
 955 PHRASE92
 956                     <EQUAL? RES8 'STACK - PHRASE120>
 957                     <TYPE? TYP7 <TYPE-CODE VARTBL> - PHRASE122>
 958                     <FRAME '\1aEMIT-PUSH>
 959                     <FRAME '\1aVAR-VALUE-ADDRESS>
 960                     <PUSH TYP7>
 961                     <DEAD TYP7>
 962                     <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
 963                     <PUSH 'LONG>
 964                     <CALL '\1aEMIT-PUSH 2>
 965                     <JUMP + PHRASE128>
 966 PHRASE122
 967                     <TYPE? TYP7 <TYPE-CODE FORM> - PHRASE125>
 968                     <FRAME '\1aEMIT-PUSH>
 969                     <FRAME '\1aVAR-TYPE-ADDRESS>
 970                     <RESTL TYP7 1 = TEMP20 (TYPE LIST)>
 971                     <DEAD TYP7>
 972                     <NTHL TEMP20 1 = STACK>
 973                     <DEAD TEMP20>
 974                     <PUSH 'LONG>
 975                     <CALL '\1aVAR-TYPE-ADDRESS 2 = STACK>
 976                     <CALL '\1aEMIT-PUSH 1>
 977                     <JUMP + PHRASE128>
 978 PHRASE125
 979                     <FRAME '\1aEMIT-PUSH>
 980                     <FRAME '\1aTYPE-CODE>
 981                     <PUSH TYP7>
 982                     <DEAD TYP7>
 983                     <CALL '\1aTYPE-CODE 1 = STACK>
 984                     <PUSH 'LONG>
 985                     <CALL '\1aEMIT-PUSH 2>
 986 PHRASE128
 987                     <FRAME '\1aEMIT-PUSH>
 988                     <FRAME '\1aMA-IMM>
 989                     <FRAME '\1aFIX-CONSTANT?>
 990                     <PUSH VAR6>
 991                     <DEAD VAR6>
 992                     <CALL '\1aFIX-CONSTANT? 1 = STACK>
 993                     <CALL '\1aMA-IMM 1 = STACK>
 994                     <PUSH 'LONG>
 995                     <CALL '\1aEMIT-PUSH 2>
 996                     <RETURN 'NORMAL>
 997 PHRASE120
 998                     <FRAME '\1aSET-GEN>
 999                     <PUSH RES8>
1000                     <PUSH VAR6>
1001                     <DEAD VAR6>
1002                     <CALL '\1aSET-GEN 2>
1003                     <FRAME '\1aCHTYPE-GEN>
1004                     <PUSH RES8>
1005                     <PUSH TYP7>
1006                     <DEAD TYP7>
1007                     <PUSH RES8>
1008                     <DEAD RES8>
1009                     <CALL '\1aCHTYPE-GEN 3>
1010                     <RETURN 'NORMAL>
1011                     <END \1aCHTYPE-GEN>
1012
1013 <SETG GVAL-CAREFUL <>>
1014
1015 #WORD *23070665121*
1016                     <GFCN \1aGVAL-GEN ("VALUE" ATOM <OR ATOM VARTBL> <OR ATOM VARTBL> "OPTIONAL" <OR FALSE HINT>) ATM6 RES7 HINT8>
1017                     <OPT-DISPATCH 2 %<> OPT4 OPT5>
1018 OPT4
1019                     <PUSH %<>>
1020 OPT5
1021                     <TEMP TYP11 TEMP22 ATMADDR10 ATMOFF15 VAC9 TAC12 NLABEL14>
1022                     <INTGO>
1023                     <TYPE? HINT8 <TYPE-CODE FALSE> + PHRASE17>
1024                     <FRAME '\1aPARSE-HINT>
1025                     <PUSH HINT8>
1026                     <DEAD HINT8>
1027                     <PUSH 'TYPE>
1028                     <CALL '\1aPARSE-HINT 2 = TYP11>
1029                     <JUMP + PHRASE19>
1030 PHRASE17
1031                     <SET TYP11 %<> (TYPE FALSE)>
1032 PHRASE19
1033                     <GVAL 'BOOT-MODE = TEMP22>
1034                     <TYPE? TEMP22 <TYPE-CODE FALSE> + PHRASE21>
1035                     <DEAD TEMP22>
1036                     <FRAME '\1aADDR-VALUE-MQUOTE>
1037                     <PUSH ATM6>
1038                     <CALL '\1aADDR-VALUE-MQUOTE 1 = ATMADDR10>
1039                     <JUMP + PHRASE24>
1040 PHRASE21
1041                     <TYPE? ATM6 <TYPE-CODE VARTBL> + PHRASE24>
1042                     <FRAME '\1aMA-DEF-DISP>
1043                     <GVAL 'AC-M = STACK>
1044                     <FRAME '\1a+>
1045                     <FRAME '\1aADD-MVEC>
1046                     <CHTYPE ATM6 <TYPE-CODE XGLOC> = STACK>
1047                     <CALL '\1aADD-MVEC 1 = STACK>
1048                     <PUSH 4>
1049                     <CALL '\1a+ 2 = ATMOFF15>
1050                     <PUSH ATMOFF15>
1051                     <CALL '\1aMA-DEF-DISP 2 = ATMADDR10>
1052 PHRASE24
1053                     <GVAL 'BOOT-MODE = TEMP22>
1054                     <TYPE? TEMP22 <TYPE-CODE FALSE> + PHRASE29>
1055                     <DEAD TEMP22>
1056                     <FRAME '\1aGET-AC>
1057                     <PUSH 'PREF-VAL>
1058                     <PUSH 'T>
1059                     <CALL '\1aGET-AC 2 = VAC9>
1060                     <FRAME '\1aPROTECT>
1061                     <PUSH VAC9>
1062                     <CALL '\1aPROTECT 1>
1063                     <FRAME '\1aEMIT-MOVE>
1064                     <PUSH ATMADDR10>
1065                     <DEAD ATMADDR10>
1066                     <NTHUV VAC9 2 = TEMP22 (TYPE FIX)>
1067                     <OR TEMP22 #WORD *120* = TEMP22>
1068                     <LSH TEMP22 24 = TEMP22 (TYPE FIX)>
1069                     <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = STACK>
1070                     <DEAD TEMP22>
1071                     <PUSH 'LONG>
1072                     <CALL '\1aEMIT-MOVE 3>
1073                     <FRAME '\1aEMIT-MOVE>
1074                     <NTHUV VAC9 2 = TEMP22 (TYPE FIX)>
1075                     <OR TEMP22 #WORD *140* = TEMP22>
1076                     <LSH TEMP22 24 = TEMP22 (TYPE FIX)>
1077                     <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = STACK>
1078                     <DEAD TEMP22>
1079                     <NTHUV VAC9 2 = TEMP22 (TYPE FIX)>
1080                     <OR TEMP22 #WORD *120* = TEMP22>
1081                     <LSH TEMP22 24 = TEMP22 (TYPE FIX)>
1082                     <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = STACK>
1083                     <DEAD TEMP22>
1084                     <PUSH 'LONG>
1085                     <CALL '\1aEMIT-MOVE 3>
1086                     <EQUAL? RES7 'STACK - PHRASE35>
1087                     <FRAME '\1aEMIT-PUSH>
1088                     <NTHUV VAC9 2 = TEMP22 (TYPE FIX)>
1089                     <DEAD VAC9>
1090                     <OR TEMP22 #WORD *140* = TEMP22>
1091                     <LSH TEMP22 24 = TEMP22 (TYPE FIX)>
1092                     <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = STACK>
1093                     <DEAD TEMP22>
1094                     <PUSH 'DOUBLE>
1095                     <CALL '\1aEMIT-PUSH 2>
1096                     <RETURN 'NORMAL>
1097 PHRASE35
1098                     <TYPE? TYP11 <TYPE-CODE FALSE> + BOOL40>
1099                     <FRAME '\1aCOUNT-NEEDED?>
1100                     <PUSH TYP11>
1101                     <CALL '\1aCOUNT-NEEDED? 1 = TEMP22>
1102                     <TYPE? TEMP22 <TYPE-CODE FALSE> + PHRASE39>
1103                     <DEAD TEMP22>
1104 BOOL40
1105                     <SET TYP11 %<> (TYPE FALSE)>
1106                     <FRAME '\1aGET-AC>
1107                     <PUSH 'DOUBLE>
1108                     <PUSH 'T>
1109                     <CALL '\1aGET-AC 2 = TAC12>
1110                     <FRAME '\1aEMIT>
1111                     <PUSH 125>
1112                     <NTHUV VAC9 2 = TEMP22 (TYPE FIX)>
1113                     <DEAD VAC9>
1114                     <OR TEMP22 #WORD *140* = TEMP22>
1115                     <LSH TEMP22 24 = TEMP22 (TYPE FIX)>
1116                     <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = STACK>
1117                     <DEAD TEMP22>
1118                     <NTHUV TAC12 2 = TEMP22 (TYPE FIX)>
1119                     <OR TEMP22 #WORD *120* = TEMP22>
1120                     <LSH TEMP22 24 = TEMP22 (TYPE FIX)>
1121                     <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = STACK>
1122                     <DEAD TEMP22>
1123                     <CALL '\1aEMIT 3>
1124                     <FRAME '\1aNEXT-AC>
1125                     <PUSH TAC12>
1126                     <CALL '\1aNEXT-AC 1 = VAC9>
1127                     <JUMP + PHRASE45>
1128 PHRASE39
1129                     <FRAME '\1aEMIT>
1130                     <PUSH 208>
1131                     <FRAME '\1aMA-DISP>
1132                     <PUSH VAC9>
1133                     <PUSH 4>
1134                     <CALL '\1aMA-DISP 2 = STACK>
1135                     <NTHUV VAC9 2 = TEMP22 (TYPE FIX)>
1136                     <OR TEMP22 #WORD *120* = TEMP22>
1137                     <LSH TEMP22 24 = TEMP22 (TYPE FIX)>
1138                     <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = STACK>
1139                     <DEAD TEMP22>
1140                     <CALL '\1aEMIT 3>
1141 PHRASE45
1142                     <TYPE? TYP11 <TYPE-CODE FALSE> - PHRASE49>
1143                     <FRAME '\1aDEST-PAIR>
1144                     <PUSH VAC9>
1145                     <DEAD VAC9>
1146                     <PUSH TAC12>
1147                     <DEAD TAC12>
1148                     <PUSH RES7>
1149                     <DEAD RES7>
1150                     <PUSH 'T>
1151                     <CALL '\1aDEST-PAIR 4>
1152                     <RETURN 'NORMAL>
1153 PHRASE49
1154                     <FRAME '\1aDEST-DECL>
1155                     <PUSH VAC9>
1156                     <DEAD VAC9>
1157                     <PUSH RES7>
1158                     <DEAD RES7>
1159                     <PUSH TYP11>
1160                     <DEAD TYP11>
1161                     <PUSH 'T>
1162                     <CALL '\1aDEST-DECL 4>
1163                     <RETURN 'NORMAL>
1164 PHRASE29
1165                     <TYPE? ATM6 <TYPE-CODE VARTBL> - PHRASE52>
1166                     <GVAL 'GVAL-CAREFUL = TEMP22>
1167                     <TYPE? TEMP22 <TYPE-CODE FALSE> - PHRASE52>
1168                     <DEAD TEMP22>
1169                     <FRAME '\1aVAR-VALUE-IN-AC?>
1170                     <PUSH ATM6>
1171                     <CALL '\1aVAR-VALUE-IN-AC? 1 = TAC12>
1172                     <TYPE? TAC12 <TYPE-CODE FALSE> + PHRASE55>
1173                     <FRAME '\1aPROTECT>
1174                     <PUSH TAC12>
1175                     <CALL '\1aPROTECT 1>
1176                     <EQUAL? RES7 'STACK - PHRASE59>
1177                     <FRAME '\1aEMIT-PUSH>
1178                     <NTHUV TAC12 2 = TEMP22 (TYPE FIX)>
1179                     <DEAD TAC12>
1180                     <OR TEMP22 #WORD *260* = TEMP22>
1181                     <LSH TEMP22 8 = TEMP22 (TYPE FIX)>
1182                     <OR TEMP22 #WORD *0* = TEMP22>
1183                     <LSH TEMP22 16 = TEMP22 (TYPE FIX)>
1184                     <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = STACK>
1185                     <DEAD TEMP22>
1186                     <PUSH 'DOUBLE>
1187                     <CALL '\1aEMIT-PUSH 2>
1188                     <JUMP + PHRASE71>
1189 PHRASE59
1190                     <FRAME '\1aGET-AC>
1191                     <PUSH 'DOUBLE>
1192                     <PUSH 'T>
1193                     <CALL '\1aGET-AC 2 = VAC9>
1194                     <FRAME '\1aEMIT>
1195                     <PUSH 125>
1196                     <NTHUV TAC12 2 = TEMP22 (TYPE FIX)>
1197                     <DEAD TAC12>
1198                     <OR TEMP22 #WORD *260* = TEMP22>
1199                     <LSH TEMP22 8 = TEMP22 (TYPE FIX)>
1200                     <OR TEMP22 #WORD *0* = TEMP22>
1201                     <LSH TEMP22 16 = TEMP22 (TYPE FIX)>
1202                     <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = STACK>
1203                     <DEAD TEMP22>
1204                     <NTHUV VAC9 2 = TEMP22 (TYPE FIX)>
1205                     <OR TEMP22 #WORD *120* = TEMP22>
1206                     <LSH TEMP22 24 = TEMP22 (TYPE FIX)>
1207                     <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = STACK>
1208                     <DEAD TEMP22>
1209                     <CALL '\1aEMIT 3>
1210                     <JUMP + PHRASE71>
1211 PHRASE55
1212                     <FRAME '\1aGET-AC>
1213                     <PUSH 'DOUBLE>
1214                     <PUSH 'T>
1215                     <CALL '\1aGET-AC 2 = VAC9>
1216                     <FRAME '\1aEMIT>
1217                     <PUSH 208>
1218                     <FRAME '\1aGEN-LOC>
1219                     <PUSH ATM6>
1220                     <DEAD ATM6>
1221                     <PUSH 4>
1222                     <PUSH 'T>
1223                     <CALL '\1aGEN-LOC 3 = STACK>
1224                     <NTHUV VAC9 2 = TEMP22 (TYPE FIX)>
1225                     <OR TEMP22 #WORD *120* = TEMP22>
1226                     <LSH TEMP22 24 = TEMP22 (TYPE FIX)>
1227                     <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = STACK>
1228                     <DEAD TEMP22>
1229                     <CALL '\1aEMIT 3>
1230                     <EQUAL? RES7 'STACK - PHRASE69>
1231                     <FRAME '\1aEMIT-PUSH>
1232                     <NTHUV VAC9 2 = TEMP22 (TYPE FIX)>
1233                     <OR TEMP22 #WORD *140* = TEMP22>
1234                     <LSH TEMP22 24 = TEMP22 (TYPE FIX)>
1235                     <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = STACK>
1236                     <DEAD TEMP22>
1237                     <PUSH 'DOUBLE>
1238                     <CALL '\1aEMIT-PUSH 2>
1239                     <JUMP + PHRASE71>
1240 PHRASE69
1241                     <FRAME '\1aEMIT>
1242                     <PUSH 125>
1243                     <NTHUV VAC9 2 = TEMP22 (TYPE FIX)>
1244                     <OR TEMP22 #WORD *140* = TEMP22>
1245                     <LSH TEMP22 24 = TEMP22 (TYPE FIX)>
1246                     <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = STACK>
1247                     <DEAD TEMP22>
1248                     <NTHUV VAC9 2 = TEMP22 (TYPE FIX)>
1249                     <OR TEMP22 #WORD *120* = TEMP22>
1250                     <LSH TEMP22 24 = TEMP22 (TYPE FIX)>
1251                     <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = STACK>
1252                     <DEAD TEMP22>
1253                     <CALL '\1aEMIT 3>
1254 PHRASE71
1255                     <EQUAL? RES7 'STACK + PHRASE116>
1256                     <FRAME '\1aDEST-PAIR>
1257                     <FRAME '\1aNEXT-AC>
1258                     <PUSH VAC9>
1259                     <CALL '\1aNEXT-AC 1 = STACK>
1260                     <PUSH VAC9>
1261                     <DEAD VAC9>
1262                     <PUSH RES7>
1263                     <DEAD RES7>
1264                     <PUSH 'T>
1265                     <CALL '\1aDEST-PAIR 4>
1266                     <RETURN 'NORMAL>
1267 PHRASE52
1268                     <GVAL 'GVAL-CAREFUL = TEMP22>
1269                     <TYPE? TEMP22 <TYPE-CODE FALSE> + PHRASE77>
1270                     <DEAD TEMP22>
1271                     <EQUAL? ATM6 'M$$BINDID + PHRASE77>
1272                     <FRAME '\1aFLUSH-ALL-ACS>
1273                     <CALL '\1aFLUSH-ALL-ACS 0>
1274                     <FRAME '\1aGET-AC>
1275                     <GVAL 'AC-0 = STACK>
1276                     <PUSH 'T>
1277                     <CALL '\1aGET-AC 2 = TAC12>
1278                     <FRAME '\1aGET-AC>
1279                     <GVAL 'AC-1 = STACK>
1280                     <PUSH 'T>
1281                     <CALL '\1aGET-AC 2 = VAC9>
1282                     <FRAME '\1aMAKE-LABEL>
1283                     <CALL '\1aMAKE-LABEL 0 = TYP11>
1284                     <FRAME '\1aMAKE-LABEL>
1285                     <CALL '\1aMAKE-LABEL 0 = NLABEL14>
1286                     <TYPE? ATM6 <TYPE-CODE VARTBL> - PHRASE85>
1287                     <FRAME '\1aEMIT>
1288                     <PUSH 208>
1289                     <FRAME '\1aGEN-LOC>
1290                     <PUSH ATM6>
1291                     <PUSH 4>
1292                     <PUSH 'T>
1293                     <CALL '\1aGEN-LOC 3 = STACK>
1294                     <NTHUV VAC9 2 = TEMP22 (TYPE FIX)>
1295                     <OR TEMP22 #WORD *120* = TEMP22>
1296                     <LSH TEMP22 24 = TEMP22 (TYPE FIX)>
1297                     <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = STACK>
1298                     <DEAD TEMP22>
1299                     <CALL '\1aEMIT 3>
1300                     <FRAME '\1aGEN-BRANCH>
1301                     <PUSH 19>
1302                     <PUSH NLABEL14>
1303                     <PUSH %<>>
1304                     <CALL '\1aGEN-BRANCH 3>
1305                     <FRAME '\1aEMIT>
1306                     <PUSH 125>
1307                     <NTHUV VAC9 2 = TEMP22 (TYPE FIX)>
1308                     <DEAD VAC9>
1309                     <OR TEMP22 #WORD *140* = TEMP22>
1310                     <LSH TEMP22 24 = TEMP22 (TYPE FIX)>
1311                     <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = STACK>
1312                     <DEAD TEMP22>
1313                     <NTHUV TAC12 2 = TEMP22 (TYPE FIX)>
1314                     <OR TEMP22 #WORD *120* = TEMP22>
1315                     <LSH TEMP22 24 = TEMP22 (TYPE FIX)>
1316                     <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = STACK>
1317                     <DEAD TEMP22>
1318                     <CALL '\1aEMIT 3>
1319                     <JUMP + PHRASE90>
1320 PHRASE85
1321                     <FRAME '\1aEMIT>
1322                     <PUSH 125>
1323                     <PUSH ATMADDR10>
1324                     <DEAD ATMADDR10>
1325                     <NTHUV TAC12 2 = TEMP22 (TYPE FIX)>
1326                     <OR TEMP22 #WORD *120* = TEMP22>
1327                     <LSH TEMP22 24 = TEMP22 (TYPE FIX)>
1328                     <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = STACK>
1329                     <DEAD TEMP22>
1330                     <CALL '\1aEMIT 3>
1331 PHRASE90
1332                     <FRAME '\1aGEN-BRANCH>
1333                     <PUSH 18>
1334                     <PUSH TYP11>
1335                     <PUSH %<>>
1336                     <CALL '\1aGEN-BRANCH 3>
1337                     <FRAME '\1aEMIT-LABEL>
1338                     <PUSH NLABEL14>
1339                     <DEAD NLABEL14>
1340                     <PUSH %<>>
1341                     <CALL '\1aEMIT-LABEL 2>
1342                     <TYPE? ATM6 <TYPE-CODE VARTBL> - PHRASE95>
1343                     <FRAME '\1aEMIT>
1344                     <PUSH 223>
1345                     <FRAME '\1aVAR-VALUE-ADDRESS>
1346                     <PUSH ATM6>
1347                     <DEAD ATM6>
1348                     <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
1349                     <CALL '\1aEMIT 2>
1350                     <JUMP + PHRASE98>
1351 PHRASE95
1352                     <FRAME '\1aEMIT>
1353                     <PUSH 223>
1354                     <FRAME '\1aMA-DISP>
1355                     <GVAL 'AC-M = STACK>
1356                     <PUSH ATMOFF15>
1357                     <DEAD ATMOFF15>
1358                     <CALL '\1aMA-DISP 2 = STACK>
1359                     <CALL '\1aEMIT 2>
1360 PHRASE98
1361                     <FRAME '\1aCALL-RTE>
1362                     <GVAL 'IGVERR!-MIMOP = STACK>
1363                     <PUSH 'CALL>
1364                     <EQUAL? RES7 'STACK - TAG104>
1365                     <SET TEMP22 %<> (TYPE FALSE)>
1366                     <JUMP + PHRASE103>
1367 TAG104
1368                     <SET TEMP22 RES7>
1369 PHRASE103
1370                     <PUSH TEMP22>
1371                     <DEAD TEMP22>
1372                     <PUSH %<>>
1373                     <CALL '\1aCALL-RTE 4>
1374                     <FRAME '\1aEMIT-LABEL>
1375                     <PUSH TYP11>
1376                     <DEAD TYP11>
1377                     <PUSH %<>>
1378                     <CALL '\1aEMIT-LABEL 2>
1379                     <EQUAL? RES7 'STACK - PHRASE107>
1380                     <FRAME '\1aEMIT-PUSH>
1381                     <NTHUV TAC12 2 = TEMP22 (TYPE FIX)>
1382                     <DEAD TAC12>
1383                     <OR TEMP22 #WORD *120* = TEMP22>
1384                     <LSH TEMP22 24 = TEMP22 (TYPE FIX)>
1385                     <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = STACK>
1386                     <DEAD TEMP22>
1387                     <PUSH 'DOUBLE>
1388                     <CALL '\1aEMIT-PUSH 2>
1389                     <RETURN 'NORMAL>
1390 PHRASE107
1391                     <FRAME '\1aDEST-PAIR>
1392                     <FRAME '\1aNEXT-AC>
1393                     <PUSH TAC12>
1394                     <CALL '\1aNEXT-AC 1 = STACK>
1395                     <PUSH TAC12>
1396                     <DEAD TAC12>
1397                     <PUSH RES7>
1398                     <DEAD RES7>
1399                     <PUSH 'T>
1400                     <CALL '\1aDEST-PAIR 4>
1401                     <RETURN 'NORMAL>
1402 PHRASE77
1403                     <EQUAL? RES7 'STACK - PHRASE114>
1404                     <FRAME '\1aEMIT-PUSH>
1405                     <PUSH ATMADDR10>
1406                     <DEAD ATMADDR10>
1407                     <PUSH 'DOUBLE>
1408                     <CALL '\1aEMIT-PUSH 2>
1409                     <RETURN 'NORMAL>
1410 PHRASE114
1411                     <FRAME '\1aGET-AC>
1412                     <PUSH 'DOUBLE>
1413                     <PUSH 'T>
1414                     <CALL '\1aGET-AC 2 = TAC12>
1415                     <FRAME '\1aEMIT>
1416                     <PUSH 125>
1417                     <PUSH ATMADDR10>
1418                     <DEAD ATMADDR10>
1419                     <NTHUV TAC12 2 = TEMP22 (TYPE FIX)>
1420                     <OR TEMP22 #WORD *120* = TEMP22>
1421                     <LSH TEMP22 24 = TEMP22 (TYPE FIX)>
1422                     <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = STACK>
1423                     <DEAD TEMP22>
1424                     <CALL '\1aEMIT 3>
1425                     <FRAME '\1aDEST-PAIR>
1426                     <FRAME '\1aNEXT-AC>
1427                     <PUSH TAC12>
1428                     <CALL '\1aNEXT-AC 1 = STACK>
1429                     <PUSH TAC12>
1430                     <DEAD TAC12>
1431                     <PUSH RES7>
1432                     <DEAD RES7>
1433                     <PUSH 'T>
1434                     <CALL '\1aDEST-PAIR 4>
1435 PHRASE116
1436                     <RETURN 'NORMAL>
1437                     <END \1aGVAL-GEN>
1438
1439 #WORD *6205417771*
1440                     <GFCN \1aSETG-GEN ("VALUE" ATOM ATOM ANY "OPTIONAL" ANY) ATM6 VAL7 HINT8>
1441                     <OPT-DISPATCH 2 %<> OPT4 OPT5>
1442 OPT4
1443                     <PUSH #T$UNBOUND 0>
1444 OPT5
1445                     <TEMP (A111 %<>) (A212 %<>) (TWOM13 %<>) LV14 TEMP22>
1446                     <INTGO>
1447                     <TYPE? VAL7 <TYPE-CODE VARTBL> - PHRASE16>
1448                     <FRAME '\1aFIND-CACHE-VAR>
1449                     <PUSH VAL7>
1450                     <CALL '\1aFIND-CACHE-VAR 1 = LV14>
1451                     <TYPE? LV14 <TYPE-CODE FALSE> + PHRASE16>
1452                     <NTHUV LV14 9 = A111>
1453                     <NTHUV LV14 6 = A212>
1454                     <JUMP + PHRASE19>
1455 PHRASE16
1456                     <SET LV14 %<> (TYPE FALSE)>
1457 PHRASE19
1458                     <GVAL 'BOOT-MODE = TEMP22>
1459                     <TYPE? TEMP22 <TYPE-CODE FALSE> + PHRASE21>
1460                     <DEAD TEMP22>
1461                     <FRAME '\1aADDR-VALUE-MQUOTE>
1462                     <PUSH ATM6>
1463                     <DEAD ATM6>
1464                     <CALL '\1aADDR-VALUE-MQUOTE 1 = LV14>
1465                     <JUMP + PHRASE35>
1466 PHRASE21
1467                     <FRAME '\1aFIX-CONSTANT?>
1468                     <PUSH VAL7>
1469                     <CALL '\1aFIX-CONSTANT? 1 = TEMP22>
1470                     <TYPE? TEMP22 <TYPE-CODE FALSE> - BOOL31>
1471                     <DEAD TEMP22>
1472                     <TYPE? LV14 <TYPE-CODE FALSE> + PHRASE24>
1473                     <NTHUV LV14 2 = TEMP22>
1474                     <TYPE? TEMP22 <TYPE-CODE FALSE> + BOOL28>
1475                     <DEAD TEMP22>
1476                     <NTHUV LV14 4 = TEMP22>
1477                     <TYPE? TEMP22 <TYPE-CODE FALSE> + BOOL28>
1478                     <DEAD TEMP22>
1479                     <NTHUV LV14 3 = LV14>
1480                     <TYPE? LV14 <TYPE-CODE FALSE> - PHRASE24>
1481                     <DEAD LV14>
1482 BOOL28
1483                     <TYPE? A111 <TYPE-CODE FALSE> + BOOL31>
1484                     <FRAME '\1aNEXT-AC>
1485                     <PUSH A111>
1486                     <CALL '\1aNEXT-AC 1 = TEMP22>
1487                     <EQUAL? A212 TEMP22 + PHRASE24>
1488                     <DEAD TEMP22>
1489 BOOL31
1490                     <SET TWOM13 'T (TYPE ATOM)>
1491                     <FRAME '\1aADDR-VALUE-MQUOTE>
1492                     <CHTYPE ATM6 <TYPE-CODE XGLOC> = STACK>
1493                     <DEAD ATM6>
1494                     <CALL '\1aADDR-VALUE-MQUOTE 1 = LV14>
1495                     <JUMP + PHRASE35>
1496 PHRASE24
1497                     <FRAME '\1aMA-DEF-DISP>
1498                     <GVAL 'AC-M = STACK>
1499                     <FRAME '\1aADD-MVEC>
1500                     <CHTYPE ATM6 <TYPE-CODE XGLOC> = STACK>
1501                     <DEAD ATM6>
1502                     <CALL '\1aADD-MVEC 1 = TEMP22>
1503                     <ADD TEMP22 4 = STACK (TYPE FIX)>
1504                     <DEAD TEMP22>
1505                     <CALL '\1aMA-DEF-DISP 2 = LV14>
1506 PHRASE35
1507                     <GVAL 'BOOT-MODE = TEMP22>
1508                     <TYPE? TEMP22 <TYPE-CODE FALSE> - BOOL40>
1509                     <DEAD TEMP22>
1510                     <VEQUAL? TWOM13 0 + PHRASE39>
1511 BOOL40
1512                     <TYPE? A111 <TYPE-CODE FALSE> + PHRASE42>
1513                     <FRAME '\1aPROTECT>
1514                     <PUSH A111>
1515                     <DEAD A111>
1516                     <CALL '\1aPROTECT 1>
1517 PHRASE42
1518                     <TYPE? A212 <TYPE-CODE FALSE> + PHRASE45>
1519                     <FRAME '\1aPROTECT>
1520                     <PUSH A212>
1521                     <DEAD A212>
1522                     <CALL '\1aPROTECT 1>
1523 PHRASE45
1524                     <FRAME '\1aGET-AC>
1525                     <PUSH 'PREF-VAL>
1526                     <PUSH 'T>
1527                     <CALL '\1aGET-AC 2 = A111>
1528                     <FRAME '\1aEMIT>
1529                     <PUSH 208>
1530                     <PUSH LV14>
1531                     <DEAD LV14>
1532                     <NTHUV A111 2 = TEMP22 (TYPE FIX)>
1533                     <OR TEMP22 #WORD *120* = TEMP22>
1534                     <LSH TEMP22 24 = TEMP22 (TYPE FIX)>
1535                     <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = STACK>
1536                     <DEAD TEMP22>
1537                     <CALL '\1aEMIT 3>
1538                     <FRAME '\1aPROTECT>
1539                     <PUSH A111>
1540                     <CALL '\1aPROTECT 1>
1541                     <VEQUAL? TWOM13 0 - PHRASE51>
1542                     <DEAD TWOM13>
1543                     <FRAME '\1aEMIT>
1544                     <PUSH 208>
1545                     <NTHUV A111 2 = TEMP22 (TYPE FIX)>
1546                     <OR TEMP22 #WORD *140* = TEMP22>
1547                     <LSH TEMP22 24 = TEMP22 (TYPE FIX)>
1548                     <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = STACK>
1549                     <DEAD TEMP22>
1550                     <NTHUV A111 2 = TEMP22 (TYPE FIX)>
1551                     <OR TEMP22 #WORD *120* = TEMP22>
1552                     <LSH TEMP22 24 = TEMP22 (TYPE FIX)>
1553                     <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = STACK>
1554                     <DEAD TEMP22>
1555                     <CALL '\1aEMIT 3>
1556 PHRASE51
1557                     <TYPE? VAL7 <TYPE-CODE VARTBL> + BOOL55>
1558                     <FRAME '\1aFIX-CONSTANT?>
1559                     <PUSH VAL7>
1560                     <CALL '\1aFIX-CONSTANT? 1 = TEMP22>
1561                     <TYPE? TEMP22 <TYPE-CODE FALSE> + PHRASE54>
1562                     <DEAD TEMP22>
1563 BOOL55
1564                     <FRAME '\1aMOVE-TYPE>
1565                     <PUSH VAL7>
1566                     <NTHUV A111 2 = TEMP22 (TYPE FIX)>
1567                     <OR TEMP22 #WORD *140* = TEMP22>
1568                     <LSH TEMP22 24 = TEMP22 (TYPE FIX)>
1569                     <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = STACK>
1570                     <DEAD TEMP22>
1571                     <FRAME '\1aMA-DISP>
1572                     <PUSH A111>
1573                     <PUSH 2>
1574                     <CALL '\1aMA-DISP 2 = STACK>
1575                     <CALL '\1aMOVE-TYPE 3>
1576                     <FRAME '\1aMOVE-VALUE>
1577                     <PUSH VAL7>
1578                     <DEAD VAL7>
1579                     <FRAME '\1aMA-DISP>
1580                     <PUSH A111>
1581                     <DEAD A111>
1582                     <PUSH 4>
1583                     <CALL '\1aMA-DISP 2 = STACK>
1584                     <CALL '\1aMOVE-VALUE 2>
1585                     <RETURN 'NORMAL>
1586 PHRASE54
1587                     <FRAME '\1aEMIT-MOVE>
1588                     <FRAME '\1aADDR-TYPE-MQUOTE>
1589                     <PUSH VAL7>
1590                     <DEAD VAL7>
1591                     <CALL '\1aADDR-TYPE-MQUOTE 1 = STACK>
1592                     <NTHUV A111 2 = TEMP22 (TYPE FIX)>
1593                     <DEAD A111>
1594                     <OR TEMP22 #WORD *140* = TEMP22>
1595                     <LSH TEMP22 24 = TEMP22 (TYPE FIX)>
1596                     <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = STACK>
1597                     <DEAD TEMP22>
1598                     <PUSH 'DOUBLE>
1599                     <CALL '\1aEMIT-MOVE 3>
1600                     <RETURN 'NORMAL>
1601 PHRASE39
1602                     <TYPE? VAL7 <TYPE-CODE VARTBL> - PHRASE64>
1603                     <FRAME '\1aEMIT>
1604                     <PUSH 125>
1605                     <FRAME '\1aVAR-TYPE-ADDRESS>
1606                     <PUSH VAL7>
1607                     <DEAD VAL7>
1608                     <PUSH 'TYPE-WORD>
1609                     <CALL '\1aVAR-TYPE-ADDRESS 2 = STACK>
1610                     <PUSH LV14>
1611                     <DEAD LV14>
1612                     <CALL '\1aEMIT 3>
1613                     <RETURN 'NORMAL>
1614 PHRASE64
1615                     <FRAME '\1aEMIT>
1616                     <PUSH 125>
1617                     <FRAME '\1aADDR-TYPE-MQUOTE>
1618                     <PUSH VAL7>
1619                     <DEAD VAL7>
1620                     <CALL '\1aADDR-TYPE-MQUOTE 1 = STACK>
1621                     <PUSH LV14>
1622                     <DEAD LV14>
1623                     <CALL '\1aEMIT 3>
1624                     <RETURN 'NORMAL>
1625                     <END \1aSETG-GEN>
1626
1627 <SETG BE-COMPATIBLE T>
1628
1629 #WORD *4411735217*
1630                     <GFCN \1aSET-GEN ("VALUE" ATOM VARTBL ANY "OPTIONAL" <OR FALSE HINT>) VAR6 VAL7 HINT8>
1631                     <OPT-DISPATCH 2 %<> OPT4 OPT5>
1632 OPT4
1633                     <PUSH %<>>
1634 OPT5
1635                     <TEMP VAC9 TAC10>
1636                     <INTGO>
1637                     <FRAME '\1aDEAD-VAR>
1638                     <PUSH VAR6>
1639                     <CALL '\1aDEAD-VAR 1>
1640                     <TYPE? VAL7 <TYPE-CODE VARTBL> - PHRASE16>
1641                     <FRAME '\1aLOAD-VAR-APP>
1642                     <PUSH VAL7>
1643                     <PUSH %<>>
1644                     <FRAME '\1aVARTBL-DECL>
1645                     <PUSH VAL7>
1646                     <CALL '\1aVARTBL-DECL 1 = STACK>
1647                     <PUSH %<>>
1648                     <CALL '\1aLOAD-VAR-APP 4 = VAC9>
1649                     <FRAME '\1aLINK-VAR-TO-AC>
1650                     <PUSH VAR6>
1651                     <PUSH VAC9>
1652                     <DEAD VAC9>
1653                     <PUSH 'VALUE>
1654                     <PUSH %<>>
1655                     <CALL '\1aLINK-VAR-TO-AC 4>
1656                     <FRAME '\1aVARTBL-DECL>
1657                     <PUSH VAR6>
1658                     <CALL '\1aVARTBL-DECL 1 = VAC9>
1659                     <TYPE? VAC9 <TYPE-CODE FALSE> - BOOL22>
1660                     <FRAME '\1aVARTBL-DECL>
1661                     <PUSH VAL7>
1662                     <CALL '\1aVARTBL-DECL 1 = VAC9>
1663                     <TYPE? VAC9 <TYPE-CODE FALSE> + PHRASE21>
1664 BOOL22
1665                     <FRAME '\1aINDICATE-CACHED-VARIABLE-DECL>
1666                     <PUSH VAR6>
1667                     <PUSH VAC9>
1668                     <CALL '\1aINDICATE-CACHED-VARIABLE-DECL 2>
1669                     <FRAME '\1aCOUNT-NEEDED?>
1670                     <PUSH VAC9>
1671                     <DEAD VAC9>
1672                     <CALL '\1aCOUNT-NEEDED? 1 = VAC9>
1673                     <TYPE? VAC9 <TYPE-CODE FALSE> + PHRASE45>
1674                     <DEAD VAC9>
1675                     <FRAME '\1aLOAD-VAR>
1676                     <PUSH VAL7>
1677                     <DEAD VAL7>
1678                     <PUSH 'TYPE-WORD>
1679                     <PUSH %<>>
1680                     <PUSH 'PREF-TYPE>
1681                     <PUSH %<>>
1682                     <PUSH %<>>
1683                     <CALL '\1aLOAD-VAR 6 = VAC9>
1684                     <FRAME '\1aLINK-VAR-TO-AC>
1685                     <PUSH VAR6>
1686                     <PUSH VAC9>
1687                     <DEAD VAC9>
1688                     <PUSH 'TYPE-WORD>
1689                     <PUSH %<>>
1690                     <CALL '\1aLINK-VAR-TO-AC 4>
1691                     <JUMP + PHRASE45>
1692 PHRASE21
1693                     <FRAME '\1aLOAD-VAR>
1694                     <PUSH VAL7>
1695                     <DEAD VAL7>
1696                     <PUSH 'TYPE-WORD>
1697                     <PUSH %<>>
1698                     <PUSH 'PREF-TYPE>
1699                     <PUSH %<>>
1700                     <PUSH %<>>
1701                     <CALL '\1aLOAD-VAR 6 = TAC10>
1702                     <FRAME '\1aLINK-VAR-TO-AC>
1703                     <PUSH VAR6>
1704                     <PUSH TAC10>
1705                     <DEAD TAC10>
1706                     <PUSH 'TYPE-WORD>
1707                     <PUSH %<>>
1708                     <CALL '\1aLINK-VAR-TO-AC 4>
1709                     <JUMP + PHRASE45>
1710 PHRASE16
1711                     <FRAME '\1aPRIMTYPE>
1712                     <PUSH VAL7>
1713                     <CALL '\1aPRIMTYPE 1 = VAC9>
1714                     <VEQUAL? VAC9 'FIX + PHRASE35>
1715                     <DEAD VAC9>
1716                     <FRAME '\1aGET-AC>
1717                     <PUSH 'DOUBLE>
1718                     <PUSH 'T>
1719                     <CALL '\1aGET-AC 2 = TAC10>
1720                     <FRAME '\1aEMIT>
1721                     <PUSH 125>
1722                     <FRAME '\1aADDR-TYPE-M>
1723                     <FRAME '\1aADD-MVEC>
1724                     <PUSH VAL7>
1725                     <CALL '\1aADD-MVEC 1 = STACK>
1726                     <CALL '\1aADDR-TYPE-M 1 = STACK>
1727                     <NTHUV TAC10 2 = VAC9 (TYPE FIX)>
1728                     <OR VAC9 #WORD *120* = VAC9>
1729                     <LSH VAC9 24 = VAC9 (TYPE FIX)>
1730                     <CHTYPE VAC9 <TYPE-CODE EFF-ADDR> = STACK>
1731                     <DEAD VAC9>
1732                     <CALL '\1aEMIT 3>
1733                     <FRAME '\1aDEST-PAIR>
1734                     <FRAME '\1aNEXT-AC>
1735                     <PUSH TAC10>
1736                     <CALL '\1aNEXT-AC 1 = STACK>
1737                     <PUSH TAC10>
1738                     <DEAD TAC10>
1739                     <PUSH VAR6>
1740                     <CALL '\1aDEST-PAIR 3>
1741                     <FRAME '\1aINDICATE-CACHED-VARIABLE-DECL>
1742                     <PUSH VAR6>
1743                     <FRAME '\1aTYPE>
1744                     <PUSH VAL7>
1745                     <DEAD VAL7>
1746                     <CALL '\1aTYPE 1 = STACK>
1747                     <CALL '\1aINDICATE-CACHED-VARIABLE-DECL 2>
1748                     <JUMP + PHRASE45>
1749 PHRASE35
1750                     <FRAME '\1aGEN-CONSTANT>
1751                     <PUSH VAL7>
1752                     <PUSH 'PREF-VAL>
1753                     <PUSH 'PREF-TYPE>
1754                     <PUSH 'COUNT-IF-NECESSARY>
1755                     <CALL '\1aGEN-CONSTANT 4 = VAC9>
1756                     <FRAME '\1aLINK-VAR-TO-AC>
1757                     <PUSH VAR6>
1758                     <PUSH VAC9>
1759                     <DEAD VAC9>
1760                     <PUSH 'VALUE>
1761                     <PUSH %<>>
1762                     <CALL '\1aLINK-VAR-TO-AC 4>
1763                     <GVAL 'CONSTANT-COUNT-AC = VAC9>
1764                     <TYPE? VAC9 <TYPE-CODE FALSE> + BOOL48>
1765                     <DEAD VAC9>
1766                     <FRAME '\1aLINK-VAR-TO-AC>
1767                     <PUSH VAR6>
1768                     <GVAL 'CONSTANT-COUNT-AC = STACK>
1769                     <PUSH 'COUNT>
1770                     <PUSH %<>>
1771                     <CALL '\1aLINK-VAR-TO-AC 4>
1772 BOOL48
1773                     <FRAME '\1aINDICATE-CACHED-VARIABLE-DECL>
1774                     <PUSH VAR6>
1775                     <FRAME '\1aTYPE>
1776                     <PUSH VAL7>
1777                     <DEAD VAL7>
1778                     <CALL '\1aTYPE 1 = STACK>
1779                     <CALL '\1aINDICATE-CACHED-VARIABLE-DECL 2>
1780 PHRASE45
1781                     <FRAME '\1aPROCESS-DESTINATION-HINT>
1782                     <PUSH HINT8>
1783                     <DEAD HINT8>
1784                     <PUSH VAR6>
1785                     <DEAD VAR6>
1786                     <CALL '\1aPROCESS-DESTINATION-HINT 2>
1787                     <RETURN 'NORMAL>
1788                     <END \1aSET-GEN>
1789
1790 #WORD *27273627406*
1791                     <GFCN \1aMRETURN-GEN ("VALUE" ATOM ANY ANY "OPTIONAL" ANY) TVAR6 FVAR7 RES8>
1792                     <OPT-DISPATCH 2 %<> OPT4 OPT5>
1793 OPT4
1794                     <PUSH #T$UNBOUND 0>
1795 OPT5
1796                     <TEMP TEMP18>
1797                     <INTGO>
1798                     <FRAME '\1aINDICATE-ALL-DEAD>
1799                     <CALL '\1aINDICATE-ALL-DEAD 0>
1800                     <TYPE? TVAR6 <TYPE-CODE VARTBL> - PHRASE11>
1801                     <PUTUV TVAR6 5 %<>>
1802 PHRASE11
1803                     <TYPE? FVAR7 <TYPE-CODE VARTBL> - PHRASE13>
1804                     <PUTUV FVAR7 5 %<>>
1805 PHRASE13
1806                     <FRAME '\1aEMIT>
1807                     <PUSH 208>
1808                     <TYPE? TVAR6 <TYPE-CODE VARTBL> - PHRASE16>
1809                     <FRAME '\1aVAR-VALUE-ADDRESS>
1810                     <PUSH TVAR6>
1811                     <DEAD TVAR6>
1812                     <CALL '\1aVAR-VALUE-ADDRESS 1 = TEMP18>
1813                     <JUMP + COND15>
1814 PHRASE16
1815                     <FRAME '\1aMA-IMM>
1816                     <PUSH TVAR6>
1817                     <DEAD TVAR6>
1818                     <CALL '\1aMA-IMM 1 = TEMP18>
1819 COND15
1820                     <PUSH TEMP18>
1821                     <DEAD TEMP18>
1822                     <GVAL 'AC-1 = TEMP18>
1823                     <NTHUV TEMP18 2 = TEMP18 (TYPE FIX)>
1824                     <OR TEMP18 #WORD *120* = TEMP18>
1825                     <LSH TEMP18 24 = TEMP18 (TYPE FIX)>
1826                     <CHTYPE TEMP18 <TYPE-CODE EFF-ADDR> = STACK>
1827                     <DEAD TEMP18>
1828                     <CALL '\1aEMIT 3>
1829                     <FRAME '\1aPROTECT>
1830                     <GVAL 'AC-1 = STACK>
1831                     <CALL '\1aPROTECT 1>
1832                     <EQUAL? FVAR7 0 - PHRASE22>
1833                     <GVAL 'MAKTUP-FLAG = TEMP18>
1834                     <TYPE? TEMP18 <TYPE-CODE FALSE> + PHRASE24>
1835                     <DEAD TEMP18>
1836                     <GVAL 'ICALL-LEVEL = TEMP18>
1837                     <VEQUAL? TEMP18 0 - PHRASE24 (TYPE FIX)>
1838                     <DEAD TEMP18>
1839                     <FRAME '\1aEMIT>
1840                     <PUSH 208>
1841                     <FRAME '\1aMA-DISP>
1842                     <GVAL 'AC-F = STACK>
1843                     <PUSH -4>
1844                     <CALL '\1aMA-DISP 2 = STACK>
1845                     <GVAL 'AC-2 = TEMP18>
1846                     <NTHUV TEMP18 2 = TEMP18 (TYPE FIX)>
1847                     <OR TEMP18 #WORD *120* = TEMP18>
1848                     <LSH TEMP18 24 = TEMP18 (TYPE FIX)>
1849                     <CHTYPE TEMP18 <TYPE-CODE EFF-ADDR> = STACK>
1850                     <DEAD TEMP18>
1851                     <CALL '\1aEMIT 3>
1852                     <JUMP + PHRASE32>
1853 PHRASE24
1854                     <FRAME '\1aEMIT>
1855                     <PUSH 208>
1856                     <GVAL 'AC-F = TEMP18>
1857                     <NTHUV TEMP18 2 = TEMP18 (TYPE FIX)>
1858                     <OR TEMP18 #WORD *120* = TEMP18>
1859                     <LSH TEMP18 24 = TEMP18 (TYPE FIX)>
1860                     <CHTYPE TEMP18 <TYPE-CODE EFF-ADDR> = STACK>
1861                     <DEAD TEMP18>
1862                     <GVAL 'AC-2 = TEMP18>
1863                     <NTHUV TEMP18 2 = TEMP18 (TYPE FIX)>
1864                     <OR TEMP18 #WORD *120* = TEMP18>
1865                     <LSH TEMP18 24 = TEMP18 (TYPE FIX)>
1866                     <CHTYPE TEMP18 <TYPE-CODE EFF-ADDR> = STACK>
1867                     <DEAD TEMP18>
1868                     <CALL '\1aEMIT 3>
1869                     <JUMP + PHRASE32>
1870 PHRASE22
1871                     <FRAME '\1aEMIT>
1872                     <PUSH 208>
1873                     <FRAME '\1aVAR-VALUE-ADDRESS>
1874                     <PUSH FVAR7>
1875                     <DEAD FVAR7>
1876                     <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
1877                     <GVAL 'AC-2 = TEMP18>
1878                     <NTHUV TEMP18 2 = TEMP18 (TYPE FIX)>
1879                     <OR TEMP18 #WORD *120* = TEMP18>
1880                     <LSH TEMP18 24 = TEMP18 (TYPE FIX)>
1881                     <CHTYPE TEMP18 <TYPE-CODE EFF-ADDR> = STACK>
1882                     <DEAD TEMP18>
1883                     <CALL '\1aEMIT 3>
1884 PHRASE32
1885                     <FRAME '\1aPROTECT>
1886                     <GVAL 'AC-2 = STACK>
1887                     <CALL '\1aPROTECT 1>
1888                     <FRAME '\1aCALL-RTE>
1889                     <GVAL 'IMRETURN!-MIMOP = STACK>
1890                     <PUSH 'JUMP>
1891                     <PUSH %<>>
1892                     <PUSH %<>>
1893                     <CALL '\1aCALL-RTE 4>
1894                     <RETURN 'UNCONDITIONAL-BRANCH>
1895                     <END \1aMRETURN-GEN>
1896
1897 #WORD *24264346007*
1898                     <GFCN \1aRETURN-GEN ("VALUE" ATOM ANY "OPTIONAL" <OR FALSE VARTBL> ANY) VAL7 FRM8 RES9>
1899                     <OPT-DISPATCH 1 %<> OPT4 OPT5 OPT6>
1900 OPT4
1901                     <PUSH %<>>
1902 OPT5
1903                     <PUSH #T$UNBOUND 0>
1904 OPT6
1905                     <TEMP TEMP25>
1906                     <INTGO>
1907                     <FRAME '\1aINDICATE-ALL-DEAD>
1908                     <CALL '\1aINDICATE-ALL-DEAD 0>
1909                     <TYPE? FRM8 <TYPE-CODE VARTBL> - PHRASE12>
1910                     <PUTUV FRM8 5 %<>>
1911 PHRASE12
1912                     <TYPE? VAL7 <TYPE-CODE VARTBL> - PHRASE14>
1913                     <PUTUV VAL7 5 %<>>
1914                     <FRAME '\1aLOAD-VAR>
1915                     <PUSH VAL7>
1916                     <PUSH 'VALUE>
1917                     <PUSH %<>>
1918                     <GVAL 'AC-1 = STACK>
1919                     <CALL '\1aLOAD-VAR 4>
1920                     <FRAME '\1aLOAD-VAR>
1921                     <PUSH VAL7>
1922                     <DEAD VAL7>
1923                     <PUSH 'TYPE-WORD>
1924                     <PUSH %<>>
1925                     <GVAL 'AC-0 = STACK>
1926                     <CALL '\1aLOAD-VAR 4>
1927                     <JUMP + PHRASE17>
1928 PHRASE14
1929                     <FRAME '\1aGEN-CONSTANT>
1930                     <PUSH VAL7>
1931                     <DEAD VAL7>
1932                     <GVAL 'AC-1 = STACK>
1933                     <GVAL 'AC-0 = STACK>
1934                     <PUSH 'TYPE-WORD>
1935                     <CALL '\1aGEN-CONSTANT 4>
1936 PHRASE17
1937                     <FRAME '\1aPROTECT>
1938                     <GVAL 'AC-1 = STACK>
1939                     <CALL '\1aPROTECT 1>
1940                     <FRAME '\1aPROTECT>
1941                     <GVAL 'AC-0 = STACK>
1942                     <CALL '\1aPROTECT 1>
1943                     <TYPE? FRM8 <TYPE-CODE FALSE> + PHRASE22>
1944                     <FRAME '\1aEMIT>
1945                     <PUSH 208>
1946                     <FRAME '\1aVAR-VALUE-ADDRESS>
1947                     <PUSH FRM8>
1948                     <DEAD FRM8>
1949                     <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
1950                     <GVAL 'AC-F = TEMP25>
1951                     <NTHUV TEMP25 2 = TEMP25 (TYPE FIX)>
1952                     <OR TEMP25 #WORD *120* = TEMP25>
1953                     <LSH TEMP25 24 = TEMP25 (TYPE FIX)>
1954                     <CHTYPE TEMP25 <TYPE-CODE EFF-ADDR> = STACK>
1955                     <DEAD TEMP25>
1956                     <CALL '\1aEMIT 3>
1957                     <JUMP + PHRASE26>
1958 PHRASE22
1959                     <GVAL 'MAKTUP-FLAG = TEMP25>
1960                     <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE26>
1961                     <DEAD TEMP25>
1962                     <GVAL 'ICALL-LEVEL = TEMP25>
1963                     <VEQUAL? TEMP25 0 - PHRASE26 (TYPE FIX)>
1964                     <DEAD TEMP25>
1965                     <FRAME '\1aEMIT>
1966                     <PUSH 208>
1967                     <FRAME '\1aMA-DISP>
1968                     <GVAL 'AC-F = STACK>
1969                     <PUSH -4>
1970                     <CALL '\1aMA-DISP 2 = STACK>
1971                     <GVAL 'AC-F = TEMP25>
1972                     <NTHUV TEMP25 2 = TEMP25 (TYPE FIX)>
1973                     <OR TEMP25 #WORD *120* = TEMP25>
1974                     <LSH TEMP25 24 = TEMP25 (TYPE FIX)>
1975                     <CHTYPE TEMP25 <TYPE-CODE EFF-ADDR> = STACK>
1976                     <DEAD TEMP25>
1977                     <CALL '\1aEMIT 3>
1978 PHRASE26
1979                     <FRAME '\1aCALL-RTE>
1980                     <GVAL 'FINIS!-MIMOP = STACK>
1981                     <PUSH 'JUMP>
1982                     <PUSH %<>>
1983                     <PUSH %<>>
1984                     <CALL '\1aCALL-RTE 4>
1985                     <RETURN 'UNCONDITIONAL-BRANCH>
1986                     <END \1aRETURN-GEN>
1987
1988 #WORD *15104712224*
1989                     <GFCN \1aDISPATCH-GEN ("VALUE" ATOM ANY <PRIMTYPE WORD> "TUPLE" <TUPLE [REST ATOM]>) VAR4 BASE5>
1990                     <MAKTUP LABELS6 CT7 AC25:AC = LABELS6>
1991                     <INTGO>
1992                     <LENUV LABELS6 = CT7 (TYPE FIX)>
1993                     <FRAME '\1aSTORE-ALL-ACS>
1994                     <CALL '\1aSTORE-ALL-ACS 0>
1995                     <FRAME '\1aEMIT>
1996                     <PUSH 207>
1997                     <FRAME '\1aVAR-VALUE-ADDRESS>
1998                     <PUSH VAR4>
1999                     <DEAD VAR4>
2000                     <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
2001                     <FRAME '\1aMA-IMM>
2002                     <PUSH BASE5>
2003                     <DEAD BASE5>
2004                     <CALL '\1aMA-IMM 1 = STACK>
2005                     <FRAME '\1aMA-IMM>
2006                     <SUB CT7 1 = STACK (TYPE FIX)>
2007                     <DEAD CT7>
2008                     <CALL '\1aMA-IMM 1 = STACK>
2009                     <CALL '\1aEMIT 4>
2010                     <GVAL 'ALL-ACS = CT7>
2011                     <LOOP>
2012 MAP14
2013                     <INTGO>
2014                     <EMPUV? CT7 + MAPAP17>
2015                     <NTHUV CT7 1 = AC25>
2016                     <FRAME '\1aSTORE-AC>
2017                     <PUSH AC25>
2018                     <DEAD AC25>
2019                     <PUSH 'T>
2020                     <CALL '\1aSTORE-AC 2>
2021                     <RESTUV CT7 1 = CT7 (TYPE VECTOR)>
2022                     <JUMP + MAP14>
2023 MAPAP17
2024                     <CHTYPE LABELS6 <TYPE-CODE VECTOR> = CT7>
2025                     <DEAD LABELS6>
2026                     <LOOP>
2027 MAP28
2028                     <INTGO>
2029                     <EMPUV? CT7 + MAPAP31>
2030                     <NTHUV CT7 1 = LABELS6>
2031                     <FRAME '\1aEMIT-LABEL-WORD>
2032                     <PUSH LABELS6>
2033                     <DEAD LABELS6>
2034                     <CALL '\1aEMIT-LABEL-WORD 1 = LABELS6>
2035                     <FRAME '\1aSAVE-XREF-AC-INFO>
2036                     <PUSH LABELS6>
2037                     <DEAD LABELS6>
2038                     <FRAME '\1aSAVE-STATE>
2039                     <CALL '\1aSAVE-STATE 0 = STACK>
2040                     <FRAME '\1aSAVE-LOAD-STATE>
2041                     <CALL '\1aSAVE-LOAD-STATE 0 = STACK>
2042                     <CALL '\1aSAVE-XREF-AC-INFO 3>
2043                     <RESTUV CT7 1 = CT7 (TYPE VECTOR)>
2044                     <JUMP + MAP28>
2045 MAPAP31
2046                     <RETURN 'CONDITIONAL-BRANCH>
2047                     <END \1aDISPATCH-GEN>
2048
2049 #WORD *10023340655*
2050                     <GFCN \1aOPDISP-GEN ("VALUE" ATOM FIX <OR FALSE FIX> "TUPLE" <TUPLE [REST ATOM]>) RNUM4 TRONUM5>
2051                     <MAKTUP LABELS6 NARGS7:FIX TEMP10 = LABELS6>
2052                     <INTGO>
2053                     <SET NARGS7 RNUM4>
2054                     <FRAME '\1aPROTECT>
2055                     <GVAL 'AC-0 = STACK>
2056                     <CALL '\1aPROTECT 1>
2057                     <FRAME '\1aEMIT>
2058                     <PUSH 175>
2059                     <GVAL 'AC-0 = TEMP10>
2060                     <NTHUV TEMP10 2 = TEMP10 (TYPE FIX)>
2061                     <OR TEMP10 #WORD *120* = TEMP10>
2062                     <LSH TEMP10 24 = TEMP10 (TYPE FIX)>
2063                     <CHTYPE TEMP10 <TYPE-CODE EFF-ADDR> = STACK>
2064                     <DEAD TEMP10>
2065                     <AND RNUM4 #WORD *77* = TEMP10>
2066                     <LSH TEMP10 24 = TEMP10 (TYPE FIX)>
2067                     <CHTYPE TEMP10 <TYPE-CODE EFF-ADDR> = STACK>
2068                     <DEAD TEMP10>
2069                     <TYPE? TRONUM5 <TYPE-CODE FALSE> + PHRASE12>
2070                     <SUB TRONUM5 RNUM4 = TEMP10 (TYPE FIX)>
2071                     <DEAD TRONUM5 RNUM4>
2072                     <JUMP + PHRASE13>
2073 PHRASE12
2074                     <LENUV LABELS6 = TEMP10 (TYPE FIX)>
2075                     <SUB TEMP10 1 = TEMP10 (TYPE FIX)>
2076 PHRASE13
2077                     <AND TEMP10 #WORD *77* = TEMP10>
2078                     <LSH TEMP10 24 = TEMP10 (TYPE FIX)>
2079                     <CHTYPE TEMP10 <TYPE-CODE EFF-ADDR> = STACK>
2080                     <DEAD TEMP10>
2081                     <CALL '\1aEMIT 4>
2082                     <CHTYPE LABELS6 <TYPE-CODE VECTOR> = TEMP10>
2083                     <DEAD LABELS6>
2084                     <LOOP>
2085 MAP16
2086                     <INTGO>
2087                     <EMPUV? TEMP10 + MAPAP19>
2088                     <NTHUV TEMP10 1 = LABELS6>
2089                     <FRAME '\1aEMIT-LABEL-WORD>
2090                     <PUSH LABELS6>
2091                     <CALL '\1aEMIT-LABEL-WORD 1>
2092                     <FRAME '\1aADD-INTERNAL-ENTRY>
2093                     <PUSH NARGS7>
2094                     <PUSH LABELS6>
2095                     <DEAD LABELS6>
2096                     <CALL '\1aADD-INTERNAL-ENTRY 2>
2097                     <ADD NARGS7 1 = NARGS7 (TYPE FIX)>
2098                     <RESTUV TEMP10 1 = TEMP10 (TYPE VECTOR)>
2099                     <JUMP + MAP16>
2100 MAPAP19
2101                     <RETURN 'NORMAL>
2102                     <END \1aOPDISP-GEN>
2103
2104 #WORD *15114407355*
2105                     <GFCN \1aMAKTUP-GEN ("VALUE" ATOM "TUPLE" ANY)>
2106                     <MAKTUP TEMPS4 TLEN6 ARGS7:LIST TVAR9 TEMPS24 TEMP32 TEMP36 = TEMPS4>
2107                     <INTGO>
2108                     <LENUV TEMPS4 = TLEN6 (TYPE FIX)>
2109                     <GVAL 'ARGLIST-VARS = ARGS7>
2110                     <NTHUV TEMPS4 TLEN6 = TLEN6>
2111                     <FRAME '\1aTEMP-PROCESS>
2112                     <PUSH TLEN6>
2113                     <CALL '\1aTEMP-PROCESS 1>
2114                     <FRAME '\1aGEN-LOC>
2115                     <FRAME '\1aFIND-VAR>
2116                     <PUSH TLEN6>
2117                     <CALL '\1aFIND-VAR 1 = TVAR9>
2118                     <PUSH TVAR9>
2119                     <PUSH 0>
2120                     <CALL '\1aGEN-LOC 2>
2121                     <PUTUV TVAR9 6 %<>>
2122                     <DEAD TVAR9>
2123                     <CHTYPE TEMPS4 <TYPE-CODE VECTOR> = TEMPS4>
2124                     <SET TVAR9 0 (TYPE FIX)>
2125                     <FRAME '\1aTEMP-PROCESS>
2126                     <LOOP>
2127 MAP14
2128                     <INTGO>
2129                     <EMPUV? TEMPS4 + MAPAP17>
2130                     <SET TEMPS24 TEMPS4>
2131                     <NTHUV TEMPS24 1 = TEMPS24>
2132                     <EQUAL? TEMPS24 '= + MAPAP17>
2133                     <EQUAL? TLEN6 TEMPS24 + COND26>
2134                     <FRAME '\1a=?>
2135                     <PUSH TLEN6>
2136                     <PUSH TEMPS24>
2137                     <CALL '\1a=? 2 = TEMP32>
2138                     <VEQUAL? TEMP32 0 - COND26>
2139                     <DEAD TEMP32>
2140                     <TYPE? TLEN6 <TYPE-CODE ADECL> - PHRASE34>
2141                     <TYPE? TEMPS24 <TYPE-CODE ADECL> - PHRASE34>
2142                     <NTHUV TLEN6 1 = TEMP32>
2143                     <NTHUV TEMPS24 1 = TEMP36>
2144                     <EQUAL? TEMP32 TEMP36 - PHRASE29>
2145                     <DEAD TEMP32 TEMP36>
2146                     <JUMP + COND26>
2147 PHRASE34
2148                     <TYPE? TLEN6 <TYPE-CODE ADECL> - PHRASE37>
2149                     <TYPE? TEMPS24 <TYPE-CODE ATOM> - PHRASE37>
2150                     <NTHUV TLEN6 1 = TEMP36>
2151                     <EQUAL? TEMP36 TEMPS24 - PHRASE29>
2152                     <DEAD TEMP36>
2153                     <JUMP + COND26>
2154 PHRASE37
2155                     <TYPE? TLEN6 <TYPE-CODE ATOM> - PHRASE29>
2156                     <TYPE? TEMPS24 <TYPE-CODE ADECL> - PHRASE29>
2157                     <NTHUV TEMPS24 1 = TEMP36>
2158                     <EQUAL? TEMP36 TLEN6 + COND26>
2159                     <DEAD TEMP36>
2160 PHRASE29
2161                     <PUSH TEMPS24>
2162                     <DEAD TEMPS24>
2163                     <ADD TVAR9 1 = TVAR9 (TYPE FIX)>
2164 COND26
2165                     <RESTUV TEMPS4 1 = TEMPS4 (TYPE VECTOR)>
2166                     <JUMP + MAP14>
2167 MAPAP17
2168                     <CALL '\1aTEMP-PROCESS TVAR9>
2169                     <DEAD TVAR9>
2170                     <FRAME '\1aEMIT>
2171                     <PUSH 208>
2172                     <GVAL 'AC-0 = TLEN6>
2173                     <NTHUV TLEN6 2 = TVAR9 (TYPE FIX)>
2174                     <DEAD TLEN6>
2175                     <OR TVAR9 #WORD *120* = TVAR9>
2176                     <LSH TVAR9 24 = TVAR9 (TYPE FIX)>
2177                     <CHTYPE TVAR9 <TYPE-CODE EFF-ADDR> = STACK>
2178                     <DEAD TVAR9>
2179                     <GVAL 'AC-1 = TLEN6>
2180                     <NTHUV TLEN6 2 = TVAR9 (TYPE FIX)>
2181                     <DEAD TLEN6>
2182                     <OR TVAR9 #WORD *120* = TVAR9>
2183                     <LSH TVAR9 24 = TVAR9 (TYPE FIX)>
2184                     <CHTYPE TVAR9 <TYPE-CODE EFF-ADDR> = STACK>
2185                     <DEAD TVAR9>
2186                     <CALL '\1aEMIT 3>
2187                     <EMPL? ARGS7 + PHRASE45 (TYPE LIST)>
2188                     <FRAME '\1aADD-CONSTANT-TO-AC>
2189                     <LENL ARGS7 = TVAR9 (TYPE FIX)>
2190                     <SUB 0 TVAR9 = STACK (TYPE FIX)>
2191                     <DEAD TVAR9>
2192                     <GVAL 'AC-1 = STACK>
2193                     <CALL '\1aADD-CONSTANT-TO-AC 2>
2194                     <FRAME '\1aMAKE-LABEL>
2195                     <CALL '\1aMAKE-LABEL 0 = TEMPS24>
2196                     <FRAME '\1aGEN-BRANCH>
2197                     <PUSH 24>
2198                     <PUSH TEMPS24>
2199                     <PUSH %<>>
2200                     <CALL '\1aGEN-BRANCH 3>
2201                     <FRAME '\1aEMIT>
2202                     <PUSH 212>
2203                     <GVAL 'AC-1 = TLEN6>
2204                     <NTHUV TLEN6 2 = TVAR9 (TYPE FIX)>
2205                     <DEAD TLEN6>
2206                     <OR TVAR9 #WORD *120* = TVAR9>
2207                     <LSH TVAR9 24 = TVAR9 (TYPE FIX)>
2208                     <CHTYPE TVAR9 <TYPE-CODE EFF-ADDR> = STACK>
2209                     <DEAD TVAR9>
2210                     <CALL '\1aEMIT 2>
2211                     <FRAME '\1aEMIT-LABEL>
2212                     <PUSH TEMPS24>
2213                     <DEAD TEMPS24>
2214                     <PUSH %<>>
2215                     <CALL '\1aEMIT-LABEL 2>
2216 PHRASE45
2217                     <SETG 'MAKTUP-FLAG 'T>
2218                     <FRAME '\1aEMIT-PUSH>
2219                     <FRAME '\1aTYPE-CODE>
2220                     <PUSH 'TUPLE>
2221                     <CALL '\1aTYPE-CODE 1 = STACK>
2222                     <PUSH 'WORD>
2223                     <CALL '\1aEMIT-PUSH 2>
2224                     <FRAME '\1aEMIT-PUSH>
2225                     <GVAL 'AC-1 = TLEN6>
2226                     <NTHUV TLEN6 2 = TVAR9 (TYPE FIX)>
2227                     <DEAD TLEN6>
2228                     <OR TVAR9 #WORD *120* = TVAR9>
2229                     <LSH TVAR9 24 = TVAR9 (TYPE FIX)>
2230                     <CHTYPE TVAR9 <TYPE-CODE EFF-ADDR> = STACK>
2231                     <DEAD TVAR9>
2232                     <PUSH 'WORD>
2233                     <CALL '\1aEMIT-PUSH 2>
2234                     <FRAME '\1aCLEAR-PUSH>
2235                     <CALL '\1aCLEAR-PUSH 0>
2236                     <FRAME '\1aEMIT-PUSH>
2237                     <FRAME '\1aTYPE-WORD>
2238                     <PUSH 'FRAME>
2239                     <CALL '\1aTYPE-WORD 1 = STACK>
2240                     <PUSH 'LONG>
2241                     <CALL '\1aEMIT-PUSH 2>
2242                     <FRAME '\1aEMIT-PUSH>
2243                     <GVAL 'AC-F = TLEN6>
2244                     <NTHUV TLEN6 2 = TVAR9 (TYPE FIX)>
2245                     <DEAD TLEN6>
2246                     <OR TVAR9 #WORD *120* = TVAR9>
2247                     <LSH TVAR9 24 = TVAR9 (TYPE FIX)>
2248                     <CHTYPE TVAR9 <TYPE-CODE EFF-ADDR> = STACK>
2249                     <DEAD TVAR9>
2250                     <PUSH 'LONG>
2251                     <CALL '\1aEMIT-PUSH 2>
2252                     <FRAME '\1aEMIT>
2253                     <PUSH 208>
2254                     <GVAL 'AC-TP = TLEN6>
2255                     <NTHUV TLEN6 2 = TVAR9 (TYPE FIX)>
2256                     <DEAD TLEN6>
2257                     <OR TVAR9 #WORD *120* = TVAR9>
2258                     <LSH TVAR9 24 = TVAR9 (TYPE FIX)>
2259                     <CHTYPE TVAR9 <TYPE-CODE EFF-ADDR> = STACK>
2260                     <DEAD TVAR9>
2261                     <GVAL 'AC-2 = TLEN6>
2262                     <NTHUV TLEN6 2 = TVAR9 (TYPE FIX)>
2263                     <DEAD TLEN6>
2264                     <OR TVAR9 #WORD *120* = TVAR9>
2265                     <LSH TVAR9 24 = TVAR9 (TYPE FIX)>
2266                     <CHTYPE TVAR9 <TYPE-CODE EFF-ADDR> = STACK>
2267                     <DEAD TVAR9>
2268                     <CALL '\1aEMIT 3>
2269                     <SET TVAR9 ARGS7 (TYPE LIST)>
2270                     <LOOP>
2271 MAP60
2272                     <INTGO>
2273                     <EMPL? TVAR9 + MAPAP63>
2274                     <NTHL TVAR9 1 = TLEN6>
2275                     <FRAME '\1aEMIT-PUSH>
2276                     <FRAME '\1aADDR-VAR-TYPE>
2277                     <PUSH TLEN6>
2278                     <DEAD TLEN6>
2279                     <CALL '\1aADDR-VAR-TYPE 1 = STACK>
2280                     <PUSH 'DOUBLE>
2281                     <CALL '\1aEMIT-PUSH 2>
2282                     <RESTL TVAR9 1 = TVAR9 (TYPE LIST)>
2283                     <JUMP + MAP60>
2284 MAPAP63
2285                     <FRAME '\1aEMIT-PUSH>
2286                     <FRAME '\1aTYPE-CODE>
2287                     <PUSH 'TUPLE>
2288                     <CALL '\1aTYPE-CODE 1 = STACK>
2289                     <PUSH 'WORD>
2290                     <CALL '\1aEMIT-PUSH 2>
2291                     <FRAME '\1aEMIT-PUSH>
2292                     <GVAL 'AC-1 = TLEN6>
2293                     <NTHUV TLEN6 2 = TLEN6 (TYPE FIX)>
2294                     <OR TLEN6 #WORD *120* = TLEN6>
2295                     <LSH TLEN6 24 = TLEN6 (TYPE FIX)>
2296                     <CHTYPE TLEN6 <TYPE-CODE EFF-ADDR> = STACK>
2297                     <DEAD TLEN6>
2298                     <PUSH 'WORD>
2299                     <CALL '\1aEMIT-PUSH 2>
2300                     <FRAME '\1aEMIT-PUSH>
2301                     <GVAL 'AC-F = TLEN6>
2302                     <NTHUV TLEN6 2 = TLEN6 (TYPE FIX)>
2303                     <OR TLEN6 #WORD *120* = TLEN6>
2304                     <LSH TLEN6 24 = TLEN6 (TYPE FIX)>
2305                     <CHTYPE TLEN6 <TYPE-CODE EFF-ADDR> = STACK>
2306                     <DEAD TLEN6>
2307                     <PUSH 'LONG>
2308                     <CALL '\1aEMIT-PUSH 2>
2309                     <EMPL? ARGS7 + BOOL73>
2310                     <FRAME '\1aEMIT>
2311                     <PUSH 192>
2312                     <FRAME '\1aMA-IMM>
2313                     <LENL ARGS7 = TLEN6 (TYPE FIX)>
2314                     <DEAD ARGS7>
2315                     <LSH TLEN6 3 = STACK (TYPE FIX)>
2316                     <DEAD TLEN6>
2317                     <CALL '\1aMA-IMM 1 = STACK>
2318                     <FRAME '\1aMA-DISP>
2319                     <GVAL 'AC-TP = STACK>
2320                     <PUSH -4>
2321                     <CALL '\1aMA-DISP 2 = STACK>
2322                     <CALL '\1aEMIT 3>
2323 BOOL73
2324                     <FRAME '\1aEMIT>
2325                     <PUSH 208>
2326                     <GVAL 'AC-2 = TLEN6>
2327                     <NTHUV TLEN6 2 = TLEN6 (TYPE FIX)>
2328                     <OR TLEN6 #WORD *120* = TLEN6>
2329                     <LSH TLEN6 24 = TLEN6 (TYPE FIX)>
2330                     <CHTYPE TLEN6 <TYPE-CODE EFF-ADDR> = STACK>
2331                     <DEAD TLEN6>
2332                     <GVAL 'AC-F = TLEN6>
2333                     <NTHUV TLEN6 2 = TLEN6 (TYPE FIX)>
2334                     <OR TLEN6 #WORD *120* = TLEN6>
2335                     <LSH TLEN6 24 = TLEN6 (TYPE FIX)>
2336                     <CHTYPE TLEN6 <TYPE-CODE EFF-ADDR> = STACK>
2337                     <DEAD TLEN6>
2338                     <CALL '\1aEMIT 3>
2339                     <FRAME '\1aINDICATE-TEMP-PATCH>
2340                     <FRAME '\1aADD-PATCH>
2341                     <PUSH 'TEMPORARIES>
2342                     <CALL '\1aADD-PATCH 1 = STACK>
2343                     <CALL '\1aINDICATE-TEMP-PATCH 1>
2344                     <RETURN 'NORMAL>
2345                     <END \1aMAKTUP-GEN>
2346
2347 <COND (<NOT <GASSIGNED? ICALL-LEVEL>> <SETG ICALL-LEVEL 0>)>
2348
2349 #WORD *1606513155*
2350                     <GFCN \1aICALL-GEN ("VALUE" ATOM ATOM "OPTIONAL" <OR FALSE ATOM VARTBL>) LABEL6 RES7>
2351                     <OPT-DISPATCH 1 %<> OPT4 OPT5>
2352 OPT4
2353                     <PUSH %<>>
2354 OPT5
2355                     <TEMP TEMP12 TADDR9 TLAB10>
2356                     <INTGO>
2357                     <FRAME '\1aFLUSH-ALL-ACS>
2358                     <CALL '\1aFLUSH-ALL-ACS 0>
2359                     <GVAL 'ICALL-LEVEL = TEMP12>
2360                     <ADD TEMP12 1 = TEMP12 (TYPE FIX)>
2361                     <SETG 'ICALL-LEVEL TEMP12>
2362                     <DEAD TEMP12>
2363                     <TYPE? RES7 <TYPE-CODE VARTBL> - PHRASE14>
2364                     <FRAME '\1aADDR-VAR-TYPE>
2365                     <PUSH RES7>
2366                     <CALL '\1aADDR-VAR-TYPE 1 = TADDR9>
2367                     <FRAME '\1aADDR-VAR-VALUE>
2368                     <PUSH RES7>
2369                     <CALL '\1aADDR-VAR-VALUE 1 = TEMP12>
2370 PHRASE14
2371                     <GVAL 'ICALL-LABELS = TEMP12>
2372                     <CONS LABEL6 TEMP12 = TEMP12>
2373                     <SETG 'ICALL-LABELS TEMP12>
2374                     <DEAD TEMP12>
2375                     <FRAME '\1aNEW-MODEL>
2376                     <FRAME '\1aCREATE-MODEL>
2377                     <CALL '\1aCREATE-MODEL 0 = STACK>
2378                     <CALL '\1aNEW-MODEL 1>
2379                     <FRAME '\1aCALL-RTE>
2380                     <GVAL 'INCALL!-MIMOP = STACK>
2381                     <PUSH 'CALL>
2382                     <PUSH %<>>
2383                     <PUSH %<>>
2384                     <CALL '\1aCALL-RTE 4>
2385                     <FRAME '\1aMAKE-LABEL>
2386                     <CALL '\1aMAKE-LABEL 0 = TLAB10>
2387                     <FRAME '\1aEMIT-BRANCH>
2388                     <PUSH 17>
2389                     <PUSH TLAB10>
2390                     <PUSH %<>>
2391                     <PUSH 0>
2392                     <PUSH %<>>
2393                     <PUSH 'T>
2394                     <CALL '\1aEMIT-BRANCH 6>
2395                     <EQUAL? RES7 'STACK - PHRASE23>
2396                     <FRAME '\1aEMIT-PUSH>
2397                     <GVAL 'AC-0 = TEMP12>
2398                     <NTHUV TEMP12 2 = TEMP12 (TYPE FIX)>
2399                     <OR TEMP12 #WORD *120* = TEMP12>
2400                     <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
2401                     <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = STACK>
2402                     <DEAD TEMP12>
2403                     <PUSH 'DOUBLE>
2404                     <CALL '\1aEMIT-PUSH 2>
2405                     <JUMP + PHRASE25>
2406 PHRASE23
2407                     <TYPE? RES7 <TYPE-CODE VARTBL> - PHRASE25>
2408                     <DEAD RES7>
2409                     <FRAME '\1aEMIT>
2410                     <PUSH 125>
2411                     <GVAL 'AC-0 = TEMP12>
2412                     <NTHUV TEMP12 2 = TEMP12 (TYPE FIX)>
2413                     <OR TEMP12 #WORD *120* = TEMP12>
2414                     <LSH TEMP12 24 = TEMP12 (TYPE FIX)>
2415                     <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = STACK>
2416                     <DEAD TEMP12>
2417                     <PUSH TADDR9>
2418                     <DEAD TADDR9>
2419                     <CALL '\1aEMIT 3>
2420 PHRASE25
2421                     <FRAME '\1aGEN-BRANCH>
2422                     <PUSH 17>
2423                     <PUSH LABEL6>
2424                     <DEAD LABEL6>
2425                     <PUSH 'UNCONDITIONAL-BRANCH>
2426                     <CALL '\1aGEN-BRANCH 3>
2427                     <FRAME '\1aEMIT-LABEL>
2428                     <PUSH TLAB10>
2429                     <DEAD TLAB10>
2430                     <PUSH %<>>
2431                     <CALL '\1aEMIT-LABEL 2>
2432                     <RETURN 'NORMAL>
2433                     <END \1aICALL-GEN>
2434
2435 "Args are:  LOCAL variable being set; FRAME where new val is coming from;
2436  variable in that frame for new value."
2437
2438 #WORD *37466044774*
2439                     <GFCN \1aSETLR-GEN ("VALUE" ATOM <OR VARTBL ATOM> ANY VARTBL "OPTIONAL" ANY) LVAR6 FVAR7 NLVAR8 HINT9>
2440                     <OPT-DISPATCH 3 %<> OPT4 OPT5>
2441 OPT4
2442                     <PUSH %<>>
2443 OPT5
2444                     <TEMP SADDR12 (TYP13 %<>) FAC11 TEMP32 TAC10>
2445                     <INTGO>
2446                     <FRAME '\1aADDR-VAR-OFFSET>
2447                     <PUSH NLVAR8>
2448                     <CALL '\1aADDR-VAR-OFFSET 1 = SADDR12>
2449                     <TYPE? HINT9 <TYPE-CODE FALSE> + BOOL16>
2450                     <FRAME '\1aPARSE-HINT>
2451                     <PUSH HINT9>
2452                     <DEAD HINT9>
2453                     <PUSH 'TYPE>
2454                     <CALL '\1aPARSE-HINT 2 = TYP13>
2455 BOOL16
2456                     <FRAME '\1aPROTECT-VAL>
2457                     <PUSH NLVAR8>
2458                     <DEAD NLVAR8>
2459                     <CALL '\1aPROTECT-VAL 1>
2460                     <TYPE? LVAR6 <TYPE-CODE VARTBL> - PHRASE20>
2461                     <EQUAL? LVAR6 FVAR7 + PHRASE20>
2462                     <FRAME '\1aDEAD-VAR>
2463                     <PUSH LVAR6>
2464                     <CALL '\1aDEAD-VAR 1>
2465 PHRASE20
2466                     <FRAME '\1aPROTECT>
2467                     <FRAME '\1aLOAD-VAR>
2468                     <PUSH FVAR7>
2469                     <DEAD FVAR7>
2470                     <PUSH 'VALUE>
2471                     <PUSH %<>>
2472                     <PUSH 'PREF-VAL>
2473                     <CALL '\1aLOAD-VAR 4 = FAC11>
2474                     <PUSH FAC11>
2475                     <CALL '\1aPROTECT 1>
2476                     <EQUAL? LVAR6 'STACK - PHRASE26>
2477                     <FRAME '\1aEMIT-PUSH>
2478                     <FRAME '\1aMA-DISP>
2479                     <PUSH FAC11>
2480                     <DEAD FAC11>
2481                     <PUSH SADDR12>
2482                     <DEAD SADDR12>
2483                     <CALL '\1aMA-DISP 2 = STACK>
2484                     <PUSH 'DOUBLE>
2485                     <CALL '\1aEMIT-PUSH 2>
2486                     <RETURN 'NORMAL>
2487 PHRASE26
2488                     <TYPE? TYP13 <TYPE-CODE FALSE> + PHRASE29>
2489                     <FRAME '\1aCOUNT-NEEDED?>
2490                     <PUSH TYP13>
2491                     <CALL '\1aCOUNT-NEEDED? 1 = TEMP32>
2492                     <TYPE? TEMP32 <TYPE-CODE FALSE> - PHRASE29>
2493                     <DEAD TEMP32>
2494                     <FRAME '\1aGET-AC>
2495                     <PUSH 'PREF-VAL>
2496                     <PUSH 'T>
2497                     <CALL '\1aGET-AC 2 = TAC10>
2498                     <FRAME '\1aEMIT>
2499                     <PUSH 208>
2500                     <FRAME '\1aMA-DISP>
2501                     <PUSH FAC11>
2502                     <DEAD FAC11>
2503                     <ADD SADDR12 4 = STACK (TYPE FIX)>
2504                     <DEAD SADDR12>
2505                     <CALL '\1aMA-DISP 2 = STACK>
2506                     <NTHUV TAC10 2 = TEMP32 (TYPE FIX)>
2507                     <OR TEMP32 #WORD *120* = TEMP32>
2508                     <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
2509                     <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
2510                     <DEAD TEMP32>
2511                     <CALL '\1aEMIT 3>
2512                     <FRAME '\1aDEST-DECL>
2513                     <PUSH TAC10>
2514                     <DEAD TAC10>
2515                     <PUSH LVAR6>
2516                     <DEAD LVAR6>
2517                     <PUSH TYP13>
2518                     <DEAD TYP13>
2519                     <CALL '\1aDEST-DECL 3>
2520                     <RETURN 'NORMAL>
2521 PHRASE29
2522                     <FRAME '\1aGET-AC>
2523                     <PUSH 'DOUBLE>
2524                     <PUSH 'T>
2525                     <CALL '\1aGET-AC 2 = TAC10>
2526                     <FRAME '\1aEMIT>
2527                     <PUSH 125>
2528                     <FRAME '\1aMA-DISP>
2529                     <PUSH FAC11>
2530                     <DEAD FAC11>
2531                     <PUSH SADDR12>
2532                     <DEAD SADDR12>
2533                     <CALL '\1aMA-DISP 2 = STACK>
2534                     <NTHUV TAC10 2 = TEMP32 (TYPE FIX)>
2535                     <OR TEMP32 #WORD *120* = TEMP32>
2536                     <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
2537                     <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
2538                     <DEAD TEMP32>
2539                     <CALL '\1aEMIT 3>
2540                     <FRAME '\1aDEST-PAIR>
2541                     <FRAME '\1aNEXT-AC>
2542                     <PUSH TAC10>
2543                     <CALL '\1aNEXT-AC 1 = STACK>
2544                     <PUSH TAC10>
2545                     <DEAD TAC10>
2546                     <PUSH LVAR6>
2547                     <DEAD LVAR6>
2548                     <CALL '\1aDEST-PAIR 3>
2549                     <RETURN 'NORMAL>
2550                     <END \1aSETLR-GEN>
2551
2552 "Args are:  FRAME where new value is going; variable in that frame; value
2553  for variable (often local var, often not)"
2554
2555 #WORD *22325147225*
2556                     <GFCN \1aSETRL-GEN ("VALUE" ATOM VARTBL VARTBL ANY "OPTIONAL" ANY) FVAR6 NLVAR7 LVAR8 HINT9>
2557                     <OPT-DISPATCH 3 %<> OPT4 OPT5>
2558 OPT4
2559                     <PUSH %<>>
2560 OPT5
2561                     <TEMP SADDR11:FIX (TYP15 %<>) FAC10 LV16 T117 T218 TEMP37>
2562                     <INTGO>
2563                     <FRAME '\1aADDR-VAR-OFFSET>
2564                     <PUSH NLVAR7>
2565                     <DEAD NLVAR7>
2566                     <CALL '\1aADDR-VAR-OFFSET 1 = SADDR11>
2567                     <FRAME '\1aPROTECT-VAL>
2568                     <PUSH LVAR8>
2569                     <CALL '\1aPROTECT-VAL 1>
2570                     <FRAME '\1aPROTECT>
2571                     <FRAME '\1aLOAD-VAR>
2572                     <PUSH FVAR6>
2573                     <DEAD FVAR6>
2574                     <PUSH 'VALUE>
2575                     <PUSH %<>>
2576                     <PUSH 'PREF-VAL>
2577                     <CALL '\1aLOAD-VAR 4 = FAC10>
2578                     <PUSH FAC10>
2579                     <CALL '\1aPROTECT 1>
2580                     <TYPE? HINT9 <TYPE-CODE FALSE> + BOOL23>
2581                     <FRAME '\1aPARSE-HINT>
2582                     <PUSH HINT9>
2583                     <DEAD HINT9>
2584                     <PUSH 'TYPE>
2585                     <CALL '\1aPARSE-HINT 2 = TYP15>
2586 BOOL23
2587                     <TYPE? TYP15 <TYPE-CODE FALSE> - COND25>
2588                     <TYPE? LVAR8 <TYPE-CODE VARTBL> - PHRASE26>
2589                     <FRAME '\1aVARTBL-DECL>
2590                     <PUSH LVAR8>
2591                     <CALL '\1aVARTBL-DECL 1 = TYP15>
2592                     <JUMP + COND25>
2593 PHRASE26
2594                     <FRAME '\1aTYPE>
2595                     <PUSH LVAR8>
2596                     <CALL '\1aTYPE 1 = TYP15>
2597 COND25
2598                     <TYPE? LVAR8 <TYPE-CODE VARTBL> - PHRASE30>
2599                     <FRAME '\1aFIND-CACHE-VAR>
2600                     <PUSH LVAR8>
2601                     <CALL '\1aFIND-CACHE-VAR 1 = LV16>
2602                     <TYPE? LV16 <TYPE-CODE FALSE> + BOOL33>
2603                     <NTHUV LV16 6 = T117>
2604                     <TYPE? T117 <TYPE-CODE FALSE> + BOOL35>
2605                     <NTHUV LV16 9 = T218>
2606                     <TYPE? T218 <TYPE-CODE FALSE> + BOOL35>
2607                     <FRAME '\1aNEXT-AC>
2608                     <PUSH T218>
2609                     <CALL '\1aNEXT-AC 1 = TEMP37>
2610                     <EQUAL? T117 TEMP37 + BOOL33>
2611                     <DEAD TEMP37>
2612 BOOL35
2613                     <NTHUV LV16 2 = TEMP37>
2614                     <TYPE? TEMP37 <TYPE-CODE FALSE> + PHRASE32>
2615                     <DEAD TEMP37>
2616                     <NTHUV LV16 4 = TEMP37>
2617                     <TYPE? TEMP37 <TYPE-CODE FALSE> + PHRASE32>
2618                     <DEAD TEMP37>
2619                     <NTHUV LV16 3 = TEMP37>
2620                     <TYPE? TEMP37 <TYPE-CODE FALSE> + PHRASE32>
2621                     <DEAD TEMP37>
2622 BOOL33
2623                     <FRAME '\1aEMIT>
2624                     <PUSH 125>
2625                     <TYPE? LV16 <TYPE-CODE FALSE> + PHRASE41>
2626                     <DEAD LV16>
2627                     <TYPE? T117 <TYPE-CODE FALSE> + PHRASE41>
2628                     <DEAD T117>
2629                     <NTHUV T218 2 = TEMP37 (TYPE FIX)>
2630                     <DEAD T218>
2631                     <OR TEMP37 #WORD *120* = TEMP37>
2632                     <LSH TEMP37 24 = TEMP37 (TYPE FIX)>
2633                     <CHTYPE TEMP37 <TYPE-CODE EFF-ADDR> = TEMP37>
2634                     <JUMP + PHRASE43>
2635 PHRASE41
2636                     <FRAME '\1aADDR-VAR-TYPE-VALUE>
2637                     <PUSH LVAR8>
2638                     <DEAD LVAR8>
2639                     <CALL '\1aADDR-VAR-TYPE-VALUE 1 = TEMP37>
2640 PHRASE43
2641                     <PUSH TEMP37>
2642                     <DEAD TEMP37>
2643                     <FRAME '\1aMA-DISP>
2644                     <PUSH FAC10>
2645                     <DEAD FAC10>
2646                     <PUSH SADDR11>
2647                     <DEAD SADDR11>
2648                     <CALL '\1aMA-DISP 2 = STACK>
2649                     <CALL '\1aEMIT 3>
2650                     <RETURN 'NORMAL>
2651 PHRASE32
2652                     <TYPE? TYP15 <TYPE-CODE FALSE> + PHRASE46>
2653                     <FRAME '\1aEMIT>
2654                     <PUSH 208>
2655                     <FRAME '\1aVAR-VALUE-ADDRESS>
2656                     <PUSH LVAR8>
2657                     <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
2658                     <FRAME '\1aMA-DISP>
2659                     <PUSH FAC10>
2660                     <ADD SADDR11 4 = STACK (TYPE FIX)>
2661                     <CALL '\1aMA-DISP 2 = STACK>
2662                     <CALL '\1aEMIT 3>
2663                     <FRAME '\1aEMIT>
2664                     <PUSH 176>
2665                     <FRAME '\1aTYPE-CODE>
2666                     <PUSH TYP15>
2667                     <PUSH 'WORD>
2668                     <CALL '\1aTYPE-CODE 2 = STACK>
2669                     <FRAME '\1aMA-DISP>
2670                     <PUSH FAC10>
2671                     <PUSH SADDR11>
2672                     <CALL '\1aMA-DISP 2 = STACK>
2673                     <CALL '\1aEMIT 3>
2674                     <FRAME '\1aCOUNT-NEEDED?>
2675                     <PUSH TYP15>
2676                     <DEAD TYP15>
2677                     <CALL '\1aCOUNT-NEEDED? 1 = TEMP37>
2678                     <TYPE? TEMP37 <TYPE-CODE FALSE> + PHRASE66>
2679                     <DEAD TEMP37>
2680                     <FRAME '\1aVAR-COUNT-IN-AC?>
2681                     <PUSH LVAR8>
2682                     <CALL '\1aVAR-COUNT-IN-AC? 1 = TYP15>
2683                     <TYPE? TYP15 <TYPE-CODE FALSE> + PHRASE57>
2684                     <FRAME '\1aEMIT>
2685                     <PUSH 176>
2686                     <NTHUV TYP15 2 = TEMP37 (TYPE FIX)>
2687                     <DEAD TYP15>
2688                     <OR TEMP37 #WORD *120* = TEMP37>
2689                     <LSH TEMP37 24 = TEMP37 (TYPE FIX)>
2690                     <CHTYPE TEMP37 <TYPE-CODE EFF-ADDR> = STACK>
2691                     <DEAD TEMP37>
2692                     <FRAME '\1aMA-DISP>
2693                     <PUSH FAC10>
2694                     <DEAD FAC10>
2695                     <ADD SADDR11 2 = STACK (TYPE FIX)>
2696                     <DEAD SADDR11>
2697                     <CALL '\1aMA-DISP 2 = STACK>
2698                     <CALL '\1aEMIT 3>
2699                     <RETURN 'NORMAL>
2700 PHRASE57
2701                     <FRAME '\1aVAR-COUNT-STORED?>
2702                     <PUSH LVAR8>
2703                     <DEAD LVAR8>
2704                     <CALL '\1aVAR-COUNT-STORED? 1 = TYP15>
2705                     <TYPE? TYP15 <TYPE-CODE FALSE> + PHRASE61>
2706                     <FRAME '\1aEMIT>
2707                     <PUSH 176>
2708                     <PUSH TYP15>
2709                     <DEAD TYP15>
2710                     <FRAME '\1aMA-DISP>
2711                     <PUSH FAC10>
2712                     <DEAD FAC10>
2713                     <ADD SADDR11 2 = STACK (TYPE FIX)>
2714                     <DEAD SADDR11>
2715                     <CALL '\1aMA-DISP 2 = STACK>
2716                     <CALL '\1aEMIT 3>
2717                     <RETURN 'NORMAL>
2718 PHRASE61
2719                     <FRAME '\1aERROR>
2720                     <PUSH "COUNT NOT FOUND">
2721                     <PUSH 'SETRL-GEN>
2722                     <CALL '\1aERROR 2>
2723                     <RETURN 'NORMAL>
2724 PHRASE46
2725                     <FRAME '\1aEMIT>
2726                     <PUSH 208>
2727                     <FRAME '\1aVAR-TYPE-ADDRESS>
2728                     <PUSH LVAR8>
2729                     <PUSH 'TYPE-WORD>
2730                     <CALL '\1aVAR-TYPE-ADDRESS 2 = STACK>
2731                     <FRAME '\1aMA-DISP>
2732                     <PUSH FAC10>
2733                     <PUSH SADDR11>
2734                     <CALL '\1aMA-DISP 2 = STACK>
2735                     <CALL '\1aEMIT 3>
2736                     <FRAME '\1aEMIT>
2737                     <PUSH 208>
2738                     <FRAME '\1aVAR-VALUE-ADDRESS>
2739                     <PUSH LVAR8>
2740                     <DEAD LVAR8>
2741                     <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
2742                     <FRAME '\1aMA-DISP>
2743                     <PUSH FAC10>
2744                     <DEAD FAC10>
2745                     <ADD SADDR11 4 = STACK (TYPE FIX)>
2746                     <DEAD SADDR11>
2747                     <CALL '\1aMA-DISP 2 = STACK>
2748                     <CALL '\1aEMIT 3>
2749 PHRASE66
2750                     <RETURN 'NORMAL>
2751 PHRASE30
2752                     <FRAME '\1aEMIT>
2753                     <PUSH 125>
2754                     <FRAME '\1aADDR-TYPE-MQUOTE>
2755                     <PUSH LVAR8>
2756                     <DEAD LVAR8>
2757                     <CALL '\1aADDR-TYPE-MQUOTE 1 = STACK>
2758                     <FRAME '\1aMA-DISP>
2759                     <PUSH FAC10>
2760                     <DEAD FAC10>
2761                     <PUSH SADDR11>
2762                     <DEAD SADDR11>
2763                     <CALL '\1aMA-DISP 2 = STACK>
2764                     <CALL '\1aEMIT 3>
2765                     <RETURN 'NORMAL>
2766                     <END \1aSETRL-GEN>
2767
2768 #WORD *35570011134*
2769                     <GFCN \1aFIXBIND-GEN ("VALUE" ATOM)>
2770                     <TEMP>
2771                     <INTGO>
2772                     <FRAME '\1aCALL-RTE>
2773                     <GVAL 'IFIXBND!-MIMOP = STACK>
2774                     <PUSH 'CALL>
2775                     <PUSH %<>>
2776                     <PUSH %<>>
2777                     <CALL '\1aCALL-RTE 4>
2778                     <RETURN 'NORMAL>
2779                     <END \1aFIXBIND-GEN>
2780
2781 #WORD *27555606230*
2782                     <GFCN \1aBIND-GEN ("VALUE" ANY <OR ATOM VARTBL> "OPTIONAL" ANY) RES6 HINT7>
2783                     <OPT-DISPATCH 1 %<> OPT4 OPT5>
2784 OPT4
2785                     <PUSH #T$UNBOUND 0>
2786 OPT5
2787                     <TEMP TEMP9>
2788                     <INTGO>
2789                     <FRAME '\1aCALL-RTE>
2790                     <GVAL 'IBIND!-MIMOP = STACK>
2791                     <PUSH 'CALL>
2792                     <PUSH RES6>
2793                     <DEAD RES6>
2794                     <PUSH %<>>
2795                     <CALL '\1aCALL-RTE 4 = TEMP9>
2796                     <RETURN TEMP9>
2797                     <DEAD TEMP9>
2798                     <END \1aBIND-GEN>
2799
2800 #WORD *573756671*
2801                     <GFCN \1aCFRAME-GEN ("VALUE" ATOM <OR ATOM VARTBL> "OPTIONAL" ANY) RES6 HINT7>
2802                     <OPT-DISPATCH 1 %<> OPT4 OPT5>
2803 OPT4
2804                     <PUSH #T$UNBOUND 0>
2805 OPT5
2806                     <TEMP VAC8 TEMP14 TLAB9>
2807                     <INTGO>
2808                     <FRAME '\1aGET-AC>
2809                     <PUSH 'PREF-VAL>
2810                     <PUSH 'T>
2811                     <CALL '\1aGET-AC 2 = VAC8>
2812                     <GVAL 'MAKTUP-FLAG = TEMP14>
2813                     <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE12>
2814                     <DEAD TEMP14>
2815                     <GVAL 'ICALL-LEVEL = TEMP14>
2816                     <VEQUAL? TEMP14 0 - PHRASE12 (TYPE FIX)>
2817                     <DEAD TEMP14>
2818                     <FRAME '\1aEMIT>
2819                     <PUSH 208>
2820                     <FRAME '\1aMA-DISP>
2821                     <GVAL 'AC-F = STACK>
2822                     <PUSH -4>
2823                     <CALL '\1aMA-DISP 2 = STACK>
2824                     <NTHUV VAC8 2 = TEMP14 (TYPE FIX)>
2825                     <OR TEMP14 #WORD *120* = TEMP14>
2826                     <LSH TEMP14 24 = TEMP14 (TYPE FIX)>
2827                     <CHTYPE TEMP14 <TYPE-CODE EFF-ADDR> = STACK>
2828                     <DEAD TEMP14>
2829                     <CALL '\1aEMIT 3>
2830                     <JUMP + COND11>
2831 PHRASE12
2832                     <FRAME '\1aEMIT>
2833                     <PUSH 208>
2834                     <GVAL 'AC-F = TEMP14>
2835                     <NTHUV TEMP14 2 = TEMP14 (TYPE FIX)>
2836                     <OR TEMP14 #WORD *120* = TEMP14>
2837                     <LSH TEMP14 24 = TEMP14 (TYPE FIX)>
2838                     <CHTYPE TEMP14 <TYPE-CODE EFF-ADDR> = STACK>
2839                     <DEAD TEMP14>
2840                     <NTHUV VAC8 2 = TEMP14 (TYPE FIX)>
2841                     <OR TEMP14 #WORD *120* = TEMP14>
2842                     <LSH TEMP14 24 = TEMP14 (TYPE FIX)>
2843                     <CHTYPE TEMP14 <TYPE-CODE EFF-ADDR> = STACK>
2844                     <DEAD TEMP14>
2845                     <CALL '\1aEMIT 3>
2846 COND11
2847                     <FRAME '\1aEMIT>
2848                     <PUSH 213>
2849                     <FRAME '\1aMA-DISP>
2850                     <PUSH VAC8>
2851                     <PUSH -4>
2852                     <CALL '\1aMA-DISP 2 = STACK>
2853                     <CALL '\1aEMIT 2>
2854                     <FRAME '\1aMAKE-LABEL>
2855                     <CALL '\1aMAKE-LABEL 0 = TLAB9>
2856                     <FRAME '\1aGEN-BRANCH>
2857                     <PUSH 25>
2858                     <PUSH TLAB9>
2859                     <PUSH %<>>
2860                     <CALL '\1aGEN-BRANCH 3>
2861                     <FRAME '\1aEMIT-MOVE>
2862                     <FRAME '\1aMA-DISP>
2863                     <PUSH VAC8>
2864                     <PUSH -4>
2865                     <CALL '\1aMA-DISP 2 = STACK>
2866                     <NTHUV VAC8 2 = TEMP14 (TYPE FIX)>
2867                     <OR TEMP14 #WORD *120* = TEMP14>
2868                     <LSH TEMP14 24 = TEMP14 (TYPE FIX)>
2869                     <CHTYPE TEMP14 <TYPE-CODE EFF-ADDR> = STACK>
2870                     <DEAD TEMP14>
2871                     <PUSH 'LONG>
2872                     <CALL '\1aEMIT-MOVE 3>
2873                     <FRAME '\1aEMIT-LABEL>
2874                     <PUSH TLAB9>
2875                     <DEAD TLAB9>
2876                     <PUSH %<>>
2877                     <CALL '\1aEMIT-LABEL 2>
2878                     <FRAME '\1aDEST-DECL>
2879                     <PUSH VAC8>
2880                     <DEAD VAC8>
2881                     <PUSH RES6>
2882                     <DEAD RES6>
2883                     <PUSH 'FRAME>
2884                     <CALL '\1aDEST-DECL 3>
2885                     <RETURN 'NORMAL>
2886                     <END \1aCFRAME-GEN>
2887
2888 #WORD *27634712150*
2889                     <GFCN \1aUNBIND-GEN ("VALUE" ATOM VARTBL) VAR4>
2890                     <TEMP>
2891                     <INTGO>
2892                     <FRAME '\1aCALL-RTE>
2893                     <GVAL 'IUNBIND!-MIMOP = STACK>
2894                     <PUSH 'CALL>
2895                     <PUSH %<>>
2896                     <PUSH %<>>
2897                     <PUSH VAR4>
2898                     <DEAD VAR4>
2899                     <CALL '\1aCALL-RTE 5>
2900                     <RETURN 'NORMAL>
2901                     <END \1aUNBIND-GEN>
2902
2903 #WORD *4352265731*
2904                     <GFCN \1aGETS-GEN ("VALUE" ATOM ATOM ANY "OPTIONAL" ANY) CASE6 RES7 HINT8>
2905                     <OPT-DISPATCH 2 %<> OPT4 OPT5>
2906 OPT4
2907                     <PUSH #T$UNBOUND 0>
2908 OPT5
2909                     <TEMP TEMP14 TEMP28 TEMP29 TEMP30 TEMP31 TEMP52>
2910                     <INTGO>
2911                     <FRAME '\1aMEMBER>
2912                     <NTHR CASE6 3 = STACK (RECORD-TYPE ATOM)>
2913                     <PUSH ["PURVEC" "DBVEC"]>
2914                     <CALL '\1aMEMBER 2 = TEMP14>
2915                     <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE12>
2916                     <DEAD TEMP14>
2917                     <EQUAL? RES7 'STACK - PHRASE16>
2918                     <FRAME '\1aEMIT>
2919                     <PUSH 125>
2920                     <FRAME '\1aADDR-TYPE-M>
2921                     <FRAME '\1aADD-MVEC>
2922                     <PUSH %<>>
2923                     <CALL '\1aADD-MVEC 1 = STACK>
2924                     <CALL '\1aADDR-TYPE-M 1 = STACK>
2925                     <GVAL 'AC-TP = TEMP14>
2926                     <NTHUV TEMP14 2 = TEMP14 (TYPE FIX)>
2927                     <OR TEMP14 #WORD *200* = TEMP14>
2928                     <LSH TEMP14 24 = TEMP14 (TYPE FIX)>
2929                     <CHTYPE TEMP14 <TYPE-CODE EFF-ADDR> = STACK>
2930                     <DEAD TEMP14>
2931                     <CALL '\1aEMIT 3>
2932                     <RETURN 'NORMAL>
2933 PHRASE16
2934                     <FRAME '\1aSET-GEN>
2935                     <PUSH RES7>
2936                     <DEAD RES7>
2937                     <PUSH %<>>
2938                     <CALL '\1aSET-GEN 2>
2939                     <RETURN 'NORMAL>
2940 PHRASE12
2941                     <FRAME '\1aMEMBER>
2942                     <NTHR CASE6 3 = STACK (RECORD-TYPE ATOM)>
2943                     <PUSH ["BIND" "BINDID"]>
2944                     <CALL '\1aMEMBER 2 = TEMP14>
2945                     <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE22>
2946                     <DEAD TEMP14>
2947                     <EQUAL? RES7 'STACK - PHRASE25>
2948                     <NTHR CASE6 3 = TEMP14 (RECORD-TYPE ATOM)>
2949                     <DEAD CASE6>
2950                     <IFCAN "STRING-EQUAL?">
2951                     <STRING-EQUAL? TEMP14 "BIND" - PHRASE27>
2952                     <ENDIF "STRING-EQUAL?">
2953                     <IFCANNOT "STRING-EQUAL?">
2954                     <SET TEMP28 "BIND" (TYPE STRING)>
2955                     <LENUS TEMP14 = TEMP29 (TYPE FIX)>
2956                     <VEQUAL? TEMP29 4 - PHRASE27>
2957                     <LOOP (TEMP14 VALUE LENGTH) (TEMP28 VALUE LENGTH) (TEMP29 VALUE)>
2958 TAG32
2959                     <NTHUS TEMP14 1 = TEMP30>
2960                     <NTHUS TEMP28 1 = TEMP31>
2961                     <VEQUAL? TEMP30 TEMP31 - PHRASE27>
2962                     <DEAD TEMP30 TEMP31>
2963                     <RESTUS TEMP14 1 = TEMP14 (TYPE STRING)>
2964                     <RESTUS TEMP28 1 = TEMP28 (TYPE STRING)>
2965                     <SUB TEMP29 1 = TEMP29 (TYPE FIX)>
2966                     <GRTR? TEMP29 0 + TAG32 (TYPE FIX)>
2967                     <ENDIF "STRING-EQUAL?">
2968                     <FRAME '\1aEMIT-PUSH>
2969                     <FRAME '\1aTYPE-WORD>
2970                     <PUSH 'LBIND>
2971                     <CALL '\1aTYPE-WORD 1 = STACK>
2972                     <PUSH 'LONG>
2973                     <CALL '\1aEMIT-PUSH 2>
2974                     <FRAME '\1aEMIT-PUSH>
2975                     <GVAL 'AC-PC = TEMP28>
2976                     <NTHUV TEMP28 2 = TEMP28 (TYPE FIX)>
2977                     <OR TEMP28 #WORD *220* = TEMP28>
2978                     <LSH TEMP28 24 = TEMP28 (TYPE FIX)>
2979                     <CHTYPE TEMP28 <TYPE-CODE EFF-ADDR> = TEMP28>
2980                     <CONS TEMP28 () = TEMP28>
2981                     <FRAME '\1aLREV>
2982                     <GVAL 'SPSTO-LOC = STACK>
2983                     <CALL '\1aLREV 1 = TEMP14>
2984                     <CHTYPE TEMP14 <TYPE-CODE EFF-ADDR> = TEMP14>
2985                     <CONS TEMP14 () = TEMP14>
2986                     <PUTREST TEMP28 TEMP14>
2987                     <DEAD TEMP14>
2988                     <CHTYPE TEMP28 <TYPE-CODE LADDR> = STACK>
2989                     <DEAD TEMP28>
2990                     <PUSH 'LONG>
2991                     <CALL '\1aEMIT-PUSH 2>
2992                     <RETURN 'NORMAL>
2993 PHRASE27
2994                     <FRAME '\1aEMIT-PUSH>
2995                     <FRAME '\1aTYPE-CODE>
2996                     <PUSH 'FIX>
2997                     <CALL '\1aTYPE-CODE 1 = STACK>
2998                     <PUSH 'LONG>
2999                     <CALL '\1aEMIT-PUSH 2>
3000                     <FRAME '\1aEMIT-PUSH>
3001                     <GVAL 'AC-PC = TEMP28>
3002                     <NTHUV TEMP28 2 = TEMP28 (TYPE FIX)>
3003                     <OR TEMP28 #WORD *220* = TEMP28>
3004                     <LSH TEMP28 24 = TEMP28 (TYPE FIX)>
3005                     <CHTYPE TEMP28 <TYPE-CODE EFF-ADDR> = TEMP28>
3006                     <CONS TEMP28 () = TEMP28>
3007                     <FRAME '\1aLREV>
3008                     <GVAL 'BINDID-LOC = STACK>
3009                     <CALL '\1aLREV 1 = TEMP14>
3010                     <CHTYPE TEMP14 <TYPE-CODE EFF-ADDR> = TEMP14>
3011                     <CONS TEMP14 () = TEMP14>
3012                     <PUTREST TEMP28 TEMP14>
3013                     <DEAD TEMP14>
3014                     <CHTYPE TEMP28 <TYPE-CODE LADDR> = STACK>
3015                     <DEAD TEMP28>
3016                     <PUSH 'LONG>
3017                     <CALL '\1aEMIT-PUSH 2>
3018                     <RETURN 'NORMAL>
3019 PHRASE25
3020                     <FRAME '\1aVAR-VALUE-IN-AC?>
3021                     <PUSH RES7>
3022                     <CALL '\1aVAR-VALUE-IN-AC? 1 = TEMP29>
3023                     <TYPE? TEMP29 <TYPE-CODE FALSE> + PHRASE44>
3024                     <FRAME '\1aSTORE-AC>
3025                     <PUSH TEMP29>
3026                     <PUSH %<>>
3027                     <FRAME '\1aFIND-CACHE-VAR>
3028                     <PUSH RES7>
3029                     <CALL '\1aFIND-CACHE-VAR 1 = STACK>
3030                     <CALL '\1aSTORE-AC 3>
3031                     <JUMP + PHRASE48>
3032 PHRASE44
3033                     <FRAME '\1aGET-AC>
3034                     <PUSH 'PREF-VAL>
3035                     <PUSH 'T>
3036                     <CALL '\1aGET-AC 2 = TEMP29>
3037 PHRASE48
3038                     <NTHR CASE6 3 = TEMP28 (RECORD-TYPE ATOM)>
3039                     <DEAD CASE6>
3040                     <IFCAN "STRING-EQUAL?">
3041                     <STRING-EQUAL? TEMP28 "BIND" - PHRASE51>
3042                     <ENDIF "STRING-EQUAL?">
3043                     <IFCANNOT "STRING-EQUAL?">
3044                     <SET TEMP14 "BIND" (TYPE STRING)>
3045                     <LENUS TEMP28 = TEMP31 (TYPE FIX)>
3046                     <VEQUAL? TEMP31 4 - PHRASE51>
3047                     <LOOP (TEMP28 VALUE LENGTH) (TEMP14 VALUE LENGTH) (TEMP31 VALUE)>
3048 TAG53
3049                     <NTHUS TEMP28 1 = TEMP30>
3050                     <NTHUS TEMP14 1 = TEMP52>
3051                     <VEQUAL? TEMP30 TEMP52 - PHRASE51>
3052                     <DEAD TEMP30 TEMP52>
3053                     <RESTUS TEMP28 1 = TEMP28 (TYPE STRING)>
3054                     <RESTUS TEMP14 1 = TEMP14 (TYPE STRING)>
3055                     <SUB TEMP31 1 = TEMP31 (TYPE FIX)>
3056                     <GRTR? TEMP31 0 + TAG53 (TYPE FIX)>
3057                     <ENDIF "STRING-EQUAL?">
3058                     <FRAME '\1aEMIT-MOVE>
3059                     <GVAL 'AC-PC = TEMP14>
3060                     <NTHUV TEMP14 2 = TEMP14 (TYPE FIX)>
3061                     <OR TEMP14 #WORD *220* = TEMP14>
3062                     <LSH TEMP14 24 = TEMP14 (TYPE FIX)>
3063                     <CHTYPE TEMP14 <TYPE-CODE EFF-ADDR> = TEMP14>
3064                     <CONS TEMP14 () = TEMP14>
3065                     <FRAME '\1aLREV>
3066                     <GVAL 'SPSTO-LOC = STACK>
3067                     <CALL '\1aLREV 1 = TEMP28>
3068                     <CHTYPE TEMP28 <TYPE-CODE EFF-ADDR> = TEMP28>
3069                     <CONS TEMP28 () = TEMP28>
3070                     <PUTREST TEMP14 TEMP28>
3071                     <DEAD TEMP28>
3072                     <CHTYPE TEMP14 <TYPE-CODE LADDR> = STACK>
3073                     <DEAD TEMP14>
3074                     <NTHUV TEMP29 2 = TEMP14 (TYPE FIX)>
3075                     <OR TEMP14 #WORD *120* = TEMP14>
3076                     <LSH TEMP14 24 = TEMP14 (TYPE FIX)>
3077                     <CHTYPE TEMP14 <TYPE-CODE EFF-ADDR> = STACK>
3078                     <DEAD TEMP14>
3079                     <PUSH 'LONG>
3080                     <CALL '\1aEMIT-MOVE 3>
3081                     <FRAME '\1aDEST-DECL>
3082                     <PUSH TEMP29>
3083                     <DEAD TEMP29>
3084                     <PUSH RES7>
3085                     <DEAD RES7>
3086                     <PUSH 'LBIND>
3087                     <CALL '\1aDEST-DECL 3>
3088                     <RETURN 'NORMAL>
3089 PHRASE51
3090                     <FRAME '\1aEMIT-MOVE>
3091                     <GVAL 'AC-PC = TEMP14>
3092                     <NTHUV TEMP14 2 = TEMP14 (TYPE FIX)>
3093                     <OR TEMP14 #WORD *220* = TEMP14>
3094                     <LSH TEMP14 24 = TEMP14 (TYPE FIX)>
3095                     <CHTYPE TEMP14 <TYPE-CODE EFF-ADDR> = TEMP14>
3096                     <CONS TEMP14 () = TEMP14>
3097                     <FRAME '\1aLREV>
3098                     <GVAL 'BINDID-LOC = STACK>
3099                     <CALL '\1aLREV 1 = TEMP28>
3100                     <CHTYPE TEMP28 <TYPE-CODE EFF-ADDR> = TEMP28>
3101                     <CONS TEMP28 () = TEMP28>
3102                     <PUTREST TEMP14 TEMP28>
3103                     <DEAD TEMP28>
3104                     <CHTYPE TEMP14 <TYPE-CODE LADDR> = STACK>
3105                     <DEAD TEMP14>
3106                     <NTHUV TEMP29 2 = TEMP14 (TYPE FIX)>
3107                     <OR TEMP14 #WORD *120* = TEMP14>
3108                     <LSH TEMP14 24 = TEMP14 (TYPE FIX)>
3109                     <CHTYPE TEMP14 <TYPE-CODE EFF-ADDR> = STACK>
3110                     <DEAD TEMP14>
3111                     <PUSH 'LONG>
3112                     <CALL '\1aEMIT-MOVE 3>
3113                     <FRAME '\1aDEST-DECL>
3114                     <PUSH TEMP29>
3115                     <DEAD TEMP29>
3116                     <PUSH RES7>
3117                     <DEAD RES7>
3118                     <PUSH 'FIX>
3119                     <CALL '\1aDEST-DECL 3>
3120                     <RETURN 'NORMAL>
3121 PHRASE22
3122                     <FRAME '\1aFIND-CASE-ENTRY>
3123                     <PUSH CASE6>
3124                     <DEAD CASE6>
3125                     <CALL '\1aFIND-CASE-ENTRY 1 = TEMP14>
3126                     <FRAME '\1aCALL-RTE>
3127                     <GVAL 'IGETS!-MIMOP = STACK>
3128                     <PUSH 'CALL>
3129                     <PUSH RES7>
3130                     <DEAD RES7>
3131                     <NTHUV TEMP14 3 = STACK (TYPE ATOM)>
3132                     <NTHUV TEMP14 2 = STACK (TYPE FIX)>
3133                     <DEAD TEMP14>
3134                     <CALL '\1aCALL-RTE 5>
3135                     <RETURN 'NORMAL>
3136                     <END \1aGETS-GEN>
3137
3138 #WORD *17445373310*
3139                     <GFCN \1aSETS-GEN ("VALUE" ATOM ANY ANY) CASE4 VAL5>
3140                     <TEMP TEMP10 TEMP19 TEMP20 TEMP21 TEMP22>
3141                     <INTGO>
3142                     <FRAME '\1aMEMBER>
3143                     <NTHR CASE4 3 = STACK (RECORD-TYPE ATOM)>
3144                     <PUSH ["BIND" "BINDID"]>
3145                     <CALL '\1aMEMBER 2 = TEMP10>
3146                     <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE8>
3147                     <DEAD TEMP10>
3148                     <FRAME '\1aEMIT-MOVE>
3149                     <TYPE? VAL5 <TYPE-CODE VARTBL> - PHRASE13>
3150                     <FRAME '\1aVAR-VALUE-ADDRESS>
3151                     <PUSH VAL5>
3152                     <DEAD VAL5>
3153                     <CALL '\1aVAR-VALUE-ADDRESS 1 = TEMP10>
3154                     <JUMP + PHRASE15>
3155 PHRASE13
3156                     <FRAME '\1aMA-IMM>
3157                     <PUSH VAL5>
3158                     <DEAD VAL5>
3159                     <CALL '\1aMA-IMM 1 = TEMP10>
3160 PHRASE15
3161                     <PUSH TEMP10>
3162                     <DEAD TEMP10>
3163                     <NTHR CASE4 3 = TEMP10 (RECORD-TYPE ATOM)>
3164                     <DEAD CASE4>
3165                     <IFCAN "STRING-EQUAL?">
3166                     <STRING-EQUAL? TEMP10 "BIND" - PHRASE18>
3167                     <ENDIF "STRING-EQUAL?">
3168                     <IFCANNOT "STRING-EQUAL?">
3169                     <SET TEMP19 "BIND" (TYPE STRING)>
3170                     <LENUS TEMP10 = TEMP20 (TYPE FIX)>
3171                     <VEQUAL? TEMP20 4 - PHRASE18>
3172                     <LOOP (TEMP10 VALUE LENGTH) (TEMP19 VALUE LENGTH) (TEMP20 VALUE)>
3173 TAG23
3174                     <NTHUS TEMP10 1 = TEMP21>
3175                     <NTHUS TEMP19 1 = TEMP22>
3176                     <VEQUAL? TEMP21 TEMP22 - PHRASE18>
3177                     <DEAD TEMP21 TEMP22>
3178                     <RESTUS TEMP10 1 = TEMP10 (TYPE STRING)>
3179                     <RESTUS TEMP19 1 = TEMP19 (TYPE STRING)>
3180                     <SUB TEMP20 1 = TEMP20 (TYPE FIX)>
3181                     <GRTR? TEMP20 0 + TAG23 (TYPE FIX)>
3182                     <ENDIF "STRING-EQUAL?">
3183                     <GVAL 'AC-PC = TEMP19>
3184                     <NTHUV TEMP19 2 = TEMP19 (TYPE FIX)>
3185                     <OR TEMP19 #WORD *220* = TEMP19>
3186                     <LSH TEMP19 24 = TEMP19 (TYPE FIX)>
3187                     <CHTYPE TEMP19 <TYPE-CODE EFF-ADDR> = TEMP19>
3188                     <CONS TEMP19 () = TEMP19>
3189                     <FRAME '\1aLREV>
3190                     <GVAL 'SPSTO-LOC = STACK>
3191                     <CALL '\1aLREV 1 = TEMP10>
3192                     <CHTYPE TEMP10 <TYPE-CODE EFF-ADDR> = TEMP10>
3193                     <CONS TEMP10 () = TEMP10>
3194                     <PUTREST TEMP19 TEMP10>
3195                     <DEAD TEMP10>
3196                     <CHTYPE TEMP19 <TYPE-CODE LADDR> = TEMP19>
3197                     <JUMP + COND17>
3198 PHRASE18
3199                     <GVAL 'AC-PC = TEMP10>
3200                     <NTHUV TEMP10 2 = TEMP10 (TYPE FIX)>
3201                     <OR TEMP10 #WORD *220* = TEMP10>
3202                     <LSH TEMP10 24 = TEMP10 (TYPE FIX)>
3203                     <CHTYPE TEMP10 <TYPE-CODE EFF-ADDR> = TEMP10>
3204                     <CONS TEMP10 () = TEMP10>
3205                     <FRAME '\1aLREV>
3206                     <GVAL 'BINDID-LOC = STACK>
3207                     <CALL '\1aLREV 1 = TEMP22>
3208                     <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = TEMP22>
3209                     <CONS TEMP22 () = TEMP22>
3210                     <PUTREST TEMP10 TEMP22>
3211                     <DEAD TEMP22>
3212                     <CHTYPE TEMP10 <TYPE-CODE LADDR> = TEMP19>
3213                     <DEAD TEMP10>
3214 COND17
3215                     <PUSH TEMP19>
3216                     <DEAD TEMP19>
3217                     <PUSH 'LONG>
3218                     <CALL '\1aEMIT-MOVE 3>
3219                     <RETURN 'NORMAL>
3220 PHRASE8
3221                     <FRAME '\1aMEMBER>
3222                     <NTHR CASE4 3 = STACK (RECORD-TYPE ATOM)>
3223                     <PUSH "PURVEC">
3224                     <PUSH "DBVEC">
3225                     <UBLOCK <TYPE-CODE VECTOR> 2 = STACK>
3226                     <CALL '\1aMEMBER 2 = TEMP19>
3227                     <TYPE? TEMP19 <TYPE-CODE FALSE> - PHRASE26>
3228                     <DEAD TEMP19>
3229                     <FRAME '\1aFIND-CASE-ENTRY>
3230                     <PUSH CASE4>
3231                     <DEAD CASE4>
3232                     <CALL '\1aFIND-CASE-ENTRY 1 = TEMP10>
3233                     <FRAME '\1aCALL-RTE>
3234                     <GVAL 'ISETS!-MIMOP = STACK>
3235                     <PUSH 'CALL>
3236                     <PUSH %<>>
3237                     <PUSH %<>>
3238                     <PUSH VAL5>
3239                     <DEAD VAL5>
3240                     <NTHUV TEMP10 2 = STACK (TYPE FIX)>
3241                     <DEAD TEMP10>
3242                     <CALL '\1aCALL-RTE 6>
3243 PHRASE26
3244                     <RETURN 'NORMAL>
3245                     <END \1aSETS-GEN>
3246
3247 <NEWSTRUC CASE-ENTRY VECTOR CSENT-KIND ATOM CSENT-OFF FIX CSENT-VTYP ATOM>
3248
3249 #WORD *20157761410*
3250                     <GFCN \1aCREATE-CASE-ENTRY ("VALUE" CASE-ENTRY ATOM FIX ATOM) KIND4 OFF5 VTYP6>
3251                     <TEMP TEMP8>
3252                     <INTGO>
3253                     <PUSH KIND4>
3254                     <DEAD KIND4>
3255                     <PUSH OFF5>
3256                     <DEAD OFF5>
3257                     <PUSH VTYP6>
3258                     <DEAD VTYP6>
3259                     <UBLOCK <TYPE-CODE VECTOR> 3 = TEMP8 (TYPE VECTOR)>
3260                     <CHTYPE TEMP8 <TYPE-CODE CASE-ENTRY> = TEMP8>
3261                     <RETURN TEMP8>
3262                     <DEAD TEMP8>
3263                     <END \1aCREATE-CASE-ENTRY>
3264
3265 <GDECL (CASE-ENTRY-TABLE) <VECTOR [REST CASE-ENTRY]>>
3266
3267 #WORD *3236265513*
3268                     <GFCN \1aFIND-CASE-ENTRY ("VALUE" <OR FALSE CASE-ENTRY> ANY) KIND4>
3269                     <TEMP TEMP14 TEMP16:VECTOR CE17:CASE-ENTRY TEMP22:STRING TEMP24 TEMP25 TEMP26>
3270                     <INTGO>
3271                     <SET TEMP14 %<> (TYPE FALSE)>
3272                     <GVAL 'CASE-ENTRY-TABLE = TEMP16>
3273                     <LOOP>
3274 MAP6
3275                     <INTGO>
3276                     <EMPUV? TEMP16 + MAPAP9>
3277                     <NTHUV TEMP16 1 = CE17>
3278                     <NTHR KIND4 3 = TEMP22 (RECORD-TYPE ATOM)>
3279                     <NTHUV CE17 1 = TEMP14 (TYPE ATOM)>
3280                     <NTHR TEMP14 3 = TEMP14 (RECORD-TYPE ATOM)>
3281                     <IFCAN "STRING-EQUAL?">
3282                     <STRING-EQUAL? TEMP22 TEMP14 + TAG20>
3283                     <ENDIF "STRING-EQUAL?">
3284                     <IFCANNOT "STRING-EQUAL?">
3285                     <LENUS TEMP22 = TEMP24 (TYPE FIX)>
3286                     <LENUS TEMP14 = TEMP25 (TYPE FIX)>
3287                     <VEQUAL? TEMP24 TEMP25 - TAG21>
3288                     <DEAD TEMP25>
3289                     <LOOP (TEMP22 VALUE LENGTH) (TEMP14 VALUE LENGTH) (TEMP24 VALUE)>
3290 TAG27
3291                     <NTHUS TEMP22 1 = TEMP25>
3292                     <NTHUS TEMP14 1 = TEMP26>
3293                     <VEQUAL? TEMP25 TEMP26 - TAG21>
3294                     <DEAD TEMP25 TEMP26>
3295                     <RESTUS TEMP22 1 = TEMP22 (TYPE STRING)>
3296                     <RESTUS TEMP14 1 = TEMP14 (TYPE STRING)>
3297                     <SUB TEMP24 1 = TEMP24 (TYPE FIX)>
3298                     <GRTR? TEMP24 0 + TAG27 (TYPE FIX)>
3299                     <RETURN CE17>
3300                     <DEAD CE17>
3301                     <ENDIF "STRING-EQUAL?">
3302 TAG21
3303                     <SET TEMP14 %<> (TYPE FALSE)>
3304                     <JUMP + PHRASE19>
3305 TAG20
3306                     <RETURN CE17>
3307                     <DEAD CE17>
3308 PHRASE19
3309                     <RESTUV TEMP16 1 = TEMP16 (TYPE VECTOR)>
3310                     <JUMP + MAP6>
3311 MAPAP9
3312                     <RETURN TEMP14>
3313                     <DEAD TEMP14>
3314                     <END \1aFIND-CASE-ENTRY>
3315
3316 #WORD *30261040262*
3317                     <GFCN \1aRECORD-GEN ("VALUE" ATOM <OR ATOM FIX> "TUPLE" ANY) TYPARG4>
3318                     <MAKTUP ARGS5:TUPLE TEMP12 TEMP13 = ARGS5>
3319                     <INTGO>
3320                     <TYPE? TYPARG4 <TYPE-CODE ATOM> - PHRASE7>
3321                     <GVAL 'TYPE-WORDS = TEMP12>
3322                     <EMPUV? TEMP12 + TAG8>
3323                     <LOOP (TYPARG4 VALUE) (TEMP12 LENGTH VALUE)>
3324 TAG10
3325                     <NTHUV TEMP12 1 = TEMP13>
3326                     <TYPE? TEMP13 <TYPE-CODE ATOM> - TAG11>
3327                     <VEQUAL? TEMP13 TYPARG4 + TAG9>
3328                     <DEAD TEMP13>
3329 TAG11
3330                     <RESTUV TEMP12 1 = TEMP12 (TYPE VECTOR)>
3331                     <EMPUV? TEMP12 - TAG10>
3332 TAG8
3333                     <SET TEMP12 %<> (TYPE FALSE)>
3334 TAG9
3335                     <NTHUV TEMP12 2 = TYPARG4>
3336                     <DEAD TEMP12>
3337 PHRASE7
3338                     <FRAME '\1aCALL-STACK-FUNCTION>
3339                     <PUSH ARGS5>
3340                     <DEAD ARGS5>
3341                     <GVAL 'BRECORD!-MIMOP = STACK>
3342                     <PUSH %<>>
3343                     <PUSH TYPARG4>
3344                     <DEAD TYPARG4>
3345                     <CALL '\1aCALL-STACK-FUNCTION 4>
3346                     <RETURN 'NORMAL>
3347                     <END \1aRECORD-GEN>
3348
3349 #WORD *37262265613*
3350                     <GFCN \1aLIST-GEN ("VALUE" ATOM <OR FIX VARTBL> <OR VARTBL ATOM> "OPTIONAL" ANY) LEN6 RES7 HINT8>
3351                     <OPT-DISPATCH 2 %<> OPT4 OPT5>
3352 OPT4
3353                     <PUSH #T$UNBOUND 0>
3354 OPT5
3355                     <TEMP>
3356                     <INTGO>
3357                     <FRAME '\1aCALL-RTE>
3358                     <GVAL 'BLIST!-MIMOP = STACK>
3359                     <PUSH 'CALL>
3360                     <PUSH RES7>
3361                     <DEAD RES7>
3362                     <PUSH 'LIST>
3363                     <PUSH LEN6>
3364                     <DEAD LEN6>
3365                     <CALL '\1aCALL-RTE 5>
3366                     <RETURN 'NORMAL>
3367                     <END \1aLIST-GEN>
3368
3369 #WORD *2420222004*
3370                     <GFCN \1aRTUPLE-GEN ("VALUE" ATOM ANY ANY "OPTIONAL" ANY) TVAR6 FVAR7 RES8>
3371                     <OPT-DISPATCH 2 %<> OPT4 OPT5>
3372 OPT4
3373                     <PUSH #T$UNBOUND 0>
3374 OPT5
3375                     <TEMP>
3376                     <INTGO>
3377                     <FRAME '\1aCALL-RTE>
3378                     <GVAL 'IRTUPLE!-MIMOP = STACK>
3379                     <PUSH 'JUMP>
3380                     <PUSH %<>>
3381                     <PUSH %<>>
3382                     <PUSH TVAR6>
3383                     <DEAD TVAR6>
3384                     <PUSH FVAR7>
3385                     <DEAD FVAR7>
3386                     <CALL '\1aCALL-RTE 6>
3387                     <RETURN 'UNCONDITIONAL-BRANCH>
3388                     <END \1aRTUPLE-GEN>
3389
3390 #WORD *34661657151*
3391                     <GFCN \1aAGAIN-GEN ("VALUE" ATOM VARTBL "OPTIONAL" ANY) TVAR6 RES7>
3392                     <OPT-DISPATCH 1 %<> OPT4 OPT5>
3393 OPT4
3394                     <PUSH #T$UNBOUND 0>
3395 OPT5
3396                     <TEMP>
3397                     <INTGO>
3398                     <FRAME '\1aCALL-RTE>
3399                     <GVAL 'IAGAIN!-MIMOP = STACK>
3400                     <PUSH 'JUMP>
3401                     <PUSH %<>>
3402                     <PUSH %<>>
3403                     <PUSH TVAR6>
3404                     <DEAD TVAR6>
3405                     <CALL '\1aCALL-RTE 5>
3406                     <RETURN 'UNCONDITIONAL-BRANCH>
3407                     <END \1aAGAIN-GEN>
3408
3409 #WORD *61611153*
3410                     <GFCN \1aRETRY-GEN ("VALUE" ATOM VARTBL "OPTIONAL" ANY) TVAR6 RES7>
3411                     <OPT-DISPATCH 1 %<> OPT4 OPT5>
3412 OPT4
3413                     <PUSH #T$UNBOUND 0>
3414 OPT5
3415                     <TEMP>
3416                     <INTGO>
3417                     <FRAME '\1aCALL-RTE>
3418                     <GVAL 'IRETRY!-MIMOP = STACK>
3419                     <PUSH 'JUMP>
3420                     <PUSH %<>>
3421                     <PUSH %<>>
3422                     <PUSH TVAR6>
3423                     <DEAD TVAR6>
3424                     <CALL '\1aCALL-RTE 5>
3425                     <RETURN 'UNCONDITIONAL-BRANCH>
3426                     <END \1aRETRY-GEN>
3427
3428 #WORD *12375321254*
3429                     <GFCN \1aACTIVATION-GEN ("VALUE" ATOM "OPTIONAL" ANY) VAR6>
3430                     <OPT-DISPATCH 0 %<> OPT4 OPT5>
3431 OPT4
3432                     <PUSH #T$UNBOUND 0>
3433 OPT5
3434                     <TEMP>
3435                     <INTGO>
3436                     <FRAME '\1aCALL-RTE>
3437                     <GVAL 'IACTIVATION!-MIMOP = STACK>
3438                     <PUSH 'CALL>
3439                     <PUSH %<>>
3440                     <PUSH %<>>
3441                     <CALL '\1aCALL-RTE 4>
3442                     <RETURN 'NORMAL>
3443                     <END \1aACTIVATION-GEN>
3444
3445 #WORD *15700766141*
3446                     <GFCN \1aTUPLE-GEN ("VALUE" ANY <OR FIX VARTBL> VARTBL "OPTIONAL" ANY) NUM6 DEST7 HINT8>
3447                     <OPT-DISPATCH 2 %<> OPT4 OPT5>
3448 OPT4
3449                     <PUSH #T$UNBOUND 0>
3450 OPT5
3451                     <TEMP TEMP10>
3452                     <INTGO>
3453                     <FRAME '\1aCALL-RTE>
3454                     <GVAL 'ITUPLE!-MIMOP = STACK>
3455                     <PUSH 'CALL>
3456                     <PUSH DEST7>
3457                     <DEAD DEST7>
3458                     <PUSH 'TUPLE>
3459                     <PUSH NUM6>
3460                     <DEAD NUM6>
3461                     <CALL '\1aCALL-RTE 5 = TEMP10>
3462                     <RETURN TEMP10>
3463                     <DEAD TEMP10>
3464                     <END \1aTUPLE-GEN>
3465
3466 #WORD *6500067272*
3467                     <GFCN \1aSBLOCK-GEN ("VALUE" ATOM ATOM <OR FIX VARTBL> ANY "OPTIONAL" ANY) TYPARG6 NUMARG7 RES8 HINT9>
3468                     <OPT-DISPATCH 3 %<> OPT4 OPT5>
3469 OPT4
3470                     <PUSH #T$UNBOUND 0>
3471 OPT5
3472                     <TEMP VEC10 TEMP18>
3473                     <INTGO>
3474                     <FRAME '\1aGET-AC>
3475                     <GVAL 'AC-0 = STACK>
3476                     <PUSH 'T>
3477                     <CALL '\1aGET-AC 2>
3478                     <GVAL 'TYPE-WORDS = VEC10>
3479                     <EMPUV? VEC10 + TAG14>
3480                     <LOOP (TYPARG6 VALUE) (VEC10 LENGTH VALUE)>
3481 TAG16
3482                     <NTHUV VEC10 1 = TEMP18>
3483                     <TYPE? TEMP18 <TYPE-CODE ATOM> - TAG17>
3484                     <VEQUAL? TEMP18 TYPARG6 + TAG15>
3485                     <DEAD TEMP18>
3486 TAG17
3487                     <RESTUV VEC10 1 = VEC10 (TYPE VECTOR)>
3488                     <EMPUV? VEC10 - TAG16>
3489 TAG14
3490                     <SET VEC10 %<> (TYPE FALSE)>
3491 TAG15
3492                     <VEQUAL? VEC10 0 + PHRASE13>
3493                     <FRAME '\1aLOAD-CONSTANT>
3494                     <GVAL 'AC-0 = STACK>
3495                     <NTHUV VEC10 2 = STACK>
3496                     <DEAD VEC10>
3497                     <CALL '\1aLOAD-CONSTANT 2>
3498                     <JUMP + PHRASE20>
3499 PHRASE13
3500                     <FRAME '\1aEMIT-MOVE>
3501                     <FRAME '\1aTYPE-CODE>
3502                     <PUSH TYPARG6>
3503                     <CALL '\1aTYPE-CODE 1 = STACK>
3504                     <GVAL 'AC-0 = TEMP18>
3505                     <NTHUV TEMP18 2 = TEMP18 (TYPE FIX)>
3506                     <OR TEMP18 #WORD *120* = TEMP18>
3507                     <LSH TEMP18 24 = TEMP18 (TYPE FIX)>
3508                     <CHTYPE TEMP18 <TYPE-CODE EFF-ADDR> = STACK>
3509                     <DEAD TEMP18>
3510                     <PUSH 'LONG>
3511                     <CALL '\1aEMIT-MOVE 3>
3512 PHRASE20
3513                     <FRAME '\1aCALL-RTE>
3514                     <GVAL 'ISBLOCK!-MIMOP = STACK>
3515                     <PUSH 'CALL>
3516                     <PUSH RES8>
3517                     <DEAD RES8>
3518                     <PUSH TYPARG6>
3519                     <DEAD TYPARG6>
3520                     <PUSH NUMARG7>
3521                     <DEAD NUMARG7>
3522                     <CALL '\1aCALL-RTE 5>
3523                     <RETURN 'NORMAL>
3524                     <END \1aSBLOCK-GEN>
3525
3526 #WORD *10324035274*
3527                     <GFCN \1aUSBLOCK-GEN ("VALUE" ATOM ATOM <OR FIX VARTBL> ANY "OPTIONAL" ANY) TYPARG6 NUMARG7 RES8 HINT9>
3528                     <OPT-DISPATCH 3 %<> OPT4 OPT5>
3529 OPT4
3530                     <PUSH #T$UNBOUND 0>
3531 OPT5
3532                     <TEMP VEC10 TEMP18>
3533                     <INTGO>
3534                     <FRAME '\1aGET-AC>
3535                     <GVAL 'AC-0 = STACK>
3536                     <PUSH 'T>
3537                     <CALL '\1aGET-AC 2>
3538                     <GVAL 'TYPE-WORDS = VEC10>
3539                     <EMPUV? VEC10 + TAG14>
3540                     <LOOP (TYPARG6 VALUE) (VEC10 LENGTH VALUE)>
3541 TAG16
3542                     <NTHUV VEC10 1 = TEMP18>
3543                     <TYPE? TEMP18 <TYPE-CODE ATOM> - TAG17>
3544                     <VEQUAL? TEMP18 TYPARG6 + TAG15>
3545                     <DEAD TEMP18>
3546 TAG17
3547                     <RESTUV VEC10 1 = VEC10 (TYPE VECTOR)>
3548                     <EMPUV? VEC10 - TAG16>
3549 TAG14
3550                     <SET VEC10 %<> (TYPE FALSE)>
3551 TAG15
3552                     <VEQUAL? VEC10 0 + PHRASE13>
3553                     <FRAME '\1aLOAD-CONSTANT>
3554                     <GVAL 'AC-0 = STACK>
3555                     <NTHUV VEC10 2 = STACK>
3556                     <DEAD VEC10>
3557                     <CALL '\1aLOAD-CONSTANT 2>
3558                     <JUMP + PHRASE20>
3559 PHRASE13
3560                     <FRAME '\1aEMIT-MOVE>
3561                     <FRAME '\1aTYPE-CODE>
3562                     <PUSH TYPARG6>
3563                     <CALL '\1aTYPE-CODE 1 = STACK>
3564                     <GVAL 'AC-0 = TEMP18>
3565                     <NTHUV TEMP18 2 = TEMP18 (TYPE FIX)>
3566                     <OR TEMP18 #WORD *120* = TEMP18>
3567                     <LSH TEMP18 24 = TEMP18 (TYPE FIX)>
3568                     <CHTYPE TEMP18 <TYPE-CODE EFF-ADDR> = STACK>
3569                     <DEAD TEMP18>
3570                     <PUSH 'LONG>
3571                     <CALL '\1aEMIT-MOVE 3>
3572 PHRASE20
3573                     <FRAME '\1aCALL-RTE>
3574                     <GVAL 'UISBLOCK!-MIMOP = STACK>
3575                     <PUSH 'CALL>
3576                     <PUSH RES8>
3577                     <DEAD RES8>
3578                     <PUSH TYPARG6>
3579                     <DEAD TYPARG6>
3580                     <PUSH NUMARG7>
3581                     <DEAD NUMARG7>
3582                     <CALL '\1aCALL-RTE 5>
3583                     <RETURN 'NORMAL>
3584                     <END \1aUSBLOCK-GEN>
3585
3586 #WORD *36457566425*
3587                     <GFCN \1aINTGO-GEN ("VALUE" ATOM)>
3588                     <TEMP LAB4 TEMP9 TEMP12>
3589                     <INTGO>
3590                     <FRAME '\1aMAKE-LABEL>
3591                     <CALL '\1aMAKE-LABEL 0 = LAB4>
3592                     <GVAL 'BOOT-MODE = TEMP9>
3593                     <TYPE? TEMP9 <TYPE-CODE FALSE> - PHRASE7>
3594                     <DEAD TEMP9>
3595                     <GVAL 'GC-MODE = TEMP9>
3596                     <TYPE? TEMP9 <TYPE-CODE FALSE> - PHRASE7>
3597                     <DEAD TEMP9>
3598                     <GVAL 'DONT-INTERRUPT? = TEMP9>
3599                     <TYPE? TEMP9 <TYPE-CODE FALSE> - PHRASE7>
3600                     <DEAD TEMP9>
3601                     <FRAME '\1aEMIT>
3602                     <PUSH 213>
3603                     <GVAL 'AC-PC = TEMP9>
3604                     <NTHUV TEMP9 2 = TEMP9 (TYPE FIX)>
3605                     <OR TEMP9 #WORD *220* = TEMP9>
3606                     <LSH TEMP9 24 = TEMP9 (TYPE FIX)>
3607                     <CHTYPE TEMP9 <TYPE-CODE EFF-ADDR> = TEMP9>
3608                     <CONS TEMP9 () = TEMP9>
3609                     <FRAME '\1aLREV>
3610                     <GVAL 'INTFLG-LOC = STACK>
3611                     <CALL '\1aLREV 1 = TEMP12>
3612                     <CHTYPE TEMP12 <TYPE-CODE EFF-ADDR> = TEMP12>
3613                     <CONS TEMP12 () = TEMP12>
3614                     <PUTREST TEMP9 TEMP12>
3615                     <DEAD TEMP12>
3616                     <CHTYPE TEMP9 <TYPE-CODE LADDR> = STACK>
3617                     <DEAD TEMP9>
3618                     <CALL '\1aEMIT 2>
3619                     <FRAME '\1aGEN-BRANCH>
3620                     <PUSH 19>
3621                     <PUSH LAB4>
3622                     <PUSH %<>>
3623                     <CALL '\1aGEN-BRANCH 3>
3624                     <FRAME '\1aCALL-RTE>
3625                     <GVAL 'LCKINT!-MIMOP = STACK>
3626                     <PUSH 'CALL>
3627                     <PUSH %<>>
3628                     <PUSH %<>>
3629                     <CALL '\1aCALL-RTE 4>
3630                     <FRAME '\1aEMIT-LABEL>
3631                     <PUSH LAB4>
3632                     <DEAD LAB4>
3633                     <PUSH %<>>
3634                     <CALL '\1aEMIT-LABEL 2>
3635 PHRASE7
3636                     <RETURN 'NORMAL>
3637                     <END \1aINTGO-GEN>
3638
3639 #WORD *11522446314*
3640                     <GFCN \1aTYPE-GEN ("VALUE" ANY VARTBL <OR ATOM VARTBL> "OPTIONAL" ANY) VAL6 RES7 HINT8>
3641                     <OPT-DISPATCH 2 %<> OPT4 OPT5>
3642 OPT4
3643                     <PUSH #T$UNBOUND 0>
3644 OPT5
3645                     <TEMP DAC9>
3646                     <INTGO>
3647                     <FRAME '\1aLOAD-VAR>
3648                     <PUSH VAL6>
3649                     <DEAD VAL6>
3650                     <PUSH 'TYPE>
3651                     <PUSH %<>>
3652                     <PUSH 'PREF-TYPE>
3653                     <CALL '\1aLOAD-VAR 4 = DAC9>
3654                     <FRAME '\1aDEST-DECL>
3655                     <PUSH DAC9>
3656                     <DEAD DAC9>
3657                     <PUSH RES7>
3658                     <DEAD RES7>
3659                     <PUSH 'FIX>
3660                     <CALL '\1aDEST-DECL 3 = DAC9>
3661                     <RETURN DAC9>
3662                     <DEAD DAC9>
3663                     <END \1aTYPE-GEN>
3664
3665 #WORD *27157201266*
3666                     <GFCN \1aNEWTYPE-GEN ("VALUE" ANY VARTBL <OR ATOM VARTBL> "OPTIONAL" ANY) VAL16 RES7 HINT8>
3667                     <OPT-DISPATCH 2 %<> OPT4 OPT5>
3668 OPT4
3669                     <PUSH #T$UNBOUND 0>
3670 OPT5
3671                     <TEMP TEMP10>
3672                     <INTGO>
3673                     <FRAME '\1aCALL-RTE>
3674                     <GVAL 'INEWTYPE!-MIMOP = STACK>
3675                     <PUSH 'CALL>
3676                     <PUSH RES7>
3677                     <DEAD RES7>
3678                     <PUSH 'FIX>
3679                     <PUSH VAL16>
3680                     <DEAD VAL16>
3681                     <CALL '\1aCALL-RTE 5 = TEMP10>
3682                     <RETURN TEMP10>
3683                     <DEAD TEMP10>
3684                     <END \1aNEWTYPE-GEN>
3685
3686 #WORD *26403131472*
3687                     <GFCN \1aTYPEW-GEN ("VALUE" ANY VARTBL VARTBL <OR ATOM VARTBL> "OPTIONAL" ANY) ARG16 ARG27 RES8 HINT9>
3688                     <OPT-DISPATCH 3 %<> OPT4 OPT5>
3689 OPT4
3690                     <PUSH #T$UNBOUND 0>
3691 OPT5
3692                     <TEMP TEMP11>
3693                     <INTGO>
3694                     <FRAME '\1aCALL-RTE>
3695                     <GVAL 'ITYPEW!-MIMOP = STACK>
3696                     <PUSH 'CALL>
3697                     <PUSH RES8>
3698                     <DEAD RES8>
3699                     <PUSH 'TYPE-W>
3700                     <PUSH ARG16>
3701                     <DEAD ARG16>
3702                     <PUSH ARG27>
3703                     <DEAD ARG27>
3704                     <CALL '\1aCALL-RTE 6 = TEMP11>
3705                     <RETURN TEMP11>
3706                     <DEAD TEMP11>
3707                     <END \1aTYPEW-GEN>
3708
3709 #WORD *15371624343*
3710                     <GFCN \1aTYPEWC-GEN ("VALUE" ANY VARTBL <OR ATOM VARTBL> "OPTIONAL" ANY) ARG16 RES7 HINT8>
3711                     <OPT-DISPATCH 2 %<> OPT4 OPT5>
3712 OPT4
3713                     <PUSH #T$UNBOUND 0>
3714 OPT5
3715                     <TEMP TEMP11>
3716                     <INTGO>
3717                     <FRAME '\1aCALL-RTE>
3718                     <GVAL 'ITYPEWC!-MIMOP = STACK>
3719                     <PUSH 'CALL>
3720                     <PUSH RES7>
3721                     <DEAD RES7>
3722                     <PUSH 'TYPE-C>
3723                     <PUSH ARG16>
3724                     <DEAD ARG16>
3725                     <CALL '\1aCALL-RTE 5 = TEMP11>
3726                     <RETURN TEMP11>
3727                     <DEAD TEMP11>
3728                     <END \1aTYPEWC-GEN>
3729
3730 #WORD *5101772217*
3731                     <GFCN \1aOPEN-GEN ("VALUE" ATOM <OR VARTBL FIX> <OR VARTBL FIX> <OR STRING VARTBL> <OR ATOM VARTBL> "OPTIONAL" ANY) MODE6 BYTESZ7 NAME8 RES9 HINT10>
3732                     <OPT-DISPATCH 4 %<> OPT4 OPT5>
3733 OPT4
3734                     <PUSH %<>>
3735 OPT5
3736                     <TEMP>
3737                     <INTGO>
3738                     <FRAME '\1aCALL-RTE>
3739                     <GVAL 'IOPEN!-MIMOP = STACK>
3740                     <PUSH 'CALL>
3741                     <PUSH RES9>
3742                     <DEAD RES9>
3743                     <PUSH HINT10>
3744                     <DEAD HINT10>
3745                     <PUSH MODE6>
3746                     <DEAD MODE6>
3747                     <PUSH BYTESZ7>
3748                     <DEAD BYTESZ7>
3749                     <PUSH NAME8>
3750                     <DEAD NAME8>
3751                     <CALL '\1aCALL-RTE 7>
3752                     <RETURN 'NORMAL>
3753                     <END \1aOPEN-GEN>
3754
3755 #WORD *10143302265*
3756                     <GFCN \1aCLOSE-GEN ("VALUE" ATOM <OR FIX VARTBL> "OPTIONAL" ANY) CH6 RES7>
3757                     <OPT-DISPATCH 1 %<> OPT4 OPT5>
3758 OPT4
3759                     <PUSH #T$UNBOUND 0>
3760 OPT5
3761                     <TEMP>
3762                     <INTGO>
3763                     <FRAME '\1aCALL-RTE>
3764                     <GVAL 'ICLOSE!-MIMOP = STACK>
3765                     <PUSH 'CALL>
3766                     <PUSH %<>>
3767                     <PUSH %<>>
3768                     <PUSH CH6>
3769                     <DEAD CH6>
3770                     <CALL '\1aCALL-RTE 5>
3771                     <RETURN 'NORMAL>
3772                     <END \1aCLOSE-GEN>
3773
3774 #WORD *24343246267*
3775                     <GFCN \1aRESET-GEN ("VALUE" ATOM <OR FIX VARTBL> "OPTIONAL" ANY) CH6 RES7>
3776                     <OPT-DISPATCH 1 %<> OPT4 OPT5>
3777 OPT4
3778                     <PUSH #T$UNBOUND 0>
3779 OPT5
3780                     <TEMP>
3781                     <INTGO>
3782                     <FRAME '\1aCALL-RTE>
3783                     <GVAL 'IRESET!-MIMOP = STACK>
3784                     <PUSH 'CALL>
3785                     <PUSH %<>>
3786                     <PUSH %<>>
3787                     <PUSH CH6>
3788                     <DEAD CH6>
3789                     <CALL '\1aCALL-RTE 5>
3790                     <RETURN 'NORMAL>
3791                     <END \1aRESET-GEN>
3792
3793 #WORD *4751707514*
3794                     <GFCN \1aREAD-GEN ("VALUE" ANY <OR VARTBL FIX> VARTBL <OR VARTBL FIX> ANY "OPTIONAL" ANY) CHN6 STR7 NUMARGS8 GARB9 RES10>
3795                     <OPT-DISPATCH 4 %<> OPT4 OPT5>
3796 OPT4
3797                     <PUSH %<>>
3798 OPT5
3799                     <TEMP TEMP12>
3800                     <INTGO>
3801                     <FRAME '\1aCALL-RTE>
3802                     <GVAL 'IREAD!-MIMOP = STACK>
3803                     <PUSH 'CALL>
3804                     <PUSH RES10>
3805                     <DEAD RES10>
3806                     <PUSH 'FIX>
3807                     <PUSH CHN6>
3808                     <DEAD CHN6>
3809                     <PUSH STR7>
3810                     <DEAD STR7>
3811                     <PUSH NUMARGS8>
3812                     <DEAD NUMARGS8>
3813                     <PUSH GARB9>
3814                     <DEAD GARB9>
3815                     <CALL '\1aCALL-RTE 8 = TEMP12>
3816                     <RETURN TEMP12>
3817                     <DEAD TEMP12>
3818                     <END \1aREAD-GEN>
3819
3820 #WORD *21553115717*
3821                     <GFCN \1aPRINT-GEN ("VALUE" ANY <OR VARTBL FIX> VARTBL <OR VARTBL FIX>) CHN4 STR5 NUMARGS6>
3822                     <TEMP TEMP8>
3823                     <INTGO>
3824                     <FRAME '\1aCALL-RTE>
3825                     <GVAL 'IPRINT!-MIMOP = STACK>
3826                     <PUSH 'CALL>
3827                     <PUSH %<>>
3828                     <PUSH %<>>
3829                     <PUSH CHN4>
3830                     <DEAD CHN4>
3831                     <PUSH STR5>
3832                     <DEAD STR5>
3833                     <PUSH NUMARGS6>
3834                     <DEAD NUMARGS6>
3835                     <CALL '\1aCALL-RTE 7 = TEMP8>
3836                     <RETURN TEMP8>
3837                     <DEAD TEMP8>
3838                     <END \1aPRINT-GEN>
3839
3840 #WORD *12536524217*
3841                     <GFCN \1aRNTIME-GEN ("VALUE" ANY "OPTIONAL" ANY) RES6>
3842                     <OPT-DISPATCH 0 %<> OPT4 OPT5>
3843 OPT4
3844                     <PUSH %<>>
3845 OPT5
3846                     <TEMP TEMP8>
3847                     <INTGO>
3848                     <FRAME '\1aCALL-RTE>
3849                     <GVAL 'IRNTIME!-MIMOP = STACK>
3850                     <PUSH 'CALL>
3851                     <PUSH RES6>
3852                     <DEAD RES6>
3853                     <PUSH %<>>
3854                     <CALL '\1aCALL-RTE 4 = TEMP8>
3855                     <RETURN TEMP8>
3856                     <DEAD TEMP8>
3857                     <END \1aRNTIME-GEN>
3858
3859 #WORD *10500024352*
3860                     <GFCN \1aSAVE-GEN ("VALUE" ATOM <OR VARTBL FIX> "OPTIONAL" ANY ANY ANY) CHN8 ATMZN9 PURZN10 RES11>
3861                     <OPT-DISPATCH 1 %<> OPT4 OPT5 OPT6 OPT7>
3862 OPT4
3863                     <PUSH %<>>
3864 OPT5
3865                     <PUSH %<>>
3866 OPT6
3867                     <PUSH %<>>
3868 OPT7
3869                     <TEMP>
3870                     <INTGO>
3871                     <FRAME '\1aCALL-RTE>
3872                     <GVAL 'ISAVE!-MIMOP = STACK>
3873                     <PUSH 'CALL>
3874                     <PUSH RES11>
3875                     <DEAD RES11>
3876                     <PUSH %<>>
3877                     <PUSH CHN8>
3878                     <DEAD CHN8>
3879                     <PUSH ATMZN9>
3880                     <DEAD ATMZN9>
3881                     <PUSH PURZN10>
3882                     <DEAD PURZN10>
3883                     <CALL '\1aCALL-RTE 7>
3884                     <RETURN 'NORMAL>
3885                     <END \1aSAVE-GEN>
3886
3887 #WORD *32516764024*
3888                     <GFCN \1aRESTORE-GEN ("VALUE" ATOM <OR VARTBL FIX> "OPTIONAL" ANY) CHN6 RES7>
3889                     <OPT-DISPATCH 1 %<> OPT4 OPT5>
3890 OPT4
3891                     <PUSH %<>>
3892 OPT5
3893                     <TEMP>
3894                     <INTGO>
3895                     <FRAME '\1aCALL-RTE>
3896                     <GVAL 'IRESTORE!-MIMOP = STACK>
3897                     <PUSH 'CALL>
3898                     <PUSH RES7>
3899                     <DEAD RES7>
3900                     <PUSH %<>>
3901                     <PUSH CHN6>
3902                     <DEAD CHN6>
3903                     <CALL '\1aCALL-RTE 5>
3904                     <RETURN 'NORMAL>
3905                     <END \1aRESTORE-GEN>
3906
3907 #WORD *32370306570*
3908                     <GFCN \1aCOMPERR-GEN ("VALUE" ATOM)>
3909                     <TEMP>
3910                     <INTGO>
3911                     <FRAME '\1aCALL-RTE>
3912                     <GVAL 'ICOMPERR!-MIMOP = STACK>
3913                     <PUSH 'CALL>
3914                     <PUSH %<>>
3915                     <PUSH %<>>
3916                     <CALL '\1aCALL-RTE 4>
3917                     <RETURN 'NORMAL>
3918                     <END \1aCOMPERR-GEN>
3919
3920 #WORD *33075464326*
3921                     <GFCN \1aUNWCNT-GEN ("VALUE" ATOM)>
3922                     <TEMP>
3923                     <INTGO>
3924                     <FRAME '\1aCALL-RTE>
3925                     <GVAL 'IUNWCNT!-MIMOP = STACK>
3926                     <PUSH 'JUMP>
3927                     <PUSH %<>>
3928                     <PUSH %<>>
3929                     <CALL '\1aCALL-RTE 4>
3930                     <RETURN 'NORMAL>
3931                     <END \1aUNWCNT-GEN>
3932
3933 #WORD *21401464745*
3934                     <GFCN \1aIRECORD-GEN ("VALUE" ATOM <OR VARTBL FIX> <OR VARTBL FIX> <OR VARTBL FIX> <OR ATOM VARTBL> "OPTIONAL" ANY) TYPEC6 NARGS7 NWORDS8 RES9 HINT10>
3935                     <OPT-DISPATCH 4 %<> OPT4 OPT5>
3936 OPT4
3937                     <PUSH %<>>
3938 OPT5
3939                     <TEMP>
3940                     <INTGO>
3941                     <FRAME '\1aCALL-RTE>
3942                     <GVAL 'BIREC!-MIMOP = STACK>
3943                     <PUSH 'CALL>
3944                     <PUSH RES9>
3945                     <DEAD RES9>
3946                     <PUSH HINT10>
3947                     <DEAD HINT10>
3948                     <PUSH TYPEC6>
3949                     <DEAD TYPEC6>
3950                     <PUSH NARGS7>
3951                     <DEAD NARGS7>
3952                     <PUSH NWORDS8>
3953                     <DEAD NWORDS8>
3954                     <CALL '\1aCALL-RTE 7>
3955                     <RETURN 'NORMAL>
3956                     <END \1aIRECORD-GEN>
3957
3958 #WORD *16074157135*
3959                     <GFCN \1aADJ-GEN ("VALUE" ATOM <OR FIX VARTBL>) AMT4>
3960                     <TEMP LVAR6 TEMP15>
3961                     <INTGO>
3962                     <TYPE? AMT4 <TYPE-CODE FIX> - PHRASE8>
3963                     <FRAME '\1aADD-CONSTANT-TO-AC>
3964                     <LSH AMT4 2 = STACK (TYPE FIX)>
3965                     <DEAD AMT4>
3966                     <GVAL 'AC-TP = STACK>
3967                     <CALL '\1aADD-CONSTANT-TO-AC 2>
3968                     <RETURN 'NORMAL>
3969 PHRASE8
3970                     <FRAME '\1aFIND-CACHE-VAR>
3971                     <PUSH AMT4>
3972                     <CALL '\1aFIND-CACHE-VAR 1 = LVAR6>
3973                     <TYPE? LVAR6 <TYPE-CODE FALSE> + PHRASE10>
3974                     <NTHUV LVAR6 6 = LVAR6>
3975                     <TYPE? LVAR6 <TYPE-CODE FALSE> + PHRASE10>
3976                     <FRAME '\1aEMIT>
3977                     <PUSH 120>
3978                     <FRAME '\1aMA-IMM>
3979                     <PUSH 2>
3980                     <CALL '\1aMA-IMM 1 = STACK>
3981                     <NTHUV LVAR6 2 = TEMP15 (TYPE FIX)>
3982                     <DEAD LVAR6>
3983                     <OR TEMP15 #WORD *120* = TEMP15>
3984                     <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
3985                     <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
3986                     <DEAD TEMP15>
3987                     <FRAME '\1aGET-AC>
3988                     <PUSH 'PREF-VAL>
3989                     <PUSH 'T>
3990                     <CALL '\1aGET-AC 2 = LVAR6>
3991                     <NTHUV LVAR6 2 = TEMP15 (TYPE FIX)>
3992                     <OR TEMP15 #WORD *120* = TEMP15>
3993                     <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
3994                     <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
3995                     <DEAD TEMP15>
3996                     <CALL '\1aEMIT 4>
3997                     <FRAME '\1aEMIT>
3998                     <PUSH 192>
3999                     <NTHUV LVAR6 2 = TEMP15 (TYPE FIX)>
4000                     <DEAD LVAR6>
4001                     <OR TEMP15 #WORD *120* = TEMP15>
4002                     <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
4003                     <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
4004                     <DEAD TEMP15>
4005                     <GVAL 'AC-TP = TEMP15>
4006                     <NTHUV TEMP15 2 = TEMP15 (TYPE FIX)>
4007                     <OR TEMP15 #WORD *120* = TEMP15>
4008                     <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
4009                     <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
4010                     <DEAD TEMP15>
4011                     <CALL '\1aEMIT 3>
4012                     <RETURN 'NORMAL>
4013 PHRASE10
4014                     <FRAME '\1aEMIT>
4015                     <PUSH 120>
4016                     <FRAME '\1aMA-IMM>
4017                     <PUSH 2>
4018                     <CALL '\1aMA-IMM 1 = STACK>
4019                     <FRAME '\1aVAR-VALUE-ADDRESS>
4020                     <PUSH AMT4>
4021                     <DEAD AMT4>
4022                     <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
4023                     <FRAME '\1aGET-AC>
4024                     <PUSH 'PREF-VAL>
4025                     <PUSH 'T>
4026                     <CALL '\1aGET-AC 2 = LVAR6>
4027                     <NTHUV LVAR6 2 = TEMP15 (TYPE FIX)>
4028                     <OR TEMP15 #WORD *120* = TEMP15>
4029                     <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
4030                     <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
4031                     <DEAD TEMP15>
4032                     <CALL '\1aEMIT 4>
4033                     <FRAME '\1aEMIT>
4034                     <PUSH 192>
4035                     <NTHUV LVAR6 2 = TEMP15 (TYPE FIX)>
4036                     <DEAD LVAR6>
4037                     <OR TEMP15 #WORD *120* = TEMP15>
4038                     <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
4039                     <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
4040                     <DEAD TEMP15>
4041                     <GVAL 'AC-TP = TEMP15>
4042                     <NTHUV TEMP15 2 = TEMP15 (TYPE FIX)>
4043                     <OR TEMP15 #WORD *120* = TEMP15>
4044                     <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
4045                     <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
4046                     <DEAD TEMP15>
4047                     <CALL '\1aEMIT 3>
4048                     <RETURN 'NORMAL>
4049                     <END \1aADJ-GEN>
4050
4051 #WORD *7762225647*
4052                     <GFCN \1aNTHU-GEN ("VALUE" ATOM ANY ANY ANY "OPTIONAL" ANY) STRUC6 NUM7 RES8 HINT9>
4053                     <OPT-DISPATCH 3 %<> OPT4 OPT5>
4054 OPT4
4055                     <PUSH %<>>
4056 OPT5
4057                     <TEMP>
4058                     <INTGO>
4059                     <FRAME '\1aCALL-RTE>
4060                     <GVAL 'INTHU!-MIMOP = STACK>
4061                     <PUSH 'CALL>
4062                     <PUSH RES8>
4063                     <DEAD RES8>
4064                     <PUSH HINT9>
4065                     <DEAD HINT9>
4066                     <PUSH STRUC6>
4067                     <DEAD STRUC6>
4068                     <PUSH NUM7>
4069                     <DEAD NUM7>
4070                     <CALL '\1aCALL-RTE 6>
4071                     <RETURN 'NORMAL>
4072                     <END \1aNTHU-GEN>
4073
4074 #WORD *30763147603*
4075                     <GFCN \1aRESTU-GEN ("VALUE" ATOM ANY ANY ANY "OPTIONAL" ANY) STRUC6 NUM7 RES8 HINT9>
4076                     <OPT-DISPATCH 3 %<> OPT4 OPT5>
4077 OPT4
4078                     <PUSH %<>>
4079 OPT5
4080                     <TEMP>
4081                     <INTGO>
4082                     <FRAME '\1aCALL-RTE>
4083                     <GVAL 'IRESTU!-MIMOP = STACK>
4084                     <PUSH 'CALL>
4085                     <PUSH RES8>
4086                     <DEAD RES8>
4087                     <PUSH HINT9>
4088                     <DEAD HINT9>
4089                     <PUSH STRUC6>
4090                     <DEAD STRUC6>
4091                     <PUSH NUM7>
4092                     <DEAD NUM7>
4093                     <CALL '\1aCALL-RTE 6>
4094                     <RETURN 'NORMAL>
4095                     <END \1aRESTU-GEN>
4096
4097 #WORD *13611224070*
4098                     <GFCN \1aPUTU-GEN ("VALUE" ATOM ANY ANY ANY "OPTIONAL" ANY) STRUC6 NUM7 VAL8 HINT9>
4099                     <OPT-DISPATCH 3 %<> OPT4 OPT5>
4100 OPT4
4101                     <PUSH %<>>
4102 OPT5
4103                     <TEMP>
4104                     <INTGO>
4105                     <FRAME '\1aCALL-RTE>
4106                     <GVAL 'IPUTU!-MIMOP = STACK>
4107                     <PUSH 'CALL>
4108                     <PUSH %<>>
4109                     <PUSH %<>>
4110                     <PUSH STRUC6>
4111                     <DEAD STRUC6>
4112                     <PUSH NUM7>
4113                     <DEAD NUM7>
4114                     <PUSH VAL8>
4115                     <DEAD VAL8>
4116                     <CALL '\1aCALL-RTE 7>
4117                     <RETURN 'NORMAL>
4118                     <END \1aPUTU-GEN>
4119
4120 #WORD *11375564521*
4121                     <GFCN \1aATIC-GEN ("VALUE" ATOM ANY "OPTIONAL" ANY ANY) ARG7 RES8 HINT9>
4122                     <OPT-DISPATCH 1 %<> OPT4 OPT5 OPT6>
4123 OPT4
4124                     <PUSH %<>>
4125 OPT5
4126                     <PUSH %<>>
4127 OPT6
4128                     <TEMP>
4129                     <INTGO>
4130                     <FRAME '\1aCALL-RTE>
4131                     <GVAL 'IATIC!-MIMOP = STACK>
4132                     <PUSH 'CALL>
4133                     <PUSH RES8>
4134                     <DEAD RES8>
4135                     <PUSH HINT9>
4136                     <DEAD HINT9>
4137                     <PUSH ARG7>
4138                     <DEAD ARG7>
4139                     <CALL '\1aCALL-RTE 5>
4140                     <RETURN 'NORMAL>
4141                     <END \1aATIC-GEN>
4142
4143 #WORD *14321052076*
4144                     <GFCN \1aPFRAME-GEN ("VALUE" ATOM VARTBL <OR ATOM VARTBL> "OPTIONAL" ANY) FRM6 RES7 HINT8>
4145                     <OPT-DISPATCH 2 %<> OPT4 OPT5>
4146 OPT4
4147                     <PUSH #T$UNBOUND 0>
4148 OPT5
4149                     <TEMP TAC10 VAC9 TEMP17:FIX TLAB12 NPL11>
4150                     <INTGO>
4151                     <FRAME '\1aGET-AC>
4152                     <CALL '\1aGET-AC 0 = TAC10>
4153                     <FRAME '\1aLOAD-VAR>
4154                     <PUSH FRM6>
4155                     <DEAD FRM6>
4156                     <PUSH 'VALUE>
4157                     <PUSH %<>>
4158                     <PUSH 'ANY-AC>
4159                     <CALL '\1aLOAD-VAR 4 = VAC9>
4160                     <FRAME '\1aEMIT>
4161                     <PUSH 208>
4162                     <FRAME '\1aMA-DISP>
4163                     <PUSH VAC9>
4164                     <PUSH -12>
4165                     <CALL '\1aMA-DISP 2 = STACK>
4166                     <NTHUV VAC9 2 = TEMP17 (TYPE FIX)>
4167                     <OR TEMP17 #WORD *120* = TEMP17>
4168                     <LSH TEMP17 24 = TEMP17 (TYPE FIX)>
4169                     <CHTYPE TEMP17 <TYPE-CODE EFF-ADDR> = STACK>
4170                     <DEAD TEMP17>
4171                     <CALL '\1aEMIT 3>
4172                     <FRAME '\1aMAKE-LABEL>
4173                     <CALL '\1aMAKE-LABEL 0 = TLAB12>
4174                     <FRAME '\1aEMIT-LABEL>
4175                     <PUSH TLAB12>
4176                     <PUSH 'T>
4177                     <CALL '\1aEMIT-LABEL 2>
4178                     <FRAME '\1aEMIT>
4179                     <PUSH 149>
4180                     <FRAME '\1aMA-DISP>
4181                     <PUSH VAC9>
4182                     <PUSH -1>
4183                     <CALL '\1aMA-DISP 2 = STACK>
4184                     <CALL '\1aEMIT 2>
4185                     <FRAME '\1aMAKE-LABEL>
4186                     <CALL '\1aMAKE-LABEL 0 = NPL11>
4187                     <FRAME '\1aGEN-BRANCH>
4188                     <PUSH 25>
4189                     <PUSH NPL11>
4190                     <PUSH %<>>
4191                     <CALL '\1aGEN-BRANCH 3>
4192                     <FRAME '\1aEMIT>
4193                     <PUSH 208>
4194                     <FRAME '\1aMA-DISP>
4195                     <PUSH VAC9>
4196                     <PUSH -4>
4197                     <CALL '\1aMA-DISP 2 = STACK>
4198                     <NTHUV VAC9 2 = TEMP17 (TYPE FIX)>
4199                     <OR TEMP17 #WORD *120* = TEMP17>
4200                     <LSH TEMP17 24 = TEMP17 (TYPE FIX)>
4201                     <CHTYPE TEMP17 <TYPE-CODE EFF-ADDR> = STACK>
4202                     <DEAD TEMP17>
4203                     <CALL '\1aEMIT 3>
4204                     <FRAME '\1aGEN-BRANCH>
4205                     <PUSH 17>
4206                     <PUSH TLAB12>
4207                     <DEAD TLAB12>
4208                     <PUSH 'UNCONDITIONAL-BRANCH>
4209                     <CALL '\1aGEN-BRANCH 3>
4210                     <FRAME '\1aEMIT-LABEL>
4211                     <PUSH NPL11>
4212                     <DEAD NPL11>
4213                     <PUSH %<>>
4214                     <CALL '\1aEMIT-LABEL 2>
4215                     <FRAME '\1aEMIT>
4216                     <PUSH 208>
4217                     <FRAME '\1aTYPE-WORD>
4218                     <PUSH 'FRAME>
4219                     <CALL '\1aTYPE-WORD 1 = STACK>
4220                     <NTHUV TAC10 2 = TEMP17 (TYPE FIX)>
4221                     <OR TEMP17 #WORD *120* = TEMP17>
4222                     <LSH TEMP17 24 = TEMP17 (TYPE FIX)>
4223                     <CHTYPE TEMP17 <TYPE-CODE EFF-ADDR> = STACK>
4224                     <DEAD TEMP17>
4225                     <CALL '\1aEMIT 3>
4226                     <FRAME '\1aDEST-PAIR>
4227                     <PUSH VAC9>
4228                     <DEAD VAC9>
4229                     <PUSH TAC10>
4230                     <DEAD TAC10>
4231                     <PUSH RES7>
4232                     <DEAD RES7>
4233                     <CALL '\1aDEST-PAIR 3>
4234                     <RETURN 'NORMAL>
4235                     <END \1aPFRAME-GEN>
4236
4237 #WORD *20416706372*
4238                     <GFCN \1aARGS-GEN ("VALUE" ANY VARTBL "OPTIONAL" ANY ANY) FRM7 RES8 HINT9>
4239                     <OPT-DISPATCH 1 %<> OPT4 OPT5 OPT6>
4240 OPT4
4241                     <PUSH %<>>
4242 OPT5
4243                     <PUSH %<>>
4244 OPT6
4245                     <TEMP TEMP11>
4246                     <INTGO>
4247                     <FRAME '\1aCALL-RTE>
4248                     <GVAL 'IARGS!-MIMOP = STACK>
4249                     <PUSH 'CALL>
4250                     <PUSH RES8>
4251                     <DEAD RES8>
4252                     <PUSH HINT9>
4253                     <DEAD HINT9>
4254                     <PUSH FRM7>
4255                     <DEAD FRM7>
4256                     <CALL '\1aCALL-RTE 5 = TEMP11>
4257                     <RETURN TEMP11>
4258                     <DEAD TEMP11>
4259                     <END \1aARGS-GEN>
4260
4261 #WORD *30460665451*
4262                     <GFCN \1aVALUE-GEN ("VALUE" ATOM ANY <OR ATOM VARTBL> "OPTIONAL" ANY) VAL6 RES7 HINT8>
4263                     <OPT-DISPATCH 2 %<> OPT4 OPT5>
4264 OPT4
4265                     <PUSH #T$UNBOUND 0>
4266 OPT5
4267                     <TEMP VAC9>
4268                     <INTGO>
4269                     <FRAME '\1aGET-AC>
4270                     <CALL '\1aGET-AC 0 = VAC9>
4271                     <FRAME '\1aMOVE-VALUE>
4272                     <PUSH VAL6>
4273                     <DEAD VAL6>
4274                     <PUSH VAC9>
4275                     <CALL '\1aMOVE-VALUE 2>
4276                     <FRAME '\1aDEST-DECL>
4277                     <PUSH VAC9>
4278                     <DEAD VAC9>
4279                     <PUSH RES7>
4280                     <DEAD RES7>
4281                     <PUSH 'FIX>
4282                     <CALL '\1aDEST-DECL 3>
4283                     <RETURN 'NORMAL>
4284                     <END \1aVALUE-GEN>
4285
4286 <DEFINE OBJECT-GEN (TYP CNT VAL RES "AUX" TAC VAC (TDONE? <>)) <COND (<==? .RES STACK> <COND (<TYPE? .TYP VARTBL> <EMIT-PUSH <VAR-VALUE-ADDRESS .TYP> WORD>) (<EMIT-PUSH <MA-IMM .TYP> WORD>)> <COND (<TYPE? .CNT VARTBL> <EMIT-PUSH <VAR-VALUE-ADDRESS .CNT> WORD>) (<EMIT-PUSH <MA-IMM .CNT> WORD>)> <COND (<TYPE? .VAL VARTBL> <EMIT-PUSH <VAR-VALUE-ADDRESS .VAL> LONG>) (<EMIT-PUSH <MA-IMM .VAL> LONG>)>) (T <SET TAC <GET-AC DOUBLE T>> <COND (<NOT <TYPE? .CNT VARTBL>> <COND (<==? .CNT 0> <SET TDONE? T> <COND (<TYPE? .TYP VARTBL> <EMIT ,INST-MOVZWL <VAR-VALUE-ADDRESS .TYP> <MA-REG .TAC>>) (T <EMIT-MOVE <MA-IMM .TYP> <MA-REG .TAC> LONG>)>) (<NOT <TYPE? .TYP VARTBL>> <SET TDONE? T> <EMIT-MOVE <MA-IMM <ORB .TYP <LSH .CNT 16>>> <MA-REG .TAC> LONG>)>)> <COND (<NOT .TDONE?> <EMIT ,INST-MOVW <COND (<TYPE? .CNT VARTBL> <VAR-VALUE-ADDRESS .CNT>) (<MA-IMM .CNT>)> <MA-REG .TAC>> <EMIT ,INST-ASHL <MA-LIT 16> <MA-REG .TAC> <MA-REG .TAC>> <EMIT ,INST-MOVW <COND (<TYPE? .TYP VARTBL> <VAR-VALUE-ADDRESS .TYP>) (<MA-IMM .TYP>)> <MA-REG .TAC>>)> <EMIT ,INST-MOVL <COND (<TYPE? .VAL VARTBL> <VAR-VALUE-ADDRESS .VAL>) (<MA-IMM .VAL>)> <MA-REG <SET VAC <NEXT-AC .TAC>>>> <DEST-PAIR .VAC .TAC .RES T>)> NORMAL>
4287
4288 #WORD *37467326710*
4289                     <GFCN \1aNTH1-GEN ("VALUE" ANY ANY ANY "OPTIONAL" ANY) VAL6 RES7 HINT8>
4290                     <OPT-DISPATCH 2 %<> OPT4 OPT5>
4291 OPT4
4292                     <PUSH %<>>
4293 OPT5
4294                     <TEMP TEMP10>
4295                     <INTGO>
4296                     <FRAME '\1aCALL-RTE>
4297                     <GVAL 'CINTH!-MIMOP = STACK>
4298                     <PUSH 'CALL>
4299                     <PUSH RES7>
4300                     <DEAD RES7>
4301                     <PUSH HINT8>
4302                     <DEAD HINT8>
4303                     <PUSH VAL6>
4304                     <DEAD VAL6>
4305                     <CALL '\1aCALL-RTE 5 = TEMP10>
4306                     <RETURN TEMP10>
4307                     <DEAD TEMP10>
4308                     <END \1aNTH1-GEN>
4309
4310 #WORD *36267340710*
4311                     <GFCN \1aREST1-GEN ("VALUE" ANY ANY ANY "OPTIONAL" ANY) VAL6 RES7 HINT8>
4312                     <OPT-DISPATCH 2 %<> OPT4 OPT5>
4313 OPT4
4314                     <PUSH %<>>
4315 OPT5
4316                     <TEMP TEMP10>
4317                     <INTGO>
4318                     <FRAME '\1aCALL-RTE>
4319                     <GVAL 'CIRST!-MIMOP = STACK>
4320                     <PUSH 'CALL>
4321                     <PUSH RES7>
4322                     <DEAD RES7>
4323                     <PUSH HINT8>
4324                     <DEAD HINT8>
4325                     <PUSH VAL6>
4326                     <DEAD VAL6>
4327                     <CALL '\1aCALL-RTE 5 = TEMP10>
4328                     <RETURN TEMP10>
4329                     <DEAD TEMP10>
4330                     <END \1aREST1-GEN>
4331
4332 #WORD *2650461556*
4333                     <GFCN \1aEMPTY?-GEN ("VALUE" ANY VARTBL ATOM ATOM) VAR4 DIR5 LABEL6>
4334                     <TEMP XLABEL7>
4335                     <INTGO>
4336                     <FRAME '\1aCALL-RTE>
4337                     <GVAL 'CIEMP!-MIMOP = STACK>
4338                     <PUSH 'CALL>
4339                     <PUSH %<>>
4340                     <PUSH %<>>
4341                     <PUSH VAR4>
4342                     <DEAD VAR4>
4343                     <CALL '\1aCALL-RTE 5>
4344                     <VEQUAL? DIR5 '+ - PHRASE10>
4345                     <FRAME '\1aGEN-BRANCH>
4346                     <PUSH 17>
4347                     <FRAME '\1aMAKE-LABEL>
4348                     <CALL '\1aMAKE-LABEL 0 = XLABEL7>
4349                     <PUSH XLABEL7>
4350                     <PUSH 'UNCONDITIONAL-BRANCH>
4351                     <PUSH %<>>
4352                     <PUSH 'T>
4353                     <CALL '\1aGEN-BRANCH 5>
4354 PHRASE10
4355                     <FRAME '\1aGEN-BRANCH>
4356                     <PUSH 17>
4357                     <PUSH LABEL6>
4358                     <DEAD LABEL6>
4359                     <PUSH 'UNCONDITIONAL-BRANCH>
4360                     <PUSH %<>>
4361                     <VEQUAL? DIR5 '- - TAG14>
4362                     <PUSH 'T>
4363                     <JUMP + TAG15>
4364 TAG14
4365                     <PUSH %<>>
4366 TAG15
4367                     <CALL '\1aGEN-BRANCH 5>
4368                     <VEQUAL? DIR5 '+ + TAG19>
4369                     <DEAD DIR5>
4370                     <RETURN %<>>
4371 TAG19
4372                     <FRAME '\1aEMIT-LABEL>
4373                     <PUSH XLABEL7>
4374                     <DEAD XLABEL7>
4375                     <PUSH %<>>
4376                     <CALL '\1aEMIT-LABEL 2 = XLABEL7>
4377                     <RETURN XLABEL7>
4378                     <DEAD XLABEL7>
4379                     <END \1aEMPTY?-GEN>
4380
4381 #WORD *32667311310*
4382                     <GFCN \1aGASSIGNED?-GEN ("VALUE" ANY ANY ANY "OPTIONAL" ANY) VAL6 RES7 HINT8>
4383                     <OPT-DISPATCH 2 %<> OPT4 OPT5>
4384 OPT4
4385                     <PUSH %<>>
4386 OPT5
4387                     <TEMP TEMP10>
4388                     <INTGO>
4389                     <FRAME '\1aCALL-RTE>
4390                     <GVAL 'CIGAS!-MIMOP = STACK>
4391                     <PUSH 'CALL>
4392                     <PUSH RES7>
4393                     <DEAD RES7>
4394                     <PUSH HINT8>
4395                     <DEAD HINT8>
4396                     <PUSH VAL6>
4397                     <DEAD VAL6>
4398                     <CALL '\1aCALL-RTE 5 = TEMP10>
4399                     <RETURN TEMP10>
4400                     <DEAD TEMP10>
4401                     <END \1aGASSIGNED?-GEN>
4402
4403 #WORD *34650441557*
4404                     <GFCN \1aMONAD?-GEN ("VALUE" ANY VARTBL ATOM ATOM) VAR4 DIR5 LABEL6>
4405                     <TEMP XLABEL7>
4406                     <INTGO>
4407                     <FRAME '\1aCALL-RTE>
4408                     <GVAL 'CIMON!-MIMOP = STACK>
4409                     <PUSH 'CALL>
4410                     <PUSH %<>>
4411                     <PUSH %<>>
4412                     <PUSH VAR4>
4413                     <DEAD VAR4>
4414                     <CALL '\1aCALL-RTE 5>
4415                     <VEQUAL? DIR5 '+ - PHRASE10>
4416                     <FRAME '\1aGEN-BRANCH>
4417                     <PUSH 17>
4418                     <FRAME '\1aMAKE-LABEL>
4419                     <CALL '\1aMAKE-LABEL 0 = XLABEL7>
4420                     <PUSH XLABEL7>
4421                     <PUSH 'UNCONDITIONAL-BRANCH>
4422                     <PUSH %<>>
4423                     <PUSH 'T>
4424                     <CALL '\1aGEN-BRANCH 5>
4425 PHRASE10
4426                     <FRAME '\1aGEN-BRANCH>
4427                     <PUSH 17>
4428                     <PUSH LABEL6>
4429                     <DEAD LABEL6>
4430                     <PUSH 'UNCONDITIONAL-BRANCH>
4431                     <PUSH %<>>
4432                     <VEQUAL? DIR5 '- - TAG14>
4433                     <PUSH 'T>
4434                     <JUMP + TAG15>
4435 TAG14
4436                     <PUSH %<>>
4437 TAG15
4438                     <CALL '\1aGEN-BRANCH 5>
4439                     <VEQUAL? DIR5 '+ + TAG19>
4440                     <DEAD DIR5>
4441                     <RETURN %<>>
4442 TAG19
4443                     <FRAME '\1aEMIT-LABEL>
4444                     <PUSH XLABEL7>
4445                     <DEAD XLABEL7>
4446                     <PUSH %<>>
4447                     <CALL '\1aEMIT-LABEL 2 = XLABEL7>
4448                     <RETURN XLABEL7>
4449                     <DEAD XLABEL7>
4450                     <END \1aMONAD?-GEN>
4451
4452 #WORD *37067306710*
4453                     <GFCN \1aFGVAL-GEN ("VALUE" ANY ANY ANY "OPTIONAL" ANY) VAL6 RES7 HINT8>
4454                     <OPT-DISPATCH 2 %<> OPT4 OPT5>
4455 OPT4
4456                     <PUSH %<>>
4457 OPT5
4458                     <TEMP TEMP10>
4459                     <INTGO>
4460                     <FRAME '\1aCALL-RTE>
4461                     <GVAL 'CIGVL!-MIMOP = STACK>
4462                     <PUSH 'CALL>
4463                     <PUSH RES7>
4464                     <DEAD RES7>
4465                     <PUSH HINT8>
4466                     <DEAD HINT8>
4467                     <PUSH VAL6>
4468                     <DEAD VAL6>
4469                     <CALL '\1aCALL-RTE 5 = TEMP10>
4470                     <RETURN TEMP10>
4471                     <DEAD TEMP10>
4472                     <END \1aFGVAL-GEN>
4473
4474 #WORD *25745011764*
4475                     <GFCN \1aACALL-GEN ("VALUE" ANY ANY ANY "OPTIONAL" ANY ANY) SBR7 NARG8 RES9 HINT10>
4476                     <OPT-DISPATCH 2 %<> OPT4 OPT5 OPT6>
4477 OPT4
4478                     <PUSH %<>>
4479 OPT5
4480                     <PUSH %<>>
4481 OPT6
4482                     <TEMP TEMP12>
4483                     <INTGO>
4484                     <FRAME '\1aCALL-RTE>
4485                     <GVAL 'IACALL!-MIMOP = STACK>
4486                     <PUSH 'CALL>
4487                     <PUSH RES9>
4488                     <DEAD RES9>
4489                     <PUSH HINT10>
4490                     <DEAD HINT10>
4491                     <PUSH SBR7>
4492                     <DEAD SBR7>
4493                     <PUSH NARG8>
4494                     <DEAD NARG8>
4495                     <CALL '\1aCALL-RTE 6 = TEMP12>
4496                     <RETURN TEMP12>
4497                     <DEAD TEMP12>
4498                     <END \1aACALL-GEN>
4499
4500 #WORD *32233334266*
4501                     <GFCN \1aBIGSTACK-GEN ("VALUE" ANY ANY "OPTIONAL" ANY ANY) NUM7 RES8 HINT9>
4502                     <OPT-DISPATCH 1 %<> OPT4 OPT5 OPT6>
4503 OPT4
4504                     <PUSH %<>>
4505 OPT5
4506                     <PUSH %<>>
4507 OPT6
4508                     <TEMP TEMP11>
4509                     <INTGO>
4510                     <FRAME '\1aCALL-RTE>
4511                     <GVAL 'IBIGSTK!-MIMOP = STACK>
4512                     <PUSH 'CALL>
4513                     <PUSH RES8>
4514                     <DEAD RES8>
4515                     <PUSH HINT9>
4516                     <DEAD HINT9>
4517                     <PUSH NUM7>
4518                     <DEAD NUM7>
4519                     <CALL '\1aCALL-RTE 5 = TEMP11>
4520                     <RETURN TEMP11>
4521                     <DEAD TEMP11>
4522                     <END \1aBIGSTACK-GEN>
4523
4524 #WORD *13651652606*
4525                     <GFCN \1aON-STACK?-GEN ("VALUE" ATOM VARTBL ANY "OPTIONAL" ANY ANY ANY) OBJ8 RES9 HINT10 LABEL11 TAC12>
4526                     <OPT-DISPATCH 2 %<> OPT4 OPT5 OPT6 OPT7>
4527 OPT4
4528                     <PUSH %<>>
4529 OPT5
4530                     <PUSH #T$UNBOUND 0>
4531 OPT6
4532                     <PUSH #T$UNBOUND 0>
4533 OPT7
4534                     <TEMP TEMP20 TEMP22>
4535                     <INTGO>
4536                     <TYPE? LABEL11 <TYPE-CODE UNBOUND> - TAG13>
4537                     <FRAME '\1aMAKE-LABEL>
4538                     <CALL '\1aMAKE-LABEL 0 = LABEL11>
4539 TAG13
4540                     <FRAME '\1aGET-AC>
4541                     <PUSH 'PREF-VAL>
4542                     <PUSH 'T>
4543                     <CALL '\1aGET-AC 2 = TAC12>
4544                     <FRAME '\1aLOAD-CONSTANT>
4545                     <PUSH TAC12>
4546                     <PUSH 0>
4547                     <CALL '\1aLOAD-CONSTANT 2>
4548                     <FRAME '\1aDEST-DECL>
4549                     <PUSH TAC12>
4550                     <PUSH RES9>
4551                     <DEAD RES9>
4552                     <PUSH 'FIX>
4553                     <CALL '\1aDEST-DECL 3>
4554                     <FRAME '\1aEMIT>
4555                     <PUSH 209>
4556                     <GVAL 'AC-PC = TEMP20>
4557                     <NTHUV TEMP20 2 = TEMP20 (TYPE FIX)>
4558                     <OR TEMP20 #WORD *220* = TEMP20>
4559                     <LSH TEMP20 24 = TEMP20 (TYPE FIX)>
4560                     <CHTYPE TEMP20 <TYPE-CODE EFF-ADDR> = TEMP20>
4561                     <CONS TEMP20 () = TEMP20>
4562                     <FRAME '\1aLREV>
4563                     <GVAL 'STKBOT-LOC = STACK>
4564                     <CALL '\1aLREV 1 = TEMP22>
4565                     <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = TEMP22>
4566                     <CONS TEMP22 () = TEMP22>
4567                     <PUTREST TEMP20 TEMP22>
4568                     <DEAD TEMP22>
4569                     <CHTYPE TEMP20 <TYPE-CODE LADDR> = STACK>
4570                     <DEAD TEMP20>
4571                     <FRAME '\1aVAR-VALUE-ADDRESS>
4572                     <PUSH OBJ8>
4573                     <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
4574                     <CALL '\1aEMIT 3>
4575                     <FRAME '\1aGEN-BRANCH>
4576                     <PUSH 20>
4577                     <PUSH LABEL11>
4578                     <PUSH %<>>
4579                     <CALL '\1aGEN-BRANCH 3>
4580                     <FRAME '\1aEMIT>
4581                     <PUSH 209>
4582                     <GVAL 'AC-PC = TEMP20>
4583                     <NTHUV TEMP20 2 = TEMP20 (TYPE FIX)>
4584                     <OR TEMP20 #WORD *220* = TEMP20>
4585                     <LSH TEMP20 24 = TEMP20 (TYPE FIX)>
4586                     <CHTYPE TEMP20 <TYPE-CODE EFF-ADDR> = TEMP20>
4587                     <CONS TEMP20 () = TEMP20>
4588                     <FRAME '\1aLREV>
4589                     <GVAL 'STKTOP-LOC = STACK>
4590                     <CALL '\1aLREV 1 = TEMP22>
4591                     <CHTYPE TEMP22 <TYPE-CODE EFF-ADDR> = TEMP22>
4592                     <CONS TEMP22 () = TEMP22>
4593                     <PUTREST TEMP20 TEMP22>
4594                     <DEAD TEMP22>
4595                     <CHTYPE TEMP20 <TYPE-CODE LADDR> = STACK>
4596                     <DEAD TEMP20>
4597                     <FRAME '\1aVAR-VALUE-ADDRESS>
4598                     <PUSH OBJ8>
4599                     <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
4600                     <CALL '\1aEMIT 3>
4601                     <FRAME '\1aGEN-BRANCH>
4602                     <PUSH 25>
4603                     <PUSH LABEL11>
4604                     <PUSH %<>>
4605                     <CALL '\1aGEN-BRANCH 3>
4606                     <FRAME '\1aLOAD-CONSTANT>
4607                     <PUSH TAC12>
4608                     <PUSH 1>
4609                     <CALL '\1aLOAD-CONSTANT 2>
4610                     <FRAME '\1aEMIT>
4611                     <PUSH 209>
4612                     <GVAL 'AC-TP = TEMP20>
4613                     <NTHUV TEMP20 2 = TEMP20 (TYPE FIX)>
4614                     <OR TEMP20 #WORD *120* = TEMP20>
4615                     <LSH TEMP20 24 = TEMP20 (TYPE FIX)>
4616                     <CHTYPE TEMP20 <TYPE-CODE EFF-ADDR> = STACK>
4617                     <DEAD TEMP20>
4618                     <FRAME '\1aVAR-VALUE-ADDRESS>
4619                     <PUSH OBJ8>
4620                     <DEAD OBJ8>
4621                     <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
4622                     <CALL '\1aEMIT 3>
4623                     <FRAME '\1aGEN-BRANCH>
4624                     <PUSH 25>
4625                     <PUSH LABEL11>
4626                     <PUSH %<>>
4627                     <CALL '\1aGEN-BRANCH 3>
4628                     <FRAME '\1aLOAD-CONSTANT>
4629                     <PUSH TAC12>
4630                     <DEAD TAC12>
4631                     <PUSH -1>
4632                     <CALL '\1aLOAD-CONSTANT 2>
4633                     <FRAME '\1aEMIT-LABEL>
4634                     <PUSH LABEL11>
4635                     <DEAD LABEL11>
4636                     <PUSH %<>>
4637                     <CALL '\1aEMIT-LABEL 2>
4638                     <RETURN 'NORMAL>
4639                     <END \1aON-STACK?-GEN>