--- /dev/null
+
+<PACKAGE "FILE-INDEX">
+
+<ENTRY BUILD-INDEX SKIP-MIMA>
+
+<SETG BUFLENGTH 1024>
+
+<SETG BUFFER <ISTRING ,BUFLENGTH>>
+
+<SETG MAGIC-CHAR <ASCII 26>>
+
+<SETG LAST-CHAR1 !\0>
+
+<SETG LAST-CHAR2 !\]>
+
+<SETG LAST-CHAR3 !\>>
+
+<SETG WORD-STRING "#WORD ">
+
+<SETG MAGIC-STRING "<SETG ">
+
+<SETG MAGIC-LENGTH <LENGTH ,MAGIC-STRING>>
+
+<SETG MAGIC-MAX <- ,BUFLENGTH ,MAGIC-LENGTH>>
+
+<SETG MAGIC-STRING2 "<END ">
+
+<SETG MAGIC-LENGTH2 <LENGTH ,MAGIC-STRING2>>
+
+<SETG MAGIC-MAX2 <- ,BUFLENGTH ,MAGIC-LENGTH2>>
+
+<SETG IN-ATOM 0>
+
+<SETG NEED-MINUS 1>
+
+<SETG QUOTE-NEXT 2>
+
+<SETG NON-ATOM 3>
+
+<SETG M$$R-EXCL 7>
+
+<SETG M$$R-BACKS 14>
+
+<SETG M$$R-ALPHA 15>
+
+<SETG M$$R-E 16>
+
+<SETG M$$R-DIGIT 18>
+
+<SETG M$$R-PLUS 19>
+
+<MANIFEST IN-ATOM NEED-MINUS QUOTE-NEXT NON-ATOM M$$R-BACKS M$$R-ALPHA M$$R-EXCL M$$R-E M$$R-DIGIT M$$R-PLUS>
+
+<GDECL (I$TRANS-TABLE!-INTERNAL) BYTES>
+
+<COND (<NOT <GASSIGNED? I$TRANS-TABLE!-INTERNAL>> <SETG I$TRANS-TABLE!-INTERNAL <BYTES 8 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 7 4 9 15 11 15 12 1 6 20 19 10 19 17 15 18 18 18 18 18 18 18 18 18 18 0 8 2 15 6 15 15 15 15 15 15 16 15 15 15 15 15 15 15 15 15 15 15 15 15 15 15 15 15 15 15 15 15 3 14 6 15 15 15 15 15 15 15 16 15 15 15 15 15 15 15 15 15 15 15 15 15 15 15 15 15 15 15 15 15 5 13 6 15 15>>)>
+
+#WORD *17736634263*
+ <GFCN \1aBUILD-INDEX ("VALUE" LIST CHANNEL OBLIST) CHAN5 OBL6>
+ <TEMP B7:STRING BL8:FIX CHAR9:CHARACTER MAXL10:FIX TOTAL-ACCESS11:FIX MS12:STRING ML13:FIX LC114:CHARACTER LC215:CHARACTER LC316:CHARACTER WS18:STRING WRD19 IM-POS29 INDEX30:LIST OUTER33 LEN27:FIX BB38 POS28 TEMP47 PL26:FIX SL17:FIX START25:STRING WORD-OK21 SETG-OK20 TEMP69 TEMP65 TEMP66:STRING C171:CHARACTER C272:CHARACTER C373:CHARACTER CH85:CHARACTER NAMESTR31 NAME-ATOM32 CH103:CHARACTER TEMP67:CHARACTER TEMP136:FIX TEMP135:FIX CH146:CHARACTER TEMP158:FIX TEMP160:FIX TEMP22:LIST>
+ <INTGO>
+ <GVAL 'BUFFER = B7>
+ <GVAL 'BUFLENGTH = BL8>
+ <GVAL 'MAGIC-CHAR = CHAR9>
+ <GVAL 'MAGIC-MAX = MAXL10>
+ <SET TOTAL-ACCESS11 BL8>
+ <SUB 0 TOTAL-ACCESS11 = TOTAL-ACCESS11 (TYPE FIX)>
+ <GVAL 'MAGIC-STRING = MS12>
+ <GVAL 'MAGIC-LENGTH = ML13>
+ <GVAL 'LAST-CHAR1 = LC114>
+ <GVAL 'LAST-CHAR2 = LC215>
+ <GVAL 'LAST-CHAR3 = LC316>
+ <GVAL 'WORD-STRING = WS18>
+ <SET IM-POS29 %<> (TYPE FALSE)>
+ <SET INDEX30 () (TYPE LIST)>
+ <LOOP>
+AGAIN34
+ <INTGO>
+ <FRAME '\1aCHANNEL-OP>
+ <PUSH CHAN5>
+ <PUSH 'READ-BUFFER>
+ <PUSH B7>
+ <CALL '\1aCHANNEL-OP 3 = LEN27>
+ <ADD TOTAL-ACCESS11 BL8 = TOTAL-ACCESS11 (TYPE FIX)>
+ <SET BB38 B7>
+ <LOOP>
+AGAIN39
+ <INTGO>
+ <SET POS28 BB38>
+ <DEAD BB38>
+ <EMPUS? POS28 + TAG43>
+ <LOOP (CHAR9 VALUE) (POS28 LENGTH VALUE)>
+TAG45
+ <NTHUS POS28 1 = TEMP47>
+ <VEQUAL? TEMP47 CHAR9 + TAG44>
+ <DEAD TEMP47>
+ <RESTUS POS28 1 = POS28 (TYPE STRING)>
+ <EMPUS? POS28 - TAG45>
+TAG43
+ <DEAD POS28>
+ <SET POS28 %<> (TYPE FALSE)>
+TAG44
+ <TYPE? POS28 <TYPE-CODE FALSE> + EXIT36>
+ <LENUS POS28 = PL26 (TYPE FIX)>
+ <VEQUAL? LEN27 BL8 + BOOL48 (TYPE FIX)>
+ <SUB BL8 LEN27 = TEMP47 (TYPE FIX)>
+ <GRTR? PL26 TEMP47 - EXIT36 (TYPE FIX)>
+ <DEAD TEMP47>
+BOOL48
+ <GRTR? PL26 MAXL10 - PHRASE56 (TYPE FIX)>
+ <GRTR? TOTAL-ACCESS11 0 - PHRASE52 (TYPE FIX)>
+ <FRAME '\1aACCESS>
+ <PUSH CHAN5>
+ <SUB TOTAL-ACCESS11 ML13 = TOTAL-ACCESS11 (TYPE FIX)>
+ <PUSH TOTAL-ACCESS11>
+ <CALL '\1aACCESS 2>
+ <SUB TOTAL-ACCESS11 BL8 = TOTAL-ACCESS11 (TYPE FIX)>
+ <JUMP + AGAIN34>
+PHRASE52
+ <RESTUS POS28 1 = BB38 (TYPE STRING)>
+ <DEAD POS28>
+ <JUMP + AGAIN39>
+PHRASE56
+ <DEAD BB38>
+ <SUB BL8 PL26 = TEMP47 (TYPE FIX)>
+ <DEAD PL26>
+ <SUB TEMP47 ML13 = TEMP47 (TYPE FIX)>
+ <RESTUS B7 TEMP47 = TEMP47 (TYPE STRING)>
+ <LENUS TEMP47 = SL17 (TYPE FIX)>
+ <SET WORD-OK21 'T (TYPE ATOM)>
+ <SET SETG-OK20 WORD-OK21>
+ <SET TEMP69 %<> (TYPE FALSE)>
+ <SET TEMP65 MS12 (TYPE STRING)>
+ <SET TEMP66 WS18 (TYPE STRING)>
+ <LOOP>
+MAP60
+ <INTGO>
+ <EMPUS? TEMP47 + MAPAP63>
+ <EMPUS? TEMP65 + MAPAP63>
+ <EMPUS? TEMP66 + MAPAP63>
+ <NTHUS TEMP47 1 = C171>
+ <NTHUS TEMP65 1 = C272>
+ <NTHUS TEMP66 1 = C373>
+ <VEQUAL? C171 C272 + PHRASE75>
+ <DEAD C272>
+ <SET SETG-OK20 %<> (TYPE FALSE)>
+PHRASE75
+ <VEQUAL? C171 C373 + PHRASE77>
+ <DEAD C373 C171>
+ <SET WORD-OK21 %<> (TYPE FALSE)>
+PHRASE77
+ <SET TEMP69 SETG-OK20>
+ <RESTUS TEMP47 1 = TEMP47 (TYPE STRING)>
+ <RESTUS TEMP65 1 = TEMP65 (TYPE STRING)>
+ <RESTUS TEMP66 1 = TEMP66 (TYPE STRING)>
+ <JUMP + MAP60>
+MAPAP63
+ <DEAD SETG-OK20 TEMP47 TEMP65 TEMP66>
+ <TYPE? TEMP69 <TYPE-CODE FALSE> + PHRASE58>
+ <DEAD TEMP69>
+ <SET TEMP65 0 (TYPE FIX)>
+ <LOOP>
+MAP79
+ <INTGO>
+ <RESTUS POS28 1 = POS28 (TYPE STRING)>
+ <EMPUS? POS28 - PHRASE87 (TYPE STRING)>
+ <ADD SL17 BL8 = SL17 (TYPE FIX)>
+ <LESS? LEN27 BL8 - PHRASE89 (TYPE FIX)>
+ <DEAD LEN27>
+ <FRAME '\1aERROR>
+ <PUSH 'BAD-FILE!-ERRORS>
+ <PUSH CHAN5>
+ <CALL '\1aERROR 2>
+PHRASE89
+ <FRAME '\1aCHANNEL-OP>
+ <PUSH CHAN5>
+ <PUSH 'READ-BUFFER>
+ <PUSH B7>
+ <CALL '\1aCHANNEL-OP 3 = LEN27>
+ <ADD TOTAL-ACCESS11 BL8 = TOTAL-ACCESS11 (TYPE FIX)>
+ <SET POS28 B7>
+PHRASE87
+ <NTHUS POS28 1 = CH85 (TYPE CHARACTER)>
+ <VEQUAL? CH85 !\ + MAPAP82>
+ <VEQUAL? CH85 !\! + MAPAP82>
+ <SET TEMP47 CH85>
+ <DEAD CH85>
+ <PUSH TEMP47>
+ <DEAD TEMP47>
+ <ADD TEMP65 1 = TEMP65 (TYPE FIX)>
+ <JUMP + MAP79>
+MAPAP82
+ <UBLOCK <TYPE-CODE STRING> TEMP65 = NAMESTR31 (TYPE STRING)>
+ <DEAD TEMP65>
+ <FRAME '\1aLOOKUP>
+ <PUSH NAMESTR31>
+ <PUSH OBL6>
+ <CALL '\1aLOOKUP 2 = NAME-ATOM32>
+ <TYPE? NAME-ATOM32 <TYPE-CODE FALSE> - BOOL97>
+ <FRAME '\1aINSERT>
+ <PUSH NAMESTR31>
+ <DEAD NAMESTR31>
+ <PUSH OBL6>
+ <CALL '\1aINSERT 2 = NAME-ATOM32>
+BOOL97
+ <TYPE? IM-POS29 <TYPE-CODE FALSE> + PHRASE101>
+ <LOOP>
+AGAIN104
+ <INTGO>
+ <SET TEMP69 POS28>
+ <DEAD POS28>
+ <EMPUS? TEMP69 + TAG107>
+ <LOOP (LC114 VALUE) (TEMP69 LENGTH VALUE)>
+TAG109
+ <NTHUS TEMP69 1 = TEMP47>
+ <VEQUAL? TEMP47 LC114 + TAG108>
+ <DEAD TEMP47>
+ <RESTUS TEMP69 1 = TEMP69 (TYPE STRING)>
+ <EMPUS? TEMP69 - TAG109>
+TAG107
+ <DEAD TEMP69>
+ <SET POS28 %<> (TYPE FALSE)>
+ <JUMP + TAG111>
+TAG108
+ <SET POS28 TEMP69>
+ <DEAD TEMP69>
+TAG111
+ <TYPE? POS28 <TYPE-CODE FALSE> + PHRASE106>
+ <RESTUS POS28 1 = POS28 (TYPE STRING)>
+ <LOOP>
+AGAIN113
+ <INTGO>
+ <EMPUS? POS28 - PHRASE115 (TYPE STRING)>
+ <FRAME '\1aCHANNEL-OP>
+ <PUSH CHAN5>
+ <PUSH 'READ-BUFFER>
+ <PUSH B7>
+ <CALL '\1aCHANNEL-OP 3 = LEN27>
+ <SET POS28 B7>
+ <ADD TOTAL-ACCESS11 BL8 = TOTAL-ACCESS11 (TYPE FIX)>
+PHRASE115
+ <NTHUS POS28 1 = CH103 (TYPE CHARACTER)>
+ <GRTR? CH103 32 + PHRASE118 (TYPE FIX)>
+ <DEAD CH103>
+ <RESTUS POS28 1 = POS28 (TYPE STRING)>
+ <JUMP + AGAIN113>
+PHRASE118
+ <NTHUS POS28 1 = TEMP67 (TYPE CHARACTER)>
+ <VEQUAL? TEMP67 LC215 - AGAIN104>
+ <DEAD TEMP67>
+ <RESTUS POS28 1 = POS28 (TYPE STRING)>
+ <LOOP>
+AGAIN122
+ <INTGO>
+ <EMPUS? POS28 - PHRASE124 (TYPE STRING)>
+ <FRAME '\1aCHANNEL-OP>
+ <PUSH CHAN5>
+ <PUSH 'READ-BUFFER>
+ <PUSH B7>
+ <CALL '\1aCHANNEL-OP 3 = LEN27>
+ <SET POS28 B7>
+ <ADD TOTAL-ACCESS11 BL8 = TOTAL-ACCESS11 (TYPE FIX)>
+PHRASE124
+ <NTHUS POS28 1 = CH103 (TYPE CHARACTER)>
+ <GRTR? CH103 32 + PHRASE127 (TYPE FIX)>
+ <DEAD CH103>
+ <RESTUS POS28 1 = POS28 (TYPE STRING)>
+ <JUMP + AGAIN122>
+PHRASE127
+ <NTHUS POS28 1 = TEMP47 (TYPE CHARACTER)>
+ <VEQUAL? TEMP47 LC316 - AGAIN104>
+ <DEAD TEMP47>
+ <RESTUS POS28 1 = POS28 (TYPE STRING)>
+ <JUMP + PHRASE130>
+PHRASE106
+ <FRAME '\1aCHANNEL-OP>
+ <PUSH CHAN5>
+ <PUSH 'READ-BUFFER>
+ <PUSH B7>
+ <CALL '\1aCHANNEL-OP 3 = LEN27>
+ <SET POS28 B7>
+ <ADD TOTAL-ACCESS11 BL8 = TOTAL-ACCESS11 (TYPE FIX)>
+ <JUMP + AGAIN104>
+PHRASE130
+ <TYPE? WRD19 <TYPE-CODE UNBOUND> + PHRASE133>
+ <CHTYPE WRD19 <TYPE-CODE WORD> = TEMP47>
+ <CONS TEMP47 () = TEMP47>
+ <JUMP + PHRASE134>
+PHRASE133
+ <SET TEMP47 () (TYPE LIST)>
+PHRASE134
+ <LENUS POS28 = TEMP136 (TYPE FIX)>
+ <SUB BL8 TEMP136 = TEMP136 (TYPE FIX)>
+ <ADD TEMP136 TOTAL-ACCESS11 = TEMP136 (TYPE FIX)>
+ <CONS TEMP136 TEMP47 = TEMP47>
+ <DEAD TEMP136>
+ <CONS IM-POS29 TEMP47 = IM-POS29>
+ <CONS NAME-ATOM32 IM-POS29 = NAME-ATOM32>
+ <CONS NAME-ATOM32 INDEX30 = INDEX30>
+ <DEAD NAME-ATOM32>
+ <SET IM-POS29 %<> (TYPE FALSE)>
+ <JUMP + PHRASE161>
+PHRASE101
+ <SUB BL8 SL17 = TEMP47 (TYPE FIX)>
+ <DEAD SL17>
+ <ADD TEMP47 TOTAL-ACCESS11 = IM-POS29 (TYPE FIX)>
+ <DEAD TEMP47>
+ <JUMP + PHRASE161>
+PHRASE58
+ <VEQUAL? WORD-OK21 0 + PHRASE138>
+ <SET WRD19 0 (TYPE FIX)>
+ <LOOP>
+MAP140
+ <INTGO>
+ <RESTUS POS28 1 = POS28 (TYPE STRING)>
+ <EMPUS? POS28 - PHRASE148 (TYPE STRING)>
+ <ADD SL17 BL8 = SL17 (TYPE FIX)>
+ <LESS? LEN27 BL8 - PHRASE150 (TYPE FIX)>
+ <DEAD LEN27>
+ <FRAME '\1aERROR>
+ <PUSH 'BAD-FILE!-ERRORS>
+ <PUSH CHAN5>
+ <CALL '\1aERROR 2>
+PHRASE150
+ <FRAME '\1aCHANNEL-OP>
+ <PUSH CHAN5>
+ <PUSH 'READ-BUFFER>
+ <PUSH B7>
+ <CALL '\1aCHANNEL-OP 3 = LEN27>
+ <ADD TOTAL-ACCESS11 BL8 = TOTAL-ACCESS11 (TYPE FIX)>
+ <SET POS28 B7>
+PHRASE148
+ <NTHUS POS28 1 = CH146 (TYPE CHARACTER)>
+ <VEQUAL? CH146 !\* - PHRASE154>
+ <VEQUAL? WORD-OK21 0 + PHRASE161>
+ <DEAD WORD-OK21>
+ <SET WORD-OK21 %<> (TYPE FALSE)>
+ <JUMP + MAP140>
+PHRASE154
+ <VEQUAL? WORD-OK21 0 - MAP140>
+ <LSH WRD19 3 = WRD19 (TYPE FIX)>
+ <SUB CH146 48 = TEMP160 (TYPE FIX)>
+ <DEAD CH146>
+ <OR WRD19 TEMP160 = WRD19>
+ <DEAD TEMP160>
+ <JUMP + MAP140>
+PHRASE138
+ <DEAD SL17 WORD-OK21>
+ <RESTUS POS28 1 = POS28 (TYPE STRING)>
+PHRASE161
+ <SET BB38 POS28>
+ <DEAD POS28>
+ <JUMP + AGAIN39>
+EXIT36
+ <DEAD BB38>
+ <VEQUAL? LEN27 BL8 + AGAIN34 (TYPE FIX)>
+ <DEAD LEN27 B7 BL8 CHAN5 CHAR9 IM-POS29 LC114 LC215 LC316 MAXL10 ML13 MS12 OBL6 TOTAL-ACCESS11 WRD19 WS18>
+ <RETURN INDEX30>
+ <DEAD INDEX30>
+ <END \1aBUILD-INDEX>
+
+#WORD *32257366134*
+ <GFCN \1aSKIP-MIMA ("VALUE" ATOM CHANNEL ATOM) CHAN5 NAME6>
+ <TEMP MCHAR7:CHARACTER MS8:STRING ML9:FIX MAXL10:FIX SPN11:STRING ECHAR12:CHARACTER B16:STRING BL17:FIX TEMP23:FIX TOTAL-ACCESS21:FIX OUTER24 LEN20:FIX BB28:STRING STATE29:FIX POS18 TEMP38 PL19:FIX TEMP59 TEMP61 TEMP56:STRING C162:CHARACTER C263:CHARACTER C274:CHARACTER TEMP57:CHARACTER TEMP13:ATOM>
+ <INTGO>
+ <GVAL 'MAGIC-CHAR = MCHAR7>
+ <GVAL 'MAGIC-STRING2 = MS8>
+ <GVAL 'MAGIC-LENGTH2 = ML9>
+ <GVAL 'MAGIC-MAX2 = MAXL10>
+ <NTHR NAME6 3 = SPN11 (RECORD-TYPE ATOM)>
+ <GVAL 'LAST-CHAR3 = ECHAR12>
+ <GVAL 'BUFFER = B16>
+ <GVAL 'BUFLENGTH = BL17>
+ <FRAME '\1aACCESS>
+ <PUSH CHAN5>
+ <CALL '\1aACCESS 1 = TEMP23>
+ <SUB TEMP23 BL17 = TOTAL-ACCESS21 (TYPE FIX)>
+ <DEAD TEMP23>
+ <LOOP>
+AGAIN25
+ <INTGO>
+ <FRAME '\1aCHANNEL-OP>
+ <PUSH CHAN5>
+ <PUSH 'READ-BUFFER>
+ <PUSH B16>
+ <CALL '\1aCHANNEL-OP 3 = LEN20>
+ <ADD TOTAL-ACCESS21 BL17 = TOTAL-ACCESS21 (TYPE FIX)>
+ <SET BB28 B16>
+ <SET STATE29 0 (TYPE FIX)>
+ <LOOP>
+AGAIN30
+ <INTGO>
+ <SET POS18 BB28>
+ <DEAD BB28>
+ <EMPUS? POS18 + TAG34>
+ <LOOP (MCHAR7 VALUE) (POS18 LENGTH VALUE)>
+TAG36
+ <NTHUS POS18 1 = TEMP38>
+ <VEQUAL? TEMP38 MCHAR7 + TAG35>
+ <DEAD TEMP38>
+ <RESTUS POS18 1 = POS18 (TYPE STRING)>
+ <EMPUS? POS18 - TAG36>
+TAG34
+ <DEAD POS18>
+ <SET POS18 %<> (TYPE FALSE)>
+TAG35
+ <TYPE? POS18 <TYPE-CODE FALSE> + EXIT27>
+ <LENUS POS18 = PL19 (TYPE FIX)>
+ <VEQUAL? BL17 LEN20 + BOOL39 (TYPE FIX)>
+ <SUB BL17 LEN20 = TEMP38 (TYPE FIX)>
+ <GRTR? PL19 TEMP38 - EXIT27 (TYPE FIX)>
+ <DEAD TEMP38>
+BOOL39
+ <GRTR? PL19 MAXL10 - PHRASE47 (TYPE FIX)>
+ <GRTR? TOTAL-ACCESS21 0 - PHRASE43 (TYPE FIX)>
+ <FRAME '\1aACCESS>
+ <PUSH CHAN5>
+ <SUB TOTAL-ACCESS21 ML9 = TOTAL-ACCESS21 (TYPE FIX)>
+ <PUSH TOTAL-ACCESS21>
+ <CALL '\1aACCESS 2>
+ <SUB TOTAL-ACCESS21 BL17 = TOTAL-ACCESS21 (TYPE FIX)>
+ <JUMP + AGAIN25>
+PHRASE43
+ <RESTUS POS18 1 = BB28 (TYPE STRING)>
+ <DEAD POS18>
+ <JUMP + AGAIN30>
+PHRASE47
+ <DEAD BB28>
+ <SET TEMP59 %<> (TYPE FALSE)>
+ <SUB BL17 PL19 = TEMP61 (TYPE FIX)>
+ <DEAD PL19>
+ <SUB TEMP61 ML9 = TEMP61 (TYPE FIX)>
+ <RESTUS B16 TEMP61 = TEMP61 (TYPE STRING)>
+ <SET TEMP56 MS8 (TYPE STRING)>
+ <LOOP>
+MAP51
+ <INTGO>
+ <EMPUS? TEMP61 + MAPAP54>
+ <EMPUS? TEMP56 + MAPAP54>
+ <NTHUS TEMP61 1 = C162>
+ <NTHUS TEMP56 1 = C263>
+ <VEQUAL? C162 C263 + PHRASE65>
+ <DEAD C263 C162>
+ <SET TEMP59 %<> (TYPE FALSE)>
+ <JUMP + MAPAP54>
+PHRASE65
+ <SET TEMP59 1 (TYPE FIX)>
+ <RESTUS TEMP61 1 = TEMP61 (TYPE STRING)>
+ <RESTUS TEMP56 1 = TEMP56 (TYPE STRING)>
+ <JUMP + MAP51>
+MAPAP54
+ <DEAD TEMP56 TEMP61>
+ <TYPE? TEMP59 <TYPE-CODE FALSE> + PHRASE49>
+ <DEAD TEMP59>
+ <LOOP>
+MAP68
+ <INTGO>
+ <RESTUS POS18 1 = POS18 (TYPE STRING)>
+ <EMPUS? POS18 - PHRASE76 (TYPE STRING)>
+ <VEQUAL? LEN20 BL17 + PHRASE78 (TYPE FIX)>
+ <DEAD LEN20>
+ <FRAME '\1aERROR>
+ <PUSH 'BAD-MIMA!-ERRORS>
+ <PUSH NAME6>
+ <CALL '\1aERROR 2>
+PHRASE78
+ <FRAME '\1aCHANNEL-OP>
+ <PUSH CHAN5>
+ <PUSH 'READ-BUFFER>
+ <SET POS18 B16>
+ <PUSH POS18>
+ <CALL '\1aCHANNEL-OP 3 = LEN20>
+ <ADD TOTAL-ACCESS21 BL17 = TOTAL-ACCESS21 (TYPE FIX)>
+PHRASE76
+ <NTHUS POS18 1 = C274 (TYPE CHARACTER)>
+ <EMPUS? SPN11 - PHRASE82 (TYPE STRING)>
+ <VEQUAL? C274 ECHAR12 + MAPAP71>
+ <FRAME '\1aSKIP-TRL>
+ <PUSH C274>
+ <DEAD C274>
+ <PUSH STATE29>
+ <DEAD STATE29>
+ <CALL '\1aSKIP-TRL 2 = STATE29>
+ <VEQUAL? STATE29 3 - MAP68 (TYPE FIX)>
+ <FRAME '\1aERROR>
+ <PUSH 'BAD-MIMA!-ERRORS>
+ <PUSH NAME6>
+ <CALL '\1aERROR 2>
+ <JUMP + MAP68>
+PHRASE82
+ <NTHUS SPN11 1 = TEMP57 (TYPE CHARACTER)>
+ <VEQUAL? TEMP57 C274 + PHRASE88>
+ <DEAD C274 TEMP57>
+ <FRAME '\1aERROR>
+ <PUSH 'BAD-MIMA!-ERRORS>
+ <PUSH NAME6>
+ <CALL '\1aERROR 2>
+ <JUMP + MAP68>
+PHRASE88
+ <RESTUS SPN11 1 = SPN11 (TYPE STRING)>
+ <JUMP + MAP68>
+MAPAP71
+ <FRAME '\1aACCESS>
+ <PUSH CHAN5>
+ <LENUS POS18 = TEMP59 (TYPE FIX)>
+ <SUB BL17 TEMP59 = TEMP59 (TYPE FIX)>
+ <SUB TEMP59 -2 = TEMP59 (TYPE FIX)>
+ <ADD TEMP59 TOTAL-ACCESS21 = STACK (TYPE FIX)>
+ <DEAD TEMP59>
+ <CALL '\1aACCESS 2>
+ <RETURN 'T>
+PHRASE49
+ <RESTUS POS18 1 = BB28 (TYPE STRING)>
+ <DEAD POS18>
+ <JUMP + AGAIN30>
+EXIT27
+ <DEAD BB28 STATE29>
+ <VEQUAL? LEN20 BL17 + AGAIN25 (TYPE FIX)>
+ <DEAD LEN20>
+ <FRAME '\1aERROR>
+ <PUSH 'BAD-MIMA!-ERRORS>
+ <PUSH NAME6>
+ <CALL '\1aERROR 2>
+ <JUMP + AGAIN25>
+ <DEAD B16 BL17 CHAN5 ECHAR12 MAXL10 MCHAR7 ML9 MS8 NAME6 SPN11 TOTAL-ACCESS21>
+ <END \1aSKIP-MIMA>
+
+#WORD *34722723767*
+ <GFCN \1aSKIP-TRL ("VALUE" FIX CHARACTER FIX) CHAR5 STATE6>
+ <TEMP TEMP8 TEMP9:FIX TRNS7:FIX>
+ <INTGO>
+ <GVAL 'I$TRANS-TABLE!-INTERNAL = TEMP8>
+ <ADD CHAR5 1 = TEMP9 (TYPE FIX)>
+ <NTHUB TEMP8 TEMP9 = TEMP9 (TYPE FIX)>
+ <DEAD TEMP8>
+ <VEQUAL? STATE6 0 - PHRASE11 (TYPE FIX)>
+ <VEQUAL? TEMP9 7 - PHRASE11 (TYPE FIX)>
+ <RETURN 1>
+PHRASE11
+ <VEQUAL? STATE6 1 - PHRASE15 (TYPE FIX)>
+ <VEQUAL? CHAR5 !\- - PHRASE19>
+ <DEAD CHAR5>
+ <RETURN 0>
+PHRASE19
+ <RETURN 3>
+PHRASE15
+ <VEQUAL? STATE6 2 - PHRASE21 (TYPE FIX)>
+ <DEAD STATE6>
+ <RETURN 0>
+PHRASE21
+ <VEQUAL? TEMP9 14 - PHRASE22 (TYPE FIX)>
+ <RETURN 2>
+PHRASE22
+ <VEQUAL? TEMP9 15 + BOOL24 (TYPE FIX)>
+ <VEQUAL? TEMP9 18 + BOOL24 (TYPE FIX)>
+ <VEQUAL? TEMP9 19 + BOOL24 (TYPE FIX)>
+ <VEQUAL? TEMP9 16 + BOOL24 (TYPE FIX)>
+ <GVAL 'M$$R-STAR = TEMP8>
+ <EQUAL? TEMP8 TEMP9 - PHRASE23>
+ <DEAD TEMP9 TEMP8>
+BOOL24
+ <RETURN 0>
+PHRASE23
+ <RETURN 3>
+ <END \1aSKIP-TRL>
+
+<ENDPACKAGE>
projects / pdp10-muddle.git / blobdiff