mim/development/mim/vaxc/gcgen.mima

   1
   2 <MSETG BIT0 1>
   3
   4 <MSETG BIT1 2>
   5
   6 <MSETG BIT2 4>
   7
   8 <MSETG BIT3 8>
   9
  10 <MSETG BIT4 16>
  11
  12 <MSETG BIT5 32>
  13
  14 <MSETG ADDR-MASK-2 3>
  15
  16 <MSETG SHORT-MARK-BIT <CHTYPE <LSH 1 7> FIX>>
  17
  18 <MSETG MARK-BIT <CHTYPE <LSH 1 15> FIX>>
  19
  20 <MSETG DOPE-BIT <CHTYPE <LSH 1 5> FIX>>
  21
  22 <MSETG FLEN 28>
  23
  24 <MSETG LIST-LEN 12>
  25
  26 <MSETG ATOM-LEN 20>
  27
  28 <MSETG GBIND-LEN 20>
  29
  30 <MSETG LBIND-LEN 32>
  31
  32 #WORD *17712243722*
  33                     <GFCN \1aGCTEMP ("VALUE" <OR EFF-ADDR LADDR> ANY) NUM4>
  34                     <TEMP TEMP6>
  35                     <INTGO>
  36                     <FRAME '\1aMA-DISP>
  37                     <GVAL 'AC-TP = STACK>
  38                     <MUL NUM4 -4 = STACK (TYPE FIX)>
  39                     <DEAD NUM4>
  40                     <CALL '\1aMA-DISP 2 = TEMP6>
  41                     <RETURN TEMP6>
  42                     <DEAD TEMP6>
  43                     <END \1aGCTEMP>
  44
  45 #WORD *34634505354*
  46                     <GFCN \1aCGC-RECORD-GEN ("VALUE" ATOM ANY ANY ANY ANY ANY ANY "OPTIONAL" ANY) VAR6 ALLOC-ATOM7 END-ATOM8 NEXT-ATOM9 BOUNDS-ATOM10 RES11 HINT12>
  47                     <OPT-DISPATCH 6 %<> OPT4 OPT5>
  48 OPT4
  49                     <PUSH %<>>
  50 OPT5
  51                     <TEMP BOUNDS-LAB17 IB-LAB18 F-LAB19 EXIT-LAB20 M-LAB21 RLEN13:FIX STK?14 TEMP42 X47 ALLOCADDR15>
  52                     <INTGO>
  53                     <FRAME '\1aMAKE-LABEL>
  54                     <CALL '\1aMAKE-LABEL 0 = BOUNDS-LAB17>
  55                     <FRAME '\1aMAKE-LABEL>
  56                     <CALL '\1aMAKE-LABEL 0 = IB-LAB18>
  57                     <FRAME '\1aMAKE-LABEL>
  58                     <CALL '\1aMAKE-LABEL 0 = F-LAB19>
  59                     <FRAME '\1aMAKE-LABEL>
  60                     <CALL '\1aMAKE-LABEL 0 = EXIT-LAB20>
  61                     <FRAME '\1aMAKE-LABEL>
  62                     <CALL '\1aMAKE-LABEL 0 = M-LAB21>
  63                     <TYPE? HINT12 <TYPE-CODE FALSE> + PHRASE28>
  64                     <FRAME '\1aPARSE-HINT>
  65                     <PUSH HINT12>
  66                     <DEAD HINT12>
  67                     <PUSH 'RECORD-TYPE>
  68                     <CALL '\1aPARSE-HINT 2 = HINT12>
  69 PHRASE28
  70                     <EQUAL? HINT12 'ATOM - PHRASE31>
  71                     <SET RLEN13 20 (TYPE FIX)>
  72                     <SET STK?14 %<> (TYPE FALSE)>
  73                     <JUMP + PHRASE34>
  74 PHRASE31
  75                     <EQUAL? HINT12 'GBIND - PHRASE32>
  76                     <SET RLEN13 20 (TYPE FIX)>
  77                     <SET STK?14 %<> (TYPE FALSE)>
  78                     <JUMP + PHRASE34>
  79 PHRASE32
  80                     <EQUAL? HINT12 'LBIND - PHRASE33>
  81                     <SET RLEN13 32 (TYPE FIX)>
  82                     <SET STK?14 'T (TYPE ATOM)>
  83                     <JUMP + PHRASE34>
  84 PHRASE33
  85                     <FRAME '\1aERROR>
  86                     <PUSH 'BAD-HINT-FOR-CGC-RECORD!-ERRORS>
  87                     <PUSH HINT12>
  88                     <DEAD HINT12>
  89                     <PUSH 'CGC-RECORD-GEN>
  90                     <CALL '\1aERROR 3>
  91 PHRASE34
  92                     <SET TEMP42 (AC-0 AC-1 AC-2 AC-3 AC-4 AC-5 AC-6) (TYPE LIST)>
  93                     <LOOP>
  94 MAP37
  95                     <INTGO>
  96                     <EMPL? TEMP42 + MAPAP40>
  97                     <NTHL TEMP42 1 = X47>
  98                     <FRAME '\1aMUNG-AC>
  99                     <GVAL X47 = STACK>
 100                     <DEAD X47>
 101                     <CALL '\1aMUNG-AC 1>
 102                     <RESTL TEMP42 1 = TEMP42 (TYPE LIST)>
 103                     <JUMP + MAP37>
 104 MAPAP40
 105                     <FRAME '\1aMA-DEF-DISP>
 106                     <GVAL 'AC-M = STACK>
 107                     <FRAME '\1aADD-MVEC>
 108                     <CHTYPE END-ATOM8 <TYPE-CODE XGLOC> = STACK>
 109                     <DEAD END-ATOM8>
 110                     <CALL '\1aADD-MVEC 1 = TEMP42>
 111                     <ADD TEMP42 4 = STACK (TYPE FIX)>
 112                     <DEAD TEMP42>
 113                     <CALL '\1aMA-DEF-DISP 2 = X47>
 114                     <FRAME '\1aMA-DEF-DISP>
 115                     <GVAL 'AC-M = STACK>
 116                     <FRAME '\1aADD-MVEC>
 117                     <CHTYPE ALLOC-ATOM7 <TYPE-CODE XGLOC> = STACK>
 118                     <DEAD ALLOC-ATOM7>
 119                     <CALL '\1aADD-MVEC 1 = TEMP42>
 120                     <ADD TEMP42 4 = STACK (TYPE FIX)>
 121                     <DEAD TEMP42>
 122                     <CALL '\1aMA-DEF-DISP 2 = ALLOCADDR15>
 123                     <VEQUAL? STK?14 0 + PHRASE54>
 124                     <DEAD STK?14>
 125                     <FRAME '\1aEMIT>
 126                     <PUSH 209>
 127                     <GVAL 'AC-TP = STK?14>
 128                     <NTHUV STK?14 2 = TEMP42 (TYPE FIX)>
 129                     <DEAD STK?14>
 130                     <OR TEMP42 #WORD *120* = TEMP42>
 131                     <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
 132                     <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
 133                     <DEAD TEMP42>
 134                     <FRAME '\1aVAR-VALUE-ADDRESS>
 135                     <PUSH VAR6>
 136                     <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
 137                     <CALL '\1aEMIT 3>
 138                     <FRAME '\1aEMIT-BRANCH>
 139                     <PUSH 25>
 140                     <PUSH BOUNDS-LAB17>
 141                     <PUSH %<>>
 142                     <GVAL 'LAST-INST-LENGTH = STACK>
 143                     <CALL '\1aEMIT-BRANCH 4>
 144                     <FRAME '\1aEMIT>
 145                     <PUSH 125>
 146                     <FRAME '\1aMA-DISP>
 147                     <GVAL 'AC-M = STACK>
 148                     <FRAME '\1aADD-MVEC>
 149                     <PUSH %<>>
 150                     <CALL '\1aADD-MVEC 1 = STACK>
 151                     <CALL '\1aMA-DISP 2 = STACK>
 152                     <GVAL 'AC-0 = STK?14>
 153                     <NTHUV STK?14 2 = TEMP42 (TYPE FIX)>
 154                     <DEAD STK?14>
 155                     <OR TEMP42 #WORD *120* = TEMP42>
 156                     <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
 157                     <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
 158                     <DEAD TEMP42>
 159                     <CALL '\1aEMIT 3>
 160                     <FRAME '\1aEMIT-BRANCH>
 161                     <PUSH 17>
 162                     <PUSH EXIT-LAB20>
 163                     <PUSH %<>>
 164                     <GVAL 'LAST-INST-LENGTH = STACK>
 165                     <CALL '\1aEMIT-BRANCH 4>
 166                     <FRAME '\1aEMIT-LABEL>
 167                     <PUSH BOUNDS-LAB17>
 168                     <DEAD BOUNDS-LAB17>
 169                     <PUSH 'T>
 170                     <CALL '\1aEMIT-LABEL 2>
 171                     <FRAME '\1aFRAME-GEN>
 172                     <PUSH BOUNDS-ATOM10>
 173                     <CALL '\1aFRAME-GEN 1>
 174                     <FRAME '\1aEMIT>
 175                     <PUSH 125>
 176                     <FRAME '\1aVAR-TYPE-ADDRESS>
 177                     <PUSH VAR6>
 178                     <CALL '\1aVAR-TYPE-ADDRESS 1 = STACK>
 179                     <GVAL 'AC-TP = STK?14>
 180                     <NTHUV STK?14 2 = TEMP42 (TYPE FIX)>
 181                     <DEAD STK?14>
 182                     <OR TEMP42 #WORD *200* = TEMP42>
 183                     <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
 184                     <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
 185                     <DEAD TEMP42>
 186                     <CALL '\1aEMIT 3>
 187                     <FRAME '\1aCALL-GEN>
 188                     <PUSH BOUNDS-ATOM10>
 189                     <DEAD BOUNDS-ATOM10>
 190                     <PUSH 1>
 191                     <CALL '\1aCALL-GEN 2>
 192                     <FRAME '\1aEMIT>
 193                     <PUSH 213>
 194                     <GVAL 'AC-1 = STK?14>
 195                     <NTHUV STK?14 2 = TEMP42 (TYPE FIX)>
 196                     <DEAD STK?14>
 197                     <OR TEMP42 #WORD *120* = TEMP42>
 198                     <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
 199                     <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
 200                     <DEAD TEMP42>
 201                     <CALL '\1aEMIT 2>
 202                     <FRAME '\1aEMIT-BRANCH>
 203                     <PUSH 18>
 204                     <PUSH IB-LAB18>
 205                     <PUSH %<>>
 206                     <GVAL 'LAST-INST-LENGTH = STACK>
 207                     <CALL '\1aEMIT-BRANCH 4>
 208                     <FRAME '\1aEMIT>
 209                     <PUSH 208>
 210                     <FRAME '\1aTYPE-WORD>
 211                     <PUSH 'FIX>
 212                     <CALL '\1aTYPE-WORD 1 = STACK>
 213                     <GVAL 'AC-0 = STK?14>
 214                     <NTHUV STK?14 2 = TEMP42 (TYPE FIX)>
 215                     <DEAD STK?14>
 216                     <OR TEMP42 #WORD *120* = TEMP42>
 217                     <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
 218                     <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
 219                     <DEAD TEMP42>
 220                     <CALL '\1aEMIT 3>
 221                     <FRAME '\1aEMIT>
 222                     <PUSH 208>
 223                     <FRAME '\1aVAR-VALUE-ADDRESS>
 224                     <PUSH VAR6>
 225                     <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
 226                     <GVAL 'AC-1 = STK?14>
 227                     <NTHUV STK?14 2 = TEMP42 (TYPE FIX)>
 228                     <DEAD STK?14>
 229                     <OR TEMP42 #WORD *120* = TEMP42>
 230                     <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
 231                     <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
 232                     <DEAD TEMP42>
 233                     <CALL '\1aEMIT 3>
 234                     <FRAME '\1aEMIT-BRANCH>
 235                     <PUSH 17>
 236                     <PUSH EXIT-LAB20>
 237                     <PUSH %<>>
 238                     <GVAL 'LAST-INST-LENGTH = STACK>
 239                     <CALL '\1aEMIT-BRANCH 4>
 240                     <FRAME '\1aEMIT-LABEL>
 241                     <PUSH IB-LAB18>
 242                     <DEAD IB-LAB18>
 243                     <PUSH 'T>
 244                     <CALL '\1aEMIT-LABEL 2>
 245 PHRASE54
 246                     <FRAME '\1aEMIT>
 247                     <PUSH 208>
 248                     <FRAME '\1aVAR-VALUE-ADDRESS>
 249                     <PUSH VAR6>
 250                     <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
 251                     <GVAL 'AC-1 = STK?14>
 252                     <NTHUV STK?14 2 = TEMP42 (TYPE FIX)>
 253                     <DEAD STK?14>
 254                     <OR TEMP42 #WORD *120* = TEMP42>
 255                     <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
 256                     <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
 257                     <DEAD TEMP42>
 258                     <CALL '\1aEMIT 3>
 259                     <FRAME '\1aEMIT>
 260                     <PUSH 149>
 261                     <FRAME '\1aMA-DISP>
 262                     <GVAL 'AC-1 = STACK>
 263                     <ADD RLEN13 1 = STACK (TYPE FIX)>
 264                     <CALL '\1aMA-DISP 2 = STACK>
 265                     <CALL '\1aEMIT 2>
 266                     <FRAME '\1aEMIT-BRANCH>
 267                     <PUSH 24>
 268                     <PUSH M-LAB21>
 269                     <PUSH %<>>
 270                     <GVAL 'LAST-INST-LENGTH = STACK>
 271                     <CALL '\1aEMIT-BRANCH 4>
 272                     <FRAME '\1aEMIT>
 273                     <PUSH 208>
 274                     <FRAME '\1aVAR-TYPE-ADDRESS>
 275                     <PUSH VAR6>
 276                     <CALL '\1aVAR-TYPE-ADDRESS 1 = STACK>
 277                     <GVAL 'AC-0 = STK?14>
 278                     <NTHUV STK?14 2 = TEMP42 (TYPE FIX)>
 279                     <DEAD STK?14>
 280                     <OR TEMP42 #WORD *120* = TEMP42>
 281                     <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
 282                     <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
 283                     <DEAD TEMP42>
 284                     <CALL '\1aEMIT 3>
 285                     <FRAME '\1aEMIT>
 286                     <PUSH 208>
 287                     <FRAME '\1aMA-DISP>
 288                     <GVAL 'AC-1 = STACK>
 289                     <ADD RLEN13 4 = STACK (TYPE FIX)>
 290                     <CALL '\1aMA-DISP 2 = STACK>
 291                     <GVAL 'AC-1 = STK?14>
 292                     <NTHUV STK?14 2 = TEMP42 (TYPE FIX)>
 293                     <DEAD STK?14>
 294                     <OR TEMP42 #WORD *120* = TEMP42>
 295                     <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
 296                     <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
 297                     <DEAD TEMP42>
 298                     <CALL '\1aEMIT 3>
 299                     <FRAME '\1aEMIT-BRANCH>
 300                     <PUSH 17>
 301                     <PUSH EXIT-LAB20>
 302                     <PUSH %<>>
 303                     <GVAL 'LAST-INST-LENGTH = STACK>
 304                     <CALL '\1aEMIT-BRANCH 4>
 305                     <FRAME '\1aEMIT-LABEL>
 306                     <PUSH M-LAB21>
 307                     <DEAD M-LAB21>
 308                     <PUSH 'T>
 309                     <CALL '\1aEMIT-LABEL 2>
 310                     <FRAME '\1aEMIT>
 311                     <PUSH 136>
 312                     <GVAL 'AC-PC = STK?14>
 313                     <NTHUV STK?14 2 = TEMP42 (TYPE FIX)>
 314                     <DEAD STK?14>
 315                     <OR TEMP42 #WORD *200* = TEMP42>
 316                     <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
 317                     <LSH 128 16 = STK?14 (TYPE FIX)>
 318                     <OR TEMP42 STK?14 = TEMP42>
 319                     <DEAD STK?14>
 320                     <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
 321                     <DEAD TEMP42>
 322                     <FRAME '\1aMA-DISP>
 323                     <GVAL 'AC-1 = STACK>
 324                     <ADD RLEN13 1 = STACK (TYPE FIX)>
 325                     <CALL '\1aMA-DISP 2 = STACK>
 326                     <CALL '\1aEMIT 3>
 327                     <FRAME '\1aEMIT>
 328                     <PUSH 125>
 329                     <PUSH ALLOCADDR15>
 330                     <GVAL 'AC-2 = TEMP42>
 331                     <NTHUV TEMP42 2 = TEMP42 (TYPE FIX)>
 332                     <OR TEMP42 #WORD *120* = TEMP42>
 333                     <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
 334                     <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
 335                     <DEAD TEMP42>
 336                     <CALL '\1aEMIT 3>
 337                     <FRAME '\1aEMIT>
 338                     <PUSH 193>
 339                     <FRAME '\1aMA-IMM>
 340                     <ADD RLEN13 8 = STACK (TYPE FIX)>
 341                     <CALL '\1aMA-IMM 1 = STACK>
 342                     <GVAL 'AC-3 = TEMP42>
 343                     <NTHUV TEMP42 2 = TEMP42 (TYPE FIX)>
 344                     <OR TEMP42 #WORD *120* = TEMP42>
 345                     <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
 346                     <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
 347                     <DEAD TEMP42>
 348                     <GVAL 'AC-6 = TEMP42>
 349                     <NTHUV TEMP42 2 = TEMP42 (TYPE FIX)>
 350                     <OR TEMP42 #WORD *120* = TEMP42>
 351                     <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
 352                     <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
 353                     <DEAD TEMP42>
 354                     <CALL '\1aEMIT 4>
 355                     <FRAME '\1aEMIT>
 356                     <PUSH 125>
 357                     <PUSH X47>
 358                     <DEAD X47>
 359                     <GVAL 'AC-4 = TEMP42>
 360                     <NTHUV TEMP42 2 = TEMP42 (TYPE FIX)>
 361                     <OR TEMP42 #WORD *120* = TEMP42>
 362                     <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
 363                     <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
 364                     <DEAD TEMP42>
 365                     <CALL '\1aEMIT 3>
 366                     <FRAME '\1aEMIT>
 367                     <PUSH 209>
 368                     <GVAL 'AC-6 = TEMP42>
 369                     <NTHUV TEMP42 2 = TEMP42 (TYPE FIX)>
 370                     <OR TEMP42 #WORD *120* = TEMP42>
 371                     <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
 372                     <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
 373                     <DEAD TEMP42>
 374                     <GVAL 'AC-5 = TEMP42>
 375                     <NTHUV TEMP42 2 = TEMP42 (TYPE FIX)>
 376                     <OR TEMP42 #WORD *120* = TEMP42>
 377                     <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
 378                     <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
 379                     <DEAD TEMP42>
 380                     <CALL '\1aEMIT 3>
 381                     <FRAME '\1aEMIT-BRANCH>
 382                     <PUSH 21>
 383                     <PUSH F-LAB19>
 384                     <PUSH %<>>
 385                     <GVAL 'LAST-INST-LENGTH = STACK>
 386                     <CALL '\1aEMIT-BRANCH 4>
 387                     <FRAME '\1aFRAME-GEN>
 388                     <PUSH NEXT-ATOM9>
 389                     <CALL '\1aFRAME-GEN 1>
 390                     <FRAME '\1aEMIT-PUSH>
 391                     <FRAME '\1aTYPE-WORD>
 392                     <PUSH 'FIX>
 393                     <CALL '\1aTYPE-WORD 1 = STACK>
 394                     <PUSH 'LONG>
 395                     <CALL '\1aEMIT-PUSH 2>
 396                     <FRAME '\1aEMIT>
 397                     <PUSH 208>
 398                     <FRAME '\1aMA-IMM>
 399                     <ADD RLEN13 8 = STACK (TYPE FIX)>
 400                     <CALL '\1aMA-IMM 1 = STACK>
 401                     <GVAL 'AC-TP = TEMP42>
 402                     <NTHUV TEMP42 2 = TEMP42 (TYPE FIX)>
 403                     <OR TEMP42 #WORD *200* = TEMP42>
 404                     <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
 405                     <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
 406                     <DEAD TEMP42>
 407                     <CALL '\1aEMIT 3>
 408                     <FRAME '\1aCALL-GEN>
 409                     <PUSH NEXT-ATOM9>
 410                     <DEAD NEXT-ATOM9>
 411                     <PUSH 1>
 412                     <CALL '\1aCALL-GEN 2>
 413                     <FRAME '\1aEMIT>
 414                     <PUSH 208>
 415                     <FRAME '\1aVAR-VALUE-ADDRESS>
 416                     <PUSH VAR6>
 417                     <DEAD VAR6>
 418                     <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
 419                     <GVAL 'AC-1 = TEMP42>
 420                     <NTHUV TEMP42 2 = TEMP42 (TYPE FIX)>
 421                     <OR TEMP42 #WORD *120* = TEMP42>
 422                     <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
 423                     <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
 424                     <DEAD TEMP42>
 425                     <CALL '\1aEMIT 3>
 426                     <FRAME '\1aEMIT>
 427                     <PUSH 125>
 428                     <PUSH ALLOCADDR15>
 429                     <GVAL 'AC-2 = TEMP42>
 430                     <NTHUV TEMP42 2 = TEMP42 (TYPE FIX)>
 431                     <OR TEMP42 #WORD *120* = TEMP42>
 432                     <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
 433                     <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
 434                     <DEAD TEMP42>
 435                     <CALL '\1aEMIT 3>
 436                     <FRAME '\1aEMIT>
 437                     <PUSH 193>
 438                     <FRAME '\1aMA-IMM>
 439                     <ADD RLEN13 8 = STACK (TYPE FIX)>
 440                     <CALL '\1aMA-IMM 1 = STACK>
 441                     <GVAL 'AC-3 = TEMP42>
 442                     <NTHUV TEMP42 2 = TEMP42 (TYPE FIX)>
 443                     <OR TEMP42 #WORD *120* = TEMP42>
 444                     <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
 445                     <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
 446                     <DEAD TEMP42>
 447                     <GVAL 'AC-6 = TEMP42>
 448                     <NTHUV TEMP42 2 = TEMP42 (TYPE FIX)>
 449                     <OR TEMP42 #WORD *120* = TEMP42>
 450                     <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
 451                     <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
 452                     <DEAD TEMP42>
 453                     <CALL '\1aEMIT 4>
 454                     <FRAME '\1aEMIT-LABEL>
 455                     <PUSH F-LAB19>
 456                     <DEAD F-LAB19>
 457                     <PUSH 'T>
 458                     <CALL '\1aEMIT-LABEL 2>
 459                     <FRAME '\1aEMIT>
 460                     <PUSH 208>
 461                     <GVAL 'AC-3 = TEMP42>
 462                     <NTHUV TEMP42 2 = TEMP42 (TYPE FIX)>
 463                     <OR TEMP42 #WORD *120* = TEMP42>
 464                     <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
 465                     <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
 466                     <DEAD TEMP42>
 467                     <FRAME '\1aMA-DISP>
 468                     <GVAL 'AC-1 = STACK>
 469                     <ADD RLEN13 4 = STACK (TYPE FIX)>
 470                     <CALL '\1aMA-DISP 2 = STACK>
 471                     <CALL '\1aEMIT 3>
 472                     <FRAME '\1aEMIT>
 473                     <PUSH 208>
 474                     <FRAME '\1aTYPE-CODE>
 475                     <PUSH 'FIX>
 476                     <CALL '\1aTYPE-CODE 1 = STACK>
 477                     <GVAL 'AC-5 = TEMP42>
 478                     <NTHUV TEMP42 2 = TEMP42 (TYPE FIX)>
 479                     <OR TEMP42 #WORD *120* = TEMP42>
 480                     <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
 481                     <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
 482                     <DEAD TEMP42>
 483                     <CALL '\1aEMIT 3>
 484                     <FRAME '\1aEMIT>
 485                     <PUSH 125>
 486                     <GVAL 'AC-5 = TEMP42>
 487                     <NTHUV TEMP42 2 = TEMP42 (TYPE FIX)>
 488                     <OR TEMP42 #WORD *120* = TEMP42>
 489                     <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
 490                     <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
 491                     <DEAD TEMP42>
 492                     <PUSH ALLOCADDR15>
 493                     <DEAD ALLOCADDR15>
 494                     <CALL '\1aEMIT 3>
 495                     <FRAME '\1aEMIT>
 496                     <PUSH 125>
 497                     <FRAME '\1aMA-DISP>
 498                     <GVAL 'AC-1 = STACK>
 499                     <PUSH RLEN13>
 500                     <CALL '\1aMA-DISP 2 = STACK>
 501                     <FRAME '\1aMA-DISP>
 502                     <GVAL 'AC-3 = STACK>
 503                     <PUSH RLEN13>
 504                     <CALL '\1aMA-DISP 2 = STACK>
 505                     <CALL '\1aEMIT 3>
 506                     <FRAME '\1aEMIT>
 507                     <PUSH 138>
 508                     <GVAL 'AC-PC = TEMP42>
 509                     <NTHUV TEMP42 2 = TEMP42 (TYPE FIX)>
 510                     <OR TEMP42 #WORD *200* = TEMP42>
 511                     <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
 512                     <LSH 128 16 = STK?14 (TYPE FIX)>
 513                     <OR TEMP42 STK?14 = TEMP42>
 514                     <DEAD STK?14>
 515                     <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
 516                     <DEAD TEMP42>
 517                     <FRAME '\1aMA-DISP>
 518                     <GVAL 'AC-3 = STACK>
 519                     <ADD RLEN13 1 = STACK (TYPE FIX)>
 520                     <DEAD RLEN13>
 521                     <CALL '\1aMA-DISP 2 = STACK>
 522                     <CALL '\1aEMIT 3>
 523                     <FRAME '\1aEMIT>
 524                     <PUSH 208>
 525                     <GVAL 'AC-3 = TEMP42>
 526                     <NTHUV TEMP42 2 = TEMP42 (TYPE FIX)>
 527                     <OR TEMP42 #WORD *120* = TEMP42>
 528                     <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
 529                     <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
 530                     <DEAD TEMP42>
 531                     <GVAL 'AC-1 = TEMP42>
 532                     <NTHUV TEMP42 2 = TEMP42 (TYPE FIX)>
 533                     <OR TEMP42 #WORD *120* = TEMP42>
 534                     <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
 535                     <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
 536                     <DEAD TEMP42>
 537                     <CALL '\1aEMIT 3>
 538                     <FRAME '\1aEMIT>
 539                     <PUSH 208>
 540                     <FRAME '\1aTYPE-WORD>
 541                     <PUSH 'FIX>
 542                     <CALL '\1aTYPE-WORD 1 = STACK>
 543                     <GVAL 'AC-0 = TEMP42>
 544                     <NTHUV TEMP42 2 = TEMP42 (TYPE FIX)>
 545                     <OR TEMP42 #WORD *120* = TEMP42>
 546                     <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
 547                     <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
 548                     <DEAD TEMP42>
 549                     <CALL '\1aEMIT 3>
 550                     <FRAME '\1aEMIT-LABEL>
 551                     <PUSH EXIT-LAB20>
 552                     <DEAD EXIT-LAB20>
 553                     <PUSH 'T>
 554                     <CALL '\1aEMIT-LABEL 2>
 555                     <EQUAL? RES11 'STACK - PHRASE121>
 556                     <FRAME '\1aEMIT>
 557                     <PUSH 125>
 558                     <GVAL 'AC-0 = TEMP42>
 559                     <NTHUV TEMP42 2 = TEMP42 (TYPE FIX)>
 560                     <OR TEMP42 #WORD *120* = TEMP42>
 561                     <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
 562                     <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
 563                     <DEAD TEMP42>
 564                     <GVAL 'AC-TP = TEMP42>
 565                     <NTHUV TEMP42 2 = TEMP42 (TYPE FIX)>
 566                     <OR TEMP42 #WORD *200* = TEMP42>
 567                     <LSH TEMP42 24 = TEMP42 (TYPE FIX)>
 568                     <CHTYPE TEMP42 <TYPE-CODE EFF-ADDR> = STACK>
 569                     <DEAD TEMP42>
 570                     <CALL '\1aEMIT 3>
 571                     <RETURN 'NORMAL>
 572 PHRASE121
 573                     <FRAME '\1aDEST-PAIR>
 574                     <GVAL 'AC-1 = STACK>
 575                     <GVAL 'AC-0 = STACK>
 576                     <PUSH RES11>
 577                     <DEAD RES11>
 578                     <CALL '\1aDEST-PAIR 3>
 579                     <RETURN 'NORMAL>
 580                     <END \1aCGC-RECORD-GEN>
 581
 582 #WORD *14013231334*
 583                     <GFCN \1aCGC-STBYTE-GEN ("VALUE" ATOM ANY ANY ANY ANY ANY) VAR4 ALLOC-ATOM5 END-ATOM6 NEXT-ATOM7 RES8>
 584                     <TEMP TEMP15 X20:ATOM>
 585                     <INTGO>
 586                     <SET TEMP15 (AC-0 AC-1 AC-2 AC-3 AC-4 AC-5 AC-6) (TYPE LIST)>
 587                     <LOOP>
 588 MAP10
 589                     <INTGO>
 590                     <EMPL? TEMP15 + MAPAP13>
 591                     <NTHL TEMP15 1 = X20>
 592                     <FRAME '\1aMUNG-AC>
 593                     <GVAL X20 = STACK>
 594                     <DEAD X20>
 595                     <CALL '\1aMUNG-AC 1>
 596                     <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
 597                     <JUMP + MAP10>
 598 MAPAP13
 599                     <FRAME '\1aEMIT>
 600                     <PUSH 60>
 601                     <FRAME '\1aVAR-COUNT-ADDRESS>
 602                     <PUSH VAR4>
 603                     <CALL '\1aVAR-COUNT-ADDRESS 1 = STACK>
 604                     <GVAL 'AC-0 = TEMP15>
 605                     <NTHUV TEMP15 2 = TEMP15 (TYPE FIX)>
 606                     <OR TEMP15 #WORD *120* = TEMP15>
 607                     <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
 608                     <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
 609                     <DEAD TEMP15>
 610                     <CALL '\1aEMIT 3>
 611                     <FRAME '\1aEMIT>
 612                     <PUSH 193>
 613                     <GVAL 'AC-0 = TEMP15>
 614                     <NTHUV TEMP15 2 = TEMP15 (TYPE FIX)>
 615                     <OR TEMP15 #WORD *120* = TEMP15>
 616                     <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
 617                     <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
 618                     <DEAD TEMP15>
 619                     <FRAME '\1aVAR-VALUE-ADDRESS>
 620                     <PUSH VAR4>
 621                     <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
 622                     <GVAL 'AC-1 = TEMP15>
 623                     <NTHUV TEMP15 2 = TEMP15 (TYPE FIX)>
 624                     <OR TEMP15 #WORD *120* = TEMP15>
 625                     <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
 626                     <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
 627                     <DEAD TEMP15>
 628                     <CALL '\1aEMIT 4>
 629                     <FRAME '\1aEMIT>
 630                     <PUSH 192>
 631                     <FRAME '\1aMA-IMM>
 632                     <PUSH 3>
 633                     <CALL '\1aMA-IMM 1 = STACK>
 634                     <GVAL 'AC-1 = TEMP15>
 635                     <NTHUV TEMP15 2 = TEMP15 (TYPE FIX)>
 636                     <OR TEMP15 #WORD *120* = TEMP15>
 637                     <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
 638                     <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
 639                     <DEAD TEMP15>
 640                     <CALL '\1aEMIT 3>
 641                     <FRAME '\1aEMIT>
 642                     <PUSH 138>
 643                     <FRAME '\1aMA-IMM>
 644                     <PUSH 3>
 645                     <CALL '\1aMA-IMM 1 = STACK>
 646                     <GVAL 'AC-1 = TEMP15>
 647                     <NTHUV TEMP15 2 = TEMP15 (TYPE FIX)>
 648                     <OR TEMP15 #WORD *120* = TEMP15>
 649                     <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
 650                     <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
 651                     <DEAD TEMP15>
 652                     <CALL '\1aEMIT 3>
 653                     <FRAME '\1aEMIT>
 654                     <PUSH 195>
 655                     <FRAME '\1aVAR-VALUE-ADDRESS>
 656                     <PUSH VAR4>
 657                     <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
 658                     <GVAL 'AC-1 = TEMP15>
 659                     <NTHUV TEMP15 2 = TEMP15 (TYPE FIX)>
 660                     <OR TEMP15 #WORD *120* = TEMP15>
 661                     <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
 662                     <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
 663                     <DEAD TEMP15>
 664                     <GVAL 'AC-0 = TEMP15>
 665                     <NTHUV TEMP15 2 = TEMP15 (TYPE FIX)>
 666                     <OR TEMP15 #WORD *120* = TEMP15>
 667                     <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
 668                     <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
 669                     <DEAD TEMP15>
 670                     <CALL '\1aEMIT 4>
 671                     <FRAME '\1aCGC-UV-ST>
 672                     <PUSH VAR4>
 673                     <DEAD VAR4>
 674                     <PUSH ALLOC-ATOM5>
 675                     <DEAD ALLOC-ATOM5>
 676                     <PUSH END-ATOM6>
 677                     <DEAD END-ATOM6>
 678                     <PUSH NEXT-ATOM7>
 679                     <DEAD NEXT-ATOM7>
 680                     <PUSH RES8>
 681                     <DEAD RES8>
 682                     <CALL '\1aCGC-UV-ST 5 = TEMP15>
 683                     <RETURN TEMP15>
 684                     <DEAD TEMP15>
 685                     <END \1aCGC-STBYTE-GEN>
 686
 687 #WORD *5503241365*
 688                     <GFCN \1aCGC-UVECTOR-GEN ("VALUE" ATOM ANY ANY ANY ANY ANY) VAR4 ALLOC-ATOM5 END-ATOM6 NEXT-ATOM7 RES8>
 689                     <TEMP TEMP15 X20:ATOM>
 690                     <INTGO>
 691                     <SET TEMP15 (AC-0 AC-1 AC-2 AC-3 AC-4 AC-5 AC-6) (TYPE LIST)>
 692                     <LOOP>
 693 MAP10
 694                     <INTGO>
 695                     <EMPL? TEMP15 + MAPAP13>
 696                     <NTHL TEMP15 1 = X20>
 697                     <FRAME '\1aMUNG-AC>
 698                     <GVAL X20 = STACK>
 699                     <DEAD X20>
 700                     <CALL '\1aMUNG-AC 1>
 701                     <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
 702                     <JUMP + MAP10>
 703 MAPAP13
 704                     <FRAME '\1aEMIT>
 705                     <PUSH 60>
 706                     <FRAME '\1aVAR-COUNT-ADDRESS>
 707                     <PUSH VAR4>
 708                     <CALL '\1aVAR-COUNT-ADDRESS 1 = STACK>
 709                     <GVAL 'AC-0 = TEMP15>
 710                     <NTHUV TEMP15 2 = TEMP15 (TYPE FIX)>
 711                     <OR TEMP15 #WORD *120* = TEMP15>
 712                     <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
 713                     <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
 714                     <DEAD TEMP15>
 715                     <CALL '\1aEMIT 3>
 716                     <FRAME '\1aEMIT>
 717                     <PUSH 120>
 718                     <FRAME '\1aMA-IMM>
 719                     <PUSH 2>
 720                     <CALL '\1aMA-IMM 1 = STACK>
 721                     <GVAL 'AC-0 = TEMP15>
 722                     <NTHUV TEMP15 2 = TEMP15 (TYPE FIX)>
 723                     <OR TEMP15 #WORD *120* = TEMP15>
 724                     <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
 725                     <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
 726                     <DEAD TEMP15>
 727                     <GVAL 'AC-0 = TEMP15>
 728                     <NTHUV TEMP15 2 = TEMP15 (TYPE FIX)>
 729                     <OR TEMP15 #WORD *120* = TEMP15>
 730                     <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
 731                     <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
 732                     <DEAD TEMP15>
 733                     <CALL '\1aEMIT 4>
 734                     <FRAME '\1aEMIT>
 735                     <PUSH 193>
 736                     <GVAL 'AC-0 = TEMP15>
 737                     <NTHUV TEMP15 2 = TEMP15 (TYPE FIX)>
 738                     <OR TEMP15 #WORD *120* = TEMP15>
 739                     <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
 740                     <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
 741                     <DEAD TEMP15>
 742                     <FRAME '\1aVAR-VALUE-ADDRESS>
 743                     <PUSH VAR4>
 744                     <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
 745                     <GVAL 'AC-1 = TEMP15>
 746                     <NTHUV TEMP15 2 = TEMP15 (TYPE FIX)>
 747                     <OR TEMP15 #WORD *120* = TEMP15>
 748                     <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
 749                     <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
 750                     <DEAD TEMP15>
 751                     <CALL '\1aEMIT 4>
 752                     <FRAME '\1aCGC-UV-ST>
 753                     <PUSH VAR4>
 754                     <DEAD VAR4>
 755                     <PUSH ALLOC-ATOM5>
 756                     <DEAD ALLOC-ATOM5>
 757                     <PUSH END-ATOM6>
 758                     <DEAD END-ATOM6>
 759                     <PUSH NEXT-ATOM7>
 760                     <DEAD NEXT-ATOM7>
 761                     <PUSH RES8>
 762                     <DEAD RES8>
 763                     <CALL '\1aCGC-UV-ST 5 = TEMP15>
 764                     <RETURN TEMP15>
 765                     <DEAD TEMP15>
 766                     <END \1aCGC-UVECTOR-GEN>
 767
 768 #WORD *20554635463*
 769                     <GFCN \1aCGC-UV-ST ("VALUE" ATOM VARTBL ATOM ATOM ATOM <OR VARTBL ATOM>) VAR4 ALLOC-ATOM5 END-ATOM6 NEXT-ATOM7 RES8>
 770                     <TEMP M-LAB11 BLT-LOOP12 NF-LAB13 F-LAB14 SHT-LAB15 DONE-LAB16 TEMP25 ENDADDR9 ALLOCADDR10 TEMP32>
 771                     <INTGO>
 772                     <FRAME '\1aMAKE-LABEL>
 773                     <CALL '\1aMAKE-LABEL 0 = M-LAB11>
 774                     <FRAME '\1aMAKE-LABEL>
 775                     <CALL '\1aMAKE-LABEL 0 = BLT-LOOP12>
 776                     <FRAME '\1aMAKE-LABEL>
 777                     <CALL '\1aMAKE-LABEL 0 = NF-LAB13>
 778                     <FRAME '\1aMAKE-LABEL>
 779                     <CALL '\1aMAKE-LABEL 0 = F-LAB14>
 780                     <FRAME '\1aMAKE-LABEL>
 781                     <CALL '\1aMAKE-LABEL 0 = SHT-LAB15>
 782                     <FRAME '\1aMAKE-LABEL>
 783                     <CALL '\1aMAKE-LABEL 0 = DONE-LAB16>
 784                     <FRAME '\1aMA-DEF-DISP>
 785                     <GVAL 'AC-M = STACK>
 786                     <FRAME '\1aADD-MVEC>
 787                     <CHTYPE END-ATOM6 <TYPE-CODE XGLOC> = STACK>
 788                     <DEAD END-ATOM6>
 789                     <CALL '\1aADD-MVEC 1 = TEMP25>
 790                     <ADD TEMP25 4 = STACK (TYPE FIX)>
 791                     <DEAD TEMP25>
 792                     <CALL '\1aMA-DEF-DISP 2 = ENDADDR9>
 793                     <FRAME '\1aMA-DEF-DISP>
 794                     <GVAL 'AC-M = STACK>
 795                     <FRAME '\1aADD-MVEC>
 796                     <CHTYPE ALLOC-ATOM5 <TYPE-CODE XGLOC> = STACK>
 797                     <DEAD ALLOC-ATOM5>
 798                     <CALL '\1aADD-MVEC 1 = TEMP25>
 799                     <ADD TEMP25 4 = STACK (TYPE FIX)>
 800                     <DEAD TEMP25>
 801                     <CALL '\1aMA-DEF-DISP 2 = ALLOCADDR10>
 802                     <FRAME '\1aEMIT>
 803                     <PUSH 149>
 804                     <FRAME '\1aMA-DISP>
 805                     <GVAL 'AC-1 = STACK>
 806                     <PUSH 1>
 807                     <CALL '\1aMA-DISP 2 = STACK>
 808                     <CALL '\1aEMIT 2>
 809                     <FRAME '\1aEMIT-BRANCH>
 810                     <PUSH 25>
 811                     <PUSH M-LAB11>
 812                     <PUSH %<>>
 813                     <GVAL 'LAST-INST-LENGTH = STACK>
 814                     <CALL '\1aEMIT-BRANCH 4>
 815                     <FRAME '\1aEMIT>
 816                     <PUSH 136>
 817                     <GVAL 'AC-PC = TEMP25>
 818                     <NTHUV TEMP25 2 = TEMP25 (TYPE FIX)>
 819                     <OR TEMP25 #WORD *200* = TEMP25>
 820                     <LSH TEMP25 24 = TEMP25 (TYPE FIX)>
 821                     <LSH 128 16 = TEMP32 (TYPE FIX)>
 822                     <OR TEMP25 TEMP32 = TEMP25>
 823                     <DEAD TEMP32>
 824                     <CHTYPE TEMP25 <TYPE-CODE EFF-ADDR> = STACK>
 825                     <DEAD TEMP25>
 826                     <FRAME '\1aMA-DISP>
 827                     <GVAL 'AC-1 = STACK>
 828                     <PUSH 1>
 829                     <CALL '\1aMA-DISP 2 = STACK>
 830                     <CALL '\1aEMIT 3>
 831                     <FRAME '\1aEMIT>
 832                     <PUSH 221>
 833                     <GVAL 'AC-0 = TEMP25>
 834                     <NTHUV TEMP25 2 = TEMP32 (TYPE FIX)>
 835                     <DEAD TEMP25>
 836                     <OR TEMP32 #WORD *120* = TEMP32>
 837                     <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
 838                     <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
 839                     <DEAD TEMP32>
 840                     <CALL '\1aEMIT 2>
 841                     <FRAME '\1aEMIT>
 842                     <PUSH 60>
 843                     <FRAME '\1aMA-DISP>
 844                     <GVAL 'AC-1 = STACK>
 845                     <PUSH 2>
 846                     <CALL '\1aMA-DISP 2 = STACK>
 847                     <GVAL 'AC-6 = TEMP32>
 848                     <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
 849                     <OR TEMP32 #WORD *120* = TEMP32>
 850                     <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
 851                     <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
 852                     <DEAD TEMP32>
 853                     <CALL '\1aEMIT 3>
 854                     <FRAME '\1aEMIT>
 855                     <PUSH 120>
 856                     <FRAME '\1aMA-IMM>
 857                     <PUSH 2>
 858                     <CALL '\1aMA-IMM 1 = STACK>
 859                     <GVAL 'AC-6 = TEMP32>
 860                     <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
 861                     <OR TEMP32 #WORD *120* = TEMP32>
 862                     <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
 863                     <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
 864                     <DEAD TEMP32>
 865                     <GVAL 'AC-6 = TEMP32>
 866                     <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
 867                     <OR TEMP32 #WORD *120* = TEMP32>
 868                     <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
 869                     <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
 870                     <DEAD TEMP32>
 871                     <CALL '\1aEMIT 4>
 872                     <FRAME '\1aEMIT>
 873                     <PUSH 221>
 874                     <GVAL 'AC-6 = TEMP32>
 875                     <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
 876                     <OR TEMP32 #WORD *120* = TEMP32>
 877                     <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
 878                     <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
 879                     <DEAD TEMP32>
 880                     <CALL '\1aEMIT 2>
 881                     <FRAME '\1aEMIT>
 882                     <PUSH 125>
 883                     <PUSH ALLOCADDR10>
 884                     <GVAL 'AC-2 = TEMP32>
 885                     <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
 886                     <OR TEMP32 #WORD *120* = TEMP32>
 887                     <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
 888                     <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
 889                     <DEAD TEMP32>
 890                     <CALL '\1aEMIT 3>
 891                     <FRAME '\1aEMIT>
 892                     <PUSH 192>
 893                     <GVAL 'AC-3 = TEMP32>
 894                     <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
 895                     <OR TEMP32 #WORD *120* = TEMP32>
 896                     <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
 897                     <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
 898                     <DEAD TEMP32>
 899                     <GVAL 'AC-6 = TEMP32>
 900                     <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
 901                     <OR TEMP32 #WORD *120* = TEMP32>
 902                     <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
 903                     <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
 904                     <DEAD TEMP32>
 905                     <CALL '\1aEMIT 3>
 906                     <FRAME '\1aEMIT-BRANCH>
 907                     <PUSH 29>
 908                     <PUSH NF-LAB13>
 909                     <PUSH %<>>
 910                     <GVAL 'LAST-INST-LENGTH = STACK>
 911                     <CALL '\1aEMIT-BRANCH 4>
 912                     <FRAME '\1aEMIT>
 913                     <PUSH 125>
 914                     <PUSH ENDADDR9>
 915                     <DEAD ENDADDR9>
 916                     <GVAL 'AC-4 = TEMP32>
 917                     <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
 918                     <OR TEMP32 #WORD *120* = TEMP32>
 919                     <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
 920                     <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
 921                     <DEAD TEMP32>
 922                     <CALL '\1aEMIT 3>
 923                     <FRAME '\1aEMIT>
 924                     <PUSH 209>
 925                     <GVAL 'AC-6 = TEMP32>
 926                     <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
 927                     <OR TEMP32 #WORD *120* = TEMP32>
 928                     <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
 929                     <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
 930                     <DEAD TEMP32>
 931                     <GVAL 'AC-5 = TEMP32>
 932                     <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
 933                     <OR TEMP32 #WORD *120* = TEMP32>
 934                     <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
 935                     <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
 936                     <DEAD TEMP32>
 937                     <CALL '\1aEMIT 3>
 938                     <FRAME '\1aEMIT-BRANCH>
 939                     <PUSH 21>
 940                     <PUSH F-LAB14>
 941                     <PUSH %<>>
 942                     <GVAL 'LAST-INST-LENGTH = STACK>
 943                     <CALL '\1aEMIT-BRANCH 4>
 944                     <FRAME '\1aEMIT-LABEL>
 945                     <PUSH NF-LAB13>
 946                     <DEAD NF-LAB13>
 947                     <PUSH 'T>
 948                     <CALL '\1aEMIT-LABEL 2>
 949                     <FRAME '\1aFRAME-GEN>
 950                     <PUSH NEXT-ATOM7>
 951                     <CALL '\1aFRAME-GEN 1>
 952                     <FRAME '\1aEMIT-PUSH>
 953                     <FRAME '\1aTYPE-WORD>
 954                     <PUSH 'FIX>
 955                     <CALL '\1aTYPE-WORD 1 = STACK>
 956                     <PUSH 'LONG>
 957                     <CALL '\1aEMIT-PUSH 2>
 958                     <FRAME '\1aEMIT>
 959                     <PUSH 208>
 960                     <GVAL 'AC-P = TEMP32>
 961                     <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
 962                     <OR TEMP32 #WORD *140* = TEMP32>
 963                     <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
 964                     <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
 965                     <DEAD TEMP32>
 966                     <GVAL 'AC-TP = TEMP32>
 967                     <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
 968                     <OR TEMP32 #WORD *200* = TEMP32>
 969                     <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
 970                     <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
 971                     <DEAD TEMP32>
 972                     <CALL '\1aEMIT 3>
 973                     <FRAME '\1aEMIT>
 974                     <PUSH 221>
 975                     <GVAL 'AC-1 = TEMP32>
 976                     <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
 977                     <OR TEMP32 #WORD *120* = TEMP32>
 978                     <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
 979                     <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
 980                     <DEAD TEMP32>
 981                     <CALL '\1aEMIT 2>
 982                     <FRAME '\1aCALL-GEN>
 983                     <PUSH NEXT-ATOM7>
 984                     <DEAD NEXT-ATOM7>
 985                     <PUSH 1>
 986                     <CALL '\1aCALL-GEN 2>
 987                     <FRAME '\1aEMIT>
 988                     <PUSH 125>
 989                     <PUSH ALLOCADDR10>
 990                     <GVAL 'AC-2 = TEMP32>
 991                     <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
 992                     <OR TEMP32 #WORD *120* = TEMP32>
 993                     <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
 994                     <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
 995                     <DEAD TEMP32>
 996                     <CALL '\1aEMIT 3>
 997                     <FRAME '\1aEMIT>
 998                     <PUSH 208>
 999                     <GVAL 'AC-P = TEMP32>
1000                     <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
1001                     <OR TEMP32 #WORD *200* = TEMP32>
1002                     <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
1003                     <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
1004                     <DEAD TEMP32>
1005                     <GVAL 'AC-1 = TEMP32>
1006                     <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
1007                     <OR TEMP32 #WORD *120* = TEMP32>
1008                     <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
1009                     <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
1010                     <DEAD TEMP32>
1011                     <CALL '\1aEMIT 3>
1012                     <FRAME '\1aEMIT>
1013                     <PUSH 208>
1014                     <GVAL 'AC-P = TEMP32>
1015                     <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
1016                     <OR TEMP32 #WORD *140* = TEMP32>
1017                     <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
1018                     <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
1019                     <DEAD TEMP32>
1020                     <GVAL 'AC-6 = TEMP32>
1021                     <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
1022                     <OR TEMP32 #WORD *120* = TEMP32>
1023                     <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
1024                     <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
1025                     <DEAD TEMP32>
1026                     <CALL '\1aEMIT 3>
1027                     <FRAME '\1aEMIT>
1028                     <PUSH 192>
1029                     <GVAL 'AC-3 = TEMP32>
1030                     <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
1031                     <OR TEMP32 #WORD *120* = TEMP32>
1032                     <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
1033                     <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
1034                     <DEAD TEMP32>
1035                     <GVAL 'AC-6 = TEMP32>
1036                     <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
1037                     <OR TEMP32 #WORD *120* = TEMP32>
1038                     <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
1039                     <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
1040                     <DEAD TEMP32>
1041                     <CALL '\1aEMIT 3>
1042                     <FRAME '\1aEMIT-LABEL>
1043                     <PUSH F-LAB14>
1044                     <DEAD F-LAB14>
1045                     <PUSH 'T>
1046                     <CALL '\1aEMIT-LABEL 2>
1047                     <FRAME '\1aEMIT>
1048                     <PUSH 222>
1049                     <FRAME '\1aMA-DISP>
1050                     <GVAL 'AC-6 = STACK>
1051                     <PUSH -8>
1052                     <CALL '\1aMA-DISP 2 = STACK>
1053                     <FRAME '\1aMA-DISP>
1054                     <GVAL 'AC-1 = STACK>
1055                     <PUSH 4>
1056                     <CALL '\1aMA-DISP 2 = STACK>
1057                     <CALL '\1aEMIT 3>
1058                     <FRAME '\1aEMIT>
1059                     <PUSH 208>
1060                     <FRAME '\1aTYPE-CODE>
1061                     <PUSH 'FIX>
1062                     <CALL '\1aTYPE-CODE 1 = STACK>
1063                     <GVAL 'AC-5 = TEMP32>
1064                     <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
1065                     <OR TEMP32 #WORD *120* = TEMP32>
1066                     <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
1067                     <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
1068                     <DEAD TEMP32>
1069                     <CALL '\1aEMIT 3>
1070                     <FRAME '\1aEMIT>
1071                     <PUSH 125>
1072                     <GVAL 'AC-5 = TEMP32>
1073                     <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
1074                     <OR TEMP32 #WORD *120* = TEMP32>
1075                     <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
1076                     <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
1077                     <DEAD TEMP32>
1078                     <PUSH ALLOCADDR10>
1079                     <DEAD ALLOCADDR10>
1080                     <CALL '\1aEMIT 3>
1081                     <FRAME '\1aEMIT>
1082                     <PUSH 208>
1083                     <GVAL 'AC-P = TEMP32>
1084                     <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
1085                     <OR TEMP32 #WORD *200* = TEMP32>
1086                     <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
1087                     <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
1088                     <DEAD TEMP32>
1089                     <GVAL 'AC-6 = TEMP32>
1090                     <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
1091                     <OR TEMP32 #WORD *120* = TEMP32>
1092                     <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
1093                     <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
1094                     <DEAD TEMP32>
1095                     <CALL '\1aEMIT 3>
1096                     <FRAME '\1aEMIT>
1097                     <PUSH 194>
1098                     <GVAL 'AC-6 = TEMP32>
1099                     <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
1100                     <OR TEMP32 #WORD *120* = TEMP32>
1101                     <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
1102                     <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
1103                     <DEAD TEMP32>
1104                     <GVAL 'AC-1 = TEMP32>
1105                     <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
1106                     <OR TEMP32 #WORD *120* = TEMP32>
1107                     <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
1108                     <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
1109                     <DEAD TEMP32>
1110                     <CALL '\1aEMIT 3>
1111                     <FRAME '\1aEMIT>
1112                     <PUSH 192>
1113                     <FRAME '\1aMA-IMM>
1114                     <PUSH 8>
1115                     <CALL '\1aMA-IMM 1 = STACK>
1116                     <GVAL 'AC-1 = TEMP32>
1117                     <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
1118                     <OR TEMP32 #WORD *120* = TEMP32>
1119                     <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
1120                     <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
1121                     <DEAD TEMP32>
1122                     <CALL '\1aEMIT 3>
1123                     <FRAME '\1aEMIT-LABEL>
1124                     <PUSH BLT-LOOP12>
1125                     <PUSH 'T>
1126                     <CALL '\1aEMIT-LABEL 2>
1127                     <FRAME '\1aEMIT>
1128                     <PUSH 208>
1129                     <GVAL 'AC-6 = TEMP32>
1130                     <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
1131                     <OR TEMP32 #WORD *120* = TEMP32>
1132                     <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
1133                     <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
1134                     <DEAD TEMP32>
1135                     <GVAL 'AC-5 = TEMP32>
1136                     <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
1137                     <OR TEMP32 #WORD *120* = TEMP32>
1138                     <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
1139                     <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
1140                     <DEAD TEMP32>
1141                     <CALL '\1aEMIT 3>
1142                     <FRAME '\1aEMIT>
1143                     <PUSH 209>
1144                     <GVAL 'AC-6 = TEMP32>
1145                     <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
1146                     <OR TEMP32 #WORD *120* = TEMP32>
1147                     <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
1148                     <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
1149                     <DEAD TEMP32>
1150                     <FRAME '\1aMA-IMM>
1151                     <PUSH 65535>
1152                     <CALL '\1aMA-IMM 1 = STACK>
1153                     <CALL '\1aEMIT 3>
1154                     <FRAME '\1aGEN-BRANCH>
1155                     <PUSH 25>
1156                     <PUSH SHT-LAB15>
1157                     <PUSH %<>>
1158                     <CALL '\1aGEN-BRANCH 3>
1159                     <FRAME '\1aEMIT>
1160                     <PUSH 208>
1161                     <FRAME '\1aMA-IMM>
1162                     <PUSH 65535>
1163                     <CALL '\1aMA-IMM 1 = STACK>
1164                     <GVAL 'AC-5 = TEMP32>
1165                     <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
1166                     <OR TEMP32 #WORD *120* = TEMP32>
1167                     <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
1168                     <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
1169                     <DEAD TEMP32>
1170                     <CALL '\1aEMIT 3>
1171                     <FRAME '\1aEMIT-LABEL>
1172                     <PUSH SHT-LAB15>
1173                     <DEAD SHT-LAB15>
1174                     <PUSH 'T>
1175                     <CALL '\1aEMIT-LABEL 2>
1176                     <FRAME '\1aEMIT>
1177                     <PUSH 40>
1178                     <GVAL 'AC-5 = TEMP32>
1179                     <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
1180                     <OR TEMP32 #WORD *120* = TEMP32>
1181                     <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
1182                     <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
1183                     <DEAD TEMP32>
1184                     <GVAL 'AC-1 = TEMP32>
1185                     <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
1186                     <OR TEMP32 #WORD *140* = TEMP32>
1187                     <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
1188                     <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
1189                     <DEAD TEMP32>
1190                     <GVAL 'AC-3 = TEMP32>
1191                     <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
1192                     <OR TEMP32 #WORD *140* = TEMP32>
1193                     <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
1194                     <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
1195                     <DEAD TEMP32>
1196                     <CALL '\1aEMIT 4>
1197                     <FRAME '\1aEMIT>
1198                     <PUSH 194>
1199                     <FRAME '\1aMA-IMM>
1200                     <PUSH 65535>
1201                     <CALL '\1aMA-IMM 1 = STACK>
1202                     <GVAL 'AC-6 = TEMP32>
1203                     <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
1204                     <OR TEMP32 #WORD *120* = TEMP32>
1205                     <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
1206                     <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
1207                     <DEAD TEMP32>
1208                     <CALL '\1aEMIT 3>
1209                     <FRAME '\1aGEN-BRANCH>
1210                     <PUSH 20>
1211                     <PUSH BLT-LOOP12>
1212                     <DEAD BLT-LOOP12>
1213                     <PUSH %<>>
1214                     <CALL '\1aGEN-BRANCH 3>
1215                     <FRAME '\1aEMIT>
1216                     <PUSH 138>
1217                     <GVAL 'AC-PC = TEMP32>
1218                     <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
1219                     <OR TEMP32 #WORD *200* = TEMP32>
1220                     <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
1221                     <LSH 128 16 = TEMP25 (TYPE FIX)>
1222                     <OR TEMP32 TEMP25 = TEMP32>
1223                     <DEAD TEMP25>
1224                     <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
1225                     <DEAD TEMP32>
1226                     <FRAME '\1aMA-DISP>
1227                     <GVAL 'AC-3 = STACK>
1228                     <PUSH -7>
1229                     <CALL '\1aMA-DISP 2 = STACK>
1230                     <CALL '\1aEMIT 3>
1231                     <FRAME '\1aEMIT>
1232                     <PUSH 195>
1233                     <FRAME '\1aMA-IMM>
1234                     <PUSH 8>
1235                     <CALL '\1aMA-IMM 1 = STACK>
1236                     <GVAL 'AC-3 = TEMP32>
1237                     <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
1238                     <OR TEMP32 #WORD *120* = TEMP32>
1239                     <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
1240                     <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
1241                     <DEAD TEMP32>
1242                     <GVAL 'AC-1 = TEMP32>
1243                     <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
1244                     <OR TEMP32 #WORD *120* = TEMP32>
1245                     <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
1246                     <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
1247                     <DEAD TEMP32>
1248                     <CALL '\1aEMIT 4>
1249                     <FRAME '\1aEMIT>
1250                     <PUSH 194>
1251                     <GVAL 'AC-P = TEMP32>
1252                     <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
1253                     <OR TEMP32 #WORD *200* = TEMP32>
1254                     <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
1255                     <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
1256                     <DEAD TEMP32>
1257                     <GVAL 'AC-1 = TEMP32>
1258                     <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
1259                     <OR TEMP32 #WORD *120* = TEMP32>
1260                     <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
1261                     <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
1262                     <DEAD TEMP32>
1263                     <CALL '\1aEMIT 3>
1264                     <FRAME '\1aGEN-BRANCH>
1265                     <PUSH 17>
1266                     <PUSH DONE-LAB16>
1267                     <PUSH %<>>
1268                     <CALL '\1aGEN-BRANCH 3>
1269                     <FRAME '\1aEMIT-LABEL>
1270                     <PUSH M-LAB11>
1271                     <DEAD M-LAB11>
1272                     <PUSH 'T>
1273                     <CALL '\1aEMIT-LABEL 2>
1274                     <FRAME '\1aEMIT>
1275                     <PUSH 208>
1276                     <FRAME '\1aMA-DISP>
1277                     <GVAL 'AC-1 = STACK>
1278                     <PUSH 4>
1279                     <CALL '\1aMA-DISP 2 = STACK>
1280                     <GVAL 'AC-1 = TEMP32>
1281                     <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
1282                     <OR TEMP32 #WORD *120* = TEMP32>
1283                     <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
1284                     <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
1285                     <DEAD TEMP32>
1286                     <CALL '\1aEMIT 3>
1287                     <FRAME '\1aEMIT>
1288                     <PUSH 194>
1289                     <GVAL 'AC-0 = TEMP32>
1290                     <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
1291                     <OR TEMP32 #WORD *120* = TEMP32>
1292                     <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
1293                     <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
1294                     <DEAD TEMP32>
1295                     <GVAL 'AC-1 = TEMP32>
1296                     <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
1297                     <OR TEMP32 #WORD *120* = TEMP32>
1298                     <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
1299                     <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
1300                     <DEAD TEMP32>
1301                     <CALL '\1aEMIT 3>
1302                     <FRAME '\1aEMIT-LABEL>
1303                     <PUSH DONE-LAB16>
1304                     <DEAD DONE-LAB16>
1305                     <PUSH 'T>
1306                     <CALL '\1aEMIT-LABEL 2>
1307                     <EQUAL? RES8 'STACK - PHRASE92>
1308                     <FRAME '\1aEMIT-PUSH>
1309                     <FRAME '\1aVAR-TYPE-ADDRESS>
1310                     <PUSH VAR4>
1311                     <DEAD VAR4>
1312                     <CALL '\1aVAR-TYPE-ADDRESS 1 = STACK>
1313                     <PUSH 'LONG>
1314                     <CALL '\1aEMIT-PUSH 2>
1315                     <FRAME '\1aEMIT-PUSH>
1316                     <GVAL 'AC-1 = STACK>
1317                     <PUSH 'LONG>
1318                     <CALL '\1aEMIT-PUSH 2>
1319                     <RETURN 'NORMAL>
1320 PHRASE92
1321                     <FRAME '\1aEMIT>
1322                     <PUSH 208>
1323                     <FRAME '\1aVAR-TYPE-ADDRESS>
1324                     <PUSH VAR4>
1325                     <DEAD VAR4>
1326                     <CALL '\1aVAR-TYPE-ADDRESS 1 = STACK>
1327                     <GVAL 'AC-0 = TEMP32>
1328                     <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
1329                     <OR TEMP32 #WORD *120* = TEMP32>
1330                     <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
1331                     <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
1332                     <DEAD TEMP32>
1333                     <CALL '\1aEMIT 3>
1334                     <FRAME '\1aDEST-PAIR>
1335                     <GVAL 'AC-1 = STACK>
1336                     <GVAL 'AC-0 = STACK>
1337                     <PUSH RES8>
1338                     <DEAD RES8>
1339                     <CALL '\1aDEST-PAIR 3>
1340                     <RETURN 'NORMAL>
1341                     <END \1aCGC-UV-ST>
1342
1343 #WORD *24720663307*
1344                     <GFCN \1aCGC-VECTOR-GEN ("VALUE" ATOM ANY ANY ANY ANY ANY ANY) VAR4 ALLOC-ATOM5 END-ATOM6 NEXT-ATOM7 MARK-ATOM8 RES9>
1345                     <TEMP NF-LAB12 F-LAB13 LOOP-LAB14 NM-LAB15 DONE-LAB16 M-LAB17 TEMP26 ENDADDR10 ALLOCADDR11 X39>
1346                     <INTGO>
1347                     <FRAME '\1aMAKE-LABEL>
1348                     <CALL '\1aMAKE-LABEL 0 = NF-LAB12>
1349                     <FRAME '\1aMAKE-LABEL>
1350                     <CALL '\1aMAKE-LABEL 0 = F-LAB13>
1351                     <FRAME '\1aMAKE-LABEL>
1352                     <CALL '\1aMAKE-LABEL 0 = LOOP-LAB14>
1353                     <FRAME '\1aMAKE-LABEL>
1354                     <CALL '\1aMAKE-LABEL 0 = NM-LAB15>
1355                     <FRAME '\1aMAKE-LABEL>
1356                     <CALL '\1aMAKE-LABEL 0 = DONE-LAB16>
1357                     <FRAME '\1aMAKE-LABEL>
1358                     <CALL '\1aMAKE-LABEL 0 = M-LAB17>
1359                     <FRAME '\1aMA-DEF-DISP>
1360                     <GVAL 'AC-M = STACK>
1361                     <FRAME '\1aADD-MVEC>
1362                     <CHTYPE END-ATOM6 <TYPE-CODE XGLOC> = STACK>
1363                     <DEAD END-ATOM6>
1364                     <CALL '\1aADD-MVEC 1 = TEMP26>
1365                     <ADD TEMP26 4 = STACK (TYPE FIX)>
1366                     <DEAD TEMP26>
1367                     <CALL '\1aMA-DEF-DISP 2 = ENDADDR10>
1368                     <FRAME '\1aMA-DEF-DISP>
1369                     <GVAL 'AC-M = STACK>
1370                     <FRAME '\1aADD-MVEC>
1371                     <CHTYPE ALLOC-ATOM5 <TYPE-CODE XGLOC> = STACK>
1372                     <DEAD ALLOC-ATOM5>
1373                     <CALL '\1aADD-MVEC 1 = TEMP26>
1374                     <ADD TEMP26 4 = STACK (TYPE FIX)>
1375                     <DEAD TEMP26>
1376                     <CALL '\1aMA-DEF-DISP 2 = ALLOCADDR11>
1377                     <SET TEMP26 (AC-0 AC-1 AC-2 AC-3 AC-4 AC-5 AC-6) (TYPE LIST)>
1378                     <LOOP>
1379 MAP30
1380                     <INTGO>
1381                     <EMPL? TEMP26 + MAPAP33>
1382                     <NTHL TEMP26 1 = X39>
1383                     <FRAME '\1aMUNG-AC>
1384                     <GVAL X39 = STACK>
1385                     <DEAD X39>
1386                     <CALL '\1aMUNG-AC 1>
1387                     <RESTL TEMP26 1 = TEMP26 (TYPE LIST)>
1388                     <JUMP + MAP30>
1389 MAPAP33
1390                     <FRAME '\1aEMIT>
1391                     <PUSH 192>
1392                     <FRAME '\1aMA-IMM>
1393                     <PUSH 20>
1394                     <CALL '\1aMA-IMM 1 = STACK>
1395                     <GVAL 'AC-TP = TEMP26>
1396                     <NTHUV TEMP26 2 = X39 (TYPE FIX)>
1397                     <DEAD TEMP26>
1398                     <OR X39 #WORD *120* = X39>
1399                     <LSH X39 24 = X39 (TYPE FIX)>
1400                     <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1401                     <DEAD X39>
1402                     <CALL '\1aEMIT 3>
1403                     <FRAME '\1aEMIT>
1404                     <PUSH 60>
1405                     <FRAME '\1aVAR-COUNT-ADDRESS>
1406                     <PUSH VAR4>
1407                     <CALL '\1aVAR-COUNT-ADDRESS 1 = STACK>
1408                     <GVAL 'AC-2 = TEMP26>
1409                     <NTHUV TEMP26 2 = X39 (TYPE FIX)>
1410                     <DEAD TEMP26>
1411                     <OR X39 #WORD *120* = X39>
1412                     <LSH X39 24 = X39 (TYPE FIX)>
1413                     <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1414                     <DEAD X39>
1415                     <CALL '\1aEMIT 3>
1416                     <FRAME '\1aEMIT>
1417                     <PUSH 120>
1418                     <FRAME '\1aMA-IMM>
1419                     <PUSH 3>
1420                     <CALL '\1aMA-IMM 1 = STACK>
1421                     <GVAL 'AC-2 = TEMP26>
1422                     <NTHUV TEMP26 2 = X39 (TYPE FIX)>
1423                     <DEAD TEMP26>
1424                     <OR X39 #WORD *120* = X39>
1425                     <LSH X39 24 = X39 (TYPE FIX)>
1426                     <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1427                     <DEAD X39>
1428                     <GVAL 'AC-2 = TEMP26>
1429                     <NTHUV TEMP26 2 = X39 (TYPE FIX)>
1430                     <DEAD TEMP26>
1431                     <OR X39 #WORD *120* = X39>
1432                     <LSH X39 24 = X39 (TYPE FIX)>
1433                     <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1434                     <DEAD X39>
1435                     <CALL '\1aEMIT 4>
1436                     <FRAME '\1aEMIT>
1437                     <PUSH 208>
1438                     <GVAL 'AC-2 = TEMP26>
1439                     <NTHUV TEMP26 2 = X39 (TYPE FIX)>
1440                     <DEAD TEMP26>
1441                     <OR X39 #WORD *120* = X39>
1442                     <LSH X39 24 = X39 (TYPE FIX)>
1443                     <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1444                     <DEAD X39>
1445                     <FRAME '\1aGCTEMP>
1446                     <PUSH 5>
1447                     <CALL '\1aGCTEMP 1 = STACK>
1448                     <CALL '\1aEMIT 3>
1449                     <FRAME '\1aEMIT>
1450                     <PUSH 193>
1451                     <GVAL 'AC-2 = TEMP26>
1452                     <NTHUV TEMP26 2 = X39 (TYPE FIX)>
1453                     <DEAD TEMP26>
1454                     <OR X39 #WORD *120* = X39>
1455                     <LSH X39 24 = X39 (TYPE FIX)>
1456                     <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1457                     <DEAD X39>
1458                     <FRAME '\1aVAR-VALUE-ADDRESS>
1459                     <PUSH VAR4>
1460                     <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
1461                     <GVAL 'AC-3 = TEMP26>
1462                     <NTHUV TEMP26 2 = X39 (TYPE FIX)>
1463                     <DEAD TEMP26>
1464                     <OR X39 #WORD *120* = X39>
1465                     <LSH X39 24 = X39 (TYPE FIX)>
1466                     <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1467                     <DEAD X39>
1468                     <CALL '\1aEMIT 4>
1469                     <FRAME '\1aEMIT>
1470                     <PUSH 149>
1471                     <FRAME '\1aMA-DISP>
1472                     <GVAL 'AC-3 = STACK>
1473                     <PUSH 1>
1474                     <CALL '\1aMA-DISP 2 = STACK>
1475                     <CALL '\1aEMIT 2>
1476                     <FRAME '\1aEMIT-BRANCH>
1477                     <PUSH 25>
1478                     <PUSH M-LAB17>
1479                     <PUSH %<>>
1480                     <GVAL 'LAST-INST-LENGTH = STACK>
1481                     <CALL '\1aEMIT-BRANCH 4>
1482                     <FRAME '\1aEMIT>
1483                     <PUSH 136>
1484                     <GVAL 'AC-PC = TEMP26>
1485                     <NTHUV TEMP26 2 = X39 (TYPE FIX)>
1486                     <DEAD TEMP26>
1487                     <OR X39 #WORD *200* = X39>
1488                     <LSH X39 24 = X39 (TYPE FIX)>
1489                     <LSH 128 16 = TEMP26 (TYPE FIX)>
1490                     <OR X39 TEMP26 = X39>
1491                     <DEAD TEMP26>
1492                     <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1493                     <DEAD X39>
1494                     <FRAME '\1aMA-DISP>
1495                     <GVAL 'AC-3 = STACK>
1496                     <PUSH 1>
1497                     <CALL '\1aMA-DISP 2 = STACK>
1498                     <CALL '\1aEMIT 3>
1499                     <FRAME '\1aEMIT>
1500                     <PUSH 208>
1501                     <GVAL 'AC-3 = X39>
1502                     <NTHUV X39 2 = X39 (TYPE FIX)>
1503                     <OR X39 #WORD *120* = X39>
1504                     <LSH X39 24 = X39 (TYPE FIX)>
1505                     <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1506                     <DEAD X39>
1507                     <FRAME '\1aGCTEMP>
1508                     <PUSH 1>
1509                     <CALL '\1aGCTEMP 1 = STACK>
1510                     <CALL '\1aEMIT 3>
1511                     <FRAME '\1aEMIT>
1512                     <PUSH 60>
1513                     <FRAME '\1aMA-DISP>
1514                     <GVAL 'AC-3 = STACK>
1515                     <PUSH 2>
1516                     <CALL '\1aMA-DISP 2 = STACK>
1517                     <GVAL 'AC-6 = X39>
1518                     <NTHUV X39 2 = X39 (TYPE FIX)>
1519                     <OR X39 #WORD *120* = X39>
1520                     <LSH X39 24 = X39 (TYPE FIX)>
1521                     <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1522                     <DEAD X39>
1523                     <CALL '\1aEMIT 3>
1524                     <FRAME '\1aEMIT>
1525                     <PUSH 120>
1526                     <FRAME '\1aMA-IMM>
1527                     <PUSH 2>
1528                     <CALL '\1aMA-IMM 1 = STACK>
1529                     <GVAL 'AC-6 = X39>
1530                     <NTHUV X39 2 = X39 (TYPE FIX)>
1531                     <OR X39 #WORD *120* = X39>
1532                     <LSH X39 24 = X39 (TYPE FIX)>
1533                     <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1534                     <DEAD X39>
1535                     <GVAL 'AC-6 = X39>
1536                     <NTHUV X39 2 = X39 (TYPE FIX)>
1537                     <OR X39 #WORD *120* = X39>
1538                     <LSH X39 24 = X39 (TYPE FIX)>
1539                     <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1540                     <DEAD X39>
1541                     <CALL '\1aEMIT 4>
1542                     <FRAME '\1aEMIT>
1543                     <PUSH 208>
1544                     <GVAL 'AC-6 = X39>
1545                     <NTHUV X39 2 = X39 (TYPE FIX)>
1546                     <OR X39 #WORD *120* = X39>
1547                     <LSH X39 24 = X39 (TYPE FIX)>
1548                     <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1549                     <DEAD X39>
1550                     <FRAME '\1aGCTEMP>
1551                     <PUSH 2>
1552                     <CALL '\1aGCTEMP 1 = STACK>
1553                     <CALL '\1aEMIT 3>
1554                     <FRAME '\1aEMIT>
1555                     <PUSH 125>
1556                     <PUSH ALLOCADDR11>
1557                     <GVAL 'AC-0 = X39>
1558                     <NTHUV X39 2 = X39 (TYPE FIX)>
1559                     <OR X39 #WORD *120* = X39>
1560                     <LSH X39 24 = X39 (TYPE FIX)>
1561                     <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1562                     <DEAD X39>
1563                     <CALL '\1aEMIT 3>
1564                     <FRAME '\1aEMIT>
1565                     <PUSH 192>
1566                     <GVAL 'AC-1 = X39>
1567                     <NTHUV X39 2 = X39 (TYPE FIX)>
1568                     <OR X39 #WORD *120* = X39>
1569                     <LSH X39 24 = X39 (TYPE FIX)>
1570                     <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1571                     <DEAD X39>
1572                     <GVAL 'AC-6 = X39>
1573                     <NTHUV X39 2 = X39 (TYPE FIX)>
1574                     <OR X39 #WORD *120* = X39>
1575                     <LSH X39 24 = X39 (TYPE FIX)>
1576                     <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1577                     <DEAD X39>
1578                     <CALL '\1aEMIT 3>
1579                     <FRAME '\1aEMIT-BRANCH>
1580                     <PUSH 29>
1581                     <PUSH NF-LAB12>
1582                     <PUSH %<>>
1583                     <GVAL 'LAST-INST-LENGTH = STACK>
1584                     <CALL '\1aEMIT-BRANCH 4>
1585                     <FRAME '\1aEMIT>
1586                     <PUSH 125>
1587                     <PUSH ENDADDR10>
1588                     <DEAD ENDADDR10>
1589                     <GVAL 'AC-4 = X39>
1590                     <NTHUV X39 2 = X39 (TYPE FIX)>
1591                     <OR X39 #WORD *120* = X39>
1592                     <LSH X39 24 = X39 (TYPE FIX)>
1593                     <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1594                     <DEAD X39>
1595                     <CALL '\1aEMIT 3>
1596                     <FRAME '\1aEMIT>
1597                     <PUSH 209>
1598                     <GVAL 'AC-6 = X39>
1599                     <NTHUV X39 2 = X39 (TYPE FIX)>
1600                     <OR X39 #WORD *120* = X39>
1601                     <LSH X39 24 = X39 (TYPE FIX)>
1602                     <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1603                     <DEAD X39>
1604                     <GVAL 'AC-5 = X39>
1605                     <NTHUV X39 2 = X39 (TYPE FIX)>
1606                     <OR X39 #WORD *120* = X39>
1607                     <LSH X39 24 = X39 (TYPE FIX)>
1608                     <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1609                     <DEAD X39>
1610                     <CALL '\1aEMIT 3>
1611                     <FRAME '\1aEMIT-BRANCH>
1612                     <PUSH 21>
1613                     <PUSH F-LAB13>
1614                     <PUSH %<>>
1615                     <GVAL 'LAST-INST-LENGTH = STACK>
1616                     <CALL '\1aEMIT-BRANCH 4>
1617                     <FRAME '\1aEMIT-LABEL>
1618                     <PUSH NF-LAB12>
1619                     <DEAD NF-LAB12>
1620                     <PUSH 'T>
1621                     <CALL '\1aEMIT-LABEL 2>
1622                     <FRAME '\1aEMIT>
1623                     <PUSH 208>
1624                     <GVAL 'AC-3 = X39>
1625                     <NTHUV X39 2 = X39 (TYPE FIX)>
1626                     <OR X39 #WORD *120* = X39>
1627                     <LSH X39 24 = X39 (TYPE FIX)>
1628                     <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1629                     <DEAD X39>
1630                     <FRAME '\1aGCTEMP>
1631                     <PUSH 3>
1632                     <CALL '\1aGCTEMP 1 = STACK>
1633                     <CALL '\1aEMIT 3>
1634                     <FRAME '\1aEMIT>
1635                     <PUSH 208>
1636                     <FRAME '\1aGCTEMP>
1637                     <PUSH 2>
1638                     <CALL '\1aGCTEMP 1 = STACK>
1639                     <GVAL 'AC-3 = X39>
1640                     <NTHUV X39 2 = X39 (TYPE FIX)>
1641                     <OR X39 #WORD *120* = X39>
1642                     <LSH X39 24 = X39 (TYPE FIX)>
1643                     <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1644                     <DEAD X39>
1645                     <CALL '\1aEMIT 3>
1646                     <FRAME '\1aFRAME-GEN>
1647                     <PUSH NEXT-ATOM7>
1648                     <CALL '\1aFRAME-GEN 1>
1649                     <FRAME '\1aEMIT-PUSH>
1650                     <FRAME '\1aTYPE-WORD>
1651                     <PUSH 'FIX>
1652                     <CALL '\1aTYPE-WORD 1 = STACK>
1653                     <PUSH 'LONG>
1654                     <CALL '\1aEMIT-PUSH 2>
1655                     <FRAME '\1aEMIT>
1656                     <PUSH 208>
1657                     <GVAL 'AC-3 = X39>
1658                     <NTHUV X39 2 = X39 (TYPE FIX)>
1659                     <OR X39 #WORD *120* = X39>
1660                     <LSH X39 24 = X39 (TYPE FIX)>
1661                     <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1662                     <DEAD X39>
1663                     <GVAL 'AC-TP = X39>
1664                     <NTHUV X39 2 = X39 (TYPE FIX)>
1665                     <OR X39 #WORD *200* = X39>
1666                     <LSH X39 24 = X39 (TYPE FIX)>
1667                     <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1668                     <DEAD X39>
1669                     <CALL '\1aEMIT 3>
1670                     <FRAME '\1aCALL-GEN>
1671                     <PUSH NEXT-ATOM7>
1672                     <DEAD NEXT-ATOM7>
1673                     <PUSH 1>
1674                     <CALL '\1aCALL-GEN 2>
1675                     <FRAME '\1aEMIT>
1676                     <PUSH 125>
1677                     <PUSH ALLOCADDR11>
1678                     <GVAL 'AC-0 = X39>
1679                     <NTHUV X39 2 = X39 (TYPE FIX)>
1680                     <OR X39 #WORD *120* = X39>
1681                     <LSH X39 24 = X39 (TYPE FIX)>
1682                     <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1683                     <DEAD X39>
1684                     <CALL '\1aEMIT 3>
1685                     <FRAME '\1aEMIT>
1686                     <PUSH 208>
1687                     <FRAME '\1aGCTEMP>
1688                     <PUSH 3>
1689                     <CALL '\1aGCTEMP 1 = STACK>
1690                     <GVAL 'AC-3 = X39>
1691                     <NTHUV X39 2 = X39 (TYPE FIX)>
1692                     <OR X39 #WORD *120* = X39>
1693                     <LSH X39 24 = X39 (TYPE FIX)>
1694                     <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1695                     <DEAD X39>
1696                     <CALL '\1aEMIT 3>
1697                     <FRAME '\1aEMIT>
1698                     <PUSH 208>
1699                     <FRAME '\1aGCTEMP>
1700                     <PUSH 2>
1701                     <CALL '\1aGCTEMP 1 = STACK>
1702                     <GVAL 'AC-6 = X39>
1703                     <NTHUV X39 2 = X39 (TYPE FIX)>
1704                     <OR X39 #WORD *120* = X39>
1705                     <LSH X39 24 = X39 (TYPE FIX)>
1706                     <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1707                     <DEAD X39>
1708                     <CALL '\1aEMIT 3>
1709                     <FRAME '\1aEMIT>
1710                     <PUSH 192>
1711                     <GVAL 'AC-1 = X39>
1712                     <NTHUV X39 2 = X39 (TYPE FIX)>
1713                     <OR X39 #WORD *120* = X39>
1714                     <LSH X39 24 = X39 (TYPE FIX)>
1715                     <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1716                     <DEAD X39>
1717                     <GVAL 'AC-6 = X39>
1718                     <NTHUV X39 2 = X39 (TYPE FIX)>
1719                     <OR X39 #WORD *120* = X39>
1720                     <LSH X39 24 = X39 (TYPE FIX)>
1721                     <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1722                     <DEAD X39>
1723                     <CALL '\1aEMIT 3>
1724                     <FRAME '\1aEMIT-LABEL>
1725                     <PUSH F-LAB13>
1726                     <DEAD F-LAB13>
1727                     <PUSH 'T>
1728                     <CALL '\1aEMIT-LABEL 2>
1729                     <FRAME '\1aEMIT>
1730                     <PUSH 222>
1731                     <FRAME '\1aMA-DISP>
1732                     <GVAL 'AC-6 = STACK>
1733                     <PUSH -8>
1734                     <CALL '\1aMA-DISP 2 = STACK>
1735                     <FRAME '\1aMA-DISP>
1736                     <GVAL 'AC-3 = STACK>
1737                     <PUSH 4>
1738                     <CALL '\1aMA-DISP 2 = STACK>
1739                     <CALL '\1aEMIT 3>
1740                     <FRAME '\1aEMIT>
1741                     <PUSH 125>
1742                     <GVAL 'AC-3 = X39>
1743                     <NTHUV X39 2 = X39 (TYPE FIX)>
1744                     <OR X39 #WORD *140* = X39>
1745                     <LSH X39 24 = X39 (TYPE FIX)>
1746                     <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1747                     <DEAD X39>
1748                     <FRAME '\1aMA-DISP>
1749                     <GVAL 'AC-6 = STACK>
1750                     <PUSH -8>
1751                     <CALL '\1aMA-DISP 2 = STACK>
1752                     <CALL '\1aEMIT 3>
1753                     <FRAME '\1aEMIT>
1754                     <PUSH 138>
1755                     <GVAL 'AC-PC = X39>
1756                     <NTHUV X39 2 = X39 (TYPE FIX)>
1757                     <OR X39 #WORD *200* = X39>
1758                     <LSH X39 24 = X39 (TYPE FIX)>
1759                     <LSH 128 16 = TEMP26 (TYPE FIX)>
1760                     <OR X39 TEMP26 = X39>
1761                     <DEAD TEMP26>
1762                     <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1763                     <DEAD X39>
1764                     <FRAME '\1aMA-DISP>
1765                     <GVAL 'AC-6 = STACK>
1766                     <PUSH -7>
1767                     <CALL '\1aMA-DISP 2 = STACK>
1768                     <CALL '\1aEMIT 3>
1769                     <FRAME '\1aEMIT>
1770                     <PUSH 208>
1771                     <FRAME '\1aTYPE-CODE>
1772                     <PUSH 'FIX>
1773                     <CALL '\1aTYPE-CODE 1 = STACK>
1774                     <GVAL 'AC-5 = X39>
1775                     <NTHUV X39 2 = X39 (TYPE FIX)>
1776                     <OR X39 #WORD *120* = X39>
1777                     <LSH X39 24 = X39 (TYPE FIX)>
1778                     <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1779                     <DEAD X39>
1780                     <CALL '\1aEMIT 3>
1781                     <FRAME '\1aEMIT>
1782                     <PUSH 125>
1783                     <GVAL 'AC-5 = X39>
1784                     <NTHUV X39 2 = X39 (TYPE FIX)>
1785                     <OR X39 #WORD *120* = X39>
1786                     <LSH X39 24 = X39 (TYPE FIX)>
1787                     <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1788                     <DEAD X39>
1789                     <PUSH ALLOCADDR11>
1790                     <DEAD ALLOCADDR11>
1791                     <CALL '\1aEMIT 3>
1792                     <FRAME '\1aEMIT>
1793                     <PUSH 194>
1794                     <FRAME '\1aMA-IMM>
1795                     <PUSH 8>
1796                     <CALL '\1aMA-IMM 1 = STACK>
1797                     <FRAME '\1aGCTEMP>
1798                     <PUSH 2>
1799                     <CALL '\1aGCTEMP 1 = STACK>
1800                     <CALL '\1aEMIT 3>
1801                     <FRAME '\1aEMIT>
1802                     <PUSH 194>
1803                     <FRAME '\1aGCTEMP>
1804                     <PUSH 2>
1805                     <CALL '\1aGCTEMP 1 = STACK>
1806                     <GVAL 'AC-3 = X39>
1807                     <NTHUV X39 2 = X39 (TYPE FIX)>
1808                     <OR X39 #WORD *120* = X39>
1809                     <LSH X39 24 = X39 (TYPE FIX)>
1810                     <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1811                     <DEAD X39>
1812                     <CALL '\1aEMIT 3>
1813                     <FRAME '\1aEMIT>
1814                     <PUSH 120>
1815                     <FRAME '\1aMA-IMM>
1816                     <PUSH -3>
1817                     <CALL '\1aMA-IMM 1 = STACK>
1818                     <FRAME '\1aGCTEMP>
1819                     <PUSH 2>
1820                     <CALL '\1aGCTEMP 1 = STACK>
1821                     <FRAME '\1aGCTEMP>
1822                     <PUSH 2>
1823                     <CALL '\1aGCTEMP 1 = STACK>
1824                     <CALL '\1aEMIT 4>
1825                     <FRAME '\1aEMIT-BRANCH>
1826                     <PUSH 19>
1827                     <PUSH DONE-LAB16>
1828                     <PUSH %<>>
1829                     <GVAL 'LAST-INST-LENGTH = STACK>
1830                     <CALL '\1aEMIT-BRANCH 4>
1831                     <FRAME '\1aEMIT>
1832                     <PUSH 208>
1833                     <GVAL 'AC-1 = X39>
1834                     <NTHUV X39 2 = X39 (TYPE FIX)>
1835                     <OR X39 #WORD *120* = X39>
1836                     <LSH X39 24 = X39 (TYPE FIX)>
1837                     <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1838                     <DEAD X39>
1839                     <GVAL 'AC-4 = X39>
1840                     <NTHUV X39 2 = X39 (TYPE FIX)>
1841                     <OR X39 #WORD *120* = X39>
1842                     <LSH X39 24 = X39 (TYPE FIX)>
1843                     <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1844                     <DEAD X39>
1845                     <CALL '\1aEMIT 3>
1846                     <FRAME '\1aEMIT-LABEL>
1847                     <PUSH LOOP-LAB14>
1848                     <PUSH 'T>
1849                     <CALL '\1aEMIT-LABEL 2>
1850                     <FRAME '\1aEMIT>
1851                     <PUSH 125>
1852                     <GVAL 'AC-3 = X39>
1853                     <NTHUV X39 2 = X39 (TYPE FIX)>
1854                     <OR X39 #WORD *140* = X39>
1855                     <LSH X39 24 = X39 (TYPE FIX)>
1856                     <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1857                     <DEAD X39>
1858                     <GVAL 'AC-0 = X39>
1859                     <NTHUV X39 2 = X39 (TYPE FIX)>
1860                     <OR X39 #WORD *120* = X39>
1861                     <LSH X39 24 = X39 (TYPE FIX)>
1862                     <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1863                     <DEAD X39>
1864                     <CALL '\1aEMIT 3>
1865                     <FRAME '\1aEMIT>
1866                     <PUSH 147>
1867                     <GVAL 'AC-PC = X39>
1868                     <NTHUV X39 2 = X39 (TYPE FIX)>
1869                     <OR X39 #WORD *200* = X39>
1870                     <LSH X39 24 = X39 (TYPE FIX)>
1871                     <LSH 7 16 = TEMP26 (TYPE FIX)>
1872                     <OR X39 TEMP26 = X39>
1873                     <DEAD TEMP26>
1874                     <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1875                     <DEAD X39>
1876                     <GVAL 'AC-0 = X39>
1877                     <NTHUV X39 2 = X39 (TYPE FIX)>
1878                     <OR X39 #WORD *120* = X39>
1879                     <LSH X39 24 = X39 (TYPE FIX)>
1880                     <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1881                     <DEAD X39>
1882                     <CALL '\1aEMIT 3>
1883                     <FRAME '\1aEMIT-BRANCH>
1884                     <PUSH 19>
1885                     <PUSH NM-LAB15>
1886                     <PUSH %<>>
1887                     <GVAL 'LAST-INST-LENGTH = STACK>
1888                     <CALL '\1aEMIT-BRANCH 4>
1889                     <FRAME '\1aEMIT>
1890                     <PUSH 208>
1891                     <GVAL 'AC-3 = X39>
1892                     <NTHUV X39 2 = X39 (TYPE FIX)>
1893                     <OR X39 #WORD *120* = X39>
1894                     <LSH X39 24 = X39 (TYPE FIX)>
1895                     <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1896                     <DEAD X39>
1897                     <FRAME '\1aGCTEMP>
1898                     <PUSH 3>
1899                     <CALL '\1aGCTEMP 1 = STACK>
1900                     <CALL '\1aEMIT 3>
1901                     <FRAME '\1aEMIT>
1902                     <PUSH 208>
1903                     <GVAL 'AC-4 = X39>
1904                     <NTHUV X39 2 = X39 (TYPE FIX)>
1905                     <OR X39 #WORD *120* = X39>
1906                     <LSH X39 24 = X39 (TYPE FIX)>
1907                     <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1908                     <DEAD X39>
1909                     <FRAME '\1aGCTEMP>
1910                     <PUSH 4>
1911                     <CALL '\1aGCTEMP 1 = STACK>
1912                     <CALL '\1aEMIT 3>
1913                     <FRAME '\1aFRAME-GEN>
1914                     <PUSH MARK-ATOM8>
1915                     <CALL '\1aFRAME-GEN 1>
1916                     <FRAME '\1aEMIT>
1917                     <PUSH 125>
1918                     <GVAL 'AC-0 = X39>
1919                     <NTHUV X39 2 = X39 (TYPE FIX)>
1920                     <OR X39 #WORD *120* = X39>
1921                     <LSH X39 24 = X39 (TYPE FIX)>
1922                     <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1923                     <DEAD X39>
1924                     <GVAL 'AC-TP = X39>
1925                     <NTHUV X39 2 = X39 (TYPE FIX)>
1926                     <OR X39 #WORD *200* = X39>
1927                     <LSH X39 24 = X39 (TYPE FIX)>
1928                     <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1929                     <DEAD X39>
1930                     <CALL '\1aEMIT 3>
1931                     <FRAME '\1aCALL-GEN>
1932                     <PUSH MARK-ATOM8>
1933                     <DEAD MARK-ATOM8>
1934                     <PUSH 1>
1935                     <CALL '\1aCALL-GEN 2>
1936                     <FRAME '\1aEMIT>
1937                     <PUSH 208>
1938                     <FRAME '\1aGCTEMP>
1939                     <PUSH 3>
1940                     <CALL '\1aGCTEMP 1 = STACK>
1941                     <GVAL 'AC-3 = X39>
1942                     <NTHUV X39 2 = X39 (TYPE FIX)>
1943                     <OR X39 #WORD *120* = X39>
1944                     <LSH X39 24 = X39 (TYPE FIX)>
1945                     <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1946                     <DEAD X39>
1947                     <CALL '\1aEMIT 3>
1948                     <FRAME '\1aEMIT>
1949                     <PUSH 208>
1950                     <FRAME '\1aGCTEMP>
1951                     <PUSH 4>
1952                     <CALL '\1aGCTEMP 1 = STACK>
1953                     <GVAL 'AC-4 = X39>
1954                     <NTHUV X39 2 = X39 (TYPE FIX)>
1955                     <OR X39 #WORD *120* = X39>
1956                     <LSH X39 24 = X39 (TYPE FIX)>
1957                     <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1958                     <DEAD X39>
1959                     <CALL '\1aEMIT 3>
1960                     <FRAME '\1aEMIT-LABEL>
1961                     <PUSH NM-LAB15>
1962                     <DEAD NM-LAB15>
1963                     <PUSH 'T>
1964                     <CALL '\1aEMIT-LABEL 2>
1965                     <FRAME '\1aEMIT>
1966                     <PUSH 125>
1967                     <GVAL 'AC-0 = X39>
1968                     <NTHUV X39 2 = X39 (TYPE FIX)>
1969                     <OR X39 #WORD *120* = X39>
1970                     <LSH X39 24 = X39 (TYPE FIX)>
1971                     <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1972                     <DEAD X39>
1973                     <GVAL 'AC-4 = X39>
1974                     <NTHUV X39 2 = X39 (TYPE FIX)>
1975                     <OR X39 #WORD *140* = X39>
1976                     <LSH X39 24 = X39 (TYPE FIX)>
1977                     <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1978                     <DEAD X39>
1979                     <CALL '\1aEMIT 3>
1980                     <FRAME '\1aEMIT>
1981                     <PUSH 192>
1982                     <FRAME '\1aMA-IMM>
1983                     <PUSH 8>
1984                     <CALL '\1aMA-IMM 1 = STACK>
1985                     <GVAL 'AC-3 = X39>
1986                     <NTHUV X39 2 = X39 (TYPE FIX)>
1987                     <OR X39 #WORD *120* = X39>
1988                     <LSH X39 24 = X39 (TYPE FIX)>
1989                     <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
1990                     <DEAD X39>
1991                     <CALL '\1aEMIT 3>
1992                     <FRAME '\1aEMIT>
1993                     <PUSH 192>
1994                     <FRAME '\1aMA-IMM>
1995                     <PUSH 8>
1996                     <CALL '\1aMA-IMM 1 = STACK>
1997                     <GVAL 'AC-4 = X39>
1998                     <NTHUV X39 2 = X39 (TYPE FIX)>
1999                     <OR X39 #WORD *120* = X39>
2000                     <LSH X39 24 = X39 (TYPE FIX)>
2001                     <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
2002                     <DEAD X39>
2003                     <CALL '\1aEMIT 3>
2004                     <FRAME '\1aEMIT>
2005                     <PUSH 215>
2006                     <FRAME '\1aGCTEMP>
2007                     <PUSH 2>
2008                     <CALL '\1aGCTEMP 1 = STACK>
2009                     <CALL '\1aEMIT 2>
2010                     <FRAME '\1aEMIT-BRANCH>
2011                     <PUSH 20>
2012                     <PUSH LOOP-LAB14>
2013                     <DEAD LOOP-LAB14>
2014                     <PUSH %<>>
2015                     <GVAL 'LAST-INST-LENGTH = STACK>
2016                     <CALL '\1aEMIT-BRANCH 4>
2017                     <FRAME '\1aEMIT-LABEL>
2018                     <PUSH DONE-LAB16>
2019                     <DEAD DONE-LAB16>
2020                     <PUSH 'T>
2021                     <CALL '\1aEMIT-LABEL 2>
2022                     <FRAME '\1aEMIT>
2023                     <PUSH 208>
2024                     <FRAME '\1aGCTEMP>
2025                     <PUSH 1>
2026                     <CALL '\1aGCTEMP 1 = STACK>
2027                     <GVAL 'AC-3 = X39>
2028                     <NTHUV X39 2 = X39 (TYPE FIX)>
2029                     <OR X39 #WORD *120* = X39>
2030                     <LSH X39 24 = X39 (TYPE FIX)>
2031                     <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
2032                     <DEAD X39>
2033                     <CALL '\1aEMIT 3>
2034                     <FRAME '\1aEMIT-LABEL>
2035                     <PUSH M-LAB17>
2036                     <DEAD M-LAB17>
2037                     <PUSH 'T>
2038                     <CALL '\1aEMIT-LABEL 2>
2039                     <FRAME '\1aEMIT>
2040                     <PUSH 208>
2041                     <FRAME '\1aVAR-TYPE-ADDRESS>
2042                     <PUSH VAR4>
2043                     <DEAD VAR4>
2044                     <CALL '\1aVAR-TYPE-ADDRESS 1 = STACK>
2045                     <GVAL 'AC-0 = X39>
2046                     <NTHUV X39 2 = X39 (TYPE FIX)>
2047                     <OR X39 #WORD *120* = X39>
2048                     <LSH X39 24 = X39 (TYPE FIX)>
2049                     <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
2050                     <DEAD X39>
2051                     <CALL '\1aEMIT 3>
2052                     <FRAME '\1aEMIT>
2053                     <PUSH 208>
2054                     <FRAME '\1aMA-DISP>
2055                     <GVAL 'AC-3 = STACK>
2056                     <PUSH 4>
2057                     <CALL '\1aMA-DISP 2 = STACK>
2058                     <GVAL 'AC-1 = X39>
2059                     <NTHUV X39 2 = X39 (TYPE FIX)>
2060                     <OR X39 #WORD *120* = X39>
2061                     <LSH X39 24 = X39 (TYPE FIX)>
2062                     <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
2063                     <DEAD X39>
2064                     <CALL '\1aEMIT 3>
2065                     <FRAME '\1aEMIT>
2066                     <PUSH 194>
2067                     <FRAME '\1aGCTEMP>
2068                     <PUSH 5>
2069                     <CALL '\1aGCTEMP 1 = STACK>
2070                     <GVAL 'AC-1 = X39>
2071                     <NTHUV X39 2 = X39 (TYPE FIX)>
2072                     <OR X39 #WORD *120* = X39>
2073                     <LSH X39 24 = X39 (TYPE FIX)>
2074                     <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
2075                     <DEAD X39>
2076                     <CALL '\1aEMIT 3>
2077                     <FRAME '\1aEMIT>
2078                     <PUSH 194>
2079                     <FRAME '\1aMA-IMM>
2080                     <PUSH 20>
2081                     <CALL '\1aMA-IMM 1 = STACK>
2082                     <GVAL 'AC-TP = X39>
2083                     <NTHUV X39 2 = X39 (TYPE FIX)>
2084                     <OR X39 #WORD *120* = X39>
2085                     <LSH X39 24 = X39 (TYPE FIX)>
2086                     <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
2087                     <DEAD X39>
2088                     <CALL '\1aEMIT 3>
2089                     <EQUAL? RES9 'STACK - PHRASE145>
2090                     <FRAME '\1aEMIT>
2091                     <PUSH 125>
2092                     <GVAL 'AC-0 = X39>
2093                     <NTHUV X39 2 = X39 (TYPE FIX)>
2094                     <OR X39 #WORD *120* = X39>
2095                     <LSH X39 24 = X39 (TYPE FIX)>
2096                     <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
2097                     <DEAD X39>
2098                     <GVAL 'AC-TP = X39>
2099                     <NTHUV X39 2 = X39 (TYPE FIX)>
2100                     <OR X39 #WORD *200* = X39>
2101                     <LSH X39 24 = X39 (TYPE FIX)>
2102                     <CHTYPE X39 <TYPE-CODE EFF-ADDR> = STACK>
2103                     <DEAD X39>
2104                     <CALL '\1aEMIT 3>
2105                     <RETURN 'NORMAL>
2106 PHRASE145
2107                     <FRAME '\1aDEST-PAIR>
2108                     <GVAL 'AC-1 = STACK>
2109                     <GVAL 'AC-0 = STACK>
2110                     <PUSH RES9>
2111                     <DEAD RES9>
2112                     <CALL '\1aDEST-PAIR 3>
2113                     <RETURN 'NORMAL>
2114                     <END \1aCGC-VECTOR-GEN>
2115
2116 #WORD *2127046074*
2117                     <GFCN \1aCGC-LIST-GEN ("VALUE" ATOM ANY ANY ANY ANY ANY ANY ANY "OPTIONAL" ANY) VAR6 ALLOC-ATOM7 END-ATOM8 NEXT-ATOM9 BOUNDS-ATOM10 MARK-ATOM11 CHOMP12 RES13>
2118                     <OPT-DISPATCH 7 %<> OPT4 OPT5>
2119 OPT4
2120                     <PUSH #T$UNBOUND 0>
2121 OPT5
2122                     <TEMP M-LAB16 DONE-LAB17 LOOP-LAB18 NF-LAB19 F-LAB20 NB-LAB21 MC-LAB22 (UNDO?23 %<>) TEMP35 ENDADDR14 ALLOCADDR15 X48>
2123                     <INTGO>
2124                     <FRAME '\1aMAKE-LABEL>
2125                     <CALL '\1aMAKE-LABEL 0 = M-LAB16>
2126                     <FRAME '\1aMAKE-LABEL>
2127                     <CALL '\1aMAKE-LABEL 0 = DONE-LAB17>
2128                     <FRAME '\1aMAKE-LABEL>
2129                     <CALL '\1aMAKE-LABEL 0 = LOOP-LAB18>
2130                     <FRAME '\1aMAKE-LABEL>
2131                     <CALL '\1aMAKE-LABEL 0 = NF-LAB19>
2132                     <FRAME '\1aMAKE-LABEL>
2133                     <CALL '\1aMAKE-LABEL 0 = F-LAB20>
2134                     <FRAME '\1aMAKE-LABEL>
2135                     <CALL '\1aMAKE-LABEL 0 = NB-LAB21>
2136                     <FRAME '\1aMAKE-LABEL>
2137                     <CALL '\1aMAKE-LABEL 0 = MC-LAB22>
2138                     <TYPE? RES13 <TYPE-CODE UNBOUND> - PHRASE32>
2139                     <SET RES13 CHOMP12>
2140                     <DEAD CHOMP12>
2141                     <JUMP + COND31>
2142 PHRASE32
2143                     <SET UNDO?23 'T (TYPE ATOM)>
2144 COND31
2145                     <FRAME '\1aMA-DEF-DISP>
2146                     <GVAL 'AC-M = STACK>
2147                     <FRAME '\1aADD-MVEC>
2148                     <CHTYPE END-ATOM8 <TYPE-CODE XGLOC> = STACK>
2149                     <DEAD END-ATOM8>
2150                     <CALL '\1aADD-MVEC 1 = TEMP35>
2151                     <ADD TEMP35 4 = STACK (TYPE FIX)>
2152                     <DEAD TEMP35>
2153                     <CALL '\1aMA-DEF-DISP 2 = ENDADDR14>
2154                     <FRAME '\1aMA-DEF-DISP>
2155                     <GVAL 'AC-M = STACK>
2156                     <FRAME '\1aADD-MVEC>
2157                     <CHTYPE ALLOC-ATOM7 <TYPE-CODE XGLOC> = STACK>
2158                     <DEAD ALLOC-ATOM7>
2159                     <CALL '\1aADD-MVEC 1 = TEMP35>
2160                     <ADD TEMP35 4 = STACK (TYPE FIX)>
2161                     <DEAD TEMP35>
2162                     <CALL '\1aMA-DEF-DISP 2 = ALLOCADDR15>
2163                     <SET TEMP35 (AC-0 AC-1 AC-2 AC-3 AC-4 AC-5 AC-6) (TYPE LIST)>
2164                     <LOOP>
2165 MAP39
2166                     <INTGO>
2167                     <EMPL? TEMP35 + MAPAP42>
2168                     <NTHL TEMP35 1 = X48>
2169                     <FRAME '\1aMUNG-AC>
2170                     <GVAL X48 = STACK>
2171                     <DEAD X48>
2172                     <CALL '\1aMUNG-AC 1>
2173                     <RESTL TEMP35 1 = TEMP35 (TYPE LIST)>
2174                     <JUMP + MAP39>
2175 MAPAP42
2176                     <FRAME '\1aEMIT>
2177                     <PUSH 192>
2178                     <FRAME '\1aMA-IMM>
2179                     <PUSH 12>
2180                     <CALL '\1aMA-IMM 1 = STACK>
2181                     <GVAL 'AC-TP = TEMP35>
2182                     <NTHUV TEMP35 2 = X48 (TYPE FIX)>
2183                     <DEAD TEMP35>
2184                     <OR X48 #WORD *120* = X48>
2185                     <LSH X48 24 = X48 (TYPE FIX)>
2186                     <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2187                     <DEAD X48>
2188                     <CALL '\1aEMIT 3>
2189                     <FRAME '\1aEMIT>
2190                     <PUSH 208>
2191                     <FRAME '\1aVAR-VALUE-ADDRESS>
2192                     <PUSH VAR6>
2193                     <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
2194                     <GVAL 'AC-3 = TEMP35>
2195                     <NTHUV TEMP35 2 = X48 (TYPE FIX)>
2196                     <DEAD TEMP35>
2197                     <OR X48 #WORD *120* = X48>
2198                     <LSH X48 24 = X48 (TYPE FIX)>
2199                     <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2200                     <DEAD X48>
2201                     <CALL '\1aEMIT 3>
2202                     <FRAME '\1aEMIT>
2203                     <PUSH 208>
2204                     <FRAME '\1aMA-IMM>
2205                     <PUSH 0>
2206                     <CALL '\1aMA-IMM 1 = STACK>
2207                     <FRAME '\1aGCTEMP>
2208                     <PUSH 1>
2209                     <CALL '\1aGCTEMP 1 = STACK>
2210                     <CALL '\1aEMIT 3>
2211                     <FRAME '\1aEMIT-LABEL>
2212                     <PUSH LOOP-LAB18>
2213                     <PUSH 'T>
2214                     <CALL '\1aEMIT-LABEL 2>
2215                     <FRAME '\1aEMIT>
2216                     <PUSH 149>
2217                     <FRAME '\1aMA-DISP>
2218                     <GVAL 'AC-3 = STACK>
2219                     <PUSH 1>
2220                     <CALL '\1aMA-DISP 2 = STACK>
2221                     <CALL '\1aEMIT 2>
2222                     <FRAME '\1aEMIT-BRANCH>
2223                     <PUSH 25>
2224                     <PUSH M-LAB16>
2225                     <PUSH %<>>
2226                     <GVAL 'LAST-INST-LENGTH = STACK>
2227                     <CALL '\1aEMIT-BRANCH 4>
2228                     <FRAME '\1aEMIT>
2229                     <PUSH 136>
2230                     <GVAL 'AC-PC = TEMP35>
2231                     <NTHUV TEMP35 2 = X48 (TYPE FIX)>
2232                     <DEAD TEMP35>
2233                     <OR X48 #WORD *200* = X48>
2234                     <LSH X48 24 = X48 (TYPE FIX)>
2235                     <LSH 128 16 = TEMP35 (TYPE FIX)>
2236                     <OR X48 TEMP35 = X48>
2237                     <DEAD TEMP35>
2238                     <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2239                     <DEAD X48>
2240                     <FRAME '\1aMA-DISP>
2241                     <GVAL 'AC-3 = STACK>
2242                     <PUSH 1>
2243                     <CALL '\1aMA-DISP 2 = STACK>
2244                     <CALL '\1aEMIT 3>
2245                     <FRAME '\1aEMIT>
2246                     <PUSH 125>
2247                     <PUSH ALLOCADDR15>
2248                     <GVAL 'AC-0 = X48>
2249                     <NTHUV X48 2 = X48 (TYPE FIX)>
2250                     <OR X48 #WORD *120* = X48>
2251                     <LSH X48 24 = X48 (TYPE FIX)>
2252                     <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2253                     <DEAD X48>
2254                     <CALL '\1aEMIT 3>
2255                     <FRAME '\1aEMIT>
2256                     <PUSH 193>
2257                     <FRAME '\1aMA-IMM>
2258                     <PUSH 12>
2259                     <CALL '\1aMA-IMM 1 = STACK>
2260                     <GVAL 'AC-1 = X48>
2261                     <NTHUV X48 2 = X48 (TYPE FIX)>
2262                     <OR X48 #WORD *120* = X48>
2263                     <LSH X48 24 = X48 (TYPE FIX)>
2264                     <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2265                     <DEAD X48>
2266                     <GVAL 'AC-6 = X48>
2267                     <NTHUV X48 2 = X48 (TYPE FIX)>
2268                     <OR X48 #WORD *120* = X48>
2269                     <LSH X48 24 = X48 (TYPE FIX)>
2270                     <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2271                     <DEAD X48>
2272                     <CALL '\1aEMIT 4>
2273                     <FRAME '\1aEMIT>
2274                     <PUSH 125>
2275                     <PUSH ENDADDR14>
2276                     <DEAD ENDADDR14>
2277                     <GVAL 'AC-4 = X48>
2278                     <NTHUV X48 2 = X48 (TYPE FIX)>
2279                     <OR X48 #WORD *120* = X48>
2280                     <LSH X48 24 = X48 (TYPE FIX)>
2281                     <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2282                     <DEAD X48>
2283                     <CALL '\1aEMIT 3>
2284                     <FRAME '\1aEMIT>
2285                     <PUSH 209>
2286                     <GVAL 'AC-6 = X48>
2287                     <NTHUV X48 2 = X48 (TYPE FIX)>
2288                     <OR X48 #WORD *120* = X48>
2289                     <LSH X48 24 = X48 (TYPE FIX)>
2290                     <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2291                     <DEAD X48>
2292                     <GVAL 'AC-5 = X48>
2293                     <NTHUV X48 2 = X48 (TYPE FIX)>
2294                     <OR X48 #WORD *120* = X48>
2295                     <LSH X48 24 = X48 (TYPE FIX)>
2296                     <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2297                     <DEAD X48>
2298                     <CALL '\1aEMIT 3>
2299                     <FRAME '\1aEMIT-BRANCH>
2300                     <PUSH 21>
2301                     <PUSH F-LAB20>
2302                     <PUSH %<>>
2303                     <GVAL 'LAST-INST-LENGTH = STACK>
2304                     <CALL '\1aEMIT-BRANCH 4>
2305                     <FRAME '\1aEMIT-LABEL>
2306                     <PUSH NF-LAB19>
2307                     <DEAD NF-LAB19>
2308                     <PUSH 'T>
2309                     <CALL '\1aEMIT-LABEL 2>
2310                     <FRAME '\1aEMIT>
2311                     <PUSH 208>
2312                     <GVAL 'AC-3 = X48>
2313                     <NTHUV X48 2 = X48 (TYPE FIX)>
2314                     <OR X48 #WORD *120* = X48>
2315                     <LSH X48 24 = X48 (TYPE FIX)>
2316                     <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2317                     <DEAD X48>
2318                     <FRAME '\1aGCTEMP>
2319                     <PUSH 2>
2320                     <CALL '\1aGCTEMP 1 = STACK>
2321                     <CALL '\1aEMIT 3>
2322                     <FRAME '\1aFRAME-GEN>
2323                     <PUSH NEXT-ATOM9>
2324                     <CALL '\1aFRAME-GEN 1>
2325                     <FRAME '\1aEMIT-PUSH>
2326                     <FRAME '\1aTYPE-WORD>
2327                     <PUSH 'FIX>
2328                     <CALL '\1aTYPE-WORD 1 = STACK>
2329                     <PUSH 'LONG>
2330                     <CALL '\1aEMIT-PUSH 2>
2331                     <FRAME '\1aEMIT-PUSH>
2332                     <FRAME '\1aMA-IMM>
2333                     <PUSH 12>
2334                     <CALL '\1aMA-IMM 1 = STACK>
2335                     <PUSH 'LONG>
2336                     <CALL '\1aEMIT-PUSH 2>
2337                     <FRAME '\1aCALL-GEN>
2338                     <PUSH NEXT-ATOM9>
2339                     <DEAD NEXT-ATOM9>
2340                     <PUSH 1>
2341                     <CALL '\1aCALL-GEN 2>
2342                     <FRAME '\1aEMIT>
2343                     <PUSH 125>
2344                     <PUSH ALLOCADDR15>
2345                     <GVAL 'AC-0 = X48>
2346                     <NTHUV X48 2 = X48 (TYPE FIX)>
2347                     <OR X48 #WORD *120* = X48>
2348                     <LSH X48 24 = X48 (TYPE FIX)>
2349                     <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2350                     <DEAD X48>
2351                     <CALL '\1aEMIT 3>
2352                     <FRAME '\1aEMIT>
2353                     <PUSH 208>
2354                     <FRAME '\1aGCTEMP>
2355                     <PUSH 2>
2356                     <CALL '\1aGCTEMP 1 = STACK>
2357                     <GVAL 'AC-3 = X48>
2358                     <NTHUV X48 2 = X48 (TYPE FIX)>
2359                     <OR X48 #WORD *120* = X48>
2360                     <LSH X48 24 = X48 (TYPE FIX)>
2361                     <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2362                     <DEAD X48>
2363                     <CALL '\1aEMIT 3>
2364                     <FRAME '\1aEMIT>
2365                     <PUSH 193>
2366                     <FRAME '\1aMA-IMM>
2367                     <PUSH 12>
2368                     <CALL '\1aMA-IMM 1 = STACK>
2369                     <GVAL 'AC-1 = X48>
2370                     <NTHUV X48 2 = X48 (TYPE FIX)>
2371                     <OR X48 #WORD *120* = X48>
2372                     <LSH X48 24 = X48 (TYPE FIX)>
2373                     <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2374                     <DEAD X48>
2375                     <GVAL 'AC-6 = X48>
2376                     <NTHUV X48 2 = X48 (TYPE FIX)>
2377                     <OR X48 #WORD *120* = X48>
2378                     <LSH X48 24 = X48 (TYPE FIX)>
2379                     <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2380                     <DEAD X48>
2381                     <CALL '\1aEMIT 4>
2382                     <FRAME '\1aEMIT-LABEL>
2383                     <PUSH F-LAB20>
2384                     <DEAD F-LAB20>
2385                     <PUSH 'T>
2386                     <CALL '\1aEMIT-LABEL 2>
2387                     <FRAME '\1aEMIT>
2388                     <PUSH 208>
2389                     <FRAME '\1aTYPE-WORD>
2390                     <PUSH 'FIX>
2391                     <CALL '\1aTYPE-WORD 1 = STACK>
2392                     <GVAL 'AC-5 = X48>
2393                     <NTHUV X48 2 = X48 (TYPE FIX)>
2394                     <OR X48 #WORD *120* = X48>
2395                     <LSH X48 24 = X48 (TYPE FIX)>
2396                     <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2397                     <DEAD X48>
2398                     <CALL '\1aEMIT 3>
2399                     <FRAME '\1aEMIT>
2400                     <PUSH 125>
2401                     <GVAL 'AC-5 = X48>
2402                     <NTHUV X48 2 = X48 (TYPE FIX)>
2403                     <OR X48 #WORD *120* = X48>
2404                     <LSH X48 24 = X48 (TYPE FIX)>
2405                     <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2406                     <DEAD X48>
2407                     <PUSH ALLOCADDR15>
2408                     <DEAD ALLOCADDR15>
2409                     <CALL '\1aEMIT 3>
2410                     <FRAME '\1aEMIT>
2411                     <PUSH 192>
2412                     <FRAME '\1aMA-IMM>
2413                     <PUSH 4>
2414                     <CALL '\1aMA-IMM 1 = STACK>
2415                     <GVAL 'AC-1 = X48>
2416                     <NTHUV X48 2 = X48 (TYPE FIX)>
2417                     <OR X48 #WORD *120* = X48>
2418                     <LSH X48 24 = X48 (TYPE FIX)>
2419                     <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2420                     <DEAD X48>
2421                     <CALL '\1aEMIT 3>
2422                     <FRAME '\1aEMIT>
2423                     <PUSH 208>
2424                     <FRAME '\1aGCTEMP>
2425                     <PUSH 1>
2426                     <CALL '\1aGCTEMP 1 = STACK>
2427                     <GVAL 'AC-4 = X48>
2428                     <NTHUV X48 2 = X48 (TYPE FIX)>
2429                     <OR X48 #WORD *120* = X48>
2430                     <LSH X48 24 = X48 (TYPE FIX)>
2431                     <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2432                     <DEAD X48>
2433                     <CALL '\1aEMIT 3>
2434                     <FRAME '\1aEMIT-BRANCH>
2435                     <PUSH 19>
2436                     <PUSH NB-LAB21>
2437                     <PUSH %<>>
2438                     <GVAL 'LAST-INST-LENGTH = STACK>
2439                     <CALL '\1aEMIT-BRANCH 4>
2440                     <FRAME '\1aEMIT>
2441                     <PUSH 208>
2442                     <GVAL 'AC-1 = X48>
2443                     <NTHUV X48 2 = X48 (TYPE FIX)>
2444                     <OR X48 #WORD *120* = X48>
2445                     <LSH X48 24 = X48 (TYPE FIX)>
2446                     <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2447                     <DEAD X48>
2448                     <FRAME '\1aMA-DISP>
2449                     <GVAL 'AC-4 = STACK>
2450                     <PUSH -4>
2451                     <CALL '\1aMA-DISP 2 = STACK>
2452                     <CALL '\1aEMIT 3>
2453                     <FRAME '\1aEMIT-LABEL>
2454                     <PUSH NB-LAB21>
2455                     <DEAD NB-LAB21>
2456                     <PUSH 'T>
2457                     <CALL '\1aEMIT-LABEL 2>
2458                     <FRAME '\1aEMIT>
2459                     <PUSH 208>
2460                     <GVAL 'AC-1 = X48>
2461                     <NTHUV X48 2 = X48 (TYPE FIX)>
2462                     <OR X48 #WORD *120* = X48>
2463                     <LSH X48 24 = X48 (TYPE FIX)>
2464                     <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2465                     <DEAD X48>
2466                     <FRAME '\1aGCTEMP>
2467                     <PUSH 1>
2468                     <CALL '\1aGCTEMP 1 = STACK>
2469                     <CALL '\1aEMIT 3>
2470                     <FRAME '\1aEMIT>
2471                     <PUSH 208>
2472                     <FRAME '\1aMA-DISP>
2473                     <GVAL 'AC-3 = STACK>
2474                     <PUSH -4>
2475                     <CALL '\1aMA-DISP 2 = STACK>
2476                     <GVAL 'AC-4 = X48>
2477                     <NTHUV X48 2 = X48 (TYPE FIX)>
2478                     <OR X48 #WORD *120* = X48>
2479                     <LSH X48 24 = X48 (TYPE FIX)>
2480                     <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2481                     <DEAD X48>
2482                     <CALL '\1aEMIT 3>
2483                     <FRAME '\1aEMIT>
2484                     <PUSH 208>
2485                     <GVAL 'AC-1 = X48>
2486                     <NTHUV X48 2 = X48 (TYPE FIX)>
2487                     <OR X48 #WORD *120* = X48>
2488                     <LSH X48 24 = X48 (TYPE FIX)>
2489                     <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2490                     <DEAD X48>
2491                     <FRAME '\1aMA-DISP>
2492                     <GVAL 'AC-3 = STACK>
2493                     <PUSH -4>
2494                     <CALL '\1aMA-DISP 2 = STACK>
2495                     <CALL '\1aEMIT 3>
2496                     <FRAME '\1aEMIT>
2497                     <PUSH 208>
2498                     <GVAL 'AC-4 = X48>
2499                     <NTHUV X48 2 = X48 (TYPE FIX)>
2500                     <OR X48 #WORD *120* = X48>
2501                     <LSH X48 24 = X48 (TYPE FIX)>
2502                     <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2503                     <DEAD X48>
2504                     <FRAME '\1aMA-DISP>
2505                     <GVAL 'AC-1 = STACK>
2506                     <PUSH -4>
2507                     <CALL '\1aMA-DISP 2 = STACK>
2508                     <CALL '\1aEMIT 3>
2509                     <FRAME '\1aEMIT>
2510                     <PUSH 125>
2511                     <GVAL 'AC-3 = X48>
2512                     <NTHUV X48 2 = X48 (TYPE FIX)>
2513                     <OR X48 #WORD *140* = X48>
2514                     <LSH X48 24 = X48 (TYPE FIX)>
2515                     <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2516                     <DEAD X48>
2517                     <GVAL 'AC-0 = X48>
2518                     <NTHUV X48 2 = X48 (TYPE FIX)>
2519                     <OR X48 #WORD *120* = X48>
2520                     <LSH X48 24 = X48 (TYPE FIX)>
2521                     <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2522                     <DEAD X48>
2523                     <CALL '\1aEMIT 3>
2524                     <FRAME '\1aEMIT>
2525                     <PUSH 202>
2526                     <FRAME '\1aMA-IMM>
2527                     <PUSH 32768>
2528                     <CALL '\1aMA-IMM 1 = STACK>
2529                     <GVAL 'AC-0 = X48>
2530                     <NTHUV X48 2 = X48 (TYPE FIX)>
2531                     <OR X48 #WORD *120* = X48>
2532                     <LSH X48 24 = X48 (TYPE FIX)>
2533                     <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2534                     <DEAD X48>
2535                     <CALL '\1aEMIT 3>
2536                     <FRAME '\1aEMIT>
2537                     <PUSH 147>
2538                     <GVAL 'AC-PC = X48>
2539                     <NTHUV X48 2 = X48 (TYPE FIX)>
2540                     <OR X48 #WORD *200* = X48>
2541                     <LSH X48 24 = X48 (TYPE FIX)>
2542                     <LSH 7 16 = TEMP35 (TYPE FIX)>
2543                     <OR X48 TEMP35 = X48>
2544                     <DEAD TEMP35>
2545                     <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2546                     <DEAD X48>
2547                     <GVAL 'AC-0 = X48>
2548                     <NTHUV X48 2 = X48 (TYPE FIX)>
2549                     <OR X48 #WORD *120* = X48>
2550                     <LSH X48 24 = X48 (TYPE FIX)>
2551                     <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2552                     <DEAD X48>
2553                     <CALL '\1aEMIT 3>
2554                     <FRAME '\1aEMIT-BRANCH>
2555                     <PUSH 19>
2556                     <PUSH MC-LAB22>
2557                     <PUSH %<>>
2558                     <GVAL 'LAST-INST-LENGTH = STACK>
2559                     <CALL '\1aEMIT-BRANCH 4>
2560                     <FRAME '\1aEMIT>
2561                     <PUSH 208>
2562                     <GVAL 'AC-3 = X48>
2563                     <NTHUV X48 2 = X48 (TYPE FIX)>
2564                     <OR X48 #WORD *120* = X48>
2565                     <LSH X48 24 = X48 (TYPE FIX)>
2566                     <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2567                     <DEAD X48>
2568                     <FRAME '\1aGCTEMP>
2569                     <PUSH 2>
2570                     <CALL '\1aGCTEMP 1 = STACK>
2571                     <CALL '\1aEMIT 3>
2572                     <FRAME '\1aEMIT>
2573                     <PUSH 208>
2574                     <GVAL 'AC-4 = X48>
2575                     <NTHUV X48 2 = X48 (TYPE FIX)>
2576                     <OR X48 #WORD *120* = X48>
2577                     <LSH X48 24 = X48 (TYPE FIX)>
2578                     <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2579                     <DEAD X48>
2580                     <FRAME '\1aGCTEMP>
2581                     <PUSH 3>
2582                     <CALL '\1aGCTEMP 1 = STACK>
2583                     <CALL '\1aEMIT 3>
2584                     <FRAME '\1aFRAME-GEN>
2585                     <PUSH MARK-ATOM11>
2586                     <CALL '\1aFRAME-GEN 1>
2587                     <FRAME '\1aEMIT>
2588                     <PUSH 125>
2589                     <GVAL 'AC-0 = X48>
2590                     <NTHUV X48 2 = X48 (TYPE FIX)>
2591                     <OR X48 #WORD *120* = X48>
2592                     <LSH X48 24 = X48 (TYPE FIX)>
2593                     <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2594                     <DEAD X48>
2595                     <GVAL 'AC-TP = X48>
2596                     <NTHUV X48 2 = X48 (TYPE FIX)>
2597                     <OR X48 #WORD *200* = X48>
2598                     <LSH X48 24 = X48 (TYPE FIX)>
2599                     <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2600                     <DEAD X48>
2601                     <CALL '\1aEMIT 3>
2602                     <FRAME '\1aCALL-GEN>
2603                     <PUSH MARK-ATOM11>
2604                     <DEAD MARK-ATOM11>
2605                     <PUSH 1>
2606                     <CALL '\1aCALL-GEN 2>
2607                     <FRAME '\1aEMIT>
2608                     <PUSH 208>
2609                     <FRAME '\1aGCTEMP>
2610                     <PUSH 2>
2611                     <CALL '\1aGCTEMP 1 = STACK>
2612                     <GVAL 'AC-3 = X48>
2613                     <NTHUV X48 2 = X48 (TYPE FIX)>
2614                     <OR X48 #WORD *120* = X48>
2615                     <LSH X48 24 = X48 (TYPE FIX)>
2616                     <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2617                     <DEAD X48>
2618                     <CALL '\1aEMIT 3>
2619                     <FRAME '\1aEMIT>
2620                     <PUSH 208>
2621                     <FRAME '\1aGCTEMP>
2622                     <PUSH 3>
2623                     <CALL '\1aGCTEMP 1 = STACK>
2624                     <GVAL 'AC-4 = X48>
2625                     <NTHUV X48 2 = X48 (TYPE FIX)>
2626                     <OR X48 #WORD *120* = X48>
2627                     <LSH X48 24 = X48 (TYPE FIX)>
2628                     <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2629                     <DEAD X48>
2630                     <CALL '\1aEMIT 3>
2631                     <FRAME '\1aEMIT-LABEL>
2632                     <PUSH MC-LAB22>
2633                     <DEAD MC-LAB22>
2634                     <PUSH 'T>
2635                     <CALL '\1aEMIT-LABEL 2>
2636                     <FRAME '\1aEMIT>
2637                     <PUSH 208>
2638                     <FRAME '\1aGCTEMP>
2639                     <PUSH 1>
2640                     <CALL '\1aGCTEMP 1 = STACK>
2641                     <GVAL 'AC-2 = X48>
2642                     <NTHUV X48 2 = X48 (TYPE FIX)>
2643                     <OR X48 #WORD *120* = X48>
2644                     <LSH X48 24 = X48 (TYPE FIX)>
2645                     <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2646                     <DEAD X48>
2647                     <CALL '\1aEMIT 3>
2648                     <FRAME '\1aEMIT>
2649                     <PUSH 125>
2650                     <GVAL 'AC-0 = X48>
2651                     <NTHUV X48 2 = X48 (TYPE FIX)>
2652                     <OR X48 #WORD *120* = X48>
2653                     <LSH X48 24 = X48 (TYPE FIX)>
2654                     <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2655                     <DEAD X48>
2656                     <GVAL 'AC-2 = X48>
2657                     <NTHUV X48 2 = X48 (TYPE FIX)>
2658                     <OR X48 #WORD *140* = X48>
2659                     <LSH X48 24 = X48 (TYPE FIX)>
2660                     <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2661                     <DEAD X48>
2662                     <CALL '\1aEMIT 3>
2663                     <VEQUAL? UNDO?23 0 + PHRASE124>
2664                     <DEAD UNDO?23>
2665                     <FRAME '\1aEMIT>
2666                     <PUSH 208>
2667                     <GVAL 'AC-4 = X48>
2668                     <NTHUV X48 2 = X48 (TYPE FIX)>
2669                     <OR X48 #WORD *120* = X48>
2670                     <LSH X48 24 = X48 (TYPE FIX)>
2671                     <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2672                     <DEAD X48>
2673                     <GVAL 'AC-2 = X48>
2674                     <NTHUV X48 2 = X48 (TYPE FIX)>
2675                     <OR X48 #WORD *140* = X48>
2676                     <LSH X48 24 = X48 (TYPE FIX)>
2677                     <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2678                     <DEAD X48>
2679                     <CALL '\1aEMIT 3>
2680 PHRASE124
2681                     <FRAME '\1aEMIT>
2682                     <PUSH 208>
2683                     <GVAL 'AC-4 = X48>
2684                     <NTHUV X48 2 = X48 (TYPE FIX)>
2685                     <OR X48 #WORD *120* = X48>
2686                     <LSH X48 24 = X48 (TYPE FIX)>
2687                     <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2688                     <DEAD X48>
2689                     <GVAL 'AC-3 = X48>
2690                     <NTHUV X48 2 = X48 (TYPE FIX)>
2691                     <OR X48 #WORD *120* = X48>
2692                     <LSH X48 24 = X48 (TYPE FIX)>
2693                     <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2694                     <DEAD X48>
2695                     <CALL '\1aEMIT 3>
2696                     <FRAME '\1aEMIT-BRANCH>
2697                     <PUSH 19>
2698                     <PUSH DONE-LAB17>
2699                     <PUSH %<>>
2700                     <GVAL 'LAST-INST-LENGTH = STACK>
2701                     <CALL '\1aEMIT-BRANCH 4>
2702                     <FRAME '\1aEMIT>
2703                     <PUSH 208>
2704                     <GVAL 'AC-3 = X48>
2705                     <NTHUV X48 2 = X48 (TYPE FIX)>
2706                     <OR X48 #WORD *120* = X48>
2707                     <LSH X48 24 = X48 (TYPE FIX)>
2708                     <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2709                     <DEAD X48>
2710                     <FRAME '\1aGCTEMP>
2711                     <PUSH 2>
2712                     <CALL '\1aGCTEMP 1 = STACK>
2713                     <CALL '\1aEMIT 3>
2714                     <FRAME '\1aFRAME-GEN>
2715                     <PUSH BOUNDS-ATOM10>
2716                     <CALL '\1aFRAME-GEN 1>
2717                     <FRAME '\1aEMIT-PUSH>
2718                     <FRAME '\1aTYPE-WORD>
2719                     <PUSH 'LIST>
2720                     <CALL '\1aTYPE-WORD 1 = STACK>
2721                     <PUSH 'LONG>
2722                     <CALL '\1aEMIT-PUSH 2>
2723                     <FRAME '\1aEMIT-PUSH>
2724                     <GVAL 'AC-3 = X48>
2725                     <NTHUV X48 2 = X48 (TYPE FIX)>
2726                     <OR X48 #WORD *120* = X48>
2727                     <LSH X48 24 = X48 (TYPE FIX)>
2728                     <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2729                     <DEAD X48>
2730                     <PUSH 'LONG>
2731                     <CALL '\1aEMIT-PUSH 2>
2732                     <FRAME '\1aCALL-GEN>
2733                     <PUSH BOUNDS-ATOM10>
2734                     <DEAD BOUNDS-ATOM10>
2735                     <PUSH 1>
2736                     <CALL '\1aCALL-GEN 2>
2737                     <FRAME '\1aEMIT>
2738                     <PUSH 208>
2739                     <FRAME '\1aGCTEMP>
2740                     <PUSH 2>
2741                     <CALL '\1aGCTEMP 1 = STACK>
2742                     <GVAL 'AC-3 = X48>
2743                     <NTHUV X48 2 = X48 (TYPE FIX)>
2744                     <OR X48 #WORD *120* = X48>
2745                     <LSH X48 24 = X48 (TYPE FIX)>
2746                     <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2747                     <DEAD X48>
2748                     <CALL '\1aEMIT 3>
2749                     <FRAME '\1aEMIT>
2750                     <PUSH 213>
2751                     <GVAL 'AC-1 = X48>
2752                     <NTHUV X48 2 = X48 (TYPE FIX)>
2753                     <OR X48 #WORD *120* = X48>
2754                     <LSH X48 24 = X48 (TYPE FIX)>
2755                     <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2756                     <DEAD X48>
2757                     <CALL '\1aEMIT 2>
2758                     <FRAME '\1aEMIT-BRANCH>
2759                     <PUSH 18>
2760                     <PUSH LOOP-LAB18>
2761                     <DEAD LOOP-LAB18>
2762                     <PUSH %<>>
2763                     <GVAL 'LAST-INST-LENGTH = STACK>
2764                     <CALL '\1aEMIT-BRANCH 4>
2765                     <FRAME '\1aEMIT-BRANCH>
2766                     <PUSH 17>
2767                     <PUSH DONE-LAB17>
2768                     <PUSH %<>>
2769                     <GVAL 'LAST-INST-LENGTH = STACK>
2770                     <CALL '\1aEMIT-BRANCH 4>
2771                     <FRAME '\1aEMIT-LABEL>
2772                     <PUSH M-LAB16>
2773                     <DEAD M-LAB16>
2774                     <PUSH 'T>
2775                     <CALL '\1aEMIT-LABEL 2>
2776                     <FRAME '\1aEMIT>
2777                     <PUSH 208>
2778                     <FRAME '\1aGCTEMP>
2779                     <PUSH 1>
2780                     <CALL '\1aGCTEMP 1 = STACK>
2781                     <GVAL 'AC-2 = X48>
2782                     <NTHUV X48 2 = X48 (TYPE FIX)>
2783                     <OR X48 #WORD *120* = X48>
2784                     <LSH X48 24 = X48 (TYPE FIX)>
2785                     <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2786                     <DEAD X48>
2787                     <CALL '\1aEMIT 3>
2788                     <FRAME '\1aEMIT-BRANCH>
2789                     <PUSH 19>
2790                     <PUSH DONE-LAB17>
2791                     <PUSH %<>>
2792                     <GVAL 'LAST-INST-LENGTH = STACK>
2793                     <CALL '\1aEMIT-BRANCH 4>
2794                     <FRAME '\1aEMIT>
2795                     <PUSH 208>
2796                     <FRAME '\1aMA-DISP>
2797                     <GVAL 'AC-3 = STACK>
2798                     <PUSH -4>
2799                     <CALL '\1aMA-DISP 2 = STACK>
2800                     <FRAME '\1aMA-DISP>
2801                     <GVAL 'AC-2 = STACK>
2802                     <PUSH -4>
2803                     <CALL '\1aMA-DISP 2 = STACK>
2804                     <CALL '\1aEMIT 3>
2805                     <FRAME '\1aEMIT-LABEL>
2806                     <PUSH DONE-LAB17>
2807                     <DEAD DONE-LAB17>
2808                     <PUSH 'T>
2809                     <CALL '\1aEMIT-LABEL 2>
2810                     <FRAME '\1aEMIT>
2811                     <PUSH 194>
2812                     <FRAME '\1aMA-IMM>
2813                     <PUSH 12>
2814                     <CALL '\1aMA-IMM 1 = STACK>
2815                     <GVAL 'AC-TP = X48>
2816                     <NTHUV X48 2 = X48 (TYPE FIX)>
2817                     <OR X48 #WORD *120* = X48>
2818                     <LSH X48 24 = X48 (TYPE FIX)>
2819                     <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2820                     <DEAD X48>
2821                     <CALL '\1aEMIT 3>
2822                     <FRAME '\1aEMIT>
2823                     <PUSH 125>
2824                     <FRAME '\1aVAR-TYPE-ADDRESS>
2825                     <PUSH VAR6>
2826                     <DEAD VAR6>
2827                     <CALL '\1aVAR-TYPE-ADDRESS 1 = STACK>
2828                     <GVAL 'AC-0 = X48>
2829                     <NTHUV X48 2 = X48 (TYPE FIX)>
2830                     <OR X48 #WORD *120* = X48>
2831                     <LSH X48 24 = X48 (TYPE FIX)>
2832                     <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2833                     <DEAD X48>
2834                     <CALL '\1aEMIT 3>
2835                     <FRAME '\1aEMIT>
2836                     <PUSH 208>
2837                     <FRAME '\1aMA-DISP>
2838                     <GVAL 'AC-1 = STACK>
2839                     <PUSH -4>
2840                     <CALL '\1aMA-DISP 2 = STACK>
2841                     <GVAL 'AC-1 = X48>
2842                     <NTHUV X48 2 = X48 (TYPE FIX)>
2843                     <OR X48 #WORD *120* = X48>
2844                     <LSH X48 24 = X48 (TYPE FIX)>
2845                     <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2846                     <DEAD X48>
2847                     <CALL '\1aEMIT 3>
2848                     <EQUAL? RES13 'STACK - PHRASE155>
2849                     <FRAME '\1aEMIT>
2850                     <PUSH 125>
2851                     <GVAL 'AC-0 = X48>
2852                     <NTHUV X48 2 = X48 (TYPE FIX)>
2853                     <OR X48 #WORD *120* = X48>
2854                     <LSH X48 24 = X48 (TYPE FIX)>
2855                     <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2856                     <DEAD X48>
2857                     <GVAL 'AC-TP = X48>
2858                     <NTHUV X48 2 = X48 (TYPE FIX)>
2859                     <OR X48 #WORD *200* = X48>
2860                     <LSH X48 24 = X48 (TYPE FIX)>
2861                     <CHTYPE X48 <TYPE-CODE EFF-ADDR> = STACK>
2862                     <DEAD X48>
2863                     <CALL '\1aEMIT 3>
2864                     <RETURN 'NORMAL>
2865 PHRASE155
2866                     <FRAME '\1aDEST-PAIR>
2867                     <GVAL 'AC-1 = STACK>
2868                     <GVAL 'AC-0 = STACK>
2869                     <PUSH RES13>
2870                     <DEAD RES13>
2871                     <CALL '\1aDEST-PAIR 3>
2872                     <RETURN 'NORMAL>
2873                     <END \1aCGC-LIST-GEN>
2874
2875 #WORD *33742307121*
2876                     <GFCN \1aMARKL-GEN ("VALUE" ATOM VARTBL FIX) VAR4 VAL5>
2877                     <TEMP VAC6>
2878                     <INTGO>
2879                     <FRAME '\1aLOAD-VAR>
2880                     <PUSH VAR4>
2881                     <DEAD VAR4>
2882                     <PUSH 'JUST-VALUE>
2883                     <PUSH %<>>
2884                     <PUSH 'PREF-VAL>
2885                     <CALL '\1aLOAD-VAR 4 = VAC6>
2886                     <FRAME '\1aFINISH-MARK>
2887                     <PUSH VAC6>
2888                     <DEAD VAC6>
2889                     <PUSH VAL5>
2890                     <DEAD VAL5>
2891                     <CALL '\1aFINISH-MARK 2>
2892                     <RETURN 'NORMAL>
2893                     <END \1aMARKL-GEN>
2894
2895 #WORD *34542344540*
2896                     <GFCN \1aIMARKU-GEN ("VALUE" AC VARTBL <OR FIX VARTBL> FIX) VAR4 VAL5 SHIFT6>
2897                     <TEMP VAC7 TEMP16:FIX>
2898                     <INTGO>
2899                     <FRAME '\1aUSE-AC>
2900                     <FRAME '\1aLOAD-VAR>
2901                     <PUSH VAR4>
2902                     <PUSH 'COUNT>
2903                     <PUSH 'T>
2904                     <PUSH 'PREF-VAL>
2905                     <CALL '\1aLOAD-VAR 4 = VAC7>
2906                     <PUSH VAC7>
2907                     <CALL '\1aUSE-AC 1>
2908                     <VEQUAL? SHIFT6 0 + PHRASE11 (TYPE FIX)>
2909                     <FRAME '\1aEMIT>
2910                     <PUSH 120>
2911                     <FRAME '\1aMA-IMM>
2912                     <PUSH SHIFT6>
2913                     <CALL '\1aMA-IMM 1 = STACK>
2914                     <NTHUV VAC7 2 = TEMP16 (TYPE FIX)>
2915                     <OR TEMP16 #WORD *120* = TEMP16>
2916                     <LSH TEMP16 24 = TEMP16 (TYPE FIX)>
2917                     <CHTYPE TEMP16 <TYPE-CODE EFF-ADDR> = STACK>
2918                     <DEAD TEMP16>
2919                     <NTHUV VAC7 2 = TEMP16 (TYPE FIX)>
2920                     <OR TEMP16 #WORD *120* = TEMP16>
2921                     <LSH TEMP16 24 = TEMP16 (TYPE FIX)>
2922                     <CHTYPE TEMP16 <TYPE-CODE EFF-ADDR> = STACK>
2923                     <DEAD TEMP16>
2924                     <CALL '\1aEMIT 4>
2925 PHRASE11
2926                     <FRAME '\1aEMIT>
2927                     <PUSH 192>
2928                     <FRAME '\1aVAR-VALUE-ADDRESS>
2929                     <PUSH VAR4>
2930                     <DEAD VAR4>
2931                     <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
2932                     <NTHUV VAC7 2 = TEMP16 (TYPE FIX)>
2933                     <OR TEMP16 #WORD *120* = TEMP16>
2934                     <LSH TEMP16 24 = TEMP16 (TYPE FIX)>
2935                     <CHTYPE TEMP16 <TYPE-CODE EFF-ADDR> = STACK>
2936                     <DEAD TEMP16>
2937                     <CALL '\1aEMIT 3>
2938                     <VEQUAL? SHIFT6 0 - PHRASE20 (TYPE FIX)>
2939                     <DEAD SHIFT6>
2940                     <FRAME '\1aEMIT>
2941                     <PUSH 192>
2942                     <FRAME '\1aMA-IMM>
2943                     <PUSH 3>
2944                     <CALL '\1aMA-IMM 1 = STACK>
2945                     <NTHUV VAC7 2 = TEMP16 (TYPE FIX)>
2946                     <OR TEMP16 #WORD *120* = TEMP16>
2947                     <LSH TEMP16 24 = TEMP16 (TYPE FIX)>
2948                     <CHTYPE TEMP16 <TYPE-CODE EFF-ADDR> = STACK>
2949                     <DEAD TEMP16>
2950                     <CALL '\1aEMIT 3>
2951                     <FRAME '\1aEMIT>
2952                     <PUSH 138>
2953                     <FRAME '\1aMA-IMM>
2954                     <PUSH 3>
2955                     <CALL '\1aMA-IMM 1 = STACK>
2956                     <NTHUV VAC7 2 = TEMP16 (TYPE FIX)>
2957                     <OR TEMP16 #WORD *120* = TEMP16>
2958                     <LSH TEMP16 24 = TEMP16 (TYPE FIX)>
2959                     <CHTYPE TEMP16 <TYPE-CODE EFF-ADDR> = STACK>
2960                     <DEAD TEMP16>
2961                     <CALL '\1aEMIT 3>
2962 PHRASE20
2963                     <FRAME '\1aFINISH-MARK>
2964                     <PUSH VAC7>
2965                     <PUSH VAL5>
2966                     <DEAD VAL5>
2967                     <CALL '\1aFINISH-MARK 2>
2968                     <RETURN VAC7>
2969                     <DEAD VAC7>
2970                     <END \1aIMARKU-GEN>
2971
2972 #WORD *31201223445*
2973                     <GFCN \1aFINISH-MARK ("VALUE" ANY AC <OR FIX VARTBL>) VAC4 VAL5>
2974                     <TEMP TEMP9 V13:FIX TEMP15>
2975                     <INTGO>
2976                     <EQUAL? VAL5 0 - PHRASE7>
2977                     <FRAME '\1aEMIT>
2978                     <PUSH 170>
2979                     <GVAL 'AC-PC = TEMP9>
2980                     <NTHUV TEMP9 2 = TEMP9 (TYPE FIX)>
2981                     <OR TEMP9 #WORD *200* = TEMP9>
2982                     <LSH TEMP9 24 = TEMP9 (TYPE FIX)>
2983                     <SET V13 32768 (TYPE FIX)>
2984                     <AND V13 #WORD *377* = TEMP15>
2985                     <LSH TEMP15 16 = TEMP15 (TYPE FIX)>
2986                     <AND V13 #WORD *177400* = V13>
2987                     <OR TEMP15 V13 = TEMP15>
2988                     <DEAD V13>
2989                     <AND TEMP15 #WORD *77777400* = TEMP15>
2990                     <OR TEMP9 TEMP15 = TEMP9>
2991                     <DEAD TEMP15>
2992                     <CHTYPE TEMP9 <TYPE-CODE EFF-ADDR> = STACK>
2993                     <DEAD TEMP9>
2994                     <FRAME '\1aMA-DISP>
2995                     <PUSH VAC4>
2996                     <DEAD VAC4>
2997                     <PUSH 0>
2998                     <CALL '\1aMA-DISP 2 = STACK>
2999                     <CALL '\1aEMIT 3 = TEMP9>
3000                     <RETURN TEMP9>
3001                     <DEAD TEMP9>
3002 PHRASE7
3003                     <FRAME '\1aEMIT>
3004                     <PUSH 168>
3005                     <GVAL 'AC-PC = TEMP15>
3006                     <NTHUV TEMP15 2 = V13 (TYPE FIX)>
3007                     <DEAD TEMP15>
3008                     <OR V13 #WORD *200* = V13>
3009                     <LSH V13 24 = V13 (TYPE FIX)>
3010                     <SET TEMP15 32768 (TYPE FIX)>
3011                     <AND TEMP15 #WORD *377* = TEMP9>
3012                     <LSH TEMP9 16 = TEMP9 (TYPE FIX)>
3013                     <AND TEMP15 #WORD *177400* = TEMP15>
3014                     <OR TEMP9 TEMP15 = TEMP15>
3015                     <DEAD TEMP9>
3016                     <AND TEMP15 #WORD *77777400* = TEMP15>
3017                     <OR V13 TEMP15 = V13>
3018                     <DEAD TEMP15>
3019                     <CHTYPE V13 <TYPE-CODE EFF-ADDR> = STACK>
3020                     <DEAD V13>
3021                     <FRAME '\1aMA-DISP>
3022                     <PUSH VAC4>
3023                     <PUSH 0>
3024                     <CALL '\1aMA-DISP 2 = STACK>
3025                     <CALL '\1aEMIT 3>
3026                     <TYPE? VAL5 <TYPE-CODE FIX> - TAG28>
3027                     <RETURN %<>>
3028 TAG28
3029                     <FRAME '\1aEMIT>
3030                     <PUSH 208>
3031                     <FRAME '\1aVAR-VALUE-ADDRESS>
3032                     <PUSH VAL5>
3033                     <DEAD VAL5>
3034                     <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
3035                     <FRAME '\1aMA-DISP>
3036                     <PUSH VAC4>
3037                     <DEAD VAC4>
3038                     <PUSH 4>
3039                     <CALL '\1aMA-DISP 2 = STACK>
3040                     <CALL '\1aEMIT 3 = TEMP9>
3041                     <RETURN TEMP9>
3042                     <DEAD TEMP9>
3043                     <END \1aFINISH-MARK>
3044
3045 #WORD *106554341*
3046                     <GFCN \1aMARKUS-GEN ("VALUE" ATOM VARTBL <OR FIX VARTBL> "OPTIONAL" ANY) VAR6 VAL7 RES8>
3047                     <OPT-DISPATCH 2 %<> OPT4 OPT5>
3048 OPT4
3049                     <PUSH %<>>
3050 OPT5
3051                     <TEMP>
3052                     <INTGO>
3053                     <FRAME '\1aIMARKU-GEN>
3054                     <PUSH VAR6>
3055                     <DEAD VAR6>
3056                     <PUSH VAL7>
3057                     <DEAD VAL7>
3058                     <PUSH 0>
3059                     <CALL '\1aIMARKU-GEN 3>
3060                     <RETURN 'NORMAL>
3061                     <END \1aMARKUS-GEN>
3062
3063 <COND (<GASSIGNED? MARKUS-GEN> <SETG MARKUB-GEN ,MARKUS-GEN>)>
3064
3065 #WORD *11237245605*
3066                     <GFCN \1aMARKUV-GEN ("VALUE" ATOM VARTBL <OR FIX VARTBL>) VAR4 VAL5>
3067                     <TEMP>
3068                     <INTGO>
3069                     <FRAME '\1aIMARKU-GEN>
3070                     <PUSH VAR4>
3071                     <DEAD VAR4>
3072                     <PUSH VAL5>
3073                     <DEAD VAL5>
3074                     <PUSH 3>
3075                     <CALL '\1aIMARKU-GEN 3>
3076                     <RETURN 'NORMAL>
3077                     <END \1aMARKUV-GEN>
3078
3079 #WORD *11237245625*
3080                     <GFCN \1aMARKUU-GEN ("VALUE" ATOM VARTBL <OR FIX VARTBL>) VAR4 VAL5>
3081                     <TEMP>
3082                     <INTGO>
3083                     <FRAME '\1aIMARKU-GEN>
3084                     <PUSH VAR4>
3085                     <DEAD VAR4>
3086                     <PUSH VAL5>
3087                     <DEAD VAL5>
3088                     <PUSH 2>
3089                     <CALL '\1aIMARKU-GEN 3>
3090                     <RETURN 'NORMAL>
3091                     <END \1aMARKUU-GEN>
3092
3093 #WORD *24325023570*
3094                     <GFCN \1aMARKR-GEN ("VALUE" ATOM VARTBL <OR FIX VARTBL>) VAR4 VAL5>
3095                     <TEMP>
3096                     <INTGO>
3097                     <FRAME '\1aCALL-RTE>
3098                     <GVAL 'IMARKR!-MIMOP = STACK>
3099                     <PUSH 'CALL>
3100                     <PUSH %<>>
3101                     <PUSH %<>>
3102                     <PUSH VAR4>
3103                     <DEAD VAR4>
3104                     <PUSH VAL5>
3105                     <DEAD VAL5>
3106                     <CALL '\1aCALL-RTE 6>
3107                     <RETURN 'NORMAL>
3108                     <END \1aMARKR-GEN>
3109
3110 #WORD *10017043065*
3111                     <GFCN \1aMARKL?-GEN ("VALUE" ATOM VARTBL <OR VARTBL ATOM>) VAR4 RES5>
3112                     <TEMP VAC6>
3113                     <INTGO>
3114                     <FRAME '\1aLOAD-VAR>
3115                     <PUSH VAR4>
3116                     <DEAD VAR4>
3117                     <PUSH 'VALUE>
3118                     <PUSH 'T>
3119                     <PUSH 'PREF-VAL>
3120                     <CALL '\1aLOAD-VAR 4 = VAC6>
3121                     <FRAME '\1aFINISH-MARK?>
3122                     <PUSH VAC6>
3123                     <DEAD VAC6>
3124                     <PUSH RES5>
3125                     <DEAD RES5>
3126                     <CALL '\1aFINISH-MARK? 2>
3127                     <RETURN 'NORMAL>
3128                     <END \1aMARKL?-GEN>
3129
3130 #WORD *5152250434*
3131                     <GFCN \1aFINISH-MARK? ("VALUE" ANY AC ANY "OPTIONAL" ANY ANY) VAC7 RES8 REL9 VAR10>
3132                     <OPT-DISPATCH 2 %<> OPT4 OPT5 OPT6>
3133 OPT4
3134                     <PUSH %<>>
3135 OPT5
3136                     <PUSH #T$UNBOUND 0>
3137 OPT6
3138                     <TEMP TLAB11 ELAB12 TEMP21 NAC13>
3139                     <INTGO>
3140                     <FRAME '\1aMAKE-LABEL>
3141                     <CALL '\1aMAKE-LABEL 0 = TLAB11>
3142                     <FRAME '\1aMAKE-LABEL>
3143                     <CALL '\1aMAKE-LABEL 0 = ELAB12>
3144                     <FRAME '\1aEMIT>
3145                     <PUSH 149>
3146                     <FRAME '\1aMA-DISP>
3147                     <PUSH VAC7>
3148                     <PUSH 1>
3149                     <CALL '\1aMA-DISP 2 = STACK>
3150                     <CALL '\1aEMIT 2>
3151                     <FRAME '\1aGEN-BRANCH>
3152                     <PUSH 25>
3153                     <PUSH TLAB11>
3154                     <PUSH %<>>
3155                     <PUSH %<>>
3156                     <CALL '\1aGEN-BRANCH 4>
3157                     <FRAME '\1aEMIT>
3158                     <PUSH 212>
3159                     <NTHUV VAC7 2 = TEMP21 (TYPE FIX)>
3160                     <OR TEMP21 #WORD *120* = TEMP21>
3161                     <LSH TEMP21 24 = TEMP21 (TYPE FIX)>
3162                     <CHTYPE TEMP21 <TYPE-CODE EFF-ADDR> = STACK>
3163                     <DEAD TEMP21>
3164                     <CALL '\1aEMIT 2>
3165                     <TYPE? REL9 <TYPE-CODE FALSE> + PHRASE23>
3166                     <FRAME '\1aPROTECT>
3167                     <PUSH VAC7>
3168                     <CALL '\1aPROTECT 1>
3169                     <FRAME '\1aEMIT>
3170                     <PUSH 208>
3171                     <FRAME '\1aTYPE-CODE>
3172                     <PUSH 'FIX>
3173                     <CALL '\1aTYPE-CODE 1 = STACK>
3174                     <FRAME '\1aGET-AC>
3175                     <PUSH 'PREF-TYPE>
3176                     <PUSH 'T>
3177                     <CALL '\1aGET-AC 2 = NAC13>
3178                     <NTHUV NAC13 2 = TEMP21 (TYPE FIX)>
3179                     <OR TEMP21 #WORD *120* = TEMP21>
3180                     <LSH TEMP21 24 = TEMP21 (TYPE FIX)>
3181                     <CHTYPE TEMP21 <TYPE-CODE EFF-ADDR> = STACK>
3182                     <DEAD TEMP21>
3183                     <CALL '\1aEMIT 3>
3184 PHRASE23
3185                     <FRAME '\1aGEN-BRANCH>
3186                     <PUSH 17>
3187                     <PUSH ELAB12>
3188                     <PUSH %<>>
3189                     <PUSH %<>>
3190                     <CALL '\1aGEN-BRANCH 4>
3191                     <FRAME '\1aEMIT-LABEL>
3192                     <PUSH TLAB11>
3193                     <DEAD TLAB11>
3194                     <PUSH %<>>
3195                     <CALL '\1aEMIT-LABEL 2>
3196                     <TYPE? REL9 <TYPE-CODE FALSE> + PHRASE31>
3197                     <FRAME '\1aEMIT>
3198                     <PUSH 208>
3199                     <FRAME '\1aMA-DISP>
3200                     <PUSH VAC7>
3201                     <PUSH 4>
3202                     <CALL '\1aMA-DISP 2 = TLAB11>
3203                     <PUSH TLAB11>
3204                     <NTHUV VAC7 2 = TEMP21 (TYPE FIX)>
3205                     <OR TEMP21 #WORD *120* = TEMP21>
3206                     <LSH TEMP21 24 = TEMP21 (TYPE FIX)>
3207                     <CHTYPE TEMP21 <TYPE-CODE EFF-ADDR> = STACK>
3208                     <DEAD TEMP21>
3209                     <CALL '\1aEMIT 3>
3210                     <FRAME '\1aLOAD-AC>
3211                     <PUSH VAC7>
3212                     <PUSH TLAB11>
3213                     <DEAD TLAB11>
3214                     <CALL '\1aLOAD-AC 2>
3215                     <FRAME '\1aPROTECT>
3216                     <PUSH VAC7>
3217                     <CALL '\1aPROTECT 1>
3218                     <FRAME '\1aEMIT>
3219                     <PUSH 208>
3220                     <FRAME '\1aVAR-TYPE-ADDRESS>
3221                     <PUSH VAR10>
3222                     <DEAD VAR10>
3223                     <PUSH 'TYPE-WORD>
3224                     <CALL '\1aVAR-TYPE-ADDRESS 2 = TLAB11>
3225                     <PUSH TLAB11>
3226                     <DEAD TLAB11>
3227                     <NTHUV NAC13 2 = TEMP21 (TYPE FIX)>
3228                     <OR TEMP21 #WORD *120* = TEMP21>
3229                     <LSH TEMP21 24 = TEMP21 (TYPE FIX)>
3230                     <CHTYPE TEMP21 <TYPE-CODE EFF-ADDR> = STACK>
3231                     <DEAD TEMP21>
3232                     <CALL '\1aEMIT 3>
3233                     <JUMP + PHRASE38>
3234 PHRASE31
3235                     <FRAME '\1aEMIT>
3236                     <PUSH 208>
3237                     <FRAME '\1aMA-IMM>
3238                     <PUSH 1>
3239                     <CALL '\1aMA-IMM 1 = STACK>
3240                     <NTHUV VAC7 2 = TEMP21 (TYPE FIX)>
3241                     <OR TEMP21 #WORD *120* = TEMP21>
3242                     <LSH TEMP21 24 = TEMP21 (TYPE FIX)>
3243                     <CHTYPE TEMP21 <TYPE-CODE EFF-ADDR> = STACK>
3244                     <DEAD TEMP21>
3245                     <CALL '\1aEMIT 3>
3246 PHRASE38
3247                     <FRAME '\1aEMIT-LABEL>
3248                     <PUSH ELAB12>
3249                     <DEAD ELAB12>
3250                     <PUSH %<>>
3251                     <CALL '\1aEMIT-LABEL 2>
3252                     <TYPE? REL9 <TYPE-CODE FALSE> - PHRASE43>
3253                     <FRAME '\1aDEST-DECL>
3254                     <PUSH VAC7>
3255                     <DEAD VAC7>
3256                     <PUSH RES8>
3257                     <DEAD RES8>
3258                     <PUSH 'FIX>
3259                     <CALL '\1aDEST-DECL 3 = TEMP21>
3260                     <RETURN TEMP21>
3261                     <DEAD TEMP21>
3262 PHRASE43
3263                     <FRAME '\1aDEST-PAIR>
3264                     <PUSH VAC7>
3265                     <DEAD VAC7>
3266                     <PUSH NAC13>
3267                     <DEAD NAC13>
3268                     <PUSH REL9>
3269                     <DEAD REL9>
3270                     <CALL '\1aDEST-PAIR 3 = TEMP21>
3271                     <RETURN TEMP21>
3272                     <DEAD TEMP21>
3273                     <END \1aFINISH-MARK?>
3274
3275 #WORD *36566624572*
3276                     <GFCN \1aIMARKU?-GEN ("VALUE" AC VARTBL ANY FIX ANY) VAR4 RES5 SHIFT6 REL7>
3277                     <TEMP VAC8 TEMP16:FIX>
3278                     <INTGO>
3279                     <FRAME '\1aLOAD-VAR>
3280                     <PUSH VAR4>
3281                     <PUSH 'COUNT>
3282                     <PUSH 'T>
3283                     <PUSH 'PREF-VAL>
3284                     <CALL '\1aLOAD-VAR 4 = VAC8>
3285                     <VEQUAL? SHIFT6 0 + PHRASE11 (TYPE FIX)>
3286                     <FRAME '\1aEMIT>
3287                     <PUSH 120>
3288                     <FRAME '\1aMA-IMM>
3289                     <PUSH SHIFT6>
3290                     <CALL '\1aMA-IMM 1 = STACK>
3291                     <NTHUV VAC8 2 = TEMP16 (TYPE FIX)>
3292                     <OR TEMP16 #WORD *120* = TEMP16>
3293                     <LSH TEMP16 24 = TEMP16 (TYPE FIX)>
3294                     <CHTYPE TEMP16 <TYPE-CODE EFF-ADDR> = STACK>
3295                     <DEAD TEMP16>
3296                     <NTHUV VAC8 2 = TEMP16 (TYPE FIX)>
3297                     <OR TEMP16 #WORD *120* = TEMP16>
3298                     <LSH TEMP16 24 = TEMP16 (TYPE FIX)>
3299                     <CHTYPE TEMP16 <TYPE-CODE EFF-ADDR> = STACK>
3300                     <DEAD TEMP16>
3301                     <CALL '\1aEMIT 4>
3302 PHRASE11
3303                     <FRAME '\1aEMIT>
3304                     <PUSH 192>
3305                     <FRAME '\1aVAR-VALUE-ADDRESS>
3306                     <PUSH VAR4>
3307                     <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
3308                     <NTHUV VAC8 2 = TEMP16 (TYPE FIX)>
3309                     <OR TEMP16 #WORD *120* = TEMP16>
3310                     <LSH TEMP16 24 = TEMP16 (TYPE FIX)>
3311                     <CHTYPE TEMP16 <TYPE-CODE EFF-ADDR> = STACK>
3312                     <DEAD TEMP16>
3313                     <CALL '\1aEMIT 3>
3314                     <VEQUAL? SHIFT6 0 - PHRASE20 (TYPE FIX)>
3315                     <DEAD SHIFT6>
3316                     <FRAME '\1aEMIT>
3317                     <PUSH 192>
3318                     <FRAME '\1aMA-IMM>
3319                     <PUSH 3>
3320                     <CALL '\1aMA-IMM 1 = STACK>
3321                     <NTHUV VAC8 2 = TEMP16 (TYPE FIX)>
3322                     <OR TEMP16 #WORD *120* = TEMP16>
3323                     <LSH TEMP16 24 = TEMP16 (TYPE FIX)>
3324                     <CHTYPE TEMP16 <TYPE-CODE EFF-ADDR> = STACK>
3325                     <DEAD TEMP16>
3326                     <CALL '\1aEMIT 3>
3327                     <FRAME '\1aEMIT>
3328                     <PUSH 138>
3329                     <FRAME '\1aMA-IMM>
3330                     <PUSH 3>
3331                     <CALL '\1aMA-IMM 1 = STACK>
3332                     <NTHUV VAC8 2 = TEMP16 (TYPE FIX)>
3333                     <OR TEMP16 #WORD *120* = TEMP16>
3334                     <LSH TEMP16 24 = TEMP16 (TYPE FIX)>
3335                     <CHTYPE TEMP16 <TYPE-CODE EFF-ADDR> = STACK>
3336                     <DEAD TEMP16>
3337                     <CALL '\1aEMIT 3>
3338 PHRASE20
3339                     <FRAME '\1aFINISH-MARK?>
3340                     <PUSH VAC8>
3341                     <PUSH RES5>
3342                     <DEAD RES5>
3343                     <PUSH REL7>
3344                     <DEAD REL7>
3345                     <PUSH VAR4>
3346                     <DEAD VAR4>
3347                     <CALL '\1aFINISH-MARK? 4>
3348                     <RETURN VAC8>
3349                     <DEAD VAC8>
3350                     <END \1aIMARKU?-GEN>
3351
3352 #WORD *7370653370*
3353                     <GFCN \1aMARKUU?-GEN ("VALUE" ATOM VARTBL ANY "OPTIONAL" ANY) VAR6 RES7 REL8>
3354                     <OPT-DISPATCH 2 %<> OPT4 OPT5>
3355 OPT4
3356                     <PUSH %<>>
3357 OPT5
3358                     <TEMP>
3359                     <INTGO>
3360                     <FRAME '\1aIMARKU?-GEN>
3361                     <PUSH VAR6>
3362                     <DEAD VAR6>
3363                     <PUSH RES7>
3364                     <DEAD RES7>
3365                     <PUSH 2>
3366                     <PUSH REL8>
3367                     <DEAD REL8>
3368                     <CALL '\1aIMARKU?-GEN 4>
3369                     <RETURN 'NORMAL>
3370                     <END \1aMARKUU?-GEN>
3371
3372 #WORD *7360653370*
3373                     <GFCN \1aMARKUV?-GEN ("VALUE" ATOM VARTBL ANY "OPTIONAL" ANY) VAR6 RES7 REL8>
3374                     <OPT-DISPATCH 2 %<> OPT4 OPT5>
3375 OPT4
3376                     <PUSH %<>>
3377 OPT5
3378                     <TEMP>
3379                     <INTGO>
3380                     <FRAME '\1aIMARKU?-GEN>
3381                     <PUSH VAR6>
3382                     <DEAD VAR6>
3383                     <PUSH RES7>
3384                     <DEAD RES7>
3385                     <PUSH 3>
3386                     <PUSH REL8>
3387                     <DEAD REL8>
3388                     <CALL '\1aIMARKU?-GEN 4>
3389                     <RETURN 'NORMAL>
3390                     <END \1aMARKUV?-GEN>
3391
3392 #WORD *7350653370*
3393                     <GFCN \1aMARKUS?-GEN ("VALUE" ATOM VARTBL ANY "OPTIONAL" ANY) VAR6 RES7 REL8>
3394                     <OPT-DISPATCH 2 %<> OPT4 OPT5>
3395 OPT4
3396                     <PUSH %<>>
3397 OPT5
3398                     <TEMP>
3399                     <INTGO>
3400                     <FRAME '\1aIMARKU?-GEN>
3401                     <PUSH VAR6>
3402                     <DEAD VAR6>
3403                     <PUSH RES7>
3404                     <DEAD RES7>
3405                     <PUSH 0>
3406                     <PUSH REL8>
3407                     <DEAD REL8>
3408                     <CALL '\1aIMARKU?-GEN 4>
3409                     <RETURN 'NORMAL>
3410                     <END \1aMARKUS?-GEN>
3411
3412 <COND (<GASSIGNED? MARKUS?-GEN> <SETG MARKUB?-GEN ,MARKUS?-GEN>)>
3413
3414 #WORD *24411760436*
3415                     <GFCN \1aMARKR?-GEN ("VALUE" ATOM VARTBL ANY "OPTIONAL" <OR VARTBL FALSE>) VAR6 RES7 REL8>
3416                     <OPT-DISPATCH 2 %<> OPT4 OPT5>
3417 OPT4
3418                     <PUSH RES7>
3419                     <DEAD RES7>
3420 OPT5
3421                     <TEMP>
3422                     <INTGO>
3423                     <FRAME '\1aCALL-RTE>
3424                     <GVAL 'IMARKR?!-MIMOP = STACK>
3425                     <PUSH 'CALL>
3426                     <PUSH REL8>
3427                     <DEAD REL8>
3428                     <PUSH %<>>
3429                     <PUSH VAR6>
3430                     <DEAD VAR6>
3431                     <CALL '\1aCALL-RTE 5>
3432                     <RETURN 'NORMAL>
3433                     <END \1aMARKR?-GEN>
3434
3435 #WORD *22164141174*
3436                     <GFCN \1aSWNEXT-GEN ("VALUE" ATOM VARTBL ANY <OR ATOM VARTBL>) VAR4 GCP5 RES6>
3437                     <TEMP>
3438                     <INTGO>
3439                     <FRAME '\1aCALL-RTE>
3440                     <GVAL 'ISWNEXT!-MIMOP = STACK>
3441                     <PUSH 'CALL>
3442                     <PUSH RES6>
3443                     <DEAD RES6>
3444                     <PUSH %<>>
3445                     <PUSH VAR4>
3446                     <DEAD VAR4>
3447                     <PUSH GCP5>
3448                     <DEAD GCP5>
3449                     <CALL '\1aCALL-RTE 6>
3450                     <RETURN 'NORMAL>
3451                     <END \1aSWNEXT-GEN>
3452
3453 #WORD *32225175055*
3454                     <GFCN \1aNEXTS-GEN ("VALUE" ATOM VARTBL <OR ATOM VARTBL>) VAR4 RES5>
3455                     <TEMP>
3456                     <INTGO>
3457                     <FRAME '\1aCALL-RTE>
3458                     <GVAL 'INEXTS!-MIMOP = STACK>
3459                     <PUSH 'CALL>
3460                     <PUSH RES5>
3461                     <DEAD RES5>
3462                     <PUSH %<>>
3463                     <PUSH VAR4>
3464                     <DEAD VAR4>
3465                     <CALL '\1aCALL-RTE 5>
3466                     <RETURN 'NORMAL>
3467                     <END \1aNEXTS-GEN>
3468
3469 #WORD *21730216552*
3470                     <GFCN \1aCONTENTS-GEN ("VALUE" ATOM VARTBL <OR ATOM VARTBL>) VAR4 RES5>
3471                     <TEMP (TAC7 %<>) TLAB8 TLAB29 ELAB10 TEMP20 V27:FIX TEMP29 TEMP24>
3472                     <INTGO>
3473                     <FRAME '\1aMAKE-LABEL>
3474                     <CALL '\1aMAKE-LABEL 0 = TLAB8>
3475                     <FRAME '\1aMAKE-LABEL>
3476                     <CALL '\1aMAKE-LABEL 0 = TLAB29>
3477                     <FRAME '\1aMAKE-LABEL>
3478                     <CALL '\1aMAKE-LABEL 0 = ELAB10>
3479                     <FRAME '\1aPROTECT>
3480                     <FRAME '\1aLOAD-VAR>
3481                     <PUSH VAR4>
3482                     <DEAD VAR4>
3483                     <PUSH 'JUST-VALUE>
3484                     <PUSH %<>>
3485                     <PUSH 'PREF-VAL>
3486                     <CALL '\1aLOAD-VAR 4 = ELAB10>
3487                     <PUSH ELAB10>
3488                     <CALL '\1aPROTECT 1>
3489                     <FRAME '\1aEMIT>
3490                     <PUSH 125>
3491                     <FRAME '\1aMA-DISP>
3492                     <PUSH ELAB10>
3493                     <PUSH 0>
3494                     <CALL '\1aMA-DISP 2 = STACK>
3495                     <EQUAL? RES5 'STACK - PHRASE19>
3496                     <GVAL 'AC-TP = TEMP20>
3497                     <NTHUV TEMP20 2 = TEMP20 (TYPE FIX)>
3498                     <OR TEMP20 #WORD *200* = TEMP20>
3499                     <LSH TEMP20 24 = TEMP20 (TYPE FIX)>
3500                     <CHTYPE TEMP20 <TYPE-CODE EFF-ADDR> = TEMP20>
3501                     <JUMP + PHRASE21>
3502 PHRASE19
3503                     <FRAME '\1aGET-AC>
3504                     <PUSH 'DOUBLE>
3505                     <PUSH 'T>
3506                     <CALL '\1aGET-AC 2 = TAC7>
3507                     <SET TEMP20 TAC7>
3508 PHRASE21
3509                     <PUSH TEMP20>
3510                     <DEAD TEMP20>
3511                     <CALL '\1aEMIT 3>
3512                     <FRAME '\1aEMIT>
3513                     <PUSH 179>
3514                     <GVAL 'AC-PC = TEMP20>
3515                     <NTHUV TEMP20 2 = TEMP20 (TYPE FIX)>
3516                     <OR TEMP20 #WORD *200* = TEMP20>
3517                     <LSH TEMP20 24 = TEMP20 (TYPE FIX)>
3518                     <SET V27 32 (TYPE FIX)>
3519                     <AND V27 #WORD *377* = TEMP29>
3520                     <LSH TEMP29 16 = TEMP29 (TYPE FIX)>
3521                     <AND V27 #WORD *177400* = V27>
3522                     <OR TEMP29 V27 = TEMP24>
3523                     <DEAD TEMP29 V27>
3524                     <AND TEMP24 #WORD *77777400* = TEMP24>
3525                     <OR TEMP20 TEMP24 = TEMP20>
3526                     <DEAD TEMP24>
3527                     <CHTYPE TEMP20 <TYPE-CODE EFF-ADDR> = STACK>
3528                     <DEAD TEMP20>
3529                     <EQUAL? RES5 'STACK - PHRASE32>
3530                     <FRAME '\1aMA-DISP>
3531                     <GVAL 'AC-TP = STACK>
3532                     <PUSH -8>
3533                     <CALL '\1aMA-DISP 2 = TEMP20>
3534                     <JUMP + PHRASE34>
3535 PHRASE32
3536                     <NTHUV TAC7 2 = TEMP24 (TYPE FIX)>
3537                     <OR TEMP24 #WORD *120* = TEMP24>
3538                     <LSH TEMP24 24 = TEMP24 (TYPE FIX)>
3539                     <CHTYPE TEMP24 <TYPE-CODE EFF-ADDR> = TEMP20>
3540                     <DEAD TEMP24>
3541 PHRASE34
3542                     <PUSH TEMP20>
3543                     <DEAD TEMP20>
3544                     <CALL '\1aEMIT 3>
3545                     <FRAME '\1aGEN-BRANCH>
3546                     <PUSH 19>
3547                     <PUSH TLAB29>
3548                     <PUSH %<>>
3549                     <PUSH %<>>
3550                     <CALL '\1aGEN-BRANCH 4>
3551                     <FRAME '\1aEMIT>
3552                     <PUSH 170>
3553                     <GVAL 'AC-PC = TEMP20>
3554                     <NTHUV TEMP20 2 = TEMP24 (TYPE FIX)>
3555                     <DEAD TEMP20>
3556                     <OR TEMP24 #WORD *200* = TEMP24>
3557                     <LSH TEMP24 24 = TEMP24 (TYPE FIX)>
3558                     <SET V27 32 (TYPE FIX)>
3559                     <AND V27 #WORD *377* = TEMP29>
3560                     <LSH TEMP29 16 = TEMP29 (TYPE FIX)>
3561                     <AND V27 #WORD *177400* = TEMP20>
3562                     <DEAD V27>
3563                     <OR TEMP29 TEMP20 = TEMP20>
3564                     <DEAD TEMP29>
3565                     <AND TEMP20 #WORD *77777400* = TEMP20>
3566                     <OR TEMP24 TEMP20 = TEMP24>
3567                     <DEAD TEMP20>
3568                     <CHTYPE TEMP24 <TYPE-CODE EFF-ADDR> = STACK>
3569                     <DEAD TEMP24>
3570                     <EQUAL? RES5 'STACK - PHRASE42>
3571                     <FRAME '\1aMA-DISP>
3572                     <GVAL 'AC-TP = STACK>
3573                     <PUSH -8>
3574                     <CALL '\1aMA-DISP 2 = TEMP24>
3575                     <JUMP + PHRASE44>
3576 PHRASE42
3577                     <NTHUV TAC7 2 = TEMP20 (TYPE FIX)>
3578                     <OR TEMP20 #WORD *120* = TEMP20>
3579                     <LSH TEMP20 24 = TEMP20 (TYPE FIX)>
3580                     <CHTYPE TEMP20 <TYPE-CODE EFF-ADDR> = TEMP24>
3581                     <DEAD TEMP20>
3582 PHRASE44
3583                     <PUSH TEMP24>
3584                     <DEAD TEMP24>
3585                     <CALL '\1aEMIT 3>
3586                     <FRAME '\1aEMIT>
3587                     <PUSH 193>
3588                     <FRAME '\1aMA-IMM>
3589                     <PUSH 4>
3590                     <CALL '\1aMA-IMM 1 = STACK>
3591                     <NTHUV ELAB10 2 = TEMP20 (TYPE FIX)>
3592                     <OR TEMP20 #WORD *120* = TEMP20>
3593                     <LSH TEMP20 24 = TEMP20 (TYPE FIX)>
3594                     <CHTYPE TEMP20 <TYPE-CODE EFF-ADDR> = STACK>
3595                     <DEAD TEMP20>
3596                     <EQUAL? RES5 'STACK - PHRASE48>
3597                     <FRAME '\1aMA-DISP>
3598                     <GVAL 'AC-TP = STACK>
3599                     <PUSH -4>
3600                     <CALL '\1aMA-DISP 2 = TEMP20>
3601                     <JUMP + PHRASE50>
3602 PHRASE48
3603                     <FRAME '\1aNEXT-AC>
3604                     <PUSH TAC7>
3605                     <CALL '\1aNEXT-AC 1 = TEMP24>
3606                     <NTHUV TEMP24 2 = TEMP29 (TYPE FIX)>
3607                     <DEAD TEMP24>
3608                     <OR TEMP29 #WORD *120* = TEMP29>
3609                     <LSH TEMP29 24 = TEMP29 (TYPE FIX)>
3610                     <CHTYPE TEMP29 <TYPE-CODE EFF-ADDR> = TEMP20>
3611                     <DEAD TEMP29>
3612 PHRASE50
3613                     <PUSH TEMP20>
3614                     <DEAD TEMP20>
3615                     <CALL '\1aEMIT 4>
3616                     <FRAME '\1aEMIT>
3617                     <PUSH 177>
3618                     <FRAME '\1aTYPE-CODE>
3619                     <PUSH 'FRAME>
3620                     <PUSH 'WORD>
3621                     <CALL '\1aTYPE-CODE 2 = STACK>
3622                     <EQUAL? RES5 'STACK - PHRASE55>
3623                     <FRAME '\1aMA-DISP>
3624                     <GVAL 'AC-TP = STACK>
3625                     <PUSH -8>
3626                     <CALL '\1aMA-DISP 2 = TEMP20>
3627                     <JUMP + PHRASE57>
3628 PHRASE55
3629                     <NTHUV TAC7 2 = TEMP29 (TYPE FIX)>
3630                     <OR TEMP29 #WORD *120* = TEMP29>
3631                     <LSH TEMP29 24 = TEMP29 (TYPE FIX)>
3632                     <CHTYPE TEMP29 <TYPE-CODE EFF-ADDR> = TEMP20>
3633                     <DEAD TEMP29>
3634 PHRASE57
3635                     <PUSH TEMP20>
3636                     <DEAD TEMP20>
3637                     <CALL '\1aEMIT 3>
3638                     <FRAME '\1aGEN-BRANCH>
3639                     <PUSH 19>
3640                     <PUSH TLAB8>
3641                     <PUSH %<>>
3642                     <PUSH %<>>
3643                     <CALL '\1aGEN-BRANCH 4>
3644                     <FRAME '\1aEMIT>
3645                     <PUSH 177>
3646                     <FRAME '\1aTYPE-CODE>
3647                     <PUSH 'SFRAME>
3648                     <PUSH 'WORD>
3649                     <CALL '\1aTYPE-CODE 2 = STACK>
3650                     <EQUAL? RES5 'STACK - PHRASE62>
3651                     <FRAME '\1aMA-DISP>
3652                     <GVAL 'AC-TP = STACK>
3653                     <PUSH -8>
3654                     <CALL '\1aMA-DISP 2 = TEMP20>
3655                     <JUMP + PHRASE64>
3656 PHRASE62
3657                     <NTHUV TAC7 2 = TEMP29 (TYPE FIX)>
3658                     <OR TEMP29 #WORD *120* = TEMP29>
3659                     <LSH TEMP29 24 = TEMP29 (TYPE FIX)>
3660                     <CHTYPE TEMP29 <TYPE-CODE EFF-ADDR> = TEMP20>
3661                     <DEAD TEMP29>
3662 PHRASE64
3663                     <PUSH TEMP20>
3664                     <DEAD TEMP20>
3665                     <CALL '\1aEMIT 3>
3666                     <FRAME '\1aGEN-BRANCH>
3667                     <PUSH 18>
3668                     <PUSH TLAB29>
3669                     <PUSH %<>>
3670                     <PUSH %<>>
3671                     <CALL '\1aGEN-BRANCH 4>
3672                     <FRAME '\1aEMIT-LABEL>
3673                     <PUSH TLAB8>
3674                     <DEAD TLAB8>
3675                     <PUSH %<>>
3676                     <CALL '\1aEMIT-LABEL 2>
3677                     <FRAME '\1aEMIT>
3678                     <PUSH 193>
3679                     <FRAME '\1aMA-IMM>
3680                     <PUSH 28>
3681                     <CALL '\1aMA-IMM 1 = STACK>
3682                     <NTHUV ELAB10 2 = TEMP29 (TYPE FIX)>
3683                     <DEAD ELAB10>
3684                     <OR TEMP29 #WORD *120* = TEMP29>
3685                     <LSH TEMP29 24 = TEMP29 (TYPE FIX)>
3686                     <CHTYPE TEMP29 <TYPE-CODE EFF-ADDR> = STACK>
3687                     <DEAD TEMP29>
3688                     <EQUAL? RES5 'STACK - PHRASE70>
3689                     <FRAME '\1aMA-DISP>
3690                     <GVAL 'AC-TP = STACK>
3691                     <PUSH -4>
3692                     <CALL '\1aMA-DISP 2 = TEMP29>
3693                     <JUMP + PHRASE72>
3694 PHRASE70
3695                     <FRAME '\1aNEXT-AC>
3696                     <PUSH TAC7>
3697                     <CALL '\1aNEXT-AC 1 = TEMP20>
3698                     <NTHUV TEMP20 2 = TEMP20 (TYPE FIX)>
3699                     <OR TEMP20 #WORD *120* = TEMP20>
3700                     <LSH TEMP20 24 = TEMP20 (TYPE FIX)>
3701                     <CHTYPE TEMP20 <TYPE-CODE EFF-ADDR> = TEMP29>
3702                     <DEAD TEMP20>
3703 PHRASE72
3704                     <PUSH TEMP29>
3705                     <DEAD TEMP29>
3706                     <CALL '\1aEMIT 4>
3707                     <FRAME '\1aEMIT-LABEL>
3708                     <PUSH TLAB29>
3709                     <DEAD TLAB29>
3710                     <PUSH %<>>
3711                     <CALL '\1aEMIT-LABEL 2>
3712                     <EQUAL? RES5 'STACK + PHRASE76>
3713                     <FRAME '\1aDEST-PAIR>
3714                     <FRAME '\1aNEXT-AC>
3715                     <PUSH TAC7>
3716                     <CALL '\1aNEXT-AC 1 = STACK>
3717                     <PUSH TAC7>
3718                     <DEAD TAC7>
3719                     <PUSH RES5>
3720                     <DEAD RES5>
3721                     <CALL '\1aDEST-PAIR 3>
3722 PHRASE76
3723                     <RETURN 'NORMAL>
3724                     <END \1aCONTENTS-GEN>
3725
3726 #WORD *10424453342*
3727                     <GFCN \1aPUTS-GEN ("VALUE" ATOM ANY ANY) VAR14 VAR25>
3728                     <TEMP (TAC7 %<>) ELAB9 TEMP16 V20:FIX TEMP22:FIX>
3729                     <INTGO>
3730                     <FRAME '\1aMAKE-LABEL>
3731                     <CALL '\1aMAKE-LABEL 0 = TAC7>
3732                     <FRAME '\1aMAKE-LABEL>
3733                     <CALL '\1aMAKE-LABEL 0 = ELAB9>
3734                     <FRAME '\1aPROTECT>
3735                     <FRAME '\1aLOAD-VAR>
3736                     <PUSH VAR14>
3737                     <DEAD VAR14>
3738                     <PUSH 'JUST-VALUE>
3739                     <PUSH %<>>
3740                     <PUSH 'PREF-VAL>
3741                     <CALL '\1aLOAD-VAR 4 = ELAB9>
3742                     <PUSH ELAB9>
3743                     <CALL '\1aPROTECT 1>
3744                     <FRAME '\1aEMIT>
3745                     <PUSH 179>
3746                     <GVAL 'AC-PC = TEMP16>
3747                     <NTHUV TEMP16 2 = TEMP16 (TYPE FIX)>
3748                     <OR TEMP16 #WORD *200* = TEMP16>
3749                     <LSH TEMP16 24 = TEMP16 (TYPE FIX)>
3750                     <SET V20 32 (TYPE FIX)>
3751                     <AND V20 #WORD *377* = TEMP22>
3752                     <LSH TEMP22 16 = TEMP22 (TYPE FIX)>
3753                     <AND V20 #WORD *177400* = V20>
3754                     <OR TEMP22 V20 = V20>
3755                     <DEAD TEMP22>
3756                     <AND V20 #WORD *77777400* = V20>
3757                     <OR TEMP16 V20 = TEMP16>
3758                     <DEAD V20>
3759                     <CHTYPE TEMP16 <TYPE-CODE EFF-ADDR> = STACK>
3760                     <DEAD TEMP16>
3761                     <FRAME '\1aMA-DISP>
3762                     <PUSH ELAB9>
3763                     <PUSH 0>
3764                     <CALL '\1aMA-DISP 2 = STACK>
3765                     <CALL '\1aEMIT 3>
3766                     <FRAME '\1aGEN-BRANCH>
3767                     <PUSH 18>
3768                     <PUSH TAC7>
3769                     <PUSH %<>>
3770                     <PUSH %<>>
3771                     <CALL '\1aGEN-BRANCH 4>
3772                     <FRAME '\1aEMIT>
3773                     <PUSH 208>
3774                     <FRAME '\1aVAR-VALUE-ADDRESS>
3775                     <PUSH VAR25>
3776                     <DEAD VAR25>
3777                     <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
3778                     <FRAME '\1aMA-DISP>
3779                     <PUSH ELAB9>
3780                     <DEAD ELAB9>
3781                     <PUSH 4>
3782                     <CALL '\1aMA-DISP 2 = STACK>
3783                     <CALL '\1aEMIT 3>
3784                     <FRAME '\1aEMIT-LABEL>
3785                     <PUSH TAC7>
3786                     <DEAD TAC7>
3787                     <PUSH %<>>
3788                     <CALL '\1aEMIT-LABEL 2>
3789                     <RETURN 'NORMAL>
3790                     <END \1aPUTS-GEN>
3791
3792 #WORD *16407774445*
3793                     <GFCN \1aRELL-GEN ("VALUE" ANY VARTBL) VAR4>
3794                     <TEMP TEMP6>
3795                     <INTGO>
3796                     <FRAME '\1aCALL-RTE>
3797                     <GVAL 'IRELL!-MIMOP = STACK>
3798                     <PUSH 'CALL>
3799                     <PUSH %<>>
3800                     <PUSH %<>>
3801                     <PUSH VAR4>
3802                     <DEAD VAR4>
3803                     <CALL '\1aCALL-RTE 5 = TEMP6>
3804                     <RETURN TEMP6>
3805                     <DEAD TEMP6>
3806                     <END \1aRELL-GEN>
3807
3808 #WORD *16407760045*
3809                     <GFCN \1aRELU-GEN ("VALUE" ANY VARTBL) VAR4>
3810                     <TEMP TEMP6>
3811                     <INTGO>
3812                     <FRAME '\1aCALL-RTE>
3813                     <GVAL 'IRELU!-MIMOP = STACK>
3814                     <PUSH 'CALL>
3815                     <PUSH %<>>
3816                     <PUSH %<>>
3817                     <PUSH VAR4>
3818                     <DEAD VAR4>
3819                     <CALL '\1aCALL-RTE 5 = TEMP6>
3820                     <RETURN TEMP6>
3821                     <DEAD TEMP6>
3822                     <END \1aRELU-GEN>
3823
3824 #WORD *16407763445*
3825                     <GFCN \1aRELR-GEN ("VALUE" ANY VARTBL) VAR4>
3826                     <TEMP TEMP6>
3827                     <INTGO>
3828                     <FRAME '\1aCALL-RTE>
3829                     <GVAL 'IRELR!-MIMOP = STACK>
3830                     <PUSH 'CALL>
3831                     <PUSH %<>>
3832                     <PUSH %<>>
3833                     <PUSH VAR4>
3834                     <DEAD VAR4>
3835                     <CALL '\1aCALL-RTE 5 = TEMP6>
3836                     <RETURN TEMP6>
3837                     <DEAD TEMP6>
3838                     <END \1aRELR-GEN>
3839
3840 #WORD *35420236410*
3841                     <GFCN \1aALLOCL-GEN ("VALUE" ANY ANY ANY) VAR4 DEST5>
3842                     <TEMP VAC6 TEMP10>
3843                     <INTGO>
3844                     <FRAME '\1aLOAD-VAR>
3845                     <PUSH VAR4>
3846                     <DEAD VAR4>
3847                     <PUSH 'JUST-VALUE>
3848                     <PUSH 'T>
3849                     <PUSH 'PREF-VAL>
3850                     <CALL '\1aLOAD-VAR 4 = VAC6>
3851                     <FRAME '\1aEMIT>
3852                     <PUSH 192>
3853                     <FRAME '\1aMA-IMM>
3854                     <PUSH 4>
3855                     <CALL '\1aMA-IMM 1 = STACK>
3856                     <NTHUV VAC6 2 = TEMP10 (TYPE FIX)>
3857                     <OR TEMP10 #WORD *120* = TEMP10>
3858                     <LSH TEMP10 24 = TEMP10 (TYPE FIX)>
3859                     <CHTYPE TEMP10 <TYPE-CODE EFF-ADDR> = STACK>
3860                     <DEAD TEMP10>
3861                     <CALL '\1aEMIT 3>
3862                     <FRAME '\1aDEST-DECL>
3863                     <PUSH VAC6>
3864                     <DEAD VAC6>
3865                     <PUSH DEST5>
3866                     <DEAD DEST5>
3867                     <PUSH 'LIST>
3868                     <CALL '\1aDEST-DECL 3 = TEMP10>
3869                     <RETURN TEMP10>
3870                     <DEAD TEMP10>
3871                     <END \1aALLOCL-GEN>
3872
3873 #WORD *20145410214*
3874                     <GFCN \1aALLOCUU-GEN ("VALUE" ANY ANY ANY ANY "OPTIONAL" ANY) VAR6 OLD7 DEST8 HINT9>
3875                     <OPT-DISPATCH 3 %<> OPT4 OPT5>
3876 OPT4
3877                     <PUSH %<>>
3878 OPT5
3879                     <TEMP VAC110 VAC211>
3880                     <INTGO>
3881                     <FRAME '\1aPROTECT>
3882                     <FRAME '\1aLOAD-VAR>
3883                     <PUSH OLD7>
3884                     <DEAD OLD7>
3885                     <PUSH 'TYPE-WORD>
3886                     <PUSH %<>>
3887                     <PUSH 'PREF-VAL>
3888                     <CALL '\1aLOAD-VAR 4 = VAC110>
3889                     <PUSH VAC110>
3890                     <CALL '\1aPROTECT 1>
3891                     <FRAME '\1aLOAD-VAR>
3892                     <PUSH VAR6>
3893                     <DEAD VAR6>
3894                     <PUSH 'VALUE>
3895                     <PUSH %<>>
3896                     <PUSH 'PREF-VAL>
3897                     <CALL '\1aLOAD-VAR 4 = VAC211>
3898                     <FRAME '\1aDEST-PAIR>
3899                     <PUSH VAC211>
3900                     <DEAD VAC211>
3901                     <PUSH VAC110>
3902                     <DEAD VAC110>
3903                     <PUSH DEST8>
3904                     <DEAD DEST8>
3905                     <CALL '\1aDEST-PAIR 3 = VAC110>
3906                     <RETURN VAC110>
3907                     <DEAD VAC110>
3908                     <END \1aALLOCUU-GEN>
3909
3910 <COND (<GASSIGNED? ALLOCUU-GEN> <SETG ALLOCUV-GEN ,ALLOCUU-GEN> <SETG ALLOCUS-GEN ,ALLOCUU-GEN> <SETG ALLOCUB-GEN ,ALLOCUU-GEN> <SETG ALLOCR-GEN ,ALLOCUU-GEN>)>
3911
3912 #WORD *14312063136*
3913                     <GFCN \1aBLT-GEN ("VALUE" ATOM ANY ANY ANY "OPTIONAL" ANY) FROM6 TO7 NUMBER8 HINT9>
3914                     <OPT-DISPATCH 3 %<> OPT4 OPT5>
3915 OPT4
3916                     <PUSH %<>>
3917 OPT5
3918                     <TEMP (VAC10 %<>) LAB11 LAB112 X27 VVAC13:EFF-ADDR>
3919                     <INTGO>
3920                     <FRAME '\1aMAKE-LABEL>
3921                     <CALL '\1aMAKE-LABEL 0 = LAB11>
3922                     <FRAME '\1aMAKE-LABEL>
3923                     <CALL '\1aMAKE-LABEL 0 = LAB112>
3924                     <SET VAC10 (AC-0 AC-1 AC-2 AC-3 AC-4 AC-5 AC-6) (TYPE LIST)>
3925                     <LOOP>
3926 MAP17
3927                     <INTGO>
3928                     <EMPL? VAC10 + MAPAP20>
3929                     <NTHL VAC10 1 = X27>
3930                     <FRAME '\1aMUNG-AC>
3931                     <GVAL X27 = STACK>
3932                     <DEAD X27>
3933                     <CALL '\1aMUNG-AC 1>
3934                     <RESTL VAC10 1 = VAC10 (TYPE LIST)>
3935                     <JUMP + MAP17>
3936 MAPAP20
3937                     <TYPE? NUMBER8 <TYPE-CODE FIX> - PHRASE30>
3938                     <LSH NUMBER8 2 = NUMBER8 (TYPE FIX)>
3939                     <GRTR? NUMBER8 65535 + PHRASE30 (TYPE FIX)>
3940                     <FRAME '\1aLOAD-VAR>
3941                     <PUSH FROM6>
3942                     <DEAD FROM6>
3943                     <PUSH 'JUST-VALUE>
3944                     <PUSH 'T>
3945                     <GVAL 'AC-1 = STACK>
3946                     <CALL '\1aLOAD-VAR 4>
3947                     <FRAME '\1aLOAD-VAR>
3948                     <PUSH TO7>
3949                     <DEAD TO7>
3950                     <PUSH 'JUST-VALUE>
3951                     <PUSH 'T>
3952                     <GVAL 'AC-3 = STACK>
3953                     <CALL '\1aLOAD-VAR 4>
3954                     <FRAME '\1aEMIT>
3955                     <PUSH 40>
3956                     <GVAL 'AC-PC = VAC10>
3957                     <NTHUV VAC10 2 = LAB11 (TYPE FIX)>
3958                     <DEAD VAC10>
3959                     <OR LAB11 #WORD *200* = LAB11>
3960                     <LSH LAB11 24 = LAB11 (TYPE FIX)>
3961                     <SET VAC10 NUMBER8>
3962                     <DEAD NUMBER8>
3963                     <AND VAC10 #WORD *377* = X27>
3964                     <LSH X27 16 = X27 (TYPE FIX)>
3965                     <AND VAC10 #WORD *177400* = VAC10>
3966                     <OR X27 VAC10 = VAC10>
3967                     <DEAD X27>
3968                     <AND VAC10 #WORD *77777400* = VAC10>
3969                     <OR LAB11 VAC10 = LAB11>
3970                     <DEAD VAC10>
3971                     <CHTYPE LAB11 <TYPE-CODE EFF-ADDR> = STACK>
3972                     <DEAD LAB11>
3973                     <GVAL 'AC-1 = LAB11>
3974                     <NTHUV LAB11 2 = VAC10 (TYPE FIX)>
3975                     <DEAD LAB11>
3976                     <OR VAC10 #WORD *140* = VAC10>
3977                     <LSH VAC10 24 = VAC10 (TYPE FIX)>
3978                     <CHTYPE VAC10 <TYPE-CODE EFF-ADDR> = STACK>
3979                     <DEAD VAC10>
3980                     <GVAL 'AC-3 = VAC10>
3981                     <NTHUV VAC10 2 = X27 (TYPE FIX)>
3982                     <DEAD VAC10>
3983                     <OR X27 #WORD *140* = X27>
3984                     <LSH X27 24 = X27 (TYPE FIX)>
3985                     <CHTYPE X27 <TYPE-CODE EFF-ADDR> = STACK>
3986                     <DEAD X27>
3987                     <CALL '\1aEMIT 4>
3988                     <RETURN 'NORMAL>
3989 PHRASE30
3990                     <FRAME '\1aGET-AC>
3991                     <GVAL 'AC-5 = STACK>
3992                     <PUSH 'T>
3993                     <CALL '\1aGET-AC 2 = X27>
3994                     <NTHUV X27 2 = X27 (TYPE FIX)>
3995                     <OR X27 #WORD *120* = X27>
3996                     <LSH X27 24 = X27 (TYPE FIX)>
3997                     <CHTYPE X27 <TYPE-CODE EFF-ADDR> = VAC10>
3998                     <DEAD X27>
3999                     <FRAME '\1aGET-AC>
4000                     <GVAL 'AC-6 = STACK>
4001                     <PUSH 'T>
4002                     <CALL '\1aGET-AC 2 = X27>
4003                     <NTHUV X27 2 = X27 (TYPE FIX)>
4004                     <OR X27 #WORD *120* = X27>
4005                     <LSH X27 24 = X27 (TYPE FIX)>
4006                     <CHTYPE X27 <TYPE-CODE EFF-ADDR> = VVAC13>
4007                     <DEAD X27>
4008                     <TYPE? NUMBER8 <TYPE-CODE FIX> - PHRASE44>
4009                     <FRAME '\1aEMIT>
4010                     <PUSH 208>
4011                     <FRAME '\1aMA-IMM>
4012                     <PUSH NUMBER8>
4013                     <DEAD NUMBER8>
4014                     <CALL '\1aMA-IMM 1 = STACK>
4015                     <PUSH VVAC13>
4016                     <CALL '\1aEMIT 3>
4017                     <JUMP + PHRASE47>
4018 PHRASE44
4019                     <FRAME '\1aEMIT>
4020                     <PUSH 120>
4021                     <FRAME '\1aMA-IMM>
4022                     <PUSH 2>
4023                     <CALL '\1aMA-IMM 1 = STACK>
4024                     <FRAME '\1aVAR-VALUE-ADDRESS>
4025                     <PUSH NUMBER8>
4026                     <DEAD NUMBER8>
4027                     <CALL '\1aVAR-VALUE-ADDRESS 1 = STACK>
4028                     <PUSH VVAC13>
4029                     <CALL '\1aEMIT 4>
4030 PHRASE47
4031                     <FRAME '\1aLOAD-VAR>
4032                     <PUSH FROM6>
4033                     <DEAD FROM6>
4034                     <PUSH 'JUST-VALUE>
4035                     <PUSH 'T>
4036                     <GVAL 'AC-1 = STACK>
4037                     <CALL '\1aLOAD-VAR 4>
4038                     <FRAME '\1aLOAD-VAR>
4039                     <PUSH TO7>
4040                     <DEAD TO7>
4041                     <PUSH 'JUST-VALUE>
4042                     <PUSH 'T>
4043                     <GVAL 'AC-3 = STACK>
4044                     <CALL '\1aLOAD-VAR 4>
4045                     <FRAME '\1aEMIT-LABEL>
4046                     <PUSH LAB11>
4047                     <PUSH 'T>
4048                     <CALL '\1aEMIT-LABEL 2>
4049                     <FRAME '\1aEMIT-MOVE>
4050                     <PUSH VVAC13>
4051                     <PUSH VAC10>
4052                     <PUSH 'LONG>
4053                     <CALL '\1aEMIT-MOVE 3>
4054                     <FRAME '\1aEMIT>
4055                     <PUSH 209>
4056                     <PUSH VVAC13>
4057                     <FRAME '\1aMA-IMM>
4058                     <PUSH 65535>
4059                     <CALL '\1aMA-IMM 1 = STACK>
4060                     <CALL '\1aEMIT 3>
4061                     <FRAME '\1aGEN-BRANCH>
4062                     <PUSH 25>
4063                     <PUSH LAB112>
4064                     <PUSH %<>>
4065                     <CALL '\1aGEN-BRANCH 3>
4066                     <FRAME '\1aEMIT-MOVE>
4067                     <FRAME '\1aMA-IMM>
4068                     <PUSH 65535>
4069                     <CALL '\1aMA-IMM 1 = STACK>
4070                     <PUSH VAC10>
4071                     <PUSH 'LONG>
4072                     <CALL '\1aEMIT-MOVE 3>
4073                     <FRAME '\1aEMIT-LABEL>
4074                     <PUSH LAB112>
4075                     <DEAD LAB112>
4076                     <PUSH 'T>
4077                     <CALL '\1aEMIT-LABEL 2>
4078                     <FRAME '\1aEMIT>
4079                     <PUSH 40>
4080                     <PUSH VAC10>
4081                     <DEAD VAC10>
4082                     <GVAL 'AC-1 = X27>
4083                     <NTHUV X27 2 = X27 (TYPE FIX)>
4084                     <OR X27 #WORD *140* = X27>
4085                     <LSH X27 24 = X27 (TYPE FIX)>
4086                     <CHTYPE X27 <TYPE-CODE EFF-ADDR> = STACK>
4087                     <DEAD X27>
4088                     <GVAL 'AC-3 = X27>
4089                     <NTHUV X27 2 = X27 (TYPE FIX)>
4090                     <OR X27 #WORD *140* = X27>
4091                     <LSH X27 24 = X27 (TYPE FIX)>
4092                     <CHTYPE X27 <TYPE-CODE EFF-ADDR> = STACK>
4093                     <DEAD X27>
4094                     <CALL '\1aEMIT 4>
4095                     <FRAME '\1aEMIT>
4096                     <PUSH 194>
4097                     <FRAME '\1aMA-IMM>
4098                     <PUSH 65535>
4099                     <CALL '\1aMA-IMM 1 = STACK>
4100                     <PUSH VVAC13>
4101                     <DEAD VVAC13>
4102                     <CALL '\1aEMIT 3>
4103                     <FRAME '\1aGEN-BRANCH>
4104                     <PUSH 20>
4105                     <PUSH LAB11>
4106                     <DEAD LAB11>
4107                     <PUSH %<>>
4108                     <CALL '\1aGEN-BRANCH 3>
4109                     <RETURN 'NORMAL>
4110                     <END \1aBLT-GEN>
4111
4112 #WORD *3023430025*
4113                     <GFCN \1aMPAGES-GEN ("VALUE" ANY ANY ANY) PGS4 DEST5>
4114                     <TEMP TEMP7>
4115                     <INTGO>
4116                     <FRAME '\1aCALL-RTE>
4117                     <GVAL 'IMPAGES!-MIMOP = STACK>
4118                     <PUSH 'CALL>
4119                     <PUSH DEST5>
4120                     <DEAD DEST5>
4121                     <PUSH %<>>
4122                     <PUSH PGS4>
4123                     <DEAD PGS4>
4124                     <CALL '\1aCALL-RTE 5 = TEMP7>
4125                     <RETURN TEMP7>
4126                     <DEAD TEMP7>
4127                     <END \1aMPAGES-GEN>