mim/development/mim/vaxc/arithgen.mima

   1
   2 #WORD *27635606362*
   3 <GFCN \1aGETBITS-GEN ("VALUE" ATOM ANY ANY ANY ANY "OPTIONAL" ANY) FROM8 WIDTH9 SHIFT10 DEST11 HINT12>
   4                     <OPT-DISPATCH 4 %<> OPT6 OPT7>
   5 OPT6
   6                     <PUSH #T$UNBOUND 0>
   7 OPT7
   8                     <TEMP TEMP25>
   9                     <INTGO>
  10                     <EQUAL? DEST11 'STACK - PHRASE15>
  11                     <FRAME '\1aEMIT-PUSH>
  12                     <FRAME '\1aTYPE-WORD>
  13                     <PUSH 'FIX>
  14                     <CALL '\1aTYPE-WORD 1 = STACK>
  15                     <PUSH 'LONG>
  16                     <CALL '\1aEMIT-PUSH 2>
  17 PHRASE15
  18                     <TYPE? FROM8 <TYPE-CODE VARTBL> + PHRASE19>
  19                     <TYPE? WIDTH9 <TYPE-CODE VARTBL> + PHRASE19>
  20                     <TYPE? SHIFT10 <TYPE-CODE VARTBL> + PHRASE19>
  21                     <FRAME '\1aEMIT-MOVE>
  22                     <FRAME '\1aMA-IMM>
  23                     <GETBITS FROM8 WIDTH9 SHIFT10 = STACK>
  24                     <DEAD FROM8 WIDTH9 SHIFT10>
  25                     <CALL '\1aMA-IMM 1 = STACK>
  26                     <EQUAL? DEST11 'STACK - PHRASE24>
  27                     <GVAL 'AC-TP = TEMP25>
  28                     <NTHUV TEMP25 2 = TEMP25 (TYPE FIX)>
  29                     <OR TEMP25 128 = TEMP25>
  30                     <LSH TEMP25 24 = TEMP25 (TYPE FIX)>
  31                     <CHTYPE TEMP25 <TYPE-CODE EFF-ADDR> = TEMP25>
  32                     <JUMP + PHRASE26>
  33 PHRASE24
  34                     <FRAME '\1aVAR-VALUE-ADDRESS>
  35                     <PUSH DEST11>
  36                     <PUSH 'T>
  37                     <CALL '\1aVAR-VALUE-ADDRESS 2 = TEMP25>
  38 PHRASE26
  39                     <PUSH TEMP25>
  40                     <DEAD TEMP25>
  41                     <PUSH 'LONG>
  42                     <CALL '\1aEMIT-MOVE 3>
  43                     <JUMP + PHRASE52>
  44 PHRASE19
  45                     <TYPE? WIDTH9 <TYPE-CODE FIX> - PHRASE28>
  46                     <TYPE? SHIFT10 <TYPE-CODE FIX> - PHRASE28>
  47                     <AND SHIFT10 7 = TEMP25>
  48                     <VEQUAL? TEMP25 0 - PHRASE28 (TYPE FIX)>
  49                     <DEAD TEMP25>
  50                     <VEQUAL? WIDTH9 8 + BOOL32 (TYPE FIX)>
  51                     <VEQUAL? WIDTH9 16 - PHRASE28 (TYPE FIX)>
  52 BOOL32
  53                     <VEQUAL? SHIFT10 0 + BOOL33 (TYPE FIX)>
  54                     <FRAME '\1aVAR-VALUE-IN-AC?>
  55                     <PUSH FROM8>
  56                     <CALL '\1aVAR-VALUE-IN-AC? 1 = TEMP25>
  57                     <TYPE? TEMP25 <TYPE-CODE FALSE> - PHRASE28>
  58                     <DEAD TEMP25>
  59 BOOL33
  60                     <FRAME '\1aEMIT>
  61                     <VEQUAL? WIDTH9 8 - PHRASE39 (TYPE FIX)>
  62                     <DEAD WIDTH9>
  63                     <SET TEMP25 154 (TYPE FIX)>
  64                     <JUMP + PHRASE40>
  65 PHRASE39
  66                     <SET TEMP25 60 (TYPE FIX)>
  67 PHRASE40
  68                     <PUSH TEMP25>
  69                     <DEAD TEMP25>
  70                     <VEQUAL? SHIFT10 0 - PHRASE42 (TYPE FIX)>
  71                     <FRAME '\1aVAR-VALUE-ADDRESS>
  72                     <PUSH FROM8>
  73                     <DEAD FROM8>
  74                     <CALL '\1aVAR-VALUE-ADDRESS 1 = TEMP25>
  75                     <JUMP + PHRASE46>
  76 PHRASE42
  77                     <FRAME '\1aGEN-LOC>
  78                     <PUSH FROM8>
  79                     <DEAD FROM8>
  80                     <DIV SHIFT10 8 = TEMP25 (TYPE FIX)>
  81                     <DEAD SHIFT10>
  82                     <ADD TEMP25 4 = STACK (TYPE FIX)>
  83                     <DEAD TEMP25>
  84                     <CALL '\1aGEN-LOC 2 = TEMP25>
  85 PHRASE46
  86                     <PUSH TEMP25>
  87                     <DEAD TEMP25>
  88                     <EQUAL? DEST11 'STACK - PHRASE50>
  89                     <GVAL 'AC-TP = TEMP25>
  90                     <NTHUV TEMP25 2 = TEMP25 (TYPE FIX)>
  91                     <OR TEMP25 128 = TEMP25>
  92                     <LSH TEMP25 24 = TEMP25 (TYPE FIX)>
  93                     <CHTYPE TEMP25 <TYPE-CODE EFF-ADDR> = TEMP25>
  94                     <JUMP + COND49>
  95 PHRASE50
  96                     <FRAME '\1aVAR-VALUE-ADDRESS>
  97                     <PUSH DEST11>
  98                     <PUSH 'T>
  99                     <CALL '\1aVAR-VALUE-ADDRESS 2 = TEMP25>
 100 COND49
 101                     <PUSH TEMP25>
 102                     <DEAD TEMP25>
 103                     <CALL '\1aEMIT 3>
 104                     <JUMP + PHRASE52>
 105 PHRASE28
 106                     <FRAME '\1aEMIT>
 107                     <PUSH 239>
 108                     <TYPE? SHIFT10 <TYPE-CODE VARTBL> - PHRASE55>
 109                     <FRAME '\1aVAR-VALUE-ADDRESS>
 110                     <PUSH SHIFT10>
 111                     <DEAD SHIFT10>
 112                     <CALL '\1aVAR-VALUE-ADDRESS 1 = TEMP25>
 113                     <JUMP + COND54>
 114 PHRASE55
 115                     <AND SHIFT10 63 = TEMP25>
 116                     <DEAD SHIFT10>
 117                     <LSH TEMP25 24 = TEMP25 (TYPE FIX)>
 118                     <CHTYPE TEMP25 <TYPE-CODE EFF-ADDR> = TEMP25>
 119 COND54
 120                     <PUSH TEMP25>
 121                     <DEAD TEMP25>
 122                     <TYPE? WIDTH9 <TYPE-CODE VARTBL> - PHRASE58>
 123                     <FRAME '\1aVAR-VALUE-ADDRESS>
 124                     <PUSH WIDTH9>
 125                     <DEAD WIDTH9>
 126                     <CALL '\1aVAR-VALUE-ADDRESS 1 = TEMP25>
 127                     <JUMP + COND57>
 128 PHRASE58
 129                     <AND WIDTH9 63 = TEMP25>
 130                     <DEAD WIDTH9>
 131                     <LSH TEMP25 24 = TEMP25 (TYPE FIX)>
 132                     <CHTYPE TEMP25 <TYPE-CODE EFF-ADDR> = TEMP25>
 133 COND57
 134                     <PUSH TEMP25>
 135                     <DEAD TEMP25>
 136                     <TYPE? FROM8 <TYPE-CODE VARTBL> - PHRASE61>
 137                     <FRAME '\1aVAR-VALUE-ADDRESS>
 138                     <PUSH FROM8>
 139                     <DEAD FROM8>
 140                     <CALL '\1aVAR-VALUE-ADDRESS 1 = TEMP25>
 141                     <JUMP + COND60>
 142 PHRASE61
 143                     <FRAME '\1aMA-IMM>
 144                     <PUSH FROM8>
 145                     <DEAD FROM8>
 146                     <CALL '\1aMA-IMM 1 = TEMP25>
 147 COND60
 148                     <PUSH TEMP25>
 149                     <DEAD TEMP25>
 150                     <EQUAL? DEST11 'STACK - PHRASE65>
 151                     <GVAL 'AC-TP = TEMP25>
 152                     <NTHUV TEMP25 2 = TEMP25 (TYPE FIX)>
 153                     <OR TEMP25 128 = TEMP25>
 154                     <LSH TEMP25 24 = TEMP25 (TYPE FIX)>
 155                     <CHTYPE TEMP25 <TYPE-CODE EFF-ADDR> = TEMP25>
 156                     <JUMP + COND64>
 157 PHRASE65
 158                     <FRAME '\1aVAR-VALUE-ADDRESS>
 159                     <PUSH DEST11>
 160                     <PUSH 'T>
 161                     <CALL '\1aVAR-VALUE-ADDRESS 2 = TEMP25>
 162 COND64
 163                     <PUSH TEMP25>
 164                     <DEAD TEMP25>
 165                     <CALL '\1aEMIT 5>
 166 PHRASE52
 167                     <EQUAL? DEST11 'STACK + PHRASE73>
 168                     <FRAME '\1aVAR-VALUE-IN-AC?>
 169                     <PUSH DEST11>
 170                     <CALL '\1aVAR-VALUE-IN-AC? 1 = TEMP25>
 171                     <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE70>
 172                     <FRAME '\1aDEST-DECL>
 173                     <PUSH TEMP25>
 174                     <DEAD TEMP25>
 175                     <PUSH DEST11>
 176                     <DEAD DEST11>
 177                     <PUSH 'FIX>
 178                     <CALL '\1aDEST-DECL 3>
 179                     <RETURN 'NORMAL>
 180 PHRASE70
 181                     <FRAME '\1aVARTBL-DECL>
 182                     <PUSH DEST11>
 183                     <CALL '\1aVARTBL-DECL 1 = TEMP25>
 184                     <EQUAL? TEMP25 'FIX + PHRASE73>
 185                     <DEAD TEMP25>
 186                     <FRAME '\1aINDICATE-VAR-TEMP-DECL>
 187                     <PUSH DEST11>
 188                     <PUSH 'FIX>
 189                     <CALL '\1aINDICATE-VAR-TEMP-DECL 2>
 190                     <FRAME '\1aEMIT-MOVE>
 191                     <FRAME '\1aTYPE-CODE>
 192                     <PUSH 'FIX>
 193                     <CALL '\1aTYPE-CODE 1 = STACK>
 194                     <FRAME '\1aVAR-TYPE-ADDRESS>
 195                     <PUSH DEST11>
 196                     <DEAD DEST11>
 197                     <CALL '\1aVAR-TYPE-ADDRESS 1 = STACK>
 198                     <PUSH 'LONG>
 199                     <CALL '\1aEMIT-MOVE 3>
 200 PHRASE73
 201                     <RETURN 'NORMAL>
 202                     <END \1aGETBITS-GEN>
 203 #WORD *5623433665*
 204 <GFCN \1aPUTBITS-GEN ("VALUE" ATOM ANY ANY ANY ANY ANY "OPTIONAL" ANY) TO8 WIDTH9 SHIFT10 FROM11 DEST12 HINT13>
 205                     <OPT-DISPATCH 5 %<> OPT6 OPT7>
 206 OPT6
 207                     <PUSH #T$UNBOUND 0>
 208 OPT7
 209                     <TEMP (TAC18 %<>) (ZERO?19 %<>) TEMP31 FROMOP17 RD14>
 210                     <INTGO>
 211                     <TYPE? TO8 <TYPE-CODE VARTBL> + PHRASE21>
 212                     <TYPE? WIDTH9 <TYPE-CODE VARTBL> + PHRASE21>
 213                     <TYPE? SHIFT10 <TYPE-CODE VARTBL> + PHRASE21>
 214                     <TYPE? FROM11 <TYPE-CODE VARTBL> + PHRASE21>
 215                     <EQUAL? DEST12 'STACK - PHRASE24>
 216                     <FRAME '\1aEMIT-PUSH>
 217                     <FRAME '\1aTYPE-WORD>
 218                     <PUSH 'FIX>
 219                     <CALL '\1aTYPE-WORD 1 = STACK>
 220                     <PUSH 'LONG>
 221                     <CALL '\1aEMIT-PUSH 2>
 222 PHRASE24
 223                     <FRAME '\1aEMIT-MOVE>
 224                     <FRAME '\1aMA-IMM>
 225                     <PUTBITS TO8 WIDTH9 SHIFT10 FROM11 = STACK>
 226                     <DEAD TO8 WIDTH9 SHIFT10 FROM11>
 227                     <CALL '\1aMA-IMM 1 = STACK>
 228                     <EQUAL? DEST12 'STACK - PHRASE30>
 229                     <GVAL 'AC-TP = TEMP31>
 230                     <NTHUV TEMP31 2 = TEMP31 (TYPE FIX)>
 231                     <OR TEMP31 128 = TEMP31>
 232                     <LSH TEMP31 24 = TEMP31 (TYPE FIX)>
 233                     <CHTYPE TEMP31 <TYPE-CODE EFF-ADDR> = TEMP31>
 234                     <JUMP + COND29>
 235 PHRASE30
 236                     <FRAME '\1aVAR-VALUE-ADDRESS>
 237                     <PUSH DEST12>
 238                     <DEAD DEST12>
 239                     <PUSH 'T>
 240                     <CALL '\1aVAR-VALUE-ADDRESS 2 = TEMP31>
 241 COND29
 242                     <PUSH TEMP31>
 243                     <DEAD TEMP31>
 244                     <PUSH 'LONG>
 245                     <CALL '\1aEMIT-MOVE 3>
 246                     <RETURN 'NORMAL>
 247 PHRASE21
 248                     <EQUAL? DEST12 'STACK - PHRASE35>
 249                     <FRAME '\1aEMIT-PUSH>
 250                     <FRAME '\1aTYPE-WORD>
 251                     <PUSH 'FIX>
 252                     <CALL '\1aTYPE-WORD 1 = STACK>
 253                     <PUSH 'LONG>
 254                     <CALL '\1aEMIT-PUSH 2>
 255                     <FRAME '\1aEMIT-PUSH>
 256                     <TYPE? TO8 <TYPE-CODE VARTBL> - PHRASE40>
 257                     <FRAME '\1aVAR-VALUE-ADDRESS>
 258                     <PUSH TO8>
 259                     <CALL '\1aVAR-VALUE-ADDRESS 1 = TEMP31>
 260                     <JUMP + COND39>
 261 PHRASE40
 262                     <FRAME '\1aMA-IMM>
 263                     <PUSH TO8>
 264                     <CALL '\1aMA-IMM 1 = TEMP31>
 265 COND39
 266                     <PUSH TEMP31>
 267                     <DEAD TEMP31>
 268                     <PUSH 'LONG>
 269                     <CALL '\1aEMIT-PUSH 2>
 270 PHRASE35
 271                     <TYPE? WIDTH9 <TYPE-CODE FIX> - PHRASE44>
 272                     <VEQUAL? WIDTH9 8 + BOOL46 (TYPE FIX)>
 273                     <VEQUAL? WIDTH9 16 - PHRASE44 (TYPE FIX)>
 274 BOOL46
 275                     <TYPE? SHIFT10 <TYPE-CODE FIX> - PHRASE44>
 276                     <AND SHIFT10 7 = TEMP31>
 277                     <VEQUAL? TEMP31 0 - PHRASE44 (TYPE FIX)>
 278                     <DEAD TEMP31>
 279                     <VEQUAL? SHIFT10 0 + BOOL49 (TYPE FIX)>
 280                     <EQUAL? DEST12 'STACK + BOOL49>
 281                     <FRAME '\1aVAR-VALUE-IN-AC?>
 282                     <PUSH DEST12>
 283                     <CALL '\1aVAR-VALUE-IN-AC? 1 = TEMP31>
 284                     <TYPE? TEMP31 <TYPE-CODE FALSE> - PHRASE44>
 285                     <DEAD TEMP31>
 286                     <EQUAL? FROM11 DEST12 + PHRASE44>
 287 BOOL49
 288                     <EQUAL? TO8 0 - PHRASE55>
 289                     <VEQUAL? SHIFT10 0 - PHRASE55 (TYPE FIX)>
 290                     <SET ZERO?19 'T (TYPE ATOM)>
 291                     <JUMP + PHRASE67>
 292 PHRASE55
 293                     <EQUAL? FROM11 DEST12 - PHRASE59>
 294                     <FRAME '\1aGET-AC>
 295                     <PUSH 'PREF-VAL>
 296                     <PUSH 'T>
 297                     <CALL '\1aGET-AC 2 = TAC18>
 298                     <FRAME '\1aEMIT-MOVE>
 299                     <TYPE? TO8 <TYPE-CODE VARTBL> - PHRASE63>
 300                     <FRAME '\1aVAR-VALUE-ADDRESS>
 301                     <PUSH TO8>
 302                     <DEAD TO8>
 303                     <CALL '\1aVAR-VALUE-ADDRESS 1 = TEMP31>
 304                     <JUMP + PHRASE65>
 305 PHRASE63
 306                     <FRAME '\1aMA-IMM>
 307                     <PUSH TO8>
 308                     <DEAD TO8>
 309                     <CALL '\1aMA-IMM 1 = TEMP31>
 310 PHRASE65
 311                     <PUSH TEMP31>
 312                     <DEAD TEMP31>
 313                     <NTHUV TAC18 2 = TEMP31 (TYPE FIX)>
 314                     <OR TEMP31 80 = TEMP31>
 315                     <LSH TEMP31 24 = TEMP31 (TYPE FIX)>
 316                     <CHTYPE TEMP31 <TYPE-CODE EFF-ADDR> = STACK>
 317                     <DEAD TEMP31>
 318                     <PUSH 'LONG>
 319                     <CALL '\1aEMIT-MOVE 3>
 320                     <JUMP + PHRASE67>
 321 PHRASE59
 322                     <EQUAL? DEST12 'STACK + PHRASE67>
 323                     <EQUAL? TO8 DEST12 + PHRASE67>
 324                     <FRAME '\1aEMIT-MOVE>
 325                     <TYPE? TO8 <TYPE-CODE VARTBL> - PHRASE71>
 326                     <FRAME '\1aVAR-VALUE-ADDRESS>
 327                     <PUSH TO8>
 328                     <DEAD TO8>
 329                     <CALL '\1aVAR-VALUE-ADDRESS 1 = TEMP31>
 330                     <JUMP + PHRASE73>
 331 PHRASE71
 332                     <FRAME '\1aMA-IMM>
 333                     <PUSH TO8>
 334                     <DEAD TO8>
 335                     <CALL '\1aMA-IMM 1 = TEMP31>
 336 PHRASE73
 337                     <PUSH TEMP31>
 338                     <DEAD TEMP31>
 339                     <FRAME '\1aVAR-VALUE-ADDRESS>
 340                     <PUSH DEST12>
 341                     <PUSH 'T>
 342                     <CALL '\1aVAR-VALUE-ADDRESS 2 = STACK>
 343                     <PUSH 'LONG>
 344                     <CALL '\1aEMIT-MOVE 3>
 345 PHRASE67
 346                     <FRAME '\1aEMIT>
 347                     <TYPE? ZERO?19 <TYPE-CODE FALSE> + PHRASE78>
 348                     <DEAD ZERO?19>
 349                     <VEQUAL? WIDTH9 8 - PHRASE80 (TYPE FIX)>
 350                     <DEAD WIDTH9>
 351                     <SET TEMP31 154 (TYPE FIX)>
 352                     <JUMP + COND77>
 353 PHRASE80
 354                     <SET TEMP31 60 (TYPE FIX)>
 355                     <JUMP + COND77>
 356 PHRASE78
 357                     <VEQUAL? WIDTH9 8 - PHRASE82 (TYPE FIX)>
 358                     <DEAD WIDTH9>
 359                     <SET TEMP31 144 (TYPE FIX)>
 360                     <JUMP + COND77>
 361 PHRASE82
 362                     <SET TEMP31 176 (TYPE FIX)>
 363 COND77
 364                     <PUSH TEMP31>
 365                     <DEAD TEMP31>
 366                     <TYPE? FROM11 <TYPE-CODE VARTBL> - PHRASE84>
 367                     <FRAME '\1aVAR-VALUE-ADDRESS>
 368                     <PUSH FROM11>
 369                     <DEAD FROM11>
 370                     <CALL '\1aVAR-VALUE-ADDRESS 1 = TEMP31>
 371                     <JUMP + PHRASE86>
 372 PHRASE84
 373                     <FRAME '\1aMA-IMM>
 374                     <PUSH FROM11>
 375                     <DEAD FROM11>
 376                     <CALL '\1aMA-IMM 1 = TEMP31>
 377 PHRASE86
 378                     <PUSH TEMP31>
 379                     <DEAD TEMP31>
 380                     <EQUAL? DEST12 'STACK - PHRASE89>
 381                     <FRAME '\1aMA-DISP>
 382                     <GVAL 'AC-TP = STACK>
 383                     <DIV SHIFT10 8 = TEMP31 (TYPE FIX)>
 384                     <DEAD SHIFT10>
 385                     <SUB -4 TEMP31 = STACK (TYPE FIX)>
 386                     <DEAD TEMP31>
 387                     <CALL '\1aMA-DISP 2 = TEMP31>
 388                     <JUMP + PHRASE96>
 389 PHRASE89
 390                     <TYPE? TAC18 <TYPE-CODE FALSE> + PHRASE91>
 391                     <NTHUV TAC18 2 = ZERO?19 (TYPE FIX)>
 392                     <OR ZERO?19 80 = ZERO?19>
 393                     <LSH ZERO?19 24 = ZERO?19 (TYPE FIX)>
 394                     <CHTYPE ZERO?19 <TYPE-CODE EFF-ADDR> = TEMP31>
 395                     <DEAD ZERO?19>
 396                     <JUMP + PHRASE96>
 397 PHRASE91
 398                     <FRAME '\1aVAR-VALUE-IN-AC?>
 399                     <PUSH DEST12>
 400                     <CALL '\1aVAR-VALUE-IN-AC? 1 = ZERO?19>
 401                     <TYPE? ZERO?19 <TYPE-CODE FALSE> + PHRASE93>
 402                     <DEAD ZERO?19>
 403                     <FRAME '\1aVAR-VALUE-ADDRESS>
 404                     <PUSH DEST12>
 405                     <PUSH 'T>
 406                     <CALL '\1aVAR-VALUE-ADDRESS 2 = TEMP31>
 407                     <JUMP + PHRASE96>
 408 PHRASE93
 409                     <FRAME '\1aGEN-LOC>
 410                     <PUSH DEST12>
 411                     <DIV SHIFT10 8 = ZERO?19 (TYPE FIX)>
 412                     <DEAD SHIFT10>
 413                     <ADD ZERO?19 4 = STACK (TYPE FIX)>
 414                     <DEAD ZERO?19>
 415                     <CALL '\1aGEN-LOC 2 = TEMP31>
 416 PHRASE96
 417                     <PUSH TEMP31>
 418                     <DEAD TEMP31>
 419                     <CALL '\1aEMIT 3>
 420                     <TYPE? TAC18 <TYPE-CODE FALSE> + PHRASE99>
 421                     <FRAME '\1aDEST-DECL>
 422                     <PUSH TAC18>
 423                     <DEAD TAC18>
 424                     <PUSH DEST12>
 425                     <DEAD DEST12>
 426                     <PUSH 'FIX>
 427                     <CALL '\1aDEST-DECL 3>
 428                     <RETURN 'NORMAL>
 429 PHRASE99
 430                     <FRAME '\1aVARTBL-DECL>
 431                     <PUSH DEST12>
 432                     <CALL '\1aVARTBL-DECL 1 = TEMP31>
 433                     <EQUAL? TEMP31 'FIX + PHRASE107>
 434                     <DEAD TEMP31>
 435                     <FRAME '\1aINDICATE-VAR-TEMP-DECL>
 436                     <PUSH DEST12>
 437                     <PUSH 'FIX>
 438                     <CALL '\1aINDICATE-VAR-TEMP-DECL 2>
 439                     <FRAME '\1aEMIT-MOVE>
 440                     <FRAME '\1aTYPE-CODE>
 441                     <PUSH 'FIX>
 442                     <CALL '\1aTYPE-CODE 1 = STACK>
 443                     <FRAME '\1aVAR-TYPE-ADDRESS>
 444                     <PUSH DEST12>
 445                     <DEAD DEST12>
 446                     <CALL '\1aVAR-TYPE-ADDRESS 1 = STACK>
 447                     <PUSH 'LONG>
 448                     <CALL '\1aEMIT-MOVE 3>
 449                     <RETURN 'NORMAL>
 450 PHRASE44
 451                     <TYPE? WIDTH9 <TYPE-CODE VARTBL> - PHRASE109>
 452                     <FRAME '\1aVAR-VALUE-ADDRESS>
 453                     <PUSH WIDTH9>
 454                     <DEAD WIDTH9>
 455                     <CALL '\1aVAR-VALUE-ADDRESS 1 = TAC18>
 456                     <JUMP + COND108>
 457 PHRASE109
 458                     <AND WIDTH9 63 = TEMP31>
 459                     <DEAD WIDTH9>
 460                     <LSH TEMP31 24 = TEMP31 (TYPE FIX)>
 461                     <CHTYPE TEMP31 <TYPE-CODE EFF-ADDR> = TAC18>
 462                     <DEAD TEMP31>
 463 COND108
 464                     <TYPE? SHIFT10 <TYPE-CODE VARTBL> - PHRASE112>
 465                     <FRAME '\1aVAR-VALUE-ADDRESS>
 466                     <PUSH SHIFT10>
 467                     <DEAD SHIFT10>
 468                     <CALL '\1aVAR-VALUE-ADDRESS 1 = ZERO?19>
 469                     <JUMP + COND111>
 470 PHRASE112
 471                     <AND SHIFT10 63 = TEMP31>
 472                     <DEAD SHIFT10>
 473                     <LSH TEMP31 24 = TEMP31 (TYPE FIX)>
 474                     <CHTYPE TEMP31 <TYPE-CODE EFF-ADDR> = ZERO?19>
 475                     <DEAD TEMP31>
 476 COND111
 477                     <TYPE? FROM11 <TYPE-CODE VARTBL> - PHRASE115>
 478                     <FRAME '\1aVAR-VALUE-ADDRESS>
 479                     <PUSH FROM11>
 480                     <CALL '\1aVAR-VALUE-ADDRESS 1 = FROMOP17>
 481                     <FRAME '\1aVAR-VALUE-IN-AC?>
 482                     <PUSH FROM11>
 483                     <DEAD FROM11>
 484                     <CALL '\1aVAR-VALUE-IN-AC? 1 = RD14>
 485                     <TYPE? RD14 <TYPE-CODE FALSE> + PHRASE121>
 486                     <FRAME '\1aPROTECT>
 487                     <PUSH RD14>
 488                     <DEAD RD14>
 489                     <CALL '\1aPROTECT 1>
 490                     <JUMP + PHRASE121>
 491 PHRASE115
 492                     <FRAME '\1aMA-IMM>
 493                     <PUSH FROM11>
 494                     <DEAD FROM11>
 495                     <CALL '\1aMA-IMM 1 = FROMOP17>
 496 PHRASE121
 497                     <EQUAL? DEST12 'STACK - PHRASE124>
 498                     <GVAL 'AC-TP = TEMP31>
 499                     <NTHUV TEMP31 2 = TEMP31 (TYPE FIX)>
 500                     <OR TEMP31 160 = TEMP31>
 501                     <LSH TEMP31 8 = TEMP31 (TYPE FIX)>
 502                     <OR TEMP31 252 = TEMP31>
 503                     <LSH TEMP31 16 = TEMP31 (TYPE FIX)>
 504                     <CHTYPE TEMP31 <TYPE-CODE EFF-ADDR> = RD14>
 505                     <DEAD TEMP31>
 506                     <JUMP + PHRASE132>
 507 PHRASE124
 508                     <EQUAL? DEST12 TO8 - PHRASE125>
 509                     <FRAME '\1aVAR-VALUE-ADDRESS>
 510                     <PUSH TO8>
 511                     <DEAD TO8>
 512                     <CALL '\1aVAR-VALUE-ADDRESS 1 = RD14>
 513                     <JUMP + PHRASE132>
 514 PHRASE125
 515                     <TYPE? TO8 <TYPE-CODE VARTBL> - PHRASE127>
 516                     <FRAME '\1aVAR-VALUE-IN-AC?>
 517                     <PUSH TO8>
 518                     <CALL '\1aVAR-VALUE-IN-AC? 1 = RD14>
 519                     <TYPE? RD14 <TYPE-CODE FALSE> + PHRASE127>
 520                     <FRAME '\1aMUNG-AC>
 521                     <PUSH RD14>
 522                     <CALL '\1aMUNG-AC 1>
 523                     <FRAME '\1aDEST-DECL>
 524                     <PUSH RD14>
 525                     <PUSH DEST12>
 526                     <DEAD DEST12>
 527                     <PUSH 'FIX>
 528                     <CALL '\1aDEST-DECL 3>
 529                     <NTHUV RD14 2 = TEMP31 (TYPE FIX)>
 530                     <DEAD RD14>
 531                     <OR TEMP31 80 = TEMP31>
 532                     <LSH TEMP31 24 = TEMP31 (TYPE FIX)>
 533                     <CHTYPE TEMP31 <TYPE-CODE EFF-ADDR> = RD14>
 534                     <DEAD TEMP31>
 535                     <JUMP + PHRASE132>
 536 PHRASE127
 537                     <FRAME '\1aGET-AC>
 538                     <PUSH 'PREF-VAL>
 539                     <PUSH 'T>
 540                     <CALL '\1aGET-AC 2 = RD14>
 541                     <TYPE? RD14 <TYPE-CODE FALSE> + PHRASE132>
 542                     <FRAME '\1aDEST-DECL>
 543                     <PUSH RD14>
 544                     <PUSH DEST12>
 545                     <DEAD DEST12>
 546                     <PUSH 'FIX>
 547                     <CALL '\1aDEST-DECL 3>
 548                     <FRAME '\1aEMIT>
 549                     <PUSH 208>
 550                     <TYPE? TO8 <TYPE-CODE VARTBL> - PHRASE137>
 551                     <FRAME '\1aVAR-VALUE-ADDRESS>
 552                     <PUSH TO8>
 553                     <DEAD TO8>
 554                     <CALL '\1aVAR-VALUE-ADDRESS 1 = TEMP31>
 555                     <JUMP + COND136>
 556 PHRASE137
 557                     <FRAME '\1aMA-IMM>
 558                     <PUSH TO8>
 559                     <DEAD TO8>
 560                     <CALL '\1aMA-IMM 1 = TEMP31>
 561 COND136
 562                     <PUSH TEMP31>
 563                     <DEAD TEMP31>
 564                     <NTHUV RD14 2 = TEMP31 (TYPE FIX)>
 565                     <DEAD RD14>
 566                     <OR TEMP31 80 = TEMP31>
 567                     <LSH TEMP31 24 = TEMP31 (TYPE FIX)>
 568                     <CHTYPE TEMP31 <TYPE-CODE EFF-ADDR> = RD14>
 569                     <DEAD TEMP31>
 570                     <PUSH RD14>
 571                     <CALL '\1aEMIT 3>
 572 PHRASE132
 573                     <FRAME '\1aEMIT>
 574                     <PUSH 240>
 575                     <PUSH FROMOP17>
 576                     <DEAD FROMOP17>
 577                     <PUSH ZERO?19>
 578                     <DEAD ZERO?19>
 579                     <PUSH TAC18>
 580                     <DEAD TAC18>
 581                     <PUSH RD14>
 582                     <DEAD RD14>
 583                     <CALL '\1aEMIT 5>
 584 PHRASE107
 585                     <RETURN 'NORMAL>
 586                     <END \1aPUTBITS-GEN>\r\0\r\0
 587 #WORD *15114643632*
 588 <GFCN \1aARITH-GEN ("VALUE" ATOM FIX FIX <OR FIX FLOAT VARTBL> <OR FIX FLOAT VARTBL> <OR ATOM VARTBL> <OR ATOM FALSE> ANY ANY) OP-2-ARG5 OP-3-ARG6 OP17 OP28 DEST9 COMMUTE10 MUD11 TYP12>
 589                     <TEMP (USE-314 %<>) (VAC15 %<>) TMP13 TEMP40>
 590                     <INTGO>
 591                     <TYPE? OP17 <TYPE-CODE FIX> + TAG19>
 592                     <TYPE? OP17 <TYPE-CODE FLOAT> - PHRASE17>
 593 TAG19
 594                     <TYPE? OP28 <TYPE-CODE FIX> + TAG20>
 595                     <TYPE? OP28 <TYPE-CODE FLOAT> - PHRASE17>
 596 TAG20
 597                     <FRAME '\1aGET-AC>
 598                     <PUSH 'PREF-VAL>
 599                     <PUSH 'T>
 600                     <CALL '\1aGET-AC 2 = VAC15>
 601                     <FRAME '\1aLOAD-CONSTANT>
 602                     <PUSH VAC15>
 603                     <FRAME>
 604                     <PUSH OP17>
 605                     <DEAD OP17>
 606                     <PUSH OP28>
 607                     <DEAD OP28>
 608                     <ACALL MUD11 2 = STACK>
 609                     <DEAD MUD11>
 610                     <CALL '\1aLOAD-CONSTANT 2>
 611                     <JUMP + PHRASE128>
 612 PHRASE17
 613                     <SET TMP13 OP17>
 614                     <TYPE? TMP13 <TYPE-CODE FIX> + TAG28>
 615                     <TYPE? TMP13 <TYPE-CODE FLOAT> - PHRASE26>
 616 TAG28
 617                     <TYPE? COMMUTE10 <TYPE-CODE FALSE> + PHRASE26>
 618                     <SET OP17 OP28>
 619                     <DEAD OP28>
 620                     <SET OP28 TMP13>
 621 PHRASE26
 622                     <EQUAL? DEST9 'STACK - PHRASE30>
 623                     <SET USE-314 'T (TYPE ATOM)>
 624                     <FRAME '\1aEMIT-PUSH>
 625                     <FRAME '\1aTYPE-WORD>
 626                     <PUSH TYP12>
 627                     <CALL '\1aTYPE-WORD 1 = STACK>
 628                     <PUSH 'LONG>
 629                     <CALL '\1aEMIT-PUSH 2>
 630                     <JUMP + PHRASE58>
 631 PHRASE30
 632                     <TYPE? OP17 <TYPE-CODE FIX> + TAG34>
 633                     <TYPE? OP17 <TYPE-CODE FLOAT> - PHRASE33>
 634 TAG34
 635                     <SET USE-314 'T (TYPE ATOM)>
 636                     <JUMP + PHRASE58>
 637 PHRASE33
 638                     <FRAME '\1aVAR-VALUE-IN-AC?>
 639                     <PUSH OP17>
 640                     <CALL '\1aVAR-VALUE-IN-AC? 1 = VAC15>
 641                     <TYPE? VAC15 <TYPE-CODE FALSE> + BOOL44>
 642                     <FRAME '\1aAVAILABLE?>
 643                     <PUSH VAC15>
 644                     <CALL '\1aAVAILABLE? 1 = TEMP40>
 645                     <TYPE? TEMP40 <TYPE-CODE FALSE> + BOOL38>
 646                     <DEAD TEMP40>
 647                     <FRAME '\1aMUNG-AC>
 648                     <PUSH VAC15>
 649                     <CALL '\1aMUNG-AC 1>
 650                     <JUMP + PHRASE58>
 651 BOOL38
 652                     <EQUAL? OP17 DEST9 - BOOL44>
 653                     <NTHUV VAC15 8 = TEMP40 (TYPE VECTOR)>
 654                     <LENUV TEMP40 = TEMP40 (TYPE FIX)>
 655                     <VEQUAL? TEMP40 1 + PHRASE58 (TYPE FIX)>
 656                     <DEAD TEMP40>
 657 BOOL44
 658                     <TYPE? OP28 <TYPE-CODE VARTBL> - PHRASE48>
 659                     <FRAME '\1aVAR-VALUE-IN-AC?>
 660                     <PUSH OP28>
 661                     <CALL '\1aVAR-VALUE-IN-AC? 1 = VAC15>
 662                     <TYPE? VAC15 <TYPE-CODE FALSE> + PHRASE48>
 663                     <FRAME '\1aAVAILABLE?>
 664                     <PUSH VAC15>
 665                     <CALL '\1aAVAILABLE? 1 = TEMP40>
 666                     <TYPE? TEMP40 <TYPE-CODE FALSE> + PHRASE48>
 667                     <DEAD TEMP40>
 668                     <FRAME '\1aMUNG-AC>
 669                     <PUSH VAC15>
 670                     <CALL '\1aMUNG-AC 1>
 671                     <TYPE? COMMUTE10 <TYPE-CODE FALSE> + PHRASE54>
 672                     <DEAD COMMUTE10>
 673                     <SET OP17 OP28>
 674                     <DEAD OP28>
 675                     <SET OP28 TMP13>
 676                     <DEAD TMP13>
 677                     <JUMP + PHRASE58>
 678 PHRASE54
 679                     <SET USE-314 'T (TYPE ATOM)>
 680                     <JUMP + PHRASE58>
 681 PHRASE48
 682                     <SET VAC15 %<> (TYPE FALSE)>
 683                     <EQUAL? OP17 DEST9 + PHRASE58>
 684                     <SET USE-314 'T (TYPE ATOM)>
 685 PHRASE58
 686                     <TYPE? OP28 <TYPE-CODE FIX> - PHRASE67>
 687                     <LESS? OP28 0 - PHRASE67 (TYPE FIX)>
 688                     <GRTR? OP28 -64 - PHRASE67 (TYPE FIX)>
 689                     <VEQUAL? OP-2-ARG5 194 + BOOL64 (TYPE FIX)>
 690                     <VEQUAL? OP-2-ARG5 192 - PHRASE67 (TYPE FIX)>
 691 BOOL64
 692                     <SUB 0 OP28 = OP28 (TYPE FIX)>
 693                     <VEQUAL? OP-2-ARG5 194 - PHRASE66 (TYPE FIX)>
 694                     <DEAD OP-2-ARG5>
 695                     <SET OP-2-ARG5 192 (TYPE FIX)>
 696                     <SET OP-3-ARG6 193 (TYPE FIX)>
 697                     <JUMP + PHRASE67>
 698 PHRASE66
 699                     <SET OP-2-ARG5 194 (TYPE FIX)>
 700                     <SET OP-3-ARG6 195 (TYPE FIX)>
 701 PHRASE67
 702                     <VEQUAL? USE-314 0 + PHRASE69>
 703                     <EQUAL? OP17 0 + BOOL71>
 704                     <EQUAL? OP17 0.0 + BOOL71>
 705                     <EQUAL? OP17 -1 - PHRASE69>
 706 BOOL71
 707                     <VEQUAL? OP-2-ARG5 194 - BOOL73 (TYPE FIX)>
 708                     <EQUAL? OP17 -1 - BOOL75>
 709                     <DEAD OP17>
 710                     <SET OP-2-ARG5 210 (TYPE FIX)>
 711                     <JUMP + BOOL72>
 712 BOOL75
 713                     <SET OP-2-ARG5 206 (TYPE FIX)>
 714                     <JUMP + BOOL72>
 715 BOOL73
 716                     <VEQUAL? OP-2-ARG5 66 - PHRASE69 (TYPE FIX)>
 717                     <SET OP-2-ARG5 82 (TYPE FIX)>
 718 BOOL72
 719                     <FRAME '\1aEMIT>
 720                     <PUSH OP-2-ARG5>
 721                     <DEAD OP-2-ARG5>
 722                     <TYPE? VAC15 <TYPE-CODE FALSE> + PHRASE79>
 723                     <NTHUV VAC15 2 = TEMP40 (TYPE FIX)>
 724                     <OR TEMP40 80 = TEMP40>
 725                     <LSH TEMP40 24 = TEMP40 (TYPE FIX)>
 726                     <CHTYPE TEMP40 <TYPE-CODE EFF-ADDR> = TEMP40>
 727                     <JUMP + PHRASE80>
 728 PHRASE79
 729                     <FRAME '\1aVAR-VALUE-ADDRESS>
 730                     <PUSH OP28>
 731                     <DEAD OP28>
 732                     <CALL '\1aVAR-VALUE-ADDRESS 1 = TEMP40>
 733 PHRASE80
 734                     <PUSH TEMP40>
 735                     <DEAD TEMP40>
 736                     <EQUAL? DEST9 'STACK - PHRASE83>
 737                     <SET VAC15 %<> (TYPE FALSE)>
 738                     <GVAL 'AC-TP = TEMP40>
 739                     <NTHUV TEMP40 2 = TEMP40 (TYPE FIX)>
 740                     <OR TEMP40 128 = TEMP40>
 741                     <LSH TEMP40 24 = TEMP40 (TYPE FIX)>
 742                     <CHTYPE TEMP40 <TYPE-CODE EFF-ADDR> = TEMP40>
 743                     <JUMP + PHRASE86>
 744 PHRASE83
 745                     <TYPE? VAC15 <TYPE-CODE FALSE> + PHRASE84>
 746                     <NTHUV VAC15 2 = USE-314 (TYPE FIX)>
 747                     <OR USE-314 80 = USE-314>
 748                     <LSH USE-314 24 = USE-314 (TYPE FIX)>
 749                     <CHTYPE USE-314 <TYPE-CODE EFF-ADDR> = TEMP40>
 750                     <DEAD USE-314>
 751                     <JUMP + PHRASE86>
 752 PHRASE84
 753                     <FRAME '\1aGET-AC>
 754                     <PUSH 'PREF-VAL>
 755                     <PUSH 'T>
 756                     <CALL '\1aGET-AC 2 = VAC15>
 757                     <NTHUV VAC15 2 = USE-314 (TYPE FIX)>
 758                     <OR USE-314 80 = USE-314>
 759                     <LSH USE-314 24 = USE-314 (TYPE FIX)>
 760                     <CHTYPE USE-314 <TYPE-CODE EFF-ADDR> = TEMP40>
 761                     <DEAD USE-314>
 762 PHRASE86
 763                     <PUSH TEMP40>
 764                     <DEAD TEMP40>
 765                     <CALL '\1aEMIT 3>
 766                     <JUMP + PHRASE128>
 767 PHRASE69
 768                     <EQUAL? OP28 1 - PHRASE88>
 769                     <VEQUAL? USE-314 0 + BOOL90>
 770                     <EQUAL? DEST9 OP17 - PHRASE88>
 771 BOOL90
 772                     <VEQUAL? OP-2-ARG5 192 - BOOL92 (TYPE FIX)>
 773                     <SET OP-2-ARG5 214 (TYPE FIX)>
 774                     <JUMP + BOOL91>
 775 BOOL92
 776                     <VEQUAL? OP-2-ARG5 194 - PHRASE88 (TYPE FIX)>
 777                     <SET OP-2-ARG5 215 (TYPE FIX)>
 778 BOOL91
 779                     <TYPE? VAC15 <TYPE-CODE FALSE> - PHRASE95>
 780                     <FRAME '\1aVAR-VALUE-IN-AC?>
 781                     <PUSH OP17>
 782                     <CALL '\1aVAR-VALUE-IN-AC? 1 = VAC15>
 783                     <TYPE? VAC15 <TYPE-CODE FALSE> + PHRASE95>
 784                     <FRAME '\1aMUNG-AC>
 785                     <PUSH VAC15>
 786                     <CALL '\1aMUNG-AC 1>
 787 PHRASE95
 788                     <FRAME '\1aEMIT>
 789                     <PUSH OP-2-ARG5>
 790                     <DEAD OP-2-ARG5>
 791                     <TYPE? VAC15 <TYPE-CODE FALSE> + PHRASE101>
 792                     <NTHUV VAC15 2 = USE-314 (TYPE FIX)>
 793                     <OR USE-314 80 = USE-314>
 794                     <LSH USE-314 24 = USE-314 (TYPE FIX)>
 795                     <CHTYPE USE-314 <TYPE-CODE EFF-ADDR> = USE-314>
 796                     <JUMP + PHRASE102>
 797 PHRASE101
 798                     <FRAME '\1aVAR-VALUE-ADDRESS>
 799                     <PUSH OP17>
 800                     <DEAD OP17>
 801                     <CALL '\1aVAR-VALUE-ADDRESS 1 = USE-314>
 802 PHRASE102
 803                     <PUSH USE-314>
 804                     <DEAD USE-314>
 805                     <CALL '\1aEMIT 2>
 806                     <JUMP + PHRASE128>
 807 PHRASE88
 808                     <VEQUAL? USE-314 0 + PHRASE104>
 809                     <DEAD USE-314>
 810                     <FRAME '\1aEMIT>
 811                     <PUSH OP-3-ARG6>
 812                     <DEAD OP-3-ARG6>
 813                     <TYPE? OP28 <TYPE-CODE FIX> - PHRASE107>
 814                     <FRAME '\1aMA-IMM>
 815                     <PUSH OP28>
 816                     <DEAD OP28>
 817                     <CALL '\1aMA-IMM 1 = USE-314>
 818                     <JUMP + PHRASE113>
 819 PHRASE107
 820                     <TYPE? OP28 <TYPE-CODE FLOAT> - PHRASE109>
 821                     <FRAME '\1aFLOAT-IMM>
 822                     <FRAME '\1aFLOATCONVERT>
 823                     <PUSH OP28>
 824                     <DEAD OP28>
 825                     <CALL '\1aFLOATCONVERT 1 = STACK>
 826                     <CALL '\1aFLOAT-IMM 1 = USE-314>
 827                     <JUMP + PHRASE113>
 828 PHRASE109
 829                     <TYPE? VAC15 <TYPE-CODE FALSE> + PHRASE112>
 830                     <NTHUV VAC15 2 = TEMP40 (TYPE FIX)>
 831                     <OR TEMP40 80 = TEMP40>
 832                     <LSH TEMP40 24 = TEMP40 (TYPE FIX)>
 833                     <CHTYPE TEMP40 <TYPE-CODE EFF-ADDR> = USE-314>
 834                     <DEAD TEMP40>
 835                     <JUMP + PHRASE113>
 836 PHRASE112
 837                     <FRAME '\1aVAR-VALUE-ADDRESS>
 838                     <PUSH OP28>
 839                     <DEAD OP28>
 840                     <CALL '\1aVAR-VALUE-ADDRESS 1 = USE-314>
 841 PHRASE113
 842                     <PUSH USE-314>
 843                     <DEAD USE-314>
 844                     <TYPE? OP17 <TYPE-CODE FIX> - PHRASE116>
 845                     <FRAME '\1aMA-IMM>
 846                     <PUSH OP17>
 847                     <DEAD OP17>
 848                     <CALL '\1aMA-IMM 1 = USE-314>
 849                     <JUMP + PHRASE121>
 850 PHRASE116
 851                     <TYPE? OP17 <TYPE-CODE FLOAT> - PHRASE118>
 852                     <FRAME '\1aFLOAT-IMM>
 853                     <FRAME '\1aFLOATCONVERT>
 854                     <PUSH OP17>
 855                     <DEAD OP17>
 856                     <CALL '\1aFLOATCONVERT 1 = STACK>
 857                     <CALL '\1aFLOAT-IMM 1 = USE-314>
 858                     <JUMP + PHRASE121>
 859 PHRASE118
 860                     <FRAME '\1aVAR-VALUE-ADDRESS>
 861                     <PUSH OP17>
 862                     <DEAD OP17>
 863                     <CALL '\1aVAR-VALUE-ADDRESS 1 = USE-314>
 864 PHRASE121
 865                     <PUSH USE-314>
 866                     <DEAD USE-314>
 867                     <EQUAL? DEST9 'STACK - PHRASE124>
 868                     <SET VAC15 %<> (TYPE FALSE)>
 869                     <GVAL 'AC-TP = USE-314>
 870                     <NTHUV USE-314 2 = USE-314 (TYPE FIX)>
 871                     <OR USE-314 128 = USE-314>
 872                     <LSH USE-314 24 = USE-314 (TYPE FIX)>
 873                     <CHTYPE USE-314 <TYPE-CODE EFF-ADDR> = USE-314>
 874                     <JUMP + PHRASE126>
 875 PHRASE124
 876                     <TYPE? VAC15 <TYPE-CODE FALSE> + PHRASE125>
 877                     <NTHUV VAC15 2 = TEMP40 (TYPE FIX)>
 878                     <OR TEMP40 80 = TEMP40>
 879                     <LSH TEMP40 24 = TEMP40 (TYPE FIX)>
 880                     <CHTYPE TEMP40 <TYPE-CODE EFF-ADDR> = USE-314>
 881                     <DEAD TEMP40>
 882                     <JUMP + PHRASE126>
 883 PHRASE125
 884                     <FRAME '\1aGET-AC>
 885                     <PUSH 'PREF-VAL>
 886                     <PUSH 'T>
 887                     <CALL '\1aGET-AC 2 = VAC15>
 888                     <NTHUV VAC15 2 = TEMP40 (TYPE FIX)>
 889                     <OR TEMP40 80 = TEMP40>
 890                     <LSH TEMP40 24 = TEMP40 (TYPE FIX)>
 891                     <CHTYPE TEMP40 <TYPE-CODE EFF-ADDR> = USE-314>
 892                     <DEAD TEMP40>
 893 PHRASE126
 894                     <PUSH USE-314>
 895                     <DEAD USE-314>
 896                     <CALL '\1aEMIT 4>
 897                     <JUMP + PHRASE128>
 898 PHRASE104
 899                     <TYPE? VAC15 <TYPE-CODE FALSE> - PHRASE130>
 900                     <FRAME '\1aVAR-VALUE-IN-AC?>
 901                     <PUSH OP17>
 902                     <CALL '\1aVAR-VALUE-IN-AC? 1 = VAC15>
 903                     <TYPE? VAC15 <TYPE-CODE FALSE> + PHRASE130>
 904                     <FRAME '\1aMUNG-AC>
 905                     <PUSH VAC15>
 906                     <CALL '\1aMUNG-AC 1>
 907 PHRASE130
 908                     <FRAME '\1aEMIT>
 909                     <PUSH OP-2-ARG5>
 910                     <DEAD OP-2-ARG5>
 911                     <TYPE? OP28 <TYPE-CODE FIX> - PHRASE136>
 912                     <FRAME '\1aMA-IMM>
 913                     <PUSH OP28>
 914                     <DEAD OP28>
 915                     <CALL '\1aMA-IMM 1 = USE-314>
 916                     <JUMP + PHRASE141>
 917 PHRASE136
 918                     <TYPE? OP28 <TYPE-CODE FLOAT> - PHRASE138>
 919                     <FRAME '\1aFLOAT-IMM>
 920                     <FRAME '\1aFLOATCONVERT>
 921                     <PUSH OP28>
 922                     <DEAD OP28>
 923                     <CALL '\1aFLOATCONVERT 1 = STACK>
 924                     <CALL '\1aFLOAT-IMM 1 = USE-314>
 925                     <JUMP + PHRASE141>
 926 PHRASE138
 927                     <FRAME '\1aVAR-VALUE-ADDRESS>
 928                     <PUSH OP28>
 929                     <DEAD OP28>
 930                     <CALL '\1aVAR-VALUE-ADDRESS 1 = USE-314>
 931 PHRASE141
 932                     <PUSH USE-314>
 933                     <DEAD USE-314>
 934                     <TYPE? VAC15 <TYPE-CODE FALSE> + PHRASE144>
 935                     <NTHUV VAC15 2 = USE-314 (TYPE FIX)>
 936                     <OR USE-314 80 = USE-314>
 937                     <LSH USE-314 24 = USE-314 (TYPE FIX)>
 938                     <CHTYPE USE-314 <TYPE-CODE EFF-ADDR> = USE-314>
 939                     <JUMP + PHRASE145>
 940 PHRASE144
 941                     <FRAME '\1aVAR-VALUE-ADDRESS>
 942                     <PUSH OP17>
 943                     <DEAD OP17>
 944                     <CALL '\1aVAR-VALUE-ADDRESS 1 = USE-314>
 945 PHRASE145
 946                     <PUSH USE-314>
 947                     <DEAD USE-314>
 948                     <CALL '\1aEMIT 3>
 949 PHRASE128
 950                     <TYPE? VAC15 <TYPE-CODE FALSE> + PHRASE148>
 951                     <FRAME '\1aDEST-DECL>
 952                     <PUSH VAC15>
 953                     <DEAD VAC15>
 954                     <PUSH DEST9>
 955                     <DEAD DEST9>
 956                     <PUSH TYP12>
 957                     <DEAD TYP12>
 958                     <CALL '\1aDEST-DECL 3>
 959 PHRASE148
 960                     <RETURN 'NORMAL>
 961                     <END \1aARITH-GEN>
 962 #WORD *17062346323*
 963 <GFCN \1aADDFIX-GEN ("VALUE" ATOM <OR FIX VARTBL> <OR FIX VARTBL> <OR VARTBL ATOM> "OPTIONAL" ANY) OP18 OP29 DEST10 HINT11>
 964                     <OPT-DISPATCH 3 %<> OPT6 OPT7>
 965 OPT6
 966                     <PUSH %<>>
 967 OPT7
 968                     <TEMP TEMP13:ATOM>
 969                     <INTGO>
 970                     <FRAME '\1aARITH-GEN>
 971                     <PUSH 192>
 972                     <PUSH 193>
 973                     <PUSH OP18>
 974                     <DEAD OP18>
 975                     <PUSH OP29>
 976                     <DEAD OP29>
 977                     <PUSH DEST10>
 978                     <DEAD DEST10>
 979                     <PUSH 'T>
 980                     <GVAL '+ = STACK>
 981                     <PUSH 'FIX>
 982                     <CALL '\1aARITH-GEN 8 = TEMP13>
 983                     <RETURN TEMP13>
 984                     <DEAD TEMP13>
 985                     <END \1aADDFIX-GEN>
 986 #WORD *6457324663*
 987 <GFCN \1aLESSFIX-GEN ("VALUE" ATOM <OR VARTBL <PRIMTYPE FIX>> <OR VARTBL <PRIMTYPE FIX>> ATOM ATOM "OPTIONAL" ANY) VAL18 VAL29 DIR10 LABEL11 HINT12>
 988                     <OPT-DISPATCH 4 %<> OPT6 OPT7>
 989 OPT6
 990                     <PUSH %<>>
 991 OPT7
 992                     <TEMP (TYP13 %<>)>
 993                     <INTGO>
 994                     <TYPE? HINT12 <TYPE-CODE FALSE> + PHRASE15>
 995                     <FRAME '\1aPARSE-HINT>
 996                     <PUSH HINT12>
 997                     <DEAD HINT12>
 998                     <PUSH 'TYPE>
 999                     <CALL '\1aPARSE-HINT 2 = TYP13>
1000 PHRASE15
1001                     <TYPE? TYP13 <TYPE-CODE FALSE> - PHRASE18>
1002                     <TYPE? VAL18 <TYPE-CODE VARTBL> + BOOL20>
1003                     <VEQUAL? VAL18 0 + PHRASE18 (TYPE FIX)>
1004 BOOL20
1005                     <TYPE? VAL29 <TYPE-CODE VARTBL> + BOOL23>
1006                     <VEQUAL? VAL29 0 + PHRASE18 (TYPE FIX)>
1007 BOOL23
1008                     <SET TYP13 'FIX (TYPE ATOM)>
1009 PHRASE18
1010                     <FRAME '\1aCOMP-GEN>
1011                     <PUSH VAL18>
1012                     <DEAD VAL18>
1013                     <PUSH VAL29>
1014                     <DEAD VAL29>
1015                     <PUSH DIR10>
1016                     <DEAD DIR10>
1017                     <PUSH LABEL11>
1018                     <DEAD LABEL11>
1019                     <PUSH 1>
1020                     <PUSH TYP13>
1021                     <DEAD TYP13>
1022                     <CALL '\1aCOMP-GEN 6 = TYP13>
1023                     <RETURN TYP13>
1024                     <DEAD TYP13>
1025                     <END \1aLESSFIX-GEN>
1026 #WORD *15457324663*
1027 <GFCN \1aGTFIX-GEN ("VALUE" ATOM <OR VARTBL <PRIMTYPE FIX>> <OR VARTBL <PRIMTYPE FIX>> ATOM ATOM "OPTIONAL" ANY) VAL18 VAL29 DIR10 LABEL11 HINT12>
1028                     <OPT-DISPATCH 4 %<> OPT6 OPT7>
1029 OPT6
1030                     <PUSH %<>>
1031 OPT7
1032                     <TEMP (TYP13 %<>)>
1033                     <INTGO>
1034                     <TYPE? HINT12 <TYPE-CODE FALSE> + PHRASE15>
1035                     <FRAME '\1aPARSE-HINT>
1036                     <PUSH HINT12>
1037                     <DEAD HINT12>
1038                     <PUSH 'TYPE>
1039                     <CALL '\1aPARSE-HINT 2 = TYP13>
1040 PHRASE15
1041                     <TYPE? TYP13 <TYPE-CODE FALSE> - PHRASE18>
1042                     <TYPE? VAL18 <TYPE-CODE VARTBL> + BOOL20>
1043                     <VEQUAL? VAL18 0 + PHRASE18 (TYPE FIX)>
1044 BOOL20
1045                     <TYPE? VAL29 <TYPE-CODE VARTBL> + BOOL23>
1046                     <VEQUAL? VAL29 0 + PHRASE18 (TYPE FIX)>
1047 BOOL23
1048                     <SET TYP13 'FIX (TYPE ATOM)>
1049 PHRASE18
1050                     <FRAME '\1aCOMP-GEN>
1051                     <PUSH VAL18>
1052                     <DEAD VAL18>
1053                     <PUSH VAL29>
1054                     <DEAD VAL29>
1055                     <PUSH DIR10>
1056                     <DEAD DIR10>
1057                     <PUSH LABEL11>
1058                     <DEAD LABEL11>
1059                     <PUSH 3>
1060                     <PUSH TYP13>
1061                     <DEAD TYP13>
1062                     <CALL '\1aCOMP-GEN 6 = TYP13>
1063                     <RETURN TYP13>
1064                     <DEAD TYP13>
1065                     <END \1aGTFIX-GEN>
1066 #WORD *30340376742*
1067 <GFCN \1aVEQUAL-GEN ("VALUE" ATOM ANY ANY ATOM ATOM "OPTIONAL" ANY) VAL18 VAL29 DIR10 LABEL11 HINT12>
1068                     <OPT-DISPATCH 4 %<> OPT6 OPT7>
1069 OPT6
1070                     <PUSH %<>>
1071 OPT7
1072                     <TEMP (TYP13 %<>)>
1073                     <INTGO>
1074                     <TYPE? HINT12 <TYPE-CODE FALSE> + PHRASE15>
1075                     <FRAME '\1aPARSE-HINT>
1076                     <PUSH HINT12>
1077                     <DEAD HINT12>
1078                     <PUSH 'TYPE>
1079                     <CALL '\1aPARSE-HINT 2 = TYP13>
1080 PHRASE15
1081                     <TYPE? TYP13 <TYPE-CODE FALSE> - PHRASE18>
1082                     <SET TYP13 'FIX (TYPE ATOM)>
1083 PHRASE18
1084                     <FRAME '\1aCOMP-GEN>
1085                     <PUSH VAL18>
1086                     <DEAD VAL18>
1087                     <PUSH VAL29>
1088                     <DEAD VAL29>
1089                     <PUSH DIR10>
1090                     <DEAD DIR10>
1091                     <PUSH LABEL11>
1092                     <DEAD LABEL11>
1093                     <PUSH 2>
1094                     <PUSH TYP13>
1095                     <DEAD TYP13>
1096                     <CALL '\1aCOMP-GEN 6 = TYP13>
1097                     <RETURN TYP13>
1098                     <DEAD TYP13>
1099                     <END \1aVEQUAL-GEN>
1100 #WORD *4305653234*
1101 <GFCN \1aEQUAL-GEN ("VALUE" ATOM VARTBL ANY ATOM ATOM) VAL15 VAL26 DIR7 LABEL8>
1102                     <TEMP ELABEL12 DCL10 DCL115>
1103                     <INTGO>
1104                     <FRAME '\1aMAKE-LABEL>
1105                     <PUSH 'T>
1106                     <CALL '\1aMAKE-LABEL 1 = ELABEL12>
1107                     <TYPE? VAL26 <TYPE-CODE VARTBL> - PHRASE20>
1108                     <FRAME '\1aVARTBL-DECL>
1109                     <PUSH VAL15>
1110                     <CALL '\1aVARTBL-DECL 1 = DCL10>
1111                     <TYPE? DCL10 <TYPE-CODE FALSE> + PHRASE22>
1112                     <FRAME '\1aVARTBL-DECL>
1113                     <PUSH VAL26>
1114                     <CALL '\1aVARTBL-DECL 1 = DCL115>
1115                     <TYPE? DCL115 <TYPE-CODE FALSE> + PHRASE22>
1116                     <FRAME '\1aCLEAN-DECL>
1117                     <PUSH DCL10>
1118                     <DEAD DCL10>
1119                     <CALL '\1aCLEAN-DECL 1 = DCL10>
1120                     <FRAME '\1aCLEAN-DECL>
1121                     <PUSH DCL115>
1122                     <DEAD DCL115>
1123                     <CALL '\1aCLEAN-DECL 1 = DCL115>
1124                     <EQUAL? DCL10 DCL115 - PHRASE22>
1125                     <DEAD DCL10 DCL115>
1126                     <FRAME '\1aVEQUAL-GEN>
1127                     <PUSH VAL15>
1128                     <DEAD VAL15>
1129                     <PUSH VAL26>
1130                     <DEAD VAL26>
1131                     <PUSH DIR7>
1132                     <DEAD DIR7>
1133                     <PUSH LABEL8>
1134                     <DEAD LABEL8>
1135                     <CALL '\1aVEQUAL-GEN 4>
1136                     <JUMP + PHRASE61>
1137 PHRASE22
1138                     <FRAME '\1aVAR-EQUAL-GEN>
1139                     <PUSH VAL15>
1140                     <DEAD VAL15>
1141                     <PUSH VAL26>
1142                     <DEAD VAL26>
1143                     <PUSH DIR7>
1144                     <DEAD DIR7>
1145                     <PUSH LABEL8>
1146                     <DEAD LABEL8>
1147                     <PUSH ELABEL12>
1148                     <DEAD ELABEL12>
1149                     <CALL '\1aVAR-EQUAL-GEN 5>
1150                     <JUMP + PHRASE61>
1151 PHRASE20
1152                     <FRAME '\1aVARTBL-DECL>
1153                     <PUSH VAL15>
1154                     <CALL '\1aVARTBL-DECL 1 = DCL10>
1155                     <TYPE? DCL10 <TYPE-CODE FALSE> + PHRASE33>
1156                     <FRAME '\1aCLEAN-DECL>
1157                     <PUSH DCL10>
1158                     <DEAD DCL10>
1159                     <CALL '\1aCLEAN-DECL 1 = DCL115>
1160                     <FRAME '\1aTYPE>
1161                     <PUSH VAL26>
1162                     <CALL '\1aTYPE 1 = DCL10>
1163                     <EQUAL? DCL115 DCL10 - PHRASE36>
1164                     <DEAD DCL115>
1165                     <FRAME '\1aSAFE-TYPE-WORD?>
1166                     <PUSH VAL15>
1167                     <CALL '\1aSAFE-TYPE-WORD? 1 = DCL10>
1168                     <TYPE? DCL10 <TYPE-CODE FALSE> - PHRASE36>
1169                     <DEAD DCL10>
1170                     <FRAME '\1aVEQUAL-GEN>
1171                     <PUSH VAL15>
1172                     <DEAD VAL15>
1173                     <PUSH VAL26>
1174                     <DEAD VAL26>
1175                     <PUSH DIR7>
1176                     <DEAD DIR7>
1177                     <PUSH LABEL8>
1178                     <DEAD LABEL8>
1179                     <CALL '\1aVEQUAL-GEN 4>
1180                     <JUMP + PHRASE61>
1181 PHRASE36
1182                     <FRAME '\1aERROR>
1183                     <PUSH "NOT EQUAL">
1184                     <PUSH 'EQUAL-GEN>
1185                     <CALL '\1aERROR 2>
1186                     <JUMP + PHRASE61>
1187 PHRASE33
1188                     <FRAME '\1aFIX-CONSTANT?>
1189                     <PUSH VAL26>
1190                     <CALL '\1aFIX-CONSTANT? 1 = DCL10>
1191                     <TYPE? DCL10 <TYPE-CODE FALSE> + PHRASE43>
1192                     <FRAME '\1aGEN-COMP-INST>
1193                     <FRAME '\1aVAR-VALUE-ADDRESS>
1194                     <PUSH VAL15>
1195                     <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
1196                     <FRAME '\1aMA-IMM>
1197                     <PUSH DCL10>
1198                     <DEAD DCL10>
1199                     <CALL '\1aMA-IMM 1 = STACK>
1200                     <PUSH 'LONG>
1201                     <CALL '\1aGEN-COMP-INST 3>
1202                     <FRAME '\1aVAR-TYPE-ADDRESS>
1203                     <PUSH VAL15>
1204                     <DEAD VAL15>
1205                     <CALL '\1aVAR-TYPE-ADDRESS 1 = DCL10>
1206                     <VEQUAL? DIR7 '- - PHRASE50>
1207                     <FRAME '\1aGEN-BRANCH>
1208                     <PUSH 18>
1209                     <PUSH LABEL8>
1210                     <PUSH %<>>
1211                     <CALL '\1aGEN-BRANCH 3>
1212                     <JUMP + COND49>
1213 PHRASE50
1214                     <FRAME '\1aGEN-BRANCH>
1215                     <PUSH 18>
1216                     <PUSH ELABEL12>
1217                     <PUSH %<>>
1218                     <CALL '\1aGEN-BRANCH 3>
1219 COND49
1220                     <FRAME '\1aGEN-COMP-INST>
1221                     <PUSH DCL10>
1222                     <DEAD DCL10>
1223                     <FRAME '\1aTYPE-CODE>
1224                     <FRAME '\1aTYPE>
1225                     <PUSH VAL26>
1226                     <DEAD VAL26>
1227                     <CALL '\1aTYPE 1 = STACK>
1228                     <PUSH 'WORD>
1229                     <CALL '\1aTYPE-CODE 2 = STACK>
1230                     <PUSH 'WORD>
1231                     <CALL '\1aGEN-COMP-INST 3>
1232                     <VEQUAL? DIR7 '- - PHRASE57>
1233                     <DEAD DIR7>
1234                     <FRAME '\1aGEN-BRANCH>
1235                     <PUSH 18>
1236                     <PUSH LABEL8>
1237                     <DEAD LABEL8>
1238                     <PUSH %<>>
1239                     <CALL '\1aGEN-BRANCH 3>
1240                     <JUMP + COND56>
1241 PHRASE57
1242                     <FRAME '\1aGEN-BRANCH>
1243                     <PUSH 19>
1244                     <PUSH LABEL8>
1245                     <DEAD LABEL8>
1246                     <PUSH %<>>
1247                     <CALL '\1aGEN-BRANCH 3>
1248 COND56
1249                     <FRAME '\1aGEN-LABEL>
1250                     <PUSH ELABEL12>
1251                     <DEAD ELABEL12>
1252                     <PUSH 'NORMAL>
1253                     <CALL '\1aGEN-LABEL 2>
1254                     <JUMP + PHRASE61>
1255 PHRASE43
1256                     <FRAME '\1aVAR-VALUE-IN-AC?>
1257                     <PUSH VAL15>
1258                     <CALL '\1aVAR-VALUE-IN-AC? 1 = DCL10>
1259                     <FRAME '\1aVAR-TYPE-WORD-IN-AC?>
1260                     <PUSH VAL15>
1261                     <CALL '\1aVAR-TYPE-WORD-IN-AC? 1 = DCL10>
1262                     <FRAME '\1aGEN-COMP-INST>
1263                     <FRAME '\1aVAR-TYPE-ADDRESS>
1264                     <PUSH VAL15>
1265                     <CALL '\1aVAR-TYPE-ADDRESS 1 = STACK>
1266                     <FRAME '\1aTYPE-CODE>
1267                     <FRAME '\1aTYPE>
1268                     <PUSH VAL26>
1269                     <CALL '\1aTYPE 1 = STACK>
1270                     <PUSH 'WORD>
1271                     <CALL '\1aTYPE-CODE 2 = STACK>
1272                     <PUSH 'WORD>
1273                     <CALL '\1aGEN-COMP-INST 3>
1274                     <FRAME '\1aVAR-VALUE-ADDRESS>
1275                     <PUSH VAL15>
1276                     <DEAD VAL15>
1277                     <CALL '\1aVAR-VALUE-ADDRESS 1 = DCL10>
1278                     <VEQUAL? DIR7 '- - PHRASE70>
1279                     <FRAME '\1aGEN-BRANCH>
1280                     <PUSH 18>
1281                     <PUSH LABEL8>
1282                     <PUSH %<>>
1283                     <CALL '\1aGEN-BRANCH 3>
1284                     <JUMP + COND69>
1285 PHRASE70
1286                     <FRAME '\1aGEN-BRANCH>
1287                     <PUSH 18>
1288                     <PUSH ELABEL12>
1289                     <PUSH %<>>
1290                     <CALL '\1aGEN-BRANCH 3>
1291 COND69
1292                     <FRAME '\1aGEN-COMP-INST>
1293                     <PUSH DCL10>
1294                     <DEAD DCL10>
1295                     <FRAME '\1aADDR-VALUE-MQUOTE>
1296                     <PUSH VAL26>
1297                     <DEAD VAL26>
1298                     <CALL '\1aADDR-VALUE-MQUOTE 1 = STACK>
1299                     <PUSH 'LONG>
1300                     <CALL '\1aGEN-COMP-INST 3>
1301                     <VEQUAL? DIR7 '- - PHRASE76>
1302                     <DEAD DIR7>
1303                     <FRAME '\1aGEN-BRANCH>
1304                     <PUSH 18>
1305                     <PUSH LABEL8>
1306                     <DEAD LABEL8>
1307                     <PUSH %<>>
1308                     <CALL '\1aGEN-BRANCH 3>
1309                     <JUMP + COND75>
1310 PHRASE76
1311                     <FRAME '\1aGEN-BRANCH>
1312                     <PUSH 19>
1313                     <PUSH LABEL8>
1314                     <DEAD LABEL8>
1315                     <PUSH %<>>
1316                     <CALL '\1aGEN-BRANCH 3>
1317 COND75
1318                     <FRAME '\1aGEN-LABEL>
1319                     <PUSH ELABEL12>
1320                     <DEAD ELABEL12>
1321                     <PUSH 'NORMAL>
1322                     <CALL '\1aGEN-LABEL 2>
1323 PHRASE61
1324                     <FRAME '\1aCLEAR-STATUS>
1325                     <CALL '\1aCLEAR-STATUS 0>
1326                     <RETURN 'NORMAL>
1327                     <END \1aEQUAL-GEN>\r\0\r\0
1328 #WORD *15441327753*
1329 <GFCN \1aVAR-EQUAL-GEN ("VALUE" ATOM VARTBL VARTBL ATOM ATOM ATOM) VAR15 VAR26 DIR7 LABEL8 ELABEL9>
1330                     <TEMP DCL10 DCL112 TEMP24 TEMP26 TAC13>
1331                     <INTGO>
1332                     <FRAME '\1aVARTBL-DECL>
1333                     <PUSH VAR26>
1334                     <CALL '\1aVARTBL-DECL 1 = DCL10>
1335                     <FRAME '\1aVARTBL-DECL>
1336                     <PUSH VAR15>
1337                     <CALL '\1aVARTBL-DECL 1 = DCL112>
1338                     <TYPE? DCL10 <TYPE-CODE FALSE> + PHRASE21>
1339                     <TYPE? DCL112 <TYPE-CODE FALSE> + BOOL22>
1340                     <FRAME '\1aCLEAN-DECL>
1341                     <PUSH DCL10>
1342                     <CALL '\1aCLEAN-DECL 1 = TEMP24>
1343                     <FRAME '\1aCLEAN-DECL>
1344                     <PUSH DCL112>
1345                     <CALL '\1aCLEAN-DECL 1 = TEMP26>
1346                     <EQUAL? TEMP24 TEMP26 + BOOL22>
1347                     <DEAD TEMP24 TEMP26>
1348                     <FRAME '\1aERROR>
1349                     <PUSH "NOT EQUAL">
1350                     <PUSH 'VAR-EQUAL-GEN>
1351                     <CALL '\1aERROR 2>
1352 BOOL22
1353                     <SET TEMP24 VAR26>
1354                     <DEAD VAR26>
1355                     <SET VAR26 VAR15>
1356                     <DEAD VAR15>
1357                     <SET VAR15 TEMP24>
1358                     <DEAD TEMP24>
1359                     <SET TEMP24 DCL10>
1360                     <DEAD DCL10>
1361                     <SET DCL10 DCL112>
1362                     <DEAD DCL112>
1363                     <SET DCL112 TEMP24>
1364                     <DEAD TEMP24>
1365 PHRASE21
1366                     <FRAME '\1aVAR-VALUE-IN-AC?>
1367                     <PUSH VAR15>
1368                     <CALL '\1aVAR-VALUE-IN-AC? 1 = TEMP24>
1369                     <FRAME '\1aVAR-TYPE-WORD-IN-AC?>
1370                     <PUSH VAR15>
1371                     <CALL '\1aVAR-TYPE-WORD-IN-AC? 1 = TAC13>
1372                     <SET TEMP26 %<> (TYPE FALSE)>
1373                     <SET TEMP26 %<> (TYPE FALSE)>
1374                     <FRAME '\1aFRIENDLY-VAR?>
1375                     <PUSH VAR15>
1376                     <PUSH TAC13>
1377                     <PUSH TEMP24>
1378                     <DEAD TEMP24>
1379                     <CALL '\1aFRIENDLY-VAR? 3 = TEMP26>
1380                     <TYPE? TEMP26 <TYPE-CODE FALSE> + COND33>
1381                     <VEQUAL? TEMP26 'AC - PHRASE34>
1382                     <DEAD TEMP26>
1383                     <NTHUV TAC13 2 = TEMP26 (TYPE FIX)>
1384                     <DEAD TAC13>
1385                     <OR TEMP26 80 = TEMP26>
1386                     <LSH TEMP26 24 = TEMP26 (TYPE FIX)>
1387                     <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = TEMP26>
1388                     <JUMP + COND33>
1389 PHRASE34
1390                     <FRAME '\1aADDR-VAR-TYPE>
1391                     <PUSH VAR15>
1392                     <CALL '\1aADDR-VAR-TYPE 1 = TEMP26>
1393 COND33
1394                     <FRAME '\1aVAR-TYPE-WORD-IN-AC?>
1395                     <PUSH VAR26>
1396                     <CALL '\1aVAR-TYPE-WORD-IN-AC? 1 = TAC13>
1397                     <FRAME '\1aVAR-VALUE-IN-AC?>
1398                     <PUSH VAR26>
1399                     <CALL '\1aVAR-VALUE-IN-AC? 1 = TEMP24>
1400                     <FRAME '\1aGEN-COMP-INST>
1401                     <FRAME '\1aVAR-VALUE-ADDRESS>
1402                     <PUSH VAR15>
1403                     <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
1404                     <FRAME '\1aVAR-VALUE-ADDRESS>
1405                     <PUSH VAR26>
1406                     <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
1407                     <PUSH 'LONG>
1408                     <CALL '\1aGEN-COMP-INST 3>
1409                     <VEQUAL? DIR7 '- - PHRASE42>
1410                     <FRAME '\1aGEN-BRANCH>
1411                     <PUSH 18>
1412                     <PUSH LABEL8>
1413                     <PUSH %<>>
1414                     <PUSH %<>>
1415                     <PUSH %<>>
1416                     <PUSH 'T>
1417                     <CALL '\1aGEN-BRANCH 6>
1418                     <JUMP + PHRASE44>
1419 PHRASE42
1420                     <FRAME '\1aGEN-BRANCH>
1421                     <PUSH 18>
1422                     <PUSH ELABEL9>
1423                     <PUSH %<>>
1424                     <PUSH %<>>
1425                     <PUSH %<>>
1426                     <PUSH 'T>
1427                     <CALL '\1aGEN-BRANCH 6>
1428 PHRASE44
1429                     <GVAL 'GC-MODE = TEMP26>
1430                     <TYPE? TEMP26 <TYPE-CODE FALSE> + PHRASE47>
1431                     <DEAD TEMP26>
1432                     <TYPE? DCL10 <TYPE-CODE FALSE> + BOOL49>
1433                     <TYPE? DCL112 <TYPE-CODE FALSE> - PHRASE47>
1434 BOOL49
1435                     <FRAME '\1aEMIT>
1436                     <PUSH 173>
1437                     <TYPE? DCL10 <TYPE-CODE FALSE> + PHRASE52>
1438                     <FRAME '\1aTYPE-CODE>
1439                     <PUSH DCL10>
1440                     <DEAD DCL10>
1441                     <CALL '\1aTYPE-CODE 1 = TEMP26>
1442                     <JUMP + PHRASE54>
1443 PHRASE52
1444                     <FRAME '\1aVAR-TYPE-ADDRESS>
1445                     <PUSH VAR26>
1446                     <DEAD VAR26>
1447                     <CALL '\1aVAR-TYPE-ADDRESS 1 = TEMP26>
1448 PHRASE54
1449                     <PUSH TEMP26>
1450                     <DEAD TEMP26>
1451                     <TYPE? DCL112 <TYPE-CODE FALSE> + PHRASE57>
1452                     <FRAME '\1aTYPE-CODE>
1453                     <PUSH DCL112>
1454                     <DEAD DCL112>
1455                     <CALL '\1aTYPE-CODE 1 = TEMP26>
1456                     <JUMP + PHRASE59>
1457 PHRASE57
1458                     <FRAME '\1aVAR-TYPE-ADDRESS>
1459                     <PUSH VAR15>
1460                     <DEAD VAR15>
1461                     <CALL '\1aVAR-TYPE-ADDRESS 1 = TEMP26>
1462 PHRASE59
1463                     <PUSH TEMP26>
1464                     <DEAD TEMP26>
1465                     <FRAME '\1aGET-AC>
1466                     <PUSH 'PREF-TYPE>
1467                     <PUSH 'T>
1468                     <CALL '\1aGET-AC 2 = TAC13>
1469                     <NTHUV TAC13 2 = TEMP26 (TYPE FIX)>
1470                     <OR TEMP26 80 = TEMP26>
1471                     <LSH TEMP26 24 = TEMP26 (TYPE FIX)>
1472                     <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = STACK>
1473                     <DEAD TEMP26>
1474                     <CALL '\1aEMIT 4>
1475                     <FRAME '\1aEMIT>
1476                     <PUSH 170>
1477                     <GVAL 'AC-PC = TEMP26>
1478                     <NTHUV TEMP26 2 = TEMP26 (TYPE FIX)>
1479                     <OR TEMP26 128 = TEMP26>
1480                     <LSH TEMP26 24 = TEMP26 (TYPE FIX)>
1481                     <SET DCL10 32800 (TYPE FIX)>
1482                     <AND DCL10 255 = TEMP24>
1483                     <LSH TEMP24 16 = TEMP24 (TYPE FIX)>
1484                     <AND DCL10 65280 = DCL112>
1485                     <DEAD DCL10>
1486                     <OR TEMP24 DCL112 = TEMP24>
1487                     <DEAD DCL112>
1488                     <AND TEMP24 16776960 = TEMP24>
1489                     <OR TEMP26 TEMP24 = TEMP26>
1490                     <DEAD TEMP24>
1491                     <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = STACK>
1492                     <DEAD TEMP26>
1493                     <NTHUV TAC13 2 = DCL112 (TYPE FIX)>
1494                     <DEAD TAC13>
1495                     <OR DCL112 80 = DCL112>
1496                     <LSH DCL112 24 = DCL112 (TYPE FIX)>
1497                     <CHTYPE DCL112 <TYPE-CODE EFF-ADDR> = STACK>
1498                     <DEAD DCL112>
1499                     <CALL '\1aEMIT 3>
1500                     <JUMP + PHRASE69>
1501 PHRASE47
1502                     <TYPE? DCL10 <TYPE-CODE FALSE> + BOOL70>
1503                     <TYPE? DCL112 <TYPE-CODE FALSE> - PHRASE69>
1504 BOOL70
1505                     <FRAME '\1aGEN-COMP-INST>
1506                     <TYPE? DCL112 <TYPE-CODE FALSE> + PHRASE73>
1507                     <FRAME '\1aTYPE-CODE>
1508                     <PUSH DCL112>
1509                     <DEAD DCL112>
1510                     <CALL '\1aTYPE-CODE 1 = DCL112>
1511                     <JUMP + PHRASE75>
1512 PHRASE73
1513                     <FRAME '\1aVAR-TYPE-ADDRESS>
1514                     <PUSH VAR15>
1515                     <DEAD VAR15>
1516                     <CALL '\1aVAR-TYPE-ADDRESS 1 = DCL112>
1517 PHRASE75
1518                     <PUSH DCL112>
1519                     <DEAD DCL112>
1520                     <TYPE? DCL10 <TYPE-CODE FALSE> + PHRASE78>
1521                     <FRAME '\1aTYPE-CODE>
1522                     <PUSH DCL10>
1523                     <DEAD DCL10>
1524                     <CALL '\1aTYPE-CODE 1 = DCL112>
1525                     <JUMP + PHRASE80>
1526 PHRASE78
1527                     <FRAME '\1aVAR-TYPE-ADDRESS>
1528                     <PUSH VAR26>
1529                     <DEAD VAR26>
1530                     <CALL '\1aVAR-TYPE-ADDRESS 1 = DCL112>
1531 PHRASE80
1532                     <PUSH DCL112>
1533                     <DEAD DCL112>
1534                     <PUSH 'WORD>
1535                     <CALL '\1aGEN-COMP-INST 3>
1536 PHRASE69
1537                     <VEQUAL? DIR7 '- - PHRASE83>
1538                     <DEAD DIR7>
1539                     <FRAME '\1aGEN-BRANCH>
1540                     <PUSH 18>
1541                     <PUSH LABEL8>
1542                     <DEAD LABEL8>
1543                     <PUSH %<>>
1544                     <CALL '\1aGEN-BRANCH 3>
1545                     <JUMP + COND82>
1546 PHRASE83
1547                     <FRAME '\1aGEN-BRANCH>
1548                     <PUSH 19>
1549                     <PUSH LABEL8>
1550                     <DEAD LABEL8>
1551                     <PUSH %<>>
1552                     <CALL '\1aGEN-BRANCH 3>
1553 COND82
1554                     <FRAME '\1aGEN-LABEL>
1555                     <PUSH ELABEL9>
1556                     <DEAD ELABEL9>
1557                     <PUSH 'NORMAL>
1558                     <CALL '\1aGEN-LABEL 2>
1559                     <RETURN 'T>
1560                     <END \1aVAR-EQUAL-GEN>\r\0\r\0
1561 #WORD *5476044507*
1562 <GFCN \1aFRIENDLY-VAR? ("VALUE" <OR ATOM FALSE> VARTBL <OR AC FALSE> <OR AC FALSE>) VAR5 TAC6 VAC7>
1563                     <TEMP TEMP9>
1564                     <INTGO>
1565                     <TYPE? VAC7 <TYPE-CODE FALSE> - TAG11>
1566                     <TYPE? TAC6 <TYPE-CODE FALSE> - TAG11>
1567                     <RETURN 'T>
1568 TAG11
1569                     <TYPE? TAC6 <TYPE-CODE FALSE> + PHRASE12>
1570                     <TYPE? VAC7 <TYPE-CODE FALSE> + PHRASE12>
1571                     <FRAME '\1aNEXT-AC>
1572                     <PUSH TAC6>
1573                     <CALL '\1aNEXT-AC 1 = TEMP9>
1574                     <EQUAL? VAC7 TEMP9 - PHRASE12>
1575                     <DEAD TEMP9>
1576                     <RETURN 'AC>
1577 PHRASE12
1578                     <TYPE? TAC6 <TYPE-CODE FALSE> - PHRASE16>
1579                     <FRAME '\1aAC-VAR-STORED?>
1580                     <PUSH VAR5>
1581                     <PUSH VAC7>
1582                     <CALL '\1aAC-VAR-STORED? 2 = TEMP9>
1583                     <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE16>
1584                     <DEAD TEMP9>
1585                     <RETURN 'T>
1586 PHRASE16
1587                     <TYPE? VAC7 <TYPE-CODE FALSE> + TAG21>
1588                     <DEAD VAC7>
1589                     <RETURN %<>>
1590 TAG21
1591                     <FRAME '\1aAC-VAR-STORED?>
1592                     <PUSH VAR5>
1593                     <DEAD VAR5>
1594                     <PUSH TAC6>
1595                     <DEAD TAC6>
1596                     <CALL '\1aAC-VAR-STORED? 2 = TEMP9>
1597                     <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE19>
1598                     <SET TEMP9 'T (TYPE ATOM)>
1599 PHRASE19
1600                     <RETURN TEMP9>
1601                     <DEAD TEMP9>
1602                     <END \1aFRIENDLY-VAR?>
1603 #WORD *31335372067*
1604 <GFCN \1aCOMP-GEN ("VALUE" ATOM ANY ANY ATOM ATOM FIX "OPTIONAL" <OR FALSE ATOM>) VAL18 VAL29 DIR10 LABEL11 MODE12 TYP13>
1605                     <OPT-DISPATCH 5 %<> OPT6 OPT7>
1606 OPT6
1607                     <PUSH 'FIX>
1608 OPT7
1609                     <TEMP BRANCH-CODE14>
1610                     <INTGO>
1611                     <FRAME '\1aCOMPUTE-DIRECTION>
1612                     <PUSH DIR10>
1613                     <DEAD DIR10>
1614                     <PUSH MODE12>
1615                     <DEAD MODE12>
1616                     <CALL '\1aCOMPUTE-DIRECTION 2 = BRANCH-CODE14>
1617                     <TYPE? VAL18 <TYPE-CODE VARTBL> + PHRASE17>
1618                     <FRAME '\1aCONST-COMP-GEN>
1619                     <PUSH VAL18>
1620                     <DEAD VAL18>
1621                     <PUSH VAL29>
1622                     <DEAD VAL29>
1623                     <PUSH LABEL11>
1624                     <DEAD LABEL11>
1625                     <FRAME '\1aREVERSE-BC>
1626                     <PUSH BRANCH-CODE14>
1627                     <DEAD BRANCH-CODE14>
1628                     <CALL '\1aREVERSE-BC 1 = STACK>
1629                     <PUSH TYP13>
1630                     <DEAD TYP13>
1631                     <CALL '\1aCONST-COMP-GEN 5>
1632                     <JUMP + COND16>
1633 PHRASE17
1634                     <TYPE? VAL29 <TYPE-CODE VARTBL> + PHRASE20>
1635                     <FRAME '\1aCONST-COMP-GEN>
1636                     <PUSH VAL29>
1637                     <DEAD VAL29>
1638                     <PUSH VAL18>
1639                     <DEAD VAL18>
1640                     <PUSH LABEL11>
1641                     <DEAD LABEL11>
1642                     <PUSH BRANCH-CODE14>
1643                     <DEAD BRANCH-CODE14>
1644                     <PUSH TYP13>
1645                     <DEAD TYP13>
1646                     <CALL '\1aCONST-COMP-GEN 5>
1647                     <JUMP + COND16>
1648 PHRASE20
1649                     <FRAME '\1aVAR-COMP-GEN>
1650                     <PUSH VAL18>
1651                     <DEAD VAL18>
1652                     <PUSH VAL29>
1653                     <DEAD VAL29>
1654                     <PUSH LABEL11>
1655                     <DEAD LABEL11>
1656                     <PUSH BRANCH-CODE14>
1657                     <DEAD BRANCH-CODE14>
1658                     <PUSH TYP13>
1659                     <DEAD TYP13>
1660                     <CALL '\1aVAR-COMP-GEN 5>
1661 COND16
1662                     <FRAME '\1aCLEAR-STATUS>
1663                     <CALL '\1aCLEAR-STATUS 0>
1664                     <RETURN 'NORMAL>
1665                     <END \1aCOMP-GEN>\r\0\r\0
1666 #WORD *17747243327*
1667 <GFCN \1aCONST-COMP-GEN ("VALUE" ANY ANY VARTBL ATOM FIX "OPTIONAL" <OR FALSE ATOM>) CONST8 VAR9 LABEL10 DIRCODE11 TYP12>
1668                     <OPT-DISPATCH 4 %<> OPT6 OPT7>
1669 OPT6
1670                     <PUSH 'FIX>
1671 OPT7
1672                     <TEMP FIXCONST13 VAC14>
1673                     <INTGO>
1674                     <FRAME '\1aFIX-CONSTANT?>
1675                     <PUSH CONST8>
1676                     <CALL '\1aFIX-CONSTANT? 1 = FIXCONST13>
1677                     <TYPE? FIXCONST13 <TYPE-CODE FALSE> + PHRASE17>
1678                     <VEQUAL? FIXCONST13 0 - PHRASE20 (TYPE FIX)>
1679                     <FRAME '\1aZERO-TEST-GEN>
1680                     <PUSH VAR9>
1681                     <DEAD VAR9>
1682                     <PUSH DIRCODE11>
1683                     <DEAD DIRCODE11>
1684                     <PUSH LABEL10>
1685                     <DEAD LABEL10>
1686                     <PUSH TYP12>
1687                     <DEAD TYP12>
1688                     <CALL '\1aZERO-TEST-GEN 4 = FIXCONST13>
1689                     <RETURN FIXCONST13>
1690                     <DEAD FIXCONST13>
1691 PHRASE20
1692                     <FRAME '\1aVAR-VALUE-IN-AC?>
1693                     <PUSH VAR9>
1694                     <CALL '\1aVAR-VALUE-IN-AC? 1 = VAC14>
1695                     <TYPE? VAC14 <TYPE-CODE FALSE> + PHRASE25>
1696                     <FRAME '\1aGEN-COMP-INST>
1697                     <NTHUV VAC14 2 = VAC14 (TYPE FIX)>
1698                     <OR VAC14 80 = VAC14>
1699                     <LSH VAC14 24 = VAC14 (TYPE FIX)>
1700                     <CHTYPE VAC14 <TYPE-CODE EFF-ADDR> = STACK>
1701                     <DEAD VAC14>
1702                     <TYPE? CONST8 <TYPE-CODE FLOAT> - PHRASE30>
1703                     <FRAME '\1aFLOAT-IMM>
1704                     <FRAME '\1aFLOATCONVERT>
1705                     <PUSH CONST8>
1706                     <DEAD CONST8>
1707                     <CALL '\1aFLOATCONVERT 1 = STACK>
1708                     <CALL '\1aFLOAT-IMM 1 = VAC14>
1709                     <JUMP + PHRASE33>
1710 PHRASE30
1711                     <FRAME '\1aMA-IMM>
1712                     <PUSH FIXCONST13>
1713                     <DEAD FIXCONST13>
1714                     <CALL '\1aMA-IMM 1 = VAC14>
1715 PHRASE33
1716                     <PUSH VAC14>
1717                     <DEAD VAC14>
1718                     <PUSH 'LONG>
1719                     <PUSH TYP12>
1720                     <DEAD TYP12>
1721                     <CALL '\1aGEN-COMP-INST 4>
1722                     <FRAME '\1aGEN-TEST-INST>
1723                     <PUSH DIRCODE11>
1724                     <DEAD DIRCODE11>
1725                     <PUSH LABEL10>
1726                     <DEAD LABEL10>
1727                     <PUSH %<>>
1728                     <CALL '\1aGEN-TEST-INST 3 = FIXCONST13>
1729                     <RETURN FIXCONST13>
1730                     <DEAD FIXCONST13>
1731 PHRASE25
1732                     <FRAME '\1aGEN-COMP-INST>
1733                     <FRAME '\1aADDR-VAR-VALUE>
1734                     <PUSH VAR9>
1735                     <DEAD VAR9>
1736                     <CALL '\1aADDR-VAR-VALUE 1 = STACK>
1737                     <TYPE? CONST8 <TYPE-CODE FLOAT> - PHRASE40>
1738                     <FRAME '\1aFLOAT-IMM>
1739                     <FRAME '\1aFLOATCONVERT>
1740                     <PUSH CONST8>
1741                     <DEAD CONST8>
1742                     <CALL '\1aFLOATCONVERT 1 = STACK>
1743                     <CALL '\1aFLOAT-IMM 1 = VAC14>
1744                     <JUMP + PHRASE43>
1745 PHRASE40
1746                     <FRAME '\1aMA-IMM>
1747                     <PUSH FIXCONST13>
1748                     <DEAD FIXCONST13>
1749                     <CALL '\1aMA-IMM 1 = VAC14>
1750 PHRASE43
1751                     <PUSH VAC14>
1752                     <DEAD VAC14>
1753                     <PUSH 'LONG>
1754                     <PUSH TYP12>
1755                     <DEAD TYP12>
1756                     <CALL '\1aGEN-COMP-INST 4>
1757                     <FRAME '\1aGEN-TEST-INST>
1758                     <PUSH DIRCODE11>
1759                     <DEAD DIRCODE11>
1760                     <PUSH LABEL10>
1761                     <DEAD LABEL10>
1762                     <PUSH %<>>
1763                     <CALL '\1aGEN-TEST-INST 3 = FIXCONST13>
1764                     <RETURN FIXCONST13>
1765                     <DEAD FIXCONST13>
1766 PHRASE17
1767                     <FRAME '\1aGEN-COMP-INST>
1768                     <FRAME '\1aVAR-VALUE-ADDRESS>
1769                     <PUSH VAR9>
1770                     <DEAD VAR9>
1771                     <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
1772                     <FRAME '\1aADDR-VALUE-MQUOTE>
1773                     <PUSH CONST8>
1774                     <DEAD CONST8>
1775                     <CALL '\1aADDR-VALUE-MQUOTE 1 = STACK>
1776                     <PUSH 'LONG>
1777                     <PUSH TYP12>
1778                     <DEAD TYP12>
1779                     <CALL '\1aGEN-COMP-INST 4>
1780                     <FRAME '\1aGEN-TEST-INST>
1781                     <PUSH DIRCODE11>
1782                     <DEAD DIRCODE11>
1783                     <PUSH LABEL10>
1784                     <DEAD LABEL10>
1785                     <PUSH %<>>
1786                     <CALL '\1aGEN-TEST-INST 3 = FIXCONST13>
1787                     <RETURN FIXCONST13>
1788                     <DEAD FIXCONST13>
1789                     <END \1aCONST-COMP-GEN>
1790 <SETG COMP-TABLE <UVECTOR ,COND-CODE-LT ,COND-CODE-EQ ,COND-CODE-GT>>
1791
1792 <SETG NCOMP-TABLE <UVECTOR ,COND-CODE-GE ,COND-CODE-NE ,COND-CODE-LE>>
1793
1794 <COND (<NOT <GASSIGNED? REVERSE-TABLE>> <SETG REVERSE-TABLE <IUVECTOR 15 0>>)>
1795
1796 #WORD *6102761341*
1797 <GFCN \1aMAKE-REVERSE ("VALUE" <UVECTOR FIX> ANY ANY) CODE5 REV-CODE6>
1798                     <TEMP TEMP8:UVECTOR>
1799                     <INTGO>
1800                     <FRAME '\1aPUT>
1801                     <GVAL 'REVERSE-TABLE = STACK>
1802                     <PUSH CODE5>
1803                     <DEAD CODE5>
1804                     <PUSH REV-CODE6>
1805                     <DEAD REV-CODE6>
1806                     <CALL '\1aPUT 3 = TEMP8>
1807                     <RETURN TEMP8>
1808                     <DEAD TEMP8>
1809                     <END \1aMAKE-REVERSE>
1810 <COND (<NOT <GASSIGNED? BRANCHES>> <SETG BRANCHES <IUVECTOR 16 0>>)>
1811
1812 <GDECL (BRANCHES) <UVECTOR [REST FIX]>>
1813
1814 #WORD *23212117553*
1815 <GFCN \1aINIT-BRANCH-TABLES ("VALUE" <OR FALSE <UVECTOR [REST FIX]>>)>
1816                     <TEMP B5:UVECTOR TEMP21 TEMP23:LIST TEMP24>
1817                     <INTGO>
1818                     <GVAL 'BRANCHES = B5>
1819                     <FRAME '\1aMAKE-REVERSE>
1820                     <PUSH 7>
1821                     <PUSH 7>
1822                     <CALL '\1aMAKE-REVERSE 2>
1823                     <FRAME '\1aMAKE-REVERSE>
1824                     <PUSH 6>
1825                     <PUSH 6>
1826                     <CALL '\1aMAKE-REVERSE 2>
1827                     <FRAME '\1aMAKE-REVERSE>
1828                     <PUSH 15>
1829                     <PUSH 12>
1830                     <CALL '\1aMAKE-REVERSE 2>
1831                     <FRAME '\1aMAKE-REVERSE>
1832                     <PUSH 13>
1833                     <PUSH 14>
1834                     <CALL '\1aMAKE-REVERSE 2>
1835                     <FRAME '\1aMAKE-REVERSE>
1836                     <PUSH 12>
1837                     <PUSH 15>
1838                     <CALL '\1aMAKE-REVERSE 2>
1839                     <FRAME '\1aMAKE-REVERSE>
1840                     <PUSH 14>
1841                     <PUSH 13>
1842                     <CALL '\1aMAKE-REVERSE 2>
1843                     <SET TEMP21 %<> (TYPE FALSE)>
1844                     <CONS 17 () = TEMP23>
1845                     <CONS 0 TEMP23 = TEMP23>
1846                     <CONS TEMP23 () = TEMP23>
1847                     <CONS 24 () = TEMP24>
1848                     <CONS 12 TEMP24 = TEMP24>
1849                     <CONS TEMP24 TEMP23 = TEMP23>
1850                     <DEAD TEMP24>
1851                     <CONS 20 () = TEMP24>
1852                     <CONS 14 TEMP24 = TEMP24>
1853                     <CONS TEMP24 TEMP23 = TEMP23>
1854                     <DEAD TEMP24>
1855                     <CONS 25 () = TEMP24>
1856                     <CONS 13 TEMP24 = TEMP24>
1857                     <CONS TEMP24 TEMP23 = TEMP23>
1858                     <DEAD TEMP24>
1859                     <CONS 21 () = TEMP24>
1860                     <CONS 15 TEMP24 = TEMP24>
1861                     <CONS TEMP24 TEMP23 = TEMP23>
1862                     <DEAD TEMP24>
1863                     <CONS 18 () = TEMP24>
1864                     <CONS 6 TEMP24 = TEMP24>
1865                     <CONS TEMP24 TEMP23 = TEMP23>
1866                     <DEAD TEMP24>
1867                     <CONS 19 () = TEMP24>
1868                     <CONS 7 TEMP24 = TEMP24>
1869                     <CONS TEMP24 TEMP23 = TEMP23>
1870                     <DEAD TEMP24>
1871                     <LOOP>
1872 MAP13
1873                     <INTGO>
1874                     <EMPL? TEMP23 + MAPAP16>
1875                     <NTHL TEMP23 1 = TEMP21>
1876                     <NTHL TEMP21 1 = TEMP24 (TYPE FIX)>
1877                     <ADD TEMP24 1 = TEMP24 (TYPE FIX)>
1878                     <RESTL TEMP21 1 = TEMP21 (TYPE LIST)>
1879                     <NTHL TEMP21 1 = TEMP21 (TYPE FIX)>
1880                     <PUTUU B5 TEMP24 TEMP21>
1881                     <DEAD TEMP24 TEMP21>
1882                     <SET TEMP21 B5>
1883                     <RESTL TEMP23 1 = TEMP23 (TYPE LIST)>
1884                     <JUMP + MAP13>
1885 MAPAP16
1886                     <RETURN TEMP21>
1887                     <DEAD TEMP21>
1888                     <END \1aINIT-BRANCH-TABLES>
1889 #WORD *30716076222*
1890 <GFCN \1aCOMPUTE-DIRECTION ("VALUE" ANY ATOM FIX) DIR5 MODE6>
1891                     <TEMP TEMP9>
1892                     <INTGO>
1893                     <VEQUAL? DIR5 '+ - PHRASE8>
1894                     <GVAL 'COMP-TABLE = TEMP9>
1895                     <NTHUU TEMP9 MODE6 = TEMP9 (TYPE FIX)>
1896                     <DEAD MODE6>
1897                     <RETURN TEMP9>
1898                     <DEAD TEMP9>
1899 PHRASE8
1900                     <VEQUAL? DIR5 '- - PHRASE10>
1901                     <GVAL 'NCOMP-TABLE = TEMP9>
1902                     <NTHUU TEMP9 MODE6 = TEMP9 (TYPE FIX)>
1903                     <DEAD MODE6>
1904                     <RETURN TEMP9>
1905                     <DEAD TEMP9>
1906 PHRASE10
1907                     <FRAME '\1aERROR>
1908                     <PUSH "BAD DIRECTION">
1909                     <PUSH DIR5>
1910                     <DEAD DIR5>
1911                     <PUSH 'COMPUTE-DIRECTION>
1912                     <CALL '\1aERROR 3 = TEMP9>
1913                     <RETURN TEMP9>
1914                     <DEAD TEMP9>
1915                     <END \1aCOMPUTE-DIRECTION>
1916 #WORD *20165503404*
1917 <GFCN \1aREVERSE-BC ("VALUE" FIX FIX) MODE5>
1918                     <TEMP TEMP6>
1919                     <INTGO>
1920                     <GVAL 'REVERSE-TABLE = TEMP6>
1921                     <NTHUU TEMP6 MODE5 = TEMP6 (TYPE FIX)>
1922                     <DEAD MODE5>
1923                     <RETURN TEMP6>
1924                     <DEAD TEMP6>
1925                     <END \1aREVERSE-BC>
1926 #WORD *7725222054*
1927 <GFCN \1aZERO-TEST-GEN ("VALUE" ANY VARTBL FIX ATOM "OPTIONAL" <OR ATOM FALSE>) VAR8 DIRCODE9 LABEL10 TYP11>
1928                     <OPT-DISPATCH 3 %<> OPT6 OPT7>
1929 OPT6
1930                     <PUSH 'FIX>
1931 OPT7
1932                     <TEMP VADDR13 STATUS?12 TEMP31 TEMP40>
1933                     <INTGO>
1934                     <FRAME '\1aVAR-VALUE-ADDRESS>
1935                     <PUSH VAR8>
1936                     <CALL '\1aVAR-VALUE-ADDRESS 1 = VADDR13>
1937                     <TYPE? TYP11 <TYPE-CODE FALSE> - PHRASE20>
1938                     <FRAME '\1aVARTBL-DECL>
1939                     <PUSH VAR8>
1940                     <CALL '\1aVARTBL-DECL 1 = TYP11>
1941 PHRASE20
1942                     <FRAME '\1aSTATUS?>
1943                     <PUSH VAR8>
1944                     <PUSH 'VALUE>
1945                     <CALL '\1aSTATUS? 2 = STATUS?12>
1946                     <TYPE? STATUS?12 <TYPE-CODE FALSE> + BOOL24>
1947                     <TYPE? TYP11 <TYPE-CODE FALSE> - PHRASE23>
1948 BOOL24
1949                     <TYPE? TYP11 <TYPE-CODE FALSE> + PHRASE27>
1950                     <FRAME '\1aEMIT>
1951                     <VEQUAL? TYP11 'FIX - PHRASE30>
1952                     <DEAD TYP11>
1953                     <SET TEMP31 213 (TYPE FIX)>
1954                     <JUMP + PHRASE32>
1955 PHRASE30
1956                     <SET TEMP31 83 (TYPE FIX)>
1957 PHRASE32
1958                     <PUSH TEMP31>
1959                     <DEAD TEMP31>
1960                     <PUSH VADDR13>
1961                     <DEAD VADDR13>
1962                     <CALL '\1aEMIT 2>
1963                     <FRAME '\1aGEN-TEST-INST>
1964                     <PUSH DIRCODE9>
1965                     <DEAD DIRCODE9>
1966                     <PUSH LABEL10>
1967                     <DEAD LABEL10>
1968                     <PUSH STATUS?12>
1969                     <DEAD STATUS?12>
1970                     <CALL '\1aGEN-TEST-INST 3 = TEMP31>
1971                     <RETURN TEMP31>
1972                     <DEAD TEMP31>
1973 PHRASE27
1974                     <FRAME '\1aVAR-TYPE-IN-AC?>
1975                     <PUSH VAR8>
1976                     <CALL '\1aVAR-TYPE-IN-AC? 1 = TEMP31>
1977                     <TYPE? TEMP31 <TYPE-CODE FALSE> - BOOL37>
1978                     <FRAME '\1aVAR-TYPE-WORD-IN-AC?>
1979                     <PUSH VAR8>
1980                     <CALL '\1aVAR-TYPE-WORD-IN-AC? 1 = TEMP31>
1981                     <TYPE? TEMP31 <TYPE-CODE FALSE> - BOOL37>
1982                     <GVAL 'GC-MODE = TEMP40>
1983                     <TYPE? TEMP40 <TYPE-CODE FALSE> + PHRASE36>
1984                     <DEAD TEMP40>
1985 BOOL37
1986                     <TYPE? TEMP31 <TYPE-CODE FALSE> - PHRASE42>
1987                     <FRAME '\1aLOAD-VAR>
1988                     <PUSH VAR8>
1989                     <DEAD VAR8>
1990                     <PUSH 'TYPE>
1991                     <PUSH %<>>
1992                     <PUSH 'TYPE>
1993                     <CALL '\1aLOAD-VAR 4 = TEMP31>
1994 PHRASE42
1995                     <FRAME '\1aGEN-COMP-INST>
1996                     <NTHUV TEMP31 2 = TEMP40 (TYPE FIX)>
1997                     <DEAD TEMP31>
1998                     <OR TEMP40 80 = TEMP40>
1999                     <LSH TEMP40 24 = TEMP40 (TYPE FIX)>
2000                     <CHTYPE TEMP40 <TYPE-CODE EFF-ADDR> = STACK>
2001                     <DEAD TEMP40>
2002                     <FRAME '\1aTYPE-CODE>
2003                     <PUSH 'FIX>
2004                     <PUSH 'FIX>
2005                     <CALL '\1aTYPE-CODE 2 = STACK>
2006                     <PUSH 'WORD>
2007                     <CALL '\1aGEN-COMP-INST 3>
2008                     <JUMP + PHRASE46>
2009 PHRASE36
2010                     <FRAME '\1aEMIT>
2011                     <PUSH 177>
2012                     <FRAME '\1aVAR-TYPE-ADDRESS>
2013                     <PUSH VAR8>
2014                     <DEAD VAR8>
2015                     <CALL '\1aVAR-TYPE-ADDRESS 1 = STACK>
2016                     <FRAME '\1aTYPE-CODE>
2017                     <PUSH 'FIX>
2018                     <PUSH 'FIX>
2019                     <CALL '\1aTYPE-CODE 2 = STACK>
2020                     <CALL '\1aEMIT 3>
2021                     <FRAME '\1aCLEAR-STATUS>
2022                     <CALL '\1aCLEAR-STATUS 0>
2023 PHRASE46
2024                     <FRAME '\1aGEN-BRANCH>
2025                     <PUSH 19>
2026                     <FRAME '\1aMAKE-LABEL>
2027                     <PUSH 'T>
2028                     <CALL '\1aMAKE-LABEL 1 = TEMP31>
2029                     <PUSH TEMP31>
2030                     <PUSH %<>>
2031                     <PUSH %<>>
2032                     <PUSH %<>>
2033                     <PUSH 'T>
2034                     <CALL '\1aGEN-BRANCH 6>
2035                     <FRAME '\1aEMIT>
2036                     <PUSH 83>
2037                     <PUSH VADDR13>
2038                     <CALL '\1aEMIT 2>
2039                     <FRAME '\1aGEN-TEST-INST>
2040                     <PUSH DIRCODE9>
2041                     <PUSH LABEL10>
2042                     <PUSH STATUS?12>
2043                     <CALL '\1aGEN-TEST-INST 3>
2044                     <FRAME '\1aGEN-BRANCH>
2045                     <PUSH 17>
2046                     <FRAME '\1aMAKE-LABEL>
2047                     <PUSH 'T>
2048                     <CALL '\1aMAKE-LABEL 1 = TEMP40>
2049                     <PUSH TEMP40>
2050                     <PUSH %<>>
2051                     <PUSH %<>>
2052                     <PUSH %<>>
2053                     <PUSH 'T>
2054                     <CALL '\1aGEN-BRANCH 6>
2055                     <FRAME '\1aGEN-LABEL>
2056                     <PUSH TEMP31>
2057                     <DEAD TEMP31>
2058                     <PUSH 'NORMAL>
2059                     <CALL '\1aGEN-LABEL 2>
2060                     <FRAME '\1aEMIT>
2061                     <PUSH 213>
2062                     <PUSH VADDR13>
2063                     <DEAD VADDR13>
2064                     <CALL '\1aEMIT 2>
2065                     <FRAME '\1aGEN-TEST-INST>
2066                     <PUSH DIRCODE9>
2067                     <DEAD DIRCODE9>
2068                     <PUSH LABEL10>
2069                     <DEAD LABEL10>
2070                     <PUSH STATUS?12>
2071                     <DEAD STATUS?12>
2072                     <CALL '\1aGEN-TEST-INST 3>
2073                     <FRAME '\1aGEN-LABEL>
2074                     <PUSH TEMP40>
2075                     <DEAD TEMP40>
2076                     <PUSH 'NORMAL>
2077                     <CALL '\1aGEN-LABEL 2 = TEMP31>
2078                     <RETURN TEMP31>
2079                     <DEAD TEMP31>
2080 PHRASE23
2081                     <FRAME '\1aGEN-TEST-INST>
2082                     <PUSH DIRCODE9>
2083                     <DEAD DIRCODE9>
2084                     <PUSH LABEL10>
2085                     <DEAD LABEL10>
2086                     <PUSH STATUS?12>
2087                     <DEAD STATUS?12>
2088                     <CALL '\1aGEN-TEST-INST 3 = TEMP31>
2089                     <RETURN TEMP31>
2090                     <DEAD TEMP31>
2091                     <END \1aZERO-TEST-GEN>
2092 #WORD *23772161172*
2093 <GFCN \1aGEN-TEST-INST ("VALUE" ANY FIX ATOM ANY) DIRCODE5 LABEL6 STATUS?7>
2094                     <TEMP TEMP9:UVECTOR TEMP10>
2095                     <INTGO>
2096                     <FRAME '\1aGEN-BRANCH>
2097                     <GVAL 'BRANCHES = TEMP9>
2098                     <ADD DIRCODE5 1 = TEMP10 (TYPE FIX)>
2099                     <DEAD DIRCODE5>
2100                     <NTHUU TEMP9 TEMP10 = STACK (TYPE FIX)>
2101                     <DEAD TEMP9 TEMP10>
2102                     <PUSH LABEL6>
2103                     <DEAD LABEL6>
2104                     <PUSH STATUS?7>
2105                     <DEAD STATUS?7>
2106                     <CALL '\1aGEN-BRANCH 3 = TEMP10>
2107                     <RETURN TEMP10>
2108                     <DEAD TEMP10>
2109                     <END \1aGEN-TEST-INST>
2110 #WORD *32611100457*
2111 <GFCN \1aGEN-COMP-INST ("VALUE" ANY ANY ANY "OPTIONAL" ATOM ANY) VAR10 ADDR11 SZ12 TYP13>
2112                     <OPT-DISPATCH 2 %<> OPT7 OPT8 OPT9>
2113 OPT7
2114                     <PUSH 'LONG>
2115 OPT8
2116                     <PUSH 'FIX>
2117 OPT9
2118                     <TEMP TEMP20>
2119                     <INTGO>
2120                     <FRAME '\1aEMIT>
2121                     <VEQUAL? SZ12 'LONG - PHRASE17>
2122                     <EQUAL? TYP13 'FIX - PHRASE19>
2123                     <DEAD TYP13>
2124                     <SET TEMP20 209 (TYPE FIX)>
2125                     <JUMP + PHRASE24>
2126 PHRASE19
2127                     <SET TEMP20 81 (TYPE FIX)>
2128                     <JUMP + PHRASE24>
2129 PHRASE17
2130                     <VEQUAL? SZ12 'WORD - PHRASE22>
2131                     <SET TEMP20 177 (TYPE FIX)>
2132                     <JUMP + PHRASE24>
2133 PHRASE22
2134                     <VEQUAL? SZ12 'BYTE - PHRASE23>
2135                     <SET TEMP20 145 (TYPE FIX)>
2136                     <JUMP + PHRASE24>
2137 PHRASE23
2138                     <FRAME '\1aERROR>
2139                     <PUSH "BAD SIZE">
2140                     <PUSH SZ12>
2141                     <DEAD SZ12>
2142                     <CALL '\1aERROR 2 = TEMP20>
2143 PHRASE24
2144                     <PUSH TEMP20>
2145                     <DEAD TEMP20>
2146                     <PUSH VAR10>
2147                     <DEAD VAR10>
2148                     <PUSH ADDR11>
2149                     <DEAD ADDR11>
2150                     <CALL '\1aEMIT 3 = TEMP20>
2151                     <RETURN TEMP20>
2152                     <DEAD TEMP20>
2153                     <END \1aGEN-COMP-INST>
2154 #WORD *2005033174*
2155 <GFCN \1aVAR-COMP-GEN ("VALUE" ANY VARTBL VARTBL ATOM FIX "OPTIONAL" ANY) VAR18 VAR29 LABEL10 DIR11 TYP12>
2156                     <OPT-DISPATCH 4 %<> OPT6 OPT7>
2157 OPT6
2158                     <PUSH 'FIX>
2159 OPT7
2160                     <TEMP VAC13>
2161                     <INTGO>
2162                     <FRAME '\1aVAR-VALUE-IN-AC?>
2163                     <PUSH VAR18>
2164                     <CALL '\1aVAR-VALUE-IN-AC? 1 = VAC13>
2165                     <TYPE? VAC13 <TYPE-CODE FALSE> + PHRASE15>
2166                     <FRAME '\1aVAR-AC-COMP>
2167                     <PUSH VAR29>
2168                     <DEAD VAR29>
2169                     <PUSH VAC13>
2170                     <DEAD VAC13>
2171                     <PUSH LABEL10>
2172                     <DEAD LABEL10>
2173                     <PUSH DIR11>
2174                     <DEAD DIR11>
2175                     <PUSH TYP12>
2176                     <DEAD TYP12>
2177                     <CALL '\1aVAR-AC-COMP 5 = VAC13>
2178                     <RETURN VAC13>
2179                     <DEAD VAC13>
2180 PHRASE15
2181                     <FRAME '\1aVAR-VALUE-IN-AC?>
2182                     <PUSH VAR29>
2183                     <CALL '\1aVAR-VALUE-IN-AC? 1 = VAC13>
2184                     <TYPE? VAC13 <TYPE-CODE FALSE> + PHRASE19>
2185                     <FRAME '\1aVAR-AC-COMP>
2186                     <PUSH VAR18>
2187                     <DEAD VAR18>
2188                     <PUSH VAC13>
2189                     <DEAD VAC13>
2190                     <PUSH LABEL10>
2191                     <DEAD LABEL10>
2192                     <FRAME '\1aREVERSE-BC>
2193                     <PUSH DIR11>
2194                     <DEAD DIR11>
2195                     <CALL '\1aREVERSE-BC 1 = STACK>
2196                     <PUSH TYP12>
2197                     <DEAD TYP12>
2198                     <CALL '\1aVAR-AC-COMP 5 = VAC13>
2199                     <RETURN VAC13>
2200                     <DEAD VAC13>
2201 PHRASE19
2202                     <FRAME '\1aEMIT>
2203                     <EQUAL? TYP12 'FIX - PHRASE26>
2204                     <DEAD TYP12>
2205                     <SET VAC13 209 (TYPE FIX)>
2206                     <JUMP + PHRASE28>
2207 PHRASE26
2208                     <SET VAC13 81 (TYPE FIX)>
2209 PHRASE28
2210                     <PUSH VAC13>
2211                     <DEAD VAC13>
2212                     <FRAME '\1aVAR-VALUE-ADDRESS>
2213                     <PUSH VAR18>
2214                     <DEAD VAR18>
2215                     <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
2216                     <FRAME '\1aVAR-VALUE-ADDRESS>
2217                     <PUSH VAR29>
2218                     <DEAD VAR29>
2219                     <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
2220                     <CALL '\1aEMIT 3>
2221                     <FRAME '\1aGEN-TEST-INST>
2222                     <PUSH DIR11>
2223                     <DEAD DIR11>
2224                     <PUSH LABEL10>
2225                     <DEAD LABEL10>
2226                     <PUSH %<>>
2227                     <CALL '\1aGEN-TEST-INST 3 = VAC13>
2228                     <RETURN VAC13>
2229                     <DEAD VAC13>
2230                     <END \1aVAR-COMP-GEN>\r\0\r\0
2231 #WORD *30525317470*
2232 <GFCN \1aVAR-AC-COMP ("VALUE" ANY VARTBL AC ATOM FIX "OPTIONAL" ANY) VAR8 AC9 LABEL10 DIR11 TYP12>
2233                     <OPT-DISPATCH 4 %<> OPT6 OPT7>
2234 OPT6
2235                     <PUSH 'FIX>
2236 OPT7
2237                     <TEMP VADDR13 TEMP16>
2238                     <INTGO>
2239                     <FRAME '\1aVAR-VALUE-ADDRESS>
2240                     <PUSH VAR8>
2241                     <DEAD VAR8>
2242                     <CALL '\1aVAR-VALUE-ADDRESS 1 = VADDR13>
2243                     <FRAME '\1aGEN-COMP-INST>
2244                     <NTHUV AC9 2 = TEMP16 (TYPE FIX)>
2245                     <DEAD AC9>
2246                     <OR TEMP16 80 = TEMP16>
2247                     <LSH TEMP16 24 = TEMP16 (TYPE FIX)>
2248                     <CHTYPE TEMP16 <TYPE-CODE EFF-ADDR> = STACK>
2249                     <DEAD TEMP16>
2250                     <PUSH VADDR13>
2251                     <DEAD VADDR13>
2252                     <PUSH 'LONG>
2253                     <PUSH TYP12>
2254                     <DEAD TYP12>
2255                     <CALL '\1aGEN-COMP-INST 4>
2256                     <FRAME '\1aGEN-TEST-INST>
2257                     <PUSH DIR11>
2258                     <DEAD DIR11>
2259                     <PUSH LABEL10>
2260                     <DEAD LABEL10>
2261                     <PUSH %<>>
2262                     <CALL '\1aGEN-TEST-INST 3 = TEMP16>
2263                     <RETURN TEMP16>
2264                     <DEAD TEMP16>
2265                     <END \1aVAR-AC-COMP>
2266 <MSETG 32MIN 2147483647>
2267
2268 <MSETG 32MAX <CHTYPE #WORD *20000000001* FIX>>
2269
2270 #WORD *35615312412*
2271 <GFCN \1aFIX-CONSTANT? ("VALUE" <OR FALSE FIX> ANY) CONST5>
2272                     <TEMP TEMP9>
2273                     <INTGO>
2274                     <TYPE? CONST5 <TYPE-CODE FLOAT> - PHRASE7>
2275                     <FRAME '\1aFLOATCONVERT>
2276                     <PUSH CONST5>
2277                     <DEAD CONST5>
2278                     <CALL '\1aFLOATCONVERT 1 = TEMP9>
2279                     <RETURN TEMP9>
2280                     <DEAD TEMP9>
2281 PHRASE7
2282                     <FRAME '\1aTYPEPRIM>
2283                     <FRAME '\1aTYPE>
2284                     <PUSH CONST5>
2285                     <CALL '\1aTYPE 1 = STACK>
2286                     <CALL '\1aTYPEPRIM 1 = TEMP9>
2287                     <EQUAL? TEMP9 'FIX - PHRASE10>
2288                     <DEAD TEMP9>
2289                     <CHTYPE CONST5 <TYPE-CODE FIX> = CONST5>
2290                     <VEQUAL? CONST5 %<CHTYPE <MIN> FIX> - PHRASE15 (TYPE FIX)>
2291                     <RETURN %<CHTYPE <MIN> FIX>>
2292 PHRASE15
2293                     <VEQUAL? CONST5 %<CHTYPE <MAX> FIX> - PHRASE16 (TYPE FIX)>
2294                     <RETURN %<CHTYPE <MAX> FIX>>
2295 PHRASE16
2296                     <RETURN CONST5>
2297                     <DEAD CONST5>
2298 PHRASE10
2299                     <FRAME '\1aTYPEPRIM>
2300                     <FRAME '\1aTYPE>
2301                     <PUSH CONST5>
2302                     <CALL '\1aTYPE 1 = STACK>
2303                     <CALL '\1aTYPEPRIM 1 = TEMP9>
2304                     <EQUAL? TEMP9 'LIST + TAG19>
2305                     <DEAD TEMP9>
2306                     <RETURN %<>>
2307 TAG19
2308                     <EMPTY? CONST5 + TAG22>
2309                     <DEAD CONST5>
2310                     <RETURN %<>>
2311 TAG22
2312                     <RETURN 0>
2313                     <END \1aFIX-CONSTANT?>
2314 #WORD *31125177710*
2315                     <GFCN \1aFLOATCONVERT ("VALUE" FIX <OR FIX FLOAT>) CNS4>
2316                     <TEMP TEMP8:FIX TEMP16>
2317                     <INTGO>
2318                     <EQUAL? CNS4 0.0 - PHRASE7>
2319                     <RETURN 0>
2320 PHRASE7
2321                     <IFSYS "VAX">
2322                     <CHTYPE CNS4 <TYPE-CODE FIX> = TEMP8>
2323                     <DEAD CNS4>
2324                     <ENDIF "VAX">
2325                     <RETURN TEMP8>
2326                     <DEAD TEMP8>
2327                     <END \1aFLOATCONVERT>
2328
2329 #WORD *36727716531*
2330 <GFCN \1aFLOAT-IMM ("VALUE" ANY FIX) X5>
2331                     <TEMP TEMP9>
2332                     <INTGO>
2333                     <AND X5 -17393 = TEMP9>
2334                     <VEQUAL? TEMP9 0 - PHRASE7 (TYPE FIX)>
2335                     <DEAD TEMP9>
2336                     <AND X5 16384 = TEMP9>
2337                     <VEQUAL? TEMP9 0 + PHRASE7 (TYPE FIX)>
2338                     <DEAD TEMP9>
2339                     <FRAME '\1aMA-IMM>
2340                     <GETBITS X5 6 4 = STACK>
2341                     <DEAD X5>
2342                     <CALL '\1aMA-IMM 1 = TEMP9>
2343                     <RETURN TEMP9>
2344                     <DEAD TEMP9>
2345 PHRASE7
2346                     <FRAME '\1aMA-IMM>
2347                     <PUSH X5>
2348                     <DEAD X5>
2349                     <CALL '\1aMA-IMM 1 = TEMP9>
2350                     <RETURN TEMP9>
2351                     <DEAD TEMP9>
2352                     <END \1aFLOAT-IMM>
2353 #WORD *35102214650*
2354 <GFCN \1aSUBFIX-GEN ("VALUE" ATOM <OR FIX VARTBL> <OR FIX VARTBL> <OR VARTBL ATOM> "OPTIONAL" ANY) OP18 OP29 DEST10 HINT11>
2355                     <OPT-DISPATCH 3 %<> OPT6 OPT7>
2356 OPT6
2357                     <PUSH %<>>
2358 OPT7
2359                     <TEMP TEMP13:ATOM>
2360                     <INTGO>
2361                     <FRAME '\1aARITH-GEN>
2362                     <PUSH 194>
2363                     <PUSH 195>
2364                     <PUSH OP18>
2365                     <DEAD OP18>
2366                     <PUSH OP29>
2367                     <DEAD OP29>
2368                     <PUSH DEST10>
2369                     <DEAD DEST10>
2370                     <PUSH %<>>
2371                     <GVAL '- = STACK>
2372                     <PUSH 'FIX>
2373                     <CALL '\1aARITH-GEN 8 = TEMP13>
2374                     <RETURN TEMP13>
2375                     <DEAD TEMP13>
2376                     <END \1aSUBFIX-GEN>
2377 #WORD *13237175603*
2378 <GFCN \1aTYPE-TST-GEN ("VALUE" ATOM VARTBL <OR ATOM VARTBL> ATOM ANY) VAR5 TNAME6 DIR7 DEST8>
2379                     <TEMP DCL10 TEMP16 TEMP35 TEMP36>
2380                     <INTGO>
2381                     <FRAME '\1aVARTBL-DECL>
2382                     <PUSH VAR5>
2383                     <CALL '\1aVARTBL-DECL 1 = DCL10>
2384                     <TYPE? DCL10 <TYPE-CODE FALSE> + PHRASE12>
2385                     <FRAME '\1aCLEAN-DECL>
2386                     <PUSH TNAME6>
2387                     <CALL '\1aCLEAN-DECL 1 = TEMP16>
2388                     <EQUAL? TEMP16 'UNBOUND + PHRASE12>
2389                     <DEAD TEMP16>
2390                     <EQUAL? TNAME6 'T$UNBOUND + PHRASE12>
2391                     <FRAME '\1aSAFE-TYPE-WORD?>
2392                     <PUSH VAR5>
2393                     <CALL '\1aSAFE-TYPE-WORD? 1 = TEMP16>
2394                     <TYPE? TEMP16 <TYPE-CODE FALSE> - PHRASE12>
2395                     <DEAD TEMP16>
2396                     <FRAME '\1aERROR>
2397                     <PUSH "WARNING: TYPE KNOWN">
2398                     <NTHUV VAR5 1 = STACK (TYPE ATOM)>
2399                     <DEAD VAR5>
2400                     <CALL '\1aERROR 2>
2401                     <EQUAL? TNAME6 DCL10 - PHRASE20>
2402                     <VEQUAL? DIR7 '+ - PHRASE20>
2403                     <FRAME '\1aGEN-BRANCH>
2404                     <GVAL 'INST-BBR = STACK>
2405                     <PUSH DEST8>
2406                     <DEAD DEST8>
2407                     <PUSH %<>>
2408                     <CALL '\1aGEN-BRANCH 3>
2409                     <RETURN 'NORMAL>
2410 PHRASE20
2411                     <EQUAL? TNAME6 DCL10 + COND57>
2412                     <DEAD TNAME6>
2413                     <VEQUAL? DIR7 '- - COND57>
2414                     <DEAD DIR7>
2415                     <FRAME '\1aGEN-BRANCH>
2416                     <GVAL 'INST-BBR = STACK>
2417                     <PUSH DEST8>
2418                     <DEAD DEST8>
2419                     <PUSH %<>>
2420                     <CALL '\1aGEN-BRANCH 3>
2421                     <RETURN 'NORMAL>
2422 PHRASE12
2423                     <FRAME '\1aVAR-TYPE-IN-AC?>
2424                     <PUSH VAR5>
2425                     <CALL '\1aVAR-TYPE-IN-AC? 1 = DCL10>
2426                     <TYPE? DCL10 <TYPE-CODE FALSE> - BOOL29>
2427                     <FRAME '\1aVAR-TYPE-WORD-IN-AC?>
2428                     <PUSH VAR5>
2429                     <CALL '\1aVAR-TYPE-WORD-IN-AC? 1 = DCL10>
2430                     <TYPE? DCL10 <TYPE-CODE FALSE> - BOOL29>
2431                     <GVAL 'TYPE-WORDS = TEMP16>
2432                     <TYPE TNAME6 = TEMP35>
2433                     <EMPUV? TEMP16 + BOOL29>
2434                     <LOOP (TNAME6 VALUE) (TEMP35 VALUE) (TEMP16 LENGTH VALUE)>
2435 TAG33
2436                     <NTHUV TEMP16 1 = TEMP36>
2437                     <TYPE? TEMP36 TEMP35 - TAG34>
2438                     <VEQUAL? TEMP36 TNAME6 + TAG32>
2439                     <DEAD TEMP36>
2440 TAG34
2441                     <RESTUV TEMP16 1 = TEMP16 (TYPE VECTOR)>
2442                     <EMPUV? TEMP16 - TAG33>
2443                     <JUMP + BOOL29>
2444 TAG32
2445                     <GVAL 'GC-MODE = TEMP16>
2446                     <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE28>
2447                     <DEAD TEMP16>
2448 BOOL29
2449                     <TYPE? DCL10 <TYPE-CODE FALSE> - PHRASE38>
2450                     <FRAME '\1aLOAD-VAR>
2451                     <PUSH VAR5>
2452                     <DEAD VAR5>
2453                     <PUSH 'TYPE>
2454                     <PUSH %<>>
2455                     <PUSH 'TYPE>
2456                     <CALL '\1aLOAD-VAR 4 = DCL10>
2457 PHRASE38
2458                     <TYPE? TNAME6 <TYPE-CODE VARTBL> - PHRASE41>
2459                     <FRAME '\1aGEN-COMP-INST>
2460                     <NTHUV DCL10 2 = TEMP16 (TYPE FIX)>
2461                     <DEAD DCL10>
2462                     <OR TEMP16 80 = TEMP16>
2463                     <LSH TEMP16 24 = TEMP16 (TYPE FIX)>
2464                     <CHTYPE TEMP16 <TYPE-CODE EFF-ADDR> = STACK>
2465                     <DEAD TEMP16>
2466                     <FRAME '\1aVAR-VALUE-ADDRESS>
2467                     <PUSH TNAME6>
2468                     <DEAD TNAME6>
2469                     <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
2470                     <PUSH 'WORD>
2471                     <CALL '\1aGEN-COMP-INST 3>
2472                     <JUMP + PHRASE52>
2473 PHRASE41
2474                     <FRAME '\1aGEN-COMP-INST>
2475                     <NTHUV DCL10 2 = TEMP16 (TYPE FIX)>
2476                     <DEAD DCL10>
2477                     <OR TEMP16 80 = TEMP16>
2478                     <LSH TEMP16 24 = TEMP16 (TYPE FIX)>
2479                     <CHTYPE TEMP16 <TYPE-CODE EFF-ADDR> = STACK>
2480                     <DEAD TEMP16>
2481                     <FRAME '\1aTYPE-CODE>
2482                     <PUSH TNAME6>
2483                     <DEAD TNAME6>
2484                     <PUSH 'FIX>
2485                     <CALL '\1aTYPE-CODE 2 = STACK>
2486                     <PUSH 'WORD>
2487                     <CALL '\1aGEN-COMP-INST 3>
2488                     <JUMP + PHRASE52>
2489 PHRASE28
2490                     <EQUAL? TNAME6 'T$UNBOUND + BOOL47>
2491                     <FRAME '\1aCLEAN-DECL>
2492                     <PUSH TNAME6>
2493                     <CALL '\1aCLEAN-DECL 1 = TEMP16>
2494                     <EQUAL? TEMP16 'UNBOUND - PHRASE46>
2495                     <DEAD TEMP16>
2496 BOOL47
2497                     <FRAME '\1aEMIT>
2498                     <PUSH 181>
2499                     <FRAME '\1aVAR-TYPE-ADDRESS>
2500                     <PUSH VAR5>
2501                     <DEAD VAR5>
2502                     <CALL '\1aVAR-TYPE-ADDRESS 1 = STACK>
2503                     <CALL '\1aEMIT 2>
2504                     <FRAME '\1aCLEAR-STATUS>
2505                     <CALL '\1aCLEAR-STATUS 0>
2506                     <JUMP + PHRASE52>
2507 PHRASE46
2508                     <FRAME '\1aEMIT>
2509                     <PUSH 177>
2510                     <FRAME '\1aVAR-TYPE-ADDRESS>
2511                     <PUSH VAR5>
2512                     <DEAD VAR5>
2513                     <CALL '\1aVAR-TYPE-ADDRESS 1 = STACK>
2514                     <FRAME '\1aTYPE-CODE>
2515                     <PUSH TNAME6>
2516                     <DEAD TNAME6>
2517                     <PUSH 'FIX>
2518                     <CALL '\1aTYPE-CODE 2 = STACK>
2519                     <CALL '\1aEMIT 3>
2520                     <FRAME '\1aCLEAR-STATUS>
2521                     <CALL '\1aCLEAR-STATUS 0>
2522 PHRASE52
2523                     <VEQUAL? DIR7 '+ - PHRASE58>
2524                     <DEAD DIR7>
2525                     <FRAME '\1aGEN-BRANCH>
2526                     <PUSH 19>
2527                     <PUSH DEST8>
2528                     <DEAD DEST8>
2529                     <PUSH %<>>
2530                     <CALL '\1aGEN-BRANCH 3>
2531                     <RETURN 'NORMAL>
2532 PHRASE58
2533                     <FRAME '\1aGEN-BRANCH>
2534                     <PUSH 18>
2535                     <PUSH DEST8>
2536                     <DEAD DEST8>
2537                     <PUSH %<>>
2538                     <CALL '\1aGEN-BRANCH 3>
2539 COND57
2540                     <RETURN 'NORMAL>
2541                     <END \1aTYPE-TST-GEN>
2542 #WORD *13073406326*
2543 <GFCN \1aMULFIX-GEN ("VALUE" ATOM <OR FIX VARTBL> <OR FIX VARTBL> <OR VARTBL ATOM> "OPTIONAL" ANY) OP18 OP29 DEST10 HINT11>
2544                     <OPT-DISPATCH 3 %<> OPT6 OPT7>
2545 OPT6
2546                     <PUSH %<>>
2547 OPT7
2548                     <TEMP TEMP13:ATOM>
2549                     <INTGO>
2550                     <FRAME '\1aARITH-GEN>
2551                     <PUSH 196>
2552                     <PUSH 197>
2553                     <PUSH OP18>
2554                     <DEAD OP18>
2555                     <PUSH OP29>
2556                     <DEAD OP29>
2557                     <PUSH DEST10>
2558                     <DEAD DEST10>
2559                     <PUSH 'T>
2560                     <GVAL '* = STACK>
2561                     <PUSH 'FIX>
2562                     <CALL '\1aARITH-GEN 8 = TEMP13>
2563                     <RETURN TEMP13>
2564                     <DEAD TEMP13>
2565                     <END \1aMULFIX-GEN>
2566 #WORD *11625250372*
2567 <GFCN \1aPWR2? ("VALUE" <OR FALSE FIX> FIX) X5>
2568                     <TEMP Y13 CNT14:FIX>
2569                     <INTGO>
2570                     <LESS? X5 0 - PHRASE7 (TYPE FIX)>
2571                     <SUB 0 X5 = X5 (TYPE FIX)>
2572 PHRASE7
2573                     <SET Y13 2 (TYPE FIX)>
2574                     <SET CNT14 1 (TYPE FIX)>
2575                     <LOOP>
2576 AGAIN15
2577                     <INTGO>
2578                     <VEQUAL? Y13 X5 - PHRASE17 (TYPE FIX)>
2579                     <RETURN CNT14>
2580                     <DEAD CNT14>
2581 PHRASE17
2582                     <GRTR? Y13 X5 - PHRASE18 (TYPE FIX)>
2583                     <RETURN %<>>
2584 PHRASE18
2585                     <ADD CNT14 1 = CNT14 (TYPE FIX)>
2586                     <GRTR? CNT14 31 - PHRASE19 (TYPE FIX)>
2587                     <RETURN %<>>
2588 PHRASE19
2589                     <LSH Y13 1 = Y13 (TYPE FIX)>
2590                     <JUMP + AGAIN15>
2591                     <END \1aPWR2?>
2592 #WORD *15122514642*
2593 <GFCN \1aDIVFIX-GEN ("VALUE" ATOM <OR FIX VARTBL> <OR FIX VARTBL> <OR VARTBL ATOM> "OPTIONAL" ANY) OP18 OP29 DEST10 HINT11>
2594                     <OPT-DISPATCH 3 %<> OPT6 OPT7>
2595 OPT6
2596                     <PUSH %<>>
2597 OPT7
2598                     <TEMP TEMP13:ATOM>
2599                     <INTGO>
2600                     <FRAME '\1aARITH-GEN>
2601                     <PUSH 198>
2602                     <PUSH 199>
2603                     <PUSH OP18>
2604                     <DEAD OP18>
2605                     <PUSH OP29>
2606                     <DEAD OP29>
2607                     <PUSH DEST10>
2608                     <DEAD DEST10>
2609                     <PUSH %<>>
2610                     <GVAL '/ = STACK>
2611                     <PUSH 'FIX>
2612                     <CALL '\1aARITH-GEN 8 = TEMP13>
2613                     <RETURN TEMP13>
2614                     <DEAD TEMP13>
2615                     <END \1aDIVFIX-GEN>
2616 #WORD *36040253203*
2617 <GFCN \1aMODFIX-GEN ("VALUE" ATOM <OR VARTBL FIX> <OR VARTBL FIX> <OR ATOM VARTBL> "OPTIONAL" ANY) ITM18 ITM29 RES10 HINT11>
2618                     <OPT-DISPATCH 3 %<> OPT6 OPT7>
2619 OPT6
2620                     <PUSH #T$UNBOUND 0>
2621 OPT7
2622                     <TEMP (AC13 %<>) LAB114 LAB215 VAC12 TEMP26>
2623                     <INTGO>
2624                     <FRAME '\1aMAKE-LABEL>
2625                     <CALL '\1aMAKE-LABEL 0 = LAB114>
2626                     <FRAME '\1aMAKE-LABEL>
2627                     <CALL '\1aMAKE-LABEL 0 = LAB215>
2628                     <FRAME '\1aGET-AC>
2629                     <PUSH 'DOUBLE>
2630                     <PUSH 'T>
2631                     <CALL '\1aGET-AC 2 = VAC12>
2632                     <TYPE? ITM18 <TYPE-CODE FIX> - PHRASE20>
2633                     <LESS? ITM18 0 + PHRASE20 (TYPE FIX)>
2634                     <GRTR? ITM18 63 + PHRASE20 (TYPE FIX)>
2635                     <FRAME '\1aEMIT>
2636                     <PUSH 125>
2637                     <FRAME '\1aMA-IMM>
2638                     <PUSH ITM18>
2639                     <DEAD ITM18>
2640                     <CALL '\1aMA-IMM 1 = STACK>
2641                     <NTHUV VAC12 2 = TEMP26 (TYPE FIX)>
2642                     <OR TEMP26 80 = TEMP26>
2643                     <LSH TEMP26 24 = TEMP26 (TYPE FIX)>
2644                     <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = STACK>
2645                     <DEAD TEMP26>
2646                     <CALL '\1aEMIT 3>
2647                     <JUMP + PHRASE35>
2648 PHRASE20
2649                     <TYPE? ITM18 <TYPE-CODE FIX> - PHRASE27>
2650                     <FRAME '\1aEMIT>
2651                     <PUSH 212>
2652                     <FRAME '\1aNEXT-AC>
2653                     <PUSH VAC12>
2654                     <CALL '\1aNEXT-AC 1 = TEMP26>
2655                     <NTHUV TEMP26 2 = TEMP26 (TYPE FIX)>
2656                     <OR TEMP26 80 = TEMP26>
2657                     <LSH TEMP26 24 = TEMP26 (TYPE FIX)>
2658                     <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = STACK>
2659                     <DEAD TEMP26>
2660                     <CALL '\1aEMIT 2>
2661                     <FRAME '\1aLOAD-CONSTANT>
2662                     <PUSH VAC12>
2663                     <PUSH ITM18>
2664                     <DEAD ITM18>
2665                     <CALL '\1aLOAD-CONSTANT 2>
2666                     <FRAME '\1aGEN-BRANCH>
2667                     <PUSH 24>
2668                     <PUSH LAB114>
2669                     <PUSH %<>>
2670                     <CALL '\1aGEN-BRANCH 3>
2671                     <FRAME '\1aEMIT>
2672                     <PUSH 210>
2673                     <LSH 0 24 = TEMP26 (TYPE FIX)>
2674                     <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = STACK>
2675                     <DEAD TEMP26>
2676                     <FRAME '\1aNEXT-AC>
2677                     <PUSH VAC12>
2678                     <CALL '\1aNEXT-AC 1 = TEMP26>
2679                     <NTHUV TEMP26 2 = TEMP26 (TYPE FIX)>
2680                     <OR TEMP26 80 = TEMP26>
2681                     <LSH TEMP26 24 = TEMP26 (TYPE FIX)>
2682                     <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = STACK>
2683                     <DEAD TEMP26>
2684                     <CALL '\1aEMIT 3>
2685                     <FRAME '\1aEMIT-LABEL>
2686                     <PUSH LAB114>
2687                     <DEAD LAB114>
2688                     <PUSH 'T>
2689                     <CALL '\1aEMIT-LABEL 2>
2690                     <JUMP + PHRASE35>
2691 PHRASE27
2692                     <FRAME '\1aEMIT>
2693                     <PUSH 212>
2694                     <FRAME '\1aNEXT-AC>
2695                     <PUSH VAC12>
2696                     <CALL '\1aNEXT-AC 1 = TEMP26>
2697                     <NTHUV TEMP26 2 = TEMP26 (TYPE FIX)>
2698                     <OR TEMP26 80 = TEMP26>
2699                     <LSH TEMP26 24 = TEMP26 (TYPE FIX)>
2700                     <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = STACK>
2701                     <DEAD TEMP26>
2702                     <CALL '\1aEMIT 2>
2703                     <FRAME '\1aLOAD-VAR>
2704                     <PUSH ITM18>
2705                     <DEAD ITM18>
2706                     <PUSH 'JUST-VALUE>
2707                     <PUSH 'T>
2708                     <PUSH VAC12>
2709                     <CALL '\1aLOAD-VAR 4>
2710                     <FRAME '\1aGEN-BRANCH>
2711                     <PUSH 24>
2712                     <PUSH LAB114>
2713                     <PUSH %<>>
2714                     <CALL '\1aGEN-BRANCH 3>
2715                     <FRAME '\1aEMIT>
2716                     <PUSH 210>
2717                     <LSH 0 24 = TEMP26 (TYPE FIX)>
2718                     <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = STACK>
2719                     <DEAD TEMP26>
2720                     <FRAME '\1aNEXT-AC>
2721                     <PUSH VAC12>
2722                     <CALL '\1aNEXT-AC 1 = TEMP26>
2723                     <NTHUV TEMP26 2 = TEMP26 (TYPE FIX)>
2724                     <OR TEMP26 80 = TEMP26>
2725                     <LSH TEMP26 24 = TEMP26 (TYPE FIX)>
2726                     <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = STACK>
2727                     <DEAD TEMP26>
2728                     <CALL '\1aEMIT 3>
2729                     <FRAME '\1aEMIT-LABEL>
2730                     <PUSH LAB114>
2731                     <DEAD LAB114>
2732                     <PUSH 'T>
2733                     <CALL '\1aEMIT-LABEL 2>
2734 PHRASE35
2735                     <FRAME '\1aEMIT>
2736                     <PUSH 123>
2737                     <TYPE? ITM29 <TYPE-CODE FIX> - PHRASE45>
2738                     <FRAME '\1aMA-IMM>
2739                     <PUSH ITM29>
2740                     <CALL '\1aMA-IMM 1 = TEMP26>
2741                     <JUMP + PHRASE50>
2742 PHRASE45
2743                     <FRAME '\1aVAR-VALUE-IN-AC?>
2744                     <PUSH ITM29>
2745                     <CALL '\1aVAR-VALUE-IN-AC? 1 = AC13>
2746                     <TYPE? AC13 <TYPE-CODE FALSE> + PHRASE47>
2747                     <NTHUV AC13 2 = LAB114 (TYPE FIX)>
2748                     <OR LAB114 80 = LAB114>
2749                     <LSH LAB114 24 = LAB114 (TYPE FIX)>
2750                     <CHTYPE LAB114 <TYPE-CODE EFF-ADDR> = TEMP26>
2751                     <DEAD LAB114>
2752                     <JUMP + PHRASE50>
2753 PHRASE47
2754                     <FRAME '\1aVAR-VALUE-ADDRESS>
2755                     <PUSH ITM29>
2756                     <CALL '\1aVAR-VALUE-ADDRESS 1 = TEMP26>
2757 PHRASE50
2758                     <PUSH TEMP26>
2759                     <DEAD TEMP26>
2760                     <NTHUV VAC12 2 = LAB114 (TYPE FIX)>
2761                     <OR LAB114 80 = LAB114>
2762                     <LSH LAB114 24 = LAB114 (TYPE FIX)>
2763                     <CHTYPE LAB114 <TYPE-CODE EFF-ADDR> = STACK>
2764                     <DEAD LAB114>
2765                     <NTHUV VAC12 2 = LAB114 (TYPE FIX)>
2766                     <OR LAB114 80 = LAB114>
2767                     <LSH LAB114 24 = LAB114 (TYPE FIX)>
2768                     <CHTYPE LAB114 <TYPE-CODE EFF-ADDR> = STACK>
2769                     <DEAD LAB114>
2770                     <FRAME '\1aNEXT-AC>
2771                     <PUSH VAC12>
2772                     <CALL '\1aNEXT-AC 1 = LAB114>
2773                     <NTHUV LAB114 2 = LAB114 (TYPE FIX)>
2774                     <OR LAB114 80 = LAB114>
2775                     <LSH LAB114 24 = LAB114 (TYPE FIX)>
2776                     <CHTYPE LAB114 <TYPE-CODE EFF-ADDR> = STACK>
2777                     <DEAD LAB114>
2778                     <CALL '\1aEMIT 5>
2779                     <FRAME '\1aEMIT>
2780                     <PUSH 213>
2781                     <FRAME '\1aNEXT-AC>
2782                     <PUSH VAC12>
2783                     <CALL '\1aNEXT-AC 1 = LAB114>
2784                     <NTHUV LAB114 2 = LAB114 (TYPE FIX)>
2785                     <OR LAB114 80 = LAB114>
2786                     <LSH LAB114 24 = LAB114 (TYPE FIX)>
2787                     <CHTYPE LAB114 <TYPE-CODE EFF-ADDR> = STACK>
2788                     <DEAD LAB114>
2789                     <CALL '\1aEMIT 2>
2790                     <FRAME '\1aGEN-BRANCH>
2791                     <PUSH 24>
2792                     <PUSH LAB215>
2793                     <PUSH %<>>
2794                     <CALL '\1aGEN-BRANCH 3>
2795                     <FRAME '\1aEMIT>
2796                     <PUSH 192>
2797                     <TYPE? ITM29 <TYPE-CODE FIX> - PHRASE58>
2798                     <FRAME '\1aMA-IMM>
2799                     <PUSH ITM29>
2800                     <DEAD ITM29>
2801                     <CALL '\1aMA-IMM 1 = LAB114>
2802                     <JUMP + PHRASE61>
2803 PHRASE58
2804                     <TYPE? AC13 <TYPE-CODE FALSE> + PHRASE60>
2805                     <NTHUV AC13 2 = TEMP26 (TYPE FIX)>
2806                     <DEAD AC13>
2807                     <OR TEMP26 80 = TEMP26>
2808                     <LSH TEMP26 24 = TEMP26 (TYPE FIX)>
2809                     <CHTYPE TEMP26 <TYPE-CODE EFF-ADDR> = LAB114>
2810                     <DEAD TEMP26>
2811                     <JUMP + PHRASE61>
2812 PHRASE60
2813                     <FRAME '\1aVAR-VALUE-ADDRESS>
2814                     <PUSH ITM29>
2815                     <DEAD ITM29>
2816                     <CALL '\1aVAR-VALUE-ADDRESS 1 = LAB114>
2817 PHRASE61
2818                     <PUSH LAB114>
2819                     <DEAD LAB114>
2820                     <FRAME '\1aNEXT-AC>
2821                     <PUSH VAC12>
2822                     <CALL '\1aNEXT-AC 1 = LAB114>
2823                     <NTHUV LAB114 2 = LAB114 (TYPE FIX)>
2824                     <OR LAB114 80 = LAB114>
2825                     <LSH LAB114 24 = LAB114 (TYPE FIX)>
2826                     <CHTYPE LAB114 <TYPE-CODE EFF-ADDR> = STACK>
2827                     <DEAD LAB114>
2828                     <CALL '\1aEMIT 3>
2829                     <FRAME '\1aEMIT-LABEL>
2830                     <PUSH LAB215>
2831                     <DEAD LAB215>
2832                     <PUSH 'T>
2833                     <CALL '\1aEMIT-LABEL 2>
2834                     <FRAME '\1aDEST-DECL>
2835                     <FRAME '\1aNEXT-AC>
2836                     <PUSH VAC12>
2837                     <DEAD VAC12>
2838                     <CALL '\1aNEXT-AC 1 = STACK>
2839                     <PUSH RES10>
2840                     <DEAD RES10>
2841                     <PUSH 'FIX>
2842                     <CALL '\1aDEST-DECL 3>
2843                     <RETURN 'NORMAL>
2844                     <END \1aMODFIX-GEN>\r\0\r\0
2845 #WORD *10005621776*
2846 <GFCN \1aADDF-GEN ("VALUE" ATOM <OR FLOAT FIX VARTBL> <OR FLOAT FIX VARTBL> <OR VARTBL ATOM> "OPTIONAL" ANY) OP18 OP29 DEST10 HINT11>
2847                     <OPT-DISPATCH 3 %<> OPT6 OPT7>
2848 OPT6
2849                     <PUSH %<>>
2850 OPT7
2851                     <TEMP TEMP13:ATOM>
2852                     <INTGO>
2853                     <FRAME '\1aARITH-GEN>
2854                     <PUSH 64>
2855                     <PUSH 65>
2856                     <PUSH OP18>
2857                     <DEAD OP18>
2858                     <PUSH OP29>
2859                     <DEAD OP29>
2860                     <PUSH DEST10>
2861                     <DEAD DEST10>
2862                     <PUSH 'T>
2863                     <GVAL '+ = STACK>
2864                     <PUSH 'FLOAT>
2865                     <CALL '\1aARITH-GEN 8 = TEMP13>
2866                     <RETURN TEMP13>
2867                     <DEAD TEMP13>
2868                     <END \1aADDF-GEN>
2869 #WORD *32165773205*
2870 <GFCN \1aSUBF-GEN ("VALUE" ATOM <OR FLOAT FIX VARTBL> <OR FLOAT FIX VARTBL> <OR VARTBL ATOM> "OPTIONAL" ANY) OP18 OP29 DEST10 HINT11>
2871                     <OPT-DISPATCH 3 %<> OPT6 OPT7>
2872 OPT6
2873                     <PUSH %<>>
2874 OPT7
2875                     <TEMP TEMP13:ATOM>
2876                     <INTGO>
2877                     <FRAME '\1aARITH-GEN>
2878                     <PUSH 66>
2879                     <PUSH 67>
2880                     <PUSH OP18>
2881                     <DEAD OP18>
2882                     <PUSH OP29>
2883                     <DEAD OP29>
2884                     <PUSH DEST10>
2885                     <DEAD DEST10>
2886                     <PUSH %<>>
2887                     <GVAL '- = STACK>
2888                     <PUSH 'FLOAT>
2889                     <CALL '\1aARITH-GEN 8 = TEMP13>
2890                     <RETURN TEMP13>
2891                     <DEAD TEMP13>
2892                     <END \1aSUBF-GEN>
2893 #WORD *14014161773*
2894 <GFCN \1aMULF-GEN ("VALUE" ATOM <OR FLOAT FIX VARTBL> <OR FLOAT FIX VARTBL> <OR VARTBL ATOM> "OPTIONAL" ANY) OP18 OP29 DEST10 HINT11>
2895                     <OPT-DISPATCH 3 %<> OPT6 OPT7>
2896 OPT6
2897                     <PUSH %<>>
2898 OPT7
2899                     <TEMP TEMP13:ATOM>
2900                     <INTGO>
2901                     <FRAME '\1aARITH-GEN>
2902                     <PUSH 68>
2903                     <PUSH 69>
2904                     <PUSH OP18>
2905                     <DEAD OP18>
2906                     <PUSH OP29>
2907                     <DEAD OP29>
2908                     <PUSH DEST10>
2909                     <DEAD DEST10>
2910                     <PUSH 'T>
2911                     <GVAL '* = STACK>
2912                     <PUSH 'FLOAT>
2913                     <CALL '\1aARITH-GEN 8 = TEMP13>
2914                     <RETURN TEMP13>
2915                     <DEAD TEMP13>
2916                     <END \1aMULF-GEN>
2917 #WORD *12145073217*
2918 <GFCN \1aDIVF-GEN ("VALUE" ATOM <OR FLOAT FIX VARTBL> <OR FLOAT FIX VARTBL> <OR VARTBL ATOM> "OPTIONAL" ANY) OP18 OP29 DEST10 HINT11>
2919                     <OPT-DISPATCH 3 %<> OPT6 OPT7>
2920 OPT6
2921                     <PUSH %<>>
2922 OPT7
2923                     <TEMP TEMP13:ATOM>
2924                     <INTGO>
2925                     <FRAME '\1aARITH-GEN>
2926                     <PUSH 70>
2927                     <PUSH 71>
2928                     <PUSH OP18>
2929                     <DEAD OP18>
2930                     <PUSH OP29>
2931                     <DEAD OP29>
2932                     <PUSH DEST10>
2933                     <DEAD DEST10>
2934                     <PUSH %<>>
2935                     <GVAL '/ = STACK>
2936                     <PUSH 'FLOAT>
2937                     <CALL '\1aARITH-GEN 8 = TEMP13>
2938                     <RETURN TEMP13>
2939                     <DEAD TEMP13>
2940                     <END \1aDIVF-GEN>
2941 #WORD *4271747732*
2942 <GFCN \1aFIX-GEN ("VALUE" ANY VARTBL <OR ATOM VARTBL> "OPTIONAL" ANY) VAL18 RES9 HINT10>
2943                     <OPT-DISPATCH 2 %<> OPT6 OPT7>
2944 OPT6
2945                     <PUSH #T$UNBOUND 0>
2946 OPT7
2947                     <TEMP VAC11 TEMP17>
2948                     <INTGO>
2949                     <FRAME '\1aVAR-VALUE-IN-AC?>
2950                     <PUSH VAL18>
2951                     <CALL '\1aVAR-VALUE-IN-AC? 1 = VAC11>
2952                     <TYPE? VAC11 <TYPE-CODE FALSE> + PHRASE13>
2953                     <FRAME '\1aAVAILABLE?>
2954                     <PUSH VAC11>
2955                     <CALL '\1aAVAILABLE? 1 = TEMP17>
2956                     <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE13>
2957                     <DEAD TEMP17>
2958                     <FRAME '\1aEMIT>
2959                     <PUSH 74>
2960                     <NTHUV VAC11 2 = TEMP17 (TYPE FIX)>
2961                     <OR TEMP17 80 = TEMP17>
2962                     <LSH TEMP17 24 = TEMP17 (TYPE FIX)>
2963                     <CHTYPE TEMP17 <TYPE-CODE EFF-ADDR> = STACK>
2964                     <DEAD TEMP17>
2965                     <NTHUV VAC11 2 = TEMP17 (TYPE FIX)>
2966                     <OR TEMP17 80 = TEMP17>
2967                     <LSH TEMP17 24 = TEMP17 (TYPE FIX)>
2968                     <CHTYPE TEMP17 <TYPE-CODE EFF-ADDR> = STACK>
2969                     <DEAD TEMP17>
2970                     <CALL '\1aEMIT 3>
2971                     <JUMP + PHRASE19>
2972 PHRASE13
2973                     <FRAME '\1aEMIT>
2974                     <PUSH 74>
2975                     <TYPE? VAC11 <TYPE-CODE FALSE> + PHRASE22>
2976                     <NTHUV VAC11 2 = TEMP17 (TYPE FIX)>
2977                     <DEAD VAC11>
2978                     <OR TEMP17 80 = TEMP17>
2979                     <LSH TEMP17 24 = TEMP17 (TYPE FIX)>
2980                     <CHTYPE TEMP17 <TYPE-CODE EFF-ADDR> = TEMP17>
2981                     <JUMP + PHRASE23>
2982 PHRASE22
2983                     <FRAME '\1aVAR-VALUE-ADDRESS>
2984                     <PUSH VAL18>
2985                     <DEAD VAL18>
2986                     <CALL '\1aVAR-VALUE-ADDRESS 1 = TEMP17>
2987 PHRASE23
2988                     <PUSH TEMP17>
2989                     <DEAD TEMP17>
2990                     <FRAME '\1aGET-AC>
2991                     <PUSH 'PREF-VAL>
2992                     <PUSH 'T>
2993                     <CALL '\1aGET-AC 2 = VAC11>
2994                     <NTHUV VAC11 2 = TEMP17 (TYPE FIX)>
2995                     <OR TEMP17 80 = TEMP17>
2996                     <LSH TEMP17 24 = TEMP17 (TYPE FIX)>
2997                     <CHTYPE TEMP17 <TYPE-CODE EFF-ADDR> = STACK>
2998                     <DEAD TEMP17>
2999                     <CALL '\1aEMIT 3>
3000 PHRASE19
3001                     <FRAME '\1aDEST-DECL>
3002                     <PUSH VAC11>
3003                     <DEAD VAC11>
3004                     <PUSH RES9>
3005                     <DEAD RES9>
3006                     <PUSH 'FIX>
3007                     <CALL '\1aDEST-DECL 3 = TEMP17>
3008                     <RETURN TEMP17>
3009                     <DEAD TEMP17>
3010                     <END \1aFIX-GEN>
3011 #WORD *10551706772*
3012 <GFCN \1aFLOAT-GEN ("VALUE" ANY VARTBL <OR ATOM VARTBL> "OPTIONAL" ANY) VAL18 RES9 HINT10>
3013                     <OPT-DISPATCH 2 %<> OPT6 OPT7>
3014 OPT6
3015                     <PUSH #T$UNBOUND 0>
3016 OPT7
3017                     <TEMP VAC11 TEMP17>
3018                     <INTGO>
3019                     <FRAME '\1aVAR-VALUE-IN-AC?>
3020                     <PUSH VAL18>
3021                     <CALL '\1aVAR-VALUE-IN-AC? 1 = VAC11>
3022                     <TYPE? VAC11 <TYPE-CODE FALSE> + PHRASE13>
3023                     <FRAME '\1aAVAILABLE?>
3024                     <PUSH VAC11>
3025                     <CALL '\1aAVAILABLE? 1 = TEMP17>
3026                     <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE13>
3027                     <DEAD TEMP17>
3028                     <FRAME '\1aEMIT>
3029                     <PUSH 78>
3030                     <NTHUV VAC11 2 = TEMP17 (TYPE FIX)>
3031                     <OR TEMP17 80 = TEMP17>
3032                     <LSH TEMP17 24 = TEMP17 (TYPE FIX)>
3033                     <CHTYPE TEMP17 <TYPE-CODE EFF-ADDR> = STACK>
3034                     <DEAD TEMP17>
3035                     <NTHUV VAC11 2 = TEMP17 (TYPE FIX)>
3036                     <OR TEMP17 80 = TEMP17>
3037                     <LSH TEMP17 24 = TEMP17 (TYPE FIX)>
3038                     <CHTYPE TEMP17 <TYPE-CODE EFF-ADDR> = STACK>
3039                     <DEAD TEMP17>
3040                     <CALL '\1aEMIT 3>
3041                     <JUMP + PHRASE19>
3042 PHRASE13
3043                     <FRAME '\1aEMIT>
3044                     <PUSH 78>
3045                     <TYPE? VAC11 <TYPE-CODE FALSE> + PHRASE22>
3046                     <NTHUV VAC11 2 = TEMP17 (TYPE FIX)>
3047                     <DEAD VAC11>
3048                     <OR TEMP17 80 = TEMP17>
3049                     <LSH TEMP17 24 = TEMP17 (TYPE FIX)>
3050                     <CHTYPE TEMP17 <TYPE-CODE EFF-ADDR> = TEMP17>
3051                     <JUMP + PHRASE23>
3052 PHRASE22
3053                     <FRAME '\1aVAR-VALUE-ADDRESS>
3054                     <PUSH VAL18>
3055                     <DEAD VAL18>
3056                     <CALL '\1aVAR-VALUE-ADDRESS 1 = TEMP17>
3057 PHRASE23
3058                     <PUSH TEMP17>
3059                     <DEAD TEMP17>
3060                     <FRAME '\1aGET-AC>
3061                     <PUSH 'PREF-VAL>
3062                     <PUSH 'T>
3063                     <CALL '\1aGET-AC 2 = VAC11>
3064                     <NTHUV VAC11 2 = TEMP17 (TYPE FIX)>
3065                     <OR TEMP17 80 = TEMP17>
3066                     <LSH TEMP17 24 = TEMP17 (TYPE FIX)>
3067                     <CHTYPE TEMP17 <TYPE-CODE EFF-ADDR> = STACK>
3068                     <DEAD TEMP17>
3069                     <CALL '\1aEMIT 3>
3070 PHRASE19
3071                     <FRAME '\1aDEST-DECL>
3072                     <PUSH VAC11>
3073                     <DEAD VAC11>
3074                     <PUSH RES9>
3075                     <DEAD RES9>
3076                     <PUSH 'FLOAT>
3077                     <CALL '\1aDEST-DECL 3 = TEMP17>
3078                     <RETURN TEMP17>
3079                     <DEAD TEMP17>
3080                     <END \1aFLOAT-GEN>
3081 #WORD *3177653421*
3082 <GFCN \1aRANDOM-GEN ("VALUE" ANY VARTBL <OR ATOM VARTBL> "OPTIONAL" ANY) VAL18 RES9 HINT10>
3083                     <OPT-DISPATCH 2 %<> OPT6 OPT7>
3084 OPT6
3085                     <PUSH #T$UNBOUND 0>
3086 OPT7
3087                     <TEMP TEMP12>
3088                     <INTGO>
3089                     <FRAME '\1aCALL-RTE>
3090                     <GVAL 'IRANDOM!-MIMOP = STACK>
3091                     <PUSH 'CALL>
3092                     <PUSH RES9>
3093                     <DEAD RES9>
3094                     <PUSH 'FLOAT>
3095                     <PUSH VAL18>
3096                     <DEAD VAL18>
3097                     <CALL '\1aCALL-RTE 5 = TEMP12>
3098                     <RETURN TEMP12>
3099                     <DEAD TEMP12>
3100                     <END \1aRANDOM-GEN>