mim/development/mim/20c/file.mima

   1
   2 <BLOCK (<ROOT>)>
   3
   4 <NEWTYPE LOSE FIX>
   5
   6 COMPILER-INPUT
   7
   8 <COND (<NOT <GASSIGNED? GVAL-CAREFUL>> <SETG GVAL-CAREFUL <>>)>
   9
  10 <COND (<NOT <GASSIGNED? ADJBP-HACK>> <SETG ADJBP-HACK <>>)>
  11
  12 ACTIVATION
  13
  14 MRETURN
  15
  16 LOOP
  17
  18 TBIND
  19
  20 BINDID
  21
  22 DISPATCH
  23
  24 ARGS
  25
  26 OBLIST
  27
  28 INGC
  29
  30 UBLOCK
  31
  32 UUBLOCK
  33
  34 USBLOCK
  35
  36 SBLOCK
  37
  38 BIND
  39
  40 PAGPTR
  41
  42 MINF
  43
  44 ICALL
  45
  46 ECALL
  47
  48 NCALL
  49
  50 UWATM
  51
  52 MAPPER
  53
  54 ENVIR
  55
  56 RUNINT
  57
  58 PURVEC
  59
  60 DBVEC
  61
  62 M$$BINDID
  63
  64 FRAME
  65
  66 SFRAME
  67
  68 ADJ
  69
  70 SCALL
  71
  72 CALL
  73
  74 NTHR
  75
  76 =
  77
  78 FCN
  79
  80 GFCN
  81
  82 IFSYS
  83
  84 IFCANNOT
  85
  86 IFCAN
  87
  88 ENDIF
  89
  90 TEMP
  91
  92 MAKTUP
  93
  94 END
  95
  96 COMPERR
  97
  98 UNWCONT
  99
 100 IOERR
 101
 102 JUMP
 103
 104 OPT-DISPATCH
 105
 106 ICALL
 107
 108 ACALL
 109
 110 BRANCH-FALSE
 111
 112 DEAD-JUMP
 113
 114 DEAD-FALL
 115
 116 STACK
 117
 118 TYPE-CODE
 119
 120 TYPE-WORD
 121
 122 RECORD-TYPE
 123
 124 DEAD
 125
 126 ALL
 127
 128 <SETG TYPE-LENGTHS [LBIND 16 LBIND 16 GBIND 10 GBIND 10 ATOM 10 ATOM 10 OBLIST 10 OBLIST 10 LINK 10 LINK 10 LVAL 10 LVAL 10 GVAL 10 GVAL 10 FRAME 12 FRAME 12 T$SFRAME 12 SFRAME 12 T$PAGET 256 T$MINF 10 MSUBR 4 T$MSUBR 4]>
 129
 130 <SETG TYPE-WORDS [UNBOUND 0 T$UNBOUND 0 FIX 64 CHARACTER 128 FLOAT 192 LIST 257 FALSE 321 DECL 385 STRING 453 MCODE 518 T$MCODE 518 VECTOR 583 MSUBR 647 T$MSUBR 647 IMSUBR 2055 T$IMSUBR 2055 FRAME 706 FRAME 706 LBIND 770 LBIND 770 ATOM 834 ATOM 834 OBLIST 898 OBLIST 898 GBIND 962 GBIND 962 FORM 1025 T$TYPE-C 1088 TYPE-C 1088 I$TERMIN 1152 SEGMENT 1217 T$DEFER 1281 DEFER 1281 T$FUNCTION 1345 FUNCTION 1345 T$MACRO 1409 MACRO 1409 CHANNEL 1479 CHANNEL 1479 I$SDTABLE 2247 I$DISK-CHANNEL 2311 T$MUD-CHAN 2375 MUD-CHAN 2375 T$TYPE-ENTRY 1543 ADECL 1607 T$OFFSET 1671 OFFSET 1671 LVAL 1730 LVAL 1730 GVAL 1794 GVAL 1794 LINK 1858 LINK 1858 T$TUPLE 1927 TUPLE 1927 T$UVECTOR 1990 UVECTOR 1990 T$TAT 2183 TAT 2183 T$PAGET 1990 T$MINF 1990 T$WORD 2432 WORD 2432 T$PCODE 2502 PCODE 2502 T$ZONE 2567 ZONE 2567 T$GC-PARAMS 2630 GC-PARAMS 2630 T$AREA 2694 AREA 2694 T$SFRAME 2754 SFRAME 2754 T$BYTES 2820 BYTES 2820 T$TYPE-W 2880 TYPE-W 2880 T$BITS 3008 BITS 3008 T$KIND-ENTRY 3079 KIND-ENTRY 3079 T$SPLICE 3137 SPLICE 3137]>
 131
 132 <COND (<NOT <GASSIGNED? PEEP-ENABLED>> <SETG PEEP-ENABLED <>>)>
 133
 134 <COND (<NOT <GASSIGNED? LABEL-OBLIST>> <SETG LABEL-OBLIST <MOBLIST LB 0>>)>
 135
 136 <COND (<NOT <GASSIGNED? VICTIMS>> <SETG VICTIMS ()>)>
 137
 138 <COND (<NOT <GASSIGNED? SURVIVORS>> <SETG SURVIVORS ()>)>
 139
 140 <ENDBLOCK>
 141
 142 <COND (<NOT <GASSIGNED? WIDTH-MUNG>> <FLOAD "MIMOC20DEFS.MUD"> <FLOAD "MSGLUE-PM.MUD">)>
 143
 144 <COND (<NOT <GASSIGNED? CONSTANT-TABLE>> <SETG CONSTANT-TABLE <IVECTOR ,CONSTANT-TABLE-LENGTH ()>>)>
 145
 146 <COND (<NOT <GASSIGNED? MV-TABLE>> <SETG MV-TABLE <IVECTOR ,MV-TABLE-LENGTH ()>>)>
 147
 148 <COND (<NOT <GASSIGNED? DEATH-TRQ>> <SETG DEATH-TRQ T>)>
 149
 150 <COND (<NOT <GASSIGNED? MIM-OBL>> <SETG MIM-OBL <LIST !.OBLIST>>)>
 151
 152 <COND (<NOT <GASSIGNED? NO-AC-FUNNYNESS>> <SETG NO-AC-FUNNYNESS <>>)>
 153
 154 <COND (<NOT <GASSIGNED? V1>> <SETG V1 <>>)>
 155
 156 <COND (<NOT <GASSIGNED? V2>> <SETG V2 <>>)>
 157
 158 <COND (<NOT <GASSIGNED? BOOT-MODE>> <SETG BOOT-MODE <>>)>
 159
 160 <COND (<NOT <GASSIGNED? INT-MODE>> <SETG INT-MODE <>>)>
 161
 162 <COND (<NOT <GASSIGNED? GC-MODE>> <SETG GC-MODE <>>)>
 163
 164 <COND (<NOT <GASSIGNED? GLUE-MODE>> <SETG GLUE-MODE <>>)>
 165
 166 <COND (<NOT <GASSIGNED? ACA-AC>> <SETG ACA-AC <>>)>
 167
 168 <COND (<NOT <GASSIGNED? NEXT-FLUSH>> <SETG NEXT-FLUSH 0>)>
 169
 170 <COND (<NOT <GASSIGNED? MAX-SPACE>> <SETG MAX-SPACE <>>)>
 171
 172 <COND (<NOT <GASSIGNED? SURVIVOR-MODE>> <SETG SURVIVOR-MODE <>>)>
 173
 174 <COND (<NOT <GASSIGNED? LIST-OF-FCNS>> <SETG LIST-OF-FCNS ()>)>
 175
 176 <SETG CB-LENGTH 512>
 177
 178 <SETG BUFL 1024>
 179
 180 <MANIFEST CB-LENGTH BUFL>
 181
 182 <USE "FILE-INDEX">
 183
 184 <COND (<NOT <GASSIGNED? CODE-BUFFER>> <SETG CODE-BUFFER <IUVECTOR ,CB-LENGTH 0>> <SETG ONE-WD ![0!]>)>
 185
 186 <COND (<NOT <GASSIGNED? OUTPUT-BUFFER>> <SETG OUTPUT-BUFFER <ISTRING ,OUTPUT-LENGTH>>)>
 187
 188 <SETG CTLZ+1 <+ <SETG CTLZ 26> 1>>
 189
 190 <SETG MIM <==? <TYPEPRIM FIX> FIX>>
 191
 192 <COND (<GASSIGNED? CRLF-STRING!-INTERNAL> <SETG WORD-STRING <STRING ,CRLF-STRING!-INTERNAL "#WORD " <ASCII ,CTLZ>>>)>
 193
 194 <COND (,MIM <SETG PKG-OBL <CHTYPE PACKAGE OBLIST>>) (ELSE <SETG PKG-OBL <GETPROP PACKAGE OBLIST>>)>
 195
 196 <COND (<OR <NOT <ASSIGNED? READ-TABLE>> <L? <LENGTH .READ-TABLE> ,CTLZ+1>> <SETG READ-TABLE <SET READ-TABLE <IVECTOR ,CTLZ+1 <>>>>)>
 197
 198 <SETG FCN-OBL <MOBLIST FOO>>
 199
 200 <SETG FCN-OBL-L (,FCN-OBL)>
 201
 202 #WORD *37425236171*
 203 <GFCN \1aTERMIN-PRINT ("VALUE" CHARACTER I$TERMIN) TERMIN5>
 204                     <TEMP TEMP7>
 205                     <INTGO>
 206                     <FRAME '\1aPRINC>
 207                     <PUSH "#I$TERMIN ">
 208                     <GEN-LVAL 'OUTCHAN = STACK>
 209                     <CALL '\1aPRINC 2>
 210                     <FRAME '\1aPRIN1>
 211                     <CHTYPE TERMIN5 <TYPE-CODE FIX> = STACK>
 212                     <DEAD TERMIN5>
 213                     <GEN-LVAL 'OUTCHAN = STACK>
 214                     <CALL '\1aPRIN1 2>
 215                     <FRAME '\1aPRINC>
 216                     <PUSH !\ >
 217                     <GEN-LVAL 'OUTCHAN = STACK>
 218                     <CALL '\1aPRINC 2 = TEMP7>
 219                     <RETURN TEMP7>
 220                     <DEAD TEMP7>
 221                     <END \1aTERMIN-PRINT>
 222 <COND (<NOT <GASSIGNED? FOOSTR>> <SETG FOOSTR " ">)>
 223
 224 <GDECL (FOOSTR) STRING>
 225
 226 #WORD *26751250267*
 227 <GFCN \1aCHR-PRINT ("VALUE" <OR FIX STRING> CHARACTER) CHR5>
 228                     <TEMP TEMP9>
 229                     <INTGO>
 230                     <GRTR? CHR5 127 - PHRASE7 (TYPE FIX)>
 231                     <FRAME '\1aPRINC>
 232                     <PUSH "#CHARACTER ">
 233                     <GEN-LVAL 'OUTCHAN = STACK>
 234                     <CALL '\1aPRINC 2>
 235                     <FRAME '\1aPRIN1>
 236                     <CHTYPE CHR5 <TYPE-CODE FIX> = STACK>
 237                     <DEAD CHR5>
 238                     <GEN-LVAL 'OUTCHAN = STACK>
 239                     <CALL '\1aPRIN1 2 = TEMP9>
 240                     <RETURN TEMP9>
 241                     <DEAD TEMP9>
 242 PHRASE7
 243                     <FRAME '\1aPRINC>
 244                     <PUSH "!\\">
 245                     <GEN-LVAL 'OUTCHAN = STACK>
 246                     <CALL '\1aPRINC 2>
 247                     <GVAL 'FOOSTR = TEMP9>
 248                     <PUTUS TEMP9 1 CHR5>
 249                     <DEAD TEMP9 CHR5>
 250                     <FRAME '\1aPRINC>
 251                     <GVAL 'FOOSTR = STACK>
 252                     <GEN-LVAL 'OUTCHAN = STACK>
 253                     <CALL '\1aPRINC 2 = TEMP9>
 254                     <RETURN TEMP9>
 255                     <DEAD TEMP9>
 256                     <END \1aCHR-PRINT>
 257 <PRINTTYPE I$TERMIN ,TERMIN-PRINT>
 258
 259 #WORD *12761236166*
 260 <GFCN \1aATOM-PRINT ("VALUE" STRING ATOM) ATM5>
 261                     <TEMP SPN6:STRING TEMP10 TEMP24>
 262                     <INTGO>
 263                     <NTHR ATM5 3 = SPN6 (RECORD-TYPE ATOM)>
 264                     <LENUS SPN6 = TEMP10 (TYPE FIX)>
 265                     <LESS? TEMP10 2 + PHRASE8 (TYPE FIX)>
 266                     <DEAD TEMP10>
 267                     <NTHUS SPN6 1 = TEMP10 (TYPE CHARACTER)>
 268                     <VEQUAL? TEMP10 !\T - PHRASE8>
 269                     <DEAD TEMP10>
 270                     <NTHUS SPN6 2 = TEMP10 (TYPE CHARACTER)>
 271                     <VEQUAL? TEMP10 !\$ - PHRASE8>
 272                     <DEAD TEMP10>
 273                     <FRAME '\1aPRINC>
 274                     <RESTUS SPN6 2 = STACK (TYPE STRING)>
 275                     <DEAD SPN6>
 276                     <GEN-LVAL 'OUTCHAN = STACK>
 277                     <CALL '\1aPRINC 2>
 278                     <GVAL 'BOOT-MODE = TEMP10>
 279                     <TYPE? TEMP10 <TYPE-CODE FALSE> - PHRASE32>
 280                     <DEAD TEMP10>
 281                     <FRAME '\1aPRINC>
 282                     <PUSH "!-">
 283                     <GEN-LVAL 'OUTCHAN = STACK>
 284                     <CALL '\1aPRINC 2>
 285                     <JUMP + PHRASE32>
 286 PHRASE8
 287                     <NTHR ATM5 4 = TEMP10 (RECORD-TYPE ATOM)>
 288                     <FRAME '\1aROOT>
 289                     <CALL '\1aROOT 0 = TEMP24>
 290                     <EQUAL? TEMP10 TEMP24 + BOOL21>
 291                     <DEAD TEMP10 TEMP24>
 292                     <FRAME '\1aMEMBER>
 293                     <NTHR ATM5 3 = STACK (RECORD-TYPE ATOM)>
 294                     <DEAD ATM5>
 295                     <GVAL 'ROOT-ATOMS = STACK>
 296                     <CALL '\1aMEMBER 2 = TEMP24>
 297                     <TYPE? TEMP24 <TYPE-CODE FALSE> + PHRASE19>
 298                     <DEAD TEMP24>
 299 BOOL21
 300                     <GVAL 'BOOT-MODE = TEMP24>
 301                     <TYPE? TEMP24 <TYPE-CODE FALSE> - PHRASE19>
 302                     <DEAD TEMP24>
 303                     <FRAME '\1aPRINC>
 304                     <PUSH SPN6>
 305                     <DEAD SPN6>
 306                     <GEN-LVAL 'OUTCHAN = STACK>
 307                     <CALL '\1aPRINC 2>
 308                     <FRAME '\1aPRINC>
 309                     <PUSH "!-">
 310                     <GEN-LVAL 'OUTCHAN = STACK>
 311                     <CALL '\1aPRINC 2>
 312                     <JUMP + PHRASE32>
 313 PHRASE19
 314                     <FRAME '\1aPRINC>
 315                     <PUSH SPN6>
 316                     <DEAD SPN6>
 317                     <GEN-LVAL 'OUTCHAN = STACK>
 318                     <CALL '\1aPRINC 2>
 319 PHRASE32
 320                     <FRAME '\1aPRINC>
 321                     <PUSH " ">
 322                     <GEN-LVAL 'OUTCHAN = STACK>
 323                     <CALL '\1aPRINC 2 = SPN6>
 324                     <RETURN SPN6>
 325                     <DEAD SPN6>
 326                     <END \1aATOM-PRINT>
 327 <COND (<NOT <GASSIGNED? ROOT-ATOMS>> <SETG ROOT-ATOMS ["M$$BINDID" "M$$INT-LEVEL"]>)>
 328
 329 <GDECL (ROOT-ATOMS) <VECTOR [REST STRING]>>
 330
 331 #WORD *12454471220*
 332 <GFCN \1aT$UNBOUND-PRINT ("VALUE" CHARACTER T$UNBOUND) UNB5>
 333                     <TEMP TEMP7>
 334                     <INTGO>
 335                     <FRAME '\1aPRINC>
 336                     <PUSH "#UNBOUND ">
 337                     <GEN-LVAL 'OUTCHAN = STACK>
 338                     <CALL '\1aPRINC 2>
 339                     <FRAME '\1aPRIN1>
 340                     <CHTYPE UNB5 <TYPE-CODE FIX> = STACK>
 341                     <DEAD UNB5>
 342                     <GEN-LVAL 'OUTCHAN = STACK>
 343                     <CALL '\1aPRIN1 2>
 344                     <FRAME '\1aPRINC>
 345                     <PUSH !\ >
 346                     <GEN-LVAL 'OUTCHAN = STACK>
 347                     <CALL '\1aPRINC 2 = TEMP7>
 348                     <RETURN TEMP7>
 349                     <DEAD TEMP7>
 350                     <END \1aT$UNBOUND-PRINT>
 351 <PRINTTYPE T$UNBOUND ,T$UNBOUND-PRINT>
 352
 353 #WORD *3614577217*
 354 <GFCN \1aXGLOC-PRINT ("VALUE" <OR ATOM STRING> XGLOC) X5>
 355                     <TEMP TEMP8>
 356                     <INTGO>
 357                     <GVAL 'BOOT-MODE = TEMP8>
 358                     <TYPE? TEMP8 <TYPE-CODE FALSE> + PHRASE7>
 359                     <DEAD TEMP8>
 360                     <FRAME '\1aPRIN1>
 361                     <CHTYPE X5 <TYPE-CODE ATOM> = STACK>
 362                     <DEAD X5>
 363                     <GEN-LVAL 'OUTCHAN = STACK>
 364                     <CALL '\1aPRIN1 2 = TEMP8>
 365                     <RETURN TEMP8>
 366                     <DEAD TEMP8>
 367 PHRASE7
 368                     <FRAME '\1aPRINC>
 369                     <PUSH "%<GBIND ">
 370                     <GEN-LVAL 'OUTCHAN = STACK>
 371                     <CALL '\1aPRINC 2>
 372                     <FRAME '\1aPRIN1>
 373                     <CHTYPE X5 <TYPE-CODE ATOM> = STACK>
 374                     <DEAD X5>
 375                     <GEN-LVAL 'OUTCHAN = STACK>
 376                     <CALL '\1aPRIN1 2>
 377                     <FRAME '\1aPRINC>
 378                     <PUSH " T> ">
 379                     <GEN-LVAL 'OUTCHAN = STACK>
 380                     <CALL '\1aPRINC 2 = TEMP8>
 381                     <RETURN TEMP8>
 382                     <DEAD TEMP8>
 383                     <END \1aXGLOC-PRINT>
 384 <PRINTTYPE XGLOC ,XGLOC-PRINT>
 385
 386 <SET REDEFINE T>
 387
 388 #WORD *36340161352*
 389 <GFCN \1aXTYPE-C-PRINT ("VALUE" STRING XTYPE-C) X5>
 390                     <TEMP ATM6>
 391                     <INTGO>
 392                     <CHTYPE X5 <TYPE-CODE ATOM> = ATM6>
 393                     <DEAD X5>
 394                     <FRAME '\1aPRINC>
 395                     <PUSH "%<TYPE-C ">
 396                     <GEN-LVAL 'OUTCHAN = STACK>
 397                     <CALL '\1aPRINC 2>
 398                     <FRAME '\1aPRIN1>
 399                     <PUSH ATM6>
 400                     <GEN-LVAL 'OUTCHAN = STACK>
 401                     <CALL '\1aPRIN1 2>
 402                     <FRAME '\1aPRINC>
 403                     <PUSH !\ >
 404                     <GEN-LVAL 'OUTCHAN = STACK>
 405                     <CALL '\1aPRINC 2>
 406                     <FRAME '\1aTYPEPRIM>
 407                     <PUSH ATM6>
 408                     <DEAD ATM6>
 409                     <CALL '\1aTYPEPRIM 1 = ATM6>
 410                     <VEQUAL? ATM6 'WORD - PHRASE20>
 411                     <SET ATM6 'FIX (TYPE ATOM)>
 412 PHRASE20
 413                     <FRAME '\1aPRIN1>
 414                     <PUSH ATM6>
 415                     <DEAD ATM6>
 416                     <GEN-LVAL 'OUTCHAN = STACK>
 417                     <CALL '\1aPRIN1 2>
 418                     <FRAME '\1aPRINC>
 419                     <PUSH ">">
 420                     <GEN-LVAL 'OUTCHAN = STACK>
 421                     <CALL '\1aPRINC 2 = ATM6>
 422                     <RETURN ATM6>
 423                     <DEAD ATM6>
 424                     <END \1aXTYPE-C-PRINT>
 425 #WORD *13340161350*
 426 <GFCN \1aXTYPE-W-PRINT ("VALUE" STRING XTYPE-W) X5>
 427                     <TEMP ATM6>
 428                     <INTGO>
 429                     <CHTYPE X5 <TYPE-CODE ATOM> = ATM6>
 430                     <DEAD X5>
 431                     <FRAME '\1aPRINC>
 432                     <PUSH "%<TYPE-W ">
 433                     <GEN-LVAL 'OUTCHAN = STACK>
 434                     <CALL '\1aPRINC 2>
 435                     <FRAME '\1aPRIN1>
 436                     <PUSH ATM6>
 437                     <GEN-LVAL 'OUTCHAN = STACK>
 438                     <CALL '\1aPRIN1 2>
 439                     <FRAME '\1aPRINC>
 440                     <PUSH !\ >
 441                     <GEN-LVAL 'OUTCHAN = STACK>
 442                     <CALL '\1aPRINC 2>
 443                     <FRAME '\1aTYPEPRIM>
 444                     <PUSH ATM6>
 445                     <DEAD ATM6>
 446                     <CALL '\1aTYPEPRIM 1 = ATM6>
 447                     <VEQUAL? ATM6 'WORD - PHRASE20>
 448                     <SET ATM6 'FIX (TYPE ATOM)>
 449 PHRASE20
 450                     <FRAME '\1aPRIN1>
 451                     <PUSH ATM6>
 452                     <DEAD ATM6>
 453                     <GEN-LVAL 'OUTCHAN = STACK>
 454                     <CALL '\1aPRIN1 2>
 455                     <FRAME '\1aPRINC>
 456                     <PUSH ">">
 457                     <GEN-LVAL 'OUTCHAN = STACK>
 458                     <CALL '\1aPRINC 2 = ATM6>
 459                     <RETURN ATM6>
 460                     <DEAD ATM6>
 461                     <END \1aXTYPE-W-PRINT>
 462 <PRINTTYPE XTYPE-C ,XTYPE-C-PRINT>
 463
 464 <PRINTTYPE XTYPE-W ,XTYPE-W-PRINT>
 465
 466 <COND (<NOT <GASSIGNED? OPS>> <COND (<GASSIGNED? BLOAT> <BLOAT 100000 5000 100 1500>)> <FLOAD "<MIM.20C>OP.MUD">) (<GASSIGNED? BLOAT> <BLOAT 100000 5000 100 100>)>
 467
 468 <COND (<NOT <GASSIGNED? OPCODE>> <FLOAD "<MIM.20C>MIMOPS.MUD">)>
 469
 470 <GDECL (SURVIVORS INCHANS) LIST (OPT-LIST) <OR FALSE LIST> (THIS-GUY) <LIST ATOM <LIST [REST OBLIST]>>>
 471
 472 #WORD *27146723303*
 473 <GFCN \1aPROCESS-IFSYS ("VALUE" ATOM LIST) L5>
 474                     <TEMP IFL9 LP12:LIST LL13:LIST ITM11 IFOBJ10 TEMP23 TEMP24 TEMP30 TEMP31>
 475                     <INTGO>
 476                     <SET IFL9 () (TYPE LIST)>
 477                     <SET LP12 L5>
 478                     <RESTL L5 1 = LL13 (TYPE LIST)>
 479                     <DEAD L5>
 480                     <LOOP>
 481 AGAIN14
 482                     <INTGO>
 483                     <EMPL? LL13 - PHRASE16 (TYPE LIST)>
 484                     <RETURN 'T>
 485 PHRASE16
 486                     <NTHL LL13 1 = ITM11>
 487                     <TYPE? ITM11 <TYPE-CODE FORM> - PHRASE18>
 488                     <NTHL ITM11 1 = IFOBJ10>
 489                     <SET TEMP23 [IFSYS ENDIF IFCAN IFCANNOT] (TYPE VECTOR)>
 490                     <TYPE? IFOBJ10 <TYPE-CODE ATOM> - PHRASE18>
 491                     <LOOP (IFOBJ10 VALUE) (TEMP23 LENGTH VALUE)>
 492 TAG21
 493                     <NTHUV TEMP23 1 = TEMP24>
 494                     <VEQUAL? TEMP24 IFOBJ10 + TAG20>
 495                     <DEAD TEMP24>
 496                     <RESTUV TEMP23 1 = TEMP23 (TYPE VECTOR)>
 497                     <EMPUV? TEMP23 - TAG21>
 498                     <JUMP + PHRASE18>
 499 TAG20
 500                     <EQUAL? IFOBJ10 'IFSYS - PHRASE26>
 501                     <RESTL ITM11 1 = TEMP23 (TYPE LIST)>
 502                     <NTHL TEMP23 1 = TEMP23>
 503                     <TYPE? TEMP23 <TYPE-CODE STRING> - PHRASE28>
 504                     <IFCAN "STRING-EQUAL?">
 505                     <STRING-EQUAL? TEMP23 "TOPS20" - PHRASE28>
 506                     <ENDIF "STRING-EQUAL?">
 507                     <IFCANNOT "STRING-EQUAL?">
 508                     <SET TEMP24 "TOPS20" (TYPE STRING)>
 509                     <LENUS TEMP23 = IFOBJ10 (TYPE FIX)>
 510                     <VEQUAL? IFOBJ10 6 - PHRASE28>
 511                     <LOOP (TEMP23 VALUE LENGTH) (TEMP24 VALUE LENGTH) (IFOBJ10 VALUE)>
 512 TAG32
 513                     <NTHUS TEMP23 1 = TEMP30>
 514                     <NTHUS TEMP24 1 = TEMP31>
 515                     <VEQUAL? TEMP30 TEMP31 - PHRASE28>
 516                     <DEAD TEMP30 TEMP31>
 517                     <RESTUS TEMP23 1 = TEMP23 (TYPE STRING)>
 518                     <RESTUS TEMP24 1 = TEMP24 (TYPE STRING)>
 519                     <SUB IFOBJ10 1 = IFOBJ10 (TYPE FIX)>
 520                     <GRTR? IFOBJ10 0 + TAG32 (TYPE FIX)>
 521                     <ENDIF "STRING-EQUAL?">
 522                     <RESTL ITM11 1 = TEMP24 (TYPE LIST)>
 523                     <DEAD ITM11>
 524                     <NTHL TEMP24 1 = TEMP24>
 525                     <CONS TEMP24 IFL9 = IFL9>
 526                     <DEAD TEMP24>
 527                     <RESTL LL13 1 = LL13 (TYPE LIST)>
 528                     <PUTREST LP12 LL13>
 529                     <JUMP + AGAIN14>
 530 PHRASE28
 531                     <FRAME '\1aFLUSH-TO-ENDIF>
 532                     <PUSH LL13>
 533                     <DEAD LL13>
 534                     <RESTL ITM11 1 = TEMP24 (TYPE LIST)>
 535                     <DEAD ITM11>
 536                     <NTHL TEMP24 1 = STACK>
 537                     <DEAD TEMP24>
 538                     <CALL '\1aFLUSH-TO-ENDIF 2 = LL13>
 539                     <PUTREST LP12 LL13>
 540                     <JUMP + AGAIN14>
 541 PHRASE26
 542                     <EQUAL? IFOBJ10 'IFCAN + BOOL36>
 543                     <EQUAL? IFOBJ10 'IFCANNOT - PHRASE35>
 544 BOOL36
 545                     <EQUAL? IFOBJ10 'IFCAN - PHRASE40>
 546                     <DEAD IFOBJ10>
 547                     <FRAME '\1aLOOKUP>
 548                     <RESTL ITM11 1 = TEMP24 (TYPE LIST)>
 549                     <NTHL TEMP24 1 = STACK (TYPE STRING)>
 550                     <DEAD TEMP24>
 551                     <GVAL 'MIMOC-OBLIST = STACK>
 552                     <CALL '\1aLOOKUP 2 = TEMP24>
 553                     <TYPE? TEMP24 <TYPE-CODE FALSE> + PHRASE38>
 554                     <DEAD TEMP24>
 555                     <JUMP + PHRASE42>
 556 PHRASE40
 557                     <FRAME '\1aLOOKUP>
 558                     <RESTL ITM11 1 = TEMP24 (TYPE LIST)>
 559                     <NTHL TEMP24 1 = STACK (TYPE STRING)>
 560                     <DEAD TEMP24>
 561                     <GVAL 'MIMOC-OBLIST = STACK>
 562                     <CALL '\1aLOOKUP 2 = TEMP24>
 563                     <TYPE? TEMP24 <TYPE-CODE FALSE> - PHRASE38>
 564                     <DEAD TEMP24>
 565 PHRASE42
 566                     <RESTL ITM11 1 = TEMP24 (TYPE LIST)>
 567                     <DEAD ITM11>
 568                     <NTHL TEMP24 1 = TEMP24>
 569                     <CONS TEMP24 IFL9 = IFL9>
 570                     <DEAD TEMP24>
 571                     <RESTL LL13 1 = LL13 (TYPE LIST)>
 572                     <PUTREST LP12 LL13>
 573                     <JUMP + AGAIN14>
 574 PHRASE38
 575                     <FRAME '\1aFLUSH-TO-ENDIF>
 576                     <PUSH LL13>
 577                     <DEAD LL13>
 578                     <RESTL ITM11 1 = TEMP24 (TYPE LIST)>
 579                     <DEAD ITM11>
 580                     <NTHL TEMP24 1 = STACK>
 581                     <DEAD TEMP24>
 582                     <CALL '\1aFLUSH-TO-ENDIF 2 = LL13>
 583                     <PUTREST LP12 LL13>
 584                     <JUMP + AGAIN14>
 585 PHRASE35
 586                     <EMPL? IFL9 + BOOL49 (TYPE LIST)>
 587                     <FRAME '\1aN=?>
 588                     <RESTL ITM11 1 = TEMP24 (TYPE LIST)>
 589                     <NTHL TEMP24 1 = STACK>
 590                     <DEAD TEMP24>
 591                     <NTHL IFL9 1 = STACK>
 592                     <CALL '\1aN=? 2 = TEMP24>
 593                     <VEQUAL? TEMP24 0 + PHRASE48>
 594                     <DEAD TEMP24>
 595 BOOL49
 596                     <FRAME '\1aERROR>
 597                     <PUSH 'UNBALANCED-IFSYS!-ERRORS>
 598                     <RESTL ITM11 1 = TEMP24 (TYPE LIST)>
 599                     <DEAD ITM11>
 600                     <NTHL TEMP24 1 = STACK>
 601                     <DEAD TEMP24>
 602                     <PUSH IFL9>
 603                     <CALL '\1aERROR 3>
 604                     <JUMP + PHRASE52>
 605 PHRASE48
 606                     <RESTL IFL9 1 = IFL9 (TYPE LIST)>
 607 PHRASE52
 608                     <RESTL LL13 1 = LL13 (TYPE LIST)>
 609                     <PUTREST LP12 LL13>
 610                     <JUMP + AGAIN14>
 611 PHRASE18
 612                     <SET LP12 LL13>
 613                     <DEAD LL13>
 614                     <RESTL LP12 1 = LL13 (TYPE LIST)>
 615                     <JUMP + AGAIN14>
 616                     <END \1aPROCESS-IFSYS>
 617 #WORD *6165343027*
 618 <GFCN \1aFLUSH-TO-ENDIF ("VALUE" <OR ATOM LIST> LIST ANY) L5 FLG6>
 619                     <TEMP (CT8:FIX 1) TEMP10>
 620                     <INTGO>
 621                     <LOOP>
 622 AGAIN13
 623                     <INTGO>
 624                     <RESTL L5 1 = L5 (TYPE LIST)>
 625                     <EMPL? L5 - PHRASE15 (TYPE LIST)>
 626                     <FRAME '\1aERROR>
 627                     <PUSH 'EOF-BEFORE-ENDIF!-ERRORS>
 628                     <CALL '\1aERROR 1>
 629                     <RETURN 'T>
 630 PHRASE15
 631                     <NTHL L5 1 = TEMP10>
 632                     <TYPE? TEMP10 <TYPE-CODE FORM> - AGAIN13>
 633                     <NTHL TEMP10 1 = TEMP10>
 634                     <EQUAL? TEMP10 'ENDIF - PHRASE20>
 635                     <SUB CT8 1 = CT8 (TYPE FIX)>
 636                     <VEQUAL? CT8 0 - AGAIN13 (TYPE FIX)>
 637                     <RESTL L5 1 = TEMP10 (TYPE LIST)>
 638                     <DEAD L5>
 639                     <RETURN TEMP10>
 640                     <DEAD TEMP10>
 641 PHRASE20
 642                     <EQUAL? TEMP10 'IFSYS + BOOL26>
 643                     <EQUAL? TEMP10 'IFCAN + BOOL26>
 644                     <EQUAL? TEMP10 'IFCANNOT - AGAIN13>
 645                     <DEAD TEMP10>
 646 BOOL26
 647                     <ADD CT8 1 = CT8 (TYPE FIX)>
 648                     <JUMP + AGAIN13>
 649                     <END \1aFLUSH-TO-ENDIF>
 650 #WORD *5225266236*
 651 <GFCN \1aGET-NM1 ("VALUE" STRING STRING) STR5>
 652                     <TEMP (SEEN-OP6 %<>) TEMP13:STRING TEMP16 CH18>
 653                     <INTGO>
 654                     <SET TEMP13 STR5 (TYPE STRING)>
 655                     <DEAD STR5>
 656                     <SET TEMP16 0 (TYPE FIX)>
 657                     <LOOP>
 658 MAP8
 659                     <INTGO>
 660                     <EMPUS? TEMP13 + MAPAP11>
 661                     <NTHUS TEMP13 1 = CH18>
 662                     <VEQUAL? CH18 !\< - PHRASE20>
 663                     <SET SEEN-OP6 'T (TYPE ATOM)>
 664                     <SET CH18 SEEN-OP6>
 665                     <JUMP + PHRASE26>
 666 PHRASE20
 667                     <VEQUAL? CH18 !\> - PHRASE22>
 668                     <SET SEEN-OP6 %<> (TYPE FALSE)>
 669                     <SET CH18 SEEN-OP6>
 670                     <JUMP + PHRASE26>
 671 PHRASE22
 672                     <VEQUAL? SEEN-OP6 0 - PHRASE23>
 673                     <VEQUAL? CH18 !\. + MAPAP11>
 674 PHRASE23
 675 PHRASE26
 676                     <PUSH CH18>
 677                     <DEAD CH18>
 678                     <ADD TEMP16 1 = TEMP16 (TYPE FIX)>
 679                     <RESTUS TEMP13 1 = TEMP13 (TYPE STRING)>
 680                     <JUMP + MAP8>
 681 MAPAP11
 682                     <UBLOCK <TYPE-CODE STRING> TEMP16 = TEMP16 (TYPE STRING)>
 683                     <RETURN TEMP16>
 684                     <DEAD TEMP16>
 685                     <END \1aGET-NM1>
 686 #WORD *2766341335*
 687 <GFCN \1aFILE-MIMOC ("VALUE" ANY "TUPLE" <<PRIMTYPE VECTOR> [REST STRING]>)>
 688                     <MAKTUP FILES4 C5 OC6 TEMP3:LBIND TEMP16 EXPFLOAD8 (PREC10 %<>) REDO13:LIST ON14:STRING PRE-INDEX11:LIST TEMP57 L59 TEMP61 HASH-CODE81 NM78 NXT75 ACCESS-DATA79:LIST F-OR-G9 = FILES4>
 689                     <INTGO>
 690                     <GETS 'BIND = TEMP3 (TYPE LBIND)>
 691                     <GEN-LVAL 'OUTCHAN = TEMP16>
 692                     <BBIND 'OUTCHAN 'ANY 'FIX TEMP16>
 693                     <DEAD TEMP16>
 694                     <GEN-ASSIGNED? 'EXPFLOAD + TAG20>
 695                     <SET TEMP16 %<> (TYPE FALSE)>
 696                     <JUMP + BOOL19>
 697 TAG20
 698                     <GEN-LVAL 'EXPFLOAD = TEMP16>
 699 BOOL19
 700                     <SET EXPFLOAD8 TEMP16>
 701                     <DEAD TEMP16>
 702                     <BBIND 'COMPILER-INPUT 'CHANNEL 'FIX>
 703                     <GEN-ASSIGNED? 'REDO + TAG26>
 704                     <SET TEMP16 %<> (TYPE FALSE)>
 705                     <JUMP + BOOL25>
 706 TAG26
 707                     <GEN-LVAL 'REDO = TEMP16>
 708 BOOL25
 709                     <SET REDO13 TEMP16>
 710                     <DEAD TEMP16>
 711                     <GEN-ASSIGNED? 'PRECOMPILED + TAG32>
 712                     <SET TEMP16 %<> (TYPE FALSE)>
 713                     <JUMP + BOOL31>
 714 TAG32
 715                     <GEN-LVAL 'PRECOMPILED = TEMP16>
 716 BOOL31
 717                     <FRAME '\1aOPEN>
 718                     <PUSH "READ">
 719                     <NTHUV FILES4 1 = STACK (TYPE STRING)>
 720                     <CALL '\1aOPEN 2 = C5>
 721                     <TYPE? C5 <TYPE-CODE FALSE> + PHRASE38>
 722                     <FRAME '\1aOPEN>
 723                     <PUSH "PRINT">
 724                     <FRAME '\1aGET-NM1>
 725                     <NTHUV FILES4 1 = STACK (TYPE STRING)>
 726                     <CALL '\1aGET-NM1 1 = STACK>
 727                     <PUSH ".MSUBR">
 728                     <UBLOCK <TYPE-CODE STRING> 2 = ON14 (TYPE STRING)>
 729                     <PUSH ON14>
 730                     <CALL '\1aOPEN 2 = OC6>
 731                     <TYPE? OC6 <TYPE-CODE FALSE> + PHRASE38>
 732                     <TYPE? TEMP16 <TYPE-CODE FALSE> + BOOL48>
 733                     <FRAME '\1aOPEN>
 734                     <PUSH "READ">
 735                     <PUSH TEMP16>
 736                     <DEAD TEMP16>
 737                     <CALL '\1aOPEN 2 = PREC10>
 738                     <TYPE? PREC10 <TYPE-CODE FALSE> + PHRASE38>
 739                     <FRAME '\1aBUILD-INDEX>
 740                     <PUSH PREC10>
 741                     <GVAL 'FCN-OBL = STACK>
 742                     <CALL '\1aBUILD-INDEX 2 = PRE-INDEX11>
 743                     <EMPL? REDO13 + BOOL48 (TYPE LIST)>
 744                     <SET TEMP57 %<> (TYPE FALSE)>
 745                     <SET TEMP16 REDO13 (TYPE LIST)>
 746                     <LOOP>
 747 MAP50
 748                     <INTGO>
 749                     <EMPL? TEMP16 + MAPAP53>
 750                     <SET L59 TEMP16>
 751                     <NTHL L59 1 = TEMP61 (TYPE ATOM)>
 752                     <NTHR TEMP61 3 = TEMP57 (RECORD-TYPE ATOM)>
 753                     <DEAD TEMP61>
 754                     <FRAME '\1aLOOKUP>
 755                     <PUSH TEMP57>
 756                     <GVAL 'FCN-OBL = STACK>
 757                     <CALL '\1aLOOKUP 2 = TEMP61>
 758                     <TYPE? TEMP61 <TYPE-CODE FALSE> - BOOL62>
 759                     <FRAME '\1aINSERT>
 760                     <PUSH TEMP57>
 761                     <DEAD TEMP57>
 762                     <GVAL 'FCN-OBL = STACK>
 763                     <CALL '\1aINSERT 2 = TEMP61>
 764 BOOL62
 765                     <PUTL L59 1 TEMP61>
 766                     <DEAD TEMP61>
 767                     <SET TEMP57 L59>
 768                     <DEAD L59>
 769                     <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
 770                     <JUMP + MAP50>
 771 MAPAP53
 772                     <TYPE? TEMP57 <TYPE-CODE FALSE> + PHRASE38>
 773                     <DEAD TEMP57>
 774 BOOL48
 775                     <NTHR 'COMPILER-INPUT 2 = TEMP16 (RECORD-TYPE ATOM) (TYPE LBIND)>
 776                     <PUTR TEMP16 1 C5 (RECORD-TYPE LBIND)>
 777                     <DEAD TEMP16>
 778                     <CONS C5 () = TEMP16>
 779                     <SETG 'INCHANS TEMP16>
 780                     <DEAD TEMP16>
 781                     <RESTUV FILES4 1 = FILES4 (TYPE VECTOR)>
 782                     <CHTYPE FILES4 <TYPE-CODE VECTOR> = FILES4>
 783                     <UUBLOCK <TYPE-CODE STRING> 1024 = ON14 (TYPE STRING)>
 784                     <LOOP>
 785 AGAIN70
 786                     <INTGO>
 787                     <SET L59 () (TYPE LIST)>
 788                     <GETS 'BIND = TEMP57 (TYPE LBIND)>
 789                     <BBIND 'NAME 'ATOM 'FIX>
 790                     <BBIND 'END <OR FALSE ATOM> 'FIX %<>>
 791                     <SET HASH-CODE81 #UNBOUND 0 >
 792                     <LOOP>
 793 AGAIN82
 794                     <INTGO>
 795                     <FRAME '\1aFINISH-FILE>
 796                     <PUSH C5>
 797                     <PUSH OC6>
 798                     <PUSH EXPFLOAD8>
 799                     <CALL '\1aFINISH-FILE 3 = TEMP61>
 800                     <TYPE? TEMP61 <TYPE-CODE FALSE> + PHRASE84>
 801                     <TYPE? TEMP61 <TYPE-CODE FORM> - PHRASE94>
 802                     <EMPL? TEMP61 + BOOL91>
 803                     <RESTL TEMP61 1 = TEMP16 (TYPE LIST)>
 804                     <EMPL? TEMP16 + BOOL91>
 805                     <DEAD TEMP16>
 806                     <RESTL TEMP61 1 = TEMP16 (TYPE LIST)>
 807                     <NTHL TEMP16 1 = TEMP16>
 808                     <TYPE? TEMP16 <TYPE-CODE ATOM> - BOOL91>
 809                     <NTHR TEMP16 3 = TEMP16 (RECORD-TYPE ATOM)>
 810                     <FRAME '\1aLOOKUP>
 811                     <PUSH TEMP16>
 812                     <GVAL 'FCN-OBL = STACK>
 813                     <CALL '\1aLOOKUP 2 = NM78>
 814                     <TYPE? NM78 <TYPE-CODE FALSE> - BOOL91>
 815                     <FRAME '\1aINSERT>
 816                     <PUSH TEMP16>
 817                     <DEAD TEMP16>
 818                     <GVAL 'FCN-OBL = STACK>
 819                     <CALL '\1aINSERT 2 = NM78>
 820 BOOL91
 821                     <SET NXT75 TEMP61>
 822                     <JUMP + PHRASE94>
 823 PHRASE84
 824                     <NTHR 'END 2 = TEMP16 (RECORD-TYPE ATOM) (TYPE LBIND)>
 825                     <PUTR TEMP16 1 'T (RECORD-TYPE LBIND)>
 826                     <DEAD TEMP16>
 827 PHRASE94
 828                     <NTHR 'END 2 = TEMP16 (RECORD-TYPE ATOM) (TYPE LBIND)>
 829                     <NTHR TEMP16 1 = TEMP16 (RECORD-TYPE LBIND)>
 830                     <TYPE? TEMP16 <TYPE-CODE FALSE> + BOOL97>
 831                     <DEAD TEMP16>
 832                     <UNBIND TEMP57>
 833                     <DEAD TEMP57>
 834                     <JUMP + EXIT71>
 835 BOOL97
 836                     <GVAL 'INCHANS = TEMP16>
 837                     <NTHL TEMP16 1 = C5>
 838                     <DEAD TEMP16>
 839                     <TYPE? TEMP61 <TYPE-CODE WORD> - PHRASE101>
 840                     <SET HASH-CODE81 TEMP61>
 841                     <DEAD TEMP61>
 842                     <JUMP + MAPAP187>
 843 PHRASE101
 844                     <TYPE? PREC10 <TYPE-CODE FALSE> + PHRASE102>
 845                     <SET TEMP16 REDO13>
 846                     <TYPE? NM78 <TYPE-CODE ATOM> - TAG104>
 847                     <EMPL? TEMP16 + TAG104>
 848                     <LOOP (NM78 VALUE) (TEMP16 VALUE)>
 849 TAG105
 850                     <NTHL TEMP16 1 = TEMP61>
 851                     <VEQUAL? TEMP61 NM78 + PHRASE102>
 852                     <DEAD TEMP61>
 853                     <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
 854                     <EMPL? TEMP16 - TAG105>
 855 TAG104
 856                     <SET TEMP61 %<> (TYPE FALSE)>
 857                     <SET TEMP16 PRE-INDEX11 (TYPE LIST)>
 858                     <LOOP>
 859 MAP108
 860                     <INTGO>
 861                     <EMPL? TEMP16 + MAPAP111>
 862                     <NTHL TEMP16 1 = L59>
 863                     <NTHL L59 1 = TEMP61 (TYPE ATOM)>
 864                     <EQUAL? TEMP61 NM78 + TAG119>
 865                     <DEAD TEMP61>
 866                     <SET TEMP61 %<> (TYPE FALSE)>
 867                     <JUMP + PHRASE124>
 868 TAG119
 869                     <RESTL L59 1 = ACCESS-DATA79 (TYPE LIST)>
 870                     <DEAD L59>
 871                     <EMPL? ACCESS-DATA79 + BOOL123>
 872                     <RESTL ACCESS-DATA79 1 = TEMP61 (TYPE LIST)>
 873                     <EMPL? TEMP61 + BOOL123>
 874                     <RESTL TEMP61 1 = TEMP61 (TYPE LIST)>
 875                     <EMPL? TEMP61 + BOOL123>
 876                     <DEAD TEMP61>
 877                     <TYPE? HASH-CODE81 <TYPE-CODE UNBOUND> + BOOL123>
 878                     <RESTL ACCESS-DATA79 1 = TEMP61 (TYPE LIST)>
 879                     <RESTL TEMP61 1 = TEMP61 (TYPE LIST)>
 880                     <NTHL TEMP61 1 = TEMP61>
 881                     <EQUAL? TEMP61 HASH-CODE81 - PHRASE122>
 882                     <DEAD TEMP61>
 883 BOOL123
 884                     <SET TEMP61 'T (TYPE ATOM)>
 885                     <JUMP + MAPAP111>
 886 PHRASE122
 887                     <SET TEMP61 %<> (TYPE FALSE)>
 888                     <JUMP + MAPAP111>
 889 PHRASE124
 890                     <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
 891                     <JUMP + MAP108>
 892 MAPAP111
 893                     <TYPE? TEMP61 <TYPE-CODE FALSE> + PHRASE102>
 894                     <DEAD TEMP61>
 895                     <FRAME '\1aACCESS>
 896                     <PUSH PREC10>
 897                     <NTHL ACCESS-DATA79 1 = STACK (TYPE FIX)>
 898                     <CALL '\1aACCESS 2>
 899                     <FRAME '\1aCRLF>
 900                     <PUSH OC6>
 901                     <CALL '\1aCRLF 1>
 902                     <RESTL ACCESS-DATA79 1 = TEMP16 (TYPE LIST)>
 903                     <NTHL TEMP16 1 = TEMP16 (TYPE FIX)>
 904                     <NTHL ACCESS-DATA79 1 = TEMP61 (TYPE FIX)>
 905                     <SUB TEMP16 TEMP61 = TEMP16 (TYPE FIX)>
 906                     <DEAD TEMP61>
 907                     <LOOP>
 908 AGAIN130
 909                     <INTGO>
 910                     <LESS? TEMP16 1024 - PHRASE132 (TYPE FIX)>
 911                     <FRAME '\1aREADSTRING>
 912                     <PUSH ON14>
 913                     <PUSH PREC10>
 914                     <PUSH TEMP16>
 915                     <CALL '\1aREADSTRING 3>
 916                     <FRAME '\1aPRINTSTRING>
 917                     <PUSH ON14>
 918                     <PUSH OC6>
 919                     <PUSH TEMP16>
 920                     <DEAD TEMP16>
 921                     <CALL '\1aPRINTSTRING 3>
 922                     <JUMP + EXIT128>
 923 PHRASE132
 924                     <FRAME '\1aREADSTRING>
 925                     <PUSH ON14>
 926                     <PUSH PREC10>
 927                     <PUSH 1024>
 928                     <CALL '\1aREADSTRING 3>
 929                     <FRAME '\1aPRINTSTRING>
 930                     <PUSH ON14>
 931                     <PUSH OC6>
 932                     <PUSH 1024>
 933                     <CALL '\1aPRINTSTRING 3>
 934                     <SUB TEMP16 1024 = TEMP16 (TYPE FIX)>
 935                     <JUMP + AGAIN130>
 936 EXIT128
 937                     <FRAME '\1aSKIP-MIMA>
 938                     <PUSH C5>
 939                     <PUSH NM78>
 940                     <CALL '\1aSKIP-MIMA 2>
 941                     <JUMP + MAPAP187>
 942 PHRASE102
 943                     <PUSH NXT75>
 944                     <SET TEMP16 1 (TYPE FIX)>
 945                     <SFRAME 'READ-LIST>
 946                     <PUSH C5>
 947                     <PUSH 'END>
 948                     <PUSH <SET END T>>
 949                     <SCALL '\1aREAD-LIST 3 = TEMP61 + TAG140 TEMP16>
 950                     <TYPE TEMP61 = L59>
 951                     <AND L59 7 = L59>
 952                     <VEQUAL? L59 1 + TAG142>
 953                     <DEAD L59>
 954                     <LOOP (TEMP61 TYPE VALUE LENGTH) (TEMP16 VALUE)>
 955 TAG148
 956                     <INTGO>
 957                     <EMPTY? TEMP61 + TAG147>
 958                     <NTH1 TEMP61 = STACK>
 959                     <REST1 TEMP61 = TEMP61>
 960                     <ADD TEMP16 1 = TEMP16 (TYPE FIX)>
 961                     <JUMP + TAG148>
 962 TAG147
 963                     <LIST TEMP16 = TEMP16 (TYPE LIST)>
 964                     <JUMP + TAG143>
 965 TAG140
 966                     <SET TEMP61 0>
 967 TAG142
 968                     <LOOP>
 969 TAG145
 970                     <VEQUAL? TEMP16 0 + TAG144>
 971                     <POP = L59>
 972                     <CONS L59 TEMP61 = TEMP61 (TYPE LIST)>
 973                     <DEAD L59>
 974                     <SUB TEMP16 1 = TEMP16 (TYPE FIX)>
 975                     <JUMP + TAG145>
 976 TAG144
 977                     <SET TEMP16 TEMP61>
 978                     <DEAD TEMP61>
 979 TAG143
 980                     <NTHR 'END 2 = TEMP61 (RECORD-TYPE ATOM) (TYPE LBIND)>
 981                     <NTHR TEMP61 1 = TEMP61 (RECORD-TYPE LBIND)>
 982                     <TYPE? TEMP61 <TYPE-CODE FALSE> + PHRASE150>
 983                     <DEAD TEMP61>
 984                     <FRAME '\1aCLOSE>
 985                     <PUSH C5>
 986                     <CALL '\1aCLOSE 1>
 987 PHRASE150
 988                     <NTHL NXT75 1 = F-OR-G9>
 989                     <RESTL NXT75 1 = TEMP61 (TYPE LIST)>
 990                     <NTHL TEMP61 1 = TEMP61 (TYPE ATOM)>
 991                     <NTHR 'NAME 2 = L59 (RECORD-TYPE ATOM) (TYPE LBIND)>
 992                     <PUTR L59 1 TEMP61 (RECORD-TYPE LBIND)>
 993                     <DEAD L59 TEMP61>
 994                     <GVAL 'VERBOSE = TEMP61>
 995                     <TYPE? TEMP61 <TYPE-CODE FALSE> + PHRASE157>
 996                     <DEAD TEMP61>
 997                     <GVAL 'OUTCHAN = TEMP61>
 998                     <NTHR 'OUTCHAN 2 = L59 (RECORD-TYPE ATOM) (TYPE LBIND)>
 999                     <NTHR L59 1 = L59 (RECORD-TYPE LBIND)>
1000                     <EQUAL? TEMP61 L59 + BOOL158>
1001                     <DEAD TEMP61>
1002                     <FRAME '\1aPRINC>
1003                     <PUSH !\\f>
1004                     <NTHR 'OUTCHAN 2 = L59 (RECORD-TYPE ATOM) (TYPE LBIND)>
1005                     <NTHR L59 1 = STACK (RECORD-TYPE LBIND)>
1006                     <DEAD L59>
1007                     <CALL '\1aPRINC 2>
1008 BOOL158
1009                     <FRAME '\1aCRLF>
1010                     <NTHR 'OUTCHAN 2 = L59 (RECORD-TYPE ATOM) (TYPE LBIND)>
1011                     <NTHR L59 1 = STACK (RECORD-TYPE LBIND)>
1012                     <DEAD L59>
1013                     <CALL '\1aCRLF 1>
1014                     <FRAME '\1aPRINC>
1015                     <PUSH "Open coding: ">
1016                     <NTHR 'OUTCHAN 2 = L59 (RECORD-TYPE ATOM) (TYPE LBIND)>
1017                     <NTHR L59 1 = STACK (RECORD-TYPE LBIND)>
1018                     <DEAD L59>
1019                     <CALL '\1aPRINC 2>
1020                     <FRAME '\1aPRIN1>
1021                     <NTHR 'NAME 2 = L59 (RECORD-TYPE ATOM) (TYPE LBIND)>
1022                     <NTHR L59 1 = STACK (RECORD-TYPE LBIND)>
1023                     <DEAD L59>
1024                     <NTHR 'OUTCHAN 2 = L59 (RECORD-TYPE ATOM) (TYPE LBIND)>
1025                     <NTHR L59 1 = STACK (RECORD-TYPE LBIND)>
1026                     <DEAD L59>
1027                     <CALL '\1aPRIN1 2>
1028 PHRASE157
1029                     <FRAME '\1aPROCESS-IFSYS>
1030                     <PUSH TEMP16>
1031                     <CALL '\1aPROCESS-IFSYS 1>
1032                     <FRAME '\1aCALL-ANA>
1033                     <PUSH TEMP16>
1034                     <CALL '\1aCALL-ANA 1>
1035                     <FRAME '\1aMIMOC>
1036                     <PUSH TEMP16>
1037                     <DEAD TEMP16>
1038                     <CALL '\1aMIMOC 1>
1039                     <FRAME '\1aLOCATION-CHECK>
1040                     <CALL '\1aLOCATION-CHECK 0>
1041                     <FRAME '\1aFIXUP-ONE-GLUE>
1042                     <GVAL 'CODE = L59>
1043                     <RESTL L59 1 = STACK (TYPE LIST)>
1044                     <DEAD L59>
1045                     <GVAL 'LABELS = STACK>
1046                     <CALL '\1aFIXUP-ONE-GLUE 2>
1047                     <FRAME '\1aALLOCATE-CONSTANTS>
1048                     <GVAL 'CONSTANT-VECTOR = STACK>
1049                     <GVAL 'CODE-LENGTH = STACK>
1050                     <CALL '\1aALLOCATE-CONSTANTS 2>
1051                     <FRAME '\1aFIXUP-CONSTANTS>
1052                     <GVAL 'CODE = L59>
1053                     <RESTL L59 1 = STACK (TYPE LIST)>
1054                     <DEAD L59>
1055                     <CALL '\1aFIXUP-CONSTANTS 1>
1056                     <FRAME '\1aWRITE-MSUBR>
1057                     <PUSH OC6>
1058                     <PUSH %<>>
1059                     <PUSH F-OR-G9>
1060                     <DEAD F-OR-G9>
1061                     <CALL '\1aWRITE-MSUBR 3>
1062                     <GVAL 'LABELS = TEMP16>
1063                     <LOOP>
1064 MAP184
1065                     <INTGO>
1066                     <EMPL? TEMP16 + MAPAP187>
1067                     <NTHL TEMP16 1 = TEMP61>
1068                     <FRAME '\1aGUNASSIGN>
1069                     <FRAME '\1aREMOVE>
1070                     <NTHUV TEMP61 1 = STACK (TYPE ATOM)>
1071                     <DEAD TEMP61>
1072                     <CALL '\1aREMOVE 1 = STACK>
1073                     <CALL '\1aGUNASSIGN 1>
1074                     <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
1075                     <JUMP + MAP184>
1076 MAPAP187
1077                     <NTHR 'END 2 = TEMP16 (RECORD-TYPE ATOM) (TYPE LBIND)>
1078                     <NTHR TEMP16 1 = TEMP16 (RECORD-TYPE LBIND)>
1079                     <TYPE? TEMP16 <TYPE-CODE FALSE> + AGAIN82>
1080                     <DEAD TEMP16>
1081                     <UNBIND TEMP57>
1082                     <DEAD TEMP57>
1083 EXIT71
1084                     <ADJ -18>
1085                     <EMPUV? FILES4 + EXIT67 (TYPE VECTOR)>
1086                     <FRAME '\1aCLOSE>
1087                     <PUSH C5>
1088                     <DEAD C5>
1089                     <CALL '\1aCLOSE 1>
1090                     <FRAME '\1aOPEN>
1091                     <PUSH "READ">
1092                     <NTHUV FILES4 1 = STACK (TYPE STRING)>
1093                     <CALL '\1aOPEN 2 = C5>
1094                     <TYPE? C5 <TYPE-CODE FALSE> + PHRASE203>
1095                     <RESTUV FILES4 1 = FILES4 (TYPE VECTOR)>
1096                     <CONS C5 () = TEMP16>
1097                     <SETG 'INCHANS TEMP16>
1098                     <DEAD TEMP16>
1099                     <JUMP + AGAIN70>
1100 PHRASE203
1101                     <FRAME '\1aERROR>
1102                     <PUSH C5>
1103                     <PUSH 'FILE-MIMOC>
1104                     <CALL '\1aERROR 2>
1105                     <JUMP + AGAIN70>
1106 EXIT67
1107                     <FRAME '\1aCLOSE>
1108                     <PUSH C5>
1109                     <DEAD C5>
1110                     <CALL '\1aCLOSE 1>
1111                     <FRAME '\1aCLOSE>
1112                     <PUSH OC6>
1113                     <DEAD OC6>
1114                     <CALL '\1aCLOSE 1>
1115                     <GVAL 'NULL = TEMP16>
1116                     <JUMP + PHRASE221>
1117 PHRASE38
1118                     <TYPE? C5 <TYPE-CODE UNBOUND> + PHRASE210>
1119                     <TYPE? C5 <TYPE-CODE FALSE> + PHRASE210>
1120                     <FRAME '\1aCLOSE>
1121                     <PUSH C5>
1122                     <DEAD C5>
1123                     <CALL '\1aCLOSE 1>
1124                     <TYPE? OC6 <TYPE-CODE UNBOUND> + PHRASE214>
1125                     <TYPE? OC6 <TYPE-CODE FALSE> + PHRASE214>
1126                     <FRAME '\1aCLOSE>
1127                     <PUSH OC6>
1128                     <DEAD OC6>
1129                     <CALL '\1aCLOSE 1>
1130                     <FRAME '\1aDELFILE>
1131                     <PUSH ON14>
1132                     <DEAD ON14>
1133                     <CALL '\1aDELFILE 1>
1134                     <FRAME '\1aERROR>
1135                     <PUSH PREC10>
1136                     <DEAD PREC10>
1137                     <CALL '\1aERROR 1 = TEMP16>
1138                     <JUMP + PHRASE221>
1139 PHRASE214
1140                     <FRAME '\1aERROR>
1141                     <PUSH OC6>
1142                     <DEAD OC6>
1143                     <CALL '\1aERROR 1 = TEMP16>
1144                     <JUMP + PHRASE221>
1145 PHRASE210
1146                     <FRAME '\1aERROR>
1147                     <PUSH C5>
1148                     <DEAD C5>
1149                     <CALL '\1aERROR 1 = TEMP16>
1150 PHRASE221
1151                     <UNBIND TEMP3>
1152                     <DEAD TEMP3>
1153                     <ADJ -18>
1154                     <RETURN TEMP16>
1155                     <DEAD TEMP16>
1156                     <END \1aFILE-MIMOC>\r\r
1157 #WORD *25554647732*
1158 <GFCN \1aFILE-GLUE ("VALUE" ANY "TUPLE" <<PRIMTYPE VECTOR> [REST STRING]>)>
1159                     <MAKTUP FILES4 C5 OC6 (TC7 %<>) (LEN9:FIX 0) (FCN-COUNT10:FIX 0) (LOWERSTR12 %<>) TFILES13 TEMP3:LBIND EXPFLOAD16 OB23:STRING TEMP44 TEMP59 ON19 TON20:STRING TOC17 TN14:STRING ITM102 TEMP115 TEMP129 FCN-FOUND243:FIX MSUBR-ACCESS11:FIX = FILES4>
1160                     <INTGO>
1161                     <SET TFILES13 FILES4>
1162                     <GETS 'BIND = TEMP3 (TYPE LBIND)>
1163                     <GEN-LVAL 'OUTCHAN = C5>
1164                     <BBIND 'OUTCHAN 'ANY 'FIX C5>
1165                     <DEAD C5>
1166                     <GEN-ASSIGNED? 'EXPFLOAD + TAG28>
1167                     <SET C5 %<> (TYPE FALSE)>
1168                     <JUMP + BOOL27>
1169 TAG28
1170                     <GEN-LVAL 'EXPFLOAD = C5>
1171 BOOL27
1172                     <SET EXPFLOAD16 C5>
1173                     <DEAD C5>
1174                     <BBIND 'COMPILER-INPUT 'CHANNEL 'FIX>
1175                     <GVAL 'OUTPUT-BUFFER = OB23>
1176                     <GVAL 'SURVIVOR-MODE = C5>
1177                     <TYPE? C5 <TYPE-CODE FALSE> + PHRASE50>
1178                     <DEAD C5>
1179                     <GEN-ASSIGNED? 'READ-TABLE - BOOL37>
1180                     <FRAME '\1aL?>
1181                     <FRAME '\1aLENGTH>
1182                     <GEN-LVAL 'READ-TABLE = STACK>
1183                     <CALL '\1aLENGTH 1 = STACK>
1184                     <GVAL 'CTLZ+1 = STACK>
1185                     <CALL '\1aL? 2 = C5>
1186                     <TYPE? C5 <TYPE-CODE FALSE> + PHRASE36>
1187                     <DEAD C5>
1188 BOOL37
1189                     <GVAL 'CTLZ+1 = C5>
1190                     <UUBLOCK <TYPE-CODE VECTOR> C5 = TEMP44>
1191                     <DEAD C5>
1192                     <SET C5 TEMP44>
1193                     <LOOP (C5 VALUE LENGTH)>
1194 ISTR45
1195                     <EMPUV? C5 + ISTRE46>
1196                     <PUTUV C5 1 %<>>
1197                     <RESTUV C5 1 = C5>
1198                     <JUMP + ISTR45>
1199 ISTRE46
1200                     <GEN-SET 'READ-TABLE TEMP44>
1201                     <SETG 'READ-TABLE TEMP44>
1202                     <DEAD TEMP44>
1203 PHRASE36
1204                     <FRAME '\1aNTH>
1205                     <GEN-LVAL 'READ-TABLE = STACK>
1206                     <GVAL 'CTLZ+1 = STACK>
1207                     <CALL '\1aNTH 2 = C5>
1208                     <TYPE? C5 <TYPE-CODE FALSE> - PHRASE50>
1209                     <DEAD C5>
1210                     <FRAME '\1aPUT>
1211                     <GEN-LVAL 'READ-TABLE = STACK>
1212                     <GVAL 'CTLZ+1 = STACK>
1213                     <FRAME '\1aASCII>
1214                     <GVAL 'CTLZ = STACK>
1215                     <CALL '\1aASCII 1 = STACK>
1216                     <PUSH 65>
1217                     <PUSH %<>>
1218                     <PUSH %<>>
1219                     <PUSH %<>>
1220                     <UBLOCK <TYPE-CODE VECTOR> 5 = STACK>
1221                     <CALL '\1aPUT 3>
1222 PHRASE50
1223                     <SETG 'GLUE-MODE 'T>
1224                     <SETG 'PRE-LIST ()>
1225                     <SETG 'PRE-NAMES ()>
1226                     <SETG 'PRE-OPTS ()>
1227                     <SETG 'GLUE-LIST ()>
1228                     <SETG 'GLUE-PC 0>
1229                     <CONS 'FOO () = TEMP59>
1230                     <CONS 'FOO TEMP59 = TEMP59>
1231                     <CONS 'T TEMP59 = TEMP59>
1232                     <SETG 'MVECTOR TEMP59>
1233                     <DEAD TEMP59>
1234                     <GVAL 'MV-TABLE = C5>
1235                     <LOOP>
1236 MAP61
1237                     <INTGO>
1238                     <EMPUV? C5 + MAPAP64>
1239                     <SET TEMP44 C5>
1240                     <PUTUV TEMP44 1 () (TYPE LIST)>
1241                     <DEAD TEMP44>
1242                     <RESTUV C5 1 = C5 (TYPE VECTOR)>
1243                     <JUMP + MAP61>
1244 MAPAP64
1245                     <SETG 'MV-COUNT 0>
1246                     <SETG 'FREE-CONSTS ()>
1247                     <SETG 'CONSTANT-VECTOR ()>
1248                     <GVAL 'CONSTANT-TABLE = TEMP44>
1249                     <LOOP>
1250 MAP73
1251                     <INTGO>
1252                     <EMPUV? TEMP44 + MAPAP76>
1253                     <SET C5 TEMP44>
1254                     <PUTUV C5 1 () (TYPE LIST)>
1255                     <DEAD C5>
1256                     <RESTUV TEMP44 1 = TEMP44 (TYPE VECTOR)>
1257                     <JUMP + MAP73>
1258 MAPAP76
1259                     <SETG 'FINAL-LOCALS ()>
1260                     <GVAL 'MVECTOR = TEMP59>
1261                     <RESTL TEMP59 1 = TEMP59 (TYPE LIST)>
1262                     <RESTL TEMP59 1 = TEMP44 (TYPE LIST)>
1263                     <DEAD TEMP59>
1264                     <SETG 'MV TEMP44>
1265                     <DEAD TEMP44>
1266                     <FRAME '\1aOPEN>
1267                     <PUSH "READ">
1268                     <NTHUV FILES4 1 = STACK (TYPE STRING)>
1269                     <CALL '\1aOPEN 2 = C5>
1270                     <TYPE? C5 <TYPE-CODE FALSE> + PHRASE83>
1271                     <FRAME '\1aOPEN>
1272                     <PUSH "PRINT">
1273                     <FRAME '\1aGET-NM1>
1274                     <NTHUV FILES4 1 = STACK (TYPE STRING)>
1275                     <CALL '\1aGET-NM1 1 = STACK>
1276                     <PUSH ".MSUBR">
1277                     <UBLOCK <TYPE-CODE STRING> 2 = ON19 (TYPE STRING)>
1278                     <PUSH ON19>
1279                     <CALL '\1aOPEN 2 = OC6>
1280                     <TYPE? OC6 <TYPE-CODE FALSE> + PHRASE83>
1281                     <FRAME '\1aOPEN>
1282                     <PUSH "PRINT">
1283                     <FRAME '\1aGET-NM1>
1284                     <NTHUV FILES4 1 = STACK (TYPE STRING)>
1285                     <CALL '\1aGET-NM1 1 = STACK>
1286                     <PUSH ".TMSUBR">
1287                     <UBLOCK <TYPE-CODE STRING> 2 = TON20 (TYPE STRING)>
1288                     <PUSH TON20>
1289                     <CALL '\1aOPEN 2 = TOC17>
1290                     <TYPE? TOC17 <TYPE-CODE FALSE> + PHRASE83>
1291                     <GVAL 'MAX-SPACE = TEMP44>
1292                     <TYPE? TEMP44 <TYPE-CODE FALSE> + BOOL92>
1293                     <DEAD TEMP44>
1294                     <FRAME '\1aOPEN>
1295                     <PUSH "PRINTB">
1296                     <FRAME '\1aGET-NM1>
1297                     <NTHUV FILES4 1 = STACK (TYPE STRING)>
1298                     <CALL '\1aGET-NM1 1 = STACK>
1299                     <PUSH ".MIMOCTEMP">
1300                     <UBLOCK <TYPE-CODE STRING> 2 = TN14 (TYPE STRING)>
1301                     <PUSH TN14>
1302                     <CALL '\1aOPEN 2 = TC7>
1303                     <TYPE? TC7 <TYPE-CODE FALSE> + PHRASE83>
1304 BOOL92
1305                     <CONS C5 () = TEMP59>
1306                     <SETG 'INCHANS TEMP59>
1307                     <DEAD TEMP59>
1308                     <NTHR 'COMPILER-INPUT 2 = TEMP44 (RECORD-TYPE ATOM) (TYPE LBIND)>
1309                     <PUTR TEMP44 1 C5 (RECORD-TYPE LBIND)>
1310                     <DEAD TEMP44>
1311                     <RESTUV FILES4 1 = FILES4 (TYPE VECTOR)>
1312                     <CHTYPE FILES4 <TYPE-CODE VECTOR> = FILES4>
1313                     <LOOP>
1314 AGAIN99
1315                     <INTGO>
1316                     <LOOP>
1317 AGAIN107
1318                     <INTGO>
1319                     <FRAME '\1aFINISH-FILE>
1320                     <PUSH C5>
1321                     <PUSH %<>>
1322                     <PUSH EXPFLOAD16>
1323                     <CALL '\1aFINISH-FILE 3 = ITM102>
1324                     <VEQUAL? ITM102 0 + EXIT100>
1325                     <GVAL 'INCHANS = TEMP44>
1326                     <NTHL TEMP44 1 = C5>
1327                     <DEAD TEMP44>
1328                     <ADD FCN-COUNT10 1 = FCN-COUNT10 (TYPE FIX)>
1329                     <GVAL 'SURVIVOR-MODE = TEMP44>
1330                     <TYPE? TEMP44 <TYPE-CODE FALSE> + PHRASE112>
1331                     <DEAD TEMP44>
1332                     <RESTL ITM102 1 = TEMP44 (TYPE LIST)>
1333                     <NTHL TEMP44 1 = TEMP44 (TYPE ATOM)>
1334                     <NTHR TEMP44 3 = ON19 (RECORD-TYPE ATOM)>
1335                     <DEAD TEMP44>
1336                     <NTHUS ON19 1 = TEMP44 (TYPE CHARACTER)>
1337                     <FRAME '\1aASCII>
1338                     <GVAL 'CTLZ = STACK>
1339                     <CALL '\1aASCII 1 = TEMP115>
1340                     <EQUAL? TEMP44 TEMP115 - PHRASE112>
1341                     <DEAD TEMP44>
1342                     <RESTUS ON19 1 = ON19 (TYPE STRING)>
1343                     <FRAME '\1aLOOKUP>
1344                     <PUSH ON19>
1345                     <GVAL 'FCN-OBL = STACK>
1346                     <CALL '\1aLOOKUP 2 = TEMP115>
1347                     <TYPE? TEMP115 <TYPE-CODE FALSE> - BOOL116>
1348                     <FRAME '\1aINSERT>
1349                     <PUSH ON19>
1350                     <DEAD ON19>
1351                     <GVAL 'FCN-OBL = STACK>
1352                     <CALL '\1aINSERT 2 = TEMP115>
1353 BOOL116
1354                     <SET ON19 TEMP115>
1355                     <DEAD TEMP115>
1356                     <RESTL ITM102 1 = TEMP115 (TYPE LIST)>
1357                     <PUTL TEMP115 1 ON19>
1358                     <DEAD TEMP115>
1359                     <SET TEMP115 %<> (TYPE FALSE)>
1360                     <GVAL 'LIST-OF-FCNS = TEMP129>
1361                     <LOOP>
1362 MAP121
1363                     <INTGO>
1364                     <EMPTY? TEMP129 + MAPAP124>
1365                     <NTH1 TEMP129 = TEMP59>
1366                     <NTHL TEMP59 1 = TEMP44 (TYPE ATOM)>
1367                     <VEQUAL? TEMP44 ON19 + TAG134>
1368                     <DEAD TEMP44>
1369                     <SET TEMP115 %<> (TYPE FALSE)>
1370                     <JUMP + PHRASE132>
1371 TAG134
1372                     <FRAME '\1a=?>
1373                     <RESTL TEMP59 1 = TEMP44 (TYPE LIST)>
1374                     <DEAD TEMP59>
1375                     <NTHL TEMP44 1 = STACK (TYPE LIST)>
1376                     <DEAD TEMP44>
1377                     <GEN-LVAL 'OBLIST = STACK>
1378                     <CALL '\1a=? 2 = TEMP115>
1379                     <VEQUAL? TEMP115 0 + PHRASE132>
1380                     <SET TEMP115 'T (TYPE ATOM)>
1381                     <JUMP + MAPAP124>
1382 PHRASE132
1383                     <REST1 TEMP129 = TEMP129>
1384                     <JUMP + MAP121>
1385 MAPAP124
1386                     <TYPE? TEMP115 <TYPE-CODE FALSE> - PHRASE154>
1387                     <DEAD TEMP115>
1388                     <CONS ON19 () = TEMP115>
1389                     <SET TEMP44 0 (TYPE FIX)>
1390                     <GEN-LVAL 'OBLIST = TEMP129>
1391                     <LOOP (TEMP129 VALUE) (TEMP44 VALUE)>
1392 TAG145
1393                     <INTGO>
1394                     <EMPL? TEMP129 + TAG142>
1395                     <NTHL TEMP129 1 = STACK>
1396                     <RESTL TEMP129 1 = TEMP129 (TYPE LIST)>
1397                     <ADD TEMP44 1 = TEMP44 (TYPE FIX)>
1398                     <JUMP + TAG145>
1399 TAG142
1400                     <LIST TEMP44 = TEMP44 (TYPE LIST)>
1401                     <CONS TEMP44 () = TEMP44>
1402                     <PUTREST TEMP115 TEMP44>
1403                     <DEAD TEMP44>
1404                     <PUSH TEMP115>
1405                     <DEAD TEMP115>
1406                     <SET TEMP44 1 (TYPE FIX)>
1407                     <GVAL 'LIST-OF-FCNS = TEMP115>
1408                     <TYPE TEMP115 = TEMP129>
1409                     <AND TEMP129 7 = TEMP129>
1410                     <VEQUAL? TEMP129 1 + TAG147>
1411                     <DEAD TEMP129>
1412                     <LOOP (TEMP115 TYPE VALUE LENGTH) (TEMP44 VALUE)>
1413 TAG153
1414                     <INTGO>
1415                     <EMPTY? TEMP115 + TAG152>
1416                     <NTH1 TEMP115 = STACK>
1417                     <REST1 TEMP115 = TEMP115>
1418                     <ADD TEMP44 1 = TEMP44 (TYPE FIX)>
1419                     <JUMP + TAG153>
1420 TAG152
1421                     <LIST TEMP44 = TEMP129 (TYPE LIST)>
1422                     <DEAD TEMP44>
1423                     <JUMP + TAG148>
1424 TAG147
1425                     <LOOP>
1426 TAG150
1427                     <VEQUAL? TEMP44 0 + TAG149>
1428                     <POP = TEMP129>
1429                     <CONS TEMP129 TEMP115 = TEMP115 (TYPE LIST)>
1430                     <DEAD TEMP129>
1431                     <SUB TEMP44 1 = TEMP44 (TYPE FIX)>
1432                     <JUMP + TAG150>
1433 TAG149
1434                     <SET TEMP129 TEMP115>
1435                     <DEAD TEMP115>
1436 TAG148
1437                     <SETG 'LIST-OF-FCNS TEMP129>
1438                     <DEAD TEMP129>
1439                     <JUMP + PHRASE154>
1440 PHRASE112
1441                     <RESTL ITM102 1 = TEMP115 (TYPE LIST)>
1442                     <NTHL TEMP115 1 = ON19 (TYPE ATOM)>
1443                     <DEAD TEMP115>
1444 PHRASE154
1445                     <TYPE? LOWERSTR12 <TYPE-CODE FALSE> - MAPEX160>
1446                     <NTHR ON19 3 = TEMP44 (RECORD-TYPE ATOM)>
1447                     <SET TEMP115 0 (TYPE FIX)>
1448                     <LOOP>
1449 MAP158
1450                     <INTGO>
1451                     <EMPUS? TEMP44 + MAPAP161>
1452                     <NTHUS TEMP44 1 = TEMP59>
1453                     <CHTYPE TEMP59 <TYPE-CODE FIX> = LOWERSTR12>
1454                     <GRTR? LOWERSTR12 90 + PHRASE170 (TYPE FIX)>
1455                     <LESS? LOWERSTR12 65 + PHRASE170 (TYPE FIX)>
1456                     <ADD LOWERSTR12 32 = LOWERSTR12 (TYPE FIX)>
1457                     <CHTYPE LOWERSTR12 <TYPE-CODE CHARACTER> = LOWERSTR12>
1458                     <JUMP + COND169>
1459 PHRASE170
1460                     <SET LOWERSTR12 TEMP59>
1461                     <DEAD TEMP59>
1462 COND169
1463                     <PUSH LOWERSTR12>
1464                     <DEAD LOWERSTR12>
1465                     <ADD TEMP115 1 = TEMP115 (TYPE FIX)>
1466                     <RESTUS TEMP44 1 = TEMP44 (TYPE STRING)>
1467                     <JUMP + MAP158>
1468 MAPAP161
1469                     <UBLOCK <TYPE-CODE STRING> TEMP115 = LOWERSTR12 (TYPE STRING)>
1470                     <DEAD TEMP115>
1471 MAPEX160
1472                     <NTHL ITM102 1 = TEMP44>
1473                     <EQUAL? TEMP44 'GFCN - PHRASE180>
1474                     <DEAD TEMP44>
1475                     <GVAL 'PRE-NAMES = TEMP44>
1476                     <EMPL? TEMP44 - PHRASE176 (TYPE LIST)>
1477                     <DEAD TEMP44>
1478                     <GVAL 'MVECTOR = TEMP44>
1479                     <RESTL TEMP44 1 = TEMP115 (TYPE LIST)>
1480                     <DEAD TEMP44>
1481                     <PUTL TEMP115 1 ON19>
1482                     <DEAD TEMP115>
1483 PHRASE176
1484                     <GVAL 'PRE-NAMES = TEMP44>
1485                     <CONS ON19 TEMP44 = TEMP44>
1486                     <SETG 'PRE-NAMES TEMP44>
1487                     <DEAD TEMP44>
1488                     <FRAME '\1aMEMBER>
1489                     <PUSH "TUPLE">
1490                     <RESTL ITM102 1 = TEMP44 (TYPE LIST)>
1491                     <RESTL TEMP44 1 = TEMP44 (TYPE LIST)>
1492                     <NTHL TEMP44 1 = STACK>
1493                     <DEAD TEMP44>
1494                     <CALL '\1aMEMBER 2 = TEMP44>
1495                     <TYPE? TEMP44 <TYPE-CODE FALSE> + PHRASE178>
1496                     <DEAD TEMP44>
1497                     <GVAL 'PRE-OPTS = TEMP44>
1498                     <CONS %<> TEMP44 = TEMP44>
1499                     <CONS ON19 TEMP44 = TEMP44>
1500                     <DEAD ON19>
1501                     <SETG 'PRE-OPTS TEMP44>
1502                     <DEAD TEMP44>
1503                     <JUMP + PHRASE180>
1504 PHRASE178
1505                     <FRAME '\1aMEMBER>
1506                     <PUSH "OPTIONAL">
1507                     <RESTL ITM102 1 = TEMP44 (TYPE LIST)>
1508                     <RESTL TEMP44 1 = TEMP44 (TYPE LIST)>
1509                     <NTHL TEMP44 1 = STACK>
1510                     <DEAD TEMP44>
1511                     <CALL '\1aMEMBER 2 = TEMP44>
1512                     <TYPE? TEMP44 <TYPE-CODE FALSE> + PHRASE180>
1513                     <DEAD TEMP44>
1514                     <FRAME '\1aREAD>
1515                     <PUSH C5>
1516                     <CALL '\1aREAD 1 = TEMP44>
1517                     <RESTL TEMP44 1 = TEMP115 (TYPE LIST)>
1518                     <RESTL TEMP115 1 = TEMP115 (TYPE LIST)>
1519                     <RESTL TEMP115 1 = TEMP129 (TYPE LIST)>
1520                     <DEAD TEMP115>
1521                     <CHTYPE TEMP129 <TYPE-CODE LIST> = TEMP129>
1522                     <LOOP>
1523 MAP184
1524                     <INTGO>
1525                     <EMPL? TEMP129 + MAPAP187>
1526                     <SET TEMP59 TEMP129>
1527                     <FRAME '\1aGENLBL>
1528                     <NTHL TEMP59 1 = TEMP115 (TYPE ATOM)>
1529                     <NTHR TEMP115 3 = STACK (RECORD-TYPE ATOM)>
1530                     <DEAD TEMP115>
1531                     <NTHR ON19 3 = STACK (RECORD-TYPE ATOM)>
1532                     <UBLOCK <TYPE-CODE STRING> 2 = STACK (TYPE STRING)>
1533                     <CALL '\1aGENLBL 1 = TEMP115>
1534                     <PUTL TEMP59 1 TEMP115>
1535                     <DEAD TEMP59 TEMP115>
1536                     <RESTL TEMP129 1 = TEMP129 (TYPE LIST)>
1537                     <JUMP + MAP184>
1538 MAPAP187
1539                     <GVAL 'PRE-OPTS = TEMP129>
1540                     <CONS TEMP44 TEMP129 = TEMP129>
1541                     <DEAD TEMP44>
1542                     <CONS ON19 TEMP129 = TEMP129>
1543                     <DEAD ON19>
1544                     <SETG 'PRE-OPTS TEMP129>
1545                     <DEAD TEMP129>
1546 PHRASE180
1547                     <FRAME '\1aREAD-LIST>
1548                     <PUSH C5>
1549                     <PUSH 'END>
1550                     <PUSH <ERROR EOF!-ERRORS>>
1551                     <CALL '\1aREAD-LIST 3 = TEMP44>
1552                     <NTHL ITM102 1 = TEMP129>
1553                     <DEAD ITM102>
1554                     <EQUAL? TEMP129 'GFCN - AGAIN107>
1555                     <DEAD TEMP129>
1556                     <SET TEMP129 TEMP44>
1557                     <DEAD TEMP44>
1558                     <LOOP>
1559 MAP199
1560                     <INTGO>
1561                     <EMPTY? TEMP129 + AGAIN107>
1562                     <NTH1 TEMP129 = TEMP44>
1563                     <TYPE? TEMP44 <TYPE-CODE FORM> - PHRASE210>
1564                     <NTHL TEMP44 1 = ITM102>
1565                     <EQUAL? ITM102 'BIND + BOOL211>
1566                     <EQUAL? ITM102 'BBIND + BOOL211>
1567                     <EQUAL? ITM102 'TUPLE + BOOL213>
1568                     <EQUAL? ITM102 'ADJ - BOOL212>
1569 BOOL213
1570                     <RESTL TEMP44 1 = ON19 (TYPE LIST)>
1571                     <NTHL ON19 1 = ON19>
1572                     <TYPE? ON19 <TYPE-CODE FIX> - BOOL211>
1573                     <DEAD ON19>
1574 BOOL212
1575                     <SET ON19 [CALL SCALL ACALL UBLOCK SBLOCK USBLOCK LIST] (TYPE VECTOR)>
1576                     <TYPE? ITM102 <TYPE-CODE ATOM> - PHRASE210>
1577                     <LOOP (ITM102 VALUE) (ON19 LENGTH VALUE)>
1578 TAG217
1579                     <NTHUV ON19 1 = TEMP59>
1580                     <VEQUAL? TEMP59 ITM102 + TAG216>
1581                     <DEAD TEMP59>
1582                     <RESTUV ON19 1 = ON19 (TYPE VECTOR)>
1583                     <EMPUV? ON19 - TAG217>
1584                     <JUMP + PHRASE210>
1585 TAG216
1586                     <RESTL TEMP44 1 = ON19 (TYPE LIST)>
1587                     <DEAD TEMP44>
1588                     <RESTL ON19 1 = ON19 (TYPE LIST)>
1589                     <NTHL ON19 1 = ON19>
1590                     <TYPE? ON19 <TYPE-CODE FIX> + PHRASE210>
1591                     <DEAD ON19>
1592 BOOL211
1593                     <FRAME '\1aPUTPROP>
1594                     <GVAL 'PRE-NAMES = STACK>
1595                     <PUSH 'NDFRM>
1596                     <PUSH 'T>
1597                     <CALL '\1aPUTPROP 3>
1598                     <JUMP + AGAIN107>
1599 PHRASE210
1600                     <REST1 TEMP129 = TEMP129>
1601                     <JUMP + MAP199>
1602 EXIT100
1603                     <FRAME '\1aCLOSE>
1604                     <PUSH C5>
1605                     <DEAD C5>
1606                     <CALL '\1aCLOSE 1>
1607                     <EMPUV? FILES4 + EXIT98 (TYPE VECTOR)>
1608                     <FRAME '\1aOPEN>
1609                     <PUSH "READ">
1610                     <NTHUV FILES4 1 = STACK (TYPE STRING)>
1611                     <CALL '\1aOPEN 2 = C5>
1612                     <TYPE? C5 <TYPE-CODE FALSE> + PHRASE226>
1613                     <CONS C5 () = TEMP129>
1614                     <SETG 'INCHANS TEMP129>
1615                     <DEAD TEMP129>
1616                     <RESTUV FILES4 1 = FILES4 (TYPE VECTOR)>
1617                     <JUMP + AGAIN99>
1618 PHRASE226
1619                     <FRAME '\1aERROR>
1620                     <PUSH C5>
1621                     <PUSH 'FILE-GLUE>
1622                     <CALL '\1aERROR 2>
1623                     <JUMP + AGAIN99>
1624 EXIT98
1625                     <FRAME '\1aDETERMINE-VICTIMS>
1626                     <CALL '\1aDETERMINE-VICTIMS 0>
1627                     <SET FILES4 TFILES13>
1628                     <DEAD TFILES13>
1629                     <FRAME '\1aPUT>
1630                     <GEN-LVAL 'READ-TABLE = STACK>
1631                     <GVAL 'CTLZ+1 = STACK>
1632                     <PUSH %<>>
1633                     <CALL '\1aPUT 3>
1634                     <FRAME '\1aOPEN>
1635                     <PUSH "READ">
1636                     <NTHUV FILES4 1 = STACK (TYPE STRING)>
1637                     <CALL '\1aOPEN 2 = C5>
1638                     <TYPE? C5 <TYPE-CODE FALSE> + PHRASE234>
1639                     <CONS C5 () = TEMP115>
1640                     <SETG 'INCHANS TEMP115>
1641                     <DEAD TEMP115>
1642                     <RESTUV FILES4 1 = FILES4 (TYPE VECTOR)>
1643                     <CHTYPE FILES4 <TYPE-CODE VECTOR> = FILES4>
1644                     <JUMP + COND233>
1645 PHRASE234
1646                     <FRAME '\1aERROR>
1647                     <PUSH C5>
1648                     <PUSH 'FILE-GLUE>
1649                     <CALL '\1aERROR 2>
1650 COND233
1651                     <GETS 'BIND = TEMP115 (TYPE LBIND)>
1652                     <BBIND 'NAME 'ATOM 'FIX>
1653                     <SET TFILES13 %<> (TYPE FALSE)>
1654                     <BBIND 'END <OR FALSE ATOM> 'FIX %<>>
1655                     <SET FCN-FOUND243 0 (TYPE FIX)>
1656                     <SET TEMP44 'T (TYPE ATOM)>
1657                     <SET TEMP59 () (TYPE LIST)>
1658                     <LOOP>
1659 AGAIN248
1660                     <INTGO>
1661                     <LOOP>
1662 AGAIN250
1663                     <INTGO>
1664                     <FRAME '\1aFINISH-FILE>
1665                     <PUSH C5>
1666                     <PUSH TOC17>
1667                     <PUSH EXPFLOAD16>
1668                     <CALL '\1aFINISH-FILE 3 = TFILES13>
1669                     <TYPE? TFILES13 <TYPE-CODE FALSE> + PHRASE252>
1670                     <GVAL 'INCHANS = ON19>
1671                     <NTHL ON19 1 = C5>
1672                     <DEAD ON19>
1673                     <ADD FCN-FOUND243 1 = FCN-FOUND243 (TYPE FIX)>
1674                     <JUMP + EXIT249>
1675 PHRASE252
1676                     <FRAME '\1aCLOSE>
1677                     <PUSH C5>
1678                     <CALL '\1aCLOSE 1>
1679                     <EMPUV? FILES4 - PHRASE257>
1680                     <UNBIND TEMP115>
1681                     <DEAD TEMP115>
1682                     <JUMP + EXIT237>
1683 PHRASE257
1684                     <FRAME '\1aOPEN>
1685                     <PUSH "READ">
1686                     <NTHUV FILES4 1 = STACK (TYPE STRING)>
1687                     <CALL '\1aOPEN 2 = C5>
1688                     <TYPE? C5 <TYPE-CODE FALSE> + PHRASE259>
1689                     <CONS C5 () = ON19>
1690                     <SETG 'INCHANS ON19>
1691                     <DEAD ON19>
1692                     <RESTUV FILES4 1 = FILES4 (TYPE VECTOR)>
1693                     <CHTYPE FILES4 <TYPE-CODE VECTOR> = FILES4>
1694                     <JUMP + AGAIN250>
1695 PHRASE259
1696                     <FRAME '\1aERROR>
1697                     <PUSH C5>
1698                     <PUSH 'FILE-GLUE>
1699                     <CALL '\1aERROR 2>
1700                     <JUMP + AGAIN250>
1701 EXIT249
1702                     <PUSH TFILES13>
1703                     <SET TEMP59 1 (TYPE FIX)>
1704                     <SFRAME 'READ-LIST>
1705                     <PUSH C5>
1706                     <PUSH 'END>
1707                     <PUSH <SET END T>>
1708                     <SCALL '\1aREAD-LIST 3 = ON19 + TAG262 TEMP59>
1709                     <TYPE ON19 = TEMP129>
1710                     <AND TEMP129 7 = TEMP129>
1711                     <VEQUAL? TEMP129 1 + TAG264>
1712                     <DEAD TEMP129>
1713                     <LOOP (ON19 TYPE VALUE LENGTH) (TEMP59 VALUE)>
1714 TAG270
1715                     <INTGO>
1716                     <EMPTY? ON19 + TAG269>
1717                     <NTH1 ON19 = STACK>
1718                     <REST1 ON19 = ON19>
1719                     <ADD TEMP59 1 = TEMP59 (TYPE FIX)>
1720                     <JUMP + TAG270>
1721 TAG269
1722                     <LIST TEMP59 = ITM102 (TYPE LIST)>
1723                     <DEAD TEMP59>
1724                     <JUMP + TAG265>
1725 TAG262
1726                     <SET ON19 0>
1727 TAG264
1728                     <LOOP>
1729 TAG267
1730                     <VEQUAL? TEMP59 0 + TAG266>
1731                     <POP = TEMP129>
1732                     <CONS TEMP129 ON19 = ON19 (TYPE LIST)>
1733                     <DEAD TEMP129>
1734                     <SUB TEMP59 1 = TEMP59 (TYPE FIX)>
1735                     <JUMP + TAG267>
1736 TAG266
1737                     <SET ITM102 ON19>
1738                     <DEAD ON19>
1739 TAG265
1740                     <NTHR 'END 2 = ON19 (RECORD-TYPE ATOM) (TYPE LBIND)>
1741                     <NTHR ON19 1 = ON19 (RECORD-TYPE LBIND)>
1742                     <TYPE? ON19 <TYPE-CODE FALSE> + PHRASE272>
1743                     <DEAD ON19>
1744                     <FRAME '\1aCLOSE>
1745                     <PUSH C5>
1746                     <CALL '\1aCLOSE 1>
1747 PHRASE272
1748                     <GVAL 'VERBOSE = ON19>
1749                     <TYPE? ON19 <TYPE-CODE FALSE> + PHRASE277>
1750                     <DEAD ON19>
1751                     <GVAL 'OUTCHAN = ON19>
1752                     <NTHR 'OUTCHAN 2 = TEMP129 (RECORD-TYPE ATOM) (TYPE LBIND)>
1753                     <NTHR TEMP129 1 = TEMP129 (RECORD-TYPE LBIND)>
1754                     <EQUAL? ON19 TEMP129 + BOOL278>
1755                     <DEAD ON19 TEMP129>
1756                     <FRAME '\1aPRINC>
1757                     <PUSH !\\f>
1758                     <NTHR 'OUTCHAN 2 = TEMP129 (RECORD-TYPE ATOM) (TYPE LBIND)>
1759                     <NTHR TEMP129 1 = STACK (RECORD-TYPE LBIND)>
1760                     <DEAD TEMP129>
1761                     <CALL '\1aPRINC 2>
1762 BOOL278
1763                     <FRAME '\1aCRLF>
1764                     <NTHR 'OUTCHAN 2 = TEMP129 (RECORD-TYPE ATOM) (TYPE LBIND)>
1765                     <NTHR TEMP129 1 = STACK (RECORD-TYPE LBIND)>
1766                     <DEAD TEMP129>
1767                     <CALL '\1aCRLF 1>
1768                     <FRAME '\1aPRINC>
1769                     <PUSH "Open coding: ">
1770                     <NTHR 'OUTCHAN 2 = TEMP129 (RECORD-TYPE ATOM) (TYPE LBIND)>
1771                     <NTHR TEMP129 1 = STACK (RECORD-TYPE LBIND)>
1772                     <DEAD TEMP129>
1773                     <CALL '\1aPRINC 2>
1774                     <FRAME '\1aPRIN1>
1775                     <RESTL TFILES13 1 = TEMP129 (TYPE LIST)>
1776                     <DEAD TFILES13>
1777                     <NTHL TEMP129 1 = TEMP129 (TYPE ATOM)>
1778                     <NTHR 'NAME 2 = ON19 (RECORD-TYPE ATOM) (TYPE LBIND)>
1779                     <PUTR ON19 1 TEMP129 (RECORD-TYPE LBIND)>
1780                     <DEAD ON19>
1781                     <PUSH TEMP129>
1782                     <DEAD TEMP129>
1783                     <NTHR 'OUTCHAN 2 = TEMP129 (RECORD-TYPE ATOM) (TYPE LBIND)>
1784                     <NTHR TEMP129 1 = STACK (RECORD-TYPE LBIND)>
1785                     <DEAD TEMP129>
1786                     <CALL '\1aPRIN1 2>
1787                     <JUMP + PHRASE295>
1788 PHRASE277
1789                     <RESTL TFILES13 1 = TEMP129 (TYPE LIST)>
1790                     <DEAD TFILES13>
1791                     <NTHL TEMP129 1 = TEMP129 (TYPE ATOM)>
1792                     <NTHR 'NAME 2 = ON19 (RECORD-TYPE ATOM) (TYPE LBIND)>
1793                     <PUTR ON19 1 TEMP129 (RECORD-TYPE LBIND)>
1794                     <DEAD ON19 TEMP129>
1795 PHRASE295
1796                     <FRAME '\1aPROCESS-IFSYS>
1797                     <PUSH ITM102>
1798                     <CALL '\1aPROCESS-IFSYS 1>
1799                     <FRAME '\1aCALL-ANA>
1800                     <PUSH ITM102>
1801                     <CALL '\1aCALL-ANA 1>
1802                     <FRAME '\1aMIMOC>
1803                     <PUSH ITM102>
1804                     <DEAD ITM102>
1805                     <GVAL 'SURVIVOR-MODE = TEMP129>
1806                     <TYPE? TEMP129 <TYPE-CODE FALSE> + TAG312>
1807                     <FRAME '\1aFIND-CALL>
1808                     <NTHR 'NAME 2 = ON19 (RECORD-TYPE ATOM) (TYPE LBIND)>
1809                     <NTHR ON19 1 = STACK (RECORD-TYPE LBIND)>
1810                     <DEAD ON19>
1811                     <GVAL 'PRE-NAMES = STACK>
1812                     <CALL '\1aFIND-CALL 2 = TFILES13>
1813                     <SET TEMP129 TFILES13>
1814                     <TYPE? TEMP129 <TYPE-CODE FALSE> + TAG312>
1815                     <FRAME '\1aGETPROP>
1816                     <PUSH TFILES13>
1817                     <DEAD TFILES13>
1818                     <PUSH 'NDFRM>
1819                     <CALL '\1aGETPROP 2 = ON19>
1820                     <TYPE? ON19 <TYPE-CODE FALSE> + TAG306>
1821                     <DEAD ON19>
1822                     <SET TEMP129 %<> (TYPE FALSE)>
1823                     <JUMP + TAG312>
1824 TAG306
1825                     <FRAME '\1aFIND-OPT>
1826                     <NTHR 'NAME 2 = ON19 (RECORD-TYPE ATOM) (TYPE LBIND)>
1827                     <NTHR ON19 1 = STACK (RECORD-TYPE LBIND)>
1828                     <DEAD ON19>
1829                     <GVAL 'PRE-OPTS = STACK>
1830                     <CALL '\1aFIND-OPT 2 = ON19>
1831                     <TYPE? ON19 <TYPE-CODE FALSE> + TAG310>
1832                     <DEAD ON19>
1833                     <SET TEMP129 %<> (TYPE FALSE)>
1834                     <JUMP + TAG312>
1835 TAG310
1836                     <FRAME '\1aSURVIVOR?>
1837                     <NTHR 'NAME 2 = ON19 (RECORD-TYPE ATOM) (TYPE LBIND)>
1838                     <NTHR ON19 1 = STACK (RECORD-TYPE LBIND)>
1839                     <DEAD ON19>
1840                     <CALL '\1aSURVIVOR? 1 = ON19>
1841                     <VEQUAL? ON19 0 - TAG311>
1842                     <DEAD ON19>
1843                     <SET TEMP129 'T (TYPE ATOM)>
1844                     <JUMP + TAG312>
1845 TAG311
1846                     <SET TEMP129 %<> (TYPE FALSE)>
1847 TAG312
1848                     <PUSH TEMP129>
1849                     <DEAD TEMP129>
1850                     <CALL '\1aMIMOC 2>
1851                     <NTHR 'NAME 2 = TEMP129 (RECORD-TYPE ATOM) (TYPE LBIND)>
1852                     <PUTR TEMP129 1 #UNBOUND 0  (RECORD-TYPE LBIND)>
1853                     <DEAD TEMP129>
1854                     <FRAME '\1aLOCATION-CHECK>
1855                     <CALL '\1aLOCATION-CHECK 0>
1856                     <GVAL 'MAX-SPACE = TEMP129>
1857                     <TYPE? TEMP129 <TYPE-CODE FALSE> + PHRASE320>
1858                     <DEAD TEMP129>
1859                     <FRAME '\1aPRINTTYPE>
1860                     <PUSH 'LOCAL-NAME>
1861                     <GVAL 'PRINT = STACK>
1862                     <CALL '\1aPRINTTYPE 2>
1863                     <FRAME '\1aPRINTTYPE>
1864                     <PUSH 'CONSTANT-LABEL>
1865                     <GVAL 'PRINT = STACK>
1866                     <CALL '\1aPRINTTYPE 2>
1867                     <FRAME '\1aFIXUP-ONE-GLUE>
1868                     <GVAL 'CODE = TEMP129>
1869                     <RESTL TEMP129 1 = STACK (TYPE LIST)>
1870                     <DEAD TEMP129>
1871                     <GVAL 'LABELS = STACK>
1872                     <CALL '\1aFIXUP-ONE-GLUE 2>
1873                     <FRAME '\1aFIXUP-CONSTANTS>
1874                     <GVAL 'CODE = TEMP129>
1875                     <RESTL TEMP129 1 = STACK (TYPE LIST)>
1876                     <DEAD TEMP129>
1877                     <PUSH ()>
1878                     <CALL '\1aFIXUP-CONSTANTS 2>
1879                     <FRAME '\1aDUMP-CODE>
1880                     <GVAL 'CODE = STACK>
1881                     <PUSH TC7>
1882                     <CALL '\1aDUMP-CODE 2>
1883                     <FRAME '\1aPRINTTYPE>
1884                     <PUSH 'LOCAL-NAME>
1885                     <GVAL 'PLOCAL-NAME = STACK>
1886                     <CALL '\1aPRINTTYPE 2>
1887                     <FRAME '\1aPRINTTYPE>
1888                     <PUSH 'CONSTANT-LABEL>
1889                     <GVAL 'PCONST-LABEL = STACK>
1890                     <CALL '\1aPRINTTYPE 2>
1891 PHRASE320
1892                     <GVAL 'LABELS = TFILES13>
1893                     <LOOP>
1894 MAP329
1895                     <INTGO>
1896                     <EMPL? TFILES13 + MAPAP332>
1897                     <NTHL TFILES13 1 = ITM102>
1898                     <PUTUV ITM102 4 () (TYPE LIST)>
1899                     <PUTUV ITM102 5 %<>>
1900                     <PUTUV ITM102 8 () (TYPE LIST)>
1901                     <PUTUV ITM102 7 () (TYPE LIST)>
1902                     <FRAME '\1aREMOVE>
1903                     <NTHUV ITM102 1 = STACK (TYPE ATOM)>
1904                     <DEAD ITM102>
1905                     <CALL '\1aREMOVE 1>
1906                     <RESTL TFILES13 1 = TFILES13 (TYPE LIST)>
1907                     <JUMP + MAP329>
1908 MAPAP332
1909                     <GVAL 'GCALS = TFILES13>
1910                     <CONS TFILES13 () = TEMP59>
1911                     <DEAD TFILES13>
1912                     <GVAL 'GREFS = TFILES13>
1913                     <CONS TFILES13 TEMP59 = TEMP59>
1914                     <DEAD TFILES13>
1915                     <GVAL 'LABELS = ITM102>
1916                     <CONS ITM102 TEMP59 = TEMP59>
1917                     <DEAD ITM102>
1918                     <GVAL 'MAX-SPACE = ITM102>
1919                     <TYPE? ITM102 <TYPE-CODE FALSE> + PHRASE341>
1920                     <DEAD ITM102>
1921                     <SET ITM102 () (TYPE LIST)>
1922                     <JUMP + PHRASE342>
1923 PHRASE341
1924                     <GVAL 'CODE = ITM102>
1925 PHRASE342
1926                     <CONS ITM102 TEMP59 = TEMP59>
1927                     <DEAD ITM102>
1928                     <GVAL 'GLUE-PC = ITM102>
1929                     <CONS ITM102 TEMP59 = TEMP59>
1930                     <DEAD ITM102>
1931                     <GVAL 'GLUE-DECL = ITM102>
1932                     <CONS ITM102 TEMP59 = TEMP59>
1933                     <DEAD ITM102>
1934                     <GVAL 'GLUE-NAME = ITM102>
1935                     <CONS ITM102 TEMP59 = TEMP59>
1936                     <DEAD ITM102>
1937                     <CONS TEMP59 () = ITM102>
1938                     <GVAL 'GLUE-LIST = TFILES13>
1939                     <PUTREST ITM102 TFILES13>
1940                     <DEAD TFILES13>
1941                     <SETG 'GLUE-LIST ITM102>
1942                     <DEAD ITM102>
1943                     <VEQUAL? TEMP44 0 + PHRASE344>
1944                     <SET TEMP44 %<> (TYPE FALSE)>
1945                     <FRAME '\1aACCESS>
1946                     <PUSH TOC17>
1947                     <CALL '\1aACCESS 1 = MSUBR-ACCESS11>
1948 PHRASE344
1949                     <GVAL 'SURVIVOR-MODE = ITM102>
1950                     <TYPE? ITM102 <TYPE-CODE FALSE> + BOOL348>
1951                     <DEAD ITM102>
1952                     <FRAME '\1aSURVIVOR?>
1953                     <NTHL TEMP59 1 = STACK>
1954                     <CALL '\1aSURVIVOR? 1 = ITM102>
1955                     <VEQUAL? ITM102 0 + PHRASE347>
1956                     <DEAD ITM102>
1957 BOOL348
1958                     <FRAME '\1aPRINT-ENTRY>
1959                     <PUSH TEMP59>
1960                     <DEAD TEMP59>
1961                     <PUSH TOC17>
1962                     <PUSH LOWERSTR12>
1963                     <CALL '\1aPRINT-ENTRY 3>
1964 PHRASE347
1965                     <GVAL 'GLUE-PC = ITM102>
1966                     <GVAL 'CODE-LENGTH = TFILES13>
1967                     <ADD ITM102 TFILES13 = ITM102 (TYPE FIX)>
1968                     <DEAD TFILES13>
1969                     <SETG 'GLUE-PC ITM102>
1970                     <DEAD ITM102>
1971                     <VEQUAL? FCN-COUNT10 FCN-FOUND243 - AGAIN248 (TYPE FIX)>
1972                     <UNBIND TEMP115>
1973                     <DEAD TEMP115>
1974 EXIT237
1975                     <ADJ -18>
1976                     <FRAME '\1aALLOCATE-CONSTANTS>
1977                     <GVAL 'CONSTANT-VECTOR = STACK>
1978                     <GVAL 'GLUE-PC = STACK>
1979                     <CALL '\1aALLOCATE-CONSTANTS 2>
1980                     <FRAME '\1aCLOSE>
1981                     <PUSH TOC17>
1982                     <DEAD TOC17>
1983                     <CALL '\1aCLOSE 1>
1984                     <FRAME '\1aFILE-LENGTH>
1985                     <FRAME '\1aOPEN>
1986                     <PUSH "READ">
1987                     <PUSH TON20>
1988                     <CALL '\1aOPEN 2 = TOC17>
1989                     <PUSH TOC17>
1990                     <CALL '\1aFILE-LENGTH 1 = ITM102>
1991                     <SUB ITM102 MSUBR-ACCESS11 = FCN-COUNT10 (TYPE FIX)>
1992                     <DEAD ITM102>
1993                     <UUBLOCK <TYPE-CODE STRING> 1024 = ON19 (TYPE STRING)>
1994                     <LOOP>
1995 AGAIN359
1996                     <INTGO>
1997                     <LESS? MSUBR-ACCESS11 1024 - PHRASE361 (TYPE FIX)>
1998                     <SUB 1024 MSUBR-ACCESS11 = TFILES13 (TYPE FIX)>
1999                     <RESTUS ON19 TFILES13 = ON19 (TYPE STRING)>
2000                     <DEAD TFILES13>
2001 PHRASE361
2002                     <EMPUS? ON19 + PHRASE363 (TYPE STRING)>
2003                     <FRAME '\1aREADSTRING>
2004                     <PUSH ON19>
2005                     <PUSH TOC17>
2006                     <CALL '\1aREADSTRING 2>
2007                     <FRAME '\1aPRINTSTRING>
2008                     <PUSH ON19>
2009                     <PUSH OC6>
2010                     <CALL '\1aPRINTSTRING 2>
2011 PHRASE363
2012                     <SUB MSUBR-ACCESS11 1024 = MSUBR-ACCESS11 (TYPE FIX)>
2013                     <GRTR? MSUBR-ACCESS11 0 + AGAIN359 (TYPE FIX)>
2014                     <TYPE? TC7 <TYPE-CODE FALSE> + PHRASE371>
2015                     <FRAME '\1aCLOSE>
2016                     <PUSH TC7>
2017                     <DEAD TC7>
2018                     <CALL '\1aCLOSE 1>
2019                     <FRAME '\1aOPEN>
2020                     <PUSH "READB">
2021                     <PUSH TN14>
2022                     <CALL '\1aOPEN 2 = TC7>
2023                     <GVAL 'VERBOSE = TFILES13>
2024                     <TYPE? TFILES13 <TYPE-CODE FALSE> + PHRASE375>
2025                     <DEAD TFILES13>
2026                     <FRAME '\1aPRINC>
2027                     <PUSH "
2028 Doing fixup and output
2029 ">
2030                     <NTHR 'OUTCHAN 2 = TFILES13 (RECORD-TYPE ATOM) (TYPE LBIND)>
2031                     <NTHR TFILES13 1 = STACK (RECORD-TYPE LBIND)>
2032                     <DEAD TFILES13>
2033                     <CALL '\1aPRINC 2>
2034 PHRASE375
2035                     <FRAME '\1aWRITE-MSUBR>
2036                     <PUSH OC6>
2037                     <PUSH LOWERSTR12>
2038                     <DEAD LOWERSTR12>
2039                     <CALL '\1aWRITE-MSUBR 2 = FILES4>
2040                     <GVAL 'GLUE-LIST = LOWERSTR12>
2041                     <LOOP>
2042 MAP381
2043                     <INTGO>
2044                     <EMPL? LOWERSTR12 + MAPAP384>
2045                     <NTHL LOWERSTR12 1 = TEMP59>
2046                     <FRAME '\1aREAD-CODE>
2047                     <PUSH TC7>
2048                     <CALL '\1aREAD-CODE 1 = TFILES13>
2049                     <NTHL TEMP59 7 = TEMP44>
2050                     <CHTYPE TEMP44 <TYPE-CODE LIST> = TEMP44>
2051                     <LOOP>
2052 MAP394
2053                     <INTGO>
2054                     <EMPL? TEMP44 + MAPAP397>
2055                     <NTHL TEMP44 1 = ON19>
2056                     <NTHL ON19 1 = ITM102 (TYPE FIX)>
2057                     <NTHL ON19 1 = FCN-FOUND243 (TYPE FIX)>
2058                     <NTHUU TFILES13 FCN-FOUND243 = FCN-FOUND243 (TYPE FIX)>
2059                     <FRAME '\1aGFIND>
2060                     <RESTL ON19 1 = TEMP115 (TYPE LIST)>
2061                     <NTHL TEMP115 1 = STACK>
2062                     <DEAD TEMP115>
2063                     <RESTL ON19 1 = TEMP115 (TYPE LIST)>
2064                     <DEAD ON19>
2065                     <RESTL TEMP115 1 = TEMP115 (TYPE LIST)>
2066                     <NTHL TEMP115 1 = STACK>
2067                     <DEAD TEMP115>
2068                     <CALL '\1aGFIND 2 = TEMP115>
2069                     <OR FCN-FOUND243 TEMP115 = FCN-FOUND243>
2070                     <DEAD TEMP115>
2071                     <PUTUU TFILES13 ITM102 FCN-FOUND243>
2072                     <DEAD ITM102 FCN-FOUND243>
2073                     <RESTL TEMP44 1 = TEMP44 (TYPE LIST)>
2074                     <JUMP + MAP394>
2075 MAPAP397
2076                     <NTHL TEMP59 6 = ITM102>
2077                     <DEAD TEMP59>
2078                     <LOOP>
2079 MAP411
2080                     <INTGO>
2081                     <EMPTY? ITM102 + MAPAP414>
2082                     <NTH1 ITM102 = TEMP59>
2083                     <NTHL TEMP59 1 = TEMP115 (TYPE FIX)>
2084                     <NTHL TEMP59 1 = FCN-FOUND243 (TYPE FIX)>
2085                     <NTHUU TFILES13 FCN-FOUND243 = FCN-FOUND243 (TYPE FIX)>
2086                     <RESTL TEMP59 1 = TEMP44 (TYPE LIST)>
2087                     <DEAD TEMP59>
2088                     <NTHL TEMP44 1 = TEMP44 (TYPE CONSTANT-BUCKET)>
2089                     <NTHUV TEMP44 4 = TEMP44 (TYPE FIX)>
2090                     <OR FCN-FOUND243 TEMP44 = FCN-FOUND243>
2091                     <DEAD TEMP44>
2092                     <PUTUU TFILES13 TEMP115 FCN-FOUND243>
2093                     <DEAD TEMP115 FCN-FOUND243>
2094                     <REST1 ITM102 = ITM102>
2095                     <JUMP + MAP411>
2096 MAPAP414
2097                     <SET ITM102 TFILES13 (TYPE UVECTOR)>
2098                     <LOOP>
2099 MAP421
2100                     <INTGO>
2101                     <EMPUU? ITM102 + MAPAP424>
2102                     <NTHUU ITM102 1 = FCN-FOUND243>
2103                     <SET MSUBR-ACCESS11 4 (TYPE FIX)>
2104                     <LOOP>
2105 AGAIN430
2106                     <INTGO>
2107                     <ROT FCN-FOUND243 9 = FCN-FOUND243 (TYPE FIX)>
2108                     <SET TEMP59 FCN-FOUND243>
2109                     <LSH TEMP59 -5 = TEMP44 (TYPE FIX)>
2110                     <AND TEMP44 #WORD *17* = TEMP44>
2111                     <ADD TEMP44 65 = TEMP44 (TYPE FIX)>
2112                     <CHTYPE TEMP44 <TYPE-CODE CHARACTER> = TEMP44>
2113                     <PUTUS OB23 1 TEMP44>
2114                     <DEAD TEMP44>
2115                     <RESTUS OB23 1 = OB23 (TYPE STRING)>
2116                     <EMPUS? OB23 - PHRASE436 (TYPE STRING)>
2117                     <FRAME '\1aCHANNEL-OP>
2118                     <PUSH OC6>
2119                     <PUSH 'WRITE-BUFFER>
2120                     <GVAL 'OUTPUT-BUFFER = OB23>
2121                     <PUSH OB23>
2122                     <CALL '\1aCHANNEL-OP 3>
2123 PHRASE436
2124                     <AND TEMP59 #WORD *37* = TEMP44>
2125                     <DEAD TEMP59>
2126                     <ADD TEMP44 65 = TEMP44 (TYPE FIX)>
2127                     <CHTYPE TEMP44 <TYPE-CODE CHARACTER> = TEMP44>
2128                     <PUTUS OB23 1 TEMP44>
2129                     <DEAD TEMP44>
2130                     <RESTUS OB23 1 = OB23 (TYPE STRING)>
2131                     <EMPUS? OB23 - PHRASE439 (TYPE STRING)>
2132                     <FRAME '\1aCHANNEL-OP>
2133                     <PUSH OC6>
2134                     <PUSH 'WRITE-BUFFER>
2135                     <GVAL 'OUTPUT-BUFFER = OB23>
2136                     <PUSH OB23>
2137                     <CALL '\1aCHANNEL-OP 3>
2138 PHRASE439
2139                     <SUB MSUBR-ACCESS11 1 = MSUBR-ACCESS11 (TYPE FIX)>
2140                     <VEQUAL? MSUBR-ACCESS11 0 - AGAIN430 (TYPE FIX)>
2141                     <RESTUU ITM102 1 = ITM102 (TYPE UVECTOR)>
2142                     <JUMP + MAP421>
2143 MAPAP424
2144                     <LENUU TFILES13 = FCN-FOUND243 (TYPE FIX)>
2145                     <DEAD TFILES13>
2146                     <ADD FCN-FOUND243 LEN9 = LEN9 (TYPE FIX)>
2147                     <DEAD FCN-FOUND243>
2148                     <RESTL LOWERSTR12 1 = LOWERSTR12 (TYPE LIST)>
2149                     <JUMP + MAP381>
2150 MAPAP384
2151                     <FRAME '\1aCLOSE>
2152                     <PUSH TC7>
2153                     <DEAD TC7>
2154                     <CALL '\1aCLOSE 1>
2155                     <FRAME '\1aDELFILE>
2156                     <PUSH TN14>
2157                     <DEAD TN14>
2158                     <CALL '\1aDELFILE 1>
2159                     <SETG 'MAX-SPACE %<>>
2160                     <FRAME '\1aWRITE-CODE>
2161                     <PUSH OC6>
2162                     <PUSH FILES4>
2163                     <DEAD FILES4>
2164                     <PUSH ()>
2165                     <PUSH OB23>
2166                     <DEAD OB23>
2167                     <PUSH LEN9>
2168                     <DEAD LEN9>
2169                     <CALL '\1aWRITE-CODE 5>
2170                     <GVAL 'INT-MODE = LOWERSTR12>
2171                     <TYPE? LOWERSTR12 <TYPE-CODE FALSE> + BOOL448>
2172                     <DEAD LOWERSTR12>
2173                     <FRAME '\1aPRINTTYPE>
2174                     <PUSH 'ATOM>
2175                     <GVAL 'PRINT = STACK>
2176                     <CALL '\1aPRINTTYPE 2>
2177 BOOL448
2178                     <UUBLOCK <TYPE-CODE STRING> 1024 = OB23 (TYPE STRING)>
2179                     <LOOP>
2180 AGAIN452
2181                     <INTGO>
2182                     <LESS? FCN-COUNT10 1024 - PHRASE454 (TYPE FIX)>
2183                     <SUB 1024 FCN-COUNT10 = FILES4 (TYPE FIX)>
2184                     <RESTUS OB23 FILES4 = OB23 (TYPE STRING)>
2185                     <DEAD FILES4>
2186 PHRASE454
2187                     <FRAME '\1aREADSTRING>
2188                     <PUSH OB23>
2189                     <PUSH TOC17>
2190                     <CALL '\1aREADSTRING 2>
2191                     <FRAME '\1aPRINTSTRING>
2192                     <PUSH OB23>
2193                     <PUSH OC6>
2194                     <CALL '\1aPRINTSTRING 2>
2195                     <SUB FCN-COUNT10 1024 = FCN-COUNT10 (TYPE FIX)>
2196                     <LESS? FCN-COUNT10 0 - AGAIN452 (TYPE FIX)>
2197                     <FRAME '\1aFINISH-FILE>
2198                     <PUSH C5>
2199                     <DEAD C5>
2200                     <PUSH OC6>
2201                     <PUSH EXPFLOAD16>
2202                     <DEAD EXPFLOAD16>
2203                     <CALL '\1aFINISH-FILE 3>
2204                     <FRAME '\1aCLOSE>
2205                     <PUSH OC6>
2206                     <DEAD OC6>
2207                     <CALL '\1aCLOSE 1>
2208                     <JUMP + PHRASE463>
2209 PHRASE371
2210                     <GVAL 'VERBOSE = FILES4>
2211                     <TYPE? FILES4 <TYPE-CODE FALSE> + PHRASE465>
2212                     <DEAD FILES4>
2213                     <FRAME '\1aPRINC>
2214                     <PUSH "
2215 Fixing Up CALLs
2216 ">
2217                     <NTHR 'OUTCHAN 2 = FILES4 (RECORD-TYPE ATOM) (TYPE LBIND)>
2218                     <NTHR FILES4 1 = STACK (RECORD-TYPE LBIND)>
2219                     <DEAD FILES4>
2220                     <CALL '\1aPRINC 2>
2221 PHRASE465
2222                     <FRAME '\1aGLUE-FIXUP>
2223                     <CALL '\1aGLUE-FIXUP 0>
2224                     <GVAL 'VERBOSE = FILES4>
2225                     <TYPE? FILES4 <TYPE-CODE FALSE> + PHRASE471>
2226                     <DEAD FILES4>
2227                     <FRAME '\1aPRINC>
2228                     <PUSH "Writing MSUBR
2229 ">
2230                     <NTHR 'OUTCHAN 2 = FILES4 (RECORD-TYPE ATOM) (TYPE LBIND)>
2231                     <NTHR FILES4 1 = STACK (RECORD-TYPE LBIND)>
2232                     <DEAD FILES4>
2233                     <CALL '\1aPRINC 2>
2234 PHRASE471
2235                     <FRAME '\1aWRITE-MSUBR>
2236                     <PUSH OC6>
2237                     <PUSH LOWERSTR12>
2238                     <DEAD LOWERSTR12>
2239                     <CALL '\1aWRITE-MSUBR 2>
2240                     <UUBLOCK <TYPE-CODE STRING> 1024 = OB23 (TYPE STRING)>
2241                     <LOOP>
2242 AGAIN478
2243                     <INTGO>
2244                     <LESS? FCN-COUNT10 1024 - PHRASE480 (TYPE FIX)>
2245                     <SUB 1024 FCN-COUNT10 = ON19 (TYPE FIX)>
2246                     <RESTUS OB23 ON19 = OB23 (TYPE STRING)>
2247                     <DEAD ON19>
2248 PHRASE480
2249                     <FRAME '\1aREADSTRING>
2250                     <PUSH OB23>
2251                     <PUSH TOC17>
2252                     <CALL '\1aREADSTRING 2>
2253                     <FRAME '\1aPRINTSTRING>
2254                     <PUSH OB23>
2255                     <PUSH OC6>
2256                     <CALL '\1aPRINTSTRING 2>
2257                     <SUB FCN-COUNT10 1024 = FCN-COUNT10 (TYPE FIX)>
2258                     <LESS? FCN-COUNT10 0 - AGAIN478 (TYPE FIX)>
2259                     <FRAME '\1aFINISH-FILE>
2260                     <PUSH C5>
2261                     <PUSH OC6>
2262                     <PUSH EXPFLOAD16>
2263                     <DEAD EXPFLOAD16>
2264                     <CALL '\1aFINISH-FILE 3>
2265                     <FRAME '\1aCLOSE>
2266                     <PUSH C5>
2267                     <DEAD C5>
2268                     <CALL '\1aCLOSE 1>
2269                     <FRAME '\1aCLOSE>
2270                     <PUSH OC6>
2271                     <DEAD OC6>
2272                     <CALL '\1aCLOSE 1>
2273 PHRASE463
2274                     <FRAME '\1aCLOSE>
2275                     <PUSH TOC17>
2276                     <DEAD TOC17>
2277                     <CALL '\1aCLOSE 1>
2278                     <FRAME '\1aDELFILE>
2279                     <PUSH TON20>
2280                     <DEAD TON20>
2281                     <CALL '\1aDELFILE 1>
2282                     <GVAL 'NULL = ON19>
2283                     <JUMP + PHRASE505>
2284 PHRASE83
2285                     <TYPE? C5 <TYPE-CODE UNBOUND> + PHRASE494>
2286                     <TYPE? C5 <TYPE-CODE FALSE> + PHRASE494>
2287                     <FRAME '\1aCLOSE>
2288                     <PUSH C5>
2289                     <DEAD C5>
2290                     <CALL '\1aCLOSE 1>
2291                     <TYPE? OC6 <TYPE-CODE UNBOUND> + PHRASE498>
2292                     <TYPE? OC6 <TYPE-CODE FALSE> + PHRASE498>
2293                     <FRAME '\1aCLOSE>
2294                     <PUSH OC6>
2295                     <DEAD OC6>
2296                     <CALL '\1aCLOSE 1>
2297                     <FRAME '\1aDELFILE>
2298                     <PUSH ON19>
2299                     <DEAD ON19>
2300                     <CALL '\1aDELFILE 1>
2301                     <FRAME '\1aERROR>
2302                     <PUSH TC7>
2303                     <DEAD TC7>
2304                     <CALL '\1aERROR 1 = ON19>
2305                     <JUMP + PHRASE505>
2306 PHRASE498
2307                     <FRAME '\1aERROR>
2308                     <PUSH OC6>
2309                     <DEAD OC6>
2310                     <CALL '\1aERROR 1 = ON19>
2311                     <JUMP + PHRASE505>
2312 PHRASE494
2313                     <FRAME '\1aERROR>
2314                     <PUSH C5>
2315                     <DEAD C5>
2316                     <CALL '\1aERROR 1 = ON19>
2317 PHRASE505
2318                     <UNBIND TEMP3>
2319                     <DEAD TEMP3>
2320                     <ADJ -18>
2321                     <RETURN ON19>
2322                     <DEAD ON19>
2323                     <END \1aFILE-GLUE>\r\r
2324 #WORD *16573324157*
2325 <GFCN \1aDO-ACCESS ("VALUE" FORM "QUOTE" ANY) CH5>
2326                     <TEMP TEMP8>
2327                     <INTGO>
2328                     <NTHR 'M-HLEN 1 = TEMP8 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE7)>
2329                     <TYPE? TEMP8 <TYPE-CODE FALSE> + PHRASE7>
2330                     <NTHR TEMP8 1 = TEMP8 (RECORD-TYPE GBIND)>
2331                     <TYPE? TEMP8 <TYPE-CODE UNBOUND> + PHRASE7>
2332                     <DEAD TEMP8>
2333                     <FRAME '\1aFORM>
2334                     <PUSH 'ACCESS>
2335                     <PUSH CH5>
2336                     <DEAD CH5>
2337                     <CALL '\1aFORM 2 = TEMP8>
2338                     <RETURN TEMP8>
2339                     <DEAD TEMP8>
2340 PHRASE7
2341                     <FRAME '\1aFORM>
2342                     <PUSH 17>
2343                     <PUSH CH5>
2344                     <DEAD CH5>
2345                     <CALL '\1aFORM 2 = TEMP8>
2346                     <RETURN TEMP8>
2347                     <DEAD TEMP8>
2348                     <END \1aDO-ACCESS><COND (<AND <GASSIGNED? DO-ACCESS> <NOT <TYPE? ,DO-ACCESS MACRO>>> <SETG DO-ACCESS <CHTYPE (,DO-ACCESS) MACRO>>)>
2349
2350 #WORD *31365455347*
2351 <GFCN \1aSURVIVOR? ("VALUE" <OR ATOM !<FALSE>> ANY) A5>
2352                     <TEMP SP6:STRING VL7 TEMP14 TEMP15 TEMP36 TEMP37 TEMP38 TEMP39>
2353                     <INTGO>
2354                     <NTHR A5 3 = SP6 (RECORD-TYPE ATOM)>
2355                     <GVAL 'VICTIMS = VL7>
2356                     <SET TEMP14 VL7>
2357                     <EMPL? TEMP14 + TAG11>
2358                     <LOOP (A5 VALUE) (TEMP14 VALUE)>
2359 TAG12
2360                     <NTHL TEMP14 1 = TEMP15>
2361                     <TYPE? TEMP15 <TYPE-CODE ATOM> - TAG13>
2362                     <VEQUAL? TEMP15 A5 + BOOL10>
2363                     <DEAD TEMP15>
2364 TAG13
2365                     <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
2366                     <EMPL? TEMP14 - TAG12>
2367 TAG11
2368                     <FRAME '\1aMEMBER>
2369                     <PUSH SP6>
2370                     <PUSH VL7>
2371                     <CALL '\1aMEMBER 2 = TEMP14>
2372                     <TYPE? TEMP14 <TYPE-CODE FALSE> - BOOL10>
2373                     <DEAD TEMP14>
2374                     <SET TEMP14 %<> (TYPE FALSE)>
2375                     <SET TEMP15 VL7 (TYPE LIST)>
2376                     <DEAD VL7>
2377                     <LOOP>
2378 MAP18
2379                     <INTGO>
2380                     <EMPL? TEMP15 + MAPAP21>
2381                     <NTHL TEMP15 1 = TEMP14>
2382                     <TYPE? TEMP14 <TYPE-CODE LIST> + TAG31>
2383                     <SET TEMP14 %<> (TYPE FALSE)>
2384                     <JUMP + PHRASE29>
2385 TAG31
2386                     <NTHL TEMP14 1 = VL7>
2387                     <TYPE? VL7 <TYPE-CODE STRING> - TAG34>
2388                     <IFCAN "STRING-EQUAL?">
2389                     <STRING-EQUAL? VL7 SP6 + TAG33>
2390                     <ENDIF "STRING-EQUAL?">
2391                     <IFCANNOT "STRING-EQUAL?">
2392                     <SET TEMP36 SP6>
2393                     <LENUS VL7 = TEMP37 (TYPE FIX)>
2394                     <LENUS TEMP36 = TEMP38 (TYPE FIX)>
2395                     <VEQUAL? TEMP37 TEMP38 - TAG34>
2396                     <DEAD TEMP38>
2397                     <LOOP (VL7 VALUE LENGTH) (TEMP36 VALUE LENGTH) (TEMP37 VALUE)>
2398 TAG40
2399                     <NTHUS VL7 1 = TEMP38>
2400                     <NTHUS TEMP36 1 = TEMP39>
2401                     <VEQUAL? TEMP38 TEMP39 - TAG34>
2402                     <DEAD TEMP38 TEMP39>
2403                     <RESTUS VL7 1 = VL7 (TYPE STRING)>
2404                     <RESTUS TEMP36 1 = TEMP36 (TYPE STRING)>
2405                     <SUB TEMP37 1 = TEMP37 (TYPE FIX)>
2406                     <GRTR? TEMP37 0 + TAG40 (TYPE FIX)>
2407                     <JUMP + TAG33>
2408                     <ENDIF "STRING-EQUAL?">
2409 TAG34
2410                     <SET TEMP14 %<> (TYPE FALSE)>
2411                     <JUMP + PHRASE29>
2412 TAG33
2413                     <NTHR A5 4 = TEMP36 (RECORD-TYPE ATOM)>
2414                     <RESTL TEMP14 1 = VL7 (TYPE LIST)>
2415                     <DEAD TEMP14>
2416                     <NTHL VL7 1 = VL7>
2417                     <CHTYPE VL7 <TYPE-CODE LIST> = TEMP14>
2418                     <DEAD VL7>
2419                     <TYPE TEMP36 = VL7>
2420                     <EMPL? TEMP14 + TAG41>
2421                     <LOOP (TEMP36 VALUE) (VL7 VALUE) (TEMP14 VALUE)>
2422 TAG43
2423                     <NTHL TEMP14 1 = TEMP39>
2424                     <TYPE? TEMP39 VL7 - TAG44>
2425                     <VEQUAL? TEMP39 TEMP36 + TAG42>
2426                     <DEAD TEMP39>
2427 TAG44
2428                     <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
2429                     <EMPL? TEMP14 - TAG43>
2430 TAG41
2431                     <SET TEMP14 %<> (TYPE FALSE)>
2432                     <JUMP + PHRASE29>
2433 TAG42
2434                     <SET TEMP14 'T (TYPE ATOM)>
2435                     <JUMP + MAPAP21>
2436 PHRASE29
2437                     <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
2438                     <JUMP + MAP18>
2439 MAPAP21
2440                     <TYPE? TEMP14 <TYPE-CODE FALSE> + TAG8>
2441                     <DEAD TEMP14>
2442 BOOL10
2443                     <RETURN %<>>
2444 TAG8
2445                     <RETURN 'T>
2446                     <END \1aSURVIVOR?>
2447 #WORD *12252255000*
2448 <GFCN \1aCHTYPE-OBLIST ("VALUE" FORM "QUOTE" ANY) O5>
2449                     <TEMP TEMP8>
2450                     <INTGO>
2451                     <NTHR 'M-HLEN 1 = TEMP8 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE7)>
2452                     <TYPE? TEMP8 <TYPE-CODE FALSE> + PHRASE7>
2453                     <NTHR TEMP8 1 = TEMP8 (RECORD-TYPE GBIND)>
2454                     <TYPE? TEMP8 <TYPE-CODE UNBOUND> + PHRASE7>
2455                     <DEAD TEMP8>
2456                     <FRAME '\1aFORM>
2457                     <PUSH 'CHTYPE>
2458                     <PUSH O5>
2459                     <DEAD O5>
2460                     <PUSH 'ATOM>
2461                     <CALL '\1aFORM 3 = TEMP8>
2462                     <RETURN TEMP8>
2463                     <DEAD TEMP8>
2464 PHRASE7
2465                     <FRAME '\1aFORM>
2466                     <PUSH 'GETPROP>
2467                     <PUSH O5>
2468                     <DEAD O5>
2469                     <PUSH 'OBLIST>
2470                     <CALL '\1aFORM 3 = TEMP8>
2471                     <RETURN TEMP8>
2472                     <DEAD TEMP8>
2473                     <END \1aCHTYPE-OBLIST><COND (<AND <GASSIGNED? CHTYPE-OBLIST> <NOT <TYPE? ,CHTYPE-OBLIST MACRO>>> <SETG CHTYPE-OBLIST <CHTYPE (,CHTYPE-OBLIST) MACRO>>)>
2474
2475 #WORD *26056104306*
2476 <GFCN \1aDETERMINE-VICTIMS ("VALUE" !<FALSE>)>
2477                     <TEMP (VL5:LIST ()) LOF6 TEMP13 A19 SP20 PP22 TEMP26 TEMP35 PN38 TEMP43 TEMP44 TEMP45 TEMP46>
2478                     <INTGO>
2479                     <GVAL 'LIST-OF-FCNS = LOF6>
2480                     <SET TEMP13 LOF6 (TYPE LIST)>
2481                     <DEAD LOF6>
2482                     <LOOP>
2483 MAP8
2484                     <INTGO>
2485                     <EMPL? TEMP13 + MAPAP11>
2486                     <NTHL TEMP13 1 = LOF6>
2487                     <NTHL LOF6 1 = A19 (TYPE ATOM)>
2488                     <NTHR A19 3 = SP20 (RECORD-TYPE ATOM)>
2489                     <SET PP22 %<> (TYPE FALSE)>
2490                     <GVAL 'PRE-NAMES = TEMP26>
2491                     <EMPL? TEMP26 + PHRASE77 (TYPE LIST)>
2492                     <DEAD TEMP26>
2493                     <SET TEMP35 %<> (TYPE FALSE)>
2494                     <GVAL 'PRE-NAMES = TEMP26>
2495                     <LOOP>
2496 MAP28
2497                     <INTGO>
2498                     <EMPL? TEMP26 + MAPAP31>
2499                     <SET PN38 TEMP26>
2500                     <NTHL PN38 1 = TEMP35>
2501                     <NTHR TEMP35 3 = TEMP35 (RECORD-TYPE ATOM)>
2502                     <IFCAN "STRING-EQUAL?">
2503                     <STRING-EQUAL? TEMP35 SP20 - PHRASE41>
2504                     <ENDIF "STRING-EQUAL?">
2505                     <IFCANNOT "STRING-EQUAL?">
2506                     <SET TEMP43 SP20>
2507                     <LENUS TEMP35 = TEMP44 (TYPE FIX)>
2508                     <LENUS TEMP43 = TEMP45 (TYPE FIX)>
2509                     <VEQUAL? TEMP44 TEMP45 - PHRASE41>
2510                     <DEAD TEMP45>
2511                     <LOOP (TEMP35 VALUE LENGTH) (TEMP43 VALUE LENGTH) (TEMP44 VALUE)>
2512 TAG47
2513                     <NTHUS TEMP35 1 = TEMP45>
2514                     <NTHUS TEMP43 1 = TEMP46>
2515                     <VEQUAL? TEMP45 TEMP46 - PHRASE41>
2516                     <DEAD TEMP45 TEMP46>
2517                     <RESTUS TEMP35 1 = TEMP35 (TYPE STRING)>
2518                     <RESTUS TEMP43 1 = TEMP43 (TYPE STRING)>
2519                     <SUB TEMP44 1 = TEMP44 (TYPE FIX)>
2520                     <GRTR? TEMP44 0 + TAG47 (TYPE FIX)>
2521                     <ENDIF "STRING-EQUAL?">
2522                     <SET PP22 PN38>
2523                     <DEAD PN38>
2524                     <SET TEMP35 %<> (TYPE FALSE)>
2525                     <JUMP + MAPAP31>
2526 PHRASE41
2527                     <SET TEMP35 'T (TYPE ATOM)>
2528                     <RESTL TEMP26 1 = TEMP26 (TYPE LIST)>
2529                     <JUMP + MAP28>
2530 MAPAP31
2531                     <TYPE? TEMP35 <TYPE-CODE FALSE> - PHRASE77>
2532                     <DEAD TEMP35>
2533                     <GVAL 'INT-MODE = TEMP35>
2534                     <TYPE? TEMP35 <TYPE-CODE FALSE> + BOOL49>
2535                     <DEAD TEMP35>
2536                     <LENUS SP20 = TEMP35 (TYPE FIX)>
2537                     <LESS? TEMP35 2 + PHRASE77 (TYPE FIX)>
2538                     <DEAD TEMP35>
2539                     <NTHUS SP20 1 = TEMP35 (TYPE CHARACTER)>
2540                     <VEQUAL? TEMP35 !\I - PHRASE77>
2541                     <DEAD TEMP35>
2542                     <NTHUS SP20 2 = TEMP35 (TYPE CHARACTER)>
2543                     <VEQUAL? TEMP35 !\$ - PHRASE77>
2544                     <DEAD TEMP35>
2545 BOOL49
2546                     <NTHR A19 4 = TEMP43 (RECORD-TYPE ATOM)>
2547                     <TYPE? TEMP43 <TYPE-CODE FALSE> + BOOL52>
2548                     <CHTYPE TEMP43 <TYPE-CODE ATOM> = TEMP35>
2549                     <DEAD TEMP43>
2550                     <NTHR TEMP35 4 = TEMP43 (RECORD-TYPE ATOM)>
2551                     <DEAD TEMP35>
2552                     <TYPE? TEMP43 <TYPE-CODE FALSE> + BOOL52>
2553                     <GVAL 'PKG-OBL = TEMP35>
2554                     <EQUAL? TEMP35 TEMP43 + PHRASE77>
2555                     <DEAD TEMP35>
2556                     <FRAME '\1aROOT>
2557                     <CALL '\1aROOT 0 = TEMP35>
2558                     <VEQUAL? TEMP43 TEMP35 + PHRASE77>
2559                     <DEAD TEMP43>
2560 BOOL52
2561                     <SET TEMP35 %<> (TYPE FALSE)>
2562                     <GVAL 'SURVIVORS = TEMP46>
2563                     <LOOP>
2564 MAP56
2565                     <INTGO>
2566                     <EMPL? TEMP46 + MAPAP59>
2567                     <NTHL TEMP46 1 = TEMP35>
2568                     <NTHR TEMP35 3 = TEMP45 (RECORD-TYPE ATOM)>
2569                     <IFCAN "STRING-EQUAL?">
2570                     <STRING-EQUAL? TEMP45 SP20 + TAG66>
2571                     <ENDIF "STRING-EQUAL?">
2572                     <IFCANNOT "STRING-EQUAL?">
2573                     <SET TEMP43 SP20>
2574                     <LENUS TEMP45 = TEMP44 (TYPE FIX)>
2575                     <LENUS TEMP43 = TEMP26 (TYPE FIX)>
2576                     <VEQUAL? TEMP44 TEMP26 - TAG67>
2577                     <DEAD TEMP26>
2578                     <LOOP (TEMP45 VALUE LENGTH) (TEMP43 VALUE LENGTH) (TEMP44 VALUE)>
2579 TAG72
2580                     <NTHUS TEMP45 1 = TEMP26>
2581                     <NTHUS TEMP43 1 = PN38>
2582                     <VEQUAL? TEMP26 PN38 - TAG67>
2583                     <DEAD TEMP26>
2584                     <RESTUS TEMP45 1 = TEMP45 (TYPE STRING)>
2585                     <RESTUS TEMP43 1 = TEMP43 (TYPE STRING)>
2586                     <SUB TEMP44 1 = TEMP44 (TYPE FIX)>
2587                     <GRTR? TEMP44 0 + TAG72 (TYPE FIX)>
2588                     <JUMP + TAG66>
2589                     <ENDIF "STRING-EQUAL?">
2590 TAG67
2591                     <SET TEMP35 %<> (TYPE FALSE)>
2592                     <JUMP + PHRASE64>
2593 TAG66
2594                     <NTHR TEMP35 4 = TEMP43 (RECORD-TYPE ATOM)>
2595                     <DEAD TEMP35>
2596                     <RESTL LOF6 1 = TEMP45 (TYPE LIST)>
2597                     <NTHL TEMP45 1 = TEMP35 (TYPE LIST)>
2598                     <DEAD TEMP45>
2599                     <TYPE TEMP43 = TEMP45>
2600                     <EMPL? TEMP35 + TAG73>
2601                     <LOOP (TEMP43 VALUE) (TEMP45 VALUE) (TEMP35 VALUE)>
2602 TAG75
2603                     <NTHL TEMP35 1 = PN38>
2604                     <TYPE? PN38 TEMP45 - TAG76>
2605                     <VEQUAL? PN38 TEMP43 + TAG74>
2606                     <DEAD PN38>
2607 TAG76
2608                     <RESTL TEMP35 1 = TEMP35 (TYPE LIST)>
2609                     <EMPL? TEMP35 - TAG75>
2610 TAG73
2611                     <SET TEMP35 %<> (TYPE FALSE)>
2612                     <JUMP + PHRASE64>
2613 TAG74
2614                     <SET TEMP35 'T (TYPE ATOM)>
2615                     <JUMP + MAPAP59>
2616 PHRASE64
2617                     <RESTL TEMP46 1 = TEMP46 (TYPE LIST)>
2618                     <JUMP + MAP56>
2619 MAPAP59
2620                     <TYPE? TEMP35 <TYPE-CODE FALSE> - PHRASE77>
2621                     <DEAD TEMP35>
2622                     <SET TEMP43 %<> (TYPE FALSE)>
2623                     <RESTL LOF6 1 = PN38 (TYPE LIST)>
2624                     <NTHL PN38 1 = PN38 (TYPE LIST)>
2625                     <LOOP>
2626 MAP79
2627                     <INTGO>
2628                     <EMPL? PN38 + MAPAP82>
2629                     <NTHL PN38 1 = TEMP35>
2630                     <FRAME '\1aLOOKUP>
2631                     <PUSH SP20>
2632                     <PUSH TEMP35>
2633                     <DEAD TEMP35>
2634                     <CALL '\1aLOOKUP 2 = TEMP43>
2635                     <TYPE? TEMP43 <TYPE-CODE FALSE> + PHRASE87>
2636                     <SET TEMP43 'T (TYPE ATOM)>
2637                     <JUMP + MAPAP82>
2638 PHRASE87
2639                     <RESTL PN38 1 = PN38 (TYPE LIST)>
2640                     <JUMP + MAP79>
2641 MAPAP82
2642                     <TYPE? TEMP43 <TYPE-CODE FALSE> - PHRASE77>
2643                     <DEAD TEMP43>
2644                     <RESTL LOF6 1 = TEMP43 (TYPE LIST)>
2645                     <NTHL TEMP43 1 = TEMP43 (TYPE LIST)>
2646                     <CONS TEMP43 () = TEMP43>
2647                     <CONS SP20 TEMP43 = TEMP43>
2648                     <CONS TEMP43 VL5 = VL5>
2649                     <DEAD TEMP43>
2650 PHRASE77
2651                     <TYPE? PP22 <TYPE-CODE FALSE> + PHRASE110>
2652                     <SET TEMP35 %<> (TYPE FALSE)>
2653                     <RESTL LOF6 1 = TEMP26 (TYPE LIST)>
2654                     <NTHL TEMP26 1 = TEMP26 (TYPE LIST)>
2655                     <LOOP>
2656 MAP93
2657                     <INTGO>
2658                     <EMPL? TEMP26 + MAPAP96>
2659                     <NTHL TEMP26 1 = TEMP35>
2660                     <FRAME '\1aLOOKUP>
2661                     <PUSH SP20>
2662                     <PUSH TEMP35>
2663                     <DEAD TEMP35>
2664                     <CALL '\1aLOOKUP 2 = TEMP43>
2665                     <SET TEMP35 TEMP43>
2666                     <TYPE? TEMP35 <TYPE-CODE FALSE> + PHRASE105>
2667                     <JUMP + MAPEX95>
2668 PHRASE105
2669                     <RESTL TEMP26 1 = TEMP26 (TYPE LIST)>
2670                     <JUMP + MAP93>
2671 MAPAP96
2672                     <SET TEMP43 TEMP35>
2673                     <DEAD TEMP35>
2674 MAPEX95
2675                     <TYPE? TEMP43 <TYPE-CODE FALSE> - BOOL91>
2676                     <FRAME '\1aINSERT>
2677                     <PUSH SP20>
2678                     <DEAD SP20>
2679                     <RESTL LOF6 1 = TEMP26 (TYPE LIST)>
2680                     <DEAD LOF6>
2681                     <NTHL TEMP26 1 = TEMP26 (TYPE LIST)>
2682                     <NTHL TEMP26 1 = STACK (TYPE OBLIST)>
2683                     <DEAD TEMP26>
2684                     <CALL '\1aINSERT 2 = TEMP43>
2685 BOOL91
2686                     <PUTL PP22 1 TEMP43>
2687                     <DEAD TEMP43>
2688                     <GVAL 'PRE-OPTS = SP20>
2689                     <EMPL? SP20 + TAG111>
2690                     <LOOP (A19 VALUE) (SP20 VALUE)>
2691 TAG113
2692                     <NTHL SP20 1 = TEMP43>
2693                     <TYPE? TEMP43 <TYPE-CODE ATOM> - TAG114>
2694                     <VEQUAL? TEMP43 A19 + TAG112>
2695                     <DEAD TEMP43>
2696 TAG114
2697                     <RESTL SP20 1 = SP20 (TYPE LIST)>
2698                     <EMPL? SP20 - TAG113>
2699 TAG111
2700                     <SET SP20 %<> (TYPE FALSE)>
2701 TAG112
2702                     <VEQUAL? SP20 0 + PHRASE110>
2703                     <NTHL PP22 1 = TEMP43>
2704                     <DEAD PP22>
2705                     <PUTL SP20 1 TEMP43>
2706                     <DEAD SP20 TEMP43>
2707 PHRASE110
2708                     <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
2709                     <JUMP + MAP8>
2710 MAPAP11
2711                     <SET LOF6 0 (TYPE FIX)>
2712                     <GVAL 'VICTIMS = TEMP13>
2713                     <LOOP (TEMP13 TYPE VALUE LENGTH) (LOF6 VALUE)>
2714 TAG116
2715                     <INTGO>
2716                     <EMPTY? TEMP13 + TAG115>
2717                     <NTH1 TEMP13 = STACK>
2718                     <REST1 TEMP13 = TEMP13>
2719                     <ADD LOF6 1 = LOF6 (TYPE FIX)>
2720                     <JUMP + TAG116>
2721 TAG115
2722                     <SET TEMP13 VL5>
2723                     <DEAD VL5>
2724                     <LOOP>
2725 TAG121
2726                     <VEQUAL? LOF6 0 + TAG120>
2727                     <POP = TEMP43>
2728                     <CONS TEMP43 TEMP13 = TEMP13 (TYPE LIST)>
2729                     <DEAD TEMP43>
2730                     <SUB LOF6 1 = LOF6 (TYPE FIX)>
2731                     <JUMP + TAG121>
2732 TAG120
2733                     <SETG 'VICTIMS TEMP13>
2734                     <DEAD TEMP13>
2735                     <SETG 'FIRST-PASS-SURVIVOR-GLUE %<>>
2736                     <RETURN %<>>
2737                     <END \1aDETERMINE-VICTIMS>
2738 <GDECL (GLUE-LIST) <LIST [REST LIST]>>
2739
2740 #WORD *1173365163*
2741 <GFCN \1aPRINT-ENTRY ("VALUE" MUD-CHAN LIST CHANNEL ANY) MSBASE5 OUTCHAN6 LOWERSTR7>
2742                     <TEMP TEMP10>
2743                     <INTGO>
2744                     <GVAL 'INT-MODE = TEMP10>
2745                     <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE9>
2746                     <DEAD TEMP10>
2747                     <FRAME '\1aPRINTTYPE>
2748                     <PUSH 'ATOM>
2749                     <GVAL 'ATOM-PRINT = STACK>
2750                     <CALL '\1aPRINTTYPE 2>
2751 PHRASE9
2752                     <NTHUV OUTCHAN6 6 = TEMP10 (TYPE MUD-CHAN)>
2753                     <PUTUV TEMP10 1 100000000 (TYPE FIX)>
2754                     <DEAD TEMP10>
2755                     <FRAME '\1aPRINC>
2756                     <PUSH "<SETG ">
2757                     <PUSH OUTCHAN6>
2758                     <CALL '\1aPRINC 2>
2759                     <FRAME '\1aPRIN1>
2760                     <NTHL MSBASE5 1 = STACK>
2761                     <PUSH OUTCHAN6>
2762                     <CALL '\1aPRIN1 2>
2763                     <FRAME '\1aPRINC>
2764                     <PUSH " #MSUBR [">
2765                     <PUSH OUTCHAN6>
2766                     <CALL '\1aPRINC 2>
2767                     <FRAME '\1aPRINC>
2768                     <PUSH LOWERSTR7>
2769                     <DEAD LOWERSTR7>
2770                     <PUSH OUTCHAN6>
2771                     <CALL '\1aPRINC 2>
2772                     <GVAL 'INT-MODE = TEMP10>
2773                     <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE20>
2774                     <DEAD TEMP10>
2775                     <FRAME '\1aPRINC>
2776                     <PUSH "!-IMSUBR!- ">
2777                     <PUSH OUTCHAN6>
2778                     <CALL '\1aPRINC 2>
2779                     <JUMP + PHRASE23>
2780 PHRASE20
2781                     <FRAME '\1aPRINC>
2782                     <PUSH "-IMSUBR ">
2783                     <PUSH OUTCHAN6>
2784                     <CALL '\1aPRINC 2>
2785 PHRASE23
2786                     <FRAME '\1aPRIN1>
2787                     <NTHL MSBASE5 1 = STACK>
2788                     <PUSH OUTCHAN6>
2789                     <CALL '\1aPRIN1 2>
2790                     <FRAME '\1aPRINC>
2791                     <PUSH !\ >
2792                     <PUSH OUTCHAN6>
2793                     <CALL '\1aPRINC 2>
2794                     <FRAME '\1aPRIN1>
2795                     <RESTL MSBASE5 1 = TEMP10 (TYPE LIST)>
2796                     <NTHL TEMP10 1 = STACK>
2797                     <DEAD TEMP10>
2798                     <PUSH OUTCHAN6>
2799                     <CALL '\1aPRIN1 2>
2800                     <FRAME '\1aPRINC>
2801                     <PUSH !\ >
2802                     <PUSH OUTCHAN6>
2803                     <CALL '\1aPRINC 2>
2804                     <FRAME '\1aPRIN1>
2805                     <RESTL MSBASE5 1 = TEMP10 (TYPE LIST)>
2806                     <DEAD MSBASE5>
2807                     <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
2808                     <NTHL TEMP10 1 = STACK>
2809                     <DEAD TEMP10>
2810                     <PUSH OUTCHAN6>
2811                     <CALL '\1aPRIN1 2>
2812                     <FRAME '\1aPRINC>
2813                     <PUSH "]>">
2814                     <PUSH OUTCHAN6>
2815                     <CALL '\1aPRINC 2>
2816                     <FRAME '\1aCRLF>
2817                     <PUSH OUTCHAN6>
2818                     <CALL '\1aCRLF 1>
2819                     <GVAL 'INT-MODE = TEMP10>
2820                     <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE33>
2821                     <DEAD TEMP10>
2822                     <FRAME '\1aPRINTTYPE>
2823                     <PUSH 'ATOM>
2824                     <GVAL 'PRINT = STACK>
2825                     <CALL '\1aPRINTTYPE 2>
2826 PHRASE33
2827                     <NTHUV OUTCHAN6 6 = TEMP10 (TYPE MUD-CHAN)>
2828                     <DEAD OUTCHAN6>
2829                     <PUTUV TEMP10 1 80 (TYPE FIX)>
2830                     <RETURN TEMP10>
2831                     <DEAD TEMP10>
2832                     <END \1aPRINT-ENTRY>
2833 #WORD *1520041432*
2834 <GFCN \1aFINISH-FILE ("VALUE" <OR !<FALSE> WORD <FORM ANY>> CHANNEL <OR CHANNEL FALSE> <OR ATOM FALSE> "OPTIONAL" <VECTOR [REST ATOM]> <OR ATOM FALSE>) INCHAN10 OUTCHAN11 EXPFLOAD12 END?13 EVAL?14>
2835                     <OPT-DISPATCH 3 %<> OPT7 OPT8 OPT9>
2836 OPT7
2837                     <PUSH #UNBOUND 0 >
2838 OPT8
2839                     <PUSH 'T>
2840 OPT9
2841                     <TEMP (IND15:LIST (1)) (WORD-OK?16 %<>) ITM22 TEMP27 TEMP32 TEMP38 TEMP39 TEMP40>
2842                     <INTGO>
2843                     <TYPE? END?13 <TYPE-CODE UNBOUND> - PHRASE18>
2844                     <SET WORD-OK?16 'T (TYPE ATOM)>
2845                     <SET END?13 [FCN GFCN] (TYPE VECTOR)>
2846 PHRASE18
2847                     <LOOP>
2848 AGAIN24
2849                     <INTGO>
2850                     <FRAME '\1aREAD>
2851                     <PUSH INCHAN10>
2852                     <CFRAME = STACK (TYPE FRAME)>
2853                     <CALL '\1aREAD 2 = ITM22>
2854                     <CFRAME = TEMP27 (TYPE FRAME)>
2855                     <EQUAL? TEMP27 ITM22 - TAG28>
2856                     <DEAD TEMP27>
2857                     <SET ITM22 IND15>
2858 TAG28
2859                     <EQUAL? ITM22 IND15 - PHRASE26>
2860                     <FRAME '\1aCLOSE>
2861                     <PUSH INCHAN10>
2862                     <DEAD INCHAN10>
2863                     <CALL '\1aCLOSE 1>
2864                     <GVAL 'INCHANS = TEMP32>
2865                     <RESTL TEMP32 1 = TEMP27 (TYPE LIST)>
2866                     <DEAD TEMP32>
2867                     <SETG 'INCHANS TEMP27>
2868                     <EMPL? TEMP27 - PHRASE31 (TYPE LIST)>
2869                     <DEAD TEMP27>
2870                     <RETURN %<>>
2871 PHRASE31
2872                     <GVAL 'INCHANS = TEMP32>
2873                     <NTHL TEMP32 1 = INCHAN10 (TYPE CHANNEL)>
2874                     <DEAD TEMP32>
2875                     <JUMP + AGAIN24>
2876 PHRASE26
2877                     <TYPE? ITM22 <TYPE-CODE STRING> + AGAIN24>
2878                     <TYPE? ITM22 <TYPE-CODE CHARACTER> + AGAIN24>
2879                     <TYPE? ITM22 <TYPE-CODE FIX> + AGAIN24>
2880                     <TYPE? ITM22 <TYPE-CODE ATOM> - TAG37>
2881                     <NTHR ITM22 3 = TEMP32 (RECORD-TYPE ATOM)>
2882                     <IFCAN "STRING-EQUAL?">
2883                     <STRING-EQUAL? TEMP32 "\f" + AGAIN24>
2884                     <ENDIF "STRING-EQUAL?">
2885                     <IFCANNOT "STRING-EQUAL?">
2886                     <SET TEMP27 "\f" (TYPE STRING)>
2887                     <LENUS TEMP32 = TEMP38 (TYPE FIX)>
2888                     <VEQUAL? TEMP38 1 - TAG37>
2889                     <LOOP (TEMP32 VALUE LENGTH) (TEMP27 VALUE LENGTH) (TEMP38 VALUE)>
2890 TAG41
2891                     <NTHUS TEMP32 1 = TEMP39>
2892                     <NTHUS TEMP27 1 = TEMP40>
2893                     <VEQUAL? TEMP39 TEMP40 - TAG37>
2894                     <DEAD TEMP39 TEMP40>
2895                     <RESTUS TEMP32 1 = TEMP32 (TYPE STRING)>
2896                     <RESTUS TEMP27 1 = TEMP27 (TYPE STRING)>
2897                     <SUB TEMP38 1 = TEMP38 (TYPE FIX)>
2898                     <GRTR? TEMP38 0 + TAG41 (TYPE FIX)>
2899                     <JUMP + AGAIN24>
2900                     <ENDIF "STRING-EQUAL?">
2901 TAG37
2902                     <TYPE? ITM22 <TYPE-CODE FORM> - PHRASE43>
2903                     <EMPL? ITM22 + PHRASE43 (TYPE FORM)>
2904                     <NTHL ITM22 1 = TEMP27>
2905                     <SET TEMP32 END?13>
2906                     <TYPE? TEMP27 <TYPE-CODE ATOM> - PHRASE43>
2907                     <EMPUV? TEMP32 + PHRASE43>
2908                     <LOOP (TEMP27 VALUE) (TEMP32 LENGTH VALUE)>
2909 TAG46
2910                     <NTHUV TEMP32 1 = TEMP40>
2911                     <VEQUAL? TEMP40 TEMP27 + TAG45>
2912                     <DEAD TEMP40>
2913                     <RESTUV TEMP32 1 = TEMP32 (TYPE VECTOR)>
2914                     <EMPUV? TEMP32 - TAG46>
2915                     <JUMP + PHRASE43>
2916 TAG45
2917                     <RETURN ITM22>
2918                     <DEAD ITM22>
2919 PHRASE43
2920                     <VEQUAL? WORD-OK?16 0 + PHRASE48>
2921                     <TYPE? ITM22 <TYPE-CODE WORD> - PHRASE48>
2922                     <GVAL 'INT-MODE = TEMP32>
2923                     <TYPE? TEMP32 <TYPE-CODE FALSE> - AGAIN24>
2924                     <DEAD TEMP32>
2925                     <GVAL 'BOOT-MODE = TEMP32>
2926                     <TYPE? TEMP32 <TYPE-CODE FALSE> - AGAIN24>
2927                     <DEAD TEMP32>
2928                     <GVAL 'GLUE-MODE = TEMP32>
2929                     <TYPE? TEMP32 <TYPE-CODE FALSE> - AGAIN24>
2930                     <DEAD TEMP32>
2931                     <TYPE? OUTCHAN11 <TYPE-CODE FALSE> + PHRASE54>
2932                     <FRAME '\1aPRINC>
2933                     <GVAL 'WORD-STRING = STACK>
2934                     <PUSH OUTCHAN11>
2935                     <CALL '\1aPRINC 2>
2936                     <FRAME '\1aPRIN-OCT>
2937                     <CHTYPE ITM22 <TYPE-CODE FIX> = STACK>
2938                     <PUSH OUTCHAN11>
2939                     <CALL '\1aPRIN-OCT 2>
2940                     <FRAME '\1aCRLF>
2941                     <PUSH OUTCHAN11>
2942                     <DEAD OUTCHAN11>
2943                     <CALL '\1aCRLF 1>
2944 PHRASE54
2945                     <RETURN ITM22>
2946                     <DEAD ITM22>
2947 PHRASE48
2948                     <TYPE? EXPFLOAD12 <TYPE-CODE FALSE> + PHRASE59>
2949                     <TYPE? ITM22 <TYPE-CODE FORM> - PHRASE59>
2950                     <EMPL? ITM22 + PHRASE59 (TYPE FORM)>
2951                     <NTHL ITM22 1 = TEMP32>
2952                     <EQUAL? TEMP32 'FLOAD - PHRASE62>
2953                     <DEAD TEMP32>
2954                     <FRAME '\1aOPEN>
2955                     <PUSH "READ">
2956                     <SET TEMP27 1 (TYPE FIX)>
2957                     <RESTL ITM22 1 = TEMP32 (TYPE LIST)>
2958                     <CHTYPE TEMP32 <TYPE-CODE LIST> = TEMP32>
2959                     <LOOP (TEMP32 VALUE) (TEMP27 VALUE)>
2960 TAG64
2961                     <INTGO>
2962                     <EMPL? TEMP32 + TAG63>
2963                     <NTHL TEMP32 1 = STACK>
2964                     <RESTL TEMP32 1 = TEMP32 (TYPE LIST)>
2965                     <ADD TEMP27 1 = TEMP27 (TYPE FIX)>
2966                     <JUMP + TAG64>
2967 TAG63
2968                     <CALL '\1aOPEN TEMP27 = TEMP32>
2969                     <DEAD TEMP27>
2970                     <TYPE? TEMP32 <TYPE-CODE FALSE> + PHRASE59>
2971                     <JUMP + PHRASE66>
2972 PHRASE62
2973                     <NTHL ITM22 1 = TEMP27>
2974                     <EQUAL? TEMP27 'L-FLOAD - PHRASE59>
2975                     <DEAD TEMP27>
2976                     <FRAME '\1aL-OPEN>
2977                     <RESTL ITM22 1 = TEMP27 (TYPE LIST)>
2978                     <NTHL TEMP27 1 = STACK (TYPE STRING)>
2979                     <DEAD TEMP27>
2980                     <CALL '\1aL-OPEN 1 = TEMP32>
2981                     <TYPE? TEMP32 <TYPE-CODE FALSE> + PHRASE59>
2982 PHRASE66
2983                     <SET INCHAN10 TEMP32>
2984                     <GVAL 'INCHANS = TEMP27>
2985                     <CONS TEMP32 TEMP27 = TEMP27>
2986                     <DEAD TEMP32>
2987                     <SETG 'INCHANS TEMP27>
2988                     <DEAD TEMP27>
2989                     <JUMP + AGAIN24>
2990 PHRASE59
2991                     <TYPE? EVAL?14 <TYPE-CODE FALSE> + PHRASE83>
2992                     <TYPE? ITM22 <TYPE-CODE FORM> - PHRASE77>
2993                     <EMPL? ITM22 + PHRASE77 (TYPE FORM)>
2994                     <NTHL ITM22 1 = TEMP32>
2995                     <SET TEMP40 [INCLUDE-WHEN USE-WHEN] (TYPE VECTOR)>
2996                     <TYPE? TEMP32 <TYPE-CODE ATOM> - PHRASE77>
2997                     <LOOP (TEMP32 VALUE) (TEMP40 LENGTH VALUE)>
2998 TAG80
2999                     <NTHUV TEMP40 1 = TEMP39>
3000                     <VEQUAL? TEMP39 TEMP32 + TAG79>
3001                     <DEAD TEMP39>
3002                     <RESTUV TEMP40 1 = TEMP40 (TYPE VECTOR)>
3003                     <EMPUV? TEMP40 - TAG80>
3004                     <JUMP + PHRASE77>
3005 TAG79
3006                     <RESTL ITM22 1 = TEMP40 (TYPE LIST)>
3007                     <CHTYPE TEMP40 <TYPE-CODE LIST> = TEMP40>
3008                     <EMPL? TEMP40 + PHRASE77 (TYPE LIST)>
3009                     <DEAD TEMP40>
3010                     <RESTL ITM22 1 = TEMP40 (TYPE LIST)>
3011                     <NTHL TEMP40 1 = TEMP27>
3012                     <DEAD TEMP40>
3013                     <TYPE? TEMP27 <TYPE-CODE FORM> - PHRASE77>
3014                     <EMPL? TEMP27 + PHRASE77 (TYPE FORM)>
3015                     <NTHL TEMP27 1 = TEMP40>
3016                     <EQUAL? TEMP40 'COMPILING? - PHRASE77>
3017                     <DEAD TEMP40>
3018                     <FRAME '\1aEVAL>
3019                     <PUSH ITM22>
3020                     <CALL '\1aEVAL 1>
3021                     <PUTL TEMP27 1 'DEBUGGING?>
3022                     <DEAD TEMP27>
3023                     <JUMP + PHRASE83>
3024 PHRASE77
3025                     <FRAME '\1aEVAL>
3026                     <PUSH ITM22>
3027                     <CALL '\1aEVAL 1>
3028 PHRASE83
3029                     <TYPE? OUTCHAN11 <TYPE-CODE FALSE> + AGAIN24>
3030                     <GVAL 'INT-MODE = TEMP40>
3031                     <TYPE? TEMP40 <TYPE-CODE FALSE> + PHRASE88>
3032                     <DEAD TEMP40>
3033                     <FRAME '\1aPRINTTYPE>
3034                     <PUSH 'ATOM>
3035                     <GVAL 'ATOM-PRINT = STACK>
3036                     <CALL '\1aPRINTTYPE 2>
3037 PHRASE88
3038                     <FRAME '\1aPRINTTYPE>
3039                     <PUSH 'CHARACTER>
3040                     <GVAL 'CHR-PRINT = STACK>
3041                     <CALL '\1aPRINTTYPE 2>
3042                     <NTHUV OUTCHAN11 6 = TEMP27 (TYPE MUD-CHAN)>
3043                     <PUTUV TEMP27 1 100000 (TYPE FIX)>
3044                     <DEAD TEMP27>
3045                     <FRAME '\1aPRIN1>
3046                     <PUSH ITM22>
3047                     <DEAD ITM22>
3048                     <PUSH OUTCHAN11>
3049                     <CALL '\1aPRIN1 2>
3050                     <FRAME '\1aCRLF>
3051                     <PUSH OUTCHAN11>
3052                     <CALL '\1aCRLF 1>
3053                     <NTHUV OUTCHAN11 6 = TEMP27 (TYPE MUD-CHAN)>
3054                     <PUTUV TEMP27 1 80 (TYPE FIX)>
3055                     <DEAD TEMP27>
3056                     <GVAL 'INT-MODE = TEMP39>
3057                     <TYPE? TEMP39 <TYPE-CODE FALSE> + PHRASE100>
3058                     <DEAD TEMP39>
3059                     <FRAME '\1aPRINTTYPE>
3060                     <PUSH 'ATOM>
3061                     <GVAL 'PRINT = STACK>
3062                     <CALL '\1aPRINTTYPE 2>
3063 PHRASE100
3064                     <FRAME '\1aPRINTTYPE>
3065                     <PUSH 'CHARACTER>
3066                     <GVAL 'PRINT = STACK>
3067                     <CALL '\1aPRINTTYPE 2>
3068                     <JUMP + AGAIN24>
3069                     <END \1aFINISH-FILE>
3070 #WORD *17464703305*
3071 <GFCN \1aPRIN-OCT ("VALUE" CHARACTER FIX ANY) X5 CH6>
3072                     <TEMP TEMP16:CHARACTER>
3073                     <INTGO>
3074                     <FRAME '\1aPRINC>
3075                     <PUSH !\*>
3076                     <PUSH CH6>
3077                     <CALL '\1aPRINC 2>
3078                     <VEQUAL? X5 0 - PHRASE9 (TYPE FIX)>
3079                     <FRAME '\1aPRINC>
3080                     <PUSH !\0>
3081                     <PUSH CH6>
3082                     <CALL '\1aPRINC 2>
3083                     <JUMP + PHRASE13>
3084 PHRASE9
3085                     <FRAME '\1aPOCT>
3086                     <PUSH X5>
3087                     <DEAD X5>
3088                     <PUSH CH6>
3089                     <CALL '\1aPOCT 2>
3090 PHRASE13
3091                     <FRAME '\1aPRINC>
3092                     <PUSH !\*>
3093                     <PUSH CH6>
3094                     <DEAD CH6>
3095                     <CALL '\1aPRINC 2 = TEMP16>
3096                     <RETURN TEMP16>
3097                     <DEAD TEMP16>
3098                     <END \1aPRIN-OCT>
3099 #WORD *6332307305*
3100 <GFCN \1aPOCT ("VALUE" <OR CHARACTER FALSE> FIX ANY) X5 CH6>
3101                     <TEMP TEMP9>
3102                     <INTGO>
3103                     <VEQUAL? X5 0 - TAG10 (TYPE FIX)>
3104                     <RETURN %<>>
3105 TAG10
3106                     <FRAME '\1aPOCT>
3107                     <LSH X5 -3 = STACK (TYPE FIX)>
3108                     <PUSH CH6>
3109                     <CALL '\1aPOCT 2>
3110                     <FRAME '\1aPRINC>
3111                     <AND X5 #WORD *7* = TEMP9>
3112                     <DEAD X5>
3113                     <ADD TEMP9 48 = TEMP9 (TYPE FIX)>
3114                     <CHTYPE TEMP9 <TYPE-CODE CHARACTER> = STACK>
3115                     <DEAD TEMP9>
3116                     <PUSH CH6>
3117                     <DEAD CH6>
3118                     <CALL '\1aPRINC 2 = TEMP9>
3119                     <RETURN TEMP9>
3120                     <DEAD TEMP9>
3121                     <END \1aPOCT>
3122 <GDECL (SUBRIFIED-PKGS SUBRIFIED-MSUBRS) <LIST [REST ATOM]>>
3123
3124 #WORD *22420213030*
3125 <GFCN \1aSUBRIFY? ("VALUE" <OR FALSE SUBR-INFO> ANY) NAME4>
3126                     <TEMP OBL5 TEMP14 MS6 OO7 CNT33:FIX>
3127                     <INTGO>
3128                     <NTHR NAME4 4 = OBL5 (RECORD-TYPE ATOM)>
3129                     <NTHR NAME4 1 = TEMP14 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG13)>
3130                     <TYPE? TEMP14 <TYPE-CODE FALSE> + TAG13>
3131                     <NTHR TEMP14 1 = TEMP14 (RECORD-TYPE GBIND)>
3132                     <TYPE? TEMP14 <TYPE-CODE UNBOUND> - TAG12>
3133                     <DEAD TEMP14>
3134 TAG13
3135                     <RETURN %<>>
3136 TAG12
3137                     <GVAL NAME4 = MS6>
3138                     <TYPE? MS6 <TYPE-CODE MSUBR> + TAG15>
3139                     <RETURN %<>>
3140 TAG15
3141                     <TYPE? OBL5 <TYPE-CODE FALSE> + TAG21>
3142                     <CHTYPE OBL5 <TYPE-CODE ATOM> = TEMP14>
3143                     <NTHR TEMP14 4 = OO7 (RECORD-TYPE ATOM)>
3144                     <DEAD TEMP14>
3145                     <EQUAL? OO7 #OBLIST PACKAGE + BOOL19>
3146                     <CHTYPE OO7 <TYPE-CODE ATOM> = TEMP14>
3147                     <NTHR TEMP14 4 = TEMP14 (RECORD-TYPE ATOM)>
3148                     <EQUAL? TEMP14 #OBLIST PACKAGE - TAG21>
3149                     <DEAD TEMP14>
3150                     <SET OBL5 OO7>
3151                     <DEAD OO7>
3152                     <TYPE? OBL5 <TYPE-CODE FALSE> + TAG21>
3153 BOOL19
3154                     <CHTYPE OBL5 <TYPE-CODE ATOM> = TEMP14>
3155                     <DEAD OBL5>
3156                     <GVAL 'SUBRIFIED-PKGS = OO7>
3157                     <EMPL? OO7 + TAG21>
3158                     <LOOP (TEMP14 VALUE) (OO7 VALUE)>
3159 TAG22
3160                     <NTHL OO7 1 = OBL5>
3161                     <VEQUAL? OBL5 TEMP14 + TAG27>
3162                     <DEAD OBL5>
3163                     <RESTL OO7 1 = OO7 (TYPE LIST)>
3164                     <EMPL? OO7 - TAG22>
3165 TAG21
3166                     <GVAL 'SUBRIFIED-MSUBRS = OBL5>
3167                     <EMPL? OBL5 + TAG26>
3168                     <LOOP (NAME4 VALUE) (OBL5 VALUE)>
3169 TAG28
3170                     <NTHL OBL5 1 = OO7>
3171                     <VEQUAL? OO7 NAME4 + TAG27>
3172                     <DEAD OO7>
3173                     <RESTL OBL5 1 = OBL5 (TYPE LIST)>
3174                     <EMPL? OBL5 - TAG28>
3175 TAG26
3176                     <RETURN %<>>
3177 TAG27
3178                     <PUSH NAME4>
3179                     <DEAD NAME4>
3180                     <NTHUV MS6 3 = TEMP14>
3181                     <DEAD MS6>
3182                     <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
3183                     <RESTL TEMP14 1 = OO7 (TYPE LIST)>
3184                     <DEAD TEMP14>
3185                     <CHTYPE OO7 <TYPE-CODE LIST> = OO7>
3186                     <SET CNT33 0 (TYPE FIX)>
3187                     <LOOP>
3188 AGAIN35
3189                     <INTGO>
3190                     <EMPL? OO7 - PHRASE37 (TYPE LIST)>
3191                     <PUSH CNT33>
3192                     <DEAD CNT33>
3193                     <JUMP + EXIT31>
3194 PHRASE37
3195                     <NTHL OO7 1 = MS6>
3196                     <TYPE? MS6 <TYPE-CODE STRING> + PHRASE39>
3197                     <ADD CNT33 1 = CNT33 (TYPE FIX)>
3198                     <JUMP + PHRASE40>
3199 PHRASE39
3200                     <SET TEMP14 ["OPT" "OPTIONAL" "TUPLE"] (TYPE VECTOR)>
3201                     <LOOP (MS6 VALUE) (TEMP14 LENGTH VALUE)>
3202 TAG42
3203                     <NTHUV TEMP14 1 = OBL5>
3204                     <VEQUAL? OBL5 MS6 + TAG41>
3205                     <DEAD OBL5>
3206                     <RESTUV TEMP14 1 = TEMP14 (TYPE VECTOR)>
3207                     <EMPUV? TEMP14 - TAG42>
3208                     <JUMP + PHRASE40>
3209 TAG41
3210                     <PUSH %<>>
3211                     <JUMP + EXIT31>
3212 PHRASE40
3213                     <RESTL OO7 1 = OO7 (TYPE LIST)>
3214                     <JUMP + AGAIN35>
3215 EXIT31
3216                     <UBLOCK <TYPE-CODE VECTOR> 2 = TEMP14>
3217                     <CHTYPE TEMP14 <TYPE-CODE SUBR-INFO> = OBL5>
3218                     <DEAD TEMP14>
3219                     <RETURN OBL5>
3220                     <DEAD OBL5>
3221                     <END \1aSUBRIFY?>
3222 #WORD *10427351722*
3223 <GFCN \1aPRINT-SUBR-INFO ("VALUE" STRING SUBR-INFO) S4>
3224                     <TEMP TEMP6>
3225                     <INTGO>
3226                     <FRAME '\1aPRINC>
3227                     <PUSH "%<SUBR-ENTRY ">
3228                     <GEN-LVAL 'OUTCHAN = STACK>
3229                     <CALL '\1aPRINC 2>
3230                     <FRAME '\1aPRIN1>
3231                     <NTHUV S4 1 = STACK>
3232                     <DEAD S4>
3233                     <GEN-LVAL 'OUTCHAN = STACK>
3234                     <CALL '\1aPRIN1 2>
3235                     <FRAME '\1aPRINC>
3236                     <PUSH ">">
3237                     <GEN-LVAL 'OUTCHAN = STACK>
3238                     <CALL '\1aPRINC 2 = TEMP6>
3239                     <RETURN TEMP6>
3240                     <DEAD TEMP6>
3241                     <END \1aPRINT-SUBR-INFO>
3242 <COND (<GASSIGNED? PRINT-SUBR-INFO> <PRINTTYPE SUBR-INFO ,PRINT-SUBR-INFO>)