mim/development/mim/20c/acvar.mima

   1
   2 <USE "HASH">
   3
   4 <COND (<NOT <GASSIGNED? WIDTH-MUNG>> <FLOAD "MIMOC20DEFS.MUD">)>
   5
   6 <SETG AC-R 10>
   7
   8 <MANIFEST AC-R>
   9
  10 <SETG SETZ-R <CHTYPE <ORB -0 <LSH ,AC-R 18>> FIX>>
  11
  12 <SETG SETZX-R <CHTYPE <ORB -25769803776 <LSH ,AC-R 18>> FIX>>
  13
  14 <SETG SETZQ-R <CHTYPE <ORB -17179869184 <LSH ,AC-R 18>> FIX>>
  15
  16 <SETG SETZ-IND -34355544064>
  17
  18 <SETG SETZ -0>
  19
  20 <SETG ACS [O* 0 A1* 1 A2* 2 B1* 3 B2* 4 C1* 5 C2* 6 T* 7 O1* 8 O2* 9 R* 10 M* 11 SP* 12 F* 13 TP* 14 P* 15]>
  21
  22 <REPEAT ((A ,ACS)) <SETG <1 .A> <2 .A>> <COND (<EMPTY? <SET A <REST .A 2>>> <RETURN>)>>
  23
  24 <SETG ACNAMS [A1 A2 B1 B2 C1 C2 T O1 O2 R M SP F TP P]>
  25
  26 <GDECL (ACNAMS) <VECTOR [REST ATOM]>>
  27
  28 #WORD *25133337411*
  29 <GFCN \1aNEXTINS ("VALUE" <OR FALSE FORM> LIST) L5>
  30                     <TEMP TEMP15 TEMP12:LIST ITM17>
  31                     <INTGO>
  32                     <SET TEMP15 %<> (TYPE FALSE)>
  33                     <LOOP>
  34 MAP7
  35                     <INTGO>
  36                     <EMPL? L5 + MAPAP10>
  37                     <NTHL L5 1 = ITM17>
  38                     <TYPE? ITM17 <TYPE-CODE FORM> + TAG20>
  39                     <SET TEMP15 %<> (TYPE FALSE)>
  40                     <JUMP + PHRASE19>
  41 TAG20
  42                     <RETURN ITM17>
  43                     <DEAD ITM17>
  44 PHRASE19
  45                     <RESTL L5 1 = L5 (TYPE LIST)>
  46                     <JUMP + MAP7>
  47 MAPAP10
  48                     <DEAD L5>
  49                     <RETURN TEMP15>
  50                     <DEAD TEMP15>
  51                     <END \1aNEXTINS>
  52 <SETG AC-STAMP 0>
  53
  54 <SETG AC-TABLE '[#AC [O* %<> DUMMY 0 %<> %<>] #AC [A1* %<> DUMMY 0 %<> %<>] #AC [A2* %<> DUMMY 0 %<> %<>] #AC [B1* %<> DUMMY 0 %<> %<>] #AC [B2* %<> DUMMY 0 %<> %<>] #AC [C1* %<> DUMMY 0 %<> %<>] #AC [C2* %<> DUMMY 0 %<> %<>] #AC [X* %<> DUMMY 0 %<> %<>] #AC [T* %<> DUMMY %<CHTYPE <MIN> FIX> %<> %<>]]>
  55
  56 <MAPR <> <FUNCTION (TBL "AUX" (AC <1 .TBL>)) #DECL ((TBL) <VECTOR [REST AC]> (AC) AC) <COND (<1? <LENGTH .TBL>> <PUTPROP <AC-NAME .AC> AC .AC> <MAPLEAVE>) (T <PUTPROP <AC-NAME .AC> NEXTAC <COND (<==? <AC-NAME <2 .TBL>> X*> T*) (ELSE <AC-NAME <2 .TBL>>)>> <PUTPROP <COND (<==? <AC-NAME <2 .TBL>> X*> T*) (ELSE <AC-NAME <2 .TBL>>)> AC-PAIR <AC-NAME .AC>> <PUTPROP <COND (<==? <AC-NAME <2 .TBL>> X*> <3 .TBL>) (ELSE <2 .TBL>)> AC-PAIR .AC> <PUTPROP .AC NEXTAC <COND (<==? <AC-NAME <2 .TBL>> X*> T*) (ELSE <AC-NAME <2 .TBL>>)>> <PUTPROP <AC-NAME .AC> AC .AC>)>> ,AC-TABLE>
  57
  58 <SETG AC-PAIR-TABLE [<2 ,AC-TABLE> <3 ,AC-TABLE> <4 ,AC-TABLE> <5 ,AC-TABLE> <6 ,AC-TABLE> <7 ,AC-TABLE>]>
  59
  60 <SETG NULL-STATES <MAPF ,VECTOR <FUNCTION (AC) <CHTYPE [.AC <> <> <> DUMMY] ACSTATE>> ,AC-PAIR-TABLE>>
  61
  62 #WORD *1712330064*
  63 <GFCN \1aNEXT-AC ("VALUE" ANY <OR ATOM AC>) AC5>
  64                     <TEMP TEMP8>
  65                     <INTGO>
  66                     <EQUAL? AC5 'STACK - PHRASE7>
  67                     <RETURN 'STACK>
  68 PHRASE7
  69                     <FRAME '\1aGETPROP>
  70                     <PUSH AC5>
  71                     <DEAD AC5>
  72                     <PUSH 'NEXTAC>
  73                     <CALL '\1aGETPROP 2 = TEMP8>
  74                     <RETURN TEMP8>
  75                     <DEAD TEMP8>
  76                     <END \1aNEXT-AC>
  77 #WORD *33520570212*
  78 <GFCN \1aGET-AC ("VALUE" AC ATOM) AC5>
  79                     <TEMP TEMP7>
  80                     <INTGO>
  81                     <FRAME '\1aGETPROP>
  82                     <PUSH AC5>
  83                     <DEAD AC5>
  84                     <PUSH 'AC>
  85                     <CALL '\1aGETPROP 2 = TEMP7>
  86                     <RETURN TEMP7>
  87                     <DEAD TEMP7>
  88                     <END \1aGET-AC>
  89 #WORD *11122344002*
  90 <GFCN \1aIS-AC? ("VALUE" ANY ATOM) AC5>
  91                     <TEMP TEMP7>
  92                     <INTGO>
  93                     <FRAME '\1aGETPROP>
  94                     <PUSH AC5>
  95                     <DEAD AC5>
  96                     <PUSH 'AC>
  97                     <CALL '\1aGETPROP 2 = TEMP7>
  98                     <RETURN TEMP7>
  99                     <DEAD TEMP7>
 100                     <END \1aIS-AC?>
 101 #WORD *4010647163*
 102 <GFCN \1aPA ("VALUE" ANY)>
 103                     <TEMP TEMP6>
 104                     <INTGO>
 105                     <FRAME '\1aPPRINT>
 106                     <GVAL 'AC-TABLE = STACK>
 107                     <CALL '\1aPPRINT 1 = TEMP6>
 108                     <RETURN TEMP6>
 109                     <DEAD TEMP6>
 110                     <END \1aPA>
 111 #WORD *13074567675*
 112 <GFCN \1aASSIGN-AC ("VALUE" <OR ATOM FALSE> ANY ATOM "OPTIONAL" <OR ATOM FALSE>) ITM8 TYP9 AC-FORCE10>
 113                     <OPT-DISPATCH 2 %<> OPT6 OPT7>
 114 OPT6
 115                     <PUSH %<>>
 116 OPT7
 117                     <TEMP TEMP14>
 118                     <INTGO>
 119                     <EQUAL? ITM8 'STACK - PHRASE12>
 120                     <TYPE? AC-FORCE10 <TYPE-CODE FALSE> - PHRASE12>
 121                     <DEAD AC-FORCE10>
 122                     <RETURN 'STACK>
 123 PHRASE12
 124                     <FRAME '\1aLOAD-AC>
 125                     <PUSH ITM8>
 126                     <DEAD ITM8>
 127                     <PUSH TYP9>
 128                     <DEAD TYP9>
 129                     <PUSH 'T>
 130                     <PUSH 'T>
 131                     <CALL '\1aLOAD-AC 4 = TEMP14>
 132                     <RETURN TEMP14>
 133                     <DEAD TEMP14>
 134                     <END \1aASSIGN-AC>
 135 #WORD *5717701775*
 136 <GFCN \1aIN-AC? ("VALUE" <OR ATOM FALSE> ANY ATOM) ITM5 TYP6>
 137                     <TEMP BOTH7 TEMP24 TEMP26:VECTOR AC28 TEMP35>
 138                     <INTGO>
 139                     <VEQUAL? TYP6 'BOTH - TAG8>
 140                     <SET BOTH7 'T (TYPE ATOM)>
 141                     <JUMP + TAG9>
 142 TAG8
 143                     <SET BOTH7 %<> (TYPE FALSE)>
 144 TAG9
 145                     <TYPE? ITM5 <TYPE-CODE ATOM> + TAG13>
 146                     <RETURN %<>>
 147 TAG13
 148                     <SET TEMP24 %<> (TYPE FALSE)>
 149                     <GVAL 'AC-TABLE = TEMP26>
 150                     <LOOP>
 151 MAP16
 152                     <INTGO>
 153                     <EMPUV? TEMP26 + MAPAP19>
 154                     <SET TEMP24 TEMP26>
 155                     <NTHUV TEMP24 1 = AC28 (TYPE AC)>
 156                     <VEQUAL? TYP6 'FREE - PHRASE31>
 157                     <RETURN %<>>
 158 PHRASE31
 159                     <NTHUV AC28 2 = TEMP35>
 160                     <EQUAL? TEMP35 ITM5 + TAG34>
 161                     <DEAD TEMP35>
 162                     <SET TEMP24 %<> (TYPE FALSE)>
 163                     <JUMP + PHRASE44>
 164 TAG34
 165                     <VEQUAL? BOTH7 0 + PHRASE37>
 166                     <NTHUV AC28 3 = TEMP35 (TYPE ATOM)>
 167                     <VEQUAL? TEMP35 'TYPE + TAG41>
 168                     <DEAD TEMP35>
 169                     <SET TEMP24 %<> (TYPE FALSE)>
 170                     <JUMP + PHRASE44>
 171 TAG41
 172                     <NTHUV TEMP24 2 = TEMP24 (TYPE AC)>
 173                     <NTHUV TEMP24 3 = TEMP35 (TYPE ATOM)>
 174                     <VEQUAL? TEMP35 'VALUE + TAG42>
 175                     <DEAD TEMP35>
 176                     <SET TEMP24 %<> (TYPE FALSE)>
 177                     <JUMP + PHRASE44>
 178 TAG42
 179                     <NTHUV TEMP24 2 = TEMP35>
 180                     <EQUAL? TEMP35 ITM5 + TAG43>
 181                     <DEAD TEMP35>
 182                     <SET TEMP24 %<> (TYPE FALSE)>
 183                     <JUMP + PHRASE44>
 184 TAG43
 185                     <GVAL 'AC-STAMP = TEMP35>
 186                     <PUTUV AC28 4 TEMP35 (TYPE FIX)>
 187                     <DEAD TEMP35>
 188                     <GVAL 'AC-STAMP = TEMP35>
 189                     <PUTUV TEMP24 4 TEMP35 (TYPE FIX)>
 190                     <DEAD TEMP24 TEMP35>
 191                     <NTHUV AC28 1 = BOTH7 (TYPE ATOM)>
 192                     <DEAD AC28>
 193                     <RETURN BOTH7>
 194                     <DEAD BOTH7>
 195 PHRASE37
 196                     <NTHUV AC28 3 = TEMP35 (TYPE ATOM)>
 197                     <VEQUAL? TEMP35 TYP6 + TAG45>
 198                     <DEAD TEMP35>
 199                     <SET TEMP24 %<> (TYPE FALSE)>
 200                     <JUMP + PHRASE44>
 201 TAG45
 202                     <GVAL 'AC-STAMP = TEMP35>
 203                     <PUTUV AC28 4 TEMP35 (TYPE FIX)>
 204                     <DEAD TEMP35>
 205                     <NTHUV AC28 1 = BOTH7 (TYPE ATOM)>
 206                     <DEAD AC28>
 207                     <RETURN BOTH7>
 208                     <DEAD BOTH7>
 209 PHRASE44
 210                     <RESTUV TEMP26 1 = TEMP26 (TYPE VECTOR)>
 211                     <JUMP + MAP16>
 212 MAPAP19
 213                     <RETURN TEMP24>
 214                     <DEAD TEMP24>
 215                     <END \1aIN-AC?>
 216 #WORD *21614002014*
 217 <GFCN \1aSMASH-AC ("VALUE" <OR ATOM FALSE> ATOM ANY ATOM "OPTIONAL" <OR FALSE ATOM>) NAM8 ITM9 TYP10 AC?11>
 218                     <OPT-DISPATCH 3 %<> OPT6 OPT7>
 219 OPT6
 220                     <PUSH 'T>
 221 OPT7
 222                     <TEMP AC12 RAC13:AC>
 223                     <INTGO>
 224                     <TYPE? AC?11 <TYPE-CODE FALSE> + PHRASE15>
 225                     <DEAD AC?11>
 226                     <FRAME '\1aIN-AC?>
 227                     <PUSH ITM9>
 228                     <PUSH TYP10>
 229                     <CALL '\1aIN-AC? 2 = AC12>
 230                     <TYPE? AC12 <TYPE-CODE FALSE> + PHRASE15>
 231                     <VEQUAL? TYP10 'BOTH - PHRASE19>
 232                     <FRAME '\1aGET-AC>
 233                     <PUSH NAM8>
 234                     <CALL '\1aGET-AC 1 = RAC13>
 235                     <VEQUAL? NAM8 AC12 + PHRASE22>
 236                     <PUTUV RAC13 6 %<>>
 237                     <FRAME '\1aOCEMIT>
 238                     <PUSH 'DMOVE>
 239                     <PUSH NAM8>
 240                     <PUSH AC12>
 241                     <CALL '\1aOCEMIT 3>
 242                     <FRAME '\1aFLUSH-AC>
 243                     <PUSH AC12>
 244                     <PUSH 'T>
 245                     <CALL '\1aFLUSH-AC 2>
 246                     <FRAME '\1aMUNGED-AC>
 247                     <PUSH AC12>
 248                     <DEAD AC12>
 249                     <PUSH 'T>
 250                     <CALL '\1aMUNGED-AC 2>
 251 PHRASE22
 252                     <TYPE? ITM9 <TYPE-CODE ATOM> - PHRASE27>
 253                     <PUTUV RAC13 2 ITM9>
 254                     <PUTUV RAC13 3 'TYPE (TYPE ATOM)>
 255                     <DEAD RAC13>
 256                     <FRAME '\1aGET-AC>
 257                     <FRAME '\1aNEXT-AC>
 258                     <PUSH NAM8>
 259                     <CALL '\1aNEXT-AC 1 = STACK>
 260                     <CALL '\1aGET-AC 1 = RAC13>
 261                     <PUTUV RAC13 2 ITM9>
 262                     <DEAD ITM9>
 263                     <PUTUV RAC13 3 'VALUE (TYPE ATOM)>
 264                     <DEAD RAC13>
 265                     <RETURN NAM8>
 266                     <DEAD NAM8>
 267 PHRASE27
 268                     <PUTUV RAC13 3 'DUMMY (TYPE ATOM)>
 269                     <DEAD RAC13>
 270                     <FRAME '\1aGET-AC>
 271                     <FRAME '\1aNEXT-AC>
 272                     <PUSH NAM8>
 273                     <CALL '\1aNEXT-AC 1 = STACK>
 274                     <CALL '\1aGET-AC 1 = AC12>
 275                     <PUTUV AC12 3 'DUMMY (TYPE ATOM)>
 276                     <DEAD AC12>
 277                     <RETURN NAM8>
 278                     <DEAD NAM8>
 279 PHRASE19
 280                     <VEQUAL? NAM8 AC12 + PHRASE41>
 281                     <FRAME '\1aGET-AC>
 282                     <PUSH NAM8>
 283                     <CALL '\1aGET-AC 1 = RAC13>
 284                     <PUTUV RAC13 6 %<>>
 285                     <FRAME '\1aOCEMIT>
 286                     <PUSH 'MOVE>
 287                     <PUSH NAM8>
 288                     <PUSH AC12>
 289                     <CALL '\1aOCEMIT 3>
 290                     <FRAME '\1aFLUSH-AC>
 291                     <PUSH AC12>
 292                     <CALL '\1aFLUSH-AC 1>
 293                     <FRAME '\1aMUNGED-AC>
 294                     <PUSH AC12>
 295                     <DEAD AC12>
 296                     <CALL '\1aMUNGED-AC 1>
 297                     <TYPE? ITM9 <TYPE-CODE ATOM> - PHRASE40>
 298                     <PUTUV RAC13 2 ITM9>
 299                     <DEAD ITM9>
 300                     <PUTUV RAC13 3 TYP10 (TYPE ATOM)>
 301                     <DEAD RAC13 TYP10>
 302                     <RETURN NAM8>
 303                     <DEAD NAM8>
 304 PHRASE40
 305                     <PUTUV RAC13 3 'DUMMY (TYPE ATOM)>
 306                     <DEAD RAC13>
 307 PHRASE41
 308                     <RETURN NAM8>
 309                     <DEAD NAM8>
 310 PHRASE15
 311                     <FRAME '\1aLOAD-AC>
 312                     <PUSH ITM9>
 313                     <DEAD ITM9>
 314                     <PUSH TYP10>
 315                     <PUSH %<>>
 316                     <PUSH %<>>
 317                     <FRAME '\1aGET-AC>
 318                     <PUSH NAM8>
 319                     <CALL '\1aGET-AC 1 = STACK>
 320                     <VEQUAL? TYP10 'BOTH + TAG48>
 321                     <DEAD TYP10>
 322                     <SET AC12 %<> (TYPE FALSE)>
 323                     <JUMP + PHRASE46>
 324 TAG48
 325                     <FRAME '\1aGET-AC>
 326                     <FRAME '\1aNEXT-AC>
 327                     <PUSH NAM8>
 328                     <DEAD NAM8>
 329                     <CALL '\1aNEXT-AC 1 = STACK>
 330                     <CALL '\1aGET-AC 1 = AC12>
 331 PHRASE46
 332                     <PUSH AC12>
 333                     <DEAD AC12>
 334                     <CALL '\1aLOAD-AC 6 = AC12>
 335                     <RETURN AC12>
 336                     <DEAD AC12>
 337                     <END \1aSMASH-AC>
 338 #WORD *10101712601*
 339 <GFCN \1aCLEAN-ACS ("VALUE" <OR FALSE AC> ANY) ITM5>
 340                     <TEMP TEMP15 TEMP17:VECTOR AC18:AC>
 341                     <INTGO>
 342                     <SET TEMP15 %<> (TYPE FALSE)>
 343                     <GVAL 'AC-TABLE = TEMP17>
 344                     <LOOP>
 345 MAP7
 346                     <INTGO>
 347                     <EMPUV? TEMP17 + MAPAP10>
 348                     <NTHUV TEMP17 1 = AC18>
 349                     <NTHUV AC18 2 = TEMP15>
 350                     <EQUAL? TEMP15 ITM5 + TAG21>
 351                     <DEAD TEMP15>
 352                     <SET TEMP15 %<> (TYPE FALSE)>
 353                     <JUMP + PHRASE20>
 354 TAG21
 355                     <PUTUV AC18 2 %<>>
 356                     <PUTUV AC18 3 'DUMMY (TYPE ATOM)>
 357                     <SET TEMP15 AC18>
 358                     <DEAD AC18>
 359 PHRASE20
 360                     <RESTUV TEMP17 1 = TEMP17 (TYPE VECTOR)>
 361                     <JUMP + MAP7>
 362 MAPAP10
 363                     <RETURN TEMP15>
 364                     <DEAD TEMP15>
 365                     <END \1aCLEAN-ACS>
 366 #WORD *2756276114*
 367 <GFCN \1aLOAD-TYPE ("VALUE" <OR FALSE LIST STRING> ATOM LIST) AC4 L5>
 368                     <TEMP (OFF7:FIX 0) TEMP10 TEMP11>
 369                     <INTGO>
 370                     <EMPL? L5 + PHRASE9>
 371                     <RESTL L5 1 = TEMP10 (TYPE LIST)>
 372                     <EMPL? TEMP10 - PHRASE9>
 373                     <DEAD TEMP10>
 374                     <NTHL L5 1 = TEMP10 (TYPE ATOM)>
 375                     <DEAD L5>
 376                     <GVAL TEMP10 = TEMP11>
 377                     <DEAD TEMP10>
 378                     <OR TEMP11 #WORD *222000000000* = TEMP11>
 379                     <CHTYPE TEMP11 <TYPE-CODE CONSTANT> = TEMP10>
 380                     <DEAD TEMP11>
 381                     <JUMP + PHRASE12>
 382 PHRASE9
 383                     <SET TEMP11 L5>
 384                     <SET TEMP10 3 (TYPE FIX)>
 385                     <LOOP (TEMP11 VALUE) (TEMP10 VALUE)>
 386 TAG15
 387                     <EMPL? TEMP11 + PHRASE14>
 388                     <RESTL TEMP11 1 = TEMP11 (TYPE LIST)>
 389                     <SUB TEMP10 1 = TEMP10 (TYPE FIX)>
 390                     <GRTR? TEMP10 0 + TAG15 (TYPE FIX)>
 391                     <EMPL? TEMP11 - PHRASE14>
 392                     <DEAD TEMP11>
 393                     <NTHL L5 1 = OFF7 (TYPE FIX)>
 394                     <RESTL L5 1 = L5 (TYPE LIST)>
 395 PHRASE14
 396                     <RESTL L5 1 = TEMP11 (TYPE LIST)>
 397                     <NTHL TEMP11 1 = TEMP11>
 398                     <NTH1 TEMP11 = TEMP11>
 399                     <GVAL TEMP11 = TEMP10>
 400                     <DEAD TEMP11>
 401                     <LSH TEMP10 18 = TEMP10 (TYPE FIX)>
 402                     <OR TEMP10 #WORD *222000000000* = TEMP10>
 403                     <AND OFF7 #WORD *777777* = TEMP11>
 404                     <DEAD OFF7>
 405                     <ADD TEMP10 TEMP11 = TEMP10 (TYPE FIX)>
 406                     <DEAD TEMP11>
 407                     <CONS TEMP10 () = TEMP10>
 408                     <NTHL L5 1 = TEMP11>
 409                     <DEAD L5>
 410                     <CONS TEMP11 TEMP10 = TEMP10>
 411                     <DEAD TEMP11>
 412                     <CHTYPE TEMP10 <TYPE-CODE CONST-W-LOCAL> = TEMP10>
 413 PHRASE12
 414                     <FRAME '\1aCONST-ADD>
 415                     <PUSH TEMP10>
 416                     <CALL '\1aCONST-ADD 1>
 417                     <FRAME '\1aOCEMIT>
 418                     <PUSH 'LDB>
 419                     <PUSH AC4>
 420                     <DEAD AC4>
 421                     <SET TEMP11 2 (TYPE FIX)>
 422                     <SFRAME 'OBJ-VAL>
 423                     <PUSH TEMP10>
 424                     <DEAD TEMP10>
 425                     <SCALL '\1aOBJ-VAL 1 = TEMP10 + TAG18 TEMP11>
 426                     <LOOP (TEMP10 TYPE VALUE LENGTH) (TEMP11 VALUE)>
 427 TAG20
 428                     <INTGO>
 429                     <EMPTY? TEMP10 + TAG18>
 430                     <NTH1 TEMP10 = STACK>
 431                     <REST1 TEMP10 = TEMP10>
 432                     <ADD TEMP11 1 = TEMP11 (TYPE FIX)>
 433                     <JUMP + TAG20>
 434 TAG18
 435                     <CALL '\1aOCEMIT TEMP11 = TEMP11>
 436                     <RETURN TEMP11>
 437                     <DEAD TEMP11>
 438                     <END \1aLOAD-TYPE>
 439 #WORD *31337542546*
 440 <GFCN \1aLOAD-AC ("VALUE" <OR ATOM FALSE> ANY ATOM "OPTIONAL" <OR FALSE ATOM> <OR FALSE ATOM> <OR AC FALSE> <OR AC FALSE>) ITM14 TYP15 UPDATE16 ASSIGN17 LAC18 NAC19>
 441                     <OPT-DISPATCH 2 %<> OPT9 OPT10 OPT11 OPT12 OPT13>
 442 OPT9
 443                     <PUSH %<>>
 444 OPT10
 445                     <PUSH %<>>
 446 OPT11
 447                     <PUSH %<>>
 448 OPT12
 449                     <PUSH %<>>
 450 OPT13
 451                     <TEMP BOTH20 (LOW21 %<CHTYPE <MIN> FIX>) FIRST-AC24 TEMP32 AC22 ACT93:VECTOR>
 452                     <INTGO>
 453                     <VEQUAL? TYP15 'BOTH - TAG30>
 454                     <SET BOTH20 'T (TYPE ATOM)>
 455                     <JUMP + TAG31>
 456 TAG30
 457                     <SET BOTH20 %<> (TYPE FALSE)>
 458 TAG31
 459                     <GVAL 'FIRST-AC = FIRST-AC24>
 460                     <SETG 'FIRST-AC %<>>
 461                     <GVAL 'AC-STAMP = TEMP32>
 462                     <ADD TEMP32 1 = TEMP32 (TYPE FIX)>
 463                     <SETG 'AC-STAMP TEMP32>
 464                     <DEAD TEMP32>
 465                     <TYPE? LAC18 <TYPE-CODE FALSE> - PHRASE34>
 466                     <TYPE? ITM14 <TYPE-CODE ATOM> - PHRASE34>
 467                     <FRAME '\1aIN-AC?>
 468                     <PUSH ITM14>
 469                     <PUSH TYP15>
 470                     <CALL '\1aIN-AC? 2 = AC22>
 471                     <TYPE? AC22 <TYPE-CODE FALSE> + BOOL37>
 472                     <VEQUAL? AC22 'X* - BOOL58>
 473 BOOL37
 474                     <TYPE? AC22 <TYPE-CODE FALSE> - PHRASE34>
 475                     <DEAD AC22>
 476                     <VEQUAL? TYP15 'BOTH - PHRASE34>
 477                     <FRAME '\1aIN-AC?>
 478                     <PUSH ITM14>
 479                     <PUSH 'TYPE>
 480                     <CALL '\1aIN-AC? 2 = AC22>
 481                     <TYPE? AC22 <TYPE-CODE FALSE> + PHRASE51>
 482                     <VEQUAL? AC22 'A1* + BOOL45>
 483                     <VEQUAL? AC22 'B1* + BOOL45>
 484                     <VEQUAL? AC22 'B1* - BOOL44>
 485 BOOL45
 486                     <FRAME '\1aLOAD-AC>
 487                     <PUSH ITM14>
 488                     <PUSH 'VALUE>
 489                     <PUSH UPDATE16>
 490                     <PUSH ASSIGN17>
 491                     <FRAME '\1aGET-AC>
 492                     <FRAME '\1aNEXT-AC>
 493                     <PUSH AC22>
 494                     <CALL '\1aNEXT-AC 1 = STACK>
 495                     <CALL '\1aGET-AC 1 = STACK>
 496                     <CALL '\1aLOAD-AC 5 = TEMP32>
 497                     <TYPE? TEMP32 <TYPE-CODE FALSE> + BOOL44>
 498                     <DEAD TEMP32>
 499                     <FRAME '\1aGET-AC>
 500                     <PUSH AC22>
 501                     <CALL '\1aGET-AC 1 = TEMP32>
 502                     <PUTUV TEMP32 3 'TYPE (TYPE ATOM)>
 503                     <PUTUV TEMP32 2 ITM14>
 504                     <DEAD TEMP32>
 505                     <JUMP + BOOL58>
 506 BOOL44
 507                     <FRAME '\1aGET-AC>
 508                     <PUSH AC22>
 509                     <CALL '\1aGET-AC 1 = TEMP32>
 510                     <NTHUV TEMP32 5 = TEMP32>
 511                     <TYPE? TEMP32 <TYPE-CODE FALSE> + PHRASE51>
 512                     <DEAD TEMP32>
 513                     <FRAME '\1aUPDATE-AC>
 514                     <FRAME '\1aGET-AC>
 515                     <PUSH AC22>
 516                     <CALL '\1aGET-AC 1 = STACK>
 517                     <CALL '\1aUPDATE-AC 1>
 518                     <FRAME '\1aGET-AC>
 519                     <PUSH AC22>
 520                     <DEAD AC22>
 521                     <CALL '\1aGET-AC 1 = TEMP32>
 522                     <PUTUV TEMP32 5 %<>>
 523                     <DEAD TEMP32>
 524 PHRASE51
 525                     <FRAME '\1aIN-AC?>
 526                     <PUSH ITM14>
 527                     <PUSH 'VALUE>
 528                     <CALL '\1aIN-AC? 2 = AC22>
 529                     <TYPE? AC22 <TYPE-CODE FALSE> + PHRASE34>
 530                     <VEQUAL? AC22 'A2* + BOOL60>
 531                     <VEQUAL? AC22 'B2* + BOOL60>
 532                     <VEQUAL? AC22 'C2* - BOOL59>
 533 BOOL60
 534                     <FRAME '\1aLOAD-AC>
 535                     <PUSH ITM14>
 536                     <PUSH 'TYPE>
 537                     <PUSH UPDATE16>
 538                     <PUSH ASSIGN17>
 539                     <FRAME '\1aGET-AC>
 540                     <FRAME '\1aGETPROP>
 541                     <PUSH AC22>
 542                     <DEAD AC22>
 543                     <PUSH 'AC-PAIR>
 544                     <CALL '\1aGETPROP 2 = TEMP32>
 545                     <PUSH TEMP32>
 546                     <DEAD TEMP32>
 547                     <CALL '\1aGET-AC 1 = STACK>
 548                     <CALL '\1aLOAD-AC 5 = AC22>
 549                     <TYPE? AC22 <TYPE-CODE FALSE> + BOOL59>
 550                     <FRAME '\1aGET-AC>
 551                     <FRAME '\1aNEXT-AC>
 552                     <PUSH AC22>
 553                     <CALL '\1aNEXT-AC 1 = STACK>
 554                     <CALL '\1aGET-AC 1 = TEMP32>
 555                     <PUTUV TEMP32 3 'VALUE (TYPE ATOM)>
 556                     <PUTUV TEMP32 2 ITM14>
 557                     <DEAD TEMP32>
 558                     <JUMP + BOOL58>
 559 BOOL59
 560                     <FRAME '\1aGET-AC>
 561                     <PUSH AC22>
 562                     <CALL '\1aGET-AC 1 = TEMP32>
 563                     <NTHUV TEMP32 5 = TEMP32>
 564                     <TYPE? TEMP32 <TYPE-CODE FALSE> + PHRASE34>
 565                     <DEAD TEMP32>
 566                     <FRAME '\1aUPDATE-AC>
 567                     <FRAME '\1aGET-AC>
 568                     <PUSH AC22>
 569                     <CALL '\1aGET-AC 1 = STACK>
 570                     <CALL '\1aUPDATE-AC 1>
 571                     <FRAME '\1aGET-AC>
 572                     <PUSH AC22>
 573                     <DEAD AC22>
 574                     <CALL '\1aGET-AC 1 = TEMP32>
 575                     <PUTUV TEMP32 5 %<>>
 576                     <DEAD TEMP32>
 577                     <JUMP + PHRASE34>
 578 BOOL58
 579                     <TYPE? ASSIGN17 <TYPE-CODE FALSE> + PHRASE76>
 580                     <DEAD ASSIGN17>
 581                     <FRAME '\1aGET-AC>
 582                     <PUSH AC22>
 583                     <CALL '\1aGET-AC 1 = LAC18>
 584                     <PUTUV LAC18 5 UPDATE16>
 585                     <SETG 'ACA-AC LAC18>
 586                     <DEAD LAC18>
 587                     <SETG 'ACA-ITEM ITM14>
 588                     <DEAD ITM14>
 589                     <SETG 'ACA-BOTH BOTH20>
 590                     <VEQUAL? BOTH20 0 + PHRASE76>
 591                     <DEAD BOTH20>
 592                     <FRAME '\1aGET-AC>
 593                     <FRAME '\1aNEXT-AC>
 594                     <PUSH AC22>
 595                     <CALL '\1aNEXT-AC 1 = STACK>
 596                     <CALL '\1aGET-AC 1 = NAC19>
 597                     <PUTUV NAC19 5 UPDATE16>
 598                     <DEAD UPDATE16>
 599                     <SETG 'ACA-BOTH NAC19>
 600                     <DEAD NAC19>
 601 PHRASE76
 602                     <RETURN AC22>
 603                     <DEAD AC22>
 604 PHRASE34
 605                     <FRAME '\1aCLEAN-ACS>
 606                     <PUSH ITM14>
 607                     <CALL '\1aCLEAN-ACS 1>
 608                     <TYPE? LAC18 <TYPE-CODE FALSE> - EXIT92>
 609                     <TYPE? ITM14 <TYPE-CODE ATOM> - BOOL88>
 610                     <FRAME '\1aLOOK-AHEAD>
 611                     <GEN-LVAL 'MIML = TEMP32>
 612                     <REST1 TEMP32 = STACK>
 613                     <DEAD TEMP32>
 614                     <PUSH ITM14>
 615                     <PUSH TYP15>
 616                     <CALL '\1aLOOK-AHEAD 3 = LAC18>
 617                     <TYPE? LAC18 <TYPE-CODE FALSE> + BOOL88>
 618                     <TYPE? FIRST-AC24 <TYPE-CODE FALSE> - EXIT92>
 619                     <NTHUV LAC18 2 = TEMP32>
 620                     <TYPE? TEMP32 <TYPE-CODE ATOM> + BOOL88>
 621                     <DEAD TEMP32>
 622                     <VEQUAL? TYP15 'BOTH - EXIT92>
 623                     <FRAME '\1aGET-AC>
 624                     <FRAME '\1aNEXT-AC>
 625                     <PUSH LAC18>
 626                     <CALL '\1aNEXT-AC 1 = STACK>
 627                     <CALL '\1aGET-AC 1 = TEMP32>
 628                     <NTHUV TEMP32 2 = TEMP32>
 629                     <TYPE? TEMP32 <TYPE-CODE ATOM> - EXIT92>
 630                     <DEAD TEMP32>
 631 BOOL88
 632                     <GVAL 'AC-TABLE = TEMP32>
 633                     <RESTUV TEMP32 1 = ACT93 (TYPE VECTOR)>
 634                     <DEAD TEMP32>
 635                     <LOOP>
 636 AGAIN95
 637                     <INTGO>
 638                     <EMPUV? ACT93 + EXIT92 (TYPE VECTOR)>
 639                     <VEQUAL? BOTH20 0 + PHRASE97>
 640                     <LENUV ACT93 = TEMP32 (TYPE FIX)>
 641                     <VEQUAL? TEMP32 1 + EXIT92 (TYPE FIX)>
 642                     <DEAD TEMP32>
 643 PHRASE97
 644                     <VEQUAL? BOTH20 0 + PHRASE102>
 645                     <NTHUV ACT93 2 = TEMP32 (TYPE AC)>
 646                     <NTHUV TEMP32 1 = TEMP32 (TYPE ATOM)>
 647                     <VEQUAL? TEMP32 'X* + PHRASE135>
 648                     <DEAD TEMP32>
 649                     <NTHUV ACT93 1 = TEMP32 (TYPE AC)>
 650                     <NTHUV TEMP32 1 = TEMP32 (TYPE ATOM)>
 651                     <VEQUAL? TEMP32 'X* + PHRASE135>
 652                     <DEAD TEMP32>
 653                     <NTHUV ACT93 1 = AC22 (TYPE AC)>
 654                     <NTHUV AC22 4 = TEMP32 (TYPE FIX)>
 655                     <DEAD AC22>
 656                     <NTHUV ACT93 2 = AC22 (TYPE AC)>
 657                     <NTHUV AC22 4 = AC22 (TYPE FIX)>
 658                     <LESS? TEMP32 AC22 - TAG107>
 659                     <SET TEMP32 AC22 (TYPE FIX)>
 660                     <DEAD AC22>
 661 TAG107
 662                     <TYPE? FIRST-AC24 <TYPE-CODE FALSE> + PHRASE109>
 663                     <TYPE? LAC18 <TYPE-CODE FALSE> + BOOL113>
 664                     <NTHUV LAC18 2 = AC22>
 665                     <TYPE? AC22 <TYPE-CODE FALSE> + PHRASE109>
 666                     <DEAD AC22>
 667                     <NTHUV ACT93 1 = AC22 (TYPE AC)>
 668                     <NTHUV AC22 2 = AC22>
 669                     <TYPE? AC22 <TYPE-CODE FALSE> + BOOL113>
 670                     <DEAD AC22>
 671                     <NTHUV LAC18 5 = AC22>
 672                     <TYPE? AC22 <TYPE-CODE FALSE> + PHRASE109>
 673                     <DEAD AC22>
 674                     <NTHUV ACT93 1 = AC22 (TYPE AC)>
 675                     <NTHUV AC22 5 = AC22>
 676                     <TYPE? AC22 <TYPE-CODE FALSE> - PHRASE109>
 677                     <DEAD AC22>
 678 BOOL113
 679                     <SET AC22 TEMP32>
 680                     <DEAD TEMP32>
 681                     <GRTR? AC22 LOW21 - TAG115>
 682                     <SET AC22 LOW21 (TYPE FIX)>
 683                     <DEAD LOW21>
 684 TAG115
 685                     <SET LOW21 AC22>
 686                     <DEAD AC22>
 687                     <NTHUV ACT93 1 = LAC18 (TYPE AC)>
 688                     <NTHUV ACT93 2 = NAC19 (TYPE AC)>
 689                     <JUMP + PHRASE135>
 690 PHRASE109
 691                     <GRTR? TEMP32 LOW21 + PHRASE135 (TYPE FIX)>
 692                     <VEQUAL? LOW21 TEMP32 - BOOL122 (TYPE FIX)>
 693                     <TYPE? LAC18 <TYPE-CODE FALSE> + BOOL122>
 694                     <NTHUV LAC18 2 = AC22>
 695                     <TYPE? AC22 <TYPE-CODE FALSE> + PHRASE135>
 696                     <DEAD AC22>
 697                     <NTHUV ACT93 1 = AC22 (TYPE AC)>
 698                     <NTHUV AC22 2 = AC22>
 699                     <TYPE? AC22 <TYPE-CODE FALSE> + BOOL122>
 700                     <DEAD AC22>
 701                     <NTHUV LAC18 5 = AC22>
 702                     <TYPE? AC22 <TYPE-CODE FALSE> + PHRASE135>
 703                     <DEAD AC22>
 704                     <NTHUV ACT93 1 = AC22 (TYPE AC)>
 705                     <NTHUV AC22 5 = AC22>
 706                     <TYPE? AC22 <TYPE-CODE FALSE> - PHRASE135>
 707                     <DEAD AC22>
 708 BOOL122
 709                     <SET LOW21 TEMP32>
 710                     <DEAD TEMP32>
 711                     <NTHUV ACT93 1 = LAC18 (TYPE AC)>
 712                     <NTHUV ACT93 2 = NAC19 (TYPE AC)>
 713                     <JUMP + PHRASE135>
 714 PHRASE102
 715                     <NTHUV ACT93 1 = AC22 (TYPE AC)>
 716                     <NTHUV AC22 1 = AC22 (TYPE ATOM)>
 717                     <VEQUAL? AC22 'X* + PHRASE135>
 718                     <DEAD AC22>
 719                     <NTHUV ACT93 1 = AC22 (TYPE AC)>
 720                     <NTHUV AC22 1 = AC22 (TYPE ATOM)>
 721                     <VEQUAL? AC22 'T* + PHRASE135>
 722                     <DEAD AC22>
 723                     <NTHUV ACT93 1 = AC22 (TYPE AC)>
 724                     <NTHUV AC22 4 = TEMP32 (TYPE FIX)>
 725                     <DEAD AC22>
 726                     <TYPE? FIRST-AC24 <TYPE-CODE FALSE> + PHRASE127>
 727                     <TYPE? LAC18 <TYPE-CODE FALSE> + BOOL131>
 728                     <NTHUV LAC18 2 = AC22>
 729                     <TYPE? AC22 <TYPE-CODE FALSE> + PHRASE127>
 730                     <DEAD AC22>
 731                     <NTHUV ACT93 1 = AC22 (TYPE AC)>
 732                     <NTHUV AC22 2 = AC22>
 733                     <TYPE? AC22 <TYPE-CODE FALSE> + BOOL131>
 734                     <DEAD AC22>
 735                     <NTHUV LAC18 5 = AC22>
 736                     <TYPE? AC22 <TYPE-CODE FALSE> + PHRASE127>
 737                     <DEAD AC22>
 738                     <NTHUV ACT93 1 = AC22 (TYPE AC)>
 739                     <NTHUV AC22 5 = AC22>
 740                     <TYPE? AC22 <TYPE-CODE FALSE> - PHRASE127>
 741                     <DEAD AC22>
 742 BOOL131
 743                     <NTHUV ACT93 1 = LAC18 (TYPE AC)>
 744                     <SET LOW21 TEMP32>
 745                     <DEAD TEMP32>
 746                     <JUMP + PHRASE135>
 747 PHRASE127
 748                     <GRTR? TEMP32 LOW21 + PHRASE135 (TYPE FIX)>
 749                     <VEQUAL? LOW21 TEMP32 - BOOL138 (TYPE FIX)>
 750                     <TYPE? LAC18 <TYPE-CODE FALSE> + BOOL138>
 751                     <NTHUV LAC18 2 = AC22>
 752                     <TYPE? AC22 <TYPE-CODE FALSE> + PHRASE135>
 753                     <DEAD AC22>
 754                     <NTHUV ACT93 1 = AC22 (TYPE AC)>
 755                     <NTHUV AC22 2 = AC22>
 756                     <TYPE? AC22 <TYPE-CODE FALSE> + BOOL138>
 757                     <DEAD AC22>
 758                     <NTHUV LAC18 5 = AC22>
 759                     <TYPE? AC22 <TYPE-CODE FALSE> + PHRASE135>
 760                     <DEAD AC22>
 761                     <NTHUV ACT93 1 = AC22 (TYPE AC)>
 762                     <NTHUV AC22 5 = AC22>
 763                     <TYPE? AC22 <TYPE-CODE FALSE> - PHRASE135>
 764                     <DEAD AC22>
 765 BOOL138
 766                     <SET LOW21 TEMP32>
 767                     <DEAD TEMP32>
 768                     <NTHUV ACT93 1 = LAC18 (TYPE AC)>
 769 PHRASE135
 770                     <VEQUAL? BOTH20 0 + PHRASE141>
 771                     <RESTUV ACT93 2 = ACT93 (TYPE VECTOR)>
 772                     <JUMP + AGAIN95>
 773 PHRASE141
 774                     <RESTUV ACT93 1 = ACT93 (TYPE VECTOR)>
 775                     <JUMP + AGAIN95>
 776 EXIT92
 777                     <VEQUAL? BOTH20 0 + PHRASE144>
 778                     <TYPE? NAC19 <TYPE-CODE FALSE> - PHRASE144>
 779                     <FRAME '\1aGET-AC>
 780                     <FRAME '\1aNEXT-AC>
 781                     <PUSH LAC18>
 782                     <CALL '\1aNEXT-AC 1 = STACK>
 783                     <CALL '\1aGET-AC 1 = NAC19>
 784 PHRASE144
 785                     <NTHUV LAC18 5 = AC22>
 786                     <TYPE? AC22 <TYPE-CODE FALSE> + PHRASE149>
 787                     <DEAD AC22>
 788                     <FRAME '\1aUPDATE-AC>
 789                     <PUSH LAC18>
 790                     <CALL '\1aUPDATE-AC 1>
 791 PHRASE149
 792                     <TYPE? ASSIGN17 <TYPE-CODE FALSE> + PHRASE152>
 793                     <SETG 'ACA-AC LAC18>
 794                     <SETG 'ACA-ITEM ITM14>
 795                     <SETG 'ACA-BOTH BOTH20>
 796                     <CHTYPE LAC18 <TYPE-CODE AC> = AC22>
 797                     <PUTUV AC22 2 #LOSE 0>
 798                     <DEAD AC22>
 799                     <JUMP + PHRASE154>
 800 PHRASE152
 801                     <TYPE? ITM14 <TYPE-CODE ATOM> - PHRASE153>
 802                     <CHTYPE LAC18 <TYPE-CODE AC> = AC22>
 803                     <PUTUV AC22 2 ITM14>
 804                     <DEAD AC22>
 805                     <JUMP + PHRASE154>
 806 PHRASE153
 807                     <CHTYPE LAC18 <TYPE-CODE AC> = AC22>
 808                     <PUTUV AC22 2 %<>>
 809                     <DEAD AC22>
 810 PHRASE154
 811                     <CHTYPE LAC18 <TYPE-CODE AC> = AC22>
 812                     <TYPE? BOTH20 <TYPE-CODE FALSE> + PHRASE156>
 813                     <SET FIRST-AC24 'TYPE (TYPE ATOM)>
 814                     <JUMP + COND155>
 815 PHRASE156
 816                     <SET FIRST-AC24 TYP15>
 817 COND155
 818                     <PUTUV AC22 3 FIRST-AC24 (TYPE ATOM)>
 819                     <DEAD AC22 FIRST-AC24>
 820                     <FRAME '\1aGET-AC>
 821                     <PUSH 'T*>
 822                     <CALL '\1aGET-AC 1 = AC22>
 823                     <EQUAL? LAC18 AC22 + BOOL158>
 824                     <DEAD AC22>
 825                     <CHTYPE LAC18 <TYPE-CODE AC> = AC22>
 826                     <GVAL 'AC-STAMP = FIRST-AC24>
 827                     <PUTUV AC22 4 FIRST-AC24 (TYPE FIX)>
 828                     <DEAD AC22 FIRST-AC24>
 829 BOOL158
 830                     <CHTYPE LAC18 <TYPE-CODE AC> = AC22>
 831                     <PUTUV AC22 6 %<>>
 832                     <DEAD AC22>
 833                     <TYPE? BOTH20 <TYPE-CODE FALSE> + PHRASE161>
 834                     <NTHUV NAC19 5 = AC22>
 835                     <TYPE? AC22 <TYPE-CODE FALSE> + PHRASE163>
 836                     <DEAD AC22>
 837                     <FRAME '\1aUPDATE-AC>
 838                     <PUSH NAC19>
 839                     <CALL '\1aUPDATE-AC 1>
 840 PHRASE163
 841                     <TYPE? ASSIGN17 <TYPE-CODE FALSE> + PHRASE166>
 842                     <SETG 'ACA-BOTH NAC19>
 843                     <CHTYPE NAC19 <TYPE-CODE AC> = AC22>
 844                     <PUTUV AC22 2 #LOSE 0>
 845                     <DEAD AC22>
 846                     <JUMP + PHRASE168>
 847 PHRASE166
 848                     <TYPE? ITM14 <TYPE-CODE ATOM> - PHRASE167>
 849                     <CHTYPE NAC19 <TYPE-CODE AC> = AC22>
 850                     <PUTUV AC22 2 ITM14>
 851                     <DEAD AC22>
 852                     <JUMP + PHRASE168>
 853 PHRASE167
 854                     <CHTYPE NAC19 <TYPE-CODE AC> = AC22>
 855                     <PUTUV AC22 2 %<>>
 856                     <DEAD AC22>
 857 PHRASE168
 858                     <CHTYPE NAC19 <TYPE-CODE AC> = AC22>
 859                     <PUTUV AC22 3 'VALUE (TYPE ATOM)>
 860                     <DEAD AC22>
 861                     <CHTYPE NAC19 <TYPE-CODE AC> = AC22>
 862                     <GVAL 'AC-STAMP = FIRST-AC24>
 863                     <PUTUV AC22 4 FIRST-AC24 (TYPE FIX)>
 864                     <DEAD AC22 FIRST-AC24>
 865                     <CHTYPE NAC19 <TYPE-CODE AC> = AC22>
 866                     <PUTUV AC22 5 UPDATE16>
 867                     <DEAD AC22>
 868                     <CHTYPE NAC19 <TYPE-CODE AC> = AC22>
 869                     <PUTUV AC22 6 %<>>
 870                     <DEAD AC22>
 871 PHRASE161
 872                     <CHTYPE LAC18 <TYPE-CODE AC> = AC22>
 873                     <PUTUV AC22 5 UPDATE16>
 874                     <DEAD AC22 UPDATE16>
 875                     <TYPE? ASSIGN17 <TYPE-CODE FALSE> - PHRASE245>
 876                     <DEAD ASSIGN17>
 877                     <TYPE? ITM14 <TYPE-CODE ATOM> - PHRASE170>
 878                     <FRAME '\1aLMEMQ>
 879                     <PUSH ITM14>
 880                     <GVAL 'LOCALS = STACK>
 881                     <CALL '\1aLMEMQ 2 = FIRST-AC24>
 882                     <VEQUAL? FIRST-AC24 0 - BOOL173>
 883                     <GVAL 'ICALL-FLAG = AC22>
 884                     <TYPE? AC22 <TYPE-CODE FALSE> + PHRASE172>
 885                     <DEAD AC22>
 886                     <FRAME '\1aLMEMQ>
 887                     <PUSH ITM14>
 888                     <GVAL 'ICALL-TEMPS = STACK>
 889                     <CALL '\1aLMEMQ 2 = FIRST-AC24>
 890                     <VEQUAL? FIRST-AC24 0 + PHRASE172>
 891 BOOL173
 892                     <NTHUV FIRST-AC24 3 = ITM14 (TYPE LOCAL-NAME)>
 893                     <DEAD FIRST-AC24>
 894                     <GVAL 'WINNING-VICTIM = AC22>
 895                     <TYPE? AC22 <TYPE-CODE FALSE> + PHRASE178>
 896                     <DEAD AC22>
 897                     <SET LOW21 (TP*) (TYPE LIST)>
 898                     <JUMP + PHRASE179>
 899 PHRASE178
 900                     <SET LOW21 (F*) (TYPE LIST)>
 901 PHRASE179
 902                     <TYPE? BOTH20 <TYPE-CODE FALSE> + PHRASE181>
 903                     <DEAD BOTH20>
 904                     <FRAME '\1aOCEMIT>
 905                     <PUSH 'DMOVE>
 906                     <PUSH LAC18>
 907                     <GVAL 'STACK-DEPTH = AC22>
 908                     <SUB 0 AC22 = STACK (TYPE FIX)>
 909                     <DEAD AC22>
 910                     <PUSH ITM14>
 911                     <DEAD ITM14>
 912                     <PUSH LOW21>
 913                     <DEAD LOW21>
 914                     <CALL '\1aOCEMIT 5>
 915                     <JUMP + PHRASE245>
 916 PHRASE181
 917                     <VEQUAL? TYP15 'VALUE - PHRASE183>
 918                     <FRAME '\1aOCEMIT>
 919                     <PUSH 'MOVE>
 920                     <PUSH LAC18>
 921                     <GVAL 'STACK-DEPTH = AC22>
 922                     <SUB 1 AC22 = STACK (TYPE FIX)>
 923                     <DEAD AC22>
 924                     <PUSH ITM14>
 925                     <DEAD ITM14>
 926                     <PUSH LOW21>
 927                     <DEAD LOW21>
 928                     <CALL '\1aOCEMIT 5>
 929                     <JUMP + PHRASE245>
 930 PHRASE183
 931                     <VEQUAL? TYP15 'LENGTH - PHRASE185>
 932                     <FRAME '\1aOCEMIT>
 933                     <PUSH 'HRRZ>
 934                     <PUSH LAC18>
 935                     <GVAL 'STACK-DEPTH = AC22>
 936                     <SUB 0 AC22 = STACK (TYPE FIX)>
 937                     <DEAD AC22>
 938                     <PUSH ITM14>
 939                     <DEAD ITM14>
 940                     <PUSH LOW21>
 941                     <DEAD LOW21>
 942                     <CALL '\1aOCEMIT 5>
 943                     <JUMP + PHRASE245>
 944 PHRASE185
 945                     <VEQUAL? TYP15 'TYPECODE - PHRASE187>
 946                     <DEAD TYP15>
 947                     <FRAME '\1aLOAD-TYPE>
 948                     <NTHUV LAC18 1 = STACK (TYPE ATOM)>
 949                     <CONS LOW21 () = AC22>
 950                     <DEAD LOW21>
 951                     <CONS ITM14 AC22 = AC22>
 952                     <DEAD ITM14>
 953                     <GVAL 'STACK-DEPTH = FIRST-AC24>
 954                     <SUB 0 FIRST-AC24 = FIRST-AC24 (TYPE FIX)>
 955                     <CONS FIRST-AC24 AC22 = STACK>
 956                     <DEAD FIRST-AC24 AC22>
 957                     <CALL '\1aLOAD-TYPE 2>
 958                     <JUMP + PHRASE245>
 959 PHRASE187
 960                     <FRAME '\1aOCEMIT>
 961                     <PUSH 'MOVE>
 962                     <PUSH LAC18>
 963                     <GVAL 'STACK-DEPTH = AC22>
 964                     <SUB 0 AC22 = STACK (TYPE FIX)>
 965                     <DEAD AC22>
 966                     <PUSH ITM14>
 967                     <DEAD ITM14>
 968                     <PUSH LOW21>
 969                     <DEAD LOW21>
 970                     <CALL '\1aOCEMIT 5>
 971                     <JUMP + PHRASE245>
 972 PHRASE172
 973                     <FRAME '\1aMIMOCERR>
 974                     <PUSH 'UNKNOWN-LOCAL!-ERRORS>
 975                     <PUSH ITM14>
 976                     <DEAD ITM14>
 977                     <CALL '\1aMIMOCERR 2>
 978                     <JUMP + PHRASE245>
 979 PHRASE170
 980                     <FRAME '\1aPRIMTYPE>
 981                     <PUSH ITM14>
 982                     <CALL '\1aPRIMTYPE 1 = LOW21>
 983                     <VEQUAL? LOW21 'WORD + BOOL197>
 984                     <VEQUAL? LOW21 'FIX - BOOL196>
 985                     <DEAD LOW21>
 986 BOOL197
 987                     <GVAL 'MAX-IMMEDIATE = AC22>
 988                     <CHTYPE ITM14 <TYPE-CODE FIX> = FIRST-AC24>
 989                     <LESS? FIRST-AC24 0 - TAG200 (TYPE FIX)>
 990                     <SUB 0 FIRST-AC24 = FIRST-AC24 (TYPE FIX)>
 991 TAG200
 992                     <GRTR? AC22 FIRST-AC24 + BOOL195 (TYPE FIX)>
 993                     <DEAD AC22 FIRST-AC24>
 994                     <AND ITM14 #WORD *777777* = AC22>
 995                     <VEQUAL? AC22 0 + BOOL195 (TYPE FIX)>
 996                     <DEAD AC22>
 997 BOOL196
 998                     <FRAME '\1aPRIMTYPE>
 999                     <PUSH ITM14>
1000                     <CALL '\1aPRIMTYPE 1 = AC22>
1001                     <VEQUAL? AC22 'LIST - PHRASE193>
1002                     <DEAD AC22>
1003                     <EMPL? ITM14 - PHRASE193 (TYPE LIST)>
1004 BOOL195
1005                     <VEQUAL? TYP15 'FREE + TAG208>
1006                     <VEQUAL? TYP15 'VALUE + TAG208>
1007                     <VEQUAL? TYP15 'BOTH - PHRASE193>
1008                     <FRAME '\1aTYPE>
1009                     <PUSH ITM14>
1010                     <CALL '\1aTYPE 1 = AC22>
1011                     <GVAL 'TYPE-WORDS = FIRST-AC24>
1012                     <EMPUV? FIRST-AC24 + PHRASE193>
1013                     <LOOP (AC22 VALUE) (FIRST-AC24 LENGTH VALUE)>
1014 TAG209
1015                     <NTHUV FIRST-AC24 1 = TEMP32>
1016                     <TYPE? TEMP32 <TYPE-CODE ATOM> - TAG210>
1017                     <VEQUAL? TEMP32 AC22 + TAG208>
1018                     <DEAD TEMP32>
1019 TAG210
1020                     <RESTUV FIRST-AC24 1 = FIRST-AC24 (TYPE VECTOR)>
1021                     <EMPUV? FIRST-AC24 - TAG209>
1022                     <JUMP + PHRASE193>
1023 TAG208
1024                     <VEQUAL? TYP15 'BOTH - PHRASE214>
1025                     <DEAD TYP15>
1026                     <FRAME '\1aLOAD-TYPE-IN-AC>
1027                     <NTHUV LAC18 1 = STACK (TYPE ATOM)>
1028                     <FRAME '\1aTYPE>
1029                     <PUSH ITM14>
1030                     <CALL '\1aTYPE 1 = STACK>
1031                     <CALL '\1aLOAD-TYPE-IN-AC 2>
1032                     <SET BOTH20 NAC19>
1033                     <DEAD NAC19>
1034                     <JUMP + COND213>
1035 PHRASE214
1036                     <SET BOTH20 LAC18>
1037 COND213
1038                     <FRAME '\1aPRIMTYPE>
1039                     <PUSH ITM14>
1040                     <CALL '\1aPRIMTYPE 1 = FIRST-AC24>
1041                     <VEQUAL? FIRST-AC24 'LIST - PHRASE218>
1042                     <DEAD FIRST-AC24>
1043                     <FRAME '\1aOCEMIT>
1044                     <PUSH 'MOVEI>
1045                     <PUSH BOTH20>
1046                     <DEAD BOTH20>
1047                     <PUSH 0>
1048                     <CALL '\1aOCEMIT 3>
1049                     <JUMP + PHRASE245>
1050 PHRASE218
1051                     <AND ITM14 #WORD *777777* = FIRST-AC24>
1052                     <VEQUAL? FIRST-AC24 0 - PHRASE221 (TYPE FIX)>
1053                     <DEAD FIRST-AC24>
1054                     <FRAME '\1aOCEMIT>
1055                     <PUSH 'MOVSI>
1056                     <PUSH BOTH20>
1057                     <DEAD BOTH20>
1058                     <LSH ITM14 -18 = STACK (TYPE FIX)>
1059                     <DEAD ITM14>
1060                     <CALL '\1aOCEMIT 3>
1061                     <JUMP + PHRASE245>
1062 PHRASE221
1063                     <CHTYPE ITM14 <TYPE-CODE FIX> = ITM14>
1064                     <LESS? ITM14 0 - PHRASE227 (TYPE FIX)>
1065                     <FRAME '\1aOCEMIT>
1066                     <PUSH 'MOVNI>
1067                     <PUSH BOTH20>
1068                     <DEAD BOTH20>
1069                     <SET FIRST-AC24 ITM14>
1070                     <DEAD ITM14>
1071                     <LESS? FIRST-AC24 0 - TAG231 (TYPE FIX)>
1072                     <SUB 0 FIRST-AC24 = FIRST-AC24 (TYPE FIX)>
1073 TAG231
1074                     <PUSH FIRST-AC24>
1075                     <DEAD FIRST-AC24>
1076                     <CALL '\1aOCEMIT 3>
1077                     <JUMP + PHRASE245>
1078 PHRASE227
1079                     <FRAME '\1aOCEMIT>
1080                     <PUSH 'MOVEI>
1081                     <PUSH BOTH20>
1082                     <DEAD BOTH20>
1083                     <PUSH ITM14>
1084                     <DEAD ITM14>
1085                     <CALL '\1aOCEMIT 3>
1086                     <JUMP + PHRASE245>
1087 PHRASE193
1088                     <FRAME '\1aMVADD>
1089                     <PUSH ITM14>
1090                     <DEAD ITM14>
1091                     <CALL '\1aMVADD 1 = TEMP32>
1092                     <ADD TEMP32 1 = FIRST-AC24 (TYPE FIX)>
1093                     <DEAD TEMP32>
1094                     <LSH FIRST-AC24 1 = TEMP32 (TYPE FIX)>
1095                     <DEAD FIRST-AC24>
1096                     <TYPE? BOTH20 <TYPE-CODE FALSE> + PHRASE237>
1097                     <DEAD BOTH20>
1098                     <FRAME '\1aOCEMIT>
1099                     <PUSH 'DMOVE>
1100                     <PUSH LAC18>
1101                     <PUSH TEMP32>
1102                     <DEAD TEMP32>
1103                     <PUSH (M*)>
1104                     <CALL '\1aOCEMIT 4>
1105                     <JUMP + PHRASE245>
1106 PHRASE237
1107                     <VEQUAL? TYP15 'VALUE - PHRASE239>
1108                     <FRAME '\1aOCEMIT>
1109                     <PUSH 'MOVE>
1110                     <PUSH LAC18>
1111                     <PUSH 1>
1112                     <PUSH TEMP32>
1113                     <DEAD TEMP32>
1114                     <PUSH (M*)>
1115                     <CALL '\1aOCEMIT 5>
1116                     <JUMP + PHRASE245>
1117 PHRASE239
1118                     <VEQUAL? TYP15 'LENGTH - PHRASE241>
1119                     <FRAME '\1aOCEMIT>
1120                     <PUSH 'HRRZ>
1121                     <PUSH LAC18>
1122                     <PUSH TEMP32>
1123                     <DEAD TEMP32>
1124                     <PUSH (M*)>
1125                     <CALL '\1aOCEMIT 4>
1126                     <JUMP + PHRASE245>
1127 PHRASE241
1128                     <VEQUAL? TYP15 'TYPECODE - PHRASE243>
1129                     <DEAD TYP15>
1130                     <FRAME '\1aLOAD-TYPE>
1131                     <NTHUV LAC18 1 = STACK (TYPE ATOM)>
1132                     <CONS (M*) () = FIRST-AC24>
1133                     <CONS TEMP32 FIRST-AC24 = STACK>
1134                     <DEAD TEMP32 FIRST-AC24>
1135                     <CALL '\1aLOAD-TYPE 2>
1136                     <JUMP + PHRASE245>
1137 PHRASE243
1138                     <FRAME '\1aOCEMIT>
1139                     <PUSH 'MOVE>
1140                     <PUSH LAC18>
1141                     <PUSH TEMP32>
1142                     <DEAD TEMP32>
1143                     <PUSH (M*)>
1144                     <CALL '\1aOCEMIT 4>
1145 PHRASE245
1146                     <NTHUV LAC18 1 = TEMP32 (TYPE ATOM)>
1147                     <DEAD LAC18>
1148                     <RETURN TEMP32>
1149                     <DEAD TEMP32>
1150                     <END \1aLOAD-AC>
1151 #WORD *32257705565*
1152 <GFCN \1aLABEL-PREF ("VALUE" <OR AC FALSE> ATOM ATOM ATOM) LBL5 VAR6 TYP7>
1153                     <TEMP LB8 TEMP13 L9 ACS31>
1154                     <INTGO>
1155                     <FRAME '\1aFIND-LABEL>
1156                     <PUSH LBL5>
1157                     <CALL '\1aFIND-LABEL 1 = LB8>
1158                     <SET TEMP13 LB8>
1159                     <TYPE? TEMP13 <TYPE-CODE FALSE> + MAPEX23>
1160                     <VEQUAL? LBL5 'COMPERR - TAG15>
1161                     <DEAD LBL5>
1162                     <RETURN %<>>
1163 TAG15
1164                     <NTHUV LB8 5 = L9>
1165                     <TYPE? L9 <TYPE-CODE FALSE> - BOOL16>
1166                     <NTHUV LB8 4 = L9 (TYPE LIST)>
1167                     <EMPL? L9 - TAG18 (TYPE LIST)>
1168                     <DEAD L9>
1169                     <RETURN %<>>
1170 TAG18
1171                     <NTHUV LB8 4 = L9 (TYPE LIST)>
1172                     <DEAD LB8>
1173                     <NTHL L9 1 = L9 (TYPE LABSTATE)>
1174 BOOL16
1175                     <SET TEMP13 %<> (TYPE FALSE)>
1176                     <LOOP>
1177 MAP21
1178                     <INTGO>
1179                     <EMPTY? L9 + MAPAP24>
1180                     <SET LB8 L9>
1181                     <NTH1 LB8 = ACS31>
1182                     <NTHUV ACS31 2 = TEMP13>
1183                     <TYPE? TEMP13 <TYPE-CODE FALSE> + BOOL39>
1184                     <DEAD TEMP13>
1185                     <NTHUV ACS31 2 = TEMP13 (TYPE LOCAL)>
1186                     <NTHUV TEMP13 1 = TEMP13 (TYPE ATOM)>
1187                     <VEQUAL? TEMP13 VAR6 - BOOL39>
1188                     <DEAD TEMP13>
1189                     <NTHUV ACS31 5 = TEMP13 (TYPE ATOM)>
1190                     <VEQUAL? TEMP13 TYP7 + TAG45>
1191                     <DEAD TEMP13>
1192                     <VEQUAL? TYP7 'BOTH - BOOL39>
1193                     <NTHUV ACS31 5 = TEMP13 (TYPE ATOM)>
1194                     <VEQUAL? TEMP13 'TYPE + TAG45>
1195                     <DEAD TEMP13>
1196 BOOL39
1197                     <VEQUAL? TYP7 'BOTH + TAG41>
1198                     <SET TEMP13 %<> (TYPE FALSE)>
1199                     <JUMP + PHRASE34>
1200 TAG41
1201                     <REST1 LB8 = TEMP13>
1202                     <EMPTY? TEMP13 - TAG42>
1203                     <DEAD TEMP13>
1204                     <SET TEMP13 %<> (TYPE FALSE)>
1205                     <JUMP + PHRASE34>
1206 TAG42
1207                     <FRAME '\1aNTH>
1208                     <PUSH LB8>
1209                     <DEAD LB8>
1210                     <PUSH 2>
1211                     <CALL '\1aNTH 2 = LB8>
1212                     <NTHUV LB8 2 = TEMP13>
1213                     <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE34>
1214                     <NTHUV LB8 2 = TEMP13 (TYPE LOCAL)>
1215                     <NTHUV TEMP13 1 = TEMP13 (TYPE ATOM)>
1216                     <VEQUAL? TEMP13 VAR6 + TAG44>
1217                     <DEAD TEMP13>
1218                     <SET TEMP13 %<> (TYPE FALSE)>
1219                     <JUMP + PHRASE34>
1220 TAG44
1221                     <NTHUV LB8 5 = TEMP13 (TYPE ATOM)>
1222                     <DEAD LB8>
1223                     <VEQUAL? TEMP13 'VALUE + TAG45>
1224                     <DEAD TEMP13>
1225                     <SET TEMP13 %<> (TYPE FALSE)>
1226                     <JUMP + PHRASE34>
1227 TAG45
1228                     <NTHUV ACS31 1 = TEMP13 (TYPE AC)>
1229                     <DEAD ACS31>
1230                     <RETURN TEMP13>
1231                     <DEAD TEMP13>
1232 PHRASE34
1233                     <REST1 L9 = L9>
1234                     <JUMP + MAP21>
1235 MAPAP24
1236 MAPEX23
1237                     <RETURN TEMP13>
1238                     <DEAD TEMP13>
1239                     <END \1aLABEL-PREF>
1240 #WORD *37715720105*
1241 <GFCN \1aLOOK-AHEAD ("VALUE" <OR AC FALSE> LIST ATOM ATOM) L5 ITM6 TYP7>
1242                     <TEMP TEMP10 X15 Y16 TEMP54>
1243                     <INTGO>
1244                     <VEQUAL? ITM6 'STACK - TAG11>
1245                     <RETURN %<>>
1246 TAG11
1247                     <LOOP>
1248 AGAIN17
1249                     <INTGO>
1250                     <EMPL? L5 - PHRASE19 (TYPE LIST)>
1251                     <RETURN %<>>
1252 PHRASE19
1253                     <NTHL L5 1 = TEMP10>
1254                     <TYPE? TEMP10 <TYPE-CODE ATOM> - PHRASE25>
1255                     <FRAME '\1aLABEL-PREF>
1256                     <PUSH TEMP10>
1257                     <DEAD TEMP10>
1258                     <PUSH ITM6>
1259                     <DEAD ITM6>
1260                     <PUSH TYP7>
1261                     <DEAD TYP7>
1262                     <CALL '\1aLABEL-PREF 3 = X15>
1263                     <TYPE? X15 <TYPE-CODE FALSE> + PHRASE24>
1264                     <RETURN X15>
1265                     <DEAD X15>
1266 PHRASE24
1267                     <RETURN %<>>
1268 PHRASE25
1269                     <TYPE? TEMP10 <TYPE-CODE FORM> - PHRASE83>
1270                     <EMPL? TEMP10 + PHRASE83 (TYPE FORM)>
1271                     <FRAME '\1aGETPROP>
1272                     <NTHL TEMP10 1 = X15>
1273                     <PUSH X15>
1274                     <PUSH 'LOOKA-AHEAD>
1275                     <CALL '\1aGETPROP 2 = Y16>
1276                     <TYPE? Y16 <TYPE-CODE FALSE> + PHRASE29>
1277                     <FRAME '\1aSPECIAL-PREF>
1278                     <PUSH Y16>
1279                     <DEAD Y16>
1280                     <PUSH TEMP10>
1281                     <DEAD TEMP10>
1282                     <PUSH ITM6>
1283                     <PUSH TYP7>
1284                     <CALL '\1aSPECIAL-PREF 4>
1285                     <JUMP + PHRASE83>
1286 PHRASE29
1287                     <EQUAL? X15 'CONS - PHRASE47>
1288                     <RESTL TEMP10 1 = Y16 (TYPE LIST)>
1289                     <NTHL Y16 1 = Y16>
1290                     <EQUAL? Y16 ITM6 - PHRASE34>
1291                     <DEAD Y16>
1292                     <VEQUAL? TYP7 'VALUE - PHRASE37>
1293                     <DEAD TYP7>
1294                     <FRAME '\1aGET-AC>
1295                     <PUSH 'B2*>
1296                     <CALL '\1aGET-AC 1 = TEMP10>
1297                     <RETURN TEMP10>
1298                     <DEAD TEMP10>
1299 PHRASE37
1300                     <FRAME '\1aGET-AC>
1301                     <PUSH 'B1*>
1302                     <CALL '\1aGET-AC 1 = TEMP10>
1303                     <RETURN TEMP10>
1304                     <DEAD TEMP10>
1305 PHRASE34
1306                     <RESTL TEMP10 1 = Y16 (TYPE LIST)>
1307                     <DEAD TEMP10>
1308                     <RESTL Y16 1 = Y16 (TYPE LIST)>
1309                     <NTHL Y16 1 = Y16>
1310                     <EQUAL? Y16 ITM6 - PHRASE41>
1311                     <DEAD Y16>
1312                     <VEQUAL? TYP7 'VALUE - PHRASE43>
1313                     <DEAD TYP7>
1314                     <FRAME '\1aGET-AC>
1315                     <PUSH 'C2*>
1316                     <CALL '\1aGET-AC 1 = TEMP10>
1317                     <RETURN TEMP10>
1318                     <DEAD TEMP10>
1319 PHRASE43
1320                     <FRAME '\1aGET-AC>
1321                     <PUSH 'C1*>
1322                     <CALL '\1aGET-AC 1 = TEMP10>
1323                     <RETURN TEMP10>
1324                     <DEAD TEMP10>
1325 PHRASE41
1326                     <RETURN %<>>
1327 PHRASE47
1328                     <SET Y16 TEMP10>
1329                     <CHTYPE Y16 <TYPE-CODE LIST> = Y16>
1330                     <LOOP (Y16 VALUE)>
1331 TAG52
1332                     <NTHL Y16 1 = TEMP54>
1333                     <TYPE? TEMP54 <TYPE-CODE ATOM> - TAG53>
1334                     <VEQUAL? TEMP54 '+ + TAG56>
1335                     <DEAD TEMP54>
1336 TAG53
1337                     <RESTL Y16 1 = Y16 (TYPE LIST)>
1338                     <EMPL? Y16 - TAG52>
1339                     <SET Y16 TEMP10>
1340                     <CHTYPE Y16 <TYPE-CODE LIST> = Y16>
1341                     <LOOP (Y16 VALUE)>
1342 TAG57
1343                     <NTHL Y16 1 = TEMP54>
1344                     <TYPE? TEMP54 <TYPE-CODE ATOM> - TAG58>
1345                     <VEQUAL? TEMP54 '- + TAG56>
1346                     <DEAD TEMP54>
1347 TAG58
1348                     <RESTL Y16 1 = Y16 (TYPE LIST)>
1349                     <EMPL? Y16 - TAG57>
1350                     <SET Y16 %<> (TYPE FALSE)>
1351 TAG56
1352                     <TYPE? Y16 <TYPE-CODE FALSE> + PHRASE48>
1353                     <FRAME '\1aLABEL-PREF>
1354                     <RESTL Y16 1 = Y16 (TYPE LIST)>
1355                     <NTHL Y16 1 = STACK (TYPE ATOM)>
1356                     <DEAD Y16>
1357                     <PUSH ITM6>
1358                     <PUSH TYP7>
1359                     <CALL '\1aLABEL-PREF 3 = Y16>
1360                     <TYPE? Y16 <TYPE-CODE FALSE> + PHRASE83>
1361                     <RETURN Y16>
1362                     <DEAD Y16>
1363 PHRASE48
1364                     <EQUAL? X15 'SET - PHRASE62>
1365                     <RESTL TEMP10 1 = Y16 (TYPE LIST)>
1366                     <NTHL Y16 1 = Y16>
1367                     <EQUAL? Y16 ITM6 - PHRASE62>
1368                     <DEAD Y16>
1369                     <RETURN %<>>
1370 PHRASE62
1371                     <CHTYPE TEMP10 <TYPE-CODE LIST> = Y16>
1372                     <LOOP (Y16 VALUE)>
1373 TAG68
1374                     <NTHL Y16 1 = TEMP54>
1375                     <TYPE? TEMP54 <TYPE-CODE ATOM> - TAG69>
1376                     <VEQUAL? TEMP54 '= + TAG67>
1377                     <DEAD TEMP54>
1378 TAG69
1379                     <RESTL Y16 1 = Y16 (TYPE LIST)>
1380                     <EMPL? Y16 - TAG68>
1381                     <SET Y16 %<> (TYPE FALSE)>
1382                     <JUMP + TAG70>
1383 TAG67
1384 TAG70
1385                     <TYPE? Y16 <TYPE-CODE FALSE> + PHRASE64>
1386                     <RESTL Y16 1 = Y16 (TYPE LIST)>
1387                     <NTHL Y16 1 = Y16>
1388                     <EQUAL? Y16 ITM6 - PHRASE64>
1389                     <DEAD Y16>
1390                     <RETURN %<>>
1391 PHRASE64
1392                     <EQUAL? X15 'DEAD - PHRASE71>
1393                     <RESTL TEMP10 1 = Y16 (TYPE LIST)>
1394                     <CHTYPE Y16 <TYPE-CODE LIST> = Y16>
1395                     <EMPL? Y16 + PHRASE71>
1396                     <LOOP (ITM6 VALUE) (Y16 VALUE)>
1397 TAG74
1398                     <NTHL Y16 1 = TEMP54>
1399                     <TYPE? TEMP54 <TYPE-CODE ATOM> - TAG75>
1400                     <VEQUAL? TEMP54 ITM6 + TAG73>
1401                     <DEAD TEMP54>
1402 TAG75
1403                     <RESTL Y16 1 = Y16 (TYPE LIST)>
1404                     <EMPL? Y16 - TAG74>
1405                     <JUMP + PHRASE71>
1406 TAG73
1407                     <RETURN %<>>
1408 PHRASE71
1409                     <EQUAL? X15 'RETURN - PHRASE81>
1410                     <RESTL TEMP10 1 = Y16 (TYPE LIST)>
1411                     <DEAD TEMP10>
1412                     <NTHL Y16 1 = Y16>
1413                     <EQUAL? Y16 ITM6 - PHRASE81>
1414                     <DEAD Y16>
1415                     <VEQUAL? TYP7 'VALUE - PHRASE79>
1416                     <DEAD TYP7>
1417                     <FRAME '\1aGET-AC>
1418                     <PUSH 'A2*>
1419                     <CALL '\1aGET-AC 1 = TEMP10>
1420                     <RETURN TEMP10>
1421                     <DEAD TEMP10>
1422 PHRASE79
1423                     <FRAME '\1aGET-AC>
1424                     <PUSH 'A1*>
1425                     <CALL '\1aGET-AC 1 = TEMP10>
1426                     <RETURN TEMP10>
1427                     <DEAD TEMP10>
1428 PHRASE81
1429                     <EQUAL? X15 'RETURN - PHRASE83>
1430                     <DEAD X15>
1431                     <RETURN %<>>
1432 PHRASE83
1433                     <RESTL L5 1 = L5 (TYPE LIST)>
1434                     <JUMP + AGAIN17>
1435                     <END \1aLOOK-AHEAD>
1436 #WORD *33371041724*
1437 <GFCN \1aUPDATE-AC ("VALUE" <OR FALSE FIX> AC "OPTIONAL" ANY) AC8 SAVE-TIME9>
1438                     <OPT-DISPATCH 1 %<> OPT6 OPT7>
1439 OPT6
1440                     <PUSH %<>>
1441 OPT7
1442                     <TEMP ITM10 TYP11:ATOM T115:FIX T216 ACSTMP17:FIX LCL14 TEMP27 NAC12 TEMP42>
1443                     <INTGO>
1444                     <NTHUV AC8 2 = ITM10>
1445                     <NTHUV AC8 3 = TYP11 (TYPE ATOM)>
1446                     <NTHUV AC8 4 = T115 (TYPE FIX)>
1447                     <GVAL 'AC-STAMP = ACSTMP17>
1448                     <TYPE? ITM10 <TYPE-CODE ATOM> - PHRASE88>
1449                     <VEQUAL? ITM10 'STACK + PHRASE88>
1450                     <FRAME '\1aLMEMQ>
1451                     <PUSH ITM10>
1452                     <GVAL 'LOCALS = STACK>
1453                     <CALL '\1aLMEMQ 2 = LCL14>
1454                     <VEQUAL? LCL14 0 + PHRASE22>
1455                     <TYPE? LCL14 <TYPE-CODE LOCAL> - PHRASE34>
1456                     <NTHUV LCL14 2 = TEMP27>
1457                     <TYPE? TEMP27 <TYPE-CODE FALSE> - PHRASE34>
1458                     <DEAD TEMP27>
1459                     <PUTUV LCL14 2 'TEMP>
1460                     <JUMP + PHRASE34>
1461 PHRASE22
1462                     <GVAL 'ICALL-FLAG = TEMP27>
1463                     <TYPE? TEMP27 <TYPE-CODE FALSE> + PHRASE28>
1464                     <DEAD TEMP27>
1465                     <FRAME '\1aLMEMQ>
1466                     <PUSH ITM10>
1467                     <GVAL 'ICALL-TEMPS = STACK>
1468                     <CALL '\1aLMEMQ 2 = LCL14>
1469                     <VEQUAL? LCL14 0 + PHRASE28>
1470                     <TYPE? LCL14 <TYPE-CODE LOCAL> - PHRASE34>
1471                     <NTHUV LCL14 2 = TEMP27>
1472                     <TYPE? TEMP27 <TYPE-CODE FALSE> - PHRASE34>
1473                     <DEAD TEMP27>
1474                     <PUTUV LCL14 2 'TEMP>
1475                     <JUMP + PHRASE34>
1476 PHRASE28
1477                     <FRAME '\1aMIMOCERR>
1478                     <PUSH 'UNKNOWN-LOCAL!-ERRORS>
1479                     <PUSH ITM10>
1480                     <DEAD ITM10>
1481                     <CALL '\1aMIMOCERR 2>
1482 PHRASE34
1483                     <NTHUV LCL14 3 = ITM10 (TYPE LOCAL-NAME)>
1484                     <VEQUAL? TYP11 'TYPE - BOOL39>
1485                     <FRAME '\1aGET-AC>
1486                     <FRAME '\1aNEXT-AC>
1487                     <PUSH AC8>
1488                     <CALL '\1aNEXT-AC 1 = STACK>
1489                     <CALL '\1aGET-AC 1 = NAC12>
1490                     <NTHUV NAC12 3 = TEMP27 (TYPE ATOM)>
1491                     <VEQUAL? TEMP27 'VALUE - BOOL39>
1492                     <DEAD TEMP27>
1493                     <NTHUV NAC12 2 = TEMP27>
1494                     <NTHUV LCL14 1 = TEMP42 (TYPE ATOM)>
1495                     <EQUAL? TEMP27 TEMP42 - BOOL39>
1496                     <DEAD TEMP27 TEMP42>
1497                     <NTHUV NAC12 5 = TEMP42>
1498                     <TYPE? TEMP42 <TYPE-CODE FALSE> + BOOL39>
1499                     <DEAD TEMP42>
1500                     <PUTUV NAC12 5 %<>>
1501                     <JUMP + BOOL38>
1502 BOOL39
1503                     <VEQUAL? TYP11 'VALUE - PHRASE37>
1504                     <FRAME '\1aGETPROP>
1505                     <PUSH AC8>
1506                     <PUSH 'AC-PAIR>
1507                     <CALL '\1aGETPROP 2 = NAC12>
1508                     <NTHUV NAC12 3 = TEMP42 (TYPE ATOM)>
1509                     <VEQUAL? TEMP42 'TYPE - PHRASE37>
1510                     <DEAD TEMP42>
1511                     <NTHUV NAC12 2 = TEMP42>
1512                     <NTHUV LCL14 1 = TEMP27 (TYPE ATOM)>
1513                     <EQUAL? TEMP42 TEMP27 - PHRASE37>
1514                     <DEAD TEMP42>
1515                     <NTHUV NAC12 4 = T216 (TYPE FIX)>
1516                     <NTHUV NAC12 5 = TEMP27>
1517                     <TYPE? TEMP27 <TYPE-CODE FALSE> + PHRASE37>
1518                     <DEAD TEMP27>
1519                     <PUTUV NAC12 5 %<>>
1520                     <NTHUV NAC12 4 = T115 (TYPE FIX)>
1521                     <SET AC8 NAC12>
1522                     <DEAD NAC12>
1523                     <FRAME '\1aGET-AC>
1524                     <FRAME '\1aNEXT-AC>
1525                     <PUSH AC8>
1526                     <CALL '\1aNEXT-AC 1 = STACK>
1527                     <CALL '\1aGET-AC 1 = NAC12>
1528 BOOL38
1529                     <FRAME '\1aHACK-LAST-ACS>
1530                     <PUSH LCL14>
1531                     <PUSH 'TYPE>
1532                     <CALL '\1aHACK-LAST-ACS 2>
1533                     <FRAME '\1aHACK-LAST-ACS>
1534                     <PUSH LCL14>
1535                     <PUSH 'VALUE>
1536                     <CALL '\1aHACK-LAST-ACS 2>
1537                     <NTHUV NAC12 4 = T216 (TYPE FIX)>
1538                     <GVAL 'TYPED-LOCALS = TEMP27>
1539                     <EMPL? TEMP27 + PHRASE50>
1540                     <LOOP (LCL14 VALUE) (TEMP27 VALUE)>
1541 TAG53
1542                     <NTHL TEMP27 1 = TEMP42>
1543                     <TYPE? TEMP42 <TYPE-CODE LOCAL> - TAG54>
1544                     <VEQUAL? TEMP42 LCL14 + TAG52>
1545                     <DEAD TEMP42>
1546 TAG54
1547                     <RESTL TEMP27 1 = TEMP27 (TYPE LIST)>
1548                     <EMPL? TEMP27 - TAG53>
1549                     <JUMP + PHRASE50>
1550 TAG52
1551                     <NTHUV LCL14 2 = TEMP27>
1552                     <DEAD LCL14>
1553                     <EQUAL? TEMP27 'OARG + PHRASE50>
1554                     <DEAD TEMP27>
1555                     <FRAME '\1aOCEMIT>
1556                     <PUSH 'MOVEM>
1557                     <NTHUV NAC12 1 = STACK (TYPE ATOM)>
1558                     <GVAL 'STACK-DEPTH = TEMP27>
1559                     <SUB 1 TEMP27 = STACK (TYPE FIX)>
1560                     <DEAD TEMP27>
1561                     <PUSH ITM10>
1562                     <DEAD ITM10>
1563                     <GVAL 'WINNING-VICTIM = TEMP27>
1564                     <TYPE? TEMP27 <TYPE-CODE FALSE> + PHRASE57>
1565                     <DEAD TEMP27>
1566                     <SET TEMP27 (TP*) (TYPE LIST)>
1567                     <JUMP + PHRASE58>
1568 PHRASE57
1569                     <SET TEMP27 (F*) (TYPE LIST)>
1570 PHRASE58
1571                     <PUSH TEMP27>
1572                     <DEAD TEMP27>
1573                     <CALL '\1aOCEMIT 5>
1574                     <JUMP + PHRASE59>
1575 PHRASE50
1576                     <FRAME '\1aOCEMIT>
1577                     <PUSH 'DMOVEM>
1578                     <NTHUV AC8 1 = STACK (TYPE ATOM)>
1579                     <GVAL 'STACK-DEPTH = TEMP27>
1580                     <SUB 0 TEMP27 = STACK (TYPE FIX)>
1581                     <DEAD TEMP27>
1582                     <PUSH ITM10>
1583                     <DEAD ITM10>
1584                     <GVAL 'WINNING-VICTIM = TEMP27>
1585                     <TYPE? TEMP27 <TYPE-CODE FALSE> + PHRASE62>
1586                     <DEAD TEMP27>
1587                     <SET TEMP27 (TP*) (TYPE LIST)>
1588                     <JUMP + PHRASE63>
1589 PHRASE62
1590                     <SET TEMP27 (F*) (TYPE LIST)>
1591 PHRASE63
1592                     <PUSH TEMP27>
1593                     <DEAD TEMP27>
1594                     <CALL '\1aOCEMIT 5>
1595 PHRASE59
1596                     <TYPE? SAVE-TIME9 <TYPE-CODE FALSE> + PHRASE65>
1597                     <PUTUV AC8 4 T115 (TYPE FIX)>
1598                     <DEAD AC8 T115>
1599                     <PUTUV NAC12 4 T216 (TYPE FIX)>
1600                     <DEAD T216>
1601 PHRASE65
1602                     <PUTUV NAC12 5 %<>>
1603                     <DEAD NAC12>
1604                     <JUMP + PHRASE88>
1605 PHRASE37
1606                     <VEQUAL? TYP11 'TYPE - PHRASE66>
1607                     <FRAME '\1aHACK-LAST-ACS>
1608                     <PUSH LCL14>
1609                     <PUSH 'TYPE>
1610                     <CALL '\1aHACK-LAST-ACS 2>
1611                     <GVAL 'TYPED-LOCALS = TEMP27>
1612                     <EMPL? TEMP27 + TAG70>
1613                     <LOOP (LCL14 VALUE) (TEMP27 VALUE)>
1614 TAG71
1615                     <NTHL TEMP27 1 = TEMP42>
1616                     <TYPE? TEMP42 <TYPE-CODE LOCAL> - TAG72>
1617                     <VEQUAL? TEMP42 LCL14 + PHRASE88>
1618                     <DEAD TEMP42>
1619 TAG72
1620                     <RESTL TEMP27 1 = TEMP27 (TYPE LIST)>
1621                     <EMPL? TEMP27 - TAG71>
1622 TAG70
1623                     <FRAME '\1aOCEMIT>
1624                     <PUSH 'MOVEM>
1625                     <NTHUV AC8 1 = STACK (TYPE ATOM)>
1626                     <GVAL 'STACK-DEPTH = TEMP27>
1627                     <SUB 0 TEMP27 = STACK (TYPE FIX)>
1628                     <DEAD TEMP27>
1629                     <PUSH ITM10>
1630                     <DEAD ITM10>
1631                     <GVAL 'WINNING-VICTIM = TEMP27>
1632                     <TYPE? TEMP27 <TYPE-CODE FALSE> + PHRASE75>
1633                     <DEAD TEMP27>
1634                     <SET TEMP27 (TP*) (TYPE LIST)>
1635                     <JUMP + PHRASE76>
1636 PHRASE75
1637                     <SET TEMP27 (F*) (TYPE LIST)>
1638 PHRASE76
1639                     <PUSH TEMP27>
1640                     <DEAD TEMP27>
1641                     <CALL '\1aOCEMIT 5>
1642                     <TYPE? SAVE-TIME9 <TYPE-CODE FALSE> + PHRASE88>
1643                     <PUTUV AC8 4 T115 (TYPE FIX)>
1644                     <DEAD AC8 T115>
1645                     <JUMP + PHRASE88>
1646 PHRASE66
1647                     <VEQUAL? TYP11 'VALUE - PHRASE88>
1648                     <DEAD TYP11>
1649                     <FRAME '\1aHACK-LAST-ACS>
1650                     <PUSH LCL14>
1651                     <DEAD LCL14>
1652                     <PUSH 'VALUE>
1653                     <CALL '\1aHACK-LAST-ACS 2>
1654                     <FRAME '\1aOCEMIT>
1655                     <PUSH 'MOVEM>
1656                     <NTHUV AC8 1 = STACK (TYPE ATOM)>
1657                     <GVAL 'STACK-DEPTH = TEMP27>
1658                     <SUB 1 TEMP27 = STACK (TYPE FIX)>
1659                     <DEAD TEMP27>
1660                     <PUSH ITM10>
1661                     <DEAD ITM10>
1662                     <GVAL 'WINNING-VICTIM = TEMP27>
1663                     <TYPE? TEMP27 <TYPE-CODE FALSE> + PHRASE83>
1664                     <DEAD TEMP27>
1665                     <SET TEMP27 (TP*) (TYPE LIST)>
1666                     <JUMP + PHRASE84>
1667 PHRASE83
1668                     <SET TEMP27 (F*) (TYPE LIST)>
1669 PHRASE84
1670                     <PUSH TEMP27>
1671                     <DEAD TEMP27>
1672                     <CALL '\1aOCEMIT 5>
1673                     <TYPE? SAVE-TIME9 <TYPE-CODE FALSE> + PHRASE88>
1674                     <PUTUV AC8 4 T115 (TYPE FIX)>
1675                     <DEAD AC8 T115>
1676                     <TYPE? T216 <TYPE-CODE UNBOUND> + PHRASE88>
1677                     <PUTUV NAC12 4 T216 (TYPE FIX)>
1678                     <DEAD NAC12 T216>
1679 PHRASE88
1680                     <SET TEMP27 SAVE-TIME9>
1681                     <DEAD SAVE-TIME9>
1682                     <TYPE? TEMP27 <TYPE-CODE FALSE> + PHRASE90>
1683                     <SETG 'AC-STAMP ACSTMP17>
1684                     <SET TEMP27 ACSTMP17>
1685                     <DEAD ACSTMP17>
1686 PHRASE90
1687                     <RETURN TEMP27>
1688                     <DEAD TEMP27>
1689                     <END \1aUPDATE-AC>\r\r
1690 #WORD *27674532506*
1691 <GFCN \1aHACK-LAST-ACS ("VALUE" <OR FALSE LOCAL> LOCAL ATOM) LCL5 TYP6>
1692                     <TEMP ACS7 TEMP11>
1693                     <INTGO>
1694                     <VEQUAL? TYP6 'TYPE - PHRASE9>
1695                     <NTHUV LCL5 5 = ACS7>
1696                     <TYPE? ACS7 <TYPE-CODE FALSE> + PHRASE9>
1697                     <NTHUV ACS7 3 = TEMP11>
1698                     <TYPE? TEMP11 <TYPE-CODE FALSE> - PHRASE9>
1699                     <DEAD TEMP11>
1700                     <PUTUV ACS7 3 'HACKED>
1701                     <DEAD ACS7>
1702                     <PUTUV LCL5 5 %<>>
1703                     <RETURN LCL5>
1704                     <DEAD LCL5>
1705 PHRASE9
1706                     <VEQUAL? TYP6 'VALUE + TAG14>
1707                     <DEAD TYP6>
1708                     <RETURN %<>>
1709 TAG14
1710                     <NTHUV LCL5 6 = ACS7>
1711                     <SET TEMP11 ACS7>
1712                     <TYPE? TEMP11 <TYPE-CODE FALSE> + PHRASE12>
1713                     <NTHUV ACS7 3 = TEMP11>
1714                     <TYPE? TEMP11 <TYPE-CODE FALSE> + TAG16>
1715                     <DEAD TEMP11>
1716                     <RETURN %<>>
1717 TAG16
1718                     <PUTUV ACS7 3 'HACKED>
1719                     <DEAD ACS7>
1720                     <PUTUV LCL5 6 %<>>
1721                     <SET TEMP11 LCL5>
1722                     <DEAD LCL5>
1723 PHRASE12
1724                     <RETURN TEMP11>
1725                     <DEAD TEMP11>
1726                     <END \1aHACK-LAST-ACS>
1727 #WORD *36237266563*
1728 <GFCN \1aUPDATE-ACS ("VALUE" <OR FALSE <LIST ANY>>)>
1729                     <TEMP TEMP6>
1730                     <INTGO>
1731                     <FRAME '\1aLABEL-UPDATE-ACS>
1732                     <PUSH %<>>
1733                     <PUSH %<>>
1734                     <CALL '\1aLABEL-UPDATE-ACS 2 = TEMP6>
1735                     <RETURN TEMP6>
1736                     <DEAD TEMP6>
1737                     <END \1aUPDATE-ACS>
1738 #WORD *15561725166*
1739 <GFCN \1aLABEL-UPDATE-ACS ("VALUE" <OR FALSE <LIST ANY>> <OR ATOM FALSE> ANY "OPTIONAL" ANY ANY ANY) TAG12 UNCND13 NO-TY14 A115 A216>
1740                     <OPT-DISPATCH 2 %<> OPT8 OPT9 OPT10 OPT11>
1741 OPT8
1742                     <PUSH %<>>
1743 OPT9
1744                     <PUSH %<>>
1745 OPT10
1746                     <PUSH %<>>
1747 OPT11
1748                     <TEMP TEMP20 MIML19 TEMP39 NXT17>
1749                     <INTGO>
1750                     <GEN-LVAL 'MIML = MIML19>
1751                     <TYPE? TAG12 <TYPE-CODE FALSE> + BOOL24>
1752                     <FRAME '\1aFIND-LABEL>
1753                     <PUSH TAG12>
1754                     <CALL '\1aFIND-LABEL 1 = TEMP20>
1755 BOOL24
1756                     <EQUAL? TAG12 'COMPERR + BOOL28>
1757                     <EQUAL? TAG12 'UNWCONT - PHRASE27>
1758 BOOL28
1759                     <SET TEMP20 A115>
1760                     <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE82>
1761                     <TYPE? A216 <TYPE-CODE FALSE> + PHRASE33>
1762                     <CONS A216 () = TEMP20>
1763                     <DEAD A216>
1764                     <CONS A115 TEMP20 = TEMP20>
1765                     <DEAD A115>
1766                     <RETURN TEMP20>
1767                     <DEAD TEMP20>
1768 PHRASE33
1769                     <CONS A115 () = TEMP20>
1770                     <DEAD A115>
1771                     <RETURN TEMP20>
1772                     <DEAD TEMP20>
1773 PHRASE27
1774                     <TYPE? TAG12 <TYPE-CODE FALSE> + PHRASE49>
1775                     <NTHUV TEMP20 3 = TEMP39>
1776                     <TYPE? TEMP39 <TYPE-CODE FALSE> - PHRASE49>
1777                     <DEAD TEMP39>
1778                     <TYPE? UNCND13 <TYPE-CODE FALSE> - PHRASE49>
1779                     <LOOP>
1780 AGAIN41
1781                     <INTGO>
1782                     <EMPL? MIML19 + PHRASE49 (TYPE LIST)>
1783                     <RESTL MIML19 1 = TEMP39 (TYPE LIST)>
1784                     <NTHL TEMP39 1 = NXT17>
1785                     <DEAD TEMP39>
1786                     <TYPE? NXT17 <TYPE-CODE FORM> - PHRASE45>
1787                     <NTHL NXT17 1 = TEMP39>
1788                     <EQUAL? TEMP39 'DEAD - PHRASE45>
1789                     <DEAD TEMP39>
1790                     <FRAME '\1aDEAD!-MIMOC>
1791                     <RESTL NXT17 1 = TEMP39 (TYPE LIST)>
1792                     <DEAD NXT17>
1793                     <CHTYPE TEMP39 <TYPE-CODE LIST> = STACK>
1794                     <DEAD TEMP39>
1795                     <PUSH 'T>
1796                     <PUSH NO-TY14>
1797                     <CALL '\1aDEAD!-MIMOC 3>
1798                     <RESTL MIML19 1 = MIML19 (TYPE LIST)>
1799                     <JUMP + AGAIN41>
1800 PHRASE45
1801                     <TYPE? NXT17 <TYPE-CODE ATOM> - PHRASE49>
1802                     <DEAD NXT17>
1803                     <RESTL MIML19 1 = MIML19 (TYPE LIST)>
1804                     <JUMP + AGAIN41>
1805 PHRASE49
1806                     <TYPE? TAG12 <TYPE-CODE FALSE> + BOOL52>
1807                     <DEAD TAG12>
1808                     <GVAL 'NO-AC-FUNNYNESS = TEMP39>
1809                     <TYPE? TEMP39 <TYPE-CODE FALSE> + PHRASE51>
1810                     <DEAD TEMP39>
1811 BOOL52
1812                     <GVAL 'AC-TABLE = TEMP39>
1813                     <LOOP>
1814 MAP55
1815                     <INTGO>
1816                     <EMPUV? TEMP39 + MAPAP58>
1817                     <NTHUV TEMP39 1 = MIML19>
1818                     <NTHUV MIML19 5 = TEMP20>
1819                     <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE67>
1820                     <DEAD TEMP20>
1821                     <FRAME '\1aUPDATE-AC>
1822                     <PUSH MIML19>
1823                     <CALL '\1aUPDATE-AC 1>
1824                     <PUTUV MIML19 5 %<>>
1825                     <DEAD MIML19>
1826 PHRASE67
1827                     <RESTUV TEMP39 1 = TEMP39 (TYPE VECTOR)>
1828                     <JUMP + MAP55>
1829 MAPAP58
1830                     <SET TEMP20 A115>
1831                     <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE82>
1832                     <TYPE? A216 <TYPE-CODE FALSE> + PHRASE73>
1833                     <CONS A216 () = TEMP20>
1834                     <DEAD A216>
1835                     <CONS A115 TEMP20 = TEMP20>
1836                     <DEAD A115>
1837                     <RETURN TEMP20>
1838                     <DEAD TEMP20>
1839 PHRASE73
1840                     <CONS A115 () = TEMP20>
1841                     <DEAD A115>
1842                     <RETURN TEMP20>
1843                     <DEAD TEMP20>
1844 PHRASE51
1845                     <GVAL 'PASS1 = TEMP39>
1846                     <TYPE? TEMP39 <TYPE-CODE FALSE> + PHRASE75>
1847                     <DEAD TEMP39>
1848                     <FRAME '\1aSAVE-BRANCH-STATE>
1849                     <PUSH TEMP20>
1850                     <DEAD TEMP20>
1851                     <PUSH UNCND13>
1852                     <DEAD UNCND13>
1853                     <CALL '\1aSAVE-BRANCH-STATE 2>
1854                     <SET TEMP20 A115>
1855                     <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE82>
1856                     <TYPE? A216 <TYPE-CODE FALSE> + PHRASE80>
1857                     <CONS A216 () = TEMP20>
1858                     <DEAD A216>
1859                     <CONS A115 TEMP20 = TEMP20>
1860                     <DEAD A115>
1861                     <RETURN TEMP20>
1862                     <DEAD TEMP20>
1863 PHRASE80
1864                     <CONS A115 () = TEMP20>
1865                     <DEAD A115>
1866                     <RETURN TEMP20>
1867                     <DEAD TEMP20>
1868 PHRASE75
1869                     <GVAL 'NO-AC-FUNNYNESS = TEMP39>
1870                     <TYPE? TEMP39 <TYPE-CODE FALSE> + TAG83>
1871                     <DEAD TEMP39>
1872                     <RETURN %<>>
1873 TAG83
1874                     <FRAME '\1aESTABLISH-BRANCH-STATE>
1875                     <PUSH TEMP20>
1876                     <DEAD TEMP20>
1877                     <PUSH UNCND13>
1878                     <DEAD UNCND13>
1879                     <PUSH A115>
1880                     <DEAD A115>
1881                     <PUSH A216>
1882                     <DEAD A216>
1883                     <CALL '\1aESTABLISH-BRANCH-STATE 4 = TEMP20>
1884 PHRASE82
1885                     <RETURN TEMP20>
1886                     <DEAD TEMP20>
1887                     <END \1aLABEL-UPDATE-ACS>
1888 #WORD *16773732434*
1889 <GFCN \1aFLUSH-AC ("VALUE" <OR FALSE FIX> ATOM "OPTIONAL" <OR ATOM FALSE>) AC8 BOTH9>
1890                     <OPT-DISPATCH 1 %<> OPT6 OPT7>
1891 OPT6
1892                     <PUSH %<>>
1893 OPT7
1894                     <TEMP RAC10:AC TEMP14>
1895                     <INTGO>
1896                     <FRAME '\1aGET-AC>
1897                     <PUSH AC8>
1898                     <CALL '\1aGET-AC 1 = RAC10>
1899                     <NTHUV RAC10 5 = TEMP14>
1900                     <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE12>
1901                     <DEAD TEMP14>
1902                     <FRAME '\1aUPDATE-AC>
1903                     <PUSH RAC10>
1904                     <DEAD RAC10>
1905                     <CALL '\1aUPDATE-AC 1>
1906 PHRASE12
1907                     <SET TEMP14 BOTH9>
1908                     <DEAD BOTH9>
1909                     <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE17>
1910                     <FRAME '\1aGET-AC>
1911                     <FRAME '\1aNEXT-AC>
1912                     <PUSH AC8>
1913                     <DEAD AC8>
1914                     <CALL '\1aNEXT-AC 1 = STACK>
1915                     <CALL '\1aGET-AC 1 = RAC10>
1916                     <NTHUV RAC10 5 = TEMP14>
1917                     <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE17>
1918                     <FRAME '\1aUPDATE-AC>
1919                     <PUSH RAC10>
1920                     <DEAD RAC10>
1921                     <CALL '\1aUPDATE-AC 1 = TEMP14>
1922 PHRASE17
1923                     <RETURN TEMP14>
1924                     <DEAD TEMP14>
1925                     <END \1aFLUSH-AC>
1926 #WORD *5167230010*
1927 <GFCN \1aALTER-AC ("VALUE" AC ATOM ATOM) AC5 WHAT6>
1928                     <TEMP RAC7:AC TEMP11>
1929                     <INTGO>
1930                     <FRAME '\1aGET-AC>
1931                     <PUSH AC5>
1932                     <CALL '\1aGET-AC 1 = RAC7>
1933                     <NTHUV RAC7 5 = TEMP11>
1934                     <TYPE? TEMP11 <TYPE-CODE FALSE> + PHRASE9>
1935                     <DEAD TEMP11>
1936                     <FRAME '\1aUPDATE-AC>
1937                     <PUSH RAC7>
1938                     <CALL '\1aUPDATE-AC 1>
1939 PHRASE9
1940                     <PUTUV RAC7 2 WHAT6>
1941                     <PUTUV RAC7 3 'TYPE (TYPE ATOM)>
1942                     <PUTUV RAC7 5 'T>
1943                     <DEAD RAC7>
1944                     <FRAME '\1aGET-AC>
1945                     <FRAME '\1aNEXT-AC>
1946                     <PUSH AC5>
1947                     <DEAD AC5>
1948                     <CALL '\1aNEXT-AC 1 = STACK>
1949                     <CALL '\1aGET-AC 1 = RAC7>
1950                     <NTHUV RAC7 5 = TEMP11>
1951                     <TYPE? TEMP11 <TYPE-CODE FALSE> + PHRASE14>
1952                     <DEAD TEMP11>
1953                     <FRAME '\1aUPDATE-AC>
1954                     <PUSH RAC7>
1955                     <CALL '\1aUPDATE-AC 1>
1956 PHRASE14
1957                     <PUTUV RAC7 2 WHAT6>
1958                     <DEAD WHAT6>
1959                     <PUTUV RAC7 3 'VALUE (TYPE ATOM)>
1960                     <PUTUV RAC7 5 'T>
1961                     <RETURN RAC7>
1962                     <DEAD RAC7>
1963                     <END \1aALTER-AC>
1964 #WORD *5060470577*
1965 <GFCN \1aFLUSH-ACS ("VALUE" <OR ATOM FALSE AC>)>
1966                     <TEMP TEMP14 TEMP16:VECTOR TEMP20:ATOM>
1967                     <INTGO>
1968                     <SET TEMP14 %<> (TYPE FALSE)>
1969                     <GVAL 'AC-TABLE = TEMP16>
1970                     <LOOP>
1971 MAP6
1972                     <INTGO>
1973                     <EMPUV? TEMP16 + MAPAP9>
1974                     <NTHUV TEMP16 1 = TEMP14>
1975                     <PUTUV TEMP14 2 %<>>
1976                     <PUTUV TEMP14 3 'DUMMY (TYPE ATOM)>
1977                     <PUTUV TEMP14 5 %<>>
1978                     <PUTUV TEMP14 6 %<>>
1979                     <NTHUV TEMP14 1 = TEMP20 (TYPE ATOM)>
1980                     <VEQUAL? TEMP20 'T* - TAG19>
1981                     <DEAD TEMP20>
1982                     <SET TEMP14 'T (TYPE ATOM)>
1983                     <JUMP + BOOL18>
1984 TAG19
1985                     <PUTUV TEMP14 4 0 (TYPE FIX)>
1986 BOOL18
1987                     <RESTUV TEMP16 1 = TEMP16 (TYPE VECTOR)>
1988                     <JUMP + MAP6>
1989 MAPAP9
1990                     <RETURN TEMP14>
1991                     <DEAD TEMP14>
1992                     <END \1aFLUSH-ACS>
1993 #WORD *23501344272*
1994 <GFCN \1aREALLY-FREE-AC-PAIR ("VALUE" <OR ATOM FALSE>)>
1995                     <TEMP OAC5:ATOM TEMP12>
1996                     <INTGO>
1997                     <FRAME '\1aGET-AC>
1998                     <SET OAC5 'A1* (TYPE ATOM)>
1999                     <PUSH OAC5>
2000                     <CALL '\1aGET-AC 1 = TEMP12>
2001                     <NTHUV TEMP12 3 = TEMP12 (TYPE ATOM)>
2002                     <VEQUAL? TEMP12 'DUMMY - BOOL10>
2003                     <DEAD TEMP12>
2004                     <FRAME '\1aGET-AC>
2005                     <PUSH 'A2*>
2006                     <CALL '\1aGET-AC 1 = TEMP12>
2007                     <NTHUV TEMP12 3 = TEMP12 (TYPE ATOM)>
2008                     <VEQUAL? TEMP12 'DUMMY + TAG20>
2009                     <DEAD TEMP12>
2010 BOOL10
2011                     <FRAME '\1aGET-AC>
2012                     <SET OAC5 'B1* (TYPE ATOM)>
2013                     <PUSH OAC5>
2014                     <CALL '\1aGET-AC 1 = TEMP12>
2015                     <NTHUV TEMP12 3 = TEMP12 (TYPE ATOM)>
2016                     <VEQUAL? TEMP12 'DUMMY - BOOL14>
2017                     <DEAD TEMP12>
2018                     <FRAME '\1aGET-AC>
2019                     <PUSH 'B2*>
2020                     <CALL '\1aGET-AC 1 = TEMP12>
2021                     <NTHUV TEMP12 3 = TEMP12 (TYPE ATOM)>
2022                     <VEQUAL? TEMP12 'DUMMY + TAG20>
2023                     <DEAD TEMP12>
2024 BOOL14
2025                     <FRAME '\1aGET-AC>
2026                     <SET OAC5 'C1* (TYPE ATOM)>
2027                     <PUSH OAC5>
2028                     <CALL '\1aGET-AC 1 = TEMP12>
2029                     <NTHUV TEMP12 3 = TEMP12 (TYPE ATOM)>
2030                     <VEQUAL? TEMP12 'DUMMY + TAG18>
2031                     <DEAD TEMP12>
2032                     <RETURN %<>>
2033 TAG18
2034                     <FRAME '\1aGET-AC>
2035                     <PUSH 'C2*>
2036                     <CALL '\1aGET-AC 1 = TEMP12>
2037                     <NTHUV TEMP12 3 = TEMP12 (TYPE ATOM)>
2038                     <VEQUAL? TEMP12 'DUMMY + TAG20>
2039                     <DEAD TEMP12>
2040                     <RETURN %<>>
2041 TAG20
2042                     <RETURN OAC5>
2043                     <DEAD OAC5>
2044                     <END \1aREALLY-FREE-AC-PAIR>
2045 #WORD *13741145013*
2046 <GFCN \1aMUNGED-AC ("VALUE" <OR FALSE AC> ATOM "OPTIONAL" <OR ATOM FALSE>) NAM8 NXT?9>
2047                     <OPT-DISPATCH 1 %<> OPT6 OPT7>
2048 OPT6
2049                     <PUSH %<>>
2050 OPT7
2051                     <TEMP AC10>
2052                     <INTGO>
2053                     <FRAME '\1aGET-AC>
2054                     <PUSH NAM8>
2055                     <CALL '\1aGET-AC 1 = AC10>
2056                     <PUTUV AC10 2 %<>>
2057                     <PUTUV AC10 3 'DUMMY (TYPE ATOM)>
2058                     <PUTUV AC10 5 %<>>
2059                     <PUTUV AC10 6 %<>>
2060                     <DEAD AC10>
2061                     <SET AC10 NXT?9>
2062                     <DEAD NXT?9>
2063                     <TYPE? AC10 <TYPE-CODE FALSE> + PHRASE13>
2064                     <FRAME '\1aGET-AC>
2065                     <FRAME '\1aNEXT-AC>
2066                     <PUSH NAM8>
2067                     <DEAD NAM8>
2068                     <CALL '\1aNEXT-AC 1 = STACK>
2069                     <CALL '\1aGET-AC 1 = AC10>
2070                     <PUTUV AC10 2 %<>>
2071                     <PUTUV AC10 3 'DUMMY (TYPE ATOM)>
2072                     <PUTUV AC10 5 %<>>
2073                     <PUTUV AC10 6 %<>>
2074 PHRASE13
2075                     <RETURN AC10>
2076                     <DEAD AC10>
2077                     <END \1aMUNGED-AC>
2078 #WORD *17166617220*
2079 <GFCN \1aSAVE-ACS ("VALUE" <OR AC ATOM FALSE>)>
2080                     <TEMP TEMP7>
2081                     <INTGO>
2082                     <FRAME '\1aUPDATE-ACS>
2083                     <CALL '\1aUPDATE-ACS 0>
2084                     <FRAME '\1aFLUSH-ACS>
2085                     <CALL '\1aFLUSH-ACS 0 = TEMP7>
2086                     <RETURN TEMP7>
2087                     <DEAD TEMP7>
2088                     <END \1aSAVE-ACS>
2089 #WORD *11234212013*
2090                     <GFCN \1aMVADD ("VALUE" FIX ANY) ITM4>
2091                     <TEMP ITM13 TEMP18 BK8:LIST IDX7:FIX HC6:FIX MVB35:MBUCK>
2092                     <INTGO>
2093                     <SET ITM13 ITM4>
2094                     <LOOP>
2095 AGAIN14
2096                     <INTGO>
2097                     <TYPE? ITM13 <TYPE-CODE FORM> - PHRASE10>
2098                     <EMPL? ITM13 + PHRASE10>
2099                     <RESTL ITM13 1 = TEMP18 (TYPE LIST)>
2100                     <EMPL? TEMP18 + PHRASE10>
2101                     <RESTL TEMP18 1 = TEMP18 (TYPE LIST)>
2102                     <EMPL? TEMP18 - PHRASE10>
2103                     <DEAD TEMP18>
2104                     <NTHL ITM13 1 = TEMP18>
2105                     <EQUAL? TEMP18 'QUOTE - PHRASE10>
2106                     <DEAD TEMP18>
2107                     <RESTL ITM13 1 = TEMP18 (TYPE LIST)>
2108                     <DEAD ITM13>
2109                     <NTHL TEMP18 1 = ITM13>
2110                     <DEAD TEMP18>
2111                     <TYPE? ITM13 <TYPE-CODE ATOM> - AGAIN14>
2112                     <FRAME '\1aNTH>
2113                     <PUSH ITM4>
2114                     <DEAD ITM4>
2115                     <PUSH 2>
2116                     <CALL '\1aNTH 2 = ITM4>
2117 PHRASE10
2118                     <GVAL 'MV-TABLE = TEMP18>
2119                     <FRAME '\1aHASH>
2120                     <PUSH ITM4>
2121                     <CALL '\1aHASH 1 = HC6>
2122                     <MOD HC6 391 = ITM13 (TYPE FIX)>
2123                     <ADD ITM13 1 = IDX7 (TYPE FIX)>
2124                     <DEAD ITM13>
2125                     <NTHUV TEMP18 IDX7 = BK8 (TYPE LIST)>
2126                     <DEAD TEMP18>
2127                     <SET TEMP18 BK8 (TYPE LIST)>
2128                     <LOOP>
2129 MAP27
2130                     <INTGO>
2131                     <EMPL? TEMP18 + MAPAP30>
2132                     <NTHL TEMP18 1 = MVB35>
2133                     <NTHUV MVB35 2 = ITM13 (TYPE FIX)>
2134                     <VEQUAL? HC6 ITM13 - PHRASE37 (TYPE FIX)>
2135                     <DEAD ITM13>
2136                     <FRAME '\1a=?>
2137                     <NTHUV MVB35 1 = STACK>
2138                     <PUSH ITM4>
2139                     <CALL '\1a=? 2 = ITM13>
2140                     <VEQUAL? ITM13 0 + PHRASE37>
2141                     <DEAD ITM13>
2142                     <GEN-SET 'FMV MVB35>
2143                     <DEAD MVB35>
2144                     <JUMP + PHRASE43>
2145 PHRASE37
2146                     <RESTL TEMP18 1 = TEMP18 (TYPE LIST)>
2147                     <JUMP + MAP27>
2148 MAPAP30
2149                     <GVAL 'MV-TABLE = TEMP18>
2150                     <PUSH ITM4>
2151                     <PUSH HC6>
2152                     <DEAD HC6>
2153                     <GVAL 'MV-COUNT = ITM13>
2154                     <ADD ITM13 1 = ITM13 (TYPE FIX)>
2155                     <SETG 'MV-COUNT ITM13>
2156                     <PUSH ITM13>
2157                     <DEAD ITM13>
2158                     <UBLOCK <TYPE-CODE VECTOR> 3 = ITM13>
2159                     <CHTYPE ITM13 <TYPE-CODE MBUCK> = ITM13>
2160                     <GEN-SET 'FMV ITM13>
2161                     <CONS ITM13 () = ITM13>
2162                     <PUTREST ITM13 BK8>
2163                     <DEAD BK8>
2164                     <PUTUV TEMP18 IDX7 ITM13 (TYPE LIST)>
2165                     <DEAD TEMP18 IDX7 ITM13>
2166                     <GVAL 'MV = TEMP18>
2167                     <CONS ITM4 () = ITM13>
2168                     <DEAD ITM4>
2169                     <PUTREST TEMP18 ITM13>
2170                     <DEAD TEMP18>
2171                     <SETG 'MV ITM13>
2172                     <DEAD ITM13>
2173 PHRASE43
2174                     <GEN-LVAL 'FMV = ITM13>
2175                     <NTHUV ITM13 3 = ITM13 (TYPE FIX)>
2176                     <RETURN ITM13>
2177                     <DEAD ITM13>
2178                     <END \1aMVADD>
2179
2180 #WORD *15203237072*
2181 <GFCN \1aPOS ("VALUE" ANY ANY LIST) ITM5 LST6>
2182                     <TEMP TEMP11 M7 TEMP19 TEMP25 TEMP26>
2183                     <INTGO>
2184                     <TYPE? ITM5 <TYPE-CODE FORM> - PHRASE9>
2185                     <EMPL? ITM5 + PHRASE9>
2186                     <RESTL ITM5 1 = TEMP11 (TYPE LIST)>
2187                     <EMPL? TEMP11 + PHRASE9>
2188                     <DEAD TEMP11>
2189                     <NTHL ITM5 1 = TEMP11>
2190                     <EQUAL? TEMP11 'QUOTE - PHRASE9>
2191                     <DEAD TEMP11>
2192                     <RESTL ITM5 1 = TEMP11 (TYPE LIST)>
2193                     <NTHL TEMP11 1 = TEMP11>
2194                     <TYPE? TEMP11 <TYPE-CODE ATOM> - PHRASE9>
2195                     <DEAD TEMP11>
2196                     <RESTL ITM5 1 = ITM5 (TYPE LIST)>
2197                     <NTHL ITM5 1 = ITM5 (TYPE ATOM)>
2198 PHRASE9
2199                     <GVAL 'ICALL-FLAG = TEMP11>
2200                     <TYPE? TEMP11 <TYPE-CODE FALSE> + PHRASE13>
2201                     <DEAD TEMP11>
2202                     <GVAL 'LOCALS = TEMP11>
2203                     <VEQUAL? TEMP11 LST6 - PHRASE13>
2204                     <DEAD TEMP11>
2205                     <GVAL 'ICALL-TEMPS = M7>
2206                     <TYPE ITM5 = TEMP11>
2207                     <EMPL? M7 + TAG15>
2208                     <LOOP (ITM5 VALUE) (TEMP11 VALUE) (M7 VALUE)>
2209 TAG17
2210                     <NTHL M7 1 = TEMP19>
2211                     <TYPE? TEMP19 TEMP11 - TAG18>
2212                     <VEQUAL? TEMP19 ITM5 + TAG16>
2213                     <DEAD TEMP19>
2214 TAG18
2215                     <RESTL M7 1 = M7 (TYPE LIST)>
2216                     <EMPL? M7 - TAG17>
2217 TAG15
2218                     <DEAD M7 TEMP11>
2219                     <SET M7 %<> (TYPE FALSE)>
2220 TAG16
2221                     <TYPE? M7 <TYPE-CODE FALSE> + PHRASE13>
2222                     <RESTL M7 1 = M7 (TYPE LIST)>
2223                     <NTHL M7 1 = M7>
2224                     <RETURN M7>
2225                     <DEAD M7>
2226 PHRASE13
2227                     <RESTL LST6 1 = TEMP19 (TYPE LIST)>
2228                     <TYPE ITM5 = TEMP25>
2229                     <EMPL? TEMP19 + TAG21>
2230                     <LOOP (ITM5 VALUE) (TEMP25 VALUE) (TEMP19 VALUE)>
2231 TAG23
2232                     <NTHL TEMP19 1 = TEMP26>
2233                     <TYPE? TEMP26 TEMP25 - TAG24>
2234                     <VEQUAL? TEMP26 ITM5 + TAG22>
2235                     <DEAD TEMP26>
2236 TAG24
2237                     <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
2238                     <EMPL? TEMP19 - TAG23>
2239 TAG21
2240                     <DEAD ITM5 TEMP19 TEMP25>
2241                     <SET M7 %<> (TYPE FALSE)>
2242                     <JUMP + TAG27>
2243 TAG22
2244                     <SET M7 TEMP19>
2245                     <DEAD TEMP19>
2246 TAG27
2247                     <SET TEMP11 M7>
2248                     <TYPE? TEMP11 <TYPE-CODE FALSE> + PHRASE20>
2249                     <LENL LST6 = TEMP19 (TYPE FIX)>
2250                     <DEAD LST6>
2251                     <LENL M7 = M7 (TYPE FIX)>
2252                     <SUB TEMP19 M7 = TEMP11 (TYPE FIX)>
2253                     <DEAD M7 TEMP19>
2254 PHRASE20
2255                     <RETURN TEMP11>
2256                     <DEAD TEMP11>
2257                     <END \1aPOS>
2258 #WORD *32557052014*
2259 <GFCN \1aLMEMQ ("VALUE" <OR ATOM !<FALSE> LOCAL> ATOM LIST) ATM5 LST6>
2260                     <TEMP TEMP8 TEMP16:ATOM>
2261                     <INTGO>
2262                     <LOOP>
2263 AGAIN11
2264                     <INTGO>
2265                     <EMPL? LST6 - PHRASE13 (TYPE LIST)>
2266                     <RETURN %<>>
2267 PHRASE13
2268                     <NTHL LST6 1 = TEMP8>
2269                     <TYPE? TEMP8 <TYPE-CODE LOCAL> - PHRASE14>
2270                     <NTHUV TEMP8 1 = TEMP16 (TYPE ATOM)>
2271                     <VEQUAL? TEMP16 ATM5 - PHRASE14>
2272                     <DEAD TEMP16>
2273                     <NTHL LST6 1 = TEMP8 (TYPE LOCAL)>
2274                     <DEAD LST6>
2275                     <RETURN TEMP8>
2276                     <DEAD TEMP8>
2277 PHRASE14
2278                     <EQUAL? TEMP8 ATM5 - PHRASE17>
2279                     <DEAD TEMP8>
2280                     <RETURN ATM5>
2281                     <DEAD ATM5>
2282 PHRASE17
2283                     <RESTL LST6 1 = LST6 (TYPE LIST)>
2284                     <JUMP + AGAIN11>
2285                     <END \1aLMEMQ>
2286 #WORD *11744210303*
2287 <GFCN \1aL-N-LMEMQ ("VALUE" <OR !<FALSE> LOCAL LOCAL-NAME> LOCAL-NAME LIST) LN5 LST6>
2288                     <TEMP TEMP8 TEMP16:LOCAL-NAME>
2289                     <INTGO>
2290                     <LOOP>
2291 AGAIN11
2292                     <INTGO>
2293                     <EMPL? LST6 - PHRASE13 (TYPE LIST)>
2294                     <RETURN %<>>
2295 PHRASE13
2296                     <NTHL LST6 1 = TEMP8>
2297                     <TYPE? TEMP8 <TYPE-CODE LOCAL> - PHRASE14>
2298                     <NTHUV TEMP8 3 = TEMP16 (TYPE LOCAL-NAME)>
2299                     <VEQUAL? TEMP16 LN5 - PHRASE14>
2300                     <DEAD TEMP16>
2301                     <NTHL LST6 1 = TEMP8 (TYPE LOCAL)>
2302                     <DEAD LST6>
2303                     <RETURN TEMP8>
2304                     <DEAD TEMP8>
2305 PHRASE14
2306                     <EQUAL? TEMP8 LN5 - PHRASE17>
2307                     <DEAD TEMP8>
2308                     <RETURN LN5>
2309                     <DEAD LN5>
2310 PHRASE17
2311                     <RESTL LST6 1 = LST6 (TYPE LIST)>
2312                     <JUMP + AGAIN11>
2313                     <END \1aL-N-LMEMQ>
2314 #WORD *760665003*
2315 <GFCN \1aLLOOKUP ("VALUE" ANY ATOM) ATM5>
2316                     <TEMP M6 TEMP14 P7>
2317                     <INTGO>
2318                     <GVAL 'ICALL-TEMPS = M6>
2319                     <EMPL? M6 + TAG10>
2320                     <LOOP (ATM5 VALUE) (M6 VALUE)>
2321 TAG12
2322                     <NTHL M6 1 = TEMP14>
2323                     <TYPE? TEMP14 <TYPE-CODE ATOM> - TAG13>
2324                     <VEQUAL? TEMP14 ATM5 + TAG11>
2325                     <DEAD TEMP14>
2326 TAG13
2327                     <RESTL M6 1 = M6 (TYPE LIST)>
2328                     <EMPL? M6 - TAG12>
2329 TAG10
2330                     <DEAD M6>
2331                     <SET M6 %<> (TYPE FALSE)>
2332 TAG11
2333                     <TYPE? M6 <TYPE-CODE FALSE> + PHRASE9>
2334                     <RESTL M6 1 = M6 (TYPE LIST)>
2335                     <NTHL M6 1 = M6>
2336                     <LSH M6 1 = M6 (TYPE FIX)>
2337                     <RETURN M6>
2338                     <DEAD M6>
2339 PHRASE9
2340                     <FRAME '\1aPOS>
2341                     <PUSH ATM5>
2342                     <GVAL 'LOCALS = STACK>
2343                     <CALL '\1aPOS 2 = P7>
2344                     <TYPE? P7 <TYPE-CODE FALSE> + PHRASE15>
2345                     <LSH P7 1 = P7 (TYPE FIX)>
2346                     <RETURN P7>
2347                     <DEAD P7>
2348 PHRASE15
2349                     <FRAME '\1aMIMOCERR>
2350                     <PUSH 'UNKNOWN-LOCAL!-ERRORS>
2351                     <PUSH ATM5>
2352                     <DEAD ATM5>
2353                     <CALL '\1aMIMOCERR 2 = TEMP14>
2354                     <RETURN TEMP14>
2355                     <DEAD TEMP14>
2356                     <END \1aLLOOKUP>
2357 #WORD *6774046040*
2358 <GFCN \1aFIXUP-LOCALS ("VALUE" <OR ATOM FALSE> LIST) L5>
2359                     <TEMP C6:LIST (CFLG7 %<>) (CNT8:FIX 0) (LNUM9:FIX 0) (TUP10 %<>) (FL11:LIST ()) TEMP16 ITM27 LU28 TEMP34>
2360                     <INTGO>
2361                     <GVAL 'TEMP-CC = C6>
2362                     <RESTL C6 1 = TEMP16 (TYPE LIST)>
2363                     <NTHL TEMP16 1 = TEMP16>
2364                     <TYPE? TEMP16 <TYPE-CODE INST> - PHRASE14>
2365                     <NTHUV TEMP16 1 = TEMP16>
2366                     <EQUAL? TEMP16 'MOVE - PHRASE14>
2367                     <DEAD TEMP16>
2368                     <EMPL? L5 + PHRASE14 (TYPE LIST)>
2369                     <RESTL C6 1 = TEMP16 (TYPE LIST)>
2370                     <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
2371                     <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
2372                     <NTHL TEMP16 1 = TUP10>
2373                     <DEAD TEMP16>
2374                     <RESTL C6 5 = C6 (TYPE LIST)>
2375 PHRASE14
2376                     <SET TEMP16 L5 (TYPE LIST)>
2377                     <DEAD L5>
2378                     <LOOP>
2379 MAP18
2380                     <INTGO>
2381                     <EMPL? TEMP16 + MAPAP21>
2382                     <NTHL TEMP16 1 = ITM27>
2383                     <VEQUAL? CFLG7 0 - PHRASE30>
2384                     <SET CFLG7 'T (TYPE ATOM)>
2385 PHRASE30
2386                     <NTHUV ITM27 2 = LU28>
2387                     <TYPE? LU28 <TYPE-CODE FALSE> + PHRASE32>
2388                     <NTHUV ITM27 3 = ITM27 (TYPE LOCAL-NAME)>
2389                     <CONS ITM27 () = ITM27>
2390                     <ADD LNUM9 2 = LNUM9 (TYPE FIX)>
2391                     <CONS LNUM9 () = TEMP34>
2392                     <PUTREST ITM27 TEMP34>
2393                     <PUTREST TEMP34 FL11>
2394                     <DEAD TEMP34 FL11>
2395                     <SET FL11 ITM27>
2396                     <DEAD ITM27>
2397                     <VEQUAL? LU28 'ARG + PHRASE42>
2398                     <VEQUAL? LU28 'OARG + PHRASE42>
2399                     <DEAD LU28>
2400                     <RESTL C6 1 = C6 (TYPE LIST)>
2401                     <RESTL C6 1 = C6 (TYPE LIST)>
2402                     <JUMP + PHRASE42>
2403 PHRASE32
2404                     <GVAL 'WINNING-VICTIM = ITM27>
2405                     <TYPE? ITM27 <TYPE-CODE FALSE> + PHRASE40>
2406                     <DEAD ITM27>
2407                     <GVAL 'WINNING-VICTIM = ITM27>
2408                     <SUB ITM27 2 = ITM27 (TYPE FIX)>
2409                     <SETG 'WINNING-VICTIM ITM27>
2410                     <DEAD ITM27>
2411 PHRASE40
2412                     <ADD CNT8 1 = CNT8 (TYPE FIX)>
2413                     <RESTL C6 1 = TEMP34 (TYPE LIST)>
2414                     <RESTL TEMP34 1 = TEMP34 (TYPE LIST)>
2415                     <RESTL TEMP34 1 = ITM27 (TYPE LIST)>
2416                     <DEAD TEMP34>
2417                     <PUTREST C6 ITM27>
2418                     <DEAD ITM27>
2419                     <TYPE? TUP10 <TYPE-CODE FALSE> + PHRASE42>
2420                     <NTHUV TUP10 3 = ITM27>
2421                     <SUB ITM27 1 = ITM27 (TYPE FIX)>
2422                     <PUTUV TUP10 3 ITM27>
2423                     <DEAD ITM27>
2424 PHRASE42
2425                     <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
2426                     <JUMP + MAP18>
2427 MAPAP21
2428                     <GVAL 'WINNING-VICTIM = CFLG7>
2429                     <TYPE? CFLG7 <TYPE-CODE FALSE> + EXIT45>
2430                     <DEAD CFLG7>
2431                     <GVAL 'WINNING-VICTIM = LNUM9>
2432                     <SET C6 FL11>
2433                     <LOOP>
2434 AGAIN48
2435                     <INTGO>
2436                     <EMPL? C6 + EXIT45 (TYPE LIST)>
2437                     <RESTL C6 1 = CFLG7 (TYPE LIST)>
2438                     <NTHL CFLG7 1 = CFLG7 (TYPE FIX)>
2439                     <SUB CFLG7 LNUM9 = CFLG7 (TYPE FIX)>
2440                     <SUB CFLG7 -1 = CFLG7 (TYPE FIX)>
2441                     <RESTL C6 1 = TEMP34 (TYPE LIST)>
2442                     <PUTL TEMP34 1 CFLG7 (TYPE FIX)>
2443                     <DEAD TEMP34 CFLG7>
2444                     <RESTL C6 1 = C6 (TYPE LIST)>
2445                     <RESTL C6 1 = C6 (TYPE LIST)>
2446                     <JUMP + AGAIN48>
2447 EXIT45
2448                     <EMPL? FL11 + PHRASE52 (TYPE LIST)>
2449                     <SET CFLG7 FL11>
2450                     <LOOP (CFLG7 VALUE)>
2451 TAG53
2452                     <RESTL CFLG7 1 = TEMP34 (TYPE LIST)>
2453                     <EMPL? TEMP34 + TAG54>
2454                     <SET CFLG7 TEMP34>
2455                     <DEAD TEMP34>
2456                     <JUMP + TAG53>
2457 TAG54
2458                     <GVAL 'FINAL-LOCALS = TEMP34>
2459                     <PUTREST CFLG7 TEMP34>
2460                     <DEAD CFLG7 TEMP34>
2461                     <SETG 'FINAL-LOCALS FL11>
2462                     <DEAD FL11>
2463 PHRASE52
2464                     <GVAL 'V1 = TEMP34>
2465                     <TYPE? TEMP34 <TYPE-CODE FALSE> + PHRASE56>
2466                     <GRTR? CNT8 0 + TAG58 (TYPE FIX)>
2467                     <RETURN %<>>
2468 TAG58
2469                     <FRAME '\1aCRLF>
2470                     <GEN-LVAL 'OUTCHAN = STACK>
2471                     <CALL '\1aCRLF 1>
2472                     <FRAME '\1aPRIN1>
2473                     <PUSH CNT8>
2474                     <DEAD CNT8>
2475                     <GEN-LVAL 'OUTCHAN = STACK>
2476                     <CALL '\1aPRIN1 2>
2477                     <FRAME '\1aPRINC>
2478                     <PUSH " flushed temporaries.">
2479                     <GEN-LVAL 'OUTCHAN = STACK>
2480                     <CALL '\1aPRINC 2>
2481                     <FRAME '\1aCRLF>
2482                     <GEN-LVAL 'OUTCHAN = STACK>
2483                     <CALL '\1aCRLF 1 = TEMP34>
2484 PHRASE56
2485                     <RETURN TEMP34>
2486                     <DEAD TEMP34>
2487                     <END \1aFIXUP-LOCALS>
2488 #WORD *14766431641*
2489 <GFCN \1aOCEMIT ("VALUE" <OR FALSE LIST STRING> "TUPLE" TUPLE)>
2490                     <MAKTUP T5:TUPLE (LABEL6 %<>) TEMP10 Y38 X39 AC40 TEMP49 AC142 TEMP57 = T5>
2491                     <INTGO>
2492                     <LENUV T5 = TEMP10 (TYPE FIX)>
2493                     <VEQUAL? TEMP10 1 - PHRASE8 (TYPE FIX)>
2494                     <DEAD TEMP10>
2495                     <NTHUV T5 1 = TEMP10>
2496                     <TYPE? TEMP10 <TYPE-CODE ATOM> - PHRASE8>
2497                     <DEAD TEMP10>
2498                     <GVAL 'V1 = TEMP10>
2499                     <TYPE? TEMP10 <TYPE-CODE FALSE> + BOOL13>
2500                     <DEAD TEMP10>
2501                     <GVAL 'PASS1 = TEMP10>
2502                     <TYPE? TEMP10 <TYPE-CODE FALSE> - BOOL13>
2503                     <DEAD TEMP10>
2504                     <FRAME '\1aINDENT-TO>
2505                     <PUSH 30>
2506                     <CALL '\1aINDENT-TO 1>
2507 BOOL13
2508                     <SET LABEL6 'T (TYPE ATOM)>
2509                     <JUMP + PHRASE15>
2510 PHRASE8
2511                     <GVAL 'V1 = TEMP10>
2512                     <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE15>
2513                     <DEAD TEMP10>
2514                     <GVAL 'PASS1 = TEMP10>
2515                     <TYPE? TEMP10 <TYPE-CODE FALSE> - PHRASE15>
2516                     <DEAD TEMP10>
2517                     <FRAME '\1aM-HPOS>
2518                     <GEN-LVAL 'OUTCHAN = STACK>
2519                     <CALL '\1aM-HPOS 1 = TEMP10>
2520                     <GRTR? TEMP10 45 - PHRASE18 (TYPE FIX)>
2521                     <DEAD TEMP10>
2522                     <FRAME '\1aCRLF>
2523                     <GEN-LVAL 'OUTCHAN = STACK>
2524                     <CALL '\1aCRLF 1>
2525 PHRASE18
2526                     <FRAME '\1aINDENT-TO>
2527                     <PUSH 45>
2528                     <CALL '\1aINDENT-TO 1>
2529 PHRASE15
2530                     <CHTYPE T5 <TYPE-CODE VECTOR> = TEMP10>
2531                     <LOOP>
2532 MAP28
2533                     <INTGO>
2534                     <EMPUV? TEMP10 + MAPAP31>
2535                     <SET Y38 TEMP10>
2536                     <NTHUV Y38 1 = X39>
2537                     <TYPE? X39 <TYPE-CODE LIST> - PHRASE54>
2538                     <FRAME '\1aIS-AC?>
2539                     <NTHL X39 1 = STACK (TYPE ATOM)>
2540                     <CALL '\1aIS-AC? 1 = AC40>
2541                     <TYPE? AC40 <TYPE-CODE FALSE> + PHRASE54>
2542                     <FRAME '\1aGET-AC>
2543                     <PUSH 'T*>
2544                     <CALL '\1aGET-AC 1 = TEMP49>
2545                     <VEQUAL? AC40 TEMP49 + BOOL47>
2546                     <DEAD TEMP49>
2547                     <GVAL 'AC-STAMP = TEMP49>
2548                     <ADD TEMP49 1 = TEMP49 (TYPE FIX)>
2549                     <SETG 'AC-STAMP TEMP49>
2550                     <PUTUV AC40 4 TEMP49 (TYPE FIX)>
2551                     <DEAD TEMP49>
2552 BOOL47
2553                     <NTHUV AC40 6 = TEMP49>
2554                     <TYPE? TEMP49 <TYPE-CODE FALSE> + PHRASE51>
2555                     <FRAME '\1aLOAD-TYPE-IN-AC>
2556                     <NTHUV AC40 1 = STACK (TYPE ATOM)>
2557                     <PUSH TEMP49>
2558                     <DEAD TEMP49>
2559                     <CALL '\1aLOAD-TYPE-IN-AC 2>
2560                     <PUTUV AC40 6 %<>>
2561 PHRASE51
2562                     <FRAME '\1aGETPROP>
2563                     <PUSH AC40>
2564                     <PUSH 'AC-PAIR>
2565                     <CALL '\1aGETPROP 2 = AC142>
2566                     <TYPE? AC142 <TYPE-CODE FALSE> + PHRASE54>
2567                     <NTHUV AC142 2 = TEMP49>
2568                     <NTHUV AC40 2 = TEMP57>
2569                     <DEAD AC40>
2570                     <EQUAL? TEMP49 TEMP57 - PHRASE54>
2571                     <DEAD TEMP49 TEMP57>
2572                     <GVAL 'AC-STAMP = TEMP57>
2573                     <PUTUV AC142 4 TEMP57 (TYPE FIX)>
2574                     <DEAD AC142 TEMP57>
2575 PHRASE54
2576                     <SET AC40 %<> (TYPE FALSE)>
2577                     <TYPE? X39 <TYPE-CODE ATOM> - PHRASE59>
2578                     <FRAME '\1aIS-AC?>
2579                     <PUSH X39>
2580                     <CALL '\1aIS-AC? 1 = AC40>
2581                     <TYPE? AC40 <TYPE-CODE FALSE> + PHRASE59>
2582                     <NTHUV AC40 6 = TEMP49>
2583                     <TYPE? TEMP49 <TYPE-CODE FALSE> + PHRASE59>
2584                     <FRAME '\1aLOAD-TYPE-IN-AC>
2585                     <NTHUV AC40 1 = STACK (TYPE ATOM)>
2586                     <PUSH TEMP49>
2587                     <DEAD TEMP49>
2588                     <CALL '\1aLOAD-TYPE-IN-AC 2>
2589                     <PUTUV AC40 6 %<>>
2590                     <JUMP + PHRASE65>
2591 PHRASE59
2592                     <TYPE? X39 <TYPE-CODE AC> - PHRASE65>
2593                     <SET AC40 X39>
2594                     <NTHUV AC40 1 = TEMP57 (TYPE ATOM)>
2595                     <PUTUV Y38 1 TEMP57>
2596                     <DEAD Y38 TEMP57>
2597                     <NTHUV X39 6 = TEMP49>
2598                     <TYPE? TEMP49 <TYPE-CODE FALSE> + PHRASE65>
2599                     <FRAME '\1aLOAD-TYPE-IN-AC>
2600                     <NTHUV AC40 1 = STACK (TYPE ATOM)>
2601                     <PUSH TEMP49>
2602                     <DEAD TEMP49>
2603                     <CALL '\1aLOAD-TYPE-IN-AC 2>
2604                     <PUTUV X39 6 %<>>
2605                     <DEAD X39>
2606 PHRASE65
2607                     <TYPE? AC40 <TYPE-CODE FALSE> + PHRASE70>
2608                     <GVAL 'AC-STAMP = TEMP57>
2609                     <ADD TEMP57 1 = TEMP57 (TYPE FIX)>
2610                     <SETG 'AC-STAMP TEMP57>
2611                     <PUTUV AC40 4 TEMP57 (TYPE FIX)>
2612                     <DEAD TEMP57>
2613                     <FRAME '\1aGETPROP>
2614                     <PUSH AC40>
2615                     <PUSH 'AC-PAIR>
2616                     <CALL '\1aGETPROP 2 = AC142>
2617                     <TYPE? AC142 <TYPE-CODE FALSE> + PHRASE70>
2618                     <NTHUV AC40 2 = TEMP57>
2619                     <DEAD AC40>
2620                     <NTHUV AC142 2 = TEMP49>
2621                     <EQUAL? TEMP57 TEMP49 - PHRASE70>
2622                     <DEAD TEMP57>
2623                     <GVAL 'AC-STAMP = TEMP49>
2624                     <PUTUV AC142 4 TEMP49 (TYPE FIX)>
2625                     <DEAD AC142 TEMP49>
2626 PHRASE70
2627                     <RESTUV TEMP10 1 = TEMP10 (TYPE VECTOR)>
2628                     <JUMP + MAP28>
2629 MAPAP31
2630                     <GVAL 'V1 = TEMP10>
2631                     <TYPE? TEMP10 <TYPE-CODE FALSE> + MAPAP80>
2632                     <DEAD TEMP10>
2633                     <GVAL 'PASS1 = TEMP10>
2634                     <TYPE? TEMP10 <TYPE-CODE FALSE> - MAPAP80>
2635                     <DEAD TEMP10>
2636                     <CHTYPE T5 <TYPE-CODE VECTOR> = TEMP10>
2637                     <LOOP>
2638 MAP77
2639                     <INTGO>
2640                     <EMPUV? TEMP10 + MAPAP80>
2641                     <NTHUV TEMP10 1 = X39>
2642                     <TYPE? X39 <TYPE-CODE ATOM> - PHRASE85>
2643                     <FRAME '\1aPRINC>
2644                     <PUSH X39>
2645                     <DEAD X39>
2646                     <GEN-LVAL 'OUTCHAN = STACK>
2647                     <CALL '\1aPRINC 2>
2648                     <JUMP + PHRASE129>
2649 PHRASE85
2650                     <TYPE? X39 <TYPE-CODE REF> - PHRASE89>
2651                     <FRAME '\1aPRINC>
2652                     <PUSH "#REF [">
2653                     <GEN-LVAL 'OUTCHAN = STACK>
2654                     <CALL '\1aPRINC 2>
2655                     <NTHUV X39 1 = AC40>
2656                     <TYPE? AC40 <TYPE-CODE ATOM> - PHRASE95>
2657                     <DEAD AC40>
2658                     <FRAME '\1aPRINC>
2659                     <NTHUV X39 1 = STACK (TYPE ATOM)>
2660                     <DEAD X39>
2661                     <GEN-LVAL 'OUTCHAN = STACK>
2662                     <CALL '\1aPRINC 2>
2663                     <JUMP + PHRASE100>
2664 PHRASE95
2665                     <FRAME '\1aPRIN1>
2666                     <NTHUV X39 1 = STACK>
2667                     <DEAD X39>
2668                     <GEN-LVAL 'OUTCHAN = STACK>
2669                     <CALL '\1aPRIN1 2>
2670 PHRASE100
2671                     <FRAME '\1aPRINC>
2672                     <PUSH "]">
2673                     <GEN-LVAL 'OUTCHAN = STACK>
2674                     <CALL '\1aPRINC 2>
2675                     <JUMP + PHRASE129>
2676 PHRASE89
2677                     <TYPE? X39 <TYPE-CODE LIST> - PHRASE109>
2678                     <FRAME '\1aPRINC>
2679                     <PUSH "(">
2680                     <GEN-LVAL 'OUTCHAN = STACK>
2681                     <CALL '\1aPRINC 2>
2682                     <NTHL X39 1 = AC40>
2683                     <TYPE? AC40 <TYPE-CODE ATOM> - PHRASE115>
2684                     <DEAD AC40>
2685                     <FRAME '\1aPRINC>
2686                     <NTHL X39 1 = STACK (TYPE ATOM)>
2687                     <DEAD X39>
2688                     <GEN-LVAL 'OUTCHAN = STACK>
2689                     <CALL '\1aPRINC 2>
2690                     <JUMP + PHRASE120>
2691 PHRASE115
2692                     <FRAME '\1aPRIN1>
2693                     <NTHL X39 1 = STACK>
2694                     <DEAD X39>
2695                     <GEN-LVAL 'OUTCHAN = STACK>
2696                     <CALL '\1aPRIN1 2>
2697 PHRASE120
2698                     <FRAME '\1aPRINC>
2699                     <PUSH ")">
2700                     <GEN-LVAL 'OUTCHAN = STACK>
2701                     <CALL '\1aPRINC 2>
2702                     <JUMP + PHRASE129>
2703 PHRASE109
2704                     <FRAME '\1aPRIN1>
2705                     <PUSH X39>
2706                     <DEAD X39>
2707                     <GEN-LVAL 'OUTCHAN = STACK>
2708                     <CALL '\1aPRIN1 2>
2709 PHRASE129
2710                     <FRAME '\1aPRINC>
2711                     <PUSH !\ >
2712                     <GEN-LVAL 'OUTCHAN = STACK>
2713                     <CALL '\1aPRINC 2>
2714                     <RESTUV TEMP10 1 = TEMP10 (TYPE VECTOR)>
2715                     <JUMP + MAP77>
2716 MAPAP80
2717                     <VEQUAL? LABEL6 0 + PHRASE139>
2718                     <DEAD LABEL6>
2719                     <GVAL 'V1 = TEMP10>
2720                     <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE145>
2721                     <GVAL 'PASS1 = TEMP49>
2722                     <TYPE? TEMP49 <TYPE-CODE FALSE> + TAG141>
2723                     <DEAD TEMP49>
2724                     <RETURN %<>>
2725 TAG141
2726                     <FRAME '\1aPRINC>
2727                     <PUSH ":">
2728                     <GEN-LVAL 'OUTCHAN = STACK>
2729                     <CALL '\1aPRINC 2 = TEMP10>
2730                     <RETURN TEMP10>
2731                     <DEAD TEMP10>
2732 PHRASE139
2733                     <GVAL 'PASS1 = LABEL6>
2734                     <TYPE? LABEL6 <TYPE-CODE FALSE> + TAG146>
2735                     <DEAD LABEL6>
2736                     <RETURN %<>>
2737 TAG146
2738                     <GVAL 'V1 = LABEL6>
2739                     <TYPE? LABEL6 <TYPE-CODE FALSE> + BOOL147>
2740                     <DEAD LABEL6>
2741                     <FRAME '\1aCRLF>
2742                     <GEN-LVAL 'OUTCHAN = STACK>
2743                     <CALL '\1aCRLF 1>
2744 BOOL147
2745                     <GVAL 'CC = LABEL6>
2746                     <SET Y38 0 (TYPE FIX)>
2747                     <SET TEMP10 T5>
2748                     <DEAD T5>
2749                     <LOOP (TEMP10 VALUE LENGTH) (Y38 VALUE)>
2750 TAG155
2751                     <INTGO>
2752                     <EMPUV? TEMP10 + TAG152>
2753                     <NTHUV TEMP10 1 = STACK>
2754                     <RESTUV TEMP10 1 = TEMP10 (TYPE VECTOR)>
2755                     <ADD Y38 1 = Y38 (TYPE FIX)>
2756                     <JUMP + TAG155>
2757 TAG152
2758                     <UBLOCK <TYPE-CODE VECTOR> Y38 = TEMP10>
2759                     <DEAD Y38>
2760                     <CHTYPE TEMP10 <TYPE-CODE INST> = TEMP10>
2761                     <CONS TEMP10 () = TEMP10>
2762                     <PUTREST LABEL6 TEMP10>
2763                     <DEAD LABEL6>
2764                     <SETG 'CC TEMP10>
2765 PHRASE145
2766                     <RETURN TEMP10>
2767                     <DEAD TEMP10>
2768                     <END \1aOCEMIT>
2769 #WORD *35707157740*
2770 <GFCN \1aXEMIT ("VALUE" <OR FALSE STRING> "TUPLE" <TUPLE ATOM ATOM <OR FIX XTYPE-C REF>>)>
2771                     <MAKTUP T5:TUPLE TEMP11 TEMP10 COD7 M6 TEMP22:FIX TEMP24:FIX TEMP25:FIX TEMP21 ITM47 TEMP51 TEMP56 TEMP61 TEMP67 TEMP71 TEMP76 TEMP81 TEMP87 TEMP91 TEMP96 TEMP100 = T5>
2772                     <INTGO>
2773                     <GVAL 'PASS1 = TEMP11>
2774                     <TYPE? TEMP11 <TYPE-CODE FALSE> + TAG12>
2775                     <DEAD TEMP11>
2776                     <RETURN %<>>
2777 TAG12
2778                     <NTHUV T5 3 = COD7>
2779                     <TYPE? COD7 <TYPE-CODE FIX> - PHRASE14>
2780                     <SET M6 [834 10 898 10 706 12 770 16 962 10] (TYPE VECTOR)>
2781                     <LOOP (COD7 VALUE) (M6 LENGTH VALUE)>
2782 TAG18
2783                     <NTHUV M6 1 = TEMP11>
2784                     <VEQUAL? TEMP11 COD7 + TAG17>
2785                     <DEAD TEMP11>
2786                     <RESTUV M6 1 = M6 (TYPE VECTOR)>
2787                     <EMPUV? M6 - TAG18>
2788                     <DEAD M6>
2789                     <SET M6 %<> (TYPE FALSE)>
2790 TAG17
2791                     <TYPE? M6 <TYPE-CODE FALSE> + PHRASE14>
2792                     <GVAL 'CC = TEMP11>
2793                     <PUSH 'MOVE>
2794                     <NTHUV T5 2 = STACK (TYPE ATOM)>
2795                     <SET TEMP22 2 (TYPE FIX)>
2796                     <SFRAME 'OBJ-VAL>
2797                     <LSH COD7 18 = COD7 (TYPE FIX)>
2798                     <NTHUV M6 2 = M6 (TYPE FIX)>
2799                     <OR COD7 M6 = STACK>
2800                     <DEAD M6 COD7>
2801                     <SCALL '\1aOBJ-VAL 1 = TEMP21 + TAG20 TEMP22>
2802                     <LOOP (TEMP21 TYPE VALUE LENGTH) (TEMP22 VALUE)>
2803 TAG26
2804                     <INTGO>
2805                     <EMPTY? TEMP21 + TAG20>
2806                     <NTH1 TEMP21 = STACK>
2807                     <REST1 TEMP21 = TEMP21>
2808                     <ADD TEMP22 1 = TEMP22 (TYPE FIX)>
2809                     <JUMP + TAG26>
2810 TAG20
2811                     <DEAD TEMP21>
2812                     <UBLOCK <TYPE-CODE VECTOR> TEMP22 = TEMP21>
2813                     <DEAD TEMP22>
2814                     <CHTYPE TEMP21 <TYPE-CODE INST> = TEMP21>
2815                     <CONS TEMP21 () = TEMP21>
2816                     <PUTREST TEMP11 TEMP21>
2817                     <DEAD TEMP11>
2818                     <SETG 'CC TEMP21>
2819                     <DEAD TEMP21>
2820                     <JUMP + PHRASE28>
2821 PHRASE14
2822                     <GVAL 'CC = TEMP21>
2823                     <SET TEMP25 0 (TYPE FIX)>
2824                     <SET TEMP11 T5>
2825                     <LOOP (TEMP11 VALUE LENGTH) (TEMP25 VALUE)>
2826 TAG30
2827                     <INTGO>
2828                     <EMPUV? TEMP11 + TAG29>
2829                     <NTHUV TEMP11 1 = STACK>
2830                     <RESTUV TEMP11 1 = TEMP11 (TYPE VECTOR)>
2831                     <ADD TEMP25 1 = TEMP25 (TYPE FIX)>
2832                     <JUMP + TAG30>
2833 TAG29
2834                     <DEAD TEMP11>
2835                     <UBLOCK <TYPE-CODE VECTOR> TEMP25 = TEMP11>
2836                     <DEAD TEMP25>
2837                     <CHTYPE TEMP11 <TYPE-CODE INST> = TEMP11>
2838                     <CONS TEMP11 () = TEMP11>
2839                     <PUTREST TEMP21 TEMP11>
2840                     <DEAD TEMP21>
2841                     <SETG 'CC TEMP11>
2842                     <DEAD TEMP11>
2843 PHRASE28
2844                     <GVAL 'V1 = TEMP10>
2845                     <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE33>
2846                     <FRAME '\1aINDENT-TO>
2847                     <PUSH 40>
2848                     <CALL '\1aINDENT-TO 1>
2849                     <FRAME '\1aPRINC>
2850                     <PUSH "*TRQ*">
2851                     <GEN-LVAL 'OUTCHAN = STACK>
2852                     <CALL '\1aPRINC 2>
2853                     <CHTYPE T5 <TYPE-CODE VECTOR> = TEMP21>
2854                     <DEAD T5>
2855                     <LOOP>
2856 MAP39
2857                     <INTGO>
2858                     <EMPUV? TEMP21 + MAPAP42>
2859                     <NTHUV TEMP21 1 = ITM47>
2860                     <TYPE? ITM47 <TYPE-CODE ATOM> - PHRASE49>
2861                     <FRAME '\1aPRINC>
2862                     <PUSH ITM47>
2863                     <DEAD ITM47>
2864                     <GEN-LVAL 'OUTCHAN = STACK>
2865                     <CALL '\1aPRINC 2>
2866                     <JUMP + PHRASE94>
2867 PHRASE49
2868                     <TYPE? ITM47 <TYPE-CODE REF> - PHRASE54>
2869                     <FRAME '\1aPRINC>
2870                     <PUSH "#REF [">
2871                     <GEN-LVAL 'OUTCHAN = STACK>
2872                     <CALL '\1aPRINC 2>
2873                     <NTHUV ITM47 1 = TEMP61>
2874                     <TYPE? TEMP61 <TYPE-CODE ATOM> - PHRASE60>
2875                     <DEAD TEMP61>
2876                     <FRAME '\1aPRINC>
2877                     <NTHUV ITM47 1 = STACK (TYPE ATOM)>
2878                     <DEAD ITM47>
2879                     <GEN-LVAL 'OUTCHAN = STACK>
2880                     <CALL '\1aPRINC 2>
2881                     <JUMP + PHRASE65>
2882 PHRASE60
2883                     <FRAME '\1aPRIN1>
2884                     <NTHUV ITM47 1 = STACK>
2885                     <DEAD ITM47>
2886                     <GEN-LVAL 'OUTCHAN = STACK>
2887                     <CALL '\1aPRIN1 2>
2888 PHRASE65
2889                     <FRAME '\1aPRINC>
2890                     <PUSH "]">
2891                     <GEN-LVAL 'OUTCHAN = STACK>
2892                     <CALL '\1aPRINC 2>
2893                     <JUMP + PHRASE94>
2894 PHRASE54
2895                     <TYPE? ITM47 <TYPE-CODE LIST> - PHRASE74>
2896                     <FRAME '\1aPRINC>
2897                     <PUSH "(">
2898                     <GEN-LVAL 'OUTCHAN = STACK>
2899                     <CALL '\1aPRINC 2>
2900                     <NTHL ITM47 1 = TEMP81>
2901                     <TYPE? TEMP81 <TYPE-CODE ATOM> - PHRASE80>
2902                     <DEAD TEMP81>
2903                     <FRAME '\1aPRINC>
2904                     <NTHL ITM47 1 = STACK (TYPE ATOM)>
2905                     <DEAD ITM47>
2906                     <GEN-LVAL 'OUTCHAN = STACK>
2907                     <CALL '\1aPRINC 2>
2908                     <JUMP + PHRASE85>
2909 PHRASE80
2910                     <FRAME '\1aPRIN1>
2911                     <NTHL ITM47 1 = STACK>
2912                     <DEAD ITM47>
2913                     <GEN-LVAL 'OUTCHAN = STACK>
2914                     <CALL '\1aPRIN1 2>
2915 PHRASE85
2916                     <FRAME '\1aPRINC>
2917                     <PUSH ")">
2918                     <GEN-LVAL 'OUTCHAN = STACK>
2919                     <CALL '\1aPRINC 2>
2920                     <JUMP + PHRASE94>
2921 PHRASE74
2922                     <FRAME '\1aPRIN1>
2923                     <PUSH ITM47>
2924                     <DEAD ITM47>
2925                     <GEN-LVAL 'OUTCHAN = STACK>
2926                     <CALL '\1aPRIN1 2>
2927 PHRASE94
2928                     <FRAME '\1aPRINC>
2929                     <PUSH !\ >
2930                     <GEN-LVAL 'OUTCHAN = STACK>
2931                     <CALL '\1aPRINC 2>
2932                     <RESTUV TEMP21 1 = TEMP21 (TYPE VECTOR)>
2933                     <JUMP + MAP39>
2934 MAPAP42
2935                     <DEAD TEMP21>
2936                     <FRAME '\1aCRLF>
2937                     <GEN-LVAL 'OUTCHAN = STACK>
2938                     <CALL '\1aCRLF 1>
2939                     <FRAME '\1aINDENT-TO>
2940                     <PUSH 45>
2941                     <CALL '\1aINDENT-TO 1 = TEMP10>
2942 PHRASE33
2943                     <RETURN TEMP10>
2944                     <DEAD TEMP10>
2945                     <END \1aXEMIT>
2946 #WORD *1314513466*
2947 <GFCN \1aCONST-LOC ("VALUE" ANY ANY ANY "OPTIONAL" ANY) ITM8 TYP9 NEWV10>
2948                     <OPT-DISPATCH 2 %<> OPT6 OPT7>
2949 OPT6
2950                     <PUSH #UNBOUND 0>
2951 OPT7
2952                     <TEMP TEMP15>
2953                     <INTGO>
2954                     <EQUAL? TYP9 'TYPE - PHRASE12>
2955                     <DEAD TYP9>
2956                     <FRAME '\1aTYPE-WORD>
2957                     <FRAME '\1aTYPE>
2958                     <PUSH ITM8>
2959                     <CALL '\1aTYPE 1 = STACK>
2960                     <CALL '\1aTYPE-WORD 1 = TEMP15>
2961                     <RETURN TEMP15>
2962                     <DEAD TEMP15>
2963 PHRASE12
2964                     <TYPE? ITM8 <TYPE-CODE CONST-W-LOCAL> - PHRASE18>
2965                     <FRAME '\1aCONST-ADD>
2966                     <PUSH ITM8>
2967                     <CALL '\1aCONST-ADD 1 = TEMP15>
2968                     <RETURN TEMP15>
2969                     <DEAD TEMP15>
2970 PHRASE18
2971                     <FRAME '\1aCONST-ADD>
2972                     <CHTYPE ITM8 <TYPE-CODE CONSTANT> = ITM8>
2973                     <PUSH ITM8>
2974                     <DEAD ITM8>
2975                     <CALL '\1aCONST-ADD 1 = TEMP15>
2976                     <RETURN TEMP15>
2977                     <DEAD TEMP15>
2978                     <END \1aCONST-LOC>
2979 #WORD *36412417356*
2980 <GFCN \1aCONST-ADD ("VALUE" <LIST REF> <OR CONSTANT CONST-W-LOCAL>) ITM5>
2981                     <TEMP TEMP12 LS7:FIX HC8:FIX TEMP16 BUCK9:LIST INDX10:FIX CB27:CONSTANT-BUCKET TEM28 TEMP42 FCB11:CONSTANT-BUCKET>
2982                     <INTGO>
2983                     <GVAL 'CONSTSEQ = TEMP12>
2984                     <ADD TEMP12 1 = LS7 (TYPE FIX)>
2985                     <DEAD TEMP12>
2986                     <TYPE? ITM5 <TYPE-CODE CONSTANT> - PHRASE14>
2987                     <CHTYPE ITM5 <TYPE-CODE FIX> = HC8>
2988                     <JUMP + PHRASE15>
2989 PHRASE14
2990                     <NTHL ITM5 1 = TEMP12>
2991                     <RESTL ITM5 1 = TEMP16 (TYPE LIST)>
2992                     <NTHL TEMP16 1 = TEMP16>
2993                     <XOR TEMP12 TEMP16 = HC8>
2994                     <DEAD TEMP12 TEMP16>
2995 PHRASE15
2996                     <GVAL 'CONSTANT-TABLE = TEMP16>
2997                     <XOR HC8 #WORD *202622072311* = HC8>
2998                     <MOD HC8 1001 = TEMP12 (TYPE FIX)>
2999                     <ADD TEMP12 1 = INDX10 (TYPE FIX)>
3000                     <DEAD TEMP12>
3001                     <NTHUV TEMP16 INDX10 = BUCK9 (TYPE LIST)>
3002                     <DEAD TEMP16>
3003                     <SET TEMP12 %<> (TYPE FALSE)>
3004                     <SET TEMP16 BUCK9 (TYPE LIST)>
3005                     <LOOP>
3006 MAP19
3007                     <INTGO>
3008                     <EMPL? TEMP16 + MAPAP22>
3009                     <NTHL TEMP16 1 = CB27>
3010                     <NTHUV CB27 2 = TEMP12 (TYPE FIX)>
3011                     <VEQUAL? HC8 TEMP12 + TAG33 (TYPE FIX)>
3012                     <DEAD TEMP12>
3013                     <SET TEMP12 %<> (TYPE FALSE)>
3014                     <JUMP + PHRASE30>
3015 TAG33
3016                     <TYPE? ITM5 <TYPE-CODE CONSTANT> - BOOL35>
3017                     <NTHUV CB27 1 = TEMP12>
3018                     <EQUAL? TEMP12 ITM5 + TAG43>
3019                     <DEAD TEMP12>
3020 BOOL35
3021                     <TYPE? ITM5 <TYPE-CODE CONST-W-LOCAL> + TAG37>
3022                     <SET TEMP12 %<> (TYPE FALSE)>
3023                     <JUMP + PHRASE30>
3024 TAG37
3025                     <NTHUV CB27 1 = TEM28>
3026                     <TYPE? TEM28 <TYPE-CODE CONST-W-LOCAL> + TAG39>
3027                     <SET TEMP12 %<> (TYPE FALSE)>
3028                     <JUMP + PHRASE30>
3029 TAG39
3030                     <NTHL TEM28 1 = TEMP12>
3031                     <NTHL ITM5 1 = TEMP42>
3032                     <EQUAL? TEMP12 TEMP42 + TAG41>
3033                     <DEAD TEMP12 TEMP42>
3034                     <SET TEMP12 %<> (TYPE FALSE)>
3035                     <JUMP + PHRASE30>
3036 TAG41
3037                     <RESTL TEM28 1 = TEMP42 (TYPE LIST)>
3038                     <DEAD TEM28>
3039                     <NTHL TEMP42 1 = TEMP42>
3040                     <RESTL ITM5 1 = TEMP12 (TYPE LIST)>
3041                     <NTHL TEMP12 1 = TEMP12>
3042                     <EQUAL? TEMP42 TEMP12 + TAG43>
3043                     <DEAD TEMP42>
3044                     <SET TEMP12 %<> (TYPE FALSE)>
3045                     <JUMP + PHRASE30>
3046 TAG43
3047                     <SET FCB11 CB27>
3048                     <DEAD CB27>
3049                     <SET TEMP12 'T (TYPE ATOM)>
3050                     <JUMP + MAPAP22>
3051 PHRASE30
3052                     <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
3053                     <JUMP + MAP19>
3054 MAPAP22
3055                     <TYPE? TEMP12 <TYPE-CODE FALSE> - PHRASE44>
3056                     <DEAD TEMP12>
3057                     <PUSH ITM5>
3058                     <DEAD ITM5>
3059                     <PUSH HC8>
3060                     <DEAD HC8>
3061                     <SETG 'CONSTSEQ LS7>
3062                     <CHTYPE LS7 <TYPE-CODE CONSTANT-LABEL> = STACK>
3063                     <DEAD LS7>
3064                     <PUSH 0>
3065                     <UBLOCK <TYPE-CODE VECTOR> 4 = TEMP12>
3066                     <CHTYPE TEMP12 <TYPE-CODE CONSTANT-BUCKET> = FCB11>
3067                     <DEAD TEMP12>
3068                     <GVAL 'CONSTANT-VECTOR = TEMP12>
3069                     <CONS FCB11 TEMP12 = TEMP12>
3070                     <SETG 'CONSTANT-VECTOR TEMP12>
3071                     <DEAD TEMP12>
3072                     <CONS FCB11 BUCK9 = TEMP12>
3073                     <DEAD BUCK9>
3074                     <GVAL 'CONSTANT-TABLE = TEMP16>
3075                     <PUTUV TEMP16 INDX10 TEMP12 (TYPE LIST)>
3076                     <DEAD TEMP16 INDX10 TEMP12>
3077 PHRASE44
3078                     <PUSH FCB11>
3079                     <DEAD FCB11>
3080                     <UBLOCK <TYPE-CODE VECTOR> 1 = TEMP16>
3081                     <CHTYPE TEMP16 <TYPE-CODE REF> = TEMP16>
3082                     <CONS TEMP16 () = TEMP16>
3083                     <RETURN TEMP16>
3084                     <DEAD TEMP16>
3085                     <END \1aCONST-ADD>
3086 #WORD *13136423453*
3087 <GFCN \1aCONST-ADD-FRM ("VALUE" <LIST [REST CONSTANT-BUCKET]>)>
3088                     <TEMP TEMP7 CB5:CONSTANT-BUCKET TEMP8:LIST>
3089                     <INTGO>
3090                     <PUSH 'FREE>
3091                     <PUSH 0>
3092                     <GVAL 'CONSTSEQ = TEMP7>
3093                     <ADD TEMP7 1 = TEMP7 (TYPE FIX)>
3094                     <SETG 'CONSTSEQ TEMP7>
3095                     <CHTYPE TEMP7 <TYPE-CODE CONSTANT-LABEL> = STACK>
3096                     <DEAD TEMP7>
3097                     <PUSH 0>
3098                     <UBLOCK <TYPE-CODE VECTOR> 4 = TEMP7>
3099                     <CHTYPE TEMP7 <TYPE-CODE CONSTANT-BUCKET> = CB5>
3100                     <DEAD TEMP7>
3101                     <CONS CB5 () = TEMP7>
3102                     <GVAL 'CONSTANT-VECTOR = TEMP8>
3103                     <PUTREST TEMP7 TEMP8>
3104                     <DEAD TEMP8>
3105                     <SETG 'CONSTANT-VECTOR TEMP7>
3106                     <DEAD TEMP7>
3107                     <GVAL 'FREE-CONSTS = TEMP8>
3108                     <CONS CB5 TEMP8 = TEMP8>
3109                     <DEAD CB5>
3110                     <SETG 'FREE-CONSTS TEMP8>
3111                     <RETURN TEMP8>
3112                     <DEAD TEMP8>
3113                     <END \1aCONST-ADD-FRM>
3114 #WORD *15030636617*
3115 <GFCN \1aOBJ-LOC ("VALUE" <LIST FIX <OR LOCAL-NAME !<LIST ATOM>>> ANY FIX) ITM5 OFF6>
3116                     <TEMP LCL9 TEMP18>
3117                     <INTGO>
3118                     <TYPE? ITM5 <TYPE-CODE ATOM> - PHRASE11>
3119                     <FRAME '\1aLMEMQ>
3120                     <PUSH ITM5>
3121                     <GVAL 'LOCALS = STACK>
3122                     <CALL '\1aLMEMQ 2 = LCL9>
3123                     <VEQUAL? LCL9 0 - BOOL14>
3124                     <GVAL 'ICALL-FLAG = LCL9>
3125                     <TYPE? LCL9 <TYPE-CODE FALSE> + BOOL14>
3126                     <FRAME '\1aLMEMQ>
3127                     <PUSH ITM5>
3128                     <DEAD ITM5>
3129                     <GVAL 'ICALL-TEMPS = STACK>
3130                     <CALL '\1aLMEMQ 2 = LCL9>
3131 BOOL14
3132                     <GVAL 'WINNING-VICTIM = TEMP18>
3133                     <TYPE? TEMP18 <TYPE-CODE FALSE> + PHRASE17>
3134                     <DEAD TEMP18>
3135                     <SET TEMP18 (TP*) (TYPE LIST)>
3136                     <JUMP + PHRASE19>
3137 PHRASE17
3138                     <SET TEMP18 (F*) (TYPE LIST)>
3139 PHRASE19
3140                     <CONS TEMP18 () = TEMP18>
3141                     <NTHUV LCL9 3 = LCL9 (TYPE LOCAL-NAME)>
3142                     <CONS LCL9 TEMP18 = TEMP18>
3143                     <DEAD LCL9>
3144                     <GVAL 'STACK-DEPTH = LCL9>
3145                     <SUB OFF6 LCL9 = LCL9 (TYPE FIX)>
3146                     <DEAD OFF6>
3147                     <CONS LCL9 TEMP18 = TEMP18>
3148                     <DEAD LCL9>
3149                     <RETURN TEMP18>
3150                     <DEAD TEMP18>
3151 PHRASE11
3152                     <FRAME '\1aMVADD>
3153                     <PUSH ITM5>
3154                     <DEAD ITM5>
3155                     <CALL '\1aMVADD 1 = LCL9>
3156                     <ADD LCL9 1 = LCL9 (TYPE FIX)>
3157                     <LSH LCL9 1 = LCL9 (TYPE FIX)>
3158                     <CONS (M*) () = TEMP18>
3159                     <ADD OFF6 LCL9 = LCL9 (TYPE FIX)>
3160                     <DEAD OFF6>
3161                     <CONS LCL9 TEMP18 = TEMP18>
3162                     <DEAD LCL9>
3163                     <RETURN TEMP18>
3164                     <DEAD TEMP18>
3165                     <END \1aOBJ-LOC>
3166 #WORD *22305003060*
3167 <GFCN \1aALLOCATE-CONSTANTS ("VALUE" <OR FALSE FIX> LIST FIX) CV5 START6>
3168                     <TEMP TEMP16 TEMP13:LIST>
3169                     <INTGO>
3170                     <SET TEMP16 %<> (TYPE FALSE)>
3171                     <SET TEMP13 CV5 (TYPE LIST)>
3172                     <DEAD CV5>
3173                     <LOOP>
3174 MAP8
3175                     <INTGO>
3176                     <EMPL? TEMP13 + MAPAP11>
3177                     <NTHL TEMP13 1 = TEMP16>
3178                     <PUTUV TEMP16 4 START6 (TYPE FIX)>
3179                     <DEAD TEMP16>
3180                     <ADD START6 1 = START6 (TYPE FIX)>
3181                     <SET TEMP16 START6>
3182                     <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
3183                     <JUMP + MAP8>
3184 MAPAP11
3185                     <RETURN TEMP16>
3186                     <DEAD TEMP16>
3187                     <END \1aALLOCATE-CONSTANTS>
3188 #WORD *27123034316*
3189 <GFCN \1aFIXUP-CONSTANTS ("VALUE" ANY LIST) C5>
3190                     <TEMP (N6:FIX 0) TEMP16 TEMP13:LIST CP18:LIST TEMP27 X21 TEMP35:FIX>
3191                     <INTGO>
3192                     <SET TEMP16 %<> (TYPE FALSE)>
3193                     <SET TEMP13 C5 (TYPE LIST)>
3194                     <DEAD C5>
3195                     <LOOP>
3196 MAP8
3197                     <INTGO>
3198                     <EMPL? TEMP13 + MAPAP11>
3199                     <SET CP18 TEMP13>
3200                     <NTHL CP18 1 = TEMP16>
3201                     <TYPE? TEMP16 <TYPE-CODE INST> + TAG25>
3202                     <SET TEMP16 %<> (TYPE FALSE)>
3203                     <JUMP + PHRASE45>
3204 TAG25
3205                     <ADD N6 1 = N6 (TYPE FIX)>
3206                     <LENUV TEMP16 = TEMP27 (TYPE FIX)>
3207                     <NTHUV TEMP16 TEMP27 = TEMP27>
3208                     <TYPE? TEMP27 <TYPE-CODE REF> + TAG28>
3209                     <SET TEMP16 %<> (TYPE FALSE)>
3210                     <JUMP + PHRASE45>
3211 TAG28
3212                     <NTHUV TEMP27 1 = X21>
3213                     <DEAD TEMP27>
3214                     <TYPE? X21 <TYPE-CODE CONSTANT-BUCKET> + PHRASE31>
3215                     <FRAME '\1aMIMOCERR>
3216                     <PUSH 'BAD-REF-IN-CODE!-ERRORS>
3217                     <PUSH X21>
3218                     <DEAD X21>
3219                     <CALL '\1aMIMOCERR 2 = TEMP16>
3220                     <JUMP + PHRASE45>
3221 PHRASE31
3222                     <GVAL 'MAX-SPACE = TEMP27>
3223                     <TYPE? TEMP27 <TYPE-CODE FALSE> + PHRASE33>
3224                     <DEAD TEMP27>
3225                     <CONS X21 () = TEMP27>
3226                     <DEAD X21>
3227                     <CONS N6 TEMP27 = STACK>
3228                     <DEAD TEMP27>
3229                     <SET TEMP35 1 (TYPE FIX)>
3230                     <GVAL 'GREFS = TEMP27>
3231                     <TYPE TEMP27 = X21>
3232                     <AND X21 7 = X21>
3233                     <VEQUAL? X21 1 + TAG37>
3234                     <DEAD X21>
3235                     <LOOP (TEMP27 TYPE VALUE LENGTH) (TEMP35 VALUE)>
3236 TAG43
3237                     <INTGO>
3238                     <EMPTY? TEMP27 + TAG42>
3239                     <NTH1 TEMP27 = STACK>
3240                     <REST1 TEMP27 = TEMP27>
3241                     <ADD TEMP35 1 = TEMP35 (TYPE FIX)>
3242                     <JUMP + TAG43>
3243 TAG42
3244                     <LIST TEMP35 = TEMP27 (TYPE LIST)>
3245                     <DEAD TEMP35>
3246                     <JUMP + TAG38>
3247 TAG37
3248                     <LOOP>
3249 TAG40
3250                     <VEQUAL? TEMP35 0 + TAG39>
3251                     <POP = X21>
3252                     <CONS X21 TEMP27 = TEMP27 (TYPE LIST)>
3253                     <DEAD X21>
3254                     <SUB TEMP35 1 = TEMP35 (TYPE FIX)>
3255                     <JUMP + TAG40>
3256 TAG39
3257 TAG38
3258                     <SETG 'GREFS TEMP27>
3259                     <DEAD TEMP27>
3260                     <NTHUV TEMP16 1 = STACK>
3261                     <NTHUV TEMP16 2 = STACK>
3262                     <DEAD TEMP16>
3263                     <PUSH 0>
3264                     <PUSH (R*)>
3265                     <UBLOCK <TYPE-CODE VECTOR> 4 = TEMP27>
3266                     <CHTYPE TEMP27 <TYPE-CODE INST> = TEMP27>
3267                     <PUTL CP18 1 TEMP27>
3268                     <DEAD TEMP27>
3269                     <SET TEMP16 CP18>
3270                     <DEAD CP18>
3271                     <JUMP + PHRASE45>
3272 PHRASE33
3273                     <NTHUV TEMP16 1 = STACK>
3274                     <NTHUV TEMP16 2 = STACK>
3275                     <DEAD TEMP16>
3276                     <NTHUV X21 4 = STACK (TYPE FIX)>
3277                     <DEAD X21>
3278                     <PUSH (R*)>
3279                     <UBLOCK <TYPE-CODE VECTOR> 4 = TEMP27>
3280                     <CHTYPE TEMP27 <TYPE-CODE INST> = TEMP27>
3281                     <PUTL CP18 1 TEMP27>
3282                     <DEAD TEMP27>
3283                     <SET TEMP16 CP18>
3284                     <DEAD CP18>
3285 PHRASE45
3286                     <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
3287                     <JUMP + MAP8>
3288 MAPAP11
3289                     <RETURN TEMP16>
3290                     <DEAD TEMP16>
3291                     <END \1aFIXUP-CONSTANTS>
3292 #WORD *21766610302*
3293 <GFCN \1aOBJ-VAL ("VALUE" ANY ANY "OPTIONAL" <OR FALSE ATOM>) ITM8 AC?9>
3294                     <OPT-DISPATCH 1 %<> OPT6 OPT7>
3295 OPT6
3296                     <PUSH 'T>
3297 OPT7
3298                     <TEMP AC10 TEMP15 TEMP18:ATOM>
3299                     <INTGO>
3300                     <TYPE? AC?9 <TYPE-CODE FALSE> + PHRASE12>
3301                     <DEAD AC?9>
3302                     <FRAME '\1aIN-AC?>
3303                     <PUSH ITM8>
3304                     <PUSH 'VALUE>
3305                     <CALL '\1aIN-AC? 2 = AC10>
3306                     <TYPE? AC10 <TYPE-CODE FALSE> + PHRASE12>
3307                     <CONS AC10 () = AC10>
3308                     <RETURN AC10>
3309                     <DEAD AC10>
3310 PHRASE12
3311                     <FRAME '\1aPRIMTYPE>
3312                     <PUSH ITM8>
3313                     <CALL '\1aPRIMTYPE 1 = TEMP18>
3314                     <VEQUAL? TEMP18 'FIX - PHRASE16>
3315                     <DEAD TEMP18>
3316                     <FRAME '\1aCONST-LOC>
3317                     <CHTYPE ITM8 <TYPE-CODE CONSTANT> = STACK>
3318                     <PUSH 'VALUE>
3319                     <CALL '\1aCONST-LOC 2 = TEMP15>
3320                     <RETURN TEMP15>
3321                     <DEAD TEMP15>
3322 PHRASE16
3323                     <TYPE? ITM8 <TYPE-CODE CONST-W-LOCAL> - PHRASE20>
3324                     <FRAME '\1aCONST-LOC>
3325                     <PUSH ITM8>
3326                     <PUSH 'VALUE>
3327                     <CALL '\1aCONST-LOC 2 = TEMP15>
3328                     <RETURN TEMP15>
3329                     <DEAD TEMP15>
3330 PHRASE20
3331                     <FRAME '\1aOBJ-LOC>
3332                     <PUSH ITM8>
3333                     <DEAD ITM8>
3334                     <PUSH 1>
3335                     <CALL '\1aOBJ-LOC 2 = TEMP15>
3336                     <RETURN TEMP15>
3337                     <DEAD TEMP15>
3338                     <END \1aOBJ-VAL>
3339 #WORD *12446006040*
3340 <GFCN \1aOBJ-TYP ("VALUE" ANY ANY) ITM5>
3341                     <TEMP AC6 TEMP10 TEMP14:ATOM TEMP19:VECTOR TEMP20>
3342                     <INTGO>
3343                     <FRAME '\1aIN-AC?>
3344                     <PUSH ITM5>
3345                     <PUSH 'TYPE>
3346                     <CALL '\1aIN-AC? 2 = AC6>
3347                     <TYPE? AC6 <TYPE-CODE FALSE> + PHRASE8>
3348                     <CONS AC6 () = AC6>
3349                     <RETURN AC6>
3350                     <DEAD AC6>
3351 PHRASE8
3352                     <FRAME '\1aPRIMTYPE>
3353                     <PUSH ITM5>
3354                     <CALL '\1aPRIMTYPE 1 = TEMP14>
3355                     <VEQUAL? TEMP14 'FIX - PHRASE11>
3356                     <DEAD TEMP14>
3357                     <FRAME '\1aTYPE>
3358                     <PUSH ITM5>
3359                     <CALL '\1aTYPE 1 = TEMP14>
3360                     <GVAL 'TYPE-WORDS = TEMP19>
3361                     <EMPUV? TEMP19 + PHRASE11>
3362                     <LOOP (TEMP14 VALUE) (TEMP19 LENGTH VALUE)>
3363 TAG16
3364                     <NTHUV TEMP19 1 = TEMP20>
3365                     <TYPE? TEMP20 <TYPE-CODE ATOM> - TAG17>
3366                     <VEQUAL? TEMP20 TEMP14 + TAG15>
3367                     <DEAD TEMP20>
3368 TAG17
3369                     <RESTUV TEMP19 1 = TEMP19 (TYPE VECTOR)>
3370                     <EMPUV? TEMP19 - TAG16>
3371                     <DEAD TEMP14 TEMP19>
3372                     <JUMP + PHRASE11>
3373 TAG15
3374                     <FRAME '\1aCONST-LOC>
3375                     <PUSH ITM5>
3376                     <PUSH 'TYPE>
3377                     <CALL '\1aCONST-LOC 2 = TEMP10>
3378                     <RETURN TEMP10>
3379                     <DEAD TEMP10>
3380 PHRASE11
3381                     <FRAME '\1aOBJ-LOC>
3382                     <PUSH ITM5>
3383                     <DEAD ITM5>
3384                     <PUSH 0>
3385                     <CALL '\1aOBJ-LOC 2 = TEMP10>
3386                     <RETURN TEMP10>
3387                     <DEAD TEMP10>
3388                     <END \1aOBJ-TYP>
3389 #WORD *30212552067*
3390 <GFCN \1aXJUMP ("VALUE" REF ANY) TAG5>
3391                     <TEMP TEMP10 TEMP11 X6>
3392                     <INTGO>
3393                     <NTHR TAG5 4 = TEMP10 (RECORD-TYPE ATOM)>
3394                     <GVAL 'LABEL-OBLIST = TEMP11>
3395                     <EQUAL? TEMP10 TEMP11 + PHRASE8>
3396                     <DEAD TEMP11 TEMP10>
3397                     <FRAME '\1aLOOKUP>
3398                     <NTHR TAG5 3 = STACK (RECORD-TYPE ATOM)>
3399                     <GVAL 'LABEL-OBLIST = STACK>
3400                     <CALL '\1aLOOKUP 2 = X6>
3401                     <TYPE? X6 <TYPE-CODE FALSE> + PHRASE8>
3402                     <SET TAG5 X6>
3403                     <DEAD X6>
3404 PHRASE8
3405                     <PUSH TAG5>
3406                     <DEAD TAG5>
3407                     <UBLOCK <TYPE-CODE VECTOR> 1 = TEMP11>
3408                     <CHTYPE TEMP11 <TYPE-CODE REF> = TEMP11>
3409                     <RETURN TEMP11>
3410                     <DEAD TEMP11>
3411                     <END \1aXJUMP>
3412 #WORD *7520100416*
3413 <GFCN \1aDEAD!-MIMOC ("VALUE" <OR FALSE AC> <LIST [REST ATOM]> "OPTIONAL" <OR FALSE ATOM> ANY) LCLS10 PRED?11 NO-TY12>
3414                     <OPT-DISPATCH 1 %<> OPT7 OPT8 OPT9>
3415 OPT7
3416                     <PUSH %<>>
3417 OPT8
3418                     <PUSH %<>>
3419 OPT9
3420                     <TEMP TEMP15 TEMP26:VECTOR AC27:AC ITM28 TEMP37>
3421                     <INTGO>
3422                     <GVAL 'DEATH-TRQ = TEMP15>
3423                     <TYPE? TEMP15 <TYPE-CODE FALSE> - PHRASE14>
3424                     <DEAD TEMP15>
3425                     <SET NO-TY12 'T (TYPE ATOM)>
3426 PHRASE14
3427                     <SET TEMP15 %<> (TYPE FALSE)>
3428                     <GVAL 'AC-TABLE = TEMP26>
3429                     <LOOP>
3430 MAP17
3431                     <INTGO>
3432                     <EMPUV? TEMP26 + MAPAP20>
3433                     <NTHUV TEMP26 1 = AC27>
3434                     <NTHUV AC27 2 = ITM28>
3435                     <SET TEMP15 LCLS10>
3436                     <TYPE? ITM28 <TYPE-CODE ATOM> - TAG33>
3437                     <EMPL? TEMP15 + TAG33>
3438                     <LOOP (ITM28 VALUE) (TEMP15 VALUE)>
3439 TAG35
3440                     <NTHL TEMP15 1 = TEMP37>
3441                     <VEQUAL? TEMP37 ITM28 + TAG34>
3442                     <DEAD TEMP37>
3443                     <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
3444                     <EMPL? TEMP15 - TAG35>
3445 TAG33
3446                     <SET TEMP15 %<> (TYPE FALSE)>
3447                     <JUMP + PHRASE48>
3448 TAG34
3449                     <FRAME '\1aLMEMQ>
3450                     <NTHUV AC27 2 = STACK (TYPE ATOM)>
3451                     <GVAL 'LOCALS = STACK>
3452                     <CALL '\1aLMEMQ 2 = TEMP37>
3453                     <VEQUAL? TEMP37 0 - BOOL40>
3454                     <GVAL 'ICALL-FLAG = TEMP37>
3455                     <TYPE? TEMP37 <TYPE-CODE FALSE> + BOOL40>
3456                     <FRAME '\1aLMEMQ>
3457                     <NTHUV AC27 2 = STACK (TYPE ATOM)>
3458                     <GVAL 'ICALL-TEMPS = STACK>
3459                     <CALL '\1aLMEMQ 2 = TEMP37>
3460 BOOL40
3461                     <PUTUV TEMP37 5 %<>>
3462                     <PUTUV TEMP37 6 %<>>
3463                     <DEAD TEMP37>
3464                     <NTHUV AC27 6 = TEMP15>
3465                     <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE45>
3466                     <TYPE? NO-TY12 <TYPE-CODE FALSE> - PHRASE45>
3467                     <FRAME '\1aLOAD-TYPE-IN-AC>
3468                     <NTHUV AC27 1 = STACK (TYPE ATOM)>
3469                     <PUSH TEMP15>
3470                     <DEAD TEMP15>
3471                     <CALL '\1aLOAD-TYPE-IN-AC 2>
3472                     <PUTUV AC27 6 %<>>
3473 PHRASE45
3474                     <PUTUV AC27 5 %<>>
3475                     <TYPE? PRED?11 <TYPE-CODE FALSE> + TAG49>
3476                     <SET TEMP15 %<> (TYPE FALSE)>
3477                     <JUMP + PHRASE48>
3478 TAG49
3479                     <PUTUV AC27 3 'DUMMY (TYPE ATOM)>
3480                     <PUTUV AC27 2 %<>>
3481                     <PUTUV AC27 4 0 (TYPE FIX)>
3482                     <SET TEMP15 AC27>
3483                     <DEAD AC27>
3484 PHRASE48
3485                     <RESTUV TEMP26 1 = TEMP26 (TYPE VECTOR)>
3486                     <JUMP + MAP17>
3487 MAPAP20
3488                     <RETURN TEMP15>
3489                     <DEAD TEMP15>
3490                     <END \1aDEAD!-MIMOC>
3491 <COND (<NOT <GASSIGNED? LBLSEQ>> <SETG CONSTSEQ <SETG LBLSEQ 0>>)>
3492
3493 #WORD *15677031764*
3494 <GFCN \1aGENLBL ("VALUE" ANY STRING) STR5>
3495                     <TEMP TEMP8>
3496                     <INTGO>
3497                     <PUSH STR5>
3498                     <DEAD STR5>
3499                     <FRAME '\1aUNPARSE>
3500                     <GVAL 'LBLSEQ = TEMP8>
3501                     <ADD TEMP8 1 = TEMP8 (TYPE FIX)>
3502                     <SETG 'LBLSEQ TEMP8>
3503                     <PUSH TEMP8>
3504                     <DEAD TEMP8>
3505                     <CALL '\1aUNPARSE 1 = STACK>
3506                     <UBLOCK <TYPE-CODE STRING> 2 = STR5 (TYPE STRING)>
3507                     <FRAME '\1aLOOKUP>
3508                     <PUSH STR5>
3509                     <GVAL 'LABEL-OBLIST = STACK>
3510                     <CALL '\1aLOOKUP 2 = TEMP8>
3511                     <TYPE? TEMP8 <TYPE-CODE FALSE> - BOOL9>
3512                     <FRAME '\1aINSERT>
3513                     <PUSH STR5>
3514                     <DEAD STR5>
3515                     <GVAL 'LABEL-OBLIST = STACK>
3516                     <CALL '\1aINSERT 2 = TEMP8>
3517 BOOL9
3518                     <RETURN TEMP8>
3519                     <DEAD TEMP8>
3520                     <END \1aGENLBL>
3521 #WORD *21553677076*
3522 <GFCN \1aLABEL ("VALUE" ANY ATOM "OPTIONAL" <OR FALSE FIX> ANY) NAM10 IND11 CP12>
3523                     <OPT-DISPATCH 1 %<> OPT7 OPT8 OPT9>
3524 OPT7
3525                     <PUSH %<>>
3526 OPT8
3527                     <PUSH ()>
3528 OPT9
3529                     <TEMP (LB13 %<>) TEMP17 TEMP24:LIST>
3530                     <INTGO>
3531                     <FRAME '\1aFIND-LABEL>
3532                     <PUSH NAM10>
3533                     <CALL '\1aFIND-LABEL 1 = LB13>
3534                     <GVAL 'PASS1 = TEMP17>
3535                     <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE16>
3536                     <DEAD TEMP17>
3537                     <TYPE? LB13 <TYPE-CODE FALSE> - PHRASE19>
3538                     <FRAME '\1aMAKE-LABEL>
3539                     <PUSH NAM10>
3540                     <DEAD NAM10>
3541                     <PUSH IND11>
3542                     <DEAD IND11>
3543                     <PUSH CP12>
3544                     <DEAD CP12>
3545                     <CALL '\1aMAKE-LABEL 3 = LB13>
3546                     <JUMP + PHRASE21>
3547 PHRASE19
3548                     <TYPE? IND11 <TYPE-CODE FALSE> + PHRASE21>
3549                     <PUTUV LB13 2 IND11>
3550                     <DEAD IND11>
3551 PHRASE21
3552                     <GVAL 'NEXT-LOOP = TEMP17>
3553                     <PUTUV LB13 3 TEMP17>
3554                     <DEAD TEMP17>
3555                     <RETURN LB13>
3556                     <DEAD LB13>
3557 PHRASE16
3558                     <GVAL 'CC = TEMP17>
3559                     <CONS NAM10 () = TEMP24>
3560                     <PUTREST TEMP17 TEMP24>
3561                     <DEAD TEMP17>
3562                     <SETG 'CC TEMP24>
3563                     <DEAD TEMP24>
3564                     <FRAME '\1aOCEMIT>
3565                     <PUSH NAM10>
3566                     <DEAD NAM10>
3567                     <CALL '\1aOCEMIT 1>
3568                     <RETURN LB13>
3569                     <DEAD LB13>
3570                     <END \1aLABEL>
3571 #WORD *3637070554*
3572 <GFCN \1aMAKE-LABEL ("VALUE" LAB ANY ANY ANY "OPTIONAL" ANY) NAM8 IND9 CP10 NL11>
3573                     <OPT-DISPATCH 3 %<> OPT6 OPT7>
3574 OPT6
3575                     <PUSH %<>>
3576 OPT7
3577                     <TEMP TEMP14 LB12:LAB TEMP15:LIST>
3578                     <INTGO>
3579                     <PUSH NAM8>
3580                     <PUSH IND9>
3581                     <DEAD IND9>
3582                     <PUSH NL11>
3583                     <DEAD NL11>
3584                     <PUSH ()>
3585                     <PUSH %<>>
3586                     <PUSH 0>
3587                     <PUSH CP10>
3588                     <DEAD CP10>
3589                     <PUSH ()>
3590                     <UBLOCK <TYPE-CODE VECTOR> 8 = TEMP14>
3591                     <CHTYPE TEMP14 <TYPE-CODE LAB> = LB12>
3592                     <DEAD TEMP14>
3593                     <CONS LB12 () = TEMP14>
3594                     <GVAL 'LABELS = TEMP15>
3595                     <PUTREST TEMP14 TEMP15>
3596                     <DEAD TEMP15>
3597                     <SETG 'LABELS TEMP14>
3598                     <DEAD TEMP14>
3599                     <NTHR NAM8 1 = TEMP14 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG16)>
3600                     <TYPE? TEMP14 <TYPE-CODE FALSE> + TAG16>
3601                     <PUTR TEMP14 1 LB12 (RECORD-TYPE GBIND)>
3602                     <DEAD TEMP14>
3603                     <RETURN LB12>
3604 TAG16
3605                     <FRAME '\1aSETG>
3606                     <PUSH NAM8>
3607                     <DEAD NAM8>
3608                     <PUSH LB12>
3609                     <DEAD LB12>
3610                     <CALL '\1aSETG 2 = LB12>
3611                     <RETURN LB12>
3612                     <DEAD LB12>
3613                     <END \1aMAKE-LABEL>
3614 #WORD *30310173025*
3615 <GFCN \1aLONG-FIND-LABEL ("VALUE" <OR FALSE LAB> ANY <LIST [REST LAB]>) NAM5 LBLS6>
3616                     <TEMP TEMP16 TEMP13:LIST TEMP22:ATOM>
3617                     <INTGO>
3618                     <SET TEMP16 %<> (TYPE FALSE)>
3619                     <SET TEMP13 LBLS6 (TYPE LIST)>
3620                     <DEAD LBLS6>
3621                     <LOOP>
3622 MAP8
3623                     <INTGO>
3624                     <EMPL? TEMP13 + MAPAP11>
3625                     <NTHL TEMP13 1 = TEMP16>
3626                     <NTHUV TEMP16 1 = TEMP22 (TYPE ATOM)>
3627                     <EQUAL? TEMP22 NAM5 + TAG21>
3628                     <DEAD TEMP22>
3629                     <SET TEMP16 %<> (TYPE FALSE)>
3630                     <JUMP + PHRASE20>
3631 TAG21
3632                     <RETURN TEMP16>
3633                     <DEAD TEMP16>
3634 PHRASE20
3635                     <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
3636                     <JUMP + MAP8>
3637 MAPAP11
3638                     <RETURN TEMP16>
3639                     <DEAD TEMP16>
3640                     <END \1aLONG-FIND-LABEL>
3641 #WORD *6655513607*
3642 <GFCN \1aFIND-LABEL ("VALUE" ANY ANY) NAM5>
3643                     <TEMP TEMP11 TEMP8>
3644                     <INTGO>
3645                     <NTHR NAM5 1 = TEMP11 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG10)>
3646                     <TYPE? TEMP11 <TYPE-CODE FALSE> + TAG10>
3647                     <NTHR TEMP11 1 = TEMP11 (RECORD-TYPE GBIND)>
3648                     <TYPE? TEMP11 <TYPE-CODE UNBOUND> - TAG9>
3649                     <DEAD TEMP11>
3650 TAG10
3651                     <RETURN %<>>
3652 TAG9
3653                     <GVAL NAM5 = NAM5>
3654                     <RETURN NAM5>
3655                     <DEAD NAM5>
3656                     <END \1aFIND-LABEL>
3657 #WORD *26157740313*
3658 <GFCN \1aTYPE-CODE ("VALUE" ANY ATOM "OPTIONAL" ANY) TYP8 LS9>
3659                     <OPT-DISPATCH 1 %<> OPT6 OPT7>
3660 OPT6
3661                     <PUSH %<>>
3662 OPT7
3663                     <TEMP L10 TEMP17 TEMP22>
3664                     <INTGO>
3665                     <GVAL 'TYPE-WORDS = L10>
3666                     <EMPUV? L10 + TAG13>
3667                     <LOOP (TYP8 VALUE) (L10 LENGTH VALUE)>
3668 TAG15
3669                     <NTHUV L10 1 = TEMP17>
3670                     <TYPE? TEMP17 <TYPE-CODE ATOM> - TAG16>
3671                     <VEQUAL? TEMP17 TYP8 + TAG14>
3672                     <DEAD TEMP17>
3673 TAG16
3674                     <RESTUV L10 1 = L10 (TYPE VECTOR)>
3675                     <EMPUV? L10 - TAG15>
3676 TAG13
3677                     <DEAD L10>
3678                     <SET L10 %<> (TYPE FALSE)>
3679 TAG14
3680                     <TYPE? L10 <TYPE-CODE FALSE> + PHRASE12>
3681                     <TYPE? LS9 <TYPE-CODE FALSE> + PHRASE19>
3682                     <DEAD LS9>
3683                     <NTHUV L10 2 = TEMP17>
3684                     <CONS TEMP17 () = TEMP17>
3685                     <RETURN TEMP17>
3686                     <DEAD TEMP17>
3687 PHRASE19
3688                     <NTHUV L10 2 = L10>
3689                     <RETURN L10>
3690                     <DEAD L10>
3691 PHRASE12
3692                     <NTHR TYP8 5 = TEMP22 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE21)>
3693                     <TYPE? TEMP22 <TYPE-CODE FALSE> + PHRASE21>
3694                     <DEAD TEMP22>
3695                     <TYPE? LS9 <TYPE-CODE FALSE> + PHRASE24>
3696                     <DEAD LS9>
3697                     <FRAME '\1aOBJ-LOC>
3698                     <CHTYPE TYP8 <TYPE-CODE XTYPE-C> = STACK>
3699                     <PUSH 1>
3700                     <CALL '\1aOBJ-LOC 2 = TEMP22>
3701                     <CONS '@ TEMP22 = TEMP22>
3702                     <RETURN TEMP22>
3703                     <DEAD TEMP22>
3704 PHRASE24
3705                     <CHTYPE TYP8 <TYPE-CODE XTYPE-C> = TEMP17>
3706                     <RETURN TEMP17>
3707                     <DEAD TEMP17>
3708 PHRASE21
3709                     <FRAME '\1aMIMOCERR>
3710                     <PUSH 'UNDEFINED-TYPE!-ERRORS>
3711                     <PUSH TYP8>
3712                     <DEAD TYP8>
3713                     <CALL '\1aMIMOCERR 2 = TEMP17>
3714                     <RETURN TEMP17>
3715                     <DEAD TEMP17>
3716                     <END \1aTYPE-CODE>
3717 #WORD *11116125000*
3718 <GFCN \1aTYPE-WORD ("VALUE" ANY ATOM) TYP5>
3719                     <TEMP L6 TEMP15 VAL7:CONSTANT M8 TEMP22>
3720                     <INTGO>
3721                     <GVAL 'TYPE-WORDS = L6>
3722                     <EMPUV? L6 + TAG11>
3723                     <LOOP (TYP5 VALUE) (L6 LENGTH VALUE)>
3724 TAG13
3725                     <NTHUV L6 1 = TEMP15>
3726                     <TYPE? TEMP15 <TYPE-CODE ATOM> - TAG14>
3727                     <VEQUAL? TEMP15 TYP5 + TAG12>
3728                     <DEAD TEMP15>
3729 TAG14
3730                     <RESTUV L6 1 = L6 (TYPE VECTOR)>
3731                     <EMPUV? L6 - TAG13>
3732 TAG11
3733                     <DEAD L6>
3734                     <SET L6 %<> (TYPE FALSE)>
3735 TAG12
3736                     <TYPE? L6 <TYPE-CODE FALSE> + PHRASE10>
3737                     <NTHUV L6 2 = L6 (TYPE FIX)>
3738                     <LSH L6 18 = L6 (TYPE FIX)>
3739                     <CHTYPE L6 <TYPE-CODE CONSTANT> = L6>
3740                     <GVAL 'TYPE-LENGTHS = M8>
3741                     <EMPUV? M8 + TAG18>
3742                     <LOOP (TYP5 VALUE) (M8 LENGTH VALUE)>
3743 TAG20
3744                     <NTHUV M8 1 = TEMP15>
3745                     <TYPE? TEMP15 <TYPE-CODE ATOM> - TAG21>
3746                     <VEQUAL? TEMP15 TYP5 + TAG19>
3747                     <DEAD TEMP15>
3748 TAG21
3749                     <RESTUV M8 1 = M8 (TYPE VECTOR)>
3750                     <EMPUV? M8 - TAG20>
3751 TAG18
3752                     <DEAD M8 TYP5>
3753                     <SET M8 %<> (TYPE FALSE)>
3754 TAG19
3755                     <TYPE? M8 <TYPE-CODE FALSE> + PHRASE17>
3756                     <NTHUV M8 2 = M8 (TYPE FIX)>
3757                     <OR L6 M8 = L6>
3758                     <DEAD M8>
3759                     <CHTYPE L6 <TYPE-CODE CONSTANT> = L6>
3760 PHRASE17
3761                     <FRAME '\1aCONST-ADD>
3762                     <PUSH L6>
3763                     <CALL '\1aCONST-ADD 1>
3764                     <FRAME '\1aCONST-LOC>
3765                     <PUSH L6>
3766                     <DEAD L6>
3767                     <PUSH 'VALUE>
3768                     <CALL '\1aCONST-LOC 2 = TEMP22>
3769                     <RETURN TEMP22>
3770                     <DEAD TEMP22>
3771 PHRASE10
3772                     <NTHR TYP5 5 = TEMP15 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE25)>
3773                     <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE25>
3774                     <DEAD TEMP15>
3775                     <FRAME '\1aOBJ-LOC>
3776                     <CHTYPE TYP5 <TYPE-CODE XTYPE-W> = STACK>
3777                     <PUSH 1>
3778                     <CALL '\1aOBJ-LOC 2 = TEMP22>
3779                     <RETURN TEMP22>
3780                     <DEAD TEMP22>
3781 PHRASE25
3782                     <FRAME '\1aMIMOCERR>
3783                     <PUSH 'CANT-TYPE-WORD!-ERRORS>
3784                     <PUSH TYP5>
3785                     <DEAD TYP5>
3786                     <CALL '\1aMIMOCERR 2 = TEMP22>
3787                     <RETURN TEMP22>
3788                     <DEAD TEMP22>
3789                     <END \1aTYPE-WORD>
3790 #WORD *4350540571*
3791 <GFCN \1aPUSHJ ("VALUE" <OR AC FALSE FIX> ATOM "OPTIONAL" <OR ATOM FALSE> ANY ANY) NAM12 VAL13 TAG14 TYP15>
3792                     <OPT-DISPATCH 1 %<> OPT8 OPT9 OPT10 OPT11>
3793 OPT8
3794                     <PUSH %<>>
3795 OPT9
3796                     <PUSH %<>>
3797 OPT10
3798                     <PUSH %<>>
3799 OPT11
3800                     <TEMP OC17:FIX TEMP35 TEMP34>
3801                     <INTGO>
3802                     <FRAME '\1aOPCODE>
3803                     <PUSH NAM12>
3804                     <DEAD NAM12>
3805                     <CALL '\1aOPCODE 1 = OC17>
3806                     <FRAME '\1aFLUSH-ACS>
3807                     <CALL '\1aFLUSH-ACS 0>
3808                     <GRTR? OC17 0 - PHRASE21 (TYPE FIX)>
3809                     <FRAME '\1aOCEMIT>
3810                     <PUSH 'PUSHJ>
3811                     <PUSH 'P*>
3812                     <PUSH '@>
3813                     <PUSH OC17>
3814                     <DEAD OC17>
3815                     <CALL '\1aOCEMIT 4>
3816                     <JUMP + PHRASE25>
3817 PHRASE21
3818                     <FRAME '\1aOCEMIT>
3819                     <PUSH 'JSP>
3820                     <PUSH 'T*>
3821                     <PUSH '@>
3822                     <SUB 0 OC17 = STACK (TYPE FIX)>
3823                     <DEAD OC17>
3824                     <CALL '\1aOCEMIT 4>
3825 PHRASE25
3826                     <TYPE? TAG14 <TYPE-CODE FALSE> + PHRASE28>
3827                     <FRAME '\1aOCEMIT>
3828                     <PUSH 'JRST>
3829                     <FRAME '\1aXJUMP>
3830                     <PUSH TAG14>
3831                     <DEAD TAG14>
3832                     <CALL '\1aXJUMP 1 = STACK>
3833                     <CALL '\1aOCEMIT 2>
3834 PHRASE28
3835                     <TYPE? TYP15 <TYPE-CODE FALSE> + PHRASE32>
3836                     <FRAME '\1aOCEMIT>
3837                     <PUSH 'HRLI>
3838                     <PUSH 'A1*>
3839                     <SET TEMP35 2 (TYPE FIX)>
3840                     <SFRAME 'TYPE-CODE>
3841                     <PUSH TYP15>
3842                     <DEAD TYP15>
3843                     <PUSH 'T>
3844                     <SCALL '\1aTYPE-CODE 2 = TEMP34 + TAG33 TEMP35>
3845                     <LOOP (TEMP34 TYPE VALUE LENGTH) (TEMP35 VALUE)>
3846 TAG37
3847                     <INTGO>
3848                     <EMPTY? TEMP34 + TAG33>
3849                     <NTH1 TEMP34 = STACK>
3850                     <REST1 TEMP34 = TEMP34>
3851                     <ADD TEMP35 1 = TEMP35 (TYPE FIX)>
3852                     <JUMP + TAG37>
3853 TAG33
3854                     <DEAD TEMP34>
3855                     <CALL '\1aOCEMIT TEMP35>
3856                     <DEAD TEMP35>
3857 PHRASE32
3858                     <FRAME '\1aPUSHJ-VAL>
3859                     <PUSH VAL13>
3860                     <DEAD VAL13>
3861                     <CALL '\1aPUSHJ-VAL 1 = TEMP35>
3862                     <RETURN TEMP35>
3863                     <DEAD TEMP35>
3864                     <END \1aPUSHJ>
3865 #WORD *15546071502*
3866 <GFCN \1aPUSHJ-VAL ("VALUE" <OR FALSE FIX AC> <OR FALSE ATOM>) VAL5>
3867                     <TEMP TEMP13 AC6:AC>
3868                     <INTGO>
3869                     <EQUAL? VAL5 'STACK - PHRASE8>
3870                     <FRAME '\1aOCEMIT>
3871                     <PUSH 'PUSH>
3872                     <PUSH 'TP*>
3873                     <PUSH 'A1*>
3874                     <CALL '\1aOCEMIT 3>
3875                     <FRAME '\1aOCEMIT>
3876                     <PUSH 'PUSH>
3877                     <PUSH 'TP*>
3878                     <PUSH 'A2*>
3879                     <CALL '\1aOCEMIT 3>
3880                     <GVAL 'WINNING-VICTIM = TEMP13>
3881                     <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE15>
3882                     <GVAL 'STACK-DEPTH = TEMP13>
3883                     <ADD TEMP13 2 = TEMP13 (TYPE FIX)>
3884                     <SETG 'STACK-DEPTH TEMP13>
3885                     <RETURN TEMP13>
3886                     <DEAD TEMP13>
3887 PHRASE8
3888                     <SET TEMP13 VAL5>
3889                     <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE15>
3890                     <FRAME '\1aGET-AC>
3891                     <PUSH 'A1*>
3892                     <CALL '\1aGET-AC 1 = AC6>
3893                     <PUTUV AC6 2 VAL5>
3894                     <PUTUV AC6 3 'TYPE (TYPE ATOM)>
3895                     <PUTUV AC6 5 'T>
3896                     <GVAL 'AC-STAMP = TEMP13>
3897                     <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
3898                     <SETG 'AC-STAMP TEMP13>
3899                     <PUTUV AC6 4 TEMP13 (TYPE FIX)>
3900                     <DEAD AC6 TEMP13>
3901                     <FRAME '\1aGET-AC>
3902                     <PUSH 'A2*>
3903                     <CALL '\1aGET-AC 1 = AC6>
3904                     <PUTUV AC6 2 VAL5>
3905                     <DEAD VAL5>
3906                     <PUTUV AC6 3 'VALUE (TYPE ATOM)>
3907                     <PUTUV AC6 5 'T>
3908                     <GVAL 'AC-STAMP = TEMP13>
3909                     <PUTUV AC6 4 TEMP13 (TYPE FIX)>
3910                     <DEAD TEMP13>
3911                     <SET TEMP13 AC6>
3912                     <DEAD AC6>
3913 PHRASE15
3914                     <RETURN TEMP13>
3915                     <DEAD TEMP13>
3916                     <END \1aPUSHJ-VAL>
3917 <SETG MIMOC-OBLIST <MOBLIST MIMOC 51>>
3918
3919 <SETG EVALABLES '[TYPE-CODE TYPE-WORD]>
3920
3921 <GDECL (EVALABLES) VECTOR>
3922
3923 #WORD *33333173670*
3924 <GFCN \1aOC ("VALUE" ANY FORM ANY) FRM5 OBLIST6>
3925                     <TEMP TEMP4:LBIND (EVF8 %<>) TEMP10 TEMP20:LIST L25:LIST ITM26 TEMP33 TEMP34 TEMP35 TEMP36 TEMP23 ATM7 TEMP21 L54:LIST>
3926                     <INTGO>
3927                     <GETS 'BIND = TEMP4 (TYPE LBIND)>
3928                     <BBIND 'OBLIST 'ANY %<> OBLIST6>
3929                     <DEAD OBLIST6>
3930                     <FIXBIND>
3931                     <GVAL 'PASS1 = TEMP10>
3932                     <TYPE? TEMP10 <TYPE-CODE FALSE> - BOOL9>
3933                     <DEAD TEMP10>
3934                     <GVAL 'V1 = TEMP10>
3935                     <TYPE? TEMP10 <TYPE-CODE FALSE> + BOOL9>
3936                     <DEAD TEMP10>
3937                     <FRAME '\1aPRINT>
3938                     <PUSH FRM5>
3939                     <GEN-LVAL 'OUTCHAN = STACK>
3940                     <CALL '\1aPRINT 2>
3941 BOOL9
3942                     <CHTYPE FRM5 <TYPE-CODE LIST> = TEMP20>
3943                     <LOOP>
3944 MAP15
3945                     <INTGO>
3946                     <EMPL? TEMP20 + MAPAP18>
3947                     <SET L25 TEMP20>
3948                     <NTHL L25 1 = ITM26>
3949                     <TYPE? ITM26 <TYPE-CODE FORM> - PHRASE28>
3950                     <EMPL? ITM26 + PHRASE28 (TYPE FORM)>
3951                     <NTHL ITM26 1 = TEMP33>
3952                     <GVAL 'EVALABLES = TEMP34>
3953                     <TYPE TEMP33 = TEMP35>
3954                     <EMPUV? TEMP34 + PHRASE28>
3955                     <LOOP (TEMP33 VALUE) (TEMP35 VALUE) (TEMP34 LENGTH VALUE)>
3956 TAG31
3957                     <NTHUV TEMP34 1 = TEMP36>
3958                     <TYPE? TEMP36 TEMP35 - TAG32>
3959                     <VEQUAL? TEMP36 TEMP33 + TAG30>
3960                     <DEAD TEMP36>
3961 TAG32
3962                     <RESTUV TEMP34 1 = TEMP34 (TYPE VECTOR)>
3963                     <EMPUV? TEMP34 - TAG31>
3964                     <DEAD ITM26 L25 TEMP33 TEMP34 TEMP35>
3965                     <JUMP + PHRASE28>
3966 TAG30
3967                     <FRAME '\1aEVAL>
3968                     <PUSH ITM26>
3969                     <CALL '\1aEVAL 1 = TEMP34>
3970                     <PUTL L25 1 TEMP34>
3971                     <DEAD TEMP34>
3972                     <FRAME '\1aPUTPROP>
3973                     <PUSH L25>
3974                     <DEAD L25>
3975                     <PUSH 'EVAL>
3976                     <PUSH ITM26>
3977                     <DEAD ITM26>
3978                     <CALL '\1aPUTPROP 3>
3979                     <SET EVF8 'T (TYPE ATOM)>
3980 PHRASE28
3981                     <RESTL TEMP20 1 = TEMP20 (TYPE LIST)>
3982                     <JUMP + MAP15>
3983 MAPAP18
3984                     <DEAD TEMP20>
3985                     <FRAME '\1aLOOKUP>
3986                     <NTHL FRM5 1 = TEMP23 (TYPE ATOM)>
3987                     <NTHR TEMP23 3 = STACK (RECORD-TYPE ATOM)>
3988                     <DEAD TEMP23>
3989                     <GVAL 'MIMOC-OBLIST = STACK>
3990                     <CALL '\1aLOOKUP 2 = ATM7>
3991                     <TYPE? ATM7 <TYPE-CODE FALSE> + PHRASE40>
3992                     <FRAME>
3993                     <GVAL ATM7 = ATM7>
3994                     <RESTL FRM5 1 = TEMP20 (TYPE LIST)>
3995                     <CHTYPE TEMP20 <TYPE-CODE LIST> = STACK>
3996                     <DEAD TEMP20>
3997                     <ACALL ATM7 1>
3998                     <DEAD ATM7>
3999                     <SET TEMP23 EVF8>
4000                     <DEAD EVF8>
4001                     <VEQUAL? TEMP23 0 + PHRASE56>
4002                     <GVAL 'PASS1 = TEMP21>
4003                     <TYPE? TEMP21 <TYPE-CODE FALSE> + TAG46>
4004                     <DEAD TEMP21>
4005                     <SET TEMP23 %<> (TYPE FALSE)>
4006                     <JUMP + PHRASE56>
4007 TAG46
4008                     <SET TEMP33 %<> (TYPE FALSE)>
4009                     <CHTYPE FRM5 <TYPE-CODE LIST> = TEMP21>
4010                     <DEAD FRM5>
4011                     <LOOP>
4012 MAP48
4013                     <INTGO>
4014                     <EMPL? TEMP21 + MAPAP51>
4015                     <FRAME '\1aPUTPROP>
4016                     <PUSH TEMP21>
4017                     <PUSH 'EVAL>
4018                     <CALL '\1aPUTPROP 2 = TEMP33>
4019                     <RESTL TEMP21 1 = TEMP21 (TYPE LIST)>
4020                     <JUMP + MAP48>
4021 MAPAP51
4022                     <DEAD TEMP21>
4023                     <SET TEMP23 TEMP33>
4024                     <DEAD TEMP33>
4025                     <JUMP + PHRASE56>
4026 PHRASE40
4027                     <FRAME '\1aMIMOCERR>
4028                     <PUSH 'CANT-OPEN-COMPILE!-ERRORS>
4029                     <PUSH FRM5>
4030                     <DEAD FRM5>
4031                     <CALL '\1aMIMOCERR 2 = TEMP23>
4032 PHRASE56
4033                     <UNBIND TEMP4>
4034                     <DEAD TEMP4>
4035                     <ADJ -9>
4036                     <RETURN TEMP23>
4037                     <DEAD TEMP23>
4038                     <END \1aOC>
4039 #WORD *34701105146*
4040 <GFCN \1aLOCATION!-MIMOC ("VALUE" <OR FALSE LIST STRING> LIST) L5>
4041                     <TEMP TEMP8 NAC6:ATOM TEMP20:FIX TEMP26>
4042                     <INTGO>
4043                     <FRAME '\1aASSIGN-AC>
4044                     <RESTL L5 1 = TEMP8 (TYPE LIST)>
4045                     <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
4046                     <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
4047                     <NTHL TEMP8 1 = STACK>
4048                     <DEAD TEMP8>
4049                     <PUSH 'BOTH>
4050                     <CALL '\1aASSIGN-AC 2 = NAC6>
4051                     <FRAME '\1aGET-AC>
4052                     <PUSH NAC6>
4053                     <CALL '\1aGET-AC 1 = TEMP8>
4054                     <PUTUV TEMP8 6 'FIX>
4055                     <DEAD TEMP8>
4056                     <GVAL 'GLUE-MODE = TEMP8>
4057                     <TYPE? TEMP8 <TYPE-CODE FALSE> + PHRASE11>
4058                     <DEAD TEMP8>
4059                     <FRAME '\1aOCEMIT>
4060                     <PUSH 'MOVEI>
4061                     <FRAME '\1aNEXT-AC>
4062                     <PUSH NAC6>
4063                     <CALL '\1aNEXT-AC 1 = STACK>
4064                     <PUSH 0>
4065                     <CALL '\1aOCEMIT 3>
4066                     <JUMP + PHRASE14>
4067 PHRASE11
4068                     <FRAME '\1aOCEMIT>
4069                     <PUSH 'XMOVEI>
4070                     <FRAME '\1aNEXT-AC>
4071                     <PUSH NAC6>
4072                     <CALL '\1aNEXT-AC 1 = STACK>
4073                     <PUSH 0>
4074                     <PUSH (R*)>
4075                     <CALL '\1aOCEMIT 4>
4076 PHRASE14
4077                     <GVAL 'PASS1 = TEMP8>
4078                     <TYPE? TEMP8 <TYPE-CODE FALSE> - PHRASE18>
4079                     <DEAD TEMP8>
4080                     <GVAL 'CC = TEMP8>
4081                     <NTH1 TEMP8 = STACK>
4082                     <DEAD TEMP8>
4083                     <RESTL L5 1 = TEMP8 (TYPE LIST)>
4084                     <DEAD L5>
4085                     <NTHL TEMP8 1 = STACK>
4086                     <DEAD TEMP8>
4087                     <SET TEMP20 2 (TYPE FIX)>
4088                     <GVAL 'LOCATIONS = TEMP8>
4089                     <TYPE TEMP8 = TEMP26>
4090                     <AND TEMP26 7 = TEMP26>
4091                     <VEQUAL? TEMP26 1 + TAG22>
4092                     <DEAD TEMP26>
4093                     <LOOP (TEMP8 TYPE VALUE LENGTH) (TEMP20 VALUE)>
4094 TAG28
4095                     <INTGO>
4096                     <EMPTY? TEMP8 + TAG27>
4097                     <NTH1 TEMP8 = STACK>
4098                     <REST1 TEMP8 = TEMP8>
4099                     <ADD TEMP20 1 = TEMP20 (TYPE FIX)>
4100                     <JUMP + TAG28>
4101 TAG27
4102                     <LIST TEMP20 = TEMP8 (TYPE LIST)>
4103                     <DEAD TEMP20>
4104                     <JUMP + TAG23>
4105 TAG22
4106                     <LOOP>
4107 TAG25
4108                     <VEQUAL? TEMP20 0 + TAG24>
4109                     <POP = TEMP26>
4110                     <CONS TEMP26 TEMP8 = TEMP8 (TYPE LIST)>
4111                     <DEAD TEMP26>
4112                     <SUB TEMP20 1 = TEMP20 (TYPE FIX)>
4113                     <JUMP + TAG25>
4114 TAG24
4115 TAG23
4116                     <SETG 'LOCATIONS TEMP8>
4117                     <DEAD TEMP8>
4118 PHRASE18
4119                     <GVAL 'GLUE-MODE = TEMP26>
4120                     <TYPE? TEMP26 <TYPE-CODE FALSE> + TAG31>
4121                     <DEAD TEMP26>
4122                     <RETURN %<>>
4123 TAG31
4124                     <FRAME '\1aOCEMIT>
4125                     <PUSH 'SUB>
4126                     <FRAME '\1aNEXT-AC>
4127                     <PUSH NAC6>
4128                     <DEAD NAC6>
4129                     <CALL '\1aNEXT-AC 1 = STACK>
4130                     <PUSH 'R*>
4131                     <CALL '\1aOCEMIT 3 = TEMP8>
4132                     <RETURN TEMP8>
4133                     <DEAD TEMP8>
4134                     <END \1aLOCATION!-MIMOC>
4135 #WORD *36327533214*
4136 <GFCN \1aLOCATION-CHECK ("VALUE" ATOM)>
4137                     <TEMP O8 TEMP13:INST TEMP15>
4138                     <INTGO>
4139                     <GVAL 'LOCATIONS = O8>
4140                     <LOOP>
4141 AGAIN9
4142                     <INTGO>
4143                     <EMPL? O8 - PHRASE11 (TYPE LIST)>
4144                     <RETURN 'T>
4145 PHRASE11
4146                     <NTHL O8 1 = TEMP13 (TYPE INST)>
4147                     <FRAME '\1aFIND-LABEL>
4148                     <RESTL O8 1 = TEMP15 (TYPE LIST)>
4149                     <NTHL TEMP15 1 = STACK (TYPE ATOM)>
4150                     <DEAD TEMP15>
4151                     <CALL '\1aFIND-LABEL 1 = TEMP15>
4152                     <NTHUV TEMP15 2 = TEMP15>
4153                     <PUTUV TEMP13 3 TEMP15>
4154                     <DEAD TEMP13 TEMP15>
4155                     <RESTL O8 1 = O8 (TYPE LIST)>
4156                     <RESTL O8 1 = O8 (TYPE LIST)>
4157                     <JUMP + AGAIN9>
4158                     <END \1aLOCATION-CHECK>
4159 #WORD *33036672652*
4160 <GFCN \1aLOAD-TYPE-IN-AC ("VALUE" <OR FALSE STRING> ANY ANY) ACNAM5 TYP6>
4161                     <TEMP TEMP12 TEMP13 TEMP14>
4162                     <INTGO>
4163                     <GVAL 'TYPE-LENGTHS = TEMP12>
4164                     <TYPE TYP6 = TEMP13>
4165                     <EMPUV? TEMP12 + PHRASE8>
4166                     <LOOP (TYP6 VALUE) (TEMP13 VALUE) (TEMP12 LENGTH VALUE)>
4167 TAG10
4168                     <NTHUV TEMP12 1 = TEMP14>
4169                     <TYPE? TEMP14 TEMP13 - TAG11>
4170                     <VEQUAL? TEMP14 TYP6 + TAG9>
4171                     <DEAD TEMP14>
4172 TAG11
4173                     <RESTUV TEMP12 1 = TEMP12 (TYPE VECTOR)>
4174                     <EMPUV? TEMP12 - TAG10>
4175                     <DEAD TEMP12 TEMP13>
4176                     <JUMP + PHRASE8>
4177 TAG9
4178                     <FRAME '\1aXEMIT>
4179                     <PUSH 'MOVE>
4180                     <PUSH ACNAM5>
4181                     <DEAD ACNAM5>
4182                     <SET TEMP13 2 (TYPE FIX)>
4183                     <SFRAME 'TYPE-WORD>
4184                     <PUSH TYP6>
4185                     <DEAD TYP6>
4186                     <SCALL '\1aTYPE-WORD 1 = TEMP12 + TAG15 TEMP13>
4187                     <LOOP (TEMP12 TYPE VALUE LENGTH) (TEMP13 VALUE)>
4188 TAG17
4189                     <INTGO>
4190                     <EMPTY? TEMP12 + TAG15>
4191                     <NTH1 TEMP12 = STACK>
4192                     <REST1 TEMP12 = TEMP12>
4193                     <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
4194                     <JUMP + TAG17>
4195 TAG15
4196                     <DEAD TEMP12>
4197                     <CALL '\1aXEMIT TEMP13 = TEMP13>
4198                     <RETURN TEMP13>
4199                     <DEAD TEMP13>
4200 PHRASE8
4201                     <FRAME '\1aXEMIT>
4202                     <PUSH 'MOVSI>
4203                     <PUSH ACNAM5>
4204                     <DEAD ACNAM5>
4205                     <SET TEMP14 2 (TYPE FIX)>
4206                     <SFRAME 'TYPE-CODE>
4207                     <PUSH TYP6>
4208                     <DEAD TYP6>
4209                     <PUSH 'T>
4210                     <SCALL '\1aTYPE-CODE 2 = TEMP12 + TAG20 TEMP14>
4211                     <LOOP (TEMP12 TYPE VALUE LENGTH) (TEMP14 VALUE)>
4212 TAG22
4213                     <INTGO>
4214                     <EMPTY? TEMP12 + TAG20>
4215                     <NTH1 TEMP12 = STACK>
4216                     <REST1 TEMP12 = TEMP12>
4217                     <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
4218                     <JUMP + TAG22>
4219 TAG20
4220                     <DEAD TEMP12>
4221                     <CALL '\1aXEMIT TEMP14 = TEMP14>
4222                     <RETURN TEMP14>
4223                     <DEAD TEMP14>
4224                     <END \1aLOAD-TYPE-IN-AC>
4225 #WORD *36416413506*
4226 <GFCN \1aSAVE-BRANCH-STATE ("VALUE" <OR AC ATOM FALSE> LAB ANY) LB5 UNCND6>
4227                     <TEMP LS8:LIST LOOP?9 TEMP22 TEMP23:VECTOR TEMP20 AC24:AC NULL-STATE25 TEMP31 LCL26>
4228                     <INTGO>
4229                     <NTHUV LB5 4 = LS8 (TYPE LIST)>
4230                     <NTHUV LB5 3 = LOOP?9>
4231                     <GVAL 'AC-PAIR-TABLE = TEMP22>
4232                     <GVAL 'NULL-STATES = TEMP23>
4233                     <SET TEMP20 0 (TYPE FIX)>
4234                     <LOOP>
4235 MAP11
4236                     <INTGO>
4237                     <EMPUV? TEMP22 + MAPAP14>
4238                     <EMPUV? TEMP23 + MAPAP14>
4239                     <NTHUV TEMP22 1 = AC24>
4240                     <NTHUV TEMP23 1 = NULL-STATE25>
4241                     <NTHUV AC24 2 = TEMP31>
4242                     <TYPE? TEMP31 <TYPE-CODE FALSE> + PHRASE29>
4243                     <DEAD TEMP31>
4244                     <NTHUV AC24 2 = TEMP31>
4245                     <TYPE? TEMP31 <TYPE-CODE LOSE> + PHRASE29>
4246                     <DEAD TEMP31>
4247                     <FRAME '\1aLMEMQ>
4248                     <NTHUV AC24 2 = STACK (TYPE ATOM)>
4249                     <GVAL 'LOCALS = STACK>
4250                     <CALL '\1aLMEMQ 2 = LCL26>
4251                     <VEQUAL? LCL26 0 - PHRASE36>
4252                     <GVAL 'ICALL-FLAG = TEMP31>
4253                     <TYPE? TEMP31 <TYPE-CODE FALSE> + PHRASE36>
4254                     <DEAD TEMP31>
4255                     <FRAME '\1aLMEMQ>
4256                     <NTHUV AC24 2 = STACK (TYPE ATOM)>
4257                     <GVAL 'ICALL-TEMPS = STACK>
4258                     <CALL '\1aLMEMQ 2 = LCL26>
4259                     <JUMP + PHRASE36>
4260 PHRASE29
4261                     <SET LCL26 %<> (TYPE FALSE)>
4262 PHRASE36
4263                     <NTHUV AC24 5 = TEMP31>
4264                     <TYPE? TEMP31 <TYPE-CODE FALSE> + PHRASE38>
4265                     <DEAD TEMP31>
4266                     <TYPE? LOOP?9 <TYPE-CODE FALSE> - PHRASE38>
4267                     <TYPE? UNCND6 <TYPE-CODE FALSE> - BOOL40>
4268                     <FRAME '\1aWILL-DIE?>
4269                     <NTHUV AC24 2 = STACK>
4270                     <CALL '\1aWILL-DIE? 1 = TEMP31>
4271                     <TYPE? TEMP31 <TYPE-CODE FALSE> + PHRASE38>
4272                     <DEAD TEMP31>
4273 BOOL40
4274                     <FRAME '\1aWILL-DIE?>
4275                     <NTHUV AC24 2 = STACK>
4276                     <NTHUV LB5 7 = STACK (TYPE LIST)>
4277                     <CALL '\1aWILL-DIE? 2 = TEMP31>
4278                     <TYPE? TEMP31 <TYPE-CODE FALSE> + PHRASE38>
4279                     <DEAD TEMP31>
4280                     <SET LCL26 %<> (TYPE FALSE)>
4281                     <PUTUV AC24 5 %<>>
4282                     <PUTUV AC24 2 %<>>
4283 PHRASE38
4284                     <TYPE? LCL26 <TYPE-CODE FALSE> + PHRASE44>
4285                     <NTHUV AC24 3 = TEMP31 (TYPE ATOM)>
4286                     <VEQUAL? TEMP31 'TYPE - PHRASE46>
4287                     <DEAD TEMP31>
4288                     <NTHUV LCL26 5 = NULL-STATE25>
4289                     <TYPE? NULL-STATE25 <TYPE-CODE FALSE> + PHRASE46>
4290                     <NTHUV NULL-STATE25 3 = TEMP31>
4291                     <TYPE? TEMP31 <TYPE-CODE FALSE> - PHRASE46>
4292                     <DEAD TEMP31>
4293                     <NTHUV NULL-STATE25 1 = TEMP31 (TYPE AC)>
4294                     <VEQUAL? TEMP31 AC24 - BOOL48>
4295                     <DEAD TEMP31>
4296                     <NTHUV AC24 5 = TEMP31>
4297                     <TYPE? TEMP31 <TYPE-CODE FALSE> - PHRASE46>
4298                     <DEAD TEMP31>
4299 BOOL48
4300                     <PUTUV NULL-STATE25 3 'HACKED>
4301                     <DEAD NULL-STATE25>
4302 PHRASE46
4303                     <NTHUV AC24 3 = TEMP31 (TYPE ATOM)>
4304                     <VEQUAL? TEMP31 'VALUE - PHRASE50>
4305                     <DEAD TEMP31>
4306                     <NTHUV LCL26 6 = NULL-STATE25>
4307                     <TYPE? NULL-STATE25 <TYPE-CODE FALSE> + PHRASE50>
4308                     <NTHUV NULL-STATE25 3 = TEMP31>
4309                     <TYPE? TEMP31 <TYPE-CODE FALSE> - PHRASE50>
4310                     <DEAD TEMP31>
4311                     <NTHUV NULL-STATE25 1 = TEMP31 (TYPE AC)>
4312                     <VEQUAL? TEMP31 AC24 - BOOL52>
4313                     <DEAD TEMP31>
4314                     <NTHUV AC24 5 = TEMP31>
4315                     <TYPE? TEMP31 <TYPE-CODE FALSE> - PHRASE50>
4316                     <DEAD TEMP31>
4317 BOOL52
4318                     <PUTUV NULL-STATE25 3 'HACKED>
4319                     <DEAD NULL-STATE25>
4320 PHRASE50
4321                     <PUSH AC24>
4322                     <PUSH LCL26>
4323                     <NTHUV AC24 5 = TEMP31>
4324                     <TYPE? TEMP31 <TYPE-CODE FALSE> - TAG54>
4325                     <DEAD TEMP31>
4326                     <SET TEMP31 'T (TYPE ATOM)>
4327                     <JUMP + TAG55>
4328 TAG54
4329                     <SET TEMP31 %<> (TYPE FALSE)>
4330 TAG55
4331                     <PUSH TEMP31>
4332                     <DEAD TEMP31>
4333                     <NTHUV AC24 6 = STACK>
4334                     <NTHUV AC24 3 = STACK (TYPE ATOM)>
4335                     <UBLOCK <TYPE-CODE VECTOR> 5 = TEMP31>
4336                     <CHTYPE TEMP31 <TYPE-CODE ACSTATE> = NULL-STATE25>
4337                     <DEAD TEMP31>
4338                     <NTHUV AC24 3 = TEMP31 (TYPE ATOM)>
4339                     <DEAD AC24>
4340                     <VEQUAL? TEMP31 'TYPE - PHRASE57>
4341                     <DEAD TEMP31>
4342                     <PUTUV LCL26 5 NULL-STATE25>
4343                     <DEAD LCL26>
4344                     <JUMP + PHRASE58>
4345 PHRASE57
4346                     <PUTUV LCL26 6 NULL-STATE25>
4347                     <DEAD LCL26>
4348 PHRASE58
4349                     <SET TEMP31 NULL-STATE25>
4350                     <DEAD NULL-STATE25>
4351                     <JUMP + PHRASE59>
4352 PHRASE44
4353                     <SET TEMP31 NULL-STATE25>
4354                     <DEAD NULL-STATE25>
4355 PHRASE59
4356                     <PUSH TEMP31>
4357                     <DEAD TEMP31>
4358                     <ADD TEMP20 1 = TEMP20 (TYPE FIX)>
4359                     <RESTUV TEMP22 1 = TEMP22 (TYPE VECTOR)>
4360                     <RESTUV TEMP23 1 = TEMP23 (TYPE VECTOR)>
4361                     <JUMP + MAP11>
4362 MAPAP14
4363                     <UBLOCK <TYPE-CODE VECTOR> TEMP20 = TEMP20 (TYPE VECTOR)>
4364                     <CHTYPE TEMP20 <TYPE-CODE LABSTATE> = TEMP22>
4365                     <DEAD TEMP20>
4366                     <EMPL? LS8 - PHRASE61 (TYPE LIST)>
4367                     <CONS TEMP22 () = LOOP?9>
4368                     <PUTUV LB5 4 LOOP?9 (TYPE LIST)>
4369                     <DEAD LOOP?9>
4370                     <JUMP + PHRASE62>
4371 PHRASE61
4372                     <SET LOOP?9 LS8>
4373                     <DEAD LS8>
4374                     <LOOP (LOOP?9 VALUE)>
4375 TAG63
4376                     <RESTL LOOP?9 1 = TEMP20 (TYPE LIST)>
4377                     <EMPL? TEMP20 + TAG64>
4378                     <SET LOOP?9 TEMP20>
4379                     <DEAD TEMP20>
4380                     <JUMP + TAG63>
4381 TAG64
4382                     <CONS TEMP22 () = TEMP20>
4383                     <PUTREST LOOP?9 TEMP20>
4384                     <DEAD LOOP?9 TEMP20>
4385 PHRASE62
4386                     <NTHUV LB5 3 = TEMP20>
4387                     <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE66>
4388                     <DEAD TEMP20>
4389                     <NTHUV LB5 5 = TEMP20>
4390                     <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE68>
4391                     <DEAD TEMP20>
4392                     <FRAME '\1aMERGE-TWO-FORCE>
4393                     <PUSH TEMP22>
4394                     <NTHUV LB5 5 = STACK (TYPE LABSTATE)>
4395                     <DEAD LB5>
4396                     <CALL '\1aMERGE-TWO-FORCE 2>
4397 PHRASE68
4398                     <FRAME '\1aLOGICAL-ESTABLISH>
4399                     <PUSH TEMP22>
4400                     <DEAD TEMP22>
4401                     <CALL '\1aLOGICAL-ESTABLISH 1>
4402                     <JUMP + PHRASE71>
4403 PHRASE66
4404                     <NTHUV LB5 5 = TEMP20>
4405                     <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE73>
4406                     <DEAD TEMP20>
4407                     <FRAME '\1aMERGE-TWO>
4408                     <PUSH TEMP22>
4409                     <NTHUV LB5 5 = STACK (TYPE LABSTATE)>
4410                     <DEAD LB5>
4411                     <CALL '\1aMERGE-TWO 2>
4412 PHRASE73
4413                     <FRAME '\1aESTABLISH-UPDATE>
4414                     <PUSH TEMP22>
4415                     <DEAD TEMP22>
4416                     <CALL '\1aESTABLISH-UPDATE 1>
4417 PHRASE71
4418                     <TYPE? UNCND6 <TYPE-CODE FALSE> + PHRASE77>
4419                     <DEAD UNCND6>
4420                     <FRAME '\1aFLUSH-ACS>
4421                     <CALL '\1aFLUSH-ACS 0 = TEMP20>
4422                     <RETURN TEMP20>
4423                     <DEAD TEMP20>
4424 PHRASE77
4425                     <FRAME '\1aMUNGED-AC>
4426                     <PUSH 'T*>
4427                     <CALL '\1aMUNGED-AC 1>
4428                     <FRAME '\1aMUNGED-AC>
4429                     <PUSH 'O*>
4430                     <CALL '\1aMUNGED-AC 1 = TEMP20>
4431                     <RETURN TEMP20>
4432                     <DEAD TEMP20>
4433                     <END \1aSAVE-BRANCH-STATE>
4434 #WORD *32724323653*
4435 <GFCN \1aSAVE-LABEL-STATE ("VALUE" <OR ATOM FALSE> ANY) LB5>
4436                     <TEMP TEMP9 TEMP21 TEMP22:VECTOR AC23:AC NULL-STATE24:ACSTATE ITM26 LCL25 TEMP34>
4437                     <INTGO>
4438                     <GVAL 'LAST-UNCON = TEMP9>
4439                     <TYPE? TEMP9 <TYPE-CODE FALSE> - PHRASE8>
4440                     <DEAD TEMP9>
4441                     <GVAL 'AC-PAIR-TABLE = TEMP21>
4442                     <GVAL 'NULL-STATES = TEMP22>
4443                     <SET TEMP9 0 (TYPE FIX)>
4444                     <LOOP>
4445 MAP11
4446                     <INTGO>
4447                     <EMPUV? TEMP21 + MAPAP14>
4448                     <EMPUV? TEMP22 + MAPAP14>
4449                     <NTHUV TEMP21 1 = AC23>
4450                     <NTHUV TEMP22 1 = NULL-STATE24>
4451                     <NTHUV AC23 2 = ITM26>
4452                     <TYPE? ITM26 <TYPE-CODE FALSE> + PHRASE29>
4453                     <TYPE? ITM26 <TYPE-CODE LOSE> + PHRASE29>
4454                     <FRAME '\1aLMEMQ>
4455                     <PUSH ITM26>
4456                     <GVAL 'LOCALS = STACK>
4457                     <CALL '\1aLMEMQ 2 = LCL25>
4458                     <VEQUAL? LCL25 0 - PHRASE36>
4459                     <GVAL 'ICALL-FLAG = TEMP34>
4460                     <TYPE? TEMP34 <TYPE-CODE FALSE> + PHRASE36>
4461                     <DEAD TEMP34>
4462                     <FRAME '\1aLMEMQ>
4463                     <PUSH ITM26>
4464                     <DEAD ITM26>
4465                     <GVAL 'ICALL-TEMPS = STACK>
4466                     <CALL '\1aLMEMQ 2 = LCL25>
4467                     <JUMP + PHRASE36>
4468 PHRASE29
4469                     <SET LCL25 %<> (TYPE FALSE)>
4470 PHRASE36
4471                     <TYPE? LCL25 <TYPE-CODE FALSE> + PHRASE38>
4472                     <NTHUV AC23 3 = TEMP34 (TYPE ATOM)>
4473                     <VEQUAL? TEMP34 'TYPE - PHRASE40>
4474                     <DEAD TEMP34>
4475                     <NTHUV LCL25 5 = ITM26>
4476                     <TYPE? ITM26 <TYPE-CODE FALSE> + PHRASE40>
4477                     <NTHUV ITM26 3 = TEMP34>
4478                     <TYPE? TEMP34 <TYPE-CODE FALSE> - PHRASE40>
4479                     <DEAD TEMP34>
4480                     <NTHUV ITM26 1 = TEMP34 (TYPE AC)>
4481                     <VEQUAL? TEMP34 AC23 - BOOL42>
4482                     <DEAD TEMP34>
4483                     <NTHUV AC23 5 = TEMP34>
4484                     <TYPE? TEMP34 <TYPE-CODE FALSE> - PHRASE40>
4485                     <DEAD TEMP34>
4486 BOOL42
4487                     <PUTUV ITM26 3 'HACKED>
4488                     <DEAD ITM26>
4489 PHRASE40
4490                     <NTHUV AC23 3 = TEMP34 (TYPE ATOM)>
4491                     <VEQUAL? TEMP34 'VALUE - PHRASE44>
4492                     <DEAD TEMP34>
4493                     <NTHUV LCL25 6 = ITM26>
4494                     <TYPE? ITM26 <TYPE-CODE FALSE> + PHRASE44>
4495                     <NTHUV ITM26 3 = TEMP34>
4496                     <TYPE? TEMP34 <TYPE-CODE FALSE> - PHRASE44>
4497                     <DEAD TEMP34>
4498                     <NTHUV ITM26 1 = TEMP34 (TYPE AC)>
4499                     <VEQUAL? TEMP34 AC23 - BOOL46>
4500                     <DEAD TEMP34>
4501                     <NTHUV AC23 5 = TEMP34>
4502                     <TYPE? TEMP34 <TYPE-CODE FALSE> - PHRASE44>
4503                     <DEAD TEMP34>
4504 BOOL46
4505                     <PUTUV ITM26 3 'HACKED>
4506                     <DEAD ITM26>
4507 PHRASE44
4508                     <PUSH AC23>
4509                     <PUSH LCL25>
4510                     <NTHUV AC23 5 = TEMP34>
4511                     <TYPE? TEMP34 <TYPE-CODE FALSE> - TAG48>
4512                     <DEAD TEMP34>
4513                     <SET TEMP34 'T (TYPE ATOM)>
4514                     <JUMP + TAG49>
4515 TAG48
4516                     <SET TEMP34 %<> (TYPE FALSE)>
4517 TAG49
4518                     <PUSH TEMP34>
4519                     <DEAD TEMP34>
4520                     <NTHUV AC23 6 = STACK>
4521                     <NTHUV AC23 3 = STACK (TYPE ATOM)>
4522                     <UBLOCK <TYPE-CODE VECTOR> 5 = TEMP34>
4523                     <CHTYPE TEMP34 <TYPE-CODE ACSTATE> = ITM26>
4524                     <DEAD TEMP34>
4525                     <NTHUV AC23 3 = TEMP34 (TYPE ATOM)>
4526                     <DEAD AC23>
4527                     <VEQUAL? TEMP34 'TYPE - PHRASE51>
4528                     <DEAD TEMP34>
4529                     <PUTUV LCL25 5 ITM26>
4530                     <DEAD LCL25>
4531                     <JUMP + PHRASE52>
4532 PHRASE51
4533                     <PUTUV LCL25 6 ITM26>
4534                     <DEAD LCL25>
4535 PHRASE52
4536                     <SET TEMP34 ITM26>
4537                     <DEAD ITM26>
4538                     <JUMP + PHRASE53>
4539 PHRASE38
4540                     <SET TEMP34 NULL-STATE24>
4541                     <DEAD NULL-STATE24>
4542 PHRASE53
4543                     <PUSH TEMP34>
4544                     <DEAD TEMP34>
4545                     <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
4546                     <RESTUV TEMP21 1 = TEMP21 (TYPE VECTOR)>
4547                     <RESTUV TEMP22 1 = TEMP22 (TYPE VECTOR)>
4548                     <JUMP + MAP11>
4549 MAPAP14
4550                     <UBLOCK <TYPE-CODE VECTOR> TEMP9 = TEMP9 (TYPE VECTOR)>
4551                     <CHTYPE TEMP9 <TYPE-CODE LABSTATE> = TEMP21>
4552                     <DEAD TEMP9>
4553                     <NTHUV LB5 4 = TEMP9 (TYPE LIST)>
4554                     <CONS TEMP21 TEMP9 = TEMP9>
4555                     <PUTUV LB5 4 TEMP9 (TYPE LIST)>
4556                     <DEAD TEMP9>
4557                     <NTHUV LB5 3 = TEMP9>
4558                     <TYPE? TEMP9 <TYPE-CODE FALSE> - PHRASE55>
4559                     <DEAD TEMP9>
4560                     <FRAME '\1aKILL-DEAD-ACS>
4561                     <PUSH LB5>
4562                     <CALL '\1aKILL-DEAD-ACS 1>
4563 PHRASE55
4564                     <NTHUV LB5 5 = TEMP9>
4565                     <TYPE? TEMP9 <TYPE-CODE FALSE> - PHRASE58>
4566                     <DEAD TEMP9>
4567                     <PUTUV LB5 5 TEMP21>
4568                     <DEAD TEMP21>
4569 PHRASE58
4570                     <FRAME '\1aMERGE-TWO>
4571                     <NTHUV LB5 4 = TEMP9 (TYPE LIST)>
4572                     <NTHL TEMP9 1 = STACK (TYPE LABSTATE)>
4573                     <DEAD TEMP9>
4574                     <NTHUV LB5 5 = STACK (TYPE LABSTATE)>
4575                     <CALL '\1aMERGE-TWO 2>
4576                     <FRAME '\1aESTABLISH-LABEL-STATE>
4577                     <PUSH LB5>
4578                     <NTHUV LB5 4 = TEMP9 (TYPE LIST)>
4579                     <DEAD LB5>
4580                     <NTHL TEMP9 1 = STACK (TYPE LABSTATE)>
4581                     <DEAD TEMP9>
4582                     <CALL '\1aESTABLISH-LABEL-STATE 2>
4583                     <RETURN 'T>
4584 PHRASE8
4585                     <NTHUV LB5 3 = TEMP9>
4586                     <TYPE? TEMP9 <TYPE-CODE FALSE> - PHRASE63>
4587                     <DEAD TEMP9>
4588                     <FRAME '\1aKILL-DEAD-ACS>
4589                     <PUSH LB5>
4590                     <CALL '\1aKILL-DEAD-ACS 1>
4591 PHRASE63
4592                     <NTHUV LB5 5 = TEMP9>
4593                     <TYPE? TEMP9 <TYPE-CODE FALSE> - PHRASE66>
4594                     <DEAD TEMP9>
4595                     <NTHUV LB5 4 = TEMP9 (TYPE LIST)>
4596                     <EMPL? TEMP9 + PHRASE66 (TYPE LIST)>
4597                     <DEAD TEMP9>
4598                     <NTHUV LB5 4 = TEMP9 (TYPE LIST)>
4599                     <NTHL TEMP9 1 = TEMP9 (TYPE LABSTATE)>
4600                     <PUTUV LB5 5 TEMP9>
4601                     <DEAD TEMP9>
4602 PHRASE66
4603                     <NTHUV LB5 5 = TEMP9>
4604                     <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE69>
4605                     <FRAME '\1aESTABLISH-LABEL-STATE>
4606                     <PUSH LB5>
4607                     <DEAD LB5>
4608                     <CALL '\1aESTABLISH-LABEL-STATE 1 = TEMP9>
4609 PHRASE69
4610                     <RETURN TEMP9>
4611                     <DEAD TEMP9>
4612                     <END \1aSAVE-LABEL-STATE>
4613 #WORD *72666112*
4614 <GFCN \1aKILL-DEAD-ACS ("VALUE" <OR ACSTATE FALSE> LAB) LB5>
4615                     <TEMP TEMP8 TEMP15:LIST>
4616                     <INTGO>
4617                     <NTHUV LB5 5 = TEMP8>
4618                     <TYPE? TEMP8 <TYPE-CODE FALSE> + PHRASE7>
4619                     <DEAD TEMP8>
4620                     <FRAME '\1aKILL-ONE-STATE>
4621                     <NTHUV LB5 5 = STACK (TYPE LABSTATE)>
4622                     <CALL '\1aKILL-ONE-STATE 1>
4623 PHRASE7
4624                     <SET TEMP8 %<> (TYPE FALSE)>
4625                     <NTHUV LB5 4 = TEMP15 (TYPE LIST)>
4626                     <DEAD LB5>
4627                     <LOOP>
4628 MAP11
4629                     <INTGO>
4630                     <EMPL? TEMP15 + MAP10>
4631                     <FRAME '\1aKILL-ONE-STATE>
4632                     <NTHL TEMP15 1 = STACK>
4633                     <CALL '\1aKILL-ONE-STATE 1 = TEMP8>
4634                     <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
4635                     <JUMP + MAP11>
4636 MAP10
4637                     <RETURN TEMP8>
4638                     <DEAD TEMP8>
4639                     <END \1aKILL-DEAD-ACS>
4640 #WORD *11416714057*
4641 <GFCN \1aKILL-ONE-STATE ("VALUE" <OR FALSE ACSTATE> LABSTATE) LSTATE5>
4642                     <TEMP TEMP15 TEMP12:VECTOR ACST17:ACSTATE LCL18:LOCAL>
4643                     <INTGO>
4644                     <SET TEMP15 %<> (TYPE FALSE)>
4645                     <CHTYPE LSTATE5 <TYPE-CODE VECTOR> = TEMP12>
4646                     <DEAD LSTATE5>
4647                     <LOOP>
4648 MAP7
4649                     <INTGO>
4650                     <EMPUV? TEMP12 + MAPAP10>
4651                     <NTHUV TEMP12 1 = ACST17>
4652                     <NTHUV ACST17 2 = TEMP15>
4653                     <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE20>
4654                     <FRAME '\1aWILL-DIE?>
4655                     <NTHUV ACST17 2 = LCL18 (TYPE LOCAL)>
4656                     <NTHUV LCL18 1 = STACK (TYPE ATOM)>
4657                     <CALL '\1aWILL-DIE? 1 = TEMP15>
4658                     <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE20>
4659                     <PUTUV LCL18 5 %<>>
4660                     <PUTUV LCL18 6 %<>>
4661                     <DEAD LCL18>
4662                     <NTHUV ACST17 2 = TEMP15>
4663                     <CONS TEMP15 () = TEMP15>
4664                     <CHTYPE TEMP15 <TYPE-CODE FALSE> = TEMP15>
4665                     <PUTUV ACST17 2 TEMP15>
4666                     <DEAD TEMP15>
4667                     <PUTUV ACST17 3 'DEAD>
4668                     <SET TEMP15 ACST17>
4669                     <DEAD ACST17>
4670 PHRASE20
4671                     <RESTUV TEMP12 1 = TEMP12 (TYPE VECTOR)>
4672                     <JUMP + MAP7>
4673 MAPAP10
4674                     <RETURN TEMP15>
4675                     <DEAD TEMP15>
4676                     <END \1aKILL-ONE-STATE>
4677 #WORD *11151412701*
4678 <GFCN \1aESTABLISH-BRANCH-STATE ("VALUE" <OR FALSE <LIST ATOM>> LAB ANY "OPTIONAL" ANY ANY LABSTATE) LB8 UNCND9 AC-P110 AC-P211 LS12>
4679                     <OPT-DISPATCH 2 %<> OPT4 OPT5 OPT6 OPT7>
4680 OPT4
4681                     <PUSH %<>>
4682 OPT5
4683                     <PUSH %<>>
4684 OPT6
4685                     <PUSH #T$UNBOUND 0>
4686 OPT7
4687                     <TEMP LOOP?13 (MOVES-TO14:LIST ()) (MOVES-FROM16:LIST ()) TEMP25 STAT30 AC32 LCL233 NEW-AC?34 TEMP57 TEMP65 PF147:LIST TEMP165 AT1151:FIX AT2152:FIX AF153:AC P-TO?154 P-FROM155:AC>
4688                     <INTGO>
4689                     <TYPE? LS12 <TYPE-CODE UNBOUND> - TAG17>
4690                     <NTHUV LB8 5 = LS12 (TYPE LABSTATE)>
4691 TAG17
4692                     <NTHUV LB8 3 = LOOP?13>
4693                     <CHTYPE LS12 <TYPE-CODE VECTOR> = TEMP25>
4694                     <LOOP>
4695 MAP20
4696                     <INTGO>
4697                     <EMPUV? TEMP25 + MAPAP23>
4698                     <NTHUV TEMP25 1 = STAT30>
4699                     <NTHUV STAT30 1 = AC32 (TYPE AC)>
4700                     <NTHUV AC32 2 = LCL233>
4701                     <TYPE? LCL233 <TYPE-CODE LOSE> - PHRASE36>
4702                     <SET LCL233 %<> (TYPE FALSE)>
4703 PHRASE36
4704                     <NTHUV AC32 5 = NEW-AC?34>
4705                     <TYPE? NEW-AC?34 <TYPE-CODE FALSE> + PHRASE38>
4706                     <DEAD NEW-AC?34>
4707                     <TYPE? LOOP?13 <TYPE-CODE FALSE> - PHRASE38>
4708                     <TYPE? LCL233 <TYPE-CODE FALSE> + PHRASE38>
4709                     <TYPE? UNCND9 <TYPE-CODE FALSE> - BOOL41>
4710                     <FRAME '\1aWILL-DIE?>
4711                     <PUSH LCL233>
4712                     <CALL '\1aWILL-DIE? 1 = NEW-AC?34>
4713                     <TYPE? NEW-AC?34 <TYPE-CODE FALSE> + PHRASE38>
4714                     <DEAD NEW-AC?34>
4715 BOOL41
4716                     <FRAME '\1aWILL-DIE?>
4717                     <PUSH LCL233>
4718                     <NTHUV LB8 7 = STACK (TYPE LIST)>
4719                     <CALL '\1aWILL-DIE? 2 = NEW-AC?34>
4720                     <TYPE? NEW-AC?34 <TYPE-CODE FALSE> + PHRASE38>
4721                     <DEAD NEW-AC?34>
4722                     <GEN-ASSIGNED? 'DISP-L - PHRASE45>
4723                     <GEN-LVAL 'DISP-L = TEMP57>
4724                     <EMPTY? TEMP57 + PHRASE38>
4725                     <LOOP>
4726 MAP47
4727                     <INTGO>
4728                     <EMPTY? TEMP57 + PHRASE45>
4729                     <NTH1 TEMP57 = NEW-AC?34>
4730                     <FRAME '\1aWILL-DIE?>
4731                     <PUSH LCL233>
4732                     <FRAME '\1aFIND-LABEL>
4733                     <PUSH NEW-AC?34>
4734                     <DEAD NEW-AC?34>
4735                     <CALL '\1aFIND-LABEL 1 = TEMP65>
4736                     <NTHUV TEMP65 7 = STACK (TYPE LIST)>
4737                     <DEAD TEMP65>
4738                     <CALL '\1aWILL-DIE? 2 = TEMP65>
4739                     <TYPE? TEMP65 <TYPE-CODE FALSE> + PHRASE38>
4740                     <DEAD TEMP65>
4741                     <REST1 TEMP57 = TEMP57>
4742                     <JUMP + MAP47>
4743 PHRASE45
4744                     <SET LCL233 %<> (TYPE FALSE)>
4745                     <PUTUV AC32 5 %<>>
4746                     <PUTUV AC32 2 %<>>
4747 PHRASE38
4748                     <NTHUV STAT30 2 = TEMP57>
4749                     <TYPE? TEMP57 <TYPE-CODE FALSE> + BOOL71>
4750                     <NTHUV TEMP57 1 = TEMP65 (TYPE ATOM)>
4751                     <VEQUAL? TEMP65 LCL233 + BOOL70>
4752                     <DEAD TEMP65>
4753 BOOL71
4754                     <TYPE? TEMP57 <TYPE-CODE FALSE> - PHRASE69>
4755                     <TYPE? LOOP?13 <TYPE-CODE FALSE> - PHRASE69>
4756 BOOL70
4757                     <NTHUV AC32 5 = TEMP65>
4758                     <TYPE? TEMP65 <TYPE-CODE FALSE> + PHRASE90>
4759                     <DEAD TEMP65>
4760                     <TYPE? TEMP57 <TYPE-CODE FALSE> - BOOL77>
4761                     <EMPL? TEMP57 + BOOL79 (TYPE FALSE)>
4762 BOOL77
4763                     <NTHUV STAT30 3 = TEMP65>
4764                     <DEAD STAT30>
4765                     <TYPE? TEMP65 <TYPE-CODE FALSE> + PHRASE90>
4766                     <DEAD TEMP65>
4767                     <TYPE? TEMP57 <TYPE-CODE FALSE> - BOOL79>
4768                     <EMPL? TEMP57 + PHRASE90 (TYPE FALSE)>
4769                     <NTHL TEMP57 1 = TEMP65 (TYPE LOCAL)>
4770                     <DEAD TEMP57>
4771                     <NTHUV TEMP65 1 = TEMP65 (TYPE ATOM)>
4772                     <VEQUAL? TEMP65 LCL233 + PHRASE90>
4773                     <DEAD TEMP65>
4774 BOOL79
4775                     <FRAME '\1aUPDATE-AC>
4776                     <PUSH AC32>
4777                     <PUSH 'T>
4778                     <CALL '\1aUPDATE-AC 2>
4779                     <PUTUV AC32 5 %<>>
4780                     <JUMP + PHRASE90>
4781 PHRASE69
4782                     <TYPE? TEMP57 <TYPE-CODE FALSE> + PHRASE82>
4783                     <TYPE? LOOP?13 <TYPE-CODE FALSE> + PHRASE82>
4784                     <TYPE? LCL233 <TYPE-CODE FALSE> + BOOL84>
4785                     <NTHUV TEMP57 1 = TEMP65 (TYPE ATOM)>
4786                     <VEQUAL? TEMP65 LCL233 + PHRASE82>
4787                     <DEAD TEMP65>
4788 BOOL84
4789                     <FRAME '\1aFIND-AC>
4790                     <PUSH TEMP57>
4791                     <NTHUV STAT30 5 = STACK (TYPE ATOM)>
4792                     <CALL '\1aFIND-AC 2 = NEW-AC?34>
4793                     <TYPE? NEW-AC?34 <TYPE-CODE FALSE> + PHRASE82>
4794                     <NTHUV STAT30 4 = TEMP65>
4795                     <TYPE? TEMP65 <TYPE-CODE FALSE> + BOOL88>
4796                     <DEAD TEMP65>
4797                     <NTHUV STAT30 3 = TEMP65>
4798                     <TYPE? TEMP65 <TYPE-CODE FALSE> + PHRASE90>
4799                     <DEAD TEMP65>
4800                     <NTHUV TEMP57 4 = TEMP65>
4801                     <DEAD TEMP57>
4802                     <TYPE? TEMP65 <TYPE-CODE FALSE> - PHRASE90>
4803                     <DEAD TEMP65>
4804                     <NTHUV STAT30 4 = TEMP57 (TYPE ATOM)>
4805                     <DEAD STAT30>
4806                     <NTHUV NEW-AC?34 6 = TEMP65>
4807                     <VEQUAL? TEMP57 TEMP65 + PHRASE90>
4808                     <DEAD TEMP57 TEMP65>
4809 BOOL88
4810                     <CONS AC32 MOVES-TO14 = MOVES-TO14>
4811                     <CONS NEW-AC?34 MOVES-FROM16 = MOVES-FROM16>
4812                     <DEAD NEW-AC?34>
4813                     <JUMP + PHRASE90>
4814 PHRASE82
4815                     <TYPE? TEMP57 <TYPE-CODE FALSE> + PHRASE90>
4816                     <DEAD TEMP57>
4817                     <TYPE? LOOP?13 <TYPE-CODE FALSE> + PHRASE90>
4818                     <FRAME '\1aERROR>
4819                     <PUSH 'AC-SCREW-UP!-ERRORS>
4820                     <CALL '\1aERROR 1>
4821 PHRASE90
4822                     <TYPE? LOOP?13 <TYPE-CODE FALSE> + PHRASE94>
4823                     <TYPE? LCL233 <TYPE-CODE FALSE> + PHRASE94>
4824                     <FRAME '\1aFIND-LOCAL>
4825                     <PUSH LCL233>
4826                     <DEAD LCL233>
4827                     <NTHUV AC32 3 = STACK (TYPE ATOM)>
4828                     <PUSH LS12>
4829                     <PUSH 'T>
4830                     <CALL '\1aFIND-LOCAL 4 = TEMP65>
4831                     <TYPE? TEMP65 <TYPE-CODE FALSE> - PHRASE94>
4832                     <DEAD TEMP65>
4833                     <NTHUV AC32 5 = TEMP65>
4834                     <TYPE? TEMP65 <TYPE-CODE FALSE> + PHRASE94>
4835                     <DEAD TEMP65>
4836                     <FRAME '\1aUPDATE-AC>
4837                     <PUSH AC32>
4838                     <PUSH 'T>
4839                     <CALL '\1aUPDATE-AC 2>
4840                     <PUTUV AC32 5 %<>>
4841                     <DEAD AC32>
4842 PHRASE94
4843                     <RESTUV TEMP25 1 = TEMP25 (TYPE VECTOR)>
4844                     <JUMP + MAP20>
4845 MAPAP23
4846                     <TYPE? AC-P110 <TYPE-CODE FALSE> + PHRASE113>
4847                     <FRAME '\1aGET-AC>
4848                     <PUSH AC-P110>
4849                     <DEAD AC-P110>
4850                     <CALL '\1aGET-AC 1 = AC-P110>
4851                     <SET TEMP25 MOVES-TO14>
4852                     <EMPL? TEMP25 + PHRASE113>
4853                     <LOOP (AC-P110 VALUE) (TEMP25 VALUE)>
4854 TAG103
4855                     <NTHL TEMP25 1 = AC32>
4856                     <TYPE? AC32 <TYPE-CODE AC> - TAG104>
4857                     <VEQUAL? AC32 AC-P110 + TAG102>
4858                     <DEAD AC32>
4859 TAG104
4860                     <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
4861                     <EMPL? TEMP25 - TAG103>
4862                     <JUMP + PHRASE113>
4863 TAG102
4864                     <SET AC32 MOVES-FROM16>
4865                     <EMPL? AC32 + PHRASE106>
4866                     <LOOP (AC-P110 VALUE) (AC32 VALUE)>
4867 TAG109
4868                     <NTHL AC32 1 = TEMP25>
4869                     <TYPE? TEMP25 <TYPE-CODE AC> - TAG110>
4870                     <VEQUAL? TEMP25 AC-P110 + TAG108>
4871                     <DEAD TEMP25>
4872 TAG110
4873                     <RESTL AC32 1 = AC32 (TYPE LIST)>
4874                     <EMPL? AC32 - TAG109>
4875                     <JUMP + PHRASE106>
4876 TAG108
4877                     <LENL MOVES-FROM16 = LCL233 (TYPE FIX)>
4878                     <LENL AC32 = TEMP25 (TYPE FIX)>
4879                     <DEAD AC32>
4880                     <SUB LCL233 TEMP25 = LCL233 (TYPE FIX)>
4881                     <DEAD TEMP25>
4882                     <SUB LCL233 -1 = LCL233 (TYPE FIX)>
4883                     <SET TEMP25 MOVES-TO14>
4884                     <SUB LCL233 1 = LCL233 (TYPE FIX)>
4885                     <GRTR? LCL233 0 - RESTL112 (TYPE FIX)>
4886                     <LOOP (TEMP25 VALUE) (LCL233 VALUE)>
4887 RESTL111
4888                     <INTGO>
4889                     <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
4890                     <SUB LCL233 1 = LCL233 (TYPE FIX)>
4891                     <GRTR? LCL233 0 + RESTL111 (TYPE FIX)>
4892 RESTL112
4893                     <NTHL TEMP25 1 = AC-P110>
4894                     <DEAD TEMP25>
4895                     <JUMP + PHRASE113>
4896 PHRASE106
4897                     <CONS AC-P110 MOVES-FROM16 = MOVES-FROM16>
4898                     <DEAD AC-P110>
4899                     <FRAME '\1aFIND-FREE-TO>
4900                     <PUSH MOVES-TO14>
4901                     <PUSH MOVES-FROM16>
4902                     <CALL '\1aFIND-FREE-TO 2 = AC-P110>
4903                     <CONS AC-P110 () = TEMP25>
4904                     <PUTREST TEMP25 MOVES-TO14>
4905                     <DEAD MOVES-TO14>
4906                     <SET MOVES-TO14 TEMP25>
4907                     <DEAD TEMP25>
4908 PHRASE113
4909                     <TYPE? AC-P211 <TYPE-CODE FALSE> + PHRASE130>
4910                     <FRAME '\1aGET-AC>
4911                     <PUSH AC-P211>
4912                     <DEAD AC-P211>
4913                     <CALL '\1aGET-AC 1 = AC-P211>
4914                     <SET TEMP25 MOVES-TO14>
4915                     <EMPL? TEMP25 + PHRASE130>
4916                     <LOOP (AC-P211 VALUE) (TEMP25 VALUE)>
4917 TAG120
4918                     <NTHL TEMP25 1 = LCL233>
4919                     <TYPE? LCL233 <TYPE-CODE AC> - TAG121>
4920                     <VEQUAL? LCL233 AC-P211 + TAG119>
4921                     <DEAD LCL233>
4922 TAG121
4923                     <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
4924                     <EMPL? TEMP25 - TAG120>
4925                     <JUMP + PHRASE130>
4926 TAG119
4927                     <SET TEMP25 MOVES-FROM16>
4928                     <EMPL? TEMP25 + PHRASE123>
4929                     <LOOP (AC-P211 VALUE) (TEMP25 VALUE)>
4930 TAG126
4931                     <NTHL TEMP25 1 = LCL233>
4932                     <TYPE? LCL233 <TYPE-CODE AC> - TAG127>
4933                     <VEQUAL? LCL233 AC-P211 + TAG125>
4934                     <DEAD LCL233>
4935 TAG127
4936                     <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
4937                     <EMPL? TEMP25 - TAG126>
4938                     <JUMP + PHRASE123>
4939 TAG125
4940                     <SET AC32 TEMP25>
4941                     <DEAD TEMP25>
4942                     <LENL MOVES-FROM16 = TEMP25 (TYPE FIX)>
4943                     <LENL AC32 = LCL233 (TYPE FIX)>
4944                     <DEAD AC32>
4945                     <SUB TEMP25 LCL233 = TEMP25 (TYPE FIX)>
4946                     <DEAD LCL233>
4947                     <SUB TEMP25 -1 = TEMP25 (TYPE FIX)>
4948                     <SET LCL233 MOVES-TO14>
4949                     <SUB TEMP25 1 = TEMP25 (TYPE FIX)>
4950                     <GRTR? TEMP25 0 - RESTL129 (TYPE FIX)>
4951                     <LOOP (LCL233 VALUE) (TEMP25 VALUE)>
4952 RESTL128
4953                     <INTGO>
4954                     <RESTL LCL233 1 = LCL233 (TYPE LIST)>
4955                     <SUB TEMP25 1 = TEMP25 (TYPE FIX)>
4956                     <GRTR? TEMP25 0 + RESTL128 (TYPE FIX)>
4957 RESTL129
4958                     <NTHL LCL233 1 = AC-P211>
4959                     <DEAD LCL233>
4960                     <JUMP + PHRASE130>
4961 PHRASE123
4962                     <CONS AC-P211 MOVES-FROM16 = MOVES-FROM16>
4963                     <DEAD AC-P211>
4964                     <FRAME '\1aFIND-FREE-TO>
4965                     <PUSH MOVES-TO14>
4966                     <PUSH MOVES-FROM16>
4967                     <CALL '\1aFIND-FREE-TO 2 = AC-P211>
4968                     <CONS AC-P211 () = LCL233>
4969                     <PUTREST LCL233 MOVES-TO14>
4970                     <DEAD MOVES-TO14>
4971                     <SET MOVES-TO14 LCL233>
4972                     <DEAD LCL233>
4973 PHRASE130
4974                     <EMPL? MOVES-FROM16 + EXIT134 (TYPE LIST)>
4975                     <SET LCL233 'T (TYPE ATOM)>
4976                     <LOOP>
4977 AGAIN137
4978                     <INTGO>
4979                     <SET NEW-AC?34 %<> (TYPE FALSE)>
4980                     <SET TEMP25 MOVES-TO14 (TYPE LIST)>
4981                     <SET AC32 MOVES-FROM16 (TYPE LIST)>
4982                     <LOOP>
4983 MAP139
4984                     <INTGO>
4985                     <EMPL? TEMP25 + MAPAP142>
4986                     <EMPL? AC32 + MAPAP142>
4987                     <SET STAT30 TEMP25>
4988                     <SET PF147 AC32>
4989                     <NTHL STAT30 1 = TEMP57>
4990                     <NTHL PF147 1 = TEMP65>
4991                     <VEQUAL? TEMP65 TEMP57 - PHRASE157>
4992                     <DEAD TEMP65>
4993                     <PUTL PF147 1 %<>>
4994                     <DEAD PF147>
4995                     <PUTL STAT30 1 %<>>
4996                     <DEAD STAT30>
4997                     <JUMP + PHRASE161>
4998 PHRASE157
4999                     <TYPE? TEMP57 <TYPE-CODE FALSE> + PHRASE161>
5000                     <SET LCL233 %<> (TYPE FALSE)>
5001                     <SET TEMP65 MOVES-FROM16>
5002                     <EMPL? TEMP65 + TAG162>
5003                     <LOOP (TEMP57 VALUE) (TEMP65 VALUE)>
5004 TAG163
5005                     <NTHL TEMP65 1 = TEMP165>
5006                     <TYPE? TEMP165 <TYPE-CODE AC> - TAG164>
5007                     <VEQUAL? TEMP165 TEMP57 + PHRASE161>
5008                     <DEAD TEMP165>
5009 TAG164
5010                     <RESTL TEMP65 1 = TEMP65 (TYPE LIST)>
5011                     <EMPL? TEMP65 - TAG163>
5012 TAG162
5013                     <NTHUV TEMP57 4 = AT1151 (TYPE FIX)>
5014                     <NTHL PF147 1 = AF153 (TYPE AC)>
5015                     <NTHUV AF153 4 = AT2152 (TYPE FIX)>
5016                     <SET NEW-AC?34 'T (TYPE ATOM)>
5017                     <RESTL STAT30 1 = TEMP65 (TYPE LIST)>
5018                     <EMPL? TEMP65 + PHRASE167 (TYPE LIST)>
5019                     <DEAD TEMP65>
5020                     <RESTL STAT30 1 = TEMP65 (TYPE LIST)>
5021                     <NTHL TEMP65 1 = P-TO?154>
5022                     <DEAD TEMP65>
5023                     <TYPE? P-TO?154 <TYPE-CODE FALSE> + PHRASE167>
5024                     <FRAME '\1aNEXT-AC>
5025                     <NTHUV P-TO?154 1 = STACK (TYPE ATOM)>
5026                     <CALL '\1aNEXT-AC 1 = TEMP65>
5027                     <NTHUV TEMP57 1 = TEMP165 (TYPE ATOM)>
5028                     <EQUAL? TEMP65 TEMP165 - PHRASE167>
5029                     <DEAD TEMP65 TEMP165>
5030                     <RESTL PF147 1 = TEMP165 (TYPE LIST)>
5031                     <NTHL TEMP165 1 = P-FROM155 (TYPE AC)>
5032                     <DEAD TEMP165>
5033                     <FRAME '\1aNEXT-AC>
5034                     <NTHUV P-FROM155 1 = STACK (TYPE ATOM)>
5035                     <CALL '\1aNEXT-AC 1 = TEMP165>
5036                     <NTHUV AF153 1 = TEMP65 (TYPE ATOM)>
5037                     <EQUAL? TEMP165 TEMP65 - PHRASE167>
5038                     <DEAD TEMP165 TEMP65>
5039                     <SET TEMP65 MOVES-FROM16>
5040                     <EMPL? TEMP65 + TAG171>
5041                     <LOOP (P-TO?154 VALUE) (TEMP65 VALUE)>
5042 TAG172
5043                     <NTHL TEMP65 1 = TEMP165>
5044                     <TYPE? TEMP165 <TYPE-CODE AC> - TAG173>
5045                     <VEQUAL? TEMP165 P-TO?154 + PHRASE167>
5046                     <DEAD TEMP165>
5047 TAG173
5048                     <RESTL TEMP65 1 = TEMP65 (TYPE LIST)>
5049                     <EMPL? TEMP65 - TAG172>
5050 TAG171
5051                     <NTHUV P-TO?154 4 = TEMP65 (TYPE FIX)>
5052                     <NTHUV P-FROM155 4 = TEMP165 (TYPE FIX)>
5053                     <FRAME '\1aOCEMIT>
5054                     <PUSH 'DMOVE>
5055                     <NTHUV P-TO?154 1 = STACK (TYPE ATOM)>
5056                     <NTHUV P-FROM155 1 = STACK (TYPE ATOM)>
5057                     <CALL '\1aOCEMIT 3>
5058                     <PUTUV P-TO?154 4 TEMP65 (TYPE FIX)>
5059                     <DEAD P-TO?154 TEMP65>
5060                     <PUTUV P-FROM155 4 TEMP165 (TYPE FIX)>
5061                     <DEAD P-FROM155 TEMP165>
5062                     <RESTL STAT30 1 = TEMP65 (TYPE LIST)>
5063                     <PUTL TEMP65 1 %<>>
5064                     <DEAD TEMP65>
5065                     <RESTL PF147 1 = TEMP65 (TYPE LIST)>
5066                     <PUTL TEMP65 1 %<>>
5067                     <DEAD TEMP65>
5068                     <JUMP + PHRASE177>
5069 PHRASE167
5070                     <NTHUV AF153 6 = TEMP65>
5071                     <TYPE? TEMP65 <TYPE-CODE FALSE> + PHRASE175>
5072                     <DEAD TEMP65>
5073                     <FRAME '\1aLOAD-TYPE-IN-AC>
5074                     <NTHUV TEMP57 1 = STACK (TYPE ATOM)>
5075                     <NTHUV AF153 6 = STACK (TYPE ATOM)>
5076                     <CALL '\1aLOAD-TYPE-IN-AC 2>
5077                     <JUMP + PHRASE177>
5078 PHRASE175
5079                     <FRAME '\1aOCEMIT>
5080                     <PUSH 'MOVE>
5081                     <NTHUV TEMP57 1 = STACK (TYPE ATOM)>
5082                     <NTHUV AF153 1 = STACK (TYPE ATOM)>
5083                     <CALL '\1aOCEMIT 3>
5084 PHRASE177
5085                     <PUTUV TEMP57 4 AT1151 (TYPE FIX)>
5086                     <DEAD TEMP57 AT1151>
5087                     <PUTUV AF153 4 AT2152 (TYPE FIX)>
5088                     <DEAD AF153 AT2152>
5089                     <PUTL STAT30 1 %<>>
5090                     <DEAD STAT30>
5091                     <PUTL PF147 1 %<>>
5092                     <DEAD PF147>
5093 PHRASE161
5094                     <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
5095                     <RESTL AC32 1 = AC32 (TYPE LIST)>
5096                     <JUMP + MAP139>
5097 MAPAP142
5098                     <VEQUAL? LCL233 0 - EXIT134>
5099                     <DEAD LCL233>
5100                     <VEQUAL? NEW-AC?34 0 - MAPAP187>
5101                     <DEAD NEW-AC?34>
5102                     <SET AC32 MOVES-TO14 (TYPE LIST)>
5103                     <SET TEMP25 MOVES-FROM16 (TYPE LIST)>
5104                     <LOOP>
5105 MAP184
5106                     <INTGO>
5107                     <EMPL? AC32 + MAPAP187>
5108                     <EMPL? TEMP25 + MAPAP187>
5109                     <SET STAT30 AC32>
5110                     <SET PF147 TEMP25>
5111                     <NTHL STAT30 1 = LCL233>
5112                     <NTHL PF147 1 = NEW-AC?34>
5113                     <TYPE? LCL233 <TYPE-CODE FALSE> + PHRASE199>
5114                     <TYPE? NEW-AC?34 <TYPE-CODE FALSE> + PHRASE199>
5115                     <NTHUV LCL233 4 = AT1151 (TYPE FIX)>
5116                     <NTHUV NEW-AC?34 4 = AT2152 (TYPE FIX)>
5117                     <FRAME '\1aOCEMIT>
5118                     <PUSH 'EXCH>
5119                     <NTHUV LCL233 1 = STACK (TYPE ATOM)>
5120                     <NTHUV NEW-AC?34 1 = STACK (TYPE ATOM)>
5121                     <CALL '\1aOCEMIT 3>
5122                     <PUTUV LCL233 4 AT1151 (TYPE FIX)>
5123                     <DEAD AT1151>
5124                     <PUTUV NEW-AC?34 4 AT2152 (TYPE FIX)>
5125                     <DEAD AT2152>
5126                     <PUTL STAT30 1 %<>>
5127                     <DEAD STAT30>
5128                     <PUTL PF147 1 %<>>
5129                     <DEAD PF147>
5130                     <SET TEMP25 MOVES-FROM16>
5131                     <EMPL? TEMP25 + TAG204>
5132                     <LOOP (LCL233 VALUE) (TEMP25 VALUE)>
5133 TAG206
5134                     <NTHL TEMP25 1 = TEMP165>
5135                     <TYPE? TEMP165 <TYPE-CODE AC> - TAG207>
5136                     <VEQUAL? TEMP165 LCL233 + TAG205>
5137                     <DEAD TEMP165>
5138 TAG207
5139                     <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
5140                     <EMPL? TEMP25 - TAG206>
5141 TAG204
5142                     <SET TEMP25 %<> (TYPE FALSE)>
5143                     <JUMP + PHRASE203>
5144 TAG205
5145                     <PUTL TEMP25 1 NEW-AC?34>
5146 PHRASE203
5147                     <SET AC32 MOVES-FROM16>
5148                     <EMPL? AC32 + MAPAP187>
5149                     <LOOP (NEW-AC?34 VALUE) (AC32 VALUE)>
5150 TAG213
5151                     <NTHL AC32 1 = TEMP165>
5152                     <TYPE? TEMP165 <TYPE-CODE AC> - TAG214>
5153                     <VEQUAL? TEMP165 NEW-AC?34 + TAG212>
5154                     <DEAD TEMP165>
5155 TAG214
5156                     <RESTL AC32 1 = AC32 (TYPE LIST)>
5157                     <EMPL? AC32 - TAG213>
5158                     <JUMP + MAPAP187>
5159 TAG212
5160                     <EQUAL? TEMP25 AC32 + MAPAP187>
5161                     <DEAD TEMP25>
5162                     <PUTL AC32 1 LCL233>
5163                     <DEAD AC32 LCL233>
5164                     <JUMP + MAPAP187>
5165 PHRASE199
5166                     <RESTL AC32 1 = AC32 (TYPE LIST)>
5167                     <RESTL TEMP25 1 = TEMP25 (TYPE LIST)>
5168                     <JUMP + MAP184>
5169 MAPAP187
5170                     <SET LCL233 'T (TYPE ATOM)>
5171                     <JUMP + AGAIN137>
5172 EXIT134
5173                     <TYPE? UNCND9 <TYPE-CODE FALSE> + PHRASE216>
5174                     <DEAD UNCND9>
5175                     <FRAME '\1aFLUSH-ACS>
5176                     <CALL '\1aFLUSH-ACS 0>
5177                     <JUMP + PHRASE218>
5178 PHRASE216
5179                     <TYPE? LOOP?13 <TYPE-CODE FALSE> + PHRASE218>
5180                     <DEAD LOOP?13>
5181                     <FRAME '\1aLOGICAL-ESTABLISH>
5182                     <PUSH LS12>
5183                     <DEAD LS12>
5184                     <CALL '\1aLOGICAL-ESTABLISH 1>
5185 PHRASE218
5186                     <SET TEMP25 AC-P110>
5187                     <TYPE? TEMP25 <TYPE-CODE FALSE> + PHRASE224>
5188                     <TYPE? AC-P211 <TYPE-CODE FALSE> + PHRASE223>
5189                     <NTHUV AC-P211 1 = LOOP?13 (TYPE ATOM)>
5190                     <DEAD AC-P211>
5191                     <CONS LOOP?13 () = TEMP25>
5192                     <DEAD LOOP?13>
5193                     <NTHUV AC-P110 1 = LOOP?13 (TYPE ATOM)>
5194                     <DEAD AC-P110>
5195                     <CONS LOOP?13 TEMP25 = TEMP25>
5196                     <DEAD LOOP?13>
5197                     <RETURN TEMP25>
5198                     <DEAD TEMP25>
5199 PHRASE223
5200                     <NTHUV AC-P110 1 = LOOP?13 (TYPE ATOM)>
5201                     <DEAD AC-P110>
5202                     <CONS LOOP?13 () = TEMP25>
5203                     <DEAD LOOP?13>
5204 PHRASE224
5205                     <RETURN TEMP25>
5206                     <DEAD TEMP25>
5207                     <END \1aESTABLISH-BRANCH-STATE>\r\r
5208 #WORD *3174103032*
5209 <GFCN \1aFIND-FREE-TO ("VALUE" <OR AC FALSE> <LIST [REST AC]> <LIST [REST AC]>) L15 L26>
5210                     <TEMP (BEST7 %<>) TEMP19:VECTOR AC20:AC TEMP26:LIST TEMP27>
5211                     <INTGO>
5212                     <GVAL 'AC-PAIR-TABLE = TEMP19>
5213                     <LOOP>
5214 MAP9
5215                     <INTGO>
5216                     <EMPUV? TEMP19 + MAPAP12>
5217                     <NTHUV TEMP19 1 = AC20>
5218                     <SET TEMP26 L15>
5219                     <EMPL? TEMP26 + TAG23>
5220                     <LOOP (AC20 VALUE) (TEMP26 VALUE)>
5221 TAG24
5222                     <NTHL TEMP26 1 = TEMP27>
5223                     <VEQUAL? TEMP27 AC20 + PHRASE33>
5224                     <DEAD TEMP27>
5225                     <RESTL TEMP26 1 = TEMP26 (TYPE LIST)>
5226                     <EMPL? TEMP26 - TAG24>
5227 TAG23
5228                     <DEAD TEMP26>
5229                     <SET TEMP26 L26>
5230                     <EMPL? TEMP26 + PHRASE29>
5231                     <LOOP (AC20 VALUE) (TEMP26 VALUE)>
5232 TAG31
5233                     <NTHL TEMP26 1 = TEMP27>
5234                     <VEQUAL? TEMP27 AC20 + TAG30>
5235                     <DEAD TEMP27>
5236                     <RESTL TEMP26 1 = TEMP26 (TYPE LIST)>
5237                     <EMPL? TEMP26 - TAG31>
5238                     <DEAD TEMP26>
5239                     <JUMP + PHRASE29>
5240 TAG30
5241                     <RETURN AC20>
5242 PHRASE29
5243                     <TYPE? BEST7 <TYPE-CODE FALSE> - PHRASE33>
5244                     <SET BEST7 AC20>
5245                     <DEAD AC20>
5246 PHRASE33
5247                     <RESTUV TEMP19 1 = TEMP19 (TYPE VECTOR)>
5248                     <JUMP + MAP9>
5249 MAPAP12
5250                     <DEAD L15 L26 TEMP19>
5251                     <RETURN BEST7>
5252                     <DEAD BEST7>
5253                     <END \1aFIND-FREE-TO>
5254 #WORD *21771336722*
5255 <GFCN \1aLOGICAL-ESTABLISH ("VALUE" <OR FALSE AC> LABSTATE) LS4>
5256                     <TEMP TEMP14 TEMP11:VECTOR STAT16:ACSTATE TEMP20>
5257                     <INTGO>
5258                     <SET TEMP14 %<> (TYPE FALSE)>
5259                     <CHTYPE LS4 <TYPE-CODE VECTOR> = TEMP11>
5260                     <LOOP>
5261 MAP6
5262                     <INTGO>
5263                     <EMPUV? TEMP11 + MAPAP9>
5264                     <NTHUV TEMP11 1 = STAT16>
5265                     <NTHUV STAT16 1 = TEMP14 (TYPE AC)>
5266                     <NTHUV STAT16 2 = TEMP20>
5267                     <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE19>
5268                     <DEAD TEMP20>
5269                     <NTHUV STAT16 2 = TEMP20 (TYPE LOCAL)>
5270                     <NTHUV TEMP20 1 = TEMP20 (TYPE ATOM)>
5271                     <PUTUV TEMP14 2 TEMP20>
5272                     <DEAD TEMP20>
5273                     <NTHUV STAT16 5 = TEMP20 (TYPE ATOM)>
5274                     <PUTUV TEMP14 3 TEMP20 (TYPE ATOM)>
5275                     <DEAD TEMP20>
5276                     <NTHUV STAT16 3 = TEMP20>
5277                     <TYPE? TEMP20 <TYPE-CODE FALSE> - TAG21>
5278                     <DEAD TEMP20>
5279                     <SET TEMP20 'T (TYPE ATOM)>
5280                     <JUMP + TAG22>
5281 TAG21
5282                     <SET TEMP20 %<> (TYPE FALSE)>
5283 TAG22
5284                     <PUTUV TEMP14 5 TEMP20>
5285                     <DEAD TEMP20>
5286                     <NTHUV STAT16 4 = TEMP20>
5287                     <DEAD STAT16>
5288                     <PUTUV TEMP14 6 TEMP20>
5289                     <DEAD TEMP20>
5290                     <JUMP + PHRASE25>
5291 PHRASE19
5292                     <FRAME '\1aFIND-LOCAL>
5293                     <NTHUV TEMP14 2 = STACK>
5294                     <NTHUV TEMP14 3 = STACK (TYPE ATOM)>
5295                     <PUSH LS4>
5296                     <CALL '\1aFIND-LOCAL 3 = TEMP20>
5297                     <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE23>
5298                     <DEAD TEMP20>
5299                     <PUTUV TEMP14 6 %<>>
5300                     <PUTUV TEMP14 3 'DUMMY (TYPE ATOM)>
5301                     <PUTUV TEMP14 2 %<>>
5302                     <PUTUV TEMP14 4 0 (TYPE FIX)>
5303                     <JUMP + PHRASE25>
5304 PHRASE23
5305                     <NTHUV TEMP14 3 = TEMP20 (TYPE ATOM)>
5306                     <VEQUAL? TEMP20 'TYPE + TAG27>
5307                     <DEAD TEMP20>
5308                     <NTHUV TEMP14 3 = TEMP20 (TYPE ATOM)>
5309                     <VEQUAL? TEMP20 'VALUE + TAG27>
5310                     <DEAD TEMP20>
5311                     <SET TEMP14 %<> (TYPE FALSE)>
5312                     <JUMP + PHRASE25>
5313 TAG27
5314                     <PUTUV TEMP14 5 %<>>
5315 PHRASE25
5316                     <RESTUV TEMP11 1 = TEMP11 (TYPE VECTOR)>
5317                     <JUMP + MAP6>
5318 MAPAP9
5319                     <RETURN TEMP14>
5320                     <DEAD TEMP14>
5321                     <END \1aLOGICAL-ESTABLISH>
5322 #WORD *27723763161*
5323 <GFCN \1aESTABLISH-UPDATE ("VALUE" <OR FALSE AC> LABSTATE) LS5>
5324                     <TEMP TEMP15 TEMP12:VECTOR STAT17:ACSTATE TEMP23>
5325                     <INTGO>
5326                     <SET TEMP15 %<> (TYPE FALSE)>
5327                     <CHTYPE LS5 <TYPE-CODE VECTOR> = TEMP12>
5328                     <DEAD LS5>
5329                     <LOOP>
5330 MAP7
5331                     <INTGO>
5332                     <EMPUV? TEMP12 + MAPAP10>
5333                     <NTHUV TEMP12 1 = STAT17>
5334                     <NTHUV STAT17 1 = TEMP15 (TYPE AC)>
5335                     <NTHUV STAT17 2 = TEMP23>
5336                     <TYPE? TEMP23 <TYPE-CODE FALSE> + BOOL22>
5337                     <DEAD TEMP23>
5338                     <NTHUV STAT17 3 = TEMP23>
5339                     <TYPE? TEMP23 <TYPE-CODE FALSE> - TAG24>
5340                     <DEAD TEMP23>
5341 BOOL22
5342                     <NTHUV STAT17 2 = TEMP23>
5343                     <DEAD STAT17>
5344                     <TYPE? TEMP23 <TYPE-CODE FALSE> + TAG24>
5345                     <DEAD TEMP23>
5346                     <SET TEMP15 %<> (TYPE FALSE)>
5347                     <JUMP + PHRASE20>
5348 TAG24
5349                     <PUTUV TEMP15 5 %<>>
5350 PHRASE20
5351                     <RESTUV TEMP12 1 = TEMP12 (TYPE VECTOR)>
5352                     <JUMP + MAP7>
5353 MAPAP10
5354                     <RETURN TEMP15>
5355                     <DEAD TEMP15>
5356                     <END \1aESTABLISH-UPDATE>
5357 #WORD *34630654702*
5358 <GFCN \1aFIND-LOCAL ("VALUE" <OR ATOM FALSE> ANY ANY LABSTATE "OPTIONAL" ANY) ATM8 COD9 LS10 STORE-CHECK11>
5359                     <OPT-DISPATCH 3 %<> OPT6 OPT7>
5360 OPT6
5361                     <PUSH %<>>
5362 OPT7
5363                     <TEMP TEMP21 TEMP18:VECTOR STAT23:ACSTATE>
5364                     <INTGO>
5365                     <SET TEMP21 %<> (TYPE FALSE)>
5366                     <CHTYPE LS10 <TYPE-CODE VECTOR> = TEMP18>
5367                     <DEAD LS10>
5368                     <LOOP>
5369 MAP13
5370                     <INTGO>
5371                     <EMPUV? TEMP18 + MAPAP16>
5372                     <NTHUV TEMP18 1 = STAT23>
5373                     <NTHUV STAT23 2 = TEMP21>
5374                     <TYPE? TEMP21 <TYPE-CODE FALSE> + PHRASE25>
5375                     <NTHUV STAT23 2 = TEMP21 (TYPE LOCAL)>
5376                     <NTHUV TEMP21 1 = TEMP21 (TYPE ATOM)>
5377                     <EQUAL? TEMP21 ATM8 + TAG27>
5378                     <DEAD TEMP21>
5379                     <SET TEMP21 %<> (TYPE FALSE)>
5380                     <JUMP + PHRASE25>
5381 TAG27
5382                     <NTHUV STAT23 5 = TEMP21 (TYPE ATOM)>
5383                     <EQUAL? TEMP21 COD9 + TAG29>
5384                     <DEAD TEMP21>
5385                     <SET TEMP21 %<> (TYPE FALSE)>
5386                     <JUMP + PHRASE25>
5387 TAG29
5388                     <TYPE? STORE-CHECK11 <TYPE-CODE FALSE> + TAG31>
5389                     <NTHUV STAT23 3 = TEMP21>
5390                     <DEAD STAT23>
5391                     <TYPE? TEMP21 <TYPE-CODE FALSE> + TAG31>
5392                     <DEAD TEMP21>
5393                     <SET TEMP21 %<> (TYPE FALSE)>
5394                     <JUMP + PHRASE25>
5395 TAG31
5396                     <RETURN 'T>
5397 PHRASE25
5398                     <RESTUV TEMP18 1 = TEMP18 (TYPE VECTOR)>
5399                     <JUMP + MAP13>
5400 MAPAP16
5401                     <RETURN TEMP21>
5402                     <DEAD TEMP21>
5403                     <END \1aFIND-LOCAL>
5404 #WORD *20102446170*
5405 <GFCN \1aFIND-AC ("VALUE" <OR AC FALSE> LOCAL ANY) LCL5 COD6>
5406                     <TEMP ATM7:ATOM TEMP17 TEMP19:VECTOR AC20:AC>
5407                     <INTGO>
5408                     <NTHUV LCL5 1 = ATM7 (TYPE ATOM)>
5409                     <DEAD LCL5>
5410                     <SET TEMP17 %<> (TYPE FALSE)>
5411                     <GVAL 'AC-PAIR-TABLE = TEMP19>
5412                     <LOOP>
5413 MAP9
5414                     <INTGO>
5415                     <EMPUV? TEMP19 + MAPAP12>
5416                     <NTHUV TEMP19 1 = AC20>
5417                     <NTHUV AC20 2 = TEMP17>
5418                     <EQUAL? TEMP17 ATM7 + TAG24>
5419                     <DEAD TEMP17>
5420                     <SET TEMP17 %<> (TYPE FALSE)>
5421                     <JUMP + PHRASE22>
5422 TAG24
5423                     <NTHUV AC20 3 = TEMP17 (TYPE ATOM)>
5424                     <EQUAL? TEMP17 COD6 + TAG26>
5425                     <DEAD TEMP17>
5426                     <SET TEMP17 %<> (TYPE FALSE)>
5427                     <JUMP + PHRASE22>
5428 TAG26
5429                     <RETURN AC20>
5430                     <DEAD AC20>
5431 PHRASE22
5432                     <RESTUV TEMP19 1 = TEMP19 (TYPE VECTOR)>
5433                     <JUMP + MAP9>
5434 MAPAP12
5435                     <RETURN TEMP17>
5436                     <DEAD TEMP17>
5437                     <END \1aFIND-AC>
5438 #WORD *6770456464*
5439 <GFCN \1aESTABLISH-LABEL-STATE ("VALUE" ATOM LAB "OPTIONAL" <OR FALSE LABSTATE>) LB8 LS9>
5440                     <OPT-DISPATCH 1 %<> OPT6 OPT7>
5441 OPT6
5442                     <PUSH #T$UNBOUND 0>
5443 OPT7
5444                     <TEMP TEMP20:VECTOR STAT25:ACSTATE AC26:AC TEMP31 ACL27 TEMP33>
5445                     <INTGO>
5446                     <TYPE? LS9 <TYPE-CODE UNBOUND> - TAG10>
5447                     <NTHUV LB8 5 = LS9>
5448                     <DEAD LB8>
5449 TAG10
5450                     <TYPE? LS9 <TYPE-CODE FALSE> + PHRASE13>
5451                     <CHTYPE LS9 <TYPE-CODE VECTOR> = TEMP20>
5452                     <DEAD LS9>
5453                     <LOOP>
5454 MAP15
5455                     <INTGO>
5456                     <EMPUV? TEMP20 + MAPAP18>
5457                     <NTHUV TEMP20 1 = STAT25>
5458                     <NTHUV STAT25 1 = AC26 (TYPE AC)>
5459                     <GVAL 'LAST-UNCON = TEMP31>
5460                     <TYPE? TEMP31 <TYPE-CODE FALSE> - PHRASE29>
5461                     <DEAD TEMP31>
5462                     <NTHUV STAT25 2 = ACL27>
5463                     <TYPE? ACL27 <TYPE-CODE FALSE> - BOOL32>
5464                     <EMPL? ACL27 + BOOL32 (TYPE FALSE)>
5465                     <NTHL ACL27 1 = TEMP31 (TYPE LOCAL)>
5466                     <NTHUV TEMP31 1 = TEMP31 (TYPE ATOM)>
5467                     <NTHUV AC26 2 = TEMP33>
5468                     <EQUAL? TEMP31 TEMP33 + PHRASE29>
5469                     <DEAD TEMP31 TEMP33>
5470 BOOL32
5471                     <TYPE? ACL27 <TYPE-CODE FALSE> + BOOL36>
5472                     <NTHUV STAT25 3 = TEMP33>
5473                     <TYPE? TEMP33 <TYPE-CODE FALSE> + PHRASE29>
5474                     <DEAD TEMP33>
5475                     <NTHUV STAT25 4 = TEMP33>
5476                     <TYPE? TEMP33 <TYPE-CODE FALSE> + BOOL36>
5477                     <DEAD TEMP33>
5478                     <NTHUV ACL27 4 = TEMP33>
5479                     <DEAD ACL27>
5480                     <TYPE? TEMP33 <TYPE-CODE FALSE> - PHRASE29>
5481                     <DEAD TEMP33>
5482 BOOL36
5483                     <NTHUV AC26 5 = TEMP33>
5484                     <TYPE? TEMP33 <TYPE-CODE FALSE> + PHRASE29>
5485                     <DEAD TEMP33>
5486                     <FRAME '\1aUPDATE-AC>
5487                     <PUSH AC26>
5488                     <PUSH 'T>
5489                     <CALL '\1aUPDATE-AC 2>
5490 PHRASE29
5491                     <NTHUV STAT25 2 = TEMP33>
5492                     <TYPE? TEMP33 <TYPE-CODE FALSE> - PHRASE39>
5493                     <DEAD TEMP33>
5494                     <PUTUV AC26 5 %<>>
5495                     <PUTUV AC26 2 %<>>
5496                     <PUTUV AC26 3 'DUMMY (TYPE ATOM)>
5497                     <DEAD AC26>
5498                     <JUMP + PHRASE40>
5499 PHRASE39
5500                     <NTHUV STAT25 5 = TEMP33 (TYPE ATOM)>
5501                     <PUTUV AC26 3 TEMP33 (TYPE ATOM)>
5502                     <DEAD TEMP33>
5503                     <NTHUV STAT25 2 = TEMP33 (TYPE LOCAL)>
5504                     <NTHUV TEMP33 1 = TEMP33 (TYPE ATOM)>
5505                     <PUTUV AC26 2 TEMP33>
5506                     <DEAD TEMP33>
5507                     <NTHUV STAT25 3 = TEMP33>
5508                     <TYPE? TEMP33 <TYPE-CODE FALSE> - TAG41>
5509                     <DEAD TEMP33>
5510                     <SET TEMP33 'T (TYPE ATOM)>
5511                     <JUMP + TAG42>
5512 TAG41
5513                     <SET TEMP33 %<> (TYPE FALSE)>
5514 TAG42
5515                     <PUTUV AC26 5 TEMP33>
5516                     <DEAD TEMP33>
5517                     <NTHUV STAT25 4 = TEMP33>
5518                     <DEAD STAT25>
5519                     <PUTUV AC26 6 TEMP33>
5520                     <DEAD AC26 TEMP33>
5521 PHRASE40
5522                     <RESTUV TEMP20 1 = TEMP20 (TYPE VECTOR)>
5523                     <JUMP + MAP15>
5524 MAPAP18
5525                     <FRAME '\1aFLUSH-AC>
5526                     <PUSH 'T*>
5527                     <CALL '\1aFLUSH-AC 1>
5528                     <FRAME '\1aMUNGED-AC>
5529                     <PUSH 'T*>
5530                     <CALL '\1aMUNGED-AC 1>
5531                     <FRAME '\1aFLUSH-AC>
5532                     <PUSH 'O*>
5533                     <CALL '\1aFLUSH-AC 1>
5534                     <FRAME '\1aMUNGED-AC>
5535                     <PUSH 'O*>
5536                     <CALL '\1aMUNGED-AC 1>
5537                     <RETURN 'T>
5538 PHRASE13
5539                     <FRAME '\1aFLUSH-ACS>
5540                     <CALL '\1aFLUSH-ACS 0>
5541                     <RETURN 'T>
5542                     <END \1aESTABLISH-LABEL-STATE>
5543 #WORD *14064571714*
5544 <GFCN \1aPLS ("VALUE" <OR ATOM FALSE> ANY) LAB5>
5545                     <TEMP (N6:FIX 0) TEMP11 TEMP55:LIST>
5546                     <INTGO>
5547                     <TYPE? LAB5 <TYPE-CODE ATOM> - PHRASE8>
5548                     <FRAME '\1aFIND-LABEL>
5549                     <PUSH LAB5>
5550                     <DEAD LAB5>
5551                     <CALL '\1aFIND-LABEL 1 = LAB5>
5552 PHRASE8
5553                     <FRAME '\1aCRLF>
5554                     <GEN-LVAL 'OUTCHAN = STACK>
5555                     <CALL '\1aCRLF 1>
5556                     <FRAME '\1aPRINC>
5557                     <PUSH "States for label: ">
5558                     <GEN-LVAL 'OUTCHAN = STACK>
5559                     <CALL '\1aPRINC 2>
5560                     <FRAME '\1aPRIN1>
5561                     <NTHUV LAB5 1 = STACK (TYPE ATOM)>
5562                     <GEN-LVAL 'OUTCHAN = STACK>
5563                     <CALL '\1aPRIN1 2>
5564                     <NTHUV LAB5 3 = TEMP11>
5565                     <TYPE? TEMP11 <TYPE-CODE FALSE> + PHRASE23>
5566                     <DEAD TEMP11>
5567                     <FRAME '\1aPRINC>
5568                     <PUSH " (loop)">
5569                     <GEN-LVAL 'OUTCHAN = STACK>
5570                     <CALL '\1aPRINC 2>
5571 PHRASE23
5572                     <FRAME '\1aCRLF>
5573                     <GEN-LVAL 'OUTCHAN = STACK>
5574                     <CALL '\1aCRLF 1>
5575                     <FRAME '\1aCRLF>
5576                     <GEN-LVAL 'OUTCHAN = STACK>
5577                     <CALL '\1aCRLF 1>
5578                     <NTHUV LAB5 5 = TEMP11>
5579                     <TYPE? TEMP11 <TYPE-CODE FALSE> + PHRASE37>
5580                     <DEAD TEMP11>
5581                     <FRAME '\1aPRINC>
5582                     <PUSH "Current final state">
5583                     <GEN-LVAL 'OUTCHAN = STACK>
5584                     <CALL '\1aPRINC 2>
5585                     <FRAME '\1aCRLF>
5586                     <GEN-LVAL 'OUTCHAN = STACK>
5587                     <CALL '\1aCRLF 1>
5588                     <FRAME '\1aCRLF>
5589                     <GEN-LVAL 'OUTCHAN = STACK>
5590                     <CALL '\1aCRLF 1>
5591                     <FRAME '\1aPSTATE>
5592                     <NTHUV LAB5 5 = STACK (TYPE LABSTATE)>
5593                     <CALL '\1aPSTATE 1>
5594 PHRASE37
5595                     <NTHUV LAB5 4 = TEMP55 (TYPE LIST)>
5596                     <EMPL? TEMP55 - TAG54 (TYPE LIST)>
5597                     <DEAD TEMP55>
5598                     <RETURN %<>>
5599 TAG54
5600                     <SET TEMP11 %<> (TYPE FALSE)>
5601                     <NTHUV LAB5 4 = TEMP55 (TYPE LIST)>
5602                     <DEAD LAB5>
5603                     <LOOP>
5604 MAP57
5605                     <INTGO>
5606                     <EMPL? TEMP55 + MAPAP60>
5607                     <NTHL TEMP55 1 = TEMP11>
5608                     <FRAME '\1aPRINC>
5609                     <PUSH "State ">
5610                     <GEN-LVAL 'OUTCHAN = STACK>
5611                     <CALL '\1aPRINC 2>
5612                     <FRAME '\1aPRIN1>
5613                     <ADD N6 1 = N6 (TYPE FIX)>
5614                     <PUSH N6>
5615                     <GEN-LVAL 'OUTCHAN = STACK>
5616                     <CALL '\1aPRIN1 2>
5617                     <FRAME '\1aCRLF>
5618                     <GEN-LVAL 'OUTCHAN = STACK>
5619                     <CALL '\1aCRLF 1>
5620                     <FRAME '\1aCRLF>
5621                     <GEN-LVAL 'OUTCHAN = STACK>
5622                     <CALL '\1aCRLF 1>
5623                     <FRAME '\1aPSTATE>
5624                     <PUSH TEMP11>
5625                     <DEAD TEMP11>
5626                     <CALL '\1aPSTATE 1 = TEMP11>
5627                     <RESTL TEMP55 1 = TEMP55 (TYPE LIST)>
5628                     <JUMP + MAP57>
5629 MAPAP60
5630                     <RETURN TEMP11>
5631                     <DEAD TEMP11>
5632                     <END \1aPLS>\r\r
5633 #WORD *3246220743*
5634 <GFCN \1aPSTATE ("VALUE" <OR ATOM FALSE> LABSTATE) LS5>
5635                     <TEMP TEMP15 TEMP12:VECTOR ACS17:ACSTATE>
5636                     <INTGO>
5637                     <SET TEMP15 %<> (TYPE FALSE)>
5638                     <CHTYPE LS5 <TYPE-CODE VECTOR> = TEMP12>
5639                     <DEAD LS5>
5640                     <LOOP>
5641 MAP7
5642                     <INTGO>
5643                     <EMPUV? TEMP12 + MAPAP10>
5644                     <NTHUV TEMP12 1 = ACS17>
5645                     <NTHUV ACS17 2 = TEMP15>
5646                     <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE19>
5647                     <DEAD TEMP15>
5648                     <FRAME '\1aPRIN1>
5649                     <NTHUV ACS17 1 = TEMP15 (TYPE AC)>
5650                     <NTHUV TEMP15 1 = STACK (TYPE ATOM)>
5651                     <DEAD TEMP15>
5652                     <GEN-LVAL 'OUTCHAN = STACK>
5653                     <CALL '\1aPRIN1 2>
5654                     <FRAME '\1aPRINC>
5655                     <PUSH " ">
5656                     <GEN-LVAL 'OUTCHAN = STACK>
5657                     <CALL '\1aPRINC 2>
5658                     <FRAME '\1aPRIN1>
5659                     <NTHUV ACS17 2 = TEMP15 (TYPE LOCAL)>
5660                     <NTHUV TEMP15 1 = STACK (TYPE ATOM)>
5661                     <DEAD TEMP15>
5662                     <GEN-LVAL 'OUTCHAN = STACK>
5663                     <CALL '\1aPRIN1 2>
5664                     <FRAME '\1aPRINC>
5665                     <NTHUV ACS17 3 = TEMP15>
5666                     <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE34>
5667                     <DEAD TEMP15>
5668                     <SET TEMP15 " stored " (TYPE STRING)>
5669                     <JUMP + PHRASE36>
5670 PHRASE34
5671                     <SET TEMP15 " not stored " (TYPE STRING)>
5672 PHRASE36
5673                     <PUSH TEMP15>
5674                     <DEAD TEMP15>
5675                     <GEN-LVAL 'OUTCHAN = STACK>
5676                     <CALL '\1aPRINC 2>
5677                     <NTHUV ACS17 4 = TEMP15>
5678                     <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE40>
5679                     <DEAD TEMP15>
5680                     <FRAME '\1aPRINC>
5681                     <PUSH "type is ">
5682                     <GEN-LVAL 'OUTCHAN = STACK>
5683                     <CALL '\1aPRINC 2>
5684                     <FRAME '\1aPRIN1>
5685                     <NTHUV ACS17 4 = STACK>
5686                     <DEAD ACS17>
5687                     <GEN-LVAL 'OUTCHAN = STACK>
5688                     <CALL '\1aPRIN1 2>
5689 PHRASE40
5690                     <FRAME '\1aCRLF>
5691                     <GEN-LVAL 'OUTCHAN = STACK>
5692                     <CALL '\1aCRLF 1 = TEMP15>
5693                     <JUMP + PHRASE53>
5694 PHRASE19
5695                     <NTHUV ACS17 3 = TEMP15>
5696                     <EQUAL? TEMP15 'DEAD + TAG54>
5697                     <DEAD TEMP15>
5698                     <SET TEMP15 %<> (TYPE FALSE)>
5699                     <JUMP + PHRASE53>
5700 TAG54
5701                     <FRAME '\1aPRIN1>
5702                     <NTHUV ACS17 1 = TEMP15 (TYPE AC)>
5703                     <NTHUV TEMP15 1 = STACK (TYPE ATOM)>
5704                     <DEAD TEMP15>
5705                     <GEN-LVAL 'OUTCHAN = STACK>
5706                     <CALL '\1aPRIN1 2>
5707                     <FRAME '\1aPRINC>
5708                     <PUSH " ">
5709                     <GEN-LVAL 'OUTCHAN = STACK>
5710                     <CALL '\1aPRINC 2>
5711                     <FRAME '\1aPRIN1>
5712                     <NTHUV ACS17 2 = TEMP15>
5713                     <DEAD ACS17>
5714                     <NTH1 TEMP15 = TEMP15>
5715                     <NTHUV TEMP15 1 = STACK (TYPE ATOM)>
5716                     <DEAD TEMP15>
5717                     <GEN-LVAL 'OUTCHAN = STACK>
5718                     <CALL '\1aPRIN1 2>
5719                     <FRAME '\1aPRINC>
5720                     <PUSH " dead!">
5721                     <GEN-LVAL 'OUTCHAN = STACK>
5722                     <CALL '\1aPRINC 2>
5723                     <FRAME '\1aCRLF>
5724                     <GEN-LVAL 'OUTCHAN = STACK>
5725                     <CALL '\1aCRLF 1 = TEMP15>
5726 PHRASE53
5727                     <RESTUV TEMP12 1 = TEMP12 (TYPE VECTOR)>
5728                     <JUMP + MAP7>
5729 MAPAP10
5730                     <RETURN TEMP15>
5731                     <DEAD TEMP15>
5732                     <END \1aPSTATE>\r\r
5733 #WORD *16127243605*
5734 <GFCN \1aMERGE-LABEL-STATES ("VALUE" <OR FALSE LAB>)>
5735                     <TEMP TEMP14 TEMP16:LIST LS18 TEM19>
5736                     <INTGO>
5737                     <SET TEMP14 %<> (TYPE FALSE)>
5738                     <GVAL 'LABELS = TEMP16>
5739                     <LOOP>
5740 MAP6
5741                     <INTGO>
5742                     <EMPL? TEMP16 + MAPAP9>
5743                     <NTHL TEMP16 1 = TEMP14>
5744                     <NTHUV TEMP14 4 = LS18 (TYPE LIST)>
5745                     <NTHUV TEMP14 5 = TEM19>
5746                     <TYPE? TEM19 <TYPE-CODE FALSE> - PHRASE21>
5747                     <EMPL? LS18 + PHRASE21 (TYPE LIST)>
5748                     <NTHL LS18 1 = TEM19 (TYPE LABSTATE)>
5749                     <RESTL LS18 1 = LS18 (TYPE LIST)>
5750 PHRASE21
5751                     <EMPL? LS18 + PHRASE23 (TYPE LIST)>
5752                     <FRAME '\1aMERGE-ONE-SET>
5753                     <PUSH TEM19>
5754                     <DEAD TEM19>
5755                     <PUSH LS18>
5756                     <DEAD LS18>
5757                     <PUSH TEMP14>
5758                     <DEAD TEMP14>
5759                     <CALL '\1aMERGE-ONE-SET 3 = TEMP14>
5760                     <JUMP + PHRASE25>
5761 PHRASE23
5762                     <PUTUV TEMP14 4 () (TYPE LIST)>
5763                     <PUTUV TEMP14 5 TEM19>
5764                     <DEAD TEM19>
5765 PHRASE25
5766                     <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
5767                     <JUMP + MAP6>
5768 MAPAP9
5769                     <RETURN TEMP14>
5770                     <DEAD TEMP14>
5771                     <END \1aMERGE-LABEL-STATES>
5772 #WORD *25152322354*
5773 <GFCN \1aMERGE-ONE-SET ("VALUE" LAB LABSTATE <LIST LABSTATE [REST LABSTATE]> LAB) FIRST5 RESTP6 LAB7>
5774                     <TEMP TEMP14:LIST NEXT19:LABSTATE TEMP23>
5775                     <INTGO>
5776                     <SET TEMP14 RESTP6 (TYPE LIST)>
5777                     <DEAD RESTP6>
5778                     <LOOP>
5779 MAP9
5780                     <INTGO>
5781                     <EMPL? TEMP14 + MAPAP12>
5782                     <NTHL TEMP14 1 = NEXT19>
5783                     <NTHUV LAB7 3 = TEMP23>
5784                     <TYPE? TEMP23 <TYPE-CODE FALSE> + PHRASE22>
5785                     <DEAD TEMP23>
5786                     <FRAME '\1aMERGE-TWO-FORCE>
5787                     <PUSH FIRST5>
5788                     <PUSH NEXT19>
5789                     <DEAD NEXT19>
5790                     <CALL '\1aMERGE-TWO-FORCE 2 = TEMP23>
5791                     <JUMP + PHRASE25>
5792 PHRASE22
5793                     <FRAME '\1aMERGE-TWO>
5794                     <PUSH FIRST5>
5795                     <PUSH NEXT19>
5796                     <DEAD NEXT19>
5797                     <CALL '\1aMERGE-TWO 2 = TEMP23>
5798 PHRASE25
5799                     <TYPE? TEMP23 <TYPE-CODE FALSE> + PHRASE28>
5800                     <SETG 'CHANGED TEMP23>
5801                     <DEAD TEMP23>
5802 PHRASE28
5803                     <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
5804                     <JUMP + MAP9>
5805 MAPAP12
5806                     <PUTUV LAB7 5 FIRST5>
5807                     <DEAD FIRST5>
5808                     <PUTUV LAB7 4 () (TYPE LIST)>
5809                     <RETURN LAB7>
5810                     <DEAD LAB7>
5811                     <END \1aMERGE-ONE-SET>
5812 #WORD *30702122641*
5813 <GFCN \1aMERGE-TWO ("VALUE" <OR ATOM FALSE> LABSTATE LABSTATE) ONE5 TWO6>
5814                     <TEMP (CHANGED7 %<>) TEMP14:VECTOR TEMP15:VECTOR TEMP21:VECTOR AP122:VECTOR AP223:VECTOR NSP24 ACST125 ACST226 LD28 TEMP33>
5815                     <INTGO>
5816                     <CHTYPE ONE5 <TYPE-CODE VECTOR> = TEMP14>
5817                     <DEAD ONE5>
5818                     <CHTYPE TWO6 <TYPE-CODE VECTOR> = TEMP15>
5819                     <DEAD TWO6>
5820                     <GVAL 'NULL-STATES = TEMP21>
5821                     <LOOP>
5822 MAP9
5823                     <INTGO>
5824                     <EMPUV? TEMP14 + MAPAP12>
5825                     <EMPUV? TEMP15 + MAPAP12>
5826                     <EMPUV? TEMP21 + MAPAP12>
5827                     <SET AP122 TEMP14>
5828                     <SET AP223 TEMP15>
5829                     <SET NSP24 TEMP21>
5830                     <NTHUV AP122 1 = ACST125 (TYPE ACSTATE)>
5831                     <NTHUV AP223 1 = ACST226 (TYPE ACSTATE)>
5832                     <NTHUV NSP24 1 = NSP24 (TYPE ACSTATE)>
5833                     <SET LD28 %<> (TYPE FALSE)>
5834                     <NTHUV ACST125 2 = LD28>
5835                     <TYPE? LD28 <TYPE-CODE FALSE> + PHRASE30>
5836                     <DEAD LD28>
5837                     <NTHUV ACST226 2 = LD28>
5838                     <TYPE? LD28 <TYPE-CODE FALSE> + PHRASE30>
5839                     <DEAD LD28>
5840                     <NTHUV ACST125 2 = LD28 (TYPE LOCAL)>
5841                     <NTHUV LD28 1 = LD28 (TYPE ATOM)>
5842                     <NTHUV ACST226 2 = TEMP33 (TYPE LOCAL)>
5843                     <NTHUV TEMP33 1 = TEMP33 (TYPE ATOM)>
5844                     <VEQUAL? LD28 TEMP33 - PHRASE30>
5845                     <DEAD LD28 TEMP33>
5846                     <NTHUV ACST125 5 = TEMP33 (TYPE ATOM)>
5847                     <NTHUV ACST226 5 = LD28 (TYPE ATOM)>
5848                     <VEQUAL? TEMP33 LD28 - PHRASE30>
5849                     <DEAD TEMP33>
5850                     <NTHUV ACST125 4 = LD28>
5851                     <NTHUV ACST226 4 = TEMP33>
5852                     <EQUAL? LD28 TEMP33 + BOOL34>
5853                     <DEAD LD28 TEMP33>
5854                     <NTHUV ACST125 2 = TEMP33 (TYPE LOCAL)>
5855                     <NTHUV TEMP33 4 = LD28>
5856                     <DEAD TEMP33>
5857                     <TYPE? LD28 <TYPE-CODE FALSE> + PHRASE30>
5858                     <PUTUV ACST125 3 'T>
5859                     <PUTUV ACST125 4 LD28>
5860                     <PUTUV ACST226 3 'T>
5861                     <PUTUV ACST226 4 LD28>
5862                     <DEAD LD28>
5863                     <NTHUV ACST125 2 = TEMP33 (TYPE LOCAL)>
5864                     <NTHUV TEMP33 1 = CHANGED7 (TYPE ATOM)>
5865                     <DEAD TEMP33>
5866 BOOL34
5867                     <NTHUV ACST226 3 = TEMP33>
5868                     <TYPE? TEMP33 <TYPE-CODE FALSE> - TAG38>
5869                     <DEAD TEMP33>
5870                     <SET TEMP33 'T (TYPE ATOM)>
5871                     <JUMP + TAG39>
5872 TAG38
5873                     <SET TEMP33 %<> (TYPE FALSE)>
5874 TAG39
5875                     <NTHUV ACST125 3 = LD28>
5876                     <TYPE? LD28 <TYPE-CODE FALSE> - TAG40>
5877                     <DEAD LD28>
5878                     <SET LD28 'T (TYPE ATOM)>
5879                     <JUMP + TAG41>
5880 TAG40
5881                     <SET LD28 %<> (TYPE FALSE)>
5882 TAG41
5883                     <EQUAL? TEMP33 LD28 + PHRASE52>
5884                     <DEAD TEMP33>
5885                     <NTHUV ACST125 2 = LD28 (TYPE LOCAL)>
5886                     <NTHUV LD28 1 = CHANGED7 (TYPE ATOM)>
5887                     <DEAD LD28>
5888                     <NTHUV ACST125 4 = LD28>
5889                     <TYPE? LD28 <TYPE-CODE FALSE> + PHRASE43>
5890                     <DEAD LD28>
5891                     <NTHUV ACST125 2 = LD28 (TYPE LOCAL)>
5892                     <NTHUV LD28 4 = LD28>
5893                     <TYPE? LD28 <TYPE-CODE FALSE> + PHRASE43>
5894                     <DEAD LD28>
5895                     <PUTUV ACST125 3 'T>
5896                     <DEAD ACST125>
5897                     <JUMP + PHRASE52>
5898 PHRASE43
5899                     <NTHUV ACST125 3 = LD28>
5900                     <EQUAL? LD28 'HACKED + BOOL46>
5901                     <DEAD LD28>
5902                     <NTHUV ACST226 3 = LD28>
5903                     <DEAD ACST226>
5904                     <EQUAL? LD28 'HACKED - PHRASE45>
5905                     <DEAD LD28>
5906 BOOL46
5907                     <PUTUV ACST125 3 'HACKED>
5908                     <DEAD ACST125>
5909                     <JUMP + PHRASE52>
5910 PHRASE45
5911                     <PUTUV ACST125 3 %<>>
5912                     <DEAD ACST125>
5913                     <JUMP + PHRASE52>
5914 PHRASE30
5915                     <VEQUAL? ACST125 NSP24 - PHRASE50>
5916                     <DEAD NSP24>
5917                     <PUTUV AP122 1 ACST226>
5918                     <DEAD ACST226>
5919                     <SET ACST226 ACST125>
5920                     <DEAD ACST125>
5921                     <PUTUV AP223 1 ACST226>
5922                     <DEAD AP223>
5923                     <NTHUV AP122 1 = ACST125 (TYPE ACSTATE)>
5924                     <DEAD AP122>
5925 PHRASE50
5926                     <NTHUV ACST125 2 = LD28>
5927                     <TYPE? LD28 <TYPE-CODE FALSE> + PHRASE52>
5928                     <DEAD LD28>
5929                     <NTHUV ACST226 2 = LD28>
5930                     <TYPE? LD28 <TYPE-CODE FALSE> - BOOL54>
5931                     <DEAD LD28>
5932                     <NTHUV ACST226 2 = LD28 (TYPE FALSE)>
5933                     <EMPL? LD28 + BOOL54 (TYPE FALSE)>
5934                     <DEAD LD28>
5935                     <NTHUV ACST125 2 = LD28 (TYPE LOCAL)>
5936                     <NTHUV LD28 1 = LD28 (TYPE ATOM)>
5937                     <NTHUV ACST226 2 = TEMP33 (TYPE FALSE)>
5938                     <DEAD ACST226>
5939                     <NTHL TEMP33 1 = TEMP33 (TYPE LOCAL)>
5940                     <NTHUV TEMP33 1 = TEMP33 (TYPE ATOM)>
5941                     <VEQUAL? LD28 TEMP33 + PHRASE52>
5942                     <DEAD LD28 TEMP33>
5943 BOOL54
5944                     <NTHUV ACST125 2 = TEMP33 (TYPE LOCAL)>
5945                     <NTHUV TEMP33 1 = CHANGED7 (TYPE ATOM)>
5946                     <DEAD TEMP33>
5947                     <NTHUV ACST125 2 = TEMP33 (TYPE LOCAL)>
5948                     <PUTUV TEMP33 2 'T>
5949                     <DEAD TEMP33>
5950                     <PUTUV ACST125 2 %<>>
5951                     <PUTUV ACST125 3 %<>>
5952                     <DEAD ACST125>
5953 PHRASE52
5954                     <RESTUV TEMP14 1 = TEMP14 (TYPE VECTOR)>
5955                     <RESTUV TEMP15 1 = TEMP15 (TYPE VECTOR)>
5956                     <RESTUV TEMP21 1 = TEMP21 (TYPE VECTOR)>
5957                     <JUMP + MAP9>
5958 MAPAP12
5959                     <RETURN CHANGED7>
5960                     <DEAD CHANGED7>
5961                     <END \1aMERGE-TWO>
5962 #WORD *6716626442*
5963 <GFCN \1aMERGE-TWO-FORCE ("VALUE" ANY LABSTATE LABSTATE) ONE5 TWO6>
5964                     <TEMP (CHANGED7 %<>) (WINNERS8:FIX 0) TEMP15:VECTOR ACST120:ACSTATE TEMP23 TEMP32 ACST234:ACSTATE LCL35 TEMP41>
5965                     <INTGO>
5966                     <CHTYPE ONE5 <TYPE-CODE VECTOR> = TEMP15>
5967                     <DEAD ONE5>
5968                     <LOOP>
5969 MAP10
5970                     <INTGO>
5971                     <EMPUV? TEMP15 + MAPAP13>
5972                     <NTHUV TEMP15 1 = ACST120>
5973                     <NTHUV ACST120 2 = TEMP23>
5974                     <TYPE? TEMP23 <TYPE-CODE FALSE> + BOOL22>
5975                     <DEAD TEMP23>
5976                     <ADD WINNERS8 1 = WINNERS8 (TYPE FIX)>
5977                     <SET TEMP32 %<> (TYPE FALSE)>
5978                     <CHTYPE TWO6 <TYPE-CODE VECTOR> = TEMP23>
5979                     <LOOP>
5980 MAP25
5981                     <INTGO>
5982                     <EMPUV? TEMP23 + MAPAP28>
5983                     <NTHUV TEMP23 1 = ACST234>
5984                     <NTHUV ACST234 2 = LCL35>
5985                     <SET TEMP32 LCL35>
5986                     <TYPE? TEMP32 <TYPE-CODE FALSE> + PHRASE37>
5987                     <NTHUV ACST120 2 = TEMP32 (TYPE LOCAL)>
5988                     <NTHUV TEMP32 1 = TEMP32 (TYPE ATOM)>
5989                     <NTHUV ACST234 2 = TEMP41 (TYPE LOCAL)>
5990                     <NTHUV TEMP41 1 = TEMP41 (TYPE ATOM)>
5991                     <VEQUAL? TEMP32 TEMP41 + TAG39>
5992                     <DEAD TEMP32 TEMP41>
5993                     <SET TEMP32 %<> (TYPE FALSE)>
5994                     <JUMP + PHRASE37>
5995 TAG39
5996                     <NTHUV ACST120 5 = TEMP41 (TYPE ATOM)>
5997                     <NTHUV ACST234 5 = TEMP32 (TYPE ATOM)>
5998                     <VEQUAL? TEMP41 TEMP32 + TAG42>
5999                     <DEAD TEMP41>
6000                     <SET TEMP32 %<> (TYPE FALSE)>
6001                     <JUMP + PHRASE37>
6002 TAG42
6003                     <NTHUV ACST120 4 = TEMP32>
6004                     <TYPE? TEMP32 <TYPE-CODE FALSE> - BOOL44>
6005                     <DEAD TEMP32>
6006                     <NTHUV ACST234 4 = TEMP32>
6007                     <TYPE? TEMP32 <TYPE-CODE FALSE> + BOOL43>
6008                     <DEAD TEMP32>
6009 BOOL44
6010                     <NTHUV ACST120 4 = TEMP32>
6011                     <NTHUV ACST234 4 = TEMP41>
6012                     <EQUAL? TEMP32 TEMP41 - BOOL45>
6013                     <DEAD TEMP32 TEMP41>
6014                     <NTHUV ACST120 3 = TEMP41>
6015                     <TYPE? TEMP41 <TYPE-CODE FALSE> - TAG47>
6016                     <DEAD TEMP41>
6017                     <SET TEMP41 'T (TYPE ATOM)>
6018                     <JUMP + TAG48>
6019 TAG47
6020                     <SET TEMP41 %<> (TYPE FALSE)>
6021 TAG48
6022                     <NTHUV ACST234 3 = TEMP32>
6023                     <TYPE? TEMP32 <TYPE-CODE FALSE> - TAG49>
6024                     <DEAD TEMP32>
6025                     <SET TEMP32 'T (TYPE ATOM)>
6026                     <JUMP + TAG50>
6027 TAG49
6028                     <SET TEMP32 %<> (TYPE FALSE)>
6029 TAG50
6030                     <EQUAL? TEMP41 TEMP32 + BOOL43>
6031                     <DEAD TEMP41>
6032                     <NTHUV LCL35 4 = TEMP32>
6033                     <DEAD LCL35>
6034                     <TYPE? TEMP32 <TYPE-CODE FALSE> + BOOL51>
6035                     <DEAD TEMP32>
6036                     <NTHUV ACST120 2 = TEMP32 (TYPE LOCAL)>
6037                     <NTHUV TEMP32 1 = CHANGED7 (TYPE ATOM)>
6038                     <DEAD TEMP32>
6039                     <PUTUV ACST120 3 'T>
6040                     <PUTUV ACST234 3 'T>
6041                     <JUMP + BOOL43>
6042 BOOL51
6043                     <NTHUV ACST120 3 = TEMP32>
6044                     <EQUAL? TEMP32 'HACKED + BOOL53>
6045                     <DEAD TEMP32>
6046                     <NTHUV ACST234 3 = TEMP32>
6047                     <EQUAL? TEMP32 'HACKED - BOOL52>
6048                     <DEAD TEMP32>
6049 BOOL53
6050                     <NTHUV ACST120 2 = TEMP32 (TYPE LOCAL)>
6051                     <NTHUV TEMP32 1 = CHANGED7 (TYPE ATOM)>
6052                     <DEAD TEMP32>
6053                     <PUTUV ACST120 3 'HACKED>
6054                     <PUTUV ACST234 3 'HACKED>
6055                     <JUMP + BOOL43>
6056 BOOL52
6057                     <NTHUV ACST120 2 = TEMP32 (TYPE LOCAL)>
6058                     <NTHUV TEMP32 1 = CHANGED7 (TYPE ATOM)>
6059                     <DEAD TEMP32>
6060                     <PUTUV ACST120 3 %<>>
6061                     <PUTUV ACST234 3 %<>>
6062                     <JUMP + BOOL43>
6063 BOOL45
6064                     <NTHUV LCL35 4 = TEMP32>
6065                     <TYPE? TEMP32 <TYPE-CODE FALSE> + PHRASE37>
6066                     <NTHUV ACST120 2 = TEMP32 (TYPE LOCAL)>
6067                     <NTHUV TEMP32 1 = CHANGED7 (TYPE ATOM)>
6068                     <DEAD TEMP32>
6069                     <NTHUV LCL35 4 = TEMP32 (TYPE ATOM)>
6070                     <PUTUV ACST120 4 TEMP32>
6071                     <DEAD TEMP32>
6072                     <PUTUV ACST120 3 'T>
6073                     <NTHUV LCL35 4 = TEMP32>
6074                     <DEAD LCL35>
6075                     <PUTUV ACST234 4 TEMP32>
6076                     <DEAD TEMP32>
6077                     <PUTUV ACST234 3 'T>
6078 BOOL43
6079                     <NTHUV ACST120 3 = TEMP32>
6080                     <TYPE? TEMP32 <TYPE-CODE FALSE> - TAG58>
6081                     <DEAD TEMP32>
6082                     <SET TEMP32 'T (TYPE ATOM)>
6083                     <JUMP + TAG59>
6084 TAG58
6085                     <SET TEMP32 %<> (TYPE FALSE)>
6086 TAG59
6087                     <NTHUV ACST234 3 = TEMP41>
6088                     <TYPE? TEMP41 <TYPE-CODE FALSE> - TAG60>
6089                     <DEAD TEMP41>
6090                     <SET TEMP41 'T (TYPE ATOM)>
6091                     <JUMP + TAG61>
6092 TAG60
6093                     <SET TEMP41 %<> (TYPE FALSE)>
6094 TAG61
6095                     <EQUAL? TEMP32 TEMP41 + PHRASE65>
6096                     <DEAD TEMP32 TEMP41>
6097                     <NTHUV ACST120 2 = TEMP41 (TYPE LOCAL)>
6098                     <NTHUV TEMP41 1 = CHANGED7 (TYPE ATOM)>
6099                     <DEAD TEMP41>
6100                     <NTHUV ACST120 3 = TEMP41>
6101                     <EQUAL? TEMP41 'HACKED + BOOL64>
6102                     <DEAD TEMP41>
6103                     <NTHUV ACST234 3 = TEMP41>
6104                     <EQUAL? TEMP41 'HACKED - PHRASE63>
6105                     <DEAD TEMP41>
6106 BOOL64
6107                     <PUTUV ACST120 3 'HACKED>
6108                     <PUTUV ACST234 3 'HACKED>
6109                     <DEAD ACST234>
6110                     <JUMP + PHRASE65>
6111 PHRASE63
6112                     <PUTUV ACST120 3 %<>>
6113                     <PUTUV ACST234 3 %<>>
6114                     <DEAD ACST234>
6115 PHRASE65
6116                     <SET TEMP32 'T (TYPE ATOM)>
6117                     <JUMP + MAPAP28>
6118 PHRASE37
6119                     <RESTUV TEMP23 1 = TEMP23 (TYPE VECTOR)>
6120                     <JUMP + MAP25>
6121 MAPAP28
6122                     <TYPE? TEMP32 <TYPE-CODE FALSE> - PHRASE66>
6123                     <DEAD TEMP32>
6124 BOOL22
6125                     <NTHUV ACST120 2 = TEMP23>
6126                     <TYPE? TEMP23 <TYPE-CODE FALSE> + PHRASE68>
6127                     <DEAD TEMP23>
6128                     <NTHUV ACST120 2 = TEMP23 (TYPE LOCAL)>
6129                     <NTHUV TEMP23 1 = CHANGED7 (TYPE ATOM)>
6130                     <DEAD TEMP23>
6131                     <NTHUV ACST120 2 = TEMP23 (TYPE LOCAL)>
6132                     <PUTUV TEMP23 2 'T>
6133                     <DEAD TEMP23>
6134 PHRASE68
6135                     <PUTUV ACST120 2 %<>>
6136                     <PUTUV ACST120 3 %<>>
6137                     <DEAD ACST120>
6138 PHRASE66
6139                     <RESTUV TEMP15 1 = TEMP15 (TYPE VECTOR)>
6140                     <JUMP + MAP10>
6141 MAPAP13
6142                     <CHTYPE TWO6 <TYPE-CODE VECTOR> = TEMP15>
6143                     <DEAD TWO6>
6144                     <LOOP>
6145 MAP70
6146                     <INTGO>
6147                     <EMPUV? TEMP15 + MAPAP73>
6148                     <NTHUV TEMP15 1 = ACST120>
6149                     <NTHUV ACST120 2 = TEMP32>
6150                     <TYPE? TEMP32 <TYPE-CODE FALSE> + PHRASE80>
6151                     <DEAD TEMP32>
6152                     <SUB WINNERS8 1 = WINNERS8 (TYPE FIX)>
6153                     <LESS? WINNERS8 0 - PHRASE80 (TYPE FIX)>
6154                     <NTHUV ACST120 2 = TEMP32 (TYPE LOCAL)>
6155                     <DEAD ACST120>
6156                     <NTHUV TEMP32 1 = CHANGED7 (TYPE ATOM)>
6157                     <DEAD TEMP32>
6158                     <RETURN CHANGED7>
6159                     <DEAD CHANGED7>
6160 PHRASE80
6161                     <RESTUV TEMP15 1 = TEMP15 (TYPE VECTOR)>
6162                     <JUMP + MAP70>
6163 MAPAP73
6164                     <RETURN CHANGED7>
6165                     <DEAD CHANGED7>
6166                     <END \1aMERGE-TWO-FORCE>
6167 #WORD *6254770561*
6168 <GFCN \1aPLOCAL-NAME ("VALUE" <OR ATOM FIX> LOCAL-NAME) LN5>
6169                     <TEMP LCL6 TEMP10>
6170                     <INTGO>
6171                     <FRAME '\1aL-N-LMEMQ>
6172                     <PUSH LN5>
6173                     <GVAL 'LOCALS = STACK>
6174                     <CALL '\1aL-N-LMEMQ 2 = LCL6>
6175                     <TYPE? LCL6 <TYPE-CODE FALSE> - BOOL9>
6176                     <GVAL 'ICALL-FLAG = TEMP10>
6177                     <TYPE? TEMP10 <TYPE-CODE FALSE> + BOOL9>
6178                     <DEAD TEMP10>
6179                     <FRAME '\1aL-N-LMEMQ>
6180                     <PUSH LN5>
6181                     <GVAL 'ICALL-TEMPS = STACK>
6182                     <CALL '\1aL-N-LMEMQ 2 = LCL6>
6183 BOOL9
6184                     <TYPE? LCL6 <TYPE-CODE FALSE> + PHRASE13>
6185                     <FRAME '\1aPRINC>
6186                     <NTHUV LCL6 1 = STACK (TYPE ATOM)>
6187                     <DEAD LCL6>
6188                     <GEN-LVAL 'OUTCHAN = STACK>
6189                     <CALL '\1aPRINC 2 = LCL6>
6190                     <RETURN LCL6>
6191                     <DEAD LCL6>
6192 PHRASE13
6193                     <FRAME '\1aPRINC>
6194                     <PUSH "#LOC ">
6195                     <GEN-LVAL 'OUTCHAN = STACK>
6196                     <CALL '\1aPRINC 2>
6197                     <FRAME '\1aPRIN1>
6198                     <CHTYPE LN5 <TYPE-CODE FIX> = STACK>
6199                     <DEAD LN5>
6200                     <GEN-LVAL 'OUTCHAN = STACK>
6201                     <CALL '\1aPRIN1 2 = LCL6>
6202                     <RETURN LCL6>
6203                     <DEAD LCL6>
6204                     <END \1aPLOCAL-NAME>
6205 #WORD *5205163144*
6206 <GFCN \1aPCONST-LABEL ("VALUE" <OR FIX LIST> CONSTANT-LABEL) CL5>
6207                     <TEMP TEM6 TEMP13 TEMP19 TEMP22 TEMP27 TEMP31>
6208                     <INTGO>
6209                     <GVAL 'CONSTANT-VECTOR = TEM6>
6210                     <EMPL? TEM6 + TAG9>
6211                     <LOOP (CL5 VALUE) (TEM6 VALUE)>
6212 TAG11
6213                     <NTHL TEM6 1 = TEMP13>
6214                     <TYPE? TEMP13 <TYPE-CODE CONSTANT-LABEL> - TAG12>
6215                     <VEQUAL? TEMP13 CL5 + TAG10>
6216                     <DEAD TEMP13>
6217 TAG12
6218                     <RESTL TEM6 1 = TEM6 (TYPE LIST)>
6219                     <EMPL? TEM6 - TAG11>
6220 TAG9
6221                     <DEAD TEM6>
6222                     <SET TEM6 %<> (TYPE FALSE)>
6223 TAG10
6224                     <TYPE? TEM6 <TYPE-CODE FALSE> + PHRASE8>
6225                     <RESTL TEM6 1 = TEM6 (TYPE LIST)>
6226                     <NTHL TEM6 1 = TEM6>
6227                     <TYPE? TEM6 <TYPE-CODE CONSTANT> - PHRASE15>
6228                     <FRAME '\1aPRIN1>
6229                     <CHTYPE TEM6 <TYPE-CODE FIX> = STACK>
6230                     <GEN-LVAL 'OUTCHAN = STACK>
6231                     <CALL '\1aPRIN1 2 = TEMP19>
6232                     <RETURN TEMP19>
6233                     <DEAD TEMP19>
6234 PHRASE15
6235                     <FRAME '\1aPRIN1>
6236                     <CHTYPE TEM6 <TYPE-CODE LIST> = STACK>
6237                     <DEAD TEM6>
6238                     <GEN-LVAL 'OUTCHAN = STACK>
6239                     <CALL '\1aPRIN1 2 = TEMP19>
6240                     <RETURN TEMP19>
6241                     <DEAD TEMP19>
6242 PHRASE8
6243                     <FRAME '\1aPRINC>
6244                     <PUSH "#CL ">
6245                     <GEN-LVAL 'OUTCHAN = STACK>
6246                     <CALL '\1aPRINC 2>
6247                     <FRAME '\1aPRIN1>
6248                     <CHTYPE CL5 <TYPE-CODE FIX> = STACK>
6249                     <DEAD CL5>
6250                     <GEN-LVAL 'OUTCHAN = STACK>
6251                     <CALL '\1aPRIN1 2 = TEMP19>
6252                     <RETURN TEMP19>
6253                     <DEAD TEMP19>
6254                     <END \1aPCONST-LABEL>
6255 #WORD *31501436155*
6256 <GFCN \1aPCONST-BUCK ("VALUE" <OR FIX LIST> CONSTANT-BUCKET) CB5>
6257                     <TEMP TEM6>
6258                     <INTGO>
6259                     <NTHUV CB5 1 = TEM6>
6260                     <DEAD CB5>
6261                     <TYPE? TEM6 <TYPE-CODE CONSTANT> - PHRASE8>
6262                     <FRAME '\1aPRIN1>
6263                     <CHTYPE TEM6 <TYPE-CODE FIX> = STACK>
6264                     <DEAD TEM6>
6265                     <GEN-LVAL 'OUTCHAN = STACK>
6266                     <CALL '\1aPRIN1 2 = TEM6>
6267                     <RETURN TEM6>
6268                     <DEAD TEM6>
6269 PHRASE8
6270                     <FRAME '\1aPRIN1>
6271                     <CHTYPE TEM6 <TYPE-CODE LIST> = STACK>
6272                     <DEAD TEM6>
6273                     <GEN-LVAL 'OUTCHAN = STACK>
6274                     <CALL '\1aPRIN1 2 = TEM6>
6275                     <RETURN TEM6>
6276                     <DEAD TEM6>
6277                     <END \1aPCONST-BUCK>
6278 <COND (<GASSIGNED? PCONST-BUCK> <PRINTTYPE CONSTANT-BUCKET ,PCONST-BUCK>)>
6279
6280 <COND (<GASSIGNED? PLOCAL-NAME> <PRINTTYPE LOCAL-NAME ,PLOCAL-NAME>)>
6281
6282 <COND (<GASSIGNED? PCONST-LABEL> <PRINTTYPE CONSTANT-LABEL ,PCONST-LABEL