mim/development/mim/20c/othgen.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 *32437125433*
  19 <GFCN \1aTYPE!-MIMOC ("VALUE" ANY LIST) L5>
  20                     <TEMP ARG6 TEMP11 TEMP13>
  21                     <INTGO>
  22                     <NTHL L5 1 = ARG6>
  23                     <RESTL L5 1 = TEMP11 (TYPE LIST)>
  24                     <RESTL TEMP11 1 = TEMP11 (TYPE LIST)>
  25                     <NTHL TEMP11 1 = TEMP11>
  26                     <EQUAL? TEMP11 'STACK - PHRASE10>
  27                     <DEAD TEMP11>
  28                     <FRAME '\1aOCEMIT>
  29                     <PUSH 'PUSH>
  30                     <PUSH 'TP*>
  31                     <SET TEMP13 2 (TYPE FIX)>
  32                     <SFRAME 'TYPE-WORD>
  33                     <PUSH 'FIX>
  34                     <SCALL '\1aTYPE-WORD 1 = TEMP11 + TAG12 TEMP13>
  35                     <LOOP (TEMP11 TYPE VALUE LENGTH) (TEMP13 VALUE)>
  36 TAG15
  37                     <INTGO>
  38                     <EMPTY? TEMP11 + TAG12>
  39                     <NTH1 TEMP11 = STACK>
  40                     <REST1 TEMP11 = TEMP11>
  41                     <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
  42                     <JUMP + TAG15>
  43 TAG12
  44                     <CALL '\1aOCEMIT TEMP13>
  45                     <DEAD TEMP13>
  46                     <FRAME '\1aLOAD-TYPE>
  47                     <PUSH 'O*>
  48                     <FRAME '\1aOBJ-TYP>
  49                     <PUSH ARG6>
  50                     <DEAD ARG6>
  51                     <CALL '\1aOBJ-TYP 1 = STACK>
  52                     <CALL '\1aLOAD-TYPE 2>
  53                     <FRAME '\1aOCEMIT>
  54                     <PUSH 'PUSH>
  55                     <PUSH 'TP*>
  56                     <PUSH 'O*>
  57                     <CALL '\1aOCEMIT 3>
  58                     <GVAL 'WINNING-VICTIM = TEMP13>
  59                     <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE21>
  60                     <DEAD TEMP13>
  61                     <GVAL 'STACK-DEPTH = TEMP13>
  62                     <ADD TEMP13 2 = TEMP13 (TYPE FIX)>
  63                     <SETG 'STACK-DEPTH TEMP13>
  64                     <DEAD TEMP13>
  65 PHRASE21
  66                     <FRAME '\1aMUNGED-AC>
  67                     <PUSH 'O*>
  68                     <CALL '\1aMUNGED-AC 1 = TEMP13>
  69                     <RETURN TEMP13>
  70                     <DEAD TEMP13>
  71 PHRASE10
  72                     <FRAME '\1aASSIGN-AC>
  73                     <RESTL L5 1 = TEMP11 (TYPE LIST)>
  74                     <DEAD L5>
  75                     <RESTL TEMP11 1 = TEMP11 (TYPE LIST)>
  76                     <NTHL TEMP11 1 = STACK>
  77                     <DEAD TEMP11>
  78                     <PUSH 'BOTH>
  79                     <CALL '\1aASSIGN-AC 2 = TEMP13>
  80                     <FRAME '\1aGET-AC>
  81                     <PUSH TEMP13>
  82                     <CALL '\1aGET-AC 1 = TEMP11>
  83                     <PUTUV TEMP11 6 'FIX>
  84                     <DEAD TEMP11>
  85                     <FRAME '\1aLOAD-TYPE>
  86                     <FRAME '\1aNEXT-AC>
  87                     <PUSH TEMP13>
  88                     <DEAD TEMP13>
  89                     <CALL '\1aNEXT-AC 1 = STACK>
  90                     <FRAME '\1aOBJ-TYP>
  91                     <PUSH ARG6>
  92                     <DEAD ARG6>
  93                     <CALL '\1aOBJ-TYP 1 = STACK>
  94                     <CALL '\1aLOAD-TYPE 2 = TEMP13>
  95                     <RETURN TEMP13>
  96                     <DEAD TEMP13>
  97                     <END \1aTYPE!-MIMOC>
  98 #WORD *2062611112*
  99 <GFCN \1aTYPE?!-MIMOC ("VALUE" ANY LIST) L5>
 100                     <TEMP ARG6 TEMP12 TYP7 (CAM8 'CAMN) (CAI9 'CAIN) (JMP10 'JUMPE)>
 101                     <INTGO>
 102                     <NTHL L5 1 = ARG6>
 103                     <RESTL L5 1 = TEMP12 (TYPE LIST)>
 104                     <NTHL TEMP12 1 = TYP7>
 105                     <DEAD TEMP12>
 106                     <RESTL L5 1 = TEMP12 (TYPE LIST)>
 107                     <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
 108                     <NTHL TEMP12 1 = TEMP12>
 109                     <EQUAL? TEMP12 '- - PHRASE14>
 110                     <DEAD TEMP12>
 111                     <SET CAM8 'CAME (TYPE ATOM)>
 112                     <SET CAI9 'CAIE (TYPE ATOM)>
 113                     <SET JMP10 'JUMPN (TYPE ATOM)>
 114 PHRASE14
 115                     <FRAME '\1aIN-AC?>
 116                     <PUSH ARG6>
 117                     <PUSH 'TYPE>
 118                     <CALL '\1aIN-AC? 2 = TEMP12>
 119                     <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE16>
 120                     <FRAME '\1aLOAD-TYPE>
 121                     <PUSH 'O*>
 122                     <CONS TEMP12 () = STACK>
 123                     <DEAD TEMP12>
 124                     <CALL '\1aLOAD-TYPE 2>
 125                     <FRAME '\1aMUNGED-AC>
 126                     <PUSH 'O*>
 127                     <CALL '\1aMUNGED-AC 1>
 128                     <JUMP + PHRASE20>
 129 PHRASE16
 130                     <FRAME '\1aSMASH-AC>
 131                     <PUSH 'O*>
 132                     <PUSH ARG6>
 133                     <DEAD ARG6>
 134                     <PUSH 'TYPECODE>
 135                     <CALL '\1aSMASH-AC 3 = TEMP12>
 136 PHRASE20
 137                     <FRAME '\1aLABEL-UPDATE-ACS>
 138                     <RESTL L5 1 = TEMP12 (TYPE LIST)>
 139                     <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
 140                     <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
 141                     <NTHL TEMP12 1 = STACK>
 142                     <DEAD TEMP12>
 143                     <PUSH %<>>
 144                     <CALL '\1aLABEL-UPDATE-ACS 2>
 145                     <GVAL 'GC-MODE = TEMP12>
 146                     <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE24>
 147                     <DEAD TEMP12>
 148                     <FRAME '\1aOCEMIT>
 149                     <PUSH 'TRZ>
 150                     <PUSH 'O*>
 151                     <PUSH 56>
 152                     <CALL '\1aOCEMIT 3>
 153 PHRASE24
 154                     <TYPE? TYP7 <TYPE-CODE FIX> - PHRASE27>
 155                     <VEQUAL? TYP7 0 - PHRASE29 (TYPE FIX)>
 156                     <FRAME '\1aOCEMIT>
 157                     <PUSH JMP10>
 158                     <DEAD JMP10>
 159                     <PUSH 'O*>
 160                     <FRAME '\1aXJUMP>
 161                     <RESTL L5 1 = TEMP12 (TYPE LIST)>
 162                     <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
 163                     <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
 164                     <NTHL TEMP12 1 = STACK>
 165                     <DEAD TEMP12>
 166                     <CALL '\1aXJUMP 1 = STACK>
 167                     <CALL '\1aOCEMIT 3>
 168                     <JUMP + PHRASE36>
 169 PHRASE29
 170                     <FRAME '\1aOCEMIT>
 171                     <PUSH CAI9>
 172                     <DEAD CAI9>
 173                     <PUSH 'O*>
 174                     <PUSH TYP7>
 175                     <CALL '\1aOCEMIT 3>
 176                     <JUMP + PHRASE36>
 177 PHRASE27
 178                     <FRAME '\1aOCEMIT>
 179                     <PUSH CAM8>
 180                     <DEAD CAM8>
 181                     <PUSH 'O*>
 182                     <SET ARG6 2 (TYPE FIX)>
 183                     <SFRAME 'OBJ-VAL>
 184                     <PUSH TYP7>
 185                     <SCALL '\1aOBJ-VAL 1 = TEMP12 + TAG37 ARG6>
 186                     <LOOP (TEMP12 TYPE VALUE LENGTH) (ARG6 VALUE)>
 187 TAG40
 188                     <INTGO>
 189                     <EMPTY? TEMP12 + TAG37>
 190                     <NTH1 TEMP12 = STACK>
 191                     <REST1 TEMP12 = TEMP12>
 192                     <ADD ARG6 1 = ARG6 (TYPE FIX)>
 193                     <JUMP + TAG40>
 194 TAG37
 195                     <CALL '\1aOCEMIT ARG6>
 196                     <DEAD ARG6>
 197 PHRASE36
 198                     <EQUAL? TYP7 0 - TAG44>
 199                     <DEAD TYP7>
 200                     <RETURN %<>>
 201 TAG44
 202                     <FRAME '\1aOCEMIT>
 203                     <PUSH 'JRST>
 204                     <FRAME '\1aXJUMP>
 205                     <RESTL L5 1 = TEMP12 (TYPE LIST)>
 206                     <DEAD L5>
 207                     <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
 208                     <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
 209                     <NTHL TEMP12 1 = STACK>
 210                     <DEAD TEMP12>
 211                     <CALL '\1aXJUMP 1 = STACK>
 212                     <CALL '\1aOCEMIT 2 = ARG6>
 213                     <RETURN ARG6>
 214                     <DEAD ARG6>
 215                     <END \1aTYPE?!-MIMOC>
 216 #WORD *14140260172*
 217 <GFCN \1aCHTYPE!-MIMOC ("VALUE" <OR FALSE FIX AC> LIST) L4>
 218                     <TEMP ARG15 TEMP14 ARG26 VAL7:ATOM LV13 TEMP25 TEMP26 AC8:ATOM>
 219                     <INTGO>
 220                     <NTHL L4 1 = ARG15>
 221                     <RESTL L4 1 = TEMP14 (TYPE LIST)>
 222                     <NTHL TEMP14 1 = ARG26>
 223                     <DEAD TEMP14>
 224                     <RESTL L4 1 = TEMP14 (TYPE LIST)>
 225                     <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
 226                     <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
 227                     <NTHL TEMP14 1 = VAL7 (TYPE ATOM)>
 228                     <DEAD TEMP14>
 229                     <FRAME '\1aLMEMQ>
 230                     <PUSH VAL7>
 231                     <GVAL 'LOCALS = STACK>
 232                     <CALL '\1aLMEMQ 2 = TEMP14>
 233                     <TYPE? TEMP14 <TYPE-CODE FALSE> - BOOL17>
 234                     <GVAL 'ICALL-FLAG = TEMP14>
 235                     <TYPE? TEMP14 <TYPE-CODE FALSE> + BOOL17>
 236                     <FRAME '\1aLMEMQ>
 237                     <PUSH VAL7>
 238                     <GVAL 'ICALL-TEMPS = STACK>
 239                     <CALL '\1aLMEMQ 2 = TEMP14>
 240 BOOL17
 241                     <SET LV13 TEMP14>
 242                     <DEAD TEMP14>
 243                     <TYPE? LV13 <TYPE-CODE FALSE> + PHRASE20>
 244                     <GVAL 'TYPED-LOCALS = TEMP14>
 245                     <TYPE LV13 = TEMP25>
 246                     <EMPL? TEMP14 + PHRASE20>
 247                     <LOOP (LV13 VALUE) (TEMP25 VALUE) (TEMP14 VALUE)>
 248 TAG23
 249                     <NTHL TEMP14 1 = TEMP26>
 250                     <TYPE? TEMP26 TEMP25 - TAG24>
 251                     <VEQUAL? TEMP26 LV13 + TAG22>
 252                     <DEAD TEMP26>
 253 TAG24
 254                     <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
 255                     <EMPL? TEMP14 - TAG23>
 256                     <JUMP + PHRASE20>
 257 TAG22
 258                     <NTHUV LV13 4 = LV13>
 259                     <TYPE? LV13 <TYPE-CODE FALSE> + PHRASE20>
 260                     <FRAME '\1aTYPEPRIM>
 261                     <PUSH LV13>
 262                     <CALL '\1aTYPEPRIM 1 = TEMP14>
 263                     <SET TEMP25 [WORD FIX LIST] (TYPE VECTOR)>
 264                     <TYPE? TEMP14 <TYPE-CODE ATOM> - TAG28>
 265                     <LOOP (TEMP14 VALUE) (TEMP25 LENGTH VALUE)>
 266 TAG29
 267                     <NTHUV TEMP25 1 = TEMP26>
 268                     <VEQUAL? TEMP26 TEMP14 + TAG32>
 269                     <DEAD TEMP26>
 270                     <RESTUV TEMP25 1 = TEMP25 (TYPE VECTOR)>
 271                     <EMPUV? TEMP25 - TAG29>
 272 TAG28
 273                     <GVAL 'TYPE-LENGTHS = TEMP25>
 274                     <EMPUV? TEMP25 + PHRASE20>
 275                     <LOOP (LV13 VALUE) (TEMP25 LENGTH VALUE)>
 276 TAG33
 277                     <NTHUV TEMP25 1 = TEMP14>
 278                     <TYPE? TEMP14 <TYPE-CODE ATOM> - TAG34>
 279                     <VEQUAL? TEMP14 LV13 + TAG32>
 280                     <DEAD TEMP14>
 281 TAG34
 282                     <RESTUV TEMP25 1 = TEMP25 (TYPE VECTOR)>
 283                     <EMPUV? TEMP25 - TAG33>
 284                     <JUMP + PHRASE20>
 285 TAG32
 286                     <FRAME '\1aLOAD-AC>
 287                     <PUSH ARG15>
 288                     <PUSH 'BOTH>
 289                     <CALL '\1aLOAD-AC 2 = AC8>
 290                     <EQUAL? VAL7 ARG15 + PHRASE41>
 291                     <FRAME '\1aWILL-DIE?>
 292                     <PUSH ARG15>
 293                     <DEAD ARG15>
 294                     <CALL '\1aWILL-DIE? 1 = TEMP25>
 295                     <TYPE? TEMP25 <TYPE-CODE FALSE> - PHRASE41>
 296                     <DEAD TEMP25>
 297                     <FRAME '\1aGET-AC>
 298                     <PUSH AC8>
 299                     <CALL '\1aGET-AC 1 = TEMP25>
 300                     <NTHUV TEMP25 5 = TEMP25>
 301                     <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE41>
 302                     <DEAD TEMP25>
 303                     <FRAME '\1aUPDATE-AC>
 304                     <FRAME '\1aGET-AC>
 305                     <PUSH AC8>
 306                     <CALL '\1aGET-AC 1 = STACK>
 307                     <CALL '\1aUPDATE-AC 1>
 308                     <FRAME '\1aUPDATE-AC>
 309                     <FRAME '\1aGET-AC>
 310                     <FRAME '\1aNEXT-AC>
 311                     <PUSH AC8>
 312                     <CALL '\1aNEXT-AC 1 = STACK>
 313                     <CALL '\1aGET-AC 1 = STACK>
 314                     <CALL '\1aUPDATE-AC 1>
 315 PHRASE41
 316                     <FRAME '\1aCLEAN-ACS>
 317                     <PUSH VAL7>
 318                     <CALL '\1aCLEAN-ACS 1>
 319                     <FRAME '\1aGET-AC>
 320                     <FRAME '\1aNEXT-AC>
 321                     <PUSH AC8>
 322                     <CALL '\1aNEXT-AC 1 = STACK>
 323                     <CALL '\1aGET-AC 1 = TEMP25>
 324                     <PUTUV TEMP25 5 'T>
 325                     <PUTUV TEMP25 2 VAL7>
 326                     <PUTUV TEMP25 3 'VALUE (TYPE ATOM)>
 327                     <DEAD TEMP25>
 328                     <FRAME '\1aGET-AC>
 329                     <PUSH AC8>
 330                     <DEAD AC8>
 331                     <CALL '\1aGET-AC 1 = TEMP25>
 332                     <PUTUV TEMP25 5 'T>
 333                     <PUTUV TEMP25 2 VAL7>
 334                     <DEAD VAL7>
 335                     <PUTUV TEMP25 3 'TYPE (TYPE ATOM)>
 336                     <PUTUV TEMP25 6 LV13>
 337                     <DEAD LV13>
 338                     <RETURN TEMP25>
 339                     <DEAD TEMP25>
 340 PHRASE20
 341                     <TYPE? ARG26 <TYPE-CODE FIX> - PHRASE52>
 342                     <FRAME '\1aGETPROP>
 343                     <RESTL L4 1 = STACK (TYPE LIST)>
 344                     <DEAD L4>
 345                     <PUSH 'EVAL>
 346                     <CALL '\1aGETPROP 2 = LV13>
 347                     <TYPE? LV13 <TYPE-CODE FALSE> + PHRASE54>
 348                     <AND ARG26 #WORD *7* = TEMP14>
 349                     <VEQUAL? TEMP14 0 + TAG62 (TYPE FIX)>
 350                     <VEQUAL? TEMP14 1 + TAG62 (TYPE FIX)>
 351                     <DEAD TEMP14>
 352                     <RESTL LV13 1 = TEMP14 (TYPE LIST)>
 353                     <NTHL TEMP14 1 = TEMP14 (TYPE ATOM)>
 354                     <GVAL 'TYPE-LENGTHS = TEMP26>
 355                     <EMPUV? TEMP26 + PHRASE54>
 356                     <LOOP (TEMP14 VALUE) (TEMP26 LENGTH VALUE)>
 357 TAG63
 358                     <NTHUV TEMP26 1 = TEMP25>
 359                     <TYPE? TEMP25 <TYPE-CODE ATOM> - TAG64>
 360                     <VEQUAL? TEMP25 TEMP14 + TAG62>
 361                     <DEAD TEMP25>
 362 TAG64
 363                     <RESTUV TEMP26 1 = TEMP26 (TYPE VECTOR)>
 364                     <EMPUV? TEMP26 - TAG63>
 365                     <JUMP + PHRASE54>
 366 TAG62
 367                     <VEQUAL? VAL7 'STACK - PHRASE67>
 368                     <FRAME '\1aOCEMIT>
 369                     <PUSH 'PUSH>
 370                     <PUSH 'TP*>
 371                     <SET TEMP14 2 (TYPE FIX)>
 372                     <SFRAME 'TYPE-WORD>
 373                     <RESTL LV13 1 = TEMP25 (TYPE LIST)>
 374                     <DEAD LV13>
 375                     <NTHL TEMP25 1 = STACK (TYPE ATOM)>
 376                     <DEAD TEMP25>
 377                     <SCALL '\1aTYPE-WORD 1 = TEMP26 + TAG68 TEMP14>
 378                     <LOOP (TEMP26 TYPE VALUE LENGTH) (TEMP14 VALUE)>
 379 TAG70
 380                     <INTGO>
 381                     <EMPTY? TEMP26 + TAG68>
 382                     <NTH1 TEMP26 = STACK>
 383                     <REST1 TEMP26 = TEMP26>
 384                     <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
 385                     <JUMP + TAG70>
 386 TAG68
 387                     <CALL '\1aOCEMIT TEMP14>
 388                     <DEAD TEMP14>
 389                     <GVAL 'WINNING-VICTIM = TEMP14>
 390                     <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE73>
 391                     <DEAD TEMP14>
 392                     <GVAL 'STACK-DEPTH = TEMP14>
 393                     <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
 394                     <SETG 'STACK-DEPTH TEMP14>
 395                     <DEAD TEMP14>
 396 PHRASE73
 397                     <FRAME '\1aOCEMIT>
 398                     <PUSH 'PUSH>
 399                     <PUSH 'TP*>
 400                     <SET TEMP26 2 (TYPE FIX)>
 401                     <SFRAME 'OBJ-VAL>
 402                     <PUSH ARG15>
 403                     <DEAD ARG15>
 404                     <SCALL '\1aOBJ-VAL 1 = TEMP14 + TAG74 TEMP26>
 405                     <LOOP (TEMP14 TYPE VALUE LENGTH) (TEMP26 VALUE)>
 406 TAG76
 407                     <INTGO>
 408                     <EMPTY? TEMP14 + TAG74>
 409                     <NTH1 TEMP14 = STACK>
 410                     <REST1 TEMP14 = TEMP14>
 411                     <ADD TEMP26 1 = TEMP26 (TYPE FIX)>
 412                     <JUMP + TAG76>
 413 TAG74
 414                     <CALL '\1aOCEMIT TEMP26>
 415                     <DEAD TEMP26>
 416                     <GVAL 'WINNING-VICTIM = TEMP25>
 417                     <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE180>
 418                     <GVAL 'STACK-DEPTH = TEMP26>
 419                     <ADD TEMP26 1 = TEMP26 (TYPE FIX)>
 420                     <SETG 'STACK-DEPTH TEMP26>
 421                     <RETURN TEMP26>
 422                     <DEAD TEMP26>
 423 PHRASE67
 424                     <FRAME '\1aLOAD-AC>
 425                     <PUSH ARG15>
 426                     <PUSH 'BOTH>
 427                     <CALL '\1aLOAD-AC 2 = AC8>
 428                     <FRAME '\1aWILL-DIE?>
 429                     <PUSH ARG15>
 430                     <CALL '\1aWILL-DIE? 1 = TEMP26>
 431                     <TYPE? TEMP26 <TYPE-CODE FALSE> + PHRASE83>
 432                     <DEAD TEMP26>
 433                     <FRAME '\1aGET-AC>
 434                     <PUSH AC8>
 435                     <CALL '\1aGET-AC 1 = TEMP26>
 436                     <PUTUV TEMP26 5 %<>>
 437                     <DEAD TEMP26>
 438                     <FRAME '\1aGET-AC>
 439                     <FRAME '\1aNEXT-AC>
 440                     <PUSH AC8>
 441                     <CALL '\1aNEXT-AC 1 = STACK>
 442                     <CALL '\1aGET-AC 1 = TEMP26>
 443                     <PUTUV TEMP26 5 %<>>
 444                     <DEAD TEMP26>
 445                     <FRAME '\1aGET-AC>
 446                     <PUSH AC8>
 447                     <CALL '\1aGET-AC 1 = TEMP26>
 448                     <PUTUV TEMP26 6 %<>>
 449                     <DEAD TEMP26>
 450 PHRASE83
 451                     <EQUAL? ARG15 VAL7 + PHRASE90>
 452                     <DEAD ARG15>
 453                     <FRAME '\1aCLEAN-ACS>
 454                     <PUSH VAL7>
 455                     <CALL '\1aCLEAN-ACS 1>
 456                     <FRAME '\1aALTER-AC>
 457                     <PUSH AC8>
 458                     <PUSH VAL7>
 459                     <DEAD VAL7>
 460                     <CALL '\1aALTER-AC 2>
 461 PHRASE90
 462                     <FRAME '\1aGET-AC>
 463                     <PUSH AC8>
 464                     <CALL '\1aGET-AC 1 = TEMP26>
 465                     <RESTL LV13 1 = TEMP14 (TYPE LIST)>
 466                     <DEAD LV13>
 467                     <NTHL TEMP14 1 = TEMP14 (TYPE ATOM)>
 468                     <PUTUV TEMP26 6 TEMP14>
 469                     <DEAD TEMP26 TEMP14>
 470                     <FRAME '\1aGET-AC>
 471                     <PUSH AC8>
 472                     <DEAD AC8>
 473                     <CALL '\1aGET-AC 1 = TEMP26>
 474                     <PUTUV TEMP26 5 'T>
 475                     <RETURN TEMP26>
 476                     <DEAD TEMP26>
 477 PHRASE54
 478                     <FRAME '\1aLOAD-AC>
 479                     <PUSH ARG15>
 480                     <PUSH 'BOTH>
 481                     <CALL '\1aLOAD-AC 2 = AC8>
 482                     <FRAME '\1aWILL-DIE?>
 483                     <PUSH ARG15>
 484                     <CALL '\1aWILL-DIE? 1 = TEMP26>
 485                     <TYPE? TEMP26 <TYPE-CODE FALSE> + PHRASE98>
 486                     <DEAD TEMP26>
 487                     <FRAME '\1aGET-AC>
 488                     <PUSH AC8>
 489                     <CALL '\1aGET-AC 1 = TEMP26>
 490                     <PUTUV TEMP26 5 %<>>
 491                     <DEAD TEMP26>
 492                     <FRAME '\1aGET-AC>
 493                     <FRAME '\1aNEXT-AC>
 494                     <PUSH AC8>
 495                     <CALL '\1aNEXT-AC 1 = STACK>
 496                     <CALL '\1aGET-AC 1 = TEMP26>
 497                     <PUTUV TEMP26 5 %<>>
 498                     <DEAD TEMP26>
 499                     <FRAME '\1aGET-AC>
 500                     <PUSH AC8>
 501                     <CALL '\1aGET-AC 1 = TEMP26>
 502                     <PUTUV TEMP26 6 %<>>
 503                     <DEAD TEMP26>
 504 PHRASE98
 505                     <EQUAL? ARG15 VAL7 + PHRASE105>
 506                     <DEAD ARG15>
 507                     <FRAME '\1aCLEAN-ACS>
 508                     <PUSH VAL7>
 509                     <CALL '\1aCLEAN-ACS 1>
 510                     <FRAME '\1aALTER-AC>
 511                     <PUSH AC8>
 512                     <PUSH VAL7>
 513                     <CALL '\1aALTER-AC 2>
 514 PHRASE105
 515                     <FRAME '\1aGET-AC>
 516                     <PUSH AC8>
 517                     <CALL '\1aGET-AC 1 = TEMP26>
 518                     <PUTUV TEMP26 6 %<>>
 519                     <DEAD TEMP26>
 520                     <FRAME '\1aOCEMIT>
 521                     <PUSH 'HRLI>
 522                     <PUSH AC8>
 523                     <PUSH ARG26>
 524                     <DEAD ARG26>
 525                     <CALL '\1aOCEMIT 3>
 526                     <FRAME '\1aGET-AC>
 527                     <PUSH AC8>
 528                     <CALL '\1aGET-AC 1 = TEMP26>
 529                     <PUTUV TEMP26 5 'T>
 530                     <DEAD TEMP26>
 531                     <VEQUAL? VAL7 'STACK + TAG113>
 532                     <DEAD VAL7>
 533                     <RETURN %<>>
 534 TAG113
 535                     <FRAME '\1aOCEMIT>
 536                     <PUSH 'PUSH>
 537                     <PUSH 'TP*>
 538                     <PUSH AC8>
 539                     <CALL '\1aOCEMIT 3>
 540                     <FRAME '\1aOCEMIT>
 541                     <PUSH 'PUSH>
 542                     <PUSH 'TP*>
 543                     <FRAME '\1aNEXT-AC>
 544                     <PUSH AC8>
 545                     <DEAD AC8>
 546                     <CALL '\1aNEXT-AC 1 = STACK>
 547                     <CALL '\1aOCEMIT 3>
 548                     <GVAL 'WINNING-VICTIM = TEMP25>
 549                     <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE180>
 550                     <GVAL 'STACK-DEPTH = TEMP26>
 551                     <ADD TEMP26 2 = TEMP26 (TYPE FIX)>
 552                     <SETG 'STACK-DEPTH TEMP26>
 553                     <RETURN TEMP26>
 554                     <DEAD TEMP26>
 555 PHRASE52
 556                     <FRAME '\1aLOAD-AC>
 557                     <PUSH ARG15>
 558                     <PUSH 'BOTH>
 559                     <CALL '\1aLOAD-AC 2 = AC8>
 560                     <FRAME '\1aGET-AC>
 561                     <PUSH AC8>
 562                     <CALL '\1aGET-AC 1 = TEMP26>
 563                     <NTHUV TEMP26 6 = LV13>
 564                     <DEAD TEMP26>
 565                     <EQUAL? ARG15 VAL7 + PHRASE123>
 566                     <FRAME '\1aWILL-DIE?>
 567                     <PUSH ARG15>
 568                     <CALL '\1aWILL-DIE? 1 = TEMP26>
 569                     <TYPE? TEMP26 <TYPE-CODE FALSE> + PHRASE125>
 570                     <DEAD TEMP26>
 571                     <FRAME '\1aGET-AC>
 572                     <PUSH AC8>
 573                     <CALL '\1aGET-AC 1 = TEMP26>
 574                     <PUTUV TEMP26 5 %<>>
 575                     <DEAD TEMP26>
 576                     <FRAME '\1aGET-AC>
 577                     <FRAME '\1aNEXT-AC>
 578                     <PUSH AC8>
 579                     <CALL '\1aNEXT-AC 1 = STACK>
 580                     <CALL '\1aGET-AC 1 = TEMP26>
 581                     <PUTUV TEMP26 5 %<>>
 582                     <DEAD TEMP26>
 583 PHRASE125
 584                     <FRAME '\1aFLUSH-AC>
 585                     <PUSH AC8>
 586                     <PUSH 'T>
 587                     <CALL '\1aFLUSH-AC 2>
 588                     <FRAME '\1aMUNGED-AC>
 589                     <PUSH AC8>
 590                     <PUSH 'T>
 591                     <CALL '\1aMUNGED-AC 2>
 592 PHRASE123
 593                     <FRAME '\1aGET-AC>
 594                     <PUSH AC8>
 595                     <CALL '\1aGET-AC 1 = TEMP26>
 596                     <PUTUV TEMP26 6 %<>>
 597                     <DEAD TEMP26>
 598                     <TYPE? ARG26 <TYPE-CODE FORM> - PHRASE134>
 599                     <EMPL? ARG26 + PHRASE134>
 600                     <RESTL ARG26 1 = TEMP26 (TYPE LIST)>
 601                     <EMPL? TEMP26 + PHRASE134>
 602                     <RESTL TEMP26 1 = TEMP26 (TYPE LIST)>
 603                     <EMPL? TEMP26 - PHRASE134>
 604                     <DEAD TEMP26>
 605                     <NTHL ARG26 1 = TEMP26>
 606                     <EQUAL? TEMP26 'TYPE - PHRASE134>
 607                     <DEAD TEMP26>
 608                     <RESTL ARG26 1 = TEMP26 (TYPE LIST)>
 609                     <NTHL TEMP26 1 = TEMP26>
 610                     <TYPE? TEMP26 <TYPE-CODE ATOM> - PHRASE134>
 611                     <DEAD TEMP26>
 612                     <TYPE? LV13 <TYPE-CODE FALSE> + PHRASE137>
 613                     <GVAL 'TYPE-LENGTHS = TEMP26>
 614                     <EMPUV? TEMP26 + PHRASE137>
 615                     <LOOP (LV13 VALUE) (TEMP26 LENGTH VALUE)>
 616 TAG140
 617                     <NTHUV TEMP26 1 = TEMP14>
 618                     <TYPE? TEMP14 <TYPE-CODE ATOM> - TAG141>
 619                     <VEQUAL? TEMP14 LV13 + TAG139>
 620                     <DEAD TEMP14>
 621 TAG141
 622                     <RESTUV TEMP26 1 = TEMP26 (TYPE VECTOR)>
 623                     <EMPUV? TEMP26 - TAG140>
 624                     <JUMP + PHRASE137>
 625 TAG139
 626                     <FRAME '\1aLOAD-TYPE-IN-AC>
 627                     <PUSH AC8>
 628                     <PUSH LV13>
 629                     <DEAD LV13>
 630                     <CALL '\1aLOAD-TYPE-IN-AC 2>
 631 PHRASE137
 632                     <FRAME '\1aOCEMIT>
 633                     <PUSH 'HLL>
 634                     <PUSH AC8>
 635                     <SET TEMP14 2 (TYPE FIX)>
 636                     <SFRAME 'OBJ-TYP>
 637                     <RESTL ARG26 1 = TEMP25 (TYPE LIST)>
 638                     <DEAD ARG26>
 639                     <NTHL TEMP25 1 = STACK>
 640                     <DEAD TEMP25>
 641                     <SCALL '\1aOBJ-TYP 1 = TEMP26 + TAG143 TEMP14>
 642                     <LOOP (TEMP26 TYPE VALUE LENGTH) (TEMP14 VALUE)>
 643 TAG145
 644                     <INTGO>
 645                     <EMPTY? TEMP26 + TAG143>
 646                     <NTH1 TEMP26 = STACK>
 647                     <REST1 TEMP26 = TEMP26>
 648                     <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
 649                     <JUMP + TAG145>
 650 TAG143
 651                     <CALL '\1aOCEMIT TEMP14>
 652                     <DEAD TEMP14>
 653                     <JUMP + PHRASE162>
 654 PHRASE134
 655                     <TYPE? LV13 <TYPE-CODE FALSE> + PHRASE147>
 656                     <GVAL 'TYPE-LENGTHS = TEMP14>
 657                     <EMPUV? TEMP14 + PHRASE149>
 658                     <LOOP (LV13 VALUE) (TEMP14 LENGTH VALUE)>
 659 TAG151
 660                     <NTHUV TEMP14 1 = TEMP26>
 661                     <TYPE? TEMP26 <TYPE-CODE ATOM> - TAG152>
 662                     <VEQUAL? TEMP26 LV13 + TAG150>
 663                     <DEAD TEMP26>
 664 TAG152
 665                     <RESTUV TEMP14 1 = TEMP14 (TYPE VECTOR)>
 666                     <EMPUV? TEMP14 - TAG151>
 667                     <JUMP + PHRASE149>
 668 TAG150
 669                     <FRAME '\1aOCEMIT>
 670                     <PUSH 'MOVE>
 671                     <PUSH AC8>
 672                     <SET TEMP26 2 (TYPE FIX)>
 673                     <SFRAME 'OBJ-VAL>
 674                     <CHTYPE ARG26 <TYPE-CODE XTYPE-W> = STACK>
 675                     <DEAD ARG26>
 676                     <SCALL '\1aOBJ-VAL 1 = TEMP14 + TAG153 TEMP26>
 677                     <LOOP (TEMP14 TYPE VALUE LENGTH) (TEMP26 VALUE)>
 678 TAG155
 679                     <INTGO>
 680                     <EMPTY? TEMP14 + TAG153>
 681                     <NTH1 TEMP14 = STACK>
 682                     <REST1 TEMP14 = TEMP14>
 683                     <ADD TEMP26 1 = TEMP26 (TYPE FIX)>
 684                     <JUMP + TAG155>
 685 TAG153
 686                     <CALL '\1aOCEMIT TEMP26>
 687                     <DEAD TEMP26>
 688                     <JUMP + PHRASE162>
 689 PHRASE149
 690                     <FRAME '\1aOCEMIT>
 691                     <PUSH 'HRLZ>
 692                     <PUSH AC8>
 693                     <SET TEMP14 2 (TYPE FIX)>
 694                     <SFRAME 'OBJ-VAL>
 695                     <PUSH ARG26>
 696                     <DEAD ARG26>
 697                     <SCALL '\1aOBJ-VAL 1 = TEMP26 + TAG158 TEMP14>
 698                     <LOOP (TEMP26 TYPE VALUE LENGTH) (TEMP14 VALUE)>
 699 TAG160
 700                     <INTGO>
 701                     <EMPTY? TEMP26 + TAG158>
 702                     <NTH1 TEMP26 = STACK>
 703                     <REST1 TEMP26 = TEMP26>
 704                     <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
 705                     <JUMP + TAG160>
 706 TAG158
 707                     <CALL '\1aOCEMIT TEMP14>
 708                     <DEAD TEMP14>
 709                     <JUMP + PHRASE162>
 710 PHRASE147
 711                     <FRAME '\1aOCEMIT>
 712                     <PUSH 'HRL>
 713                     <PUSH AC8>
 714                     <SET TEMP26 2 (TYPE FIX)>
 715                     <SFRAME 'OBJ-VAL>
 716                     <PUSH ARG26>
 717                     <DEAD ARG26>
 718                     <SCALL '\1aOBJ-VAL 1 = TEMP14 + TAG163 TEMP26>
 719                     <LOOP (TEMP14 TYPE VALUE LENGTH) (TEMP26 VALUE)>
 720 TAG165
 721                     <INTGO>
 722                     <EMPTY? TEMP14 + TAG163>
 723                     <NTH1 TEMP14 = STACK>
 724                     <REST1 TEMP14 = TEMP14>
 725                     <ADD TEMP26 1 = TEMP26 (TYPE FIX)>
 726                     <JUMP + TAG165>
 727 TAG163
 728                     <CALL '\1aOCEMIT TEMP26>
 729                     <DEAD TEMP26>
 730 PHRASE162
 731                     <VEQUAL? VAL7 'STACK + PHRASE168>
 732                     <EQUAL? VAL7 ARG15 + PHRASE168>
 733                     <DEAD ARG15>
 734                     <FRAME '\1aCLEAN-ACS>
 735                     <PUSH VAL7>
 736                     <CALL '\1aCLEAN-ACS 1>
 737                     <FRAME '\1aALTER-AC>
 738                     <PUSH AC8>
 739                     <PUSH VAL7>
 740                     <CALL '\1aALTER-AC 2>
 741 PHRASE168
 742                     <FRAME '\1aGET-AC>
 743                     <PUSH AC8>
 744                     <CALL '\1aGET-AC 1 = TEMP26>
 745                     <PUTUV TEMP26 5 'T>
 746                     <DEAD TEMP26>
 747                     <VEQUAL? VAL7 'STACK + TAG175>
 748                     <DEAD VAL7>
 749                     <RETURN %<>>
 750 TAG175
 751                     <FRAME '\1aOCEMIT>
 752                     <PUSH 'PUSH>
 753                     <PUSH 'TP*>
 754                     <PUSH AC8>
 755                     <CALL '\1aOCEMIT 3>
 756                     <FRAME '\1aOCEMIT>
 757                     <PUSH 'PUSH>
 758                     <PUSH 'TP*>
 759                     <FRAME '\1aNEXT-AC>
 760                     <PUSH AC8>
 761                     <DEAD AC8>
 762                     <CALL '\1aNEXT-AC 1 = STACK>
 763                     <CALL '\1aOCEMIT 3>
 764                     <GVAL 'WINNING-VICTIM = TEMP25>
 765                     <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE180>
 766                     <GVAL 'STACK-DEPTH = TEMP26>
 767                     <ADD TEMP26 2 = TEMP26 (TYPE FIX)>
 768                     <SETG 'STACK-DEPTH TEMP26>
 769                     <SET TEMP25 TEMP26>
 770                     <DEAD TEMP26>
 771 PHRASE180
 772                     <RETURN TEMP25>
 773                     <DEAD TEMP25>
 774                     <END \1aCHTYPE!-MIMOC>
 775 #WORD *10213362305*
 776 <GFCN \1aNEWTYPE!-MIMOC ("VALUE" ANY LIST) L5>
 777                     <TEMP TEMP9 TEMP8>
 778                     <INTGO>
 779                     <FRAME '\1aUPDATE-ACS>
 780                     <CALL '\1aUPDATE-ACS 0>
 781                     <FRAME '\1aOCEMIT>
 782                     <PUSH 'MOVE>
 783                     <PUSH 'O1*>
 784                     <SET TEMP9 2 (TYPE FIX)>
 785                     <SFRAME 'OBJ-VAL>
 786                     <NTHL L5 1 = STACK>
 787                     <SCALL '\1aOBJ-VAL 1 = TEMP8 + TAG7 TEMP9>
 788                     <LOOP (TEMP8 TYPE VALUE LENGTH) (TEMP9 VALUE)>
 789 TAG11
 790                     <INTGO>
 791                     <EMPTY? TEMP8 + TAG7>
 792                     <NTH1 TEMP8 = STACK>
 793                     <REST1 TEMP8 = TEMP8>
 794                     <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
 795                     <JUMP + TAG11>
 796 TAG7
 797                     <CALL '\1aOCEMIT TEMP9>
 798                     <DEAD TEMP9>
 799                     <FRAME '\1aPUSHJ>
 800                     <PUSH 'NEWTYPE>
 801                     <RESTL L5 1 = TEMP9 (TYPE LIST)>
 802                     <DEAD L5>
 803                     <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
 804                     <NTHL TEMP9 1 = STACK>
 805                     <DEAD TEMP9>
 806                     <CALL '\1aPUSHJ 2 = TEMP9>
 807                     <RETURN TEMP9>
 808                     <DEAD TEMP9>
 809                     <END \1aNEWTYPE!-MIMOC>
 810 #WORD *26470224467*
 811 <GFCN \1aVALUE!-MIMOC ("VALUE" ANY LIST) L5>
 812                     <TEMP IT6 TEMP9 VAL7:ATOM TEMP13>
 813                     <INTGO>
 814                     <NTHL L5 1 = IT6>
 815                     <RESTL L5 1 = TEMP9 (TYPE LIST)>
 816                     <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
 817                     <NTHL TEMP9 1 = VAL7 (TYPE ATOM)>
 818                     <DEAD TEMP9>
 819                     <VEQUAL? VAL7 'STACK - PHRASE11>
 820                     <FRAME '\1aOCEMIT>
 821                     <PUSH 'PUSH>
 822                     <PUSH 'TP*>
 823                     <SET TEMP13 2 (TYPE FIX)>
 824                     <SFRAME 'TYPE-WORD>
 825                     <PUSH 'FIX>
 826                     <SCALL '\1aTYPE-WORD 1 = TEMP9 + TAG12 TEMP13>
 827                     <LOOP (TEMP9 TYPE VALUE LENGTH) (TEMP13 VALUE)>
 828 TAG15
 829                     <INTGO>
 830                     <EMPTY? TEMP9 + TAG12>
 831                     <NTH1 TEMP9 = STACK>
 832                     <REST1 TEMP9 = TEMP9>
 833                     <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
 834                     <JUMP + TAG15>
 835 TAG12
 836                     <CALL '\1aOCEMIT TEMP13>
 837                     <DEAD TEMP13>
 838                     <FRAME '\1aOCEMIT>
 839                     <PUSH 'PUSH>
 840                     <PUSH 'TP*>
 841                     <SET TEMP9 2 (TYPE FIX)>
 842                     <SFRAME 'OBJ-VAL>
 843                     <PUSH IT6>
 844                     <DEAD IT6>
 845                     <SCALL '\1aOBJ-VAL 1 = TEMP13 + TAG17 TEMP9>
 846                     <LOOP (TEMP13 TYPE VALUE LENGTH) (TEMP9 VALUE)>
 847 TAG19
 848                     <INTGO>
 849                     <EMPTY? TEMP13 + TAG17>
 850                     <NTH1 TEMP13 = STACK>
 851                     <REST1 TEMP13 = TEMP13>
 852                     <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
 853                     <JUMP + TAG19>
 854 TAG17
 855                     <CALL '\1aOCEMIT TEMP9>
 856                     <DEAD TEMP9>
 857                     <GVAL 'WINNING-VICTIM = TEMP9>
 858                     <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE37>
 859                     <GVAL 'STACK-DEPTH = TEMP13>
 860                     <ADD TEMP13 2 = TEMP13 (TYPE FIX)>
 861                     <SETG 'STACK-DEPTH TEMP13>
 862                     <RETURN TEMP13>
 863                     <DEAD TEMP13>
 864 PHRASE11
 865                     <EQUAL? IT6 VAL7 + BOOL25>
 866                     <FRAME '\1aWILL-DIE?>
 867                     <PUSH IT6>
 868                     <CALL '\1aWILL-DIE? 1 = TEMP13>
 869                     <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE23>
 870                     <DEAD TEMP13>
 871 BOOL25
 872                     <FRAME '\1aIN-AC?>
 873                     <PUSH IT6>
 874                     <PUSH 'BOTH>
 875                     <CALL '\1aIN-AC? 2 = TEMP9>
 876                     <TYPE? TEMP9 <TYPE-CODE FALSE> - BOOL27>
 877                     <FRAME '\1aIN-AC?>
 878                     <PUSH IT6>
 879                     <PUSH 'VALUE>
 880                     <CALL '\1aIN-AC? 2 = TEMP9>
 881                     <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE23>
 882                     <FRAME '\1aGETPROP>
 883                     <PUSH TEMP9>
 884                     <DEAD TEMP9>
 885                     <PUSH 'AC-PAIR>
 886                     <CALL '\1aGETPROP 2 = TEMP9>
 887                     <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE23>
 888 BOOL27
 889                     <EQUAL? IT6 VAL7 + PHRASE33>
 890                     <DEAD IT6>
 891                     <FRAME '\1aCLEAN-ACS>
 892                     <PUSH VAL7>
 893                     <CALL '\1aCLEAN-ACS 1>
 894 PHRASE33
 895                     <FRAME '\1aALTER-AC>
 896                     <PUSH TEMP9>
 897                     <PUSH VAL7>
 898                     <DEAD VAL7>
 899                     <CALL '\1aALTER-AC 2>
 900                     <FRAME '\1aGET-AC>
 901                     <PUSH TEMP9>
 902                     <DEAD TEMP9>
 903                     <CALL '\1aGET-AC 1 = TEMP13>
 904                     <PUTUV TEMP13 6 'FIX>
 905                     <RETURN TEMP13>
 906                     <DEAD TEMP13>
 907 PHRASE23
 908                     <FRAME '\1aASSIGN-AC>
 909                     <PUSH VAL7>
 910                     <DEAD VAL7>
 911                     <PUSH 'BOTH>
 912                     <CALL '\1aASSIGN-AC 2 = TEMP9>
 913                     <FRAME '\1aGET-AC>
 914                     <PUSH TEMP9>
 915                     <CALL '\1aGET-AC 1 = TEMP13>
 916                     <PUTUV TEMP13 6 'FIX>
 917                     <DEAD TEMP13>
 918                     <FRAME '\1aOCEMIT>
 919                     <PUSH 'MOVE>
 920                     <FRAME '\1aNEXT-AC>
 921                     <PUSH TEMP9>
 922                     <DEAD TEMP9>
 923                     <CALL '\1aNEXT-AC 1 = STACK>
 924                     <SET IT6 2 (TYPE FIX)>
 925                     <SFRAME 'OBJ-VAL>
 926                     <NTHL L5 1 = STACK>
 927                     <DEAD L5>
 928                     <SCALL '\1aOBJ-VAL 1 = TEMP13 + TAG40 IT6>
 929                     <LOOP (TEMP13 TYPE VALUE LENGTH) (IT6 VALUE)>
 930 TAG44
 931                     <INTGO>
 932                     <EMPTY? TEMP13 + TAG40>
 933                     <NTH1 TEMP13 = STACK>
 934                     <REST1 TEMP13 = TEMP13>
 935                     <ADD IT6 1 = IT6 (TYPE FIX)>
 936                     <JUMP + TAG44>
 937 TAG40
 938                     <CALL '\1aOCEMIT IT6 = TEMP9>
 939                     <DEAD IT6>
 940 PHRASE37
 941                     <RETURN TEMP9>
 942                     <DEAD TEMP9>
 943                     <END \1aVALUE!-MIMOC>
 944 #WORD *21414421770*
 945 <GFCN \1aON-STACK?!-MIMOC ("VALUE" <OR FALSE FIX AC> LIST) L5>
 946                     <TEMP IT6 TEMP10 VAL7:ATOM TEMP14 AC8>
 947                     <INTGO>
 948                     <NTHL L5 1 = IT6>
 949                     <RESTL L5 1 = TEMP10 (TYPE LIST)>
 950                     <DEAD L5>
 951                     <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
 952                     <NTHL TEMP10 1 = VAL7 (TYPE ATOM)>
 953                     <DEAD TEMP10>
 954                     <VEQUAL? VAL7 'STACK - PHRASE12>
 955                     <FRAME '\1aOCEMIT>
 956                     <PUSH 'PUSH>
 957                     <PUSH 'TP*>
 958                     <SET TEMP14 2 (TYPE FIX)>
 959                     <SFRAME 'TYPE-WORD>
 960                     <PUSH 'FIX>
 961                     <SCALL '\1aTYPE-WORD 1 = TEMP10 + TAG13 TEMP14>
 962                     <LOOP (TEMP10 TYPE VALUE LENGTH) (TEMP14 VALUE)>
 963 TAG16
 964                     <INTGO>
 965                     <EMPTY? TEMP10 + TAG13>
 966                     <NTH1 TEMP10 = STACK>
 967                     <REST1 TEMP10 = TEMP10>
 968                     <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
 969                     <JUMP + TAG16>
 970 TAG13
 971                     <CALL '\1aOCEMIT TEMP14>
 972                     <DEAD TEMP14>
 973                     <GVAL 'WINNING-VICTIM = TEMP14>
 974                     <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE19>
 975                     <DEAD TEMP14>
 976                     <GVAL 'STACK-DEPTH = TEMP14>
 977                     <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
 978                     <SETG 'STACK-DEPTH TEMP14>
 979                     <DEAD TEMP14>
 980 PHRASE19
 981                     <FRAME '\1aWILL-DIE?>
 982                     <PUSH IT6>
 983                     <CALL '\1aWILL-DIE? 1 = TEMP14>
 984                     <TYPE? TEMP14 <TYPE-CODE FALSE> + BOOL21>
 985                     <DEAD TEMP14>
 986                     <FRAME '\1aIN-AC?>
 987                     <PUSH IT6>
 988                     <PUSH 'VALUE>
 989                     <CALL '\1aIN-AC? 2 = AC8>
 990                     <TYPE? AC8 <TYPE-CODE FALSE> - PHRASE24>
 991 BOOL21
 992                     <FRAME '\1aOCEMIT>
 993                     <PUSH 'MOVE>
 994                     <SET AC8 'O1* (TYPE ATOM)>
 995                     <PUSH AC8>
 996                     <SET TEMP10 2 (TYPE FIX)>
 997                     <SFRAME 'OBJ-VAL>
 998                     <PUSH IT6>
 999                     <DEAD IT6>
1000                     <SCALL '\1aOBJ-VAL 1 = TEMP14 + TAG25 TEMP10>
1001                     <LOOP (TEMP14 TYPE VALUE LENGTH) (TEMP10 VALUE)>
1002 TAG27
1003                     <INTGO>
1004                     <EMPTY? TEMP14 + TAG25>
1005                     <NTH1 TEMP14 = STACK>
1006                     <REST1 TEMP14 = TEMP14>
1007                     <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
1008                     <JUMP + TAG27>
1009 TAG25
1010                     <CALL '\1aOCEMIT TEMP10>
1011                     <DEAD TEMP10>
1012 PHRASE24
1013                     <FRAME '\1aDO-ON-STACK>
1014                     <PUSH AC8>
1015                     <DEAD AC8>
1016                     <PUSH 'O*>
1017                     <CALL '\1aDO-ON-STACK 2>
1018                     <FRAME '\1aOCEMIT>
1019                     <PUSH 'PUSH>
1020                     <PUSH 'TP*>
1021                     <PUSH 'O*>
1022                     <CALL '\1aOCEMIT 3>
1023                     <GVAL 'WINNING-VICTIM = TEMP10>
1024                     <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE43>
1025                     <GVAL 'STACK-DEPTH = TEMP14>
1026                     <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
1027                     <SETG 'STACK-DEPTH TEMP14>
1028                     <RETURN TEMP14>
1029                     <DEAD TEMP14>
1030 PHRASE12
1031                     <EQUAL? IT6 VAL7 - PHRASE33>
1032                     <FRAME '\1aIN-AC?>
1033                     <PUSH IT6>
1034                     <PUSH 'VALUE>
1035                     <CALL '\1aIN-AC? 2 = AC8>
1036                     <TYPE? AC8 <TYPE-CODE FALSE> + PHRASE33>
1037                     <FRAME '\1aCLEAN-ACS>
1038                     <PUSH IT6>
1039                     <DEAD IT6>
1040                     <CALL '\1aCLEAN-ACS 1>
1041                     <FRAME '\1aGET-AC>
1042                     <PUSH AC8>
1043                     <CALL '\1aGET-AC 1 = TEMP14>
1044                     <GVAL 'AC-STAMP = TEMP10>
1045                     <PUTUV TEMP14 4 TEMP10 (TYPE FIX)>
1046                     <DEAD TEMP14 TEMP10>
1047                     <SETG 'FIRST-AC %<>>
1048                     <FRAME '\1aDO-ON-STACK>
1049                     <PUSH AC8>
1050                     <DEAD AC8>
1051                     <FRAME '\1aNEXT-AC>
1052                     <FRAME '\1aASSIGN-AC>
1053                     <PUSH VAL7>
1054                     <DEAD VAL7>
1055                     <PUSH 'BOTH>
1056                     <CALL '\1aASSIGN-AC 2 = AC8>
1057                     <PUSH AC8>
1058                     <CALL '\1aNEXT-AC 1 = STACK>
1059                     <CALL '\1aDO-ON-STACK 2>
1060                     <FRAME '\1aGET-AC>
1061                     <PUSH AC8>
1062                     <DEAD AC8>
1063                     <CALL '\1aGET-AC 1 = TEMP14>
1064                     <PUTUV TEMP14 6 'FIX>
1065                     <RETURN TEMP14>
1066                     <DEAD TEMP14>
1067 PHRASE33
1068                     <FRAME '\1aIN-AC?>
1069                     <PUSH IT6>
1070                     <PUSH 'VALUE>
1071                     <CALL '\1aIN-AC? 2 = AC8>
1072                     <TYPE? AC8 <TYPE-CODE FALSE> + PHRASE45>
1073                     <FRAME '\1aWILL-DIE?>
1074                     <PUSH IT6>
1075                     <CALL '\1aWILL-DIE? 1 = TEMP14>
1076                     <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE45>
1077                     <DEAD TEMP14>
1078                     <SETG 'FIRST-AC %<>>
1079                     <FRAME '\1aGET-AC>
1080                     <PUSH AC8>
1081                     <CALL '\1aGET-AC 1 = TEMP14>
1082                     <GVAL 'AC-STAMP = TEMP10>
1083                     <PUTUV TEMP14 4 TEMP10 (TYPE FIX)>
1084                     <DEAD TEMP14 TEMP10>
1085                     <JUMP + PHRASE50>
1086 PHRASE45
1087                     <FRAME '\1aOCEMIT>
1088                     <PUSH 'MOVE>
1089                     <SET AC8 'O1* (TYPE ATOM)>
1090                     <PUSH AC8>
1091                     <SET TEMP10 2 (TYPE FIX)>
1092                     <SFRAME 'OBJ-VAL>
1093                     <PUSH IT6>
1094                     <DEAD IT6>
1095                     <SCALL '\1aOBJ-VAL 1 = TEMP14 + TAG51 TEMP10>
1096                     <LOOP (TEMP14 TYPE VALUE LENGTH) (TEMP10 VALUE)>
1097 TAG53
1098                     <INTGO>
1099                     <EMPTY? TEMP14 + TAG51>
1100                     <NTH1 TEMP14 = STACK>
1101                     <REST1 TEMP14 = TEMP14>
1102                     <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
1103                     <JUMP + TAG53>
1104 TAG51
1105                     <CALL '\1aOCEMIT TEMP10>
1106                     <DEAD TEMP10>
1107 PHRASE50
1108                     <FRAME '\1aDO-ON-STACK>
1109                     <PUSH AC8>
1110                     <DEAD AC8>
1111                     <FRAME '\1aNEXT-AC>
1112                     <FRAME '\1aASSIGN-AC>
1113                     <PUSH VAL7>
1114                     <DEAD VAL7>
1115                     <PUSH 'BOTH>
1116                     <CALL '\1aASSIGN-AC 2 = AC8>
1117                     <PUSH AC8>
1118                     <CALL '\1aNEXT-AC 1 = STACK>
1119                     <CALL '\1aDO-ON-STACK 2>
1120                     <FRAME '\1aGET-AC>
1121                     <PUSH AC8>
1122                     <DEAD AC8>
1123                     <CALL '\1aGET-AC 1 = TEMP10>
1124                     <PUTUV TEMP10 6 'FIX>
1125 PHRASE43
1126                     <RETURN TEMP10>
1127                     <DEAD TEMP10>
1128                     <END \1aON-STACK?!-MIMOC>
1129 #WORD *23206414250*
1130 <GFCN \1aDO-ON-STACK ("VALUE" ANY ANY ANY) ARG5 DEST6>
1131                     <TEMP LBL7 TEMP13 TEMP12>
1132                     <INTGO>
1133                     <FRAME '\1aGENLBL>
1134                     <PUSH "DOS">
1135                     <CALL '\1aGENLBL 1 = LBL7>
1136                     <FRAME '\1aOCEMIT>
1137                     <PUSH 'MOVEI>
1138                     <PUSH DEST6>
1139                     <PUSH 0>
1140                     <CALL '\1aOCEMIT 3>
1141                     <FRAME '\1aOCEMIT>
1142                     <PUSH 'TLZ>
1143                     <PUSH ARG5>
1144                     <PUSH 258048>
1145                     <CALL '\1aOCEMIT 3>
1146                     <FRAME '\1aOCEMIT>
1147                     <PUSH 'CAMLE>
1148                     <PUSH ARG5>
1149                     <SET TEMP13 2 (TYPE FIX)>
1150                     <SFRAME 'OBJ-VAL>
1151                     <PUSH 786432>
1152                     <SCALL '\1aOBJ-VAL 1 = TEMP12 + TAG11 TEMP13>
1153                     <LOOP (TEMP12 TYPE VALUE LENGTH) (TEMP13 VALUE)>
1154 TAG15
1155                     <INTGO>
1156                     <EMPTY? TEMP12 + TAG11>
1157                     <NTH1 TEMP12 = STACK>
1158                     <REST1 TEMP12 = TEMP12>
1159                     <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
1160                     <JUMP + TAG15>
1161 TAG11
1162                     <CALL '\1aOCEMIT TEMP13>
1163                     <DEAD TEMP13>
1164                     <FRAME '\1aOCEMIT>
1165                     <PUSH 'JRST>
1166                     <FRAME '\1aXJUMP>
1167                     <PUSH LBL7>
1168                     <CALL '\1aXJUMP 1 = STACK>
1169                     <CALL '\1aOCEMIT 2>
1170                     <FRAME '\1aOCEMIT>
1171                     <PUSH 'MOVNI>
1172                     <PUSH DEST6>
1173                     <PUSH 1>
1174                     <CALL '\1aOCEMIT 3>
1175                     <FRAME '\1aOCEMIT>
1176                     <PUSH 'HRRZ>
1177                     <PUSH ARG5>
1178                     <PUSH ARG5>
1179                     <CALL '\1aOCEMIT 3>
1180                     <FRAME '\1aOCEMIT>
1181                     <PUSH 'CAILE>
1182                     <PUSH ARG5>
1183                     <DEAD ARG5>
1184                     <PUSH 0>
1185                     <PUSH (TP*)>
1186                     <CALL '\1aOCEMIT 4>
1187                     <FRAME '\1aOCEMIT>
1188                     <PUSH 'MOVEI>
1189                     <PUSH DEST6>
1190                     <DEAD DEST6>
1191                     <PUSH 1>
1192                     <CALL '\1aOCEMIT 3>
1193                     <FRAME '\1aLABEL>
1194                     <PUSH LBL7>
1195                     <DEAD LBL7>
1196                     <CALL '\1aLABEL 1 = TEMP13>
1197                     <RETURN TEMP13>
1198                     <DEAD TEMP13>
1199                     <END \1aDO-ON-STACK>
1200 #WORD *17764611507*
1201 <GFCN \1aOBJECT!-MIMOC ("VALUE" ANY <LIST [5 <OR ATOM FIX>]>) L5>
1202                     <TEMP TY6 TEMP14 CNT7 VAL8 (V-DONE9 %<>) (AC11 %<>) (TAC12 %<>) (CAC13 %<>) TEMP23>
1203                     <INTGO>
1204                     <NTHL L5 1 = TY6>
1205                     <RESTL L5 1 = TEMP14 (TYPE LIST)>
1206                     <NTHL TEMP14 1 = CNT7>
1207                     <DEAD TEMP14>
1208                     <RESTL L5 1 = TEMP14 (TYPE LIST)>
1209                     <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
1210                     <NTHL TEMP14 1 = VAL8>
1211                     <DEAD TEMP14>
1212                     <NTHL L5 5 = TEMP14>
1213                     <DEAD L5>
1214                     <EQUAL? TEMP14 'STACK - PHRASE16>
1215                     <TYPE? TY6 <TYPE-CODE FIX> - PHRASE18>
1216                     <TYPE? CNT7 <TYPE-CODE FIX> - PHRASE18>
1217                     <FRAME '\1aOCEMIT>
1218                     <PUSH 'PUSH>
1219                     <PUSH 'TP*>
1220                     <SET CAC13 2 (TYPE FIX)>
1221                     <SFRAME 'OBJ-VAL>
1222                     <LSH TY6 18 = TEMP23 (TYPE FIX)>
1223                     <DEAD TY6>
1224                     <OR TEMP23 CNT7 = STACK>
1225                     <DEAD TEMP23 CNT7>
1226                     <SCALL '\1aOBJ-VAL 1 = TEMP14 + TAG20 CAC13>
1227                     <LOOP (TEMP14 TYPE VALUE LENGTH) (CAC13 VALUE)>
1228 TAG24
1229                     <INTGO>
1230                     <EMPTY? TEMP14 + TAG20>
1231                     <NTH1 TEMP14 = STACK>
1232                     <REST1 TEMP14 = TEMP14>
1233                     <ADD CAC13 1 = CAC13 (TYPE FIX)>
1234                     <JUMP + TAG24>
1235 TAG20
1236                     <CALL '\1aOCEMIT CAC13>
1237                     <DEAD CAC13>
1238                     <JUMP + PHRASE26>
1239 PHRASE18
1240                     <FRAME '\1aSMASH-AC>
1241                     <PUSH 'O*>
1242                     <PUSH CNT7>
1243                     <DEAD CNT7>
1244                     <PUSH 'VALUE>
1245                     <CALL '\1aSMASH-AC 3>
1246                     <TYPE? TY6 <TYPE-CODE FIX> - PHRASE29>
1247                     <FRAME '\1aOCEMIT>
1248                     <PUSH 'HRLI>
1249                     <PUSH 'O*>
1250                     <PUSH TY6>
1251                     <DEAD TY6>
1252                     <CALL '\1aOCEMIT 3>
1253                     <JUMP + PHRASE31>
1254 PHRASE29
1255                     <FRAME '\1aOCEMIT>
1256                     <PUSH 'HRL>
1257                     <PUSH 'O*>
1258                     <SET TEMP14 2 (TYPE FIX)>
1259                     <SFRAME 'OBJ-VAL>
1260                     <PUSH TY6>
1261                     <DEAD TY6>
1262                     <SCALL '\1aOBJ-VAL 1 = CAC13 + TAG32 TEMP14>
1263                     <LOOP (CAC13 TYPE VALUE LENGTH) (TEMP14 VALUE)>
1264 TAG34
1265                     <INTGO>
1266                     <EMPTY? CAC13 + TAG32>
1267                     <NTH1 CAC13 = STACK>
1268                     <REST1 CAC13 = CAC13>
1269                     <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
1270                     <JUMP + TAG34>
1271 TAG32
1272                     <CALL '\1aOCEMIT TEMP14>
1273                     <DEAD TEMP14>
1274 PHRASE31
1275                     <FRAME '\1aOCEMIT>
1276                     <PUSH 'PUSH>
1277                     <PUSH 'TP*>
1278                     <PUSH 'O*>
1279                     <CALL '\1aOCEMIT 3>
1280 PHRASE26
1281                     <GVAL 'WINNING-VICTIM = TEMP14>
1282                     <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE38>
1283                     <DEAD TEMP14>
1284                     <GVAL 'STACK-DEPTH = TEMP23>
1285                     <ADD TEMP23 1 = TEMP23 (TYPE FIX)>
1286                     <SETG 'STACK-DEPTH TEMP23>
1287                     <DEAD TEMP23>
1288 PHRASE38
1289                     <FRAME '\1aOCEMIT>
1290                     <PUSH 'PUSH>
1291                     <PUSH 'TP*>
1292                     <SET TEMP14 2 (TYPE FIX)>
1293                     <SFRAME 'OBJ-VAL>
1294                     <PUSH VAL8>
1295                     <DEAD VAL8>
1296                     <SCALL '\1aOBJ-VAL 1 = TEMP23 + TAG39 TEMP14>
1297                     <LOOP (TEMP23 TYPE VALUE LENGTH) (TEMP14 VALUE)>
1298 TAG41
1299                     <INTGO>
1300                     <EMPTY? TEMP23 + TAG39>
1301                     <NTH1 TEMP23 = STACK>
1302                     <REST1 TEMP23 = TEMP23>
1303                     <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
1304                     <JUMP + TAG41>
1305 TAG39
1306                     <CALL '\1aOCEMIT TEMP14>
1307                     <DEAD TEMP14>
1308                     <GVAL 'WINNING-VICTIM = TEMP14>
1309                     <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE175>
1310                     <GVAL 'STACK-DEPTH = TEMP23>
1311                     <ADD TEMP23 1 = TEMP23 (TYPE FIX)>
1312                     <SETG 'STACK-DEPTH TEMP23>
1313                     <RETURN TEMP23>
1314                     <DEAD TEMP23>
1315 PHRASE16
1316                     <TYPE? TY6 <TYPE-CODE ATOM> - PHRASE47>
1317                     <EQUAL? TEMP14 TY6 + BOOL49>
1318                     <FRAME '\1aWILL-DIE?>
1319                     <PUSH TY6>
1320                     <CALL '\1aWILL-DIE? 1 = TEMP23>
1321                     <TYPE? TEMP23 <TYPE-CODE FALSE> + PHRASE47>
1322                     <DEAD TEMP23>
1323 BOOL49
1324                     <FRAME '\1aIN-AC?>
1325                     <PUSH TY6>
1326                     <PUSH 'BOTH>
1327                     <CALL '\1aIN-AC? 2 = TAC12>
1328                     <TYPE? TAC12 <TYPE-CODE FALSE> + PHRASE52>
1329                     <FRAME '\1aMUNGED-AC>
1330                     <PUSH TAC12>
1331                     <PUSH 'T>
1332                     <CALL '\1aMUNGED-AC 2>
1333                     <FRAME '\1aNEXT-AC>
1334                     <PUSH TAC12>
1335                     <DEAD TAC12>
1336                     <CALL '\1aNEXT-AC 1 = TAC12>
1337                     <JUMP + PHRASE56>
1338 PHRASE52
1339                     <FRAME '\1aIN-AC?>
1340                     <PUSH TY6>
1341                     <PUSH 'VALUE>
1342                     <CALL '\1aIN-AC? 2 = TAC12>
1343                     <TYPE? TAC12 <TYPE-CODE FALSE> + PHRASE56>
1344                     <FRAME '\1aMUNGED-AC>
1345                     <PUSH TAC12>
1346                     <CALL '\1aMUNGED-AC 1>
1347 PHRASE56
1348                     <FRAME '\1aDEAD!-MIMOC>
1349                     <CONS TY6 () = STACK>
1350                     <PUSH 'T>
1351                     <CALL '\1aDEAD!-MIMOC 2>
1352 PHRASE47
1353                     <TYPE? CNT7 <TYPE-CODE ATOM> - PHRASE61>
1354                     <EQUAL? TEMP14 CNT7 + BOOL63>
1355                     <FRAME '\1aWILL-DIE?>
1356                     <PUSH CNT7>
1357                     <CALL '\1aWILL-DIE? 1 = TEMP23>
1358                     <TYPE? TEMP23 <TYPE-CODE FALSE> + PHRASE61>
1359                     <DEAD TEMP23>
1360 BOOL63
1361                     <FRAME '\1aIN-AC?>
1362                     <PUSH CNT7>
1363                     <PUSH 'BOTH>
1364                     <CALL '\1aIN-AC? 2 = CAC13>
1365                     <TYPE? CAC13 <TYPE-CODE FALSE> + PHRASE66>
1366                     <FRAME '\1aMUNGED-AC>
1367                     <PUSH CAC13>
1368                     <PUSH 'T>
1369                     <CALL '\1aMUNGED-AC 2>
1370                     <FRAME '\1aNEXT-AC>
1371                     <PUSH CAC13>
1372                     <DEAD CAC13>
1373                     <CALL '\1aNEXT-AC 1 = CAC13>
1374                     <JUMP + PHRASE70>
1375 PHRASE66
1376                     <FRAME '\1aIN-AC?>
1377                     <PUSH CNT7>
1378                     <PUSH 'VALUE>
1379                     <CALL '\1aIN-AC? 2 = CAC13>
1380                     <TYPE? CAC13 <TYPE-CODE FALSE> + PHRASE70>
1381                     <FRAME '\1aMUNGED-AC>
1382                     <PUSH CAC13>
1383                     <CALL '\1aMUNGED-AC 1>
1384 PHRASE70
1385                     <FRAME '\1aDEAD!-MIMOC>
1386                     <CONS CNT7 () = STACK>
1387                     <PUSH 'T>
1388                     <CALL '\1aDEAD!-MIMOC 2>
1389 PHRASE61
1390                     <TYPE? VAL8 <TYPE-CODE ATOM> - PHRASE84>
1391                     <EQUAL? TEMP14 VAL8 + BOOL77>
1392                     <FRAME '\1aWILL-DIE?>
1393                     <PUSH VAL8>
1394                     <CALL '\1aWILL-DIE? 1 = TEMP23>
1395                     <TYPE? TEMP23 <TYPE-CODE FALSE> + PHRASE84>
1396                     <DEAD TEMP23>
1397 BOOL77
1398                     <FRAME '\1aDEAD!-MIMOC>
1399                     <CONS VAL8 () = STACK>
1400                     <PUSH 'T>
1401                     <CALL '\1aDEAD!-MIMOC 2>
1402                     <FRAME '\1aIN-AC?>
1403                     <PUSH VAL8>
1404                     <PUSH 'BOTH>
1405                     <CALL '\1aIN-AC? 2 = AC11>
1406                     <TYPE? AC11 <TYPE-CODE FALSE> + PHRASE81>
1407                     <SET V-DONE9 'T (TYPE ATOM)>
1408                     <FRAME '\1aMUNGED-AC>
1409                     <PUSH AC11>
1410                     <CALL '\1aMUNGED-AC 1>
1411                     <JUMP + PHRASE84>
1412 PHRASE81
1413                     <FRAME '\1aIN-AC?>
1414                     <PUSH VAL8>
1415                     <PUSH 'VALUE>
1416                     <CALL '\1aIN-AC? 2 = AC11>
1417                     <TYPE? AC11 <TYPE-CODE FALSE> + PHRASE84>
1418                     <FRAME '\1aGETPROP>
1419                     <PUSH AC11>
1420                     <DEAD AC11>
1421                     <PUSH 'AC-PAIR>
1422                     <CALL '\1aGETPROP 2 = AC11>
1423                     <FRAME '\1aMUNGED-AC>
1424                     <PUSH AC11>
1425                     <CALL '\1aMUNGED-AC 1>
1426                     <SET V-DONE9 'T (TYPE ATOM)>
1427 PHRASE84
1428                     <TYPE? AC11 <TYPE-CODE FALSE> - PHRASE89>
1429                     <FRAME '\1aASSIGN-AC>
1430                     <PUSH TEMP14>
1431                     <PUSH 'BOTH>
1432                     <CALL '\1aASSIGN-AC 2 = AC11>
1433 PHRASE89
1434                     <TYPE? TY6 <TYPE-CODE FIX> - PHRASE92>
1435                     <TYPE? CNT7 <TYPE-CODE FIX> - PHRASE92>
1436                     <VEQUAL? CNT7 0 - PHRASE95 (TYPE FIX)>
1437                     <FRAME '\1aOCEMIT>
1438                     <PUSH 'MOVSI>
1439                     <PUSH AC11>
1440                     <PUSH TY6>
1441                     <DEAD TY6>
1442                     <CALL '\1aOCEMIT 3>
1443                     <JUMP + PHRASE163>
1444 PHRASE95
1445                     <FRAME '\1aOCEMIT>
1446                     <PUSH 'MOVE>
1447                     <PUSH AC11>
1448                     <SET CAC13 2 (TYPE FIX)>
1449                     <SFRAME 'OBJ-VAL>
1450                     <LSH TY6 18 = TY6 (TYPE FIX)>
1451                     <OR TY6 CNT7 = STACK>
1452                     <DEAD TY6 CNT7>
1453                     <SCALL '\1aOBJ-VAL 1 = TEMP23 + TAG100 CAC13>
1454                     <LOOP (TEMP23 TYPE VALUE LENGTH) (CAC13 VALUE)>
1455 TAG103
1456                     <INTGO>
1457                     <EMPTY? TEMP23 + TAG100>
1458                     <NTH1 TEMP23 = STACK>
1459                     <REST1 TEMP23 = TEMP23>
1460                     <ADD CAC13 1 = CAC13 (TYPE FIX)>
1461                     <JUMP + TAG103>
1462 TAG100
1463                     <CALL '\1aOCEMIT CAC13>
1464                     <DEAD CAC13>
1465                     <JUMP + PHRASE163>
1466 PHRASE92
1467                     <TYPE? TY6 <TYPE-CODE FIX> - PHRASE105>
1468                     <VEQUAL? TY6 0 - PHRASE107 (TYPE FIX)>
1469                     <TYPE? CAC13 <TYPE-CODE FALSE> + PHRASE111>
1470                     <FRAME '\1aOCEMIT>
1471                     <PUSH 'HRRZ>
1472                     <PUSH AC11>
1473                     <PUSH CAC13>
1474                     <DEAD CAC13>
1475                     <CALL '\1aOCEMIT 3>
1476                     <JUMP + PHRASE163>
1477 PHRASE111
1478                     <FRAME '\1aOCEMIT>
1479                     <PUSH 'HRRZ>
1480                     <PUSH AC11>
1481                     <SET TEMP23 2 (TYPE FIX)>
1482                     <SFRAME 'OBJ-VAL>
1483                     <PUSH CNT7>
1484                     <DEAD CNT7>
1485                     <SCALL '\1aOBJ-VAL 1 = CAC13 + TAG114 TEMP23>
1486                     <LOOP (CAC13 TYPE VALUE LENGTH) (TEMP23 VALUE)>
1487 TAG116
1488                     <INTGO>
1489                     <EMPTY? CAC13 + TAG114>
1490                     <NTH1 CAC13 = STACK>
1491                     <REST1 CAC13 = CAC13>
1492                     <ADD TEMP23 1 = TEMP23 (TYPE FIX)>
1493                     <JUMP + TAG116>
1494 TAG114
1495                     <CALL '\1aOCEMIT TEMP23>
1496                     <DEAD TEMP23>
1497                     <JUMP + PHRASE163>
1498 PHRASE107
1499                     <FRAME '\1aOCEMIT>
1500                     <PUSH 'MOVSI>
1501                     <PUSH AC11>
1502                     <PUSH TY6>
1503                     <DEAD TY6>
1504                     <CALL '\1aOCEMIT 3>
1505                     <TYPE? CAC13 <TYPE-CODE FALSE> + PHRASE121>
1506                     <FRAME '\1aOCEMIT>
1507                     <PUSH 'HRR>
1508                     <PUSH AC11>
1509                     <PUSH CAC13>
1510                     <DEAD CAC13>
1511                     <CALL '\1aOCEMIT 3>
1512                     <JUMP + PHRASE163>
1513 PHRASE121
1514                     <FRAME '\1aOCEMIT>
1515                     <PUSH 'HRR>
1516                     <PUSH AC11>
1517                     <SET CAC13 2 (TYPE FIX)>
1518                     <SFRAME 'OBJ-VAL>
1519                     <PUSH CNT7>
1520                     <DEAD CNT7>
1521                     <SCALL '\1aOBJ-VAL 1 = TEMP23 + TAG124 CAC13>
1522                     <LOOP (TEMP23 TYPE VALUE LENGTH) (CAC13 VALUE)>
1523 TAG126
1524                     <INTGO>
1525                     <EMPTY? TEMP23 + TAG124>
1526                     <NTH1 TEMP23 = STACK>
1527                     <REST1 TEMP23 = TEMP23>
1528                     <ADD CAC13 1 = CAC13 (TYPE FIX)>
1529                     <JUMP + TAG126>
1530 TAG124
1531                     <CALL '\1aOCEMIT CAC13>
1532                     <DEAD CAC13>
1533                     <JUMP + PHRASE163>
1534 PHRASE105
1535                     <TYPE? CNT7 <TYPE-CODE FIX> - PHRASE128>
1536                     <VEQUAL? CNT7 0 - PHRASE130 (TYPE FIX)>
1537                     <TYPE? TAC12 <TYPE-CODE FALSE> + PHRASE134>
1538                     <FRAME '\1aOCEMIT>
1539                     <PUSH 'HRLZ>
1540                     <PUSH AC11>
1541                     <PUSH TAC12>
1542                     <DEAD TAC12>
1543                     <CALL '\1aOCEMIT 3>
1544                     <JUMP + PHRASE163>
1545 PHRASE134
1546                     <FRAME '\1aOCEMIT>
1547                     <PUSH 'HRLZ>
1548                     <PUSH AC11>
1549                     <SET TEMP23 2 (TYPE FIX)>
1550                     <SFRAME 'OBJ-VAL>
1551                     <PUSH TY6>
1552                     <DEAD TY6>
1553                     <SCALL '\1aOBJ-VAL 1 = CAC13 + TAG137 TEMP23>
1554                     <LOOP (CAC13 TYPE VALUE LENGTH) (TEMP23 VALUE)>
1555 TAG139
1556                     <INTGO>
1557                     <EMPTY? CAC13 + TAG137>
1558                     <NTH1 CAC13 = STACK>
1559                     <REST1 CAC13 = CAC13>
1560                     <ADD TEMP23 1 = TEMP23 (TYPE FIX)>
1561                     <JUMP + TAG139>
1562 TAG137
1563                     <CALL '\1aOCEMIT TEMP23>
1564                     <DEAD TEMP23>
1565                     <JUMP + PHRASE163>
1566 PHRASE130
1567                     <FRAME '\1aOCEMIT>
1568                     <PUSH 'MOVEI>
1569                     <PUSH AC11>
1570                     <PUSH CNT7>
1571                     <DEAD CNT7>
1572                     <CALL '\1aOCEMIT 3>
1573                     <TYPE? TAC12 <TYPE-CODE FALSE> + PHRASE144>
1574                     <FRAME '\1aOCEMIT>
1575                     <PUSH 'HRL>
1576                     <PUSH AC11>
1577                     <PUSH TAC12>
1578                     <DEAD TAC12>
1579                     <CALL '\1aOCEMIT 3>
1580                     <JUMP + PHRASE163>
1581 PHRASE144
1582                     <FRAME '\1aOCEMIT>
1583                     <PUSH 'HRL>
1584                     <PUSH AC11>
1585                     <SET CAC13 2 (TYPE FIX)>
1586                     <SFRAME 'OBJ-VAL>
1587                     <PUSH TY6>
1588                     <DEAD TY6>
1589                     <SCALL '\1aOBJ-VAL 1 = TEMP23 + TAG147 CAC13>
1590                     <LOOP (TEMP23 TYPE VALUE LENGTH) (CAC13 VALUE)>
1591 TAG149
1592                     <INTGO>
1593                     <EMPTY? TEMP23 + TAG147>
1594                     <NTH1 TEMP23 = STACK>
1595                     <REST1 TEMP23 = TEMP23>
1596                     <ADD CAC13 1 = CAC13 (TYPE FIX)>
1597                     <JUMP + TAG149>
1598 TAG147
1599                     <CALL '\1aOCEMIT CAC13>
1600                     <DEAD CAC13>
1601                     <JUMP + PHRASE163>
1602 PHRASE128
1603                     <TYPE? CAC13 <TYPE-CODE FALSE> + PHRASE153>
1604                     <FRAME '\1aOCEMIT>
1605                     <PUSH 'MOVE>
1606                     <PUSH AC11>
1607                     <PUSH CAC13>
1608                     <DEAD CAC13>
1609                     <CALL '\1aOCEMIT 3>
1610                     <JUMP + PHRASE155>
1611 PHRASE153
1612                     <FRAME '\1aOCEMIT>
1613                     <PUSH 'MOVE>
1614                     <PUSH AC11>
1615                     <SET TEMP23 2 (TYPE FIX)>
1616                     <SFRAME 'OBJ-VAL>
1617                     <PUSH CNT7>
1618                     <DEAD CNT7>
1619                     <SCALL '\1aOBJ-VAL 1 = CAC13 + TAG156 TEMP23>
1620                     <LOOP (CAC13 TYPE VALUE LENGTH) (TEMP23 VALUE)>
1621 TAG158
1622                     <INTGO>
1623                     <EMPTY? CAC13 + TAG156>
1624                     <NTH1 CAC13 = STACK>
1625                     <REST1 CAC13 = CAC13>
1626                     <ADD TEMP23 1 = TEMP23 (TYPE FIX)>
1627                     <JUMP + TAG158>
1628 TAG156
1629                     <CALL '\1aOCEMIT TEMP23>
1630                     <DEAD TEMP23>
1631 PHRASE155
1632                     <TYPE? TAC12 <TYPE-CODE FALSE> + PHRASE161>
1633                     <FRAME '\1aOCEMIT>
1634                     <PUSH 'HRL>
1635                     <PUSH AC11>
1636                     <PUSH TAC12>
1637                     <DEAD TAC12>
1638                     <CALL '\1aOCEMIT 3>
1639                     <JUMP + PHRASE163>
1640 PHRASE161
1641                     <FRAME '\1aOCEMIT>
1642                     <PUSH 'HRL>
1643                     <PUSH AC11>
1644                     <SET CAC13 2 (TYPE FIX)>
1645                     <SFRAME 'OBJ-VAL>
1646                     <PUSH TY6>
1647                     <DEAD TY6>
1648                     <SCALL '\1aOBJ-VAL 1 = TEMP23 + TAG164 CAC13>
1649                     <LOOP (TEMP23 TYPE VALUE LENGTH) (CAC13 VALUE)>
1650 TAG166
1651                     <INTGO>
1652                     <EMPTY? TEMP23 + TAG164>
1653                     <NTH1 TEMP23 = STACK>
1654                     <REST1 TEMP23 = TEMP23>
1655                     <ADD CAC13 1 = CAC13 (TYPE FIX)>
1656                     <JUMP + TAG166>
1657 TAG164
1658                     <CALL '\1aOCEMIT CAC13>
1659                     <DEAD CAC13>
1660 PHRASE163
1661                     <TYPE? V-DONE9 <TYPE-CODE FALSE> - PHRASE169>
1662                     <DEAD V-DONE9>
1663                     <FRAME '\1aOCEMIT>
1664                     <PUSH 'MOVE>
1665                     <FRAME '\1aNEXT-AC>
1666                     <PUSH AC11>
1667                     <DEAD AC11>
1668                     <CALL '\1aNEXT-AC 1 = STACK>
1669                     <SET TEMP23 2 (TYPE FIX)>
1670                     <SFRAME 'OBJ-VAL>
1671                     <PUSH VAL8>
1672                     <DEAD VAL8>
1673                     <SCALL '\1aOBJ-VAL 1 = CAC13 + TAG170 TEMP23>
1674                     <LOOP (CAC13 TYPE VALUE LENGTH) (TEMP23 VALUE)>
1675 TAG173
1676                     <INTGO>
1677                     <EMPTY? CAC13 + TAG170>
1678                     <NTH1 CAC13 = STACK>
1679                     <REST1 CAC13 = CAC13>
1680                     <ADD TEMP23 1 = TEMP23 (TYPE FIX)>
1681                     <JUMP + TAG173>
1682 TAG170
1683                     <CALL '\1aOCEMIT TEMP23 = TEMP14>
1684                     <DEAD TEMP23>
1685                     <RETURN TEMP14>
1686                     <DEAD TEMP14>
1687 PHRASE169
1688                     <FRAME '\1aALTER-AC>
1689                     <PUSH AC11>
1690                     <DEAD AC11>
1691                     <PUSH TEMP14>
1692                     <DEAD TEMP14>
1693                     <CALL '\1aALTER-AC 2 = TEMP14>
1694 PHRASE175
1695                     <RETURN TEMP14>
1696                     <DEAD TEMP14>
1697                     <END \1aOBJECT!-MIMOC>
1698 #WORD *32764025064*
1699 <GFCN \1aOPEN!-MIMOC ("VALUE" ANY LIST) L5>
1700                     <TEMP TEMP9 TEMP8 TEMP15:LIST>
1701                     <INTGO>
1702                     <FRAME '\1aUPDATE-ACS>
1703                     <CALL '\1aUPDATE-ACS 0>
1704                     <FRAME '\1aOCEMIT>
1705                     <PUSH 'MOVE>
1706                     <PUSH 'O1*>
1707                     <SET TEMP9 2 (TYPE FIX)>
1708                     <SFRAME 'OBJ-VAL>
1709                     <NTHL L5 1 = STACK>
1710                     <SCALL '\1aOBJ-VAL 1 = TEMP8 + TAG7 TEMP9>
1711                     <LOOP (TEMP8 TYPE VALUE LENGTH) (TEMP9 VALUE)>
1712 TAG11
1713                     <INTGO>
1714                     <EMPTY? TEMP8 + TAG7>
1715                     <NTH1 TEMP8 = STACK>
1716                     <REST1 TEMP8 = TEMP8>
1717                     <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
1718                     <JUMP + TAG11>
1719 TAG7
1720                     <CALL '\1aOCEMIT TEMP9>
1721                     <DEAD TEMP9>
1722                     <FRAME '\1aOCEMIT>
1723                     <PUSH 'MOVE>
1724                     <PUSH 'O2*>
1725                     <SET TEMP8 2 (TYPE FIX)>
1726                     <SFRAME 'OBJ-VAL>
1727                     <RESTL L5 1 = TEMP15 (TYPE LIST)>
1728                     <NTHL TEMP15 1 = STACK>
1729                     <DEAD TEMP15>
1730                     <SCALL '\1aOBJ-VAL 1 = TEMP9 + TAG13 TEMP8>
1731                     <LOOP (TEMP9 TYPE VALUE LENGTH) (TEMP8 VALUE)>
1732 TAG16
1733                     <INTGO>
1734                     <EMPTY? TEMP9 + TAG13>
1735                     <NTH1 TEMP9 = STACK>
1736                     <REST1 TEMP9 = TEMP9>
1737                     <ADD TEMP8 1 = TEMP8 (TYPE FIX)>
1738                     <JUMP + TAG16>
1739 TAG13
1740                     <CALL '\1aOCEMIT TEMP8>
1741                     <DEAD TEMP8>
1742                     <FRAME '\1aOCEMIT>
1743                     <PUSH 'DMOVE>
1744                     <PUSH 'B1*>
1745                     <SET TEMP9 2 (TYPE FIX)>
1746                     <SFRAME 'OBJ-TYP>
1747                     <RESTL L5 1 = TEMP15 (TYPE LIST)>
1748                     <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
1749                     <NTHL TEMP15 1 = STACK>
1750                     <DEAD TEMP15>
1751                     <SCALL '\1aOBJ-TYP 1 = TEMP8 + TAG18 TEMP9>
1752                     <LOOP (TEMP8 TYPE VALUE LENGTH) (TEMP9 VALUE)>
1753 TAG20
1754                     <INTGO>
1755                     <EMPTY? TEMP8 + TAG18>
1756                     <NTH1 TEMP8 = STACK>
1757                     <REST1 TEMP8 = TEMP8>
1758                     <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
1759                     <JUMP + TAG20>
1760 TAG18
1761                     <CALL '\1aOCEMIT TEMP9>
1762                     <DEAD TEMP9>
1763                     <FRAME '\1aPUSHJ>
1764                     <PUSH 'OPEN>
1765                     <NTHL L5 5 = STACK>
1766                     <DEAD L5>
1767                     <CALL '\1aPUSHJ 2 = TEMP9>
1768                     <RETURN TEMP9>
1769                     <DEAD TEMP9>
1770                     <END \1aOPEN!-MIMOC>
1771 #WORD *4776510265*
1772 <GFCN \1aCLOSE!-MIMOC ("VALUE" ANY LIST) L5>
1773                     <TEMP TEMP9 TEMP8>
1774                     <INTGO>
1775                     <FRAME '\1aUPDATE-ACS>
1776                     <CALL '\1aUPDATE-ACS 0>
1777                     <FRAME '\1aOCEMIT>
1778                     <PUSH 'MOVE>
1779                     <PUSH 'A1*>
1780                     <SET TEMP9 2 (TYPE FIX)>
1781                     <SFRAME 'OBJ-VAL>
1782                     <NTHL L5 1 = STACK>
1783                     <SCALL '\1aOBJ-VAL 1 = TEMP8 + TAG7 TEMP9>
1784                     <LOOP (TEMP8 TYPE VALUE LENGTH) (TEMP9 VALUE)>
1785 TAG11
1786                     <INTGO>
1787                     <EMPTY? TEMP8 + TAG7>
1788                     <NTH1 TEMP8 = STACK>
1789                     <REST1 TEMP8 = TEMP8>
1790                     <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
1791                     <JUMP + TAG11>
1792 TAG7
1793                     <CALL '\1aOCEMIT TEMP9>
1794                     <DEAD TEMP9>
1795                     <FRAME '\1aPUSHJ>
1796                     <PUSH 'CLOSE>
1797                     <EMPL? L5 + TAG17>
1798                     <RESTL L5 1 = TEMP8 (TYPE LIST)>
1799                     <EMPL? TEMP8 + TAG17>
1800                     <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
1801                     <EMPL? TEMP8 - TAG16>
1802                     <DEAD TEMP8>
1803 TAG17
1804                     <SET TEMP9 %<> (TYPE FALSE)>
1805                     <JUMP + PHRASE15>
1806 TAG16
1807                     <RESTL L5 1 = TEMP8 (TYPE LIST)>
1808                     <DEAD L5>
1809                     <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
1810                     <NTHL TEMP8 1 = TEMP9>
1811                     <DEAD TEMP8>
1812 PHRASE15
1813                     <PUSH TEMP9>
1814                     <DEAD TEMP9>
1815                     <CALL '\1aPUSHJ 2 = TEMP9>
1816                     <RETURN TEMP9>
1817                     <DEAD TEMP9>
1818                     <END \1aCLOSE!-MIMOC>
1819 #WORD *10554307110*
1820 <GFCN \1aRESET!-MIMOC ("VALUE" ANY LIST) L5>
1821                     <TEMP TEMP9 TEMP8>
1822                     <INTGO>
1823                     <FRAME '\1aUPDATE-ACS>
1824                     <CALL '\1aUPDATE-ACS 0>
1825                     <FRAME '\1aOCEMIT>
1826                     <PUSH 'MOVE>
1827                     <PUSH 'A1*>
1828                     <SET TEMP9 2 (TYPE FIX)>
1829                     <SFRAME 'OBJ-VAL>
1830                     <NTHL L5 1 = STACK>
1831                     <DEAD L5>
1832                     <SCALL '\1aOBJ-VAL 1 = TEMP8 + TAG7 TEMP9>
1833                     <LOOP (TEMP8 TYPE VALUE LENGTH) (TEMP9 VALUE)>
1834 TAG11
1835                     <INTGO>
1836                     <EMPTY? TEMP8 + TAG7>
1837                     <NTH1 TEMP8 = STACK>
1838                     <REST1 TEMP8 = TEMP8>
1839                     <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
1840                     <JUMP + TAG11>
1841 TAG7
1842                     <CALL '\1aOCEMIT TEMP9>
1843                     <DEAD TEMP9>
1844                     <FRAME '\1aPUSHJ>
1845                     <PUSH 'RESET>
1846                     <CALL '\1aPUSHJ 1 = TEMP9>
1847                     <RETURN TEMP9>
1848                     <DEAD TEMP9>
1849                     <END \1aRESET!-MIMOC>
1850 #WORD *22000015571*
1851 <GFCN \1aREAD!-MIMOC ("VALUE" ANY LIST) L5>
1852                     <TEMP LL6 TEMP14 TL7>
1853                     <INTGO>
1854                     <LENL L5 = LL6 (TYPE FIX)>
1855                     <SET LL6 L5>
1856                     <EMPL? LL6 + TAG9>
1857                     <LOOP (LL6 VALUE)>
1858 TAG11
1859                     <NTHL LL6 1 = TEMP14>
1860                     <TYPE? TEMP14 <TYPE-CODE ATOM> - TAG12>
1861                     <VEQUAL? TEMP14 '= + TAG10>
1862                     <DEAD TEMP14>
1863 TAG12
1864                     <RESTL LL6 1 = LL6 (TYPE LIST)>
1865                     <EMPL? LL6 - TAG11>
1866 TAG9
1867                     <SET TL7 %<> (TYPE FALSE)>
1868                     <JUMP + TAG15>
1869 TAG10
1870                     <SET TL7 LL6>
1871                     <DEAD LL6>
1872 TAG15
1873                     <LENL L5 = LL6 (TYPE FIX)>
1874                     <LENL TL7 = TEMP14 (TYPE FIX)>
1875                     <SUB LL6 TEMP14 = LL6 (TYPE FIX)>
1876                     <DEAD TEMP14>
1877                     <FRAME '\1aUPDATE-ACS>
1878                     <CALL '\1aUPDATE-ACS 0>
1879                     <FRAME '\1aSMASH-AC>
1880                     <PUSH 'A1*>
1881                     <NTHL L5 1 = STACK>
1882                     <PUSH 'VALUE>
1883                     <CALL '\1aSMASH-AC 3>
1884                     <FRAME '\1aSMASH-AC>
1885                     <PUSH 'A2*>
1886                     <RESTL L5 1 = TEMP14 (TYPE LIST)>
1887                     <NTHL TEMP14 1 = STACK>
1888                     <DEAD TEMP14>
1889                     <PUSH 'VALUE>
1890                     <CALL '\1aSMASH-AC 3>
1891                     <FRAME '\1aSMASH-AC>
1892                     <PUSH 'B1*>
1893                     <RESTL L5 1 = TEMP14 (TYPE LIST)>
1894                     <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
1895                     <NTHL TEMP14 1 = STACK>
1896                     <DEAD TEMP14>
1897                     <PUSH 'VALUE>
1898                     <CALL '\1aSMASH-AC 3>
1899                     <FRAME '\1aSMASH-AC>
1900                     <PUSH 'B2*>
1901                     <RESTL L5 1 = TEMP14 (TYPE LIST)>
1902                     <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
1903                     <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
1904                     <NTHL TEMP14 1 = STACK>
1905                     <DEAD TEMP14>
1906                     <PUSH 'VALUE>
1907                     <CALL '\1aSMASH-AC 3>
1908                     <LESS? LL6 5 + PHRASE22 (TYPE FIX)>
1909                     <FRAME '\1aSMASH-AC>
1910                     <PUSH 'C1*>
1911                     <NTHL L5 5 = STACK>
1912                     <PUSH 'VALUE>
1913                     <CALL '\1aSMASH-AC 3>
1914                     <JUMP + COND21>
1915 PHRASE22
1916                     <FRAME '\1aSMASH-AC>
1917                     <PUSH 'C1*>
1918                     <PUSH 0>
1919                     <PUSH 'VALUE>
1920                     <CALL '\1aSMASH-AC 3>
1921 COND21
1922                     <LESS? LL6 6 + PHRASE26 (TYPE FIX)>
1923                     <DEAD LL6>
1924                     <FRAME '\1aSMASH-AC>
1925                     <PUSH 'C2*>
1926                     <NTHL L5 6 = STACK>
1927                     <DEAD L5>
1928                     <PUSH 'VALUE>
1929                     <CALL '\1aSMASH-AC 3>
1930                     <JUMP + COND25>
1931 PHRASE26
1932                     <FRAME '\1aSMASH-AC>
1933                     <PUSH 'C2*>
1934                     <PUSH 0>
1935                     <PUSH 'VALUE>
1936                     <CALL '\1aSMASH-AC 3>
1937 COND25
1938                     <FRAME '\1aPUSHJ>
1939                     <PUSH 'READ>
1940                     <SET TEMP14 TL7>
1941                     <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE31>
1942                     <RESTL TL7 1 = LL6 (TYPE LIST)>
1943                     <DEAD TL7>
1944                     <NTHL LL6 1 = TEMP14>
1945                     <DEAD LL6>
1946 PHRASE31
1947                     <PUSH TEMP14>
1948                     <DEAD TEMP14>
1949                     <CALL '\1aPUSHJ 2 = TEMP14>
1950                     <RETURN TEMP14>
1951                     <DEAD TEMP14>
1952                     <END \1aREAD!-MIMOC>
1953 #WORD *24150531240*
1954 <GFCN \1aPRINT!-MIMOC ("VALUE" ANY LIST) L5>
1955                     <TEMP TEMP9>
1956                     <INTGO>
1957                     <FRAME '\1aUPDATE-ACS>
1958                     <CALL '\1aUPDATE-ACS 0>
1959                     <FRAME '\1aSMASH-AC>
1960                     <PUSH 'A1*>
1961                     <NTHL L5 1 = STACK>
1962                     <PUSH 'VALUE>
1963                     <CALL '\1aSMASH-AC 3>
1964                     <FRAME '\1aSMASH-AC>
1965                     <PUSH 'A2*>
1966                     <RESTL L5 1 = TEMP9 (TYPE LIST)>
1967                     <NTHL TEMP9 1 = STACK>
1968                     <DEAD TEMP9>
1969                     <PUSH 'VALUE>
1970                     <CALL '\1aSMASH-AC 3>
1971                     <FRAME '\1aSMASH-AC>
1972                     <PUSH 'B1*>
1973                     <RESTL L5 1 = TEMP9 (TYPE LIST)>
1974                     <DEAD L5>
1975                     <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
1976                     <NTHL TEMP9 1 = STACK>
1977                     <DEAD TEMP9>
1978                     <PUSH 'VALUE>
1979                     <CALL '\1aSMASH-AC 3>
1980                     <FRAME '\1aPUSHJ>
1981                     <PUSH 'PRINT>
1982                     <CALL '\1aPUSHJ 1 = TEMP9>
1983                     <RETURN TEMP9>
1984                     <DEAD TEMP9>
1985                     <END \1aPRINT!-MIMOC>
1986 #WORD *3054761557*
1987 <GFCN \1aSET!-MIMOC ("VALUE" ANY LIST) L5>
1988                     <TEMP ARG16:ATOM TEMP18 VT8 STK?9 MIML17 ITM12 TEMP46 TEMP56>
1989                     <INTGO>
1990                     <NTHL L5 1 = ARG16 (TYPE ATOM)>
1991                     <RESTL L5 1 = TEMP18 (TYPE LIST)>
1992                     <DEAD L5>
1993                     <NTHL TEMP18 1 = TEMP18>
1994                     <FRAME '\1aVAR-TYPED?>
1995                     <PUSH ARG16>
1996                     <CALL '\1aVAR-TYPED? 1 = VT8>
1997                     <FRAME '\1aVAR-STACKED?>
1998                     <PUSH ARG16>
1999                     <CALL '\1aVAR-STACKED? 1 = STK?9>
2000                     <GEN-LVAL 'MIML = MIML17>
2001                     <TYPE? TEMP18 <TYPE-CODE ATOM> - PHRASE24>
2002                     <FRAME '\1aWILL-DIE?>
2003                     <PUSH TEMP18>
2004                     <CALL '\1aWILL-DIE? 1 = ITM12>
2005                     <TYPE? ITM12 <TYPE-CODE FALSE> + PHRASE24>
2006                     <DEAD ITM12>
2007                     <FRAME '\1aCLEAN-ACS>
2008                     <PUSH ARG16>
2009                     <CALL '\1aCLEAN-ACS 1>
2010                     <FRAME '\1aDEAD!-MIMOC>
2011                     <CONS TEMP18 () = STACK>
2012                     <PUSH 'T>
2013                     <CALL '\1aDEAD!-MIMOC 2>
2014                     <RESTL MIML17 1 = STK?9 (TYPE LIST)>
2015                     <NTHL STK?9 1 = STK?9>
2016                     <TYPE? STK?9 <TYPE-CODE FORM> - PHRASE30>
2017                     <DEAD STK?9>
2018                     <RESTL MIML17 1 = STK?9 (TYPE LIST)>
2019                     <NTHL STK?9 1 = STK?9 (TYPE FORM)>
2020                     <EMPL? STK?9 + PHRASE30 (TYPE FORM)>
2021                     <DEAD STK?9>
2022                     <RESTL MIML17 1 = STK?9 (TYPE LIST)>
2023                     <DEAD MIML17>
2024                     <NTHL STK?9 1 = STK?9 (TYPE FORM)>
2025                     <NTHL STK?9 1 = STK?9>
2026                     <EQUAL? STK?9 'RETURN - PHRASE30>
2027                     <DEAD STK?9>
2028                     <FRAME '\1aGET-INTO-ACS>
2029                     <PUSH TEMP18>
2030                     <DEAD TEMP18>
2031                     <PUSH 'BOTH>
2032                     <SET ITM12 'A1* (TYPE ATOM)>
2033                     <PUSH ITM12>
2034                     <CALL '\1aGET-INTO-ACS 3>
2035                     <JUMP + PHRASE41>
2036 PHRASE30
2037                     <FRAME '\1aIN-AC?>
2038                     <PUSH TEMP18>
2039                     <PUSH 'BOTH>
2040                     <CALL '\1aIN-AC? 2 = MIML17>
2041                     <TYPE? MIML17 <TYPE-CODE FALSE> + PHRASE34>
2042                     <SET ITM12 MIML17>
2043                     <DEAD MIML17>
2044                     <JUMP + PHRASE41>
2045 PHRASE34
2046                     <TYPE? VT8 <TYPE-CODE FALSE> + PHRASE36>
2047                     <FRAME '\1aIN-AC?>
2048                     <PUSH TEMP18>
2049                     <PUSH 'VALUE>
2050                     <CALL '\1aIN-AC? 2 = MIML17>
2051                     <TYPE? MIML17 <TYPE-CODE FALSE> + PHRASE36>
2052                     <SET ITM12 MIML17>
2053                     <DEAD MIML17>
2054                     <FRAME '\1aGET-AC>
2055                     <FRAME '\1aGETPROP>
2056                     <PUSH ITM12>
2057                     <DEAD ITM12>
2058                     <PUSH 'AC-PAIR>
2059                     <CALL '\1aGETPROP 2 = ITM12>
2060                     <PUSH ITM12>
2061                     <CALL '\1aGET-AC 1 = STK?9>
2062                     <PUTUV STK?9 6 VT8>
2063                     <DEAD STK?9>
2064                     <JUMP + PHRASE41>
2065 PHRASE36
2066                     <FRAME '\1aLOAD-AC>
2067                     <PUSH TEMP18>
2068                     <DEAD TEMP18>
2069                     <PUSH 'BOTH>
2070                     <CALL '\1aLOAD-AC 2 = ITM12>
2071 PHRASE41
2072                     <FRAME '\1aGET-AC>
2073                     <PUSH ITM12>
2074                     <CALL '\1aGET-AC 1 = STK?9>
2075                     <TYPE? VT8 <TYPE-CODE FALSE> - TAG44>
2076                     <DEAD VT8>
2077                     <SET TEMP46 'T (TYPE ATOM)>
2078                     <JUMP + TAG45>
2079 TAG44
2080                     <SET TEMP46 %<> (TYPE FALSE)>
2081 TAG45
2082                     <PUTUV STK?9 5 TEMP46>
2083                     <DEAD TEMP46>
2084                     <PUTUV STK?9 2 ARG16>
2085                     <PUTUV STK?9 3 'TYPE (TYPE ATOM)>
2086                     <DEAD STK?9>
2087                     <FRAME '\1aGET-AC>
2088                     <FRAME '\1aNEXT-AC>
2089                     <PUSH ITM12>
2090                     <DEAD ITM12>
2091                     <CALL '\1aNEXT-AC 1 = STACK>
2092                     <CALL '\1aGET-AC 1 = STK?9>
2093                     <PUTUV STK?9 5 'T>
2094                     <PUTUV STK?9 2 ARG16>
2095                     <DEAD ARG16>
2096                     <PUTUV STK?9 3 'VALUE (TYPE ATOM)>
2097                     <RETURN STK?9>
2098                     <DEAD STK?9>
2099 PHRASE24
2100                     <TYPE? TEMP18 <TYPE-CODE ATOM> + PHRASE49>
2101                     <RESTL MIML17 1 = ITM12 (TYPE LIST)>
2102                     <DEAD MIML17>
2103                     <EMPL? ITM12 + PHRASE49 (TYPE LIST)>
2104                     <NTHL ITM12 1 = ITM12>
2105                     <TYPE? ITM12 <TYPE-CODE FORM> - PHRASE49>
2106                     <NTHL ITM12 1 = TEMP46>
2107                     <DEAD ITM12>
2108                     <EQUAL? TEMP46 'RETURN - PHRASE49>
2109                     <DEAD TEMP46>
2110                     <FRAME '\1aCLEAN-ACS>
2111                     <PUSH ARG16>
2112                     <CALL '\1aCLEAN-ACS 1>
2113                     <FRAME '\1aGET-INTO-ACS>
2114                     <PUSH TEMP18>
2115                     <DEAD TEMP18>
2116                     <PUSH 'BOTH>
2117                     <SET ITM12 'A1* (TYPE ATOM)>
2118                     <PUSH ITM12>
2119                     <CALL '\1aGET-INTO-ACS 3>
2120                     <FRAME '\1aGET-AC>
2121                     <PUSH ITM12>
2122                     <CALL '\1aGET-AC 1 = TEMP46>
2123                     <TYPE? VT8 <TYPE-CODE FALSE> - TAG54>
2124                     <DEAD VT8>
2125                     <SET TEMP56 'T (TYPE ATOM)>
2126                     <JUMP + TAG55>
2127 TAG54
2128                     <SET TEMP56 %<> (TYPE FALSE)>
2129 TAG55
2130                     <PUTUV TEMP46 5 TEMP56>
2131                     <DEAD TEMP56>
2132                     <PUTUV TEMP46 2 ARG16>
2133                     <PUTUV TEMP46 3 'TYPE (TYPE ATOM)>
2134                     <DEAD TEMP46>
2135                     <FRAME '\1aGET-AC>
2136                     <FRAME '\1aNEXT-AC>
2137                     <PUSH ITM12>
2138                     <DEAD ITM12>
2139                     <CALL '\1aNEXT-AC 1 = STACK>
2140                     <CALL '\1aGET-AC 1 = TEMP46>
2141                     <PUTUV TEMP46 5 'T>
2142                     <PUTUV TEMP46 2 ARG16>
2143                     <DEAD ARG16>
2144                     <PUTUV TEMP46 3 'VALUE (TYPE ATOM)>
2145                     <RETURN TEMP46>
2146                     <DEAD TEMP46>
2147 PHRASE49
2148                     <TYPE? TEMP18 <TYPE-CODE ATOM> - PHRASE61>
2149                     <FRAME '\1aIN-AC?>
2150                     <PUSH TEMP18>
2151                     <PUSH 'BOTH>
2152                     <CALL '\1aIN-AC? 2 = TEMP46>
2153                     <TYPE? TEMP46 <TYPE-CODE FALSE> - BOOL63>
2154                     <FRAME '\1aIN-AC?>
2155                     <PUSH TEMP18>
2156                     <PUSH 'VALUE>
2157                     <CALL '\1aIN-AC? 2 = TEMP46>
2158 BOOL63
2159                     <SET MIML17 TEMP46>
2160                     <DEAD TEMP46>
2161                     <TYPE? MIML17 <TYPE-CODE FALSE> + PHRASE61>
2162                     <FRAME '\1aGET-AC>
2163                     <PUSH MIML17>
2164                     <CALL '\1aGET-AC 1 = TEMP46>
2165                     <NTHUV TEMP46 5 = TEMP46>
2166                     <TYPE? TEMP46 <TYPE-CODE FALSE> + PHRASE61>
2167                     <DEAD TEMP46>
2168                     <FRAME '\1aGET-AC>
2169                     <PUSH MIML17>
2170                     <DEAD MIML17>
2171                     <CALL '\1aGET-AC 1 = TEMP46>
2172                     <GVAL 'AC-STAMP = TEMP56>
2173                     <PUTUV TEMP46 4 TEMP56 (TYPE FIX)>
2174                     <DEAD TEMP46 TEMP56>
2175 PHRASE61
2176                     <FRAME '\1aASSIGN-AC>
2177                     <PUSH ARG16>
2178                     <PUSH 'BOTH>
2179                     <CALL '\1aASSIGN-AC 2 = ITM12>
2180                     <FRAME '\1aGET-AC>
2181                     <PUSH ITM12>
2182                     <CALL '\1aGET-AC 1 = TEMP46>
2183                     <PUTUV TEMP46 6 %<>>
2184                     <DEAD TEMP46>
2185                     <FRAME '\1aIN-AC?>
2186                     <PUSH TEMP18>
2187                     <PUSH 'BOTH>
2188                     <CALL '\1aIN-AC? 2 = MIML17>
2189                     <TYPE? MIML17 <TYPE-CODE FALSE> + PHRASE71>
2190                     <FRAME '\1aGET-AC>
2191                     <PUSH MIML17>
2192                     <CALL '\1aGET-AC 1 = TEMP46>
2193                     <NTHUV TEMP46 6 = TEMP46>
2194                     <TYPE? TEMP46 <TYPE-CODE FALSE> - PHRASE71>
2195                     <DEAD TEMP46>
2196                     <FRAME '\1aOCEMIT>
2197                     <PUSH 'DMOVE>
2198                     <PUSH ITM12>
2199                     <DEAD ITM12>
2200                     <PUSH MIML17>
2201                     <DEAD MIML17>
2202                     <CALL '\1aOCEMIT 3 = STK?9>
2203                     <RETURN STK?9>
2204                     <DEAD STK?9>
2205 PHRASE71
2206                     <FRAME '\1aPRIMTYPE>
2207                     <PUSH TEMP18>
2208                     <CALL '\1aPRIMTYPE 1 = TEMP46>
2209                     <SET TEMP56 [WORD FIX] (TYPE VECTOR)>
2210                     <LOOP (TEMP46 VALUE) (TEMP56 LENGTH VALUE)>
2211 TAG79
2212                     <NTHUV TEMP56 1 = MIML17>
2213                     <VEQUAL? MIML17 TEMP46 + TAG78>
2214                     <DEAD MIML17>
2215                     <RESTUV TEMP56 1 = TEMP56 (TYPE VECTOR)>
2216                     <EMPUV? TEMP56 - TAG79>
2217                     <JUMP + PHRASE76>
2218 TAG78
2219                     <FRAME '\1aTYPE>
2220                     <PUSH TEMP18>
2221                     <CALL '\1aTYPE 1 = TEMP56>
2222                     <GVAL 'TYPE-WORDS = TEMP46>
2223                     <EMPUV? TEMP46 + PHRASE76>
2224                     <LOOP (TEMP56 VALUE) (TEMP46 LENGTH VALUE)>
2225 TAG84
2226                     <NTHUV TEMP46 1 = MIML17>
2227                     <TYPE? MIML17 <TYPE-CODE ATOM> - TAG85>
2228                     <VEQUAL? MIML17 TEMP56 + TAG83>
2229                     <DEAD MIML17>
2230 TAG85
2231                     <RESTUV TEMP46 1 = TEMP46 (TYPE VECTOR)>
2232                     <EMPUV? TEMP46 - TAG84>
2233                     <JUMP + PHRASE76>
2234 TAG83
2235                     <VEQUAL? TEMP18 0 - PHRASE88 (TYPE FIX)>
2236                     <TYPE? STK?9 <TYPE-CODE FALSE> + PHRASE92>
2237                     <DEAD STK?9>
2238                     <TYPE? VT8 <TYPE-CODE FALSE> + PHRASE92>
2239                     <DEAD VT8>
2240                     <FRAME '\1aOCEMIT>
2241                     <PUSH 'SETZB>
2242                     <FRAME '\1aNEXT-AC>
2243                     <PUSH ITM12>
2244                     <CALL '\1aNEXT-AC 1 = STACK>
2245                     <SET TEMP56 2 (TYPE FIX)>
2246                     <SFRAME 'OBJ-VAL>
2247                     <PUSH ARG16>
2248                     <PUSH %<>>
2249                     <SCALL '\1aOBJ-VAL 2 = TEMP46 + TAG94 TEMP56>
2250                     <LOOP (TEMP46 TYPE VALUE LENGTH) (TEMP56 VALUE)>
2251 TAG97
2252                     <INTGO>
2253                     <EMPTY? TEMP46 + TAG94>
2254                     <NTH1 TEMP46 = STACK>
2255                     <REST1 TEMP46 = TEMP46>
2256                     <ADD TEMP56 1 = TEMP56 (TYPE FIX)>
2257                     <JUMP + TAG97>
2258 TAG94
2259                     <CALL '\1aOCEMIT TEMP56>
2260                     <DEAD TEMP56>
2261                     <FRAME '\1aGET-AC>
2262                     <FRAME '\1aNEXT-AC>
2263                     <PUSH ITM12>
2264                     <CALL '\1aNEXT-AC 1 = STACK>
2265                     <CALL '\1aGET-AC 1 = TEMP56>
2266                     <PUTUV TEMP56 5 %<>>
2267                     <DEAD TEMP56>
2268                     <JUMP + PHRASE137>
2269 PHRASE92
2270                     <FRAME '\1aOCEMIT>
2271                     <PUSH 'MOVEI>
2272                     <FRAME '\1aNEXT-AC>
2273                     <PUSH ITM12>
2274                     <CALL '\1aNEXT-AC 1 = STACK>
2275                     <PUSH 0>
2276                     <CALL '\1aOCEMIT 3>
2277                     <JUMP + PHRASE137>
2278 PHRASE88
2279                     <VEQUAL? TEMP18 -1 - PHRASE104 (TYPE FIX)>
2280                     <TYPE? STK?9 <TYPE-CODE FALSE> + PHRASE108>
2281                     <DEAD STK?9>
2282                     <TYPE? VT8 <TYPE-CODE FALSE> + PHRASE108>
2283                     <DEAD VT8>
2284                     <FRAME '\1aOCEMIT>
2285                     <PUSH 'SETOB>
2286                     <FRAME '\1aNEXT-AC>
2287                     <PUSH ITM12>
2288                     <CALL '\1aNEXT-AC 1 = STACK>
2289                     <SET TEMP46 2 (TYPE FIX)>
2290                     <SFRAME 'OBJ-VAL>
2291                     <PUSH ARG16>
2292                     <PUSH %<>>
2293                     <SCALL '\1aOBJ-VAL 2 = TEMP56 + TAG110 TEMP46>
2294                     <LOOP (TEMP56 TYPE VALUE LENGTH) (TEMP46 VALUE)>
2295 TAG113
2296                     <INTGO>
2297                     <EMPTY? TEMP56 + TAG110>
2298                     <NTH1 TEMP56 = STACK>
2299                     <REST1 TEMP56 = TEMP56>
2300                     <ADD TEMP46 1 = TEMP46 (TYPE FIX)>
2301                     <JUMP + TAG113>
2302 TAG110
2303                     <CALL '\1aOCEMIT TEMP46>
2304                     <DEAD TEMP46>
2305                     <FRAME '\1aGET-AC>
2306                     <FRAME '\1aNEXT-AC>
2307                     <PUSH ITM12>
2308                     <CALL '\1aNEXT-AC 1 = STACK>
2309                     <CALL '\1aGET-AC 1 = TEMP46>
2310                     <PUTUV TEMP46 5 %<>>
2311                     <DEAD TEMP46>
2312                     <JUMP + PHRASE137>
2313 PHRASE108
2314                     <FRAME '\1aOCEMIT>
2315                     <PUSH 'MOVNI>
2316                     <FRAME '\1aNEXT-AC>
2317                     <PUSH ITM12>
2318                     <CALL '\1aNEXT-AC 1 = STACK>
2319                     <PUSH 1>
2320                     <CALL '\1aOCEMIT 3>
2321                     <JUMP + PHRASE137>
2322 PHRASE104
2323                     <AND TEMP18 #WORD *777777* = TEMP46>
2324                     <VEQUAL? TEMP46 0 - PHRASE120 (TYPE FIX)>
2325                     <DEAD TEMP46>
2326                     <FRAME '\1aOCEMIT>
2327                     <PUSH 'MOVSI>
2328                     <FRAME '\1aNEXT-AC>
2329                     <PUSH ITM12>
2330                     <CALL '\1aNEXT-AC 1 = STACK>
2331                     <LSH TEMP18 -18 = STACK (TYPE FIX)>
2332                     <CALL '\1aOCEMIT 3>
2333                     <JUMP + PHRASE137>
2334 PHRASE120
2335                     <CHTYPE TEMP18 <TYPE-CODE FIX> = VT8>
2336                     <SET TEMP46 VT8>
2337                     <LESS? TEMP46 0 - TAG126 (TYPE FIX)>
2338                     <SUB 0 TEMP46 = TEMP46 (TYPE FIX)>
2339 TAG126
2340                     <GVAL 'MAX-IMMEDIATE = TEMP56>
2341                     <GRTR? TEMP46 TEMP56 + PHRASE125 (TYPE FIX)>
2342                     <DEAD TEMP46 TEMP56>
2343                     <LESS? VT8 0 + PHRASE128 (TYPE FIX)>
2344                     <FRAME '\1aOCEMIT>
2345                     <PUSH 'MOVEI>
2346                     <FRAME '\1aNEXT-AC>
2347                     <PUSH ITM12>
2348                     <CALL '\1aNEXT-AC 1 = STACK>
2349                     <PUSH VT8>
2350                     <DEAD VT8>
2351                     <CALL '\1aOCEMIT 3>
2352                     <JUMP + PHRASE137>
2353 PHRASE128
2354                     <FRAME '\1aOCEMIT>
2355                     <PUSH 'MOVNI>
2356                     <FRAME '\1aNEXT-AC>
2357                     <PUSH ITM12>
2358                     <CALL '\1aNEXT-AC 1 = STACK>
2359                     <SET TEMP46 VT8>
2360                     <DEAD VT8>
2361                     <LESS? TEMP46 0 - TAG136 (TYPE FIX)>
2362                     <SUB 0 TEMP46 = TEMP46 (TYPE FIX)>
2363 TAG136
2364                     <PUSH TEMP46>
2365                     <DEAD TEMP46>
2366                     <CALL '\1aOCEMIT 3>
2367                     <JUMP + PHRASE137>
2368 PHRASE125
2369                     <FRAME '\1aOCEMIT>
2370                     <PUSH 'MOVE>
2371                     <FRAME '\1aNEXT-AC>
2372                     <PUSH ITM12>
2373                     <CALL '\1aNEXT-AC 1 = STACK>
2374                     <SET TEMP56 2 (TYPE FIX)>
2375                     <SFRAME 'OBJ-VAL>
2376                     <PUSH VT8>
2377                     <DEAD VT8>
2378                     <SCALL '\1aOBJ-VAL 1 = TEMP46 + TAG138 TEMP56>
2379                     <LOOP (TEMP46 TYPE VALUE LENGTH) (TEMP56 VALUE)>
2380 TAG141
2381                     <INTGO>
2382                     <EMPTY? TEMP46 + TAG138>
2383                     <NTH1 TEMP46 = STACK>
2384                     <REST1 TEMP46 = TEMP46>
2385                     <ADD TEMP56 1 = TEMP56 (TYPE FIX)>
2386                     <JUMP + TAG141>
2387 TAG138
2388                     <CALL '\1aOCEMIT TEMP56>
2389                     <DEAD TEMP56>
2390 PHRASE137
2391                     <FRAME '\1aGET-AC>
2392                     <PUSH ITM12>
2393                     <CALL '\1aGET-AC 1 = TEMP56>
2394                     <FRAME '\1aTYPE>
2395                     <PUSH TEMP18>
2396                     <DEAD TEMP18>
2397                     <CALL '\1aTYPE 1 = TEMP46>
2398                     <PUTUV TEMP56 6 TEMP46>
2399                     <DEAD TEMP56 TEMP46>
2400                     <FRAME '\1aVAR-TYPED?>
2401                     <PUSH ARG16>
2402                     <DEAD ARG16>
2403                     <CALL '\1aVAR-TYPED? 1 = TEMP56>
2404                     <TYPE? TEMP56 <TYPE-CODE FALSE> + PHRASE146>
2405                     <DEAD TEMP56>
2406                     <FRAME '\1aGET-AC>
2407                     <PUSH ITM12>
2408                     <DEAD ITM12>
2409                     <CALL '\1aGET-AC 1 = TEMP56>
2410                     <PUTUV TEMP56 5 %<>>
2411                     <RETURN TEMP56>
2412                     <DEAD TEMP56>
2413 PHRASE146
2414                     <FRAME '\1aGET-AC>
2415                     <PUSH ITM12>
2416                     <DEAD ITM12>
2417                     <CALL '\1aGET-AC 1 = TEMP56>
2418                     <PUTUV TEMP56 5 'T>
2419                     <RETURN TEMP56>
2420                     <DEAD TEMP56>
2421 PHRASE76
2422                     <FRAME '\1aPRIMTYPE>
2423                     <PUSH TEMP18>
2424                     <CALL '\1aPRIMTYPE 1 = TEMP56>
2425                     <VEQUAL? TEMP56 'LIST - PHRASE151>
2426                     <DEAD TEMP56>
2427                     <EMPL? TEMP18 - PHRASE151 (TYPE LIST)>
2428                     <FRAME '\1aTYPE>
2429                     <PUSH TEMP18>
2430                     <CALL '\1aTYPE 1 = TEMP56>
2431                     <GVAL 'TYPE-WORDS = TEMP46>
2432                     <EMPUV? TEMP46 + PHRASE151>
2433                     <LOOP (TEMP56 VALUE) (TEMP46 LENGTH VALUE)>
2434 TAG155
2435                     <NTHUV TEMP46 1 = MIML17>
2436                     <TYPE? MIML17 <TYPE-CODE ATOM> - TAG156>
2437                     <VEQUAL? MIML17 TEMP56 + TAG154>
2438                     <DEAD MIML17>
2439 TAG156
2440                     <RESTUV TEMP46 1 = TEMP46 (TYPE VECTOR)>
2441                     <EMPUV? TEMP46 - TAG155>
2442                     <JUMP + PHRASE151>
2443 TAG154
2444                     <TYPE? STK?9 <TYPE-CODE FALSE> + PHRASE159>
2445                     <DEAD STK?9>
2446                     <TYPE? VT8 <TYPE-CODE FALSE> + PHRASE159>
2447                     <DEAD VT8>
2448                     <FRAME '\1aOCEMIT>
2449                     <PUSH 'SETZB>
2450                     <FRAME '\1aNEXT-AC>
2451                     <PUSH ITM12>
2452                     <CALL '\1aNEXT-AC 1 = STACK>
2453                     <SET TEMP56 2 (TYPE FIX)>
2454                     <SFRAME 'OBJ-VAL>
2455                     <PUSH ARG16>
2456                     <PUSH %<>>
2457                     <SCALL '\1aOBJ-VAL 2 = TEMP46 + TAG161 TEMP56>
2458                     <LOOP (TEMP46 TYPE VALUE LENGTH) (TEMP56 VALUE)>
2459 TAG164
2460                     <INTGO>
2461                     <EMPTY? TEMP46 + TAG161>
2462                     <NTH1 TEMP46 = STACK>
2463                     <REST1 TEMP46 = TEMP46>
2464                     <ADD TEMP56 1 = TEMP56 (TYPE FIX)>
2465                     <JUMP + TAG164>
2466 TAG161
2467                     <CALL '\1aOCEMIT TEMP56>
2468                     <DEAD TEMP56>
2469                     <FRAME '\1aGET-AC>
2470                     <FRAME '\1aNEXT-AC>
2471                     <PUSH ITM12>
2472                     <CALL '\1aNEXT-AC 1 = STACK>
2473                     <CALL '\1aGET-AC 1 = TEMP56>
2474                     <PUTUV TEMP56 5 %<>>
2475                     <DEAD TEMP56>
2476                     <JUMP + PHRASE168>
2477 PHRASE159
2478                     <FRAME '\1aOCEMIT>
2479                     <PUSH 'MOVEI>
2480                     <FRAME '\1aNEXT-AC>
2481                     <PUSH ITM12>
2482                     <CALL '\1aNEXT-AC 1 = STACK>
2483                     <PUSH 0>
2484                     <CALL '\1aOCEMIT 3>
2485 PHRASE168
2486                     <FRAME '\1aGET-AC>
2487                     <PUSH ITM12>
2488                     <CALL '\1aGET-AC 1 = TEMP56>
2489                     <FRAME '\1aTYPE>
2490                     <PUSH TEMP18>
2491                     <DEAD TEMP18>
2492                     <CALL '\1aTYPE 1 = TEMP46>
2493                     <PUTUV TEMP56 6 TEMP46>
2494                     <DEAD TEMP56 TEMP46>
2495                     <FRAME '\1aVAR-TYPED?>
2496                     <PUSH ARG16>
2497                     <DEAD ARG16>
2498                     <CALL '\1aVAR-TYPED? 1 = STK?9>
2499                     <TYPE? STK?9 <TYPE-CODE FALSE> + PHRASE215>
2500                     <FRAME '\1aGET-AC>
2501                     <PUSH ITM12>
2502                     <DEAD ITM12>
2503                     <CALL '\1aGET-AC 1 = TEMP56>
2504                     <PUTUV TEMP56 5 %<>>
2505                     <RETURN TEMP56>
2506                     <DEAD TEMP56>
2507 PHRASE151
2508                     <FRAME '\1aVAR-TYPED?>
2509                     <PUSH ARG16>
2510                     <DEAD ARG16>
2511                     <CALL '\1aVAR-TYPED? 1 = VT8>
2512                     <TYPE? VT8 <TYPE-CODE FALSE> + PHRASE177>
2513                     <FRAME '\1aIN-AC?>
2514                     <PUSH TEMP18>
2515                     <PUSH 'VALUE>
2516                     <CALL '\1aIN-AC? 2 = MIML17>
2517                     <TYPE? MIML17 <TYPE-CODE FALSE> + PHRASE177>
2518                     <FRAME '\1aOCEMIT>
2519                     <PUSH 'MOVE>
2520                     <FRAME '\1aNEXT-AC>
2521                     <PUSH ITM12>
2522                     <CALL '\1aNEXT-AC 1 = STACK>
2523                     <PUSH MIML17>
2524                     <DEAD MIML17>
2525                     <CALL '\1aOCEMIT 3>
2526                     <FRAME '\1aGET-AC>
2527                     <PUSH ITM12>
2528                     <DEAD ITM12>
2529                     <CALL '\1aGET-AC 1 = TEMP56>
2530                     <PUTUV TEMP56 5 %<>>
2531                     <PUTUV TEMP56 6 VT8>
2532                     <DEAD VT8>
2533                     <RETURN TEMP56>
2534                     <DEAD TEMP56>
2535 PHRASE177
2536                     <FRAME '\1aIN-AC?>
2537                     <PUSH TEMP18>
2538                     <PUSH 'VALUE>
2539                     <CALL '\1aIN-AC? 2 = MIML17>
2540                     <TYPE? MIML17 <TYPE-CODE FALSE> + PHRASE184>
2541                     <FRAME '\1aVAR-TYPED?>
2542                     <PUSH TEMP18>
2543                     <CALL '\1aVAR-TYPED? 1 = TEMP56>
2544                     <TYPE? TEMP56 <TYPE-CODE FALSE> - BOOL189>
2545                     <FRAME '\1aIN-AC?>
2546                     <PUSH TEMP18>
2547                     <PUSH 'TYPE>
2548                     <CALL '\1aIN-AC? 2 = VT8>
2549                     <SET TEMP56 VT8>
2550                     <TYPE? TEMP56 <TYPE-CODE FALSE> + BOOL189>
2551                     <FRAME '\1aGET-AC>
2552                     <PUSH VT8>
2553                     <DEAD VT8>
2554                     <CALL '\1aGET-AC 1 = TEMP46>
2555                     <NTHUV TEMP46 6 = TEMP56>
2556                     <DEAD TEMP46>
2557 BOOL189
2558                     <SET VT8 TEMP56>
2559                     <DEAD TEMP56>
2560                     <TYPE? VT8 <TYPE-CODE FALSE> + PHRASE184>
2561                     <FRAME '\1aOCEMIT>
2562                     <PUSH 'MOVE>
2563                     <FRAME '\1aNEXT-AC>
2564                     <PUSH ITM12>
2565                     <CALL '\1aNEXT-AC 1 = STACK>
2566                     <PUSH MIML17>
2567                     <DEAD MIML17>
2568                     <CALL '\1aOCEMIT 3>
2569                     <FRAME '\1aGET-AC>
2570                     <PUSH ITM12>
2571                     <DEAD ITM12>
2572                     <CALL '\1aGET-AC 1 = TEMP56>
2573                     <PUTUV TEMP56 6 VT8>
2574                     <DEAD VT8>
2575                     <RETURN TEMP56>
2576                     <DEAD TEMP56>
2577 PHRASE184
2578                     <FRAME '\1aIN-AC?>
2579                     <PUSH TEMP18>
2580                     <PUSH 'VALUE>
2581                     <CALL '\1aIN-AC? 2 = MIML17>
2582                     <TYPE? MIML17 <TYPE-CODE FALSE> + PHRASE195>
2583                     <FRAME '\1aGET-AC>
2584                     <PUSH MIML17>
2585                     <CALL '\1aGET-AC 1 = TEMP56>
2586                     <NTHUV TEMP56 5 = TEMP56>
2587                     <TYPE? TEMP56 <TYPE-CODE FALSE> + PHRASE195>
2588                     <DEAD TEMP56>
2589                     <FRAME '\1aOCEMIT>
2590                     <PUSH 'MOVE>
2591                     <PUSH ITM12>
2592                     <SET TEMP46 2 (TYPE FIX)>
2593                     <SFRAME 'OBJ-TYP>
2594                     <PUSH TEMP18>
2595                     <DEAD TEMP18>
2596                     <SCALL '\1aOBJ-TYP 1 = TEMP56 + TAG199 TEMP46>
2597                     <LOOP (TEMP56 TYPE VALUE LENGTH) (TEMP46 VALUE)>
2598 TAG201
2599                     <INTGO>
2600                     <EMPTY? TEMP56 + TAG199>
2601                     <NTH1 TEMP56 = STACK>
2602                     <REST1 TEMP56 = TEMP56>
2603                     <ADD TEMP46 1 = TEMP46 (TYPE FIX)>
2604                     <JUMP + TAG201>
2605 TAG199
2606                     <CALL '\1aOCEMIT TEMP46>
2607                     <DEAD TEMP46>
2608                     <FRAME '\1aOCEMIT>
2609                     <PUSH 'MOVE>
2610                     <FRAME '\1aNEXT-AC>
2611                     <PUSH ITM12>
2612                     <DEAD ITM12>
2613                     <CALL '\1aNEXT-AC 1 = STACK>
2614                     <PUSH MIML17>
2615                     <DEAD MIML17>
2616                     <CALL '\1aOCEMIT 3 = STK?9>
2617                     <RETURN STK?9>
2618                     <DEAD STK?9>
2619 PHRASE195
2620                     <FRAME '\1aIN-AC?>
2621                     <PUSH TEMP18>
2622                     <PUSH 'TYPE>
2623                     <CALL '\1aIN-AC? 2 = MIML17>
2624                     <TYPE? MIML17 <TYPE-CODE FALSE> + PHRASE205>
2625                     <FRAME '\1aGET-AC>
2626                     <PUSH MIML17>
2627                     <CALL '\1aGET-AC 1 = TEMP46>
2628                     <NTHUV TEMP46 5 = TEMP46>
2629                     <TYPE? TEMP46 <TYPE-CODE FALSE> + PHRASE205>
2630                     <DEAD TEMP46>
2631                     <FRAME '\1aOCEMIT>
2632                     <PUSH 'MOVE>
2633                     <PUSH ITM12>
2634                     <PUSH MIML17>
2635                     <DEAD MIML17>
2636                     <CALL '\1aOCEMIT 3>
2637                     <FRAME '\1aOCEMIT>
2638                     <PUSH 'MOVE>
2639                     <FRAME '\1aNEXT-AC>
2640                     <PUSH ITM12>
2641                     <DEAD ITM12>
2642                     <CALL '\1aNEXT-AC 1 = STACK>
2643                     <SET TEMP56 2 (TYPE FIX)>
2644                     <SFRAME 'OBJ-VAL>
2645                     <PUSH TEMP18>
2646                     <DEAD TEMP18>
2647                     <SCALL '\1aOBJ-VAL 1 = TEMP46 + TAG210 TEMP56>
2648                     <LOOP (TEMP46 TYPE VALUE LENGTH) (TEMP56 VALUE)>
2649 TAG213
2650                     <INTGO>
2651                     <EMPTY? TEMP46 + TAG210>
2652                     <NTH1 TEMP46 = STACK>
2653                     <REST1 TEMP46 = TEMP46>
2654                     <ADD TEMP56 1 = TEMP56 (TYPE FIX)>
2655                     <JUMP + TAG213>
2656 TAG210
2657                     <CALL '\1aOCEMIT TEMP56 = STK?9>
2658                     <DEAD TEMP56>
2659                     <RETURN STK?9>
2660                     <DEAD STK?9>
2661 PHRASE205
2662                     <FRAME '\1aOCEMIT>
2663                     <PUSH 'DMOVE>
2664                     <PUSH ITM12>
2665                     <DEAD ITM12>
2666                     <SET TEMP46 2 (TYPE FIX)>
2667                     <SFRAME 'OBJ-LOC>
2668                     <PUSH TEMP18>
2669                     <DEAD TEMP18>
2670                     <PUSH 0>
2671                     <SCALL '\1aOBJ-LOC 2 = TEMP56 + TAG216 TEMP46>
2672                     <LOOP (TEMP56 TYPE VALUE LENGTH) (TEMP46 VALUE)>
2673 TAG218
2674                     <INTGO>
2675                     <EMPTY? TEMP56 + TAG216>
2676                     <NTH1 TEMP56 = STACK>
2677                     <REST1 TEMP56 = TEMP56>
2678                     <ADD TEMP46 1 = TEMP46 (TYPE FIX)>
2679                     <JUMP + TAG218>
2680 TAG216
2681                     <CALL '\1aOCEMIT TEMP46 = STK?9>
2682                     <DEAD TEMP46>
2683 PHRASE215
2684                     <RETURN STK?9>
2685                     <DEAD STK?9>
2686                     <END \1aSET!-MIMOC>
2687 #WORD *511173346*
2688 <GFCN \1aVAR-TYPED? ("VALUE" <OR ATOM FALSE> ATOM) ARG15>
2689                     <TEMP LV6 TEMP8 TEMP20 TEMP21>
2690                     <INTGO>
2691                     <FRAME '\1aLMEMQ>
2692                     <PUSH ARG15>
2693                     <GVAL 'LOCALS = STACK>
2694                     <CALL '\1aLMEMQ 2 = LV6>
2695                     <TYPE? LV6 <TYPE-CODE FALSE> - BOOL11>
2696                     <GVAL 'ICALL-FLAG = LV6>
2697                     <TYPE? LV6 <TYPE-CODE FALSE> + BOOL11>
2698                     <FRAME '\1aLMEMQ>
2699                     <PUSH ARG15>
2700                     <DEAD ARG15>
2701                     <GVAL 'ICALL-TEMPS = STACK>
2702                     <CALL '\1aLMEMQ 2 = LV6>
2703 BOOL11
2704                     <SET TEMP8 LV6>
2705                     <TYPE? TEMP8 <TYPE-CODE FALSE> + BOOL7>
2706                     <NTHUV LV6 2 = TEMP8>
2707                     <EQUAL? TEMP8 'OARG - TAG13>
2708                     <DEAD TEMP8>
2709                     <RETURN %<>>
2710 TAG13
2711                     <NTHUV LV6 4 = LV6>
2712                     <SET TEMP8 LV6>
2713                     <TYPE? TEMP8 <TYPE-CODE FALSE> + BOOL7>
2714                     <FRAME '\1aTYPEPRIM>
2715                     <PUSH LV6>
2716                     <CALL '\1aTYPEPRIM 1 = TEMP8>
2717                     <SET TEMP20 [WORD FIX LIST] (TYPE VECTOR)>
2718                     <TYPE? TEMP8 <TYPE-CODE ATOM> - TAG16>
2719                     <LOOP (TEMP8 VALUE) (TEMP20 LENGTH VALUE)>
2720 TAG17
2721                     <NTHUV TEMP20 1 = TEMP21>
2722                     <VEQUAL? TEMP21 TEMP8 + TAG23>
2723                     <DEAD TEMP21>
2724                     <RESTUV TEMP20 1 = TEMP20 (TYPE VECTOR)>
2725                     <EMPUV? TEMP20 - TAG17>
2726 TAG16
2727                     <GVAL 'TYPE-LENGTHS = TEMP8>
2728                     <EMPUV? TEMP8 + TAG22>
2729                     <LOOP (LV6 VALUE) (TEMP8 LENGTH VALUE)>
2730 TAG24
2731                     <NTHUV TEMP8 1 = TEMP20>
2732                     <TYPE? TEMP20 <TYPE-CODE ATOM> - TAG25>
2733                     <VEQUAL? TEMP20 LV6 + TAG23>
2734                     <DEAD TEMP20>
2735 TAG25
2736                     <RESTUV TEMP8 1 = TEMP8 (TYPE VECTOR)>
2737                     <EMPUV? TEMP8 - TAG24>
2738 TAG22
2739                     <RETURN %<>>
2740 TAG23
2741                     <SET TEMP8 LV6>
2742                     <DEAD LV6>
2743 BOOL7
2744                     <RETURN TEMP8>
2745                     <DEAD TEMP8>
2746                     <END \1aVAR-TYPED?>
2747 #WORD *12067143611*
2748 <GFCN \1aVAR-STACKED? ("VALUE" <OR ATOM FALSE> ATOM) ARG15>
2749                     <TEMP LV6 TEMP8>
2750                     <INTGO>
2751                     <FRAME '\1aLMEMQ>
2752                     <PUSH ARG15>
2753                     <GVAL 'LOCALS = STACK>
2754                     <CALL '\1aLMEMQ 2 = LV6>
2755                     <TYPE? LV6 <TYPE-CODE FALSE> - BOOL11>
2756                     <GVAL 'ICALL-FLAG = LV6>
2757                     <TYPE? LV6 <TYPE-CODE FALSE> + BOOL11>
2758                     <FRAME '\1aLMEMQ>
2759                     <PUSH ARG15>
2760                     <DEAD ARG15>
2761                     <GVAL 'ICALL-TEMPS = STACK>
2762                     <CALL '\1aLMEMQ 2 = LV6>
2763 BOOL11
2764                     <SET TEMP8 LV6>
2765                     <TYPE? TEMP8 <TYPE-CODE FALSE> + BOOL7>
2766                     <NTHUV LV6 2 = TEMP8>
2767                     <DEAD LV6>
2768 BOOL7
2769                     <RETURN TEMP8>
2770                     <DEAD TEMP8>
2771                     <END \1aVAR-STACKED?>
2772 <SETG SIMPLE-DEATH <>>
2773
2774 <NEWTYPE DEAD-VAR ATOM>
2775
2776 #WORD *11563720044*
2777 <GFCN \1aWILL-DIE? ("VALUE" <OR ATOM FALSE <LIST ANY>> ANY "OPTIONAL" LIST FIX) ARG10 MIML11 VISIT12>
2778                     <OPT-DISPATCH 1 %<> OPT7 OPT8 OPT9>
2779 OPT7
2780                     <PUSH #T$UNBOUND 0>
2781 OPT8
2782                     <PUSH #T$UNBOUND 0>
2783 OPT9
2784                     <TEMP TEMP17 TEMP35 ITM26 TEMP44 XP69:LIST X70>
2785                     <INTGO>
2786                     <TYPE? MIML11 <TYPE-CODE UNBOUND> - TAG15>
2787                     <GEN-LVAL 'MIML = MIML11>
2788 TAG15
2789                     <TYPE? VISIT12 <TYPE-CODE UNBOUND> - TAG20>
2790                     <GVAL 'VISIT-COUNT = TEMP17>
2791                     <ADD TEMP17 1 = TEMP17 (TYPE FIX)>
2792                     <SETG 'VISIT-COUNT TEMP17>
2793                     <SET VISIT12 TEMP17>
2794                     <DEAD TEMP17>
2795 TAG20
2796                     <GVAL 'SIMPLE-DEATH = TEMP17>
2797                     <LOOP>
2798 AGAIN30
2799                     <INTGO>
2800                     <TYPE? ARG10 <TYPE-CODE ATOM> + PHRASE32>
2801                     <RETURN 'T>
2802 PHRASE32
2803                     <EMPL? MIML11 + TAG34>
2804                     <RESTL MIML11 1 = TEMP35 (TYPE LIST)>
2805                     <EMPL? TEMP35 - PHRASE33>
2806                     <DEAD TEMP35>
2807 TAG34
2808                     <RETURN 'T>
2809 PHRASE33
2810                     <RESTL MIML11 1 = TEMP35 (TYPE LIST)>
2811                     <NTHL TEMP35 1 = TEMP35>
2812                     <TYPE? TEMP35 <TYPE-CODE FORM> - PHRASE36>
2813                     <NTHL TEMP35 1 = ITM26>
2814                     <EQUAL? ITM26 'DEAD - BOOL38>
2815                     <RESTL TEMP35 1 = TEMP35 (TYPE LIST)>
2816                     <CHTYPE TEMP35 <TYPE-CODE LIST> = TEMP35>
2817                     <EMPL? TEMP35 + TAG41>
2818                     <LOOP (ARG10 VALUE) (TEMP35 VALUE)>
2819 TAG42
2820                     <NTHL TEMP35 1 = TEMP44>
2821                     <TYPE? TEMP44 <TYPE-CODE ATOM> - TAG43>
2822                     <VEQUAL? TEMP44 ARG10 + BOOL37>
2823                     <DEAD TEMP44>
2824 TAG43
2825                     <RESTL TEMP35 1 = TEMP35 (TYPE LIST)>
2826                     <EMPL? TEMP35 - TAG42>
2827 TAG41
2828                     <TYPE? TEMP17 <TYPE-CODE FALSE> + BOOL45>
2829                     <RETURN %<>>
2830 BOOL45
2831                     <RESTL MIML11 1 = MIML11 (TYPE LIST)>
2832                     <JUMP + AGAIN30>
2833 BOOL38
2834                     <EQUAL? ITM26 'RETURN - BOOL47>
2835                     <RESTL TEMP35 1 = TEMP44 (TYPE LIST)>
2836                     <DEAD TEMP35>
2837                     <NTHL TEMP44 1 = TEMP44>
2838                     <EQUAL? TEMP44 ARG10 + TAG48>
2839                     <DEAD TEMP44>
2840                     <RETURN 'T>
2841 TAG48
2842                     <RETURN %<>>
2843 BOOL47
2844                     <EQUAL? ITM26 'DISPATCH - BOOL50>
2845                     <RETURN %<>>
2846 BOOL50
2847                     <EQUAL? ITM26 'END - TAG51>
2848                     <RETURN 'T>
2849 TAG51
2850                     <EQUAL? ITM26 'SET - BOOL52>
2851                     <RESTL TEMP35 1 = TEMP44 (TYPE LIST)>
2852                     <NTHL TEMP44 1 = TEMP44>
2853                     <EQUAL? TEMP44 ARG10 - TAG54>
2854                     <DEAD TEMP44>
2855                     <RETURN 'T>
2856 TAG54
2857                     <RESTL TEMP35 1 = TEMP44 (TYPE LIST)>
2858                     <DEAD TEMP35>
2859                     <RESTL TEMP44 1 = TEMP44 (TYPE LIST)>
2860                     <NTHL TEMP44 1 = TEMP44>
2861                     <EQUAL? TEMP44 ARG10 + BOOL56>
2862                     <DEAD TEMP44>
2863                     <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE55>
2864 BOOL56
2865                     <RETURN %<>>
2866 PHRASE55
2867                     <RESTL MIML11 1 = MIML11 (TYPE LIST)>
2868                     <JUMP + AGAIN30>
2869 BOOL52
2870                     <EQUAL? ITM26 'ICALL + MAPAP63>
2871                     <CHTYPE TEMP35 <TYPE-CODE LIST> = TEMP44>
2872                     <LOOP>
2873 MAP60
2874                     <INTGO>
2875                     <EMPL? TEMP44 + MAPAP63>
2876                     <SET XP69 TEMP44>
2877                     <NTHL XP69 1 = X70>
2878                     <EQUAL? X70 '= - PHRASE76>
2879                     <RESTL XP69 1 = XP69 (TYPE LIST)>
2880                     <NTHL XP69 1 = X70>
2881                     <DEAD XP69>
2882                     <EQUAL? X70 ARG10 - MAPAP63>
2883                     <DEAD X70>
2884                     <RETURN 'T>
2885 PHRASE76
2886                     <EQUAL? X70 ARG10 - PHRASE77>
2887                     <DEAD X70>
2888                     <RETURN %<>>
2889 PHRASE77
2890                     <RESTL TEMP44 1 = TEMP44 (TYPE LIST)>
2891                     <JUMP + MAP60>
2892 MAPAP63
2893                     <TYPE? TEMP17 <TYPE-CODE FALSE> + BOOL78>
2894                     <RETURN %<>>
2895 BOOL78
2896                     <RESTL TEMP35 1 = TEMP35 (TYPE LIST)>
2897                     <CHTYPE TEMP35 <TYPE-CODE LIST> = TEMP35>
2898                     <SET X70 TEMP35>
2899                     <EMPL? X70 + TAG81>
2900                     <LOOP (X70 VALUE)>
2901 TAG83
2902                     <NTHL X70 1 = TEMP44>
2903                     <TYPE? TEMP44 <TYPE-CODE ATOM> - TAG84>
2904                     <VEQUAL? TEMP44 '+ + TAG82>
2905                     <DEAD TEMP44>
2906 TAG84
2907                     <RESTL X70 1 = X70 (TYPE LIST)>
2908                     <EMPL? X70 - TAG83>
2909 TAG81
2910                     <SET X70 %<> (TYPE FALSE)>
2911 TAG82
2912                     <VEQUAL? X70 0 - BOOL80>
2913                     <SET TEMP44 TEMP35>
2914                     <EMPL? TEMP44 + TAG85>
2915                     <LOOP (TEMP44 VALUE)>
2916 TAG87
2917                     <NTHL TEMP44 1 = X70>
2918                     <TYPE? X70 <TYPE-CODE ATOM> - TAG88>
2919                     <VEQUAL? X70 '- + TAG86>
2920                     <DEAD X70>
2921 TAG88
2922                     <RESTL TEMP44 1 = TEMP44 (TYPE LIST)>
2923                     <EMPL? TEMP44 - TAG87>
2924 TAG85
2925                     <SET X70 %<> (TYPE FALSE)>
2926                     <JUMP + TAG89>
2927 TAG86
2928                     <SET X70 TEMP44>
2929                     <DEAD TEMP44>
2930 TAG89
2931                     <VEQUAL? X70 0 - BOOL80>
2932                     <EQUAL? ITM26 'NTHR - BOOL90>
2933                     <SET ITM26 TEMP35>
2934                     <DEAD TEMP35>
2935                     <LOOP (ITM26 VALUE)>
2936 TAG91
2937                     <RESTL ITM26 1 = TEMP44 (TYPE LIST)>
2938                     <EMPL? TEMP44 + TAG92>
2939                     <SET ITM26 TEMP44>
2940                     <DEAD TEMP44>
2941                     <JUMP + TAG91>
2942 TAG92
2943                     <NTHL ITM26 1 = ITM26>
2944                     <TYPE? ITM26 <TYPE-CODE LIST> - BOOL90>
2945                     <NTHL ITM26 1 = TEMP44>
2946                     <EQUAL? TEMP44 'BRANCH-FALSE - BOOL90>
2947                     <DEAD TEMP44>
2948                     <RESTL ITM26 1 = X70 (TYPE LIST)>
2949                     <JUMP + BOOL80>
2950 BOOL90
2951                     <EQUAL? ITM26 'ICALL - PHRASE113>
2952                     <RESTL MIML11 1 = TEMP35 (TYPE LIST)>
2953                     <NTHL TEMP35 1 = X70 (TYPE FORM)>
2954                     <DEAD TEMP35>
2955 BOOL80
2956                     <FRAME '\1aFIND-LABEL>
2957                     <RESTL X70 1 = TEMP35 (TYPE LIST)>
2958                     <NTHL TEMP35 1 = TEMP44>
2959                     <DEAD TEMP35>
2960                     <PUSH TEMP44>
2961                     <CALL '\1aFIND-LABEL 1 = TEMP35>
2962                     <TYPE? TEMP35 <TYPE-CODE FALSE> + PHRASE107>
2963                     <FRAME '\1aLAB-WILL-DIE>
2964                     <PUSH TEMP35>
2965                     <DEAD TEMP35>
2966                     <PUSH ARG10>
2967                     <PUSH VISIT12>
2968                     <EQUAL? ITM26 'ICALL + TAG102>
2969                     <SET TEMP35 %<> (TYPE FALSE)>
2970                     <JUMP + PHRASE100>
2971 TAG102
2972                     <EMPL? X70 + TAG104>
2973                     <RESTL X70 1 = XP69 (TYPE LIST)>
2974                     <EMPL? XP69 - TAG103>
2975                     <DEAD XP69>
2976 TAG104
2977                     <SET TEMP35 %<> (TYPE FALSE)>
2978                     <JUMP + PHRASE100>
2979 TAG103
2980                     <RESTL X70 1 = XP69 (TYPE LIST)>
2981                     <DEAD X70>
2982                     <RESTL XP69 1 = XP69 (TYPE LIST)>
2983                     <RESTL XP69 1 = XP69 (TYPE LIST)>
2984                     <NTHL XP69 1 = TEMP35>
2985                     <DEAD XP69>
2986 PHRASE100
2987                     <PUSH TEMP35>
2988                     <DEAD TEMP35>
2989                     <CALL '\1aLAB-WILL-DIE 4 = TEMP35>
2990                     <TYPE? TEMP35 <TYPE-CODE FALSE> + PHRASE107>
2991                     <DEAD TEMP35>
2992                     <RESTL MIML11 1 = MIML11 (TYPE LIST)>
2993                     <EQUAL? ITM26 'JUMP - AGAIN30>
2994                     <DEAD ITM26>
2995                     <RETURN 'T>
2996 PHRASE107
2997                     <EQUAL? TEMP44 'COMPERR + BOOL109>
2998                     <EQUAL? TEMP44 'IOERR + BOOL109>
2999                     <EQUAL? TEMP44 'UNWCNT - PHRASE108>
3000                     <DEAD TEMP44>
3001 BOOL109
3002                     <EQUAL? ITM26 'JUMP - PHRASE113>
3003                     <RETURN 'T>
3004 PHRASE108
3005                     <RETURN %<>>
3006 PHRASE113
3007                     <GVAL 'THE-BIG-LABELS = XP69>
3008                     <EMPL? XP69 + MAPAP120 (TYPE LIST)>
3009                     <DEAD XP69>
3010                     <EQUAL? ITM26 'CALL + BOOL115>
3011                     <EQUAL? ITM26 'ACALL + BOOL115>
3012                     <EQUAL? ITM26 'SCALL - MAPAP120>
3013                     <DEAD ITM26>
3014 BOOL115
3015                     <GVAL 'THE-BIG-LABELS = XP69>
3016                     <LOOP>
3017 MAP117
3018                     <INTGO>
3019                     <EMPL? XP69 + MAPAP120>
3020                     <NTHL XP69 1 = TEMP35>
3021                     <FRAME '\1aLAB-WILL-DIE>
3022                     <FRAME '\1aFIND-LABEL>
3023                     <PUSH TEMP35>
3024                     <DEAD TEMP35>
3025                     <CALL '\1aFIND-LABEL 1 = STACK>
3026                     <PUSH ARG10>
3027                     <PUSH VISIT12>
3028                     <PUSH %<>>
3029                     <CALL '\1aLAB-WILL-DIE 4 = TEMP35>
3030                     <TYPE? TEMP35 <TYPE-CODE FALSE> - PHRASE130>
3031                     <DEAD TEMP35>
3032                     <RETURN %<>>
3033 PHRASE130
3034                     <RESTL XP69 1 = XP69 (TYPE LIST)>
3035                     <JUMP + MAP117>
3036 MAPAP120
3037                     <RESTL MIML11 1 = MIML11 (TYPE LIST)>
3038                     <JUMP + AGAIN30>
3039 BOOL37
3040                     <RETURN TEMP35>
3041                     <DEAD TEMP35>
3042 PHRASE36
3043                     <RESTL MIML11 1 = MIML11 (TYPE LIST)>
3044                     <JUMP + AGAIN30>
3045                     <END \1aWILL-DIE?>
3046 #WORD *30414117450*
3047 <GFCN \1aLAB-WILL-DIE ("VALUE" <OR ATOM FALSE LAB> LAB ATOM FIX <OR ATOM FALSE>) LB5 ARG6 VISIT7 ICALL-VAR8>
3048                     <TEMP TEMP9 TEMP32:LIST TEMP36:ATOM>
3049                     <INTGO>
3050                     <EQUAL? ICALL-VAR8 ARG6 - PHRASE14>
3051                     <DEAD ICALL-VAR8>
3052                     <RETURN 'T>
3053 PHRASE14
3054                     <NTHR 'DO-LOOPS 1 = TEMP9 (RECORD-TYPE ATOM) (BRANCH-FALSE + BOOL18)>
3055                     <TYPE? TEMP9 <TYPE-CODE FALSE> + BOOL18>
3056                     <NTHR TEMP9 1 = TEMP9 (RECORD-TYPE GBIND)>
3057                     <TYPE? TEMP9 <TYPE-CODE UNBOUND> + BOOL18>
3058                     <DEAD TEMP9>
3059                     <GVAL 'DO-LOOPS = TEMP9>
3060                     <TYPE? TEMP9 <TYPE-CODE FALSE> - TAG20>
3061                     <DEAD TEMP9>
3062 BOOL18
3063                     <NTHUV LB5 3 = TEMP9>
3064                     <TYPE? TEMP9 <TYPE-CODE FALSE> + TAG20>
3065                     <DEAD TEMP9>
3066                     <SET TEMP9 %<> (TYPE FALSE)>
3067                     <JUMP + PHRASE45>
3068 TAG20
3069                     <SET TEMP9 %<> (TYPE FALSE)>
3070                     <NTHUV LB5 8 = TEMP32 (TYPE LIST)>
3071                     <LOOP>
3072 MAP23
3073                     <INTGO>
3074                     <EMPL? TEMP32 + MAPAP26>
3075                     <NTHL TEMP32 1 = TEMP9>
3076                     <CHTYPE TEMP9 <TYPE-CODE ATOM> = TEMP36>
3077                     <VEQUAL? TEMP36 ARG6 - PHRASE39>
3078                     <DEAD TEMP36>
3079                     <TYPE? TEMP9 <TYPE-CODE ATOM> - PHRASE38>
3080                     <DEAD TEMP9>
3081                     <RETURN %<>>
3082 PHRASE38
3083                     <SET TEMP9 'T (TYPE ATOM)>
3084                     <JUMP + MAPEX25>
3085 PHRASE39
3086                     <SET TEMP9 %<> (TYPE FALSE)>
3087                     <RESTL TEMP32 1 = TEMP32 (TYPE LIST)>
3088                     <JUMP + MAP23>
3089 MAPAP26
3090 MAPEX25
3091                     <TYPE? TEMP9 <TYPE-CODE FALSE> - PHRASE45>
3092                     <NTHUV LB5 6 = TEMP9 (TYPE FIX)>
3093                     <VEQUAL? VISIT7 TEMP9 - TAG40 (TYPE FIX)>
3094                     <DEAD TEMP9>
3095                     <SET TEMP9 'T (TYPE ATOM)>
3096                     <JUMP + PHRASE45>
3097 TAG40
3098                     <PUTUV LB5 6 VISIT7 (TYPE FIX)>
3099                     <FRAME '\1aWILL-DIE?>
3100                     <PUSH ARG6>
3101                     <NTHUV LB5 7 = STACK (TYPE LIST)>
3102                     <PUSH VISIT7>
3103                     <DEAD VISIT7>
3104                     <CALL '\1aWILL-DIE? 3 = TEMP9>
3105                     <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE43>
3106                     <DEAD TEMP9>
3107                     <NTHUV LB5 8 = TEMP32 (TYPE LIST)>
3108                     <CHTYPE ARG6 <TYPE-CODE DEAD-VAR> = TEMP9>
3109                     <DEAD ARG6>
3110                     <CONS TEMP9 TEMP32 = TEMP32>
3111                     <DEAD TEMP9>
3112                     <PUTUV LB5 8 TEMP32 (TYPE LIST)>
3113                     <DEAD TEMP32>
3114                     <SET TEMP9 LB5>
3115                     <DEAD LB5>
3116                     <JUMP + PHRASE45>
3117 PHRASE43
3118                     <NTHUV LB5 8 = TEMP32 (TYPE LIST)>
3119                     <CONS ARG6 TEMP32 = TEMP32>
3120                     <DEAD ARG6>
3121                     <PUTUV LB5 8 TEMP32 (TYPE LIST)>
3122                     <DEAD LB5 TEMP32>
3123                     <SET TEMP9 %<> (TYPE FALSE)>
3124 PHRASE45
3125                     <RETURN TEMP9>
3126                     <DEAD TEMP9>
3127                     <END \1aLAB-WILL-DIE>
3128 <NEWTYPE T$UNBOUND FIX>
3129
3130 #WORD *33207316141*
3131 <GFCN \1aPUSH!-MIMOC ("VALUE" <OR FALSE FIX> LIST) L4>
3132                     <TEMP ARG5 TEMP12 TEMP11>
3133                     <INTGO>
3134                     <NTHL L4 1 = ARG5>
3135                     <DEAD L4>
3136                     <TYPE? ARG5 <TYPE-CODE T$UNBOUND> - PHRASE9>
3137                     <FRAME '\1aOCEMIT>
3138                     <PUSH 'PUSH>
3139                     <PUSH 'TP*>
3140                     <SET TEMP12 2 (TYPE FIX)>
3141                     <SFRAME 'OBJ-VAL>
3142                     <PUSH 0>
3143                     <SCALL '\1aOBJ-VAL 1 = TEMP11 + TAG10 TEMP12>
3144                     <LOOP (TEMP11 TYPE VALUE LENGTH) (TEMP12 VALUE)>
3145 TAG14
3146                     <INTGO>
3147                     <EMPTY? TEMP11 + TAG10>
3148                     <NTH1 TEMP11 = STACK>
3149                     <REST1 TEMP11 = TEMP11>
3150                     <ADD TEMP12 1 = TEMP12 (TYPE FIX)>
3151                     <JUMP + TAG14>
3152 TAG10
3153                     <CALL '\1aOCEMIT TEMP12>
3154                     <DEAD TEMP12>
3155                     <FRAME '\1aOCEMIT>
3156                     <PUSH 'PUSH>
3157                     <PUSH 'TP*>
3158                     <SET TEMP11 2 (TYPE FIX)>
3159                     <SFRAME 'OBJ-VAL>
3160                     <PUSH 0>
3161                     <SCALL '\1aOBJ-VAL 1 = TEMP12 + TAG16 TEMP11>
3162                     <LOOP (TEMP12 TYPE VALUE LENGTH) (TEMP11 VALUE)>
3163 TAG18
3164                     <INTGO>
3165                     <EMPTY? TEMP12 + TAG16>
3166                     <NTH1 TEMP12 = STACK>
3167                     <REST1 TEMP12 = TEMP12>
3168                     <ADD TEMP11 1 = TEMP11 (TYPE FIX)>
3169                     <JUMP + TAG18>
3170 TAG16
3171                     <CALL '\1aOCEMIT TEMP11>
3172                     <DEAD TEMP11>
3173                     <GVAL 'WINNING-VICTIM = TEMP11>
3174                     <TYPE? TEMP11 <TYPE-CODE FALSE> + PHRASE45>
3175                     <GVAL 'STACK-DEPTH = TEMP12>
3176                     <ADD TEMP12 2 = TEMP12 (TYPE FIX)>
3177                     <SETG 'STACK-DEPTH TEMP12>
3178                     <RETURN TEMP12>
3179                     <DEAD TEMP12>
3180 PHRASE9
3181                     <TYPE? ARG5 <TYPE-CODE ATOM> - PHRASE24>
3182                     <FRAME '\1aIN-AC?>
3183                     <PUSH ARG5>
3184                     <PUSH 'TYPE>
3185                     <CALL '\1aIN-AC? 2 = TEMP12>
3186                     <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE24>
3187                     <FRAME '\1aGET-AC>
3188                     <PUSH TEMP12>
3189                     <DEAD TEMP12>
3190                     <CALL '\1aGET-AC 1 = TEMP12>
3191                     <NTHUV TEMP12 6 = TEMP12>
3192                     <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE24>
3193                     <FRAME '\1aOCEMIT>
3194                     <PUSH 'PUSH>
3195                     <PUSH 'TP*>
3196                     <SET TEMP11 2 (TYPE FIX)>
3197                     <SFRAME 'TYPE-WORD>
3198                     <PUSH TEMP12>
3199                     <DEAD TEMP12>
3200                     <SCALL '\1aTYPE-WORD 1 = TEMP12 + TAG28 TEMP11>
3201                     <LOOP (TEMP12 TYPE VALUE LENGTH) (TEMP11 VALUE)>
3202 TAG31
3203                     <INTGO>
3204                     <EMPTY? TEMP12 + TAG28>
3205                     <NTH1 TEMP12 = STACK>
3206                     <REST1 TEMP12 = TEMP12>
3207                     <ADD TEMP11 1 = TEMP11 (TYPE FIX)>
3208                     <JUMP + TAG31>
3209 TAG28
3210                     <CALL '\1aOCEMIT TEMP11>
3211                     <DEAD TEMP11>
3212                     <JUMP + PHRASE33>
3213 PHRASE24
3214                     <FRAME '\1aOCEMIT>
3215                     <PUSH 'PUSH>
3216                     <PUSH 'TP*>
3217                     <SET TEMP12 2 (TYPE FIX)>
3218                     <SFRAME 'OBJ-TYP>
3219                     <PUSH ARG5>
3220                     <SCALL '\1aOBJ-TYP 1 = TEMP11 + TAG34 TEMP12>
3221                     <LOOP (TEMP11 TYPE VALUE LENGTH) (TEMP12 VALUE)>
3222 TAG36
3223                     <INTGO>
3224                     <EMPTY? TEMP11 + TAG34>
3225                     <NTH1 TEMP11 = STACK>
3226                     <REST1 TEMP11 = TEMP11>
3227                     <ADD TEMP12 1 = TEMP12 (TYPE FIX)>
3228                     <JUMP + TAG36>
3229 TAG34
3230                     <CALL '\1aOCEMIT TEMP12>
3231                     <DEAD TEMP12>
3232 PHRASE33
3233                     <GVAL 'WINNING-VICTIM = TEMP12>
3234                     <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE39>
3235                     <DEAD TEMP12>
3236                     <GVAL 'STACK-DEPTH = TEMP12>
3237                     <ADD TEMP12 1 = TEMP12 (TYPE FIX)>
3238                     <SETG 'STACK-DEPTH TEMP12>
3239                     <DEAD TEMP12>
3240 PHRASE39
3241                     <FRAME '\1aOCEMIT>
3242                     <PUSH 'PUSH>
3243                     <PUSH 'TP*>
3244                     <SET TEMP11 2 (TYPE FIX)>
3245                     <SFRAME 'OBJ-VAL>
3246                     <PUSH ARG5>
3247                     <DEAD ARG5>
3248                     <SCALL '\1aOBJ-VAL 1 = TEMP12 + TAG40 TEMP11>
3249                     <LOOP (TEMP12 TYPE VALUE LENGTH) (TEMP11 VALUE)>
3250 TAG42
3251                     <INTGO>
3252                     <EMPTY? TEMP12 + TAG40>
3253                     <NTH1 TEMP12 = STACK>
3254                     <REST1 TEMP12 = TEMP12>
3255                     <ADD TEMP11 1 = TEMP11 (TYPE FIX)>
3256                     <JUMP + TAG42>
3257 TAG40
3258                     <CALL '\1aOCEMIT TEMP11>
3259                     <DEAD TEMP11>
3260                     <GVAL 'WINNING-VICTIM = TEMP11>
3261                     <TYPE? TEMP11 <TYPE-CODE FALSE> + PHRASE45>
3262                     <GVAL 'STACK-DEPTH = TEMP11>
3263                     <ADD TEMP11 1 = TEMP11 (TYPE FIX)>
3264                     <SETG 'STACK-DEPTH TEMP11>
3265 PHRASE45
3266                     <RETURN TEMP11>
3267                     <DEAD TEMP11>
3268                     <END \1aPUSH!-MIMOC>
3269 #WORD *24752155415*
3270 <GFCN \1aPOP!-MIMOC ("VALUE" <OR FALSE FIX> LIST) L4>
3271                     <TEMP TEMP7>
3272                     <INTGO>
3273                     <FRAME '\1aASSIGN-AC>
3274                     <RESTL L4 1 = TEMP7 (TYPE LIST)>
3275                     <DEAD L4>
3276                     <NTHL TEMP7 1 = STACK>
3277                     <DEAD TEMP7>
3278                     <PUSH 'BOTH>
3279                     <CALL '\1aASSIGN-AC 2 = TEMP7>
3280                     <FRAME '\1aOCEMIT>
3281                     <PUSH 'DMOVE>
3282                     <PUSH TEMP7>
3283                     <DEAD TEMP7>
3284                     <PUSH -1>
3285                     <PUSH (TP*)>
3286                     <CALL '\1aOCEMIT 4>
3287                     <FRAME '\1aOCEMIT>
3288                     <PUSH 'ADJSP>
3289                     <PUSH 'TP*>
3290                     <PUSH -2>
3291                     <CALL '\1aOCEMIT 3>
3292                     <GVAL 'WINNING-VICTIM = TEMP7>
3293                     <TYPE? TEMP7 <TYPE-CODE FALSE> + PHRASE11>
3294                     <GVAL 'STACK-DEPTH = TEMP7>
3295                     <SUB TEMP7 2 = TEMP7 (TYPE FIX)>
3296                     <SETG 'STACK-DEPTH TEMP7>
3297 PHRASE11
3298                     <RETURN TEMP7>
3299                     <DEAD TEMP7>
3300                     <END \1aPOP!-MIMOC>
3301 #WORD *16260005774*
3302 <GFCN \1aADJ!-MIMOC ("VALUE" ANY LIST) L5>
3303                     <TEMP ARG6 TEMP12>
3304                     <INTGO>
3305                     <NTHL L5 1 = ARG6>
3306                     <DEAD L5>
3307                     <TYPE? ARG6 <TYPE-CODE FIX> - PHRASE8>
3308                     <FRAME '\1aOCEMIT>
3309                     <PUSH 'ADJSP>
3310                     <PUSH 'TP*>
3311                     <PUSH ARG6>
3312                     <CALL '\1aOCEMIT 3>
3313                     <GVAL 'WINNING-VICTIM = TEMP12>
3314                     <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE14>
3315                     <GVAL 'STACK-DEPTH = TEMP12>
3316                     <ADD TEMP12 ARG6 = TEMP12 (TYPE FIX)>
3317                     <DEAD ARG6>
3318                     <SETG 'STACK-DEPTH TEMP12>
3319                     <RETURN TEMP12>
3320                     <DEAD TEMP12>
3321 PHRASE8
3322                     <FRAME '\1aSMASH-AC>
3323                     <PUSH 'T*>
3324                     <PUSH ARG6>
3325                     <DEAD ARG6>
3326                     <PUSH 'VALUE>
3327                     <CALL '\1aSMASH-AC 3>
3328                     <FRAME '\1aOCEMIT>
3329                     <PUSH 'ADJSP>
3330                     <PUSH 'TP*>
3331                     <PUSH (T*)>
3332                     <CALL '\1aOCEMIT 3 = TEMP12>
3333 PHRASE14
3334                     <RETURN TEMP12>
3335                     <DEAD TEMP12>
3336                     <END \1aADJ!-MIMOC>
3337 #WORD *23573342355*
3338 <GFCN \1aGETS!-MIMOC ("VALUE" ANY LIST) L4>
3339                     <TEMP ARG15 TEMP10 VAL6:ATOM TEMP16 TEMP9>
3340                     <INTGO>
3341                     <NTHL L4 1 = ARG15 (TYPE FORM)>
3342                     <RESTL L4 1 = TEMP10 (TYPE LIST)>
3343                     <DEAD L4>
3344                     <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
3345                     <NTHL TEMP10 1 = VAL6 (TYPE ATOM)>
3346                     <DEAD TEMP10>
3347                     <RESTL ARG15 1 = TEMP10 (TYPE LIST)>
3348                     <DEAD ARG15>
3349                     <NTHL TEMP10 1 = ARG15 (TYPE ATOM)>
3350                     <DEAD TEMP10>
3351                     <VEQUAL? ARG15 'ARGS - PHRASE12>
3352                     <VEQUAL? VAL6 'STACK - PHRASE14>
3353                     <FRAME '\1aOCEMIT>
3354                     <PUSH 'PUSH>
3355                     <PUSH 'TP*>
3356                     <SET TEMP16 2 (TYPE FIX)>
3357                     <SFRAME 'TYPE-WORD>
3358                     <PUSH 'FIX>
3359                     <SCALL '\1aTYPE-WORD 1 = TEMP10 + TAG15 TEMP16>
3360                     <LOOP (TEMP10 TYPE VALUE LENGTH) (TEMP16 VALUE)>
3361 TAG18
3362                     <INTGO>
3363                     <EMPTY? TEMP10 + TAG15>
3364                     <NTH1 TEMP10 = STACK>
3365                     <REST1 TEMP10 = TEMP10>
3366                     <ADD TEMP16 1 = TEMP16 (TYPE FIX)>
3367                     <JUMP + TAG18>
3368 TAG15
3369                     <CALL '\1aOCEMIT TEMP16>
3370                     <DEAD TEMP16>
3371                     <FRAME '\1aOCEMIT>
3372                     <PUSH 'HLRZ>
3373                     <PUSH 'O*>
3374                     <PUSH -2>
3375                     <PUSH (F*)>
3376                     <CALL '\1aOCEMIT 4>
3377                     <FRAME '\1aMUNGED-AC>
3378                     <PUSH 'O*>
3379                     <CALL '\1aMUNGED-AC 1>
3380                     <FRAME '\1aOCEMIT>
3381                     <PUSH 'PUSH>
3382                     <PUSH 'TP*>
3383                     <PUSH 'O*>
3384                     <CALL '\1aOCEMIT 3>
3385                     <GVAL 'WINNING-VICTIM = TEMP16>
3386                     <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE25>
3387                     <GVAL 'STACK-DEPTH = TEMP10>
3388                     <ADD TEMP10 2 = TEMP10 (TYPE FIX)>
3389                     <SETG 'STACK-DEPTH TEMP10>
3390                     <RETURN TEMP10>
3391                     <DEAD TEMP10>
3392 PHRASE14
3393                     <FRAME '\1aASSIGN-AC>
3394                     <PUSH VAL6>
3395                     <DEAD VAL6>
3396                     <PUSH 'BOTH>
3397                     <PUSH 'T>
3398                     <CALL '\1aASSIGN-AC 3 = VAL6>
3399                     <FRAME '\1aGET-AC>
3400                     <PUSH VAL6>
3401                     <CALL '\1aGET-AC 1 = TEMP10>
3402                     <PUTUV TEMP10 6 'FIX>
3403                     <DEAD TEMP10>
3404                     <FRAME '\1aOCEMIT>
3405                     <PUSH 'HLRZ>
3406                     <FRAME '\1aNEXT-AC>
3407                     <PUSH VAL6>
3408                     <DEAD VAL6>
3409                     <CALL '\1aNEXT-AC 1 = STACK>
3410                     <PUSH -2>
3411                     <PUSH (F*)>
3412                     <CALL '\1aOCEMIT 4 = TEMP16>
3413 PHRASE25
3414                     <RETURN TEMP16>
3415                     <DEAD TEMP16>
3416 PHRASE12
3417                     <VEQUAL? ARG15 'OBLIST - PHRASE30>
3418                     <VEQUAL? VAL6 'STACK - PHRASE32>
3419                     <FRAME '\1aFLUSH-AC>
3420                     <PUSH 'T*>
3421                     <CALL '\1aFLUSH-AC 1>
3422                     <FRAME '\1aMUNGED-AC>
3423                     <PUSH 'T*>
3424                     <CALL '\1aMUNGED-AC 1>
3425                     <FRAME '\1aOCEMIT>
3426                     <PUSH 'MOVE>
3427                     <PUSH 'T*>
3428                     <PUSH 100>
3429                     <CALL '\1aOCEMIT 3>
3430                     <FRAME '\1aOCEMIT>
3431                     <PUSH 'PUSH>
3432                     <PUSH 'TP*>
3433                     <PUSH (T*)>
3434                     <CALL '\1aOCEMIT 3>
3435                     <FRAME '\1aOCEMIT>
3436                     <PUSH 'PUSH>
3437                     <PUSH 'TP*>
3438                     <PUSH 1>
3439                     <PUSH (T*)>
3440                     <CALL '\1aOCEMIT 4>
3441                     <GVAL 'WINNING-VICTIM = TEMP16>
3442                     <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE40>
3443                     <GVAL 'STACK-DEPTH = TEMP10>
3444                     <ADD TEMP10 2 = TEMP10 (TYPE FIX)>
3445                     <SETG 'STACK-DEPTH TEMP10>
3446                     <RETURN TEMP10>
3447                     <DEAD TEMP10>
3448 PHRASE32
3449                     <FRAME '\1aASSIGN-AC>
3450                     <PUSH VAL6>
3451                     <DEAD VAL6>
3452                     <PUSH 'BOTH>
3453                     <PUSH 'T>
3454                     <CALL '\1aASSIGN-AC 3 = VAL6>
3455                     <FRAME '\1aOCEMIT>
3456                     <PUSH 'DMOVE>
3457                     <PUSH VAL6>
3458                     <DEAD VAL6>
3459                     <PUSH '@>
3460                     <PUSH 100>
3461                     <CALL '\1aOCEMIT 4 = TEMP16>
3462 PHRASE40
3463                     <RETURN TEMP16>
3464                     <DEAD TEMP16>
3465 PHRASE30
3466                     <VEQUAL? ARG15 'BIND - PHRASE43>
3467                     <VEQUAL? VAL6 'STACK - PHRASE45>
3468                     <FRAME '\1aOCEMIT>
3469                     <PUSH 'PUSH>
3470                     <PUSH 'TP*>
3471                     <SET TEMP16 2 (TYPE FIX)>
3472                     <SFRAME 'TYPE-WORD>
3473                     <PUSH 'LBIND>
3474                     <SCALL '\1aTYPE-WORD 1 = TEMP10 + TAG46 TEMP16>
3475                     <LOOP (TEMP10 TYPE VALUE LENGTH) (TEMP16 VALUE)>
3476 TAG49
3477                     <INTGO>
3478                     <EMPTY? TEMP10 + TAG46>
3479                     <NTH1 TEMP10 = STACK>
3480                     <REST1 TEMP10 = TEMP10>
3481                     <ADD TEMP16 1 = TEMP16 (TYPE FIX)>
3482                     <JUMP + TAG49>
3483 TAG46
3484                     <CALL '\1aOCEMIT TEMP16>
3485                     <DEAD TEMP16>
3486                     <FRAME '\1aOCEMIT>
3487                     <PUSH 'PUSH>
3488                     <PUSH 'TP*>
3489                     <PUSH 'SP*>
3490                     <CALL '\1aOCEMIT 3>
3491                     <GVAL 'WINNING-VICTIM = TEMP16>
3492                     <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE54>
3493                     <GVAL 'STACK-DEPTH = TEMP16>
3494                     <ADD TEMP16 2 = TEMP16 (TYPE FIX)>
3495                     <SETG 'STACK-DEPTH TEMP16>
3496                     <RETURN TEMP16>
3497                     <DEAD TEMP16>
3498 PHRASE45
3499                     <FRAME '\1aASSIGN-AC>
3500                     <PUSH VAL6>
3501                     <DEAD VAL6>
3502                     <PUSH 'BOTH>
3503                     <PUSH 'T>
3504                     <CALL '\1aASSIGN-AC 3 = VAL6>
3505                     <FRAME '\1aGET-AC>
3506                     <PUSH VAL6>
3507                     <CALL '\1aGET-AC 1 = TEMP16>
3508                     <PUTUV TEMP16 6 'LBIND>
3509                     <DEAD TEMP16>
3510                     <FRAME '\1aOCEMIT>
3511                     <PUSH 'MOVE>
3512                     <FRAME '\1aNEXT-AC>
3513                     <PUSH VAL6>
3514                     <DEAD VAL6>
3515                     <CALL '\1aNEXT-AC 1 = STACK>
3516                     <PUSH 'SP*>
3517                     <CALL '\1aOCEMIT 3 = TEMP16>
3518 PHRASE54
3519                     <RETURN TEMP16>
3520                     <DEAD TEMP16>
3521 PHRASE43
3522                     <VEQUAL? ARG15 'PAGPTR - PHRASE59>
3523                     <VEQUAL? VAL6 'STACK - PHRASE61>
3524                     <FRAME '\1aFLUSH-AC>
3525                     <PUSH 'T*>
3526                     <CALL '\1aFLUSH-AC 1>
3527                     <FRAME '\1aMUNGED-AC>
3528                     <PUSH 'T*>
3529                     <CALL '\1aMUNGED-AC 1>
3530                     <FRAME '\1aOCEMIT>
3531                     <PUSH 'MOVE>
3532                     <PUSH 'T*>
3533                     <PUSH 101>
3534                     <CALL '\1aOCEMIT 3>
3535                     <FRAME '\1aOCEMIT>
3536                     <PUSH 'PUSH>
3537                     <PUSH 'TP*>
3538                     <PUSH (T*)>
3539                     <CALL '\1aOCEMIT 3>
3540                     <FRAME '\1aOCEMIT>
3541                     <PUSH 'PUSH>
3542                     <PUSH 'TP*>
3543                     <PUSH 1>
3544                     <PUSH (T*)>
3545                     <CALL '\1aOCEMIT 4>
3546                     <GVAL 'WINNING-VICTIM = TEMP16>
3547                     <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE68>
3548                     <DEAD TEMP16>
3549                     <GVAL 'STACK-DEPTH = TEMP16>
3550                     <ADD TEMP16 2 = TEMP16 (TYPE FIX)>
3551                     <SETG 'STACK-DEPTH TEMP16>
3552                     <DEAD TEMP16>
3553 PHRASE68
3554                     <FRAME '\1aOCEMIT>
3555                     <PUSH 'SKIPN>
3556                     <PUSH (TP*)>
3557                     <CALL '\1aOCEMIT 2>
3558                     <FRAME '\1aOCEMIT>
3559                     <PUSH 'SETZM>
3560                     <PUSH -1>
3561                     <PUSH (TP*)>
3562                     <CALL '\1aOCEMIT 3 = TEMP16>
3563                     <RETURN TEMP16>
3564                     <DEAD TEMP16>
3565 PHRASE61
3566                     <FRAME '\1aASSIGN-AC>
3567                     <PUSH VAL6>
3568                     <DEAD VAL6>
3569                     <PUSH 'BOTH>
3570                     <PUSH 'T>
3571                     <CALL '\1aASSIGN-AC 3 = VAL6>
3572                     <FRAME '\1aOCEMIT>
3573                     <PUSH 'DMOVE>
3574                     <PUSH VAL6>
3575                     <PUSH '@>
3576                     <PUSH 101>
3577                     <CALL '\1aOCEMIT 4>
3578                     <FRAME '\1aOCEMIT>
3579                     <PUSH 'SKIPN>
3580                     <PUSH 'O*>
3581                     <FRAME '\1aNEXT-AC>
3582                     <PUSH VAL6>
3583                     <CALL '\1aNEXT-AC 1 = STACK>
3584                     <CALL '\1aOCEMIT 3>
3585                     <FRAME '\1aOCEMIT>
3586                     <PUSH 'MOVEI>
3587                     <PUSH VAL6>
3588                     <DEAD VAL6>
3589                     <PUSH 0>
3590                     <CALL '\1aOCEMIT 3 = TEMP16>
3591                     <RETURN TEMP16>
3592                     <DEAD TEMP16>
3593 PHRASE59
3594                     <VEQUAL? ARG15 'MINF - PHRASE77>
3595                     <VEQUAL? VAL6 'STACK - PHRASE79>
3596                     <FRAME '\1aOCEMIT>
3597                     <PUSH 'PUSH>
3598                     <PUSH 'TP*>
3599                     <SET TEMP10 2 (TYPE FIX)>
3600                     <SFRAME 'TYPE-WORD>
3601                     <PUSH 'T$MINF>
3602                     <SCALL '\1aTYPE-WORD 1 = TEMP16 + TAG80 TEMP10>
3603                     <LOOP (TEMP16 TYPE VALUE LENGTH) (TEMP10 VALUE)>
3604 TAG82
3605                     <INTGO>
3606                     <EMPTY? TEMP16 + TAG80>
3607                     <NTH1 TEMP16 = STACK>
3608                     <REST1 TEMP16 = TEMP16>
3609                     <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
3610                     <JUMP + TAG82>
3611 TAG80
3612                     <CALL '\1aOCEMIT TEMP10>
3613                     <DEAD TEMP10>
3614                     <FRAME '\1aOCEMIT>
3615                     <PUSH 'PUSH>
3616                     <PUSH 'TP*>
3617                     <PUSH '@>
3618                     <PUSH 99>
3619                     <CALL '\1aOCEMIT 4>
3620                     <GVAL 'WINNING-VICTIM = TEMP10>
3621                     <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE86>
3622                     <DEAD TEMP10>
3623                     <GVAL 'STACK-DEPTH = TEMP10>
3624                     <ADD TEMP10 2 = TEMP10 (TYPE FIX)>
3625                     <SETG 'STACK-DEPTH TEMP10>
3626                     <DEAD TEMP10>
3627 PHRASE86
3628                     <FRAME '\1aOCEMIT>
3629                     <PUSH 'SKIPN>
3630                     <PUSH (TP*)>
3631                     <CALL '\1aOCEMIT 2>
3632                     <FRAME '\1aOCEMIT>
3633                     <PUSH 'SETZM>
3634                     <PUSH -1>
3635                     <PUSH (TP*)>
3636                     <CALL '\1aOCEMIT 3 = TEMP16>
3637                     <RETURN TEMP16>
3638                     <DEAD TEMP16>
3639 PHRASE79
3640                     <FRAME '\1aASSIGN-AC>
3641                     <PUSH VAL6>
3642                     <DEAD VAL6>
3643                     <PUSH 'BOTH>
3644                     <PUSH 'T>
3645                     <CALL '\1aASSIGN-AC 3 = VAL6>
3646                     <FRAME '\1aOCEMIT>
3647                     <PUSH 'MOVE>
3648                     <PUSH VAL6>
3649                     <SET TEMP16 2 (TYPE FIX)>
3650                     <SFRAME 'TYPE-WORD>
3651                     <PUSH 'T$MINF>
3652                     <SCALL '\1aTYPE-WORD 1 = TEMP10 + TAG91 TEMP16>
3653                     <LOOP (TEMP10 TYPE VALUE LENGTH) (TEMP16 VALUE)>
3654 TAG93
3655                     <INTGO>
3656                     <EMPTY? TEMP10 + TAG91>
3657                     <NTH1 TEMP10 = STACK>
3658                     <REST1 TEMP10 = TEMP10>
3659                     <ADD TEMP16 1 = TEMP16 (TYPE FIX)>
3660                     <JUMP + TAG93>
3661 TAG91
3662                     <CALL '\1aOCEMIT TEMP16>
3663                     <DEAD TEMP16>
3664                     <FRAME '\1aOCEMIT>
3665                     <PUSH 'SKIPN>
3666                     <FRAME '\1aNEXT-AC>
3667                     <PUSH VAL6>
3668                     <CALL '\1aNEXT-AC 1 = STACK>
3669                     <PUSH '@>
3670                     <PUSH 99>
3671                     <CALL '\1aOCEMIT 4>
3672                     <FRAME '\1aOCEMIT>
3673                     <PUSH 'MOVEI>
3674                     <PUSH VAL6>
3675                     <DEAD VAL6>
3676                     <PUSH 0>
3677                     <CALL '\1aOCEMIT 3 = TEMP16>
3678                     <RETURN TEMP16>
3679                     <DEAD TEMP16>
3680 PHRASE77
3681                     <SET TEMP9 [ICALL ECALL NCALL UWATM MAPPER PURVEC DBVEC TBIND] (TYPE VECTOR)>
3682                     <LOOP (ARG15 VALUE) (TEMP9 LENGTH VALUE)>
3683 TAG101
3684                     <NTHUV TEMP9 1 = TEMP16>
3685                     <VEQUAL? TEMP16 ARG15 + TAG100>
3686                     <DEAD TEMP16>
3687                     <RESTUV TEMP9 1 = TEMP9 (TYPE VECTOR)>
3688                     <EMPUV? TEMP9 - TAG101>
3689                     <SET TEMP9 %<> (TYPE FALSE)>
3690 TAG100
3691                     <VEQUAL? TEMP9 0 + PHRASE98>
3692                     <LENUV TEMP9 = TEMP9 (TYPE FIX)>
3693                     <VEQUAL? VAL6 'STACK - PHRASE104>
3694                     <VEQUAL? ARG15 'TBIND - PHRASE106>
3695                     <FRAME '\1aOCEMIT>
3696                     <PUSH 'PUSH>
3697                     <PUSH 'TP*>
3698                     <SET TEMP10 2 (TYPE FIX)>
3699                     <SFRAME 'TYPE-WORD>
3700                     <PUSH 'LBIND>
3701                     <SCALL '\1aTYPE-WORD 1 = TEMP16 + TAG107 TEMP10>
3702                     <LOOP (TEMP16 TYPE VALUE LENGTH) (TEMP10 VALUE)>
3703 TAG109
3704                     <INTGO>
3705                     <EMPTY? TEMP16 + TAG107>
3706                     <NTH1 TEMP16 = STACK>
3707                     <REST1 TEMP16 = TEMP16>
3708                     <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
3709                     <JUMP + TAG109>
3710 TAG107
3711                     <CALL '\1aOCEMIT TEMP10>
3712                     <DEAD TEMP10>
3713                     <JUMP + COND105>
3714 PHRASE106
3715                     <SET TEMP10 [PURVEC DBVEC] (TYPE VECTOR)>
3716                     <LOOP (ARG15 VALUE) (TEMP10 LENGTH VALUE)>
3717 TAG113
3718                     <NTHUV TEMP10 1 = TEMP16>
3719                     <VEQUAL? TEMP16 ARG15 + TAG112>
3720                     <DEAD TEMP16>
3721                     <RESTUV TEMP10 1 = TEMP10 (TYPE VECTOR)>
3722                     <EMPUV? TEMP10 - TAG113>
3723                     <JUMP + PHRASE111>
3724 TAG112
3725                     <FRAME '\1aOCEMIT>
3726                     <PUSH 'PUSH>
3727                     <PUSH 'TP*>
3728                     <SET TEMP16 2 (TYPE FIX)>
3729                     <SFRAME 'TYPE-WORD>
3730                     <PUSH 'LIST>
3731                     <SCALL '\1aTYPE-WORD 1 = TEMP10 + TAG115 TEMP16>
3732                     <LOOP (TEMP10 TYPE VALUE LENGTH) (TEMP16 VALUE)>
3733 TAG117
3734                     <INTGO>
3735                     <EMPTY? TEMP10 + TAG115>
3736                     <NTH1 TEMP10 = STACK>
3737                     <REST1 TEMP10 = TEMP10>
3738                     <ADD TEMP16 1 = TEMP16 (TYPE FIX)>
3739                     <JUMP + TAG117>
3740 TAG115
3741                     <CALL '\1aOCEMIT TEMP16>
3742                     <DEAD TEMP16>
3743                     <JUMP + COND105>
3744 PHRASE111
3745                     <FRAME '\1aOCEMIT>
3746                     <PUSH 'PUSH>
3747                     <PUSH 'TP*>
3748                     <SET TEMP10 2 (TYPE FIX)>
3749                     <SFRAME 'TYPE-WORD>
3750                     <PUSH 'ATOM>
3751                     <SCALL '\1aTYPE-WORD 1 = TEMP16 + TAG119 TEMP10>
3752                     <LOOP (TEMP16 TYPE VALUE LENGTH) (TEMP10 VALUE)>
3753 TAG121
3754                     <INTGO>
3755                     <EMPTY? TEMP16 + TAG119>
3756                     <NTH1 TEMP16 = STACK>
3757                     <REST1 TEMP16 = TEMP16>
3758                     <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
3759                     <JUMP + TAG121>
3760 TAG119
3761                     <CALL '\1aOCEMIT TEMP10>
3762                     <DEAD TEMP10>
3763 COND105
3764                     <FRAME '\1aOCEMIT>
3765                     <PUSH 'PUSH>
3766                     <PUSH 'TP*>
3767                     <PUSH '@>
3768                     <NTHUU ![94 98 97 96 102 105 104 103!] TEMP9 = STACK (TYPE FIX)>
3769                     <DEAD TEMP9>
3770                     <CALL '\1aOCEMIT 4>
3771                     <GVAL 'WINNING-VICTIM = TEMP10>
3772                     <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE125>
3773                     <DEAD TEMP10>
3774                     <GVAL 'STACK-DEPTH = TEMP10>
3775                     <ADD TEMP10 2 = TEMP10 (TYPE FIX)>
3776                     <SETG 'STACK-DEPTH TEMP10>
3777                     <DEAD TEMP10>
3778 PHRASE125
3779                     <FRAME '\1aOCEMIT>
3780                     <PUSH 'SKIPN>
3781                     <PUSH (TP*)>
3782                     <CALL '\1aOCEMIT 2>
3783                     <FRAME '\1aOCEMIT>
3784                     <PUSH 'SETZM>
3785                     <PUSH -1>
3786                     <PUSH (TP*)>
3787                     <CALL '\1aOCEMIT 3 = TEMP16>
3788                     <RETURN TEMP16>
3789                     <DEAD TEMP16>
3790 PHRASE104
3791                     <FRAME '\1aASSIGN-AC>
3792                     <PUSH VAL6>
3793                     <DEAD VAL6>
3794                     <PUSH 'BOTH>
3795                     <PUSH 'T>
3796                     <CALL '\1aASSIGN-AC 3 = VAL6>
3797                     <VEQUAL? ARG15 'TBIND - PHRASE131>
3798                     <FRAME '\1aOCEMIT>
3799                     <PUSH 'MOVE>
3800                     <PUSH VAL6>
3801                     <SET TEMP16 2 (TYPE FIX)>
3802                     <SFRAME 'TYPE-WORD>
3803                     <PUSH 'LBIND>
3804                     <SCALL '\1aTYPE-WORD 1 = TEMP10 + TAG132 TEMP16>
3805                     <LOOP (TEMP10 TYPE VALUE LENGTH) (TEMP16 VALUE)>
3806 TAG134
3807                     <INTGO>
3808                     <EMPTY? TEMP10 + TAG132>
3809                     <NTH1 TEMP10 = STACK>
3810                     <REST1 TEMP10 = TEMP10>
3811                     <ADD TEMP16 1 = TEMP16 (TYPE FIX)>
3812                     <JUMP + TAG134>
3813 TAG132
3814                     <CALL '\1aOCEMIT TEMP16>
3815                     <DEAD TEMP16>
3816                     <JUMP + COND130>
3817 PHRASE131
3818                     <SET TEMP16 [PURVEC DBVEC] (TYPE VECTOR)>
3819                     <LOOP (ARG15 VALUE) (TEMP16 LENGTH VALUE)>
3820 TAG138
3821                     <NTHUV TEMP16 1 = TEMP10>
3822                     <VEQUAL? TEMP10 ARG15 + TAG137>
3823                     <DEAD TEMP10>
3824                     <RESTUV TEMP16 1 = TEMP16 (TYPE VECTOR)>
3825                     <EMPUV? TEMP16 - TAG138>
3826                     <JUMP + PHRASE136>
3827 TAG137
3828                     <FRAME '\1aOCEMIT>
3829                     <PUSH 'MOVE>
3830                     <PUSH VAL6>
3831                     <SET TEMP10 2 (TYPE FIX)>
3832                     <SFRAME 'TYPE-WORD>
3833                     <PUSH 'LIST>
3834                     <SCALL '\1aTYPE-WORD 1 = TEMP16 + TAG140 TEMP10>
3835                     <LOOP (TEMP16 TYPE VALUE LENGTH) (TEMP10 VALUE)>
3836 TAG142
3837                     <INTGO>
3838                     <EMPTY? TEMP16 + TAG140>
3839                     <NTH1 TEMP16 = STACK>
3840                     <REST1 TEMP16 = TEMP16>
3841                     <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
3842                     <JUMP + TAG142>
3843 TAG140
3844                     <CALL '\1aOCEMIT TEMP10>
3845                     <DEAD TEMP10>
3846                     <JUMP + COND130>
3847 PHRASE136
3848                     <FRAME '\1aOCEMIT>
3849                     <PUSH 'MOVE>
3850                     <PUSH VAL6>
3851                     <SET TEMP16 2 (TYPE FIX)>
3852                     <SFRAME 'TYPE-WORD>
3853                     <PUSH 'ATOM>
3854                     <SCALL '\1aTYPE-WORD 1 = TEMP10 + TAG144 TEMP16>
3855                     <LOOP (TEMP10 TYPE VALUE LENGTH) (TEMP16 VALUE)>
3856 TAG146
3857                     <INTGO>
3858                     <EMPTY? TEMP10 + TAG144>
3859                     <NTH1 TEMP10 = STACK>
3860                     <REST1 TEMP10 = TEMP10>
3861                     <ADD TEMP16 1 = TEMP16 (TYPE FIX)>
3862                     <JUMP + TAG146>
3863 TAG144
3864                     <CALL '\1aOCEMIT TEMP16>
3865                     <DEAD TEMP16>
3866 COND130
3867                     <FRAME '\1aOCEMIT>
3868                     <PUSH 'SKIPN>
3869                     <FRAME '\1aNEXT-AC>
3870                     <PUSH VAL6>
3871                     <CALL '\1aNEXT-AC 1 = STACK>
3872                     <PUSH '@>
3873                     <NTHUU ![94 98 97 96 102 105 104 103!] TEMP9 = STACK (TYPE FIX)>
3874                     <DEAD TEMP9>
3875                     <CALL '\1aOCEMIT 4>
3876                     <FRAME '\1aOCEMIT>
3877                     <PUSH 'MOVEI>
3878                     <PUSH VAL6>
3879                     <DEAD VAL6>
3880                     <PUSH 0>
3881                     <CALL '\1aOCEMIT 3 = TEMP16>
3882                     <RETURN TEMP16>
3883                     <DEAD TEMP16>
3884 PHRASE98
3885                     <SET TEMP16 [ENVIR ARGV] (TYPE VECTOR)>
3886                     <LOOP (ARG15 VALUE) (TEMP16 LENGTH VALUE)>
3887 TAG153
3888                     <NTHUV TEMP16 1 = TEMP10>
3889                     <VEQUAL? TEMP10 ARG15 + TAG152>
3890                     <DEAD TEMP10>
3891                     <RESTUV TEMP16 1 = TEMP16 (TYPE VECTOR)>
3892                     <EMPUV? TEMP16 - TAG153>
3893                     <JUMP + PHRASE151>
3894 TAG152
3895                     <VEQUAL? VAL6 'STACK - PHRASE156>
3896                     <FRAME '\1aOCEMIT>
3897                     <PUSH 'PUSH>
3898                     <PUSH 'TP*>
3899                     <SET TEMP10 2 (TYPE FIX)>
3900                     <SFRAME 'TYPE-WORD>
3901                     <PUSH 'FALSE>
3902                     <SCALL '\1aTYPE-WORD 1 = TEMP16 + TAG157 TEMP10>
3903                     <LOOP (TEMP16 TYPE VALUE LENGTH) (TEMP10 VALUE)>
3904 TAG159
3905                     <INTGO>
3906                     <EMPTY? TEMP16 + TAG157>
3907                     <NTH1 TEMP16 = STACK>
3908                     <REST1 TEMP16 = TEMP16>
3909                     <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
3910                     <JUMP + TAG159>
3911 TAG157
3912                     <CALL '\1aOCEMIT TEMP10>
3913                     <DEAD TEMP10>
3914                     <FRAME '\1aOCEMIT>
3915                     <PUSH 'PUSH>
3916                     <PUSH 'TP*>
3917                     <SET TEMP16 2 (TYPE FIX)>
3918                     <SFRAME 'OBJ-VAL>
3919                     <PUSH 0>
3920                     <SCALL '\1aOBJ-VAL 1 = TEMP10 + TAG161 TEMP16>
3921                     <LOOP (TEMP10 TYPE VALUE LENGTH) (TEMP16 VALUE)>
3922 TAG163
3923                     <INTGO>
3924                     <EMPTY? TEMP10 + TAG161>
3925                     <NTH1 TEMP10 = STACK>
3926                     <REST1 TEMP10 = TEMP10>
3927                     <ADD TEMP16 1 = TEMP16 (TYPE FIX)>
3928                     <JUMP + TAG163>
3929 TAG161
3930                     <CALL '\1aOCEMIT TEMP16>
3931                     <DEAD TEMP16>
3932                     <GVAL 'WINNING-VICTIM = TEMP16>
3933                     <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE167>
3934                     <GVAL 'STACK-DEPTH = TEMP16>
3935                     <ADD TEMP16 2 = TEMP16 (TYPE FIX)>
3936                     <SETG 'STACK-DEPTH TEMP16>
3937                     <RETURN TEMP16>
3938                     <DEAD TEMP16>
3939 PHRASE156
3940                     <FRAME '\1aASSIGN-AC>
3941                     <PUSH VAL6>
3942                     <DEAD VAL6>
3943                     <PUSH 'BOTH>
3944                     <PUSH 'T>
3945                     <CALL '\1aASSIGN-AC 3 = VAL6>
3946                     <FRAME '\1aOCEMIT>
3947                     <PUSH 'MOVE>
3948                     <PUSH VAL6>
3949                     <SET TEMP10 2 (TYPE FIX)>
3950                     <SFRAME 'TYPE-WORD>
3951                     <PUSH 'FALSE>
3952                     <SCALL '\1aTYPE-WORD 1 = TEMP16 + TAG169 TEMP10>
3953                     <LOOP (TEMP16 TYPE VALUE LENGTH) (TEMP10 VALUE)>
3954 TAG171
3955                     <INTGO>
3956                     <EMPTY? TEMP16 + TAG169>
3957                     <NTH1 TEMP16 = STACK>
3958                     <REST1 TEMP16 = TEMP16>
3959                     <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
3960                     <JUMP + TAG171>
3961 TAG169
3962                     <CALL '\1aOCEMIT TEMP10>
3963                     <DEAD TEMP10>
3964                     <FRAME '\1aOCEMIT>
3965                     <PUSH 'MOVEI>
3966                     <FRAME '\1aNEXT-AC>
3967                     <PUSH VAL6>
3968                     <DEAD VAL6>
3969                     <CALL '\1aNEXT-AC 1 = STACK>
3970                     <PUSH 0>
3971                     <CALL '\1aOCEMIT 3 = TEMP16>
3972 PHRASE167
3973                     <RETURN TEMP16>
3974                     <DEAD TEMP16>
3975 PHRASE151
3976                     <VEQUAL? ARG15 'BINDID + BOOL176>
3977                     <VEQUAL? ARG15 'INGC - PHRASE175>
3978 BOOL176
3979                     <VEQUAL? VAL6 'STACK - PHRASE178>
3980                     <FRAME '\1aOCEMIT>
3981                     <PUSH 'PUSH>
3982                     <PUSH 'TP*>
3983                     <SET TEMP16 2 (TYPE FIX)>
3984                     <SFRAME 'TYPE-WORD>
3985                     <PUSH 'FIX>
3986                     <SCALL '\1aTYPE-WORD 1 = TEMP10 + TAG179 TEMP16>
3987                     <LOOP (TEMP10 TYPE VALUE LENGTH) (TEMP16 VALUE)>
3988 TAG181
3989                     <INTGO>
3990                     <EMPTY? TEMP10 + TAG179>
3991                     <NTH1 TEMP10 = STACK>
3992                     <REST1 TEMP10 = TEMP10>
3993                     <ADD TEMP16 1 = TEMP16 (TYPE FIX)>
3994                     <JUMP + TAG181>
3995 TAG179
3996                     <CALL '\1aOCEMIT TEMP16>
3997                     <DEAD TEMP16>
3998                     <FRAME '\1aOCEMIT>
3999                     <PUSH 'PUSH>
4000                     <PUSH 'TP*>
4001                     <PUSH '@>
4002                     <VEQUAL? ARG15 'BINDID - PHRASE185>
4003                     <DEAD ARG15>
4004                     <SET TEMP16 95 (TYPE FIX)>
4005                     <JUMP + PHRASE186>
4006 PHRASE185
4007                     <SET TEMP16 113 (TYPE FIX)>
4008 PHRASE186
4009                     <PUSH TEMP16>
4010                     <DEAD TEMP16>
4011                     <CALL '\1aOCEMIT 4>
4012                     <GVAL 'WINNING-VICTIM = TEMP16>
4013                     <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE189>
4014                     <GVAL 'STACK-DEPTH = TEMP16>
4015                     <ADD TEMP16 2 = TEMP16 (TYPE FIX)>
4016                     <SETG 'STACK-DEPTH TEMP16>
4017                     <RETURN TEMP16>
4018                     <DEAD TEMP16>
4019 PHRASE178
4020                     <FRAME '\1aASSIGN-AC>
4021                     <PUSH VAL6>
4022                     <DEAD VAL6>
4023                     <PUSH 'BOTH>
4024                     <PUSH 'T>
4025                     <CALL '\1aASSIGN-AC 3 = VAL6>
4026                     <FRAME '\1aOCEMIT>
4027                     <PUSH 'MOVSI>
4028                     <PUSH VAL6>
4029                     <SET TEMP10 2 (TYPE FIX)>
4030                     <SFRAME 'TYPE-CODE>
4031                     <PUSH 'FIX>
4032                     <PUSH 'T>
4033                     <SCALL '\1aTYPE-CODE 2 = TEMP16 + TAG191 TEMP10>
4034                     <LOOP (TEMP16 TYPE VALUE LENGTH) (TEMP10 VALUE)>
4035 TAG193
4036                     <INTGO>
4037                     <EMPTY? TEMP16 + TAG191>
4038                     <NTH1 TEMP16 = STACK>
4039                     <REST1 TEMP16 = TEMP16>
4040                     <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
4041                     <JUMP + TAG193>
4042 TAG191
4043                     <CALL '\1aOCEMIT TEMP10>
4044                     <DEAD TEMP10>
4045                     <FRAME '\1aOCEMIT>
4046                     <PUSH 'MOVE>
4047                     <FRAME '\1aNEXT-AC>
4048                     <PUSH VAL6>
4049                     <DEAD VAL6>
4050                     <CALL '\1aNEXT-AC 1 = STACK>
4051                     <PUSH '@>
4052                     <VEQUAL? ARG15 'BINDID - PHRASE198>
4053                     <DEAD ARG15>
4054                     <SET TEMP10 95 (TYPE FIX)>
4055                     <JUMP + PHRASE199>
4056 PHRASE198
4057                     <SET TEMP10 113 (TYPE FIX)>
4058 PHRASE199
4059                     <PUSH TEMP10>
4060                     <DEAD TEMP10>
4061                     <CALL '\1aOCEMIT 4 = TEMP16>
4062 PHRASE189
4063                     <RETURN TEMP16>
4064                     <DEAD TEMP16>
4065 PHRASE175
4066                     <FRAME '\1aMIMOCERR>
4067                     <PUSH 'UNKNOWN-SPECIAL-VARIABLE!-ERRORS>
4068                     <PUSH ARG15>
4069                     <DEAD ARG15>
4070                     <CALL '\1aMIMOCERR 2 = TEMP16>
4071                     <RETURN TEMP16>
4072                     <DEAD TEMP16>
4073                     <END \1aGETS!-MIMOC>
4074 #WORD *5440256352*
4075 <GFCN \1aATIC!-MIMOC ("VALUE" ANY LIST) L5>
4076                     <TEMP TEMP9 TEMP8>
4077                     <INTGO>
4078                     <FRAME '\1aUPDATE-ACS>
4079                     <CALL '\1aUPDATE-ACS 0>
4080                     <FRAME '\1aOCEMIT>
4081                     <PUSH 'MOVE>
4082                     <PUSH 'O1*>
4083                     <SET TEMP9 2 (TYPE FIX)>
4084                     <SFRAME 'OBJ-VAL>
4085                     <NTHL L5 1 = STACK>
4086                     <SCALL '\1aOBJ-VAL 1 = TEMP8 + TAG7 TEMP9>
4087                     <LOOP (TEMP8 TYPE VALUE LENGTH) (TEMP9 VALUE)>
4088 TAG11
4089                     <INTGO>
4090                     <EMPTY? TEMP8 + TAG7>
4091                     <NTH1 TEMP8 = STACK>
4092                     <REST1 TEMP8 = TEMP8>
4093                     <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
4094                     <JUMP + TAG11>
4095 TAG7
4096                     <CALL '\1aOCEMIT TEMP9>
4097                     <DEAD TEMP9>
4098                     <FRAME '\1aPUSHJ>
4099                     <PUSH 'ATIC>
4100                     <RESTL L5 1 = TEMP9 (TYPE LIST)>
4101                     <DEAD L5>
4102                     <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
4103                     <NTHL TEMP9 1 = STACK>
4104                     <DEAD TEMP9>
4105                     <CALL '\1aPUSHJ 2 = TEMP9>
4106                     <RETURN TEMP9>
4107                     <DEAD TEMP9>
4108                     <END \1aATIC!-MIMOC>
4109 #WORD *17575266253*
4110 <GFCN \1aSETS!-MIMOC ("VALUE" ANY LIST) L4>
4111                     <TEMP ARG5 VAR6:ATOM VAL7 TEMP15>
4112                     <INTGO>
4113                     <NTHL L4 1 = ARG5 (TYPE FORM)>
4114                     <RESTL ARG5 1 = ARG5 (TYPE LIST)>
4115                     <NTHL ARG5 1 = VAR6 (TYPE ATOM)>
4116                     <DEAD ARG5>
4117                     <RESTL L4 1 = ARG5 (TYPE LIST)>
4118                     <NTHL ARG5 1 = VAL7>
4119                     <DEAD ARG5>
4120                     <SET ARG5 L4>
4121                     <LOOP (ARG5 VALUE)>
4122 TAG13
4123                     <NTHL ARG5 1 = TEMP15>
4124                     <TYPE? TEMP15 <TYPE-CODE ATOM> - TAG14>
4125                     <VEQUAL? TEMP15 '= + TAG12>
4126                     <DEAD TEMP15>
4127 TAG14
4128                     <RESTL ARG5 1 = ARG5 (TYPE LIST)>
4129                     <EMPL? ARG5 - TAG13>
4130                     <JUMP + PHRASE11>
4131 TAG12
4132                     <FRAME '\1aERROR>
4133                     <PUSH 'CANT-ASSIGN-RESULT-OF-SETS!-ERRORS>
4134                     <PUSH L4>
4135                     <DEAD L4>
4136                     <CALL '\1aERROR 2>
4137 PHRASE11
4138                     <VEQUAL? VAR6 'BIND - PHRASE18>
4139                     <FRAME '\1aOCEMIT>
4140                     <PUSH 'MOVE>
4141                     <PUSH 'SP*>
4142                     <SET TEMP15 2 (TYPE FIX)>
4143                     <SFRAME 'OBJ-VAL>
4144                     <PUSH VAL7>
4145                     <DEAD VAL7>
4146                     <SCALL '\1aOBJ-VAL 1 = ARG5 + TAG19 TEMP15>
4147                     <LOOP (ARG5 TYPE VALUE LENGTH) (TEMP15 VALUE)>
4148 TAG21
4149                     <INTGO>
4150                     <EMPTY? ARG5 + TAG19>
4151                     <NTH1 ARG5 = STACK>
4152                     <REST1 ARG5 = ARG5>
4153                     <ADD TEMP15 1 = TEMP15 (TYPE FIX)>
4154                     <JUMP + TAG21>
4155 TAG19
4156                     <CALL '\1aOCEMIT TEMP15 = TEMP15>
4157                     <RETURN TEMP15>
4158                     <DEAD TEMP15>
4159 PHRASE18
4160                     <VEQUAL? VAR6 'ICALL - PHRASE23>
4161                     <FRAME '\1aIN-AC?>
4162                     <PUSH VAL7>
4163                     <PUSH 'VALUE>
4164                     <CALL '\1aIN-AC? 2 = ARG5>
4165                     <TYPE? ARG5 <TYPE-CODE FALSE> - PHRASE25>
4166                     <FRAME '\1aGET-INTO-ACS>
4167                     <PUSH VAL7>
4168                     <DEAD VAL7>
4169                     <PUSH 'VALUE>
4170                     <SET ARG5 'O1* (TYPE ATOM)>
4171                     <PUSH ARG5>
4172                     <CALL '\1aGET-INTO-ACS 3>
4173 PHRASE25
4174                     <FRAME '\1aOCEMIT>
4175                     <PUSH 'MOVEM>
4176                     <PUSH ARG5>
4177                     <DEAD ARG5>
4178                     <PUSH '@>
4179                     <PUSH 103>
4180                     <CALL '\1aOCEMIT 4 = TEMP15>
4181                     <RETURN TEMP15>
4182                     <DEAD TEMP15>
4183 PHRASE23
4184                     <VEQUAL? VAR6 'INGC - PHRASE29>
4185                     <FRAME '\1aIN-AC?>
4186                     <PUSH VAL7>
4187                     <PUSH 'VALUE>
4188                     <CALL '\1aIN-AC? 2 = ARG5>
4189                     <TYPE? ARG5 <TYPE-CODE FALSE> - PHRASE31>
4190                     <FRAME '\1aGET-INTO-ACS>
4191                     <PUSH VAL7>
4192                     <DEAD VAL7>
4193                     <PUSH 'VALUE>
4194                     <SET ARG5 'O1* (TYPE ATOM)>
4195                     <PUSH ARG5>
4196                     <CALL '\1aGET-INTO-ACS 3>
4197 PHRASE31
4198                     <FRAME '\1aOCEMIT>
4199                     <PUSH 'MOVEM>
4200                     <PUSH ARG5>
4201                     <DEAD ARG5>
4202                     <PUSH '@>
4203                     <PUSH 113>
4204                     <CALL '\1aOCEMIT 4 = TEMP15>
4205                     <RETURN TEMP15>
4206                     <DEAD TEMP15>
4207 PHRASE29
4208                     <VEQUAL? VAR6 'ECALL - PHRASE35>
4209                     <FRAME '\1aIN-AC?>
4210                     <PUSH VAL7>
4211                     <PUSH 'VALUE>
4212                     <CALL '\1aIN-AC? 2 = ARG5>
4213                     <TYPE? ARG5 <TYPE-CODE FALSE> - PHRASE37>
4214                     <FRAME '\1aGET-INTO-ACS>
4215                     <PUSH VAL7>
4216                     <DEAD VAL7>
4217                     <PUSH 'VALUE>
4218                     <SET ARG5 'O1* (TYPE ATOM)>
4219                     <PUSH ARG5>
4220                     <CALL '\1aGET-INTO-ACS 3>
4221 PHRASE37
4222                     <FRAME '\1aOCEMIT>
4223                     <PUSH 'MOVEM>
4224                     <PUSH ARG5>
4225                     <DEAD ARG5>
4226                     <PUSH '@>
4227                     <PUSH 104>
4228                     <CALL '\1aOCEMIT 4 = TEMP15>
4229                     <RETURN TEMP15>
4230                     <DEAD TEMP15>
4231 PHRASE35
4232                     <VEQUAL? VAR6 'NCALL - PHRASE41>
4233                     <FRAME '\1aIN-AC?>
4234                     <PUSH VAL7>
4235                     <PUSH 'VALUE>
4236                     <CALL '\1aIN-AC? 2 = ARG5>
4237                     <TYPE? ARG5 <TYPE-CODE FALSE> - PHRASE43>
4238                     <FRAME '\1aGET-INTO-ACS>
4239                     <PUSH VAL7>
4240                     <DEAD VAL7>
4241                     <PUSH 'VALUE>
4242                     <SET ARG5 'O1* (TYPE ATOM)>
4243                     <PUSH ARG5>
4244                     <CALL '\1aGET-INTO-ACS 3>
4245 PHRASE43
4246                     <FRAME '\1aOCEMIT>
4247                     <PUSH 'MOVEM>
4248                     <PUSH ARG5>
4249                     <DEAD ARG5>
4250                     <PUSH '@>
4251                     <PUSH 105>
4252                     <CALL '\1aOCEMIT 4 = TEMP15>
4253                     <RETURN TEMP15>
4254                     <DEAD TEMP15>
4255 PHRASE41
4256                     <VEQUAL? VAR6 'RUNINT - PHRASE47>
4257                     <FRAME '\1aUPDATE-ACS>
4258                     <CALL '\1aUPDATE-ACS 0>
4259                     <FRAME '\1aOCEMIT>
4260                     <PUSH 'MOVE>
4261                     <PUSH 'O1*>
4262                     <SET TEMP15 2 (TYPE FIX)>
4263                     <SFRAME 'OBJ-VAL>
4264                     <PUSH VAL7>
4265                     <DEAD VAL7>
4266                     <SCALL '\1aOBJ-VAL 1 = ARG5 + TAG49 TEMP15>
4267                     <LOOP (ARG5 TYPE VALUE LENGTH) (TEMP15 VALUE)>
4268 TAG52
4269                     <INTGO>
4270                     <EMPTY? ARG5 + TAG49>
4271                     <NTH1 ARG5 = STACK>
4272                     <REST1 ARG5 = ARG5>
4273                     <ADD TEMP15 1 = TEMP15 (TYPE FIX)>
4274                     <JUMP + TAG52>
4275 TAG49
4276                     <CALL '\1aOCEMIT TEMP15>
4277                     <DEAD TEMP15>
4278                     <FRAME '\1aPUSHJ>
4279                     <PUSH 'IENABLE>
4280                     <CALL '\1aPUSHJ 1 = TEMP15>
4281                     <RETURN TEMP15>
4282                     <DEAD TEMP15>
4283 PHRASE47
4284                     <VEQUAL? VAR6 'UWATM - PHRASE55>
4285                     <FRAME '\1aOCEMIT>
4286                     <PUSH 'MOVE>
4287                     <PUSH 'O1*>
4288                     <SET ARG5 2 (TYPE FIX)>
4289                     <SFRAME 'OBJ-VAL>
4290                     <PUSH VAL7>
4291                     <DEAD VAL7>
4292                     <SCALL '\1aOBJ-VAL 1 = TEMP15 + TAG56 ARG5>
4293                     <LOOP (TEMP15 TYPE VALUE LENGTH) (ARG5 VALUE)>
4294 TAG58
4295                     <INTGO>
4296                     <EMPTY? TEMP15 + TAG56>
4297                     <NTH1 TEMP15 = STACK>
4298                     <REST1 TEMP15 = TEMP15>
4299                     <ADD ARG5 1 = ARG5 (TYPE FIX)>
4300                     <JUMP + TAG58>
4301 TAG56
4302                     <CALL '\1aOCEMIT ARG5>
4303                     <DEAD ARG5>
4304                     <FRAME '\1aPUSHJ>
4305                     <PUSH 'SUNWAT>
4306                     <CALL '\1aPUSHJ 1 = TEMP15>
4307                     <RETURN TEMP15>
4308                     <DEAD TEMP15>
4309 PHRASE55
4310                     <VEQUAL? VAR6 'PAGPTR - PHRASE61>
4311                     <FRAME '\1aIN-AC?>
4312                     <PUSH VAL7>
4313                     <PUSH 'BOTH>
4314                     <CALL '\1aIN-AC? 2 = ARG5>
4315                     <TYPE? ARG5 <TYPE-CODE FALSE> - PHRASE63>
4316                     <FRAME '\1aGET-INTO-ACS>
4317                     <PUSH VAL7>
4318                     <DEAD VAL7>
4319                     <PUSH 'BOTH>
4320                     <SET ARG5 'O1* (TYPE ATOM)>
4321                     <PUSH ARG5>
4322                     <CALL '\1aGET-INTO-ACS 3>
4323 PHRASE63
4324                     <FRAME '\1aOCEMIT>
4325                     <PUSH 'DMOVEM>
4326                     <PUSH ARG5>
4327                     <DEAD ARG5>
4328                     <PUSH '@>
4329                     <PUSH 101>
4330                     <CALL '\1aOCEMIT 4 = TEMP15>
4331                     <RETURN TEMP15>
4332                     <DEAD TEMP15>
4333 PHRASE61
4334                     <VEQUAL? VAR6 'MINF - PHRASE67>
4335                     <FRAME '\1aIN-AC?>
4336                     <PUSH VAL7>
4337                     <PUSH 'VALUE>
4338                     <CALL '\1aIN-AC? 2 = ARG5>
4339                     <TYPE? ARG5 <TYPE-CODE FALSE> - PHRASE69>
4340                     <FRAME '\1aGET-INTO-ACS>
4341                     <PUSH VAL7>
4342                     <DEAD VAL7>
4343                     <PUSH 'VALUE>
4344                     <SET ARG5 'O1* (TYPE ATOM)>
4345                     <PUSH ARG5>
4346                     <CALL '\1aGET-INTO-ACS 3>
4347 PHRASE69
4348                     <FRAME '\1aOCEMIT>
4349                     <PUSH 'MOVEM>
4350                     <PUSH ARG5>
4351                     <DEAD ARG5>
4352                     <PUSH '@>
4353                     <PUSH 99>
4354                     <CALL '\1aOCEMIT 4 = TEMP15>
4355                     <RETURN TEMP15>
4356                     <DEAD TEMP15>
4357 PHRASE67
4358                     <VEQUAL? VAR6 'MAPPER - PHRASE73>
4359                     <FRAME '\1aIN-AC?>
4360                     <PUSH VAL7>
4361                     <PUSH 'VALUE>
4362                     <CALL '\1aIN-AC? 2 = ARG5>
4363                     <TYPE? ARG5 <TYPE-CODE FALSE> - PHRASE75>
4364                     <FRAME '\1aGET-INTO-ACS>
4365                     <PUSH VAL7>
4366                     <DEAD VAL7>
4367                     <PUSH 'VALUE>
4368                     <SET ARG5 'O1* (TYPE ATOM)>
4369                     <PUSH ARG5>
4370                     <CALL '\1aGET-INTO-ACS 3>
4371 PHRASE75
4372                     <FRAME '\1aOCEMIT>
4373                     <PUSH 'MOVEM>
4374                     <PUSH ARG5>
4375                     <DEAD ARG5>
4376                     <PUSH '@>
4377                     <PUSH 96>
4378                     <CALL '\1aOCEMIT 4 = TEMP15>
4379                     <RETURN TEMP15>
4380                     <DEAD TEMP15>
4381 PHRASE73
4382                     <VEQUAL? VAR6 'PURVEC - PHRASE79>
4383                     <FRAME '\1aIN-AC?>
4384                     <PUSH VAL7>
4385                     <PUSH 'VALUE>
4386                     <CALL '\1aIN-AC? 2 = ARG5>
4387                     <TYPE? ARG5 <TYPE-CODE FALSE> - PHRASE81>
4388                     <FRAME '\1aGET-INTO-ACS>
4389                     <PUSH VAL7>
4390                     <DEAD VAL7>
4391                     <PUSH 'VALUE>
4392                     <SET ARG5 'O1* (TYPE ATOM)>
4393                     <PUSH ARG5>
4394                     <CALL '\1aGET-INTO-ACS 3>
4395 PHRASE81
4396                     <FRAME '\1aOCEMIT>
4397                     <PUSH 'MOVEM>
4398                     <PUSH ARG5>
4399                     <DEAD ARG5>
4400                     <PUSH '@>
4401                     <PUSH 97>
4402                     <CALL '\1aOCEMIT 4 = TEMP15>
4403                     <RETURN TEMP15>
4404                     <DEAD TEMP15>
4405 PHRASE79
4406                     <VEQUAL? VAR6 'DBVEC - PHRASE85>
4407                     <FRAME '\1aIN-AC?>
4408                     <PUSH VAL7>
4409                     <PUSH 'VALUE>
4410                     <CALL '\1aIN-AC? 2 = ARG5>
4411                     <TYPE? ARG5 <TYPE-CODE FALSE> - PHRASE87>
4412                     <FRAME '\1aGET-INTO-ACS>
4413                     <PUSH VAL7>
4414                     <DEAD VAL7>
4415                     <PUSH 'VALUE>
4416                     <SET ARG5 'O1* (TYPE ATOM)>
4417                     <PUSH ARG5>
4418                     <CALL '\1aGET-INTO-ACS 3>
4419 PHRASE87
4420                     <FRAME '\1aOCEMIT>
4421                     <PUSH 'MOVEM>
4422                     <PUSH ARG5>
4423                     <DEAD ARG5>
4424                     <PUSH '@>
4425                     <PUSH 98>
4426                     <CALL '\1aOCEMIT 4 = TEMP15>
4427                     <RETURN TEMP15>
4428                     <DEAD TEMP15>
4429 PHRASE85
4430                     <VEQUAL? VAR6 'OBLIST - PHRASE91>
4431                     <FRAME '\1aIN-AC?>
4432                     <PUSH VAL7>
4433                     <PUSH 'BOTH>
4434                     <CALL '\1aIN-AC? 2 = ARG5>
4435                     <TYPE? ARG5 <TYPE-CODE FALSE> - PHRASE93>
4436                     <FRAME '\1aGET-INTO-ACS>
4437                     <PUSH VAL7>
4438                     <DEAD VAL7>
4439                     <PUSH 'BOTH>
4440                     <SET ARG5 'O1* (TYPE ATOM)>
4441                     <PUSH ARG5>
4442                     <CALL '\1aGET-INTO-ACS 3>
4443 PHRASE93
4444                     <FRAME '\1aOCEMIT>
4445                     <PUSH 'DMOVEM>
4446                     <PUSH ARG5>
4447                     <DEAD ARG5>
4448                     <PUSH '@>
4449                     <PUSH 100>
4450                     <CALL '\1aOCEMIT 4 = TEMP15>
4451                     <RETURN TEMP15>
4452                     <DEAD TEMP15>
4453 PHRASE91
4454                     <VEQUAL? VAR6 'TBIND - PHRASE97>
4455                     <FRAME '\1aIN-AC?>
4456                     <PUSH VAL7>
4457                     <PUSH 'VALUE>
4458                     <CALL '\1aIN-AC? 2 = ARG5>
4459                     <TYPE? ARG5 <TYPE-CODE FALSE> - PHRASE99>
4460                     <FRAME '\1aGET-INTO-ACS>
4461                     <PUSH VAL7>
4462                     <DEAD VAL7>
4463                     <PUSH 'VALUE>
4464                     <SET ARG5 'O1* (TYPE ATOM)>
4465                     <PUSH ARG5>
4466                     <CALL '\1aGET-INTO-ACS 3>
4467 PHRASE99
4468                     <FRAME '\1aOCEMIT>
4469                     <PUSH 'MOVEM>
4470                     <PUSH ARG5>
4471                     <DEAD ARG5>
4472                     <PUSH '@>
4473                     <PUSH 94>
4474                     <CALL '\1aOCEMIT 4 = TEMP15>
4475                     <RETURN TEMP15>
4476                     <DEAD TEMP15>
4477 PHRASE97
4478                     <VEQUAL? VAR6 'BINDID - PHRASE103>
4479                     <FRAME '\1aIN-AC?>
4480                     <PUSH VAL7>
4481                     <PUSH 'VALUE>
4482                     <CALL '\1aIN-AC? 2 = ARG5>
4483                     <TYPE? ARG5 <TYPE-CODE FALSE> - PHRASE105>
4484                     <FRAME '\1aGET-INTO-ACS>
4485                     <PUSH VAL7>
4486                     <DEAD VAL7>
4487                     <PUSH 'VALUE>
4488                     <SET ARG5 'O1* (TYPE ATOM)>
4489                     <PUSH ARG5>
4490                     <CALL '\1aGET-INTO-ACS 3>
4491 PHRASE105
4492                     <FRAME '\1aOCEMIT>
4493                     <PUSH 'MOVEM>
4494                     <PUSH ARG5>
4495                     <DEAD ARG5>
4496                     <PUSH '@>
4497                     <PUSH 95>
4498                     <CALL '\1aOCEMIT 4 = TEMP15>
4499                     <RETURN TEMP15>
4500                     <DEAD TEMP15>
4501 PHRASE103
4502                     <FRAME '\1aMIMOCERR>
4503                     <PUSH 'UNKNOWN-SPECIAL-VARIABLE!-ERRORS>
4504                     <PUSH VAR6>
4505                     <DEAD VAR6>
4506                     <CALL '\1aMIMOCERR 2 = TEMP15>
4507                     <RETURN TEMP15>
4508                     <DEAD TEMP15>
4509                     <END \1aSETS!-MIMOC>
4510 #WORD *36734242257*
4511 <GFCN \1aJUMP!-MIMOC ("VALUE" ANY LIST) L5>
4512                     <TEMP TEMP7>
4513                     <INTGO>
4514                     <FRAME '\1aLABEL-UPDATE-ACS>
4515                     <RESTL L5 1 = TEMP7 (TYPE LIST)>
4516                     <NTHL TEMP7 1 = STACK>
4517                     <DEAD TEMP7>
4518                     <PUSH 'T>
4519                     <CALL '\1aLABEL-UPDATE-ACS 2>
4520                     <SETG 'LAST-UNCON 'T>
4521                     <FRAME '\1aOCEMIT>
4522                     <PUSH 'JRST>
4523                     <FRAME '\1aXJUMP>
4524                     <RESTL L5 1 = TEMP7 (TYPE LIST)>
4525                     <DEAD L5>
4526                     <NTHL TEMP7 1 = STACK>
4527                     <DEAD TEMP7>
4528                     <CALL '\1aXJUMP 1 = STACK>
4529                     <CALL '\1aOCEMIT 2 = TEMP7>
4530                     <RETURN TEMP7>
4531                     <DEAD TEMP7>
4532                     <END \1aJUMP!-MIMOC>
4533 <NEWTYPE GFRM ATOM>
4534
4535 <NEWTYPE GCAL ATOM>
4536
4537 <NEWTYPE SGFRM ATOM>
4538
4539 <SETG GLUE-FRAME 100>
4540
4541 #WORD *17543015021*
4542 <GFCN \1aSFRAME!-MIMOC ("VALUE" <OR FALSE FIX> ANY) L5>
4543                     <TEMP TEMP7>
4544                     <INTGO>
4545                     <FRAME '\1aFRAME!-MIMOC>
4546                     <PUSH L5>
4547                     <DEAD L5>
4548                     <PUSH 'T>
4549                     <CALL '\1aFRAME!-MIMOC 2 = TEMP7>
4550                     <RETURN TEMP7>
4551                     <DEAD TEMP7>
4552                     <END \1aSFRAME!-MIMOC>
4553 #WORD *7364160064*
4554 <GFCN \1aFRAME!-MIMOC ("VALUE" <OR FALSE FIX> LIST "OPTIONAL" ANY) L6 SEG7>
4555                     <OPT-DISPATCH 1 %<> OPT4 OPT5>
4556 OPT4
4557                     <PUSH %<>>
4558 OPT5
4559                     <TEMP TEMP14 NM9>
4560                     <INTGO>
4561                     <GVAL 'GLUE-MODE = TEMP14>
4562                     <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE12>
4563                     <DEAD TEMP14>
4564                     <EMPL? L6 + PHRASE12 (TYPE LIST)>
4565                     <NTHL L6 1 = TEMP14>
4566                     <TYPE? TEMP14 <TYPE-CODE FORM> + PHRASE12>
4567                     <DEAD TEMP14>
4568                     <GVAL 'SURVIVOR-MODE = TEMP14>
4569                     <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE16>
4570                     <DEAD TEMP14>
4571                     <FRAME '\1aFIND-CALL>
4572                     <RESTL L6 1 = TEMP14 (TYPE LIST)>
4573                     <NTHL TEMP14 1 = NM9>
4574                     <DEAD TEMP14>
4575                     <PUSH NM9>
4576                     <GVAL 'PRE-NAMES = STACK>
4577                     <CALL '\1aFIND-CALL 2 = TEMP14>
4578                     <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE16>
4579                     <FRAME '\1aGETPROP>
4580                     <PUSH TEMP14>
4581                     <DEAD TEMP14>
4582                     <PUSH 'NDFRM>
4583                     <CALL '\1aGETPROP 2 = TEMP14>
4584                     <TYPE? TEMP14 <TYPE-CODE FALSE> - PHRASE16>
4585                     <DEAD TEMP14>
4586                     <FRAME '\1aFIND-OPT>
4587                     <PUSH NM9>
4588                     <GVAL 'PRE-OPTS = STACK>
4589                     <CALL '\1aFIND-OPT 2 = TEMP14>
4590                     <TYPE? TEMP14 <TYPE-CODE FALSE> - PHRASE16>
4591                     <DEAD TEMP14>
4592                     <FRAME '\1aSURVIVOR?>
4593                     <PUSH NM9>
4594                     <DEAD NM9>
4595                     <CALL '\1aSURVIVOR? 1 = TEMP14>
4596                     <TYPE? TEMP14 <TYPE-CODE FALSE> - PHRASE16>
4597                     <DEAD TEMP14>
4598                     <FRAME '\1aOCEMIT>
4599                     <PUSH 'PUSH>
4600                     <PUSH 'TP*>
4601                     <SET NM9 2 (TYPE FIX)>
4602                     <SFRAME 'TYPE-WORD>
4603                     <PUSH 'FIX>
4604                     <SCALL '\1aTYPE-WORD 1 = TEMP14 + TAG22 NM9>
4605                     <LOOP (TEMP14 TYPE VALUE LENGTH) (NM9 VALUE)>
4606 TAG25
4607                     <INTGO>
4608                     <EMPTY? TEMP14 + TAG22>
4609                     <NTH1 TEMP14 = STACK>
4610                     <REST1 TEMP14 = TEMP14>
4611                     <ADD NM9 1 = NM9 (TYPE FIX)>
4612                     <JUMP + TAG25>
4613 TAG22
4614                     <CALL '\1aOCEMIT NM9>
4615                     <DEAD NM9>
4616                     <TYPE? SEG7 <TYPE-CODE FALSE> + PHRASE28>
4617                     <DEAD SEG7>
4618                     <FRAME '\1aOCEMIT>
4619                     <NTHL L6 1 = NM9>
4620                     <DEAD L6>
4621                     <CHTYPE NM9 <TYPE-CODE SGFRM> = STACK>
4622                     <DEAD NM9>
4623                     <PUSH 'T>
4624                     <CALL '\1aOCEMIT 2>
4625                     <JUMP + PHRASE30>
4626 PHRASE28
4627                     <FRAME '\1aOCEMIT>
4628                     <NTHL L6 1 = NM9>
4629                     <DEAD L6>
4630                     <CHTYPE NM9 <TYPE-CODE GFRM> = STACK>
4631                     <DEAD NM9>
4632                     <PUSH 'T>
4633                     <CALL '\1aOCEMIT 2>
4634 PHRASE30
4635                     <GVAL 'PASS1 = NM9>
4636                     <TYPE? NM9 <TYPE-CODE FALSE> - PHRASE33>
4637                     <DEAD NM9>
4638                     <FRAME '\1aCONST-ADD-FRM>
4639                     <CALL '\1aCONST-ADD-FRM 0>
4640 PHRASE33
4641                     <GVAL 'WINNING-VICTIM = NM9>
4642                     <TYPE? NM9 <TYPE-CODE FALSE> + PHRASE53>
4643                     <GVAL 'STACK-DEPTH = TEMP14>
4644                     <ADD TEMP14 2 = TEMP14 (TYPE FIX)>
4645                     <SETG 'STACK-DEPTH TEMP14>
4646                     <RETURN TEMP14>
4647                     <DEAD TEMP14>
4648 PHRASE16
4649                     <FRAME '\1aFLUSH-AC>
4650                     <PUSH 'T*>
4651                     <CALL '\1aFLUSH-AC 1>
4652                     <FRAME '\1aMUNGED-AC>
4653                     <PUSH 'T*>
4654                     <CALL '\1aMUNGED-AC 1>
4655                     <FRAME '\1aOCEMIT>
4656                     <PUSH 'SKIPL>
4657                     <PUSH 'T*>
4658                     <PUSH -1>
4659                     <PUSH (F*)>
4660                     <CALL '\1aOCEMIT 4>
4661                     <FRAME '\1aOCEMIT>
4662                     <PUSH 'HRROI>
4663                     <PUSH 'T*>
4664                     <PUSH (F*)>
4665                     <CALL '\1aOCEMIT 3>
4666                     <FRAME '\1aOCEMIT>
4667                     <PUSH 'PUSH>
4668                     <PUSH 'TP*>
4669                     <PUSH 'T*>
4670                     <CALL '\1aOCEMIT 3>
4671                     <TYPE? SEG7 <TYPE-CODE FALSE> + PHRASE44>
4672                     <DEAD SEG7>
4673                     <FRAME '\1aOCEMIT>
4674                     <NTHL L6 1 = TEMP14>
4675                     <DEAD L6>
4676                     <CHTYPE TEMP14 <TYPE-CODE SGFRM> = STACK>
4677                     <DEAD TEMP14>
4678                     <PUSH 'T>
4679                     <CALL '\1aOCEMIT 2>
4680                     <JUMP + PHRASE46>
4681 PHRASE44
4682                     <FRAME '\1aOCEMIT>
4683                     <NTHL L6 1 = TEMP14>
4684                     <DEAD L6>
4685                     <CHTYPE TEMP14 <TYPE-CODE GFRM> = STACK>
4686                     <DEAD TEMP14>
4687                     <PUSH 'T>
4688                     <CALL '\1aOCEMIT 2>
4689 PHRASE46
4690                     <GVAL 'PASS1 = TEMP14>
4691                     <TYPE? TEMP14 <TYPE-CODE FALSE> - PHRASE49>
4692                     <DEAD TEMP14>
4693                     <FRAME '\1aCONST-ADD-FRM>
4694                     <CALL '\1aCONST-ADD-FRM 0>
4695 PHRASE49
4696                     <FRAME '\1aOCEMIT>
4697                     <PUSH 'PUSH>
4698                     <PUSH 'TP*>
4699                     <PUSH 'F*>
4700                     <CALL '\1aOCEMIT 3>
4701                     <GVAL 'WINNING-VICTIM = NM9>
4702                     <TYPE? NM9 <TYPE-CODE FALSE> + PHRASE76>
4703                     <GVAL 'STACK-DEPTH = TEMP14>
4704                     <ADD TEMP14 3 = TEMP14 (TYPE FIX)>
4705                     <SETG 'STACK-DEPTH TEMP14>
4706                     <SET NM9 TEMP14>
4707                     <DEAD TEMP14>
4708 PHRASE53
4709                     <RETURN NM9>
4710                     <DEAD NM9>
4711 PHRASE12
4712                     <EMPL? L6 + PHRASE54 (TYPE LIST)>
4713                     <NTHL L6 1 = NM9>
4714                     <TYPE? NM9 <TYPE-CODE FORM> + PHRASE54>
4715                     <FRAME '\1aSUBRIFY?>
4716                     <RESTL L6 1 = TEMP14 (TYPE LIST)>
4717                     <DEAD L6>
4718                     <NTHL TEMP14 1 = STACK>
4719                     <DEAD TEMP14>
4720                     <CALL '\1aSUBRIFY? 1 = TEMP14>
4721                     <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE54>
4722                     <DEAD TEMP14>
4723                     <FRAME '\1aFLUSH-AC>
4724                     <PUSH 'T*>
4725                     <CALL '\1aFLUSH-AC 1>
4726                     <FRAME '\1aMUNGED-AC>
4727                     <PUSH 'T*>
4728                     <CALL '\1aMUNGED-AC 1>
4729                     <FRAME '\1aOCEMIT>
4730                     <CHTYPE NM9 <TYPE-CODE SBFRM> = STACK>
4731                     <DEAD NM9>
4732                     <PUSH 'T>
4733                     <CALL '\1aOCEMIT 2>
4734                     <GVAL 'PASS1 = TEMP14>
4735                     <TYPE? TEMP14 <TYPE-CODE FALSE> - PHRASE61>
4736                     <DEAD TEMP14>
4737                     <FRAME '\1aCONST-ADD-FRM>
4738                     <CALL '\1aCONST-ADD-FRM 0>
4739 PHRASE61
4740                     <FRAME '\1aOCEMIT>
4741                     <PUSH 'JSP>
4742                     <PUSH 'T*>
4743                     <PUSH '@>
4744                     <FRAME '\1aOPCODE>
4745                     <PUSH 'SBRFRAM>
4746                     <CALL '\1aOPCODE 1 = TEMP14>
4747                     <TYPE? TEMP14 <TYPE-CODE FIX> - TAG65>
4748                     <SUB 0 TEMP14 = STACK (TYPE FIX)>
4749                     <DEAD TEMP14>
4750                     <JUMP + TAG66>
4751 TAG65
4752                     <SUBF 0.0 TEMP14 = STACK (TYPE FLOAT)>
4753                     <DEAD TEMP14>
4754 TAG66
4755                     <CALL '\1aOCEMIT 4>
4756                     <GVAL 'WINNING-VICTIM = NM9>
4757                     <TYPE? NM9 <TYPE-CODE FALSE> + PHRASE76>
4758                     <GVAL 'STACK-DEPTH = TEMP14>
4759                     <ADD TEMP14 7 = TEMP14 (TYPE FIX)>
4760                     <SETG 'STACK-DEPTH TEMP14>
4761                     <RETURN TEMP14>
4762                     <DEAD TEMP14>
4763 PHRASE54
4764                     <FRAME '\1aUPDATE-ACS>
4765                     <CALL '\1aUPDATE-ACS 0>
4766                     <FRAME '\1aPUSHJ>
4767                     <TYPE? SEG7 <TYPE-CODE FALSE> + PHRASE73>
4768                     <DEAD SEG7>
4769                     <SET TEMP14 'SFRAME (TYPE ATOM)>
4770                     <JUMP + PHRASE74>
4771 PHRASE73
4772                     <SET TEMP14 'FRAME (TYPE ATOM)>
4773 PHRASE74
4774                     <PUSH TEMP14>
4775                     <DEAD TEMP14>
4776                     <CALL '\1aPUSHJ 1>
4777                     <GVAL 'WINNING-VICTIM = NM9>
4778                     <TYPE? NM9 <TYPE-CODE FALSE> + PHRASE76>
4779                     <GVAL 'STACK-DEPTH = TEMP14>
4780                     <ADD TEMP14 7 = TEMP14 (TYPE FIX)>
4781                     <SETG 'STACK-DEPTH TEMP14>
4782                     <SET NM9 TEMP14>
4783                     <DEAD TEMP14>
4784 PHRASE76
4785                     <RETURN NM9>
4786                     <DEAD NM9>
4787                     <END \1aFRAME!-MIMOC>
4788 #WORD *25316263361*
4789 <GFCN \1aVFRAME!-MIMOC ("VALUE" ANY LIST) L5>
4790                     <TEMP TEMP8>
4791                     <INTGO>
4792                     <FRAME '\1aUPDATE-ACS>
4793                     <CALL '\1aUPDATE-ACS 0>
4794                     <FRAME '\1aPUSHJ>
4795                     <PUSH 'FRAME>
4796                     <RESTL L5 1 = TEMP8 (TYPE LIST)>
4797                     <DEAD L5>
4798                     <NTHL TEMP8 1 = STACK>
4799                     <DEAD TEMP8>
4800                     <CALL '\1aPUSHJ 2 = TEMP8>
4801                     <RETURN TEMP8>
4802                     <DEAD TEMP8>
4803                     <END \1aVFRAME!-MIMOC>
4804 #WORD *4022337244*
4805 <GFCN \1aCFRAME!-MIMOC ("VALUE" ANY LIST) L5>
4806                     <TEMP TEMP8 VAL6>
4807                     <INTGO>
4808                     <RESTL L5 1 = TEMP8 (TYPE LIST)>
4809                     <DEAD L5>
4810                     <NTHL TEMP8 1 = VAL6 (TYPE ATOM)>
4811                     <DEAD TEMP8>
4812                     <VEQUAL? VAL6 'STACK - PHRASE10>
4813                     <FRAME '\1aOCEMIT>
4814                     <PUSH 'PUSH>
4815                     <PUSH 'TP*>
4816                     <SET VAL6 2 (TYPE FIX)>
4817                     <SFRAME 'TYPE-WORD>
4818                     <PUSH 'FRAME>
4819                     <SCALL '\1aTYPE-WORD 1 = TEMP8 + TAG11 VAL6>
4820                     <LOOP (TEMP8 TYPE VALUE LENGTH) (VAL6 VALUE)>
4821 TAG14
4822                     <INTGO>
4823                     <EMPTY? TEMP8 + TAG11>
4824                     <NTH1 TEMP8 = STACK>
4825                     <REST1 TEMP8 = TEMP8>
4826                     <ADD VAL6 1 = VAL6 (TYPE FIX)>
4827                     <JUMP + TAG14>
4828 TAG11
4829                     <CALL '\1aOCEMIT VAL6>
4830                     <DEAD VAL6>
4831                     <FRAME '\1aOCEMIT>
4832                     <PUSH 'XMOVEI>
4833                     <PUSH 'O*>
4834                     <PUSH -4>
4835                     <PUSH (F*)>
4836                     <CALL '\1aOCEMIT 4>
4837                     <FRAME '\1aOCEMIT>
4838                     <PUSH 'PUSH>
4839                     <PUSH 'TP*>
4840                     <PUSH 'O*>
4841                     <CALL '\1aOCEMIT 3>
4842                     <GVAL 'WINNING-VICTIM = VAL6>
4843                     <TYPE? VAL6 <TYPE-CODE FALSE> + PHRASE20>
4844                     <GVAL 'STACK-DEPTH = TEMP8>
4845                     <ADD TEMP8 2 = TEMP8 (TYPE FIX)>
4846                     <SETG 'STACK-DEPTH TEMP8>
4847                     <RETURN TEMP8>
4848                     <DEAD TEMP8>
4849 PHRASE10
4850                     <FRAME '\1aASSIGN-AC>
4851                     <PUSH VAL6>
4852                     <DEAD VAL6>
4853                     <PUSH 'BOTH>
4854                     <CALL '\1aASSIGN-AC 2 = VAL6>
4855                     <FRAME '\1aGET-AC>
4856                     <PUSH VAL6>
4857                     <CALL '\1aGET-AC 1 = TEMP8>
4858                     <PUTUV TEMP8 6 'FRAME>
4859                     <DEAD TEMP8>
4860                     <FRAME '\1aOCEMIT>
4861                     <PUSH 'XMOVEI>
4862                     <FRAME '\1aNEXT-AC>
4863                     <PUSH VAL6>
4864                     <DEAD VAL6>
4865                     <CALL '\1aNEXT-AC 1 = STACK>
4866                     <PUSH -4>
4867                     <PUSH (F*)>
4868                     <CALL '\1aOCEMIT 4 = VAL6>
4869 PHRASE20
4870                     <RETURN VAL6>
4871                     <DEAD VAL6>
4872                     <END \1aCFRAME!-MIMOC>
4873 #WORD *21135654350*
4874 <GFCN \1aPFRAME!-MIMOC ("VALUE" <OR FALSE FIX> LIST) L4>
4875                     <TEMP TEMP10 VAL5:ATOM AC6:ATOM NAC7:ATOM>
4876                     <INTGO>
4877                     <RESTL L4 1 = TEMP10 (TYPE LIST)>
4878                     <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
4879                     <NTHL TEMP10 1 = VAL5 (TYPE ATOM)>
4880                     <DEAD TEMP10>
4881                     <FRAME '\1aLOAD-AC>
4882                     <NTHL L4 1 = STACK>
4883                     <DEAD L4>
4884                     <PUSH 'VALUE>
4885                     <CALL '\1aLOAD-AC 2 = AC6>
4886                     <FRAME '\1aASSIGN-AC>
4887                     <PUSH VAL5>
4888                     <PUSH 'BOTH>
4889                     <PUSH 'T>
4890                     <CALL '\1aASSIGN-AC 3 = NAC7>
4891                     <FRAME '\1aGET-AC>
4892                     <PUSH NAC7>
4893                     <CALL '\1aGET-AC 1 = TEMP10>
4894                     <PUTUV TEMP10 6 'FRAME>
4895                     <DEAD TEMP10>
4896                     <FRAME '\1aOCEMIT>
4897                     <PUSH 'MOVE>
4898                     <FRAME '\1aNEXT-AC>
4899                     <PUSH NAC7>
4900                     <CALL '\1aNEXT-AC 1 = TEMP10>
4901                     <PUSH TEMP10>
4902                     <PUSH 3>
4903                     <CONS AC6 () = STACK>
4904                     <DEAD AC6>
4905                     <CALL '\1aOCEMIT 4>
4906                     <FRAME '\1aOCEMIT>
4907                     <PUSH 'SKIPL>
4908                     <CONS TEMP10 () = STACK>
4909                     <CALL '\1aOCEMIT 2>
4910                     <FRAME '\1aOCEMIT>
4911                     <PUSH 'JRST>
4912                     <FRAME '\1aXJUMP>
4913                     <FRAME '\1aGENLBL>
4914                     <PUSH "END">
4915                     <CALL '\1aGENLBL 1 = AC6>
4916                     <PUSH AC6>
4917                     <CALL '\1aXJUMP 1 = STACK>
4918                     <CALL '\1aOCEMIT 2>
4919                     <FRAME '\1aOCEMIT>
4920                     <PUSH 'HRR>
4921                     <PUSH TEMP10>
4922                     <PUSH -1>
4923                     <CONS TEMP10 () = STACK>
4924                     <CALL '\1aOCEMIT 4>
4925                     <FRAME '\1aOCEMIT>
4926                     <PUSH 'SUBI>
4927                     <PUSH TEMP10>
4928                     <PUSH 4>
4929                     <CALL '\1aOCEMIT 3>
4930                     <FRAME '\1aLABEL>
4931                     <PUSH AC6>
4932                     <DEAD AC6>
4933                     <CALL '\1aLABEL 1>
4934                     <FRAME '\1aOCEMIT>
4935                     <PUSH 'HLL>
4936                     <PUSH TEMP10>
4937                     <PUSH 'F*>
4938                     <CALL '\1aOCEMIT 3>
4939                     <VEQUAL? VAL5 'STACK + TAG26>
4940                     <DEAD VAL5>
4941                     <RETURN %<>>
4942 TAG26
4943                     <FRAME '\1aOCEMIT>
4944                     <PUSH 'PUSH>
4945                     <PUSH 'TP*>
4946                     <PUSH NAC7>
4947                     <DEAD NAC7>
4948                     <CALL '\1aOCEMIT 3>
4949                     <FRAME '\1aOCEMIT>
4950                     <PUSH 'PUSH>
4951                     <PUSH 'TP*>
4952                     <PUSH TEMP10>
4953                     <DEAD TEMP10>
4954                     <CALL '\1aOCEMIT 3>
4955                     <GVAL 'WINNING-VICTIM = TEMP10>
4956                     <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE30>
4957                     <GVAL 'STACK-DEPTH = TEMP10>
4958                     <ADD TEMP10 2 = TEMP10 (TYPE FIX)>
4959                     <SETG 'STACK-DEPTH TEMP10>
4960 PHRASE30
4961                     <RETURN TEMP10>
4962                     <DEAD TEMP10>
4963                     <END \1aPFRAME!-MIMOC>
4964 #WORD *31253534274*
4965 <GFCN \1aRFRAME!-MIMOC ("VALUE" ANY LIST) L5>
4966                     <TEMP TEMP7>
4967                     <INTGO>
4968                     <FRAME '\1aRETURN!-MIMOC>
4969                     <PUSH L5>
4970                     <RESTL L5 1 = TEMP7 (TYPE LIST)>
4971                     <DEAD L5>
4972                     <NTHL TEMP7 1 = STACK>
4973                     <DEAD TEMP7>
4974                     <CALL '\1aRETURN!-MIMOC 2 = TEMP7>
4975                     <RETURN TEMP7>
4976                     <DEAD TEMP7>
4977                     <END \1aRFRAME!-MIMOC>
4978 #WORD *25134454416*
4979 <GFCN \1aRTUPLE!-MIMOC ("VALUE" ANY LIST) L5>
4980                     <TEMP TEMP9 TEMP8>
4981                     <INTGO>
4982                     <FRAME '\1aUPDATE-ACS>
4983                     <CALL '\1aUPDATE-ACS 0>
4984                     <FRAME '\1aOCEMIT>
4985                     <PUSH 'MOVE>
4986                     <PUSH 'O1*>
4987                     <SET TEMP9 2 (TYPE FIX)>
4988                     <SFRAME 'OBJ-VAL>
4989                     <NTHL L5 1 = STACK>
4990                     <SCALL '\1aOBJ-VAL 1 = TEMP8 + TAG7 TEMP9>
4991                     <LOOP (TEMP8 TYPE VALUE LENGTH) (TEMP9 VALUE)>
4992 TAG11
4993                     <INTGO>
4994                     <EMPTY? TEMP8 + TAG7>
4995                     <NTH1 TEMP8 = STACK>
4996                     <REST1 TEMP8 = TEMP8>
4997                     <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
4998                     <JUMP + TAG11>
4999 TAG7
5000                     <CALL '\1aOCEMIT TEMP9>
5001                     <DEAD TEMP9>
5002                     <FRAME '\1aOCEMIT>
5003                     <PUSH 'MOVE>
5004                     <PUSH 'O2*>
5005                     <SET TEMP8 2 (TYPE FIX)>
5006                     <SFRAME 'OBJ-VAL>
5007                     <RESTL L5 1 = TEMP9 (TYPE LIST)>
5008                     <DEAD L5>
5009                     <NTHL TEMP9 1 = STACK>
5010                     <DEAD TEMP9>
5011                     <SCALL '\1aOBJ-VAL 1 = TEMP9 + TAG13 TEMP8>
5012                     <LOOP (TEMP9 TYPE VALUE LENGTH) (TEMP8 VALUE)>
5013 TAG16
5014                     <INTGO>
5015                     <EMPTY? TEMP9 + TAG13>
5016                     <NTH1 TEMP9 = STACK>
5017                     <REST1 TEMP9 = TEMP9>
5018                     <ADD TEMP8 1 = TEMP8 (TYPE FIX)>
5019                     <JUMP + TAG16>
5020 TAG13
5021                     <CALL '\1aOCEMIT TEMP8>
5022                     <DEAD TEMP8>
5023                     <FRAME '\1aOCEMIT>
5024                     <PUSH 'JRST>
5025                     <PUSH '@>
5026                     <FRAME '\1aOPCODE>
5027                     <PUSH 'RTUPLE>
5028                     <CALL '\1aOPCODE 1 = STACK>
5029                     <CALL '\1aOCEMIT 3 = TEMP8>
5030                     <RETURN TEMP8>
5031                     <DEAD TEMP8>
5032                     <END \1aRTUPLE!-MIMOC>
5033 #WORD *35313011261*
5034 <GFCN \1aMRETURN!-MIMOC ("VALUE" ANY LIST) L5>
5035                     <TEMP TEMP9 TEMP8>
5036                     <INTGO>
5037                     <FRAME '\1aUPDATE-ACS>
5038                     <CALL '\1aUPDATE-ACS 0>
5039                     <FRAME '\1aOCEMIT>
5040                     <PUSH 'MOVE>
5041                     <PUSH 'O1*>
5042                     <SET TEMP9 2 (TYPE FIX)>
5043                     <SFRAME 'OBJ-VAL>
5044                     <NTHL L5 1 = STACK>
5045                     <SCALL '\1aOBJ-VAL 1 = TEMP8 + TAG7 TEMP9>
5046                     <LOOP (TEMP8 TYPE VALUE LENGTH) (TEMP9 VALUE)>
5047 TAG11
5048                     <INTGO>
5049                     <EMPTY? TEMP8 + TAG7>
5050                     <NTH1 TEMP8 = STACK>
5051                     <REST1 TEMP8 = TEMP8>
5052                     <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
5053                     <JUMP + TAG11>
5054 TAG7
5055                     <CALL '\1aOCEMIT TEMP9>
5056                     <DEAD TEMP9>
5057                     <RESTL L5 1 = TEMP9 (TYPE LIST)>
5058                     <NTHL TEMP9 1 = TEMP9>
5059                     <EQUAL? TEMP9 0 - PHRASE14>
5060                     <DEAD TEMP9>
5061                     <FRAME '\1aOCEMIT>
5062                     <PUSH 'MOVEI>
5063                     <PUSH 'O2*>
5064                     <PUSH 0>
5065                     <CALL '\1aOCEMIT 3>
5066                     <JUMP + PHRASE16>
5067 PHRASE14
5068                     <FRAME '\1aOCEMIT>
5069                     <PUSH 'MOVE>
5070                     <PUSH 'O2*>
5071                     <SET TEMP8 2 (TYPE FIX)>
5072                     <SFRAME 'OBJ-VAL>
5073                     <RESTL L5 1 = TEMP9 (TYPE LIST)>
5074                     <DEAD L5>
5075                     <NTHL TEMP9 1 = STACK>
5076                     <DEAD TEMP9>
5077                     <SCALL '\1aOBJ-VAL 1 = TEMP9 + TAG17 TEMP8>
5078                     <LOOP (TEMP9 TYPE VALUE LENGTH) (TEMP8 VALUE)>
5079 TAG20
5080                     <INTGO>
5081                     <EMPTY? TEMP9 + TAG17>
5082                     <NTH1 TEMP9 = STACK>
5083                     <REST1 TEMP9 = TEMP9>
5084                     <ADD TEMP8 1 = TEMP8 (TYPE FIX)>
5085                     <JUMP + TAG20>
5086 TAG17
5087                     <CALL '\1aOCEMIT TEMP8>
5088                     <DEAD TEMP8>
5089 PHRASE16
5090                     <FRAME '\1aOCEMIT>
5091                     <PUSH 'JRST>
5092                     <PUSH '@>
5093                     <FRAME '\1aOPCODE>
5094                     <PUSH 'MRETURN>
5095                     <CALL '\1aOPCODE 1 = STACK>
5096                     <CALL '\1aOCEMIT 3 = TEMP8>
5097                     <RETURN TEMP8>
5098                     <DEAD TEMP8>
5099                     <END \1aMRETURN!-MIMOC>
5100 #WORD *33442757232*
5101 <GFCN \1aICALL!-MIMOC ("VALUE" LIST LIST) L5>
5102                     <TEMP END6 TEMP10 TEMP22>
5103                     <INTGO>
5104                     <FRAME '\1aGENLBL>
5105                     <PUSH "ICALL">
5106                     <CALL '\1aGENLBL 1 = END6>
5107                     <GVAL 'ICALL-FLAG = TEMP10>
5108                     <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE9>
5109                     <DEAD TEMP10>
5110                     <GVAL 'ICALL-FLAG = TEMP10>
5111                     <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
5112                     <SETG 'ICALL-FLAG TEMP10>
5113                     <DEAD TEMP10>
5114                     <JUMP + PHRASE11>
5115 PHRASE9
5116                     <SETG 'ICALL-FLAG 1>
5117 PHRASE11
5118                     <FRAME '\1aUPDATE-ACS>
5119                     <CALL '\1aUPDATE-ACS 0>
5120                     <FRAME '\1aFLUSH-ACS>
5121                     <CALL '\1aFLUSH-ACS 0>
5122                     <FRAME '\1aOCEMIT>
5123                     <PUSH 'JSP>
5124                     <PUSH 'T*>
5125                     <PUSH '@>
5126                     <FRAME '\1aOPCODE>
5127                     <PUSH 'ICALL>
5128                     <CALL '\1aOPCODE 1 = TEMP10>
5129                     <TYPE? TEMP10 <TYPE-CODE FIX> - TAG16>
5130                     <SUB 0 TEMP10 = STACK (TYPE FIX)>
5131                     <DEAD TEMP10>
5132                     <JUMP + TAG17>
5133 TAG16
5134                     <SUBF 0.0 TEMP10 = STACK (TYPE FLOAT)>
5135                     <DEAD TEMP10>
5136 TAG17
5137                     <CALL '\1aOCEMIT 4>
5138                     <FRAME '\1aOCEMIT>
5139                     <PUSH 'JRST>
5140                     <FRAME '\1aXJUMP>
5141                     <PUSH END6>
5142                     <CALL '\1aXJUMP 1 = STACK>
5143                     <CALL '\1aOCEMIT 2>
5144                     <GVAL 'ICALL-TAGS = TEMP10>
5145                     <EMPL? L5 + PHRASE21>
5146                     <RESTL L5 1 = TEMP22 (TYPE LIST)>
5147                     <EMPL? TEMP22 + PHRASE21>
5148                     <RESTL TEMP22 1 = TEMP22 (TYPE LIST)>
5149                     <EMPL? TEMP22 + PHRASE21>
5150                     <DEAD TEMP22>
5151                     <RESTL L5 1 = TEMP22 (TYPE LIST)>
5152                     <RESTL TEMP22 1 = TEMP22 (TYPE LIST)>
5153                     <NTHL TEMP22 1 = TEMP22>
5154                     <JUMP + PHRASE23>
5155 PHRASE21
5156                     <SET TEMP22 %<> (TYPE FALSE)>
5157 PHRASE23
5158                     <CONS TEMP22 TEMP10 = TEMP10>
5159                     <DEAD TEMP22>
5160                     <CONS END6 TEMP10 = TEMP10>
5161                     <DEAD END6>
5162                     <NTHL L5 1 = TEMP22>
5163                     <DEAD L5>
5164                     <CONS TEMP22 TEMP10 = TEMP10>
5165                     <DEAD TEMP22>
5166                     <SETG 'ICALL-TAGS TEMP10>
5167                     <RETURN TEMP10>
5168                     <DEAD TEMP10>
5169                     <END \1aICALL!-MIMOC>
5170 #WORD *10243202421*
5171 <GFCN \1aSCALL!-MIMOC ("VALUE" ANY ANY) L5>
5172                     <TEMP TEMP7>
5173                     <INTGO>
5174                     <FRAME '\1aCALL!-MIMOC>
5175                     <PUSH L5>
5176                     <DEAD L5>
5177                     <PUSH 'T>
5178                     <CALL '\1aCALL!-MIMOC 2 = TEMP7>
5179                     <RETURN TEMP7>
5180                     <DEAD TEMP7>
5181                     <END \1aSCALL!-MIMOC>
5182 #WORD *37421175001*
5183 <GFCN \1aCALL!-MIMOC ("VALUE" ANY LIST "OPTIONAL" ANY) L8 SEG9>
5184                     <OPT-DISPATCH 1 %<> OPT6 OPT7>
5185 OPT6
5186                     <PUSH %<>>
5187 OPT7
5188                     <TEMP ARG110 TEMP20 ARG211 TAG16 XTAG18 (SBYFINF19 %<>) TEMP25 COUNT17 PN14 OP-INF15>
5189                     <INTGO>
5190                     <NTHL L8 1 = ARG110>
5191                     <RESTL L8 1 = TEMP20 (TYPE LIST)>
5192                     <NTHL TEMP20 1 = ARG211>
5193                     <DEAD TEMP20>
5194                     <FRAME '\1aGENLBL>
5195                     <PUSH "SC">
5196                     <CALL '\1aGENLBL 1 = XTAG18>
5197                     <TYPE? SEG9 <TYPE-CODE FALSE> + PHRASE23>
5198                     <SET TEMP20 L8>
5199                     <SET TEMP25 6 (TYPE FIX)>
5200                     <LOOP (TEMP20 VALUE) (TEMP25 VALUE)>
5201 TAG26
5202                     <EMPL? TEMP20 + PHRASE23>
5203                     <RESTL TEMP20 1 = TEMP20 (TYPE LIST)>
5204                     <SUB TEMP25 1 = TEMP25 (TYPE FIX)>
5205                     <GRTR? TEMP25 0 + TAG26 (TYPE FIX)>
5206                     <NTHL L8 6 = TAG16>
5207                     <NTHL L8 7 = COUNT17>
5208 PHRASE23
5209                     <TYPE? ARG110 <TYPE-CODE FORM> - PHRASE28>
5210                     <GVAL 'GLUE-MODE = TEMP20>
5211                     <TYPE? TEMP20 <TYPE-CODE FALSE> + BOOL31>
5212                     <DEAD TEMP20>
5213                     <FRAME '\1aFIND-CALL>
5214                     <RESTL ARG110 1 = TEMP20 (TYPE LIST)>
5215                     <NTHL TEMP20 1 = STACK (TYPE ATOM)>
5216                     <DEAD TEMP20>
5217                     <GVAL 'PRE-NAMES = STACK>
5218                     <CALL '\1aFIND-CALL 2 = PN14>
5219                     <TYPE? PN14 <TYPE-CODE FALSE> - BOOL30>
5220 BOOL31
5221                     <FRAME '\1aSUBRIFY?>
5222                     <RESTL ARG110 1 = TEMP20 (TYPE LIST)>
5223                     <NTHL TEMP20 1 = STACK (TYPE ATOM)>
5224                     <DEAD TEMP20>
5225                     <CALL '\1aSUBRIFY? 1 = SBYFINF19>
5226                     <TYPE? SBYFINF19 <TYPE-CODE FALSE> + PHRASE28>
5227 BOOL30
5228                     <TYPE? SBYFINF19 <TYPE-CODE FALSE> + PHRASE35>
5229                     <TYPE? ARG211 <TYPE-CODE FIX> + PHRASE37>
5230                     <FRAME '\1aOCEMIT>
5231                     <PUSH 'MOVE>
5232                     <PUSH 'O2*>
5233                     <SET TEMP25 2 (TYPE FIX)>
5234                     <SFRAME 'OBJ-VAL>
5235                     <PUSH ARG211>
5236                     <SCALL '\1aOBJ-VAL 1 = TEMP20 + TAG38 TEMP25>
5237                     <LOOP (TEMP20 TYPE VALUE LENGTH) (TEMP25 VALUE)>
5238 TAG41
5239                     <INTGO>
5240                     <EMPTY? TEMP20 + TAG38>
5241                     <NTH1 TEMP20 = STACK>
5242                     <REST1 TEMP20 = TEMP20>
5243                     <ADD TEMP25 1 = TEMP25 (TYPE FIX)>
5244                     <JUMP + TAG41>
5245 TAG38
5246                     <CALL '\1aOCEMIT TEMP25>
5247                     <DEAD TEMP25>
5248                     <JUMP + PHRASE56>
5249 PHRASE37
5250                     <FRAME '\1aNTH>
5251                     <PUSH SBYFINF19>
5252                     <PUSH 2>
5253                     <CALL '\1aNTH 2 = TEMP25>
5254                     <TYPE? TEMP25 <TYPE-CODE FALSE> - PHRASE56>
5255                     <DEAD TEMP25>
5256                     <FRAME '\1aOCEMIT>
5257                     <PUSH 'MOVEI>
5258                     <PUSH 'O2*>
5259                     <PUSH ARG211>
5260                     <CALL '\1aOCEMIT 3>
5261                     <JUMP + PHRASE56>
5262 PHRASE35
5263                     <FRAME '\1aFIND-OPT>
5264                     <RESTL ARG110 1 = TEMP25 (TYPE LIST)>
5265                     <NTHL TEMP25 1 = STACK (TYPE ATOM)>
5266                     <DEAD TEMP25>
5267                     <GVAL 'PRE-OPTS = STACK>
5268                     <CALL '\1aFIND-OPT 2 = OP-INF15>
5269                     <VEQUAL? OP-INF15 0 + PHRASE46>
5270                     <TYPE? ARG211 <TYPE-CODE FIX> + PHRASE49>
5271                     <FRAME '\1aOCEMIT>
5272                     <PUSH 'MOVE>
5273                     <PUSH 'O2*>
5274                     <SET TEMP20 2 (TYPE FIX)>
5275                     <SFRAME 'OBJ-VAL>
5276                     <PUSH ARG211>
5277                     <SCALL '\1aOBJ-VAL 1 = TEMP25 + TAG50 TEMP20>
5278                     <LOOP (TEMP25 TYPE VALUE LENGTH) (TEMP20 VALUE)>
5279 TAG52
5280                     <INTGO>
5281                     <EMPTY? TEMP25 + TAG50>
5282                     <NTH1 TEMP25 = STACK>
5283                     <REST1 TEMP25 = TEMP25>
5284                     <ADD TEMP20 1 = TEMP20 (TYPE FIX)>
5285                     <JUMP + TAG52>
5286 TAG50
5287                     <CALL '\1aOCEMIT TEMP20>
5288                     <DEAD TEMP20>
5289                     <JUMP + PHRASE56>
5290 PHRASE49
5291                     <NTHL OP-INF15 1 = TEMP20>
5292                     <VEQUAL? TEMP20 0 - PHRASE56>
5293                     <DEAD TEMP20>
5294                     <FRAME '\1aOCEMIT>
5295                     <PUSH 'MOVEI>
5296                     <PUSH 'O2*>
5297                     <PUSH ARG211>
5298                     <CALL '\1aOCEMIT 3>
5299                     <JUMP + PHRASE56>
5300 PHRASE46
5301                     <TYPE? ARG211 <TYPE-CODE ATOM> - PHRASE56>
5302                     <FRAME '\1aIN-AC?>
5303                     <PUSH ARG211>
5304                     <PUSH 'VALUE>
5305                     <CALL '\1aIN-AC? 2 = TEMP20>
5306                     <TYPE? TEMP20 <TYPE-CODE FALSE> - PHRASE56>
5307                     <DEAD TEMP20>
5308                     <FRAME '\1aOCEMIT>
5309                     <PUSH 'MOVE>
5310                     <PUSH 'O2*>
5311                     <SET TEMP25 2 (TYPE FIX)>
5312                     <SFRAME 'OBJ-VAL>
5313                     <PUSH ARG211>
5314                     <SCALL '\1aOBJ-VAL 1 = TEMP20 + TAG59 TEMP25>
5315                     <LOOP (TEMP20 TYPE VALUE LENGTH) (TEMP25 VALUE)>
5316 TAG61
5317                     <INTGO>
5318                     <EMPTY? TEMP20 + TAG59>
5319                     <NTH1 TEMP20 = STACK>
5320                     <REST1 TEMP20 = TEMP20>
5321                     <ADD TEMP25 1 = TEMP25 (TYPE FIX)>
5322                     <JUMP + TAG61>
5323 TAG59
5324                     <CALL '\1aOCEMIT TEMP25>
5325                     <DEAD TEMP25>
5326 PHRASE56
5327                     <TYPE? ARG211 <TYPE-CODE FIX> - PHRASE64>
5328                     <GVAL 'SURVIVOR-MODE = TEMP25>
5329                     <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE64>
5330                     <DEAD TEMP25>
5331                     <FRAME '\1aGETPROP>
5332                     <PUSH PN14>
5333                     <DEAD PN14>
5334                     <PUSH 'NDFRM>
5335                     <CALL '\1aGETPROP 2 = TEMP25>
5336                     <TYPE? TEMP25 <TYPE-CODE FALSE> - PHRASE64>
5337                     <DEAD TEMP25>
5338                     <TYPE? OP-INF15 <TYPE-CODE FALSE> - PHRASE64>
5339                     <FRAME '\1aSURVIVOR?>
5340                     <RESTL ARG110 1 = TEMP25 (TYPE LIST)>
5341                     <NTHL TEMP25 1 = STACK (TYPE ATOM)>
5342                     <DEAD TEMP25>
5343                     <CALL '\1aSURVIVOR? 1 = TEMP25>
5344                     <TYPE? TEMP25 <TYPE-CODE FALSE> - PHRASE64>
5345                     <DEAD TEMP25>
5346                     <FRAME '\1aUPDATE-ACS>
5347                     <CALL '\1aUPDATE-ACS 0>
5348                     <GVAL 'WINNING-VICTIM = TEMP25>
5349                     <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE96>
5350                     <DEAD TEMP25>
5351                     <GVAL 'STACK-DEPTH = TEMP25>
5352                     <LSH ARG211 1 = TEMP20 (TYPE FIX)>
5353                     <ADD TEMP20 2 = TEMP20 (TYPE FIX)>
5354                     <SUB TEMP25 TEMP20 = TEMP25 (TYPE FIX)>
5355                     <DEAD TEMP20>
5356                     <SETG 'STACK-DEPTH TEMP25>
5357                     <DEAD TEMP25>
5358                     <JUMP + PHRASE96>
5359 PHRASE64
5360                     <TYPE? ARG211 <TYPE-CODE FIX> - PHRASE71>
5361                     <FRAME '\1aUPDATE-ACS>
5362                     <CALL '\1aUPDATE-ACS 0>
5363                     <FRAME '\1aOCEMIT>
5364                     <PUSH 'XMOVEI>
5365                     <PUSH 'F*>
5366                     <LSH ARG211 1 = TEMP25 (TYPE FIX)>
5367                     <ADD TEMP25 1 = TEMP25 (TYPE FIX)>
5368                     <SUB 0 TEMP25 = STACK (TYPE FIX)>
5369                     <DEAD TEMP25>
5370                     <CONS 'TP* () = STACK>
5371                     <CALL '\1aOCEMIT 4>
5372                     <GVAL 'WINNING-VICTIM = TEMP25>
5373                     <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE96>
5374                     <DEAD TEMP25>
5375                     <GVAL 'STACK-DEPTH = TEMP25>
5376                     <LSH ARG211 1 = TEMP20 (TYPE FIX)>
5377                     <ADD TEMP20 3 = TEMP20 (TYPE FIX)>
5378                     <SUB TEMP25 TEMP20 = TEMP25 (TYPE FIX)>
5379                     <DEAD TEMP20>
5380                     <SETG 'STACK-DEPTH TEMP25>
5381                     <DEAD TEMP25>
5382                     <JUMP + PHRASE96>
5383 PHRASE71
5384                     <FRAME '\1aWILL-DIE?>
5385                     <PUSH ARG211>
5386                     <CALL '\1aWILL-DIE? 1 = TEMP25>
5387                     <TYPE? TEMP25 <TYPE-CODE FALSE> - BOOL80>
5388                     <DEAD TEMP25>
5389                     <SET TEMP20 L8>
5390                     <SET TEMP25 4 (TYPE FIX)>
5391                     <LOOP (TEMP20 VALUE) (TEMP25 VALUE)>
5392 TAG86
5393                     <EMPL? TEMP20 + TAG87>
5394                     <RESTL TEMP20 1 = TEMP20 (TYPE LIST)>
5395                     <SUB TEMP25 1 = TEMP25 (TYPE FIX)>
5396                     <GRTR? TEMP25 0 + TAG86 (TYPE FIX)>
5397                     <JUMP + TAG84>
5398 TAG87
5399                     <SET TEMP25 %<> (TYPE FALSE)>
5400                     <JUMP + PHRASE83>
5401 TAG84
5402                     <RESTL L8 1 = TEMP20 (TYPE LIST)>
5403                     <RESTL TEMP20 1 = TEMP20 (TYPE LIST)>
5404                     <RESTL TEMP20 1 = TEMP20 (TYPE LIST)>
5405                     <NTHL TEMP20 1 = TEMP25>
5406                     <DEAD TEMP20>
5407 PHRASE83
5408                     <EQUAL? TEMP25 ARG211 - PHRASE78>
5409                     <DEAD TEMP25>
5410 BOOL80
5411                     <FRAME '\1aDEAD!-MIMOC>
5412                     <CONS ARG211 () = STACK>
5413                     <PUSH 'T>
5414                     <CALL '\1aDEAD!-MIMOC 2>
5415 PHRASE78
5416                     <FRAME '\1aUPDATE-ACS>
5417                     <CALL '\1aUPDATE-ACS 0>
5418                     <FRAME '\1aOCEMIT>
5419                     <PUSH 'XMOVEI>
5420                     <PUSH 'F*>
5421                     <PUSH -1>
5422                     <PUSH (TP*)>
5423                     <CALL '\1aOCEMIT 4>
5424                     <FRAME '\1aIN-AC?>
5425                     <PUSH ARG211>
5426                     <PUSH 'VALUE>
5427                     <CALL '\1aIN-AC? 2 = TEMP20>
5428                     <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE92>
5429                     <FRAME '\1aOCEMIT>
5430                     <PUSH 'LSH>
5431                     <PUSH TEMP20>
5432                     <PUSH 1>
5433                     <CALL '\1aOCEMIT 3>
5434                     <FRAME '\1aOCEMIT>
5435                     <PUSH 'SUB>
5436                     <PUSH 'F*>
5437                     <PUSH TEMP20>
5438                     <DEAD TEMP20>
5439                     <CALL '\1aOCEMIT 3>
5440                     <JUMP + PHRASE96>
5441 PHRASE92
5442                     <FRAME '\1aOCEMIT>
5443                     <PUSH 'SUB>
5444                     <PUSH 'F*>
5445                     <PUSH 'O2*>
5446                     <CALL '\1aOCEMIT 3>
5447                     <FRAME '\1aOCEMIT>
5448                     <PUSH 'SUB>
5449                     <PUSH 'F*>
5450                     <PUSH 'O2*>
5451                     <CALL '\1aOCEMIT 3>
5452 PHRASE96
5453                     <TYPE? SBYFINF19 <TYPE-CODE FALSE> + PHRASE100>
5454                     <FRAME '\1aOCEMIT>
5455                     <PUSH 'DMOVE>
5456                     <PUSH 'A1*>
5457                     <SET TEMP20 2 (TYPE FIX)>
5458                     <SFRAME 'OBJ-TYP>
5459                     <PUSH SBYFINF19>
5460                     <DEAD SBYFINF19>
5461                     <SCALL '\1aOBJ-TYP 1 = TEMP25 + TAG101 TEMP20>
5462                     <LOOP (TEMP25 TYPE VALUE LENGTH) (TEMP20 VALUE)>
5463 TAG103
5464                     <INTGO>
5465                     <EMPTY? TEMP25 + TAG101>
5466                     <NTH1 TEMP25 = STACK>
5467                     <REST1 TEMP25 = TEMP25>
5468                     <ADD TEMP20 1 = TEMP20 (TYPE FIX)>
5469                     <JUMP + TAG103>
5470 TAG101
5471                     <CALL '\1aOCEMIT TEMP20>
5472                     <DEAD TEMP20>
5473                     <FRAME '\1aOCEMIT>
5474                     <PUSH 'DMOVEM>
5475                     <PUSH 'A1*>
5476                     <PUSH -3>
5477                     <PUSH (F*)>
5478                     <CALL '\1aOCEMIT 4>
5479                     <FRAME '\1aOCEMIT>
5480                     <PUSH 'MOVE>
5481                     <PUSH 'M*>
5482                     <PUSH 1>
5483                     <PUSH (A2*)>
5484                     <CALL '\1aOCEMIT 4>
5485                     <FRAME '\1aOCEMIT>
5486                     <PUSH 'XCT>
5487                     <PUSH 3>
5488                     <PUSH (A2*)>
5489                     <CALL '\1aOCEMIT 3>
5490                     <FRAME '\1aOCEMIT>
5491                     <PUSH 'JRST>
5492                     <PUSH '@>
5493                     <PUSH 5>
5494                     <PUSH (A2*)>
5495                     <CALL '\1aOCEMIT 4>
5496                     <JUMP + PHRASE109>
5497 PHRASE100
5498                     <FRAME '\1aOCEMIT>
5499                     <RESTL ARG110 1 = TEMP20 (TYPE LIST)>
5500                     <DEAD ARG110>
5501                     <NTHL TEMP20 1 = TEMP20 (TYPE ATOM)>
5502                     <CHTYPE TEMP20 <TYPE-CODE GCAL> = STACK>
5503                     <DEAD TEMP20>
5504                     <PUSH 'T>
5505                     <SET TEMP20 OP-INF15>
5506                     <VEQUAL? TEMP20 0 + PHRASE112>
5507                     <NTHL OP-INF15 1 = TEMP20>
5508                     <VEQUAL? TEMP20 0 + PHRASE112>
5509                     <TYPE? ARG211 <TYPE-CODE FIX> + TAG114>
5510                     <SET TEMP20 %<> (TYPE FALSE)>
5511                     <JUMP + PHRASE112>
5512 TAG114
5513                     <NTHL OP-INF15 1 = TEMP25 (TYPE FORM)>
5514                     <NTHL OP-INF15 1 = ARG110 (TYPE FORM)>
5515                     <DEAD OP-INF15>
5516                     <RESTL ARG110 1 = ARG110 (TYPE LIST)>
5517                     <NTHL ARG110 1 = ARG110 (TYPE FIX)>
5518                     <SUB ARG211 ARG110 = TEMP20 (TYPE FIX)>
5519                     <DEAD ARG211 ARG110>
5520                     <SUB TEMP20 -4 = TEMP20 (TYPE FIX)>
5521                     <SUB TEMP20 1 = TEMP20 (TYPE FIX)>
5522                     <GRTR? TEMP20 0 - RESTL119 (TYPE FIX)>
5523                     <LOOP (TEMP25 VALUE) (TEMP20 VALUE)>
5524 RESTL118
5525                     <INTGO>
5526                     <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
5527                     <SUB TEMP20 1 = TEMP20 (TYPE FIX)>
5528                     <GRTR? TEMP20 0 + RESTL118 (TYPE FIX)>
5529 RESTL119
5530                     <NTHL TEMP25 1 = TEMP20>
5531                     <DEAD TEMP25>
5532 PHRASE112
5533                     <PUSH TEMP20>
5534                     <DEAD TEMP20>
5535                     <CALL '\1aOCEMIT 3>
5536 PHRASE109
5537                     <FRAME '\1aLABEL>
5538                     <SET TEMP20 L8>
5539                     <LOOP (TEMP20 VALUE)>
5540 TAG121
5541                     <RESTL TEMP20 1 = TEMP25 (TYPE LIST)>
5542                     <EMPL? TEMP25 + TAG122>
5543                     <SET TEMP20 TEMP25>
5544                     <DEAD TEMP25>
5545                     <JUMP + TAG121>
5546 TAG122
5547                     <NTHL TEMP20 1 = STACK>
5548                     <DEAD TEMP20>
5549                     <PUSH 0>
5550                     <CALL '\1aLABEL 2>
5551                     <FRAME '\1aFLUSH-ACS>
5552                     <CALL '\1aFLUSH-ACS 0>
5553                     <TYPE? SEG9 <TYPE-CODE FALSE> + PHRASE125>
5554                     <DEAD SEG9>
5555                     <TYPE? TAG16 <TYPE-CODE UNBOUND> + PHRASE125>
5556                     <FRAME '\1aNTH>
5557                     <GEN-LVAL 'MIML = STACK>
5558                     <PUSH 2>
5559                     <CALL '\1aNTH 2 = TEMP20>
5560                     <EQUAL? TEMP20 TAG16 + PHRASE128>
5561                     <DEAD TEMP20>
5562                     <FRAME '\1aOCEMIT>
5563                     <PUSH 'JRST>
5564                     <FRAME '\1aXJUMP>
5565                     <PUSH XTAG18>
5566                     <CALL '\1aXJUMP 1 = STACK>
5567                     <CALL '\1aOCEMIT 2>
5568                     <JUMP + PHRASE134>
5569 PHRASE128
5570                     <FRAME '\1aOCEMIT>
5571                     <PUSH 'JFCL>
5572                     <PUSH 'O*>
5573                     <PUSH 'O*>
5574                     <CALL '\1aOCEMIT 3>
5575 PHRASE134
5576                     <FRAME '\1aWILL-DIE?>
5577                     <PUSH COUNT17>
5578                     <CALL '\1aWILL-DIE? 1 = TEMP20>
5579                     <TYPE? TEMP20 <TYPE-CODE FALSE> - PHRASE137>
5580                     <DEAD TEMP20>
5581                     <FRAME '\1aCLEAN-ACS>
5582                     <PUSH COUNT17>
5583                     <CALL '\1aCLEAN-ACS 1>
5584                     <FRAME '\1aOCEMIT>
5585                     <PUSH 'ADDB>
5586                     <PUSH 'A2*>
5587                     <SET ARG110 2 (TYPE FIX)>
5588                     <SFRAME 'OBJ-VAL>
5589                     <PUSH COUNT17>
5590                     <SCALL '\1aOBJ-VAL 1 = TEMP20 + TAG140 ARG110>
5591                     <LOOP (TEMP20 TYPE VALUE LENGTH) (ARG110 VALUE)>
5592 TAG142
5593                     <INTGO>
5594                     <EMPTY? TEMP20 + TAG140>
5595                     <NTH1 TEMP20 = STACK>
5596                     <REST1 TEMP20 = TEMP20>
5597                     <ADD ARG110 1 = ARG110 (TYPE FIX)>
5598                     <JUMP + TAG142>
5599 TAG140
5600                     <CALL '\1aOCEMIT ARG110>
5601                     <DEAD ARG110>
5602                     <FRAME '\1aGET-AC>
5603                     <PUSH 'A1*>
5604                     <CALL '\1aGET-AC 1 = TEMP20>
5605                     <PUTUV TEMP20 2 COUNT17>
5606                     <PUTUV TEMP20 3 'TYPE (TYPE ATOM)>
5607                     <PUTUV TEMP20 5 %<>>
5608                     <GVAL 'AC-STAMP = ARG110>
5609                     <ADD ARG110 1 = ARG110 (TYPE FIX)>
5610                     <SETG 'AC-STAMP ARG110>
5611                     <PUTUV TEMP20 4 ARG110 (TYPE FIX)>
5612                     <DEAD TEMP20 ARG110>
5613                     <FRAME '\1aGET-AC>
5614                     <PUSH 'A2*>
5615                     <CALL '\1aGET-AC 1 = TEMP20>
5616                     <PUTUV TEMP20 2 COUNT17>
5617                     <DEAD COUNT17>
5618                     <PUTUV TEMP20 3 'VALUE (TYPE ATOM)>
5619                     <PUTUV TEMP20 5 %<>>
5620                     <GVAL 'AC-STAMP = ARG110>
5621                     <PUTUV TEMP20 4 ARG110 (TYPE FIX)>
5622                     <DEAD TEMP20 ARG110>
5623 PHRASE137
5624                     <FRAME '\1aNTH>
5625                     <GEN-LVAL 'MIML = STACK>
5626                     <PUSH 2>
5627                     <CALL '\1aNTH 2 = SBYFINF19>
5628                     <EQUAL? SBYFINF19 TAG16 - TAG148>
5629                     <DEAD SBYFINF19>
5630                     <RETURN %<>>
5631 TAG148
5632                     <FRAME '\1aLABEL-UPDATE-ACS>
5633                     <PUSH TAG16>
5634                     <PUSH %<>>
5635                     <CALL '\1aLABEL-UPDATE-ACS 2>
5636                     <FRAME '\1aOCEMIT>
5637                     <PUSH 'JRST>
5638                     <FRAME '\1aXJUMP>
5639                     <PUSH TAG16>
5640                     <DEAD TAG16>
5641                     <CALL '\1aXJUMP 1 = STACK>
5642                     <CALL '\1aOCEMIT 2>
5643                     <FRAME '\1aLABEL>
5644                     <PUSH XTAG18>
5645                     <DEAD XTAG18>
5646                     <CALL '\1aLABEL 1>
5647                     <FRAME '\1aGET-AC>
5648                     <PUSH 'A1*>
5649                     <CALL '\1aGET-AC 1 = TEMP20>
5650                     <FRAME '\1aCLEAN-ACS>
5651                     <RESTL L8 1 = SBYFINF19 (TYPE LIST)>
5652                     <RESTL SBYFINF19 1 = SBYFINF19 (TYPE LIST)>
5653                     <RESTL SBYFINF19 1 = SBYFINF19 (TYPE LIST)>
5654                     <NTHL SBYFINF19 1 = STACK>
5655                     <DEAD SBYFINF19>
5656                     <CALL '\1aCLEAN-ACS 1>
5657                     <RESTL L8 1 = SBYFINF19 (TYPE LIST)>
5658                     <RESTL SBYFINF19 1 = SBYFINF19 (TYPE LIST)>
5659                     <RESTL SBYFINF19 1 = SBYFINF19 (TYPE LIST)>
5660                     <NTHL SBYFINF19 1 = SBYFINF19>
5661                     <PUTUV TEMP20 2 SBYFINF19>
5662                     <DEAD SBYFINF19>
5663                     <PUTUV TEMP20 3 'TYPE (TYPE ATOM)>
5664                     <PUTUV TEMP20 5 'T>
5665                     <GVAL 'AC-STAMP = SBYFINF19>
5666                     <ADD SBYFINF19 1 = SBYFINF19 (TYPE FIX)>
5667                     <SETG 'AC-STAMP SBYFINF19>
5668                     <PUTUV TEMP20 4 SBYFINF19 (TYPE FIX)>
5669                     <DEAD TEMP20 SBYFINF19>
5670                     <FRAME '\1aGET-AC>
5671                     <PUSH 'A2*>
5672                     <CALL '\1aGET-AC 1 = TEMP20>
5673                     <RESTL L8 1 = SBYFINF19 (TYPE LIST)>
5674                     <DEAD L8>
5675                     <RESTL SBYFINF19 1 = SBYFINF19 (TYPE LIST)>
5676                     <RESTL SBYFINF19 1 = SBYFINF19 (TYPE LIST)>
5677                     <NTHL SBYFINF19 1 = SBYFINF19>
5678                     <PUTUV TEMP20 2 SBYFINF19>
5679                     <DEAD SBYFINF19>
5680                     <PUTUV TEMP20 3 'VALUE (TYPE ATOM)>
5681                     <PUTUV TEMP20 5 'T>
5682                     <GVAL 'AC-STAMP = SBYFINF19>
5683                     <PUTUV TEMP20 4 SBYFINF19 (TYPE FIX)>
5684                     <DEAD SBYFINF19>
5685                     <RETURN TEMP20>
5686                     <DEAD TEMP20>
5687 PHRASE125
5688                     <SET SBYFINF19 L8>
5689                     <SET TEMP25 4 (TYPE FIX)>
5690                     <LOOP (SBYFINF19 VALUE) (TEMP25 VALUE)>
5691 TAG165
5692                     <EMPL? SBYFINF19 + TAG166>
5693                     <RESTL SBYFINF19 1 = SBYFINF19 (TYPE LIST)>
5694                     <SUB TEMP25 1 = TEMP25 (TYPE FIX)>
5695                     <GRTR? TEMP25 0 + TAG165 (TYPE FIX)>
5696                     <JUMP + TAG163>
5697 TAG166
5698                     <RETURN %<>>
5699 TAG163
5700                     <FRAME '\1aPUSHJ-VAL>
5701                     <RESTL L8 1 = SBYFINF19 (TYPE LIST)>
5702                     <DEAD L8>
5703                     <RESTL SBYFINF19 1 = SBYFINF19 (TYPE LIST)>
5704                     <RESTL SBYFINF19 1 = SBYFINF19 (TYPE LIST)>
5705                     <NTHL SBYFINF19 1 = STACK>
5706                     <DEAD SBYFINF19>
5707                     <CALL '\1aPUSHJ-VAL 1 = ARG110>
5708                     <RETURN ARG110>
5709                     <DEAD ARG110>
5710 PHRASE28
5711                     <FRAME '\1aOCEMIT>
5712                     <PUSH 'MOVE>
5713                     <PUSH 'O1*>
5714                     <SET PN14 2 (TYPE FIX)>
5715                     <SFRAME 'OBJ-VAL>
5716                     <PUSH ARG110>
5717                     <SCALL '\1aOBJ-VAL 1 = SBYFINF19 + TAG169 PN14>
5718                     <LOOP (SBYFINF19 TYPE VALUE LENGTH) (PN14 VALUE)>
5719 TAG172
5720                     <INTGO>
5721                     <EMPTY? SBYFINF19 + TAG169>
5722                     <NTH1 SBYFINF19 = STACK>
5723                     <REST1 SBYFINF19 = SBYFINF19>
5724                     <ADD PN14 1 = PN14 (TYPE FIX)>
5725                     <JUMP + TAG172>
5726 TAG169
5727                     <CALL '\1aOCEMIT PN14>
5728                     <DEAD PN14>
5729                     <TYPE? ARG211 <TYPE-CODE FIX> - PHRASE175>
5730                     <FRAME '\1aOCEMIT>
5731                     <PUSH 'MOVEI>
5732                     <PUSH 'O2*>
5733                     <PUSH ARG211>
5734                     <CALL '\1aOCEMIT 3>
5735                     <JUMP + PHRASE177>
5736 PHRASE175
5737                     <FRAME '\1aOCEMIT>
5738                     <PUSH 'MOVE>
5739                     <PUSH 'O2*>
5740                     <SET SBYFINF19 2 (TYPE FIX)>
5741                     <SFRAME 'OBJ-VAL>
5742                     <PUSH ARG211>
5743                     <SCALL '\1aOBJ-VAL 1 = PN14 + TAG178 SBYFINF19>
5744                     <LOOP (PN14 TYPE VALUE LENGTH) (SBYFINF19 VALUE)>
5745 TAG180
5746                     <INTGO>
5747                     <EMPTY? PN14 + TAG178>
5748                     <NTH1 PN14 = STACK>
5749                     <REST1 PN14 = PN14>
5750                     <ADD SBYFINF19 1 = SBYFINF19 (TYPE FIX)>
5751                     <JUMP + TAG180>
5752 TAG178
5753                     <CALL '\1aOCEMIT SBYFINF19>
5754                     <DEAD SBYFINF19>
5755 PHRASE177
5756                     <TYPE? ARG110 <TYPE-CODE ATOM> - PHRASE183>
5757                     <FRAME '\1aWILL-DIE?>
5758                     <PUSH ARG110>
5759                     <CALL '\1aWILL-DIE? 1 = SBYFINF19>
5760                     <TYPE? SBYFINF19 <TYPE-CODE FALSE> - BOOL185>
5761                     <DEAD SBYFINF19>
5762                     <SET PN14 L8>
5763                     <SET TEMP25 4 (TYPE FIX)>
5764                     <LOOP (PN14 VALUE) (TEMP25 VALUE)>
5765 TAG191
5766                     <EMPL? PN14 + TAG192>
5767                     <RESTL PN14 1 = PN14 (TYPE LIST)>
5768                     <SUB TEMP25 1 = TEMP25 (TYPE FIX)>
5769                     <GRTR? TEMP25 0 + TAG191 (TYPE FIX)>
5770                     <JUMP + TAG189>
5771 TAG192
5772                     <SET SBYFINF19 %<> (TYPE FALSE)>
5773                     <JUMP + PHRASE188>
5774 TAG189
5775                     <RESTL L8 1 = PN14 (TYPE LIST)>
5776                     <RESTL PN14 1 = PN14 (TYPE LIST)>
5777                     <RESTL PN14 1 = PN14 (TYPE LIST)>
5778                     <NTHL PN14 1 = SBYFINF19>
5779                     <DEAD PN14>
5780 PHRASE188
5781                     <EQUAL? SBYFINF19 ARG110 - PHRASE183>
5782                     <DEAD SBYFINF19>
5783 BOOL185
5784                     <FRAME '\1aDEAD!-MIMOC>
5785                     <CONS ARG110 () = STACK>
5786                     <DEAD ARG110>
5787                     <CALL '\1aDEAD!-MIMOC 1>
5788 PHRASE183
5789                     <TYPE? ARG211 <TYPE-CODE ATOM> - PHRASE195>
5790                     <FRAME '\1aWILL-DIE?>
5791                     <PUSH ARG211>
5792                     <CALL '\1aWILL-DIE? 1 = SBYFINF19>
5793                     <TYPE? SBYFINF19 <TYPE-CODE FALSE> - BOOL197>
5794                     <DEAD SBYFINF19>
5795                     <SET PN14 L8>
5796                     <SET TEMP25 4 (TYPE FIX)>
5797                     <LOOP (PN14 VALUE) (TEMP25 VALUE)>
5798 TAG203
5799                     <EMPL? PN14 + TAG204>
5800                     <RESTL PN14 1 = PN14 (TYPE LIST)>
5801                     <SUB TEMP25 1 = TEMP25 (TYPE FIX)>
5802                     <GRTR? TEMP25 0 + TAG203 (TYPE FIX)>
5803                     <JUMP + TAG201>
5804 TAG204
5805                     <SET SBYFINF19 %<> (TYPE FALSE)>
5806                     <JUMP + PHRASE200>
5807 TAG201
5808                     <RESTL L8 1 = PN14 (TYPE LIST)>
5809                     <RESTL PN14 1 = PN14 (TYPE LIST)>
5810                     <RESTL PN14 1 = PN14 (TYPE LIST)>
5811                     <NTHL PN14 1 = SBYFINF19>
5812                     <DEAD PN14>
5813 PHRASE200
5814                     <EQUAL? SBYFINF19 ARG211 - PHRASE195>
5815                     <DEAD SBYFINF19>
5816 BOOL197
5817                     <FRAME '\1aDEAD!-MIMOC>
5818                     <CONS ARG211 () = STACK>
5819                     <CALL '\1aDEAD!-MIMOC 1>
5820 PHRASE195
5821                     <FRAME '\1aUPDATE-ACS>
5822                     <CALL '\1aUPDATE-ACS 0>
5823                     <GVAL 'WINNING-VICTIM = SBYFINF19>
5824                     <TYPE? SBYFINF19 <TYPE-CODE FALSE> + PHRASE208>
5825                     <DEAD SBYFINF19>
5826                     <TYPE? ARG211 <TYPE-CODE FIX> - PHRASE208>
5827                     <GVAL 'STACK-DEPTH = SBYFINF19>
5828                     <LSH ARG211 1 = PN14 (TYPE FIX)>
5829                     <DEAD ARG211>
5830                     <SUB SBYFINF19 PN14 = SBYFINF19 (TYPE FIX)>
5831                     <DEAD PN14>
5832                     <SUB SBYFINF19 7 = SBYFINF19 (TYPE FIX)>
5833                     <SETG 'STACK-DEPTH SBYFINF19>
5834                     <DEAD SBYFINF19>
5835 PHRASE208
5836                     <TYPE? SEG9 <TYPE-CODE FALSE> + PHRASE211>
5837                     <TYPE? TAG16 <TYPE-CODE UNBOUND> + PHRASE211>
5838                     <FRAME '\1aPUSHJ>
5839                     <PUSH 'CALL>
5840                     <CALL '\1aPUSHJ 1>
5841                     <FRAME '\1aNTH>
5842                     <GEN-LVAL 'MIML = STACK>
5843                     <PUSH 2>
5844                     <CALL '\1aNTH 2 = PN14>
5845                     <EQUAL? PN14 TAG16 + PHRASE215>
5846                     <DEAD PN14>
5847                     <FRAME '\1aOCEMIT>
5848                     <PUSH 'JRST>
5849                     <FRAME '\1aXJUMP>
5850                     <PUSH XTAG18>
5851                     <CALL '\1aXJUMP 1 = STACK>
5852                     <CALL '\1aOCEMIT 2>
5853                     <JUMP + PHRASE221>
5854 PHRASE215
5855                     <FRAME '\1aOCEMIT>
5856                     <PUSH 'JFCL>
5857                     <PUSH 'O*>
5858                     <PUSH 'O*>
5859                     <CALL '\1aOCEMIT 3>
5860 PHRASE221
5861                     <FRAME '\1aWILL-DIE?>
5862                     <PUSH COUNT17>
5863                     <CALL '\1aWILL-DIE? 1 = PN14>
5864                     <TYPE? PN14 <TYPE-CODE FALSE> - PHRASE224>
5865                     <DEAD PN14>
5866                     <FRAME '\1aGET-AC>
5867                     <PUSH 'A1*>
5868                     <CALL '\1aGET-AC 1 = TEMP20>
5869                     <FRAME '\1aCLEAN-ACS>
5870                     <PUSH COUNT17>
5871                     <CALL '\1aCLEAN-ACS 1>
5872                     <FRAME '\1aOCEMIT>
5873                     <PUSH 'ADDB>
5874                     <PUSH 'A2*>
5875                     <SET ARG110 2 (TYPE FIX)>
5876                     <SFRAME 'OBJ-VAL>
5877                     <PUSH COUNT17>
5878                     <SCALL '\1aOBJ-VAL 1 = PN14 + TAG228 ARG110>
5879                     <LOOP (PN14 TYPE VALUE LENGTH) (ARG110 VALUE)>
5880 TAG231
5881                     <INTGO>
5882                     <EMPTY? PN14 + TAG228>
5883                     <NTH1 PN14 = STACK>
5884                     <REST1 PN14 = PN14>
5885                     <ADD ARG110 1 = ARG110 (TYPE FIX)>
5886                     <JUMP + TAG231>
5887 TAG228
5888                     <CALL '\1aOCEMIT ARG110>
5889                     <DEAD ARG110>
5890                     <PUTUV TEMP20 2 COUNT17>
5891                     <PUTUV TEMP20 3 'TYPE (TYPE ATOM)>
5892                     <PUTUV TEMP20 5 %<>>
5893                     <GVAL 'AC-STAMP = ARG110>
5894                     <ADD ARG110 1 = ARG110 (TYPE FIX)>
5895                     <SETG 'AC-STAMP ARG110>
5896                     <PUTUV TEMP20 4 ARG110 (TYPE FIX)>
5897                     <DEAD TEMP20 ARG110>
5898                     <FRAME '\1aGET-AC>
5899                     <PUSH 'A2*>
5900                     <CALL '\1aGET-AC 1 = TEMP20>
5901                     <PUTUV TEMP20 2 COUNT17>
5902                     <DEAD COUNT17>
5903                     <PUTUV TEMP20 3 'VALUE (TYPE ATOM)>
5904                     <PUTUV TEMP20 5 %<>>
5905                     <GVAL 'AC-STAMP = ARG110>
5906                     <PUTUV TEMP20 4 ARG110 (TYPE FIX)>
5907                     <DEAD TEMP20 ARG110>
5908 PHRASE224
5909                     <FRAME '\1aNTH>
5910                     <GEN-LVAL 'MIML = STACK>
5911                     <PUSH 2>
5912                     <CALL '\1aNTH 2 = PN14>
5913                     <EQUAL? PN14 TAG16 - TAG236>
5914                     <DEAD PN14>
5915                     <RETURN %<>>
5916 TAG236
5917                     <FRAME '\1aLABEL-UPDATE-ACS>
5918                     <PUSH TAG16>
5919                     <PUSH %<>>
5920                     <CALL '\1aLABEL-UPDATE-ACS 2>
5921                     <FRAME '\1aOCEMIT>
5922                     <PUSH 'JRST>
5923                     <FRAME '\1aXJUMP>
5924                     <PUSH TAG16>
5925                     <DEAD TAG16>
5926                     <CALL '\1aXJUMP 1 = STACK>
5927                     <CALL '\1aOCEMIT 2>
5928                     <FRAME '\1aLABEL>
5929                     <PUSH XTAG18>
5930                     <DEAD XTAG18>
5931                     <CALL '\1aLABEL 1>
5932                     <FRAME '\1aGET-AC>
5933                     <PUSH 'A1*>
5934                     <CALL '\1aGET-AC 1 = TEMP20>
5935                     <FRAME '\1aCLEAN-ACS>
5936                     <RESTL L8 1 = PN14 (TYPE LIST)>
5937                     <RESTL PN14 1 = PN14 (TYPE LIST)>
5938                     <RESTL PN14 1 = PN14 (TYPE LIST)>
5939                     <NTHL PN14 1 = STACK>
5940                     <DEAD PN14>
5941                     <CALL '\1aCLEAN-ACS 1>
5942                     <RESTL L8 1 = PN14 (TYPE LIST)>
5943                     <RESTL PN14 1 = PN14 (TYPE LIST)>
5944                     <RESTL PN14 1 = PN14 (TYPE LIST)>
5945                     <NTHL PN14 1 = PN14>
5946                     <PUTUV TEMP20 2 PN14>
5947                     <DEAD PN14>
5948                     <PUTUV TEMP20 3 'TYPE (TYPE ATOM)>
5949                     <PUTUV TEMP20 5 'T>
5950                     <GVAL 'AC-STAMP = PN14>
5951                     <ADD PN14 1 = PN14 (TYPE FIX)>
5952                     <SETG 'AC-STAMP PN14>
5953                     <PUTUV TEMP20 4 PN14 (TYPE FIX)>
5954                     <DEAD TEMP20 PN14>
5955                     <FRAME '\1aGET-AC>
5956                     <PUSH 'A2*>
5957                     <CALL '\1aGET-AC 1 = TEMP20>
5958                     <RESTL L8 1 = PN14 (TYPE LIST)>
5959                     <DEAD L8>
5960                     <RESTL PN14 1 = PN14 (TYPE LIST)>
5961                     <RESTL PN14 1 = PN14 (TYPE LIST)>
5962                     <NTHL PN14 1 = PN14>
5963                     <PUTUV TEMP20 2 PN14>
5964                     <DEAD PN14>
5965                     <PUTUV TEMP20 3 'VALUE (TYPE ATOM)>
5966                     <PUTUV TEMP20 5 'T>
5967                     <GVAL 'AC-STAMP = PN14>
5968                     <PUTUV TEMP20 4 PN14 (TYPE FIX)>
5969                     <DEAD PN14>
5970                     <RETURN TEMP20>
5971                     <DEAD TEMP20>
5972 PHRASE211
5973                     <SET PN14 L8>
5974                     <SET TEMP25 4 (TYPE FIX)>
5975                     <LOOP (PN14 VALUE) (TEMP25 VALUE)>
5976 TAG251
5977                     <EMPL? PN14 + TAG252>
5978                     <RESTL PN14 1 = PN14 (TYPE LIST)>
5979                     <SUB TEMP25 1 = TEMP25 (TYPE FIX)>
5980                     <GRTR? TEMP25 0 + TAG251 (TYPE FIX)>
5981                     <JUMP + PHRASE249>
5982 TAG252
5983                     <FRAME '\1aPUSHJ>
5984                     <PUSH 'CALL>
5985                     <CALL '\1aPUSHJ 1>
5986                     <JUMP + PHRASE254>
5987 PHRASE249
5988                     <FRAME '\1aPUSHJ>
5989                     <PUSH 'CALL>
5990                     <RESTL L8 1 = PN14 (TYPE LIST)>
5991                     <DEAD L8>
5992                     <RESTL PN14 1 = PN14 (TYPE LIST)>
5993                     <RESTL PN14 1 = PN14 (TYPE LIST)>
5994                     <NTHL PN14 1 = STACK>
5995                     <DEAD PN14>
5996                     <CALL '\1aPUSHJ 2>
5997 PHRASE254
5998                     <SET ARG110 SEG9>
5999                     <DEAD SEG9>
6000                     <TYPE? ARG110 <TYPE-CODE FALSE> + PHRASE257>
6001                     <FRAME '\1aOCEMIT>
6002                     <PUSH 'JFCL>
6003                     <PUSH 'O*>
6004                     <PUSH 'O*>
6005                     <CALL '\1aOCEMIT 3 = ARG110>
6006 PHRASE257
6007                     <RETURN ARG110>
6008                     <DEAD ARG110>
6009                     <END \1aCALL!-MIMOC>\r\r
6010 #WORD *24343025313*
6011 <GFCN \1aACALL!-MIMOC ("VALUE" ANY LIST) L5>
6012                     <TEMP ARG16 TEMP10 ARG27 (VAL9 %<>) TEMP13:FIX>
6013                     <INTGO>
6014                     <NTHL L5 1 = ARG16>
6015                     <RESTL L5 1 = TEMP10 (TYPE LIST)>
6016                     <NTHL TEMP10 1 = ARG27>
6017                     <DEAD TEMP10>
6018                     <SET TEMP10 L5>
6019                     <SET TEMP13 4 (TYPE FIX)>
6020                     <LOOP (TEMP10 VALUE) (TEMP13 VALUE)>
6021 TAG14
6022                     <EMPL? TEMP10 + PHRASE12>
6023                     <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
6024                     <SUB TEMP13 1 = TEMP13 (TYPE FIX)>
6025                     <GRTR? TEMP13 0 + TAG14 (TYPE FIX)>
6026                     <RESTL L5 1 = TEMP10 (TYPE LIST)>
6027                     <DEAD L5>
6028                     <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
6029                     <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
6030                     <NTHL TEMP10 1 = VAL9>
6031                     <DEAD TEMP10>
6032 PHRASE12
6033                     <EQUAL? ARG16 VAL9 + BOOL17>
6034                     <FRAME '\1aWILL-DIE?>
6035                     <PUSH ARG16>
6036                     <CALL '\1aWILL-DIE? 1 = TEMP10>
6037                     <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE16>
6038                     <DEAD TEMP10>
6039 BOOL17
6040                     <FRAME '\1aDEAD!-MIMOC>
6041                     <CONS ARG16 () = STACK>
6042                     <PUSH 'T>
6043                     <CALL '\1aDEAD!-MIMOC 2>
6044 PHRASE16
6045                     <EQUAL? ARG27 VAL9 + BOOL22>
6046                     <FRAME '\1aWILL-DIE?>
6047                     <PUSH ARG27>
6048                     <CALL '\1aWILL-DIE? 1 = TEMP10>
6049                     <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE21>
6050                     <DEAD TEMP10>
6051 BOOL22
6052                     <FRAME '\1aDEAD!-MIMOC>
6053                     <CONS ARG27 () = STACK>
6054                     <PUSH 'T>
6055                     <CALL '\1aDEAD!-MIMOC 2>
6056 PHRASE21
6057                     <FRAME '\1aUPDATE-ACS>
6058                     <CALL '\1aUPDATE-ACS 0>
6059                     <FRAME '\1aGET-INTO-ACS>
6060                     <PUSH ARG16>
6061                     <DEAD ARG16>
6062                     <PUSH 'BOTH>
6063                     <PUSH 'A1*>
6064                     <PUSH ARG27>
6065                     <PUSH 'VALUE>
6066                     <PUSH 'O2*>
6067                     <CALL '\1aGET-INTO-ACS 6>
6068                     <TYPE? ARG27 <TYPE-CODE FIX> - PHRASE28>
6069                     <GVAL 'WINNING-VICTIM = TEMP10>
6070                     <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE28>
6071                     <DEAD TEMP10>
6072                     <GVAL 'STACK-DEPTH = TEMP10>
6073                     <LSH ARG27 1 = TEMP13 (TYPE FIX)>
6074                     <DEAD ARG27>
6075                     <SUB TEMP10 TEMP13 = TEMP10 (TYPE FIX)>
6076                     <DEAD TEMP13>
6077                     <SUB TEMP10 7 = TEMP10 (TYPE FIX)>
6078                     <SETG 'STACK-DEPTH TEMP10>
6079                     <DEAD TEMP10>
6080 PHRASE28
6081                     <TYPE? VAL9 <TYPE-CODE FALSE> - PHRASE32>
6082                     <FRAME '\1aPUSHJ>
6083                     <PUSH 'ACALL>
6084                     <CALL '\1aPUSHJ 1 = TEMP10>
6085                     <RETURN TEMP10>
6086                     <DEAD TEMP10>
6087 PHRASE32
6088                     <FRAME '\1aPUSHJ>
6089                     <PUSH 'ACALL>
6090                     <PUSH VAL9>
6091                     <DEAD VAL9>
6092                     <CALL '\1aPUSHJ 2 = TEMP10>
6093                     <RETURN TEMP10>
6094                     <DEAD TEMP10>
6095                     <END \1aACALL!-MIMOC>
6096 #WORD *12305752772*
6097 <GFCN \1aSETLR!-MIMOC ("VALUE" ANY LIST) L5>
6098                     <TEMP AC6:ATOM TEMP11:FIX TEMP13>
6099                     <INTGO>
6100                     <FRAME '\1aASSIGN-AC>
6101                     <NTHL L5 1 = STACK>
6102                     <PUSH 'BOTH>
6103                     <CALL '\1aASSIGN-AC 2 = AC6>
6104                     <FRAME '\1aOCEMIT>
6105                     <PUSH 'MOVE>
6106                     <PUSH 'T*>
6107                     <SET TEMP11 2 (TYPE FIX)>
6108                     <SFRAME 'OBJ-VAL>
6109                     <RESTL L5 1 = TEMP13 (TYPE LIST)>
6110                     <NTHL TEMP13 1 = STACK>
6111                     <DEAD TEMP13>
6112                     <SCALL '\1aOBJ-VAL 1 = TEMP13 + TAG9 TEMP11>
6113                     <LOOP (TEMP13 TYPE VALUE LENGTH) (TEMP11 VALUE)>
6114 TAG14
6115                     <INTGO>
6116                     <EMPTY? TEMP13 + TAG9>
6117                     <NTH1 TEMP13 = STACK>
6118                     <REST1 TEMP13 = TEMP13>
6119                     <ADD TEMP11 1 = TEMP11 (TYPE FIX)>
6120                     <JUMP + TAG14>
6121 TAG9
6122                     <CALL '\1aOCEMIT TEMP11>
6123                     <DEAD TEMP11>
6124                     <FRAME '\1aLMEMQ>
6125                     <RESTL L5 1 = TEMP13 (TYPE LIST)>
6126                     <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
6127                     <NTHL TEMP13 1 = STACK>
6128                     <DEAD TEMP13>
6129                     <GVAL 'LOCALS = STACK>
6130                     <CALL '\1aLMEMQ 2 = TEMP13>
6131                     <TYPE? TEMP13 <TYPE-CODE FALSE> - BOOL16>
6132                     <FRAME '\1aLMEMQ>
6133                     <RESTL L5 1 = TEMP13 (TYPE LIST)>
6134                     <DEAD L5>
6135                     <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
6136                     <NTHL TEMP13 1 = STACK>
6137                     <DEAD TEMP13>
6138                     <GVAL 'ICALL-TEMPS = STACK>
6139                     <CALL '\1aLMEMQ 2 = TEMP13>
6140 BOOL16
6141                     <FRAME '\1aOCEMIT>
6142                     <PUSH 'DMOVE>
6143                     <PUSH AC6>
6144                     <DEAD AC6>
6145                     <NTHUV TEMP13 3 = STACK (TYPE LOCAL-NAME)>
6146                     <DEAD TEMP13>
6147                     <PUSH (T*)>
6148                     <CALL '\1aOCEMIT 4 = TEMP13>
6149                     <RETURN TEMP13>
6150                     <DEAD TEMP13>
6151                     <END \1aSETLR!-MIMOC>
6152 #WORD *32500420077*
6153 <GFCN \1aSETRL!-MIMOC ("VALUE" ANY LIST) L5>
6154                     <TEMP TEMP9 AC6:ATOM TEMP11>
6155                     <INTGO>
6156                     <FRAME '\1aLOAD-AC>
6157                     <RESTL L5 1 = TEMP9 (TYPE LIST)>
6158                     <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
6159                     <NTHL TEMP9 1 = STACK>
6160                     <DEAD TEMP9>
6161                     <PUSH 'BOTH>
6162                     <CALL '\1aLOAD-AC 2 = AC6>
6163                     <FRAME '\1aOCEMIT>
6164                     <PUSH 'MOVE>
6165                     <PUSH 'T*>
6166                     <SET TEMP11 2 (TYPE FIX)>
6167                     <SFRAME 'OBJ-VAL>
6168                     <NTHL L5 1 = STACK>
6169                     <SCALL '\1aOBJ-VAL 1 = TEMP9 + TAG10 TEMP11>
6170                     <LOOP (TEMP9 TYPE VALUE LENGTH) (TEMP11 VALUE)>
6171 TAG13
6172                     <INTGO>
6173                     <EMPTY? TEMP9 + TAG10>
6174                     <NTH1 TEMP9 = STACK>
6175                     <REST1 TEMP9 = TEMP9>
6176                     <ADD TEMP11 1 = TEMP11 (TYPE FIX)>
6177                     <JUMP + TAG13>
6178 TAG10
6179                     <CALL '\1aOCEMIT TEMP11>
6180                     <DEAD TEMP11>
6181                     <FRAME '\1aLMEMQ>
6182                     <RESTL L5 1 = TEMP11 (TYPE LIST)>
6183                     <NTHL TEMP11 1 = STACK>
6184                     <DEAD TEMP11>
6185                     <GVAL 'LOCALS = STACK>
6186                     <CALL '\1aLMEMQ 2 = TEMP9>
6187                     <TYPE? TEMP9 <TYPE-CODE FALSE> - BOOL17>
6188                     <FRAME '\1aLMEMQ>
6189                     <RESTL L5 1 = TEMP11 (TYPE LIST)>
6190                     <DEAD L5>
6191                     <NTHL TEMP11 1 = STACK>
6192                     <DEAD TEMP11>
6193                     <GVAL 'ICALL-TEMPS = STACK>
6194                     <CALL '\1aLMEMQ 2 = TEMP9>
6195                     <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE21>
6196 BOOL17
6197                     <NTHUV TEMP9 2 = TEMP11>
6198                     <TYPE? TEMP11 <TYPE-CODE FALSE> - PHRASE21>
6199                     <DEAD TEMP11>
6200                     <PUTUV TEMP9 2 'TEMP>
6201 PHRASE21
6202                     <FRAME '\1aOCEMIT>
6203                     <PUSH 'DMOVEM>
6204                     <PUSH AC6>
6205                     <DEAD AC6>
6206                     <NTHUV TEMP9 3 = STACK (TYPE LOCAL-NAME)>
6207                     <DEAD TEMP9>
6208                     <PUSH (T*)>
6209                     <CALL '\1aOCEMIT 4 = TEMP11>
6210                     <RETURN TEMP11>
6211                     <DEAD TEMP11>
6212                     <END \1aSETRL!-MIMOC>
6213 #WORD *34327711472*
6214 <GFCN \1aRETURN!-MIMOC ("VALUE" ANY LIST "OPTIONAL" <OR FALSE ATOM>) L8 FRM9>
6215                     <OPT-DISPATCH 1 %<> OPT6 OPT7>
6216 OPT6
6217                     <PUSH %<>>
6218 OPT7
6219                     <TEMP TEMP19 TEMP21>
6220                     <INTGO>
6221                     <TYPE? FRM9 <TYPE-CODE FALSE> + PHRASE12>
6222                     <FRAME '\1aGET-INTO-ACS>
6223                     <NTHL L8 1 = STACK>
6224                     <DEAD L8>
6225                     <PUSH 'BOTH>
6226                     <PUSH 'A1*>
6227                     <PUSH FRM9>
6228                     <PUSH 'VALUE>
6229                     <PUSH 'T*>
6230                     <CALL '\1aGET-INTO-ACS 6>
6231                     <JUMP + PHRASE14>
6232 PHRASE12
6233                     <FRAME '\1aGET-INTO-ACS>
6234                     <NTHL L8 1 = STACK>
6235                     <DEAD L8>
6236                     <PUSH 'BOTH>
6237                     <PUSH 'A1*>
6238                     <CALL '\1aGET-INTO-ACS 3>
6239 PHRASE14
6240                     <FRAME '\1aGET-AC>
6241                     <PUSH 'A1*>
6242                     <CALL '\1aGET-AC 1 = TEMP19>
6243                     <NTHUV TEMP19 6 = TEMP19>
6244                     <TYPE? TEMP19 <TYPE-CODE FALSE> + PHRASE17>
6245                     <FRAME '\1aXEMIT>
6246                     <PUSH 'MOVSI>
6247                     <PUSH 'A1*>
6248                     <SET TEMP21 2 (TYPE FIX)>
6249                     <SFRAME 'TYPE-CODE>
6250                     <PUSH TEMP19>
6251                     <DEAD TEMP19>
6252                     <PUSH 'T>
6253                     <SCALL '\1aTYPE-CODE 2 = TEMP19 + TAG20 TEMP21>
6254                     <LOOP (TEMP19 TYPE VALUE LENGTH) (TEMP21 VALUE)>
6255 TAG23
6256                     <INTGO>
6257                     <EMPTY? TEMP19 + TAG20>
6258                     <NTH1 TEMP19 = STACK>
6259                     <REST1 TEMP19 = TEMP19>
6260                     <ADD TEMP21 1 = TEMP21 (TYPE FIX)>
6261                     <JUMP + TAG23>
6262 TAG20
6263                     <CALL '\1aXEMIT TEMP21>
6264                     <DEAD TEMP21>
6265 PHRASE17
6266                     <TYPE? FRM9 <TYPE-CODE FALSE> + PHRASE26>
6267                     <DEAD FRM9>
6268                     <FRAME '\1aOCEMIT>
6269                     <PUSH 'XMOVEI>
6270                     <PUSH 'F*>
6271                     <PUSH 4>
6272                     <PUSH (T*)>
6273                     <CALL '\1aOCEMIT 4>
6274                     <FRAME '\1aOCEMIT>
6275                     <PUSH 'SKIPGE>
6276                     <PUSH (F*)>
6277                     <CALL '\1aOCEMIT 2>
6278                     <FRAME '\1aOCEMIT>
6279                     <PUSH 'HRR>
6280                     <PUSH 'F*>
6281                     <PUSH -1>
6282                     <PUSH (F*)>
6283                     <CALL '\1aOCEMIT 4>
6284                     <FRAME '\1aOCEMIT>
6285                     <PUSH 'JRST>
6286                     <PUSH '@>
6287                     <FRAME '\1aOPCODE>
6288                     <PUSH 'RETURN>
6289                     <CALL '\1aOPCODE 1 = STACK>
6290                     <CALL '\1aOCEMIT 3>
6291                     <JUMP + PHRASE36>
6292 PHRASE26
6293                     <GVAL 'WINNING-VICTIM = TEMP21>
6294                     <TYPE? TEMP21 <TYPE-CODE FALSE> + PHRASE32>
6295                     <DEAD TEMP21>
6296                     <FRAME '\1aOCEMIT>
6297                     <PUSH 'MOVE>
6298                     <PUSH 'O*>
6299                     <PUSH (TP*)>
6300                     <PUSH <- 2 ,WINNING-VICTIM>>
6301                     <CALL '\1aOCEMIT 4>
6302                     <FRAME '\1aOCEMIT>
6303                     <PUSH 'SUBI>
6304                     <PUSH 'TP*>
6305                     <PUSH ,WINNING-VICTIM>
6306                     <CALL '\1aOCEMIT 3>
6307                     <FRAME '\1aOCEMIT>
6308                     <PUSH 'JRST>
6309                     <PUSH '@>
6310                     <PUSH 'O*>
6311                     <CALL '\1aOCEMIT 3>
6312                     <JUMP + PHRASE36>
6313 PHRASE32
6314                     <FRAME '\1aOCEMIT>
6315                     <PUSH 'JRST>
6316                     <PUSH '@>
6317                     <FRAME '\1aOPCODE>
6318                     <PUSH 'RETURN>
6319                     <CALL '\1aOPCODE 1 = STACK>
6320                     <CALL '\1aOCEMIT 3>
6321 PHRASE36
6322                     <SETG 'LAST-UNCON 'T>
6323                     <FRAME '\1aFLUSH-ACS>
6324                     <CALL '\1aFLUSH-ACS 0 = TEMP21>
6325                     <RETURN TEMP21>
6326                     <DEAD TEMP21>
6327                     <END \1aRETURN!-MIMOC>
6328 #WORD *6136175410*
6329 <GFCN \1aBIND!-MIMOC ("VALUE" ANY LIST) L5>
6330                     <TEMP TEMP9>
6331                     <INTGO>
6332                     <FRAME '\1aUPDATE-ACS>
6333                     <CALL '\1aUPDATE-ACS 0>
6334                     <GVAL 'WINNING-VICTIM = TEMP9>
6335                     <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE8>
6336                     <DEAD TEMP9>
6337                     <GVAL 'STACK-DEPTH = TEMP9>
6338                     <ADD TEMP9 9 = TEMP9 (TYPE FIX)>
6339                     <SETG 'STACK-DEPTH TEMP9>
6340                     <DEAD TEMP9>
6341 PHRASE8
6342                     <FRAME '\1aPUSHJ>
6343                     <PUSH 'BIND>
6344                     <RESTL L5 1 = TEMP9 (TYPE LIST)>
6345                     <DEAD L5>
6346                     <NTHL TEMP9 1 = STACK>
6347                     <DEAD TEMP9>
6348                     <CALL '\1aPUSHJ 2 = TEMP9>
6349                     <RETURN TEMP9>
6350                     <DEAD TEMP9>
6351                     <END \1aBIND!-MIMOC>
6352 #WORD *13146162026*
6353 <GFCN \1aACTIVATION!-MIMOC ("VALUE" ANY LIST) L5>
6354                     <TEMP TEMP8>
6355                     <INTGO>
6356                     <FRAME '\1aUPDATE-ACS>
6357                     <CALL '\1aUPDATE-ACS 0>
6358                     <FRAME '\1aPUSHJ>
6359                     <PUSH 'ACTIVATION>
6360                     <CALL '\1aPUSHJ 1 = TEMP8>
6361                     <RETURN TEMP8>
6362                     <DEAD TEMP8>
6363                     <END \1aACTIVATION!-MIMOC>
6364 #WORD *2452266472*
6365 <GFCN \1aAGAIN!-MIMOC ("VALUE" ANY LIST) L5>
6366                     <TEMP TEMP9 TEMP8>
6367                     <INTGO>
6368                     <FRAME '\1aUPDATE-ACS>
6369                     <CALL '\1aUPDATE-ACS 0>
6370                     <FRAME '\1aOCEMIT>
6371                     <PUSH 'MOVE>
6372                     <PUSH 'O1*>
6373                     <SET TEMP9 2 (TYPE FIX)>
6374                     <SFRAME 'OBJ-VAL>
6375                     <NTHL L5 1 = STACK>
6376                     <DEAD L5>
6377                     <SCALL '\1aOBJ-VAL 1 = TEMP8 + TAG7 TEMP9>
6378                     <LOOP (TEMP8 TYPE VALUE LENGTH) (TEMP9 VALUE)>
6379 TAG11
6380                     <INTGO>
6381                     <EMPTY? TEMP8 + TAG7>
6382                     <NTH1 TEMP8 = STACK>
6383                     <REST1 TEMP8 = TEMP8>
6384                     <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
6385                     <JUMP + TAG11>
6386 TAG7
6387                     <CALL '\1aOCEMIT TEMP9>
6388                     <DEAD TEMP9>
6389                     <FRAME '\1aOCEMIT>
6390                     <PUSH 'JRST>
6391                     <PUSH '@>
6392                     <FRAME '\1aOPCODE>
6393                     <PUSH 'AGAIN>
6394                     <CALL '\1aOPCODE 1 = STACK>
6395                     <CALL '\1aOCEMIT 3>
6396                     <FRAME '\1aFLUSH-ACS>
6397                     <CALL '\1aFLUSH-ACS 0 = TEMP9>
6398                     <RETURN TEMP9>
6399                     <DEAD TEMP9>
6400                     <END \1aAGAIN!-MIMOC>
6401 #WORD *3512230772*
6402 <GFCN \1aRETRY!-MIMOC ("VALUE" ANY LIST) L5>
6403                     <TEMP TEMP9 TEMP8>
6404                     <INTGO>
6405                     <FRAME '\1aUPDATE-ACS>
6406                     <CALL '\1aUPDATE-ACS 0>
6407                     <FRAME '\1aOCEMIT>
6408                     <PUSH 'MOVE>
6409                     <PUSH 'O1*>
6410                     <SET TEMP9 2 (TYPE FIX)>
6411                     <SFRAME 'OBJ-VAL>
6412                     <NTHL L5 1 = STACK>
6413                     <DEAD L5>
6414                     <SCALL '\1aOBJ-VAL 1 = TEMP8 + TAG7 TEMP9>
6415                     <LOOP (TEMP8 TYPE VALUE LENGTH) (TEMP9 VALUE)>
6416 TAG11
6417                     <INTGO>
6418                     <EMPTY? TEMP8 + TAG7>
6419                     <NTH1 TEMP8 = STACK>
6420                     <REST1 TEMP8 = TEMP8>
6421                     <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
6422                     <JUMP + TAG11>
6423 TAG7
6424                     <CALL '\1aOCEMIT TEMP9>
6425                     <DEAD TEMP9>
6426                     <FRAME '\1aOCEMIT>
6427                     <PUSH 'JRST>
6428                     <PUSH '@>
6429                     <FRAME '\1aOPCODE>
6430                     <PUSH 'RETRY>
6431                     <CALL '\1aOPCODE 1 = STACK>
6432                     <CALL '\1aOCEMIT 3>
6433                     <FRAME '\1aFLUSH-ACS>
6434                     <CALL '\1aFLUSH-ACS 0 = TEMP9>
6435                     <RETURN TEMP9>
6436                     <DEAD TEMP9>
6437                     <END \1aRETRY!-MIMOC>
6438 #WORD *4047051014*
6439 <GFCN \1aFIXBIND!-MIMOC ("VALUE" ANY LIST) L5>
6440                     <TEMP TEMP8>
6441                     <INTGO>
6442                     <FRAME '\1aUPDATE-ACS>
6443                     <CALL '\1aUPDATE-ACS 0>
6444                     <FRAME '\1aPUSHJ>
6445                     <PUSH 'FIXBIND>
6446                     <CALL '\1aPUSHJ 1 = TEMP8>
6447                     <RETURN TEMP8>
6448                     <DEAD TEMP8>
6449                     <END \1aFIXBIND!-MIMOC>
6450 #WORD *2300110332*
6451 <GFCN \1aUNBIND!-MIMOC ("VALUE" ANY LIST) L5>
6452                     <TEMP TEMP9 TEMP8>
6453                     <INTGO>
6454                     <FRAME '\1aUPDATE-ACS>
6455                     <CALL '\1aUPDATE-ACS 0>
6456                     <FRAME '\1aOCEMIT>
6457                     <PUSH 'MOVE>
6458                     <PUSH 'O1*>
6459                     <SET TEMP9 2 (TYPE FIX)>
6460                     <SFRAME 'OBJ-VAL>
6461                     <NTHL L5 1 = STACK>
6462                     <DEAD L5>
6463                     <SCALL '\1aOBJ-VAL 1 = TEMP8 + TAG7 TEMP9>
6464                     <LOOP (TEMP8 TYPE VALUE LENGTH) (TEMP9 VALUE)>
6465 TAG11
6466                     <INTGO>
6467                     <EMPTY? TEMP8 + TAG7>
6468                     <NTH1 TEMP8 = STACK>
6469                     <REST1 TEMP8 = TEMP8>
6470                     <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
6471                     <JUMP + TAG11>
6472 TAG7
6473                     <CALL '\1aOCEMIT TEMP9>
6474                     <DEAD TEMP9>
6475                     <FRAME '\1aPUSHJ>
6476                     <PUSH 'UNBIND>
6477                     <CALL '\1aPUSHJ 1 = TEMP9>
6478                     <RETURN TEMP9>
6479                     <DEAD TEMP9>
6480                     <END \1aUNBIND!-MIMOC>
6481 #WORD *24243145107*
6482 <GFCN \1aARGS!-MIMOC ("VALUE" ANY LIST) L5>
6483                     <TEMP TEMP9 TEMP8>
6484                     <INTGO>
6485                     <FRAME '\1aUPDATE-ACS>
6486                     <CALL '\1aUPDATE-ACS 0>
6487                     <FRAME '\1aOCEMIT>
6488                     <PUSH 'MOVE>
6489                     <PUSH 'O1*>
6490                     <SET TEMP9 2 (TYPE FIX)>
6491                     <SFRAME 'OBJ-VAL>
6492                     <NTHL L5 1 = STACK>
6493                     <SCALL '\1aOBJ-VAL 1 = TEMP8 + TAG7 TEMP9>
6494                     <LOOP (TEMP8 TYPE VALUE LENGTH) (TEMP9 VALUE)>
6495 TAG11
6496                     <INTGO>
6497                     <EMPTY? TEMP8 + TAG7>
6498                     <NTH1 TEMP8 = STACK>
6499                     <REST1 TEMP8 = TEMP8>
6500                     <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
6501                     <JUMP + TAG11>
6502 TAG7
6503                     <CALL '\1aOCEMIT TEMP9>
6504                     <DEAD TEMP9>
6505                     <FRAME '\1aPUSHJ>
6506                     <PUSH 'ARGS>
6507                     <RESTL L5 1 = TEMP9 (TYPE LIST)>
6508                     <DEAD L5>
6509                     <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
6510                     <NTHL TEMP9 1 = STACK>
6511                     <DEAD TEMP9>
6512                     <CALL '\1aPUSHJ 2 = TEMP9>
6513                     <RETURN TEMP9>
6514                     <DEAD TEMP9>
6515                     <END \1aARGS!-MIMOC>
6516 #WORD *373150107*
6517 <GFCN \1aTUPLE!-MIMOC ("VALUE" ANY LIST) L5>
6518                     <TEMP TEMP9 TEMP8>
6519                     <INTGO>
6520                     <FRAME '\1aUPDATE-ACS>
6521                     <CALL '\1aUPDATE-ACS 0>
6522                     <FRAME '\1aOCEMIT>
6523                     <PUSH 'MOVE>
6524                     <PUSH 'O1*>
6525                     <SET TEMP9 2 (TYPE FIX)>
6526                     <SFRAME 'OBJ-VAL>
6527                     <NTHL L5 1 = STACK>
6528                     <SCALL '\1aOBJ-VAL 1 = TEMP8 + TAG7 TEMP9>
6529                     <LOOP (TEMP8 TYPE VALUE LENGTH) (TEMP9 VALUE)>
6530 TAG11
6531                     <INTGO>
6532                     <EMPTY? TEMP8 + TAG7>
6533                     <NTH1 TEMP8 = STACK>
6534                     <REST1 TEMP8 = TEMP8>
6535                     <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
6536                     <JUMP + TAG11>
6537 TAG7
6538                     <CALL '\1aOCEMIT TEMP9>
6539                     <DEAD TEMP9>
6540                     <FRAME '\1aPUSHJ>
6541                     <PUSH 'TUPLE>
6542                     <RESTL L5 1 = TEMP9 (TYPE LIST)>
6543                     <DEAD L5>
6544                     <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
6545                     <NTHL TEMP9 1 = STACK>
6546                     <DEAD TEMP9>
6547                     <CALL '\1aPUSHJ 2 = TEMP9>
6548                     <RETURN TEMP9>
6549                     <DEAD TEMP9>
6550                     <END \1aTUPLE!-MIMOC>
6551 #WORD *10740527230*
6552 <GFCN \1aARGNUM!-MIMOC ("VALUE" ANY LIST) L5>
6553                     <TEMP TEMP9>
6554                     <INTGO>
6555                     <FRAME '\1aUPDATE-ACS>
6556                     <CALL '\1aUPDATE-ACS 0>
6557                     <FRAME '\1aOCEMIT>
6558                     <PUSH 'MOVEI>
6559                     <PUSH 'O1*>
6560                     <NTHL L5 1 = STACK>
6561                     <DEAD L5>
6562                     <CALL '\1aOCEMIT 3>
6563                     <FRAME '\1aPUSHJ>
6564                     <PUSH 'ARGNUM>
6565                     <CALL '\1aPUSHJ 1 = TEMP9>
6566                     <RETURN TEMP9>
6567                     <DEAD TEMP9>
6568                     <END \1aARGNUM!-MIMOC>
6569 #WORD *17641235757*
6570 <GFCN \1aEQUAL?!-MIMOC ("VALUE" <OR FALSE AC> LIST "OPTIONAL" ANY ANY ANY) L12 ADDR113 ADDR214 OFF15>
6571                     <OPT-DISPATCH 1 %<> OPT8 OPT9 OPT10 OPT11>
6572 OPT8
6573                     <PUSH %<>>
6574 OPT9
6575                     <PUSH %<>>
6576 OPT10
6577                     <PUSH %<>>
6578 OPT11
6579                     <TEMP ARG116 TEMP25 ARG217 (AC118 %<>) (AC219 %<>) (AC-T120 %<>) (AC-T221 %<>) (TY123 %<>) (TY224 %<>)>
6580                     <INTGO>
6581                     <NTHL L12 1 = ARG116>
6582                     <RESTL L12 1 = TEMP25 (TYPE LIST)>
6583                     <NTHL TEMP25 1 = ARG217>
6584                     <DEAD TEMP25>
6585                     <TYPE? ADDR113 <TYPE-CODE FALSE> - PHRASE27>
6586                     <FRAME '\1aIN-AC?>
6587                     <PUSH ARG116>
6588                     <PUSH 'BOTH>
6589                     <CALL '\1aIN-AC? 2 = AC118>
6590                     <TYPE? AC118 <TYPE-CODE FALSE> + PHRASE27>
6591                     <FRAME '\1aGET-AC>
6592                     <PUSH AC118>
6593                     <CALL '\1aGET-AC 1 = TEMP25>
6594                     <NTHUV TEMP25 6 = TY123>
6595                     <DEAD TEMP25>
6596                     <TYPE? TY123 <TYPE-CODE FALSE> - PHRASE27>
6597                     <FRAME '\1aIN-AC?>
6598                     <PUSH ARG217>
6599                     <PUSH 'BOTH>
6600                     <CALL '\1aIN-AC? 2 = AC219>
6601                     <TYPE? AC219 <TYPE-CODE FALSE> + PHRASE44>
6602                     <FRAME '\1aGET-AC>
6603                     <PUSH AC219>
6604                     <CALL '\1aGET-AC 1 = TEMP25>
6605                     <NTHUV TEMP25 6 = TY224>
6606                     <DEAD TEMP25>
6607                     <JUMP + PHRASE44>
6608 PHRASE27
6609                     <TYPE? ADDR214 <TYPE-CODE FALSE> - PHRASE34>
6610                     <FRAME '\1aIN-AC?>
6611                     <PUSH ARG217>
6612                     <PUSH 'BOTH>
6613                     <CALL '\1aIN-AC? 2 = AC219>
6614                     <TYPE? AC219 <TYPE-CODE FALSE> + PHRASE34>
6615                     <FRAME '\1aGET-AC>
6616                     <PUSH AC219>
6617                     <CALL '\1aGET-AC 1 = TEMP25>
6618                     <NTHUV TEMP25 6 = TY224>
6619                     <DEAD TEMP25>
6620                     <TYPE? TY224 <TYPE-CODE FALSE> - PHRASE34>
6621                     <SET TY224 TY123>
6622                     <DEAD TY123>
6623                     <SET AC118 AC219>
6624                     <DEAD AC219>
6625                     <SET ARG217 ARG116>
6626                     <DEAD ARG116>
6627                     <SET ADDR214 ADDR113>
6628                     <DEAD ADDR113>
6629                     <RESTL L12 1 = TEMP25 (TYPE LIST)>
6630                     <NTHL TEMP25 1 = ARG116>
6631                     <DEAD TEMP25>
6632                     <SET TY123 %<> (TYPE FALSE)>
6633                     <SET ADDR113 TY123>
6634                     <DEAD TY123>
6635                     <FRAME '\1aIN-AC?>
6636                     <PUSH ADDR214>
6637                     <PUSH 'BOTH>
6638                     <CALL '\1aIN-AC? 2 = AC219>
6639                     <JUMP + PHRASE44>
6640 PHRASE34
6641                     <TYPE? AC118 <TYPE-CODE FALSE> + PHRASE39>
6642                     <FRAME '\1aIN-AC?>
6643                     <PUSH ARG217>
6644                     <PUSH 'BOTH>
6645                     <CALL '\1aIN-AC? 2 = AC219>
6646                     <TYPE? AC219 <TYPE-CODE FALSE> + PHRASE44>
6647                     <FRAME '\1aGET-AC>
6648                     <PUSH AC219>
6649                     <CALL '\1aGET-AC 1 = TEMP25>
6650                     <NTHUV TEMP25 6 = TY224>
6651                     <DEAD TEMP25>
6652                     <JUMP + PHRASE44>
6653 PHRASE39
6654                     <TYPE? AC219 <TYPE-CODE FALSE> + PHRASE43>
6655                     <SET TY224 TY123>
6656                     <DEAD TY123>
6657                     <SET AC118 AC219>
6658                     <DEAD AC219>
6659                     <SET ARG217 ARG116>
6660                     <DEAD ARG116>
6661                     <SET ADDR214 ADDR113>
6662                     <DEAD ADDR113>
6663                     <RESTL L12 1 = TEMP25 (TYPE LIST)>
6664                     <NTHL TEMP25 1 = ARG116>
6665                     <DEAD TEMP25>
6666                     <SET TY123 %<> (TYPE FALSE)>
6667                     <SET ADDR113 TY123>
6668                     <DEAD TY123>
6669                     <SET AC219 %<> (TYPE FALSE)>
6670                     <JUMP + PHRASE44>
6671 PHRASE43
6672                     <FRAME '\1aLOAD-AC>
6673                     <PUSH ARG116>
6674                     <DEAD ARG116>
6675                     <PUSH 'BOTH>
6676                     <CALL '\1aLOAD-AC 2 = AC118>
6677 PHRASE44
6678                     <FRAME '\1aLABEL-UPDATE-ACS>
6679                     <RESTL L12 1 = TEMP25 (TYPE LIST)>
6680                     <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
6681                     <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
6682                     <NTHL TEMP25 1 = STACK>
6683                     <DEAD TEMP25>
6684                     <PUSH %<>>
6685                     <PUSH %<>>
6686                     <PUSH AC118>
6687                     <PUSH AC219>
6688                     <CALL '\1aLABEL-UPDATE-ACS 5 = ARG116>
6689                     <NTHL ARG116 1 = TEMP25>
6690                     <EQUAL? TEMP25 AC118 + PHRASE48>
6691                     <DEAD TEMP25>
6692                     <FRAME '\1aGET-AC>
6693                     <NTHL ARG116 1 = AC118>
6694                     <PUSH AC118>
6695                     <CALL '\1aGET-AC 1 = TEMP25>
6696                     <NTHUV TEMP25 4 = AC-T120 (TYPE FIX)>
6697                     <DEAD TEMP25>
6698 PHRASE48
6699                     <TYPE? AC219 <TYPE-CODE FALSE> + PHRASE51>
6700                     <RESTL ARG116 1 = TEMP25 (TYPE LIST)>
6701                     <NTHL TEMP25 1 = TEMP25>
6702                     <EQUAL? TEMP25 AC219 + PHRASE51>
6703                     <DEAD TEMP25>
6704                     <FRAME '\1aGET-AC>
6705                     <RESTL ARG116 1 = TEMP25 (TYPE LIST)>
6706                     <DEAD ARG116>
6707                     <NTHL TEMP25 1 = AC219>
6708                     <DEAD TEMP25>
6709                     <PUSH AC219>
6710                     <CALL '\1aGET-AC 1 = TEMP25>
6711                     <NTHUV TEMP25 4 = AC-T221 (TYPE FIX)>
6712                     <DEAD TEMP25>
6713 PHRASE51
6714                     <FRAME '\1aOCEMIT>
6715                     <PUSH 'CAMN>
6716                     <PUSH AC118>
6717                     <SET ARG116 2 (TYPE FIX)>
6718                     <TYPE? ADDR214 <TYPE-CODE FALSE> + PHRASE57>
6719                     <CONS ADDR214 () = TY123>
6720                     <CONS TY123 () = TEMP25>
6721                     <DEAD TY123>
6722                     <CONS OFF15 TEMP25 = TEMP25>
6723                     <JUMP + PHRASE62>
6724 PHRASE57
6725                     <TYPE? TY224 <TYPE-CODE FALSE> + PHRASE59>
6726                     <FRAME '\1aTYPE-WORD>
6727                     <PUSH TY224>
6728                     <DEAD TY224>
6729                     <CALL '\1aTYPE-WORD 1 = TEMP25>
6730                     <JUMP + PHRASE62>
6731 PHRASE59
6732                     <TYPE? AC219 <TYPE-CODE FALSE> + PHRASE61>
6733                     <CONS AC219 () = TEMP25>
6734                     <JUMP + PHRASE62>
6735 PHRASE61
6736                     <FRAME '\1aOBJ-TYP>
6737                     <PUSH ARG217>
6738                     <CALL '\1aOBJ-TYP 1 = TEMP25>
6739 PHRASE62
6740                     <LOOP (TEMP25 TYPE VALUE LENGTH) (ARG116 VALUE)>
6741 TAG64
6742                     <INTGO>
6743                     <EMPTY? TEMP25 + TAG54>
6744                     <NTH1 TEMP25 = STACK>
6745                     <REST1 TEMP25 = TEMP25>
6746                     <ADD ARG116 1 = ARG116 (TYPE FIX)>
6747                     <JUMP + TAG64>
6748 TAG54
6749                     <CALL '\1aOCEMIT ARG116>
6750                     <DEAD ARG116>
6751                     <FRAME '\1aOCEMIT>
6752                     <PUSH 'CAME>
6753                     <FRAME '\1aNEXT-AC>
6754                     <PUSH AC118>
6755                     <CALL '\1aNEXT-AC 1 = STACK>
6756                     <SET TEMP25 2 (TYPE FIX)>
6757                     <TYPE? AC219 <TYPE-CODE FALSE> + PHRASE69>
6758                     <FRAME '\1aNEXT-AC>
6759                     <PUSH AC219>
6760                     <CALL '\1aNEXT-AC 1 = TY123>
6761                     <CONS TY123 () = ARG116>
6762                     <DEAD TY123>
6763                     <JUMP + PHRASE73>
6764 PHRASE69
6765                     <TYPE? ADDR214 <TYPE-CODE FALSE> + PHRASE71>
6766                     <CONS ADDR214 () = TY123>
6767                     <DEAD ADDR214>
6768                     <CONS TY123 () = ARG116>
6769                     <DEAD TY123>
6770                     <FRAME '\1a+>
6771                     <PUSH OFF15>
6772                     <DEAD OFF15>
6773                     <PUSH 1>
6774                     <CALL '\1a+ 2 = TY123>
6775                     <CONS TY123 ARG116 = ARG116>
6776                     <DEAD TY123>
6777                     <JUMP + PHRASE73>
6778 PHRASE71
6779                     <FRAME '\1aOBJ-VAL>
6780                     <PUSH ARG217>
6781                     <DEAD ARG217>
6782                     <CALL '\1aOBJ-VAL 1 = ARG116>
6783 PHRASE73
6784                     <LOOP (ARG116 TYPE VALUE LENGTH) (TEMP25 VALUE)>
6785 TAG75
6786                     <INTGO>
6787                     <EMPTY? ARG116 + TAG66>
6788                     <NTH1 ARG116 = STACK>
6789                     <REST1 ARG116 = ARG116>
6790                     <ADD TEMP25 1 = TEMP25 (TYPE FIX)>
6791                     <JUMP + TAG75>
6792 TAG66
6793                     <CALL '\1aOCEMIT TEMP25>
6794                     <DEAD TEMP25>
6795                     <RESTL L12 1 = TEMP25 (TYPE LIST)>
6796                     <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
6797                     <NTHL TEMP25 1 = TEMP25>
6798                     <EQUAL? TEMP25 '+ - PHRASE78>
6799                     <DEAD TEMP25>
6800                     <FRAME '\1aOCEMIT>
6801                     <PUSH 'CAIA>
6802                     <PUSH 'O*>
6803                     <PUSH 'O*>
6804                     <CALL '\1aOCEMIT 3>
6805 PHRASE78
6806                     <FRAME '\1aOCEMIT>
6807                     <PUSH 'JRST>
6808                     <FRAME '\1aXJUMP>
6809                     <RESTL L12 1 = TEMP25 (TYPE LIST)>
6810                     <DEAD L12>
6811                     <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
6812                     <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
6813                     <NTHL TEMP25 1 = STACK>
6814                     <DEAD TEMP25>
6815                     <CALL '\1aXJUMP 1 = STACK>
6816                     <CALL '\1aOCEMIT 2>
6817                     <TYPE? AC-T120 <TYPE-CODE FALSE> + PHRASE83>
6818                     <FRAME '\1aGET-AC>
6819                     <PUSH AC118>
6820                     <CALL '\1aGET-AC 1 = TEMP25>
6821                     <PUTUV TEMP25 4 AC-T120 (TYPE FIX)>
6822                     <DEAD TEMP25>
6823                     <FRAME '\1aGET-AC>
6824                     <FRAME '\1aNEXT-AC>
6825                     <PUSH AC118>
6826                     <DEAD AC118>
6827                     <CALL '\1aNEXT-AC 1 = STACK>
6828                     <CALL '\1aGET-AC 1 = TEMP25>
6829                     <PUTUV TEMP25 4 AC-T120 (TYPE FIX)>
6830                     <DEAD TEMP25 AC-T120>
6831 PHRASE83
6832                     <SET TEMP25 AC-T221>
6833                     <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE88>
6834                     <FRAME '\1aGET-AC>
6835                     <PUSH AC219>
6836                     <CALL '\1aGET-AC 1 = ARG116>
6837                     <PUTUV ARG116 4 AC-T221 (TYPE FIX)>
6838                     <DEAD ARG116>
6839                     <FRAME '\1aGET-AC>
6840                     <FRAME '\1aNEXT-AC>
6841                     <PUSH AC219>
6842                     <DEAD AC219>
6843                     <CALL '\1aNEXT-AC 1 = STACK>
6844                     <CALL '\1aGET-AC 1 = ARG116>
6845                     <PUTUV ARG116 4 AC-T221 (TYPE FIX)>
6846                     <DEAD AC-T221>
6847                     <SET TEMP25 ARG116>
6848                     <DEAD ARG116>
6849 PHRASE88
6850                     <RETURN TEMP25>
6851                     <DEAD TEMP25>
6852                     <END \1aEQUAL?!-MIMOC>
6853 #WORD *10236645671*
6854 <GFCN \1aVEQUAL?!-MIMOC ("VALUE" <OR FALSE AC> LIST "OPTIONAL" ANY ANY ANY ANY ATOM ATOM ATOM ATOM ATOM ATOM ANY ANY ATOM ATOM) L19 ADDR120 ADDR221 OFF22 TY23 CAI24 CAM25 JUMP26 CAIX27 CAMX28 JUMPX29 SOJ30 SOJX31 SKIP32 SKIPX33>
6855                     <OPT-DISPATCH 1 %<> OPT4 OPT5 OPT6 OPT7 OPT8 OPT9 OPT10 OPT11 OPT12 OPT13 OPT14 OPT15 OPT16 OPT17 OPT18>
6856 OPT4
6857                     <PUSH %<>>
6858 OPT5
6859                     <PUSH %<>>
6860 OPT6
6861                     <PUSH %<>>
6862 OPT7
6863                     <PUSH %<>>
6864 OPT8
6865                     <PUSH 'CAIN>
6866 OPT9
6867                     <PUSH 'CAMN>
6868 OPT10
6869                     <PUSH 'JUMPE>
6870 OPT11
6871                     <PUSH 'CAIE>
6872 OPT12
6873                     <PUSH 'CAME>
6874 OPT13
6875                     <PUSH 'JUMPN>
6876 OPT14
6877                     <PUSH 'SOJE>
6878 OPT15
6879                     <PUSH 'SOJN>
6880 OPT16
6881                     <PUSH 'SKIPN>
6882 OPT17
6883                     <PUSH 'SKIPE>
6884 OPT18
6885                     <TEMP ARG134 TEMP48 ARG235 TAG36:ATOM (AC-T139 %<>) (AC-T240 %<>) DIR43 (KL45 %<>) (SWAPPED?47 %<>) TEMP62 AC137 AC241>
6886                     <INTGO>
6887                     <NTHL L19 1 = ARG134>
6888                     <RESTL L19 1 = TEMP48 (TYPE LIST)>
6889                     <NTHL TEMP48 1 = ARG235>
6890                     <DEAD TEMP48>
6891                     <RESTL L19 1 = TEMP48 (TYPE LIST)>
6892                     <RESTL TEMP48 1 = TEMP48 (TYPE LIST)>
6893                     <RESTL TEMP48 1 = TEMP48 (TYPE LIST)>
6894                     <NTHL TEMP48 1 = TAG36 (TYPE ATOM)>
6895                     <DEAD TEMP48>
6896                     <RESTL L19 1 = TEMP48 (TYPE LIST)>
6897                     <DEAD L19>
6898                     <RESTL TEMP48 1 = TEMP48 (TYPE LIST)>
6899                     <NTHL TEMP48 1 = DIR43>
6900                     <DEAD TEMP48>
6901                     <TYPE? ARG235 <TYPE-CODE FLOAT> + TAG51>
6902                     <TYPE? ARG235 <TYPE-CODE WORD> + TAG51>
6903                     <TYPE? ARG235 <TYPE-CODE LOSE> + TAG51>
6904                     <TYPE? ARG235 <TYPE-CODE CHARACTER> - PHRASE50>
6905 TAG51
6906                     <CHTYPE ARG235 <TYPE-CODE FIX> = ARG235>
6907                     <JUMP + PHRASE52>
6908 PHRASE50
6909                     <FRAME '\1aPRIMTYPE>
6910                     <PUSH ARG235>
6911                     <CALL '\1aPRIMTYPE 1 = TEMP48>
6912                     <VEQUAL? TEMP48 'LIST - PHRASE52>
6913                     <DEAD TEMP48>
6914                     <EMPTY? ARG235 - PHRASE52>
6915                     <SET ARG235 0 (TYPE FIX)>
6916 PHRASE52
6917                     <SET TEMP48 ADDR120>
6918                     <TYPE? TEMP48 <TYPE-CODE FALSE> - PHRASE77>
6919                     <FRAME '\1aIN-AC?>
6920                     <PUSH ARG134>
6921                     <PUSH 'VALUE>
6922                     <CALL '\1aIN-AC? 2 = TEMP48>
6923                     <TYPE? TEMP48 <TYPE-CODE FALSE> - PHRASE77>
6924                     <EQUAL? ARG235 0 - PHRASE57>
6925                     <SET TEMP48 'X* (TYPE ATOM)>
6926                     <JUMP + PHRASE77>
6927 PHRASE57
6928                     <TYPE? ARG235 <TYPE-CODE ATOM> - PHRASE58>
6929                     <FRAME '\1aIN-AC?>
6930                     <PUSH ARG235>
6931                     <PUSH 'VALUE>
6932                     <CALL '\1aIN-AC? 2 = TEMP62>
6933                     <TYPE? TEMP62 <TYPE-CODE FALSE> - BOOL60>
6934                     <DEAD TEMP62>
6935                     <TYPE? ARG134 <TYPE-CODE ATOM> + PHRASE58>
6936 BOOL60
6937                     <VEQUAL? CAI24 'CAIGE - PHRASE64>
6938                     <SET KL45 'T (TYPE ATOM)>
6939                     <EQUAL? DIR43 '+ - PHRASE66>
6940                     <SET CAI24 'CAILE (TYPE ATOM)>
6941                     <SET CAM25 'CAMLE (TYPE ATOM)>
6942                     <JUMP + PHRASE71>
6943 PHRASE66
6944                     <SET CAI24 'CAIG (TYPE ATOM)>
6945                     <SET CAM25 'CAMG (TYPE ATOM)>
6946                     <JUMP + PHRASE71>
6947 PHRASE64
6948                     <VEQUAL? CAI24 'CAILE - PHRASE71>
6949                     <SET KL45 'T (TYPE ATOM)>
6950                     <EQUAL? DIR43 '+ - PHRASE70>
6951                     <SET CAI24 'CAIGE (TYPE ATOM)>
6952                     <SET CAM25 'CAMGE (TYPE ATOM)>
6953                     <JUMP + PHRASE71>
6954 PHRASE70
6955                     <SET CAI24 'CAIL (TYPE ATOM)>
6956                     <SET CAM25 'CAML (TYPE ATOM)>
6957 PHRASE71
6958                     <SET SWAPPED?47 'T (TYPE ATOM)>
6959                     <SET TEMP48 ARG134>
6960                     <DEAD ARG134>
6961                     <SET ARG134 ARG235>
6962                     <DEAD ARG235>
6963                     <SET ARG235 TEMP48>
6964                     <DEAD TEMP48>
6965                     <FRAME '\1aIN-AC?>
6966                     <PUSH ARG134>
6967                     <PUSH 'VALUE>
6968                     <CALL '\1aIN-AC? 2 = TEMP48>
6969                     <TYPE? TEMP48 <TYPE-CODE FALSE> - PHRASE77>
6970                     <FRAME '\1aNEXT-AC>
6971                     <FRAME '\1aLOAD-AC>
6972                     <PUSH ARG134>
6973                     <PUSH 'BOTH>
6974                     <CALL '\1aLOAD-AC 2 = STACK>
6975                     <CALL '\1aNEXT-AC 1 = TEMP48>
6976                     <JUMP + PHRASE77>
6977 PHRASE58
6978                     <FRAME '\1aNEXT-AC>
6979                     <FRAME '\1aLOAD-AC>
6980                     <PUSH ARG134>
6981                     <PUSH 'BOTH>
6982                     <CALL '\1aLOAD-AC 2 = STACK>
6983                     <CALL '\1aNEXT-AC 1 = TEMP48>
6984 PHRASE77
6985                     <SET AC137 TEMP48>
6986                     <DEAD TEMP48>
6987                     <SET AC241 ADDR221>
6988                     <DEAD ADDR221>
6989                     <TYPE? AC241 <TYPE-CODE FALSE> - PHRASE86>
6990                     <TYPE? ARG235 <TYPE-CODE ATOM> - BOOL81>
6991                     <FRAME '\1aIN-AC?>
6992                     <PUSH ARG235>
6993                     <PUSH 'VALUE>
6994                     <CALL '\1aIN-AC? 2 = AC241>
6995                     <TYPE? AC241 <TYPE-CODE FALSE> - PHRASE86>
6996 BOOL81
6997                     <TYPE? ADDR120 <TYPE-CODE FALSE> + PHRASE83>
6998                     <DEAD ADDR120>
6999                     <TYPE? ARG235 <TYPE-CODE ATOM> - PHRASE83>
7000                     <FRAME '\1aLOAD-AC>
7001                     <PUSH ARG235>
7002                     <PUSH 'VALUE>
7003                     <CALL '\1aLOAD-AC 2 = AC241>
7004                     <JUMP + PHRASE86>
7005 PHRASE83
7006                     <SET AC241 'X* (TYPE ATOM)>
7007 PHRASE86
7008                     <EQUAL? ARG235 1 - PHRASE88>
7009                     <FRAME '\1aGET-AC>
7010                     <PUSH AC137>
7011                     <CALL '\1aGET-AC 1 = TEMP48>
7012                     <NTHUV TEMP48 5 = TEMP48>
7013                     <TYPE? TEMP48 <TYPE-CODE FALSE> - PHRASE88>
7014                     <DEAD TEMP48>
7015                     <FRAME '\1aIN-AC?>
7016                     <PUSH ARG134>
7017                     <PUSH 'BOTH>
7018                     <CALL '\1aIN-AC? 2 = TEMP48>
7019                     <TYPE? TEMP48 <TYPE-CODE FALSE> + PHRASE92>
7020                     <FRAME '\1aMUNGED-AC>
7021                     <PUSH TEMP48>
7022                     <DEAD TEMP48>
7023                     <PUSH 'T>
7024                     <CALL '\1aMUNGED-AC 2>
7025                     <JUMP + PHRASE97>
7026 PHRASE92
7027                     <FRAME '\1aMUNGED-AC>
7028                     <PUSH AC137>
7029                     <CALL '\1aMUNGED-AC 1>
7030                     <JUMP + PHRASE97>
7031 PHRASE88
7032                     <SET SOJ30 %<> (TYPE FALSE)>
7033 PHRASE97
7034                     <FRAME '\1aLABEL-UPDATE-ACS>
7035                     <PUSH TAG36>
7036                     <PUSH %<>>
7037                     <PUSH 'T>
7038                     <VEQUAL? AC137 'X* - TAG102>
7039                     <SET TEMP48 %<> (TYPE FALSE)>
7040                     <JUMP + PHRASE100>
7041 TAG102
7042                     <VEQUAL? AC137 'O* - TAG103>
7043                     <SET TEMP48 %<> (TYPE FALSE)>
7044                     <JUMP + PHRASE100>
7045 TAG103
7046                     <SET TEMP48 AC137>
7047 PHRASE100
7048                     <PUSH TEMP48>
7049                     <DEAD TEMP48>
7050                     <EQUAL? AC241 'X* - TAG107>
7051                     <SET TEMP48 %<> (TYPE FALSE)>
7052                     <JUMP + PHRASE105>
7053 TAG107
7054                     <EQUAL? AC241 'O* - TAG108>
7055                     <SET TEMP48 %<> (TYPE FALSE)>
7056                     <JUMP + PHRASE105>
7057 TAG108
7058                     <SET TEMP48 AC241>
7059 PHRASE105
7060                     <PUSH TEMP48>
7061                     <DEAD TEMP48>
7062                     <CALL '\1aLABEL-UPDATE-ACS 5 = TEMP62>
7063                     <VEQUAL? AC137 'X* + PHRASE110>
7064                     <VEQUAL? AC137 'O* + PHRASE110>
7065                     <NTH1 TEMP62 = TEMP48>
7066                     <EQUAL? TEMP48 AC137 + PHRASE110>
7067                     <DEAD TEMP48>
7068                     <FRAME '\1aGET-AC>
7069                     <NTH1 TEMP62 = AC137>
7070                     <PUSH AC137>
7071                     <CALL '\1aGET-AC 1 = TEMP48>
7072                     <NTHUV TEMP48 4 = AC-T139 (TYPE FIX)>
7073                     <DEAD TEMP48>
7074 PHRASE110
7075                     <EQUAL? AC241 'X* + PHRASE114>
7076                     <EQUAL? AC241 'O* + PHRASE114>
7077                     <FRAME '\1aNTH>
7078                     <PUSH TEMP62>
7079                     <PUSH 2>
7080                     <CALL '\1aNTH 2 = TEMP48>
7081                     <EQUAL? TEMP48 AC241 + PHRASE114>
7082                     <DEAD TEMP48>
7083                     <FRAME '\1aGET-AC>
7084                     <FRAME '\1aNTH>
7085                     <PUSH TEMP62>
7086                     <DEAD TEMP62>
7087                     <PUSH 2>
7088                     <CALL '\1aNTH 2 = AC241>
7089                     <PUSH AC241>
7090                     <CALL '\1aGET-AC 1 = TEMP48>
7091                     <NTHUV TEMP48 4 = AC-T240 (TYPE FIX)>
7092                     <DEAD TEMP48>
7093 PHRASE114
7094                     <VEQUAL? KL45 0 - PHRASE120>
7095                     <DEAD KL45>
7096                     <EQUAL? DIR43 '- - PHRASE120>
7097                     <DEAD DIR43>
7098                     <SET CAI24 CAIX27>
7099                     <SET CAM25 CAMX28>
7100                     <SET JUMP26 JUMPX29>
7101                     <DEAD JUMPX29>
7102                     <TYPE? SOJ30 <TYPE-CODE FALSE> + PHRASE123>
7103                     <SET SOJ30 SOJX31>
7104                     <DEAD SOJX31>
7105 PHRASE123
7106                     <SET SKIP32 SKIPX33>
7107 PHRASE120
7108                     <TYPE? OFF22 <TYPE-CODE FALSE> + PHRASE125>
7109                     <TYPE? TY23 <TYPE-CODE FALSE> + PHRASE125>
7110                     <FRAME '\1a+>
7111                     <GVAL 'ACS = TEMP48>
7112                     <EMPUV? TEMP48 + TAG128>
7113                     <LOOP (AC137 VALUE) (TEMP48 LENGTH VALUE)>
7114 TAG130
7115                     <NTHUV TEMP48 1 = TEMP62>
7116                     <TYPE? TEMP62 <TYPE-CODE ATOM> - TAG131>
7117                     <VEQUAL? TEMP62 AC137 + TAG129>
7118                     <DEAD TEMP62>
7119 TAG131
7120                     <RESTUV TEMP48 1 = TEMP48 (TYPE VECTOR)>
7121                     <EMPUV? TEMP48 - TAG130>
7122 TAG128
7123                     <SET TEMP48 %<> (TYPE FALSE)>
7124 TAG129
7125                     <NTHUV TEMP48 2 = TEMP48>
7126                     <LSH TEMP48 18 = TEMP48 (TYPE FIX)>
7127                     <OR TEMP48 #WORD *222000000000* = STACK>
7128                     <DEAD TEMP48>
7129                     <FRAME '\1a->
7130                     <PUSH OFF22>
7131                     <PUSH 1>
7132                     <CALL '\1a- 2 = STACK>
7133                     <CALL '\1a+ 2 = TEMP48>
7134                     <FRAME '\1aCONST-LOC>
7135                     <PUSH TEMP48>
7136                     <PUSH 'VALUE>
7137                     <CALL '\1aCONST-LOC 2>
7138                     <FRAME '\1aOCEMIT>
7139                     <PUSH 'LDB>
7140                     <PUSH 'O*>
7141                     <SET TEMP62 2 (TYPE FIX)>
7142                     <SFRAME 'OBJ-VAL>
7143                     <PUSH TEMP48>
7144                     <DEAD TEMP48>
7145                     <SCALL '\1aOBJ-VAL 1 = TEMP48 + TAG134 TEMP62>
7146                     <LOOP (TEMP48 TYPE VALUE LENGTH) (TEMP62 VALUE)>
7147 TAG136
7148                     <INTGO>
7149                     <EMPTY? TEMP48 + TAG134>
7150                     <NTH1 TEMP48 = STACK>
7151                     <REST1 TEMP48 = TEMP48>
7152                     <ADD TEMP62 1 = TEMP62 (TYPE FIX)>
7153                     <JUMP + TAG136>
7154 TAG134
7155                     <CALL '\1aOCEMIT TEMP62>
7156                     <DEAD TEMP62>
7157                     <FRAME '\1aOCEMIT>
7158                     <PUSH 'CAIN>
7159                     <PUSH 'O*>
7160                     <PUSH TY23>
7161                     <CALL '\1aOCEMIT 3>
7162                     <SET CAI24 CAIX27>
7163                     <DEAD CAIX27>
7164                     <SET CAM25 CAMX28>
7165                     <DEAD CAMX28>
7166                     <SET SKIP32 SKIPX33>
7167                     <DEAD SKIPX33>
7168 PHRASE125
7169                     <EQUAL? ARG235 0 - PHRASE140>
7170                     <TYPE? OFF22 <TYPE-CODE FALSE> + PHRASE142>
7171                     <TYPE? OFF22 <TYPE-CODE FIX> - PHRASE144>
7172                     <FRAME '\1aOCEMIT>
7173                     <PUSH SKIP32>
7174                     <DEAD SKIP32>
7175                     <PUSH 'O*>
7176                     <PUSH OFF22>
7177                     <DEAD OFF22>
7178                     <CONS AC137 () = STACK>
7179                     <CALL '\1aOCEMIT 4>
7180                     <JUMP + PHRASE146>
7181 PHRASE144
7182                     <FRAME '\1aOCEMIT>
7183                     <PUSH SKIP32>
7184                     <DEAD SKIP32>
7185                     <PUSH 'O*>
7186                     <SET TEMP48 2 (TYPE FIX)>
7187                     <SET TEMP62 OFF22>
7188                     <DEAD OFF22>
7189                     <LOOP (TEMP62 TYPE VALUE LENGTH) (TEMP48 VALUE)>
7190 TAG148
7191                     <INTGO>
7192                     <EMPTY? TEMP62 + TAG147>
7193                     <NTH1 TEMP62 = STACK>
7194                     <REST1 TEMP62 = TEMP62>
7195                     <ADD TEMP48 1 = TEMP48 (TYPE FIX)>
7196                     <JUMP + TAG148>
7197 TAG147
7198                     <CALL '\1aOCEMIT TEMP48>
7199                     <DEAD TEMP48>
7200 PHRASE146
7201                     <TYPE? TY23 <TYPE-CODE FALSE> + PHRASE151>
7202                     <DEAD TY23>
7203                     <FRAME '\1aOCEMIT>
7204                     <PUSH 'CAIA>
7205                     <PUSH 'O*>
7206                     <PUSH 'O*>
7207                     <CALL '\1aOCEMIT 3>
7208 PHRASE151
7209                     <FRAME '\1aOCEMIT>
7210                     <PUSH 'JRST>
7211                     <FRAME '\1aXJUMP>
7212                     <PUSH TAG36>
7213                     <DEAD TAG36>
7214                     <CALL '\1aXJUMP 1 = STACK>
7215                     <CALL '\1aOCEMIT 2>
7216                     <JUMP + PHRASE198>
7217 PHRASE142
7218                     <VEQUAL? AC137 'X* - PHRASE155>
7219                     <FRAME '\1aOCEMIT>
7220                     <PUSH SKIP32>
7221                     <DEAD SKIP32>
7222                     <SET TEMP62 1 (TYPE FIX)>
7223                     <SFRAME 'OBJ-VAL>
7224                     <PUSH ARG134>
7225                     <DEAD ARG134>
7226                     <SCALL '\1aOBJ-VAL 1 = TEMP48 + TAG156 TEMP62>
7227                     <LOOP (TEMP48 TYPE VALUE LENGTH) (TEMP62 VALUE)>
7228 TAG158
7229                     <INTGO>
7230                     <EMPTY? TEMP48 + TAG156>
7231                     <NTH1 TEMP48 = STACK>
7232                     <REST1 TEMP48 = TEMP48>
7233                     <ADD TEMP62 1 = TEMP62 (TYPE FIX)>
7234                     <JUMP + TAG158>
7235 TAG156
7236                     <CALL '\1aOCEMIT TEMP62>
7237                     <DEAD TEMP62>
7238                     <FRAME '\1aOCEMIT>
7239                     <PUSH 'JRST>
7240                     <FRAME '\1aXJUMP>
7241                     <PUSH TAG36>
7242                     <DEAD TAG36>
7243                     <CALL '\1aXJUMP 1 = STACK>
7244                     <CALL '\1aOCEMIT 2>
7245                     <JUMP + PHRASE198>
7246 PHRASE155
7247                     <FRAME '\1aOCEMIT>
7248                     <PUSH JUMP26>
7249                     <DEAD JUMP26>
7250                     <PUSH AC137>
7251                     <FRAME '\1aXJUMP>
7252                     <PUSH TAG36>
7253                     <DEAD TAG36>
7254                     <CALL '\1aXJUMP 1 = STACK>
7255                     <CALL '\1aOCEMIT 3>
7256                     <JUMP + PHRASE198>
7257 PHRASE140
7258                     <EQUAL? ARG235 1 - PHRASE165>
7259                     <FRAME '\1aGET-AC>
7260                     <PUSH AC137>
7261                     <CALL '\1aGET-AC 1 = TEMP62>
7262                     <NTHUV TEMP62 5 = TEMP62>
7263                     <TYPE? TEMP62 <TYPE-CODE FALSE> - PHRASE165>
7264                     <DEAD TEMP62>
7265                     <TYPE? SOJ30 <TYPE-CODE FALSE> + PHRASE165>
7266                     <FRAME '\1aOCEMIT>
7267                     <PUSH SOJ30>
7268                     <DEAD SOJ30>
7269                     <PUSH AC137>
7270                     <FRAME '\1aXJUMP>
7271                     <PUSH TAG36>
7272                     <DEAD TAG36>
7273                     <CALL '\1aXJUMP 1 = STACK>
7274                     <CALL '\1aOCEMIT 3>
7275                     <JUMP + PHRASE198>
7276 PHRASE165
7277                     <TYPE? ARG235 <TYPE-CODE FIX> - PHRASE170>
7278                     <LESS? ARG235 0 + PHRASE170 (TYPE FIX)>
7279                     <GVAL 'MAX-IMMEDIATE = TEMP62>
7280                     <GRTR? ARG235 TEMP62 + PHRASE170 (TYPE FIX)>
7281                     <DEAD TEMP62>
7282                     <FRAME '\1aOCEMIT>
7283                     <PUSH CAI24>
7284                     <DEAD CAI24>
7285                     <PUSH AC137>
7286                     <PUSH ARG235>
7287                     <DEAD ARG235>
7288                     <CALL '\1aOCEMIT 3>
7289                     <FRAME '\1aOCEMIT>
7290                     <PUSH 'JRST>
7291                     <FRAME '\1aXJUMP>
7292                     <PUSH TAG36>
7293                     <DEAD TAG36>
7294                     <CALL '\1aXJUMP 1 = STACK>
7295                     <CALL '\1aOCEMIT 2>
7296                     <JUMP + PHRASE198>
7297 PHRASE170
7298                     <TYPE? OFF22 <TYPE-CODE FALSE> + PHRASE177>
7299                     <VEQUAL? SWAPPED?47 0 + PHRASE179>
7300                     <DEAD SWAPPED?47>
7301                     <TYPE? OFF22 <TYPE-CODE FIX> - PHRASE181>
7302                     <FRAME '\1aOCEMIT>
7303                     <PUSH CAM25>
7304                     <DEAD CAM25>
7305                     <PUSH AC137>
7306                     <PUSH OFF22>
7307                     <DEAD OFF22>
7308                     <CONS AC241 () = STACK>
7309                     <CALL '\1aOCEMIT 4>
7310                     <JUMP + PHRASE189>
7311 PHRASE181
7312                     <FRAME '\1aOCEMIT>
7313                     <PUSH CAM25>
7314                     <DEAD CAM25>
7315                     <PUSH AC137>
7316                     <SET TEMP48 2 (TYPE FIX)>
7317                     <SET TEMP62 OFF22>
7318                     <DEAD OFF22>
7319                     <LOOP (TEMP62 TYPE VALUE LENGTH) (TEMP48 VALUE)>
7320 TAG185
7321                     <INTGO>
7322                     <EMPTY? TEMP62 + TAG184>
7323                     <NTH1 TEMP62 = STACK>
7324                     <REST1 TEMP62 = TEMP62>
7325                     <ADD TEMP48 1 = TEMP48 (TYPE FIX)>
7326                     <JUMP + TAG185>
7327 TAG184
7328                     <CALL '\1aOCEMIT TEMP48>
7329                     <DEAD TEMP48>
7330                     <JUMP + PHRASE189>
7331 PHRASE179
7332                     <TYPE? OFF22 <TYPE-CODE FIX> - PHRASE187>
7333                     <FRAME '\1aOCEMIT>
7334                     <PUSH CAM25>
7335                     <DEAD CAM25>
7336                     <PUSH AC241>
7337                     <PUSH OFF22>
7338                     <DEAD OFF22>
7339                     <CONS AC137 () = STACK>
7340                     <CALL '\1aOCEMIT 4>
7341                     <JUMP + PHRASE189>
7342 PHRASE187
7343                     <FRAME '\1aOCEMIT>
7344                     <PUSH CAM25>
7345                     <DEAD CAM25>
7346                     <PUSH AC241>
7347                     <SET TEMP62 2 (TYPE FIX)>
7348                     <SET TEMP48 OFF22>
7349                     <DEAD OFF22>
7350                     <LOOP (TEMP48 TYPE VALUE LENGTH) (TEMP62 VALUE)>
7351 TAG191
7352                     <INTGO>
7353                     <EMPTY? TEMP48 + TAG190>
7354                     <NTH1 TEMP48 = STACK>
7355                     <REST1 TEMP48 = TEMP48>
7356                     <ADD TEMP62 1 = TEMP62 (TYPE FIX)>
7357                     <JUMP + TAG191>
7358 TAG190
7359                     <CALL '\1aOCEMIT TEMP62>
7360                     <DEAD TEMP62>
7361 PHRASE189
7362                     <TYPE? TY23 <TYPE-CODE FALSE> + PHRASE194>
7363                     <DEAD TY23>
7364                     <FRAME '\1aOCEMIT>
7365                     <PUSH 'CAIA>
7366                     <PUSH 'O*>
7367                     <PUSH 'O*>
7368                     <CALL '\1aOCEMIT 3>
7369 PHRASE194
7370                     <FRAME '\1aOCEMIT>
7371                     <PUSH 'JRST>
7372                     <FRAME '\1aXJUMP>
7373                     <PUSH TAG36>
7374                     <DEAD TAG36>
7375                     <CALL '\1aXJUMP 1 = STACK>
7376                     <CALL '\1aOCEMIT 2>
7377                     <JUMP + PHRASE198>
7378 PHRASE177
7379                     <EQUAL? AC241 'X* - PHRASE200>
7380                     <FRAME '\1aOCEMIT>
7381                     <PUSH CAM25>
7382                     <DEAD CAM25>
7383                     <PUSH AC137>
7384                     <SET TEMP48 2 (TYPE FIX)>
7385                     <SFRAME 'OBJ-VAL>
7386                     <PUSH ARG235>
7387                     <DEAD ARG235>
7388                     <SCALL '\1aOBJ-VAL 1 = TEMP62 + TAG201 TEMP48>
7389                     <LOOP (TEMP62 TYPE VALUE LENGTH) (TEMP48 VALUE)>
7390 TAG203
7391                     <INTGO>
7392                     <EMPTY? TEMP62 + TAG201>
7393                     <NTH1 TEMP62 = STACK>
7394                     <REST1 TEMP62 = TEMP62>
7395                     <ADD TEMP48 1 = TEMP48 (TYPE FIX)>
7396                     <JUMP + TAG203>
7397 TAG201
7398                     <CALL '\1aOCEMIT TEMP48>
7399                     <DEAD TEMP48>
7400                     <JUMP + PHRASE205>
7401 PHRASE200
7402                     <FRAME '\1aOCEMIT>
7403                     <PUSH CAM25>
7404                     <DEAD CAM25>
7405                     <PUSH AC137>
7406                     <PUSH AC241>
7407                     <CALL '\1aOCEMIT 3>
7408 PHRASE205
7409                     <FRAME '\1aOCEMIT>
7410                     <PUSH 'JRST>
7411                     <FRAME '\1aXJUMP>
7412                     <PUSH TAG36>
7413                     <DEAD TAG36>
7414                     <CALL '\1aXJUMP 1 = STACK>
7415                     <CALL '\1aOCEMIT 2>
7416 PHRASE198
7417                     <TYPE? AC-T139 <TYPE-CODE FALSE> + PHRASE210>
7418                     <FRAME '\1aGET-AC>
7419                     <PUSH AC137>
7420                     <DEAD AC137>
7421                     <CALL '\1aGET-AC 1 = TEMP48>
7422                     <PUTUV TEMP48 4 AC-T139 (TYPE FIX)>
7423                     <DEAD TEMP48 AC-T139>
7424 PHRASE210
7425                     <SET TEMP48 AC-T240>
7426                     <TYPE? TEMP48 <TYPE-CODE FALSE> + PHRASE213>
7427                     <FRAME '\1aGET-AC>
7428                     <PUSH AC241>
7429                     <DEAD AC241>
7430                     <CALL '\1aGET-AC 1 = TEMP62>
7431                     <PUTUV TEMP62 4 AC-T240 (TYPE FIX)>
7432                     <DEAD AC-T240>
7433                     <SET TEMP48 TEMP62>
7434                     <DEAD TEMP62>
7435 PHRASE213
7436                     <RETURN TEMP48>
7437                     <DEAD TEMP48>
7438                     <END \1aVEQUAL?!-MIMOC>
7439 #WORD *27727713723*
7440 <GFCN \1aLESS?!-MIMOC ("VALUE" <OR FALSE AC> LIST) L5>
7441                     <TEMP TEMP7>
7442                     <INTGO>
7443                     <FRAME '\1aVEQUAL?!-MIMOC>
7444                     <PUSH L5>
7445                     <DEAD L5>
7446                     <PUSH %<>>
7447                     <PUSH %<>>
7448                     <PUSH %<>>
7449                     <PUSH %<>>
7450                     <PUSH 'CAIGE>
7451                     <PUSH 'CAMGE>
7452                     <PUSH 'JUMPL>
7453                     <PUSH 'CAIL>
7454                     <PUSH 'CAML>
7455                     <PUSH 'JUMPGE>
7456                     <PUSH 'SOJL>
7457                     <PUSH 'SOJGE>
7458                     <PUSH 'SKIPGE>
7459                     <PUSH 'SKIPL>
7460                     <CALL '\1aVEQUAL?!-MIMOC 15 = TEMP7>
7461                     <RETURN TEMP7>
7462                     <DEAD TEMP7>
7463                     <END \1aLESS?!-MIMOC>
7464 #WORD *20727274642*
7465 <GFCN \1aGRTR?!-MIMOC ("VALUE" <OR FALSE AC> LIST) L5>
7466                     <TEMP TEMP7>
7467                     <INTGO>
7468                     <FRAME '\1aVEQUAL?!-MIMOC>
7469                     <PUSH L5>
7470                     <DEAD L5>
7471                     <PUSH %<>>
7472                     <PUSH %<>>
7473                     <PUSH %<>>
7474                     <PUSH %<>>
7475                     <PUSH 'CAILE>
7476                     <PUSH 'CAMLE>
7477                     <PUSH 'JUMPG>
7478                     <PUSH 'CAIG>
7479                     <PUSH 'CAMG>
7480                     <PUSH 'JUMPLE>
7481                     <PUSH 'SOJG>
7482                     <PUSH 'SOJLE>
7483                     <PUSH 'SKIPLE>
7484                     <PUSH 'SKIPG>
7485                     <CALL '\1aVEQUAL?!-MIMOC 15 = TEMP7>
7486                     <RETURN TEMP7>
7487                     <DEAD TEMP7>
7488                     <END \1aGRTR?!-MIMOC>
7489 <SETG COMPARERS [VEQUAL!-MIMOC LESS?!-MIMOC GRTR?!-MIMOC]>
7490
7491 #WORD *25246156750*
7492 <GFCN \1aMUL!-MIMOC ("VALUE" ANY LIST) L5>
7493                     <TEMP TEMP7>
7494                     <INTGO>
7495                     <FRAME '\1aARITH!-MIMOC>
7496                     <PUSH L5>
7497                     <DEAD L5>
7498                     <PUSH 'IMUL>
7499                     <PUSH 'IMULI>
7500                     <PUSH %<>>
7501                     <PUSH 'IMULB>
7502                     <CALL '\1aARITH!-MIMOC 5 = TEMP7>
7503                     <RETURN TEMP7>
7504                     <DEAD TEMP7>
7505                     <END \1aMUL!-MIMOC>
7506 #WORD *12352266161*
7507 <GFCN \1aMULF!-MIMOC ("VALUE" ANY LIST) L4>
7508                     <TEMP TEMP6>
7509                     <INTGO>
7510                     <FRAME '\1aARITH!-MIMOC>
7511                     <PUSH L4>
7512                     <DEAD L4>
7513                     <PUSH 'FMPR>
7514                     <PUSH 'FMPRI>
7515                     <PUSH %<>>
7516                     <PUSH 'FMPRB>
7517                     <PUSH 'FLOAT>
7518                     <CALL '\1aARITH!-MIMOC 6 = TEMP6>
7519                     <RETURN TEMP6>
7520                     <DEAD TEMP6>
7521                     <END \1aMULF!-MIMOC>
7522 #WORD *26331255572*
7523 <GFCN \1aSUB!-MIMOC ("VALUE" ANY LIST) L5>
7524                     <TEMP TEMP7>
7525                     <INTGO>
7526                     <FRAME '\1aARITH!-MIMOC>
7527                     <PUSH L5>
7528                     <DEAD L5>
7529                     <PUSH 'SUB>
7530                     <PUSH 'SUBI>
7531                     <PUSH 'SOS>
7532                     <PUSH 'SUBB>
7533                     <CALL '\1aARITH!-MIMOC 5 = TEMP7>
7534                     <RETURN TEMP7>
7535                     <DEAD TEMP7>
7536                     <END \1aSUB!-MIMOC>
7537 #WORD *13252271161*
7538 <GFCN \1aSUBF!-MIMOC ("VALUE" ANY LIST) L4>
7539                     <TEMP TEMP6>
7540                     <INTGO>
7541                     <FRAME '\1aARITH!-MIMOC>
7542                     <PUSH L4>
7543                     <DEAD L4>
7544                     <PUSH 'FSBR>
7545                     <PUSH 'FSBRI>
7546                     <PUSH %<>>
7547                     <PUSH 'FSBRB>
7548                     <PUSH 'FLOAT>
7549                     <CALL '\1aARITH!-MIMOC 6 = TEMP6>
7550                     <RETURN TEMP6>
7551                     <DEAD TEMP6>
7552                     <END \1aSUBF!-MIMOC>
7553 #WORD *25526155350*
7554 <GFCN \1aDIV!-MIMOC ("VALUE" ANY LIST) L5>
7555                     <TEMP TEMP7>
7556                     <INTGO>
7557                     <FRAME '\1aARITH!-MIMOC>
7558                     <PUSH L5>
7559                     <DEAD L5>
7560                     <PUSH 'IDIV>
7561                     <PUSH 'IDIVI>
7562                     <PUSH %<>>
7563                     <PUSH 'IDIVB>
7564                     <CALL '\1aARITH!-MIMOC 5 = TEMP7>
7565                     <RETURN TEMP7>
7566                     <DEAD TEMP7>
7567                     <END \1aDIV!-MIMOC>
7568 #WORD *12052262561*
7569 <GFCN \1aDIVF!-MIMOC ("VALUE" ANY LIST) L4>
7570                     <TEMP TEMP6>
7571                     <INTGO>
7572                     <FRAME '\1aARITH!-MIMOC>
7573                     <PUSH L4>
7574                     <DEAD L4>
7575                     <PUSH 'FDVR>
7576                     <PUSH 'FDVRI>
7577                     <PUSH %<>>
7578                     <PUSH 'FDVRB>
7579                     <PUSH 'FLOAT>
7580                     <CALL '\1aARITH!-MIMOC 6 = TEMP6>
7581                     <RETURN TEMP6>
7582                     <DEAD TEMP6>
7583                     <END \1aDIVF!-MIMOC>
7584 #WORD *23701047431*
7585 <GFCN \1aADD!-MIMOC ("VALUE" ANY LIST) L5>
7586                     <TEMP TEMP7>
7587                     <INTGO>
7588                     <FRAME '\1aARITH!-MIMOC>
7589                     <PUSH L5>
7590                     <DEAD L5>
7591                     <CALL '\1aARITH!-MIMOC 1 = TEMP7>
7592                     <RETURN TEMP7>
7593                     <DEAD TEMP7>
7594                     <END \1aADD!-MIMOC>
7595 #WORD *13152260161*
7596 <GFCN \1aADDF!-MIMOC ("VALUE" ANY LIST) L4>
7597                     <TEMP TEMP6>
7598                     <INTGO>
7599                     <FRAME '\1aARITH!-MIMOC>
7600                     <PUSH L4>
7601                     <DEAD L4>
7602                     <PUSH 'FADR>
7603                     <PUSH 'FADRI>
7604                     <PUSH %<>>
7605                     <PUSH 'FADRB>
7606                     <PUSH 'FLOAT>
7607                     <CALL '\1aARITH!-MIMOC 6 = TEMP6>
7608                     <RETURN TEMP6>
7609                     <DEAD TEMP6>
7610                     <END \1aADDF!-MIMOC>
7611 #WORD *17732307326*
7612 <GFCN \1aMOD!-MIMOC ("VALUE" ANY LIST) L5>
7613                     <TEMP TEMP7>
7614                     <INTGO>
7615                     <FRAME '\1aARITH!-MIMOC>
7616                     <PUSH L5>
7617                     <DEAD L5>
7618                     <PUSH 'IDIV>
7619                     <PUSH 'IDIVI>
7620                     <PUSH 'MOD>
7621                     <PUSH %<>>
7622                     <CALL '\1aARITH!-MIMOC 5 = TEMP7>
7623                     <RETURN TEMP7>
7624                     <DEAD TEMP7>
7625                     <END \1aMOD!-MIMOC>
7626 #WORD *11405060530*
7627 <GFCN \1aXOR!-MIMOC ("VALUE" ANY LIST) L5>
7628                     <TEMP TEMP7>
7629                     <INTGO>
7630                     <FRAME '\1aARITH!-MIMOC>
7631                     <PUSH L5>
7632                     <DEAD L5>
7633                     <PUSH 'XOR>
7634                     <PUSH 'XORI>
7635                     <PUSH 'TLC>
7636                     <PUSH 'XORB>
7637                     <CALL '\1aARITH!-MIMOC 5 = TEMP7>
7638                     <RETURN TEMP7>
7639                     <DEAD TEMP7>
7640                     <END \1aXOR!-MIMOC>
7641 #WORD *31057141657*
7642 <GFCN \1aEQV!-MIMOC ("VALUE" ANY LIST) L5>
7643                     <TEMP TEMP7>
7644                     <INTGO>
7645                     <FRAME '\1aARITH!-MIMOC>
7646                     <PUSH L5>
7647                     <DEAD L5>
7648                     <PUSH 'EQV>
7649                     <PUSH 'EQVI>
7650                     <PUSH (TLC TRC)>
7651                     <PUSH 'EQVB>
7652                     <CALL '\1aARITH!-MIMOC 5 = TEMP7>
7653                     <RETURN TEMP7>
7654                     <DEAD TEMP7>
7655                     <END \1aEQV!-MIMOC>
7656 #WORD *27431256472*
7657 <GFCN \1aOR!-MIMOC ("VALUE" ANY LIST) L5>
7658                     <TEMP TEMP7>
7659                     <INTGO>
7660                     <FRAME '\1aARITH!-MIMOC>
7661                     <PUSH L5>
7662                     <DEAD L5>
7663                     <PUSH 'IOR>
7664                     <PUSH 'IORI>
7665                     <PUSH 'TLO>
7666                     <PUSH 'IORB>
7667                     <CALL '\1aARITH!-MIMOC 5 = TEMP7>
7668                     <RETURN TEMP7>
7669                     <DEAD TEMP7>
7670                     <END \1aOR!-MIMOC>
7671 #WORD *27733447356*
7672 <GFCN \1aARITH!-MIMOC ("VALUE" ANY LIST "OPTIONAL" ATOM ATOM <OR ATOM LIST FALSE> ANY ANY) L10 NORM11 IMMED12 HACK13 BO14 RESTYP15>
7673                     <OPT-DISPATCH 1 %<> OPT4 OPT5 OPT6 OPT7 OPT8 OPT9>
7674 OPT4
7675                     <PUSH 'ADD>
7676 OPT5
7677                     <PUSH 'ADDI>
7678 OPT6
7679                     <PUSH 'AOS>
7680 OPT7
7681                     <PUSH 'ADDB>
7682 OPT8
7683                     <PUSH 'FIX>
7684 OPT9
7685                     <TEMP ARG118 TEMP25 ARG219 VAL20:ATOM TEM22 (IMM-OK23 %<>) (NEG-FIRST24 %<>) OAC17 TEMP54 HACK221:ATOM>
7686                     <INTGO>
7687                     <NTHL L10 1 = ARG118>
7688                     <RESTL L10 1 = TEMP25 (TYPE LIST)>
7689                     <NTHL TEMP25 1 = ARG219>
7690                     <DEAD TEMP25>
7691                     <RESTL L10 1 = TEMP25 (TYPE LIST)>
7692                     <DEAD L10>
7693                     <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
7694                     <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
7695                     <NTHL TEMP25 1 = VAL20 (TYPE ATOM)>
7696                     <DEAD TEMP25>
7697                     <SET TEM22 ARG118>
7698                     <EQUAL? ARG118 1 - PHRASE27>
7699                     <VEQUAL? NORM11 'ADD - PHRASE27>
7700                     <SET ARG118 ARG219>
7701                     <DEAD ARG219>
7702                     <SET ARG219 1 (TYPE FIX)>
7703 PHRASE27
7704                     <EQUAL? ARG219 VAL20 - BOOL33>
7705                     <FRAME '\1aIN-AC?>
7706                     <PUSH ARG118>
7707                     <PUSH 'VALUE>
7708                     <CALL '\1aIN-AC? 2 = TEMP25>
7709                     <TYPE? TEMP25 <TYPE-CODE FALSE> + BOOL41>
7710                     <DEAD TEMP25>
7711                     <FRAME '\1aWILL-DIE?>
7712                     <PUSH ARG118>
7713                     <CALL '\1aWILL-DIE? 1 = TEMP25>
7714                     <TYPE? TEMP25 <TYPE-CODE FALSE> + BOOL41>
7715                     <DEAD TEMP25>
7716 BOOL33
7717                     <FRAME '\1aIN-AC?>
7718                     <PUSH ARG219>
7719                     <PUSH 'VALUE>
7720                     <CALL '\1aIN-AC? 2 = TEMP25>
7721                     <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE30>
7722                     <FRAME '\1aIN-AC?>
7723                     <PUSH ARG118>
7724                     <PUSH 'VALUE>
7725                     <CALL '\1aIN-AC? 2 = OAC17>
7726                     <TYPE? OAC17 <TYPE-CODE FALSE> + BOOL41>
7727                     <EQUAL? ARG118 VAL20 + PHRASE30>
7728                     <FRAME '\1aGET-AC>
7729                     <PUSH OAC17>
7730                     <DEAD OAC17>
7731                     <CALL '\1aGET-AC 1 = OAC17>
7732                     <NTHUV OAC17 5 = OAC17>
7733                     <TYPE? OAC17 <TYPE-CODE FALSE> + BOOL44>
7734                     <DEAD OAC17>
7735                     <FRAME '\1aWILL-DIE?>
7736                     <PUSH ARG219>
7737                     <CALL '\1aWILL-DIE? 1 = OAC17>
7738                     <TYPE? OAC17 <TYPE-CODE FALSE> + PHRASE30>
7739                     <DEAD OAC17>
7740 BOOL44
7741                     <FRAME '\1aGET-AC>
7742                     <PUSH TEMP25>
7743                     <DEAD TEMP25>
7744                     <CALL '\1aGET-AC 1 = OAC17>
7745                     <NTHUV OAC17 5 = OAC17>
7746                     <TYPE? OAC17 <TYPE-CODE FALSE> + PHRASE30>
7747                     <DEAD OAC17>
7748                     <FRAME '\1aWILL-DIE?>
7749                     <PUSH ARG118>
7750                     <CALL '\1aWILL-DIE? 1 = OAC17>
7751                     <TYPE? OAC17 <TYPE-CODE FALSE> - PHRASE30>
7752                     <DEAD OAC17>
7753 BOOL41
7754                     <EQUAL? ARG118 0 + PHRASE30>
7755                     <EQUAL? ARG118 0.0 + PHRASE30>
7756                     <SET OAC17 [ADD MUL IOR XOR AND EQV] (TYPE VECTOR)>
7757                     <LOOP (NORM11 VALUE) (OAC17 LENGTH VALUE)>
7758 TAG52
7759                     <NTHUV OAC17 1 = TEMP54>
7760                     <VEQUAL? TEMP54 NORM11 + BOOL50>
7761                     <DEAD TEMP54>
7762                     <RESTUV OAC17 1 = OAC17 (TYPE VECTOR)>
7763                     <EMPUV? OAC17 - TAG52>
7764                     <VEQUAL? NORM11 'SUB - BOOL55>
7765                     <SET NEG-FIRST24 'T (TYPE ATOM)>
7766                     <SET IMMED12 'ADDI (TYPE ATOM)>
7767                     <SET NORM11 'ADD (TYPE ATOM)>
7768                     <SET BO14 'ADDB (TYPE ATOM)>
7769                     <JUMP + BOOL50>
7770 BOOL55
7771                     <VEQUAL? NORM11 'FSBR - PHRASE30>
7772                     <SET NEG-FIRST24 'T (TYPE ATOM)>
7773                     <SET IMMED12 'FADRI (TYPE ATOM)>
7774                     <SET NORM11 'FADR (TYPE ATOM)>
7775                     <SET BO14 'FADRB (TYPE ATOM)>
7776 BOOL50
7777                     <SET ARG118 ARG219>
7778                     <DEAD ARG219>
7779                     <SET ARG219 TEM22>
7780                     <DEAD TEM22>
7781                     <JUMP + PHRASE70>
7782 PHRASE30
7783                     <FRAME '\1aPRIMTYPE>
7784                     <PUSH ARG219>
7785                     <CALL '\1aPRIMTYPE 1 = OAC17>
7786                     <VEQUAL? OAC17 'WORD + BOOL59>
7787                     <DEAD OAC17>
7788                     <FRAME '\1aPRIMTYPE>
7789                     <PUSH ARG219>
7790                     <CALL '\1aPRIMTYPE 1 = OAC17>
7791                     <VEQUAL? OAC17 'FIX - PHRASE70>
7792                     <DEAD OAC17>
7793 BOOL59
7794                     <VEQUAL? NORM11 'ADD + BOOL62>
7795                     <VEQUAL? NORM11 'SUB - PHRASE70>
7796 BOOL62
7797                     <LESS? ARG219 0 - PHRASE70 (TYPE FIX)>
7798                     <GVAL 'MAX-IMMEDIATE = OAC17>
7799                     <CHTYPE ARG219 <TYPE-CODE FIX> = TEMP54>
7800                     <LESS? TEMP54 0 - TAG65 (TYPE FIX)>
7801                     <SUB 0 TEMP54 = TEMP54 (TYPE FIX)>
7802 TAG65
7803                     <GRTR? OAC17 TEMP54 - PHRASE70 (TYPE FIX)>
7804                     <DEAD OAC17 TEMP54>
7805                     <TYPE? ARG219 <TYPE-CODE FIX> - TAG66>
7806                     <SUB 0 ARG219 = ARG219 (TYPE FIX)>
7807                     <JUMP + TAG67>
7808 TAG66
7809                     <SUBF 0.0 ARG219 = ARG219 (TYPE FLOAT)>
7810 TAG67
7811                     <VEQUAL? NORM11 'ADD - PHRASE69>
7812                     <DEAD NORM11>
7813                     <SET NORM11 'SUB (TYPE ATOM)>
7814                     <SET IMMED12 'SUBI (TYPE ATOM)>
7815                     <JUMP + PHRASE70>
7816 PHRASE69
7817                     <SET NORM11 'ADD (TYPE ATOM)>
7818                     <SET IMMED12 'ADDI (TYPE ATOM)>
7819 PHRASE70
7820                     <FRAME '\1aPRIMTYPE>
7821                     <PUSH ARG219>
7822                     <CALL '\1aPRIMTYPE 1 = OAC17>
7823                     <VEQUAL? OAC17 'WORD + BOOL74>
7824                     <DEAD OAC17>
7825                     <FRAME '\1aPRIMTYPE>
7826                     <PUSH ARG219>
7827                     <CALL '\1aPRIMTYPE 1 = OAC17>
7828                     <VEQUAL? OAC17 'FIX - PHRASE72>
7829                     <DEAD OAC17>
7830 BOOL74
7831                     <CHTYPE ARG219 <TYPE-CODE FIX> = ARG219>
7832                     <GVAL 'MAX-IMMEDIATE = OAC17>
7833                     <GRTR? ARG219 OAC17 + BOOL78 (TYPE FIX)>
7834                     <DEAD OAC17>
7835                     <LESS? ARG219 0 - PHRASE101 (TYPE FIX)>
7836 BOOL78
7837                     <AND ARG219 #WORD *777777* = OAC17>
7838                     <VEQUAL? OAC17 0 - BOOL91 (TYPE FIX)>
7839                     <DEAD OAC17>
7840                     <VEQUAL? NORM11 'IOR + BOOL86>
7841                     <VEQUAL? NORM11 'XOR - BOOL85>
7842 BOOL86
7843                     <LSH ARG219 -18 = ARG219 (TYPE FIX)>
7844                     <SET IMMED12 HACK13>
7845                     <VEQUAL? HACK13 'TLO - PHRASE101>
7846                     <VEQUAL? ARG219 262143 - PHRASE101 (TYPE FIX)>
7847                     <SET IMMED12 'HRLI (TYPE ATOM)>
7848                     <SET HACK13 'HRROS (TYPE ATOM)>
7849                     <SET HACK221 'HRRO (TYPE ATOM)>
7850                     <JUMP + PHRASE101>
7851 BOOL85
7852                     <SET OAC17 [FADR FSBR FDVR FMPR] (TYPE VECTOR)>
7853                     <LOOP (NORM11 VALUE) (OAC17 LENGTH VALUE)>
7854 TAG93
7855                     <NTHUV OAC17 1 = TEMP54>
7856                     <VEQUAL? TEMP54 NORM11 + TAG92>
7857                     <DEAD TEMP54>
7858                     <RESTUV OAC17 1 = OAC17 (TYPE VECTOR)>
7859                     <EMPUV? OAC17 - TAG93>
7860                     <JUMP + BOOL91>
7861 TAG92
7862                     <LSH ARG219 -18 = ARG219 (TYPE FIX)>
7863                     <JUMP + PHRASE101>
7864 BOOL91
7865                     <VEQUAL? NORM11 'AND + BOOL96>
7866                     <VEQUAL? NORM11 'EQV - PHRASE72>
7867 BOOL96
7868                     <AND ARG219 #WORD *777777* = OAC17>
7869                     <VEQUAL? OAC17 262143 - BOOL98 (TYPE FIX)>
7870                     <DEAD OAC17>
7871                     <XOR ARG219 #WORD *777777777777* = OAC17>
7872                     <DEAD ARG219>
7873                     <LSH OAC17 -18 = ARG219 (TYPE FIX)>
7874                     <DEAD OAC17>
7875                     <NTHL HACK13 1 = IMMED12 (TYPE ATOM)>
7876                     <JUMP + PHRASE101>
7877 BOOL98
7878                     <LSH ARG219 -18 = OAC17 (TYPE FIX)>
7879                     <AND OAC17 #WORD *777777* = OAC17>
7880                     <VEQUAL? OAC17 262143 - PHRASE72 (TYPE FIX)>
7881                     <DEAD OAC17>
7882                     <XOR ARG219 #WORD *777777777777* = OAC17>
7883                     <DEAD ARG219>
7884                     <AND OAC17 #WORD *777777* = ARG219>
7885                     <DEAD OAC17>
7886                     <RESTL HACK13 1 = OAC17 (TYPE LIST)>
7887                     <NTHL OAC17 1 = IMMED12 (TYPE ATOM)>
7888                     <DEAD OAC17>
7889                     <VEQUAL? ARG219 262143 - PHRASE101 (TYPE FIX)>
7890                     <VEQUAL? IMMED12 'TRZ - PHRASE101>
7891                     <SET HACK13 'HLLZS (TYPE ATOM)>
7892                     <SET HACK221 'HLLZ (TYPE ATOM)>
7893 PHRASE101
7894                     <SET IMM-OK23 'T (TYPE ATOM)>
7895                     <EQUAL? ARG118 VAL20 + BOOL112>
7896                     <FRAME '\1aWILL-DIE?>
7897                     <PUSH ARG118>
7898                     <CALL '\1aWILL-DIE? 1 = OAC17>
7899                     <TYPE? OAC17 <TYPE-CODE FALSE> + BOOL105>
7900                     <DEAD OAC17>
7901                     <VEQUAL? VAL20 'STACK + BOOL105>
7902                     <FRAME '\1aDEAD!-MIMOC>
7903                     <CONS ARG118 () = STACK>
7904                     <PUSH 'T>
7905                     <CALL '\1aDEAD!-MIMOC 2>
7906                     <JUMP + BOOL112>
7907 BOOL105
7908                     <FRAME '\1aIN-AC?>
7909                     <PUSH ARG118>
7910                     <PUSH 'VALUE>
7911                     <CALL '\1aIN-AC? 2 = TEMP54>
7912                     <TYPE? TEMP54 <TYPE-CODE FALSE> - PHRASE72>
7913                     <DEAD TEMP54>
7914                     <VEQUAL? HACK13 'HRROS + BOOL112>
7915                     <VEQUAL? HACK13 'HLLZS + BOOL112>
7916                     <VEQUAL? IMMED12 'ANDI - PHRASE72>
7917                     <VEQUAL? ARG219 262143 - PHRASE72 (TYPE FIX)>
7918 BOOL112
7919                     <FRAME '\1aIN-AC?>
7920                     <PUSH ARG118>
7921                     <PUSH 'VALUE>
7922                     <CALL '\1aIN-AC? 2 = TEMP25>
7923                     <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE115>
7924                     <VEQUAL? VAL20 'STACK + PHRASE135>
7925                     <EQUAL? ARG118 VAL20 + PHRASE135>
7926                     <FRAME '\1aCLEAN-ACS>
7927                     <PUSH VAL20>
7928                     <CALL '\1aCLEAN-ACS 1>
7929                     <FRAME '\1aGET-AC>
7930                     <PUSH TEMP25>
7931                     <CALL '\1aGET-AC 1 = TEMP54>
7932                     <PUTUV TEMP54 2 VAL20>
7933                     <PUTUV TEMP54 3 'VALUE (TYPE ATOM)>
7934                     <DEAD TEMP54>
7935                     <FRAME '\1aGET-AC>
7936                     <FRAME '\1aGETPROP>
7937                     <PUSH TEMP25>
7938                     <PUSH 'AC-PAIR>
7939                     <CALL '\1aGETPROP 2 = OAC17>
7940                     <PUSH OAC17>
7941                     <DEAD OAC17>
7942                     <CALL '\1aGET-AC 1 = IMM-OK23>
7943                     <NTHUV IMM-OK23 2 = OAC17>
7944                     <EQUAL? OAC17 ARG118 + BOOL131>
7945                     <DEAD OAC17>
7946                     <FRAME '\1aVAR-TYPED?>
7947                     <PUSH ARG118>
7948                     <CALL '\1aVAR-TYPED? 1 = TEM22>
7949                     <TYPE? TEM22 <TYPE-CODE FALSE> + PHRASE135>
7950                     <DEAD TEM22>
7951                     <PUTUV IMM-OK23 6 RESTYP15>
7952 BOOL131
7953                     <PUTUV IMM-OK23 2 VAL20>
7954                     <DEAD VAL20>
7955                     <PUTUV IMM-OK23 3 'TYPE (TYPE ATOM)>
7956                     <PUTUV IMM-OK23 5 'T>
7957                     <NTHUV IMM-OK23 6 = OAC17>
7958                     <TYPE? OAC17 <TYPE-CODE FALSE> + BOOL137>
7959                     <DEAD OAC17>
7960                     <NTHUV IMM-OK23 6 = OAC17 (TYPE ATOM)>
7961                     <EQUAL? OAC17 RESTYP15 - BOOL139>
7962                     <DEAD OAC17>
7963 BOOL137
7964                     <NTHUV IMM-OK23 6 = OAC17>
7965                     <TYPE? OAC17 <TYPE-CODE FALSE> - PHRASE135>
7966                     <DEAD OAC17>
7967                     <FRAME '\1aVAR-TYPED?>
7968                     <PUSH ARG118>
7969                     <DEAD ARG118>
7970                     <CALL '\1aVAR-TYPED? 1 = TEM22>
7971                     <TYPE? TEM22 <TYPE-CODE FALSE> + BOOL139>
7972                     <EQUAL? TEM22 RESTYP15 + PHRASE135>
7973                     <DEAD TEM22>
7974 BOOL139
7975                     <PUTUV IMM-OK23 6 RESTYP15>
7976                     <DEAD IMM-OK23 RESTYP15>
7977 PHRASE135
7978                     <VEQUAL? NEG-FIRST24 0 + PHRASE142>
7979                     <DEAD NEG-FIRST24>
7980                     <FRAME '\1aOCEMIT>
7981                     <PUSH 'MOVNS>
7982                     <PUSH 'O*>
7983                     <PUSH TEMP25>
7984                     <CALL '\1aOCEMIT 3>
7985 PHRASE142
7986                     <VEQUAL? NORM11 'IDIV + BOOL147>
7987                     <VEQUAL? NORM11 'FDVR - PHRASE145>
7988                     <DEAD NORM11>
7989 BOOL147
7990                     <FRAME '\1aGET-AC>
7991                     <FRAME '\1aNEXT-AC>
7992                     <PUSH TEMP25>
7993                     <CALL '\1aNEXT-AC 1 = STACK>
7994                     <CALL '\1aGET-AC 1 = OAC17>
7995                     <NTHUV OAC17 6 = OAC17>
7996                     <TYPE? OAC17 <TYPE-CODE FALSE> - PHRASE145>
7997                     <DEAD OAC17>
7998                     <FRAME '\1aFLUSH-AC>
7999                     <FRAME '\1aNEXT-AC>
8000                     <PUSH TEMP25>
8001                     <CALL '\1aNEXT-AC 1 = STACK>
8002                     <CALL '\1aFLUSH-AC 1>
8003                     <FRAME '\1aMUNGED-AC>
8004                     <FRAME '\1aNEXT-AC>
8005                     <PUSH TEMP25>
8006                     <CALL '\1aNEXT-AC 1 = STACK>
8007                     <CALL '\1aMUNGED-AC 1>
8008 PHRASE145
8009                     <FRAME '\1aOCEMIT>
8010                     <PUSH IMMED12>
8011                     <DEAD IMMED12>
8012                     <PUSH TEMP25>
8013                     <PUSH ARG219>
8014                     <CALL '\1aOCEMIT 3>
8015                     <FRAME '\1aGET-AC>
8016                     <PUSH TEMP25>
8017                     <CALL '\1aGET-AC 1 = OAC17>
8018                     <PUTUV OAC17 5 'T>
8019                     <DEAD OAC17>
8020                     <VEQUAL? HACK13 'MOD + TAG158>
8021                     <DEAD HACK13>
8022                     <RETURN %<>>
8023 TAG158
8024                     <FRAME '\1aGET-AC>
8025                     <FRAME '\1aNEXT-AC>
8026                     <PUSH TEMP25>
8027                     <CALL '\1aNEXT-AC 1 = STACK>
8028                     <CALL '\1aGET-AC 1 = IMM-OK23>
8029                     <NTHUV IMM-OK23 6 = ARG118>
8030                     <PUTUV IMM-OK23 6 %<>>
8031                     <FRAME '\1aOCEMIT>
8032                     <PUSH 'SKIPGE>
8033                     <PUSH TEMP25>
8034                     <FRAME '\1aNEXT-AC>
8035                     <PUSH TEMP25>
8036                     <CALL '\1aNEXT-AC 1 = STACK>
8037                     <CALL '\1aOCEMIT 3>
8038                     <FRAME '\1aOCEMIT>
8039                     <PUSH 'ADDI>
8040                     <PUSH TEMP25>
8041                     <DEAD TEMP25>
8042                     <PUSH ARG219>
8043                     <DEAD ARG219>
8044                     <CALL '\1aOCEMIT 3>
8045                     <PUTUV IMM-OK23 6 ARG118>
8046                     <DEAD ARG118>
8047                     <RETURN IMM-OK23>
8048                     <DEAD IMM-OK23>
8049 PHRASE115
8050                     <VEQUAL? ARG219 1 - PHRASE171 (TYPE FIX)>
8051                     <SET TEM22 [ADD SUB] (TYPE VECTOR)>
8052                     <LOOP (NORM11 VALUE) (TEM22 LENGTH VALUE)>
8053 TAG176
8054                     <NTHUV TEM22 1 = TEMP54>
8055                     <VEQUAL? TEMP54 NORM11 + TAG175>
8056                     <DEAD TEMP54>
8057                     <RESTUV TEM22 1 = TEM22 (TYPE VECTOR)>
8058                     <EMPUV? TEM22 - TAG176>
8059                     <JUMP + PHRASE171>
8060 TAG175
8061                     <FRAME '\1aASSIGN-AC>
8062                     <PUSH VAL20>
8063                     <PUSH 'BOTH>
8064                     <CALL '\1aASSIGN-AC 2 = TEMP25>
8065                     <FRAME '\1aGET-AC>
8066                     <FRAME '\1aNEXT-AC>
8067                     <PUSH TEMP25>
8068                     <CALL '\1aNEXT-AC 1 = STACK>
8069                     <CALL '\1aGET-AC 1 = TEM22>
8070                     <EQUAL? ARG118 VAL20 + TAG183>
8071                     <SET TEMP54 'T (TYPE ATOM)>
8072                     <JUMP + TAG184>
8073 TAG183
8074                     <SET TEMP54 %<> (TYPE FALSE)>
8075 TAG184
8076                     <PUTUV TEM22 5 TEMP54>
8077                     <DEAD TEM22 TEMP54>
8078                     <FRAME '\1aGET-AC>
8079                     <PUSH TEMP25>
8080                     <CALL '\1aGET-AC 1 = TEM22>
8081                     <EQUAL? ARG118 VAL20 + TAG186>
8082                     <SET TEMP54 'T (TYPE ATOM)>
8083                     <JUMP + TAG187>
8084 TAG186
8085                     <SET TEMP54 %<> (TYPE FALSE)>
8086 TAG187
8087                     <PUTUV TEM22 5 TEMP54>
8088                     <DEAD TEM22 TEMP54>
8089                     <FRAME '\1aOCEMIT>
8090                     <PUSH HACK13>
8091                     <DEAD HACK13>
8092                     <FRAME '\1aNEXT-AC>
8093                     <PUSH TEMP25>
8094                     <CALL '\1aNEXT-AC 1 = STACK>
8095                     <SET TEMP54 2 (TYPE FIX)>
8096                     <SFRAME 'OBJ-VAL>
8097                     <PUSH ARG118>
8098                     <DEAD ARG118>
8099                     <SCALL '\1aOBJ-VAL 1 = TEM22 + TAG188 TEMP54>
8100                     <LOOP (TEM22 TYPE VALUE LENGTH) (TEMP54 VALUE)>
8101 TAG191
8102                     <INTGO>
8103                     <EMPTY? TEM22 + TAG188>
8104                     <NTH1 TEM22 = STACK>
8105                     <REST1 TEM22 = TEM22>
8106                     <ADD TEMP54 1 = TEMP54 (TYPE FIX)>
8107                     <JUMP + TAG191>
8108 TAG188
8109                     <CALL '\1aOCEMIT TEMP54>
8110                     <DEAD TEMP54>
8111                     <FRAME '\1aGET-AC>
8112                     <FRAME '\1aNEXT-AC>
8113                     <PUSH TEMP25>
8114                     <CALL '\1aNEXT-AC 1 = STACK>
8115                     <CALL '\1aGET-AC 1 = TEMP54>
8116                     <PUTUV TEMP54 2 VAL20>
8117                     <DEAD TEMP54 VAL20>
8118                     <FRAME '\1aGET-AC>
8119                     <FRAME '\1aNEXT-AC>
8120                     <PUSH TEMP25>
8121                     <CALL '\1aNEXT-AC 1 = STACK>
8122                     <CALL '\1aGET-AC 1 = TEMP54>
8123                     <PUTUV TEMP54 3 'VALUE (TYPE ATOM)>
8124                     <DEAD TEMP54>
8125                     <FRAME '\1aGET-AC>
8126                     <PUSH TEMP25>
8127                     <DEAD TEMP25>
8128                     <CALL '\1aGET-AC 1 = TEMP54>
8129                     <PUTUV TEMP54 6 'FIX>
8130                     <RETURN TEMP54>
8131                     <DEAD TEMP54>
8132 PHRASE171
8133                     <VEQUAL? HACK13 'HRROS + BOOL199>
8134                     <VEQUAL? HACK13 'HLLZS + BOOL199>
8135                     <VEQUAL? IMMED12 'ANDI - PHRASE198>
8136                     <VEQUAL? ARG219 262143 - PHRASE198 (TYPE FIX)>
8137                     <SET HACK13 'HRRZS (TYPE ATOM)>
8138                     <SET HACK221 'HRRZ (TYPE ATOM)>
8139 BOOL199
8140                     <VEQUAL? VAL20 'STACK + PHRASE202>
8141                     <FRAME '\1aASSIGN-AC>
8142                     <PUSH VAL20>
8143                     <PUSH 'BOTH>
8144                     <CALL '\1aASSIGN-AC 2 = TEMP25>
8145                     <FRAME '\1aGET-AC>
8146                     <FRAME '\1aNEXT-AC>
8147                     <PUSH TEMP25>
8148                     <CALL '\1aNEXT-AC 1 = STACK>
8149                     <CALL '\1aGET-AC 1 = TEMP54>
8150                     <EQUAL? VAL20 ARG118 + TAG206>
8151                     <SET TEM22 'T (TYPE ATOM)>
8152                     <JUMP + TAG207>
8153 TAG206
8154                     <SET TEM22 %<> (TYPE FALSE)>
8155 TAG207
8156                     <PUTUV TEMP54 5 TEM22>
8157                     <DEAD TEMP54 TEM22>
8158                     <FRAME '\1aGET-AC>
8159                     <PUSH TEMP25>
8160                     <CALL '\1aGET-AC 1 = TEMP54>
8161                     <EQUAL? VAL20 ARG118 + TAG209>
8162                     <SET TEM22 'T (TYPE ATOM)>
8163                     <JUMP + TAG210>
8164 TAG209
8165                     <SET TEM22 %<> (TYPE FALSE)>
8166 TAG210
8167                     <PUTUV TEMP54 5 TEM22>
8168                     <DEAD TEMP54 TEM22>
8169                     <FRAME '\1aOCEMIT>
8170                     <EQUAL? VAL20 ARG118 - PHRASE213>
8171                     <SET TEMP54 HACK13>
8172                     <DEAD HACK13>
8173                     <JUMP + PHRASE214>
8174 PHRASE213
8175                     <SET TEMP54 HACK221>
8176                     <DEAD HACK221>
8177 PHRASE214
8178                     <PUSH TEMP54>
8179                     <DEAD TEMP54>
8180                     <FRAME '\1aNEXT-AC>
8181                     <PUSH TEMP25>
8182                     <CALL '\1aNEXT-AC 1 = STACK>
8183                     <SET TEM22 2 (TYPE FIX)>
8184                     <SFRAME 'OBJ-VAL>
8185                     <PUSH ARG118>
8186                     <DEAD ARG118>
8187                     <SCALL '\1aOBJ-VAL 1 = TEMP54 + TAG211 TEM22>
8188                     <LOOP (TEMP54 TYPE VALUE LENGTH) (TEM22 VALUE)>
8189 TAG217
8190                     <INTGO>
8191                     <EMPTY? TEMP54 + TAG211>
8192                     <NTH1 TEMP54 = STACK>
8193                     <REST1 TEMP54 = TEMP54>
8194                     <ADD TEM22 1 = TEM22 (TYPE FIX)>
8195                     <JUMP + TAG217>
8196 TAG211
8197                     <CALL '\1aOCEMIT TEM22>
8198                     <DEAD TEM22>
8199                     <FRAME '\1aGET-AC>
8200                     <FRAME '\1aNEXT-AC>
8201                     <PUSH TEMP25>
8202                     <CALL '\1aNEXT-AC 1 = STACK>
8203                     <CALL '\1aGET-AC 1 = TEM22>
8204                     <PUTUV TEM22 2 VAL20>
8205                     <DEAD TEM22 VAL20>
8206                     <FRAME '\1aGET-AC>
8207                     <FRAME '\1aNEXT-AC>
8208                     <PUSH TEMP25>
8209                     <CALL '\1aNEXT-AC 1 = STACK>
8210                     <CALL '\1aGET-AC 1 = TEM22>
8211                     <PUTUV TEM22 3 'VALUE (TYPE ATOM)>
8212                     <DEAD TEM22>
8213                     <FRAME '\1aGET-AC>
8214                     <PUSH TEMP25>
8215                     <DEAD TEMP25>
8216                     <CALL '\1aGET-AC 1 = TEM22>
8217                     <PUTUV TEM22 6 'FIX>
8218                     <RETURN TEM22>
8219                     <DEAD TEM22>
8220 PHRASE202
8221                     <FRAME '\1aOCEMIT>
8222                     <PUSH HACK221>
8223                     <DEAD HACK221>
8224                     <PUSH 'O*>
8225                     <SET TEMP54 2 (TYPE FIX)>
8226                     <SFRAME 'OBJ-VAL>
8227                     <PUSH ARG118>
8228                     <DEAD ARG118>
8229                     <SCALL '\1aOBJ-VAL 1 = TEM22 + TAG225 TEMP54>
8230                     <LOOP (TEM22 TYPE VALUE LENGTH) (TEMP54 VALUE)>
8231 TAG227
8232                     <INTGO>
8233                     <EMPTY? TEM22 + TAG225>
8234                     <NTH1 TEM22 = STACK>
8235                     <REST1 TEM22 = TEM22>
8236                     <ADD TEMP54 1 = TEMP54 (TYPE FIX)>
8237                     <JUMP + TAG227>
8238 TAG225
8239                     <CALL '\1aOCEMIT TEMP54>
8240                     <DEAD TEMP54>
8241                     <FRAME '\1aOCEMIT>
8242                     <PUSH 'PUSH>
8243                     <PUSH 'TP*>
8244                     <SET TEM22 2 (TYPE FIX)>
8245                     <SFRAME 'TYPE-WORD>
8246                     <PUSH RESTYP15>
8247                     <DEAD RESTYP15>
8248                     <SCALL '\1aTYPE-WORD 1 = TEMP54 + TAG229 TEM22>
8249                     <LOOP (TEMP54 TYPE VALUE LENGTH) (TEM22 VALUE)>
8250 TAG231
8251                     <INTGO>
8252                     <EMPTY? TEMP54 + TAG229>
8253                     <NTH1 TEMP54 = STACK>
8254                     <REST1 TEMP54 = TEMP54>
8255                     <ADD TEM22 1 = TEM22 (TYPE FIX)>
8256                     <JUMP + TAG231>
8257 TAG229
8258                     <CALL '\1aOCEMIT TEM22>
8259                     <DEAD TEM22>
8260                     <FRAME '\1aOCEMIT>
8261                     <PUSH 'PUSH>
8262                     <PUSH 'TP*>
8263                     <PUSH 'O*>
8264                     <CALL '\1aOCEMIT 3>
8265                     <GVAL 'WINNING-VICTIM = OAC17>
8266                     <TYPE? OAC17 <TYPE-CODE FALSE> + PHRASE254>
8267                     <GVAL 'STACK-DEPTH = TEM22>
8268                     <ADD TEM22 2 = TEM22 (TYPE FIX)>
8269                     <SETG 'STACK-DEPTH TEM22>
8270                     <RETURN TEM22>
8271                     <DEAD TEM22>
8272 PHRASE198
8273                     <VEQUAL? HACK13 'MOD - PHRASE236>
8274                     <DEAD HACK13>
8275                     <FRAME '\1aASSIGN-AC>
8276                     <PUSH VAL20>
8277                     <PUSH 'BOTH>
8278                     <PUSH 'T>
8279                     <CALL '\1aASSIGN-AC 3 = TEMP25>
8280                     <FRAME '\1aOCEMIT>
8281                     <PUSH 'MOVE>
8282                     <PUSH TEMP25>
8283                     <SET TEMP54 2 (TYPE FIX)>
8284                     <SFRAME 'OBJ-VAL>
8285                     <PUSH ARG118>
8286                     <DEAD ARG118>
8287                     <SCALL '\1aOBJ-VAL 1 = TEM22 + TAG238 TEMP54>
8288                     <LOOP (TEM22 TYPE VALUE LENGTH) (TEMP54 VALUE)>
8289 TAG240
8290                     <INTGO>
8291                     <EMPTY? TEM22 + TAG238>
8292                     <NTH1 TEM22 = STACK>
8293                     <REST1 TEM22 = TEM22>
8294                     <ADD TEMP54 1 = TEMP54 (TYPE FIX)>
8295                     <JUMP + TAG240>
8296 TAG238
8297                     <CALL '\1aOCEMIT TEMP54>
8298                     <DEAD TEMP54>
8299                     <FRAME '\1aOCEMIT>
8300                     <PUSH 'IDIVI>
8301                     <PUSH TEMP25>
8302                     <PUSH ARG219>
8303                     <CALL '\1aOCEMIT 3>
8304                     <FRAME '\1aOCEMIT>
8305                     <PUSH 'SKIPGE>
8306                     <PUSH 'O*>
8307                     <FRAME '\1aNEXT-AC>
8308                     <PUSH TEMP25>
8309                     <CALL '\1aNEXT-AC 1 = STACK>
8310                     <CALL '\1aOCEMIT 3>
8311                     <FRAME '\1aOCEMIT>
8312                     <PUSH 'ADDI>
8313                     <FRAME '\1aNEXT-AC>
8314                     <PUSH TEMP25>
8315                     <CALL '\1aNEXT-AC 1 = STACK>
8316                     <PUSH ARG219>
8317                     <DEAD ARG219>
8318                     <CALL '\1aOCEMIT 3>
8319                     <FRAME '\1aGET-AC>
8320                     <PUSH TEMP25>
8321                     <CALL '\1aGET-AC 1 = TEMP54>
8322                     <PUTUV TEMP54 6 'FIX>
8323                     <DEAD TEMP54>
8324                     <FRAME '\1aGET-AC>
8325                     <FRAME '\1aNEXT-AC>
8326                     <PUSH TEMP25>
8327                     <CALL '\1aNEXT-AC 1 = STACK>
8328                     <CALL '\1aGET-AC 1 = TEMP54>
8329                     <PUTUV TEMP54 2 VAL20>
8330                     <DEAD TEMP54 VAL20>
8331                     <FRAME '\1aGET-AC>
8332                     <FRAME '\1aNEXT-AC>
8333                     <PUSH TEMP25>
8334                     <CALL '\1aNEXT-AC 1 = STACK>
8335                     <CALL '\1aGET-AC 1 = TEMP54>
8336                     <PUTUV TEMP54 3 'VALUE (TYPE ATOM)>
8337                     <DEAD TEMP54>
8338                     <FRAME '\1aGET-AC>
8339                     <FRAME '\1aNEXT-AC>
8340                     <PUSH TEMP25>
8341                     <DEAD TEMP25>
8342                     <CALL '\1aNEXT-AC 1 = STACK>
8343                     <CALL '\1aGET-AC 1 = TEMP54>
8344                     <PUTUV TEMP54 5 'T>
8345                     <RETURN TEMP54>
8346                     <DEAD TEMP54>
8347 PHRASE236
8348                     <VEQUAL? NEG-FIRST24 0 + PHRASE256>
8349                     <DEAD NEG-FIRST24>
8350                     <FRAME '\1aASSIGN-AC>
8351                     <PUSH ARG118>
8352                     <PUSH 'BOTH>
8353                     <CALL '\1aASSIGN-AC 2 = TEMP25>
8354                     <FRAME '\1aOCEMIT>
8355                     <PUSH 'MOVN>
8356                     <FRAME '\1aNEXT-AC>
8357                     <PUSH TEMP25>
8358                     <CALL '\1aNEXT-AC 1 = STACK>
8359                     <SET TEM22 2 (TYPE FIX)>
8360                     <SFRAME 'OBJ-VAL>
8361                     <PUSH ARG118>
8362                     <SCALL '\1aOBJ-VAL 1 = TEMP54 + TAG258 TEM22>
8363                     <LOOP (TEMP54 TYPE VALUE LENGTH) (TEM22 VALUE)>
8364 TAG261
8365                     <INTGO>
8366                     <EMPTY? TEMP54 + TAG258>
8367                     <NTH1 TEMP54 = STACK>
8368                     <REST1 TEMP54 = TEMP54>
8369                     <ADD TEM22 1 = TEM22 (TYPE FIX)>
8370                     <JUMP + TAG261>
8371 TAG258
8372                     <CALL '\1aOCEMIT TEM22>
8373                     <DEAD TEM22>
8374                     <FRAME '\1aGET-AC>
8375                     <PUSH TEMP25>
8376                     <CALL '\1aGET-AC 1 = TEM22>
8377                     <PUTUV TEM22 6 RESTYP15>
8378                     <DEAD TEM22>
8379                     <JUMP + PHRASE264>
8380 PHRASE256
8381                     <FRAME '\1aLOAD-AC>
8382                     <PUSH ARG118>
8383                     <PUSH 'BOTH>
8384                     <PUSH 'T>
8385                     <CALL '\1aLOAD-AC 3 = TEMP25>
8386 PHRASE264
8387                     <EQUAL? ARG118 VAL20 + PHRASE267>
8388                     <FRAME '\1aDEAD!-MIMOC>
8389                     <CONS ARG118 () = STACK>
8390                     <PUSH 'T>
8391                     <CALL '\1aDEAD!-MIMOC 2>
8392                     <FRAME '\1aGET-AC>
8393                     <PUSH TEMP25>
8394                     <CALL '\1aGET-AC 1 = TEM22>
8395                     <NTHUV TEM22 6 = TEMP54>
8396                     <TYPE? TEMP54 <TYPE-CODE FALSE> + BOOL277>
8397                     <DEAD TEMP54>
8398                     <NTHUV TEM22 6 = TEMP54 (TYPE ATOM)>
8399                     <EQUAL? TEMP54 RESTYP15 - BOOL279>
8400                     <DEAD TEMP54>
8401 BOOL277
8402                     <NTHUV TEM22 6 = TEMP54>
8403                     <TYPE? TEMP54 <TYPE-CODE FALSE> - PHRASE275>
8404                     <DEAD TEMP54>
8405                     <FRAME '\1aVAR-TYPED?>
8406                     <PUSH ARG118>
8407                     <DEAD ARG118>
8408                     <CALL '\1aVAR-TYPED? 1 = ARG118>
8409                     <TYPE? ARG118 <TYPE-CODE FALSE> + BOOL279>
8410                     <EQUAL? ARG118 RESTYP15 + PHRASE275>
8411                     <DEAD ARG118>
8412 BOOL279
8413                     <PUTUV TEM22 6 RESTYP15>
8414                     <DEAD TEM22 RESTYP15>
8415 PHRASE275
8416                     <FRAME '\1aCLEAN-ACS>
8417                     <PUSH VAL20>
8418                     <CALL '\1aCLEAN-ACS 1>
8419                     <FRAME '\1aALTER-AC>
8420                     <PUSH TEMP25>
8421                     <PUSH VAL20>
8422                     <DEAD VAL20>
8423                     <CALL '\1aALTER-AC 2>
8424 PHRASE267
8425                     <FRAME '\1aNEXT-AC>
8426                     <PUSH TEMP25>
8427                     <DEAD TEMP25>
8428                     <CALL '\1aNEXT-AC 1 = TEMP25>
8429                     <VEQUAL? NORM11 'IDIV + BOOL286>
8430                     <VEQUAL? NORM11 'FDVR - PHRASE285>
8431                     <DEAD NORM11>
8432 BOOL286
8433                     <FRAME '\1aFLUSH-AC>
8434                     <FRAME '\1aNEXT-AC>
8435                     <PUSH TEMP25>
8436                     <CALL '\1aNEXT-AC 1 = STACK>
8437                     <CALL '\1aFLUSH-AC 1>
8438                     <FRAME '\1aMUNGED-AC>
8439                     <FRAME '\1aNEXT-AC>
8440                     <PUSH TEMP25>
8441                     <CALL '\1aNEXT-AC 1 = STACK>
8442                     <CALL '\1aMUNGED-AC 1>
8443 PHRASE285
8444                     <FRAME '\1aOCEMIT>
8445                     <PUSH IMMED12>
8446                     <DEAD IMMED12>
8447                     <PUSH TEMP25>
8448                     <DEAD TEMP25>
8449                     <PUSH ARG219>
8450                     <DEAD ARG219>
8451                     <CALL '\1aOCEMIT 3 = OAC17>
8452 PHRASE254
8453                     <RETURN OAC17>
8454                     <DEAD OAC17>
8455 PHRASE72
8456                     <EQUAL? ARG118 0 + BOOL294>
8457                     <EQUAL? ARG118 0.0 - PHRASE292>
8458 BOOL294
8459                     <VEQUAL? NORM11 'SUB + BOOL295>
8460                     <VEQUAL? NORM11 'FSBR - PHRASE292>
8461 BOOL295
8462                     <FRAME '\1aIN-AC?>
8463                     <PUSH ARG219>
8464                     <PUSH 'VALUE>
8465                     <CALL '\1aIN-AC? 2 = TEMP25>
8466                     <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE297>
8467                     <EQUAL? ARG219 VAL20 - PHRASE300>
8468                     <DEAD ARG219>
8469                     <FRAME '\1aGET-AC>
8470                     <PUSH TEMP25>
8471                     <CALL '\1aGET-AC 1 = TEMP54>
8472                     <PUTUV TEMP54 5 'T>
8473                     <DEAD TEMP54>
8474                     <FRAME '\1aOCEMIT>
8475                     <PUSH 'MOVNS>
8476                     <PUSH 'O*>
8477                     <PUSH TEMP25>
8478                     <DEAD TEMP25>
8479                     <CALL '\1aOCEMIT 3 = OAC17>
8480                     <RETURN OAC17>
8481                     <DEAD OAC17>
8482 PHRASE300
8483                     <VEQUAL? VAL20 'STACK - PHRASE303>
8484                     <FRAME '\1aOCEMIT>
8485                     <PUSH 'MOVN>
8486                     <PUSH 'O*>
8487                     <PUSH TEMP25>
8488                     <DEAD TEMP25>
8489                     <CALL '\1aOCEMIT 3>
8490                     <FRAME '\1aOCEMIT>
8491                     <PUSH 'PUSH>
8492                     <PUSH 'TP*>
8493                     <SET TEM22 2 (TYPE FIX)>
8494                     <SFRAME 'TYPE-WORD>
8495                     <PUSH RESTYP15>
8496                     <DEAD RESTYP15>
8497                     <SCALL '\1aTYPE-WORD 1 = TEMP54 + TAG305 TEM22>
8498                     <LOOP (TEMP54 TYPE VALUE LENGTH) (TEM22 VALUE)>
8499 TAG308
8500                     <INTGO>
8501                     <EMPTY? TEMP54 + TAG305>
8502                     <NTH1 TEMP54 = STACK>
8503                     <REST1 TEMP54 = TEMP54>
8504                     <ADD TEM22 1 = TEM22 (TYPE FIX)>
8505                     <JUMP + TAG308>
8506 TAG305
8507                     <CALL '\1aOCEMIT TEM22>
8508                     <DEAD TEM22>
8509                     <FRAME '\1aOCEMIT>
8510                     <PUSH 'PUSH>
8511                     <PUSH 'TP*>
8512                     <PUSH 'O*>
8513                     <CALL '\1aOCEMIT 3>
8514                     <GVAL 'WINNING-VICTIM = OAC17>
8515                     <TYPE? OAC17 <TYPE-CODE FALSE> + PHRASE556>
8516                     <GVAL 'STACK-DEPTH = TEM22>
8517                     <ADD TEM22 2 = TEM22 (TYPE FIX)>
8518                     <SETG 'STACK-DEPTH TEM22>
8519                     <RETURN TEM22>
8520                     <DEAD TEM22>
8521 PHRASE303
8522                     <SET OAC17 TEMP25>
8523                     <DEAD TEMP25>
8524                     <FRAME '\1aASSIGN-AC>
8525                     <PUSH VAL20>
8526                     <PUSH 'BOTH>
8527                     <PUSH 'T>
8528                     <CALL '\1aASSIGN-AC 3 = TEMP25>
8529                     <FRAME '\1aGET-AC>
8530                     <PUSH TEMP25>
8531                     <CALL '\1aGET-AC 1 = TEM22>
8532                     <PUTUV TEM22 6 RESTYP15>
8533                     <DEAD TEM22 RESTYP15>
8534                     <FRAME '\1aGET-AC>
8535                     <FRAME '\1aNEXT-AC>
8536                     <PUSH TEMP25>
8537                     <CALL '\1aNEXT-AC 1 = STACK>
8538                     <CALL '\1aGET-AC 1 = TEM22>
8539                     <PUTUV TEM22 2 VAL20>
8540                     <DEAD TEM22 VAL20>
8541                     <FRAME '\1aOCEMIT>
8542                     <PUSH 'MOVN>
8543                     <FRAME '\1aNEXT-AC>
8544                     <PUSH TEMP25>
8545                     <DEAD TEMP25>
8546                     <CALL '\1aNEXT-AC 1 = STACK>
8547                     <PUSH OAC17>
8548                     <DEAD OAC17>
8549                     <CALL '\1aOCEMIT 3 = OAC17>
8550                     <RETURN OAC17>
8551                     <DEAD OAC17>
8552 PHRASE297
8553                     <EQUAL? ARG219 VAL20 - PHRASE320>
8554                     <FRAME '\1aOCEMIT>
8555                     <PUSH 'MOVNS>
8556                     <PUSH 'O*>
8557                     <SET TEMP54 2 (TYPE FIX)>
8558                     <SFRAME 'OBJ-VAL>
8559                     <PUSH ARG219>
8560                     <DEAD ARG219>
8561                     <SCALL '\1aOBJ-VAL 1 = TEM22 + TAG321 TEMP54>
8562                     <LOOP (TEM22 TYPE VALUE LENGTH) (TEMP54 VALUE)>
8563 TAG323
8564                     <INTGO>
8565                     <EMPTY? TEM22 + TAG321>
8566                     <NTH1 TEM22 = STACK>
8567                     <REST1 TEM22 = TEM22>
8568                     <ADD TEMP54 1 = TEMP54 (TYPE FIX)>
8569                     <JUMP + TAG323>
8570 TAG321
8571                     <CALL '\1aOCEMIT TEMP54 = OAC17>
8572                     <DEAD TEMP54>
8573                     <RETURN OAC17>
8574                     <DEAD OAC17>
8575 PHRASE320
8576                     <VEQUAL? VAL20 'STACK - PHRASE325>
8577                     <FRAME '\1aOCEMIT>
8578                     <PUSH 'MOVN>
8579                     <PUSH 'O*>
8580                     <SET TEM22 2 (TYPE FIX)>
8581                     <SFRAME 'OBJ-VAL>
8582                     <PUSH ARG219>
8583                     <DEAD ARG219>
8584                     <SCALL '\1aOBJ-VAL 1 = TEMP54 + TAG326 TEM22>
8585                     <LOOP (TEMP54 TYPE VALUE LENGTH) (TEM22 VALUE)>
8586 TAG328
8587                     <INTGO>
8588                     <EMPTY? TEMP54 + TAG326>
8589                     <NTH1 TEMP54 = STACK>
8590                     <REST1 TEMP54 = TEMP54>
8591                     <ADD TEM22 1 = TEM22 (TYPE FIX)>
8592                     <JUMP + TAG328>
8593 TAG326
8594                     <CALL '\1aOCEMIT TEM22>
8595                     <DEAD TEM22>
8596                     <FRAME '\1aOCEMIT>
8597                     <PUSH 'PUSH>
8598                     <PUSH 'TP*>
8599                     <SET TEMP54 2 (TYPE FIX)>
8600                     <SFRAME 'TYPE-WORD>
8601                     <PUSH RESTYP15>
8602                     <DEAD RESTYP15>
8603                     <SCALL '\1aTYPE-WORD 1 = TEM22 + TAG330 TEMP54>
8604                     <LOOP (TEM22 TYPE VALUE LENGTH) (TEMP54 VALUE)>
8605 TAG332
8606                     <INTGO>
8607                     <EMPTY? TEM22 + TAG330>
8608                     <NTH1 TEM22 = STACK>
8609                     <REST1 TEM22 = TEM22>
8610                     <ADD TEMP54 1 = TEMP54 (TYPE FIX)>
8611                     <JUMP + TAG332>
8612 TAG330
8613                     <CALL '\1aOCEMIT TEMP54>
8614                     <DEAD TEMP54>
8615                     <FRAME '\1aOCEMIT>
8616                     <PUSH 'PUSH>
8617                     <PUSH 'TP*>
8618                     <PUSH 'O*>
8619                     <CALL '\1aOCEMIT 3>
8620                     <GVAL 'WINNING-VICTIM = OAC17>
8621                     <TYPE? OAC17 <TYPE-CODE FALSE> + PHRASE337>
8622                     <GVAL 'STACK-DEPTH = TEMP54>
8623                     <ADD TEMP54 2 = TEMP54 (TYPE FIX)>
8624                     <SETG 'STACK-DEPTH TEMP54>
8625                     <RETURN TEMP54>
8626                     <DEAD TEMP54>
8627 PHRASE325
8628                     <FRAME '\1aASSIGN-AC>
8629                     <PUSH VAL20>
8630                     <DEAD VAL20>
8631                     <PUSH 'BOTH>
8632                     <PUSH 'T>
8633                     <CALL '\1aASSIGN-AC 3 = TEMP25>
8634                     <FRAME '\1aGET-AC>
8635                     <PUSH TEMP25>
8636                     <CALL '\1aGET-AC 1 = TEMP54>
8637                     <PUTUV TEMP54 6 RESTYP15>
8638                     <DEAD TEMP54 RESTYP15>
8639                     <FRAME '\1aOCEMIT>
8640                     <PUSH 'MOVN>
8641                     <FRAME '\1aNEXT-AC>
8642                     <PUSH TEMP25>
8643                     <DEAD TEMP25>
8644                     <CALL '\1aNEXT-AC 1 = STACK>
8645                     <SET TEM22 2 (TYPE FIX)>
8646                     <SFRAME 'OBJ-VAL>
8647                     <PUSH ARG219>
8648                     <DEAD ARG219>
8649                     <SCALL '\1aOBJ-VAL 1 = TEMP54 + TAG340 TEM22>
8650                     <LOOP (TEMP54 TYPE VALUE LENGTH) (TEM22 VALUE)>
8651 TAG343
8652                     <INTGO>
8653                     <EMPTY? TEMP54 + TAG340>
8654                     <NTH1 TEMP54 = STACK>
8655                     <REST1 TEMP54 = TEMP54>
8656                     <ADD TEM22 1 = TEM22 (TYPE FIX)>
8657                     <JUMP + TAG343>
8658 TAG340
8659                     <CALL '\1aOCEMIT TEM22 = OAC17>
8660                     <DEAD TEM22>
8661 PHRASE337
8662                     <RETURN OAC17>
8663                     <DEAD OAC17>
8664 PHRASE292
8665                     <VEQUAL? HACK13 'MOD - PHRASE345>
8666                     <EQUAL? ARG118 VAL20 - PHRASE345>
8667                     <FRAME '\1aASSIGN-AC>
8668                     <PUSH ARG118>
8669                     <PUSH 'BOTH>
8670                     <PUSH 'T>
8671                     <CALL '\1aASSIGN-AC 3 = TEMP25>
8672                     <FRAME '\1aOCEMIT>
8673                     <PUSH 'MOVE>
8674                     <PUSH TEMP25>
8675                     <SET TEMP54 2 (TYPE FIX)>
8676                     <SFRAME 'OBJ-VAL>
8677                     <PUSH ARG118>
8678                     <SCALL '\1aOBJ-VAL 1 = TEM22 + TAG348 TEMP54>
8679                     <LOOP (TEM22 TYPE VALUE LENGTH) (TEMP54 VALUE)>
8680 TAG350
8681                     <INTGO>
8682                     <EMPTY? TEM22 + TAG348>
8683                     <NTH1 TEM22 = STACK>
8684                     <REST1 TEM22 = TEM22>
8685                     <ADD TEMP54 1 = TEMP54 (TYPE FIX)>
8686                     <JUMP + TAG350>
8687 TAG348
8688                     <CALL '\1aOCEMIT TEMP54>
8689                     <DEAD TEMP54>
8690                     <FRAME '\1aOCEMIT>
8691                     <PUSH 'IDIV>
8692                     <PUSH TEMP25>
8693                     <SET TEM22 2 (TYPE FIX)>
8694                     <SFRAME 'OBJ-VAL>
8695                     <PUSH ARG219>
8696                     <SCALL '\1aOBJ-VAL 1 = TEMP54 + TAG352 TEM22>
8697                     <LOOP (TEMP54 TYPE VALUE LENGTH) (TEM22 VALUE)>
8698 TAG354
8699                     <INTGO>
8700                     <EMPTY? TEMP54 + TAG352>
8701                     <NTH1 TEMP54 = STACK>
8702                     <REST1 TEMP54 = TEMP54>
8703                     <ADD TEM22 1 = TEM22 (TYPE FIX)>
8704                     <JUMP + TAG354>
8705 TAG352
8706                     <CALL '\1aOCEMIT TEM22>
8707                     <DEAD TEM22>
8708                     <FRAME '\1aOCEMIT>
8709                     <PUSH 'SKIPGE>
8710                     <PUSH 'O*>
8711                     <FRAME '\1aNEXT-AC>
8712                     <PUSH TEMP25>
8713                     <CALL '\1aNEXT-AC 1 = STACK>
8714                     <CALL '\1aOCEMIT 3>
8715                     <FRAME '\1aOCEMIT>
8716                     <PUSH 'ADD>
8717                     <FRAME '\1aNEXT-AC>
8718                     <PUSH TEMP25>
8719                     <CALL '\1aNEXT-AC 1 = STACK>
8720                     <SET TEMP54 2 (TYPE FIX)>
8721                     <SFRAME 'OBJ-VAL>
8722                     <PUSH ARG219>
8723                     <DEAD ARG219>
8724                     <SCALL '\1aOBJ-VAL 1 = TEM22 + TAG358 TEMP54>
8725                     <LOOP (TEM22 TYPE VALUE LENGTH) (TEMP54 VALUE)>
8726 TAG361
8727                     <INTGO>
8728                     <EMPTY? TEM22 + TAG358>
8729                     <NTH1 TEM22 = STACK>
8730                     <REST1 TEM22 = TEM22>
8731                     <ADD TEMP54 1 = TEMP54 (TYPE FIX)>
8732                     <JUMP + TAG361>
8733 TAG358
8734                     <CALL '\1aOCEMIT TEMP54>
8735                     <DEAD TEMP54>
8736                     <FRAME '\1aGET-AC>
8737                     <PUSH TEMP25>
8738                     <CALL '\1aGET-AC 1 = TEMP54>
8739                     <PUTUV TEMP54 6 'FIX>
8740                     <DEAD TEMP54>
8741                     <FRAME '\1aGET-AC>
8742                     <FRAME '\1aNEXT-AC>
8743                     <PUSH TEMP25>
8744                     <CALL '\1aNEXT-AC 1 = STACK>
8745                     <CALL '\1aGET-AC 1 = TEMP54>
8746                     <PUTUV TEMP54 2 ARG118>
8747                     <DEAD TEMP54 ARG118>
8748                     <FRAME '\1aGET-AC>
8749                     <FRAME '\1aNEXT-AC>
8750                     <PUSH TEMP25>
8751                     <CALL '\1aNEXT-AC 1 = STACK>
8752                     <CALL '\1aGET-AC 1 = TEMP54>
8753                     <PUTUV TEMP54 3 'VALUE (TYPE ATOM)>
8754                     <DEAD TEMP54>
8755                     <FRAME '\1aGET-AC>
8756                     <FRAME '\1aNEXT-AC>
8757                     <PUSH TEMP25>
8758                     <DEAD TEMP25>
8759                     <CALL '\1aNEXT-AC 1 = STACK>
8760                     <CALL '\1aGET-AC 1 = TEMP54>
8761                     <PUTUV TEMP54 5 'T>
8762                     <RETURN TEMP54>
8763                     <DEAD TEMP54>
8764 PHRASE345
8765                     <EQUAL? ARG118 VAL20 - PHRASE370>
8766                     <FRAME '\1aNEXT-AC>
8767                     <FRAME '\1aLOAD-AC>
8768                     <PUSH ARG118>
8769                     <DEAD ARG118>
8770                     <PUSH 'BOTH>
8771                     <CALL '\1aLOAD-AC 2 = STACK>
8772                     <CALL '\1aNEXT-AC 1 = TEMP25>
8773                     <VEQUAL? NEG-FIRST24 0 + PHRASE374>
8774                     <DEAD NEG-FIRST24>
8775                     <FRAME '\1aOCEMIT>
8776                     <PUSH 'MOVNS>
8777                     <PUSH 'O*>
8778                     <PUSH TEMP25>
8779                     <CALL '\1aOCEMIT 3>
8780 PHRASE374
8781                     <VEQUAL? NORM11 'IDIV + BOOL378>
8782                     <VEQUAL? NORM11 'FDVR - PHRASE377>
8783 BOOL378
8784                     <FRAME '\1aFLUSH-AC>
8785                     <FRAME '\1aNEXT-AC>
8786                     <PUSH TEMP25>
8787                     <CALL '\1aNEXT-AC 1 = STACK>
8788                     <CALL '\1aFLUSH-AC 1>
8789                     <FRAME '\1aMUNGED-AC>
8790                     <FRAME '\1aNEXT-AC>
8791                     <PUSH TEMP25>
8792                     <CALL '\1aNEXT-AC 1 = STACK>
8793                     <CALL '\1aMUNGED-AC 1>
8794 PHRASE377
8795                     <FRAME '\1aOCEMIT>
8796                     <PUSH NORM11>
8797                     <DEAD NORM11>
8798                     <PUSH TEMP25>
8799                     <SET TEM22 2 (TYPE FIX)>
8800                     <SFRAME 'OBJ-VAL>
8801                     <PUSH ARG219>
8802                     <DEAD ARG219>
8803                     <SCALL '\1aOBJ-VAL 1 = TEMP54 + TAG383 TEM22>
8804                     <LOOP (TEMP54 TYPE VALUE LENGTH) (TEM22 VALUE)>
8805 TAG385
8806                     <INTGO>
8807                     <EMPTY? TEMP54 + TAG383>
8808                     <NTH1 TEMP54 = STACK>
8809                     <REST1 TEMP54 = TEMP54>
8810                     <ADD TEM22 1 = TEM22 (TYPE FIX)>
8811                     <JUMP + TAG385>
8812 TAG383
8813                     <CALL '\1aOCEMIT TEM22>
8814                     <DEAD TEM22>
8815                     <FRAME '\1aGET-AC>
8816                     <PUSH TEMP25>
8817                     <DEAD TEMP25>
8818                     <CALL '\1aGET-AC 1 = TEM22>
8819                     <PUTUV TEM22 5 'T>
8820                     <RETURN TEM22>
8821                     <DEAD TEM22>
8822 PHRASE370
8823                     <VEQUAL? HACK13 'MOD - PHRASE388>
8824                     <DEAD HACK13>
8825                     <EQUAL? ARG219 VAL20 - PHRASE390>
8826                     <FRAME '\1aSMASH-AC>
8827                     <PUSH 'T*>
8828                     <PUSH ARG219>
8829                     <PUSH 'VALUE>
8830                     <CALL '\1aSMASH-AC 3>
8831 PHRASE390
8832                     <FRAME '\1aCLEAN-ACS>
8833                     <PUSH VAL20>
8834                     <CALL '\1aCLEAN-ACS 1>
8835                     <FRAME '\1aASSIGN-AC>
8836                     <PUSH VAL20>
8837                     <PUSH 'BOTH>
8838                     <PUSH 'T>
8839                     <CALL '\1aASSIGN-AC 3 = TEMP25>
8840                     <FRAME '\1aOCEMIT>
8841                     <PUSH 'MOVE>
8842                     <PUSH TEMP25>
8843                     <SET TEMP54 2 (TYPE FIX)>
8844                     <SFRAME 'OBJ-VAL>
8845                     <PUSH ARG118>
8846                     <SCALL '\1aOBJ-VAL 1 = TEM22 + TAG394 TEMP54>
8847                     <LOOP (TEM22 TYPE VALUE LENGTH) (TEMP54 VALUE)>
8848 TAG396
8849                     <INTGO>
8850                     <EMPTY? TEM22 + TAG394>
8851                     <NTH1 TEM22 = STACK>
8852                     <REST1 TEM22 = TEM22>
8853                     <ADD TEMP54 1 = TEMP54 (TYPE FIX)>
8854                     <JUMP + TAG396>
8855 TAG394
8856                     <CALL '\1aOCEMIT TEMP54>
8857                     <DEAD TEMP54>
8858                     <TYPE? ARG219 <TYPE-CODE FIX> - PHRASE399>
8859                     <FRAME '\1aOCEMIT>
8860                     <PUSH 'IDIVI>
8861                     <PUSH TEMP25>
8862                     <PUSH ARG219>
8863                     <CALL '\1aOCEMIT 3>
8864                     <FRAME '\1aOCEMIT>
8865                     <PUSH 'SKIPGE>
8866                     <PUSH 'O*>
8867                     <FRAME '\1aNEXT-AC>
8868                     <PUSH TEMP25>
8869                     <CALL '\1aNEXT-AC 1 = STACK>
8870                     <CALL '\1aOCEMIT 3>
8871                     <FRAME '\1aOCEMIT>
8872                     <PUSH 'ADDI>
8873                     <FRAME '\1aNEXT-AC>
8874                     <PUSH TEMP25>
8875                     <CALL '\1aNEXT-AC 1 = STACK>
8876                     <PUSH ARG219>
8877                     <DEAD ARG219>
8878                     <CALL '\1aOCEMIT 3>
8879                     <JUMP + PHRASE405>
8880 PHRASE399
8881                     <FRAME '\1aOCEMIT>
8882                     <PUSH 'IDIV>
8883                     <PUSH TEMP25>
8884                     <SET TEM22 2 (TYPE FIX)>
8885                     <SFRAME 'OBJ-VAL>
8886                     <PUSH ARG219>
8887                     <SCALL '\1aOBJ-VAL 1 = TEMP54 + TAG406 TEM22>
8888                     <LOOP (TEMP54 TYPE VALUE LENGTH) (TEM22 VALUE)>
8889 TAG408
8890                     <INTGO>
8891                     <EMPTY? TEMP54 + TAG406>
8892                     <NTH1 TEMP54 = STACK>
8893                     <REST1 TEMP54 = TEMP54>
8894                     <ADD TEM22 1 = TEM22 (TYPE FIX)>
8895                     <JUMP + TAG408>
8896 TAG406
8897                     <CALL '\1aOCEMIT TEM22>
8898                     <DEAD TEM22>
8899                     <FRAME '\1aOCEMIT>
8900                     <PUSH 'SKIPGE>
8901                     <PUSH 'O*>
8902                     <FRAME '\1aNEXT-AC>
8903                     <PUSH TEMP25>
8904                     <CALL '\1aNEXT-AC 1 = STACK>
8905                     <CALL '\1aOCEMIT 3>
8906                     <FRAME '\1aOCEMIT>
8907                     <PUSH 'ADD>
8908                     <FRAME '\1aNEXT-AC>
8909                     <PUSH TEMP25>
8910                     <CALL '\1aNEXT-AC 1 = STACK>
8911                     <SET TEMP54 2 (TYPE FIX)>
8912                     <SFRAME 'OBJ-VAL>
8913                     <PUSH ARG219>
8914                     <DEAD ARG219>
8915                     <SCALL '\1aOBJ-VAL 1 = TEM22 + TAG412 TEMP54>
8916                     <LOOP (TEM22 TYPE VALUE LENGTH) (TEMP54 VALUE)>
8917 TAG415
8918                     <INTGO>
8919                     <EMPTY? TEM22 + TAG412>
8920                     <NTH1 TEM22 = STACK>
8921                     <REST1 TEM22 = TEM22>
8922                     <ADD TEMP54 1 = TEMP54 (TYPE FIX)>
8923                     <JUMP + TAG415>
8924 TAG412
8925                     <CALL '\1aOCEMIT TEMP54>
8926                     <DEAD TEMP54>
8927 PHRASE405
8928                     <VEQUAL? VAL20 'STACK - PHRASE418>
8929                     <DEAD VAL20>
8930                     <FRAME '\1aOCEMIT>
8931                     <PUSH 'PUSH>
8932                     <PUSH 'TP*>
8933                     <SET TEM22 2 (TYPE FIX)>
8934                     <SFRAME 'TYPE-WORD>
8935                     <PUSH 'FIX>
8936                     <SCALL '\1aTYPE-WORD 1 = TEMP54 + TAG419 TEM22>
8937                     <LOOP (TEMP54 TYPE VALUE LENGTH) (TEM22 VALUE)>
8938 TAG421
8939                     <INTGO>
8940                     <EMPTY? TEMP54 + TAG419>
8941                     <NTH1 TEMP54 = STACK>
8942                     <REST1 TEMP54 = TEMP54>
8943                     <ADD TEM22 1 = TEM22 (TYPE FIX)>
8944                     <JUMP + TAG421>
8945 TAG419
8946                     <CALL '\1aOCEMIT TEM22>
8947                     <DEAD TEM22>
8948                     <FRAME '\1aOCEMIT>
8949                     <PUSH 'PUSH>
8950                     <PUSH 'TP*>
8951                     <FRAME '\1aNEXT-AC>
8952                     <PUSH TEMP25>
8953                     <CALL '\1aNEXT-AC 1 = STACK>
8954                     <CALL '\1aOCEMIT 3>
8955                     <GVAL 'WINNING-VICTIM = TEM22>
8956                     <TYPE? TEM22 <TYPE-CODE FALSE> + PHRASE426>
8957                     <DEAD TEM22>
8958                     <GVAL 'STACK-DEPTH = TEM22>
8959                     <ADD TEM22 2 = TEM22 (TYPE FIX)>
8960                     <SETG 'STACK-DEPTH TEM22>
8961                     <DEAD TEM22>
8962 PHRASE426
8963                     <FRAME '\1aMUNGED-AC>
8964                     <PUSH TEMP25>
8965                     <DEAD TEMP25>
8966                     <PUSH 'T>
8967                     <CALL '\1aMUNGED-AC 2 = OAC17>
8968                     <RETURN OAC17>
8969                     <DEAD OAC17>
8970 PHRASE418
8971                     <FRAME '\1aGET-AC>
8972                     <PUSH TEMP25>
8973                     <CALL '\1aGET-AC 1 = TEM22>
8974                     <PUTUV TEM22 6 'FIX>
8975                     <DEAD TEM22>
8976                     <FRAME '\1aGET-AC>
8977                     <FRAME '\1aNEXT-AC>
8978                     <PUSH TEMP25>
8979                     <CALL '\1aNEXT-AC 1 = STACK>
8980                     <CALL '\1aGET-AC 1 = TEM22>
8981                     <PUTUV TEM22 2 ARG118>
8982                     <DEAD TEM22 ARG118>
8983                     <FRAME '\1aGET-AC>
8984                     <FRAME '\1aNEXT-AC>
8985                     <PUSH TEMP25>
8986                     <CALL '\1aNEXT-AC 1 = STACK>
8987                     <CALL '\1aGET-AC 1 = TEM22>
8988                     <PUTUV TEM22 3 'VALUE (TYPE ATOM)>
8989                     <DEAD TEM22>
8990                     <FRAME '\1aGET-AC>
8991                     <FRAME '\1aNEXT-AC>
8992                     <PUSH TEMP25>
8993                     <DEAD TEMP25>
8994                     <CALL '\1aNEXT-AC 1 = STACK>
8995                     <CALL '\1aGET-AC 1 = TEM22>
8996                     <PUTUV TEM22 5 'T>
8997                     <RETURN TEM22>
8998                     <DEAD TEM22>
8999 PHRASE388
9000                     <SET TEM22 %<> (TYPE FALSE)>
9001                     <EQUAL? ARG219 VAL20 - BOOL446>
9002                     <FRAME '\1aIN-AC?>
9003                     <PUSH ARG219>
9004                     <PUSH 'BOTH>
9005                     <CALL '\1aIN-AC? 2 = TEM22>
9006                     <TYPE? TEM22 <TYPE-CODE FALSE> + BOOL440>
9007                     <FRAME '\1aMUNGED-AC>
9008                     <PUSH TEM22>
9009                     <PUSH 'T>
9010                     <CALL '\1aMUNGED-AC 2>
9011                     <FRAME '\1aNEXT-AC>
9012                     <PUSH TEM22>
9013                     <DEAD TEM22>
9014                     <CALL '\1aNEXT-AC 1 = TEM22>
9015                     <JUMP + BOOL446>
9016 BOOL440
9017                     <FRAME '\1aIN-AC?>
9018                     <PUSH ARG219>
9019                     <PUSH 'VALUE>
9020                     <CALL '\1aIN-AC? 2 = TEM22>
9021                     <TYPE? TEM22 <TYPE-CODE FALSE> + BOOL446>
9022                     <FRAME '\1aMUNGED-AC>
9023                     <PUSH TEM22>
9024                     <CALL '\1aMUNGED-AC 1>
9025 BOOL446
9026                     <FRAME '\1aIN-AC?>
9027                     <PUSH ARG118>
9028                     <PUSH 'BOTH>
9029                     <CALL '\1aIN-AC? 2 = TEMP25>
9030                     <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE450>
9031                     <FRAME '\1aWILL-DIE?>
9032                     <PUSH ARG118>
9033                     <CALL '\1aWILL-DIE? 1 = TEMP54>
9034                     <TYPE? TEMP54 <TYPE-CODE FALSE> + PHRASE453>
9035                     <DEAD TEMP54>
9036                     <FRAME '\1aDEAD!-MIMOC>
9037                     <CONS ARG118 () = STACK>
9038                     <DEAD ARG118>
9039                     <PUSH 'T>
9040                     <CALL '\1aDEAD!-MIMOC 2>
9041                     <JUMP + PHRASE456>
9042 PHRASE453
9043                     <FRAME '\1aGET-AC>
9044                     <FRAME '\1aNEXT-AC>
9045                     <PUSH TEMP25>
9046                     <CALL '\1aNEXT-AC 1 = STACK>
9047                     <CALL '\1aGET-AC 1 = TEMP54>
9048                     <NTHUV TEMP54 5 = TEMP54>
9049                     <TYPE? TEMP54 <TYPE-CODE FALSE> + PHRASE456>
9050                     <DEAD TEMP54>
9051                     <FRAME '\1aREALLY-FREE-AC-PAIR>
9052                     <CALL '\1aREALLY-FREE-AC-PAIR 0 = OAC17>
9053                     <TYPE? OAC17 <TYPE-CODE FALSE> + PHRASE456>
9054                     <FRAME '\1aNEXT-AC>
9055                     <PUSH OAC17>
9056                     <CALL '\1aNEXT-AC 1 = TEMP54>
9057                     <EQUAL? TEMP54 TEM22 + PHRASE456>
9058                     <DEAD TEMP54>
9059                     <VEQUAL? NEG-FIRST24 0 + PHRASE463>
9060                     <FRAME '\1aOCEMIT>
9061                     <PUSH 'MOVN>
9062                     <FRAME '\1aNEXT-AC>
9063                     <PUSH OAC17>
9064                     <CALL '\1aNEXT-AC 1 = STACK>
9065                     <FRAME '\1aNEXT-AC>
9066                     <PUSH TEMP25>
9067                     <DEAD TEMP25>
9068                     <CALL '\1aNEXT-AC 1 = STACK>
9069                     <CALL '\1aOCEMIT 3>
9070                     <SET NEG-FIRST24 %<> (TYPE FALSE)>
9071                     <JUMP + PHRASE467>
9072 PHRASE463
9073                     <FRAME '\1aOCEMIT>
9074                     <PUSH 'MOVE>
9075                     <FRAME '\1aNEXT-AC>
9076                     <PUSH OAC17>
9077                     <CALL '\1aNEXT-AC 1 = STACK>
9078                     <FRAME '\1aNEXT-AC>
9079                     <PUSH TEMP25>
9080                     <DEAD TEMP25>
9081                     <CALL '\1aNEXT-AC 1 = STACK>
9082                     <CALL '\1aOCEMIT 3>
9083 PHRASE467
9084                     <SET TEMP25 OAC17>
9085                     <DEAD OAC17>
9086                     <FRAME '\1aGET-AC>
9087                     <PUSH TEMP25>
9088                     <CALL '\1aGET-AC 1 = TEMP54>
9089                     <PUTUV TEMP54 6 RESTYP15>
9090                     <DEAD TEMP54>
9091 PHRASE456
9092                     <FRAME '\1aGET-AC>
9093                     <PUSH TEMP25>
9094                     <CALL '\1aGET-AC 1 = OAC17>
9095                     <NTHUV OAC17 6 = ARG118>
9096                     <DEAD OAC17>
9097                     <FRAME '\1aFLUSH-AC>
9098                     <PUSH TEMP25>
9099                     <PUSH 'T>
9100                     <CALL '\1aFLUSH-AC 2>
9101                     <FRAME '\1aMUNGED-AC>
9102                     <PUSH TEMP25>
9103                     <PUSH 'T>
9104                     <CALL '\1aMUNGED-AC 2>
9105                     <FRAME '\1aGET-AC>
9106                     <PUSH TEMP25>
9107                     <CALL '\1aGET-AC 1 = OAC17>
9108                     <PUTUV OAC17 6 ARG118>
9109                     <DEAD OAC17 ARG118>
9110                     <VEQUAL? NEG-FIRST24 0 + PHRASE502>
9111                     <DEAD NEG-FIRST24>
9112                     <FRAME '\1aOCEMIT>
9113                     <PUSH 'MOVNS>
9114                     <PUSH 'O*>
9115                     <FRAME '\1aNEXT-AC>
9116                     <PUSH TEMP25>
9117                     <CALL '\1aNEXT-AC 1 = STACK>
9118                     <CALL '\1aOCEMIT 3>
9119                     <JUMP + PHRASE502>
9120 PHRASE450
9121                     <FRAME '\1aASSIGN-AC>
9122                     <PUSH VAL20>
9123                     <PUSH 'BOTH>
9124                     <PUSH 'T>
9125                     <CALL '\1aASSIGN-AC 3 = TEMP25>
9126                     <FRAME '\1aNEXT-AC>
9127                     <PUSH TEMP25>
9128                     <CALL '\1aNEXT-AC 1 = OAC17>
9129                     <EQUAL? TEM22 OAC17 - PHRASE487>
9130                     <DEAD OAC17>
9131                     <FRAME '\1aOCEMIT>
9132                     <PUSH 'MOVE>
9133                     <PUSH 'T*>
9134                     <PUSH TEM22>
9135                     <DEAD TEM22>
9136                     <CALL '\1aOCEMIT 3>
9137                     <SET TEM22 'T* (TYPE ATOM)>
9138 PHRASE487
9139                     <FRAME '\1aGET-AC>
9140                     <PUSH TEMP25>
9141                     <CALL '\1aGET-AC 1 = OAC17>
9142                     <PUTUV OAC17 6 RESTYP15>
9143                     <DEAD OAC17>
9144                     <TYPE? ARG118 <TYPE-CODE ATOM> - PHRASE492>
9145                     <FRAME '\1aOCEMIT>
9146                     <VEQUAL? NEG-FIRST24 0 + PHRASE495>
9147                     <DEAD NEG-FIRST24>
9148                     <SET OAC17 'MOVN (TYPE ATOM)>
9149                     <JUMP + PHRASE496>
9150 PHRASE495
9151                     <SET OAC17 'MOVE (TYPE ATOM)>
9152 PHRASE496
9153                     <PUSH OAC17>
9154                     <DEAD OAC17>
9155                     <FRAME '\1aNEXT-AC>
9156                     <PUSH TEMP25>
9157                     <CALL '\1aNEXT-AC 1 = STACK>
9158                     <SET NEG-FIRST24 2 (TYPE FIX)>
9159                     <SFRAME 'OBJ-VAL>
9160                     <PUSH ARG118>
9161                     <DEAD ARG118>
9162                     <SCALL '\1aOBJ-VAL 1 = OAC17 + TAG493 NEG-FIRST24>
9163                     <LOOP (OAC17 TYPE VALUE LENGTH) (NEG-FIRST24 VALUE)>
9164 TAG500
9165                     <INTGO>
9166                     <EMPTY? OAC17 + TAG493>
9167                     <NTH1 OAC17 = STACK>
9168                     <REST1 OAC17 = OAC17>
9169                     <ADD NEG-FIRST24 1 = NEG-FIRST24 (TYPE FIX)>
9170                     <JUMP + TAG500>
9171 TAG493
9172                     <CALL '\1aOCEMIT NEG-FIRST24>
9173                     <DEAD NEG-FIRST24>
9174                     <JUMP + PHRASE502>
9175 PHRASE492
9176                     <FRAME '\1aLOAD-AC>
9177                     <PUSH ARG118>
9178                     <DEAD ARG118>
9179                     <PUSH 'VALUE>
9180                     <PUSH %<>>
9181                     <PUSH %<>>
9182                     <FRAME '\1aGET-AC>
9183                     <FRAME '\1aNEXT-AC>
9184                     <PUSH TEMP25>
9185                     <CALL '\1aNEXT-AC 1 = STACK>
9186                     <CALL '\1aGET-AC 1 = STACK>
9187                     <CALL '\1aLOAD-AC 5>
9188 PHRASE502
9189                     <VEQUAL? NORM11 'IDIV + BOOL509>
9190                     <VEQUAL? NORM11 'FDVR - PHRASE507>
9191 BOOL509
9192                     <FRAME '\1aNEXT-AC>
9193                     <FRAME '\1aNEXT-AC>
9194                     <PUSH TEMP25>
9195                     <CALL '\1aNEXT-AC 1 = STACK>
9196                     <CALL '\1aNEXT-AC 1 = NEG-FIRST24>
9197                     <EQUAL? NEG-FIRST24 'T* + PHRASE507>
9198                     <DEAD NEG-FIRST24>
9199                     <FRAME '\1aFLUSH-AC>
9200                     <FRAME '\1aNEXT-AC>
9201                     <FRAME '\1aNEXT-AC>
9202                     <PUSH TEMP25>
9203                     <CALL '\1aNEXT-AC 1 = STACK>
9204                     <CALL '\1aNEXT-AC 1 = STACK>
9205                     <CALL '\1aFLUSH-AC 1>
9206                     <FRAME '\1aMUNGED-AC>
9207                     <FRAME '\1aNEXT-AC>
9208                     <FRAME '\1aNEXT-AC>
9209                     <PUSH TEMP25>
9210                     <CALL '\1aNEXT-AC 1 = STACK>
9211                     <CALL '\1aNEXT-AC 1 = STACK>
9212                     <CALL '\1aMUNGED-AC 1>
9213 PHRASE507
9214                     <VEQUAL? IMM-OK23 0 + PHRASE519>
9215                     <DEAD IMM-OK23>
9216                     <FRAME '\1aOCEMIT>
9217                     <PUSH IMMED12>
9218                     <DEAD IMMED12>
9219                     <FRAME '\1aNEXT-AC>
9220                     <PUSH TEMP25>
9221                     <CALL '\1aNEXT-AC 1 = STACK>
9222                     <PUSH ARG219>
9223                     <CALL '\1aOCEMIT 3>
9224                     <JUMP + PHRASE532>
9225 PHRASE519
9226                     <TYPE? TEM22 <TYPE-CODE FALSE> + PHRASE522>
9227                     <FRAME '\1aOCEMIT>
9228                     <PUSH NORM11>
9229                     <DEAD NORM11>
9230                     <FRAME '\1aNEXT-AC>
9231                     <PUSH TEMP25>
9232                     <CALL '\1aNEXT-AC 1 = STACK>
9233                     <PUSH TEM22>
9234                     <CALL '\1aOCEMIT 3>
9235                     <JUMP + PHRASE532>
9236 PHRASE522
9237                     <TYPE? BO14 <TYPE-CODE FALSE> + PHRASE525>
9238                     <EQUAL? ARG219 VAL20 - PHRASE525>
9239                     <FRAME '\1aOCEMIT>
9240                     <PUSH BO14>
9241                     <FRAME '\1aNEXT-AC>
9242                     <PUSH TEMP25>
9243                     <CALL '\1aNEXT-AC 1 = STACK>
9244                     <SET OAC17 2 (TYPE FIX)>
9245                     <SFRAME 'OBJ-VAL>
9246                     <PUSH ARG219>
9247                     <SCALL '\1aOBJ-VAL 1 = NEG-FIRST24 + TAG527 OAC17>
9248                     <LOOP (NEG-FIRST24 TYPE VALUE LENGTH) (OAC17 VALUE)>
9249 TAG530
9250                     <INTGO>
9251                     <EMPTY? NEG-FIRST24 + TAG527>
9252                     <NTH1 NEG-FIRST24 = STACK>
9253                     <REST1 NEG-FIRST24 = NEG-FIRST24>
9254                     <ADD OAC17 1 = OAC17 (TYPE FIX)>
9255                     <JUMP + TAG530>
9256 TAG527
9257                     <CALL '\1aOCEMIT OAC17>
9258                     <DEAD OAC17>
9259                     <JUMP + PHRASE532>
9260 PHRASE525
9261                     <FRAME '\1aOCEMIT>
9262                     <PUSH NORM11>
9263                     <DEAD NORM11>
9264                     <FRAME '\1aNEXT-AC>
9265                     <PUSH TEMP25>
9266                     <CALL '\1aNEXT-AC 1 = STACK>
9267                     <SET NEG-FIRST24 2 (TYPE FIX)>
9268                     <SFRAME 'OBJ-VAL>
9269                     <PUSH ARG219>
9270                     <SCALL '\1aOBJ-VAL 1 = OAC17 + TAG533 NEG-FIRST24>
9271                     <LOOP (OAC17 TYPE VALUE LENGTH) (NEG-FIRST24 VALUE)>
9272 TAG536
9273                     <INTGO>
9274                     <EMPTY? OAC17 + TAG533>
9275                     <NTH1 OAC17 = STACK>
9276                     <REST1 OAC17 = OAC17>
9277                     <ADD NEG-FIRST24 1 = NEG-FIRST24 (TYPE FIX)>
9278                     <JUMP + TAG536>
9279 TAG533
9280                     <CALL '\1aOCEMIT NEG-FIRST24>
9281                     <DEAD NEG-FIRST24>
9282 PHRASE532
9283                     <FRAME '\1aCLEAN-ACS>
9284                     <PUSH VAL20>
9285                     <CALL '\1aCLEAN-ACS 1>
9286                     <FRAME '\1aGET-AC>
9287                     <PUSH TEMP25>
9288                     <CALL '\1aGET-AC 1 = NEG-FIRST24>
9289                     <PUTUV NEG-FIRST24 2 VAL20>
9290                     <PUTUV NEG-FIRST24 3 'TYPE (TYPE ATOM)>
9291                     <DEAD NEG-FIRST24>
9292                     <FRAME '\1aGET-AC>
9293                     <PUSH TEMP25>
9294                     <CALL '\1aGET-AC 1 = NEG-FIRST24>
9295                     <PUTUV NEG-FIRST24 5 'T>
9296                     <DEAD NEG-FIRST24>
9297                     <FRAME '\1aGET-AC>
9298                     <FRAME '\1aNEXT-AC>
9299                     <PUSH TEMP25>
9300                     <DEAD TEMP25>
9301                     <CALL '\1aNEXT-AC 1 = TEMP25>
9302                     <PUSH TEMP25>
9303                     <CALL '\1aGET-AC 1 = NEG-FIRST24>
9304                     <PUTUV NEG-FIRST24 2 VAL20>
9305                     <PUTUV NEG-FIRST24 3 'VALUE (TYPE ATOM)>
9306                     <DEAD NEG-FIRST24>
9307                     <FRAME '\1aGET-AC>
9308                     <PUSH TEMP25>
9309                     <CALL '\1aGET-AC 1 = NEG-FIRST24>
9310                     <TYPE? BO14 <TYPE-CODE FALSE> + TAG544>
9311                     <DEAD BO14>
9312                     <EQUAL? ARG219 VAL20 - TAG544>
9313                     <DEAD ARG219>
9314                     <TYPE? TEM22 <TYPE-CODE FALSE> - TAG544>
9315                     <DEAD TEM22>
9316                     <SET OAC17 %<> (TYPE FALSE)>
9317                     <JUMP + TAG545>
9318 TAG544
9319                     <SET OAC17 'T (TYPE ATOM)>
9320 TAG545
9321                     <PUTUV NEG-FIRST24 5 OAC17>
9322                     <DEAD NEG-FIRST24 OAC17>
9323                     <VEQUAL? VAL20 'STACK + TAG549>
9324                     <DEAD VAL20>
9325                     <RETURN %<>>
9326 TAG549
9327                     <FRAME '\1aOCEMIT>
9328                     <PUSH 'PUSH>
9329                     <PUSH 'TP*>
9330                     <SET OAC17 2 (TYPE FIX)>
9331                     <SFRAME 'TYPE-WORD>
9332                     <PUSH RESTYP15>
9333                     <DEAD RESTYP15>
9334                     <SCALL '\1aTYPE-WORD 1 = NEG-FIRST24 + TAG550 OAC17>
9335                     <LOOP (NEG-FIRST24 TYPE VALUE LENGTH) (OAC17 VALUE)>
9336 TAG552
9337                     <INTGO>
9338                     <EMPTY? NEG-FIRST24 + TAG550>
9339                     <NTH1 NEG-FIRST24 = STACK>
9340                     <REST1 NEG-FIRST24 = NEG-FIRST24>
9341                     <ADD OAC17 1 = OAC17 (TYPE FIX)>
9342                     <JUMP + TAG552>
9343 TAG550
9344                     <CALL '\1aOCEMIT OAC17>
9345                     <DEAD OAC17>
9346                     <FRAME '\1aOCEMIT>
9347                     <PUSH 'PUSH>
9348                     <PUSH 'TP*>
9349                     <PUSH TEMP25>
9350                     <DEAD TEMP25>
9351                     <CALL '\1aOCEMIT 3>
9352                     <GVAL 'WINNING-VICTIM = OAC17>
9353                     <TYPE? OAC17 <TYPE-CODE FALSE> + PHRASE556>
9354                     <GVAL 'STACK-DEPTH = OAC17>
9355                     <ADD OAC17 2 = OAC17 (TYPE FIX)>
9356                     <SETG 'STACK-DEPTH OAC17>
9357 PHRASE556
9358                     <RETURN OAC17>
9359                     <DEAD OAC17>
9360                     <END \1aARITH!-MIMOC>\r\r
9361 #WORD *11521221065*
9362 <GFCN \1aAND!-MIMOC ("VALUE" ANY LIST) L4>
9363                     <TEMP ARG15 TEMP18 ARG26 VAL7:ATOM (CONST13 %<>) MIML17 NEXTLINE8 TEMP41 TEMP42 TEMP43 TEMP44 TRN12:LIST>
9364                     <INTGO>
9365                     <NTHL L4 1 = ARG15>
9366                     <RESTL L4 1 = TEMP18 (TYPE LIST)>
9367                     <NTHL TEMP18 1 = ARG26>
9368                     <DEAD TEMP18>
9369                     <RESTL L4 1 = TEMP18 (TYPE LIST)>
9370                     <RESTL TEMP18 1 = TEMP18 (TYPE LIST)>
9371                     <RESTL TEMP18 1 = TEMP18 (TYPE LIST)>
9372                     <NTHL TEMP18 1 = VAL7 (TYPE ATOM)>
9373                     <DEAD TEMP18>
9374                     <GEN-LVAL 'MIML = MIML17>
9375                     <EMPL? MIML17 + PHRASE22>
9376                     <RESTL MIML17 1 = TEMP18 (TYPE LIST)>
9377                     <EMPL? TEMP18 + PHRASE22>
9378                     <RESTL TEMP18 1 = TEMP18 (TYPE LIST)>
9379                     <EMPL? TEMP18 + PHRASE22>
9380                     <DEAD TEMP18>
9381                     <FRAME '\1aPRIMTYPE>
9382                     <PUSH ARG15>
9383                     <CALL '\1aPRIMTYPE 1 = TEMP18>
9384                     <VEQUAL? TEMP18 'FIX - BOOL26>
9385                     <DEAD TEMP18>
9386                     <TYPE? ARG26 <TYPE-CODE ATOM> - BOOL26>
9387                     <SET TEMP18 ARG15>
9388                     <TYPE? TEMP18 <TYPE-CODE FALSE> + BOOL26>
9389                     <SET ARG15 ARG26>
9390                     <DEAD ARG26>
9391                     <CHTYPE TEMP18 <TYPE-CODE FIX> = ARG26>
9392                     <DEAD TEMP18>
9393                     <JUMP + PHRASE36>
9394 BOOL26
9395                     <TYPE? ARG15 <TYPE-CODE ATOM> - BOOL28>
9396                     <FRAME '\1aPRIMTYPE>
9397                     <PUSH ARG26>
9398                     <CALL '\1aPRIMTYPE 1 = TEMP18>
9399                     <VEQUAL? TEMP18 'FIX - BOOL28>
9400                     <DEAD TEMP18>
9401                     <CHTYPE ARG26 <TYPE-CODE FIX> = ARG26>
9402                     <JUMP + PHRASE36>
9403 BOOL28
9404                     <TYPE? ARG15 <TYPE-CODE ATOM> - PHRASE22>
9405                     <TYPE? ARG26 <TYPE-CODE ATOM> - PHRASE22>
9406                     <FRAME '\1aWILL-DIE?>
9407                     <PUSH ARG15>
9408                     <CALL '\1aWILL-DIE? 1 = TEMP18>
9409                     <TYPE? TEMP18 <TYPE-CODE FALSE> - PHRASE22>
9410                     <DEAD TEMP18>
9411                     <FRAME '\1aWILL-DIE?>
9412                     <PUSH ARG26>
9413                     <CALL '\1aWILL-DIE? 1 = TEMP18>
9414                     <TYPE? TEMP18 <TYPE-CODE FALSE> - PHRASE22>
9415                     <DEAD TEMP18>
9416                     <VEQUAL? ARG15 VAL7 + PHRASE22>
9417                     <VEQUAL? ARG26 VAL7 + PHRASE22>
9418                     <FRAME '\1aIN-AC?>
9419                     <PUSH ARG26>
9420                     <PUSH 'VALUE>
9421                     <CALL '\1aIN-AC? 2 = TEMP18>
9422                     <TYPE? TEMP18 <TYPE-CODE FALSE> + PHRASE36>
9423                     <DEAD TEMP18>
9424                     <FRAME '\1aIN-AC?>
9425                     <PUSH ARG15>
9426                     <PUSH 'VALUE>
9427                     <CALL '\1aIN-AC? 2 = TEMP18>
9428                     <TYPE? TEMP18 <TYPE-CODE FALSE> - PHRASE36>
9429                     <DEAD TEMP18>
9430                     <SET TEMP18 ARG15>
9431                     <DEAD ARG15>
9432                     <SET ARG15 ARG26>
9433                     <DEAD ARG26>
9434                     <SET ARG26 TEMP18>
9435                     <DEAD TEMP18>
9436 PHRASE36
9437                     <RESTL MIML17 1 = TEMP18 (TYPE LIST)>
9438                     <NTHL TEMP18 1 = NEXTLINE8>
9439                     <DEAD TEMP18>
9440                     <TYPE? NEXTLINE8 <TYPE-CODE FORM> - PHRASE22>
9441                     <NTHL NEXTLINE8 1 = TEMP18 (TYPE ATOM)>
9442                     <NTHR TEMP18 3 = TEMP18 (RECORD-TYPE ATOM)>
9443                     <IFCAN "STRING-EQUAL?">
9444                     <STRING-EQUAL? TEMP18 "VEQUAL?" - PHRASE22>
9445                     <ENDIF "STRING-EQUAL?">
9446                     <IFCANNOT "STRING-EQUAL?">
9447                     <SET TEMP41 "VEQUAL?" (TYPE STRING)>
9448                     <LENUS TEMP18 = TEMP42 (TYPE FIX)>
9449                     <VEQUAL? TEMP42 7 - PHRASE22>
9450                     <LOOP (TEMP18 VALUE LENGTH) (TEMP41 VALUE LENGTH) (TEMP42 VALUE)>
9451 TAG45
9452                     <NTHUS TEMP18 1 = TEMP43>
9453                     <NTHUS TEMP41 1 = TEMP44>
9454                     <VEQUAL? TEMP43 TEMP44 - PHRASE22>
9455                     <DEAD TEMP43 TEMP44>
9456                     <RESTUS TEMP18 1 = TEMP18 (TYPE STRING)>
9457                     <RESTUS TEMP41 1 = TEMP41 (TYPE STRING)>
9458                     <SUB TEMP42 1 = TEMP42 (TYPE FIX)>
9459                     <GRTR? TEMP42 0 + TAG45 (TYPE FIX)>
9460                     <ENDIF "STRING-EQUAL?">
9461                     <RESTL NEXTLINE8 1 = TEMP41 (TYPE LIST)>
9462                     <NTHL TEMP41 1 = TEMP41>
9463                     <EQUAL? TEMP41 VAL7 - BOOL47>
9464                     <DEAD TEMP41>
9465                     <RESTL NEXTLINE8 1 = TEMP41 (TYPE LIST)>
9466                     <RESTL TEMP41 1 = TEMP41 (TYPE LIST)>
9467                     <NTHL TEMP41 1 = TEMP41>
9468                     <EQUAL? TEMP41 0 + BOOL46>
9469                     <DEAD TEMP41>
9470 BOOL47
9471                     <RESTL NEXTLINE8 1 = TEMP41 (TYPE LIST)>
9472                     <NTHL TEMP41 1 = TEMP41>
9473                     <EQUAL? TEMP41 0 - PHRASE22>
9474                     <DEAD TEMP41>
9475                     <RESTL NEXTLINE8 1 = TEMP41 (TYPE LIST)>
9476                     <RESTL TEMP41 1 = TEMP41 (TYPE LIST)>
9477                     <NTHL TEMP41 1 = TEMP41>
9478                     <EQUAL? TEMP41 VAL7 - PHRASE22>
9479                     <DEAD TEMP41>
9480 BOOL46
9481                     <FRAME '\1aWILL-DIE?>
9482                     <PUSH VAL7>
9483                     <RESTL MIML17 1 = STACK (TYPE LIST)>
9484                     <DEAD MIML17>
9485                     <CALL '\1aWILL-DIE? 2 = TEMP41>
9486                     <TYPE? TEMP41 <TYPE-CODE FALSE> + PHRASE22>
9487                     <DEAD TEMP41>
9488                     <FRAME '\1aWILL-DIE?>
9489                     <PUSH VAL7>
9490                     <DEAD VAL7>
9491                     <FRAME '\1aFIND-LABEL>
9492                     <NTHL NEXTLINE8 5 = STACK>
9493                     <CALL '\1aFIND-LABEL 1 = TEMP41>
9494                     <NTHUV TEMP41 7 = STACK (TYPE LIST)>
9495                     <DEAD TEMP41>
9496                     <CALL '\1aWILL-DIE? 2 = TEMP41>
9497                     <TYPE? TEMP41 <TYPE-CODE FALSE> + PHRASE22>
9498                     <DEAD TEMP41>
9499                     <RESTL NEXTLINE8 1 = TEMP41 (TYPE LIST)>
9500                     <RESTL TEMP41 1 = TEMP41 (TYPE LIST)>
9501                     <RESTL TEMP41 1 = TEMP41 (TYPE LIST)>
9502                     <NTHL TEMP41 1 = VAL7 (TYPE ATOM)>
9503                     <DEAD TEMP41>
9504                     <NTHL NEXTLINE8 5 = MIML17 (TYPE ATOM)>
9505                     <DEAD NEXTLINE8>
9506                     <FRAME '\1aIN-AC?>
9507                     <PUSH ARG15>
9508                     <PUSH 'BOTH>
9509                     <CALL '\1aIN-AC? 2 = TEMP18>
9510                     <TYPE? TEMP18 <TYPE-CODE FALSE> + PHRASE53>
9511                     <FRAME '\1aNEXT-AC>
9512                     <PUSH TEMP18>
9513                     <DEAD TEMP18>
9514                     <CALL '\1aNEXT-AC 1 = NEXTLINE8>
9515                     <JUMP + PHRASE57>
9516 PHRASE53
9517                     <FRAME '\1aIN-AC?>
9518                     <PUSH ARG15>
9519                     <PUSH 'VALUE>
9520                     <CALL '\1aIN-AC? 2 = NEXTLINE8>
9521                     <TYPE? NEXTLINE8 <TYPE-CODE FALSE> - PHRASE57>
9522                     <FRAME '\1aNEXT-AC>
9523                     <FRAME '\1aLOAD-AC>
9524                     <PUSH ARG15>
9525                     <DEAD ARG15>
9526                     <PUSH 'BOTH>
9527                     <CALL '\1aLOAD-AC 2 = TEMP18>
9528                     <PUSH TEMP18>
9529                     <DEAD TEMP18>
9530                     <CALL '\1aNEXT-AC 1 = NEXTLINE8>
9531 PHRASE57
9532                     <FRAME '\1aLABEL-UPDATE-ACS>
9533                     <PUSH MIML17>
9534                     <PUSH %<>>
9535                     <CALL '\1aLABEL-UPDATE-ACS 2>
9536                     <TYPE? ARG26 <TYPE-CODE ATOM> - PHRASE62>
9537                     <SET CONST13 'T (TYPE ATOM)>
9538                     <JUMP + PHRASE68>
9539 PHRASE62
9540                     <FRAME '\1aL=?>
9541                     <PUSH ARG26>
9542                     <PUSH 262143>
9543                     <CALL '\1aL=? 2 = TEMP41>
9544                     <TYPE? TEMP41 <TYPE-CODE FALSE> + PHRASE63>
9545                     <DEAD TEMP41>
9546                     <SET TRN12 (TRNN TRNE) (TYPE LIST)>
9547                     <JUMP + PHRASE68>
9548 PHRASE63
9549                     <AND ARG26 #WORD *777777* = TEMP41>
9550                     <VEQUAL? TEMP41 0 - PHRASE65 (TYPE FIX)>
9551                     <DEAD TEMP41>
9552                     <LSH ARG26 -18 = ARG26 (TYPE FIX)>
9553                     <SET TRN12 (TLNN TLNE) (TYPE LIST)>
9554                     <JUMP + PHRASE68>
9555 PHRASE65
9556                     <SET CONST13 'T (TYPE ATOM)>
9557 PHRASE68
9558                     <VEQUAL? VAL7 '- - PHRASE70>
9559                     <DEAD VAL7>
9560                     <VEQUAL? CONST13 0 + PHRASE72>
9561                     <DEAD CONST13>
9562                     <FRAME '\1aOCEMIT>
9563                     <PUSH 'TDNE>
9564                     <PUSH NEXTLINE8>
9565                     <DEAD NEXTLINE8>
9566                     <SET TEMP18 2 (TYPE FIX)>
9567                     <SFRAME 'OBJ-VAL>
9568                     <PUSH ARG26>
9569                     <DEAD ARG26>
9570                     <SCALL '\1aOBJ-VAL 1 = TEMP41 + TAG73 TEMP18>
9571                     <LOOP (TEMP41 TYPE VALUE LENGTH) (TEMP18 VALUE)>
9572 TAG75
9573                     <INTGO>
9574                     <EMPTY? TEMP41 + TAG73>
9575                     <NTH1 TEMP41 = STACK>
9576                     <REST1 TEMP41 = TEMP41>
9577                     <ADD TEMP18 1 = TEMP18 (TYPE FIX)>
9578                     <JUMP + TAG75>
9579 TAG73
9580                     <CALL '\1aOCEMIT TEMP18>
9581                     <DEAD TEMP18>
9582                     <JUMP + PHRASE95>
9583 PHRASE72
9584                     <FRAME '\1aOCEMIT>
9585                     <RESTL TRN12 1 = TEMP18 (TYPE LIST)>
9586                     <DEAD TRN12>
9587                     <NTHL TEMP18 1 = STACK>
9588                     <DEAD TEMP18>
9589                     <PUSH NEXTLINE8>
9590                     <DEAD NEXTLINE8>
9591                     <PUSH ARG26>
9592                     <DEAD ARG26>
9593                     <CALL '\1aOCEMIT 3>
9594                     <JUMP + PHRASE95>
9595 PHRASE70
9596                     <TYPE? ARG26 <TYPE-CODE FIX> - PHRASE79>
9597                     <SUB 0 ARG26 = TEMP18 (TYPE FIX)>
9598                     <AND ARG26 TEMP18 = TEMP41>
9599                     <DEAD TEMP18>
9600                     <VEQUAL? ARG26 TEMP41 - PHRASE79 (TYPE FIX)>
9601                     <DEAD TEMP41>
9602                     <VEQUAL? CONST13 0 + PHRASE82>
9603                     <DEAD CONST13>
9604                     <FRAME '\1aOCEMIT>
9605                     <PUSH 'TDNN>
9606                     <PUSH NEXTLINE8>
9607                     <DEAD NEXTLINE8>
9608                     <SET TEMP18 2 (TYPE FIX)>
9609                     <SFRAME 'OBJ-VAL>
9610                     <PUSH ARG26>
9611                     <DEAD ARG26>
9612                     <SCALL '\1aOBJ-VAL 1 = TEMP41 + TAG83 TEMP18>
9613                     <LOOP (TEMP41 TYPE VALUE LENGTH) (TEMP18 VALUE)>
9614 TAG85
9615                     <INTGO>
9616                     <EMPTY? TEMP41 + TAG83>
9617                     <NTH1 TEMP41 = STACK>
9618                     <REST1 TEMP41 = TEMP41>
9619                     <ADD TEMP18 1 = TEMP18 (TYPE FIX)>
9620                     <JUMP + TAG85>
9621 TAG83
9622                     <CALL '\1aOCEMIT TEMP18>
9623                     <DEAD TEMP18>
9624                     <JUMP + PHRASE95>
9625 PHRASE82
9626                     <FRAME '\1aOCEMIT>
9627                     <NTHL TRN12 1 = STACK>
9628                     <DEAD TRN12>
9629                     <PUSH NEXTLINE8>
9630                     <DEAD NEXTLINE8>
9631                     <PUSH ARG26>
9632                     <DEAD ARG26>
9633                     <CALL '\1aOCEMIT 3>
9634                     <JUMP + PHRASE95>
9635 PHRASE79
9636                     <VEQUAL? CONST13 0 + PHRASE89>
9637                     <DEAD CONST13>
9638                     <FRAME '\1aOCEMIT>
9639                     <PUSH 'TDNE>
9640                     <PUSH NEXTLINE8>
9641                     <DEAD NEXTLINE8>
9642                     <SET TEMP41 2 (TYPE FIX)>
9643                     <SFRAME 'OBJ-VAL>
9644                     <PUSH ARG26>
9645                     <DEAD ARG26>
9646                     <SCALL '\1aOBJ-VAL 1 = TEMP18 + TAG90 TEMP41>
9647                     <LOOP (TEMP18 TYPE VALUE LENGTH) (TEMP41 VALUE)>
9648 TAG92
9649                     <INTGO>
9650                     <EMPTY? TEMP18 + TAG90>
9651                     <NTH1 TEMP18 = STACK>
9652                     <REST1 TEMP18 = TEMP18>
9653                     <ADD TEMP41 1 = TEMP41 (TYPE FIX)>
9654                     <JUMP + TAG92>
9655 TAG90
9656                     <CALL '\1aOCEMIT TEMP41>
9657                     <DEAD TEMP41>
9658                     <FRAME '\1aOCEMIT>
9659                     <PUSH 'CAIA>
9660                     <PUSH 'O*>
9661                     <PUSH 'O*>
9662                     <CALL '\1aOCEMIT 3>
9663                     <JUMP + PHRASE95>
9664 PHRASE89
9665                     <FRAME '\1aOCEMIT>
9666                     <RESTL TRN12 1 = TEMP41 (TYPE LIST)>
9667                     <DEAD TRN12>
9668                     <NTHL TEMP41 1 = STACK>
9669                     <DEAD TEMP41>
9670                     <PUSH NEXTLINE8>
9671                     <DEAD NEXTLINE8>
9672                     <PUSH ARG26>
9673                     <DEAD ARG26>
9674                     <CALL '\1aOCEMIT 3>
9675                     <FRAME '\1aOCEMIT>
9676                     <PUSH 'CAIA>
9677                     <PUSH 'O*>
9678                     <PUSH 'O*>
9679                     <CALL '\1aOCEMIT 3>
9680 PHRASE95
9681                     <FRAME '\1aOCEMIT>
9682                     <PUSH 'JRST>
9683                     <FRAME '\1aXJUMP>
9684                     <PUSH MIML17>
9685                     <DEAD MIML17>
9686                     <CALL '\1aXJUMP 1 = STACK>
9687                     <CALL '\1aOCEMIT 2>
9688                     <SETG 'NEXT-FLUSH 1>
9689                     <RETURN 1>
9690 PHRASE22
9691                     <FRAME '\1aARITH!-MIMOC>
9692                     <PUSH L4>
9693                     <DEAD L4>
9694                     <PUSH 'AND>
9695                     <PUSH 'ANDI>
9696                     <PUSH (TLZ TRZ)>
9697                     <PUSH 'ANDB>
9698                     <CALL '\1aARITH!-MIMOC 5 = TEMP41>
9699                     <RETURN TEMP41>
9700                     <DEAD TEMP41>
9701                     <END \1aAND!-MIMOC>
9702 #WORD *33721510151*
9703 <GFCN \1aFLOAT!-MIMOC ("VALUE" ANY LIST) L5>
9704                     <TEMP TEMP8 TEMP12>
9705                     <INTGO>
9706                     <RESTL L5 1 = TEMP8 (TYPE LIST)>
9707                     <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
9708                     <NTHL TEMP8 1 = TEMP8 (TYPE ATOM)>
9709                     <VEQUAL? TEMP8 'STACK - PHRASE10>
9710                     <DEAD TEMP8>
9711                     <FRAME '\1aOCEMIT>
9712                     <PUSH 'PUSH>
9713                     <PUSH 'TP*>
9714                     <SET TEMP12 2 (TYPE FIX)>
9715                     <SFRAME 'TYPE-WORD>
9716                     <PUSH 'FLOAT>
9717                     <SCALL '\1aTYPE-WORD 1 = TEMP8 + TAG11 TEMP12>
9718                     <LOOP (TEMP8 TYPE VALUE LENGTH) (TEMP12 VALUE)>
9719 TAG14
9720                     <INTGO>
9721                     <EMPTY? TEMP8 + TAG11>
9722                     <NTH1 TEMP8 = STACK>
9723                     <REST1 TEMP8 = TEMP8>
9724                     <ADD TEMP12 1 = TEMP12 (TYPE FIX)>
9725                     <JUMP + TAG14>
9726 TAG11
9727                     <CALL '\1aOCEMIT TEMP12>
9728                     <DEAD TEMP12>
9729                     <GVAL 'WINNING-VICTIM = TEMP12>
9730                     <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE17>
9731                     <DEAD TEMP12>
9732                     <GVAL 'STACK-DEPTH = TEMP12>
9733                     <ADD TEMP12 1 = TEMP12 (TYPE FIX)>
9734                     <SETG 'STACK-DEPTH TEMP12>
9735                     <DEAD TEMP12>
9736 PHRASE17
9737                     <FRAME '\1aOCEMIT>
9738                     <PUSH 'FLTR>
9739                     <PUSH 'O*>
9740                     <SET TEMP8 2 (TYPE FIX)>
9741                     <SFRAME 'OBJ-VAL>
9742                     <NTHL L5 1 = STACK>
9743                     <DEAD L5>
9744                     <SCALL '\1aOBJ-VAL 1 = TEMP12 + TAG18 TEMP8>
9745                     <LOOP (TEMP12 TYPE VALUE LENGTH) (TEMP8 VALUE)>
9746 TAG20
9747                     <INTGO>
9748                     <EMPTY? TEMP12 + TAG18>
9749                     <NTH1 TEMP12 = STACK>
9750                     <REST1 TEMP12 = TEMP12>
9751                     <ADD TEMP8 1 = TEMP8 (TYPE FIX)>
9752                     <JUMP + TAG20>
9753 TAG18
9754                     <CALL '\1aOCEMIT TEMP8>
9755                     <DEAD TEMP8>
9756                     <FRAME '\1aOCEMIT>
9757                     <PUSH 'PUSH>
9758                     <PUSH 'TP*>
9759                     <PUSH 'O*>
9760                     <CALL '\1aOCEMIT 3>
9761                     <GVAL 'WINNING-VICTIM = TEMP8>
9762                     <TYPE? TEMP8 <TYPE-CODE FALSE> + PHRASE25>
9763                     <GVAL 'STACK-DEPTH = TEMP12>
9764                     <ADD TEMP12 1 = TEMP12 (TYPE FIX)>
9765                     <SETG 'STACK-DEPTH TEMP12>
9766                     <RETURN TEMP12>
9767                     <DEAD TEMP12>
9768 PHRASE10
9769                     <FRAME '\1aASSIGN-AC>
9770                     <RESTL L5 1 = TEMP12 (TYPE LIST)>
9771                     <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
9772                     <NTHL TEMP12 1 = STACK (TYPE ATOM)>
9773                     <DEAD TEMP12>
9774                     <PUSH 'BOTH>
9775                     <CALL '\1aASSIGN-AC 2 = TEMP8>
9776                     <FRAME '\1aGET-AC>
9777                     <PUSH TEMP8>
9778                     <CALL '\1aGET-AC 1 = TEMP12>
9779                     <PUTUV TEMP12 6 'FLOAT>
9780                     <DEAD TEMP12>
9781                     <FRAME '\1aOCEMIT>
9782                     <PUSH 'FLTR>
9783                     <FRAME '\1aNEXT-AC>
9784                     <PUSH TEMP8>
9785                     <DEAD TEMP8>
9786                     <CALL '\1aNEXT-AC 1 = STACK>
9787                     <SET TEMP8 2 (TYPE FIX)>
9788                     <SFRAME 'OBJ-VAL>
9789                     <NTHL L5 1 = STACK>
9790                     <DEAD L5>
9791                     <SCALL '\1aOBJ-VAL 1 = TEMP12 + TAG28 TEMP8>
9792                     <LOOP (TEMP12 TYPE VALUE LENGTH) (TEMP8 VALUE)>
9793 TAG32
9794                     <INTGO>
9795                     <EMPTY? TEMP12 + TAG28>
9796                     <NTH1 TEMP12 = STACK>
9797                     <REST1 TEMP12 = TEMP12>
9798                     <ADD TEMP8 1 = TEMP8 (TYPE FIX)>
9799                     <JUMP + TAG32>
9800 TAG28
9801                     <CALL '\1aOCEMIT TEMP8 = TEMP8>
9802 PHRASE25
9803                     <RETURN TEMP8>
9804                     <DEAD TEMP8>
9805                     <END \1aFLOAT!-MIMOC>
9806 #WORD *11636601746*
9807 <GFCN \1aFIX!-MIMOC ("VALUE" ANY LIST) L5>
9808                     <TEMP TEMP8 TEMP12>
9809                     <INTGO>
9810                     <RESTL L5 1 = TEMP8 (TYPE LIST)>
9811                     <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
9812                     <NTHL TEMP8 1 = TEMP8 (TYPE ATOM)>
9813                     <VEQUAL? TEMP8 'STACK - PHRASE10>
9814                     <DEAD TEMP8>
9815                     <FRAME '\1aOCEMIT>
9816                     <PUSH 'PUSH>
9817                     <PUSH 'TP*>
9818                     <SET TEMP12 2 (TYPE FIX)>
9819                     <SFRAME 'TYPE-WORD>
9820                     <PUSH 'FIX>
9821                     <SCALL '\1aTYPE-WORD 1 = TEMP8 + TAG11 TEMP12>
9822                     <LOOP (TEMP8 TYPE VALUE LENGTH) (TEMP12 VALUE)>
9823 TAG14
9824                     <INTGO>
9825                     <EMPTY? TEMP8 + TAG11>
9826                     <NTH1 TEMP8 = STACK>
9827                     <REST1 TEMP8 = TEMP8>
9828                     <ADD TEMP12 1 = TEMP12 (TYPE FIX)>
9829                     <JUMP + TAG14>
9830 TAG11
9831                     <CALL '\1aOCEMIT TEMP12>
9832                     <DEAD TEMP12>
9833                     <GVAL 'WINNING-VICTIM = TEMP12>
9834                     <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE17>
9835                     <DEAD TEMP12>
9836                     <GVAL 'STACK-DEPTH = TEMP12>
9837                     <ADD TEMP12 1 = TEMP12 (TYPE FIX)>
9838                     <SETG 'STACK-DEPTH TEMP12>
9839                     <DEAD TEMP12>
9840 PHRASE17
9841                     <FRAME '\1aOCEMIT>
9842                     <PUSH 'FIX>
9843                     <PUSH 'O*>
9844                     <SET TEMP8 2 (TYPE FIX)>
9845                     <SFRAME 'OBJ-VAL>
9846                     <NTHL L5 1 = STACK>
9847                     <DEAD L5>
9848                     <SCALL '\1aOBJ-VAL 1 = TEMP12 + TAG18 TEMP8>
9849                     <LOOP (TEMP12 TYPE VALUE LENGTH) (TEMP8 VALUE)>
9850 TAG20
9851                     <INTGO>
9852                     <EMPTY? TEMP12 + TAG18>
9853                     <NTH1 TEMP12 = STACK>
9854                     <REST1 TEMP12 = TEMP12>
9855                     <ADD TEMP8 1 = TEMP8 (TYPE FIX)>
9856                     <JUMP + TAG20>
9857 TAG18
9858                     <CALL '\1aOCEMIT TEMP8>
9859                     <DEAD TEMP8>
9860                     <FRAME '\1aOCEMIT>
9861                     <PUSH 'PUSH>
9862                     <PUSH 'TP*>
9863                     <PUSH 'O*>
9864                     <CALL '\1aOCEMIT 3>
9865                     <GVAL 'WINNING-VICTIM = TEMP8>
9866                     <TYPE? TEMP8 <TYPE-CODE FALSE> + PHRASE25>
9867                     <GVAL 'STACK-DEPTH = TEMP12>
9868                     <ADD TEMP12 1 = TEMP12 (TYPE FIX)>
9869                     <SETG 'STACK-DEPTH TEMP12>
9870                     <RETURN TEMP12>
9871                     <DEAD TEMP12>
9872 PHRASE10
9873                     <FRAME '\1aASSIGN-AC>
9874                     <RESTL L5 1 = TEMP12 (TYPE LIST)>
9875                     <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
9876                     <NTHL TEMP12 1 = STACK (TYPE ATOM)>
9877                     <DEAD TEMP12>
9878                     <PUSH 'BOTH>
9879                     <CALL '\1aASSIGN-AC 2 = TEMP8>
9880                     <FRAME '\1aGET-AC>
9881                     <PUSH TEMP8>
9882                     <CALL '\1aGET-AC 1 = TEMP12>
9883                     <PUTUV TEMP12 6 'FIX>
9884                     <DEAD TEMP12>
9885                     <FRAME '\1aOCEMIT>
9886                     <PUSH 'FIX>
9887                     <FRAME '\1aNEXT-AC>
9888                     <PUSH TEMP8>
9889                     <DEAD TEMP8>
9890                     <CALL '\1aNEXT-AC 1 = STACK>
9891                     <SET TEMP8 2 (TYPE FIX)>
9892                     <SFRAME 'OBJ-VAL>
9893                     <NTHL L5 1 = STACK>
9894                     <DEAD L5>
9895                     <SCALL '\1aOBJ-VAL 1 = TEMP12 + TAG28 TEMP8>
9896                     <LOOP (TEMP12 TYPE VALUE LENGTH) (TEMP8 VALUE)>
9897 TAG32
9898                     <INTGO>
9899                     <EMPTY? TEMP12 + TAG28>
9900                     <NTH1 TEMP12 = STACK>
9901                     <REST1 TEMP12 = TEMP12>
9902                     <ADD TEMP8 1 = TEMP8 (TYPE FIX)>
9903                     <JUMP + TAG32>
9904 TAG28
9905                     <CALL '\1aOCEMIT TEMP8 = TEMP8>
9906 PHRASE25
9907                     <RETURN TEMP8>
9908                     <DEAD TEMP8>
9909                     <END \1aFIX!-MIMOC>
9910 #WORD *10744773014*
9911 <GFCN \1aLSH!-MIMOC ("VALUE" ANY LIST "OPTIONAL" ATOM) L6 INS7>
9912                     <OPT-DISPATCH 1 %<> OPT4 OPT5>
9913 OPT4
9914                     <PUSH 'LSH>
9915 OPT5
9916                     <TEMP (AC9 %<>) ARG10 TEMP16 AMT11 VAL12:ATOM TAC8 TEMP34 TEMP46 TEMP66:FIX>
9917                     <INTGO>
9918                     <NTHL L6 1 = ARG10>
9919                     <RESTL L6 1 = TEMP16 (TYPE LIST)>
9920                     <NTHL TEMP16 1 = AMT11>
9921                     <DEAD TEMP16>
9922                     <RESTL L6 1 = TEMP16 (TYPE LIST)>
9923                     <DEAD L6>
9924                     <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
9925                     <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
9926                     <NTHL TEMP16 1 = VAL12 (TYPE ATOM)>
9927                     <DEAD TEMP16>
9928                     <VEQUAL? INS7 'LSH - PHRASE18>
9929                     <EQUAL? AMT11 18 + BOOL20>
9930                     <EQUAL? AMT11 -18 - PHRASE18>
9931 BOOL20
9932                     <FRAME '\1aDO-HWRD-INS>
9933                     <PUSH ARG10>
9934                     <DEAD ARG10>
9935                     <PUSH VAL12>
9936                     <DEAD VAL12>
9937                     <PUSH AMT11>
9938                     <DEAD AMT11>
9939                     <CALL '\1aDO-HWRD-INS 3 = TEMP16>
9940                     <RETURN TEMP16>
9941                     <DEAD TEMP16>
9942 PHRASE18
9943                     <TYPE? ARG10 <TYPE-CODE ATOM> - PHRASE24>
9944                     <FRAME '\1aNEXT-AC>
9945                     <FRAME '\1aLOAD-AC>
9946                     <PUSH ARG10>
9947                     <PUSH 'BOTH>
9948                     <CALL '\1aLOAD-AC 2 = TAC8>
9949                     <PUSH TAC8>
9950                     <CALL '\1aNEXT-AC 1 = AC9>
9951 PHRASE24
9952                     <FRAME '\1aIN-AC?>
9953                     <PUSH AMT11>
9954                     <PUSH 'BOTH>
9955                     <CALL '\1aIN-AC? 2 = TEMP16>
9956                     <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE44>
9957                     <SETG 'FIRST-AC %<>>
9958                     <EQUAL? AMT11 VAL12 + BOOL32>
9959                     <FRAME '\1aWILL-DIE?>
9960                     <PUSH AMT11>
9961                     <CALL '\1aWILL-DIE? 1 = TEMP34>
9962                     <TYPE? TEMP34 <TYPE-CODE FALSE> + PHRASE40>
9963                     <DEAD TEMP34>
9964 BOOL32
9965                     <TYPE? AC9 <TYPE-CODE FALSE> - BOOL37>
9966                     <FRAME '\1aREALLY-FREE-AC-PAIR>
9967                     <CALL '\1aREALLY-FREE-AC-PAIR 0 = TEMP34>
9968                     <TYPE? TEMP34 <TYPE-CODE FALSE> + PHRASE36>
9969                     <DEAD TEMP34>
9970 BOOL37
9971                     <FRAME '\1aMUNGED-AC>
9972                     <PUSH TEMP16>
9973                     <PUSH 'T>
9974                     <CALL '\1aMUNGED-AC 2>
9975                     <JUMP + PHRASE40>
9976 PHRASE36
9977                     <FRAME '\1aOCEMIT>
9978                     <PUSH 'MOVE>
9979                     <SET TEMP34 'T* (TYPE ATOM)>
9980                     <PUSH TEMP34>
9981                     <DEAD TEMP34>
9982                     <FRAME '\1aNEXT-AC>
9983                     <PUSH TEMP16>
9984                     <DEAD TEMP16>
9985                     <CALL '\1aNEXT-AC 1 = STACK>
9986                     <CALL '\1aOCEMIT 3>
9987                     <SET TEMP16 'T* (TYPE ATOM)>
9988 PHRASE40
9989                     <EQUAL? TEMP16 'T* + PHRASE44>
9990                     <FRAME '\1aGET-AC>
9991                     <PUSH TEMP16>
9992                     <CALL '\1aGET-AC 1 = TEMP34>
9993                     <GVAL 'AC-STAMP = TEMP46>
9994                     <PUTUV TEMP34 4 TEMP46 (TYPE FIX)>
9995                     <DEAD TEMP34 TEMP46>
9996                     <FRAME '\1aGET-AC>
9997                     <FRAME '\1aNEXT-AC>
9998                     <PUSH TEMP16>
9999                     <CALL '\1aNEXT-AC 1 = STACK>
10000                     <CALL '\1aGET-AC 1 = TEMP34>
10001                     <GVAL 'AC-STAMP = TEMP46>
10002                     <PUTUV TEMP34 4 TEMP46 (TYPE FIX)>
10003                     <DEAD TEMP34 TEMP46>
10004                     <FRAME '\1aNEXT-AC>
10005                     <PUSH TEMP16>
10006                     <DEAD TEMP16>
10007                     <CALL '\1aNEXT-AC 1 = TEMP16>
10008 PHRASE44
10009                     <EQUAL? ARG10 VAL12 + PHRASE51>
10010                     <TYPE? ARG10 <TYPE-CODE ATOM> - PHRASE51>
10011                     <FRAME '\1aWILL-DIE?>
10012                     <PUSH ARG10>
10013                     <CALL '\1aWILL-DIE? 1 = TEMP34>
10014                     <TYPE? TEMP34 <TYPE-CODE FALSE> - PHRASE51>
10015                     <DEAD TEMP34>
10016                     <FRAME '\1aGET-AC>
10017                     <PUSH AC9>
10018                     <CALL '\1aGET-AC 1 = TEMP34>
10019                     <NTHUV TEMP34 5 = TEMP34>
10020                     <TYPE? TEMP34 <TYPE-CODE FALSE> - BOOL54>
10021                     <DEAD TEMP34>
10022                     <FRAME '\1aFLUSH-AC>
10023                     <PUSH TAC8>
10024                     <PUSH 'T>
10025                     <CALL '\1aFLUSH-AC 2>
10026                     <FRAME '\1aMUNGED-AC>
10027                     <PUSH TAC8>
10028                     <PUSH 'T>
10029                     <CALL '\1aMUNGED-AC 2>
10030                     <JUMP + PHRASE51>
10031 BOOL54
10032                     <FRAME '\1aASSIGN-AC>
10033                     <PUSH VAL12>
10034                     <PUSH 'BOTH>
10035                     <PUSH 'T>
10036                     <CALL '\1aASSIGN-AC 3 = TEMP34>
10037                     <FRAME '\1aGET-AC>
10038                     <PUSH TEMP34>
10039                     <CALL '\1aGET-AC 1 = TEMP46>
10040                     <PUTUV TEMP46 6 'FIX>
10041                     <DEAD TEMP46>
10042                     <FRAME '\1aOCEMIT>
10043                     <PUSH 'MOVE>
10044                     <FRAME '\1aNEXT-AC>
10045                     <PUSH TEMP34>
10046                     <DEAD TEMP34>
10047                     <CALL '\1aNEXT-AC 1 = TEMP34>
10048                     <PUSH TEMP34>
10049                     <PUSH AC9>
10050                     <CALL '\1aOCEMIT 3>
10051                     <JUMP + PHRASE68>
10052 PHRASE51
10053                     <TYPE? AC9 <TYPE-CODE FALSE> + PHRASE64>
10054                     <FRAME '\1aGET-AC>
10055                     <PUSH TAC8>
10056                     <CALL '\1aGET-AC 1 = TEMP46>
10057                     <GVAL 'AC-STAMP = TEMP66>
10058                     <PUTUV TEMP46 4 TEMP66 (TYPE FIX)>
10059                     <DEAD TEMP46 TEMP66>
10060                     <FRAME '\1aGET-AC>
10061                     <SET TEMP34 AC9>
10062                     <PUSH TEMP34>
10063                     <CALL '\1aGET-AC 1 = TEMP46>
10064                     <GVAL 'AC-STAMP = TEMP66>
10065                     <PUTUV TEMP46 4 TEMP66 (TYPE FIX)>
10066                     <DEAD TEMP46 TEMP66>
10067                     <JUMP + PHRASE68>
10068 PHRASE64
10069                     <FRAME '\1aGET-AC>
10070                     <FRAME '\1aASSIGN-AC>
10071                     <PUSH VAL12>
10072                     <PUSH 'BOTH>
10073                     <PUSH 'T>
10074                     <CALL '\1aASSIGN-AC 3 = TEMP34>
10075                     <PUSH TEMP34>
10076                     <CALL '\1aGET-AC 1 = TEMP46>
10077                     <PUTUV TEMP46 6 'FIX>
10078                     <DEAD TEMP46>
10079                     <FRAME '\1aNEXT-AC>
10080                     <PUSH TEMP34>
10081                     <DEAD TEMP34>
10082                     <CALL '\1aNEXT-AC 1 = TEMP34>
10083 PHRASE68
10084                     <TYPE? AMT11 <TYPE-CODE FIX> - PHRASE73>
10085                     <TYPE? ARG10 <TYPE-CODE ATOM> + PHRASE75>
10086                     <FRAME '\1aLOAD-NUM-INTO-AC>
10087                     <PUSH ARG10>
10088                     <DEAD ARG10>
10089                     <PUSH TEMP34>
10090                     <CALL '\1aLOAD-NUM-INTO-AC 2>
10091 PHRASE75
10092                     <FRAME '\1aOCEMIT>
10093                     <PUSH INS7>
10094                     <DEAD INS7>
10095                     <PUSH TEMP34>
10096                     <PUSH AMT11>
10097                     <DEAD AMT11>
10098                     <CALL '\1aOCEMIT 3>
10099                     <JUMP + PHRASE93>
10100 PHRASE73
10101                     <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE78>
10102                     <EQUAL? TEMP16 TEMP34 - PHRASE80>
10103                     <FRAME '\1aOCEMIT>
10104                     <PUSH 'MOVE>
10105                     <PUSH 'T*>
10106                     <PUSH TEMP16>
10107                     <DEAD TEMP16>
10108                     <CALL '\1aOCEMIT 3>
10109                     <SET TEMP16 'T* (TYPE ATOM)>
10110 PHRASE80
10111                     <TYPE? ARG10 <TYPE-CODE ATOM> + PHRASE83>
10112                     <FRAME '\1aLOAD-NUM-INTO-AC>
10113                     <PUSH ARG10>
10114                     <DEAD ARG10>
10115                     <PUSH TEMP34>
10116                     <CALL '\1aLOAD-NUM-INTO-AC 2>
10117 PHRASE83
10118                     <FRAME '\1aOCEMIT>
10119                     <PUSH INS7>
10120                     <DEAD INS7>
10121                     <PUSH TEMP34>
10122                     <CONS TEMP16 () = STACK>
10123                     <DEAD TEMP16>
10124                     <CALL '\1aOCEMIT 3>
10125                     <JUMP + PHRASE93>
10126 PHRASE78
10127                     <FRAME '\1aWILL-DIE?>
10128                     <PUSH AMT11>
10129                     <CALL '\1aWILL-DIE? 1 = TEMP46>
10130                     <TYPE? TEMP46 <TYPE-CODE FALSE> + PHRASE86>
10131                     <DEAD TEMP46>
10132                     <FRAME '\1aGET-INTO-ACS>
10133                     <PUSH AMT11>
10134                     <DEAD AMT11>
10135                     <PUSH 'VALUE>
10136                     <PUSH 'T*>
10137                     <CALL '\1aGET-INTO-ACS 3>
10138                     <TYPE? ARG10 <TYPE-CODE ATOM> + PHRASE90>
10139                     <FRAME '\1aLOAD-NUM-INTO-AC>
10140                     <PUSH ARG10>
10141                     <DEAD ARG10>
10142                     <PUSH TEMP34>
10143                     <CALL '\1aLOAD-NUM-INTO-AC 2>
10144 PHRASE90
10145                     <FRAME '\1aOCEMIT>
10146                     <PUSH INS7>
10147                     <DEAD INS7>
10148                     <PUSH TEMP34>
10149                     <PUSH (T*)>
10150                     <CALL '\1aOCEMIT 3>
10151                     <JUMP + PHRASE93>
10152 PHRASE86
10153                     <FRAME '\1aGET-AC>
10154                     <PUSH TEMP34>
10155                     <CALL '\1aGET-AC 1 = TEMP46>
10156                     <GVAL 'AC-STAMP = TEMP66>
10157                     <PUTUV TEMP46 4 TEMP66 (TYPE FIX)>
10158                     <DEAD TEMP46 TEMP66>
10159                     <FRAME '\1aGET-AC>
10160                     <FRAME '\1aGETPROP>
10161                     <PUSH TEMP34>
10162                     <PUSH 'AC-PAIR>
10163                     <CALL '\1aGETPROP 2 = TEMP46>
10164                     <PUSH TEMP46>
10165                     <DEAD TEMP46>
10166                     <CALL '\1aGET-AC 1 = TEMP46>
10167                     <GVAL 'AC-STAMP = TEMP66>
10168                     <PUTUV TEMP46 4 TEMP66 (TYPE FIX)>
10169                     <DEAD TEMP46 TEMP66>
10170                     <TYPE? ARG10 <TYPE-CODE ATOM> + PHRASE98>
10171                     <FRAME '\1aLOAD-NUM-INTO-AC>
10172                     <PUSH ARG10>
10173                     <DEAD ARG10>
10174                     <PUSH TEMP34>
10175                     <CALL '\1aLOAD-NUM-INTO-AC 2>
10176 PHRASE98
10177                     <FRAME '\1aLOAD-AC>
10178                     <PUSH AMT11>
10179                     <DEAD AMT11>
10180                     <PUSH 'BOTH>
10181                     <CALL '\1aLOAD-AC 2 = TEMP16>
10182                     <FRAME '\1aOCEMIT>
10183                     <PUSH INS7>
10184                     <DEAD INS7>
10185                     <PUSH TEMP34>
10186                     <FRAME '\1aNEXT-AC>
10187                     <PUSH TEMP16>
10188                     <DEAD TEMP16>
10189                     <CALL '\1aNEXT-AC 1 = TEMP46>
10190                     <CONS TEMP46 () = STACK>
10191                     <DEAD TEMP46>
10192                     <CALL '\1aOCEMIT 3>
10193 PHRASE93
10194                     <EQUAL? TEMP34 AC9 - PHRASE104>
10195                     <FRAME '\1aCLEAN-ACS>
10196                     <PUSH VAL12>
10197                     <CALL '\1aCLEAN-ACS 1>
10198                     <FRAME '\1aGET-AC>
10199                     <PUSH TAC8>
10200                     <DEAD TAC8>
10201                     <CALL '\1aGET-AC 1 = TEMP46>
10202                     <PUTUV TEMP46 5 'T>
10203                     <PUTUV TEMP46 6 'FIX>
10204                     <PUTUV TEMP46 2 VAL12>
10205                     <PUTUV TEMP46 3 'TYPE (TYPE ATOM)>
10206                     <DEAD TEMP46>
10207                     <FRAME '\1aGET-AC>
10208                     <PUSH AC9>
10209                     <DEAD AC9>
10210                     <CALL '\1aGET-AC 1 = TEMP46>
10211                     <PUTUV TEMP46 5 'T>
10212                     <PUTUV TEMP46 6 %<>>
10213                     <PUTUV TEMP46 2 VAL12>
10214                     <PUTUV TEMP46 3 'VALUE (TYPE ATOM)>
10215                     <DEAD TEMP46>
10216 PHRASE104
10217                     <VEQUAL? VAL12 'STACK + TAG110>
10218                     <DEAD VAL12>
10219                     <RETURN %<>>
10220 TAG110
10221                     <FRAME '\1aOCEMIT>
10222                     <PUSH 'PUSH>
10223                     <PUSH 'TP*>
10224                     <SET TEMP66 2 (TYPE FIX)>
10225                     <SFRAME 'TYPE-WORD>
10226                     <PUSH 'FIX>
10227                     <SCALL '\1aTYPE-WORD 1 = TEMP46 + TAG111 TEMP66>
10228                     <LOOP (TEMP46 TYPE VALUE LENGTH) (TEMP66 VALUE)>
10229 TAG113
10230                     <INTGO>
10231                     <EMPTY? TEMP46 + TAG111>
10232                     <NTH1 TEMP46 = STACK>
10233                     <REST1 TEMP46 = TEMP46>
10234                     <ADD TEMP66 1 = TEMP66 (TYPE FIX)>
10235                     <JUMP + TAG113>
10236 TAG111
10237                     <CALL '\1aOCEMIT TEMP66>
10238                     <DEAD TEMP66>
10239                     <FRAME '\1aOCEMIT>
10240                     <PUSH 'PUSH>
10241                     <PUSH 'TP*>
10242                     <PUSH TEMP34>
10243                     <DEAD TEMP34>
10244                     <CALL '\1aOCEMIT 3>
10245                     <GVAL 'WINNING-VICTIM = TEMP16>
10246                     <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE117>
10247                     <GVAL 'STACK-DEPTH = TEMP66>
10248                     <ADD TEMP66 2 = TEMP66 (TYPE FIX)>
10249                     <SETG 'STACK-DEPTH TEMP66>
10250                     <SET TEMP16 TEMP66>
10251                     <DEAD TEMP66>
10252 PHRASE117
10253                     <RETURN TEMP16>
10254                     <DEAD TEMP16>
10255                     <END \1aLSH!-MIMOC>
10256 #WORD *5436413267*
10257 <GFCN \1aLOAD-NUM-INTO-AC ("VALUE" ANY FIX ATOM) V5 AC6>
10258                     <TEMP TEMP12 TEMP19:FIX>
10259                     <INTGO>
10260                     <LESS? V5 0 + PHRASE8 (TYPE FIX)>
10261                     <GVAL 'MAX-IMMEDIATE = TEMP12>
10262                     <GRTR? V5 TEMP12 + PHRASE8 (TYPE FIX)>
10263                     <DEAD TEMP12>
10264                     <FRAME '\1aOCEMIT>
10265                     <PUSH 'MOVEI>
10266                     <PUSH AC6>
10267                     <DEAD AC6>
10268                     <PUSH V5>
10269                     <DEAD V5>
10270                     <CALL '\1aOCEMIT 3 = TEMP12>
10271                     <RETURN TEMP12>
10272                     <DEAD TEMP12>
10273 PHRASE8
10274                     <LESS? V5 0 - PHRASE14 (TYPE FIX)>
10275                     <GVAL 'MAX-IMMEDIATE = TEMP12>
10276                     <SET TEMP19 V5>
10277                     <LESS? TEMP19 0 - TAG20 (TYPE FIX)>
10278                     <SUB 0 TEMP19 = TEMP19 (TYPE FIX)>
10279 TAG20
10280                     <LESS? TEMP12 TEMP19 + PHRASE14 (TYPE FIX)>
10281                     <DEAD TEMP12 TEMP19>
10282                     <FRAME '\1aOCEMIT>
10283                     <PUSH 'MOVNI>
10284                     <PUSH AC6>
10285                     <DEAD AC6>
10286                     <SUB 0 V5 = STACK (TYPE FIX)>
10287                     <DEAD V5>
10288                     <CALL '\1aOCEMIT 3 = TEMP12>
10289                     <RETURN TEMP12>
10290                     <DEAD TEMP12>
10291 PHRASE14
10292                     <AND V5 #WORD *777777* = TEMP12>
10293                     <VEQUAL? TEMP12 0 - PHRASE22 (TYPE FIX)>
10294                     <DEAD TEMP12>
10295                     <FRAME '\1aOCEMIT>
10296                     <PUSH 'MOVSI>
10297                     <PUSH AC6>
10298                     <DEAD AC6>
10299                     <LSH V5 -18 = STACK (TYPE FIX)>
10300                     <DEAD V5>
10301                     <CALL '\1aOCEMIT 3 = TEMP12>
10302                     <RETURN TEMP12>
10303                     <DEAD TEMP12>
10304 PHRASE22
10305                     <FRAME '\1aOCEMIT>
10306                     <PUSH 'MOVE>
10307                     <PUSH AC6>
10308                     <DEAD AC6>
10309                     <SET TEMP19 2 (TYPE FIX)>
10310                     <SFRAME 'OBJ-LOC>
10311                     <PUSH V5>
10312                     <DEAD V5>
10313                     <PUSH 1>
10314                     <SCALL '\1aOBJ-LOC 2 = TEMP12 + TAG27 TEMP19>
10315                     <LOOP (TEMP12 TYPE VALUE LENGTH) (TEMP19 VALUE)>
10316 TAG29
10317                     <INTGO>
10318                     <EMPTY? TEMP12 + TAG27>
10319                     <NTH1 TEMP12 = STACK>
10320                     <REST1 TEMP12 = TEMP12>
10321                     <ADD TEMP19 1 = TEMP19 (TYPE FIX)>
10322                     <JUMP + TAG29>
10323 TAG27
10324                     <CALL '\1aOCEMIT TEMP19 = TEMP12>
10325                     <DEAD TEMP19>
10326                     <RETURN TEMP12>
10327                     <DEAD TEMP12>
10328                     <END \1aLOAD-NUM-INTO-AC>
10329 #WORD *11232500555*
10330 <GFCN \1aDO-HWRD-INS ("VALUE" ANY ANY ANY FIX) SRC5 VAL6 AMT7>
10331                     <TEMP TEMP13 TEMP12>
10332                     <INTGO>
10333                     <EQUAL? VAL6 'STACK - PHRASE10>
10334                     <FRAME '\1aOCEMIT>
10335                     <PUSH 'PUSH>
10336                     <PUSH 'TP*>
10337                     <SET TEMP13 2 (TYPE FIX)>
10338                     <SFRAME 'TYPE-WORD>
10339                     <PUSH 'FIX>
10340                     <SCALL '\1aTYPE-WORD 1 = TEMP12 + TAG11 TEMP13>
10341                     <LOOP (TEMP12 TYPE VALUE LENGTH) (TEMP13 VALUE)>
10342 TAG15
10343                     <INTGO>
10344                     <EMPTY? TEMP12 + TAG11>
10345                     <NTH1 TEMP12 = STACK>
10346                     <REST1 TEMP12 = TEMP12>
10347                     <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
10348                     <JUMP + TAG15>
10349 TAG11
10350                     <CALL '\1aOCEMIT TEMP13>
10351                     <DEAD TEMP13>
10352                     <GVAL 'WINNING-VICTIM = TEMP13>
10353                     <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE18>
10354                     <DEAD TEMP13>
10355                     <GVAL 'STACK-DEPTH = TEMP13>
10356                     <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
10357                     <SETG 'STACK-DEPTH TEMP13>
10358                     <DEAD TEMP13>
10359 PHRASE18
10360                     <FRAME '\1aOCEMIT>
10361                     <VEQUAL? AMT7 18 - PHRASE21 (TYPE FIX)>
10362                     <DEAD AMT7>
10363                     <SET TEMP13 'HRLZ (TYPE ATOM)>
10364                     <JUMP + PHRASE22>
10365 PHRASE21
10366                     <SET TEMP13 'HLRZ (TYPE ATOM)>
10367 PHRASE22
10368                     <PUSH TEMP13>
10369                     <DEAD TEMP13>
10370                     <PUSH 'O*>
10371                     <SET TEMP12 2 (TYPE FIX)>
10372                     <SFRAME 'OBJ-VAL>
10373                     <PUSH SRC5>
10374                     <DEAD SRC5>
10375                     <SCALL '\1aOBJ-VAL 1 = TEMP13 + TAG19 TEMP12>
10376                     <LOOP (TEMP13 TYPE VALUE LENGTH) (TEMP12 VALUE)>
10377 TAG24
10378                     <INTGO>
10379                     <EMPTY? TEMP13 + TAG19>
10380                     <NTH1 TEMP13 = STACK>
10381                     <REST1 TEMP13 = TEMP13>
10382                     <ADD TEMP12 1 = TEMP12 (TYPE FIX)>
10383                     <JUMP + TAG24>
10384 TAG19
10385                     <CALL '\1aOCEMIT TEMP12>
10386                     <DEAD TEMP12>
10387                     <FRAME '\1aOCEMIT>
10388                     <PUSH 'PUSH>
10389                     <PUSH 'TP*>
10390                     <PUSH 'O*>
10391                     <CALL '\1aOCEMIT 3>
10392                     <GVAL 'WINNING-VICTIM = TEMP12>
10393                     <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE60>
10394                     <GVAL 'STACK-DEPTH = TEMP13>
10395                     <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
10396                     <SETG 'STACK-DEPTH TEMP13>
10397                     <RETURN TEMP13>
10398                     <DEAD TEMP13>
10399 PHRASE10
10400                     <EQUAL? SRC5 VAL6 - PHRASE29>
10401                     <FRAME '\1aIN-AC?>
10402                     <PUSH SRC5>
10403                     <PUSH 'VALUE>
10404                     <CALL '\1aIN-AC? 2 = TEMP12>
10405                     <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE31>
10406                     <VEQUAL? AMT7 18 - PHRASE34 (TYPE FIX)>
10407                     <DEAD AMT7>
10408                     <FRAME '\1aOCEMIT>
10409                     <PUSH 'HRLZS>
10410                     <PUSH 'O*>
10411                     <PUSH TEMP12>
10412                     <CALL '\1aOCEMIT 3>
10413                     <JUMP + PHRASE36>
10414 PHRASE34
10415                     <FRAME '\1aOCEMIT>
10416                     <PUSH 'HLRZS>
10417                     <PUSH 'O*>
10418                     <PUSH TEMP12>
10419                     <CALL '\1aOCEMIT 3>
10420 PHRASE36
10421                     <FRAME '\1aGET-AC>
10422                     <PUSH TEMP12>
10423                     <DEAD TEMP12>
10424                     <CALL '\1aGET-AC 1 = TEMP13>
10425                     <PUTUV TEMP13 5 'T>
10426                     <RETURN TEMP13>
10427                     <DEAD TEMP13>
10428 PHRASE31
10429                     <VEQUAL? AMT7 18 - PHRASE39 (TYPE FIX)>
10430                     <DEAD AMT7>
10431                     <FRAME '\1aOCEMIT>
10432                     <PUSH 'HRLZS>
10433                     <SET TEMP12 1 (TYPE FIX)>
10434                     <SFRAME 'OBJ-VAL>
10435                     <PUSH SRC5>
10436                     <DEAD SRC5>
10437                     <SCALL '\1aOBJ-VAL 1 = TEMP13 + TAG40 TEMP12>
10438                     <LOOP (TEMP13 TYPE VALUE LENGTH) (TEMP12 VALUE)>
10439 TAG43
10440                     <INTGO>
10441                     <EMPTY? TEMP13 + TAG40>
10442                     <NTH1 TEMP13 = STACK>
10443                     <REST1 TEMP13 = TEMP13>
10444                     <ADD TEMP12 1 = TEMP12 (TYPE FIX)>
10445                     <JUMP + TAG43>
10446 TAG40
10447                     <CALL '\1aOCEMIT TEMP12 = TEMP12>
10448                     <RETURN TEMP12>
10449                     <DEAD TEMP12>
10450 PHRASE39
10451                     <FRAME '\1aOCEMIT>
10452                     <PUSH 'HLRZS>
10453                     <SET TEMP13 1 (TYPE FIX)>
10454                     <SFRAME 'OBJ-VAL>
10455                     <PUSH SRC5>
10456                     <DEAD SRC5>
10457                     <SCALL '\1aOBJ-VAL 1 = TEMP12 + TAG46 TEMP13>
10458                     <LOOP (TEMP12 TYPE VALUE LENGTH) (TEMP13 VALUE)>
10459 TAG48
10460                     <INTGO>
10461                     <EMPTY? TEMP12 + TAG46>
10462                     <NTH1 TEMP12 = STACK>
10463                     <REST1 TEMP12 = TEMP12>
10464                     <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
10465                     <JUMP + TAG48>
10466 TAG46
10467                     <CALL '\1aOCEMIT TEMP13 = TEMP12>
10468                     <DEAD TEMP13>
10469                     <RETURN TEMP12>
10470                     <DEAD TEMP12>
10471 PHRASE29
10472                     <FRAME '\1aASSIGN-AC>
10473                     <PUSH VAL6>
10474                     <DEAD VAL6>
10475                     <PUSH 'BOTH>
10476                     <CALL '\1aASSIGN-AC 2 = TEMP12>
10477                     <FRAME '\1aGET-AC>
10478                     <PUSH TEMP12>
10479                     <CALL '\1aGET-AC 1 = TEMP13>
10480                     <PUTUV TEMP13 6 'FIX>
10481                     <DEAD TEMP13>
10482                     <VEQUAL? AMT7 18 - PHRASE54 (TYPE FIX)>
10483                     <DEAD AMT7>
10484                     <FRAME '\1aOCEMIT>
10485                     <PUSH 'HRLZ>
10486                     <FRAME '\1aNEXT-AC>
10487                     <PUSH TEMP12>
10488                     <DEAD TEMP12>
10489                     <CALL '\1aNEXT-AC 1 = STACK>
10490                     <SET TEMP12 2 (TYPE FIX)>
10491                     <SFRAME 'OBJ-VAL>
10492                     <PUSH SRC5>
10493                     <DEAD SRC5>
10494                     <SCALL '\1aOBJ-VAL 1 = TEMP13 + TAG55 TEMP12>
10495                     <LOOP (TEMP13 TYPE VALUE LENGTH) (TEMP12 VALUE)>
10496 TAG58
10497                     <INTGO>
10498                     <EMPTY? TEMP13 + TAG55>
10499                     <NTH1 TEMP13 = STACK>
10500                     <REST1 TEMP13 = TEMP13>
10501                     <ADD TEMP12 1 = TEMP12 (TYPE FIX)>
10502                     <JUMP + TAG58>
10503 TAG55
10504                     <CALL '\1aOCEMIT TEMP12 = TEMP12>
10505                     <RETURN TEMP12>
10506                     <DEAD TEMP12>
10507 PHRASE54
10508                     <FRAME '\1aOCEMIT>
10509                     <PUSH 'HLRZ>
10510                     <FRAME '\1aNEXT-AC>
10511                     <PUSH TEMP12>
10512                     <DEAD TEMP12>
10513                     <CALL '\1aNEXT-AC 1 = STACK>
10514                     <SET TEMP13 2 (TYPE FIX)>
10515                     <SFRAME 'OBJ-VAL>
10516                     <PUSH SRC5>
10517                     <DEAD SRC5>
10518                     <SCALL '\1aOBJ-VAL 1 = TEMP12 + TAG61 TEMP13>
10519                     <LOOP (TEMP12 TYPE VALUE LENGTH) (TEMP13 VALUE)>
10520 TAG64
10521                     <INTGO>
10522                     <EMPTY? TEMP12 + TAG61>
10523                     <NTH1 TEMP12 = STACK>
10524                     <REST1 TEMP12 = TEMP12>
10525                     <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
10526                     <JUMP + TAG64>
10527 TAG61
10528                     <CALL '\1aOCEMIT TEMP13 = TEMP12>
10529                     <DEAD TEMP13>
10530 PHRASE60
10531                     <RETURN TEMP12>
10532                     <DEAD TEMP12>
10533                     <END \1aDO-HWRD-INS>
10534 #WORD *36452445350*
10535 <GFCN \1aROT!-MIMOC ("VALUE" ANY LIST) L5>
10536                     <TEMP TEMP7>
10537                     <INTGO>
10538                     <FRAME '\1aLSH!-MIMOC>
10539                     <PUSH L5>
10540                     <DEAD L5>
10541                     <PUSH 'ROT>
10542                     <CALL '\1aLSH!-MIMOC 2 = TEMP7>
10543                     <RETURN TEMP7>
10544                     <DEAD TEMP7>
10545                     <END \1aROT!-MIMOC>
10546 #WORD *7303313307*
10547 <GFCN \1aRANDOM!-MIMOC ("VALUE" ANY LIST) L5>
10548                     <TEMP TEMP9 TEMP8>
10549                     <INTGO>
10550                     <FRAME '\1aUPDATE-ACS>
10551                     <CALL '\1aUPDATE-ACS 0>
10552                     <FRAME '\1aOCEMIT>
10553                     <PUSH 'MOVE>
10554                     <PUSH 'O1*>
10555                     <SET TEMP9 2 (TYPE FIX)>
10556                     <SFRAME 'OBJ-VAL>
10557                     <NTHL L5 1 = STACK>
10558                     <SCALL '\1aOBJ-VAL 1 = TEMP8 + TAG7 TEMP9>
10559                     <LOOP (TEMP8 TYPE VALUE LENGTH) (TEMP9 VALUE)>
10560 TAG11
10561                     <INTGO>
10562                     <EMPTY? TEMP8 + TAG7>
10563                     <NTH1 TEMP8 = STACK>
10564                     <REST1 TEMP8 = TEMP8>
10565                     <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
10566                     <JUMP + TAG11>
10567 TAG7
10568                     <CALL '\1aOCEMIT TEMP9>
10569                     <DEAD TEMP9>
10570                     <FRAME '\1aPUSHJ>
10571                     <PUSH 'RANDOM>
10572                     <RESTL L5 1 = TEMP9 (TYPE LIST)>
10573                     <DEAD L5>
10574                     <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
10575                     <NTHL TEMP9 1 = STACK>
10576                     <DEAD TEMP9>
10577                     <CALL '\1aPUSHJ 2 = TEMP9>
10578                     <RETURN TEMP9>
10579                     <DEAD TEMP9>
10580                     <END \1aRANDOM!-MIMOC>
10581 #WORD *37320446651*
10582 <GFCN \1aTEMPLATE-TABLE!-MIMOC ("VALUE" ANY LIST) L5>
10583                     <TEMP TEMP9 TEMP8>
10584                     <INTGO>
10585                     <FRAME '\1aUPDATE-ACS>
10586                     <CALL '\1aUPDATE-ACS 0>
10587                     <FRAME '\1aOCEMIT>
10588                     <PUSH 'MOVE>
10589                     <PUSH 'O1*>
10590                     <SET TEMP9 2 (TYPE FIX)>
10591                     <SFRAME 'OBJ-VAL>
10592                     <NTHL L5 1 = STACK>
10593                     <SCALL '\1aOBJ-VAL 1 = TEMP8 + TAG7 TEMP9>
10594                     <LOOP (TEMP8 TYPE VALUE LENGTH) (TEMP9 VALUE)>
10595 TAG11
10596                     <INTGO>
10597                     <EMPTY? TEMP8 + TAG7>
10598                     <NTH1 TEMP8 = STACK>
10599                     <REST1 TEMP8 = TEMP8>
10600                     <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
10601                     <JUMP + TAG11>
10602 TAG7
10603                     <CALL '\1aOCEMIT TEMP9>
10604                     <DEAD TEMP9>
10605                     <FRAME '\1aSMASH-AC>
10606                     <PUSH 'A1*>
10607                     <RESTL L5 1 = TEMP9 (TYPE LIST)>
10608                     <DEAD L5>
10609                     <NTHL TEMP9 1 = STACK>
10610                     <DEAD TEMP9>
10611                     <PUSH 'BOTH>
10612                     <CALL '\1aSMASH-AC 3>
10613                     <FRAME '\1aPUSHJ>
10614                     <PUSH 'TEMPLATE-TABLE>
10615                     <CALL '\1aPUSHJ 1 = TEMP9>
10616                     <RETURN TEMP9>
10617                     <DEAD TEMP9>
10618                     <END \1aTEMPLATE-TABLE!-MIMOC>
10619 #WORD *12515122526*
10620 <GFCN \1aIRECORD!-MIMOC ("VALUE" ANY LIST) L5>
10621                     <TEMP TEMP9 TEMP8 TEMP15:LIST>
10622                     <INTGO>
10623                     <FRAME '\1aUPDATE-ACS>
10624                     <CALL '\1aUPDATE-ACS 0>
10625                     <FRAME '\1aOCEMIT>
10626                     <PUSH 'MOVE>
10627                     <PUSH 'O1*>
10628                     <SET TEMP9 2 (TYPE FIX)>
10629                     <SFRAME 'OBJ-VAL>
10630                     <NTHL L5 1 = STACK>
10631                     <SCALL '\1aOBJ-VAL 1 = TEMP8 + TAG7 TEMP9>
10632                     <LOOP (TEMP8 TYPE VALUE LENGTH) (TEMP9 VALUE)>
10633 TAG11
10634                     <INTGO>
10635                     <EMPTY? TEMP8 + TAG7>
10636                     <NTH1 TEMP8 = STACK>
10637                     <REST1 TEMP8 = TEMP8>
10638                     <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
10639                     <JUMP + TAG11>
10640 TAG7
10641                     <CALL '\1aOCEMIT TEMP9>
10642                     <DEAD TEMP9>
10643                     <FRAME '\1aOCEMIT>
10644                     <PUSH 'MOVE>
10645                     <PUSH 'O2*>
10646                     <SET TEMP8 2 (TYPE FIX)>
10647                     <SFRAME 'OBJ-VAL>
10648                     <RESTL L5 1 = TEMP15 (TYPE LIST)>
10649                     <NTHL TEMP15 1 = STACK>
10650                     <DEAD TEMP15>
10651                     <SCALL '\1aOBJ-VAL 1 = TEMP9 + TAG13 TEMP8>
10652                     <LOOP (TEMP9 TYPE VALUE LENGTH) (TEMP8 VALUE)>
10653 TAG16
10654                     <INTGO>
10655                     <EMPTY? TEMP9 + TAG13>
10656                     <NTH1 TEMP9 = STACK>
10657                     <REST1 TEMP9 = TEMP9>
10658                     <ADD TEMP8 1 = TEMP8 (TYPE FIX)>
10659                     <JUMP + TAG16>
10660 TAG13
10661                     <CALL '\1aOCEMIT TEMP8>
10662                     <DEAD TEMP8>
10663                     <FRAME '\1aOCEMIT>
10664                     <PUSH 'MOVE>
10665                     <PUSH 'C1*>
10666                     <SET TEMP9 2 (TYPE FIX)>
10667                     <SFRAME 'OBJ-VAL>
10668                     <RESTL L5 1 = TEMP15 (TYPE LIST)>
10669                     <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
10670                     <NTHL TEMP15 1 = STACK>
10671                     <DEAD TEMP15>
10672                     <SCALL '\1aOBJ-VAL 1 = TEMP8 + TAG18 TEMP9>
10673                     <LOOP (TEMP8 TYPE VALUE LENGTH) (TEMP9 VALUE)>
10674 TAG20
10675                     <INTGO>
10676                     <EMPTY? TEMP8 + TAG18>
10677                     <NTH1 TEMP8 = STACK>
10678                     <REST1 TEMP8 = TEMP8>
10679                     <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
10680                     <JUMP + TAG20>
10681 TAG18
10682                     <CALL '\1aOCEMIT TEMP9>
10683                     <DEAD TEMP9>
10684                     <FRAME '\1aPUSHJ>
10685                     <PUSH 'IRECORD>
10686                     <NTHL L5 5 = STACK>
10687                     <DEAD L5>
10688                     <CALL '\1aPUSHJ 2 = TEMP9>
10689                     <RETURN TEMP9>
10690                     <DEAD TEMP9>
10691                     <END \1aIRECORD!-MIMOC>
10692 #WORD *6647046303*
10693 <GFCN \1aMARKL!-MIMOC ("VALUE" ANY LIST) L5>
10694                     <TEMP AC6:ATOM TEMP13>
10695                     <INTGO>
10696                     <FRAME '\1aLOAD-AC>
10697                     <NTHL L5 1 = STACK>
10698                     <PUSH 'BOTH>
10699                     <CALL '\1aLOAD-AC 2 = AC6>
10700                     <FRAME '\1aMUNGED-AC>
10701                     <PUSH 'O*>
10702                     <CALL '\1aMUNGED-AC 1>
10703                     <FRAME '\1aOCEMIT>
10704                     <PUSH 'MOVSI>
10705                     <PUSH 'O*>
10706                     <PUSH 65536>
10707                     <CALL '\1aOCEMIT 3>
10708                     <FRAME '\1aOCEMIT>
10709                     <RESTL L5 1 = TEMP13 (TYPE LIST)>
10710                     <DEAD L5>
10711                     <NTHL TEMP13 1 = TEMP13>
10712                     <EQUAL? TEMP13 0 - PHRASE12>
10713                     <DEAD TEMP13>
10714                     <SET TEMP13 'ANDCAM (TYPE ATOM)>
10715                     <JUMP + PHRASE14>
10716 PHRASE12
10717                     <SET TEMP13 'IORM (TYPE ATOM)>
10718 PHRASE14
10719                     <PUSH TEMP13>
10720                     <DEAD TEMP13>
10721                     <PUSH 'O*>
10722                     <PUSH 1>
10723                     <FRAME '\1aNEXT-AC>
10724                     <PUSH AC6>
10725                     <DEAD AC6>
10726                     <CALL '\1aNEXT-AC 1 = TEMP13>
10727                     <CONS TEMP13 () = STACK>
10728                     <DEAD TEMP13>
10729                     <CALL '\1aOCEMIT 4 = TEMP13>
10730                     <RETURN TEMP13>
10731                     <DEAD TEMP13>
10732                     <END \1aMARKL!-MIMOC>
10733 #WORD *3424267553*
10734 <GFCN \1aMARK-JOIN ("VALUE" ANY ANY) NUM5>
10735                     <TEMP TEMP16>
10736                     <INTGO>
10737                     <FRAME '\1aMUNGED-AC>
10738                     <PUSH 'O*>
10739                     <CALL '\1aMUNGED-AC 1>
10740                     <FRAME '\1aOCEMIT>
10741                     <PUSH 'MOVSI>
10742                     <PUSH 'O*>
10743                     <PUSH 65536>
10744                     <CALL '\1aOCEMIT 3>
10745                     <TYPE? NUM5 <TYPE-CODE FIX> - PHRASE10>
10746                     <FRAME '\1aOCEMIT>
10747                     <VEQUAL? NUM5 0 - PHRASE13 (TYPE FIX)>
10748                     <DEAD NUM5>
10749                     <SET TEMP16 'ANDCAM (TYPE ATOM)>
10750                     <JUMP + PHRASE17>
10751 PHRASE13
10752                     <SET TEMP16 'IORM (TYPE ATOM)>
10753 PHRASE17
10754                     <PUSH TEMP16>
10755                     <DEAD TEMP16>
10756                     <PUSH 'O*>
10757                     <PUSH (T*)>
10758                     <CALL '\1aOCEMIT 3 = TEMP16>
10759                     <RETURN TEMP16>
10760                     <DEAD TEMP16>
10761 PHRASE10
10762                     <FRAME '\1aOCEMIT>
10763                     <PUSH 'IORM>
10764                     <PUSH 'O*>
10765                     <PUSH (T*)>
10766                     <CALL '\1aOCEMIT 3>
10767                     <FRAME '\1aIN-AC?>
10768                     <PUSH NUM5>
10769                     <PUSH 'VALUE>
10770                     <CALL '\1aIN-AC? 2 = TEMP16>
10771                     <TYPE? TEMP16 <TYPE-CODE FALSE> - PHRASE22>
10772                     <FRAME '\1aSMASH-AC>
10773                     <PUSH 'O*>
10774                     <PUSH NUM5>
10775                     <DEAD NUM5>
10776                     <PUSH 'VALUE>
10777                     <CALL '\1aSMASH-AC 3>
10778                     <SET TEMP16 'O* (TYPE ATOM)>
10779 PHRASE22
10780                     <FRAME '\1aOCEMIT>
10781                     <PUSH 'MOVEM>
10782                     <PUSH TEMP16>
10783                     <DEAD TEMP16>
10784                     <PUSH 1>
10785                     <PUSH (T*)>
10786                     <CALL '\1aOCEMIT 4 = TEMP16>
10787                     <RETURN TEMP16>
10788                     <DEAD TEMP16>
10789                     <END \1aMARK-JOIN>
10790 #WORD *5331350160*
10791 <GFCN \1aMARKR!-MIMOC ("VALUE" ANY LIST) L5>
10792                     <TEMP END7:ATOM AC6>
10793                     <INTGO>
10794                     <FRAME '\1aGENLBL>
10795                     <PUSH "END">
10796                     <CALL '\1aGENLBL 1 = END7>
10797                     <FRAME '\1aFLUSH-AC>
10798                     <PUSH 'T*>
10799                     <CALL '\1aFLUSH-AC 1>
10800                     <FRAME '\1aMUNGED-AC>
10801                     <PUSH 'T*>
10802                     <CALL '\1aMUNGED-AC 1>
10803                     <FRAME '\1aLOAD-AC>
10804                     <NTHL L5 1 = STACK>
10805                     <PUSH 'BOTH>
10806                     <CALL '\1aLOAD-AC 2 = AC6>
10807                     <FRAME '\1aOCEMIT>
10808                     <PUSH 'XMOVEI>
10809                     <PUSH 'O*>
10810                     <PUSH (TP*)>
10811                     <CALL '\1aOCEMIT 3>
10812                     <FRAME '\1aOCEMIT>
10813                     <PUSH 'CAMG>
10814                     <FRAME '\1aNEXT-AC>
10815                     <PUSH AC6>
10816                     <CALL '\1aNEXT-AC 1 = STACK>
10817                     <PUSH 'O*>
10818                     <CALL '\1aOCEMIT 3>
10819                     <FRAME '\1aOCEMIT>
10820                     <PUSH 'JRST>
10821                     <FRAME '\1aXJUMP>
10822                     <PUSH END7>
10823                     <CALL '\1aXJUMP 1 = STACK>
10824                     <CALL '\1aOCEMIT 2>
10825                     <FRAME '\1aOCEMIT>
10826                     <PUSH 'HRRZ>
10827                     <PUSH 'T*>
10828                     <PUSH AC6>
10829                     <CALL '\1aOCEMIT 3>
10830                     <FRAME '\1aOCEMIT>
10831                     <PUSH 'LSH>
10832                     <PUSH 'T*>
10833                     <PUSH -1>
10834                     <CALL '\1aOCEMIT 3>
10835                     <FRAME '\1aOCEMIT>
10836                     <PUSH 'ADD>
10837                     <PUSH 'T*>
10838                     <FRAME '\1aNEXT-AC>
10839                     <PUSH AC6>
10840                     <DEAD AC6>
10841                     <CALL '\1aNEXT-AC 1 = STACK>
10842                     <CALL '\1aOCEMIT 3>
10843                     <FRAME '\1aMARK-JOIN>
10844                     <RESTL L5 1 = AC6 (TYPE LIST)>
10845                     <DEAD L5>
10846                     <NTHL AC6 1 = STACK>
10847                     <DEAD AC6>
10848                     <CALL '\1aMARK-JOIN 1>
10849                     <FRAME '\1aLABEL>
10850                     <PUSH END7>
10851                     <DEAD END7>
10852                     <CALL '\1aLABEL 1 = AC6>
10853                     <RETURN AC6>
10854                     <DEAD AC6>
10855                     <END \1aMARKR!-MIMOC>
10856 #WORD *15270052231*
10857 <GFCN \1aMARKU!-MIMOC ("VALUE" ANY LIST) L5>
10858                     <TEMP TEMP7>
10859                     <INTGO>
10860                     <FRAME '\1aMARK!-MIMOC>
10861                     <PUSH 'MARKU>
10862                     <NTHL L5 1 = STACK>
10863                     <RESTL L5 1 = TEMP7 (TYPE LIST)>
10864                     <DEAD L5>
10865                     <NTHL TEMP7 1 = STACK (TYPE FIX)>
10866                     <DEAD TEMP7>
10867                     <CALL '\1aMARK!-MIMOC 3 = TEMP7>
10868                     <RETURN TEMP7>
10869                     <DEAD TEMP7>
10870                     <END \1aMARKU!-MIMOC>
10871 #WORD *13434226770*
10872 <GFCN \1aMARKUS!-MIMOC ("VALUE" ANY LIST) L5>
10873                     <TEMP AC6>
10874                     <INTGO>
10875                     <FRAME '\1aFLUSH-AC>
10876                     <PUSH 'T*>
10877                     <CALL '\1aFLUSH-AC 1>
10878                     <FRAME '\1aMUNGED-AC>
10879                     <PUSH 'T*>
10880                     <CALL '\1aMUNGED-AC 1>
10881                     <FRAME '\1aLOAD-AC>
10882                     <NTHL L5 1 = STACK>
10883                     <PUSH 'BOTH>
10884                     <CALL '\1aLOAD-AC 2 = AC6>
10885                     <FRAME '\1aOCEMIT>
10886                     <PUSH 'MOVEI>
10887                     <PUSH 'T*>
10888                     <PUSH 5>
10889                     <CONS AC6 () = STACK>
10890                     <CALL '\1aOCEMIT 4>
10891                     <FRAME '\1aOCEMIT>
10892                     <PUSH 'ADJBP>
10893                     <PUSH 'T*>
10894                     <FRAME '\1aNEXT-AC>
10895                     <PUSH AC6>
10896                     <DEAD AC6>
10897                     <CALL '\1aNEXT-AC 1 = STACK>
10898                     <CALL '\1aOCEMIT 3>
10899                     <FRAME '\1aOCEMIT>
10900                     <PUSH 'TLZ>
10901                     <PUSH 'T*>
10902                     <PUSH 258048>
10903                     <CALL '\1aOCEMIT 3>
10904                     <FRAME '\1aMARK-JOIN>
10905                     <RESTL L5 1 = AC6 (TYPE LIST)>
10906                     <DEAD L5>
10907                     <NTHL AC6 1 = STACK>
10908                     <DEAD AC6>
10909                     <CALL '\1aMARK-JOIN 1 = AC6>
10910                     <RETURN AC6>
10911                     <DEAD AC6>
10912                     <END \1aMARKUS!-MIMOC>
10913 #WORD *13474226770*
10914 <GFCN \1aMARKUB!-MIMOC ("VALUE" ANY LIST) L5>
10915                     <TEMP AC6>
10916                     <INTGO>
10917                     <FRAME '\1aFLUSH-AC>
10918                     <PUSH 'T*>
10919                     <CALL '\1aFLUSH-AC 1>
10920                     <FRAME '\1aMUNGED-AC>
10921                     <PUSH 'T*>
10922                     <CALL '\1aMUNGED-AC 1>
10923                     <FRAME '\1aLOAD-AC>
10924                     <NTHL L5 1 = STACK>
10925                     <PUSH 'BOTH>
10926                     <CALL '\1aLOAD-AC 2 = AC6>
10927                     <FRAME '\1aOCEMIT>
10928                     <PUSH 'MOVEI>
10929                     <PUSH 'T*>
10930                     <PUSH 4>
10931                     <CONS AC6 () = STACK>
10932                     <CALL '\1aOCEMIT 4>
10933                     <FRAME '\1aOCEMIT>
10934                     <PUSH 'ADJBP>
10935                     <PUSH 'T*>
10936                     <FRAME '\1aNEXT-AC>
10937                     <PUSH AC6>
10938                     <DEAD AC6>
10939                     <CALL '\1aNEXT-AC 1 = STACK>
10940                     <CALL '\1aOCEMIT 3>
10941                     <FRAME '\1aOCEMIT>
10942                     <PUSH 'TLZ>
10943                     <PUSH 'T*>
10944                     <PUSH 258048>
10945                     <CALL '\1aOCEMIT 3>
10946                     <FRAME '\1aMARK-JOIN>
10947                     <RESTL L5 1 = AC6 (TYPE LIST)>
10948                     <DEAD L5>
10949                     <NTHL AC6 1 = STACK>
10950                     <DEAD AC6>
10951                     <CALL '\1aMARK-JOIN 1 = AC6>
10952                     <RETURN AC6>
10953                     <DEAD AC6>
10954                     <END \1aMARKUB!-MIMOC>
10955 #WORD *3257526503*
10956 <GFCN \1aMARKUV!-MIMOC ("VALUE" ANY LIST) L5>
10957                     <TEMP AC6>
10958                     <INTGO>
10959                     <FRAME '\1aFLUSH-AC>
10960                     <PUSH 'T*>
10961                     <CALL '\1aFLUSH-AC 1>
10962                     <FRAME '\1aMUNGED-AC>
10963                     <PUSH 'T*>
10964                     <CALL '\1aMUNGED-AC 1>
10965                     <FRAME '\1aLOAD-AC>
10966                     <NTHL L5 1 = STACK>
10967                     <PUSH 'BOTH>
10968                     <CALL '\1aLOAD-AC 2 = AC6>
10969                     <FRAME '\1aOCEMIT>
10970                     <PUSH 'HRRZ>
10971                     <PUSH 'T*>
10972                     <PUSH AC6>
10973                     <CALL '\1aOCEMIT 3>
10974                     <FRAME '\1aOCEMIT>
10975                     <PUSH 'LSH>
10976                     <PUSH 'T*>
10977                     <PUSH 1>
10978                     <CALL '\1aOCEMIT 3>
10979                     <FRAME '\1aOCEMIT>
10980                     <PUSH 'ADD>
10981                     <PUSH 'T*>
10982                     <FRAME '\1aNEXT-AC>
10983                     <PUSH AC6>
10984                     <DEAD AC6>
10985                     <CALL '\1aNEXT-AC 1 = STACK>
10986                     <CALL '\1aOCEMIT 3>
10987                     <FRAME '\1aMARK-JOIN>
10988                     <RESTL L5 1 = AC6 (TYPE LIST)>
10989                     <DEAD L5>
10990                     <NTHL AC6 1 = STACK>
10991                     <DEAD AC6>
10992                     <CALL '\1aMARK-JOIN 1 = AC6>
10993                     <RETURN AC6>
10994                     <DEAD AC6>
10995                     <END \1aMARKUV!-MIMOC>
10996 #WORD *14657004411*
10997 <GFCN \1aMARKUU!-MIMOC ("VALUE" ANY LIST) L5>
10998                     <TEMP AC6>
10999                     <INTGO>
11000                     <FRAME '\1aFLUSH-AC>
11001                     <PUSH 'T*>
11002                     <CALL '\1aFLUSH-AC 1>
11003                     <FRAME '\1aMUNGED-AC>
11004                     <PUSH 'T*>
11005                     <CALL '\1aMUNGED-AC 1>
11006                     <FRAME '\1aLOAD-AC>
11007                     <NTHL L5 1 = STACK>
11008                     <PUSH 'BOTH>
11009                     <CALL '\1aLOAD-AC 2 = AC6>
11010                     <FRAME '\1aOCEMIT>
11011                     <PUSH 'HRRZ>
11012                     <PUSH 'T*>
11013                     <PUSH AC6>
11014                     <CALL '\1aOCEMIT 3>
11015                     <FRAME '\1aOCEMIT>
11016                     <PUSH 'ADD>
11017                     <PUSH 'T*>
11018                     <FRAME '\1aNEXT-AC>
11019                     <PUSH AC6>
11020                     <DEAD AC6>
11021                     <CALL '\1aNEXT-AC 1 = STACK>
11022                     <CALL '\1aOCEMIT 3>
11023                     <FRAME '\1aMARK-JOIN>
11024                     <RESTL L5 1 = AC6 (TYPE LIST)>
11025                     <DEAD L5>
11026                     <NTHL AC6 1 = STACK>
11027                     <DEAD AC6>
11028                     <CALL '\1aMARK-JOIN 1 = AC6>
11029                     <RETURN AC6>
11030                     <DEAD AC6>
11031                     <END \1aMARKUU!-MIMOC>
11032 #WORD *16730724417*
11033 <GFCN \1aMARK!-MIMOC ("VALUE" ANY ATOM ANY FIX) NAM5 OBJ6 VAL7>
11034                     <TEMP TEMP18>
11035                     <INTGO>
11036                     <FRAME '\1aUPDATE-ACS>
11037                     <CALL '\1aUPDATE-ACS 0>
11038                     <FRAME '\1aSMASH-AC>
11039                     <PUSH 'A1*>
11040                     <PUSH OBJ6>
11041                     <DEAD OBJ6>
11042                     <PUSH 'BOTH>
11043                     <CALL '\1aSMASH-AC 3>
11044                     <VEQUAL? VAL7 0 - PHRASE11 (TYPE FIX)>
11045                     <DEAD VAL7>
11046                     <FRAME '\1aOCEMIT>
11047                     <PUSH 'MOVEI>
11048                     <PUSH 'B1*>
11049                     <PUSH 0>
11050                     <CALL '\1aOCEMIT 3>
11051                     <JUMP + PHRASE15>
11052 PHRASE11
11053                     <FRAME '\1aOCEMIT>
11054                     <PUSH 'MOVSI>
11055                     <PUSH 'B1*>
11056                     <PUSH 65536>
11057                     <CALL '\1aOCEMIT 3>
11058 PHRASE15
11059                     <FRAME '\1aPUSHJ>
11060                     <PUSH NAM5>
11061                     <DEAD NAM5>
11062                     <CALL '\1aPUSHJ 1 = TEMP18>
11063                     <RETURN TEMP18>
11064                     <DEAD TEMP18>
11065                     <END \1aMARK!-MIMOC>
11066 #WORD *4013765704*
11067 <GFCN \1aMARKL?!-MIMOC ("VALUE" <OR FALSE FIX> LIST) L5>
11068                     <TEMP AC6:ATOM TEMP10 NAC7:ATOM TEMP14 TEMP22>
11069                     <INTGO>
11070                     <FRAME '\1aLOAD-AC>
11071                     <NTHL L5 1 = STACK>
11072                     <PUSH 'VALUE>
11073                     <CALL '\1aLOAD-AC 2 = AC6>
11074                     <FRAME '\1aASSIGN-AC>
11075                     <RESTL L5 1 = TEMP10 (TYPE LIST)>
11076                     <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
11077                     <NTHL TEMP10 1 = STACK>
11078                     <DEAD TEMP10>
11079                     <PUSH 'BOTH>
11080                     <PUSH 'T>
11081                     <CALL '\1aASSIGN-AC 3 = NAC7>
11082                     <FRAME '\1aGET-AC>
11083                     <PUSH NAC7>
11084                     <CALL '\1aGET-AC 1 = TEMP10>
11085                     <PUTUV TEMP10 6 'FIX>
11086                     <DEAD TEMP10>
11087                     <FRAME '\1aOCEMIT>
11088                     <PUSH 'LDB>
11089                     <FRAME '\1aNEXT-AC>
11090                     <PUSH NAC7>
11091                     <CALL '\1aNEXT-AC 1 = STACK>
11092                     <SET TEMP14 2 (TYPE FIX)>
11093                     <SFRAME 'OBJ-VAL>
11094                     <FRAME '\1a+>
11095                     <PUSH 139328>
11096                     <GVAL 'ACS = TEMP10>
11097                     <EMPUV? TEMP10 + TAG17>
11098                     <LOOP (AC6 VALUE) (TEMP10 LENGTH VALUE)>
11099 TAG19
11100                     <NTHUV TEMP10 1 = TEMP22>
11101                     <TYPE? TEMP22 <TYPE-CODE ATOM> - TAG20>
11102                     <VEQUAL? TEMP22 AC6 + TAG18>
11103                     <DEAD TEMP22>
11104 TAG20
11105                     <RESTUV TEMP10 1 = TEMP10 (TYPE VECTOR)>
11106                     <EMPUV? TEMP10 - TAG19>
11107 TAG17
11108                     <SET TEMP10 %<> (TYPE FALSE)>
11109 TAG18
11110                     <NTHUV TEMP10 2 = STACK>
11111                     <DEAD TEMP10>
11112                     <CALL '\1a+ 2 = TEMP10>
11113                     <LSH TEMP10 18 = TEMP10 (TYPE FIX)>
11114                     <OR TEMP10 #WORD *1* = STACK>
11115                     <DEAD TEMP10>
11116                     <SCALL '\1aOBJ-VAL 1 = TEMP10 + TAG12 TEMP14>
11117                     <LOOP (TEMP10 TYPE VALUE LENGTH) (TEMP14 VALUE)>
11118 TAG23
11119                     <INTGO>
11120                     <EMPTY? TEMP10 + TAG12>
11121                     <NTH1 TEMP10 = STACK>
11122                     <REST1 TEMP10 = TEMP10>
11123                     <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
11124                     <JUMP + TAG23>
11125 TAG12
11126                     <CALL '\1aOCEMIT TEMP14>
11127                     <DEAD TEMP14>
11128                     <FRAME '\1aCOND-PUSH>
11129                     <RESTL L5 1 = TEMP14 (TYPE LIST)>
11130                     <DEAD L5>
11131                     <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
11132                     <NTHL TEMP14 1 = STACK (TYPE ATOM)>
11133                     <DEAD TEMP14>
11134                     <PUSH NAC7>
11135                     <DEAD NAC7>
11136                     <CALL '\1aCOND-PUSH 2 = TEMP14>
11137                     <RETURN TEMP14>
11138                     <DEAD TEMP14>
11139                     <END \1aMARKL?!-MIMOC>
11140 #WORD *20642213161*
11141 <GFCN \1aMARKR?!-MIMOC ("VALUE" <OR FALSE FIX> LIST) L5>
11142                     <TEMP END8:ATOM (REL10 %<>) TEMP14 TEMP15 AC6:ATOM NAC7:ATOM TEMP27>
11143                     <INTGO>
11144                     <FRAME '\1aGENLBL>
11145                     <PUSH "END">
11146                     <CALL '\1aGENLBL 1 = END8>
11147                     <SET TEMP14 L5>
11148                     <SET TEMP15 4 (TYPE FIX)>
11149                     <LOOP (TEMP14 VALUE) (TEMP15 VALUE)>
11150 TAG16
11151                     <EMPL? TEMP14 + PHRASE13>
11152                     <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
11153                     <SUB TEMP15 1 = TEMP15 (TYPE FIX)>
11154                     <GRTR? TEMP15 0 + TAG16 (TYPE FIX)>
11155                     <EMPL? TEMP14 - PHRASE13>
11156                     <DEAD TEMP14>
11157                     <RESTL L5 1 = TEMP14 (TYPE LIST)>
11158                     <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
11159                     <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
11160                     <NTHL TEMP14 1 = TEMP15>
11161                     <DEAD TEMP14>
11162                     <SET REL10 'T (TYPE ATOM)>
11163                     <JUMP + PHRASE17>
11164 PHRASE13
11165                     <RESTL L5 1 = TEMP14 (TYPE LIST)>
11166                     <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
11167                     <NTHL TEMP14 1 = TEMP15>
11168                     <DEAD TEMP14>
11169 PHRASE17
11170                     <FRAME '\1aFLUSH-AC>
11171                     <PUSH 'T*>
11172                     <CALL '\1aFLUSH-AC 1>
11173                     <FRAME '\1aMUNGED-AC>
11174                     <PUSH 'T*>
11175                     <CALL '\1aMUNGED-AC 1>
11176                     <FRAME '\1aLOAD-AC>
11177                     <NTHL L5 1 = STACK>
11178                     <DEAD L5>
11179                     <PUSH 'BOTH>
11180                     <CALL '\1aLOAD-AC 2 = AC6>
11181                     <FRAME '\1aASSIGN-AC>
11182                     <PUSH TEMP15>
11183                     <PUSH 'BOTH>
11184                     <PUSH 'T>
11185                     <CALL '\1aASSIGN-AC 3 = NAC7>
11186                     <FRAME '\1aOCEMIT>
11187                     <PUSH 'MOVEI>
11188                     <FRAME '\1aNEXT-AC>
11189                     <PUSH NAC7>
11190                     <CALL '\1aNEXT-AC 1 = STACK>
11191                     <PUSH 1>
11192                     <CALL '\1aOCEMIT 3>
11193                     <VEQUAL? REL10 0 + PHRASE25>
11194                     <FRAME '\1aOCEMIT>
11195                     <PUSH 'MOVE>
11196                     <PUSH NAC7>
11197                     <SET TEMP27 2 (TYPE FIX)>
11198                     <SFRAME 'TYPE-WORD>
11199                     <PUSH 'FIX>
11200                     <SCALL '\1aTYPE-WORD 1 = TEMP14 + TAG26 TEMP27>
11201                     <LOOP (TEMP14 TYPE VALUE LENGTH) (TEMP27 VALUE)>
11202 TAG29
11203                     <INTGO>
11204                     <EMPTY? TEMP14 + TAG26>
11205                     <NTH1 TEMP14 = STACK>
11206                     <REST1 TEMP14 = TEMP14>
11207                     <ADD TEMP27 1 = TEMP27 (TYPE FIX)>
11208                     <JUMP + TAG29>
11209 TAG26
11210                     <CALL '\1aOCEMIT TEMP27>
11211                     <DEAD TEMP27>
11212 PHRASE25
11213                     <FRAME '\1aOCEMIT>
11214                     <PUSH 'XMOVEI>
11215                     <PUSH 'O*>
11216                     <PUSH (TP*)>
11217                     <CALL '\1aOCEMIT 3>
11218                     <FRAME '\1aOCEMIT>
11219                     <PUSH 'CAMG>
11220                     <FRAME '\1aNEXT-AC>
11221                     <PUSH AC6>
11222                     <CALL '\1aNEXT-AC 1 = STACK>
11223                     <PUSH 'O*>
11224                     <CALL '\1aOCEMIT 3>
11225                     <FRAME '\1aOCEMIT>
11226                     <PUSH 'JRST>
11227                     <FRAME '\1aXJUMP>
11228                     <PUSH END8>
11229                     <CALL '\1aXJUMP 1 = STACK>
11230                     <CALL '\1aOCEMIT 2>
11231                     <FRAME '\1aOCEMIT>
11232                     <PUSH 'HRRZ>
11233                     <PUSH 'T*>
11234                     <PUSH AC6>
11235                     <CALL '\1aOCEMIT 3>
11236                     <FRAME '\1aOCEMIT>
11237                     <PUSH 'LSH>
11238                     <PUSH 'T*>
11239                     <PUSH -1>
11240                     <CALL '\1aOCEMIT 3>
11241                     <FRAME '\1aMARK?-JOIN>
11242                     <PUSH AC6>
11243                     <DEAD AC6>
11244                     <PUSH NAC7>
11245                     <PUSH REL10>
11246                     <PUSH %<>>
11247                     <PUSH REL10>
11248                     <DEAD REL10>
11249                     <CALL '\1aMARK?-JOIN 5>
11250                     <FRAME '\1aLABEL>
11251                     <PUSH END8>
11252                     <DEAD END8>
11253                     <CALL '\1aLABEL 1>
11254                     <FRAME '\1aCOND-PUSH>
11255                     <PUSH TEMP15>
11256                     <DEAD TEMP15>
11257                     <PUSH NAC7>
11258                     <DEAD NAC7>
11259                     <CALL '\1aCOND-PUSH 2 = TEMP27>
11260                     <RETURN TEMP27>
11261                     <DEAD TEMP27>
11262                     <END \1aMARKR?!-MIMOC>
11263 #WORD *20400154607*
11264 <GFCN \1aMARKU?!-MIMOC ("VALUE" ANY LIST) L5>
11265                     <TEMP TEMP9>
11266                     <INTGO>
11267                     <FRAME '\1aUPDATE-ACS>
11268                     <CALL '\1aUPDATE-ACS 0>
11269                     <FRAME '\1aSMASH-AC>
11270                     <PUSH 'A1*>
11271                     <NTHL L5 1 = STACK>
11272                     <PUSH 'BOTH>
11273                     <CALL '\1aSMASH-AC 3>
11274                     <FRAME '\1aPUSHJ>
11275                     <PUSH 'MARKU?>
11276                     <RESTL L5 1 = TEMP9 (TYPE LIST)>
11277                     <DEAD L5>
11278                     <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
11279                     <NTHL TEMP9 1 = STACK>
11280                     <DEAD TEMP9>
11281                     <CALL '\1aPUSHJ 2 = TEMP9>
11282                     <RETURN TEMP9>
11283                     <DEAD TEMP9>
11284                     <END \1aMARKU?!-MIMOC>
11285 #WORD *3303443613*
11286 <GFCN \1aMARKUS?!-MIMOC ("VALUE" <OR FALSE FIX> LIST) L5>
11287                     <TEMP (REL9 %<>) TEMP12 TEMP13 NAC7:ATOM>
11288                     <INTGO>
11289                     <SET TEMP12 L5>
11290                     <SET TEMP13 4 (TYPE FIX)>
11291                     <LOOP (TEMP12 VALUE) (TEMP13 VALUE)>
11292 TAG14
11293                     <EMPL? TEMP12 + PHRASE11>
11294                     <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
11295                     <SUB TEMP13 1 = TEMP13 (TYPE FIX)>
11296                     <GRTR? TEMP13 0 + TAG14 (TYPE FIX)>
11297                     <EMPL? TEMP12 - PHRASE11>
11298                     <DEAD TEMP12>
11299                     <RESTL L5 1 = TEMP12 (TYPE LIST)>
11300                     <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
11301                     <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
11302                     <NTHL TEMP12 1 = TEMP12>
11303                     <SET REL9 'T (TYPE ATOM)>
11304                     <JUMP + PHRASE15>
11305 PHRASE11
11306                     <RESTL L5 1 = TEMP12 (TYPE LIST)>
11307                     <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
11308                     <NTHL TEMP12 1 = TEMP12>
11309 PHRASE15
11310                     <FRAME '\1aFLUSH-AC>
11311                     <PUSH 'T*>
11312                     <CALL '\1aFLUSH-AC 1>
11313                     <FRAME '\1aMUNGED-AC>
11314                     <PUSH 'T*>
11315                     <CALL '\1aMUNGED-AC 1>
11316                     <FRAME '\1aLOAD-AC>
11317                     <NTHL L5 1 = STACK>
11318                     <DEAD L5>
11319                     <PUSH 'BOTH>
11320                     <CALL '\1aLOAD-AC 2 = TEMP13>
11321                     <FRAME '\1aASSIGN-AC>
11322                     <PUSH TEMP12>
11323                     <PUSH 'BOTH>
11324                     <PUSH 'T>
11325                     <CALL '\1aASSIGN-AC 3 = NAC7>
11326                     <FRAME '\1aOCEMIT>
11327                     <PUSH 'MOVEI>
11328                     <PUSH 'T*>
11329                     <PUSH 5>
11330                     <CONS TEMP13 () = STACK>
11331                     <CALL '\1aOCEMIT 4>
11332                     <FRAME '\1aMARK?-JOIN>
11333                     <PUSH TEMP13>
11334                     <DEAD TEMP13>
11335                     <PUSH NAC7>
11336                     <PUSH REL9>
11337                     <DEAD REL9>
11338                     <PUSH 'T>
11339                     <CALL '\1aMARK?-JOIN 4>
11340                     <FRAME '\1aCOND-PUSH>
11341                     <PUSH TEMP12>
11342                     <DEAD TEMP12>
11343                     <PUSH NAC7>
11344                     <DEAD NAC7>
11345                     <CALL '\1aCOND-PUSH 2 = TEMP12>
11346                     <RETURN TEMP12>
11347                     <DEAD TEMP12>
11348                     <END \1aMARKUS?!-MIMOC>
11349 #WORD *3303443713*
11350 <GFCN \1aMARKUB?!-MIMOC ("VALUE" <OR FALSE FIX> LIST) L5>
11351                     <TEMP (REL9 %<>) TEMP12 TEMP13 NAC7:ATOM>
11352                     <INTGO>
11353                     <SET TEMP12 L5>
11354                     <SET TEMP13 4 (TYPE FIX)>
11355                     <LOOP (TEMP12 VALUE) (TEMP13 VALUE)>
11356 TAG14
11357                     <EMPL? TEMP12 + PHRASE11>
11358                     <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
11359                     <SUB TEMP13 1 = TEMP13 (TYPE FIX)>
11360                     <GRTR? TEMP13 0 + TAG14 (TYPE FIX)>
11361                     <EMPL? TEMP12 - PHRASE11>
11362                     <DEAD TEMP12>
11363                     <RESTL L5 1 = TEMP12 (TYPE LIST)>
11364                     <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
11365                     <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
11366                     <NTHL TEMP12 1 = TEMP12>
11367                     <SET REL9 'T (TYPE ATOM)>
11368                     <JUMP + PHRASE15>
11369 PHRASE11
11370                     <RESTL L5 1 = TEMP12 (TYPE LIST)>
11371                     <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
11372                     <NTHL TEMP12 1 = TEMP12>
11373 PHRASE15
11374                     <FRAME '\1aFLUSH-AC>
11375                     <PUSH 'T*>
11376                     <CALL '\1aFLUSH-AC 1>
11377                     <FRAME '\1aMUNGED-AC>
11378                     <PUSH 'T*>
11379                     <CALL '\1aMUNGED-AC 1>
11380                     <FRAME '\1aLOAD-AC>
11381                     <NTHL L5 1 = STACK>
11382                     <DEAD L5>
11383                     <PUSH 'BOTH>
11384                     <CALL '\1aLOAD-AC 2 = TEMP13>
11385                     <FRAME '\1aASSIGN-AC>
11386                     <PUSH TEMP12>
11387                     <PUSH 'BOTH>
11388                     <PUSH 'T>
11389                     <CALL '\1aASSIGN-AC 3 = NAC7>
11390                     <FRAME '\1aOCEMIT>
11391                     <PUSH 'MOVEI>
11392                     <PUSH 'T*>
11393                     <PUSH 4>
11394                     <CONS TEMP13 () = STACK>
11395                     <CALL '\1aOCEMIT 4>
11396                     <FRAME '\1aMARK?-JOIN>
11397                     <PUSH TEMP13>
11398                     <DEAD TEMP13>
11399                     <PUSH NAC7>
11400                     <PUSH REL9>
11401                     <DEAD REL9>
11402                     <PUSH 'T>
11403                     <CALL '\1aMARK?-JOIN 4>
11404                     <FRAME '\1aCOND-PUSH>
11405                     <PUSH TEMP12>
11406                     <DEAD TEMP12>
11407                     <PUSH NAC7>
11408                     <DEAD NAC7>
11409                     <CALL '\1aCOND-PUSH 2 = TEMP12>
11410                     <RETURN TEMP12>
11411                     <DEAD TEMP12>
11412                     <END \1aMARKUB?!-MIMOC>
11413 #WORD *37111412674*
11414 <GFCN \1aMARKUU?!-MIMOC ("VALUE" <OR FALSE FIX> LIST) L5>
11415                     <TEMP (REL9 %<>) TEMP12 TEMP13 NAC7:ATOM>
11416                     <INTGO>
11417                     <SET TEMP12 L5>
11418                     <SET TEMP13 4 (TYPE FIX)>
11419                     <LOOP (TEMP12 VALUE) (TEMP13 VALUE)>
11420 TAG14
11421                     <EMPL? TEMP12 + PHRASE11>
11422                     <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
11423                     <SUB TEMP13 1 = TEMP13 (TYPE FIX)>
11424                     <GRTR? TEMP13 0 + TAG14 (TYPE FIX)>
11425                     <EMPL? TEMP12 - PHRASE11>
11426                     <DEAD TEMP12>
11427                     <RESTL L5 1 = TEMP12 (TYPE LIST)>
11428                     <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
11429                     <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
11430                     <NTHL TEMP12 1 = TEMP12>
11431                     <SET REL9 'T (TYPE ATOM)>
11432                     <JUMP + PHRASE15>
11433 PHRASE11
11434                     <RESTL L5 1 = TEMP12 (TYPE LIST)>
11435                     <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
11436                     <NTHL TEMP12 1 = TEMP12>
11437 PHRASE15
11438                     <FRAME '\1aFLUSH-AC>
11439                     <PUSH 'T*>
11440                     <CALL '\1aFLUSH-AC 1>
11441                     <FRAME '\1aMUNGED-AC>
11442                     <PUSH 'T*>
11443                     <CALL '\1aMUNGED-AC 1>
11444                     <FRAME '\1aLOAD-AC>
11445                     <NTHL L5 1 = STACK>
11446                     <DEAD L5>
11447                     <PUSH 'BOTH>
11448                     <CALL '\1aLOAD-AC 2 = TEMP13>
11449                     <FRAME '\1aASSIGN-AC>
11450                     <PUSH TEMP12>
11451                     <PUSH 'BOTH>
11452                     <PUSH 'T>
11453                     <CALL '\1aASSIGN-AC 3 = NAC7>
11454                     <FRAME '\1aOCEMIT>
11455                     <PUSH 'HRRZ>
11456                     <PUSH 'T*>
11457                     <PUSH TEMP13>
11458                     <CALL '\1aOCEMIT 3>
11459                     <FRAME '\1aMARK?-JOIN>
11460                     <PUSH TEMP13>
11461                     <DEAD TEMP13>
11462                     <PUSH NAC7>
11463                     <PUSH REL9>
11464                     <DEAD REL9>
11465                     <CALL '\1aMARK?-JOIN 3>
11466                     <FRAME '\1aCOND-PUSH>
11467                     <PUSH TEMP12>
11468                     <DEAD TEMP12>
11469                     <PUSH NAC7>
11470                     <DEAD NAC7>
11471                     <CALL '\1aCOND-PUSH 2 = TEMP12>
11472                     <RETURN TEMP12>
11473                     <DEAD TEMP12>
11474                     <END \1aMARKUU?!-MIMOC>
11475 #WORD *666017230*
11476 <GFCN \1aMARKUV?!-MIMOC ("VALUE" <OR FALSE FIX> LIST) L5>
11477                     <TEMP (REL9 %<>) TEMP12 TEMP13 NAC7:ATOM>
11478                     <INTGO>
11479                     <SET TEMP12 L5>
11480                     <SET TEMP13 4 (TYPE FIX)>
11481                     <LOOP (TEMP12 VALUE) (TEMP13 VALUE)>
11482 TAG14
11483                     <EMPL? TEMP12 + PHRASE11>
11484                     <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
11485                     <SUB TEMP13 1 = TEMP13 (TYPE FIX)>
11486                     <GRTR? TEMP13 0 + TAG14 (TYPE FIX)>
11487                     <EMPL? TEMP12 - PHRASE11>
11488                     <DEAD TEMP12>
11489                     <RESTL L5 1 = TEMP12 (TYPE LIST)>
11490                     <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
11491                     <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
11492                     <NTHL TEMP12 1 = TEMP12>
11493                     <SET REL9 'T (TYPE ATOM)>
11494                     <JUMP + PHRASE15>
11495 PHRASE11
11496                     <RESTL L5 1 = TEMP12 (TYPE LIST)>
11497                     <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
11498                     <NTHL TEMP12 1 = TEMP12>
11499 PHRASE15
11500                     <FRAME '\1aFLUSH-AC>
11501                     <PUSH 'T*>
11502                     <CALL '\1aFLUSH-AC 1>
11503                     <FRAME '\1aMUNGED-AC>
11504                     <PUSH 'T*>
11505                     <CALL '\1aMUNGED-AC 1>
11506                     <FRAME '\1aLOAD-AC>
11507                     <NTHL L5 1 = STACK>
11508                     <DEAD L5>
11509                     <PUSH 'BOTH>
11510                     <CALL '\1aLOAD-AC 2 = TEMP13>
11511                     <FRAME '\1aASSIGN-AC>
11512                     <PUSH TEMP12>
11513                     <PUSH 'BOTH>
11514                     <PUSH 'T>
11515                     <CALL '\1aASSIGN-AC 3 = NAC7>
11516                     <FRAME '\1aOCEMIT>
11517                     <PUSH 'HRRZ>
11518                     <PUSH 'T*>
11519                     <PUSH TEMP13>
11520                     <CALL '\1aOCEMIT 3>
11521                     <FRAME '\1aOCEMIT>
11522                     <PUSH 'LSH>
11523                     <PUSH 'T*>
11524                     <PUSH 1>
11525                     <CALL '\1aOCEMIT 3>
11526                     <FRAME '\1aMARK?-JOIN>
11527                     <PUSH TEMP13>
11528                     <DEAD TEMP13>
11529                     <PUSH NAC7>
11530                     <PUSH REL9>
11531                     <DEAD REL9>
11532                     <CALL '\1aMARK?-JOIN 3>
11533                     <FRAME '\1aCOND-PUSH>
11534                     <PUSH TEMP12>
11535                     <DEAD TEMP12>
11536                     <PUSH NAC7>
11537                     <DEAD NAC7>
11538                     <CALL '\1aCOND-PUSH 2 = TEMP12>
11539                     <RETURN TEMP12>
11540                     <DEAD TEMP12>
11541                     <END \1aMARKUV?!-MIMOC>
11542 #WORD *3106300135*
11543 <GFCN \1aCOND-PUSH ("VALUE" <OR FALSE FIX> ATOM ATOM) ITM5 AC6>
11544                     <TEMP TEMP9>
11545                     <INTGO>
11546                     <VEQUAL? ITM5 'STACK + TAG10>
11547                     <DEAD ITM5>
11548                     <RETURN %<>>
11549 TAG10
11550                     <FRAME '\1aOCEMIT>
11551                     <PUSH 'PUSH>
11552                     <PUSH 'TP*>
11553                     <PUSH AC6>
11554                     <CALL '\1aOCEMIT 3>
11555                     <FRAME '\1aOCEMIT>
11556                     <PUSH 'PUSH>
11557                     <PUSH 'TP*>
11558                     <FRAME '\1aNEXT-AC>
11559                     <PUSH AC6>
11560                     <DEAD AC6>
11561                     <CALL '\1aNEXT-AC 1 = STACK>
11562                     <CALL '\1aOCEMIT 3>
11563                     <GVAL 'WINNING-VICTIM = TEMP9>
11564                     <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE15>
11565                     <GVAL 'STACK-DEPTH = TEMP9>
11566                     <ADD TEMP9 2 = TEMP9 (TYPE FIX)>
11567                     <SETG 'STACK-DEPTH TEMP9>
11568 PHRASE15
11569                     <RETURN TEMP9>
11570                     <DEAD TEMP9>
11571                     <END \1aCOND-PUSH>
11572 #WORD *13564444547*
11573 <GFCN \1aMARK?-JOIN ("VALUE" ANY ATOM ATOM ANY "OPTIONAL" ANY ANY) AC10 NAC11 REL12 DIV13 NO-LOAD-TYPE14>
11574                     <OPT-DISPATCH 3 %<> OPT7 OPT8 OPT9>
11575 OPT7
11576                     <PUSH %<>>
11577 OPT8
11578                     <PUSH %<>>
11579 OPT9
11580                     <TEMP L115 L216:ATOM TEMP30 TEMP33>
11581                     <INTGO>
11582                     <FRAME '\1aGENLBL>
11583                     <PUSH "L1">
11584                     <CALL '\1aGENLBL 1 = L115>
11585                     <FRAME '\1aGENLBL>
11586                     <PUSH "L2">
11587                     <CALL '\1aGENLBL 1 = L216>
11588                     <TYPE? DIV13 <TYPE-CODE FALSE> + PHRASE20>
11589                     <DEAD DIV13>
11590                     <FRAME '\1aOCEMIT>
11591                     <PUSH 'ADJBP>
11592                     <PUSH 'T*>
11593                     <FRAME '\1aNEXT-AC>
11594                     <PUSH AC10>
11595                     <CALL '\1aNEXT-AC 1 = STACK>
11596                     <CALL '\1aOCEMIT 3>
11597                     <FRAME '\1aOCEMIT>
11598                     <PUSH 'TLZ>
11599                     <PUSH 'T*>
11600                     <PUSH 258048>
11601                     <CALL '\1aOCEMIT 3>
11602                     <JUMP + PHRASE24>
11603 PHRASE20
11604                     <FRAME '\1aOCEMIT>
11605                     <PUSH 'ADD>
11606                     <PUSH 'T*>
11607                     <FRAME '\1aNEXT-AC>
11608                     <PUSH AC10>
11609                     <CALL '\1aNEXT-AC 1 = STACK>
11610                     <CALL '\1aOCEMIT 3>
11611 PHRASE24
11612                     <TYPE? REL12 <TYPE-CODE FALSE> - PHRASE28>
11613                     <FRAME '\1aGET-AC>
11614                     <PUSH NAC11>
11615                     <CALL '\1aGET-AC 1 = TEMP30>
11616                     <PUTUV TEMP30 6 'FIX>
11617                     <DEAD TEMP30>
11618 PHRASE28
11619                     <FRAME '\1aOCEMIT>
11620                     <PUSH 'LDB>
11621                     <FRAME '\1aNEXT-AC>
11622                     <PUSH NAC11>
11623                     <CALL '\1aNEXT-AC 1 = STACK>
11624                     <SET TEMP33 2 (TYPE FIX)>
11625                     <SFRAME 'OBJ-VAL>
11626                     <PUSH -32193642496>
11627                     <SCALL '\1aOBJ-VAL 1 = TEMP30 + TAG31 TEMP33>
11628                     <LOOP (TEMP30 TYPE VALUE LENGTH) (TEMP33 VALUE)>
11629 TAG35
11630                     <INTGO>
11631                     <EMPTY? TEMP30 + TAG31>
11632                     <NTH1 TEMP30 = STACK>
11633                     <REST1 TEMP30 = TEMP30>
11634                     <ADD TEMP33 1 = TEMP33 (TYPE FIX)>
11635                     <JUMP + TAG35>
11636 TAG31
11637                     <CALL '\1aOCEMIT TEMP33>
11638                     <DEAD TEMP33>
11639                     <SET TEMP33 REL12>
11640                     <DEAD REL12>
11641                     <TYPE? TEMP33 <TYPE-CODE FALSE> + PHRASE38>
11642                     <FRAME '\1aOCEMIT>
11643                     <PUSH 'JUMPE>
11644                     <FRAME '\1aNEXT-AC>
11645                     <PUSH NAC11>
11646                     <CALL '\1aNEXT-AC 1 = STACK>
11647                     <FRAME '\1aXJUMP>
11648                     <PUSH L115>
11649                     <CALL '\1aXJUMP 1 = STACK>
11650                     <CALL '\1aOCEMIT 3>
11651                     <FRAME '\1aOCEMIT>
11652                     <PUSH 'MOVE>
11653                     <PUSH NAC11>
11654                     <PUSH AC10>
11655                     <DEAD AC10>
11656                     <CALL '\1aOCEMIT 3>
11657                     <FRAME '\1aOCEMIT>
11658                     <PUSH 'MOVE>
11659                     <FRAME '\1aNEXT-AC>
11660                     <PUSH NAC11>
11661                     <CALL '\1aNEXT-AC 1 = STACK>
11662                     <PUSH 1>
11663                     <PUSH (T*)>
11664                     <CALL '\1aOCEMIT 4>
11665                     <FRAME '\1aOCEMIT>
11666                     <PUSH 'JRST>
11667                     <FRAME '\1aXJUMP>
11668                     <PUSH L216>
11669                     <CALL '\1aXJUMP 1 = STACK>
11670                     <CALL '\1aOCEMIT 2>
11671                     <FRAME '\1aLABEL>
11672                     <PUSH L115>
11673                     <DEAD L115>
11674                     <CALL '\1aLABEL 1>
11675                     <TYPE? NO-LOAD-TYPE14 <TYPE-CODE FALSE> - PHRASE49>
11676                     <DEAD NO-LOAD-TYPE14>
11677                     <FRAME '\1aOCEMIT>
11678                     <PUSH 'MOVE>
11679                     <PUSH NAC11>
11680                     <SET L115 2 (TYPE FIX)>
11681                     <SFRAME 'TYPE-WORD>
11682                     <PUSH 'FIX>
11683                     <SCALL '\1aTYPE-WORD 1 = TEMP30 + TAG50 L115>
11684                     <LOOP (TEMP30 TYPE VALUE LENGTH) (L115 VALUE)>
11685 TAG53
11686                     <INTGO>
11687                     <EMPTY? TEMP30 + TAG50>
11688                     <NTH1 TEMP30 = STACK>
11689                     <REST1 TEMP30 = TEMP30>
11690                     <ADD L115 1 = L115 (TYPE FIX)>
11691                     <JUMP + TAG53>
11692 TAG50
11693                     <CALL '\1aOCEMIT L115>
11694                     <DEAD L115>
11695 PHRASE49
11696                     <FRAME '\1aOCEMIT>
11697                     <PUSH 'MOVEI>
11698                     <FRAME '\1aNEXT-AC>
11699                     <PUSH NAC11>
11700                     <DEAD NAC11>
11701                     <CALL '\1aNEXT-AC 1 = STACK>
11702                     <PUSH 0>
11703                     <CALL '\1aOCEMIT 3>
11704                     <FRAME '\1aLABEL>
11705                     <PUSH L216>
11706                     <DEAD L216>
11707                     <CALL '\1aLABEL 1 = TEMP33>
11708 PHRASE38
11709                     <RETURN TEMP33>
11710                     <DEAD TEMP33>
11711                     <END \1aMARK?-JOIN>\r\r
11712 <SETG LDB-PAREN-T -32193642496>
11713
11714 <MANIFEST LDB-PAREN-T>
11715
11716 #WORD *30530055614*
11717 <GFCN \1aSWNEXT!-MIMOC ("VALUE" ANY LIST) L4>
11718                     <TEMP TEMP8 TEMP7>
11719                     <INTGO>
11720                     <FRAME '\1aUPDATE-ACS>
11721                     <CALL '\1aUPDATE-ACS 0>
11722                     <FRAME '\1aOCEMIT>
11723                     <PUSH 'DMOVE>
11724                     <PUSH 'O1*>
11725                     <SET TEMP8 2 (TYPE FIX)>
11726                     <SFRAME 'OBJ-TYP>
11727                     <NTHL L4 1 = STACK>
11728                     <SCALL '\1aOBJ-TYP 1 = TEMP7 + TAG6 TEMP8>
11729                     <LOOP (TEMP7 TYPE VALUE LENGTH) (TEMP8 VALUE)>
11730 TAG10
11731                     <INTGO>
11732                     <EMPTY? TEMP7 + TAG6>
11733                     <NTH1 TEMP7 = STACK>
11734                     <REST1 TEMP7 = TEMP7>
11735                     <ADD TEMP8 1 = TEMP8 (TYPE FIX)>
11736                     <JUMP + TAG10>
11737 TAG6
11738                     <CALL '\1aOCEMIT TEMP8>
11739                     <DEAD TEMP8>
11740                     <FRAME '\1aOCEMIT>
11741                     <PUSH 'MOVE>
11742                     <PUSH 'A1*>
11743                     <SET TEMP7 2 (TYPE FIX)>
11744                     <SFRAME 'OBJ-VAL>
11745                     <RESTL L4 1 = TEMP8 (TYPE LIST)>
11746                     <NTHL TEMP8 1 = STACK>
11747                     <DEAD TEMP8>
11748                     <SCALL '\1aOBJ-VAL 1 = TEMP8 + TAG12 TEMP7>
11749                     <LOOP (TEMP8 TYPE VALUE LENGTH) (TEMP7 VALUE)>
11750 TAG15
11751                     <INTGO>
11752                     <EMPTY? TEMP8 + TAG12>
11753                     <NTH1 TEMP8 = STACK>
11754                     <REST1 TEMP8 = TEMP8>
11755                     <ADD TEMP7 1 = TEMP7 (TYPE FIX)>
11756                     <JUMP + TAG15>
11757 TAG12
11758                     <CALL '\1aOCEMIT TEMP7>
11759                     <DEAD TEMP7>
11760                     <FRAME '\1aPUSHJ>
11761                     <PUSH 'SWNEXT>
11762                     <RESTL L4 1 = TEMP8 (TYPE LIST)>
11763                     <DEAD L4>
11764                     <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
11765                     <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
11766                     <NTHL TEMP8 1 = STACK>
11767                     <DEAD TEMP8>
11768                     <CALL '\1aPUSHJ 2 = TEMP8>
11769                     <RETURN TEMP8>
11770                     <DEAD TEMP8>
11771                     <END \1aSWNEXT!-MIMOC>
11772 #WORD *7672227645*
11773 <GFCN \1aNEXTS!-MIMOC ("VALUE" ANY LIST) L5>
11774                     <TEMP TEMP9 TEMP8>
11775                     <INTGO>
11776                     <FRAME '\1aUPDATE-ACS>
11777                     <CALL '\1aUPDATE-ACS 0>
11778                     <FRAME '\1aOCEMIT>
11779                     <PUSH 'MOVE>
11780                     <PUSH 'O1*>
11781                     <SET TEMP9 2 (TYPE FIX)>
11782                     <SFRAME 'OBJ-VAL>
11783                     <NTHL L5 1 = STACK>
11784                     <SCALL '\1aOBJ-VAL 1 = TEMP8 + TAG7 TEMP9>
11785                     <LOOP (TEMP8 TYPE VALUE LENGTH) (TEMP9 VALUE)>
11786 TAG11
11787                     <INTGO>
11788                     <EMPTY? TEMP8 + TAG7>
11789                     <NTH1 TEMP8 = STACK>
11790                     <REST1 TEMP8 = TEMP8>
11791                     <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
11792                     <JUMP + TAG11>
11793 TAG7
11794                     <CALL '\1aOCEMIT TEMP9>
11795                     <DEAD TEMP9>
11796                     <FRAME '\1aPUSHJ>
11797                     <PUSH 'NEXTS>
11798                     <RESTL L5 1 = TEMP9 (TYPE LIST)>
11799                     <DEAD L5>
11800                     <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
11801                     <NTHL TEMP9 1 = STACK>
11802                     <DEAD TEMP9>
11803                     <CALL '\1aPUSHJ 2 = TEMP9>
11804                     <RETURN TEMP9>
11805                     <DEAD TEMP9>
11806                     <END \1aNEXTS!-MIMOC>
11807 #WORD *31000655344*
11808 <GFCN \1aCONTENTS!-MIMOC ("VALUE" <OR FALSE FIX> LIST) L5>
11809                     <TEMP TEMP9 AC6:ATOM>
11810                     <INTGO>
11811                     <FRAME '\1aSMASH-AC>
11812                     <PUSH 'T*>
11813                     <NTHL L5 1 = STACK>
11814                     <PUSH 'VALUE>
11815                     <CALL '\1aSMASH-AC 3>
11816                     <FRAME '\1aASSIGN-AC>
11817                     <RESTL L5 1 = TEMP9 (TYPE LIST)>
11818                     <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
11819                     <NTHL TEMP9 1 = STACK>
11820                     <DEAD TEMP9>
11821                     <PUSH 'BOTH>
11822                     <PUSH 'T>
11823                     <CALL '\1aASSIGN-AC 3 = AC6>
11824                     <FRAME '\1aOCEMIT>
11825                     <PUSH 'DMOVE>
11826                     <PUSH AC6>
11827                     <PUSH (T*)>
11828                     <CALL '\1aOCEMIT 3>
11829                     <FRAME '\1aOCEMIT>
11830                     <PUSH 'TLZE>
11831                     <PUSH AC6>
11832                     <PUSH 32>
11833                     <CALL '\1aOCEMIT 3>
11834                     <FRAME '\1aOCEMIT>
11835                     <PUSH 'XMOVEI>
11836                     <FRAME '\1aNEXT-AC>
11837                     <PUSH AC6>
11838                     <CALL '\1aNEXT-AC 1 = STACK>
11839                     <PUSH 1>
11840                     <PUSH (T*)>
11841                     <CALL '\1aOCEMIT 4>
11842                     <RESTL L5 1 = TEMP9 (TYPE LIST)>
11843                     <DEAD L5>
11844                     <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
11845                     <NTHL TEMP9 1 = TEMP9>
11846                     <EQUAL? TEMP9 'STACK + TAG16>
11847                     <DEAD TEMP9>
11848                     <RETURN %<>>
11849 TAG16
11850                     <FRAME '\1aOCEMIT>
11851                     <PUSH 'PUSH>
11852                     <PUSH 'TP*>
11853                     <PUSH AC6>
11854                     <CALL '\1aOCEMIT 3>
11855                     <FRAME '\1aOCEMIT>
11856                     <PUSH 'PUSH>
11857                     <PUSH 'TP*>
11858                     <FRAME '\1aNEXT-AC>
11859                     <PUSH AC6>
11860                     <DEAD AC6>
11861                     <CALL '\1aNEXT-AC 1 = STACK>
11862                     <CALL '\1aOCEMIT 3>
11863                     <GVAL 'WINNING-VICTIM = TEMP9>
11864                     <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE22>
11865                     <GVAL 'STACK-DEPTH = TEMP9>
11866                     <ADD TEMP9 2 = TEMP9 (TYPE FIX)>
11867                     <SETG 'STACK-DEPTH TEMP9>
11868 PHRASE22
11869                     <RETURN TEMP9>
11870                     <DEAD TEMP9>
11871                     <END \1aCONTENTS!-MIMOC>
11872 #WORD *6521023431*
11873 <GFCN \1aPUTS!-MIMOC ("VALUE" ANY LIST) L5>
11874                     <TEMP TEMP8>
11875                     <INTGO>
11876                     <FRAME '\1aLOAD-AC>
11877                     <RESTL L5 1 = TEMP8 (TYPE LIST)>
11878                     <NTHL TEMP8 1 = STACK>
11879                     <DEAD TEMP8>
11880                     <PUSH 'BOTH>
11881                     <CALL '\1aLOAD-AC 2 = TEMP8>
11882                     <FRAME '\1aSMASH-AC>
11883                     <PUSH 'T*>
11884                     <NTHL L5 1 = STACK>
11885                     <DEAD L5>
11886                     <PUSH 'VALUE>
11887                     <CALL '\1aSMASH-AC 3>
11888                     <FRAME '\1aFLUSH-AC>
11889                     <PUSH 'O*>
11890                     <CALL '\1aFLUSH-AC 1>
11891                     <FRAME '\1aMUNGED-AC>
11892                     <PUSH 'O*>
11893                     <CALL '\1aMUNGED-AC 1>
11894                     <FRAME '\1aOCEMIT>
11895                     <PUSH 'MOVE>
11896                     <PUSH 'O*>
11897                     <PUSH (T*)>
11898                     <CALL '\1aOCEMIT 3>
11899                     <FRAME '\1aOCEMIT>
11900                     <PUSH 'TLNN>
11901                     <PUSH 'O*>
11902                     <PUSH 32>
11903                     <CALL '\1aOCEMIT 3>
11904                     <FRAME '\1aOCEMIT>
11905                     <PUSH 'DMOVEM>
11906                     <PUSH TEMP8>
11907                     <DEAD TEMP8>
11908                     <PUSH (T*)>
11909                     <CALL '\1aOCEMIT 3 = TEMP8>
11910                     <RETURN TEMP8>
11911                     <DEAD TEMP8>
11912                     <END \1aPUTS!-MIMOC>
11913 #WORD *37551102046*
11914 <GFCN \1aALLOCL!-MIMOC ("VALUE" <OR FALSE FIX> LIST) L5>
11915                     <TEMP TEMP8 AC6:ATOM TEMP10>
11916                     <INTGO>
11917                     <FRAME '\1aASSIGN-AC>
11918                     <RESTL L5 1 = TEMP8 (TYPE LIST)>
11919                     <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
11920                     <NTHL TEMP8 1 = STACK>
11921                     <DEAD TEMP8>
11922                     <PUSH 'BOTH>
11923                     <PUSH 'T>
11924                     <CALL '\1aASSIGN-AC 3 = AC6>
11925                     <FRAME '\1aOCEMIT>
11926                     <PUSH 'MOVE>
11927                     <PUSH AC6>
11928                     <SET TEMP10 2 (TYPE FIX)>
11929                     <SFRAME 'TYPE-WORD>
11930                     <PUSH 'LIST>
11931                     <SCALL '\1aTYPE-WORD 1 = TEMP8 + TAG9 TEMP10>
11932                     <LOOP (TEMP8 TYPE VALUE LENGTH) (TEMP10 VALUE)>
11933 TAG12
11934                     <INTGO>
11935                     <EMPTY? TEMP8 + TAG9>
11936                     <NTH1 TEMP8 = STACK>
11937                     <REST1 TEMP8 = TEMP8>
11938                     <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
11939                     <JUMP + TAG12>
11940 TAG9
11941                     <CALL '\1aOCEMIT TEMP10>
11942                     <DEAD TEMP10>
11943                     <FRAME '\1aOCEMIT>
11944                     <PUSH 'MOVE>
11945                     <FRAME '\1aNEXT-AC>
11946                     <PUSH AC6>
11947                     <CALL '\1aNEXT-AC 1 = STACK>
11948                     <SET TEMP8 2 (TYPE FIX)>
11949                     <SFRAME 'OBJ-VAL>
11950                     <NTHL L5 1 = STACK>
11951                     <SCALL '\1aOBJ-VAL 1 = TEMP10 + TAG14 TEMP8>
11952                     <LOOP (TEMP10 TYPE VALUE LENGTH) (TEMP8 VALUE)>
11953 TAG17
11954                     <INTGO>
11955                     <EMPTY? TEMP10 + TAG14>
11956                     <NTH1 TEMP10 = STACK>
11957                     <REST1 TEMP10 = TEMP10>
11958                     <ADD TEMP8 1 = TEMP8 (TYPE FIX)>
11959                     <JUMP + TAG17>
11960 TAG14
11961                     <CALL '\1aOCEMIT TEMP8>
11962                     <DEAD TEMP8>
11963                     <RESTL L5 1 = TEMP10 (TYPE LIST)>
11964                     <DEAD L5>
11965                     <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
11966                     <NTHL TEMP10 1 = TEMP10>
11967                     <EQUAL? TEMP10 'STACK + TAG21>
11968                     <DEAD TEMP10>
11969                     <RETURN %<>>
11970 TAG21
11971                     <FRAME '\1aOCEMIT>
11972                     <PUSH 'PUSH>
11973                     <PUSH 'TP*>
11974                     <PUSH AC6>
11975                     <CALL '\1aOCEMIT 3>
11976                     <FRAME '\1aOCEMIT>
11977                     <PUSH 'PUSH>
11978                     <PUSH 'TP*>
11979                     <FRAME '\1aNEXT-AC>
11980                     <PUSH AC6>
11981                     <DEAD AC6>
11982                     <CALL '\1aNEXT-AC 1 = STACK>
11983                     <CALL '\1aOCEMIT 3>
11984                     <GVAL 'WINNING-VICTIM = TEMP8>
11985                     <TYPE? TEMP8 <TYPE-CODE FALSE> + PHRASE26>
11986                     <GVAL 'STACK-DEPTH = TEMP10>
11987                     <ADD TEMP10 2 = TEMP10 (TYPE FIX)>
11988                     <SETG 'STACK-DEPTH TEMP10>
11989                     <SET TEMP8 TEMP10>
11990                     <DEAD TEMP10>
11991 PHRASE26
11992                     <RETURN TEMP8>
11993                     <DEAD TEMP8>
11994                     <END \1aALLOCL!-MIMOC>
11995 #WORD *23430623677*
11996 <GFCN \1aALLOCUV!-MIMOC ("VALUE" ANY LIST) L5>
11997                     <TEMP TEMP7>
11998                     <INTGO>
11999                     <FRAME '\1aALLOC-JOIN>
12000                     <NTHL L5 1 = STACK>
12001                     <RESTL L5 1 = TEMP7 (TYPE LIST)>
12002                     <NTHL TEMP7 1 = STACK>
12003                     <DEAD TEMP7>
12004                     <RESTL L5 1 = TEMP7 (TYPE LIST)>
12005                     <DEAD L5>
12006                     <RESTL TEMP7 1 = TEMP7 (TYPE LIST)>
12007                     <RESTL TEMP7 1 = TEMP7 (TYPE LIST)>
12008                     <NTHL TEMP7 1 = STACK>
12009                     <DEAD TEMP7>
12010                     <PUSH 'VECTOR>
12011                     <CALL '\1aALLOC-JOIN 4 = TEMP7>
12012                     <RETURN TEMP7>
12013                     <DEAD TEMP7>
12014                     <END \1aALLOCUV!-MIMOC>
12015 #WORD *20660462017*
12016 <GFCN \1aALLOCUU!-MIMOC ("VALUE" ANY LIST) L5>
12017                     <TEMP TEMP7>
12018                     <INTGO>
12019                     <FRAME '\1aALLOC-JOIN>
12020                     <NTHL L5 1 = STACK>
12021                     <RESTL L5 1 = TEMP7 (TYPE LIST)>
12022                     <NTHL TEMP7 1 = STACK>
12023                     <DEAD TEMP7>
12024                     <RESTL L5 1 = TEMP7 (TYPE LIST)>
12025                     <DEAD L5>
12026                     <RESTL TEMP7 1 = TEMP7 (TYPE LIST)>
12027                     <RESTL TEMP7 1 = TEMP7 (TYPE LIST)>
12028                     <NTHL TEMP7 1 = STACK>
12029                     <DEAD TEMP7>
12030                     <PUSH 'UVECTOR>
12031                     <CALL '\1aALLOC-JOIN 4 = TEMP7>
12032                     <RETURN TEMP7>
12033                     <DEAD TEMP7>
12034                     <END \1aALLOCUU!-MIMOC>
12035 #WORD *32542612610*
12036 <GFCN \1aALLOCUS!-MIMOC ("VALUE" <OR FALSE FIX> LIST "OPTIONAL" ANY) L8 BYTES?9>
12037                     <OPT-DISPATCH 1 %<> OPT6 OPT7>
12038 OPT6
12039                     <PUSH %<>>
12040 OPT7
12041                     <TEMP TEMP12 AC10 TEMP15 TEMP24>
12042                     <INTGO>
12043                     <FRAME '\1aASSIGN-AC>
12044                     <RESTL L8 1 = TEMP12 (TYPE LIST)>
12045                     <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
12046                     <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
12047                     <NTHL TEMP12 1 = STACK>
12048                     <DEAD TEMP12>
12049                     <PUSH 'BOTH>
12050                     <PUSH 'T>
12051                     <CALL '\1aASSIGN-AC 3 = AC10>
12052                     <FRAME '\1aOCEMIT>
12053                     <PUSH 'MOVE>
12054                     <FRAME '\1aNEXT-AC>
12055                     <PUSH AC10>
12056                     <CALL '\1aNEXT-AC 1 = STACK>
12057                     <SET TEMP15 2 (TYPE FIX)>
12058                     <SFRAME 'OBJ-VAL>
12059                     <NTHL L8 1 = STACK>
12060                     <SCALL '\1aOBJ-VAL 1 = TEMP12 + TAG13 TEMP15>
12061                     <LOOP (TEMP12 TYPE VALUE LENGTH) (TEMP15 VALUE)>
12062 TAG17
12063                     <INTGO>
12064                     <EMPTY? TEMP12 + TAG13>
12065                     <NTH1 TEMP12 = STACK>
12066                     <REST1 TEMP12 = TEMP12>
12067                     <ADD TEMP15 1 = TEMP15 (TYPE FIX)>
12068                     <JUMP + TAG17>
12069 TAG13
12070                     <CALL '\1aOCEMIT TEMP15>
12071                     <DEAD TEMP15>
12072                     <FRAME '\1aOCEMIT>
12073                     <PUSH 'ADD>
12074                     <FRAME '\1aNEXT-AC>
12075                     <PUSH AC10>
12076                     <CALL '\1aNEXT-AC 1 = STACK>
12077                     <SET TEMP12 2 (TYPE FIX)>
12078                     <SFRAME 'OBJ-VAL>
12079                     <TYPE? BYTES?9 <TYPE-CODE FALSE> + PHRASE23>
12080                     <DEAD BYTES?9>
12081                     <SET TEMP24 -17179869185 (TYPE FIX)>
12082                     <JUMP + PHRASE25>
12083 PHRASE23
12084                     <SET TEMP24 -10737418241 (TYPE FIX)>
12085 PHRASE25
12086                     <PUSH TEMP24>
12087                     <DEAD TEMP24>
12088                     <SCALL '\1aOBJ-VAL 1 = TEMP15 + TAG19 TEMP12>
12089                     <LOOP (TEMP15 TYPE VALUE LENGTH) (TEMP12 VALUE)>
12090 TAG26
12091                     <INTGO>
12092                     <EMPTY? TEMP15 + TAG19>
12093                     <NTH1 TEMP15 = STACK>
12094                     <REST1 TEMP15 = TEMP15>
12095                     <ADD TEMP12 1 = TEMP12 (TYPE FIX)>
12096                     <JUMP + TAG26>
12097 TAG19
12098                     <CALL '\1aOCEMIT TEMP12>
12099                     <DEAD TEMP12>
12100                     <FRAME '\1aOCEMIT>
12101                     <PUSH 'MOVE>
12102                     <PUSH AC10>
12103                     <SET TEMP15 2 (TYPE FIX)>
12104                     <SFRAME 'OBJ-TYP>
12105                     <RESTL L8 1 = TEMP24 (TYPE LIST)>
12106                     <NTHL TEMP24 1 = STACK>
12107                     <DEAD TEMP24>
12108                     <SCALL '\1aOBJ-TYP 1 = TEMP12 + TAG28 TEMP15>
12109                     <LOOP (TEMP12 TYPE VALUE LENGTH) (TEMP15 VALUE)>
12110 TAG30
12111                     <INTGO>
12112                     <EMPTY? TEMP12 + TAG28>
12113                     <NTH1 TEMP12 = STACK>
12114                     <REST1 TEMP12 = TEMP12>
12115                     <ADD TEMP15 1 = TEMP15 (TYPE FIX)>
12116                     <JUMP + TAG30>
12117 TAG28
12118                     <CALL '\1aOCEMIT TEMP15>
12119                     <DEAD TEMP15>
12120                     <RESTL L8 1 = TEMP12 (TYPE LIST)>
12121                     <DEAD L8>
12122                     <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
12123                     <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
12124                     <NTHL TEMP12 1 = TEMP12>
12125                     <EQUAL? TEMP12 'STACK + TAG34>
12126                     <DEAD TEMP12>
12127                     <RETURN %<>>
12128 TAG34
12129                     <FRAME '\1aOCEMIT>
12130                     <PUSH 'PUSH>
12131                     <PUSH 'TP*>
12132                     <PUSH AC10>
12133                     <CALL '\1aOCEMIT 3>
12134                     <FRAME '\1aOCEMIT>
12135                     <PUSH 'PUSH>
12136                     <PUSH 'TP*>
12137                     <FRAME '\1aNEXT-AC>
12138                     <PUSH AC10>
12139                     <DEAD AC10>
12140                     <CALL '\1aNEXT-AC 1 = STACK>
12141                     <CALL '\1aOCEMIT 3>
12142                     <GVAL 'WINNING-VICTIM = TEMP15>
12143                     <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE39>
12144                     <GVAL 'STACK-DEPTH = TEMP12>
12145                     <ADD TEMP12 2 = TEMP12 (TYPE FIX)>
12146                     <SETG 'STACK-DEPTH TEMP12>
12147                     <SET TEMP15 TEMP12>
12148                     <DEAD TEMP12>
12149 PHRASE39
12150                     <RETURN TEMP15>
12151                     <DEAD TEMP15>
12152                     <END \1aALLOCUS!-MIMOC>
12153 #WORD *12642005423*
12154 <GFCN \1aALLOCUB!-MIMOC ("VALUE" <OR FALSE FIX> ANY) L5>
12155                     <TEMP TEMP7>
12156                     <INTGO>
12157                     <FRAME '\1aALLOCUS!-MIMOC>
12158                     <PUSH L5>
12159                     <DEAD L5>
12160                     <PUSH 'T>
12161                     <CALL '\1aALLOCUS!-MIMOC 2 = TEMP7>
12162                     <RETURN TEMP7>
12163                     <DEAD TEMP7>
12164                     <END \1aALLOCUB!-MIMOC>
12165 #WORD *22760620037*
12166 <GFCN \1aALLOCR!-MIMOC ("VALUE" ANY LIST) L5>
12167                     <TEMP TEMP7>
12168                     <INTGO>
12169                     <FRAME '\1aALLOC-JOIN>
12170                     <NTHL L5 1 = STACK>
12171                     <RESTL L5 1 = TEMP7 (TYPE LIST)>
12172                     <NTHL TEMP7 1 = STACK>
12173                     <DEAD TEMP7>
12174                     <RESTL L5 1 = TEMP7 (TYPE LIST)>
12175                     <DEAD L5>
12176                     <RESTL TEMP7 1 = TEMP7 (TYPE LIST)>
12177                     <RESTL TEMP7 1 = TEMP7 (TYPE LIST)>
12178                     <NTHL TEMP7 1 = STACK>
12179                     <DEAD TEMP7>
12180                     <PUSH 'RECORD>
12181                     <CALL '\1aALLOC-JOIN 4 = TEMP7>
12182                     <RETURN TEMP7>
12183                     <DEAD TEMP7>
12184                     <END \1aALLOCR!-MIMOC>
12185 #WORD *11267037532*
12186 <GFCN \1aALLOC-JOIN ("VALUE" ANY ANY ANY ANY ANY) WHERE5 OLD6 NEW7 TYP8>
12187                     <TEMP TEMP14 TEMP13 TEMP29>
12188                     <INTGO>
12189                     <EQUAL? NEW7 'STACK - PHRASE11>
12190                     <FRAME '\1aOCEMIT>
12191                     <PUSH 'PUSH>
12192                     <PUSH 'TP*>
12193                     <SET TEMP14 2 (TYPE FIX)>
12194                     <SFRAME 'OBJ-TYP>
12195                     <PUSH OLD6>
12196                     <DEAD OLD6>
12197                     <SCALL '\1aOBJ-TYP 1 = TEMP13 + TAG12 TEMP14>
12198                     <LOOP (TEMP13 TYPE VALUE LENGTH) (TEMP14 VALUE)>
12199 TAG16
12200                     <INTGO>
12201                     <EMPTY? TEMP13 + TAG12>
12202                     <NTH1 TEMP13 = STACK>
12203                     <REST1 TEMP13 = TEMP13>
12204                     <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
12205                     <JUMP + TAG16>
12206 TAG12
12207                     <CALL '\1aOCEMIT TEMP14>
12208                     <DEAD TEMP14>
12209                     <GVAL 'WINNING-VICTIM = TEMP14>
12210                     <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE19>
12211                     <DEAD TEMP14>
12212                     <GVAL 'STACK-DEPTH = TEMP14>
12213                     <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
12214                     <SETG 'STACK-DEPTH TEMP14>
12215                     <DEAD TEMP14>
12216 PHRASE19
12217                     <FRAME '\1aOCEMIT>
12218                     <PUSH 'PUSH>
12219                     <PUSH 'TP*>
12220                     <SET TEMP13 2 (TYPE FIX)>
12221                     <SFRAME 'OBJ-VAL>
12222                     <PUSH WHERE5>
12223                     <DEAD WHERE5>
12224                     <SCALL '\1aOBJ-VAL 1 = TEMP14 + TAG20 TEMP13>
12225                     <LOOP (TEMP14 TYPE VALUE LENGTH) (TEMP13 VALUE)>
12226 TAG22
12227                     <INTGO>
12228                     <EMPTY? TEMP14 + TAG20>
12229                     <NTH1 TEMP14 = STACK>
12230                     <REST1 TEMP14 = TEMP14>
12231                     <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
12232                     <JUMP + TAG22>
12233 TAG20
12234                     <CALL '\1aOCEMIT TEMP13>
12235                     <DEAD TEMP13>
12236                     <GVAL 'WINNING-VICTIM = TEMP13>
12237                     <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE26>
12238                     <GVAL 'STACK-DEPTH = TEMP14>
12239                     <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
12240                     <SETG 'STACK-DEPTH TEMP14>
12241                     <RETURN TEMP14>
12242                     <DEAD TEMP14>
12243 PHRASE11
12244                     <FRAME '\1aASSIGN-AC>
12245                     <PUSH NEW7>
12246                     <DEAD NEW7>
12247                     <PUSH 'BOTH>
12248                     <PUSH 'T>
12249                     <CALL '\1aASSIGN-AC 3 = TEMP13>
12250                     <FRAME '\1aOCEMIT>
12251                     <PUSH 'MOVE>
12252                     <PUSH TEMP13>
12253                     <SET TEMP29 2 (TYPE FIX)>
12254                     <SFRAME 'OBJ-TYP>
12255                     <PUSH OLD6>
12256                     <DEAD OLD6>
12257                     <SCALL '\1aOBJ-TYP 1 = TEMP14 + TAG28 TEMP29>
12258                     <LOOP (TEMP14 TYPE VALUE LENGTH) (TEMP29 VALUE)>
12259 TAG31
12260                     <INTGO>
12261                     <EMPTY? TEMP14 + TAG28>
12262                     <NTH1 TEMP14 = STACK>
12263                     <REST1 TEMP14 = TEMP14>
12264                     <ADD TEMP29 1 = TEMP29 (TYPE FIX)>
12265                     <JUMP + TAG31>
12266 TAG28
12267                     <CALL '\1aOCEMIT TEMP29>
12268                     <DEAD TEMP29>
12269                     <FRAME '\1aOCEMIT>
12270                     <PUSH 'MOVE>
12271                     <FRAME '\1aNEXT-AC>
12272                     <PUSH TEMP13>
12273                     <DEAD TEMP13>
12274                     <CALL '\1aNEXT-AC 1 = STACK>
12275                     <SET TEMP14 2 (TYPE FIX)>
12276                     <SFRAME 'OBJ-VAL>
12277                     <PUSH WHERE5>
12278                     <DEAD WHERE5>
12279                     <SCALL '\1aOBJ-VAL 1 = TEMP29 + TAG33 TEMP14>
12280                     <LOOP (TEMP29 TYPE VALUE LENGTH) (TEMP14 VALUE)>
12281 TAG36
12282                     <INTGO>
12283                     <EMPTY? TEMP29 + TAG33>
12284                     <NTH1 TEMP29 = STACK>
12285                     <REST1 TEMP29 = TEMP29>
12286                     <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
12287                     <JUMP + TAG36>
12288 TAG33
12289                     <CALL '\1aOCEMIT TEMP14 = TEMP13>
12290                     <DEAD TEMP14>
12291 PHRASE26
12292                     <RETURN TEMP13>
12293                     <DEAD TEMP13>
12294                     <END \1aALLOC-JOIN>
12295 #WORD *16761317722*
12296 <GFCN \1aBLT!-MIMOC ("VALUE" ANY LIST) L5>
12297                     <TEMP TEMP10 TEMP9 TEMP16:LIST>
12298                     <INTGO>
12299                     <FRAME '\1aFLUSH-AC>
12300                     <PUSH 'T*>
12301                     <CALL '\1aFLUSH-AC 1>
12302                     <FRAME '\1aMUNGED-AC>
12303                     <PUSH 'T*>
12304                     <CALL '\1aMUNGED-AC 1>
12305                     <FRAME '\1aOCEMIT>
12306                     <PUSH 'MOVE>
12307                     <PUSH 'O1*>
12308                     <SET TEMP10 2 (TYPE FIX)>
12309                     <SFRAME 'OBJ-VAL>
12310                     <NTHL L5 1 = STACK>
12311                     <SCALL '\1aOBJ-VAL 1 = TEMP9 + TAG8 TEMP10>
12312                     <LOOP (TEMP9 TYPE VALUE LENGTH) (TEMP10 VALUE)>
12313 TAG12
12314                     <INTGO>
12315                     <EMPTY? TEMP9 + TAG8>
12316                     <NTH1 TEMP9 = STACK>
12317                     <REST1 TEMP9 = TEMP9>
12318                     <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
12319                     <JUMP + TAG12>
12320 TAG8
12321                     <CALL '\1aOCEMIT TEMP10>
12322                     <DEAD TEMP10>
12323                     <FRAME '\1aOCEMIT>
12324                     <PUSH 'MOVE>
12325                     <PUSH 'O2*>
12326                     <SET TEMP9 2 (TYPE FIX)>
12327                     <SFRAME 'OBJ-VAL>
12328                     <RESTL L5 1 = TEMP16 (TYPE LIST)>
12329                     <NTHL TEMP16 1 = STACK>
12330                     <DEAD TEMP16>
12331                     <SCALL '\1aOBJ-VAL 1 = TEMP10 + TAG14 TEMP9>
12332                     <LOOP (TEMP10 TYPE VALUE LENGTH) (TEMP9 VALUE)>
12333 TAG17
12334                     <INTGO>
12335                     <EMPTY? TEMP10 + TAG14>
12336                     <NTH1 TEMP10 = STACK>
12337                     <REST1 TEMP10 = TEMP10>
12338                     <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
12339                     <JUMP + TAG17>
12340 TAG14
12341                     <CALL '\1aOCEMIT TEMP9>
12342                     <DEAD TEMP9>
12343                     <FRAME '\1aOCEMIT>
12344                     <PUSH 'MOVE>
12345                     <PUSH 'T*>
12346                     <SET TEMP10 2 (TYPE FIX)>
12347                     <SFRAME 'OBJ-VAL>
12348                     <RESTL L5 1 = TEMP16 (TYPE LIST)>
12349                     <DEAD L5>
12350                     <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
12351                     <NTHL TEMP16 1 = STACK>
12352                     <DEAD TEMP16>
12353                     <SCALL '\1aOBJ-VAL 1 = TEMP9 + TAG19 TEMP10>
12354                     <LOOP (TEMP9 TYPE VALUE LENGTH) (TEMP10 VALUE)>
12355 TAG21
12356                     <INTGO>
12357                     <EMPTY? TEMP9 + TAG19>
12358                     <NTH1 TEMP9 = STACK>
12359                     <REST1 TEMP9 = TEMP9>
12360                     <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
12361                     <JUMP + TAG21>
12362 TAG19
12363                     <CALL '\1aOCEMIT TEMP10>
12364                     <DEAD TEMP10>
12365                     <FRAME '\1aOCEMIT>
12366                     <PUSH 'XBLT>
12367                     <PUSH 'T*>
12368                     <SET TEMP9 2 (TYPE FIX)>
12369                     <SFRAME 'OBJ-VAL>
12370                     <PUSH 2147483648>
12371                     <SCALL '\1aOBJ-VAL 1 = TEMP10 + TAG23 TEMP9>
12372                     <LOOP (TEMP10 TYPE VALUE LENGTH) (TEMP9 VALUE)>
12373 TAG25
12374                     <INTGO>
12375                     <EMPTY? TEMP10 + TAG23>
12376                     <NTH1 TEMP10 = STACK>
12377                     <REST1 TEMP10 = TEMP10>
12378                     <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
12379                     <JUMP + TAG25>
12380 TAG23
12381                     <CALL '\1aOCEMIT TEMP9 = TEMP9>
12382                     <RETURN TEMP9>
12383                     <DEAD TEMP9>
12384                     <END \1aBLT!-MIMOC>
12385 #WORD *442012330*
12386 <GFCN \1aRELL!-MIMOC ("VALUE" ANY LIST) L5>
12387                     <TEMP TEMP9>
12388                     <INTGO>
12389                     <FRAME '\1aUPDATE-ACS>
12390                     <CALL '\1aUPDATE-ACS 0>
12391                     <FRAME '\1aSMASH-AC>
12392                     <PUSH 'A1*>
12393                     <NTHL L5 1 = STACK>
12394                     <DEAD L5>
12395                     <PUSH 'BOTH>
12396                     <CALL '\1aSMASH-AC 3>
12397                     <FRAME '\1aPUSHJ>
12398                     <PUSH 'RELL>
12399                     <CALL '\1aPUSHJ 1 = TEMP9>
12400                     <RETURN TEMP9>
12401                     <DEAD TEMP9>
12402                     <END \1aRELL!-MIMOC>
12403 #WORD *442012510*
12404 <GFCN \1aRELU!-MIMOC ("VALUE" ANY LIST) L5>
12405                     <TEMP TEMP9>
12406                     <INTGO>
12407                     <FRAME '\1aUPDATE-ACS>
12408                     <CALL '\1aUPDATE-ACS 0>
12409                     <FRAME '\1aSMASH-AC>
12410                     <PUSH 'A1*>
12411                     <NTHL L5 1 = STACK>
12412                     <DEAD L5>
12413                     <PUSH 'BOTH>
12414                     <CALL '\1aSMASH-AC 3>
12415                     <FRAME '\1aPUSHJ>
12416                     <PUSH 'RELU>
12417                     <CALL '\1aPUSHJ 1 = TEMP9>
12418                     <RETURN TEMP9>
12419                     <DEAD TEMP9>
12420                     <END \1aRELU!-MIMOC>
12421 #WORD *442012470*
12422 <GFCN \1aRELR!-MIMOC ("VALUE" ANY LIST) L5>
12423                     <TEMP TEMP9>
12424                     <INTGO>
12425                     <FRAME '\1aUPDATE-ACS>
12426                     <CALL '\1aUPDATE-ACS 0>
12427                     <FRAME '\1aSMASH-AC>
12428                     <PUSH 'A1*>
12429                     <NTHL L5 1 = STACK>
12430                     <DEAD L5>
12431                     <PUSH 'BOTH>
12432                     <CALL '\1aSMASH-AC 3>
12433                     <FRAME '\1aPUSHJ>
12434                     <PUSH 'RELR>
12435                     <CALL '\1aPUSHJ 1 = TEMP9>
12436                     <RETURN TEMP9>
12437                     <DEAD TEMP9>
12438                     <END \1aRELR!-MIMOC>
12439 #WORD *7532440457*
12440 <GFCN \1aLOOP!-MIMOC ("VALUE" <OR ATOM FALSE> LIST) L4>
12441                     <TEMP TEMP10 LFS8 TEMP19 TEMP28 TEMP40 LL52 TEMP61 ACS73:VECTOR A174:AC TEMP88 A275:AC ACS2105:ACSTATE>
12442                     <INTGO>
12443                     <FRAME '\1aNTH>
12444                     <GEN-LVAL 'MIML = STACK>
12445                     <PUSH 2>
12446                     <CALL '\1aNTH 2 = TEMP10>
12447                     <TYPE? TEMP10 <TYPE-CODE ATOM> + TAG16>
12448                     <RETURN %<>>
12449 TAG16
12450                     <GVAL TEMP10 = TEMP10>
12451                     <NTHUV TEMP10 5 = LFS8>
12452                     <DEAD TEMP10>
12453                     <SETG 'NEXT-LOOP 'T>
12454                     <GEN-LVAL 'MIML = TEMP19>
12455                     <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
12456                     <NTHL TEMP19 1 = STACK>
12457                     <DEAD TEMP19>
12458                     <SET TEMP10 1 (TYPE FIX)>
12459                     <GVAL 'LOOPTAGS = TEMP19>
12460                     <TYPE TEMP19 = TEMP28>
12461                     <AND TEMP28 7 = TEMP28>
12462                     <VEQUAL? TEMP28 1 + TAG24>
12463                     <DEAD TEMP28>
12464                     <LOOP (TEMP19 TYPE VALUE LENGTH) (TEMP10 VALUE)>
12465 TAG30
12466                     <INTGO>
12467                     <EMPTY? TEMP19 + TAG29>
12468                     <NTH1 TEMP19 = STACK>
12469                     <REST1 TEMP19 = TEMP19>
12470                     <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
12471                     <JUMP + TAG30>
12472 TAG29
12473                     <LIST TEMP10 = TEMP19 (TYPE LIST)>
12474                     <DEAD TEMP10>
12475                     <JUMP + TAG26>
12476 TAG24
12477                     <LOOP>
12478 TAG27
12479                     <VEQUAL? TEMP10 0 + TAG26>
12480                     <POP = TEMP28>
12481                     <CONS TEMP28 TEMP19 = TEMP19 (TYPE LIST)>
12482                     <DEAD TEMP28>
12483                     <SUB TEMP10 1 = TEMP10 (TYPE FIX)>
12484                     <JUMP + TAG27>
12485 TAG26
12486                     <SETG 'LOOPTAGS TEMP19>
12487                     <DEAD TEMP19>
12488                     <NTHR 'DO-LOOPS 1 = TEMP19 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG35)>
12489                     <TYPE? TEMP19 <TYPE-CODE FALSE> + TAG35>
12490                     <NTHR TEMP19 1 = TEMP19 (RECORD-TYPE GBIND)>
12491                     <TYPE? TEMP19 <TYPE-CODE UNBOUND> - TAG34>
12492                     <DEAD TEMP19>
12493 TAG35
12494                     <RETURN %<>>
12495 TAG34
12496                     <GVAL 'DO-LOOPS = TEMP10>
12497                     <TYPE? TEMP10 <TYPE-CODE FALSE> + MAPAP47>
12498                     <SET TEMP28 () (TYPE LIST)>
12499                     <SET TEMP10 () (TYPE LIST)>
12500                     <SET TEMP19 L4 (TYPE LIST)>
12501                     <LOOP>
12502 MAP37
12503                     <INTGO>
12504                     <EMPL? TEMP19 + MAP36>
12505                     <NTHL TEMP19 1 = TEMP40>
12506                     <NTH1 TEMP40 = TEMP40>
12507                     <CONS TEMP40 () = TEMP40 (TYPE LIST)>
12508                     <EMPL? TEMP28 - TAG41>
12509                     <SET TEMP28 TEMP40 (TYPE LIST)>
12510                     <JUMP + TAG42>
12511 TAG41
12512                     <PUTREST TEMP10 TEMP40>
12513                     <DEAD TEMP10>
12514 TAG42
12515                     <SET TEMP10 TEMP40 (TYPE LIST)>
12516                     <DEAD TEMP40>
12517                     <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
12518                     <JUMP + MAP37>
12519 MAP36
12520                     <SET TEMP10 %<> (TYPE FALSE)>
12521                     <SET TEMP19 L4 (TYPE LIST)>
12522                     <DEAD L4>
12523                     <LOOP>
12524 MAP44
12525                     <INTGO>
12526                     <EMPL? TEMP19 + MAPAP47>
12527                     <NTHL TEMP19 1 = LL52>
12528                     <NTHL LL52 1 = TEMP10>
12529                     <RESTL LL52 1 = LL52 (TYPE LIST)>
12530                     <SET TEMP40 LL52>
12531                     <EMPL? TEMP40 + PHRASE56>
12532                     <LOOP (TEMP40 VALUE)>
12533 TAG58
12534                     <NTHL TEMP40 1 = TEMP61>
12535                     <TYPE? TEMP61 <TYPE-CODE ATOM> - TAG59>
12536                     <VEQUAL? TEMP61 'VALUE + TAG57>
12537                     <DEAD TEMP61>
12538 TAG59
12539                     <RESTL TEMP40 1 = TEMP40 (TYPE LIST)>
12540                     <EMPL? TEMP40 - TAG58>
12541                     <JUMP + PHRASE56>
12542 TAG57
12543                     <RESTL LL52 1 = TEMP40 (TYPE LIST)>
12544                     <DEAD LL52>
12545                     <EMPL? TEMP40 + PHRASE63 (TYPE LIST)>
12546                     <DEAD TEMP40>
12547                     <SET LL52 'BOTH (TYPE ATOM)>
12548                     <JUMP + PHRASE65>
12549 PHRASE63
12550                     <SET LL52 'VALUE (TYPE ATOM)>
12551                     <JUMP + PHRASE65>
12552 PHRASE56
12553                     <SET LL52 'TYPE (TYPE ATOM)>
12554 PHRASE65
12555                     <FRAME '\1aIN-AC?>
12556                     <PUSH TEMP10>
12557                     <PUSH LL52>
12558                     <CALL '\1aIN-AC? 2 = TEMP40>
12559                     <TYPE? TEMP40 <TYPE-CODE FALSE> + TAG69>
12560                     <DEAD TEMP40>
12561                     <SET TEMP10 %<> (TYPE FALSE)>
12562                     <JUMP + EXIT102>
12563 TAG69
12564                     <TYPE? LFS8 <TYPE-CODE FALSE> - PHRASE71>
12565                     <GVAL 'AC-TABLE = TEMP61>
12566                     <RESTUV TEMP61 1 = ACS73 (TYPE VECTOR)>
12567                     <DEAD TEMP61>
12568                     <LOOP>
12569 AGAIN77
12570                     <INTGO>
12571                     <NTHUV ACS73 1 = A174 (TYPE AC)>
12572                     <NTHUV A174 1 = TEMP61 (TYPE ATOM)>
12573                     <VEQUAL? TEMP61 'X* - PHRASE79>
12574                     <DEAD TEMP61>
12575                     <SET TEMP10 'T (TYPE ATOM)>
12576                     <JUMP + EXIT102>
12577 PHRASE79
12578                     <VEQUAL? LL52 'VALUE + TAG85>
12579                     <NTHUV A174 2 = TEMP40>
12580                     <TYPE? TEMP40 <TYPE-CODE FALSE> + TAG85>
12581                     <TYPE? TEMP40 <TYPE-CODE LOSE> + TAG85>
12582                     <NTHUV A174 5 = TEMP61>
12583                     <TYPE? TEMP61 <TYPE-CODE FALSE> - PHRASE81>
12584                     <DEAD TEMP61>
12585                     <SET TEMP61 TEMP28>
12586                     <EMPL? TEMP61 + TAG85>
12587                     <LOOP (TEMP40 VALUE) (TEMP61 VALUE)>
12588 TAG86
12589                     <NTHL TEMP61 1 = TEMP88>
12590                     <TYPE? TEMP88 <TYPE-CODE ATOM> - TAG87>
12591                     <VEQUAL? TEMP88 TEMP40 + PHRASE81>
12592                     <DEAD TEMP88>
12593 TAG87
12594                     <RESTL TEMP61 1 = TEMP61 (TYPE LIST)>
12595                     <EMPL? TEMP61 - TAG86>
12596 TAG85
12597                     <VEQUAL? LL52 'TYPE + TAG91>
12598                     <NTHUV ACS73 2 = A275 (TYPE AC)>
12599                     <NTHUV A275 2 = TEMP40>
12600                     <TYPE? TEMP40 <TYPE-CODE FALSE> + TAG91>
12601                     <TYPE? TEMP40 <TYPE-CODE LOSE> + TAG91>
12602                     <NTHUV A275 5 = TEMP61>
12603                     <TYPE? TEMP61 <TYPE-CODE FALSE> - PHRASE81>
12604                     <DEAD TEMP61>
12605                     <SET TEMP61 TEMP28>
12606                     <EMPL? TEMP61 + TAG91>
12607                     <LOOP (TEMP40 VALUE) (TEMP61 VALUE)>
12608 TAG92
12609                     <NTHL TEMP61 1 = TEMP88>
12610                     <TYPE? TEMP88 <TYPE-CODE ATOM> - TAG93>
12611                     <VEQUAL? TEMP88 TEMP40 + PHRASE81>
12612                     <DEAD TEMP88>
12613 TAG93
12614                     <RESTL TEMP61 1 = TEMP61 (TYPE LIST)>
12615                     <EMPL? TEMP61 - TAG92>
12616 TAG91
12617                     <VEQUAL? LL52 'VALUE - PHRASE95>
12618                     <FRAME '\1aLOAD-AC>
12619                     <PUSH TEMP10>
12620                     <DEAD TEMP10>
12621                     <PUSH 'VALUE>
12622                     <PUSH %<>>
12623                     <PUSH %<>>
12624                     <PUSH A275>
12625                     <CALL '\1aLOAD-AC 5>
12626                     <JUMP + PHRASE99>
12627 PHRASE95
12628                     <VEQUAL? LL52 'TYPE - PHRASE97>
12629                     <DEAD LL52>
12630                     <FRAME '\1aLOAD-AC>
12631                     <PUSH TEMP10>
12632                     <DEAD TEMP10>
12633                     <PUSH 'TYPE>
12634                     <PUSH %<>>
12635                     <PUSH %<>>
12636                     <PUSH A174>
12637                     <DEAD A174>
12638                     <CALL '\1aLOAD-AC 5>
12639                     <JUMP + PHRASE99>
12640 PHRASE97
12641                     <FRAME '\1aLOAD-AC>
12642                     <PUSH TEMP10>
12643                     <DEAD TEMP10>
12644                     <PUSH 'BOTH>
12645                     <PUSH %<>>
12646                     <PUSH %<>>
12647                     <PUSH A174>
12648                     <DEAD A174>
12649                     <PUSH A275>
12650                     <CALL '\1aLOAD-AC 6>
12651 PHRASE99
12652                     <SET TEMP10 'T (TYPE ATOM)>
12653                     <JUMP + EXIT102>
12654 PHRASE81
12655                     <RESTUV ACS73 2 = ACS73 (TYPE VECTOR)>
12656                     <JUMP + AGAIN77>
12657 PHRASE71
12658                     <CHTYPE LFS8 <TYPE-CODE VECTOR> = ACS73>
12659                     <LOOP>
12660 AGAIN107
12661                     <INTGO>
12662                     <EMPUV? ACS73 - PHRASE109 (TYPE VECTOR)>
12663                     <SET TEMP10 'T (TYPE ATOM)>
12664                     <JUMP + EXIT102>
12665 PHRASE109
12666                     <SET TEMP40 %<> (TYPE FALSE)>
12667                     <NTHUV ACS73 1 = LL52 (TYPE ACSTATE)>
12668                     <NTHUV LL52 2 = TEMP88 (TYPE LOCAL)>
12669                     <NTHUV TEMP88 1 = TEMP88 (TYPE ATOM)>
12670                     <EQUAL? TEMP88 TEMP10 - TAG113>
12671                     <DEAD TEMP88>
12672                     <SET TEMP40 'T (TYPE ATOM)>
12673                     <JUMP + BOOL112>
12674 TAG113
12675                     <NTHUV ACS73 2 = ACS2105 (TYPE ACSTATE)>
12676                     <NTHUV ACS2105 2 = TEMP88 (TYPE LOCAL)>
12677                     <NTHUV TEMP88 1 = TEMP88 (TYPE ATOM)>
12678                     <EQUAL? TEMP88 TEMP10 - PHRASE111>
12679                     <DEAD TEMP88>
12680 BOOL112
12681                     <VEQUAL? TEMP40 0 + PHRASE115>
12682                     <DEAD TEMP40>
12683                     <FRAME '\1aLOAD-AC>
12684                     <PUSH TEMP10>
12685                     <PUSH 'BOTH>
12686                     <NTHUV ACS73 2 = ACS2105 (TYPE ACSTATE)>
12687                     <DEAD ACS73>
12688                     <NTHUV ACS2105 2 = TEMP88 (TYPE LOCAL)>
12689                     <NTHUV TEMP88 1 = TEMP88 (TYPE ATOM)>
12690                     <EQUAL? TEMP88 TEMP10 - PHRASE118>
12691                     <DEAD TEMP88 TEMP10>
12692                     <NTHUV ACS2105 3 = TEMP10>
12693                     <TYPE? TEMP10 <TYPE-CODE FALSE> - TAG121>
12694                     <DEAD TEMP10>
12695                     <SET TEMP88 'T (TYPE ATOM)>
12696                     <JUMP + TAG126>
12697 TAG121
12698                     <NTHUV LL52 3 = TEMP10>
12699                     <TYPE? TEMP10 <TYPE-CODE FALSE> - TAG122>
12700                     <DEAD TEMP10>
12701                     <SET TEMP88 'T (TYPE ATOM)>
12702                     <JUMP + TAG126>
12703 TAG122
12704                     <SET TEMP88 %<> (TYPE FALSE)>
12705                     <JUMP + TAG126>
12706 PHRASE118
12707                     <NTHUV LL52 3 = TEMP10>
12708                     <TYPE? TEMP10 <TYPE-CODE FALSE> - TAG125>
12709                     <DEAD TEMP10>
12710                     <SET TEMP88 'T (TYPE ATOM)>
12711                     <JUMP + TAG126>
12712 TAG125
12713                     <SET TEMP88 %<> (TYPE FALSE)>
12714 TAG126
12715                     <PUSH TEMP88>
12716                     <DEAD TEMP88>
12717                     <PUSH %<>>
12718                     <NTHUV LL52 1 = STACK (TYPE AC)>
12719                     <DEAD LL52>
12720                     <NTHUV ACS2105 1 = STACK (TYPE AC)>
12721                     <CALL '\1aLOAD-AC 6>
12722                     <JUMP + PHRASE127>
12723 PHRASE115
12724                     <FRAME '\1aLOAD-AC>
12725                     <PUSH TEMP10>
12726                     <DEAD TEMP10>
12727                     <PUSH 'VALUE>
12728                     <NTHUV ACS2105 3 = TEMP88>
12729                     <TYPE? TEMP88 <TYPE-CODE FALSE> - TAG129>
12730                     <DEAD TEMP88>
12731                     <SET TEMP88 'T (TYPE ATOM)>
12732                     <JUMP + TAG130>
12733 TAG129
12734                     <SET TEMP88 %<> (TYPE FALSE)>
12735 TAG130
12736                     <PUSH TEMP88>
12737                     <DEAD TEMP88>
12738                     <PUSH %<>>
12739                     <NTHUV ACS2105 1 = STACK (TYPE AC)>
12740                     <CALL '\1aLOAD-AC 5>
12741 PHRASE127
12742                     <SET TEMP10 'T (TYPE ATOM)>
12743                     <JUMP + EXIT102>
12744 PHRASE111
12745                     <RESTUV ACS73 2 = ACS73 (TYPE VECTOR)>
12746                     <JUMP + AGAIN107>
12747 EXIT102
12748                     <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
12749                     <JUMP + MAP44>
12750 MAPAP47
12751                     <RETURN TEMP10>
12752                     <DEAD TEMP10>
12753                     <END \1aLOOP!-MIMOC>
12754 #WORD *7127312635*
12755 <GFCN \1aINTGO!-MIMOC ("VALUE" ATOM ANY) L5>
12756                     <TEMP>
12757                     <INTGO>
12758                     <RETURN 'T>
12759                     <END \1aINTGO!-MIMOC>
12760 #WORD *14173600417*
12761 <GFCN \1aSAVE!-MIMOC ("VALUE" ANY LIST) L5>
12762                     <TEMP TEMP9>
12763                     <INTGO>
12764                     <FRAME '\1aUPDATE-ACS>
12765                     <CALL '\1aUPDATE-ACS 0>
12766                     <FRAME '\1aSMASH-AC>
12767                     <PUSH 'A1*>
12768                     <NTHL L5 1 = STACK>
12769                     <PUSH 'VALUE>
12770                     <CALL '\1aSMASH-AC 3>
12771                     <FRAME '\1aSMASH-AC>
12772                     <PUSH 'A2*>
12773                     <RESTL L5 1 = TEMP9 (TYPE LIST)>
12774                     <NTHL TEMP9 1 = STACK>
12775                     <DEAD TEMP9>
12776                     <PUSH 'VALUE>
12777                     <CALL '\1aSMASH-AC 3>
12778                     <FRAME '\1aSMASH-AC>
12779                     <PUSH 'B1*>
12780                     <RESTL L5 1 = TEMP9 (TYPE LIST)>
12781                     <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
12782                     <NTHL TEMP9 1 = STACK>
12783                     <DEAD TEMP9>
12784                     <PUSH 'VALUE>
12785                     <CALL '\1aSMASH-AC 3>
12786                     <FRAME '\1aPUSHJ>
12787                     <PUSH 'SAVE>
12788                     <NTHL L5 5 = STACK>
12789                     <DEAD L5>
12790                     <CALL '\1aPUSHJ 2 = TEMP9>
12791                     <RETURN TEMP9>
12792                     <DEAD TEMP9>
12793                     <END \1aSAVE!-MIMOC>
12794 #WORD *6746151666*
12795 <GFCN \1aRESTORE!-MIMOC ("VALUE" ANY LIST) L5>
12796                     <TEMP TEMP8>
12797                     <INTGO>
12798                     <FRAME '\1aSMASH-AC>
12799                     <PUSH 'A1*>
12800                     <NTHL L5 1 = STACK>
12801                     <PUSH 'VALUE>
12802                     <CALL '\1aSMASH-AC 3>
12803                     <FRAME '\1aPUSHJ>
12804                     <PUSH 'RESTORE>
12805                     <RESTL L5 1 = TEMP8 (TYPE LIST)>
12806                     <DEAD L5>
12807                     <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
12808                     <NTHL TEMP8 1 = STACK>
12809                     <DEAD TEMP8>
12810                     <CALL '\1aPUSHJ 2 = TEMP8>
12811                     <RETURN TEMP8>
12812                     <DEAD TEMP8>
12813                     <END \1aRESTORE!-MIMOC>
12814 #WORD *24677170745*
12815 <GFCN \1aQUIT!-MIMOC ("VALUE" ANY ANY) L4>
12816                     <TEMP TEMP11>
12817                     <INTGO>
12818                     <FRAME '\1aUPDATE-ACS>
12819                     <CALL '\1aUPDATE-ACS 0>
12820                     <EMPTY? L4 + PHRASE7>
12821                     <FRAME '\1aSMASH-AC>
12822                     <PUSH 'A2*>
12823                     <NTH1 L4 = STACK>
12824                     <DEAD L4>
12825                     <PUSH 'VALUE>
12826                     <CALL '\1aSMASH-AC 3>
12827                     <FRAME '\1aSMASH-AC>
12828                     <PUSH 'A1*>
12829                     <PUSH -262141>
12830                     <PUSH 'VALUE>
12831                     <CALL '\1aSMASH-AC 3>
12832 PHRASE7
12833                     <FRAME '\1aPUSHJ>
12834                     <PUSH 'QUIT>
12835                     <CALL '\1aPUSHJ 1 = TEMP11>
12836                     <RETURN TEMP11>
12837                     <DEAD TEMP11>
12838                     <END \1aQUIT!-MIMOC>
12839 #WORD *21450120207*
12840 <GFCN \1aSETSIZ!-MIMOC ("VALUE" ANY LIST) L5>
12841                     <TEMP TEMP9>
12842                     <INTGO>
12843                     <FRAME '\1aUPDATE-ACS>
12844                     <CALL '\1aUPDATE-ACS 0>
12845                     <FRAME '\1aSMASH-AC>
12846                     <PUSH 'A1*>
12847                     <NTHL L5 1 = STACK>
12848                     <PUSH 'BOTH>
12849                     <CALL '\1aSMASH-AC 3>
12850                     <FRAME '\1aPUSHJ>
12851                     <PUSH 'SETSIZ>
12852                     <RESTL L5 1 = TEMP9 (TYPE LIST)>
12853                     <DEAD L5>
12854                     <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
12855                     <NTHL TEMP9 1 = STACK>
12856                     <DEAD TEMP9>
12857                     <CALL '\1aPUSHJ 2 = TEMP9>
12858                     <RETURN TEMP9>
12859                     <DEAD TEMP9>
12860                     <END \1aSETSIZ!-MIMOC>
12861 #WORD *22212040166*
12862 <GFCN \1aRNTIME!-MIMOC ("VALUE" ANY LIST) L5>
12863                     <TEMP TEMP10>
12864                     <INTGO>
12865                     <FRAME '\1aUPDATE-ACS>
12866                     <CALL '\1aUPDATE-ACS 0>
12867                     <EMPL? L5 - PHRASE8 (TYPE LIST)>
12868                     <FRAME '\1aPUSHJ>
12869                     <PUSH 'RNTIME>
12870                     <CALL '\1aPUSHJ 1 = TEMP10>
12871                     <RETURN TEMP10>
12872                     <DEAD TEMP10>
12873 PHRASE8
12874                     <FRAME '\1aPUSHJ>
12875                     <PUSH 'RNTIME>
12876                     <RESTL L5 1 = TEMP10 (TYPE LIST)>
12877                     <DEAD L5>
12878                     <NTHL TEMP10 1 = STACK>
12879                     <DEAD TEMP10>
12880                     <CALL '\1aPUSHJ 2 = TEMP10>
12881                     <RETURN TEMP10>
12882                     <DEAD TEMP10>
12883                     <END \1aRNTIME!-MIMOC>
12884 "Instructions for seedup of NTH,REST,EMPTY? and MONAD? of unknown type"
12885
12886 #WORD *16233203647*
12887 <GFCN \1aNTH1!-MIMOC ("VALUE" ANY ANY) L5>
12888                     <TEMP TEMP8>
12889                     <INTGO>
12890                     <FRAME '\1aNEW-FUNNY-CALL>
12891                     <PUSH 108>
12892                     <PUSH L5>
12893                     <CALL '\1aNEW-FUNNY-CALL 2>
12894                     <FRAME '\1aALTER-AC>
12895                     <PUSH 'A1*>
12896                     <RESTL L5 1 = TEMP8 (TYPE LIST)>
12897                     <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
12898                     <NTHL TEMP8 1 = STACK>
12899                     <DEAD TEMP8>
12900                     <CALL '\1aALTER-AC 2>
12901                     <FRAME '\1aPUSHJ-VAL>
12902                     <RESTL L5 1 = TEMP8 (TYPE LIST)>
12903                     <DEAD L5>
12904                     <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
12905                     <NTHL TEMP8 1 = STACK>
12906                     <DEAD TEMP8>
12907                     <CALL '\1aPUSHJ-VAL 1 = TEMP8>
12908                     <RETURN TEMP8>
12909                     <DEAD TEMP8>
12910                     <END \1aNTH1!-MIMOC>
12911 #WORD *16233203747*
12912 <GFCN \1aREST1!-MIMOC ("VALUE" ANY ANY) L5>
12913                     <TEMP TEMP8>
12914                     <INTGO>
12915                     <FRAME '\1aNEW-FUNNY-CALL>
12916                     <PUSH 109>
12917                     <PUSH L5>
12918                     <CALL '\1aNEW-FUNNY-CALL 2>
12919                     <FRAME '\1aALTER-AC>
12920                     <PUSH 'A1*>
12921                     <RESTL L5 1 = TEMP8 (TYPE LIST)>
12922                     <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
12923                     <NTHL TEMP8 1 = STACK>
12924                     <DEAD TEMP8>
12925                     <CALL '\1aALTER-AC 2>
12926                     <FRAME '\1aPUSHJ-VAL>
12927                     <RESTL L5 1 = TEMP8 (TYPE LIST)>
12928                     <DEAD L5>
12929                     <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
12930                     <NTHL TEMP8 1 = STACK>
12931                     <DEAD TEMP8>
12932                     <CALL '\1aPUSHJ-VAL 1 = TEMP8>
12933                     <RETURN TEMP8>
12934                     <DEAD TEMP8>
12935                     <END \1aREST1!-MIMOC>
12936 #WORD *10702137651*
12937 <GFCN \1aEMPTY?!-MIMOC ("VALUE" ANY ANY) L5>
12938                     <TEMP TEMP7>
12939                     <INTGO>
12940                     <FRAME '\1aFUNNY-PRED>
12941                     <PUSH 107>
12942                     <PUSH L5>
12943                     <DEAD L5>
12944                     <CALL '\1aFUNNY-PRED 2 = TEMP7>
12945                     <RETURN TEMP7>
12946                     <DEAD TEMP7>
12947                     <END \1aEMPTY?!-MIMOC>
12948 #WORD *10702137771*
12949 <GFCN \1aMONAD?!-MIMOC ("VALUE" ANY ANY) L5>
12950                     <TEMP TEMP7>
12951                     <INTGO>
12952                     <FRAME '\1aFUNNY-PRED>
12953                     <PUSH 110>
12954                     <PUSH L5>
12955                     <DEAD L5>
12956                     <CALL '\1aFUNNY-PRED 2 = TEMP7>
12957                     <RETURN TEMP7>
12958                     <DEAD TEMP7>
12959                     <END \1aMONAD?!-MIMOC>
12960 #WORD *13164171562*
12961 <GFCN \1aFUNNY-PRED ("VALUE" ANY ANY LIST) LOC5 L6>
12962                     <TEMP TEMP9 FLAG7>
12963                     <INTGO>
12964                     <RESTL L6 1 = TEMP9 (TYPE LIST)>
12965                     <NTHL TEMP9 1 = FLAG7>
12966                     <DEAD TEMP9>
12967                     <RESTL L6 1 = TEMP9 (TYPE LIST)>
12968                     <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
12969                     <NTHL TEMP9 1 = TEMP9>
12970                     <FRAME '\1aNEW-FUNNY-CALL>
12971                     <PUSH LOC5>
12972                     <DEAD LOC5>
12973                     <PUSH L6>
12974                     <DEAD L6>
12975                     <PUSH TEMP9>
12976                     <CALL '\1aNEW-FUNNY-CALL 3>
12977                     <EQUAL? FLAG7 '+ - PHRASE12>
12978                     <DEAD FLAG7>
12979                     <FRAME '\1aOCEMIT>
12980                     <PUSH 'CAIA>
12981                     <PUSH 'O*>
12982                     <PUSH 'O*>
12983                     <CALL '\1aOCEMIT 3>
12984 PHRASE12
12985                     <FRAME '\1aOCEMIT>
12986                     <PUSH 'JRST>
12987                     <FRAME '\1aXJUMP>
12988                     <PUSH TEMP9>
12989                     <DEAD TEMP9>
12990                     <CALL '\1aXJUMP 1 = STACK>
12991                     <CALL '\1aOCEMIT 2 = TEMP9>
12992                     <RETURN TEMP9>
12993                     <DEAD TEMP9>
12994                     <END \1aFUNNY-PRED>
12995 #WORD *2417276164*
12996 <GFCN \1aNEW-FUNNY-CALL ("VALUE" ANY ANY LIST "OPTIONAL" ANY) LOC6 L7 TAG8>
12997                     <OPT-DISPATCH 2 %<> OPT4 OPT5>
12998 OPT4
12999                     <PUSH %<>>
13000 OPT5
13001                     <TEMP AC9 TEMP29>
13002                     <INTGO>
13003                     <FRAME '\1aIN-AC?>
13004                     <NTHL L7 1 = STACK>
13005                     <PUSH 'BOTH>
13006                     <CALL '\1aIN-AC? 2 = AC9>
13007                     <EQUAL? AC9 'A1* + PHRASE20>
13008                     <FRAME '\1aFLUSH-AC>
13009                     <PUSH 'A1*>
13010                     <PUSH 'T>
13011                     <CALL '\1aFLUSH-AC 2>
13012                     <FRAME '\1aMUNGED-AC>
13013                     <PUSH 'A1*>
13014                     <PUSH 'T>
13015                     <CALL '\1aMUNGED-AC 2>
13016                     <TYPE? AC9 <TYPE-CODE FALSE> + PHRASE16>
13017                     <FRAME '\1aOCEMIT>
13018                     <PUSH 'DMOVE>
13019                     <PUSH 'A1*>
13020                     <PUSH AC9>
13021                     <CALL '\1aOCEMIT 3>
13022                     <FRAME '\1aMUNGED-AC>
13023                     <PUSH AC9>
13024                     <DEAD AC9>
13025                     <PUSH 'T>
13026                     <CALL '\1aMUNGED-AC 2>
13027                     <FRAME '\1aALTER-AC>
13028                     <PUSH 'A1*>
13029                     <NTHL L7 1 = STACK>
13030                     <CALL '\1aALTER-AC 2>
13031                     <JUMP + PHRASE20>
13032 PHRASE16
13033                     <FRAME '\1aSMASH-AC>
13034                     <PUSH 'A1*>
13035                     <NTHL L7 1 = STACK>
13036                     <PUSH 'BOTH>
13037                     <CALL '\1aSMASH-AC 3>
13038 PHRASE20
13039                     <TYPE? TAG8 <TYPE-CODE FALSE> + PHRASE23>
13040                     <FRAME '\1aLABEL-UPDATE-ACS>
13041                     <PUSH TAG8>
13042                     <DEAD TAG8>
13043                     <PUSH %<>>
13044                     <CALL '\1aLABEL-UPDATE-ACS 2>
13045                     <JUMP + PHRASE25>
13046 PHRASE23
13047                     <NTHL L7 1 = AC9>
13048                     <RESTL L7 1 = TEMP29 (TYPE LIST)>
13049                     <RESTL TEMP29 1 = TEMP29 (TYPE LIST)>
13050                     <NTHL TEMP29 1 = TEMP29>
13051                     <EQUAL? AC9 TEMP29 + PHRASE32>
13052                     <DEAD AC9 TEMP29>
13053                     <FRAME '\1aCLEAN-ACS>
13054                     <RESTL L7 1 = TEMP29 (TYPE LIST)>
13055                     <RESTL TEMP29 1 = TEMP29 (TYPE LIST)>
13056                     <NTHL TEMP29 1 = STACK>
13057                     <DEAD TEMP29>
13058                     <CALL '\1aCLEAN-ACS 1>
13059                     <FRAME '\1aWILL-DIE?>
13060                     <NTHL L7 1 = STACK>
13061                     <DEAD L7>
13062                     <CALL '\1aWILL-DIE? 1 = TEMP29>
13063                     <TYPE? TEMP29 <TYPE-CODE FALSE> - PHRASE32>
13064                     <DEAD TEMP29>
13065                     <FRAME '\1aFLUSH-AC>
13066                     <PUSH 'A1*>
13067                     <PUSH 'T>
13068                     <CALL '\1aFLUSH-AC 2>
13069 PHRASE32
13070                     <FRAME '\1aMUNGED-AC>
13071                     <PUSH 'A1*>
13072                     <PUSH 'T>
13073                     <CALL '\1aMUNGED-AC 2>
13074 PHRASE25
13075                     <FRAME '\1aOCEMIT>
13076                     <PUSH 'JSP>
13077                     <PUSH 'T*>
13078                     <PUSH '@>
13079                     <PUSH LOC6>
13080                     <DEAD LOC6>
13081                     <CALL '\1aOCEMIT 4 = TEMP29>
13082                     <RETURN TEMP29>
13083                     <DEAD TEMP29>
13084                     <END \1aNEW-FUNNY-CALL>
13085 #WORD *31320264040*
13086 <GFCN \1aLEGAL?!-MIMOC ("VALUE" ANY LIST) L5>
13087                     <TEMP TEMP9>
13088                     <INTGO>
13089                     <FRAME '\1aFLUSH-AC>
13090                     <PUSH 'A1*>
13091                     <PUSH 'T>
13092                     <CALL '\1aFLUSH-AC 2>
13093                     <FRAME '\1aSMASH-AC>
13094                     <PUSH 'A1*>
13095                     <NTHL L5 1 = STACK>
13096                     <PUSH 'BOTH>
13097                     <CALL '\1aSMASH-AC 3>
13098                     <FRAME '\1aPUSHJ>
13099                     <PUSH 'LEGAL?>
13100                     <RESTL L5 1 = TEMP9 (TYPE LIST)>
13101                     <DEAD L5>
13102                     <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
13103                     <NTHL TEMP9 1 = STACK>
13104                     <DEAD TEMP9>
13105                     <CALL '\1aPUSHJ 2 = TEMP9>
13106                     <RETURN TEMP9>
13107                     <DEAD TEMP9>
13108                     <END \1aLEGAL?!-MIMOC>
13109 #WORD *7257070127*
13110 <GFCN \1aSETZONE!-MIMOC ("VALUE" ANY LIST) L5>
13111                     <TEMP TEMP9 TEMP10:FIX>
13112                     <INTGO>
13113                     <FRAME '\1aSMASH-AC>
13114                     <PUSH 'A1*>
13115                     <NTHL L5 1 = STACK>
13116                     <PUSH 'BOTH>
13117                     <CALL '\1aSMASH-AC 3>
13118                     <SET TEMP9 L5>
13119                     <SET TEMP10 3 (TYPE FIX)>
13120                     <LOOP (TEMP9 VALUE) (TEMP10 VALUE)>
13121 TAG11
13122                     <EMPL? TEMP9 + PHRASE8>
13123                     <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
13124                     <SUB TEMP10 1 = TEMP10 (TYPE FIX)>
13125                     <GRTR? TEMP10 0 + TAG11 (TYPE FIX)>
13126                     <EMPL? TEMP9 - PHRASE8>
13127                     <DEAD TEMP9>
13128                     <FRAME '\1aPUSHJ>
13129                     <PUSH 'SETZONE>
13130                     <RESTL L5 1 = TEMP9 (TYPE LIST)>
13131                     <DEAD L5>
13132                     <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
13133                     <NTHL TEMP9 1 = STACK>
13134                     <DEAD TEMP9>
13135                     <CALL '\1aPUSHJ 2 = TEMP9>
13136                     <RETURN TEMP9>
13137                     <DEAD TEMP9>
13138 PHRASE8
13139                     <FRAME '\1aPUSHJ>
13140                     <PUSH 'SETZONE>
13141                     <CALL '\1aPUSHJ 1 = TEMP9>
13142                     <RETURN TEMP9>
13143                     <DEAD TEMP9>
13144                     <END \1aSETZONE!-MIMOC>
13145 #WORD *34030413472*
13146 <GFCN \1aTYPEW!-MIMOC ("VALUE" ANY LIST) L5>
13147                     <TEMP TEMP8 TEMP7>
13148                     <INTGO>
13149                     <FRAME '\1aOCEMIT>
13150                     <PUSH 'MOVE>
13151                     <PUSH 'O1*>
13152                     <SET TEMP8 2 (TYPE FIX)>
13153                     <SFRAME 'OBJ-VAL>
13154                     <NTHL L5 1 = STACK>
13155                     <SCALL '\1aOBJ-VAL 1 = TEMP7 + TAG6 TEMP8>
13156                     <LOOP (TEMP7 TYPE VALUE LENGTH) (TEMP8 VALUE)>
13157 TAG10
13158                     <INTGO>
13159                     <EMPTY? TEMP7 + TAG6>
13160                     <NTH1 TEMP7 = STACK>
13161                     <REST1 TEMP7 = TEMP7>
13162                     <ADD TEMP8 1 = TEMP8 (TYPE FIX)>
13163                     <JUMP + TAG10>
13164 TAG6
13165                     <CALL '\1aOCEMIT TEMP8>
13166                     <DEAD TEMP8>
13167                     <FRAME '\1aOCEMIT>
13168                     <PUSH 'MOVE>
13169                     <PUSH 'O2*>
13170                     <SET TEMP7 2 (TYPE FIX)>
13171                     <SFRAME 'OBJ-VAL>
13172                     <RESTL L5 1 = TEMP8 (TYPE LIST)>
13173                     <NTHL TEMP8 1 = STACK>
13174                     <DEAD TEMP8>
13175                     <SCALL '\1aOBJ-VAL 1 = TEMP8 + TAG12 TEMP7>
13176                     <LOOP (TEMP8 TYPE VALUE LENGTH) (TEMP7 VALUE)>
13177 TAG15
13178                     <INTGO>
13179                     <EMPTY? TEMP8 + TAG12>
13180                     <NTH1 TEMP8 = STACK>
13181                     <REST1 TEMP8 = TEMP8>
13182                     <ADD TEMP7 1 = TEMP7 (TYPE FIX)>
13183                     <JUMP + TAG15>
13184 TAG12
13185                     <CALL '\1aOCEMIT TEMP7>
13186                     <DEAD TEMP7>
13187                     <FRAME '\1aPUSHJ>
13188                     <PUSH 'TYPEW>
13189                     <RESTL L5 1 = TEMP8 (TYPE LIST)>
13190                     <DEAD L5>
13191                     <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
13192                     <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
13193                     <NTHL TEMP8 1 = STACK>
13194                     <DEAD TEMP8>
13195                     <CALL '\1aPUSHJ 2 = TEMP8>
13196                     <RETURN TEMP8>
13197                     <DEAD TEMP8>
13198                     <END \1aTYPEW!-MIMOC>
13199 #WORD *6634222230*
13200 <GFCN \1aTYPEWC!-MIMOC ("VALUE" AC LIST) L5>
13201                     <TEMP TEMP8 AC6 TEMP11>
13202                     <INTGO>
13203                     <FRAME '\1aASSIGN-AC>
13204                     <RESTL L5 1 = TEMP8 (TYPE LIST)>
13205                     <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
13206                     <NTHL TEMP8 1 = STACK>
13207                     <DEAD TEMP8>
13208                     <PUSH 'BOTH>
13209                     <CALL '\1aASSIGN-AC 2 = AC6>
13210                     <FRAME '\1aOCEMIT>
13211                     <PUSH 'HLRZ>
13212                     <FRAME '\1aNEXT-AC>
13213                     <PUSH AC6>
13214                     <CALL '\1aNEXT-AC 1 = STACK>
13215                     <SET TEMP11 2 (TYPE FIX)>
13216                     <SFRAME 'OBJ-VAL>
13217                     <NTHL L5 1 = STACK>
13218                     <DEAD L5>
13219                     <SCALL '\1aOBJ-VAL 1 = TEMP8 + TAG9 TEMP11>
13220                     <LOOP (TEMP8 TYPE VALUE LENGTH) (TEMP11 VALUE)>
13221 TAG13
13222                     <INTGO>
13223                     <EMPTY? TEMP8 + TAG9>
13224                     <NTH1 TEMP8 = STACK>
13225                     <REST1 TEMP8 = TEMP8>
13226                     <ADD TEMP11 1 = TEMP11 (TYPE FIX)>
13227                     <JUMP + TAG13>
13228 TAG9
13229                     <CALL '\1aOCEMIT TEMP11>
13230                     <DEAD TEMP11>
13231                     <FRAME '\1aGET-AC>
13232                     <PUSH AC6>
13233                     <DEAD AC6>
13234                     <CALL '\1aGET-AC 1 = TEMP11>
13235                     <PUTUV TEMP11 6 'TYPE-C>
13236                     <RETURN TEMP11>
13237                     <DEAD TEMP11>
13238                     <END \1aTYPEWC!-MIMOC>
13239 #WORD *11571711125*
13240 <GFCN \1aFATAL!-MIMOC ("VALUE" ANY LIST) L4>
13241                     <TEMP TEMP8>
13242                     <INTGO>
13243                     <FRAME '\1aSMASH-AC>
13244                     <PUSH 'A1*>
13245                     <NTHL L4 1 = STACK>
13246                     <PUSH 'BOTH>
13247                     <CALL '\1aSMASH-AC 3>
13248                     <RESTL L4 1 = TEMP8 (TYPE LIST)>
13249                     <EMPL? TEMP8 - PHRASE7 (TYPE LIST)>
13250                     <DEAD TEMP8>
13251                     <FRAME '\1aPUSHJ>
13252                     <PUSH 'FATAL>
13253                     <CALL '\1aPUSHJ 1 = TEMP8>
13254                     <RETURN TEMP8>
13255                     <DEAD TEMP8>
13256 PHRASE7
13257                     <FRAME '\1aPUSHJ>
13258                     <PUSH 'FATAL>
13259                     <RESTL L4 1 = TEMP8 (TYPE LIST)>
13260                     <DEAD L4>
13261                     <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
13262                     <NTHL TEMP8 1 = STACK>
13263                     <DEAD TEMP8>
13264                     <CALL '\1aPUSHJ 2 = TEMP8>
13265                     <RETURN TEMP8>
13266                     <DEAD TEMP8>
13267                     <END \1aFATAL!-MIMOC>
13268 #WORD *31414210660*
13269 <GFCN \1aGETBITS!-MIMOC ("VALUE" <OR FALSE FIX> LIST) L4>
13270                     <TEMP WD5 TEMP19 WL6 SHL7 DST8 TAC?9 AC?12 (OL13 %<>) (W15:FIX 0) (SH16:FIX 0) (IX17 %<>) TEMP29 BP11 TEMP36 TEMP44>
13271                     <INTGO>
13272                     <NTHL L4 1 = WD5>
13273                     <RESTL L4 1 = TEMP19 (TYPE LIST)>
13274                     <NTHL TEMP19 1 = WL6>
13275                     <DEAD TEMP19>
13276                     <RESTL L4 1 = TEMP19 (TYPE LIST)>
13277                     <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
13278                     <NTHL TEMP19 1 = SHL7>
13279                     <DEAD TEMP19>
13280                     <NTHL L4 5 = DST8>
13281                     <DEAD L4>
13282                     <FRAME '\1aIN-AC?>
13283                     <PUSH WD5>
13284                     <PUSH 'BOTH>
13285                     <CALL '\1aIN-AC? 2 = TAC?9>
13286                     <FRAME '\1aIN-AC?>
13287                     <PUSH WD5>
13288                     <PUSH 'VALUE>
13289                     <CALL '\1aIN-AC? 2 = AC?12>
13290                     <TYPE? WL6 <TYPE-CODE FIX> - PHRASE23>
13291                     <SET W15 WL6>
13292 PHRASE23
13293                     <TYPE? SHL7 <TYPE-CODE FIX> - PHRASE25>
13294                     <SET SH16 SHL7>
13295 PHRASE25
13296                     <TYPE? WD5 <TYPE-CODE ATOM> - PHRASE27>
13297                     <FRAME '\1aOBJ-LOC>
13298                     <PUSH WD5>
13299                     <PUSH 1>
13300                     <CALL '\1aOBJ-LOC 2 = OL13>
13301 PHRASE27
13302                     <LSH SH16 30 = TEMP19 (TYPE FIX)>
13303                     <LSH W15 24 = TEMP29 (TYPE FIX)>
13304                     <OR TEMP19 TEMP29 = BP11>
13305                     <DEAD TEMP19 TEMP29>
13306                     <TYPE? AC?12 <TYPE-CODE FALSE> + PHRASE31>
13307                     <GVAL 'ACS = TEMP29>
13308                     <TYPE AC?12 = TEMP19>
13309                     <EMPUV? TEMP29 + TAG32>
13310                     <LOOP (AC?12 VALUE) (TEMP19 VALUE) (TEMP29 LENGTH VALUE)>
13311 TAG34
13312                     <NTHUV TEMP29 1 = TEMP36>
13313                     <TYPE? TEMP36 TEMP19 - TAG35>
13314                     <VEQUAL? TEMP36 AC?12 + TAG33>
13315                     <DEAD TEMP36>
13316 TAG35
13317                     <RESTUV TEMP29 1 = TEMP29 (TYPE VECTOR)>
13318                     <EMPUV? TEMP29 - TAG34>
13319 TAG32
13320                     <SET TEMP29 %<> (TYPE FALSE)>
13321 TAG33
13322                     <NTHUV TEMP29 2 = TEMP36>
13323                     <DEAD TEMP29>
13324 PHRASE31
13325                     <TYPE? AC?12 <TYPE-CODE FALSE> + PHRASE38>
13326                     <OR BP11 TEMP36 = TEMP29>
13327                     <DEAD BP11 TEMP36>
13328                     <CHTYPE TEMP29 <TYPE-CODE CONSTANT> = BP11>
13329                     <DEAD TEMP29>
13330                     <JUMP + PHRASE39>
13331 PHRASE38
13332                     <TYPE? OL13 <TYPE-CODE FALSE> + PHRASE39>
13333                     <RESTL OL13 1 = TEMP29 (TYPE LIST)>
13334                     <RESTL TEMP29 1 = TEMP29 (TYPE LIST)>
13335                     <NTHL TEMP29 1 = TEMP29>
13336                     <NTHL TEMP29 1 = TEMP29>
13337                     <GVAL 'ACS = TEMP19>
13338                     <TYPE TEMP29 = TEMP36>
13339                     <EMPUV? TEMP19 + TAG40>
13340                     <LOOP (TEMP29 VALUE) (TEMP36 VALUE) (TEMP19 LENGTH VALUE)>
13341 TAG42
13342                     <NTHUV TEMP19 1 = TEMP44>
13343                     <TYPE? TEMP44 TEMP36 - TAG43>
13344                     <VEQUAL? TEMP44 TEMP29 + TAG41>
13345                     <DEAD TEMP44>
13346 TAG43
13347                     <RESTUV TEMP19 1 = TEMP19 (TYPE VECTOR)>
13348                     <EMPUV? TEMP19 - TAG42>
13349 TAG40
13350                     <SET TEMP19 %<> (TYPE FALSE)>
13351 TAG41
13352                     <NTHUV TEMP19 2 = TEMP19 (TYPE FIX)>
13353                     <LSH TEMP19 18 = TEMP19 (TYPE FIX)>
13354                     <NTHL OL13 1 = TEMP36>
13355                     <ADD TEMP19 TEMP36 = TEMP19 (TYPE FIX)>
13356                     <DEAD TEMP36>
13357                     <ADD TEMP19 BP11 = TEMP19 (TYPE FIX)>
13358                     <DEAD BP11>
13359                     <CONS TEMP19 () = TEMP19>
13360                     <RESTL OL13 1 = TEMP36 (TYPE LIST)>
13361                     <DEAD OL13>
13362                     <NTHL TEMP36 1 = TEMP36>
13363                     <CONS TEMP36 TEMP19 = TEMP19>
13364                     <DEAD TEMP36>
13365                     <CHTYPE TEMP19 <TYPE-CODE CONST-W-LOCAL> = BP11>
13366                     <DEAD TEMP19>
13367 PHRASE39
13368                     <TYPE? WL6 <TYPE-CODE FIX> - PHRASE46>
13369                     <TYPE? SHL7 <TYPE-CODE FIX> - PHRASE46>
13370                     <FRAME '\1aASSIGN-AC>
13371                     <PUSH DST8>
13372                     <PUSH 'BOTH>
13373                     <PUSH 'T>
13374                     <CALL '\1aASSIGN-AC 3 = OL13>
13375                     <FRAME '\1aCONST-LOC>
13376                     <PUSH BP11>
13377                     <PUSH 'VALUE>
13378                     <CALL '\1aCONST-LOC 2>
13379                     <FRAME '\1aOCEMIT>
13380                     <PUSH 'LDB>
13381                     <FRAME '\1aNEXT-AC>
13382                     <PUSH OL13>
13383                     <CALL '\1aNEXT-AC 1 = STACK>
13384                     <SET TEMP36 2 (TYPE FIX)>
13385                     <SFRAME 'OBJ-VAL>
13386                     <PUSH BP11>
13387                     <DEAD BP11>
13388                     <SCALL '\1aOBJ-VAL 1 = TEMP19 + TAG50 TEMP36>
13389                     <LOOP (TEMP19 TYPE VALUE LENGTH) (TEMP36 VALUE)>
13390 TAG53
13391                     <INTGO>
13392                     <EMPTY? TEMP19 + TAG50>
13393                     <NTH1 TEMP19 = STACK>
13394                     <REST1 TEMP19 = TEMP19>
13395                     <ADD TEMP36 1 = TEMP36 (TYPE FIX)>
13396                     <JUMP + TAG53>
13397 TAG50
13398                     <CALL '\1aOCEMIT TEMP36>
13399                     <DEAD TEMP36>
13400                     <FRAME '\1aGET-AC>
13401                     <PUSH OL13>
13402                     <CALL '\1aGET-AC 1 = TEMP36>
13403                     <PUTUV TEMP36 6 'FIX>
13404                     <DEAD TEMP36>
13405                     <JUMP + PHRASE172>
13406 PHRASE46
13407                     <TYPE? WL6 <TYPE-CODE FIX> - PHRASE56>
13408                     <TYPE? AC?12 <TYPE-CODE FALSE> + BOOL61>
13409                     <EQUAL? DST8 WD5 + PHRASE58>
13410                     <FRAME '\1aWILL-DIE?>
13411                     <PUSH WD5>
13412                     <CALL '\1aWILL-DIE? 1 = TEMP36>
13413                     <TYPE? TEMP36 <TYPE-CODE FALSE> + BOOL61>
13414                     <DEAD TEMP36>
13415                     <FRAME '\1aDEAD!-MIMOC>
13416                     <CONS WD5 () = STACK>
13417                     <DEAD WD5>
13418                     <PUSH 'T>
13419                     <CALL '\1aDEAD!-MIMOC 2>
13420                     <JUMP + PHRASE58>
13421 BOOL61
13422                     <FRAME '\1aASSIGN-AC>
13423                     <EQUAL? SHL7 DST8 - PHRASE68>
13424                     <FRAME '\1aIN-AC?>
13425                     <PUSH SHL7>
13426                     <PUSH 'VALUE>
13427                     <CALL '\1aIN-AC? 2 = TEMP29>
13428                     <TYPE? TEMP29 <TYPE-CODE FALSE> + PHRASE68>
13429                     <DEAD TEMP29>
13430                     <SET TEMP29 WD5>
13431                     <JUMP + PHRASE71>
13432 PHRASE68
13433                     <SET TEMP29 DST8>
13434 PHRASE71
13435                     <PUSH TEMP29>
13436                     <DEAD TEMP29>
13437                     <PUSH 'BOTH>
13438                     <PUSH 'T>
13439                     <CALL '\1aASSIGN-AC 3 = OL13>
13440                     <FRAME '\1aGET-AC>
13441                     <PUSH OL13>
13442                     <CALL '\1aGET-AC 1 = TEMP29>
13443                     <PUTUV TEMP29 6 'FIX>
13444                     <DEAD TEMP29>
13445                     <FRAME '\1aNEXT-AC>
13446                     <PUSH OL13>
13447                     <DEAD OL13>
13448                     <CALL '\1aNEXT-AC 1 = OL13>
13449                     <FRAME '\1aOCEMIT>
13450                     <PUSH 'MOVE>
13451                     <PUSH OL13>
13452                     <SET TEMP44 2 (TYPE FIX)>
13453                     <SFRAME 'OBJ-VAL>
13454                     <PUSH WD5>
13455                     <DEAD WD5>
13456                     <SCALL '\1aOBJ-VAL 1 = TEMP29 + TAG74 TEMP44>
13457                     <LOOP (TEMP29 TYPE VALUE LENGTH) (TEMP44 VALUE)>
13458 TAG76
13459                     <INTGO>
13460                     <EMPTY? TEMP29 + TAG74>
13461                     <NTH1 TEMP29 = STACK>
13462                     <REST1 TEMP29 = TEMP29>
13463                     <ADD TEMP44 1 = TEMP44 (TYPE FIX)>
13464                     <JUMP + TAG76>
13465 TAG74
13466                     <CALL '\1aOCEMIT TEMP44>
13467                     <DEAD TEMP44>
13468                     <JUMP + PHRASE81>
13469 PHRASE58
13470                     <TYPE? TAC?9 <TYPE-CODE FALSE> + PHRASE78>
13471                     <FRAME '\1aGET-AC>
13472                     <PUSH TAC?9>
13473                     <CALL '\1aGET-AC 1 = TEMP44>
13474                     <PUTUV TEMP44 6 'FIX>
13475                     <DEAD TEMP44>
13476                     <SET OL13 AC?12>
13477                     <DEAD AC?12>
13478                     <FRAME '\1aALTER-AC>
13479                     <PUSH TAC?9>
13480                     <DEAD TAC?9>
13481                     <PUSH DST8>
13482                     <CALL '\1aALTER-AC 2>
13483                     <JUMP + PHRASE81>
13484 PHRASE78
13485                     <FRAME '\1aASSIGN-AC>
13486                     <PUSH DST8>
13487                     <PUSH 'BOTH>
13488                     <PUSH 'T>
13489                     <CALL '\1aASSIGN-AC 3 = OL13>
13490                     <FRAME '\1aGET-AC>
13491                     <PUSH OL13>
13492                     <CALL '\1aGET-AC 1 = TEMP44>
13493                     <PUTUV TEMP44 6 'FIX>
13494                     <DEAD TEMP44>
13495                     <FRAME '\1aOCEMIT>
13496                     <PUSH 'MOVE>
13497                     <FRAME '\1aNEXT-AC>
13498                     <PUSH OL13>
13499                     <DEAD OL13>
13500                     <CALL '\1aNEXT-AC 1 = OL13>
13501                     <PUSH OL13>
13502                     <PUSH AC?12>
13503                     <DEAD AC?12>
13504                     <CALL '\1aOCEMIT 3>
13505 PHRASE81
13506                     <FRAME '\1aFLUSH-AC>
13507                     <PUSH 'T*>
13508                     <CALL '\1aFLUSH-AC 1>
13509                     <FRAME '\1aMUNGED-AC>
13510                     <PUSH 'T*>
13511                     <CALL '\1aMUNGED-AC 1>
13512                     <FRAME '\1aOCEMIT>
13513                     <PUSH 'MOVN>
13514                     <PUSH 'T*>
13515                     <SET TEMP29 2 (TYPE FIX)>
13516                     <SFRAME 'OBJ-VAL>
13517                     <PUSH SHL7>
13518                     <SCALL '\1aOBJ-VAL 1 = TEMP44 + TAG88 TEMP29>
13519                     <LOOP (TEMP44 TYPE VALUE LENGTH) (TEMP29 VALUE)>
13520 TAG90
13521                     <INTGO>
13522                     <EMPTY? TEMP44 + TAG88>
13523                     <NTH1 TEMP44 = STACK>
13524                     <REST1 TEMP44 = TEMP44>
13525                     <ADD TEMP29 1 = TEMP29 (TYPE FIX)>
13526                     <JUMP + TAG90>
13527 TAG88
13528                     <CALL '\1aOCEMIT TEMP29>
13529                     <DEAD TEMP29>
13530                     <FRAME '\1aOCEMIT>
13531                     <PUSH 'LSH>
13532                     <PUSH OL13>
13533                     <PUSH (T*)>
13534                     <CALL '\1aOCEMIT 3>
13535                     <LSH -1 W15 = TEMP29 (TYPE FIX)>
13536                     <DEAD W15>
13537                     <XOR TEMP29 #WORD *777777777777* = W15>
13538                     <DEAD TEMP29>
13539                     <GRTR? W15 262143 + PHRASE94 (TYPE FIX)>
13540                     <FRAME '\1aOCEMIT>
13541                     <PUSH 'ANDI>
13542                     <PUSH OL13>
13543                     <PUSH W15>
13544                     <DEAD W15>
13545                     <CALL '\1aOCEMIT 3>
13546                     <JUMP + PHRASE96>
13547 PHRASE94
13548                     <FRAME '\1aOCEMIT>
13549                     <PUSH 'TLZ>
13550                     <PUSH OL13>
13551                     <XOR W15 #WORD *777777777777* = TEMP29>
13552                     <DEAD W15>
13553                     <LSH TEMP29 -18 = STACK (TYPE FIX)>
13554                     <DEAD TEMP29>
13555                     <CALL '\1aOCEMIT 3>
13556 PHRASE96
13557                     <EQUAL? DST8 SHL7 - PHRASE172>
13558                     <DEAD SHL7>
13559                     <FRAME '\1aCLEAN-ACS>
13560                     <PUSH DST8>
13561                     <CALL '\1aCLEAN-ACS 1>
13562                     <FRAME '\1aALTER-AC>
13563                     <FRAME '\1aGETPROP>
13564                     <PUSH OL13>
13565                     <PUSH 'AC-PAIR>
13566                     <CALL '\1aGETPROP 2 = TEMP29>
13567                     <PUSH TEMP29>
13568                     <DEAD TEMP29>
13569                     <PUSH DST8>
13570                     <CALL '\1aALTER-AC 2>
13571                     <SETG 'ACA-ITEM %<>>
13572                     <SETG 'ACA-BOTH %<>>
13573                     <SETG 'ACA-AC %<>>
13574                     <FRAME '\1aGET-AC>
13575                     <FRAME '\1aGETPROP>
13576                     <PUSH OL13>
13577                     <PUSH 'AC-PAIR>
13578                     <CALL '\1aGETPROP 2 = TEMP29>
13579                     <PUSH TEMP29>
13580                     <DEAD TEMP29>
13581                     <CALL '\1aGET-AC 1 = TEMP29>
13582                     <PUTUV TEMP29 6 'FIX>
13583                     <DEAD TEMP29>
13584                     <JUMP + PHRASE172>
13585 PHRASE56
13586                     <TYPE? SHL7 <TYPE-CODE FIX> - PHRASE105>
13587                     <TYPE? TAC?9 <TYPE-CODE FALSE> + PHRASE107>
13588                     <EQUAL? WD5 DST8 + BOOL109>
13589                     <FRAME '\1aWILL-DIE?>
13590                     <PUSH WD5>
13591                     <CALL '\1aWILL-DIE? 1 = TEMP29>
13592                     <TYPE? TEMP29 <TYPE-CODE FALSE> + PHRASE107>
13593                     <DEAD TEMP29>
13594 BOOL109
13595                     <SET OL13 'O* (TYPE ATOM)>
13596                     <JUMP + PHRASE111>
13597 PHRASE107
13598                     <EQUAL? WL6 DST8 - PHRASE122>
13599                     <FRAME '\1aIN-AC?>
13600                     <PUSH WL6>
13601                     <PUSH 'BOTH>
13602                     <CALL '\1aIN-AC? 2 = OL13>
13603                     <TYPE? OL13 <TYPE-CODE FALSE> + PHRASE115>
13604                     <FRAME '\1aNEXT-AC>
13605                     <PUSH OL13>
13606                     <CALL '\1aNEXT-AC 1 = IX17>
13607                     <FRAME '\1aMUNGED-AC>
13608                     <PUSH OL13>
13609                     <PUSH 'T>
13610                     <CALL '\1aMUNGED-AC 2>
13611                     <FRAME '\1aGET-AC>
13612                     <PUSH OL13>
13613                     <CALL '\1aGET-AC 1 = TEMP29>
13614                     <GVAL 'AC-STAMP = TEMP44>
13615                     <PUTUV TEMP29 4 TEMP44 (TYPE FIX)>
13616                     <DEAD TEMP29 TEMP44>
13617                     <FRAME '\1aGET-AC>
13618                     <FRAME '\1aNEXT-AC>
13619                     <PUSH OL13>
13620                     <DEAD OL13>
13621                     <CALL '\1aNEXT-AC 1 = STACK>
13622                     <CALL '\1aGET-AC 1 = TEMP29>
13623                     <GVAL 'AC-STAMP = TEMP44>
13624                     <PUTUV TEMP29 4 TEMP44 (TYPE FIX)>
13625                     <DEAD TEMP29 TEMP44>
13626                     <JUMP + PHRASE122>
13627 PHRASE115
13628                     <FRAME '\1aIN-AC?>
13629                     <PUSH WL6>
13630                     <PUSH 'VALUE>
13631                     <CALL '\1aIN-AC? 2 = OL13>
13632                     <TYPE? OL13 <TYPE-CODE FALSE> + PHRASE122>
13633                     <SET IX17 OL13>
13634                     <FRAME '\1aGET-AC>
13635                     <PUSH OL13>
13636                     <CALL '\1aGET-AC 1 = TEMP29>
13637                     <GVAL 'AC-STAMP = TEMP44>
13638                     <PUTUV TEMP29 4 TEMP44 (TYPE FIX)>
13639                     <DEAD TEMP29 TEMP44>
13640                     <FRAME '\1aMUNGED-AC>
13641                     <PUSH OL13>
13642                     <DEAD OL13>
13643                     <CALL '\1aMUNGED-AC 1>
13644 PHRASE122
13645                     <FRAME '\1aGET-AC>
13646                     <FRAME '\1aASSIGN-AC>
13647                     <PUSH DST8>
13648                     <PUSH 'BOTH>
13649                     <PUSH 'T>
13650                     <CALL '\1aASSIGN-AC 3 = OL13>
13651                     <PUSH OL13>
13652                     <CALL '\1aGET-AC 1 = TEMP29>
13653                     <PUTUV TEMP29 6 'FIX>
13654                     <DEAD TEMP29>
13655                     <FRAME '\1aNEXT-AC>
13656                     <PUSH OL13>
13657                     <DEAD OL13>
13658                     <CALL '\1aNEXT-AC 1 = OL13>
13659 PHRASE111
13660                     <LSH -1 SH16 = W15 (TYPE FIX)>
13661                     <AND W15 #WORD *777777* = TEMP29>
13662                     <VEQUAL? TEMP29 0 - PHRASE130 (TYPE FIX)>
13663                     <DEAD TEMP29>
13664                     <FRAME '\1aOCEMIT>
13665                     <PUSH 'MOVSI>
13666                     <PUSH OL13>
13667                     <LSH W15 -18 = STACK (TYPE FIX)>
13668                     <DEAD W15>
13669                     <CALL '\1aOCEMIT 3>
13670                     <JUMP + PHRASE134>
13671 PHRASE130
13672                     <FRAME '\1aOCEMIT>
13673                     <PUSH 'HRROI>
13674                     <PUSH OL13>
13675                     <AND W15 #WORD *777777* = STACK>
13676                     <DEAD W15>
13677                     <CALL '\1aOCEMIT 3>
13678 PHRASE134
13679                     <FRAME '\1aOCEMIT>
13680                     <PUSH 'LSH>
13681                     <PUSH OL13>
13682                     <SET TEMP44 2 (TYPE FIX)>
13683                     <TYPE? IX17 <TYPE-CODE FALSE> + PHRASE138>
13684                     <CONS IX17 () = TEMP29>
13685                     <DEAD IX17>
13686                     <CONS TEMP29 () = TEMP29>
13687                     <JUMP + TAG149>
13688 PHRASE138
13689                     <EQUAL? WL6 DST8 + PHRASE140>
13690                     <FRAME '\1aIN-AC?>
13691                     <PUSH WL6>
13692                     <PUSH 'VALUE>
13693                     <CALL '\1aIN-AC? 2 = IX17>
13694                     <TYPE? IX17 <TYPE-CODE FALSE> + PHRASE140>
13695                     <CONS IX17 () = TEMP29>
13696                     <DEAD IX17>
13697                     <CONS TEMP29 () = TEMP29>
13698                     <JUMP + TAG149>
13699 PHRASE140
13700                     <PUSH '@>
13701                     <SET W15 1 (TYPE FIX)>
13702                     <SFRAME 'OBJ-VAL>
13703                     <PUSH WL6>
13704                     <DEAD WL6>
13705                     <SCALL '\1aOBJ-VAL 1 = TEMP29 + TAG144 W15>
13706                     <TYPE TEMP29 = TEMP19>
13707                     <AND TEMP19 7 = TEMP19>
13708                     <VEQUAL? TEMP19 1 + TAG147>
13709                     <DEAD TEMP19>
13710                     <LOOP (TEMP29 TYPE VALUE LENGTH) (W15 VALUE)>
13711 TAG153
13712                     <INTGO>
13713                     <EMPTY? TEMP29 + TAG152>
13714                     <NTH1 TEMP29 = STACK>
13715                     <REST1 TEMP29 = TEMP29>
13716                     <ADD W15 1 = W15 (TYPE FIX)>
13717                     <JUMP + TAG153>
13718 TAG152
13719                     <LIST W15 = TEMP29 (TYPE LIST)>
13720                     <DEAD W15>
13721                     <JUMP + TAG149>
13722 TAG144
13723                     <SET TEMP29 0>
13724 TAG147
13725                     <LOOP>
13726 TAG150
13727                     <VEQUAL? W15 0 + TAG149>
13728                     <POP = TEMP19>
13729                     <CONS TEMP19 TEMP29 = TEMP29 (TYPE LIST)>
13730                     <DEAD TEMP19>
13731                     <SUB W15 1 = W15 (TYPE FIX)>
13732                     <JUMP + TAG150>
13733 TAG149
13734                     <LOOP (TEMP29 VALUE) (TEMP44 VALUE)>
13735 TAG154
13736                     <INTGO>
13737                     <EMPL? TEMP29 + TAG136>
13738                     <NTHL TEMP29 1 = STACK>
13739                     <RESTL TEMP29 1 = TEMP29 (TYPE LIST)>
13740                     <ADD TEMP44 1 = TEMP44 (TYPE FIX)>
13741                     <JUMP + TAG154>
13742 TAG136
13743                     <CALL '\1aOCEMIT TEMP44>
13744                     <DEAD TEMP44>
13745                     <EQUAL? OL13 'O* - PHRASE157>
13746                     <FRAME '\1aOCEMIT>
13747                     <PUSH 'ANDCA>
13748                     <PUSH AC?12>
13749                     <PUSH 'O*>
13750                     <CALL '\1aOCEMIT 3>
13751                     <FRAME '\1aOCEMIT>
13752                     <PUSH 'LSH>
13753                     <PUSH AC?12>
13754                     <SUB 0 SH16 = STACK (TYPE FIX)>
13755                     <DEAD SH16>
13756                     <CALL '\1aOCEMIT 3>
13757                     <FRAME '\1aCLEAN-ACS>
13758                     <PUSH DST8>
13759                     <CALL '\1aCLEAN-ACS 1>
13760                     <FRAME '\1aGET-AC>
13761                     <PUSH TAC?9>
13762                     <DEAD TAC?9>
13763                     <CALL '\1aGET-AC 1 = TEMP44>
13764                     <PUTUV TEMP44 6 'FIX>
13765                     <PUTUV TEMP44 3 'TYPE (TYPE ATOM)>
13766                     <PUTUV TEMP44 2 DST8>
13767                     <PUTUV TEMP44 5 'T>
13768                     <DEAD TEMP44>
13769                     <FRAME '\1aGET-AC>
13770                     <SET OL13 AC?12>
13771                     <DEAD AC?12>
13772                     <PUSH OL13>
13773                     <CALL '\1aGET-AC 1 = TEMP44>
13774                     <PUTUV TEMP44 5 'T>
13775                     <PUTUV TEMP44 2 DST8>
13776                     <PUTUV TEMP44 6 %<>>
13777                     <PUTUV TEMP44 3 'VALUE (TYPE ATOM)>
13778                     <DEAD TEMP44>
13779                     <JUMP + PHRASE172>
13780 PHRASE157
13781                     <FRAME '\1aOCEMIT>
13782                     <PUSH 'ANDCA>
13783                     <PUSH OL13>
13784                     <SET TEMP29 2 (TYPE FIX)>
13785                     <TYPE? AC?12 <TYPE-CODE FALSE> + PHRASE166>
13786                     <CONS AC?12 () = TEMP44>
13787                     <DEAD AC?12>
13788                     <JUMP + PHRASE167>
13789 PHRASE166
13790                     <FRAME '\1aOBJ-VAL>
13791                     <PUSH WD5>
13792                     <DEAD WD5>
13793                     <CALL '\1aOBJ-VAL 1 = TEMP44>
13794 PHRASE167
13795                     <LOOP (TEMP44 TYPE VALUE LENGTH) (TEMP29 VALUE)>
13796 TAG169
13797                     <INTGO>
13798                     <EMPTY? TEMP44 + TAG164>
13799                     <NTH1 TEMP44 = STACK>
13800                     <REST1 TEMP44 = TEMP44>
13801                     <ADD TEMP29 1 = TEMP29 (TYPE FIX)>
13802                     <JUMP + TAG169>
13803 TAG164
13804                     <CALL '\1aOCEMIT TEMP29>
13805                     <DEAD TEMP29>
13806                     <FRAME '\1aOCEMIT>
13807                     <PUSH 'LSH>
13808                     <PUSH OL13>
13809                     <SUB 0 SH16 = STACK (TYPE FIX)>
13810                     <DEAD SH16>
13811                     <CALL '\1aOCEMIT 3>
13812                     <JUMP + PHRASE172>
13813 PHRASE105
13814                     <TYPE? AC?12 <TYPE-CODE FALSE> + PHRASE174>
13815                     <FRAME '\1aOCEMIT>
13816                     <PUSH 'MOVEI>
13817                     <PUSH 'O*>
13818                     <PUSH AC?12>
13819                     <DEAD AC?12>
13820                     <CALL '\1aOCEMIT 3>
13821                     <JUMP + PHRASE176>
13822 PHRASE174
13823                     <FRAME '\1aCONST-LOC>
13824                     <PUSH BP11>
13825                     <PUSH 'VALUE>
13826                     <CALL '\1aCONST-LOC 2>
13827                     <FRAME '\1aOCEMIT>
13828                     <PUSH 'MOVE>
13829                     <PUSH 'O*>
13830                     <SET TEMP44 2 (TYPE FIX)>
13831                     <SFRAME 'OBJ-VAL>
13832                     <PUSH BP11>
13833                     <DEAD BP11>
13834                     <SCALL '\1aOBJ-VAL 1 = TEMP29 + TAG178 TEMP44>
13835                     <LOOP (TEMP29 TYPE VALUE LENGTH) (TEMP44 VALUE)>
13836 TAG180
13837                     <INTGO>
13838                     <EMPTY? TEMP29 + TAG178>
13839                     <NTH1 TEMP29 = STACK>
13840                     <REST1 TEMP29 = TEMP29>
13841                     <ADD TEMP44 1 = TEMP44 (TYPE FIX)>
13842                     <JUMP + TAG180>
13843 TAG178
13844                     <CALL '\1aOCEMIT TEMP44>
13845                     <DEAD TEMP44>
13846 PHRASE176
13847                     <FRAME '\1aOCEMIT>
13848                     <PUSH 'DPB>
13849                     <FRAME '\1aIN-AC?>
13850                     <PUSH SHL7>
13851                     <PUSH 'VALUE>
13852                     <CALL '\1aIN-AC? 2 = TEMP44>
13853                     <TYPE? TEMP44 <TYPE-CODE FALSE> - PHRASE185>
13854                     <FRAME '\1aNEXT-AC>
13855                     <FRAME '\1aLOAD-AC>
13856                     <PUSH SHL7>
13857                     <DEAD SHL7>
13858                     <PUSH 'BOTH>
13859                     <CALL '\1aLOAD-AC 2 = STACK>
13860                     <CALL '\1aNEXT-AC 1 = TEMP44>
13861 PHRASE185
13862                     <PUSH TEMP44>
13863                     <DEAD TEMP44>
13864                     <SET TEMP29 2 (TYPE FIX)>
13865                     <SFRAME 'OBJ-VAL>
13866                     <SET BP11 #CONSTANT 32312918016 (TYPE CONSTANT)>
13867                     <PUSH BP11>
13868                     <SCALL '\1aOBJ-VAL 1 = TEMP44 + TAG182 TEMP29>
13869                     <LOOP (TEMP44 TYPE VALUE LENGTH) (TEMP29 VALUE)>
13870 TAG189
13871                     <INTGO>
13872                     <EMPTY? TEMP44 + TAG182>
13873                     <NTH1 TEMP44 = STACK>
13874                     <REST1 TEMP44 = TEMP44>
13875                     <ADD TEMP29 1 = TEMP29 (TYPE FIX)>
13876                     <JUMP + TAG189>
13877 TAG182
13878                     <CALL '\1aOCEMIT TEMP29>
13879                     <DEAD TEMP29>
13880                     <FRAME '\1aCONST-LOC>
13881                     <PUSH BP11>
13882                     <DEAD BP11>
13883                     <PUSH 'VALUE>
13884                     <CALL '\1aCONST-LOC 2>
13885                     <FRAME '\1aOCEMIT>
13886                     <PUSH 'DPB>
13887                     <FRAME '\1aIN-AC?>
13888                     <PUSH WL6>
13889                     <PUSH 'VALUE>
13890                     <CALL '\1aIN-AC? 2 = TEMP29>
13891                     <TYPE? TEMP29 <TYPE-CODE FALSE> - PHRASE195>
13892                     <FRAME '\1aNEXT-AC>
13893                     <FRAME '\1aLOAD-AC>
13894                     <PUSH WL6>
13895                     <DEAD WL6>
13896                     <PUSH 'BOTH>
13897                     <CALL '\1aLOAD-AC 2 = STACK>
13898                     <CALL '\1aNEXT-AC 1 = TEMP29>
13899 PHRASE195
13900                     <PUSH TEMP29>
13901                     <DEAD TEMP29>
13902                     <SET TEMP44 2 (TYPE FIX)>
13903                     <SFRAME 'OBJ-VAL>
13904                     <SET BP11 #CONSTANT 25870467072 (TYPE CONSTANT)>
13905                     <PUSH BP11>
13906                     <SCALL '\1aOBJ-VAL 1 = TEMP29 + TAG192 TEMP44>
13907                     <LOOP (TEMP29 TYPE VALUE LENGTH) (TEMP44 VALUE)>
13908 TAG199
13909                     <INTGO>
13910                     <EMPTY? TEMP29 + TAG192>
13911                     <NTH1 TEMP29 = STACK>
13912                     <REST1 TEMP29 = TEMP29>
13913                     <ADD TEMP44 1 = TEMP44 (TYPE FIX)>
13914                     <JUMP + TAG199>
13915 TAG192
13916                     <CALL '\1aOCEMIT TEMP44>
13917                     <DEAD TEMP44>
13918                     <FRAME '\1aCONST-LOC>
13919                     <PUSH BP11>
13920                     <DEAD BP11>
13921                     <PUSH 'VALUE>
13922                     <CALL '\1aCONST-LOC 2>
13923                     <FRAME '\1aASSIGN-AC>
13924                     <PUSH DST8>
13925                     <PUSH 'BOTH>
13926                     <PUSH 'T>
13927                     <CALL '\1aASSIGN-AC 3 = OL13>
13928                     <FRAME '\1aOCEMIT>
13929                     <PUSH 'LDB>
13930                     <FRAME '\1aNEXT-AC>
13931                     <PUSH OL13>
13932                     <CALL '\1aNEXT-AC 1 = STACK>
13933                     <PUSH 'O*>
13934                     <CALL '\1aOCEMIT 3>
13935                     <FRAME '\1aGET-AC>
13936                     <PUSH OL13>
13937                     <CALL '\1aGET-AC 1 = TEMP44>
13938                     <PUTUV TEMP44 6 'FIX>
13939                     <DEAD TEMP44>
13940 PHRASE172
13941                     <EQUAL? DST8 'STACK + TAG208>
13942                     <DEAD DST8>
13943                     <RETURN %<>>
13944 TAG208
13945                     <FRAME '\1aOCEMIT>
13946                     <PUSH 'PUSH>
13947                     <PUSH 'TP*>
13948                     <SET TEMP19 2 (TYPE FIX)>
13949                     <SFRAME 'TYPE-WORD>
13950                     <PUSH 'FIX>
13951                     <SCALL '\1aTYPE-WORD 1 = TEMP29 + TAG209 TEMP19>
13952                     <LOOP (TEMP29 TYPE VALUE LENGTH) (TEMP19 VALUE)>
13953 TAG211
13954                     <INTGO>
13955                     <EMPTY? TEMP29 + TAG209>
13956                     <NTH1 TEMP29 = STACK>
13957                     <REST1 TEMP29 = TEMP29>
13958                     <ADD TEMP19 1 = TEMP19 (TYPE FIX)>
13959                     <JUMP + TAG211>
13960 TAG209
13961                     <CALL '\1aOCEMIT TEMP19>
13962                     <DEAD TEMP19>
13963                     <FRAME '\1aOCEMIT>
13964                     <PUSH 'PUSH>
13965                     <PUSH 'TP*>
13966                     <FRAME '\1aNEXT-AC>
13967                     <PUSH OL13>
13968                     <DEAD OL13>
13969                     <CALL '\1aNEXT-AC 1 = STACK>
13970                     <CALL '\1aOCEMIT 3>
13971                     <GVAL 'WINNING-VICTIM = TEMP44>
13972                     <TYPE? TEMP44 <TYPE-CODE FALSE> + PHRASE216>
13973                     <GVAL 'STACK-DEPTH = TEMP19>
13974                     <ADD TEMP19 2 = TEMP19 (TYPE FIX)>
13975                     <SETG 'STACK-DEPTH TEMP19>
13976                     <SET TEMP44 TEMP19>
13977                     <DEAD TEMP19>
13978 PHRASE216
13979                     <RETURN TEMP44>
13980                     <DEAD TEMP44>
13981                     <END \1aGETBITS!-MIMOC>\r\r
13982 #WORD *36703572621*
13983 <GFCN \1aPUTBITS!-MIMOC ("VALUE" ANY LIST) L5>
13984                     <TEMP TEMP15 WL6 SHL7 NEW8 OLD9 DST13 (FLIP14 %<>) AC?10 TEMP54 NAC12>
13985                     <INTGO>
13986                     <RESTL L5 1 = TEMP15 (TYPE LIST)>
13987                     <NTHL TEMP15 1 = WL6>
13988                     <DEAD TEMP15>
13989                     <RESTL L5 1 = TEMP15 (TYPE LIST)>
13990                     <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
13991                     <NTHL TEMP15 1 = SHL7>
13992                     <DEAD TEMP15>
13993                     <RESTL L5 1 = TEMP15 (TYPE LIST)>
13994                     <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
13995                     <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
13996                     <NTHL TEMP15 1 = NEW8>
13997                     <DEAD TEMP15>
13998                     <NTHL L5 1 = OLD9>
13999                     <NTHL L5 6 = DST13>
14000                     <EQUAL? WL6 18 - PHRASE17>
14001                     <DEAD WL6>
14002                     <EQUAL? SHL7 0 + BOOL19>
14003                     <EQUAL? SHL7 18 - PHRASE17>
14004 BOOL19
14005                     <EQUAL? OLD9 0 + BOOL24>
14006                     <EQUAL? OLD9 -1 + BOOL24>
14007                     <EQUAL? SHL7 0 - PHRASE21>
14008                     <FRAME '\1aIN-AC?>
14009                     <PUSH OLD9>
14010                     <PUSH 'VALUE>
14011                     <CALL '\1aIN-AC? 2 = TEMP15>
14012                     <TYPE? TEMP15 <TYPE-CODE FALSE> - BOOL25>
14013                     <DEAD TEMP15>
14014                     <FRAME '\1aIN-AC?>
14015                     <PUSH NEW8>
14016                     <PUSH 'VALUE>
14017                     <CALL '\1aIN-AC? 2 = TEMP15>
14018                     <TYPE? TEMP15 <TYPE-CODE FALSE> - BOOL24>
14019                     <DEAD TEMP15>
14020 BOOL25
14021                     <EQUAL? NEW8 DST13 - PHRASE21>
14022 BOOL24
14023                     <SET FLIP14 'T (TYPE ATOM)>
14024                     <SET NEW8 OLD9>
14025                     <DEAD OLD9>
14026                     <RESTL L5 1 = TEMP15 (TYPE LIST)>
14027                     <DEAD L5>
14028                     <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
14029                     <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
14030                     <NTHL TEMP15 1 = OLD9>
14031                     <DEAD TEMP15>
14032 PHRASE21
14033                     <FRAME '\1aIN-AC?>
14034                     <PUSH OLD9>
14035                     <PUSH 'BOTH>
14036                     <CALL '\1aIN-AC? 2 = WL6>
14037                     <TYPE? WL6 <TYPE-CODE FALSE> + BOOL31>
14038                     <FRAME '\1aNEXT-AC>
14039                     <PUSH WL6>
14040                     <CALL '\1aNEXT-AC 1 = AC?10>
14041                     <TYPE? AC?10 <TYPE-CODE FALSE> - BOOL30>
14042 BOOL31
14043                     <FRAME '\1aIN-AC?>
14044                     <PUSH OLD9>
14045                     <PUSH 'VALUE>
14046                     <CALL '\1aIN-AC? 2 = AC?10>
14047                     <TYPE? AC?10 <TYPE-CODE FALSE> + BOOL34>
14048                     <FRAME '\1aGETPROP>
14049                     <PUSH AC?10>
14050                     <PUSH 'AC-PAIR>
14051                     <CALL '\1aGETPROP 2 = WL6>
14052                     <TYPE? WL6 <TYPE-CODE FALSE> - BOOL30>
14053 BOOL34
14054                     <EQUAL? OLD9 DST13 + PHRASE29>
14055                     <EQUAL? NEW8 0 + PHRASE29>
14056                     <EQUAL? NEW8 -1 + PHRASE29>
14057                     <FRAME '\1aNEXT-AC>
14058                     <FRAME '\1aLOAD-AC>
14059                     <PUSH OLD9>
14060                     <PUSH 'BOTH>
14061                     <CALL '\1aLOAD-AC 2 = WL6>
14062                     <PUSH WL6>
14063                     <CALL '\1aNEXT-AC 1 = AC?10>
14064                     <TYPE? AC?10 <TYPE-CODE FALSE> + PHRASE29>
14065 BOOL30
14066                     <EQUAL? OLD9 DST13 + PHRASE50>
14067                     <FRAME '\1aWILL-DIE?>
14068                     <PUSH OLD9>
14069                     <CALL '\1aWILL-DIE? 1 = TEMP15>
14070                     <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE43>
14071                     <DEAD TEMP15>
14072                     <FRAME '\1aDEAD!-MIMOC>
14073                     <CONS OLD9 () = STACK>
14074                     <PUSH 'T>
14075                     <CALL '\1aDEAD!-MIMOC 2>
14076 PHRASE43
14077                     <TYPE? WL6 <TYPE-CODE FALSE> + PHRASE47>
14078                     <FRAME '\1aFLUSH-AC>
14079                     <PUSH WL6>
14080                     <PUSH 'T>
14081                     <CALL '\1aFLUSH-AC 2>
14082                     <FRAME '\1aMUNGED-AC>
14083                     <PUSH WL6>
14084                     <PUSH 'T>
14085                     <CALL '\1aMUNGED-AC 2>
14086                     <JUMP + PHRASE50>
14087 PHRASE47
14088                     <FRAME '\1aFLUSH-AC>
14089                     <PUSH AC?10>
14090                     <CALL '\1aFLUSH-AC 1>
14091                     <FRAME '\1aMUNGED-AC>
14092                     <PUSH AC?10>
14093                     <CALL '\1aMUNGED-AC 1>
14094 PHRASE50
14095                     <SETG 'FIRST-AC %<>>
14096                     <FRAME '\1aGET-AC>
14097                     <PUSH WL6>
14098                     <CALL '\1aGET-AC 1 = TEMP15>
14099                     <GVAL 'AC-STAMP = TEMP54>
14100                     <ADD TEMP54 1 = TEMP54 (TYPE FIX)>
14101                     <SETG 'AC-STAMP TEMP54>
14102                     <PUTUV TEMP15 4 TEMP54 (TYPE FIX)>
14103                     <DEAD TEMP15 TEMP54>
14104                     <FRAME '\1aGET-AC>
14105                     <PUSH AC?10>
14106                     <CALL '\1aGET-AC 1 = TEMP15>
14107                     <GVAL 'AC-STAMP = TEMP54>
14108                     <ADD TEMP54 1 = TEMP54 (TYPE FIX)>
14109                     <SETG 'AC-STAMP TEMP54>
14110                     <PUTUV TEMP15 4 TEMP54 (TYPE FIX)>
14111                     <DEAD TEMP54>
14112                     <PUTUV TEMP15 5 'T>
14113                     <DEAD TEMP15>
14114 PHRASE29
14115                     <TYPE? AC?10 <TYPE-CODE FALSE> - PHRASE66>
14116                     <FRAME '\1aIN-AC?>
14117                     <PUSH NEW8>
14118                     <PUSH 'VALUE>
14119                     <CALL '\1aIN-AC? 2 = NAC12>
14120                     <TYPE? NAC12 <TYPE-CODE FALSE> - PHRASE66>
14121                     <EQUAL? NEW8 0 + PHRASE66>
14122                     <EQUAL? NEW8 -1 + PHRASE66>
14123                     <TYPE? NEW8 <TYPE-CODE ATOM> - PHRASE61>
14124                     <FRAME '\1aWILL-DIE?>
14125                     <PUSH NEW8>
14126                     <CALL '\1aWILL-DIE? 1 = TEMP15>
14127                     <TYPE? TEMP15 <TYPE-CODE FALSE> - PHRASE61>
14128                     <DEAD TEMP15>
14129                     <FRAME '\1aNEXT-AC>
14130                     <FRAME '\1aLOAD-AC>
14131                     <PUSH NEW8>
14132                     <PUSH 'BOTH>
14133                     <CALL '\1aLOAD-AC 2 = STACK>
14134                     <CALL '\1aNEXT-AC 1 = NAC12>
14135                     <JUMP + PHRASE66>
14136 PHRASE61
14137                     <FRAME '\1aGET-INTO-ACS>
14138                     <PUSH NEW8>
14139                     <PUSH 'VALUE>
14140                     <SET NAC12 'T* (TYPE ATOM)>
14141                     <PUSH NAC12>
14142                     <CALL '\1aGET-INTO-ACS 3>
14143 PHRASE66
14144                     <VEQUAL? FLIP14 0 + PHRASE69>
14145                     <EQUAL? SHL7 0 + PHRASE69>
14146                     <EQUAL? DST13 'STACK - PHRASE72>
14147                     <TYPE? AC?10 <TYPE-CODE FALSE> + PHRASE74>
14148                     <FRAME '\1aOCEMIT>
14149                     <EQUAL? NEW8 0 - PHRASE77>
14150                     <DEAD NEW8>
14151                     <SET TEMP15 'HRLZ (TYPE ATOM)>
14152                     <JUMP + PHRASE78>
14153 PHRASE77
14154                     <SET TEMP15 'HRLO (TYPE ATOM)>
14155 PHRASE78
14156                     <PUSH TEMP15>
14157                     <DEAD TEMP15>
14158                     <PUSH 'O*>
14159                     <PUSH AC?10>
14160                     <DEAD AC?10>
14161                     <CALL '\1aOCEMIT 3>
14162                     <JUMP + PHRASE79>
14163 PHRASE74
14164                     <FRAME '\1aOCEMIT>
14165                     <EQUAL? NEW8 0 - PHRASE82>
14166                     <DEAD NEW8>
14167                     <SET TEMP15 'HRLZ (TYPE ATOM)>
14168                     <JUMP + PHRASE83>
14169 PHRASE82
14170                     <SET TEMP15 'HRLO (TYPE ATOM)>
14171 PHRASE83
14172                     <PUSH TEMP15>
14173                     <DEAD TEMP15>
14174                     <PUSH 'O*>
14175                     <SET TEMP54 2 (TYPE FIX)>
14176                     <SFRAME 'OBJ-VAL>
14177                     <PUSH OLD9>
14178                     <SCALL '\1aOBJ-VAL 1 = TEMP15 + TAG80 TEMP54>
14179                     <LOOP (TEMP15 TYPE VALUE LENGTH) (TEMP54 VALUE)>
14180 TAG85
14181                     <INTGO>
14182                     <EMPTY? TEMP15 + TAG80>
14183                     <NTH1 TEMP15 = STACK>
14184                     <REST1 TEMP15 = TEMP15>
14185                     <ADD TEMP54 1 = TEMP54 (TYPE FIX)>
14186                     <JUMP + TAG85>
14187 TAG80
14188                     <CALL '\1aOCEMIT TEMP54>
14189                     <DEAD TEMP54>
14190 PHRASE79
14191                     <FRAME '\1aOCEMIT>
14192                     <PUSH 'PUSH>
14193                     <PUSH 'TP*>
14194                     <SET TEMP15 2 (TYPE FIX)>
14195                     <SFRAME 'TYPE-WORD>
14196                     <PUSH 'FIX>
14197                     <SCALL '\1aTYPE-WORD 1 = TEMP54 + TAG87 TEMP15>
14198                     <LOOP (TEMP54 TYPE VALUE LENGTH) (TEMP15 VALUE)>
14199 TAG89
14200                     <INTGO>
14201                     <EMPTY? TEMP54 + TAG87>
14202                     <NTH1 TEMP54 = STACK>
14203                     <REST1 TEMP54 = TEMP54>
14204                     <ADD TEMP15 1 = TEMP15 (TYPE FIX)>
14205                     <JUMP + TAG89>
14206 TAG87
14207                     <CALL '\1aOCEMIT TEMP15>
14208                     <DEAD TEMP15>
14209                     <FRAME '\1aOCEMIT>
14210                     <PUSH 'PUSH>
14211                     <PUSH 'TP*>
14212                     <PUSH 'O*>
14213                     <CALL '\1aOCEMIT 3>
14214                     <GVAL 'WINNING-VICTIM = TEMP15>
14215                     <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE245>
14216                     <DEAD TEMP15>
14217                     <GVAL 'STACK-DEPTH = TEMP15>
14218                     <ADD TEMP15 2 = TEMP15 (TYPE FIX)>
14219                     <SETG 'STACK-DEPTH TEMP15>
14220                     <DEAD TEMP15>
14221                     <JUMP + PHRASE245>
14222 PHRASE72
14223                     <TYPE? AC?10 <TYPE-CODE FALSE> + PHRASE94>
14224                     <EQUAL? NEW8 0 - PHRASE96>
14225                     <DEAD NEW8>
14226                     <FRAME '\1aOCEMIT>
14227                     <PUSH 'HRLZS>
14228                     <PUSH 'O*>
14229                     <PUSH AC?10>
14230                     <DEAD AC?10>
14231                     <CALL '\1aOCEMIT 3>
14232                     <JUMP + PHRASE98>
14233 PHRASE96
14234                     <FRAME '\1aOCEMIT>
14235                     <PUSH 'HRLOS>
14236                     <PUSH 'O*>
14237                     <PUSH AC?10>
14238                     <DEAD AC?10>
14239                     <CALL '\1aOCEMIT 3>
14240 PHRASE98
14241                     <EQUAL? DST13 OLD9 + PHRASE245>
14242                     <FRAME '\1aCLEAN-ACS>
14243                     <PUSH DST13>
14244                     <CALL '\1aCLEAN-ACS 1>
14245                     <FRAME '\1aALTER-AC>
14246                     <PUSH WL6>
14247                     <PUSH DST13>
14248                     <CALL '\1aALTER-AC 2>
14249                     <FRAME '\1aGET-AC>
14250                     <PUSH WL6>
14251                     <CALL '\1aGET-AC 1 = TEMP15>
14252                     <PUTUV TEMP15 6 'FIX>
14253                     <DEAD TEMP15>
14254                     <JUMP + PHRASE245>
14255 PHRASE94
14256                     <EQUAL? DST13 OLD9 + PHRASE105>
14257                     <FRAME '\1aASSIGN-AC>
14258                     <PUSH DST13>
14259                     <PUSH 'BOTH>
14260                     <CALL '\1aASSIGN-AC 2 = AC?10>
14261                     <EQUAL? NEW8 0 - PHRASE108>
14262                     <DEAD NEW8>
14263                     <FRAME '\1aOCEMIT>
14264                     <PUSH 'HRLZ>
14265                     <FRAME '\1aNEXT-AC>
14266                     <PUSH AC?10>
14267                     <CALL '\1aNEXT-AC 1 = STACK>
14268                     <SET TEMP54 2 (TYPE FIX)>
14269                     <SFRAME 'OBJ-VAL>
14270                     <PUSH OLD9>
14271                     <SCALL '\1aOBJ-VAL 1 = TEMP15 + TAG109 TEMP54>
14272                     <LOOP (TEMP15 TYPE VALUE LENGTH) (TEMP54 VALUE)>
14273 TAG112
14274                     <INTGO>
14275                     <EMPTY? TEMP15 + TAG109>
14276                     <NTH1 TEMP15 = STACK>
14277                     <REST1 TEMP15 = TEMP15>
14278                     <ADD TEMP54 1 = TEMP54 (TYPE FIX)>
14279                     <JUMP + TAG112>
14280 TAG109
14281                     <CALL '\1aOCEMIT TEMP54>
14282                     <DEAD TEMP54>
14283                     <JUMP + PHRASE114>
14284 PHRASE108
14285                     <FRAME '\1aOCEMIT>
14286                     <PUSH 'HRLO>
14287                     <FRAME '\1aNEXT-AC>
14288                     <PUSH AC?10>
14289                     <CALL '\1aNEXT-AC 1 = STACK>
14290                     <SET TEMP15 2 (TYPE FIX)>
14291                     <SFRAME 'OBJ-VAL>
14292                     <PUSH OLD9>
14293                     <SCALL '\1aOBJ-VAL 1 = TEMP54 + TAG115 TEMP15>
14294                     <LOOP (TEMP54 TYPE VALUE LENGTH) (TEMP15 VALUE)>
14295 TAG118
14296                     <INTGO>
14297                     <EMPTY? TEMP54 + TAG115>
14298                     <NTH1 TEMP54 = STACK>
14299                     <REST1 TEMP54 = TEMP54>
14300                     <ADD TEMP15 1 = TEMP15 (TYPE FIX)>
14301                     <JUMP + TAG118>
14302 TAG115
14303                     <CALL '\1aOCEMIT TEMP15>
14304                     <DEAD TEMP15>
14305 PHRASE114
14306                     <FRAME '\1aGET-AC>
14307                     <PUSH AC?10>
14308                     <DEAD AC?10>
14309                     <CALL '\1aGET-AC 1 = TEMP15>
14310                     <PUTUV TEMP15 6 'FIX>
14311                     <DEAD TEMP15>
14312                     <JUMP + PHRASE245>
14313 PHRASE105
14314                     <EQUAL? NEW8 0 - PHRASE121>
14315                     <DEAD NEW8>
14316                     <FRAME '\1aOCEMIT>
14317                     <PUSH 'HRLZS>
14318                     <PUSH 'O*>
14319                     <SET TEMP54 2 (TYPE FIX)>
14320                     <SFRAME 'OBJ-VAL>
14321                     <PUSH OLD9>
14322                     <SCALL '\1aOBJ-VAL 1 = TEMP15 + TAG122 TEMP54>
14323                     <LOOP (TEMP15 TYPE VALUE LENGTH) (TEMP54 VALUE)>
14324 TAG124
14325                     <INTGO>
14326                     <EMPTY? TEMP15 + TAG122>
14327                     <NTH1 TEMP15 = STACK>
14328                     <REST1 TEMP15 = TEMP15>
14329                     <ADD TEMP54 1 = TEMP54 (TYPE FIX)>
14330                     <JUMP + TAG124>
14331 TAG122
14332                     <CALL '\1aOCEMIT TEMP54>
14333                     <DEAD TEMP54>
14334                     <JUMP + PHRASE245>
14335 PHRASE121
14336                     <FRAME '\1aOCEMIT>
14337                     <PUSH 'HRLOS>
14338                     <PUSH 'O*>
14339                     <SET TEMP15 2 (TYPE FIX)>
14340                     <SFRAME 'OBJ-VAL>
14341                     <PUSH OLD9>
14342                     <SCALL '\1aOBJ-VAL 1 = TEMP54 + TAG127 TEMP15>
14343                     <LOOP (TEMP54 TYPE VALUE LENGTH) (TEMP15 VALUE)>
14344 TAG129
14345                     <INTGO>
14346                     <EMPTY? TEMP54 + TAG127>
14347                     <NTH1 TEMP54 = STACK>
14348                     <REST1 TEMP54 = TEMP54>
14349                     <ADD TEMP15 1 = TEMP15 (TYPE FIX)>
14350                     <JUMP + TAG129>
14351 TAG127
14352                     <CALL '\1aOCEMIT TEMP15>
14353                     <DEAD TEMP15>
14354                     <JUMP + PHRASE245>
14355 PHRASE69
14356                     <TYPE? AC?10 <TYPE-CODE FALSE> + PHRASE131>
14357                     <FRAME '\1aOCEMIT>
14358                     <TYPE? NEW8 <TYPE-CODE ATOM> - PHRASE134>
14359                     <EQUAL? SHL7 0 - PHRASE136>
14360                     <DEAD SHL7>
14361                     <VEQUAL? FLIP14 0 + PHRASE138>
14362                     <SET TEMP15 'HLL (TYPE ATOM)>
14363                     <JUMP + PHRASE145>
14364 PHRASE138
14365                     <SET TEMP15 'HRR (TYPE ATOM)>
14366                     <JUMP + PHRASE145>
14367 PHRASE136
14368                     <SET TEMP15 'HRL (TYPE ATOM)>
14369                     <JUMP + PHRASE145>
14370 PHRASE134
14371                     <EQUAL? SHL7 0 - PHRASE141>
14372                     <DEAD SHL7>
14373                     <VEQUAL? FLIP14 0 + PHRASE143>
14374                     <SET TEMP15 'HRLI (TYPE ATOM)>
14375                     <JUMP + PHRASE145>
14376 PHRASE143
14377                     <SET TEMP15 'HRRI (TYPE ATOM)>
14378                     <JUMP + PHRASE145>
14379 PHRASE141
14380                     <SET TEMP15 'HRLI (TYPE ATOM)>
14381 PHRASE145
14382                     <PUSH TEMP15>
14383                     <DEAD TEMP15>
14384                     <PUSH AC?10>
14385                     <SET TEMP54 2 (TYPE FIX)>
14386                     <TYPE? NEW8 <TYPE-CODE ATOM> - PHRASE147>
14387                     <FRAME '\1aOBJ-VAL>
14388                     <PUSH NEW8>
14389                     <DEAD NEW8>
14390                     <CALL '\1aOBJ-VAL 1 = TEMP15>
14391                     <JUMP + PHRASE151>
14392 PHRASE147
14393                     <VEQUAL? FLIP14 0 + PHRASE149>
14394                     <DEAD FLIP14>
14395                     <LSH NEW8 -18 = NEW8 (TYPE FIX)>
14396                     <CONS NEW8 () = TEMP15>
14397                     <DEAD NEW8>
14398                     <JUMP + PHRASE151>
14399 PHRASE149
14400                     <AND NEW8 #WORD *777777* = NEW8>
14401                     <CONS NEW8 () = TEMP15>
14402                     <DEAD NEW8>
14403 PHRASE151
14404                     <LOOP (TEMP15 TYPE VALUE LENGTH) (TEMP54 VALUE)>
14405 TAG152
14406                     <INTGO>
14407                     <EMPTY? TEMP15 + TAG132>
14408                     <NTH1 TEMP15 = STACK>
14409                     <REST1 TEMP15 = TEMP15>
14410                     <ADD TEMP54 1 = TEMP54 (TYPE FIX)>
14411                     <JUMP + TAG152>
14412 TAG132
14413                     <CALL '\1aOCEMIT TEMP54>
14414                     <DEAD TEMP54>
14415                     <EQUAL? DST13 'STACK - PHRASE155>
14416                     <FRAME '\1aOCEMIT>
14417                     <PUSH 'PUSH>
14418                     <PUSH 'TP*>
14419                     <SET TEMP15 2 (TYPE FIX)>
14420                     <SFRAME 'TYPE-WORD>
14421                     <PUSH 'FIX>
14422                     <SCALL '\1aTYPE-WORD 1 = TEMP54 + TAG156 TEMP15>
14423                     <LOOP (TEMP54 TYPE VALUE LENGTH) (TEMP15 VALUE)>
14424 TAG158
14425                     <INTGO>
14426                     <EMPTY? TEMP54 + TAG156>
14427                     <NTH1 TEMP54 = STACK>
14428                     <REST1 TEMP54 = TEMP54>
14429                     <ADD TEMP15 1 = TEMP15 (TYPE FIX)>
14430                     <JUMP + TAG158>
14431 TAG156
14432                     <CALL '\1aOCEMIT TEMP15>
14433                     <DEAD TEMP15>
14434                     <FRAME '\1aOCEMIT>
14435                     <PUSH 'PUSH>
14436                     <PUSH 'TP*>
14437                     <PUSH AC?10>
14438                     <DEAD AC?10>
14439                     <CALL '\1aOCEMIT 3>
14440                     <GVAL 'WINNING-VICTIM = TEMP15>
14441                     <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE245>
14442                     <DEAD TEMP15>
14443                     <GVAL 'STACK-DEPTH = NEW8>
14444                     <ADD NEW8 2 = NEW8 (TYPE FIX)>
14445                     <SETG 'STACK-DEPTH NEW8>
14446                     <DEAD NEW8>
14447                     <JUMP + PHRASE245>
14448 PHRASE155
14449                     <EQUAL? DST13 OLD9 + PHRASE245>
14450                     <FRAME '\1aCLEAN-ACS>
14451                     <PUSH DST13>
14452                     <CALL '\1aCLEAN-ACS 1>
14453                     <FRAME '\1aALTER-AC>
14454                     <PUSH WL6>
14455                     <PUSH DST13>
14456                     <CALL '\1aALTER-AC 2>
14457                     <FRAME '\1aGET-AC>
14458                     <PUSH WL6>
14459                     <CALL '\1aGET-AC 1 = NEW8>
14460                     <PUTUV NEW8 6 'FIX>
14461                     <DEAD NEW8>
14462                     <JUMP + PHRASE245>
14463 PHRASE131
14464                     <TYPE? NAC12 <TYPE-CODE FALSE> - PHRASE167>
14465                     <EQUAL? DST13 OLD9 - PHRASE169>
14466                     <FRAME '\1aOCEMIT>
14467                     <EQUAL? NEW8 -1 - PHRASE172>
14468                     <DEAD NEW8>
14469                     <EQUAL? SHL7 0 - PHRASE174>
14470                     <DEAD SHL7>
14471                     <VEQUAL? FLIP14 0 + PHRASE176>
14472                     <DEAD FLIP14>
14473                     <SET NEW8 'HRROS (TYPE ATOM)>
14474                     <JUMP + PHRASE185>
14475 PHRASE176
14476                     <SET NEW8 'HLLOS (TYPE ATOM)>
14477                     <JUMP + PHRASE185>
14478 PHRASE174
14479                     <VEQUAL? FLIP14 0 + PHRASE178>
14480                     <DEAD FLIP14>
14481                     <SET NEW8 'HRLOS (TYPE ATOM)>
14482                     <JUMP + PHRASE185>
14483 PHRASE178
14484                     <SET NEW8 'HRROS (TYPE ATOM)>
14485                     <JUMP + PHRASE185>
14486 PHRASE172
14487                     <EQUAL? SHL7 0 - PHRASE180>
14488                     <DEAD SHL7>
14489                     <VEQUAL? FLIP14 0 + PHRASE182>
14490                     <DEAD FLIP14>
14491                     <SET NEW8 'HRRZS (TYPE ATOM)>
14492                     <JUMP + PHRASE185>
14493 PHRASE182
14494                     <SET NEW8 'HLLZS (TYPE ATOM)>
14495                     <JUMP + PHRASE185>
14496 PHRASE180
14497                     <VEQUAL? FLIP14 0 + PHRASE184>
14498                     <DEAD FLIP14>
14499                     <SET NEW8 'HRLZS (TYPE ATOM)>
14500                     <JUMP + PHRASE185>
14501 PHRASE184
14502                     <SET NEW8 'HRRZS (TYPE ATOM)>
14503 PHRASE185
14504                     <PUSH NEW8>
14505                     <DEAD NEW8>
14506                     <PUSH 'O*>
14507                     <SET TEMP15 2 (TYPE FIX)>
14508                     <SFRAME 'OBJ-VAL>
14509                     <PUSH OLD9>
14510                     <SCALL '\1aOBJ-VAL 1 = NEW8 + TAG170 TEMP15>
14511                     <LOOP (NEW8 TYPE VALUE LENGTH) (TEMP15 VALUE)>
14512 TAG187
14513                     <INTGO>
14514                     <EMPTY? NEW8 + TAG170>
14515                     <NTH1 NEW8 = STACK>
14516                     <REST1 NEW8 = NEW8>
14517                     <ADD TEMP15 1 = TEMP15 (TYPE FIX)>
14518                     <JUMP + TAG187>
14519 TAG170
14520                     <CALL '\1aOCEMIT TEMP15>
14521                     <DEAD TEMP15>
14522                     <JUMP + PHRASE245>
14523 PHRASE169
14524                     <EQUAL? DST13 'STACK + PHRASE191>
14525                     <FRAME '\1aASSIGN-AC>
14526                     <PUSH DST13>
14527                     <PUSH 'BOTH>
14528                     <CALL '\1aASSIGN-AC 2 = NAC12>
14529 PHRASE191
14530                     <FRAME '\1aOCEMIT>
14531                     <EQUAL? NEW8 -1 - PHRASE195>
14532                     <DEAD NEW8>
14533                     <EQUAL? SHL7 0 - PHRASE197>
14534                     <DEAD SHL7>
14535                     <VEQUAL? FLIP14 0 + PHRASE199>
14536                     <DEAD FLIP14>
14537                     <SET TEMP15 'HRRO (TYPE ATOM)>
14538                     <JUMP + PHRASE208>
14539 PHRASE199
14540                     <SET TEMP15 'HLLO (TYPE ATOM)>
14541                     <JUMP + PHRASE208>
14542 PHRASE197
14543                     <VEQUAL? FLIP14 0 + PHRASE201>
14544                     <DEAD FLIP14>
14545                     <SET TEMP15 'HRLO (TYPE ATOM)>
14546                     <JUMP + PHRASE208>
14547 PHRASE201
14548                     <SET TEMP15 'HRRO (TYPE ATOM)>
14549                     <JUMP + PHRASE208>
14550 PHRASE195
14551                     <EQUAL? SHL7 0 - PHRASE203>
14552                     <DEAD SHL7>
14553                     <VEQUAL? FLIP14 0 + PHRASE205>
14554                     <DEAD FLIP14>
14555                     <SET TEMP15 'HRRZ (TYPE ATOM)>
14556                     <JUMP + PHRASE208>
14557 PHRASE205
14558                     <SET TEMP15 'HLLZ (TYPE ATOM)>
14559                     <JUMP + PHRASE208>
14560 PHRASE203
14561                     <VEQUAL? FLIP14 0 + PHRASE207>
14562                     <DEAD FLIP14>
14563                     <SET TEMP15 'HRLZ (TYPE ATOM)>
14564                     <JUMP + PHRASE208>
14565 PHRASE207
14566                     <SET TEMP15 'HRRZ (TYPE ATOM)>
14567 PHRASE208
14568                     <PUSH TEMP15>
14569                     <DEAD TEMP15>
14570                     <EQUAL? DST13 'STACK - PHRASE210>
14571                     <SET TEMP15 'O* (TYPE ATOM)>
14572                     <JUMP + PHRASE211>
14573 PHRASE210
14574                     <FRAME '\1aNEXT-AC>
14575                     <PUSH NAC12>
14576                     <CALL '\1aNEXT-AC 1 = TEMP15>
14577 PHRASE211
14578                     <PUSH TEMP15>
14579                     <DEAD TEMP15>
14580                     <SET NEW8 2 (TYPE FIX)>
14581                     <SFRAME 'OBJ-VAL>
14582                     <PUSH OLD9>
14583                     <SCALL '\1aOBJ-VAL 1 = TEMP15 + TAG193 NEW8>
14584                     <LOOP (TEMP15 TYPE VALUE LENGTH) (NEW8 VALUE)>
14585 TAG214
14586                     <INTGO>
14587                     <EMPTY? TEMP15 + TAG193>
14588                     <NTH1 TEMP15 = STACK>
14589                     <REST1 TEMP15 = TEMP15>
14590                     <ADD NEW8 1 = NEW8 (TYPE FIX)>
14591                     <JUMP + TAG214>
14592 TAG193
14593                     <CALL '\1aOCEMIT NEW8>
14594                     <DEAD NEW8>
14595                     <EQUAL? DST13 'STACK - PHRASE217>
14596                     <FRAME '\1aOCEMIT>
14597                     <PUSH 'PUSH>
14598                     <PUSH 'TP*>
14599                     <SET TEMP15 2 (TYPE FIX)>
14600                     <SFRAME 'TYPE-WORD>
14601                     <PUSH 'FIX>
14602                     <SCALL '\1aTYPE-WORD 1 = NEW8 + TAG218 TEMP15>
14603                     <LOOP (NEW8 TYPE VALUE LENGTH) (TEMP15 VALUE)>
14604 TAG220
14605                     <INTGO>
14606                     <EMPTY? NEW8 + TAG218>
14607                     <NTH1 NEW8 = STACK>
14608                     <REST1 NEW8 = NEW8>
14609                     <ADD TEMP15 1 = TEMP15 (TYPE FIX)>
14610                     <JUMP + TAG220>
14611 TAG218
14612                     <CALL '\1aOCEMIT TEMP15>
14613                     <DEAD TEMP15>
14614                     <FRAME '\1aOCEMIT>
14615                     <PUSH 'PUSH>
14616                     <PUSH 'TP*>
14617                     <PUSH 'O*>
14618                     <CALL '\1aOCEMIT 3>
14619                     <GVAL 'WINNING-VICTIM = TEMP15>
14620                     <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE245>
14621                     <DEAD TEMP15>
14622                     <GVAL 'STACK-DEPTH = TEMP15>
14623                     <ADD TEMP15 2 = TEMP15 (TYPE FIX)>
14624                     <SETG 'STACK-DEPTH TEMP15>
14625                     <DEAD TEMP15>
14626                     <JUMP + PHRASE245>
14627 PHRASE217
14628                     <FRAME '\1aGET-AC>
14629                     <PUSH NAC12>
14630                     <DEAD NAC12>
14631                     <CALL '\1aGET-AC 1 = TEMP15>
14632                     <PUTUV TEMP15 6 'FIX>
14633                     <DEAD TEMP15>
14634                     <JUMP + PHRASE245>
14635 PHRASE167
14636                     <EQUAL? DST13 'STACK - PHRASE227>
14637                     <FRAME '\1aOCEMIT>
14638                     <PUSH 'PUSH>
14639                     <PUSH 'TP*>
14640                     <SET NEW8 2 (TYPE FIX)>
14641                     <SFRAME 'TYPE-WORD>
14642                     <PUSH 'FIX>
14643                     <SCALL '\1aTYPE-WORD 1 = TEMP15 + TAG228 NEW8>
14644                     <LOOP (TEMP15 TYPE VALUE LENGTH) (NEW8 VALUE)>
14645 TAG230
14646                     <INTGO>
14647                     <EMPTY? TEMP15 + TAG228>
14648                     <NTH1 TEMP15 = STACK>
14649                     <REST1 TEMP15 = TEMP15>
14650                     <ADD NEW8 1 = NEW8 (TYPE FIX)>
14651                     <JUMP + TAG230>
14652 TAG228
14653                     <CALL '\1aOCEMIT NEW8>
14654                     <DEAD NEW8>
14655                     <FRAME '\1aOCEMIT>
14656                     <PUSH 'PUSH>
14657                     <PUSH 'TP*>
14658                     <SET TEMP15 2 (TYPE FIX)>
14659                     <SFRAME 'OBJ-VAL>
14660                     <PUSH OLD9>
14661                     <SCALL '\1aOBJ-VAL 1 = NEW8 + TAG232 TEMP15>
14662                     <LOOP (NEW8 TYPE VALUE LENGTH) (TEMP15 VALUE)>
14663 TAG234
14664                     <INTGO>
14665                     <EMPTY? NEW8 + TAG232>
14666                     <NTH1 NEW8 = STACK>
14667                     <REST1 NEW8 = NEW8>
14668                     <ADD TEMP15 1 = TEMP15 (TYPE FIX)>
14669                     <JUMP + TAG234>
14670 TAG232
14671                     <CALL '\1aOCEMIT TEMP15>
14672                     <DEAD TEMP15>
14673                     <FRAME '\1aOCEMIT>
14674                     <EQUAL? SHL7 0 - PHRASE238>
14675                     <DEAD SHL7>
14676                     <VEQUAL? FLIP14 0 + PHRASE240>
14677                     <DEAD FLIP14>
14678                     <SET TEMP15 'HLLM (TYPE ATOM)>
14679                     <JUMP + PHRASE242>
14680 PHRASE240
14681                     <SET TEMP15 'HRRM (TYPE ATOM)>
14682                     <JUMP + PHRASE242>
14683 PHRASE238
14684                     <SET TEMP15 'HRLM (TYPE ATOM)>
14685 PHRASE242
14686                     <PUSH TEMP15>
14687                     <DEAD TEMP15>
14688                     <PUSH NAC12>
14689                     <DEAD NAC12>
14690                     <PUSH (TP*)>
14691                     <CALL '\1aOCEMIT 3>
14692                     <GVAL 'WINNING-VICTIM = TEMP15>
14693                     <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE245>
14694                     <DEAD TEMP15>
14695                     <GVAL 'STACK-DEPTH = TEMP15>
14696                     <ADD TEMP15 2 = TEMP15 (TYPE FIX)>
14697                     <SETG 'STACK-DEPTH TEMP15>
14698                     <DEAD TEMP15>
14699                     <JUMP + PHRASE245>
14700 PHRASE227
14701                     <FRAME '\1aOCEMIT>
14702                     <EQUAL? SHL7 0 - PHRASE248>
14703                     <DEAD SHL7>
14704                     <VEQUAL? FLIP14 0 + PHRASE250>
14705                     <DEAD FLIP14>
14706                     <SET TEMP15 'HLLM (TYPE ATOM)>
14707                     <JUMP + PHRASE252>
14708 PHRASE250
14709                     <SET TEMP15 'HRRM (TYPE ATOM)>
14710                     <JUMP + PHRASE252>
14711 PHRASE248
14712                     <SET TEMP15 'HRLM (TYPE ATOM)>
14713 PHRASE252
14714                     <PUSH TEMP15>
14715                     <DEAD TEMP15>
14716                     <PUSH NAC12>
14717                     <DEAD NAC12>
14718                     <SET NEW8 2 (TYPE FIX)>
14719                     <SFRAME 'OBJ-VAL>
14720                     <PUSH OLD9>
14721                     <SCALL '\1aOBJ-VAL 1 = TEMP15 + TAG246 NEW8>
14722                     <LOOP (TEMP15 TYPE VALUE LENGTH) (NEW8 VALUE)>
14723 TAG254
14724                     <INTGO>
14725                     <EMPTY? TEMP15 + TAG246>
14726                     <NTH1 TEMP15 = STACK>
14727                     <REST1 TEMP15 = TEMP15>
14728                     <ADD NEW8 1 = NEW8 (TYPE FIX)>
14729                     <JUMP + TAG254>
14730 TAG246
14731                     <CALL '\1aOCEMIT NEW8>
14732                     <DEAD NEW8>
14733 PHRASE245
14734                     <SET NEW8 WL6>
14735                     <TYPE? NEW8 <TYPE-CODE FALSE> + PHRASE263>
14736                     <EQUAL? OLD9 DST13 - TAG259>
14737                     <DEAD OLD9>
14738                     <RETURN %<>>
14739 TAG259
14740                     <EQUAL? DST13 'STACK - TAG260>
14741                     <RETURN %<>>
14742 TAG260
14743                     <FRAME '\1aCLEAN-ACS>
14744                     <PUSH DST13>
14745                     <CALL '\1aCLEAN-ACS 1>
14746                     <FRAME '\1aALTER-AC>
14747                     <PUSH WL6>
14748                     <DEAD WL6>
14749                     <PUSH DST13>
14750                     <DEAD DST13>
14751                     <CALL '\1aALTER-AC 2 = NEW8>
14752                     <RETURN NEW8>
14753                     <DEAD NEW8>
14754 PHRASE17
14755                     <FRAME '\1aRPUTBITS>
14756                     <PUSH L5>
14757                     <DEAD L5>
14758                     <CALL '\1aRPUTBITS 1 = NEW8>
14759 PHRASE263
14760                     <RETURN NEW8>
14761                     <DEAD NEW8>
14762                     <END \1aPUTBITS!-MIMOC>
14763 #WORD *37762402155*
14764                     <GFCN \1aRPUTBITS ("VALUE" <OR FALSE FIX AC> LIST) L4>
14765                     <TEMP WD5 TEMP22 WL6 SHL7 NEW8 DST9 (TAC?10 %<>) (AC?11 %<>) (OL14 %<>) (AC15 %<>) (W16 0) (SH17 0) (VT19 %<>) (WAS-TYPED20 %<>) (DST-IN-O1-21 %<>) TEMP38 TEMP89>
14766                     <INTGO>
14767                     <NTHL L4 1 = WD5>
14768                     <RESTL L4 1 = TEMP22 (TYPE LIST)>
14769                     <NTHL TEMP22 1 = WL6>
14770                     <DEAD TEMP22>
14771                     <RESTL L4 1 = TEMP22 (TYPE LIST)>
14772                     <RESTL TEMP22 1 = TEMP22 (TYPE LIST)>
14773                     <NTHL TEMP22 1 = SHL7>
14774                     <DEAD TEMP22>
14775                     <RESTL L4 1 = TEMP22 (TYPE LIST)>
14776                     <RESTL TEMP22 1 = TEMP22 (TYPE LIST)>
14777                     <RESTL TEMP22 1 = TEMP22 (TYPE LIST)>
14778                     <NTHL TEMP22 1 = NEW8>
14779                     <DEAD TEMP22>
14780                     <NTHL L4 6 = DST9>
14781                     <DEAD L4>
14782                     <TYPE? WL6 <TYPE-CODE FIX> - PHRASE24>
14783                     <SET W16 WL6>
14784 PHRASE24
14785                     <TYPE? SHL7 <TYPE-CODE FIX> - PHRASE26>
14786                     <SET SH17 SHL7>
14787 PHRASE26
14788                     <TYPE? WD5 <TYPE-CODE ATOM> - PHRASE28>
14789                     <FRAME '\1aOBJ-LOC>
14790                     <PUSH WD5>
14791                     <PUSH 1>
14792                     <CALL '\1aOBJ-LOC 2 = OL14>
14793                     <FRAME '\1aIN-AC?>
14794                     <PUSH WD5>
14795                     <PUSH 'BOTH>
14796                     <CALL '\1aIN-AC? 2 = TAC?10>
14797                     <FRAME '\1aIN-AC?>
14798                     <PUSH WD5>
14799                     <PUSH 'VALUE>
14800                     <CALL '\1aIN-AC? 2 = AC?11>
14801                     <FRAME '\1aVAR-TYPED?>
14802                     <PUSH WD5>
14803                     <CALL '\1aVAR-TYPED? 1 = VT19>
14804                     <JUMP + PHRASE49>
14805 PHRASE28
14806                     <FRAME '\1aPRIMTYPE>
14807                     <PUSH WD5>
14808                     <CALL '\1aPRIMTYPE 1 = TEMP22>
14809                     <VEQUAL? TEMP22 'FIX + PHRASE33>
14810                     <DEAD TEMP22>
14811                     <FRAME '\1aMIMOCERR>
14812                     <PUSH 'BAD-ARG-TO-PUTBITS>
14813                     <PUSH WD5>
14814                     <CALL '\1aMIMOCERR 2>
14815                     <JUMP + PHRASE49>
14816 PHRASE33
14817                     <EQUAL? DST9 'STACK - PHRASE36>
14818                     <FRAME '\1aOCEMIT>
14819                     <PUSH 'PUSH>
14820                     <PUSH 'TP*>
14821                     <SET TEMP38 2 (TYPE FIX)>
14822                     <SFRAME 'TYPE-WORD>
14823                     <PUSH 'FIX>
14824                     <SCALL '\1aTYPE-WORD 1 = TEMP22 + TAG37 TEMP38>
14825                     <LOOP (TEMP22 TYPE VALUE LENGTH) (TEMP38 VALUE)>
14826 TAG40
14827                     <INTGO>
14828                     <EMPTY? TEMP22 + TAG37>
14829                     <NTH1 TEMP22 = STACK>
14830                     <REST1 TEMP22 = TEMP22>
14831                     <ADD TEMP38 1 = TEMP38 (TYPE FIX)>
14832                     <JUMP + TAG40>
14833 TAG37
14834                     <CALL '\1aOCEMIT TEMP38>
14835                     <DEAD TEMP38>
14836                     <FRAME '\1aOCEMIT>
14837                     <PUSH 'PUSH>
14838                     <PUSH 'TP*>
14839                     <SET TEMP22 2 (TYPE FIX)>
14840                     <SFRAME 'OBJ-VAL>
14841                     <CHTYPE WD5 <TYPE-CODE CONSTANT> = STACK>
14842                     <SCALL '\1aOBJ-VAL 1 = TEMP38 + TAG42 TEMP22>
14843                     <LOOP (TEMP38 TYPE VALUE LENGTH) (TEMP22 VALUE)>
14844 TAG44
14845                     <INTGO>
14846                     <EMPTY? TEMP38 + TAG42>
14847                     <NTH1 TEMP38 = STACK>
14848                     <REST1 TEMP38 = TEMP38>
14849                     <ADD TEMP22 1 = TEMP22 (TYPE FIX)>
14850                     <JUMP + TAG44>
14851 TAG42
14852                     <CALL '\1aOCEMIT TEMP22>
14853                     <DEAD TEMP22>
14854                     <FRAME '\1aCONST-LOC>
14855                     <CHTYPE WD5 <TYPE-CODE CONSTANT> = STACK>
14856                     <PUSH 'VALUE>
14857                     <CALL '\1aCONST-LOC 2>
14858                     <GVAL 'WINNING-VICTIM = TEMP22>
14859                     <TYPE? TEMP22 <TYPE-CODE FALSE> + PHRASE49>
14860                     <DEAD TEMP22>
14861                     <GVAL 'STACK-DEPTH = TEMP22>
14862                     <ADD TEMP22 2 = TEMP22 (TYPE FIX)>
14863                     <SETG 'STACK-DEPTH TEMP22>
14864                     <DEAD TEMP22>
14865                     <JUMP + PHRASE49>
14866 PHRASE36
14867                     <EQUAL? DST9 NEW8 + BOOL52>
14868                     <EQUAL? DST9 'SHL + BOOL52>
14869                     <EQUAL? DST9 WL6 - PHRASE51>
14870 BOOL52
14871                     <SET DST-IN-O1-21 'T (TYPE ATOM)>
14872                     <FRAME '\1aOCEMIT>
14873                     <PUSH 'MOVE>
14874                     <PUSH 'O1*>
14875                     <SET TEMP38 2 (TYPE FIX)>
14876                     <SFRAME 'OBJ-VAL>
14877                     <PUSH DST9>
14878                     <SCALL '\1aOBJ-VAL 1 = TEMP22 + TAG53 TEMP38>
14879                     <LOOP (TEMP22 TYPE VALUE LENGTH) (TEMP38 VALUE)>
14880 TAG55
14881                     <INTGO>
14882                     <EMPTY? TEMP22 + TAG53>
14883                     <NTH1 TEMP22 = STACK>
14884                     <REST1 TEMP22 = TEMP22>
14885                     <ADD TEMP38 1 = TEMP38 (TYPE FIX)>
14886                     <JUMP + TAG55>
14887 TAG53
14888                     <CALL '\1aOCEMIT TEMP38>
14889                     <DEAD TEMP38>
14890 PHRASE51
14891                     <FRAME '\1aNEXT-AC>
14892                     <FRAME '\1aASSIGN-AC>
14893                     <PUSH DST9>
14894                     <PUSH 'BOTH>
14895                     <CALL '\1aASSIGN-AC 2 = TAC?10>
14896                     <PUSH TAC?10>
14897                     <CALL '\1aNEXT-AC 1 = AC?11>
14898                     <FRAME '\1aLOAD-AC>
14899                     <PUSH WD5>
14900                     <DEAD WD5>
14901                     <PUSH 'VALUE>
14902                     <PUSH %<>>
14903                     <PUSH %<>>
14904                     <FRAME '\1aGET-AC>
14905                     <PUSH AC?11>
14906                     <CALL '\1aGET-AC 1 = STACK>
14907                     <CALL '\1aLOAD-AC 5>
14908                     <FRAME '\1aCLEAN-ACS>
14909                     <PUSH DST9>
14910                     <CALL '\1aCLEAN-ACS 1>
14911                     <FRAME '\1aALTER-AC>
14912                     <PUSH TAC?10>
14913                     <PUSH DST9>
14914                     <CALL '\1aALTER-AC 2>
14915                     <SET WD5 DST9>
14916 PHRASE49
14917                     <LSH SH17 30 = TEMP38 (TYPE FIX)>
14918                     <DEAD SH17>
14919                     <LSH W16 24 = TEMP22 (TYPE FIX)>
14920                     <DEAD W16>
14921                     <OR TEMP38 TEMP22 = W16>
14922                     <DEAD TEMP38 TEMP22>
14923                     <TYPE? WD5 <TYPE-CODE ATOM> - PHRASE71>
14924                     <EQUAL? WD5 DST9 - BOOL66>
14925                     <TYPE? VT19 <TYPE-CODE FALSE> - PHRASE71>
14926                     <TYPE? AC?11 <TYPE-CODE FALSE> - PHRASE71>
14927 BOOL66
14928                     <FRAME '\1aLOAD-AC>
14929                     <PUSH WD5>
14930                     <PUSH 'BOTH>
14931                     <CALL '\1aLOAD-AC 2 = TAC?10>
14932                     <FRAME '\1aNEXT-AC>
14933                     <PUSH TAC?10>
14934                     <CALL '\1aNEXT-AC 1 = AC?11>
14935                     <EQUAL? WD5 DST9 + PHRASE71>
14936                     <FRAME '\1aWILL-DIE?>
14937                     <PUSH WD5>
14938                     <CALL '\1aWILL-DIE? 1 = TEMP22>
14939                     <TYPE? TEMP22 <TYPE-CODE FALSE> - PHRASE71>
14940                     <DEAD TEMP22>
14941                     <FRAME '\1aFLUSH-AC>
14942                     <PUSH TAC?10>
14943                     <PUSH 'T>
14944                     <CALL '\1aFLUSH-AC 2>
14945 PHRASE71
14946                     <EQUAL? WD5 DST9 + PHRASE81>
14947                     <TYPE? TAC?10 <TYPE-CODE FALSE> + PHRASE78>
14948                     <FRAME '\1aGET-AC>
14949                     <PUSH TAC?10>
14950                     <CALL '\1aGET-AC 1 = TEMP22>
14951                     <NTHUV TEMP22 6 = WAS-TYPED20>
14952                     <DEAD TEMP22>
14953                     <FRAME '\1aMUNGED-AC>
14954                     <PUSH TAC?10>
14955                     <PUSH 'T>
14956                     <CALL '\1aMUNGED-AC 2>
14957                     <JUMP + PHRASE81>
14958 PHRASE78
14959                     <TYPE? AC?11 <TYPE-CODE FALSE> + PHRASE81>
14960                     <FRAME '\1aMUNGED-AC>
14961                     <PUSH AC?11>
14962                     <CALL '\1aMUNGED-AC 1>
14963 PHRASE81
14964                     <TYPE? AC?11 <TYPE-CODE FALSE> + PHRASE84>
14965                     <GVAL 'ACS = TEMP22>
14966                     <TYPE AC?11 = TEMP38>
14967                     <EMPUV? TEMP22 + TAG85>
14968                     <LOOP (AC?11 VALUE) (TEMP38 VALUE) (TEMP22 LENGTH VALUE)>
14969 TAG87
14970                     <NTHUV TEMP22 1 = TEMP89>
14971                     <TYPE? TEMP89 TEMP38 - TAG88>
14972                     <VEQUAL? TEMP89 AC?11 + TAG86>
14973                     <DEAD TEMP89>
14974 TAG88
14975                     <RESTUV TEMP22 1 = TEMP22 (TYPE VECTOR)>
14976                     <EMPUV? TEMP22 - TAG87>
14977 TAG85
14978                     <SET TEMP22 %<> (TYPE FALSE)>
14979 TAG86
14980                     <NTHUV TEMP22 2 = TEMP89>
14981                     <DEAD TEMP22>
14982 PHRASE84
14983                     <TYPE? WD5 <TYPE-CODE FIX> - PHRASE91>
14984                     <EQUAL? DST9 'STACK - PHRASE91>
14985                     <GVAL 'TP* = TEMP22>
14986                     <LSH TEMP22 18 = TEMP22 (TYPE FIX)>
14987                     <OR W16 TEMP22 = TEMP38>
14988                     <DEAD W16 TEMP22>
14989                     <CHTYPE TEMP38 <TYPE-CODE CONSTANT> = W16>
14990                     <DEAD TEMP38>
14991                     <JUMP + PHRASE94>
14992 PHRASE91
14993                     <TYPE? AC?11 <TYPE-CODE FALSE> + PHRASE93>
14994                     <OR W16 TEMP89 = TEMP38>
14995                     <DEAD W16 TEMP89>
14996                     <CHTYPE TEMP38 <TYPE-CODE CONSTANT> = W16>
14997                     <DEAD TEMP38>
14998                     <JUMP + PHRASE94>
14999 PHRASE93
15000                     <TYPE? OL14 <TYPE-CODE FALSE> + PHRASE94>
15001                     <RESTL OL14 1 = TEMP38 (TYPE LIST)>
15002                     <RESTL TEMP38 1 = TEMP38 (TYPE LIST)>
15003                     <NTHL TEMP38 1 = TEMP38>
15004                     <NTHL TEMP38 1 = TEMP38>
15005                     <GVAL 'ACS = TEMP22>
15006                     <TYPE TEMP38 = TEMP89>
15007                     <EMPUV? TEMP22 + TAG95>
15008                     <LOOP (TEMP38 VALUE) (TEMP89 VALUE) (TEMP22 LENGTH VALUE)>
15009 TAG97
15010                     <NTHUV TEMP22 1 = SH17>
15011                     <TYPE? SH17 TEMP89 - TAG98>
15012                     <VEQUAL? SH17 TEMP38 + TAG96>
15013                     <DEAD SH17>
15014 TAG98
15015                     <RESTUV TEMP22 1 = TEMP22 (TYPE VECTOR)>
15016                     <EMPUV? TEMP22 - TAG97>
15017 TAG95
15018                     <SET TEMP22 %<> (TYPE FALSE)>
15019 TAG96
15020                     <NTHUV TEMP22 2 = TEMP22 (TYPE FIX)>
15021                     <LSH TEMP22 18 = TEMP22 (TYPE FIX)>
15022                     <NTHL OL14 1 = TEMP89>
15023                     <ADD TEMP22 TEMP89 = TEMP22 (TYPE FIX)>
15024                     <DEAD TEMP89>
15025                     <ADD TEMP22 W16 = TEMP22 (TYPE FIX)>
15026                     <DEAD W16>
15027                     <CONS TEMP22 () = TEMP22>
15028                     <RESTL OL14 1 = TEMP89 (TYPE LIST)>
15029                     <DEAD OL14>
15030                     <NTHL TEMP89 1 = TEMP89>
15031                     <CONS TEMP89 TEMP22 = TEMP22>
15032                     <DEAD TEMP89>
15033                     <CHTYPE TEMP22 <TYPE-CODE CONST-W-LOCAL> = W16>
15034                     <DEAD TEMP22>
15035 PHRASE94
15036                     <TYPE? WL6 <TYPE-CODE FIX> - PHRASE101>
15037                     <TYPE? SHL7 <TYPE-CODE FIX> - PHRASE101>
15038                     <TYPE? NEW8 <TYPE-CODE ATOM> - BOOL105>
15039                     <FRAME '\1aWILL-DIE?>
15040                     <PUSH NEW8>
15041                     <CALL '\1aWILL-DIE? 1 = TEMP22>
15042                     <TYPE? TEMP22 <TYPE-CODE FALSE> + PHRASE104>
15043                     <DEAD TEMP22>
15044                     <FRAME '\1aIN-AC?>
15045                     <PUSH NEW8>
15046                     <PUSH 'VALUE>
15047                     <CALL '\1aIN-AC? 2 = AC15>
15048                     <TYPE? AC15 <TYPE-CODE FALSE> - PHRASE104>
15049 BOOL105
15050                     <FRAME '\1aGET-INTO-ACS>
15051                     <PUSH NEW8>
15052                     <DEAD NEW8>
15053                     <PUSH 'VALUE>
15054                     <SET AC15 'T* (TYPE ATOM)>
15055                     <PUSH AC15>
15056                     <CALL '\1aGET-INTO-ACS 3>
15057                     <JUMP + PHRASE112>
15058 PHRASE104
15059                     <VEQUAL? DST-IN-O1-21 0 + PHRASE110>
15060                     <DEAD DST-IN-O1-21>
15061                     <EQUAL? NEW8 DST9 - PHRASE110>
15062                     <SET AC15 'O1* (TYPE ATOM)>
15063                     <JUMP + PHRASE112>
15064 PHRASE110
15065                     <TYPE? AC15 <TYPE-CODE FALSE> - PHRASE112>
15066                     <FRAME '\1aNEXT-AC>
15067                     <FRAME '\1aLOAD-AC>
15068                     <PUSH NEW8>
15069                     <DEAD NEW8>
15070                     <PUSH 'BOTH>
15071                     <CALL '\1aLOAD-AC 2 = STACK>
15072                     <CALL '\1aNEXT-AC 1 = AC15>
15073 PHRASE112
15074                     <FRAME '\1aCONST-LOC>
15075                     <PUSH W16>
15076                     <PUSH 'VALUE>
15077                     <CALL '\1aCONST-LOC 2>
15078                     <FRAME '\1aOCEMIT>
15079                     <PUSH 'DPB>
15080                     <PUSH AC15>
15081                     <DEAD AC15>
15082                     <SET TEMP89 2 (TYPE FIX)>
15083                     <SFRAME 'OBJ-VAL>
15084                     <PUSH W16>
15085                     <DEAD W16>
15086                     <SCALL '\1aOBJ-VAL 1 = TEMP22 + TAG116 TEMP89>
15087                     <LOOP (TEMP22 TYPE VALUE LENGTH) (TEMP89 VALUE)>
15088 TAG118
15089                     <INTGO>
15090                     <EMPTY? TEMP22 + TAG116>
15091                     <NTH1 TEMP22 = STACK>
15092                     <REST1 TEMP22 = TEMP22>
15093                     <ADD TEMP89 1 = TEMP89 (TYPE FIX)>
15094                     <JUMP + TAG118>
15095 TAG116
15096                     <CALL '\1aOCEMIT TEMP89>
15097                     <DEAD TEMP89>
15098                     <JUMP + PHRASE168>
15099 PHRASE101
15100                     <TYPE? AC?11 <TYPE-CODE FALSE> + PHRASE122>
15101                     <FRAME '\1aOCEMIT>
15102                     <PUSH 'MOVEI>
15103                     <PUSH 'O*>
15104                     <PUSH AC?11>
15105                     <CALL '\1aOCEMIT 3>
15106                     <JUMP + PHRASE124>
15107 PHRASE122
15108                     <FRAME '\1aCONST-LOC>
15109                     <PUSH W16>
15110                     <PUSH 'VALUE>
15111                     <CALL '\1aCONST-LOC 2>
15112                     <FRAME '\1aOCEMIT>
15113                     <PUSH 'MOVE>
15114                     <PUSH 'O*>
15115                     <SET TEMP22 2 (TYPE FIX)>
15116                     <SFRAME 'OBJ-VAL>
15117                     <PUSH W16>
15118                     <DEAD W16>
15119                     <SCALL '\1aOBJ-VAL 1 = TEMP89 + TAG126 TEMP22>
15120                     <LOOP (TEMP89 TYPE VALUE LENGTH) (TEMP22 VALUE)>
15121 TAG128
15122                     <INTGO>
15123                     <EMPTY? TEMP89 + TAG126>
15124                     <NTH1 TEMP89 = STACK>
15125                     <REST1 TEMP89 = TEMP89>
15126                     <ADD TEMP22 1 = TEMP22 (TYPE FIX)>
15127                     <JUMP + TAG128>
15128 TAG126
15129                     <CALL '\1aOCEMIT TEMP22>
15130                     <DEAD TEMP22>
15131 PHRASE124
15132                     <TYPE? SHL7 <TYPE-CODE FIX> + PHRASE131>
15133                     <FRAME '\1aOCEMIT>
15134                     <PUSH 'DPB>
15135                     <FRAME '\1aIN-AC?>
15136                     <PUSH SHL7>
15137                     <PUSH 'VALUE>
15138                     <CALL '\1aIN-AC? 2 = TEMP22>
15139                     <TYPE? TEMP22 <TYPE-CODE FALSE> - PHRASE137>
15140                     <EQUAL? SHL7 DST9 - PHRASE135>
15141                     <VEQUAL? DST-IN-O1-21 0 + PHRASE135>
15142                     <SET TEMP22 'O1* (TYPE ATOM)>
15143                     <JUMP + PHRASE137>
15144 PHRASE135
15145                     <FRAME '\1aNEXT-AC>
15146                     <FRAME '\1aLOAD-AC>
15147                     <PUSH SHL7>
15148                     <DEAD SHL7>
15149                     <PUSH 'BOTH>
15150                     <CALL '\1aLOAD-AC 2 = STACK>
15151                     <CALL '\1aNEXT-AC 1 = TEMP22>
15152 PHRASE137
15153                     <PUSH TEMP22>
15154                     <DEAD TEMP22>
15155                     <SET TEMP89 2 (TYPE FIX)>
15156                     <SFRAME 'OBJ-VAL>
15157                     <SET W16 #CONSTANT 32312918016 (TYPE CONSTANT)>
15158                     <PUSH W16>
15159                     <SCALL '\1aOBJ-VAL 1 = TEMP22 + TAG132 TEMP89>
15160                     <LOOP (TEMP22 TYPE VALUE LENGTH) (TEMP89 VALUE)>
15161 TAG141
15162                     <INTGO>
15163                     <EMPTY? TEMP22 + TAG132>
15164                     <NTH1 TEMP22 = STACK>
15165                     <REST1 TEMP22 = TEMP22>
15166                     <ADD TEMP89 1 = TEMP89 (TYPE FIX)>
15167                     <JUMP + TAG141>
15168 TAG132
15169                     <CALL '\1aOCEMIT TEMP89>
15170                     <DEAD TEMP89>
15171                     <FRAME '\1aCONST-LOC>
15172                     <PUSH W16>
15173                     <DEAD W16>
15174                     <PUSH 'VALUE>
15175                     <CALL '\1aCONST-LOC 2>
15176 PHRASE131
15177                     <TYPE? WL6 <TYPE-CODE FIX> + PHRASE145>
15178                     <FRAME '\1aOCEMIT>
15179                     <PUSH 'DPB>
15180                     <FRAME '\1aIN-AC?>
15181                     <PUSH WL6>
15182                     <PUSH 'VALUE>
15183                     <CALL '\1aIN-AC? 2 = TEMP89>
15184                     <TYPE? TEMP89 <TYPE-CODE FALSE> - PHRASE151>
15185                     <EQUAL? WL6 DST9 - PHRASE149>
15186                     <VEQUAL? DST-IN-O1-21 0 + PHRASE149>
15187                     <SET TEMP89 'O1* (TYPE ATOM)>
15188                     <JUMP + PHRASE151>
15189 PHRASE149
15190                     <FRAME '\1aNEXT-AC>
15191                     <FRAME '\1aLOAD-AC>
15192                     <PUSH WL6>
15193                     <DEAD WL6>
15194                     <PUSH 'BOTH>
15195                     <CALL '\1aLOAD-AC 2 = STACK>
15196                     <CALL '\1aNEXT-AC 1 = TEMP89>
15197 PHRASE151
15198                     <PUSH TEMP89>
15199                     <DEAD TEMP89>
15200                     <SET TEMP22 2 (TYPE FIX)>
15201                     <SFRAME 'OBJ-VAL>
15202                     <SET W16 #CONSTANT 25870467072 (TYPE CONSTANT)>
15203                     <PUSH W16>
15204                     <SCALL '\1aOBJ-VAL 1 = TEMP89 + TAG146 TEMP22>
15205                     <LOOP (TEMP89 TYPE VALUE LENGTH) (TEMP22 VALUE)>
15206 TAG155
15207                     <INTGO>
15208                     <EMPTY? TEMP89 + TAG146>
15209                     <NTH1 TEMP89 = STACK>
15210                     <REST1 TEMP89 = TEMP89>
15211                     <ADD TEMP22 1 = TEMP22 (TYPE FIX)>
15212                     <JUMP + TAG155>
15213 TAG146
15214                     <CALL '\1aOCEMIT TEMP22>
15215                     <DEAD TEMP22>
15216                     <FRAME '\1aCONST-LOC>
15217                     <PUSH W16>
15218                     <DEAD W16>
15219                     <PUSH 'VALUE>
15220                     <CALL '\1aCONST-LOC 2>
15221 PHRASE145
15222                     <TYPE? AC?11 <TYPE-CODE FALSE> + PHRASE162>
15223                     <FRAME '\1aGET-AC>
15224                     <PUSH AC?11>
15225                     <CALL '\1aGET-AC 1 = TEMP22>
15226                     <GVAL 'AC-STAMP = TEMP89>
15227                     <ADD TEMP89 1 = TEMP89 (TYPE FIX)>
15228                     <SETG 'AC-STAMP TEMP89>
15229                     <PUTUV TEMP22 4 TEMP89 (TYPE FIX)>
15230                     <DEAD TEMP22 TEMP89>
15231                     <TYPE? TAC?10 <TYPE-CODE FALSE> + PHRASE162>
15232                     <FRAME '\1aGET-AC>
15233                     <PUSH TAC?10>
15234                     <CALL '\1aGET-AC 1 = TEMP22>
15235                     <GVAL 'AC-STAMP = TEMP89>
15236                     <PUTUV TEMP22 4 TEMP89 (TYPE FIX)>
15237                     <DEAD TEMP22 TEMP89>
15238 PHRASE162
15239                     <EQUAL? NEW8 DST9 - PHRASE165>
15240                     <VEQUAL? DST-IN-O1-21 0 + PHRASE165>
15241                     <DEAD DST-IN-O1-21>
15242                     <FRAME '\1aOCEMIT>
15243                     <PUSH 'DPB>
15244                     <PUSH 'O1*>
15245                     <PUSH 'O*>
15246                     <CALL '\1aOCEMIT 3>
15247                     <JUMP + PHRASE168>
15248 PHRASE165
15249                     <FRAME '\1aLOAD-AC>
15250                     <PUSH NEW8>
15251                     <DEAD NEW8>
15252                     <PUSH 'BOTH>
15253                     <CALL '\1aLOAD-AC 2 = AC15>
15254                     <FRAME '\1aOCEMIT>
15255                     <PUSH 'DPB>
15256                     <FRAME '\1aNEXT-AC>
15257                     <PUSH AC15>
15258                     <DEAD AC15>
15259                     <CALL '\1aNEXT-AC 1 = STACK>
15260                     <PUSH 'O*>
15261                     <CALL '\1aOCEMIT 3>
15262 PHRASE168
15263                     <EQUAL? DST9 'STACK - PHRASE173>
15264                     <TYPE? WD5 <TYPE-CODE ATOM> + TAG176>
15265                     <DEAD WD5>
15266                     <RETURN %<>>
15267 TAG176
15268                     <FRAME '\1aOCEMIT>
15269                     <PUSH 'PUSH>
15270                     <PUSH 'TP*>
15271                     <SET TEMP38 2 (TYPE FIX)>
15272                     <SFRAME 'TYPE-WORD>
15273                     <PUSH 'FIX>
15274                     <SCALL '\1aTYPE-WORD 1 = TEMP89 + TAG178 TEMP38>
15275                     <LOOP (TEMP89 TYPE VALUE LENGTH) (TEMP38 VALUE)>
15276 TAG180
15277                     <INTGO>
15278                     <EMPTY? TEMP89 + TAG178>
15279                     <NTH1 TEMP89 = STACK>
15280                     <REST1 TEMP89 = TEMP89>
15281                     <ADD TEMP38 1 = TEMP38 (TYPE FIX)>
15282                     <JUMP + TAG180>
15283 TAG178
15284                     <CALL '\1aOCEMIT TEMP38>
15285                     <DEAD TEMP38>
15286                     <FRAME '\1aOCEMIT>
15287                     <PUSH 'PUSH>
15288                     <PUSH 'TP*>
15289                     <PUSH AC?11>
15290                     <DEAD AC?11>
15291                     <CALL '\1aOCEMIT 3>
15292                     <GVAL 'WINNING-VICTIM = TEMP22>
15293                     <TYPE? TEMP22 <TYPE-CODE FALSE> + PHRASE199>
15294                     <GVAL 'STACK-DEPTH = TEMP38>
15295                     <ADD TEMP38 2 = TEMP38 (TYPE FIX)>
15296                     <SETG 'STACK-DEPTH TEMP38>
15297                     <RETURN TEMP38>
15298                     <DEAD TEMP38>
15299 PHRASE173
15300                     <EQUAL? WD5 DST9 + PHRASE185>
15301                     <DEAD WD5>
15302                     <FRAME '\1aCLEAN-ACS>
15303                     <PUSH DST9>
15304                     <CALL '\1aCLEAN-ACS 1>
15305                     <FRAME '\1aGET-AC>
15306                     <PUSH TAC?10>
15307                     <CALL '\1aGET-AC 1 = TEMP38>
15308                     <PUTUV TEMP38 3 'TYPE (TYPE ATOM)>
15309                     <PUTUV TEMP38 2 DST9>
15310                     <PUTUV TEMP38 5 'T>
15311                     <DEAD TEMP38>
15312                     <TYPE? WAS-TYPED20 <TYPE-CODE FALSE> + PHRASE189>
15313                     <DEAD WAS-TYPED20>
15314                     <FRAME '\1aGET-AC>
15315                     <PUSH TAC?10>
15316                     <DEAD TAC?10>
15317                     <CALL '\1aGET-AC 1 = TEMP38>
15318                     <PUTUV TEMP38 6 'FIX>
15319                     <DEAD TEMP38>
15320 PHRASE189
15321                     <FRAME '\1aGET-AC>
15322                     <SET AC15 AC?11>
15323                     <DEAD AC?11>
15324                     <PUSH AC15>
15325                     <DEAD AC15>
15326                     <CALL '\1aGET-AC 1 = TEMP38>
15327                     <PUTUV TEMP38 5 'T>
15328                     <PUTUV TEMP38 2 DST9>
15329                     <DEAD DST9>
15330                     <PUTUV TEMP38 6 %<>>
15331                     <PUTUV TEMP38 3 'VALUE (TYPE ATOM)>
15332                     <RETURN TEMP38>
15333                     <DEAD TEMP38>
15334 PHRASE185
15335                     <SET TEMP22 AC?11>
15336                     <TYPE? TEMP22 <TYPE-CODE FALSE> + PHRASE199>
15337                     <TYPE? TAC?10 <TYPE-CODE FALSE> - PHRASE194>
15338                     <FRAME '\1aGETPROP>
15339                     <PUSH AC?11>
15340                     <PUSH 'AC-PAIR>
15341                     <CALL '\1aGETPROP 2 = TAC?10>
15342                     <FRAME '\1aGET-AC>
15343                     <PUSH TAC?10>
15344                     <CALL '\1aGET-AC 1 = TEMP38>
15345                     <PUTUV TEMP38 3 'TYPE (TYPE ATOM)>
15346                     <PUTUV TEMP38 2 DST9>
15347                     <DEAD DST9>
15348                     <PUTUV TEMP38 5 'T>
15349                     <DEAD TEMP38>
15350 PHRASE194
15351                     <FRAME '\1aGET-AC>
15352                     <PUSH AC?11>
15353                     <DEAD AC?11>
15354                     <CALL '\1aGET-AC 1 = TEMP38>
15355                     <PUTUV TEMP38 5 'T>
15356                     <DEAD TEMP38>
15357                     <TYPE? VT19 <TYPE-CODE FALSE> + TAG200>
15358                     <DEAD VT19>
15359                     <RETURN %<>>
15360 TAG200
15361                     <FRAME '\1aGET-AC>
15362                     <PUSH TAC?10>
15363                     <DEAD TAC?10>
15364                     <CALL '\1aGET-AC 1 = TEMP38>
15365                     <PUTUV TEMP38 6 'FIX>
15366                     <SET TEMP22 TEMP38>
15367                     <DEAD TEMP38>
15368 PHRASE199
15369                     <RETURN TEMP22>
15370                     <DEAD TEMP22>
15371                     <END \1aRPUTBITS>
15372
15373 #WORD *2773640507*
15374 <GFCN \1aDISPATCH!-MIMOC ("VALUE" ANY LIST) L4>
15375                     <TEMP VAR5 TEMP18 (DF9 %<>) DLBL10 LL12:LIST TEMP22:FIX TEMP3:LBIND TEMP31 TEMP29 TEMP34 TEMP33 LBL35 LBX37 DELBL7>
15376                     <INTGO>
15377                     <NTHL L4 1 = VAR5>
15378                     <RESTL L4 1 = TEMP18 (TYPE LIST)>
15379                     <NTHL TEMP18 1 = TEMP18 (TYPE FIX)>
15380                     <FRAME '\1aGENLBL>
15381                     <PUSH "DISP">
15382                     <CALL '\1aGENLBL 1 = DLBL10>
15383                     <GEN-LVAL 'MIML = LL12>
15384                     <LENL L4 = TEMP22 (TYPE FIX)>
15385                     <SUB TEMP22 2 = TEMP22 (TYPE FIX)>
15386                     <GETS 'BIND = TEMP3 (TYPE LBIND)>
15387                     <BBIND 'DISP-L 'LIST 'FIX ()>
15388                     <SET TEMP31 () (TYPE LIST)>
15389                     <SET TEMP29 () (TYPE LIST)>
15390                     <RESTL L4 1 = TEMP34 (TYPE LIST)>
15391                     <DEAD L4>
15392                     <RESTL TEMP34 1 = TEMP33 (TYPE LIST)>
15393                     <DEAD TEMP34>
15394                     <LOOP>
15395 MAP24
15396                     <INTGO>
15397                     <EMPL? TEMP33 + MAPAP27>
15398                     <NTHL TEMP33 1 = LBL35>
15399                     <FRAME '\1aFIND-LABEL>
15400                     <PUSH LBL35>
15401                     <CALL '\1aFIND-LABEL 1 = TEMP34>
15402                     <TYPE? TEMP34 <TYPE-CODE FALSE> + PHRASE39>
15403                     <NTHUV TEMP34 3 = TEMP34>
15404                     <TYPE? TEMP34 <TYPE-CODE FALSE> + PHRASE39>
15405                     <DEAD TEMP34>
15406                     <FRAME '\1aFIND-LABEL>
15407                     <FRAME '\1aGENLBL>
15408                     <PUSH "LOOPD">
15409                     <CALL '\1aGENLBL 1 = LBX37>
15410                     <PUSH LBX37>
15411                     <CALL '\1aFIND-LABEL 1 = TEMP34>
15412                     <TYPE? TEMP34 <TYPE-CODE FALSE> - PHRASE43>
15413                     <DEAD TEMP34>
15414                     <FRAME '\1aMAKE-LABEL>
15415                     <PUSH LBX37>
15416                     <PUSH %<>>
15417                     <PUSH ()>
15418                     <CALL '\1aMAKE-LABEL 3>
15419 PHRASE43
15420                     <CONS LBX37 () = TEMP34>
15421                     <DEAD LBX37>
15422                     <CONS LBL35 TEMP34 = TEMP34>
15423                     <DEAD LBL35>
15424                     <JUMP + PHRASE47>
15425 PHRASE39
15426                     <CONS LBL35 () = TEMP34>
15427                     <CONS LBL35 TEMP34 = TEMP34>
15428                     <DEAD LBL35>
15429 PHRASE47
15430                     <CONS TEMP34 () = TEMP34 (TYPE LIST)>
15431                     <EMPL? TEMP31 - TAG48>
15432                     <SET TEMP31 TEMP34 (TYPE LIST)>
15433                     <JUMP + TAG49>
15434 TAG48
15435                     <PUTREST TEMP29 TEMP34>
15436                     <DEAD TEMP29>
15437 TAG49
15438                     <SET TEMP29 TEMP34 (TYPE LIST)>
15439                     <DEAD TEMP34>
15440                     <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
15441                     <JUMP + MAP24>
15442 MAPAP27
15443                     <SET TEMP29 () (TYPE LIST)>
15444                     <SET TEMP34 () (TYPE LIST)>
15445                     <SET TEMP33 TEMP31 (TYPE LIST)>
15446                     <LOOP>
15447 MAP51
15448                     <INTGO>
15449                     <EMPL? TEMP33 + MAPAP54>
15450                     <NTHL TEMP33 1 = LBL35>
15451                     <RESTL LBL35 1 = LBL35 (TYPE LIST)>
15452                     <NTHL LBL35 1 = LBL35>
15453                     <CONS LBL35 () = LBL35 (TYPE LIST)>
15454                     <EMPL? TEMP29 - TAG61>
15455                     <SET TEMP29 LBL35 (TYPE LIST)>
15456                     <JUMP + TAG62>
15457 TAG61
15458                     <PUTREST TEMP34 LBL35>
15459                     <DEAD TEMP34>
15460 TAG62
15461                     <SET TEMP34 LBL35 (TYPE LIST)>
15462                     <DEAD LBL35>
15463                     <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
15464                     <JUMP + MAP51>
15465 MAPAP54
15466                     <NTHR 'DISP-L 2 = TEMP33 (RECORD-TYPE ATOM) (TYPE LBIND)>
15467                     <PUTR TEMP33 1 TEMP29 (RECORD-TYPE LBIND)>
15468                     <DEAD TEMP33 TEMP29>
15469                     <LOOP>
15470 AGAIN67
15471                     <INTGO>
15472                     <RESTL LL12 1 = LL12 (TYPE LIST)>
15473                     <EMPL? LL12 + EXIT65 (TYPE LIST)>
15474                     <NTHL LL12 1 = TEMP29>
15475                     <TYPE? TEMP29 <TYPE-CODE FORM> - PHRASE69>
15476                     <EMPL? TEMP29 + EXIT65 (TYPE FORM)>
15477                     <NTHL TEMP29 1 = LBL35>
15478                     <EQUAL? LBL35 'DEAD - EXIT65>
15479                     <DEAD LBL35>
15480 PHRASE69
15481                     <TYPE? TEMP29 <TYPE-CODE ATOM> - AGAIN67>
15482                     <SET DELBL7 TEMP29>
15483                     <DEAD TEMP29>
15484                     <SET DF9 'T (TYPE ATOM)>
15485 EXIT65
15486                     <FRAME '\1aIN-AC?>
15487                     <PUSH VAR5>
15488                     <PUSH 'BOTH>
15489                     <CALL '\1aIN-AC? 2 = TEMP29>
15490                     <TYPE? TEMP29 <TYPE-CODE FALSE> + PHRASE75>
15491                     <FRAME '\1aNEXT-AC>
15492                     <PUSH TEMP29>
15493                     <DEAD TEMP29>
15494                     <CALL '\1aNEXT-AC 1 = TEMP29>
15495                     <JUMP + PHRASE79>
15496 PHRASE75
15497                     <FRAME '\1aIN-AC?>
15498                     <PUSH VAR5>
15499                     <PUSH 'VALUE>
15500                     <CALL '\1aIN-AC? 2 = TEMP29>
15501                     <TYPE? TEMP29 <TYPE-CODE FALSE> - PHRASE79>
15502                     <FRAME '\1aNEXT-AC>
15503                     <FRAME '\1aLOAD-AC>
15504                     <PUSH VAR5>
15505                     <DEAD VAR5>
15506                     <PUSH 'BOTH>
15507                     <CALL '\1aLOAD-AC 2 = TEMP29>
15508                     <PUSH TEMP29>
15509                     <DEAD TEMP29>
15510                     <CALL '\1aNEXT-AC 1 = TEMP29>
15511 PHRASE79
15512                     <VEQUAL? DF9 0 - PHRASE86>
15513                     <FRAME '\1aGENLBL>
15514                     <PUSH "DEFAULT">
15515                     <CALL '\1aGENLBL 1 = DELBL7>
15516                     <FRAME '\1aFIND-LABEL>
15517                     <PUSH DELBL7>
15518                     <CALL '\1aFIND-LABEL 1 = LBL35>
15519                     <TYPE? LBL35 <TYPE-CODE FALSE> - PHRASE86>
15520                     <DEAD LBL35>
15521                     <FRAME '\1aMAKE-LABEL>
15522                     <PUSH DELBL7>
15523                     <PUSH %<>>
15524                     <PUSH ()>
15525                     <CALL '\1aMAKE-LABEL 3>
15526 PHRASE86
15527                     <FRAME '\1aLABEL-UPDATE-ACS>
15528                     <PUSH DELBL7>
15529                     <PUSH %<>>
15530                     <CALL '\1aLABEL-UPDATE-ACS 2>
15531                     <LESS? TEMP18 0 + PHRASE91 (TYPE FIX)>
15532                     <GRTR? TEMP18 1 + PHRASE91 (TYPE FIX)>
15533                     <FRAME '\1aOCEMIT>
15534                     <VEQUAL? TEMP18 0 - PHRASE99 (TYPE FIX)>
15535                     <SET LBL35 'JUMPL (TYPE ATOM)>
15536                     <JUMP + PHRASE102>
15537 PHRASE99
15538                     <SET LBL35 'JUMPLE (TYPE ATOM)>
15539 PHRASE102
15540                     <PUSH LBL35>
15541                     <DEAD LBL35>
15542                     <PUSH TEMP29>
15543                     <FRAME '\1aXJUMP>
15544                     <PUSH DELBL7>
15545                     <CALL '\1aXJUMP 1 = STACK>
15546                     <CALL '\1aOCEMIT 3>
15547                     <FRAME '\1aOCEMIT>
15548                     <PUSH 'CAILE>
15549                     <PUSH TEMP29>
15550                     <ADD TEMP22 TEMP18 = LBL35 (TYPE FIX)>
15551                     <DEAD TEMP22>
15552                     <ADD LBL35 -1 = STACK (TYPE FIX)>
15553                     <DEAD LBL35>
15554                     <CALL '\1aOCEMIT 3>
15555                     <FRAME '\1aOCEMIT>
15556                     <PUSH 'JRST>
15557                     <PUSH 'O*>
15558                     <FRAME '\1aXJUMP>
15559                     <PUSH DELBL7>
15560                     <CALL '\1aXJUMP 1 = STACK>
15561                     <CALL '\1aOCEMIT 3>
15562                     <JUMP + PHRASE107>
15563 PHRASE91
15564                     <GRTR? TEMP18 0 - PHRASE109 (TYPE FIX)>
15565                     <FRAME '\1aOCEMIT>
15566                     <PUSH 'CAIL>
15567                     <PUSH TEMP29>
15568                     <PUSH TEMP18>
15569                     <CALL '\1aOCEMIT 3>
15570                     <JUMP + PHRASE113>
15571 PHRASE109
15572                     <FRAME '\1aOCEMIT>
15573                     <PUSH 'CAML>
15574                     <PUSH TEMP29>
15575                     <SET VAR5 2 (TYPE FIX)>
15576                     <SFRAME 'OBJ-VAL>
15577                     <PUSH TEMP18>
15578                     <SCALL '\1aOBJ-VAL 1 = LBL35 + TAG114 VAR5>
15579                     <LOOP (LBL35 TYPE VALUE LENGTH) (VAR5 VALUE)>
15580 TAG117
15581                     <INTGO>
15582                     <EMPTY? LBL35 + TAG114>
15583                     <NTH1 LBL35 = STACK>
15584                     <REST1 LBL35 = LBL35>
15585                     <ADD VAR5 1 = VAR5 (TYPE FIX)>
15586                     <JUMP + TAG117>
15587 TAG114
15588                     <CALL '\1aOCEMIT VAR5>
15589                     <DEAD VAR5>
15590 PHRASE113
15591                     <ADD TEMP22 TEMP18 = VAR5 (TYPE FIX)>
15592                     <DEAD TEMP22>
15593                     <ADD VAR5 -1 = TEMP22 (TYPE FIX)>
15594                     <DEAD VAR5>
15595                     <GRTR? TEMP22 0 - PHRASE120 (TYPE FIX)>
15596                     <FRAME '\1aOCEMIT>
15597                     <PUSH 'CAILE>
15598                     <PUSH TEMP29>
15599                     <PUSH TEMP22>
15600                     <DEAD TEMP22>
15601                     <CALL '\1aOCEMIT 3>
15602                     <JUMP + PHRASE124>
15603 PHRASE120
15604                     <FRAME '\1aOCEMIT>
15605                     <PUSH 'CAMLE>
15606                     <PUSH TEMP29>
15607                     <SET LBL35 2 (TYPE FIX)>
15608                     <SFRAME 'OBJ-CAL>
15609                     <PUSH TEMP22>
15610                     <DEAD TEMP22>
15611                     <SCALL '\1aOBJ-CAL 1 = VAR5 + TAG125 LBL35>
15612                     <LOOP (VAR5 TYPE VALUE LENGTH) (LBL35 VALUE)>
15613 TAG127
15614                     <INTGO>
15615                     <EMPTY? VAR5 + TAG125>
15616                     <NTH1 VAR5 = STACK>
15617                     <REST1 VAR5 = VAR5>
15618                     <ADD LBL35 1 = LBL35 (TYPE FIX)>
15619                     <JUMP + TAG127>
15620 TAG125
15621                     <CALL '\1aOCEMIT LBL35>
15622                     <DEAD LBL35>
15623 PHRASE124
15624                     <FRAME '\1aOCEMIT>
15625                     <PUSH 'JRST>
15626                     <PUSH 'O*>
15627                     <FRAME '\1aXJUMP>
15628                     <PUSH DELBL7>
15629                     <CALL '\1aXJUMP 1 = STACK>
15630                     <CALL '\1aOCEMIT 3>
15631 PHRASE107
15632                     <FRAME '\1aOCEMIT>
15633                     <PUSH 'XMOVEI>
15634                     <PUSH 'O1*>
15635                     <FRAME '\1aXJUMP>
15636                     <PUSH DLBL10>
15637                     <CALL '\1aXJUMP 1 = STACK>
15638                     <CALL '\1aOCEMIT 3>
15639                     <FRAME '\1aOCEMIT>
15640                     <PUSH 'ADD>
15641                     <PUSH 'O1*>
15642                     <PUSH TEMP29>
15643                     <DEAD TEMP29>
15644                     <CALL '\1aOCEMIT 3>
15645                     <SET LBL35 TEMP31 (TYPE LIST)>
15646                     <LOOP>
15647 MAP135
15648                     <INTGO>
15649                     <EMPL? LBL35 + MAPAP138>
15650                     <NTHL LBL35 1 = VAR5>
15651                     <FRAME '\1aLABEL-UPDATE-ACS>
15652                     <FRAME '\1aNTH>
15653                     <PUSH VAR5>
15654                     <DEAD VAR5>
15655                     <PUSH 2>
15656                     <CALL '\1aNTH 2 = STACK>
15657                     <PUSH %<>>
15658                     <CALL '\1aLABEL-UPDATE-ACS 2>
15659                     <RESTL LBL35 1 = LBL35 (TYPE LIST)>
15660                     <JUMP + MAP135>
15661 MAPAP138
15662                     <SETG 'LAST-UNCON 'T>
15663                     <FRAME '\1aOCEMIT>
15664                     <PUSH 'JRST>
15665                     <PUSH '@>
15666                     <SUB 0 TEMP18 = STACK (TYPE FIX)>
15667                     <DEAD TEMP18>
15668                     <PUSH (O1*)>
15669                     <CALL '\1aOCEMIT 4>
15670                     <FRAME '\1aLABEL>
15671                     <PUSH DLBL10>
15672                     <DEAD DLBL10>
15673                     <CALL '\1aLABEL 1>
15674                     <SET LBL35 TEMP31 (TYPE LIST)>
15675                     <LOOP>
15676 MAP149
15677                     <INTGO>
15678                     <EMPL? LBL35 + MAPAP152>
15679                     <NTHL LBL35 1 = VAR5>
15680                     <FRAME '\1aOCEMIT>
15681                     <PUSH 'SETZ>
15682                     <PUSH 'O*>
15683                     <FRAME '\1aXJUMP>
15684                     <FRAME '\1aNTH>
15685                     <PUSH VAR5>
15686                     <DEAD VAR5>
15687                     <PUSH 2>
15688                     <CALL '\1aNTH 2 = STACK>
15689                     <CALL '\1aXJUMP 1 = STACK>
15690                     <CALL '\1aOCEMIT 3>
15691                     <RESTL LBL35 1 = LBL35 (TYPE LIST)>
15692                     <JUMP + MAP149>
15693 MAPAP152
15694                     <SET LBL35 TEMP31 (TYPE LIST)>
15695                     <DEAD TEMP31>
15696                     <LOOP>
15697 MAP161
15698                     <INTGO>
15699                     <EMPL? LBL35 + MAPAP164>
15700                     <NTHL LBL35 1 = VAR5>
15701                     <NTH1 VAR5 = TEMP18>
15702                     <FRAME '\1aNTH>
15703                     <PUSH VAR5>
15704                     <PUSH 2>
15705                     <CALL '\1aNTH 2 = DLBL10>
15706                     <EQUAL? TEMP18 DLBL10 + PHRASE170>
15707                     <DEAD TEMP18 DLBL10>
15708                     <FRAME '\1aLABEL>
15709                     <FRAME '\1aNTH>
15710                     <PUSH VAR5>
15711                     <PUSH 2>
15712                     <CALL '\1aNTH 2 = STACK>
15713                     <CALL '\1aLABEL 1>
15714                     <FRAME '\1aJUMP!-MIMOC>
15715                     <NTH1 VAR5 = STACK>
15716                     <DEAD VAR5>
15717                     <CALL '\1aJUMP!-MIMOC 1>
15718 PHRASE170
15719                     <RESTL LBL35 1 = LBL35 (TYPE LIST)>
15720                     <JUMP + MAP161>
15721 MAPAP164
15722                     <VEQUAL? DF9 0 + TAG179>
15723                     <DEAD DF9>
15724                     <SET LBL35 %<> (TYPE FALSE)>
15725                     <JUMP + PHRASE193>
15726 TAG179
15727                     <GVAL 'PASS1 = VAR5>
15728                     <TYPE? VAR5 <TYPE-CODE FALSE> + PHRASE181>
15729                     <DEAD VAR5>
15730                     <FRAME '\1aLABEL>
15731                     <PUSH DELBL7>
15732                     <DEAD DELBL7>
15733                     <CALL '\1aLABEL 1 = VAR5>
15734                     <GEN-SET 'LB VAR5>
15735                     <DEAD VAR5>
15736                     <FRAME '\1aSAVE-LABEL-STATE>
15737                     <GEN-LVAL 'LB = STACK>
15738                     <CALL '\1aSAVE-LABEL-STATE 1 = LBL35>
15739                     <JUMP + PHRASE193>
15740 PHRASE181
15741                     <GVAL 'NO-AC-FUNNYNESS = VAR5>
15742                     <TYPE? VAR5 <TYPE-CODE FALSE> + PHRASE188>
15743                     <DEAD VAR5>
15744                     <FRAME '\1aSAVE-ACS>
15745                     <CALL '\1aSAVE-ACS 0>
15746                     <FRAME '\1aLABEL>
15747                     <PUSH DELBL7>
15748                     <DEAD DELBL7>
15749                     <CALL '\1aLABEL 1 = LBL35>
15750                     <GEN-SET 'LB LBL35>
15751                     <JUMP + PHRASE193>
15752 PHRASE188
15753                     <FRAME '\1aFIND-LABEL>
15754                     <PUSH DELBL7>
15755                     <CALL '\1aFIND-LABEL 1 = VAR5>
15756                     <GEN-SET 'LB VAR5>
15757                     <DEAD VAR5>
15758                     <FRAME '\1aESTABLISH-LABEL-STATE>
15759                     <GEN-LVAL 'LB = STACK>
15760                     <CALL '\1aESTABLISH-LABEL-STATE 1>
15761                     <FRAME '\1aLABEL>
15762                     <PUSH DELBL7>
15763                     <DEAD DELBL7>
15764                     <CALL '\1aLABEL 1 = LBL35>
15765 PHRASE193
15766                     <UNBIND TEMP3>
15767                     <DEAD TEMP3>
15768                     <ADJ -9>
15769                     <RETURN LBL35>
15770                     <DEAD LBL35>
15771                     <END \1aDISPATCH!-MIMOC>
15772 #WORD *33047003450*
15773 <GFCN \1aCHANNEL-OP!-MIMOC ("VALUE" ANY LIST) L4>
15774                     <TEMP CTYP5:FORM TEMP13 OPER6:FORM (EQSN7 %<>) RES8 (GC9 %<>) (NUM10:FIX 2) OC12 TEMP32 TEMP33>
15775                     <INTGO>
15776                     <NTHL L4 1 = CTYP5 (TYPE FORM)>
15777                     <RESTL L4 1 = TEMP13 (TYPE LIST)>
15778                     <NTHL TEMP13 1 = OPER6 (TYPE FORM)>
15779                     <DEAD TEMP13>
15780                     <FRAME '\1aGETPROP>
15781                     <RESTL CTYP5 1 = TEMP13 (TYPE LIST)>
15782                     <NTHL TEMP13 1 = STACK (TYPE ATOM)>
15783                     <DEAD TEMP13>
15784                     <PUSH 'OC-INDICATOR>
15785                     <CALL '\1aGETPROP 2 = OC12>
15786                     <TYPE? OC12 <TYPE-CODE FALSE> + PHRASE18>
15787                     <FRAME>
15788                     <RESTL OPER6 1 = TEMP13 (TYPE LIST)>
15789                     <NTHL TEMP13 1 = STACK (TYPE ATOM)>
15790                     <DEAD TEMP13>
15791                     <RESTL L4 1 = TEMP13 (TYPE LIST)>
15792                     <RESTL TEMP13 1 = STACK (TYPE LIST)>
15793                     <DEAD TEMP13>
15794                     <ACALL OC12 2 = OC12>
15795                     <TYPE? OC12 <TYPE-CODE FALSE> + PHRASE18>
15796                     <RETURN OC12>
15797                     <DEAD OC12>
15798 PHRASE18
15799                     <FRAME '\1aCT-QUERY>
15800                     <RESTL CTYP5 1 = TEMP13 (TYPE LIST)>
15801                     <NTHL TEMP13 1 = STACK (TYPE ATOM)>
15802                     <DEAD TEMP13>
15803                     <RESTL OPER6 1 = TEMP13 (TYPE LIST)>
15804                     <NTHL TEMP13 1 = STACK (TYPE ATOM)>
15805                     <DEAD TEMP13>
15806                     <CALL '\1aCT-QUERY 2 = OC12>
15807                     <TYPE? OC12 <TYPE-CODE FALSE> + PHRASE25>
15808                     <GVAL 'GLUE-MODE = TEMP13>
15809                     <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE27>
15810                     <DEAD TEMP13>
15811                     <GVAL 'PRE-NAMES = TEMP13>
15812                     <TYPE OC12 = TEMP32>
15813                     <EMPL? TEMP13 + PHRASE27>
15814                     <LOOP (OC12 VALUE) (TEMP32 VALUE) (TEMP13 VALUE)>
15815 TAG30
15816                     <NTHL TEMP13 1 = TEMP33>
15817                     <TYPE? TEMP33 TEMP32 - TAG31>
15818                     <VEQUAL? TEMP33 OC12 + TAG29>
15819                     <DEAD TEMP33>
15820 TAG31
15821                     <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
15822                     <EMPL? TEMP13 - TAG30>
15823                     <JUMP + PHRASE27>
15824 TAG29
15825                     <FRAME '\1aFRAME!-MIMOC>
15826                     <FRAME '\1aGENLBL>
15827                     <PUSH "?FRM">
15828                     <CALL '\1aGENLBL 1 = GC9>
15829                     <CONS GC9 () = TEMP13>
15830                     <CONS OC12 () = TEMP32>
15831                     <PUTREST TEMP13 TEMP32>
15832                     <DEAD TEMP32>
15833                     <PUSH TEMP13>
15834                     <DEAD TEMP13>
15835                     <CALL '\1aFRAME!-MIMOC 1>
15836                     <FRAME '\1aFORM>
15837                     <PUSH 'QUOTE>
15838                     <PUSH OC12>
15839                     <DEAD OC12>
15840                     <CALL '\1aFORM 2 = OC12>
15841                     <JUMP + PHRASE45>
15842 PHRASE27
15843                     <FRAME '\1aSUBRIFY?>
15844                     <PUSH OC12>
15845                     <CALL '\1aSUBRIFY? 1 = TEMP13>
15846                     <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE37>
15847                     <DEAD TEMP13>
15848                     <FRAME '\1aFRAME!-MIMOC>
15849                     <FRAME '\1aGENLBL>
15850                     <PUSH "?FRM">
15851                     <CALL '\1aGENLBL 1 = GC9>
15852                     <CONS GC9 () = TEMP13>
15853                     <CONS OC12 () = TEMP32>
15854                     <PUTREST TEMP13 TEMP32>
15855                     <DEAD TEMP32>
15856                     <PUSH TEMP13>
15857                     <DEAD TEMP13>
15858                     <CALL '\1aFRAME!-MIMOC 1>
15859                     <FRAME '\1aFORM>
15860                     <PUSH 'QUOTE>
15861                     <PUSH OC12>
15862                     <DEAD OC12>
15863                     <CALL '\1aFORM 2 = OC12>
15864                     <JUMP + PHRASE45>
15865 PHRASE37
15866                     <FRAME '\1aFORM>
15867                     <PUSH 'QUOTE>
15868                     <PUSH OC12>
15869                     <DEAD OC12>
15870                     <CALL '\1aFORM 2 = OC12>
15871                     <FRAME '\1aFRAME!-MIMOC>
15872                     <CONS OC12 () = STACK>
15873                     <CALL '\1aFRAME!-MIMOC 1>
15874                     <JUMP + PHRASE45>
15875 PHRASE25
15876                     <FRAME '\1aFRAME!-MIMOC>
15877                     <PUSH ()>
15878                     <CALL '\1aFRAME!-MIMOC 1>
15879 PHRASE45
15880                     <FRAME '\1aPUSH!-MIMOC>
15881                     <RESTL L4 1 = TEMP13 (TYPE LIST)>
15882                     <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
15883                     <NTHL TEMP13 1 = TEMP13>
15884                     <CONS TEMP13 () = STACK>
15885                     <DEAD TEMP13>
15886                     <CALL '\1aPUSH!-MIMOC 1>
15887                     <FRAME '\1aPUSH!-MIMOC>
15888                     <CONS OPER6 () = STACK>
15889                     <CALL '\1aPUSH!-MIMOC 1>
15890                     <RESTL L4 1 = TEMP13 (TYPE LIST)>
15891                     <DEAD L4>
15892                     <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
15893                     <RESTL TEMP13 1 = TEMP33 (TYPE LIST)>
15894                     <DEAD TEMP13>
15895                     <LOOP>
15896 MAP50
15897                     <INTGO>
15898                     <EMPL? TEMP33 + MAPAP53>
15899                     <NTHL TEMP33 1 = TEMP13>
15900                     <VEQUAL? EQSN7 0 + PHRASE61>
15901                     <SET RES8 TEMP13>
15902                     <DEAD TEMP13>
15903                     <JUMP + MAPAP53>
15904 PHRASE61
15905                     <EQUAL? TEMP13 '= - PHRASE62>
15906                     <SET EQSN7 'T (TYPE ATOM)>
15907                     <JUMP + PHRASE63>
15908 PHRASE62
15909                     <FRAME '\1aPUSH!-MIMOC>
15910                     <CONS TEMP13 () = STACK>
15911                     <DEAD TEMP13>
15912                     <CALL '\1aPUSH!-MIMOC 1>
15913                     <ADD NUM10 1 = NUM10 (TYPE FIX)>
15914 PHRASE63
15915                     <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
15916                     <JUMP + MAP50>
15917 MAPAP53
15918                     <TYPE? OC12 <TYPE-CODE FALSE> + PHRASE66>
15919                     <FRAME '\1aCALL!-MIMOC>
15920                     <TYPE? GC9 <TYPE-CODE FALSE> + PHRASE69>
15921                     <CONS GC9 () = TEMP33>
15922                     <DEAD GC9>
15923                     <JUMP + PHRASE70>
15924 PHRASE69
15925                     <SET TEMP33 () (TYPE LIST)>
15926 PHRASE70
15927                     <VEQUAL? EQSN7 0 + PHRASE74>
15928                     <DEAD EQSN7>
15929                     <CONS RES8 () = EQSN7>
15930                     <DEAD RES8>
15931                     <CONS '= EQSN7 = EQSN7>
15932                     <JUMP + PHRASE75>
15933 PHRASE74
15934                     <SET EQSN7 () (TYPE LIST)>
15935 PHRASE75
15936                     <SET TEMP32 TEMP33>
15937                     <EMPL? EQSN7 + TAG72>
15938                     <NTHL EQSN7 1 = TEMP13>
15939                     <CONS TEMP13 TEMP33 = TEMP13>
15940                     <SET TEMP32 TEMP13>
15941                     <RESTL EQSN7 1 = EQSN7 (TYPE LIST)>
15942                     <EMPL? EQSN7 + TAG72>
15943                     <LOOP (EQSN7 VALUE) (TEMP13 VALUE) (TEMP33 VALUE)>
15944 TAG71
15945                     <NTHL EQSN7 1 = RES8>
15946                     <CONS RES8 TEMP33 = RES8>
15947                     <PUTREST TEMP13 RES8>
15948                     <DEAD TEMP13>
15949                     <SET TEMP13 RES8>
15950                     <DEAD RES8>
15951                     <RESTL EQSN7 1 = EQSN7 (TYPE LIST)>
15952                     <EMPL? EQSN7 - TAG71>
15953 TAG72
15954                     <CONS NUM10 TEMP32 = EQSN7>
15955                     <DEAD NUM10 TEMP32>
15956                     <CONS OC12 EQSN7 = STACK>
15957                     <DEAD OC12 EQSN7>
15958                     <CALL '\1aCALL!-MIMOC 1 = TEMP13>
15959                     <RETURN TEMP13>
15960                     <DEAD TEMP13>
15961 PHRASE66
15962                     <FRAME '\1aOCEMIT>
15963                     <PUSH 'MOVE>
15964                     <PUSH 'O1*>
15965                     <SET TEMP32 2 (TYPE FIX)>
15966                     <SFRAME 'OBJ-VAL>
15967                     <CONS OPER6 () = TEMP13>
15968                     <DEAD OPER6>
15969                     <CONS CTYP5 TEMP13 = TEMP13>
15970                     <DEAD CTYP5>
15971                     <CHTYPE TEMP13 <TYPE-CODE CHANNEL-ROUTINE> = STACK>
15972                     <DEAD TEMP13>
15973                     <SCALL '\1aOBJ-VAL 1 = EQSN7 + TAG78 TEMP32>
15974                     <LOOP (EQSN7 TYPE VALUE LENGTH) (TEMP32 VALUE)>
15975 TAG80
15976                     <INTGO>
15977                     <EMPTY? EQSN7 + TAG78>
15978                     <NTH1 EQSN7 = STACK>
15979                     <REST1 EQSN7 = EQSN7>
15980                     <ADD TEMP32 1 = TEMP32 (TYPE FIX)>
15981                     <JUMP + TAG80>
15982 TAG78
15983                     <CALL '\1aOCEMIT TEMP32>
15984                     <DEAD TEMP32>
15985                     <FRAME '\1aOCEMIT>
15986                     <PUSH 'MOVE>
15987                     <PUSH 'O1*>
15988                     <PUSH 2>
15989                     <CONS 'O1* () = STACK>
15990                     <CALL '\1aOCEMIT 4>
15991                     <FRAME '\1aOCEMIT>
15992                     <PUSH 'MOVEI>
15993                     <PUSH 'O2*>
15994                     <PUSH NUM10>
15995                     <CALL '\1aOCEMIT 3>
15996                     <GVAL 'WINNING-VICTIM = TEMP32>
15997                     <TYPE? TEMP32 <TYPE-CODE FALSE> + PHRASE85>
15998                     <DEAD TEMP32>
15999                     <GVAL 'STACK-DEPTH = TEMP32>
16000                     <LSH NUM10 1 = EQSN7 (TYPE FIX)>
16001                     <DEAD NUM10>
16002                     <SUB TEMP32 EQSN7 = TEMP32 (TYPE FIX)>
16003                     <DEAD EQSN7>
16004                     <SUB TEMP32 7 = TEMP32 (TYPE FIX)>
16005                     <SETG 'STACK-DEPTH TEMP32>
16006                     <DEAD TEMP32>
16007 PHRASE85
16008                     <FRAME '\1aUPDATE-ACS>
16009                     <CALL '\1aUPDATE-ACS 0>
16010                     <TYPE? RES8 <TYPE-CODE UNBOUND> + PHRASE88>
16011                     <FRAME '\1aPUSHJ>
16012                     <PUSH 'CALL>
16013                     <PUSH RES8>
16014                     <DEAD RES8>
16015                     <CALL '\1aPUSHJ 2 = TEMP13>
16016                     <RETURN TEMP13>
16017                     <DEAD TEMP13>
16018 PHRASE88
16019                     <FRAME '\1aPUSHJ>
16020                     <PUSH 'CALL>
16021                     <CALL '\1aPUSHJ 1 = TEMP13>
16022                     <RETURN TEMP13>
16023                     <DEAD TEMP13>
16024                     <END \1aCHANNEL-OP!-MIMOC>
16025 #WORD *11642375366*
16026 <GFCN \1aCHANNEL-ROUTINE-PRINT ("VALUE" STRING CHANNEL-ROUTINE) L5>
16027                     <TEMP TEMP7>
16028                     <INTGO>
16029                     <FRAME '\1aPRINC>
16030                     <PUSH "%<CHANNEL-OPERATION ">
16031                     <GEN-LVAL 'OUTCHAN = STACK>
16032                     <CALL '\1aPRINC 2>
16033                     <FRAME '\1aPRIN1>
16034                     <NTHL L5 1 = STACK>
16035                     <GEN-LVAL 'OUTCHAN = STACK>
16036                     <CALL '\1aPRIN1 2>
16037                     <FRAME '\1aPRINC>
16038                     <PUSH " ">
16039                     <GEN-LVAL 'OUTCHAN = STACK>
16040                     <CALL '\1aPRINC 2>
16041                     <FRAME '\1aPRIN1>
16042                     <RESTL L5 1 = TEMP7 (TYPE LIST)>
16043                     <DEAD L5>
16044                     <NTHL TEMP7 1 = STACK>
16045                     <DEAD TEMP7>
16046                     <GEN-LVAL 'OUTCHAN = STACK>
16047                     <CALL '\1aPRIN1 2>
16048                     <FRAME '\1aPRINC>
16049                     <PUSH ">">
16050                     <GEN-LVAL 'OUTCHAN = STACK>
16051                     <CALL '\1aPRINC 2 = TEMP7>
16052                     <RETURN TEMP7>
16053                     <DEAD TEMP7>
16054                     <END \1aCHANNEL-ROUTINE-PRINT>
16055 <PRINTTYPE CHANNEL-ROUTINE ,CHANNEL-ROUTINE-PRINT>
16056
16057 <SETG BIND-DW 210239488>
16058
16059 #WORD *21127657654*
16060 <GFCN \1aBBIND!-MIMOC ("VALUE" <OR FALSE FIX> LIST) L5>
16061                     <TEMP ATM6 TEMP11 DCL7 FXB8 TEMP13 VAL9>
16062                     <INTGO>
16063                     <NTHL L5 1 = ATM6>
16064                     <RESTL L5 1 = TEMP11 (TYPE LIST)>
16065                     <NTHL TEMP11 1 = DCL7>
16066                     <DEAD TEMP11>
16067                     <RESTL L5 1 = TEMP11 (TYPE LIST)>
16068                     <RESTL TEMP11 1 = TEMP11 (TYPE LIST)>
16069                     <NTHL TEMP11 1 = FXB8>
16070                     <DEAD TEMP11>
16071                     <FRAME '\1aOCEMIT>
16072                     <PUSH 'PUSH>
16073                     <PUSH 'TP*>
16074                     <SET TEMP13 2 (TYPE FIX)>
16075                     <SFRAME 'OBJ-VAL>
16076                     <GVAL 'BIND-DW = STACK>
16077                     <SCALL '\1aOBJ-VAL 1 = TEMP11 + TAG12 TEMP13>
16078                     <LOOP (TEMP11 TYPE VALUE LENGTH) (TEMP13 VALUE)>
16079 TAG15
16080                     <INTGO>
16081                     <EMPTY? TEMP11 + TAG12>
16082                     <NTH1 TEMP11 = STACK>
16083                     <REST1 TEMP11 = TEMP11>
16084                     <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
16085                     <JUMP + TAG15>
16086 TAG12
16087                     <CALL '\1aOCEMIT TEMP13>
16088                     <DEAD TEMP13>
16089                     <GVAL 'WINNING-VICTIM = TEMP13>
16090                     <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE18>
16091                     <DEAD TEMP13>
16092                     <GVAL 'STACK-DEPTH = TEMP13>
16093                     <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
16094                     <SETG 'STACK-DEPTH TEMP13>
16095                     <DEAD TEMP13>
16096 PHRASE18
16097                     <SET TEMP13 L5>
16098                     <SET TEMP11 4 (TYPE FIX)>
16099                     <LOOP (TEMP13 VALUE) (TEMP11 VALUE)>
16100 TAG21
16101                     <EMPL? TEMP13 + PHRASE20>
16102                     <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
16103                     <SUB TEMP11 1 = TEMP11 (TYPE FIX)>
16104                     <GRTR? TEMP11 0 + TAG21 (TYPE FIX)>
16105                     <EMPL? TEMP13 - PHRASE20>
16106                     <DEAD TEMP13>
16107                     <FRAME '\1aOCEMIT>
16108                     <PUSH 'PUSH>
16109                     <PUSH 'TP*>
16110                     <SET TEMP11 2 (TYPE FIX)>
16111                     <SFRAME 'OBJ-TYP>
16112                     <RESTL L5 1 = TEMP13 (TYPE LIST)>
16113                     <DEAD L5>
16114                     <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
16115                     <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
16116                     <NTHL TEMP13 1 = VAL9>
16117                     <DEAD TEMP13>
16118                     <PUSH VAL9>
16119                     <SCALL '\1aOBJ-TYP 1 = TEMP13 + TAG22 TEMP11>
16120                     <LOOP (TEMP13 TYPE VALUE LENGTH) (TEMP11 VALUE)>
16121 TAG26
16122                     <INTGO>
16123                     <EMPTY? TEMP13 + TAG22>
16124                     <NTH1 TEMP13 = STACK>
16125                     <REST1 TEMP13 = TEMP13>
16126                     <ADD TEMP11 1 = TEMP11 (TYPE FIX)>
16127                     <JUMP + TAG26>
16128 TAG22
16129                     <CALL '\1aOCEMIT TEMP11>
16130                     <DEAD TEMP11>
16131                     <GVAL 'WINNING-VICTIM = TEMP11>
16132                     <TYPE? TEMP11 <TYPE-CODE FALSE> + PHRASE29>
16133                     <DEAD TEMP11>
16134                     <GVAL 'STACK-DEPTH = TEMP11>
16135                     <ADD TEMP11 1 = TEMP11 (TYPE FIX)>
16136                     <SETG 'STACK-DEPTH TEMP11>
16137                     <DEAD TEMP11>
16138 PHRASE29
16139                     <FRAME '\1aOCEMIT>
16140                     <PUSH 'PUSH>
16141                     <PUSH 'TP*>
16142                     <SET TEMP13 2 (TYPE FIX)>
16143                     <SFRAME 'OBJ-VAL>
16144                     <PUSH VAL9>
16145                     <DEAD VAL9>
16146                     <SCALL '\1aOBJ-VAL 1 = TEMP11 + TAG30 TEMP13>
16147                     <LOOP (TEMP11 TYPE VALUE LENGTH) (TEMP13 VALUE)>
16148 TAG32
16149                     <INTGO>
16150                     <EMPTY? TEMP11 + TAG30>
16151                     <NTH1 TEMP11 = STACK>
16152                     <REST1 TEMP11 = TEMP11>
16153                     <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
16154                     <JUMP + TAG32>
16155 TAG30
16156                     <CALL '\1aOCEMIT TEMP13>
16157                     <DEAD TEMP13>
16158                     <GVAL 'WINNING-VICTIM = TEMP13>
16159                     <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE46>
16160                     <DEAD TEMP13>
16161                     <GVAL 'STACK-DEPTH = TEMP13>
16162                     <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
16163                     <SETG 'STACK-DEPTH TEMP13>
16164                     <DEAD TEMP13>
16165                     <JUMP + PHRASE46>
16166 PHRASE20
16167                     <FRAME '\1aOCEMIT>
16168                     <PUSH 'PUSH>
16169                     <PUSH 'TP*>
16170                     <SET TEMP11 2 (TYPE FIX)>
16171                     <SFRAME 'OBJ-VAL>
16172                     <PUSH 0>
16173                     <SCALL '\1aOBJ-VAL 1 = TEMP13 + TAG37 TEMP11>
16174                     <LOOP (TEMP13 TYPE VALUE LENGTH) (TEMP11 VALUE)>
16175 TAG39
16176                     <INTGO>
16177                     <EMPTY? TEMP13 + TAG37>
16178                     <NTH1 TEMP13 = STACK>
16179                     <REST1 TEMP13 = TEMP13>
16180                     <ADD TEMP11 1 = TEMP11 (TYPE FIX)>
16181                     <JUMP + TAG39>
16182 TAG37
16183                     <CALL '\1aOCEMIT TEMP11>
16184                     <DEAD TEMP11>
16185                     <FRAME '\1aOCEMIT>
16186                     <PUSH 'PUSH>
16187                     <PUSH 'TP*>
16188                     <SET TEMP13 2 (TYPE FIX)>
16189                     <SFRAME 'OBJ-VAL>
16190                     <PUSH 0>
16191                     <SCALL '\1aOBJ-VAL 1 = TEMP11 + TAG41 TEMP13>
16192                     <LOOP (TEMP11 TYPE VALUE LENGTH) (TEMP13 VALUE)>
16193 TAG43
16194                     <INTGO>
16195                     <EMPTY? TEMP11 + TAG41>
16196                     <NTH1 TEMP11 = STACK>
16197                     <REST1 TEMP11 = TEMP11>
16198                     <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
16199                     <JUMP + TAG43>
16200 TAG41
16201                     <CALL '\1aOCEMIT TEMP13>
16202                     <DEAD TEMP13>
16203                     <GVAL 'WINNING-VICTIM = TEMP13>
16204                     <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE46>
16205                     <DEAD TEMP13>
16206                     <GVAL 'STACK-DEPTH = TEMP13>
16207                     <ADD TEMP13 2 = TEMP13 (TYPE FIX)>
16208                     <SETG 'STACK-DEPTH TEMP13>
16209                     <DEAD TEMP13>
16210 PHRASE46
16211                     <FRAME '\1aIN-AC?>
16212                     <PUSH ATM6>
16213                     <PUSH 'VALUE>
16214                     <CALL '\1aIN-AC? 2 = VAL9>
16215                     <TYPE? VAL9 <TYPE-CODE FALSE> - PHRASE52>
16216                     <TYPE? ATM6 <TYPE-CODE ATOM> - PHRASE49>
16217                     <FRAME '\1aNEXT-AC>
16218                     <FRAME '\1aLOAD-AC>
16219                     <PUSH ATM6>
16220                     <DEAD ATM6>
16221                     <PUSH 'BOTH>
16222                     <CALL '\1aLOAD-AC 2 = STACK>
16223                     <CALL '\1aNEXT-AC 1 = VAL9>
16224                     <JUMP + PHRASE52>
16225 PHRASE49
16226                     <FRAME '\1aOCEMIT>
16227                     <PUSH 'MOVE>
16228                     <SET VAL9 'O1* (TYPE ATOM)>
16229                     <PUSH VAL9>
16230                     <SET TEMP11 2 (TYPE FIX)>
16231                     <SFRAME 'OBJ-VAL>
16232                     <PUSH ATM6>
16233                     <DEAD ATM6>
16234                     <SCALL '\1aOBJ-VAL 1 = TEMP13 + TAG53 TEMP11>
16235                     <LOOP (TEMP13 TYPE VALUE LENGTH) (TEMP11 VALUE)>
16236 TAG55
16237                     <INTGO>
16238                     <EMPTY? TEMP13 + TAG53>
16239                     <NTH1 TEMP13 = STACK>
16240                     <REST1 TEMP13 = TEMP13>
16241                     <ADD TEMP11 1 = TEMP11 (TYPE FIX)>
16242                     <JUMP + TAG55>
16243 TAG53
16244                     <CALL '\1aOCEMIT TEMP11>
16245                     <DEAD TEMP11>
16246 PHRASE52
16247                     <FRAME '\1aOCEMIT>
16248                     <PUSH 'PUSH>
16249                     <PUSH 'TP*>
16250                     <PUSH VAL9>
16251                     <CALL '\1aOCEMIT 3>
16252                     <FRAME '\1aOCEMIT>
16253                     <PUSH 'PUSH>
16254                     <PUSH 'TP*>
16255                     <SET TEMP13 2 (TYPE FIX)>
16256                     <SFRAME 'OBJ-TYP>
16257                     <PUSH DCL7>
16258                     <SCALL '\1aOBJ-TYP 1 = TEMP11 + TAG58 TEMP13>
16259                     <LOOP (TEMP11 TYPE VALUE LENGTH) (TEMP13 VALUE)>
16260 TAG60
16261                     <INTGO>
16262                     <EMPTY? TEMP11 + TAG58>
16263                     <NTH1 TEMP11 = STACK>
16264                     <REST1 TEMP11 = TEMP11>
16265                     <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
16266                     <JUMP + TAG60>
16267 TAG58
16268                     <CALL '\1aOCEMIT TEMP13>
16269                     <DEAD TEMP13>
16270                     <FRAME '\1aOCEMIT>
16271                     <PUSH 'PUSH>
16272                     <PUSH 'TP*>
16273                     <SET TEMP11 2 (TYPE FIX)>
16274                     <SFRAME 'OBJ-VAL>
16275                     <PUSH DCL7>
16276                     <DEAD DCL7>
16277                     <SCALL '\1aOBJ-VAL 1 = TEMP13 + TAG62 TEMP11>
16278                     <LOOP (TEMP13 TYPE VALUE LENGTH) (TEMP11 VALUE)>
16279 TAG64
16280                     <INTGO>
16281                     <EMPTY? TEMP13 + TAG62>
16282                     <NTH1 TEMP13 = STACK>
16283                     <REST1 TEMP13 = TEMP13>
16284                     <ADD TEMP11 1 = TEMP11 (TYPE FIX)>
16285                     <JUMP + TAG64>
16286 TAG62
16287                     <CALL '\1aOCEMIT TEMP11>
16288                     <DEAD TEMP11>
16289                     <FRAME '\1aOCEMIT>
16290                     <PUSH 'PUSH>
16291                     <PUSH 'TP*>
16292                     <PUSH 'SP*>
16293                     <CALL '\1aOCEMIT 3>
16294                     <FRAME '\1aOCEMIT>
16295                     <PUSH 'PUSH>
16296                     <PUSH 'TP*>
16297                     <PUSH 1>
16298                     <CONS VAL9 () = STACK>
16299                     <CALL '\1aOCEMIT 4>
16300                     <FRAME '\1aOCEMIT>
16301                     <PUSH 'PUSH>
16302                     <PUSH 'TP*>
16303                     <PUSH '@>
16304                     <PUSH 95>
16305                     <CALL '\1aOCEMIT 4>
16306                     <FRAME '\1aOCEMIT>
16307                     <PUSH 'XMOVEI>
16308                     <PUSH 'SP*>
16309                     <PUSH -7>
16310                     <PUSH (TP*)>
16311                     <CALL '\1aOCEMIT 4>
16312                     <TYPE? FXB8 <TYPE-CODE FALSE> + PHRASE71>
16313                     <DEAD FXB8>
16314                     <FRAME '\1aOCEMIT>
16315                     <PUSH 'MOVEM>
16316                     <PUSH 'SP*>
16317                     <PUSH 1>
16318                     <CONS VAL9 () = STACK>
16319                     <DEAD VAL9>
16320                     <CALL '\1aOCEMIT 4>
16321 PHRASE71
16322                     <GVAL 'WINNING-VICTIM = TEMP11>
16323                     <TYPE? TEMP11 <TYPE-CODE FALSE> + PHRASE74>
16324                     <GVAL 'STACK-DEPTH = TEMP13>
16325                     <ADD TEMP13 6 = TEMP13 (TYPE FIX)>
16326                     <SETG 'STACK-DEPTH TEMP13>
16327                     <SET TEMP11 TEMP13>
16328                     <DEAD TEMP13>
16329 PHRASE74
16330                     <RETURN TEMP11>
16331                     <DEAD TEMP11>
16332                     <END \1aBBIND!-MIMOC>
16333 #WORD *12015637535*
16334 <GFCN \1aGEN-LVAL!-MIMOC ("VALUE" ANY LIST) L5>
16335                     <TEMP ATM6 TEMP8 VAL7 TEMP10>
16336                     <INTGO>
16337                     <NTHL L5 1 = ATM6>
16338                     <RESTL L5 1 = TEMP8 (TYPE LIST)>
16339                     <DEAD L5>
16340                     <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
16341                     <NTHL TEMP8 1 = VAL7>
16342                     <DEAD TEMP8>
16343                     <FRAME '\1aOCEMIT>
16344                     <PUSH 'MOVE>
16345                     <PUSH 'O1*>
16346                     <SET TEMP10 2 (TYPE FIX)>
16347                     <SFRAME 'OBJ-VAL>
16348                     <PUSH ATM6>
16349                     <DEAD ATM6>
16350                     <SCALL '\1aOBJ-VAL 1 = TEMP8 + TAG9 TEMP10>
16351                     <LOOP (TEMP8 TYPE VALUE LENGTH) (TEMP10 VALUE)>
16352 TAG12
16353                     <INTGO>
16354                     <EMPTY? TEMP8 + TAG9>
16355                     <NTH1 TEMP8 = STACK>
16356                     <REST1 TEMP8 = TEMP8>
16357                     <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
16358                     <JUMP + TAG12>
16359 TAG9
16360                     <CALL '\1aOCEMIT TEMP10>
16361                     <DEAD TEMP10>
16362                     <FRAME '\1aSAVE-ACS>
16363                     <CALL '\1aSAVE-ACS 0>
16364                     <FRAME '\1aPUSHJ>
16365                     <PUSH 'ILVAL>
16366                     <PUSH VAL7>
16367                     <DEAD VAL7>
16368                     <CALL '\1aPUSHJ 2 = TEMP10>
16369                     <RETURN TEMP10>
16370                     <DEAD TEMP10>
16371                     <END \1aGEN-LVAL!-MIMOC>
16372 #WORD *6502277571*
16373 <GFCN \1aGEN-ASSIGNED?!-MIMOC ("VALUE" ANY LIST) L5>
16374                     <TEMP ATM6 TEMP9 DIR7 TG8 TEMP11>
16375                     <INTGO>
16376                     <NTHL L5 1 = ATM6>
16377                     <RESTL L5 1 = TEMP9 (TYPE LIST)>
16378                     <NTHL TEMP9 1 = DIR7>
16379                     <DEAD TEMP9>
16380                     <RESTL L5 1 = TEMP9 (TYPE LIST)>
16381                     <DEAD L5>
16382                     <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
16383                     <NTHL TEMP9 1 = TG8>
16384                     <DEAD TEMP9>
16385                     <FRAME '\1aOCEMIT>
16386                     <PUSH 'MOVE>
16387                     <PUSH 'O1*>
16388                     <SET TEMP11 2 (TYPE FIX)>
16389                     <SFRAME 'OBJ-VAL>
16390                     <PUSH ATM6>
16391                     <DEAD ATM6>
16392                     <SCALL '\1aOBJ-VAL 1 = TEMP9 + TAG10 TEMP11>
16393                     <LOOP (TEMP9 TYPE VALUE LENGTH) (TEMP11 VALUE)>
16394 TAG13
16395                     <INTGO>
16396                     <EMPTY? TEMP9 + TAG10>
16397                     <NTH1 TEMP9 = STACK>
16398                     <REST1 TEMP9 = TEMP9>
16399                     <ADD TEMP11 1 = TEMP11 (TYPE FIX)>
16400                     <JUMP + TAG13>
16401 TAG10
16402                     <CALL '\1aOCEMIT TEMP11>
16403                     <DEAD TEMP11>
16404                     <FRAME '\1aLABEL-UPDATE-ACS>
16405                     <PUSH TG8>
16406                     <PUSH %<>>
16407                     <CALL '\1aLABEL-UPDATE-ACS 2>
16408                     <FRAME '\1aOCEMIT>
16409                     <PUSH 'JSP>
16410                     <PUSH 'T*>
16411                     <PUSH '@>
16412                     <FRAME '\1aOPCODE>
16413                     <PUSH 'IASS>
16414                     <CALL '\1aOPCODE 1 = TEMP11>
16415                     <TYPE? TEMP11 <TYPE-CODE FIX> - TAG18>
16416                     <SUB 0 TEMP11 = STACK (TYPE FIX)>
16417                     <DEAD TEMP11>
16418                     <JUMP + TAG19>
16419 TAG18
16420                     <SUBF 0.0 TEMP11 = STACK (TYPE FLOAT)>
16421                     <DEAD TEMP11>
16422 TAG19
16423                     <CALL '\1aOCEMIT 4>
16424                     <EQUAL? DIR7 '+ - PHRASE21>
16425                     <DEAD DIR7>
16426                     <FRAME '\1aOCEMIT>
16427                     <PUSH 'CAIA>
16428                     <PUSH 'O*>
16429                     <PUSH 'O*>
16430                     <CALL '\1aOCEMIT 3>
16431 PHRASE21
16432                     <FRAME '\1aOCEMIT>
16433                     <PUSH 'JRST>
16434                     <FRAME '\1aXJUMP>
16435                     <PUSH TG8>
16436                     <DEAD TG8>
16437                     <CALL '\1aXJUMP 1 = STACK>
16438                     <CALL '\1aOCEMIT 2 = TEMP11>
16439                     <RETURN TEMP11>
16440                     <DEAD TEMP11>
16441                     <END \1aGEN-ASSIGNED?!-MIMOC>
16442 #WORD *33763704407*
16443 <GFCN \1aGEN-SET!-MIMOC ("VALUE" ANY LIST) L5>
16444                     <TEMP ATM6 TEMP8 NVAL7>
16445                     <INTGO>
16446                     <NTHL L5 1 = ATM6>
16447                     <RESTL L5 1 = TEMP8 (TYPE LIST)>
16448                     <DEAD L5>
16449                     <NTHL TEMP8 1 = NVAL7>
16450                     <DEAD TEMP8>
16451                     <FRAME '\1aWILL-DIE?>
16452                     <PUSH NVAL7>
16453                     <CALL '\1aWILL-DIE? 1 = TEMP8>
16454                     <TYPE? TEMP8 <TYPE-CODE FALSE> + PHRASE10>
16455                     <DEAD TEMP8>
16456                     <FRAME '\1aDEAD!-MIMOC>
16457                     <CONS NVAL7 () = STACK>
16458                     <PUSH 'T>
16459                     <CALL '\1aDEAD!-MIMOC 2>
16460 PHRASE10
16461                     <TYPE? ATM6 <TYPE-CODE ATOM> - PHRASE14>
16462                     <FRAME '\1aWILL-DIE?>
16463                     <PUSH ATM6>
16464                     <CALL '\1aWILL-DIE? 1 = TEMP8>
16465                     <TYPE? TEMP8 <TYPE-CODE FALSE> + PHRASE14>
16466                     <DEAD TEMP8>
16467                     <FRAME '\1aDEAD!-MIMOC>
16468                     <CONS ATM6 () = STACK>
16469                     <PUSH 'T>
16470                     <CALL '\1aDEAD!-MIMOC 2>
16471 PHRASE14
16472                     <FRAME '\1aUPDATE-ACS>
16473                     <CALL '\1aUPDATE-ACS 0>
16474                     <FRAME '\1aGET-INTO-ACS>
16475                     <PUSH NVAL7>
16476                     <DEAD NVAL7>
16477                     <PUSH 'BOTH>
16478                     <PUSH 'A1*>
16479                     <PUSH ATM6>
16480                     <DEAD ATM6>
16481                     <PUSH 'VALUE>
16482                     <PUSH 'O1*>
16483                     <CALL '\1aGET-INTO-ACS 6>
16484                     <FRAME '\1aPUSHJ>
16485                     <PUSH 'ISET>
16486                     <CALL '\1aPUSHJ 1 = TEMP8>
16487                     <RETURN TEMP8>
16488                     <DEAD TEMP8>
16489                     <END \1aGEN-SET!-MI