--- /dev/null
+
+<PACKAGE "COMFIL">
+
+<ENTRY FILE-COMPILE STATUS REDO PRECOMPILED DISOWN MACRO-COMPILE REHASH-ALL MACRO-FLUSH NO-TEMP-FILE INS-LIST INS-FIX ACCESS-LIST ERRORS-OCCURED>
+
+<USE "FILE-INDEX" "HASH" "CDRIVE" "COMPDEC" "ITIME" "MIMC-GRDUMP" "TTY">
+
+<NEWTYPE ACCESS-LIST LIST '<<PRIMTYPE LIST> ANY FIX FIX>>
+
+<NEWTYPE INS-LIST LIST>
+
+<GDECL (ALL-OUT) LIST>
+
+<SETG STATUS-LINE <>>
+
+<SETG PACKAGE-OBLIST <MOBLIST PACKAGE>>
+
+<SET NO-TEMP-FILE <>>
+
+<SET PACKAGE-MODE <>>
+
+<SET REDO ()>
+
+<SET CAREFUL T>
+
+<SET REASONABLE T>
+
+<SET DEBUG-COMPILE T>
+
+<SET HAIRY-ANALYSIS T>
+
+<SETG FF <ASCII 12>>
+
+<SETG GC-COUNT 0>
+
+<SET MACRO-FLUSH <>>
+
+<SET MACRO-COMPILE T>
+
+<SETG REHASH-ALL <>>
+
+"Stuff for status line"
+
+<SETG STATE-TITLE "State ">
+
+<MSETG H-STATE <LENGTH ,STATE-TITLE>>
+
+<MSETG H-STATE-LN 5>
+
+<SETG STATE-FCN " Fcn ">
+
+<MSETG H-FCN <+ <LENGTH ,STATE-FCN> ,H-STATE-LN ,H-STATE>>
+
+<MSETG H-FCN-LN 10>
+
+<SETG STATE-PHASE " Phase ">
+
+<MSETG H-PHASE <+ ,H-FCN ,H-FCN-LN <LENGTH ,STATE-PHASE>>>
+
+<MSETG H-PHASE-LN 4>
+
+<SETG STATE-CPU " Cpu ">
+
+<MSETG H-CPU <+ ,H-PHASE ,H-PHASE-LN <LENGTH ,STATE-CPU>>>
+
+<MSETG H-CPU-LN 6>
+
+<SETG STATE-REAL " Real ">
+
+<MSETG H-REAL <+ ,H-CPU ,H-CPU-LN <LENGTH ,STATE-REAL>>>
+
+<MSETG H-REAL-LN 5>
+
+<MSETG H-RATIO <+ ,H-REAL ,H-REAL-LN 1>>
+
+<MSETG H-RATIO-LN 7>
+
+<MSETG H-RE-ANA <+ ,H-RATIO ,H-RATIO-LN 1>>
+
+<BLOCK (<ROOT>)>
+
+IMPORT-PM
+
+DEFINITION-MODULE
+
+PROGRAM-MODULE
+
+END-MODULE
+
+INCLUDE-DEFINITIONS
+
+PMEXPORT
+
+INCLUDE-WHEN
+
+IMPORT-WHEN
+
+ZSECTION
+
+ZZSECTION
+
+ZPACKAGE
+
+ZZPACKAGE
+
+ZENDPACKAGE
+
+ZENDSECTION
+
+ENDSECTION
+
+<ENDBLOCK>
+
+#WORD *14407242731*
+ <FCN \1aFILE-COMPILE ("VALUE" ANY STRING "OPTIONAL" STRING STRING) INFILE7 OUTFILE8 NM2-9>
+ <OPT-DISPATCH 1 %<> OPT4 OPT5 OPT6>
+OPT4
+ <PUSH "">
+OPT5
+ <PUSH #T$UNBOUND 0>
+OPT6
+ <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>
+ <INTGO>
+ <GETS 'BIND = TEMP3 (TYPE LBIND)>
+ <SET TEMP42 0>
+ <TYPE? NM2-9 <TYPE-CODE UNBOUND> - TAG40 (DEAD-FALL NM2-9 TEMP42)>
+ <SET NM2-9 "MUD" (TYPE STRING)>
+ <SET TEMP42 1>
+TAG40
+ <BBIND 'NM2 'STRING %<> NM2-9>
+ <DEAD NM2-9>
+ <VEQUAL? TEMP42 0 + TAG43>
+ <DEAD TEMP42>
+ <FIXBIND>
+TAG43
+ <FIXBIND>
+ <FRAME '\1aTIME>
+ <CALL '\1aTIME 0 = TEMP42>
+ <ADDF TEMP42 0.5000000 = TEMP42 (TYPE FLOAT)>
+ <FIX TEMP42 = TEMP42 (TYPE FIX)>
+ <BBIND 'STARCPU 'FIX 'FIX TEMP42>
+ <DEAD TEMP42>
+ <FRAME '\1aRTIME>
+ <CALL '\1aRTIME 0 = TEMP42>
+ <BBIND 'STARR 'FIX 'FIX TEMP42>
+ <DEAD TEMP42>
+ <BBIND 'TEMPCH <OR CHANNEL FALSE> 'FIX %<>>
+ <BBIND 'SRC-CHAN <OR CHANNEL FALSE> 'FIX %<>>
+ <GEN-LVAL 'NO-TEMP-FILE = NO-TEMP-FILE20>
+ <BBIND 'ATOM-LIST <LIST [REST <OR LIST ATOM>]> 'FIX>
+ <GEN-LVAL 'OBLIST = TEMP42>
+ <BBIND 'OBLIST 'ANY 'FIX TEMP42>
+ <DEAD TEMP42>
+ <BBIND 'ATL <LIST [REST <OR LIST ATOM>]> 'FIX>
+ <GEN-LVAL 'OUTCHAN = TEMP42>
+ <BBIND 'OUTCHAN 'CHANNEL 'FIX TEMP42>
+ <DEAD TEMP42>
+ <BBIND 'NO-BQ 'ANY 'FIX %<>>
+ <GEN-LVAL 'REDO = REDO31>
+ <BBIND 'NM1 'STRING 'FIX>
+ <BBIND 'SNM 'STRING 'FIX>
+ <BBIND 'DEV 'STRING 'FIX>
+ <BBIND 'GCTIME 'FLOAT 'FIX 0.0>
+ <BBIND 'I/O-TIME 'FLOAT 'FIX 0.0>
+ <NTHR 'NM2 2 = TEMP42 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP42 1 = REAL-NM2-38 (RECORD-TYPE LBIND)>
+ <DEAD TEMP42>
+ <CFRAME = TEMP42 (TYPE FRAME)>
+ <BBIND 'FCEX 'FRAME 'FIX TEMP42>
+ <DEAD TEMP42>
+ <ACTIVATION>
+ <SETG 'ERRORS-OCCURED %<>>
+ <SETG 'ALL-OUT ()>
+ <FRAME '\1aFILE-EXISTS?>
+ <PUSH INFILE7>
+ <CALL '\1aFILE-EXISTS? 1 = TEMP42>
+ <TYPE? TEMP42 <TYPE-CODE FALSE> - PHRASE58 (DEAD-JUMP TEMP42)>
+ <FRAME '\1aRETURN>
+ <PUSH TEMP42>
+ <DEAD TEMP42>
+ <NTHR 'FCEX 2 = TEMP42 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP42 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP42>
+ <CALL '\1aRETURN 2>
+PHRASE58
+ <FRAME '\1aCHANNEL-OPEN>
+ <PUSH 'PARSE>
+ <PUSH INFILE7>
+ <CALL '\1aCHANNEL-OPEN 2 = INCH12>
+ <FRAME '\1aPRINSPEC>
+ <PUSH "Input from ">
+ <PUSH INCH12>
+ <CALL '\1aPRINSPEC 2>
+ <FRAME '\1aCHANNEL-OP>
+ <PUSH INCH12>
+ <PUSH 'NM1>
+ <CALL '\1aCHANNEL-OP 2 = TEMP42>
+ <NTHR 'NM1 2 = TEMP68 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP68 1 TEMP42 (RECORD-TYPE LBIND)>
+ <DEAD TEMP68 TEMP42>
+ <FRAME '\1aCLOSE>
+ <PUSH INCH12>
+ <CALL '\1aCLOSE 1>
+ <NTHR 'NM2 2 = TEMP68 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP68 1 "MIMA" (RECORD-TYPE LBIND)>
+ <DEAD TEMP68>
+ <FRAME '\1aCHANNEL-OPEN>
+ <PUSH 'PARSE>
+ <PUSH OUTFILE8>
+ <CALL '\1aCHANNEL-OPEN 2 = OUTCH13>
+ <FRAME '\1aPRINSPEC>
+ <PUSH "Output to ">
+ <PUSH OUTCH13>
+ <CALL '\1aPRINSPEC 2>
+ <TYPE? NO-TEMP-FILE20 <TYPE-CODE FALSE> - PHRASE75>
+ <GETS 'BIND = TEMP68 (TYPE LBIND)>
+ <BBIND 'NM2 'STRING 'FIX "TEMP">
+ <LOOP>
+AGAIN78
+ <INTGO>
+ <FRAME '\1aOPEN>
+ <PUSH "PRINT">
+ <PUSH "">
+ <CALL '\1aOPEN 2 = TEMP42>
+ <NTHR 'TEMPCH 2 = TEMP84 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP84 1 TEMP42 (RECORD-TYPE LBIND)>
+ <DEAD TEMP84>
+ <TYPE? TEMP42 <TYPE-CODE FALSE> + PHRASE80>
+ <DEAD TEMP42>
+ <UNBIND TEMP68>
+ <DEAD TEMP68>
+ <JUMP + EXIT76>
+PHRASE80
+ <FRAME '\1aERROR>
+ <NTHR 'TEMPCH 2 = TEMP42 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP42 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP42>
+ <PUSH "ERRET ANYTHING TO RETRY">
+ <CALL '\1aERROR 2>
+ <JUMP + AGAIN78>
+EXIT76
+ <ADJ -9>
+ <FRAME '\1aPRINSPEC>
+ <PUSH "Temporary output to ">
+ <NTHR 'TEMPCH 2 = TEMP42 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP42 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP42>
+ <CALL '\1aPRINSPEC 2>
+PHRASE75
+ <GEN-ASSIGNED? 'PRECOMPILED - EXIT96>
+ <GEN-LVAL 'PRECOMPILED = TEMP84>
+ <TYPE? TEMP84 <TYPE-CODE FALSE> + EXIT96>
+ <DEAD TEMP84>
+ <LOOP>
+AGAIN98
+ <INTGO>
+ <TYPE? PRECH28 <TYPE-CODE UNBOUND> + BOOL102 (DEAD-JUMP PRECH28)>
+ <TYPE? PRECH28 <TYPE-CODE FALSE> - EXIT96 (DEAD-FALL PRECH28)>
+BOOL102
+ <FRAME '\1aOPEN>
+ <PUSH "READ">
+ <GEN-LVAL 'PRECOMPILED = STACK>
+ <CALL '\1aOPEN 2 = PRECH28>
+ <TYPE? PRECH28 <TYPE-CODE FALSE> + PHRASE100>
+ <FRAME '\1aPRINSPEC>
+ <PUSH "Will load precompile from ">
+ <PUSH PRECH28>
+ <CALL '\1aPRINSPEC 2 = TEMP42>
+ <TYPE? TEMP42 <TYPE-CODE FALSE> - EXIT96>
+ <DEAD TEMP42>
+PHRASE100
+ <FRAME '\1aUNAME>
+ <CALL '\1aUNAME 0 = TEMP42>
+ <IFCAN "STRING-EQUAL?">
+ <STRING-EQUAL? TEMP42 "OPERATOR" - PHRASE110>
+ <DEAD TEMP42>
+ <ENDIF "STRING-EQUAL?">
+ <IFCANNOT "STRING-EQUAL?">
+ <SET TEMP68 "OPERATOR" (TYPE STRING)>
+ <LENUS TEMP42 = TEMP84 (TYPE FIX)>
+ <VEQUAL? TEMP84 8 - PHRASE110 (DEAD-JUMP TEMP84 TEMP68 TEMP42)>
+ <LOOP (TEMP42 VALUE LENGTH) (TEMP68 VALUE LENGTH) (TEMP84 VALUE)>
+TAG116
+ <NTHUS TEMP42 1 = TEMP114>
+ <NTHUS TEMP68 1 = TEMP115>
+ <VEQUAL? TEMP114 TEMP115 - PHRASE110 (DEAD-JUMP TEMP84 TEMP68 TEMP42)>
+ <DEAD TEMP114 TEMP115>
+ <RESTUS TEMP42 1 = TEMP42 (TYPE STRING)>
+ <RESTUS TEMP68 1 = TEMP68 (TYPE STRING)>
+ <SUB TEMP84 1 = TEMP84 (TYPE FIX)>
+ <GRTR? TEMP84 0 + TAG116 (TYPE FIX) (DEAD-FALL TEMP84 TEMP68 TEMP42)>
+ <ENDIF "STRING-EQUAL?">
+ <FRAME '\1aPRINC>
+ <PUSH "Can't load precompilation from ">
+ <NTHR 'OUTCHAN 2 = TEMP42 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP42 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP42>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRINC>
+ <FRAME '\1aNTH>
+ <PUSH PRECH28>
+ <PUSH 2>
+ <CALL '\1aNTH 2 = STACK>
+ <NTHR 'OUTCHAN 2 = TEMP42 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP42 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP42>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRINC>
+ <PUSH ": ">
+ <NTHR 'OUTCHAN 2 = TEMP42 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP42 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP42>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRINC>
+ <NTH1 PRECH28 = STACK>
+ <NTHR 'OUTCHAN 2 = TEMP42 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP42 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP42>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRINC>
+ <GVAL 'CRET = STACK>
+ <NTHR 'OUTCHAN 2 = TEMP42 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP42 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP42>
+ <CALL '\1aPRINC 2>
+ <JUMP + EXIT96>
+PHRASE110
+ <FRAME '\1aERROR>
+ <PUSH "Cant load precompilation">
+ <PUSH PRECH28>
+ <PUSH "ERRET non-false to retry, false to ignore precompilation">
+ <CALL '\1aERROR 3 = TEMP42>
+ <TYPE? TEMP42 <TYPE-CODE FALSE> + EXIT96 (DEAD-JUMP TEMP42)>
+ <TYPE? TEMP42 <TYPE-CODE STRING> - AGAIN98>
+ <GEN-SET 'PRECOMPILED TEMP42>
+ <DEAD TEMP42>
+ <JUMP + AGAIN98>
+EXIT96
+ <GEN-LVAL 'CAREFUL = TEMP42>
+ <TYPE? TEMP42 <TYPE-CODE FALSE> - EXIT146>
+ <DEAD TEMP42>
+ <FRAME '\1aPRINC>
+ <PUSH "Bounds checking disabled.">
+ <NTHR 'OUTCHAN 2 = TEMP115 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP115 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP115>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRINC>
+ <GVAL 'CRET = STACK>
+ <NTHR 'OUTCHAN 2 = TEMP115 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP115 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP115>
+ <CALL '\1aPRINC 2>
+EXIT146
+ <FRAME '\1aDO-AND-CHECK>
+ <PUSH "Writing record ">
+ <PUSH "RECORD">
+ <PUSH 'DISOWN>
+ <PUSH INCH12>
+ <PUSH OUTCH13>
+ <NTHR 'SRC-CHAN 2 = TEMP115 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP115 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP115>
+ <CALL '\1aDO-AND-CHECK 6 = TEMP42>
+ <TYPE? TEMP42 <TYPE-CODE FALSE> + PHRASE155 (DEAD-JUMP INCH12 TEMP42)>
+ <FRAME '\1aPRINC>
+ <PUSH "Toodle-oo!">
+ <NTHR 'OUTCHAN 2 = TEMP114 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP114 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP114>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRINC>
+ <GVAL 'CRET = STACK>
+ <NTHR 'OUTCHAN 2 = TEMP114 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP114 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP114>
+ <CALL '\1aPRINC 2>
+ <NTHR 'OUTCHAN 2 = TEMP114 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP114 1 TEMP42 (RECORD-TYPE LBIND)>
+ <DEAD TEMP114>
+ <SETG 'COMPCHAN TEMP42>
+ <DEAD TEMP42>
+ <FRAME '\1aPRINSPEC>
+ <PUSH "Compilation record for: ">
+ <PUSH INCH12>
+ <DEAD INCH12>
+ <CALL '\1aPRINSPEC 2>
+ <FRAME '\1aPRINSPEC>
+ <PUSH "Output file: ">
+ <PUSH OUTCH13>
+ <CALL '\1aPRINSPEC 2>
+PHRASE155
+ <FRAME '\1aCLOSE>
+ <PUSH OUTCH13>
+ <DEAD OUTCH13>
+ <CALL '\1aCLOSE 1>
+ <SETG 'GC-COUNT 0>
+ <FRAME '\1aON>
+ <FRAME '\1aHANDLER>
+ <PUSH "GC">
+ <GVAL 'COUNT-GCS = STACK>
+ <PUSH 10>
+ <CALL '\1aHANDLER 3 = STACK>
+ <CALL '\1aON 1 = TEMP42>
+ <FRAME '\1aTIME>
+ <CALL '\1aTIME 0 = TEMP68>
+ <GVAL 'STATUS-LINE = TEMP114>
+ <TYPE? TEMP114 <TYPE-CODE FALSE> + PHRASE176>
+ <DEAD TEMP114>
+ <FRAME '\1aUPDATE-STATUS>
+ <PUSH "Load">
+ <PUSH %<>>
+ <PUSH %<>>
+ <PUSH %<>>
+ <CALL '\1aUPDATE-STATUS 4>
+PHRASE176
+ <FRAME '\1aFIND-DEFINE-LOAD>
+ <PUSH INFILE7>
+ <PUSH REAL-NM2-38>
+ <CALL '\1aFIND-DEFINE-LOAD 2 = FILE-DATA23>
+ <FRAME '\1aTIME>
+ <CALL '\1aTIME 0 = TEMP114>
+ <SUBF TEMP114 TEMP68 = TEMP114 (TYPE FLOAT)>
+ <DEAD TEMP68>
+ <NTHR 'I/O-TIME 2 = INCH12 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR INCH12 1 TEMP114 (RECORD-TYPE LBIND)>
+ <DEAD INCH12 TEMP114>
+ <GVAL 'STATUS-LINE = TEMP114>
+ <TYPE? TEMP114 <TYPE-CODE FALSE> + PHRASE184>
+ <DEAD TEMP114>
+ <FRAME '\1aUPDATE-STATUS>
+ <PUSH "Ordr">
+ <PUSH %<>>
+ <PUSH %<>>
+ <PUSH %<>>
+ <CALL '\1aUPDATE-STATUS 4>
+PHRASE184
+ <FRAME '\1aPRINC>
+ <PUSH "File loaded.">
+ <NTHR 'OUTCHAN 2 = INCH12 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR INCH12 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD INCH12>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRINC>
+ <GVAL 'CRET = STACK>
+ <NTHR 'OUTCHAN 2 = INCH12 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR INCH12 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD INCH12>
+ <CALL '\1aPRINC 2>
+ <SET INCH12 () (TYPE LIST)>
+ <SET OUTCH13 () (TYPE LIST)>
+ <NTHL FILE-DATA23 1 = TEMP84 (TYPE LIST)>
+ <LOOP>
+MAP195
+ <INTGO>
+ <EMPL? TEMP84 + MAPAP198 (DEAD-JUMP TEMP84 OUTCH13)>
+ <NTHL TEMP84 1 = TEMP68>
+ <GVAL TEMP68 = TEMP114>
+ <TYPE? TEMP114 <TYPE-CODE FUNCTION> + BOOL208>
+ <DEAD TEMP114>
+ <GVAL TEMP68 = TEMP114>
+ <TYPE? TEMP114 <TYPE-CODE MACRO> - MAP196 (DEAD-JUMP TEMP68)>
+ <DEAD TEMP114>
+ <GVAL TEMP68 = TEMP114>
+ <EMPTY? TEMP114 + MAP196 (DEAD-JUMP TEMP68)>
+ <DEAD TEMP114>
+ <GVAL TEMP68 = TEMP114>
+ <NTH1 TEMP114 = TEMP114>
+ <TYPE? TEMP114 <TYPE-CODE FUNCTION> - MAP196 (DEAD-JUMP TEMP68)>
+ <DEAD TEMP114>
+BOOL208
+ <SET TEMP114 TEMP68>
+ <DEAD TEMP68>
+ <CONS TEMP114 () = TEMP114 (TYPE LIST)>
+ <EMPL? INCH12 - TAG213 (DEAD-FALL OUTCH13 INCH12)>
+ <SET INCH12 TEMP114 (TYPE LIST)>
+ <JUMP + TAG214>
+TAG213
+ <PUTREST OUTCH13 TEMP114>
+ <DEAD OUTCH13>
+TAG214
+ <SET OUTCH13 TEMP114 (TYPE LIST)>
+ <DEAD TEMP114>
+MAP196
+ <RESTL TEMP84 1 = TEMP84 (TYPE LIST)>
+ <JUMP + MAP195>
+MAPAP198
+ <NTHR 'ATOM-LIST 2 = TEMP84 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP84 1 INCH12 (RECORD-TYPE LBIND)>
+ <DEAD TEMP84 INCH12>
+ <EMPL? REDO31 + EXIT238 (TYPE LIST)>
+ <GEN-LVAL 'PACKAGE-MODE = TEMP84>
+ <TYPE? TEMP84 <TYPE-CODE FALSE> + MAPAP227>
+ <DEAD TEMP84>
+ <SET TEMP84 REDO31 (TYPE LIST)>
+ <LOOP>
+MAP224
+ <INTGO>
+ <EMPL? TEMP84 + MAPAP227 (DEAD-JUMP TEMP84)>
+ <SET TEMP114 TEMP84>
+ <FRAME '\1aPACK-FIX>
+ <GEN-LVAL 'PACKAGE-MODE = STACK>
+ <NTHL TEMP114 1 = STACK (TYPE ATOM)>
+ <CALL '\1aPACK-FIX 2 = INCH12>
+ <PUTL TEMP114 1 INCH12>
+ <DEAD TEMP114 INCH12>
+ <RESTL TEMP84 1 = TEMP84 (TYPE LIST)>
+ <JUMP + MAP224>
+MAPAP227
+ <FRAME '\1aPRINC>
+ <PUSH "Explicitly Recompiling ">
+ <NTHR 'OUTCHAN 2 = INCH12 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR INCH12 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD INCH12>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRINC>
+ <PUSH REDO31>
+ <NTHR 'OUTCHAN 2 = INCH12 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR INCH12 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD INCH12>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRINC>
+ <GVAL 'CRET = STACK>
+ <NTHR 'OUTCHAN 2 = INCH12 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR INCH12 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD INCH12>
+ <CALL '\1aPRINC 2>
+EXIT238
+ <GEN-ASSIGNED? 'PRECOMPILED - PHRASE250>
+ <GEN-LVAL 'PRECOMPILED = TEMP114>
+ <TYPE? TEMP114 <TYPE-CODE FALSE> + PHRASE250>
+ <DEAD TEMP114>
+ <TYPE? PRECH28 <TYPE-CODE FALSE> + PHRASE250>
+ <FRAME '\1aTIME>
+ <CALL '\1aTIME 0 = TEMP68 (DEAD-FALL PRE-INDEX18)>
+ <SET PRE-INDEX18 () (TYPE LIST)>
+ <GVAL 'STATUS-LINE = TEMP114>
+ <TYPE? TEMP114 <TYPE-CODE FALSE> + PHRASE256>
+ <DEAD TEMP114>
+ <FRAME '\1aUPDATE-STATUS>
+ <PUSH "PCld">
+ <PUSH %<>>
+ <PUSH %<>>
+ <PUSH %<>>
+ <CALL '\1aUPDATE-STATUS 4>
+PHRASE256
+ <SET OUTCH13 %<> (TYPE FALSE)>
+ <LOOP>
+AGAIN264
+ <INTGO>
+ <FRAME '\1aACCESS>
+ <PUSH PRECH28>
+ <CALL '\1aACCESS 1 = TEMP84>
+ <FRAME '\1aREAD>
+ <PUSH PRECH28>
+ <CFRAME = STACK (TYPE FRAME)>
+ <CALL '\1aREAD 2 = TEMP114>
+ <CFRAME = INCH12 (TYPE FRAME)>
+ <EQUAL? INCH12 TEMP114 + EXIT258 (DEAD-JUMP TEMP114 TEMP84 OUTCH13)>
+ <DEAD INCH12>
+ <TYPE? TEMP114 <TYPE-CODE FORM> - PHRASE268 (DEAD-JUMP TEMP84 OUTCH13)>
+ <EMPL? TEMP114 + PHRASE268 (TYPE FORM) (DEAD-JUMP TEMP84 OUTCH13)>
+ <NTHL TEMP114 1 = TEMP115>
+ <TYPE? TEMP115 <TYPE-CODE ATOM> - PHRASE268 (DEAD-JUMP TEMP115 TEMP84 OUTCH13)>
+ <NTHR TEMP115 3 = INCH12 (RECORD-TYPE ATOM)>
+ <IFCAN "STRING-EQUAL?">
+ <STRING-EQUAL? INCH12 "FCN" + BOOL270 (DEAD-JUMP TEMP115)>
+ <DEAD INCH12>
+ <ENDIF "STRING-EQUAL?">
+ <IFCANNOT "STRING-EQUAL?">
+ <SET TEMP272 "FCN" (TYPE STRING)>
+ <LENUS INCH12 = TEMP273 (TYPE FIX)>
+ <VEQUAL? TEMP273 3 - TAG271 (DEAD-JUMP TEMP273 TEMP272 INCH12)>
+ <LOOP (INCH12 VALUE LENGTH) (TEMP272 VALUE LENGTH) (TEMP273 VALUE)>
+TAG276
+ <NTHUS INCH12 1 = TEMP274>
+ <NTHUS TEMP272 1 = TEMP275>
+ <VEQUAL? TEMP274 TEMP275 - TAG271 (DEAD-JUMP TEMP273 TEMP272 INCH12)>
+ <DEAD TEMP274 TEMP275>
+ <RESTUS INCH12 1 = INCH12 (TYPE STRING)>
+ <RESTUS TEMP272 1 = TEMP272 (TYPE STRING)>
+ <SUB TEMP273 1 = TEMP273 (TYPE FIX)>
+ <GRTR? TEMP273 0 + TAG276 (TYPE FIX) (DEAD-FALL TEMP273 TEMP272 INCH12)>
+ <JUMP + BOOL270 (DEAD-JUMP TEMP115)>
+ <ENDIF "STRING-EQUAL?">
+TAG271
+ <NTHR TEMP115 3 = TEMP272 (RECORD-TYPE ATOM)>
+ <DEAD TEMP115>
+ <IFCAN "STRING-EQUAL?">
+ <STRING-EQUAL? TEMP272 "GFCN" - PHRASE268 (DEAD-JUMP TEMP84 OUTCH13)>
+ <DEAD TEMP272>
+ <ENDIF "STRING-EQUAL?">
+ <IFCANNOT "STRING-EQUAL?">
+ <SET INCH12 "GFCN" (TYPE STRING)>
+ <LENUS TEMP272 = TEMP275 (TYPE FIX)>
+ <VEQUAL? TEMP275 4 - PHRASE268 (DEAD-JUMP TEMP275 TEMP272 TEMP84 OUTCH13 INCH12)>
+ <LOOP (TEMP272 VALUE LENGTH) (INCH12 VALUE LENGTH) (TEMP275 VALUE)>
+TAG278
+ <NTHUS TEMP272 1 = TEMP274>
+ <NTHUS INCH12 1 = TEMP115>
+ <VEQUAL? TEMP274 TEMP115 - PHRASE268 (DEAD-JUMP TEMP275 TEMP272 TEMP84 OUTCH13 INCH12)>
+ <DEAD TEMP274 TEMP115>
+ <RESTUS TEMP272 1 = TEMP272 (TYPE STRING)>
+ <RESTUS INCH12 1 = INCH12 (TYPE STRING)>
+ <SUB TEMP275 1 = TEMP275 (TYPE FIX)>
+ <GRTR? TEMP275 0 + TAG278 (TYPE FIX) (DEAD-FALL TEMP275 TEMP272 INCH12)>
+ <ENDIF "STRING-EQUAL?">
+BOOL270
+ <FRAME '\1aSKIP-MIMA>
+ <PUSH PRECH28>
+ <RESTL TEMP114 1 = INCH12 (TYPE LIST)>
+ <NTHL INCH12 1 = TEMP273>
+ <DEAD INCH12>
+ <PUSH TEMP273>
+ <CALL '\1aSKIP-MIMA 2>
+ <NTHR TEMP273 1 = INCH12 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG283) (DEAD-JUMP INCH12)>
+ <TYPE? INCH12 <TYPE-CODE FALSE> + TAG283 (DEAD-JUMP INCH12)>
+ <NTHR INCH12 1 = INCH12 (RECORD-TYPE GBIND)>
+ <TYPE? INCH12 <TYPE-CODE UNBOUND> - PHRASE281>
+ <DEAD INCH12>
+TAG283
+ <FRAME '\1aMEMBER>
+ <PUSH "ANONF">
+ <NTHR TEMP273 3 = STACK (RECORD-TYPE ATOM)>
+ <CALL '\1aMEMBER 2 = INCH12>
+ <TYPE? INCH12 <TYPE-CODE FALSE> + AGAIN264>
+ <DEAD INCH12>
+PHRASE281
+ <NTHR 'ATOM-LIST 2 = INCH12 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR INCH12 1 = INCH12 (RECORD-TYPE LBIND)>
+ <EMPL? INCH12 + EXIT311 (TYPE LIST) (DEAD-JUMP TEMP114 TEMP84)>
+ <DEAD INCH12>
+ <SET INCH12 REDO31>
+ <EMPL? INCH12 + TAG290 (DEAD-JUMP INCH12)>
+ <LOOP (TEMP273 VALUE) (INCH12 VALUE)>
+TAG291
+ <NTHL INCH12 1 = TEMP272>
+ <TYPE? TEMP272 <TYPE-CODE ATOM> - TAG292 (DEAD-JUMP TEMP272)>
+ <VEQUAL? TEMP272 TEMP273 + EXIT311 (DEAD-JUMP TEMP114 TEMP84 INCH12)>
+ <DEAD TEMP272>
+TAG292
+ <RESTL INCH12 1 = INCH12 (TYPE LIST)>
+ <EMPL? INCH12 - TAG291 (DEAD-FALL INCH12)>
+TAG290
+ <NTHR TEMP273 1 = INCH12 (RECORD-TYPE ATOM) (BRANCH-FALSE + BOOL293) (DEAD-JUMP INCH12)>
+ <TYPE? INCH12 <TYPE-CODE FALSE> + BOOL293 (DEAD-JUMP INCH12)>
+ <NTHR INCH12 1 = INCH12 (RECORD-TYPE GBIND)>
+ <TYPE? INCH12 <TYPE-CODE UNBOUND> + BOOL293>
+ <DEAD INCH12>
+ <TYPE? OUTCH13 <TYPE-CODE FALSE> + BOOL293>
+ <FRAME '\1aHASH>
+ <GVAL TEMP273 = STACK>
+ <CALL '\1aHASH 1 = INCH12>
+ <VEQUAL? OUTCH13 INCH12 - EXIT311 (TYPE FIX) (DEAD-JUMP TEMP114 TEMP84)>
+ <DEAD INCH12>
+BOOL293
+ <CONS TEMP273 () = INCH12>
+ <CONS TEMP84 () = TEMP272>
+ <DEAD TEMP84>
+ <PUTREST INCH12 TEMP272>
+ <FRAME '\1aACCESS>
+ <PUSH PRECH28>
+ <CALL '\1aACCESS 1 = TEMP115>
+ <CONS TEMP115 () = TEMP115>
+ <PUTREST TEMP272 TEMP115>
+ <DEAD TEMP272>
+ <SET TEMP272 OUTCH13>
+ <TYPE? TEMP272 <TYPE-CODE FALSE> - PHRASE297 (DEAD-FALL TEMP272)>
+ <NTHR TEMP273 1 = TEMP274 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG299) (DEAD-JUMP TEMP274)>
+ <TYPE? TEMP274 <TYPE-CODE FALSE> + TAG299 (DEAD-JUMP TEMP274)>
+ <NTHR TEMP274 1 = TEMP274 (RECORD-TYPE GBIND)>
+ <TYPE? TEMP274 <TYPE-CODE UNBOUND> - TAG298>
+ <DEAD TEMP274>
+TAG299
+ <SET TEMP272 %<> (TYPE FALSE)>
+ <JUMP + PHRASE297>
+TAG298
+ <FRAME '\1aHASH>
+ <GVAL TEMP273 = STACK>
+ <CALL '\1aHASH 1 = TEMP272>
+PHRASE297
+ <CONS TEMP272 () = TEMP272>
+ <PUTREST TEMP115 TEMP272>
+ <DEAD TEMP115 TEMP272>
+ <CHTYPE INCH12 <TYPE-CODE ACCESS-LIST> = INCH12>
+ <CONS INCH12 () = INCH12>
+ <PUTREST INCH12 PRE-INDEX18>
+ <DEAD PRE-INDEX18>
+ <SET PRE-INDEX18 INCH12>
+ <DEAD INCH12>
+ <FRAME '\1aPUTPROP>
+ <PUSH TEMP273>
+ <PUSH 'RSUB-DEC>
+ <RESTL TEMP114 1 = INCH12 (TYPE LIST)>
+ <DEAD TEMP114>
+ <RESTL INCH12 1 = INCH12 (TYPE LIST)>
+ <NTHL INCH12 1 = STACK>
+ <DEAD INCH12>
+ <CALL '\1aPUTPROP 3>
+ <NTHR 'ATOM-LIST 2 = INCH12 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR INCH12 1 = INCH12 (RECORD-TYPE LBIND)>
+ <NTHL INCH12 1 = INCH12>
+ <VEQUAL? INCH12 TEMP273 - PHRASE303 (DEAD-FALL ANY-MIMAS?37)>
+ <DEAD INCH12>
+ <NTHR 'ATOM-LIST 2 = TEMP272 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP272 1 = TEMP272 (RECORD-TYPE LBIND)>
+ <RESTL TEMP272 1 = INCH12 (TYPE LIST)>
+ <DEAD TEMP272>
+ <NTHR 'ATOM-LIST 2 = TEMP272 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP272 1 INCH12 (RECORD-TYPE LBIND)>
+ <DEAD TEMP272 INCH12>
+ <JUMP + PEEP614>
+PHRASE303
+ <NTHR 'ATOM-LIST 2 = TEMP272 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP272 1 = TEMP114 (RECORD-TYPE LBIND)>
+ <DEAD TEMP272>
+ <LOOP>
+AGAIN315
+ <INTGO>
+ <RESTL TEMP114 1 = TEMP272 (TYPE LIST)>
+ <EMPL? TEMP272 + EXIT311 (TYPE LIST) (DEAD-JUMP TEMP114)>
+ <DEAD TEMP272>
+ <RESTL TEMP114 1 = TEMP272 (TYPE LIST)>
+ <NTHL TEMP272 1 = TEMP272>
+ <VEQUAL? TEMP272 TEMP273 - PHRASE319 (DEAD-FALL ANY-MIMAS?37)>
+ <DEAD TEMP272>
+ <RESTL TEMP114 1 = TEMP115 (TYPE LIST)>
+ <RESTL TEMP115 1 = TEMP272 (TYPE LIST)>
+ <DEAD TEMP115>
+ <PUTREST TEMP114 TEMP272>
+ <DEAD TEMP114 TEMP272>
+PEEP614
+ <SET ANY-MIMAS?37 'T (TYPE ATOM)>
+ <JUMP + EXIT311>
+PHRASE319
+ <RESTL TEMP114 1 = TEMP114 (TYPE LIST)>
+ <JUMP + AGAIN315>
+EXIT311
+ <TYPE? OUTCH13 <TYPE-CODE FALSE> + PHRASE326 (DEAD-JUMP TEMP273 OUTCH13)>
+ <NTHR TEMP273 1 = TEMP272 (RECORD-TYPE ATOM) (BRANCH-FALSE + AGAIN264)>
+ <DEAD TEMP273>
+ <TYPE? TEMP272 <TYPE-CODE FALSE> + AGAIN264>
+ <NTHR TEMP272 1 = TEMP272 (RECORD-TYPE GBIND)>
+ <TYPE? TEMP272 <TYPE-CODE UNBOUND> - PHRASE326 (DEAD-JUMP OUTCH13)>
+ <DEAD TEMP272>
+ <JUMP + AGAIN264>
+PHRASE268
+ <TYPE? TEMP114 <TYPE-CODE WORD> - PHRASE324>
+ <GVAL 'REHASH-ALL = TEMP272>
+ <TYPE? TEMP272 <TYPE-CODE FALSE> - PHRASE324>
+ <DEAD TEMP272>
+ <CHTYPE TEMP114 <TYPE-CODE FIX> = OUTCH13>
+ <DEAD TEMP114>
+ <JUMP + AGAIN264>
+PHRASE324
+ <TYPE? TEMP114 <TYPE-CODE FORM> - TAG328>
+ <EMPL? TEMP114 + TAG328 (TYPE FORM)>
+ <NTHL TEMP114 1 = TEMP272>
+ <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)>
+ <TYPE? TEMP272 <TYPE-CODE ATOM> - PHRASE326 (DEAD-JUMP TEMP272 TEMP115 TEMP114)>
+ <LOOP (TEMP272 VALUE) (TEMP115 LENGTH VALUE)>
+TAG329
+ <NTHUV TEMP115 1 = TEMP274>
+ <VEQUAL? TEMP274 TEMP272 + TAG328 (DEAD-JUMP TEMP272 TEMP115)>
+ <DEAD TEMP274>
+ <RESTUV TEMP115 1 = TEMP115 (TYPE VECTOR)>
+ <EMPUV? TEMP115 - TAG329 (DEAD-FALL TEMP272 TEMP115 TEMP114)>
+ <JUMP + PHRASE326>
+TAG328
+ <FRAME '\1aEVAL>
+ <PUSH TEMP114>
+ <DEAD TEMP114>
+ <CALL '\1aEVAL 1>
+PHRASE326
+ <SET OUTCH13 %<> (TYPE FALSE)>
+ <JUMP + AGAIN264>
+EXIT258
+ <FRAME '\1aPRINC>
+ <PUSH "Precompilation loaded">
+ <NTHR 'OUTCHAN 2 = TEMP272 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP272 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP272>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRINC>
+ <GVAL 'CRET = STACK>
+ <NTHR 'OUTCHAN 2 = TEMP272 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP272 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP272>
+ <CALL '\1aPRINC 2>
+ <VEQUAL? ANY-MIMAS?37 0 - EXIT342>
+ <FRAME '\1aPRINC>
+ <PUSH "No compiled functions from PRECOMPILATION used?">
+ <NTHR 'OUTCHAN 2 = TEMP274 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP274 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP274>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRINC>
+ <GVAL 'CRET = STACK>
+ <NTHR 'OUTCHAN 2 = TEMP274 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP274 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP274>
+ <CALL '\1aPRINC 2>
+EXIT342
+ <FRAME '\1aRESET>
+ <PUSH PRECH28>
+ <CALL '\1aRESET 1>
+ <NTHR 'I/O-TIME 2 = TEMP274 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP274 1 = TEMP274 (RECORD-TYPE LBIND)>
+ <FRAME '\1aTIME>
+ <CALL '\1aTIME 0 = INCH12>
+ <SUBF INCH12 TEMP68 = INCH12 (TYPE FLOAT)>
+ <DEAD TEMP68>
+ <ADDF TEMP274 INCH12 = TEMP274 (TYPE FLOAT)>
+ <DEAD INCH12>
+ <NTHR 'I/O-TIME 2 = INCH12 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR INCH12 1 TEMP274 (RECORD-TYPE LBIND)>
+ <DEAD INCH12 TEMP274>
+PHRASE250
+ <NTHR 'ATOM-LIST 2 = TEMP274 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP274 1 = TEMP274 (RECORD-TYPE LBIND)>
+ <EMPL? TEMP274 - PHRASE358 (TYPE LIST)>
+ <DEAD TEMP274>
+ <FRAME '\1aPRINC>
+ <PUSH "No DEFINEd functions in this file.">
+ <NTHR 'OUTCHAN 2 = INCH12 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR INCH12 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD INCH12>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRINC>
+ <GVAL 'CRET = STACK>
+ <NTHR 'OUTCHAN 2 = INCH12 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR INCH12 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD INCH12>
+ <CALL '\1aPRINC 2>
+ <NTHR 'ATOM-LIST 2 = INCH12 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR INCH12 1 () (RECORD-TYPE LBIND)>
+ <DEAD INCH12>
+ <JUMP + PHRASE371>
+PHRASE358
+ <FRAME '\1aGETORDER>
+ <SET OUTCH13 0 (TYPE FIX)>
+ <NTHR 'ATOM-LIST 2 = INCH12 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR INCH12 1 = INCH12 (RECORD-TYPE LBIND)>
+ <NTHR 'ATL 2 = TEMP84 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP84 1 INCH12 (RECORD-TYPE LBIND)>
+ <DEAD TEMP84>
+ <LOOP (INCH12 VALUE) (OUTCH13 VALUE)>
+TAG379
+ <INTGO>
+ <EMPL? INCH12 + TAG372 (DEAD-JUMP INCH12)>
+ <NTHL INCH12 1 = STACK>
+ <RESTL INCH12 1 = INCH12 (TYPE LIST)>
+ <ADD OUTCH13 1 = OUTCH13 (TYPE FIX)>
+ <JUMP + TAG379>
+TAG372
+ <CALL '\1aGETORDER OUTCH13 = OUTCH13>
+ <NTHR 'ATOM-LIST 2 = TEMP84 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP84 1 OUTCH13 (RECORD-TYPE LBIND)>
+ <DEAD TEMP84 OUTCH13>
+PHRASE371
+ <FRAME '\1aPRINC>
+ <PUSH "Functions ordered.">
+ <NTHR 'OUTCHAN 2 = TEMP84 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP84 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP84>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRINC>
+ <GVAL 'CRET = STACK>
+ <NTHR 'OUTCHAN 2 = TEMP84 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP84 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP84>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aLINEARIZE>
+ <NTHR 'ATOM-LIST 2 = TEMP84 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP84 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP84>
+ <CALL '\1aLINEARIZE 1 = TEMP84>
+ <NTHR 'ATOM-LIST 2 = INCH12 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR INCH12 1 TEMP84 (RECORD-TYPE LBIND)>
+ <DEAD INCH12 TEMP84>
+ <GEN-LVAL 'REASONABLE = TEMP84>
+ <TYPE? TEMP84 <TYPE-CODE FALSE> + PHRASE397>
+ <DEAD TEMP84>
+ <SET OUTCH13 () (TYPE LIST)>
+ <SET INCH12 () (TYPE LIST)>
+ <NTHR 'ATOM-LIST 2 = TEMP114 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP114 1 = TEMP84 (RECORD-TYPE LBIND)>
+ <DEAD TEMP114>
+ <LOOP>
+MAP401
+ <INTGO>
+ <EMPL? TEMP84 + MAPAP404 (DEAD-JUMP TEMP84 INCH12)>
+ <NTHL TEMP84 1 = TEMP115>
+ <NTHR 'ATL 2 = TEMP114 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP114 1 = TEMP114 (RECORD-TYPE LBIND)>
+ <TYPE TEMP115 = TEMP272>
+ <EMPL? TEMP114 + MAP402 (DEAD-JUMP TEMP272 TEMP115 TEMP114)>
+ <LOOP (TEMP115 VALUE) (TEMP272 VALUE) (TEMP114 VALUE)>
+TAG417
+ <NTHL TEMP114 1 = TEMP273>
+ <TYPE? TEMP273 TEMP272 - TAG418 (DEAD-JUMP TEMP273)>
+ <VEQUAL? TEMP273 TEMP115 + TAG416 (DEAD-JUMP TEMP272 TEMP114)>
+ <DEAD TEMP273>
+TAG418
+ <RESTL TEMP114 1 = TEMP114 (TYPE LIST)>
+ <EMPL? TEMP114 - TAG417 (DEAD-FALL TEMP272 TEMP115 TEMP114)>
+ <JUMP + MAP402>
+TAG416
+ <SET TEMP114 TEMP115>
+ <DEAD TEMP115>
+ <CONS TEMP114 () = TEMP114 (TYPE LIST)>
+ <EMPL? OUTCH13 - TAG425 (DEAD-FALL OUTCH13 INCH12)>
+ <SET OUTCH13 TEMP114 (TYPE LIST)>
+ <JUMP + TAG426>
+TAG425
+ <PUTREST INCH12 TEMP114>
+ <DEAD INCH12>
+TAG426
+ <SET INCH12 TEMP114 (TYPE LIST)>
+ <DEAD TEMP114>
+MAP402
+ <RESTL TEMP84 1 = TEMP84 (TYPE LIST)>
+ <JUMP + MAP401>
+MAPAP404
+ <NTHR 'ATOM-LIST 2 = TEMP84 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP84 1 OUTCH13 (RECORD-TYPE LBIND)>
+ <DEAD TEMP84 OUTCH13>
+PHRASE397
+ <NTHR 'ATOM-LIST 2 = OUTCH13 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR OUTCH13 1 = INCH12 (RECORD-TYPE LBIND)>
+ <DEAD OUTCH13>
+ <LOOP>
+MAP430
+ <INTGO>
+ <EMPL? INCH12 + MAPAP433 (DEAD-JUMP INCH12)>
+ <GETS 'BIND = TEMP272 (TYPE LBIND)>
+ <NTHL INCH12 1 = OUTCH13>
+ <BBIND 'AL 'ATOM 'FIX OUTCH13>
+ <DEAD OUTCH13>
+ <FRAME '\1aFIND-OBL>
+ <NTHR 'AL 2 = OUTCH13 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR OUTCH13 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD OUTCH13>
+ <RESTL FILE-DATA23 1 = OUTCH13 (TYPE LIST)>
+ <NTHL OUTCH13 1 = STACK (TYPE ATOM)>
+ <DEAD OUTCH13>
+ <CALL '\1aFIND-OBL 2 = OUTCH13>
+ <NTHR 'OBLIST 2 = TEMP84 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP84 1 OUTCH13 (RECORD-TYPE LBIND)>
+ <DEAD TEMP84 OUTCH13>
+ <FRAME '\1aCOMPILE>
+ <NTHR 'AL 2 = OUTCH13 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR OUTCH13 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD OUTCH13>
+ <GEN-LVAL 'CAREFUL = STACK>
+ <GEN-LVAL 'REASONABLE = STACK>
+ <GEN-LVAL 'HAIRY-ANALYSIS = STACK>
+ <GEN-LVAL 'DEBUG-COMPILE = STACK>
+ <CALL '\1aCOMPILE 5 = OUTCH13>
+ <TYPE? OUTCH13 <TYPE-CODE FALSE> + PHRASE450 (DEAD-JUMP OUTCH13)>
+ <FRAME '\1aBUFOUT>
+ <NTHR 'OUTCHAN 2 = TEMP84 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP84 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP84>
+ <CALL '\1aBUFOUT 1>
+ <TYPE? NO-TEMP-FILE20 <TYPE-CODE FALSE> - PHRASE469>
+ <FRAME '\1aTIME>
+ <CALL '\1aTIME 0 = TEMP68>
+ <FRAME '\1aACCESS>
+ <NTHR 'TEMPCH 2 = TEMP84 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP84 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP84>
+ <CALL '\1aACCESS 1 = TEMP114>
+ <FRAME '\1aDUMP-CODE>
+ <PUSH OUTCH13>
+ <DEAD OUTCH13>
+ <NTHR 'TEMPCH 2 = TEMP84 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP84 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP84>
+ <NTHR 'OBLIST 2 = TEMP84 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP84 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP84>
+ <CALL '\1aDUMP-CODE 3>
+ <NTHR 'AL 2 = TEMP84 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP84 1 = TEMP84 (RECORD-TYPE LBIND)>
+ <CONS TEMP84 () = TEMP84>
+ <CONS TEMP114 () = OUTCH13>
+ <DEAD TEMP114>
+ <PUTREST TEMP84 OUTCH13>
+ <FRAME '\1aACCESS>
+ <NTHR 'TEMPCH 2 = TEMP114 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP114 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP114>
+ <CALL '\1aACCESS 1 = TEMP114>
+ <CONS TEMP114 () = TEMP114>
+ <PUTREST OUTCH13 TEMP114>
+ <DEAD OUTCH13>
+ <FRAME '\1aHASH>
+ <NTHR 'AL 2 = OUTCH13 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR OUTCH13 1 = OUTCH13 (RECORD-TYPE LBIND)>
+ <GVAL OUTCH13 = STACK>
+ <DEAD OUTCH13>
+ <CALL '\1aHASH 1 = OUTCH13>
+ <CONS OUTCH13 () = OUTCH13>
+ <PUTREST TEMP114 OUTCH13>
+ <DEAD TEMP114 OUTCH13>
+ <CHTYPE TEMP84 <TYPE-CODE ACCESS-LIST> = TEMP84>
+ <CONS TEMP84 () = TEMP84>
+ <PUTREST TEMP84 NEW-INDEX16>
+ <DEAD NEW-INDEX16>
+ <SET NEW-INDEX16 TEMP84>
+ <DEAD TEMP84>
+ <NTHR 'I/O-TIME 2 = TEMP84 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP84 1 = TEMP84 (RECORD-TYPE LBIND)>
+ <FRAME '\1aTIME>
+ <CALL '\1aTIME 0 = OUTCH13>
+ <SUBF OUTCH13 TEMP68 = OUTCH13 (TYPE FLOAT)>
+ <DEAD TEMP68>
+ <ADDF TEMP84 OUTCH13 = TEMP84 (TYPE FLOAT)>
+ <DEAD OUTCH13>
+ <NTHR 'I/O-TIME 2 = OUTCH13 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR OUTCH13 1 TEMP84 (RECORD-TYPE LBIND)>
+ <DEAD OUTCH13 TEMP84>
+ <JUMP + PHRASE500>
+PHRASE469
+ <NTHR 'AL 2 = TEMP84 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP84 1 = TEMP84 (RECORD-TYPE LBIND)>
+ <CONS TEMP84 () = TEMP84>
+ <CONS OUTCH13 () = OUTCH13>
+ <PUTREST TEMP84 OUTCH13>
+ <FRAME '\1aHASH>
+ <NTHR 'AL 2 = TEMP114 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP114 1 = TEMP114 (RECORD-TYPE LBIND)>
+ <GVAL TEMP114 = STACK>
+ <DEAD TEMP114>
+ <CALL '\1aHASH 1 = TEMP114>
+ <CONS TEMP114 () = TEMP114>
+ <PUTREST OUTCH13 TEMP114>
+ <DEAD OUTCH13 TEMP114>
+ <CONS TEMP84 () = TEMP84>
+ <GVAL 'ALL-OUT = TEMP114 (TYPE LIST)>
+ <PUTREST TEMP84 TEMP114>
+ <DEAD TEMP114>
+ <SETG 'ALL-OUT TEMP84>
+ <DEAD TEMP84>
+ <JUMP + PHRASE500>
+PHRASE450
+ <SETG 'ERRORS-OCCURED 'T>
+ <FRAME '\1aBUFOUT>
+ <NTHR 'OUTCHAN 2 = TEMP84 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP84 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP84>
+ <CALL '\1aBUFOUT 1>
+PHRASE500
+ <UNBIND TEMP272>
+ <DEAD TEMP272>
+ <ADJ -9>
+ <RESTL INCH12 1 = INCH12 (TYPE LIST)>
+ <JUMP + MAP430>
+MAPAP433
+ <GVAL 'STATUS-LINE = INCH12>
+ <TYPE? INCH12 <TYPE-CODE FALSE> + PHRASE505>
+ <DEAD INCH12>
+ <FRAME '\1aUPDATE-STATUS>
+ <PUSH "Writ">
+ <PUSH "None">
+ <PUSH %<>>
+ <PUSH %<>>
+ <CALL '\1aUPDATE-STATUS 4>
+PHRASE505
+ <TYPE? NO-TEMP-FILE20 <TYPE-CODE FALSE> - PHRASE508 (DEAD-FALL TMP26)>
+ <FRAME '\1aCHANNEL-OP>
+ <NTHR 'TEMPCH 2 = INCH12 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR INCH12 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD INCH12>
+ <PUSH 'NAME>
+ <CALL '\1aCHANNEL-OP 2 = TMP26>
+ <FRAME '\1aCLOSE>
+ <NTHR 'TEMPCH 2 = INCH12 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR INCH12 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD INCH12>
+ <CALL '\1aCLOSE 1>
+ <FRAME '\1aOPEN>
+ <PUSH "READ">
+ <PUSH TMP26>
+ <CALL '\1aOPEN 2 = INCH12>
+ <NTHR 'TEMPCH 2 = TEMP273 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP273 1 INCH12 (RECORD-TYPE LBIND)>
+ <DEAD TEMP273 INCH12>
+ <SET INCH12 NEW-INDEX16 (TYPE LIST)>
+ <LOOP>
+MAP519
+ <INTGO>
+ <EMPL? INCH12 + MAPAP535 (DEAD-JUMP INCH12)>
+ <NTHL INCH12 1 = TEMP68>
+ <NTHL TEMP68 1 = TEMP114 (TYPE ATOM)>
+ <NTHR TEMP114 1 = OUTCH13 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG526) (DEAD-JUMP OUTCH13)>
+ <TYPE? OUTCH13 <TYPE-CODE FALSE> + TAG526 (DEAD-JUMP OUTCH13) (DEAD-FALL TEMP114)>
+ <PUTR OUTCH13 1 TEMP68 (RECORD-TYPE GBIND)>
+ <DEAD OUTCH13>
+ <JUMP + TAG527>
+TAG526
+ <FRAME '\1aSETG>
+ <PUSH TEMP114>
+ <DEAD TEMP114>
+ <PUSH TEMP68>
+ <CALL '\1aSETG 2>
+TAG527
+ <NTHR 'TEMPCH 2 = TEMP114 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP114 1 = TEMP114 (RECORD-TYPE LBIND)>
+ <PUTL TEMP68 1 TEMP114>
+ <DEAD TEMP68 TEMP114>
+ <RESTL INCH12 1 = INCH12 (TYPE LIST)>
+ <JUMP + MAP519>
+PHRASE508
+ <GVAL 'ALL-OUT = OUTCH13 (TYPE LIST)>
+ <LOOP>
+MAP532
+ <INTGO>
+ <EMPL? OUTCH13 + MAPAP535 (DEAD-JUMP OUTCH13)>
+ <NTHL OUTCH13 1 = TEMP114>
+ <NTHL TEMP114 1 = TEMP68 (TYPE ATOM)>
+ <RESTL TEMP114 1 = INCH12 (TYPE LIST)>
+ <NTHL INCH12 1 = INCH12>
+ <CHTYPE INCH12 <TYPE-CODE LIST> = INCH12>
+ <RESTL TEMP114 1 = TEMP114 (TYPE LIST)>
+ <RESTL TEMP114 1 = TEMP114 (TYPE LIST)>
+ <NTHL TEMP114 1 = TEMP114>
+ <CONS TEMP114 INCH12 = INCH12>
+ <DEAD TEMP114>
+ <CHTYPE INCH12 <TYPE-CODE INS-LIST> = INCH12>
+ <NTHR TEMP68 1 = TEMP114 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG542) (DEAD-JUMP TEMP114)>
+ <TYPE? TEMP114 <TYPE-CODE FALSE> + TAG542 (DEAD-JUMP TEMP114) (DEAD-FALL TEMP68)>
+ <PUTR TEMP114 1 INCH12 (RECORD-TYPE GBIND)>
+ <DEAD TEMP114 INCH12>
+ <JUMP + TAG543>
+TAG542
+ <FRAME '\1aSETG>
+ <PUSH TEMP68>
+ <DEAD TEMP68>
+ <PUSH INCH12>
+ <DEAD INCH12>
+ <CALL '\1aSETG 2>
+TAG543
+ <RESTL OUTCH13 1 = OUTCH13 (TYPE LIST)>
+ <JUMP + MAP532>
+MAPAP535
+ <GEN-ASSIGNED? 'PRECOMPILED - MAPAP557>
+ <GEN-LVAL 'PRECOMPILED = TEMP114>
+ <TYPE? TEMP114 <TYPE-CODE FALSE> + MAPAP557>
+ <DEAD TEMP114>
+ <SET INCH12 %<> (TYPE FALSE)>
+ <SET TEMP84 PRE-INDEX18 (TYPE LIST)>
+ <LOOP>
+MAP554
+ <INTGO>
+ <EMPL? TEMP84 + MAPAP557 (DEAD-JUMP TEMP84 INCH12)>
+ <NTHL TEMP84 1 = TEMP68>
+ <NTHL TEMP68 1 = OUTCH13>
+ <NTHR OUTCH13 1 = TEMP114 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG565) (DEAD-JUMP TEMP114)>
+ <TYPE? TEMP114 <TYPE-CODE FALSE> + TAG565 (DEAD-JUMP TEMP114)>
+ <NTHR TEMP114 1 = TEMP114 (RECORD-TYPE GBIND)>
+ <TYPE? TEMP114 <TYPE-CODE UNBOUND> - TAG580 (DEAD-JUMP INCH12)>
+ <DEAD TEMP114>
+TAG565
+ <FRAME '\1aMEMBER>
+ <NTHR PN551 3 = STACK (RECORD-TYPE ATOM)>
+ <NTHR OUTCH13 3 = STACK (RECORD-TYPE ATOM)>
+ <CALL '\1aMEMBER 2 = TEMP114>
+ <TYPE? TEMP114 <TYPE-CODE FALSE> + TAG580 (DEAD-JUMP INCH12)>
+ <DEAD TEMP114>
+ <SET TEMP115 3 (TYPE FIX)>
+ <SET TEMP272 TEMP68>
+ <LOOP (TEMP272 VALUE) (TEMP115 VALUE)>
+RESTL569
+ <INTGO>
+ <RESTL TEMP272 1 = TEMP272 (TYPE LIST)>
+ <SUB TEMP115 1 = TEMP115 (TYPE FIX)>
+ <GRTR? TEMP115 0 + RESTL569 (TYPE FIX) (DEAD-FALL TEMP115)>
+ <SET TEMP114 TEMP272>
+ <DEAD TEMP272>
+ <CHTYPE TEMP114 <TYPE-CODE LIST> = TEMP114>
+ <CONS INCH12 () = TEMP272>
+ <EMPL? TEMP114 + COMPERR>
+ <PUTREST TEMP114 TEMP272>
+ <DEAD TEMP114 TEMP272>
+ <SET TEMP114 3 (TYPE FIX)>
+ <SET TEMP272 TEMP68>
+ <LOOP (TEMP272 VALUE) (TEMP114 VALUE)>
+RESTL574
+ <INTGO>
+ <RESTL TEMP272 1 = TEMP272 (TYPE LIST)>
+ <SUB TEMP114 1 = TEMP114 (TYPE FIX)>
+ <GRTR? TEMP114 0 + RESTL574 (TYPE FIX) (DEAD-FALL TEMP114)>
+ <EMPL? TEMP272 + COMPERR>
+ <NTHL TEMP272 1 = TEMP272>
+ <TYPE? TEMP272 <TYPE-CODE FALSE> - PHRASE572 (DEAD-JUMP INCH12)>
+ <DEAD TEMP272>
+ <SET TEMP272 3 (TYPE FIX)>
+ <SET TEMP114 INCH12>
+ <LOOP (TEMP114 VALUE) (TEMP272 VALUE)>
+RESTL575
+ <INTGO>
+ <RESTL TEMP114 1 = TEMP114 (TYPE LIST)>
+ <SUB TEMP272 1 = TEMP272 (TYPE FIX)>
+ <GRTR? TEMP272 0 + RESTL575 (TYPE FIX) (DEAD-FALL TEMP272)>
+ <EMPL? TEMP114 + COMPERR>
+ <NTHL TEMP114 1 = TEMP114>
+ <TYPE? TEMP114 <TYPE-CODE FALSE> + PHRASE572 (DEAD-JUMP INCH12)>
+ <DEAD TEMP114>
+ <SET TEMP114 3 (TYPE FIX)>
+ <SET TEMP272 INCH12>
+ <LOOP (TEMP272 VALUE) (TEMP114 VALUE)>
+RESTL576
+ <INTGO>
+ <RESTL TEMP272 1 = TEMP272 (TYPE LIST)>
+ <SUB TEMP114 1 = TEMP114 (TYPE FIX)>
+ <GRTR? TEMP114 0 + RESTL576 (TYPE FIX) (DEAD-FALL TEMP114)>
+ <EMPL? TEMP272 + COMPERR>
+ <NTHL TEMP272 1 = TEMP272>
+ <SET TEMP114 3 (TYPE FIX)>
+ <SET TEMP115 TEMP68>
+ <LOOP (TEMP115 VALUE) (TEMP114 VALUE)>
+RESTL577
+ <INTGO>
+ <RESTL TEMP115 1 = TEMP115 (TYPE LIST)>
+ <SUB TEMP114 1 = TEMP114 (TYPE FIX)>
+ <GRTR? TEMP114 0 + RESTL577 (TYPE FIX) (DEAD-FALL TEMP114)>
+ <EMPL? TEMP115 + COMPERR>
+ <PUTL TEMP115 1 TEMP272>
+ <DEAD TEMP115 TEMP272>
+ <SET TEMP272 3 (TYPE FIX)>
+ <SET TEMP115 INCH12>
+ <DEAD INCH12>
+ <LOOP (TEMP115 VALUE) (TEMP272 VALUE)>
+RESTL578
+ <INTGO>
+ <RESTL TEMP115 1 = TEMP115 (TYPE LIST)>
+ <SUB TEMP272 1 = TEMP272 (TYPE FIX)>
+ <GRTR? TEMP272 0 + RESTL578 (TYPE FIX) (DEAD-FALL TEMP272)>
+ <EMPL? TEMP115 + COMPERR>
+ <PUTL TEMP115 1 %<>>
+ <DEAD TEMP115>
+PHRASE572
+ <NTHR PN551 1 = TEMP115 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG579) (DEAD-JUMP TEMP115)>
+ <TYPE? TEMP115 <TYPE-CODE FALSE> + TAG579 (DEAD-JUMP TEMP115)>
+ <PUTR TEMP115 1 TEMP68 (RECORD-TYPE GBIND)>
+ <DEAD TEMP115>
+ <JUMP + TAG580>
+TAG579
+ <FRAME '\1aSETG>
+ <PUSH PN551>
+ <PUSH TEMP68>
+ <CALL '\1aSETG 2>
+TAG580
+ <NTHR OUTCH13 1 = TEMP115 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG581) (DEAD-JUMP TEMP115)>
+ <TYPE? TEMP115 <TYPE-CODE FALSE> + TAG581 (DEAD-JUMP TEMP115) (DEAD-FALL PN551)>
+ <PUTR TEMP115 1 TEMP68 (RECORD-TYPE GBIND)>
+ <DEAD TEMP115>
+ <JUMP + TAG582>
+TAG581
+ <FRAME '\1aSETG>
+ <PUSH OUTCH13>
+ <PUSH TEMP68>
+ <CALL '\1aSETG 2 (DEAD-FALL PN551)>
+TAG582
+ <SET PN551 OUTCH13>
+ <DEAD OUTCH13>
+ <PUTL TEMP68 1 PRECH28>
+ <SET INCH12 TEMP68>
+ <DEAD TEMP68>
+ <RESTL TEMP84 1 = TEMP84 (TYPE LIST)>
+ <JUMP + MAP554>
+MAPAP557
+ <NTHR 'NO-BQ 2 = TEMP84 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP84 1 'T (RECORD-TYPE LBIND)>
+ <DEAD TEMP84>
+ <FRAME '\1aTIME>
+ <CALL '\1aTIME 0 = TEMP68>
+ <FRAME '\1aMIMC-GROUP-DUMP>
+ <PUSH OUTFILE8>
+ <RESTL FILE-DATA23 1 = TEMP84 (TYPE LIST)>
+ <DEAD FILE-DATA23>
+ <NTHL TEMP84 1 = STACK (TYPE ATOM)>
+ <DEAD TEMP84>
+ <NTHR 'TEMPCH 2 = TEMP84 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP84 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP84>
+ <CALL '\1aMIMC-GROUP-DUMP 3>
+ <NTHR 'I/O-TIME 2 = TEMP84 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP84 1 = TEMP84 (RECORD-TYPE LBIND)>
+ <FRAME '\1aTIME>
+ <CALL '\1aTIME 0 = TEMP114>
+ <SUBF TEMP114 TEMP68 = TEMP114 (TYPE FLOAT)>
+ <DEAD TEMP68>
+ <ADDF TEMP84 TEMP114 = TEMP84 (TYPE FLOAT)>
+ <DEAD TEMP114>
+ <NTHR 'I/O-TIME 2 = TEMP114 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP114 1 TEMP84 (RECORD-TYPE LBIND)>
+ <DEAD TEMP114 TEMP84>
+ <NTHR 'NO-BQ 2 = TEMP84 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <PUTR TEMP84 1 %<> (RECORD-TYPE LBIND)>
+ <DEAD TEMP84>
+ <FRAME '\1aPRINTSTATS>
+ <CALL '\1aPRINTSTATS 0>
+ <FRAME '\1aOFF>
+ <PUSH TEMP42>
+ <DEAD TEMP42>
+ <CALL '\1aOFF 1>
+ <GVAL 'OUTCHAN = TEMP84>
+ <SETG 'COMPCHAN TEMP84>
+ <DEAD TEMP84>
+ <NTHR 'TEMPCH 2 = TEMP84 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP84 1 = TEMP84 (RECORD-TYPE LBIND)>
+ <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)>
+ <DEAD TEMP84>
+ <NTHR 'TEMPCH 2 = TEMP84 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP84 1 = TEMP84 (RECORD-TYPE LBIND)>
+ <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)>
+ <DEAD TEMP84>
+ <FRAME '\1aCLOSE>
+ <NTHR 'TEMPCH 2 = TEMP84 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP84 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP84>
+ <CALL '\1aCLOSE 1>
+ <FRAME '\1aDELFILE>
+ <PUSH TMP26>
+ <CALL '\1aDELFILE 1 (DEAD-FALL OUTFILE8 INFILE7 PN551 TMP26 REAL-NM2-38 ANY-MIMAS?37 REDO31 PRECH28 NO-TEMP-FILE20 PRE-INDEX18 NEW-INDEX16)>
+PHRASE599
+ <SET TEMP114 "Compilation completed. Your patience is godlike." (TYPE STRING)>
+ <UNBIND TEMP3>
+ <DEAD TEMP3>
+ <ADJ -144>
+ <RETURN TEMP114>
+ <DEAD TEMP114>
+ <END \1aFILE-COMPILE>
+
+#WORD *31446251536*
+<GFCN \1aPACK-FIX ("VALUE" ANY ANY ANY) PCK4 ATM5>
+ <TEMP S6:STRING (WIN7 %<>) PO8 TEMP23>
+ <INTGO>
+ <FRAME '\1aPNAME>
+ <PUSH ATM5>
+ <CALL '\1aPNAME 1 = S6>
+ <FRAME '\1aLOOKUP>
+ <PUSH PCK4>
+ <DEAD PCK4>
+ <GVAL 'PACKAGE-OBLIST = STACK>
+ <CALL '\1aLOOKUP 2 = PO8>
+ <TYPE? PO8 <TYPE-CODE FALSE> + BOOL11>
+ <GVAL PO8 = PO8>
+BOOL11
+ <CHTYPE PO8 <TYPE-CODE LIST> = TEMP23>
+ <LOOP>
+MAP13
+ <INTGO>
+ <EMPL? TEMP23 + MAPAP16>
+ <NTHL TEMP23 1 = WIN7>
+ <FRAME '\1aLOOKUP>
+ <PUSH S6>
+ <PUSH WIN7>
+ <DEAD WIN7>
+ <CALL '\1aLOOKUP 2 = WIN7>
+ <TYPE? WIN7 <TYPE-CODE FALSE> - MAPAP16>
+ <RESTL TEMP23 1 = TEMP23 (TYPE LIST)>
+ <JUMP + MAP13>
+MAPAP16
+ <SET TEMP23 WIN7>
+ <DEAD WIN7>
+ <TYPE? TEMP23 <TYPE-CODE FALSE> - PHRASE31>
+ <TYPE? PO8 <TYPE-CODE FALSE> + PHRASE29>
+ <FRAME '\1aINSERT>
+ <PUSH S6>
+ <DEAD S6>
+ <NTH1 PO8 = STACK>
+ <DEAD PO8>
+ <CALL '\1aINSERT 2 = TEMP23>
+ <RETURN TEMP23>
+ <DEAD TEMP23>
+PHRASE29
+ <SET TEMP23 ATM5>
+ <DEAD ATM5>
+PHRASE31
+ <RETURN TEMP23>
+ <DEAD TEMP23>
+ <END \1aPACK-FIX>
+#WORD *24456502562*
+<GFCN \1aLINEARIZE ("VALUE" LIST LIST) ATOM-LIST4>
+ <TEMP L8:LIST LL9:LIST TEMP14>
+ <INTGO>
+ <CONS 'START ATOM-LIST4 = ATOM-LIST4>
+ <SET L8 ATOM-LIST4>
+ <RESTL L8 1 = LL9 (TYPE LIST)>
+ <LOOP>
+AGAIN10
+ <INTGO>
+ <EMPL? LL9 - PHRASE12 (TYPE LIST)>
+ <RESTL ATOM-LIST4 1 = L8 (TYPE LIST)>
+ <DEAD ATOM-LIST4>
+ <RETURN L8>
+ <DEAD L8>
+PHRASE12
+ <NTHL LL9 1 = TEMP14>
+ <TYPE? TEMP14 <TYPE-CODE LIST> - PHRASE13>
+ <DEAD TEMP14>
+ <NTHL LL9 1 = TEMP14 (TYPE LIST)>
+ <EMPL? L8 + COMPERR>
+ <PUTREST L8 TEMP14>
+ <DEAD TEMP14>
+ <EMPL? L8 + COMPERR>
+ <LOOP (L8 VALUE)>
+TAG15
+ <RESTL L8 1 = TEMP14 (TYPE LIST)>
+ <EMPL? TEMP14 + TAG16>
+ <SET L8 TEMP14>
+ <DEAD TEMP14>
+ <JUMP + TAG15>
+TAG16
+ <RESTL LL9 1 = LL9 (TYPE LIST)>
+ <EMPL? L8 + COMPERR>
+ <PUTREST L8 LL9>
+ <JUMP + AGAIN10>
+PHRASE13
+ <SET L8 LL9>
+ <DEAD LL9>
+ <RESTL L8 1 = LL9 (TYPE LIST)>
+ <JUMP + AGAIN10>
+ <END \1aLINEARIZE>
+#WORD *22712427353*
+<GFCN \1aPRINTSTATS ("VALUE" ANY)>
+ <TEMP TEMP7 TEMP8 TSTARCPU4:FIX L31:LIST>
+ <INTGO>
+ <FRAME '\1aTIME>
+ <CALL '\1aTIME 0 = TEMP7>
+ <ADDF TEMP7 0.5000000 = TEMP7 (TYPE FLOAT)>
+ <FIX TEMP7 = TEMP7 (TYPE FIX)>
+ <GEN-LVAL 'STARCPU = TEMP8>
+ <SUB TEMP7 TEMP8 = TSTARCPU4 (TYPE FIX)>
+ <DEAD TEMP7 TEMP8>
+ <FRAME '\1aRTIME>
+ <CALL '\1aRTIME 0 = TEMP8>
+ <GEN-LVAL 'STARR = TEMP7>
+ <SUB TEMP8 TEMP7 = TEMP8 (TYPE FIX)>
+ <DEAD TEMP7>
+ <NTHR 'REFERENCED 1 = TEMP7 (RECORD-TYPE ATOM) (BRANCH-FALSE + EXIT29)>
+ <TYPE? TEMP7 <TYPE-CODE FALSE> + EXIT29>
+ <NTHR TEMP7 1 = TEMP7 (RECORD-TYPE GBIND)>
+ <TYPE? TEMP7 <TYPE-CODE UNBOUND> + EXIT29>
+ <DEAD TEMP7>
+ <FRAME '\1aPRINC>
+ <GVAL 'CRET = STACK>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRINC>
+ <PUSH "Called unknown atoms:">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRINC>
+ <GVAL 'CRET = STACK>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <GVAL 'REFERENCED = L31>
+ <LOOP>
+AGAIN32
+ <INTGO>
+ <EMPL? L31 + EXIT29 (TYPE LIST)>
+ <FRAME '\1aPRINC>
+ <NTHL L31 1 = STACK>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRINC>
+ <PUSH ": ">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRINC>
+ <RESTL L31 1 = TEMP7 (TYPE LIST)>
+ <NTHL TEMP7 1 = TEMP7>
+ <EQUAL? TEMP7 1 - PHRASE48>
+ <DEAD TEMP7>
+ <SET TEMP7 "once" (TYPE STRING)>
+ <JUMP + PHRASE50>
+PHRASE48
+ <RESTL L31 1 = TEMP7 (TYPE LIST)>
+ <NTHL TEMP7 1 = TEMP7>
+PHRASE50
+ <PUSH TEMP7>
+ <DEAD TEMP7>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRINC>
+ <RESTL L31 1 = TEMP7 (TYPE LIST)>
+ <NTHL TEMP7 1 = TEMP7>
+ <EQUAL? TEMP7 1 - PHRASE56>
+ <DEAD TEMP7>
+ <SET TEMP7 "" (TYPE STRING)>
+ <JUMP + PHRASE57>
+PHRASE56
+ <SET TEMP7 " times" (TYPE STRING)>
+PHRASE57
+ <PUSH TEMP7>
+ <DEAD TEMP7>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRINC>
+ <GVAL 'CRET = STACK>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <RESTL L31 1 = L31 (TYPE LIST)>
+ <RESTL L31 1 = L31 (TYPE LIST)>
+ <JUMP + AGAIN32>
+EXIT29
+ <LESS? TEMP8 0 - PHRASE65 (TYPE FIX)>
+ <ADD TEMP8 86400 = TEMP8 (TYPE FIX)>
+PHRASE65
+ <FRAME '\1aPRINC>
+ <GVAL 'CRET = STACK>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRINC>
+ <GVAL 'CRET = STACK>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRINC>
+ <PUSH "Total time used is">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRINC>
+ <GVAL 'CRET = STACK>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRINC>
+ <PUSH !\ >
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRINTIME>
+ <PUSH TSTARCPU4>
+ <PUSH "CPU time,">
+ <CALL '\1aPRINTIME 2>
+ <FRAME '\1aPRINC>
+ <GVAL 'CRET = STACK>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRINC>
+ <PUSH !\ >
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRINTIME>
+ <GEN-LVAL 'GCTIME = TEMP7>
+ <TYPE? TEMP7 <TYPE-CODE FIX> + TAG107>
+ <FIX TEMP7 = TEMP7 (TYPE FIX)>
+TAG107
+ <PUSH TEMP7>
+ <DEAD TEMP7>
+ <PUSH "garbage collector CPU time,">
+ <CALL '\1aPRINTIME 2>
+ <FRAME '\1aPRINC>
+ <GVAL 'CRET = STACK>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRINC>
+ <PUSH !\ >
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRINTIME>
+ <GEN-LVAL 'I/O-TIME = TEMP7>
+ <TYPE? TEMP7 <TYPE-CODE FIX> + TAG122>
+ <FIX TEMP7 = TEMP7 (TYPE FIX)>
+TAG122
+ <PUSH TEMP7>
+ <DEAD TEMP7>
+ <PUSH "I/O time.">
+ <CALL '\1aPRINTIME 2>
+ <FRAME '\1aPRINC>
+ <GVAL 'CRET = STACK>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRINC>
+ <PUSH !\ >
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRINTIME>
+ <PUSH TEMP8>
+ <PUSH "real time.">
+ <CALL '\1aPRINTIME 2>
+ <FRAME '\1aPRINC>
+ <GVAL 'CRET = STACK>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRINC>
+ <PUSH "CPU utilization is ">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRINC>
+ <FLOAT TEMP8 = TEMP7 (TYPE FLOAT)>
+ <DEAD TEMP8>
+ <FLOAT TSTARCPU4 = TEMP8 (TYPE FLOAT)>
+ <DEAD TSTARCPU4>
+ <DIVF TEMP8 TEMP7 = TEMP7 (TYPE FLOAT)>
+ <DEAD TEMP8>
+ <MULF TEMP7 100.0 = STACK (TYPE FLOAT)>
+ <DEAD TEMP7>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRINC>
+ <PUSH "%.">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRINC>
+ <GVAL 'CRET = STACK>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRINC>
+ <PUSH "Number of garbage collects = ">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRINC>
+ <GVAL 'GC-COUNT = STACK>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRINC>
+ <GVAL 'CRET = STACK>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2 = TEMP7>
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aPRINTSTATS>
+#WORD *26304261537*
+<GFCN \1aPRINTIME ("VALUE" ANY FIX ANY) AMT4 STR5>
+ <TEMP TEMP12>
+ <INTGO>
+ <GRTR? AMT4 3600 - PHRASE7 (TYPE FIX)>
+ <FRAME '\1aPRINC>
+ <DIV AMT4 3600 = STACK (TYPE FIX)>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRINC>
+ <PUSH " hours ">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <MOD AMT4 3600 = AMT4 (TYPE FIX)>
+PHRASE7
+ <GRTR? AMT4 60 - PHRASE20 (TYPE FIX)>
+ <FRAME '\1aPRINC>
+ <DIV AMT4 60 = STACK (TYPE FIX)>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRINC>
+ <PUSH " min. ">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <MOD AMT4 60 = AMT4 (TYPE FIX)>
+PHRASE20
+ <FRAME '\1aPRINC>
+ <PUSH AMT4>
+ <DEAD AMT4>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRINC>
+ <PUSH " sec. ">
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRINC>
+ <PUSH STR5>
+ <DEAD STR5>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2 = TEMP12>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+ <END \1aPRINTIME>
+#WORD *3734566627*
+<GFCN \1aRTIME ("VALUE" FIX)>
+ <TEMP TEMP6:FIX>
+ <INTGO>
+ <FRAME '\1aQTIME>
+ <FRAME '\1aITIME>
+ <CALL '\1aITIME 0 = STACK>
+ <CALL '\1aQTIME 1 = TEMP6>
+ <RETURN TEMP6>
+ <DEAD TEMP6>
+ <END \1aRTIME>
+#WORD *7271202351*
+<GFCN \1aSTATUS ("VALUE" ANY)>
+ <TEMP TEMP3:LBIND TEMP9 FL4:FIX AL-L7 TEMP28 TEMP29>
+ <INTGO>
+ <GETS 'BIND = TEMP3 (TYPE LBIND)>
+ <GEN-LVAL 'OUTCHAN = TEMP9>
+ <BBIND 'OUTCHAN 'CHANNEL 'FIX TEMP9>
+ <DEAD TEMP9>
+ <GEN-ASSIGNED? 'ATOM-LIST - PHRASE13>
+ <GEN-ASSIGNED? 'AL - PHRASE13>
+ <GEN-LVAL 'ATOM-LIST = TEMP9>
+ <CHTYPE TEMP9 <TYPE-CODE LIST> = TEMP9>
+ <LENL TEMP9 = FL4 (TYPE FIX)>
+ <DEAD TEMP9>
+ <FRAME '\1aLENGTH>
+ <GEN-LVAL 'AL = AL-L7>
+ <GEN-LVAL 'ATOM-LIST = TEMP9>
+ <TYPE AL-L7 = TEMP28>
+ <EMPTY? TEMP9 + TAG20>
+ <LOOP (AL-L7 VALUE) (TEMP28 VALUE) (TEMP9 LENGTH VALUE TYPE)>
+TAG22
+ <NTH1 TEMP9 = TEMP29>
+ <TYPE? TEMP29 TEMP28 - TAG23>
+ <VEQUAL? TEMP29 AL-L7 + TAG21>
+ <DEAD TEMP29>
+TAG23
+ <REST1 TEMP9 = TEMP9>
+ <EMPTY? TEMP9 - TAG22>
+TAG20
+ <PUSH %<>>
+ <JUMP + TAG30>
+TAG21
+ <PUSH TEMP9>
+ <DEAD TEMP9>
+TAG30
+ <CALL '\1aLENGTH 1 = TEMP9>
+ <SUB FL4 TEMP9 = TEMP9 (TYPE FIX)>
+ <FRAME '\1aPRINC>
+ <GVAL 'CRET = STACK>
+ <NTHR 'OUTCHAN 2 = TEMP28 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP28 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP28>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRINC>
+ <PUSH "Running: ">
+ <NTHR 'OUTCHAN 2 = TEMP28 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP28 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP28>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRINC>
+ <PUSH TEMP9>
+ <NTHR 'OUTCHAN 2 = TEMP28 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP28 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP28>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRINC>
+ <PUSH " finished, working on ">
+ <NTHR 'OUTCHAN 2 = TEMP28 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP28 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP28>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRIN1>
+ <PUSH AL-L7>
+ <DEAD AL-L7>
+ <NTHR 'OUTCHAN 2 = TEMP28 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP28 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP28>
+ <CALL '\1aPRIN1 2>
+ <FRAME '\1aPRINC>
+ <PUSH ", and ">
+ <NTHR 'OUTCHAN 2 = TEMP29 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP29 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP29>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRINC>
+ <SUB FL4 TEMP9 = TEMP29 (TYPE FIX)>
+ <DEAD FL4 TEMP9>
+ <SUB TEMP29 1 = STACK (TYPE FIX)>
+ <DEAD TEMP29>
+ <NTHR 'OUTCHAN 2 = TEMP29 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP29 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP29>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRINC>
+ <PUSH " to go.">
+ <NTHR 'OUTCHAN 2 = TEMP29 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP29 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP29>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRINTSTATS>
+ <CALL '\1aPRINTSTATS 0 = TEMP29>
+ <JUMP + EXIT86>
+PHRASE13
+ <GEN-ASSIGNED? 'STARCPU - PHRASE60>
+ <GEN-ASSIGNED? 'STARR - PHRASE60>
+ <GEN-ASSIGNED? 'FILE-DATA + PHRASE65>
+ <FRAME '\1aPRINC>
+ <PUSH "
+Files not yet loaded.">
+ <NTHR 'OUTCHAN 2 = TEMP9 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP9 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP9>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRINTSTATS>
+ <CALL '\1aPRINTSTATS 0 = TEMP29>
+ <JUMP + EXIT86>
+PHRASE65
+ <GEN-ASSIGNED? 'ATOM-LIST + PHRASE73>
+ <FRAME '\1aPRINC>
+ <PUSH "
+Files loaded, but functions not yet ordered for compilation.">
+ <NTHR 'OUTCHAN 2 = TEMP9 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP9 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP9>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRINTSTATS>
+ <CALL '\1aPRINTSTATS 0 = TEMP29>
+ <JUMP + EXIT86>
+PHRASE73
+ <FRAME '\1aPRINC>
+ <PUSH "
+Almost done, just cleaning up and writing out final file.">
+ <NTHR 'OUTCHAN 2 = TEMP9 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP9 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP9>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRINTSTATS>
+ <CALL '\1aPRINTSTATS 0 = TEMP29>
+ <JUMP + EXIT86>
+PHRASE60
+ <FRAME '\1aPRINC>
+ <GVAL 'CRET = STACK>
+ <NTHR 'OUTCHAN 2 = TEMP9 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP9 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP9>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRINC>
+ <PUSH "I'm not running.">
+ <NTHR 'OUTCHAN 2 = TEMP9 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP9 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP9>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRINC>
+ <GVAL 'CRET = STACK>
+ <NTHR 'OUTCHAN 2 = TEMP9 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP9 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP9>
+ <CALL '\1aPRINC 2 = TEMP29>
+EXIT86
+ <UNBIND TEMP3>
+ <DEAD TEMP3>
+ <ADJ -9>
+ <RETURN TEMP29>
+ <DEAD TEMP29>
+ <END \1aSTATUS>\r\r
+#WORD *35256670154*
+<GFCN \1aCOUNT-GCS ("VALUE" <OR FALSE FLOAT> ANY ANY ANY) IGN4 TI5 WHICH6>
+ <TEMP TEMP7>
+ <INTGO>
+ <GVAL 'GC-COUNT = TEMP7>
+ <ADD TEMP7 1 = TEMP7 (TYPE FIX)>
+ <SETG 'GC-COUNT TEMP7>
+ <DEAD TEMP7>
+ <GEN-ASSIGNED? 'GCTIME + TAG9>
+ <RETURN %<>>
+TAG9
+ <GEN-LVAL 'GCTIME = TEMP7>
+ <ADDF TEMP7 TI5 = TEMP7 (TYPE FLOAT)>
+ <DEAD TI5>
+ <GEN-SET 'GCTIME TEMP7>
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aCOUNT-GCS>
+<GDECL (GC-COUNT) FIX>
+
+<SETG CRET "
+">
+
+<MANIFEST NOT-COMPILE-TIME>
+
+<SETG TAB <ASCII 9>>
+
+<MANIFEST TAB>
+
+#WORD *32274230237*
+<GFCN \1aPRINCTHEM ("VALUE" FORM "ARGS" LIST) A6>
+ <OPT-DISPATCH 0 %<> OPT4 OPT5>
+OPT4
+ <PUSH ()>
+OPT5
+ <TEMP TEMP9 TEMP19 TEMP17 TEMP16:LIST X21>
+ <INTGO>
+ <FRAME '\1aFORM>
+ <PUSH 'PROG>
+ <PUSH ()>
+ <SET TEMP9 2 (TYPE FIX)>
+ <SET TEMP19 () (TYPE LIST)>
+ <SET TEMP17 () (TYPE LIST)>
+ <SET TEMP16 A6 (TYPE LIST)>
+ <DEAD A6>
+ <LOOP>
+MAP11
+ <INTGO>
+ <EMPL? TEMP16 + MAPAP14>
+ <NTHL TEMP16 1 = X21>
+ <FRAME '\1aFORM>
+ <PUSH 'PRINC>
+ <PUSH X21>
+ <DEAD X21>
+ <CALL '\1aFORM 2 = X21>
+ <CONS X21 () = X21 (TYPE LIST)>
+ <EMPL? TEMP19 - TAG24>
+ <SET TEMP19 X21 (TYPE LIST)>
+ <JUMP + TAG25>
+TAG24
+ <PUTREST TEMP17 X21>
+ <DEAD TEMP17>
+TAG25
+ <SET TEMP17 X21 (TYPE LIST)>
+ <DEAD X21>
+ <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
+ <JUMP + MAP11>
+MAPAP14
+ <LOOP (TEMP19 VALUE) (TEMP9 VALUE)>
+TAG26
+ <INTGO>
+ <EMPL? TEMP19 + TAG7>
+ <NTHL TEMP19 1 = STACK>
+ <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
+ <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
+ <JUMP + TAG26>
+TAG7
+ <CALL '\1aFORM TEMP9 = TEMP9>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END
\1aPRINCTHEM><COND (<AND <GASSIGNED? PRINCTHEM> <NOT <TYPE? ,PRINCTHEM MACRO>>> <SETG PRINCTHEM <CHTYPE (,PRINCTHEM) MACRO>>)>
+
+#WORD *26130077301*
+<GFCN \1aFIND-DEFINE-LOAD ("VALUE" <LIST LIST ATOM> ANY STRING) FNM4 NM2-5>
+ <TEMP TEMP3:LBIND OLD-FLOAD7 TEMP13:LIST>
+ <INTGO>
+ <GETS 'BIND = TEMP3 (TYPE LBIND)>
+ <BBIND 'NM2 'STRING %<> NM2-5>
+ <DEAD NM2-5>
+ <FIXBIND>
+ <FRAME '\1aGROUP-LOAD>
+ <PUSH FNM4>
+ <DEAD FNM4>
+ <CALL '\1aGROUP-LOAD 1 = OLD-FLOAD7>
+ <FRAME '\1aGET-ATOMS>
+ <GEN-LVAL OLD-FLOAD7 = STACK>
+ <CALL '\1aGET-ATOMS 1 = TEMP13>
+ <NTHL TEMP13 1 = TEMP13 (TYPE LIST)>
+ <CONS TEMP13 () = TEMP13>
+ <CONS OLD-FLOAD7 () = OLD-FLOAD7>
+ <PUTREST TEMP13 OLD-FLOAD7>
+ <DEAD OLD-FLOAD7>
+ <UNBIND TEMP3>
+ <DEAD TEMP3>
+ <ADJ -9>
+ <RETURN TEMP13>
+ <DEAD TEMP13>
+ <END \1aFIND-DEFINE-LOAD>
+#WORD *10253350014*
+<GFCN \1aGET-ATOMS ("VALUE" <LIST LIST LIST> LIST) L4>
+ <TEMP (L15:LIST ()) (AL6:LIST ()) MCR10 TEMP21 TT9:FORM ATM11>
+ <INTGO>
+ <SET L15 L4>
+ <LOOP>
+AGAIN16
+ <INTGO>
+ <SET MCR10 %<> (TYPE FALSE)>
+ <EMPL? L15 - PHRASE18 (TYPE LIST)>
+ <CONS L4 () = L15>
+ <DEAD L4>
+ <CONS AL6 L15 = L15>
+ <DEAD AL6>
+ <RETURN L15>
+ <DEAD L15>
+PHRASE18
+ <NTHL L15 1 = TEMP21>
+ <TYPE? TEMP21 <TYPE-CODE FORM> - BOOL37>
+ <DEAD TEMP21>
+ <NTHL L15 1 = TT9 (TYPE FORM)>
+ <EMPL? TT9 + BOOL37 (TYPE FORM)>
+ <NTHL TT9 1 = TEMP21>
+ <EQUAL? TEMP21 'DEFINE + TAG25>
+ <DEAD TEMP21>
+ <SET MCR10 'T (TYPE ATOM)>
+ <NTHL TT9 1 = TEMP21>
+ <EQUAL? TEMP21 'DEFMAC - BOOL37>
+ <DEAD TEMP21>
+TAG25
+ <VEQUAL? MCR10 0 + PHRASE27>
+ <GEN-LVAL 'MACRO-FLUSH = TEMP21>
+ <TYPE? TEMP21 <TYPE-CODE FALSE> + PHRASE27>
+ <DEAD TEMP21>
+ <FRAME '\1aFORM>
+ <PUSH 'DEFINE>
+ <FRAME '\1aATOM>
+ <PUSH "A">
+ <CALL '\1aATOM 1 = STACK>
+ <PUSH ()>
+ <CALL '\1aFORM 3 = TEMP21>
+ <PUTL L15 1 TEMP21 (TYPE FORM)>
+ <DEAD TEMP21>
+ <JUMP + PHRASE33>
+PHRASE27
+ <FRAME '\1aFORM>
+ <NTHL TT9 1 = STACK>
+ <RESTL TT9 1 = TEMP21 (TYPE LIST)>
+ <NTHL TEMP21 1 = STACK>
+ <DEAD TEMP21>
+ <PUSH %<>>
+ <CALL '\1aFORM 3 = TEMP21>
+ <PUTL L15 1 TEMP21 (TYPE FORM)>
+ <DEAD TEMP21>
+PHRASE33
+ <FRAME '\1aGETPROP>
+ <RESTL TT9 1 = TEMP21 (TYPE LIST)>
+ <NTHL TEMP21 1 = STACK>
+ <DEAD TEMP21>
+ <PUSH 'VALUE>
+ <CFRAME = STACK (TYPE FRAME)>
+ <CALL '\1aGETPROP 3 = ATM11>
+ <CFRAME = TEMP21 (TYPE FRAME)>
+ <EQUAL? TEMP21 ATM11 - TAG36>
+ <DEAD TEMP21>
+ <RESTL TT9 1 = TEMP21 (TYPE LIST)>
+ <DEAD TT9>
+ <NTHL TEMP21 1 = ATM11>
+ <DEAD TEMP21>
+TAG36
+ <VEQUAL? MCR10 0 + BOOL38>
+ <DEAD MCR10>
+ <GEN-LVAL 'MACRO-COMPILE = TEMP21>
+ <TYPE? TEMP21 <TYPE-CODE FALSE> + BOOL37>
+ <DEAD TEMP21>
+BOOL38
+ <CONS ATM11 AL6 = AL6>
+ <DEAD ATM11>
+BOOL37
+ <RESTL L15 1 = L15 (TYPE LIST)>
+ <JUMP + AGAIN16>
+ <END \1aGET-ATOMS>
+#WORD *25462422264*
+<GFCN \1aNEW-ERROR ("VALUE" ANY ANY ANY "TUPLE" TUPLE) IGN4 FRM5>
+ <MAKTUP TUP6:TUPLE TEMP3:LBIND TEMP8 TEMP15 = TUP6>
+ <INTGO>
+ <GETS 'BIND = TEMP3 (TYPE LBIND)>
+ <GVAL 'COMPCHAN = TEMP8>
+ <BBIND 'OUTCHAN 'ANY 'FIX TEMP8>
+ <DEAD TEMP8>
+ <EMPUV? TUP6 + PHRASE10 (TYPE TUPLE)>
+ <NTHUV TUP6 1 = TEMP8>
+ <EQUAL? TEMP8 'CONTROL-G!-ERRORS - PHRASE10>
+ <DEAD TEMP8>
+ <FRAME '\1aINT-LEVEL>
+ <PUSH 0>
+ <CALL '\1aINT-LEVEL 1>
+ <FRAME '\1aOFF>
+ <GVAL 'ERROR-HANDLER = STACK>
+ <CALL '\1aOFF 1>
+ <FRAME '\1aERROR>
+ <SET TEMP15 0 (TYPE FIX)>
+ <SET TEMP8 TUP6>
+ <DEAD TUP6>
+ <LOOP (TEMP8 VALUE LENGTH) (TEMP15 VALUE)>
+TAG16
+ <INTGO>
+ <EMPUV? TEMP8 + TAG14>
+ <NTHUV TEMP8 1 = STACK>
+ <RESTUV TEMP8 1 = TEMP8 (TYPE VECTOR)>
+ <ADD TEMP15 1 = TEMP15 (TYPE FIX)>
+ <JUMP + TAG16>
+TAG14
+ <CALL '\1aERROR TEMP15>
+ <DEAD TEMP15>
+ <FRAME '\1aON>
+ <GVAL 'ERROR-HANDLER = STACK>
+ <CALL '\1aON 1>
+ <FRAME '\1aERRET>
+ <PUSH 'T>
+ <PUSH FRM5>
+ <DEAD FRM5>
+ <CALL '\1aERRET 2 = TEMP15>
+ <JUMP + PHRASE20>
+PHRASE10
+ <FRAME '\1aPRINC>
+ <PUSH "
+***********************************************************
+* ERROR ERROR ERROR ERROR ERROR ERROR ERROR *
+***********************************************************
+
+to wit,">
+ <NTHR 'OUTCHAN 2 = TEMP8 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP8 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP8>
+ <CALL '\1aPRINC 2>
+ <CHTYPE TUP6 <TYPE-CODE VECTOR> = TEMP8>
+ <DEAD TUP6>
+ <LOOP>
+MAP25
+ <INTGO>
+ <EMPUV? TEMP8 + MAP24>
+ <FRAME '\1aPRINT>
+ <NTHUV TEMP8 1 = STACK>
+ <NTHR 'OUTCHAN 2 = TEMP15 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP15 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP15>
+ <CALL '\1aPRINT 2>
+ <RESTUV TEMP8 1 = TEMP8 (TYPE VECTOR)>
+ <JUMP + MAP25>
+MAP24
+ <FRAME '\1aPRINC>
+ <PUSH "
+Compilation totally aborted.
+Status at death was:
+
+">
+ <NTHR 'OUTCHAN 2 = TEMP8 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP8 1 = STACK (RECORD-TYPE LBIND)>
+ <DEAD TEMP8>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aSTATUS>
+ <CALL '\1aSTATUS 0 = TEMP15>
+PHRASE20
+ <UNBIND TEMP3>
+ <DEAD TEMP3>
+ <ADJ -9>
+ <RETURN TEMP15>
+ <DEAD TEMP15>
+ <END \1aNEW-ERROR>
+<SETG COMPCHAN ,OUTCHAN>
+
+<COND (<GASSIGNED? NEW-ERROR> <SETG ERROR-HANDLER <HANDLER "ERROR" ,NEW-ERROR 100>>)>
+
+#WORD *30654337604*
+<GFCN \1aPRINSPEC ("VALUE" ANY STRING CHANNEL) STR4 CHAN5>
+ <TEMP TEMP11>
+ <INTGO>
+ <FRAME '\1aPRINC>
+ <PUSH STR4>
+ <DEAD STR4>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRINC>
+ <FRAME '\1aCHANNEL-OP>
+ <PUSH CHAN5>
+ <DEAD CHAN5>
+ <PUSH 'NAME>
+ <CALL '\1aCHANNEL-OP 2 = STACK>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <FRAME '\1aPRINC>
+ <GVAL 'CRET = STACK>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2 = TEMP11>
+ <RETURN TEMP11>
+ <DEAD TEMP11>
+ <END \1aPRINSPEC>
+#WORD *2155306216*
+<GFCN \1aDO-AND-CHECK ("VALUE" ANY ANY ANY ANY ANY ANY ANY) STR14 STR25 ATM6 INCH7 OUTCH8 FOOCH9>
+ <TEMP TEMP17 NEW-CHAN10 TEMP60:LBIND>
+ <INTGO>
+ <GEN-ASSIGNED? ATM6 + TAG16>
+ <RETURN %<>>
+TAG16
+ <GEN-LVAL ATM6 = TEMP17>
+ <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE58>
+ <FRAME '\1aPRINC>
+ <PUSH STR14>
+ <DEAD STR14>
+ <GEN-LVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2>
+ <GEN-LVAL ATM6 = TEMP17>
+ <TYPE? TEMP17 <TYPE-CODE CHANNEL> - PHRASE26>
+ <DEAD TEMP17>
+ <GEN-LVAL ATM6 = NEW-CHAN10>
+ <DEAD ATM6>
+ <RETURN NEW-CHAN10>
+ <DEAD NEW-CHAN10>
+PHRASE26
+ <GEN-LVAL ATM6 = TEMP17>
+ <TYPE? TEMP17 <TYPE-CODE STRING> - PHRASE32>
+ <DEAD TEMP17>
+ <FRAME '\1aFILE-EXISTS?>
+ <GEN-LVAL ATM6 = STACK>
+ <CALL '\1aFILE-EXISTS? 1 = TEMP17>
+ <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE36>
+ <DEAD TEMP17>
+ <FRAME '\1aDELFILE>
+ <GEN-LVAL ATM6 = STACK>
+ <CALL '\1aDELFILE 1>
+PHRASE36
+ <FRAME '\1aOPEN>
+ <PUSH "PRINT">
+ <GEN-LVAL ATM6 = STACK>
+ <DEAD ATM6>
+ <CALL '\1aOPEN 2 = NEW-CHAN10>
+ <SET TEMP17 NEW-CHAN10>
+ <TYPE? TEMP17 <TYPE-CODE FALSE> - PHRASE58>
+ <FRAME '\1aCLOSE>
+ <PUSH INCH7>
+ <DEAD INCH7>
+ <CALL '\1aCLOSE 1>
+ <FRAME '\1aCLOSE>
+ <PUSH OUTCH8>
+ <DEAD OUTCH8>
+ <CALL '\1aCLOSE 1>
+ <TYPE? FOOCH9 <TYPE-CODE FALSE> + BOOL52>
+ <FRAME '\1aCLOSE>
+ <PUSH FOOCH9>
+ <DEAD FOOCH9>
+ <CALL '\1aCLOSE 1>
+BOOL52
+ <FRAME '\1aRETURN>
+ <PUSH NEW-CHAN10>
+ <DEAD NEW-CHAN10>
+ <GEN-LVAL 'FCEX = STACK>
+ <CALL '\1aRETURN 2 = TEMP17>
+ <RETURN TEMP17>
+ <DEAD TEMP17>
+PHRASE32
+ <GETS 'BIND = TEMP60 (TYPE LBIND)>
+ <FRAME '\1aCHANNEL-OP>
+ <PUSH INCH7>
+ <PUSH 'NM1>
+ <CALL '\1aCHANNEL-OP 2 = TEMP17>
+ <BBIND 'NM1 'STRING 'FIX TEMP17>
+ <DEAD TEMP17>
+ <BBIND 'NM2 'STRING 'FIX STR25>
+ <DEAD STR25>
+ <FRAME '\1aFILE-EXISTS?>
+ <PUSH "">
+ <CALL '\1aFILE-EXISTS? 1 = TEMP17>
+ <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE67>
+ <DEAD TEMP17>
+ <FRAME '\1aDELFILE>
+ <PUSH "">
+ <CALL '\1aDELFILE 1>
+PHRASE67
+ <FRAME '\1aOPEN>
+ <PUSH "PRINT">
+ <PUSH "">
+ <CALL '\1aOPEN 2 = NEW-CHAN10>
+ <TYPE? NEW-CHAN10 <TYPE-CODE FALSE> - PHRASE72>
+ <FRAME '\1aCLOSE>
+ <PUSH INCH7>
+ <DEAD INCH7>
+ <CALL '\1aCLOSE 1>
+ <FRAME '\1aCLOSE>
+ <PUSH OUTCH8>
+ <DEAD OUTCH8>
+ <CALL '\1aCLOSE 1>
+ <TYPE? FOOCH9 <TYPE-CODE FALSE> + BOOL75>
+ <FRAME '\1aCLOSE>
+ <PUSH FOOCH9>
+ <DEAD FOOCH9>
+ <CALL '\1aCLOSE 1>
+BOOL75
+ <FRAME '\1aRETURN>
+ <PUSH NEW-CHAN10>
+ <GEN-LVAL 'FCEX = STACK>
+ <CALL '\1aRETURN 2>
+PHRASE72
+ <UNBIND TEMP60>
+ <DEAD TEMP60>
+ <ADJ -18>
+ <FRAME '\1aPRINSPEC>
+ <PUSH "on ">
+ <PUSH NEW-CHAN10>
+ <CALL '\1aPRINSPEC 2>
+ <SET TEMP17 NEW-CHAN10>
+ <DEAD NEW-CHAN10>
+PHRASE58
+ <RETURN TEMP17>
+ <DEAD TEMP17>
+ <END \1aDO-AND-CHECK>
+#WORD *16727036735*
+<GFCN \1aFLUSH-COMMENTS ("VALUE" ATOM)>
+ <TEMP A4 B5 TEMP15>
+ <INTGO>
+ <FRAME '\1aASSOCIATIONS>
+ <CALL '\1aASSOCIATIONS 0 = A4>
+ <LOOP>
+AGAIN10
+ <INTGO>
+ <FRAME '\1aNEXT>
+ <PUSH A4>
+ <CALL '\1aNEXT 1 = B5>
+ <FRAME '\1aINDICATOR>
+ <PUSH A4>
+ <CALL '\1aINDICATOR 1 = TEMP15>
+ <EQUAL? TEMP15 'COMMENT - PHRASE13>
+ <DEAD TEMP15>
+ <FRAME '\1aPUTPROP>
+ <FRAME '\1aITEM>
+ <PUSH A4>
+ <DEAD A4>
+ <CALL '\1aITEM 1 = STACK>
+ <PUSH 'COMMENT>
+ <CALL '\1aPUTPROP 2>
+PHRASE13
+ <SET A4 B5>
+ <DEAD B5>
+ <TYPE? A4 <TYPE-CODE FALSE> - AGAIN10>
+ <RETURN 'T>
+ <END \1aFLUSH-COMMENTS>
+"GETORDER FUNCTIONS"
+
+#WORD *405766511*
+<GFCN \1aCHECK ("VALUE" <OR ATOM FALSE> ATOM) ATM4>
+ <TEMP TEMP9>
+ <INTGO>
+ <NTHR ATM4 1 = TEMP9 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG8)>
+ <TYPE? TEMP9 <TYPE-CODE FALSE> + TAG8>
+ <NTHR TEMP9 1 = TEMP9 (RECORD-TYPE GBIND)>
+ <TYPE? TEMP9 <TYPE-CODE UNBOUND> - TAG7>
+ <DEAD TEMP9>
+TAG8
+ <RETURN %<>>
+TAG7
+ <GVAL ATM4 = TEMP9>
+ <TYPE? TEMP9 <TYPE-CODE FUNCTION> - TAG12>
+ <DEAD TEMP9>
+ <RETURN 'FUNCTION>
+TAG12
+ <GVAL ATM4 = TEMP9>
+ <DEAD ATM4>
+ <TYPE? TEMP9 <TYPE-CODE MACRO> - TAG14>
+ <DEAD TEMP9>
+ <RETURN 'MACRO>
+TAG14
+ <RETURN %<>>
+ <END \1aCHECK>
+#WORD *25017426315*
+<GFCN \1aPREV ("VALUE" LIST LIST LIST) LS4 SUBLS5>
+ <TEMP TEMP6:FIX TEMP7>
+ <INTGO>
+ <LENL LS4 = TEMP6 (TYPE FIX)>
+ <LENL SUBLS5 = TEMP7 (TYPE FIX)>
+ <DEAD SUBLS5>
+ <SUB TEMP6 TEMP7 = TEMP6 (TYPE FIX)>
+ <DEAD TEMP7>
+ <SUB TEMP6 1 = TEMP6 (TYPE FIX)>
+ <SET TEMP7 LS4>
+ <DEAD LS4>
+ <GRTR? TEMP6 0 - RESTL9 (TYPE FIX)>
+ <LOOP (TEMP7 VALUE) (TEMP6 VALUE)>
+RESTL8
+ <INTGO>
+ <EMPL? TEMP7 + COMPERR>
+ <RESTL TEMP7 1 = TEMP7 (TYPE LIST)>
+ <SUB TEMP6 1 = TEMP6 (TYPE FIX)>
+ <GRTR? TEMP6 0 + RESTL8 (TYPE FIX)>
+RESTL9
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aPREV>
+#WORD *37137746402*
+<GFCN \1aSPLOUTEM ("VALUE" ATOM LIST ATOM) FL4 OU5>
+ <TEMP TEMP6 TEMP18>
+ <INTGO>
+ <LOOP>
+AGAIN10
+ <INTGO>
+ <EMPL? FL4 - PHRASE12 (TYPE LIST)>
+ <RETURN 'T>
+PHRASE12
+ <NTHL FL4 1 = TEMP6>
+ <EMPTY? TEMP6 + PHRASE21>
+ <LOOP (OU5 VALUE) (TEMP6 LENGTH VALUE TYPE)>
+TAG16
+ <NTH1 TEMP6 = TEMP18>
+ <TYPE? TEMP18 <TYPE-CODE ATOM> - TAG17>
+ <VEQUAL? TEMP18 OU5 + TAG15>
+ <DEAD TEMP18>
+TAG17
+ <REST1 TEMP6 = TEMP6>
+ <EMPTY? TEMP6 - TAG16>
+ <JUMP + PHRASE21>
+TAG15
+ <NTHL FL4 1 = TEMP18>
+ <VEQUAL? TEMP18 TEMP6 - PHRASE20>
+ <DEAD TEMP18>
+ <RESTL TEMP6 1 = TEMP18 (TYPE LIST)>
+ <DEAD TEMP6>
+ <CHTYPE TEMP18 <TYPE-CODE LIST> = TEMP18>
+ <PUTL FL4 1 TEMP18>
+ <DEAD TEMP18>
+ <JUMP + PHRASE21>
+PHRASE20
+ <FRAME '\1aPREV>
+ <NTHL FL4 1 = STACK (TYPE LIST)>
+ <PUSH TEMP6>
+ <CALL '\1aPREV 2 = TEMP18>
+ <RESTL TEMP6 1 = TEMP6 (TYPE LIST)>
+ <EMPL? TEMP18 + COMPERR>
+ <PUTREST TEMP18 TEMP6>
+ <DEAD TEMP18 TEMP6>
+PHRASE21
+ <RESTL FL4 1 = FL4 (TYPE LIST)>
+ <RESTL FL4 1 = FL4 (TYPE LIST)>
+ <JUMP + AGAIN10>
+ <END \1aSPLOUTEM>
+#WORD *25162027667*
+<GFCN \1aREVERSE ("VALUE" LIST LIST) LS4>
+ <TEMP RES8:LIST TEM9:LIST>
+ <INTGO>
+ <SET RES8 () (TYPE LIST)>
+ <LOOP>
+AGAIN10
+ <INTGO>
+ <EMPL? LS4 - PHRASE12 (TYPE LIST)>
+ <RETURN RES8>
+ <DEAD RES8>
+PHRASE12
+ <RESTL LS4 1 = TEM9 (TYPE LIST)>
+ <PUTREST LS4 RES8>
+ <DEAD RES8>
+ <SET RES8 LS4>
+ <DEAD LS4>
+ <SET LS4 TEM9>
+ <DEAD TEM9>
+ <JUMP + AGAIN10>
+ <END \1aREVERSE>
+#WORD *36654200202*
+<GFCN \1aORDEREM ("VALUE" <LIST [REST <OR ATOM LIST>]> LIST) FLIST4>
+ <TEMP RES9:LIST TEMP5 TEMP19 TEMP25 TEMP24:LIST TEMP43:LIST>
+ <INTGO>
+ <SET RES9 () (TYPE LIST)>
+ <LOOP>
+AGAIN10
+ <INTGO>
+ <EMPL? FLIST4 - PHRASE12 (TYPE LIST)>
+ <FRAME '\1aREVERSE>
+ <PUSH RES9>
+ <DEAD RES9>
+ <CALL '\1aREVERSE 1 = TEMP5>
+ <RETURN TEMP5>
+ <DEAD TEMP5>
+PHRASE12
+ <SET TEMP5 FLIST4>
+ <LOOP (TEMP5 VALUE)>
+TAG17
+ <NTHL TEMP5 1 = TEMP19>
+ <TYPE? TEMP19 <TYPE-CODE LIST> - TAG18>
+ <VEQUAL? TEMP19 () + TAG16>
+ <DEAD TEMP19>
+TAG18
+ <RESTL TEMP5 1 = TEMP5 (TYPE LIST)>
+ <EMPL? TEMP5 - TAG17>
+ <JUMP + PHRASE14>
+TAG16
+ <RESTL TEMP5 1 = TEMP19 (TYPE LIST)>
+ <NTHL TEMP19 1 = TEMP19>
+ <CONS TEMP19 RES9 = RES9>
+ <DEAD TEMP19>
+ <VEQUAL? TEMP5 FLIST4 - PHRASE21>
+ <RESTL FLIST4 1 = FLIST4 (TYPE LIST)>
+ <RESTL FLIST4 1 = FLIST4 (TYPE LIST)>
+ <JUMP + PHRASE22>
+PHRASE21
+ <FRAME '\1aPREV>
+ <PUSH FLIST4>
+ <PUSH TEMP5>
+ <CALL '\1aPREV 2 = TEMP19>
+ <RESTL TEMP5 1 = TEMP25 (TYPE LIST)>
+ <DEAD TEMP5>
+ <RESTL TEMP25 1 = TEMP24 (TYPE LIST)>
+ <DEAD TEMP25>
+ <EMPL? TEMP19 + COMPERR>
+ <PUTREST TEMP19 TEMP24>
+ <DEAD TEMP19 TEMP24>
+PHRASE22
+ <FRAME '\1aSPLOUTEM>
+ <PUSH FLIST4>
+ <NTHL RES9 1 = STACK (TYPE ATOM)>
+ <CALL '\1aSPLOUTEM 2>
+ <JUMP + AGAIN10>
+PHRASE14
+ <SET TEMP24 () (TYPE LIST)>
+ <LOOP>
+AGAIN31
+ <INTGO>
+ <SET TEMP5 %<> (TYPE FALSE)>
+ <SET TEMP19 FLIST4>
+ <LOOP>
+AGAIN34
+ <INTGO>
+ <FRAME '\1aCALLME>
+ <RESTL TEMP19 1 = TEMP25 (TYPE LIST)>
+ <NTHL TEMP25 1 = STACK (TYPE ATOM)>
+ <DEAD TEMP25>
+ <PUSH FLIST4>
+ <CALL '\1aCALLME 2 = TEMP25>
+ <VEQUAL? TEMP25 0 - PHRASE40>
+ <DEAD TEMP25>
+ <SET TEMP5 'T (TYPE ATOM)>
+ <RESTL TEMP19 1 = TEMP25 (TYPE LIST)>
+ <NTHL TEMP25 1 = TEMP25>
+ <CONS TEMP25 TEMP24 = TEMP24>
+ <DEAD TEMP25>
+ <VEQUAL? FLIST4 TEMP19 - PHRASE39>
+ <RESTL FLIST4 1 = FLIST4 (TYPE LIST)>
+ <RESTL FLIST4 1 = FLIST4 (TYPE LIST)>
+ <JUMP + PHRASE40>
+PHRASE39
+ <FRAME '\1aPREV>
+ <PUSH FLIST4>
+ <PUSH TEMP19>
+ <CALL '\1aPREV 2 = TEMP25>
+ <RESTL TEMP19 1 = TEMP43 (TYPE LIST)>
+ <RESTL TEMP43 1 = TEMP43 (TYPE LIST)>
+ <EMPL? TEMP25 + COMPERR>
+ <PUTREST TEMP25 TEMP43>
+ <DEAD TEMP25 TEMP43>
+PHRASE40
+ <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
+ <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
+ <EMPL? TEMP19 - AGAIN34 (TYPE LIST)>
+ <VEQUAL? TEMP5 0 - AGAIN31>
+ <DEAD TEMP5>
+ <EMPL? FLIST4 + PHRASE47 (TYPE LIST)>
+ <FRAME '\1aCORDER>
+ <PUSH FLIST4>
+ <DEAD FLIST4>
+ <CALL '\1aCORDER 1 = FLIST4>
+PHRASE47
+ <FRAME '\1aREVERSE>
+ <PUSH RES9>
+ <CALL '\1aREVERSE 1 = TEMP5>
+ <EMPL? FLIST4 + RESTL58 (TYPE LIST)>
+ <EMPL? RES9 - PHRASE53 (TYPE LIST)>
+ <SET TEMP5 FLIST4>
+ <SET RES9 FLIST4>
+ <DEAD FLIST4>
+ <EMPL? RES9 + COMPERR>
+ <LOOP (RES9 VALUE)>
+TAG54
+ <RESTL RES9 1 = TEMP25 (TYPE LIST)>
+ <EMPL? TEMP25 + RESTL58>
+ <SET RES9 TEMP25>
+ <DEAD TEMP25>
+ <JUMP + TAG54>
+PHRASE53
+ <PUTREST RES9 FLIST4>
+ <LENL FLIST4 = TEMP25 (TYPE FIX)>
+ <DEAD FLIST4>
+ <GRTR? TEMP25 0 - RESTL58 (TYPE FIX)>
+ <LOOP (RES9 VALUE) (TEMP25 VALUE)>
+RESTL57
+ <INTGO>
+ <EMPL? RES9 + COMPERR>
+ <RESTL RES9 1 = RES9 (TYPE LIST)>
+ <SUB TEMP25 1 = TEMP25 (TYPE FIX)>
+ <GRTR? TEMP25 0 + RESTL57 (TYPE FIX)>
+RESTL58
+ <EMPL? RES9 - PHRASE60 (TYPE LIST)>
+ <RETURN TEMP24>
+ <DEAD TEMP24>
+PHRASE60
+ <PUTREST RES9 TEMP24>
+ <DEAD RES9 TEMP24>
+ <RETURN TEMP5>
+ <DEAD TEMP5>
+ <END \1aORDEREM>
+#WORD *6020446067*
+<GFCN \1aCALLME ("VALUE" <OR ATOM !<FALSE>> ATOM <LIST [REST <LIST [REST ATOM]> ATOM]>) ATM4 LST5>
+ <TEMP TEMP6 TEMP15:LIST>
+ <INTGO>
+ <LOOP>
+AGAIN9
+ <INTGO>
+ <EMPL? LST5 - BOOL10 (TYPE LIST)>
+ <RETURN %<>>
+BOOL10
+ <NTHL LST5 1 = TEMP15 (TYPE LIST)>
+ <EMPL? TEMP15 + BOOL11>
+ <LOOP (ATM4 VALUE) (TEMP15 VALUE)>
+TAG13
+ <NTHL TEMP15 1 = TEMP6>
+ <VEQUAL? TEMP6 ATM4 + TAG12>
+ <DEAD TEMP6>
+ <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
+ <EMPL? TEMP15 - TAG13>
+ <JUMP + BOOL11>
+TAG12
+ <RETURN 'T>
+BOOL11
+ <RESTL LST5 1 = LST5 (TYPE LIST)>
+ <RESTL LST5 1 = LST5 (TYPE LIST)>
+ <JUMP + AGAIN9>
+ <END \1aCALLME>
+#WORD *17602443075*
+<GFCN \1aCORDER ("VALUE" LIST <LIST [REST <LIST [REST ATOM]> ATOM]>) LST4>
+ <TEMP (RES5:LIST ()) LS8:LIST TEMP12 SHORT18 LST20:LIST>
+ <INTGO>
+ <SET LS8 LST4>
+ <LOOP>
+AGAIN9
+ <INTGO>
+ <EMPL? LS8 + EXIT6 (TYPE LIST)>
+ <FRAME '\1aALLREACH>
+ <RESTL LS8 1 = TEMP12 (TYPE LIST)>
+ <NTHL TEMP12 1 = TEMP12 (TYPE ATOM)>
+ <CONS TEMP12 () = STACK>
+ <DEAD TEMP12>
+ <NTHL LS8 1 = STACK (TYPE LIST)>
+ <PUSH LST4>
+ <CALL '\1aALLREACH 3 = TEMP12>
+ <PUTL LS8 1 TEMP12 (TYPE LIST)>
+ <DEAD TEMP12>
+ <RESTL LS8 1 = LS8 (TYPE LIST)>
+ <RESTL LS8 1 = LS8 (TYPE LIST)>
+ <JUMP + AGAIN9>
+EXIT6
+ <SET LS8 () (TYPE LIST)>
+ <LOOP>
+AGAIN15
+ <INTGO>
+ <SET SHORT18 %<CHTYPE <MIN> FIX> (TYPE FIX)>
+ <SET LST20 LST4>
+ <LOOP>
+AGAIN21
+ <INTGO>
+ <EMPL? LST20 + EXIT16 (TYPE LIST)>
+ <NTHL LST20 1 = TEMP12 (TYPE LIST)>
+ <LENL TEMP12 = TEMP12 (TYPE FIX)>
+ <LESS? TEMP12 SHORT18 - PHRASE24 (TYPE FIX)>
+ <SET SHORT18 TEMP12>
+ <DEAD TEMP12>
+ <SET LS8 LST20>
+PHRASE24
+ <RESTL LST20 1 = LST20 (TYPE LIST)>
+ <RESTL LST20 1 = LST20 (TYPE LIST)>
+ <JUMP + AGAIN21>
+EXIT16
+ <NTHL LS8 1 = TEMP12 (TYPE LIST)>
+ <EMPL? TEMP12 + PHRASE27>
+ <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
+ <EMPL? TEMP12 - PHRASE27>
+ <DEAD TEMP12>
+ <NTHL LS8 1 = TEMP12 (TYPE LIST)>
+ <NTHL TEMP12 1 = TEMP12>
+ <JUMP + PHRASE28>
+PHRASE27
+ <NTHL LS8 1 = TEMP12 (TYPE LIST)>
+PHRASE28
+ <CONS TEMP12 RES5 = RES5>
+ <DEAD TEMP12>
+ <NTHL LS8 1 = LST20 (TYPE LIST)>
+ <LOOP>
+MAP30
+ <INTGO>
+ <EMPL? LST20 + MAPAP33>
+ <NTHL LST20 1 = TEMP12>
+ <FRAME '\1aSPLOUTEM>
+ <PUSH LST4>
+ <PUSH TEMP12>
+ <DEAD TEMP12>
+ <CALL '\1aSPLOUTEM 2>
+ <RESTL LST20 1 = LST20 (TYPE LIST)>
+ <JUMP + MAP30>
+MAPAP33
+ <LOOP>
+AGAIN44
+ <INTGO>
+ <SET TEMP12 LST4>
+ <EMPL? TEMP12 + EXIT42>
+ <LOOP (TEMP12 VALUE)>
+TAG49
+ <NTHL TEMP12 1 = SHORT18>
+ <TYPE? SHORT18 <TYPE-CODE LIST> - TAG50>
+ <VEQUAL? SHORT18 () + TAG48>
+ <DEAD SHORT18>
+TAG50
+ <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
+ <EMPL? TEMP12 - TAG49>
+ <JUMP + EXIT42>
+TAG48
+ <VEQUAL? TEMP12 LST4 - PHRASE52>
+ <RESTL TEMP12 1 = LST20 (TYPE LIST)>
+ <DEAD TEMP12>
+ <RESTL LST20 1 = LST4 (TYPE LIST)>
+ <DEAD LST20>
+ <JUMP + AGAIN44>
+PHRASE52
+ <FRAME '\1aPREV>
+ <PUSH LST4>
+ <PUSH TEMP12>
+ <CALL '\1aPREV 2 = LST20>
+ <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
+ <RESTL TEMP12 1 = SHORT18 (TYPE LIST)>
+ <DEAD TEMP12>
+ <EMPL? LST20 + COMPERR>
+ <PUTREST LST20 SHORT18>
+ <DEAD LST20 SHORT18>
+ <JUMP + AGAIN44>
+EXIT42
+ <EMPL? LST4 - AGAIN15 (TYPE LIST)>
+ <FRAME '\1aREVERSE>
+ <PUSH RES5>
+ <DEAD RES5>
+ <CALL '\1aREVERSE 1 = LST20>
+ <RETURN LST20>
+ <DEAD LST20>
+ <END \1aCORDER>
+#WORD *35636616655*
+<GFCN \1aALLREACH ("VALUE" <LIST [REST ATOM]> <LIST [REST ATOM]> <LIST [REST ATOM]> <LIST [REST <LIST [REST ATOM]> ATOM]>) LATM4 LST5 MLST6>
+ <TEMP TEMP13:LIST ATM18:ATOM TEMP23 TEMP24>
+ <INTGO>
+ <SET TEMP13 LST5 (TYPE LIST)>
+ <DEAD LST5>
+ <LOOP>
+MAP8
+ <INTGO>
+ <EMPL? TEMP13 + MAPAP11>
+ <NTHL TEMP13 1 = ATM18>
+ <SET TEMP23 LATM4>
+ <EMPL? TEMP23 + TAG20>
+ <LOOP (ATM18 VALUE) (TEMP23 VALUE)>
+TAG21
+ <NTHL TEMP23 1 = TEMP24>
+ <VEQUAL? TEMP24 ATM18 + PHRASE25>
+ <DEAD TEMP24>
+ <RESTL TEMP23 1 = TEMP23 (TYPE LIST)>
+ <EMPL? TEMP23 - TAG21>
+TAG20
+ <FRAME '\1aALLREACH>
+ <CONS ATM18 LATM4 = STACK>
+ <DEAD LATM4>
+ <SET TEMP23 MLST6>
+ <LOOP>
+AGAIN29
+ <INTGO>
+ <RESTL TEMP23 1 = TEMP24 (TYPE LIST)>
+ <NTHL TEMP24 1 = TEMP24 (TYPE ATOM)>
+ <VEQUAL? TEMP24 ATM18 - BOOL30>
+ <DEAD TEMP24>
+ <NTHL TEMP23 1 = STACK (TYPE LIST)>
+ <DEAD TEMP23>
+ <JUMP + EXIT27>
+BOOL30
+ <RESTL TEMP23 1 = TEMP23 (TYPE LIST)>
+ <RESTL TEMP23 1 = TEMP23 (TYPE LIST)>
+ <JUMP + AGAIN29>
+EXIT27
+ <PUSH MLST6>
+ <CALL '\1aALLREACH 3 = LATM4>
+PHRASE25
+ <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
+ <JUMP + MAP8>
+MAPAP11
+ <RETURN LATM4>
+ <DEAD LATM4>
+ <END \1aALLREACH>
+#WORD *35772236430*
+<GFCN \1aREMEMIT ("VALUE" <OR ATOM <LIST ATOM [REST ATOM]>> ATOM) ATM4>
+ <TEMP TEMP8 TEMP6>
+ <INTGO>
+ <GEN-LVAL 'FUNC = TEMP8>
+ <VEQUAL? TEMP8 ATM4 - TAG7>
+ <DEAD TEMP8>
+ <RETURN 'T>
+TAG7
+ <GEN-LVAL 'FUNCL = TEMP6>
+ <EMPL? TEMP6 + TAG12>
+ <LOOP (ATM4 VALUE) (TEMP6 VALUE)>
+TAG13
+ <NTHL TEMP6 1 = TEMP8>
+ <VEQUAL? TEMP8 ATM4 + BOOL5>
+ <DEAD TEMP8>
+ <RESTL TEMP6 1 = TEMP6 (TYPE LIST)>
+ <EMPL? TEMP6 - TAG13>
+TAG12
+ <GEN-LVAL 'FUNCL = TEMP8>
+ <CONS ATM4 TEMP8 = TEMP6>
+ <DEAD ATM4 TEMP8>
+ <GEN-SET 'FUNCL TEMP6>
+BOOL5
+ <RETURN TEMP6>
+ <DEAD TEMP6>
+ <END \1aREMEMIT>
+#WORD *6322165711*
+<GFCN \1aFINDREC ("VALUE" ANY ANY) OBJ4>
+ <TEMP (FM5 <>) TEMP7 TEMP19>
+ <INTGO>
+ <MONAD? OBJ4 - TAG8>
+ <SET TEMP7 'T (TYPE ATOM)>
+ <JUMP + TAG9>
+TAG8
+ <SET TEMP7 %<> (TYPE FALSE)>
+TAG9
+ <VEQUAL? TEMP7 0 - MAP56>
+ <TYPE? OBJ4 <TYPE-CODE FORM> + TAG12>
+ <TYPE? OBJ4 <TYPE-CODE SEGMENT> - PHRASE10>
+TAG12
+ <CHTYPE OBJ4 <TYPE-CODE FORM> = FM5>
+ <EMPL? FM5 + PHRASE10 (TYPE FORM)>
+ <NTHL FM5 1 = TEMP7>
+ <TYPE? TEMP7 <TYPE-CODE ATOM> - PHRASE14>
+ <DEAD TEMP7>
+ <NTHL FM5 1 = TEMP7 (TYPE ATOM)>
+ <NTHR TEMP7 1 = TEMP7 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE14)>
+ <TYPE? TEMP7 <TYPE-CODE FALSE> + PHRASE14>
+ <NTHR TEMP7 1 = TEMP7 (RECORD-TYPE GBIND)>
+ <TYPE? TEMP7 <TYPE-CODE UNBOUND> + PHRASE14>
+ <DEAD TEMP7>
+ <NTHL FM5 1 = TEMP7 (TYPE ATOM)>
+ <GVAL TEMP7 = TEMP19>
+ <DEAD TEMP7>
+ <TYPE? TEMP19 <TYPE-CODE FUNCTION> - BOOL18>
+ <DEAD TEMP19>
+ <FRAME '\1aREMEMIT>
+ <NTHL FM5 1 = STACK (TYPE ATOM)>
+ <CALL '\1aREMEMIT 1>
+BOOL18
+ <NTHL FM5 1 = TEMP19 (TYPE ATOM)>
+ <GVAL TEMP19 = TEMP7>
+ <DEAD TEMP19>
+ <TYPE? TEMP7 <TYPE-CODE MACRO> - BOOL21>
+ <DEAD TEMP7>
+ <NTHL FM5 1 = TEMP7 (TYPE ATOM)>
+ <GVAL TEMP7 = TEMP19>
+ <DEAD TEMP7>
+ <EMPTY? TEMP19 + BOOL21>
+ <DEAD TEMP19>
+ <FRAME '\1aFINDREC>
+ <FRAME '\1aEMACRO>
+ <PUSH FM5>
+ <CALL '\1aEMACRO 1 = STACK>
+ <CALL '\1aFINDREC 1>
+BOOL21
+ <NTHL FM5 1 = TEMP19 (TYPE ATOM)>
+ <GVAL TEMP19 = TEMP7>
+ <DEAD TEMP19>
+ <GVAL 'MAPF = TEMP19>
+ <EQUAL? TEMP7 TEMP19 + BOOL25>
+ <DEAD TEMP7 TEMP19>
+ <NTHL FM5 1 = TEMP19 (TYPE ATOM)>
+ <GVAL TEMP19 = TEMP7>
+ <DEAD TEMP19>
+ <GVAL 'MAPR = TEMP19>
+ <EQUAL? TEMP7 TEMP19 - MAP40>
+ <DEAD TEMP7 TEMP19>
+BOOL25
+ <SET TEMP19 FM5>
+ <SET TEMP7 3 (TYPE FIX)>
+ <LOOP (TEMP19 VALUE) (TEMP7 VALUE)>
+TAG27
+ <EMPL? TEMP19 + MAP40>
+ <SUB TEMP7 1 = TEMP7 (TYPE FIX)>
+ <LESS? TEMP7 0 + TAG28>
+ <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
+ <JUMP + TAG27>
+TAG28
+ <RESTL FM5 1 = TEMP19 (TYPE LIST)>
+ <NTHL TEMP19 1 = TEMP19>
+ <TYPE? TEMP19 <TYPE-CODE FORM> - BOOL31>
+ <DEAD TEMP19>
+ <FRAME '\1aCHK-GVAL>
+ <RESTL FM5 1 = TEMP19 (TYPE LIST)>
+ <NTHL TEMP19 1 = STACK (TYPE FORM)>
+ <DEAD TEMP19>
+ <CALL '\1aCHK-GVAL 1>
+BOOL31
+ <RESTL FM5 1 = TEMP7 (TYPE LIST)>
+ <RESTL TEMP7 1 = TEMP7 (TYPE LIST)>
+ <NTHL TEMP7 1 = TEMP7>
+ <TYPE? TEMP7 <TYPE-CODE FORM> - MAP40>
+ <DEAD TEMP7>
+ <FRAME '\1aCHK-GVAL>
+ <RESTL FM5 1 = TEMP7 (TYPE LIST)>
+ <DEAD FM5>
+ <RESTL TEMP7 1 = TEMP7 (TYPE LIST)>
+ <NTHL TEMP7 1 = STACK (TYPE FORM)>
+ <DEAD TEMP7>
+ <CALL '\1aCHK-GVAL 1>
+ <JUMP + MAP40>
+PHRASE14
+ <FRAME '\1aSTRUCTURED?>
+ <NTHL OBJ4 1 = STACK>
+ <CALL '\1aSTRUCTURED? 1 = TEMP7>
+ <TYPE? TEMP7 <TYPE-CODE FALSE> + MAP40>
+ <DEAD TEMP7>
+ <NTHL OBJ4 1 = TEMP19>
+ <LOOP>
+MAP41
+ <INTGO>
+ <EMPTY? TEMP19 + MAP40>
+ <FRAME '\1aFINDREC>
+ <NTH1 TEMP19 = STACK>
+ <CALL '\1aFINDREC 1>
+ <REST1 TEMP19 = TEMP19>
+ <JUMP + MAP41>
+MAP40
+ <RESTL OBJ4 1 = FM5 (TYPE LIST)>
+ <CHTYPE FM5 <TYPE-CODE LIST> = FM5>
+ <EMPL? FM5 - TAG48 (TYPE LIST)>
+ <DEAD FM5>
+ <RETURN 'T>
+TAG48
+ <SET TEMP7 %<> (TYPE FALSE)>
+ <RESTL OBJ4 1 = FM5 (TYPE LIST)>
+ <DEAD OBJ4>
+ <CHTYPE FM5 <TYPE-CODE LIST> = FM5>
+ <LOOP>
+MAP51
+ <INTGO>
+ <EMPL? FM5 + MAP50>
+ <FRAME '\1aFINDREC>
+ <NTHL FM5 1 = STACK>
+ <CALL '\1aFINDREC 1 = TEMP7>
+ <RESTL FM5 1 = FM5 (TYPE LIST)>
+ <JUMP + MAP51>
+MAP50
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+PHRASE10
+ <SET TEMP7 %<> (TYPE FALSE)>
+ <SET TEMP19 OBJ4>
+ <DEAD OBJ4>
+ <LOOP>
+MAP57
+ <INTGO>
+ <EMPTY? TEMP19 + MAP56>
+ <FRAME '\1aFINDREC>
+ <NTH1 TEMP19 = STACK>
+ <CALL '\1aFINDREC 1 = TEMP7>
+ <REST1 TEMP19 = TEMP19>
+ <JUMP + MAP57>
+MAP56
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aFINDREC>
+#WORD *2601027766*
+<GFCN \1aANONFEMACRO1 ("VALUE" ANY ANY ANY "TUPLE" ANY) OBJ4 FRM5>
+ <MAKTUP T6:TUPLE TEMP10 TEMP14:FIX = T6>
+ <INTGO>
+ <NTHR 'MACACT 1 = TEMP10 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE8)>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE8>
+ <NTHR TEMP10 1 = TEMP10 (RECORD-TYPE GBIND)>
+ <TYPE? TEMP10 <TYPE-CODE UNBOUND> + PHRASE8>
+ <DEAD TEMP10>
+ <FRAME '\1aLEGAL?>
+ <GVAL 'MACACT = STACK>
+ <CALL '\1aLEGAL? 1 = TEMP10>
+ <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE8>
+ <DEAD TEMP10>
+ <FRAME '\1aDISMISS>
+ <PUSH OBJ4>
+ <DEAD OBJ4>
+ <SET TEMP14 1 (TYPE FIX)>
+ <SET TEMP10 T6>
+ <DEAD T6>
+ <LOOP (TEMP10 VALUE LENGTH) (TEMP14 VALUE)>
+TAG15
+ <INTGO>
+ <EMPUV? TEMP10 + TAG13>
+ <NTHUV TEMP10 1 = STACK>
+ <RESTUV TEMP10 1 = TEMP10 (TYPE VECTOR)>
+ <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
+ <JUMP + TAG15>
+TAG13
+ <UBLOCK <TYPE-CODE VECTOR> TEMP14 = STACK>
+ <DEAD TEMP14>
+ <GVAL 'MACACT = STACK>
+ <CALL '\1aDISMISS 2 = TEMP10>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+PHRASE8
+ <FRAME '\1aLISTEN>
+ <SET TEMP14 0 (TYPE FIX)>
+ <LOOP (T6 VALUE LENGTH) (TEMP14 VALUE)>
+TAG21
+ <INTGO>
+ <EMPUV? T6 + TAG18>
+ <NTHUV T6 1 = STACK>
+ <RESTUV T6 1 = T6 (TYPE VECTOR)>
+ <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
+ <JUMP + TAG21>
+TAG18
+ <CALL '\1aLISTEN TEMP14 = TEMP10>
+ <DEAD TEMP14>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+ <END \1aANONFEMACRO1>
+ <GFCN \1aEMACRO ("VALUE" ANY ANY) OBJ5>
+ <TEMP EH6 TEM7>
+ <INTGO>
+ <FRAME '\1aON>
+ <FRAME '\1aHANDLER>
+ <PUSH "ERROR">
+ <GVAL 'ANONFEMACRO1 = STACK>
+ <PUSH 100>
+ <PUSH OBJ5>
+ <CALL '\1aHANDLER 4 = EH6>
+ <PUSH EH6>
+ <CALL '\1aON 1>
+ <ICALL EXIT12 = TEM7>
+ <TEMP TEMP13 TEMP16>
+ <INTGO>
+ <CFRAME = TEMP13>
+ <NTHR TEMP13 5 = TEMP13 (RECORD-TYPE FRAME)>
+ <CFRAME = TEMP16 (TYPE FRAME)>
+ <BBIND 'MACACT 'ANY 'FIX TEMP16>
+ <DEAD TEMP16>
+ <ACTIVATION>
+ <NTHR 'MACACT 2 = TEMP16 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP16 1 = TEMP16 (RECORD-TYPE LBIND)>
+ <SETG 'MACACT TEMP16>
+ <DEAD TEMP16>
+ <FRAME '\1aEXPAND>
+ <SETLR TEMP16 TEMP13 OBJ5>
+ <PUSH TEMP16>
+ <DEAD TEMP16>
+ <CALL '\1aEXPAND 1 = TEMP16>
+ <CONS TEMP16 () = TEMP16>
+ <RETURN TEMP16>
+ <DEAD TEMP16>
+EXIT12
+ <TYPE? TEM7 <TYPE-CODE VECTOR> - PHRASE11>
+ <FRAME '\1aOFF>
+ <PUSH EH6>
+ <DEAD EH6>
+ <CALL '\1aOFF 1>
+ <FRAME '\1aERROR>
+ <PUSH 'MACRO-EXPANSION-LOSSAGE!-ERRORS>
+ <SET EH6 1 (TYPE FIX)>
+ <LOOP (TEM7 VALUE LENGTH) (EH6 VALUE)>
+TAG25
+ <INTGO>
+ <EMPUV? TEM7 + TAG22>
+ <NTHUV TEM7 1 = STACK>
+ <RESTUV TEM7 1 = TEM7 (TYPE VECTOR)>
+ <ADD EH6 1 = EH6 (TYPE FIX)>
+ <JUMP + TAG25>
+TAG22
+ <CALL '\1aERROR EH6 = EH6>
+ <RETURN EH6>
+ <DEAD EH6>
+PHRASE11
+ <FRAME '\1aOFF>
+ <PUSH EH6>
+ <DEAD EH6>
+ <CALL '\1aOFF 1>
+ <NTH1 TEM7 = EH6>
+ <DEAD TEM7>
+ <RETURN EH6>
+ <DEAD EH6>
+ <END \1aEMACRO>\r\r
+#WORD *35650634303*
+<GFCN \1aCHK-GVAL ("VALUE" <OR ATOM FALSE <LIST ATOM [REST ATOM]>> FORM) FM4>
+ <TEMP TEMP9 TEMP13>
+ <INTGO>
+ <EMPL? FM4 + TAG8>
+ <RESTL FM4 1 = TEMP9 (TYPE LIST)>
+ <EMPL? TEMP9 + TAG8>
+ <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
+ <EMPL? TEMP9 + TAG7>
+ <DEAD TEMP9>
+TAG8
+ <RETURN %<>>
+TAG7
+ <NTHL FM4 1 = TEMP9>
+ <TYPE? TEMP9 <TYPE-CODE ATOM> + TAG10>
+ <DEAD TEMP9>
+ <RETURN %<>>
+TAG10
+ <NTHL FM4 1 = TEMP9 (TYPE ATOM)>
+ <GVAL TEMP9 = TEMP13>
+ <DEAD TEMP9>
+ <GVAL 'GVAL = TEMP9>
+ <EQUAL? TEMP13 TEMP9 + TAG12>
+ <DEAD TEMP13 TEMP9>
+ <RETURN %<>>
+TAG12
+ <RESTL FM4 1 = TEMP9 (TYPE LIST)>
+ <NTHL TEMP9 1 = TEMP9>
+ <TYPE? TEMP9 <TYPE-CODE ATOM> + TAG14>
+ <DEAD TEMP9>
+ <RETURN %<>>
+TAG14
+ <RESTL FM4 1 = TEMP9 (TYPE LIST)>
+ <NTHL TEMP9 1 = TEMP9 (TYPE ATOM)>
+ <NTHR TEMP9 1 = TEMP13 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG17)>
+ <DEAD TEMP9>
+ <TYPE? TEMP13 <TYPE-CODE FALSE> + TAG17>
+ <NTHR TEMP13 1 = TEMP13 (RECORD-TYPE GBIND)>
+ <TYPE? TEMP13 <TYPE-CODE UNBOUND> - TAG16>
+ <DEAD TEMP13>
+TAG17
+ <RETURN %<>>
+TAG16
+ <RESTL FM4 1 = TEMP13 (TYPE LIST)>
+ <NTHL TEMP13 1 = TEMP13 (TYPE ATOM)>
+ <GVAL TEMP13 = TEMP9>
+ <DEAD TEMP13>
+ <TYPE? TEMP9 <TYPE-CODE FUNCTION> + TAG24>
+ <DEAD TEMP9>
+ <RESTL FM4 1 = TEMP9 (TYPE LIST)>
+ <NTHL TEMP9 1 = TEMP9 (TYPE ATOM)>
+ <GVAL TEMP9 = TEMP13>
+ <DEAD TEMP9>
+ <TYPE? TEMP13 <TYPE-CODE MACRO> + TAG21>
+ <DEAD TEMP13>
+ <RETURN %<>>
+TAG21
+ <RESTL FM4 1 = TEMP13 (TYPE LIST)>
+ <NTHL TEMP13 1 = TEMP13 (TYPE ATOM)>
+ <GVAL TEMP13 = TEMP9>
+ <DEAD TEMP13>
+ <EMPTY? TEMP9 - TAG23>
+ <DEAD TEMP9>
+ <RETURN %<>>
+TAG23
+ <RESTL FM4 1 = TEMP9 (TYPE LIST)>
+ <NTHL TEMP9 1 = TEMP9 (TYPE ATOM)>
+ <GVAL TEMP9 = TEMP13>
+ <DEAD TEMP9>
+ <NTH1 TEMP13 = TEMP13>
+ <TYPE? TEMP13 <TYPE-CODE FUNCTION> + TAG24>
+ <DEAD TEMP13>
+ <RETURN %<>>
+TAG24
+ <FRAME '\1aREMEMIT>
+ <RESTL FM4 1 = TEMP13 (TYPE LIST)>
+ <DEAD FM4>
+ <NTHL TEMP13 1 = STACK (TYPE ATOM)>
+ <DEAD TEMP13>
+ <CALL '\1aREMEMIT 1 = TEMP9>
+ <RETURN TEMP9>
+ <DEAD TEMP9>
+ <END \1aCHK-GVAL>\r\r
+#WORD *31070033755*
+<GFCN \1aFINDEM ("VALUE" <LIST [REST ATOM]> ATOM) FUNC4>
+ <TEMP TEMP3:LBIND TEMP7>
+ <INTGO>
+ <GETS 'BIND = TEMP3 (TYPE LBIND)>
+ <BBIND 'FUNC 'ATOM %<> FUNC4>
+ <DEAD FUNC4>
+ <FIXBIND>
+ <BBIND 'FUNCL <LIST [REST ATOM]> 'FIX ()>
+ <FRAME '\1aFINDREC>
+ <NTHR 'FUNC 2 = TEMP7 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP7 1 = TEMP7 (RECORD-TYPE LBIND)>
+ <GVAL TEMP7 = STACK>
+ <DEAD TEMP7>
+ <CALL '\1aFINDREC 1>
+ <NTHR 'FUNCL 2 = TEMP7 (RECORD-TYPE ATOM) (TYPE LBIND)>
+ <NTHR TEMP7 1 = TEMP7 (RECORD-TYPE LBIND)>
+ <UNBIND TEMP3>
+ <DEAD TEMP3>
+ <ADJ -18>
+ <RETURN TEMP7>
+ <DEAD TEMP7>
+ <END \1aFINDEM>
+#WORD *37321320006*
+<GFCN
\1aFINDEMALL ("VALUE" <LIST <LIST [REST ATOM]> ATOM> <<PRIMTYPE VECTOR> [REST ATOM]>) ATM4>
+ <TEMP TD8:LIST TEMP12:LIST TEMP13 CURDO16:LIST TEMP27 TEMP28>
+ <INTGO>
+ <SET TD8 () (TYPE LIST)>
+ <LOOP>
+AGAIN9
+ <INTGO>
+ <EMPUV? ATM4 + EXIT6>
+ <FRAME '\1aFINDEM>
+ <NTHUV ATM4 1 = STACK (TYPE ATOM)>
+ <CALL '\1aFINDEM 1 = TEMP12>
+ <CONS TEMP12 () = TEMP12>
+ <NTHUV ATM4 1 = TEMP13 (TYPE ATOM)>
+ <CONS TEMP13 () = TEMP13>
+ <PUTREST TEMP12 TEMP13>
+ <PUTREST TEMP13 TD8>
+ <DEAD TEMP13 TD8>
+ <SET TD8 TEMP12>
+ <DEAD TEMP12>
+ <RESTUV ATM4 1 = ATM4 (TYPE VECTOR)>
+ <CHTYPE ATM4 <TYPE-CODE VECTOR> = ATM4>
+ <JUMP + AGAIN9>
+EXIT6
+ <SET TEMP12 TD8>
+ <NTHL TD8 1 = CURDO16 (TYPE LIST)>
+ <LOOP>
+AGAIN17
+ <INTGO>
+ <EMPL? CURDO16 - PHRASE22 (TYPE LIST)>
+ <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
+ <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
+ <EMPL? TEMP12 - PHRASE21 (TYPE LIST)>
+ <RETURN TD8>
+ <DEAD TD8>
+PHRASE21
+ <NTHL TEMP12 1 = CURDO16 (TYPE LIST)>
+ <JUMP + AGAIN17>
+PHRASE22
+ <NTHL CURDO16 1 = TEMP13 (TYPE ATOM)>
+ <SET TEMP27 TD8>
+ <LOOP (TEMP13 VALUE) (TEMP27 VALUE)>
+TAG24
+ <NTHL TEMP27 1 = TEMP28>
+ <TYPE? TEMP28 <TYPE-CODE ATOM> - TAG25>
+ <VEQUAL? TEMP28 TEMP13 + PHRASE29>
+ <DEAD TEMP28>
+TAG25
+ <RESTL TEMP27 1 = TEMP27 (TYPE LIST)>
+ <EMPL? TEMP27 - TAG24>
+ <SET TEMP27 TEMP12>
+ <EMPL? TEMP27 + COMPERR>
+ <LOOP (TEMP27 VALUE)>
+TAG30
+ <RESTL TEMP27 1 = TEMP13 (TYPE LIST)>
+ <EMPL? TEMP13 + TAG31>
+ <SET TEMP27 TEMP13>
+ <DEAD TEMP13>
+ <JUMP + TAG30>
+TAG31
+ <FRAME '\1aFINDEM>
+ <NTHL CURDO16 1 = STACK (TYPE ATOM)>
+ <CALL '\1aFINDEM 1 = TEMP13>
+ <CONS TEMP13 () = TEMP13>
+ <NTHL CURDO16 1 = TEMP28 (TYPE ATOM)>
+ <CONS TEMP28 () = TEMP28>
+ <PUTREST TEMP13 TEMP28>
+ <DEAD TEMP28>
+ <EMPL? TEMP27 + COMPERR>
+ <PUTREST TEMP27 TEMP13>
+ <DEAD TEMP27 TEMP13>
+PHRASE29
+ <RESTL CURDO16 1 = CURDO16 (TYPE LIST)>
+ <JUMP + AGAIN17>
+ <END \1aFINDEMALL>
+#WORD *36157035003*
+<GFCN
\1aGETORDER ("VALUE" ANY "TUPLE" <<PRIMTYPE VECTOR> [REST ATOM]>)>
+ <MAKTUP ATMS4:TUPLE TEMP13 TEMP14 TEMP12 TEMP17 = ATMS4>
+ <INTGO>
+ <SET TEMP13 () (TYPE LIST)>
+ <SET TEMP14 () (TYPE LIST)>
+ <CHTYPE ATMS4 <TYPE-CODE VECTOR> = TEMP12>
+ <LOOP>
+MAP11
+ <INTGO>
+ <EMPUV? TEMP12 + MAP10>
+ <FRAME '\1aCHECK>
+ <NTHUV TEMP12 1 = STACK>
+ <CALL '\1aCHECK 1 = TEMP17>
+ <CONS TEMP17 () = TEMP17 (TYPE LIST)>
+ <EMPL? TEMP13 - TAG18>
+ <SET TEMP13 TEMP17 (TYPE LIST)>
+ <JUMP + TAG19>
+TAG18
+ <PUTREST TEMP14 TEMP17>
+ <DEAD TEMP14>
+TAG19
+ <SET TEMP14 TEMP17 (TYPE LIST)>
+ <DEAD TEMP17>
+ <RESTUV TEMP12 1 = TEMP12 (TYPE VECTOR)>
+ <JUMP + MAP11>
+MAP10
+ <SET TEMP12 TEMP13>
+ <DEAD TEMP13>
+ <EMPL? TEMP12 + TAG7>
+ <LOOP (TEMP12 VALUE)>
+TAG8
+ <NTHL TEMP12 1 = TEMP17>
+ <TYPE? TEMP17 <TYPE-CODE FALSE> - TAG9>
+ <VEQUAL? TEMP17 %<> + PHRASE6>
+ <DEAD TEMP17>
+TAG9
+ <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
+ <EMPL? TEMP12 - TAG8>
+TAG7
+ <FRAME '\1aORDEREM>
+ <FRAME '\1aFINDEMALL>
+ <PUSH ATMS4>
+ <DEAD ATMS4>
+ <CALL '\1aFINDEMALL 1 = STACK>
+ <CALL '\1aORDEREM 1 = TEMP12>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+PHRASE6
+ <FRAME '\1aERROR>
+ <PUSH 'BAD-ARG>
+ <PUSH 'GETORDER>
+ <CALL '\1aERROR 2 = TEMP12>
+ <RETURN TEMP12>
+ <DEAD TEMP12>
+ <END \1aGETORDER>
+#WORD *22767316521*
+<GFCN \1aFIND-OBL ("VALUE" ANY ATOM ANY) NM4 GRP5>
+ <TEMP TEMP8 RGRP6:LIST PTR24 IT25 TEMP29>
+ <INTGO>
+ <GEN-LVAL GRP5 = RGRP6>
+ <DEAD GRP5>
+ <GEN-LVAL 'OBLIST = TEMP8>
+ <LOOP>
+MAP14
+ <INTGO>
+ <EMPL? RGRP6 + MAPAP17>
+ <SET PTR24 RGRP6>
+ <NTHL PTR24 1 = IT25>
+ <FRAME '\1aGETPROP>
+ <PUSH PTR24>
+ <DEAD PTR24>
+ <PUSH 'BLOCK>
+ <CFRAME = STACK (TYPE FRAME)>
+ <CALL '\1aGETPROP 3 = PTR24>
+ <CFRAME = TEMP29 (TYPE FRAME)>
+ <EQUAL? TEMP29 PTR24 - TAG30>
+ <DEAD TEMP29>
+ <SET PTR24 TEMP8>
+ <DEAD TEMP8>
+TAG30
+ <SET TEMP8 PTR24>
+ <DEAD PTR24>
+ <TYPE? IT25 <TYPE-CODE FORM> - PHRASE32>
+ <EMPL? IT25 + PHRASE32 (TYPE FORM)>
+ <NTHL IT25 1 = PTR24>
+ <EQUAL? PTR24 'DEFINE + BOOL34>
+ <EQUAL? PTR24 'DEFMAC - PHRASE32>
+ <DEAD PTR24>
+BOOL34
+ <FRAME '\1aGETPROP>
+ <RESTL IT25 1 = PTR24 (TYPE LIST)>
+ <NTHL PTR24 1 = STACK>
+ <DEAD PTR24>
+ <PUSH 'VALUE>
+ <CFRAME = STACK (TYPE FRAME)>
+ <CALL '\1aGETPROP 3 = PTR24>
+ <CFRAME = TEMP29 (TYPE FRAME)>
+ <EQUAL? TEMP29 PTR24 - TAG36>
+ <DEAD TEMP29>
+ <RESTL IT25 1 = TEMP29 (TYPE LIST)>
+ <DEAD IT25>
+ <NTHL TEMP29 1 = PTR24>
+ <DEAD TEMP29>
+TAG36
+ <TYPE? PTR24 <TYPE-CODE ATOM> - PHRASE32>
+ <VEQUAL? PTR24 NM4 + MAPAP17>
+ <DEAD PTR24>
+PHRASE32
+ <RESTL RGRP6 1 = RGRP6 (TYPE LIST)>
+ <JUMP + MAP14>
+MAPAP17
+ <RETURN TEMP8>
+ <DEAD TEMP8>
+ <END \1aFIND-OBL>\r\r
+#WORD *25035705143*
+<GFCN \1aUPDATE-STATUS ("VALUE" <OR ATOM FALSE> ANY ANY ANY ANY "OPTIONAL" ANY ANY) STATE7 FCN8 PHASE9 REANA10 CPU11 REAL12>
+ <OPT-DISPATCH 4 %<> OPT4 OPT5 OPT6>
+OPT4
+ <PUSH #T$UNBOUND 0>
+OPT5
+ <PUSH #T$UNBOUND 0>
+OPT6
+ <TEMP TEMP17 OUTCHAN13>
+ <INTGO>
+ <TYPE? CPU11 <TYPE-CODE UNBOUND> - TAG14>
+ <FRAME '\1aTIME>
+ <CALL '\1aTIME 0 = TEMP17>
+ <ADDF TEMP17 0.5000000 = TEMP17 (TYPE FLOAT)>
+ <FIX TEMP17 = CPU11 (TYPE FIX)>
+ <DEAD TEMP17>
+TAG14
+ <TYPE? REAL12 <TYPE-CODE UNBOUND> - TAG18>
+ <FRAME '\1aRTIME>
+ <CALL '\1aRTIME 0 = REAL12>
+TAG18
+ <GVAL 'OUTCHAN = OUTCHAN13>
+ <GVAL 'GC-USER-MON = TEMP17>
+ <TYPE? TEMP17 <TYPE-CODE FALSE> - PHRASE22>
+ <DEAD TEMP17>
+ <FRAME '\1aGC-MON>
+ <GVAL 'GC-STATUS = STACK>
+ <CALL '\1aGC-MON 1>
+PHRASE22
+ <NTHR 'STATUS-CPU 1 = TEMP17 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG26)>
+ <TYPE? TEMP17 <TYPE-CODE FALSE> + TAG26>
+ <NTHR TEMP17 1 = TEMP17 (RECORD-TYPE GBIND)>
+ <TYPE? TEMP17 <TYPE-CODE UNBOUND> - PHRASE25>
+ <DEAD TEMP17>
+TAG26
+ <SETG 'STATUS-CPU CPU11>
+PHRASE25
+ <NTHR 'STATUS-REAL 1 = TEMP17 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG29)>
+ <TYPE? TEMP17 <TYPE-CODE FALSE> + TAG29>
+ <NTHR TEMP17 1 = TEMP17 (RECORD-TYPE GBIND)>
+ <TYPE? TEMP17 <TYPE-CODE UNBOUND> - PHRASE28>
+ <DEAD TEMP17>
+TAG29
+ <SETG 'STATUS-REAL REAL12>
+PHRASE28
+ <TYPE? FCN8 <TYPE-CODE FALSE> + PHRASE31>
+ <SETG 'STATUS-FCN FCN8>
+ <JUMP + PHRASE32>
+PHRASE31
+ <GVAL 'STATUS-FCN = FCN8>
+PHRASE32
+ <FRAME '\1aCHANNEL-OP>
+ <PUSH OUTCHAN13>
+ <PUSH 'HOR-POS-CURSOR>
+ <PUSH 0>
+ <CALL '\1aCHANNEL-OP 3>
+ <FRAME '\1aPRINT-MANY>
+ <PUSH OUTCHAN13>
+ <DEAD OUTCHAN13>
+ <PUSH 'PRINC>
+ <GVAL 'STATE-TITLE = STACK>
+ <SET OUTCHAN13 11 (TYPE FIX)>
+ <SFRAME 'STRING-FIT>
+ <PUSH STATE7>
+ <DEAD STATE7>
+ <PUSH 5>
+ <SCALL '\1aSTRING-FIT 2 = TEMP17 + TAG34 OUTCHAN13>
+TAG34
+ <GVAL 'STATE-FCN = STACK>
+ <SFRAME 'STRING-FIT>
+ <PUSH FCN8>
+ <DEAD FCN8>
+ <PUSH 10>
+ <SCALL '\1aSTRING-FIT 2 = TEMP17 + TAG37 OUTCHAN13>
+TAG37
+ <GVAL 'STATE-PHASE = STACK>
+ <SFRAME 'STRING-FIT>
+ <SET TEMP17 PHASE9>
+ <DEAD PHASE9>
+ <TYPE? TEMP17 <TYPE-CODE FALSE> - BOOL41>
+ <SET TEMP17 "" (TYPE STRING)>
+BOOL41
+ <PUSH TEMP17>
+ <DEAD TEMP17>
+ <PUSH 4>
+ <SCALL '\1aSTRING-FIT 2 = TEMP17 + TAG39 OUTCHAN13>
+TAG39
+ <GVAL 'STATE-CPU = STACK>
+ <SFRAME 'CPU-STRING>
+ <GVAL 'STATUS-CPU = TEMP17>
+ <SUB CPU11 TEMP17 = STACK (TYPE FIX)>
+ <DEAD CPU11 TEMP17>
+ <SCALL '\1aCPU-STRING 1 = TEMP17 + TAG43 OUTCHAN13>
+TAG43
+ <GVAL 'STATE-REAL = STACK>
+ <SFRAME 'REAL-STRING>
+ <GVAL 'STATUS-REAL = TEMP17>
+ <SUB REAL12 TEMP17 = STACK (TYPE FIX)>
+ <DEAD REAL12 TEMP17>
+ <SCALL '\1aREAL-STRING 1 = TEMP17 + TAG45 OUTCHAN13>
+TAG45
+ <PUSH " ">
+ <SFRAME 'FUNCTION-RATIO>
+ <SCALL '\1aFUNCTION-RATIO 0 = TEMP17 + TAG47 OUTCHAN13>
+TAG47
+ <PUSH " ">
+ <TYPE? REANA10 <TYPE-CODE FALSE> + PHRASE51>
+ <SET TEMP17 REANA10>
+ <DEAD REANA10>
+ <JUMP + PHRASE52>
+PHRASE51
+ <SET TEMP17 " " (TYPE STRING)>
+PHRASE52
+ <PUSH TEMP17>
+ <DEAD TEMP17>
+ <GVAL 'ERRORS-OCCURED = TEMP17>
+ <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE54>
+ <DEAD TEMP17>
+ <SET TEMP17 "E " (TYPE STRING)>
+ <JUMP + PHRASE55>
+PHRASE54
+ <SET TEMP17 " " (TYPE STRING)>
+PHRASE55
+ <PUSH TEMP17>
+ <DEAD TEMP17>
+ <CALL '\1aPRINT-MANY OUTCHAN13 = OUTCHAN13>
+ <RETURN OUTCHAN13>
+ <DEAD OUTCHAN13>
+ <END \1aUPDATE-STATUS>
+#WORD *5733635232*
+<GFCN \1aGC-STATUS ("VALUE" ANY "OPTIONAL" ANY) OUT6>
+ <OPT-DISPATCH 0 %<> OPT4 OPT5>
+OPT4
+ <PUSH %<>>
+OPT5
+ <TEMP TEMP10>
+ <INTGO>
+ <TYPE? OUT6 <TYPE-CODE FALSE> + PHRASE8>
+ <DEAD OUT6>
+ <FRAME '\1aCHANNEL-OP>
+ <GVAL 'OUTCHAN = STACK>
+ <PUSH 'ERASE-CHAR>
+ <CALL '\1aCHANNEL-OP 2 = TEMP10>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+PHRASE8
+ <FRAME '\1aPRINC>
+ <PUSH "G">
+ <GVAL 'OUTCHAN = STACK>
+ <CALL '\1aPRINC 2 = TEMP10>
+ <RETURN TEMP10>
+ <DEAD TEMP10>
+ <END \1aGC-STATUS>
+<MSETG LENGTH-BLANK 100>
+
+<SETG STR-BLANK <ISTRING ,LENGTH-BLANK !\ >>
+
+#WORD *25166305643*
+<GFCN \1aSTRING-FIT ("VALUE" <MULTI STRING> STRING FIX) STR4 FIELD5>
+ <TEMP LN6>
+ <INTGO>
+ <LENUS STR4 = LN6 (TYPE FIX)>
+ <VEQUAL? LN6 FIELD5 - PHRASE9 (TYPE FIX)>
+ <PUSH STR4>
+ <DEAD STR4>
+ <MRETURN 1 0>
+PHRASE9
+ <GRTR? LN6 FIELD5 - PHRASE10 (TYPE FIX)>
+ <UUBLOCK <TYPE-CODE STRING> FIELD5 = LN6 (TYPE STRING)>
+ <MOVE-STRING STR4 LN6 FIELD5 (NO-OVERLAP T)>
+ <DEAD STR4 FIELD5>
+ <PUSH LN6>
+ <DEAD LN6>
+ <MRETURN 1 0>
+PHRASE10
+ <PUSH STR4>
+ <DEAD STR4>
+ <FRAME '\1aREST>
+ <GVAL 'STR-BLANK = STACK>
+ <SUB FIELD5 LN6 = LN6 (TYPE FIX)>
+ <DEAD FIELD5>
+ <SUB 100 LN6 = STACK (TYPE FIX)>
+ <DEAD LN6>
+ <CALL '\1aREST 2 = STACK>
+ <MRETURN 2 0>
+ <END \1aSTRING-FIT>
+#WORD *271655421*
+<GFCN \1aCPU-STRING ("VALUE" <MULTI <OR STRING FIX> STRING FIX STRING STRING FIX STRING STRING> FIX) CPU4>
+ <TEMP (COLON5 %<>) H6:FIX R7:FIX M8:FIX TEMP13>
+ <INTGO>
+ <DIV CPU4 3600 = H6 (TYPE FIX)>
+ <MOD CPU4 3600 = R7 (TYPE FIX)>
+ <DEAD CPU4>
+ <DIV R7 60 = M8 (TYPE FIX)>
+ <MOD R7 60 = R7 (TYPE FIX)>
+ <GRTR? H6 10 - PHRASE12 (TYPE FIX)>
+ <SET TEMP13 "*:" (TYPE STRING)>
+ <JUMP + PHRASE17>
+PHRASE12
+ <GRTR? H6 0 - PHRASE14 (TYPE FIX)>
+ <SET COLON5 'T (TYPE ATOM)>
+ <SET TEMP13 H6>
+ <JUMP + PHRASE17>
+PHRASE14
+ <SET TEMP13 "" (TYPE STRING)>
+PHRASE17
+ <PUSH TEMP13>
+ <DEAD TEMP13>
+ <VEQUAL? COLON5 0 + PHRASE19>
+ <DEAD COLON5>
+ <SET TEMP13 ":" (TYPE STRING)>
+ <JUMP + PHRASE20>
+PHRASE19
+ <SET TEMP13 "" (TYPE STRING)>
+PHRASE20
+ <PUSH TEMP13>
+ <DEAD TEMP13>
+ <PUSH M8>
+ <PUSH ":">
+ <LESS? R7 10 - PHRASE22 (TYPE FIX)>
+ <SET TEMP13 "0" (TYPE STRING)>
+ <JUMP + PHRASE23>
+PHRASE22
+ <SET TEMP13 "" (TYPE STRING)>
+PHRASE23
+ <PUSH TEMP13>
+ <DEAD TEMP13>
+ <PUSH R7>
+ <DEAD R7>
+ <VEQUAL? H6 0 - PHRASE25 (TYPE FIX)>
+ <DEAD H6>
+ <SET TEMP13 " " (TYPE STRING)>
+ <JUMP + PHRASE28>
+PHRASE25
+ <SET TEMP13 "" (TYPE STRING)>
+PHRASE28
+ <PUSH TEMP13>
+ <DEAD TEMP13>
+ <LESS? M8 10 - PHRASE30 (TYPE FIX)>
+ <DEAD M8>
+ <SET TEMP13 " " (TYPE STRING)>
+ <JUMP + PHRASE31>
+PHRASE30
+ <SET TEMP13 "" (TYPE STRING)>
+PHRASE31
+ <PUSH TEMP13>
+ <DEAD TEMP13>
+ <MRETURN 8 0>
+ <END \1aCPU-STRING>
+#WORD *2751343003*
+<GFCN \1aREAL-STRING ("VALUE" <MULTI STRING <OR STRING FIX> STRING FIX STRING STRING FIX STRING STRING> FIX) REAL4>
+ <TEMP (COLON5 'T) H6:FIX R7:FIX M8:FIX TEMP13>
+ <INTGO>
+ <DIV REAL4 3600 = H6 (TYPE FIX)>
+ <MOD REAL4 3600 = R7 (TYPE FIX)>
+ <DEAD REAL4>
+ <DIV R7 60 = M8 (TYPE FIX)>
+ <MOD R7 60 = R7 (TYPE FIX)>
+ <GRTR? H6 100 - PHRASE12 (TYPE FIX)>
+ <SET TEMP13 "**" (TYPE STRING)>
+ <JUMP + PHRASE17>
+PHRASE12
+ <GRTR? H6 0 - PHRASE14 (TYPE FIX)>
+ <SET TEMP13 "" (TYPE STRING)>
+ <JUMP + PHRASE17>
+PHRASE14
+ <SET COLON5 %<> (TYPE FALSE)>
+ <SET TEMP13 "" (TYPE STRING)>
+PHRASE17
+ <PUSH TEMP13>
+ <DEAD TEMP13>
+ <LESS? H6 100 - PHRASE19 (TYPE FIX)>
+ <GRTR? H6 0 - PHRASE19 (TYPE FIX)>
+ <SET TEMP13 H6>
+ <JUMP + PHRASE23>
+PHRASE19
+ <SET TEMP13 "" (TYPE STRING)>
+PHRASE23
+ <PUSH TEMP13>
+ <DEAD TEMP13>
+ <VEQUAL? COLON5 0 + PHRASE25>
+ <DEAD COLON5>
+ <SET TEMP13 ":" (TYPE STRING)>
+ <JUMP + PHRASE26>
+PHRASE25
+ <SET TEMP13 "" (TYPE STRING)>
+PHRASE26
+ <PUSH TEMP13>
+ <DEAD TEMP13>
+ <PUSH M8>
+ <PUSH ":">
+ <LESS? R7 10 - PHRASE28 (TYPE FIX)>
+ <SET TEMP13 "0" (TYPE STRING)>
+ <JUMP + PHRASE29>
+PHRASE28
+ <SET TEMP13 "" (TYPE STRING)>
+PHRASE29
+ <PUSH TEMP13>
+ <DEAD TEMP13>
+ <PUSH R7>
+ <DEAD R7>
+ <GRTR? H6 10 - PHRASE31 (TYPE FIX)>
+ <SET TEMP13 "" (TYPE STRING)>
+ <JUMP + PHRASE35>
+PHRASE31
+ <GRTR? H6 0 - PHRASE32 (TYPE FIX)>
+ <DEAD H6>
+ <SET TEMP13 " " (TYPE STRING)>
+ <JUMP + PHRASE35>
+PHRASE32
+ <SET TEMP13 " " (TYPE STRING)>
+PHRASE35
+ <PUSH TEMP13>
+ <DEAD TEMP13>
+ <LESS? M8 10 - PHRASE37 (TYPE FIX)>
+ <DEAD M8>
+ <SET TEMP13 " " (TYPE STRING)>
+ <JUMP + PHRASE38>
+PHRASE37
+ <SET TEMP13 "" (TYPE STRING)>
+PHRASE38
+ <PUSH TEMP13>
+ <DEAD TEMP13>
+ <MRETURN 9 0>
+ <END \1aREAL-STRING>
+#WORD *11122056402*
+<GFCN \1aFUNCTION-RATIO ("VALUE" <MULTI STRUCTURED>)>
+ <TEMP FR7 LN15:FIX LN26 TEMP27 TEMP28>
+ <INTGO>
+ <GEN-ASSIGNED? 'ATOM-LIST - BOOL10>
+ <GEN-ASSIGNED? 'AL + PHRASE9>
+BOOL10
+ <FRAME '\1aREST>
+ <GVAL 'STR-BLANK = STACK>
+ <PUSH 93>
+ <CALL '\1aREST 2 = STACK>
+ <MRETURN 1 0>
+PHRASE9
+ <GEN-LVAL 'ATOM-LIST = FR7>
+ <LENL FR7 = LN15 (TYPE FIX)>
+ <GEN-LVAL 'AL = LN26>
+ <TYPE LN26 = TEMP27>
+ <EMPL? FR7 + TAG19>
+ <LOOP (LN26 VALUE) (TEMP27 VALUE) (FR7 VALUE)>
+TAG21
+ <NTHL FR7 1 = TEMP28>
+ <TYPE? TEMP28 TEMP27 - TAG22>
+ <VEQUAL? TEMP28 LN26 + TAG20>
+ <DEAD TEMP28>
+TAG22
+ <RESTL FR7 1 = FR7 (TYPE LIST)>
+ <EMPL? FR7 - TAG21>
+TAG19
+ <SET FR7 %<> (TYPE FALSE)>
+TAG20
+ <LENL FR7 = FR7 (TYPE FIX)>
+ <SUB LN15 FR7 = LN26 (TYPE FIX)>
+ <DEAD FR7>
+ <SUB LN26 -1 = LN26 (TYPE FIX)>
+ <LESS? LN26 100 + PHRASE30 (TYPE FIX)>
+ <SET FR7 "" (TYPE STRING)>
+ <JUMP + PHRASE32>
+PHRASE30
+ <LESS? LN26 10 + PHRASE31 (TYPE FIX)>
+ <SET FR7 " " (TYPE STRING)>
+ <JUMP + PHRASE32>
+PHRASE31
+ <SET FR7 " " (TYPE STRING)>
+PHRASE32
+ <PUSH FR7>
+ <DEAD FR7>
+ <PUSH LN26>
+ <DEAD LN26>
+ <PUSH "/">
+ <LESS? LN15 100 + PHRASE34 (TYPE FIX)>
+ <SET FR7 "" (TYPE STRING)>
+ <JUMP + PHRASE36>
+PHRASE34
+ <LESS? LN15 10 + PHRASE35 (TYPE FIX)>
+ <SET FR7 " " (TYPE STRING)>
+ <JUMP + PHRASE36>
+PHRASE35
+ <SET FR7 " " (TYPE STRING)>
+PHRASE36
+ <PUSH FR7>
+ <DEAD FR7>
+ <PUSH LN15>
+ <DEAD LN15>
+ <MRETURN 5 0>
+ <END \1aFUNCTION-RATIO>
+<ENDPACKA
\ No newline at end of file
projects / pdp10-muddle.git / blobdiff