X-Git-Url: https://jxself.org/git/?p=pdp10-muddle.git;a=blobdiff_plain;f=mim%2Fdevelopment%2Fmim%2Fvaxc%2Ffile-index.mima;fp=mim%2Fdevelopment%2Fmim%2Fvaxc%2Ffile-index.mima;h=fd16cf24cc6d40a90325d7684136081598d94f29;hp=0000000000000000000000000000000000000000;hb=d73ace3f3292e320b461b8fcd2e9f5dc5d9684d7;hpb=d530283ea60fb0ddcc28e9c5bd072456afe06e07

diff --git a/mim/development/mim/vaxc/file-index.mima b/mim/development/mim/vaxc/file-index.mima
new file mode 100644
index 0000000..fd16cf2
--- /dev/null
+++ b/mim/development/mim/vaxc/file-index.mima
@@ -0,0 +1,567 @@
+
+<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 BUILD-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 'CHANNEL-OP>
+		    <PUSH CHAN5>
+		    <PUSH 'READ-BUFFER>
+		    <PUSH B7>
+		    <CALL 'CHANNEL-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 'ACCESS>
+		    <PUSH CHAN5>
+		    <SUB TOTAL-ACCESS11 ML13 = TOTAL-ACCESS11 (TYPE FIX)>
+		    <PUSH TOTAL-ACCESS11>
+		    <CALL 'ACCESS 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 'ERROR>
+		    <PUSH 'BAD-FILE!-ERRORS>
+		    <PUSH CHAN5>
+		    <CALL 'ERROR 2>
+PHRASE89
+		    <FRAME 'CHANNEL-OP>
+		    <PUSH CHAN5>
+		    <PUSH 'READ-BUFFER>
+		    <PUSH B7>
+		    <CALL 'CHANNEL-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 'LOOKUP>
+		    <PUSH NAMESTR31>
+		    <PUSH OBL6>
+		    <CALL 'LOOKUP 2 = NAME-ATOM32>
+		    <TYPE? NAME-ATOM32 <TYPE-CODE FALSE> - BOOL97>
+		    <FRAME 'INSERT>
+		    <PUSH NAMESTR31>
+		    <DEAD NAMESTR31>
+		    <PUSH OBL6>
+		    <CALL 'INSERT 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 'CHANNEL-OP>
+		    <PUSH CHAN5>
+		    <PUSH 'READ-BUFFER>
+		    <PUSH B7>
+		    <CALL 'CHANNEL-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 'CHANNEL-OP>
+		    <PUSH CHAN5>
+		    <PUSH 'READ-BUFFER>
+		    <PUSH B7>
+		    <CALL 'CHANNEL-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 'CHANNEL-OP>
+		    <PUSH CHAN5>
+		    <PUSH 'READ-BUFFER>
+		    <PUSH B7>
+		    <CALL 'CHANNEL-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 'ERROR>
+		    <PUSH 'BAD-FILE!-ERRORS>
+		    <PUSH CHAN5>
+		    <CALL 'ERROR 2>
+PHRASE150
+		    <FRAME 'CHANNEL-OP>
+		    <PUSH CHAN5>
+		    <PUSH 'READ-BUFFER>
+		    <PUSH B7>
+		    <CALL 'CHANNEL-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 BUILD-INDEX>
+
+#WORD *32257366134*
+		    <GFCN SKIP-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 'ACCESS>
+		    <PUSH CHAN5>
+		    <CALL 'ACCESS 1 = TEMP23>
+		    <SUB TEMP23 BL17 = TOTAL-ACCESS21 (TYPE FIX)>
+		    <DEAD TEMP23>
+		    <LOOP>
+AGAIN25
+		    <INTGO>
+		    <FRAME 'CHANNEL-OP>
+		    <PUSH CHAN5>
+		    <PUSH 'READ-BUFFER>
+		    <PUSH B16>
+		    <CALL 'CHANNEL-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 'ACCESS>
+		    <PUSH CHAN5>
+		    <SUB TOTAL-ACCESS21 ML9 = TOTAL-ACCESS21 (TYPE FIX)>
+		    <PUSH TOTAL-ACCESS21>
+		    <CALL 'ACCESS 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 'ERROR>
+		    <PUSH 'BAD-MIMA!-ERRORS>
+		    <PUSH NAME6>
+		    <CALL 'ERROR 2>
+PHRASE78
+		    <FRAME 'CHANNEL-OP>
+		    <PUSH CHAN5>
+		    <PUSH 'READ-BUFFER>
+		    <SET POS18 B16>
+		    <PUSH POS18>
+		    <CALL 'CHANNEL-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 'SKIP-TRL>
+		    <PUSH C274>
+		    <DEAD C274>
+		    <PUSH STATE29>
+		    <DEAD STATE29>
+		    <CALL 'SKIP-TRL 2 = STATE29>
+		    <VEQUAL? STATE29 3 - MAP68 (TYPE FIX)>
+		    <FRAME 'ERROR>
+		    <PUSH 'BAD-MIMA!-ERRORS>
+		    <PUSH NAME6>
+		    <CALL 'ERROR 2>
+		    <JUMP + MAP68>
+PHRASE82
+		    <NTHUS SPN11 1 = TEMP57 (TYPE CHARACTER)>
+		    <VEQUAL? TEMP57 C274 + PHRASE88>
+		    <DEAD C274 TEMP57>
+		    <FRAME 'ERROR>
+		    <PUSH 'BAD-MIMA!-ERRORS>
+		    <PUSH NAME6>
+		    <CALL 'ERROR 2>
+		    <JUMP + MAP68>
+PHRASE88
+		    <RESTUS SPN11 1 = SPN11 (TYPE STRING)>
+		    <JUMP + MAP68>
+MAPAP71
+		    <FRAME 'ACCESS>
+		    <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 'ACCESS 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 'ERROR>
+		    <PUSH 'BAD-MIMA!-ERRORS>
+		    <PUSH NAME6>
+		    <CALL 'ERROR 2>
+		    <JUMP + AGAIN25>
+		    <DEAD B16 BL17 CHAN5 ECHAR12 MAXL10 MCHAR7 ML9 MS8 NAME6 SPN11 TOTAL-ACCESS21>
+		    <END SKIP-MIMA>
+
+#WORD *34722723767*
+		    <GFCN SKIP-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 SKIP-TRL>
+
+<ENDPACKAGE>