mim/development/mim/mimc/comfil.mima

   1
   2 <PACKAGE "COMFIL">
   3
   4 <ENTRY FILE-COMPILE STATUS REDO PRECOMPILED DISOWN MACRO-COMPILE REHASH-ALL MACRO-FLUSH NO-TEMP-FILE INS-LIST INS-FIX ACCESS-LIST ERRORS-OCCURED>
   5
   6 <USE "FILE-INDEX" "HASH" "CDRIVE" "COMPDEC" "ITIME" "MIMC-GRDUMP" "TTY">
   7
   8 <NEWTYPE ACCESS-LIST LIST '<<PRIMTYPE LIST> ANY FIX FIX>>
   9
  10 <NEWTYPE INS-LIST LIST>
  11
  12 <GDECL (ALL-OUT) LIST>
  13
  14 <SETG STATUS-LINE <>>
  15
  16 <SETG PACKAGE-OBLIST <MOBLIST PACKAGE>>
  17
  18 <SET NO-TEMP-FILE <>>
  19
  20 <SET PACKAGE-MODE <>>
  21
  22 <SET REDO ()>
  23
  24 <SET CAREFUL T>
  25
  26 <SET REASONABLE T>
  27
  28 <SET DEBUG-COMPILE T>
  29
  30 <SET HAIRY-ANALYSIS T>
  31
  32 <SETG FF <ASCII 12>>
  33
  34 <SETG GC-COUNT 0>
  35
  36 <SET MACRO-FLUSH <>>
  37
  38 <SET MACRO-COMPILE T>
  39
  40 <SETG REHASH-ALL <>>
  41
  42 "Stuff for status line"
  43
  44 <SETG STATE-TITLE "State ">
  45
  46 <MSETG H-STATE <LENGTH ,STATE-TITLE>>
  47
  48 <MSETG H-STATE-LN 5>
  49
  50 <SETG STATE-FCN " Fcn ">
  51
  52 <MSETG H-FCN <+ <LENGTH ,STATE-FCN> ,H-STATE-LN ,H-STATE>>
  53
  54 <MSETG H-FCN-LN 10>
  55
  56 <SETG STATE-PHASE " Phase ">
  57
  58 <MSETG H-PHASE <+ ,H-FCN ,H-FCN-LN <LENGTH ,STATE-PHASE>>>
  59
  60 <MSETG H-PHASE-LN 4>
  61
  62 <SETG STATE-CPU " Cpu ">
  63
  64 <MSETG H-CPU <+ ,H-PHASE ,H-PHASE-LN <LENGTH ,STATE-CPU>>>
  65
  66 <MSETG H-CPU-LN 6>
  67
  68 <SETG STATE-REAL " Real ">
  69
  70 <MSETG H-REAL <+ ,H-CPU ,H-CPU-LN <LENGTH ,STATE-REAL>>>
  71
  72 <MSETG H-REAL-LN 5>
  73
  74 <MSETG H-RATIO <+ ,H-REAL ,H-REAL-LN 1>>
  75
  76 <MSETG H-RATIO-LN 7>
  77
  78 <MSETG H-RE-ANA <+ ,H-RATIO ,H-RATIO-LN 1>>
  79
  80 <BLOCK (<ROOT>)>
  81
  82 IMPORT-PM
  83
  84 DEFINITION-MODULE
  85
  86 PROGRAM-MODULE
  87
  88 END-MODULE
  89
  90 INCLUDE-DEFINITIONS
  91
  92 PMEXPORT
  93
  94 INCLUDE-WHEN
  95
  96 IMPORT-WHEN
  97
  98 ZSECTION
  99
 100 ZZSECTION
 101
 102 ZPACKAGE
 103
 104 ZZPACKAGE
 105
 106 ZENDPACKAGE
 107
 108 ZENDSECTION
 109
 110 ENDSECTION
 111
 112 <ENDBLOCK>
 113
 114 #WORD *14407242731*
 115                     <FCN \1aFILE-COMPILE ("VALUE" ANY STRING "OPTIONAL" STRING STRING) INFILE7 OUTFILE8 NM2-9>
 116                     <OPT-DISPATCH 1 %<> OPT4 OPT5 OPT6>
 117 OPT4
 118                     <PUSH "">
 119 OPT5
 120                     <PUSH #T$UNBOUND 0>
 121 OPT6
 122                     <TEMP TEMP3:LBIND TEMP42 (NEW-INDEX16:LIST ()) (PRE-INDEX18:LIST ()) NO-TEMP-FILE20 PRECH28 REDO31:LIST (ANY-MIMAS?37 %<>) REAL-NM2-38:STRING INCH12 TEMP68 OUTCH13 TEMP84 TEMP114 TEMP115 FILE-DATA23:LIST TEMP272 TEMP273 TEMP274 TEMP275 TMP26 PN551>
 123                     <INTGO>
 124                     <GETS 'BIND = TEMP3 (TYPE LBIND)>
 125                     <SET TEMP42 0>
 126                     <TYPE? NM2-9 <TYPE-CODE UNBOUND> - TAG40 (DEAD-FALL NM2-9 TEMP42)>
 127                     <SET NM2-9 "MUD" (TYPE STRING)>
 128                     <SET TEMP42 1>
 129 TAG40
 130                     <BBIND 'NM2 'STRING %<> NM2-9>
 131                     <DEAD NM2-9>
 132                     <VEQUAL? TEMP42 0 + TAG43>
 133                     <DEAD TEMP42>
 134                     <FIXBIND>
 135 TAG43
 136                     <FIXBIND>
 137                     <FRAME '\1aTIME>
 138                     <CALL '\1aTIME 0 = TEMP42>
 139                     <ADDF TEMP42 0.5000000 = TEMP42 (TYPE FLOAT)>
 140                     <FIX TEMP42 = TEMP42 (TYPE FIX)>
 141                     <BBIND 'STARCPU 'FIX 'FIX TEMP42>
 142                     <DEAD TEMP42>
 143                     <FRAME '\1aRTIME>
 144                     <CALL '\1aRTIME 0 = TEMP42>
 145                     <BBIND 'STARR 'FIX 'FIX TEMP42>
 146                     <DEAD TEMP42>
 147                     <BBIND 'TEMPCH <OR CHANNEL FALSE> 'FIX %<>>
 148                     <BBIND 'SRC-CHAN <OR CHANNEL FALSE> 'FIX %<>>
 149                     <GEN-LVAL 'NO-TEMP-FILE = NO-TEMP-FILE20>
 150                     <BBIND 'ATOM-LIST <LIST [REST <OR LIST ATOM>]> 'FIX>
 151                     <GEN-LVAL 'OBLIST = TEMP42>
 152                     <BBIND 'OBLIST 'ANY 'FIX TEMP42>
 153                     <DEAD TEMP42>
 154                     <BBIND 'ATL <LIST [REST <OR LIST ATOM>]> 'FIX>
 155                     <GEN-LVAL 'OUTCHAN = TEMP42>
 156                     <BBIND 'OUTCHAN 'CHANNEL 'FIX TEMP42>
 157                     <DEAD TEMP42>
 158                     <BBIND 'NO-BQ 'ANY 'FIX %<>>
 159                     <GEN-LVAL 'REDO = REDO31>
 160                     <BBIND 'NM1 'STRING 'FIX>
 161                     <BBIND 'SNM 'STRING 'FIX>
 162                     <BBIND 'DEV 'STRING 'FIX>
 163                     <BBIND 'GCTIME 'FLOAT 'FIX 0.0>
 164                     <BBIND 'I/O-TIME 'FLOAT 'FIX 0.0>
 165                     <NTHR 'NM2 2 = TEMP42 (RECORD-TYPE ATOM) (TYPE LBIND)>
 166                     <NTHR TEMP42 1 = REAL-NM2-38 (RECORD-TYPE LBIND)>
 167                     <DEAD TEMP42>
 168                     <CFRAME = TEMP42 (TYPE FRAME)>
 169                     <BBIND 'FCEX 'FRAME 'FIX TEMP42>
 170                     <DEAD TEMP42>
 171                     <ACTIVATION>
 172                     <SETG 'ERRORS-OCCURED %<>>
 173                     <SETG 'ALL-OUT ()>
 174                     <FRAME '\1aFILE-EXISTS?>
 175                     <PUSH INFILE7>
 176                     <CALL '\1aFILE-EXISTS? 1 = TEMP42>
 177                     <TYPE? TEMP42 <TYPE-CODE FALSE> - PHRASE58 (DEAD-JUMP TEMP42)>
 178                     <FRAME '\1aRETURN>
 179                     <PUSH TEMP42>
 180                     <DEAD TEMP42>
 181                     <NTHR 'FCEX 2 = TEMP42 (RECORD-TYPE ATOM) (TYPE LBIND)>
 182                     <NTHR TEMP42 1 = STACK (RECORD-TYPE LBIND)>
 183                     <DEAD TEMP42>
 184                     <CALL '\1aRETURN 2>
 185 PHRASE58
 186                     <FRAME '\1aCHANNEL-OPEN>
 187                     <PUSH 'PARSE>
 188                     <PUSH INFILE7>
 189                     <CALL '\1aCHANNEL-OPEN 2 = INCH12>
 190                     <FRAME '\1aPRINSPEC>
 191                     <PUSH "Input from ">
 192                     <PUSH INCH12>
 193                     <CALL '\1aPRINSPEC 2>
 194                     <FRAME '\1aCHANNEL-OP>
 195                     <PUSH INCH12>
 196                     <PUSH 'NM1>
 197                     <CALL '\1aCHANNEL-OP 2 = TEMP42>
 198                     <NTHR 'NM1 2 = TEMP68 (RECORD-TYPE ATOM) (TYPE LBIND)>
 199                     <PUTR TEMP68 1 TEMP42 (RECORD-TYPE LBIND)>
 200                     <DEAD TEMP68 TEMP42>
 201                     <FRAME '\1aCLOSE>
 202                     <PUSH INCH12>
 203                     <CALL '\1aCLOSE 1>
 204                     <NTHR 'NM2 2 = TEMP68 (RECORD-TYPE ATOM) (TYPE LBIND)>
 205                     <PUTR TEMP68 1 "MIMA" (RECORD-TYPE LBIND)>
 206                     <DEAD TEMP68>
 207                     <FRAME '\1aCHANNEL-OPEN>
 208                     <PUSH 'PARSE>
 209                     <PUSH OUTFILE8>
 210                     <CALL '\1aCHANNEL-OPEN 2 = OUTCH13>
 211                     <FRAME '\1aPRINSPEC>
 212                     <PUSH "Output to ">
 213                     <PUSH OUTCH13>
 214                     <CALL '\1aPRINSPEC 2>
 215                     <TYPE? NO-TEMP-FILE20 <TYPE-CODE FALSE> - PHRASE75>
 216                     <GETS 'BIND = TEMP68 (TYPE LBIND)>
 217                     <BBIND 'NM2 'STRING 'FIX "TEMP">
 218                     <LOOP>
 219 AGAIN78
 220                     <INTGO>
 221                     <FRAME '\1aOPEN>
 222                     <PUSH "PRINT">
 223                     <PUSH "">
 224                     <CALL '\1aOPEN 2 = TEMP42>
 225                     <NTHR 'TEMPCH 2 = TEMP84 (RECORD-TYPE ATOM) (TYPE LBIND)>
 226                     <PUTR TEMP84 1 TEMP42 (RECORD-TYPE LBIND)>
 227                     <DEAD TEMP84>
 228                     <TYPE? TEMP42 <TYPE-CODE FALSE> + PHRASE80>
 229                     <DEAD TEMP42>
 230                     <UNBIND TEMP68>
 231                     <DEAD TEMP68>
 232                     <JUMP + EXIT76>
 233 PHRASE80
 234                     <FRAME '\1aERROR>
 235                     <NTHR 'TEMPCH 2 = TEMP42 (RECORD-TYPE ATOM) (TYPE LBIND)>
 236                     <NTHR TEMP42 1 = STACK (RECORD-TYPE LBIND)>
 237                     <DEAD TEMP42>
 238                     <PUSH "ERRET ANYTHING TO RETRY">
 239                     <CALL '\1aERROR 2>
 240                     <JUMP + AGAIN78>
 241 EXIT76
 242                     <ADJ -9>
 243                     <FRAME '\1aPRINSPEC>
 244                     <PUSH "Temporary output to ">
 245                     <NTHR 'TEMPCH 2 = TEMP42 (RECORD-TYPE ATOM) (TYPE LBIND)>
 246                     <NTHR TEMP42 1 = STACK (RECORD-TYPE LBIND)>
 247                     <DEAD TEMP42>
 248                     <CALL '\1aPRINSPEC 2>
 249 PHRASE75
 250                     <GEN-ASSIGNED? 'PRECOMPILED - EXIT96>
 251                     <GEN-LVAL 'PRECOMPILED = TEMP84>
 252                     <TYPE? TEMP84 <TYPE-CODE FALSE> + EXIT96>
 253                     <DEAD TEMP84>
 254                     <LOOP>
 255 AGAIN98
 256                     <INTGO>
 257                     <TYPE? PRECH28 <TYPE-CODE UNBOUND> + BOOL102 (DEAD-JUMP PRECH28)>
 258                     <TYPE? PRECH28 <TYPE-CODE FALSE> - EXIT96 (DEAD-FALL PRECH28)>
 259 BOOL102
 260                     <FRAME '\1aOPEN>
 261                     <PUSH "READ">
 262                     <GEN-LVAL 'PRECOMPILED = STACK>
 263                     <CALL '\1aOPEN 2 = PRECH28>
 264                     <TYPE? PRECH28 <TYPE-CODE FALSE> + PHRASE100>
 265                     <FRAME '\1aPRINSPEC>
 266                     <PUSH "Will load precompile from ">
 267                     <PUSH PRECH28>
 268                     <CALL '\1aPRINSPEC 2 = TEMP42>
 269                     <TYPE? TEMP42 <TYPE-CODE FALSE> - EXIT96>
 270                     <DEAD TEMP42>
 271 PHRASE100
 272                     <FRAME '\1aUNAME>
 273                     <CALL '\1aUNAME 0 = TEMP42>
 274                     <IFCAN "STRING-EQUAL?">
 275                     <STRING-EQUAL? TEMP42 "OPERATOR" - PHRASE110>
 276                     <DEAD TEMP42>
 277                     <ENDIF "STRING-EQUAL?">
 278                     <IFCANNOT "STRING-EQUAL?">
 279                     <SET TEMP68 "OPERATOR" (TYPE STRING)>
 280                     <LENUS TEMP42 = TEMP84 (TYPE FIX)>
 281                     <VEQUAL? TEMP84 8 - PHRASE110 (DEAD-JUMP TEMP84 TEMP68 TEMP42)>
 282                     <LOOP (TEMP42 VALUE LENGTH) (TEMP68 VALUE LENGTH) (TEMP84 VALUE)>
 283 TAG116
 284                     <NTHUS TEMP42 1 = TEMP114>
 285                     <NTHUS TEMP68 1 = TEMP115>
 286                     <VEQUAL? TEMP114 TEMP115 - PHRASE110 (DEAD-JUMP TEMP84 TEMP68 TEMP42)>
 287                     <DEAD TEMP114 TEMP115>
 288                     <RESTUS TEMP42 1 = TEMP42 (TYPE STRING)>
 289                     <RESTUS TEMP68 1 = TEMP68 (TYPE STRING)>
 290                     <SUB TEMP84 1 = TEMP84 (TYPE FIX)>
 291                     <GRTR? TEMP84 0 + TAG116 (TYPE FIX) (DEAD-FALL TEMP84 TEMP68 TEMP42)>
 292                     <ENDIF "STRING-EQUAL?">
 293                     <FRAME '\1aPRINC>
 294                     <PUSH "Can't load precompilation from ">
 295                     <NTHR 'OUTCHAN 2 = TEMP42 (RECORD-TYPE ATOM) (TYPE LBIND)>
 296                     <NTHR TEMP42 1 = STACK (RECORD-TYPE LBIND)>
 297                     <DEAD TEMP42>
 298                     <CALL '\1aPRINC 2>
 299                     <FRAME '\1aPRINC>
 300                     <FRAME '\1aNTH>
 301                     <PUSH PRECH28>
 302                     <PUSH 2>
 303                     <CALL '\1aNTH 2 = STACK>
 304                     <NTHR 'OUTCHAN 2 = TEMP42 (RECORD-TYPE ATOM) (TYPE LBIND)>
 305                     <NTHR TEMP42 1 = STACK (RECORD-TYPE LBIND)>
 306                     <DEAD TEMP42>
 307                     <CALL '\1aPRINC 2>
 308                     <FRAME '\1aPRINC>
 309                     <PUSH ":  ">
 310                     <NTHR 'OUTCHAN 2 = TEMP42 (RECORD-TYPE ATOM) (TYPE LBIND)>
 311                     <NTHR TEMP42 1 = STACK (RECORD-TYPE LBIND)>
 312                     <DEAD TEMP42>
 313                     <CALL '\1aPRINC 2>
 314                     <FRAME '\1aPRINC>
 315                     <NTH1 PRECH28 = STACK>
 316                     <NTHR 'OUTCHAN 2 = TEMP42 (RECORD-TYPE ATOM) (TYPE LBIND)>
 317                     <NTHR TEMP42 1 = STACK (RECORD-TYPE LBIND)>
 318                     <DEAD TEMP42>
 319                     <CALL '\1aPRINC 2>
 320                     <FRAME '\1aPRINC>
 321                     <GVAL 'CRET = STACK>
 322                     <NTHR 'OUTCHAN 2 = TEMP42 (RECORD-TYPE ATOM) (TYPE LBIND)>
 323                     <NTHR TEMP42 1 = STACK (RECORD-TYPE LBIND)>
 324                     <DEAD TEMP42>
 325                     <CALL '\1aPRINC 2>
 326                     <JUMP + EXIT96>
 327 PHRASE110
 328                     <FRAME '\1aERROR>
 329                     <PUSH "Cant load precompilation">
 330                     <PUSH PRECH28>
 331                     <PUSH "ERRET non-false to retry, false to ignore precompilation">
 332                     <CALL '\1aERROR 3 = TEMP42>
 333                     <TYPE? TEMP42 <TYPE-CODE FALSE> + EXIT96 (DEAD-JUMP TEMP42)>
 334                     <TYPE? TEMP42 <TYPE-CODE STRING> - AGAIN98>
 335                     <GEN-SET 'PRECOMPILED TEMP42>
 336                     <DEAD TEMP42>
 337                     <JUMP + AGAIN98>
 338 EXIT96
 339                     <GEN-LVAL 'CAREFUL = TEMP42>
 340                     <TYPE? TEMP42 <TYPE-CODE FALSE> - EXIT146>
 341                     <DEAD TEMP42>
 342                     <FRAME '\1aPRINC>
 343                     <PUSH "Bounds checking disabled.">
 344                     <NTHR 'OUTCHAN 2 = TEMP115 (RECORD-TYPE ATOM) (TYPE LBIND)>
 345                     <NTHR TEMP115 1 = STACK (RECORD-TYPE LBIND)>
 346                     <DEAD TEMP115>
 347                     <CALL '\1aPRINC 2>
 348                     <FRAME '\1aPRINC>
 349                     <GVAL 'CRET = STACK>
 350                     <NTHR 'OUTCHAN 2 = TEMP115 (RECORD-TYPE ATOM) (TYPE LBIND)>
 351                     <NTHR TEMP115 1 = STACK (RECORD-TYPE LBIND)>
 352                     <DEAD TEMP115>
 353                     <CALL '\1aPRINC 2>
 354 EXIT146
 355                     <FRAME '\1aDO-AND-CHECK>
 356                     <PUSH "Writing record ">
 357                     <PUSH "RECORD">
 358                     <PUSH 'DISOWN>
 359                     <PUSH INCH12>
 360                     <PUSH OUTCH13>
 361                     <NTHR 'SRC-CHAN 2 = TEMP115 (RECORD-TYPE ATOM) (TYPE LBIND)>
 362                     <NTHR TEMP115 1 = STACK (RECORD-TYPE LBIND)>
 363                     <DEAD TEMP115>
 364                     <CALL '\1aDO-AND-CHECK 6 = TEMP42>
 365                     <TYPE? TEMP42 <TYPE-CODE FALSE> + PHRASE155 (DEAD-JUMP INCH12 TEMP42)>
 366                     <FRAME '\1aPRINC>
 367                     <PUSH "Toodle-oo!">
 368                     <NTHR 'OUTCHAN 2 = TEMP114 (RECORD-TYPE ATOM) (TYPE LBIND)>
 369                     <NTHR TEMP114 1 = STACK (RECORD-TYPE LBIND)>
 370                     <DEAD TEMP114>
 371                     <CALL '\1aPRINC 2>
 372                     <FRAME '\1aPRINC>
 373                     <GVAL 'CRET = STACK>
 374                     <NTHR 'OUTCHAN 2 = TEMP114 (RECORD-TYPE ATOM) (TYPE LBIND)>
 375                     <NTHR TEMP114 1 = STACK (RECORD-TYPE LBIND)>
 376                     <DEAD TEMP114>
 377                     <CALL '\1aPRINC 2>
 378                     <NTHR 'OUTCHAN 2 = TEMP114 (RECORD-TYPE ATOM) (TYPE LBIND)>
 379                     <PUTR TEMP114 1 TEMP42 (RECORD-TYPE LBIND)>
 380                     <DEAD TEMP114>
 381                     <SETG 'COMPCHAN TEMP42>
 382                     <DEAD TEMP42>
 383                     <FRAME '\1aPRINSPEC>
 384                     <PUSH "Compilation record for: ">
 385                     <PUSH INCH12>
 386                     <DEAD INCH12>
 387                     <CALL '\1aPRINSPEC 2>
 388                     <FRAME '\1aPRINSPEC>
 389                     <PUSH "Output file:  ">
 390                     <PUSH OUTCH13>
 391                     <CALL '\1aPRINSPEC 2>
 392 PHRASE155
 393                     <FRAME '\1aCLOSE>
 394                     <PUSH OUTCH13>
 395                     <DEAD OUTCH13>
 396                     <CALL '\1aCLOSE 1>
 397                     <SETG 'GC-COUNT 0>
 398                     <FRAME '\1aON>
 399                     <FRAME '\1aHANDLER>
 400                     <PUSH "GC">
 401                     <GVAL 'COUNT-GCS = STACK>
 402                     <PUSH 10>
 403                     <CALL '\1aHANDLER 3 = STACK>
 404                     <CALL '\1aON 1 = TEMP42>
 405                     <FRAME '\1aTIME>
 406                     <CALL '\1aTIME 0 = TEMP68>
 407                     <GVAL 'STATUS-LINE = TEMP114>
 408                     <TYPE? TEMP114 <TYPE-CODE FALSE> + PHRASE176>
 409                     <DEAD TEMP114>
 410                     <FRAME '\1aUPDATE-STATUS>
 411                     <PUSH "Load">
 412                     <PUSH %<>>
 413                     <PUSH %<>>
 414                     <PUSH %<>>
 415                     <CALL '\1aUPDATE-STATUS 4>
 416 PHRASE176
 417                     <FRAME '\1aFIND-DEFINE-LOAD>
 418                     <PUSH INFILE7>
 419                     <PUSH REAL-NM2-38>
 420                     <CALL '\1aFIND-DEFINE-LOAD 2 = FILE-DATA23>
 421                     <FRAME '\1aTIME>
 422                     <CALL '\1aTIME 0 = TEMP114>
 423                     <SUBF TEMP114 TEMP68 = TEMP114 (TYPE FLOAT)>
 424                     <DEAD TEMP68>
 425                     <NTHR 'I/O-TIME 2 = INCH12 (RECORD-TYPE ATOM) (TYPE LBIND)>
 426                     <PUTR INCH12 1 TEMP114 (RECORD-TYPE LBIND)>
 427                     <DEAD INCH12 TEMP114>
 428                     <GVAL 'STATUS-LINE = TEMP114>
 429                     <TYPE? TEMP114 <TYPE-CODE FALSE> + PHRASE184>
 430                     <DEAD TEMP114>
 431                     <FRAME '\1aUPDATE-STATUS>
 432                     <PUSH "Ordr">
 433                     <PUSH %<>>
 434                     <PUSH %<>>
 435                     <PUSH %<>>
 436                     <CALL '\1aUPDATE-STATUS 4>
 437 PHRASE184
 438                     <FRAME '\1aPRINC>
 439                     <PUSH "File loaded.">
 440                     <NTHR 'OUTCHAN 2 = INCH12 (RECORD-TYPE ATOM) (TYPE LBIND)>
 441                     <NTHR INCH12 1 = STACK (RECORD-TYPE LBIND)>
 442                     <DEAD INCH12>
 443                     <CALL '\1aPRINC 2>
 444                     <FRAME '\1aPRINC>
 445                     <GVAL 'CRET = STACK>
 446                     <NTHR 'OUTCHAN 2 = INCH12 (RECORD-TYPE ATOM) (TYPE LBIND)>
 447                     <NTHR INCH12 1 = STACK (RECORD-TYPE LBIND)>
 448                     <DEAD INCH12>
 449                     <CALL '\1aPRINC 2>
 450                     <SET INCH12 () (TYPE LIST)>
 451                     <SET OUTCH13 () (TYPE LIST)>
 452                     <NTHL FILE-DATA23 1 = TEMP84 (TYPE LIST)>
 453                     <LOOP>
 454 MAP195
 455                     <INTGO>
 456                     <EMPL? TEMP84 + MAPAP198 (DEAD-JUMP TEMP84 OUTCH13)>
 457                     <NTHL TEMP84 1 = TEMP68>
 458                     <GVAL TEMP68 = TEMP114>
 459                     <TYPE? TEMP114 <TYPE-CODE FUNCTION> + BOOL208>
 460                     <DEAD TEMP114>
 461                     <GVAL TEMP68 = TEMP114>
 462                     <TYPE? TEMP114 <TYPE-CODE MACRO> - MAP196 (DEAD-JUMP TEMP68)>
 463                     <DEAD TEMP114>
 464                     <GVAL TEMP68 = TEMP114>
 465                     <EMPTY? TEMP114 + MAP196 (DEAD-JUMP TEMP68)>
 466                     <DEAD TEMP114>
 467                     <GVAL TEMP68 = TEMP114>
 468                     <NTH1 TEMP114 = TEMP114>
 469                     <TYPE? TEMP114 <TYPE-CODE FUNCTION> - MAP196 (DEAD-JUMP TEMP68)>
 470                     <DEAD TEMP114>
 471 BOOL208
 472                     <SET TEMP114 TEMP68>
 473                     <DEAD TEMP68>
 474                     <CONS TEMP114 () = TEMP114 (TYPE LIST)>
 475                     <EMPL? INCH12 - TAG213 (DEAD-FALL OUTCH13 INCH12)>
 476                     <SET INCH12 TEMP114 (TYPE LIST)>
 477                     <JUMP + TAG214>
 478 TAG213
 479                     <PUTREST OUTCH13 TEMP114>
 480                     <DEAD OUTCH13>
 481 TAG214
 482                     <SET OUTCH13 TEMP114 (TYPE LIST)>
 483                     <DEAD TEMP114>
 484 MAP196
 485                     <RESTL TEMP84 1 = TEMP84 (TYPE LIST)>
 486                     <JUMP + MAP195>
 487 MAPAP198
 488                     <NTHR 'ATOM-LIST 2 = TEMP84 (RECORD-TYPE ATOM) (TYPE LBIND)>
 489                     <PUTR TEMP84 1 INCH12 (RECORD-TYPE LBIND)>
 490                     <DEAD TEMP84 INCH12>
 491                     <EMPL? REDO31 + EXIT238 (TYPE LIST)>
 492                     <GEN-LVAL 'PACKAGE-MODE = TEMP84>
 493                     <TYPE? TEMP84 <TYPE-CODE FALSE> + MAPAP227>
 494                     <DEAD TEMP84>
 495                     <SET TEMP84 REDO31 (TYPE LIST)>
 496                     <LOOP>
 497 MAP224
 498                     <INTGO>
 499                     <EMPL? TEMP84 + MAPAP227 (DEAD-JUMP TEMP84)>
 500                     <SET TEMP114 TEMP84>
 501                     <FRAME '\1aPACK-FIX>
 502                     <GEN-LVAL 'PACKAGE-MODE = STACK>
 503                     <NTHL TEMP114 1 = STACK (TYPE ATOM)>
 504                     <CALL '\1aPACK-FIX 2 = INCH12>
 505                     <PUTL TEMP114 1 INCH12>
 506                     <DEAD TEMP114 INCH12>
 507                     <RESTL TEMP84 1 = TEMP84 (TYPE LIST)>
 508                     <JUMP + MAP224>
 509 MAPAP227
 510                     <FRAME '\1aPRINC>
 511                     <PUSH "Explicitly Recompiling ">
 512                     <NTHR 'OUTCHAN 2 = INCH12 (RECORD-TYPE ATOM) (TYPE LBIND)>
 513                     <NTHR INCH12 1 = STACK (RECORD-TYPE LBIND)>
 514                     <DEAD INCH12>
 515                     <CALL '\1aPRINC 2>
 516                     <FRAME '\1aPRINC>
 517                     <PUSH REDO31>
 518                     <NTHR 'OUTCHAN 2 = INCH12 (RECORD-TYPE ATOM) (TYPE LBIND)>
 519                     <NTHR INCH12 1 = STACK (RECORD-TYPE LBIND)>
 520                     <DEAD INCH12>
 521                     <CALL '\1aPRINC 2>
 522                     <FRAME '\1aPRINC>
 523                     <GVAL 'CRET = STACK>
 524                     <NTHR 'OUTCHAN 2 = INCH12 (RECORD-TYPE ATOM) (TYPE LBIND)>
 525                     <NTHR INCH12 1 = STACK (RECORD-TYPE LBIND)>
 526                     <DEAD INCH12>
 527                     <CALL '\1aPRINC 2>
 528 EXIT238
 529                     <GEN-ASSIGNED? 'PRECOMPILED - PHRASE250>
 530                     <GEN-LVAL 'PRECOMPILED = TEMP114>
 531                     <TYPE? TEMP114 <TYPE-CODE FALSE> + PHRASE250>
 532                     <DEAD TEMP114>
 533                     <TYPE? PRECH28 <TYPE-CODE FALSE> + PHRASE250>
 534                     <FRAME '\1aTIME>
 535                     <CALL '\1aTIME 0 = TEMP68 (DEAD-FALL PRE-INDEX18)>
 536                     <SET PRE-INDEX18 () (TYPE LIST)>
 537                     <GVAL 'STATUS-LINE = TEMP114>
 538                     <TYPE? TEMP114 <TYPE-CODE FALSE> + PHRASE256>
 539                     <DEAD TEMP114>
 540                     <FRAME '\1aUPDATE-STATUS>
 541                     <PUSH "PCld">
 542                     <PUSH %<>>
 543                     <PUSH %<>>
 544                     <PUSH %<>>
 545                     <CALL '\1aUPDATE-STATUS 4>
 546 PHRASE256
 547                     <SET OUTCH13 %<> (TYPE FALSE)>
 548                     <LOOP>
 549 AGAIN264
 550                     <INTGO>
 551                     <FRAME '\1aACCESS>
 552                     <PUSH PRECH28>
 553                     <CALL '\1aACCESS 1 = TEMP84>
 554                     <FRAME '\1aREAD>
 555                     <PUSH PRECH28>
 556                     <CFRAME = STACK (TYPE FRAME)>
 557                     <CALL '\1aREAD 2 = TEMP114>
 558                     <CFRAME = INCH12 (TYPE FRAME)>
 559                     <EQUAL? INCH12 TEMP114 + EXIT258 (DEAD-JUMP TEMP114 TEMP84 OUTCH13)>
 560                     <DEAD INCH12>
 561                     <TYPE? TEMP114 <TYPE-CODE FORM> - PHRASE268 (DEAD-JUMP TEMP84 OUTCH13)>
 562                     <EMPL? TEMP114 + PHRASE268 (TYPE FORM) (DEAD-JUMP TEMP84 OUTCH13)>
 563                     <NTHL TEMP114 1 = TEMP115>
 564                     <TYPE? TEMP115 <TYPE-CODE ATOM> - PHRASE268 (DEAD-JUMP TEMP115 TEMP84 OUTCH13)>
 565                     <NTHR TEMP115 3 = INCH12 (RECORD-TYPE ATOM)>
 566                     <IFCAN "STRING-EQUAL?">
 567                     <STRING-EQUAL? INCH12 "FCN" + BOOL270 (DEAD-JUMP TEMP115)>
 568                     <DEAD INCH12>
 569                     <ENDIF "STRING-EQUAL?">
 570                     <IFCANNOT "STRING-EQUAL?">
 571                     <SET TEMP272 "FCN" (TYPE STRING)>
 572                     <LENUS INCH12 = TEMP273 (TYPE FIX)>
 573                     <VEQUAL? TEMP273 3 - TAG271 (DEAD-JUMP TEMP273 TEMP272 INCH12)>
 574                     <LOOP (INCH12 VALUE LENGTH) (TEMP272 VALUE LENGTH) (TEMP273 VALUE)>
 575 TAG276
 576                     <NTHUS INCH12 1 = TEMP274>
 577                     <NTHUS TEMP272 1 = TEMP275>
 578                     <VEQUAL? TEMP274 TEMP275 - TAG271 (DEAD-JUMP TEMP273 TEMP272 INCH12)>
 579                     <DEAD TEMP274 TEMP275>
 580                     <RESTUS INCH12 1 = INCH12 (TYPE STRING)>
 581                     <RESTUS TEMP272 1 = TEMP272 (TYPE STRING)>
 582                     <SUB TEMP273 1 = TEMP273 (TYPE FIX)>
 583                     <GRTR? TEMP273 0 + TAG276 (TYPE FIX) (DEAD-FALL TEMP273 TEMP272 INCH12)>
 584                     <JUMP + BOOL270 (DEAD-JUMP TEMP115)>
 585                     <ENDIF "STRING-EQUAL?">
 586 TAG271
 587                     <NTHR TEMP115 3 = TEMP272 (RECORD-TYPE ATOM)>
 588                     <DEAD TEMP115>
 589                     <IFCAN "STRING-EQUAL?">
 590                     <STRING-EQUAL? TEMP272 "GFCN" - PHRASE268 (DEAD-JUMP TEMP84 OUTCH13)>
 591                     <DEAD TEMP272>
 592                     <ENDIF "STRING-EQUAL?">
 593                     <IFCANNOT "STRING-EQUAL?">
 594                     <SET INCH12 "GFCN" (TYPE STRING)>
 595                     <LENUS TEMP272 = TEMP275 (TYPE FIX)>
 596                     <VEQUAL? TEMP275 4 - PHRASE268 (DEAD-JUMP TEMP275 TEMP272 TEMP84 OUTCH13 INCH12)>
 597                     <LOOP (TEMP272 VALUE LENGTH) (INCH12 VALUE LENGTH) (TEMP275 VALUE)>
 598 TAG278
 599                     <NTHUS TEMP272 1 = TEMP274>
 600                     <NTHUS INCH12 1 = TEMP115>
 601                     <VEQUAL? TEMP274 TEMP115 - PHRASE268 (DEAD-JUMP TEMP275 TEMP272 TEMP84 OUTCH13 INCH12)>
 602                     <DEAD TEMP274 TEMP115>
 603                     <RESTUS TEMP272 1 = TEMP272 (TYPE STRING)>
 604                     <RESTUS INCH12 1 = INCH12 (TYPE STRING)>
 605                     <SUB TEMP275 1 = TEMP275 (TYPE FIX)>
 606                     <GRTR? TEMP275 0 + TAG278 (TYPE FIX) (DEAD-FALL TEMP275 TEMP272 INCH12)>
 607                     <ENDIF "STRING-EQUAL?">
 608 BOOL270
 609                     <FRAME '\1aSKIP-MIMA>
 610                     <PUSH PRECH28>
 611                     <RESTL TEMP114 1 = INCH12 (TYPE LIST)>
 612                     <NTHL INCH12 1 = TEMP273>
 613                     <DEAD INCH12>
 614                     <PUSH TEMP273>
 615                     <CALL '\1aSKIP-MIMA 2>
 616                     <NTHR TEMP273 1 = INCH12 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG283) (DEAD-JUMP INCH12)>
 617                     <TYPE? INCH12 <TYPE-CODE FALSE> + TAG283 (DEAD-JUMP INCH12)>
 618                     <NTHR INCH12 1 = INCH12 (RECORD-TYPE GBIND)>
 619                     <TYPE? INCH12 <TYPE-CODE UNBOUND> - PHRASE281>
 620                     <DEAD INCH12>
 621 TAG283
 622                     <FRAME '\1aMEMBER>
 623                     <PUSH "ANONF">
 624                     <NTHR TEMP273 3 = STACK (RECORD-TYPE ATOM)>
 625                     <CALL '\1aMEMBER 2 = INCH12>
 626                     <TYPE? INCH12 <TYPE-CODE FALSE> + AGAIN264>
 627                     <DEAD INCH12>
 628 PHRASE281
 629                     <NTHR 'ATOM-LIST 2 = INCH12 (RECORD-TYPE ATOM) (TYPE LBIND)>
 630                     <NTHR INCH12 1 = INCH12 (RECORD-TYPE LBIND)>
 631                     <EMPL? INCH12 + EXIT311 (TYPE LIST) (DEAD-JUMP TEMP114 TEMP84)>
 632                     <DEAD INCH12>
 633                     <SET INCH12 REDO31>
 634                     <EMPL? INCH12 + TAG290 (DEAD-JUMP INCH12)>
 635                     <LOOP (TEMP273 VALUE) (INCH12 VALUE)>
 636 TAG291
 637                     <NTHL INCH12 1 = TEMP272>
 638                     <TYPE? TEMP272 <TYPE-CODE ATOM> - TAG292 (DEAD-JUMP TEMP272)>
 639                     <VEQUAL? TEMP272 TEMP273 + EXIT311 (DEAD-JUMP TEMP114 TEMP84 INCH12)>
 640                     <DEAD TEMP272>
 641 TAG292
 642                     <RESTL INCH12 1 = INCH12 (TYPE LIST)>
 643                     <EMPL? INCH12 - TAG291 (DEAD-FALL INCH12)>
 644 TAG290
 645                     <NTHR TEMP273 1 = INCH12 (RECORD-TYPE ATOM) (BRANCH-FALSE + BOOL293) (DEAD-JUMP INCH12)>
 646                     <TYPE? INCH12 <TYPE-CODE FALSE> + BOOL293 (DEAD-JUMP INCH12)>
 647                     <NTHR INCH12 1 = INCH12 (RECORD-TYPE GBIND)>
 648                     <TYPE? INCH12 <TYPE-CODE UNBOUND> + BOOL293>
 649                     <DEAD INCH12>
 650                     <TYPE? OUTCH13 <TYPE-CODE FALSE> + BOOL293>
 651                     <FRAME '\1aHASH>
 652                     <GVAL TEMP273 = STACK>
 653                     <CALL '\1aHASH 1 = INCH12>
 654                     <VEQUAL? OUTCH13 INCH12 - EXIT311 (TYPE FIX) (DEAD-JUMP TEMP114 TEMP84)>
 655                     <DEAD INCH12>
 656 BOOL293
 657                     <CONS TEMP273 () = INCH12>
 658                     <CONS TEMP84 () = TEMP272>
 659                     <DEAD TEMP84>
 660                     <PUTREST INCH12 TEMP272>
 661                     <FRAME '\1aACCESS>
 662                     <PUSH PRECH28>
 663                     <CALL '\1aACCESS 1 = TEMP115>
 664                     <CONS TEMP115 () = TEMP115>
 665                     <PUTREST TEMP272 TEMP115>
 666                     <DEAD TEMP272>
 667                     <SET TEMP272 OUTCH13>
 668                     <TYPE? TEMP272 <TYPE-CODE FALSE> - PHRASE297 (DEAD-FALL TEMP272)>
 669                     <NTHR TEMP273 1 = TEMP274 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG299) (DEAD-JUMP TEMP274)>
 670                     <TYPE? TEMP274 <TYPE-CODE FALSE> + TAG299 (DEAD-JUMP TEMP274)>
 671                     <NTHR TEMP274 1 = TEMP274 (RECORD-TYPE GBIND)>
 672                     <TYPE? TEMP274 <TYPE-CODE UNBOUND> - TAG298>
 673                     <DEAD TEMP274>
 674 TAG299
 675                     <SET TEMP272 %<> (TYPE FALSE)>
 676                     <JUMP + PHRASE297>
 677 TAG298
 678                     <FRAME '\1aHASH>
 679                     <GVAL TEMP273 = STACK>
 680                     <CALL '\1aHASH 1 = TEMP272>
 681 PHRASE297
 682                     <CONS TEMP272 () = TEMP272>
 683                     <PUTREST TEMP115 TEMP272>
 684                     <DEAD TEMP115 TEMP272>
 685                     <CHTYPE INCH12 <TYPE-CODE ACCESS-LIST> = INCH12>
 686                     <CONS INCH12 () = INCH12>
 687                     <PUTREST INCH12 PRE-INDEX18>
 688                     <DEAD PRE-INDEX18>
 689                     <SET PRE-INDEX18 INCH12>
 690                     <DEAD INCH12>
 691                     <FRAME '\1aPUTPROP>
 692                     <PUSH TEMP273>
 693                     <PUSH 'RSUB-DEC>
 694                     <RESTL TEMP114 1 = INCH12 (TYPE LIST)>
 695                     <DEAD TEMP114>
 696                     <RESTL INCH12 1 = INCH12 (TYPE LIST)>
 697                     <NTHL INCH12 1 = STACK>
 698                     <DEAD INCH12>
 699                     <CALL '\1aPUTPROP 3>
 700                     <NTHR 'ATOM-LIST 2 = INCH12 (RECORD-TYPE ATOM) (TYPE LBIND)>
 701                     <NTHR INCH12 1 = INCH12 (RECORD-TYPE LBIND)>
 702                     <NTHL INCH12 1 = INCH12>
 703                     <VEQUAL? INCH12 TEMP273 - PHRASE303 (DEAD-FALL ANY-MIMAS?37)>
 704                     <DEAD INCH12>
 705                     <NTHR 'ATOM-LIST 2 = TEMP272 (RECORD-TYPE ATOM) (TYPE LBIND)>
 706                     <NTHR TEMP272 1 = TEMP272 (RECORD-TYPE LBIND)>
 707                     <RESTL TEMP272 1 = INCH12 (TYPE LIST)>
 708                     <DEAD TEMP272>
 709                     <NTHR 'ATOM-LIST 2 = TEMP272 (RECORD-TYPE ATOM) (TYPE LBIND)>
 710                     <PUTR TEMP272 1 INCH12 (RECORD-TYPE LBIND)>
 711                     <DEAD TEMP272 INCH12>
 712                     <JUMP + PEEP614>
 713 PHRASE303
 714                     <NTHR 'ATOM-LIST 2 = TEMP272 (RECORD-TYPE ATOM) (TYPE LBIND)>
 715                     <NTHR TEMP272 1 = TEMP114 (RECORD-TYPE LBIND)>
 716                     <DEAD TEMP272>
 717                     <LOOP>
 718 AGAIN315
 719                     <INTGO>
 720                     <RESTL TEMP114 1 = TEMP272 (TYPE LIST)>
 721                     <EMPL? TEMP272 + EXIT311 (TYPE LIST) (DEAD-JUMP TEMP114)>
 722                     <DEAD TEMP272>
 723                     <RESTL TEMP114 1 = TEMP272 (TYPE LIST)>
 724                     <NTHL TEMP272 1 = TEMP272>
 725                     <VEQUAL? TEMP272 TEMP273 - PHRASE319 (DEAD-FALL ANY-MIMAS?37)>
 726                     <DEAD TEMP272>
 727                     <RESTL TEMP114 1 = TEMP115 (TYPE LIST)>
 728                     <RESTL TEMP115 1 = TEMP272 (TYPE LIST)>
 729                     <DEAD TEMP115>
 730                     <PUTREST TEMP114 TEMP272>
 731                     <DEAD TEMP114 TEMP272>
 732 PEEP614
 733                     <SET ANY-MIMAS?37 'T (TYPE ATOM)>
 734                     <JUMP + EXIT311>
 735 PHRASE319
 736                     <RESTL TEMP114 1 = TEMP114 (TYPE LIST)>
 737                     <JUMP + AGAIN315>
 738 EXIT311
 739                     <TYPE? OUTCH13 <TYPE-CODE FALSE> + PHRASE326 (DEAD-JUMP TEMP273 OUTCH13)>
 740                     <NTHR TEMP273 1 = TEMP272 (RECORD-TYPE ATOM) (BRANCH-FALSE + AGAIN264)>
 741                     <DEAD TEMP273>
 742                     <TYPE? TEMP272 <TYPE-CODE FALSE> + AGAIN264>
 743                     <NTHR TEMP272 1 = TEMP272 (RECORD-TYPE GBIND)>
 744                     <TYPE? TEMP272 <TYPE-CODE UNBOUND> - PHRASE326 (DEAD-JUMP OUTCH13)>
 745                     <DEAD TEMP272>
 746                     <JUMP + AGAIN264>
 747 PHRASE268
 748                     <TYPE? TEMP114 <TYPE-CODE WORD> - PHRASE324>
 749                     <GVAL 'REHASH-ALL = TEMP272>
 750                     <TYPE? TEMP272 <TYPE-CODE FALSE> - PHRASE324>
 751                     <DEAD TEMP272>
 752                     <CHTYPE TEMP114 <TYPE-CODE FIX> = OUTCH13>
 753                     <DEAD TEMP114>
 754                     <JUMP + AGAIN264>
 755 PHRASE324
 756                     <TYPE? TEMP114 <TYPE-CODE FORM> - TAG328>
 757                     <EMPL? TEMP114 + TAG328 (TYPE FORM)>
 758                     <NTHL TEMP114 1 = TEMP272>
 759                     <SET TEMP115 [PACKAGE RPACKAGE ENDPACKAGE ENTRY USE-WHEN USE-DEBUG INCLUDE DEFINITIONS END-DEFINITIONS DROP L-UNUSE RENTRY USE USE-DEFER USE-TOTAL IMPORT-PM DEFINITION-MODULE PROGRAM-MODULE END-MODULE INCLUDE-DEFINITIONS PMEXPORT INCLUDE-WHEN IMPORT-WHEN BLOCK ENDBLOCK ZSECTION ZZSECTION ZPACKAGE ZZPACKAGE ZENDPACKAGE ZENDSECTION ENDSECTION] (TYPE VECTOR)>
 760                     <TYPE? TEMP272 <TYPE-CODE ATOM> - PHRASE326 (DEAD-JUMP TEMP272 TEMP115 TEMP114)>
 761                     <LOOP (TEMP272 VALUE) (TEMP115 LENGTH VALUE)>
 762 TAG329
 763                     <NTHUV TEMP115 1 = TEMP274>
 764                     <VEQUAL? TEMP274 TEMP272 + TAG328 (DEAD-JUMP TEMP272 TEMP115)>
 765                     <DEAD TEMP274>
 766                     <RESTUV TEMP115 1 = TEMP115 (TYPE VECTOR)>
 767                     <EMPUV? TEMP115 - TAG329 (DEAD-FALL TEMP272 TEMP115 TEMP114)>
 768                     <JUMP + PHRASE326>
 769 TAG328
 770                     <FRAME '\1aEVAL>
 771                     <PUSH TEMP114>
 772                     <DEAD TEMP114>
 773                     <CALL '\1aEVAL 1>
 774 PHRASE326
 775                     <SET OUTCH13 %<> (TYPE FALSE)>
 776                     <JUMP + AGAIN264>
 777 EXIT258
 778                     <FRAME '\1aPRINC>
 779                     <PUSH "Precompilation loaded">
 780                     <NTHR 'OUTCHAN 2 = TEMP272 (RECORD-TYPE ATOM) (TYPE LBIND)>
 781                     <NTHR TEMP272 1 = STACK (RECORD-TYPE LBIND)>
 782                     <DEAD TEMP272>
 783                     <CALL '\1aPRINC 2>
 784                     <FRAME '\1aPRINC>
 785                     <GVAL 'CRET = STACK>
 786                     <NTHR 'OUTCHAN 2 = TEMP272 (RECORD-TYPE ATOM) (TYPE LBIND)>
 787                     <NTHR TEMP272 1 = STACK (RECORD-TYPE LBIND)>
 788                     <DEAD TEMP272>
 789                     <CALL '\1aPRINC 2>
 790                     <VEQUAL? ANY-MIMAS?37 0 - EXIT342>
 791                     <FRAME '\1aPRINC>
 792                     <PUSH "No compiled functions from PRECOMPILATION used?">
 793                     <NTHR 'OUTCHAN 2 = TEMP274 (RECORD-TYPE ATOM) (TYPE LBIND)>
 794                     <NTHR TEMP274 1 = STACK (RECORD-TYPE LBIND)>
 795                     <DEAD TEMP274>
 796                     <CALL '\1aPRINC 2>
 797                     <FRAME '\1aPRINC>
 798                     <GVAL 'CRET = STACK>
 799                     <NTHR 'OUTCHAN 2 = TEMP274 (RECORD-TYPE ATOM) (TYPE LBIND)>
 800                     <NTHR TEMP274 1 = STACK (RECORD-TYPE LBIND)>
 801                     <DEAD TEMP274>
 802                     <CALL '\1aPRINC 2>
 803 EXIT342
 804                     <FRAME '\1aRESET>
 805                     <PUSH PRECH28>
 806                     <CALL '\1aRESET 1>
 807                     <NTHR 'I/O-TIME 2 = TEMP274 (RECORD-TYPE ATOM) (TYPE LBIND)>
 808                     <NTHR TEMP274 1 = TEMP274 (RECORD-TYPE LBIND)>
 809                     <FRAME '\1aTIME>
 810                     <CALL '\1aTIME 0 = INCH12>
 811                     <SUBF INCH12 TEMP68 = INCH12 (TYPE FLOAT)>
 812                     <DEAD TEMP68>
 813                     <ADDF TEMP274 INCH12 = TEMP274 (TYPE FLOAT)>
 814                     <DEAD INCH12>
 815                     <NTHR 'I/O-TIME 2 = INCH12 (RECORD-TYPE ATOM) (TYPE LBIND)>
 816                     <PUTR INCH12 1 TEMP274 (RECORD-TYPE LBIND)>
 817                     <DEAD INCH12 TEMP274>
 818 PHRASE250
 819                     <NTHR 'ATOM-LIST 2 = TEMP274 (RECORD-TYPE ATOM) (TYPE LBIND)>
 820                     <NTHR TEMP274 1 = TEMP274 (RECORD-TYPE LBIND)>
 821                     <EMPL? TEMP274 - PHRASE358 (TYPE LIST)>
 822                     <DEAD TEMP274>
 823                     <FRAME '\1aPRINC>
 824                     <PUSH "No DEFINEd functions in this file.">
 825                     <NTHR 'OUTCHAN 2 = INCH12 (RECORD-TYPE ATOM) (TYPE LBIND)>
 826                     <NTHR INCH12 1 = STACK (RECORD-TYPE LBIND)>
 827                     <DEAD INCH12>
 828                     <CALL '\1aPRINC 2>
 829                     <FRAME '\1aPRINC>
 830                     <GVAL 'CRET = STACK>
 831                     <NTHR 'OUTCHAN 2 = INCH12 (RECORD-TYPE ATOM) (TYPE LBIND)>
 832                     <NTHR INCH12 1 = STACK (RECORD-TYPE LBIND)>
 833                     <DEAD INCH12>
 834                     <CALL '\1aPRINC 2>
 835                     <NTHR 'ATOM-LIST 2 = INCH12 (RECORD-TYPE ATOM) (TYPE LBIND)>
 836                     <PUTR INCH12 1 () (RECORD-TYPE LBIND)>
 837                     <DEAD INCH12>
 838                     <JUMP + PHRASE371>
 839 PHRASE358
 840                     <FRAME '\1aGETORDER>
 841                     <SET OUTCH13 0 (TYPE FIX)>
 842                     <NTHR 'ATOM-LIST 2 = INCH12 (RECORD-TYPE ATOM) (TYPE LBIND)>
 843                     <NTHR INCH12 1 = INCH12 (RECORD-TYPE LBIND)>
 844                     <NTHR 'ATL 2 = TEMP84 (RECORD-TYPE ATOM) (TYPE LBIND)>
 845                     <PUTR TEMP84 1 INCH12 (RECORD-TYPE LBIND)>
 846                     <DEAD TEMP84>
 847                     <LOOP (INCH12 VALUE) (OUTCH13 VALUE)>
 848 TAG379
 849                     <INTGO>
 850                     <EMPL? INCH12 + TAG372 (DEAD-JUMP INCH12)>
 851                     <NTHL INCH12 1 = STACK>
 852                     <RESTL INCH12 1 = INCH12 (TYPE LIST)>
 853                     <ADD OUTCH13 1 = OUTCH13 (TYPE FIX)>
 854                     <JUMP + TAG379>
 855 TAG372
 856                     <CALL '\1aGETORDER OUTCH13 = OUTCH13>
 857                     <NTHR 'ATOM-LIST 2 = TEMP84 (RECORD-TYPE ATOM) (TYPE LBIND)>
 858                     <PUTR TEMP84 1 OUTCH13 (RECORD-TYPE LBIND)>
 859                     <DEAD TEMP84 OUTCH13>
 860 PHRASE371
 861                     <FRAME '\1aPRINC>
 862                     <PUSH "Functions ordered.">
 863                     <NTHR 'OUTCHAN 2 = TEMP84 (RECORD-TYPE ATOM) (TYPE LBIND)>
 864                     <NTHR TEMP84 1 = STACK (RECORD-TYPE LBIND)>
 865                     <DEAD TEMP84>
 866                     <CALL '\1aPRINC 2>
 867                     <FRAME '\1aPRINC>
 868                     <GVAL 'CRET = STACK>
 869                     <NTHR 'OUTCHAN 2 = TEMP84 (RECORD-TYPE ATOM) (TYPE LBIND)>
 870                     <NTHR TEMP84 1 = STACK (RECORD-TYPE LBIND)>
 871                     <DEAD TEMP84>
 872                     <CALL '\1aPRINC 2>
 873                     <FRAME '\1aLINEARIZE>
 874                     <NTHR 'ATOM-LIST 2 = TEMP84 (RECORD-TYPE ATOM) (TYPE LBIND)>
 875                     <NTHR TEMP84 1 = STACK (RECORD-TYPE LBIND)>
 876                     <DEAD TEMP84>
 877                     <CALL '\1aLINEARIZE 1 = TEMP84>
 878                     <NTHR 'ATOM-LIST 2 = INCH12 (RECORD-TYPE ATOM) (TYPE LBIND)>
 879                     <PUTR INCH12 1 TEMP84 (RECORD-TYPE LBIND)>
 880                     <DEAD INCH12 TEMP84>
 881                     <GEN-LVAL 'REASONABLE = TEMP84>
 882                     <TYPE? TEMP84 <TYPE-CODE FALSE> + PHRASE397>
 883                     <DEAD TEMP84>
 884                     <SET OUTCH13 () (TYPE LIST)>
 885                     <SET INCH12 () (TYPE LIST)>
 886                     <NTHR 'ATOM-LIST 2 = TEMP114 (RECORD-TYPE ATOM) (TYPE LBIND)>
 887                     <NTHR TEMP114 1 = TEMP84 (RECORD-TYPE LBIND)>
 888                     <DEAD TEMP114>
 889                     <LOOP>
 890 MAP401
 891                     <INTGO>
 892                     <EMPL? TEMP84 + MAPAP404 (DEAD-JUMP TEMP84 INCH12)>
 893                     <NTHL TEMP84 1 = TEMP115>
 894                     <NTHR 'ATL 2 = TEMP114 (RECORD-TYPE ATOM) (TYPE LBIND)>
 895                     <NTHR TEMP114 1 = TEMP114 (RECORD-TYPE LBIND)>
 896                     <TYPE TEMP115 = TEMP272>
 897                     <EMPL? TEMP114 + MAP402 (DEAD-JUMP TEMP272 TEMP115 TEMP114)>
 898                     <LOOP (TEMP115 VALUE) (TEMP272 VALUE) (TEMP114 VALUE)>
 899 TAG417
 900                     <NTHL TEMP114 1 = TEMP273>
 901                     <TYPE? TEMP273 TEMP272 - TAG418 (DEAD-JUMP TEMP273)>
 902                     <VEQUAL? TEMP273 TEMP115 + TAG416 (DEAD-JUMP TEMP272 TEMP114)>
 903                     <DEAD TEMP273>
 904 TAG418
 905                     <RESTL TEMP114 1 = TEMP114 (TYPE LIST)>
 906                     <EMPL? TEMP114 - TAG417 (DEAD-FALL TEMP272 TEMP115 TEMP114)>
 907                     <JUMP + MAP402>
 908 TAG416
 909                     <SET TEMP114 TEMP115>
 910                     <DEAD TEMP115>
 911                     <CONS TEMP114 () = TEMP114 (TYPE LIST)>
 912                     <EMPL? OUTCH13 - TAG425 (DEAD-FALL OUTCH13 INCH12)>
 913                     <SET OUTCH13 TEMP114 (TYPE LIST)>
 914                     <JUMP + TAG426>
 915 TAG425
 916                     <PUTREST INCH12 TEMP114>
 917                     <DEAD INCH12>
 918 TAG426
 919                     <SET INCH12 TEMP114 (TYPE LIST)>
 920                     <DEAD TEMP114>
 921 MAP402
 922                     <RESTL TEMP84 1 = TEMP84 (TYPE LIST)>
 923                     <JUMP + MAP401>
 924 MAPAP404
 925                     <NTHR 'ATOM-LIST 2 = TEMP84 (RECORD-TYPE ATOM) (TYPE LBIND)>
 926                     <PUTR TEMP84 1 OUTCH13 (RECORD-TYPE LBIND)>
 927                     <DEAD TEMP84 OUTCH13>
 928 PHRASE397
 929                     <NTHR 'ATOM-LIST 2 = OUTCH13 (RECORD-TYPE ATOM) (TYPE LBIND)>
 930                     <NTHR OUTCH13 1 = INCH12 (RECORD-TYPE LBIND)>
 931                     <DEAD OUTCH13>
 932                     <LOOP>
 933 MAP430
 934                     <INTGO>
 935                     <EMPL? INCH12 + MAPAP433 (DEAD-JUMP INCH12)>
 936                     <GETS 'BIND = TEMP272 (TYPE LBIND)>
 937                     <NTHL INCH12 1 = OUTCH13>
 938                     <BBIND 'AL 'ATOM 'FIX OUTCH13>
 939                     <DEAD OUTCH13>
 940                     <FRAME '\1aFIND-OBL>
 941                     <NTHR 'AL 2 = OUTCH13 (RECORD-TYPE ATOM) (TYPE LBIND)>
 942                     <NTHR OUTCH13 1 = STACK (RECORD-TYPE LBIND)>
 943                     <DEAD OUTCH13>
 944                     <RESTL FILE-DATA23 1 = OUTCH13 (TYPE LIST)>
 945                     <NTHL OUTCH13 1 = STACK (TYPE ATOM)>
 946                     <DEAD OUTCH13>
 947                     <CALL '\1aFIND-OBL 2 = OUTCH13>
 948                     <NTHR 'OBLIST 2 = TEMP84 (RECORD-TYPE ATOM) (TYPE LBIND)>
 949                     <PUTR TEMP84 1 OUTCH13 (RECORD-TYPE LBIND)>
 950                     <DEAD TEMP84 OUTCH13>
 951                     <FRAME '\1aCOMPILE>
 952                     <NTHR 'AL 2 = OUTCH13 (RECORD-TYPE ATOM) (TYPE LBIND)>
 953                     <NTHR OUTCH13 1 = STACK (RECORD-TYPE LBIND)>
 954                     <DEAD OUTCH13>
 955                     <GEN-LVAL 'CAREFUL = STACK>
 956                     <GEN-LVAL 'REASONABLE = STACK>
 957                     <GEN-LVAL 'HAIRY-ANALYSIS = STACK>
 958                     <GEN-LVAL 'DEBUG-COMPILE = STACK>
 959                     <CALL '\1aCOMPILE 5 = OUTCH13>
 960                     <TYPE? OUTCH13 <TYPE-CODE FALSE> + PHRASE450 (DEAD-JUMP OUTCH13)>
 961                     <FRAME '\1aBUFOUT>
 962                     <NTHR 'OUTCHAN 2 = TEMP84 (RECORD-TYPE ATOM) (TYPE LBIND)>
 963                     <NTHR TEMP84 1 = STACK (RECORD-TYPE LBIND)>
 964                     <DEAD TEMP84>
 965                     <CALL '\1aBUFOUT 1>
 966                     <TYPE? NO-TEMP-FILE20 <TYPE-CODE FALSE> - PHRASE469>
 967                     <FRAME '\1aTIME>
 968                     <CALL '\1aTIME 0 = TEMP68>
 969                     <FRAME '\1aACCESS>
 970                     <NTHR 'TEMPCH 2 = TEMP84 (RECORD-TYPE ATOM) (TYPE LBIND)>
 971                     <NTHR TEMP84 1 = STACK (RECORD-TYPE LBIND)>
 972                     <DEAD TEMP84>
 973                     <CALL '\1aACCESS 1 = TEMP114>
 974                     <FRAME '\1aDUMP-CODE>
 975                     <PUSH OUTCH13>
 976                     <DEAD OUTCH13>
 977                     <NTHR 'TEMPCH 2 = TEMP84 (RECORD-TYPE ATOM) (TYPE LBIND)>
 978                     <NTHR TEMP84 1 = STACK (RECORD-TYPE LBIND)>
 979                     <DEAD TEMP84>
 980                     <NTHR 'OBLIST 2 = TEMP84 (RECORD-TYPE ATOM) (TYPE LBIND)>
 981                     <NTHR TEMP84 1 = STACK (RECORD-TYPE LBIND)>
 982                     <DEAD TEMP84>
 983                     <CALL '\1aDUMP-CODE 3>
 984                     <NTHR 'AL 2 = TEMP84 (RECORD-TYPE ATOM) (TYPE LBIND)>
 985                     <NTHR TEMP84 1 = TEMP84 (RECORD-TYPE LBIND)>
 986                     <CONS TEMP84 () = TEMP84>
 987                     <CONS TEMP114 () = OUTCH13>
 988                     <DEAD TEMP114>
 989                     <PUTREST TEMP84 OUTCH13>
 990                     <FRAME '\1aACCESS>
 991                     <NTHR 'TEMPCH 2 = TEMP114 (RECORD-TYPE ATOM) (TYPE LBIND)>
 992                     <NTHR TEMP114 1 = STACK (RECORD-TYPE LBIND)>
 993                     <DEAD TEMP114>
 994                     <CALL '\1aACCESS 1 = TEMP114>
 995                     <CONS TEMP114 () = TEMP114>
 996                     <PUTREST OUTCH13 TEMP114>
 997                     <DEAD OUTCH13>
 998                     <FRAME '\1aHASH>
 999                     <NTHR 'AL 2 = OUTCH13 (RECORD-TYPE ATOM) (TYPE LBIND)>
1000                     <NTHR OUTCH13 1 = OUTCH13 (RECORD-TYPE LBIND)>
1001                     <GVAL OUTCH13 = STACK>
1002                     <DEAD OUTCH13>
1003                     <CALL '\1aHASH 1 = OUTCH13>
1004                     <CONS OUTCH13 () = OUTCH13>
1005                     <PUTREST TEMP114 OUTCH13>
1006                     <DEAD TEMP114 OUTCH13>
1007                     <CHTYPE TEMP84 <TYPE-CODE ACCESS-LIST> = TEMP84>
1008                     <CONS TEMP84 () = TEMP84>
1009                     <PUTREST TEMP84 NEW-INDEX16>
1010                     <DEAD NEW-INDEX16>
1011                     <SET NEW-INDEX16 TEMP84>
1012                     <DEAD TEMP84>
1013                     <NTHR 'I/O-TIME 2 = TEMP84 (RECORD-TYPE ATOM) (TYPE LBIND)>
1014                     <NTHR TEMP84 1 = TEMP84 (RECORD-TYPE LBIND)>
1015                     <FRAME '\1aTIME>
1016                     <CALL '\1aTIME 0 = OUTCH13>
1017                     <SUBF OUTCH13 TEMP68 = OUTCH13 (TYPE FLOAT)>
1018                     <DEAD TEMP68>
1019                     <ADDF TEMP84 OUTCH13 = TEMP84 (TYPE FLOAT)>
1020                     <DEAD OUTCH13>
1021                     <NTHR 'I/O-TIME 2 = OUTCH13 (RECORD-TYPE ATOM) (TYPE LBIND)>
1022                     <PUTR OUTCH13 1 TEMP84 (RECORD-TYPE LBIND)>
1023                     <DEAD OUTCH13 TEMP84>
1024                     <JUMP + PHRASE500>
1025 PHRASE469
1026                     <NTHR 'AL 2 = TEMP84 (RECORD-TYPE ATOM) (TYPE LBIND)>
1027                     <NTHR TEMP84 1 = TEMP84 (RECORD-TYPE LBIND)>
1028                     <CONS TEMP84 () = TEMP84>
1029                     <CONS OUTCH13 () = OUTCH13>
1030                     <PUTREST TEMP84 OUTCH13>
1031                     <FRAME '\1aHASH>
1032                     <NTHR 'AL 2 = TEMP114 (RECORD-TYPE ATOM) (TYPE LBIND)>
1033                     <NTHR TEMP114 1 = TEMP114 (RECORD-TYPE LBIND)>
1034                     <GVAL TEMP114 = STACK>
1035                     <DEAD TEMP114>
1036                     <CALL '\1aHASH 1 = TEMP114>
1037                     <CONS TEMP114 () = TEMP114>
1038                     <PUTREST OUTCH13 TEMP114>
1039                     <DEAD OUTCH13 TEMP114>
1040                     <CONS TEMP84 () = TEMP84>
1041                     <GVAL 'ALL-OUT = TEMP114 (TYPE LIST)>
1042                     <PUTREST TEMP84 TEMP114>
1043                     <DEAD TEMP114>
1044                     <SETG 'ALL-OUT TEMP84>
1045                     <DEAD TEMP84>
1046                     <JUMP + PHRASE500>
1047 PHRASE450
1048                     <SETG 'ERRORS-OCCURED 'T>
1049                     <FRAME '\1aBUFOUT>
1050                     <NTHR 'OUTCHAN 2 = TEMP84 (RECORD-TYPE ATOM) (TYPE LBIND)>
1051                     <NTHR TEMP84 1 = STACK (RECORD-TYPE LBIND)>
1052                     <DEAD TEMP84>
1053                     <CALL '\1aBUFOUT 1>
1054 PHRASE500
1055                     <UNBIND TEMP272>
1056                     <DEAD TEMP272>
1057                     <ADJ -9>
1058                     <RESTL INCH12 1 = INCH12 (TYPE LIST)>
1059                     <JUMP + MAP430>
1060 MAPAP433
1061                     <GVAL 'STATUS-LINE = INCH12>
1062                     <TYPE? INCH12 <TYPE-CODE FALSE> + PHRASE505>
1063                     <DEAD INCH12>
1064                     <FRAME '\1aUPDATE-STATUS>
1065                     <PUSH "Writ">
1066                     <PUSH "None">
1067                     <PUSH %<>>
1068                     <PUSH %<>>
1069                     <CALL '\1aUPDATE-STATUS 4>
1070 PHRASE505
1071                     <TYPE? NO-TEMP-FILE20 <TYPE-CODE FALSE> - PHRASE508 (DEAD-FALL TMP26)>
1072                     <FRAME '\1aCHANNEL-OP>
1073                     <NTHR 'TEMPCH 2 = INCH12 (RECORD-TYPE ATOM) (TYPE LBIND)>
1074                     <NTHR INCH12 1 = STACK (RECORD-TYPE LBIND)>
1075                     <DEAD INCH12>
1076                     <PUSH 'NAME>
1077                     <CALL '\1aCHANNEL-OP 2 = TMP26>
1078                     <FRAME '\1aCLOSE>
1079                     <NTHR 'TEMPCH 2 = INCH12 (RECORD-TYPE ATOM) (TYPE LBIND)>
1080                     <NTHR INCH12 1 = STACK (RECORD-TYPE LBIND)>
1081                     <DEAD INCH12>
1082                     <CALL '\1aCLOSE 1>
1083                     <FRAME '\1aOPEN>
1084                     <PUSH "READ">
1085                     <PUSH TMP26>
1086                     <CALL '\1aOPEN 2 = INCH12>
1087                     <NTHR 'TEMPCH 2 = TEMP273 (RECORD-TYPE ATOM) (TYPE LBIND)>
1088                     <PUTR TEMP273 1 INCH12 (RECORD-TYPE LBIND)>
1089                     <DEAD TEMP273 INCH12>
1090                     <SET INCH12 NEW-INDEX16 (TYPE LIST)>
1091                     <LOOP>
1092 MAP519
1093                     <INTGO>
1094                     <EMPL? INCH12 + MAPAP535 (DEAD-JUMP INCH12)>
1095                     <NTHL INCH12 1 = TEMP68>
1096                     <NTHL TEMP68 1 = TEMP114 (TYPE ATOM)>
1097                     <NTHR TEMP114 1 = OUTCH13 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG526) (DEAD-JUMP OUTCH13)>
1098                     <TYPE? OUTCH13 <TYPE-CODE FALSE> + TAG526 (DEAD-JUMP OUTCH13) (DEAD-FALL TEMP114)>
1099                     <PUTR OUTCH13 1 TEMP68 (RECORD-TYPE GBIND)>
1100                     <DEAD OUTCH13>
1101                     <JUMP + TAG527>
1102 TAG526
1103                     <FRAME '\1aSETG>
1104                     <PUSH TEMP114>
1105                     <DEAD TEMP114>
1106                     <PUSH TEMP68>
1107                     <CALL '\1aSETG 2>
1108 TAG527
1109                     <NTHR 'TEMPCH 2 = TEMP114 (RECORD-TYPE ATOM) (TYPE LBIND)>
1110                     <NTHR TEMP114 1 = TEMP114 (RECORD-TYPE LBIND)>
1111                     <PUTL TEMP68 1 TEMP114>
1112                     <DEAD TEMP68 TEMP114>
1113                     <RESTL INCH12 1 = INCH12 (TYPE LIST)>
1114                     <JUMP + MAP519>
1115 PHRASE508
1116                     <GVAL 'ALL-OUT = OUTCH13 (TYPE LIST)>
1117                     <LOOP>
1118 MAP532
1119                     <INTGO>
1120                     <EMPL? OUTCH13 + MAPAP535 (DEAD-JUMP OUTCH13)>
1121                     <NTHL OUTCH13 1 = TEMP114>
1122                     <NTHL TEMP114 1 = TEMP68 (TYPE ATOM)>
1123                     <RESTL TEMP114 1 = INCH12 (TYPE LIST)>
1124                     <NTHL INCH12 1 = INCH12>
1125                     <CHTYPE INCH12 <TYPE-CODE LIST> = INCH12>
1126                     <RESTL TEMP114 1 = TEMP114 (TYPE LIST)>
1127                     <RESTL TEMP114 1 = TEMP114 (TYPE LIST)>
1128                     <NTHL TEMP114 1 = TEMP114>
1129                     <CONS TEMP114 INCH12 = INCH12>
1130                     <DEAD TEMP114>
1131                     <CHTYPE INCH12 <TYPE-CODE INS-LIST> = INCH12>
1132                     <NTHR TEMP68 1 = TEMP114 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG542) (DEAD-JUMP TEMP114)>
1133                     <TYPE? TEMP114 <TYPE-CODE FALSE> + TAG542 (DEAD-JUMP TEMP114) (DEAD-FALL TEMP68)>
1134                     <PUTR TEMP114 1 INCH12 (RECORD-TYPE GBIND)>
1135                     <DEAD TEMP114 INCH12>
1136                     <JUMP + TAG543>
1137 TAG542
1138                     <FRAME '\1aSETG>
1139                     <PUSH TEMP68>
1140                     <DEAD TEMP68>
1141                     <PUSH INCH12>
1142                     <DEAD INCH12>
1143                     <CALL '\1aSETG 2>
1144 TAG543
1145                     <RESTL OUTCH13 1 = OUTCH13 (TYPE LIST)>
1146                     <JUMP + MAP532>
1147 MAPAP535
1148                     <GEN-ASSIGNED? 'PRECOMPILED - MAPAP557>
1149                     <GEN-LVAL 'PRECOMPILED = TEMP114>
1150                     <TYPE? TEMP114 <TYPE-CODE FALSE> + MAPAP557>
1151                     <DEAD TEMP114>
1152                     <SET INCH12 %<> (TYPE FALSE)>
1153                     <SET TEMP84 PRE-INDEX18 (TYPE LIST)>
1154                     <LOOP>
1155 MAP554
1156                     <INTGO>
1157                     <EMPL? TEMP84 + MAPAP557 (DEAD-JUMP TEMP84 INCH12)>
1158                     <NTHL TEMP84 1 = TEMP68>
1159                     <NTHL TEMP68 1 = OUTCH13>
1160                     <NTHR OUTCH13 1 = TEMP114 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG565) (DEAD-JUMP TEMP114)>
1161                     <TYPE? TEMP114 <TYPE-CODE FALSE> + TAG565 (DEAD-JUMP TEMP114)>
1162                     <NTHR TEMP114 1 = TEMP114 (RECORD-TYPE GBIND)>
1163                     <TYPE? TEMP114 <TYPE-CODE UNBOUND> - TAG580 (DEAD-JUMP INCH12)>
1164                     <DEAD TEMP114>
1165 TAG565
1166                     <FRAME '\1aMEMBER>
1167                     <NTHR PN551 3 = STACK (RECORD-TYPE ATOM)>
1168                     <NTHR OUTCH13 3 = STACK (RECORD-TYPE ATOM)>
1169                     <CALL '\1aMEMBER 2 = TEMP114>
1170                     <TYPE? TEMP114 <TYPE-CODE FALSE> + TAG580 (DEAD-JUMP INCH12)>
1171                     <DEAD TEMP114>
1172                     <SET TEMP115 3 (TYPE FIX)>
1173                     <SET TEMP272 TEMP68>
1174                     <LOOP (TEMP272 VALUE) (TEMP115 VALUE)>
1175 RESTL569
1176                     <INTGO>
1177                     <RESTL TEMP272 1 = TEMP272 (TYPE LIST)>
1178                     <SUB TEMP115 1 = TEMP115 (TYPE FIX)>
1179                     <GRTR? TEMP115 0 + RESTL569 (TYPE FIX) (DEAD-FALL TEMP115)>
1180                     <SET TEMP114 TEMP272>
1181                     <DEAD TEMP272>
1182                     <CHTYPE TEMP114 <TYPE-CODE LIST> = TEMP114>
1183                     <CONS INCH12 () = TEMP272>
1184                     <EMPL? TEMP114 + COMPERR>
1185                     <PUTREST TEMP114 TEMP272>
1186                     <DEAD TEMP114 TEMP272>
1187                     <SET TEMP114 3 (TYPE FIX)>
1188                     <SET TEMP272 TEMP68>
1189                     <LOOP (TEMP272 VALUE) (TEMP114 VALUE)>
1190 RESTL574
1191                     <INTGO>
1192                     <RESTL TEMP272 1 = TEMP272 (TYPE LIST)>
1193                     <SUB TEMP114 1 = TEMP114 (TYPE FIX)>
1194                     <GRTR? TEMP114 0 + RESTL574 (TYPE FIX) (DEAD-FALL TEMP114)>
1195                     <EMPL? TEMP272 + COMPERR>
1196                     <NTHL TEMP272 1 = TEMP272>
1197                     <TYPE? TEMP272 <TYPE-CODE FALSE> - PHRASE572 (DEAD-JUMP INCH12)>
1198                     <DEAD TEMP272>
1199                     <SET TEMP272 3 (TYPE FIX)>
1200                     <SET TEMP114 INCH12>
1201                     <LOOP (TEMP114 VALUE) (TEMP272 VALUE)>
1202 RESTL575
1203                     <INTGO>
1204                     <RESTL TEMP114 1 = TEMP114 (TYPE LIST)>
1205                     <SUB TEMP272 1 = TEMP272 (TYPE FIX)>
1206                     <GRTR? TEMP272 0 + RESTL575 (TYPE FIX) (DEAD-FALL TEMP272)>
1207                     <EMPL? TEMP114 + COMPERR>
1208                     <NTHL TEMP114 1 = TEMP114>
1209                     <TYPE? TEMP114 <TYPE-CODE FALSE> + PHRASE572 (DEAD-JUMP INCH12)>
1210                     <DEAD TEMP114>
1211                     <SET TEMP114 3 (TYPE FIX)>
1212                     <SET TEMP272 INCH12>
1213                     <LOOP (TEMP272 VALUE) (TEMP114 VALUE)>
1214 RESTL576
1215                     <INTGO>
1216                     <RESTL TEMP272 1 = TEMP272 (TYPE LIST)>
1217                     <SUB TEMP114 1 = TEMP114 (TYPE FIX)>
1218                     <GRTR? TEMP114 0 + RESTL576 (TYPE FIX) (DEAD-FALL TEMP114)>
1219                     <EMPL? TEMP272 + COMPERR>
1220                     <NTHL TEMP272 1 = TEMP272>
1221                     <SET TEMP114 3 (TYPE FIX)>
1222                     <SET TEMP115 TEMP68>
1223                     <LOOP (TEMP115 VALUE) (TEMP114 VALUE)>
1224 RESTL577
1225                     <INTGO>
1226                     <RESTL TEMP115 1 = TEMP115 (TYPE LIST)>
1227                     <SUB TEMP114 1 = TEMP114 (TYPE FIX)>
1228                     <GRTR? TEMP114 0 + RESTL577 (TYPE FIX) (DEAD-FALL TEMP114)>
1229                     <EMPL? TEMP115 + COMPERR>
1230                     <PUTL TEMP115 1 TEMP272>
1231                     <DEAD TEMP115 TEMP272>
1232                     <SET TEMP272 3 (TYPE FIX)>
1233                     <SET TEMP115 INCH12>
1234                     <DEAD INCH12>
1235                     <LOOP (TEMP115 VALUE) (TEMP272 VALUE)>
1236 RESTL578
1237                     <INTGO>
1238                     <RESTL TEMP115 1 = TEMP115 (TYPE LIST)>
1239                     <SUB TEMP272 1 = TEMP272 (TYPE FIX)>
1240                     <GRTR? TEMP272 0 + RESTL578 (TYPE FIX) (DEAD-FALL TEMP272)>
1241                     <EMPL? TEMP115 + COMPERR>
1242                     <PUTL TEMP115 1 %<>>
1243                     <DEAD TEMP115>
1244 PHRASE572
1245                     <NTHR PN551 1 = TEMP115 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG579) (DEAD-JUMP TEMP115)>
1246                     <TYPE? TEMP115 <TYPE-CODE FALSE> + TAG579 (DEAD-JUMP TEMP115)>
1247                     <PUTR TEMP115 1 TEMP68 (RECORD-TYPE GBIND)>
1248                     <DEAD TEMP115>
1249                     <JUMP + TAG580>
1250 TAG579
1251                     <FRAME '\1aSETG>
1252                     <PUSH PN551>
1253                     <PUSH TEMP68>
1254                     <CALL '\1aSETG 2>
1255 TAG580
1256                     <NTHR OUTCH13 1 = TEMP115 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG581) (DEAD-JUMP TEMP115)>
1257                     <TYPE? TEMP115 <TYPE-CODE FALSE> + TAG581 (DEAD-JUMP TEMP115) (DEAD-FALL PN551)>
1258                     <PUTR TEMP115 1 TEMP68 (RECORD-TYPE GBIND)>
1259                     <DEAD TEMP115>
1260                     <JUMP + TAG582>
1261 TAG581
1262                     <FRAME '\1aSETG>
1263                     <PUSH OUTCH13>
1264                     <PUSH TEMP68>
1265                     <CALL '\1aSETG 2 (DEAD-FALL PN551)>
1266 TAG582
1267                     <SET PN551 OUTCH13>
1268                     <DEAD OUTCH13>
1269                     <PUTL TEMP68 1 PRECH28>
1270                     <SET INCH12 TEMP68>
1271                     <DEAD TEMP68>
1272                     <RESTL TEMP84 1 = TEMP84 (TYPE LIST)>
1273                     <JUMP + MAP554>
1274 MAPAP557
1275                     <NTHR 'NO-BQ 2 = TEMP84 (RECORD-TYPE ATOM) (TYPE LBIND)>
1276                     <PUTR TEMP84 1 'T (RECORD-TYPE LBIND)>
1277                     <DEAD TEMP84>
1278                     <FRAME '\1aTIME>
1279                     <CALL '\1aTIME 0 = TEMP68>
1280                     <FRAME '\1aMIMC-GROUP-DUMP>
1281                     <PUSH OUTFILE8>
1282                     <RESTL FILE-DATA23 1 = TEMP84 (TYPE LIST)>
1283                     <DEAD FILE-DATA23>
1284                     <NTHL TEMP84 1 = STACK (TYPE ATOM)>
1285                     <DEAD TEMP84>
1286                     <NTHR 'TEMPCH 2 = TEMP84 (RECORD-TYPE ATOM) (TYPE LBIND)>
1287                     <NTHR TEMP84 1 = STACK (RECORD-TYPE LBIND)>
1288                     <DEAD TEMP84>
1289                     <CALL '\1aMIMC-GROUP-DUMP 3>
1290                     <NTHR 'I/O-TIME 2 = TEMP84 (RECORD-TYPE ATOM) (TYPE LBIND)>
1291                     <NTHR TEMP84 1 = TEMP84 (RECORD-TYPE LBIND)>
1292                     <FRAME '\1aTIME>
1293                     <CALL '\1aTIME 0 = TEMP114>
1294                     <SUBF TEMP114 TEMP68 = TEMP114 (TYPE FLOAT)>
1295                     <DEAD TEMP68>
1296                     <ADDF TEMP84 TEMP114 = TEMP84 (TYPE FLOAT)>
1297                     <DEAD TEMP114>
1298                     <NTHR 'I/O-TIME 2 = TEMP114 (RECORD-TYPE ATOM) (TYPE LBIND)>
1299                     <PUTR TEMP114 1 TEMP84 (RECORD-TYPE LBIND)>
1300                     <DEAD TEMP114 TEMP84>
1301                     <NTHR 'NO-BQ 2 = TEMP84 (RECORD-TYPE ATOM) (TYPE LBIND)>
1302                     <PUTR TEMP84 1 %<> (RECORD-TYPE LBIND)>
1303                     <DEAD TEMP84>
1304                     <FRAME '\1aPRINTSTATS>
1305                     <CALL '\1aPRINTSTATS 0>
1306                     <FRAME '\1aOFF>
1307                     <PUSH TEMP42>
1308                     <DEAD TEMP42>
1309                     <CALL '\1aOFF 1>
1310                     <GVAL 'OUTCHAN = TEMP84>
1311                     <SETG 'COMPCHAN TEMP84>
1312                     <DEAD TEMP84>
1313                     <NTHR 'TEMPCH 2 = TEMP84 (RECORD-TYPE ATOM) (TYPE LBIND)>
1314                     <NTHR TEMP84 1 = TEMP84 (RECORD-TYPE LBIND)>
1315                     <TYPE? TEMP84 <TYPE-CODE UNBOUND> + PHRASE599 (DEAD-JUMP OUTFILE8 INFILE7 PN551 TMP26 REAL-NM2-38 ANY-MIMAS?37 REDO31 PRECH28 NO-TEMP-FILE20 PRE-INDEX18 NEW-INDEX16)>
1316                     <DEAD TEMP84>
1317                     <NTHR 'TEMPCH 2 = TEMP84 (RECORD-TYPE ATOM) (TYPE LBIND)>
1318                     <NTHR TEMP84 1 = TEMP84 (RECORD-TYPE LBIND)>
1319                     <TYPE? TEMP84 <TYPE-CODE CHANNEL> - PHRASE599 (DEAD-JUMP OUTFILE8 INFILE7 PN551 TMP26 REAL-NM2-38 ANY-MIMAS?37 REDO31 PRECH28 NO-TEMP-FILE20 PRE-INDEX18 NEW-INDEX16)>
1320                     <DEAD TEMP84>
1321                     <FRAME '\1aCLOSE>
1322                     <NTHR 'TEMPCH 2 = TEMP84 (RECORD-TYPE ATOM) (TYPE LBIND)>
1323                     <NTHR TEMP84 1 = STACK (RECORD-TYPE LBIND)>
1324                     <DEAD TEMP84>
1325                     <CALL '\1aCLOSE 1>
1326                     <FRAME '\1aDELFILE>
1327                     <PUSH TMP26>
1328                     <CALL '\1aDELFILE 1 (DEAD-FALL OUTFILE8 INFILE7 PN551 TMP26 REAL-NM2-38 ANY-MIMAS?37 REDO31 PRECH28 NO-TEMP-FILE20 PRE-INDEX18 NEW-INDEX16)>
1329 PHRASE599
1330                     <SET TEMP114 "Compilation completed. Your patience is godlike." (TYPE STRING)>
1331                     <UNBIND TEMP3>
1332                     <DEAD TEMP3>
1333                     <ADJ -144>
1334                     <RETURN TEMP114>
1335                     <DEAD TEMP114>
1336                     <END \1aFILE-COMPILE>
1337
1338 #WORD *31446251536*
1339 <GFCN \1aPACK-FIX ("VALUE" ANY ANY ANY) PCK4 ATM5>
1340                     <TEMP S6:STRING (WIN7 %<>) PO8 TEMP23>
1341                     <INTGO>
1342                     <FRAME '\1aPNAME>
1343                     <PUSH ATM5>
1344                     <CALL '\1aPNAME 1 = S6>
1345                     <FRAME '\1aLOOKUP>
1346                     <PUSH PCK4>
1347                     <DEAD PCK4>
1348                     <GVAL 'PACKAGE-OBLIST = STACK>
1349                     <CALL '\1aLOOKUP 2 = PO8>
1350                     <TYPE? PO8 <TYPE-CODE FALSE> + BOOL11>
1351                     <GVAL PO8 = PO8>
1352 BOOL11
1353                     <CHTYPE PO8 <TYPE-CODE LIST> = TEMP23>
1354                     <LOOP>
1355 MAP13
1356                     <INTGO>
1357                     <EMPL? TEMP23 + MAPAP16>
1358                     <NTHL TEMP23 1 = WIN7>
1359                     <FRAME '\1aLOOKUP>
1360                     <PUSH S6>
1361                     <PUSH WIN7>
1362                     <DEAD WIN7>
1363                     <CALL '\1aLOOKUP 2 = WIN7>
1364                     <TYPE? WIN7 <TYPE-CODE FALSE> - MAPAP16>
1365                     <RESTL TEMP23 1 = TEMP23 (TYPE LIST)>
1366                     <JUMP + MAP13>
1367 MAPAP16
1368                     <SET TEMP23 WIN7>
1369                     <DEAD WIN7>
1370                     <TYPE? TEMP23 <TYPE-CODE FALSE> - PHRASE31>
1371                     <TYPE? PO8 <TYPE-CODE FALSE> + PHRASE29>
1372                     <FRAME '\1aINSERT>
1373                     <PUSH S6>
1374                     <DEAD S6>
1375                     <NTH1 PO8 = STACK>
1376                     <DEAD PO8>
1377                     <CALL '\1aINSERT 2 = TEMP23>
1378                     <RETURN TEMP23>
1379                     <DEAD TEMP23>
1380 PHRASE29
1381                     <SET TEMP23 ATM5>
1382                     <DEAD ATM5>
1383 PHRASE31
1384                     <RETURN TEMP23>
1385                     <DEAD TEMP23>
1386                     <END \1aPACK-FIX>
1387 #WORD *24456502562*
1388 <GFCN \1aLINEARIZE ("VALUE" LIST LIST) ATOM-LIST4>
1389                     <TEMP L8:LIST LL9:LIST TEMP14>
1390                     <INTGO>
1391                     <CONS 'START ATOM-LIST4 = ATOM-LIST4>
1392                     <SET L8 ATOM-LIST4>
1393                     <RESTL L8 1 = LL9 (TYPE LIST)>
1394                     <LOOP>
1395 AGAIN10
1396                     <INTGO>
1397                     <EMPL? LL9 - PHRASE12 (TYPE LIST)>
1398                     <RESTL ATOM-LIST4 1 = L8 (TYPE LIST)>
1399                     <DEAD ATOM-LIST4>
1400                     <RETURN L8>
1401                     <DEAD L8>
1402 PHRASE12
1403                     <NTHL LL9 1 = TEMP14>
1404                     <TYPE? TEMP14 <TYPE-CODE LIST> - PHRASE13>
1405                     <DEAD TEMP14>
1406                     <NTHL LL9 1 = TEMP14 (TYPE LIST)>
1407                     <EMPL? L8 + COMPERR>
1408                     <PUTREST L8 TEMP14>
1409                     <DEAD TEMP14>
1410                     <EMPL? L8 + COMPERR>
1411                     <LOOP (L8 VALUE)>
1412 TAG15
1413                     <RESTL L8 1 = TEMP14 (TYPE LIST)>
1414                     <EMPL? TEMP14 + TAG16>
1415                     <SET L8 TEMP14>
1416                     <DEAD TEMP14>
1417                     <JUMP + TAG15>
1418 TAG16
1419                     <RESTL LL9 1 = LL9 (TYPE LIST)>
1420                     <EMPL? L8 + COMPERR>
1421                     <PUTREST L8 LL9>
1422                     <JUMP + AGAIN10>
1423 PHRASE13
1424                     <SET L8 LL9>
1425                     <DEAD LL9>
1426                     <RESTL L8 1 = LL9 (TYPE LIST)>
1427                     <JUMP + AGAIN10>
1428                     <END \1aLINEARIZE>
1429 #WORD *22712427353*
1430 <GFCN \1aPRINTSTATS ("VALUE" ANY)>
1431                     <TEMP TEMP7 TEMP8 TSTARCPU4:FIX L31:LIST>
1432                     <INTGO>
1433                     <FRAME '\1aTIME>
1434                     <CALL '\1aTIME 0 = TEMP7>
1435                     <ADDF TEMP7 0.5000000 = TEMP7 (TYPE FLOAT)>
1436                     <FIX TEMP7 = TEMP7 (TYPE FIX)>
1437                     <GEN-LVAL 'STARCPU = TEMP8>
1438                     <SUB TEMP7 TEMP8 = TSTARCPU4 (TYPE FIX)>
1439                     <DEAD TEMP7 TEMP8>
1440                     <FRAME '\1aRTIME>
1441                     <CALL '\1aRTIME 0 = TEMP8>
1442                     <GEN-LVAL 'STARR = TEMP7>
1443                     <SUB TEMP8 TEMP7 = TEMP8 (TYPE FIX)>
1444                     <DEAD TEMP7>
1445                     <NTHR 'REFERENCED 1 = TEMP7 (RECORD-TYPE ATOM) (BRANCH-FALSE + EXIT29)>
1446                     <TYPE? TEMP7 <TYPE-CODE FALSE> + EXIT29>
1447                     <NTHR TEMP7 1 = TEMP7 (RECORD-TYPE GBIND)>
1448                     <TYPE? TEMP7 <TYPE-CODE UNBOUND> + EXIT29>
1449                     <DEAD TEMP7>
1450                     <FRAME '\1aPRINC>
1451                     <GVAL 'CRET = STACK>
1452                     <GEN-LVAL 'OUTCHAN = STACK>
1453                     <CALL '\1aPRINC 2>
1454                     <FRAME '\1aPRINC>
1455                     <PUSH "Called unknown atoms:">
1456                     <GEN-LVAL 'OUTCHAN = STACK>
1457                     <CALL '\1aPRINC 2>
1458                     <FRAME '\1aPRINC>
1459                     <GVAL 'CRET = STACK>
1460                     <GEN-LVAL 'OUTCHAN = STACK>
1461                     <CALL '\1aPRINC 2>
1462                     <GVAL 'REFERENCED = L31>
1463                     <LOOP>
1464 AGAIN32
1465                     <INTGO>
1466                     <EMPL? L31 + EXIT29 (TYPE LIST)>
1467                     <FRAME '\1aPRINC>
1468                     <NTHL L31 1 = STACK>
1469                     <GEN-LVAL 'OUTCHAN = STACK>
1470                     <CALL '\1aPRINC 2>
1471                     <FRAME '\1aPRINC>
1472                     <PUSH ": ">
1473                     <GEN-LVAL 'OUTCHAN = STACK>
1474                     <CALL '\1aPRINC 2>
1475                     <FRAME '\1aPRINC>
1476                     <RESTL L31 1 = TEMP7 (TYPE LIST)>
1477                     <NTHL TEMP7 1 = TEMP7>
1478                     <EQUAL? TEMP7 1 - PHRASE48>
1479                     <DEAD TEMP7>
1480                     <SET TEMP7 "once" (TYPE STRING)>
1481                     <JUMP + PHRASE50>
1482 PHRASE48
1483                     <RESTL L31 1 = TEMP7 (TYPE LIST)>
1484                     <NTHL TEMP7 1 = TEMP7>
1485 PHRASE50
1486                     <PUSH TEMP7>
1487                     <DEAD TEMP7>
1488                     <GEN-LVAL 'OUTCHAN = STACK>
1489                     <CALL '\1aPRINC 2>
1490                     <FRAME '\1aPRINC>
1491                     <RESTL L31 1 = TEMP7 (TYPE LIST)>
1492                     <NTHL TEMP7 1 = TEMP7>
1493                     <EQUAL? TEMP7 1 - PHRASE56>
1494                     <DEAD TEMP7>
1495                     <SET TEMP7 "" (TYPE STRING)>
1496                     <JUMP + PHRASE57>
1497 PHRASE56
1498                     <SET TEMP7 " times" (TYPE STRING)>
1499 PHRASE57
1500                     <PUSH TEMP7>
1501                     <DEAD TEMP7>
1502                     <GEN-LVAL 'OUTCHAN = STACK>
1503                     <CALL '\1aPRINC 2>
1504                     <FRAME '\1aPRINC>
1505                     <GVAL 'CRET = STACK>
1506                     <GEN-LVAL 'OUTCHAN = STACK>
1507                     <CALL '\1aPRINC 2>
1508                     <RESTL L31 1 = L31 (TYPE LIST)>
1509                     <RESTL L31 1 = L31 (TYPE LIST)>
1510                     <JUMP + AGAIN32>
1511 EXIT29
1512                     <LESS? TEMP8 0 - PHRASE65 (TYPE FIX)>
1513                     <ADD TEMP8 86400 = TEMP8 (TYPE FIX)>
1514 PHRASE65
1515                     <FRAME '\1aPRINC>
1516                     <GVAL 'CRET = STACK>
1517                     <GEN-LVAL 'OUTCHAN = STACK>
1518                     <CALL '\1aPRINC 2>
1519                     <FRAME '\1aPRINC>
1520                     <GVAL 'CRET = STACK>
1521                     <GEN-LVAL 'OUTCHAN = STACK>
1522                     <CALL '\1aPRINC 2>
1523                     <FRAME '\1aPRINC>
1524                     <PUSH "Total time used is">
1525                     <GEN-LVAL 'OUTCHAN = STACK>
1526                     <CALL '\1aPRINC 2>
1527                     <FRAME '\1aPRINC>
1528                     <GVAL 'CRET = STACK>
1529                     <GEN-LVAL 'OUTCHAN = STACK>
1530                     <CALL '\1aPRINC 2>
1531                     <FRAME '\1aPRINC>
1532                     <PUSH !\    >
1533                     <GEN-LVAL 'OUTCHAN = STACK>
1534                     <CALL '\1aPRINC 2>
1535                     <FRAME '\1aPRINTIME>
1536                     <PUSH TSTARCPU4>
1537                     <PUSH "CPU time,">
1538                     <CALL '\1aPRINTIME 2>
1539                     <FRAME '\1aPRINC>
1540                     <GVAL 'CRET = STACK>
1541                     <GEN-LVAL 'OUTCHAN = STACK>
1542                     <CALL '\1aPRINC 2>
1543                     <FRAME '\1aPRINC>
1544                     <PUSH !\    >
1545                     <GEN-LVAL 'OUTCHAN = STACK>
1546                     <CALL '\1aPRINC 2>
1547                     <FRAME '\1aPRINTIME>
1548                     <GEN-LVAL 'GCTIME = TEMP7>
1549                     <TYPE? TEMP7 <TYPE-CODE FIX> + TAG107>
1550                     <FIX TEMP7 = TEMP7 (TYPE FIX)>
1551 TAG107
1552                     <PUSH TEMP7>
1553                     <DEAD TEMP7>
1554                     <PUSH "garbage collector CPU time,">
1555                     <CALL '\1aPRINTIME 2>
1556                     <FRAME '\1aPRINC>
1557                     <GVAL 'CRET = STACK>
1558                     <GEN-LVAL 'OUTCHAN = STACK>
1559                     <CALL '\1aPRINC 2>
1560                     <FRAME '\1aPRINC>
1561                     <PUSH !\    >
1562                     <GEN-LVAL 'OUTCHAN = STACK>
1563                     <CALL '\1aPRINC 2>
1564                     <FRAME '\1aPRINTIME>
1565                     <GEN-LVAL 'I/O-TIME = TEMP7>
1566                     <TYPE? TEMP7 <TYPE-CODE FIX> + TAG122>
1567                     <FIX TEMP7 = TEMP7 (TYPE FIX)>
1568 TAG122
1569                     <PUSH TEMP7>
1570                     <DEAD TEMP7>
1571                     <PUSH "I/O time.">
1572                     <CALL '\1aPRINTIME 2>
1573                     <FRAME '\1aPRINC>
1574                     <GVAL 'CRET = STACK>
1575                     <GEN-LVAL 'OUTCHAN = STACK>
1576                     <CALL '\1aPRINC 2>
1577                     <FRAME '\1aPRINC>
1578                     <PUSH !\    >
1579                     <GEN-LVAL 'OUTCHAN = STACK>
1580                     <CALL '\1aPRINC 2>
1581                     <FRAME '\1aPRINTIME>
1582                     <PUSH TEMP8>
1583                     <PUSH "real time.">
1584                     <CALL '\1aPRINTIME 2>
1585                     <FRAME '\1aPRINC>
1586                     <GVAL 'CRET = STACK>
1587                     <GEN-LVAL 'OUTCHAN = STACK>
1588                     <CALL '\1aPRINC 2>
1589                     <FRAME '\1aPRINC>
1590                     <PUSH "CPU utilization is ">
1591                     <GEN-LVAL 'OUTCHAN = STACK>
1592                     <CALL '\1aPRINC 2>
1593                     <FRAME '\1aPRINC>
1594                     <FLOAT TEMP8 = TEMP7 (TYPE FLOAT)>
1595                     <DEAD TEMP8>
1596                     <FLOAT TSTARCPU4 = TEMP8 (TYPE FLOAT)>
1597                     <DEAD TSTARCPU4>
1598                     <DIVF TEMP8 TEMP7 = TEMP7 (TYPE FLOAT)>
1599                     <DEAD TEMP8>
1600                     <MULF TEMP7 100.0 = STACK (TYPE FLOAT)>
1601                     <DEAD TEMP7>
1602                     <GEN-LVAL 'OUTCHAN = STACK>
1603                     <CALL '\1aPRINC 2>
1604                     <FRAME '\1aPRINC>
1605                     <PUSH "%.">
1606                     <GEN-LVAL 'OUTCHAN = STACK>
1607                     <CALL '\1aPRINC 2>
1608                     <FRAME '\1aPRINC>
1609                     <GVAL 'CRET = STACK>
1610                     <GEN-LVAL 'OUTCHAN = STACK>
1611                     <CALL '\1aPRINC 2>
1612                     <FRAME '\1aPRINC>
1613                     <PUSH "Number of garbage collects = ">
1614                     <GEN-LVAL 'OUTCHAN = STACK>
1615                     <CALL '\1aPRINC 2>
1616                     <FRAME '\1aPRINC>
1617                     <GVAL 'GC-COUNT = STACK>
1618                     <GEN-LVAL 'OUTCHAN = STACK>
1619                     <CALL '\1aPRINC 2>
1620                     <FRAME '\1aPRINC>
1621                     <GVAL 'CRET = STACK>
1622                     <GEN-LVAL 'OUTCHAN = STACK>
1623                     <CALL '\1aPRINC 2 = TEMP7>
1624                     <RETURN TEMP7>
1625                     <DEAD TEMP7>
1626                     <END \1aPRINTSTATS>
1627 #WORD *26304261537*
1628 <GFCN \1aPRINTIME ("VALUE" ANY FIX ANY) AMT4 STR5>
1629                     <TEMP TEMP12>
1630                     <INTGO>
1631                     <GRTR? AMT4 3600 - PHRASE7 (TYPE FIX)>
1632                     <FRAME '\1aPRINC>
1633                     <DIV AMT4 3600 = STACK (TYPE FIX)>
1634                     <GEN-LVAL 'OUTCHAN = STACK>
1635                     <CALL '\1aPRINC 2>
1636                     <FRAME '\1aPRINC>
1637                     <PUSH " hours ">
1638                     <GEN-LVAL 'OUTCHAN = STACK>
1639                     <CALL '\1aPRINC 2>
1640                     <MOD AMT4 3600 = AMT4 (TYPE FIX)>
1641 PHRASE7
1642                     <GRTR? AMT4 60 - PHRASE20 (TYPE FIX)>
1643                     <FRAME '\1aPRINC>
1644                     <DIV AMT4 60 = STACK (TYPE FIX)>
1645                     <GEN-LVAL 'OUTCHAN = STACK>
1646                     <CALL '\1aPRINC 2>
1647                     <FRAME '\1aPRINC>
1648                     <PUSH " min. ">
1649                     <GEN-LVAL 'OUTCHAN = STACK>
1650                     <CALL '\1aPRINC 2>
1651                     <MOD AMT4 60 = AMT4 (TYPE FIX)>
1652 PHRASE20
1653                     <FRAME '\1aPRINC>
1654                     <PUSH AMT4>
1655                     <DEAD AMT4>
1656                     <GEN-LVAL 'OUTCHAN = STACK>
1657                     <CALL '\1aPRINC 2>
1658                     <FRAME '\1aPRINC>
1659                     <PUSH " sec. ">
1660                     <GEN-LVAL 'OUTCHAN = STACK>
1661                     <CALL '\1aPRINC 2>
1662                     <FRAME '\1aPRINC>
1663                     <PUSH STR5>
1664                     <DEAD STR5>
1665                     <GEN-LVAL 'OUTCHAN = STACK>
1666                     <CALL '\1aPRINC 2 = TEMP12>
1667                     <RETURN TEMP12>
1668                     <DEAD TEMP12>
1669                     <END \1aPRINTIME>
1670 #WORD *3734566627*
1671 <GFCN \1aRTIME ("VALUE" FIX)>
1672                     <TEMP TEMP6:FIX>
1673                     <INTGO>
1674                     <FRAME '\1aQTIME>
1675                     <FRAME '\1aITIME>
1676                     <CALL '\1aITIME 0 = STACK>
1677                     <CALL '\1aQTIME 1 = TEMP6>
1678                     <RETURN TEMP6>
1679                     <DEAD TEMP6>
1680                     <END \1aRTIME>
1681 #WORD *7271202351*
1682 <GFCN \1aSTATUS ("VALUE" ANY)>
1683                     <TEMP TEMP3:LBIND TEMP9 FL4:FIX AL-L7 TEMP28 TEMP29>
1684                     <INTGO>
1685                     <GETS 'BIND = TEMP3 (TYPE LBIND)>
1686                     <GEN-LVAL 'OUTCHAN = TEMP9>
1687                     <BBIND 'OUTCHAN 'CHANNEL 'FIX TEMP9>
1688                     <DEAD TEMP9>
1689                     <GEN-ASSIGNED? 'ATOM-LIST - PHRASE13>
1690                     <GEN-ASSIGNED? 'AL - PHRASE13>
1691                     <GEN-LVAL 'ATOM-LIST = TEMP9>
1692                     <CHTYPE TEMP9 <TYPE-CODE LIST> = TEMP9>
1693                     <LENL TEMP9 = FL4 (TYPE FIX)>
1694                     <DEAD TEMP9>
1695                     <FRAME '\1aLENGTH>
1696                     <GEN-LVAL 'AL = AL-L7>
1697                     <GEN-LVAL 'ATOM-LIST = TEMP9>
1698                     <TYPE AL-L7 = TEMP28>
1699                     <EMPTY? TEMP9 + TAG20>
1700                     <LOOP (AL-L7 VALUE) (TEMP28 VALUE) (TEMP9 LENGTH VALUE TYPE)>
1701 TAG22
1702                     <NTH1 TEMP9 = TEMP29>
1703                     <TYPE? TEMP29 TEMP28 - TAG23>
1704                     <VEQUAL? TEMP29 AL-L7 + TAG21>
1705                     <DEAD TEMP29>
1706 TAG23
1707                     <REST1 TEMP9 = TEMP9>
1708                     <EMPTY? TEMP9 - TAG22>
1709 TAG20
1710                     <PUSH %<>>
1711                     <JUMP + TAG30>
1712 TAG21
1713                     <PUSH TEMP9>
1714                     <DEAD TEMP9>
1715 TAG30
1716                     <CALL '\1aLENGTH 1 = TEMP9>
1717                     <SUB FL4 TEMP9 = TEMP9 (TYPE FIX)>
1718                     <FRAME '\1aPRINC>
1719                     <GVAL 'CRET = STACK>
1720                     <NTHR 'OUTCHAN 2 = TEMP28 (RECORD-TYPE ATOM) (TYPE LBIND)>
1721                     <NTHR TEMP28 1 = STACK (RECORD-TYPE LBIND)>
1722                     <DEAD TEMP28>
1723                     <CALL '\1aPRINC 2>
1724                     <FRAME '\1aPRINC>
1725                     <PUSH "Running: ">
1726                     <NTHR 'OUTCHAN 2 = TEMP28 (RECORD-TYPE ATOM) (TYPE LBIND)>
1727                     <NTHR TEMP28 1 = STACK (RECORD-TYPE LBIND)>
1728                     <DEAD TEMP28>
1729                     <CALL '\1aPRINC 2>
1730                     <FRAME '\1aPRINC>
1731                     <PUSH TEMP9>
1732                     <NTHR 'OUTCHAN 2 = TEMP28 (RECORD-TYPE ATOM) (TYPE LBIND)>
1733                     <NTHR TEMP28 1 = STACK (RECORD-TYPE LBIND)>
1734                     <DEAD TEMP28>
1735                     <CALL '\1aPRINC 2>
1736                     <FRAME '\1aPRINC>
1737                     <PUSH " finished, working on ">
1738                     <NTHR 'OUTCHAN 2 = TEMP28 (RECORD-TYPE ATOM) (TYPE LBIND)>
1739                     <NTHR TEMP28 1 = STACK (RECORD-TYPE LBIND)>
1740                     <DEAD TEMP28>
1741                     <CALL '\1aPRINC 2>
1742                     <FRAME '\1aPRIN1>
1743                     <PUSH AL-L7>
1744                     <DEAD AL-L7>
1745                     <NTHR 'OUTCHAN 2 = TEMP28 (RECORD-TYPE ATOM) (TYPE LBIND)>
1746                     <NTHR TEMP28 1 = STACK (RECORD-TYPE LBIND)>
1747                     <DEAD TEMP28>
1748                     <CALL '\1aPRIN1 2>
1749                     <FRAME '\1aPRINC>
1750                     <PUSH ", and ">
1751                     <NTHR 'OUTCHAN 2 = TEMP29 (RECORD-TYPE ATOM) (TYPE LBIND)>
1752                     <NTHR TEMP29 1 = STACK (RECORD-TYPE LBIND)>
1753                     <DEAD TEMP29>
1754                     <CALL '\1aPRINC 2>
1755                     <FRAME '\1aPRINC>
1756                     <SUB FL4 TEMP9 = TEMP29 (TYPE FIX)>
1757                     <DEAD FL4 TEMP9>
1758                     <SUB TEMP29 1 = STACK (TYPE FIX)>
1759                     <DEAD TEMP29>
1760                     <NTHR 'OUTCHAN 2 = TEMP29 (RECORD-TYPE ATOM) (TYPE LBIND)>
1761                     <NTHR TEMP29 1 = STACK (RECORD-TYPE LBIND)>
1762                     <DEAD TEMP29>
1763                     <CALL '\1aPRINC 2>
1764                     <FRAME '\1aPRINC>
1765                     <PUSH " to go.">
1766                     <NTHR 'OUTCHAN 2 = TEMP29 (RECORD-TYPE ATOM) (TYPE LBIND)>
1767                     <NTHR TEMP29 1 = STACK (RECORD-TYPE LBIND)>
1768                     <DEAD TEMP29>
1769                     <CALL '\1aPRINC 2>
1770                     <FRAME '\1aPRINTSTATS>
1771                     <CALL '\1aPRINTSTATS 0 = TEMP29>
1772                     <JUMP + EXIT86>
1773 PHRASE13
1774                     <GEN-ASSIGNED? 'STARCPU - PHRASE60>
1775                     <GEN-ASSIGNED? 'STARR - PHRASE60>
1776                     <GEN-ASSIGNED? 'FILE-DATA + PHRASE65>
1777                     <FRAME '\1aPRINC>
1778                     <PUSH "
1779 Files not yet loaded.">
1780                     <NTHR 'OUTCHAN 2 = TEMP9 (RECORD-TYPE ATOM) (TYPE LBIND)>
1781                     <NTHR TEMP9 1 = STACK (RECORD-TYPE LBIND)>
1782                     <DEAD TEMP9>
1783                     <CALL '\1aPRINC 2>
1784                     <FRAME '\1aPRINTSTATS>
1785                     <CALL '\1aPRINTSTATS 0 = TEMP29>
1786                     <JUMP + EXIT86>
1787 PHRASE65
1788                     <GEN-ASSIGNED? 'ATOM-LIST + PHRASE73>
1789                     <FRAME '\1aPRINC>
1790                     <PUSH "
1791 Files loaded, but functions not yet ordered for compilation.">
1792                     <NTHR 'OUTCHAN 2 = TEMP9 (RECORD-TYPE ATOM) (TYPE LBIND)>
1793                     <NTHR TEMP9 1 = STACK (RECORD-TYPE LBIND)>
1794                     <DEAD TEMP9>
1795                     <CALL '\1aPRINC 2>
1796                     <FRAME '\1aPRINTSTATS>
1797                     <CALL '\1aPRINTSTATS 0 = TEMP29>
1798                     <JUMP + EXIT86>
1799 PHRASE73
1800                     <FRAME '\1aPRINC>
1801                     <PUSH "
1802 Almost done, just cleaning up and writing out final file.">
1803                     <NTHR 'OUTCHAN 2 = TEMP9 (RECORD-TYPE ATOM) (TYPE LBIND)>
1804                     <NTHR TEMP9 1 = STACK (RECORD-TYPE LBIND)>
1805                     <DEAD TEMP9>
1806                     <CALL '\1aPRINC 2>
1807                     <FRAME '\1aPRINTSTATS>
1808                     <CALL '\1aPRINTSTATS 0 = TEMP29>
1809                     <JUMP + EXIT86>
1810 PHRASE60
1811                     <FRAME '\1aPRINC>
1812                     <GVAL 'CRET = STACK>
1813                     <NTHR 'OUTCHAN 2 = TEMP9 (RECORD-TYPE ATOM) (TYPE LBIND)>
1814                     <NTHR TEMP9 1 = STACK (RECORD-TYPE LBIND)>
1815                     <DEAD TEMP9>
1816                     <CALL '\1aPRINC 2>
1817                     <FRAME '\1aPRINC>
1818                     <PUSH "I'm not running.">
1819                     <NTHR 'OUTCHAN 2 = TEMP9 (RECORD-TYPE ATOM) (TYPE LBIND)>
1820                     <NTHR TEMP9 1 = STACK (RECORD-TYPE LBIND)>
1821                     <DEAD TEMP9>
1822                     <CALL '\1aPRINC 2>
1823                     <FRAME '\1aPRINC>
1824                     <GVAL 'CRET = STACK>
1825                     <NTHR 'OUTCHAN 2 = TEMP9 (RECORD-TYPE ATOM) (TYPE LBIND)>
1826                     <NTHR TEMP9 1 = STACK (RECORD-TYPE LBIND)>
1827                     <DEAD TEMP9>
1828                     <CALL '\1aPRINC 2 = TEMP29>
1829 EXIT86
1830                     <UNBIND TEMP3>
1831                     <DEAD TEMP3>
1832                     <ADJ -9>
1833                     <RETURN TEMP29>
1834                     <DEAD TEMP29>
1835                     <END \1aSTATUS>\r\r
1836 #WORD *35256670154*
1837 <GFCN \1aCOUNT-GCS ("VALUE" <OR FALSE FLOAT> ANY ANY ANY) IGN4 TI5 WHICH6>
1838                     <TEMP TEMP7>
1839                     <INTGO>
1840                     <GVAL 'GC-COUNT = TEMP7>
1841                     <ADD TEMP7 1 = TEMP7 (TYPE FIX)>
1842                     <SETG 'GC-COUNT TEMP7>
1843                     <DEAD TEMP7>
1844                     <GEN-ASSIGNED? 'GCTIME + TAG9>
1845                     <RETURN %<>>
1846 TAG9
1847                     <GEN-LVAL 'GCTIME = TEMP7>
1848                     <ADDF TEMP7 TI5 = TEMP7 (TYPE FLOAT)>
1849                     <DEAD TI5>
1850                     <GEN-SET 'GCTIME TEMP7>
1851                     <RETURN TEMP7>
1852                     <DEAD TEMP7>
1853                     <END \1aCOUNT-GCS>
1854 <GDECL (GC-COUNT) FIX>
1855
1856 <SETG CRET "
1857 ">
1858
1859 <MANIFEST NOT-COMPILE-TIME>
1860
1861 <SETG TAB <ASCII 9>>
1862
1863 <MANIFEST TAB>
1864
1865 #WORD *32274230237*
1866 <GFCN \1aPRINCTHEM ("VALUE" FORM "ARGS" LIST) A6>
1867                     <OPT-DISPATCH 0 %<> OPT4 OPT5>
1868 OPT4
1869                     <PUSH ()>
1870 OPT5
1871                     <TEMP TEMP9 TEMP19 TEMP17 TEMP16:LIST X21>
1872                     <INTGO>
1873                     <FRAME '\1aFORM>
1874                     <PUSH 'PROG>
1875                     <PUSH ()>
1876                     <SET TEMP9 2 (TYPE FIX)>
1877                     <SET TEMP19 () (TYPE LIST)>
1878                     <SET TEMP17 () (TYPE LIST)>
1879                     <SET TEMP16 A6 (TYPE LIST)>
1880                     <DEAD A6>
1881                     <LOOP>
1882 MAP11
1883                     <INTGO>
1884                     <EMPL? TEMP16 + MAPAP14>
1885                     <NTHL TEMP16 1 = X21>
1886                     <FRAME '\1aFORM>
1887                     <PUSH 'PRINC>
1888                     <PUSH X21>
1889                     <DEAD X21>
1890                     <CALL '\1aFORM 2 = X21>
1891                     <CONS X21 () = X21 (TYPE LIST)>
1892                     <EMPL? TEMP19 - TAG24>
1893                     <SET TEMP19 X21 (TYPE LIST)>
1894                     <JUMP + TAG25>
1895 TAG24
1896                     <PUTREST TEMP17 X21>
1897                     <DEAD TEMP17>
1898 TAG25
1899                     <SET TEMP17 X21 (TYPE LIST)>
1900                     <DEAD X21>
1901                     <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
1902                     <JUMP + MAP11>
1903 MAPAP14
1904                     <LOOP (TEMP19 VALUE) (TEMP9 VALUE)>
1905 TAG26
1906                     <INTGO>
1907                     <EMPL? TEMP19 + TAG7>
1908                     <NTHL TEMP19 1 = STACK>
1909                     <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
1910                     <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
1911                     <JUMP + TAG26>
1912 TAG7
1913                     <CALL '\1aFORM TEMP9 = TEMP9>
1914                     <RETURN TEMP9>
1915                     <DEAD TEMP9>
1916                     <END \1aPRINCTHEM><COND (<AND <GASSIGNED? PRINCTHEM> <NOT <TYPE? ,PRINCTHEM MACRO>>> <SETG PRINCTHEM <CHTYPE (,PRINCTHEM) MACRO>>)>
1917
1918 #WORD *26130077301*
1919 <GFCN \1aFIND-DEFINE-LOAD ("VALUE" <LIST LIST ATOM> ANY STRING) FNM4 NM2-5>
1920                     <TEMP TEMP3:LBIND OLD-FLOAD7 TEMP13:LIST>
1921                     <INTGO>
1922                     <GETS 'BIND = TEMP3 (TYPE LBIND)>
1923                     <BBIND 'NM2 'STRING %<> NM2-5>
1924                     <DEAD NM2-5>
1925                     <FIXBIND>
1926                     <FRAME '\1aGROUP-LOAD>
1927                     <PUSH FNM4>
1928                     <DEAD FNM4>
1929                     <CALL '\1aGROUP-LOAD 1 = OLD-FLOAD7>
1930                     <FRAME '\1aGET-ATOMS>
1931                     <GEN-LVAL OLD-FLOAD7 = STACK>
1932                     <CALL '\1aGET-ATOMS 1 = TEMP13>
1933                     <NTHL TEMP13 1 = TEMP13 (TYPE LIST)>
1934                     <CONS TEMP13 () = TEMP13>
1935                     <CONS OLD-FLOAD7 () = OLD-FLOAD7>
1936                     <PUTREST TEMP13 OLD-FLOAD7>
1937                     <DEAD OLD-FLOAD7>
1938                     <UNBIND TEMP3>
1939                     <DEAD TEMP3>
1940                     <ADJ -9>
1941                     <RETURN TEMP13>
1942                     <DEAD TEMP13>
1943                     <END \1aFIND-DEFINE-LOAD>
1944 #WORD *10253350014*
1945 <GFCN \1aGET-ATOMS ("VALUE" <LIST LIST LIST> LIST) L4>
1946                     <TEMP (L15:LIST ()) (AL6:LIST ()) MCR10 TEMP21 TT9:FORM ATM11>
1947                     <INTGO>
1948                     <SET L15 L4>
1949                     <LOOP>
1950 AGAIN16
1951                     <INTGO>
1952                     <SET MCR10 %<> (TYPE FALSE)>
1953                     <EMPL? L15 - PHRASE18 (TYPE LIST)>
1954                     <CONS L4 () = L15>
1955                     <DEAD L4>
1956                     <CONS AL6 L15 = L15>
1957                     <DEAD AL6>
1958                     <RETURN L15>
1959                     <DEAD L15>
1960 PHRASE18
1961                     <NTHL L15 1 = TEMP21>
1962                     <TYPE? TEMP21 <TYPE-CODE FORM> - BOOL37>
1963                     <DEAD TEMP21>
1964                     <NTHL L15 1 = TT9 (TYPE FORM)>
1965                     <EMPL? TT9 + BOOL37 (TYPE FORM)>
1966                     <NTHL TT9 1 = TEMP21>
1967                     <EQUAL? TEMP21 'DEFINE + TAG25>
1968                     <DEAD TEMP21>
1969                     <SET MCR10 'T (TYPE ATOM)>
1970                     <NTHL TT9 1 = TEMP21>
1971                     <EQUAL? TEMP21 'DEFMAC - BOOL37>
1972                     <DEAD TEMP21>
1973 TAG25
1974                     <VEQUAL? MCR10 0 + PHRASE27>
1975                     <GEN-LVAL 'MACRO-FLUSH = TEMP21>
1976                     <TYPE? TEMP21 <TYPE-CODE FALSE> + PHRASE27>
1977                     <DEAD TEMP21>
1978                     <FRAME '\1aFORM>
1979                     <PUSH 'DEFINE>
1980                     <FRAME '\1aATOM>
1981                     <PUSH "A">
1982                     <CALL '\1aATOM 1 = STACK>
1983                     <PUSH ()>
1984                     <CALL '\1aFORM 3 = TEMP21>
1985                     <PUTL L15 1 TEMP21 (TYPE FORM)>
1986                     <DEAD TEMP21>
1987                     <JUMP + PHRASE33>
1988 PHRASE27
1989                     <FRAME '\1aFORM>
1990                     <NTHL TT9 1 = STACK>
1991                     <RESTL TT9 1 = TEMP21 (TYPE LIST)>
1992                     <NTHL TEMP21 1 = STACK>
1993                     <DEAD TEMP21>
1994                     <PUSH %<>>
1995                     <CALL '\1aFORM 3 = TEMP21>
1996                     <PUTL L15 1 TEMP21 (TYPE FORM)>
1997                     <DEAD TEMP21>
1998 PHRASE33
1999                     <FRAME '\1aGETPROP>
2000                     <RESTL TT9 1 = TEMP21 (TYPE LIST)>
2001                     <NTHL TEMP21 1 = STACK>
2002                     <DEAD TEMP21>
2003                     <PUSH 'VALUE>
2004                     <CFRAME = STACK (TYPE FRAME)>
2005                     <CALL '\1aGETPROP 3 = ATM11>
2006                     <CFRAME = TEMP21 (TYPE FRAME)>
2007                     <EQUAL? TEMP21 ATM11 - TAG36>
2008                     <DEAD TEMP21>
2009                     <RESTL TT9 1 = TEMP21 (TYPE LIST)>
2010                     <DEAD TT9>
2011                     <NTHL TEMP21 1 = ATM11>
2012                     <DEAD TEMP21>
2013 TAG36
2014                     <VEQUAL? MCR10 0 + BOOL38>
2015                     <DEAD MCR10>
2016                     <GEN-LVAL 'MACRO-COMPILE = TEMP21>
2017                     <TYPE? TEMP21 <TYPE-CODE FALSE> + BOOL37>
2018                     <DEAD TEMP21>
2019 BOOL38
2020                     <CONS ATM11 AL6 = AL6>
2021                     <DEAD ATM11>
2022 BOOL37
2023                     <RESTL L15 1 = L15 (TYPE LIST)>
2024                     <JUMP + AGAIN16>
2025                     <END \1aGET-ATOMS>
2026 #WORD *25462422264*
2027 <GFCN \1aNEW-ERROR ("VALUE" ANY ANY ANY "TUPLE" TUPLE) IGN4 FRM5>
2028                     <MAKTUP TUP6:TUPLE TEMP3:LBIND TEMP8 TEMP15 = TUP6>
2029                     <INTGO>
2030                     <GETS 'BIND = TEMP3 (TYPE LBIND)>
2031                     <GVAL 'COMPCHAN = TEMP8>
2032                     <BBIND 'OUTCHAN 'ANY 'FIX TEMP8>
2033                     <DEAD TEMP8>
2034                     <EMPUV? TUP6 + PHRASE10 (TYPE TUPLE)>
2035                     <NTHUV TUP6 1 = TEMP8>
2036                     <EQUAL? TEMP8 'CONTROL-G!-ERRORS - PHRASE10>
2037                     <DEAD TEMP8>
2038                     <FRAME '\1aINT-LEVEL>
2039                     <PUSH 0>
2040                     <CALL '\1aINT-LEVEL 1>
2041                     <FRAME '\1aOFF>
2042                     <GVAL 'ERROR-HANDLER = STACK>
2043                     <CALL '\1aOFF 1>
2044                     <FRAME '\1aERROR>
2045                     <SET TEMP15 0 (TYPE FIX)>
2046                     <SET TEMP8 TUP6>
2047                     <DEAD TUP6>
2048                     <LOOP (TEMP8 VALUE LENGTH) (TEMP15 VALUE)>
2049 TAG16
2050                     <INTGO>
2051                     <EMPUV? TEMP8 + TAG14>
2052                     <NTHUV TEMP8 1 = STACK>
2053                     <RESTUV TEMP8 1 = TEMP8 (TYPE VECTOR)>
2054                     <ADD TEMP15 1 = TEMP15 (TYPE FIX)>
2055                     <JUMP + TAG16>
2056 TAG14
2057                     <CALL '\1aERROR TEMP15>
2058                     <DEAD TEMP15>
2059                     <FRAME '\1aON>
2060                     <GVAL 'ERROR-HANDLER = STACK>
2061                     <CALL '\1aON 1>
2062                     <FRAME '\1aERRET>
2063                     <PUSH 'T>
2064                     <PUSH FRM5>
2065                     <DEAD FRM5>
2066                     <CALL '\1aERRET 2 = TEMP15>
2067                     <JUMP + PHRASE20>
2068 PHRASE10
2069                     <FRAME '\1aPRINC>
2070                     <PUSH "
2071 ***********************************************************
2072 *        ERROR ERROR ERROR ERROR ERROR ERROR ERROR        *
2073 ***********************************************************
2074
2075 to wit,">
2076                     <NTHR 'OUTCHAN 2 = TEMP8 (RECORD-TYPE ATOM) (TYPE LBIND)>
2077                     <NTHR TEMP8 1 = STACK (RECORD-TYPE LBIND)>
2078                     <DEAD TEMP8>
2079                     <CALL '\1aPRINC 2>
2080                     <CHTYPE TUP6 <TYPE-CODE VECTOR> = TEMP8>
2081                     <DEAD TUP6>
2082                     <LOOP>
2083 MAP25
2084                     <INTGO>
2085                     <EMPUV? TEMP8 + MAP24>
2086                     <FRAME '\1aPRINT>
2087                     <NTHUV TEMP8 1 = STACK>
2088                     <NTHR 'OUTCHAN 2 = TEMP15 (RECORD-TYPE ATOM) (TYPE LBIND)>
2089                     <NTHR TEMP15 1 = STACK (RECORD-TYPE LBIND)>
2090                     <DEAD TEMP15>
2091                     <CALL '\1aPRINT 2>
2092                     <RESTUV TEMP8 1 = TEMP8 (TYPE VECTOR)>
2093                     <JUMP + MAP25>
2094 MAP24
2095                     <FRAME '\1aPRINC>
2096                     <PUSH "
2097 Compilation totally aborted.
2098 Status at death was:
2099
2100 ">
2101                     <NTHR 'OUTCHAN 2 = TEMP8 (RECORD-TYPE ATOM) (TYPE LBIND)>
2102                     <NTHR TEMP8 1 = STACK (RECORD-TYPE LBIND)>
2103                     <DEAD TEMP8>
2104                     <CALL '\1aPRINC 2>
2105                     <FRAME '\1aSTATUS>
2106                     <CALL '\1aSTATUS 0 = TEMP15>
2107 PHRASE20
2108                     <UNBIND TEMP3>
2109                     <DEAD TEMP3>
2110                     <ADJ -9>
2111                     <RETURN TEMP15>
2112                     <DEAD TEMP15>
2113                     <END \1aNEW-ERROR>
2114 <SETG COMPCHAN ,OUTCHAN>
2115
2116 <COND (<GASSIGNED? NEW-ERROR> <SETG ERROR-HANDLER <HANDLER "ERROR" ,NEW-ERROR 100>>)>
2117
2118 #WORD *30654337604*
2119 <GFCN \1aPRINSPEC ("VALUE" ANY STRING CHANNEL) STR4 CHAN5>
2120                     <TEMP TEMP11>
2121                     <INTGO>
2122                     <FRAME '\1aPRINC>
2123                     <PUSH STR4>
2124                     <DEAD STR4>
2125                     <GEN-LVAL 'OUTCHAN = STACK>
2126                     <CALL '\1aPRINC 2>
2127                     <FRAME '\1aPRINC>
2128                     <FRAME '\1aCHANNEL-OP>
2129                     <PUSH CHAN5>
2130                     <DEAD CHAN5>
2131                     <PUSH 'NAME>
2132                     <CALL '\1aCHANNEL-OP 2 = STACK>
2133                     <GEN-LVAL 'OUTCHAN = STACK>
2134                     <CALL '\1aPRINC 2>
2135                     <FRAME '\1aPRINC>
2136                     <GVAL 'CRET = STACK>
2137                     <GEN-LVAL 'OUTCHAN = STACK>
2138                     <CALL '\1aPRINC 2 = TEMP11>
2139                     <RETURN TEMP11>
2140                     <DEAD TEMP11>
2141                     <END \1aPRINSPEC>
2142 #WORD *2155306216*
2143 <GFCN \1aDO-AND-CHECK ("VALUE" ANY ANY ANY ANY ANY ANY ANY) STR14 STR25 ATM6 INCH7 OUTCH8 FOOCH9>
2144                     <TEMP TEMP17 NEW-CHAN10 TEMP60:LBIND>
2145                     <INTGO>
2146                     <GEN-ASSIGNED? ATM6 + TAG16>
2147                     <RETURN %<>>
2148 TAG16
2149                     <GEN-LVAL ATM6 = TEMP17>
2150                     <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE58>
2151                     <FRAME '\1aPRINC>
2152                     <PUSH STR14>
2153                     <DEAD STR14>
2154                     <GEN-LVAL 'OUTCHAN = STACK>
2155                     <CALL '\1aPRINC 2>
2156                     <GEN-LVAL ATM6 = TEMP17>
2157                     <TYPE? TEMP17 <TYPE-CODE CHANNEL> - PHRASE26>
2158                     <DEAD TEMP17>
2159                     <GEN-LVAL ATM6 = NEW-CHAN10>
2160                     <DEAD ATM6>
2161                     <RETURN NEW-CHAN10>
2162                     <DEAD NEW-CHAN10>
2163 PHRASE26
2164                     <GEN-LVAL ATM6 = TEMP17>
2165                     <TYPE? TEMP17 <TYPE-CODE STRING> - PHRASE32>
2166                     <DEAD TEMP17>
2167                     <FRAME '\1aFILE-EXISTS?>
2168                     <GEN-LVAL ATM6 = STACK>
2169                     <CALL '\1aFILE-EXISTS? 1 = TEMP17>
2170                     <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE36>
2171                     <DEAD TEMP17>
2172                     <FRAME '\1aDELFILE>
2173                     <GEN-LVAL ATM6 = STACK>
2174                     <CALL '\1aDELFILE 1>
2175 PHRASE36
2176                     <FRAME '\1aOPEN>
2177                     <PUSH "PRINT">
2178                     <GEN-LVAL ATM6 = STACK>
2179                     <DEAD ATM6>
2180                     <CALL '\1aOPEN 2 = NEW-CHAN10>
2181                     <SET TEMP17 NEW-CHAN10>
2182                     <TYPE? TEMP17 <TYPE-CODE FALSE> - PHRASE58>
2183                     <FRAME '\1aCLOSE>
2184                     <PUSH INCH7>
2185                     <DEAD INCH7>
2186                     <CALL '\1aCLOSE 1>
2187                     <FRAME '\1aCLOSE>
2188                     <PUSH OUTCH8>
2189                     <DEAD OUTCH8>
2190                     <CALL '\1aCLOSE 1>
2191                     <TYPE? FOOCH9 <TYPE-CODE FALSE> + BOOL52>
2192                     <FRAME '\1aCLOSE>
2193                     <PUSH FOOCH9>
2194                     <DEAD FOOCH9>
2195                     <CALL '\1aCLOSE 1>
2196 BOOL52
2197                     <FRAME '\1aRETURN>
2198                     <PUSH NEW-CHAN10>
2199                     <DEAD NEW-CHAN10>
2200                     <GEN-LVAL 'FCEX = STACK>
2201                     <CALL '\1aRETURN 2 = TEMP17>
2202                     <RETURN TEMP17>
2203                     <DEAD TEMP17>
2204 PHRASE32
2205                     <GETS 'BIND = TEMP60 (TYPE LBIND)>
2206                     <FRAME '\1aCHANNEL-OP>
2207                     <PUSH INCH7>
2208                     <PUSH 'NM1>
2209                     <CALL '\1aCHANNEL-OP 2 = TEMP17>
2210                     <BBIND 'NM1 'STRING 'FIX TEMP17>
2211                     <DEAD TEMP17>
2212                     <BBIND 'NM2 'STRING 'FIX STR25>
2213                     <DEAD STR25>
2214                     <FRAME '\1aFILE-EXISTS?>
2215                     <PUSH "">
2216                     <CALL '\1aFILE-EXISTS? 1 = TEMP17>
2217                     <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE67>
2218                     <DEAD TEMP17>
2219                     <FRAME '\1aDELFILE>
2220                     <PUSH "">
2221                     <CALL '\1aDELFILE 1>
2222 PHRASE67
2223                     <FRAME '\1aOPEN>
2224                     <PUSH "PRINT">
2225                     <PUSH "">
2226                     <CALL '\1aOPEN 2 = NEW-CHAN10>
2227                     <TYPE? NEW-CHAN10 <TYPE-CODE FALSE> - PHRASE72>
2228                     <FRAME '\1aCLOSE>
2229                     <PUSH INCH7>
2230                     <DEAD INCH7>
2231                     <CALL '\1aCLOSE 1>
2232                     <FRAME '\1aCLOSE>
2233                     <PUSH OUTCH8>
2234                     <DEAD OUTCH8>
2235                     <CALL '\1aCLOSE 1>
2236                     <TYPE? FOOCH9 <TYPE-CODE FALSE> + BOOL75>
2237                     <FRAME '\1aCLOSE>
2238                     <PUSH FOOCH9>
2239                     <DEAD FOOCH9>
2240                     <CALL '\1aCLOSE 1>
2241 BOOL75
2242                     <FRAME '\1aRETURN>
2243                     <PUSH NEW-CHAN10>
2244                     <GEN-LVAL 'FCEX = STACK>
2245                     <CALL '\1aRETURN 2>
2246 PHRASE72
2247                     <UNBIND TEMP60>
2248                     <DEAD TEMP60>
2249                     <ADJ -18>
2250                     <FRAME '\1aPRINSPEC>
2251                     <PUSH "on ">
2252                     <PUSH NEW-CHAN10>
2253                     <CALL '\1aPRINSPEC 2>
2254                     <SET TEMP17 NEW-CHAN10>
2255                     <DEAD NEW-CHAN10>
2256 PHRASE58
2257                     <RETURN TEMP17>
2258                     <DEAD TEMP17>
2259                     <END \1aDO-AND-CHECK>
2260 #WORD *16727036735*
2261 <GFCN \1aFLUSH-COMMENTS ("VALUE" ATOM)>
2262                     <TEMP A4 B5 TEMP15>
2263                     <INTGO>
2264                     <FRAME '\1aASSOCIATIONS>
2265                     <CALL '\1aASSOCIATIONS 0 = A4>
2266                     <LOOP>
2267 AGAIN10
2268                     <INTGO>
2269                     <FRAME '\1aNEXT>
2270                     <PUSH A4>
2271                     <CALL '\1aNEXT 1 = B5>
2272                     <FRAME '\1aINDICATOR>
2273                     <PUSH A4>
2274                     <CALL '\1aINDICATOR 1 = TEMP15>
2275                     <EQUAL? TEMP15 'COMMENT - PHRASE13>
2276                     <DEAD TEMP15>
2277                     <FRAME '\1aPUTPROP>
2278                     <FRAME '\1aITEM>
2279                     <PUSH A4>
2280                     <DEAD A4>
2281                     <CALL '\1aITEM 1 = STACK>
2282                     <PUSH 'COMMENT>
2283                     <CALL '\1aPUTPROP 2>
2284 PHRASE13
2285                     <SET A4 B5>
2286                     <DEAD B5>
2287                     <TYPE? A4 <TYPE-CODE FALSE> - AGAIN10>
2288                     <RETURN 'T>
2289                     <END \1aFLUSH-COMMENTS>
2290 "GETORDER FUNCTIONS"
2291
2292 #WORD *405766511*
2293 <GFCN \1aCHECK ("VALUE" <OR ATOM FALSE> ATOM) ATM4>
2294                     <TEMP TEMP9>
2295                     <INTGO>
2296                     <NTHR ATM4 1 = TEMP9 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG8)>
2297                     <TYPE? TEMP9 <TYPE-CODE FALSE> + TAG8>
2298                     <NTHR TEMP9 1 = TEMP9 (RECORD-TYPE GBIND)>
2299                     <TYPE? TEMP9 <TYPE-CODE UNBOUND> - TAG7>
2300                     <DEAD TEMP9>
2301 TAG8
2302                     <RETURN %<>>
2303 TAG7
2304                     <GVAL ATM4 = TEMP9>
2305                     <TYPE? TEMP9 <TYPE-CODE FUNCTION> - TAG12>
2306                     <DEAD TEMP9>
2307                     <RETURN 'FUNCTION>
2308 TAG12
2309                     <GVAL ATM4 = TEMP9>
2310                     <DEAD ATM4>
2311                     <TYPE? TEMP9 <TYPE-CODE MACRO> - TAG14>
2312                     <DEAD TEMP9>
2313                     <RETURN 'MACRO>
2314 TAG14
2315                     <RETURN %<>>
2316                     <END \1aCHECK>
2317 #WORD *25017426315*
2318 <GFCN \1aPREV ("VALUE" LIST LIST LIST) LS4 SUBLS5>
2319                     <TEMP TEMP6:FIX TEMP7>
2320                     <INTGO>
2321                     <LENL LS4 = TEMP6 (TYPE FIX)>
2322                     <LENL SUBLS5 = TEMP7 (TYPE FIX)>
2323                     <DEAD SUBLS5>
2324                     <SUB TEMP6 TEMP7 = TEMP6 (TYPE FIX)>
2325                     <DEAD TEMP7>
2326                     <SUB TEMP6 1 = TEMP6 (TYPE FIX)>
2327                     <SET TEMP7 LS4>
2328                     <DEAD LS4>
2329                     <GRTR? TEMP6 0 - RESTL9 (TYPE FIX)>
2330                     <LOOP (TEMP7 VALUE) (TEMP6 VALUE)>
2331 RESTL8
2332                     <INTGO>
2333                     <EMPL? TEMP7 + COMPERR>
2334                     <RESTL TEMP7 1 = TEMP7 (TYPE LIST)>
2335                     <SUB TEMP6 1 = TEMP6 (TYPE FIX)>
2336                     <GRTR? TEMP6 0 + RESTL8 (TYPE FIX)>
2337 RESTL9
2338                     <RETURN TEMP7>
2339                     <DEAD TEMP7>
2340                     <END \1aPREV>
2341 #WORD *37137746402*
2342 <GFCN \1aSPLOUTEM ("VALUE" ATOM LIST ATOM) FL4 OU5>
2343                     <TEMP TEMP6 TEMP18>
2344                     <INTGO>
2345                     <LOOP>
2346 AGAIN10
2347                     <INTGO>
2348                     <EMPL? FL4 - PHRASE12 (TYPE LIST)>
2349                     <RETURN 'T>
2350 PHRASE12
2351                     <NTHL FL4 1 = TEMP6>
2352                     <EMPTY? TEMP6 + PHRASE21>
2353                     <LOOP (OU5 VALUE) (TEMP6 LENGTH VALUE TYPE)>
2354 TAG16
2355                     <NTH1 TEMP6 = TEMP18>
2356                     <TYPE? TEMP18 <TYPE-CODE ATOM> - TAG17>
2357                     <VEQUAL? TEMP18 OU5 + TAG15>
2358                     <DEAD TEMP18>
2359 TAG17
2360                     <REST1 TEMP6 = TEMP6>
2361                     <EMPTY? TEMP6 - TAG16>
2362                     <JUMP + PHRASE21>
2363 TAG15
2364                     <NTHL FL4 1 = TEMP18>
2365                     <VEQUAL? TEMP18 TEMP6 - PHRASE20>
2366                     <DEAD TEMP18>
2367                     <RESTL TEMP6 1 = TEMP18 (TYPE LIST)>
2368                     <DEAD TEMP6>
2369                     <CHTYPE TEMP18 <TYPE-CODE LIST> = TEMP18>
2370                     <PUTL FL4 1 TEMP18>
2371                     <DEAD TEMP18>
2372                     <JUMP + PHRASE21>
2373 PHRASE20
2374                     <FRAME '\1aPREV>
2375                     <NTHL FL4 1 = STACK (TYPE LIST)>
2376                     <PUSH TEMP6>
2377                     <CALL '\1aPREV 2 = TEMP18>
2378                     <RESTL TEMP6 1 = TEMP6 (TYPE LIST)>
2379                     <EMPL? TEMP18 + COMPERR>
2380                     <PUTREST TEMP18 TEMP6>
2381                     <DEAD TEMP18 TEMP6>
2382 PHRASE21
2383                     <RESTL FL4 1 = FL4 (TYPE LIST)>
2384                     <RESTL FL4 1 = FL4 (TYPE LIST)>
2385                     <JUMP + AGAIN10>
2386                     <END \1aSPLOUTEM>
2387 #WORD *25162027667*
2388 <GFCN \1aREVERSE ("VALUE" LIST LIST) LS4>
2389                     <TEMP RES8:LIST TEM9:LIST>
2390                     <INTGO>
2391                     <SET RES8 () (TYPE LIST)>
2392                     <LOOP>
2393 AGAIN10
2394                     <INTGO>
2395                     <EMPL? LS4 - PHRASE12 (TYPE LIST)>
2396                     <RETURN RES8>
2397                     <DEAD RES8>
2398 PHRASE12
2399                     <RESTL LS4 1 = TEM9 (TYPE LIST)>
2400                     <PUTREST LS4 RES8>
2401                     <DEAD RES8>
2402                     <SET RES8 LS4>
2403                     <DEAD LS4>
2404                     <SET LS4 TEM9>
2405                     <DEAD TEM9>
2406                     <JUMP + AGAIN10>
2407                     <END \1aREVERSE>
2408 #WORD *36654200202*
2409 <GFCN \1aORDEREM ("VALUE" <LIST [REST <OR ATOM LIST>]> LIST) FLIST4>
2410                     <TEMP RES9:LIST TEMP5 TEMP19 TEMP25 TEMP24:LIST TEMP43:LIST>
2411                     <INTGO>
2412                     <SET RES9 () (TYPE LIST)>
2413                     <LOOP>
2414 AGAIN10
2415                     <INTGO>
2416                     <EMPL? FLIST4 - PHRASE12 (TYPE LIST)>
2417                     <FRAME '\1aREVERSE>
2418                     <PUSH RES9>
2419                     <DEAD RES9>
2420                     <CALL '\1aREVERSE 1 = TEMP5>
2421                     <RETURN TEMP5>
2422                     <DEAD TEMP5>
2423 PHRASE12
2424                     <SET TEMP5 FLIST4>
2425                     <LOOP (TEMP5 VALUE)>
2426 TAG17
2427                     <NTHL TEMP5 1 = TEMP19>
2428                     <TYPE? TEMP19 <TYPE-CODE LIST> - TAG18>
2429                     <VEQUAL? TEMP19 () + TAG16>
2430                     <DEAD TEMP19>
2431 TAG18
2432                     <RESTL TEMP5 1 = TEMP5 (TYPE LIST)>
2433                     <EMPL? TEMP5 - TAG17>
2434                     <JUMP + PHRASE14>
2435 TAG16
2436                     <RESTL TEMP5 1 = TEMP19 (TYPE LIST)>
2437                     <NTHL TEMP19 1 = TEMP19>
2438                     <CONS TEMP19 RES9 = RES9>
2439                     <DEAD TEMP19>
2440                     <VEQUAL? TEMP5 FLIST4 - PHRASE21>
2441                     <RESTL FLIST4 1 = FLIST4 (TYPE LIST)>
2442                     <RESTL FLIST4 1 = FLIST4 (TYPE LIST)>
2443                     <JUMP + PHRASE22>
2444 PHRASE21
2445                     <FRAME '\1aPREV>
2446                     <PUSH FLIST4>
2447                     <PUSH TEMP5>
2448                     <CALL '\1aPREV 2 = TEMP19>
2449                     <RESTL TEMP5 1 = TEMP25 (TYPE LIST)>
2450                     <DEAD TEMP5>
2451                     <RESTL TEMP25 1 = TEMP24 (TYPE LIST)>
2452                     <DEAD TEMP25>
2453                     <EMPL? TEMP19 + COMPERR>
2454                     <PUTREST TEMP19 TEMP24>
2455                     <DEAD TEMP19 TEMP24>
2456 PHRASE22
2457                     <FRAME '\1aSPLOUTEM>
2458                     <PUSH FLIST4>
2459                     <NTHL RES9 1 = STACK (TYPE ATOM)>
2460                     <CALL '\1aSPLOUTEM 2>
2461                     <JUMP + AGAIN10>
2462 PHRASE14
2463                     <SET TEMP24 () (TYPE LIST)>
2464                     <LOOP>
2465 AGAIN31
2466                     <INTGO>
2467                     <SET TEMP5 %<> (TYPE FALSE)>
2468                     <SET TEMP19 FLIST4>
2469                     <LOOP>
2470 AGAIN34
2471                     <INTGO>
2472                     <FRAME '\1aCALLME>
2473                     <RESTL TEMP19 1 = TEMP25 (TYPE LIST)>
2474                     <NTHL TEMP25 1 = STACK (TYPE ATOM)>
2475                     <DEAD TEMP25>
2476                     <PUSH FLIST4>
2477                     <CALL '\1aCALLME 2 = TEMP25>
2478                     <VEQUAL? TEMP25 0 - PHRASE40>
2479                     <DEAD TEMP25>
2480                     <SET TEMP5 'T (TYPE ATOM)>
2481                     <RESTL TEMP19 1 = TEMP25 (TYPE LIST)>
2482                     <NTHL TEMP25 1 = TEMP25>
2483                     <CONS TEMP25 TEMP24 = TEMP24>
2484                     <DEAD TEMP25>
2485                     <VEQUAL? FLIST4 TEMP19 - PHRASE39>
2486                     <RESTL FLIST4 1 = FLIST4 (TYPE LIST)>
2487                     <RESTL FLIST4 1 = FLIST4 (TYPE LIST)>
2488                     <JUMP + PHRASE40>
2489 PHRASE39
2490                     <FRAME '\1aPREV>
2491                     <PUSH FLIST4>
2492                     <PUSH TEMP19>
2493                     <CALL '\1aPREV 2 = TEMP25>
2494                     <RESTL TEMP19 1 = TEMP43 (TYPE LIST)>
2495                     <RESTL TEMP43 1 = TEMP43 (TYPE LIST)>
2496                     <EMPL? TEMP25 + COMPERR>
2497                     <PUTREST TEMP25 TEMP43>
2498                     <DEAD TEMP25 TEMP43>
2499 PHRASE40
2500                     <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
2501                     <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
2502                     <EMPL? TEMP19 - AGAIN34 (TYPE LIST)>
2503                     <VEQUAL? TEMP5 0 - AGAIN31>
2504                     <DEAD TEMP5>
2505                     <EMPL? FLIST4 + PHRASE47 (TYPE LIST)>
2506                     <FRAME '\1aCORDER>
2507                     <PUSH FLIST4>
2508                     <DEAD FLIST4>
2509                     <CALL '\1aCORDER 1 = FLIST4>
2510 PHRASE47
2511                     <FRAME '\1aREVERSE>
2512                     <PUSH RES9>
2513                     <CALL '\1aREVERSE 1 = TEMP5>
2514                     <EMPL? FLIST4 + RESTL58 (TYPE LIST)>
2515                     <EMPL? RES9 - PHRASE53 (TYPE LIST)>
2516                     <SET TEMP5 FLIST4>
2517                     <SET RES9 FLIST4>
2518                     <DEAD FLIST4>
2519                     <EMPL? RES9 + COMPERR>
2520                     <LOOP (RES9 VALUE)>
2521 TAG54
2522                     <RESTL RES9 1 = TEMP25 (TYPE LIST)>
2523                     <EMPL? TEMP25 + RESTL58>
2524                     <SET RES9 TEMP25>
2525                     <DEAD TEMP25>
2526                     <JUMP + TAG54>
2527 PHRASE53
2528                     <PUTREST RES9 FLIST4>
2529                     <LENL FLIST4 = TEMP25 (TYPE FIX)>
2530                     <DEAD FLIST4>
2531                     <GRTR? TEMP25 0 - RESTL58 (TYPE FIX)>
2532                     <LOOP (RES9 VALUE) (TEMP25 VALUE)>
2533 RESTL57
2534                     <INTGO>
2535                     <EMPL? RES9 + COMPERR>
2536                     <RESTL RES9 1 = RES9 (TYPE LIST)>
2537                     <SUB TEMP25 1 = TEMP25 (TYPE FIX)>
2538                     <GRTR? TEMP25 0 + RESTL57 (TYPE FIX)>
2539 RESTL58
2540                     <EMPL? RES9 - PHRASE60 (TYPE LIST)>
2541                     <RETURN TEMP24>
2542                     <DEAD TEMP24>
2543 PHRASE60
2544                     <PUTREST RES9 TEMP24>
2545                     <DEAD RES9 TEMP24>
2546                     <RETURN TEMP5>
2547                     <DEAD TEMP5>
2548                     <END \1aORDEREM>
2549 #WORD *6020446067*
2550 <GFCN \1aCALLME ("VALUE" <OR ATOM !<FALSE>> ATOM <LIST [REST <LIST [REST ATOM]> ATOM]>) ATM4 LST5>
2551                     <TEMP TEMP6 TEMP15:LIST>
2552                     <INTGO>
2553                     <LOOP>
2554 AGAIN9
2555                     <INTGO>
2556                     <EMPL? LST5 - BOOL10 (TYPE LIST)>
2557                     <RETURN %<>>
2558 BOOL10
2559                     <NTHL LST5 1 = TEMP15 (TYPE LIST)>
2560                     <EMPL? TEMP15 + BOOL11>
2561                     <LOOP (ATM4 VALUE) (TEMP15 VALUE)>
2562 TAG13
2563                     <NTHL TEMP15 1 = TEMP6>
2564                     <VEQUAL? TEMP6 ATM4 + TAG12>
2565                     <DEAD TEMP6>
2566                     <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
2567                     <EMPL? TEMP15 - TAG13>
2568                     <JUMP + BOOL11>
2569 TAG12
2570                     <RETURN 'T>
2571 BOOL11
2572                     <RESTL LST5 1 = LST5 (TYPE LIST)>
2573                     <RESTL LST5 1 = LST5 (TYPE LIST)>
2574                     <JUMP + AGAIN9>
2575                     <END \1aCALLME>
2576 #WORD *17602443075*
2577 <GFCN \1aCORDER ("VALUE" LIST <LIST [REST <LIST [REST ATOM]> ATOM]>) LST4>
2578                     <TEMP (RES5:LIST ()) LS8:LIST TEMP12 SHORT18 LST20:LIST>
2579                     <INTGO>
2580                     <SET LS8 LST4>
2581                     <LOOP>
2582 AGAIN9
2583                     <INTGO>
2584                     <EMPL? LS8 + EXIT6 (TYPE LIST)>
2585                     <FRAME '\1aALLREACH>
2586                     <RESTL LS8 1 = TEMP12 (TYPE LIST)>
2587                     <NTHL TEMP12 1 = TEMP12 (TYPE ATOM)>
2588                     <CONS TEMP12 () = STACK>
2589                     <DEAD TEMP12>
2590                     <NTHL LS8 1 = STACK (TYPE LIST)>
2591                     <PUSH LST4>
2592                     <CALL '\1aALLREACH 3 = TEMP12>
2593                     <PUTL LS8 1 TEMP12 (TYPE LIST)>
2594                     <DEAD TEMP12>
2595                     <RESTL LS8 1 = LS8 (TYPE LIST)>
2596                     <RESTL LS8 1 = LS8 (TYPE LIST)>
2597                     <JUMP + AGAIN9>
2598 EXIT6
2599                     <SET LS8 () (TYPE LIST)>
2600                     <LOOP>
2601 AGAIN15
2602                     <INTGO>
2603                     <SET SHORT18 %<CHTYPE <MIN> FIX> (TYPE FIX)>
2604                     <SET LST20 LST4>
2605                     <LOOP>
2606 AGAIN21
2607                     <INTGO>
2608                     <EMPL? LST20 + EXIT16 (TYPE LIST)>
2609                     <NTHL LST20 1 = TEMP12 (TYPE LIST)>
2610                     <LENL TEMP12 = TEMP12 (TYPE FIX)>
2611                     <LESS? TEMP12 SHORT18 - PHRASE24 (TYPE FIX)>
2612                     <SET SHORT18 TEMP12>
2613                     <DEAD TEMP12>
2614                     <SET LS8 LST20>
2615 PHRASE24
2616                     <RESTL LST20 1 = LST20 (TYPE LIST)>
2617                     <RESTL LST20 1 = LST20 (TYPE LIST)>
2618                     <JUMP + AGAIN21>
2619 EXIT16
2620                     <NTHL LS8 1 = TEMP12 (TYPE LIST)>
2621                     <EMPL? TEMP12 + PHRASE27>
2622                     <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
2623                     <EMPL? TEMP12 - PHRASE27>
2624                     <DEAD TEMP12>
2625                     <NTHL LS8 1 = TEMP12 (TYPE LIST)>
2626                     <NTHL TEMP12 1 = TEMP12>
2627                     <JUMP + PHRASE28>
2628 PHRASE27
2629                     <NTHL LS8 1 = TEMP12 (TYPE LIST)>
2630 PHRASE28
2631                     <CONS TEMP12 RES5 = RES5>
2632                     <DEAD TEMP12>
2633                     <NTHL LS8 1 = LST20 (TYPE LIST)>
2634                     <LOOP>
2635 MAP30
2636                     <INTGO>
2637                     <EMPL? LST20 + MAPAP33>
2638                     <NTHL LST20 1 = TEMP12>
2639                     <FRAME '\1aSPLOUTEM>
2640                     <PUSH LST4>
2641                     <PUSH TEMP12>
2642                     <DEAD TEMP12>
2643                     <CALL '\1aSPLOUTEM 2>
2644                     <RESTL LST20 1 = LST20 (TYPE LIST)>
2645                     <JUMP + MAP30>
2646 MAPAP33
2647                     <LOOP>
2648 AGAIN44
2649                     <INTGO>
2650                     <SET TEMP12 LST4>
2651                     <EMPL? TEMP12 + EXIT42>
2652                     <LOOP (TEMP12 VALUE)>
2653 TAG49
2654                     <NTHL TEMP12 1 = SHORT18>
2655                     <TYPE? SHORT18 <TYPE-CODE LIST> - TAG50>
2656                     <VEQUAL? SHORT18 () + TAG48>
2657                     <DEAD SHORT18>
2658 TAG50
2659                     <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
2660                     <EMPL? TEMP12 - TAG49>
2661                     <JUMP + EXIT42>
2662 TAG48
2663                     <VEQUAL? TEMP12 LST4 - PHRASE52>
2664                     <RESTL TEMP12 1 = LST20 (TYPE LIST)>
2665                     <DEAD TEMP12>
2666                     <RESTL LST20 1 = LST4 (TYPE LIST)>
2667                     <DEAD LST20>
2668                     <JUMP + AGAIN44>
2669 PHRASE52
2670                     <FRAME '\1aPREV>
2671                     <PUSH LST4>
2672                     <PUSH TEMP12>
2673                     <CALL '\1aPREV 2 = LST20>
2674                     <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
2675                     <RESTL TEMP12 1 = SHORT18 (TYPE LIST)>
2676                     <DEAD TEMP12>
2677                     <EMPL? LST20 + COMPERR>
2678                     <PUTREST LST20 SHORT18>
2679                     <DEAD LST20 SHORT18>
2680                     <JUMP + AGAIN44>
2681 EXIT42
2682                     <EMPL? LST4 - AGAIN15 (TYPE LIST)>
2683                     <FRAME '\1aREVERSE>
2684                     <PUSH RES5>
2685                     <DEAD RES5>
2686                     <CALL '\1aREVERSE 1 = LST20>
2687                     <RETURN LST20>
2688                     <DEAD LST20>
2689                     <END \1aCORDER>
2690 #WORD *35636616655*
2691 <GFCN \1aALLREACH ("VALUE" <LIST [REST ATOM]> <LIST [REST ATOM]> <LIST [REST ATOM]> <LIST [REST <LIST [REST ATOM]> ATOM]>) LATM4 LST5 MLST6>
2692                     <TEMP TEMP13:LIST ATM18:ATOM TEMP23 TEMP24>
2693                     <INTGO>
2694                     <SET TEMP13 LST5 (TYPE LIST)>
2695                     <DEAD LST5>
2696                     <LOOP>
2697 MAP8
2698                     <INTGO>
2699                     <EMPL? TEMP13 + MAPAP11>
2700                     <NTHL TEMP13 1 = ATM18>
2701                     <SET TEMP23 LATM4>
2702                     <EMPL? TEMP23 + TAG20>
2703                     <LOOP (ATM18 VALUE) (TEMP23 VALUE)>
2704 TAG21
2705                     <NTHL TEMP23 1 = TEMP24>
2706                     <VEQUAL? TEMP24 ATM18 + PHRASE25>
2707                     <DEAD TEMP24>
2708                     <RESTL TEMP23 1 = TEMP23 (TYPE LIST)>
2709                     <EMPL? TEMP23 - TAG21>
2710 TAG20
2711                     <FRAME '\1aALLREACH>
2712                     <CONS ATM18 LATM4 = STACK>
2713                     <DEAD LATM4>
2714                     <SET TEMP23 MLST6>
2715                     <LOOP>
2716 AGAIN29
2717                     <INTGO>
2718                     <RESTL TEMP23 1 = TEMP24 (TYPE LIST)>
2719                     <NTHL TEMP24 1 = TEMP24 (TYPE ATOM)>
2720                     <VEQUAL? TEMP24 ATM18 - BOOL30>
2721                     <DEAD TEMP24>
2722                     <NTHL TEMP23 1 = STACK (TYPE LIST)>
2723                     <DEAD TEMP23>
2724                     <JUMP + EXIT27>
2725 BOOL30
2726                     <RESTL TEMP23 1 = TEMP23 (TYPE LIST)>
2727                     <RESTL TEMP23 1 = TEMP23 (TYPE LIST)>
2728                     <JUMP + AGAIN29>
2729 EXIT27
2730                     <PUSH MLST6>
2731                     <CALL '\1aALLREACH 3 = LATM4>
2732 PHRASE25
2733                     <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
2734                     <JUMP + MAP8>
2735 MAPAP11
2736                     <RETURN LATM4>
2737                     <DEAD LATM4>
2738                     <END \1aALLREACH>
2739 #WORD *35772236430*
2740 <GFCN \1aREMEMIT ("VALUE" <OR ATOM <LIST ATOM [REST ATOM]>> ATOM) ATM4>
2741                     <TEMP TEMP8 TEMP6>
2742                     <INTGO>
2743                     <GEN-LVAL 'FUNC = TEMP8>
2744                     <VEQUAL? TEMP8 ATM4 - TAG7>
2745                     <DEAD TEMP8>
2746                     <RETURN 'T>
2747 TAG7
2748                     <GEN-LVAL 'FUNCL = TEMP6>
2749                     <EMPL? TEMP6 + TAG12>
2750                     <LOOP (ATM4 VALUE) (TEMP6 VALUE)>
2751 TAG13
2752                     <NTHL TEMP6 1 = TEMP8>
2753                     <VEQUAL? TEMP8 ATM4 + BOOL5>
2754                     <DEAD TEMP8>
2755                     <RESTL TEMP6 1 = TEMP6 (TYPE LIST)>
2756                     <EMPL? TEMP6 - TAG13>
2757 TAG12
2758                     <GEN-LVAL 'FUNCL = TEMP8>
2759                     <CONS ATM4 TEMP8 = TEMP6>
2760                     <DEAD ATM4 TEMP8>
2761                     <GEN-SET 'FUNCL TEMP6>
2762 BOOL5
2763                     <RETURN TEMP6>
2764                     <DEAD TEMP6>
2765                     <END \1aREMEMIT>
2766 #WORD *6322165711*
2767 <GFCN \1aFINDREC ("VALUE" ANY ANY) OBJ4>
2768                     <TEMP (FM5 <>) TEMP7 TEMP19>
2769                     <INTGO>
2770                     <MONAD? OBJ4 - TAG8>
2771                     <SET TEMP7 'T (TYPE ATOM)>
2772                     <JUMP + TAG9>
2773 TAG8
2774                     <SET TEMP7 %<> (TYPE FALSE)>
2775 TAG9
2776                     <VEQUAL? TEMP7 0 - MAP56>
2777                     <TYPE? OBJ4 <TYPE-CODE FORM> + TAG12>
2778                     <TYPE? OBJ4 <TYPE-CODE SEGMENT> - PHRASE10>
2779 TAG12
2780                     <CHTYPE OBJ4 <TYPE-CODE FORM> = FM5>
2781                     <EMPL? FM5 + PHRASE10 (TYPE FORM)>
2782                     <NTHL FM5 1 = TEMP7>
2783                     <TYPE? TEMP7 <TYPE-CODE ATOM> - PHRASE14>
2784                     <DEAD TEMP7>
2785                     <NTHL FM5 1 = TEMP7 (TYPE ATOM)>
2786                     <NTHR TEMP7 1 = TEMP7 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE14)>
2787                     <TYPE? TEMP7 <TYPE-CODE FALSE> + PHRASE14>
2788                     <NTHR TEMP7 1 = TEMP7 (RECORD-TYPE GBIND)>
2789                     <TYPE? TEMP7 <TYPE-CODE UNBOUND> + PHRASE14>
2790                     <DEAD TEMP7>
2791                     <NTHL FM5 1 = TEMP7 (TYPE ATOM)>
2792                     <GVAL TEMP7 = TEMP19>
2793                     <DEAD TEMP7>
2794                     <TYPE? TEMP19 <TYPE-CODE FUNCTION> - BOOL18>
2795                     <DEAD TEMP19>
2796                     <FRAME '\1aREMEMIT>
2797                     <NTHL FM5 1 = STACK (TYPE ATOM)>
2798                     <CALL '\1aREMEMIT 1>
2799 BOOL18
2800                     <NTHL FM5 1 = TEMP19 (TYPE ATOM)>
2801                     <GVAL TEMP19 = TEMP7>
2802                     <DEAD TEMP19>
2803                     <TYPE? TEMP7 <TYPE-CODE MACRO> - BOOL21>
2804                     <DEAD TEMP7>
2805                     <NTHL FM5 1 = TEMP7 (TYPE ATOM)>
2806                     <GVAL TEMP7 = TEMP19>
2807                     <DEAD TEMP7>
2808                     <EMPTY? TEMP19 + BOOL21>
2809                     <DEAD TEMP19>
2810                     <FRAME '\1aFINDREC>
2811                     <FRAME '\1aEMACRO>
2812                     <PUSH FM5>
2813                     <CALL '\1aEMACRO 1 = STACK>
2814                     <CALL '\1aFINDREC 1>
2815 BOOL21
2816                     <NTHL FM5 1 = TEMP19 (TYPE ATOM)>
2817                     <GVAL TEMP19 = TEMP7>
2818                     <DEAD TEMP19>
2819                     <GVAL 'MAPF = TEMP19>
2820                     <EQUAL? TEMP7 TEMP19 + BOOL25>
2821                     <DEAD TEMP7 TEMP19>
2822                     <NTHL FM5 1 = TEMP19 (TYPE ATOM)>
2823                     <GVAL TEMP19 = TEMP7>
2824                     <DEAD TEMP19>
2825                     <GVAL 'MAPR = TEMP19>
2826                     <EQUAL? TEMP7 TEMP19 - MAP40>
2827                     <DEAD TEMP7 TEMP19>
2828 BOOL25
2829                     <SET TEMP19 FM5>
2830                     <SET TEMP7 3 (TYPE FIX)>
2831                     <LOOP (TEMP19 VALUE) (TEMP7 VALUE)>
2832 TAG27
2833                     <EMPL? TEMP19 + MAP40>
2834                     <SUB TEMP7 1 = TEMP7 (TYPE FIX)>
2835                     <LESS? TEMP7 0 + TAG28>
2836                     <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
2837                     <JUMP + TAG27>
2838 TAG28
2839                     <RESTL FM5 1 = TEMP19 (TYPE LIST)>
2840                     <NTHL TEMP19 1 = TEMP19>
2841                     <TYPE? TEMP19 <TYPE-CODE FORM> - BOOL31>
2842                     <DEAD TEMP19>
2843                     <FRAME '\1aCHK-GVAL>
2844                     <RESTL FM5 1 = TEMP19 (TYPE LIST)>
2845                     <NTHL TEMP19 1 = STACK (TYPE FORM)>
2846                     <DEAD TEMP19>
2847                     <CALL '\1aCHK-GVAL 1>
2848 BOOL31
2849                     <RESTL FM5 1 = TEMP7 (TYPE LIST)>
2850                     <RESTL TEMP7 1 = TEMP7 (TYPE LIST)>
2851                     <NTHL TEMP7 1 = TEMP7>
2852                     <TYPE? TEMP7 <TYPE-CODE FORM> - MAP40>
2853                     <DEAD TEMP7>
2854                     <FRAME '\1aCHK-GVAL>
2855                     <RESTL FM5 1 = TEMP7 (TYPE LIST)>
2856                     <DEAD FM5>
2857                     <RESTL TEMP7 1 = TEMP7 (TYPE LIST)>
2858                     <NTHL TEMP7 1 = STACK (TYPE FORM)>
2859                     <DEAD TEMP7>
2860                     <CALL '\1aCHK-GVAL 1>
2861                     <JUMP + MAP40>
2862 PHRASE14
2863                     <FRAME '\1aSTRUCTURED?>
2864                     <NTHL OBJ4 1 = STACK>
2865                     <CALL '\1aSTRUCTURED? 1 = TEMP7>
2866                     <TYPE? TEMP7 <TYPE-CODE FALSE> + MAP40>
2867                     <DEAD TEMP7>
2868                     <NTHL OBJ4 1 = TEMP19>
2869                     <LOOP>
2870 MAP41
2871                     <INTGO>
2872                     <EMPTY? TEMP19 + MAP40>
2873                     <FRAME '\1aFINDREC>
2874                     <NTH1 TEMP19 = STACK>
2875                     <CALL '\1aFINDREC 1>
2876                     <REST1 TEMP19 = TEMP19>
2877                     <JUMP + MAP41>
2878 MAP40
2879                     <RESTL OBJ4 1 = FM5 (TYPE LIST)>
2880                     <CHTYPE FM5 <TYPE-CODE LIST> = FM5>
2881                     <EMPL? FM5 - TAG48 (TYPE LIST)>
2882                     <DEAD FM5>
2883                     <RETURN 'T>
2884 TAG48
2885                     <SET TEMP7 %<> (TYPE FALSE)>
2886                     <RESTL OBJ4 1 = FM5 (TYPE LIST)>
2887                     <DEAD OBJ4>
2888                     <CHTYPE FM5 <TYPE-CODE LIST> = FM5>
2889                     <LOOP>
2890 MAP51
2891                     <INTGO>
2892                     <EMPL? FM5 + MAP50>
2893                     <FRAME '\1aFINDREC>
2894                     <NTHL FM5 1 = STACK>
2895                     <CALL '\1aFINDREC 1 = TEMP7>
2896                     <RESTL FM5 1 = FM5 (TYPE LIST)>
2897                     <JUMP + MAP51>
2898 MAP50
2899                     <RETURN TEMP7>
2900                     <DEAD TEMP7>
2901 PHRASE10
2902                     <SET TEMP7 %<> (TYPE FALSE)>
2903                     <SET TEMP19 OBJ4>
2904                     <DEAD OBJ4>
2905                     <LOOP>
2906 MAP57
2907                     <INTGO>
2908                     <EMPTY? TEMP19 + MAP56>
2909                     <FRAME '\1aFINDREC>
2910                     <NTH1 TEMP19 = STACK>
2911                     <CALL '\1aFINDREC 1 = TEMP7>
2912                     <REST1 TEMP19 = TEMP19>
2913                     <JUMP + MAP57>
2914 MAP56
2915                     <RETURN TEMP7>
2916                     <DEAD TEMP7>
2917                     <END \1aFINDREC>
2918 #WORD *2601027766*
2919 <GFCN \1aANONFEMACRO1 ("VALUE" ANY ANY ANY "TUPLE" ANY) OBJ4 FRM5>
2920                     <MAKTUP T6:TUPLE TEMP10 TEMP14:FIX = T6>
2921                     <INTGO>
2922                     <NTHR 'MACACT 1 = TEMP10 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE8)>
2923                     <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE8>
2924                     <NTHR TEMP10 1 = TEMP10 (RECORD-TYPE GBIND)>
2925                     <TYPE? TEMP10 <TYPE-CODE UNBOUND> + PHRASE8>
2926                     <DEAD TEMP10>
2927                     <FRAME '\1aLEGAL?>
2928                     <GVAL 'MACACT = STACK>
2929                     <CALL '\1aLEGAL? 1 = TEMP10>
2930                     <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE8>
2931                     <DEAD TEMP10>
2932                     <FRAME '\1aDISMISS>
2933                     <PUSH OBJ4>
2934                     <DEAD OBJ4>
2935                     <SET TEMP14 1 (TYPE FIX)>
2936                     <SET TEMP10 T6>
2937                     <DEAD T6>
2938                     <LOOP (TEMP10 VALUE LENGTH) (TEMP14 VALUE)>
2939 TAG15
2940                     <INTGO>
2941                     <EMPUV? TEMP10 + TAG13>
2942                     <NTHUV TEMP10 1 = STACK>
2943                     <RESTUV TEMP10 1 = TEMP10 (TYPE VECTOR)>
2944                     <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
2945                     <JUMP + TAG15>
2946 TAG13
2947                     <UBLOCK <TYPE-CODE VECTOR> TEMP14 = STACK>
2948                     <DEAD TEMP14>
2949                     <GVAL 'MACACT = STACK>
2950                     <CALL '\1aDISMISS 2 = TEMP10>
2951                     <RETURN TEMP10>
2952                     <DEAD TEMP10>
2953 PHRASE8
2954                     <FRAME '\1aLISTEN>
2955                     <SET TEMP14 0 (TYPE FIX)>
2956                     <LOOP (T6 VALUE LENGTH) (TEMP14 VALUE)>
2957 TAG21
2958                     <INTGO>
2959                     <EMPUV? T6 + TAG18>
2960                     <NTHUV T6 1 = STACK>
2961                     <RESTUV T6 1 = T6 (TYPE VECTOR)>
2962                     <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
2963                     <JUMP + TAG21>
2964 TAG18
2965                     <CALL '\1aLISTEN TEMP14 = TEMP10>
2966                     <DEAD TEMP14>
2967                     <RETURN TEMP10>
2968                     <DEAD TEMP10>
2969                     <END \1aANONFEMACRO1>
2970                     <GFCN \1aEMACRO ("VALUE" ANY ANY) OBJ5>
2971                     <TEMP EH6 TEM7>
2972                     <INTGO>
2973                     <FRAME '\1aON>
2974                     <FRAME '\1aHANDLER>
2975                     <PUSH "ERROR">
2976                     <GVAL 'ANONFEMACRO1 = STACK>
2977                     <PUSH 100>
2978                     <PUSH OBJ5>
2979                     <CALL '\1aHANDLER 4 = EH6>
2980                     <PUSH EH6>
2981                     <CALL '\1aON 1>
2982                     <ICALL EXIT12 = TEM7>
2983                     <TEMP TEMP13 TEMP16>
2984                     <INTGO>
2985                     <CFRAME = TEMP13>
2986                     <NTHR TEMP13 5 = TEMP13 (RECORD-TYPE FRAME)>
2987                     <CFRAME = TEMP16 (TYPE FRAME)>
2988                     <BBIND 'MACACT 'ANY 'FIX TEMP16>
2989                     <DEAD TEMP16>
2990                     <ACTIVATION>
2991                     <NTHR 'MACACT 2 = TEMP16 (RECORD-TYPE ATOM) (TYPE LBIND)>
2992                     <NTHR TEMP16 1 = TEMP16 (RECORD-TYPE LBIND)>
2993                     <SETG 'MACACT TEMP16>
2994                     <DEAD TEMP16>
2995                     <FRAME '\1aEXPAND>
2996                     <SETLR TEMP16 TEMP13 OBJ5>
2997                     <PUSH TEMP16>
2998                     <DEAD TEMP16>
2999                     <CALL '\1aEXPAND 1 = TEMP16>
3000                     <CONS TEMP16 () = TEMP16>
3001                     <RETURN TEMP16>
3002                     <DEAD TEMP16>
3003 EXIT12
3004                     <TYPE? TEM7 <TYPE-CODE VECTOR> - PHRASE11>
3005                     <FRAME '\1aOFF>
3006                     <PUSH EH6>
3007                     <DEAD EH6>
3008                     <CALL '\1aOFF 1>
3009                     <FRAME '\1aERROR>
3010                     <PUSH 'MACRO-EXPANSION-LOSSAGE!-ERRORS>
3011                     <SET EH6 1 (TYPE FIX)>
3012                     <LOOP (TEM7 VALUE LENGTH) (EH6 VALUE)>
3013 TAG25
3014                     <INTGO>
3015                     <EMPUV? TEM7 + TAG22>
3016                     <NTHUV TEM7 1 = STACK>
3017                     <RESTUV TEM7 1 = TEM7 (TYPE VECTOR)>
3018                     <ADD EH6 1 = EH6 (TYPE FIX)>
3019                     <JUMP + TAG25>
3020 TAG22
3021                     <CALL '\1aERROR EH6 = EH6>
3022                     <RETURN EH6>
3023                     <DEAD EH6>
3024 PHRASE11
3025                     <FRAME '\1aOFF>
3026                     <PUSH EH6>
3027                     <DEAD EH6>
3028                     <CALL '\1aOFF 1>
3029                     <NTH1 TEM7 = EH6>
3030                     <DEAD TEM7>
3031                     <RETURN EH6>
3032                     <DEAD EH6>
3033                     <END \1aEMACRO>\r\r
3034 #WORD *35650634303*
3035 <GFCN \1aCHK-GVAL ("VALUE" <OR ATOM FALSE <LIST ATOM [REST ATOM]>> FORM) FM4>
3036                     <TEMP TEMP9 TEMP13>
3037                     <INTGO>
3038                     <EMPL? FM4 + TAG8>
3039                     <RESTL FM4 1 = TEMP9 (TYPE LIST)>
3040                     <EMPL? TEMP9 + TAG8>
3041                     <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
3042                     <EMPL? TEMP9 + TAG7>
3043                     <DEAD TEMP9>
3044 TAG8
3045                     <RETURN %<>>
3046 TAG7
3047                     <NTHL FM4 1 = TEMP9>
3048                     <TYPE? TEMP9 <TYPE-CODE ATOM> + TAG10>
3049                     <DEAD TEMP9>
3050                     <RETURN %<>>
3051 TAG10
3052                     <NTHL FM4 1 = TEMP9 (TYPE ATOM)>
3053                     <GVAL TEMP9 = TEMP13>
3054                     <DEAD TEMP9>
3055                     <GVAL 'GVAL = TEMP9>
3056                     <EQUAL? TEMP13 TEMP9 + TAG12>
3057                     <DEAD TEMP13 TEMP9>
3058                     <RETURN %<>>
3059 TAG12
3060                     <RESTL FM4 1 = TEMP9 (TYPE LIST)>
3061                     <NTHL TEMP9 1 = TEMP9>
3062                     <TYPE? TEMP9 <TYPE-CODE ATOM> + TAG14>
3063                     <DEAD TEMP9>
3064                     <RETURN %<>>
3065 TAG14
3066                     <RESTL FM4 1 = TEMP9 (TYPE LIST)>
3067                     <NTHL TEMP9 1 = TEMP9 (TYPE ATOM)>
3068                     <NTHR TEMP9 1 = TEMP13 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG17)>
3069                     <DEAD TEMP9>
3070                     <TYPE? TEMP13 <TYPE-CODE FALSE> + TAG17>
3071                     <NTHR TEMP13 1 = TEMP13 (RECORD-TYPE GBIND)>
3072                     <TYPE? TEMP13 <TYPE-CODE UNBOUND> - TAG16>
3073                     <DEAD TEMP13>
3074 TAG17
3075                     <RETURN %<>>
3076 TAG16
3077                     <RESTL FM4 1 = TEMP13 (TYPE LIST)>
3078                     <NTHL TEMP13 1 = TEMP13 (TYPE ATOM)>
3079                     <GVAL TEMP13 = TEMP9>
3080                     <DEAD TEMP13>
3081                     <TYPE? TEMP9 <TYPE-CODE FUNCTION> + TAG24>
3082                     <DEAD TEMP9>
3083                     <RESTL FM4 1 = TEMP9 (TYPE LIST)>
3084                     <NTHL TEMP9 1 = TEMP9 (TYPE ATOM)>
3085                     <GVAL TEMP9 = TEMP13>
3086                     <DEAD TEMP9>
3087                     <TYPE? TEMP13 <TYPE-CODE MACRO> + TAG21>
3088                     <DEAD TEMP13>
3089                     <RETURN %<>>
3090 TAG21
3091                     <RESTL FM4 1 = TEMP13 (TYPE LIST)>
3092                     <NTHL TEMP13 1 = TEMP13 (TYPE ATOM)>
3093                     <GVAL TEMP13 = TEMP9>
3094                     <DEAD TEMP13>
3095                     <EMPTY? TEMP9 - TAG23>
3096                     <DEAD TEMP9>
3097                     <RETURN %<>>
3098 TAG23
3099                     <RESTL FM4 1 = TEMP9 (TYPE LIST)>
3100                     <NTHL TEMP9 1 = TEMP9 (TYPE ATOM)>
3101                     <GVAL TEMP9 = TEMP13>
3102                     <DEAD TEMP9>
3103                     <NTH1 TEMP13 = TEMP13>
3104                     <TYPE? TEMP13 <TYPE-CODE FUNCTION> + TAG24>
3105                     <DEAD TEMP13>
3106                     <RETURN %<>>
3107 TAG24
3108                     <FRAME '\1aREMEMIT>
3109                     <RESTL FM4 1 = TEMP13 (TYPE LIST)>
3110                     <DEAD FM4>
3111                     <NTHL TEMP13 1 = STACK (TYPE ATOM)>
3112                     <DEAD TEMP13>
3113                     <CALL '\1aREMEMIT 1 = TEMP9>
3114                     <RETURN TEMP9>
3115                     <DEAD TEMP9>
3116                     <END \1aCHK-GVAL>\r\r
3117 #WORD *31070033755*
3118 <GFCN \1aFINDEM ("VALUE" <LIST [REST ATOM]> ATOM) FUNC4>
3119                     <TEMP TEMP3:LBIND TEMP7>
3120                     <INTGO>
3121                     <GETS 'BIND = TEMP3 (TYPE LBIND)>
3122                     <BBIND 'FUNC 'ATOM %<> FUNC4>
3123                     <DEAD FUNC4>
3124                     <FIXBIND>
3125                     <BBIND 'FUNCL <LIST [REST ATOM]> 'FIX ()>
3126                     <FRAME '\1aFINDREC>
3127                     <NTHR 'FUNC 2 = TEMP7 (RECORD-TYPE ATOM) (TYPE LBIND)>
3128                     <NTHR TEMP7 1 = TEMP7 (RECORD-TYPE LBIND)>
3129                     <GVAL TEMP7 = STACK>
3130                     <DEAD TEMP7>
3131                     <CALL '\1aFINDREC 1>
3132                     <NTHR 'FUNCL 2 = TEMP7 (RECORD-TYPE ATOM) (TYPE LBIND)>
3133                     <NTHR TEMP7 1 = TEMP7 (RECORD-TYPE LBIND)>
3134                     <UNBIND TEMP3>
3135                     <DEAD TEMP3>
3136                     <ADJ -18>
3137                     <RETURN TEMP7>
3138                     <DEAD TEMP7>
3139                     <END \1aFINDEM>
3140 #WORD *37321320006*
3141 <GFCN \1aFINDEMALL ("VALUE" <LIST <LIST [REST ATOM]> ATOM> <<PRIMTYPE VECTOR> [REST ATOM]>) ATM4>
3142                     <TEMP TD8:LIST TEMP12:LIST TEMP13 CURDO16:LIST TEMP27 TEMP28>
3143                     <INTGO>
3144                     <SET TD8 () (TYPE LIST)>
3145                     <LOOP>
3146 AGAIN9
3147                     <INTGO>
3148                     <EMPUV? ATM4 + EXIT6>
3149                     <FRAME '\1aFINDEM>
3150                     <NTHUV ATM4 1 = STACK (TYPE ATOM)>
3151                     <CALL '\1aFINDEM 1 = TEMP12>
3152                     <CONS TEMP12 () = TEMP12>
3153                     <NTHUV ATM4 1 = TEMP13 (TYPE ATOM)>
3154                     <CONS TEMP13 () = TEMP13>
3155                     <PUTREST TEMP12 TEMP13>
3156                     <PUTREST TEMP13 TD8>
3157                     <DEAD TEMP13 TD8>
3158                     <SET TD8 TEMP12>
3159                     <DEAD TEMP12>
3160                     <RESTUV ATM4 1 = ATM4 (TYPE VECTOR)>
3161                     <CHTYPE ATM4 <TYPE-CODE VECTOR> = ATM4>
3162                     <JUMP + AGAIN9>
3163 EXIT6
3164                     <SET TEMP12 TD8>
3165                     <NTHL TD8 1 = CURDO16 (TYPE LIST)>
3166                     <LOOP>
3167 AGAIN17
3168                     <INTGO>
3169                     <EMPL? CURDO16 - PHRASE22 (TYPE LIST)>
3170                     <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
3171                     <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
3172                     <EMPL? TEMP12 - PHRASE21 (TYPE LIST)>
3173                     <RETURN TD8>
3174                     <DEAD TD8>
3175 PHRASE21
3176                     <NTHL TEMP12 1 = CURDO16 (TYPE LIST)>
3177                     <JUMP + AGAIN17>
3178 PHRASE22
3179                     <NTHL CURDO16 1 = TEMP13 (TYPE ATOM)>
3180                     <SET TEMP27 TD8>
3181                     <LOOP (TEMP13 VALUE) (TEMP27 VALUE)>
3182 TAG24
3183                     <NTHL TEMP27 1 = TEMP28>
3184                     <TYPE? TEMP28 <TYPE-CODE ATOM> - TAG25>
3185                     <VEQUAL? TEMP28 TEMP13 + PHRASE29>
3186                     <DEAD TEMP28>
3187 TAG25
3188                     <RESTL TEMP27 1 = TEMP27 (TYPE LIST)>
3189                     <EMPL? TEMP27 - TAG24>
3190                     <SET TEMP27 TEMP12>
3191                     <EMPL? TEMP27 + COMPERR>
3192                     <LOOP (TEMP27 VALUE)>
3193 TAG30
3194                     <RESTL TEMP27 1 = TEMP13 (TYPE LIST)>
3195                     <EMPL? TEMP13 + TAG31>
3196                     <SET TEMP27 TEMP13>
3197                     <DEAD TEMP13>
3198                     <JUMP + TAG30>
3199 TAG31
3200                     <FRAME '\1aFINDEM>
3201                     <NTHL CURDO16 1 = STACK (TYPE ATOM)>
3202                     <CALL '\1aFINDEM 1 = TEMP13>
3203                     <CONS TEMP13 () = TEMP13>
3204                     <NTHL CURDO16 1 = TEMP28 (TYPE ATOM)>
3205                     <CONS TEMP28 () = TEMP28>
3206                     <PUTREST TEMP13 TEMP28>
3207                     <DEAD TEMP28>
3208                     <EMPL? TEMP27 + COMPERR>
3209                     <PUTREST TEMP27 TEMP13>
3210                     <DEAD TEMP27 TEMP13>
3211 PHRASE29
3212                     <RESTL CURDO16 1 = CURDO16 (TYPE LIST)>
3213                     <JUMP + AGAIN17>
3214                     <END \1aFINDEMALL>
3215 #WORD *36157035003*
3216 <GFCN \1aGETORDER ("VALUE" ANY "TUPLE" <<PRIMTYPE VECTOR> [REST ATOM]>)>
3217                     <MAKTUP ATMS4:TUPLE TEMP13 TEMP14 TEMP12 TEMP17 = ATMS4>
3218                     <INTGO>
3219                     <SET TEMP13 () (TYPE LIST)>
3220                     <SET TEMP14 () (TYPE LIST)>
3221                     <CHTYPE ATMS4 <TYPE-CODE VECTOR> = TEMP12>
3222                     <LOOP>
3223 MAP11
3224                     <INTGO>
3225                     <EMPUV? TEMP12 + MAP10>
3226                     <FRAME '\1aCHECK>
3227                     <NTHUV TEMP12 1 = STACK>
3228                     <CALL '\1aCHECK 1 = TEMP17>
3229                     <CONS TEMP17 () = TEMP17 (TYPE LIST)>
3230                     <EMPL? TEMP13 - TAG18>
3231                     <SET TEMP13 TEMP17 (TYPE LIST)>
3232                     <JUMP + TAG19>
3233 TAG18
3234                     <PUTREST TEMP14 TEMP17>
3235                     <DEAD TEMP14>
3236 TAG19
3237                     <SET TEMP14 TEMP17 (TYPE LIST)>
3238                     <DEAD TEMP17>
3239                     <RESTUV TEMP12 1 = TEMP12 (TYPE VECTOR)>
3240                     <JUMP + MAP11>
3241 MAP10
3242                     <SET TEMP12 TEMP13>
3243                     <DEAD TEMP13>
3244                     <EMPL? TEMP12 + TAG7>
3245                     <LOOP (TEMP12 VALUE)>
3246 TAG8
3247                     <NTHL TEMP12 1 = TEMP17>
3248                     <TYPE? TEMP17 <TYPE-CODE FALSE> - TAG9>
3249                     <VEQUAL? TEMP17 %<> + PHRASE6>
3250                     <DEAD TEMP17>
3251 TAG9
3252                     <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
3253                     <EMPL? TEMP12 - TAG8>
3254 TAG7
3255                     <FRAME '\1aORDEREM>
3256                     <FRAME '\1aFINDEMALL>
3257                     <PUSH ATMS4>
3258                     <DEAD ATMS4>
3259                     <CALL '\1aFINDEMALL 1 = STACK>
3260                     <CALL '\1aORDEREM 1 = TEMP12>
3261                     <RETURN TEMP12>
3262                     <DEAD TEMP12>
3263 PHRASE6
3264                     <FRAME '\1aERROR>
3265                     <PUSH 'BAD-ARG>
3266                     <PUSH 'GETORDER>
3267                     <CALL '\1aERROR 2 = TEMP12>
3268                     <RETURN TEMP12>
3269                     <DEAD TEMP12>
3270                     <END \1aGETORDER>
3271 #WORD *22767316521*
3272 <GFCN \1aFIND-OBL ("VALUE" ANY ATOM ANY) NM4 GRP5>
3273                     <TEMP TEMP8 RGRP6:LIST PTR24 IT25 TEMP29>
3274                     <INTGO>
3275                     <GEN-LVAL GRP5 = RGRP6>
3276                     <DEAD GRP5>
3277                     <GEN-LVAL 'OBLIST = TEMP8>
3278                     <LOOP>
3279 MAP14
3280                     <INTGO>
3281                     <EMPL? RGRP6 + MAPAP17>
3282                     <SET PTR24 RGRP6>
3283                     <NTHL PTR24 1 = IT25>
3284                     <FRAME '\1aGETPROP>
3285                     <PUSH PTR24>
3286                     <DEAD PTR24>
3287                     <PUSH 'BLOCK>
3288                     <CFRAME = STACK (TYPE FRAME)>
3289                     <CALL '\1aGETPROP 3 = PTR24>
3290                     <CFRAME = TEMP29 (TYPE FRAME)>
3291                     <EQUAL? TEMP29 PTR24 - TAG30>
3292                     <DEAD TEMP29>
3293                     <SET PTR24 TEMP8>
3294                     <DEAD TEMP8>
3295 TAG30
3296                     <SET TEMP8 PTR24>
3297                     <DEAD PTR24>
3298                     <TYPE? IT25 <TYPE-CODE FORM> - PHRASE32>
3299                     <EMPL? IT25 + PHRASE32 (TYPE FORM)>
3300                     <NTHL IT25 1 = PTR24>
3301                     <EQUAL? PTR24 'DEFINE + BOOL34>
3302                     <EQUAL? PTR24 'DEFMAC - PHRASE32>
3303                     <DEAD PTR24>
3304 BOOL34
3305                     <FRAME '\1aGETPROP>
3306                     <RESTL IT25 1 = PTR24 (TYPE LIST)>
3307                     <NTHL PTR24 1 = STACK>
3308                     <DEAD PTR24>
3309                     <PUSH 'VALUE>
3310                     <CFRAME = STACK (TYPE FRAME)>
3311                     <CALL '\1aGETPROP 3 = PTR24>
3312                     <CFRAME = TEMP29 (TYPE FRAME)>
3313                     <EQUAL? TEMP29 PTR24 - TAG36>
3314                     <DEAD TEMP29>
3315                     <RESTL IT25 1 = TEMP29 (TYPE LIST)>
3316                     <DEAD IT25>
3317                     <NTHL TEMP29 1 = PTR24>
3318                     <DEAD TEMP29>
3319 TAG36
3320                     <TYPE? PTR24 <TYPE-CODE ATOM> - PHRASE32>
3321                     <VEQUAL? PTR24 NM4 + MAPAP17>
3322                     <DEAD PTR24>
3323 PHRASE32
3324                     <RESTL RGRP6 1 = RGRP6 (TYPE LIST)>
3325                     <JUMP + MAP14>
3326 MAPAP17
3327                     <RETURN TEMP8>
3328                     <DEAD TEMP8>
3329                     <END \1aFIND-OBL>\r\r
3330 #WORD *25035705143*
3331 <GFCN \1aUPDATE-STATUS ("VALUE" <OR ATOM FALSE> ANY ANY ANY ANY "OPTIONAL" ANY ANY) STATE7 FCN8 PHASE9 REANA10 CPU11 REAL12>
3332                     <OPT-DISPATCH 4 %<> OPT4 OPT5 OPT6>
3333 OPT4
3334                     <PUSH #T$UNBOUND 0>
3335 OPT5
3336                     <PUSH #T$UNBOUND 0>
3337 OPT6
3338                     <TEMP TEMP17 OUTCHAN13>
3339                     <INTGO>
3340                     <TYPE? CPU11 <TYPE-CODE UNBOUND> - TAG14>
3341                     <FRAME '\1aTIME>
3342                     <CALL '\1aTIME 0 = TEMP17>
3343                     <ADDF TEMP17 0.5000000 = TEMP17 (TYPE FLOAT)>
3344                     <FIX TEMP17 = CPU11 (TYPE FIX)>
3345                     <DEAD TEMP17>
3346 TAG14
3347                     <TYPE? REAL12 <TYPE-CODE UNBOUND> - TAG18>
3348                     <FRAME '\1aRTIME>
3349                     <CALL '\1aRTIME 0 = REAL12>
3350 TAG18
3351                     <GVAL 'OUTCHAN = OUTCHAN13>
3352                     <GVAL 'GC-USER-MON = TEMP17>
3353                     <TYPE? TEMP17 <TYPE-CODE FALSE> - PHRASE22>
3354                     <DEAD TEMP17>
3355                     <FRAME '\1aGC-MON>
3356                     <GVAL 'GC-STATUS = STACK>
3357                     <CALL '\1aGC-MON 1>
3358 PHRASE22
3359                     <NTHR 'STATUS-CPU 1 = TEMP17 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG26)>
3360                     <TYPE? TEMP17 <TYPE-CODE FALSE> + TAG26>
3361                     <NTHR TEMP17 1 = TEMP17 (RECORD-TYPE GBIND)>
3362                     <TYPE? TEMP17 <TYPE-CODE UNBOUND> - PHRASE25>
3363                     <DEAD TEMP17>
3364 TAG26
3365                     <SETG 'STATUS-CPU CPU11>
3366 PHRASE25
3367                     <NTHR 'STATUS-REAL 1 = TEMP17 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG29)>
3368                     <TYPE? TEMP17 <TYPE-CODE FALSE> + TAG29>
3369                     <NTHR TEMP17 1 = TEMP17 (RECORD-TYPE GBIND)>
3370                     <TYPE? TEMP17 <TYPE-CODE UNBOUND> - PHRASE28>
3371                     <DEAD TEMP17>
3372 TAG29
3373                     <SETG 'STATUS-REAL REAL12>
3374 PHRASE28
3375                     <TYPE? FCN8 <TYPE-CODE FALSE> + PHRASE31>
3376                     <SETG 'STATUS-FCN FCN8>
3377                     <JUMP + PHRASE32>
3378 PHRASE31
3379                     <GVAL 'STATUS-FCN = FCN8>
3380 PHRASE32
3381                     <FRAME '\1aCHANNEL-OP>
3382                     <PUSH OUTCHAN13>
3383                     <PUSH 'HOR-POS-CURSOR>
3384                     <PUSH 0>
3385                     <CALL '\1aCHANNEL-OP 3>
3386                     <FRAME '\1aPRINT-MANY>
3387                     <PUSH OUTCHAN13>
3388                     <DEAD OUTCHAN13>
3389                     <PUSH 'PRINC>
3390                     <GVAL 'STATE-TITLE = STACK>
3391                     <SET OUTCHAN13 11 (TYPE FIX)>
3392                     <SFRAME 'STRING-FIT>
3393                     <PUSH STATE7>
3394                     <DEAD STATE7>
3395                     <PUSH 5>
3396                     <SCALL '\1aSTRING-FIT 2 = TEMP17 + TAG34 OUTCHAN13>
3397 TAG34
3398                     <GVAL 'STATE-FCN = STACK>
3399                     <SFRAME 'STRING-FIT>
3400                     <PUSH FCN8>
3401                     <DEAD FCN8>
3402                     <PUSH 10>
3403                     <SCALL '\1aSTRING-FIT 2 = TEMP17 + TAG37 OUTCHAN13>
3404 TAG37
3405                     <GVAL 'STATE-PHASE = STACK>
3406                     <SFRAME 'STRING-FIT>
3407                     <SET TEMP17 PHASE9>
3408                     <DEAD PHASE9>
3409                     <TYPE? TEMP17 <TYPE-CODE FALSE> - BOOL41>
3410                     <SET TEMP17 "" (TYPE STRING)>
3411 BOOL41
3412                     <PUSH TEMP17>
3413                     <DEAD TEMP17>
3414                     <PUSH 4>
3415                     <SCALL '\1aSTRING-FIT 2 = TEMP17 + TAG39 OUTCHAN13>
3416 TAG39
3417                     <GVAL 'STATE-CPU = STACK>
3418                     <SFRAME 'CPU-STRING>
3419                     <GVAL 'STATUS-CPU = TEMP17>
3420                     <SUB CPU11 TEMP17 = STACK (TYPE FIX)>
3421                     <DEAD CPU11 TEMP17>
3422                     <SCALL '\1aCPU-STRING 1 = TEMP17 + TAG43 OUTCHAN13>
3423 TAG43
3424                     <GVAL 'STATE-REAL = STACK>
3425                     <SFRAME 'REAL-STRING>
3426                     <GVAL 'STATUS-REAL = TEMP17>
3427                     <SUB REAL12 TEMP17 = STACK (TYPE FIX)>
3428                     <DEAD REAL12 TEMP17>
3429                     <SCALL '\1aREAL-STRING 1 = TEMP17 + TAG45 OUTCHAN13>
3430 TAG45
3431                     <PUSH " ">
3432                     <SFRAME 'FUNCTION-RATIO>
3433                     <SCALL '\1aFUNCTION-RATIO 0 = TEMP17 + TAG47 OUTCHAN13>
3434 TAG47
3435                     <PUSH " ">
3436                     <TYPE? REANA10 <TYPE-CODE FALSE> + PHRASE51>
3437                     <SET TEMP17 REANA10>
3438                     <DEAD REANA10>
3439                     <JUMP + PHRASE52>
3440 PHRASE51
3441                     <SET TEMP17 "  " (TYPE STRING)>
3442 PHRASE52
3443                     <PUSH TEMP17>
3444                     <DEAD TEMP17>
3445                     <GVAL 'ERRORS-OCCURED = TEMP17>
3446                     <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE54>
3447                     <DEAD TEMP17>
3448                     <SET TEMP17 "E " (TYPE STRING)>
3449                     <JUMP + PHRASE55>
3450 PHRASE54
3451                     <SET TEMP17 "  " (TYPE STRING)>
3452 PHRASE55
3453                     <PUSH TEMP17>
3454                     <DEAD TEMP17>
3455                     <CALL '\1aPRINT-MANY OUTCHAN13 = OUTCHAN13>
3456                     <RETURN OUTCHAN13>
3457                     <DEAD OUTCHAN13>
3458                     <END \1aUPDATE-STATUS>
3459 #WORD *5733635232*
3460 <GFCN \1aGC-STATUS ("VALUE" ANY "OPTIONAL" ANY) OUT6>
3461                     <OPT-DISPATCH 0 %<> OPT4 OPT5>
3462 OPT4
3463                     <PUSH %<>>
3464 OPT5
3465                     <TEMP TEMP10>
3466                     <INTGO>
3467                     <TYPE? OUT6 <TYPE-CODE FALSE> + PHRASE8>
3468                     <DEAD OUT6>
3469                     <FRAME '\1aCHANNEL-OP>
3470                     <GVAL 'OUTCHAN = STACK>
3471                     <PUSH 'ERASE-CHAR>
3472                     <CALL '\1aCHANNEL-OP 2 = TEMP10>
3473                     <RETURN TEMP10>
3474                     <DEAD TEMP10>
3475 PHRASE8
3476                     <FRAME '\1aPRINC>
3477                     <PUSH "G">
3478                     <GVAL 'OUTCHAN = STACK>
3479                     <CALL '\1aPRINC 2 = TEMP10>
3480                     <RETURN TEMP10>
3481                     <DEAD TEMP10>
3482                     <END \1aGC-STATUS>
3483 <MSETG LENGTH-BLANK 100>
3484
3485 <SETG STR-BLANK <ISTRING ,LENGTH-BLANK !\ >>
3486
3487 #WORD *25166305643*
3488 <GFCN \1aSTRING-FIT ("VALUE" <MULTI STRING> STRING FIX) STR4 FIELD5>
3489                     <TEMP LN6>
3490                     <INTGO>
3491                     <LENUS STR4 = LN6 (TYPE FIX)>
3492                     <VEQUAL? LN6 FIELD5 - PHRASE9 (TYPE FIX)>
3493                     <PUSH STR4>
3494                     <DEAD STR4>
3495                     <MRETURN 1 0>
3496 PHRASE9
3497                     <GRTR? LN6 FIELD5 - PHRASE10 (TYPE FIX)>
3498                     <UUBLOCK <TYPE-CODE STRING> FIELD5 = LN6 (TYPE STRING)>
3499                     <MOVE-STRING STR4 LN6 FIELD5 (NO-OVERLAP T)>
3500                     <DEAD STR4 FIELD5>
3501                     <PUSH LN6>
3502                     <DEAD LN6>
3503                     <MRETURN 1 0>
3504 PHRASE10
3505                     <PUSH STR4>
3506                     <DEAD STR4>
3507                     <FRAME '\1aREST>
3508                     <GVAL 'STR-BLANK = STACK>
3509                     <SUB FIELD5 LN6 = LN6 (TYPE FIX)>
3510                     <DEAD FIELD5>
3511                     <SUB 100 LN6 = STACK (TYPE FIX)>
3512                     <DEAD LN6>
3513                     <CALL '\1aREST 2 = STACK>
3514                     <MRETURN 2 0>
3515                     <END \1aSTRING-FIT>
3516 #WORD *271655421*
3517 <GFCN \1aCPU-STRING ("VALUE" <MULTI <OR STRING FIX> STRING FIX STRING STRING FIX STRING STRING> FIX) CPU4>
3518                     <TEMP (COLON5 %<>) H6:FIX R7:FIX M8:FIX TEMP13>
3519                     <INTGO>
3520                     <DIV CPU4 3600 = H6 (TYPE FIX)>
3521                     <MOD CPU4 3600 = R7 (TYPE FIX)>
3522                     <DEAD CPU4>
3523                     <DIV R7 60 = M8 (TYPE FIX)>
3524                     <MOD R7 60 = R7 (TYPE FIX)>
3525                     <GRTR? H6 10 - PHRASE12 (TYPE FIX)>
3526                     <SET TEMP13 "*:" (TYPE STRING)>
3527                     <JUMP + PHRASE17>
3528 PHRASE12
3529                     <GRTR? H6 0 - PHRASE14 (TYPE FIX)>
3530                     <SET COLON5 'T (TYPE ATOM)>
3531                     <SET TEMP13 H6>
3532                     <JUMP + PHRASE17>
3533 PHRASE14
3534                     <SET TEMP13 "" (TYPE STRING)>
3535 PHRASE17
3536                     <PUSH TEMP13>
3537                     <DEAD TEMP13>
3538                     <VEQUAL? COLON5 0 + PHRASE19>
3539                     <DEAD COLON5>
3540                     <SET TEMP13 ":" (TYPE STRING)>
3541                     <JUMP + PHRASE20>
3542 PHRASE19
3543                     <SET TEMP13 "" (TYPE STRING)>
3544 PHRASE20
3545                     <PUSH TEMP13>
3546                     <DEAD TEMP13>
3547                     <PUSH M8>
3548                     <PUSH ":">
3549                     <LESS? R7 10 - PHRASE22 (TYPE FIX)>
3550                     <SET TEMP13 "0" (TYPE STRING)>
3551                     <JUMP + PHRASE23>
3552 PHRASE22
3553                     <SET TEMP13 "" (TYPE STRING)>
3554 PHRASE23
3555                     <PUSH TEMP13>
3556                     <DEAD TEMP13>
3557                     <PUSH R7>
3558                     <DEAD R7>
3559                     <VEQUAL? H6 0 - PHRASE25 (TYPE FIX)>
3560                     <DEAD H6>
3561                     <SET TEMP13 "  " (TYPE STRING)>
3562                     <JUMP + PHRASE28>
3563 PHRASE25
3564                     <SET TEMP13 "" (TYPE STRING)>
3565 PHRASE28
3566                     <PUSH TEMP13>
3567                     <DEAD TEMP13>
3568                     <LESS? M8 10 - PHRASE30 (TYPE FIX)>
3569                     <DEAD M8>
3570                     <SET TEMP13 " " (TYPE STRING)>
3571                     <JUMP + PHRASE31>
3572 PHRASE30
3573                     <SET TEMP13 "" (TYPE STRING)>
3574 PHRASE31
3575                     <PUSH TEMP13>
3576                     <DEAD TEMP13>
3577                     <MRETURN 8 0>
3578                     <END \1aCPU-STRING>
3579 #WORD *2751343003*
3580 <GFCN \1aREAL-STRING ("VALUE" <MULTI STRING <OR STRING FIX> STRING FIX STRING STRING FIX STRING STRING> FIX) REAL4>
3581                     <TEMP (COLON5 'T) H6:FIX R7:FIX M8:FIX TEMP13>
3582                     <INTGO>
3583                     <DIV REAL4 3600 = H6 (TYPE FIX)>
3584                     <MOD REAL4 3600 = R7 (TYPE FIX)>
3585                     <DEAD REAL4>
3586                     <DIV R7 60 = M8 (TYPE FIX)>
3587                     <MOD R7 60 = R7 (TYPE FIX)>
3588                     <GRTR? H6 100 - PHRASE12 (TYPE FIX)>
3589                     <SET TEMP13 "**" (TYPE STRING)>
3590                     <JUMP + PHRASE17>
3591 PHRASE12
3592                     <GRTR? H6 0 - PHRASE14 (TYPE FIX)>
3593                     <SET TEMP13 "" (TYPE STRING)>
3594                     <JUMP + PHRASE17>
3595 PHRASE14
3596                     <SET COLON5 %<> (TYPE FALSE)>
3597                     <SET TEMP13 "" (TYPE STRING)>
3598 PHRASE17
3599                     <PUSH TEMP13>
3600                     <DEAD TEMP13>
3601                     <LESS? H6 100 - PHRASE19 (TYPE FIX)>
3602                     <GRTR? H6 0 - PHRASE19 (TYPE FIX)>
3603                     <SET TEMP13 H6>
3604                     <JUMP + PHRASE23>
3605 PHRASE19
3606                     <SET TEMP13 "" (TYPE STRING)>
3607 PHRASE23
3608                     <PUSH TEMP13>
3609                     <DEAD TEMP13>
3610                     <VEQUAL? COLON5 0 + PHRASE25>
3611                     <DEAD COLON5>
3612                     <SET TEMP13 ":" (TYPE STRING)>
3613                     <JUMP + PHRASE26>
3614 PHRASE25
3615                     <SET TEMP13 "" (TYPE STRING)>
3616 PHRASE26
3617                     <PUSH TEMP13>
3618                     <DEAD TEMP13>
3619                     <PUSH M8>
3620                     <PUSH ":">
3621                     <LESS? R7 10 - PHRASE28 (TYPE FIX)>
3622                     <SET TEMP13 "0" (TYPE STRING)>
3623                     <JUMP + PHRASE29>
3624 PHRASE28
3625                     <SET TEMP13 "" (TYPE STRING)>
3626 PHRASE29
3627                     <PUSH TEMP13>
3628                     <DEAD TEMP13>
3629                     <PUSH R7>
3630                     <DEAD R7>
3631                     <GRTR? H6 10 - PHRASE31 (TYPE FIX)>
3632                     <SET TEMP13 "" (TYPE STRING)>
3633                     <JUMP + PHRASE35>
3634 PHRASE31
3635                     <GRTR? H6 0 - PHRASE32 (TYPE FIX)>
3636                     <DEAD H6>
3637                     <SET TEMP13 " " (TYPE STRING)>
3638                     <JUMP + PHRASE35>
3639 PHRASE32
3640                     <SET TEMP13 "   " (TYPE STRING)>
3641 PHRASE35
3642                     <PUSH TEMP13>
3643                     <DEAD TEMP13>
3644                     <LESS? M8 10 - PHRASE37 (TYPE FIX)>
3645                     <DEAD M8>
3646                     <SET TEMP13 " " (TYPE STRING)>
3647                     <JUMP + PHRASE38>
3648 PHRASE37
3649                     <SET TEMP13 "" (TYPE STRING)>
3650 PHRASE38
3651                     <PUSH TEMP13>
3652                     <DEAD TEMP13>
3653                     <MRETURN 9 0>
3654                     <END \1aREAL-STRING>
3655 #WORD *11122056402*
3656 <GFCN \1aFUNCTION-RATIO ("VALUE" <MULTI STRUCTURED>)>
3657                     <TEMP FR7 LN15:FIX LN26 TEMP27 TEMP28>
3658                     <INTGO>
3659                     <GEN-ASSIGNED? 'ATOM-LIST - BOOL10>
3660                     <GEN-ASSIGNED? 'AL + PHRASE9>
3661 BOOL10
3662                     <FRAME '\1aREST>
3663                     <GVAL 'STR-BLANK = STACK>
3664                     <PUSH 93>
3665                     <CALL '\1aREST 2 = STACK>
3666                     <MRETURN 1 0>
3667 PHRASE9
3668                     <GEN-LVAL 'ATOM-LIST = FR7>
3669                     <LENL FR7 = LN15 (TYPE FIX)>
3670                     <GEN-LVAL 'AL = LN26>
3671                     <TYPE LN26 = TEMP27>
3672                     <EMPL? FR7 + TAG19>
3673                     <LOOP (LN26 VALUE) (TEMP27 VALUE) (FR7 VALUE)>
3674 TAG21
3675                     <NTHL FR7 1 = TEMP28>
3676                     <TYPE? TEMP28 TEMP27 - TAG22>
3677                     <VEQUAL? TEMP28 LN26 + TAG20>
3678                     <DEAD TEMP28>
3679 TAG22
3680                     <RESTL FR7 1 = FR7 (TYPE LIST)>
3681                     <EMPL? FR7 - TAG21>
3682 TAG19
3683                     <SET FR7 %<> (TYPE FALSE)>
3684 TAG20
3685                     <LENL FR7 = FR7 (TYPE FIX)>
3686                     <SUB LN15 FR7 = LN26 (TYPE FIX)>
3687                     <DEAD FR7>
3688                     <SUB LN26 -1 = LN26 (TYPE FIX)>
3689                     <LESS? LN26 100 + PHRASE30 (TYPE FIX)>
3690                     <SET FR7 "" (TYPE STRING)>
3691                     <JUMP + PHRASE32>
3692 PHRASE30
3693                     <LESS? LN26 10 + PHRASE31 (TYPE FIX)>
3694                     <SET FR7 " " (TYPE STRING)>
3695                     <JUMP + PHRASE32>
3696 PHRASE31
3697                     <SET FR7 "  " (TYPE STRING)>
3698 PHRASE32
3699                     <PUSH FR7>
3700                     <DEAD FR7>
3701                     <PUSH LN26>
3702                     <DEAD LN26>
3703                     <PUSH "/">
3704                     <LESS? LN15 100 + PHRASE34 (TYPE FIX)>
3705                     <SET FR7 "" (TYPE STRING)>
3706                     <JUMP + PHRASE36>
3707 PHRASE34
3708                     <LESS? LN15 10 + PHRASE35 (TYPE FIX)>
3709                     <SET FR7 " " (TYPE STRING)>
3710                     <JUMP + PHRASE36>
3711 PHRASE35
3712                     <SET FR7 "  " (TYPE STRING)>
3713 PHRASE36
3714                     <PUSH FR7>
3715                     <DEAD FR7>
3716                     <PUSH LN15>
3717                     <DEAD LN15>
3718                     <MRETURN 5 0>
3719                     <END \1aFUNCTION-RATIO>
3720 <ENDPACKA