mim/development/mim/20c/strman.mima

   1
   2 <COND (<NOT <GASSIGNED? WIDTH-MUNG>> <FLOAD "MIMOC20DEFS.MUD">)>
   3
   4 <NEWTYPE XTYPE-W ATOM>
   5
   6 <NEWTYPE LOCAL-NAME FIX>
   7
   8 <NEWTYPE LOCAL VECTOR>
   9
  10 <NEWTYPE XGLOC ATOM>
  11
  12 <SETG PRIM-FIX 0>
  13
  14 <SETG PRIM-LIST 1>
  15
  16 <MANIFEST PRIM-LIST PRIM-FIX>
  17
  18 #WORD *26554444000*
  19 <GFCN \1aNTHL!-MIMOC ("VALUE" ANY LIST "OPTIONAL" ANY ANY ANY) L12 AOS13 NOT-DEAD?14 LEN-VAR15>
  20                     <OPT-DISPATCH 1 %<> OPT8 OPT9 OPT10 OPT11>
  21 OPT8
  22                     <PUSH %<>>
  23 OPT9
  24                     <PUSH 'T>
  25 OPT10
  26                     <PUSH #T$UNBOUND 0>
  27 OPT11
  28                     <TEMP LST16 (TEMP27 %<>) AMT17 VAL18 LOOP19:ATOM END20:ATOM (AHEAD23 %<>) AC24 TEMP50 NAC25 TEMP113>
  29                     <INTGO>
  30                     <NTHL L12 1 = LST16>
  31                     <RESTL L12 1 = TEMP27 (TYPE LIST)>
  32                     <NTHL TEMP27 1 = AMT17>
  33                     <DEAD TEMP27>
  34                     <RESTL L12 1 = TEMP27 (TYPE LIST)>
  35                     <RESTL TEMP27 1 = TEMP27 (TYPE LIST)>
  36                     <RESTL TEMP27 1 = TEMP27 (TYPE LIST)>
  37                     <NTHL TEMP27 1 = VAL18>
  38                     <DEAD TEMP27>
  39                     <FRAME '\1aGENLBL>
  40                     <PUSH "LOOP">
  41                     <CALL '\1aGENLBL 1 = LOOP19>
  42                     <FRAME '\1aGENLBL>
  43                     <PUSH "END">
  44                     <CALL '\1aGENLBL 1 = END20>
  45                     <FRAME '\1aEXTRAMEM>
  46                     <PUSH 'TYPE>
  47                     <PUSH L12>
  48                     <CALL '\1aEXTRAMEM 2 = TEMP27>
  49                     <TYPE? AOS13 <TYPE-CODE FALSE> - BOOL32>
  50                     <FRAME '\1aNTH-PUT-LOOK-AHEAD>
  51                     <PUSH L12>
  52                     <DEAD L12>
  53                     <PUSH "PUTL">
  54                     <PUSH LST16>
  55                     <PUSH AMT17>
  56                     <PUSH VAL18>
  57                     <CALL '\1aNTH-PUT-LOOK-AHEAD 5 = TEMP27>
  58                     <TYPE? TEMP27 <TYPE-CODE FALSE> - PHRASE187>
  59 BOOL32
  60                     <TYPE? LEN-VAR15 <TYPE-CODE UNBOUND> + PHRASE36>
  61                     <TYPE? NOT-DEAD?14 <TYPE-CODE FALSE> + PHRASE36>
  62                     <SET VAL18 LEN-VAR15>
  63                     <DEAD LEN-VAR15>
  64 PHRASE36
  65                     <FRAME '\1aIN-AC?>
  66                     <PUSH LST16>
  67                     <PUSH 'BOTH>
  68                     <CALL '\1aIN-AC? 2 = TEMP27>
  69                     <TYPE? TEMP27 <TYPE-CODE FALSE> + BOOL41>
  70                     <FRAME '\1aNEXT-AC>
  71                     <PUSH TEMP27>
  72                     <CALL '\1aNEXT-AC 1 = AC24>
  73                     <TYPE? AC24 <TYPE-CODE FALSE> - PHRASE39>
  74 BOOL41
  75                     <FRAME '\1aIN-AC?>
  76                     <PUSH LST16>
  77                     <PUSH 'VALUE>
  78                     <CALL '\1aIN-AC? 2 = AC24>
  79                     <TYPE? AC24 <TYPE-CODE FALSE> - PHRASE39>
  80                     <TYPE? AOS13 <TYPE-CODE FALSE> + BOOL48>
  81                     <TYPE? NOT-DEAD?14 <TYPE-CODE FALSE> + PHRASE46>
  82 BOOL48
  83                     <EQUAL? LST16 VAL18 + PHRASE46>
  84                     <FRAME '\1aLOOK-AHEAD>
  85                     <GEN-LVAL 'MIML = TEMP50>
  86                     <RESTL TEMP50 1 = STACK (TYPE LIST)>
  87                     <DEAD TEMP50>
  88                     <PUSH VAL18>
  89                     <PUSH 'BOTH>
  90                     <CALL '\1aLOOK-AHEAD 3 = AHEAD23>
  91                     <TYPE? AHEAD23 <TYPE-CODE FALSE> + PHRASE46>
  92                     <GVAL 'AC-STAMP = TEMP50>
  93                     <ADD TEMP50 1 = TEMP50 (TYPE FIX)>
  94                     <SETG 'AC-STAMP TEMP50>
  95                     <PUTUV AHEAD23 4 TEMP50 (TYPE FIX)>
  96                     <DEAD TEMP50>
  97                     <FRAME '\1aGET-AC>
  98                     <FRAME '\1aNEXT-AC>
  99                     <PUSH AHEAD23>
 100                     <CALL '\1aNEXT-AC 1 = STACK>
 101                     <CALL '\1aGET-AC 1 = TEMP50>
 102                     <GVAL 'AC-STAMP = TEMP27>
 103                     <PUTUV TEMP50 4 TEMP27 (TYPE FIX)>
 104                     <DEAD TEMP50 TEMP27>
 105 PHRASE46
 106                     <FRAME '\1aNEXT-AC>
 107                     <FRAME '\1aLOAD-AC>
 108                     <PUSH LST16>
 109                     <PUSH 'BOTH>
 110                     <CALL '\1aLOAD-AC 2 = TEMP27>
 111                     <PUSH TEMP27>
 112                     <CALL '\1aNEXT-AC 1 = AC24>
 113 PHRASE39
 114                     <FRAME '\1aWILL-DIE?>
 115                     <PUSH LST16>
 116                     <CALL '\1aWILL-DIE? 1 = TEMP50>
 117                     <TYPE? TEMP50 <TYPE-CODE FALSE> - PHRASE65>
 118                     <DEAD TEMP50>
 119                     <EQUAL? LST16 VAL18 + PHRASE65>
 120                     <EQUAL? AMT17 1 + PHRASE65>
 121                     <TYPE? TEMP27 <TYPE-CODE FALSE> + PHRASE63>
 122                     <FRAME '\1aFLUSH-AC>
 123                     <PUSH TEMP27>
 124                     <PUSH 'T>
 125                     <CALL '\1aFLUSH-AC 2>
 126                     <JUMP + PHRASE65>
 127 PHRASE63
 128                     <FRAME '\1aFLUSH-AC>
 129                     <PUSH AC24>
 130                     <CALL '\1aFLUSH-AC 1>
 131 PHRASE65
 132                     <EQUAL? AMT17 VAL18 - PHRASE68>
 133                     <FRAME '\1aIN-AC?>
 134                     <PUSH VAL18>
 135                     <PUSH 'BOTH>
 136                     <CALL '\1aIN-AC? 2 = TEMP50>
 137                     <TYPE? TEMP50 <TYPE-CODE FALSE> - BOOL70>
 138                     <FRAME '\1aIN-AC?>
 139                     <PUSH VAL18>
 140                     <PUSH 'VALUE>
 141                     <CALL '\1aIN-AC? 2 = TEMP50>
 142 BOOL70
 143                     <SET NAC25 TEMP50>
 144                     <DEAD TEMP50>
 145                     <FRAME '\1aFLUSH-AC>
 146                     <PUSH NAC25>
 147                     <PUSH 'T>
 148                     <CALL '\1aFLUSH-AC 2>
 149 PHRASE68
 150                     <TYPE? AOS13 <TYPE-CODE FALSE> + BOOL77>
 151                     <TYPE? NOT-DEAD?14 <TYPE-CODE FALSE> + PHRASE80>
 152 BOOL77
 153                     <EQUAL? VAL18 'STACK + PHRASE80>
 154                     <FRAME '\1aLOAD-AC>
 155                     <PUSH VAL18>
 156                     <PUSH 'BOTH>
 157                     <PUSH 'T>
 158                     <PUSH 'T>
 159                     <PUSH AHEAD23>
 160                     <DEAD AHEAD23>
 161                     <CALL '\1aLOAD-AC 5 = NAC25>
 162                     <EQUAL? NAC25 TEMP27 - PHRASE80>
 163                     <EQUAL? LST16 VAL18 - PHRASE80>
 164                     <FRAME '\1aGET-AC>
 165                     <PUSH NAC25>
 166                     <CALL '\1aGET-AC 1 = TEMP50>
 167                     <PUTUV TEMP50 6 %<>>
 168                     <DEAD TEMP50>
 169 PHRASE80
 170                     <EQUAL? AMT17 1 + PHRASE138>
 171                     <TYPE? AMT17 <TYPE-CODE ATOM> - BOOL100>
 172                     <FRAME '\1aIN-AC?>
 173                     <PUSH AMT17>
 174                     <PUSH 'BOTH>
 175                     <CALL '\1aIN-AC? 2 = AHEAD23>
 176                     <TYPE? AHEAD23 <TYPE-CODE FALSE> + BOOL88>
 177                     <FRAME '\1aWILL-DIE?>
 178                     <PUSH AMT17>
 179                     <CALL '\1aWILL-DIE? 1 = TEMP50>
 180                     <TYPE? TEMP50 <TYPE-CODE FALSE> + BOOL91>
 181                     <DEAD TEMP50>
 182                     <FRAME '\1aDEAD!-MIMOC>
 183                     <CONS AMT17 () = STACK>
 184                     <PUSH 'T>
 185                     <CALL '\1aDEAD!-MIMOC 2 = TEMP50>
 186                     <TYPE? TEMP50 <TYPE-CODE FALSE> - BOOL90>
 187                     <DEAD TEMP50>
 188 BOOL91
 189                     <FRAME '\1aGET-AC>
 190                     <FRAME '\1aNEXT-AC>
 191                     <PUSH AHEAD23>
 192                     <CALL '\1aNEXT-AC 1 = STACK>
 193                     <CALL '\1aGET-AC 1 = TEMP50>
 194                     <NTHUV TEMP50 5 = TEMP50>
 195                     <TYPE? TEMP50 <TYPE-CODE FALSE> - BOOL88>
 196                     <DEAD TEMP50>
 197 BOOL90
 198                     <FRAME '\1aMUNGED-AC>
 199                     <PUSH AHEAD23>
 200                     <PUSH 'T>
 201                     <CALL '\1aMUNGED-AC 2>
 202                     <FRAME '\1aNEXT-AC>
 203                     <PUSH AHEAD23>
 204                     <DEAD AHEAD23>
 205                     <CALL '\1aNEXT-AC 1 = AHEAD23>
 206                     <SET TEMP50 AHEAD23>
 207                     <TYPE? TEMP50 <TYPE-CODE FALSE> - PHRASE111>
 208                     <DEAD TEMP50>
 209 BOOL88
 210                     <FRAME '\1aIN-AC?>
 211                     <PUSH AMT17>
 212                     <PUSH 'VALUE>
 213                     <CALL '\1aIN-AC? 2 = AHEAD23>
 214                     <TYPE? AHEAD23 <TYPE-CODE FALSE> + BOOL100>
 215                     <FRAME '\1aWILL-DIE?>
 216                     <PUSH AMT17>
 217                     <CALL '\1aWILL-DIE? 1 = TEMP50>
 218                     <TYPE? TEMP50 <TYPE-CODE FALSE> + BOOL103>
 219                     <DEAD TEMP50>
 220                     <FRAME '\1aDEAD!-MIMOC>
 221                     <CONS AMT17 () = STACK>
 222                     <PUSH 'T>
 223                     <CALL '\1aDEAD!-MIMOC 2 = TEMP50>
 224                     <TYPE? TEMP50 <TYPE-CODE FALSE> - BOOL102>
 225                     <DEAD TEMP50>
 226 BOOL103
 227                     <FRAME '\1aGET-AC>
 228                     <PUSH AHEAD23>
 229                     <CALL '\1aGET-AC 1 = TEMP50>
 230                     <NTHUV TEMP50 5 = TEMP50>
 231                     <TYPE? TEMP50 <TYPE-CODE FALSE> - BOOL100>
 232                     <DEAD TEMP50>
 233 BOOL102
 234                     <FRAME '\1aMUNGED-AC>
 235                     <PUSH AHEAD23>
 236                     <PUSH 'T>
 237                     <CALL '\1aMUNGED-AC 2 = TEMP50>
 238                     <TYPE? TEMP50 <TYPE-CODE FALSE> - PHRASE111>
 239                     <DEAD TEMP50>
 240 BOOL100
 241                     <FRAME '\1aOCEMIT>
 242                     <PUSH 'MOVE>
 243                     <SET AHEAD23 'O* (TYPE ATOM)>
 244                     <PUSH AHEAD23>
 245                     <SET TEMP113 2 (TYPE FIX)>
 246                     <SFRAME 'OBJ-VAL>
 247                     <PUSH AMT17>
 248                     <DEAD AMT17>
 249                     <SCALL '\1aOBJ-VAL 1 = TEMP50 + TAG112 TEMP113>
 250                     <LOOP (TEMP50 TYPE VALUE LENGTH) (TEMP113 VALUE)>
 251 TAG115
 252                     <INTGO>
 253                     <EMPTY? TEMP50 + TAG112>
 254                     <NTH1 TEMP50 = STACK>
 255                     <REST1 TEMP50 = TEMP50>
 256                     <ADD TEMP113 1 = TEMP113 (TYPE FIX)>
 257                     <JUMP + TAG115>
 258 TAG112
 259                     <CALL '\1aOCEMIT TEMP113>
 260                     <DEAD TEMP113>
 261 PHRASE111
 262                     <PUSH LOOP19>
 263                     <SET TEMP50 1 (TYPE FIX)>
 264                     <GVAL 'LOOPTAGS = TEMP113>
 265                     <TYPE TEMP113 = AMT17>
 266                     <AND AMT17 7 = AMT17>
 267                     <VEQUAL? AMT17 1 + TAG119>
 268                     <DEAD AMT17>
 269                     <LOOP (TEMP113 TYPE VALUE LENGTH) (TEMP50 VALUE)>
 270 TAG125
 271                     <INTGO>
 272                     <EMPTY? TEMP113 + TAG124>
 273                     <NTH1 TEMP113 = STACK>
 274                     <REST1 TEMP113 = TEMP113>
 275                     <ADD TEMP50 1 = TEMP50 (TYPE FIX)>
 276                     <JUMP + TAG125>
 277 TAG124
 278                     <LIST TEMP50 = TEMP113 (TYPE LIST)>
 279                     <DEAD TEMP50>
 280                     <JUMP + TAG120>
 281 TAG119
 282                     <LOOP>
 283 TAG122
 284                     <VEQUAL? TEMP50 0 + TAG121>
 285                     <POP = AMT17>
 286                     <CONS AMT17 TEMP113 = TEMP113 (TYPE LIST)>
 287                     <DEAD AMT17>
 288                     <SUB TEMP50 1 = TEMP50 (TYPE FIX)>
 289                     <JUMP + TAG122>
 290 TAG121
 291 TAG120
 292                     <SETG 'LOOPTAGS TEMP113>
 293                     <DEAD TEMP113>
 294                     <FRAME '\1aLABEL>
 295                     <PUSH LOOP19>
 296                     <CALL '\1aLABEL 1>
 297                     <FRAME '\1aOCEMIT>
 298                     <PUSH 'SOJE>
 299                     <PUSH AHEAD23>
 300                     <DEAD AHEAD23>
 301                     <FRAME '\1aXJUMP>
 302                     <PUSH END20>
 303                     <CALL '\1aXJUMP 1 = STACK>
 304                     <CALL '\1aOCEMIT 3>
 305                     <FRAME '\1aOCEMIT>
 306                     <PUSH 'MOVE>
 307                     <PUSH AC24>
 308                     <CONS AC24 () = STACK>
 309                     <CALL '\1aOCEMIT 3>
 310                     <FRAME '\1aOCEMIT>
 311                     <PUSH 'JRST>
 312                     <FRAME '\1aXJUMP>
 313                     <PUSH LOOP19>
 314                     <DEAD LOOP19>
 315                     <CALL '\1aXJUMP 1 = STACK>
 316                     <CALL '\1aOCEMIT 2>
 317                     <FRAME '\1aLABEL>
 318                     <PUSH END20>
 319                     <DEAD END20>
 320                     <CALL '\1aLABEL 1>
 321                     <EQUAL? LST16 VAL18 + PHRASE138>
 322                     <DEAD LST16>
 323                     <TYPE? TEMP27 <TYPE-CODE FALSE> + PHRASE136>
 324                     <FRAME '\1aMUNGED-AC>
 325                     <PUSH TEMP27>
 326                     <DEAD TEMP27>
 327                     <PUSH 'T>
 328                     <CALL '\1aMUNGED-AC 2>
 329                     <JUMP + PHRASE138>
 330 PHRASE136
 331                     <FRAME '\1aMUNGED-AC>
 332                     <PUSH AC24>
 333                     <CALL '\1aMUNGED-AC 1>
 334 PHRASE138
 335                     <TYPE? AOS13 <TYPE-CODE FALSE> + PHRASE141>
 336                     <EQUAL? VAL18 'STACK - PHRASE143>
 337                     <DEAD VAL18>
 338                     <FRAME '\1aOCEMIT>
 339                     <PUSH AOS13>
 340                     <PUSH 'O1*>
 341                     <EQUAL? AOS13 'HRRZ - PHRASE146>
 342                     <DEAD AOS13>
 343                     <SET TEMP113 1 (TYPE FIX)>
 344                     <JUMP + PHRASE147>
 345 PHRASE146
 346                     <SET TEMP113 2 (TYPE FIX)>
 347 PHRASE147
 348                     <PUSH TEMP113>
 349                     <DEAD TEMP113>
 350                     <CONS AC24 () = STACK>
 351                     <DEAD AC24>
 352                     <CALL '\1aOCEMIT 4>
 353                     <FRAME '\1aOCEMIT>
 354                     <PUSH 'PUSH>
 355                     <PUSH 'TP*>
 356                     <SET AMT17 2 (TYPE FIX)>
 357                     <SFRAME 'TYPE-WORD>
 358                     <PUSH 'FIX>
 359                     <SCALL '\1aTYPE-WORD 1 = TEMP113 + TAG148 AMT17>
 360                     <LOOP (TEMP113 TYPE VALUE LENGTH) (AMT17 VALUE)>
 361 TAG150
 362                     <INTGO>
 363                     <EMPTY? TEMP113 + TAG148>
 364                     <NTH1 TEMP113 = STACK>
 365                     <REST1 TEMP113 = TEMP113>
 366                     <ADD AMT17 1 = AMT17 (TYPE FIX)>
 367                     <JUMP + TAG150>
 368 TAG148
 369                     <CALL '\1aOCEMIT AMT17>
 370                     <DEAD AMT17>
 371                     <FRAME '\1aOCEMIT>
 372                     <PUSH 'PUSH>
 373                     <PUSH 'TP*>
 374                     <PUSH 'O1*>
 375                     <CALL '\1aOCEMIT 3>
 376                     <GVAL 'WINNING-VICTIM = TEMP27>
 377                     <TYPE? TEMP27 <TYPE-CODE FALSE> + PHRASE177>
 378                     <GVAL 'STACK-DEPTH = AMT17>
 379                     <ADD AMT17 2 = AMT17 (TYPE FIX)>
 380                     <SETG 'STACK-DEPTH AMT17>
 381                     <RETURN AMT17>
 382                     <DEAD AMT17>
 383 PHRASE143
 384                     <TYPE? NOT-DEAD?14 <TYPE-CODE FALSE> + PHRASE155>
 385                     <DEAD NOT-DEAD?14>
 386                     <FRAME '\1aOCEMIT>
 387                     <PUSH AOS13>
 388                     <FRAME '\1aNEXT-AC>
 389                     <PUSH NAC25>
 390                     <CALL '\1aNEXT-AC 1 = STACK>
 391                     <EQUAL? AOS13 'HRRZ - PHRASE159>
 392                     <DEAD AOS13>
 393                     <SET AMT17 1 (TYPE FIX)>
 394                     <JUMP + PHRASE160>
 395 PHRASE159
 396                     <SET AMT17 2 (TYPE FIX)>
 397 PHRASE160
 398                     <PUSH AMT17>
 399                     <DEAD AMT17>
 400                     <CONS AC24 () = STACK>
 401                     <DEAD AC24>
 402                     <CALL '\1aOCEMIT 4>
 403                     <FRAME '\1aGET-AC>
 404                     <PUSH NAC25>
 405                     <DEAD NAC25>
 406                     <CALL '\1aGET-AC 1 = AMT17>
 407                     <PUTUV AMT17 6 'FIX>
 408                     <RETURN AMT17>
 409                     <DEAD AMT17>
 410 PHRASE155
 411                     <TYPE? AOS13 <TYPE-CODE FORM> - PHRASE162>
 412                     <NTHL AOS13 1 = AMT17 (TYPE ATOM)>
 413                     <NTHR AMT17 3 = AMT17 (RECORD-TYPE ATOM)>
 414                     <IFCAN "STRING-EQUAL?">
 415                     <STRING-EQUAL? AMT17 "VEQUAL?" - PHRASE164>
 416                     <ENDIF "STRING-EQUAL?">
 417                     <IFCANNOT "STRING-EQUAL?">
 418                     <SET TEMP113 "VEQUAL?" (TYPE STRING)>
 419                     <LENUS AMT17 = LST16 (TYPE FIX)>
 420                     <VEQUAL? LST16 7 - PHRASE164>
 421                     <LOOP (AMT17 VALUE LENGTH) (TEMP113 VALUE LENGTH) (LST16 VALUE)>
 422 TAG168
 423                     <NTHUS AMT17 1 = TEMP27>
 424                     <NTHUS TEMP113 1 = VAL18>
 425                     <VEQUAL? TEMP27 VAL18 - PHRASE164>
 426                     <DEAD TEMP27 VAL18>
 427                     <RESTUS AMT17 1 = AMT17 (TYPE STRING)>
 428                     <RESTUS TEMP113 1 = TEMP113 (TYPE STRING)>
 429                     <SUB LST16 1 = LST16 (TYPE FIX)>
 430                     <GRTR? LST16 0 + TAG168 (TYPE FIX)>
 431                     <ENDIF "STRING-EQUAL?">
 432                     <FRAME '\1aVEQUAL?!-MIMOC>
 433                     <RESTL AOS13 1 = TEMP113 (TYPE LIST)>
 434                     <DEAD AOS13>
 435                     <CHTYPE TEMP113 <TYPE-CODE LIST> = STACK>
 436                     <DEAD TEMP113>
 437                     <PUSH AC24>
 438                     <DEAD AC24>
 439                     <PUSH %<>>
 440                     <PUSH 2>
 441                     <CALL '\1aVEQUAL?!-MIMOC 4 = TEMP27>
 442                     <RETURN TEMP27>
 443                     <DEAD TEMP27>
 444 PHRASE164
 445                     <NTHL AOS13 1 = AMT17 (TYPE ATOM)>
 446                     <NTHR AMT17 3 = AMT17 (RECORD-TYPE ATOM)>
 447                     <IFCAN "STRING-EQUAL?">
 448                     <STRING-EQUAL? AMT17 "TYPE?" - PHRASE170>
 449                     <ENDIF "STRING-EQUAL?">
 450                     <IFCANNOT "STRING-EQUAL?">
 451                     <SET VAL18 "TYPE?" (TYPE STRING)>
 452                     <LENUS AMT17 = TEMP27 (TYPE FIX)>
 453                     <VEQUAL? TEMP27 5 - PHRASE170>
 454                     <LOOP (AMT17 VALUE LENGTH) (VAL18 VALUE LENGTH) (TEMP27 VALUE)>
 455 TAG173
 456                     <NTHUS AMT17 1 = LST16>
 457                     <NTHUS VAL18 1 = AHEAD23>
 458                     <VEQUAL? LST16 AHEAD23 - PHRASE170>
 459                     <DEAD LST16>
 460                     <RESTUS AMT17 1 = AMT17 (TYPE STRING)>
 461                     <RESTUS VAL18 1 = VAL18 (TYPE STRING)>
 462                     <SUB TEMP27 1 = TEMP27 (TYPE FIX)>
 463                     <GRTR? TEMP27 0 + TAG173 (TYPE FIX)>
 464                     <ENDIF "STRING-EQUAL?">
 465                     <FRAME '\1aVEQUAL?!-MIMOC>
 466                     <RESTL AOS13 1 = AMT17 (TYPE LIST)>
 467                     <RESTL AMT17 1 = AMT17 (TYPE LIST)>
 468                     <RESTL AMT17 1 = VAL18 (TYPE LIST)>
 469                     <DEAD AMT17>
 470                     <CHTYPE VAL18 <TYPE-CODE LIST> = STACK>
 471                     <DEAD VAL18>
 472                     <PUSH AC24>
 473                     <DEAD AC24>
 474                     <PUSH %<>>
 475                     <PUSH 2>
 476                     <RESTL AOS13 1 = AMT17 (TYPE LIST)>
 477                     <DEAD AOS13>
 478                     <NTHL AMT17 1 = STACK>
 479                     <DEAD AMT17>
 480                     <CALL '\1aVEQUAL?!-MIMOC 5 = TEMP27>
 481                     <RETURN TEMP27>
 482                     <DEAD TEMP27>
 483 PHRASE170
 484                     <FRAME '\1aEQUAL?!-MIMOC>
 485                     <RESTL AOS13 1 = AMT17 (TYPE LIST)>
 486                     <DEAD AOS13>
 487                     <CHTYPE AMT17 <TYPE-CODE LIST> = STACK>
 488                     <DEAD AMT17>
 489                     <PUSH AC24>
 490                     <DEAD AC24>
 491                     <PUSH %<>>
 492                     <PUSH 1>
 493                     <CALL '\1aEQUAL?!-MIMOC 4 = TEMP27>
 494                     <RETURN TEMP27>
 495                     <DEAD TEMP27>
 496 PHRASE162
 497                     <FRAME '\1aOCEMIT>
 498                     <PUSH AOS13>
 499                     <EQUAL? AOS13 'HRRZ - PHRASE180>
 500                     <DEAD AOS13>
 501                     <SET AHEAD23 1 (TYPE FIX)>
 502                     <JUMP + PHRASE181>
 503 PHRASE180
 504                     <SET AHEAD23 2 (TYPE FIX)>
 505 PHRASE181
 506                     <PUSH AHEAD23>
 507                     <DEAD AHEAD23>
 508                     <CONS AC24 () = STACK>
 509                     <DEAD AC24>
 510                     <CALL '\1aOCEMIT 3 = TEMP27>
 511 PHRASE177
 512                     <RETURN TEMP27>
 513                     <DEAD TEMP27>
 514 PHRASE141
 515                     <EQUAL? VAL18 'STACK - PHRASE182>
 516                     <DEAD VAL18>
 517                     <FRAME '\1aOCEMIT>
 518                     <PUSH 'PUSH>
 519                     <PUSH 'TP*>
 520                     <PUSH 1>
 521                     <CONS AC24 () = STACK>
 522                     <CALL '\1aOCEMIT 4>
 523                     <FRAME '\1aOCEMIT>
 524                     <PUSH 'PUSH>
 525                     <PUSH 'TP*>
 526                     <PUSH 2>
 527                     <CONS AC24 () = STACK>
 528                     <DEAD AC24>
 529                     <CALL '\1aOCEMIT 4>
 530                     <GVAL 'WINNING-VICTIM = TEMP27>
 531                     <TYPE? TEMP27 <TYPE-CODE FALSE> + PHRASE187>
 532                     <GVAL 'STACK-DEPTH = AHEAD23>
 533                     <ADD AHEAD23 2 = AHEAD23 (TYPE FIX)>
 534                     <SETG 'STACK-DEPTH AHEAD23>
 535                     <RETURN AHEAD23>
 536                     <DEAD AHEAD23>
 537 PHRASE182
 538                     <FRAME '\1aOCEMIT>
 539                     <PUSH 'DMOVE>
 540                     <PUSH NAC25>
 541                     <DEAD NAC25>
 542                     <PUSH 1>
 543                     <CONS AC24 () = STACK>
 544                     <DEAD AC24>
 545                     <CALL '\1aOCEMIT 4 = TEMP27>
 546 PHRASE187
 547                     <RETURN TEMP27>
 548                     <DEAD TEMP27>
 549                     <END \1aNTHL!-MIMOC>\r\r
 550 #WORD *36141337340*
 551 <GFCN \1aRESTL!-MIMOC ("VALUE" <OR FALSE FIX AC> LIST) L5>
 552                     <TEMP LST6 TEMP16 AMT7 VAL8 (TAC11 %<>) END12:ATOM LOOP13:ATOM LV14 AC9 NAC10 TEMP149>
 553                     <INTGO>
 554                     <NTHL L5 1 = LST6>
 555                     <RESTL L5 1 = TEMP16 (TYPE LIST)>
 556                     <NTHL TEMP16 1 = AMT7>
 557                     <DEAD TEMP16>
 558                     <RESTL L5 1 = TEMP16 (TYPE LIST)>
 559                     <DEAD L5>
 560                     <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
 561                     <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
 562                     <NTHL TEMP16 1 = VAL8>
 563                     <DEAD TEMP16>
 564                     <FRAME '\1aGENLBL>
 565                     <PUSH "END">
 566                     <CALL '\1aGENLBL 1 = END12>
 567                     <FRAME '\1aGENLBL>
 568                     <PUSH "LOOP">
 569                     <CALL '\1aGENLBL 1 = LOOP13>
 570                     <FRAME '\1aLMEMQ>
 571                     <PUSH VAL8>
 572                     <GVAL 'LOCALS = STACK>
 573                     <CALL '\1aLMEMQ 2 = TEMP16>
 574                     <TYPE? TEMP16 <TYPE-CODE FALSE> - BOOL21>
 575                     <GVAL 'ICALL-FLAG = TEMP16>
 576                     <TYPE? TEMP16 <TYPE-CODE FALSE> + BOOL21>
 577                     <FRAME '\1aLMEMQ>
 578                     <PUSH VAL8>
 579                     <GVAL 'ICALL-TEMPS = STACK>
 580                     <CALL '\1aLMEMQ 2 = TEMP16>
 581 BOOL21
 582                     <SET LV14 TEMP16>
 583                     <DEAD TEMP16>
 584                     <SET TEMP16 LV14>
 585                     <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE24>
 586                     <NTHUV LV14 4 = TEMP16>
 587                     <DEAD LV14>
 588 PHRASE24
 589                     <SET LV14 TEMP16>
 590                     <DEAD TEMP16>
 591                     <EQUAL? AMT7 1 + BOOL27>
 592                     <EQUAL? AMT7 2 - PHRASE26>
 593 BOOL27
 594                     <FRAME '\1aIN-AC?>
 595                     <PUSH LST6>
 596                     <PUSH 'BOTH>
 597                     <CALL '\1aIN-AC? 2 = TAC11>
 598                     <TYPE? TAC11 <TYPE-CODE FALSE> + BOOL29>
 599                     <FRAME '\1aNEXT-AC>
 600                     <PUSH TAC11>
 601                     <CALL '\1aNEXT-AC 1 = AC9>
 602                     <TYPE? AC9 <TYPE-CODE FALSE> - PHRASE33>
 603 BOOL29
 604                     <FRAME '\1aIN-AC?>
 605                     <PUSH LST6>
 606                     <PUSH 'VALUE>
 607                     <CALL '\1aIN-AC? 2 = AC9>
 608                     <JUMP + PHRASE33>
 609 PHRASE26
 610                     <FRAME '\1aIN-AC?>
 611                     <PUSH LST6>
 612                     <PUSH 'BOTH>
 613                     <CALL '\1aIN-AC? 2 = AC9>
 614                     <TYPE? AC9 <TYPE-CODE FALSE> + BOOL35>
 615                     <SET TAC11 AC9>
 616                     <FRAME '\1aNEXT-AC>
 617                     <PUSH AC9>
 618                     <DEAD AC9>
 619                     <CALL '\1aNEXT-AC 1 = AC9>
 620                     <TYPE? AC9 <TYPE-CODE FALSE> - PHRASE33>
 621 BOOL35
 622                     <FRAME '\1aIN-AC?>
 623                     <PUSH LST6>
 624                     <PUSH 'VALUE>
 625                     <CALL '\1aIN-AC? 2 = AC9>
 626                     <TYPE? AC9 <TYPE-CODE FALSE> - PHRASE33>
 627                     <FRAME '\1aNEXT-AC>
 628                     <FRAME '\1aLOAD-AC>
 629                     <PUSH LST6>
 630                     <PUSH 'BOTH>
 631                     <CALL '\1aLOAD-AC 2 = TAC11>
 632                     <PUSH TAC11>
 633                     <CALL '\1aNEXT-AC 1 = AC9>
 634 PHRASE33
 635                     <EQUAL? AMT7 VAL8 - PHRASE42>
 636                     <FRAME '\1aIN-AC?>
 637                     <PUSH AMT7>
 638                     <PUSH 'BOTH>
 639                     <CALL '\1aIN-AC? 2 = NAC10>
 640                     <FRAME '\1aFLUSH-AC>
 641                     <PUSH NAC10>
 642                     <DEAD NAC10>
 643                     <PUSH 'T>
 644                     <CALL '\1aFLUSH-AC 2>
 645 PHRASE42
 646                     <EQUAL? VAL8 LST6 + PHRASE47>
 647                     <FRAME '\1aCLEAN-ACS>
 648                     <PUSH VAL8>
 649                     <CALL '\1aCLEAN-ACS 1>
 650 PHRASE47
 651                     <TYPE? TAC11 <TYPE-CODE FALSE> + PHRASE50>
 652                     <EQUAL? LST6 VAL8 + BOOL52>
 653                     <FRAME '\1aWILL-DIE?>
 654                     <PUSH LST6>
 655                     <CALL '\1aWILL-DIE? 1 = TEMP16>
 656                     <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE50>
 657                     <DEAD TEMP16>
 658 BOOL52
 659                     <SET NAC10 TAC11>
 660                     <JUMP + PHRASE62>
 661 PHRASE50
 662                     <TYPE? AC9 <TYPE-CODE FALSE> + PHRASE54>
 663                     <EQUAL? LST6 VAL8 + BOOL56>
 664                     <FRAME '\1aWILL-DIE?>
 665                     <PUSH LST6>
 666                     <CALL '\1aWILL-DIE? 1 = TEMP16>
 667                     <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE54>
 668                     <DEAD TEMP16>
 669 BOOL56
 670                     <FRAME '\1aGET-AC>
 671                     <FRAME '\1aGETPROP>
 672                     <PUSH AC9>
 673                     <PUSH 'AC-PAIR>
 674                     <CALL '\1aGETPROP 2 = TEMP16>
 675                     <PUSH TEMP16>
 676                     <DEAD TEMP16>
 677                     <CALL '\1aGET-AC 1 = TAC11>
 678                     <TYPE? TAC11 <TYPE-CODE FALSE> + PHRASE54>
 679                     <FRAME '\1aNEXT-AC>
 680                     <NTHUV TAC11 1 = STACK (TYPE ATOM)>
 681                     <CALL '\1aNEXT-AC 1 = TEMP16>
 682                     <EQUAL? TEMP16 AC9 - PHRASE54>
 683                     <DEAD TEMP16>
 684                     <NTHUV TAC11 1 = NAC10 (TYPE ATOM)>
 685                     <PUTUV TAC11 3 'TYPE (TYPE ATOM)>
 686                     <PUTUV TAC11 2 LST6>
 687                     <DEAD TAC11>
 688                     <SET TAC11 %<> (TYPE FALSE)>
 689                     <FRAME '\1aFLUSH-AC>
 690                     <PUSH NAC10>
 691                     <CALL '\1aFLUSH-AC 1>
 692                     <JUMP + PHRASE62>
 693 PHRASE54
 694                     <FRAME '\1aASSIGN-AC>
 695                     <PUSH VAL8>
 696                     <PUSH 'BOTH>
 697                     <PUSH 'T>
 698                     <CALL '\1aASSIGN-AC 3 = NAC10>
 699 PHRASE62
 700                     <EQUAL? AMT7 1 - PHRASE65>
 701                     <TYPE? AC9 <TYPE-CODE FALSE> + PHRASE67>
 702                     <FRAME '\1aOCEMIT>
 703                     <PUSH 'MOVE>
 704                     <FRAME '\1aNEXT-AC>
 705                     <PUSH NAC10>
 706                     <CALL '\1aNEXT-AC 1 = STACK>
 707                     <CONS AC9 () = STACK>
 708                     <CALL '\1aOCEMIT 3>
 709                     <JUMP + PHRASE138>
 710 PHRASE67
 711                     <FRAME '\1aOCEMIT>
 712                     <PUSH 'MOVE>
 713                     <FRAME '\1aNEXT-AC>
 714                     <PUSH NAC10>
 715                     <CALL '\1aNEXT-AC 1 = STACK>
 716                     <PUSH '@>
 717                     <SET AMT7 3 (TYPE FIX)>
 718                     <SFRAME 'OBJ-VAL>
 719                     <PUSH LST6>
 720                     <SCALL '\1aOBJ-VAL 1 = TEMP16 + TAG71 AMT7>
 721                     <LOOP (TEMP16 TYPE VALUE LENGTH) (AMT7 VALUE)>
 722 TAG75
 723                     <INTGO>
 724                     <EMPTY? TEMP16 + TAG71>
 725                     <NTH1 TEMP16 = STACK>
 726                     <REST1 TEMP16 = TEMP16>
 727                     <ADD AMT7 1 = AMT7 (TYPE FIX)>
 728                     <JUMP + TAG75>
 729 TAG71
 730                     <CALL '\1aOCEMIT AMT7>
 731                     <DEAD AMT7>
 732                     <JUMP + PHRASE138>
 733 PHRASE65
 734                     <EQUAL? AMT7 2 - PHRASE77>
 735                     <TYPE? AC9 <TYPE-CODE FALSE> + PHRASE79>
 736                     <FRAME '\1aOCEMIT>
 737                     <PUSH 'MOVE>
 738                     <FRAME '\1aNEXT-AC>
 739                     <PUSH NAC10>
 740                     <CALL '\1aNEXT-AC 1 = STACK>
 741                     <PUSH '@>
 742                     <CONS AC9 () = STACK>
 743                     <CALL '\1aOCEMIT 4>
 744                     <JUMP + PHRASE138>
 745 PHRASE79
 746                     <FRAME '\1aOCEMIT>
 747                     <PUSH 'MOVE>
 748                     <FRAME '\1aNEXT-AC>
 749                     <PUSH NAC10>
 750                     <CALL '\1aNEXT-AC 1 = STACK>
 751                     <PUSH '@>
 752                     <SET TEMP16 3 (TYPE FIX)>
 753                     <SFRAME 'OBJ-VAL>
 754                     <PUSH LST6>
 755                     <SCALL '\1aOBJ-VAL 1 = AMT7 + TAG83 TEMP16>
 756                     <LOOP (AMT7 TYPE VALUE LENGTH) (TEMP16 VALUE)>
 757 TAG86
 758                     <INTGO>
 759                     <EMPTY? AMT7 + TAG83>
 760                     <NTH1 AMT7 = STACK>
 761                     <REST1 AMT7 = AMT7>
 762                     <ADD TEMP16 1 = TEMP16 (TYPE FIX)>
 763                     <JUMP + TAG86>
 764 TAG83
 765                     <CALL '\1aOCEMIT TEMP16>
 766                     <DEAD TEMP16>
 767                     <FRAME '\1aOCEMIT>
 768                     <PUSH 'MOVE>
 769                     <FRAME '\1aNEXT-AC>
 770                     <PUSH NAC10>
 771                     <CALL '\1aNEXT-AC 1 = STACK>
 772                     <FRAME '\1aNEXT-AC>
 773                     <PUSH NAC10>
 774                     <CALL '\1aNEXT-AC 1 = TEMP16>
 775                     <CONS TEMP16 () = STACK>
 776                     <DEAD TEMP16>
 777                     <CALL '\1aOCEMIT 3>
 778                     <JUMP + PHRASE138>
 779 PHRASE77
 780                     <EQUAL? AMT7 3 - PHRASE91>
 781                     <TYPE? AC9 <TYPE-CODE FALSE> + PHRASE93>
 782                     <FRAME '\1aOCEMIT>
 783                     <PUSH 'MOVE>
 784                     <FRAME '\1aNEXT-AC>
 785                     <PUSH NAC10>
 786                     <CALL '\1aNEXT-AC 1 = STACK>
 787                     <PUSH '@>
 788                     <CONS AC9 () = STACK>
 789                     <CALL '\1aOCEMIT 4>
 790                     <FRAME '\1aOCEMIT>
 791                     <PUSH 'MOVE>
 792                     <FRAME '\1aNEXT-AC>
 793                     <PUSH NAC10>
 794                     <CALL '\1aNEXT-AC 1 = STACK>
 795                     <FRAME '\1aNEXT-AC>
 796                     <PUSH NAC10>
 797                     <CALL '\1aNEXT-AC 1 = TEMP16>
 798                     <CONS TEMP16 () = STACK>
 799                     <DEAD TEMP16>
 800                     <CALL '\1aOCEMIT 3>
 801                     <JUMP + PHRASE138>
 802 PHRASE93
 803                     <FRAME '\1aOCEMIT>
 804                     <PUSH 'MOVE>
 805                     <FRAME '\1aNEXT-AC>
 806                     <PUSH NAC10>
 807                     <CALL '\1aNEXT-AC 1 = STACK>
 808                     <PUSH '@>
 809                     <SET AMT7 3 (TYPE FIX)>
 810                     <SFRAME 'OBJ-VAL>
 811                     <PUSH LST6>
 812                     <SCALL '\1aOBJ-VAL 1 = TEMP16 + TAG100 AMT7>
 813                     <LOOP (TEMP16 TYPE VALUE LENGTH) (AMT7 VALUE)>
 814 TAG103
 815                     <INTGO>
 816                     <EMPTY? TEMP16 + TAG100>
 817                     <NTH1 TEMP16 = STACK>
 818                     <REST1 TEMP16 = TEMP16>
 819                     <ADD AMT7 1 = AMT7 (TYPE FIX)>
 820                     <JUMP + TAG103>
 821 TAG100
 822                     <CALL '\1aOCEMIT AMT7>
 823                     <DEAD AMT7>
 824                     <FRAME '\1aOCEMIT>
 825                     <PUSH 'MOVE>
 826                     <FRAME '\1aNEXT-AC>
 827                     <PUSH NAC10>
 828                     <CALL '\1aNEXT-AC 1 = STACK>
 829                     <PUSH '@>
 830                     <FRAME '\1aNEXT-AC>
 831                     <PUSH NAC10>
 832                     <CALL '\1aNEXT-AC 1 = AMT7>
 833                     <CONS AMT7 () = STACK>
 834                     <DEAD AMT7>
 835                     <CALL '\1aOCEMIT 4>
 836                     <JUMP + PHRASE138>
 837 PHRASE91
 838                     <EQUAL? AMT7 4 - PHRASE108>
 839                     <TYPE? AC9 <TYPE-CODE FALSE> + PHRASE110>
 840                     <FRAME '\1aOCEMIT>
 841                     <PUSH 'MOVE>
 842                     <FRAME '\1aNEXT-AC>
 843                     <PUSH NAC10>
 844                     <CALL '\1aNEXT-AC 1 = STACK>
 845                     <PUSH '@>
 846                     <CONS AC9 () = STACK>
 847                     <CALL '\1aOCEMIT 4>
 848                     <FRAME '\1aOCEMIT>
 849                     <PUSH 'MOVE>
 850                     <FRAME '\1aNEXT-AC>
 851                     <PUSH NAC10>
 852                     <CALL '\1aNEXT-AC 1 = STACK>
 853                     <PUSH '@>
 854                     <FRAME '\1aNEXT-AC>
 855                     <PUSH NAC10>
 856                     <CALL '\1aNEXT-AC 1 = AMT7>
 857                     <CONS AMT7 () = STACK>
 858                     <DEAD AMT7>
 859                     <CALL '\1aOCEMIT 4>
 860                     <JUMP + PHRASE138>
 861 PHRASE110
 862                     <FRAME '\1aOCEMIT>
 863                     <PUSH 'MOVE>
 864                     <FRAME '\1aNEXT-AC>
 865                     <PUSH NAC10>
 866                     <CALL '\1aNEXT-AC 1 = STACK>
 867                     <PUSH '@>
 868                     <SET TEMP16 3 (TYPE FIX)>
 869                     <SFRAME 'OBJ-VAL>
 870                     <PUSH LST6>
 871                     <SCALL '\1aOBJ-VAL 1 = AMT7 + TAG117 TEMP16>
 872                     <LOOP (AMT7 TYPE VALUE LENGTH) (TEMP16 VALUE)>
 873 TAG120
 874                     <INTGO>
 875                     <EMPTY? AMT7 + TAG117>
 876                     <NTH1 AMT7 = STACK>
 877                     <REST1 AMT7 = AMT7>
 878                     <ADD TEMP16 1 = TEMP16 (TYPE FIX)>
 879                     <JUMP + TAG120>
 880 TAG117
 881                     <CALL '\1aOCEMIT TEMP16>
 882                     <DEAD TEMP16>
 883                     <FRAME '\1aOCEMIT>
 884                     <PUSH 'MOVE>
 885                     <FRAME '\1aNEXT-AC>
 886                     <PUSH NAC10>
 887                     <CALL '\1aNEXT-AC 1 = STACK>
 888                     <PUSH '@>
 889                     <FRAME '\1aNEXT-AC>
 890                     <PUSH NAC10>
 891                     <CALL '\1aNEXT-AC 1 = TEMP16>
 892                     <CONS TEMP16 () = STACK>
 893                     <DEAD TEMP16>
 894                     <CALL '\1aOCEMIT 4>
 895                     <FRAME '\1aOCEMIT>
 896                     <PUSH 'MOVE>
 897                     <FRAME '\1aNEXT-AC>
 898                     <PUSH NAC10>
 899                     <CALL '\1aNEXT-AC 1 = STACK>
 900                     <FRAME '\1aNEXT-AC>
 901                     <PUSH NAC10>
 902                     <CALL '\1aNEXT-AC 1 = TEMP16>
 903                     <CONS TEMP16 () = STACK>
 904                     <DEAD TEMP16>
 905                     <CALL '\1aOCEMIT 3>
 906                     <JUMP + PHRASE138>
 907 PHRASE108
 908                     <FRAME '\1aNEXT-AC>
 909                     <PUSH NAC10>
 910                     <CALL '\1aNEXT-AC 1 = TEMP16>
 911                     <EQUAL? AC9 TEMP16 + PHRASE130>
 912                     <DEAD TEMP16>
 913                     <FRAME '\1aOCEMIT>
 914                     <PUSH 'MOVE>
 915                     <FRAME '\1aNEXT-AC>
 916                     <PUSH NAC10>
 917                     <CALL '\1aNEXT-AC 1 = STACK>
 918                     <PUSH AC9>
 919                     <CALL '\1aOCEMIT 3>
 920 PHRASE130
 921                     <FRAME '\1aSMASH-AC>
 922                     <PUSH 'O*>
 923                     <PUSH AMT7>
 924                     <PUSH 'VALUE>
 925                     <EQUAL? AMT7 VAL8 + TAG135>
 926                     <PUSH 'T>
 927                     <JUMP + TAG136>
 928 TAG135
 929                     <PUSH %<>>
 930 TAG136
 931                     <CALL '\1aSMASH-AC 4>
 932                     <EQUAL? AMT7 0 + PHRASE138>
 933                     <TYPE? AMT7 <TYPE-CODE ATOM> - PHRASE140>
 934                     <DEAD AMT7>
 935                     <FRAME '\1aOCEMIT>
 936                     <PUSH 'JUMPE>
 937                     <PUSH 'O*>
 938                     <FRAME '\1aXJUMP>
 939                     <PUSH END12>
 940                     <CALL '\1aXJUMP 1 = STACK>
 941                     <CALL '\1aOCEMIT 3>
 942 PHRASE140
 943                     <PUSH LOOP13>
 944                     <SET AMT7 1 (TYPE FIX)>
 945                     <GVAL 'LOOPTAGS = TEMP16>
 946                     <TYPE TEMP16 = TEMP149>
 947                     <AND TEMP149 7 = TEMP149>
 948                     <VEQUAL? TEMP149 1 + TAG145>
 949                     <DEAD TEMP149>
 950                     <LOOP (TEMP16 TYPE VALUE LENGTH) (AMT7 VALUE)>
 951 TAG151
 952                     <INTGO>
 953                     <EMPTY? TEMP16 + TAG150>
 954                     <NTH1 TEMP16 = STACK>
 955                     <REST1 TEMP16 = TEMP16>
 956                     <ADD AMT7 1 = AMT7 (TYPE FIX)>
 957                     <JUMP + TAG151>
 958 TAG150
 959                     <LIST AMT7 = TEMP16 (TYPE LIST)>
 960                     <DEAD AMT7>
 961                     <JUMP + TAG146>
 962 TAG145
 963                     <LOOP>
 964 TAG148
 965                     <VEQUAL? AMT7 0 + TAG147>
 966                     <POP = TEMP149>
 967                     <CONS TEMP149 TEMP16 = TEMP16 (TYPE LIST)>
 968                     <DEAD TEMP149>
 969                     <SUB AMT7 1 = AMT7 (TYPE FIX)>
 970                     <JUMP + TAG148>
 971 TAG147
 972 TAG146
 973                     <SETG 'LOOPTAGS TEMP16>
 974                     <DEAD TEMP16>
 975                     <FRAME '\1aLABEL>
 976                     <PUSH LOOP13>
 977                     <CALL '\1aLABEL 1>
 978                     <FRAME '\1aOCEMIT>
 979                     <PUSH 'MOVE>
 980                     <FRAME '\1aNEXT-AC>
 981                     <PUSH NAC10>
 982                     <CALL '\1aNEXT-AC 1 = STACK>
 983                     <FRAME '\1aNEXT-AC>
 984                     <PUSH NAC10>
 985                     <CALL '\1aNEXT-AC 1 = TEMP16>
 986                     <CONS TEMP16 () = STACK>
 987                     <DEAD TEMP16>
 988                     <CALL '\1aOCEMIT 3>
 989                     <FRAME '\1aOCEMIT>
 990                     <PUSH 'SOJN>
 991                     <PUSH 'O*>
 992                     <FRAME '\1aXJUMP>
 993                     <PUSH LOOP13>
 994                     <DEAD LOOP13>
 995                     <CALL '\1aXJUMP 1 = STACK>
 996                     <CALL '\1aOCEMIT 3>
 997                     <FRAME '\1aLABEL>
 998                     <PUSH END12>
 999                     <DEAD END12>
1000                     <CALL '\1aLABEL 1>
1001                     <FRAME '\1aPUT>
1002                     <FRAME '\1aGET-AC>
1003                     <PUSH 'O*>
1004                     <CALL '\1aGET-AC 1 = STACK>
1005                     <PUSH %<OFFSET 2 AC>>
1006                     <PUSH 0>
1007                     <CALL '\1aPUT 3>
1008 PHRASE138
1009                     <FRAME '\1aNEXT-AC>
1010                     <PUSH NAC10>
1011                     <CALL '\1aNEXT-AC 1 = TEMP16>
1012                     <EQUAL? AC9 TEMP16 - PHRASE162>
1013                     <DEAD AC9 TEMP16>
1014                     <EQUAL? VAL8 LST6 + PHRASE162>
1015                     <DEAD LST6>
1016                     <EQUAL? VAL8 'STACK + PHRASE162>
1017                     <FRAME '\1aGET-AC>
1018                     <PUSH NAC10>
1019                     <CALL '\1aGET-AC 1 = TEMP16>
1020                     <PUTUV TEMP16 2 VAL8>
1021                     <PUTUV TEMP16 3 'TYPE (TYPE ATOM)>
1022                     <DEAD TEMP16>
1023                     <FRAME '\1aGET-AC>
1024                     <FRAME '\1aNEXT-AC>
1025                     <PUSH NAC10>
1026                     <CALL '\1aNEXT-AC 1 = STACK>
1027                     <CALL '\1aGET-AC 1 = TEMP16>
1028                     <PUTUV TEMP16 2 VAL8>
1029                     <PUTUV TEMP16 3 'VALUE (TYPE ATOM)>
1030                     <DEAD TEMP16>
1031 PHRASE162
1032                     <TYPE? LV14 <TYPE-CODE FALSE> + PHRASE169>
1033                     <FRAME '\1aGET-AC>
1034                     <PUSH NAC10>
1035                     <CALL '\1aGET-AC 1 = TEMP16>
1036                     <PUTUV TEMP16 5 %<>>
1037                     <DEAD TEMP16>
1038                     <JUMP + PHRASE171>
1039 PHRASE169
1040                     <FRAME '\1aGET-AC>
1041                     <PUSH NAC10>
1042                     <CALL '\1aGET-AC 1 = TEMP16>
1043                     <PUTUV TEMP16 5 'T>
1044                     <DEAD TEMP16>
1045 PHRASE171
1046                     <FRAME '\1aGET-AC>
1047                     <FRAME '\1aNEXT-AC>
1048                     <PUSH NAC10>
1049                     <CALL '\1aNEXT-AC 1 = STACK>
1050                     <CALL '\1aGET-AC 1 = TEMP16>
1051                     <PUTUV TEMP16 5 'T>
1052                     <DEAD TEMP16>
1053                     <EQUAL? VAL8 'STACK - PHRASE176>
1054                     <DEAD VAL8>
1055                     <FRAME '\1aOCEMIT>
1056                     <PUSH 'PUSH>
1057                     <PUSH 'TP*>
1058                     <SET TEMP149 2 (TYPE FIX)>
1059                     <SFRAME 'TYPE-WORD>
1060                     <PUSH 'LIST>
1061                     <SCALL '\1aTYPE-WORD 1 = TEMP16 + TAG177 TEMP149>
1062                     <LOOP (TEMP16 TYPE VALUE LENGTH) (TEMP149 VALUE)>
1063 TAG179
1064                     <INTGO>
1065                     <EMPTY? TEMP16 + TAG177>
1066                     <NTH1 TEMP16 = STACK>
1067                     <REST1 TEMP16 = TEMP16>
1068                     <ADD TEMP149 1 = TEMP149 (TYPE FIX)>
1069                     <JUMP + TAG179>
1070 TAG177
1071                     <CALL '\1aOCEMIT TEMP149>
1072                     <DEAD TEMP149>
1073                     <FRAME '\1aOCEMIT>
1074                     <PUSH 'PUSH>
1075                     <PUSH 'TP*>
1076                     <FRAME '\1aNEXT-AC>
1077                     <PUSH NAC10>
1078                     <DEAD NAC10>
1079                     <CALL '\1aNEXT-AC 1 = STACK>
1080                     <CALL '\1aOCEMIT 3>
1081                     <GVAL 'WINNING-VICTIM = TEMP149>
1082                     <TYPE? TEMP149 <TYPE-CODE FALSE> + PHRASE192>
1083                     <GVAL 'STACK-DEPTH = TEMP16>
1084                     <ADD TEMP16 2 = TEMP16 (TYPE FIX)>
1085                     <SETG 'STACK-DEPTH TEMP16>
1086                     <RETURN TEMP16>
1087                     <DEAD TEMP16>
1088 PHRASE176
1089                     <EQUAL? NAC10 TAC11 + PHRASE187>
1090                     <DEAD TAC11>
1091                     <FRAME '\1aGET-AC>
1092                     <PUSH NAC10>
1093                     <CALL '\1aGET-AC 1 = TEMP16>
1094                     <PUTUV TEMP16 6 'LIST>
1095                     <DEAD TEMP16>
1096 PHRASE187
1097                     <TYPE? LV14 <TYPE-CODE FALSE> + PHRASE190>
1098                     <DEAD LV14>
1099                     <FRAME '\1aGET-AC>
1100                     <PUSH NAC10>
1101                     <DEAD NAC10>
1102                     <CALL '\1aGET-AC 1 = TEMP16>
1103                     <PUTUV TEMP16 5 %<>>
1104                     <RETURN TEMP16>
1105                     <DEAD TEMP16>
1106 PHRASE190
1107                     <FRAME '\1aGET-AC>
1108                     <PUSH NAC10>
1109                     <DEAD NAC10>
1110                     <CALL '\1aGET-AC 1 = TEMP16>
1111                     <PUTUV TEMP16 5 'T>
1112                     <SET TEMP149 TEMP16>
1113                     <DEAD TEMP16>
1114 PHRASE192
1115                     <RETURN TEMP149>
1116                     <DEAD TEMP149>
1117                     <END \1aRESTL!-MIMOC>
1118 #WORD *11605756202*
1119                     <GFCN \1aEMPL?!-MIMOC ("VALUE" ANY LIST) L4>
1120                     <TEMP LST5 TEMP17 FLAG6 TAG7:ATOM (JUMP8 'JUMPE) (SKIP9 'SKIPN) (AC-T12 %<>) (AC-T-2-15 %<>) AC10 NEW11>
1121                     <INTGO>
1122                     <NTHL L4 1 = LST5>
1123                     <RESTL L4 1 = TEMP17 (TYPE LIST)>
1124                     <NTHL TEMP17 1 = FLAG6 (TYPE ATOM)>
1125                     <DEAD TEMP17>
1126                     <RESTL L4 1 = TEMP17 (TYPE LIST)>
1127                     <RESTL TEMP17 1 = TEMP17 (TYPE LIST)>
1128                     <NTHL TEMP17 1 = TAG7 (TYPE ATOM)>
1129                     <DEAD TEMP17>
1130                     <FRAME '\1aLMEMQ>
1131                     <PUSH LST5>
1132                     <GVAL 'LOCALS = STACK>
1133                     <CALL '\1aLMEMQ 2 = TEMP17>
1134                     <TYPE? TEMP17 <TYPE-CODE FALSE> - BOOL20>
1135                     <GVAL 'ICALL-FLAG = TEMP17>
1136                     <TYPE? TEMP17 <TYPE-CODE FALSE> + BOOL20>
1137                     <FRAME '\1aLMEMQ>
1138                     <PUSH LST5>
1139                     <GVAL 'ICALL-TEMPS = STACK>
1140                     <CALL '\1aLMEMQ 2 = TEMP17>
1141 BOOL20
1142                     <TYPE? TEMP17 <TYPE-CODE FALSE> - PHRASE24>
1143                     <DEAD TEMP17>
1144                     <FRAME '\1aEXTRAMEM>
1145                     <PUSH 'TYPE>
1146                     <PUSH L4>
1147                     <DEAD L4>
1148                     <CALL '\1aEXTRAMEM 2>
1149 PHRASE24
1150                     <VEQUAL? FLAG6 '- - PHRASE27>
1151                     <DEAD FLAG6>
1152                     <SET JUMP8 'JUMPN (TYPE ATOM)>
1153                     <SET SKIP9 'SKIPE (TYPE ATOM)>
1154 PHRASE27
1155                     <FRAME '\1aIN-AC?>
1156                     <PUSH LST5>
1157                     <PUSH 'BOTH>
1158                     <CALL '\1aIN-AC? 2 = FLAG6>
1159                     <TYPE? FLAG6 <TYPE-CODE FALSE> + BOOL31>
1160                     <FRAME '\1aNEXT-AC>
1161                     <PUSH FLAG6>
1162                     <CALL '\1aNEXT-AC 1 = AC10>
1163                     <TYPE? AC10 <TYPE-CODE FALSE> + BOOL31>
1164                     <FRAME '\1aLABEL-UPDATE-ACS>
1165                     <PUSH TAG7>
1166                     <PUSH %<>>
1167                     <PUSH 'T>
1168                     <PUSH FLAG6>
1169                     <PUSH AC10>
1170                     <CALL '\1aLABEL-UPDATE-ACS 5 = NEW11>
1171                     <TYPE? NEW11 <TYPE-CODE FALSE> - BOOL30>
1172 BOOL31
1173                     <FRAME '\1aIN-AC?>
1174                     <PUSH LST5>
1175                     <PUSH 'VALUE>
1176                     <CALL '\1aIN-AC? 2 = AC10>
1177                     <TYPE? AC10 <TYPE-CODE FALSE> + PHRASE29>
1178                     <FRAME '\1aLABEL-UPDATE-ACS>
1179                     <PUSH TAG7>
1180                     <PUSH %<>>
1181                     <PUSH 'T>
1182                     <PUSH AC10>
1183                     <CALL '\1aLABEL-UPDATE-ACS 4 = NEW11>
1184                     <TYPE? NEW11 <TYPE-CODE FALSE> + PHRASE29>
1185 BOOL30
1186                     <TYPE? FLAG6 <TYPE-CODE FALSE> + PHRASE39>
1187                     <FRAME '\1aGET-AC>
1188                     <NTH1 NEW11 = FLAG6>
1189                     <PUSH FLAG6>
1190                     <CALL '\1aGET-AC 1 = TEMP17>
1191                     <NTHUV TEMP17 4 = AC-T-2-15 (TYPE FIX)>
1192                     <DEAD TEMP17>
1193                     <FRAME '\1aNTH>
1194                     <PUSH NEW11>
1195                     <PUSH 2>
1196                     <CALL '\1aNTH 2 = TEMP17>
1197                     <EQUAL? TEMP17 AC10 + PHRASE46>
1198                     <DEAD TEMP17>
1199                     <FRAME '\1aGET-AC>
1200                     <FRAME '\1aNTH>
1201                     <PUSH NEW11>
1202                     <DEAD NEW11>
1203                     <PUSH 2>
1204                     <CALL '\1aNTH 2 = AC10>
1205                     <PUSH AC10>
1206                     <CALL '\1aGET-AC 1 = TEMP17>
1207                     <NTHUV TEMP17 4 = AC-T12 (TYPE FIX)>
1208                     <DEAD TEMP17>
1209                     <JUMP + PHRASE46>
1210 PHRASE39
1211                     <NTH1 NEW11 = TEMP17>
1212                     <EQUAL? TEMP17 AC10 + PHRASE46>
1213                     <DEAD TEMP17>
1214                     <FRAME '\1aGET-AC>
1215                     <NTH1 NEW11 = AC10>
1216                     <DEAD NEW11>
1217                     <PUSH AC10>
1218                     <CALL '\1aGET-AC 1 = TEMP17>
1219                     <NTHUV TEMP17 4 = AC-T12 (TYPE FIX)>
1220                     <DEAD TEMP17>
1221 PHRASE46
1222                     <FRAME '\1aOCEMIT>
1223                     <PUSH JUMP8>
1224                     <DEAD JUMP8>
1225                     <PUSH AC10>
1226                     <FRAME '\1aXJUMP>
1227                     <PUSH TAG7>
1228                     <DEAD TAG7>
1229                     <CALL '\1aXJUMP 1 = STACK>
1230                     <CALL '\1aOCEMIT 3>
1231                     <TYPE? AC-T12 <TYPE-CODE FALSE> + PHRASE51>
1232                     <FRAME '\1aGET-AC>
1233                     <PUSH AC10>
1234                     <DEAD AC10>
1235                     <CALL '\1aGET-AC 1 = TEMP17>
1236                     <PUTUV TEMP17 4 AC-T12 (TYPE FIX)>
1237                     <DEAD TEMP17 AC-T12>
1238 PHRASE51
1239                     <SET TEMP17 AC-T-2-15>
1240                     <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE57>
1241                     <FRAME '\1aGET-AC>
1242                     <PUSH FLAG6>
1243                     <DEAD FLAG6>
1244                     <CALL '\1aGET-AC 1 = TEMP17>
1245                     <PUTUV TEMP17 4 AC-T-2-15 (TYPE FIX)>
1246                     <DEAD AC-T-2-15>
1247                     <RETURN TEMP17>
1248                     <DEAD TEMP17>
1249 PHRASE29
1250                     <FRAME '\1aLABEL-PREF>
1251                     <PUSH TAG7>
1252                     <PUSH LST5>
1253                     <PUSH 'BOTH>
1254                     <CALL '\1aLABEL-PREF 3 = FLAG6>
1255                     <TYPE? FLAG6 <TYPE-CODE FALSE> + BOOL61>
1256                     <FRAME '\1aNEXT-AC>
1257                     <NTHUV FLAG6 1 = FLAG6 (TYPE ATOM)>
1258                     <PUSH FLAG6>
1259                     <CALL '\1aNEXT-AC 1 = AC10>
1260                     <TYPE? AC10 <TYPE-CODE FALSE> - BOOL60>
1261 BOOL61
1262                     <FRAME '\1aLABEL-PREF>
1263                     <PUSH TAG7>
1264                     <PUSH LST5>
1265                     <PUSH 'VALUE>
1266                     <CALL '\1aLABEL-PREF 3 = FLAG6>
1267                     <TYPE? FLAG6 <TYPE-CODE FALSE> + PHRASE59>
1268                     <NTHUV FLAG6 1 = AC10 (TYPE ATOM)>
1269                     <FRAME '\1aGETPROP>
1270                     <PUSH FLAG6>
1271                     <DEAD FLAG6>
1272                     <PUSH 'AC-PAIR>
1273                     <CALL '\1aGETPROP 2 = FLAG6>
1274                     <TYPE? FLAG6 <TYPE-CODE FALSE> + PHRASE59>
1275 BOOL60
1276                     <FRAME '\1aLOAD-AC>
1277                     <PUSH LST5>
1278                     <PUSH 'BOTH>
1279                     <PUSH 'T>
1280                     <PUSH 'T>
1281                     <FRAME '\1aGET-AC>
1282                     <PUSH FLAG6>
1283                     <CALL '\1aGET-AC 1 = STACK>
1284                     <FRAME '\1aGET-AC>
1285                     <PUSH AC10>
1286                     <CALL '\1aGET-AC 1 = STACK>
1287                     <CALL '\1aLOAD-AC 6>
1288                     <JUMP + PHRASE70>
1289 PHRASE59
1290                     <FRAME '\1aNEXT-AC>
1291                     <FRAME '\1aASSIGN-AC>
1292                     <PUSH LST5>
1293                     <PUSH 'BOTH>
1294                     <CALL '\1aASSIGN-AC 2 = FLAG6>
1295                     <PUSH FLAG6>
1296                     <CALL '\1aNEXT-AC 1 = AC10>
1297 PHRASE70
1298                     <FRAME '\1aGET-AC>
1299                     <PUSH AC10>
1300                     <CALL '\1aGET-AC 1 = TEMP17>
1301                     <PUTUV TEMP17 5 %<>>
1302                     <DEAD TEMP17>
1303                     <FRAME '\1aGET-AC>
1304                     <PUSH AC10>
1305                     <CALL '\1aGET-AC 1 = TEMP17>
1306                     <PUTUV TEMP17 2 LST5>
1307                     <DEAD TEMP17>
1308                     <FRAME '\1aGET-AC>
1309                     <PUSH AC10>
1310                     <CALL '\1aGET-AC 1 = TEMP17>
1311                     <PUTUV TEMP17 3 'VALUE (TYPE ATOM)>
1312                     <DEAD TEMP17>
1313                     <FRAME '\1aMUNGED-AC>
1314                     <PUSH FLAG6>
1315                     <DEAD FLAG6>
1316                     <CALL '\1aMUNGED-AC 1>
1317                     <SETG 'ACA-AC %<>>
1318                     <FRAME '\1aLABEL-UPDATE-ACS>
1319                     <PUSH TAG7>
1320                     <PUSH %<>>
1321                     <CALL '\1aLABEL-UPDATE-ACS 2>
1322                     <FRAME '\1aOCEMIT>
1323                     <PUSH SKIP9>
1324                     <DEAD SKIP9>
1325                     <PUSH AC10>
1326                     <DEAD AC10>
1327                     <SET FLAG6 2 (TYPE FIX)>
1328                     <SFRAME 'OBJ-LOC>
1329                     <PUSH LST5>
1330                     <DEAD LST5>
1331                     <PUSH 1>
1332                     <SCALL '\1aOBJ-LOC 2 = TEMP17 + TAG78 FLAG6>
1333                     <LOOP (TEMP17 TYPE VALUE LENGTH) (FLAG6 VALUE)>
1334 TAG81
1335                     <INTGO>
1336                     <EMPTY? TEMP17 + TAG78>
1337                     <NTH1 TEMP17 = STACK>
1338                     <REST1 TEMP17 = TEMP17>
1339                     <ADD FLAG6 1 = FLAG6 (TYPE FIX)>
1340                     <JUMP + TAG81>
1341 TAG78
1342                     <CALL '\1aOCEMIT FLAG6>
1343                     <DEAD FLAG6>
1344                     <FRAME '\1aOCEMIT>
1345                     <PUSH 'JRST>
1346                     <FRAME '\1aXJUMP>
1347                     <PUSH TAG7>
1348                     <DEAD TAG7>
1349                     <CALL '\1aXJUMP 1 = STACK>
1350                     <CALL '\1aOCEMIT 2 = TEMP17>
1351 PHRASE57
1352                     <RETURN TEMP17>
1353                     <DEAD TEMP17>
1354                     <END \1aEMPL?!-MIMOC>
1355
1356 #WORD *6402746367*
1357 <GFCN \1aPUTREST!-MIMOC ("VALUE" ANY LIST) L5>
1358                     <TEMP L16 TEMP10 L27 AC8 TEMP15>
1359                     <INTGO>
1360                     <NTHL L5 1 = L16>
1361                     <RESTL L5 1 = TEMP10 (TYPE LIST)>
1362                     <DEAD L5>
1363                     <NTHL TEMP10 1 = L27>
1364                     <DEAD TEMP10>
1365                     <FRAME '\1aIN-AC?>
1366                     <PUSH L16>
1367                     <PUSH 'VALUE>
1368                     <CALL '\1aIN-AC? 2 = AC8>
1369                     <TYPE? AC8 <TYPE-CODE FALSE> + PHRASE12>
1370                     <SETG 'FIRST-AC %<>>
1371                     <FRAME '\1aGET-AC>
1372                     <PUSH AC8>
1373                     <CALL '\1aGET-AC 1 = TEMP10>
1374                     <GVAL 'AC-STAMP = TEMP15>
1375                     <ADD TEMP15 1 = TEMP15 (TYPE FIX)>
1376                     <SETG 'AC-STAMP TEMP15>
1377                     <PUTUV TEMP10 4 TEMP15 (TYPE FIX)>
1378                     <DEAD TEMP10 TEMP15>
1379 PHRASE12
1380                     <EQUAL? L27 () - PHRASE17>
1381                     <TYPE? AC8 <TYPE-CODE FALSE> + PHRASE19>
1382                     <FRAME '\1aOCEMIT>
1383                     <PUSH 'SETZM>
1384                     <PUSH 0>
1385                     <CONS AC8 () = STACK>
1386                     <DEAD AC8>
1387                     <CALL '\1aOCEMIT 3 = TEMP10>
1388                     <RETURN TEMP10>
1389                     <DEAD TEMP10>
1390 PHRASE19
1391                     <FRAME '\1aOCEMIT>
1392                     <PUSH 'SETZM>
1393                     <PUSH '@>
1394                     <SET TEMP10 2 (TYPE FIX)>
1395                     <SFRAME 'OBJ-VAL>
1396                     <PUSH L16>
1397                     <DEAD L16>
1398                     <SCALL '\1aOBJ-VAL 1 = TEMP15 + TAG22 TEMP10>
1399                     <LOOP (TEMP15 TYPE VALUE LENGTH) (TEMP10 VALUE)>
1400 TAG25
1401                     <INTGO>
1402                     <EMPTY? TEMP15 + TAG22>
1403                     <NTH1 TEMP15 = STACK>
1404                     <REST1 TEMP15 = TEMP15>
1405                     <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
1406                     <JUMP + TAG25>
1407 TAG22
1408                     <CALL '\1aOCEMIT TEMP10 = TEMP10>
1409                     <RETURN TEMP10>
1410                     <DEAD TEMP10>
1411 PHRASE17
1412                     <FRAME '\1aIN-AC?>
1413                     <PUSH L27>
1414                     <PUSH 'VALUE>
1415                     <CALL '\1aIN-AC? 2 = TEMP10>
1416                     <TYPE? TEMP10 <TYPE-CODE FALSE> - PHRASE35>
1417                     <TYPE? L27 <TYPE-CODE ATOM> - PHRASE30>
1418                     <FRAME '\1aWILL-DIE?>
1419                     <PUSH L27>
1420                     <CALL '\1aWILL-DIE? 1 = TEMP10>
1421                     <TYPE? TEMP10 <TYPE-CODE FALSE> - PHRASE30>
1422                     <DEAD TEMP10>
1423                     <FRAME '\1aNEXT-AC>
1424                     <FRAME '\1aLOAD-AC>
1425                     <PUSH L27>
1426                     <DEAD L27>
1427                     <PUSH 'BOTH>
1428                     <CALL '\1aLOAD-AC 2 = STACK>
1429                     <CALL '\1aNEXT-AC 1 = TEMP10>
1430                     <JUMP + PHRASE35>
1431 PHRASE30
1432                     <FRAME '\1aSMASH-AC>
1433                     <PUSH 'O*>
1434                     <PUSH L27>
1435                     <DEAD L27>
1436                     <PUSH 'VALUE>
1437                     <CALL '\1aSMASH-AC 3>
1438                     <SET TEMP10 'O* (TYPE ATOM)>
1439 PHRASE35
1440                     <TYPE? AC8 <TYPE-CODE FALSE> + PHRASE38>
1441                     <FRAME '\1aOCEMIT>
1442                     <PUSH 'MOVEM>
1443                     <PUSH TEMP10>
1444                     <DEAD TEMP10>
1445                     <CONS AC8 () = STACK>
1446                     <DEAD AC8>
1447                     <CALL '\1aOCEMIT 3 = TEMP10>
1448                     <RETURN TEMP10>
1449                     <DEAD TEMP10>
1450 PHRASE38
1451                     <FRAME '\1aOCEMIT>
1452                     <PUSH 'MOVEM>
1453                     <PUSH TEMP10>
1454                     <DEAD TEMP10>
1455                     <PUSH '@>
1456                     <SET TEMP15 3 (TYPE FIX)>
1457                     <SFRAME 'OBJ-VAL>
1458                     <PUSH L16>
1459                     <DEAD L16>
1460                     <SCALL '\1aOBJ-VAL 1 = TEMP10 + TAG41 TEMP15>
1461                     <LOOP (TEMP10 TYPE VALUE LENGTH) (TEMP15 VALUE)>
1462 TAG43
1463                     <INTGO>
1464                     <EMPTY? TEMP10 + TAG41>
1465                     <NTH1 TEMP10 = STACK>
1466                     <REST1 TEMP10 = TEMP10>
1467                     <ADD TEMP15 1 = TEMP15 (TYPE FIX)>
1468                     <JUMP + TAG43>
1469 TAG41
1470                     <CALL '\1aOCEMIT TEMP15 = TEMP10>
1471                     <DEAD TEMP15>
1472                     <RETURN TEMP10>
1473                     <DEAD TEMP10>
1474                     <END \1aPUTREST!-MIMOC>
1475 #WORD *263734711*
1476 <GFCN \1aCONS!-MIMOC ("VALUE" ANY LIST) L5>
1477                     <TEMP L16 TEMP9 L27 VAL8:ATOM>
1478                     <INTGO>
1479                     <NTHL L5 1 = L16>
1480                     <RESTL L5 1 = TEMP9 (TYPE LIST)>
1481                     <NTHL TEMP9 1 = L27>
1482                     <DEAD TEMP9>
1483                     <RESTL L5 1 = TEMP9 (TYPE LIST)>
1484                     <DEAD L5>
1485                     <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
1486                     <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
1487                     <NTHL TEMP9 1 = VAL8 (TYPE ATOM)>
1488                     <DEAD TEMP9>
1489                     <EQUAL? L16 VAL8 + BOOL12>
1490                     <TYPE? L16 <TYPE-CODE ATOM> - PHRASE11>
1491                     <FRAME '\1aWILL-DIE?>
1492                     <PUSH L16>
1493                     <CALL '\1aWILL-DIE? 1 = TEMP9>
1494                     <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE11>
1495                     <DEAD TEMP9>
1496 BOOL12
1497                     <FRAME '\1aDEAD!-MIMOC>
1498                     <CONS L16 () = STACK>
1499                     <PUSH 'T>
1500                     <CALL '\1aDEAD!-MIMOC 2>
1501 PHRASE11
1502                     <EQUAL? L27 VAL8 + BOOL18>
1503                     <TYPE? L27 <TYPE-CODE ATOM> - PHRASE17>
1504                     <FRAME '\1aWILL-DIE?>
1505                     <PUSH L27>
1506                     <CALL '\1aWILL-DIE? 1 = TEMP9>
1507                     <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE17>
1508                     <DEAD TEMP9>
1509 BOOL18
1510                     <FRAME '\1aDEAD!-MIMOC>
1511                     <CONS L27 () = STACK>
1512                     <PUSH 'T>
1513                     <CALL '\1aDEAD!-MIMOC 2>
1514 PHRASE17
1515                     <FRAME '\1aUPDATE-ACS>
1516                     <CALL '\1aUPDATE-ACS 0>
1517                     <FRAME '\1aGET-INTO-ACS>
1518                     <PUSH L16>
1519                     <DEAD L16>
1520                     <PUSH 'BOTH>
1521                     <PUSH 'B1*>
1522                     <PUSH L27>
1523                     <DEAD L27>
1524                     <PUSH 'VALUE>
1525                     <PUSH 'C1*>
1526                     <CALL '\1aGET-INTO-ACS 6>
1527                     <FRAME '\1aPUSHJ>
1528                     <PUSH 'CONS>
1529                     <PUSH VAL8>
1530                     <DEAD VAL8>
1531                     <CALL '\1aPUSHJ 2 = TEMP9>
1532                     <RETURN TEMP9>
1533                     <DEAD TEMP9>
1534                     <END \1aCONS!-MIMOC>
1535 #WORD *4454400541*
1536 <GFCN \1aGET-INTO-ACS ("VALUE" ANY "TUPLE" TUPLE)>
1537                     <MAKTUP PTRNS4:TUPLE (FIRSTS5:LIST ()) (LASTS6:LIST ()) (OTHERS7:LIST ()) P10 WIN11 CHANGE12 TEMP36 ONE41 TEMP49 AC13 = PTRNS4>
1538                     <INTGO>
1539                     <SET P10 PTRNS4>
1540                     <SET WIN11 'T (TYPE ATOM)>
1541                     <SET CHANGE12 %<> (TYPE FALSE)>
1542                     <LOOP>
1543 AGAIN18
1544                     <INTGO>
1545                     <EMPUV? P10 - PHRASE20>
1546                     <VEQUAL? WIN11 0 - EXIT8>
1547 PHRASE20
1548                     <EMPUV? P10 - PHRASE23>
1549                     <VEQUAL? CHANGE12 0 - PHRASE25>
1550                     <SET P10 'T (TYPE ATOM)>
1551                     <LOOP>
1552 AGAIN29
1553                     <INTGO>
1554                     <SET TEMP36 FIRSTS5 (TYPE LIST)>
1555                     <LOOP>
1556 MAP31
1557                     <INTGO>
1558                     <EMPL? TEMP36 + MAPAP34>
1559                     <NTHL TEMP36 1 = ONE41>
1560                     <VEQUAL? P10 0 - BOOL46>
1561                     <RESTL ONE41 1 = WIN11 (TYPE LIST)>
1562                     <NTHL WIN11 1 = WIN11 (TYPE ATOM)>
1563                     <VEQUAL? WIN11 'BOTH - BOOL45>
1564                     <DEAD WIN11>
1565 BOOL46
1566                     <VEQUAL? P10 0 + PHRASE43>
1567                     <RESTL ONE41 1 = WIN11 (TYPE LIST)>
1568                     <NTHL WIN11 1 = WIN11 (TYPE ATOM)>
1569                     <VEQUAL? WIN11 'BOTH - PHRASE43>
1570                     <DEAD WIN11>
1571 BOOL45
1572                     <NTHL ONE41 1 = WIN11 (TYPE ATOM)>
1573                     <RESTL ONE41 1 = TEMP49 (TYPE LIST)>
1574                     <RESTL TEMP49 1 = TEMP49 (TYPE LIST)>
1575                     <NTHL TEMP49 1 = TEMP49 (TYPE ATOM)>
1576                     <VEQUAL? WIN11 TEMP49 + PHRASE43>
1577                     <DEAD WIN11 TEMP49>
1578                     <FRAME '\1aOCEMIT>
1579                     <PUSH 'EXCH>
1580                     <NTHL ONE41 1 = STACK (TYPE ATOM)>
1581                     <RESTL ONE41 1 = TEMP49 (TYPE LIST)>
1582                     <RESTL TEMP49 1 = TEMP49 (TYPE LIST)>
1583                     <NTHL TEMP49 1 = STACK (TYPE ATOM)>
1584                     <DEAD TEMP49>
1585                     <CALL '\1aOCEMIT 3>
1586                     <FRAME '\1aFIXUP-ACS>
1587                     <PUSH FIRSTS5>
1588                     <NTHL ONE41 1 = STACK (TYPE ATOM)>
1589                     <RESTL ONE41 1 = TEMP49 (TYPE LIST)>
1590                     <RESTL TEMP49 1 = TEMP49 (TYPE LIST)>
1591                     <NTHL TEMP49 1 = STACK (TYPE ATOM)>
1592                     <DEAD TEMP49>
1593                     <PUSH ONE41>
1594                     <RESTL ONE41 1 = TEMP49 (TYPE LIST)>
1595                     <NTHL TEMP49 1 = STACK (TYPE ATOM)>
1596                     <DEAD TEMP49>
1597                     <CALL '\1aFIXUP-ACS 5>
1598                     <RESTL ONE41 1 = TEMP49 (TYPE LIST)>
1599                     <NTHL TEMP49 1 = TEMP49 (TYPE ATOM)>
1600                     <VEQUAL? TEMP49 'BOTH - PHRASE53>
1601                     <DEAD TEMP49>
1602                     <FRAME '\1aOCEMIT>
1603                     <PUSH 'EXCH>
1604                     <FRAME '\1aNEXT-AC-FUNNY>
1605                     <NTHL ONE41 1 = STACK (TYPE ATOM)>
1606                     <CALL '\1aNEXT-AC-FUNNY 1 = STACK>
1607                     <FRAME '\1aNEXT-AC-FUNNY>
1608                     <RESTL ONE41 1 = TEMP49 (TYPE LIST)>
1609                     <RESTL TEMP49 1 = TEMP49 (TYPE LIST)>
1610                     <NTHL TEMP49 1 = STACK (TYPE ATOM)>
1611                     <DEAD TEMP49>
1612                     <CALL '\1aNEXT-AC-FUNNY 1 = STACK>
1613                     <CALL '\1aOCEMIT 3>
1614 PHRASE53
1615                     <RESTL ONE41 1 = TEMP49 (TYPE LIST)>
1616                     <DEAD ONE41>
1617                     <RESTL TEMP49 1 = TEMP49 (TYPE LIST)>
1618                     <RESTL TEMP49 1 = TEMP49 (TYPE LIST)>
1619                     <NTHL TEMP49 1 = TEMP49 (TYPE TUPLE)>
1620                     <PUTUV TEMP49 2 %<>>
1621                     <DEAD TEMP49>
1622                     <JUMP + PHRASE57>
1623 PHRASE43
1624                     <NTHL ONE41 1 = TEMP49 (TYPE ATOM)>
1625                     <RESTL ONE41 1 = WIN11 (TYPE LIST)>
1626                     <RESTL WIN11 1 = WIN11 (TYPE LIST)>
1627                     <NTHL WIN11 1 = WIN11 (TYPE ATOM)>
1628                     <VEQUAL? TEMP49 WIN11 - PHRASE57>
1629                     <DEAD TEMP49 WIN11>
1630                     <RESTL ONE41 1 = WIN11 (TYPE LIST)>
1631                     <DEAD ONE41>
1632                     <RESTL WIN11 1 = WIN11 (TYPE LIST)>
1633                     <RESTL WIN11 1 = WIN11 (TYPE LIST)>
1634                     <NTHL WIN11 1 = WIN11 (TYPE TUPLE)>
1635                     <PUTUV WIN11 2 %<>>
1636                     <DEAD WIN11>
1637 PHRASE57
1638                     <RESTL TEMP36 1 = TEMP36 (TYPE LIST)>
1639                     <JUMP + MAP31>
1640 MAPAP34
1641                     <VEQUAL? P10 0 + PHRASE59>
1642                     <DEAD P10>
1643                     <SET P10 %<> (TYPE FALSE)>
1644                     <JUMP + AGAIN29>
1645 PHRASE59
1646                     <SET FIRSTS5 () (TYPE LIST)>
1647 PHRASE25
1648                     <SET WIN11 'T (TYPE ATOM)>
1649                     <SET P10 PTRNS4>
1650                     <JUMP + AGAIN18>
1651 PHRASE23
1652                     <NTHUV P10 2 = TEMP36>
1653                     <TYPE? TEMP36 <TYPE-CODE FALSE> + PHRASE94>
1654                     <DEAD TEMP36>
1655                     <NTHUV P10 1 = TEMP49>
1656                     <TYPE? TEMP49 <TYPE-CODE ATOM> + PHRASE61>
1657                     <NTHUV P10 3 = TEMP36>
1658                     <CONS TEMP36 () = ONE41>
1659                     <DEAD TEMP36>
1660                     <NTHUV P10 2 = TEMP36>
1661                     <CONS TEMP36 ONE41 = ONE41>
1662                     <DEAD TEMP36>
1663                     <CONS TEMP49 ONE41 = ONE41>
1664                     <DEAD TEMP49>
1665                     <CONS ONE41 LASTS6 = LASTS6>
1666                     <DEAD ONE41>
1667                     <PUTUV P10 2 %<>>
1668                     <JUMP + PHRASE94>
1669 PHRASE61
1670                     <FRAME '\1aIN-AC?>
1671                     <PUSH TEMP49>
1672                     <NTHUV P10 2 = TEMP36>
1673                     <PUSH TEMP36>
1674                     <CALL '\1aIN-AC? 2 = AC13>
1675                     <TYPE? AC13 <TYPE-CODE FALSE> + PHRASE62>
1676                     <NTHUV P10 3 = TEMP49>
1677                     <EQUAL? AC13 TEMP49 - PHRASE65>
1678                     <EQUAL? TEMP36 'VALUE + PHRASE94>
1679                     <DEAD TEMP36>
1680                     <FRAME '\1aGETPROP>
1681                     <PUSH TEMP49>
1682                     <PUSH 'AC>
1683                     <CALL '\1aGETPROP 2 = TEMP36>
1684                     <TYPE? TEMP36 <TYPE-CODE FALSE> + PHRASE94>
1685                     <NTHUV TEMP36 6 = ONE41>
1686                     <TYPE? ONE41 <TYPE-CODE FALSE> + PHRASE94>
1687                     <DEAD ONE41>
1688                     <FRAME '\1aLOAD-TYPE-IN-AC>
1689                     <PUSH TEMP49>
1690                     <DEAD TEMP49>
1691                     <NTHUV TEMP36 6 = STACK (TYPE ATOM)>
1692                     <CALL '\1aLOAD-TYPE-IN-AC 2>
1693                     <PUTUV TEMP36 6 %<>>
1694                     <DEAD TEMP36>
1695                     <JUMP + PHRASE94>
1696 PHRASE65
1697                     <EQUAL? TEMP36 'BOTH - BOOL73>
1698                     <FRAME '\1aAC-MEMQ>
1699                     <PUSH TEMP49>
1700                     <PUSH PTRNS4>
1701                     <CALL '\1aAC-MEMQ 2 = ONE41>
1702                     <VEQUAL? ONE41 0 - BOOL72>
1703                     <DEAD ONE41>
1704                     <FRAME '\1aAC-MEMQ>
1705                     <FRAME '\1aNEXT-AC-FUNNY>
1706                     <PUSH TEMP49>
1707                     <CALL '\1aNEXT-AC-FUNNY 1 = STACK>
1708                     <PUSH PTRNS4>
1709                     <CALL '\1aAC-MEMQ 2 = ONE41>
1710                     <VEQUAL? ONE41 0 - BOOL72>
1711                     <DEAD ONE41>
1712 BOOL73
1713                     <EQUAL? TEMP36 'BOTH + PHRASE71>
1714                     <FRAME '\1aAC-MEMQ>
1715                     <PUSH TEMP49>
1716                     <PUSH PTRNS4>
1717                     <CALL '\1aAC-MEMQ 2 = ONE41>
1718                     <VEQUAL? ONE41 0 + PHRASE71>
1719                     <DEAD ONE41>
1720 BOOL72
1721                     <SET WIN11 %<> (TYPE FALSE)>
1722                     <CONS P10 () = ONE41>
1723                     <CONS TEMP49 ONE41 = ONE41>
1724                     <DEAD TEMP49>
1725                     <CONS TEMP36 ONE41 = ONE41>
1726                     <DEAD TEMP36>
1727                     <CONS AC13 ONE41 = ONE41>
1728                     <DEAD AC13>
1729                     <CONS ONE41 FIRSTS5 = FIRSTS5>
1730                     <DEAD ONE41>
1731                     <JUMP + PHRASE94>
1732 PHRASE71
1733                     <SET WIN11 %<> (TYPE FALSE)>
1734                     <SET CHANGE12 'T (TYPE ATOM)>
1735                     <FRAME '\1aGETPROP>
1736                     <PUSH TEMP49>
1737                     <PUSH 'AC>
1738                     <CALL '\1aGETPROP 2 = ONE41>
1739                     <TYPE? ONE41 <TYPE-CODE FALSE> + PHRASE86>
1740                     <DEAD ONE41>
1741                     <FRAME '\1aGET-AC>
1742                     <PUSH TEMP49>
1743                     <CALL '\1aGET-AC 1 = ONE41>
1744                     <PUTUV ONE41 6 %<>>
1745                     <DEAD ONE41>
1746                     <EQUAL? TEMP36 'BOTH - PHRASE86>
1747                     <FRAME '\1aGET-AC>
1748                     <FRAME '\1aNEXT-AC>
1749                     <PUSH TEMP49>
1750                     <CALL '\1aNEXT-AC 1 = STACK>
1751                     <CALL '\1aGET-AC 1 = ONE41>
1752                     <PUTUV ONE41 6 %<>>
1753                     <DEAD ONE41>
1754 PHRASE86
1755                     <EQUAL? TEMP36 'BOTH - PHRASE90>
1756                     <DEAD TEMP36>
1757                     <FRAME '\1aOCEMIT>
1758                     <PUSH 'DMOVE>
1759                     <PUSH TEMP49>
1760                     <DEAD TEMP49>
1761                     <PUSH AC13>
1762                     <DEAD AC13>
1763                     <CALL '\1aOCEMIT 3>
1764                     <JUMP + PHRASE92>
1765 PHRASE90
1766                     <FRAME '\1aOCEMIT>
1767                     <PUSH 'MOVE>
1768                     <PUSH TEMP49>
1769                     <DEAD TEMP49>
1770                     <PUSH AC13>
1771                     <DEAD AC13>
1772                     <CALL '\1aOCEMIT 3>
1773 PHRASE92
1774                     <PUTUV P10 2 %<>>
1775                     <JUMP + PHRASE94>
1776 PHRASE62
1777                     <SET CHANGE12 'T (TYPE ATOM)>
1778                     <PUTUV P10 2 %<>>
1779                     <NTHUV P10 3 = ONE41>
1780                     <CONS ONE41 () = ONE41>
1781                     <CONS TEMP36 ONE41 = ONE41>
1782                     <DEAD TEMP36>
1783                     <CONS TEMP49 ONE41 = ONE41>
1784                     <DEAD TEMP49>
1785                     <CONS ONE41 OTHERS7 = OTHERS7>
1786                     <DEAD ONE41>
1787 PHRASE94
1788                     <RESTUV P10 3 = P10 (TYPE VECTOR)>
1789                     <CHTYPE P10 <TYPE-CODE VECTOR> = P10>
1790                     <JUMP + AGAIN18>
1791 EXIT8
1792                     <SET ONE41 OTHERS7 (TYPE LIST)>
1793                     <DEAD OTHERS7>
1794                     <LOOP>
1795 MAP96
1796                     <INTGO>
1797                     <EMPL? ONE41 + MAPAP99>
1798                     <NTHL ONE41 1 = FIRSTS5>
1799                     <FRAME '\1aGETPROP>
1800                     <RESTL FIRSTS5 1 = TEMP49 (TYPE LIST)>
1801                     <RESTL TEMP49 1 = TEMP49 (TYPE LIST)>
1802                     <NTHL TEMP49 1 = STACK (TYPE ATOM)>
1803                     <DEAD TEMP49>
1804                     <PUSH 'AC>
1805                     <CALL '\1aGETPROP 2 = TEMP49>
1806                     <TYPE? TEMP49 <TYPE-CODE FALSE> + PHRASE108>
1807                     <DEAD TEMP49>
1808                     <FRAME '\1aGET-AC>
1809                     <RESTL FIRSTS5 1 = TEMP49 (TYPE LIST)>
1810                     <RESTL TEMP49 1 = TEMP49 (TYPE LIST)>
1811                     <NTHL TEMP49 1 = STACK (TYPE ATOM)>
1812                     <DEAD TEMP49>
1813                     <CALL '\1aGET-AC 1 = TEMP49>
1814                     <PUTUV TEMP49 6 %<>>
1815                     <DEAD TEMP49>
1816                     <RESTL FIRSTS5 1 = TEMP49 (TYPE LIST)>
1817                     <NTHL TEMP49 1 = TEMP49 (TYPE ATOM)>
1818                     <VEQUAL? TEMP49 'BOTH - PHRASE108>
1819                     <DEAD TEMP49>
1820                     <FRAME '\1aGET-AC>
1821                     <FRAME '\1aNEXT-AC>
1822                     <RESTL FIRSTS5 1 = TEMP49 (TYPE LIST)>
1823                     <RESTL TEMP49 1 = TEMP49 (TYPE LIST)>
1824                     <NTHL TEMP49 1 = STACK (TYPE ATOM)>
1825                     <DEAD TEMP49>
1826                     <CALL '\1aNEXT-AC 1 = STACK>
1827                     <CALL '\1aGET-AC 1 = TEMP49>
1828                     <PUTUV TEMP49 6 %<>>
1829                     <DEAD TEMP49>
1830 PHRASE108
1831                     <RESTL FIRSTS5 1 = TEMP49 (TYPE LIST)>
1832                     <NTHL TEMP49 1 = TEMP49 (TYPE ATOM)>
1833                     <VEQUAL? TEMP49 'BOTH - PHRASE112>
1834                     <DEAD TEMP49>
1835                     <FRAME '\1aOCEMIT>
1836                     <PUSH 'DMOVE>
1837                     <RESTL FIRSTS5 1 = TEMP49 (TYPE LIST)>
1838                     <RESTL TEMP49 1 = TEMP49 (TYPE LIST)>
1839                     <NTHL TEMP49 1 = STACK (TYPE ATOM)>
1840                     <DEAD TEMP49>
1841                     <SET P10 2 (TYPE FIX)>
1842                     <SFRAME 'OBJ-LOC>
1843                     <NTHL FIRSTS5 1 = STACK (TYPE ATOM)>
1844                     <DEAD FIRSTS5>
1845                     <PUSH 0>
1846                     <SCALL '\1aOBJ-LOC 2 = TEMP49 + TAG113 P10>
1847                     <LOOP (TEMP49 TYPE VALUE LENGTH) (P10 VALUE)>
1848 TAG116
1849                     <INTGO>
1850                     <EMPTY? TEMP49 + TAG113>
1851                     <NTH1 TEMP49 = STACK>
1852                     <REST1 TEMP49 = TEMP49>
1853                     <ADD P10 1 = P10 (TYPE FIX)>
1854                     <JUMP + TAG116>
1855 TAG113
1856                     <CALL '\1aOCEMIT P10>
1857                     <DEAD P10>
1858                     <JUMP + PHRASE123>
1859 PHRASE112
1860                     <RESTL FIRSTS5 1 = P10 (TYPE LIST)>
1861                     <NTHL P10 1 = P10 (TYPE ATOM)>
1862                     <VEQUAL? P10 'VALUE - PHRASE118>
1863                     <DEAD P10>
1864                     <FRAME '\1aOCEMIT>
1865                     <PUSH 'MOVE>
1866                     <RESTL FIRSTS5 1 = P10 (TYPE LIST)>
1867                     <RESTL P10 1 = P10 (TYPE LIST)>
1868                     <NTHL P10 1 = STACK (TYPE ATOM)>
1869                     <DEAD P10>
1870                     <SET TEMP49 2 (TYPE FIX)>
1871                     <SFRAME 'OBJ-LOC>
1872                     <NTHL FIRSTS5 1 = STACK (TYPE ATOM)>
1873                     <DEAD FIRSTS5>
1874                     <PUSH 1>
1875                     <SCALL '\1aOBJ-LOC 2 = P10 + TAG119 TEMP49>
1876                     <LOOP (P10 TYPE VALUE LENGTH) (TEMP49 VALUE)>
1877 TAG121
1878                     <INTGO>
1879                     <EMPTY? P10 + TAG119>
1880                     <NTH1 P10 = STACK>
1881                     <REST1 P10 = P10>
1882                     <ADD TEMP49 1 = TEMP49 (TYPE FIX)>
1883                     <JUMP + TAG121>
1884 TAG119
1885                     <CALL '\1aOCEMIT TEMP49>
1886                     <DEAD TEMP49>
1887                     <JUMP + PHRASE123>
1888 PHRASE118
1889                     <FRAME '\1aOCEMIT>
1890                     <PUSH 'MOVE>
1891                     <RESTL FIRSTS5 1 = TEMP49 (TYPE LIST)>
1892                     <RESTL TEMP49 1 = TEMP49 (TYPE LIST)>
1893                     <NTHL TEMP49 1 = STACK (TYPE ATOM)>
1894                     <DEAD TEMP49>
1895                     <SET P10 2 (TYPE FIX)>
1896                     <SFRAME 'OBJ-LOC>
1897                     <NTHL FIRSTS5 1 = STACK (TYPE ATOM)>
1898                     <DEAD FIRSTS5>
1899                     <PUSH 0>
1900                     <SCALL '\1aOBJ-LOC 2 = TEMP49 + TAG124 P10>
1901                     <LOOP (TEMP49 TYPE VALUE LENGTH) (P10 VALUE)>
1902 TAG126
1903                     <INTGO>
1904                     <EMPTY? TEMP49 + TAG124>
1905                     <NTH1 TEMP49 = STACK>
1906                     <REST1 TEMP49 = TEMP49>
1907                     <ADD P10 1 = P10 (TYPE FIX)>
1908                     <JUMP + TAG126>
1909 TAG124
1910                     <CALL '\1aOCEMIT P10>
1911                     <DEAD P10>
1912 PHRASE123
1913                     <RESTL ONE41 1 = ONE41 (TYPE LIST)>
1914                     <JUMP + MAP96>
1915 MAPAP99
1916                     <SET P10 %<> (TYPE FALSE)>
1917                     <SET ONE41 LASTS6 (TYPE LIST)>
1918                     <DEAD LASTS6>
1919                     <LOOP>
1920 MAP129
1921                     <INTGO>
1922                     <EMPL? ONE41 + MAPAP132>
1923                     <NTHL ONE41 1 = FIRSTS5>
1924                     <RESTL FIRSTS5 1 = TEMP49 (TYPE LIST)>
1925                     <RESTL TEMP49 1 = TEMP49 (TYPE LIST)>
1926                     <NTHL TEMP49 1 = P10 (TYPE ATOM)>
1927                     <DEAD TEMP49>
1928                     <RESTL FIRSTS5 1 = TEMP49 (TYPE LIST)>
1929                     <NTHL TEMP49 1 = WIN11 (TYPE ATOM)>
1930                     <DEAD TEMP49>
1931                     <NTHL FIRSTS5 1 = CHANGE12>
1932                     <DEAD FIRSTS5>
1933                     <FRAME '\1aGETPROP>
1934                     <PUSH P10>
1935                     <PUSH 'AC>
1936                     <CALL '\1aGETPROP 2 = TEMP49>
1937                     <TYPE? TEMP49 <TYPE-CODE FALSE> + PHRASE140>
1938                     <DEAD TEMP49>
1939                     <FRAME '\1aMUNGED-AC>
1940                     <PUSH P10>
1941                     <VEQUAL? WIN11 'BOTH - TAG143>
1942                     <PUSH 'T>
1943                     <JUMP + TAG144>
1944 TAG143
1945                     <PUSH %<>>
1946 TAG144
1947                     <CALL '\1aMUNGED-AC 2>
1948 PHRASE140
1949                     <VEQUAL? WIN11 'TYPE + PHRASE146>
1950                     <FRAME '\1aPRIMTYPE>
1951                     <PUSH CHANGE12>
1952                     <CALL '\1aPRIMTYPE 1 = TEMP49>
1953                     <SET TEMP36 [WORD FIX] (TYPE VECTOR)>
1954                     <LOOP (TEMP49 VALUE) (TEMP36 LENGTH VALUE)>
1955 TAG150
1956                     <NTHUV TEMP36 1 = AC13>
1957                     <VEQUAL? AC13 TEMP49 + BOOL148>
1958                     <DEAD AC13>
1959                     <RESTUV TEMP36 1 = TEMP36 (TYPE VECTOR)>
1960                     <EMPUV? TEMP36 - TAG150>
1961                     <FRAME '\1aPRIMTYPE>
1962                     <PUSH CHANGE12>
1963                     <CALL '\1aPRIMTYPE 1 = TEMP36>
1964                     <VEQUAL? TEMP36 'LIST - PHRASE146>
1965                     <DEAD TEMP36>
1966                     <EMPL? CHANGE12 - PHRASE146 (TYPE LIST)>
1967 BOOL148
1968                     <VEQUAL? WIN11 'BOTH - PHRASE158>
1969                     <DEAD WIN11>
1970                     <FRAME '\1aOCEMIT>
1971                     <PUSH 'MOVSI>
1972                     <PUSH P10>
1973                     <SET TEMP49 2 (TYPE FIX)>
1974                     <SFRAME 'TYPE-CODE>
1975                     <FRAME '\1aTYPE>
1976                     <PUSH CHANGE12>
1977                     <CALL '\1aTYPE 1 = STACK>
1978                     <PUSH 'T>
1979                     <SCALL '\1aTYPE-CODE 2 = TEMP36 + TAG159 TEMP49>
1980                     <LOOP (TEMP36 TYPE VALUE LENGTH) (TEMP49 VALUE)>
1981 TAG162
1982                     <INTGO>
1983                     <EMPTY? TEMP36 + TAG159>
1984                     <NTH1 TEMP36 = STACK>
1985                     <REST1 TEMP36 = TEMP36>
1986                     <ADD TEMP49 1 = TEMP49 (TYPE FIX)>
1987                     <JUMP + TAG162>
1988 TAG159
1989                     <CALL '\1aOCEMIT TEMP49>
1990                     <DEAD TEMP49>
1991                     <FRAME '\1aNEXT-AC-FUNNY>
1992                     <PUSH P10>
1993                     <DEAD P10>
1994                     <CALL '\1aNEXT-AC-FUNNY 1 = P10>
1995 PHRASE158
1996                     <FRAME '\1aPRIMTYPE>
1997                     <PUSH CHANGE12>
1998                     <CALL '\1aPRIMTYPE 1 = TEMP49>
1999                     <VEQUAL? TEMP49 'LIST - PHRASE166>
2000                     <DEAD TEMP49>
2001                     <SET CHANGE12 0 (TYPE FIX)>
2002                     <JUMP + PHRASE168>
2003 PHRASE166
2004                     <CHTYPE CHANGE12 <TYPE-CODE FIX> = CHANGE12>
2005 PHRASE168
2006                     <LESS? CHANGE12 0 + PHRASE170 (TYPE FIX)>
2007                     <GVAL 'MAX-IMMEDIATE = TEMP49>
2008                     <GRTR? CHANGE12 TEMP49 + PHRASE170 (TYPE FIX)>
2009                     <DEAD TEMP49>
2010                     <FRAME '\1aOCEMIT>
2011                     <PUSH 'MOVEI>
2012                     <PUSH P10>
2013                     <DEAD P10>
2014                     <PUSH CHANGE12>
2015                     <DEAD CHANGE12>
2016                     <CALL '\1aOCEMIT 3 = P10>
2017                     <JUMP + PHRASE200>
2018 PHRASE170
2019                     <AND CHANGE12 #WORD *777777* = TEMP49>
2020                     <VEQUAL? TEMP49 0 - PHRASE175 (TYPE FIX)>
2021                     <DEAD TEMP49>
2022                     <FRAME '\1aOCEMIT>
2023                     <PUSH 'MOVSI>
2024                     <PUSH P10>
2025                     <DEAD P10>
2026                     <LSH CHANGE12 -18 = STACK (TYPE FIX)>
2027                     <DEAD CHANGE12>
2028                     <CALL '\1aOCEMIT 3 = P10>
2029                     <JUMP + PHRASE200>
2030 PHRASE175
2031                     <LESS? CHANGE12 0 - PHRASE179 (TYPE FIX)>
2032                     <GVAL 'MAX-IMMEDIATE = TEMP49>
2033                     <SET TEMP36 CHANGE12>
2034                     <LESS? TEMP36 0 - TAG183 (TYPE FIX)>
2035                     <SUB 0 TEMP36 = TEMP36 (TYPE FIX)>
2036 TAG183
2037                     <LESS? TEMP49 TEMP36 + PHRASE179 (TYPE FIX)>
2038                     <DEAD TEMP49 TEMP36>
2039                     <FRAME '\1aOCEMIT>
2040                     <PUSH 'MOVNI>
2041                     <PUSH P10>
2042                     <DEAD P10>
2043                     <SUB 0 CHANGE12 = STACK (TYPE FIX)>
2044                     <DEAD CHANGE12>
2045                     <CALL '\1aOCEMIT 3 = P10>
2046                     <JUMP + PHRASE200>
2047 PHRASE179
2048                     <FRAME '\1aOCEMIT>
2049                     <PUSH 'MOVE>
2050                     <PUSH P10>
2051                     <DEAD P10>
2052                     <SET TEMP36 2 (TYPE FIX)>
2053                     <SFRAME 'OBJ-LOC>
2054                     <PUSH CHANGE12>
2055                     <DEAD CHANGE12>
2056                     <PUSH 1>
2057                     <SCALL '\1aOBJ-LOC 2 = TEMP49 + TAG186 TEMP36>
2058                     <LOOP (TEMP49 TYPE VALUE LENGTH) (TEMP36 VALUE)>
2059 TAG188
2060                     <INTGO>
2061                     <EMPTY? TEMP49 + TAG186>
2062                     <NTH1 TEMP49 = STACK>
2063                     <REST1 TEMP49 = TEMP49>
2064                     <ADD TEMP36 1 = TEMP36 (TYPE FIX)>
2065                     <JUMP + TAG188>
2066 TAG186
2067                     <CALL '\1aOCEMIT TEMP36 = P10>
2068                     <DEAD TEMP36>
2069                     <JUMP + PHRASE200>
2070 PHRASE146
2071                     <VEQUAL? WIN11 'BOTH - PHRASE190>
2072                     <FRAME '\1aOCEMIT>
2073                     <PUSH 'DMOVE>
2074                     <PUSH P10>
2075                     <DEAD P10>
2076                     <SET TEMP49 2 (TYPE FIX)>
2077                     <SFRAME 'OBJ-LOC>
2078                     <PUSH CHANGE12>
2079                     <DEAD CHANGE12>
2080                     <PUSH 0>
2081                     <SCALL '\1aOBJ-LOC 2 = TEMP36 + TAG191 TEMP49>
2082                     <LOOP (TEMP36 TYPE VALUE LENGTH) (TEMP49 VALUE)>
2083 TAG193
2084                     <INTGO>
2085                     <EMPTY? TEMP36 + TAG191>
2086                     <NTH1 TEMP36 = STACK>
2087                     <REST1 TEMP36 = TEMP36>
2088                     <ADD TEMP49 1 = TEMP49 (TYPE FIX)>
2089                     <JUMP + TAG193>
2090 TAG191
2091                     <CALL '\1aOCEMIT TEMP49 = P10>
2092                     <DEAD TEMP49>
2093                     <JUMP + PHRASE200>
2094 PHRASE190
2095                     <VEQUAL? WIN11 'VALUE - PHRASE195>
2096                     <DEAD WIN11>
2097                     <FRAME '\1aOCEMIT>
2098                     <PUSH 'MOVE>
2099                     <PUSH P10>
2100                     <DEAD P10>
2101                     <SET TEMP36 2 (TYPE FIX)>
2102                     <SFRAME 'OBJ-LOC>
2103                     <PUSH CHANGE12>
2104                     <DEAD CHANGE12>
2105                     <PUSH 1>
2106                     <SCALL '\1aOBJ-LOC 2 = TEMP49 + TAG196 TEMP36>
2107                     <LOOP (TEMP49 TYPE VALUE LENGTH) (TEMP36 VALUE)>
2108 TAG198
2109                     <INTGO>
2110                     <EMPTY? TEMP49 + TAG196>
2111                     <NTH1 TEMP49 = STACK>
2112                     <REST1 TEMP49 = TEMP49>
2113                     <ADD TEMP36 1 = TEMP36 (TYPE FIX)>
2114                     <JUMP + TAG198>
2115 TAG196
2116                     <CALL '\1aOCEMIT TEMP36 = P10>
2117                     <DEAD TEMP36>
2118                     <JUMP + PHRASE200>
2119 PHRASE195
2120                     <FRAME '\1aOCEMIT>
2121                     <PUSH 'MOVE>
2122                     <PUSH P10>
2123                     <DEAD P10>
2124                     <SET TEMP49 2 (TYPE FIX)>
2125                     <SFRAME 'OBJ-LOC>
2126                     <PUSH CHANGE12>
2127                     <DEAD CHANGE12>
2128                     <PUSH 0>
2129                     <SCALL '\1aOBJ-LOC 2 = TEMP36 + TAG201 TEMP49>
2130                     <LOOP (TEMP36 TYPE VALUE LENGTH) (TEMP49 VALUE)>
2131 TAG203
2132                     <INTGO>
2133                     <EMPTY? TEMP36 + TAG201>
2134                     <NTH1 TEMP36 = STACK>
2135                     <REST1 TEMP36 = TEMP36>
2136                     <ADD TEMP49 1 = TEMP49 (TYPE FIX)>
2137                     <JUMP + TAG203>
2138 TAG201
2139                     <CALL '\1aOCEMIT TEMP49 = P10>
2140                     <DEAD TEMP49>
2141 PHRASE200
2142                     <RESTL ONE41 1 = ONE41 (TYPE LIST)>
2143                     <JUMP + MAP129>
2144 MAPAP132
2145                     <RETURN P10>
2146                     <DEAD P10>
2147                     <END \1aGET-INTO-ACS>
2148 #WORD *15362307315*
2149 <GFCN \1aAC-MEMQ ("VALUE" <OR ATOM !<FALSE>> ATOM <PRIMTYPE VECTOR>) AC5 P6>
2150                     <TEMP TEMP7 TEMP16>
2151                     <INTGO>
2152                     <LOOP>
2153 AGAIN10
2154                     <INTGO>
2155                     <EMPUV? P6 - PHRASE12>
2156                     <RETURN %<>>
2157 PHRASE12
2158                     <NTHUV P6 2 = TEMP16>
2159                     <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE14>
2160                     <DEAD TEMP16>
2161                     <FRAME '\1aIN-AC?>
2162                     <NTHUV P6 1 = STACK>
2163                     <NTHUV P6 2 = STACK>
2164                     <CALL '\1aIN-AC? 2 = TEMP16>
2165                     <EQUAL? TEMP16 AC5 + BOOL20>
2166                     <DEAD TEMP16>
2167                     <NTHUV P6 2 = TEMP16>
2168                     <EQUAL? TEMP16 'BOTH - PHRASE14>
2169                     <DEAD TEMP16>
2170                     <FRAME '\1aIN-AC?>
2171                     <NTHUV P6 1 = STACK>
2172                     <PUSH 'TYPE>
2173                     <CALL '\1aIN-AC? 2 = TEMP16>
2174                     <EQUAL? TEMP16 AC5 + BOOL20>
2175                     <DEAD TEMP16>
2176                     <FRAME '\1aIN-AC?>
2177                     <NTHUV P6 1 = STACK>
2178                     <PUSH 'VALUE>
2179                     <CALL '\1aIN-AC? 2 = TEMP16>
2180                     <EQUAL? TEMP16 AC5 - PHRASE14>
2181                     <DEAD TEMP16>
2182 BOOL20
2183                     <RETURN 'T>
2184 PHRASE14
2185                     <RESTUV P6 3 = P6 (TYPE VECTOR)>
2186                     <CHTYPE P6 <TYPE-CODE VECTOR> = P6>
2187                     <JUMP + AGAIN10>
2188                     <DEAD AC5 P6>
2189                     <END \1aAC-MEMQ>
2190 #WORD *13563677002*
2191 <GFCN \1aNEXT-AC-FUNNY ("VALUE" ANY ATOM) AC4>
2192                     <TEMP TEMP6>
2193                     <INTGO>
2194                     <FRAME '\1aNEXT-AC>
2195                     <PUSH AC4>
2196                     <CALL '\1aNEXT-AC 1 = TEMP6>
2197                     <TYPE? TEMP6 <TYPE-CODE FALSE> - BOOL5>
2198                     <VEQUAL? AC4 'O1* - BOOL8>
2199                     <RETURN 'O2*>
2200 BOOL8
2201                     <VEQUAL? AC4 'O* - BOOL9>
2202                     <DEAD AC4>
2203                     <RETURN 'A1*>
2204 BOOL9
2205                     <FRAME '\1aERROR>
2206                     <PUSH 'NEXT-AC-LOSSAGE!-ERRORS>
2207                     <CALL '\1aERROR 1 = TEMP6>
2208 BOOL5
2209                     <RETURN TEMP6>
2210                     <DEAD TEMP6>
2211                     <END \1aNEXT-AC-FUNNY>
2212 #WORD *15772226064*
2213 <GFCN \1aFIXUP-ACS ("VALUE" <OR FALSE !<LIST ATOM ATOM ATOM TUPLE>> LIST ANY ANY ANY ANY) L4 ACA5 ACB6 NOT-ME7 KIND8>
2214                     <TEMP AC2B10 AC2A9 TEMP28 TEMP25:LIST LL30:LIST TAC31>
2215                     <INTGO>
2216                     <EQUAL? KIND8 'BOTH + TAG13>
2217                     <SET AC2B10 %<> (TYPE FALSE)>
2218                     <JUMP + PHRASE12>
2219 TAG13
2220                     <FRAME '\1aNEXT-AC-FUNNY>
2221                     <PUSH ACB6>
2222                     <CALL '\1aNEXT-AC-FUNNY 1 = AC2B10>
2223 PHRASE12
2224                     <EQUAL? KIND8 'BOTH + TAG17>
2225                     <DEAD KIND8>
2226                     <SET AC2A9 %<> (TYPE FALSE)>
2227                     <JUMP + PHRASE16>
2228 TAG17
2229                     <FRAME '\1aNEXT-AC-FUNNY>
2230                     <PUSH ACA5>
2231                     <CALL '\1aNEXT-AC-FUNNY 1 = AC2A9>
2232 PHRASE16
2233                     <SET TEMP28 %<> (TYPE FALSE)>
2234                     <SET TEMP25 L4 (TYPE LIST)>
2235                     <DEAD L4>
2236                     <LOOP>
2237 MAP20
2238                     <INTGO>
2239                     <EMPL? TEMP25 + MAPAP23>
2240                     <NTHL TEMP25 1 = LL30>
2241                     <EQUAL? LL30 NOT-ME7 - TAG35>
2242                     <SET TEMP28 %<> (TYPE FALSE)>
2243                     <JUMP + PHRASE33>
2244 TAG35
2245                     <NTHL LL30 1 = TAC31 (TYPE ATOM)>
2246                     <EQUAL? ACB6 TAC31 - BOOL37>
2247                     <SET TAC31 ACA5>
2248                     <TYPE? TAC31 <TYPE-CODE FALSE> - BOOL36>
2249 BOOL37
2250                     <EQUAL? ACA5 TAC31 - BOOL38>
2251                     <SET TAC31 ACB6>
2252                     <TYPE? TAC31 <TYPE-CODE FALSE> - BOOL36>
2253 BOOL38
2254                     <EQUAL? AC2A9 TAC31 - BOOL39>
2255                     <SET TAC31 AC2B10>
2256                     <TYPE? TAC31 <TYPE-CODE FALSE> - BOOL36>
2257 BOOL39
2258                     <EQUAL? AC2B10 TAC31 + TAG41>
2259                     <DEAD TAC31>
2260                     <SET TEMP28 %<> (TYPE FALSE)>
2261                     <JUMP + PHRASE33>
2262 TAG41
2263                     <SET TAC31 AC2A9>
2264                     <SET TEMP28 TAC31>
2265                     <TYPE? TEMP28 <TYPE-CODE FALSE> + PHRASE33>
2266 BOOL36
2267                     <PUTL LL30 1 TAC31>
2268                     <DEAD TAC31>
2269                     <SET TEMP28 LL30>
2270                     <DEAD LL30>
2271 PHRASE33
2272                     <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
2273                     <JUMP + MAP20>
2274 MAPAP23
2275                     <RETURN TEMP28>
2276                     <DEAD TEMP28>
2277                     <END \1aFIXUP-ACS>
2278 #WORD *24270407122*
2279 <GFCN \1aPUTL!-MIMOC ("VALUE" ANY LIST) L4>
2280                     <TEMP LST5 TEMP15 AMT6 VAL7 LOOP8:ATOM END9 (TAC10 %<>) PUT-TYP13 AC11 CNT-AC14 TEMP108>
2281                     <INTGO>
2282                     <NTHL L4 1 = LST5>
2283                     <RESTL L4 1 = TEMP15 (TYPE LIST)>
2284                     <NTHL TEMP15 1 = AMT6>
2285                     <DEAD TEMP15>
2286                     <RESTL L4 1 = TEMP15 (TYPE LIST)>
2287                     <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
2288                     <NTHL TEMP15 1 = VAL7>
2289                     <DEAD TEMP15>
2290                     <FRAME '\1aGENLBL>
2291                     <PUSH "LOOP">
2292                     <CALL '\1aGENLBL 1 = LOOP8>
2293                     <FRAME '\1aGENLBL>
2294                     <PUSH "END">
2295                     <CALL '\1aGENLBL 1 = END9>
2296                     <FRAME '\1aEXTRAMEM>
2297                     <PUSH 'TYPE>
2298                     <PUSH L4>
2299                     <DEAD L4>
2300                     <CALL '\1aEXTRAMEM 2 = PUT-TYP13>
2301                     <FRAME '\1aIN-AC?>
2302                     <PUSH LST5>
2303                     <PUSH 'BOTH>
2304                     <CALL '\1aIN-AC? 2 = AC11>
2305                     <TYPE? AC11 <TYPE-CODE FALSE> + BOOL22>
2306                     <SET TAC10 AC11>
2307                     <FRAME '\1aNEXT-AC>
2308                     <PUSH AC11>
2309                     <DEAD AC11>
2310                     <CALL '\1aNEXT-AC 1 = AC11>
2311                     <TYPE? AC11 <TYPE-CODE FALSE> - PHRASE20>
2312 BOOL22
2313                     <FRAME '\1aIN-AC?>
2314                     <PUSH LST5>
2315                     <PUSH 'VALUE>
2316                     <CALL '\1aIN-AC? 2 = AC11>
2317                     <TYPE? AC11 <TYPE-CODE FALSE> - PHRASE20>
2318                     <FRAME '\1aNEXT-AC>
2319                     <FRAME '\1aLOAD-AC>
2320                     <PUSH LST5>
2321                     <DEAD LST5>
2322                     <PUSH 'BOTH>
2323                     <CALL '\1aLOAD-AC 2 = TAC10>
2324                     <PUSH TAC10>
2325                     <CALL '\1aNEXT-AC 1 = AC11>
2326                     <JUMP + PHRASE28>
2327 PHRASE20
2328                     <SETG 'FIRST-AC %<>>
2329                     <FRAME '\1aGET-AC>
2330                     <PUSH AC11>
2331                     <CALL '\1aGET-AC 1 = TEMP15>
2332                     <GVAL 'AC-STAMP = LST5>
2333                     <ADD LST5 1 = LST5 (TYPE FIX)>
2334                     <SETG 'AC-STAMP LST5>
2335                     <PUTUV TEMP15 4 LST5 (TYPE FIX)>
2336                     <DEAD TEMP15 LST5>
2337 PHRASE28
2338                     <EQUAL? AMT6 1 + PHRASE63>
2339                     <TYPE? AMT6 <TYPE-CODE FIX> - PHRASE32>
2340                     <TYPE? TAC10 <TYPE-CODE FALSE> + PHRASE34>
2341                     <FRAME '\1aFLUSH-AC>
2342                     <PUSH TAC10>
2343                     <PUSH 'T>
2344                     <CALL '\1aFLUSH-AC 2>
2345                     <JUMP + PHRASE36>
2346 PHRASE34
2347                     <FRAME '\1aFLUSH-AC>
2348                     <PUSH AC11>
2349                     <CALL '\1aFLUSH-AC 1>
2350 PHRASE36
2351                     <SUB AMT6 1 = AMT6 (TYPE FIX)>
2352                     <LESS? AMT6 3 - PHRASE39 (TYPE FIX)>
2353                     <LOOP>
2354 AGAIN41
2355                     <INTGO>
2356                     <FRAME '\1aOCEMIT>
2357                     <PUSH 'MOVE>
2358                     <PUSH AC11>
2359                     <CONS AC11 () = STACK>
2360                     <CALL '\1aOCEMIT 3>
2361                     <SUB AMT6 1 = AMT6 (TYPE FIX)>
2362                     <VEQUAL? AMT6 0 - AGAIN41 (TYPE FIX)>
2363                     <JUMP + PHRASE63>
2364 PHRASE39
2365                     <FRAME '\1aSMASH-AC>
2366                     <PUSH 'O*>
2367                     <PUSH AMT6>
2368                     <PUSH 'VALUE>
2369                     <CALL '\1aSMASH-AC 3>
2370                     <PUSH LOOP8>
2371                     <SET END9 1 (TYPE FIX)>
2372                     <GVAL 'LOOPTAGS = LST5>
2373                     <TYPE LST5 = TEMP15>
2374                     <AND TEMP15 7 = TEMP15>
2375                     <VEQUAL? TEMP15 1 + TAG52>
2376                     <DEAD TEMP15>
2377                     <LOOP (LST5 TYPE VALUE LENGTH) (END9 VALUE)>
2378 TAG58
2379                     <INTGO>
2380                     <EMPTY? LST5 + TAG57>
2381                     <NTH1 LST5 = STACK>
2382                     <REST1 LST5 = LST5>
2383                     <ADD END9 1 = END9 (TYPE FIX)>
2384                     <JUMP + TAG58>
2385 TAG57
2386                     <LIST END9 = LST5 (TYPE LIST)>
2387                     <DEAD END9>
2388                     <JUMP + TAG54>
2389 TAG52
2390                     <LOOP>
2391 TAG55
2392                     <VEQUAL? END9 0 + TAG54>
2393                     <POP = TEMP15>
2394                     <CONS TEMP15 LST5 = LST5 (TYPE LIST)>
2395                     <DEAD TEMP15>
2396                     <SUB END9 1 = END9 (TYPE FIX)>
2397                     <JUMP + TAG55>
2398 TAG54
2399                     <SETG 'LOOPTAGS LST5>
2400                     <DEAD LST5>
2401                     <FRAME '\1aLABEL>
2402                     <PUSH LOOP8>
2403                     <CALL '\1aLABEL 1>
2404                     <FRAME '\1aOCEMIT>
2405                     <PUSH 'MOVE>
2406                     <PUSH AC11>
2407                     <CONS AC11 () = STACK>
2408                     <CALL '\1aOCEMIT 3>
2409                     <FRAME '\1aOCEMIT>
2410                     <PUSH 'SOJN>
2411                     <PUSH 'O*>
2412                     <FRAME '\1aXJUMP>
2413                     <PUSH LOOP8>
2414                     <DEAD LOOP8>
2415                     <CALL '\1aXJUMP 1 = STACK>
2416                     <CALL '\1aOCEMIT 3>
2417                     <JUMP + PHRASE63>
2418 PHRASE32
2419                     <TYPE? TAC10 <TYPE-CODE FALSE> + PHRASE65>
2420                     <FRAME '\1aFLUSH-AC>
2421                     <PUSH TAC10>
2422                     <PUSH 'T>
2423                     <CALL '\1aFLUSH-AC 2>
2424                     <JUMP + PHRASE67>
2425 PHRASE65
2426                     <FRAME '\1aFLUSH-AC>
2427                     <PUSH AC11>
2428                     <CALL '\1aFLUSH-AC 1>
2429 PHRASE67
2430                     <FRAME '\1aIN-AC?>
2431                     <PUSH AMT6>
2432                     <PUSH 'BOTH>
2433                     <CALL '\1aIN-AC? 2 = CNT-AC14>
2434                     <TYPE? CNT-AC14 <TYPE-CODE FALSE> + EXIT79>
2435                     <FRAME '\1aWILL-DIE?>
2436                     <PUSH AMT6>
2437                     <CALL '\1aWILL-DIE? 1 = LST5>
2438                     <TYPE? LST5 <TYPE-CODE FALSE> + BOOL74>
2439                     <DEAD LST5>
2440                     <FRAME '\1aDEAD!-MIMOC>
2441                     <CONS AMT6 () = STACK>
2442                     <PUSH 'T>
2443                     <CALL '\1aDEAD!-MIMOC 2 = LST5>
2444                     <TYPE? LST5 <TYPE-CODE FALSE> - BOOL73>
2445                     <DEAD LST5>
2446 BOOL74
2447                     <FRAME '\1aGET-AC>
2448                     <FRAME '\1aNEXT-AC>
2449                     <PUSH CNT-AC14>
2450                     <CALL '\1aNEXT-AC 1 = STACK>
2451                     <CALL '\1aGET-AC 1 = LST5>
2452                     <NTHUV LST5 5 = LST5>
2453                     <TYPE? LST5 <TYPE-CODE FALSE> - EXIT79>
2454                     <DEAD LST5>
2455 BOOL73
2456                     <FRAME '\1aMUNGED-AC>
2457                     <PUSH CNT-AC14>
2458                     <PUSH 'T>
2459                     <CALL '\1aMUNGED-AC 2>
2460                     <FRAME '\1aNEXT-AC>
2461                     <PUSH CNT-AC14>
2462                     <DEAD CNT-AC14>
2463                     <CALL '\1aNEXT-AC 1 = CNT-AC14>
2464                     <TYPE? CNT-AC14 <TYPE-CODE FALSE> - PHRASE94>
2465 EXIT79
2466                     <FRAME '\1aIN-AC?>
2467                     <PUSH AMT6>
2468                     <PUSH 'VALUE>
2469                     <CALL '\1aIN-AC? 2 = CNT-AC14>
2470                     <TYPE? CNT-AC14 <TYPE-CODE FALSE> + EXIT90>
2471                     <FRAME '\1aWILL-DIE?>
2472                     <PUSH AMT6>
2473                     <CALL '\1aWILL-DIE? 1 = TEMP15>
2474                     <TYPE? TEMP15 <TYPE-CODE FALSE> + BOOL86>
2475                     <DEAD TEMP15>
2476                     <FRAME '\1aDEAD!-MIMOC>
2477                     <CONS AMT6 () = STACK>
2478                     <PUSH 'T>
2479                     <CALL '\1aDEAD!-MIMOC 2 = TEMP15>
2480                     <TYPE? TEMP15 <TYPE-CODE FALSE> - BOOL85>
2481                     <DEAD TEMP15>
2482 BOOL86
2483                     <FRAME '\1aGET-AC>
2484                     <PUSH CNT-AC14>
2485                     <CALL '\1aGET-AC 1 = TEMP15>
2486                     <NTHUV TEMP15 5 = TEMP15>
2487                     <TYPE? TEMP15 <TYPE-CODE FALSE> - EXIT90>
2488                     <DEAD TEMP15>
2489 BOOL85
2490                     <FRAME '\1aMUNGED-AC>
2491                     <PUSH CNT-AC14>
2492                     <PUSH 'T>
2493                     <CALL '\1aMUNGED-AC 2 = LST5>
2494                     <TYPE? LST5 <TYPE-CODE FALSE> - PHRASE94>
2495                     <DEAD LST5>
2496 EXIT90
2497                     <FRAME '\1aOCEMIT>
2498                     <PUSH 'MOVE>
2499                     <SET CNT-AC14 'O* (TYPE ATOM)>
2500                     <PUSH CNT-AC14>
2501                     <SET TEMP15 2 (TYPE FIX)>
2502                     <SFRAME 'OBJ-VAL>
2503                     <PUSH AMT6>
2504                     <SCALL '\1aOBJ-VAL 1 = LST5 + TAG95 TEMP15>
2505                     <LOOP (LST5 TYPE VALUE LENGTH) (TEMP15 VALUE)>
2506 TAG98
2507                     <INTGO>
2508                     <EMPTY? LST5 + TAG95>
2509                     <NTH1 LST5 = STACK>
2510                     <REST1 LST5 = LST5>
2511                     <ADD TEMP15 1 = TEMP15 (TYPE FIX)>
2512                     <JUMP + TAG98>
2513 TAG95
2514                     <CALL '\1aOCEMIT TEMP15>
2515                     <DEAD TEMP15>
2516 PHRASE94
2517                     <FRAME '\1aOCEMIT>
2518                     <PUSH 'SOJE>
2519                     <PUSH CNT-AC14>
2520                     <FRAME '\1aXJUMP>
2521                     <PUSH END9>
2522                     <CALL '\1aXJUMP 1 = STACK>
2523                     <CALL '\1aOCEMIT 3>
2524                     <PUSH LOOP8>
2525                     <SET LST5 1 (TYPE FIX)>
2526                     <GVAL 'LOOPTAGS = TEMP15>
2527                     <TYPE TEMP15 = TEMP108>
2528                     <AND TEMP108 7 = TEMP108>
2529                     <VEQUAL? TEMP108 1 + TAG104>
2530                     <DEAD TEMP108>
2531                     <LOOP (TEMP15 TYPE VALUE LENGTH) (LST5 VALUE)>
2532 TAG110
2533                     <INTGO>
2534                     <EMPTY? TEMP15 + TAG109>
2535                     <NTH1 TEMP15 = STACK>
2536                     <REST1 TEMP15 = TEMP15>
2537                     <ADD LST5 1 = LST5 (TYPE FIX)>
2538                     <JUMP + TAG110>
2539 TAG109
2540                     <LIST LST5 = TEMP15 (TYPE LIST)>
2541                     <DEAD LST5>
2542                     <JUMP + TAG106>
2543 TAG104
2544                     <LOOP>
2545 TAG107
2546                     <VEQUAL? LST5 0 + TAG106>
2547                     <POP = TEMP108>
2548                     <CONS TEMP108 TEMP15 = TEMP15 (TYPE LIST)>
2549                     <DEAD TEMP108>
2550                     <SUB LST5 1 = LST5 (TYPE FIX)>
2551                     <JUMP + TAG107>
2552 TAG106
2553                     <SETG 'LOOPTAGS TEMP15>
2554                     <DEAD TEMP15>
2555                     <FRAME '\1aLABEL>
2556                     <PUSH LOOP8>
2557                     <CALL '\1aLABEL 1>
2558                     <FRAME '\1aOCEMIT>
2559                     <PUSH 'MOVE>
2560                     <PUSH AC11>
2561                     <CONS AC11 () = STACK>
2562                     <CALL '\1aOCEMIT 3>
2563                     <FRAME '\1aOCEMIT>
2564                     <PUSH 'SOJN>
2565                     <PUSH CNT-AC14>
2566                     <DEAD CNT-AC14>
2567                     <FRAME '\1aXJUMP>
2568                     <PUSH LOOP8>
2569                     <DEAD LOOP8>
2570                     <CALL '\1aXJUMP 1 = STACK>
2571                     <CALL '\1aOCEMIT 3>
2572                     <FRAME '\1aLABEL>
2573                     <PUSH END9>
2574                     <DEAD END9>
2575                     <CALL '\1aLABEL 1>
2576 PHRASE63
2577                     <FRAME '\1aDO-PUT>
2578                     <PUSH PUT-TYP13>
2579                     <DEAD PUT-TYP13>
2580                     <PUSH AC11>
2581                     <PUSH VAL7>
2582                     <DEAD VAL7>
2583                     <PUSH 1>
2584                     <CALL '\1aDO-PUT 4>
2585                     <EQUAL? AMT6 1 - TAG119>
2586                     <DEAD AMT6>
2587                     <RETURN %<>>
2588 TAG119
2589                     <TYPE? TAC10 <TYPE-CODE FALSE> + PHRASE121>
2590                     <FRAME '\1aMUNGED-AC>
2591                     <PUSH TAC10>
2592                     <DEAD TAC10>
2593                     <PUSH 'T>
2594                     <CALL '\1aMUNGED-AC 2 = TEMP15>
2595                     <RETURN TEMP15>
2596                     <DEAD TEMP15>
2597 PHRASE121
2598                     <FRAME '\1aMUNGED-AC>
2599                     <PUSH AC11>
2600                     <DEAD AC11>
2601                     <CALL '\1aMUNGED-AC 1 = TEMP15>
2602                     <RETURN TEMP15>
2603                     <DEAD TEMP15>
2604                     <END \1aPUTL!-MIMOC>\r\r
2605 #WORD *34337035073*
2606 <GFCN \1aDO-PUT ("VALUE" ANY ANY ANY ANY FIX) PUT-TYP4 AC5 VAL6 OFFS7>
2607                     <TEMP TEMP14 NAC8>
2608                     <INTGO>
2609                     <TYPE? PUT-TYP4 <TYPE-CODE FALSE> + PHRASE10>
2610                     <FRAME '\1aDECL-HACK>
2611                     <TYPE? PUT-TYP4 <TYPE-CODE LIST> - PHRASE13>
2612                     <RESTL PUT-TYP4 1 = TEMP14 (TYPE LIST)>
2613                     <DEAD PUT-TYP4>
2614                     <NTHL TEMP14 1 = TEMP14>
2615                     <JUMP + PHRASE15>
2616 PHRASE13
2617                     <SET TEMP14 PUT-TYP4>
2618                     <DEAD PUT-TYP4>
2619 PHRASE15
2620                     <PUSH TEMP14>
2621                     <DEAD TEMP14>
2622                     <CALL '\1aDECL-HACK 1 = PUT-TYP4>
2623 PHRASE10
2624                     <TYPE? PUT-TYP4 <TYPE-CODE FALSE> + PHRASE17>
2625                     <TYPE? VAL6 <TYPE-CODE ATOM> - BOOL19>
2626                     <FRAME '\1aIN-AC?>
2627                     <PUSH VAL6>
2628                     <PUSH 'VALUE>
2629                     <CALL '\1aIN-AC? 2 = NAC8>
2630                     <TYPE? NAC8 <TYPE-CODE FALSE> + PHRASE17>
2631 BOOL19
2632                     <TYPE? VAL6 <TYPE-CODE ATOM> - PHRASE22>
2633                     <FRAME '\1aOCEMIT>
2634                     <PUSH 'MOVEM>
2635                     <PUSH NAC8>
2636                     <DEAD NAC8>
2637                     <ADD OFFS7 1 = STACK (TYPE FIX)>
2638                     <DEAD OFFS7>
2639                     <CONS AC5 () = STACK>
2640                     <DEAD AC5>
2641                     <CALL '\1aOCEMIT 4 = TEMP14>
2642                     <RETURN TEMP14>
2643                     <DEAD TEMP14>
2644 PHRASE22
2645                     <FRAME '\1aPRIMTYPE>
2646                     <PUSH VAL6>
2647                     <CALL '\1aPRIMTYPE 1 = TEMP14>
2648                     <VEQUAL? TEMP14 'LIST - BOOL26>
2649                     <DEAD TEMP14>
2650                     <EMPTY? VAL6 + BOOL25>
2651 BOOL26
2652                     <FRAME '\1aPRIMTYPE>
2653                     <PUSH VAL6>
2654                     <CALL '\1aPRIMTYPE 1 = TEMP14>
2655                     <VEQUAL? TEMP14 'FIX - PHRASE24>
2656                     <DEAD TEMP14>
2657                     <VEQUAL? VAL6 0 - PHRASE24 (TYPE FIX)>
2658 BOOL25
2659                     <FRAME '\1aOCEMIT>
2660                     <PUSH 'SETZM>
2661                     <ADD OFFS7 1 = STACK (TYPE FIX)>
2662                     <DEAD OFFS7>
2663                     <CONS AC5 () = STACK>
2664                     <DEAD AC5>
2665                     <CALL '\1aOCEMIT 3 = TEMP14>
2666                     <RETURN TEMP14>
2667                     <DEAD TEMP14>
2668 PHRASE24
2669                     <FRAME '\1aPRIMTYPE>
2670                     <PUSH VAL6>
2671                     <CALL '\1aPRIMTYPE 1 = TEMP14>
2672                     <VEQUAL? TEMP14 'FIX - PHRASE34>
2673                     <DEAD TEMP14>
2674                     <VEQUAL? VAL6 -1 - PHRASE34 (TYPE FIX)>
2675                     <FRAME '\1aOCEMIT>
2676                     <PUSH 'SETOM>
2677                     <ADD OFFS7 1 = STACK (TYPE FIX)>
2678                     <DEAD OFFS7>
2679                     <CONS AC5 () = STACK>
2680                     <DEAD AC5>
2681                     <CALL '\1aOCEMIT 3 = TEMP14>
2682                     <RETURN TEMP14>
2683                     <DEAD TEMP14>
2684 PHRASE34
2685                     <FRAME '\1aFLUSH-AC>
2686                     <PUSH 'O*>
2687                     <CALL '\1aFLUSH-AC 1>
2688                     <FRAME '\1aMUNGED-AC>
2689                     <PUSH 'O*>
2690                     <CALL '\1aMUNGED-AC 1>
2691                     <FRAME '\1aGET-INTO-ACS>
2692                     <PUSH VAL6>
2693                     <DEAD VAL6>
2694                     <PUSH 'VALUE>
2695                     <PUSH 'O*>
2696                     <CALL '\1aGET-INTO-ACS 3>
2697                     <FRAME '\1aOCEMIT>
2698                     <PUSH 'MOVEM>
2699                     <PUSH 'O*>
2700                     <ADD OFFS7 1 = STACK (TYPE FIX)>
2701                     <DEAD OFFS7>
2702                     <CONS AC5 () = STACK>
2703                     <DEAD AC5>
2704                     <CALL '\1aOCEMIT 4 = TEMP14>
2705                     <RETURN TEMP14>
2706                     <DEAD TEMP14>
2707 PHRASE17
2708                     <TYPE? PUT-TYP4 <TYPE-CODE FALSE> + PHRASE45>
2709                     <DEAD PUT-TYP4>
2710                     <FRAME '\1aIN-AC?>
2711                     <PUSH VAL6>
2712                     <PUSH 'VALUE>
2713                     <CALL '\1aIN-AC? 2 = NAC8>
2714                     <TYPE? NAC8 <TYPE-CODE FALSE> - PHRASE52>
2715                     <TYPE? VAL6 <TYPE-CODE ATOM> - BOOL49>
2716                     <FRAME '\1aWILL-DIE?>
2717                     <PUSH VAL6>
2718                     <CALL '\1aWILL-DIE? 1 = TEMP14>
2719                     <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE48>
2720                     <DEAD TEMP14>
2721 BOOL49
2722                     <FRAME '\1aGET-INTO-ACS>
2723                     <PUSH VAL6>
2724                     <DEAD VAL6>
2725                     <PUSH 'VALUE>
2726                     <SET NAC8 'O* (TYPE ATOM)>
2727                     <PUSH NAC8>
2728                     <CALL '\1aGET-INTO-ACS 3>
2729                     <JUMP + PHRASE52>
2730 PHRASE48
2731                     <FRAME '\1aNEXT-AC>
2732                     <FRAME '\1aLOAD-AC>
2733                     <PUSH VAL6>
2734                     <DEAD VAL6>
2735                     <PUSH 'BOTH>
2736                     <CALL '\1aLOAD-AC 2 = STACK>
2737                     <CALL '\1aNEXT-AC 1 = NAC8>
2738 PHRASE52
2739                     <FRAME '\1aOCEMIT>
2740                     <PUSH 'MOVEM>
2741                     <PUSH NAC8>
2742                     <DEAD NAC8>
2743                     <ADD OFFS7 1 = STACK (TYPE FIX)>
2744                     <DEAD OFFS7>
2745                     <CONS AC5 () = STACK>
2746                     <DEAD AC5>
2747                     <CALL '\1aOCEMIT 4 = TEMP14>
2748                     <RETURN TEMP14>
2749                     <DEAD TEMP14>
2750 PHRASE45
2751                     <FRAME '\1aIN-AC?>
2752                     <PUSH VAL6>
2753                     <PUSH 'BOTH>
2754                     <CALL '\1aIN-AC? 2 = NAC8>
2755                     <TYPE? NAC8 <TYPE-CODE FALSE> - PHRASE63>
2756                     <TYPE? VAL6 <TYPE-CODE ATOM> - BOOL60>
2757                     <FRAME '\1aWILL-DIE?>
2758                     <PUSH VAL6>
2759                     <CALL '\1aWILL-DIE? 1 = TEMP14>
2760                     <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE59>
2761                     <DEAD TEMP14>
2762 BOOL60
2763                     <FRAME '\1aGET-INTO-ACS>
2764                     <PUSH VAL6>
2765                     <DEAD VAL6>
2766                     <PUSH 'BOTH>
2767                     <SET NAC8 'O1* (TYPE ATOM)>
2768                     <PUSH NAC8>
2769                     <CALL '\1aGET-INTO-ACS 3>
2770                     <JUMP + PHRASE63>
2771 PHRASE59
2772                     <FRAME '\1aLOAD-AC>
2773                     <PUSH VAL6>
2774                     <DEAD VAL6>
2775                     <PUSH 'BOTH>
2776                     <CALL '\1aLOAD-AC 2 = NAC8>
2777 PHRASE63
2778                     <FRAME '\1aOCEMIT>
2779                     <PUSH 'DMOVEM>
2780                     <PUSH NAC8>
2781                     <DEAD NAC8>
2782                     <PUSH OFFS7>
2783                     <DEAD OFFS7>
2784                     <CONS AC5 () = STACK>
2785                     <DEAD AC5>
2786                     <CALL '\1aOCEMIT 4 = TEMP14>
2787                     <RETURN TEMP14>
2788                     <DEAD TEMP14>
2789                     <END \1aDO-PUT>
2790 #WORD *21556574551*
2791 <GFCN \1aLENL!-MIMOC ("VALUE" ANY LIST) L4>
2792                     <TEMP LST5 TEMP12 VAL6:ATOM END10:ATOM LOOP11:ATOM TAC9 TEMP21 AC8:ATOM NAC7:ATOM>
2793                     <INTGO>
2794                     <NTHL L4 1 = LST5>
2795                     <RESTL L4 1 = TEMP12 (TYPE LIST)>
2796                     <DEAD L4>
2797                     <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
2798                     <NTHL TEMP12 1 = VAL6 (TYPE ATOM)>
2799                     <DEAD TEMP12>
2800                     <FRAME '\1aGENLBL>
2801                     <PUSH "END">
2802                     <CALL '\1aGENLBL 1 = END10>
2803                     <FRAME '\1aGENLBL>
2804                     <PUSH "LOOP">
2805                     <CALL '\1aGENLBL 1 = LOOP11>
2806                     <FRAME '\1aFLUSH-AC>
2807                     <PUSH 'T*>
2808                     <CALL '\1aFLUSH-AC 1>
2809                     <FRAME '\1aMUNGED-AC>
2810                     <PUSH 'T*>
2811                     <CALL '\1aMUNGED-AC 1>
2812                     <FRAME '\1aIN-AC?>
2813                     <PUSH LST5>
2814                     <PUSH 'VALUE>
2815                     <CALL '\1aIN-AC? 2 = TAC9>
2816                     <TYPE? TAC9 <TYPE-CODE FALSE> + PHRASE18>
2817                     <SETG 'FIRST-AC %<>>
2818                     <FRAME '\1aGET-AC>
2819                     <PUSH TAC9>
2820                     <CALL '\1aGET-AC 1 = TEMP12>
2821                     <GVAL 'AC-STAMP = TEMP21>
2822                     <ADD TEMP21 1 = TEMP21 (TYPE FIX)>
2823                     <SETG 'AC-STAMP TEMP21>
2824                     <PUTUV TEMP12 4 TEMP21 (TYPE FIX)>
2825                     <DEAD TEMP12 TEMP21>
2826                     <FRAME '\1aOCEMIT>
2827                     <PUSH 'MOVEI>
2828                     <PUSH 'T*>
2829                     <PUSH TAC9>
2830                     <DEAD TAC9>
2831                     <CALL '\1aOCEMIT 3>
2832                     <JUMP + PHRASE23>
2833 PHRASE18
2834                     <FRAME '\1aOCEMIT>
2835                     <PUSH 'XMOVEI>
2836                     <PUSH 'T*>
2837                     <SET TEMP21 2 (TYPE FIX)>
2838                     <SFRAME 'OBJ-VAL>
2839                     <PUSH LST5>
2840                     <SCALL '\1aOBJ-VAL 1 = TEMP12 + TAG24 TEMP21>
2841                     <LOOP (TEMP12 TYPE VALUE LENGTH) (TEMP21 VALUE)>
2842 TAG26
2843                     <INTGO>
2844                     <EMPTY? TEMP12 + TAG24>
2845                     <NTH1 TEMP12 = STACK>
2846                     <REST1 TEMP12 = TEMP12>
2847                     <ADD TEMP21 1 = TEMP21 (TYPE FIX)>
2848                     <JUMP + TAG26>
2849 TAG24
2850                     <CALL '\1aOCEMIT TEMP21>
2851                     <DEAD TEMP21>
2852 PHRASE23
2853                     <FRAME '\1aNEXT-AC>
2854                     <FRAME '\1aASSIGN-AC>
2855                     <PUSH VAL6>
2856                     <PUSH 'BOTH>
2857                     <CALL '\1aASSIGN-AC 2 = AC8>
2858                     <PUSH AC8>
2859                     <CALL '\1aNEXT-AC 1 = NAC7>
2860                     <VEQUAL? VAL6 'STACK - PHRASE31>
2861                     <SET NAC7 'O* (TYPE ATOM)>
2862                     <JUMP + PHRASE34>
2863 PHRASE31
2864                     <EQUAL? LST5 VAL6 - PHRASE32>
2865                     <SET NAC7 'O* (TYPE ATOM)>
2866                     <FRAME '\1aGET-AC>
2867                     <PUSH AC8>
2868                     <CALL '\1aGET-AC 1 = TEMP21>
2869                     <PUTUV TEMP21 6 'FIX>
2870                     <DEAD TEMP21>
2871                     <JUMP + PHRASE34>
2872 PHRASE32
2873                     <FRAME '\1aGET-AC>
2874                     <PUSH AC8>
2875                     <CALL '\1aGET-AC 1 = TEMP21>
2876                     <PUTUV TEMP21 6 'FIX>
2877                     <DEAD TEMP21>
2878 PHRASE34
2879                     <FRAME '\1aOCEMIT>
2880                     <PUSH 'MOVSI>
2881                     <PUSH NAC7>
2882                     <PUSH 131072>
2883                     <CALL '\1aOCEMIT 3>
2884                     <PUSH LOOP11>
2885                     <SET TEMP12 1 (TYPE FIX)>
2886                     <GVAL 'LOOPTAGS = TEMP21>
2887                     <TYPE TEMP21 = TAC9>
2888                     <AND TAC9 7 = TAC9>
2889                     <VEQUAL? TAC9 1 + TAG39>
2890                     <DEAD TAC9>
2891                     <LOOP (TEMP21 TYPE VALUE LENGTH) (TEMP12 VALUE)>
2892 TAG45
2893                     <INTGO>
2894                     <EMPTY? TEMP21 + TAG44>
2895                     <NTH1 TEMP21 = STACK>
2896                     <REST1 TEMP21 = TEMP21>
2897                     <ADD TEMP12 1 = TEMP12 (TYPE FIX)>
2898                     <JUMP + TAG45>
2899 TAG44
2900                     <LIST TEMP12 = TEMP21 (TYPE LIST)>
2901                     <DEAD TEMP12>
2902                     <JUMP + TAG41>
2903 TAG39
2904                     <LOOP>
2905 TAG42
2906                     <VEQUAL? TEMP12 0 + TAG41>
2907                     <POP = TAC9>
2908                     <CONS TAC9 TEMP21 = TEMP21 (TYPE LIST)>
2909                     <DEAD TAC9>
2910                     <SUB TEMP12 1 = TEMP12 (TYPE FIX)>
2911                     <JUMP + TAG42>
2912 TAG41
2913                     <SETG 'LOOPTAGS TEMP21>
2914                     <DEAD TEMP21>
2915                     <FRAME '\1aLABEL>
2916                     <PUSH LOOP11>
2917                     <CALL '\1aLABEL 1>
2918                     <FRAME '\1aOCEMIT>
2919                     <PUSH 'SKIPE>
2920                     <PUSH 'T*>
2921                     <PUSH (T*)>
2922                     <CALL '\1aOCEMIT 3>
2923                     <FRAME '\1aOCEMIT>
2924                     <PUSH 'AOBJN>
2925                     <PUSH NAC7>
2926                     <FRAME '\1aXJUMP>
2927                     <PUSH LOOP11>
2928                     <DEAD LOOP11>
2929                     <CALL '\1aXJUMP 1 = STACK>
2930                     <CALL '\1aOCEMIT 3>
2931                     <FRAME '\1aLABEL>
2932                     <PUSH END10>
2933                     <DEAD END10>
2934                     <CALL '\1aLABEL 1>
2935                     <VEQUAL? VAL6 'STACK - PHRASE52>
2936                     <FRAME '\1aOCEMIT>
2937                     <PUSH 'PUSH>
2938                     <PUSH 'TP*>
2939                     <SET TAC9 2 (TYPE FIX)>
2940                     <SFRAME 'TYPE-WORD>
2941                     <PUSH 'FIX>
2942                     <SCALL '\1aTYPE-WORD 1 = TEMP21 + TAG53 TAC9>
2943                     <LOOP (TEMP21 TYPE VALUE LENGTH) (TAC9 VALUE)>
2944 TAG55
2945                     <INTGO>
2946                     <EMPTY? TEMP21 + TAG53>
2947                     <NTH1 TEMP21 = STACK>
2948                     <REST1 TEMP21 = TEMP21>
2949                     <ADD TAC9 1 = TAC9 (TYPE FIX)>
2950                     <JUMP + TAG55>
2951 TAG53
2952                     <CALL '\1aOCEMIT TAC9>
2953                     <DEAD TAC9>
2954                     <FRAME '\1aOCEMIT>
2955                     <PUSH 'ANDI>
2956                     <PUSH 'O*>
2957                     <PUSH 262143>
2958                     <CALL '\1aOCEMIT 3>
2959                     <FRAME '\1aOCEMIT>
2960                     <PUSH 'PUSH>
2961                     <PUSH 'TP*>
2962                     <PUSH 'O*>
2963                     <CALL '\1aOCEMIT 3>
2964                     <GVAL 'WINNING-VICTIM = TAC9>
2965                     <TYPE? TAC9 <TYPE-CODE FALSE> + PHRASE64>
2966                     <GVAL 'STACK-DEPTH = TEMP21>
2967                     <ADD TEMP21 2 = TEMP21 (TYPE FIX)>
2968                     <SETG 'STACK-DEPTH TEMP21>
2969                     <RETURN TEMP21>
2970                     <DEAD TEMP21>
2971 PHRASE52
2972                     <EQUAL? VAL6 LST5 - PHRASE61>
2973                     <DEAD VAL6 LST5>
2974                     <FRAME '\1aOCEMIT>
2975                     <PUSH 'HRRZ>
2976                     <FRAME '\1aNEXT-AC>
2977                     <PUSH AC8>
2978                     <DEAD AC8>
2979                     <CALL '\1aNEXT-AC 1 = STACK>
2980                     <PUSH 'O*>
2981                     <CALL '\1aOCEMIT 3 = TAC9>
2982                     <RETURN TAC9>
2983                     <DEAD TAC9>
2984 PHRASE61
2985                     <FRAME '\1aOCEMIT>
2986                     <PUSH 'MOVEI>
2987                     <PUSH NAC7>
2988                     <CONS NAC7 () = STACK>
2989                     <DEAD NAC7>
2990                     <CALL '\1aOCEMIT 3 = TAC9>
2991 PHRASE64
2992                     <RETURN TAC9>
2993                     <DEAD TAC9>
2994                     <END \1aLENL!-MIMOC>
2995 \\r\r
2996
2997 #WORD *15432511053*
2998 <GFCN \1aNTHU!-MIMOC ("VALUE" ANY LIST) L5>
2999                     <TEMP L16 TEMP11 TEMP10 TEMP17>
3000                     <INTGO>
3001                     <NTHL L5 1 = L16>
3002                     <FRAME '\1aUPDATE-ACS>
3003                     <CALL '\1aUPDATE-ACS 0>
3004                     <FRAME '\1aSMASH-AC>
3005                     <PUSH 'A1*>
3006                     <PUSH L16>
3007                     <PUSH 'TYPE>
3008                     <CALL '\1aSMASH-AC 3>
3009                     <FRAME '\1aOCEMIT>
3010                     <PUSH 'MOVE>
3011                     <PUSH 'O1*>
3012                     <SET TEMP11 2 (TYPE FIX)>
3013                     <SFRAME 'OBJ-VAL>
3014                     <PUSH L16>
3015                     <DEAD L16>
3016                     <SCALL '\1aOBJ-VAL 1 = TEMP10 + TAG9 TEMP11>
3017                     <LOOP (TEMP10 TYPE VALUE LENGTH) (TEMP11 VALUE)>
3018 TAG13
3019                     <INTGO>
3020                     <EMPTY? TEMP10 + TAG9>
3021                     <NTH1 TEMP10 = STACK>
3022                     <REST1 TEMP10 = TEMP10>
3023                     <ADD TEMP11 1 = TEMP11 (TYPE FIX)>
3024                     <JUMP + TAG13>
3025 TAG9
3026                     <DEAD TEMP10>
3027                     <CALL '\1aOCEMIT TEMP11>
3028                     <DEAD TEMP11>
3029                     <FRAME '\1aOCEMIT>
3030                     <PUSH 'MOVE>
3031                     <PUSH 'O2*>
3032                     <SET TEMP10 2 (TYPE FIX)>
3033                     <SFRAME 'OBJ-VAL>
3034                     <RESTL L5 1 = TEMP17 (TYPE LIST)>
3035                     <NTHL TEMP17 1 = STACK>
3036                     <DEAD TEMP17>
3037                     <SCALL '\1aOBJ-VAL 1 = TEMP11 + TAG15 TEMP10>
3038                     <LOOP (TEMP11 TYPE VALUE LENGTH) (TEMP10 VALUE)>
3039 TAG18
3040                     <INTGO>
3041                     <EMPTY? TEMP11 + TAG15>
3042                     <NTH1 TEMP11 = STACK>
3043                     <REST1 TEMP11 = TEMP11>
3044                     <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
3045                     <JUMP + TAG18>
3046 TAG15
3047                     <DEAD TEMP11>
3048                     <CALL '\1aOCEMIT TEMP10>
3049                     <DEAD TEMP10>
3050                     <FRAME '\1aPUSHJ>
3051                     <PUSH 'NTHU>
3052                     <RESTL L5 1 = TEMP17 (TYPE LIST)>
3053                     <DEAD L5>
3054                     <RESTL TEMP17 1 = TEMP17 (TYPE LIST)>
3055                     <RESTL TEMP17 1 = TEMP17 (TYPE LIST)>
3056                     <NTHL TEMP17 1 = STACK>
3057                     <DEAD TEMP17>
3058                     <CALL '\1aPUSHJ 2 = TEMP17>
3059                     <RETURN TEMP17>
3060                     <DEAD TEMP17>
3061                     <END \1aNTHU!-MIMOC>
3062 #WORD *510061535*
3063 <GFCN \1aRESTU!-MIMOC ("VALUE" ANY LIST) L5>
3064                     <TEMP TEMP10:FIX TEMP12 TEMP9>
3065                     <INTGO>
3066                     <FRAME '\1aUPDATE-ACS>
3067                     <CALL '\1aUPDATE-ACS 0>
3068                     <FRAME '\1aSMASH-AC>
3069                     <PUSH 'A1*>
3070                     <NTHL L5 1 = STACK>
3071                     <PUSH 'BOTH>
3072                     <CALL '\1aSMASH-AC 3>
3073                     <FRAME '\1aOCEMIT>
3074                     <PUSH 'MOVE>
3075                     <PUSH 'O2*>
3076                     <SET TEMP10 2 (TYPE FIX)>
3077                     <SFRAME 'OBJ-VAL>
3078                     <RESTL L5 1 = TEMP12 (TYPE LIST)>
3079                     <NTHL TEMP12 1 = STACK>
3080                     <DEAD TEMP12>
3081                     <SCALL '\1aOBJ-VAL 1 = TEMP9 + TAG8 TEMP10>
3082                     <LOOP (TEMP9 TYPE VALUE LENGTH) (TEMP10 VALUE)>
3083 TAG13
3084                     <INTGO>
3085                     <EMPTY? TEMP9 + TAG8>
3086                     <NTH1 TEMP9 = STACK>
3087                     <REST1 TEMP9 = TEMP9>
3088                     <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
3089                     <JUMP + TAG13>
3090 TAG8
3091                     <DEAD TEMP9>
3092                     <CALL '\1aOCEMIT TEMP10>
3093                     <DEAD TEMP10>
3094                     <FRAME '\1aPUSHJ>
3095                     <PUSH 'RESTU>
3096                     <RESTL L5 1 = TEMP12 (TYPE LIST)>
3097                     <DEAD L5>
3098                     <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
3099                     <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
3100                     <NTHL TEMP12 1 = STACK>
3101                     <DEAD TEMP12>
3102                     <CALL '\1aPUSHJ 2 = TEMP12>
3103                     <RETURN TEMP12>
3104                     <DEAD TEMP12>
3105                     <END \1aRESTU!-MIMOC>
3106 #WORD *5510060235*
3107 <GFCN \1aBACKU!-MIMOC ("VALUE" ANY LIST) L5>
3108                     <TEMP TEMP10:FIX TEMP12 TEMP9>
3109                     <INTGO>
3110                     <FRAME '\1aUPDATE-ACS>
3111                     <CALL '\1aUPDATE-ACS 0>
3112                     <FRAME '\1aSMASH-AC>
3113                     <PUSH 'A1*>
3114                     <NTHL L5 1 = STACK>
3115                     <PUSH 'BOTH>
3116                     <CALL '\1aSMASH-AC 3>
3117                     <FRAME '\1aOCEMIT>
3118                     <PUSH 'MOVE>
3119                     <PUSH 'O2*>
3120                     <SET TEMP10 2 (TYPE FIX)>
3121                     <SFRAME 'OBJ-VAL>
3122                     <RESTL L5 1 = TEMP12 (TYPE LIST)>
3123                     <NTHL TEMP12 1 = STACK>
3124                     <DEAD TEMP12>
3125                     <SCALL '\1aOBJ-VAL 1 = TEMP9 + TAG8 TEMP10>
3126                     <LOOP (TEMP9 TYPE VALUE LENGTH) (TEMP10 VALUE)>
3127 TAG13
3128                     <INTGO>
3129                     <EMPTY? TEMP9 + TAG8>
3130                     <NTH1 TEMP9 = STACK>
3131                     <REST1 TEMP9 = TEMP9>
3132                     <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
3133                     <JUMP + TAG13>
3134 TAG8
3135                     <DEAD TEMP9>
3136                     <CALL '\1aOCEMIT TEMP10>
3137                     <DEAD TEMP10>
3138                     <FRAME '\1aPUSHJ>
3139                     <PUSH 'BACKU>
3140                     <RESTL L5 1 = TEMP12 (TYPE LIST)>
3141                     <DEAD L5>
3142                     <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
3143                     <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
3144                     <NTHL TEMP12 1 = STACK>
3145                     <DEAD TEMP12>
3146                     <CALL '\1aPUSHJ 2 = TEMP12>
3147                     <RETURN TEMP12>
3148                     <DEAD TEMP12>
3149                     <END \1aBACKU!-MIMOC>
3150 #WORD *3200371507*
3151 <GFCN \1aTOPU!-MIMOC ("VALUE" ANY LIST) L5>
3152                     <TEMP TEMP9>
3153                     <INTGO>
3154                     <FRAME '\1aUPDATE-ACS>
3155                     <CALL '\1aUPDATE-ACS 0>
3156                     <FRAME '\1aSMASH-AC>
3157                     <PUSH 'A1*>
3158                     <NTHL L5 1 = STACK>
3159                     <PUSH 'BOTH>
3160                     <CALL '\1aSMASH-AC 3>
3161                     <FRAME '\1aPUSHJ>
3162                     <PUSH 'TOPU>
3163                     <RESTL L5 1 = TEMP9 (TYPE LIST)>
3164                     <DEAD L5>
3165                     <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
3166                     <NTHL TEMP9 1 = STACK>
3167                     <DEAD TEMP9>
3168                     <CALL '\1aPUSHJ 2 = TEMP9>
3169                     <RETURN TEMP9>
3170                     <DEAD TEMP9>
3171                     <END \1aTOPU!-MIMOC>
3172 <SETG TOPUV!-MIMOC ,TOPU!-MIMOC>
3173
3174 <SETG TOPUS!-MIMOC ,TOPU!-MIMOC>
3175
3176 <SETG TOPUB!-MIMOC ,TOPU!-MIMOC>
3177
3178 #WORD *12433061241*
3179 <GFCN \1aPUTU!-MIMOC ("VALUE" ANY LIST) L5>
3180                     <TEMP TEMP9 TEMP11 TEMP13:LIST>
3181                     <INTGO>
3182                     <FRAME '\1aUPDATE-ACS>
3183                     <CALL '\1aUPDATE-ACS 0>
3184                     <FRAME '\1aSMASH-AC>
3185                     <PUSH 'A1*>
3186                     <NTHL L5 1 = STACK>
3187                     <PUSH 'BOTH>
3188                     <CALL '\1aSMASH-AC 3>
3189                     <FRAME '\1aSMASH-AC>
3190                     <PUSH 'B1*>
3191                     <RESTL L5 1 = TEMP9 (TYPE LIST)>
3192                     <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
3193                     <NTHL TEMP9 1 = STACK>
3194                     <DEAD TEMP9>
3195                     <PUSH 'BOTH>
3196                     <CALL '\1aSMASH-AC 3>
3197                     <FRAME '\1aOCEMIT>
3198                     <PUSH 'MOVE>
3199                     <PUSH 'O2*>
3200                     <SET TEMP11 2 (TYPE FIX)>
3201                     <SFRAME 'OBJ-VAL>
3202                     <RESTL L5 1 = L5 (TYPE LIST)>
3203                     <NTHL L5 1 = STACK>
3204                     <DEAD L5>
3205                     <SCALL '\1aOBJ-VAL 1 = TEMP9 + TAG10 TEMP11>
3206                     <LOOP (TEMP9 TYPE VALUE LENGTH) (TEMP11 VALUE)>
3207 TAG14
3208                     <INTGO>
3209                     <EMPTY? TEMP9 + TAG10>
3210                     <NTH1 TEMP9 = STACK>
3211                     <REST1 TEMP9 = TEMP9>
3212                     <ADD TEMP11 1 = TEMP11 (TYPE FIX)>
3213                     <JUMP + TAG14>
3214 TAG10
3215                     <DEAD TEMP9>
3216                     <CALL '\1aOCEMIT TEMP11>
3217                     <DEAD TEMP11>
3218                     <FRAME '\1aPUSHJ>
3219                     <PUSH 'PUTU>
3220                     <CALL '\1aPUSHJ 1 = TEMP11>
3221                     <RETURN TEMP11>
3222                     <DEAD TEMP11>
3223                     <END \1aPUTU!-MIMOC>
3224 #WORD *11232663210*
3225 <GFCN \1aNTHUU!-MIMOC ("VALUE" ANY LIST) L5>
3226                     <TEMP TEMP7>
3227                     <INTGO>
3228                     <FRAME '\1aNTHUV!-MIMOC>
3229                     <PUSH L5>
3230                     <DEAD L5>
3231                     <PUSH 'T>
3232                     <CALL '\1aNTHUV!-MIMOC 2 = TEMP7>
3233                     <RETURN TEMP7>
3234                     <DEAD TEMP7>
3235                     <END \1aNTHUU!-MIMOC>
3236 #WORD *36750734674*
3237 <GFCN \1aNTHUV!-MIMOC ("VALUE" ANY LIST "OPTIONAL" ANY ANY ANY ANY) L14 UV?15 AOS16 NOT-DEAD?17 LEN-VAR18>
3238                     <OPT-DISPATCH 1 %<> OPT9 OPT10 OPT11 OPT12 OPT13>
3239 OPT9
3240                     <PUSH %<>>
3241 OPT10
3242                     <PUSH %<>>
3243 OPT11
3244                     <PUSH 'T>
3245 OPT12
3246                     <PUSH #T$UNBOUND 0>
3247 OPT13
3248                     <TEMP V19 (TEMP28 %<>) AMT20 VAL23 NAC25 (AHEAD27 %<>) AC24 TEMP57 NUM26 TEMP156>
3249                     <INTGO>
3250                     <NTHL L14 1 = V19>
3251                     <RESTL L14 1 = TEMP28 (TYPE LIST)>
3252                     <NTHL TEMP28 1 = AMT20>
3253                     <DEAD TEMP28>
3254                     <RESTL L14 1 = TEMP28 (TYPE LIST)>
3255                     <RESTL TEMP28 1 = TEMP28 (TYPE LIST)>
3256                     <RESTL TEMP28 1 = TEMP28 (TYPE LIST)>
3257                     <NTHL TEMP28 1 = VAL23 (TYPE ATOM)>
3258                     <DEAD TEMP28>
3259                     <TYPE? AOS16 <TYPE-CODE FALSE> - BOOL30>
3260                     <FRAME '\1aNTH-PUT-LOOK-AHEAD>
3261                     <PUSH L14>
3262                     <DEAD L14>
3263                     <TYPE? UV?15 <TYPE-CODE FALSE> + PHRASE33>
3264                     <SET TEMP28 "PUTUU" (TYPE STRING)>
3265                     <JUMP + COND32>
3266 PHRASE33
3267                     <SET TEMP28 "PUTUV" (TYPE STRING)>
3268 COND32
3269                     <PUSH TEMP28>
3270                     <DEAD TEMP28>
3271                     <PUSH V19>
3272                     <PUSH AMT20>
3273                     <PUSH VAL23>
3274                     <CALL '\1aNTH-PUT-LOOK-AHEAD 5 = TEMP28>
3275                     <TYPE? TEMP28 <TYPE-CODE FALSE> - PHRASE217>
3276 BOOL30
3277                     <TYPE? LEN-VAR18 <TYPE-CODE UNBOUND> + PHRASE37>
3278                     <TYPE? NOT-DEAD?17 <TYPE-CODE FALSE> + PHRASE37>
3279                     <SET VAL23 LEN-VAR18>
3280                     <DEAD LEN-VAR18>
3281 PHRASE37
3282                     <FRAME '\1aIN-AC?>
3283                     <PUSH V19>
3284                     <PUSH 'BOTH>
3285                     <CALL '\1aIN-AC? 2 = TEMP28>
3286                     <TYPE? TEMP28 <TYPE-CODE FALSE> + BOOL42>
3287                     <FRAME '\1aNEXT-AC>
3288                     <PUSH TEMP28>
3289                     <DEAD TEMP28>
3290                     <CALL '\1aNEXT-AC 1 = AC24>
3291                     <TYPE? AC24 <TYPE-CODE FALSE> - PHRASE40>
3292 BOOL42
3293                     <FRAME '\1aIN-AC?>
3294                     <PUSH V19>
3295                     <PUSH 'VALUE>
3296                     <CALL '\1aIN-AC? 2 = AC24>
3297                     <TYPE? AC24 <TYPE-CODE FALSE> - PHRASE40>
3298                     <EQUAL? AMT20 1 - BOOL46>
3299                     <TYPE? AOS16 <TYPE-CODE FALSE> - BOOL48>
3300                     <VEQUAL? VAL23 'STACK - PHRASE40>
3301 BOOL48
3302                     <TYPE? UV?15 <TYPE-CODE FALSE> - PHRASE40>
3303                     <EQUAL? AOS16 'HRRZ + PHRASE40>
3304 BOOL46
3305                     <TYPE? AMT20 <TYPE-CODE FIX> - PHRASE40>
3306                     <TYPE? AOS16 <TYPE-CODE FALSE> - PHRASE50>
3307                     <EQUAL? V19 VAL23 + PHRASE50>
3308                     <FRAME '\1aLOOK-AHEAD>
3309                     <GEN-LVAL 'MIML = TEMP28>
3310                     <REST1 TEMP28 = STACK>
3311                     <DEAD TEMP28>
3312                     <PUSH VAL23>
3313                     <PUSH 'BOTH>
3314                     <CALL '\1aLOOK-AHEAD 3 = AHEAD27>
3315                     <TYPE? AHEAD27 <TYPE-CODE FALSE> + PHRASE50>
3316                     <GVAL 'AC-STAMP = TEMP28>
3317                     <ADD TEMP28 1 = TEMP28 (TYPE FIX)>
3318                     <SETG 'AC-STAMP TEMP28>
3319                     <PUTUV AHEAD27 4 TEMP28 (TYPE FIX)>
3320                     <DEAD TEMP28>
3321                     <FRAME '\1aGET-AC>
3322                     <FRAME '\1aNEXT-AC>
3323                     <PUSH AHEAD27>
3324                     <CALL '\1aNEXT-AC 1 = STACK>
3325                     <CALL '\1aGET-AC 1 = TEMP28>
3326                     <GVAL 'AC-STAMP = TEMP57>
3327                     <PUTUV TEMP28 4 TEMP57 (TYPE FIX)>
3328                     <DEAD TEMP28 TEMP57>
3329 PHRASE50
3330                     <FRAME '\1aNEXT-AC>
3331                     <FRAME '\1aLOAD-AC>
3332                     <PUSH V19>
3333                     <PUSH 'BOTH>
3334                     <CALL '\1aLOAD-AC 2 = TEMP28>
3335                     <PUSH TEMP28>
3336                     <DEAD TEMP28>
3337                     <CALL '\1aNEXT-AC 1 = AC24>
3338                     <JUMP + PHRASE60>
3339 PHRASE40
3340                     <TYPE? AC24 <TYPE-CODE FALSE> + PHRASE60>
3341                     <SETG 'FIRST-AC %<>>
3342                     <FRAME '\1aGET-AC>
3343                     <PUSH AC24>
3344                     <CALL '\1aGET-AC 1 = TEMP28>
3345                     <GVAL 'AC-STAMP = TEMP57>
3346                     <ADD TEMP57 1 = TEMP57 (TYPE FIX)>
3347                     <SETG 'AC-STAMP TEMP57>
3348                     <PUTUV TEMP28 4 TEMP57 (TYPE FIX)>
3349                     <DEAD TEMP28 TEMP57>
3350 PHRASE60
3351                     <TYPE? AMT20 <TYPE-CODE FIX> - PHRASE63>
3352                     <TYPE? NOT-DEAD?17 <TYPE-CODE FALSE> + PHRASE65>
3353                     <VEQUAL? VAL23 'STACK + PHRASE65>
3354                     <FRAME '\1aLOAD-AC>
3355                     <PUSH VAL23>
3356                     <PUSH 'BOTH>
3357                     <PUSH 'T>
3358                     <PUSH 'T>
3359                     <PUSH AHEAD27>
3360                     <DEAD AHEAD27>
3361                     <CALL '\1aLOAD-AC 5 = NAC25>
3362 PHRASE65
3363                     <TYPE? UV?15 <TYPE-CODE FALSE> + PHRASE69>
3364                     <SUB AMT20 1 = NUM26 (TYPE FIX)>
3365                     <DEAD AMT20>
3366                     <JUMP + PHRASE70>
3367 PHRASE69
3368                     <SUB AMT20 1 = TEMP57 (TYPE FIX)>
3369                     <DEAD AMT20>
3370                     <LSH TEMP57 1 = NUM26 (TYPE FIX)>
3371                     <DEAD TEMP57>
3372 PHRASE70
3373                     <EQUAL? AOS16 'HRRZ - PHRASE72>
3374                     <FRAME '\1aOCEMIT>
3375                     <PUSH 'HRRZ>
3376                     <TYPE? NOT-DEAD?17 <TYPE-CODE FALSE> + BOOL76>
3377                     <DEAD NOT-DEAD?17>
3378                     <VEQUAL? VAL23 'STACK - PHRASE75>
3379 BOOL76
3380                     <SET TEMP57 'O* (TYPE ATOM)>
3381                     <JUMP + PHRASE77>
3382 PHRASE75
3383                     <FRAME '\1aGET-AC>
3384                     <PUSH NAC25>
3385                     <CALL '\1aGET-AC 1 = TEMP28>
3386                     <PUTUV TEMP28 6 'FIX>
3387                     <DEAD TEMP28>
3388                     <FRAME '\1aNEXT-AC>
3389                     <PUSH NAC25>
3390                     <DEAD NAC25>
3391                     <CALL '\1aNEXT-AC 1 = TEMP57>
3392 PHRASE77
3393                     <PUSH TEMP57>
3394                     <DEAD TEMP57>
3395                     <SET TEMP28 2 (TYPE FIX)>
3396                     <TYPE? AC24 <TYPE-CODE FALSE> + PHRASE81>
3397                     <CONS AC24 () = TEMP57>
3398                     <DEAD AC24>
3399                     <CONS TEMP57 () = TEMP57>
3400                     <CONS NUM26 TEMP57 = TEMP57>
3401                     <DEAD NUM26>
3402                     <JUMP + TAG88>
3403 PHRASE81
3404                     <PUSH '@>
3405                     <SET NUM26 1 (TYPE FIX)>
3406                     <SFRAME 'OBJ-VAL>
3407                     <PUSH V19>
3408                     <DEAD V19>
3409                     <SCALL '\1aOBJ-VAL 1 = TEMP57 + TAG84 NUM26>
3410                     <TYPE TEMP57 = AMT20>
3411                     <AND AMT20 7 = AMT20>
3412                     <VEQUAL? AMT20 1 + TAG87>
3413                     <DEAD AMT20>
3414                     <LOOP (TEMP57 TYPE VALUE LENGTH) (NUM26 VALUE)>
3415 TAG93
3416                     <INTGO>
3417                     <EMPTY? TEMP57 + TAG92>
3418                     <NTH1 TEMP57 = STACK>
3419                     <REST1 TEMP57 = TEMP57>
3420                     <ADD NUM26 1 = NUM26 (TYPE FIX)>
3421                     <JUMP + TAG93>
3422 TAG92
3423                     <LIST NUM26 = TEMP57 (TYPE LIST)>
3424                     <DEAD NUM26>
3425                     <JUMP + TAG88>
3426 TAG84
3427                     <SET TEMP57 0>
3428 TAG87
3429                     <LOOP>
3430 TAG90
3431                     <VEQUAL? NUM26 0 + TAG89>
3432                     <POP = AMT20>
3433                     <CONS AMT20 TEMP57 = TEMP57 (TYPE LIST)>
3434                     <DEAD AMT20>
3435                     <SUB NUM26 1 = NUM26 (TYPE FIX)>
3436                     <JUMP + TAG90>
3437 TAG89
3438 TAG88
3439                     <LOOP (TEMP57 VALUE) (TEMP28 VALUE)>
3440 TAG94
3441                     <INTGO>
3442                     <EMPL? TEMP57 + TAG73>
3443                     <NTHL TEMP57 1 = STACK>
3444                     <RESTL TEMP57 1 = TEMP57 (TYPE LIST)>
3445                     <ADD TEMP28 1 = TEMP28 (TYPE FIX)>
3446                     <JUMP + TAG94>
3447 TAG73
3448                     <CALL '\1aOCEMIT TEMP28>
3449                     <DEAD TEMP28>
3450                     <VEQUAL? VAL23 'STACK + TAG98>
3451                     <DEAD VAL23>
3452                     <RETURN %<>>
3453 TAG98
3454                     <FRAME '\1aOCEMIT>
3455                     <PUSH 'PUSH>
3456                     <PUSH 'TP*>
3457                     <SET TEMP57 2 (TYPE FIX)>
3458                     <SFRAME 'TYPE-WORD>
3459                     <PUSH 'FIX>
3460                     <SCALL '\1aTYPE-WORD 1 = TEMP28 + TAG99 TEMP57>
3461                     <LOOP (TEMP28 TYPE VALUE LENGTH) (TEMP57 VALUE)>
3462 TAG101
3463                     <INTGO>
3464                     <EMPTY? TEMP28 + TAG99>
3465                     <NTH1 TEMP28 = STACK>
3466                     <REST1 TEMP28 = TEMP28>
3467                     <ADD TEMP57 1 = TEMP57 (TYPE FIX)>
3468                     <JUMP + TAG101>
3469 TAG99
3470                     <CALL '\1aOCEMIT TEMP57>
3471                     <DEAD TEMP57>
3472                     <FRAME '\1aOCEMIT>
3473                     <PUSH 'PUSH>
3474                     <PUSH 'TP*>
3475                     <PUSH 'O*>
3476                     <CALL '\1aOCEMIT 3>
3477                     <GVAL 'WINNING-VICTIM = TEMP28>
3478                     <TYPE? TEMP28 <TYPE-CODE FALSE> + PHRASE215>
3479                     <GVAL 'STACK-DEPTH = TEMP57>
3480                     <ADD TEMP57 2 = TEMP57 (TYPE FIX)>
3481                     <SETG 'STACK-DEPTH TEMP57>
3482                     <RETURN TEMP57>
3483                     <DEAD TEMP57>
3484 PHRASE72
3485                     <TYPE? AOS16 <TYPE-CODE FORM> - PHRASE106>
3486                     <NTHL AOS16 1 = TEMP57 (TYPE ATOM)>
3487                     <NTHR TEMP57 3 = TEMP57 (RECORD-TYPE ATOM)>
3488                     <IFCAN "STRING-EQUAL?">
3489                     <STRING-EQUAL? TEMP57 "VEQUAL?" - PHRASE108>
3490                     <ENDIF "STRING-EQUAL?">
3491                     <IFCANNOT "STRING-EQUAL?">
3492                     <SET TEMP28 "VEQUAL?" (TYPE STRING)>
3493                     <LENUS TEMP57 = AMT20 (TYPE FIX)>
3494                     <VEQUAL? AMT20 7 - PHRASE108>
3495                     <LOOP (TEMP57 VALUE LENGTH) (TEMP28 VALUE LENGTH) (AMT20 VALUE)>
3496 TAG111
3497                     <NTHUS TEMP57 1 = VAL23>
3498                     <NTHUS TEMP28 1 = NAC25>
3499                     <VEQUAL? VAL23 NAC25 - PHRASE108>
3500                     <DEAD VAL23>
3501                     <RESTUS TEMP57 1 = TEMP57 (TYPE STRING)>
3502                     <RESTUS TEMP28 1 = TEMP28 (TYPE STRING)>
3503                     <SUB AMT20 1 = AMT20 (TYPE FIX)>
3504                     <GRTR? AMT20 0 + TAG111 (TYPE FIX)>
3505                     <ENDIF "STRING-EQUAL?">
3506                     <FRAME '\1aVEQUAL?!-MIMOC>
3507                     <RESTL AOS16 1 = TEMP28 (TYPE LIST)>
3508                     <DEAD AOS16>
3509                     <CHTYPE TEMP28 <TYPE-CODE LIST> = STACK>
3510                     <DEAD TEMP28>
3511                     <PUSH AC24>
3512                     <PUSH %<>>
3513                     <TYPE? UV?15 <TYPE-CODE FALSE> - PHRASE114>
3514                     <DEAD UV?15>
3515                     <ADD NUM26 1 = TEMP57 (TYPE FIX)>
3516                     <DEAD NUM26>
3517                     <JUMP + TAG120>
3518 PHRASE114
3519                     <TYPE? AC24 <TYPE-CODE FALSE> + PHRASE115>
3520                     <DEAD AC24>
3521                     <SET TEMP57 NUM26>
3522                     <DEAD NUM26>
3523                     <JUMP + TAG120>
3524 PHRASE115
3525                     <PUSH '@>
3526                     <SET VAL23 1 (TYPE FIX)>
3527                     <SFRAME 'OBJ-VAL>
3528                     <PUSH V19>
3529                     <DEAD V19>
3530                     <SCALL '\1aOBJ-VAL 1 = NAC25 + TAG117 VAL23>
3531                     <TYPE NAC25 = TEMP28>
3532                     <AND TEMP28 7 = TEMP28>
3533                     <VEQUAL? TEMP28 1 + TAG119>
3534                     <DEAD TEMP28>
3535                     <LOOP (NAC25 TYPE VALUE LENGTH) (VAL23 VALUE)>
3536 TAG125
3537                     <INTGO>
3538                     <EMPTY? NAC25 + TAG124>
3539                     <NTH1 NAC25 = STACK>
3540                     <REST1 NAC25 = NAC25>
3541                     <ADD VAL23 1 = VAL23 (TYPE FIX)>
3542                     <JUMP + TAG125>
3543 TAG124
3544                     <LIST VAL23 = TEMP57 (TYPE LIST)>
3545                     <DEAD VAL23>
3546                     <JUMP + TAG120>
3547 TAG117
3548                     <SET NAC25 0>
3549 TAG119
3550                     <LOOP>
3551 TAG122
3552                     <VEQUAL? VAL23 0 + TAG121>
3553                     <POP = TEMP28>
3554                     <CONS TEMP28 NAC25 = NAC25 (TYPE LIST)>
3555                     <DEAD TEMP28>
3556                     <SUB VAL23 1 = VAL23 (TYPE FIX)>
3557                     <JUMP + TAG122>
3558 TAG121
3559                     <SET TEMP57 NAC25>
3560                     <DEAD NAC25>
3561 TAG120
3562                     <PUSH TEMP57>
3563                     <DEAD TEMP57>
3564                     <CALL '\1aVEQUAL?!-MIMOC 4 = TEMP28>
3565                     <RETURN TEMP28>
3566                     <DEAD TEMP28>
3567 PHRASE108
3568                     <NTHL AOS16 1 = NAC25 (TYPE ATOM)>
3569                     <NTHR NAC25 3 = NAC25 (RECORD-TYPE ATOM)>
3570                     <IFCAN "STRING-EQUAL?">
3571                     <STRING-EQUAL? NAC25 "TYPE?" - PHRASE126>
3572                     <ENDIF "STRING-EQUAL?">
3573                     <IFCANNOT "STRING-EQUAL?">
3574                     <SET TEMP28 "TYPE?" (TYPE STRING)>
3575                     <LENUS NAC25 = AMT20 (TYPE FIX)>
3576                     <VEQUAL? AMT20 5 - PHRASE126>
3577                     <LOOP (NAC25 VALUE LENGTH) (TEMP28 VALUE LENGTH) (AMT20 VALUE)>
3578 TAG130
3579                     <NTHUS NAC25 1 = VAL23>
3580                     <NTHUS TEMP28 1 = AHEAD27>
3581                     <VEQUAL? VAL23 AHEAD27 - PHRASE126>
3582                     <DEAD VAL23>
3583                     <RESTUS NAC25 1 = NAC25 (TYPE STRING)>
3584                     <RESTUS TEMP28 1 = TEMP28 (TYPE STRING)>
3585                     <SUB AMT20 1 = AMT20 (TYPE FIX)>
3586                     <GRTR? AMT20 0 + TAG130 (TYPE FIX)>
3587                     <ENDIF "STRING-EQUAL?">
3588                     <FRAME '\1aVEQUAL?!-MIMOC>
3589                     <RESTL AOS16 1 = NAC25 (TYPE LIST)>
3590                     <RESTL NAC25 1 = NAC25 (TYPE LIST)>
3591                     <RESTL NAC25 1 = TEMP28 (TYPE LIST)>
3592                     <DEAD NAC25>
3593                     <CHTYPE TEMP28 <TYPE-CODE LIST> = STACK>
3594                     <DEAD TEMP28>
3595                     <PUSH AC24>
3596                     <PUSH %<>>
3597                     <TYPE? UV?15 <TYPE-CODE FALSE> - PHRASE133>
3598                     <DEAD UV?15>
3599                     <ADD NUM26 1 = NAC25 (TYPE FIX)>
3600                     <DEAD NUM26>
3601                     <JUMP + TAG139>
3602 PHRASE133
3603                     <TYPE? AC24 <TYPE-CODE FALSE> + PHRASE134>
3604                     <DEAD AC24>
3605                     <SET NAC25 NUM26>
3606                     <DEAD NUM26>
3607                     <JUMP + TAG139>
3608 PHRASE134
3609                     <PUSH '@>
3610                     <SET VAL23 1 (TYPE FIX)>
3611                     <SFRAME 'OBJ-VAL>
3612                     <PUSH V19>
3613                     <DEAD V19>
3614                     <SCALL '\1aOBJ-VAL 1 = AHEAD27 + TAG136 VAL23>
3615                     <TYPE AHEAD27 = TEMP28>
3616                     <AND TEMP28 7 = TEMP28>
3617                     <VEQUAL? TEMP28 1 + TAG138>
3618                     <DEAD TEMP28>
3619                     <LOOP (AHEAD27 TYPE VALUE LENGTH) (VAL23 VALUE)>
3620 TAG144
3621                     <INTGO>
3622                     <EMPTY? AHEAD27 + TAG143>
3623                     <NTH1 AHEAD27 = STACK>
3624                     <REST1 AHEAD27 = AHEAD27>
3625                     <ADD VAL23 1 = VAL23 (TYPE FIX)>
3626                     <JUMP + TAG144>
3627 TAG143
3628                     <LIST VAL23 = NAC25 (TYPE LIST)>
3629                     <DEAD VAL23>
3630                     <JUMP + TAG139>
3631 TAG136
3632                     <SET AHEAD27 0>
3633 TAG138
3634                     <LOOP>
3635 TAG141
3636                     <VEQUAL? VAL23 0 + TAG140>
3637                     <POP = TEMP28>
3638                     <CONS TEMP28 AHEAD27 = AHEAD27 (TYPE LIST)>
3639                     <DEAD TEMP28>
3640                     <SUB VAL23 1 = VAL23 (TYPE FIX)>
3641                     <JUMP + TAG141>
3642 TAG140
3643                     <SET NAC25 AHEAD27>
3644                     <DEAD AHEAD27>
3645 TAG139
3646                     <PUSH NAC25>
3647                     <DEAD NAC25>
3648                     <RESTL AOS16 1 = AHEAD27 (TYPE LIST)>
3649                     <DEAD AOS16>
3650                     <NTHL AHEAD27 1 = STACK>
3651                     <DEAD AHEAD27>
3652                     <CALL '\1aVEQUAL?!-MIMOC 5 = TEMP28>
3653                     <RETURN TEMP28>
3654                     <DEAD TEMP28>
3655 PHRASE126
3656                     <FRAME '\1aEQUAL?!-MIMOC>
3657                     <RESTL AOS16 1 = AHEAD27 (TYPE LIST)>
3658                     <DEAD AOS16>
3659                     <CHTYPE AHEAD27 <TYPE-CODE LIST> = STACK>
3660                     <DEAD AHEAD27>
3661                     <PUSH AC24>
3662                     <DEAD AC24>
3663                     <PUSH %<>>
3664                     <PUSH NUM26>
3665                     <DEAD NUM26>
3666                     <CALL '\1aEQUAL?!-MIMOC 4 = TEMP28>
3667                     <RETURN TEMP28>
3668                     <DEAD TEMP28>
3669 PHRASE106
3670                     <TYPE? AOS16 <TYPE-CODE FALSE> + PHRASE147>
3671                     <FRAME '\1aOCEMIT>
3672                     <PUSH AOS16>
3673                     <DEAD AOS16>
3674                     <TYPE? NOT-DEAD?17 <TYPE-CODE FALSE> + PHRASE150>
3675                     <FRAME '\1aNEXT-AC>
3676                     <PUSH NAC25>
3677                     <CALL '\1aNEXT-AC 1 = TEMP28>
3678                     <JUMP + PHRASE152>
3679 PHRASE150
3680                     <SET TEMP28 'O* (TYPE ATOM)>
3681 PHRASE152
3682                     <PUSH TEMP28>
3683                     <DEAD TEMP28>
3684                     <SET TEMP57 2 (TYPE FIX)>
3685                     <TYPE? UV?15 <TYPE-CODE FALSE> - PHRASE155>
3686                     <DEAD UV?15>
3687                     <CONS AC24 () = TEMP156>
3688                     <DEAD AC24>
3689                     <CONS TEMP156 () = TEMP28>
3690                     <DEAD TEMP156>
3691                     <ADD NUM26 1 = TEMP156 (TYPE FIX)>
3692                     <DEAD NUM26>
3693                     <CONS TEMP156 TEMP28 = TEMP28>
3694                     <DEAD TEMP156>
3695                     <JUMP + TAG163>
3696 PHRASE155
3697                     <TYPE? AC24 <TYPE-CODE FALSE> + PHRASE157>
3698                     <CONS AC24 () = TEMP156>
3699                     <DEAD AC24>
3700                     <CONS TEMP156 () = TEMP28>
3701                     <DEAD TEMP156>
3702                     <CONS NUM26 TEMP28 = TEMP28>
3703                     <DEAD NUM26>
3704                     <JUMP + TAG163>
3705 PHRASE157
3706                     <PUSH '@>
3707                     <SET NUM26 1 (TYPE FIX)>
3708                     <SFRAME 'OBJ-VAL>
3709                     <PUSH V19>
3710                     <DEAD V19>
3711                     <SCALL '\1aOBJ-VAL 1 = TEMP156 + TAG159 NUM26>
3712                     <TYPE TEMP156 = V19>
3713                     <AND V19 7 = V19>
3714                     <VEQUAL? V19 1 + TAG162>
3715                     <DEAD V19>
3716                     <LOOP (TEMP156 TYPE VALUE LENGTH) (NUM26 VALUE)>
3717 TAG168
3718                     <INTGO>
3719                     <EMPTY? TEMP156 + TAG167>
3720                     <NTH1 TEMP156 = STACK>
3721                     <REST1 TEMP156 = TEMP156>
3722                     <ADD NUM26 1 = NUM26 (TYPE FIX)>
3723                     <JUMP + TAG168>
3724 TAG167
3725                     <LIST NUM26 = TEMP28 (TYPE LIST)>
3726                     <DEAD NUM26>
3727                     <JUMP + TAG163>
3728 TAG159
3729                     <SET TEMP156 0>
3730 TAG162
3731                     <LOOP>
3732 TAG165
3733                     <VEQUAL? NUM26 0 + TAG164>
3734                     <POP = V19>
3735                     <CONS V19 TEMP156 = TEMP156 (TYPE LIST)>
3736                     <DEAD V19>
3737                     <SUB NUM26 1 = NUM26 (TYPE FIX)>
3738                     <JUMP + TAG165>
3739 TAG164
3740                     <SET TEMP28 TEMP156>
3741                     <DEAD TEMP156>
3742 TAG163
3743                     <LOOP (TEMP28 VALUE) (TEMP57 VALUE)>
3744 TAG169
3745                     <INTGO>
3746                     <EMPL? TEMP28 + TAG148>
3747                     <NTHL TEMP28 1 = STACK>
3748                     <RESTL TEMP28 1 = TEMP28 (TYPE LIST)>
3749                     <ADD TEMP57 1 = TEMP57 (TYPE FIX)>
3750                     <JUMP + TAG169>
3751 TAG148
3752                     <CALL '\1aOCEMIT TEMP57>
3753                     <DEAD TEMP57>
3754                     <SET TEMP28 NOT-DEAD?17>
3755                     <DEAD NOT-DEAD?17>
3756                     <TYPE? TEMP28 <TYPE-CODE FALSE> + PHRASE215>
3757                     <FRAME '\1aGET-AC>
3758                     <PUSH NAC25>
3759                     <DEAD NAC25>
3760                     <CALL '\1aGET-AC 1 = TEMP57>
3761                     <PUTUV TEMP57 6 'FIX>
3762                     <RETURN TEMP57>
3763                     <DEAD TEMP57>
3764 PHRASE147
3765                     <VEQUAL? VAL23 'STACK - PHRASE174>
3766                     <TYPE? UV?15 <TYPE-CODE FALSE> - PHRASE174>
3767                     <FRAME '\1aOCEMIT>
3768                     <PUSH 'PUSH>
3769                     <PUSH 'TP*>
3770                     <PUSH NUM26>
3771                     <CONS AC24 () = STACK>
3772                     <CALL '\1aOCEMIT 4>
3773                     <FRAME '\1aOCEMIT>
3774                     <PUSH 'PUSH>
3775                     <PUSH 'TP*>
3776                     <ADD NUM26 1 = STACK (TYPE FIX)>
3777                     <DEAD NUM26>
3778                     <CONS AC24 () = STACK>
3779                     <DEAD AC24>
3780                     <CALL '\1aOCEMIT 4>
3781                     <GVAL 'WINNING-VICTIM = TEMP28>
3782                     <TYPE? TEMP28 <TYPE-CODE FALSE> + PHRASE215>
3783                     <GVAL 'STACK-DEPTH = TEMP57>
3784                     <ADD TEMP57 2 = TEMP57 (TYPE FIX)>
3785                     <SETG 'STACK-DEPTH TEMP57>
3786                     <RETURN TEMP57>
3787                     <DEAD TEMP57>
3788 PHRASE174
3789                     <VEQUAL? VAL23 'STACK - PHRASE180>
3790                     <DEAD VAL23>
3791                     <FRAME '\1aOCEMIT>
3792                     <PUSH 'PUSH>
3793                     <PUSH 'TP*>
3794                     <SET TEMP156 2 (TYPE FIX)>
3795                     <SFRAME 'TYPE-WORD>
3796                     <PUSH 'FIX>
3797                     <SCALL '\1aTYPE-WORD 1 = TEMP57 + TAG181 TEMP156>
3798                     <LOOP (TEMP57 TYPE VALUE LENGTH) (TEMP156 VALUE)>
3799 TAG183
3800                     <INTGO>
3801                     <EMPTY? TEMP57 + TAG181>
3802                     <NTH1 TEMP57 = STACK>
3803                     <REST1 TEMP57 = TEMP57>
3804                     <ADD TEMP156 1 = TEMP156 (TYPE FIX)>
3805                     <JUMP + TAG183>
3806 TAG181
3807                     <CALL '\1aOCEMIT TEMP156>
3808                     <DEAD TEMP156>
3809                     <GVAL 'WINNING-VICTIM = TEMP156>
3810                     <TYPE? TEMP156 <TYPE-CODE FALSE> + PHRASE186>
3811                     <DEAD TEMP156>
3812                     <GVAL 'STACK-DEPTH = TEMP156>
3813                     <ADD TEMP156 1 = TEMP156 (TYPE FIX)>
3814                     <SETG 'STACK-DEPTH TEMP156>
3815                     <DEAD TEMP156>
3816 PHRASE186
3817                     <TYPE? AC24 <TYPE-CODE FALSE> + PHRASE188>
3818                     <FRAME '\1aOCEMIT>
3819                     <PUSH 'PUSH>
3820                     <PUSH 'TP*>
3821                     <PUSH NUM26>
3822                     <DEAD NUM26>
3823                     <CONS AC24 () = STACK>
3824                     <DEAD AC24>
3825                     <CALL '\1aOCEMIT 4>
3826                     <JUMP + PHRASE190>
3827 PHRASE188
3828                     <FRAME '\1aOCEMIT>
3829                     <PUSH 'PUSH>
3830                     <PUSH 'TP*>
3831                     <PUSH '@>
3832                     <SET TEMP57 3 (TYPE FIX)>
3833                     <SFRAME 'OBJ-VAL>
3834                     <PUSH V19>
3835                     <DEAD V19>
3836                     <SCALL '\1aOBJ-VAL 1 = TEMP156 + TAG191 TEMP57>
3837                     <LOOP (TEMP156 TYPE VALUE LENGTH) (TEMP57 VALUE)>
3838 TAG193
3839                     <INTGO>
3840                     <EMPTY? TEMP156 + TAG191>
3841                     <NTH1 TEMP156 = STACK>
3842                     <REST1 TEMP156 = TEMP156>
3843                     <ADD TEMP57 1 = TEMP57 (TYPE FIX)>
3844                     <JUMP + TAG193>
3845 TAG191
3846                     <CALL '\1aOCEMIT TEMP57>
3847                     <DEAD TEMP57>
3848 PHRASE190
3849                     <GVAL 'WINNING-VICTIM = TEMP28>
3850                     <TYPE? TEMP28 <TYPE-CODE FALSE> + PHRASE215>
3851                     <GVAL 'STACK-DEPTH = TEMP57>
3852                     <ADD TEMP57 1 = TEMP57 (TYPE FIX)>
3853                     <SETG 'STACK-DEPTH TEMP57>
3854                     <RETURN TEMP57>
3855                     <DEAD TEMP57>
3856 PHRASE180
3857                     <TYPE? AC24 <TYPE-CODE FALSE> - PHRASE197>
3858                     <TYPE? UV?15 <TYPE-CODE FALSE> + PHRASE199>
3859                     <DEAD UV?15>
3860                     <FRAME '\1aOCEMIT>
3861                     <PUSH 'MOVE>
3862                     <FRAME '\1aNEXT-AC>
3863                     <PUSH NAC25>
3864                     <CALL '\1aNEXT-AC 1 = STACK>
3865                     <PUSH '@>
3866                     <SET TEMP156 3 (TYPE FIX)>
3867                     <SFRAME 'OBJ-VAL>
3868                     <PUSH V19>
3869                     <DEAD V19>
3870                     <SCALL '\1aOBJ-VAL 1 = TEMP57 + TAG200 TEMP156>
3871                     <LOOP (TEMP57 TYPE VALUE LENGTH) (TEMP156 VALUE)>
3872 TAG203
3873                     <INTGO>
3874                     <EMPTY? TEMP57 + TAG200>
3875                     <NTH1 TEMP57 = STACK>
3876                     <REST1 TEMP57 = TEMP57>
3877                     <ADD TEMP156 1 = TEMP156 (TYPE FIX)>
3878                     <JUMP + TAG203>
3879 TAG200
3880                     <CALL '\1aOCEMIT TEMP156>
3881                     <DEAD TEMP156>
3882                     <FRAME '\1aGET-AC>
3883                     <PUSH NAC25>
3884                     <DEAD NAC25>
3885                     <CALL '\1aGET-AC 1 = TEMP156>
3886                     <PUTUV TEMP156 6 'FIX>
3887                     <RETURN TEMP156>
3888                     <DEAD TEMP156>
3889 PHRASE199
3890                     <FRAME '\1aOCEMIT>
3891                     <PUSH 'DMOVE>
3892                     <PUSH NAC25>
3893                     <DEAD NAC25>
3894                     <PUSH '@>
3895                     <SET TEMP57 3 (TYPE FIX)>
3896                     <SFRAME 'OBJ-VAL>
3897                     <PUSH V19>
3898                     <DEAD V19>
3899                     <SCALL '\1aOBJ-VAL 1 = TEMP156 + TAG207 TEMP57>
3900                     <LOOP (TEMP156 TYPE VALUE LENGTH) (TEMP57 VALUE)>
3901 TAG209
3902                     <INTGO>
3903                     <EMPTY? TEMP156 + TAG207>
3904                     <NTH1 TEMP156 = STACK>
3905                     <REST1 TEMP156 = TEMP156>
3906                     <ADD TEMP57 1 = TEMP57 (TYPE FIX)>
3907                     <JUMP + TAG209>
3908 TAG207
3909                     <CALL '\1aOCEMIT TEMP57 = TEMP28>
3910                     <DEAD TEMP57>
3911                     <RETURN TEMP28>
3912                     <DEAD TEMP28>
3913 PHRASE197
3914                     <TYPE? UV?15 <TYPE-CODE FALSE> + PHRASE211>
3915                     <DEAD UV?15>
3916                     <FRAME '\1aOCEMIT>
3917                     <PUSH 'MOVE>
3918                     <FRAME '\1aNEXT-AC>
3919                     <PUSH NAC25>
3920                     <CALL '\1aNEXT-AC 1 = STACK>
3921                     <PUSH NUM26>
3922                     <DEAD NUM26>
3923                     <CONS AC24 () = STACK>
3924                     <DEAD AC24>
3925                     <CALL '\1aOCEMIT 4>
3926                     <FRAME '\1aGET-AC>
3927                     <PUSH NAC25>
3928                     <DEAD NAC25>
3929                     <CALL '\1aGET-AC 1 = TEMP57>
3930                     <PUTUV TEMP57 6 'FIX>
3931                     <RETURN TEMP57>
3932                     <DEAD TEMP57>
3933 PHRASE211
3934                     <FRAME '\1aOCEMIT>
3935                     <PUSH 'DMOVE>
3936                     <PUSH NAC25>
3937                     <DEAD NAC25>
3938                     <PUSH NUM26>
3939                     <DEAD NUM26>
3940                     <CONS AC24 () = STACK>
3941                     <DEAD AC24>
3942                     <CALL '\1aOCEMIT 4 = TEMP28>
3943 PHRASE215
3944                     <RETURN TEMP28>
3945                     <DEAD TEMP28>
3946 PHRASE63
3947                     <FRAME '\1aIN-AC?>
3948                     <PUSH AMT20>
3949                     <PUSH 'VALUE>
3950                     <CALL '\1aIN-AC? 2 = NUM26>
3951                     <TYPE? NUM26 <TYPE-CODE FALSE> + BOOL221>
3952                     <FRAME '\1aGET-AC>
3953                     <PUSH NUM26>
3954                     <CALL '\1aGET-AC 1 = TEMP57>
3955                     <NTHUV TEMP57 5 = TEMP57>
3956                     <TYPE? TEMP57 <TYPE-CODE FALSE> + BOOL227>
3957                     <DEAD TEMP57>
3958                     <FRAME '\1aWILL-DIE?>
3959                     <PUSH AMT20>
3960                     <CALL '\1aWILL-DIE? 1 = TEMP57>
3961                     <TYPE? TEMP57 <TYPE-CODE FALSE> - BOOL227>
3962                     <DEAD TEMP57>
3963 BOOL221
3964                     <VEQUAL? AMT20 VAL23 - PHRASE219>
3965                     <TYPE? NUM26 <TYPE-CODE FALSE> - BOOL227>
3966                     <TYPE? NOT-DEAD?17 <TYPE-CODE FALSE> + PHRASE219>
3967                     <FRAME '\1aLOAD-AC>
3968                     <PUSH VAL23>
3969                     <PUSH 'BOTH>
3970                     <PUSH 'T>
3971                     <PUSH 'T>
3972                     <PUSH AHEAD27>
3973                     <CALL '\1aLOAD-AC 5 = NAC25>
3974 BOOL227
3975                     <TYPE? NUM26 <TYPE-CODE FALSE> - PHRASE231>
3976                     <FRAME '\1aOCEMIT>
3977                     <PUSH 'MOVE>
3978                     <FRAME '\1aNEXT-AC>
3979                     <PUSH NAC25>
3980                     <CALL '\1aNEXT-AC 1 = NUM26>
3981                     <PUSH NUM26>
3982                     <SET TEMP156 2 (TYPE FIX)>
3983                     <SFRAME 'OBJ-VAL>
3984                     <PUSH AMT20>
3985                     <DEAD AMT20>
3986                     <SCALL '\1aOBJ-VAL 1 = TEMP57 + TAG232 TEMP156>
3987                     <LOOP (TEMP57 TYPE VALUE LENGTH) (TEMP156 VALUE)>
3988 TAG235
3989                     <INTGO>
3990                     <EMPTY? TEMP57 + TAG232>
3991                     <NTH1 TEMP57 = STACK>
3992                     <REST1 TEMP57 = TEMP57>
3993                     <ADD TEMP156 1 = TEMP156 (TYPE FIX)>
3994                     <JUMP + TAG235>
3995 TAG232
3996                     <CALL '\1aOCEMIT TEMP156>
3997                     <DEAD TEMP156>
3998                     <JUMP + PHRASE261>
3999 PHRASE231
4000                     <SET TEMP156 [A2* B2* C2*] (TYPE VECTOR)>
4001                     <TYPE? NUM26 <TYPE-CODE ATOM> - PHRASE237>
4002                     <LOOP (NUM26 VALUE) (TEMP156 LENGTH VALUE)>
4003 TAG240
4004                     <NTHUV TEMP156 1 = TEMP57>
4005                     <VEQUAL? TEMP57 NUM26 + TAG239>
4006                     <DEAD TEMP57>
4007                     <RESTUV TEMP156 1 = TEMP156 (TYPE VECTOR)>
4008                     <EMPUV? TEMP156 - TAG240>
4009                     <JUMP + PHRASE237>
4010 TAG239
4011                     <VEQUAL? VAL23 'STACK + PHRASE237>
4012                     <FRAME '\1aGETPROP>
4013                     <PUSH NUM26>
4014                     <PUSH 'AC-PAIR>
4015                     <CALL '\1aGETPROP 2 = NAC25>
4016                     <FRAME '\1aCLEAN-ACS>
4017                     <PUSH VAL23>
4018                     <CALL '\1aCLEAN-ACS 1>
4019                     <FRAME '\1aGET-AC>
4020                     <PUSH NAC25>
4021                     <CALL '\1aGET-AC 1 = TEMP156>
4022                     <PUTUV TEMP156 6 %<>>
4023                     <PUTUV TEMP156 5 'T>
4024                     <PUTUV TEMP156 2 VAL23>
4025                     <PUTUV TEMP156 3 'TYPE (TYPE ATOM)>
4026                     <DEAD TEMP156>
4027                     <FRAME '\1aGET-AC>
4028                     <PUSH NUM26>
4029                     <CALL '\1aGET-AC 1 = TEMP156>
4030                     <PUTUV TEMP156 6 %<>>
4031                     <PUTUV TEMP156 5 'T>
4032                     <PUTUV TEMP156 2 VAL23>
4033                     <PUTUV TEMP156 3 'VALUE (TYPE ATOM)>
4034                     <DEAD TEMP156>
4035                     <JUMP + PHRASE261>
4036 PHRASE237
4037                     <VEQUAL? AMT20 VAL23 + PHRASE248>
4038                     <DEAD AMT20>
4039                     <FRAME '\1aMUNGED-AC>
4040                     <PUSH NUM26>
4041                     <CALL '\1aMUNGED-AC 1>
4042 PHRASE248
4043                     <FRAME '\1aFLUSH-AC>
4044                     <PUSH NUM26>
4045                     <CALL '\1aFLUSH-AC 1>
4046                     <TYPE? NOT-DEAD?17 <TYPE-CODE FALSE> + PHRASE261>
4047                     <FRAME '\1aLOAD-AC>
4048                     <PUSH VAL23>
4049                     <PUSH 'BOTH>
4050                     <PUSH 'T>
4051                     <PUSH 'T>
4052                     <PUSH AHEAD27>
4053                     <DEAD AHEAD27>
4054                     <CALL '\1aLOAD-AC 5 = NAC25>
4055                     <JUMP + PHRASE261>
4056 PHRASE219
4057                     <TYPE? NUM26 <TYPE-CODE FALSE> + PHRASE256>
4058                     <FRAME '\1aOCEMIT>
4059                     <PUSH 'MOVE>
4060                     <PUSH 'T*>
4061                     <PUSH NUM26>
4062                     <DEAD NUM26>
4063                     <CALL '\1aOCEMIT 3>
4064                     <SET NUM26 'T* (TYPE ATOM)>
4065                     <JUMP + PHRASE258>
4066 PHRASE256
4067                     <FRAME '\1aSMASH-AC>
4068                     <SET NUM26 'T* (TYPE ATOM)>
4069                     <PUSH NUM26>
4070                     <PUSH AMT20>
4071                     <DEAD AMT20>
4072                     <PUSH 'VALUE>
4073                     <CALL '\1aSMASH-AC 3>
4074 PHRASE258
4075                     <TYPE? NOT-DEAD?17 <TYPE-CODE FALSE> + PHRASE261>
4076                     <FRAME '\1aLOAD-AC>
4077                     <PUSH VAL23>
4078                     <PUSH 'BOTH>
4079                     <PUSH 'T>
4080                     <PUSH 'T>
4081                     <PUSH AHEAD27>
4082                     <DEAD AHEAD27>
4083                     <CALL '\1aLOAD-AC 5 = NAC25>
4084 PHRASE261
4085                     <VEQUAL? VAL23 'STACK + PHRASE264>
4086                     <TYPE? NAC25 <TYPE-CODE UNBOUND> + PHRASE264>
4087                     <FRAME '\1aGET-AC>
4088                     <PUSH NAC25>
4089                     <CALL '\1aGET-AC 1 = TEMP156>
4090                     <PUTUV TEMP156 6 %<>>
4091                     <DEAD TEMP156>
4092 PHRASE264
4093                     <TYPE? UV?15 <TYPE-CODE FALSE> - PHRASE268>
4094                     <FRAME '\1aOCEMIT>
4095                     <PUSH 'LSH>
4096                     <PUSH NUM26>
4097                     <PUSH 1>
4098                     <CALL '\1aOCEMIT 3>
4099 PHRASE268
4100                     <TYPE? AC24 <TYPE-CODE FALSE> + PHRASE271>
4101                     <FRAME '\1aOCEMIT>
4102                     <PUSH 'ADD>
4103                     <PUSH NUM26>
4104                     <PUSH AC24>
4105                     <DEAD AC24>
4106                     <CALL '\1aOCEMIT 3>
4107                     <JUMP + PHRASE273>
4108 PHRASE271
4109                     <FRAME '\1aOCEMIT>
4110                     <PUSH 'ADD>
4111                     <PUSH NUM26>
4112                     <SET TEMP57 2 (TYPE FIX)>
4113                     <SFRAME 'OBJ-LOC>
4114                     <PUSH V19>
4115                     <DEAD V19>
4116                     <PUSH 1>
4117                     <SCALL '\1aOBJ-LOC 2 = TEMP156 + TAG274 TEMP57>
4118                     <LOOP (TEMP156 TYPE VALUE LENGTH) (TEMP57 VALUE)>
4119 TAG276
4120                     <INTGO>
4121                     <EMPTY? TEMP156 + TAG274>
4122                     <NTH1 TEMP156 = STACK>
4123                     <REST1 TEMP156 = TEMP156>
4124                     <ADD TEMP57 1 = TEMP57 (TYPE FIX)>
4125                     <JUMP + TAG276>
4126 TAG274
4127                     <CALL '\1aOCEMIT TEMP57>
4128                     <DEAD TEMP57>
4129 PHRASE273
4130                     <EQUAL? AOS16 'HRRZ - PHRASE279>
4131                     <FRAME '\1aOCEMIT>
4132                     <PUSH 'HRRZ>
4133                     <TYPE? NOT-DEAD?17 <TYPE-CODE FALSE> + BOOL283>
4134                     <DEAD NOT-DEAD?17>
4135                     <VEQUAL? VAL23 'STACK - PHRASE282>
4136 BOOL283
4137                     <SET TEMP57 'O* (TYPE ATOM)>
4138                     <JUMP + PHRASE284>
4139 PHRASE282
4140                     <FRAME '\1aGET-AC>
4141                     <PUSH NAC25>
4142                     <CALL '\1aGET-AC 1 = TEMP156>
4143                     <PUTUV TEMP156 6 'FIX>
4144                     <DEAD TEMP156>
4145                     <FRAME '\1aNEXT-AC>
4146                     <PUSH NAC25>
4147                     <DEAD NAC25>
4148                     <CALL '\1aNEXT-AC 1 = TEMP57>
4149 PHRASE284
4150                     <PUSH TEMP57>
4151                     <DEAD TEMP57>
4152                     <PUSH -2>
4153                     <CONS NUM26 () = STACK>
4154                     <DEAD NUM26>
4155                     <CALL '\1aOCEMIT 4>
4156                     <VEQUAL? VAL23 'STACK - PHRASE333>
4157                     <DEAD VAL23>
4158                     <FRAME '\1aOCEMIT>
4159                     <PUSH 'PUSH>
4160                     <PUSH 'TP*>
4161                     <SET TEMP156 2 (TYPE FIX)>
4162                     <SFRAME 'TYPE-WORD>
4163                     <PUSH 'FIX>
4164                     <SCALL '\1aTYPE-WORD 1 = TEMP57 + TAG289 TEMP156>
4165                     <LOOP (TEMP57 TYPE VALUE LENGTH) (TEMP156 VALUE)>
4166 TAG291
4167                     <INTGO>
4168                     <EMPTY? TEMP57 + TAG289>
4169                     <NTH1 TEMP57 = STACK>
4170                     <REST1 TEMP57 = TEMP57>
4171                     <ADD TEMP156 1 = TEMP156 (TYPE FIX)>
4172                     <JUMP + TAG291>
4173 TAG289
4174                     <CALL '\1aOCEMIT TEMP156>
4175                     <DEAD TEMP156>
4176                     <FRAME '\1aOCEMIT>
4177                     <PUSH 'PUSH>
4178                     <PUSH 'TP*>
4179                     <PUSH 'O*>
4180                     <CALL '\1aOCEMIT 3>
4181                     <JUMP + PHRASE333>
4182 PHRASE279
4183                     <TYPE? AOS16 <TYPE-CODE FORM> - PHRASE294>
4184                     <NTHL AOS16 1 = TEMP156 (TYPE ATOM)>
4185                     <NTHR TEMP156 3 = TEMP156 (RECORD-TYPE ATOM)>
4186                     <IFCAN "STRING-EQUAL?">
4187                     <STRING-EQUAL? TEMP156 "VEQUAL?" - PHRASE296>
4188                     <ENDIF "STRING-EQUAL?">
4189                     <IFCANNOT "STRING-EQUAL?">
4190                     <SET TEMP57 "VEQUAL?" (TYPE STRING)>
4191                     <LENUS TEMP156 = V19 (TYPE FIX)>
4192                     <VEQUAL? V19 7 - PHRASE296>
4193                     <LOOP (TEMP156 VALUE LENGTH) (TEMP57 VALUE LENGTH) (V19 VALUE)>
4194 TAG299
4195                     <NTHUS TEMP156 1 = AMT20>
4196                     <NTHUS TEMP57 1 = VAL23>
4197                     <VEQUAL? AMT20 VAL23 - PHRASE296>
4198                     <DEAD AMT20 VAL23>
4199                     <RESTUS TEMP156 1 = TEMP156 (TYPE STRING)>
4200                     <RESTUS TEMP57 1 = TEMP57 (TYPE STRING)>
4201                     <SUB V19 1 = V19 (TYPE FIX)>
4202                     <GRTR? V19 0 + TAG299 (TYPE FIX)>
4203                     <ENDIF "STRING-EQUAL?">
4204                     <FRAME '\1aVEQUAL?!-MIMOC>
4205                     <RESTL AOS16 1 = TEMP57 (TYPE LIST)>
4206                     <DEAD AOS16>
4207                     <CHTYPE TEMP57 <TYPE-CODE LIST> = STACK>
4208                     <DEAD TEMP57>
4209                     <PUSH NUM26>
4210                     <DEAD NUM26>
4211                     <PUSH %<>>
4212                     <PUSH -1>
4213                     <CALL '\1aVEQUAL?!-MIMOC 4>
4214                     <JUMP + PHRASE333>
4215 PHRASE296
4216                     <NTHL AOS16 1 = TEMP156 (TYPE ATOM)>
4217                     <NTHR TEMP156 3 = TEMP156 (RECORD-TYPE ATOM)>
4218                     <IFCAN "STRING-EQUAL?">
4219                     <STRING-EQUAL? TEMP156 "TYPE?" - PHRASE301>
4220                     <ENDIF "STRING-EQUAL?">
4221                     <IFCANNOT "STRING-EQUAL?">
4222                     <SET VAL23 "TYPE?" (TYPE STRING)>
4223                     <LENUS TEMP156 = AMT20 (TYPE FIX)>
4224                     <VEQUAL? AMT20 5 - PHRASE301>
4225                     <LOOP (TEMP156 VALUE LENGTH) (VAL23 VALUE LENGTH) (AMT20 VALUE)>
4226 TAG304
4227                     <NTHUS TEMP156 1 = TEMP28>
4228                     <NTHUS VAL23 1 = V19>
4229                     <VEQUAL? TEMP28 V19 - PHRASE301>
4230                     <DEAD TEMP28 V19>
4231                     <RESTUS TEMP156 1 = TEMP156 (TYPE STRING)>
4232                     <RESTUS VAL23 1 = VAL23 (TYPE STRING)>
4233                     <SUB AMT20 1 = AMT20 (TYPE FIX)>
4234                     <GRTR? AMT20 0 + TAG304 (TYPE FIX)>
4235                     <ENDIF "STRING-EQUAL?">
4236                     <FRAME '\1aVEQUAL?!-MIMOC>
4237                     <RESTL AOS16 1 = TEMP156 (TYPE LIST)>
4238                     <RESTL TEMP156 1 = TEMP156 (TYPE LIST)>
4239                     <RESTL TEMP156 1 = VAL23 (TYPE LIST)>
4240                     <DEAD TEMP156>
4241                     <CHTYPE VAL23 <TYPE-CODE LIST> = STACK>
4242                     <DEAD VAL23>
4243                     <PUSH NUM26>
4244                     <DEAD NUM26>
4245                     <PUSH %<>>
4246                     <PUSH -2>
4247                     <RESTL AOS16 1 = TEMP156 (TYPE LIST)>
4248                     <DEAD AOS16>
4249                     <NTHL TEMP156 1 = STACK>
4250                     <DEAD TEMP156>
4251                     <CALL '\1aVEQUAL?!-MIMOC 5>
4252                     <JUMP + PHRASE333>
4253 PHRASE301
4254                     <FRAME '\1aEQUAL?!-MIMOC>
4255                     <RESTL AOS16 1 = TEMP156 (TYPE LIST)>
4256                     <DEAD AOS16>
4257                     <CHTYPE TEMP156 <TYPE-CODE LIST> = STACK>
4258                     <DEAD TEMP156>
4259                     <PUSH NUM26>
4260                     <DEAD NUM26>
4261                     <PUSH %<>>
4262                     <PUSH -2>
4263                     <CALL '\1aEQUAL?!-MIMOC 4>
4264                     <JUMP + PHRASE333>
4265 PHRASE294
4266                     <TYPE? AOS16 <TYPE-CODE FALSE> + PHRASE308>
4267                     <FRAME '\1aOCEMIT>
4268                     <PUSH AOS16>
4269                     <DEAD AOS16>
4270                     <TYPE? NOT-DEAD?17 <TYPE-CODE FALSE> + PHRASE311>
4271                     <DEAD NOT-DEAD?17>
4272                     <FRAME '\1aGET-AC>
4273                     <PUSH NAC25>
4274                     <CALL '\1aGET-AC 1 = V19>
4275                     <PUTUV V19 6 'FIX>
4276                     <DEAD V19>
4277                     <FRAME '\1aNEXT-AC>
4278                     <PUSH NAC25>
4279                     <DEAD NAC25>
4280                     <CALL '\1aNEXT-AC 1 = V19>
4281                     <JUMP + PHRASE314>
4282 PHRASE311
4283                     <SET V19 'O* (TYPE ATOM)>
4284 PHRASE314
4285                     <PUSH V19>
4286                     <DEAD V19>
4287                     <PUSH -1>
4288                     <CONS NUM26 () = STACK>
4289                     <DEAD NUM26>
4290                     <CALL '\1aOCEMIT 4>
4291                     <JUMP + PHRASE333>
4292 PHRASE308
4293                     <VEQUAL? VAL23 'STACK - PHRASE315>
4294                     <TYPE? UV?15 <TYPE-CODE FALSE> - PHRASE315>
4295                     <FRAME '\1aOCEMIT>
4296                     <PUSH 'PUSH>
4297                     <PUSH 'TP*>
4298                     <PUSH -2>
4299                     <CONS NUM26 () = STACK>
4300                     <CALL '\1aOCEMIT 4>
4301                     <FRAME '\1aOCEMIT>
4302                     <PUSH 'PUSH>
4303                     <PUSH 'TP*>
4304                     <PUSH -1>
4305                     <CONS NUM26 () = STACK>
4306                     <DEAD NUM26>
4307                     <CALL '\1aOCEMIT 4>
4308                     <GVAL 'WINNING-VICTIM = V19>
4309                     <TYPE? V19 <TYPE-CODE FALSE> + PHRASE333>
4310                     <DEAD V19>
4311                     <GVAL 'STACK-DEPTH = V19>
4312                     <ADD V19 2 = V19 (TYPE FIX)>
4313                     <SETG 'STACK-DEPTH V19>
4314                     <DEAD V19>
4315                     <JUMP + PHRASE333>
4316 PHRASE315
4317                     <VEQUAL? VAL23 'STACK - PHRASE321>
4318                     <DEAD VAL23>
4319                     <FRAME '\1aOCEMIT>
4320                     <PUSH 'PUSH>
4321                     <PUSH 'TP*>
4322                     <SET TEMP28 2 (TYPE FIX)>
4323                     <SFRAME 'TYPE-WORD>
4324                     <PUSH 'FIX>
4325                     <SCALL '\1aTYPE-WORD 1 = V19 + TAG322 TEMP28>
4326                     <LOOP (V19 TYPE VALUE LENGTH) (TEMP28 VALUE)>
4327 TAG324
4328                     <INTGO>
4329                     <EMPTY? V19 + TAG322>
4330                     <NTH1 V19 = STACK>
4331                     <REST1 V19 = V19>
4332                     <ADD TEMP28 1 = TEMP28 (TYPE FIX)>
4333                     <JUMP + TAG324>
4334 TAG322
4335                     <CALL '\1aOCEMIT TEMP28>
4336                     <DEAD TEMP28>
4337                     <FRAME '\1aOCEMIT>
4338                     <PUSH 'PUSH>
4339                     <PUSH 'TP*>
4340                     <PUSH -1>
4341                     <CONS NUM26 () = STACK>
4342                     <DEAD NUM26>
4343                     <CALL '\1aOCEMIT 4>
4344                     <GVAL 'WINNING-VICTIM = TEMP28>
4345                     <TYPE? TEMP28 <TYPE-CODE FALSE> + PHRASE333>
4346                     <DEAD TEMP28>
4347                     <GVAL 'STACK-DEPTH = TEMP28>
4348                     <ADD TEMP28 2 = TEMP28 (TYPE FIX)>
4349                     <SETG 'STACK-DEPTH TEMP28>
4350                     <DEAD TEMP28>
4351                     <JUMP + PHRASE333>
4352 PHRASE321
4353                     <TYPE? UV?15 <TYPE-CODE FALSE> + PHRASE329>
4354                     <DEAD UV?15>
4355                     <FRAME '\1aOCEMIT>
4356                     <PUSH 'MOVE>
4357                     <FRAME '\1aNEXT-AC>
4358                     <PUSH NAC25>
4359                     <CALL '\1aNEXT-AC 1 = STACK>
4360                     <PUSH -1>
4361                     <CONS NUM26 () = STACK>
4362                     <DEAD NUM26>
4363                     <CALL '\1aOCEMIT 4>
4364                     <FRAME '\1aGET-AC>
4365                     <PUSH NAC25>
4366                     <DEAD NAC25>
4367                     <CALL '\1aGET-AC 1 = TEMP28>
4368                     <PUTUV TEMP28 6 'FIX>
4369                     <DEAD TEMP28>
4370                     <JUMP + PHRASE333>
4371 PHRASE329
4372                     <FRAME '\1aOCEMIT>
4373                     <PUSH 'DMOVE>
4374                     <PUSH NAC25>
4375                     <DEAD NAC25>
4376                     <PUSH -2>
4377                     <CONS NUM26 () = STACK>
4378                     <DEAD NUM26>
4379                     <CALL '\1aOCEMIT 4>
4380 PHRASE333
4381                     <FRAME '\1aGET-AC>
4382                     <PUSH 'T*>
4383                     <CALL '\1aGET-AC 1 = TEMP28>
4384                     <PUTUV TEMP28 3 'DUMMY (TYPE ATOM)>
4385 PHRASE217
4386                     <RETURN TEMP28>
4387                     <DEAD TEMP28>
4388                     <END \1aNTHUV!-MIMOC>
4389 #WORD *11032601210*
4390 <GFCN \1aPUTUU!-MIMOC ("VALUE" ANY LIST) L5>
4391                     <TEMP TEMP7>
4392                     <INTGO>
4393                     <FRAME '\1aPUTUV!-MIMOC>
4394                     <PUSH L5>
4395                     <DEAD L5>
4396                     <PUSH 'T>
4397                     <CALL '\1aPUTUV!-MIMOC 2 = TEMP7>
4398                     <RETURN TEMP7>
4399                     <DEAD TEMP7>
4400                     <END \1aPUTUU!-MIMOC>
4401 #WORD *23270334466*
4402 <GFCN \1aPUTUV!-MIMOC ("VALUE" ANY LIST "OPTIONAL" ANY) L6 UV?7>
4403                     <OPT-DISPATCH 1 %<> OPT4 OPT5>
4404 OPT4
4405                     <PUSH %<>>
4406 OPT5
4407                     <TEMP V8 (TEMP16 %<>) AMT9 VAL11 PUT-TYP15 AC12 TEMP29 AMT-AC13>
4408                     <INTGO>
4409                     <NTHL L6 1 = V8>
4410                     <RESTL L6 1 = TEMP16 (TYPE LIST)>
4411                     <NTHL TEMP16 1 = AMT9>
4412                     <DEAD TEMP16>
4413                     <RESTL L6 1 = TEMP16 (TYPE LIST)>
4414                     <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
4415                     <NTHL TEMP16 1 = VAL11>
4416                     <DEAD TEMP16>
4417                     <FRAME '\1aEXTRAMEM>
4418                     <PUSH 'TYPE>
4419                     <PUSH L6>
4420                     <DEAD L6>
4421                     <CALL '\1aEXTRAMEM 2 = PUT-TYP15>
4422                     <FRAME '\1aIN-AC?>
4423                     <PUSH V8>
4424                     <PUSH 'BOTH>
4425                     <CALL '\1aIN-AC? 2 = TEMP16>
4426                     <TYPE? TEMP16 <TYPE-CODE FALSE> + BOOL21>
4427                     <FRAME '\1aNEXT-AC>
4428                     <PUSH TEMP16>
4429                     <DEAD TEMP16>
4430                     <CALL '\1aNEXT-AC 1 = AC12>
4431                     <TYPE? AC12 <TYPE-CODE FALSE> - PHRASE19>
4432 BOOL21
4433                     <FRAME '\1aIN-AC?>
4434                     <PUSH V8>
4435                     <PUSH 'VALUE>
4436                     <CALL '\1aIN-AC? 2 = AC12>
4437                     <TYPE? AC12 <TYPE-CODE FALSE> - PHRASE19>
4438                     <EQUAL? AMT9 1 + PHRASE19>
4439                     <TYPE? AMT9 <TYPE-CODE FIX> - PHRASE19>
4440                     <FRAME '\1aNEXT-AC>
4441                     <FRAME '\1aLOAD-AC>
4442                     <PUSH V8>
4443                     <PUSH 'BOTH>
4444                     <CALL '\1aLOAD-AC 2 = TEMP16>
4445                     <PUSH TEMP16>
4446                     <DEAD TEMP16>
4447                     <CALL '\1aNEXT-AC 1 = AC12>
4448                     <JUMP + PHRASE27>
4449 PHRASE19
4450                     <TYPE? AC12 <TYPE-CODE FALSE> + PHRASE27>
4451                     <SETG 'FIRST-AC %<>>
4452                     <FRAME '\1aGET-AC>
4453                     <PUSH AC12>
4454                     <CALL '\1aGET-AC 1 = TEMP16>
4455                     <GVAL 'AC-STAMP = TEMP29>
4456                     <ADD TEMP29 1 = TEMP29 (TYPE FIX)>
4457                     <SETG 'AC-STAMP TEMP29>
4458                     <PUTUV TEMP16 4 TEMP29 (TYPE FIX)>
4459                     <DEAD TEMP16 TEMP29>
4460 PHRASE27
4461                     <TYPE? AMT9 <TYPE-CODE FIX> - PHRASE31>
4462                     <TYPE? UV?7 <TYPE-CODE FALSE> + PHRASE31>
4463                     <TYPE? AC12 <TYPE-CODE FALSE> + PHRASE34>
4464                     <FRAME '\1aDO-PUT>
4465                     <PUSH 'FIX>
4466                     <PUSH AC12>
4467                     <DEAD AC12>
4468                     <PUSH VAL11>
4469                     <DEAD VAL11>
4470                     <SUB AMT9 2 = STACK (TYPE FIX)>
4471                     <DEAD AMT9>
4472                     <CALL '\1aDO-PUT 4 = TEMP16>
4473                     <RETURN TEMP16>
4474                     <DEAD TEMP16>
4475 PHRASE34
4476                     <FRAME '\1aPRIMTYPE>
4477                     <PUSH VAL11>
4478                     <CALL '\1aPRIMTYPE 1 = TEMP29>
4479                     <VEQUAL? TEMP29 'LIST - BOOL38>
4480                     <DEAD TEMP29>
4481                     <EMPTY? VAL11 + BOOL37>
4482 BOOL38
4483                     <FRAME '\1aPRIMTYPE>
4484                     <PUSH VAL11>
4485                     <CALL '\1aPRIMTYPE 1 = TEMP29>
4486                     <VEQUAL? TEMP29 'WORD - PHRASE36>
4487                     <DEAD TEMP29>
4488                     <VEQUAL? VAL11 0 - PHRASE36 (TYPE FIX)>
4489 BOOL37
4490                     <FRAME '\1aOCEMIT>
4491                     <PUSH 'SETZM>
4492                     <PUSH '@>
4493                     <SET TEMP16 2 (TYPE FIX)>
4494                     <SFRAME 'OBJ-VAL>
4495                     <PUSH V8>
4496                     <DEAD V8>
4497                     <SCALL '\1aOBJ-VAL 1 = TEMP29 + TAG44 TEMP16>
4498                     <LOOP (TEMP29 TYPE VALUE LENGTH) (TEMP16 VALUE)>
4499 TAG47
4500                     <INTGO>
4501                     <EMPTY? TEMP29 + TAG44>
4502                     <NTH1 TEMP29 = STACK>
4503                     <REST1 TEMP29 = TEMP29>
4504                     <ADD TEMP16 1 = TEMP16 (TYPE FIX)>
4505                     <JUMP + TAG47>
4506 TAG44
4507                     <CALL '\1aOCEMIT TEMP16 = TEMP16>
4508                     <RETURN TEMP16>
4509                     <DEAD TEMP16>
4510 PHRASE36
4511                     <FRAME '\1aPRIMTYPE>
4512                     <PUSH VAL11>
4513                     <CALL '\1aPRIMTYPE 1 = TEMP16>
4514                     <VEQUAL? TEMP16 'WORD - PHRASE49>
4515                     <DEAD TEMP16>
4516                     <VEQUAL? VAL11 -1 - PHRASE49 (TYPE FIX)>
4517                     <FRAME '\1aOCEMIT>
4518                     <PUSH 'SETOM>
4519                     <PUSH '@>
4520                     <SET TEMP29 2 (TYPE FIX)>
4521                     <SFRAME 'OBJ-VAL>
4522                     <PUSH V8>
4523                     <DEAD V8>
4524                     <SCALL '\1aOBJ-VAL 1 = TEMP16 + TAG54 TEMP29>
4525                     <LOOP (TEMP16 TYPE VALUE LENGTH) (TEMP29 VALUE)>
4526 TAG56
4527                     <INTGO>
4528                     <EMPTY? TEMP16 + TAG54>
4529                     <NTH1 TEMP16 = STACK>
4530                     <REST1 TEMP16 = TEMP16>
4531                     <ADD TEMP29 1 = TEMP29 (TYPE FIX)>
4532                     <JUMP + TAG56>
4533 TAG54
4534                     <CALL '\1aOCEMIT TEMP29 = TEMP16>
4535                     <DEAD TEMP29>
4536                     <RETURN TEMP16>
4537                     <DEAD TEMP16>
4538 PHRASE49
4539                     <TYPE? VAL11 <TYPE-CODE ATOM> - PHRASE58>
4540                     <FRAME '\1aNEXT-AC>
4541                     <FRAME '\1aLOAD-AC>
4542                     <PUSH VAL11>
4543                     <DEAD VAL11>
4544                     <PUSH 'BOTH>
4545                     <CALL '\1aLOAD-AC 2 = STACK>
4546                     <CALL '\1aNEXT-AC 1 = TEMP16>
4547                     <FRAME '\1aOCEMIT>
4548                     <PUSH 'MOVEM>
4549                     <PUSH TEMP16>
4550                     <DEAD TEMP16>
4551                     <PUSH '@>
4552                     <SET TEMP16 3 (TYPE FIX)>
4553                     <SFRAME 'OBJ-VAL>
4554                     <PUSH V8>
4555                     <DEAD V8>
4556                     <SCALL '\1aOBJ-VAL 1 = TEMP29 + TAG61 TEMP16>
4557                     <LOOP (TEMP29 TYPE VALUE LENGTH) (TEMP16 VALUE)>
4558 TAG63
4559                     <INTGO>
4560                     <EMPTY? TEMP29 + TAG61>
4561                     <NTH1 TEMP29 = STACK>
4562                     <REST1 TEMP29 = TEMP29>
4563                     <ADD TEMP16 1 = TEMP16 (TYPE FIX)>
4564                     <JUMP + TAG63>
4565 TAG61
4566                     <CALL '\1aOCEMIT TEMP16 = TEMP16>
4567                     <RETURN TEMP16>
4568                     <DEAD TEMP16>
4569 PHRASE58
4570                     <FRAME '\1aGET-INTO-ACS>
4571                     <PUSH VAL11>
4572                     <DEAD VAL11>
4573                     <PUSH 'VALUE>
4574                     <PUSH 'O*>
4575                     <CALL '\1aGET-INTO-ACS 3>
4576                     <FRAME '\1aOCEMIT>
4577                     <PUSH 'MOVEM>
4578                     <PUSH 'O*>
4579                     <PUSH '@>
4580                     <SET TEMP29 3 (TYPE FIX)>
4581                     <SFRAME 'OBJ-VAL>
4582                     <PUSH V8>
4583                     <DEAD V8>
4584                     <SCALL '\1aOBJ-VAL 1 = TEMP16 + TAG67 TEMP29>
4585                     <LOOP (TEMP16 TYPE VALUE LENGTH) (TEMP29 VALUE)>
4586 TAG69
4587                     <INTGO>
4588                     <EMPTY? TEMP16 + TAG67>
4589                     <NTH1 TEMP16 = STACK>
4590                     <REST1 TEMP16 = TEMP16>
4591                     <ADD TEMP29 1 = TEMP29 (TYPE FIX)>
4592                     <JUMP + TAG69>
4593 TAG67
4594                     <CALL '\1aOCEMIT TEMP29 = TEMP16>
4595                     <DEAD TEMP29>
4596                     <RETURN TEMP16>
4597                     <DEAD TEMP16>
4598 PHRASE31
4599                     <TYPE? AMT9 <TYPE-CODE FIX> - PHRASE71>
4600                     <TYPE? AC12 <TYPE-CODE FALSE> + PHRASE73>
4601                     <FRAME '\1aDO-PUT>
4602                     <PUSH PUT-TYP15>
4603                     <DEAD PUT-TYP15>
4604                     <PUSH AC12>
4605                     <DEAD AC12>
4606                     <PUSH VAL11>
4607                     <DEAD VAL11>
4608                     <SUB AMT9 1 = TEMP29 (TYPE FIX)>
4609                     <DEAD AMT9>
4610                     <LSH TEMP29 1 = STACK (TYPE FIX)>
4611                     <DEAD TEMP29>
4612                     <CALL '\1aDO-PUT 4 = TEMP16>
4613                     <RETURN TEMP16>
4614                     <DEAD TEMP16>
4615 PHRASE73
4616                     <FRAME '\1aLOAD-AC>
4617                     <PUSH VAL11>
4618                     <DEAD VAL11>
4619                     <PUSH 'BOTH>
4620                     <CALL '\1aLOAD-AC 2 = TEMP16>
4621                     <FRAME '\1aOCEMIT>
4622                     <PUSH 'DMOVEM>
4623                     <PUSH TEMP16>
4624                     <DEAD TEMP16>
4625                     <PUSH '@>
4626                     <SET TEMP16 3 (TYPE FIX)>
4627                     <SFRAME 'OBJ-VAL>
4628                     <PUSH V8>
4629                     <DEAD V8>
4630                     <SCALL '\1aOBJ-VAL 1 = TEMP29 + TAG77 TEMP16>
4631                     <LOOP (TEMP29 TYPE VALUE LENGTH) (TEMP16 VALUE)>
4632 TAG79
4633                     <INTGO>
4634                     <EMPTY? TEMP29 + TAG77>
4635                     <NTH1 TEMP29 = STACK>
4636                     <REST1 TEMP29 = TEMP29>
4637                     <ADD TEMP16 1 = TEMP16 (TYPE FIX)>
4638                     <JUMP + TAG79>
4639 TAG77
4640                     <CALL '\1aOCEMIT TEMP16 = TEMP16>
4641                     <RETURN TEMP16>
4642                     <DEAD TEMP16>
4643 PHRASE71
4644                     <FRAME '\1aIN-AC?>
4645                     <PUSH AMT9>
4646                     <PUSH 'VALUE>
4647                     <CALL '\1aIN-AC? 2 = AMT-AC13>
4648                     <TYPE? AMT-AC13 <TYPE-CODE FALSE> + PHRASE83>
4649                     <FRAME '\1aWILL-DIE?>
4650                     <PUSH AMT9>
4651                     <CALL '\1aWILL-DIE? 1 = TEMP16>
4652                     <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE83>
4653                     <DEAD TEMP16>
4654                     <SETG 'FIRST-AC %<>>
4655                     <FRAME '\1aDEAD!-MIMOC>
4656                     <CONS AMT9 () = STACK>
4657                     <DEAD AMT9>
4658                     <PUSH 'T>
4659                     <CALL '\1aDEAD!-MIMOC 2>
4660                     <FRAME '\1aGET-AC>
4661                     <PUSH AMT-AC13>
4662                     <CALL '\1aGET-AC 1 = TEMP16>
4663                     <GVAL 'AC-STAMP = TEMP29>
4664                     <PUTUV TEMP16 4 TEMP29 (TYPE FIX)>
4665                     <DEAD TEMP16 TEMP29>
4666                     <FRAME '\1aGET-AC>
4667                     <FRAME '\1aGETPROP>
4668                     <PUSH AMT-AC13>
4669                     <PUSH 'AC-PAIR>
4670                     <CALL '\1aGETPROP 2 = TEMP16>
4671                     <PUSH TEMP16>
4672                     <DEAD TEMP16>
4673                     <CALL '\1aGET-AC 1 = TEMP16>
4674                     <GVAL 'AC-STAMP = TEMP29>
4675                     <PUTUV TEMP16 4 TEMP29 (TYPE FIX)>
4676                     <DEAD TEMP16 TEMP29>
4677                     <JUMP + PHRASE91>
4678 PHRASE83
4679                     <FRAME '\1aGET-INTO-ACS>
4680                     <PUSH AMT9>
4681                     <DEAD AMT9>
4682                     <PUSH 'VALUE>
4683                     <SET AMT-AC13 'T* (TYPE ATOM)>
4684                     <PUSH AMT-AC13>
4685                     <CALL '\1aGET-INTO-ACS 3>
4686 PHRASE91
4687                     <TYPE? UV?7 <TYPE-CODE FALSE> - PHRASE94>
4688                     <FRAME '\1aOCEMIT>
4689                     <PUSH 'LSH>
4690                     <PUSH AMT-AC13>
4691                     <PUSH 1>
4692                     <CALL '\1aOCEMIT 3>
4693 PHRASE94
4694                     <TYPE? AC12 <TYPE-CODE FALSE> + PHRASE97>
4695                     <FRAME '\1aOCEMIT>
4696                     <PUSH 'ADD>
4697                     <PUSH AMT-AC13>
4698                     <PUSH AC12>
4699                     <DEAD AC12>
4700                     <CALL '\1aOCEMIT 3>
4701                     <JUMP + PHRASE99>
4702 PHRASE97
4703                     <FRAME '\1aOCEMIT>
4704                     <PUSH 'ADD>
4705                     <PUSH AMT-AC13>
4706                     <SET TEMP29 2 (TYPE FIX)>
4707                     <SFRAME 'OBJ-VAL>
4708                     <PUSH V8>
4709                     <DEAD V8>
4710                     <SCALL '\1aOBJ-VAL 1 = TEMP16 + TAG100 TEMP29>
4711                     <LOOP (TEMP16 TYPE VALUE LENGTH) (TEMP29 VALUE)>
4712 TAG102
4713                     <INTGO>
4714                     <EMPTY? TEMP16 + TAG100>
4715                     <NTH1 TEMP16 = STACK>
4716                     <REST1 TEMP16 = TEMP16>
4717                     <ADD TEMP29 1 = TEMP29 (TYPE FIX)>
4718                     <JUMP + TAG102>
4719 TAG100
4720                     <CALL '\1aOCEMIT TEMP29>
4721                     <DEAD TEMP29>
4722 PHRASE99
4723                     <TYPE? UV?7 <TYPE-CODE FALSE> + PHRASE105>
4724                     <DEAD UV?7>
4725                     <FRAME '\1aDO-PUT>
4726                     <PUSH 'FIX>
4727                     <PUSH AMT-AC13>
4728                     <PUSH VAL11>
4729                     <DEAD VAL11>
4730                     <PUSH -2>
4731                     <CALL '\1aDO-PUT 4>
4732                     <JUMP + PHRASE107>
4733 PHRASE105
4734                     <FRAME '\1aDO-PUT>
4735                     <PUSH PUT-TYP15>
4736                     <DEAD PUT-TYP15>
4737                     <PUSH AMT-AC13>
4738                     <PUSH VAL11>
4739                     <DEAD VAL11>
4740                     <PUSH -2>
4741                     <CALL '\1aDO-PUT 4>
4742 PHRASE107
4743                     <FRAME '\1aGET-AC>
4744                     <PUSH AMT-AC13>
4745                     <DEAD AMT-AC13>
4746                     <CALL '\1aGET-AC 1 = TEMP29>
4747                     <PUTUV TEMP29 3 'DUMMY (TYPE ATOM)>
4748                     <RETURN TEMP29>
4749                     <DEAD TEMP29>
4750                     <END \1aPUTUV!-MIMOC>\r\r
4751 #WORD *31372661712*
4752 <GFCN \1aRESTUU!-MIMOC ("VALUE" <OR FALSE FIX> LIST) L5>
4753                     <TEMP TEMP7>
4754                     <INTGO>
4755                     <FRAME '\1aRESTUV!-MIMOC>
4756                     <PUSH L5>
4757                     <DEAD L5>
4758                     <PUSH 'T>
4759                     <CALL '\1aRESTUV!-MIMOC 2 = TEMP7>
4760                     <RETURN TEMP7>
4761                     <DEAD TEMP7>
4762                     <END \1aRESTUU!-MIMOC>
4763 #WORD *26667670566*
4764 <GFCN \1aRESTUV!-MIMOC ("VALUE" <OR FALSE FIX> LIST "OPTIONAL" ANY) L6 UV?7>
4765                     <OPT-DISPATCH 1 %<> OPT4 OPT5>
4766 OPT4
4767                     <PUSH %<>>
4768 OPT5
4769                     <TEMP V8 TEMP14 AMT9 VAL10:ATOM AC11 NAC12 TEMP52>
4770                     <INTGO>
4771                     <NTHL L6 1 = V8>
4772                     <RESTL L6 1 = TEMP14 (TYPE LIST)>
4773                     <NTHL TEMP14 1 = AMT9>
4774                     <DEAD TEMP14>
4775                     <RESTL L6 1 = TEMP14 (TYPE LIST)>
4776                     <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
4777                     <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
4778                     <NTHL TEMP14 1 = VAL10 (TYPE ATOM)>
4779                     <DEAD TEMP14>
4780                     <FRAME '\1aEXTRAMEM>
4781                     <PUSH 'TYPE>
4782                     <PUSH L6>
4783                     <DEAD L6>
4784                     <CALL '\1aEXTRAMEM 2>
4785                     <TYPE? AMT9 <TYPE-CODE FIX> - PHRASE17>
4786                     <VEQUAL? AMT9 1 - PHRASE19 (TYPE FIX)>
4787                     <VEQUAL? V8 VAL10 - PHRASE19>
4788                     <FRAME '\1aIN-AC?>
4789                     <PUSH V8>
4790                     <PUSH 'BOTH>
4791                     <CALL '\1aIN-AC? 2 = AC11>
4792                     <JUMP + PHRASE24>
4793 PHRASE19
4794                     <FRAME '\1aLOAD-AC>
4795                     <PUSH V8>
4796                     <PUSH 'BOTH>
4797                     <CALL '\1aLOAD-AC 2 = AC11>
4798 PHRASE24
4799                     <TYPE? AC11 <TYPE-CODE FALSE> + PHRASE27>
4800                     <VEQUAL? V8 VAL10 + PHRASE29>
4801                     <FRAME '\1aWILL-DIE?>
4802                     <PUSH V8>
4803                     <DEAD V8>
4804                     <CALL '\1aWILL-DIE? 1 = TEMP14>
4805                     <TYPE? TEMP14 <TYPE-CODE FALSE> - PHRASE29>
4806                     <DEAD TEMP14>
4807                     <FRAME '\1aGET-AC>
4808                     <PUSH AC11>
4809                     <CALL '\1aGET-AC 1 = TEMP14>
4810                     <NTHUV TEMP14 5 = TEMP14>
4811                     <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE29>
4812                     <DEAD TEMP14>
4813                     <FRAME '\1aCLEAN-ACS>
4814                     <PUSH VAL10>
4815                     <CALL '\1aCLEAN-ACS 1>
4816                     <FRAME '\1aASSIGN-AC>
4817                     <PUSH VAL10>
4818                     <PUSH 'BOTH>
4819                     <PUSH 'T>
4820                     <CALL '\1aASSIGN-AC 3 = NAC12>
4821                     <FRAME '\1aOCEMIT>
4822                     <PUSH 'DMOVE>
4823                     <PUSH NAC12>
4824                     <PUSH AC11>
4825                     <DEAD AC11>
4826                     <CALL '\1aOCEMIT 3>
4827                     <JUMP + PHRASE36>
4828 PHRASE29
4829                     <FRAME '\1aCLEAN-ACS>
4830                     <PUSH VAL10>
4831                     <CALL '\1aCLEAN-ACS 1>
4832                     <VEQUAL? VAL10 'STACK + PHRASE39>
4833                     <FRAME '\1aALTER-AC>
4834                     <PUSH AC11>
4835                     <PUSH VAL10>
4836                     <CALL '\1aALTER-AC 2>
4837                     <JUMP + PHRASE41>
4838 PHRASE39
4839                     <FRAME '\1aMUNGED-AC>
4840                     <PUSH AC11>
4841                     <PUSH 'T>
4842                     <CALL '\1aMUNGED-AC 2>
4843 PHRASE41
4844                     <SET NAC12 AC11>
4845                     <DEAD AC11>
4846 PHRASE36
4847                     <FRAME '\1aOCEMIT>
4848                     <PUSH 'ADDI>
4849                     <FRAME '\1aNEXT-AC>
4850                     <PUSH NAC12>
4851                     <CALL '\1aNEXT-AC 1 = STACK>
4852                     <TYPE? UV?7 <TYPE-CODE FALSE> + PHRASE46>
4853                     <DEAD UV?7>
4854                     <SET TEMP14 AMT9>
4855                     <JUMP + PHRASE47>
4856 PHRASE46
4857                     <LSH AMT9 1 = TEMP14 (TYPE FIX)>
4858 PHRASE47
4859                     <PUSH TEMP14>
4860                     <DEAD TEMP14>
4861                     <CALL '\1aOCEMIT 3>
4862                     <FRAME '\1aOCEMIT>
4863                     <PUSH 'SUBI>
4864                     <PUSH NAC12>
4865                     <PUSH AMT9>
4866                     <DEAD AMT9>
4867                     <CALL '\1aOCEMIT 3>
4868                     <JUMP + PHRASE199>
4869 PHRASE27
4870                     <FRAME '\1aASSIGN-AC>
4871                     <PUSH VAL10>
4872                     <PUSH 'BOTH>
4873                     <PUSH 'T>
4874                     <CALL '\1aASSIGN-AC 3 = NAC12>
4875                     <FRAME '\1aOCEMIT>
4876                     <PUSH 'SOS>
4877                     <PUSH NAC12>
4878                     <SET TEMP52 2 (TYPE FIX)>
4879                     <SFRAME 'OBJ-LOC>
4880                     <PUSH V8>
4881                     <PUSH 0>
4882                     <SCALL '\1aOBJ-LOC 2 = TEMP14 + TAG51 TEMP52>
4883                     <LOOP (TEMP14 TYPE VALUE LENGTH) (TEMP52 VALUE)>
4884 TAG54
4885                     <INTGO>
4886                     <EMPTY? TEMP14 + TAG51>
4887                     <NTH1 TEMP14 = STACK>
4888                     <REST1 TEMP14 = TEMP14>
4889                     <ADD TEMP52 1 = TEMP52 (TYPE FIX)>
4890                     <JUMP + TAG54>
4891 TAG51
4892                     <CALL '\1aOCEMIT TEMP52>
4893                     <DEAD TEMP52>
4894                     <TYPE? UV?7 <TYPE-CODE FALSE> + PHRASE57>
4895                     <DEAD UV?7>
4896                     <FRAME '\1aOCEMIT>
4897                     <PUSH 'AOS>
4898                     <FRAME '\1aNEXT-AC>
4899                     <PUSH NAC12>
4900                     <CALL '\1aNEXT-AC 1 = STACK>
4901                     <SET TEMP14 2 (TYPE FIX)>
4902                     <SFRAME 'OBJ-LOC>
4903                     <PUSH V8>
4904                     <PUSH 1>
4905                     <SCALL '\1aOBJ-LOC 2 = TEMP52 + TAG58 TEMP14>
4906                     <LOOP (TEMP52 TYPE VALUE LENGTH) (TEMP14 VALUE)>
4907 TAG61
4908                     <INTGO>
4909                     <EMPTY? TEMP52 + TAG58>
4910                     <NTH1 TEMP52 = STACK>
4911                     <REST1 TEMP52 = TEMP52>
4912                     <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
4913                     <JUMP + TAG61>
4914 TAG58
4915                     <CALL '\1aOCEMIT TEMP14>
4916                     <DEAD TEMP14>
4917                     <JUMP + PHRASE63>
4918 PHRASE57
4919                     <FRAME '\1aOCEMIT>
4920                     <PUSH 'MOVEI>
4921                     <FRAME '\1aNEXT-AC>
4922                     <PUSH NAC12>
4923                     <CALL '\1aNEXT-AC 1 = STACK>
4924                     <PUSH 2>
4925                     <CALL '\1aOCEMIT 3>
4926                     <FRAME '\1aOCEMIT>
4927                     <PUSH 'ADDB>
4928                     <FRAME '\1aNEXT-AC>
4929                     <PUSH NAC12>
4930                     <CALL '\1aNEXT-AC 1 = STACK>
4931                     <SET TEMP52 2 (TYPE FIX)>
4932                     <SFRAME 'OBJ-LOC>
4933                     <PUSH V8>
4934                     <PUSH 1>
4935                     <SCALL '\1aOBJ-LOC 2 = TEMP14 + TAG66 TEMP52>
4936                     <LOOP (TEMP14 TYPE VALUE LENGTH) (TEMP52 VALUE)>
4937 TAG69
4938                     <INTGO>
4939                     <EMPTY? TEMP14 + TAG66>
4940                     <NTH1 TEMP14 = STACK>
4941                     <REST1 TEMP14 = TEMP14>
4942                     <ADD TEMP52 1 = TEMP52 (TYPE FIX)>
4943                     <JUMP + TAG69>
4944 TAG66
4945                     <CALL '\1aOCEMIT TEMP52>
4946                     <DEAD TEMP52>
4947 PHRASE63
4948                     <FRAME '\1aGET-AC>
4949                     <PUSH NAC12>
4950                     <CALL '\1aGET-AC 1 = TEMP52>
4951                     <PUTUV TEMP52 5 %<>>
4952                     <DEAD TEMP52>
4953                     <FRAME '\1aGET-AC>
4954                     <FRAME '\1aNEXT-AC>
4955                     <PUSH NAC12>
4956                     <CALL '\1aNEXT-AC 1 = STACK>
4957                     <CALL '\1aGET-AC 1 = TEMP52>
4958                     <PUTUV TEMP52 5 %<>>
4959                     <DEAD TEMP52>
4960                     <FRAME '\1aGET-AC>
4961                     <PUSH NAC12>
4962                     <CALL '\1aGET-AC 1 = TEMP52>
4963                     <PUTUV TEMP52 2 V8>
4964                     <DEAD TEMP52>
4965                     <FRAME '\1aGET-AC>
4966                     <FRAME '\1aNEXT-AC>
4967                     <PUSH NAC12>
4968                     <CALL '\1aNEXT-AC 1 = STACK>
4969                     <CALL '\1aGET-AC 1 = TEMP52>
4970                     <PUTUV TEMP52 2 V8>
4971                     <DEAD TEMP52 V8>
4972                     <FRAME '\1aGET-AC>
4973                     <PUSH NAC12>
4974                     <CALL '\1aGET-AC 1 = TEMP52>
4975                     <PUTUV TEMP52 3 'TYPE (TYPE ATOM)>
4976                     <DEAD TEMP52>
4977                     <FRAME '\1aGET-AC>
4978                     <FRAME '\1aNEXT-AC>
4979                     <PUSH NAC12>
4980                     <CALL '\1aNEXT-AC 1 = STACK>
4981                     <CALL '\1aGET-AC 1 = TEMP52>
4982                     <PUTUV TEMP52 3 'VALUE (TYPE ATOM)>
4983                     <DEAD TEMP52>
4984                     <JUMP + PHRASE199>
4985 PHRASE17
4986                     <VEQUAL? V8 VAL10 - PHRASE80>
4987                     <FRAME '\1aLOAD-AC>
4988                     <PUSH V8>
4989                     <DEAD V8>
4990                     <PUSH 'BOTH>
4991                     <CALL '\1aLOAD-AC 2 = NAC12>
4992                     <FRAME '\1aIN-AC?>
4993                     <PUSH AMT9>
4994                     <PUSH 'VALUE>
4995                     <CALL '\1aIN-AC? 2 = AC11>
4996                     <TYPE? AC11 <TYPE-CODE FALSE> + BOOL83>
4997                     <FRAME '\1aWILL-DIE?>
4998                     <PUSH AMT9>
4999                     <CALL '\1aWILL-DIE? 1 = TEMP52>
5000                     <TYPE? TEMP52 <TYPE-CODE FALSE> + BOOL86>
5001                     <DEAD TEMP52>
5002                     <FRAME '\1aDEAD!-MIMOC>
5003                     <CONS AMT9 () = STACK>
5004                     <PUSH 'T>
5005                     <CALL '\1aDEAD!-MIMOC 2 = TEMP52>
5006                     <TYPE? TEMP52 <TYPE-CODE FALSE> - PHRASE90>
5007                     <DEAD TEMP52>
5008 BOOL86
5009                     <FRAME '\1aGET-AC>
5010                     <PUSH AC11>
5011                     <CALL '\1aGET-AC 1 = TEMP52>
5012                     <NTHUV TEMP52 5 = TEMP52>
5013                     <TYPE? TEMP52 <TYPE-CODE FALSE> + PHRASE90>
5014                     <DEAD TEMP52>
5015 BOOL83
5016                     <SET AC11 %<> (TYPE FALSE)>
5017 PHRASE90
5018                     <FRAME '\1aOCEMIT>
5019                     <PUSH 'SUB>
5020                     <PUSH NAC12>
5021                     <SET TEMP14 2 (TYPE FIX)>
5022                     <TYPE? AC11 <TYPE-CODE FALSE> + PHRASE93>
5023                     <CONS AC11 () = TEMP52>
5024                     <JUMP + PHRASE94>
5025 PHRASE93
5026                     <FRAME '\1aOBJ-VAL>
5027                     <PUSH AMT9>
5028                     <CALL '\1aOBJ-VAL 1 = TEMP52>
5029 PHRASE94
5030                     <LOOP (TEMP52 TYPE VALUE LENGTH) (TEMP14 VALUE)>
5031 TAG96
5032                     <INTGO>
5033                     <EMPTY? TEMP52 + TAG91>
5034                     <NTH1 TEMP52 = STACK>
5035                     <REST1 TEMP52 = TEMP52>
5036                     <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
5037                     <JUMP + TAG96>
5038 TAG91
5039                     <CALL '\1aOCEMIT TEMP14>
5040                     <DEAD TEMP14>
5041                     <TYPE? UV?7 <TYPE-CODE FALSE> - PHRASE99>
5042                     <TYPE? AC11 <TYPE-CODE FALSE> + PHRASE99>
5043                     <FRAME '\1aOCEMIT>
5044                     <PUSH 'LSH>
5045                     <PUSH AC11>
5046                     <PUSH 1>
5047                     <CALL '\1aOCEMIT 3>
5048                     <JUMP + PHRASE102>
5049 PHRASE99
5050                     <TYPE? UV?7 <TYPE-CODE FALSE> - PHRASE102>
5051                     <DEAD UV?7>
5052                     <FRAME '\1aOCEMIT>
5053                     <PUSH 'ADD>
5054                     <FRAME '\1aNEXT-AC>
5055                     <PUSH NAC12>
5056                     <CALL '\1aNEXT-AC 1 = STACK>
5057                     <SET TEMP52 2 (TYPE FIX)>
5058                     <TYPE? AC11 <TYPE-CODE FALSE> + PHRASE106>
5059                     <CONS AC11 () = TEMP14>
5060                     <JUMP + PHRASE107>
5061 PHRASE106
5062                     <FRAME '\1aOBJ-VAL>
5063                     <PUSH AMT9>
5064                     <CALL '\1aOBJ-VAL 1 = TEMP14>
5065 PHRASE107
5066                     <LOOP (TEMP14 TYPE VALUE LENGTH) (TEMP52 VALUE)>
5067 TAG109
5068                     <INTGO>
5069                     <EMPTY? TEMP14 + TAG103>
5070                     <NTH1 TEMP14 = STACK>
5071                     <REST1 TEMP14 = TEMP14>
5072                     <ADD TEMP52 1 = TEMP52 (TYPE FIX)>
5073                     <JUMP + TAG109>
5074 TAG103
5075                     <CALL '\1aOCEMIT TEMP52>
5076                     <DEAD TEMP52>
5077 PHRASE102
5078                     <FRAME '\1aOCEMIT>
5079                     <PUSH 'ADD>
5080                     <FRAME '\1aNEXT-AC>
5081                     <PUSH NAC12>
5082                     <CALL '\1aNEXT-AC 1 = STACK>
5083                     <SET TEMP14 2 (TYPE FIX)>
5084                     <TYPE? AC11 <TYPE-CODE FALSE> + PHRASE114>
5085                     <CONS AC11 () = TEMP52>
5086                     <DEAD AC11>
5087                     <JUMP + PHRASE115>
5088 PHRASE114
5089                     <FRAME '\1aOBJ-VAL>
5090                     <PUSH AMT9>
5091                     <DEAD AMT9>
5092                     <CALL '\1aOBJ-VAL 1 = TEMP52>
5093 PHRASE115
5094                     <LOOP (TEMP52 TYPE VALUE LENGTH) (TEMP14 VALUE)>
5095 TAG117
5096                     <INTGO>
5097                     <EMPTY? TEMP52 + TAG111>
5098                     <NTH1 TEMP52 = STACK>
5099                     <REST1 TEMP52 = TEMP52>
5100                     <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
5101                     <JUMP + TAG117>
5102 TAG111
5103                     <CALL '\1aOCEMIT TEMP14>
5104                     <DEAD TEMP14>
5105                     <FRAME '\1aGET-AC>
5106                     <PUSH NAC12>
5107                     <CALL '\1aGET-AC 1 = TEMP14>
5108                     <PUTUV TEMP14 5 'T>
5109                     <DEAD TEMP14>
5110                     <FRAME '\1aGET-AC>
5111                     <FRAME '\1aNEXT-AC>
5112                     <PUSH NAC12>
5113                     <CALL '\1aNEXT-AC 1 = STACK>
5114                     <CALL '\1aGET-AC 1 = TEMP14>
5115                     <PUTUV TEMP14 5 'T>
5116                     <DEAD TEMP14>
5117                     <JUMP + PHRASE199>
5118 PHRASE80
5119                     <VEQUAL? VAL10 AMT9 - PHRASE122>
5120                     <FRAME '\1aIN-AC?>
5121                     <PUSH AMT9>
5122                     <PUSH 'VALUE>
5123                     <CALL '\1aIN-AC? 2 = AC11>
5124                     <SETG 'FIRST-AC %<>>
5125                     <FRAME '\1aLOAD-AC>
5126                     <PUSH V8>
5127                     <DEAD V8>
5128                     <PUSH 'BOTH>
5129                     <CALL '\1aLOAD-AC 2 = NAC12>
5130                     <FRAME '\1aFLUSH-AC>
5131                     <PUSH NAC12>
5132                     <PUSH 'T>
5133                     <CALL '\1aFLUSH-AC 2>
5134                     <FRAME '\1aMUNGED-AC>
5135                     <PUSH NAC12>
5136                     <PUSH 'T>
5137                     <CALL '\1aMUNGED-AC 2>
5138                     <FRAME '\1aCLEAN-ACS>
5139                     <PUSH AMT9>
5140                     <CALL '\1aCLEAN-ACS 1>
5141                     <FRAME '\1aOCEMIT>
5142                     <PUSH 'SUB>
5143                     <PUSH NAC12>
5144                     <SET TEMP52 2 (TYPE FIX)>
5145                     <TYPE? AC11 <TYPE-CODE FALSE> + PHRASE130>
5146                     <CONS AC11 () = TEMP14>
5147                     <JUMP + PHRASE131>
5148 PHRASE130
5149                     <FRAME '\1aOBJ-VAL>
5150                     <PUSH AMT9>
5151                     <CALL '\1aOBJ-VAL 1 = TEMP14>
5152 PHRASE131
5153                     <LOOP (TEMP14 TYPE VALUE LENGTH) (TEMP52 VALUE)>
5154 TAG133
5155                     <INTGO>
5156                     <EMPTY? TEMP14 + TAG128>
5157                     <NTH1 TEMP14 = STACK>
5158                     <REST1 TEMP14 = TEMP14>
5159                     <ADD TEMP52 1 = TEMP52 (TYPE FIX)>
5160                     <JUMP + TAG133>
5161 TAG128
5162                     <CALL '\1aOCEMIT TEMP52>
5163                     <DEAD TEMP52>
5164                     <TYPE? UV?7 <TYPE-CODE FALSE> - PHRASE136>
5165                     <TYPE? AC11 <TYPE-CODE FALSE> + PHRASE136>
5166                     <FRAME '\1aOCEMIT>
5167                     <PUSH 'LSH>
5168                     <PUSH AC11>
5169                     <PUSH 1>
5170                     <CALL '\1aOCEMIT 3>
5171                     <JUMP + PHRASE139>
5172 PHRASE136
5173                     <TYPE? UV?7 <TYPE-CODE FALSE> - PHRASE139>
5174                     <DEAD UV?7>
5175                     <FRAME '\1aOCEMIT>
5176                     <PUSH 'ADD>
5177                     <FRAME '\1aNEXT-AC>
5178                     <PUSH NAC12>
5179                     <CALL '\1aNEXT-AC 1 = STACK>
5180                     <SET TEMP14 2 (TYPE FIX)>
5181                     <TYPE? AC11 <TYPE-CODE FALSE> + PHRASE143>
5182                     <CONS AC11 () = TEMP52>
5183                     <JUMP + PHRASE144>
5184 PHRASE143
5185                     <FRAME '\1aOBJ-VAL>
5186                     <PUSH AMT9>
5187                     <CALL '\1aOBJ-VAL 1 = TEMP52>
5188 PHRASE144
5189                     <LOOP (TEMP52 TYPE VALUE LENGTH) (TEMP14 VALUE)>
5190 TAG146
5191                     <INTGO>
5192                     <EMPTY? TEMP52 + TAG140>
5193                     <NTH1 TEMP52 = STACK>
5194                     <REST1 TEMP52 = TEMP52>
5195                     <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
5196                     <JUMP + TAG146>
5197 TAG140
5198                     <CALL '\1aOCEMIT TEMP14>
5199                     <DEAD TEMP14>
5200 PHRASE139
5201                     <FRAME '\1aOCEMIT>
5202                     <PUSH 'ADD>
5203                     <FRAME '\1aNEXT-AC>
5204                     <PUSH NAC12>
5205                     <CALL '\1aNEXT-AC 1 = STACK>
5206                     <SET TEMP52 2 (TYPE FIX)>
5207                     <TYPE? AC11 <TYPE-CODE FALSE> + PHRASE151>
5208                     <CONS AC11 () = TEMP14>
5209                     <DEAD AC11>
5210                     <JUMP + PHRASE152>
5211 PHRASE151
5212                     <FRAME '\1aOBJ-VAL>
5213                     <PUSH AMT9>
5214                     <DEAD AMT9>
5215                     <CALL '\1aOBJ-VAL 1 = TEMP14>
5216 PHRASE152
5217                     <LOOP (TEMP14 TYPE VALUE LENGTH) (TEMP52 VALUE)>
5218 TAG154
5219                     <INTGO>
5220                     <EMPTY? TEMP14 + TAG148>
5221                     <NTH1 TEMP14 = STACK>
5222                     <REST1 TEMP14 = TEMP14>
5223                     <ADD TEMP52 1 = TEMP52 (TYPE FIX)>
5224                     <JUMP + TAG154>
5225 TAG148
5226                     <CALL '\1aOCEMIT TEMP52>
5227                     <DEAD TEMP52>
5228                     <FRAME '\1aALTER-AC>
5229                     <PUSH NAC12>
5230                     <PUSH VAL10>
5231                     <CALL '\1aALTER-AC 2>
5232                     <JUMP + PHRASE199>
5233 PHRASE122
5234                     <FRAME '\1aLOAD-AC>
5235                     <PUSH V8>
5236                     <DEAD V8>
5237                     <PUSH 'BOTH>
5238                     <CALL '\1aLOAD-AC 2 = NAC12>
5239                     <FRAME '\1aFLUSH-AC>
5240                     <PUSH NAC12>
5241                     <PUSH 'T>
5242                     <CALL '\1aFLUSH-AC 2>
5243                     <FRAME '\1aMUNGED-AC>
5244                     <PUSH NAC12>
5245                     <PUSH 'T>
5246                     <CALL '\1aMUNGED-AC 2>
5247                     <FRAME '\1aIN-AC?>
5248                     <PUSH AMT9>
5249                     <PUSH 'VALUE>
5250                     <CALL '\1aIN-AC? 2 = AC11>
5251                     <TYPE? AC11 <TYPE-CODE FALSE> + BOOL162>
5252                     <FRAME '\1aWILL-DIE?>
5253                     <PUSH AMT9>
5254                     <CALL '\1aWILL-DIE? 1 = TEMP52>
5255                     <TYPE? TEMP52 <TYPE-CODE FALSE> + BOOL165>
5256                     <DEAD TEMP52>
5257                     <FRAME '\1aDEAD!-MIMOC>
5258                     <CONS AMT9 () = STACK>
5259                     <PUSH 'T>
5260                     <CALL '\1aDEAD!-MIMOC 2 = TEMP52>
5261                     <TYPE? TEMP52 <TYPE-CODE FALSE> - PHRASE169>
5262                     <DEAD TEMP52>
5263 BOOL165
5264                     <FRAME '\1aGET-AC>
5265                     <PUSH AC11>
5266                     <CALL '\1aGET-AC 1 = TEMP52>
5267                     <NTHUV TEMP52 5 = TEMP52>
5268                     <TYPE? TEMP52 <TYPE-CODE FALSE> + PHRASE169>
5269                     <DEAD TEMP52>
5270                     <TYPE? UV?7 <TYPE-CODE FALSE> - PHRASE169>
5271 BOOL162
5272                     <SET AC11 %<> (TYPE FALSE)>
5273 PHRASE169
5274                     <FRAME '\1aOCEMIT>
5275                     <PUSH 'SUB>
5276                     <PUSH NAC12>
5277                     <SET TEMP14 2 (TYPE FIX)>
5278                     <TYPE? AC11 <TYPE-CODE FALSE> + PHRASE172>
5279                     <CONS AC11 () = TEMP52>
5280                     <JUMP + PHRASE173>
5281 PHRASE172
5282                     <FRAME '\1aOBJ-VAL>
5283                     <PUSH AMT9>
5284                     <CALL '\1aOBJ-VAL 1 = TEMP52>
5285 PHRASE173
5286                     <LOOP (TEMP52 TYPE VALUE LENGTH) (TEMP14 VALUE)>
5287 TAG175
5288                     <INTGO>
5289                     <EMPTY? TEMP52 + TAG170>
5290                     <NTH1 TEMP52 = STACK>
5291                     <REST1 TEMP52 = TEMP52>
5292                     <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
5293                     <JUMP + TAG175>
5294 TAG170
5295                     <CALL '\1aOCEMIT TEMP14>
5296                     <DEAD TEMP14>
5297                     <TYPE? UV?7 <TYPE-CODE FALSE> - PHRASE178>
5298                     <TYPE? AC11 <TYPE-CODE FALSE> + PHRASE178>
5299                     <FRAME '\1aOCEMIT>
5300                     <PUSH 'LSH>
5301                     <PUSH AC11>
5302                     <PUSH 1>
5303                     <CALL '\1aOCEMIT 3>
5304                     <JUMP + PHRASE181>
5305 PHRASE178
5306                     <TYPE? UV?7 <TYPE-CODE FALSE> - PHRASE181>
5307                     <DEAD UV?7>
5308                     <FRAME '\1aOCEMIT>
5309                     <PUSH 'ADD>
5310                     <FRAME '\1aNEXT-AC>
5311                     <PUSH NAC12>
5312                     <CALL '\1aNEXT-AC 1 = STACK>
5313                     <SET TEMP52 2 (TYPE FIX)>
5314                     <TYPE? AC11 <TYPE-CODE FALSE> + PHRASE185>
5315                     <CONS AC11 () = TEMP14>
5316                     <JUMP + PHRASE186>
5317 PHRASE185
5318                     <FRAME '\1aOBJ-VAL>
5319                     <PUSH AMT9>
5320                     <CALL '\1aOBJ-VAL 1 = TEMP14>
5321 PHRASE186
5322                     <LOOP (TEMP14 TYPE VALUE LENGTH) (TEMP52 VALUE)>
5323 TAG188
5324                     <INTGO>
5325                     <EMPTY? TEMP14 + TAG182>
5326                     <NTH1 TEMP14 = STACK>
5327                     <REST1 TEMP14 = TEMP14>
5328                     <ADD TEMP52 1 = TEMP52 (TYPE FIX)>
5329                     <JUMP + TAG188>
5330 TAG182
5331                     <CALL '\1aOCEMIT TEMP52>
5332                     <DEAD TEMP52>
5333 PHRASE181
5334                     <FRAME '\1aOCEMIT>
5335                     <PUSH 'ADD>
5336                     <FRAME '\1aNEXT-AC>
5337                     <PUSH NAC12>
5338                     <CALL '\1aNEXT-AC 1 = STACK>
5339                     <SET TEMP14 2 (TYPE FIX)>
5340                     <TYPE? AC11 <TYPE-CODE FALSE> + PHRASE193>
5341                     <CONS AC11 () = TEMP52>
5342                     <DEAD AC11>
5343                     <JUMP + PHRASE194>
5344 PHRASE193
5345                     <FRAME '\1aOBJ-VAL>
5346                     <PUSH AMT9>
5347                     <DEAD AMT9>
5348                     <CALL '\1aOBJ-VAL 1 = TEMP52>
5349 PHRASE194
5350                     <LOOP (TEMP52 TYPE VALUE LENGTH) (TEMP14 VALUE)>
5351 TAG196
5352                     <INTGO>
5353                     <EMPTY? TEMP52 + TAG190>
5354                     <NTH1 TEMP52 = STACK>
5355                     <REST1 TEMP52 = TEMP52>
5356                     <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
5357                     <JUMP + TAG196>
5358 TAG190
5359                     <CALL '\1aOCEMIT TEMP14>
5360                     <DEAD TEMP14>
5361                     <VEQUAL? VAL10 'STACK + PHRASE199>
5362                     <FRAME '\1aALTER-AC>
5363                     <PUSH NAC12>
5364                     <PUSH VAL10>
5365                     <CALL '\1aALTER-AC 2>
5366 PHRASE199
5367                     <VEQUAL? VAL10 'STACK + TAG203>
5368                     <DEAD VAL10>
5369                     <RETURN %<>>
5370 TAG203
5371                     <FRAME '\1aOCEMIT>
5372                     <PUSH 'PUSH>
5373                     <PUSH 'TP*>
5374                     <PUSH NAC12>
5375                     <CALL '\1aOCEMIT 3>
5376                     <FRAME '\1aOCEMIT>
5377                     <PUSH 'PUSH>
5378                     <PUSH 'TP*>
5379                     <FRAME '\1aNEXT-AC>
5380                     <PUSH NAC12>
5381                     <DEAD NAC12>
5382                     <CALL '\1aNEXT-AC 1 = STACK>
5383                     <CALL '\1aOCEMIT 3>
5384                     <GVAL 'WINNING-VICTIM = TEMP14>
5385                     <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE208>
5386                     <GVAL 'STACK-DEPTH = TEMP52>
5387                     <ADD TEMP52 2 = TEMP52 (TYPE FIX)>
5388                     <SETG 'STACK-DEPTH TEMP52>
5389                     <SET TEMP14 TEMP52>
5390                     <DEAD TEMP52>
5391 PHRASE208
5392                     <RETURN TEMP14>
5393                     <DEAD TEMP14>
5394                     <END \1aRESTUV!-MIMOC>\r\r
5395 #WORD *36571173164*
5396 <GFCN \1aEMPUV?!-MIMOC ("VALUE" ANY LIST) L5>
5397                     <TEMP V6 TEMP11 TAG7:ATOM (JUMP8 'JUMPE) (TRN9 'TRNN) AC10 TEMP24:FIX TEMP23>
5398                     <INTGO>
5399                     <NTHL L5 1 = V6>
5400                     <RESTL L5 1 = TEMP11 (TYPE LIST)>
5401                     <RESTL TEMP11 1 = TEMP11 (TYPE LIST)>
5402                     <NTHL TEMP11 1 = TAG7 (TYPE ATOM)>
5403                     <DEAD TEMP11>
5404                     <RESTL L5 1 = TEMP11 (TYPE LIST)>
5405                     <DEAD L5>
5406                     <NTHL TEMP11 1 = TEMP11>
5407                     <EQUAL? TEMP11 '- - PHRASE13>
5408                     <DEAD TEMP11>
5409                     <SET JUMP8 'JUMPN (TYPE ATOM)>
5410                     <SET TRN9 'TRNE (TYPE ATOM)>
5411 PHRASE13
5412                     <FRAME '\1aLABEL-UPDATE-ACS>
5413                     <PUSH TAG7>
5414                     <PUSH %<>>
5415                     <CALL '\1aLABEL-UPDATE-ACS 2>
5416                     <FRAME '\1aIN-AC?>
5417                     <PUSH V6>
5418                     <PUSH 'TYPE>
5419                     <CALL '\1aIN-AC? 2 = AC10>
5420                     <TYPE? AC10 <TYPE-CODE FALSE> + PHRASE16>
5421                     <FRAME '\1aOCEMIT>
5422                     <PUSH TRN9>
5423                     <DEAD TRN9>
5424                     <PUSH AC10>
5425                     <DEAD AC10>
5426                     <PUSH 262143>
5427                     <CALL '\1aOCEMIT 3>
5428                     <FRAME '\1aOCEMIT>
5429                     <PUSH 'JRST>
5430                     <FRAME '\1aXJUMP>
5431                     <PUSH TAG7>
5432                     <CALL '\1aXJUMP 1 = STACK>
5433                     <CALL '\1aOCEMIT 2 = TEMP11>
5434                     <RETURN TEMP11>
5435                     <DEAD TEMP11>
5436 PHRASE16
5437                     <FRAME '\1aOCEMIT>
5438                     <PUSH 'HRRZ>
5439                     <PUSH 'O*>
5440                     <SET TEMP24 2 (TYPE FIX)>
5441                     <SFRAME 'OBJ-TYP>
5442                     <PUSH V6>
5443                     <DEAD V6>
5444                     <SCALL '\1aOBJ-TYP 1 = TEMP23 + TAG22 TEMP24>
5445                     <LOOP (TEMP23 TYPE VALUE LENGTH) (TEMP24 VALUE)>
5446 TAG26
5447                     <INTGO>
5448                     <EMPTY? TEMP23 + TAG22>
5449                     <NTH1 TEMP23 = STACK>
5450                     <REST1 TEMP23 = TEMP23>
5451                     <ADD TEMP24 1 = TEMP24 (TYPE FIX)>
5452                     <JUMP + TAG26>
5453 TAG22
5454                     <DEAD TEMP23>
5455                     <CALL '\1aOCEMIT TEMP24>
5456                     <DEAD TEMP24>
5457                     <FRAME '\1aOCEMIT>
5458                     <PUSH JUMP8>
5459                     <DEAD JUMP8>
5460                     <PUSH 'O*>
5461                     <FRAME '\1aXJUMP>
5462                     <PUSH TAG7>
5463                     <DEAD TAG7>
5464                     <CALL '\1aXJUMP 1 = STACK>
5465                     <CALL '\1aOCEMIT 3 = TEMP11>
5466                     <RETURN TEMP11>
5467                     <DEAD TEMP11>
5468                     <END \1aEMPUV?!-MIMOC>
5469 #WORD *14306165044*
5470 <GFCN \1aLENUV!-MIMOC ("VALUE" <OR FALSE FIX AC> LIST) L5>
5471                     <TEMP V6 TEMP9 VAL7:ATOM TEMP13>
5472                     <INTGO>
5473                     <NTHL L5 1 = V6>
5474                     <RESTL L5 1 = TEMP9 (TYPE LIST)>
5475                     <DEAD L5>
5476                     <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
5477                     <NTHL TEMP9 1 = VAL7 (TYPE ATOM)>
5478                     <DEAD TEMP9>
5479                     <VEQUAL? VAL7 'STACK - PHRASE11>
5480                     <FRAME '\1aOCEMIT>
5481                     <PUSH 'PUSH>
5482                     <PUSH 'TP*>
5483                     <SET TEMP13 2 (TYPE FIX)>
5484                     <SFRAME 'TYPE-WORD>
5485                     <PUSH 'FIX>
5486                     <SCALL '\1aTYPE-WORD 1 = TEMP9 + TAG12 TEMP13>
5487                     <LOOP (TEMP9 TYPE VALUE LENGTH) (TEMP13 VALUE)>
5488 TAG15
5489                     <INTGO>
5490                     <EMPTY? TEMP9 + TAG12>
5491                     <NTH1 TEMP9 = STACK>
5492                     <REST1 TEMP9 = TEMP9>
5493                     <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
5494                     <JUMP + TAG15>
5495 TAG12
5496                     <CALL '\1aOCEMIT TEMP13>
5497                     <DEAD TEMP13>
5498                     <GVAL 'WINNING-VICTIM = TEMP13>
5499                     <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE18>
5500                     <DEAD TEMP13>
5501                     <GVAL 'STACK-DEPTH = TEMP13>
5502                     <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
5503                     <SETG 'STACK-DEPTH TEMP13>
5504                     <DEAD TEMP13>
5505 PHRASE18
5506                     <FRAME '\1aOCEMIT>
5507                     <PUSH 'HRRZ>
5508                     <PUSH 'O*>
5509                     <SET TEMP9 2 (TYPE FIX)>
5510                     <SFRAME 'OBJ-TYP>
5511                     <PUSH V6>
5512                     <DEAD V6>
5513                     <SCALL '\1aOBJ-TYP 1 = TEMP13 + TAG19 TEMP9>
5514                     <LOOP (TEMP13 TYPE VALUE LENGTH) (TEMP9 VALUE)>
5515 TAG21
5516                     <INTGO>
5517                     <EMPTY? TEMP13 + TAG19>
5518                     <NTH1 TEMP13 = STACK>
5519                     <REST1 TEMP13 = TEMP13>
5520                     <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
5521                     <JUMP + TAG21>
5522 TAG19
5523                     <CALL '\1aOCEMIT TEMP9>
5524                     <DEAD TEMP9>
5525                     <FRAME '\1aOCEMIT>
5526                     <PUSH 'PUSH>
5527                     <PUSH 'TP*>
5528                     <PUSH 'O*>
5529                     <CALL '\1aOCEMIT 3>
5530                     <GVAL 'WINNING-VICTIM = TEMP9>
5531                     <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE26>
5532                     <GVAL 'STACK-DEPTH = TEMP13>
5533                     <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
5534                     <SETG 'STACK-DEPTH TEMP13>
5535                     <RETURN TEMP13>
5536                     <DEAD TEMP13>
5537 PHRASE11
5538                     <FRAME '\1aASSIGN-AC>
5539                     <PUSH VAL7>
5540                     <DEAD VAL7>
5541                     <PUSH 'BOTH>
5542                     <CALL '\1aASSIGN-AC 2 = VAL7>
5543                     <FRAME '\1aOCEMIT>
5544                     <PUSH 'HRRZ>
5545                     <FRAME '\1aNEXT-AC>
5546                     <PUSH VAL7>
5547                     <CALL '\1aNEXT-AC 1 = STACK>
5548                     <SET TEMP9 2 (TYPE FIX)>
5549                     <SFRAME 'OBJ-TYP>
5550                     <PUSH V6>
5551                     <DEAD V6>
5552                     <SCALL '\1aOBJ-TYP 1 = TEMP13 + TAG28 TEMP9>
5553                     <LOOP (TEMP13 TYPE VALUE LENGTH) (TEMP9 VALUE)>
5554 TAG32
5555                     <INTGO>
5556                     <EMPTY? TEMP13 + TAG28>
5557                     <NTH1 TEMP13 = STACK>
5558                     <REST1 TEMP13 = TEMP13>
5559                     <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
5560                     <JUMP + TAG32>
5561 TAG28
5562                     <CALL '\1aOCEMIT TEMP9>
5563                     <DEAD TEMP9>
5564                     <FRAME '\1aGET-AC>
5565                     <PUSH VAL7>
5566                     <DEAD VAL7>
5567                     <CALL '\1aGET-AC 1 = TEMP9>
5568                     <PUTUV TEMP9 6 'FIX>
5569 PHRASE26
5570                     <RETURN TEMP9>
5571                     <DEAD TEMP9>
5572                     <END \1aLENUV!-MIMOC>
5573 #WORD *17543033221*
5574 <GFCN \1aNTHUB!-MIMOC ("VALUE" <OR AC FALSE> ANY) L5>
5575                     <TEMP TEMP7>
5576                     <INTGO>
5577                     <FRAME '\1aNTHUS!-MIMOC>
5578                     <PUSH L5>
5579                     <DEAD L5>
5580                     <PUSH 'T>
5581                     <CALL '\1aNTHUS!-MIMOC 2 = TEMP7>
5582                     <RETURN TEMP7>
5583                     <DEAD TEMP7>
5584                     <END \1aNTHUB!-MIMOC>
5585 #WORD *24576427673*
5586 <GFCN \1aNTHUS!-MIMOC ("VALUE" <OR FALSE AC> LIST "OPTIONAL" <OR ATOM FALSE>) L6 BYTES?7>
5587                     <OPT-DISPATCH 1 %<> OPT4 OPT5>
5588 OPT4
5589                     <PUSH %<>>
5590 OPT5
5591                     <TEMP V8 TEMP14 AMT9 VAL10:ATOM AC11 TEMP27 TEMP29>
5592                     <INTGO>
5593                     <NTHL L6 1 = V8>
5594                     <RESTL L6 1 = TEMP14 (TYPE LIST)>
5595                     <NTHL TEMP14 1 = AMT9>
5596                     <DEAD TEMP14>
5597                     <RESTL L6 1 = TEMP14 (TYPE LIST)>
5598                     <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
5599                     <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
5600                     <NTHL TEMP14 1 = VAL10 (TYPE ATOM)>
5601                     <DEAD TEMP14>
5602                     <FRAME '\1aPUTPROP>
5603                     <PUSH L6>
5604                     <DEAD L6>
5605                     <PUSH 'DONE>
5606                     <CALL '\1aPUTPROP 2 = TEMP14>
5607                     <SETG 'REMEMBER-STRING %<>>
5608                     <SETG 'DIE-LATER %<>>
5609                     <TYPE? TEMP14 <TYPE-CODE FALSE> - PHRASE17>
5610                     <VEQUAL? VAL10 V8 + PHRASE17>
5611                     <TYPE? AMT9 <TYPE-CODE FIX> - PHRASE17>
5612                     <FRAME '\1aSTRING-PUT-NTH-LOOK-AHEAD>
5613                     <PUSH V8>
5614                     <PUSH 'NTH>
5615                     <PUSH VAL10>
5616                     <PUSH BYTES?7>
5617                     <PUSH AMT9>
5618                     <CALL '\1aSTRING-PUT-NTH-LOOK-AHEAD 5 = TEMP14>
5619 PHRASE17
5620                     <TYPE? TEMP14 <TYPE-CODE FALSE> + TAG22>
5621                     <RETURN %<>>
5622 TAG22
5623                     <FRAME '\1aIN-AC?>
5624                     <PUSH V8>
5625                     <PUSH 'FUNNY-VALUE>
5626                     <CALL '\1aIN-AC? 2 = AC11>
5627                     <TYPE? AC11 <TYPE-CODE FALSE> + PHRASE24>
5628                     <FRAME '\1aGET-AC>
5629                     <PUSH AC11>
5630                     <CALL '\1aGET-AC 1 = TEMP27>
5631                     <PUTUV TEMP27 3 'VALUE (TYPE ATOM)>
5632                     <DEAD TEMP27>
5633                     <SET AMT9 1 (TYPE FIX)>
5634                     <SETG 'FIRST-AC %<>>
5635                     <FRAME '\1aGET-AC>
5636                     <PUSH AC11>
5637                     <CALL '\1aGET-AC 1 = TEMP27>
5638                     <GVAL 'AC-STAMP = TEMP29>
5639                     <ADD TEMP29 1 = TEMP29 (TYPE FIX)>
5640                     <SETG 'AC-STAMP TEMP29>
5641                     <PUTUV TEMP27 4 TEMP29 (TYPE FIX)>
5642                     <DEAD TEMP27 TEMP29>
5643                     <JUMP + PHRASE59>
5644 PHRASE24
5645                     <EQUAL? AMT9 1 + PHRASE30>
5646                     <EQUAL? AMT9 2 + PHRASE30>
5647                     <FRAME '\1aLOAD-AC>
5648                     <PUSH AMT9>
5649                     <PUSH 'VALUE>
5650                     <CALL '\1aLOAD-AC 2 = AC11>
5651                     <FRAME '\1aFLUSH-AC>
5652                     <PUSH AC11>
5653                     <CALL '\1aFLUSH-AC 1>
5654                     <FRAME '\1aMUNGED-AC>
5655                     <PUSH AC11>
5656                     <CALL '\1aMUNGED-AC 1>
5657                     <FRAME '\1aOCEMIT>
5658                     <GVAL 'ADJBP-HACK = TEMP27>
5659                     <TYPE? TEMP27 <TYPE-CODE FALSE> + PHRASE37>
5660                     <DEAD TEMP27>
5661                     <SET TEMP27 'MADJBP (TYPE ATOM)>
5662                     <JUMP + PHRASE38>
5663 PHRASE37
5664                     <SET TEMP27 'ADJBP (TYPE ATOM)>
5665 PHRASE38
5666                     <PUSH TEMP27>
5667                     <DEAD TEMP27>
5668                     <PUSH AC11>
5669                     <SET TEMP29 2 (TYPE FIX)>
5670                     <SFRAME 'OBJ-VAL>
5671                     <PUSH V8>
5672                     <SCALL '\1aOBJ-VAL 1 = TEMP27 + TAG35 TEMP29>
5673                     <LOOP (TEMP27 TYPE VALUE LENGTH) (TEMP29 VALUE)>
5674 TAG40
5675                     <INTGO>
5676                     <EMPTY? TEMP27 + TAG35>
5677                     <NTH1 TEMP27 = STACK>
5678                     <REST1 TEMP27 = TEMP27>
5679                     <ADD TEMP29 1 = TEMP29 (TYPE FIX)>
5680                     <JUMP + TAG40>
5681 TAG35
5682                     <CALL '\1aOCEMIT TEMP29>
5683                     <DEAD TEMP29>
5684                     <JUMP + PHRASE59>
5685 PHRASE30
5686                     <FRAME '\1aIN-AC?>
5687                     <PUSH V8>
5688                     <PUSH 'VALUE>
5689                     <CALL '\1aIN-AC? 2 = AC11>
5690                     <TYPE? AC11 <TYPE-CODE FALSE> + PHRASE42>
5691                     <FRAME '\1aWILL-DIE?>
5692                     <PUSH V8>
5693                     <CALL '\1aWILL-DIE? 1 = TEMP29>
5694                     <TYPE? TEMP29 <TYPE-CODE FALSE> - BOOL45>
5695                     <DEAD TEMP29>
5696                     <FRAME '\1aGET-AC>
5697                     <PUSH AC11>
5698                     <CALL '\1aGET-AC 1 = TEMP29>
5699                     <NTHUV TEMP29 5 = TEMP29>
5700                     <TYPE? TEMP29 <TYPE-CODE FALSE> + BOOL45>
5701                     <DEAD TEMP29>
5702                     <VEQUAL? V8 VAL10 + BOOL45>
5703                     <GVAL 'DIE-LATER = TEMP29>
5704                     <TYPE? TEMP29 <TYPE-CODE FALSE> + PHRASE42>
5705                     <DEAD TEMP29>
5706 BOOL45
5707                     <FRAME '\1aMUNGED-AC>
5708                     <PUSH AC11>
5709                     <CALL '\1aMUNGED-AC 1>
5710                     <SETG 'FIRST-AC %<>>
5711                     <FRAME '\1aGET-AC>
5712                     <PUSH AC11>
5713                     <CALL '\1aGET-AC 1 = TEMP29>
5714                     <GVAL 'AC-STAMP = TEMP27>
5715                     <ADD TEMP27 1 = TEMP27 (TYPE FIX)>
5716                     <SETG 'AC-STAMP TEMP27>
5717                     <PUTUV TEMP29 4 TEMP27 (TYPE FIX)>
5718                     <DEAD TEMP29 TEMP27>
5719                     <JUMP + PHRASE59>
5720 PHRASE42
5721                     <GVAL 'REMEMBER-STRING = TEMP29>
5722                     <TYPE? TEMP29 <TYPE-CODE FALSE> + PHRASE50>
5723                     <DEAD TEMP29>
5724                     <TYPE? AC11 <TYPE-CODE FALSE> + PHRASE52>
5725                     <FRAME '\1aFLUSH-AC>
5726                     <PUSH AC11>
5727                     <CALL '\1aFLUSH-AC 1>
5728                     <SETG 'FIRST-AC %<>>
5729                     <FRAME '\1aGET-AC>
5730                     <PUSH AC11>
5731                     <CALL '\1aGET-AC 1 = TEMP29>
5732                     <GVAL 'AC-STAMP = TEMP27>
5733                     <ADD TEMP27 1 = TEMP27 (TYPE FIX)>
5734                     <SETG 'AC-STAMP TEMP27>
5735                     <PUTUV TEMP29 4 TEMP27 (TYPE FIX)>
5736                     <DEAD TEMP29 TEMP27>
5737                     <JUMP + PHRASE55>
5738 PHRASE52
5739                     <SETG 'FIRST-AC %<>>
5740                     <FRAME '\1aNEXT-AC>
5741                     <FRAME '\1aLOAD-AC>
5742                     <PUSH V8>
5743                     <PUSH 'BOTH>
5744                     <CALL '\1aLOAD-AC 2 = STACK>
5745                     <CALL '\1aNEXT-AC 1 = AC11>
5746 PHRASE55
5747                     <FRAME '\1aMUNGED-AC>
5748                     <PUSH AC11>
5749                     <CALL '\1aMUNGED-AC 1>
5750                     <JUMP + PHRASE59>
5751 PHRASE50
5752                     <SET AC11 %<> (TYPE FALSE)>
5753 PHRASE59
5754                     <VEQUAL? VAL10 'STACK - PHRASE61>
5755                     <TYPE? BYTES?7 <TYPE-CODE FALSE> + PHRASE63>
5756                     <DEAD BYTES?7>
5757                     <FRAME '\1aOCEMIT>
5758                     <PUSH 'PUSH>
5759                     <PUSH 'TP*>
5760                     <SET TEMP27 2 (TYPE FIX)>
5761                     <SFRAME 'TYPE-WORD>
5762                     <PUSH 'FIX>
5763                     <SCALL '\1aTYPE-WORD 1 = TEMP29 + TAG64 TEMP27>
5764                     <LOOP (TEMP29 TYPE VALUE LENGTH) (TEMP27 VALUE)>
5765 TAG66
5766                     <INTGO>
5767                     <EMPTY? TEMP29 + TAG64>
5768                     <NTH1 TEMP29 = STACK>
5769                     <REST1 TEMP29 = TEMP29>
5770                     <ADD TEMP27 1 = TEMP27 (TYPE FIX)>
5771                     <JUMP + TAG66>
5772 TAG64
5773                     <CALL '\1aOCEMIT TEMP27>
5774                     <DEAD TEMP27>
5775                     <JUMP + PHRASE68>
5776 PHRASE63
5777                     <FRAME '\1aOCEMIT>
5778                     <PUSH 'PUSH>
5779                     <PUSH 'TP*>
5780                     <SET TEMP29 2 (TYPE FIX)>
5781                     <SFRAME 'TYPE-WORD>
5782                     <PUSH 'CHARACTER>
5783                     <SCALL '\1aTYPE-WORD 1 = TEMP27 + TAG69 TEMP29>
5784                     <LOOP (TEMP27 TYPE VALUE LENGTH) (TEMP29 VALUE)>
5785 TAG71
5786                     <INTGO>
5787                     <EMPTY? TEMP27 + TAG69>
5788                     <NTH1 TEMP27 = STACK>
5789                     <REST1 TEMP27 = TEMP27>
5790                     <ADD TEMP29 1 = TEMP29 (TYPE FIX)>
5791                     <JUMP + TAG71>
5792 TAG69
5793                     <CALL '\1aOCEMIT TEMP29>
5794                     <DEAD TEMP29>
5795 PHRASE68
5796                     <GVAL 'WINNING-VICTIM = TEMP29>
5797                     <TYPE? TEMP29 <TYPE-CODE FALSE> + PHRASE74>
5798                     <DEAD TEMP29>
5799                     <GVAL 'STACK-DEPTH = TEMP29>
5800                     <ADD TEMP29 1 = TEMP29 (TYPE FIX)>
5801                     <SETG 'STACK-DEPTH TEMP29>
5802                     <DEAD TEMP29>
5803 PHRASE74
5804                     <TYPE? AC11 <TYPE-CODE FALSE> - PHRASE76>
5805                     <FRAME '\1aOCEMIT>
5806                     <PUSH 'MOVE>
5807                     <PUSH 'O*>
5808                     <SET TEMP27 2 (TYPE FIX)>
5809                     <SFRAME 'OBJ-VAL>
5810                     <PUSH V8>
5811                     <SCALL '\1aOBJ-VAL 1 = TEMP29 + TAG77 TEMP27>
5812                     <LOOP (TEMP29 TYPE VALUE LENGTH) (TEMP27 VALUE)>
5813 TAG79
5814                     <INTGO>
5815                     <EMPTY? TEMP29 + TAG77>
5816                     <NTH1 TEMP29 = STACK>
5817                     <REST1 TEMP29 = TEMP29>
5818                     <ADD TEMP27 1 = TEMP27 (TYPE FIX)>
5819                     <JUMP + TAG79>
5820 TAG77
5821                     <CALL '\1aOCEMIT TEMP27>
5822                     <DEAD TEMP27>
5823                     <SET AC11 'O* (TYPE ATOM)>
5824 PHRASE76
5825                     <FRAME '\1aDNTH>
5826                     <PUSH 'O*>
5827                     <PUSH AC11>
5828                     <PUSH AMT9>
5829                     <DEAD AMT9>
5830                     <CALL '\1aDNTH 3>
5831                     <FRAME '\1aOCEMIT>
5832                     <PUSH 'PUSH>
5833                     <PUSH 'TP*>
5834                     <PUSH 'O*>
5835                     <CALL '\1aOCEMIT 3>
5836                     <GVAL 'WINNING-VICTIM = TEMP27>
5837                     <TYPE? TEMP27 <TYPE-CODE FALSE> + PHRASE84>
5838                     <DEAD TEMP27>
5839                     <GVAL 'STACK-DEPTH = TEMP27>
5840                     <ADD TEMP27 1 = TEMP27 (TYPE FIX)>
5841                     <SETG 'STACK-DEPTH TEMP27>
5842                     <DEAD TEMP27>
5843 PHRASE84
5844                     <FRAME '\1aGET-AC>
5845                     <PUSH AC11>
5846                     <CALL '\1aGET-AC 1 = TEMP27>
5847                     <PUTUV TEMP27 3 'DUMMY (TYPE ATOM)>
5848                     <DEAD TEMP27>
5849                     <JUMP + PHRASE100>
5850 PHRASE61
5851                     <FRAME '\1aASSIGN-AC>
5852                     <PUSH VAL10>
5853                     <DEAD VAL10>
5854                     <PUSH 'BOTH>
5855                     <CALL '\1aASSIGN-AC 2 = TEMP14>
5856                     <TYPE? AC11 <TYPE-CODE FALSE> - PHRASE89>
5857                     <FRAME '\1aOCEMIT>
5858                     <PUSH 'MOVE>
5859                     <FRAME '\1aNEXT-AC>
5860                     <PUSH TEMP14>
5861                     <CALL '\1aNEXT-AC 1 = AC11>
5862                     <PUSH AC11>
5863                     <SET TEMP29 2 (TYPE FIX)>
5864                     <SFRAME 'OBJ-VAL>
5865                     <PUSH V8>
5866                     <SCALL '\1aOBJ-VAL 1 = TEMP27 + TAG90 TEMP29>
5867                     <LOOP (TEMP27 TYPE VALUE LENGTH) (TEMP29 VALUE)>
5868 TAG93
5869                     <INTGO>
5870                     <EMPTY? TEMP27 + TAG90>
5871                     <NTH1 TEMP27 = STACK>
5872                     <REST1 TEMP27 = TEMP27>
5873                     <ADD TEMP29 1 = TEMP29 (TYPE FIX)>
5874                     <JUMP + TAG93>
5875 TAG90
5876                     <CALL '\1aOCEMIT TEMP29>
5877                     <DEAD TEMP29>
5878 PHRASE89
5879                     <FRAME '\1aDNTH>
5880                     <FRAME '\1aNEXT-AC>
5881                     <PUSH TEMP14>
5882                     <CALL '\1aNEXT-AC 1 = STACK>
5883                     <PUSH AC11>
5884                     <PUSH AMT9>
5885                     <DEAD AMT9>
5886                     <CALL '\1aDNTH 3>
5887                     <TYPE? BYTES?7 <TYPE-CODE FALSE> + PHRASE98>
5888                     <DEAD BYTES?7>
5889                     <FRAME '\1aGET-AC>
5890                     <PUSH TEMP14>
5891                     <CALL '\1aGET-AC 1 = TEMP29>
5892                     <PUTUV TEMP29 6 'FIX>
5893                     <DEAD TEMP29>
5894                     <JUMP + PHRASE100>
5895 PHRASE98
5896                     <FRAME '\1aGET-AC>
5897                     <PUSH TEMP14>
5898                     <CALL '\1aGET-AC 1 = TEMP29>
5899                     <PUTUV TEMP29 6 'CHARACTER>
5900                     <DEAD TEMP29>
5901 PHRASE100
5902                     <TYPE? TEMP14 <TYPE-CODE FALSE> + TAG108>
5903                     <EQUAL? AC11 TEMP14 - TAG107>
5904                     <RETURN %<>>
5905 TAG107
5906                     <FRAME '\1aNEXT-AC>
5907                     <PUSH TEMP14>
5908                     <DEAD TEMP14>
5909                     <CALL '\1aNEXT-AC 1 = TEMP29>
5910                     <EQUAL? AC11 TEMP29 - TAG108>
5911                     <DEAD TEMP29>
5912                     <RETURN %<>>
5913 TAG108
5914                     <GVAL 'REMEMBER-STRING = TEMP29>
5915                     <TYPE? TEMP29 <TYPE-CODE FALSE> + PHRASE111>
5916                     <DEAD TEMP29>
5917                     <FRAME '\1aGET-AC>
5918                     <PUSH AC11>
5919                     <DEAD AC11>
5920                     <CALL '\1aGET-AC 1 = TEMP29>
5921                     <PUTUV TEMP29 2 V8>
5922                     <DEAD V8>
5923                     <PUTUV TEMP29 3 'FUNNY-VALUE (TYPE ATOM)>
5924                     <PUTUV TEMP29 5 %<>>
5925                     <RETURN TEMP29>
5926                     <DEAD TEMP29>
5927 PHRASE111
5928                     <FRAME '\1aGET-AC>
5929                     <PUSH AC11>
5930                     <DEAD AC11>
5931                     <CALL '\1aGET-AC 1 = TEMP29>
5932                     <PUTUV TEMP29 3 'DUMMY (TYPE ATOM)>
5933                     <RETURN TEMP29>
5934                     <DEAD TEMP29>
5935                     <END \1aNTHUS!-MIMOC>
5936 #WORD *26773504066*
5937 <GFCN \1aDNTH ("VALUE" ANY ATOM ATOM <OR ATOM FIX>) AC15 AC26 AMT7>
5938                     <TEMP TEMP15>
5939                     <INTGO>
5940                     <EQUAL? AMT7 1 + BOOL10>
5941                     <EQUAL? AMT7 2 - PHRASE9>
5942 BOOL10
5943                     <EQUAL? AMT7 2 - PHRASE12>
5944                     <DEAD AMT7>
5945                     <FRAME '\1aOCEMIT>
5946                     <PUSH 'IBP>
5947                     <PUSH 'O*>
5948                     <PUSH AC26>
5949                     <CALL '\1aOCEMIT 3>
5950 PHRASE12
5951                     <FRAME '\1aOCEMIT>
5952                     <PUSH 'ILDB>
5953                     <PUSH AC15>
5954                     <PUSH AC26>
5955                     <CALL '\1aOCEMIT 3 = TEMP15>
5956                     <RETURN TEMP15>
5957                     <DEAD TEMP15>
5958 PHRASE9
5959                     <FRAME '\1aOCEMIT>
5960                     <PUSH 'LDB>
5961                     <PUSH AC15>
5962                     <DEAD AC15>
5963                     <PUSH AC26>
5964                     <DEAD AC26>
5965                     <CALL '\1aOCEMIT 3 = TEMP15>
5966                     <RETURN TEMP15>
5967                     <DEAD TEMP15>
5968                     <END \1aDNTH>
5969 #WORD *4347526630*
5970 <GFCN \1aPUTUS!-MIMOC ("VALUE" <OR FALSE AC> LIST "OPTIONAL" ANY) L6 BYTES?7>
5971                     <OPT-DISPATCH 1 %<> OPT4 OPT5>
5972 OPT4
5973                     <PUSH %<>>
5974 OPT5
5975                     <TEMP V8 TEMP15 AMT9 VAL10 (AC11 %<>) TEMP33 TAC14>
5976                     <INTGO>
5977                     <NTHL L6 1 = V8>
5978                     <RESTL L6 1 = TEMP15 (TYPE LIST)>
5979                     <NTHL TEMP15 1 = AMT9>
5980                     <DEAD TEMP15>
5981                     <RESTL L6 1 = TEMP15 (TYPE LIST)>
5982                     <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
5983                     <NTHL TEMP15 1 = VAL10>
5984                     <DEAD TEMP15>
5985                     <FRAME '\1aPUTPROP>
5986                     <PUSH L6>
5987                     <DEAD L6>
5988                     <PUSH 'DONE>
5989                     <CALL '\1aPUTPROP 2 = TEMP15>
5990                     <SETG 'REMEMBER-STRING %<>>
5991                     <SETG 'DIE-LATER %<>>
5992                     <TYPE? TEMP15 <TYPE-CODE FALSE> - PHRASE18>
5993                     <TYPE? AMT9 <TYPE-CODE FIX> - PHRASE18>
5994                     <FRAME '\1aSTRING-PUT-NTH-LOOK-AHEAD>
5995                     <PUSH V8>
5996                     <PUSH 'PUT>
5997                     <PUSH VAL10>
5998                     <PUSH BYTES?7>
5999                     <DEAD BYTES?7>
6000                     <PUSH AMT9>
6001                     <CALL '\1aSTRING-PUT-NTH-LOOK-AHEAD 5 = TEMP15>
6002 PHRASE18
6003                     <TYPE? TEMP15 <TYPE-CODE FALSE> + TAG23>
6004                     <DEAD TEMP15>
6005                     <RETURN %<>>
6006 TAG23
6007                     <FRAME '\1aIN-AC?>
6008                     <PUSH V8>
6009                     <PUSH 'FUNNY-VALUE>
6010                     <CALL '\1aIN-AC? 2 = AC11>
6011                     <TYPE? AC11 <TYPE-CODE FALSE> - BOOL26>
6012                     <EQUAL? AMT9 1 + BOOL26>
6013                     <EQUAL? AMT9 2 - PHRASE25>
6014 BOOL26
6015                     <TYPE? AC11 <TYPE-CODE FALSE> + PHRASE29>
6016                     <FRAME '\1aGET-AC>
6017                     <PUSH AC11>
6018                     <CALL '\1aGET-AC 1 = TEMP15>
6019                     <PUTUV TEMP15 3 'VALUE (TYPE ATOM)>
6020                     <DEAD TEMP15>
6021                     <SET AMT9 1 (TYPE FIX)>
6022                     <SETG 'FIRST-AC %<>>
6023                     <FRAME '\1aGET-AC>
6024                     <PUSH AC11>
6025                     <CALL '\1aGET-AC 1 = TEMP15>
6026                     <GVAL 'AC-STAMP = TEMP33>
6027                     <ADD TEMP33 1 = TEMP33 (TYPE FIX)>
6028                     <SETG 'AC-STAMP TEMP33>
6029                     <PUTUV TEMP15 4 TEMP33 (TYPE FIX)>
6030                     <DEAD TEMP15 TEMP33>
6031                     <JUMP + PHRASE51>
6032 PHRASE29
6033                     <FRAME '\1aIN-AC?>
6034                     <PUSH V8>
6035                     <PUSH 'VALUE>
6036                     <CALL '\1aIN-AC? 2 = AC11>
6037                     <TYPE? AC11 <TYPE-CODE FALSE> + PHRASE34>
6038                     <FRAME '\1aWILL-DIE?>
6039                     <PUSH V8>
6040                     <CALL '\1aWILL-DIE? 1 = TEMP15>
6041                     <TYPE? TEMP15 <TYPE-CODE FALSE> - BOOL37>
6042                     <DEAD TEMP15>
6043                     <GVAL 'DIE-LATER = TEMP15>
6044                     <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE34>
6045                     <DEAD TEMP15>
6046 BOOL37
6047                     <SETG 'FIRST-AC %<>>
6048                     <FRAME '\1aGET-AC>
6049                     <PUSH AC11>
6050                     <CALL '\1aGET-AC 1 = TEMP15>
6051                     <GVAL 'AC-STAMP = TEMP33>
6052                     <ADD TEMP33 1 = TEMP33 (TYPE FIX)>
6053                     <SETG 'AC-STAMP TEMP33>
6054                     <PUTUV TEMP15 4 TEMP33 (TYPE FIX)>
6055                     <DEAD TEMP15 TEMP33>
6056                     <FRAME '\1aFLUSH-AC>
6057                     <PUSH AC11>
6058                     <CALL '\1aFLUSH-AC 1>
6059                     <FRAME '\1aMUNGED-AC>
6060                     <PUSH AC11>
6061                     <CALL '\1aMUNGED-AC 1>
6062                     <JUMP + PHRASE51>
6063 PHRASE34
6064                     <GVAL 'REMEMBER-STRING = TEMP15>
6065                     <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE42>
6066                     <DEAD TEMP15>
6067                     <SETG 'FIRST-AC %<>>
6068                     <FRAME '\1aNEXT-AC>
6069                     <FRAME '\1aLOAD-AC>
6070                     <PUSH V8>
6071                     <PUSH 'BOTH>
6072                     <CALL '\1aLOAD-AC 2 = TAC14>
6073                     <PUSH TAC14>
6074                     <CALL '\1aNEXT-AC 1 = AC11>
6075                     <GVAL 'DIE-LATER = TEMP15>
6076                     <TYPE? TEMP15 <TYPE-CODE FALSE> - PHRASE46>
6077                     <DEAD TEMP15>
6078                     <FRAME '\1aWILL-DIE?>
6079                     <PUSH V8>
6080                     <CALL '\1aWILL-DIE? 1 = TEMP33>
6081                     <TYPE? TEMP33 <TYPE-CODE FALSE> - PHRASE46>
6082                     <DEAD TEMP33>
6083                     <FRAME '\1aFLUSH-AC>
6084                     <PUSH TAC14>
6085                     <PUSH 'T>
6086                     <CALL '\1aFLUSH-AC 2>
6087 PHRASE46
6088                     <FRAME '\1aMUNGED-AC>
6089                     <PUSH TAC14>
6090                     <DEAD TAC14>
6091                     <PUSH 'T>
6092                     <CALL '\1aMUNGED-AC 2>
6093                     <JUMP + PHRASE51>
6094 PHRASE42
6095                     <FRAME '\1aOCEMIT>
6096                     <PUSH 'MOVE>
6097                     <SET AC11 'O* (TYPE ATOM)>
6098                     <PUSH AC11>
6099                     <SET TEMP33 2 (TYPE FIX)>
6100                     <SFRAME 'OBJ-VAL>
6101                     <PUSH V8>
6102                     <SCALL '\1aOBJ-VAL 1 = TEMP15 + TAG52 TEMP33>
6103                     <LOOP (TEMP15 TYPE VALUE LENGTH) (TEMP33 VALUE)>
6104 TAG56
6105                     <INTGO>
6106                     <EMPTY? TEMP15 + TAG52>
6107                     <NTH1 TEMP15 = STACK>
6108                     <REST1 TEMP15 = TEMP15>
6109                     <ADD TEMP33 1 = TEMP33 (TYPE FIX)>
6110                     <JUMP + TAG56>
6111 TAG52
6112                     <CALL '\1aOCEMIT TEMP33>
6113                     <DEAD TEMP33>
6114 PHRASE51
6115                     <EQUAL? AMT9 2 - PHRASE59>
6116                     <DEAD AMT9>
6117                     <FRAME '\1aOCEMIT>
6118                     <PUSH 'IBP>
6119                     <PUSH 'O*>
6120                     <PUSH AC11>
6121                     <CALL '\1aOCEMIT 3>
6122 PHRASE59
6123                     <FRAME '\1aIN-AC?>
6124                     <PUSH VAL10>
6125                     <PUSH 'VALUE>
6126                     <CALL '\1aIN-AC? 2 = TEMP15>
6127                     <TYPE? TEMP15 <TYPE-CODE FALSE> - PHRASE68>
6128                     <TYPE? VAL10 <TYPE-CODE ATOM> - PHRASE63>
6129                     <FRAME '\1aWILL-DIE?>
6130                     <PUSH VAL10>
6131                     <CALL '\1aWILL-DIE? 1 = TEMP33>
6132                     <TYPE? TEMP33 <TYPE-CODE FALSE> - PHRASE63>
6133                     <DEAD TEMP33>
6134                     <FRAME '\1aNEXT-AC>
6135                     <FRAME '\1aLOAD-AC>
6136                     <PUSH VAL10>
6137                     <DEAD VAL10>
6138                     <PUSH 'BOTH>
6139                     <CALL '\1aLOAD-AC 2 = STACK>
6140                     <CALL '\1aNEXT-AC 1 = TEMP15>
6141                     <JUMP + PHRASE68>
6142 PHRASE63
6143                     <FRAME '\1aGET-INTO-ACS>
6144                     <PUSH VAL10>
6145                     <DEAD VAL10>
6146                     <PUSH 'VALUE>
6147                     <SET TEMP15 'O1* (TYPE ATOM)>
6148                     <PUSH TEMP15>
6149                     <CALL '\1aGET-INTO-ACS 3>
6150 PHRASE68
6151                     <FRAME '\1aOCEMIT>
6152                     <PUSH 'IDPB>
6153                     <PUSH TEMP15>
6154                     <DEAD TEMP15>
6155                     <PUSH AC11>
6156                     <CALL '\1aOCEMIT 3>
6157                     <GVAL 'REMEMBER-STRING = TEMP33>
6158                     <TYPE? TEMP33 <TYPE-CODE FALSE> + PHRASE72>
6159                     <DEAD TEMP33>
6160                     <FRAME '\1aGET-AC>
6161                     <PUSH AC11>
6162                     <DEAD AC11>
6163                     <CALL '\1aGET-AC 1 = TEMP33>
6164                     <PUTUV TEMP33 5 %<>>
6165                     <PUTUV TEMP33 2 V8>
6166                     <DEAD V8>
6167                     <PUTUV TEMP33 3 'FUNNY-VALUE (TYPE ATOM)>
6168                     <RETURN TEMP33>
6169                     <DEAD TEMP33>
6170 PHRASE72
6171                     <FRAME '\1aGET-AC>
6172                     <PUSH AC11>
6173                     <DEAD AC11>
6174                     <CALL '\1aGET-AC 1 = TEMP33>
6175                     <PUTUV TEMP33 3 'DUMMY (TYPE ATOM)>
6176                     <RETURN TEMP33>
6177                     <DEAD TEMP33>
6178 PHRASE25
6179                     <FRAME '\1aIN-AC?>
6180                     <PUSH AMT9>
6181                     <PUSH 'BOTH>
6182                     <CALL '\1aIN-AC? 2 = TAC14>
6183                     <TYPE? TAC14 <TYPE-CODE FALSE> + BOOL80>
6184                     <FRAME '\1aNEXT-AC>
6185                     <PUSH TAC14>
6186                     <CALL '\1aNEXT-AC 1 = AC11>
6187                     <TYPE? AC11 <TYPE-CODE FALSE> - BOOL79>
6188 BOOL80
6189                     <FRAME '\1aIN-AC?>
6190                     <PUSH AMT9>
6191                     <PUSH 'VALUE>
6192                     <CALL '\1aIN-AC? 2 = AC11>
6193                     <TYPE? AC11 <TYPE-CODE FALSE> + PHRASE78>
6194 BOOL79
6195                     <SETG 'FIRST-AC %<>>
6196                     <FRAME '\1aWILL-DIE?>
6197                     <PUSH AMT9>
6198                     <CALL '\1aWILL-DIE? 1 = TEMP33>
6199                     <TYPE? TEMP33 <TYPE-CODE FALSE> + PHRASE85>
6200                     <DEAD TEMP33>
6201                     <FRAME '\1aDEAD!-MIMOC>
6202                     <CONS AMT9 () = STACK>
6203                     <DEAD AMT9>
6204                     <PUSH 'T>
6205                     <CALL '\1aDEAD!-MIMOC 2>
6206                     <JUMP + PHRASE88>
6207 PHRASE85
6208                     <FRAME '\1aGET-AC>
6209                     <PUSH AC11>
6210                     <CALL '\1aGET-AC 1 = TEMP33>
6211                     <NTHUV TEMP33 5 = TEMP33>
6212                     <TYPE? TEMP33 <TYPE-CODE FALSE> + PHRASE88>
6213                     <DEAD TEMP33>
6214                     <FRAME '\1aOCEMIT>
6215                     <PUSH 'MOVE>
6216                     <PUSH 'O1*>
6217                     <PUSH AC11>
6218                     <DEAD AC11>
6219                     <CALL '\1aOCEMIT 3>
6220                     <SET AC11 'O1* (TYPE ATOM)>
6221 PHRASE88
6222                     <VEQUAL? AC11 'O1* + PHRASE102>
6223                     <TYPE? TAC14 <TYPE-CODE FALSE> + PHRASE94>
6224                     <FRAME '\1aGET-AC>
6225                     <PUSH TAC14>
6226                     <CALL '\1aGET-AC 1 = TEMP33>
6227                     <GVAL 'AC-STAMP = TEMP15>
6228                     <PUTUV TEMP33 4 TEMP15 (TYPE FIX)>
6229                     <DEAD TEMP33 TEMP15>
6230                     <FRAME '\1aFLUSH-AC>
6231                     <PUSH TAC14>
6232                     <PUSH 'T>
6233                     <CALL '\1aFLUSH-AC 2>
6234                     <JUMP + PHRASE97>
6235 PHRASE94
6236                     <FRAME '\1aFLUSH-AC>
6237                     <PUSH AC11>
6238                     <CALL '\1aFLUSH-AC 1>
6239 PHRASE97
6240                     <FRAME '\1aGET-AC>
6241                     <PUSH AC11>
6242                     <CALL '\1aGET-AC 1 = TEMP33>
6243                     <GVAL 'AC-STAMP = TEMP15>
6244                     <PUTUV TEMP33 4 TEMP15 (TYPE FIX)>
6245                     <DEAD TEMP33 TEMP15>
6246                     <JUMP + PHRASE102>
6247 PHRASE78
6248                     <GVAL 'REMEMBER-STRING = TEMP33>
6249                     <TYPE? TEMP33 <TYPE-CODE FALSE> + PHRASE100>
6250                     <DEAD TEMP33>
6251                     <FRAME '\1aLOAD-AC>
6252                     <PUSH AMT9>
6253                     <DEAD AMT9>
6254                     <PUSH 'VALUE>
6255                     <CALL '\1aLOAD-AC 2 = AC11>
6256                     <JUMP + PHRASE102>
6257 PHRASE100
6258                     <FRAME '\1aGET-INTO-ACS>
6259                     <PUSH AMT9>
6260                     <DEAD AMT9>
6261                     <PUSH 'VALUE>
6262                     <SET AC11 'O1* (TYPE ATOM)>
6263                     <PUSH AC11>
6264                     <CALL '\1aGET-INTO-ACS 3>
6265 PHRASE102
6266                     <FRAME '\1aOCEMIT>
6267                     <GVAL 'ADJBP-HACK = TEMP33>
6268                     <TYPE? TEMP33 <TYPE-CODE FALSE> + PHRASE106>
6269                     <DEAD TEMP33>
6270                     <SET TEMP33 'MADJBP (TYPE ATOM)>
6271                     <JUMP + PHRASE107>
6272 PHRASE106
6273                     <SET TEMP33 'ADJBP (TYPE ATOM)>
6274 PHRASE107
6275                     <PUSH TEMP33>
6276                     <DEAD TEMP33>
6277                     <PUSH AC11>
6278                     <SET TEMP15 2 (TYPE FIX)>
6279                     <SFRAME 'OBJ-VAL>
6280                     <PUSH V8>
6281                     <SCALL '\1aOBJ-VAL 1 = TEMP33 + TAG104 TEMP15>
6282                     <LOOP (TEMP33 TYPE VALUE LENGTH) (TEMP15 VALUE)>
6283 TAG109
6284                     <INTGO>
6285                     <EMPTY? TEMP33 + TAG104>
6286                     <NTH1 TEMP33 = STACK>
6287                     <REST1 TEMP33 = TEMP33>
6288                     <ADD TEMP15 1 = TEMP15 (TYPE FIX)>
6289                     <JUMP + TAG109>
6290 TAG104
6291                     <CALL '\1aOCEMIT TEMP15>
6292                     <DEAD TEMP15>
6293                     <TYPE? VAL10 <TYPE-CODE ATOM> - PHRASE112>
6294                     <FRAME '\1aWILL-DIE?>
6295                     <PUSH VAL10>
6296                     <CALL '\1aWILL-DIE? 1 = TEMP15>
6297                     <TYPE? TEMP15 <TYPE-CODE FALSE> - PHRASE112>
6298                     <DEAD TEMP15>
6299                     <FRAME '\1aNEXT-AC>
6300                     <FRAME '\1aLOAD-AC>
6301                     <PUSH VAL10>
6302                     <DEAD VAL10>
6303                     <PUSH 'BOTH>
6304                     <CALL '\1aLOAD-AC 2 = STACK>
6305                     <CALL '\1aNEXT-AC 1 = TEMP15>
6306                     <JUMP + PHRASE117>
6307 PHRASE112
6308                     <FRAME '\1aGET-INTO-ACS>
6309                     <PUSH VAL10>
6310                     <DEAD VAL10>
6311                     <PUSH 'VALUE>
6312                     <SET TEMP15 'O* (TYPE ATOM)>
6313                     <PUSH TEMP15>
6314                     <CALL '\1aGET-INTO-ACS 3>
6315 PHRASE117
6316                     <FRAME '\1aOCEMIT>
6317                     <PUSH 'DPB>
6318                     <PUSH TEMP15>
6319                     <DEAD TEMP15>
6320                     <PUSH AC11>
6321                     <CALL '\1aOCEMIT 3>
6322                     <VEQUAL? AC11 'O1* - TAG122>
6323                     <RETURN %<>>
6324 TAG122
6325                     <TYPE? TAC14 <TYPE-CODE FALSE> + PHRASE124>
6326                     <FRAME '\1aMUNGED-AC>
6327                     <PUSH TAC14>
6328                     <DEAD TAC14>
6329                     <PUSH 'T>
6330                     <CALL '\1aMUNGED-AC 2>
6331                     <JUMP + PHRASE126>
6332 PHRASE124
6333                     <FRAME '\1aMUNGED-AC>
6334                     <PUSH AC11>
6335                     <CALL '\1aMUNGED-AC 1>
6336 PHRASE126
6337                     <GVAL 'REMEMBER-STRING = TEMP15>
6338                     <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE129>
6339                     <FRAME '\1aGET-AC>
6340                     <PUSH AC11>
6341                     <DEAD AC11>
6342                     <CALL '\1aGET-AC 1 = TEMP15>
6343                     <PUTUV TEMP15 5 %<>>
6344                     <PUTUV TEMP15 2 V8>
6345                     <DEAD V8>
6346                     <PUTUV TEMP15 3 'FUNNY-VALUE (TYPE ATOM)>
6347 PHRASE129
6348                     <RETURN TEMP15>
6349                     <DEAD TEMP15>
6350                     <END \1aPUTUS!-MIMOC>\r\r
6351 #WORD *17743051221*
6352 <GFCN \1aPUTUB!-MIMOC ("VALUE" <OR AC FALSE> ANY) L5>
6353                     <TEMP TEMP7>
6354                     <INTGO>
6355                     <FRAME '\1aPUTUS!-MIMOC>
6356                     <PUSH L5>
6357                     <DEAD L5>
6358                     <PUSH 'T>
6359                     <CALL '\1aPUTUS!-MIMOC 2 = TEMP7>
6360                     <RETURN TEMP7>
6361                     <DEAD TEMP7>
6362                     <END \1aPUTUB!-MIMOC>
6363 #WORD *23455014302*
6364 <GFCN \1aRESTUS!-MIMOC ("VALUE" <OR FALSE FIX> LIST "OPTIONAL" <OR ATOM FALSE> ANY ANY ANY) L14 BYTES?15 OTH-VAL16 OP17 DEAD?18>
6365                     <OPT-DISPATCH 1 %<> OPT9 OPT10 OPT11 OPT12 OPT13>
6366 OPT9
6367                     <PUSH %<>>
6368 OPT10
6369                     <PUSH %<>>
6370 OPT11
6371                     <PUSH #T$UNBOUND 0>
6372 OPT12
6373                     <PUSH #T$UNBOUND 0>
6374 OPT13
6375                     <TEMP STR19:ATOM TEMP25 AMT20 VAL21:ATOM (OTH-AC23 %<>) NAC24 TEMP38>
6376                     <INTGO>
6377                     <NTHL L14 1 = STR19 (TYPE ATOM)>
6378                     <RESTL L14 1 = TEMP25 (TYPE LIST)>
6379                     <NTHL TEMP25 1 = AMT20>
6380                     <DEAD TEMP25>
6381                     <RESTL L14 1 = TEMP25 (TYPE LIST)>
6382                     <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
6383                     <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
6384                     <NTHL TEMP25 1 = VAL21 (TYPE ATOM)>
6385                     <DEAD TEMP25>
6386                     <FRAME '\1aPUTPROP>
6387                     <PUSH L14>
6388                     <PUSH 'DONE>
6389                     <CALL '\1aPUTPROP 2 = NAC24>
6390                     <TYPE? NAC24 <TYPE-CODE FALSE> - PHRASE28>
6391                     <EQUAL? AMT20 1 - PHRASE28>
6392                     <VEQUAL? STR19 VAL21 + PHRASE28>
6393                     <TYPE? OTH-VAL16 <TYPE-CODE FALSE> - PHRASE28>
6394                     <FRAME '\1aSTRING-REST-LOOK-AHEAD>
6395                     <PUSH L14>
6396                     <DEAD L14>
6397                     <PUSH STR19>
6398                     <PUSH VAL21>
6399                     <PUSH BYTES?15>
6400                     <CALL '\1aSTRING-REST-LOOK-AHEAD 4 = NAC24>
6401                     <JUMP + PHRASE49>
6402 PHRASE28
6403                     <TYPE? OTH-VAL16 <TYPE-CODE FALSE> + PHRASE49>
6404                     <EQUAL? OP17 'PUT - PHRASE49>
6405                     <FRAME '\1aIN-AC?>
6406                     <PUSH OTH-VAL16>
6407                     <PUSH 'BOTH>
6408                     <CALL '\1aIN-AC? 2 = OTH-AC23>
6409                     <TYPE? OTH-AC23 <TYPE-CODE FALSE> + PHRASE35>
6410                     <FRAME '\1aGET-AC>
6411                     <PUSH OTH-AC23>
6412                     <CALL '\1aGET-AC 1 = TEMP25>
6413                     <GVAL 'AC-STAMP = TEMP38>
6414                     <ADD TEMP38 1 = TEMP38 (TYPE FIX)>
6415                     <SETG 'AC-STAMP TEMP38>
6416                     <PUTUV TEMP25 4 TEMP38 (TYPE FIX)>
6417                     <DEAD TEMP25 TEMP38>
6418                     <FRAME '\1aGET-AC>
6419                     <FRAME '\1aNEXT-AC>
6420                     <PUSH OTH-AC23>
6421                     <DEAD OTH-AC23>
6422                     <CALL '\1aNEXT-AC 1 = OTH-AC23>
6423                     <PUSH OTH-AC23>
6424                     <CALL '\1aGET-AC 1 = TEMP25>
6425                     <GVAL 'AC-STAMP = TEMP38>
6426                     <PUTUV TEMP25 4 TEMP38 (TYPE FIX)>
6427                     <DEAD TEMP25 TEMP38>
6428                     <JUMP + PHRASE49>
6429 PHRASE35
6430                     <FRAME '\1aIN-AC?>
6431                     <PUSH OTH-VAL16>
6432                     <PUSH 'VALUE>
6433                     <CALL '\1aIN-AC? 2 = OTH-AC23>
6434                     <TYPE? OTH-AC23 <TYPE-CODE FALSE> + PHRASE41>
6435                     <FRAME '\1aGET-AC>
6436                     <PUSH OTH-AC23>
6437                     <CALL '\1aGET-AC 1 = TEMP25>
6438                     <GVAL 'AC-STAMP = TEMP38>
6439                     <ADD TEMP38 1 = TEMP38 (TYPE FIX)>
6440                     <SETG 'AC-STAMP TEMP38>
6441                     <PUTUV TEMP25 4 TEMP38 (TYPE FIX)>
6442                     <DEAD TEMP25 TEMP38>
6443                     <JUMP + PHRASE49>
6444 PHRASE41
6445                     <TYPE? OTH-VAL16 <TYPE-CODE ATOM> - PHRASE44>
6446                     <FRAME '\1aOCEMIT>
6447                     <PUSH 'MOVE>
6448                     <SET OTH-AC23 'O* (TYPE ATOM)>
6449                     <PUSH OTH-AC23>
6450                     <SET TEMP38 2 (TYPE FIX)>
6451                     <SFRAME 'OBJ-VAL>
6452                     <PUSH OTH-VAL16>
6453                     <SCALL '\1aOBJ-VAL 1 = TEMP25 + TAG45 TEMP38>
6454                     <LOOP (TEMP25 TYPE VALUE LENGTH) (TEMP38 VALUE)>
6455 TAG47
6456                     <INTGO>
6457                     <EMPTY? TEMP25 + TAG45>
6458                     <NTH1 TEMP25 = STACK>
6459                     <REST1 TEMP25 = TEMP25>
6460                     <ADD TEMP38 1 = TEMP38 (TYPE FIX)>
6461                     <JUMP + TAG47>
6462 TAG45
6463                     <CALL '\1aOCEMIT TEMP38>
6464                     <DEAD TEMP38>
6465                     <JUMP + PHRASE49>
6466 PHRASE44
6467                     <FRAME '\1aOCEMIT>
6468                     <PUSH 'MOVEI>
6469                     <SET OTH-AC23 'O* (TYPE ATOM)>
6470                     <PUSH OTH-AC23>
6471                     <CHTYPE OTH-VAL16 <TYPE-CODE FIX> = STACK>
6472                     <CALL '\1aOCEMIT 3>
6473 PHRASE49
6474                     <TYPE? NAC24 <TYPE-CODE FALSE> + PHRASE52>
6475                     <SET VAL21 'T (TYPE ATOM)>
6476                     <JUMP + PHRASE264>
6477 PHRASE52
6478                     <EQUAL? AMT20 1 - PHRASE53>
6479                     <FRAME '\1aIN-AC?>
6480                     <PUSH STR19>
6481                     <PUSH 'BOTH>
6482                     <CALL '\1aIN-AC? 2 = TEMP38>
6483                     <TYPE? TEMP38 <TYPE-CODE FALSE> - PHRASE53>
6484                     <DEAD TEMP38>
6485                     <VEQUAL? STR19 VAL21 - PHRASE53>
6486                     <FRAME '\1aIN-AC?>
6487                     <PUSH STR19>
6488                     <PUSH 'TYPE>
6489                     <CALL '\1aIN-AC? 2 = NAC24>
6490                     <TYPE? NAC24 <TYPE-CODE FALSE> + PHRASE57>
6491                     <FRAME '\1aGET-AC>
6492                     <PUSH NAC24>
6493                     <CALL '\1aGET-AC 1 = TEMP38>
6494                     <NTHUV TEMP38 5 = TEMP38>
6495                     <TYPE? TEMP38 <TYPE-CODE FALSE> - PHRASE57>
6496                     <DEAD TEMP38>
6497                     <FRAME '\1aMUNGED-AC>
6498                     <PUSH NAC24>
6499                     <DEAD NAC24>
6500                     <CALL '\1aMUNGED-AC 1>
6501 PHRASE57
6502                     <FRAME '\1aIN-AC?>
6503                     <PUSH STR19>
6504                     <PUSH 'VALUE>
6505                     <CALL '\1aIN-AC? 2 = NAC24>
6506                     <TYPE? NAC24 <TYPE-CODE FALSE> + PHRASE63>
6507                     <FRAME '\1aGET-AC>
6508                     <PUSH NAC24>
6509                     <CALL '\1aGET-AC 1 = TEMP38>
6510                     <NTHUV TEMP38 5 = TEMP38>
6511                     <TYPE? TEMP38 <TYPE-CODE FALSE> - PHRASE63>
6512                     <DEAD TEMP38>
6513                     <FRAME '\1aMUNGED-AC>
6514                     <PUSH NAC24>
6515                     <CALL '\1aMUNGED-AC 1>
6516 PHRASE63
6517                     <FRAME '\1aOCEMIT>
6518                     <PUSH 'SOS>
6519                     <PUSH 'O*>
6520                     <SET TEMP25 2 (TYPE FIX)>
6521                     <SFRAME 'OBJ-TYP>
6522                     <PUSH STR19>
6523                     <SCALL '\1aOBJ-TYP 1 = TEMP38 + TAG68 TEMP25>
6524                     <LOOP (TEMP38 TYPE VALUE LENGTH) (TEMP25 VALUE)>
6525 TAG70
6526                     <INTGO>
6527                     <EMPTY? TEMP38 + TAG68>
6528                     <NTH1 TEMP38 = STACK>
6529                     <REST1 TEMP38 = TEMP38>
6530                     <ADD TEMP25 1 = TEMP25 (TYPE FIX)>
6531                     <JUMP + TAG70>
6532 TAG68
6533                     <CALL '\1aOCEMIT TEMP25>
6534                     <DEAD TEMP25>
6535                     <TYPE? OTH-VAL16 <TYPE-CODE FALSE> + PHRASE73>
6536                     <EQUAL? OP17 'PUT - PHRASE75>
6537                     <DEAD OP17>
6538                     <FRAME '\1aOCEMIT>
6539                     <PUSH 'IDPB>
6540                     <PUSH OTH-AC23>
6541                     <DEAD OTH-AC23>
6542                     <SET TEMP38 2 (TYPE FIX)>
6543                     <SFRAME 'OBJ-VAL>
6544                     <PUSH STR19>
6545                     <DEAD STR19>
6546                     <SCALL '\1aOBJ-VAL 1 = TEMP25 + TAG76 TEMP38>
6547                     <LOOP (TEMP25 TYPE VALUE LENGTH) (TEMP38 VALUE)>
6548 TAG78
6549                     <INTGO>
6550                     <EMPTY? TEMP25 + TAG76>
6551                     <NTH1 TEMP25 = STACK>
6552                     <REST1 TEMP25 = TEMP25>
6553                     <ADD TEMP38 1 = TEMP38 (TYPE FIX)>
6554                     <JUMP + TAG78>
6555 TAG76
6556                     <CALL '\1aOCEMIT TEMP38>
6557                     <DEAD TEMP38>
6558                     <JUMP + PHRASE264>
6559 PHRASE75
6560                     <EQUAL? OTH-VAL16 'STACK - PHRASE80>
6561                     <FRAME '\1aOCEMIT>
6562                     <PUSH 'ILDB>
6563                     <PUSH 'O*>
6564                     <SET TEMP25 2 (TYPE FIX)>
6565                     <SFRAME 'OBJ-VAL>
6566                     <PUSH STR19>
6567                     <DEAD STR19>
6568                     <SCALL '\1aOBJ-VAL 1 = TEMP38 + TAG81 TEMP25>
6569                     <LOOP (TEMP38 TYPE VALUE LENGTH) (TEMP25 VALUE)>
6570 TAG83
6571                     <INTGO>
6572                     <EMPTY? TEMP38 + TAG81>
6573                     <NTH1 TEMP38 = STACK>
6574                     <REST1 TEMP38 = TEMP38>
6575                     <ADD TEMP25 1 = TEMP25 (TYPE FIX)>
6576                     <JUMP + TAG83>
6577 TAG81
6578                     <CALL '\1aOCEMIT TEMP25>
6579                     <DEAD TEMP25>
6580                     <FRAME '\1aOCEMIT>
6581                     <PUSH 'PUSH>
6582                     <PUSH 'TP*>
6583                     <SET TEMP38 2 (TYPE FIX)>
6584                     <SFRAME 'TYPE-WORD>
6585                     <TYPE? BYTES?15 <TYPE-CODE FALSE> + PHRASE88>
6586                     <DEAD BYTES?15>
6587                     <SET AMT20 'FIX (TYPE ATOM)>
6588                     <JUMP + PHRASE90>
6589 PHRASE88
6590                     <SET AMT20 'CHARACTER (TYPE ATOM)>
6591 PHRASE90
6592                     <PUSH AMT20>
6593                     <DEAD AMT20>
6594                     <SCALL '\1aTYPE-WORD 1 = TEMP25 + TAG85 TEMP38>
6595                     <LOOP (TEMP25 TYPE VALUE LENGTH) (TEMP38 VALUE)>
6596 TAG91
6597                     <INTGO>
6598                     <EMPTY? TEMP25 + TAG85>
6599                     <NTH1 TEMP25 = STACK>
6600                     <REST1 TEMP25 = TEMP25>
6601                     <ADD TEMP38 1 = TEMP38 (TYPE FIX)>
6602                     <JUMP + TAG91>
6603 TAG85
6604                     <CALL '\1aOCEMIT TEMP38>
6605                     <DEAD TEMP38>
6606                     <FRAME '\1aOCEMIT>
6607                     <PUSH 'PUSH>
6608                     <PUSH 'TP*>
6609                     <PUSH 'O*>
6610                     <CALL '\1aOCEMIT 3>
6611                     <GVAL 'WINNING-VICTIM = TEMP38>
6612                     <TYPE? TEMP38 <TYPE-CODE FALSE> + PHRASE264>
6613                     <DEAD TEMP38>
6614                     <GVAL 'STACK-DEPTH = TEMP38>
6615                     <ADD TEMP38 2 = TEMP38 (TYPE FIX)>
6616                     <SETG 'STACK-DEPTH TEMP38>
6617                     <DEAD TEMP38>
6618                     <JUMP + PHRASE264>
6619 PHRASE80
6620                     <FRAME '\1aASSIGN-AC>
6621                     <PUSH OTH-VAL16>
6622                     <DEAD OTH-VAL16>
6623                     <PUSH 'BOTH>
6624                     <CALL '\1aASSIGN-AC 2 = OTH-AC23>
6625                     <FRAME '\1aGET-AC>
6626                     <PUSH OTH-AC23>
6627                     <CALL '\1aGET-AC 1 = TEMP38>
6628                     <TYPE? BYTES?15 <TYPE-CODE FALSE> + PHRASE100>
6629                     <DEAD BYTES?15>
6630                     <SET TEMP25 'FIX (TYPE ATOM)>
6631                     <JUMP + PHRASE101>
6632 PHRASE100
6633                     <SET TEMP25 'CHARACTER (TYPE ATOM)>
6634 PHRASE101
6635                     <PUTUV TEMP38 6 TEMP25>
6636                     <DEAD TEMP38 TEMP25>
6637                     <FRAME '\1aOCEMIT>
6638                     <PUSH 'ILDB>
6639                     <FRAME '\1aNEXT-AC>
6640                     <PUSH OTH-AC23>
6641                     <DEAD OTH-AC23>
6642                     <CALL '\1aNEXT-AC 1 = STACK>
6643                     <SET TEMP25 2 (TYPE FIX)>
6644                     <SFRAME 'OBJ-VAL>
6645                     <PUSH STR19>
6646                     <DEAD STR19>
6647                     <SCALL '\1aOBJ-VAL 1 = TEMP38 + TAG102 TEMP25>
6648                     <LOOP (TEMP38 TYPE VALUE LENGTH) (TEMP25 VALUE)>
6649 TAG105
6650                     <INTGO>
6651                     <EMPTY? TEMP38 + TAG102>
6652                     <NTH1 TEMP38 = STACK>
6653                     <REST1 TEMP38 = TEMP38>
6654                     <ADD TEMP25 1 = TEMP25 (TYPE FIX)>
6655                     <JUMP + TAG105>
6656 TAG102
6657                     <CALL '\1aOCEMIT TEMP25>
6658                     <DEAD TEMP25>
6659                     <JUMP + PHRASE264>
6660 PHRASE73
6661                     <FRAME '\1aOCEMIT>
6662                     <PUSH 'IBP>
6663                     <PUSH 'O*>
6664                     <SET TEMP38 2 (TYPE FIX)>
6665                     <SFRAME 'OBJ-VAL>
6666                     <PUSH STR19>
6667                     <DEAD STR19>
6668                     <SCALL '\1aOBJ-VAL 1 = TEMP25 + TAG108 TEMP38>
6669                     <LOOP (TEMP25 TYPE VALUE LENGTH) (TEMP38 VALUE)>
6670 TAG110
6671                     <INTGO>
6672                     <EMPTY? TEMP25 + TAG108>
6673                     <NTH1 TEMP25 = STACK>
6674                     <REST1 TEMP25 = TEMP25>
6675                     <ADD TEMP38 1 = TEMP38 (TYPE FIX)>
6676                     <JUMP + TAG110>
6677 TAG108
6678                     <CALL '\1aOCEMIT TEMP38>
6679                     <DEAD TEMP38>
6680                     <JUMP + PHRASE264>
6681 PHRASE53
6682                     <TYPE? AMT20 <TYPE-CODE FIX> - PHRASE112>
6683                     <VEQUAL? AMT20 1 - PHRASE114 (TYPE FIX)>
6684                     <FRAME '\1aLOAD-AC>
6685                     <PUSH STR19>
6686                     <PUSH 'BOTH>
6687                     <CALL '\1aLOAD-AC 2 = NAC24>
6688                     <TYPE? OTH-VAL16 <TYPE-CODE FALSE> + BOOL120>
6689                     <EQUAL? OP17 'PUT + BOOL120>
6690                     <EQUAL? OTH-VAL16 'STACK - PHRASE129>
6691 BOOL120
6692                     <TYPE? DEAD?18 <TYPE-CODE UNBOUND> + BOOL124>
6693                     <TYPE? DEAD?18 <TYPE-CODE FALSE> - PHRASE122>
6694 BOOL124
6695                     <TYPE? DEAD?18 <TYPE-CODE UNBOUND> - BOOL125>
6696                     <FRAME '\1aWILL-DIE?>
6697                     <PUSH STR19>
6698                     <CALL '\1aWILL-DIE? 1 = TEMP38>
6699                     <TYPE? TEMP38 <TYPE-CODE FALSE> - PHRASE122>
6700                     <DEAD TEMP38>
6701 BOOL125
6702                     <VEQUAL? STR19 VAL21 + PHRASE122>
6703                     <FRAME '\1aFLUSH-AC>
6704                     <PUSH NAC24>
6705                     <PUSH 'T>
6706                     <CALL '\1aFLUSH-AC 2>
6707 PHRASE122
6708                     <FRAME '\1aMUNGED-AC>
6709                     <PUSH NAC24>
6710                     <PUSH 'T>
6711                     <CALL '\1aMUNGED-AC 2>
6712                     <JUMP + PHRASE129>
6713 PHRASE114
6714                     <FRAME '\1aLOAD-AC>
6715                     <PUSH STR19>
6716                     <PUSH 'TYPE>
6717                     <CALL '\1aLOAD-AC 2 = NAC24>
6718                     <FRAME '\1aWILL-DIE?>
6719                     <PUSH STR19>
6720                     <CALL '\1aWILL-DIE? 1 = TEMP25>
6721                     <TYPE? TEMP25 <TYPE-CODE FALSE> - PHRASE132>
6722                     <DEAD TEMP25>
6723                     <FRAME '\1aFLUSH-AC>
6724                     <PUSH NAC24>
6725                     <CALL '\1aFLUSH-AC 1>
6726 PHRASE132
6727                     <FRAME '\1aMUNGED-AC>
6728                     <PUSH NAC24>
6729                     <CALL '\1aMUNGED-AC 1>
6730 PHRASE129
6731                     <FRAME '\1aOCEMIT>
6732                     <PUSH 'SUBI>
6733                     <PUSH NAC24>
6734                     <PUSH AMT20>
6735                     <CALL '\1aOCEMIT 3>
6736                     <VEQUAL? AMT20 1 - PHRASE138 (TYPE FIX)>
6737                     <TYPE? OTH-VAL16 <TYPE-CODE FALSE> + PHRASE142>
6738                     <EQUAL? OP17 'PUT - PHRASE144>
6739                     <DEAD OP17>
6740                     <FRAME '\1aOCEMIT>
6741                     <PUSH 'IDPB>
6742                     <PUSH OTH-AC23>
6743                     <DEAD OTH-AC23>
6744                     <FRAME '\1aNEXT-AC>
6745                     <PUSH NAC24>
6746                     <CALL '\1aNEXT-AC 1 = STACK>
6747                     <CALL '\1aOCEMIT 3>
6748                     <JUMP + PHRASE196>
6749 PHRASE144
6750                     <EQUAL? OTH-VAL16 'STACK - PHRASE147>
6751                     <FRAME '\1aOCEMIT>
6752                     <PUSH 'ILDB>
6753                     <PUSH 'O*>
6754                     <FRAME '\1aNEXT-AC>
6755                     <PUSH NAC24>
6756                     <CALL '\1aNEXT-AC 1 = STACK>
6757                     <CALL '\1aOCEMIT 3>
6758                     <FRAME '\1aOCEMIT>
6759                     <PUSH 'PUSH>
6760                     <PUSH 'TP*>
6761                     <SET AMT20 2 (TYPE FIX)>
6762                     <SFRAME 'TYPE-WORD>
6763                     <TYPE? BYTES?15 <TYPE-CODE FALSE> + PHRASE153>
6764                     <DEAD BYTES?15>
6765                     <SET TEMP38 'FIX (TYPE ATOM)>
6766                     <JUMP + PHRASE155>
6767 PHRASE153
6768                     <SET TEMP38 'CHARACTER (TYPE ATOM)>
6769 PHRASE155
6770                     <PUSH TEMP38>
6771                     <DEAD TEMP38>
6772                     <SCALL '\1aTYPE-WORD 1 = TEMP25 + TAG150 AMT20>
6773                     <LOOP (TEMP25 TYPE VALUE LENGTH) (AMT20 VALUE)>
6774 TAG156
6775                     <INTGO>
6776                     <EMPTY? TEMP25 + TAG150>
6777                     <NTH1 TEMP25 = STACK>
6778                     <REST1 TEMP25 = TEMP25>
6779                     <ADD AMT20 1 = AMT20 (TYPE FIX)>
6780                     <JUMP + TAG156>
6781 TAG150
6782                     <CALL '\1aOCEMIT AMT20>
6783                     <DEAD AMT20>
6784                     <FRAME '\1aOCEMIT>
6785                     <PUSH 'PUSH>
6786                     <PUSH 'TP*>
6787                     <PUSH 'O*>
6788                     <CALL '\1aOCEMIT 3>
6789                     <GVAL 'WINNING-VICTIM = AMT20>
6790                     <TYPE? AMT20 <TYPE-CODE FALSE> + PHRASE196>
6791                     <DEAD AMT20>
6792                     <GVAL 'STACK-DEPTH = AMT20>
6793                     <ADD AMT20 2 = AMT20 (TYPE FIX)>
6794                     <SETG 'STACK-DEPTH AMT20>
6795                     <DEAD AMT20>
6796                     <JUMP + PHRASE196>
6797 PHRASE147
6798                     <TYPE? DEAD?18 <TYPE-CODE UNBOUND> + BOOL165>
6799                     <TYPE? DEAD?18 <TYPE-CODE FALSE> - PHRASE163>
6800 BOOL165
6801                     <TYPE? DEAD?18 <TYPE-CODE UNBOUND> - BOOL166>
6802                     <DEAD DEAD?18>
6803                     <FRAME '\1aWILL-DIE?>
6804                     <PUSH STR19>
6805                     <CALL '\1aWILL-DIE? 1 = AMT20>
6806                     <TYPE? AMT20 <TYPE-CODE FALSE> - PHRASE163>
6807                     <DEAD AMT20>
6808 BOOL166
6809                     <VEQUAL? STR19 VAL21 + PHRASE163>
6810                     <DEAD STR19>
6811                     <FRAME '\1aFLUSH-AC>
6812                     <PUSH NAC24>
6813                     <PUSH 'T>
6814                     <CALL '\1aFLUSH-AC 2>
6815 PHRASE163
6816                     <FRAME '\1aMUNGED-AC>
6817                     <PUSH NAC24>
6818                     <PUSH 'T>
6819                     <CALL '\1aMUNGED-AC 2>
6820                     <FRAME '\1aASSIGN-AC>
6821                     <PUSH OTH-VAL16>
6822                     <DEAD OTH-VAL16>
6823                     <PUSH 'BOTH>
6824                     <CALL '\1aASSIGN-AC 2 = OTH-AC23>
6825                     <FRAME '\1aGET-AC>
6826                     <PUSH OTH-AC23>
6827                     <CALL '\1aGET-AC 1 = TEMP25>
6828                     <TYPE? BYTES?15 <TYPE-CODE FALSE> + PHRASE173>
6829                     <DEAD BYTES?15>
6830                     <SET TEMP38 'FIX (TYPE ATOM)>
6831                     <JUMP + PHRASE174>
6832 PHRASE173
6833                     <SET TEMP38 'CHARACTER (TYPE ATOM)>
6834 PHRASE174
6835                     <PUTUV TEMP25 6 TEMP38>
6836                     <DEAD TEMP25 TEMP38>
6837                     <FRAME '\1aOCEMIT>
6838                     <PUSH 'ILDB>
6839                     <FRAME '\1aNEXT-AC>
6840                     <PUSH OTH-AC23>
6841                     <DEAD OTH-AC23>
6842                     <CALL '\1aNEXT-AC 1 = STACK>
6843                     <FRAME '\1aNEXT-AC>
6844                     <PUSH NAC24>
6845                     <CALL '\1aNEXT-AC 1 = STACK>
6846                     <CALL '\1aOCEMIT 3>
6847                     <JUMP + PHRASE196>
6848 PHRASE142
6849                     <FRAME '\1aOCEMIT>
6850                     <PUSH 'IBP>
6851                     <PUSH 'O*>
6852                     <FRAME '\1aNEXT-AC>
6853                     <PUSH NAC24>
6854                     <CALL '\1aNEXT-AC 1 = STACK>
6855                     <CALL '\1aOCEMIT 3>
6856                     <JUMP + PHRASE196>
6857 PHRASE138
6858                     <FRAME '\1aIN-AC?>
6859                     <PUSH STR19>
6860                     <PUSH 'VALUE>
6861                     <CALL '\1aIN-AC? 2 = TEMP25>
6862                     <FRAME '\1aNEXT-AC>
6863                     <PUSH NAC24>
6864                     <CALL '\1aNEXT-AC 1 = TEMP38>
6865                     <EQUAL? TEMP25 TEMP38 - PHRASE181>
6866                     <DEAD TEMP25 TEMP38>
6867                     <FRAME '\1aGET-AC>
6868                     <FRAME '\1aNEXT-AC>
6869                     <PUSH NAC24>
6870                     <CALL '\1aNEXT-AC 1 = STACK>
6871                     <CALL '\1aGET-AC 1 = TEMP38>
6872                     <NTHUV TEMP38 5 = TEMP38>
6873                     <TYPE? TEMP38 <TYPE-CODE FALSE> + PHRASE181>
6874                     <DEAD TEMP38>
6875                     <FRAME '\1aSMASH-AC>
6876                     <PUSH 'O*>
6877                     <PUSH STR19>
6878                     <DEAD STR19>
6879                     <PUSH 'VALUE>
6880                     <CALL '\1aSMASH-AC 3>
6881                     <FRAME '\1aMUNGED-AC>
6882                     <PUSH 'O*>
6883                     <CALL '\1aMUNGED-AC 1>
6884                     <FRAME '\1aOCEMIT>
6885                     <PUSH 'MOVEI>
6886                     <FRAME '\1aNEXT-AC>
6887                     <PUSH NAC24>
6888                     <CALL '\1aNEXT-AC 1 = STACK>
6889                     <PUSH AMT20>
6890                     <DEAD AMT20>
6891                     <CALL '\1aOCEMIT 3>
6892                     <FRAME '\1aOCEMIT>
6893                     <GVAL 'ADJBP-HACK = TEMP38>
6894                     <TYPE? TEMP38 <TYPE-CODE FALSE> + PHRASE193>
6895                     <DEAD TEMP38>
6896                     <SET TEMP38 'MADJBP (TYPE ATOM)>
6897                     <JUMP + PHRASE194>
6898 PHRASE193
6899                     <SET TEMP38 'ADJBP (TYPE ATOM)>
6900 PHRASE194
6901                     <PUSH TEMP38>
6902                     <DEAD TEMP38>
6903                     <FRAME '\1aNEXT-AC>
6904                     <PUSH NAC24>
6905                     <CALL '\1aNEXT-AC 1 = STACK>
6906                     <PUSH 'O*>
6907                     <CALL '\1aOCEMIT 3>
6908                     <JUMP + PHRASE196>
6909 PHRASE181
6910                     <FRAME '\1aFLUSH-AC>
6911                     <FRAME '\1aNEXT-AC>
6912                     <PUSH NAC24>
6913                     <CALL '\1aNEXT-AC 1 = STACK>
6914                     <CALL '\1aFLUSH-AC 1>
6915                     <FRAME '\1aMUNGED-AC>
6916                     <FRAME '\1aNEXT-AC>
6917                     <PUSH NAC24>
6918                     <CALL '\1aNEXT-AC 1 = STACK>
6919                     <CALL '\1aMUNGED-AC 1>
6920                     <FRAME '\1aOCEMIT>
6921                     <PUSH 'MOVEI>
6922                     <FRAME '\1aNEXT-AC>
6923                     <PUSH NAC24>
6924                     <CALL '\1aNEXT-AC 1 = STACK>
6925                     <PUSH AMT20>
6926                     <DEAD AMT20>
6927                     <CALL '\1aOCEMIT 3>
6928                     <FRAME '\1aOCEMIT>
6929                     <GVAL 'ADJBP-HACK = TEMP38>
6930                     <TYPE? TEMP38 <TYPE-CODE FALSE> + PHRASE205>
6931                     <DEAD TEMP38>
6932                     <SET TEMP38 'MADJBP (TYPE ATOM)>
6933                     <JUMP + PHRASE206>
6934 PHRASE205
6935                     <SET TEMP38 'ADJBP (TYPE ATOM)>
6936 PHRASE206
6937                     <PUSH TEMP38>
6938                     <DEAD TEMP38>
6939                     <FRAME '\1aNEXT-AC>
6940                     <PUSH NAC24>
6941                     <CALL '\1aNEXT-AC 1 = STACK>
6942                     <SET TEMP25 2 (TYPE FIX)>
6943                     <SFRAME 'OBJ-VAL>
6944                     <PUSH STR19>
6945                     <DEAD STR19>
6946                     <SCALL '\1aOBJ-VAL 1 = TEMP38 + TAG203 TEMP25>
6947                     <LOOP (TEMP38 TYPE VALUE LENGTH) (TEMP25 VALUE)>
6948 TAG209
6949                     <INTGO>
6950                     <EMPTY? TEMP38 + TAG203>
6951                     <NTH1 TEMP38 = STACK>
6952                     <REST1 TEMP38 = TEMP38>
6953                     <ADD TEMP25 1 = TEMP25 (TYPE FIX)>
6954                     <JUMP + TAG209>
6955 TAG203
6956                     <CALL '\1aOCEMIT TEMP25>
6957                     <DEAD TEMP25>
6958 PHRASE196
6959                     <FRAME '\1aCLEAN-ACS>
6960                     <PUSH VAL21>
6961                     <CALL '\1aCLEAN-ACS 1>
6962                     <FRAME '\1aGET-AC>
6963                     <PUSH NAC24>
6964                     <CALL '\1aGET-AC 1 = TEMP25>
6965                     <PUTUV TEMP25 5 'T>
6966                     <PUTUV TEMP25 2 VAL21>
6967                     <PUTUV TEMP25 3 'TYPE (TYPE ATOM)>
6968                     <DEAD TEMP25>
6969                     <FRAME '\1aGET-AC>
6970                     <FRAME '\1aNEXT-AC>
6971                     <PUSH NAC24>
6972                     <CALL '\1aNEXT-AC 1 = STACK>
6973                     <CALL '\1aGET-AC 1 = TEMP25>
6974                     <PUTUV TEMP25 5 'T>
6975                     <PUTUV TEMP25 2 VAL21>
6976                     <PUTUV TEMP25 3 'VALUE (TYPE ATOM)>
6977                     <DEAD TEMP25>
6978                     <JUMP + PHRASE264>
6979 PHRASE112
6980                     <VEQUAL? AMT20 VAL21 - PHRASE215>
6981                     <FRAME '\1aIN-AC?>
6982                     <PUSH AMT20>
6983                     <PUSH 'VALUE>
6984                     <CALL '\1aIN-AC? 2 = OTH-AC23>
6985                     <TYPE? OTH-AC23 <TYPE-CODE FALSE> - PHRASE218>
6986                     <FRAME '\1aLOAD-AC>
6987                     <PUSH AMT20>
6988                     <PUSH 'VALUE>
6989                     <CALL '\1aLOAD-AC 2 = OTH-AC23>
6990 PHRASE218
6991                     <FRAME '\1aGETPROP>
6992                     <PUSH OTH-AC23>
6993                     <PUSH 'AC-PAIR>
6994                     <CALL '\1aGETPROP 2 = NAC24>
6995                     <FRAME '\1aOCEMIT>
6996                     <PUSH 'MOVE>
6997                     <PUSH NAC24>
6998                     <SET TEMP38 2 (TYPE FIX)>
6999                     <SFRAME 'OBJ-TYP>
7000                     <PUSH STR19>
7001                     <SCALL '\1aOBJ-TYP 1 = TEMP25 + TAG221 TEMP38>
7002                     <LOOP (TEMP25 TYPE VALUE LENGTH) (TEMP38 VALUE)>
7003 TAG223
7004                     <INTGO>
7005                     <EMPTY? TEMP25 + TAG221>
7006                     <NTH1 TEMP25 = STACK>
7007                     <REST1 TEMP25 = TEMP25>
7008                     <ADD TEMP38 1 = TEMP38 (TYPE FIX)>
7009                     <JUMP + TAG223>
7010 TAG221
7011                     <CALL '\1aOCEMIT TEMP38>
7012                     <DEAD TEMP38>
7013                     <FRAME '\1aOCEMIT>
7014                     <PUSH 'SUB>
7015                     <PUSH NAC24>
7016                     <SET TEMP25 2 (TYPE FIX)>
7017                     <SFRAME 'OBJ-VAL>
7018                     <PUSH AMT20>
7019                     <DEAD AMT20>
7020                     <SCALL '\1aOBJ-VAL 1 = TEMP38 + TAG225 TEMP25>
7021                     <LOOP (TEMP38 TYPE VALUE LENGTH) (TEMP25 VALUE)>
7022 TAG227
7023                     <INTGO>
7024                     <EMPTY? TEMP38 + TAG225>
7025                     <NTH1 TEMP38 = STACK>
7026                     <REST1 TEMP38 = TEMP38>
7027                     <ADD TEMP25 1 = TEMP25 (TYPE FIX)>
7028                     <JUMP + TAG227>
7029 TAG225
7030                     <CALL '\1aOCEMIT TEMP25>
7031                     <DEAD TEMP25>
7032                     <FRAME '\1aOCEMIT>
7033                     <GVAL 'ADJBP-HACK = TEMP25>
7034                     <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE231>
7035                     <DEAD TEMP25>
7036                     <SET TEMP25 'MADJBP (TYPE ATOM)>
7037                     <JUMP + PHRASE232>
7038 PHRASE231
7039                     <SET TEMP25 'ADJBP (TYPE ATOM)>
7040 PHRASE232
7041                     <PUSH TEMP25>
7042                     <DEAD TEMP25>
7043                     <PUSH OTH-AC23>
7044                     <SET TEMP38 2 (TYPE FIX)>
7045                     <SFRAME 'OBJ-VAL>
7046                     <PUSH STR19>
7047                     <DEAD STR19>
7048                     <SCALL '\1aOBJ-VAL 1 = TEMP25 + TAG229 TEMP38>
7049                     <LOOP (TEMP25 TYPE VALUE LENGTH) (TEMP38 VALUE)>
7050 TAG234
7051                     <INTGO>
7052                     <EMPTY? TEMP25 + TAG229>
7053                     <NTH1 TEMP25 = STACK>
7054                     <REST1 TEMP25 = TEMP25>
7055                     <ADD TEMP38 1 = TEMP38 (TYPE FIX)>
7056                     <JUMP + TAG234>
7057 TAG229
7058                     <CALL '\1aOCEMIT TEMP38>
7059                     <DEAD TEMP38>
7060                     <FRAME '\1aGET-AC>
7061                     <PUSH NAC24>
7062                     <CALL '\1aGET-AC 1 = TEMP38>
7063                     <PUTUV TEMP38 5 'T>
7064                     <PUTUV TEMP38 2 VAL21>
7065                     <PUTUV TEMP38 3 'TYPE (TYPE ATOM)>
7066                     <DEAD TEMP38>
7067                     <FRAME '\1aGET-AC>
7068                     <PUSH OTH-AC23>
7069                     <DEAD OTH-AC23>
7070                     <CALL '\1aGET-AC 1 = TEMP38>
7071                     <PUTUV TEMP38 5 'T>
7072                     <PUTUV TEMP38 2 VAL21>
7073                     <DEAD TEMP38>
7074                     <JUMP + PHRASE264>
7075 PHRASE215
7076                     <VEQUAL? VAL21 STR19 - PHRASE238>
7077                     <FRAME '\1aLOAD-AC>
7078                     <PUSH STR19>
7079                     <PUSH 'TYPE>
7080                     <CALL '\1aLOAD-AC 2 = NAC24>
7081                     <FRAME '\1aOCEMIT>
7082                     <PUSH 'SUB>
7083                     <PUSH NAC24>
7084                     <SET TEMP25 2 (TYPE FIX)>
7085                     <SFRAME 'OBJ-VAL>
7086                     <PUSH AMT20>
7087                     <SCALL '\1aOBJ-VAL 1 = TEMP38 + TAG240 TEMP25>
7088                     <LOOP (TEMP38 TYPE VALUE LENGTH) (TEMP25 VALUE)>
7089 TAG242
7090                     <INTGO>
7091                     <EMPTY? TEMP38 + TAG240>
7092                     <NTH1 TEMP38 = STACK>
7093                     <REST1 TEMP38 = TEMP38>
7094                     <ADD TEMP25 1 = TEMP25 (TYPE FIX)>
7095                     <JUMP + TAG242>
7096 TAG240
7097                     <CALL '\1aOCEMIT TEMP25>
7098                     <DEAD TEMP25>
7099                     <FRAME '\1aFLUSH-AC>
7100                     <FRAME '\1aNEXT-AC>
7101                     <PUSH NAC24>
7102                     <CALL '\1aNEXT-AC 1 = STACK>
7103                     <CALL '\1aFLUSH-AC 1>
7104                     <FRAME '\1aMUNGED-AC>
7105                     <FRAME '\1aNEXT-AC>
7106                     <PUSH NAC24>
7107                     <CALL '\1aNEXT-AC 1 = STACK>
7108                     <CALL '\1aMUNGED-AC 1>
7109                     <FRAME '\1aOCEMIT>
7110                     <PUSH 'MOVE>
7111                     <FRAME '\1aNEXT-AC>
7112                     <PUSH NAC24>
7113                     <CALL '\1aNEXT-AC 1 = STACK>
7114                     <SET TEMP38 2 (TYPE FIX)>
7115                     <SFRAME 'OBJ-VAL>
7116                     <PUSH AMT20>
7117                     <DEAD AMT20>
7118                     <SCALL '\1aOBJ-VAL 1 = TEMP25 + TAG248 TEMP38>
7119                     <LOOP (TEMP25 TYPE VALUE LENGTH) (TEMP38 VALUE)>
7120 TAG251
7121                     <INTGO>
7122                     <EMPTY? TEMP25 + TAG248>
7123                     <NTH1 TEMP25 = STACK>
7124                     <REST1 TEMP25 = TEMP25>
7125                     <ADD TEMP38 1 = TEMP38 (TYPE FIX)>
7126                     <JUMP + TAG251>
7127 TAG248
7128                     <CALL '\1aOCEMIT TEMP38>
7129                     <DEAD TEMP38>
7130                     <FRAME '\1aOCEMIT>
7131                     <GVAL 'ADJBP-HACK = TEMP38>
7132                     <TYPE? TEMP38 <TYPE-CODE FALSE> + PHRASE255>
7133                     <DEAD TEMP38>
7134                     <SET TEMP38 'MADJBP (TYPE ATOM)>
7135                     <JUMP + PHRASE256>
7136 PHRASE255
7137                     <SET TEMP38 'ADJBP (TYPE ATOM)>
7138 PHRASE256
7139                     <PUSH TEMP38>
7140                     <DEAD TEMP38>
7141                     <FRAME '\1aNEXT-AC>
7142                     <PUSH NAC24>
7143                     <CALL '\1aNEXT-AC 1 = STACK>
7144                     <SET TEMP25 2 (TYPE FIX)>
7145                     <SFRAME 'OBJ-VAL>
7146                     <PUSH STR19>
7147                     <DEAD STR19>
7148                     <SCALL '\1aOBJ-VAL 1 = TEMP38 + TAG253 TEMP25>
7149                     <LOOP (TEMP38 TYPE VALUE LENGTH) (TEMP25 VALUE)>
7150 TAG259
7151                     <INTGO>
7152                     <EMPTY? TEMP38 + TAG253>
7153                     <NTH1 TEMP38 = STACK>
7154                     <REST1 TEMP38 = TEMP38>
7155                     <ADD TEMP25 1 = TEMP25 (TYPE FIX)>
7156                     <JUMP + TAG259>
7157 TAG253
7158                     <CALL '\1aOCEMIT TEMP25>
7159                     <DEAD TEMP25>
7160                     <FRAME '\1aGET-AC>
7161                     <PUSH NAC24>
7162                     <CALL '\1aGET-AC 1 = TEMP25>
7163                     <PUTUV TEMP25 5 'T>
7164                     <PUTUV TEMP25 2 VAL21>
7165                     <DEAD TEMP25>
7166                     <FRAME '\1aGET-AC>
7167                     <FRAME '\1aNEXT-AC>
7168                     <PUSH NAC24>
7169                     <CALL '\1aNEXT-AC 1 = STACK>
7170                     <CALL '\1aGET-AC 1 = TEMP25>
7171                     <PUTUV TEMP25 5 'T>
7172                     <PUTUV TEMP25 2 VAL21>
7173                     <PUTUV TEMP25 3 'VALUE (TYPE ATOM)>
7174                     <GVAL 'AC-STAMP = TEMP38>
7175                     <PUTUV TEMP25 4 TEMP38 (TYPE FIX)>
7176                     <DEAD TEMP25 TEMP38>
7177                     <JUMP + PHRASE264>
7178 PHRASE238
7179                     <FRAME '\1aASSIGN-AC>
7180                     <PUSH VAL21>
7181                     <PUSH 'BOTH>
7182                     <PUSH 'T>
7183                     <CALL '\1aASSIGN-AC 3 = NAC24>
7184                     <FRAME '\1aIN-AC?>
7185                     <PUSH STR19>
7186                     <PUSH 'TYPE>
7187                     <CALL '\1aIN-AC? 2 = TEMP25>
7188                     <EQUAL? TEMP25 NAC24 + PHRASE267>
7189                     <DEAD TEMP25>
7190                     <FRAME '\1aOCEMIT>
7191                     <PUSH 'MOVE>
7192                     <PUSH NAC24>
7193                     <SET TEMP38 2 (TYPE FIX)>
7194                     <SFRAME 'OBJ-TYP>
7195                     <PUSH STR19>
7196                     <SCALL '\1aOBJ-TYP 1 = TEMP25 + TAG269 TEMP38>
7197                     <LOOP (TEMP25 TYPE VALUE LENGTH) (TEMP38 VALUE)>
7198 TAG271
7199                     <INTGO>
7200                     <EMPTY? TEMP25 + TAG269>
7201                     <NTH1 TEMP25 = STACK>
7202                     <REST1 TEMP25 = TEMP25>
7203                     <ADD TEMP38 1 = TEMP38 (TYPE FIX)>
7204                     <JUMP + TAG271>
7205 TAG269
7206                     <CALL '\1aOCEMIT TEMP38>
7207                     <DEAD TEMP38>
7208 PHRASE267
7209                     <FRAME '\1aOCEMIT>
7210                     <PUSH 'SUB>
7211                     <PUSH NAC24>
7212                     <SET TEMP25 2 (TYPE FIX)>
7213                     <SFRAME 'OBJ-VAL>
7214                     <PUSH AMT20>
7215                     <SCALL '\1aOBJ-VAL 1 = TEMP38 + TAG273 TEMP25>
7216                     <LOOP (TEMP38 TYPE VALUE LENGTH) (TEMP25 VALUE)>
7217 TAG275
7218                     <INTGO>
7219                     <EMPTY? TEMP38 + TAG273>
7220                     <NTH1 TEMP38 = STACK>
7221                     <REST1 TEMP38 = TEMP38>
7222                     <ADD TEMP25 1 = TEMP25 (TYPE FIX)>
7223                     <JUMP + TAG275>
7224 TAG273
7225                     <CALL '\1aOCEMIT TEMP25>
7226                     <DEAD TEMP25>
7227                     <FRAME '\1aOCEMIT>
7228                     <PUSH 'MOVE>
7229                     <FRAME '\1aNEXT-AC>
7230                     <PUSH NAC24>
7231                     <CALL '\1aNEXT-AC 1 = STACK>
7232                     <SET TEMP38 2 (TYPE FIX)>
7233                     <SFRAME 'OBJ-VAL>
7234                     <PUSH AMT20>
7235                     <DEAD AMT20>
7236                     <SCALL '\1aOBJ-VAL 1 = TEMP25 + TAG277 TEMP38>
7237                     <LOOP (TEMP25 TYPE VALUE LENGTH) (TEMP38 VALUE)>
7238 TAG280
7239                     <INTGO>
7240                     <EMPTY? TEMP25 + TAG277>
7241                     <NTH1 TEMP25 = STACK>
7242                     <REST1 TEMP25 = TEMP25>
7243                     <ADD TEMP38 1 = TEMP38 (TYPE FIX)>
7244                     <JUMP + TAG280>
7245 TAG277
7246                     <CALL '\1aOCEMIT TEMP38>
7247                     <DEAD TEMP38>
7248                     <FRAME '\1aOCEMIT>
7249                     <GVAL 'ADJBP-HACK = TEMP38>
7250                     <TYPE? TEMP38 <TYPE-CODE FALSE> + PHRASE284>
7251                     <DEAD TEMP38>
7252                     <SET TEMP38 'MADJBP (TYPE ATOM)>
7253                     <JUMP + PHRASE285>
7254 PHRASE284
7255                     <SET TEMP38 'ADJBP (TYPE ATOM)>
7256 PHRASE285
7257                     <PUSH TEMP38>
7258                     <DEAD TEMP38>
7259                     <FRAME '\1aNEXT-AC>
7260                     <PUSH NAC24>
7261                     <CALL '\1aNEXT-AC 1 = STACK>
7262                     <SET TEMP25 2 (TYPE FIX)>
7263                     <SFRAME 'OBJ-VAL>
7264                     <PUSH STR19>
7265                     <DEAD STR19>
7266                     <SCALL '\1aOBJ-VAL 1 = TEMP38 + TAG282 TEMP25>
7267                     <LOOP (TEMP38 TYPE VALUE LENGTH) (TEMP25 VALUE)>
7268 TAG288
7269                     <INTGO>
7270                     <EMPTY? TEMP38 + TAG282>
7271                     <NTH1 TEMP38 = STACK>
7272                     <REST1 TEMP38 = TEMP38>
7273                     <ADD TEMP25 1 = TEMP25 (TYPE FIX)>
7274                     <JUMP + TAG288>
7275 TAG282
7276                     <CALL '\1aOCEMIT TEMP25>
7277                     <DEAD TEMP25>
7278 PHRASE264
7279                     <VEQUAL? VAL21 'STACK + TAG292>
7280                     <DEAD VAL21>
7281                     <RETURN %<>>
7282 TAG292
7283                     <FRAME '\1aOCEMIT>
7284                     <PUSH 'PUSH>
7285                     <PUSH 'TP*>
7286                     <PUSH NAC24>
7287                     <CALL '\1aOCEMIT 3>
7288                     <FRAME '\1aOCEMIT>
7289                     <PUSH 'PUSH>
7290                     <PUSH 'TP*>
7291                     <FRAME '\1aNEXT-AC>
7292                     <PUSH NAC24>
7293                     <DEAD NAC24>
7294                     <CALL '\1aNEXT-AC 1 = STACK>
7295                     <CALL '\1aOCEMIT 3>
7296                     <GVAL 'WINNING-VICTIM = TEMP25>
7297                     <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE297>
7298                     <GVAL 'STACK-DEPTH = TEMP38>
7299                     <ADD TEMP38 2 = TEMP38 (TYPE FIX)>
7300                     <SETG 'STACK-DEPTH TEMP38>
7301                     <SET TEMP25 TEMP38>
7302                     <DEAD TEMP38>
7303 PHRASE297
7304                     <RETURN TEMP25>
7305                     <DEAD TEMP25>
7306                     <END \1aRESTUS!-MIMOC>\r\r
7307 #WORD *35103036523*
7308 <GFCN \1aRESTUB!-MIMOC ("VALUE" <OR FALSE FIX> ANY) L5>
7309                     <TEMP TEMP7>
7310                     <INTGO>
7311                     <FRAME '\1aRESTUS!-MIMOC>
7312                     <PUSH L5>
7313                     <DEAD L5>
7314                     <PUSH 'T>
7315                     <CALL '\1aRESTUS!-MIMOC 2 = TEMP7>
7316                     <RETURN TEMP7>
7317                     <DEAD TEMP7>
7318                     <END \1aRESTUB!-MIMOC>
7319 <SETG LENU!-MIMOC ,LENUV!-MIMOC>
7320
7321 <SETG LENUS!-MIMOC ,LENUV!-MIMOC>
7322
7323 <SETG LENUB!-MIMOC ,LENUV!-MIMOC>
7324
7325 <SETG LENUU!-MIMOC ,LENUV!-MIMOC>
7326
7327 <SETG EMPU?!-MIMOC ,EMPUV?!-MIMOC>
7328
7329 <SETG EMPUU?!-MIMOC ,EMPUV?!-MIMOC>
7330
7331 <SETG EMPUS?!-MIMOC ,EMPUV?!-MIMOC>
7332
7333 <SETG EMPUB?!-MIMOC ,EMPUV?!-MIMOC>
7334
7335 <SETG LENR!-MIMOC ,LENUV!-MIMOC>
7336
7337 #WORD *7127312635*
7338 <GFCN \1aEMPR?!-MIMOC ("VALUE" ATOM ANY) L5>
7339                     <TEMP>
7340                     <INTGO>
7341                     <RETURN 'T>
7342                     <END \1aEMPR?!-MIMOC>
7343 #WORD *31051077700*
7344 <GFCN \1aGVAL!-MIMOC ("VALUE" ANY LIST) L5>
7345                     <TEMP ATM6 TEMP12 VAL7:ATOM (XGL10 %<>) RATM11 TEMP20 TEMP21 TEMP22>
7346                     <INTGO>
7347                     <NTHL L5 1 = ATM6>
7348                     <RESTL L5 1 = TEMP12 (TYPE LIST)>
7349                     <DEAD L5>
7350                     <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
7351                     <NTHL TEMP12 1 = VAL7 (TYPE ATOM)>
7352                     <DEAD TEMP12>
7353                     <SET RATM11 ATM6>
7354                     <TYPE? ATM6 <TYPE-CODE FORM> - PHRASE14>
7355                     <RESTL ATM6 1 = TEMP12 (TYPE LIST)>
7356                     <NTHL TEMP12 1 = TEMP12 (TYPE ATOM)>
7357                     <CHTYPE TEMP12 <TYPE-CODE XGLOC> = XGL10>
7358                     <DEAD TEMP12>
7359                     <NTHL ATM6 1 = RATM11 (TYPE ATOM)>
7360 PHRASE14
7361                     <GVAL 'GVAL-CAREFUL = TEMP12>
7362                     <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE16>
7363                     <DEAD TEMP12>
7364                     <NTHR RATM11 3 = TEMP12 (RECORD-TYPE ATOM)>
7365                     <DEAD RATM11>
7366                     <IFCAN "STRING-EQUAL?">
7367                     <STRING-EQUAL? TEMP12 "M$$BINDID" + PHRASE16>
7368                     <ENDIF "STRING-EQUAL?">
7369                     <IFCANNOT "STRING-EQUAL?">
7370                     <SET RATM11 "M$$BINDID" (TYPE STRING)>
7371                     <LENUS TEMP12 = TEMP20 (TYPE FIX)>
7372                     <VEQUAL? TEMP20 9 - TAG18>
7373                     <LOOP (TEMP12 VALUE LENGTH) (RATM11 VALUE LENGTH) (TEMP20 VALUE)>
7374 TAG23
7375                     <NTHUS TEMP12 1 = TEMP21>
7376                     <NTHUS RATM11 1 = TEMP22>
7377                     <VEQUAL? TEMP21 TEMP22 - TAG18>
7378                     <DEAD TEMP21 TEMP22>
7379                     <RESTUS TEMP12 1 = TEMP12 (TYPE STRING)>
7380                     <RESTUS RATM11 1 = RATM11 (TYPE STRING)>
7381                     <SUB TEMP20 1 = TEMP20 (TYPE FIX)>
7382                     <GRTR? TEMP20 0 + TAG23 (TYPE FIX)>
7383                     <JUMP + PHRASE16>
7384                     <ENDIF "STRING-EQUAL?">
7385 TAG18
7386                     <VEQUAL? XGL10 0 + PHRASE25>
7387                     <FRAME '\1aSAVE-ACS>
7388                     <CALL '\1aSAVE-ACS 0>
7389                     <FRAME '\1aOCEMIT>
7390                     <PUSH 'SKIPN>
7391                     <PUSH '@>
7392                     <SET TEMP12 2 (TYPE FIX)>
7393                     <SFRAME 'OBJ-VAL>
7394                     <PUSH XGL10>
7395                     <SCALL '\1aOBJ-VAL 1 = RATM11 + TAG27 TEMP12>
7396                     <LOOP (RATM11 TYPE VALUE LENGTH) (TEMP12 VALUE)>
7397 TAG29
7398                     <INTGO>
7399                     <EMPTY? RATM11 + TAG27>
7400                     <NTH1 RATM11 = STACK>
7401                     <REST1 RATM11 = RATM11>
7402                     <ADD TEMP12 1 = TEMP12 (TYPE FIX)>
7403                     <JUMP + TAG29>
7404 TAG27
7405                     <CALL '\1aOCEMIT TEMP12>
7406                     <DEAD TEMP12>
7407                     <FRAME '\1aOCEMIT>
7408                     <PUSH 'GVERR>
7409                     <SET RATM11 1 (TYPE FIX)>
7410                     <SFRAME 'OBJ-VAL>
7411                     <PUSH XGL10>
7412                     <SCALL '\1aOBJ-VAL 1 = TEMP12 + TAG31 RATM11>
7413                     <LOOP (TEMP12 TYPE VALUE LENGTH) (RATM11 VALUE)>
7414 TAG33
7415                     <INTGO>
7416                     <EMPTY? TEMP12 + TAG31>
7417                     <NTH1 TEMP12 = STACK>
7418                     <REST1 TEMP12 = TEMP12>
7419                     <ADD RATM11 1 = RATM11 (TYPE FIX)>
7420                     <JUMP + TAG33>
7421 TAG31
7422                     <CALL '\1aOCEMIT RATM11>
7423                     <DEAD RATM11>
7424                     <FRAME '\1aOCEMIT>
7425                     <PUSH 'DMOVE>
7426                     <PUSH 'A1*>
7427                     <PUSH '@>
7428                     <SET TEMP12 3 (TYPE FIX)>
7429                     <SFRAME 'OBJ-VAL>
7430                     <PUSH XGL10>
7431                     <DEAD XGL10>
7432                     <SCALL '\1aOBJ-VAL 1 = RATM11 + TAG35 TEMP12>
7433                     <LOOP (RATM11 TYPE VALUE LENGTH) (TEMP12 VALUE)>
7434 TAG37
7435                     <INTGO>
7436                     <EMPTY? RATM11 + TAG35>
7437                     <NTH1 RATM11 = STACK>
7438                     <REST1 RATM11 = RATM11>
7439                     <ADD TEMP12 1 = TEMP12 (TYPE FIX)>
7440                     <JUMP + TAG37>
7441 TAG35
7442                     <CALL '\1aOCEMIT TEMP12>
7443                     <DEAD TEMP12>
7444                     <JUMP + PHRASE51>
7445 PHRASE25
7446                     <FRAME '\1aIN-AC?>
7447                     <PUSH ATM6>
7448                     <PUSH 'VALUE>
7449                     <CALL '\1aIN-AC? 2 = TEMP22>
7450                     <TYPE? TEMP22 <TYPE-CODE FALSE> + PHRASE39>
7451                     <EQUAL? VAL7 ATM6 + BOOL43>
7452                     <FRAME '\1aWILL-DIE?>
7453                     <PUSH ATM6>
7454                     <CALL '\1aWILL-DIE? 1 = TEMP12>
7455                     <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE42>
7456                     <DEAD TEMP12>
7457 BOOL43
7458                     <FRAME '\1aDEAD!-MIMOC>
7459                     <CONS ATM6 () = STACK>
7460                     <DEAD ATM6>
7461                     <PUSH 'T>
7462                     <CALL '\1aDEAD!-MIMOC 2>
7463 PHRASE42
7464                     <FRAME '\1aSAVE-ACS>
7465                     <CALL '\1aSAVE-ACS 0>
7466                     <FRAME '\1aOCEMIT>
7467                     <PUSH 'SKIPE>
7468                     <CONS TEMP22 () = STACK>
7469                     <CALL '\1aOCEMIT 2>
7470                     <FRAME '\1aOCEMIT>
7471                     <PUSH 'SKIPN>
7472                     <PUSH '@>
7473                     <CONS TEMP22 () = STACK>
7474                     <CALL '\1aOCEMIT 3>
7475                     <FRAME '\1aOCEMIT>
7476                     <PUSH 'GVERR>
7477                     <PUSH TEMP22>
7478                     <CALL '\1aOCEMIT 2>
7479                     <FRAME '\1aOCEMIT>
7480                     <PUSH 'DMOVE>
7481                     <PUSH 'A1*>
7482                     <PUSH '@>
7483                     <CONS TEMP22 () = STACK>
7484                     <DEAD TEMP22>
7485                     <CALL '\1aOCEMIT 4>
7486                     <JUMP + PHRASE51>
7487 PHRASE39
7488                     <FRAME '\1aSAVE-ACS>
7489                     <CALL '\1aSAVE-ACS 0>
7490                     <FRAME '\1aOCEMIT>
7491                     <PUSH 'SKIPE>
7492                     <PUSH 'T*>
7493                     <PUSH '@>
7494                     <SET RATM11 3 (TYPE FIX)>
7495                     <SFRAME 'OBJ-VAL>
7496                     <PUSH ATM6>
7497                     <SCALL '\1aOBJ-VAL 1 = TEMP12 + TAG53 RATM11>
7498                     <LOOP (TEMP12 TYPE VALUE LENGTH) (RATM11 VALUE)>
7499 TAG55
7500                     <INTGO>
7501                     <EMPTY? TEMP12 + TAG53>
7502                     <NTH1 TEMP12 = STACK>
7503                     <REST1 TEMP12 = TEMP12>
7504                     <ADD RATM11 1 = RATM11 (TYPE FIX)>
7505                     <JUMP + TAG55>
7506 TAG53
7507                     <CALL '\1aOCEMIT RATM11>
7508                     <DEAD RATM11>
7509                     <FRAME '\1aOCEMIT>
7510                     <PUSH 'SKIPN>
7511                     <PUSH (T*)>
7512                     <CALL '\1aOCEMIT 2>
7513                     <FRAME '\1aOCEMIT>
7514                     <PUSH 'GVERR>
7515                     <SET TEMP12 1 (TYPE FIX)>
7516                     <SFRAME 'OBJ-VAL>
7517                     <PUSH ATM6>
7518                     <DEAD ATM6>
7519                     <SCALL '\1aOBJ-VAL 1 = RATM11 + TAG58 TEMP12>
7520                     <LOOP (RATM11 TYPE VALUE LENGTH) (TEMP12 VALUE)>
7521 TAG60
7522                     <INTGO>
7523                     <EMPTY? RATM11 + TAG58>
7524                     <NTH1 RATM11 = STACK>
7525                     <REST1 RATM11 = RATM11>
7526                     <ADD TEMP12 1 = TEMP12 (TYPE FIX)>
7527                     <JUMP + TAG60>
7528 TAG58
7529                     <CALL '\1aOCEMIT TEMP12>
7530                     <DEAD TEMP12>
7531                     <FRAME '\1aOCEMIT>
7532                     <PUSH 'DMOVE>
7533                     <PUSH 'A1*>
7534                     <PUSH (T*)>
7535                     <CALL '\1aOCEMIT 3>
7536 PHRASE51
7537                     <FRAME '\1aPUSHJ-VAL>
7538                     <PUSH VAL7>
7539                     <DEAD VAL7>
7540                     <CALL '\1aPUSHJ-VAL 1 = TEMP12>
7541                     <RETURN TEMP12>
7542                     <DEAD TEMP12>
7543 PHRASE16
7544                     <VEQUAL? VAL7 'STACK - PHRASE64>
7545                     <VEQUAL? XGL10 0 + PHRASE66>
7546                     <GVAL 'BOOT-MODE = RATM11>
7547                     <TYPE? RATM11 <TYPE-CODE FALSE> - PHRASE66>
7548                     <DEAD RATM11>
7549                     <FRAME '\1aSMASH-AC>
7550                     <SET TEMP22 'T* (TYPE ATOM)>
7551                     <PUSH TEMP22>
7552                     <PUSH XGL10>
7553                     <PUSH 'VALUE>
7554                     <CALL '\1aSMASH-AC 3>
7555                     <JUMP + PHRASE70>
7556 PHRASE66
7557                     <FRAME '\1aIN-AC?>
7558                     <PUSH ATM6>
7559                     <PUSH 'VALUE>
7560                     <CALL '\1aIN-AC? 2 = TEMP22>
7561                     <TYPE? TEMP22 <TYPE-CODE FALSE> - PHRASE70>
7562                     <FRAME '\1aNEXT-AC>
7563                     <FRAME '\1aLOAD-AC>
7564                     <PUSH ATM6>
7565                     <DEAD ATM6>
7566                     <PUSH 'BOTH>
7567                     <CALL '\1aLOAD-AC 2 = STACK>
7568                     <CALL '\1aNEXT-AC 1 = TEMP22>
7569 PHRASE70
7570                     <GVAL 'BOOT-MODE = RATM11>
7571                     <TYPE? RATM11 <TYPE-CODE FALSE> - BOOL75>
7572                     <DEAD RATM11>
7573                     <TYPE? XGL10 <TYPE-CODE FALSE> - PHRASE74>
7574                     <DEAD XGL10>
7575 BOOL75
7576                     <FRAME '\1aOCEMIT>
7577                     <PUSH 'MOVE>
7578                     <PUSH 'T*>
7579                     <CONS TEMP22 () = STACK>
7580                     <DEAD TEMP22>
7581                     <CALL '\1aOCEMIT 3>
7582                     <FRAME '\1aMUNGED-AC>
7583                     <PUSH 'T*>
7584                     <CALL '\1aMUNGED-AC 1>
7585 PHRASE74
7586                     <FRAME '\1aOCEMIT>
7587                     <PUSH 'PUSH>
7588                     <PUSH 'TP*>
7589                     <PUSH (T*)>
7590                     <CALL '\1aOCEMIT 3>
7591                     <FRAME '\1aOCEMIT>
7592                     <PUSH 'PUSH>
7593                     <PUSH 'TP*>
7594                     <PUSH 1>
7595                     <PUSH (T*)>
7596                     <CALL '\1aOCEMIT 4>
7597                     <GVAL 'WINNING-VICTIM = TEMP12>
7598                     <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE95>
7599                     <GVAL 'STACK-DEPTH = RATM11>
7600                     <ADD RATM11 2 = RATM11 (TYPE FIX)>
7601                     <SETG 'STACK-DEPTH RATM11>
7602                     <RETURN RATM11>
7603                     <DEAD RATM11>
7604 PHRASE64
7605                     <GVAL 'BOOT-MODE = RATM11>
7606                     <TYPE? RATM11 <TYPE-CODE FALSE> + PHRASE84>
7607                     <DEAD RATM11>
7608                     <FRAME '\1aSMASH-AC>
7609                     <PUSH 'T*>
7610                     <PUSH ATM6>
7611                     <DEAD ATM6>
7612                     <PUSH 'VALUE>
7613                     <CALL '\1aSMASH-AC 3>
7614                     <FRAME '\1aASSIGN-AC>
7615                     <PUSH VAL7>
7616                     <DEAD VAL7>
7617                     <PUSH 'BOTH>
7618                     <CALL '\1aASSIGN-AC 2 = VAL7>
7619                     <FRAME '\1aOCEMIT>
7620                     <PUSH 'DMOVE>
7621                     <PUSH VAL7>
7622                     <DEAD VAL7>
7623                     <PUSH '@>
7624                     <PUSH (T*)>
7625                     <CALL '\1aOCEMIT 4>
7626                     <FRAME '\1aGET-AC>
7627                     <PUSH 'T*>
7628                     <CALL '\1aGET-AC 1 = RATM11>
7629                     <PUTUV RATM11 3 'DUMMY (TYPE ATOM)>
7630                     <RETURN RATM11>
7631                     <DEAD RATM11>
7632 PHRASE84
7633                     <VEQUAL? XGL10 0 + PHRASE89>
7634                     <FRAME '\1aASSIGN-AC>
7635                     <PUSH VAL7>
7636                     <DEAD VAL7>
7637                     <PUSH 'BOTH>
7638                     <CALL '\1aASSIGN-AC 2 = VAL7>
7639                     <FRAME '\1aOCEMIT>
7640                     <PUSH 'DMOVE>
7641                     <PUSH VAL7>
7642                     <DEAD VAL7>
7643                     <PUSH '@>
7644                     <SET TEMP22 3 (TYPE FIX)>
7645                     <SFRAME 'OBJ-VAL>
7646                     <PUSH XGL10>
7647                     <DEAD XGL10>
7648                     <SCALL '\1aOBJ-VAL 1 = RATM11 + TAG91 TEMP22>
7649                     <LOOP (RATM11 TYPE VALUE LENGTH) (TEMP22 VALUE)>
7650 TAG93
7651                     <INTGO>
7652                     <EMPTY? RATM11 + TAG91>
7653                     <NTH1 RATM11 = STACK>
7654                     <REST1 RATM11 = RATM11>
7655                     <ADD TEMP22 1 = TEMP22 (TYPE FIX)>
7656                     <JUMP + TAG93>
7657 TAG91
7658                     <CALL '\1aOCEMIT TEMP22 = TEMP12>
7659                     <DEAD TEMP22>
7660                     <RETURN TEMP12>
7661                     <DEAD TEMP12>
7662 PHRASE89
7663                     <FRAME '\1aIN-AC?>
7664                     <PUSH ATM6>
7665                     <PUSH 'VALUE>
7666                     <CALL '\1aIN-AC? 2 = TEMP22>
7667                     <TYPE? TEMP22 <TYPE-CODE FALSE> - BOOL96>
7668                     <FRAME '\1aNEXT-AC>
7669                     <FRAME '\1aLOAD-AC>
7670                     <PUSH ATM6>
7671                     <DEAD ATM6>
7672                     <PUSH 'BOTH>
7673                     <CALL '\1aLOAD-AC 2 = STACK>
7674                     <CALL '\1aNEXT-AC 1 = TEMP22>
7675 BOOL96
7676                     <FRAME '\1aASSIGN-AC>
7677                     <PUSH VAL7>
7678                     <DEAD VAL7>
7679                     <PUSH 'BOTH>
7680                     <CALL '\1aASSIGN-AC 2 = VAL7>
7681                     <FRAME '\1aOCEMIT>
7682                     <PUSH 'DMOVE>
7683                     <PUSH VAL7>
7684                     <DEAD VAL7>
7685                     <PUSH '@>
7686                     <CONS TEMP22 () = STACK>
7687                     <DEAD TEMP22>
7688                     <CALL '\1aOCEMIT 4 = TEMP12>
7689 PHRASE95
7690                     <RETURN TEMP12>
7691                     <DEAD TEMP12>
7692                     <END \1aGVAL!-MIMOC>\r\r
7693 #WORD *20277270537*
7694 <GFCN \1aSETG!-MIMOC ("VALUE" ANY LIST) L5>
7695                     <TEMP ATM6:FORM TEMP9 AC8>
7696                     <INTGO>
7697                     <NTHL L5 1 = ATM6 (TYPE FORM)>
7698                     <RESTL L5 1 = TEMP9 (TYPE LIST)>
7699                     <DEAD L5>
7700                     <NTHL TEMP9 1 = TEMP9>
7701                     <FRAME '\1aLOAD-AC>
7702                     <PUSH TEMP9>
7703                     <DEAD TEMP9>
7704                     <PUSH 'BOTH>
7705                     <CALL '\1aLOAD-AC 2 = AC8>
7706                     <GVAL 'BOOT-MODE = TEMP9>
7707                     <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE12>
7708                     <DEAD TEMP9>
7709                     <FRAME '\1aSMASH-AC>
7710                     <PUSH 'T*>
7711                     <PUSH ATM6>
7712                     <DEAD ATM6>
7713                     <PUSH 'VALUE>
7714                     <CALL '\1aSMASH-AC 3>
7715                     <FRAME '\1aOCEMIT>
7716                     <PUSH 'DMOVEM>
7717                     <PUSH AC8>
7718                     <DEAD AC8>
7719                     <PUSH '@>
7720                     <PUSH (T*)>
7721                     <CALL '\1aOCEMIT 4>
7722                     <FRAME '\1aGET-AC>
7723                     <PUSH 'T*>
7724                     <CALL '\1aGET-AC 1 = TEMP9>
7725                     <PUTUV TEMP9 3 'DUMMY (TYPE ATOM)>
7726                     <RETURN TEMP9>
7727                     <DEAD TEMP9>
7728 PHRASE12
7729                     <FRAME '\1aOCEMIT>
7730                     <PUSH 'DMOVEM>
7731                     <PUSH AC8>
7732                     <DEAD AC8>
7733                     <PUSH '@>
7734                     <SET AC8 3 (TYPE FIX)>
7735                     <SFRAME 'OBJ-VAL>
7736                     <RESTL ATM6 1 = TEMP9 (TYPE LIST)>
7737                     <DEAD ATM6>
7738                     <NTHL TEMP9 1 = TEMP9 (TYPE ATOM)>
7739                     <CHTYPE TEMP9 <TYPE-CODE XGLOC> = STACK>
7740                     <DEAD TEMP9>
7741                     <SCALL '\1aOBJ-VAL 1 = TEMP9 + TAG17 AC8>
7742                     <LOOP (TEMP9 TYPE VALUE LENGTH) (AC8 VALUE)>
7743 TAG22
7744                     <INTGO>
7745                     <EMPTY? TEMP9 + TAG17>
7746                     <NTH1 TEMP9 = STACK>
7747                     <REST1 TEMP9 = TEMP9>
7748                     <ADD AC8 1 = AC8 (TYPE FIX)>
7749                     <JUMP + TAG22>
7750 TAG17
7751                     <CALL '\1aOCEMIT AC8 = TEMP9>
7752                     <DEAD AC8>
7753                     <RETURN TEMP9>
7754                     <DEAD TEMP9>
7755                     <END \1aSETG!-MIMOC>
7756 <GDECL (NTHR-TABLE PUTR-TABLE) <VECTOR [REST ATOM]>>
7757
7758 <SETG NTHR-TABLE '[LBIND LBIND-NTH LBIND LBIND-NTH GBIND LBIND-NTH GBIND LBIND-NTH ATOM ATOM-NTH ATOM ATOM-NTH LVAL ATOM-NTH GVAL ATOM-NTH OBLIST ATOM-NTH OBLIST ATOM-NTH FRAME FRAME-NTH FRAME FRAME-NTH]>
7759
7760 <SETG PUTR-TABLE '[LBIND LBIND-PUT LBIND LBIND-PUT GBIND LBIND-PUT GBIND LBIND-PUT ATOM ATOM-PUT ATOM ATOM-PUT LVAL ATOM-PUT GVAL ATOM-PUT OBLIST ATOM-PUT OBLIST ATOM-PUT FRAME FRAME-PUT FRAME FRAME-PUT]>
7761
7762 #WORD *31132147264*
7763 <GFCN \1aFRAME-PUT ("VALUE" ANY LIST) L5>
7764                     <TEMP ARG16 TEMP11 ARG27 TEMP20>
7765                     <INTGO>
7766                     <NTHL L5 1 = ARG16>
7767                     <RESTL L5 1 = TEMP11 (TYPE LIST)>
7768                     <NTHL TEMP11 1 = ARG27>
7769                     <DEAD TEMP11>
7770                     <RESTL L5 1 = TEMP11 (TYPE LIST)>
7771                     <RESTL TEMP11 1 = TEMP11 (TYPE LIST)>
7772                     <NTHL TEMP11 1 = TEMP11>
7773                     <EQUAL? ARG27 1 + PHRASE13>
7774                     <DEAD ARG27>
7775                     <FRAME '\1aPUTR!-MIMOC>
7776                     <PUSH L5>
7777                     <DEAD L5>
7778                     <PUSH 'T>
7779                     <CALL '\1aPUTR!-MIMOC 2 = TEMP11>
7780                     <RETURN TEMP11>
7781                     <DEAD TEMP11>
7782 PHRASE13
7783                     <FRAME '\1aIN-AC?>
7784                     <PUSH ARG16>
7785                     <PUSH 'VALUE>
7786                     <CALL '\1aIN-AC? 2 = ARG27>
7787                     <TYPE? ARG27 <TYPE-CODE FALSE> - PHRASE23>
7788                     <FRAME '\1aWILL-DIE?>
7789                     <PUSH ARG16>
7790                     <CALL '\1aWILL-DIE? 1 = TEMP20>
7791                     <TYPE? TEMP20 <TYPE-CODE FALSE> - PHRASE18>
7792                     <DEAD TEMP20>
7793                     <FRAME '\1aNEXT-AC>
7794                     <FRAME '\1aLOAD-AC>
7795                     <PUSH ARG16>
7796                     <DEAD ARG16>
7797                     <PUSH 'BOTH>
7798                     <CALL '\1aLOAD-AC 2 = STACK>
7799                     <CALL '\1aNEXT-AC 1 = ARG27>
7800                     <JUMP + PHRASE23>
7801 PHRASE18
7802                     <FRAME '\1aSMASH-AC>
7803                     <PUSH 'T*>
7804                     <PUSH ARG16>
7805                     <DEAD ARG16>
7806                     <PUSH 'VALUE>
7807                     <CALL '\1aSMASH-AC 3 = ARG27>
7808 PHRASE23
7809                     <FRAME '\1aIN-AC?>
7810                     <PUSH TEMP11>
7811                     <PUSH 'VALUE>
7812                     <CALL '\1aIN-AC? 2 = ARG16>
7813                     <TYPE? ARG16 <TYPE-CODE FALSE> - PHRASE31>
7814                     <FRAME '\1aWILL-DIE?>
7815                     <PUSH TEMP11>
7816                     <CALL '\1aWILL-DIE? 1 = TEMP20>
7817                     <TYPE? TEMP20 <TYPE-CODE FALSE> - BOOL28>
7818                     <DEAD TEMP20>
7819                     <TYPE? TEMP11 <TYPE-CODE ATOM> + PHRASE27>
7820 BOOL28
7821                     <FRAME '\1aSMASH-AC>
7822                     <PUSH 'O*>
7823                     <PUSH TEMP11>
7824                     <DEAD TEMP11>
7825                     <PUSH 'VALUE>
7826                     <CALL '\1aSMASH-AC 3 = ARG16>
7827                     <JUMP + PHRASE31>
7828 PHRASE27
7829                     <SETG 'FIRST-AC %<>>
7830                     <FRAME '\1aGET-AC>
7831                     <PUSH ARG27>
7832                     <CALL '\1aGET-AC 1 = TEMP20>
7833                     <GVAL 'AC-STAMP = ARG16>
7834                     <ADD ARG16 1 = ARG16 (TYPE FIX)>
7835                     <SETG 'AC-STAMP ARG16>
7836                     <PUTUV TEMP20 4 ARG16 (TYPE FIX)>
7837                     <DEAD TEMP20 ARG16>
7838                     <FRAME '\1aNEXT-AC>
7839                     <FRAME '\1aLOAD-AC>
7840                     <PUSH TEMP11>
7841                     <DEAD TEMP11>
7842                     <PUSH 'BOTH>
7843                     <CALL '\1aLOAD-AC 2 = STACK>
7844                     <CALL '\1aNEXT-AC 1 = ARG16>
7845 PHRASE31
7846                     <FRAME '\1aOCEMIT>
7847                     <PUSH 'MOVEM>
7848                     <PUSH ARG16>
7849                     <DEAD ARG16>
7850                     <PUSH 0>
7851                     <CONS ARG27 () = STACK>
7852                     <CALL '\1aOCEMIT 4>
7853                     <EQUAL? ARG27 'T* + TAG39>
7854                     <DEAD ARG27>
7855                     <RETURN %<>>
7856 TAG39
7857                     <FRAME '\1aGET-AC>
7858                     <PUSH 'T*>
7859                     <CALL '\1aGET-AC 1 = TEMP20>
7860                     <PUTUV TEMP20 3 'DUMMY (TYPE ATOM)>
7861                     <RETURN TEMP20>
7862                     <DEAD TEMP20>
7863                     <END \1aFRAME-PUT>
7864 #WORD *15052434156*
7865 <GFCN \1aFRAME-NTH ("VALUE" ANY LIST) L5>
7866                     <TEMP ARG16 TEMP12 ARG27:FIX VAL8:ATOM XAC11>
7867                     <INTGO>
7868                     <NTHL L5 1 = ARG16>
7869                     <RESTL L5 1 = TEMP12 (TYPE LIST)>
7870                     <NTHL TEMP12 1 = ARG27 (TYPE FIX)>
7871                     <DEAD TEMP12>
7872                     <RESTL L5 1 = TEMP12 (TYPE LIST)>
7873                     <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
7874                     <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
7875                     <NTHL TEMP12 1 = VAL8 (TYPE ATOM)>
7876                     <DEAD TEMP12>
7877                     <VEQUAL? ARG27 1 + PHRASE14 (TYPE FIX)>
7878                     <VEQUAL? ARG27 5 + PHRASE14 (TYPE FIX)>
7879                     <VEQUAL? ARG27 7 + PHRASE14 (TYPE FIX)>
7880                     <FRAME '\1aNTHR!-MIMOC>
7881                     <PUSH L5>
7882                     <DEAD L5>
7883                     <PUSH 'T>
7884                     <CALL '\1aNTHR!-MIMOC 2 = TEMP12>
7885                     <RETURN TEMP12>
7886                     <DEAD TEMP12>
7887 PHRASE14
7888                     <FRAME '\1aIN-AC?>
7889                     <PUSH ARG16>
7890                     <PUSH 'VALUE>
7891                     <CALL '\1aIN-AC? 2 = XAC11>
7892                     <TYPE? XAC11 <TYPE-CODE FALSE> + PHRASE21>
7893                     <VEQUAL? XAC11 'O* + PHRASE21>
7894                     <FRAME '\1aGET-AC>
7895                     <PUSH XAC11>
7896                     <CALL '\1aGET-AC 1 = ARG16>
7897                     <GVAL 'AC-STAMP = TEMP12>
7898                     <ADD TEMP12 1 = TEMP12 (TYPE FIX)>
7899                     <SETG 'AC-STAMP TEMP12>
7900                     <PUTUV ARG16 4 TEMP12 (TYPE FIX)>
7901                     <DEAD ARG16 TEMP12>
7902                     <SETG 'FIRST-AC %<>>
7903                     <SET ARG16 XAC11>
7904                     <DEAD XAC11>
7905                     <JUMP + PHRASE31>
7906 PHRASE21
7907                     <FRAME '\1aWILL-DIE?>
7908                     <PUSH ARG16>
7909                     <CALL '\1aWILL-DIE? 1 = TEMP12>
7910                     <TYPE? TEMP12 <TYPE-CODE FALSE> - PHRASE27>
7911                     <DEAD TEMP12>
7912                     <FRAME '\1aNEXT-AC>
7913                     <FRAME '\1aLOAD-AC>
7914                     <PUSH ARG16>
7915                     <DEAD ARG16>
7916                     <PUSH 'BOTH>
7917                     <CALL '\1aLOAD-AC 2 = STACK>
7918                     <CALL '\1aNEXT-AC 1 = ARG16>
7919                     <JUMP + PHRASE31>
7920 PHRASE27
7921                     <FRAME '\1aSMASH-AC>
7922                     <PUSH 'T*>
7923                     <PUSH ARG16>
7924                     <DEAD ARG16>
7925                     <PUSH 'VALUE>
7926                     <CALL '\1aSMASH-AC 3 = ARG16>
7927 PHRASE31
7928                     <SET TEMP12 ARG16>
7929                     <DEAD ARG16>
7930                     <FRAME '\1aASSIGN-AC>
7931                     <PUSH VAL8>
7932                     <PUSH 'BOTH>
7933                     <PUSH 'T>
7934                     <CALL '\1aASSIGN-AC 3 = XAC11>
7935                     <VEQUAL? ARG27 1 - PHRASE35 (TYPE FIX)>
7936                     <FRAME '\1aGET-AC>
7937                     <PUSH XAC11>
7938                     <CALL '\1aGET-AC 1 = ARG16>
7939                     <PUTUV ARG16 6 'MSUBR>
7940                     <DEAD ARG16>
7941                     <FRAME '\1aOCEMIT>
7942                     <PUSH 'MOVE>
7943                     <FRAME '\1aNEXT-AC>
7944                     <PUSH XAC11>
7945                     <CALL '\1aNEXT-AC 1 = STACK>
7946                     <PUSH 0>
7947                     <CONS TEMP12 () = STACK>
7948                     <CALL '\1aOCEMIT 4>
7949                     <JUMP + PHRASE49>
7950 PHRASE35
7951                     <VEQUAL? ARG27 5 - PHRASE41 (TYPE FIX)>
7952                     <DEAD ARG27>
7953                     <FRAME '\1aGET-AC>
7954                     <PUSH XAC11>
7955                     <CALL '\1aGET-AC 1 = ARG16>
7956                     <PUTUV ARG16 6 'FRAME>
7957                     <DEAD ARG16>
7958                     <FRAME '\1aOCEMIT>
7959                     <PUSH 'MOVE>
7960                     <FRAME '\1aNEXT-AC>
7961                     <PUSH XAC11>
7962                     <CALL '\1aNEXT-AC 1 = STACK>
7963                     <PUSH 3>
7964                     <CONS TEMP12 () = STACK>
7965                     <CALL '\1aOCEMIT 4>
7966                     <FRAME '\1aOCEMIT>
7967                     <PUSH 'SKIPL>
7968                     <FRAME '\1aNEXT-AC>
7969                     <PUSH XAC11>
7970                     <CALL '\1aNEXT-AC 1 = ARG16>
7971                     <CONS ARG16 () = STACK>
7972                     <DEAD ARG16>
7973                     <CALL '\1aOCEMIT 2>
7974                     <FRAME '\1aOCEMIT>
7975                     <PUSH 'ADDI>
7976                     <FRAME '\1aNEXT-AC>
7977                     <PUSH XAC11>
7978                     <CALL '\1aNEXT-AC 1 = STACK>
7979                     <PUSH 4>
7980                     <CALL '\1aOCEMIT 3>
7981                     <JUMP + PHRASE49>
7982 PHRASE41
7983                     <FRAME '\1aGET-AC>
7984                     <PUSH XAC11>
7985                     <CALL '\1aGET-AC 1 = ARG16>
7986                     <PUTUV ARG16 6 'LBIND>
7987                     <DEAD ARG16>
7988                     <FRAME '\1aOCEMIT>
7989                     <PUSH 'HRRZ>
7990                     <FRAME '\1aNEXT-AC>
7991                     <PUSH XAC11>
7992                     <CALL '\1aNEXT-AC 1 = STACK>
7993                     <PUSH 4>
7994                     <CONS TEMP12 () = STACK>
7995                     <CALL '\1aOCEMIT 4>
7996                     <FRAME '\1aOCEMIT>
7997                     <PUSH 'HLLI>
7998                     <FRAME '\1aNEXT-AC>
7999                     <PUSH XAC11>
8000                     <CALL '\1aNEXT-AC 1 = STACK>
8001                     <CONS TEMP12 () = STACK>
8002                     <CALL '\1aOCEMIT 3>
8003 PHRASE49
8004                     <VEQUAL? TEMP12 'T* - PHRASE56>
8005                     <DEAD TEMP12>
8006                     <FRAME '\1aGET-AC>
8007                     <PUSH 'T*>
8008                     <CALL '\1aGET-AC 1 = ARG16>
8009                     <PUTUV ARG16 3 'DUMMY (TYPE ATOM)>
8010                     <DEAD ARG16>
8011 PHRASE56
8012                     <VEQUAL? VAL8 'STACK + TAG60>
8013                     <DEAD VAL8>
8014                     <RETURN %<>>
8015 TAG60
8016                     <FRAME '\1aOCEMIT>
8017                     <PUSH 'PUSH>
8018                     <PUSH 'TP*>
8019                     <SET TEMP12 2 (TYPE FIX)>
8020                     <SFRAME 'TYPE-WORD>
8021                     <FRAME '\1aGET-AC>
8022                     <PUSH XAC11>
8023                     <CALL '\1aGET-AC 1 = ARG16>
8024                     <NTHUV ARG16 6 = STACK>
8025                     <DEAD ARG16>
8026                     <SCALL '\1aTYPE-WORD 1 = ARG16 + TAG61 TEMP12>
8027                     <LOOP (ARG16 TYPE VALUE LENGTH) (TEMP12 VALUE)>
8028 TAG65
8029                     <INTGO>
8030                     <EMPTY? ARG16 + TAG61>
8031                     <NTH1 ARG16 = STACK>
8032                     <REST1 ARG16 = ARG16>
8033                     <ADD TEMP12 1 = TEMP12 (TYPE FIX)>
8034                     <JUMP + TAG65>
8035 TAG61
8036                     <CALL '\1aOCEMIT TEMP12>
8037                     <DEAD TEMP12>
8038                     <FRAME '\1aOCEMIT>
8039                     <PUSH 'PUSH>
8040                     <PUSH 'TP*>
8041                     <FRAME '\1aNEXT-AC>
8042                     <PUSH XAC11>
8043                     <DEAD XAC11>
8044                     <CALL '\1aNEXT-AC 1 = STACK>
8045                     <CALL '\1aOCEMIT 3>
8046                     <GVAL 'WINNING-VICTIM = TEMP12>
8047                     <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE70>
8048                     <GVAL 'STACK-DEPTH = TEMP12>
8049                     <ADD TEMP12 2 = TEMP12 (TYPE FIX)>
8050                     <SETG 'STACK-DEPTH TEMP12>
8051 PHRASE70
8052                     <RETURN TEMP12>
8053                     <DEAD TEMP12>
8054                     <END \1aFRAME-NTH>\r\r
8055 #WORD *10502555040*
8056 <GFCN \1aLBIND-NTH ("VALUE" ANY LIST) L5>
8057                     <TEMP ARG16 TEMP13 ARG27:FIX VAL8:ATOM XAC11 TEMP26 AC9:ATOM>
8058                     <INTGO>
8059                     <NTHL L5 1 = ARG16>
8060                     <RESTL L5 1 = TEMP13 (TYPE LIST)>
8061                     <NTHL TEMP13 1 = ARG27 (TYPE FIX)>
8062                     <DEAD TEMP13>
8063                     <RESTL L5 1 = TEMP13 (TYPE LIST)>
8064                     <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
8065                     <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
8066                     <NTHL TEMP13 1 = VAL8 (TYPE ATOM)>
8067                     <DEAD TEMP13>
8068                     <GRTR? ARG27 6 + BOOL16 (TYPE FIX)>
8069                     <LESS? ARG27 1 - PHRASE15 (TYPE FIX)>
8070 BOOL16
8071                     <FRAME '\1aMIMOCERR>
8072                     <PUSH 'OUT-OF-BOUNDS!-ERRORS>
8073                     <PUSH 'NTHR>
8074                     <PUSH 'LBIND>
8075                     <PUSH ARG27>
8076                     <DEAD ARG27>
8077                     <CALL '\1aMIMOCERR 4 = TEMP13>
8078                     <RETURN TEMP13>
8079                     <DEAD TEMP13>
8080 PHRASE15
8081                     <FRAME '\1aIN-AC?>
8082                     <PUSH ARG16>
8083                     <PUSH 'VALUE>
8084                     <CALL '\1aIN-AC? 2 = XAC11>
8085                     <TYPE? XAC11 <TYPE-CODE FALSE> + PHRASE22>
8086                     <VEQUAL? XAC11 'O* + PHRASE22>
8087                     <FRAME '\1aGET-AC>
8088                     <PUSH XAC11>
8089                     <CALL '\1aGET-AC 1 = TEMP26>
8090                     <GVAL 'AC-STAMP = TEMP13>
8091                     <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
8092                     <SETG 'AC-STAMP TEMP13>
8093                     <PUTUV TEMP26 4 TEMP13 (TYPE FIX)>
8094                     <DEAD TEMP26 TEMP13>
8095                     <SETG 'FIRST-AC %<>>
8096                     <JUMP + PHRASE36>
8097 PHRASE22
8098                     <VEQUAL? ARG27 1 - PHRASE28 (TYPE FIX)>
8099                     <VEQUAL? VAL8 'STACK + PHRASE28>
8100                     <SET XAC11 %<> (TYPE FALSE)>
8101                     <JUMP + PHRASE36>
8102 PHRASE28
8103                     <FRAME '\1aWILL-DIE?>
8104                     <PUSH ARG16>
8105                     <CALL '\1aWILL-DIE? 1 = TEMP26>
8106                     <TYPE? TEMP26 <TYPE-CODE FALSE> - PHRASE32>
8107                     <DEAD TEMP26>
8108                     <FRAME '\1aNEXT-AC>
8109                     <FRAME '\1aLOAD-AC>
8110                     <PUSH ARG16>
8111                     <PUSH 'BOTH>
8112                     <CALL '\1aLOAD-AC 2 = STACK>
8113                     <CALL '\1aNEXT-AC 1 = XAC11>
8114                     <JUMP + PHRASE36>
8115 PHRASE32
8116                     <FRAME '\1aSMASH-AC>
8117                     <PUSH 'T*>
8118                     <PUSH ARG16>
8119                     <PUSH 'VALUE>
8120                     <CALL '\1aSMASH-AC 3>
8121                     <FRAME '\1aFLUSH-AC>
8122                     <PUSH 'T*>
8123                     <CALL '\1aFLUSH-AC 1>
8124                     <FRAME '\1aMUNGED-AC>
8125                     <PUSH 'T*>
8126                     <CALL '\1aMUNGED-AC 1>
8127                     <SET XAC11 'T* (TYPE ATOM)>
8128 PHRASE36
8129                     <VEQUAL? VAL8 'STACK + PHRASE44>
8130                     <FRAME '\1aASSIGN-AC>
8131                     <PUSH VAL8>
8132                     <PUSH 'BOTH>
8133                     <PUSH 'T>
8134                     <CALL '\1aASSIGN-AC 3 = AC9>
8135                     <FRAME '\1aNEXT-AC>
8136                     <PUSH AC9>
8137                     <CALL '\1aNEXT-AC 1 = TEMP26>
8138                     <EQUAL? TEMP26 XAC11 - PHRASE44>
8139                     <DEAD TEMP26>
8140                     <EQUAL? VAL8 ARG16 - PHRASE44>
8141                     <FRAME '\1aGET-AC>
8142                     <PUSH AC9>
8143                     <CALL '\1aGET-AC 1 = TEMP26>
8144                     <PUTUV TEMP26 6 %<>>
8145                     <DEAD TEMP26>
8146 PHRASE44
8147                     <VEQUAL? ARG27 1 - PHRASE49 (TYPE FIX)>
8148                     <VEQUAL? VAL8 'STACK - PHRASE53>
8149                     <DEAD VAL8>
8150                     <FRAME '\1aOCEMIT>
8151                     <PUSH 'PUSH>
8152                     <PUSH 'TP*>
8153                     <CONS XAC11 () = STACK>
8154                     <CALL '\1aOCEMIT 3>
8155                     <FRAME '\1aOCEMIT>
8156                     <PUSH 'PUSH>
8157                     <PUSH 'TP*>
8158                     <PUSH 1>
8159                     <CONS XAC11 () = STACK>
8160                     <DEAD XAC11>
8161                     <CALL '\1aOCEMIT 4>
8162                     <GVAL 'WINNING-VICTIM = TEMP13>
8163                     <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE60>
8164                     <GVAL 'STACK-DEPTH = TEMP13>
8165                     <ADD TEMP13 2 = TEMP13 (TYPE FIX)>
8166                     <SETG 'STACK-DEPTH TEMP13>
8167                     <RETURN TEMP13>
8168                     <DEAD TEMP13>
8169 PHRASE53
8170                     <TYPE? XAC11 <TYPE-CODE FALSE> + PHRASE58>
8171                     <FRAME '\1aOCEMIT>
8172                     <PUSH 'DMOVE>
8173                     <PUSH AC9>
8174                     <DEAD AC9>
8175                     <CONS XAC11 () = STACK>
8176                     <DEAD XAC11>
8177                     <CALL '\1aOCEMIT 3 = TEMP13>
8178                     <RETURN TEMP13>
8179                     <DEAD TEMP13>
8180 PHRASE58
8181                     <FRAME '\1aOCEMIT>
8182                     <PUSH 'DMOVE>
8183                     <PUSH AC9>
8184                     <DEAD AC9>
8185                     <PUSH '@>
8186                     <SET TEMP26 3 (TYPE FIX)>
8187                     <SFRAME 'OBJ-VAL>
8188                     <PUSH ARG16>
8189                     <DEAD ARG16>
8190                     <SCALL '\1aOBJ-VAL 1 = TEMP13 + TAG61 TEMP26>
8191                     <LOOP (TEMP13 TYPE VALUE LENGTH) (TEMP26 VALUE)>
8192 TAG63
8193                     <INTGO>
8194                     <EMPTY? TEMP13 + TAG61>
8195                     <NTH1 TEMP13 = STACK>
8196                     <REST1 TEMP13 = TEMP13>
8197                     <ADD TEMP26 1 = TEMP26 (TYPE FIX)>
8198                     <JUMP + TAG63>
8199 TAG61
8200                     <CALL '\1aOCEMIT TEMP26 = TEMP13>
8201                     <DEAD TEMP26>
8202 PHRASE60
8203                     <RETURN TEMP13>
8204                     <DEAD TEMP13>
8205 PHRASE49
8206                     <VEQUAL? ARG27 3 - PHRASE65 (TYPE FIX)>
8207                     <VEQUAL? VAL8 'STACK - PHRASE67>
8208                     <DEAD VAL8>
8209                     <FRAME '\1aOCEMIT>
8210                     <PUSH 'PUSH>
8211                     <PUSH 'TP*>
8212                     <PUSH 3>
8213                     <CONS XAC11 () = STACK>
8214                     <CALL '\1aOCEMIT 4>
8215                     <FRAME '\1aOCEMIT>
8216                     <PUSH 'PUSH>
8217                     <PUSH 'TP*>
8218                     <PUSH 4>
8219                     <CONS XAC11 () = STACK>
8220                     <DEAD XAC11>
8221                     <CALL '\1aOCEMIT 4>
8222                     <GVAL 'WINNING-VICTIM = TEMP13>
8223                     <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE72>
8224                     <GVAL 'STACK-DEPTH = TEMP26>
8225                     <ADD TEMP26 2 = TEMP26 (TYPE FIX)>
8226                     <SETG 'STACK-DEPTH TEMP26>
8227                     <RETURN TEMP26>
8228                     <DEAD TEMP26>
8229 PHRASE67
8230                     <FRAME '\1aOCEMIT>
8231                     <PUSH 'DMOVE>
8232                     <PUSH AC9>
8233                     <DEAD AC9>
8234                     <PUSH 3>
8235                     <CONS XAC11 () = STACK>
8236                     <DEAD XAC11>
8237                     <CALL '\1aOCEMIT 4 = TEMP13>
8238 PHRASE72
8239                     <RETURN TEMP13>
8240                     <DEAD TEMP13>
8241 PHRASE65
8242                     <SET TEMP26 [2 6] (TYPE VECTOR)>
8243                     <LOOP (ARG27 VALUE) (TEMP26 LENGTH VALUE)>
8244 TAG76
8245                     <NTHUV TEMP26 1 = TEMP13>
8246                     <VEQUAL? TEMP13 ARG27 + TAG75>
8247                     <DEAD TEMP13>
8248                     <RESTUV TEMP26 1 = TEMP26 (TYPE VECTOR)>
8249                     <EMPUV? TEMP26 - TAG76>
8250                     <JUMP + PHRASE74>
8251 TAG75
8252                     <VEQUAL? VAL8 'STACK - PHRASE79>
8253                     <DEAD VAL8>
8254                     <FRAME '\1aOCEMIT>
8255                     <PUSH 'PUSH>
8256                     <PUSH 'TP*>
8257                     <SET TEMP13 2 (TYPE FIX)>
8258                     <SFRAME 'TYPE-WORD>
8259                     <NTHUV [%<> ATOM %<> %<> %<> FIX] ARG27 = STACK>
8260                     <SCALL '\1aTYPE-WORD 1 = TEMP26 + TAG80 TEMP13>
8261                     <LOOP (TEMP26 TYPE VALUE LENGTH) (TEMP13 VALUE)>
8262 TAG82
8263                     <INTGO>
8264                     <EMPTY? TEMP26 + TAG80>
8265                     <NTH1 TEMP26 = STACK>
8266                     <REST1 TEMP26 = TEMP26>
8267                     <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
8268                     <JUMP + TAG82>
8269 TAG80
8270                     <CALL '\1aOCEMIT TEMP13>
8271                     <DEAD TEMP13>
8272                     <FRAME '\1aOCEMIT>
8273                     <PUSH 'PUSH>
8274                     <PUSH 'TP*>
8275                     <NTHUV [%<> 2 %<> %<> %<> 7] ARG27 = STACK>
8276                     <DEAD ARG27>
8277                     <CONS XAC11 () = STACK>
8278                     <DEAD XAC11>
8279                     <CALL '\1aOCEMIT 4>
8280                     <GVAL 'WINNING-VICTIM = TEMP13>
8281                     <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE87>
8282                     <GVAL 'STACK-DEPTH = TEMP13>
8283                     <ADD TEMP13 2 = TEMP13 (TYPE FIX)>
8284                     <SETG 'STACK-DEPTH TEMP13>
8285                     <RETURN TEMP13>
8286                     <DEAD TEMP13>
8287 PHRASE79
8288                     <FRAME '\1aGET-AC>
8289                     <PUSH AC9>
8290                     <CALL '\1aGET-AC 1 = TEMP13>
8291                     <NTHUV [%<> ATOM %<> %<> %<> FIX] ARG27 = TEMP26>
8292                     <PUTUV TEMP13 6 TEMP26>
8293                     <DEAD TEMP13 TEMP26>
8294                     <FRAME '\1aOCEMIT>
8295                     <PUSH 'MOVE>
8296                     <FRAME '\1aNEXT-AC>
8297                     <PUSH AC9>
8298                     <DEAD AC9>
8299                     <CALL '\1aNEXT-AC 1 = STACK>
8300                     <NTHUV [%<> 2 %<> %<> %<> 7] ARG27 = STACK>
8301                     <DEAD ARG27>
8302                     <CONS XAC11 () = STACK>
8303                     <DEAD XAC11>
8304                     <CALL '\1aOCEMIT 4 = TEMP13>
8305 PHRASE87
8306                     <RETURN TEMP13>
8307                     <DEAD TEMP13>
8308 PHRASE74
8309                     <VEQUAL? VAL8 'STACK - PHRASE93>
8310                     <FRAME '\1aASSIGN-AC>
8311                     <PUSH VAL8>
8312                     <PUSH 'BOTH>
8313                     <PUSH 'T>
8314                     <CALL '\1aASSIGN-AC 3 = AC9>
8315 PHRASE93
8316                     <FRAME '\1aEXTRAMEM>
8317                     <PUSH 'BRANCH-FALSE>
8318                     <PUSH L5>
8319                     <DEAD L5>
8320                     <CALL '\1aEXTRAMEM 2 = ARG16>
8321                     <TYPE? ARG16 <TYPE-CODE FALSE> + PHRASE96>
8322                     <FRAME '\1aLABEL-UPDATE-ACS>
8323                     <RESTL ARG16 1 = TEMP13 (TYPE LIST)>
8324                     <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
8325                     <NTHL TEMP13 1 = STACK (TYPE ATOM)>
8326                     <DEAD TEMP13>
8327                     <PUSH %<>>
8328                     <CALL '\1aLABEL-UPDATE-ACS 2>
8329 PHRASE96
8330                     <FRAME '\1aOCEMIT>
8331                     <PUSH 'MOVE>
8332                     <PUSH AC9>
8333                     <SET TEMP26 2 (TYPE FIX)>
8334                     <SFRAME 'TYPE-WORD>
8335                     <PUSH 'LBIND>
8336                     <SCALL '\1aTYPE-WORD 1 = TEMP13 + TAG99 TEMP26>
8337                     <LOOP (TEMP13 TYPE VALUE LENGTH) (TEMP26 VALUE)>
8338 TAG101
8339                     <INTGO>
8340                     <EMPTY? TEMP13 + TAG99>
8341                     <NTH1 TEMP13 = STACK>
8342                     <REST1 TEMP13 = TEMP13>
8343                     <ADD TEMP26 1 = TEMP26 (TYPE FIX)>
8344                     <JUMP + TAG101>
8345 TAG99
8346                     <CALL '\1aOCEMIT TEMP26>
8347                     <DEAD TEMP26>
8348                     <TYPE? ARG16 <TYPE-CODE FALSE> + PHRASE104>
8349                     <FRAME '\1aOCEMIT>
8350                     <RESTL ARG16 1 = TEMP26 (TYPE LIST)>
8351                     <NTHL TEMP26 1 = TEMP26 (TYPE ATOM)>
8352                     <VEQUAL? TEMP26 '+ - PHRASE107>
8353                     <DEAD TEMP26>
8354                     <SET TEMP26 'SKIPN (TYPE ATOM)>
8355                     <JUMP + PHRASE108>
8356 PHRASE107
8357                     <SET TEMP26 'SKIPE (TYPE ATOM)>
8358 PHRASE108
8359                     <PUSH TEMP26>
8360                     <DEAD TEMP26>
8361                     <FRAME '\1aNEXT-AC>
8362                     <PUSH AC9>
8363                     <CALL '\1aNEXT-AC 1 = STACK>
8364                     <NTHUV [%<> %<> %<> 5 6 %<>] ARG27 = STACK>
8365                     <DEAD ARG27>
8366                     <CONS XAC11 () = STACK>
8367                     <DEAD XAC11>
8368                     <CALL '\1aOCEMIT 4>
8369                     <FRAME '\1aOCEMIT>
8370                     <PUSH 'JRST>
8371                     <FRAME '\1aXJUMP>
8372                     <RESTL ARG16 1 = TEMP26 (TYPE LIST)>
8373                     <DEAD ARG16>
8374                     <RESTL TEMP26 1 = TEMP26 (TYPE LIST)>
8375                     <NTHL TEMP26 1 = STACK (TYPE ATOM)>
8376                     <DEAD TEMP26>
8377                     <CALL '\1aXJUMP 1 = STACK>
8378                     <CALL '\1aOCEMIT 2>
8379                     <SETG 'NEXT-FLUSH 1>
8380                     <JUMP + PHRASE112>
8381 PHRASE104
8382                     <FRAME '\1aOCEMIT>
8383                     <PUSH 'SKIPN>
8384                     <FRAME '\1aNEXT-AC>
8385                     <PUSH AC9>
8386                     <CALL '\1aNEXT-AC 1 = STACK>
8387                     <NTHUV [%<> %<> %<> 5 6 %<>] ARG27 = STACK>
8388                     <DEAD ARG27>
8389                     <CONS XAC11 () = STACK>
8390                     <DEAD XAC11>
8391                     <CALL '\1aOCEMIT 4>
8392                     <FRAME '\1aOCEMIT>
8393                     <PUSH 'MOVE>
8394                     <PUSH AC9>
8395                     <SET TEMP13 2 (TYPE FIX)>
8396                     <SFRAME 'TYPE-WORD>
8397                     <PUSH 'FALSE>
8398                     <SCALL '\1aTYPE-WORD 1 = TEMP26 + TAG115 TEMP13>
8399                     <LOOP (TEMP26 TYPE VALUE LENGTH) (TEMP13 VALUE)>
8400 TAG117
8401                     <INTGO>
8402                     <EMPTY? TEMP26 + TAG115>
8403                     <NTH1 TEMP26 = STACK>
8404                     <REST1 TEMP26 = TEMP26>
8405                     <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
8406                     <JUMP + TAG117>
8407 TAG115
8408                     <CALL '\1aOCEMIT TEMP13>
8409                     <DEAD TEMP13>
8410 PHRASE112
8411                     <VEQUAL? VAL8 'STACK + TAG121>
8412                     <DEAD VAL8>
8413                     <RETURN %<>>
8414 TAG121
8415                     <FRAME '\1aOCEMIT>
8416                     <PUSH 'PUSH>
8417                     <PUSH 'TP*>
8418                     <PUSH AC9>
8419                     <CALL '\1aOCEMIT 3>
8420                     <FRAME '\1aOCEMIT>
8421                     <PUSH 'PUSH>
8422                     <PUSH 'TP*>
8423                     <FRAME '\1aNEXT-AC>
8424                     <PUSH AC9>
8425                     <DEAD AC9>
8426                     <CALL '\1aNEXT-AC 1 = STACK>
8427                     <CALL '\1aOCEMIT 3>
8428                     <GVAL 'WINNING-VICTIM = TEMP13>
8429                     <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE126>
8430                     <GVAL 'STACK-DEPTH = TEMP13>
8431                     <ADD TEMP13 2 = TEMP13 (TYPE FIX)>
8432                     <SETG 'STACK-DEPTH TEMP13>
8433 PHRASE126
8434                     <RETURN TEMP13>
8435                     <DEAD TEMP13>
8436                     <END \1aLBIND-NTH>
8437 #WORD *31244672063*
8438 <GFCN \1aLBIND-PUT ("VALUE" ANY LIST) L5>
8439                     <TEMP ARG16 TEMP12 ARG27:FIX TEMP25 TEMP26>
8440                     <INTGO>
8441                     <NTHL L5 1 = ARG16>
8442                     <RESTL L5 1 = TEMP12 (TYPE LIST)>
8443                     <NTHL TEMP12 1 = ARG27 (TYPE FIX)>
8444                     <DEAD TEMP12>
8445                     <RESTL L5 1 = TEMP12 (TYPE LIST)>
8446                     <DEAD L5>
8447                     <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
8448                     <NTHL TEMP12 1 = TEMP12>
8449                     <GRTR? ARG27 6 + BOOL15 (TYPE FIX)>
8450                     <LESS? ARG27 1 - PHRASE14 (TYPE FIX)>
8451 BOOL15
8452                     <FRAME '\1aMIMOCERR>
8453                     <PUSH 'OUT-OF-BOUNDS!-ERRORS>
8454                     <PUSH 'NTHR>
8455                     <PUSH 'LBIND>
8456                     <PUSH ARG27>
8457                     <DEAD ARG27>
8458                     <CALL '\1aMIMOCERR 4 = TEMP12>
8459                     <RETURN TEMP12>
8460                     <DEAD TEMP12>
8461 PHRASE14
8462                     <SET TEMP25 [1 3] (TYPE VECTOR)>
8463                     <LOOP (ARG27 VALUE) (TEMP25 LENGTH VALUE)>
8464 TAG23
8465                     <NTHUV TEMP25 1 = TEMP26>
8466                     <VEQUAL? TEMP26 ARG27 + TAG22>
8467                     <DEAD TEMP26>
8468                     <RESTUV TEMP25 1 = TEMP25 (TYPE VECTOR)>
8469                     <EMPUV? TEMP25 - TAG23>
8470                     <JUMP + PHRASE21>
8471 TAG22
8472                     <FRAME '\1aLOAD-AC>
8473                     <PUSH TEMP12>
8474                     <DEAD TEMP12>
8475                     <PUSH 'BOTH>
8476                     <CALL '\1aLOAD-AC 2 = TEMP25>
8477                     <JUMP + PHRASE36>
8478 PHRASE21
8479                     <FRAME '\1aIN-AC?>
8480                     <PUSH TEMP12>
8481                     <PUSH 'VALUE>
8482                     <CALL '\1aIN-AC? 2 = TEMP25>
8483                     <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE28>
8484                     <FRAME '\1aGET-AC>
8485                     <PUSH TEMP25>
8486                     <CALL '\1aGET-AC 1 = TEMP26>
8487                     <GVAL 'AC-STAMP = TEMP12>
8488                     <ADD TEMP12 1 = TEMP12 (TYPE FIX)>
8489                     <SETG 'AC-STAMP TEMP12>
8490                     <PUTUV TEMP26 4 TEMP12 (TYPE FIX)>
8491                     <DEAD TEMP26 TEMP12>
8492                     <SETG 'FIRST-AC %<>>
8493                     <JUMP + PHRASE36>
8494 PHRASE28
8495                     <TYPE? TEMP12 <TYPE-CODE ATOM> - BOOL33>
8496                     <FRAME '\1aWILL-DIE?>
8497                     <PUSH TEMP12>
8498                     <CALL '\1aWILL-DIE? 1 = TEMP26>
8499                     <TYPE? TEMP26 <TYPE-CODE FALSE> + PHRASE32>
8500                     <DEAD TEMP26>
8501 BOOL33
8502                     <FRAME '\1aSMASH-AC>
8503                     <PUSH 'O*>
8504                     <PUSH TEMP12>
8505                     <DEAD TEMP12>
8506                     <PUSH 'VALUE>
8507                     <CALL '\1aSMASH-AC 3 = TEMP25>
8508                     <JUMP + PHRASE36>
8509 PHRASE32
8510                     <FRAME '\1aNEXT-AC>
8511                     <FRAME '\1aLOAD-AC>
8512                     <PUSH TEMP12>
8513                     <DEAD TEMP12>
8514                     <PUSH 'BOTH>
8515                     <CALL '\1aLOAD-AC 2 = STACK>
8516                     <CALL '\1aNEXT-AC 1 = TEMP25>
8517 PHRASE36
8518                     <SET TEMP12 TEMP25>
8519                     <DEAD TEMP25>
8520                     <FRAME '\1aIN-AC?>
8521                     <PUSH ARG16>
8522                     <PUSH 'VALUE>
8523                     <CALL '\1aIN-AC? 2 = TEMP25>
8524                     <TYPE? TEMP25 <TYPE-CODE FALSE> - PHRASE42>
8525                     <EQUAL? ARG16 1 - PHRASE41>
8526                     <SET TEMP25 %<> (TYPE FALSE)>
8527                     <JUMP + PHRASE42>
8528 PHRASE41
8529                     <FRAME '\1aSMASH-AC>
8530                     <PUSH 'T*>
8531                     <PUSH ARG16>
8532                     <PUSH 'VALUE>
8533                     <CALL '\1aSMASH-AC 3>
8534                     <FRAME '\1aGET-AC>
8535                     <PUSH 'T*>
8536                     <CALL '\1aGET-AC 1 = TEMP25>
8537                     <PUTUV TEMP25 3 'DUMMY (TYPE ATOM)>
8538                     <DEAD TEMP25>
8539                     <SET TEMP25 'T* (TYPE ATOM)>
8540 PHRASE42
8541                     <VEQUAL? ARG27 1 - PHRASE46 (TYPE FIX)>
8542                     <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE50>
8543                     <FRAME '\1aOCEMIT>
8544                     <PUSH 'DMOVEM>
8545                     <PUSH TEMP12>
8546                     <DEAD TEMP12>
8547                     <CONS TEMP25 () = STACK>
8548                     <DEAD TEMP25>
8549                     <CALL '\1aOCEMIT 3 = TEMP12>
8550                     <RETURN TEMP12>
8551                     <DEAD TEMP12>
8552 PHRASE50
8553                     <FRAME '\1aDMOVEM>
8554                     <PUSH TEMP12>
8555                     <DEAD TEMP12>
8556                     <PUSH '@>
8557                     <SET TEMP26 2 (TYPE FIX)>
8558                     <SFRAME 'OBJ-VAL>
8559                     <PUSH ARG16>
8560                     <DEAD ARG16>
8561                     <SCALL '\1aOBJ-VAL 1 = TEMP25 + TAG53 TEMP26>
8562                     <LOOP (TEMP25 TYPE VALUE LENGTH) (TEMP26 VALUE)>
8563 TAG55
8564                     <INTGO>
8565                     <EMPTY? TEMP25 + TAG53>
8566                     <NTH1 TEMP25 = STACK>
8567                     <REST1 TEMP25 = TEMP25>
8568                     <ADD TEMP26 1 = TEMP26 (TYPE FIX)>
8569                     <JUMP + TAG55>
8570 TAG53
8571                     <CALL '\1aDMOVEM TEMP26 = TEMP12>
8572                     <DEAD TEMP26>
8573                     <RETURN TEMP12>
8574                     <DEAD TEMP12>
8575 PHRASE46
8576                     <VEQUAL? ARG27 3 - PHRASE57 (TYPE FIX)>
8577                     <FRAME '\1aOCEMIT>
8578                     <PUSH 'DMOVEM>
8579                     <PUSH TEMP12>
8580                     <DEAD TEMP12>
8581                     <PUSH 3>
8582                     <CONS TEMP25 () = STACK>
8583                     <DEAD TEMP25>
8584                     <CALL '\1aOCEMIT 4 = TEMP12>
8585                     <RETURN TEMP12>
8586                     <DEAD TEMP12>
8587 PHRASE57
8588                     <FRAME '\1aOCEMIT>
8589                     <PUSH 'MOVEM>
8590                     <PUSH TEMP12>
8591                     <DEAD TEMP12>
8592                     <NTHUV [%<> 2 %<> 5 6 7] ARG27 = STACK>
8593                     <DEAD ARG27>
8594                     <CONS TEMP25 () = STACK>
8595                     <DEAD TEMP25>
8596                     <CALL '\1aOCEMIT 4 = TEMP12>
8597                     <RETURN TEMP12>
8598                     <DEAD TEMP12>
8599                     <END \1aLBIND-PUT>
8600 #WORD *14507230520*
8601 <GFCN \1aATOM-NTH ("VALUE" ANY LIST) L4>
8602                     <TEMP (ARG15 %<>) TEMP22 ARG26:FIX VAL7:ATOM (LAB12 %<>) (WD16 %<>) (AC-T118 %<>) (WD120 %<>) (AC-T221 %<>) XAC10 TEMP35 AC8 EX11 LBL14>
8603                     <INTGO>
8604                     <NTHL L4 1 = ARG15>
8605                     <RESTL L4 1 = TEMP22 (TYPE LIST)>
8606                     <NTHL TEMP22 1 = ARG26 (TYPE FIX)>
8607                     <DEAD TEMP22>
8608                     <RESTL L4 1 = TEMP22 (TYPE LIST)>
8609                     <RESTL TEMP22 1 = TEMP22 (TYPE LIST)>
8610                     <RESTL TEMP22 1 = TEMP22 (TYPE LIST)>
8611                     <NTHL TEMP22 1 = VAL7 (TYPE ATOM)>
8612                     <DEAD TEMP22>
8613                     <GRTR? ARG26 5 + BOOL25 (TYPE FIX)>
8614                     <LESS? ARG26 1 - PHRASE24 (TYPE FIX)>
8615 BOOL25
8616                     <FRAME '\1aMIMOCERR>
8617                     <PUSH 'OUT-OF-BOUNDS!-ERRORS>
8618                     <PUSH 'NTHR>
8619                     <PUSH 'ATOM>
8620                     <PUSH ARG26>
8621                     <DEAD ARG26>
8622                     <CALL '\1aMIMOCERR 4 = TEMP22>
8623                     <RETURN TEMP22>
8624                     <DEAD TEMP22>
8625 PHRASE24
8626                     <FRAME '\1aIN-AC?>
8627                     <PUSH ARG15>
8628                     <PUSH 'VALUE>
8629                     <CALL '\1aIN-AC? 2 = XAC10>
8630                     <TYPE? XAC10 <TYPE-CODE FALSE> + PHRASE31>
8631                     <VEQUAL? XAC10 'O* + PHRASE31>
8632                     <FRAME '\1aGET-AC>
8633                     <PUSH XAC10>
8634                     <CALL '\1aGET-AC 1 = TEMP35>
8635                     <GVAL 'AC-STAMP = TEMP22>
8636                     <ADD TEMP22 1 = TEMP22 (TYPE FIX)>
8637                     <SETG 'AC-STAMP TEMP22>
8638                     <PUTUV TEMP35 4 TEMP22 (TYPE FIX)>
8639                     <DEAD TEMP35 TEMP22>
8640                     <SETG 'FIRST-AC %<>>
8641                     <SET TEMP35 XAC10>
8642                     <DEAD XAC10>
8643                     <JUMP + PHRASE41>
8644 PHRASE31
8645                     <FRAME '\1aWILL-DIE?>
8646                     <PUSH ARG15>
8647                     <CALL '\1aWILL-DIE? 1 = TEMP22>
8648                     <TYPE? TEMP22 <TYPE-CODE FALSE> - PHRASE37>
8649                     <DEAD TEMP22>
8650                     <FRAME '\1aNEXT-AC>
8651                     <FRAME '\1aLOAD-AC>
8652                     <PUSH ARG15>
8653                     <DEAD ARG15>
8654                     <PUSH 'BOTH>
8655                     <CALL '\1aLOAD-AC 2 = STACK>
8656                     <CALL '\1aNEXT-AC 1 = TEMP35>
8657                     <JUMP + PHRASE41>
8658 PHRASE37
8659                     <FRAME '\1aSMASH-AC>
8660                     <PUSH 'T*>
8661                     <PUSH ARG15>
8662                     <DEAD ARG15>
8663                     <PUSH 'VALUE>
8664                     <CALL '\1aSMASH-AC 3>
8665                     <FRAME '\1aFLUSH-AC>
8666                     <PUSH 'T*>
8667                     <CALL '\1aFLUSH-AC 1>
8668                     <FRAME '\1aMUNGED-AC>
8669                     <PUSH 'T*>
8670                     <CALL '\1aMUNGED-AC 1>
8671                     <SET TEMP35 'T* (TYPE ATOM)>
8672 PHRASE41
8673                     <SET XAC10 TEMP35>
8674                     <DEAD TEMP35>
8675                     <VEQUAL? ARG26 3 - PHRASE46 (TYPE FIX)>
8676                     <VEQUAL? VAL7 'STACK - PHRASE48>
8677                     <FRAME '\1aOCEMIT>
8678                     <PUSH 'PUSH>
8679                     <PUSH 'TP*>
8680                     <PUSH 2>
8681                     <CONS XAC10 () = STACK>
8682                     <CALL '\1aOCEMIT 4>
8683                     <FRAME '\1aSMASH-AC>
8684                     <PUSH 'O*>
8685                     <FRAME '\1aTYPE-CODE>
8686                     <PUSH 'STRING>
8687                     <CALL '\1aTYPE-CODE 1 = STACK>
8688                     <PUSH 'VALUE>
8689                     <CALL '\1aSMASH-AC 3>
8690                     <FRAME '\1aOCEMIT>
8691                     <PUSH 'HRLM>
8692                     <PUSH 'O*>
8693                     <PUSH (TP*)>
8694                     <CALL '\1aOCEMIT 3>
8695                     <FRAME '\1aOCEMIT>
8696                     <PUSH 'PUSH>
8697                     <PUSH 'TP*>
8698                     <PUSH 3>
8699                     <CONS XAC10 () = STACK>
8700                     <DEAD XAC10>
8701                     <CALL '\1aOCEMIT 4>
8702                     <GVAL 'WINNING-VICTIM = TEMP22>
8703                     <TYPE? TEMP22 <TYPE-CODE FALSE> + PHRASE56>
8704                     <GVAL 'STACK-DEPTH = TEMP35>
8705                     <ADD TEMP35 2 = TEMP35 (TYPE FIX)>
8706                     <SETG 'STACK-DEPTH TEMP35>
8707                     <RETURN TEMP35>
8708                     <DEAD TEMP35>
8709 PHRASE48
8710                     <FRAME '\1aASSIGN-AC>
8711                     <PUSH VAL7>
8712                     <DEAD VAL7>
8713                     <PUSH 'BOTH>
8714                     <PUSH 'T>
8715                     <CALL '\1aASSIGN-AC 3 = AC8>
8716                     <FRAME '\1aOCEMIT>
8717                     <PUSH 'DMOVE>
8718                     <PUSH AC8>
8719                     <PUSH 2>
8720                     <CONS XAC10 () = STACK>
8721                     <DEAD XAC10>
8722                     <CALL '\1aOCEMIT 4>
8723                     <FRAME '\1aOCEMIT>
8724                     <PUSH 'HRLI>
8725                     <PUSH AC8>
8726                     <DEAD AC8>
8727                     <FRAME '\1aTYPE-CODE>
8728                     <PUSH 'STRING>
8729                     <CALL '\1aTYPE-CODE 1 = STACK>
8730                     <CALL '\1aOCEMIT 3 = TEMP22>
8731 PHRASE56
8732                     <RETURN TEMP22>
8733                     <DEAD TEMP22>
8734 PHRASE46
8735                     <FRAME '\1aEXTRAMEM>
8736                     <PUSH 'BRANCH-FALSE>
8737                     <PUSH L4>
8738                     <CALL '\1aEXTRAMEM 2 = EX11>
8739                     <TYPE? EX11 <TYPE-CODE FALSE> + PHRASE63>
8740                     <RESTL EX11 1 = TEMP35 (TYPE LIST)>
8741                     <RESTL TEMP35 1 = TEMP35 (TYPE LIST)>
8742                     <NTHL TEMP35 1 = LAB12 (TYPE ATOM)>
8743                     <DEAD TEMP35>
8744                     <FRAME '\1aWILL-DIE?>
8745                     <PUSH VAL7>
8746                     <GEN-LVAL 'MIML = TEMP22>
8747                     <REST1 TEMP22 = STACK>
8748                     <DEAD TEMP22>
8749                     <CALL '\1aWILL-DIE? 2 = WD120>
8750                     <SET TEMP35 WD120>
8751                     <TYPE? TEMP35 <TYPE-CODE FALSE> + BOOL65>
8752                     <FRAME '\1aWILL-DIE?>
8753                     <PUSH VAL7>
8754                     <GVAL LAB12 = TEMP22>
8755                     <NTHUV TEMP22 7 = STACK (TYPE LIST)>
8756                     <DEAD TEMP22>
8757                     <CALL '\1aWILL-DIE? 2 = TEMP35>
8758 BOOL65
8759                     <SET WD16 TEMP35>
8760                     <DEAD TEMP35>
8761 PHRASE63
8762                     <FRAME '\1aEXTRAMEM>
8763                     <PUSH 'TYPE>
8764                     <PUSH L4>
8765                     <DEAD L4>
8766                     <CALL '\1aEXTRAMEM 2 = ARG15>
8767                     <TYPE? WD16 <TYPE-CODE FALSE> - PHRASE72>
8768                     <FRAME '\1aASSIGN-AC>
8769                     <PUSH VAL7>
8770                     <PUSH 'BOTH>
8771                     <PUSH 'T>
8772                     <CALL '\1aASSIGN-AC 3 = AC8>
8773                     <JUMP + PHRASE74>
8774 PHRASE72
8775                     <SET AC8 %<> (TYPE FALSE)>
8776 PHRASE74
8777                     <TYPE? WD16 <TYPE-CODE FALSE> - PHRASE76>
8778                     <VEQUAL? ARG26 5 - PHRASE76 (TYPE FIX)>
8779                     <TYPE? EX11 <TYPE-CODE FALSE> - PHRASE82>
8780                     <FRAME '\1aOCEMIT>
8781                     <PUSH 'MOVSI>
8782                     <PUSH AC8>
8783                     <FRAME '\1aTYPE-CODE>
8784                     <PUSH 'TYPE-C>
8785                     <CALL '\1aTYPE-CODE 1 = STACK>
8786                     <CALL '\1aOCEMIT 3>
8787                     <JUMP + PHRASE82>
8788 PHRASE76
8789                     <TYPE? WD16 <TYPE-CODE FALSE> - PHRASE82>
8790                     <TYPE? EX11 <TYPE-CODE FALSE> - PHRASE82>
8791                     <TYPE? ARG15 <TYPE-CODE FALSE> - PHRASE82>
8792                     <FRAME '\1aOCEMIT>
8793                     <PUSH 'MOVE>
8794                     <PUSH AC8>
8795                     <SET TEMP22 2 (TYPE FIX)>
8796                     <SFRAME 'TYPE-WORD>
8797                     <NTHUV [GBIND LBIND %<> OBLIST] ARG26 = STACK>
8798                     <SCALL '\1aTYPE-WORD 1 = TEMP35 + TAG84 TEMP22>
8799                     <LOOP (TEMP35 TYPE VALUE LENGTH) (TEMP22 VALUE)>
8800 TAG86
8801                     <INTGO>
8802                     <EMPTY? TEMP35 + TAG84>
8803                     <NTH1 TEMP35 = STACK>
8804                     <REST1 TEMP35 = TEMP35>
8805                     <ADD TEMP22 1 = TEMP22 (TYPE FIX)>
8806                     <JUMP + TAG86>
8807 TAG84
8808                     <CALL '\1aOCEMIT TEMP22>
8809                     <DEAD TEMP22>
8810 PHRASE82
8811                     <TYPE? EX11 <TYPE-CODE FALSE> + PHRASE89>
8812                     <TYPE? WD16 <TYPE-CODE FALSE> - BOOL91>
8813                     <VEQUAL? ARG26 5 - BOOL91 (TYPE FIX)>
8814                     <RESTL EX11 1 = TEMP22 (TYPE LIST)>
8815                     <NTHL TEMP22 1 = TEMP22 (TYPE ATOM)>
8816                     <VEQUAL? TEMP22 '+ - PHRASE89>
8817                     <DEAD TEMP22>
8818 BOOL91
8819                     <FRAME '\1aLABEL-UPDATE-ACS>
8820                     <PUSH LAB12>
8821                     <PUSH %<>>
8822                     <PUSH %<>>
8823                     <PUSH XAC10>
8824                     <CALL '\1aLABEL-UPDATE-ACS 4 = TEMP35>
8825                     <FRAME '\1aGET-AC>
8826                     <PUSH AC8>
8827                     <CALL '\1aGET-AC 1 = TEMP22>
8828                     <PUTUV TEMP22 5 'T>
8829                     <DEAD TEMP22>
8830                     <FRAME '\1aGET-AC>
8831                     <FRAME '\1aNEXT-AC>
8832                     <PUSH AC8>
8833                     <CALL '\1aNEXT-AC 1 = STACK>
8834                     <CALL '\1aGET-AC 1 = TEMP22>
8835                     <PUTUV TEMP22 5 'T>
8836                     <DEAD TEMP22>
8837                     <NTH1 TEMP35 = TEMP22>
8838                     <EQUAL? TEMP22 XAC10 + PHRASE97>
8839                     <DEAD TEMP22>
8840                     <FRAME '\1aGET-AC>
8841                     <NTH1 TEMP35 = XAC10>
8842                     <DEAD TEMP35>
8843                     <PUSH XAC10>
8844                     <CALL '\1aGET-AC 1 = TEMP22>
8845                     <NTHUV TEMP22 4 = AC-T118 (TYPE FIX)>
8846                     <DEAD TEMP22>
8847 PHRASE97
8848                     <FRAME '\1aOCEMIT>
8849                     <RESTL EX11 1 = TEMP22 (TYPE LIST)>
8850                     <NTHL TEMP22 1 = TEMP22 (TYPE ATOM)>
8851                     <VEQUAL? TEMP22 '+ - PHRASE101>
8852                     <DEAD TEMP22>
8853                     <VEQUAL? ARG26 5 - PHRASE103 (TYPE FIX)>
8854                     <SET TEMP22 'SKIPGE (TYPE ATOM)>
8855                     <JUMP + PHRASE106>
8856 PHRASE103
8857                     <SET TEMP22 'SKIPN (TYPE ATOM)>
8858                     <JUMP + PHRASE106>
8859 PHRASE101
8860                     <VEQUAL? ARG26 5 - PHRASE105 (TYPE FIX)>
8861                     <SET TEMP22 'SKIPL (TYPE ATOM)>
8862                     <JUMP + PHRASE106>
8863 PHRASE105
8864                     <SET TEMP22 'SKIPE (TYPE ATOM)>
8865 PHRASE106
8866                     <PUSH TEMP22>
8867                     <DEAD TEMP22>
8868                     <TYPE? WD16 <TYPE-CODE FALSE> + PHRASE108>
8869                     <DEAD WD16>
8870                     <SET TEMP22 'O* (TYPE ATOM)>
8871                     <JUMP + PHRASE109>
8872 PHRASE108
8873                     <FRAME '\1aNEXT-AC>
8874                     <PUSH AC8>
8875                     <CALL '\1aNEXT-AC 1 = TEMP22>
8876 PHRASE109
8877                     <PUSH TEMP22>
8878                     <DEAD TEMP22>
8879                     <NTHUV [0 1 %<> 4 2] ARG26 = STACK>
8880                     <CONS XAC10 () = STACK>
8881                     <CALL '\1aOCEMIT 4>
8882                     <VEQUAL? ARG26 5 - PHRASE112 (TYPE FIX)>
8883                     <FRAME '\1aOCEMIT>
8884                     <PUSH 'JRST>
8885                     <FRAME '\1aXJUMP>
8886                     <PUSH LAB12>
8887                     <DEAD LAB12>
8888                     <CALL '\1aXJUMP 1 = STACK>
8889                     <CALL '\1aOCEMIT 2>
8890                     <TYPE? WD120 <TYPE-CODE FALSE> - PHRASE121>
8891                     <RESTL EX11 1 = TEMP22 (TYPE LIST)>
8892                     <NTHL TEMP22 1 = TEMP22 (TYPE ATOM)>
8893                     <VEQUAL? TEMP22 '+ - PHRASE121>
8894                     <DEAD TEMP22>
8895                     <FRAME '\1aOCEMIT>
8896                     <PUSH 'HLRZS>
8897                     <PUSH 'O*>
8898                     <FRAME '\1aNEXT-AC>
8899                     <PUSH AC8>
8900                     <CALL '\1aNEXT-AC 1 = STACK>
8901                     <CALL '\1aOCEMIT 3>
8902                     <JUMP + PHRASE121>
8903 PHRASE112
8904                     <FRAME '\1aOCEMIT>
8905                     <PUSH 'JRST>
8906                     <FRAME '\1aXJUMP>
8907                     <PUSH LAB12>
8908                     <DEAD LAB12>
8909                     <CALL '\1aXJUMP 1 = STACK>
8910                     <CALL '\1aOCEMIT 2>
8911 PHRASE121
8912                     <TYPE? AC-T118 <TYPE-CODE FALSE> + PHRASE125>
8913                     <FRAME '\1aGET-AC>
8914                     <PUSH XAC10>
8915                     <DEAD XAC10>
8916                     <CALL '\1aGET-AC 1 = TEMP22>
8917                     <PUTUV TEMP22 4 AC-T118 (TYPE FIX)>
8918                     <DEAD TEMP22 AC-T118>
8919 PHRASE125
8920                     <TYPE? WD120 <TYPE-CODE FALSE> - PHRASE132>
8921                     <DEAD WD120>
8922                     <RESTL EX11 1 = TEMP22 (TYPE LIST)>
8923                     <DEAD EX11>
8924                     <NTHL TEMP22 1 = TEMP22 (TYPE ATOM)>
8925                     <VEQUAL? TEMP22 '+ - PHRASE130>
8926                     <DEAD TEMP22>
8927                     <FRAME '\1aGET-AC>
8928                     <PUSH AC8>
8929                     <CALL '\1aGET-AC 1 = TEMP22>
8930                     <NTHUV [GBIND LBIND T OBLIST TYPE-C] ARG26 = TEMP35 (TYPE ATOM)>
8931                     <DEAD ARG26>
8932                     <PUTUV TEMP22 6 TEMP35>
8933                     <DEAD TEMP22 TEMP35>
8934                     <JUMP + PHRASE132>
8935 PHRASE130
8936                     <FRAME '\1aGET-AC>
8937                     <PUSH AC8>
8938                     <CALL '\1aGET-AC 1 = TEMP22>
8939                     <PUTUV TEMP22 6 'FALSE>
8940                     <DEAD TEMP22>
8941 PHRASE132
8942                     <SETG 'NEXT-FLUSH 1>
8943                     <JUMP + PHRASE187>
8944 PHRASE89
8945                     <VEQUAL? ARG26 5 - PHRASE134 (TYPE FIX)>
8946                     <FRAME '\1aOCEMIT>
8947                     <PUSH 'HLRE>
8948                     <FRAME '\1aNEXT-AC>
8949                     <PUSH AC8>
8950                     <CALL '\1aNEXT-AC 1 = STACK>
8951                     <PUSH 2>
8952                     <CONS XAC10 () = STACK>
8953                     <CALL '\1aOCEMIT 4>
8954                     <TYPE? EX11 <TYPE-CODE FALSE> + PHRASE138>
8955                     <FRAME '\1aGET-AC>
8956                     <PUSH AC8>
8957                     <CALL '\1aGET-AC 1 = TEMP22>
8958                     <PUTUV TEMP22 2 VAL7>
8959                     <DEAD TEMP22>
8960                     <FRAME '\1aGET-AC>
8961                     <FRAME '\1aNEXT-AC>
8962                     <PUSH AC8>
8963                     <CALL '\1aNEXT-AC 1 = STACK>
8964                     <CALL '\1aGET-AC 1 = TEMP22>
8965                     <PUTUV TEMP22 2 VAL7>
8966                     <DEAD TEMP22>
8967                     <TYPE? WD120 <TYPE-CODE FALSE> + PHRASE143>
8968                     <FRAME '\1aGET-AC>
8969                     <PUSH AC8>
8970                     <CALL '\1aGET-AC 1 = TEMP22>
8971                     <PUTUV TEMP22 6 'TYPE-C>
8972                     <DEAD TEMP22>
8973                     <JUMP + PHRASE145>
8974 PHRASE143
8975                     <FRAME '\1aOCEMIT>
8976                     <PUSH 'MOVSI>
8977                     <PUSH AC8>
8978                     <FRAME '\1aTYPE-CODE>
8979                     <PUSH 'TYPE-C>
8980                     <CALL '\1aTYPE-CODE 1 = STACK>
8981                     <CALL '\1aOCEMIT 3>
8982 PHRASE145
8983                     <FRAME '\1aLABEL-UPDATE-ACS>
8984                     <PUSH LAB12>
8985                     <PUSH %<>>
8986                     <PUSH %<>>
8987                     <PUSH XAC10>
8988                     <PUSH AC8>
8989                     <CALL '\1aLABEL-UPDATE-ACS 5 = TEMP35>
8990                     <NTH1 TEMP35 = TEMP22>
8991                     <EQUAL? TEMP22 XAC10 + PHRASE150>
8992                     <DEAD TEMP22>
8993                     <FRAME '\1aGET-AC>
8994                     <NTH1 TEMP35 = XAC10>
8995                     <PUSH XAC10>
8996                     <CALL '\1aGET-AC 1 = TEMP22>
8997                     <NTHUV TEMP22 4 = AC-T118 (TYPE FIX)>
8998                     <DEAD TEMP22>
8999 PHRASE150
9000                     <FRAME '\1aNTH>
9001                     <PUSH TEMP35>
9002                     <PUSH 2>
9003                     <CALL '\1aNTH 2 = TEMP22>
9004                     <EQUAL? TEMP22 AC8 + PHRASE153>
9005                     <DEAD TEMP22>
9006                     <FRAME '\1aGET-AC>
9007                     <FRAME '\1aNTH>
9008                     <PUSH TEMP35>
9009                     <DEAD TEMP35>
9010                     <PUSH 2>
9011                     <CALL '\1aNTH 2 = AC8>
9012                     <PUSH AC8>
9013                     <CALL '\1aGET-AC 1 = TEMP22>
9014                     <NTHUV TEMP22 4 = AC-T221 (TYPE FIX)>
9015                     <DEAD TEMP22>
9016 PHRASE153
9017                     <SETG 'NEXT-FLUSH 1>
9018 PHRASE138
9019                     <TYPE? ARG15 <TYPE-CODE FALSE> - PHRASE173>
9020                     <DEAD ARG15>
9021                     <FRAME '\1aOCEMIT>
9022                     <PUSH 'JUMPGE>
9023                     <FRAME '\1aNEXT-AC>
9024                     <PUSH AC8>
9025                     <CALL '\1aNEXT-AC 1 = STACK>
9026                     <FRAME '\1aXJUMP>
9027                     <TYPE? EX11 <TYPE-CODE FALSE> + PHRASE163>
9028                     <SET TEMP22 LAB12>
9029                     <DEAD LAB12>
9030                     <JUMP + PHRASE164>
9031 PHRASE163
9032                     <FRAME '\1aGENLBL>
9033                     <PUSH "FOO">
9034                     <CALL '\1aGENLBL 1 = LBL14>
9035                     <SET TEMP22 LBL14>
9036 PHRASE164
9037                     <PUSH TEMP22>
9038                     <DEAD TEMP22>
9039                     <CALL '\1aXJUMP 1 = STACK>
9040                     <CALL '\1aOCEMIT 3>
9041                     <TYPE? WD120 <TYPE-CODE FALSE> - PHRASE167>
9042                     <DEAD WD120>
9043                     <FRAME '\1aOCEMIT>
9044                     <PUSH 'MOVEI>
9045                     <FRAME '\1aNEXT-AC>
9046                     <PUSH AC8>
9047                     <CALL '\1aNEXT-AC 1 = STACK>
9048                     <PUSH 0>
9049                     <CALL '\1aOCEMIT 3>
9050                     <FRAME '\1aOCEMIT>
9051                     <PUSH 'MOVSI>
9052                     <PUSH AC8>
9053                     <FRAME '\1aTYPE-CODE>
9054                     <PUSH 'FALSE>
9055                     <CALL '\1aTYPE-CODE 1 = STACK>
9056                     <CALL '\1aOCEMIT 3>
9057 PHRASE167
9058                     <TYPE? EX11 <TYPE-CODE FALSE> - PHRASE173>
9059                     <DEAD EX11>
9060                     <FRAME '\1aLABEL>
9061                     <PUSH LBL14>
9062                     <DEAD LBL14>
9063                     <CALL '\1aLABEL 1>
9064 PHRASE173
9065                     <TYPE? AC-T118 <TYPE-CODE FALSE> + PHRASE176>
9066                     <FRAME '\1aGET-AC>
9067                     <PUSH XAC10>
9068                     <DEAD XAC10>
9069                     <CALL '\1aGET-AC 1 = TEMP22>
9070                     <PUTUV TEMP22 4 AC-T118 (TYPE FIX)>
9071                     <DEAD TEMP22 AC-T118>
9072 PHRASE176
9073                     <TYPE? AC-T221 <TYPE-CODE FALSE> + PHRASE187>
9074                     <FRAME '\1aGET-AC>
9075                     <PUSH AC8>
9076                     <CALL '\1aGET-AC 1 = TEMP22>
9077                     <PUTUV TEMP22 4 AC-T221 (TYPE FIX)>
9078                     <DEAD TEMP22>
9079                     <FRAME '\1aGET-AC>
9080                     <FRAME '\1aNEXT-AC>
9081                     <PUSH AC8>
9082                     <CALL '\1aNEXT-AC 1 = STACK>
9083                     <CALL '\1aGET-AC 1 = TEMP22>
9084                     <PUTUV TEMP22 4 AC-T221 (TYPE FIX)>
9085                     <DEAD TEMP22 AC-T221>
9086                     <JUMP + PHRASE187>
9087 PHRASE134
9088                     <TYPE? ARG15 <TYPE-CODE FALSE> + PHRASE183>
9089                     <FRAME '\1aOCEMIT>
9090                     <PUSH 'MOVE>
9091                     <FRAME '\1aNEXT-AC>
9092                     <PUSH AC8>
9093                     <CALL '\1aNEXT-AC 1 = STACK>
9094                     <NTHUV [0 1 %<> 4] ARG26 = STACK>
9095                     <DEAD ARG26>
9096                     <CONS XAC10 () = STACK>
9097                     <DEAD XAC10>
9098                     <CALL '\1aOCEMIT 4>
9099                     <FRAME '\1aGET-AC>
9100                     <PUSH AC8>
9101                     <CALL '\1aGET-AC 1 = TEMP22>
9102                     <RESTL ARG15 1 = TEMP35 (TYPE LIST)>
9103                     <DEAD ARG15>
9104                     <NTHL TEMP35 1 = TEMP35>
9105                     <PUTUV TEMP22 6 TEMP35>
9106                     <DEAD TEMP22 TEMP35>
9107                     <JUMP + PHRASE187>
9108 PHRASE183
9109                     <FRAME '\1aOCEMIT>
9110                     <PUSH 'SKIPN>
9111                     <FRAME '\1aNEXT-AC>
9112                     <PUSH AC8>
9113                     <CALL '\1aNEXT-AC 1 = STACK>
9114                     <NTHUV [0 1 %<> 4] ARG26 = STACK>
9115                     <DEAD ARG26>
9116                     <CONS XAC10 () = STACK>
9117                     <DEAD XAC10>
9118                     <CALL '\1aOCEMIT 4>
9119                     <FRAME '\1aOCEMIT>
9120                     <PUSH 'MOVSI>
9121                     <PUSH AC8>
9122                     <FRAME '\1aTYPE-CODE>
9123                     <PUSH 'FALSE>
9124                     <CALL '\1aTYPE-CODE 1 = STACK>
9125                     <CALL '\1aOCEMIT 3>
9126 PHRASE187
9127                     <VEQUAL? VAL7 'STACK + TAG194>
9128                     <DEAD VAL7>
9129                     <RETURN %<>>
9130 TAG194
9131                     <FRAME '\1aOCEMIT>
9132                     <PUSH 'PUSH>
9133                     <PUSH 'TP*>
9134                     <PUSH AC8>
9135                     <CALL '\1aOCEMIT 3>
9136                     <FRAME '\1aOCEMIT>
9137                     <PUSH 'PUSH>
9138                     <PUSH 'TP*>
9139                     <FRAME '\1aNEXT-AC>
9140                     <PUSH AC8>
9141                     <DEAD AC8>
9142                     <CALL '\1aNEXT-AC 1 = STACK>
9143                     <CALL '\1aOCEMIT 3>
9144                     <GVAL 'WINNING-VICTIM = TEMP22>
9145                     <TYPE? TEMP22 <TYPE-CODE FALSE> + PHRASE199>
9146                     <GVAL 'STACK-DEPTH = TEMP22>
9147                     <ADD TEMP22 2 = TEMP22 (TYPE FIX)>
9148                     <SETG 'STACK-DEPTH TEMP22>
9149 PHRASE199
9150                     <RETURN TEMP22>
9151                     <DEAD TEMP22>
9152                     <END \1aATOM-NTH>
9153 #WORD *7175671772*
9154 <GFCN \1aEXTRAMEM ("VALUE" <OR FALSE <LIST ANY>> ATOM LIST) NAM5 LST6>
9155                     <TEMP TEMP16 TEMP13:LIST ITM18 TEMP26>
9156                     <INTGO>
9157                     <SET TEMP16 %<> (TYPE FALSE)>
9158                     <SET TEMP13 LST6 (TYPE LIST)>
9159                     <DEAD LST6>
9160                     <LOOP>
9161 MAP8
9162                     <INTGO>
9163                     <EMPL? TEMP13 + MAPAP11>
9164                     <NTHL TEMP13 1 = ITM18>
9165                     <TYPE? ITM18 <TYPE-CODE LIST> + TAG22>
9166                     <SET TEMP16 %<> (TYPE FALSE)>
9167                     <JUMP + PHRASE20>
9168 TAG22
9169                     <EMPL? ITM18 + TAG25>
9170                     <RESTL ITM18 1 = TEMP26 (TYPE LIST)>
9171                     <EMPL? TEMP26 - TAG24>
9172                     <DEAD TEMP26>
9173 TAG25
9174                     <SET TEMP16 %<> (TYPE FALSE)>
9175                     <JUMP + PHRASE20>
9176 TAG24
9177                     <NTHL ITM18 1 = TEMP26>
9178                     <EQUAL? TEMP26 NAM5 + TAG27>
9179                     <DEAD TEMP26>
9180                     <SET TEMP16 %<> (TYPE FALSE)>
9181                     <JUMP + PHRASE20>
9182 TAG27
9183                     <RETURN ITM18>
9184                     <DEAD ITM18>
9185 PHRASE20
9186                     <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
9187                     <JUMP + MAP8>
9188 MAPAP11
9189                     <DEAD NAM5 TEMP13>
9190                     <RETURN TEMP16>
9191                     <DEAD TEMP16>
9192                     <END \1aEXTRAMEM>
9193 #WORD *24472426211*
9194 <GFCN \1aATOM-PUT ("VALUE" ANY LIST) L5>
9195                     <TEMP ARG16 TEMP12 ARG27:FIX AC111 TEMP25 NAC10>
9196                     <INTGO>
9197                     <NTHL L5 1 = ARG16>
9198                     <RESTL L5 1 = TEMP12 (TYPE LIST)>
9199                     <NTHL TEMP12 1 = ARG27 (TYPE FIX)>
9200                     <DEAD TEMP12>
9201                     <RESTL L5 1 = TEMP12 (TYPE LIST)>
9202                     <DEAD L5>
9203                     <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
9204                     <NTHL TEMP12 1 = TEMP12>
9205                     <GRTR? ARG27 5 + BOOL15 (TYPE FIX)>
9206                     <LESS? ARG27 1 - PHRASE14 (TYPE FIX)>
9207 BOOL15
9208                     <FRAME '\1aMIMOCERR>
9209                     <PUSH 'OUT-OF-BOUNDS!-ERRORS>
9210                     <PUSH 'NTHR>
9211                     <PUSH 'LBIND>
9212                     <PUSH ARG27>
9213                     <DEAD ARG27>
9214                     <CALL '\1aMIMOCERR 4 = TEMP12>
9215                     <RETURN TEMP12>
9216                     <DEAD TEMP12>
9217 PHRASE14
9218                     <FRAME '\1aIN-AC?>
9219                     <PUSH ARG16>
9220                     <PUSH 'VALUE>
9221                     <CALL '\1aIN-AC? 2 = AC111>
9222                     <TYPE? AC111 <TYPE-CODE FALSE> + PHRASE21>
9223                     <FRAME '\1aGET-AC>
9224                     <PUSH AC111>
9225                     <CALL '\1aGET-AC 1 = ARG16>
9226                     <GVAL 'AC-STAMP = TEMP25>
9227                     <ADD TEMP25 1 = TEMP25 (TYPE FIX)>
9228                     <SETG 'AC-STAMP TEMP25>
9229                     <PUTUV ARG16 4 TEMP25 (TYPE FIX)>
9230                     <DEAD ARG16 TEMP25>
9231                     <SETG 'FIRST-AC %<>>
9232                     <SET ARG16 AC111>
9233                     <DEAD AC111>
9234                     <JUMP + PHRASE26>
9235 PHRASE21
9236                     <FRAME '\1aSMASH-AC>
9237                     <PUSH 'T*>
9238                     <PUSH ARG16>
9239                     <DEAD ARG16>
9240                     <PUSH 'VALUE>
9241                     <CALL '\1aSMASH-AC 3>
9242                     <FRAME '\1aFLUSH-AC>
9243                     <PUSH 'T*>
9244                     <CALL '\1aFLUSH-AC 1>
9245                     <FRAME '\1aMUNGED-AC>
9246                     <PUSH 'T*>
9247                     <CALL '\1aMUNGED-AC 1>
9248                     <SET ARG16 'T* (TYPE ATOM)>
9249 PHRASE26
9250                     <SET NAC10 ARG16>
9251                     <DEAD ARG16>
9252                     <VEQUAL? ARG27 3 - PHRASE31 (TYPE FIX)>
9253                     <FRAME '\1aLOAD-AC>
9254                     <PUSH TEMP12>
9255                     <DEAD TEMP12>
9256                     <PUSH 'BOTH>
9257                     <CALL '\1aLOAD-AC 2 = ARG16>
9258                     <FRAME '\1aOCEMIT>
9259                     <PUSH 'HRRM>
9260                     <PUSH ARG16>
9261                     <PUSH 2>
9262                     <CONS NAC10 () = STACK>
9263                     <CALL '\1aOCEMIT 4>
9264                     <FRAME '\1aOCEMIT>
9265                     <PUSH 'MOVEM>
9266                     <FRAME '\1aNEXT-AC>
9267                     <PUSH ARG16>
9268                     <DEAD ARG16>
9269                     <CALL '\1aNEXT-AC 1 = STACK>
9270                     <PUSH 3>
9271                     <CONS NAC10 () = STACK>
9272                     <DEAD NAC10>
9273                     <CALL '\1aOCEMIT 4 = TEMP12>
9274                     <RETURN TEMP12>
9275                     <DEAD TEMP12>
9276 PHRASE31
9277                     <VEQUAL? ARG27 5 - PHRASE36 (TYPE FIX)>
9278                     <FRAME '\1aPRIMTYPE>
9279                     <PUSH TEMP12>
9280                     <CALL '\1aPRIMTYPE 1 = ARG16>
9281                     <VEQUAL? ARG16 'WORD + BOOL39>
9282                     <DEAD ARG16>
9283                     <FRAME '\1aPRIMTYPE>
9284                     <PUSH TEMP12>
9285                     <CALL '\1aPRIMTYPE 1 = ARG16>
9286                     <VEQUAL? ARG16 'FIX - PHRASE38>
9287                     <DEAD ARG16>
9288 BOOL39
9289                     <FRAME '\1aIN-AC?>
9290                     <PUSH TEMP12>
9291                     <PUSH 'VALUE>
9292                     <CALL '\1aIN-AC? 2 = ARG16>
9293                     <TYPE? ARG16 <TYPE-CODE FALSE> - PHRASE44>
9294                     <FRAME '\1aSMASH-AC>
9295                     <PUSH 'O*>
9296                     <PUSH TEMP12>
9297                     <DEAD TEMP12>
9298                     <PUSH 'VALUE>
9299                     <CALL '\1aSMASH-AC 3 = ARG16>
9300 PHRASE44
9301                     <FRAME '\1aOCEMIT>
9302                     <PUSH 'HRLM>
9303                     <PUSH ARG16>
9304                     <DEAD ARG16>
9305                     <PUSH 2>
9306                     <CONS NAC10 () = STACK>
9307                     <DEAD NAC10>
9308                     <CALL '\1aOCEMIT 4 = TEMP12>
9309                     <RETURN TEMP12>
9310                     <DEAD TEMP12>
9311 PHRASE38
9312                     <TYPE? TEMP12 <TYPE-CODE FALSE> - PHRASE47>
9313                     <FRAME '\1aOCEMIT>
9314                     <PUSH 'HRROS>
9315                     <PUSH 'O*>
9316                     <PUSH 2>
9317                     <CONS NAC10 () = STACK>
9318                     <DEAD NAC10>
9319                     <CALL '\1aOCEMIT 4 = TEMP12>
9320                     <RETURN TEMP12>
9321                     <DEAD TEMP12>
9322 PHRASE47
9323                     <FRAME '\1aIN-AC?>
9324                     <PUSH TEMP12>
9325                     <PUSH 'VALUE>
9326                     <CALL '\1aIN-AC? 2 = ARG16>
9327                     <TYPE? ARG16 <TYPE-CODE FALSE> - PHRASE52>
9328                     <FRAME '\1aSMASH-AC>
9329                     <PUSH 'O*>
9330                     <PUSH TEMP12>
9331                     <PUSH 'VALUE>
9332                     <CALL '\1aSMASH-AC 3 = ARG16>
9333 PHRASE52
9334                     <FRAME '\1aOCEMIT>
9335                     <PUSH 'HRLM>
9336                     <PUSH ARG16>
9337                     <DEAD ARG16>
9338                     <PUSH 2>
9339                     <CONS NAC10 () = STACK>
9340                     <CALL '\1aOCEMIT 4>
9341                     <FRAME '\1aIN-AC?>
9342                     <PUSH TEMP12>
9343                     <PUSH 'TYPE>
9344                     <CALL '\1aIN-AC? 2 = AC111>
9345                     <TYPE? AC111 <TYPE-CODE FALSE> + PHRASE56>
9346                     <FRAME '\1aLOAD-TYPE>
9347                     <PUSH 'O*>
9348                     <CONS AC111 () = STACK>
9349                     <DEAD AC111>
9350                     <CALL '\1aLOAD-TYPE 2>
9351                     <FRAME '\1aMUNGED-AC>
9352                     <PUSH 'O*>
9353                     <CALL '\1aMUNGED-AC 1>
9354                     <JUMP + PHRASE60>
9355 PHRASE56
9356                     <FRAME '\1aSMASH-AC>
9357                     <PUSH 'O*>
9358                     <PUSH TEMP12>
9359                     <DEAD TEMP12>
9360                     <PUSH 'TYPECODE>
9361                     <CALL '\1aSMASH-AC 3>
9362 PHRASE60
9363                     <FRAME '\1aOCEMIT>
9364                     <PUSH 'CAIN>
9365                     <PUSH 'O*>
9366                     <FRAME '\1aTYPE-CODE>
9367                     <PUSH 'FALSE>
9368                     <CALL '\1aTYPE-CODE 1 = STACK>
9369                     <CALL '\1aOCEMIT 3>
9370                     <FRAME '\1aOCEMIT>
9371                     <PUSH 'HRROS>
9372                     <PUSH 'O*>
9373                     <PUSH 2>
9374                     <CONS NAC10 () = STACK>
9375                     <DEAD NAC10>
9376                     <CALL '\1aOCEMIT 4 = TEMP12>
9377                     <RETURN TEMP12>
9378                     <DEAD TEMP12>
9379 PHRASE36
9380                     <FRAME '\1aIN-AC?>
9381                     <PUSH TEMP12>
9382                     <PUSH 'VALUE>
9383                     <CALL '\1aIN-AC? 2 = ARG16>
9384                     <TYPE? ARG16 <TYPE-CODE FALSE> - PHRASE72>
9385                     <TYPE? TEMP12 <TYPE-CODE ATOM> - BOOL69>
9386                     <FRAME '\1aWILL-DIE?>
9387                     <PUSH TEMP12>
9388                     <CALL '\1aWILL-DIE? 1 = TEMP25>
9389                     <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE68>
9390                     <DEAD TEMP25>
9391 BOOL69
9392                     <FRAME '\1aSMASH-AC>
9393                     <PUSH 'O*>
9394                     <PUSH TEMP12>
9395                     <DEAD TEMP12>
9396                     <PUSH 'VALUE>
9397                     <CALL '\1aSMASH-AC 3 = ARG16>
9398                     <JUMP + PHRASE72>
9399 PHRASE68
9400                     <SETG 'FIRST-AC %<>>
9401                     <FRAME '\1aGET-AC>
9402                     <PUSH NAC10>
9403                     <CALL '\1aGET-AC 1 = TEMP25>
9404                     <GVAL 'AC-STAMP = ARG16>
9405                     <ADD ARG16 1 = ARG16 (TYPE FIX)>
9406                     <SETG 'AC-STAMP ARG16>
9407                     <PUTUV TEMP25 4 ARG16 (TYPE FIX)>
9408                     <DEAD TEMP25 ARG16>
9409                     <FRAME '\1aNEXT-AC>
9410                     <FRAME '\1aLOAD-AC>
9411                     <PUSH TEMP12>
9412                     <DEAD TEMP12>
9413                     <PUSH 'BOTH>
9414                     <CALL '\1aLOAD-AC 2 = STACK>
9415                     <CALL '\1aNEXT-AC 1 = ARG16>
9416 PHRASE72
9417                     <FRAME '\1aOCEMIT>
9418                     <PUSH 'MOVEM>
9419                     <PUSH ARG16>
9420                     <DEAD ARG16>
9421                     <NTHUV [0 1 %<> 4] ARG27 = STACK>
9422                     <DEAD ARG27>
9423                     <CONS NAC10 () = STACK>
9424                     <DEAD NAC10>
9425                     <CALL '\1aOCEMIT 4 = TEMP12>
9426                     <RETURN TEMP12>
9427                     <DEAD TEMP12>
9428                     <END \1aATOM-PUT>
9429 #WORD *10752271360*
9430 <GFCN \1aNTHR!-MIMOC ("VALUE" ANY LIST "OPTIONAL" ANY) L8 NOGP9>
9431                     <OPT-DISPATCH 1 %<> OPT6 OPT7>
9432 OPT6
9433                     <PUSH %<>>
9434 OPT7
9435                     <TEMP ARG110 TEMP14 ARG211 TEMP18:FIX T12 M13 TEMP24 TEMP29>
9436                     <INTGO>
9437                     <NTHL L8 1 = ARG110>
9438                     <RESTL L8 1 = TEMP14 (TYPE LIST)>
9439                     <NTHL TEMP14 1 = ARG211>
9440                     <DEAD TEMP14>
9441                     <TYPE? NOGP9 <TYPE-CODE FALSE> - PHRASE16>
9442                     <DEAD NOGP9>
9443                     <TYPE? ARG211 <TYPE-CODE FIX> - PHRASE16>
9444                     <SET TEMP14 L8>
9445                     <SET TEMP18 5 (TYPE FIX)>
9446                     <LOOP (TEMP14 VALUE) (TEMP18 VALUE)>
9447 TAG19
9448                     <EMPL? TEMP14 + PHRASE16>
9449                     <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
9450                     <SUB TEMP18 1 = TEMP18 (TYPE FIX)>
9451                     <GRTR? TEMP18 0 + TAG19 (TYPE FIX)>
9452                     <DEAD TEMP14 TEMP18>
9453                     <NTHL L8 5 = T12>
9454                     <TYPE? T12 <TYPE-CODE LIST> - PHRASE16>
9455                     <NTHL T12 1 = TEMP14>
9456                     <EQUAL? TEMP14 'RECORD-TYPE - PHRASE16>
9457                     <DEAD TEMP14>
9458                     <RESTL T12 1 = TEMP14 (TYPE LIST)>
9459                     <DEAD T12>
9460                     <NTHL TEMP14 1 = TEMP14>
9461                     <GVAL 'NTHR-TABLE = M13>
9462                     <TYPE? TEMP14 <TYPE-CODE ATOM> - TAG20>
9463                     <EMPUV? M13 + TAG20>
9464                     <LOOP (TEMP14 VALUE) (M13 LENGTH VALUE)>
9465 TAG22
9466                     <NTHUV M13 1 = TEMP24>
9467                     <VEQUAL? TEMP24 TEMP14 + TAG21>
9468                     <DEAD TEMP24>
9469                     <RESTUV M13 1 = M13 (TYPE VECTOR)>
9470                     <EMPUV? M13 - TAG22>
9471 TAG20
9472                     <DEAD M13 TEMP14>
9473                     <SET M13 %<> (TYPE FALSE)>
9474 TAG21
9475                     <TYPE? M13 <TYPE-CODE FALSE> + PHRASE16>
9476                     <FRAME>
9477                     <NTHUV M13 2 = M13 (TYPE ATOM)>
9478                     <GVAL M13 = M13>
9479                     <PUSH L8>
9480                     <ACALL M13 1 = M13>
9481                     <RETURN M13>
9482                     <DEAD M13>
9483 PHRASE16
9484                     <FRAME '\1aUPDATE-ACS>
9485                     <CALL '\1aUPDATE-ACS 0>
9486                     <FRAME '\1aOCEMIT>
9487                     <PUSH 'MOVE>
9488                     <PUSH 'O1*>
9489                     <SET TEMP29 2 (TYPE FIX)>
9490                     <SFRAME 'OBJ-VAL>
9491                     <PUSH ARG110>
9492                     <SCALL '\1aOBJ-VAL 1 = TEMP24 + TAG28 TEMP29>
9493                     <LOOP (TEMP24 TYPE VALUE LENGTH) (TEMP29 VALUE)>
9494 TAG31
9495                     <INTGO>
9496                     <EMPTY? TEMP24 + TAG28>
9497                     <NTH1 TEMP24 = STACK>
9498                     <REST1 TEMP24 = TEMP24>
9499                     <ADD TEMP29 1 = TEMP29 (TYPE FIX)>
9500                     <JUMP + TAG31>
9501 TAG28
9502                     <DEAD TEMP24>
9503                     <CALL '\1aOCEMIT TEMP29>
9504                     <DEAD TEMP29>
9505                     <FRAME '\1aOCEMIT>
9506                     <PUSH 'MOVE>
9507                     <PUSH 'O2*>
9508                     <SET TEMP24 2 (TYPE FIX)>
9509                     <SFRAME 'OBJ-VAL>
9510                     <PUSH ARG211>
9511                     <DEAD ARG211>
9512                     <SCALL '\1aOBJ-VAL 1 = TEMP29 + TAG33 TEMP24>
9513                     <LOOP (TEMP29 TYPE VALUE LENGTH) (TEMP24 VALUE)>
9514 TAG35
9515                     <INTGO>
9516                     <EMPTY? TEMP29 + TAG33>
9517                     <NTH1 TEMP29 = STACK>
9518                     <REST1 TEMP29 = TEMP29>
9519                     <ADD TEMP24 1 = TEMP24 (TYPE FIX)>
9520                     <JUMP + TAG35>
9521 TAG33
9522                     <DEAD TEMP29>
9523                     <CALL '\1aOCEMIT TEMP24>
9524                     <DEAD TEMP24>
9525                     <FRAME '\1aOCEMIT>
9526                     <PUSH 'HLRZ>
9527                     <PUSH 'A1*>
9528                     <SET TEMP29 2 (TYPE FIX)>
9529                     <SFRAME 'OBJ-TYP>
9530                     <PUSH ARG110>
9531                     <DEAD ARG110>
9532                     <SCALL '\1aOBJ-TYP 1 = TEMP24 + TAG37 TEMP29>
9533                     <LOOP (TEMP24 TYPE VALUE LENGTH) (TEMP29 VALUE)>
9534 TAG39
9535                     <INTGO>
9536                     <EMPTY? TEMP24 + TAG37>
9537                     <NTH1 TEMP24 = STACK>
9538                     <REST1 TEMP24 = TEMP24>
9539                     <ADD TEMP29 1 = TEMP29 (TYPE FIX)>
9540                     <JUMP + TAG39>
9541 TAG37
9542                     <DEAD TEMP24>
9543                     <CALL '\1aOCEMIT TEMP29>
9544                     <DEAD TEMP29>
9545                     <FRAME '\1aOCEMIT>
9546                     <PUSH 'ANDI>
9547                     <PUSH 'A1*>
9548                     <PUSH 65535>
9549                     <CALL '\1aOCEMIT 3>
9550                     <FRAME '\1aOCEMIT>
9551                     <PUSH 'LSH>
9552                     <PUSH 'A1*>
9553                     <PUSH -6>
9554                     <CALL '\1aOCEMIT 3>
9555                     <FRAME '\1aPUSHJ>
9556                     <PUSH 'NTHR>
9557                     <RESTL L8 1 = TEMP29 (TYPE LIST)>
9558                     <DEAD L8>
9559                     <RESTL TEMP29 1 = TEMP29 (TYPE LIST)>
9560                     <RESTL TEMP29 1 = TEMP29 (TYPE LIST)>
9561                     <NTHL TEMP29 1 = STACK>
9562                     <DEAD TEMP29>
9563                     <CALL '\1aPUSHJ 2 = TEMP14>
9564                     <RETURN TEMP14>
9565                     <DEAD TEMP14>
9566                     <END \1aNTHR!-MIMOC>
9567 #WORD *34003552460*
9568 <GFCN \1aPUTR!-MIMOC ("VALUE" ANY LIST "OPTIONAL" ANY) L8 NOGP9>
9569                     <OPT-DISPATCH 1 %<> OPT6 OPT7>
9570 OPT6
9571                     <PUSH %<>>
9572 OPT7
9573                     <TEMP ARG110 TEMP14 ARG211 TEMP18:FIX T12 M13 TEMP24 TEMP30>
9574                     <INTGO>
9575                     <NTHL L8 1 = ARG110>
9576                     <RESTL L8 1 = TEMP14 (TYPE LIST)>
9577                     <NTHL TEMP14 1 = ARG211>
9578                     <DEAD TEMP14>
9579                     <TYPE? NOGP9 <TYPE-CODE FALSE> - PHRASE16>
9580                     <DEAD NOGP9>
9581                     <TYPE? ARG211 <TYPE-CODE FIX> - PHRASE16>
9582                     <SET TEMP14 L8>
9583                     <SET TEMP18 4 (TYPE FIX)>
9584                     <LOOP (TEMP14 VALUE) (TEMP18 VALUE)>
9585 TAG19
9586                     <EMPL? TEMP14 + PHRASE16>
9587                     <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
9588                     <SUB TEMP18 1 = TEMP18 (TYPE FIX)>
9589                     <GRTR? TEMP18 0 + TAG19 (TYPE FIX)>
9590                     <DEAD TEMP14 TEMP18>
9591                     <RESTL L8 1 = TEMP14 (TYPE LIST)>
9592                     <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
9593                     <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
9594                     <NTHL TEMP14 1 = T12>
9595                     <DEAD TEMP14>
9596                     <TYPE? T12 <TYPE-CODE LIST> - PHRASE16>
9597                     <NTHL T12 1 = TEMP14>
9598                     <EQUAL? TEMP14 'RECORD-TYPE - PHRASE16>
9599                     <DEAD TEMP14>
9600                     <RESTL T12 1 = TEMP14 (TYPE LIST)>
9601                     <DEAD T12>
9602                     <NTHL TEMP14 1 = TEMP14>
9603                     <GVAL 'PUTR-TABLE = M13>
9604                     <TYPE? TEMP14 <TYPE-CODE ATOM> - TAG20>
9605                     <EMPUV? M13 + TAG20>
9606                     <LOOP (TEMP14 VALUE) (M13 LENGTH VALUE)>
9607 TAG22
9608                     <NTHUV M13 1 = TEMP24>
9609                     <VEQUAL? TEMP24 TEMP14 + TAG21>
9610                     <DEAD TEMP24>
9611                     <RESTUV M13 1 = M13 (TYPE VECTOR)>
9612                     <EMPUV? M13 - TAG22>
9613 TAG20
9614                     <DEAD M13 TEMP14>
9615                     <SET M13 %<> (TYPE FALSE)>
9616 TAG21
9617                     <TYPE? M13 <TYPE-CODE FALSE> + PHRASE16>
9618                     <FRAME>
9619                     <NTHUV M13 2 = M13 (TYPE ATOM)>
9620                     <GVAL M13 = M13>
9621                     <PUSH L8>
9622                     <ACALL M13 1 = M13>
9623                     <RETURN M13>
9624                     <DEAD M13>
9625 PHRASE16
9626                     <FRAME '\1aUPDATE-ACS>
9627                     <CALL '\1aUPDATE-ACS 0>
9628                     <FRAME '\1aSMASH-AC>
9629                     <PUSH 'C1*>
9630                     <RESTL L8 1 = TEMP24 (TYPE LIST)>
9631                     <DEAD L8>
9632                     <RESTL TEMP24 1 = TEMP24 (TYPE LIST)>
9633                     <NTHL TEMP24 1 = STACK>
9634                     <DEAD TEMP24>
9635                     <PUSH 'BOTH>
9636                     <CALL '\1aSMASH-AC 3>
9637                     <FRAME '\1aOCEMIT>
9638                     <PUSH 'MOVE>
9639                     <PUSH 'O1*>
9640                     <SET TEMP30 2 (TYPE FIX)>
9641                     <SFRAME 'OBJ-VAL>
9642                     <PUSH ARG110>
9643                     <SCALL '\1aOBJ-VAL 1 = TEMP24 + TAG29 TEMP30>
9644                     <LOOP (TEMP24 TYPE VALUE LENGTH) (TEMP30 VALUE)>
9645 TAG32
9646                     <INTGO>
9647                     <EMPTY? TEMP24 + TAG29>
9648                     <NTH1 TEMP24 = STACK>
9649                     <REST1 TEMP24 = TEMP24>
9650                     <ADD TEMP30 1 = TEMP30 (TYPE FIX)>
9651                     <JUMP + TAG32>
9652 TAG29
9653                     <DEAD TEMP24>
9654                     <CALL '\1aOCEMIT TEMP30>
9655                     <DEAD TEMP30>
9656                     <FRAME '\1aOCEMIT>
9657                     <PUSH 'MOVE>
9658                     <PUSH 'O2*>
9659                     <SET TEMP24 2 (TYPE FIX)>
9660                     <SFRAME 'OBJ-VAL>
9661                     <PUSH ARG211>
9662                     <DEAD ARG211>
9663                     <SCALL '\1aOBJ-VAL 1 = TEMP30 + TAG34 TEMP24>
9664                     <LOOP (TEMP30 TYPE VALUE LENGTH) (TEMP24 VALUE)>
9665 TAG36
9666                     <INTGO>
9667                     <EMPTY? TEMP30 + TAG34>
9668                     <NTH1 TEMP30 = STACK>
9669                     <REST1 TEMP30 = TEMP30>
9670                     <ADD TEMP24 1 = TEMP24 (TYPE FIX)>
9671                     <JUMP + TAG36>
9672 TAG34
9673                     <DEAD TEMP30>
9674                     <CALL '\1aOCEMIT TEMP24>
9675                     <DEAD TEMP24>
9676                     <FRAME '\1aOCEMIT>
9677                     <PUSH 'HLRZ>
9678                     <PUSH 'A1*>
9679                     <SET TEMP30 2 (TYPE FIX)>
9680                     <SFRAME 'OBJ-TYP>
9681                     <PUSH ARG110>
9682                     <DEAD ARG110>
9683                     <SCALL '\1aOBJ-TYP 1 = TEMP24 + TAG38 TEMP30>
9684                     <LOOP (TEMP24 TYPE VALUE LENGTH) (TEMP30 VALUE)>
9685 TAG40
9686                     <INTGO>
9687                     <EMPTY? TEMP24 + TAG38>
9688                     <NTH1 TEMP24 = STACK>
9689                     <REST1 TEMP24 = TEMP24>
9690                     <ADD TEMP30 1 = TEMP30 (TYPE FIX)>
9691                     <JUMP + TAG40>
9692 TAG38
9693                     <DEAD TEMP24>
9694                     <CALL '\1aOCEMIT TEMP30>
9695                     <DEAD TEMP30>
9696                     <FRAME '\1aOCEMIT>
9697                     <PUSH 'ANDI>
9698                     <PUSH 'A1*>
9699                     <PUSH 65535>
9700                     <CALL '\1aOCEMIT 3>
9701                     <FRAME '\1aOCEMIT>
9702                     <PUSH 'LSH>
9703                     <PUSH 'A1*>
9704                     <PUSH -6>
9705                     <CALL '\1aOCEMIT 3>
9706                     <FRAME '\1aOCEMIT>
9707                     <PUSH 'MOVEI>
9708                     <PUSH 'B2*>
9709                     <PUSH 'C1*>
9710                     <CALL '\1aOCEMIT 3>
9711                     <FRAME '\1aPUSHJ>
9712                     <PUSH 'PUTR>
9713                     <CALL '\1aPUSHJ 1 = TEMP14>
9714                     <RETURN TEMP14>
9715                     <DEAD TEMP14>
9716                     <END \1aPUTR!-MIMOC>
9717 #WORD *6256713076*
9718 <GFCN \1aLIST!-MIMOC ("VALUE" ANY <LIST ANY ANY ANY>) L5>
9719                     <TEMP TEMP10 TEMP13>
9720                     <INTGO>
9721                     <FRAME '\1aUPDATE-ACS>
9722                     <CALL '\1aUPDATE-ACS 0>
9723                     <NTHL L5 1 = TEMP10>
9724                     <TYPE? TEMP10 <TYPE-CODE FIX> - PHRASE8>
9725                     <DEAD TEMP10>
9726                     <NTHL L5 1 = TEMP10 (TYPE FIX)>
9727                     <GRTR? TEMP10 262143 + PHRASE8 (TYPE FIX)>
9728                     <DEAD TEMP10>
9729                     <GVAL 'WINNING-VICTIM = TEMP10>
9730                     <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE12>
9731                     <DEAD TEMP10>
9732                     <GVAL 'STACK-DEPTH = TEMP10>
9733                     <NTHL L5 1 = TEMP13 (TYPE FIX)>
9734                     <LSH TEMP13 1 = TEMP13 (TYPE FIX)>
9735                     <SUB TEMP10 TEMP13 = TEMP10 (TYPE FIX)>
9736                     <DEAD TEMP13>
9737                     <SETG 'STACK-DEPTH TEMP10>
9738                     <DEAD TEMP10>
9739 PHRASE12
9740                     <FRAME '\1aOCEMIT>
9741                     <PUSH 'MOVEI>
9742                     <PUSH 'O1*>
9743                     <NTHL L5 1 = STACK (TYPE FIX)>
9744                     <CALL '\1aOCEMIT 3>
9745                     <JUMP + PHRASE15>
9746 PHRASE8
9747                     <FRAME '\1aOCEMIT>
9748                     <PUSH 'MOVE>
9749                     <PUSH 'O1*>
9750                     <SET TEMP13 2 (TYPE FIX)>
9751                     <SFRAME 'OBJ-VAL>
9752                     <NTHL L5 1 = STACK>
9753                     <SCALL '\1aOBJ-VAL 1 = TEMP10 + TAG16 TEMP13>
9754                     <LOOP (TEMP10 TYPE VALUE LENGTH) (TEMP13 VALUE)>
9755 TAG18
9756                     <INTGO>
9757                     <EMPTY? TEMP10 + TAG16>
9758                     <NTH1 TEMP10 = STACK>
9759                     <REST1 TEMP10 = TEMP10>
9760                     <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
9761                     <JUMP + TAG18>
9762 TAG16
9763                     <DEAD TEMP10>
9764                     <CALL '\1aOCEMIT TEMP13>
9765                     <DEAD TEMP13>
9766 PHRASE15
9767                     <FRAME '\1aPUSHJ>
9768                     <PUSH 'LIST>
9769                     <RESTL L5 1 = TEMP13 (TYPE LIST)>
9770                     <DEAD L5>
9771                     <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
9772                     <NTHL TEMP13 1 = STACK>
9773                     <DEAD TEMP13>
9774                     <CALL '\1aPUSHJ 2 = TEMP13>
9775                     <RETURN TEMP13>
9776                     <DEAD TEMP13>
9777                     <END \1aLIST!-MIMOC>
9778 #WORD *35666037175*
9779 <GFCN \1aUBLOCK!-MIMOC ("VALUE" ANY ANY) L5>
9780                     <TEMP TEMP7>
9781                     <INTGO>
9782                     <FRAME '\1aDO-UBLOCK>
9783                     <PUSH 'UBLOCK>
9784                     <PUSH L5>
9785                     <DEAD L5>
9786                     <PUSH %<>>
9787                     <PUSH 'T>
9788                     <CALL '\1aDO-UBLOCK 4 = TEMP7>
9789                     <RETURN TEMP7>
9790                     <DEAD TEMP7>
9791                     <END \1aUBLOCK!-MIMOC>
9792 #WORD *5334173053*
9793 <GFCN \1aUUBLOCK!-MIMOC ("VALUE" ANY ANY) L5>
9794                     <TEMP TEMP7>
9795                     <INTGO>
9796                     <FRAME '\1aDO-UBLOCK>
9797                     <PUSH 'UUBLOCK>
9798                     <PUSH L5>
9799                     <DEAD L5>
9800                     <PUSH %<>>
9801                     <PUSH %<>>
9802                     <CALL '\1aDO-UBLOCK 4 = TEMP7>
9803                     <RETURN TEMP7>
9804                     <DEAD TEMP7>
9805                     <END \1aUUBLOCK!-MIMOC>
9806 #WORD *32430063075*
9807 <GFCN \1aSBLOCK!-MIMOC ("VALUE" ANY ANY) L5>
9808                     <TEMP TEMP7>
9809                     <INTGO>
9810                     <FRAME '\1aDO-UBLOCK>
9811                     <PUSH 'SBLOCK>
9812                     <PUSH L5>
9813                     <DEAD L5>
9814                     <PUSH 'T>
9815                     <PUSH 'T>
9816                     <CALL '\1aDO-UBLOCK 4 = TEMP7>
9817                     <RETURN TEMP7>
9818                     <DEAD TEMP7>
9819                     <END \1aSBLOCK!-MIMOC>
9820 #WORD *2162127153*
9821 <GFCN \1aUSBLOCK!-MIMOC ("VALUE" ANY ANY) L5>
9822                     <TEMP TEMP7>
9823                     <INTGO>
9824                     <FRAME '\1aDO-UBLOCK>
9825                     <PUSH 'USBLOCK>
9826                     <PUSH L5>
9827                     <DEAD L5>
9828                     <PUSH 'T>
9829                     <PUSH %<>>
9830                     <CALL '\1aDO-UBLOCK 4 = TEMP7>
9831                     <RETURN TEMP7>
9832                     <DEAD TEMP7>
9833                     <END \1aUSBLOCK!-MIMOC>
9834 #WORD *34662471145*
9835 <GFCN \1aDO-UBLOCK ("VALUE" ANY ANY LIST ANY ANY) NAM5 L6 STACK?7 INIT?8>
9836                     <TEMP ATM9 TEMP20 TEMP22 NITMS10:FIX NWRDS11:FIX TEMP53>
9837                     <INTGO>
9838                     <FRAME '\1aUPDATE-ACS>
9839                     <CALL '\1aUPDATE-ACS 0>
9840                     <NTHL L6 1 = ATM9>
9841                     <TYPE? ATM9 <TYPE-CODE FIX> - PHRASE14>
9842                     <GRTR? ATM9 262143 + PHRASE14 (TYPE FIX)>
9843                     <FRAME '\1aOCEMIT>
9844                     <PUSH 'MOVEI>
9845                     <PUSH 'O1*>
9846                     <PUSH ATM9>
9847                     <CALL '\1aOCEMIT 3>
9848                     <JUMP + PHRASE26>
9849 PHRASE14
9850                     <TYPE? ATM9 <TYPE-CODE ATOM> + BOOL18>
9851                     <TYPE? ATM9 <TYPE-CODE FORM> - PHRASE17>
9852                     <EMPL? ATM9 + PHRASE17 (TYPE FORM)>
9853                     <NTHL ATM9 1 = TEMP20>
9854                     <EQUAL? TEMP20 'QUOTE - PHRASE17>
9855                     <DEAD TEMP20>
9856                     <RESTL ATM9 1 = ATM9 (TYPE LIST)>
9857                     <NTHL ATM9 1 = ATM9>
9858                     <TYPE? ATM9 <TYPE-CODE ATOM> - PHRASE17>
9859 BOOL18
9860                     <FRAME '\1aOCEMIT>
9861                     <PUSH 'MOVEI>
9862                     <PUSH 'O1*>
9863                     <SET TEMP22 2 (TYPE FIX)>
9864                     <SFRAME 'TYPE-CODE>
9865                     <PUSH ATM9>
9866                     <PUSH 'T>
9867                     <SCALL '\1aTYPE-CODE 2 = TEMP20 + TAG21 TEMP22>
9868                     <LOOP (TEMP20 TYPE VALUE LENGTH) (TEMP22 VALUE)>
9869 TAG24
9870                     <INTGO>
9871                     <EMPTY? TEMP20 + TAG21>
9872                     <NTH1 TEMP20 = STACK>
9873                     <REST1 TEMP20 = TEMP20>
9874                     <ADD TEMP22 1 = TEMP22 (TYPE FIX)>
9875                     <JUMP + TAG24>
9876 TAG21
9877                     <DEAD TEMP20>
9878                     <CALL '\1aOCEMIT TEMP22>
9879                     <DEAD TEMP22>
9880                     <JUMP + PHRASE26>
9881 PHRASE17
9882                     <FRAME '\1aOCEMIT>
9883                     <PUSH 'MOVE>
9884                     <PUSH 'O1*>
9885                     <SET TEMP20 2 (TYPE FIX)>
9886                     <SFRAME 'OBJ-VAL>
9887                     <PUSH ATM9>
9888                     <SCALL '\1aOBJ-VAL 1 = TEMP22 + TAG27 TEMP20>
9889                     <LOOP (TEMP22 TYPE VALUE LENGTH) (TEMP20 VALUE)>
9890 TAG29
9891                     <INTGO>
9892                     <EMPTY? TEMP22 + TAG27>
9893                     <NTH1 TEMP22 = STACK>
9894                     <REST1 TEMP22 = TEMP22>
9895                     <ADD TEMP20 1 = TEMP20 (TYPE FIX)>
9896                     <JUMP + TAG29>
9897 TAG27
9898                     <DEAD TEMP22>
9899                     <CALL '\1aOCEMIT TEMP20>
9900                     <DEAD TEMP20>
9901 PHRASE26
9902                     <RESTL L6 1 = TEMP20 (TYPE LIST)>
9903                     <NTHL TEMP20 1 = TEMP20>
9904                     <TYPE? TEMP20 <TYPE-CODE FIX> - PHRASE32>
9905                     <DEAD TEMP20>
9906                     <RESTL L6 1 = TEMP20 (TYPE LIST)>
9907                     <NTHL TEMP20 1 = NITMS10 (TYPE FIX)>
9908                     <DEAD TEMP20>
9909                     <GRTR? NITMS10 262143 + PHRASE32 (TYPE FIX)>
9910                     <TYPE? ATM9 <TYPE-CODE ATOM> - PHRASE35>
9911                     <NTHR ATM9 5 = ATM9 (RECORD-TYPE ATOM) (TYPE TYPE-C)>
9912                     <CHTYPE ATM9 <TYPE-CODE FIX> = ATM9>
9913 PHRASE35
9914                     <AND ATM9 7 = ATM9>
9915                     <VEQUAL? ATM9 4 - PHRASE37 (TYPE FIX)>
9916                     <ADD NITMS10 3 = TEMP20 (TYPE FIX)>
9917                     <DIV TEMP20 4 = NWRDS11 (TYPE FIX)>
9918                     <DEAD TEMP20>
9919                     <JUMP + PHRASE40>
9920 PHRASE37
9921                     <VEQUAL? ATM9 5 - PHRASE38 (TYPE FIX)>
9922                     <ADD NITMS10 4 = TEMP20 (TYPE FIX)>
9923                     <DIV TEMP20 5 = NWRDS11 (TYPE FIX)>
9924                     <DEAD TEMP20>
9925                     <JUMP + PHRASE40>
9926 PHRASE38
9927                     <VEQUAL? ATM9 6 - PHRASE39 (TYPE FIX)>
9928                     <DEAD ATM9>
9929                     <SET NWRDS11 NITMS10>
9930                     <JUMP + PHRASE40>
9931 PHRASE39
9932                     <LSH NITMS10 1 = NWRDS11 (TYPE FIX)>
9933 PHRASE40
9934                     <GVAL 'WINNING-VICTIM = TEMP20>
9935                     <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE48>
9936                     <DEAD TEMP20>
9937                     <TYPE? STACK?7 <TYPE-CODE FALSE> - PHRASE44>
9938                     <TYPE? INIT?8 <TYPE-CODE FALSE> + PHRASE44>
9939                     <GVAL 'STACK-DEPTH = TEMP20>
9940                     <LSH NITMS10 1 = TEMP22 (TYPE FIX)>
9941                     <SUB TEMP20 TEMP22 = TEMP20 (TYPE FIX)>
9942                     <DEAD TEMP22>
9943                     <SETG 'STACK-DEPTH TEMP20>
9944                     <DEAD TEMP20>
9945                     <JUMP + PHRASE48>
9946 PHRASE44
9947                     <TYPE? STACK?7 <TYPE-CODE FALSE> + PHRASE46>
9948                     <TYPE? INIT?8 <TYPE-CODE FALSE> - PHRASE46>
9949                     <DEAD INIT?8>
9950                     <GVAL 'STACK-DEPTH = TEMP20>
9951                     <ADD TEMP20 NWRDS11 = TEMP20 (TYPE FIX)>
9952                     <DEAD NWRDS11>
9953                     <ADD TEMP20 2 = TEMP20 (TYPE FIX)>
9954                     <SETG 'STACK-DEPTH TEMP20>
9955                     <DEAD TEMP20>
9956                     <JUMP + PHRASE48>
9957 PHRASE46
9958                     <TYPE? STACK?7 <TYPE-CODE FALSE> + PHRASE48>
9959                     <DEAD STACK?7>
9960                     <SUB 0 NITMS10 = TEMP20 (TYPE FIX)>
9961                     <GVAL 'STACK-DEPTH = TEMP22>
9962                     <ADD TEMP20 TEMP22 = TEMP20 (TYPE FIX)>
9963                     <DEAD TEMP22>
9964                     <ADD TEMP20 NWRDS11 = TEMP20 (TYPE FIX)>
9965                     <DEAD NWRDS11>
9966                     <ADD TEMP20 2 = TEMP20 (TYPE FIX)>
9967                     <SETG 'STACK-DEPTH TEMP20>
9968                     <DEAD TEMP20>
9969 PHRASE48
9970                     <FRAME '\1aOCEMIT>
9971                     <PUSH 'MOVEI>
9972                     <PUSH 'O2*>
9973                     <PUSH NITMS10>
9974                     <DEAD NITMS10>
9975                     <CALL '\1aOCEMIT 3>
9976                     <JUMP + PHRASE50>
9977 PHRASE32
9978                     <FRAME '\1aOCEMIT>
9979                     <PUSH 'MOVE>
9980                     <PUSH 'O2*>
9981                     <SET TEMP22 2 (TYPE FIX)>
9982                     <SFRAME 'OBJ-VAL>
9983                     <RESTL L6 1 = TEMP53 (TYPE LIST)>
9984                     <NTHL TEMP53 1 = STACK>
9985                     <DEAD TEMP53>
9986                     <SCALL '\1aOBJ-VAL 1 = TEMP20 + TAG51 TEMP22>
9987                     <LOOP (TEMP20 TYPE VALUE LENGTH) (TEMP22 VALUE)>
9988 TAG54
9989                     <INTGO>
9990                     <EMPTY? TEMP20 + TAG51>
9991                     <NTH1 TEMP20 = STACK>
9992                     <REST1 TEMP20 = TEMP20>
9993                     <ADD TEMP22 1 = TEMP22 (TYPE FIX)>
9994                     <JUMP + TAG54>
9995 TAG51
9996                     <DEAD TEMP20>
9997                     <CALL '\1aOCEMIT TEMP22>
9998                     <DEAD TEMP22>
9999 PHRASE50
10000                     <FRAME '\1aPUSHJ>
10001                     <PUSH NAM5>
10002                     <DEAD NAM5>
10003                     <RESTL L6 1 = TEMP53 (TYPE LIST)>
10004                     <DEAD L6>
10005                     <RESTL TEMP53 1 = TEMP53 (TYPE LIST)>
10006                     <RESTL TEMP53 1 = TEMP53 (TYPE LIST)>
10007                     <NTHL TEMP53 1 = STACK>
10008                     <DEAD TEMP53>
10009                     <CALL '\1aPUSHJ 2 = TEMP53>
10010                     <RETURN TEMP53>
10011                     <DEAD TEMP53>
10012                     <END \1aDO-UBLOCK>\r\r
10013 #WORD *26743130756*
10014 <GFCN \1aRECORD!-MIMOC ("VALUE" ANY LIST) L5>
10015                     <TEMP TYP6 TEMP16 TEMP22 LL36:LIST CNT37:FIX SD40:FIX ITM38>
10016                     <INTGO>
10017                     <NTHL L5 1 = TYP6>
10018                     <FRAME '\1aUPDATE-ACS>
10019                     <CALL '\1aUPDATE-ACS 0>
10020                     <TYPE? TYP6 <TYPE-CODE FORM> - PHRASE14>
10021                     <EMPL? TYP6 + PHRASE14>
10022                     <RESTL TYP6 1 = TEMP16 (TYPE LIST)>
10023                     <EMPL? TEMP16 + PHRASE14>
10024                     <DEAD TEMP16>
10025                     <NTHL TYP6 1 = TEMP16>
10026                     <EQUAL? TEMP16 'QUOTE - PHRASE14>
10027                     <DEAD TEMP16>
10028                     <RESTL TYP6 1 = TEMP16 (TYPE LIST)>
10029                     <NTHL TEMP16 1 = TEMP16>
10030                     <EQUAL? TEMP16 'ATOM + BOOL19>
10031                     <EQUAL? TEMP16 'LBIND + BOOL19>
10032                     <EQUAL? TEMP16 'GBIND - PHRASE18>
10033 BOOL19
10034                     <FRAME '\1aEXPLICIT-MAKE-RECORD>
10035                     <PUSH TEMP16>
10036                     <DEAD TEMP16>
10037                     <PUSH L5>
10038                     <DEAD L5>
10039                     <CALL '\1aEXPLICIT-MAKE-RECORD 2>
10040                     <RETURN 'T>
10041 PHRASE18
10042                     <FRAME '\1aOCEMIT>
10043                     <PUSH 'MOVEI>
10044                     <PUSH 'O1*>
10045                     <SET TEMP22 2 (TYPE FIX)>
10046                     <SFRAME 'TYPE-CODE>
10047                     <RESTL TYP6 1 = TYP6 (TYPE LIST)>
10048                     <NTHL TYP6 1 = STACK>
10049                     <DEAD TYP6>
10050                     <PUSH 'T>
10051                     <SCALL '\1aTYPE-CODE 2 = TEMP16 + TAG21 TEMP22>
10052                     <LOOP (TEMP16 TYPE VALUE LENGTH) (TEMP22 VALUE)>
10053 TAG25
10054                     <INTGO>
10055                     <EMPTY? TEMP16 + TAG21>
10056                     <NTH1 TEMP16 = STACK>
10057                     <REST1 TEMP16 = TEMP16>
10058                     <ADD TEMP22 1 = TEMP22 (TYPE FIX)>
10059                     <JUMP + TAG25>
10060 TAG21
10061                     <CALL '\1aOCEMIT TEMP22>
10062                     <DEAD TEMP22>
10063                     <JUMP + PHRASE30>
10064 PHRASE14
10065                     <TYPE? TYP6 <TYPE-CODE FIX> - PHRASE27>
10066                     <GRTR? TYP6 262143 + PHRASE27 (TYPE FIX)>
10067                     <FRAME '\1aOCEMIT>
10068                     <PUSH 'MOVEI>
10069                     <PUSH 'O1*>
10070                     <PUSH TYP6>
10071                     <DEAD TYP6>
10072                     <CALL '\1aOCEMIT 3>
10073                     <JUMP + PHRASE30>
10074 PHRASE27
10075                     <FRAME '\1aOCEMIT>
10076                     <PUSH 'MOVE>
10077                     <PUSH 'O1*>
10078                     <SET TEMP16 2 (TYPE FIX)>
10079                     <SFRAME 'OBJ-VAL>
10080                     <PUSH TYP6>
10081                     <DEAD TYP6>
10082                     <SCALL '\1aOBJ-VAL 1 = TEMP22 + TAG31 TEMP16>
10083                     <LOOP (TEMP22 TYPE VALUE LENGTH) (TEMP16 VALUE)>
10084 TAG33
10085                     <INTGO>
10086                     <EMPTY? TEMP22 + TAG31>
10087                     <NTH1 TEMP22 = STACK>
10088                     <REST1 TEMP22 = TEMP22>
10089                     <ADD TEMP16 1 = TEMP16 (TYPE FIX)>
10090                     <JUMP + TAG33>
10091 TAG31
10092                     <CALL '\1aOCEMIT TEMP16>
10093                     <DEAD TEMP16>
10094 PHRASE30
10095                     <RESTL L5 1 = LL36 (TYPE LIST)>
10096                     <SET CNT37 0 (TYPE FIX)>
10097                     <GVAL 'WINNING-VICTIM = TEMP16>
10098                     <SET TEMP22 TEMP16>
10099                     <TYPE? TEMP22 <TYPE-CODE FALSE> + BOOL41>
10100                     <GVAL 'STACK-DEPTH = TEMP22>
10101 BOOL41
10102                     <SET SD40 TEMP22>
10103                     <DEAD TEMP22>
10104                     <LOOP>
10105 AGAIN42
10106                     <INTGO>
10107                     <NTHL LL36 1 = ITM38>
10108                     <EQUAL? ITM38 '= - PHRASE44>
10109                     <FRAME '\1aOCEMIT>
10110                     <PUSH 'MOVEI>
10111                     <PUSH 'O2*>
10112                     <PUSH CNT37>
10113                     <DEAD CNT37>
10114                     <CALL '\1aOCEMIT 3>
10115                     <SETG 'STACK-DEPTH SD40>
10116                     <DEAD SD40>
10117                     <JUMP + EXIT35>
10118 PHRASE44
10119                     <FRAME '\1aOCEMIT>
10120                     <PUSH 'PUSH>
10121                     <PUSH 'TP*>
10122                     <SET TYP6 2 (TYPE FIX)>
10123                     <SFRAME 'OBJ-TYP>
10124                     <PUSH ITM38>
10125                     <SCALL '\1aOBJ-TYP 1 = TEMP22 + TAG47 TYP6>
10126                     <LOOP (TEMP22 TYPE VALUE LENGTH) (TYP6 VALUE)>
10127 TAG49
10128                     <INTGO>
10129                     <EMPTY? TEMP22 + TAG47>
10130                     <NTH1 TEMP22 = STACK>
10131                     <REST1 TEMP22 = TEMP22>
10132                     <ADD TYP6 1 = TYP6 (TYPE FIX)>
10133                     <JUMP + TAG49>
10134 TAG47
10135                     <CALL '\1aOCEMIT TYP6>
10136                     <DEAD TYP6>
10137                     <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE52>
10138                     <GVAL 'STACK-DEPTH = TYP6>
10139                     <ADD TYP6 1 = TYP6 (TYPE FIX)>
10140                     <SETG 'STACK-DEPTH TYP6>
10141                     <DEAD TYP6>
10142 PHRASE52
10143                     <FRAME '\1aOCEMIT>
10144                     <PUSH 'PUSH>
10145                     <PUSH 'TP*>
10146                     <SET TEMP22 2 (TYPE FIX)>
10147                     <SFRAME 'OBJ-VAL>
10148                     <PUSH ITM38>
10149                     <DEAD ITM38>
10150                     <SCALL '\1aOBJ-VAL 1 = TYP6 + TAG53 TEMP22>
10151                     <LOOP (TYP6 TYPE VALUE LENGTH) (TEMP22 VALUE)>
10152 TAG55
10153                     <INTGO>
10154                     <EMPTY? TYP6 + TAG53>
10155                     <NTH1 TYP6 = STACK>
10156                     <REST1 TYP6 = TYP6>
10157                     <ADD TEMP22 1 = TEMP22 (TYPE FIX)>
10158                     <JUMP + TAG55>
10159 TAG53
10160                     <CALL '\1aOCEMIT TEMP22>
10161                     <DEAD TEMP22>
10162                     <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE58>
10163                     <GVAL 'STACK-DEPTH = TEMP22>
10164                     <ADD TEMP22 1 = TEMP22 (TYPE FIX)>
10165                     <SETG 'STACK-DEPTH TEMP22>
10166                     <DEAD TEMP22>
10167 PHRASE58
10168                     <ADD CNT37 1 = CNT37 (TYPE FIX)>
10169                     <RESTL LL36 1 = LL36 (TYPE LIST)>
10170                     <JUMP + AGAIN42>
10171 EXIT35
10172                     <FRAME '\1aPUSHJ>
10173                     <PUSH 'RECORD>
10174                     <SET TEMP22 L5>
10175                     <DEAD L5>
10176                     <LOOP (TEMP22 VALUE)>
10177 TAG60
10178                     <RESTL TEMP22 1 = TYP6 (TYPE LIST)>
10179                     <EMPL? TYP6 + TAG61>
10180                     <SET TEMP22 TYP6>
10181                     <DEAD TYP6>
10182                     <JUMP + TAG60>
10183 TAG61
10184                     <NTHL TEMP22 1 = STACK>
10185                     <DEAD TEMP22>
10186                     <CALL '\1aPUSHJ 2 = TYP6>
10187                     <RETURN TYP6>
10188                     <DEAD TYP6>
10189                     <END \1aRECORD!-MIMOC>
10190 #WORD *31725115662*
10191 <GFCN \1aEXPLICIT-MAKE-RECORD ("VALUE" ANY ANY ANY) TYP5 L6>
10192                     <TEMP TEMP11 TEMP10>
10193                     <INTGO>
10194                     <EQUAL? TYP5 'ATOM - PHRASE8>
10195                     <FRAME '\1aOCEMIT>
10196                     <PUSH 'MOVEI>
10197                     <PUSH 'O1*>
10198                     <SET TEMP11 2 (TYPE FIX)>
10199                     <SFRAME 'TYPE-CODE>
10200                     <PUSH 'ATOM>
10201                     <PUSH 'T>
10202                     <SCALL '\1aTYPE-CODE 2 = TEMP10 + TAG9 TEMP11>
10203                     <LOOP (TEMP10 TYPE VALUE LENGTH) (TEMP11 VALUE)>
10204 TAG13
10205                     <INTGO>
10206                     <EMPTY? TEMP10 + TAG9>
10207                     <NTH1 TEMP10 = STACK>
10208                     <REST1 TEMP10 = TEMP10>
10209                     <ADD TEMP11 1 = TEMP11 (TYPE FIX)>
10210                     <JUMP + TAG13>
10211 TAG9
10212                     <CALL '\1aOCEMIT TEMP11>
10213                     <DEAD TEMP11>
10214                     <FRAME '\1aOCEMIT>
10215                     <PUSH 'MOVEI>
10216                     <PUSH 'O2*>
10217                     <PUSH 5>
10218                     <CALL '\1aOCEMIT 3>
10219                     <FRAME '\1aOCEMIT>
10220                     <PUSH 'MOVEI>
10221                     <PUSH 'C1*>
10222                     <PUSH 10>
10223                     <CALL '\1aOCEMIT 3>
10224                     <FRAME '\1aPUSHJ>
10225                     <PUSH 'IRECORD>
10226                     <CALL '\1aPUSHJ 1>
10227                     <FRAME '\1aPUT-ELEMENTS>
10228                     <PUSH L6>
10229                     <DEAD L6>
10230                     <PUSH 0>
10231                     <PUSH 1>
10232                     <PUSH (2 3)>
10233                     <PUSH 4>
10234                     <PUSH -2>
10235                     <CALL '\1aPUT-ELEMENTS 6 = TEMP11>
10236                     <RETURN TEMP11>
10237                     <DEAD TEMP11>
10238 PHRASE8
10239                     <EQUAL? TYP5 'GBIND - PHRASE19>
10240                     <FRAME '\1aOCEMIT>
10241                     <PUSH 'MOVEI>
10242                     <PUSH 'O1*>
10243                     <SET TEMP11 2 (TYPE FIX)>
10244                     <SFRAME 'TYPE-CODE>
10245                     <PUSH 'GBIND>
10246                     <PUSH 'T>
10247                     <SCALL '\1aTYPE-CODE 2 = TEMP10 + TAG20 TEMP11>
10248                     <LOOP (TEMP10 TYPE VALUE LENGTH) (TEMP11 VALUE)>
10249 TAG23
10250                     <INTGO>
10251                     <EMPTY? TEMP10 + TAG20>
10252                     <NTH1 TEMP10 = STACK>
10253                     <REST1 TEMP10 = TEMP10>
10254                     <ADD TEMP11 1 = TEMP11 (TYPE FIX)>
10255                     <JUMP + TAG23>
10256 TAG20
10257                     <CALL '\1aOCEMIT TEMP11>
10258                     <DEAD TEMP11>
10259                     <FRAME '\1aOCEMIT>
10260                     <PUSH 'MOVEI>
10261                     <PUSH 'O2*>
10262                     <PUSH 5>
10263                     <CALL '\1aOCEMIT 3>
10264                     <FRAME '\1aOCEMIT>
10265                     <PUSH 'MOVEI>
10266                     <PUSH 'C1*>
10267                     <PUSH 10>
10268                     <CALL '\1aOCEMIT 3>
10269                     <FRAME '\1aPUSHJ>
10270                     <PUSH 'IRECORD>
10271                     <CALL '\1aPUSHJ 1>
10272                     <FRAME '\1aPUT-ELEMENTS>
10273                     <PUSH L6>
10274                     <DEAD L6>
10275                     <PUSH (0 1)>
10276                     <PUSH 2>
10277                     <PUSH (3 4)>
10278                     <CALL '\1aPUT-ELEMENTS 4 = TEMP11>
10279                     <RETURN TEMP11>
10280                     <DEAD TEMP11>
10281 PHRASE19
10282                     <EQUAL? TYP5 'LBIND + TAG30>
10283                     <DEAD TYP5>
10284                     <RETURN %<>>
10285 TAG30
10286                     <FRAME '\1aOCEMIT>
10287                     <PUSH 'MOVEI>
10288                     <PUSH 'O1*>
10289                     <SET TEMP10 2 (TYPE FIX)>
10290                     <SFRAME 'TYPE-CODE>
10291                     <PUSH 'LBIND>
10292                     <PUSH 'T>
10293                     <SCALL '\1aTYPE-CODE 2 = TEMP11 + TAG31 TEMP10>
10294                     <LOOP (TEMP11 TYPE VALUE LENGTH) (TEMP10 VALUE)>
10295 TAG33
10296                     <INTGO>
10297                     <EMPTY? TEMP11 + TAG31>
10298                     <NTH1 TEMP11 = STACK>
10299                     <REST1 TEMP11 = TEMP11>
10300                     <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
10301                     <JUMP + TAG33>
10302 TAG31
10303                     <CALL '\1aOCEMIT TEMP10>
10304                     <DEAD TEMP10>
10305                     <FRAME '\1aOCEMIT>
10306                     <PUSH 'MOVEI>
10307                     <PUSH 'O2*>
10308                     <PUSH 8>
10309                     <CALL '\1aOCEMIT 3>
10310                     <FRAME '\1aOCEMIT>
10311                     <PUSH 'MOVEI>
10312                     <PUSH 'C1*>
10313                     <PUSH 16>
10314                     <CALL '\1aOCEMIT 3>
10315                     <FRAME '\1aPUSHJ>
10316                     <PUSH 'IRECORD>
10317                     <CALL '\1aPUSHJ 1>
10318                     <FRAME '\1aPUT-ELEMENTS>
10319                     <PUSH L6>
10320                     <DEAD L6>
10321                     <PUSH (0 1)>
10322                     <PUSH 2>
10323                     <PUSH (3 4)>
10324                     <PUSH 5>
10325                     <PUSH 6>
10326                     <PUSH 7>
10327                     <CALL '\1aPUT-ELEMENTS 7 = TEMP11>
10328                     <RETURN TEMP11>
10329                     <DEAD TEMP11>
10330                     <END \1aEXPLICIT-MAKE-RECORD>
10331 #WORD *22604025774*
10332 <GFCN \1aPUT-ELEMENTS ("VALUE" ANY LIST "TUPLE" <TUPLE [REST <OR FIX <LIST FIX FIX>>]>) L5>
10333                     <MAKTUP TUP6 TEMP11 VAL7 (B-USED8 %<>) (C-USED9 %<>) TEMP24:LIST OFFS26 TEMP35 TEMP57 = TUP6>
10334                     <INTGO>
10335                     <SET VAL7 L5>
10336                     <LOOP (VAL7 VALUE)>
10337 TAG10
10338                     <RESTL VAL7 1 = TEMP11 (TYPE LIST)>
10339                     <EMPL? TEMP11 + TAG12>
10340                     <SET VAL7 TEMP11>
10341                     <DEAD TEMP11>
10342                     <JUMP + TAG10>
10343 TAG12
10344                     <NTHL VAL7 1 = VAL7>
10345                     <RESTL L5 1 = TEMP24 (TYPE LIST)>
10346                     <DEAD L5>
10347                     <CHTYPE TUP6 <TYPE-CODE VECTOR> = TEMP11>
10348                     <DEAD TUP6>
10349                     <LOOP>
10350 MAP14
10351                     <INTGO>
10352                     <EMPL? TEMP24 + MAPAP17>
10353                     <EMPUV? TEMP11 + MAPAP17>
10354                     <NTHL TEMP24 1 = TUP6>
10355                     <NTHUV TEMP11 1 = OFFS26>
10356                     <TYPE? TUP6 <TYPE-CODE ATOM> - PHRASE29>
10357                     <EQUAL? TUP6 VAL7 + PHRASE31>
10358                     <FRAME '\1aWILL-DIE?>
10359                     <PUSH TUP6>
10360                     <CALL '\1aWILL-DIE? 1 = TEMP35>
10361                     <TYPE? TEMP35 <TYPE-CODE FALSE> - PHRASE31>
10362                     <DEAD TEMP35>
10363                     <TYPE? B-USED8 <TYPE-CODE FALSE> - BOOL37>
10364                     <SET B-USED8 'T (TYPE ATOM)>
10365                     <JUMP + BOOL36>
10366 BOOL37
10367                     <TYPE? C-USED9 <TYPE-CODE FALSE> - PHRASE31>
10368                     <SET C-USED9 'T (TYPE ATOM)>
10369 BOOL36
10370                     <TYPE? C-USED9 <TYPE-CODE FALSE> + PHRASE40>
10371                     <FRAME '\1aLOAD-AC>
10372                     <PUSH TUP6>
10373                     <DEAD TUP6>
10374                     <PUSH 'BOTH>
10375                     <PUSH %<>>
10376                     <PUSH %<>>
10377                     <FRAME '\1aGET-AC>
10378                     <SET TUP6 'C1* (TYPE ATOM)>
10379                     <PUSH TUP6>
10380                     <CALL '\1aGET-AC 1 = STACK>
10381                     <FRAME '\1aGET-AC>
10382                     <PUSH 'C2*>
10383                     <CALL '\1aGET-AC 1 = STACK>
10384                     <CALL '\1aLOAD-AC 6>
10385                     <JUMP + PHRASE44>
10386 PHRASE40
10387                     <FRAME '\1aLOAD-AC>
10388                     <PUSH TUP6>
10389                     <DEAD TUP6>
10390                     <PUSH 'BOTH>
10391                     <PUSH %<>>
10392                     <PUSH %<>>
10393                     <FRAME '\1aGET-AC>
10394                     <SET TUP6 'B1* (TYPE ATOM)>
10395                     <PUSH TUP6>
10396                     <CALL '\1aGET-AC 1 = STACK>
10397                     <FRAME '\1aGET-AC>
10398                     <PUSH 'B2*>
10399                     <CALL '\1aGET-AC 1 = STACK>
10400                     <CALL '\1aLOAD-AC 6>
10401 PHRASE44
10402                     <TYPE? OFFS26 <TYPE-CODE FIX> - PHRASE49>
10403                     <LESS? OFFS26 0 - PHRASE51 (TYPE FIX)>
10404                     <FRAME '\1aOCEMIT>
10405                     <PUSH 'HRLM>
10406                     <FRAME '\1aNEXT-AC>
10407                     <PUSH TUP6>
10408                     <CALL '\1aNEXT-AC 1 = STACK>
10409                     <SUB 0 OFFS26 = STACK (TYPE FIX)>
10410                     <PUSH (A2*)>
10411                     <CALL '\1aOCEMIT 4>
10412                     <FRAME '\1aOCEMIT>
10413                     <PUSH 'CAMN>
10414                     <PUSH TUP6>
10415                     <DEAD TUP6>
10416                     <SET TEMP35 2 (TYPE FIX)>
10417                     <SFRAME 'TYPE-WORD>
10418                     <PUSH 'FALSE>
10419                     <SCALL '\1aTYPE-WORD 1 = TEMP57 + TAG56 TEMP35>
10420                     <LOOP (TEMP57 TYPE VALUE LENGTH) (TEMP35 VALUE)>
10421 TAG60
10422                     <INTGO>
10423                     <EMPTY? TEMP57 + TAG56>
10424                     <NTH1 TEMP57 = STACK>
10425                     <REST1 TEMP57 = TEMP57>
10426                     <ADD TEMP35 1 = TEMP35 (TYPE FIX)>
10427                     <JUMP + TAG60>
10428 TAG56
10429                     <CALL '\1aOCEMIT TEMP35>
10430                     <DEAD TEMP35>
10431                     <FRAME '\1aOCEMIT>
10432                     <PUSH 'HRROS>
10433                     <SUB 0 OFFS26 = STACK (TYPE FIX)>
10434                     <DEAD OFFS26>
10435                     <PUSH (A2*)>
10436                     <CALL '\1aOCEMIT 3>
10437                     <JUMP + PHRASE120>
10438 PHRASE51
10439                     <FRAME '\1aOCEMIT>
10440                     <PUSH 'MOVEM>
10441                     <FRAME '\1aNEXT-AC>
10442                     <PUSH TUP6>
10443                     <CALL '\1aNEXT-AC 1 = STACK>
10444                     <PUSH OFFS26>
10445                     <PUSH (A2*)>
10446                     <CALL '\1aOCEMIT 4>
10447                     <FRAME '\1aOCEMIT>
10448                     <PUSH 'CAMN>
10449                     <PUSH TUP6>
10450                     <DEAD TUP6>
10451                     <SET TEMP57 2 (TYPE FIX)>
10452                     <SFRAME 'TYPE-WORD>
10453                     <PUSH 'FALSE>
10454                     <SCALL '\1aTYPE-WORD 1 = TEMP35 + TAG66 TEMP57>
10455                     <LOOP (TEMP35 TYPE VALUE LENGTH) (TEMP57 VALUE)>
10456 TAG68
10457                     <INTGO>
10458                     <EMPTY? TEMP35 + TAG66>
10459                     <NTH1 TEMP35 = STACK>
10460                     <REST1 TEMP35 = TEMP35>
10461                     <ADD TEMP57 1 = TEMP57 (TYPE FIX)>
10462                     <JUMP + TAG68>
10463 TAG66
10464                     <CALL '\1aOCEMIT TEMP57>
10465                     <DEAD TEMP57>
10466                     <FRAME '\1aOCEMIT>
10467                     <PUSH 'SETZM>
10468                     <PUSH OFFS26>
10469                     <DEAD OFFS26>
10470                     <PUSH (A2*)>
10471                     <CALL '\1aOCEMIT 3>
10472                     <JUMP + PHRASE120>
10473 PHRASE49
10474                     <FRAME '\1aOCEMIT>
10475                     <PUSH 'DMOVEM>
10476                     <PUSH TUP6>
10477                     <DEAD TUP6>
10478                     <NTHL OFFS26 1 = STACK>
10479                     <DEAD OFFS26>
10480                     <PUSH (A2*)>
10481                     <CALL '\1aOCEMIT 4>
10482                     <JUMP + PHRASE120>
10483 PHRASE31
10484                     <TYPE? OFFS26 <TYPE-CODE FIX> - PHRASE73>
10485                     <FRAME '\1aOCEMIT>
10486                     <PUSH 'DMOVE>
10487                     <PUSH 'O1*>
10488                     <SET TEMP35 2 (TYPE FIX)>
10489                     <SFRAME 'OBJ-TYP>
10490                     <PUSH TUP6>
10491                     <DEAD TUP6>
10492                     <SCALL '\1aOBJ-TYP 1 = TEMP57 + TAG74 TEMP35>
10493                     <LOOP (TEMP57 TYPE VALUE LENGTH) (TEMP35 VALUE)>
10494 TAG76
10495                     <INTGO>
10496                     <EMPTY? TEMP57 + TAG74>
10497                     <NTH1 TEMP57 = STACK>
10498                     <REST1 TEMP57 = TEMP57>
10499                     <ADD TEMP35 1 = TEMP35 (TYPE FIX)>
10500                     <JUMP + TAG76>
10501 TAG74
10502                     <CALL '\1aOCEMIT TEMP35>
10503                     <DEAD TEMP35>
10504                     <LESS? OFFS26 0 - PHRASE79 (TYPE FIX)>
10505                     <FRAME '\1aOCEMIT>
10506                     <PUSH 'HRLM>
10507                     <PUSH 'O2*>
10508                     <SUB 0 OFFS26 = STACK (TYPE FIX)>
10509                     <PUSH (A2*)>
10510                     <CALL '\1aOCEMIT 4>
10511                     <FRAME '\1aOCEMIT>
10512                     <PUSH 'CAMN>
10513                     <PUSH 'O1*>
10514                     <SET TEMP57 2 (TYPE FIX)>
10515                     <SFRAME 'TYPE-WORD>
10516                     <PUSH 'FALSE>
10517                     <SCALL '\1aTYPE-WORD 1 = TEMP35 + TAG83 TEMP57>
10518                     <LOOP (TEMP35 TYPE VALUE LENGTH) (TEMP57 VALUE)>
10519 TAG85
10520                     <INTGO>
10521                     <EMPTY? TEMP35 + TAG83>
10522                     <NTH1 TEMP35 = STACK>
10523                     <REST1 TEMP35 = TEMP35>
10524                     <ADD TEMP57 1 = TEMP57 (TYPE FIX)>
10525                     <JUMP + TAG85>
10526 TAG83
10527                     <CALL '\1aOCEMIT TEMP57>
10528                     <DEAD TEMP57>
10529                     <FRAME '\1aOCEMIT>
10530                     <PUSH 'HRROS>
10531                     <SUB 0 OFFS26 = STACK (TYPE FIX)>
10532                     <DEAD OFFS26>
10533                     <PUSH (A2*)>
10534                     <CALL '\1aOCEMIT 3>
10535                     <JUMP + PHRASE120>
10536 PHRASE79
10537                     <FRAME '\1aOCEMIT>
10538                     <PUSH 'MOVEM>
10539                     <PUSH 'O2*>
10540                     <PUSH OFFS26>
10541                     <PUSH (A2*)>
10542                     <CALL '\1aOCEMIT 4>
10543                     <FRAME '\1aOCEMIT>
10544                     <PUSH 'CAMN>
10545                     <PUSH 'O1*>
10546                     <SET TEMP35 2 (TYPE FIX)>
10547                     <SFRAME 'TYPE-WORD>
10548                     <PUSH 'FALSE>
10549                     <SCALL '\1aTYPE-WORD 1 = TEMP57 + TAG90 TEMP35>
10550                     <LOOP (TEMP57 TYPE VALUE LENGTH) (TEMP35 VALUE)>
10551 TAG92
10552                     <INTGO>
10553                     <EMPTY? TEMP57 + TAG90>
10554                     <NTH1 TEMP57 = STACK>
10555                     <REST1 TEMP57 = TEMP57>
10556                     <ADD TEMP35 1 = TEMP35 (TYPE FIX)>
10557                     <JUMP + TAG92>
10558 TAG90
10559                     <CALL '\1aOCEMIT TEMP35>
10560                     <DEAD TEMP35>
10561                     <FRAME '\1aOCEMIT>
10562                     <PUSH 'SETZM>
10563                     <PUSH OFFS26>
10564                     <DEAD OFFS26>
10565                     <PUSH (A2*)>
10566                     <CALL '\1aOCEMIT 3>
10567                     <JUMP + PHRASE120>
10568 PHRASE73
10569                     <FRAME '\1aOCEMIT>
10570                     <PUSH 'DMOVE>
10571                     <PUSH 'O1*>
10572                     <SET TEMP57 2 (TYPE FIX)>
10573                     <SFRAME 'OBJ-TYP>
10574                     <PUSH TUP6>
10575                     <DEAD TUP6>
10576                     <SCALL '\1aOBJ-TYP 1 = TEMP35 + TAG96 TEMP57>
10577                     <LOOP (TEMP35 TYPE VALUE LENGTH) (TEMP57 VALUE)>
10578 TAG98
10579                     <INTGO>
10580                     <EMPTY? TEMP35 + TAG96>
10581                     <NTH1 TEMP35 = STACK>
10582                     <REST1 TEMP35 = TEMP35>
10583                     <ADD TEMP57 1 = TEMP57 (TYPE FIX)>
10584                     <JUMP + TAG98>
10585 TAG96
10586                     <CALL '\1aOCEMIT TEMP57>
10587                     <DEAD TEMP57>
10588                     <FRAME '\1aOCEMIT>
10589                     <PUSH 'DMOVEM>
10590                     <PUSH 'O1*>
10591                     <NTHL OFFS26 1 = STACK>
10592                     <DEAD OFFS26>
10593                     <PUSH (A2*)>
10594                     <CALL '\1aOCEMIT 4>
10595                     <JUMP + PHRASE120>
10596 PHRASE29
10597                     <TYPE? OFFS26 <TYPE-CODE FIX> - PHRASE101>
10598                     <TYPE? TUP6 <TYPE-CODE FALSE> - PHRASE103>
10599                     <LESS? OFFS26 0 - PHRASE105 (TYPE FIX)>
10600                     <FRAME '\1aOCEMIT>
10601                     <PUSH 'HRROS>
10602                     <SUB 0 OFFS26 = STACK (TYPE FIX)>
10603                     <DEAD OFFS26>
10604                     <PUSH (A2*)>
10605                     <CALL '\1aOCEMIT 3>
10606                     <JUMP + PHRASE120>
10607 PHRASE105
10608                     <FRAME '\1aOCEMIT>
10609                     <PUSH 'SETZM>
10610                     <PUSH OFFS26>
10611                     <DEAD OFFS26>
10612                     <PUSH (A2*)>
10613                     <CALL '\1aOCEMIT 3>
10614                     <JUMP + PHRASE120>
10615 PHRASE103
10616                     <FRAME '\1aGET-INTO-ACS>
10617                     <PUSH TUP6>
10618                     <DEAD TUP6>
10619                     <PUSH 'VALUE>
10620                     <PUSH 'O*>
10621                     <CALL '\1aGET-INTO-ACS 3>
10622                     <LESS? OFFS26 0 - PHRASE114 (TYPE FIX)>
10623                     <FRAME '\1aOCEMIT>
10624                     <PUSH 'HRLM>
10625                     <PUSH 'O*>
10626                     <SUB 0 OFFS26 = STACK (TYPE FIX)>
10627                     <DEAD OFFS26>
10628                     <PUSH (A2*)>
10629                     <CALL '\1aOCEMIT 4>
10630                     <JUMP + PHRASE120>
10631 PHRASE114
10632                     <FRAME '\1aOCEMIT>
10633                     <PUSH 'MOVEM>
10634                     <PUSH 'O*>
10635                     <PUSH OFFS26>
10636                     <DEAD OFFS26>
10637                     <PUSH (A2*)>
10638                     <CALL '\1aOCEMIT 4>
10639                     <JUMP + PHRASE120>
10640 PHRASE101
10641                     <FRAME '\1aOCEMIT>
10642                     <PUSH 'DMOVE>
10643                     <PUSH 'O1*>
10644                     <SET TEMP35 2 (TYPE FIX)>
10645                     <SFRAME 'OBJ-TYP>
10646                     <PUSH TUP6>
10647                     <DEAD TUP6>
10648                     <SCALL '\1aOBJ-TYP 1 = TEMP57 + TAG121 TEMP35>
10649                     <LOOP (TEMP57 TYPE VALUE LENGTH) (TEMP35 VALUE)>
10650 TAG123
10651                     <INTGO>
10652                     <EMPTY? TEMP57 + TAG121>
10653                     <NTH1 TEMP57 = STACK>
10654                     <REST1 TEMP57 = TEMP57>
10655                     <ADD TEMP35 1 = TEMP35 (TYPE FIX)>
10656                     <JUMP + TAG123>
10657 TAG121
10658                     <CALL '\1aOCEMIT TEMP35>
10659                     <DEAD TEMP35>
10660                     <FRAME '\1aOCEMIT>
10661                     <PUSH 'DMOVEM>
10662                     <PUSH 'O1*>
10663                     <NTHL OFFS26 1 = STACK>
10664                     <DEAD OFFS26>
10665                     <PUSH (A2*)>
10666                     <CALL '\1aOCEMIT 4>
10667 PHRASE120
10668                     <RESTL TEMP24 1 = TEMP24 (TYPE LIST)>
10669                     <RESTUV TEMP11 1 = TEMP11 (TYPE VECTOR)>
10670                     <JUMP + MAP14>
10671 MAPAP17
10672                     <FRAME '\1aPUSHJ-VAL>
10673                     <PUSH VAL7>
10674                     <DEAD VAL7>
10675                     <CALL '\1aPUSHJ-VAL 1 = TEMP11>
10676                     <RETURN TEMP11>
10677                     <DEAD TEMP11>
10678                     <END \1aPUT-ELEMENTS>\r\r
10679 #WORD *37523704512*
10680 <GFCN \1aNTH-PUT-LOOK-AHEAD ("VALUE" <OR ATOM FALSE> LIST STRING ANY ANY ANY) OL4 INS5 STRUC6 AMT7 VAL8>
10681                     <TEMP (AC9 %<>) L10:LIST (DEAD?13 %<>) TEMP26 NXT11 TEMP32 TEMP33 TEMP34 TEMP35>
10682                     <INTGO>
10683                     <GEN-LVAL 'MIML = AC9>
10684                     <RESTL AC9 1 = L10 (TYPE LIST)>
10685                     <DEAD AC9>
10686                     <CHTYPE L10 <TYPE-CODE LIST> = L10>
10687                     <SET AC9 L10>
10688                     <SET TEMP26 4 (TYPE FIX)>
10689                     <LOOP (AC9 VALUE) (TEMP26 VALUE)>
10690 TAG27
10691                     <EMPL? AC9 + PHRASE24>
10692                     <RESTL AC9 1 = AC9 (TYPE LIST)>
10693                     <SUB TEMP26 1 = TEMP26 (TYPE FIX)>
10694                     <GRTR? TEMP26 0 + TAG27 (TYPE FIX)>
10695                     <NTHL L10 1 = NXT11>
10696                     <TYPE? NXT11 <TYPE-CODE FORM> - PHRASE24>
10697                     <SET AC9 NXT11>
10698                     <SET TEMP26 5 (TYPE FIX)>
10699                     <LOOP (AC9 VALUE) (TEMP26 VALUE)>
10700 TAG29
10701                     <EMPL? AC9 + PHRASE24>
10702                     <RESTL AC9 1 = AC9 (TYPE LIST)>
10703                     <SUB TEMP26 1 = TEMP26 (TYPE FIX)>
10704                     <GRTR? TEMP26 0 + TAG29 (TYPE FIX)>
10705                     <NTHL NXT11 1 = AC9 (TYPE ATOM)>
10706                     <NTHR AC9 3 = TEMP26 (RECORD-TYPE ATOM)>
10707                     <DEAD AC9>
10708                     <IFCAN "STRING-EQUAL?">
10709                     <STRING-EQUAL? TEMP26 "ADD" + BOOL30>
10710                     <ENDIF "STRING-EQUAL?">
10711                     <IFCANNOT "STRING-EQUAL?">
10712                     <SET AC9 TEMP26>
10713                     <SET TEMP32 "ADD" (TYPE STRING)>
10714                     <LENUS AC9 = TEMP33 (TYPE FIX)>
10715                     <VEQUAL? TEMP33 3 - TAG31>
10716                     <LOOP (AC9 VALUE LENGTH) (TEMP32 VALUE LENGTH) (TEMP33 VALUE)>
10717 TAG36
10718                     <NTHUS AC9 1 = TEMP34>
10719                     <NTHUS TEMP32 1 = TEMP35>
10720                     <VEQUAL? TEMP34 TEMP35 - TAG31>
10721                     <DEAD TEMP34 TEMP35>
10722                     <RESTUS AC9 1 = AC9 (TYPE STRING)>
10723                     <RESTUS TEMP32 1 = TEMP32 (TYPE STRING)>
10724                     <SUB TEMP33 1 = TEMP33 (TYPE FIX)>
10725                     <GRTR? TEMP33 0 + TAG36 (TYPE FIX)>
10726                     <JUMP + BOOL30>
10727                     <ENDIF "STRING-EQUAL?">
10728 TAG31
10729                     <IFCAN "STRING-EQUAL?">
10730                     <STRING-EQUAL? TEMP26 "SUB" - PHRASE24>
10731                     <ENDIF "STRING-EQUAL?">
10732                     <IFCANNOT "STRING-EQUAL?">
10733                     <SET TEMP32 TEMP26>
10734                     <SET AC9 "SUB" (TYPE STRING)>
10735                     <LENUS TEMP32 = TEMP35 (TYPE FIX)>
10736                     <VEQUAL? TEMP35 3 - PHRASE24>
10737                     <LOOP (TEMP32 VALUE LENGTH) (AC9 VALUE LENGTH) (TEMP35 VALUE)>
10738 TAG38
10739                     <NTHUS TEMP32 1 = TEMP34>
10740                     <NTHUS AC9 1 = TEMP33>
10741                     <VEQUAL? TEMP34 TEMP33 - PHRASE24>
10742                     <DEAD TEMP34 TEMP33>
10743                     <RESTUS TEMP32 1 = TEMP32 (TYPE STRING)>
10744                     <RESTUS AC9 1 = AC9 (TYPE STRING)>
10745                     <SUB TEMP35 1 = TEMP35 (TYPE FIX)>
10746                     <GRTR? TEMP35 0 + TAG38 (TYPE FIX)>
10747                     <ENDIF "STRING-EQUAL?">
10748 BOOL30
10749                     <RESTL NXT11 1 = AC9 (TYPE LIST)>
10750                     <NTHL AC9 1 = AC9>
10751                     <EQUAL? AC9 VAL8 - PHRASE24>
10752                     <DEAD AC9>
10753                     <RESTL NXT11 1 = AC9 (TYPE LIST)>
10754                     <RESTL AC9 1 = AC9 (TYPE LIST)>
10755                     <NTHL AC9 1 = AC9>
10756                     <EQUAL? AC9 1 - PHRASE24>
10757                     <DEAD AC9>
10758                     <NTHL NXT11 5 = AC9>
10759                     <DEAD NXT11>
10760                     <EQUAL? AC9 VAL8 - PHRASE24>
10761                     <DEAD AC9>
10762                     <RESTL L10 1 = AC9 (TYPE LIST)>
10763                     <NTHL AC9 1 = NXT11>
10764                     <DEAD AC9>
10765                     <TYPE? NXT11 <TYPE-CODE FORM> - PHRASE24>
10766                     <SET AC9 NXT11>
10767                     <SET TEMP32 4 (TYPE FIX)>
10768                     <LOOP (AC9 VALUE) (TEMP32 VALUE)>
10769 TAG39
10770                     <EMPL? AC9 + PHRASE24>
10771                     <RESTL AC9 1 = AC9 (TYPE LIST)>
10772                     <SUB TEMP32 1 = TEMP32 (TYPE FIX)>
10773                     <GRTR? TEMP32 0 + TAG39 (TYPE FIX)>
10774                     <NTHL NXT11 1 = AC9 (TYPE ATOM)>
10775                     <NTHR AC9 3 = AC9 (RECORD-TYPE ATOM)>
10776                     <IFCAN "STRING-EQUAL?">
10777                     <STRING-EQUAL? AC9 INS5 - PHRASE24>
10778                     <ENDIF "STRING-EQUAL?">
10779                     <IFCANNOT "STRING-EQUAL?">
10780                     <SET TEMP33 INS5>
10781                     <LENUS AC9 = TEMP34 (TYPE FIX)>
10782                     <LENUS TEMP33 = TEMP32 (TYPE FIX)>
10783                     <VEQUAL? TEMP34 TEMP32 - PHRASE24>
10784                     <DEAD TEMP32>
10785                     <LOOP (AC9 VALUE LENGTH) (TEMP33 VALUE LENGTH) (TEMP34 VALUE)>
10786 TAG42
10787                     <NTHUS AC9 1 = TEMP32>
10788                     <NTHUS TEMP33 1 = TEMP35>
10789                     <VEQUAL? TEMP32 TEMP35 - PHRASE24>
10790                     <DEAD TEMP32 TEMP35>
10791                     <RESTUS AC9 1 = AC9 (TYPE STRING)>
10792                     <RESTUS TEMP33 1 = TEMP33 (TYPE STRING)>
10793                     <SUB TEMP34 1 = TEMP34 (TYPE FIX)>
10794                     <GRTR? TEMP34 0 + TAG42 (TYPE FIX)>
10795                     <ENDIF "STRING-EQUAL?">
10796                     <RESTL NXT11 1 = TEMP33 (TYPE LIST)>
10797                     <NTHL TEMP33 1 = TEMP33>
10798                     <EQUAL? TEMP33 STRUC6 - PHRASE24>
10799                     <DEAD TEMP33 STRUC6>
10800                     <RESTL NXT11 1 = TEMP33 (TYPE LIST)>
10801                     <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
10802                     <NTHL TEMP33 1 = TEMP33>
10803                     <EQUAL? TEMP33 AMT7 - PHRASE24>
10804                     <DEAD TEMP33 AMT7>
10805                     <RESTL NXT11 1 = TEMP33 (TYPE LIST)>
10806                     <DEAD NXT11>
10807                     <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
10808                     <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
10809                     <NTHL TEMP33 1 = TEMP33>
10810                     <EQUAL? TEMP33 VAL8 - PHRASE24>
10811                     <DEAD TEMP33>
10812                     <SETG 'NEXT-FLUSH 2>
10813                     <RESTL L10 1 = TEMP33 (TYPE LIST)>
10814                     <DEAD L10>
10815                     <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
10816                     <NTHL TEMP33 1 = NXT11>
10817                     <DEAD TEMP33>
10818                     <TYPE? NXT11 <TYPE-CODE FORM> - PHRASE44>
10819                     <EMPL? NXT11 + PHRASE44>
10820                     <RESTL NXT11 1 = TEMP33 (TYPE LIST)>
10821                     <EMPL? TEMP33 + PHRASE44>
10822                     <DEAD TEMP33>
10823                     <NTHL NXT11 1 = TEMP33 (TYPE ATOM)>
10824                     <NTHR TEMP33 3 = TEMP33 (RECORD-TYPE ATOM)>
10825                     <IFCAN "STRING-EQUAL?">
10826                     <STRING-EQUAL? TEMP33 "DEAD" - PHRASE44>
10827                     <ENDIF "STRING-EQUAL?">
10828                     <IFCANNOT "STRING-EQUAL?">
10829                     <SET AC9 "DEAD" (TYPE STRING)>
10830                     <LENUS TEMP33 = TEMP35 (TYPE FIX)>
10831                     <VEQUAL? TEMP35 4 - PHRASE44>
10832                     <LOOP (TEMP33 VALUE LENGTH) (AC9 VALUE LENGTH) (TEMP35 VALUE)>
10833 TAG47
10834                     <NTHUS TEMP33 1 = TEMP32>
10835                     <NTHUS AC9 1 = TEMP34>
10836                     <VEQUAL? TEMP32 TEMP34 - PHRASE44>
10837                     <DEAD TEMP32 TEMP34>
10838                     <RESTUS TEMP33 1 = TEMP33 (TYPE STRING)>
10839                     <RESTUS AC9 1 = AC9 (TYPE STRING)>
10840                     <SUB TEMP35 1 = TEMP35 (TYPE FIX)>
10841                     <GRTR? TEMP35 0 + TAG47 (TYPE FIX)>
10842                     <ENDIF "STRING-EQUAL?">
10843                     <RESTL NXT11 1 = AC9 (TYPE LIST)>
10844                     <DEAD NXT11>
10845                     <CHTYPE AC9 <TYPE-CODE LIST> = AC9>
10846                     <TYPE VAL8 = TEMP33>
10847                     <EMPL? AC9 + PHRASE44>
10848                     <LOOP (VAL8 VALUE) (TEMP33 VALUE) (AC9 VALUE)>
10849 TAG49
10850                     <NTHL AC9 1 = TEMP34>
10851                     <TYPE? TEMP34 TEMP33 - TAG50>
10852                     <VEQUAL? TEMP34 VAL8 + TAG48>
10853                     <DEAD TEMP34>
10854 TAG50
10855                     <RESTL AC9 1 = AC9 (TYPE LIST)>
10856                     <EMPL? AC9 - TAG49>
10857                     <JUMP + PHRASE44>
10858 TAG48
10859                     <SET DEAD?13 'T (TYPE ATOM)>
10860 PHRASE44
10861                     <IFCAN "STRING-EQUAL?">
10862                     <STRING-EQUAL? INS5 "PUTL" - PHRASE52>
10863                     <ENDIF "STRING-EQUAL?">
10864                     <IFCANNOT "STRING-EQUAL?">
10865                     <SET AC9 INS5>
10866                     <SET TEMP33 "PUTL" (TYPE STRING)>
10867                     <LENUS AC9 = TEMP34 (TYPE FIX)>
10868                     <VEQUAL? TEMP34 4 - PHRASE52>
10869                     <LOOP (AC9 VALUE LENGTH) (TEMP33 VALUE LENGTH) (TEMP34 VALUE)>
10870 TAG54
10871                     <NTHUS AC9 1 = TEMP32>
10872                     <NTHUS TEMP33 1 = NXT11>
10873                     <VEQUAL? TEMP32 NXT11 - PHRASE52>
10874                     <DEAD TEMP32 NXT11>
10875                     <RESTUS AC9 1 = AC9 (TYPE STRING)>
10876                     <RESTUS TEMP33 1 = TEMP33 (TYPE STRING)>
10877                     <SUB TEMP34 1 = TEMP34 (TYPE FIX)>
10878                     <GRTR? TEMP34 0 + TAG54 (TYPE FIX)>
10879                     <ENDIF "STRING-EQUAL?">
10880                     <FRAME '\1aNTHL!-MIMOC>
10881                     <PUSH OL4>
10882                     <DEAD OL4>
10883                     <IFCAN "STRING-EQUAL?">
10884                     <STRING-EQUAL? TEMP26 "ADD" - PHRASE57>
10885                     <ENDIF "STRING-EQUAL?">
10886                     <IFCANNOT "STRING-EQUAL?">
10887                     <SET TEMP33 TEMP26>
10888                     <DEAD TEMP26>
10889                     <SET AC9 "ADD" (TYPE STRING)>
10890                     <LENUS TEMP33 = NXT11 (TYPE FIX)>
10891                     <VEQUAL? NXT11 3 - PHRASE57>
10892                     <LOOP (TEMP33 VALUE LENGTH) (AC9 VALUE LENGTH) (NXT11 VALUE)>
10893 TAG59
10894                     <NTHUS TEMP33 1 = TEMP32>
10895                     <NTHUS AC9 1 = TEMP34>
10896                     <VEQUAL? TEMP32 TEMP34 - PHRASE57>
10897                     <DEAD TEMP32 TEMP34>
10898                     <RESTUS TEMP33 1 = TEMP33 (TYPE STRING)>
10899                     <RESTUS AC9 1 = AC9 (TYPE STRING)>
10900                     <SUB NXT11 1 = NXT11 (TYPE FIX)>
10901                     <GRTR? NXT11 0 + TAG59 (TYPE FIX)>
10902                     <ENDIF "STRING-EQUAL?">
10903                     <SET AC9 'AOS (TYPE ATOM)>
10904                     <JUMP + PHRASE60>
10905 PHRASE57
10906                     <SET AC9 'SOS (TYPE ATOM)>
10907 PHRASE60
10908                     <PUSH AC9>
10909                     <DEAD AC9>
10910                     <VEQUAL? DEAD?13 0 - TAG61>
10911                     <DEAD DEAD?13>
10912                     <SET AC9 'T (TYPE ATOM)>
10913                     <JUMP + TAG62>
10914 TAG61
10915                     <SET AC9 %<> (TYPE FALSE)>
10916 TAG62
10917                     <PUSH AC9>
10918                     <DEAD AC9>
10919                     <CALL '\1aNTHL!-MIMOC 3>
10920                     <RETURN 'T>
10921 PHRASE52
10922                     <FRAME '\1aNTHUV!-MIMOC>
10923                     <PUSH OL4>
10924                     <DEAD OL4>
10925                     <IFCAN "STRING-EQUAL?">
10926                     <STRING-EQUAL? INS5 "PUTUU" - TAG65>
10927                     <ENDIF "STRING-EQUAL?">
10928                     <IFCANNOT "STRING-EQUAL?">
10929                     <SET AC9 INS5>
10930                     <DEAD INS5>
10931                     <SET TEMP33 "PUTUU" (TYPE STRING)>
10932                     <LENUS AC9 = TEMP34 (TYPE FIX)>
10933                     <VEQUAL? TEMP34 5 - TAG65>
10934                     <LOOP (AC9 VALUE LENGTH) (TEMP33 VALUE LENGTH) (TEMP34 VALUE)>
10935 TAG67
10936                     <NTHUS AC9 1 = TEMP32>
10937                     <NTHUS TEMP33 1 = NXT11>
10938                     <VEQUAL? TEMP32 NXT11 - TAG65>
10939                     <DEAD TEMP32 NXT11>
10940                     <RESTUS AC9 1 = AC9 (TYPE STRING)>
10941                     <RESTUS TEMP33 1 = TEMP33 (TYPE STRING)>
10942                     <SUB TEMP34 1 = TEMP34 (TYPE FIX)>
10943                     <GRTR? TEMP34 0 + TAG67 (TYPE FIX)>
10944                     <ENDIF "STRING-EQUAL?">
10945                     <PUSH 'T>
10946                     <JUMP + TAG68>
10947 TAG65
10948                     <PUSH %<>>
10949 TAG68
10950                     <IFCAN "STRING-EQUAL?">
10951                     <STRING-EQUAL? TEMP26 "ADD" - PHRASE70>
10952                     <ENDIF "STRING-EQUAL?">
10953                     <IFCANNOT "STRING-EQUAL?">
10954                     <SET TEMP33 TEMP26>
10955                     <DEAD TEMP26>
10956                     <SET AC9 "ADD" (TYPE STRING)>
10957                     <LENUS TEMP33 = NXT11 (TYPE FIX)>
10958                     <VEQUAL? NXT11 3 - PHRASE70>
10959                     <LOOP (TEMP33 VALUE LENGTH) (AC9 VALUE LENGTH) (NXT11 VALUE)>
10960 TAG72
10961                     <NTHUS TEMP33 1 = TEMP32>
10962                     <NTHUS AC9 1 = TEMP34>
10963                     <VEQUAL? TEMP32 TEMP34 - PHRASE70>
10964                     <DEAD TEMP32 TEMP34>
10965                     <RESTUS TEMP33 1 = TEMP33 (TYPE STRING)>
10966                     <RESTUS AC9 1 = AC9 (TYPE STRING)>
10967                     <SUB NXT11 1 = NXT11 (TYPE FIX)>
10968                     <GRTR? NXT11 0 + TAG72 (TYPE FIX)>
10969                     <ENDIF "STRING-EQUAL?">
10970                     <SET AC9 'AOS (TYPE ATOM)>
10971                     <JUMP + PHRASE73>
10972 PHRASE70
10973                     <SET AC9 'SOS (TYPE ATOM)>
10974 PHRASE73
10975                     <PUSH AC9>
10976                     <DEAD AC9>
10977                     <VEQUAL? DEAD?13 0 - TAG74>
10978                     <DEAD DEAD?13>
10979                     <SET AC9 'T (TYPE ATOM)>
10980                     <JUMP + TAG75>
10981 TAG74
10982                     <SET AC9 %<> (TYPE FALSE)>
10983 TAG75
10984                     <PUSH AC9>
10985                     <DEAD AC9>
10986                     <CALL '\1aNTHUV!-MIMOC 4>
10987                     <RETURN 'T>
10988 PHRASE24
10989                     <SET TEMP33 L10>
10990                     <SET TEMP34 4 (TYPE FIX)>
10991                     <LOOP (TEMP33 VALUE) (TEMP34 VALUE)>
10992 TAG78
10993                     <EMPL? TEMP33 + PHRASE76>
10994                     <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
10995                     <SUB TEMP34 1 = TEMP34 (TYPE FIX)>
10996                     <GRTR? TEMP34 0 + TAG78 (TYPE FIX)>
10997                     <NTHL L10 1 = NXT11>
10998                     <TYPE? NXT11 <TYPE-CODE FORM> - PHRASE76>
10999                     <SET TEMP33 NXT11>
11000                     <SET TEMP32 4 (TYPE FIX)>
11001                     <LOOP (TEMP33 VALUE) (TEMP32 VALUE)>
11002 TAG79
11003                     <EMPL? TEMP33 + PHRASE76>
11004                     <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
11005                     <SUB TEMP32 1 = TEMP32 (TYPE FIX)>
11006                     <GRTR? TEMP32 0 + TAG79 (TYPE FIX)>
11007                     <NTHL NXT11 1 = TEMP33 (TYPE ATOM)>
11008                     <NTHR TEMP33 3 = TEMP26 (RECORD-TYPE ATOM)>
11009                     <DEAD TEMP33>
11010                     <LENUS TEMP26 = TEMP33 (TYPE FIX)>
11011                     <VEQUAL? TEMP33 5 - BOOL81 (TYPE FIX)>
11012                     <DEAD TEMP33>
11013                     <FRAME '\1aMEMBER>
11014                     <PUSH "LENU">
11015                     <PUSH TEMP26>
11016                     <CALL '\1aMEMBER 2 = TEMP33>
11017                     <TYPE? TEMP33 <TYPE-CODE FALSE> + BOOL81>
11018                     <DEAD TEMP33>
11019                     <RESTL NXT11 1 = TEMP33 (TYPE LIST)>
11020                     <NTHL TEMP33 1 = TEMP33>
11021                     <EQUAL? TEMP33 VAL8 - BOOL81>
11022                     <DEAD TEMP33>
11023                     <RESTL NXT11 1 = TEMP33 (TYPE LIST)>
11024                     <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
11025                     <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
11026                     <NTHL TEMP33 1 = TEMP33>
11027                     <EQUAL? TEMP33 VAL8 + BOOL83>
11028                     <DEAD TEMP33>
11029                     <FRAME '\1aWILL-DIE?>
11030                     <PUSH VAL8>
11031                     <PUSH L10>
11032                     <CALL '\1aWILL-DIE? 2 = TEMP33>
11033                     <TYPE? TEMP33 <TYPE-CODE FALSE> + BOOL81>
11034                     <DEAD TEMP33>
11035 BOOL83
11036                     <RESTL L10 1 = TEMP33 (TYPE LIST)>
11037                     <NTHL TEMP33 1 = AC9>
11038                     <DEAD TEMP33>
11039                     <TYPE? AC9 <TYPE-CODE FORM> - PHRASE86>
11040                     <SET TEMP33 AC9>
11041                     <SET TEMP26 5 (TYPE FIX)>
11042                     <LOOP (TEMP33 VALUE) (TEMP26 VALUE)>
11043 TAG89
11044                     <EMPL? TEMP33 + PHRASE86>
11045                     <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
11046                     <SUB TEMP26 1 = TEMP26 (TYPE FIX)>
11047                     <GRTR? TEMP26 0 + TAG89 (TYPE FIX)>
11048                     <FRAME '\1aLOOKUP>
11049                     <NTHL AC9 1 = TEMP33 (TYPE ATOM)>
11050                     <NTHR TEMP33 3 = STACK (RECORD-TYPE ATOM)>
11051                     <DEAD TEMP33>
11052                     <GVAL 'MIMOC-OBLIST = STACK>
11053                     <CALL '\1aLOOKUP 2 = TEMP33>
11054                     <GVAL 'COMPARERS = DEAD?13>
11055                     <TYPE? TEMP33 <TYPE-CODE ATOM> - PHRASE86>
11056                     <EMPUV? DEAD?13 + PHRASE86>
11057                     <LOOP (TEMP33 VALUE) (DEAD?13 LENGTH VALUE)>
11058 TAG91
11059                     <NTHUV DEAD?13 1 = TEMP32>
11060                     <VEQUAL? TEMP32 TEMP33 + TAG90>
11061                     <DEAD TEMP32>
11062                     <RESTUV DEAD?13 1 = DEAD?13 (TYPE VECTOR)>
11063                     <EMPUV? DEAD?13 - TAG91>
11064                     <JUMP + PHRASE86>
11065 TAG90
11066                     <RESTL NXT11 1 = DEAD?13 (TYPE LIST)>
11067                     <RESTL DEAD?13 1 = DEAD?13 (TYPE LIST)>
11068                     <RESTL DEAD?13 1 = DEAD?13 (TYPE LIST)>
11069                     <NTHL DEAD?13 1 = DEAD?13>
11070                     <RESTL AC9 1 = TEMP33 (TYPE LIST)>
11071                     <CHTYPE TEMP33 <TYPE-CODE LIST> = TEMP33>
11072                     <TYPE DEAD?13 = TEMP32>
11073                     <EMPL? TEMP33 + PHRASE86>
11074                     <LOOP (DEAD?13 VALUE) (TEMP32 VALUE) (TEMP33 VALUE)>
11075 TAG97
11076                     <NTHL TEMP33 1 = TEMP34>
11077                     <TYPE? TEMP34 TEMP32 - TAG98>
11078                     <VEQUAL? TEMP34 DEAD?13 + TAG96>
11079                     <DEAD TEMP34>
11080 TAG98
11081                     <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
11082                     <EMPL? TEMP33 - TAG97>
11083                     <JUMP + PHRASE86>
11084 TAG96
11085                     <FRAME '\1aWILL-DIE?>
11086                     <RESTL NXT11 1 = TEMP33 (TYPE LIST)>
11087                     <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
11088                     <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
11089                     <NTHL TEMP33 1 = STACK>
11090                     <DEAD TEMP33>
11091                     <RESTL L10 1 = STACK (TYPE LIST)>
11092                     <DEAD L10>
11093                     <CALL '\1aWILL-DIE? 2 = TEMP33>
11094                     <TYPE? TEMP33 <TYPE-CODE FALSE> + PHRASE86>
11095                     <DEAD TEMP33>
11096                     <FRAME '\1aWILL-DIE?>
11097                     <RESTL NXT11 1 = TEMP33 (TYPE LIST)>
11098                     <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
11099                     <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
11100                     <NTHL TEMP33 1 = STACK>
11101                     <DEAD TEMP33>
11102                     <SET TEMP34 %<> (TYPE FALSE)>
11103                     <CHTYPE AC9 <TYPE-CODE LIST> = TEMP33>
11104                     <DEAD AC9>
11105                     <LOOP>
11106 MAP103
11107                     <INTGO>
11108                     <EMPL? TEMP33 + MAPAP106>
11109                     <SET L10 TEMP33>
11110                     <NTHL L10 1 = AC9>
11111                     <EQUAL? AC9 '+ + BOOL113>
11112                     <EQUAL? AC9 '- - PHRASE112>
11113                     <DEAD AC9>
11114 BOOL113
11115                     <RESTL L10 1 = AC9 (TYPE LIST)>
11116                     <DEAD L10>
11117                     <NTHL AC9 1 = TEMP34 (TYPE ATOM)>
11118                     <DEAD AC9>
11119                     <JUMP + MAPAP106>
11120 PHRASE112
11121                     <RESTL L10 1 = AC9 (TYPE LIST)>
11122                     <DEAD L10>
11123                     <EMPL? AC9 + TAG117 (TYPE LIST)>
11124                     <DEAD AC9>
11125                     <SET TEMP34 %<> (TYPE FALSE)>
11126                     <JUMP + PHRASE116>
11127 TAG117
11128                     <FRAME '\1aERROR>
11129                     <PUSH 'HUH?!-ERRORS>
11130                     <CALL '\1aERROR 1 = TEMP34>
11131 PHRASE116
11132                     <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
11133                     <JUMP + MAP103>
11134 MAPAP106
11135                     <GVAL TEMP34 = TEMP33>
11136                     <DEAD TEMP34>
11137                     <NTHUV TEMP33 7 = STACK (TYPE LIST)>
11138                     <DEAD TEMP33>
11139                     <CALL '\1aWILL-DIE? 2 = TEMP33>
11140                     <TYPE? TEMP33 <TYPE-CODE FALSE> + PHRASE86>
11141                     <DEAD TEMP33>
11142                     <IFCAN "STRING-EQUAL?">
11143                     <STRING-EQUAL? INS5 "PUTL" - PHRASE120>
11144                     <ENDIF "STRING-EQUAL?">
11145                     <IFCANNOT "STRING-EQUAL?">
11146                     <SET TEMP33 INS5>
11147                     <DEAD INS5>
11148                     <SET TEMP34 "PUTL" (TYPE STRING)>
11149                     <LENUS TEMP33 = TEMP32 (TYPE FIX)>
11150                     <VEQUAL? TEMP32 4 - PHRASE120>
11151                     <LOOP (TEMP33 VALUE LENGTH) (TEMP34 VALUE LENGTH) (TEMP32 VALUE)>
11152 TAG122
11153                     <NTHUS TEMP33 1 = AC9>
11154                     <NTHUS TEMP34 1 = DEAD?13>
11155                     <VEQUAL? AC9 DEAD?13 - PHRASE120>
11156                     <DEAD AC9 DEAD?13>
11157                     <RESTUS TEMP33 1 = TEMP33 (TYPE STRING)>
11158                     <RESTUS TEMP34 1 = TEMP34 (TYPE STRING)>
11159                     <SUB TEMP32 1 = TEMP32 (TYPE FIX)>
11160                     <GRTR? TEMP32 0 + TAG122 (TYPE FIX)>
11161                     <ENDIF "STRING-EQUAL?">
11162                     <FRAME '\1aNTHL!-MIMOC>
11163                     <PUSH OL4>
11164                     <DEAD OL4>
11165                     <PUSH 'HRRZ>
11166                     <PUSH %<>>
11167                     <CALL '\1aNTHL!-MIMOC 3>
11168                     <SETG 'NEXT-FLUSH 1>
11169                     <JUMP + PHRASE124>
11170 PHRASE120
11171                     <FRAME '\1aNTHUV!-MIMOC>
11172                     <PUSH OL4>
11173                     <DEAD OL4>
11174                     <PUSH %<>>
11175                     <PUSH 'HRRZ>
11176                     <PUSH %<>>
11177                     <CALL '\1aNTHUV!-MIMOC 4>
11178                     <SETG 'NEXT-FLUSH 1>
11179 PHRASE124
11180                     <FRAME '\1aGET-AC>
11181                     <PUSH 'O*>
11182                     <CALL '\1aGET-AC 1 = TEMP34>
11183                     <PUTUV TEMP34 3 'VALUE (TYPE ATOM)>
11184                     <RESTL NXT11 1 = TEMP33 (TYPE LIST)>
11185                     <DEAD NXT11>
11186                     <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
11187                     <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
11188                     <NTHL TEMP33 1 = TEMP33>
11189                     <PUTUV TEMP34 2 TEMP33>
11190                     <DEAD TEMP34 TEMP33>
11191                     <RETURN 'T>
11192 PHRASE86
11193                     <IFCAN "STRING-EQUAL?">
11194                     <STRING-EQUAL? INS5 "PUTL" - PHRASE129>
11195                     <ENDIF "STRING-EQUAL?">
11196                     <IFCANNOT "STRING-EQUAL?">
11197                     <SET TEMP34 INS5>
11198                     <DEAD INS5>
11199                     <SET TEMP33 "PUTL" (TYPE STRING)>
11200                     <LENUS TEMP34 = DEAD?13 (TYPE FIX)>
11201                     <VEQUAL? DEAD?13 4 - PHRASE129>
11202                     <LOOP (TEMP34 VALUE LENGTH) (TEMP33 VALUE LENGTH) (DEAD?13 VALUE)>
11203 TAG131
11204                     <NTHUS TEMP34 1 = AC9>
11205                     <NTHUS TEMP33 1 = TEMP32>
11206                     <VEQUAL? AC9 TEMP32 - PHRASE129>
11207                     <DEAD AC9 TEMP32>
11208                     <RESTUS TEMP34 1 = TEMP34 (TYPE STRING)>
11209                     <RESTUS TEMP33 1 = TEMP33 (TYPE STRING)>
11210                     <SUB DEAD?13 1 = DEAD?13 (TYPE FIX)>
11211                     <GRTR? DEAD?13 0 + TAG131 (TYPE FIX)>
11212                     <ENDIF "STRING-EQUAL?">
11213                     <FRAME '\1aNTHL!-MIMOC>
11214                     <PUSH OL4>
11215                     <DEAD OL4>
11216                     <PUSH 'HRRZ>
11217                     <PUSH 'T>
11218                     <RESTL NXT11 1 = TEMP33 (TYPE LIST)>
11219                     <DEAD NXT11>
11220                     <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
11221                     <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
11222                     <NTHL TEMP33 1 = STACK>
11223                     <DEAD TEMP33>
11224                     <CALL '\1aNTHL!-MIMOC 4>
11225                     <SETG 'NEXT-FLUSH 1>
11226                     <RETURN 'T>
11227 PHRASE129
11228                     <FRAME '\1aNTHUV!-MIMOC>
11229                     <PUSH OL4>
11230                     <DEAD OL4>
11231                     <PUSH %<>>
11232                     <PUSH 'HRRZ>
11233                     <PUSH 'T>
11234                     <RESTL NXT11 1 = TEMP33 (TYPE LIST)>
11235                     <DEAD NXT11>
11236                     <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
11237                     <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
11238                     <NTHL TEMP33 1 = STACK>
11239                     <DEAD TEMP33>
11240                     <CALL '\1aNTHUV!-MIMOC 5>
11241                     <SETG 'NEXT-FLUSH 1>
11242                     <RETURN 'T>
11243 BOOL81
11244                     <LENUS TEMP26 = TEMP33 (TYPE FIX)>
11245                     <VEQUAL? TEMP33 6 - PHRASE76 (TYPE FIX)>
11246                     <DEAD TEMP33>
11247                     <FRAME '\1aMEMBER>
11248                     <PUSH "EMPU">
11249                     <PUSH TEMP26>
11250                     <DEAD TEMP26>
11251                     <CALL '\1aMEMBER 2 = TEMP33>
11252                     <TYPE? TEMP33 <TYPE-CODE FALSE> + PHRASE76>
11253                     <DEAD TEMP33>
11254                     <RESTL NXT11 1 = TEMP33 (TYPE LIST)>
11255                     <NTHL TEMP33 1 = TEMP33>
11256                     <EQUAL? TEMP33 VAL8 - PHRASE76>
11257                     <DEAD TEMP33>
11258                     <FRAME '\1aWILL-DIE?>
11259                     <PUSH VAL8>
11260                     <PUSH L10>
11261                     <CALL '\1aWILL-DIE? 2 = TEMP33>
11262                     <TYPE? TEMP33 <TYPE-CODE FALSE> + PHRASE76>
11263                     <DEAD TEMP33>
11264                     <RESTL NXT11 1 = TEMP33 (TYPE LIST)>
11265                     <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
11266                     <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
11267                     <NTHL TEMP33 1 = TEMP33>
11268                     <EQUAL? TEMP33 'COMPERR + BOOL138>
11269                     <DEAD TEMP33>
11270                     <RESTL NXT11 1 = TEMP33 (TYPE LIST)>
11271                     <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
11272                     <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
11273                     <NTHL TEMP33 1 = TEMP33>
11274                     <RESTL L10 1 = TEMP34 (TYPE LIST)>
11275                     <TYPE TEMP33 = TEMP32>
11276                     <EMPL? TEMP34 + PHRASE76>
11277                     <LOOP (TEMP33 VALUE) (TEMP32 VALUE) (TEMP34 VALUE)>
11278 TAG142
11279                     <NTHL TEMP34 1 = AC9>
11280                     <TYPE? AC9 TEMP32 - TAG143>
11281                     <VEQUAL? AC9 TEMP33 + TAG141>
11282                     <DEAD AC9>
11283 TAG143
11284                     <RESTL TEMP34 1 = TEMP34 (TYPE LIST)>
11285                     <EMPL? TEMP34 - TAG142>
11286                     <JUMP + PHRASE76>
11287 TAG141
11288                     <SET AC9 TEMP34>
11289                     <DEAD TEMP34>
11290                     <FRAME '\1aWILL-DIE?>
11291                     <PUSH VAL8>
11292                     <PUSH AC9>
11293                     <DEAD AC9>
11294                     <CALL '\1aWILL-DIE? 2 = TEMP34>
11295                     <TYPE? TEMP34 <TYPE-CODE FALSE> + PHRASE76>
11296                     <DEAD TEMP34>
11297 BOOL138
11298                     <IFCAN "STRING-EQUAL?">
11299                     <STRING-EQUAL? INS5 "PUTL" - PHRASE148>
11300                     <ENDIF "STRING-EQUAL?">
11301                     <IFCANNOT "STRING-EQUAL?">
11302                     <SET TEMP32 INS5>
11303                     <DEAD INS5>
11304                     <SET TEMP33 "PUTL" (TYPE STRING)>
11305                     <LENUS TEMP32 = AC9 (TYPE FIX)>
11306                     <VEQUAL? AC9 4 - PHRASE148>
11307                     <LOOP (TEMP32 VALUE LENGTH) (TEMP33 VALUE LENGTH) (AC9 VALUE)>
11308 TAG151
11309                     <NTHUS TEMP32 1 = DEAD?13>
11310                     <NTHUS TEMP33 1 = TEMP34>
11311                     <VEQUAL? DEAD?13 TEMP34 - PHRASE148>
11312                     <DEAD DEAD?13 TEMP34>
11313                     <RESTUS TEMP32 1 = TEMP32 (TYPE STRING)>
11314                     <RESTUS TEMP33 1 = TEMP33 (TYPE STRING)>
11315                     <SUB AC9 1 = AC9 (TYPE FIX)>
11316                     <GRTR? AC9 0 + TAG151 (TYPE FIX)>
11317                     <ENDIF "STRING-EQUAL?">
11318                     <FRAME '\1aNTHL!-MIMOC>
11319                     <PUSH OL4>
11320                     <DEAD OL4>
11321                     <PUSH 'HRRZ>
11322                     <PUSH %<>>
11323                     <CALL '\1aNTHL!-MIMOC 3>
11324                     <SETG 'NEXT-FLUSH 1>
11325                     <JUMP + PHRASE153>
11326 PHRASE148
11327                     <FRAME '\1aNTHUV!-MIMOC>
11328                     <PUSH OL4>
11329                     <DEAD OL4>
11330                     <PUSH %<>>
11331                     <PUSH 'HRRZ>
11332                     <PUSH %<>>
11333                     <CALL '\1aNTHUV!-MIMOC 4>
11334                     <SETG 'NEXT-FLUSH 1>
11335 PHRASE153
11336                     <FRAME '\1aLABEL-UPDATE-ACS>
11337                     <RESTL NXT11 1 = TEMP33 (TYPE LIST)>
11338                     <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
11339                     <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
11340                     <NTHL TEMP33 1 = STACK>
11341                     <DEAD TEMP33>
11342                     <PUSH %<>>
11343                     <CALL '\1aLABEL-UPDATE-ACS 2>
11344                     <FRAME '\1aOCEMIT>
11345                     <RESTL NXT11 1 = TEMP33 (TYPE LIST)>
11346                     <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
11347                     <NTHL TEMP33 1 = TEMP33>
11348                     <EQUAL? TEMP33 '+ - PHRASE158>
11349                     <DEAD TEMP33>
11350                     <SET TEMP33 'JUMPE (TYPE ATOM)>
11351                     <JUMP + PHRASE159>
11352 PHRASE158
11353                     <SET TEMP33 'JUMPN (TYPE ATOM)>
11354 PHRASE159
11355                     <PUSH TEMP33>
11356                     <DEAD TEMP33>
11357                     <PUSH 'O*>
11358                     <FRAME '\1aXJUMP>
11359                     <RESTL NXT11 1 = TEMP33 (TYPE LIST)>
11360                     <DEAD NXT11>
11361                     <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
11362                     <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
11363                     <NTHL TEMP33 1 = STACK>
11364                     <DEAD TEMP33>
11365                     <CALL '\1aXJUMP 1 = STACK>
11366                     <CALL '\1aOCEMIT 3>
11367                     <RETURN 'T>
11368 PHRASE76
11369                     <SET TEMP33 L10>
11370                     <SET TEMP32 4 (TYPE FIX)>
11371                     <LOOP (TEMP33 VALUE) (TEMP32 VALUE)>
11372 TAG163
11373                     <EMPL? TEMP33 + PHRASE161>
11374                     <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
11375                     <SUB TEMP32 1 = TEMP32 (TYPE FIX)>
11376                     <GRTR? TEMP32 0 + TAG163 (TYPE FIX)>
11377                     <NTHL L10 1 = NXT11>
11378                     <TYPE? NXT11 <TYPE-CODE FORM> - PHRASE161>
11379                     <SET TEMP33 NXT11>
11380                     <SET TEMP34 5 (TYPE FIX)>
11381                     <LOOP (TEMP33 VALUE) (TEMP34 VALUE)>
11382 TAG164
11383                     <EMPL? TEMP33 + PHRASE161>
11384                     <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
11385                     <SUB TEMP34 1 = TEMP34 (TYPE FIX)>
11386                     <GRTR? TEMP34 0 + TAG164 (TYPE FIX)>
11387                     <NTHL NXT11 1 = TEMP33 (TYPE ATOM)>
11388                     <NTHR TEMP33 3 = TEMP26 (RECORD-TYPE ATOM)>
11389                     <DEAD TEMP33>
11390                     <IFCAN "STRING-EQUAL?">
11391                     <STRING-EQUAL? TEMP26 "VEQUAL?" + BOOL165>
11392                     <ENDIF "STRING-EQUAL?">
11393                     <IFCANNOT "STRING-EQUAL?">
11394                     <SET TEMP33 TEMP26>
11395                     <SET DEAD?13 "VEQUAL?" (TYPE STRING)>
11396                     <LENUS TEMP33 = AC9 (TYPE FIX)>
11397                     <VEQUAL? AC9 7 - TAG166>
11398                     <LOOP (TEMP33 VALUE LENGTH) (DEAD?13 VALUE LENGTH) (AC9 VALUE)>
11399 TAG170
11400                     <NTHUS TEMP33 1 = TEMP32>
11401                     <NTHUS DEAD?13 1 = TEMP34>
11402                     <VEQUAL? TEMP32 TEMP34 - TAG166>
11403                     <DEAD TEMP32 TEMP34>
11404                     <RESTUS TEMP33 1 = TEMP33 (TYPE STRING)>
11405                     <RESTUS DEAD?13 1 = DEAD?13 (TYPE STRING)>
11406                     <SUB AC9 1 = AC9 (TYPE FIX)>
11407                     <GRTR? AC9 0 + TAG170 (TYPE FIX)>
11408                     <JUMP + BOOL165>
11409                     <ENDIF "STRING-EQUAL?">
11410 TAG166
11411                     <IFCAN "STRING-EQUAL?">
11412                     <STRING-EQUAL? TEMP26 "EQUAL?" - PHRASE161>
11413                     <ENDIF "STRING-EQUAL?">
11414                     <IFCANNOT "STRING-EQUAL?">
11415                     <SET DEAD?13 TEMP26>
11416                     <SET TEMP33 "EQUAL?" (TYPE STRING)>
11417                     <LENUS DEAD?13 = TEMP34 (TYPE FIX)>
11418                     <VEQUAL? TEMP34 6 - PHRASE161>
11419                     <LOOP (DEAD?13 VALUE LENGTH) (TEMP33 VALUE LENGTH) (TEMP34 VALUE)>
11420 TAG172
11421                     <NTHUS DEAD?13 1 = TEMP32>
11422                     <NTHUS TEMP33 1 = AC9>
11423                     <VEQUAL? TEMP32 AC9 - PHRASE161>
11424                     <DEAD TEMP32 AC9>
11425                     <RESTUS DEAD?13 1 = DEAD?13 (TYPE STRING)>
11426                     <RESTUS TEMP33 1 = TEMP33 (TYPE STRING)>
11427                     <SUB TEMP34 1 = TEMP34 (TYPE FIX)>
11428                     <GRTR? TEMP34 0 + TAG172 (TYPE FIX)>
11429                     <ENDIF "STRING-EQUAL?">
11430 BOOL165
11431                     <RESTL NXT11 1 = TEMP33 (TYPE LIST)>
11432                     <NTHL TEMP33 1 = TEMP33>
11433                     <EQUAL? TEMP33 VAL8 + BOOL173>
11434                     <DEAD TEMP33>
11435                     <RESTL NXT11 1 = TEMP33 (TYPE LIST)>
11436                     <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
11437                     <NTHL TEMP33 1 = TEMP33>
11438                     <EQUAL? TEMP33 VAL8 - PHRASE161>
11439                     <DEAD TEMP33>
11440                     <FRAME '\1aFORM>
11441                     <NTHL NXT11 1 = STACK (TYPE ATOM)>
11442                     <PUSH VAL8>
11443                     <RESTL NXT11 1 = TEMP33 (TYPE LIST)>
11444                     <NTHL TEMP33 1 = STACK>
11445                     <DEAD TEMP33>
11446                     <SET DEAD?13 3 (TYPE FIX)>
11447                     <RESTL NXT11 1 = AC9 (TYPE LIST)>
11448                     <DEAD NXT11>
11449                     <RESTL AC9 1 = AC9 (TYPE LIST)>
11450                     <RESTL AC9 1 = TEMP33 (TYPE LIST)>
11451                     <DEAD AC9>
11452                     <CHTYPE TEMP33 <TYPE-CODE LIST> = TEMP33>
11453                     <LOOP (TEMP33 VALUE) (DEAD?13 VALUE)>
11454 TAG176
11455                     <INTGO>
11456                     <EMPL? TEMP33 + TAG175>
11457                     <NTHL TEMP33 1 = STACK>
11458                     <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
11459                     <ADD DEAD?13 1 = DEAD?13 (TYPE FIX)>
11460                     <JUMP + TAG176>
11461 TAG175
11462                     <CALL '\1aFORM DEAD?13 = NXT11>
11463                     <DEAD DEAD?13>
11464 BOOL173
11465                     <RESTL NXT11 1 = TEMP33 (TYPE LIST)>
11466                     <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
11467                     <NTHL TEMP33 1 = DEAD?13>
11468                     <DEAD TEMP33>
11469                     <RESTL NXT11 1 = TEMP33 (TYPE LIST)>
11470                     <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
11471                     <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
11472                     <NTHL TEMP33 1 = TEMP33>
11473                     <GEN-SET 'DIR TEMP33>
11474                     <DEAD TEMP33>
11475                     <IFCAN "STRING-EQUAL?">
11476                     <STRING-EQUAL? TEMP26 "VEQUAL?" - PHRASE185>
11477                     <ENDIF "STRING-EQUAL?">
11478                     <IFCANNOT "STRING-EQUAL?">
11479                     <SET TEMP33 TEMP26>
11480                     <SET AC9 "VEQUAL?" (TYPE STRING)>
11481                     <LENUS TEMP33 = TEMP32 (TYPE FIX)>
11482                     <VEQUAL? TEMP32 7 - PHRASE185>
11483                     <LOOP (TEMP33 VALUE LENGTH) (AC9 VALUE LENGTH) (TEMP32 VALUE)>
11484 TAG188
11485                     <NTHUS TEMP33 1 = TEMP34>
11486                     <NTHUS AC9 1 = TEMP35>
11487                     <VEQUAL? TEMP34 TEMP35 - PHRASE185>
11488                     <DEAD TEMP34 TEMP35>
11489                     <RESTUS TEMP33 1 = TEMP33 (TYPE STRING)>
11490                     <RESTUS AC9 1 = AC9 (TYPE STRING)>
11491                     <SUB TEMP32 1 = TEMP32 (TYPE FIX)>
11492                     <GRTR? TEMP32 0 + TAG188 (TYPE FIX)>
11493                     <ENDIF "STRING-EQUAL?">
11494                     <FRAME '\1aIN-AC?>
11495                     <PUSH DEAD?13>
11496                     <PUSH 'VALUE>
11497                     <CALL '\1aIN-AC? 2 = AC9>
11498                     <TYPE? AC9 <TYPE-CODE FALSE> - BOOL195>
11499                     <DEAD AC9>
11500                     <JUMP + PHRASE190>
11501 PHRASE185
11502                     <FRAME '\1aIN-AC?>
11503                     <PUSH DEAD?13>
11504                     <PUSH 'BOTH>
11505                     <CALL '\1aIN-AC? 2 = AC9>
11506                     <TYPE? AC9 <TYPE-CODE FALSE> - BOOL195>
11507                     <DEAD AC9>
11508 PHRASE190
11509                     <IFCAN "STRING-EQUAL?">
11510                     <STRING-EQUAL? TEMP26 "VEQUAL?" - PHRASE161>
11511                     <ENDIF "STRING-EQUAL?">
11512                     <IFCANNOT "STRING-EQUAL?">
11513                     <SET AC9 TEMP26>
11514                     <DEAD TEMP26>
11515                     <SET TEMP33 "VEQUAL?" (TYPE STRING)>
11516                     <LENUS AC9 = TEMP35 (TYPE FIX)>
11517                     <VEQUAL? TEMP35 7 - PHRASE161>
11518                     <LOOP (AC9 VALUE LENGTH) (TEMP33 VALUE LENGTH) (TEMP35 VALUE)>
11519 TAG194
11520                     <NTHUS AC9 1 = TEMP34>
11521                     <NTHUS TEMP33 1 = TEMP32>
11522                     <VEQUAL? TEMP34 TEMP32 - PHRASE161>
11523                     <DEAD TEMP34 TEMP32>
11524                     <RESTUS AC9 1 = AC9 (TYPE STRING)>
11525                     <RESTUS TEMP33 1 = TEMP33 (TYPE STRING)>
11526                     <SUB TEMP35 1 = TEMP35 (TYPE FIX)>
11527                     <GRTR? TEMP35 0 + TAG194 (TYPE FIX)>
11528                     <ENDIF "STRING-EQUAL?">
11529                     <FRAME '\1aPRIMTYPE>
11530                     <PUSH DEAD?13>
11531                     <CALL '\1aPRIMTYPE 1 = TEMP33>
11532                     <VEQUAL? TEMP33 'FIX - BOOL196>
11533                     <DEAD TEMP33>
11534                     <VEQUAL? DEAD?13 0 + BOOL195 (TYPE FIX)>
11535 BOOL196
11536                     <FRAME '\1aPRIMTYPE>
11537                     <PUSH DEAD?13>
11538                     <CALL '\1aPRIMTYPE 1 = TEMP33>
11539                     <VEQUAL? TEMP33 'LIST - PHRASE161>
11540                     <DEAD TEMP33>
11541                     <EMPL? DEAD?13 - PHRASE161 (TYPE LIST)>
11542                     <DEAD DEAD?13>
11543 BOOL195
11544                     <FRAME '\1aWILL-DIE?>
11545                     <PUSH VAL8>
11546                     <PUSH L10>
11547                     <CALL '\1aWILL-DIE? 2 = TEMP33>
11548                     <TYPE? TEMP33 <TYPE-CODE FALSE> + PHRASE161>
11549                     <DEAD TEMP33>
11550                     <FRAME '\1aWILL-DIE?>
11551                     <PUSH VAL8>
11552                     <FRAME '\1aFIND-LABEL>
11553                     <NTHL NXT11 5 = STACK>
11554                     <CALL '\1aFIND-LABEL 1 = TEMP33>
11555                     <NTHUV TEMP33 7 = STACK (TYPE LIST)>
11556                     <DEAD TEMP33>
11557                     <CALL '\1aWILL-DIE? 2 = TEMP33>
11558                     <TYPE? TEMP33 <TYPE-CODE FALSE> + PHRASE161>
11559                     <DEAD TEMP33>
11560                     <IFCAN "STRING-EQUAL?">
11561                     <STRING-EQUAL? INS5 "PUTL" - PHRASE206>
11562                     <ENDIF "STRING-EQUAL?">
11563                     <IFCANNOT "STRING-EQUAL?">
11564                     <SET TEMP33 INS5>
11565                     <SET AC9 "PUTL" (TYPE STRING)>
11566                     <LENUS TEMP33 = TEMP32 (TYPE FIX)>
11567                     <VEQUAL? TEMP32 4 - PHRASE206>
11568                     <LOOP (TEMP33 VALUE LENGTH) (AC9 VALUE LENGTH) (TEMP32 VALUE)>
11569 TAG208
11570                     <NTHUS TEMP33 1 = TEMP34>
11571                     <NTHUS AC9 1 = DEAD?13>
11572                     <VEQUAL? TEMP34 DEAD?13 - PHRASE206>
11573                     <DEAD TEMP34 DEAD?13>
11574                     <RESTUS TEMP33 1 = TEMP33 (TYPE STRING)>
11575                     <RESTUS AC9 1 = AC9 (TYPE STRING)>
11576                     <SUB TEMP32 1 = TEMP32 (TYPE FIX)>
11577                     <GRTR? TEMP32 0 + TAG208 (TYPE FIX)>
11578                     <ENDIF "STRING-EQUAL?">
11579                     <FRAME '\1aNTHL!-MIMOC>
11580                     <PUSH OL4>
11581                     <DEAD OL4>
11582                     <PUSH NXT11>
11583                     <DEAD NXT11>
11584                     <PUSH %<>>
11585                     <CALL '\1aNTHL!-MIMOC 3>
11586                     <SETG 'NEXT-FLUSH 1>
11587                     <RETURN 'T>
11588 PHRASE206
11589                     <FRAME '\1aNTHUV!-MIMOC>
11590                     <PUSH OL4>
11591                     <DEAD OL4>
11592                     <IFCAN "STRING-EQUAL?">
11593                     <STRING-EQUAL? INS5 "PUTUU" - TAG212>
11594                     <ENDIF "STRING-EQUAL?">
11595                     <IFCANNOT "STRING-EQUAL?">
11596                     <SET AC9 INS5>
11597                     <DEAD INS5>
11598                     <SET TEMP33 "PUTUU" (TYPE STRING)>
11599                     <LENUS AC9 = DEAD?13 (TYPE FIX)>
11600                     <VEQUAL? DEAD?13 5 - TAG212>
11601                     <LOOP (AC9 VALUE LENGTH) (TEMP33 VALUE LENGTH) (DEAD?13 VALUE)>
11602 TAG214
11603                     <NTHUS AC9 1 = TEMP34>
11604                     <NTHUS TEMP33 1 = TEMP32>
11605                     <VEQUAL? TEMP34 TEMP32 - TAG212>
11606                     <DEAD TEMP34 TEMP32>
11607                     <RESTUS AC9 1 = AC9 (TYPE STRING)>
11608                     <RESTUS TEMP33 1 = TEMP33 (TYPE STRING)>
11609                     <SUB DEAD?13 1 = DEAD?13 (TYPE FIX)>
11610                     <GRTR? DEAD?13 0 + TAG214 (TYPE FIX)>
11611                     <ENDIF "STRING-EQUAL?">
11612                     <PUSH 'T>
11613                     <JUMP + TAG215>
11614 TAG212
11615                     <PUSH %<>>
11616 TAG215
11617                     <PUSH NXT11>
11618                     <DEAD NXT11>
11619                     <PUSH %<>>
11620                     <CALL '\1aNTHUV!-MIMOC 4>
11621                     <SETG 'NEXT-FLUSH 1>
11622                     <RETURN 'T>
11623 PHRASE161
11624                     <SET TEMP33 L10>
11625                     <SET AC9 4 (TYPE FIX)>
11626                     <LOOP (TEMP33 VALUE) (AC9 VALUE)>
11627 TAG219
11628                     <EMPL? TEMP33 + TAG220>
11629                     <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
11630                     <SUB AC9 1 = AC9 (TYPE FIX)>
11631                     <GRTR? AC9 0 + TAG219 (TYPE FIX)>
11632                     <JUMP + TAG218>
11633 TAG220
11634                     <RETURN %<>>
11635 TAG218
11636                     <NTHL L10 1 = NXT11>
11637                     <TYPE? NXT11 <TYPE-CODE FORM> + TAG221>
11638                     <RETURN %<>>
11639 TAG221
11640                     <SET TEMP33 NXT11>
11641                     <SET TEMP32 5 (TYPE FIX)>
11642                     <LOOP (TEMP33 VALUE) (TEMP32 VALUE)>
11643 TAG224
11644                     <EMPL? TEMP33 + TAG225>
11645                     <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
11646                     <SUB TEMP32 1 = TEMP32 (TYPE FIX)>
11647                     <GRTR? TEMP32 0 + TAG224 (TYPE FIX)>
11648                     <JUMP + TAG223>
11649 TAG225
11650                     <RETURN %<>>
11651 TAG223
11652                     <NTHL NXT11 1 = TEMP33 (TYPE ATOM)>
11653                     <NTHR TEMP33 3 = TEMP33 (RECORD-TYPE ATOM)>
11654                     <IFCAN "STRING-EQUAL?">
11655                     <STRING-EQUAL? TEMP33 "TYPE?" + TAG226>
11656                     <ENDIF "STRING-EQUAL?">
11657                     <IFCANNOT "STRING-EQUAL?">
11658                     <SET TEMP34 "TYPE?" (TYPE STRING)>
11659                     <LENUS TEMP33 = AC9 (TYPE FIX)>
11660                     <VEQUAL? AC9 5 - TAG227>
11661                     <LOOP (TEMP33 VALUE LENGTH) (TEMP34 VALUE LENGTH) (AC9 VALUE)>
11662 TAG231
11663                     <NTHUS TEMP33 1 = DEAD?13>
11664                     <NTHUS TEMP34 1 = TEMP32>
11665                     <VEQUAL? DEAD?13 TEMP32 - TAG227>
11666                     <DEAD DEAD?13 TEMP32>
11667                     <RESTUS TEMP33 1 = TEMP33 (TYPE STRING)>
11668                     <RESTUS TEMP34 1 = TEMP34 (TYPE STRING)>
11669                     <SUB AC9 1 = AC9 (TYPE FIX)>
11670                     <GRTR? AC9 0 + TAG231 (TYPE FIX)>
11671                     <JUMP + TAG226>
11672                     <ENDIF "STRING-EQUAL?">
11673 TAG227
11674                     <RETURN %<>>
11675 TAG226
11676                     <RESTL NXT11 1 = TEMP34 (TYPE LIST)>
11677                     <NTHL TEMP34 1 = TEMP34>
11678                     <EQUAL? TEMP34 VAL8 + TAG232>
11679                     <DEAD TEMP34>
11680                     <RETURN %<>>
11681 TAG232
11682                     <RESTL NXT11 1 = TEMP34 (TYPE LIST)>
11683                     <RESTL TEMP34 1 = TEMP34 (TYPE LIST)>
11684                     <NTHL TEMP34 1 = TEMP35>
11685                     <DEAD TEMP34>
11686                     <TYPE? TEMP35 <TYPE-CODE FIX> + TAG233>
11687                     <RETURN %<>>
11688 TAG233
11689                     <RESTL NXT11 1 = TEMP34 (TYPE LIST)>
11690                     <RESTL TEMP34 1 = TEMP34 (TYPE LIST)>
11691                     <RESTL TEMP34 1 = TEMP34 (TYPE LIST)>
11692                     <NTHL TEMP34 1 = TEMP34>
11693                     <EQUAL? TEMP34 '- + TAG235>
11694                     <DEAD TEMP34>
11695                     <RETURN %<>>
11696 TAG235
11697                     <NTHL NXT11 5 = TEMP26>
11698                     <DEAD NXT11>
11699                     <SET AC9 TEMP26>
11700                     <TYPE? AC9 <TYPE-CODE FALSE> + PHRASE216>
11701                     <RESTL L10 1 = TEMP34 (TYPE LIST)>
11702                     <NTHL TEMP34 1 = NXT11>
11703                     <DEAD TEMP34>
11704                     <TYPE? NXT11 <TYPE-CODE FORM> + TAG236>
11705                     <RETURN %<>>
11706 TAG236
11707                     <SET TEMP34 NXT11>
11708                     <SET TEMP33 5 (TYPE FIX)>
11709                     <LOOP (TEMP34 VALUE) (TEMP33 VALUE)>
11710 TAG239
11711                     <EMPL? TEMP34 + TAG240>
11712                     <RESTL TEMP34 1 = TEMP34 (TYPE LIST)>
11713                     <SUB TEMP33 1 = TEMP33 (TYPE FIX)>
11714                     <GRTR? TEMP33 0 + TAG239 (TYPE FIX)>
11715                     <JUMP + TAG238>
11716 TAG240
11717                     <RETURN %<>>
11718 TAG238
11719                     <NTHL NXT11 1 = TEMP34 (TYPE ATOM)>
11720                     <NTHR TEMP34 3 = TEMP34 (RECORD-TYPE ATOM)>
11721                     <IFCAN "STRING-EQUAL?">
11722                     <STRING-EQUAL? TEMP34 "VEQUAL?" + TAG241>
11723                     <ENDIF "STRING-EQUAL?">
11724                     <IFCANNOT "STRING-EQUAL?">
11725                     <SET TEMP32 "VEQUAL?" (TYPE STRING)>
11726                     <LENUS TEMP34 = DEAD?13 (TYPE FIX)>
11727                     <VEQUAL? DEAD?13 7 - TAG242>
11728                     <LOOP (TEMP34 VALUE LENGTH) (TEMP32 VALUE LENGTH) (DEAD?13 VALUE)>
11729 TAG245
11730                     <NTHUS TEMP34 1 = AC9>
11731                     <NTHUS TEMP32 1 = TEMP33>
11732                     <VEQUAL? AC9 TEMP33 - TAG242>
11733                     <DEAD AC9 TEMP33>
11734                     <RESTUS TEMP34 1 = TEMP34 (TYPE STRING)>
11735                     <RESTUS TEMP32 1 = TEMP32 (TYPE STRING)>
11736                     <SUB DEAD?13 1 = DEAD?13 (TYPE FIX)>
11737                     <GRTR? DEAD?13 0 + TAG245 (TYPE FIX)>
11738                     <JUMP + TAG241>
11739                     <ENDIF "STRING-EQUAL?">
11740 TAG242
11741                     <RETURN %<>>
11742 TAG241
11743                     <RESTL NXT11 1 = TEMP32 (TYPE LIST)>
11744                     <NTHL TEMP32 1 = TEMP32>
11745                     <EQUAL? TEMP32 VAL8 + BOOL246>
11746                     <DEAD TEMP32>
11747                     <RESTL NXT11 1 = TEMP32 (TYPE LIST)>
11748                     <RESTL TEMP32 1 = TEMP32 (TYPE LIST)>
11749                     <NTHL TEMP32 1 = TEMP32>
11750                     <EQUAL? TEMP32 VAL8 + TAG248>
11751                     <DEAD TEMP32>
11752                     <RETURN %<>>
11753 TAG248
11754                     <FRAME '\1aFORM>
11755                     <NTHL NXT11 1 = STACK (TYPE ATOM)>
11756                     <PUSH VAL8>
11757                     <RESTL NXT11 1 = TEMP32 (TYPE LIST)>
11758                     <NTHL TEMP32 1 = STACK>
11759                     <DEAD TEMP32>
11760                     <SET TEMP34 3 (TYPE FIX)>
11761                     <RESTL NXT11 1 = TEMP33 (TYPE LIST)>
11762                     <DEAD NXT11>
11763                     <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
11764                     <RESTL TEMP33 1 = TEMP32 (TYPE LIST)>
11765                     <DEAD TEMP33>
11766                     <CHTYPE TEMP32 <TYPE-CODE LIST> = TEMP32>
11767                     <LOOP (TEMP32 VALUE) (TEMP34 VALUE)>
11768 TAG250
11769                     <INTGO>
11770                     <EMPL? TEMP32 + TAG249>
11771                     <NTHL TEMP32 1 = STACK>
11772                     <RESTL TEMP32 1 = TEMP32 (TYPE LIST)>
11773                     <ADD TEMP34 1 = TEMP34 (TYPE FIX)>
11774                     <JUMP + TAG250>
11775 TAG249
11776                     <CALL '\1aFORM TEMP34 = NXT11>
11777                     <DEAD TEMP34>
11778 BOOL246
11779                     <RESTL NXT11 1 = TEMP32 (TYPE LIST)>
11780                     <RESTL TEMP32 1 = TEMP32 (TYPE LIST)>
11781                     <NTHL TEMP32 1 = DEAD?13>
11782                     <DEAD TEMP32>
11783                     <RESTL NXT11 1 = TEMP32 (TYPE LIST)>
11784                     <RESTL TEMP32 1 = TEMP32 (TYPE LIST)>
11785                     <RESTL TEMP32 1 = TEMP32 (TYPE LIST)>
11786                     <NTHL TEMP32 1 = TEMP32>
11787                     <EQUAL? TEMP32 '+ - TAG254>
11788                     <DEAD TEMP32>
11789                     <SET AC9 'T (TYPE ATOM)>
11790                     <JUMP + TAG255>
11791 TAG254
11792                     <SET AC9 %<> (TYPE FALSE)>
11793 TAG255
11794                     <VEQUAL? AC9 0 + PHRASE216>
11795                     <TYPE? DEAD?13 <TYPE-CODE ATOM> - BOOL257>
11796                     <FRAME '\1aIN-AC?>
11797                     <PUSH DEAD?13>
11798                     <PUSH 'VALUE>
11799                     <CALL '\1aIN-AC? 2 = TEMP32>
11800                     <TYPE? TEMP32 <TYPE-CODE FALSE> + BOOL257>
11801                     <DEAD TEMP32>
11802                     <FRAME '\1aWILL-DIE?>
11803                     <PUSH VAL8>
11804                     <RESTL L10 1 = STACK (TYPE LIST)>
11805                     <CALL '\1aWILL-DIE? 2 = TEMP32>
11806                     <TYPE? TEMP32 <TYPE-CODE FALSE> + BOOL257>
11807                     <DEAD TEMP32>
11808                     <FRAME '\1aWILL-DIE?>
11809                     <PUSH VAL8>
11810                     <DEAD VAL8>
11811                     <FRAME '\1aFIND-LABEL>
11812                     <NTHL NXT11 5 = STACK>
11813                     <CALL '\1aFIND-LABEL 1 = TEMP32>
11814                     <NTHUV TEMP32 7 = STACK (TYPE LIST)>
11815                     <DEAD TEMP32>
11816                     <CALL '\1aWILL-DIE? 2 = TEMP32>
11817                     <TYPE? TEMP32 <TYPE-CODE FALSE> - TAG271>
11818                     <DEAD TEMP32>
11819 BOOL257
11820                     <FRAME '\1aPRIMTYPE>
11821                     <PUSH DEAD?13>
11822                     <CALL '\1aPRIMTYPE 1 = TEMP32>
11823                     <VEQUAL? TEMP32 'FIX - BOOL264>
11824                     <DEAD TEMP32>
11825                     <VEQUAL? DEAD?13 0 + TAG271 (TYPE FIX)>
11826 BOOL264
11827                     <FRAME '\1aPRIMTYPE>
11828                     <PUSH DEAD?13>
11829                     <CALL '\1aPRIMTYPE 1 = TEMP32>
11830                     <VEQUAL? TEMP32 'LIST + TAG269>
11831                     <DEAD TEMP32>
11832                     <RETURN %<>>
11833 TAG269
11834                     <EMPL? DEAD?13 + TAG271 (TYPE LIST)>
11835                     <DEAD DEAD?13>
11836                     <RETURN %<>>
11837 TAG271
11838                     <RESTL L10 1 = TEMP32 (TYPE LIST)>
11839                     <RESTL TEMP32 1 = TEMP32 (TYPE LIST)>
11840                     <NTHL TEMP32 1 = TEMP32>
11841                     <EQUAL? TEMP32 TEMP26 + TAG281>
11842                     <DEAD TEMP32>
11843                     <RESTL L10 1 = TEMP32 (TYPE LIST)>
11844                     <RESTL TEMP32 1 = TEMP32 (TYPE LIST)>
11845                     <NTHL TEMP32 1 = TEMP32>
11846                     <TYPE? TEMP32 <TYPE-CODE FORM> + TAG274>
11847                     <DEAD TEMP32>
11848                     <RETURN %<>>
11849 TAG274
11850                     <RESTL L10 1 = TEMP32 (TYPE LIST)>
11851                     <RESTL TEMP32 1 = TEMP32 (TYPE LIST)>
11852                     <NTHL TEMP32 1 = TEMP32 (TYPE FORM)>
11853                     <NTHL TEMP32 1 = TEMP32 (TYPE ATOM)>
11854                     <NTHR TEMP32 3 = TEMP32 (RECORD-TYPE ATOM)>
11855                     <IFCAN "STRING-EQUAL?">
11856                     <STRING-EQUAL? TEMP32 "DEAD" + TAG276>
11857                     <ENDIF "STRING-EQUAL?">
11858                     <IFCANNOT "STRING-EQUAL?">
11859                     <SET TEMP33 "DEAD" (TYPE STRING)>
11860                     <LENUS TEMP32 = AC9 (TYPE FIX)>
11861                     <VEQUAL? AC9 4 - TAG277>
11862                     <LOOP (TEMP32 VALUE LENGTH) (TEMP33 VALUE LENGTH) (AC9 VALUE)>
11863 TAG280
11864                     <NTHUS TEMP32 1 = DEAD?13>
11865                     <NTHUS TEMP33 1 = TEMP34>
11866                     <VEQUAL? DEAD?13 TEMP34 - TAG277>
11867                     <DEAD DEAD?13 TEMP34>
11868                     <RESTUS TEMP32 1 = TEMP32 (TYPE STRING)>
11869                     <RESTUS TEMP33 1 = TEMP33 (TYPE STRING)>
11870                     <SUB AC9 1 = AC9 (TYPE FIX)>
11871                     <GRTR? AC9 0 + TAG280 (TYPE FIX)>
11872                     <JUMP + TAG276>
11873                     <ENDIF "STRING-EQUAL?">
11874 TAG277
11875                     <RETURN %<>>
11876 TAG276
11877                     <RESTL L10 1 = TEMP33 (TYPE LIST)>
11878                     <DEAD L10>
11879                     <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
11880                     <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
11881                     <NTHL TEMP33 1 = TEMP33>
11882                     <EQUAL? TEMP33 TEMP26 + TAG281>
11883                     <DEAD TEMP33 TEMP26>
11884                     <RETURN %<>>
11885 TAG281
11886                     <SETG 'NEXT-FLUSH 2>
11887                     <CONS TEMP35 NXT11 = TEMP33>
11888                     <DEAD TEMP35 NXT11>
11889                     <CONS 'TYPE? TEMP33 = TEMP33>
11890                     <CHTYPE TEMP33 <TYPE-CODE FORM> = NXT11>
11891                     <DEAD TEMP33>
11892                     <IFCAN "STRING-EQUAL?">
11893                     <STRING-EQUAL? INS5 "PUTL" - PHRASE283>
11894                     <ENDIF "STRING-EQUAL?">
11895                     <IFCANNOT "STRING-EQUAL?">
11896                     <SET TEMP33 INS5>
11897                     <SET TEMP32 "PUTL" (TYPE STRING)>
11898                     <LENUS TEMP33 = TEMP34 (TYPE FIX)>
11899                     <VEQUAL? TEMP34 4 - PHRASE283>
11900                     <LOOP (TEMP33 VALUE LENGTH) (TEMP32 VALUE LENGTH) (TEMP34 VALUE)>
11901 TAG285
11902                     <NTHUS TEMP33 1 = DEAD?13>
11903                     <NTHUS TEMP32 1 = AC9>
11904                     <VEQUAL? DEAD?13 AC9 - PHRASE283>
11905                     <DEAD DEAD?13 AC9>
11906                     <RESTUS TEMP33 1 = TEMP33 (TYPE STRING)>
11907                     <RESTUS TEMP32 1 = TEMP32 (TYPE STRING)>
11908                     <SUB TEMP34 1 = TEMP34 (TYPE FIX)>
11909                     <GRTR? TEMP34 0 + TAG285 (TYPE FIX)>
11910                     <ENDIF "STRING-EQUAL?">
11911                     <FRAME '\1aNTHL!-MIMOC>
11912                     <PUSH OL4>
11913                     <DEAD OL4>
11914                     <PUSH NXT11>
11915                     <DEAD NXT11>
11916                     <PUSH %<>>
11917                     <CALL '\1aNTHL!-MIMOC 3>
11918                     <JUMP + PHRASE287>
11919 PHRASE283
11920                     <FRAME '\1aNTHUV!-MIMOC>
11921                     <PUSH OL4>
11922                     <DEAD OL4>
11923                     <IFCAN "STRING-EQUAL?">
11924                     <STRING-EQUAL? INS5 "PUTUU" - TAG289>
11925                     <ENDIF "STRING-EQUAL?">
11926                     <IFCANNOT "STRING-EQUAL?">
11927                     <SET TEMP32 INS5>
11928                     <DEAD INS5>
11929                     <SET TEMP33 "PUTUU" (TYPE STRING)>
11930                     <LENUS TEMP32 = AC9 (TYPE FIX)>
11931                     <VEQUAL? AC9 5 - TAG289>
11932                     <LOOP (TEMP32 VALUE LENGTH) (TEMP33 VALUE LENGTH) (AC9 VALUE)>
11933 TAG291
11934                     <NTHUS TEMP32 1 = DEAD?13>
11935                     <NTHUS TEMP33 1 = TEMP34>
11936                     <VEQUAL? DEAD?13 TEMP34 - TAG289>
11937                     <DEAD DEAD?13 TEMP34>
11938                     <RESTUS TEMP32 1 = TEMP32 (TYPE STRING)>
11939                     <RESTUS TEMP33 1 = TEMP33 (TYPE STRING)>
11940                     <SUB AC9 1 = AC9 (TYPE FIX)>
11941                     <GRTR? AC9 0 + TAG291 (TYPE FIX)>
11942                     <ENDIF "STRING-EQUAL?">
11943                     <PUSH 'T>
11944                     <JUMP + TAG292>
11945 TAG289
11946                     <PUSH %<>>
11947 TAG292
11948                     <PUSH NXT11>
11949                     <DEAD NXT11>
11950                     <PUSH %<>>
11951                     <CALL '\1aNTHUV!-MIMOC 4>
11952 PHRASE287
11953                     <SET AC9 'T (TYPE ATOM)>
11954 PHRASE216
11955                     <RETURN AC9>
11956                     <DEAD AC9>
11957                     <END \1aNTH-PUT-LOOK-AHEAD>
11958 #WORD *22445107601*
11959 <GFCN \1aSTRING-PUT-NTH-LOOK-AHEAD ("VALUE" <OR ATOM FALSE> ATOM ATOM ANY ANY FIX) STR4 PUT-OR-NTH5 VAL6 BYTES?7 AMT8>
11960                     <TEMP (STACK-OK?9 'T) TEMP11 L10:LIST TEMP22 TEMP35 NM26:STRING TEMP36 TEMP37 TEMP38 TEMP39>
11961                     <INTGO>
11962                     <GEN-LVAL 'MIML = TEMP11>
11963                     <RESTL TEMP11 1 = L10 (TYPE LIST)>
11964                     <DEAD TEMP11>
11965                     <CHTYPE L10 <TYPE-CODE LIST> = L10>
11966                     <SET TEMP22 %<> (TYPE FALSE)>
11967                     <SET TEMP11 L10 (TYPE LIST)>
11968                     <DEAD L10>
11969                     <LOOP>
11970 MAP15
11971                     <INTGO>
11972                     <EMPL? TEMP11 + MAPAP18>
11973                     <SET L10 TEMP11>
11974                     <NTHL L10 1 = TEMP22>
11975                     <TYPE? TEMP22 <TYPE-CODE ATOM> - PHRASE29>
11976                     <RETURN %<>>
11977 PHRASE29
11978                     <NTHL TEMP22 1 = TEMP35 (TYPE ATOM)>
11979                     <NTHR TEMP35 3 = NM26 (RECORD-TYPE ATOM)>
11980                     <DEAD TEMP35>
11981                     <IFCAN "STRING-EQUAL?">
11982                     <STRING-EQUAL? NM26 "CALL" + BOOL33>
11983                     <ENDIF "STRING-EQUAL?">
11984                     <IFCANNOT "STRING-EQUAL?">
11985                     <SET TEMP35 NM26>
11986                     <SET TEMP36 "CALL" (TYPE STRING)>
11987                     <LENUS TEMP35 = TEMP37 (TYPE FIX)>
11988                     <VEQUAL? TEMP37 4 - TAG34>
11989                     <LOOP (TEMP35 VALUE LENGTH) (TEMP36 VALUE LENGTH) (TEMP37 VALUE)>
11990 TAG40
11991                     <NTHUS TEMP35 1 = TEMP38>
11992                     <NTHUS TEMP36 1 = TEMP39>
11993                     <VEQUAL? TEMP38 TEMP39 - TAG34>
11994                     <DEAD TEMP38 TEMP39>
11995                     <RESTUS TEMP35 1 = TEMP35 (TYPE STRING)>
11996                     <RESTUS TEMP36 1 = TEMP36 (TYPE STRING)>
11997                     <SUB TEMP37 1 = TEMP37 (TYPE FIX)>
11998                     <GRTR? TEMP37 0 + TAG40 (TYPE FIX)>
11999                     <JUMP + BOOL33>
12000                     <ENDIF "STRING-EQUAL?">
12001 TAG34
12002                     <IFCAN "STRING-EQUAL?">
12003                     <STRING-EQUAL? NM26 "FRAME" + BOOL33>
12004                     <ENDIF "STRING-EQUAL?">
12005                     <IFCANNOT "STRING-EQUAL?">
12006                     <SET TEMP36 NM26>
12007                     <SET TEMP35 "FRAME" (TYPE STRING)>
12008                     <LENUS TEMP36 = TEMP39 (TYPE FIX)>
12009                     <VEQUAL? TEMP39 5 - TAG41>
12010                     <LOOP (TEMP36 VALUE LENGTH) (TEMP35 VALUE LENGTH) (TEMP39 VALUE)>
12011 TAG43
12012                     <NTHUS TEMP36 1 = TEMP38>
12013                     <NTHUS TEMP35 1 = TEMP37>
12014                     <VEQUAL? TEMP38 TEMP37 - TAG41>
12015                     <DEAD TEMP38 TEMP37>
12016                     <RESTUS TEMP36 1 = TEMP36 (TYPE STRING)>
12017                     <RESTUS TEMP35 1 = TEMP35 (TYPE STRING)>
12018                     <SUB TEMP39 1 = TEMP39 (TYPE FIX)>
12019                     <GRTR? TEMP39 0 + TAG43 (TYPE FIX)>
12020                     <JUMP + BOOL33>
12021                     <ENDIF "STRING-EQUAL?">
12022 TAG41
12023                     <IFCAN "STRING-EQUAL?">
12024                     <STRING-EQUAL? NM26 "SFRAME" + BOOL33>
12025                     <ENDIF "STRING-EQUAL?">
12026                     <IFCANNOT "STRING-EQUAL?">
12027                     <SET TEMP35 NM26>
12028                     <SET TEMP36 "SFRAME" (TYPE STRING)>
12029                     <LENUS TEMP35 = TEMP37 (TYPE FIX)>
12030                     <VEQUAL? TEMP37 6 - TAG44>
12031                     <LOOP (TEMP35 VALUE LENGTH) (TEMP36 VALUE LENGTH) (TEMP37 VALUE)>
12032 TAG46
12033                     <NTHUS TEMP35 1 = TEMP38>
12034                     <NTHUS TEMP36 1 = TEMP39>
12035                     <VEQUAL? TEMP38 TEMP39 - TAG44>
12036                     <DEAD TEMP38 TEMP39>
12037                     <RESTUS TEMP35 1 = TEMP35 (TYPE STRING)>
12038                     <RESTUS TEMP36 1 = TEMP36 (TYPE STRING)>
12039                     <SUB TEMP37 1 = TEMP37 (TYPE FIX)>
12040                     <GRTR? TEMP37 0 + TAG46 (TYPE FIX)>
12041                     <JUMP + BOOL33>
12042                     <ENDIF "STRING-EQUAL?">
12043 TAG44
12044                     <IFCAN "STRING-EQUAL?">
12045                     <STRING-EQUAL? NM26 "SCALL" + BOOL33>
12046                     <ENDIF "STRING-EQUAL?">
12047                     <IFCANNOT "STRING-EQUAL?">
12048                     <SET TEMP36 NM26>
12049                     <SET TEMP35 "SCALL" (TYPE STRING)>
12050                     <LENUS TEMP36 = TEMP39 (TYPE FIX)>
12051                     <VEQUAL? TEMP39 5 - TAG47>
12052                     <LOOP (TEMP36 VALUE LENGTH) (TEMP35 VALUE LENGTH) (TEMP39 VALUE)>
12053 TAG49
12054                     <NTHUS TEMP36 1 = TEMP38>
12055                     <NTHUS TEMP35 1 = TEMP37>
12056                     <VEQUAL? TEMP38 TEMP37 - TAG47>
12057                     <DEAD TEMP38 TEMP37>
12058                     <RESTUS TEMP36 1 = TEMP36 (TYPE STRING)>
12059                     <RESTUS TEMP35 1 = TEMP35 (TYPE STRING)>
12060                     <SUB TEMP39 1 = TEMP39 (TYPE FIX)>
12061                     <GRTR? TEMP39 0 + TAG49 (TYPE FIX)>
12062                     <JUMP + BOOL33>
12063                     <ENDIF "STRING-EQUAL?">
12064 TAG47
12065                     <IFCAN "STRING-EQUAL?">
12066                     <STRING-EQUAL? NM26 "ACALL" + BOOL33>
12067                     <ENDIF "STRING-EQUAL?">
12068                     <IFCANNOT "STRING-EQUAL?">
12069                     <SET TEMP35 NM26>
12070                     <SET TEMP36 "ACALL" (TYPE STRING)>
12071                     <LENUS TEMP35 = TEMP37 (TYPE FIX)>
12072                     <VEQUAL? TEMP37 5 - TAG50>
12073                     <LOOP (TEMP35 VALUE LENGTH) (TEMP36 VALUE LENGTH) (TEMP37 VALUE)>
12074 TAG52
12075                     <NTHUS TEMP35 1 = TEMP38>
12076                     <NTHUS TEMP36 1 = TEMP39>
12077                     <VEQUAL? TEMP38 TEMP39 - TAG50>
12078                     <DEAD TEMP38 TEMP39>
12079                     <RESTUS TEMP35 1 = TEMP35 (TYPE STRING)>
12080                     <RESTUS TEMP36 1 = TEMP36 (TYPE STRING)>
12081                     <SUB TEMP37 1 = TEMP37 (TYPE FIX)>
12082                     <GRTR? TEMP37 0 + TAG52 (TYPE FIX)>
12083                     <JUMP + BOOL33>
12084                     <ENDIF "STRING-EQUAL?">
12085 TAG50
12086                     <IFCAN "STRING-EQUAL?">
12087                     <STRING-EQUAL? NM26 "PUSH" + BOOL33>
12088                     <ENDIF "STRING-EQUAL?">
12089                     <IFCANNOT "STRING-EQUAL?">
12090                     <SET TEMP36 NM26>
12091                     <SET TEMP35 "PUSH" (TYPE STRING)>
12092                     <LENUS TEMP36 = TEMP39 (TYPE FIX)>
12093                     <VEQUAL? TEMP39 4 - TAG53>
12094                     <LOOP (TEMP36 VALUE LENGTH) (TEMP35 VALUE LENGTH) (TEMP39 VALUE)>
12095 TAG55
12096                     <NTHUS TEMP36 1 = TEMP38>
12097                     <NTHUS TEMP35 1 = TEMP37>
12098                     <VEQUAL? TEMP38 TEMP37 - TAG53>
12099                     <DEAD TEMP38 TEMP37>
12100                     <RESTUS TEMP36 1 = TEMP36 (TYPE STRING)>
12101                     <RESTUS TEMP35 1 = TEMP35 (TYPE STRING)>
12102                     <SUB TEMP39 1 = TEMP39 (TYPE FIX)>
12103                     <GRTR? TEMP39 0 + TAG55 (TYPE FIX)>
12104                     <JUMP + BOOL33>
12105                     <ENDIF "STRING-EQUAL?">
12106 TAG53
12107                     <IFCAN "STRING-EQUAL?">
12108                     <STRING-EQUAL? NM26 "ADJ" - PHRASE32>
12109                     <ENDIF "STRING-EQUAL?">
12110                     <IFCANNOT "STRING-EQUAL?">
12111                     <SET TEMP35 NM26>
12112                     <DEAD NM26>
12113                     <SET TEMP36 "ADJ" (TYPE STRING)>
12114                     <LENUS TEMP35 = TEMP37 (TYPE FIX)>
12115                     <VEQUAL? TEMP37 3 - PHRASE32>
12116                     <LOOP (TEMP35 VALUE LENGTH) (TEMP36 VALUE LENGTH) (TEMP37 VALUE)>
12117 TAG57
12118                     <NTHUS TEMP35 1 = TEMP38>
12119                     <NTHUS TEMP36 1 = TEMP39>
12120                     <VEQUAL? TEMP38 TEMP39 - PHRASE32>
12121                     <DEAD TEMP38 TEMP39>
12122                     <RESTUS TEMP35 1 = TEMP35 (TYPE STRING)>
12123                     <RESTUS TEMP36 1 = TEMP36 (TYPE STRING)>
12124                     <SUB TEMP37 1 = TEMP37 (TYPE FIX)>
12125                     <GRTR? TEMP37 0 + TAG57 (TYPE FIX)>
12126                     <ENDIF "STRING-EQUAL?">
12127 BOOL33
12128                     <SET STACK-OK?9 %<> (TYPE FALSE)>
12129 PHRASE32
12130                     <NTHL TEMP22 1 = TEMP36 (TYPE ATOM)>
12131                     <NTHR TEMP36 3 = NM26 (RECORD-TYPE ATOM)>
12132                     <DEAD TEMP36>
12133                     <IFCAN "STRING-EQUAL?">
12134                     <STRING-EQUAL? NM26 "RESTUS" - BOOL62>
12135                     <ENDIF "STRING-EQUAL?">
12136                     <IFCANNOT "STRING-EQUAL?">
12137                     <SET TEMP36 NM26>
12138                     <SET TEMP35 "RESTUS" (TYPE STRING)>
12139                     <LENUS TEMP36 = TEMP39 (TYPE FIX)>
12140                     <VEQUAL? TEMP39 6 - BOOL62>
12141                     <LOOP (TEMP36 VALUE LENGTH) (TEMP35 VALUE LENGTH) (TEMP39 VALUE)>
12142 TAG64
12143                     <NTHUS TEMP36 1 = TEMP38>
12144                     <NTHUS TEMP35 1 = TEMP37>
12145                     <VEQUAL? TEMP38 TEMP37 - BOOL62>
12146                     <DEAD TEMP38 TEMP37>
12147                     <RESTUS TEMP36 1 = TEMP36 (TYPE STRING)>
12148                     <RESTUS TEMP35 1 = TEMP35 (TYPE STRING)>
12149                     <SUB TEMP39 1 = TEMP39 (TYPE FIX)>
12150                     <GRTR? TEMP39 0 + TAG64 (TYPE FIX)>
12151                     <ENDIF "STRING-EQUAL?">
12152                     <TYPE? BYTES?7 <TYPE-CODE FALSE> + BOOL61>
12153 BOOL62
12154                     <TYPE? BYTES?7 <TYPE-CODE FALSE> + PHRASE59>
12155                     <IFCAN "STRING-EQUAL?">
12156                     <STRING-EQUAL? NM26 "RESTUB" - PHRASE59>
12157                     <ENDIF "STRING-EQUAL?">
12158                     <IFCANNOT "STRING-EQUAL?">
12159                     <SET TEMP35 NM26>
12160                     <SET TEMP36 "RESTUB" (TYPE STRING)>
12161                     <LENUS TEMP35 = TEMP37 (TYPE FIX)>
12162                     <VEQUAL? TEMP37 6 - PHRASE59>
12163                     <LOOP (TEMP35 VALUE LENGTH) (TEMP36 VALUE LENGTH) (TEMP37 VALUE)>
12164 TAG67
12165                     <NTHUS TEMP35 1 = TEMP38>
12166                     <NTHUS TEMP36 1 = TEMP39>
12167                     <VEQUAL? TEMP38 TEMP39 - PHRASE59>
12168                     <DEAD TEMP38 TEMP39>
12169                     <RESTUS TEMP35 1 = TEMP35 (TYPE STRING)>
12170                     <RESTUS TEMP36 1 = TEMP36 (TYPE STRING)>
12171                     <SUB TEMP37 1 = TEMP37 (TYPE FIX)>
12172                     <GRTR? TEMP37 0 + TAG67 (TYPE FIX)>
12173                     <ENDIF "STRING-EQUAL?">
12174 BOOL61
12175                     <VEQUAL? AMT8 1 - PHRASE59 (TYPE FIX)>
12176                     <RESTL TEMP22 1 = TEMP36 (TYPE LIST)>
12177                     <NTHL TEMP36 1 = TEMP36>
12178                     <EQUAL? TEMP36 STR4 - PHRASE59>
12179                     <DEAD TEMP36>
12180                     <RESTL TEMP22 1 = TEMP36 (TYPE LIST)>
12181                     <RESTL TEMP36 1 = TEMP36 (TYPE LIST)>
12182                     <NTHL TEMP36 1 = TEMP36>
12183                     <EQUAL? TEMP36 1 - PHRASE59>
12184                     <DEAD TEMP36>
12185                     <VEQUAL? STACK-OK?9 0 - PHRASE71>
12186                     <DEAD STACK-OK?9>
12187                     <SET TEMP36 TEMP22>
12188                     <LOOP (TEMP36 VALUE)>
12189 TAG74
12190                     <NTHL TEMP36 1 = TEMP35>
12191                     <TYPE? TEMP35 <TYPE-CODE ATOM> - TAG75>
12192                     <VEQUAL? TEMP35 'STACK + TAG73>
12193                     <DEAD TEMP35>
12194 TAG75
12195                     <RESTL TEMP36 1 = TEMP36 (TYPE LIST)>
12196                     <EMPL? TEMP36 - TAG74>
12197                     <JUMP + PHRASE71>
12198 TAG73
12199                     <RETURN %<>>
12200 PHRASE71
12201                     <FRAME '\1aRESTUS!-MIMOC>
12202                     <RESTL TEMP22 1 = TEMP35 (TYPE LIST)>
12203                     <CHTYPE TEMP35 <TYPE-CODE LIST> = STACK>
12204                     <DEAD TEMP35>
12205                     <PUSH BYTES?7>
12206                     <DEAD BYTES?7>
12207                     <PUSH VAL6>
12208                     <DEAD VAL6>
12209                     <PUSH PUT-OR-NTH5>
12210                     <DEAD PUT-OR-NTH5>
12211                     <FRAME '\1aWILL-DIE?>
12212                     <PUSH STR4>
12213                     <DEAD STR4>
12214                     <PUSH L10>
12215                     <DEAD L10>
12216                     <CALL '\1aWILL-DIE? 2 = STACK>
12217                     <CALL '\1aRESTUS!-MIMOC 5>
12218                     <FRAME '\1aPUTPROP>
12219                     <RESTL TEMP22 1 = TEMP39 (TYPE LIST)>
12220                     <DEAD TEMP22>
12221                     <CHTYPE TEMP39 <TYPE-CODE LIST> = STACK>
12222                     <DEAD TEMP39>
12223                     <PUSH 'DONE>
12224                     <PUSH 'T>
12225                     <CALL '\1aPUTPROP 3>
12226                     <RETURN 'T>
12227 PHRASE59
12228                     <VEQUAL? PUT-OR-NTH5 'PUT - BOOL83>
12229                     <TYPE? BYTES?7 <TYPE-CODE FALSE> + BOOL85>
12230                     <SET TEMP35 "PUTUB" (TYPE STRING)>
12231                     <JUMP + BOOL81>
12232 BOOL85
12233                     <SET TEMP35 "PUTUS" (TYPE STRING)>
12234                     <JUMP + BOOL81>
12235 BOOL83
12236                     <TYPE? BYTES?7 <TYPE-CODE FALSE> + BOOL86>
12237                     <SET TEMP35 "NTHUB" (TYPE STRING)>
12238                     <JUMP + BOOL81>
12239 BOOL86
12240                     <SET TEMP35 "NTHUS" (TYPE STRING)>
12241 BOOL81
12242                     <IFCAN "STRING-EQUAL?">
12243                     <STRING-EQUAL? NM26 TEMP35 - PHRASE79>
12244                     <ENDIF "STRING-EQUAL?">
12245                     <IFCANNOT "STRING-EQUAL?">
12246                     <SET TEMP36 NM26>
12247                     <DEAD NM26>
12248                     <LENUS TEMP36 = TEMP37 (TYPE FIX)>
12249                     <LENUS TEMP35 = TEMP38 (TYPE FIX)>
12250                     <VEQUAL? TEMP37 TEMP38 - PHRASE79>
12251                     <DEAD TEMP38>
12252                     <LOOP (TEMP36 VALUE LENGTH) (TEMP35 VALUE LENGTH) (TEMP37 VALUE)>
12253 TAG91
12254                     <NTHUS TEMP36 1 = TEMP38>
12255                     <NTHUS TEMP35 1 = TEMP39>
12256                     <VEQUAL? TEMP38 TEMP39 - PHRASE79>
12257                     <DEAD TEMP38 TEMP39>
12258                     <RESTUS TEMP36 1 = TEMP36 (TYPE STRING)>
12259                     <RESTUS TEMP35 1 = TEMP35 (TYPE STRING)>
12260                     <SUB TEMP37 1 = TEMP37 (TYPE FIX)>
12261                     <GRTR? TEMP37 0 + TAG91 (TYPE FIX)>
12262                     <ENDIF "STRING-EQUAL?">
12263                     <RESTL TEMP22 1 = TEMP35 (TYPE LIST)>
12264                     <NTHL TEMP35 1 = TEMP35>
12265                     <EQUAL? TEMP35 STR4 - PHRASE79>
12266                     <DEAD TEMP35>
12267                     <RESTL TEMP22 1 = TEMP35 (TYPE LIST)>
12268                     <RESTL TEMP35 1 = TEMP35 (TYPE LIST)>
12269                     <NTHL TEMP35 1 = TEMP35>
12270                     <ADD AMT8 1 = TEMP36 (TYPE FIX)>
12271                     <EQUAL? TEMP35 TEMP36 - PHRASE79>
12272                     <DEAD TEMP35 TEMP36>
12273                     <VEQUAL? STACK-OK?9 0 - PHRASE93>
12274                     <DEAD STACK-OK?9>
12275                     <SET TEMP36 TEMP22>
12276                     <DEAD TEMP22>
12277                     <LOOP (TEMP36 VALUE)>
12278 TAG96
12279                     <NTHL TEMP36 1 = TEMP35>
12280                     <TYPE? TEMP35 <TYPE-CODE ATOM> - TAG97>
12281                     <VEQUAL? TEMP35 'STACK + TAG95>
12282                     <DEAD TEMP35>
12283 TAG97
12284                     <RESTL TEMP36 1 = TEMP36 (TYPE LIST)>
12285                     <EMPL? TEMP36 - TAG96>
12286                     <JUMP + PHRASE93>
12287 TAG95
12288                     <RETURN %<>>
12289 PHRASE93
12290                     <SETG 'REMEMBER-STRING 'T>
12291                     <FRAME '\1aWILL-DIE?>
12292                     <PUSH STR4>
12293                     <DEAD STR4>
12294                     <PUSH L10>
12295                     <DEAD L10>
12296                     <CALL '\1aWILL-DIE? 2 = TEMP35>
12297                     <TYPE? TEMP35 <TYPE-CODE FALSE> + PHRASE99>
12298                     <DEAD TEMP35>
12299                     <SETG 'DIE-LATER 'T>
12300 PHRASE99
12301                     <RETURN %<>>
12302 PHRASE79
12303                     <SET TEMP39 TEMP22>
12304                     <LOOP (STR4 VALUE) (TEMP39 VALUE)>
12305 TAG104
12306                     <NTHL TEMP39 1 = TEMP38>
12307                     <TYPE? TEMP38 <TYPE-CODE ATOM> - TAG105>
12308                     <VEQUAL? TEMP38 STR4 + TAG119>
12309                     <DEAD TEMP38>
12310 TAG105
12311                     <RESTL TEMP39 1 = TEMP39 (TYPE LIST)>
12312                     <EMPL? TEMP39 - TAG104>
12313                     <SET TEMP39 TEMP22>
12314                     <LOOP (TEMP39 VALUE)>
12315 TAG107
12316                     <NTHL TEMP39 1 = TEMP38>
12317                     <TYPE? TEMP38 <TYPE-CODE ATOM> - TAG108>
12318                     <VEQUAL? TEMP38 '+ + TAG119>
12319                     <DEAD TEMP38>
12320 TAG108
12321                     <RESTL TEMP39 1 = TEMP39 (TYPE LIST)>
12322                     <EMPL? TEMP39 - TAG107>
12323                     <SET TEMP39 TEMP22>
12324                     <LOOP (TEMP39 VALUE)>
12325 TAG110
12326                     <NTHL TEMP39 1 = TEMP38>
12327                     <TYPE? TEMP38 <TYPE-CODE ATOM> - TAG111>
12328                     <VEQUAL? TEMP38 '- + TAG119>
12329                     <DEAD TEMP38>
12330 TAG111
12331                     <RESTL TEMP39 1 = TEMP39 (TYPE LIST)>
12332                     <EMPL? TEMP39 - TAG110>
12333                     <SET TEMP35 TEMP22>
12334                     <LOOP (TEMP35 VALUE)>
12335 TAG113
12336                     <RESTL TEMP35 1 = TEMP39 (TYPE LIST)>
12337                     <EMPL? TEMP39 + TAG114>
12338                     <SET TEMP35 TEMP39>
12339                     <DEAD TEMP39>
12340                     <JUMP + TAG113>
12341 TAG114
12342                     <NTHL TEMP35 1 = TEMP35>
12343                     <TYPE? TEMP35 <TYPE-CODE LIST> - PHRASE101>
12344                     <SET TEMP39 TEMP35>
12345                     <EMPL? TEMP39 + TAG116>
12346                     <LOOP (TEMP39 VALUE)>
12347 TAG117
12348                     <NTHL TEMP39 1 = TEMP38>
12349                     <TYPE? TEMP38 <TYPE-CODE ATOM> - TAG118>
12350                     <VEQUAL? TEMP38 '+ + TAG119>
12351                     <DEAD TEMP38>
12352 TAG118
12353                     <RESTL TEMP39 1 = TEMP39 (TYPE LIST)>
12354                     <EMPL? TEMP39 - TAG117>
12355 TAG116
12356                     <SET TEMP39 TEMP35>
12357                     <DEAD TEMP35>
12358                     <EMPL? TEMP39 + PHRASE101>
12359                     <LOOP (TEMP39 VALUE)>
12360 TAG120
12361                     <NTHL TEMP39 1 = TEMP38>
12362                     <TYPE? TEMP38 <TYPE-CODE ATOM> - TAG121>
12363                     <VEQUAL? TEMP38 '- + TAG119>
12364                     <DEAD TEMP38>
12365 TAG121
12366                     <RESTL TEMP39 1 = TEMP39 (TYPE LIST)>
12367                     <EMPL? TEMP39 - TAG120>
12368                     <JUMP + PHRASE101>
12369 TAG119
12370                     <RETURN %<>>
12371 PHRASE101
12372                     <CHTYPE TEMP22 <TYPE-CODE LIST> = TEMP22>
12373                     <LOOP (TEMP22 VALUE)>
12374 TAG125
12375                     <NTHL TEMP22 1 = TEMP38>
12376                     <TYPE? TEMP38 <TYPE-CODE ATOM> - TAG126>
12377                     <VEQUAL? TEMP38 'STACK + TAG124>
12378                     <DEAD TEMP38>
12379 TAG126
12380                     <RESTL TEMP22 1 = TEMP22 (TYPE LIST)>
12381                     <EMPL? TEMP22 - TAG125>
12382                     <SET TEMP22 %<> (TYPE FALSE)>
12383                     <JUMP + PHRASE122>
12384 TAG124
12385                     <SET STACK-OK?9 %<> (TYPE FALSE)>
12386                     <SET TEMP22 STACK-OK?9>
12387 PHRASE122
12388                     <RESTL TEMP11 1 = TEMP11 (TYPE LIST)>
12389                     <JUMP + MAP15>
12390 MAPAP18
12391                     <RETURN TEMP22>
12392                     <DEAD TEMP22>
12393                     <END \1aSTRING-PUT-NTH-LOOK-AHEAD>
12394 #WORD *2142473301*
12395 <GFCN \1aSTRING-REST-LOOK-AHEAD ("VALUE" <OR ATOM FALSE> ANY ATOM ANY ANY) RINS4 STR5 VAL6 BYTES?7>
12396                     <TEMP TEMP10 L8:LIST (PUT?9 %<>) TEMP21 LL23:LIST TEMP36 NM25:STRING TEMP37 TEMP38 TEMP39 TEMP40>
12397                     <INTGO>
12398                     <GEN-LVAL 'MIML = TEMP10>
12399                     <RESTL TEMP10 1 = L8 (TYPE LIST)>
12400                     <DEAD TEMP10>
12401                     <CHTYPE L8 <TYPE-CODE LIST> = L8>
12402                     <SET TEMP21 %<> (TYPE FALSE)>
12403                     <SET TEMP10 L8 (TYPE LIST)>
12404                     <LOOP>
12405 MAP14
12406                     <INTGO>
12407                     <EMPL? TEMP10 + MAPAP17>
12408                     <SET LL23 TEMP10>
12409                     <NTHL LL23 1 = TEMP21>
12410                     <TYPE? TEMP21 <TYPE-CODE ATOM> - PHRASE29>
12411                     <RETURN %<>>
12412 PHRASE29
12413                     <NTHL TEMP21 1 = TEMP36 (TYPE ATOM)>
12414                     <NTHR TEMP36 3 = NM25 (RECORD-TYPE ATOM)>
12415                     <DEAD TEMP36>
12416                     <IFCAN "STRING-EQUAL?">
12417                     <STRING-EQUAL? NM25 "NTHUS" + BOOL34>
12418                     <ENDIF "STRING-EQUAL?">
12419                     <IFCANNOT "STRING-EQUAL?">
12420                     <SET TEMP36 NM25>
12421                     <SET TEMP37 "NTHUS" (TYPE STRING)>
12422                     <LENUS TEMP36 = TEMP38 (TYPE FIX)>
12423                     <VEQUAL? TEMP38 5 - TAG35>
12424                     <LOOP (TEMP36 VALUE LENGTH) (TEMP37 VALUE LENGTH) (TEMP38 VALUE)>
12425 TAG41
12426                     <NTHUS TEMP36 1 = TEMP39>
12427                     <NTHUS TEMP37 1 = TEMP40>
12428                     <VEQUAL? TEMP39 TEMP40 - TAG35>
12429                     <DEAD TEMP39 TEMP40>
12430                     <RESTUS TEMP36 1 = TEMP36 (TYPE STRING)>
12431                     <RESTUS TEMP37 1 = TEMP37 (TYPE STRING)>
12432                     <SUB TEMP38 1 = TEMP38 (TYPE FIX)>
12433                     <GRTR? TEMP38 0 + TAG41 (TYPE FIX)>
12434                     <JUMP + BOOL34>
12435                     <ENDIF "STRING-EQUAL?">
12436 TAG35
12437                     <IFCAN "STRING-EQUAL?">
12438                     <STRING-EQUAL? NM25 "PUTUS" - PHRASE32>
12439                     <ENDIF "STRING-EQUAL?">
12440                     <IFCANNOT "STRING-EQUAL?">
12441                     <SET TEMP37 NM25>
12442                     <SET TEMP36 "PUTUS" (TYPE STRING)>
12443                     <LENUS TEMP37 = TEMP40 (TYPE FIX)>
12444                     <VEQUAL? TEMP40 5 - PHRASE32>
12445                     <LOOP (TEMP37 VALUE LENGTH) (TEMP36 VALUE LENGTH) (TEMP40 VALUE)>
12446 TAG44
12447                     <NTHUS TEMP37 1 = TEMP39>
12448                     <NTHUS TEMP36 1 = TEMP38>
12449                     <VEQUAL? TEMP39 TEMP38 - PHRASE32>
12450                     <DEAD TEMP39>
12451                     <RESTUS TEMP37 1 = TEMP37 (TYPE STRING)>
12452                     <RESTUS TEMP36 1 = TEMP36 (TYPE STRING)>
12453                     <SUB TEMP40 1 = TEMP40 (TYPE FIX)>
12454                     <GRTR? TEMP40 0 + TAG44 (TYPE FIX)>
12455                     <ENDIF "STRING-EQUAL?">
12456                     <SET PUT?9 'T (TYPE ATOM)>
12457 BOOL34
12458                     <RESTL TEMP21 1 = TEMP36 (TYPE LIST)>
12459                     <NTHL TEMP36 1 = TEMP36>
12460                     <EQUAL? TEMP36 STR5 - PHRASE32>
12461                     <DEAD TEMP36>
12462                     <RESTL TEMP21 1 = TEMP36 (TYPE LIST)>
12463                     <RESTL TEMP36 1 = TEMP36 (TYPE LIST)>
12464                     <NTHL TEMP36 1 = TEMP36>
12465                     <EQUAL? TEMP36 1 - PHRASE32>
12466                     <DEAD TEMP36>
12467                     <VEQUAL? PUT?9 0 + PHRASE48>
12468                     <RESTL TEMP21 1 = TEMP38 (TYPE LIST)>
12469                     <RESTL TEMP38 1 = TEMP38 (TYPE LIST)>
12470                     <RESTL TEMP38 1 = TEMP38 (TYPE LIST)>
12471                     <NTHL TEMP38 1 = TEMP36>
12472                     <DEAD TEMP38>
12473                     <JUMP + PHRASE49>
12474 PHRASE48
12475                     <NTHL TEMP21 5 = TEMP36>
12476 PHRASE49
12477                     <SET TEMP40 %<> (TYPE FALSE)>
12478                     <SET TEMP38 L8 (TYPE LIST)>
12479                     <LOOP>
12480 MAP51
12481                     <INTGO>
12482                     <EMPL? TEMP38 + MAPAP54>
12483                     <NTHL TEMP38 1 = TEMP37>
12484                     <VEQUAL? TEMP37 TEMP21 - PHRASE61>
12485                     <SET TEMP36 'T (TYPE ATOM)>
12486                     <JUMP + MAPEX53>
12487 PHRASE61
12488                     <RESTL TEMP37 1 = TEMP40 (TYPE LIST)>
12489                     <DEAD TEMP37>
12490                     <CHTYPE TEMP40 <TYPE-CODE LIST> = TEMP40>
12491                     <TYPE TEMP36 = TEMP39>
12492                     <EMPL? TEMP40 + TAG65>
12493                     <LOOP (TEMP36 VALUE) (TEMP39 VALUE) (TEMP40 VALUE)>
12494 TAG67
12495                     <NTHL TEMP40 1 = TEMP37>
12496                     <TYPE? TEMP37 TEMP39 - TAG68>
12497                     <VEQUAL? TEMP37 TEMP36 + TAG66>
12498                     <DEAD TEMP37>
12499 TAG68
12500                     <RESTL TEMP40 1 = TEMP40 (TYPE LIST)>
12501                     <EMPL? TEMP40 - TAG67>
12502 TAG65
12503                     <SET TEMP40 %<> (TYPE FALSE)>
12504                     <JUMP + PHRASE64>
12505 TAG66
12506                     <SET TEMP36 %<> (TYPE FALSE)>
12507                     <JUMP + MAPEX53>
12508 PHRASE64
12509                     <RESTL TEMP38 1 = TEMP38 (TYPE LIST)>
12510                     <JUMP + MAP51>
12511 MAPAP54
12512                     <SET TEMP36 TEMP40>
12513                     <DEAD TEMP40>
12514 MAPEX53
12515                     <TYPE? TEMP36 <TYPE-CODE FALSE> + PHRASE32>
12516                     <DEAD TEMP36>
12517                     <FRAME '\1aRESTUS!-MIMOC>
12518                     <PUSH RINS4>
12519                     <DEAD RINS4>
12520                     <PUSH BYTES?7>
12521                     <DEAD BYTES?7>
12522                     <NTHL TEMP21 5 = STACK>
12523                     <IFCAN "STRING-EQUAL?">
12524                     <STRING-EQUAL? NM25 "PUTUS" - PHRASE73>
12525                     <ENDIF "STRING-EQUAL?">
12526                     <IFCANNOT "STRING-EQUAL?">
12527                     <SET TEMP36 NM25>
12528                     <DEAD NM25>
12529                     <SET TEMP38 "PUTUS" (TYPE STRING)>
12530                     <LENUS TEMP36 = TEMP40 (TYPE FIX)>
12531                     <VEQUAL? TEMP40 5 - PHRASE73>
12532                     <LOOP (TEMP36 VALUE LENGTH) (TEMP38 VALUE LENGTH) (TEMP40 VALUE)>
12533 TAG74
12534                     <NTHUS TEMP36 1 = TEMP39>
12535                     <NTHUS TEMP38 1 = TEMP37>
12536                     <VEQUAL? TEMP39 TEMP37 - PHRASE73>
12537                     <DEAD TEMP39>
12538                     <RESTUS TEMP36 1 = TEMP36 (TYPE STRING)>
12539                     <RESTUS TEMP38 1 = TEMP38 (TYPE STRING)>
12540                     <SUB TEMP40 1 = TEMP40 (TYPE FIX)>
12541                     <GRTR? TEMP40 0 + TAG74 (TYPE FIX)>
12542                     <ENDIF "STRING-EQUAL?">
12543                     <SET TEMP38 'PUT (TYPE ATOM)>
12544                     <JUMP + COND72>
12545 PHRASE73
12546                     <SET TEMP38 'NTH (TYPE ATOM)>
12547 COND72
12548                     <PUSH TEMP38>
12549                     <DEAD TEMP38>
12550                     <FRAME '\1aWILL-DIE?>
12551                     <PUSH STR5>
12552                     <DEAD STR5>
12553                     <PUSH LL23>
12554                     <DEAD LL23>
12555                     <CALL '\1aWILL-DIE? 2 = STACK>
12556                     <CALL '\1aRESTUS!-MIMOC 5>
12557                     <FRAME '\1aPUTPROP>
12558                     <RESTL TEMP21 1 = TEMP38 (TYPE LIST)>
12559                     <DEAD TEMP21>
12560                     <CHTYPE TEMP38 <TYPE-CODE LIST> = STACK>
12561                     <DEAD TEMP38>
12562                     <PUSH 'DONE>
12563                     <PUSH 'T>
12564                     <CALL '\1aPUTPROP 3>
12565                     <RETURN 'T>
12566 PHRASE32
12567                     <SET TEMP37 TEMP21>
12568                     <LOOP (STR5 VALUE) (TEMP37 VALUE)>
12569 TAG80
12570                     <NTHL TEMP37 1 = TEMP39>
12571                     <TYPE? TEMP39 <TYPE-CODE ATOM> - TAG81>
12572                     <VEQUAL? TEMP39 STR5 + TAG98>
12573                     <DEAD TEMP39>
12574 TAG81
12575                     <RESTL TEMP37 1 = TEMP37 (TYPE LIST)>
12576                     <EMPL? TEMP37 - TAG80>
12577                     <SET TEMP37 TEMP21>
12578                     <LOOP (TEMP37 VALUE)>
12579 TAG83
12580                     <NTHL TEMP37 1 = TEMP39>
12581                     <TYPE? TEMP39 <TYPE-CODE ATOM> - TAG84>
12582                     <VEQUAL? TEMP39 '+ + TAG98>
12583                     <DEAD TEMP39>
12584 TAG84
12585                     <RESTL TEMP37 1 = TEMP37 (TYPE LIST)>
12586                     <EMPL? TEMP37 - TAG83>
12587                     <SET TEMP37 TEMP21>
12588                     <LOOP (TEMP37 VALUE)>
12589 TAG86
12590                     <NTHL TEMP37 1 = TEMP39>
12591                     <TYPE? TEMP39 <TYPE-CODE ATOM> - TAG87>
12592                     <VEQUAL? TEMP39 '- + TAG98>
12593                     <DEAD TEMP39>
12594 TAG87
12595                     <RESTL TEMP37 1 = TEMP37 (TYPE LIST)>
12596                     <EMPL? TEMP37 - TAG86>
12597                     <LOOP (TEMP21 VALUE)>
12598 TAG89
12599                     <RESTL TEMP21 1 = TEMP37 (TYPE LIST)>
12600                     <EMPL? TEMP37 + TAG90>
12601                     <SET TEMP21 TEMP37>
12602                     <DEAD TEMP37>
12603                     <JUMP + TAG89>
12604 TAG90
12605                     <NTHL TEMP21 1 = TEMP21>
12606                     <TYPE? TEMP21 <TYPE-CODE LIST> + TAG91>
12607                     <SET TEMP21 %<> (TYPE FALSE)>
12608                     <JUMP + PHRASE77>
12609 TAG91
12610                     <SET TEMP37 TEMP21>
12611                     <EMPL? TEMP37 + TAG94>
12612                     <LOOP (TEMP37 VALUE)>
12613 TAG95
12614                     <NTHL TEMP37 1 = TEMP39>
12615                     <TYPE? TEMP39 <TYPE-CODE ATOM> - TAG96>
12616                     <VEQUAL? TEMP39 '+ + TAG98>
12617                     <DEAD TEMP39>
12618 TAG96
12619                     <RESTL TEMP37 1 = TEMP37 (TYPE LIST)>
12620                     <EMPL? TEMP37 - TAG95>
12621 TAG94
12622                     <EMPL? TEMP21 + TAG97>
12623                     <LOOP (TEMP21 VALUE)>
12624 TAG99
12625                     <NTHL TEMP21 1 = TEMP37>
12626                     <TYPE? TEMP37 <TYPE-CODE ATOM> - TAG100>
12627                     <VEQUAL? TEMP37 '- + TAG98>
12628                     <DEAD TEMP37>
12629 TAG100
12630                     <RESTL TEMP21 1 = TEMP21 (TYPE LIST)>
12631                     <EMPL? TEMP21 - TAG99>
12632 TAG97
12633                     <SET TEMP21 %<> (TYPE FALSE)>
12634                     <JUMP + PHRASE77>
12635 TAG98
12636                     <RETURN %<>>
12637 PHRASE77
12638                     <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
12639                     <JUMP + MAP14>
12640 MAPAP17
12641                     <RETURN TEMP21>
12642                     <DEAD TEMP21>
12643                     <END \1aSTRING-REST-