mim/development/mim/20c/newgc.mima

   1
   2 <COND (<NOT <GASSIGNED? WIDTH-MUNG>> <FLOAD "MIMOC20DEFS.MUD">)>
   3
   4 <SETG NUM-TEMPS 4>
   5
   6 <SETG NUM-L-TEMPS 2>
   7
   8 <SETG MARK-BIT 65536>
   9
  10 <SETG FLEN 7>
  11
  12 <SETG LIST-LEN 3>
  13
  14 <SETG ATOM-LEN 5>
  15
  16 <SETG GBIND-LEN 5>
  17
  18 <SETG LBIND-LEN 8>
  19
  20 <MANIFEST NUM-TEMPS NUM-L-TEMPS MARK-BIT FLEN LIST-LEN ATOM-LEN GBIND-LEN LBIND-LEN>
  21
  22 #WORD *31350360336*
  23                     <GFCN \1aCGC-RECORD!-MIMOC ("VALUE" ANY LIST) L5>
  24                     <TEMP VAR6 TEMP24 ALLOC-ATOM7:FORM END-ATOM8:FORM NEXT-ATOM9:FORM BOUNDS-ATOM10 RES11 BOUNDS-LAB16 IB-LAB17 F-LAB18 EXIT-LAB19 M-LAB20 F121 B122 HINT23 ENDADDR15 ALLOCADDR14 RLEN12:FIX STK?13 TEMP48>
  25                     <INTGO>
  26                     <NTHL L5 1 = VAR6>
  27                     <RESTL L5 1 = TEMP24 (TYPE LIST)>
  28                     <NTHL TEMP24 1 = ALLOC-ATOM7 (TYPE FORM)>
  29                     <DEAD TEMP24>
  30                     <RESTL L5 1 = TEMP24 (TYPE LIST)>
  31                     <RESTL TEMP24 1 = TEMP24 (TYPE LIST)>
  32                     <NTHL TEMP24 1 = END-ATOM8 (TYPE FORM)>
  33                     <DEAD TEMP24>
  34                     <RESTL L5 1 = TEMP24 (TYPE LIST)>
  35                     <RESTL TEMP24 1 = TEMP24 (TYPE LIST)>
  36                     <RESTL TEMP24 1 = TEMP24 (TYPE LIST)>
  37                     <NTHL TEMP24 1 = NEXT-ATOM9 (TYPE FORM)>
  38                     <DEAD TEMP24>
  39                     <NTHL L5 5 = BOUNDS-ATOM10>
  40                     <NTHL L5 7 = RES11>
  41                     <FRAME '\1aGENLBL>
  42                     <PUSH "B">
  43                     <CALL '\1aGENLBL 1 = BOUNDS-LAB16>
  44                     <FRAME '\1aGENLBL>
  45                     <PUSH "I">
  46                     <CALL '\1aGENLBL 1 = IB-LAB17>
  47                     <FRAME '\1aGENLBL>
  48                     <PUSH "F">
  49                     <CALL '\1aGENLBL 1 = F-LAB18>
  50                     <FRAME '\1aGENLBL>
  51                     <PUSH "E">
  52                     <CALL '\1aGENLBL 1 = EXIT-LAB19>
  53                     <FRAME '\1aGENLBL>
  54                     <PUSH "M">
  55                     <CALL '\1aGENLBL 1 = M-LAB20>
  56                     <FRAME '\1aGENLBL>
  57                     <PUSH "?FRM">
  58                     <CALL '\1aGENLBL 1 = F121>
  59                     <FRAME '\1aGENLBL>
  60                     <PUSH "?FRM">
  61                     <CALL '\1aGENLBL 1 = B122>
  62                     <FRAME '\1aEXTRAMEM>
  63                     <PUSH 'RECORD-TYPE>
  64                     <PUSH L5>
  65                     <DEAD L5>
  66                     <CALL '\1aEXTRAMEM 2 = HINT23>
  67                     <FRAME '\1aFLUSH-ACS>
  68                     <CALL '\1aFLUSH-ACS 0>
  69                     <FRAME '\1aOBJ-VAL>
  70                     <RESTL END-ATOM8 1 = TEMP24 (TYPE LIST)>
  71                     <DEAD END-ATOM8>
  72                     <NTHL TEMP24 1 = TEMP24 (TYPE ATOM)>
  73                     <CHTYPE TEMP24 <TYPE-CODE XGLOC> = STACK>
  74                     <DEAD TEMP24>
  75                     <CALL '\1aOBJ-VAL 1 = ENDADDR15>
  76                     <FRAME '\1aOBJ-VAL>
  77                     <RESTL ALLOC-ATOM7 1 = TEMP24 (TYPE LIST)>
  78                     <DEAD ALLOC-ATOM7>
  79                     <NTHL TEMP24 1 = TEMP24 (TYPE ATOM)>
  80                     <CHTYPE TEMP24 <TYPE-CODE XGLOC> = STACK>
  81                     <DEAD TEMP24>
  82                     <CALL '\1aOBJ-VAL 1 = ALLOCADDR14>
  83                     <TYPE? HINT23 <TYPE-CODE FALSE> + PHRASE37>
  84                     <NTHL HINT23 1 = TEMP24>
  85                     <EQUAL? TEMP24 'RECORD-TYPE - PHRASE37>
  86                     <DEAD TEMP24>
  87                     <RESTL HINT23 1 = HINT23 (TYPE LIST)>
  88                     <NTHL HINT23 1 = HINT23>
  89 PHRASE37
  90                     <EQUAL? HINT23 'ATOM - PHRASE40>
  91                     <SET RLEN12 5 (TYPE FIX)>
  92                     <SET STK?13 %<> (TYPE FALSE)>
  93                     <JUMP + PHRASE43>
  94 PHRASE40
  95                     <EQUAL? HINT23 'GBIND - PHRASE41>
  96                     <SET RLEN12 5 (TYPE FIX)>
  97                     <SET STK?13 %<> (TYPE FALSE)>
  98                     <JUMP + PHRASE43>
  99 PHRASE41
 100                     <EQUAL? HINT23 'LBIND - PHRASE42>
 101                     <SET RLEN12 8 (TYPE FIX)>
 102                     <SET STK?13 'T (TYPE ATOM)>
 103                     <JUMP + PHRASE43>
 104 PHRASE42
 105                     <FRAME '\1aERROR>
 106                     <PUSH 'BAD-HINT-FOR-CGC-RECORD!-ERRORS>
 107                     <PUSH HINT23>
 108                     <DEAD HINT23>
 109                     <PUSH 'CGC-RECORD-GEN>
 110                     <CALL '\1aERROR 3>
 111 PHRASE43
 112                     <VEQUAL? STK?13 0 + PHRASE46>
 113                     <DEAD STK?13>
 114                     <FRAME '\1aOCEMIT>
 115                     <PUSH 'CAMG>
 116                     <PUSH 'TP*>
 117                     <SET TEMP48 2 (TYPE FIX)>
 118                     <SFRAME 'OBJ-VAL>
 119                     <PUSH VAR6>
 120                     <SCALL '\1aOBJ-VAL 1 = TEMP24 + TAG47 TEMP48>
 121                     <LOOP (TEMP24 TYPE VALUE LENGTH) (TEMP48 VALUE)>
 122 TAG50
 123                     <INTGO>
 124                     <EMPTY? TEMP24 + TAG47>
 125                     <NTH1 TEMP24 = STACK>
 126                     <REST1 TEMP24 = TEMP24>
 127                     <ADD TEMP48 1 = TEMP48 (TYPE FIX)>
 128                     <JUMP + TAG50>
 129 TAG47
 130                     <DEAD TEMP24>
 131                     <CALL '\1aOCEMIT TEMP48>
 132                     <DEAD TEMP48>
 133                     <FRAME '\1aOCEMIT>
 134                     <PUSH 'JRST>
 135                     <FRAME '\1aXJUMP>
 136                     <PUSH BOUNDS-LAB16>
 137                     <CALL '\1aXJUMP 1 = STACK>
 138                     <CALL '\1aOCEMIT 2>
 139                     <FRAME '\1aOCEMIT>
 140                     <PUSH 'MOVSI>
 141                     <PUSH 'A1*>
 142                     <FRAME '\1aTYPE-CODE>
 143                     <PUSH 'FALSE>
 144                     <CALL '\1aTYPE-CODE 1 = STACK>
 145                     <CALL '\1aOCEMIT 3>
 146                     <FRAME '\1aOCEMIT>
 147                     <PUSH 'MOVEI>
 148                     <PUSH 'A2*>
 149                     <PUSH 0>
 150                     <CALL '\1aOCEMIT 3>
 151                     <FRAME '\1aOCEMIT>
 152                     <PUSH 'JRST>
 153                     <FRAME '\1aXJUMP>
 154                     <PUSH EXIT-LAB19>
 155                     <CALL '\1aXJUMP 1 = STACK>
 156                     <CALL '\1aOCEMIT 2>
 157                     <FRAME '\1aLABEL>
 158                     <PUSH BOUNDS-LAB16>
 159                     <DEAD BOUNDS-LAB16>
 160                     <CALL '\1aLABEL 1>
 161                     <FRAME '\1aFRAME!-MIMOC>
 162                     <FRAME '\1aNTH>
 163                     <PUSH BOUNDS-ATOM10>
 164                     <PUSH 2>
 165                     <CALL '\1aNTH 2 = TEMP48>
 166                     <CONS TEMP48 () = TEMP48>
 167                     <CONS B122 TEMP48 = STACK>
 168                     <DEAD TEMP48>
 169                     <CALL '\1aFRAME!-MIMOC 1>
 170                     <FRAME '\1aOCEMIT>
 171                     <PUSH 'PUSH>
 172                     <PUSH 'TP*>
 173                     <SET TEMP24 2 (TYPE FIX)>
 174                     <SFRAME 'OBJ-TYP>
 175                     <PUSH VAR6>
 176                     <SCALL '\1aOBJ-TYP 1 = TEMP48 + TAG62 TEMP24>
 177                     <LOOP (TEMP48 TYPE VALUE LENGTH) (TEMP24 VALUE)>
 178 TAG64
 179                     <INTGO>
 180                     <EMPTY? TEMP48 + TAG62>
 181                     <NTH1 TEMP48 = STACK>
 182                     <REST1 TEMP48 = TEMP48>
 183                     <ADD TEMP24 1 = TEMP24 (TYPE FIX)>
 184                     <JUMP + TAG64>
 185 TAG62
 186                     <DEAD TEMP48>
 187                     <CALL '\1aOCEMIT TEMP24>
 188                     <DEAD TEMP24>
 189                     <GVAL 'WINNING-VICTIM = TEMP24>
 190                     <TYPE? TEMP24 <TYPE-CODE FALSE> + PHRASE67>
 191                     <DEAD TEMP24>
 192                     <GVAL 'STACK-DEPTH = TEMP24>
 193                     <ADD TEMP24 1 = TEMP24 (TYPE FIX)>
 194                     <SETG 'STACK-DEPTH TEMP24>
 195                     <DEAD TEMP24>
 196 PHRASE67
 197                     <FRAME '\1aOCEMIT>
 198                     <PUSH 'PUSH>
 199                     <PUSH 'TP*>
 200                     <SET TEMP48 2 (TYPE FIX)>
 201                     <SFRAME 'OBJ-VAL>
 202                     <PUSH VAR6>
 203                     <SCALL '\1aOBJ-VAL 1 = TEMP24 + TAG68 TEMP48>
 204                     <LOOP (TEMP24 TYPE VALUE LENGTH) (TEMP48 VALUE)>
 205 TAG70
 206                     <INTGO>
 207                     <EMPTY? TEMP24 + TAG68>
 208                     <NTH1 TEMP24 = STACK>
 209                     <REST1 TEMP24 = TEMP24>
 210                     <ADD TEMP48 1 = TEMP48 (TYPE FIX)>
 211                     <JUMP + TAG70>
 212 TAG68
 213                     <DEAD TEMP24>
 214                     <CALL '\1aOCEMIT TEMP48>
 215                     <DEAD TEMP48>
 216                     <GVAL 'WINNING-VICTIM = TEMP48>
 217                     <TYPE? TEMP48 <TYPE-CODE FALSE> + PHRASE73>
 218                     <DEAD TEMP48>
 219                     <GVAL 'STACK-DEPTH = TEMP48>
 220                     <ADD TEMP48 1 = TEMP48 (TYPE FIX)>
 221                     <SETG 'STACK-DEPTH TEMP48>
 222                     <DEAD TEMP48>
 223 PHRASE73
 224                     <FRAME '\1aCALL!-MIMOC>
 225                     <CONS B122 () = B122>
 226                     <CONS 1 B122 = B122>
 227                     <CONS BOUNDS-ATOM10 B122 = STACK>
 228                     <DEAD B122 BOUNDS-ATOM10>
 229                     <CALL '\1aCALL!-MIMOC 1>
 230                     <FRAME '\1aOCEMIT>
 231                     <PUSH 'JUMPN>
 232                     <PUSH 'A2*>
 233                     <FRAME '\1aXJUMP>
 234                     <PUSH IB-LAB17>
 235                     <CALL '\1aXJUMP 1 = STACK>
 236                     <CALL '\1aOCEMIT 3>
 237                     <FRAME '\1aOCEMIT>
 238                     <PUSH 'MOVSI>
 239                     <PUSH 'A1*>
 240                     <FRAME '\1aTYPE-CODE>
 241                     <PUSH 'FIX>
 242                     <CALL '\1aTYPE-CODE 1 = STACK>
 243                     <CALL '\1aOCEMIT 3>
 244                     <FRAME '\1aOCEMIT>
 245                     <PUSH 'MOVE>
 246                     <PUSH 'A2*>
 247                     <SET TEMP24 2 (TYPE FIX)>
 248                     <SFRAME 'OBJ-VAL>
 249                     <PUSH VAR6>
 250                     <SCALL '\1aOBJ-VAL 1 = TEMP48 + TAG79 TEMP24>
 251                     <LOOP (TEMP48 TYPE VALUE LENGTH) (TEMP24 VALUE)>
 252 TAG81
 253                     <INTGO>
 254                     <EMPTY? TEMP48 + TAG79>
 255                     <NTH1 TEMP48 = STACK>
 256                     <REST1 TEMP48 = TEMP48>
 257                     <ADD TEMP24 1 = TEMP24 (TYPE FIX)>
 258                     <JUMP + TAG81>
 259 TAG79
 260                     <DEAD TEMP48>
 261                     <CALL '\1aOCEMIT TEMP24>
 262                     <DEAD TEMP24>
 263                     <FRAME '\1aOCEMIT>
 264                     <PUSH 'JRST>
 265                     <FRAME '\1aXJUMP>
 266                     <PUSH EXIT-LAB19>
 267                     <CALL '\1aXJUMP 1 = STACK>
 268                     <CALL '\1aOCEMIT 2>
 269                     <FRAME '\1aLABEL>
 270                     <PUSH IB-LAB17>
 271                     <DEAD IB-LAB17>
 272                     <CALL '\1aLABEL 1>
 273 PHRASE46
 274                     <FRAME '\1aOCEMIT>
 275                     <PUSH 'MOVE>
 276                     <PUSH 'O1*>
 277                     <SET TEMP48 2 (TYPE FIX)>
 278                     <SFRAME 'OBJ-VAL>
 279                     <PUSH VAR6>
 280                     <SCALL '\1aOBJ-VAL 1 = TEMP24 + TAG86 TEMP48>
 281                     <LOOP (TEMP24 TYPE VALUE LENGTH) (TEMP48 VALUE)>
 282 TAG88
 283                     <INTGO>
 284                     <EMPTY? TEMP24 + TAG86>
 285                     <NTH1 TEMP24 = STACK>
 286                     <REST1 TEMP24 = TEMP24>
 287                     <ADD TEMP48 1 = TEMP48 (TYPE FIX)>
 288                     <JUMP + TAG88>
 289 TAG86
 290                     <DEAD TEMP24>
 291                     <CALL '\1aOCEMIT TEMP48>
 292                     <DEAD TEMP48>
 293                     <FRAME '\1aOCEMIT>
 294                     <PUSH 'MOVE>
 295                     <PUSH 'O*>
 296                     <PUSH RLEN12>
 297                     <PUSH (O1*)>
 298                     <CALL '\1aOCEMIT 4>
 299                     <FRAME '\1aOCEMIT>
 300                     <PUSH 'TLON>
 301                     <PUSH 'O*>
 302                     <PUSH 65536>
 303                     <CALL '\1aOCEMIT 3>
 304                     <FRAME '\1aOCEMIT>
 305                     <PUSH 'JRST>
 306                     <FRAME '\1aXJUMP>
 307                     <PUSH M-LAB20>
 308                     <CALL '\1aXJUMP 1 = STACK>
 309                     <CALL '\1aOCEMIT 2>
 310                     <FRAME '\1aOCEMIT>
 311                     <PUSH 'MOVE>
 312                     <PUSH 'A1*>
 313                     <SET TEMP24 2 (TYPE FIX)>
 314                     <SFRAME 'OBJ-TYP>
 315                     <PUSH VAR6>
 316                     <SCALL '\1aOBJ-TYP 1 = TEMP48 + TAG94 TEMP24>
 317                     <LOOP (TEMP48 TYPE VALUE LENGTH) (TEMP24 VALUE)>
 318 TAG96
 319                     <INTGO>
 320                     <EMPTY? TEMP48 + TAG94>
 321                     <NTH1 TEMP48 = STACK>
 322                     <REST1 TEMP48 = TEMP48>
 323                     <ADD TEMP24 1 = TEMP24 (TYPE FIX)>
 324                     <JUMP + TAG96>
 325 TAG94
 326                     <DEAD TEMP48>
 327                     <CALL '\1aOCEMIT TEMP24>
 328                     <DEAD TEMP24>
 329                     <FRAME '\1aOCEMIT>
 330                     <PUSH 'MOVE>
 331                     <PUSH 'A2*>
 332                     <ADD RLEN12 1 = STACK (TYPE FIX)>
 333                     <PUSH (O1*)>
 334                     <CALL '\1aOCEMIT 4>
 335                     <FRAME '\1aOCEMIT>
 336                     <PUSH 'JRST>
 337                     <FRAME '\1aXJUMP>
 338                     <PUSH EXIT-LAB19>
 339                     <CALL '\1aXJUMP 1 = STACK>
 340                     <CALL '\1aOCEMIT 2>
 341                     <FRAME '\1aLABEL>
 342                     <PUSH M-LAB20>
 343                     <DEAD M-LAB20>
 344                     <CALL '\1aLABEL 1>
 345                     <FRAME '\1aOCEMIT>
 346                     <PUSH 'MOVEM>
 347                     <PUSH 'O*>
 348                     <PUSH RLEN12>
 349                     <PUSH (O1*)>
 350                     <CALL '\1aOCEMIT 4>
 351                     <FRAME '\1aOCEMIT>
 352                     <PUSH 'DMOVE>
 353                     <PUSH 'B1*>
 354                     <PUSH '@>
 355                     <SET TEMP48 3 (TYPE FIX)>
 356                     <SET TEMP24 ALLOCADDR14>
 357                     <LOOP (TEMP24 TYPE VALUE LENGTH) (TEMP48 VALUE)>
 358 TAG104
 359                     <INTGO>
 360                     <EMPTY? TEMP24 + TAG103>
 361                     <NTH1 TEMP24 = STACK>
 362                     <REST1 TEMP24 = TEMP24>
 363                     <ADD TEMP48 1 = TEMP48 (TYPE FIX)>
 364                     <JUMP + TAG104>
 365 TAG103
 366                     <DEAD TEMP24>
 367                     <CALL '\1aOCEMIT TEMP48>
 368                     <DEAD TEMP48>
 369                     <FRAME '\1aOCEMIT>
 370                     <PUSH 'MOVE>
 371                     <PUSH 'O2*>
 372                     <PUSH 'B2*>
 373                     <CALL '\1aOCEMIT 3>
 374                     <FRAME '\1aOCEMIT>
 375                     <PUSH 'ADDI>
 376                     <PUSH 'O2*>
 377                     <ADD RLEN12 2 = STACK (TYPE FIX)>
 378                     <CALL '\1aOCEMIT 3>
 379                     <FRAME '\1aOCEMIT>
 380                     <PUSH 'DMOVE>
 381                     <PUSH 'C1*>
 382                     <PUSH '@>
 383                     <SET TEMP24 3 (TYPE FIX)>
 384                     <LOOP (ENDADDR15 TYPE VALUE LENGTH) (TEMP24 VALUE)>
 385 TAG109
 386                     <INTGO>
 387                     <EMPTY? ENDADDR15 + TAG108>
 388                     <NTH1 ENDADDR15 = STACK>
 389                     <REST1 ENDADDR15 = ENDADDR15>
 390                     <ADD TEMP24 1 = TEMP24 (TYPE FIX)>
 391                     <JUMP + TAG109>
 392 TAG108
 393                     <DEAD ENDADDR15>
 394                     <CALL '\1aOCEMIT TEMP24>
 395                     <DEAD TEMP24>
 396                     <FRAME '\1aOCEMIT>
 397                     <PUSH 'CAMG>
 398                     <PUSH 'O2*>
 399                     <PUSH 'C2*>
 400                     <CALL '\1aOCEMIT 3>
 401                     <FRAME '\1aOCEMIT>
 402                     <PUSH 'JRST>
 403                     <FRAME '\1aXJUMP>
 404                     <PUSH F-LAB18>
 405                     <CALL '\1aXJUMP 1 = STACK>
 406                     <CALL '\1aOCEMIT 2>
 407                     <FRAME '\1aFRAME!-MIMOC>
 408                     <RESTL NEXT-ATOM9 1 = TEMP24 (TYPE LIST)>
 409                     <NTHL TEMP24 1 = TEMP24 (TYPE ATOM)>
 410                     <CONS TEMP24 () = TEMP24>
 411                     <CONS F121 TEMP24 = STACK>
 412                     <DEAD TEMP24>
 413                     <CALL '\1aFRAME!-MIMOC 1>
 414                     <FRAME '\1aOCEMIT>
 415                     <PUSH 'PUSH>
 416                     <PUSH 'TP*>
 417                     <SET ENDADDR15 2 (TYPE FIX)>
 418                     <SFRAME 'TYPE-WORD>
 419                     <PUSH 'FIX>
 420                     <SCALL '\1aTYPE-WORD 1 = TEMP24 + TAG115 TEMP48>
 421                     <LOOP (TEMP24 TYPE VALUE LENGTH) (ENDADDR15 VALUE)>
 422 TAG117
 423                     <INTGO>
 424                     <EMPTY? TEMP24 + TAG115>
 425                     <NTH1 TEMP24 = STACK>
 426                     <REST1 TEMP24 = TEMP24>
 427                     <ADD ENDADDR15 1 = ENDADDR15 (TYPE FIX)>
 428                     <JUMP + TAG117>
 429 TAG115
 430                     <DEAD TEMP24>
 431                     <CALL '\1aOCEMIT ENDADDR15>
 432                     <DEAD ENDADDR15>
 433                     <GVAL 'WINNING-VICTIM = ENDADDR15>
 434                     <TYPE? ENDADDR15 <TYPE-CODE FALSE> + PHRASE120>
 435                     <DEAD ENDADDR15>
 436                     <GVAL 'STACK-DEPTH = ENDADDR15>
 437                     <ADD ENDADDR15 1 = ENDADDR15 (TYPE FIX)>
 438                     <SETG 'STACK-DEPTH ENDADDR15>
 439                     <DEAD ENDADDR15>
 440 PHRASE120
 441                     <FRAME '\1aOCEMIT>
 442                     <PUSH 'PUSH>
 443                     <PUSH 'TP*>
 444                     <SET TEMP24 2 (TYPE FIX)>
 445                     <SFRAME 'OBJ-VAL>
 446                     <ADD RLEN12 2 = STACK (TYPE FIX)>
 447                     <SCALL '\1aOBJ-VAL 1 = ENDADDR15 + TAG121 TEMP24>
 448                     <LOOP (ENDADDR15 TYPE VALUE LENGTH) (TEMP24 VALUE)>
 449 TAG123
 450                     <INTGO>
 451                     <EMPTY? ENDADDR15 + TAG121>
 452                     <NTH1 ENDADDR15 = STACK>
 453                     <REST1 ENDADDR15 = ENDADDR15>
 454                     <ADD TEMP24 1 = TEMP24 (TYPE FIX)>
 455                     <JUMP + TAG123>
 456 TAG121
 457                     <DEAD ENDADDR15>
 458                     <CALL '\1aOCEMIT TEMP24>
 459                     <DEAD TEMP24>
 460                     <GVAL 'WINNING-VICTIM = TEMP24>
 461                     <TYPE? TEMP24 <TYPE-CODE FALSE> + PHRASE126>
 462                     <DEAD TEMP24>
 463                     <GVAL 'STACK-DEPTH = TEMP24>
 464                     <ADD TEMP24 1 = TEMP24 (TYPE FIX)>
 465                     <SETG 'STACK-DEPTH TEMP24>
 466                     <DEAD TEMP24>
 467 PHRASE126
 468                     <FRAME '\1aCALL!-MIMOC>
 469                     <CONS F121 () = F121>
 470                     <CONS 1 F121 = F121>
 471                     <CONS NEXT-ATOM9 F121 = STACK>
 472                     <DEAD F121 NEXT-ATOM9>
 473                     <CALL '\1aCALL!-MIMOC 1>
 474                     <FRAME '\1aOCEMIT>
 475                     <PUSH 'MOVE>
 476                     <PUSH 'O1*>
 477                     <SET ENDADDR15 2 (TYPE FIX)>
 478                     <SFRAME 'OBJ-VAL>
 479                     <PUSH VAR6>
 480                     <DEAD VAR6>
 481                     <SCALL '\1aOBJ-VAL 1 = TEMP24 + TAG128 TEMP48>
 482                     <LOOP (TEMP24 TYPE VALUE LENGTH) (ENDADDR15 VALUE)>
 483 TAG130
 484                     <INTGO>
 485                     <EMPTY? TEMP24 + TAG128>
 486                     <NTH1 TEMP24 = STACK>
 487                     <REST1 TEMP24 = TEMP24>
 488                     <ADD ENDADDR15 1 = ENDADDR15 (TYPE FIX)>
 489                     <JUMP + TAG130>
 490 TAG128
 491                     <DEAD TEMP24>
 492                     <CALL '\1aOCEMIT ENDADDR15>
 493                     <DEAD ENDADDR15>
 494                     <FRAME '\1aOCEMIT>
 495                     <PUSH 'DMOVE>
 496                     <PUSH 'B1*>
 497                     <PUSH '@>
 498                     <SET TEMP24 3 (TYPE FIX)>
 499                     <SET ENDADDR15 ALLOCADDR14>
 500                     <LOOP (ENDADDR15 TYPE VALUE LENGTH) (TEMP24 VALUE)>
 501 TAG133
 502                     <INTGO>
 503                     <EMPTY? ENDADDR15 + TAG132>
 504                     <NTH1 ENDADDR15 = STACK>
 505                     <REST1 ENDADDR15 = ENDADDR15>
 506                     <ADD TEMP24 1 = TEMP24 (TYPE FIX)>
 507                     <JUMP + TAG133>
 508 TAG132
 509                     <DEAD ENDADDR15>
 510                     <CALL '\1aOCEMIT TEMP24>
 511                     <DEAD TEMP24>
 512                     <FRAME '\1aOCEMIT>
 513                     <PUSH 'MOVE>
 514                     <PUSH 'O2*>
 515                     <PUSH 'B2*>
 516                     <CALL '\1aOCEMIT 3>
 517                     <FRAME '\1aOCEMIT>
 518                     <PUSH 'ADDI>
 519                     <PUSH 'O2*>
 520                     <ADD RLEN12 2 = STACK (TYPE FIX)>
 521                     <CALL '\1aOCEMIT 3>
 522                     <FRAME '\1aLABEL>
 523                     <PUSH F-LAB18>
 524                     <DEAD F-LAB18>
 525                     <CALL '\1aLABEL 1>
 526                     <FRAME '\1aOCEMIT>
 527                     <PUSH 'MOVEM>
 528                     <PUSH 'B2*>
 529                     <ADD RLEN12 1 = STACK (TYPE FIX)>
 530                     <PUSH (O1*)>
 531                     <CALL '\1aOCEMIT 4>
 532                     <FRAME '\1aOCEMIT>
 533                     <PUSH 'MOVE>
 534                     <PUSH 'T*>
 535                     <SET ENDADDR15 2 (TYPE FIX)>
 536                     <LOOP (ALLOCADDR14 TYPE VALUE LENGTH) (ENDADDR15 VALUE)>
 537 TAG140
 538                     <INTGO>
 539                     <EMPTY? ALLOCADDR14 + TAG139>
 540                     <NTH1 ALLOCADDR14 = STACK>
 541                     <REST1 ALLOCADDR14 = ALLOCADDR14>
 542                     <ADD ENDADDR15 1 = ENDADDR15 (TYPE FIX)>
 543                     <JUMP + TAG140>
 544 TAG139
 545                     <DEAD ALLOCADDR14>
 546                     <CALL '\1aOCEMIT ENDADDR15>
 547                     <DEAD ENDADDR15>
 548                     <FRAME '\1aOCEMIT>
 549                     <PUSH 'MOVEM>
 550                     <PUSH 'O2*>
 551                     <PUSH 1>
 552                     <PUSH (T*)>
 553                     <CALL '\1aOCEMIT 4>
 554                     <FRAME '\1aOCEMIT>
 555                     <PUSH 'DMOVE>
 556                     <PUSH 'C1*>
 557                     <PUSH RLEN12>
 558                     <PUSH (O1*)>
 559                     <CALL '\1aOCEMIT 4>
 560                     <FRAME '\1aOCEMIT>
 561                     <PUSH 'TLZ>
 562                     <PUSH 'C1*>
 563                     <PUSH 65536>
 564                     <CALL '\1aOCEMIT 3>
 565                     <FRAME '\1aOCEMIT>
 566                     <PUSH 'DMOVEM>
 567                     <PUSH 'C1*>
 568                     <PUSH RLEN12>
 569                     <DEAD RLEN12>
 570                     <PUSH (B2*)>
 571                     <CALL '\1aOCEMIT 4>
 572                     <FRAME '\1aOCEMIT>
 573                     <PUSH 'MOVE>
 574                     <PUSH 'A2*>
 575                     <PUSH 'B2*>
 576                     <CALL '\1aOCEMIT 3>
 577                     <FRAME '\1aOCEMIT>
 578                     <PUSH 'MOVSI>
 579                     <PUSH 'A1*>
 580                     <FRAME '\1aTYPE-CODE>
 581                     <PUSH 'FIX>
 582                     <CALL '\1aTYPE-CODE 1 = STACK>
 583                     <CALL '\1aOCEMIT 3>
 584                     <FRAME '\1aLABEL>
 585                     <PUSH EXIT-LAB19>
 586                     <DEAD EXIT-LAB19>
 587                     <CALL '\1aLABEL 1>
 588                     <EQUAL? RES11 'STACK - PHRASE151>
 589                     <GVAL 'WINNING-VICTIM = ENDADDR15>
 590                     <TYPE? ENDADDR15 <TYPE-CODE FALSE> + PHRASE153>
 591                     <DEAD ENDADDR15>
 592                     <GVAL 'STACK-DEPTH = ENDADDR15>
 593                     <ADD ENDADDR15 2 = ENDADDR15 (TYPE FIX)>
 594                     <SETG 'STACK-DEPTH ENDADDR15>
 595                     <DEAD ENDADDR15>
 596 PHRASE153
 597                     <FRAME '\1aOCEMIT>
 598                     <PUSH 'PUSH>
 599                     <PUSH 'TP*>
 600                     <PUSH 'A1*>
 601                     <CALL '\1aOCEMIT 3>
 602                     <FRAME '\1aOCEMIT>
 603                     <PUSH 'PUSH>
 604                     <PUSH 'TP*>
 605                     <PUSH 'A2*>
 606                     <CALL '\1aOCEMIT 3 = ENDADDR15>
 607                     <RETURN ENDADDR15>
 608                     <DEAD ENDADDR15>
 609 PHRASE151
 610                     <FRAME '\1aLOAD-AC>
 611                     <PUSH RES11>
 612                     <DEAD RES11>
 613                     <PUSH 'BOTH>
 614                     <PUSH 'T>
 615                     <PUSH 'T>
 616                     <FRAME '\1aGET-AC>
 617                     <PUSH 'A1*>
 618                     <CALL '\1aGET-AC 1 = STACK>
 619                     <CALL '\1aLOAD-AC 5 = ENDADDR15>
 620                     <RETURN ENDADDR15>
 621                     <DEAD ENDADDR15>
 622                     <END \1aCGC-RECORD!-MIMOC>
 623
 624 #WORD *6557655705*
 625                     <GFCN \1aCGC-BYTES!-MIMOC ("VALUE" ANY LIST) L5>
 626                     <TEMP VAR6 TEMP11 ALLOC-ATOM7 END-ATOM8 NEXT-ATOM9 RES10 TEMP14>
 627                     <INTGO>
 628                     <NTHL L5 1 = VAR6>
 629                     <RESTL L5 1 = TEMP11 (TYPE LIST)>
 630                     <NTHL TEMP11 1 = ALLOC-ATOM7>
 631                     <DEAD TEMP11>
 632                     <RESTL L5 1 = TEMP11 (TYPE LIST)>
 633                     <RESTL TEMP11 1 = TEMP11 (TYPE LIST)>
 634                     <NTHL TEMP11 1 = END-ATOM8>
 635                     <DEAD TEMP11>
 636                     <RESTL L5 1 = TEMP11 (TYPE LIST)>
 637                     <RESTL TEMP11 1 = TEMP11 (TYPE LIST)>
 638                     <RESTL TEMP11 1 = TEMP11 (TYPE LIST)>
 639                     <NTHL TEMP11 1 = NEXT-ATOM9>
 640                     <DEAD TEMP11>
 641                     <NTHL L5 6 = RES10>
 642                     <DEAD L5>
 643                     <FRAME '\1aFLUSH-ACS>
 644                     <CALL '\1aFLUSH-ACS 0>
 645                     <FRAME '\1aOCEMIT>
 646                     <PUSH 'DMOVE>
 647                     <PUSH 'A1*>
 648                     <SET TEMP14 2 (TYPE FIX)>
 649                     <SFRAME 'OBJ-TYP>
 650                     <PUSH VAR6>
 651                     <SCALL '\1aOBJ-TYP 1 = TEMP11 + TAG13 TEMP14>
 652                     <LOOP (TEMP11 TYPE VALUE LENGTH) (TEMP14 VALUE)>
 653 TAG16
 654                     <INTGO>
 655                     <EMPTY? TEMP11 + TAG13>
 656                     <NTH1 TEMP11 = STACK>
 657                     <REST1 TEMP11 = TEMP11>
 658                     <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
 659                     <JUMP + TAG16>
 660 TAG13
 661                     <DEAD TEMP11>
 662                     <CALL '\1aOCEMIT TEMP14>
 663                     <DEAD TEMP14>
 664                     <FRAME '\1aOCEMIT>
 665                     <PUSH 'ANDI>
 666                     <PUSH 'A1*>
 667                     <PUSH 262143>
 668                     <CALL '\1aOCEMIT 3>
 669                     <FRAME '\1aOCEMIT>
 670                     <PUSH 'IBP>
 671                     <PUSH 'A1*>
 672                     <PUSH 'A2*>
 673                     <CALL '\1aOCEMIT 3>
 674                     <FRAME '\1aOCEMIT>
 675                     <PUSH 'TLZ>
 676                     <PUSH 'A1*>
 677                     <PUSH 258048>
 678                     <CALL '\1aOCEMIT 3>
 679                     <FRAME '\1aOCEMIT>
 680                     <PUSH 'SUB>
 681                     <PUSH 'A2*>
 682                     <PUSH 'A1*>
 683                     <CALL '\1aOCEMIT 3>
 684                     <FRAME '\1aCGC-UV-ST>
 685                     <PUSH VAR6>
 686                     <DEAD VAR6>
 687                     <PUSH ALLOC-ATOM7>
 688                     <DEAD ALLOC-ATOM7>
 689                     <PUSH END-ATOM8>
 690                     <DEAD END-ATOM8>
 691                     <PUSH NEXT-ATOM9>
 692                     <DEAD NEXT-ATOM9>
 693                     <PUSH RES10>
 694                     <DEAD RES10>
 695                     <CALL '\1aCGC-UV-ST 5 = TEMP14>
 696                     <RETURN TEMP14>
 697                     <DEAD TEMP14>
 698                     <END \1aCGC-BYTES!-MIMOC>
 699
 700 <SETG CGC-STRING!-MIMOC ,CGC-BYTES!-MIMOC>
 701
 702 #WORD *35707575043*
 703                     <GFCN \1aCGC-UVECTOR!-MIMOC ("VALUE" ANY LIST) L5>
 704                     <TEMP VAR6 TEMP11 ALLOC-ATOM7 END-ATOM8 NEXT-ATOM9 RES10 TEMP13>
 705                     <INTGO>
 706                     <NTHL L5 1 = VAR6>
 707                     <RESTL L5 1 = TEMP11 (TYPE LIST)>
 708                     <NTHL TEMP11 1 = ALLOC-ATOM7>
 709                     <DEAD TEMP11>
 710                     <RESTL L5 1 = TEMP11 (TYPE LIST)>
 711                     <RESTL TEMP11 1 = TEMP11 (TYPE LIST)>
 712                     <NTHL TEMP11 1 = END-ATOM8>
 713                     <DEAD TEMP11>
 714                     <RESTL L5 1 = TEMP11 (TYPE LIST)>
 715                     <RESTL TEMP11 1 = TEMP11 (TYPE LIST)>
 716                     <RESTL TEMP11 1 = TEMP11 (TYPE LIST)>
 717                     <NTHL TEMP11 1 = NEXT-ATOM9>
 718                     <DEAD TEMP11>
 719                     <NTHL L5 6 = RES10>
 720                     <DEAD L5>
 721                     <FRAME '\1aOCEMIT>
 722                     <PUSH 'DMOVE>
 723                     <PUSH 'A1*>
 724                     <SET TEMP13 2 (TYPE FIX)>
 725                     <SFRAME 'OBJ-TYP>
 726                     <PUSH VAR6>
 727                     <SCALL '\1aOBJ-TYP 1 = TEMP11 + TAG12 TEMP13>
 728                     <LOOP (TEMP11 TYPE VALUE LENGTH) (TEMP13 VALUE)>
 729 TAG15
 730                     <INTGO>
 731                     <EMPTY? TEMP11 + TAG12>
 732                     <NTH1 TEMP11 = STACK>
 733                     <REST1 TEMP11 = TEMP11>
 734                     <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
 735                     <JUMP + TAG15>
 736 TAG12
 737                     <DEAD TEMP11>
 738                     <CALL '\1aOCEMIT TEMP13>
 739                     <DEAD TEMP13>
 740                     <FRAME '\1aOCEMIT>
 741                     <PUSH 'HRREI>
 742                     <PUSH 'A1*>
 743                     <PUSH -1>
 744                     <PUSH (A1*)>
 745                     <CALL '\1aOCEMIT 4>
 746                     <FRAME '\1aOCEMIT>
 747                     <PUSH 'ADD>
 748                     <PUSH 'A1*>
 749                     <PUSH 'A2*>
 750                     <CALL '\1aOCEMIT 3>
 751                     <FRAME '\1aOCEMIT>
 752                     <PUSH 'SUB>
 753                     <PUSH 'A2*>
 754                     <PUSH 'A1*>
 755                     <CALL '\1aOCEMIT 3>
 756                     <FRAME '\1aCGC-UV-ST>
 757                     <PUSH VAR6>
 758                     <DEAD VAR6>
 759                     <PUSH ALLOC-ATOM7>
 760                     <DEAD ALLOC-ATOM7>
 761                     <PUSH END-ATOM8>
 762                     <DEAD END-ATOM8>
 763                     <PUSH NEXT-ATOM9>
 764                     <DEAD NEXT-ATOM9>
 765                     <PUSH RES10>
 766                     <DEAD RES10>
 767                     <CALL '\1aCGC-UV-ST 5 = TEMP13>
 768                     <RETURN TEMP13>
 769                     <DEAD TEMP13>
 770                     <END \1aCGC-UVECTOR!-MIMOC>
 771
 772 #WORD *25644437100*
 773                     <GFCN \1aCGC-UV-ST ("VALUE" ANY ATOM !<FORM ATOM ATOM> !<FORM ATOM ATOM> !<FORM ATOM ATOM> ATOM) VAR5 ALLOC-ATOM6 END-ATOM7 NEXT-ATOM8 RES9>
 774                     <TEMP M-LAB12 F-LAB13 F114 TEMP19 ENDADDR10 ALLOCADDR11 TEMP28 TEMP92:FIX>
 775                     <INTGO>
 776                     <FRAME '\1aGENLBL>
 777                     <PUSH "M">
 778                     <CALL '\1aGENLBL 1 = M-LAB12>
 779                     <FRAME '\1aGENLBL>
 780                     <PUSH "F">
 781                     <CALL '\1aGENLBL 1 = F-LAB13>
 782                     <FRAME '\1aGENLBL>
 783                     <PUSH "?FRM">
 784                     <CALL '\1aGENLBL 1 = F114>
 785                     <FRAME '\1aOBJ-VAL>
 786                     <RESTL END-ATOM7 1 = TEMP19 (TYPE LIST)>
 787                     <DEAD END-ATOM7>
 788                     <NTHL TEMP19 1 = TEMP19 (TYPE ATOM)>
 789                     <CHTYPE TEMP19 <TYPE-CODE XGLOC> = STACK>
 790                     <DEAD TEMP19>
 791                     <CALL '\1aOBJ-VAL 1 = ENDADDR10>
 792                     <FRAME '\1aOBJ-VAL>
 793                     <RESTL ALLOC-ATOM6 1 = TEMP19 (TYPE LIST)>
 794                     <DEAD ALLOC-ATOM6>
 795                     <NTHL TEMP19 1 = TEMP19 (TYPE ATOM)>
 796                     <CHTYPE TEMP19 <TYPE-CODE XGLOC> = STACK>
 797                     <DEAD TEMP19>
 798                     <CALL '\1aOBJ-VAL 1 = ALLOCADDR11>
 799                     <FRAME '\1aOCEMIT>
 800                     <PUSH 'MOVE>
 801                     <PUSH 'O1*>
 802                     <PUSH 1>
 803                     <PUSH (A1*)>
 804                     <CALL '\1aOCEMIT 4>
 805                     <FRAME '\1aOCEMIT>
 806                     <PUSH 'TLOE>
 807                     <PUSH 'O1*>
 808                     <PUSH 65536>
 809                     <CALL '\1aOCEMIT 3>
 810                     <FRAME '\1aOCEMIT>
 811                     <PUSH 'JRST>
 812                     <FRAME '\1aXJUMP>
 813                     <PUSH M-LAB12>
 814                     <CALL '\1aXJUMP 1 = STACK>
 815                     <CALL '\1aOCEMIT 2>
 816                     <FRAME '\1aOCEMIT>
 817                     <PUSH 'MOVEM>
 818                     <PUSH 'O1*>
 819                     <PUSH 1>
 820                     <PUSH (A1*)>
 821                     <CALL '\1aOCEMIT 4>
 822                     <FRAME '\1aOCEMIT>
 823                     <PUSH 'MOVEI>
 824                     <PUSH 'O*>
 825                     <PUSH 2>
 826                     <PUSH (O1*)>
 827                     <CALL '\1aOCEMIT 4>
 828                     <FRAME '\1aOCEMIT>
 829                     <PUSH 'MOVE>
 830                     <PUSH 'O2*>
 831                     <SET TEMP28 2 (TYPE FIX)>
 832                     <SET TEMP19 ALLOCADDR11>
 833                     <LOOP (TEMP19 TYPE VALUE LENGTH) (TEMP28 VALUE)>
 834 TAG29
 835                     <INTGO>
 836                     <EMPTY? TEMP19 + TAG27>
 837                     <NTH1 TEMP19 = STACK>
 838                     <REST1 TEMP19 = TEMP19>
 839                     <ADD TEMP28 1 = TEMP28 (TYPE FIX)>
 840                     <JUMP + TAG29>
 841 TAG27
 842                     <DEAD TEMP19>
 843                     <CALL '\1aOCEMIT TEMP28>
 844                     <DEAD TEMP28>
 845                     <FRAME '\1aOCEMIT>
 846                     <PUSH 'ADD>
 847                     <PUSH 'O*>
 848                     <PUSH 1>
 849                     <PUSH (O2*)>
 850                     <CALL '\1aOCEMIT 4>
 851                     <FRAME '\1aOCEMIT>
 852                     <PUSH 'MOVE>
 853                     <PUSH 'T*>
 854                     <SET TEMP19 2 (TYPE FIX)>
 855                     <LOOP (ENDADDR10 TYPE VALUE LENGTH) (TEMP19 VALUE)>
 856 TAG33
 857                     <INTGO>
 858                     <EMPTY? ENDADDR10 + TAG32>
 859                     <NTH1 ENDADDR10 = STACK>
 860                     <REST1 ENDADDR10 = ENDADDR10>
 861                     <ADD TEMP19 1 = TEMP19 (TYPE FIX)>
 862                     <JUMP + TAG33>
 863 TAG32
 864                     <DEAD ENDADDR10>
 865                     <CALL '\1aOCEMIT TEMP19>
 866                     <DEAD TEMP19>
 867                     <FRAME '\1aOCEMIT>
 868                     <PUSH 'CAMG>
 869                     <PUSH 'O*>
 870                     <PUSH 1>
 871                     <PUSH (T*)>
 872                     <CALL '\1aOCEMIT 4>
 873                     <FRAME '\1aOCEMIT>
 874                     <PUSH 'JRST>
 875                     <FRAME '\1aXJUMP>
 876                     <PUSH F-LAB13>
 877                     <CALL '\1aXJUMP 1 = STACK>
 878                     <CALL '\1aOCEMIT 2>
 879                     <FRAME '\1aOCEMIT>
 880                     <PUSH 'SUB>
 881                     <PUSH 'O*>
 882                     <PUSH 1>
 883                     <PUSH (O2*)>
 884                     <CALL '\1aOCEMIT 4>
 885                     <FRAME '\1aOCEMIT>
 886                     <PUSH 'PUSH>
 887                     <PUSH 'TP*>
 888                     <PUSH 'O*>
 889                     <CALL '\1aOCEMIT 3>
 890                     <FRAME '\1aOCEMIT>
 891                     <PUSH 'PUSH>
 892                     <PUSH 'TP*>
 893                     <PUSH 'A1*>
 894                     <CALL '\1aOCEMIT 3>
 895                     <FRAME '\1aOCEMIT>
 896                     <PUSH 'PUSH>
 897                     <PUSH 'TP*>
 898                     <PUSH 'A2*>
 899                     <CALL '\1aOCEMIT 3>
 900                     <GVAL 'WINNING-VICTIM = TEMP19>
 901                     <TYPE? TEMP19 <TYPE-CODE FALSE> + PHRASE43>
 902                     <DEAD TEMP19>
 903                     <GVAL 'STACK-DEPTH = TEMP19>
 904                     <ADD TEMP19 3 = TEMP19 (TYPE FIX)>
 905                     <SETG 'STACK-DEPTH TEMP19>
 906                     <DEAD TEMP19>
 907 PHRASE43
 908                     <FRAME '\1aFRAME!-MIMOC>
 909                     <RESTL NEXT-ATOM8 1 = TEMP19 (TYPE LIST)>
 910                     <NTHL TEMP19 1 = TEMP19 (TYPE ATOM)>
 911                     <CONS TEMP19 () = TEMP19>
 912                     <CONS F114 TEMP19 = STACK>
 913                     <DEAD TEMP19>
 914                     <CALL '\1aFRAME!-MIMOC 1>
 915                     <FRAME '\1aOCEMIT>
 916                     <PUSH 'PUSH>
 917                     <PUSH 'TP*>
 918                     <SET ENDADDR10 2 (TYPE FIX)>
 919                     <SFRAME 'TYPE-WORD>
 920                     <PUSH 'FIX>
 921                     <SCALL '\1aTYPE-WORD 1 = TEMP19 + TAG45 TEMP28>
 922                     <LOOP (TEMP19 TYPE VALUE LENGTH) (ENDADDR10 VALUE)>
 923 TAG47
 924                     <INTGO>
 925                     <EMPTY? TEMP19 + TAG45>
 926                     <NTH1 TEMP19 = STACK>
 927                     <REST1 TEMP19 = TEMP19>
 928                     <ADD ENDADDR10 1 = ENDADDR10 (TYPE FIX)>
 929                     <JUMP + TAG47>
 930 TAG45
 931                     <DEAD TEMP19>
 932                     <CALL '\1aOCEMIT ENDADDR10>
 933                     <DEAD ENDADDR10>
 934                     <FRAME '\1aOCEMIT>
 935                     <PUSH 'PUSH>
 936                     <PUSH 'TP*>
 937                     <PUSH 'O*>
 938                     <CALL '\1aOCEMIT 3>
 939                     <GVAL 'WINNING-VICTIM = ENDADDR10>
 940                     <TYPE? ENDADDR10 <TYPE-CODE FALSE> + PHRASE51>
 941                     <DEAD ENDADDR10>
 942                     <GVAL 'STACK-DEPTH = ENDADDR10>
 943                     <ADD ENDADDR10 2 = ENDADDR10 (TYPE FIX)>
 944                     <SETG 'STACK-DEPTH ENDADDR10>
 945                     <DEAD ENDADDR10>
 946 PHRASE51
 947                     <FRAME '\1aCALL!-MIMOC>
 948                     <CONS F114 () = F114>
 949                     <CONS 1 F114 = F114>
 950                     <CONS NEXT-ATOM8 F114 = STACK>
 951                     <DEAD F114 NEXT-ATOM8>
 952                     <CALL '\1aCALL!-MIMOC 1>
 953                     <FRAME '\1aOCEMIT>
 954                     <PUSH 'MOVE>
 955                     <PUSH 'O2*>
 956                     <SET TEMP19 2 (TYPE FIX)>
 957                     <LOOP (ALLOCADDR11 TYPE VALUE LENGTH) (TEMP19 VALUE)>
 958 TAG54
 959                     <INTGO>
 960                     <EMPTY? ALLOCADDR11 + TAG53>
 961                     <NTH1 ALLOCADDR11 = STACK>
 962                     <REST1 ALLOCADDR11 = ALLOCADDR11>
 963                     <ADD TEMP19 1 = TEMP19 (TYPE FIX)>
 964                     <JUMP + TAG54>
 965 TAG53
 966                     <DEAD ALLOCADDR11>
 967                     <CALL '\1aOCEMIT TEMP19>
 968                     <DEAD TEMP19>
 969                     <FRAME '\1aOCEMIT>
 970                     <PUSH 'MOVE>
 971                     <PUSH 'O*>
 972                     <PUSH -2>
 973                     <PUSH (TP*)>
 974                     <CALL '\1aOCEMIT 4>
 975                     <FRAME '\1aOCEMIT>
 976                     <PUSH 'MOVE>
 977                     <PUSH 'A1*>
 978                     <PUSH -1>
 979                     <PUSH (TP*)>
 980                     <CALL '\1aOCEMIT 4>
 981                     <FRAME '\1aOCEMIT>
 982                     <PUSH 'MOVE>
 983                     <PUSH 'A2*>
 984                     <PUSH (TP*)>
 985                     <CALL '\1aOCEMIT 3>
 986                     <FRAME '\1aOCEMIT>
 987                     <PUSH 'ADD>
 988                     <PUSH 'O*>
 989                     <PUSH 1>
 990                     <PUSH (O2*)>
 991                     <CALL '\1aOCEMIT 4>
 992                     <FRAME '\1aOCEMIT>
 993                     <PUSH 'SUBI>
 994                     <PUSH 'TP*>
 995                     <PUSH 3>
 996                     <CALL '\1aOCEMIT 3>
 997                     <GVAL 'WINNING-VICTIM = TEMP19>
 998                     <TYPE? TEMP19 <TYPE-CODE FALSE> + PHRASE62>
 999                     <DEAD TEMP19>
1000                     <GVAL 'STACK-DEPTH = TEMP19>
1001                     <SUB TEMP19 3 = TEMP19 (TYPE FIX)>
1002                     <SETG 'STACK-DEPTH TEMP19>
1003                     <DEAD TEMP19>
1004 PHRASE62
1005                     <FRAME '\1aLABEL>
1006                     <PUSH F-LAB13>
1007                     <DEAD F-LAB13>
1008                     <CALL '\1aLABEL 1>
1009                     <FRAME '\1aOCEMIT>
1010                     <PUSH 'MOVEM>
1011                     <PUSH 'O*>
1012                     <PUSH 1>
1013                     <PUSH (O2*)>
1014                     <CALL '\1aOCEMIT 4>
1015                     <FRAME '\1aOCEMIT>
1016                     <PUSH 'SUBI>
1017                     <PUSH 'O*>
1018                     <PUSH 2>
1019                     <CALL '\1aOCEMIT 3>
1020                     <FRAME '\1aOCEMIT>
1021                     <PUSH 'MOVEM>
1022                     <PUSH 'O*>
1023                     <PUSH 2>
1024                     <PUSH (A1*)>
1025                     <CALL '\1aOCEMIT 4>
1026                     <FRAME '\1aOCEMIT>
1027                     <PUSH 'MOVE>
1028                     <PUSH 'C1*>
1029                     <PUSH 'O*>
1030                     <CALL '\1aOCEMIT 3>
1031                     <FRAME '\1aOCEMIT>
1032                     <PUSH 'HRRZ>
1033                     <PUSH 'B1*>
1034                     <PUSH 1>
1035                     <PUSH (A1*)>
1036                     <CALL '\1aOCEMIT 4>
1037                     <FRAME '\1aOCEMIT>
1038                     <PUSH 'XMOVEI>
1039                     <PUSH 'B2*>
1040                     <PUSH 1>
1041                     <PUSH (A1*)>
1042                     <CALL '\1aOCEMIT 4>
1043                     <FRAME '\1aOCEMIT>
1044                     <PUSH 'MOVE>
1045                     <PUSH 'O*>
1046                     <PUSH 1>
1047                     <PUSH (A1*)>
1048                     <CALL '\1aOCEMIT 4>
1049                     <FRAME '\1aOCEMIT>
1050                     <PUSH 'TLZ>
1051                     <PUSH 'O*>
1052                     <PUSH 65536>
1053                     <CALL '\1aOCEMIT 3>
1054                     <FRAME '\1aOCEMIT>
1055                     <PUSH 'MOVEM>
1056                     <PUSH 'O*>
1057                     <PUSH (C1*)>
1058                     <CALL '\1aOCEMIT 3>
1059                     <FRAME '\1aOCEMIT>
1060                     <PUSH 'MOVNS>
1061                     <PUSH 'O*>
1062                     <PUSH 'B1*>
1063                     <CALL '\1aOCEMIT 3>
1064                     <FRAME '\1aOCEMIT>
1065                     <PUSH 'XBLT>
1066                     <PUSH 'B1*>
1067                     <SET ALLOCADDR11 2 (TYPE FIX)>
1068                     <SFRAME 'OBJ-VAL>
1069                     <PUSH 2147483648>
1070                     <SCALL '\1aOBJ-VAL 1 = TEMP19 + TAG74 TEMP28>
1071                     <LOOP (TEMP19 TYPE VALUE LENGTH) (ALLOCADDR11 VALUE)>
1072 TAG76
1073                     <INTGO>
1074                     <EMPTY? TEMP19 + TAG74>
1075                     <NTH1 TEMP19 = STACK>
1076                     <REST1 TEMP19 = TEMP19>
1077                     <ADD ALLOCADDR11 1 = ALLOCADDR11 (TYPE FIX)>
1078                     <JUMP + TAG76>
1079 TAG74
1080                     <DEAD TEMP19>
1081                     <CALL '\1aOCEMIT ALLOCADDR11>
1082                     <DEAD ALLOCADDR11>
1083                     <FRAME '\1aLABEL>
1084                     <PUSH M-LAB12>
1085                     <DEAD M-LAB12>
1086                     <CALL '\1aLABEL 1>
1087                     <FRAME '\1aOCEMIT>
1088                     <PUSH 'ADD>
1089                     <PUSH 'A2*>
1090                     <PUSH 2>
1091                     <PUSH (A1*)>
1092                     <CALL '\1aOCEMIT 4>
1093                     <FRAME '\1aOCEMIT>
1094                     <PUSH 'SUBI>
1095                     <PUSH 'A2*>
1096                     <PUSH 1>
1097                     <CALL '\1aOCEMIT 3>
1098                     <VEQUAL? RES9 'STACK - PHRASE82>
1099                     <FRAME '\1aOCEMIT>
1100                     <PUSH 'PUSH>
1101                     <PUSH 'TP*>
1102                     <SET TEMP19 2 (TYPE FIX)>
1103                     <SFRAME 'OBJ-TYP>
1104                     <PUSH VAR5>
1105                     <DEAD VAR5>
1106                     <SCALL '\1aOBJ-TYP 1 = ALLOCADDR11 + TAG83 TEMP19>
1107                     <LOOP (ALLOCADDR11 TYPE VALUE LENGTH) (TEMP19 VALUE)>
1108 TAG85
1109                     <INTGO>
1110                     <EMPTY? ALLOCADDR11 + TAG83>
1111                     <NTH1 ALLOCADDR11 = STACK>
1112                     <REST1 ALLOCADDR11 = ALLOCADDR11>
1113                     <ADD TEMP19 1 = TEMP19 (TYPE FIX)>
1114                     <JUMP + TAG85>
1115 TAG83
1116                     <DEAD ALLOCADDR11>
1117                     <CALL '\1aOCEMIT TEMP19>
1118                     <DEAD TEMP19>
1119                     <FRAME '\1aOCEMIT>
1120                     <PUSH 'PUSH>
1121                     <PUSH 'TP*>
1122                     <PUSH 'A2*>
1123                     <CALL '\1aOCEMIT 3>
1124                     <GVAL 'WINNING-VICTIM = TEMP19>
1125                     <TYPE? TEMP19 <TYPE-CODE FALSE> + PHRASE90>
1126                     <GVAL 'STACK-DEPTH = ALLOCADDR11>
1127                     <ADD ALLOCADDR11 2 = ALLOCADDR11 (TYPE FIX)>
1128                     <SETG 'STACK-DEPTH ALLOCADDR11>
1129                     <RETURN ALLOCADDR11>
1130                     <DEAD ALLOCADDR11>
1131 PHRASE82
1132                     <FRAME '\1aOCEMIT>
1133                     <PUSH 'MOVE>
1134                     <PUSH 'A1*>
1135                     <SET TEMP92 2 (TYPE FIX)>
1136                     <SFRAME 'OBJ-TYP>
1137                     <PUSH VAR5>
1138                     <DEAD VAR5>
1139                     <SCALL '\1aOBJ-TYP 1 = ALLOCADDR11 + TAG91 TEMP92>
1140                     <LOOP (ALLOCADDR11 TYPE VALUE LENGTH) (TEMP92 VALUE)>
1141 TAG94
1142                     <INTGO>
1143                     <EMPTY? ALLOCADDR11 + TAG91>
1144                     <NTH1 ALLOCADDR11 = STACK>
1145                     <REST1 ALLOCADDR11 = ALLOCADDR11>
1146                     <ADD TEMP92 1 = TEMP92 (TYPE FIX)>
1147                     <JUMP + TAG94>
1148 TAG91
1149                     <DEAD ALLOCADDR11>
1150                     <CALL '\1aOCEMIT TEMP92>
1151                     <DEAD TEMP92>
1152                     <FRAME '\1aLOAD-AC>
1153                     <PUSH RES9>
1154                     <DEAD RES9>
1155                     <PUSH 'BOTH>
1156                     <PUSH 'T>
1157                     <PUSH 'T>
1158                     <FRAME '\1aGET-AC>
1159                     <PUSH 'A1*>
1160                     <CALL '\1aGET-AC 1 = STACK>
1161                     <CALL '\1aLOAD-AC 5 = TEMP19>
1162 PHRASE90
1163                     <RETURN TEMP19>
1164                     <DEAD TEMP19>
1165                     <END \1aCGC-UV-ST>
1166
1167 #WORD *32222030502*
1168                     <GFCN \1aCGC-VECTOR!-MIMOC ("VALUE" ANY LIST) L5>
1169                     <TEMP VAR6 TEMP22 ALLOC-ATOM7:FORM END-ATOM8:FORM NEXT-ATOM9:FORM MARK-ATOM10:FORM RES11 NF-LAB14 F-LAB15 F116 LOOP-LAB17 NM-LAB18 F219 DONE-LAB20 M-LAB21 ENDADDR12 ALLOCADDR13 TEMP35 TEMP143:FIX>
1170                     <INTGO>
1171                     <NTHL L5 1 = VAR6>
1172                     <RESTL L5 1 = TEMP22 (TYPE LIST)>
1173                     <NTHL TEMP22 1 = ALLOC-ATOM7 (TYPE FORM)>
1174                     <DEAD TEMP22>
1175                     <RESTL L5 1 = TEMP22 (TYPE LIST)>
1176                     <RESTL TEMP22 1 = TEMP22 (TYPE LIST)>
1177                     <NTHL TEMP22 1 = END-ATOM8 (TYPE FORM)>
1178                     <DEAD TEMP22>
1179                     <RESTL L5 1 = TEMP22 (TYPE LIST)>
1180                     <RESTL TEMP22 1 = TEMP22 (TYPE LIST)>
1181                     <RESTL TEMP22 1 = TEMP22 (TYPE LIST)>
1182                     <NTHL TEMP22 1 = NEXT-ATOM9 (TYPE FORM)>
1183                     <DEAD TEMP22>
1184                     <NTHL L5 5 = MARK-ATOM10 (TYPE FORM)>
1185                     <NTHL L5 7 = RES11>
1186                     <DEAD L5>
1187                     <FRAME '\1aGENLBL>
1188                     <PUSH "NF">
1189                     <CALL '\1aGENLBL 1 = NF-LAB14>
1190                     <FRAME '\1aGENLBL>
1191                     <PUSH "F">
1192                     <CALL '\1aGENLBL 1 = F-LAB15>
1193                     <FRAME '\1aGENLBL>
1194                     <PUSH "?FRM">
1195                     <CALL '\1aGENLBL 1 = F116>
1196                     <FRAME '\1aGENLBL>
1197                     <PUSH "LOOP">
1198                     <CALL '\1aGENLBL 1 = LOOP-LAB17>
1199                     <FRAME '\1aGENLBL>
1200                     <PUSH "NM">
1201                     <CALL '\1aGENLBL 1 = NM-LAB18>
1202                     <FRAME '\1aGENLBL>
1203                     <PUSH "?FRM">
1204                     <CALL '\1aGENLBL 1 = F219>
1205                     <FRAME '\1aGENLBL>
1206                     <PUSH "DONE">
1207                     <CALL '\1aGENLBL 1 = DONE-LAB20>
1208                     <FRAME '\1aGENLBL>
1209                     <PUSH "M">
1210                     <CALL '\1aGENLBL 1 = M-LAB21>
1211                     <FRAME '\1aOBJ-VAL>
1212                     <RESTL END-ATOM8 1 = TEMP22 (TYPE LIST)>
1213                     <DEAD END-ATOM8>
1214                     <NTHL TEMP22 1 = TEMP22 (TYPE ATOM)>
1215                     <CHTYPE TEMP22 <TYPE-CODE XGLOC> = STACK>
1216                     <DEAD TEMP22>
1217                     <CALL '\1aOBJ-VAL 1 = ENDADDR12>
1218                     <FRAME '\1aOBJ-VAL>
1219                     <RESTL ALLOC-ATOM7 1 = TEMP22 (TYPE LIST)>
1220                     <DEAD ALLOC-ATOM7>
1221                     <NTHL TEMP22 1 = TEMP22 (TYPE ATOM)>
1222                     <CHTYPE TEMP22 <TYPE-CODE XGLOC> = STACK>
1223                     <DEAD TEMP22>
1224                     <CALL '\1aOBJ-VAL 1 = ALLOCADDR13>
1225                     <FRAME '\1aFLUSH-ACS>
1226                     <CALL '\1aFLUSH-ACS 0>
1227                     <FRAME '\1aOCEMIT>
1228                     <PUSH 'HRRZ>
1229                     <PUSH 'A1*>
1230                     <SET TEMP35 2 (TYPE FIX)>
1231                     <SFRAME 'OBJ-TYP>
1232                     <PUSH VAR6>
1233                     <SCALL '\1aOBJ-TYP 1 = TEMP22 + TAG34 TEMP35>
1234                     <LOOP (TEMP22 TYPE VALUE LENGTH) (TEMP35 VALUE)>
1235 TAG37
1236                     <INTGO>
1237                     <EMPTY? TEMP22 + TAG34>
1238                     <NTH1 TEMP22 = STACK>
1239                     <REST1 TEMP22 = TEMP22>
1240                     <ADD TEMP35 1 = TEMP35 (TYPE FIX)>
1241                     <JUMP + TAG37>
1242 TAG34
1243                     <DEAD TEMP22>
1244                     <CALL '\1aOCEMIT TEMP35>
1245                     <DEAD TEMP35>
1246                     <FRAME '\1aOCEMIT>
1247                     <PUSH 'ASH>
1248                     <PUSH 'A1*>
1249                     <PUSH 1>
1250                     <CALL '\1aOCEMIT 3>
1251                     <FRAME '\1aOCEMIT>
1252                     <PUSH 'MOVE>
1253                     <PUSH 'A2*>
1254                     <PUSH 'A1*>
1255                     <CALL '\1aOCEMIT 3>
1256                     <FRAME '\1aOCEMIT>
1257                     <PUSH 'ADD>
1258                     <PUSH 'A2*>
1259                     <SET TEMP22 2 (TYPE FIX)>
1260                     <SFRAME 'OBJ-VAL>
1261                     <PUSH VAR6>
1262                     <SCALL '\1aOBJ-VAL 1 = TEMP35 + TAG41 TEMP22>
1263                     <LOOP (TEMP35 TYPE VALUE LENGTH) (TEMP22 VALUE)>
1264 TAG43
1265                     <INTGO>
1266                     <EMPTY? TEMP35 + TAG41>
1267                     <NTH1 TEMP35 = STACK>
1268                     <REST1 TEMP35 = TEMP35>
1269                     <ADD TEMP22 1 = TEMP22 (TYPE FIX)>
1270                     <JUMP + TAG43>
1271 TAG41
1272                     <DEAD TEMP35>
1273                     <CALL '\1aOCEMIT TEMP22>
1274                     <DEAD TEMP22>
1275                     <FRAME '\1aOCEMIT>
1276                     <PUSH 'MOVE>
1277                     <PUSH 'O1*>
1278                     <PUSH (A2*)>
1279                     <CALL '\1aOCEMIT 3>
1280                     <FRAME '\1aOCEMIT>
1281                     <PUSH 'SUBI>
1282                     <PUSH 'A1*>
1283                     <PUSH (O1*)>
1284                     <CALL '\1aOCEMIT 3>
1285                     <FRAME '\1aOCEMIT>
1286                     <PUSH 'TLOE>
1287                     <PUSH 'O1*>
1288                     <PUSH 65536>
1289                     <CALL '\1aOCEMIT 3>
1290                     <FRAME '\1aOCEMIT>
1291                     <PUSH 'JRST>
1292                     <FRAME '\1aXJUMP>
1293                     <PUSH M-LAB21>
1294                     <CALL '\1aXJUMP 1 = STACK>
1295                     <CALL '\1aOCEMIT 2>
1296                     <FRAME '\1aOCEMIT>
1297                     <PUSH 'ADDI>
1298                     <PUSH 'TP*>
1299                     <PUSH 4>
1300                     <CALL '\1aOCEMIT 3>
1301                     <GVAL 'WINNING-VICTIM = TEMP22>
1302                     <TYPE? TEMP22 <TYPE-CODE FALSE> + PHRASE52>
1303                     <DEAD TEMP22>
1304                     <GVAL 'STACK-DEPTH = TEMP22>
1305                     <ADD TEMP22 4 = TEMP22 (TYPE FIX)>
1306                     <SETG 'STACK-DEPTH TEMP22>
1307                     <DEAD TEMP22>
1308 PHRASE52
1309                     <FRAME '\1aOCEMIT>
1310                     <PUSH 'MOVEM>
1311                     <PUSH 'O1*>
1312                     <PUSH (A2*)>
1313                     <CALL '\1aOCEMIT 3>
1314                     <FRAME '\1aOCEMIT>
1315                     <PUSH 'MOVEI>
1316                     <PUSH 'O2*>
1317                     <PUSH 2>
1318                     <PUSH (O1*)>
1319                     <CALL '\1aOCEMIT 4>
1320                     <FRAME '\1aOCEMIT>
1321                     <PUSH 'MOVE>
1322                     <PUSH 'T*>
1323                     <SET TEMP35 2 (TYPE FIX)>
1324                     <SET TEMP22 ALLOCADDR13>
1325                     <LOOP (TEMP22 TYPE VALUE LENGTH) (TEMP35 VALUE)>
1326 TAG56
1327                     <INTGO>
1328                     <EMPTY? TEMP22 + TAG55>
1329                     <NTH1 TEMP22 = STACK>
1330                     <REST1 TEMP22 = TEMP22>
1331                     <ADD TEMP35 1 = TEMP35 (TYPE FIX)>
1332                     <JUMP + TAG56>
1333 TAG55
1334                     <DEAD TEMP22>
1335                     <CALL '\1aOCEMIT TEMP35>
1336                     <DEAD TEMP35>
1337                     <FRAME '\1aOCEMIT>
1338                     <PUSH 'ADD>
1339                     <PUSH 'O2*>
1340                     <PUSH 1>
1341                     <PUSH (T*)>
1342                     <CALL '\1aOCEMIT 4>
1343                     <FRAME '\1aOCEMIT>
1344                     <PUSH 'MOVE>
1345                     <PUSH 'B1*>
1346                     <SET TEMP22 2 (TYPE FIX)>
1347                     <LOOP (ENDADDR12 TYPE VALUE LENGTH) (TEMP22 VALUE)>
1348 TAG60
1349                     <INTGO>
1350                     <EMPTY? ENDADDR12 + TAG59>
1351                     <NTH1 ENDADDR12 = STACK>
1352                     <REST1 ENDADDR12 = ENDADDR12>
1353                     <ADD TEMP22 1 = TEMP22 (TYPE FIX)>
1354                     <JUMP + TAG60>
1355 TAG59
1356                     <DEAD ENDADDR12>
1357                     <CALL '\1aOCEMIT TEMP22>
1358                     <DEAD TEMP22>
1359                     <FRAME '\1aOCEMIT>
1360                     <PUSH 'HRRZM>
1361                     <PUSH 'O1*>
1362                     <PUSH (TP*)>
1363                     <CALL '\1aOCEMIT 3>
1364                     <FRAME '\1aOCEMIT>
1365                     <PUSH 'MOVEM>
1366                     <PUSH 'A2*>
1367                     <PUSH -1>
1368                     <PUSH (TP*)>
1369                     <CALL '\1aOCEMIT 4>
1370                     <FRAME '\1aOCEMIT>
1371                     <PUSH 'MOVEM>
1372                     <PUSH 'A1*>
1373                     <PUSH -2>
1374                     <PUSH (TP*)>
1375                     <CALL '\1aOCEMIT 4>
1376                     <FRAME '\1aOCEMIT>
1377                     <PUSH 'CAMG>
1378                     <PUSH 'O2*>
1379                     <PUSH 1>
1380                     <PUSH (B1*)>
1381                     <CALL '\1aOCEMIT 4>
1382                     <FRAME '\1aOCEMIT>
1383                     <PUSH 'JRST>
1384                     <FRAME '\1aXJUMP>
1385                     <PUSH F-LAB15>
1386                     <CALL '\1aXJUMP 1 = STACK>
1387                     <CALL '\1aOCEMIT 2>
1388                     <FRAME '\1aFRAME!-MIMOC>
1389                     <RESTL NEXT-ATOM9 1 = TEMP22 (TYPE LIST)>
1390                     <NTHL TEMP22 1 = TEMP22 (TYPE ATOM)>
1391                     <CONS TEMP22 () = TEMP22>
1392                     <CONS F116 TEMP22 = STACK>
1393                     <DEAD TEMP22>
1394                     <CALL '\1aFRAME!-MIMOC 1>
1395                     <FRAME '\1aOCEMIT>
1396                     <PUSH 'PUSH>
1397                     <PUSH 'TP*>
1398                     <SET ENDADDR12 2 (TYPE FIX)>
1399                     <SFRAME 'TYPE-WORD>
1400                     <PUSH 'FIX>
1401                     <SCALL '\1aTYPE-WORD 1 = TEMP22 + TAG69 TEMP35>
1402                     <LOOP (TEMP22 TYPE VALUE LENGTH) (ENDADDR12 VALUE)>
1403 TAG71
1404                     <INTGO>
1405                     <EMPTY? TEMP22 + TAG69>
1406                     <NTH1 TEMP22 = STACK>
1407                     <REST1 TEMP22 = TEMP22>
1408                     <ADD ENDADDR12 1 = ENDADDR12 (TYPE FIX)>
1409                     <JUMP + TAG71>
1410 TAG69
1411                     <DEAD TEMP22>
1412                     <CALL '\1aOCEMIT ENDADDR12>
1413                     <DEAD ENDADDR12>
1414                     <FRAME '\1aOCEMIT>
1415                     <PUSH 'MOVEI>
1416                     <PUSH 'O1*>
1417                     <PUSH 2>
1418                     <PUSH (O1*)>
1419                     <CALL '\1aOCEMIT 4>
1420                     <FRAME '\1aOCEMIT>
1421                     <PUSH 'PUSH>
1422                     <PUSH 'TP*>
1423                     <PUSH 'O1*>
1424                     <CALL '\1aOCEMIT 3>
1425                     <GVAL 'WINNING-VICTIM = ENDADDR12>
1426                     <TYPE? ENDADDR12 <TYPE-CODE FALSE> + PHRASE76>
1427                     <DEAD ENDADDR12>
1428                     <GVAL 'STACK-DEPTH = ENDADDR12>
1429                     <ADD ENDADDR12 2 = ENDADDR12 (TYPE FIX)>
1430                     <SETG 'STACK-DEPTH ENDADDR12>
1431                     <DEAD ENDADDR12>
1432 PHRASE76
1433                     <FRAME '\1aCALL!-MIMOC>
1434                     <CONS F116 () = F116>
1435                     <CONS 1 F116 = F116>
1436                     <CONS NEXT-ATOM9 F116 = STACK>
1437                     <DEAD F116 NEXT-ATOM9>
1438                     <CALL '\1aCALL!-MIMOC 1>
1439                     <FRAME '\1aOCEMIT>
1440                     <PUSH 'MOVE>
1441                     <PUSH 'T*>
1442                     <SET TEMP22 2 (TYPE FIX)>
1443                     <LOOP (ALLOCADDR13 TYPE VALUE LENGTH) (TEMP22 VALUE)>
1444 TAG79
1445                     <INTGO>
1446                     <EMPTY? ALLOCADDR13 + TAG78>
1447                     <NTH1 ALLOCADDR13 = STACK>
1448                     <REST1 ALLOCADDR13 = ALLOCADDR13>
1449                     <ADD TEMP22 1 = TEMP22 (TYPE FIX)>
1450                     <JUMP + TAG79>
1451 TAG78
1452                     <DEAD ALLOCADDR13>
1453                     <CALL '\1aOCEMIT TEMP22>
1454                     <DEAD TEMP22>
1455                     <FRAME '\1aOCEMIT>
1456                     <PUSH 'MOVE>
1457                     <PUSH 'O2*>
1458                     <PUSH (TP*)>
1459                     <CALL '\1aOCEMIT 3>
1460                     <FRAME '\1aOCEMIT>
1461                     <PUSH 'ADDI>
1462                     <PUSH 'O2*>
1463                     <PUSH 2>
1464                     <CALL '\1aOCEMIT 3>
1465                     <FRAME '\1aOCEMIT>
1466                     <PUSH 'ADD>
1467                     <PUSH 'O2*>
1468                     <PUSH 1>
1469                     <PUSH (T*)>
1470                     <CALL '\1aOCEMIT 4>
1471                     <FRAME '\1aOCEMIT>
1472                     <PUSH 'MOVE>
1473                     <PUSH 'A2*>
1474                     <PUSH -1>
1475                     <PUSH (TP*)>
1476                     <CALL '\1aOCEMIT 4>
1477                     <FRAME '\1aLABEL>
1478                     <PUSH F-LAB15>
1479                     <DEAD F-LAB15>
1480                     <CALL '\1aLABEL 1>
1481                     <FRAME '\1aOCEMIT>
1482                     <PUSH 'MOVEM>
1483                     <PUSH 'O2*>
1484                     <PUSH 1>
1485                     <PUSH (T*)>
1486                     <CALL '\1aOCEMIT 4>
1487                     <FRAME '\1aOCEMIT>
1488                     <PUSH 'XMOVEI>
1489                     <PUSH 'O1*>
1490                     <PUSH -2>
1491                     <PUSH (O2*)>
1492                     <CALL '\1aOCEMIT 4>
1493                     <FRAME '\1aOCEMIT>
1494                     <PUSH 'MOVEM>
1495                     <PUSH 'O1*>
1496                     <PUSH 1>
1497                     <PUSH (A2*)>
1498                     <CALL '\1aOCEMIT 4>
1499                     <FRAME '\1aOCEMIT>
1500                     <PUSH 'MOVE>
1501                     <PUSH 'O*>
1502                     <PUSH (A2*)>
1503                     <CALL '\1aOCEMIT 3>
1504                     <FRAME '\1aOCEMIT>
1505                     <PUSH 'TLZ>
1506                     <PUSH 'O*>
1507                     <PUSH 65536>
1508                     <CALL '\1aOCEMIT 3>
1509                     <FRAME '\1aOCEMIT>
1510                     <PUSH 'MOVEM>
1511                     <PUSH 'O*>
1512                     <PUSH (O1*)>
1513                     <CALL '\1aOCEMIT 3>
1514                     <FRAME '\1aOCEMIT>
1515                     <PUSH 'MOVE>
1516                     <PUSH 'O2*>
1517                     <PUSH (TP*)>
1518                     <CALL '\1aOCEMIT 3>
1519                     <FRAME '\1aOCEMIT>
1520                     <PUSH 'SUB>
1521                     <PUSH 'A2*>
1522                     <PUSH 'O2*>
1523                     <CALL '\1aOCEMIT 3>
1524                     <FRAME '\1aOCEMIT>
1525                     <PUSH 'MOVEM>
1526                     <PUSH 'A2*>
1527                     <PUSH -1>
1528                     <PUSH (TP*)>
1529                     <CALL '\1aOCEMIT 4>
1530                     <FRAME '\1aOCEMIT>
1531                     <PUSH 'SUB>
1532                     <PUSH 'O1*>
1533                     <PUSH 'O2*>
1534                     <CALL '\1aOCEMIT 3>
1535                     <FRAME '\1aOCEMIT>
1536                     <PUSH 'MOVEM>
1537                     <PUSH 'O1*>
1538                     <PUSH -3>
1539                     <PUSH (TP*)>
1540                     <CALL '\1aOCEMIT 4>
1541                     <FRAME '\1aOCEMIT>
1542                     <PUSH 'ASH>
1543                     <PUSH 'O2*>
1544                     <PUSH -1>
1545                     <CALL '\1aOCEMIT 3>
1546                     <FRAME '\1aOCEMIT>
1547                     <PUSH 'MOVEM>
1548                     <PUSH 'O2*>
1549                     <PUSH (TP*)>
1550                     <CALL '\1aOCEMIT 3>
1551                     <FRAME '\1aLABEL>
1552                     <PUSH LOOP-LAB17>
1553                     <CALL '\1aLABEL 1>
1554                     <FRAME '\1aOCEMIT>
1555                     <PUSH 'SOSGE>
1556                     <PUSH (TP*)>
1557                     <CALL '\1aOCEMIT 2>
1558                     <FRAME '\1aOCEMIT>
1559                     <PUSH 'JRST>
1560                     <FRAME '\1aXJUMP>
1561                     <PUSH DONE-LAB20>
1562                     <CALL '\1aXJUMP 1 = STACK>
1563                     <CALL '\1aOCEMIT 2>
1564                     <FRAME '\1aOCEMIT>
1565                     <PUSH 'DMOVE>
1566                     <PUSH 'A1*>
1567                     <PUSH '@>
1568                     <PUSH -1>
1569                     <PUSH (TP*)>
1570                     <CALL '\1aOCEMIT 5>
1571                     <FRAME '\1aOCEMIT>
1572                     <PUSH 'HLRZ>
1573                     <PUSH 'O*>
1574                     <PUSH 'A1*>
1575                     <CALL '\1aOCEMIT 3>
1576                     <FRAME '\1aOCEMIT>
1577                     <PUSH 'ANDI>
1578                     <PUSH 'O*>
1579                     <PUSH 7>
1580                     <CALL '\1aOCEMIT 3>
1581                     <FRAME '\1aOCEMIT>
1582                     <PUSH 'JUMPE>
1583                     <PUSH 'O*>
1584                     <FRAME '\1aXJUMP>
1585                     <PUSH NM-LAB18>
1586                     <CALL '\1aXJUMP 1 = STACK>
1587                     <CALL '\1aOCEMIT 3>
1588                     <FRAME '\1aFRAME!-MIMOC>
1589                     <RESTL MARK-ATOM10 1 = TEMP22 (TYPE LIST)>
1590                     <NTHL TEMP22 1 = TEMP22 (TYPE ATOM)>
1591                     <CONS TEMP22 () = TEMP22>
1592                     <CONS F219 TEMP22 = STACK>
1593                     <DEAD TEMP22>
1594                     <CALL '\1aFRAME!-MIMOC 1>
1595                     <FRAME '\1aOCEMIT>
1596                     <PUSH 'PUSH>
1597                     <PUSH 'TP*>
1598                     <PUSH 'A1*>
1599                     <CALL '\1aOCEMIT 3>
1600                     <FRAME '\1aOCEMIT>
1601                     <PUSH 'PUSH>
1602                     <PUSH 'TP*>
1603                     <PUSH 'A2*>
1604                     <CALL '\1aOCEMIT 3>
1605                     <GVAL 'WINNING-VICTIM = TEMP22>
1606                     <TYPE? TEMP22 <TYPE-CODE FALSE> + PHRASE112>
1607                     <DEAD TEMP22>
1608                     <GVAL 'STACK-DEPTH = TEMP22>
1609                     <ADD TEMP22 2 = TEMP22 (TYPE FIX)>
1610                     <SETG 'STACK-DEPTH TEMP22>
1611                     <DEAD TEMP22>
1612 PHRASE112
1613                     <FRAME '\1aCALL!-MIMOC>
1614                     <CONS F219 () = F219>
1615                     <CONS 1 F219 = F219>
1616                     <CONS MARK-ATOM10 F219 = STACK>
1617                     <DEAD F219 MARK-ATOM10>
1618                     <CALL '\1aCALL!-MIMOC 1>
1619                     <FRAME '\1aLABEL>
1620                     <PUSH NM-LAB18>
1621                     <DEAD NM-LAB18>
1622                     <CALL '\1aLABEL 1>
1623                     <FRAME '\1aOCEMIT>
1624                     <PUSH 'DMOVEM>
1625                     <PUSH 'A1*>
1626                     <PUSH '@>
1627                     <PUSH -3>
1628                     <PUSH (TP*)>
1629                     <CALL '\1aOCEMIT 5>
1630                     <FRAME '\1aOCEMIT>
1631                     <PUSH 'MOVEI>
1632                     <PUSH 'O*>
1633                     <PUSH 2>
1634                     <CALL '\1aOCEMIT 3>
1635                     <FRAME '\1aOCEMIT>
1636                     <PUSH 'ADDM>
1637                     <PUSH 'O*>
1638                     <PUSH -1>
1639                     <PUSH (TP*)>
1640                     <CALL '\1aOCEMIT 4>
1641                     <FRAME '\1aOCEMIT>
1642                     <PUSH 'ADDM>
1643                     <PUSH 'O*>
1644                     <PUSH -3>
1645                     <PUSH (TP*)>
1646                     <CALL '\1aOCEMIT 4>
1647                     <FRAME '\1aOCEMIT>
1648                     <PUSH 'JRST>
1649                     <FRAME '\1aXJUMP>
1650                     <PUSH LOOP-LAB17>
1651                     <DEAD LOOP-LAB17>
1652                     <CALL '\1aXJUMP 1 = STACK>
1653                     <CALL '\1aOCEMIT 2>
1654                     <FRAME '\1aLABEL>
1655                     <PUSH DONE-LAB20>
1656                     <DEAD DONE-LAB20>
1657                     <CALL '\1aLABEL 1>
1658                     <FRAME '\1aOCEMIT>
1659                     <PUSH 'MOVE>
1660                     <PUSH 'A2*>
1661                     <PUSH -1>
1662                     <PUSH (TP*)>
1663                     <CALL '\1aOCEMIT 4>
1664                     <FRAME '\1aOCEMIT>
1665                     <PUSH 'MOVE>
1666                     <PUSH 'A1*>
1667                     <PUSH -2>
1668                     <PUSH (TP*)>
1669                     <CALL '\1aOCEMIT 4>
1670                     <FRAME '\1aOCEMIT>
1671                     <PUSH 'SUBI>
1672                     <PUSH 'TP*>
1673                     <PUSH 4>
1674                     <CALL '\1aOCEMIT 3>
1675                     <GVAL 'WINNING-VICTIM = TEMP22>
1676                     <TYPE? TEMP22 <TYPE-CODE FALSE> + PHRASE126>
1677                     <DEAD TEMP22>
1678                     <GVAL 'STACK-DEPTH = TEMP22>
1679                     <SUB TEMP22 4 = TEMP22 (TYPE FIX)>
1680                     <SETG 'STACK-DEPTH TEMP22>
1681                     <DEAD TEMP22>
1682 PHRASE126
1683                     <FRAME '\1aLABEL>
1684                     <PUSH M-LAB21>
1685                     <DEAD M-LAB21>
1686                     <CALL '\1aLABEL 1>
1687                     <FRAME '\1aOCEMIT>
1688                     <PUSH 'MOVE>
1689                     <PUSH 'A2*>
1690                     <PUSH 1>
1691                     <PUSH (A2*)>
1692                     <CALL '\1aOCEMIT 4>
1693                     <FRAME '\1aOCEMIT>
1694                     <PUSH 'HRRZ>
1695                     <PUSH 'O1*>
1696                     <PUSH (A2*)>
1697                     <CALL '\1aOCEMIT 3>
1698                     <FRAME '\1aOCEMIT>
1699                     <PUSH 'ADD>
1700                     <PUSH 'O1*>
1701                     <PUSH 'A1*>
1702                     <CALL '\1aOCEMIT 3>
1703                     <FRAME '\1aOCEMIT>
1704                     <PUSH 'SUB>
1705                     <PUSH 'A2*>
1706                     <PUSH 'O1*>
1707                     <CALL '\1aOCEMIT 3>
1708                     <EQUAL? RES11 'STACK - PHRASE133>
1709                     <FRAME '\1aOCEMIT>
1710                     <PUSH 'PUSH>
1711                     <PUSH 'TP*>
1712                     <SET ALLOCADDR13 2 (TYPE FIX)>
1713                     <SFRAME 'OBJ-TYP>
1714                     <PUSH VAR6>
1715                     <DEAD VAR6>
1716                     <SCALL '\1aOBJ-TYP 1 = TEMP22 + TAG134 TEMP35>
1717                     <LOOP (TEMP22 TYPE VALUE LENGTH) (ALLOCADDR13 VALUE)>
1718 TAG136
1719                     <INTGO>
1720                     <EMPTY? TEMP22 + TAG134>
1721                     <NTH1 TEMP22 = STACK>
1722                     <REST1 TEMP22 = TEMP22>
1723                     <ADD ALLOCADDR13 1 = ALLOCADDR13 (TYPE FIX)>
1724                     <JUMP + TAG136>
1725 TAG134
1726                     <DEAD TEMP22>
1727                     <CALL '\1aOCEMIT ALLOCADDR13>
1728                     <DEAD ALLOCADDR13>
1729                     <FRAME '\1aOCEMIT>
1730                     <PUSH 'PUSH>
1731                     <PUSH 'TP*>
1732                     <PUSH 'A2*>
1733                     <CALL '\1aOCEMIT 3>
1734                     <GVAL 'WINNING-VICTIM = ALLOCADDR13>
1735                     <TYPE? ALLOCADDR13 <TYPE-CODE FALSE> + PHRASE141>
1736                     <GVAL 'STACK-DEPTH = TEMP22>
1737                     <ADD TEMP22 2 = TEMP22 (TYPE FIX)>
1738                     <SETG 'STACK-DEPTH TEMP22>
1739                     <RETURN TEMP22>
1740                     <DEAD TEMP22>
1741 PHRASE133
1742                     <FRAME '\1aOCEMIT>
1743                     <PUSH 'MOVE>
1744                     <PUSH 'A1*>
1745                     <SET TEMP143 2 (TYPE FIX)>
1746                     <SFRAME 'OBJ-TYP>
1747                     <PUSH VAR6>
1748                     <DEAD VAR6>
1749                     <SCALL '\1aOBJ-TYP 1 = TEMP22 + TAG142 TEMP143>
1750                     <LOOP (TEMP22 TYPE VALUE LENGTH) (TEMP143 VALUE)>
1751 TAG145
1752                     <INTGO>
1753                     <EMPTY? TEMP22 + TAG142>
1754                     <NTH1 TEMP22 = STACK>
1755                     <REST1 TEMP22 = TEMP22>
1756                     <ADD TEMP143 1 = TEMP143 (TYPE FIX)>
1757                     <JUMP + TAG145>
1758 TAG142
1759                     <DEAD TEMP22>
1760                     <CALL '\1aOCEMIT TEMP143>
1761                     <DEAD TEMP143>
1762                     <FRAME '\1aLOAD-AC>
1763                     <PUSH RES11>
1764                     <DEAD RES11>
1765                     <PUSH 'BOTH>
1766                     <PUSH 'T>
1767                     <PUSH 'T>
1768                     <FRAME '\1aGET-AC>
1769                     <PUSH 'A1*>
1770                     <CALL '\1aGET-AC 1 = STACK>
1771                     <CALL '\1aLOAD-AC 5 = ALLOCADDR13>
1772 PHRASE141
1773                     <RETURN ALLOCADDR13>
1774                     <DEAD ALLOCADDR13>
1775                     <END \1aCGC-VECTOR!-MIMOC>
1776
1777 #WORD *15302243332*
1778                     <GFCN \1aCGC-LIST!-MIMOC ("VALUE" ANY LIST) L5>
1779                     <TEMP VAR6 TEMP26 ALLOC-ATOM7:FORM END-ATOM8:FORM NEXT-ATOM9:FORM BOUNDS-ATOM10:FORM MARK-ATOM11:FORM LN12:FIX TEMP28 RES13 M-LAB16 DONE-LAB17 LOOP-LAB18 F-LAB19 NB-LAB20 MC-LAB21 F122 F223 F324 (UNDO-ABLE25 %<>) ENDADDR14 ALLOCADDR15>
1780                     <INTGO>
1781                     <NTHL L5 1 = VAR6>
1782                     <RESTL L5 1 = TEMP26 (TYPE LIST)>
1783                     <NTHL TEMP26 1 = ALLOC-ATOM7 (TYPE FORM)>
1784                     <DEAD TEMP26>
1785                     <RESTL L5 1 = TEMP26 (TYPE LIST)>
1786                     <RESTL TEMP26 1 = TEMP26 (TYPE LIST)>
1787                     <NTHL TEMP26 1 = END-ATOM8 (TYPE FORM)>
1788                     <DEAD TEMP26>
1789                     <RESTL L5 1 = TEMP26 (TYPE LIST)>
1790                     <RESTL TEMP26 1 = TEMP26 (TYPE LIST)>
1791                     <RESTL TEMP26 1 = TEMP26 (TYPE LIST)>
1792                     <NTHL TEMP26 1 = NEXT-ATOM9 (TYPE FORM)>
1793                     <DEAD TEMP26>
1794                     <NTHL L5 5 = BOUNDS-ATOM10 (TYPE FORM)>
1795                     <NTHL L5 6 = MARK-ATOM11 (TYPE FORM)>
1796                     <LENL L5 = LN12 (TYPE FIX)>
1797                     <SET TEMP26 LN12>
1798                     <SET TEMP28 L5>
1799                     <SUB TEMP26 1 = TEMP26 (TYPE FIX)>
1800                     <GRTR? TEMP26 0 - RESTL29 (TYPE FIX)>
1801                     <LOOP (TEMP28 VALUE) (TEMP26 VALUE)>
1802 RESTL27
1803                     <INTGO>
1804                     <RESTL TEMP28 1 = TEMP28 (TYPE LIST)>
1805                     <SUB TEMP26 1 = TEMP26 (TYPE FIX)>
1806                     <GRTR? TEMP26 0 + RESTL27 (TYPE FIX)>
1807 RESTL29
1808                     <DEAD TEMP26>
1809                     <NTHL TEMP28 1 = RES13>
1810                     <DEAD TEMP28>
1811                     <FRAME '\1aGENLBL>
1812                     <PUSH "M">
1813                     <CALL '\1aGENLBL 1 = M-LAB16>
1814                     <FRAME '\1aGENLBL>
1815                     <PUSH "D">
1816                     <CALL '\1aGENLBL 1 = DONE-LAB17>
1817                     <FRAME '\1aGENLBL>
1818                     <PUSH "LOOP">
1819                     <CALL '\1aGENLBL 1 = LOOP-LAB18>
1820                     <FRAME '\1aGENLBL>
1821                     <PUSH "F">
1822                     <CALL '\1aGENLBL 1 = F-LAB19>
1823                     <FRAME '\1aGENLBL>
1824                     <PUSH "NB">
1825                     <CALL '\1aGENLBL 1 = NB-LAB20>
1826                     <FRAME '\1aGENLBL>
1827                     <PUSH "MC">
1828                     <CALL '\1aGENLBL 1 = MC-LAB21>
1829                     <FRAME '\1aGENLBL>
1830                     <PUSH "?FRM">
1831                     <CALL '\1aGENLBL 1 = F122>
1832                     <FRAME '\1aGENLBL>
1833                     <PUSH "?FRM">
1834                     <CALL '\1aGENLBL 1 = F223>
1835                     <FRAME '\1aGENLBL>
1836                     <PUSH "?FRM">
1837                     <CALL '\1aGENLBL 1 = F324>
1838                     <VEQUAL? LN12 9 - PHRASE40 (TYPE FIX)>
1839                     <DEAD LN12>
1840                     <NTHL L5 7 = TEMP28>
1841                     <DEAD L5>
1842                     <TYPE? TEMP28 <TYPE-CODE FALSE> + PHRASE40>
1843                     <DEAD TEMP28>
1844                     <SET UNDO-ABLE25 'T (TYPE ATOM)>
1845 PHRASE40
1846                     <FRAME '\1aOBJ-VAL>
1847                     <RESTL END-ATOM8 1 = TEMP28 (TYPE LIST)>
1848                     <DEAD END-ATOM8>
1849                     <NTHL TEMP28 1 = TEMP28 (TYPE ATOM)>
1850                     <CHTYPE TEMP28 <TYPE-CODE XGLOC> = STACK>
1851                     <DEAD TEMP28>
1852                     <CALL '\1aOBJ-VAL 1 = ENDADDR14>
1853                     <FRAME '\1aOBJ-VAL>
1854                     <RESTL ALLOC-ATOM7 1 = TEMP28 (TYPE LIST)>
1855                     <DEAD ALLOC-ATOM7>
1856                     <NTHL TEMP28 1 = TEMP28 (TYPE ATOM)>
1857                     <CHTYPE TEMP28 <TYPE-CODE XGLOC> = STACK>
1858                     <DEAD TEMP28>
1859                     <CALL '\1aOBJ-VAL 1 = ALLOCADDR15>
1860                     <FRAME '\1aFLUSH-ACS>
1861                     <CALL '\1aFLUSH-ACS 0>
1862                     <FRAME '\1aOCEMIT>
1863                     <PUSH 'ADDI>
1864                     <PUSH 'TP*>
1865                     <PUSH 2>
1866                     <CALL '\1aOCEMIT 3>
1867                     <GVAL 'WINNING-VICTIM = TEMP28>
1868                     <TYPE? TEMP28 <TYPE-CODE FALSE> + PHRASE47>
1869                     <DEAD TEMP28>
1870                     <GVAL 'STACK-DEPTH = TEMP28>
1871                     <ADD TEMP28 2 = TEMP28 (TYPE FIX)>
1872                     <SETG 'STACK-DEPTH TEMP28>
1873                     <DEAD TEMP28>
1874 PHRASE47
1875                     <FRAME '\1aOCEMIT>
1876                     <PUSH 'MOVE>
1877                     <PUSH 'B1*>
1878                     <SET TEMP26 2 (TYPE FIX)>
1879                     <SFRAME 'OBJ-VAL>
1880                     <PUSH VAR6>
1881                     <SCALL '\1aOBJ-VAL 1 = TEMP28 + TAG48 TEMP26>
1882                     <LOOP (TEMP28 TYPE VALUE LENGTH) (TEMP26 VALUE)>
1883 TAG50
1884                     <INTGO>
1885                     <EMPTY? TEMP28 + TAG48>
1886                     <NTH1 TEMP28 = STACK>
1887                     <REST1 TEMP28 = TEMP28>
1888                     <ADD TEMP26 1 = TEMP26 (TYPE FIX)>
1889                     <JUMP + TAG50>
1890 TAG48
1891                     <DEAD TEMP28>
1892                     <CALL '\1aOCEMIT TEMP26>
1893                     <DEAD TEMP26>
1894                     <FRAME '\1aOCEMIT>
1895                     <PUSH 'SETZM>
1896                     <PUSH (TP*)>
1897                     <CALL '\1aOCEMIT 2>
1898                     <FRAME '\1aLABEL>
1899                     <PUSH LOOP-LAB18>
1900                     <CALL '\1aLABEL 1>
1901                     <FRAME '\1aOCEMIT>
1902                     <PUSH 'DMOVE>
1903                     <PUSH 'A1*>
1904                     <PUSH 1>
1905                     <PUSH (B1*)>
1906                     <CALL '\1aOCEMIT 4>
1907                     <FRAME '\1aOCEMIT>
1908                     <PUSH 'TLOE>
1909                     <PUSH 'A1*>
1910                     <PUSH 65536>
1911                     <CALL '\1aOCEMIT 3>
1912                     <FRAME '\1aOCEMIT>
1913                     <PUSH 'JRST>
1914                     <FRAME '\1aXJUMP>
1915                     <PUSH M-LAB16>
1916                     <CALL '\1aXJUMP 1 = STACK>
1917                     <CALL '\1aOCEMIT 2>
1918                     <FRAME '\1aOCEMIT>
1919                     <PUSH 'MOVEM>
1920                     <PUSH 'A1*>
1921                     <PUSH 1>
1922                     <PUSH (B1*)>
1923                     <CALL '\1aOCEMIT 4>
1924                     <FRAME '\1aOCEMIT>
1925                     <PUSH 'DMOVE>
1926                     <PUSH 'O1*>
1927                     <PUSH '@>
1928                     <SET TEMP28 3 (TYPE FIX)>
1929                     <SET TEMP26 ALLOCADDR15>
1930                     <LOOP (TEMP26 TYPE VALUE LENGTH) (TEMP28 VALUE)>
1931 TAG60
1932                     <INTGO>
1933                     <EMPTY? TEMP26 + TAG59>
1934                     <NTH1 TEMP26 = STACK>
1935                     <REST1 TEMP26 = TEMP26>
1936                     <ADD TEMP28 1 = TEMP28 (TYPE FIX)>
1937                     <JUMP + TAG60>
1938 TAG59
1939                     <DEAD TEMP26>
1940                     <CALL '\1aOCEMIT TEMP28>
1941                     <DEAD TEMP28>
1942                     <FRAME '\1aOCEMIT>
1943                     <PUSH 'MOVE>
1944                     <PUSH 'C2*>
1945                     <PUSH 'O2*>
1946                     <CALL '\1aOCEMIT 3>
1947                     <FRAME '\1aOCEMIT>
1948                     <PUSH 'ADDI>
1949                     <PUSH 'O2*>
1950                     <PUSH 3>
1951                     <CALL '\1aOCEMIT 3>
1952                     <FRAME '\1aOCEMIT>
1953                     <PUSH 'MOVE>
1954                     <PUSH 'T*>
1955                     <SET TEMP26 2 (TYPE FIX)>
1956                     <LOOP (ENDADDR14 TYPE VALUE LENGTH) (TEMP26 VALUE)>
1957 TAG65
1958                     <INTGO>
1959                     <EMPTY? ENDADDR14 + TAG64>
1960                     <NTH1 ENDADDR14 = STACK>
1961                     <REST1 ENDADDR14 = ENDADDR14>
1962                     <ADD TEMP26 1 = TEMP26 (TYPE FIX)>
1963                     <JUMP + TAG65>
1964 TAG64
1965                     <DEAD ENDADDR14>
1966                     <CALL '\1aOCEMIT TEMP26>
1967                     <DEAD TEMP26>
1968                     <FRAME '\1aOCEMIT>
1969                     <PUSH 'CAMG>
1970                     <PUSH 'O2*>
1971                     <PUSH 1>
1972                     <PUSH (T*)>
1973                     <CALL '\1aOCEMIT 4>
1974                     <FRAME '\1aOCEMIT>
1975                     <PUSH 'JRST>
1976                     <FRAME '\1aXJUMP>
1977                     <PUSH F-LAB19>
1978                     <CALL '\1aXJUMP 1 = STACK>
1979                     <CALL '\1aOCEMIT 2>
1980                     <FRAME '\1aOCEMIT>
1981                     <PUSH 'MOVEM>
1982                     <PUSH 'B1*>
1983                     <PUSH -1>
1984                     <PUSH (TP*)>
1985                     <CALL '\1aOCEMIT 4>
1986                     <FRAME '\1aFRAME!-MIMOC>
1987                     <RESTL NEXT-ATOM9 1 = TEMP26 (TYPE LIST)>
1988                     <NTHL TEMP26 1 = TEMP26 (TYPE ATOM)>
1989                     <CONS TEMP26 () = TEMP26>
1990                     <CONS F122 TEMP26 = STACK>
1991                     <DEAD TEMP26>
1992                     <CALL '\1aFRAME!-MIMOC 1>
1993                     <FRAME '\1aOCEMIT>
1994                     <PUSH 'PUSH>
1995                     <PUSH 'TP*>
1996                     <SET ENDADDR14 2 (TYPE FIX)>
1997                     <SFRAME 'TYPE-WORD>
1998                     <PUSH 'FIX>
1999                     <SCALL '\1aTYPE-WORD 1 = TEMP26 + TAG72 TEMP28>
2000                     <LOOP (TEMP26 TYPE VALUE LENGTH) (ENDADDR14 VALUE)>
2001 TAG74
2002                     <INTGO>
2003                     <EMPTY? TEMP26 + TAG72>
2004                     <NTH1 TEMP26 = STACK>
2005                     <REST1 TEMP26 = TEMP26>
2006                     <ADD ENDADDR14 1 = ENDADDR14 (TYPE FIX)>
2007                     <JUMP + TAG74>
2008 TAG72
2009                     <DEAD TEMP26>
2010                     <CALL '\1aOCEMIT ENDADDR14>
2011                     <DEAD ENDADDR14>
2012                     <FRAME '\1aOCEMIT>
2013                     <PUSH 'PUSH>
2014                     <PUSH 'TP*>
2015                     <SET TEMP26 2 (TYPE FIX)>
2016                     <SFRAME 'OBJ-VAL>
2017                     <PUSH 3>
2018                     <SCALL '\1aOBJ-VAL 1 = ENDADDR14 + TAG76 TEMP26>
2019                     <LOOP (ENDADDR14 TYPE VALUE LENGTH) (TEMP26 VALUE)>
2020 TAG78
2021                     <INTGO>
2022                     <EMPTY? ENDADDR14 + TAG76>
2023                     <NTH1 ENDADDR14 = STACK>
2024                     <REST1 ENDADDR14 = ENDADDR14>
2025                     <ADD TEMP26 1 = TEMP26 (TYPE FIX)>
2026                     <JUMP + TAG78>
2027 TAG76
2028                     <DEAD ENDADDR14>
2029                     <CALL '\1aOCEMIT TEMP26>
2030                     <DEAD TEMP26>
2031                     <GVAL 'WINNING-VICTIM = TEMP26>
2032                     <TYPE? TEMP26 <TYPE-CODE FALSE> + PHRASE81>
2033                     <DEAD TEMP26>
2034                     <GVAL 'STACK-DEPTH = TEMP26>
2035                     <ADD TEMP26 2 = TEMP26 (TYPE FIX)>
2036                     <SETG 'STACK-DEPTH TEMP26>
2037                     <DEAD TEMP26>
2038 PHRASE81
2039                     <FRAME '\1aCALL!-MIMOC>
2040                     <CONS F122 () = F122>
2041                     <CONS 1 F122 = F122>
2042                     <CONS NEXT-ATOM9 F122 = STACK>
2043                     <DEAD F122 NEXT-ATOM9>
2044                     <CALL '\1aCALL!-MIMOC 1>
2045                     <FRAME '\1aOCEMIT>
2046                     <PUSH 'DMOVE>
2047                     <PUSH 'O1*>
2048                     <PUSH '@>
2049                     <SET ENDADDR14 3 (TYPE FIX)>
2050                     <SET TEMP26 ALLOCADDR15>
2051                     <LOOP (TEMP26 TYPE VALUE LENGTH) (ENDADDR14 VALUE)>
2052 TAG84
2053                     <INTGO>
2054                     <EMPTY? TEMP26 + TAG83>
2055                     <NTH1 TEMP26 = STACK>
2056                     <REST1 TEMP26 = TEMP26>
2057                     <ADD ENDADDR14 1 = ENDADDR14 (TYPE FIX)>
2058                     <JUMP + TAG84>
2059 TAG83
2060                     <DEAD TEMP26>
2061                     <CALL '\1aOCEMIT ENDADDR14>
2062                     <DEAD ENDADDR14>
2063                     <FRAME '\1aOCEMIT>
2064                     <PUSH 'MOVE>
2065                     <PUSH 'C2*>
2066                     <PUSH 'O2*>
2067                     <CALL '\1aOCEMIT 3>
2068                     <FRAME '\1aOCEMIT>
2069                     <PUSH 'ADDI>
2070                     <PUSH 'O2*>
2071                     <PUSH 3>
2072                     <CALL '\1aOCEMIT 3>
2073                     <FRAME '\1aOCEMIT>
2074                     <PUSH 'MOVE>
2075                     <PUSH 'B1*>
2076                     <PUSH -1>
2077                     <PUSH (TP*)>
2078                     <CALL '\1aOCEMIT 4>
2079                     <FRAME '\1aOCEMIT>
2080                     <PUSH 'DMOVE>
2081                     <PUSH 'A1*>
2082                     <PUSH 1>
2083                     <PUSH (B1*)>
2084                     <CALL '\1aOCEMIT 4>
2085                     <FRAME '\1aLABEL>
2086                     <PUSH F-LAB19>
2087                     <DEAD F-LAB19>
2088                     <CALL '\1aLABEL 1>
2089                     <FRAME '\1aOCEMIT>
2090                     <PUSH 'DMOVEM>
2091                     <PUSH 'O1*>
2092                     <PUSH '@>
2093                     <SET TEMP26 3 (TYPE FIX)>
2094                     <LOOP (ALLOCADDR15 TYPE VALUE LENGTH) (TEMP26 VALUE)>
2095 TAG92
2096                     <INTGO>
2097                     <EMPTY? ALLOCADDR15 + TAG91>
2098                     <NTH1 ALLOCADDR15 = STACK>
2099                     <REST1 ALLOCADDR15 = ALLOCADDR15>
2100                     <ADD TEMP26 1 = TEMP26 (TYPE FIX)>
2101                     <JUMP + TAG92>
2102 TAG91
2103                     <DEAD ALLOCADDR15>
2104                     <CALL '\1aOCEMIT TEMP26>
2105                     <DEAD TEMP26>
2106                     <FRAME '\1aOCEMIT>
2107                     <PUSH 'SKIPE>
2108                     <PUSH 'O1*>
2109                     <PUSH (TP*)>
2110                     <CALL '\1aOCEMIT 3>
2111                     <FRAME '\1aOCEMIT>
2112                     <PUSH 'MOVEM>
2113                     <PUSH 'C2*>
2114                     <PUSH (O1*)>
2115                     <CALL '\1aOCEMIT 3>
2116                     <FRAME '\1aOCEMIT>
2117                     <PUSH 'MOVEM>
2118                     <PUSH 'C2*>
2119                     <PUSH (TP*)>
2120                     <CALL '\1aOCEMIT 3>
2121                     <FRAME '\1aOCEMIT>
2122                     <PUSH 'MOVE>
2123                     <PUSH 'C1*>
2124                     <PUSH (B1*)>
2125                     <CALL '\1aOCEMIT 3>
2126                     <FRAME '\1aOCEMIT>
2127                     <PUSH 'MOVEM>
2128                     <PUSH 'C2*>
2129                     <PUSH (B1*)>
2130                     <CALL '\1aOCEMIT 3>
2131                     <FRAME '\1aOCEMIT>
2132                     <PUSH 'MOVEM>
2133                     <PUSH 'C1*>
2134                     <PUSH (C2*)>
2135                     <CALL '\1aOCEMIT 3>
2136                     <FRAME '\1aOCEMIT>
2137                     <PUSH 'TLZ>
2138                     <PUSH 'A1*>
2139                     <PUSH 65536>
2140                     <CALL '\1aOCEMIT 3>
2141                     <FRAME '\1aOCEMIT>
2142                     <PUSH 'HLRZ>
2143                     <PUSH 'O*>
2144                     <PUSH 'A1*>
2145                     <CALL '\1aOCEMIT 3>
2146                     <FRAME '\1aOCEMIT>
2147                     <PUSH 'ANDI>
2148                     <PUSH 'O*>
2149                     <PUSH 7>
2150                     <CALL '\1aOCEMIT 3>
2151                     <FRAME '\1aOCEMIT>
2152                     <PUSH 'MOVEM>
2153                     <PUSH 'C1*>
2154                     <PUSH -1>
2155                     <PUSH (TP*)>
2156                     <CALL '\1aOCEMIT 4>
2157                     <FRAME '\1aOCEMIT>
2158                     <PUSH 'JUMPE>
2159                     <PUSH 'O*>
2160                     <FRAME '\1aXJUMP>
2161                     <PUSH MC-LAB21>
2162                     <CALL '\1aXJUMP 1 = STACK>
2163                     <CALL '\1aOCEMIT 3>
2164                     <FRAME '\1aFRAME!-MIMOC>
2165                     <RESTL MARK-ATOM11 1 = TEMP26 (TYPE LIST)>
2166                     <NTHL TEMP26 1 = TEMP26 (TYPE ATOM)>
2167                     <CONS TEMP26 () = TEMP26>
2168                     <CONS F223 TEMP26 = STACK>
2169                     <DEAD TEMP26>
2170                     <CALL '\1aFRAME!-MIMOC 1>
2171                     <FRAME '\1aOCEMIT>
2172                     <PUSH 'PUSH>
2173                     <PUSH 'TP*>
2174                     <PUSH 'A1*>
2175                     <CALL '\1aOCEMIT 3>
2176                     <FRAME '\1aOCEMIT>
2177                     <PUSH 'PUSH>
2178                     <PUSH 'TP*>
2179                     <PUSH 'A2*>
2180                     <CALL '\1aOCEMIT 3>
2181                     <GVAL 'WINNING-VICTIM = TEMP26>
2182                     <TYPE? TEMP26 <TYPE-CODE FALSE> + PHRASE110>
2183                     <DEAD TEMP26>
2184                     <GVAL 'STACK-DEPTH = TEMP26>
2185                     <ADD TEMP26 2 = TEMP26 (TYPE FIX)>
2186                     <SETG 'STACK-DEPTH TEMP26>
2187                     <DEAD TEMP26>
2188 PHRASE110
2189                     <FRAME '\1aCALL!-MIMOC>
2190                     <CONS F223 () = F223>
2191                     <CONS 1 F223 = F223>
2192                     <CONS MARK-ATOM11 F223 = STACK>
2193                     <DEAD F223 MARK-ATOM11>
2194                     <CALL '\1aCALL!-MIMOC 1>
2195                     <FRAME '\1aOCEMIT>
2196                     <PUSH 'MOVE>
2197                     <PUSH 'C1*>
2198                     <PUSH -1>
2199                     <PUSH (TP*)>
2200                     <CALL '\1aOCEMIT 4>
2201                     <FRAME '\1aLABEL>
2202                     <PUSH MC-LAB21>
2203                     <DEAD MC-LAB21>
2204                     <CALL '\1aLABEL 1>
2205                     <FRAME '\1aOCEMIT>
2206                     <PUSH 'MOVE>
2207                     <PUSH 'O1*>
2208                     <PUSH (TP*)>
2209                     <CALL '\1aOCEMIT 3>
2210                     <VEQUAL? UNDO-ABLE25 0 + PHRASE116>
2211                     <DEAD UNDO-ABLE25>
2212                     <FRAME '\1aOCEMIT>
2213                     <PUSH 'MOVEM>
2214                     <PUSH 'C1*>
2215                     <PUSH 1>
2216                     <PUSH (O1*)>
2217                     <CALL '\1aOCEMIT 4>
2218                     <FRAME '\1aOCEMIT>
2219                     <PUSH 'MOVEM>
2220                     <PUSH 'A2*>
2221                     <PUSH 2>
2222                     <PUSH (O1*)>
2223                     <CALL '\1aOCEMIT 4>
2224                     <JUMP + PHRASE119>
2225 PHRASE116
2226                     <FRAME '\1aOCEMIT>
2227                     <PUSH 'DMOVEM>
2228                     <PUSH 'A1*>
2229                     <PUSH 1>
2230                     <PUSH (O1*)>
2231                     <CALL '\1aOCEMIT 4>
2232 PHRASE119
2233                     <FRAME '\1aOCEMIT>
2234                     <PUSH 'JUMPE>
2235                     <PUSH 'C1*>
2236                     <FRAME '\1aXJUMP>
2237                     <PUSH DONE-LAB17>
2238                     <CALL '\1aXJUMP 1 = STACK>
2239                     <CALL '\1aOCEMIT 3>
2240                     <FRAME '\1aFRAME!-MIMOC>
2241                     <RESTL BOUNDS-ATOM10 1 = TEMP26 (TYPE LIST)>
2242                     <NTHL TEMP26 1 = TEMP26 (TYPE ATOM)>
2243                     <CONS TEMP26 () = TEMP26>
2244                     <CONS F324 TEMP26 = STACK>
2245                     <DEAD TEMP26>
2246                     <CALL '\1aFRAME!-MIMOC 1>
2247                     <FRAME '\1aOCEMIT>
2248                     <PUSH 'PUSH>
2249                     <PUSH 'TP*>
2250                     <SET ALLOCADDR15 2 (TYPE FIX)>
2251                     <SFRAME 'TYPE-WORD>
2252                     <PUSH 'LIST>
2253                     <SCALL '\1aTYPE-WORD 1 = TEMP26 + TAG124 TEMP28>
2254                     <LOOP (TEMP26 TYPE VALUE LENGTH) (ALLOCADDR15 VALUE)>
2255 TAG126
2256                     <INTGO>
2257                     <EMPTY? TEMP26 + TAG124>
2258                     <NTH1 TEMP26 = STACK>
2259                     <REST1 TEMP26 = TEMP26>
2260                     <ADD ALLOCADDR15 1 = ALLOCADDR15 (TYPE FIX)>
2261                     <JUMP + TAG126>
2262 TAG124
2263                     <DEAD TEMP26>
2264                     <CALL '\1aOCEMIT ALLOCADDR15>
2265                     <DEAD ALLOCADDR15>
2266                     <FRAME '\1aOCEMIT>
2267                     <PUSH 'PUSH>
2268                     <PUSH 'TP*>
2269                     <PUSH 'C1*>
2270                     <CALL '\1aOCEMIT 3>
2271                     <GVAL 'WINNING-VICTIM = ALLOCADDR15>
2272                     <TYPE? ALLOCADDR15 <TYPE-CODE FALSE> + PHRASE130>
2273                     <DEAD ALLOCADDR15>
2274                     <GVAL 'STACK-DEPTH = ALLOCADDR15>
2275                     <ADD ALLOCADDR15 2 = ALLOCADDR15 (TYPE FIX)>
2276                     <SETG 'STACK-DEPTH ALLOCADDR15>
2277                     <DEAD ALLOCADDR15>
2278 PHRASE130
2279                     <FRAME '\1aCALL!-MIMOC>
2280                     <CONS F324 () = F324>
2281                     <CONS 1 F324 = F324>
2282                     <CONS BOUNDS-ATOM10 F324 = STACK>
2283                     <DEAD F324 BOUNDS-ATOM10>
2284                     <CALL '\1aCALL!-MIMOC 1>
2285                     <FRAME '\1aOCEMIT>
2286                     <PUSH 'MOVE>
2287                     <PUSH 'B1*>
2288                     <PUSH -1>
2289                     <PUSH (TP*)>
2290                     <CALL '\1aOCEMIT 4>
2291                     <FRAME '\1aOCEMIT>
2292                     <PUSH 'JUMPN>
2293                     <PUSH 'A2*>
2294                     <FRAME '\1aXJUMP>
2295                     <PUSH LOOP-LAB18>
2296                     <DEAD LOOP-LAB18>
2297                     <CALL '\1aXJUMP 1 = STACK>
2298                     <CALL '\1aOCEMIT 3>
2299                     <FRAME '\1aOCEMIT>
2300                     <PUSH 'JRST>
2301                     <FRAME '\1aXJUMP>
2302                     <PUSH DONE-LAB17>
2303                     <CALL '\1aXJUMP 1 = STACK>
2304                     <CALL '\1aOCEMIT 2>
2305                     <FRAME '\1aLABEL>
2306                     <PUSH M-LAB16>
2307                     <DEAD M-LAB16>
2308                     <CALL '\1aLABEL 1>
2309                     <FRAME '\1aOCEMIT>
2310                     <PUSH 'SKIPN>
2311                     <PUSH 'C1*>
2312                     <PUSH (TP*)>
2313                     <CALL '\1aOCEMIT 3>
2314                     <FRAME '\1aOCEMIT>
2315                     <PUSH 'JRST>
2316                     <FRAME '\1aXJUMP>
2317                     <PUSH DONE-LAB17>
2318                     <CALL '\1aXJUMP 1 = STACK>
2319                     <CALL '\1aOCEMIT 2>
2320                     <FRAME '\1aOCEMIT>
2321                     <PUSH 'MOVE>
2322                     <PUSH 'O*>
2323                     <PUSH (B1*)>
2324                     <CALL '\1aOCEMIT 3>
2325                     <FRAME '\1aOCEMIT>
2326                     <PUSH 'MOVEM>
2327                     <PUSH 'O*>
2328                     <PUSH (C1*)>
2329                     <CALL '\1aOCEMIT 3>
2330                     <FRAME '\1aLABEL>
2331                     <PUSH DONE-LAB17>
2332                     <DEAD DONE-LAB17>
2333                     <CALL '\1aLABEL 1>
2334                     <FRAME '\1aOCEMIT>
2335                     <PUSH 'SUBI>
2336                     <PUSH 'TP*>
2337                     <PUSH 2>
2338                     <CALL '\1aOCEMIT 3>
2339                     <GVAL 'WINNING-VICTIM = ALLOCADDR15>
2340                     <TYPE? ALLOCADDR15 <TYPE-CODE FALSE> + PHRASE146>
2341                     <DEAD ALLOCADDR15>
2342                     <GVAL 'STACK-DEPTH = ALLOCADDR15>
2343                     <SUB ALLOCADDR15 2 = ALLOCADDR15 (TYPE FIX)>
2344                     <SETG 'STACK-DEPTH ALLOCADDR15>
2345                     <DEAD ALLOCADDR15>
2346 PHRASE146
2347                     <FRAME '\1aOCEMIT>
2348                     <PUSH 'DMOVE>
2349                     <PUSH 'A1*>
2350                     <SET TEMP26 2 (TYPE FIX)>
2351                     <SFRAME 'OBJ-TYP>
2352                     <PUSH VAR6>
2353                     <DEAD VAR6>
2354                     <SCALL '\1aOBJ-TYP 1 = ALLOCADDR15 + TAG147 TEMP26>
2355                     <LOOP (ALLOCADDR15 TYPE VALUE LENGTH) (TEMP26 VALUE)>
2356 TAG149
2357                     <INTGO>
2358                     <EMPTY? ALLOCADDR15 + TAG147>
2359                     <NTH1 ALLOCADDR15 = STACK>
2360                     <REST1 ALLOCADDR15 = ALLOCADDR15>
2361                     <ADD TEMP26 1 = TEMP26 (TYPE FIX)>
2362                     <JUMP + TAG149>
2363 TAG147
2364                     <DEAD ALLOCADDR15>
2365                     <CALL '\1aOCEMIT TEMP26>
2366                     <DEAD TEMP26>
2367                     <FRAME '\1aOCEMIT>
2368                     <PUSH 'MOVE>
2369                     <PUSH 'A2*>
2370                     <PUSH (A2*)>
2371                     <CALL '\1aOCEMIT 3>
2372                     <EQUAL? RES13 'STACK - PHRASE153>
2373                     <FRAME '\1aOCEMIT>
2374                     <PUSH 'PUSH>
2375                     <PUSH 'TP*>
2376                     <PUSH 'A1*>
2377                     <CALL '\1aOCEMIT 3>
2378                     <FRAME '\1aOCEMIT>
2379                     <PUSH 'PUSH>
2380                     <PUSH 'TP*>
2381                     <PUSH 'A2*>
2382                     <CALL '\1aOCEMIT 3>
2383                     <GVAL 'WINNING-VICTIM = TEMP26>
2384                     <TYPE? TEMP26 <TYPE-CODE FALSE> + PHRASE158>
2385                     <GVAL 'STACK-DEPTH = ALLOCADDR15>
2386                     <ADD ALLOCADDR15 2 = ALLOCADDR15 (TYPE FIX)>
2387                     <SETG 'STACK-DEPTH ALLOCADDR15>
2388                     <RETURN ALLOCADDR15>
2389                     <DEAD ALLOCADDR15>
2390 PHRASE153
2391                     <FRAME '\1aLOAD-AC>
2392                     <PUSH RES13>
2393                     <DEAD RES13>
2394                     <PUSH 'BOTH>
2395                     <PUSH 'T>
2396                     <PUSH 'T>
2397                     <FRAME '\1aGET-AC>
2398                     <PUSH 'A1*>
2399                     <CALL '\1aGET-AC 1 = STACK>
2400                     <CALL '\1aLOAD-AC 5 = TEMP26>
2401 PHRASE158
2402                     <RETURN TEMP26>
2403                     <DEAD TEMP26>
2404                     <END \1aCGC-LIST!-MIMOC>