mim/development/mim/20c/movers.mima

   1
   2 #WORD *21064524407*
   3 <GFCN \1aMOVE-STRING!-MIMOC ("VALUE" ANY LIST) L5>
   4                     <TEMP FROM6 TEMP10 TO7 CNT8 NO-OVERLAP?9>
   5                     <INTGO>
   6                     <NTHL L5 1 = FROM6>
   7                     <RESTL L5 1 = TEMP10 (TYPE LIST)>
   8                     <NTHL TEMP10 1 = TO7>
   9                     <DEAD TEMP10>
  10                     <RESTL L5 1 = TEMP10 (TYPE LIST)>
  11                     <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
  12                     <NTHL TEMP10 1 = CNT8>
  13                     <DEAD TEMP10>
  14                     <FRAME '\1aEXTRAMEM>
  15                     <PUSH 'NO-OVERLAP>
  16                     <PUSH L5>
  17                     <DEAD L5>
  18                     <CALL '\1aEXTRAMEM 2 = NO-OVERLAP?9>
  19                     <TYPE? NO-OVERLAP?9 <TYPE-CODE FALSE> + PHRASE13>
  20                     <RESTL NO-OVERLAP?9 1 = TEMP10 (TYPE LIST)>
  21                     <DEAD NO-OVERLAP?9>
  22                     <NTHL TEMP10 1 = NO-OVERLAP?9>
  23                     <DEAD TEMP10>
  24 PHRASE13
  25                     <FRAME '\1aWILL-DIE?>
  26                     <PUSH FROM6>
  27                     <CALL '\1aWILL-DIE? 1 = TEMP10>
  28                     <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE15>
  29                     <DEAD TEMP10>
  30                     <FRAME '\1aDEAD!-MIMOC>
  31                     <CONS FROM6 () = STACK>
  32                     <PUSH 'T>
  33                     <CALL '\1aDEAD!-MIMOC 2>
  34 PHRASE15
  35                     <FRAME '\1aWILL-DIE?>
  36                     <PUSH TO7>
  37                     <CALL '\1aWILL-DIE? 1 = TEMP10>
  38                     <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE19>
  39                     <DEAD TEMP10>
  40                     <FRAME '\1aDEAD!-MIMOC>
  41                     <CONS TO7 () = STACK>
  42                     <PUSH 'T>
  43                     <CALL '\1aDEAD!-MIMOC 2>
  44 PHRASE19
  45                     <FRAME '\1aWILL-DIE?>
  46                     <PUSH CNT8>
  47                     <CALL '\1aWILL-DIE? 1 = TEMP10>
  48                     <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE23>
  49                     <DEAD TEMP10>
  50                     <FRAME '\1aDEAD!-MIMOC>
  51                     <CONS CNT8 () = STACK>
  52                     <PUSH 'T>
  53                     <CALL '\1aDEAD!-MIMOC 2>
  54 PHRASE23
  55                     <FRAME '\1aUPDATE-ACS>
  56                     <CALL '\1aUPDATE-ACS 0>
  57                     <TYPE? NO-OVERLAP?9 <TYPE-CODE FALSE> + PHRASE28>
  58                     <DEAD NO-OVERLAP?9>
  59                     <FRAME '\1aGET-INTO-ACS>
  60                     <PUSH CNT8>
  61                     <DEAD CNT8>
  62                     <PUSH 'VALUE>
  63                     <PUSH 'A1*>
  64                     <PUSH FROM6>
  65                     <DEAD FROM6>
  66                     <PUSH 'VALUE>
  67                     <PUSH 'A2*>
  68                     <PUSH TO7>
  69                     <DEAD TO7>
  70                     <PUSH 'VALUE>
  71                     <PUSH 'C1*>
  72                     <CALL '\1aGET-INTO-ACS 9>
  73                     <FRAME '\1aOCEMIT>
  74                     <PUSH 'SETZB>
  75                     <PUSH 'B1*>
  76                     <PUSH 'C2*>
  77                     <CALL '\1aOCEMIT 3>
  78                     <FRAME '\1aOCEMIT>
  79                     <PUSH 'MOVEI>
  80                     <PUSH 'B2*>
  81                     <PUSH (A1*)>
  82                     <CALL '\1aOCEMIT 3>
  83                     <FRAME '\1aOCEMIT>
  84                     <PUSH 'XBLT>
  85                     <PUSH 'A1*>
  86                     <SET FROM6 2 (TYPE FIX)>
  87                     <SFRAME 'OBJ-VAL>
  88                     <PUSH 1879048192>
  89                     <SCALL '\1aOBJ-VAL 1 = TEMP10 + TAG32 FROM6>
  90                     <LOOP (TEMP10 TYPE VALUE LENGTH) (FROM6 VALUE)>
  91 TAG35
  92                     <INTGO>
  93                     <EMPTY? TEMP10 + TAG32>
  94                     <NTH1 TEMP10 = STACK>
  95                     <REST1 TEMP10 = TEMP10>
  96                     <ADD FROM6 1 = FROM6 (TYPE FIX)>
  97                     <JUMP + TAG35>
  98 TAG32
  99                     <CALL '\1aOCEMIT FROM6>
 100                     <DEAD FROM6>
 101                     <FRAME '\1aOCEMIT>
 102                     <PUSH 'JRST>
 103                     <FRAME '\1aXJUMP>
 104                     <PUSH 'IOERR>
 105                     <CALL '\1aXJUMP 1 = STACK>
 106                     <CALL '\1aOCEMIT 2>
 107                     <FRAME '\1aFLUSH-ACS>
 108                     <CALL '\1aFLUSH-ACS 0 = FROM6>
 109                     <RETURN FROM6>
 110                     <DEAD FROM6>
 111 PHRASE28
 112                     <FRAME '\1aGET-INTO-ACS>
 113                     <PUSH FROM6>
 114                     <DEAD FROM6>
 115                     <PUSH 'VALUE>
 116                     <PUSH 'O1*>
 117                     <PUSH TO7>
 118                     <DEAD TO7>
 119                     <PUSH 'VALUE>
 120                     <PUSH 'O2*>
 121                     <PUSH CNT8>
 122                     <DEAD CNT8>
 123                     <PUSH 'VALUE>
 124                     <PUSH 'O*>
 125                     <CALL '\1aGET-INTO-ACS 9>
 126                     <FRAME '\1aFLUSH-ACS>
 127                     <CALL '\1aFLUSH-ACS 0>
 128                     <FRAME '\1aPUSHJ>
 129                     <PUSH 'MOVSTR>
 130                     <CALL '\1aPUSHJ 1 = FROM6>
 131                     <RETURN FROM6>
 132                     <DEAD FROM6>
 133                     <END \1aMOVE-STRING!-MIMOC>
 134 #WORD *5123055726*
 135                     <GFCN \1aMOVE-WORDS!-MIMOC ("VALUE" ANY LIST) L4>
 136                     <TEMP FROM5 TEMP11 TO6 CNT7 TY8 TG9 DIRECTION10>
 137                     <INTGO>
 138                     <NTHL L4 1 = FROM5>
 139                     <RESTL L4 1 = TEMP11 (TYPE LIST)>
 140                     <NTHL TEMP11 1 = TO6>
 141                     <DEAD TEMP11>
 142                     <RESTL L4 1 = TEMP11 (TYPE LIST)>
 143                     <RESTL TEMP11 1 = TEMP11 (TYPE LIST)>
 144                     <NTHL TEMP11 1 = CNT7>
 145                     <DEAD TEMP11>
 146                     <FRAME '\1aEXTRAMEM>
 147                     <PUSH 'TYPE>
 148                     <PUSH L4>
 149                     <CALL '\1aEXTRAMEM 2 = TY8>
 150                     <FRAME '\1aGENLBL>
 151                     <PUSH "BLT">
 152                     <CALL '\1aGENLBL 1 = TG9>
 153                     <FRAME '\1aEXTRAMEM>
 154                     <PUSH 'DIRECTION>
 155                     <PUSH L4>
 156                     <DEAD L4>
 157                     <CALL '\1aEXTRAMEM 2 = DIRECTION10>
 158                     <TYPE? TY8 <TYPE-CODE FALSE> + PHRASE16>
 159                     <RESTL TY8 1 = TEMP11 (TYPE LIST)>
 160                     <DEAD TY8>
 161                     <NTHL TEMP11 1 = TY8>
 162                     <DEAD TEMP11>
 163 PHRASE16
 164                     <TYPE? DIRECTION10 <TYPE-CODE FALSE> + PHRASE18>
 165                     <RESTL DIRECTION10 1 = TEMP11 (TYPE LIST)>
 166                     <DEAD DIRECTION10>
 167                     <NTHL TEMP11 1 = DIRECTION10>
 168                     <DEAD TEMP11>
 169 PHRASE18
 170                     <TYPE? CNT7 <TYPE-CODE FIX> - PHRASE20>
 171                     <EQUAL? TY8 'VECTOR - PHRASE20>
 172                     <LSH CNT7 1 = CNT7 (TYPE FIX)>
 173 PHRASE20
 174                     <FRAME '\1aGET-INTO-ACS>
 175                     <PUSH FROM5>
 176                     <DEAD FROM5>
 177                     <PUSH 'VALUE>
 178                     <PUSH 'O1*>
 179                     <PUSH TO6>
 180                     <DEAD TO6>
 181                     <PUSH 'VALUE>
 182                     <PUSH 'O2*>
 183                     <CALL '\1aGET-INTO-ACS 6>
 184                     <TYPE? DIRECTION10 <TYPE-CODE FALSE> - PHRASE24 (DEAD-JUMP TG9) (DEAD-FALL DIRECTION10)>
 185                     <FRAME '\1aGET-INTO-ACS>
 186                     <PUSH CNT7>
 187                     <PUSH 'VALUE>
 188                     <PUSH 'T*>
 189                     <CALL '\1aGET-INTO-ACS 3>
 190                     <TYPE? CNT7 <TYPE-CODE FIX> + PHRASE27 (DEAD-JUMP TY8)>
 191                     <DEAD CNT7>
 192                     <EQUAL? TY8 'VECTOR - PHRASE27>
 193                     <DEAD TY8>
 194                     <FRAME '\1aOCEMIT>
 195                     <PUSH 'ASH>
 196                     <PUSH 'T*>
 197                     <PUSH 1>
 198                     <CALL '\1aOCEMIT 3>
 199 PHRASE27
 200                     <FRAME '\1aOCEMIT>
 201                     <PUSH 'CAMG>
 202                     <PUSH 'O2*>
 203                     <PUSH 'O1*>
 204                     <CALL '\1aOCEMIT 3>
 205                     <FRAME '\1aOCEMIT>
 206                     <PUSH 'JRST>
 207                     <FRAME '\1aXJUMP>
 208                     <PUSH TG9>
 209                     <CALL '\1aXJUMP 1 = STACK>
 210                     <CALL '\1aOCEMIT 2>
 211                     <FRAME '\1aOCEMIT>
 212                     <PUSH 'ADD>
 213                     <PUSH 'O1*>
 214                     <PUSH 'T*>
 215                     <CALL '\1aOCEMIT 3>
 216                     <FRAME '\1aOCEMIT>
 217                     <PUSH 'ADD>
 218                     <PUSH 'O2*>
 219                     <PUSH 'T*>
 220                     <CALL '\1aOCEMIT 3>
 221                     <FRAME '\1aOCEMIT>
 222                     <PUSH 'MOVNS>
 223                     <PUSH 'O*>
 224                     <PUSH 'T*>
 225                     <CALL '\1aOCEMIT 3>
 226                     <FRAME '\1aLABEL>
 227                     <PUSH TG9>
 228                     <DEAD TG9>
 229                     <CALL '\1aLABEL 1>
 230                     <JUMP + PHRASE57>
 231 PHRASE24
 232                     <EQUAL? DIRECTION10 'BACKWARD - PHRASE37>
 233                     <DEAD DIRECTION10>
 234                     <TYPE? CNT7 <TYPE-CODE FIX> - PHRASE39 (DEAD-FALL TY8)>
 235                     <FRAME '\1aOCEMIT>
 236                     <PUSH 'MOVNI>
 237                     <PUSH 'T*>
 238                     <PUSH CNT7>
 239                     <CALL '\1aOCEMIT 3>
 240                     <FRAME '\1aOCEMIT>
 241                     <PUSH 'ADDI>
 242                     <PUSH 'O1*>
 243                     <PUSH CNT7>
 244                     <CALL '\1aOCEMIT 3>
 245                     <FRAME '\1aOCEMIT>
 246                     <PUSH 'ADDI>
 247                     <PUSH 'O2*>
 248                     <PUSH CNT7>
 249                     <DEAD CNT7>
 250                     <JUMP + PEEP64>
 251 PHRASE39
 252                     <FRAME '\1aOCEMIT>
 253                     <PUSH 'MOVN>
 254                     <PUSH 'T*>
 255                     <SET FROM5 2 (TYPE FIX)>
 256                     <SFRAME 'OBJ-VAL>
 257                     <PUSH CNT7>
 258                     <DEAD CNT7>
 259                     <SCALL '\1aOBJ-VAL 1 = TEMP11 + TAG44 FROM5 (DEAD-JUMP TEMP11)>
 260                     <LOOP (TEMP11 TYPE VALUE LENGTH) (FROM5 VALUE)>
 261 TAG47
 262                     <INTGO>
 263                     <EMPTY? TEMP11 + TAG44 (DEAD-JUMP TEMP11)>
 264                     <NTH1 TEMP11 = STACK>
 265                     <REST1 TEMP11 = TEMP11>
 266                     <ADD FROM5 1 = FROM5 (TYPE FIX)>
 267                     <JUMP + TAG47>
 268 TAG44
 269                     <CALL '\1aOCEMIT FROM5>
 270                     <DEAD FROM5>
 271                     <EQUAL? TY8 'VECTOR - PHRASE50>
 272                     <DEAD TY8>
 273                     <FRAME '\1aOCEMIT>
 274                     <PUSH 'ASH>
 275                     <PUSH 'T*>
 276                     <PUSH 1>
 277                     <CALL '\1aOCEMIT 3>
 278 PHRASE50
 279                     <FRAME '\1aOCEMIT>
 280                     <PUSH 'SUB>
 281                     <PUSH 'O1*>
 282                     <PUSH 'T*>
 283                     <CALL '\1aOCEMIT 3>
 284                     <FRAME '\1aOCEMIT>
 285                     <PUSH 'SUB>
 286                     <PUSH 'O2*>
 287                     <PUSH 'T*>
 288                     <JUMP + PEEP64>
 289 PHRASE37
 290                     <FRAME '\1aGET-INTO-ACS>
 291                     <PUSH CNT7>
 292                     <PUSH 'VALUE>
 293                     <PUSH 'T*>
 294                     <CALL '\1aGET-INTO-ACS 3>
 295                     <TYPE? CNT7 <TYPE-CODE FIX> + PHRASE57 (DEAD-JUMP TY8)>
 296                     <DEAD CNT7>
 297                     <EQUAL? TY8 'VECTOR - PHRASE57>
 298                     <DEAD TY8>
 299                     <FRAME '\1aOCEMIT>
 300                     <PUSH 'ASH>
 301                     <PUSH 'T*>
 302                     <PUSH 1>
 303 PEEP64
 304                     <CALL '\1aOCEMIT 3>
 305 PHRASE57
 306                     <FRAME '\1aOCEMIT>
 307                     <PUSH 'XBLT>
 308                     <PUSH 'T*>
 309                     <SET TEMP11 2 (TYPE FIX)>
 310                     <SFRAME 'OBJ-VAL>
 311                     <PUSH 2147483648>
 312                     <SCALL '\1aOBJ-VAL 1 = FROM5 + TAG60 TEMP11 (DEAD-JUMP FROM5)>
 313                     <LOOP (FROM5 TYPE VALUE LENGTH) (TEMP11 VALUE)>
 314 TAG62
 315                     <INTGO>
 316                     <EMPTY? FROM5 + TAG60 (DEAD-JUMP FROM5)>
 317                     <NTH1 FROM5 = STACK>
 318                     <REST1 FROM5 = FROM5>
 319                     <ADD TEMP11 1 = TEMP11 (TYPE FIX)>
 320                     <JUMP + TAG62>
 321 TAG60
 322                     <CALL '\1aOCEMIT TEMP11 = TEMP11>
 323                     <RETURN TEMP11>
 324                     <DEAD TEMP11>
 325                     <END \1aMOVE-WORDS!-MIMOC>
 326
 327 #WORD *11704504741*
 328 <GFCN \1aSTRING-EQUAL?!-MIMOC ("VALUE" ANY LIST) L4>
 329                     <TEMP S1-5 TEMP10 S2-6 DIR7 LBL8 LBL2-9 TEMP39>
 330                     <INTGO>
 331                     <NTHL L4 1 = S1-5>
 332                     <RESTL L4 1 = TEMP10 (TYPE LIST)>
 333                     <NTHL TEMP10 1 = S2-6>
 334                     <DEAD TEMP10>
 335                     <RESTL L4 1 = TEMP10 (TYPE LIST)>
 336                     <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
 337                     <NTHL TEMP10 1 = DIR7>
 338                     <DEAD TEMP10>
 339                     <RESTL L4 1 = TEMP10 (TYPE LIST)>
 340                     <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
 341                     <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
 342                     <NTHL TEMP10 1 = LBL8>
 343                     <DEAD TEMP10>
 344                     <FRAME '\1aGENLBL>
 345                     <PUSH "SE">
 346                     <CALL '\1aGENLBL 1 = LBL2-9>
 347                     <TYPE? S2-6 <TYPE-CODE STRING> + BOOL14>
 348                     <FRAME '\1aIN-AC?>
 349                     <PUSH S2-6>
 350                     <PUSH 'VALUE>
 351                     <CALL '\1aIN-AC? 2 = TEMP10>
 352                     <EQUAL? TEMP10 'A2* + BOOL14>
 353                     <DEAD TEMP10>
 354                     <FRAME '\1aIN-AC?>
 355                     <PUSH S2-6>
 356                     <PUSH 'VALUE>
 357                     <CALL '\1aIN-AC? 2 = TEMP10>
 358                     <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE13>
 359                     <DEAD TEMP10>
 360                     <FRAME '\1aIN-AC?>
 361                     <PUSH S1-5>
 362                     <PUSH 'VALUE>
 363                     <CALL '\1aIN-AC? 2 = TEMP10>
 364                     <TYPE? TEMP10 <TYPE-CODE FALSE> - PHRASE13>
 365                     <DEAD TEMP10>
 366 BOOL14
 367                     <SET S1-5 S2-6>
 368                     <DEAD S2-6>
 369                     <NTHL L4 1 = S2-6>
 370                     <DEAD L4>
 371 PHRASE13
 372                     <TYPE? S1-5 <TYPE-CODE ATOM> - PHRASE20>
 373                     <FRAME '\1aWILL-DIE?>
 374                     <PUSH S1-5>
 375                     <CALL '\1aWILL-DIE? 1 = TEMP10>
 376                     <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE20>
 377                     <DEAD TEMP10>
 378                     <FRAME '\1aLAB-WILL-DIE>
 379                     <FRAME '\1aFIND-LABEL>
 380                     <PUSH LBL8>
 381                     <CALL '\1aFIND-LABEL 1 = STACK>
 382                     <PUSH S1-5>
 383                     <FRAME '\1a+>
 384                     <GVAL 'VISIT-COUNT = STACK>
 385                     <PUSH 1>
 386                     <CALL '\1a+ 2 = TEMP10>
 387                     <SETG 'VISIT-COUNT TEMP10>
 388                     <PUSH TEMP10>
 389                     <DEAD TEMP10>
 390                     <PUSH %<>>
 391                     <CALL '\1aLAB-WILL-DIE 4 = TEMP10>
 392                     <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE20>
 393                     <DEAD TEMP10>
 394                     <FRAME '\1aDEAD!-MIMOC>
 395                     <CONS S1-5 () = STACK>
 396                     <PUSH 'T>
 397                     <CALL '\1aDEAD!-MIMOC 2>
 398 PHRASE20
 399                     <TYPE? S2-6 <TYPE-CODE ATOM> - PHRASE28>
 400                     <FRAME '\1aWILL-DIE?>
 401                     <PUSH S2-6>
 402                     <CALL '\1aWILL-DIE? 1 = TEMP10>
 403                     <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE28>
 404                     <DEAD TEMP10>
 405                     <FRAME '\1aLAB-WILL-DIE>
 406                     <FRAME '\1aFIND-LABEL>
 407                     <PUSH LBL8>
 408                     <CALL '\1aFIND-LABEL 1 = STACK>
 409                     <PUSH S2-6>
 410                     <FRAME '\1a+>
 411                     <GVAL 'VISIT-COUNT = STACK>
 412                     <PUSH 1>
 413                     <CALL '\1a+ 2 = TEMP10>
 414                     <SETG 'VISIT-COUNT TEMP10>
 415                     <PUSH TEMP10>
 416                     <DEAD TEMP10>
 417                     <PUSH %<>>
 418                     <CALL '\1aLAB-WILL-DIE 4 = TEMP10>
 419                     <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE28>
 420                     <DEAD TEMP10>
 421                     <FRAME '\1aDEAD!-MIMOC>
 422                     <CONS S2-6 () = STACK>
 423                     <PUSH 'T>
 424                     <CALL '\1aDEAD!-MIMOC 2>
 425 PHRASE28
 426                     <FRAME '\1aUPDATE-ACS>
 427                     <CALL '\1aUPDATE-ACS 0>
 428                     <TYPE? S1-5 <TYPE-CODE STRING> - PHRASE37>
 429                     <FRAME '\1aOCEMIT>
 430                     <PUSH 'HRRZ>
 431                     <PUSH 'A1*>
 432                     <SET TEMP39 2 (TYPE FIX)>
 433                     <SFRAME 'OBJ-TYP>
 434                     <PUSH S2-6>
 435                     <SCALL '\1aOBJ-TYP 1 = TEMP10 + TAG38 TEMP39>
 436                     <LOOP (TEMP10 TYPE VALUE LENGTH) (TEMP39 VALUE)>
 437 TAG41
 438                     <INTGO>
 439                     <EMPTY? TEMP10 + TAG38>
 440                     <NTH1 TEMP10 = STACK>
 441                     <REST1 TEMP10 = TEMP10>
 442                     <ADD TEMP39 1 = TEMP39 (TYPE FIX)>
 443                     <JUMP + TAG41>
 444 TAG38
 445                     <CALL '\1aOCEMIT TEMP39>
 446                     <DEAD TEMP39>
 447                     <FRAME '\1aOCEMIT>
 448                     <PUSH 'CAIE>
 449                     <PUSH 'A1*>
 450                     <LENUS S1-5 = STACK (TYPE FIX)>
 451                     <CALL '\1aOCEMIT 3>
 452                     <FRAME '\1aOCEMIT>
 453                     <PUSH 'JRST>
 454                     <FRAME '\1aXJUMP>
 455                     <EQUAL? DIR7 '+ - PHRASE47>
 456                     <SET TEMP39 LBL2-9>
 457                     <JUMP + PHRASE48>
 458 PHRASE47
 459                     <SET TEMP39 LBL8>
 460 PHRASE48
 461                     <PUSH TEMP39>
 462                     <DEAD TEMP39>
 463                     <CALL '\1aXJUMP 1 = STACK>
 464                     <CALL '\1aOCEMIT 2>
 465                     <FRAME '\1aIN-AC?>
 466                     <PUSH S2-6>
 467                     <PUSH 'VALUE>
 468                     <CALL '\1aIN-AC? 2 = TEMP39>
 469                     <EQUAL? TEMP39 'A2* + PHRASE50>
 470                     <DEAD TEMP39>
 471                     <FRAME '\1aOCEMIT>
 472                     <PUSH 'MOVE>
 473                     <PUSH 'A2*>
 474                     <SET TEMP10 2 (TYPE FIX)>
 475                     <SFRAME 'OBJ-VAL>
 476                     <PUSH S2-6>
 477                     <DEAD S2-6>
 478                     <SCALL '\1aOBJ-VAL 1 = TEMP39 + TAG52 TEMP10>
 479                     <LOOP (TEMP39 TYPE VALUE LENGTH) (TEMP10 VALUE)>
 480 TAG54
 481                     <INTGO>
 482                     <EMPTY? TEMP39 + TAG52>
 483                     <NTH1 TEMP39 = STACK>
 484                     <REST1 TEMP39 = TEMP39>
 485                     <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
 486                     <JUMP + TAG54>
 487 TAG52
 488                     <CALL '\1aOCEMIT TEMP10>
 489                     <DEAD TEMP10>
 490 PHRASE50
 491                     <FRAME '\1aOCEMIT>
 492                     <PUSH 'MOVE>
 493                     <PUSH 'C1*>
 494                     <SET TEMP39 2 (TYPE FIX)>
 495                     <SFRAME 'OBJ-VAL>
 496                     <PUSH S1-5>
 497                     <SCALL '\1aOBJ-VAL 1 = TEMP10 + TAG56 TEMP39>
 498                     <LOOP (TEMP10 TYPE VALUE LENGTH) (TEMP39 VALUE)>
 499 TAG58
 500                     <INTGO>
 501                     <EMPTY? TEMP10 + TAG56>
 502                     <NTH1 TEMP10 = STACK>
 503                     <REST1 TEMP10 = TEMP10>
 504                     <ADD TEMP39 1 = TEMP39 (TYPE FIX)>
 505                     <JUMP + TAG58>
 506 TAG56
 507                     <CALL '\1aOCEMIT TEMP39>
 508                     <DEAD TEMP39>
 509                     <FRAME '\1aOCEMIT>
 510                     <PUSH 'MOVEI>
 511                     <PUSH 'B2*>
 512                     <LENUS S1-5 = STACK (TYPE FIX)>
 513                     <DEAD S1-5>
 514                     <CALL '\1aOCEMIT 3>
 515                     <JUMP + PHRASE61>
 516 PHRASE37
 517                     <FRAME '\1aOCEMIT>
 518                     <PUSH 'HRRZ>
 519                     <PUSH 'A1*>
 520                     <SET TEMP10 2 (TYPE FIX)>
 521                     <SFRAME 'OBJ-TYP>
 522                     <PUSH S1-5>
 523                     <SCALL '\1aOBJ-TYP 1 = TEMP39 + TAG62 TEMP10>
 524                     <LOOP (TEMP39 TYPE VALUE LENGTH) (TEMP10 VALUE)>
 525 TAG64
 526                     <INTGO>
 527                     <EMPTY? TEMP39 + TAG62>
 528                     <NTH1 TEMP39 = STACK>
 529                     <REST1 TEMP39 = TEMP39>
 530                     <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
 531                     <JUMP + TAG64>
 532 TAG62
 533                     <CALL '\1aOCEMIT TEMP10>
 534                     <DEAD TEMP10>
 535                     <FRAME '\1aIN-AC?>
 536                     <PUSH S1-5>
 537                     <PUSH 'VALUE>
 538                     <CALL '\1aIN-AC? 2 = TEMP10>
 539                     <EQUAL? TEMP10 'A2* - PHRASE67>
 540                     <DEAD TEMP10>
 541                     <FRAME '\1aIN-AC?>
 542                     <PUSH S2-6>
 543                     <PUSH 'VALUE>
 544                     <CALL '\1aIN-AC? 2 = TEMP10>
 545                     <EQUAL? TEMP10 'B2* - PHRASE67>
 546                     <DEAD TEMP10>
 547                     <FRAME '\1aOCEMIT>
 548                     <PUSH 'MOVE>
 549                     <PUSH 'C1*>
 550                     <PUSH 'B2*>
 551                     <CALL '\1aOCEMIT 3>
 552                     <FRAME '\1aOCEMIT>
 553                     <PUSH 'HRRZ>
 554                     <PUSH 'B2*>
 555                     <SET TEMP39 2 (TYPE FIX)>
 556                     <SFRAME 'OBJ-TYP>
 557                     <PUSH S2-6>
 558                     <DEAD S2-6>
 559                     <SCALL '\1aOBJ-TYP 1 = TEMP10 + TAG72 TEMP39>
 560                     <LOOP (TEMP10 TYPE VALUE LENGTH) (TEMP39 VALUE)>
 561 TAG74
 562                     <INTGO>
 563                     <EMPTY? TEMP10 + TAG72>
 564                     <NTH1 TEMP10 = STACK>
 565                     <REST1 TEMP10 = TEMP10>
 566                     <ADD TEMP39 1 = TEMP39 (TYPE FIX)>
 567                     <JUMP + TAG74>
 568 TAG72
 569                     <CALL '\1aOCEMIT TEMP39>
 570                     <DEAD TEMP39>
 571                     <JUMP + PHRASE101>
 572 PHRASE67
 573                     <FRAME '\1aIN-AC?>
 574                     <PUSH S1-5>
 575                     <PUSH 'VALUE>
 576                     <CALL '\1aIN-AC? 2 = TEMP39>
 577                     <EQUAL? TEMP39 'B2* - PHRASE76>
 578                     <DEAD TEMP39>
 579                     <FRAME '\1aOCEMIT>
 580                     <PUSH 'MOVE>
 581                     <PUSH 'A2*>
 582                     <PUSH 'B2*>
 583                     <CALL '\1aOCEMIT 3>
 584                     <FRAME '\1aOCEMIT>
 585                     <PUSH 'HRRZ>
 586                     <PUSH 'B2*>
 587                     <SET TEMP10 2 (TYPE FIX)>
 588                     <SFRAME 'OBJ-TYP>
 589                     <PUSH S2-6>
 590                     <SCALL '\1aOBJ-TYP 1 = TEMP39 + TAG79 TEMP10>
 591                     <LOOP (TEMP39 TYPE VALUE LENGTH) (TEMP10 VALUE)>
 592 TAG81
 593                     <INTGO>
 594                     <EMPTY? TEMP39 + TAG79>
 595                     <NTH1 TEMP39 = STACK>
 596                     <REST1 TEMP39 = TEMP39>
 597                     <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
 598                     <JUMP + TAG81>
 599 TAG79
 600                     <CALL '\1aOCEMIT TEMP10>
 601                     <DEAD TEMP10>
 602                     <FRAME '\1aOCEMIT>
 603                     <PUSH 'MOVE>
 604                     <PUSH 'C1*>
 605                     <SET TEMP39 2 (TYPE FIX)>
 606                     <SFRAME 'OBJ-VAL>
 607                     <PUSH S2-6>
 608                     <DEAD S2-6>
 609                     <SCALL '\1aOBJ-VAL 1 = TEMP10 + TAG83 TEMP39>
 610                     <LOOP (TEMP10 TYPE VALUE LENGTH) (TEMP39 VALUE)>
 611 TAG85
 612                     <INTGO>
 613                     <EMPTY? TEMP10 + TAG83>
 614                     <NTH1 TEMP10 = STACK>
 615                     <REST1 TEMP10 = TEMP10>
 616                     <ADD TEMP39 1 = TEMP39 (TYPE FIX)>
 617                     <JUMP + TAG85>
 618 TAG83
 619                     <CALL '\1aOCEMIT TEMP39>
 620                     <DEAD TEMP39>
 621                     <JUMP + PHRASE101>
 622 PHRASE76
 623                     <FRAME '\1aIN-AC?>
 624                     <PUSH S2-6>
 625                     <PUSH 'VALUE>
 626                     <CALL '\1aIN-AC? 2 = TEMP39>
 627                     <EQUAL? TEMP39 'B2* - PHRASE87>
 628                     <DEAD TEMP39>
 629                     <FRAME '\1aOCEMIT>
 630                     <PUSH 'MOVE>
 631                     <PUSH 'C1*>
 632                     <PUSH 'B2*>
 633                     <CALL '\1aOCEMIT 3>
 634                     <FRAME '\1aOCEMIT>
 635                     <PUSH 'HRRZ>
 636                     <PUSH 'B2*>
 637                     <SET TEMP10 2 (TYPE FIX)>
 638                     <SFRAME 'OBJ-TYP>
 639                     <PUSH S2-6>
 640                     <DEAD S2-6>
 641                     <SCALL '\1aOBJ-TYP 1 = TEMP39 + TAG90 TEMP10>
 642                     <LOOP (TEMP39 TYPE VALUE LENGTH) (TEMP10 VALUE)>
 643 TAG92
 644                     <INTGO>
 645                     <EMPTY? TEMP39 + TAG90>
 646                     <NTH1 TEMP39 = STACK>
 647                     <REST1 TEMP39 = TEMP39>
 648                     <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
 649                     <JUMP + TAG92>
 650 TAG90
 651                     <CALL '\1aOCEMIT TEMP10>
 652                     <DEAD TEMP10>
 653                     <FRAME '\1aIN-AC?>
 654                     <PUSH S1-5>
 655                     <PUSH 'VALUE>
 656                     <CALL '\1aIN-AC? 2 = TEMP10>
 657                     <EQUAL? TEMP10 'A2* + PHRASE101>
 658                     <DEAD TEMP10>
 659                     <FRAME '\1aOCEMIT>
 660                     <PUSH 'MOVE>
 661                     <PUSH 'A2*>
 662                     <SET TEMP39 2 (TYPE FIX)>
 663                     <SFRAME 'OBJ-VAL>
 664                     <PUSH S1-5>
 665                     <DEAD S1-5>
 666                     <SCALL '\1aOBJ-VAL 1 = TEMP10 + TAG97 TEMP39>
 667                     <LOOP (TEMP10 TYPE VALUE LENGTH) (TEMP39 VALUE)>
 668 TAG99
 669                     <INTGO>
 670                     <EMPTY? TEMP10 + TAG97>
 671                     <NTH1 TEMP10 = STACK>
 672                     <REST1 TEMP10 = TEMP10>
 673                     <ADD TEMP39 1 = TEMP39 (TYPE FIX)>
 674                     <JUMP + TAG99>
 675 TAG97
 676                     <CALL '\1aOCEMIT TEMP39>
 677                     <DEAD TEMP39>
 678                     <JUMP + PHRASE101>
 679 PHRASE87
 680                     <FRAME '\1aOCEMIT>
 681                     <PUSH 'HRRZ>
 682                     <PUSH 'B2*>
 683                     <SET TEMP10 2 (TYPE FIX)>
 684                     <SFRAME 'OBJ-TYP>
 685                     <PUSH S2-6>
 686                     <SCALL '\1aOBJ-TYP 1 = TEMP39 + TAG102 TEMP10>
 687                     <LOOP (TEMP39 TYPE VALUE LENGTH) (TEMP10 VALUE)>
 688 TAG104
 689                     <INTGO>
 690                     <EMPTY? TEMP39 + TAG102>
 691                     <NTH1 TEMP39 = STACK>
 692                     <REST1 TEMP39 = TEMP39>
 693                     <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
 694                     <JUMP + TAG104>
 695 TAG102
 696                     <CALL '\1aOCEMIT TEMP10>
 697                     <DEAD TEMP10>
 698                     <FRAME '\1aIN-AC?>
 699                     <PUSH S1-5>
 700                     <PUSH 'VALUE>
 701                     <CALL '\1aIN-AC? 2 = TEMP10>
 702                     <EQUAL? TEMP10 'A2* + PHRASE107>
 703                     <DEAD TEMP10>
 704                     <FRAME '\1aOCEMIT>
 705                     <PUSH 'MOVE>
 706                     <PUSH 'A2*>
 707                     <SET TEMP39 2 (TYPE FIX)>
 708                     <SFRAME 'OBJ-VAL>
 709                     <PUSH S1-5>
 710                     <DEAD S1-5>
 711                     <SCALL '\1aOBJ-VAL 1 = TEMP10 + TAG109 TEMP39>
 712                     <LOOP (TEMP10 TYPE VALUE LENGTH) (TEMP39 VALUE)>
 713 TAG111
 714                     <INTGO>
 715                     <EMPTY? TEMP10 + TAG109>
 716                     <NTH1 TEMP10 = STACK>
 717                     <REST1 TEMP10 = TEMP10>
 718                     <ADD TEMP39 1 = TEMP39 (TYPE FIX)>
 719                     <JUMP + TAG111>
 720 TAG109
 721                     <CALL '\1aOCEMIT TEMP39>
 722                     <DEAD TEMP39>
 723 PHRASE107
 724                     <FRAME '\1aOCEMIT>
 725                     <PUSH 'MOVE>
 726                     <PUSH 'C1*>
 727                     <SET TEMP10 2 (TYPE FIX)>
 728                     <SFRAME 'OBJ-VAL>
 729                     <PUSH S2-6>
 730                     <DEAD S2-6>
 731                     <SCALL '\1aOBJ-VAL 1 = TEMP39 + TAG113 TEMP10>
 732                     <LOOP (TEMP39 TYPE VALUE LENGTH) (TEMP10 VALUE)>
 733 TAG115
 734                     <INTGO>
 735                     <EMPTY? TEMP39 + TAG113>
 736                     <NTH1 TEMP39 = STACK>
 737                     <REST1 TEMP39 = TEMP39>
 738                     <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
 739                     <JUMP + TAG115>
 740 TAG113
 741                     <CALL '\1aOCEMIT TEMP10>
 742                     <DEAD TEMP10>
 743 PHRASE101
 744                     <FRAME '\1aOCEMIT>
 745                     <PUSH 'CAIE>
 746                     <PUSH 'A1*>
 747                     <PUSH (B2*)>
 748                     <CALL '\1aOCEMIT 3>
 749                     <FRAME '\1aOCEMIT>
 750                     <PUSH 'JRST>
 751                     <FRAME '\1aXJUMP>
 752                     <EQUAL? DIR7 '+ - PHRASE121>
 753                     <SET TEMP10 LBL2-9>
 754                     <JUMP + PHRASE122>
 755 PHRASE121
 756                     <SET TEMP10 LBL8>
 757 PHRASE122
 758                     <PUSH TEMP10>
 759                     <DEAD TEMP10>
 760                     <CALL '\1aXJUMP 1 = STACK>
 761                     <CALL '\1aOCEMIT 2>
 762 PHRASE61
 763                     <FRAME '\1aFLUSH-ACS>
 764                     <CALL '\1aFLUSH-ACS 0>
 765                     <FRAME '\1aLABEL-UPDATE-ACS>
 766                     <PUSH LBL8>
 767                     <PUSH %<>>
 768                     <CALL '\1aLABEL-UPDATE-ACS 2>
 769                     <FRAME '\1aOCEMIT>
 770                     <PUSH 'SETZB>
 771                     <PUSH 'B1*>
 772                     <PUSH 'C2*>
 773                     <CALL '\1aOCEMIT 3>
 774                     <FRAME '\1aOCEMIT>
 775                     <PUSH 'XBLT>
 776                     <PUSH 'A1*>
 777                     <SET TEMP39 2 (TYPE FIX)>
 778                     <SFRAME 'OBJ-VAL>
 779                     <EQUAL? DIR7 '+ - PHRASE129>
 780                     <SET S1-5 805306368 (TYPE FIX)>
 781                     <JUMP + PHRASE131>
 782 PHRASE129
 783                     <SET S1-5 268435456 (TYPE FIX)>
 784 PHRASE131
 785                     <PUSH S1-5>
 786                     <DEAD S1-5>
 787                     <SCALL '\1aOBJ-VAL 1 = TEMP10 + TAG126 TEMP39>
 788                     <LOOP (TEMP10 TYPE VALUE LENGTH) (TEMP39 VALUE)>
 789 TAG132
 790                     <INTGO>
 791                     <EMPTY? TEMP10 + TAG126>
 792                     <NTH1 TEMP10 = STACK>
 793                     <REST1 TEMP10 = TEMP10>
 794                     <ADD TEMP39 1 = TEMP39 (TYPE FIX)>
 795                     <JUMP + TAG132>
 796 TAG126
 797                     <CALL '\1aOCEMIT TEMP39>
 798                     <DEAD TEMP39>
 799                     <FRAME '\1aOCEMIT>
 800                     <PUSH 'JRST>
 801                     <FRAME '\1aXJUMP>
 802                     <PUSH LBL8>
 803                     <DEAD LBL8>
 804                     <CALL '\1aXJUMP 1 = STACK>
 805                     <CALL '\1aOCEMIT 2>
 806                     <EQUAL? DIR7 '+ + TAG138>
 807                     <DEAD DIR7>
 808                     <RETURN %<>>
 809 TAG138
 810                     <FRAME '\1aLABEL>
 811                     <PUSH LBL2-9>
 812                     <DEAD LBL2-9>
 813                     <CALL '\1aLABEL 1 = TEMP39>
 814                     <RETURN TEMP39>
 815                     <DEAD TEMP39>
 816                     <END \1aSTRING-EQUAL?!-MIMOC>\r\r
 817 #WORD *13433347155*
 818 <GFCN \1aSTRCOMP!-MIMOC ("VALUE" ANY LIST) L5>
 819                     <TEMP S16 TEMP13 S27 VAL8 T19 T210 T311 TEMP29>
 820                     <INTGO>
 821                     <NTHL L5 1 = S16>
 822                     <RESTL L5 1 = TEMP13 (TYPE LIST)>
 823                     <NTHL TEMP13 1 = S27>
 824                     <DEAD TEMP13>
 825                     <RESTL L5 1 = TEMP13 (TYPE LIST)>
 826                     <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
 827                     <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
 828                     <NTHL TEMP13 1 = VAL8>
 829                     <DEAD TEMP13>
 830                     <FRAME '\1aGENLBL>
 831                     <PUSH "TG">
 832                     <CALL '\1aGENLBL 1 = T19>
 833                     <FRAME '\1aGENLBL>
 834                     <PUSH "TG">
 835                     <CALL '\1aGENLBL 1 = T210>
 836                     <FRAME '\1aGENLBL>
 837                     <PUSH "TG">
 838                     <CALL '\1aGENLBL 1 = T311>
 839                     <TYPE? S27 <TYPE-CODE STRING> - PHRASE18>
 840                     <SET S16 S27>
 841                     <DEAD S27>
 842                     <NTHL L5 1 = S27>
 843                     <DEAD L5>
 844 PHRASE18
 845                     <FRAME '\1aWILL-DIE?>
 846                     <PUSH S16>
 847                     <CALL '\1aWILL-DIE? 1 = TEMP13>
 848                     <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE20>
 849                     <DEAD TEMP13>
 850                     <FRAME '\1aDEAD!-MIMOC>
 851                     <CONS S16 () = STACK>
 852                     <PUSH 'T>
 853                     <CALL '\1aDEAD!-MIMOC 2>
 854 PHRASE20
 855                     <FRAME '\1aWILL-DIE?>
 856                     <PUSH S27>
 857                     <CALL '\1aWILL-DIE? 1 = TEMP13>
 858                     <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE24>
 859                     <DEAD TEMP13>
 860                     <FRAME '\1aDEAD!-MIMOC>
 861                     <CONS S27 () = STACK>
 862                     <PUSH 'T>
 863                     <CALL '\1aDEAD!-MIMOC 2>
 864 PHRASE24
 865                     <FRAME '\1aUPDATE-ACS>
 866                     <CALL '\1aUPDATE-ACS 0>
 867                     <FRAME '\1aOCEMIT>
 868                     <PUSH 'HRRZ>
 869                     <PUSH 'O*>
 870                     <SET TEMP29 2 (TYPE FIX)>
 871                     <SFRAME 'OBJ-TYP>
 872                     <PUSH S16>
 873                     <SCALL '\1aOBJ-TYP 1 = TEMP13 + TAG28 TEMP29>
 874                     <LOOP (TEMP13 TYPE VALUE LENGTH) (TEMP29 VALUE)>
 875 TAG31
 876                     <INTGO>
 877                     <EMPTY? TEMP13 + TAG28>
 878                     <NTH1 TEMP13 = STACK>
 879                     <REST1 TEMP13 = TEMP13>
 880                     <ADD TEMP29 1 = TEMP29 (TYPE FIX)>
 881                     <JUMP + TAG31>
 882 TAG28
 883                     <CALL '\1aOCEMIT TEMP29>
 884                     <DEAD TEMP29>
 885                     <FRAME '\1aOCEMIT>
 886                     <PUSH 'HRRZ>
 887                     <PUSH 'B1*>
 888                     <SET TEMP13 2 (TYPE FIX)>
 889                     <SFRAME 'OBJ-TYP>
 890                     <PUSH S27>
 891                     <SCALL '\1aOBJ-TYP 1 = TEMP29 + TAG33 TEMP13>
 892                     <LOOP (TEMP29 TYPE VALUE LENGTH) (TEMP13 VALUE)>
 893 TAG35
 894                     <INTGO>
 895                     <EMPTY? TEMP29 + TAG33>
 896                     <NTH1 TEMP29 = STACK>
 897                     <REST1 TEMP29 = TEMP29>
 898                     <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
 899                     <JUMP + TAG35>
 900 TAG33
 901                     <CALL '\1aOCEMIT TEMP13>
 902                     <DEAD TEMP13>
 903                     <FRAME '\1aGET-INTO-ACS>
 904                     <PUSH S16>
 905                     <DEAD S16>
 906                     <PUSH 'VALUE>
 907                     <PUSH 'A1*>
 908                     <PUSH S27>
 909                     <DEAD S27>
 910                     <PUSH 'VALUE>
 911                     <PUSH 'B2*>
 912                     <CALL '\1aGET-INTO-ACS 6>
 913                     <FRAME '\1aFLUSH-ACS>
 914                     <CALL '\1aFLUSH-ACS 0>
 915                     <FRAME '\1aOCEMIT>
 916                     <PUSH 'MOVEI>
 917                     <PUSH 'C2*>
 918                     <PUSH 1>
 919                     <CALL '\1aOCEMIT 3>
 920                     <FRAME '\1aOCEMIT>
 921                     <PUSH 'CAMN>
 922                     <PUSH 'O*>
 923                     <PUSH 'B1*>
 924                     <CALL '\1aOCEMIT 3>
 925                     <FRAME '\1aOCEMIT>
 926                     <PUSH 'SOJA>
 927                     <PUSH 'C2*>
 928                     <FRAME '\1aXJUMP>
 929                     <PUSH T210>
 930                     <CALL '\1aXJUMP 1 = STACK>
 931                     <CALL '\1aOCEMIT 3>
 932                     <FRAME '\1aOCEMIT>
 933                     <PUSH 'CAML>
 934                     <PUSH 'O*>
 935                     <PUSH 'B1*>
 936                     <CALL '\1aOCEMIT 3>
 937                     <FRAME '\1aOCEMIT>
 938                     <PUSH 'JRST>
 939                     <FRAME '\1aXJUMP>
 940                     <PUSH T311>
 941                     <CALL '\1aXJUMP 1 = STACK>
 942                     <CALL '\1aOCEMIT 2>
 943                     <FRAME '\1aOCEMIT>
 944                     <PUSH 'MOVNI>
 945                     <PUSH 'C2*>
 946                     <PUSH 1>
 947                     <CALL '\1aOCEMIT 3>
 948                     <FRAME '\1aOCEMIT>
 949                     <PUSH 'SKIPA>
 950                     <PUSH 'B1*>
 951                     <PUSH 'O*>
 952                     <CALL '\1aOCEMIT 3>
 953                     <FRAME '\1aLABEL>
 954                     <PUSH T311>
 955                     <DEAD T311>
 956                     <CALL '\1aLABEL 1>
 957                     <FRAME '\1aOCEMIT>
 958                     <PUSH 'MOVE>
 959                     <PUSH 'O*>
 960                     <PUSH 'B1*>
 961                     <CALL '\1aOCEMIT 3>
 962                     <FRAME '\1aLABEL>
 963                     <PUSH T210>
 964                     <DEAD T210>
 965                     <CALL '\1aLABEL 1>
 966                     <FRAME '\1aOCEMIT>
 967                     <PUSH 'SETZB>
 968                     <PUSH 'A2*>
 969                     <PUSH 'C1*>
 970                     <CALL '\1aOCEMIT 3>
 971                     <FRAME '\1aOCEMIT>
 972                     <PUSH 'XBLT>
 973                     <PUSH 'O*>
 974                     <SET TEMP29 2 (TYPE FIX)>
 975                     <SFRAME 'OBJ-VAL>
 976                     <PUSH 805306368>
 977                     <SCALL '\1aOBJ-VAL 1 = TEMP13 + TAG52 TEMP29>
 978                     <LOOP (TEMP13 TYPE VALUE LENGTH) (TEMP29 VALUE)>
 979 TAG54
 980                     <INTGO>
 981                     <EMPTY? TEMP13 + TAG52>
 982                     <NTH1 TEMP13 = STACK>
 983                     <REST1 TEMP13 = TEMP13>
 984                     <ADD TEMP29 1 = TEMP29 (TYPE FIX)>
 985                     <JUMP + TAG54>
 986 TAG52
 987                     <CALL '\1aOCEMIT TEMP29>
 988                     <DEAD TEMP29>
 989                     <FRAME '\1aOCEMIT>
 990                     <PUSH 'JRST>
 991                     <FRAME '\1aXJUMP>
 992                     <PUSH T19>
 993                     <CALL '\1aXJUMP 1 = STACK>
 994                     <CALL '\1aOCEMIT 2>
 995                     <FRAME '\1aOCEMIT>
 996                     <PUSH 'LDB>
 997                     <PUSH 'O*>
 998                     <PUSH 'A1*>
 999                     <CALL '\1aOCEMIT 3>
1000                     <FRAME '\1aOCEMIT>
1001                     <PUSH 'LDB>
1002                     <PUSH 'B1*>
1003                     <PUSH 'B2*>
1004                     <CALL '\1aOCEMIT 3>
1005                     <FRAME '\1aOCEMIT>
1006                     <PUSH 'MOVEI>
1007                     <PUSH 'C2*>
1008                     <PUSH 1>
1009                     <CALL '\1aOCEMIT 3>
1010                     <FRAME '\1aOCEMIT>
1011                     <PUSH 'CAMG>
1012                     <PUSH 'O*>
1013                     <PUSH 'B1*>
1014                     <CALL '\1aOCEMIT 3>
1015                     <FRAME '\1aOCEMIT>
1016                     <PUSH 'MOVNI>
1017                     <PUSH 'C2*>
1018                     <PUSH 1>
1019                     <CALL '\1aOCEMIT 3>
1020                     <FRAME '\1aLABEL>
1021                     <PUSH T19>
1022                     <DEAD T19>
1023                     <CALL '\1aLABEL 1>
1024                     <EQUAL? VAL8 'STACK - PHRASE65>
1025                     <FRAME '\1aOCEMIT>
1026                     <PUSH 'PUSH>
1027                     <PUSH 'TP*>
1028                     <SET TEMP13 2 (TYPE FIX)>
1029                     <SFRAME 'TYPE-WORD>
1030                     <PUSH 'FIX>
1031                     <SCALL '\1aTYPE-WORD 1 = TEMP29 + TAG66 TEMP13>
1032                     <LOOP (TEMP29 TYPE VALUE LENGTH) (TEMP13 VALUE)>
1033 TAG68
1034                     <INTGO>
1035                     <EMPTY? TEMP29 + TAG66>
1036                     <NTH1 TEMP29 = STACK>
1037                     <REST1 TEMP29 = TEMP29>
1038                     <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
1039                     <JUMP + TAG68>
1040 TAG66
1041                     <CALL '\1aOCEMIT TEMP13>
1042                     <DEAD TEMP13>
1043                     <FRAME '\1aOCEMIT>
1044                     <PUSH 'PUSH>
1045                     <PUSH 'TP*>
1046                     <PUSH 'C2*>
1047                     <CALL '\1aOCEMIT 3>
1048                     <GVAL 'WINNING-VICTIM = TEMP13>
1049                     <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE74>
1050                     <FRAME '\1a+>
1051                     <GVAL 'STACK-DEPTH = STACK>
1052                     <PUSH 2>
1053                     <CALL '\1a+ 2 = TEMP29>
1054                     <SETG 'STACK-DEPTH TEMP29>
1055                     <RETURN TEMP29>
1056                     <DEAD TEMP29>
1057 PHRASE65
1058                     <SET TEMP13 VAL8>
1059                     <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE74>
1060                     <FRAME '\1aGET-AC>
1061                     <PUSH 'C1*>
1062                     <CALL '\1aGET-AC 1 = S16>
1063                     <FRAME '\1aAC-ITEM>
1064                     <PUSH S16>
1065                     <PUSH VAL8>
1066                     <CALL '\1aAC-ITEM 2>
1067                     <FRAME '\1aAC-CODE>
1068                     <PUSH S16>
1069                     <PUSH 'TYPE>
1070                     <CALL '\1aAC-CODE 2>
1071                     <FRAME '\1aAC-UPDATE>
1072                     <PUSH S16>
1073                     <PUSH 'T>
1074                     <CALL '\1aAC-UPDATE 2>
1075                     <FRAME '\1aAC-TIME>
1076                     <PUSH S16>
1077                     <FRAME '\1a+>
1078                     <GVAL 'AC-STAMP = STACK>
1079                     <PUSH 1>
1080                     <CALL '\1a+ 2 = TEMP29>
1081                     <SETG 'AC-STAMP TEMP29>
1082                     <PUSH TEMP29>
1083                     <DEAD TEMP29>
1084                     <CALL '\1aAC-TIME 2>
1085                     <FRAME '\1aAC-TYPE>
1086                     <PUSH S16>
1087                     <DEAD S16>
1088                     <PUSH 'FIX>
1089                     <CALL '\1aAC-TYPE 2>
1090                     <FRAME '\1aGET-AC>
1091                     <PUSH 'C2*>
1092                     <CALL '\1aGET-AC 1 = S16>
1093                     <FRAME '\1aAC-ITEM>
1094                     <PUSH S16>
1095                     <PUSH VAL8>
1096                     <DEAD VAL8>
1097                     <CALL '\1aAC-ITEM 2>
1098                     <FRAME '\1aAC-CODE>
1099                     <PUSH S16>
1100                     <PUSH 'VALUE>
1101                     <CALL '\1aAC-CODE 2>
1102                     <FRAME '\1aAC-UPDATE>
1103                     <PUSH S16>
1104                     <PUSH 'T>
1105                     <CALL '\1aAC-UPDATE 2>
1106                     <FRAME '\1aAC-TIME>
1107                     <PUSH S16>
1108                     <DEAD S16>
1109                     <GVAL 'AC-STAMP = STACK>
1110                     <CALL '\1aAC-TIME 2 = TEMP13>
1111 PHRASE74
1112                     <RETURN TEMP13>
1113                     <DEAD TEMP13>
1114                     <END \1aSTRCOMP!-MIMOC