mim/development/mim/20c/part1.mima

   1
   2 <COND (<NOT <GASSIGNED? WIDTH-MUNG>> <FLOAD "MIMOC20DEFS.MUD"> <FLOAD "MSGLUE-PM.MUD">)>
   3
   4 #WORD *26154242754*
   5 <GFCN \1aGLUE-FIXUP ("VALUE" ANY)>
   6                     <TEMP TEMP13 TEMP15 FROB16:LIST TEMP19:LIST>
   7                     <INTGO>
   8                     <SET TEMP13 %<> (TYPE FALSE)>
   9                     <GVAL 'GLUE-LIST = TEMP15>
  10                     <LOOP>
  11 MAP5
  12                     <INTGO>
  13                     <EMPTY? TEMP15 + MAPAP8>
  14                     <NTH1 TEMP15 = FROB16>
  15                     <NTHL FROB16 5 = TEMP13 (TYPE LIST)>
  16                     <FRAME '\1aFIXUP-ONE-GLUE>
  17                     <RESTL FROB16 1 = TEMP19 (TYPE LIST)>
  18                     <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
  19                     <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
  20                     <NTHL TEMP19 1 = STACK (TYPE LIST)>
  21                     <DEAD TEMP19>
  22                     <PUSH TEMP13>
  23                     <DEAD TEMP13>
  24                     <CALL '\1aFIXUP-ONE-GLUE 2>
  25                     <FRAME '\1aFIXUP-CONSTANTS>
  26                     <RESTL FROB16 1 = TEMP19 (TYPE LIST)>
  27                     <DEAD FROB16>
  28                     <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
  29                     <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
  30                     <NTHL TEMP19 1 = STACK (TYPE LIST)>
  31                     <DEAD TEMP19>
  32                     <CALL '\1aFIXUP-CONSTANTS 1 = TEMP13>
  33                     <REST1 TEMP15 = TEMP15>
  34                     <JUMP + MAP5>
  35 MAPAP8
  36                     <RETURN TEMP13>
  37                     <DEAD TEMP13>
  38                     <END \1aGLUE-FIXUP>
  39 #WORD *446452235*
  40 <GFCN \1aFIXUP-ONE-GLUE ("VALUE" <OR FALSE <LIST <OR INST <LIST FIX ATOM ANY>>>> LIST LIST) CODE4 LBL5>
  41                     <TEMP (N6:FIX 0) TEMP16 TEMP13:LIST LST18:LIST INS19 ITM20 CONST21:CONSTANT FC23:CONSTANT-BUCKET>
  42                     <INTGO>
  43                     <SET TEMP16 %<> (TYPE FALSE)>
  44                     <SET TEMP13 CODE4 (TYPE LIST)>
  45                     <DEAD CODE4>
  46                     <LOOP>
  47 MAP8
  48                     <INTGO>
  49                     <EMPL? TEMP13 + MAPAP11>
  50                     <SET LST18 TEMP13>
  51                     <NTHL LST18 1 = INS19>
  52                     <TYPE? INS19 <TYPE-CODE ATOM> + PHRASE25>
  53                     <ADD N6 1 = N6 (TYPE FIX)>
  54 PHRASE25
  55                     <TYPE? INS19 <TYPE-CODE INST> + TAG28>
  56                     <SET TEMP16 %<> (TYPE FALSE)>
  57                     <JUMP + PHRASE75>
  58 TAG28
  59                     <NTHUV INS19 1 = ITM20>
  60                     <TYPE? ITM20 <TYPE-CODE GFRM> + TAG32>
  61                     <TYPE? ITM20 <TYPE-CODE SGFRM> + TAG32>
  62                     <TYPE? ITM20 <TYPE-CODE SBFRM> - PHRASE31>
  63 TAG32
  64                     <CHTYPE ITM20 <TYPE-CODE ATOM> = ITM20>
  65                     <VEQUAL? ITM20 'COMPERR - PHRASE34>
  66                     <FRAME '\1a+>
  67                     <GVAL 'SETZ = STACK>
  68                     <PUSH 106>
  69                     <CALL '\1a+ 2 = TEMP16>
  70                     <CHTYPE TEMP16 <TYPE-CODE CONSTANT> = CONST21>
  71                     <DEAD TEMP16>
  72                     <JUMP + PHRASE47>
  73 PHRASE34
  74                     <VEQUAL? ITM20 'UNWCONT + BOOL38>
  75                     <VEQUAL? ITM20 'IOERR - PHRASE37>
  76 BOOL38
  77                     <FRAME '\1a+>
  78                     <GVAL 'SETZ-IND = STACK>
  79                     <FRAME '\1aOPCODE>
  80                     <PUSH ITM20>
  81                     <DEAD ITM20>
  82                     <CALL '\1aOPCODE 1 = STACK>
  83                     <CALL '\1a+ 2 = TEMP16>
  84                     <CHTYPE TEMP16 <TYPE-CODE CONSTANT> = CONST21>
  85                     <DEAD TEMP16>
  86                     <JUMP + PHRASE47>
  87 PHRASE37
  88                     <FRAME '\1aFIND-LABEL>
  89                     <PUSH ITM20>
  90                     <CALL '\1aFIND-LABEL 1 = TEMP16>
  91                     <TYPE? TEMP16 <TYPE-CODE FALSE> - BOOL43>
  92                     <FRAME '\1aLONG-FIND-LABEL>
  93                     <PUSH ITM20>
  94                     <PUSH LBL5>
  95                     <CALL '\1aLONG-FIND-LABEL 2 = TEMP16>
  96 BOOL43
  97                     <TYPE? TEMP16 <TYPE-CODE FALSE> + BOOL42>
  98                     <NTHUV TEMP16 2 = TEMP16>
  99                     <TYPE? TEMP16 <TYPE-CODE FALSE> - PHRASE41>
 100 BOOL42
 101                     <FRAME '\1aMIMOCERR>
 102                     <PUSH 'BAD-FRM-LABEL!-ERRORS>
 103                     <PUSH ITM20>
 104                     <DEAD ITM20>
 105                     <CALL '\1aMIMOCERR 2>
 106                     <JUMP + PHRASE47>
 107 PHRASE41
 108                     <FRAME '\1a+>
 109                     <PUSH TEMP16>
 110                     <DEAD TEMP16>
 111                     <NTHUV INS19 1 = TEMP16>
 112                     <TYPE? TEMP16 <TYPE-CODE GFRM> - PHRASE50>
 113                     <DEAD TEMP16>
 114                     <GVAL 'SETZ-R = TEMP16>
 115                     <JUMP + PHRASE53>
 116 PHRASE50
 117                     <NTHUV INS19 1 = ITM20>
 118                     <TYPE? ITM20 <TYPE-CODE SBFRM> - PHRASE51>
 119                     <DEAD ITM20>
 120                     <GVAL 'SETZQ-R = TEMP16>
 121                     <JUMP + PHRASE53>
 122 PHRASE51
 123                     <GVAL 'SETZX-R = TEMP16>
 124 PHRASE53
 125                     <PUSH TEMP16>
 126                     <DEAD TEMP16>
 127                     <CALL '\1a+ 2 = TEMP16>
 128                     <CHTYPE TEMP16 <TYPE-CODE CONSTANT> = CONST21>
 129                     <DEAD TEMP16>
 130 PHRASE47
 131                     <GVAL 'FREE-CONSTS = TEMP16>
 132                     <NTHL TEMP16 1 = FC23 (TYPE CONSTANT-BUCKET)>
 133                     <DEAD TEMP16>
 134                     <PUTUV FC23 1 CONST21>
 135                     <GVAL 'FREE-CONSTS = ITM20>
 136                     <RESTL ITM20 1 = TEMP16 (TYPE LIST)>
 137                     <DEAD ITM20>
 138                     <SETG 'FREE-CONSTS TEMP16>
 139                     <DEAD TEMP16>
 140                     <PUSH FC23>
 141                     <DEAD FC23>
 142                     <UBLOCK <TYPE-CODE VECTOR> 1 = TEMP16>
 143                     <CHTYPE TEMP16 <TYPE-CODE REF> = ITM20>
 144                     <DEAD TEMP16>
 145                     <NTHUV INS19 1 = TEMP16>
 146                     <DEAD INS19>
 147                     <TYPE? TEMP16 <TYPE-CODE SBFRM> - PHRASE56>
 148                     <DEAD TEMP16>
 149                     <PUSH 'MOVE>
 150                     <PUSH 'O*>
 151                     <PUSH ITM20>
 152                     <DEAD ITM20>
 153                     <UBLOCK <TYPE-CODE VECTOR> 3 = TEMP16>
 154                     <CHTYPE TEMP16 <TYPE-CODE INST> = TEMP16>
 155                     <JUMP + PHRASE58>
 156 PHRASE56
 157                     <PUSH 'PUSH>
 158                     <PUSH 'TP*>
 159                     <PUSH ITM20>
 160                     <DEAD ITM20>
 161                     <UBLOCK <TYPE-CODE VECTOR> 3 = ITM20>
 162                     <CHTYPE ITM20 <TYPE-CODE INST> = TEMP16>
 163                     <DEAD ITM20>
 164 PHRASE58
 165                     <PUTL LST18 1 TEMP16>
 166                     <DEAD TEMP16>
 167                     <SET TEMP16 LST18>
 168                     <DEAD LST18>
 169                     <JUMP + PHRASE75>
 170 PHRASE31
 171                     <TYPE? ITM20 <TYPE-CODE GCAL> + TAG61>
 172                     <SET TEMP16 %<> (TYPE FALSE)>
 173                     <JUMP + PHRASE75>
 174 TAG61
 175                     <GVAL 'MAX-SPACE = TEMP16>
 176                     <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE64>
 177                     <DEAD TEMP16>
 178                     <PUSH 'JRST>
 179                     <PUSH 0>
 180                     <PUSH (R*)>
 181                     <UBLOCK <TYPE-CODE VECTOR> 3 = TEMP16>
 182                     <CHTYPE TEMP16 <TYPE-CODE INST> = TEMP16>
 183                     <PUTL LST18 1 TEMP16>
 184                     <DEAD LST18 TEMP16>
 185                     <NTHUV INS19 3 = TEMP16>
 186                     <DEAD INS19>
 187                     <CONS TEMP16 () = TEMP16>
 188                     <CHTYPE ITM20 <TYPE-CODE ATOM> = ITM20>
 189                     <CONS ITM20 TEMP16 = TEMP16>
 190                     <DEAD ITM20>
 191                     <CONS N6 TEMP16 = STACK>
 192                     <DEAD TEMP16>
 193                     <SET ITM20 1 (TYPE FIX)>
 194                     <GVAL 'GCALS = TEMP16>
 195                     <TYPE TEMP16 = INS19>
 196                     <AND INS19 7 = INS19>
 197                     <VEQUAL? INS19 1 + TAG68>
 198                     <DEAD INS19>
 199                     <LOOP (TEMP16 TYPE VALUE LENGTH) (ITM20 VALUE)>
 200 TAG74
 201                     <INTGO>
 202                     <EMPTY? TEMP16 + TAG73>
 203                     <NTH1 TEMP16 = STACK>
 204                     <REST1 TEMP16 = TEMP16>
 205                     <ADD ITM20 1 = ITM20 (TYPE FIX)>
 206                     <JUMP + TAG74>
 207 TAG73
 208                     <LIST ITM20 = TEMP16 (TYPE LIST)>
 209                     <DEAD ITM20>
 210                     <JUMP + TAG69>
 211 TAG68
 212                     <LOOP>
 213 TAG71
 214                     <VEQUAL? ITM20 0 + TAG70>
 215                     <POP = INS19>
 216                     <CONS INS19 TEMP16 = TEMP16 (TYPE LIST)>
 217                     <DEAD INS19>
 218                     <SUB ITM20 1 = ITM20 (TYPE FIX)>
 219                     <JUMP + TAG71>
 220 TAG70
 221 TAG69
 222                     <SETG 'GCALS TEMP16>
 223                     <JUMP + PHRASE75>
 224 PHRASE64
 225                     <PUSH 'JRST>
 226                     <FRAME '\1aGFIND>
 227                     <CHTYPE ITM20 <TYPE-CODE ATOM> = STACK>
 228                     <DEAD ITM20>
 229                     <NTHUV INS19 3 = STACK>
 230                     <DEAD INS19>
 231                     <CALL '\1aGFIND 2 = STACK>
 232                     <PUSH (R*)>
 233                     <UBLOCK <TYPE-CODE VECTOR> 3 = TEMP16>
 234                     <CHTYPE TEMP16 <TYPE-CODE INST> = TEMP16>
 235                     <PUTL LST18 1 TEMP16>
 236                     <DEAD TEMP16>
 237                     <SET TEMP16 LST18>
 238                     <DEAD LST18>
 239 PHRASE75
 240                     <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
 241                     <JUMP + MAP8>
 242 MAPAP11
 243                     <RETURN TEMP16>
 244                     <DEAD TEMP16>
 245                     <END \1aFIXUP-ONE-GLUE>
 246 #WORD *23600646424*
 247 <GFCN \1aFIND-CALL ("VALUE" <OR !<FALSE> <LIST [REST ATOM]>> ATOM <LIST [REST ATOM]>) ATM4 LIST5>
 248                     <TEMP TEMP6>
 249                     <INTGO>
 250                     <LOOP>
 251 AGAIN9
 252                     <INTGO>
 253                     <EMPL? LIST5 - PHRASE11 (TYPE LIST)>
 254                     <RETURN %<>>
 255 PHRASE11
 256                     <FRAME '\1aSAME-NAME?>
 257                     <PUSH ATM4>
 258                     <NTHL LIST5 1 = STACK (TYPE ATOM)>
 259                     <CALL '\1aSAME-NAME? 2 = TEMP6>
 260                     <TYPE? TEMP6 <TYPE-CODE FALSE> + PHRASE13>
 261                     <DEAD TEMP6>
 262                     <RETURN LIST5>
 263                     <DEAD LIST5>
 264 PHRASE13
 265                     <RESTL LIST5 1 = LIST5 (TYPE LIST)>
 266                     <JUMP + AGAIN9>
 267                     <END \1aFIND-CALL>
 268 #WORD *16020755022*
 269 <GFCN \1aFIND-OPT ("VALUE" <OR !<FALSE> <LIST [REST <PRIMTYPE LIST> ATOM]>> ATOM <LIST [REST ATOM <PRIMTYPE LIST>]>) ATM4 LIST5>
 270                     <TEMP TEMP6>
 271                     <INTGO>
 272                     <LOOP>
 273 AGAIN9
 274                     <INTGO>
 275                     <EMPL? LIST5 - PHRASE11 (TYPE LIST)>
 276                     <RETURN %<>>
 277 PHRASE11
 278                     <FRAME '\1aSAME-NAME?>
 279                     <PUSH ATM4>
 280                     <NTHL LIST5 1 = STACK (TYPE ATOM)>
 281                     <CALL '\1aSAME-NAME? 2 = TEMP6>
 282                     <TYPE? TEMP6 <TYPE-CODE FALSE> + PHRASE13>
 283                     <DEAD TEMP6>
 284                     <RESTL LIST5 1 = TEMP6 (TYPE LIST)>
 285                     <DEAD LIST5>
 286                     <RETURN TEMP6>
 287                     <DEAD TEMP6>
 288 PHRASE13
 289                     <RESTL LIST5 1 = LIST5 (TYPE LIST)>
 290                     <RESTL LIST5 1 = LIST5 (TYPE LIST)>
 291                     <JUMP + AGAIN9>
 292                     <END \1aFIND-OPT>
 293 #WORD *36313040576*
 294 <GFCN \1aSAME-NAME? ("VALUE" <OR ATOM FALSE> ATOM ATOM) X4 Y5>
 295                     <TEMP TEMP10 S16:STRING S27:STRING TEMP19 TEMP20 TEMP21 TEMP22>
 296                     <INTGO>
 297                     <GVAL 'INT-MODE = TEMP10>
 298                     <TYPE? TEMP10 <TYPE-CODE FALSE> - PHRASE9>
 299                     <DEAD TEMP10>
 300                     <VEQUAL? X4 Y5 - TAG11>
 301                     <DEAD X4 Y5>
 302                     <RETURN 'T>
 303 TAG11
 304                     <RETURN %<>>
 305 PHRASE9
 306                     <NTHR X4 3 = S16 (RECORD-TYPE ATOM)>
 307                     <NTHR Y5 3 = S27 (RECORD-TYPE ATOM)>
 308                     <VEQUAL? X4 Y5 - TAG15>
 309                     <DEAD X4 Y5>
 310                     <RETURN 'T>
 311 TAG15
 312                     <LENUS S16 = TEMP10 (TYPE FIX)>
 313                     <GRTR? TEMP10 2 - TAG18 (TYPE FIX)>
 314                     <DEAD TEMP10>
 315                     <NTHUS S16 1 = TEMP10 (TYPE CHARACTER)>
 316                     <VEQUAL? TEMP10 !\T - TAG18>
 317                     <DEAD TEMP10>
 318                     <NTHUS S16 2 = TEMP10 (TYPE CHARACTER)>
 319                     <VEQUAL? TEMP10 !\$ - TAG18>
 320                     <DEAD TEMP10>
 321                     <RESTUS S16 2 = TEMP10 (TYPE STRING)>
 322                     <IFCAN "STRING-EQUAL?">
 323                     <STRING-EQUAL? TEMP10 S27 - TAG18>
 324                     <ENDIF "STRING-EQUAL?">
 325                     <IFCANNOT "STRING-EQUAL?">
 326                     <SET TEMP19 S27>
 327                     <LENUS TEMP10 = TEMP20 (TYPE FIX)>
 328                     <LENUS TEMP19 = TEMP21 (TYPE FIX)>
 329                     <VEQUAL? TEMP20 TEMP21 - TAG18>
 330                     <DEAD TEMP21>
 331                     <LOOP (TEMP10 VALUE LENGTH) (TEMP19 VALUE LENGTH) (TEMP20 VALUE)>
 332 TAG23
 333                     <NTHUS TEMP10 1 = TEMP21>
 334                     <NTHUS TEMP19 1 = TEMP22>
 335                     <VEQUAL? TEMP21 TEMP22 - TAG18>
 336                     <DEAD TEMP21 TEMP22>
 337                     <RESTUS TEMP10 1 = TEMP10 (TYPE STRING)>
 338                     <RESTUS TEMP19 1 = TEMP19 (TYPE STRING)>
 339                     <SUB TEMP20 1 = TEMP20 (TYPE FIX)>
 340                     <GRTR? TEMP20 0 + TAG23 (TYPE FIX)>
 341                     <ENDIF "STRING-EQUAL?">
 342                     <RETURN 'T>
 343 TAG18
 344                     <LENUS S27 = TEMP19 (TYPE FIX)>
 345                     <GRTR? TEMP19 2 + TAG25 (TYPE FIX)>
 346                     <DEAD TEMP19>
 347                     <RETURN %<>>
 348 TAG25
 349                     <NTHUS S27 1 = TEMP19 (TYPE CHARACTER)>
 350                     <VEQUAL? TEMP19 !\T + TAG26>
 351                     <DEAD TEMP19>
 352                     <RETURN %<>>
 353 TAG26
 354                     <NTHUS S27 2 = TEMP19 (TYPE CHARACTER)>
 355                     <VEQUAL? TEMP19 !\$ + TAG27>
 356                     <DEAD TEMP19>
 357                     <RETURN %<>>
 358 TAG27
 359                     <RESTUS S27 2 = TEMP19 (TYPE STRING)>
 360                     <DEAD S27>
 361                     <IFCAN "STRING-EQUAL?">
 362                     <STRING-EQUAL? TEMP19 S16 - TAG28>
 363                     <ENDIF "STRING-EQUAL?">
 364                     <IFCANNOT "STRING-EQUAL?">
 365                     <SET TEMP10 S16>
 366                     <DEAD S16>
 367                     <LENUS TEMP19 = TEMP22 (TYPE FIX)>
 368                     <LENUS TEMP10 = TEMP21 (TYPE FIX)>
 369                     <VEQUAL? TEMP22 TEMP21 - TAG28>
 370                     <DEAD TEMP21>
 371                     <LOOP (TEMP19 VALUE LENGTH) (TEMP10 VALUE LENGTH) (TEMP22 VALUE)>
 372 TAG30
 373                     <NTHUS TEMP19 1 = TEMP21>
 374                     <NTHUS TEMP10 1 = TEMP20>
 375                     <VEQUAL? TEMP21 TEMP20 - TAG28>
 376                     <DEAD TEMP21>
 377                     <RESTUS TEMP19 1 = TEMP19 (TYPE STRING)>
 378                     <RESTUS TEMP10 1 = TEMP10 (TYPE STRING)>
 379                     <SUB TEMP22 1 = TEMP22 (TYPE FIX)>
 380                     <GRTR? TEMP22 0 + TAG30 (TYPE FIX)>
 381                     <ENDIF "STRING-EQUAL?">
 382                     <RETURN 'T>
 383 TAG28
 384                     <RETURN %<>>
 385                     <END \1aSAME-NAME?>
 386 #WORD *26423722202*
 387 <GFCN \1aGFIND ("VALUE" ANY ATOM <OR ATOM FALSE>) NAM4 LBL?5>
 388                     <TEMP TEMP17 TEMP19 L20:LIST>
 389                     <INTGO>
 390                     <SET TEMP17 %<> (TYPE FALSE)>
 391                     <GVAL 'GLUE-LIST = TEMP19>
 392                     <LOOP>
 393 MAP9
 394                     <INTGO>
 395                     <EMPTY? TEMP19 + MAPAP12>
 396                     <NTH1 TEMP19 = L20>
 397                     <FRAME '\1aSAME-NAME?>
 398                     <NTHL L20 1 = STACK (TYPE ATOM)>
 399                     <PUSH NAM4>
 400                     <CALL '\1aSAME-NAME? 2 = TEMP17>
 401                     <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE34>
 402                     <TYPE? LBL?5 <TYPE-CODE FALSE> + PHRASE26>
 403                     <FRAME '\1aFIND-LABEL>
 404                     <PUSH LBL?5>
 405                     <CALL '\1aFIND-LABEL 1 = TEMP17>
 406                     <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE28>
 407                     <NTHUV TEMP17 2 = TEMP17>
 408                     <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE28>
 409                     <JUMP + MAPEX11>
 410 PHRASE28
 411                     <FRAME '\1aMIMOCERR>
 412                     <PUSH 'BAD-OPT-LABEL!-ERRORS>
 413                     <PUSH LBL?5>
 414                     <CALL '\1aMIMOCERR 2 = TEMP17>
 415                     <JUMP + PHRASE34>
 416 PHRASE26
 417                     <RESTL L20 1 = L20 (TYPE LIST)>
 418                     <RESTL L20 1 = L20 (TYPE LIST)>
 419                     <NTHL L20 1 = TEMP17 (TYPE FIX)>
 420                     <DEAD L20>
 421                     <JUMP + MAPEX11>
 422 PHRASE34
 423                     <REST1 TEMP19 = TEMP19>
 424                     <JUMP + MAP9>
 425 MAPAP12
 426 MAPEX11
 427                     <TYPE? TEMP17 <TYPE-CODE FALSE> - PHRASE37>
 428                     <FRAME '\1aMIMOCERR>
 429                     <PUSH 'CANT-FIND-GL-ENTRY!-ERRORS>
 430                     <PUSH NAM4>
 431                     <DEAD NAM4>
 432                     <CALL '\1aMIMOCERR 2 = TEMP17>
 433 PHRASE37
 434                     <RETURN TEMP17>
 435                     <DEAD TEMP17>
 436                     <END \1aGFIND>
 437 #WORD *11663257421*
 438 <GFCN \1aCALL-ANA ("VALUE" <OR FALSE LIST> LIST) L4>
 439                     <TEMP (ANA-L5:LIST ()) TEMP15 TEMP12:LIST ONE18:ATOM TEMP37 IT21 TEMP48 TEM20>
 440                     <INTGO>
 441                     <SET TEMP15 %<> (TYPE FALSE)>
 442                     <SET TEMP12 L4 (TYPE LIST)>
 443                     <DEAD L4>
 444                     <LOOP>
 445 MAP7
 446                     <INTGO>
 447                     <EMPL? TEMP12 + MAPAP10>
 448                     <NTHL TEMP12 1 = TEMP15>
 449                     <TYPE? TEMP15 <TYPE-CODE FORM> + TAG26>
 450                     <SET TEMP15 %<> (TYPE FALSE)>
 451                     <JUMP + PHRASE57>
 452 TAG26
 453                     <EMPL? TEMP15 - TAG28 (TYPE FORM)>
 454                     <SET TEMP15 %<> (TYPE FALSE)>
 455                     <JUMP + PHRASE57>
 456 TAG28
 457                     <NTHL TEMP15 1 = ONE18 (TYPE ATOM)>
 458                     <VEQUAL? ONE18 'FRAME + BOOL31>
 459                     <VEQUAL? ONE18 'SFRAME - PHRASE30>
 460 BOOL31
 461                     <CONS TEMP15 ANA-L5 = ANA-L5>
 462                     <DEAD TEMP15>
 463                     <SET TEMP15 ANA-L5>
 464                     <JUMP + PHRASE57>
 465 PHRASE30
 466                     <VEQUAL? ONE18 'CALL + BOOL33>
 467                     <VEQUAL? ONE18 'SCALL - PHRASE32>
 468 BOOL33
 469                     <RESTL TEMP15 1 = TEMP37 (TYPE LIST)>
 470                     <NTHL TEMP37 1 = IT21>
 471                     <DEAD TEMP37>
 472                     <TYPE? IT21 <TYPE-CODE FORM> - PHRASE53>
 473                     <EMPL? IT21 + PHRASE53>
 474                     <RESTL IT21 1 = TEMP37 (TYPE LIST)>
 475                     <EMPL? TEMP37 + PHRASE53>
 476                     <RESTL TEMP37 1 = TEMP37 (TYPE LIST)>
 477                     <EMPL? TEMP37 - PHRASE53>
 478                     <DEAD TEMP37>
 479                     <NTHL IT21 1 = TEMP37>
 480                     <EQUAL? TEMP37 'QUOTE - PHRASE53>
 481                     <DEAD TEMP37>
 482                     <RESTL IT21 1 = TEMP37 (TYPE LIST)>
 483                     <DEAD IT21>
 484                     <NTHL TEMP37 1 = IT21>
 485                     <DEAD TEMP37>
 486                     <GVAL 'GLUE-MODE = TEMP37>
 487                     <TYPE? TEMP37 <TYPE-CODE FALSE> + BOOL42>
 488                     <DEAD TEMP37>
 489                     <FRAME '\1aFIND-CALL>
 490                     <PUSH IT21>
 491                     <GVAL 'PRE-NAMES = STACK>
 492                     <CALL '\1aFIND-CALL 2 = TEMP37>
 493                     <TYPE? TEMP37 <TYPE-CODE FALSE> - BOOL41>
 494                     <DEAD TEMP37>
 495 BOOL42
 496                     <FRAME '\1aSUBRIFY?>
 497                     <PUSH IT21>
 498                     <CALL '\1aSUBRIFY? 1 = TEMP37>
 499                     <TYPE? TEMP37 <TYPE-CODE FALSE> + PHRASE53>
 500                     <DEAD TEMP37>
 501 BOOL41
 502                     <SET TEMP37 [GVAL GASSIGNED?] (TYPE VECTOR)>
 503                     <TYPE? IT21 <TYPE-CODE ATOM> - TAG45>
 504                     <LOOP (IT21 VALUE) (TEMP37 LENGTH VALUE)>
 505 TAG46
 506                     <NTHUV TEMP37 1 = TEMP48>
 507                     <VEQUAL? TEMP48 IT21 + PHRASE53>
 508                     <DEAD TEMP48>
 509                     <RESTUV TEMP37 1 = TEMP37 (TYPE VECTOR)>
 510                     <EMPUV? TEMP37 - TAG46>
 511 TAG45
 512                     <NTHL ANA-L5 1 = TEM20>
 513                     <TYPE? TEM20 <TYPE-CODE FORM> - BOOL51>
 514                     <EMPL? TEM20 + BOOL51>
 515                     <RESTL TEM20 1 = TEMP37 (TYPE LIST)>
 516                     <EMPL? TEMP37 + BOOL51>
 517                     <DEAD TEMP37>
 518                     <RESTL TEM20 1 = TEMP37 (TYPE LIST)>
 519                     <NTHL TEMP37 1 = TEMP48>
 520                     <DEAD TEMP37>
 521                     <TYPE? TEMP48 <TYPE-CODE FORM> - BOOL51>
 522                     <EMPL? TEMP48 + BOOL51>
 523                     <RESTL TEMP48 1 = TEMP37 (TYPE LIST)>
 524                     <EMPL? TEMP37 + BOOL51>
 525                     <RESTL TEMP37 1 = TEMP37 (TYPE LIST)>
 526                     <EMPL? TEMP37 - BOOL51>
 527                     <DEAD TEMP37>
 528                     <NTHL TEMP48 1 = TEMP37>
 529                     <EQUAL? TEMP37 'QUOTE - BOOL51>
 530                     <DEAD TEMP37>
 531                     <RESTL TEMP48 1 = TEMP37 (TYPE LIST)>
 532                     <DEAD TEMP48>
 533                     <NTHL TEMP37 1 = TEMP37>
 534                     <EQUAL? TEMP37 IT21 + PHRASE50>
 535                     <DEAD TEMP37>
 536 BOOL51
 537                     <FRAME '\1aMIMOCERR>
 538                     <PUSH 'BAD-FRAME-CALL-MATCH!-ERRORS>
 539                     <PUSH TEMP15>
 540                     <DEAD TEMP15>
 541                     <PUSH TEM20>
 542                     <DEAD TEM20>
 543                     <CALL '\1aMIMOCERR 3>
 544                     <JUMP + PHRASE53>
 545 PHRASE50
 546                     <FRAME '\1aGENLBL>
 547                     <PUSH "?FRM">
 548                     <CALL '\1aGENLBL 1 = ONE18>
 549                     <CONS ONE18 () = TEMP37>
 550                     <CONS IT21 () = TEMP48>
 551                     <DEAD IT21>
 552                     <PUTREST TEMP37 TEMP48>
 553                     <DEAD TEMP48>
 554                     <PUTREST TEM20 TEMP37>
 555                     <DEAD TEM20 TEMP37>
 556                     <SET TEMP37 TEMP15>
 557                     <DEAD TEMP15>
 558                     <LOOP (TEMP37 VALUE)>
 559 TAG55
 560                     <RESTL TEMP37 1 = TEMP48 (TYPE LIST)>
 561                     <EMPL? TEMP48 + TAG56>
 562                     <SET TEMP37 TEMP48>
 563                     <DEAD TEMP48>
 564                     <JUMP + TAG55>
 565 TAG56
 566                     <CONS ONE18 () = TEMP48>
 567                     <DEAD ONE18>
 568                     <PUTREST TEMP37 TEMP48>
 569                     <DEAD TEMP37 TEMP48>
 570 PHRASE53
 571                     <RESTL ANA-L5 1 = ANA-L5 (TYPE LIST)>
 572                     <SET TEMP15 ANA-L5>
 573                     <JUMP + PHRASE57>
 574 PHRASE32
 575                     <VEQUAL? ONE18 'ACALL + TAG58>
 576                     <DEAD ONE18>
 577                     <SET TEMP15 %<> (TYPE FALSE)>
 578                     <JUMP + PHRASE57>
 579 TAG58
 580                     <RESTL ANA-L5 1 = ANA-L5 (TYPE LIST)>
 581                     <SET TEMP15 ANA-L5>
 582 PHRASE57
 583                     <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
 584                     <JUMP + MAP7>
 585 MAPAP10
 586                     <RETURN TEMP15>
 587                     <DEAD TEMP15>
 588                     <END \1aCALL-ANA>
 589 #WORD *22557434101*
 590 <FCN \1aMIMOC ("VALUE" ANY <LIST [REST <OR ATOM FORM>]> "OPTIONAL" ANY) L6 WINNER7>
 591                     <OPT-DISPATCH 1 %<> OPT4 OPT5>
 592 OPT4
 593                     <PUSH %<>>
 594 OPT5
 595                     <TEMP TEMP3:LBIND TEMP13 LSEQ23:FIX OLD-LOCS24:LIST TEMP38 TEMP41 TEMP43 TEMP44 ITM42 OPT?52 OP47 ATM126 DC127 TEMP134 TEMP135 TEMP136 TEMP137 TEMP138 NAME8:ATOM>
 596                     <INTGO>
 597                     <GETS 'BIND = TEMP3 (TYPE LBIND)>
 598                     <GEN-LVAL 'OBLIST = TEMP13>
 599                     <BBIND 'OBLIST 'ANY 'FIX TEMP13>
 600                     <DEAD TEMP13>
 601                     <GEN-LVAL 'OUTCHAN = TEMP13>
 602                     <BBIND 'OUTCHAN 'ANY 'FIX TEMP13>
 603                     <DEAD TEMP13>
 604                     <CFRAME = TEMP13 (TYPE FRAME)>
 605                     <BBIND 'MACT 'ANY 'FIX TEMP13>
 606                     <DEAD TEMP13>
 607                     <ACTIVATION>
 608                     <GVAL 'NO-AC-FUNNYNESS = TEMP13>
 609                     <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE19>
 610                     <DEAD TEMP13>
 611                     <SETG 'PASS1 %<>>
 612                     <JUMP + PHRASE20>
 613 PHRASE19
 614                     <SETG 'PASS1 'T>
 615 PHRASE20
 616                     <SETG 'LAST-UNCON %<>>
 617                     <SETG 'NEXT-LOOP %<>>
 618                     <SETG 'VISIT-COUNT 0>
 619                     <SETG 'AC-STAMP 0>
 620                     <SETG 'LABELS ()>
 621                     <FRAME '\1aPRE-HACK>
 622                     <PUSH L6>
 623                     <CALL '\1aPRE-HACK 1>
 624                     <GVAL 'LBLSEQ = LSEQ23>
 625                     <SET OLD-LOCS24 () (TYPE LIST)>
 626                     <LOOP>
 627 AGAIN25
 628                     <INTGO>
 629                     <FRAME '\1aFLUSH-ACS>
 630                     <CALL '\1aFLUSH-ACS 0>
 631                     <SETG 'STACK-DEPTH 0>
 632                     <SETG 'CHANGED %<>>
 633                     <TYPE? WINNER7 <TYPE-CODE FALSE> + PHRASE28>
 634                     <SETG 'WINNING-VICTIM 2>
 635                     <JUMP + PHRASE29>
 636 PHRASE28
 637                     <SETG 'WINNING-VICTIM %<>>
 638 PHRASE29
 639                     <SET TEMP13 L6 (TYPE LIST)>
 640                     <LOOP>
 641 MAP31
 642                     <INTGO>
 643                     <EMPL? TEMP13 + MAPAP34>
 644                     <GETS 'BIND = TEMP38 (TYPE LBIND)>
 645                     <SET TEMP41 TEMP13>
 646                     <BBIND 'MIML 'LIST 'FIX TEMP41>
 647                     <DEAD TEMP41>
 648                     <NTHR 'MIML 2 = TEMP44 (RECORD-TYPE ATOM) (TYPE LBIND)>
 649                     <NTHR TEMP44 1 = TEMP43 (RECORD-TYPE LBIND)>
 650                     <DEAD TEMP44>
 651                     <NTHL TEMP43 1 = ITM42>
 652                     <DEAD TEMP43>
 653                     <SET OPT?52 %<> (TYPE FALSE)>
 654                     <GVAL 'ACA-AC = TEMP43>
 655                     <TYPE? TEMP43 <TYPE-CODE FALSE> + PHRASE54>
 656                     <DEAD TEMP43>
 657                     <GVAL 'ACA-ITEM = TEMP43>
 658                     <GVAL 'ACA-AC = TEMP44>
 659                     <PUTUV TEMP44 2 TEMP43>
 660                     <DEAD TEMP44 TEMP43>
 661                     <GVAL 'ACA-BOTH = TEMP44>
 662                     <TYPE? TEMP44 <TYPE-CODE FALSE> + PHRASE56>
 663                     <DEAD TEMP44>
 664                     <GVAL 'ACA-ITEM = TEMP44>
 665                     <GVAL 'ACA-BOTH = TEMP43>
 666                     <PUTUV TEMP43 2 TEMP44>
 667                     <DEAD TEMP43 TEMP44>
 668 PHRASE56
 669                     <SETG 'ACA-AC %<>>
 670 PHRASE54
 671                     <SETG 'FIRST-AC 'T>
 672                     <TYPE? ITM42 <TYPE-CODE ATOM> - PHRASE58>
 673                     <GVAL 'ICALL-TAGS = TEMP44>
 674                     <EMPL? TEMP44 + PHRASE60>
 675                     <LOOP (ITM42 VALUE) (TEMP44 VALUE)>
 676 TAG63
 677                     <NTHL TEMP44 1 = TEMP43>
 678                     <TYPE? TEMP43 <TYPE-CODE ATOM> - TAG64>
 679                     <VEQUAL? TEMP43 ITM42 + TAG62>
 680                     <DEAD TEMP43>
 681 TAG64
 682                     <RESTL TEMP44 1 = TEMP44 (TYPE LIST)>
 683                     <EMPL? TEMP44 - TAG63>
 684                     <JUMP + PHRASE60>
 685 TAG62
 686                     <FRAME '\1aPUSHJ-VAL>
 687                     <RESTL TEMP44 1 = TEMP43 (TYPE LIST)>
 688                     <RESTL TEMP43 1 = TEMP43 (TYPE LIST)>
 689                     <NTHL TEMP43 1 = STACK>
 690                     <DEAD TEMP43>
 691                     <CALL '\1aPUSHJ-VAL 1>
 692                     <SETG 'LAST-UNCON %<>>
 693                     <FRAME '\1aLABEL>
 694                     <RESTL TEMP44 1 = TEMP43 (TYPE LIST)>
 695                     <DEAD TEMP44>
 696                     <NTHL TEMP43 1 = STACK (TYPE ATOM)>
 697                     <DEAD TEMP43>
 698                     <PUSH %<>>
 699                     <NTHR 'MIML 2 = TEMP43 (RECORD-TYPE ATOM) (TYPE LBIND)>
 700                     <NTHR TEMP43 1 = STACK (RECORD-TYPE LBIND)>
 701                     <DEAD TEMP43>
 702                     <CALL '\1aLABEL 3>
 703                     <GVAL 'ICALL-FLAG = TEMP43>
 704                     <SUB TEMP43 1 = TEMP43 (TYPE FIX)>
 705                     <SETG 'ICALL-FLAG TEMP43>
 706                     <VEQUAL? TEMP43 0 - PHRASE70 (TYPE FIX)>
 707                     <DEAD TEMP43>
 708                     <SETG 'ICALL-FLAG %<>>
 709 PHRASE70
 710                     <GVAL 'PASS1 = TEMP43>
 711                     <TYPE? TEMP43 <TYPE-CODE FALSE> - PHRASE74>
 712                     <DEAD TEMP43>
 713                     <FRAME '\1aFIXUP-LOCALS>
 714                     <GVAL 'ALL-ICALL-TEMPS = TEMP44>
 715                     <NTHL TEMP44 1 = TEMP44>
 716                     <RESTL TEMP44 1 = TEMP43 (TYPE LIST)>
 717                     <DEAD TEMP44>
 718                     <CHTYPE TEMP43 <TYPE-CODE LIST> = STACK>
 719                     <DEAD TEMP43>
 720                     <CALL '\1aFIXUP-LOCALS 1>
 721 PHRASE74
 722                     <GVAL 'ALL-ICALL-TEMPS = TEMP44>
 723                     <NTHL TEMP44 1 = TEMP44>
 724                     <PUTREST TEMP44 ()>
 725                     <DEAD TEMP44>
 726                     <GVAL 'ALL-ICALL-TEMPS = TEMP43>
 727                     <RESTL TEMP43 1 = TEMP44 (TYPE LIST)>
 728                     <DEAD TEMP43>
 729                     <SETG 'ALL-ICALL-TEMPS TEMP44>
 730                     <DEAD TEMP44>
 731                     <GVAL 'ALL-TEMP-CC = TEMP43>
 732                     <NTHL TEMP43 1 = TEMP43 (TYPE LIST)>
 733                     <SETG 'TEMP-CC TEMP43>
 734                     <DEAD TEMP43>
 735                     <GVAL 'ALL-TEMP-CC = TEMP44>
 736                     <RESTL TEMP44 1 = TEMP43 (TYPE LIST)>
 737                     <DEAD TEMP44>
 738                     <SETG 'ALL-TEMP-CC TEMP43>
 739                     <DEAD TEMP43>
 740 PHRASE60
 741                     <GVAL 'PASS1 = TEMP43>
 742                     <TYPE? TEMP43 <TYPE-CODE FALSE> + PHRASE78>
 743                     <DEAD TEMP43>
 744                     <FRAME '\1aLABEL>
 745                     <PUSH ITM42>
 746                     <DEAD ITM42>
 747                     <PUSH %<>>
 748                     <NTHR 'MIML 2 = TEMP43 (RECORD-TYPE ATOM) (TYPE LBIND)>
 749                     <NTHR TEMP43 1 = STACK (RECORD-TYPE LBIND)>
 750                     <DEAD TEMP43>
 751                     <CALL '\1aLABEL 3 = TEMP43>
 752                     <FRAME '\1aSAVE-LABEL-STATE>
 753                     <PUSH TEMP43>
 754                     <DEAD TEMP43>
 755                     <CALL '\1aSAVE-LABEL-STATE 1>
 756                     <JUMP + PHRASE88>
 757 PHRASE78
 758                     <GVAL 'NO-AC-FUNNYNESS = TEMP43>
 759                     <TYPE? TEMP43 <TYPE-CODE FALSE> + PHRASE83>
 760                     <DEAD TEMP43>
 761                     <FRAME '\1aSAVE-ACS>
 762                     <CALL '\1aSAVE-ACS 0>
 763                     <FRAME '\1aLABEL>
 764                     <PUSH ITM42>
 765                     <DEAD ITM42>
 766                     <PUSH %<>>
 767                     <NTHR 'MIML 2 = TEMP43 (RECORD-TYPE ATOM) (TYPE LBIND)>
 768                     <NTHR TEMP43 1 = STACK (RECORD-TYPE LBIND)>
 769                     <DEAD TEMP43>
 770                     <CALL '\1aLABEL 3>
 771                     <JUMP + PHRASE88>
 772 PHRASE83
 773                     <FRAME '\1aFIND-LABEL>
 774                     <PUSH ITM42>
 775                     <CALL '\1aFIND-LABEL 1 = TEMP43>
 776                     <FRAME '\1aESTABLISH-LABEL-STATE>
 777                     <PUSH TEMP43>
 778                     <DEAD TEMP43>
 779                     <CALL '\1aESTABLISH-LABEL-STATE 1>
 780                     <FRAME '\1aLABEL>
 781                     <PUSH ITM42>
 782                     <DEAD ITM42>
 783                     <PUSH %<>>
 784                     <NTHR 'MIML 2 = TEMP43 (RECORD-TYPE ATOM) (TYPE LBIND)>
 785                     <NTHR TEMP43 1 = STACK (RECORD-TYPE LBIND)>
 786                     <DEAD TEMP43>
 787                     <CALL '\1aLABEL 3>
 788 PHRASE88
 789                     <SETG 'NEXT-LOOP %<>>
 790                     <SETG 'LAST-UNCON %<>>
 791                     <JUMP + PHRASE207>
 792 PHRASE58
 793                     <LENL ITM42 = TEMP41 (TYPE FIX)>
 794                     <VEQUAL? TEMP41 0 - PHRASE96 (TYPE FIX)>
 795                     <FRAME '\1aMIMOCERR>
 796                     <PUSH 'BAD-SYNTAX!-ERRORS>
 797                     <PUSH ITM42>
 798                     <DEAD ITM42>
 799                     <CALL '\1aMIMOCERR 2>
 800                     <JUMP + PHRASE207>
 801 PHRASE96
 802                     <NTHL ITM42 1 = OP47>
 803                     <TYPE? OP47 <TYPE-CODE ATOM> + PHRASE100>
 804                     <FRAME '\1aMIMOCERR>
 805                     <PUSH 'BAD-SYNTAX!-ERRORS>
 806                     <PUSH ITM42>
 807                     <DEAD ITM42>
 808                     <CALL '\1aMIMOCERR 2>
 809                     <JUMP + PHRASE207>
 810 PHRASE100
 811                     <SET TEMP43 [FCN GFCN] (TYPE VECTOR)>
 812                     <LOOP (OP47 VALUE) (TEMP43 LENGTH VALUE)>
 813 TAG104
 814                     <NTHUV TEMP43 1 = TEMP44>
 815                     <VEQUAL? TEMP44 OP47 + TAG103>
 816                     <DEAD TEMP44>
 817                     <RESTUV TEMP43 1 = TEMP43 (TYPE VECTOR)>
 818                     <EMPUV? TEMP43 - TAG104>
 819                     <JUMP + PHRASE102>
 820 TAG103
 821                     <GVAL 'V1 = TEMP43>
 822                     <TYPE? TEMP43 <TYPE-CODE FALSE> + BOOL106>
 823                     <DEAD TEMP43>
 824                     <GVAL 'PASS1 = TEMP43>
 825                     <TYPE? TEMP43 <TYPE-CODE FALSE> - BOOL106>
 826                     <DEAD TEMP43>
 827                     <FRAME '\1aPRINT>
 828                     <PUSH ITM42>
 829                     <NTHR 'OUTCHAN 2 = TEMP43 (RECORD-TYPE ATOM) (TYPE LBIND)>
 830                     <NTHR TEMP43 1 = STACK (RECORD-TYPE LBIND)>
 831                     <DEAD TEMP43>
 832                     <CALL '\1aPRINT 2>
 833 BOOL106
 834                     <FRAME '\1aFLUSH-ACS>
 835                     <CALL '\1aFLUSH-ACS 0>
 836                     <LESS? TEMP41 3 - PHRASE112 (TYPE FIX)>
 837                     <DEAD TEMP41>
 838                     <FRAME '\1aMIMOCERR>
 839                     <PUSH 'BAD-SYNTAX!-ERRORS>
 840                     <PUSH ITM42>
 841                     <DEAD ITM42>
 842                     <CALL '\1aMIMOCERR 2>
 843                     <JUMP + PHRASE207>
 844 PHRASE112
 845                     <RESTL ITM42 1 = TEMP43 (TYPE LIST)>
 846                     <RESTL TEMP43 1 = TEMP43 (TYPE LIST)>
 847                     <NTHL TEMP43 1 = TEMP43>
 848                     <RESTL TEMP43 1 = TEMP43 (TYPE LIST)>
 849                     <RESTL TEMP43 1 = TEMP41 (TYPE LIST)>
 850                     <DEAD TEMP43>
 851                     <CHTYPE TEMP41 <TYPE-CODE LIST> = TEMP41>
 852                     <SET TEMP43 () (TYPE LIST)>
 853                     <SET TEMP44 () (TYPE LIST)>
 854                     <RESTL ITM42 1 = OP47 (TYPE LIST)>
 855                     <RESTL OP47 1 = OP47 (TYPE LIST)>
 856                     <RESTL OP47 1 = OP47 (TYPE LIST)>
 857                     <CHTYPE OP47 <TYPE-CODE LIST> = OP47>
 858                     <LOOP>
 859 MAP116
 860                     <INTGO>
 861                     <EMPL? OP47 + MAPAP119>
 862                     <NTHL OP47 1 = ATM126>
 863                     <LOOP>
 864 AGAIN129
 865                     <INTGO>
 866                     <NTHL TEMP41 1 = DC127>
 867                     <TYPE? DC127 <TYPE-CODE STRING> - PHRASE131>
 868                     <IFCAN "STRING-EQUAL?">
 869                     <STRING-EQUAL? DC127 "OPTIONAL" - PHRASE133>
 870                     <ENDIF "STRING-EQUAL?">
 871                     <IFCANNOT "STRING-EQUAL?">
 872                     <SET TEMP134 DC127>
 873                     <SET TEMP135 "OPTIONAL" (TYPE STRING)>
 874                     <LENUS TEMP134 = TEMP136 (TYPE FIX)>
 875                     <VEQUAL? TEMP136 8 - PHRASE133>
 876                     <LOOP (TEMP134 VALUE LENGTH) (TEMP135 VALUE LENGTH) (TEMP136 VALUE)>
 877 TAG139
 878                     <NTHUS TEMP134 1 = TEMP137>
 879                     <NTHUS TEMP135 1 = TEMP138>
 880                     <VEQUAL? TEMP137 TEMP138 - PHRASE133>
 881                     <DEAD TEMP137 TEMP138>
 882                     <RESTUS TEMP134 1 = TEMP134 (TYPE STRING)>
 883                     <RESTUS TEMP135 1 = TEMP135 (TYPE STRING)>
 884                     <SUB TEMP136 1 = TEMP136 (TYPE FIX)>
 885                     <GRTR? TEMP136 0 + TAG139 (TYPE FIX)>
 886                     <ENDIF "STRING-EQUAL?">
 887                     <SET OPT?52 'T (TYPE ATOM)>
 888                     <JUMP + PHRASE140>
 889 PHRASE133
 890                     <VEQUAL? DC127 "TUPLE" - PHRASE140>
 891                     <DEAD DC127>
 892                     <SET OPT?52 %<> (TYPE FALSE)>
 893 PHRASE140
 894                     <RESTL TEMP41 1 = TEMP41 (TYPE LIST)>
 895                     <JUMP + AGAIN129>
 896 PHRASE131
 897                     <GVAL 'WINNING-VICTIM = TEMP135>
 898                     <TYPE? TEMP135 <TYPE-CODE FALSE> + PHRASE142>
 899                     <DEAD TEMP135>
 900                     <GVAL 'WINNING-VICTIM = TEMP135>
 901                     <ADD TEMP135 2 = TEMP135 (TYPE FIX)>
 902                     <SETG 'WINNING-VICTIM TEMP135>
 903                     <DEAD TEMP135>
 904 PHRASE142
 905                     <RESTL TEMP41 1 = TEMP41 (TYPE LIST)>
 906                     <PUSH ATM126>
 907                     <DEAD ATM126>
 908                     <VEQUAL? OPT?52 0 + PHRASE145>
 909                     <SET TEMP135 'OARG (TYPE ATOM)>
 910                     <JUMP + PHRASE146>
 911 PHRASE145
 912                     <SET TEMP135 'ARG (TYPE ATOM)>
 913 PHRASE146
 914                     <PUSH TEMP135>
 915                     <DEAD TEMP135>
 916                     <GVAL 'LBLSEQ = TEMP135>
 917                     <ADD TEMP135 1 = TEMP135 (TYPE FIX)>
 918                     <SETG 'LBLSEQ TEMP135>
 919                     <CHTYPE TEMP135 <TYPE-CODE LOCAL-NAME> = STACK>
 920                     <DEAD TEMP135>
 921                     <FRAME '\1aDECL-HACK>
 922                     <PUSH DC127>
 923                     <DEAD DC127>
 924                     <CALL '\1aDECL-HACK 1 = STACK>
 925                     <PUSH %<>>
 926                     <PUSH %<>>
 927                     <UBLOCK <TYPE-CODE VECTOR> 6 = TEMP135>
 928                     <CHTYPE TEMP135 <TYPE-CODE LOCAL> = TEMP135>
 929                     <CONS TEMP135 () = TEMP135 (TYPE LIST)>
 930                     <EMPL? TEMP43 - TAG148>
 931                     <SET TEMP43 TEMP135 (TYPE LIST)>
 932                     <JUMP + TAG149>
 933 TAG148
 934                     <PUTREST TEMP44 TEMP135>
 935                     <DEAD TEMP44>
 936 TAG149
 937                     <SET TEMP44 TEMP135 (TYPE LIST)>
 938                     <DEAD TEMP135>
 939                     <RESTL OP47 1 = OP47 (TYPE LIST)>
 940                     <JUMP + MAP116>
 941 MAPAP119
 942                     <CONS 'T TEMP43 = OP47>
 943                     <DEAD TEMP43>
 944                     <SETG 'LOCALS OP47>
 945                     <DEAD OP47>
 946                     <SETG 'ALL-TEMP-CC ()>
 947                     <SETG 'TYPED-LOCALS ()>
 948                     <LENL ITM42 = OP47 (TYPE FIX)>
 949                     <SUB OP47 3 = OP47 (TYPE FIX)>
 950                     <SETG 'NRARGS OP47>
 951                     <DEAD OP47>
 952                     <RESTL ITM42 1 = OP47 (TYPE LIST)>
 953                     <NTHL OP47 1 = NAME8 (TYPE ATOM)>
 954                     <DEAD OP47>
 955                     <CONS 'T () = OP47>
 956                     <SETG 'CODE OP47>
 957                     <DEAD OP47>
 958                     <GVAL 'CODE = OP47>
 959                     <SETG 'CC OP47>
 960                     <DEAD OP47>
 961                     <GVAL 'GLUE-MODE = OP47>
 962                     <TYPE? OP47 <TYPE-CODE FALSE> - PHRASE151>
 963                     <DEAD OP47>
 964                     <SETG 'CONSTANT-VECTOR ()>
 965                     <SETG 'FREE-CONSTS ()>
 966                     <GVAL 'CONSTANT-TABLE = TEMP137>
 967                     <LOOP>
 968 MAP153
 969                     <INTGO>
 970                     <EMPUV? TEMP137 + MAPAP156>
 971                     <SET TEMP41 TEMP137>
 972                     <PUTUV TEMP41 1 () (TYPE LIST)>
 973                     <DEAD TEMP41>
 974                     <RESTUV TEMP137 1 = TEMP137 (TYPE VECTOR)>
 975                     <JUMP + MAP153>
 976 MAPAP156
 977                     <RESTL ITM42 1 = TEMP137 (TYPE LIST)>
 978                     <DEAD ITM42>
 979                     <RESTL TEMP137 1 = TEMP137 (TYPE LIST)>
 980                     <NTHL TEMP137 1 = TEMP137>
 981                     <CONS TEMP137 () = TEMP137>
 982                     <CONS NAME8 TEMP137 = TEMP137>
 983                     <CONS 'T TEMP137 = TEMP137>
 984                     <SETG 'MVECTOR TEMP137>
 985                     <DEAD TEMP137>
 986                     <GVAL 'MV-TABLE = TEMP43>
 987                     <LOOP>
 988 MAP161
 989                     <INTGO>
 990                     <EMPUV? TEMP43 + MAPAP164>
 991                     <SET TEMP41 TEMP43>
 992                     <PUTUV TEMP41 1 () (TYPE LIST)>
 993                     <DEAD TEMP41>
 994                     <RESTUV TEMP43 1 = TEMP43 (TYPE VECTOR)>
 995                     <JUMP + MAP161>
 996 MAPAP164
 997                     <SETG 'MV-COUNT 0>
 998                     <SETG 'FINAL-LOCALS ()>
 999                     <GVAL 'MVECTOR = TEMP43>
1000                     <RESTL TEMP43 1 = TEMP43 (TYPE LIST)>
1001                     <RESTL TEMP43 1 = TEMP43 (TYPE LIST)>
1002                     <SETG 'MV TEMP43>
1003                     <DEAD TEMP43>
1004                     <JUMP + PHRASE170>
1005 PHRASE151
1006                     <SETG 'GLUE-NAME NAME8>
1007                     <RESTL ITM42 1 = TEMP43 (TYPE LIST)>
1008                     <DEAD ITM42>
1009                     <RESTL TEMP43 1 = TEMP43 (TYPE LIST)>
1010                     <NTHL TEMP43 1 = TEMP43>
1011                     <SETG 'GLUE-DECL TEMP43>
1012                     <DEAD TEMP43>
1013                     <SETG 'GREFS ()>
1014                     <SETG 'GCALS ()>
1015 PHRASE170
1016                     <SETG 'ICALL-FLAG %<>>
1017                     <SETG 'ICALL-TAGS ()>
1018                     <SETG 'LOOPTAGS ()>
1019                     <SETG 'LOCATIONS ()>
1020                     <SETG 'OPT-LIST %<>>
1021                     <JUMP + PHRASE207>
1022 PHRASE102
1023                     <VEQUAL? OP47 'TEMP - PHRASE171>
1024                     <GVAL 'V1 = TEMP43>
1025                     <TYPE? TEMP43 <TYPE-CODE FALSE> + BOOL172>
1026                     <DEAD TEMP43>
1027                     <GVAL 'PASS1 = TEMP43>
1028                     <TYPE? TEMP43 <TYPE-CODE FALSE> - BOOL172>
1029                     <DEAD TEMP43>
1030                     <FRAME '\1aPRINT>
1031                     <PUSH ITM42>
1032                     <NTHR 'OUTCHAN 2 = TEMP43 (RECORD-TYPE ATOM) (TYPE LBIND)>
1033                     <NTHR TEMP43 1 = STACK (RECORD-TYPE LBIND)>
1034                     <DEAD TEMP43>
1035                     <CALL '\1aPRINT 2 = TEMP43>
1036                     <TYPE? TEMP43 <TYPE-CODE FALSE> + BOOL172>
1037                     <DEAD TEMP43>
1038                     <FRAME '\1aCRLF>
1039                     <NTHR 'OUTCHAN 2 = TEMP43 (RECORD-TYPE ATOM) (TYPE LBIND)>
1040                     <NTHR TEMP43 1 = STACK (RECORD-TYPE LBIND)>
1041                     <DEAD TEMP43>
1042                     <CALL '\1aCRLF 1>
1043 BOOL172
1044                     <FRAME '\1aSORT-TEMPS>
1045                     <PUSH ITM42>
1046                     <DEAD ITM42>
1047                     <CALL '\1aSORT-TEMPS 1 = ITM42>
1048                     <FRAME '\1aTEMP-INIT>
1049                     <RESTL ITM42 1 = TEMP43 (TYPE LIST)>
1050                     <CHTYPE TEMP43 <TYPE-CODE LIST> = STACK>
1051                     <DEAD TEMP43>
1052                     <PUSH %<>>
1053                     <PUSH OLD-LOCS24>
1054                     <CALL '\1aTEMP-INIT 3>
1055                     <GVAL 'WINNING-VICTIM = TEMP43>
1056                     <TYPE? TEMP43 <TYPE-CODE FALSE> + PHRASE207>
1057                     <DEAD TEMP43>
1058                     <LENL ITM42 = TEMP43 (TYPE FIX)>
1059                     <DEAD ITM42>
1060                     <LSH TEMP43 1 = TEMP43 (TYPE FIX)>
1061                     <GVAL 'WINNING-VICTIM = TEMP138>
1062                     <ADD TEMP43 TEMP138 = TEMP43 (TYPE FIX)>
1063                     <DEAD TEMP138>
1064                     <ADD TEMP43 -2 = TEMP43 (TYPE FIX)>
1065                     <SETG 'WINNING-VICTIM TEMP43>
1066                     <DEAD TEMP43>
1067                     <JUMP + PHRASE207>
1068 PHRASE171
1069                     <VEQUAL? OP47 'OPT-DISPATCH - PHRASE183>
1070                     <FRAME '\1aOPT-INIT>
1071                     <RESTL ITM42 1 = TEMP43 (TYPE LIST)>
1072                     <DEAD ITM42>
1073                     <CHTYPE TEMP43 <TYPE-CODE LIST> = STACK>
1074                     <DEAD TEMP43>
1075                     <CALL '\1aOPT-INIT 1>
1076                     <JUMP + PHRASE207>
1077 PHRASE183
1078                     <VEQUAL? OP47 'MAKTUP - PHRASE185>
1079                     <GVAL 'V1 = TEMP138>
1080                     <TYPE? TEMP138 <TYPE-CODE FALSE> + BOOL186>
1081                     <DEAD TEMP138>
1082                     <GVAL 'PASS1 = TEMP138>
1083                     <TYPE? TEMP138 <TYPE-CODE FALSE> - BOOL186>
1084                     <DEAD TEMP138>
1085                     <FRAME '\1aPRINT>
1086                     <PUSH ITM42>
1087                     <NTHR 'OUTCHAN 2 = TEMP138 (RECORD-TYPE ATOM) (TYPE LBIND)>
1088                     <NTHR TEMP138 1 = STACK (RECORD-TYPE LBIND)>
1089                     <DEAD TEMP138>
1090                     <CALL '\1aPRINT 2 = TEMP138>
1091                     <TYPE? TEMP138 <TYPE-CODE FALSE> + BOOL186>
1092                     <DEAD TEMP138>
1093                     <FRAME '\1aCRLF>
1094                     <NTHR 'OUTCHAN 2 = TEMP138 (RECORD-TYPE ATOM) (TYPE LBIND)>
1095                     <NTHR TEMP138 1 = STACK (RECORD-TYPE LBIND)>
1096                     <DEAD TEMP138>
1097                     <CALL '\1aCRLF 1>
1098 BOOL186
1099                     <FRAME '\1aSORT-TEMPS>
1100                     <PUSH ITM42>
1101                     <DEAD ITM42>
1102                     <CALL '\1aSORT-TEMPS 1 = ITM42>
1103                     <FRAME '\1aTEMP-INIT>
1104                     <RESTL ITM42 1 = TEMP138 (TYPE LIST)>
1105                     <DEAD ITM42>
1106                     <CHTYPE TEMP138 <TYPE-CODE LIST> = STACK>
1107                     <DEAD TEMP138>
1108                     <PUSH 'T>
1109                     <PUSH OLD-LOCS24>
1110                     <CALL '\1aTEMP-INIT 3>
1111                     <JUMP + PHRASE207>
1112 PHRASE185
1113                     <GVAL 'NEXT-FLUSH = TEMP43>
1114                     <GRTR? TEMP43 0 - PHRASE195 (TYPE FIX)>
1115                     <DEAD TEMP43>
1116                     <GVAL 'V1 = TEMP43>
1117                     <TYPE? TEMP43 <TYPE-CODE FALSE> + PHRASE200>
1118                     <DEAD TEMP43>
1119                     <GVAL 'PASS1 = TEMP43>
1120                     <TYPE? TEMP43 <TYPE-CODE FALSE> - PHRASE200>
1121                     <DEAD TEMP43>
1122                     <FRAME '\1aPRINT>
1123                     <PUSH ITM42>
1124                     <DEAD ITM42>
1125                     <NTHR 'OUTCHAN 2 = TEMP43 (RECORD-TYPE ATOM) (TYPE LBIND)>
1126                     <NTHR TEMP43 1 = STACK (RECORD-TYPE LBIND)>
1127                     <DEAD TEMP43>
1128                     <CALL '\1aPRINT 2>
1129 PHRASE200
1130                     <VEQUAL? OP47 'DEAD + PHRASE207>
1131                     <DEAD OP47>
1132                     <GVAL 'NEXT-FLUSH = TEMP43>
1133                     <SUB TEMP43 1 = TEMP43 (TYPE FIX)>
1134                     <SETG 'NEXT-FLUSH TEMP43>
1135                     <DEAD TEMP43>
1136                     <JUMP + PHRASE207>
1137 PHRASE195
1138                     <VEQUAL? OP47 'DEAD + PHRASE209>
1139                     <DEAD OP47>
1140                     <SETG 'NEXT-LOOP %<>>
1141                     <SETG 'LAST-UNCON %<>>
1142 PHRASE209
1143                     <FRAME '\1aOC>
1144                     <PUSH ITM42>
1145                     <DEAD ITM42>
1146                     <NTHR 'OBLIST 2 = TEMP43 (RECORD-TYPE ATOM) (TYPE LBIND)>
1147                     <NTHR TEMP43 1 = STACK (RECORD-TYPE LBIND)>
1148                     <DEAD TEMP43>
1149                     <CALL '\1aOC 2>
1150                     <FRAME '\1aGET-AC>
1151                     <PUSH 'T*>
1152                     <CALL '\1aGET-AC 1 = TEMP43>
1153                     <PUTUV TEMP43 4 %<CHTYPE <MIN> FIX> (TYPE FIX)>
1154                     <DEAD TEMP43>
1155 PHRASE207
1156                     <UNBIND TEMP38>
1157                     <DEAD TEMP38>
1158                     <ADJ -9>
1159                     <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
1160                     <JUMP + MAP31>
1161 MAPAP34
1162                     <GVAL 'PASS1 = TEMP13>
1163                     <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE215>
1164                     <DEAD TEMP13>
1165                     <SETG 'LBLSEQ LSEQ23>
1166                     <GVAL 'LOCALS = OLD-LOCS24>
1167                     <FRAME '\1aMERGE-LABEL-STATES>
1168                     <CALL '\1aMERGE-LABEL-STATES 0>
1169                     <GVAL 'CHANGED = TEMP13>
1170                     <TYPE? TEMP13 <TYPE-CODE FALSE> - PHRASE218>
1171                     <DEAD TEMP13>
1172                     <SETG 'PASS1 %<>>
1173                     <JUMP + AGAIN25>
1174 PHRASE218
1175                     <NTHR 'LOOP-DEBUG 1 = TEMP13 (RECORD-TYPE ATOM) (BRANCH-FALSE + AGAIN25)>
1176                     <TYPE? TEMP13 <TYPE-CODE FALSE> + AGAIN25>
1177                     <NTHR TEMP13 1 = TEMP13 (RECORD-TYPE GBIND)>
1178                     <TYPE? TEMP13 <TYPE-CODE UNBOUND> + AGAIN25>
1179                     <DEAD TEMP13>
1180                     <GVAL 'LOOP-DEBUG = TEMP13>
1181                     <EQUAL? TEMP13 1 - PHRASE221>
1182                     <DEAD TEMP13>
1183                     <FRAME '\1aPRINC>
1184                     <PUSH "Changed: ">
1185                     <NTHR 'OUTCHAN 2 = TEMP13 (RECORD-TYPE ATOM) (TYPE LBIND)>
1186                     <NTHR TEMP13 1 = STACK (RECORD-TYPE LBIND)>
1187                     <DEAD TEMP13>
1188                     <CALL '\1aPRINC 2>
1189                     <FRAME '\1aPRIN1>
1190                     <GVAL 'CHANGED = STACK>
1191                     <NTHR 'OUTCHAN 2 = TEMP13 (RECORD-TYPE ATOM) (TYPE LBIND)>
1192                     <NTHR TEMP13 1 = STACK (RECORD-TYPE LBIND)>
1193                     <DEAD TEMP13>
1194                     <CALL '\1aPRIN1 2>
1195                     <FRAME '\1aCRLF>
1196                     <NTHR 'OUTCHAN 2 = TEMP13 (RECORD-TYPE ATOM) (TYPE LBIND)>
1197                     <NTHR TEMP13 1 = STACK (RECORD-TYPE LBIND)>
1198                     <DEAD TEMP13>
1199                     <CALL '\1aCRLF 1>
1200                     <JUMP + AGAIN25>
1201 PHRASE221
1202                     <FRAME '\1aERROR>
1203                     <GVAL 'CHANGED = STACK>
1204                     <CALL '\1aERROR 1>
1205                     <JUMP + AGAIN25>
1206 PHRASE215
1207                     <FRAME '\1aFIXUP-LOCALS>
1208                     <GVAL 'LOCALS = TEMP38>
1209                     <RESTL TEMP38 1 = STACK (TYPE LIST)>
1210                     <DEAD TEMP38>
1211                     <CALL '\1aFIXUP-LOCALS 1>
1212                     <GVAL 'PEEP-ENABLED = TEMP38>
1213                     <TYPE? TEMP38 <TYPE-CODE FALSE> + PHRASE235>
1214                     <DEAD TEMP38>
1215                     <FRAME '\1aPPOLE>
1216                     <GVAL 'CODE = STACK>
1217                     <SET TEMP13 1 (TYPE FIX)>
1218                     <GVAL 'CODE = TEMP38>
1219                     <RESTL TEMP38 1 = TEMP38 (TYPE LIST)>
1220                     <LOOP (TEMP38 VALUE) (TEMP13 VALUE)>
1221 TAG237
1222                     <INTGO>
1223                     <EMPL? TEMP38 + TAG236>
1224                     <NTHL TEMP38 1 = STACK>
1225                     <RESTL TEMP38 1 = TEMP38 (TYPE LIST)>
1226                     <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
1227                     <JUMP + TAG237>
1228 TAG236
1229                     <CALL '\1aPPOLE TEMP13 = TEMP38>
1230                     <DEAD TEMP13>
1231                     <SETG 'CODE TEMP38>
1232                     <DEAD TEMP38>
1233 PHRASE235
1234                     <FRAME '\1aFIXUP-REFS>
1235                     <CALL '\1aFIXUP-REFS 0>
1236                     <GVAL 'OPT-LIST = TEMP38>
1237                     <TYPE? TEMP38 <TYPE-CODE FALSE> + MAPAP268>
1238                     <GVAL 'GLUE-MODE = TEMP13>
1239                     <TYPE? TEMP13 <TYPE-CODE FALSE> + MAPAP250>
1240                     <DEAD TEMP13>
1241                     <FRAME '\1aFIND-OPT>
1242                     <PUSH NAME8>
1243                     <GVAL 'PRE-OPTS = STACK>
1244                     <CALL '\1aFIND-OPT 2 = TEMP38>
1245                     <TYPE? TEMP38 <TYPE-CODE FALSE> + MAPAP250>
1246                     <NTHL TEMP38 1 = TEMP13>
1247                     <TYPE? TEMP13 <TYPE-CODE FALSE> + MAPAP250>
1248                     <DEAD TEMP13>
1249                     <NTHL TEMP38 1 = TEMP13>
1250                     <DEAD TEMP38>
1251                     <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
1252                     <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
1253                     <RESTL TEMP13 1 = OLD-LOCS24 (TYPE LIST)>
1254                     <DEAD TEMP13>
1255                     <CHTYPE OLD-LOCS24 <TYPE-CODE LIST> = OLD-LOCS24>
1256                     <FRAME '\1aREST>
1257                     <GVAL 'OPT-LIST = STACK>
1258                     <PUSH 2>
1259                     <CALL '\1aREST 2 = TEMP13>
1260                     <LOOP>
1261 MAP247
1262                     <INTGO>
1263                     <EMPL? OLD-LOCS24 + MAPAP250>
1264                     <EMPTY? TEMP13 + MAPAP250>
1265                     <NTHL OLD-LOCS24 1 = TEMP43>
1266                     <NTH1 TEMP13 = TEMP38>
1267                     <GVAL TEMP38 = TEMP38>
1268                     <NTHR TEMP43 1 = TEMP44 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG262)>
1269                     <TYPE? TEMP44 <TYPE-CODE FALSE> + TAG262>
1270                     <PUTR TEMP44 1 TEMP38 (RECORD-TYPE GBIND)>
1271                     <DEAD TEMP44 TEMP38>
1272                     <JUMP + TAG263>
1273 TAG262
1274                     <FRAME '\1aSETG>
1275                     <PUSH TEMP43>
1276                     <DEAD TEMP43>
1277                     <PUSH TEMP38>
1278                     <DEAD TEMP38>
1279                     <CALL '\1aSETG 2>
1280 TAG263
1281                     <RESTL OLD-LOCS24 1 = OLD-LOCS24 (TYPE LIST)>
1282                     <REST1 TEMP13 = TEMP13>
1283                     <JUMP + MAP247>
1284 MAPAP250
1285                     <SET TEMP38 %<> (TYPE FALSE)>
1286                     <GVAL 'CODE = TEMP44>
1287                     <GVAL 'OPT-OFFSET = TEMP13>
1288                     <ADD TEMP13 2 = TEMP13 (TYPE FIX)>
1289                     <GRTR? TEMP13 0 - RESTL273 (TYPE FIX)>
1290                     <LOOP (TEMP44 VALUE) (TEMP13 VALUE)>
1291 RESTL272
1292                     <INTGO>
1293                     <RESTL TEMP44 1 = TEMP44 (TYPE LIST)>
1294                     <SUB TEMP13 1 = TEMP13 (TYPE FIX)>
1295                     <GRTR? TEMP13 0 + RESTL272 (TYPE FIX)>
1296 RESTL273
1297                     <FRAME '\1aREST>
1298                     <GVAL 'OPT-LIST = STACK>
1299                     <PUSH 2>
1300                     <CALL '\1aREST 2 = TEMP13>
1301                     <LOOP>
1302 MAP265
1303                     <INTGO>
1304                     <EMPL? TEMP44 + MAPAP268>
1305                     <EMPTY? TEMP13 + MAPAP268>
1306                     <SET OLD-LOCS24 TEMP44>
1307                     <SET TEMP41 TEMP13>
1308                     <NTHL OLD-LOCS24 1 = TEMP38>
1309                     <TYPE? TEMP38 <TYPE-CODE INST> - PHRASE280>
1310                     <LENUV TEMP38 = TEMP43 (TYPE FIX)>
1311                     <VEQUAL? TEMP43 2 - PHRASE280 (TYPE FIX)>
1312                     <DEAD TEMP43>
1313                     <NTHUV TEMP38 1 = TEMP43>
1314                     <EQUAL? TEMP43 'DISPATCH - PHRASE280>
1315                     <DEAD TEMP43>
1316                     <PUSH 'SETZ>
1317                     <FRAME '\1aFIND-LABEL>
1318                     <NTHUV TEMP38 2 = STACK>
1319                     <DEAD TEMP38>
1320                     <CALL '\1aFIND-LABEL 1 = TEMP43>
1321                     <NTHUV TEMP43 2 = TEMP38>
1322                     <DEAD TEMP43>
1323                     <PUSH TEMP38>
1324                     <PUSH (R*)>
1325                     <UBLOCK <TYPE-CODE VECTOR> 3 = TEMP43>
1326                     <CHTYPE TEMP43 <TYPE-CODE INST> = TEMP43>
1327                     <PUTL OLD-LOCS24 1 TEMP43>
1328                     <DEAD OLD-LOCS24 TEMP43>
1329                     <PUTL TEMP41 1 TEMP38>
1330                     <DEAD TEMP38>
1331                     <SET TEMP38 TEMP41>
1332                     <DEAD TEMP41>
1333                     <JUMP + PHRASE285>
1334 PHRASE280
1335                     <SET TEMP38 'T (TYPE ATOM)>
1336                     <JUMP + MAPAP268>
1337 PHRASE285
1338                     <RESTL TEMP44 1 = TEMP44 (TYPE LIST)>
1339                     <REST1 TEMP13 = TEMP13>
1340                     <JUMP + MAP265>
1341 MAPAP268
1342                     <UNBIND TEMP3>
1343                     <DEAD TEMP3>
1344                     <ADJ -27>
1345                     <RETURN TEMP38>
1346                     <DEAD TEMP38>
1347                     <END \1aMIMOC>
1348 #WORD *26616415162*
1349 <GFCN \1aDECL-HACK ("VALUE" <OR ATOM FALSE> ANY) TYP4>
1350                     <TEMP TY8 TEMP16 TEMP30 TEMP28:VECTOR>
1351                     <INTGO>
1352                     <SET TY8 %<> (TYPE FALSE)>
1353                     <LOOP>
1354 AGAIN9
1355                     <INTGO>
1356                     <TYPE? TYP4 <TYPE-CODE FORM> + TAG12>
1357                     <TYPE? TYP4 <TYPE-CODE SEGMENT> - PHRASE36>
1358 TAG12
1359                     <EMPL? TYP4 + PHRASE14>
1360                     <RESTL TYP4 1 = TEMP16 (TYPE LIST)>
1361                     <EMPL? TEMP16 + PHRASE14>
1362                     <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
1363                     <EMPL? TEMP16 - PHRASE14>
1364                     <DEAD TEMP16>
1365                     <NTHL TYP4 1 = TEMP16>
1366                     <EQUAL? TEMP16 'QUOTE - PHRASE14>
1367                     <DEAD TEMP16>
1368                     <FRAME '\1aTYPE>
1369                     <RESTL TYP4 1 = TEMP16 (TYPE LIST)>
1370                     <DEAD TYP4>
1371                     <NTHL TEMP16 1 = STACK>
1372                     <DEAD TEMP16>
1373                     <CALL '\1aTYPE 1 = TYP4>
1374                     <JUMP + PHRASE36>
1375 PHRASE14
1376                     <NTHL TYP4 1 = TEMP16>
1377                     <EQUAL? TEMP16 'OR - PHRASE18>
1378                     <DEAD TEMP16>
1379                     <FRAME '\1aDECL-HACK>
1380                     <SET TY8 TYP4>
1381                     <DEAD TYP4>
1382                     <RESTL TY8 1 = TEMP16 (TYPE LIST)>
1383                     <NTHL TEMP16 1 = STACK>
1384                     <DEAD TEMP16>
1385                     <CALL '\1aDECL-HACK 1 = TYP4>
1386                     <RESTL TY8 1 = TEMP16 (TYPE LIST)>
1387                     <RESTL TEMP16 1 = TEMP30 (TYPE LIST)>
1388                     <DEAD TEMP16>
1389                     <CHTYPE TEMP30 <TYPE-CODE LIST> = TEMP30>
1390                     <LOOP>
1391 MAP21
1392                     <INTGO>
1393                     <EMPL? TEMP30 + PHRASE36>
1394                     <NTHL TEMP30 1 = TEMP16>
1395                     <FRAME '\1aDECL-HACK>
1396                     <PUSH TEMP16>
1397                     <DEAD TEMP16>
1398                     <CALL '\1aDECL-HACK 1 = TEMP16>
1399                     <EQUAL? TYP4 TEMP16 + PHRASE34>
1400                     <DEAD TEMP16>
1401                     <SET TYP4 %<> (TYPE FALSE)>
1402                     <JUMP + PHRASE36>
1403 PHRASE34
1404                     <RESTL TEMP30 1 = TEMP30 (TYPE LIST)>
1405                     <JUMP + MAP21>
1406 PHRASE18
1407                     <SET TY8 TYP4>
1408                     <DEAD TYP4>
1409                     <NTHL TY8 1 = TYP4>
1410 PHRASE36
1411                     <TYPE? TYP4 <TYPE-CODE ATOM> + TAG39>
1412                     <RETURN %<>>
1413 TAG39
1414                     <NTHR TYP4 5 = TEMP30 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG45)>
1415                     <TYPE? TEMP30 <TYPE-CODE FALSE> + TAG45>
1416                     <DEAD TEMP30>
1417                     <FRAME '\1aTYPEPRIM>
1418                     <PUSH TYP4>
1419                     <CALL '\1aTYPEPRIM 1 = TEMP30>
1420                     <SET TEMP28 [WORD FIX LIST] (TYPE VECTOR)>
1421                     <TYPE? TEMP30 <TYPE-CODE ATOM> - TAG45>
1422                     <LOOP (TEMP30 VALUE) (TEMP28 LENGTH VALUE)>
1423 TAG46
1424                     <NTHUV TEMP28 1 = TEMP16>
1425                     <VEQUAL? TEMP16 TEMP30 + TAG49>
1426                     <DEAD TEMP16>
1427                     <RESTUV TEMP28 1 = TEMP28 (TYPE VECTOR)>
1428                     <EMPUV? TEMP28 - TAG46>
1429 TAG45
1430                     <GVAL 'TYPE-LENGTHS = TEMP28>
1431                     <EMPUV? TEMP28 + PHRASE42>
1432                     <LOOP (TYP4 VALUE) (TEMP28 LENGTH VALUE)>
1433 TAG50
1434                     <NTHUV TEMP28 1 = TEMP30>
1435                     <TYPE? TEMP30 <TYPE-CODE ATOM> - TAG51>
1436                     <VEQUAL? TEMP30 TYP4 + TAG49>
1437                     <DEAD TEMP30>
1438 TAG51
1439                     <RESTUV TEMP28 1 = TEMP28 (TYPE VECTOR)>
1440                     <EMPUV? TEMP28 - TAG50>
1441                     <JUMP + PHRASE42>
1442 TAG49
1443                     <RETURN TYP4>
1444                     <DEAD TYP4>
1445 PHRASE42
1446                     <FRAME '\1aGETPROP>
1447                     <PUSH TYP4>
1448                     <DEAD TYP4>
1449                     <PUSH 'DECL>
1450                     <CALL '\1aGETPROP 2 = TYP4>
1451                     <SET TEMP16 TYP4>
1452                     <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE52>
1453                     <FRAME '\1aN=?>
1454                     <PUSH TY8>
1455                     <PUSH TYP4>
1456                     <CALL '\1aN=? 2 = TEMP16>
1457                     <VEQUAL? TEMP16 0 - AGAIN9>
1458 PHRASE52
1459                     <RETURN TEMP16>
1460                     <DEAD TEMP16>
1461                     <END \1aDECL-HACK>
1462 #WORD *24677336004*
1463 <GFCN \1aSORT-TEMPS ("VALUE" FORM <PRIMTYPE LIST>) TEMPL4>
1464                     <TEMP (ALIST5:LIST ()) (NON-ALIST6:LIST ()) TEMP18 L19:LIST TEMP20>
1465                     <INTGO>
1466                     <RESTL TEMPL4 1 = TEMP18 (TYPE LIST)>
1467                     <CHTYPE TEMP18 <TYPE-CODE LIST> = TEMP18>
1468                     <LOOP>
1469 MAP8
1470                     <INTGO>
1471                     <EMPL? TEMP18 + MAPAP11>
1472                     <SET L19 TEMP18>
1473                     <NTHL L19 1 = TEMP20>
1474                     <EQUAL? TEMP20 '= - PHRASE22>
1475                     <EMPL? ALIST5 - PHRASE24 (TYPE LIST)>
1476                     <SET ALIST5 L19>
1477                     <DEAD L19>
1478                     <JUMP + MAPAP11>
1479 PHRASE24
1480                     <SET TEMP18 ALIST5>
1481                     <LOOP (TEMP18 VALUE)>
1482 TAG27
1483                     <RESTL TEMP18 1 = TEMP20 (TYPE LIST)>
1484                     <EMPL? TEMP20 + TAG29>
1485                     <SET TEMP18 TEMP20>
1486                     <DEAD TEMP20>
1487                     <JUMP + TAG27>
1488 TAG29
1489                     <PUTREST TEMP18 L19>
1490                     <DEAD TEMP18 L19>
1491                     <JUMP + MAPAP11>
1492 PHRASE22
1493                     <TYPE? TEMP20 <TYPE-CODE ATOM> - PHRASE30>
1494                     <CONS TEMP20 ALIST5 = ALIST5>
1495                     <DEAD TEMP20>
1496                     <JUMP + PHRASE31>
1497 PHRASE30
1498                     <CONS TEMP20 NON-ALIST6 = NON-ALIST6>
1499                     <DEAD TEMP20>
1500 PHRASE31
1501                     <RESTL TEMP18 1 = TEMP18 (TYPE LIST)>
1502                     <JUMP + MAP8>
1503 MAPAP11
1504                     <EMPL? NON-ALIST6 + PHRASE33 (TYPE LIST)>
1505                     <SET TEMP18 NON-ALIST6>
1506                     <LOOP (TEMP18 VALUE)>
1507 TAG34
1508                     <RESTL TEMP18 1 = TEMP20 (TYPE LIST)>
1509                     <EMPL? TEMP20 + TAG35>
1510                     <SET TEMP18 TEMP20>
1511                     <DEAD TEMP20>
1512                     <JUMP + TAG34>
1513 TAG35
1514                     <PUTREST TEMP18 ALIST5>
1515                     <DEAD TEMP18 ALIST5>
1516                     <JUMP + PHRASE36>
1517 PHRASE33
1518                     <SET NON-ALIST6 ALIST5>
1519                     <DEAD ALIST5>
1520 PHRASE36
1521                     <NTHL TEMPL4 1 = TEMP20>
1522                     <DEAD TEMPL4>
1523                     <CONS TEMP20 NON-ALIST6 = TEMP18>
1524                     <DEAD TEMP20 NON-ALIST6>
1525                     <CHTYPE TEMP18 <TYPE-CODE FORM> = TEMP18>
1526                     <RETURN TEMP18>
1527                     <DEAD TEMP18>
1528                     <END \1aSORT-TEMPS>
1529 #WORD *27412540677*
1530 <GFCN \1aOPT-INIT ("VALUE" FIX <LIST FIX <OR FIX FALSE> [REST ATOM]>) OPT4>
1531                     <TEMP (OFF5:FIX 1) TEMP10 TEMP15>
1532                     <INTGO>
1533                     <RESTL OPT4 1 = TEMP10 (TYPE LIST)>
1534                     <NTHL TEMP10 1 = TEMP10>
1535                     <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE9>
1536                     <ADD OFF5 3 = OFF5 (TYPE FIX)>
1537                     <FRAME '\1aOCEMIT>
1538                     <PUSH 'CAILE>
1539                     <PUSH 'O2*>
1540                     <PUSH TEMP10>
1541                     <DEAD TEMP10>
1542                     <CALL '\1aOCEMIT 3>
1543                     <FRAME '\1aOCEMIT>
1544                     <PUSH 'JRST>
1545                     <FRAME '\1aXJUMP>
1546                     <SET TEMP10 OPT4>
1547                     <LOOP (TEMP10 VALUE)>
1548 TAG14
1549                     <RESTL TEMP10 1 = TEMP15 (TYPE LIST)>
1550                     <EMPL? TEMP15 + TAG16>
1551                     <SET TEMP10 TEMP15>
1552                     <DEAD TEMP15>
1553                     <JUMP + TAG14>
1554 TAG16
1555                     <NTHL TEMP10 1 = STACK>
1556                     <DEAD TEMP10>
1557                     <CALL '\1aXJUMP 1 = STACK>
1558                     <CALL '\1aOCEMIT 2>
1559                     <FRAME '\1aOCEMIT>
1560                     <PUSH 'MOVEI>
1561                     <PUSH 'O1*>
1562                     <NTHL OPT4 1 = TEMP10 (TYPE FIX)>
1563                     <SUB 5 TEMP10 = TEMP15 (TYPE FIX)>
1564                     <DEAD TEMP10>
1565                     <GVAL 'GLUE-MODE = TEMP10>
1566                     <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE20>
1567                     <DEAD TEMP10>
1568                     <GVAL 'GLUE-PC = TEMP10>
1569                     <JUMP + PHRASE21>
1570 PHRASE20
1571                     <SET TEMP10 0 (TYPE FIX)>
1572 PHRASE21
1573                     <ADD TEMP15 TEMP10 = STACK (TYPE FIX)>
1574                     <DEAD TEMP15 TEMP10>
1575                     <PUSH (R*)>
1576                     <CALL '\1aOCEMIT 4>
1577                     <FRAME '\1aOCEMIT>
1578                     <PUSH 'ADD>
1579                     <PUSH 'O1*>
1580                     <PUSH 'O2*>
1581                     <CALL '\1aOCEMIT 3>
1582                     <FRAME '\1aOCEMIT>
1583                     <PUSH 'JRST>
1584                     <PUSH '@>
1585                     <PUSH (O1*)>
1586                     <CALL '\1aOCEMIT 3>
1587                     <JUMP + PHRASE24>
1588 PHRASE9
1589                     <FRAME '\1aOCEMIT>
1590                     <PUSH 'ADDI>
1591                     <PUSH 'O2*>
1592                     <NTHL OPT4 1 = TEMP15 (TYPE FIX)>
1593                     <SUB 2 TEMP15 = TEMP10 (TYPE FIX)>
1594                     <DEAD TEMP15>
1595                     <GVAL 'GLUE-MODE = TEMP15>
1596                     <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE27>
1597                     <DEAD TEMP15>
1598                     <GVAL 'GLUE-PC = TEMP15>
1599                     <JUMP + PHRASE28>
1600 PHRASE27
1601                     <SET TEMP15 0 (TYPE FIX)>
1602 PHRASE28
1603                     <ADD TEMP10 TEMP15 = STACK (TYPE FIX)>
1604                     <DEAD TEMP10 TEMP15>
1605                     <PUSH (R*)>
1606                     <CALL '\1aOCEMIT 4>
1607                     <FRAME '\1aOCEMIT>
1608                     <PUSH 'JRST>
1609                     <PUSH '@>
1610                     <PUSH (O2*)>
1611                     <CALL '\1aOCEMIT 3>
1612 PHRASE24
1613                     <SETG 'OPT-LIST OPT4>
1614                     <RESTL OPT4 1 = TEMP10 (TYPE LIST)>
1615                     <DEAD OPT4>
1616                     <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
1617                     <LOOP>
1618 MAP31
1619                     <INTGO>
1620                     <EMPL? TEMP10 + MAPAP34>
1621                     <NTHL TEMP10 1 = TEMP15>
1622                     <FRAME '\1aOCEMIT>
1623                     <PUSH 'DISPATCH>
1624                     <PUSH TEMP15>
1625                     <DEAD TEMP15>
1626                     <CALL '\1aOCEMIT 2>
1627                     <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
1628                     <JUMP + MAP31>
1629 MAPAP34
1630                     <SETG 'OPT-OFFSET OFF5>
1631                     <RETURN OFF5>
1632                     <DEAD OFF5>
1633                     <END \1aOPT-INIT>
1634 #WORD *32402601716*
1635 <GFCN \1aTEMP-INIT ("VALUE" <OR FALSE AC> LIST "OPTIONAL" <OR FALSE ATOM> ANY) LST7 TUP8 OLD9>
1636                     <OPT-DISPATCH 1 %<> OPT4 OPT5 OPT6>
1637 OPT4
1638                     <PUSH %<>>
1639 OPT5
1640                     <PUSH ()>
1641 OPT6
1642                     <TEMP (STK10 'TP*) (CNT11 0) TEMP21 TEMP26 TEMP27 VAR40 LCL44>
1643                     <INTGO>
1644                     <GVAL 'CC = CNT11>
1645                     <TYPE? TUP8 <TYPE-CODE FALSE> + PHRASE14>
1646                     <DEAD TUP8>
1647                     <FRAME '\1aOCEMIT>
1648                     <PUSH 'MOVE>
1649                     <PUSH 'O*>
1650                     <PUSH 'O2*>
1651                     <CALL '\1aOCEMIT 3>
1652                     <FRAME '\1aOCEMIT>
1653                     <PUSH 'MOVEI>
1654                     <PUSH 'O1*>
1655                     <GVAL 'NRARGS = STACK>
1656                     <CALL '\1aOCEMIT 3>
1657                     <FRAME '\1aOCEMIT>
1658                     <PUSH 'MOVEI>
1659                     <PUSH 'O2*>
1660                     <LENL LST7 = STK10 (TYPE FIX)>
1661                     <SUB STK10 2 = STACK (TYPE FIX)>
1662                     <DEAD STK10>
1663                     <CALL '\1aOCEMIT 3>
1664                     <FRAME '\1aPUSHJ>
1665                     <PUSH 'MAKTUP>
1666                     <SET STK10 LST7>
1667                     <LOOP (STK10 VALUE)>
1668 TAG20
1669                     <RESTL STK10 1 = TEMP21 (TYPE LIST)>
1670                     <EMPL? TEMP21 + TAG22>
1671                     <SET STK10 TEMP21>
1672                     <DEAD TEMP21>
1673                     <JUMP + TAG20>
1674 TAG22
1675                     <NTHL STK10 1 = STACK>
1676                     <DEAD STK10>
1677                     <CALL '\1aPUSHJ 2>
1678                     <FRAME '\1aOCEMIT>
1679                     <PUSH 'XMOVEI>
1680                     <PUSH 'B1*>
1681                     <GVAL 'NRARGS = TEMP21>
1682                     <LSH TEMP21 1 = TEMP21 (TYPE FIX)>
1683                     <ADD TEMP21 1 = STACK (TYPE FIX)>
1684                     <DEAD TEMP21>
1685                     <PUSH (F*)>
1686                     <CALL '\1aOCEMIT 4>
1687                     <SET STK10 'B1* (TYPE ATOM)>
1688 PHRASE14
1689                     <GVAL 'ICALL-FLAG = TEMP21>
1690                     <TYPE? TEMP21 <TYPE-CODE FALSE> + PHRASE25>
1691                     <DEAD TEMP21>
1692                     <GVAL 'ALL-TEMP-CC = TEMP21>
1693                     <GVAL 'TEMP-CC = TEMP26>
1694                     <CONS TEMP26 TEMP21 = TEMP26>
1695                     <DEAD TEMP21>
1696                     <SETG 'ALL-TEMP-CC TEMP26>
1697                     <DEAD TEMP26>
1698                     <GVAL 'ALL-ICALL-TEMPS = TEMP26>
1699                     <GVAL 'ICALL-TEMPS = TEMP21>
1700                     <GVAL 'ICALL-TEMPS = TEMP27>
1701                     <LENL TEMP27 = TEMP27 (TYPE FIX)>
1702                     <SUB TEMP27 1 = TEMP27 (TYPE FIX)>
1703                     <GRTR? TEMP27 0 - RESTL29 (TYPE FIX)>
1704                     <LOOP (TEMP21 VALUE) (TEMP27 VALUE)>
1705 RESTL28
1706                     <INTGO>
1707                     <RESTL TEMP21 1 = TEMP21 (TYPE LIST)>
1708                     <SUB TEMP27 1 = TEMP27 (TYPE FIX)>
1709                     <GRTR? TEMP27 0 + RESTL28 (TYPE FIX)>
1710 RESTL29
1711                     <CONS TEMP21 TEMP26 = TEMP26>
1712                     <DEAD TEMP21>
1713                     <SETG 'ALL-ICALL-TEMPS TEMP26>
1714                     <DEAD TEMP26>
1715                     <JUMP + PHRASE30>
1716 PHRASE25
1717                     <CONS 'T () = TEMP26>
1718                     <SETG 'ICALL-TEMPS TEMP26>
1719                     <CONS TEMP26 () = TEMP26>
1720                     <SETG 'ALL-ICALL-TEMPS TEMP26>
1721                     <DEAD TEMP26>
1722 PHRASE30
1723                     <SETG 'TEMP-CC CNT11>
1724                     <DEAD CNT11>
1725                     <SET TEMP26 LST7 (TYPE LIST)>
1726                     <DEAD LST7>
1727                     <LOOP>
1728 MAP32
1729                     <INTGO>
1730                     <EMPL? TEMP26 + MAPAP35>
1731                     <NTHL TEMP26 1 = CNT11>
1732                     <SET TEMP21 #T$UNBOUND 0>
1733                     <SET TEMP27 #LOSE 0 (TYPE LOSE)>
1734                     <EQUAL? CNT11 '= + MAPAP35>
1735                     <TYPE? CNT11 <TYPE-CODE ADECL> - PHRASE49>
1736                     <NTHUV CNT11 1 = VAR40 (TYPE ATOM)>
1737                     <NTHUV CNT11 2 = TEMP21 (TYPE ATOM)>
1738                     <DEAD CNT11>
1739                     <JUMP + PHRASE54>
1740 PHRASE49
1741                     <TYPE? CNT11 <TYPE-CODE LIST> - PHRASE50>
1742                     <NTHL CNT11 1 = TEMP27>
1743                     <TYPE? TEMP27 <TYPE-CODE ADECL> - PHRASE52>
1744                     <NTHUV TEMP27 1 = VAR40 (TYPE ATOM)>
1745                     <NTHUV TEMP27 2 = TEMP21 (TYPE ATOM)>
1746                     <DEAD TEMP27>
1747                     <JUMP + PHRASE53>
1748 PHRASE52
1749                     <SET VAR40 TEMP27>
1750                     <DEAD TEMP27>
1751 PHRASE53
1752                     <RESTL CNT11 1 = CNT11 (TYPE LIST)>
1753                     <NTHL CNT11 1 = TEMP27>
1754                     <DEAD CNT11>
1755                     <JUMP + PHRASE54>
1756 PHRASE50
1757                     <SET VAR40 CNT11>
1758                     <DEAD CNT11>
1759 PHRASE54
1760                     <FRAME '\1aLMEMQ>
1761                     <PUSH VAR40>
1762                     <PUSH OLD9>
1763                     <CALL '\1aLMEMQ 2 = LCL44>
1764                     <PUSH VAR40>
1765                     <DEAD VAR40>
1766                     <SET CNT11 LCL44>
1767                     <TYPE? CNT11 <TYPE-CODE FALSE> + PHRASE58>
1768                     <NTHUV LCL44 2 = CNT11>
1769                     <DEAD LCL44>
1770 PHRASE58
1771                     <PUSH CNT11>
1772                     <DEAD CNT11>
1773                     <GVAL 'LBLSEQ = CNT11>
1774                     <ADD CNT11 1 = CNT11 (TYPE FIX)>
1775                     <SETG 'LBLSEQ CNT11>
1776                     <CHTYPE CNT11 <TYPE-CODE LOCAL-NAME> = STACK>
1777                     <DEAD CNT11>
1778                     <TYPE? TEMP21 <TYPE-CODE UNBOUND> + PHRASE60>
1779                     <FRAME '\1aDECL-HACK>
1780                     <PUSH TEMP21>
1781                     <DEAD TEMP21>
1782                     <CALL '\1aDECL-HACK 1 = TEMP21>
1783                     <SET CNT11 TEMP21>
1784                     <JUMP + PHRASE62>
1785 PHRASE60
1786                     <SET CNT11 %<> (TYPE FALSE)>
1787 PHRASE62
1788                     <PUSH CNT11>
1789                     <DEAD CNT11>
1790                     <PUSH %<>>
1791                     <PUSH %<>>
1792                     <UBLOCK <TYPE-CODE VECTOR> 6 = CNT11>
1793                     <CHTYPE CNT11 <TYPE-CODE LOCAL> = LCL44>
1794                     <DEAD CNT11>
1795                     <TYPE? TEMP27 <TYPE-CODE LOSE> + PHRASE64>
1796                     <PUTUV LCL44 2 'TEMP>
1797 PHRASE64
1798                     <GVAL 'ICALL-FLAG = CNT11>
1799                     <TYPE? CNT11 <TYPE-CODE FALSE> + PHRASE66>
1800                     <DEAD CNT11>
1801                     <GVAL 'ICALL-TEMPS = CNT11>
1802                     <GVAL 'ICALL-TEMPS = VAR40>
1803                     <LENL VAR40 = VAR40 (TYPE FIX)>
1804                     <SUB VAR40 1 = VAR40 (TYPE FIX)>
1805                     <GRTR? VAR40 0 - RESTL69 (TYPE FIX)>
1806                     <LOOP (CNT11 VALUE) (VAR40 VALUE)>
1807 RESTL68
1808                     <INTGO>
1809                     <RESTL CNT11 1 = CNT11 (TYPE LIST)>
1810                     <SUB VAR40 1 = VAR40 (TYPE FIX)>
1811                     <GRTR? VAR40 0 + RESTL68 (TYPE FIX)>
1812 RESTL69
1813                     <CONS LCL44 () = VAR40>
1814                     <PUTREST CNT11 VAR40>
1815                     <DEAD CNT11 VAR40>
1816                     <JUMP + PHRASE70>
1817 PHRASE66
1818                     <GVAL 'LOCALS = CNT11>
1819                     <GVAL 'LOCALS = VAR40>
1820                     <LENL VAR40 = VAR40 (TYPE FIX)>
1821                     <SUB VAR40 1 = VAR40 (TYPE FIX)>
1822                     <GRTR? VAR40 0 - RESTL72 (TYPE FIX)>
1823                     <LOOP (CNT11 VALUE) (VAR40 VALUE)>
1824 RESTL71
1825                     <INTGO>
1826                     <RESTL CNT11 1 = CNT11 (TYPE LIST)>
1827                     <SUB VAR40 1 = VAR40 (TYPE FIX)>
1828                     <GRTR? VAR40 0 + RESTL71 (TYPE FIX)>
1829 RESTL72
1830                     <CONS LCL44 () = VAR40>
1831                     <PUTREST CNT11 VAR40>
1832                     <DEAD CNT11 VAR40>
1833 PHRASE70
1834                     <TYPE? TEMP21 <TYPE-CODE UNBOUND> + PHRASE74>
1835                     <TYPE? TEMP21 <TYPE-CODE FALSE> + PHRASE74>
1836                     <FRAME '\1aOCEMIT>
1837                     <PUSH 'PUSH>
1838                     <PUSH STK10>
1839                     <SET VAR40 2 (TYPE FIX)>
1840                     <SFRAME 'TYPE-WORD>
1841                     <PUSH TEMP21>
1842                     <DEAD TEMP21>
1843                     <SCALL '\1aTYPE-WORD 1 = CNT11 + TAG76 VAR40>
1844                     <LOOP (CNT11 TYPE VALUE LENGTH) (VAR40 VALUE)>
1845 TAG78
1846                     <INTGO>
1847                     <EMPTY? CNT11 + TAG76>
1848                     <NTH1 CNT11 = STACK>
1849                     <REST1 CNT11 = CNT11>
1850                     <ADD VAR40 1 = VAR40 (TYPE FIX)>
1851                     <JUMP + TAG78>
1852 TAG76
1853                     <CALL '\1aOCEMIT VAR40>
1854                     <DEAD VAR40>
1855                     <GVAL 'TYPED-LOCALS = VAR40>
1856                     <CONS LCL44 VAR40 = VAR40>
1857                     <DEAD LCL44>
1858                     <SETG 'TYPED-LOCALS VAR40>
1859                     <DEAD VAR40>
1860                     <TYPE? TEMP27 <TYPE-CODE LOSE> - PHRASE86>
1861                     <SET TEMP27 0 (TYPE FIX)>
1862                     <JUMP + PHRASE86>
1863 PHRASE74
1864                     <TYPE? TEMP27 <TYPE-CODE LOSE> - PHRASE81>
1865                     <FRAME '\1aOCEMIT>
1866                     <PUSH 'PUSH>
1867                     <PUSH STK10>
1868                     <SET CNT11 2 (TYPE FIX)>
1869                     <SFRAME 'OBJ-VAL>
1870                     <PUSH 0>
1871                     <SCALL '\1aOBJ-VAL 1 = VAR40 + TAG82 CNT11>
1872                     <LOOP (VAR40 TYPE VALUE LENGTH) (CNT11 VALUE)>
1873 TAG84
1874                     <INTGO>
1875                     <EMPTY? VAR40 + TAG82>
1876                     <NTH1 VAR40 = STACK>
1877                     <REST1 VAR40 = VAR40>
1878                     <ADD CNT11 1 = CNT11 (TYPE FIX)>
1879                     <JUMP + TAG84>
1880 TAG82
1881                     <CALL '\1aOCEMIT CNT11>
1882                     <DEAD CNT11>
1883                     <SET TEMP27 0 (TYPE FIX)>
1884                     <JUMP + PHRASE86>
1885 PHRASE81
1886                     <FRAME '\1aOCEMIT>
1887                     <PUSH 'PUSH>
1888                     <PUSH STK10>
1889                     <SET VAR40 2 (TYPE FIX)>
1890                     <SFRAME 'OBJ-LOC>
1891                     <PUSH TEMP27>
1892                     <PUSH 0>
1893                     <SCALL '\1aOBJ-LOC 2 = CNT11 + TAG87 VAR40>
1894                     <LOOP (CNT11 TYPE VALUE LENGTH) (VAR40 VALUE)>
1895 TAG89
1896                     <INTGO>
1897                     <EMPTY? CNT11 + TAG87>
1898                     <NTH1 CNT11 = STACK>
1899                     <REST1 CNT11 = CNT11>
1900                     <ADD VAR40 1 = VAR40 (TYPE FIX)>
1901                     <JUMP + TAG89>
1902 TAG87
1903                     <CALL '\1aOCEMIT VAR40>
1904                     <DEAD VAR40>
1905 PHRASE86
1906                     <FRAME '\1aOCEMIT>
1907                     <PUSH 'PUSH>
1908                     <PUSH STK10>
1909                     <SET CNT11 2 (TYPE FIX)>
1910                     <SFRAME 'OBJ-VAL>
1911                     <PUSH TEMP27>
1912                     <DEAD TEMP27>
1913                     <SCALL '\1aOBJ-VAL 1 = VAR40 + TAG91 CNT11>
1914                     <LOOP (VAR40 TYPE VALUE LENGTH) (CNT11 VALUE)>
1915 TAG93
1916                     <INTGO>
1917                     <EMPTY? VAR40 + TAG91>
1918                     <NTH1 VAR40 = STACK>
1919                     <REST1 VAR40 = VAR40>
1920                     <ADD CNT11 1 = CNT11 (TYPE FIX)>
1921                     <JUMP + TAG93>
1922 TAG91
1923                     <CALL '\1aOCEMIT CNT11>
1924                     <DEAD CNT11>
1925                     <RESTL TEMP26 1 = TEMP26 (TYPE LIST)>
1926                     <JUMP + MAP32>
1927 MAPAP35
1928                     <VEQUAL? STK10 'B1* + TAG97>
1929                     <DEAD STK10>
1930                     <RETURN %<>>
1931 TAG97
1932                     <FRAME '\1aGET-AC>
1933                     <PUSH 'B1*>
1934                     <CALL '\1aGET-AC 1 = STK10>
1935                     <PUTUV STK10 4 0 (TYPE FIX)>
1936                     <RETURN STK10>
1937                     <DEAD STK10>
1938                     <END \1aTEMP-INIT>
1939 #WORD *32347155076*
1940 <GFCN \1aPRE-HACK ("VALUE" ATOM LIST) L4>
1941                     <TEMP FIX-LABS10 FIRST11 WIN9 LR5 TEMP20 TEMP19:LIST LL24:LIST FRM25 TEMP40 TEMP53 M26 LBL30:ATOM>
1942                     <INTGO>
1943                     <SETG 'THE-BIG-LABELS ()>
1944                     <SET FIX-LABS10 %<> (TYPE FALSE)>
1945                     <SET FIRST11 'T (TYPE ATOM)>
1946                     <LOOP>
1947 AGAIN12
1948                     <INTGO>
1949                     <SET WIN9 %<> (TYPE FALSE)>
1950                     <SET LR5 () (TYPE LIST)>
1951                     <SET TEMP20 () (TYPE LIST)>
1952                     <SET TEMP19 L4 (TYPE LIST)>
1953                     <LOOP>
1954 MAP14
1955                     <INTGO>
1956                     <EMPL? TEMP19 + MAPAP17>
1957                     <SET LL24 TEMP19>
1958                     <NTHL LL24 1 = FRM25>
1959                     <TYPE? FRM25 <TYPE-CODE ATOM> + PHRASE113>
1960                     <VEQUAL? FIRST11 0 + PHRASE35>
1961                     <FRAME '\1aREMOVE-FUNNY-DEADS>
1962                     <PUSH FRM25>
1963                     <CALL '\1aREMOVE-FUNNY-DEADS 1>
1964 PHRASE35
1965                     <NTHL FRM25 1 = TEMP40>
1966                     <EQUAL? TEMP40 'OPT-DISPATCH + BOOL39>
1967                     <DEAD TEMP40>
1968                     <NTHL FRM25 1 = TEMP40>
1969                     <EQUAL? TEMP40 'DISPATCH - PHRASE38>
1970                     <DEAD TEMP40>
1971 BOOL39
1972                     <VEQUAL? FIX-LABS10 0 + MAPAP47>
1973                     <RESTL FRM25 1 = TEMP40 (TYPE LIST)>
1974                     <RESTL TEMP40 1 = TEMP40 (TYPE LIST)>
1975                     <RESTL TEMP40 1 = TEMP53 (TYPE LIST)>
1976                     <DEAD TEMP40>
1977                     <CHTYPE TEMP53 <TYPE-CODE LIST> = TEMP53>
1978                     <LOOP>
1979 MAP44
1980                     <INTGO>
1981                     <EMPL? TEMP53 + MAPAP47>
1982                     <SET LL24 TEMP53>
1983                     <FRAME '\1aFIX-LAB>
1984                     <NTHL LL24 1 = STACK>
1985                     <CALL '\1aFIX-LAB 1 = TEMP40>
1986                     <PUTL LL24 1 TEMP40>
1987                     <DEAD LL24 TEMP40>
1988                     <RESTL TEMP53 1 = TEMP53 (TYPE LIST)>
1989                     <JUMP + MAP44>
1990 MAPAP47
1991                     <RESTL FRM25 1 = TEMP53 (TYPE LIST)>
1992                     <DEAD FRM25>
1993                     <RESTL TEMP53 1 = TEMP53 (TYPE LIST)>
1994                     <RESTL TEMP53 1 = LL24 (TYPE LIST)>
1995                     <DEAD TEMP53>
1996                     <CHTYPE LL24 <TYPE-CODE LIST> = LL24>
1997                     <LOOP (LL24 VALUE)>
1998 TAG60
1999                     <INTGO>
2000                     <EMPL? LL24 + PHRASE113>
2001                     <NTHL LL24 1 = TEMP53>
2002                     <CONS TEMP53 () = TEMP53 (TYPE LIST)>
2003                     <EMPL? LR5 - TAG61>
2004                     <SET LR5 TEMP53 (TYPE LIST)>
2005                     <JUMP + TAG62>
2006 TAG61
2007                     <PUTREST TEMP20 TEMP53>
2008                     <DEAD TEMP20>
2009 TAG62
2010                     <SET TEMP20 TEMP53 (TYPE LIST)>
2011                     <DEAD TEMP53>
2012                     <RESTL LL24 1 = LL24 (TYPE LIST)>
2013                     <JUMP + TAG60>
2014 PHRASE38
2015                     <SET M26 FRM25>
2016                     <CHTYPE M26 <TYPE-CODE LIST> = M26>
2017                     <LOOP (M26 VALUE)>
2018 TAG67
2019                     <NTHL M26 1 = TEMP53>
2020                     <TYPE? TEMP53 <TYPE-CODE ATOM> - TAG68>
2021                     <VEQUAL? TEMP53 '+ + BOOL64>
2022                     <DEAD TEMP53>
2023 TAG68
2024                     <RESTL M26 1 = M26 (TYPE LIST)>
2025                     <EMPL? M26 - TAG67>
2026                     <CHTYPE FRM25 <TYPE-CODE LIST> = TEMP53>
2027                     <LOOP (TEMP53 VALUE)>
2028 TAG71
2029                     <NTHL TEMP53 1 = TEMP40>
2030                     <TYPE? TEMP40 <TYPE-CODE ATOM> - TAG72>
2031                     <VEQUAL? TEMP40 '- + TAG69>
2032                     <DEAD TEMP40>
2033 TAG72
2034                     <RESTL TEMP53 1 = TEMP53 (TYPE LIST)>
2035                     <EMPL? TEMP53 - TAG71>
2036                     <JUMP + TAG70>
2037 TAG69
2038                     <SET M26 TEMP53>
2039                     <DEAD TEMP53>
2040                     <JUMP + BOOL64>
2041 TAG70
2042                     <NTHL FRM25 1 = TEMP53>
2043                     <EQUAL? TEMP53 'NTHR - PHRASE102>
2044                     <DEAD TEMP53>
2045                     <SET TEMP40 FRM25>
2046                     <LOOP (TEMP40 VALUE)>
2047 TAG74
2048                     <RESTL TEMP40 1 = TEMP53 (TYPE LIST)>
2049                     <EMPL? TEMP53 + TAG75>
2050                     <SET TEMP40 TEMP53>
2051                     <DEAD TEMP53>
2052                     <JUMP + TAG74>
2053 TAG75
2054                     <NTHL TEMP40 1 = TEMP40>
2055                     <TYPE? TEMP40 <TYPE-CODE LIST> - PHRASE102>
2056                     <NTHL TEMP40 1 = TEMP53>
2057                     <EQUAL? TEMP53 'BRANCH-FALSE - PHRASE102>
2058                     <DEAD TEMP53>
2059                     <RESTL TEMP40 1 = M26 (TYPE LIST)>
2060                     <DEAD TEMP40>
2061 BOOL64
2062                     <RESTL M26 1 = TEMP53 (TYPE LIST)>
2063                     <NTHL TEMP53 1 = LBL30 (TYPE ATOM)>
2064                     <DEAD TEMP53>
2065                     <VEQUAL? LBL30 'COMPERR + BOOL78>
2066                     <VEQUAL? LBL30 'UNWCONT + BOOL78>
2067                     <VEQUAL? LBL30 'IOERR - PHRASE77>
2068 BOOL78
2069                     <CONS LBL30 () = TEMP53 (TYPE LIST)>
2070                     <DEAD LBL30>
2071                     <EMPL? LR5 - TAG80>
2072                     <SET LR5 TEMP53 (TYPE LIST)>
2073                     <JUMP + TAG81>
2074 TAG80
2075                     <PUTREST TEMP20 TEMP53>
2076                     <DEAD TEMP20>
2077 TAG81
2078                     <SET TEMP20 TEMP53 (TYPE LIST)>
2079                     <DEAD TEMP53>
2080                     <JUMP + PHRASE113>
2081 PHRASE77
2082                     <VEQUAL? FIX-LABS10 0 + PHRASE82>
2083                     <FRAME '\1aFIX-LAB>
2084                     <PUSH LBL30>
2085                     <CALL '\1aFIX-LAB 1 = TEMP53>
2086                     <RESTL M26 1 = TEMP40 (TYPE LIST)>
2087                     <DEAD M26>
2088                     <PUTL TEMP40 1 TEMP53>
2089                     <DEAD TEMP40 TEMP53>
2090                     <CONS LBL30 () = TEMP53 (TYPE LIST)>
2091                     <DEAD LBL30>
2092                     <EMPL? LR5 - TAG85>
2093                     <SET LR5 TEMP53 (TYPE LIST)>
2094                     <JUMP + TAG86>
2095 TAG85
2096                     <PUTREST TEMP20 TEMP53>
2097                     <DEAD TEMP20>
2098 TAG86
2099                     <SET TEMP20 TEMP53 (TYPE LIST)>
2100                     <DEAD TEMP53>
2101                     <JUMP + PHRASE113>
2102 PHRASE82
2103                     <SET TEMP40 L4>
2104                     <EMPL? TEMP40 + TAG88>
2105                     <LOOP (LBL30 VALUE) (TEMP40 VALUE)>
2106 TAG89
2107                     <NTHL TEMP40 1 = TEMP53>
2108                     <TYPE? TEMP53 <TYPE-CODE ATOM> - TAG90>
2109                     <VEQUAL? TEMP53 LBL30 + PHRASE91>
2110                     <DEAD TEMP53>
2111 TAG90
2112                     <RESTL TEMP40 1 = TEMP40 (TYPE LIST)>
2113                     <EMPL? TEMP40 - TAG89>
2114 TAG88
2115                     <SET TEMP40 %<> (TYPE FALSE)>
2116                     <FRAME '\1aMIMOCERR>
2117                     <PUSH 'BAD-LABEL!-ERRORS>
2118                     <PUSH LBL30>
2119                     <CALL '\1aMIMOCERR 2>
2120 PHRASE91
2121                     <FRAME '\1aNEXTINS>
2122                     <PUSH TEMP40>
2123                     <DEAD TEMP40>
2124                     <CALL '\1aNEXTINS 1 = TEMP40>
2125                     <NTHL TEMP40 1 = TEMP53>
2126                     <EQUAL? TEMP53 'JUMP - PHRASE94>
2127                     <DEAD TEMP53>
2128                     <RESTL TEMP40 1 = TEMP53 (TYPE LIST)>
2129                     <DEAD TEMP40>
2130                     <RESTL TEMP53 1 = TEMP53 (TYPE LIST)>
2131                     <NTHL TEMP53 1 = TEMP53>
2132                     <RESTL M26 1 = TEMP40 (TYPE LIST)>
2133                     <PUTL TEMP40 1 TEMP53>
2134                     <DEAD TEMP40 TEMP53>
2135                     <RESTL M26 1 = TEMP53 (TYPE LIST)>
2136                     <DEAD M26>
2137                     <NTHL TEMP53 1 = TEMP53>
2138                     <CONS TEMP53 () = TEMP53 (TYPE LIST)>
2139                     <EMPL? LR5 - TAG97>
2140                     <SET LR5 TEMP53 (TYPE LIST)>
2141                     <JUMP + TAG98>
2142 TAG97
2143                     <PUTREST TEMP20 TEMP53>
2144                     <DEAD TEMP20>
2145 TAG98
2146                     <SET TEMP20 TEMP53 (TYPE LIST)>
2147                     <DEAD TEMP53>
2148                     <JUMP + PHRASE113>
2149 PHRASE94
2150                     <NTHL FRM25 1 = TEMP53>
2151                     <DEAD FRM25>
2152                     <EQUAL? TEMP53 'JUMP - PHRASE99>
2153                     <DEAD TEMP53>
2154                     <NTHL TEMP40 1 = TEMP53>
2155                     <EQUAL? TEMP53 'RETURN - PHRASE99>
2156                     <DEAD TEMP53>
2157                     <PUTL LL24 1 TEMP40>
2158                     <DEAD LL24 TEMP40>
2159                     <JUMP + PHRASE113>
2160 PHRASE99
2161                     <CONS LBL30 () = TEMP53 (TYPE LIST)>
2162                     <DEAD LBL30>
2163                     <EMPL? LR5 - TAG104>
2164                     <SET LR5 TEMP53 (TYPE LIST)>
2165                     <JUMP + TAG105>
2166 TAG104
2167                     <PUTREST TEMP20 TEMP53>
2168                     <DEAD TEMP20>
2169 TAG105
2170                     <SET TEMP20 TEMP53 (TYPE LIST)>
2171                     <DEAD TEMP53>
2172                     <JUMP + PHRASE113>
2173 PHRASE102
2174                     <NTHL FRM25 1 = TEMP53>
2175                     <EQUAL? TEMP53 'ICALL - PHRASE113>
2176                     <DEAD TEMP53>
2177                     <VEQUAL? FIX-LABS10 0 + PHRASE108>
2178                     <FRAME '\1aFIX-LAB>
2179                     <RESTL FRM25 1 = TEMP53 (TYPE LIST)>
2180                     <NTHL TEMP53 1 = STACK>
2181                     <DEAD TEMP53>
2182                     <CALL '\1aFIX-LAB 1 = TEMP53>
2183                     <RESTL FRM25 1 = TEMP40 (TYPE LIST)>
2184                     <PUTL TEMP40 1 TEMP53>
2185                     <DEAD TEMP40 TEMP53>
2186 PHRASE108
2187                     <RESTL FRM25 1 = TEMP53 (TYPE LIST)>
2188                     <DEAD FRM25>
2189                     <NTHL TEMP53 1 = TEMP53>
2190                     <CONS TEMP53 () = TEMP53 (TYPE LIST)>
2191                     <EMPL? LR5 - TAG111>
2192                     <SET LR5 TEMP53 (TYPE LIST)>
2193                     <JUMP + TAG112>
2194 TAG111
2195                     <PUTREST TEMP20 TEMP53>
2196                     <DEAD TEMP20>
2197 TAG112
2198                     <SET TEMP20 TEMP53 (TYPE LIST)>
2199                     <DEAD TEMP53>
2200 PHRASE113
2201                     <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
2202                     <JUMP + MAP14>
2203 MAPAP17
2204                     <SET FIRST11 %<> (TYPE FALSE)>
2205                     <SET TEMP19 L4>
2206                     <SET LL24 TEMP19>
2207                     <SET TEMP20 %<> (TYPE FALSE)>
2208                     <LOOP>
2209 AGAIN120
2210                     <INTGO>
2211                     <EMPL? TEMP19 + EXIT115 (TYPE LIST)>
2212                     <NTHL TEMP19 1 = FRM25>
2213                     <TYPE? FRM25 <TYPE-CODE ATOM> - PHRASE123>
2214                     <VEQUAL? FIX-LABS10 0 + PHRASE125>
2215                     <FRAME '\1aFIX-LAB>
2216                     <PUSH FRM25>
2217                     <DEAD FRM25>
2218                     <CALL '\1aFIX-LAB 1 = FRM25>
2219                     <PUTL TEMP19 1 FRM25>
2220                     <FRAME '\1aMAKE-LABEL>
2221                     <PUSH FRM25>
2222                     <DEAD FRM25>
2223                     <PUSH %<>>
2224                     <PUSH TEMP19>
2225                     <PUSH TEMP20>
2226                     <DEAD TEMP20>
2227                     <CALL '\1aMAKE-LABEL 4>
2228                     <SET LL24 TEMP19>
2229                     <JUMP + PHRASE160>
2230 PHRASE125
2231                     <SET TEMP53 LR5>
2232                     <EMPL? TEMP53 + TAG129>
2233                     <LOOP (FRM25 VALUE) (TEMP53 VALUE)>
2234 TAG130
2235                     <NTHL TEMP53 1 = TEMP40>
2236                     <TYPE? TEMP40 <TYPE-CODE ATOM> - TAG131>
2237                     <VEQUAL? TEMP40 FRM25 + PHRASE128>
2238                     <DEAD TEMP40>
2239 TAG131
2240                     <RESTL TEMP53 1 = TEMP53 (TYPE LIST)>
2241                     <EMPL? TEMP53 - TAG130>
2242 TAG129
2243                     <RESTL TEMP19 1 = TEMP53 (TYPE LIST)>
2244                     <DEAD TEMP19>
2245                     <PUTREST LL24 TEMP53>
2246                     <DEAD TEMP53>
2247                     <SET TEMP19 LL24>
2248                     <SET WIN9 'T (TYPE ATOM)>
2249                     <JUMP + PHRASE160>
2250 PHRASE128
2251                     <SET LL24 TEMP19>
2252                     <JUMP + PHRASE160>
2253 PHRASE123
2254                     <VEQUAL? FIX-LABS10 0 + PHRASE133>
2255                     <TYPE? FRM25 <TYPE-CODE FORM> - PHRASE133>
2256                     <NTHL FRM25 1 = TEMP53>
2257                     <EQUAL? TEMP53 'ACTIVATION - PHRASE133>
2258                     <DEAD TEMP53>
2259                     <FRAME '\1aGENLBL>
2260                     <PUSH "ACT">
2261                     <CALL '\1aGENLBL 1 = FRM25>
2262                     <CONS FRM25 () = TEMP53>
2263                     <GVAL 'THE-BIG-LABELS = TEMP40 (TYPE LIST)>
2264                     <PUTREST TEMP53 TEMP40>
2265                     <DEAD TEMP40>
2266                     <SETG 'THE-BIG-LABELS TEMP53>
2267                     <DEAD TEMP53>
2268                     <FRAME '\1aMAKE-LABEL>
2269                     <PUSH FRM25>
2270                     <DEAD FRM25>
2271                     <PUSH %<>>
2272                     <PUSH TEMP19>
2273                     <PUSH 'T>
2274                     <CALL '\1aMAKE-LABEL 4>
2275                     <SET LL24 TEMP19>
2276                     <JUMP + PHRASE160>
2277 PHRASE133
2278                     <TYPE? FRM25 <TYPE-CODE FORM> - PHRASE137>
2279                     <NTHL FRM25 1 = TEMP53>
2280                     <EQUAL? TEMP53 'LOOP - PHRASE137>
2281                     <DEAD TEMP53>
2282                     <SET TEMP20 'T (TYPE ATOM)>
2283                     <SET LL24 TEMP19>
2284                     <DEAD TEMP19>
2285                     <RESTL LL24 1 = TEMP19 (TYPE LIST)>
2286                     <JUMP + AGAIN120>
2287 PHRASE137
2288                     <TYPE? FRM25 <TYPE-CODE FORM> - PHRASE139>
2289                     <NTHL FRM25 1 = TEMP53>
2290                     <DEAD FRM25>
2291                     <EQUAL? TEMP53 'JUMP - PHRASE139>
2292                     <DEAD TEMP53>
2293                     <NTHL LL24 1 = FRM25>
2294                     <TYPE? FRM25 <TYPE-CODE FORM> - PHRASE139>
2295                     <NTHL FRM25 1 = TEMP53>
2296                     <DEAD FRM25>
2297                     <EQUAL? TEMP53 'JUMP - PHRASE139>
2298                     <DEAD TEMP53>
2299                     <RESTL TEMP19 1 = TEMP53 (TYPE LIST)>
2300                     <PUTREST LL24 TEMP53>
2301                     <DEAD TEMP53>
2302                     <SET WIN9 'T (TYPE ATOM)>
2303                     <JUMP + PHRASE160>
2304 PHRASE139
2305                     <NTHL TEMP19 1 = FRM25>
2306                     <TYPE? FRM25 <TYPE-CODE FORM> - PHRASE141>
2307                     <NTHL FRM25 1 = TEMP53>
2308                     <EQUAL? TEMP53 'JUMP - PHRASE141>
2309                     <DEAD TEMP53>
2310                     <EMPL? TEMP19 + PHRASE141>
2311                     <RESTL TEMP19 1 = TEMP53 (TYPE LIST)>
2312                     <EMPL? TEMP53 + PHRASE141>
2313                     <DEAD TEMP53>
2314                     <RESTL TEMP19 1 = TEMP53 (TYPE LIST)>
2315                     <NTHL TEMP53 1 = TEMP53>
2316                     <RESTL FRM25 1 = TEMP40 (TYPE LIST)>
2317                     <RESTL TEMP40 1 = TEMP40 (TYPE LIST)>
2318                     <NTHL TEMP40 1 = TEMP40>
2319                     <EQUAL? TEMP53 TEMP40 - PHRASE141>
2320                     <DEAD TEMP53 TEMP40>
2321                     <RESTL TEMP19 1 = TEMP40 (TYPE LIST)>
2322                     <PUTREST LL24 TEMP40>
2323                     <DEAD TEMP40>
2324                     <SET WIN9 'T (TYPE ATOM)>
2325                     <JUMP + PHRASE160>
2326 PHRASE141
2327                     <TYPE? FRM25 <TYPE-CODE FORM> - PHRASE143>
2328                     <NTHL FRM25 1 = TEMP40>
2329                     <EQUAL? TEMP40 'JUMP - PHRASE143>
2330                     <DEAD TEMP40>
2331                     <EMPL? TEMP19 + PHRASE143>
2332                     <RESTL TEMP19 1 = TEMP40 (TYPE LIST)>
2333                     <EMPL? TEMP40 + PHRASE143>
2334                     <DEAD TEMP40>
2335                     <RESTL TEMP19 1 = TEMP40 (TYPE LIST)>
2336                     <NTHL TEMP40 1 = TEMP40>
2337                     <TYPE? TEMP40 <TYPE-CODE ATOM> + PHRASE143>
2338                     <DEAD TEMP40>
2339                     <RESTL TEMP19 1 = TEMP53 (TYPE LIST)>
2340                     <RESTL TEMP53 1 = TEMP40 (TYPE LIST)>
2341                     <DEAD TEMP53>
2342                     <PUTREST TEMP19 TEMP40>
2343                     <DEAD TEMP40>
2344                     <SET WIN9 'T (TYPE ATOM)>
2345                     <JUMP + PHRASE160>
2346 PHRASE143
2347                     <TYPE? FRM25 <TYPE-CODE FORM> - PHRASE145>
2348                     <NTHL FRM25 1 = TEMP40>
2349                     <EQUAL? TEMP40 'RETURN + BOOL147>
2350                     <DEAD TEMP40>
2351                     <NTHL FRM25 1 = TEMP40>
2352                     <EQUAL? TEMP40 'RTUPLE + BOOL147>
2353                     <DEAD TEMP40>
2354                     <NTHL FRM25 1 = TEMP40>
2355                     <EQUAL? TEMP40 'AGAIN + BOOL147>
2356                     <DEAD TEMP40>
2357                     <NTHL FRM25 1 = TEMP40>
2358                     <EQUAL? TEMP40 'RETRY + BOOL147>
2359                     <DEAD TEMP40>
2360                     <NTHL FRM25 1 = TEMP40>
2361                     <DEAD FRM25>
2362                     <EQUAL? TEMP40 'MRETURN - PHRASE145>
2363                     <DEAD TEMP40>
2364 BOOL147
2365                     <RESTL TEMP19 1 = LL24 (TYPE LIST)>
2366                     <LOOP>
2367 AGAIN150
2368                     <INTGO>
2369                     <EMPL? LL24 + BOOL153 (TYPE LIST)>
2370                     <NTHL LL24 1 = FRM25>
2371                     <TYPE? FRM25 <TYPE-CODE ATOM> - PHRASE152>
2372 BOOL153
2373                     <RESTL TEMP19 1 = TEMP53 (TYPE LIST)>
2374                     <VEQUAL? TEMP53 LL24 + EXIT148>
2375                     <DEAD TEMP53>
2376                     <SET WIN9 'T (TYPE ATOM)>
2377                     <PUTREST TEMP19 LL24>
2378                     <DEAD LL24>
2379                     <JUMP + EXIT148>
2380 PHRASE152
2381                     <NTH1 FRM25 = TEMP53>
2382                     <DEAD FRM25>
2383                     <EQUAL? TEMP53 'DEAD - PHRASE157>
2384                     <DEAD TEMP53>
2385                     <RESTL TEMP19 1 = TEMP53 (TYPE LIST)>
2386                     <VEQUAL? TEMP53 LL24 + PHRASE159>
2387                     <DEAD TEMP53>
2388                     <SET WIN9 'T (TYPE ATOM)>
2389                     <PUTREST TEMP19 LL24>
2390                     <DEAD TEMP19>
2391 PHRASE159
2392                     <SET TEMP19 LL24>
2393 PHRASE157
2394                     <RESTL LL24 1 = LL24 (TYPE LIST)>
2395                     <JUMP + AGAIN150>
2396 EXIT148
2397                     <SET LL24 TEMP19>
2398                     <JUMP + PHRASE160>
2399 PHRASE145
2400                     <SET LL24 TEMP19>
2401 PHRASE160
2402                     <SET TEMP20 %<> (TYPE FALSE)>
2403                     <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
2404                     <JUMP + AGAIN120>
2405 EXIT115
2406                     <VEQUAL? FIX-LABS10 0 + PHRASE162>
2407                     <RETURN 'T>
2408 PHRASE162
2409                     <VEQUAL? WIN9 0 - AGAIN12>
2410                     <DEAD WIN9>
2411                     <SET FIX-LABS10 'T (TYPE ATOM)>
2412                     <JUMP + AGAIN12>
2413                     <END \1aPRE-HACK>
2414 #WORD *1210473152*
2415                     <GFCN \1aREMOVE-FUNNY-DEADS ("VALUE" ATOM FORM) FRM4>
2416                     <TEMP N5 L9 TEMP15:FIX TEMP23>
2417                     <INTGO>
2418                     <LENL FRM4 = N5 (TYPE FIX)>
2419                     <LOOP>
2420 AGAIN11
2421                     <INTGO>
2422                     <SET TEMP15 N5>
2423                     <SET L9 FRM4>
2424                     <SUB TEMP15 1 = TEMP15 (TYPE FIX)>
2425                     <GRTR? TEMP15 0 - RESTL18 (TYPE FIX)>
2426                     <LOOP (L9 VALUE) (TEMP15 VALUE)>
2427 RESTL16
2428                     <INTGO>
2429                     <RESTL L9 1 = L9 (TYPE LIST)>
2430                     <SUB TEMP15 1 = TEMP15 (TYPE FIX)>
2431                     <GRTR? TEMP15 0 + RESTL16 (TYPE FIX)>
2432 RESTL18
2433                     <NTHL L9 1 = L9>
2434                     <TYPE? L9 <TYPE-CODE LIST> - PHRASE13>
2435                     <EMPL? L9 + PHRASE13 (TYPE LIST)>
2436                     <NTHL L9 1 = L9>
2437                     <EQUAL? L9 'DEAD-FALL + BOOL19>
2438                     <EQUAL? L9 'DEAD-JUMP - PHRASE13>
2439                     <DEAD L9>
2440 BOOL19
2441                     <SUB N5 2 = TEMP15 (TYPE FIX)>
2442                     <SET L9 FRM4>
2443                     <GRTR? TEMP15 0 - RESTL21 (TYPE FIX)>
2444                     <LOOP (L9 VALUE) (TEMP15 VALUE)>
2445 RESTL20
2446                     <INTGO>
2447                     <RESTL L9 1 = L9 (TYPE LIST)>
2448                     <SUB TEMP15 1 = TEMP15 (TYPE FIX)>
2449                     <GRTR? TEMP15 0 + RESTL20 (TYPE FIX)>
2450 RESTL21
2451                     <CHTYPE L9 <TYPE-CODE LIST> = L9>
2452                     <SET TEMP15 N5>
2453                     <SET TEMP23 FRM4>
2454                     <GRTR? TEMP15 0 - RESTL24 (TYPE FIX)>
2455                     <LOOP (TEMP23 VALUE) (TEMP15 VALUE)>
2456 RESTL22
2457                     <INTGO>
2458                     <RESTL TEMP23 1 = TEMP23 (TYPE LIST)>
2459                     <SUB TEMP15 1 = TEMP15 (TYPE FIX)>
2460                     <GRTR? TEMP15 0 + RESTL22 (TYPE FIX)>
2461 RESTL24
2462                     <CHTYPE TEMP23 <TYPE-CODE LIST> = TEMP23>
2463                     <PUTREST L9 TEMP23>
2464                     <DEAD L9 TEMP23>
2465                     <SUB N5 1 = N5 (TYPE FIX)>
2466                     <JUMP + PHRASE25>
2467 PHRASE13
2468                     <SUB N5 1 = N5 (TYPE FIX)>
2469 PHRASE25
2470                     <GRTR? N5 1 + AGAIN11 (TYPE FIX)>
2471                     <RETURN 'T>
2472                     <END \1aREMOVE-FUNNY-DEADS>
2473
2474 #WORD *4110654335*
2475 <GFCN \1aFIX-LAB ("VALUE" ANY ANY) X4>
2476                     <TEMP TEMP6>
2477                     <INTGO>
2478                     <NTHR X4 3 = X4 (RECORD-TYPE ATOM)>
2479                     <FRAME '\1aLOOKUP>
2480                     <PUSH X4>
2481                     <GVAL 'LABEL-OBLIST = STACK>
2482                     <CALL '\1aLOOKUP 2 = TEMP6>
2483                     <TYPE? TEMP6 <TYPE-CODE FALSE> - BOOL5>
2484                     <FRAME '\1aINSERT>
2485                     <PUSH X4>
2486                     <DEAD X4>
2487                     <GVAL 'LABEL-OBLIST = STACK>
2488                     <CALL '\1aINSERT 2 = TEMP6>
2489 BOOL5
2490                     <RETURN TEMP6>
2491                     <DEAD TEMP6>
2492                     <END \1aFIX-LAB>
2493 #WORD *25164700723*
2494 <GFCN \1aFIXUP-REFS ("VALUE" ANY)>
2495                     <TEMP TEMP12 C4:LIST (PC5 0) OFF9 C26 TEMP34 R27 TG8 NPC63:FIX>
2496                     <INTGO>
2497                     <GVAL 'CODE = TEMP12>
2498                     <RESTL TEMP12 1 = C4 (TYPE LIST)>
2499                     <DEAD TEMP12>
2500                     <GVAL 'GLUE-MODE = TEMP12>
2501                     <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE14>
2502                     <DEAD TEMP12>
2503                     <GVAL 'GLUE-PC = TEMP12>
2504                     <JUMP + PHRASE15>
2505 PHRASE14
2506                     <SET TEMP12 0 (TYPE FIX)>
2507 PHRASE15
2508                     <SET OFF9 TEMP12>
2509                     <DEAD TEMP12>
2510                     <GVAL 'WINNING-VICTIM = TEMP12>
2511                     <SET TEMP12 C4 (TYPE LIST)>
2512                     <LOOP>
2513 MAP17
2514                     <INTGO>
2515                     <EMPL? TEMP12 + MAPAP20>
2516                     <NTHL TEMP12 1 = C26>
2517                     <TYPE? C26 <TYPE-CODE INST> - PHRASE39>
2518                     <LENUV C26 = TEMP34 (TYPE FIX)>
2519                     <NTHUV C26 TEMP34 = R27>
2520                     <DEAD TEMP34>
2521                     <TYPE? R27 <TYPE-CODE REF> - PHRASE33>
2522                     <NTHUV R27 1 = C26>
2523                     <DEAD R27>
2524                     <TYPE? C26 <TYPE-CODE ATOM> - PHRASE39>
2525                     <FRAME '\1aFIND-LABEL>
2526                     <PUSH C26>
2527                     <DEAD C26>
2528                     <CALL '\1aFIND-LABEL 1 = C26>
2529                     <TYPE? C26 <TYPE-CODE FALSE> + PHRASE39>
2530                     <PUTUV C26 2 0>
2531                     <DEAD C26>
2532                     <JUMP + PHRASE39>
2533 PHRASE33
2534                     <TYPE? R27 <TYPE-CODE FORM> + TAG40>
2535                     <TYPE? R27 <TYPE-CODE GVAL> - PHRASE39>
2536 TAG40
2537                     <LENUV C26 = TEMP34 (TYPE FIX)>
2538                     <FRAME '\1aEVAL>
2539                     <PUSH R27>
2540                     <DEAD R27>
2541                     <CALL '\1aEVAL 1 = R27>
2542                     <PUTUV C26 TEMP34 R27>
2543                     <DEAD C26 TEMP34 R27>
2544 PHRASE39
2545                     <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
2546                     <JUMP + MAP17>
2547 MAPAP20
2548                     <LOOP>
2549 AGAIN44
2550                     <INTGO>
2551                     <EMPL? C4 - PHRASE46 (TYPE LIST)>
2552                     <SETG 'CODE-LENGTH PC5>
2553                     <DEAD PC5>
2554                     <JUMP + EXIT43>
2555 PHRASE46
2556                     <NTHL C4 1 = TEMP12>
2557                     <TYPE? TEMP12 <TYPE-CODE ATOM> - PHRASE47>
2558                     <FRAME '\1aFIND-LABEL>
2559                     <PUSH TEMP12>
2560                     <DEAD TEMP12>
2561                     <CALL '\1aFIND-LABEL 1 = TEMP12>
2562                     <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE47>
2563                     <ADD PC5 OFF9 = C26 (TYPE FIX)>
2564                     <PUTUV TEMP12 2 C26>
2565                     <DEAD TEMP12 C26>
2566                     <JUMP + PHRASE50>
2567 PHRASE47
2568                     <ADD PC5 1 = PC5 (TYPE FIX)>
2569 PHRASE50
2570                     <RESTL C4 1 = C4 (TYPE LIST)>
2571                     <JUMP + AGAIN44>
2572 EXIT43
2573                     <SET TEMP34 %<> (TYPE FALSE)>
2574                     <GVAL 'CODE = C26>
2575                     <RESTL C26 1 = C4 (TYPE LIST)>
2576                     <DEAD C26>
2577                     <LOOP>
2578 MAP52
2579                     <INTGO>
2580                     <EMPL? C4 + MAPAP55>
2581                     <SET PC5 C4>
2582                     <NTHL PC5 1 = TEMP34>
2583                     <SET R27 %<> (TYPE FALSE)>
2584                     <TYPE? TEMP34 <TYPE-CODE INST> + TAG68>
2585                     <SET TEMP34 %<> (TYPE FALSE)>
2586                     <JUMP + PHRASE107>
2587 TAG68
2588                     <NTHUV TEMP34 2 = OFF9>
2589                     <TYPE? OFF9 <TYPE-CODE REF> + BOOL70>
2590                     <LENUV TEMP34 = C26 (TYPE FIX)>
2591                     <GRTR? C26 2 + TAG72 (TYPE FIX)>
2592                     <DEAD C26>
2593                     <SET TEMP34 %<> (TYPE FALSE)>
2594                     <JUMP + PHRASE107>
2595 TAG72
2596                     <NTHUV TEMP34 3 = OFF9>
2597                     <TYPE? OFF9 <TYPE-CODE REF> + TAG73>
2598                     <SET TEMP34 %<> (TYPE FALSE)>
2599                     <JUMP + PHRASE107>
2600 TAG73
2601                     <SET R27 'T (TYPE ATOM)>
2602 BOOL70
2603                     <NTHUV OFF9 1 = TG8>
2604                     <SET TEMP12 %<> (TYPE FALSE)>
2605                     <TYPE? TG8 <TYPE-CODE ATOM> - PHRASE83>
2606                     <GVAL 'CODE = TEMP12>
2607                     <RESTL TEMP12 1 = C26 (TYPE LIST)>
2608                     <DEAD TEMP12>
2609                     <EMPL? C26 + TAG77>
2610                     <LOOP (TG8 VALUE) (C26 VALUE)>
2611 TAG79
2612                     <NTHL C26 1 = TEMP12>
2613                     <TYPE? TEMP12 <TYPE-CODE ATOM> - TAG80>
2614                     <VEQUAL? TEMP12 TG8 + TAG78>
2615                     <DEAD TEMP12>
2616 TAG80
2617                     <RESTL C26 1 = C26 (TYPE LIST)>
2618                     <EMPL? C26 - TAG79>
2619 TAG77
2620                     <SET TEMP12 %<> (TYPE FALSE)>
2621                     <JUMP + TAG82>
2622 TAG78
2623                     <SET TEMP12 C26>
2624                     <DEAD C26>
2625 TAG82
2626                     <VEQUAL? TEMP12 0 + PHRASE83>
2627                     <FRAME '\1aFIND-LABEL>
2628                     <NTHUV OFF9 1 = STACK>
2629                     <CALL '\1aFIND-LABEL 1 = C26>
2630                     <NTHUV C26 2 = NPC63 (TYPE FIX)>
2631                     <DEAD C26>
2632 PHRASE83
2633                     <TYPE? TEMP12 <TYPE-CODE FALSE> - PHRASE86>
2634                     <DEAD TEMP12>
2635                     <EQUAL? TG8 'COMPERR - PHRASE88>
2636                     <VEQUAL? R27 0 + PHRASE90>
2637                     <DEAD R27>
2638                     <PUTUV TEMP34 3 106>
2639                     <JUMP + PHRASE107>
2640 PHRASE90
2641                     <PUTUV TEMP34 2 106>
2642                     <JUMP + PHRASE107>
2643 PHRASE88
2644                     <EQUAL? TG8 'UNWCONT + BOOL93>
2645                     <EQUAL? TG8 'IOERR - PHRASE92>
2646 BOOL93
2647                     <VEQUAL? R27 0 + PHRASE95>
2648                     <DEAD R27>
2649                     <NTHUV TEMP34 1 = STACK>
2650                     <NTHUV TEMP34 2 = STACK>
2651                     <DEAD TEMP34>
2652                     <PUSH '@>
2653                     <FRAME '\1aOPCODE>
2654                     <PUSH TG8>
2655                     <DEAD TG8>
2656                     <CALL '\1aOPCODE 1 = STACK>
2657                     <UBLOCK <TYPE-CODE VECTOR> 4 = C26>
2658                     <CHTYPE C26 <TYPE-CODE INST> = C26>
2659                     <PUTL PC5 1 C26>
2660                     <DEAD C26>
2661                     <SET TEMP34 PC5>
2662                     <DEAD PC5>
2663                     <JUMP + PHRASE107>
2664 PHRASE95
2665                     <PUSH 'JRST>
2666                     <PUSH '@>
2667                     <FRAME '\1aOPCODE>
2668                     <PUSH TG8>
2669                     <DEAD TG8>
2670                     <CALL '\1aOPCODE 1 = STACK>
2671                     <UBLOCK <TYPE-CODE VECTOR> 3 = C26>
2672                     <CHTYPE C26 <TYPE-CODE INST> = C26>
2673                     <PUTL PC5 1 C26>
2674                     <DEAD C26>
2675                     <SET TEMP34 PC5>
2676                     <DEAD PC5>
2677                     <JUMP + PHRASE107>
2678 PHRASE92
2679                     <TYPE? TG8 <TYPE-CODE CONSTANT-BUCKET> - TAG102>
2680                     <DEAD TG8>
2681                     <SET TEMP34 %<> (TYPE FALSE)>
2682                     <JUMP + PHRASE107>
2683 TAG102
2684                     <FRAME '\1aMIMOCERR>
2685                     <PUSH 'UNKNOWN-LABEL!-ERRORS>
2686                     <NTHUV OFF9 1 = STACK>
2687                     <DEAD OFF9>
2688                     <CALL '\1aMIMOCERR 2 = TEMP34>
2689                     <JUMP + PHRASE107>
2690 PHRASE86
2691                     <VEQUAL? R27 0 + PHRASE105>
2692                     <DEAD R27>
2693                     <NTHUV TEMP34 1 = STACK>
2694                     <NTHUV TEMP34 2 = STACK>
2695                     <DEAD TEMP34>
2696                     <PUSH NPC63>
2697                     <PUSH (R*)>
2698                     <UBLOCK <TYPE-CODE VECTOR> 4 = C26>
2699                     <CHTYPE C26 <TYPE-CODE INST> = C26>
2700                     <PUTL PC5 1 C26>
2701                     <DEAD C26>
2702                     <SET TEMP34 PC5>
2703                     <DEAD PC5>
2704                     <JUMP + PHRASE107>
2705 PHRASE105
2706                     <PUSH 'JRST>
2707                     <PUSH NPC63>
2708                     <PUSH (R*)>
2709                     <UBLOCK <TYPE-CODE VECTOR> 3 = C26>
2710                     <CHTYPE C26 <TYPE-CODE INST> = C26>
2711                     <PUTL PC5 1 C26>
2712                     <DEAD C26>
2713                     <SET TEMP34 PC5>
2714                     <DEAD PC5>
2715 PHRASE107
2716                     <RESTL C4 1 = C4 (TYPE LIST)>
2717                     <JUMP + MAP52>
2718 MAPAP55
2719                     <RETURN TEMP34>
2720                     <DEAD TEMP34>
2721                     <END \1aFIXUP-REFS>
2722 #WORD *25437250545*
2723 <GFCN \1aWRITE-MSUBR ("VALUE" ANY ANY "OPTIONAL" ANY ANY) OC7 LOWERSTR8 F-OR-G9>
2724                     <OPT-DISPATCH 1 %<> OPT4 OPT5 OPT6>
2725 OPT4
2726                     <PUSH %<>>
2727 OPT5
2728                     <PUSH %<>>
2729 OPT6
2730                     <TEMP MVECTOR11:LIST TEMP3:LBIND OB13:STRING TEMP15 TEMP27 CHR30 ICHR31 C72:LIST TEMP73>
2731                     <INTGO>
2732                     <GVAL 'MVECTOR = MVECTOR11>
2733                     <GETS 'BIND = TEMP3 (TYPE LBIND)>
2734                     <BBIND 'OUTCHAN 'CHANNEL 'FIX OC7>
2735                     <GVAL 'OUTPUT-BUFFER = OB13>
2736                     <GVAL 'INT-MODE = TEMP15>
2737                     <TYPE? TEMP15 <TYPE-CODE FALSE> + BOOL14>
2738                     <DEAD TEMP15>
2739                     <FRAME '\1aPRINTTYPE>
2740                     <PUSH 'ATOM>
2741                     <GVAL 'ATOM-PRINT = STACK>
2742                     <CALL '\1aPRINTTYPE 2>
2743 BOOL14
2744                     <TYPE? LOWERSTR8 <TYPE-CODE FALSE> - MAPEX22>
2745                     <RESTL MVECTOR11 1 = TEMP15 (TYPE LIST)>
2746                     <NTHL TEMP15 1 = TEMP15 (TYPE ATOM)>
2747                     <NTHR TEMP15 3 = TEMP15 (RECORD-TYPE ATOM)>
2748                     <SET TEMP27 0 (TYPE FIX)>
2749                     <LOOP>
2750 MAP20
2751                     <INTGO>
2752                     <EMPUS? TEMP15 + MAPAP23>
2753                     <NTHUS TEMP15 1 = CHR30>
2754                     <CHTYPE CHR30 <TYPE-CODE FIX> = ICHR31>
2755                     <GRTR? ICHR31 90 + PHRASE33 (TYPE FIX)>
2756                     <LESS? ICHR31 65 + PHRASE33 (TYPE FIX)>
2757                     <ADD ICHR31 32 = ICHR31 (TYPE FIX)>
2758                     <CHTYPE ICHR31 <TYPE-CODE CHARACTER> = ICHR31>
2759                     <JUMP + PHRASE36>
2760 PHRASE33
2761                     <SET ICHR31 CHR30>
2762                     <DEAD CHR30>
2763 PHRASE36
2764                     <PUSH ICHR31>
2765                     <DEAD ICHR31>
2766                     <ADD TEMP27 1 = TEMP27 (TYPE FIX)>
2767                     <RESTUS TEMP15 1 = TEMP15 (TYPE STRING)>
2768                     <JUMP + MAP20>
2769 MAPAP23
2770                     <UBLOCK <TYPE-CODE STRING> TEMP27 = LOWERSTR8 (TYPE STRING)>
2771                     <DEAD TEMP27>
2772 MAPEX22
2773                     <FRAME '\1aM-HLEN>
2774                     <PUSH OC7>
2775                     <PUSH 100000000>
2776                     <CALL '\1aM-HLEN 2>
2777                     <GVAL 'GLUE-MODE = TEMP15>
2778                     <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE39>
2779                     <DEAD TEMP15>
2780                     <FRAME '\1aLREVERSE>
2781                     <GVAL 'GLUE-LIST = STACK>
2782                     <CALL '\1aLREVERSE 1 = TEMP15>
2783                     <SETG 'GLUE-LIST TEMP15>
2784                     <DEAD TEMP15>
2785 PHRASE39
2786                     <FRAME '\1aCRLF>
2787                     <PUSH OC7>
2788                     <CALL '\1aCRLF 1>
2789                     <GVAL 'BOOT-MODE = TEMP15>
2790                     <TYPE? TEMP15 <TYPE-CODE FALSE> - PHRASE43>
2791                     <DEAD TEMP15>
2792                     <FRAME '\1aPRINC>
2793                     <PUSH "<SETG ">
2794                     <PUSH OC7>
2795                     <CALL '\1aPRINC 2>
2796                     <GVAL 'GLUE-MODE = TEMP15>
2797                     <TYPE? TEMP15 <TYPE-CODE FALSE> - PHRASE46>
2798                     <DEAD TEMP15>
2799                     <FRAME '\1aPRINC>
2800                     <PUSH !\\1a>
2801                     <PUSH OC7>
2802                     <CALL '\1aPRINC 2>
2803 PHRASE46
2804                     <FRAME '\1aPRINC>
2805                     <PUSH LOWERSTR8>
2806                     <PUSH OC7>
2807                     <CALL '\1aPRINC 2>
2808                     <GVAL 'BOOT-MODE = TEMP15>
2809                     <TYPE? TEMP15 <TYPE-CODE FALSE> - PHRASE54>
2810                     <DEAD TEMP15>
2811                     <GVAL 'INT-MODE = TEMP15>
2812                     <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE52>
2813                     <DEAD TEMP15>
2814                     <FRAME '\1aPRINC>
2815                     <PUSH "!-IMSUBR!- ">
2816                     <PUSH OC7>
2817                     <CALL '\1aPRINC 2>
2818                     <JUMP + PHRASE54>
2819 PHRASE52
2820                     <FRAME '\1aPRINC>
2821                     <PUSH "-IMSUBR ">
2822                     <PUSH OC7>
2823                     <CALL '\1aPRINC 2>
2824 PHRASE54
2825                     <FRAME '\1aPRINC>
2826                     <PUSH !\ >
2827                     <NTHR 'OUTCHAN 2 = TEMP15 (RECORD-TYPE ATOM) (TYPE LBIND)>
2828                     <NTHR TEMP15 1 = STACK (RECORD-TYPE LBIND)>
2829                     <DEAD TEMP15>
2830                     <CALL '\1aPRINC 2>
2831 PHRASE43
2832                     <FRAME '\1aPRINC>
2833                     <PUSH "#IMSUBR [|">
2834                     <PUSH OC7>
2835                     <CALL '\1aPRINC 2>
2836                     <GVAL 'GLUE-MODE = TEMP15>
2837                     <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE61>
2838                     <DEAD TEMP15>
2839                     <GVAL 'MAX-SPACE = TEMP15>
2840                     <TYPE? TEMP15 <TYPE-CODE FALSE> - PHRASE61>
2841                     <DEAD TEMP15>
2842                     <SET ICHR31 () (TYPE LIST)>
2843                     <SET TEMP27 () (TYPE LIST)>
2844                     <GVAL 'GLUE-LIST = TEMP15>
2845                     <LOOP>
2846 MAP64
2847                     <INTGO>
2848                     <EMPTY? TEMP15 + MAPAP67>
2849                     <NTH1 TEMP15 = CHR30>
2850                     <RESTL CHR30 1 = TEMP73 (TYPE LIST)>
2851                     <RESTL TEMP73 1 = TEMP73 (TYPE LIST)>
2852                     <RESTL TEMP73 1 = TEMP73 (TYPE LIST)>
2853                     <NTHL TEMP73 1 = TEMP73 (TYPE LIST)>
2854                     <RESTL TEMP73 1 = C72 (TYPE LIST)>
2855                     <DEAD TEMP73>
2856                     <RESTL CHR30 1 = TEMP73 (TYPE LIST)>
2857                     <DEAD CHR30>
2858                     <RESTL TEMP73 1 = TEMP73 (TYPE LIST)>
2859                     <RESTL TEMP73 1 = TEMP73 (TYPE LIST)>
2860                     <PUTL TEMP73 1 () (TYPE LIST)>
2861                     <DEAD TEMP73>
2862                     <LOOP (C72 VALUE)>
2863 TAG78
2864                     <INTGO>
2865                     <EMPL? C72 + MAP65>
2866                     <NTHL C72 1 = TEMP73>
2867                     <CONS TEMP73 () = TEMP73 (TYPE LIST)>
2868                     <EMPL? ICHR31 - TAG80>
2869                     <SET ICHR31 TEMP73 (TYPE LIST)>
2870                     <JUMP + TAG81>
2871 TAG80
2872                     <PUTREST TEMP27 TEMP73>
2873                     <DEAD TEMP27>
2874 TAG81
2875                     <SET TEMP27 TEMP73 (TYPE LIST)>
2876                     <DEAD TEMP73>
2877                     <RESTL C72 1 = C72 (TYPE LIST)>
2878                     <JUMP + TAG78>
2879 MAP65
2880                     <REST1 TEMP15 = TEMP15>
2881                     <JUMP + MAP64>
2882 MAPAP67
2883                     <SETG 'CODE ICHR31>
2884                     <DEAD ICHR31>
2885                     <GVAL 'CODE = TEMP15>
2886                     <CONS 'T TEMP15 = TEMP15>
2887                     <SETG 'CODE TEMP15>
2888                     <DEAD TEMP15>
2889 PHRASE61
2890                     <GVAL 'BOOT-MODE = TEMP15>
2891                     <TYPE? TEMP15 <TYPE-CODE FALSE> - PHRASE112>
2892                     <DEAD TEMP15>
2893                     <GVAL 'GLUE-MODE = TEMP73>
2894                     <TYPE? TEMP73 <TYPE-CODE FALSE> + PHRASE87>
2895                     <DEAD TEMP73>
2896                     <GVAL 'GLUE-PC = TEMP73>
2897                     <JUMP + PHRASE88>
2898 PHRASE87
2899                     <GVAL 'CODE-LENGTH = TEMP73>
2900 PHRASE88
2901                     <GVAL 'CONSTANT-VECTOR = TEMP15>
2902                     <LENL TEMP15 = TEMP15 (TYPE FIX)>
2903                     <ADD TEMP73 TEMP15 = TEMP27 (TYPE FIX)>
2904                     <DEAD TEMP73 TEMP15>
2905                     <LSH TEMP27 -16 = CHR30 (TYPE FIX)>
2906                     <LSH CHR30 -5 = TEMP15 (TYPE FIX)>
2907                     <AND TEMP15 #WORD *7* = TEMP15>
2908                     <ADD TEMP15 65 = TEMP15 (TYPE FIX)>
2909                     <CHTYPE TEMP15 <TYPE-CODE CHARACTER> = TEMP15>
2910                     <PUTUS OB13 1 TEMP15>
2911                     <DEAD TEMP15>
2912                     <RESTUS OB13 1 = OB13 (TYPE STRING)>
2913                     <EMPUS? OB13 - PHRASE92 (TYPE STRING)>
2914                     <FRAME '\1aCHANNEL-OP>
2915                     <PUSH OC7>
2916                     <PUSH 'WRITE-BUFFER>
2917                     <GVAL 'OUTPUT-BUFFER = OB13>
2918                     <PUSH OB13>
2919                     <CALL '\1aCHANNEL-OP 3>
2920 PHRASE92
2921                     <AND CHR30 #WORD *37* = TEMP15>
2922                     <DEAD CHR30>
2923                     <ADD TEMP15 65 = TEMP15 (TYPE FIX)>
2924                     <CHTYPE TEMP15 <TYPE-CODE CHARACTER> = TEMP15>
2925                     <PUTUS OB13 1 TEMP15>
2926                     <DEAD TEMP15>
2927                     <RESTUS OB13 1 = OB13 (TYPE STRING)>
2928                     <EMPUS? OB13 - PHRASE95 (TYPE STRING)>
2929                     <FRAME '\1aCHANNEL-OP>
2930                     <PUSH OC7>
2931                     <PUSH 'WRITE-BUFFER>
2932                     <GVAL 'OUTPUT-BUFFER = OB13>
2933                     <PUSH OB13>
2934                     <CALL '\1aCHANNEL-OP 3>
2935 PHRASE95
2936                     <LSH TEMP27 -13 = TEMP73 (TYPE FIX)>
2937                     <AND TEMP73 #WORD *7* = TEMP73>
2938                     <ADD TEMP73 65 = TEMP73 (TYPE FIX)>
2939                     <CHTYPE TEMP73 <TYPE-CODE CHARACTER> = TEMP73>
2940                     <PUTUS OB13 1 TEMP73>
2941                     <DEAD TEMP73>
2942                     <RESTUS OB13 1 = OB13 (TYPE STRING)>
2943                     <EMPUS? OB13 - PHRASE100 (TYPE STRING)>
2944                     <FRAME '\1aCHANNEL-OP>
2945                     <PUSH OC7>
2946                     <PUSH 'WRITE-BUFFER>
2947                     <GVAL 'OUTPUT-BUFFER = OB13>
2948                     <PUSH OB13>
2949                     <CALL '\1aCHANNEL-OP 3>
2950 PHRASE100
2951                     <LSH TEMP27 -8 = TEMP73 (TYPE FIX)>
2952                     <AND TEMP73 #WORD *37* = TEMP73>
2953                     <ADD TEMP73 65 = TEMP73 (TYPE FIX)>
2954                     <CHTYPE TEMP73 <TYPE-CODE CHARACTER> = TEMP73>
2955                     <PUTUS OB13 1 TEMP73>
2956                     <DEAD TEMP73>
2957                     <RESTUS OB13 1 = OB13 (TYPE STRING)>
2958                     <EMPUS? OB13 - PHRASE103 (TYPE STRING)>
2959                     <FRAME '\1aCHANNEL-OP>
2960                     <PUSH OC7>
2961                     <PUSH 'WRITE-BUFFER>
2962                     <GVAL 'OUTPUT-BUFFER = OB13>
2963                     <PUSH OB13>
2964                     <CALL '\1aCHANNEL-OP 3>
2965 PHRASE103
2966                     <LSH TEMP27 -5 = TEMP15 (TYPE FIX)>
2967                     <AND TEMP15 #WORD *7* = TEMP15>
2968                     <ADD TEMP15 65 = TEMP15 (TYPE FIX)>
2969                     <CHTYPE TEMP15 <TYPE-CODE CHARACTER> = TEMP15>
2970                     <PUTUS OB13 1 TEMP15>
2971                     <DEAD TEMP15>
2972                     <RESTUS OB13 1 = OB13 (TYPE STRING)>
2973                     <EMPUS? OB13 - PHRASE109 (TYPE STRING)>
2974                     <FRAME '\1aCHANNEL-OP>
2975                     <PUSH OC7>
2976                     <PUSH 'WRITE-BUFFER>
2977                     <GVAL 'OUTPUT-BUFFER = OB13>
2978                     <PUSH OB13>
2979                     <CALL '\1aCHANNEL-OP 3>
2980 PHRASE109
2981                     <AND TEMP27 #WORD *37* = TEMP15>
2982                     <DEAD TEMP27>
2983                     <ADD TEMP15 65 = TEMP15 (TYPE FIX)>
2984                     <CHTYPE TEMP15 <TYPE-CODE CHARACTER> = TEMP15>
2985                     <PUTUS OB13 1 TEMP15>
2986                     <DEAD TEMP15>
2987                     <RESTUS OB13 1 = OB13 (TYPE STRING)>
2988                     <EMPUS? OB13 - PHRASE112 (TYPE STRING)>
2989                     <FRAME '\1aCHANNEL-OP>
2990                     <PUSH OC7>
2991                     <PUSH 'WRITE-BUFFER>
2992                     <GVAL 'OUTPUT-BUFFER = OB13>
2993                     <PUSH OB13>
2994                     <CALL '\1aCHANNEL-OP 3>
2995 PHRASE112
2996                     <GVAL 'MAX-SPACE = TEMP15>
2997                     <TYPE? TEMP15 <TYPE-CODE FALSE> - PHRASE115>
2998                     <DEAD TEMP15>
2999                     <FRAME '\1aWRITE-CODE>
3000                     <PUSH OC7>
3001                     <PUSH LOWERSTR8>
3002                     <GVAL 'CODE = TEMP15>
3003                     <RESTL TEMP15 1 = STACK (TYPE LIST)>
3004                     <DEAD TEMP15>
3005                     <PUSH OB13>
3006                     <DEAD OB13>
3007                     <CALL '\1aWRITE-CODE 4>
3008                     <JUMP + PHRASE117>
3009 PHRASE115
3010                     <FRAME '\1aCHANNEL-OP>
3011                     <PUSH OC7>
3012                     <PUSH 'WRITE-BUFFER>
3013                     <GVAL 'OUTPUT-BUFFER = STACK>
3014                     <LENUS OB13 = TEMP15 (TYPE FIX)>
3015                     <DEAD OB13>
3016                     <SUB 1024 TEMP15 = STACK (TYPE FIX)>
3017                     <DEAD TEMP15>
3018                     <CALL '\1aCHANNEL-OP 4>
3019 PHRASE117
3020                     <GVAL 'GLUE-MODE = TEMP15>
3021                     <TYPE? TEMP15 <TYPE-CODE FALSE> - PHRASE120>
3022                     <DEAD TEMP15>
3023                     <EQUAL? F-OR-G9 'GFCN - PHRASE122>
3024                     <DEAD F-OR-G9>
3025                     <FRAME '\1aPRIN1>
3026                     <GVAL 'CODE-LENGTH = STACK>
3027                     <PUSH OC7>
3028                     <CALL '\1aPRIN1 2>
3029                     <JUMP + PHRASE124>
3030 PHRASE122
3031                     <FRAME '\1aPRIN1>
3032                     <GVAL 'CODE-LENGTH = TEMP15>
3033                     <SUB 0 TEMP15 = STACK (TYPE FIX)>
3034                     <DEAD TEMP15>
3035                     <PUSH OC7>
3036                     <CALL '\1aPRIN1 2>
3037 PHRASE124
3038                     <FRAME '\1aCRLF>
3039                     <PUSH OC7>
3040                     <CALL '\1aCRLF 1>
3041                     <GVAL 'BOOT-MODE = TEMP15>
3042                     <TYPE? TEMP15 <TYPE-CODE FALSE> - PHRASE128>
3043                     <DEAD TEMP15>
3044                     <FRAME '\1aPRINC>
3045                     <PUSH "<SETG ">
3046                     <PUSH OC7>
3047                     <CALL '\1aPRINC 2>
3048                     <GVAL 'GLUE-MODE = TEMP15>
3049                     <TYPE? TEMP15 <TYPE-CODE FALSE> - PHRASE131>
3050                     <DEAD TEMP15>
3051                     <FRAME '\1aPRINC>
3052                     <PUSH !\\1a>
3053                     <PUSH OC7>
3054                     <CALL '\1aPRINC 2>
3055 PHRASE131
3056                     <FRAME '\1aPRIN1>
3057                     <RESTL MVECTOR11 1 = TEMP15 (TYPE LIST)>
3058                     <NTHL TEMP15 1 = STACK>
3059                     <DEAD TEMP15>
3060                     <PUSH OC7>
3061                     <CALL '\1aPRIN1 2>
3062                     <FRAME '\1aPRINC>
3063                     <PUSH !\ >
3064                     <PUSH OC7>
3065                     <CALL '\1aPRINC 2>
3066 PHRASE128
3067                     <FRAME '\1aPRINC>
3068                     <PUSH "#MSUBR [">
3069                     <PUSH OC7>
3070                     <CALL '\1aPRINC 2>
3071                     <FRAME '\1aPRINC>
3072                     <PUSH LOWERSTR8>
3073                     <PUSH OC7>
3074                     <CALL '\1aPRINC 2>
3075                     <GVAL 'BOOT-MODE = TEMP15>
3076                     <TYPE? TEMP15 <TYPE-CODE FALSE> - PHRASE142>
3077                     <DEAD TEMP15>
3078                     <GVAL 'INT-MODE = TEMP15>
3079                     <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE140>
3080                     <DEAD TEMP15>
3081                     <FRAME '\1aPRINC>
3082                     <PUSH "!-IMSUBR!- ">
3083                     <PUSH OC7>
3084                     <CALL '\1aPRINC 2>
3085                     <JUMP + PHRASE142>
3086 PHRASE140
3087                     <FRAME '\1aPRINC>
3088                     <PUSH "-IMSUBR ">
3089                     <PUSH OC7>
3090                     <CALL '\1aPRINC 2>
3091 PHRASE142
3092                     <FRAME '\1aPRINC>
3093                     <PUSH " ">
3094                     <PUSH OC7>
3095                     <CALL '\1aPRINC 2>
3096                     <FRAME '\1aPRIN1>
3097                     <RESTL MVECTOR11 1 = TEMP15 (TYPE LIST)>
3098                     <NTHL TEMP15 1 = STACK>
3099                     <DEAD TEMP15>
3100                     <PUSH OC7>
3101                     <CALL '\1aPRIN1 2>
3102                     <FRAME '\1aPRINC>
3103                     <PUSH " ">
3104                     <PUSH OC7>
3105                     <CALL '\1aPRINC 2>
3106                     <FRAME '\1aPRIN1>
3107                     <RESTL MVECTOR11 1 = TEMP15 (TYPE LIST)>
3108                     <DEAD MVECTOR11>
3109                     <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
3110                     <NTHL TEMP15 1 = STACK>
3111                     <DEAD TEMP15>
3112                     <PUSH OC7>
3113                     <CALL '\1aPRIN1 2>
3114                     <FRAME '\1aPRINC>
3115                     <PUSH " 0]">
3116                     <PUSH OC7>
3117                     <CALL '\1aPRINC 2>
3118                     <GVAL 'BOOT-MODE = TEMP15>
3119                     <TYPE? TEMP15 <TYPE-CODE FALSE> - PHRASE150>
3120                     <DEAD TEMP15>
3121                     <FRAME '\1aPRINC>
3122                     <PUSH ">">
3123                     <PUSH OC7>
3124                     <CALL '\1aPRINC 2>
3125 PHRASE150
3126                     <FRAME '\1aM-HLEN>
3127                     <PUSH OC7>
3128                     <DEAD OC7>
3129                     <PUSH 80>
3130                     <CALL '\1aM-HLEN 2>
3131 PHRASE120
3132                     <GVAL 'INT-MODE = TEMP15>
3133                     <TYPE? TEMP15 <TYPE-CODE FALSE> + BOOL153>
3134                     <DEAD TEMP15>
3135                     <GVAL 'MAX-SPACE = TEMP15>
3136                     <TYPE? TEMP15 <TYPE-CODE FALSE> - BOOL153>
3137                     <DEAD TEMP15>
3138                     <FRAME '\1aPRINTTYPE>
3139                     <PUSH 'ATOM>
3140                     <GVAL 'PRINT = STACK>
3141                     <CALL '\1aPRINTTYPE 2>
3142 BOOL153
3143                     <GVAL 'MAX-SPACE = TEMP15>
3144                     <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE156>
3145                     <SET TEMP15 LOWERSTR8>
3146                     <DEAD LOWERSTR8>
3147 PHRASE156
3148                     <UNBIND TEMP3>
3149                     <DEAD TEMP3>
3150                     <ADJ -9>
3151                     <RETURN TEMP15>
3152                     <DEAD TEMP15>
3153                     <END \1aWRITE-MSUBR>
3154 #WORD *11036414766*
3155 <GFCN \1aWRITE-CODE ("VALUE" ANY ANY ANY LIST STRING "OPTIONAL" FIX) OC6 LOWERSTR7 CODE8 OB9 LEN10>
3156                     <OPT-DISPATCH 4 %<> OPT4 OPT5>
3157 OPT4
3158                     <PUSH 0>
3159 OPT5
3160                     <TEMP MVECTOR11:LIST TEMP3:LBIND TEMP20 WRD25 I31 RBYT35 TEMP37 TEMP89>
3161                     <INTGO>
3162                     <GVAL 'MVECTOR = MVECTOR11>
3163                     <GETS 'BIND = TEMP3 (TYPE LBIND)>
3164                     <BBIND 'OUTCHAN 'CHANNEL 'FIX OC6>
3165                     <SET TEMP20 CODE8 (TYPE LIST)>
3166                     <DEAD CODE8>
3167                     <LOOP>
3168 MAP15
3169                     <INTGO>
3170                     <EMPL? TEMP20 + MAPAP18>
3171                     <NTHL TEMP20 1 = WRD25>
3172                     <FRAME '\1aASS-INS>
3173                     <PUSH WRD25>
3174                     <DEAD WRD25>
3175                     <CALL '\1aASS-INS 1 = WRD25>
3176                     <TYPE? WRD25 <TYPE-CODE FALSE> + EXIT29>
3177                     <ADD LEN10 4 = LEN10 (TYPE FIX)>
3178                     <SET I31 4 (TYPE FIX)>
3179                     <LOOP>
3180 AGAIN32
3181                     <INTGO>
3182                     <ROT WRD25 9 = WRD25 (TYPE FIX)>
3183                     <SET RBYT35 WRD25>
3184                     <LSH RBYT35 -5 = TEMP37 (TYPE FIX)>
3185                     <AND TEMP37 #WORD *17* = TEMP37>
3186                     <ADD TEMP37 65 = TEMP37 (TYPE FIX)>
3187                     <CHTYPE TEMP37 <TYPE-CODE CHARACTER> = TEMP37>
3188                     <PUTUS OB9 1 TEMP37>
3189                     <DEAD TEMP37>
3190                     <RESTUS OB9 1 = OB9 (TYPE STRING)>
3191                     <EMPUS? OB9 - PHRASE39 (TYPE STRING)>
3192                     <FRAME '\1aCHANNEL-OP>
3193                     <PUSH OC6>
3194                     <PUSH 'WRITE-BUFFER>
3195                     <GVAL 'OUTPUT-BUFFER = OB9>
3196                     <PUSH OB9>
3197                     <CALL '\1aCHANNEL-OP 3>
3198 PHRASE39
3199                     <AND RBYT35 #WORD *37* = TEMP37>
3200                     <DEAD RBYT35>
3201                     <ADD TEMP37 65 = TEMP37 (TYPE FIX)>
3202                     <CHTYPE TEMP37 <TYPE-CODE CHARACTER> = TEMP37>
3203                     <PUTUS OB9 1 TEMP37>
3204                     <DEAD TEMP37>
3205                     <RESTUS OB9 1 = OB9 (TYPE STRING)>
3206                     <EMPUS? OB9 - PHRASE42 (TYPE STRING)>
3207                     <FRAME '\1aCHANNEL-OP>
3208                     <PUSH OC6>
3209                     <PUSH 'WRITE-BUFFER>
3210                     <GVAL 'OUTPUT-BUFFER = OB9>
3211                     <PUSH OB9>
3212                     <CALL '\1aCHANNEL-OP 3>
3213 PHRASE42
3214                     <SUB I31 1 = I31 (TYPE FIX)>
3215                     <VEQUAL? I31 0 - AGAIN32 (TYPE FIX)>
3216 EXIT29
3217                     <RESTL TEMP20 1 = TEMP20 (TYPE LIST)>
3218                     <JUMP + MAP15>
3219 MAPAP18
3220                     <GVAL 'MAX-SPACE = TEMP20>
3221                     <TYPE? TEMP20 <TYPE-CODE FALSE> - PHRASE49>
3222                     <DEAD TEMP20>
3223                     <GVAL 'CONSTANT-VECTOR = TEMP20>
3224                     <LOOP>
3225 MAP51
3226                     <INTGO>
3227                     <EMPL? TEMP20 + MAPAP54>
3228                     <NTHL TEMP20 1 = WRD25>
3229                     <NTHUV WRD25 1 = WRD25>
3230                     <TYPE? WRD25 <TYPE-CODE CONSTANT> - PHRASE61>
3231                     <SET I31 4 (TYPE FIX)>
3232                     <LOOP>
3233 AGAIN65
3234                     <INTGO>
3235                     <ROT WRD25 9 = WRD25 (TYPE FIX)>
3236                     <SET RBYT35 WRD25>
3237                     <LSH RBYT35 -5 = TEMP37 (TYPE FIX)>
3238                     <AND TEMP37 #WORD *17* = TEMP37>
3239                     <ADD TEMP37 65 = TEMP37 (TYPE FIX)>
3240                     <CHTYPE TEMP37 <TYPE-CODE CHARACTER> = TEMP37>
3241                     <PUTUS OB9 1 TEMP37>
3242                     <DEAD TEMP37>
3243                     <RESTUS OB9 1 = OB9 (TYPE STRING)>
3244                     <EMPUS? OB9 - PHRASE72 (TYPE STRING)>
3245                     <FRAME '\1aCHANNEL-OP>
3246                     <PUSH OC6>
3247                     <PUSH 'WRITE-BUFFER>
3248                     <GVAL 'OUTPUT-BUFFER = OB9>
3249                     <PUSH OB9>
3250                     <CALL '\1aCHANNEL-OP 3>
3251 PHRASE72
3252                     <AND RBYT35 #WORD *37* = TEMP37>
3253                     <DEAD RBYT35>
3254                     <ADD TEMP37 65 = TEMP37 (TYPE FIX)>
3255                     <CHTYPE TEMP37 <TYPE-CODE CHARACTER> = TEMP37>
3256                     <PUTUS OB9 1 TEMP37>
3257                     <DEAD TEMP37>
3258                     <RESTUS OB9 1 = OB9 (TYPE STRING)>
3259                     <EMPUS? OB9 - PHRASE75 (TYPE STRING)>
3260                     <FRAME '\1aCHANNEL-OP>
3261                     <PUSH OC6>
3262                     <PUSH 'WRITE-BUFFER>
3263                     <GVAL 'OUTPUT-BUFFER = OB9>
3264                     <PUSH OB9>
3265                     <CALL '\1aCHANNEL-OP 3>
3266 PHRASE75
3267                     <SUB I31 1 = I31 (TYPE FIX)>
3268                     <VEQUAL? I31 0 - AGAIN65 (TYPE FIX)>
3269                     <ADD LEN10 4 = LEN10 (TYPE FIX)>
3270                     <JUMP + PHRASE81>
3271 PHRASE61
3272                     <TYPE? WRD25 <TYPE-CODE CONST-W-LOCAL> - PHRASE81>
3273                     <NTHL WRD25 1 = TEMP37>
3274                     <GVAL 'FINAL-LOCALS = I31>
3275                     <TYPE TEMP37 = RBYT35>
3276                     <EMPL? I31 + PHRASE83>
3277                     <LOOP (TEMP37 VALUE) (RBYT35 VALUE) (I31 VALUE)>
3278 TAG86
3279                     <NTHL I31 1 = TEMP89>
3280                     <TYPE? TEMP89 RBYT35 - TAG87>
3281                     <VEQUAL? TEMP89 TEMP37 + TAG85>
3282                     <DEAD TEMP89>
3283 TAG87
3284                     <RESTL I31 1 = I31 (TYPE LIST)>
3285                     <EMPL? I31 - TAG86>
3286                     <JUMP + PHRASE83>
3287 TAG85
3288                     <RESTL WRD25 1 = RBYT35 (TYPE LIST)>
3289                     <NTHL RBYT35 1 = RBYT35>
3290                     <AND RBYT35 #WORD *777777000000* = RBYT35>
3291                     <RESTL WRD25 1 = TEMP37 (TYPE LIST)>
3292                     <DEAD WRD25>
3293                     <NTHL TEMP37 1 = TEMP37>
3294                     <RESTL I31 1 = TEMP89 (TYPE LIST)>
3295                     <DEAD I31>
3296                     <NTHL TEMP89 1 = TEMP89 (TYPE FIX)>
3297                     <ADD TEMP37 TEMP89 = TEMP37 (TYPE FIX)>
3298                     <DEAD TEMP89>
3299                     <AND TEMP37 #WORD *777777* = TEMP37>
3300                     <OR RBYT35 TEMP37 = WRD25>
3301                     <DEAD RBYT35 TEMP37>
3302                     <JUMP + PHRASE90>
3303 PHRASE83
3304                     <FRAME '\1aPRINC>
3305                     <PUSH "**** WARNING unknown local: ">
3306                     <GVAL 'OUTCHAN = STACK>
3307                     <CALL '\1aPRINC 2>
3308                     <FRAME '\1aPRIN1>
3309                     <NTHL WRD25 1 = STACK>
3310                     <DEAD WRD25>
3311                     <GVAL 'OUTCHAN = STACK>
3312                     <CALL '\1aPRIN1 2>
3313                     <FRAME '\1aPRINC>
3314                     <PUSH " in fcn ">
3315                     <GVAL 'OUTCHAN = STACK>
3316                     <CALL '\1aPRINC 2>
3317                     <FRAME '\1aPRIN1>
3318                     <GEN-LVAL 'NAME = STACK>
3319                     <GVAL 'OUTCHAN = STACK>
3320                     <CALL '\1aPRIN1 2>
3321                     <FRAME '\1aCRLF>
3322                     <GVAL 'OUTCHAN = STACK>
3323                     <CALL '\1aCRLF 1>
3324                     <SET WRD25 0 (TYPE FIX)>
3325 PHRASE90
3326                     <SET I31 4 (TYPE FIX)>
3327                     <LOOP>
3328 AGAIN100
3329                     <INTGO>
3330                     <ROT WRD25 9 = WRD25 (TYPE FIX)>
3331                     <SET RBYT35 WRD25>
3332                     <LSH RBYT35 -5 = TEMP37 (TYPE FIX)>
3333                     <AND TEMP37 #WORD *17* = TEMP37>
3334                     <ADD TEMP37 65 = TEMP37 (TYPE FIX)>
3335                     <CHTYPE TEMP37 <TYPE-CODE CHARACTER> = TEMP37>
3336                     <PUTUS OB9 1 TEMP37>
3337                     <DEAD TEMP37>
3338                     <RESTUS OB9 1 = OB9 (TYPE STRING)>
3339                     <EMPUS? OB9 - PHRASE106 (TYPE STRING)>
3340                     <FRAME '\1aCHANNEL-OP>
3341                     <PUSH OC6>
3342                     <PUSH 'WRITE-BUFFER>
3343                     <GVAL 'OUTPUT-BUFFER = OB9>
3344                     <PUSH OB9>
3345                     <CALL '\1aCHANNEL-OP 3>
3346 PHRASE106
3347                     <AND RBYT35 #WORD *37* = TEMP37>
3348                     <DEAD RBYT35>
3349                     <ADD TEMP37 65 = TEMP37 (TYPE FIX)>
3350                     <CHTYPE TEMP37 <TYPE-CODE CHARACTER> = TEMP37>
3351                     <PUTUS OB9 1 TEMP37>
3352                     <DEAD TEMP37>
3353                     <RESTUS OB9 1 = OB9 (TYPE STRING)>
3354                     <EMPUS? OB9 - PHRASE109 (TYPE STRING)>
3355                     <FRAME '\1aCHANNEL-OP>
3356                     <PUSH OC6>
3357                     <PUSH 'WRITE-BUFFER>
3358                     <GVAL 'OUTPUT-BUFFER = OB9>
3359                     <PUSH OB9>
3360                     <CALL '\1aCHANNEL-OP 3>
3361 PHRASE109
3362                     <SUB I31 1 = I31 (TYPE FIX)>
3363                     <VEQUAL? I31 0 - AGAIN100 (TYPE FIX)>
3364                     <ADD LEN10 4 = LEN10 (TYPE FIX)>
3365 PHRASE81
3366                     <RESTL TEMP20 1 = TEMP20 (TYPE LIST)>
3367                     <JUMP + MAP51>
3368 MAPAP54
3369                     <FRAME '\1aCHANNEL-OP>
3370                     <PUSH OC6>
3371                     <DEAD OC6>
3372                     <PUSH 'WRITE-BUFFER>
3373                     <GVAL 'OUTPUT-BUFFER = STACK>
3374                     <LENUS OB9 = TEMP20 (TYPE FIX)>
3375                     <DEAD OB9>
3376                     <SUB 1024 TEMP20 = STACK (TYPE FIX)>
3377                     <DEAD TEMP20>
3378                     <CALL '\1aCHANNEL-OP 4>
3379                     <FRAME '\1aPRINC>
3380                     <PUSH "| ">
3381                     <NTHR 'OUTCHAN 2 = TEMP20 (RECORD-TYPE ATOM) (TYPE LBIND)>
3382                     <NTHR TEMP20 1 = STACK (RECORD-TYPE LBIND)>
3383                     <DEAD TEMP20>
3384                     <CALL '\1aPRINC 2>
3385                     <FRAME '\1aPRINC>
3386                     <PUSH LOWERSTR7>
3387                     <DEAD LOWERSTR7>
3388                     <NTHR 'OUTCHAN 2 = TEMP20 (RECORD-TYPE ATOM) (TYPE LBIND)>
3389                     <NTHR TEMP20 1 = STACK (RECORD-TYPE LBIND)>
3390                     <DEAD TEMP20>
3391                     <CALL '\1aPRINC 2>
3392                     <GVAL 'BOOT-MODE = TEMP20>
3393                     <TYPE? TEMP20 <TYPE-CODE FALSE> - PHRASE129>
3394                     <DEAD TEMP20>
3395                     <GVAL 'INT-MODE = TEMP20>
3396                     <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE125>
3397                     <DEAD TEMP20>
3398                     <FRAME '\1aPRINC>
3399                     <PUSH "!-IMSUBR!- ">
3400                     <NTHR 'OUTCHAN 2 = TEMP20 (RECORD-TYPE ATOM) (TYPE LBIND)>
3401                     <NTHR TEMP20 1 = STACK (RECORD-TYPE LBIND)>
3402                     <DEAD TEMP20>
3403                     <CALL '\1aPRINC 2>
3404                     <JUMP + PHRASE129>
3405 PHRASE125
3406                     <FRAME '\1aPRINC>
3407                     <PUSH "-IMSUBR ">
3408                     <NTHR 'OUTCHAN 2 = TEMP20 (RECORD-TYPE ATOM) (TYPE LBIND)>
3409                     <NTHR TEMP20 1 = STACK (RECORD-TYPE LBIND)>
3410                     <DEAD TEMP20>
3411                     <CALL '\1aPRINC 2>
3412 PHRASE129
3413                     <RESTL MVECTOR11 1 = TEMP20 (TYPE LIST)>
3414                     <RESTL TEMP20 1 = TEMP20 (TYPE LIST)>
3415                     <RESTL TEMP20 1 = WRD25 (TYPE LIST)>
3416                     <DEAD TEMP20>
3417                     <LOOP>
3418 MAP134
3419                     <INTGO>
3420                     <EMPL? WRD25 + MAPAP137>
3421                     <NTHL WRD25 1 = TEMP37>
3422                     <FRAME '\1aPRINC>
3423                     <PUSH !\ >
3424                     <NTHR 'OUTCHAN 2 = TEMP20 (RECORD-TYPE ATOM) (TYPE LBIND)>
3425                     <NTHR TEMP20 1 = STACK (RECORD-TYPE LBIND)>
3426                     <DEAD TEMP20>
3427                     <CALL '\1aPRINC 2>
3428                     <TYPE? TEMP37 <TYPE-CODE CHARACTER> - PHRASE149>
3429                     <FRAME '\1aPRINTTYPE>
3430                     <PUSH 'CHARACTER>
3431                     <GVAL 'CHR-PRINT = STACK>
3432                     <CALL '\1aPRINTTYPE 2>
3433                     <FRAME '\1aPRIN1>
3434                     <PUSH TEMP37>
3435                     <DEAD TEMP37>
3436                     <NTHR 'OUTCHAN 2 = TEMP20 (RECORD-TYPE ATOM) (TYPE LBIND)>
3437                     <NTHR TEMP20 1 = STACK (RECORD-TYPE LBIND)>
3438                     <DEAD TEMP20>
3439                     <CALL '\1aPRIN1 2>
3440                     <FRAME '\1aPRINTTYPE>
3441                     <PUSH 'CHARACTER>
3442                     <GVAL 'PRINT = STACK>
3443                     <CALL '\1aPRINTTYPE 2>
3444                     <JUMP + PHRASE166>
3445 PHRASE149
3446                     <TYPE? TEMP37 <TYPE-CODE CONST-W-LOCAL> - PHRASE155>
3447                     <NTHL TEMP37 1 = TEMP20>
3448                     <GVAL 'FINAL-LOCALS = I31>
3449                     <TYPE TEMP20 = RBYT35>
3450                     <EMPL? I31 + TAG156>
3451                     <LOOP (TEMP20 VALUE) (RBYT35 VALUE) (I31 VALUE)>
3452 TAG158
3453                     <NTHL I31 1 = TEMP89>
3454                     <TYPE? TEMP89 RBYT35 - TAG159>
3455                     <VEQUAL? TEMP89 TEMP20 + TAG157>
3456                     <DEAD TEMP89>
3457 TAG159
3458                     <RESTL I31 1 = I31 (TYPE LIST)>
3459                     <EMPL? I31 - TAG158>
3460 TAG156
3461                     <SET I31 %<> (TYPE FALSE)>
3462 TAG157
3463                     <RESTL I31 1 = I31 (TYPE LIST)>
3464                     <NTHL I31 1 = I31>
3465                     <RESTL TEMP37 1 = RBYT35 (TYPE LIST)>
3466                     <DEAD TEMP37>
3467                     <NTHL RBYT35 1 = RBYT35>
3468                     <ADD I31 RBYT35 = TEMP37 (TYPE FIX)>
3469                     <DEAD I31 RBYT35>
3470                     <FRAME '\1aPRIN1>
3471                     <PUSH TEMP37>
3472                     <DEAD TEMP37>
3473                     <NTHR 'OUTCHAN 2 = RBYT35 (RECORD-TYPE ATOM) (TYPE LBIND)>
3474                     <NTHR RBYT35 1 = STACK (RECORD-TYPE LBIND)>
3475                     <DEAD RBYT35>
3476                     <CALL '\1aPRIN1 2>
3477                     <JUMP + PHRASE166>
3478 PHRASE155
3479                     <FRAME '\1aPRIN1>
3480                     <PUSH TEMP37>
3481                     <DEAD TEMP37>
3482                     <NTHR 'OUTCHAN 2 = RBYT35 (RECORD-TYPE ATOM) (TYPE LBIND)>
3483                     <NTHR RBYT35 1 = STACK (RECORD-TYPE LBIND)>
3484                     <DEAD RBYT35>
3485                     <CALL '\1aPRIN1 2>
3486 PHRASE166
3487                     <RESTL WRD25 1 = WRD25 (TYPE LIST)>
3488                     <JUMP + MAP134>
3489 MAPAP137
3490                     <GVAL 'GLUE-MODE = WRD25>
3491                     <TYPE? WRD25 <TYPE-CODE FALSE> + PHRASE171>
3492                     <DEAD WRD25>
3493                     <FRAME '\1aM-HLEN>
3494                     <NTHR 'OUTCHAN 2 = WRD25 (RECORD-TYPE ATOM) (TYPE LBIND)>
3495                     <NTHR WRD25 1 = STACK (RECORD-TYPE LBIND)>
3496                     <DEAD WRD25>
3497                     <PUSH 80>
3498                     <CALL '\1aM-HLEN 2>
3499 PHRASE171
3500                     <FRAME '\1aPRINC>
3501                     <PUSH !\]>
3502                     <NTHR 'OUTCHAN 2 = WRD25 (RECORD-TYPE ATOM) (TYPE LBIND)>
3503                     <NTHR WRD25 1 = STACK (RECORD-TYPE LBIND)>
3504                     <DEAD WRD25>
3505                     <CALL '\1aPRINC 2>
3506                     <GVAL 'BOOT-MODE = WRD25>
3507                     <TYPE? WRD25 <TYPE-CODE FALSE> - PHRASE179>
3508                     <DEAD WRD25>
3509                     <FRAME '\1aPRINC>
3510                     <PUSH !\>>
3511                     <NTHR 'OUTCHAN 2 = WRD25 (RECORD-TYPE ATOM) (TYPE LBIND)>
3512                     <NTHR WRD25 1 = STACK (RECORD-TYPE LBIND)>
3513                     <DEAD WRD25>
3514                     <CALL '\1aPRINC 2>
3515 PHRASE179
3516                     <FRAME '\1aCRLF>
3517                     <NTHR 'OUTCHAN 2 = WRD25 (RECORD-TYPE ATOM) (TYPE LBIND)>
3518                     <NTHR WRD25 1 = STACK (RECORD-TYPE LBIND)>
3519                     <DEAD WRD25>
3520                     <CALL '\1aCRLF 1>
3521                     <GVAL 'VERBOSE = WRD25>
3522                     <TYPE? WRD25 <TYPE-CODE FALSE> + PHRASE187>
3523                     <DEAD WRD25>
3524                     <GETS 'BIND = WRD25 (TYPE LBIND)>
3525                     <GVAL 'V2 = TEMP37>
3526                     <TYPE? TEMP37 <TYPE-CODE FALSE> - PHRASE194>
3527                     <GVAL 'V1 = TEMP20>
3528                     <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE191>
3529                     <DEAD TEMP20>
3530                     <NTHR 'OUTCHAN 2 = TEMP37 (RECORD-TYPE ATOM) (TYPE LBIND)>
3531                     <NTHR TEMP37 1 = TEMP37 (RECORD-TYPE LBIND)>
3532                     <JUMP + PHRASE194>
3533 PHRASE191
3534                     <GVAL 'OUTCHAN = TEMP37>
3535 PHRASE194
3536                     <BBIND 'OUTCHAN 'CHANNEL 'FIX TEMP37>
3537                     <DEAD TEMP37>
3538                     <FRAME '\1aPRINC>
3539                     <PUSH " [Code: ">
3540                     <NTHR 'OUTCHAN 2 = TEMP37 (RECORD-TYPE ATOM) (TYPE LBIND)>
3541                     <NTHR TEMP37 1 = STACK (RECORD-TYPE LBIND)>
3542                     <DEAD TEMP37>
3543                     <CALL '\1aPRINC 2>
3544                     <FRAME '\1aPRIN1>
3545                     <DIV LEN10 4 = STACK (TYPE FIX)>
3546                     <DEAD LEN10>
3547                     <NTHR 'OUTCHAN 2 = TEMP37 (RECORD-TYPE ATOM) (TYPE LBIND)>
3548                     <NTHR TEMP37 1 = STACK (RECORD-TYPE LBIND)>
3549                     <DEAD TEMP37>
3550                     <CALL '\1aPRIN1 2>
3551                     <FRAME '\1aPRINC>
3552                     <PUSH " / Vector: ">
3553                     <NTHR 'OUTCHAN 2 = TEMP37 (RECORD-TYPE ATOM) (TYPE LBIND)>
3554                     <NTHR TEMP37 1 = STACK (RECORD-TYPE LBIND)>
3555                     <DEAD TEMP37>
3556                     <CALL '\1aPRINC 2>
3557                     <FRAME '\1aPRIN1>
3558                     <LENL MVECTOR11 = TEMP37 (TYPE FIX)>
3559                     <DEAD MVECTOR11>
3560                     <SUB TEMP37 1 = TEMP37 (TYPE FIX)>
3561                     <LSH TEMP37 1 = STACK (TYPE FIX)>
3562                     <DEAD TEMP37>
3563                     <NTHR 'OUTCHAN 2 = TEMP37 (RECORD-TYPE ATOM) (TYPE LBIND)>
3564                     <NTHR TEMP37 1 = STACK (RECORD-TYPE LBIND)>
3565                     <DEAD TEMP37>
3566                     <CALL '\1aPRIN1 2>
3567                     <FRAME '\1aPRINC>
3568                     <PUSH !\]>
3569                     <NTHR 'OUTCHAN 2 = TEMP37 (RECORD-TYPE ATOM) (TYPE LBIND)>
3570                     <NTHR TEMP37 1 = STACK (RECORD-TYPE LBIND)>
3571                     <DEAD TEMP37>
3572                     <CALL '\1aPRINC 2>
3573                     <UNBIND WRD25>
3574                     <DEAD WRD25>
3575                     <ADJ -9>
3576 PHRASE187
3577                     <GVAL 'NULL = WRD25>
3578                     <JUMP + PHRASE211>
3579 PHRASE49
3580                     <SET WRD25 LEN10>
3581                     <DEAD LEN10>
3582 PHRASE211
3583                     <UNBIND TEMP3>
3584                     <DEAD TEMP3>
3585                     <ADJ -9>
3586                     <RETURN WRD25>
3587                     <DEAD WRD25>
3588                     <END \1aWRITE-CODE>\r\r
3589 #WORD *26033402331*
3590 <GFCN \1aASS-INS ("VALUE" <OR FALSE FIX> <OR CONST-W-LOCAL CONSTANT FIX WORD INST ATOM>) WRD4>
3591                     <TEMP (AC?6 %<>) (ADR7:FIX 0) (IDX8:FIX 0) (INS9:FIX 0) (IND10:FIX 0) TEMP25:VECTOR FROB30 M5 TEMP39 TEMP79>
3592                     <INTGO>
3593                     <TYPE? WRD4 <TYPE-CODE ATOM> - PHRASE14>
3594                     <RETURN %<>>
3595 PHRASE14
3596                     <TYPE? WRD4 <TYPE-CODE INST> + TAG17>
3597                     <RETURN %<>>
3598 TAG17
3599                     <CHTYPE WRD4 <TYPE-CODE VECTOR> = TEMP25>
3600                     <DEAD WRD4>
3601                     <LOOP>
3602 MAP20
3603                     <INTGO>
3604                     <EMPUV? TEMP25 + MAPAP23>
3605                     <NTHUV TEMP25 1 = FROB30>
3606                     <EQUAL? FROB30 '@ - PHRASE32>
3607                     <SET IND10 16 (TYPE FIX)>
3608                     <JUMP + COND31>
3609 PHRASE32
3610                     <TYPE? FROB30 <TYPE-CODE ATOM> - PHRASE33>
3611                     <GVAL 'ACS = M5>
3612                     <EMPUV? M5 + PHRASE33>
3613                     <LOOP (FROB30 VALUE) (M5 LENGTH VALUE)>
3614 TAG37
3615                     <NTHUV M5 1 = TEMP39>
3616                     <TYPE? TEMP39 <TYPE-CODE ATOM> - TAG38>
3617                     <VEQUAL? TEMP39 FROB30 + TAG36>
3618                     <DEAD TEMP39>
3619 TAG38
3620                     <RESTUV M5 1 = M5 (TYPE VECTOR)>
3621                     <EMPUV? M5 - TAG37>
3622                     <JUMP + PHRASE33>
3623 TAG36
3624                     <TYPE? AC?6 <TYPE-CODE FALSE> - BOOL42>
3625                     <VEQUAL? IND10 0 + PHRASE41 (TYPE FIX)>
3626 BOOL42
3627                     <NTHUV M5 2 = TEMP39 (TYPE FIX)>
3628                     <DEAD M5>
3629                     <ADD TEMP39 ADR7 = ADR7 (TYPE FIX)>
3630                     <DEAD TEMP39>
3631                     <JUMP + COND31>
3632 PHRASE41
3633                     <NTHUV M5 2 = AC?6 (TYPE FIX)>
3634                     <DEAD M5>
3635                     <JUMP + COND31>
3636 PHRASE33
3637                     <TYPE? FROB30 <TYPE-CODE LOCAL-NAME> - PHRASE46>
3638                     <GVAL 'FINAL-LOCALS = M5>
3639                     <EMPL? M5 + PHRASE48>
3640                     <LOOP (FROB30 VALUE) (M5 VALUE)>
3641 TAG51
3642                     <NTHL M5 1 = TEMP39>
3643                     <TYPE? TEMP39 <TYPE-CODE LOCAL-NAME> - TAG52>
3644                     <VEQUAL? TEMP39 FROB30 + TAG50>
3645                     <DEAD TEMP39>
3646 TAG52
3647                     <RESTL M5 1 = M5 (TYPE LIST)>
3648                     <EMPL? M5 - TAG51>
3649                     <JUMP + PHRASE48>
3650 TAG50
3651                     <RESTL M5 1 = TEMP39 (TYPE LIST)>
3652                     <DEAD M5>
3653                     <NTHL TEMP39 1 = TEMP39>
3654                     <ADD TEMP39 ADR7 = ADR7 (TYPE FIX)>
3655                     <DEAD TEMP39>
3656                     <JUMP + COND31>
3657 PHRASE48
3658                     <SET ADR7 0 (TYPE FIX)>
3659                     <FRAME '\1aPRINC>
3660                     <PUSH "**** WARNING unknown local: ">
3661                     <GVAL 'OUTCHAN = STACK>
3662                     <CALL '\1aPRINC 2>
3663                     <FRAME '\1aPRIN1>
3664                     <PUSH FROB30>
3665                     <DEAD FROB30>
3666                     <GVAL 'OUTCHAN = STACK>
3667                     <CALL '\1aPRIN1 2>
3668                     <FRAME '\1aPRINC>
3669                     <PUSH " in fcn ">
3670                     <GVAL 'OUTCHAN = STACK>
3671                     <CALL '\1aPRINC 2>
3672                     <FRAME '\1aPRIN1>
3673                     <GEN-LVAL 'NAME = STACK>
3674                     <GVAL 'OUTCHAN = STACK>
3675                     <CALL '\1aPRIN1 2>
3676                     <FRAME '\1aCRLF>
3677                     <GVAL 'OUTCHAN = STACK>
3678                     <CALL '\1aCRLF 1>
3679                     <JUMP + COND31>
3680 PHRASE46
3681                     <TYPE? FROB30 <TYPE-CODE ATOM> - PHRASE61>
3682                     <FRAME '\1aLOOKUP>
3683                     <NTHR FROB30 3 = STACK (RECORD-TYPE ATOM)>
3684                     <GVAL 'OPS = STACK>
3685                     <CALL '\1aLOOKUP 2 = M5>
3686                     <TYPE? M5 <TYPE-CODE FALSE> - PHRASE66>
3687                     <FRAME '\1aLOOKUP>
3688                     <NTHR FROB30 3 = STACK (RECORD-TYPE ATOM)>
3689                     <GVAL 'JSYS-OBLIST = STACK>
3690                     <CALL '\1aLOOKUP 2 = M5>
3691                     <TYPE? M5 <TYPE-CODE FALSE> - PHRASE66>
3692                     <SET M5 FROB30>
3693                     <DEAD FROB30>
3694 PHRASE66
3695                     <SET FROB30 M5>
3696                     <DEAD M5>
3697                     <NTHR FROB30 1 = M5 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE68)>
3698                     <TYPE? M5 <TYPE-CODE FALSE> + PHRASE68>
3699                     <NTHR M5 1 = M5 (RECORD-TYPE GBIND)>
3700                     <TYPE? M5 <TYPE-CODE UNBOUND> + PHRASE68>
3701                     <DEAD M5>
3702                     <GVAL FROB30 = M5>
3703                     <TYPE? M5 <TYPE-CODE JSYS> - PHRASE68>
3704                     <DEAD M5>
3705                     <GVAL FROB30 = M5>
3706                     <LSH M5 -27 = INS9 (TYPE FIX)>
3707                     <DEAD M5>
3708                     <GVAL FROB30 = M5>
3709                     <DEAD FROB30>
3710                     <AND M5 #WORD *777777* = ADR7>
3711                     <DEAD M5>
3712                     <JUMP + COND31>
3713 PHRASE68
3714                     <NTHR FROB30 1 = M5 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE70)>
3715                     <TYPE? M5 <TYPE-CODE FALSE> + PHRASE70>
3716                     <NTHR M5 1 = M5 (RECORD-TYPE GBIND)>
3717                     <TYPE? M5 <TYPE-CODE UNBOUND> + PHRASE70>
3718                     <DEAD M5>
3719                     <GVAL FROB30 = INS9>
3720                     <DEAD FROB30>
3721                     <JUMP + COND31>
3722 PHRASE70
3723                     <FRAME '\1aMIMOCERR>
3724                     <PUSH 'BAD-OPCODE!-ERRORS>
3725                     <PUSH FROB30>
3726                     <DEAD FROB30>
3727                     <CALL '\1aMIMOCERR 2>
3728                     <JUMP + COND31>
3729 PHRASE61
3730                     <TYPE? FROB30 <TYPE-CODE LIST> - PHRASE73>
3731                     <NTHL FROB30 1 = FROB30>
3732                     <GVAL 'ACS = M5>
3733                     <TYPE FROB30 = TEMP39>
3734                     <EMPUV? M5 + TAG74>
3735                     <LOOP (FROB30 VALUE) (TEMP39 VALUE) (M5 LENGTH VALUE)>
3736 TAG76
3737                     <NTHUV M5 1 = TEMP79>
3738                     <TYPE? TEMP79 TEMP39 - TAG77>
3739                     <VEQUAL? TEMP79 FROB30 + TAG75>
3740                     <DEAD TEMP79>
3741 TAG77
3742                     <RESTUV M5 1 = M5 (TYPE VECTOR)>
3743                     <EMPUV? M5 - TAG76>
3744 TAG74
3745                     <SET M5 %<> (TYPE FALSE)>
3746 TAG75
3747                     <CHTYPE M5 <TYPE-CODE VECTOR> = M5>
3748                     <NTHUV M5 2 = IDX8 (TYPE FIX)>
3749                     <DEAD M5>
3750                     <JUMP + COND31>
3751 PHRASE73
3752                     <FRAME '\1aPRIMTYPE>
3753                     <PUSH FROB30>
3754                     <CALL '\1aPRIMTYPE 1 = M5>
3755                     <SET TEMP39 [WORD FIX] (TYPE VECTOR)>
3756                     <LOOP (M5 VALUE) (TEMP39 LENGTH VALUE)>
3757 TAG82
3758                     <NTHUV TEMP39 1 = TEMP79>
3759                     <VEQUAL? TEMP79 M5 + TAG81>
3760                     <DEAD TEMP79>
3761                     <RESTUV TEMP39 1 = TEMP39 (TYPE VECTOR)>
3762                     <EMPUV? TEMP39 - TAG82>
3763                     <JUMP + PHRASE80>
3764 TAG81
3765                     <ADD FROB30 ADR7 = ADR7 (TYPE FIX)>
3766                     <DEAD FROB30>
3767                     <JUMP + COND31>
3768 PHRASE80
3769                     <FRAME '\1aMIMOCERR>
3770                     <PUSH 'BAD-THING-IN-CODE!-ERRORS>
3771                     <PUSH FROB30>
3772                     <DEAD FROB30>
3773                     <CALL '\1aMIMOCERR 2>
3774 COND31
3775                     <RESTUV TEMP25 1 = TEMP25 (TYPE VECTOR)>
3776                     <JUMP + MAP20>
3777 MAPAP23
3778                     <TYPE? AC?6 <TYPE-CODE FALSE> - PHRASE87>
3779                     <SET AC?6 0 (TYPE FIX)>
3780 PHRASE87
3781                     <LSH INS9 27 = INS9 (TYPE FIX)>
3782                     <LSH AC?6 5 = AC?6 (TYPE FIX)>
3783                     <ADD AC?6 IND10 = AC?6 (TYPE FIX)>
3784                     <DEAD IND10>
3785                     <ADD AC?6 IDX8 = AC?6 (TYPE FIX)>
3786                     <DEAD IDX8>
3787                     <LSH AC?6 18 = AC?6 (TYPE FIX)>
3788                     <OR INS9 AC?6 = INS9>
3789                     <DEAD AC?6>
3790                     <AND ADR7 #WORD *777777* = AC?6>
3791                     <DEAD ADR7>
3792                     <OR INS9 AC?6 = AC?6>
3793                     <DEAD INS9>
3794                     <RETURN AC?6>
3795                     <DEAD AC?6>
3796                     <END \1aASS-INS>
3797 #WORD *35212502022*
3798 <GFCN \1aDUMP-CODE ("VALUE" ANY LIST CHANNEL) CODE4 TC5>
3799                     <TEMP CB6 TCB7 TEMP8 WRD19>
3800                     <INTGO>
3801                     <GVAL 'CODE-BUFFER = CB6>
3802                     <SET TCB7 CB6>
3803                     <GVAL 'CODE-LENGTH = TEMP8>
3804                     <PUTUU CB6 1 TEMP8>
3805                     <DEAD TEMP8>
3806                     <RESTUU CB6 1 = CB6 (TYPE UVECTOR)>
3807                     <SET TEMP8 CODE4 (TYPE LIST)>
3808                     <DEAD CODE4>
3809                     <LOOP>
3810 MAP10
3811                     <INTGO>
3812                     <EMPL? TEMP8 + MAPAP13>
3813                     <NTHL TEMP8 1 = WRD19>
3814                     <FRAME '\1aASS-INS>
3815                     <PUSH WRD19>
3816                     <DEAD WRD19>
3817                     <CALL '\1aASS-INS 1 = WRD19>
3818                     <TYPE? WRD19 <TYPE-CODE FALSE> + PHRASE24>
3819                     <PUTUU CB6 1 WRD19>
3820                     <DEAD WRD19>
3821                     <RESTUU CB6 1 = CB6 (TYPE UVECTOR)>
3822                     <EMPUU? CB6 - PHRASE24 (TYPE UVECTOR)>
3823                     <FRAME '\1aPRINTB>
3824                     <PUSH TCB7>
3825                     <PUSH TC5>
3826                     <CALL '\1aPRINTB 2>
3827                     <SET CB6 TCB7>
3828 PHRASE24
3829                     <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
3830                     <JUMP + MAP10>
3831 MAPAP13
3832                     <VEQUAL? CB6 TCB7 - TAG28>
3833                     <RETURN %<>>
3834 TAG28
3835                     <FRAME '\1aPRINTB>
3836                     <PUSH TCB7>
3837                     <DEAD TCB7>
3838                     <PUSH TC5>
3839                     <DEAD TC5>
3840                     <GVAL 'CB-LENGTH = TCB7>
3841                     <LENUU CB6 = CB6 (TYPE FIX)>
3842                     <SUB TCB7 CB6 = STACK (TYPE FIX)>
3843                     <DEAD TCB7 CB6>
3844                     <CALL '\1aPRINTB 3 = TEMP8>
3845                     <RETURN TEMP8>
3846                     <DEAD TEMP8>
3847                     <END \1aDUMP-CODE>
3848 #WORD *30737374657*
3849 <GFCN \1aREAD-CODE ("VALUE" <UVECTOR FIX> ANY) TC4>
3850                     <TEMP FB5:UVECTOR TEMP8>
3851                     <INTGO>
3852                     <GVAL 'ONE-WD = FB5>
3853                     <FRAME '\1aREADB>
3854                     <PUSH FB5>
3855                     <PUSH TC4>
3856                     <CALL '\1aREADB 2>
3857                     <FRAME '\1aREADB>
3858                     <NTHUU FB5 1 = TEMP8 (TYPE FIX)>
3859                     <DEAD FB5>
3860                     <UUBLOCK <TYPE-CODE UVECTOR> TEMP8 = FB5>
3861                     <DEAD TEMP8>
3862                     <SET TEMP8 FB5>
3863                     <LOOP (TEMP8 VALUE LENGTH)>
3864 ISTR9
3865                     <EMPUU? TEMP8 + ISTRE10>
3866                     <PUTUU TEMP8 1 0>
3867                     <RESTUU TEMP8 1 = TEMP8>
3868                     <JUMP + ISTR9>
3869 ISTRE10
3870                     <PUSH FB5>
3871                     <PUSH TC4>
3872                     <DEAD TC4>
3873                     <CALL '\1aREADB 2>
3874                     <RETURN FB5>
3875                     <DEAD FB5>
3876                     <END \1aREAD-CODE>
3877 #WORD *5546201065*
3878 <GFCN \1aNOPE ("VALUE" ANY LIST) L4>
3879                     <TEMP TEMP6>
3880                     <INTGO>
3881                     <FRAME '\1aMIMOCERR>
3882                     <PUSH 'CANT-OPEN-COMPILE!-ERRORS>
3883                     <PUSH L4>
3884                     <DEAD L4>
3885                     <CALL '\1aMIMOCERR 2 = TEMP6>
3886                     <RETURN TEMP6>
3887                     <DEAD TEMP6>
3888                     <END \1aNOPE>
3889 #WORD *22771272476*
3890 <GFCN \1aMIMOCERR ("VALUE" ANY "TUPLE" ANY)>
3891                     <MAKTUP T4:TUPLE TEMP6 X20 = T4>
3892                     <INTGO>
3893                     <FRAME '\1aPRINC>
3894                     <PUSH "
3895 ** Error - ">
3896                     <GEN-LVAL 'OUTCHAN = STACK>
3897                     <CALL '\1aPRINC 2>
3898                     <CHTYPE T4 <TYPE-CODE VECTOR> = TEMP6>
3899                     <LOOP>
3900 MAP10
3901                     <INTGO>
3902                     <EMPUV? TEMP6 + MAPAP13>
3903                     <NTHUV TEMP6 1 = X20>
3904                     <FRAME '\1aPRIN1>
3905                     <PUSH X20>
3906                     <DEAD X20>
3907                     <GEN-LVAL 'OUTCHAN = STACK>
3908                     <CALL '\1aPRIN1 2>
3909                     <FRAME '\1aPRINC>
3910                     <PUSH !\ >
3911                     <GEN-LVAL 'OUTCHAN = STACK>
3912                     <CALL '\1aPRINC 2>
3913                     <RESTUV TEMP6 1 = TEMP6 (TYPE VECTOR)>
3914                     <JUMP + MAP10>
3915 MAPAP13
3916                     <FRAME '\1aERROR>
3917                     <SET X20 0 (TYPE FIX)>
3918                     <SET TEMP6 T4>
3919                     <DEAD T4>
3920                     <LOOP (TEMP6 VALUE LENGTH) (X20 VALUE)>
3921 TAG30
3922                     <INTGO>
3923                     <EMPUV? TEMP6 + TAG29>
3924                     <NTHUV TEMP6 1 = STACK>
3925                     <RESTUV TEMP6 1 = TEMP6 (TYPE VECTOR)>
3926                     <ADD X20 1 = X20 (TYPE FIX)>
3927                     <JUMP + TAG30>
3928 TAG29
3929                     <CALL '\1aERROR X20>
3930                     <DEAD X20>
3931                     <FRAME '\1aRETURN>
3932                     <PUSH %<>>
3933                     <GEN-LVAL 'MACT = STACK>
3934                     <CALL '\1aRETURN 2 = TEMP6>
3935                     <RETURN TEMP6>
3936                     <DEAD TEMP6>
3937                     <END \1aMIMOCERR>
3938 #WORD *21033557035*
3939 <GFCN \1aDOC ("VALUE" ATOM "TUPLE" ANY)>
3940                     <MAKTUP NAM4 TEMP7:LBIND TEMP12 TEMP16 = NAM4>
3941                     <INTGO>
3942                     <GETS 'BIND = TEMP7 (TYPE LBIND)>
3943                     <FRAME '\1aOPEN>
3944                     <PUSH "PRINT">
3945                     <FRAME '\1aGET-NM1>
3946                     <NTHUV NAM4 1 = STACK>
3947                     <CALL '\1aGET-NM1 1 = STACK>
3948                     <PUSH ".OC">
3949                     <UBLOCK <TYPE-CODE STRING> 2 = STACK (TYPE STRING)>
3950                     <CALL '\1aOPEN 2 = TEMP12>
3951                     <BBIND 'OUTCHAN 'CHANNEL 'FIX TEMP12>
3952                     <DEAD TEMP12>
3953                     <NTHR 'OUTCHAN 2 = TEMP16 (RECORD-TYPE ATOM) (TYPE LBIND)>
3954                     <NTHR TEMP16 1 = TEMP12 (RECORD-TYPE LBIND)>
3955                     <DEAD TEMP16>
3956                     <SETG 'V1 'T>
3957                     <NTHR 'OUTCHAN 2 = TEMP16 (RECORD-TYPE ATOM) (TYPE LBIND)>
3958                     <NTHR TEMP16 1 = TEMP12 (RECORD-TYPE LBIND)>
3959                     <DEAD TEMP16>
3960                     <SETG 'V2 TEMP12>
3961                     <DEAD TEMP12>
3962                     <GVAL 'GLUE-MODE = TEMP12>
3963                     <TYPE? TEMP12 <TYPE-CODE FALSE> + PHRASE22>
3964                     <DEAD TEMP12>
3965                     <FRAME '\1aFILE-GLUE>
3966                     <SET TEMP16 0 (TYPE FIX)>
3967                     <SET TEMP12 NAM4>
3968                     <DEAD NAM4>
3969                     <LOOP (TEMP12 VALUE LENGTH) (TEMP16 VALUE)>
3970 TAG24
3971                     <INTGO>
3972                     <EMPUV? TEMP12 + TAG23>
3973                     <NTHUV TEMP12 1 = STACK>
3974                     <RESTUV TEMP12 1 = TEMP12 (TYPE VECTOR)>
3975                     <ADD TEMP16 1 = TEMP16 (TYPE FIX)>
3976                     <JUMP + TAG24>
3977 TAG23
3978                     <CALL '\1aFILE-GLUE TEMP16>
3979                     <DEAD TEMP16>
3980                     <JUMP + PHRASE26>
3981 PHRASE22
3982                     <FRAME '\1aFILE-MIMOC>
3983                     <SET TEMP12 0 (TYPE FIX)>
3984                     <SET TEMP16 NAM4>
3985                     <DEAD NAM4>
3986                     <LOOP (TEMP16 VALUE LENGTH) (TEMP12 VALUE)>
3987 TAG28
3988                     <INTGO>
3989                     <EMPUV? TEMP16 + TAG27>
3990                     <NTHUV TEMP16 1 = STACK>
3991                     <RESTUV TEMP16 1 = TEMP16 (TYPE VECTOR)>
3992                     <ADD TEMP12 1 = TEMP12 (TYPE FIX)>
3993                     <JUMP + TAG28>
3994 TAG27
3995                     <CALL '\1aFILE-MIMOC TEMP12>
3996                     <DEAD TEMP12>
3997 PHRASE26
3998                     <FRAME '\1aCLOSE>
3999                     <NTHR 'OUTCHAN 2 = TEMP12 (RECORD-TYPE ATOM) (TYPE LBIND)>
4000                     <NTHR TEMP12 1 = STACK (RECORD-TYPE LBIND)>
4001                     <DEAD TEMP12>
4002                     <CALL '\1aCLOSE 1>
4003                     <SET NAM4 'T (TYPE ATOM)>
4004                     <UNBIND TEMP7>
4005                     <DEAD TEMP7>
4006                     <ADJ -9>
4007                     <RETURN NAM4>
4008                     <DEAD NAM4>
4009                     <END \1aDOC