X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;ds=sidebyside;f=mim%2Fdevelopment%2Fmim%2F20%2Fdefault.mima;fp=mim%2Fdevelopment%2Fmim%2F20%2Fdefault.mima;h=29732b6ebf18c9a8e4ea90f3192fa8c99c32b473;hb=d73ace3f3292e320b461b8fcd2e9f5dc5d9684d7;hp=0000000000000000000000000000000000000000;hpb=d530283ea60fb0ddcc28e9c5bd072456afe06e07;p=pdp10-muddle.git

diff --git a/mim/development/mim/20/default.mima b/mim/development/mim/20/default.mima
new file mode 100644
index 0000000..29732b6
--- /dev/null
+++ b/mim/development/mim/20/default.mima
@@ -0,0 +1,341 @@
+
+#WORD *11031104327*
+		    <GFCN X$DEF-GET-MODE ("VALUE" <OR FALSE STRING> CHANNEL ANY) CHANNEL4 OPER5>
+		    <TEMP DATA6 TEMP11>
+		    <INTGO>
+		    <NTHUV CHANNEL4 5 = DATA6>
+		    <DEAD CHANNEL4>
+		    <NTHUV DATA6 1 = DATA6 (TYPE FIX)>
+		    <IFSYS "VAX">
+		    <AND DATA6 #WORD *177777* = TEMP11>
+		    <ENDIF "VAX">
+		    <IFSYS "TOPS20">
+		    <AND DATA6 #WORD *777777* = TEMP11>
+		    <DEAD DATA6>
+		    <ENDIF "TOPS20">
+		    <SYSOP 'GTSTS TEMP11 (RETURN 2) = DATA6>
+		    <DEAD TEMP11>
+		    <LESS? DATA6 0 + PHRASE16 (TYPE FIX)>
+		    <RETURN "CLOSED">
+PHRASE16
+		    <AND DATA6 #WORD *100000000000* = TEMP11>
+		    <VEQUAL? TEMP11 0 + PHRASE19 (TYPE FIX)>
+		    <DEAD TEMP11>
+		    <AND DATA6 #WORD *20000000000* = TEMP11>
+		    <DEAD DATA6>
+		    <VEQUAL? TEMP11 0 - PHRASE24 (TYPE FIX)>
+		    <DEAD TEMP11>
+		    <RETURN "APPEND">
+PHRASE24
+		    <RETURN "MODIFY">
+PHRASE19
+		    <AND DATA6 #WORD *200000000000* = TEMP11>
+		    <DEAD DATA6>
+		    <VEQUAL? TEMP11 0 - TAG29 (TYPE FIX)>
+		    <DEAD TEMP11>
+		    <RETURN %<>>
+TAG29
+		    <RETURN "READ">
+		    <END X$DEF-GET-MODE>
+
+#WORD *617706206*
+		    <GFCN X$DEF-GET-BYTE-SIZE ("VALUE" ANY CHANNEL ANY) CHANNEL4 OPER5>
+		    <TEMP DATA6 TEMP11>
+		    <INTGO>
+		    <NTHUV CHANNEL4 5 = DATA6>
+		    <DEAD CHANNEL4>
+		    <NTHUV DATA6 1 = DATA6 (TYPE FIX)>
+		    <SYSOP 'RFBSZ DATA6 (RETURN 2) = DATA6>
+		    <SET TEMP11 DATA6>
+		    <TYPE? TEMP11 <TYPE-CODE FALSE> + PHRASE16>
+		    <EQUAL? DATA6 7 - PHRASE13>
+		    <RETURN "ASCII">
+PHRASE13
+		    <EQUAL? DATA6 8 - PHRASE14>
+		    <RETURN "8BIT">
+PHRASE14
+		    <EQUAL? DATA6 36 - PHRASE15>
+		    <RETURN "BINARY">
+PHRASE15
+		    <SET TEMP11 DATA6>
+		    <DEAD DATA6>
+PHRASE16
+		    <RETURN TEMP11>
+		    <DEAD TEMP11>
+		    <END X$DEF-GET-BYTE-SIZE>
+
+#WORD *34764423542*
+		    <GFCN X$DEF-SHORT-NAME ("VALUE" <OR FALSE STRING> CHANNEL ANY) CHANNEL4 OPER5>
+		    <TEMP DATA6>
+		    <INTGO>
+		    <NTHUV CHANNEL4 5 = DATA6>
+		    <DEAD CHANNEL4>
+		    <FRAME 'I$DO-JFNS>
+		    <NTHUV DATA6 1 = STACK (TYPE FIX)>
+		    <DEAD DATA6>
+		    <PUSH 153092097>
+		    <CALL 'I$DO-JFNS 2 = DATA6>
+		    <RETURN DATA6>
+		    <DEAD DATA6>
+		    <END X$DEF-SHORT-NAME>
+
+#WORD *34766427142*
+		    <GFCN X$DEF-NM1 ("VALUE" <OR FALSE STRING> CHANNEL ANY) CHANNEL4 OPER5>
+		    <TEMP DATA6>
+		    <INTGO>
+		    <NTHUV CHANNEL4 5 = DATA6>
+		    <DEAD CHANNEL4>
+		    <FRAME 'I$DO-JFNS>
+		    <NTHUV DATA6 1 = STACK (TYPE FIX)>
+		    <DEAD DATA6>
+		    <PUSH 134217728>
+		    <CALL 'I$DO-JFNS 2 = DATA6>
+		    <RETURN DATA6>
+		    <DEAD DATA6>
+		    <END X$DEF-NM1>
+
+#WORD *34766463142*
+		    <GFCN X$DEF-NM2 ("VALUE" <OR FALSE STRING> CHANNEL ANY) CHANNEL4 OPER5>
+		    <TEMP DATA6>
+		    <INTGO>
+		    <NTHUV CHANNEL4 5 = DATA6>
+		    <DEAD CHANNEL4>
+		    <FRAME 'I$DO-JFNS>
+		    <NTHUV DATA6 1 = STACK (TYPE FIX)>
+		    <DEAD DATA6>
+		    <PUSH 16777216>
+		    <CALL 'I$DO-JFNS 2 = DATA6>
+		    <RETURN DATA6>
+		    <DEAD DATA6>
+		    <END X$DEF-NM2>
+
+#WORD *34766467142*
+		    <GFCN X$DEF-DEV ("VALUE" <OR FALSE STRING> CHANNEL ANY) CHANNEL4 OPER5>
+		    <TEMP DATA6>
+		    <INTGO>
+		    <NTHUV CHANNEL4 5 = DATA6>
+		    <DEAD CHANNEL4>
+		    <FRAME 'I$DO-JFNS>
+		    <NTHUV DATA6 1 = STACK (TYPE FIX)>
+		    <DEAD DATA6>
+		    <PUSH 8589934592>
+		    <CALL 'I$DO-JFNS 2 = DATA6>
+		    <RETURN DATA6>
+		    <DEAD DATA6>
+		    <END X$DEF-DEV>
+
+#WORD *25651047345*
+		    <GFCN X$DEF-SNM ("VALUE" ANY CHANNEL ANY) CHANNEL4 OPER5>
+		    <TEMP DATA7 STR6 TEMP13>
+		    <INTGO>
+		    <NTHUV CHANNEL4 5 = DATA7>
+		    <DEAD CHANNEL4>
+		    <FRAME 'I$DO-JFNS>
+		    <NTHUV DATA7 1 = STACK (TYPE FIX)>
+		    <PUSH 1073741824>
+		    <CALL 'I$DO-JFNS 2 = STR6>
+		    <NTHUV DATA7 1 = TEMP13 (TYPE FIX)>
+		    <GETBITS TEMP13 18 18 = TEMP13>
+		    <VEQUAL? TEMP13 0 - BOOL12 (TYPE FIX)>
+		    <DEAD TEMP13>
+		    <FRAME 'T$GET-DEVICE-TYPE>
+		    <NTHUV DATA7 1 = STACK (TYPE FIX)>
+		    <DEAD DATA7>
+		    <CALL 'T$GET-DEVICE-TYPE 1 = TEMP13>
+		    <EQUAL? TEMP13 0 - PHRASE10>
+		    <DEAD TEMP13>
+BOOL12
+		    <TYPE? STR6 <TYPE-CODE FALSE> + BOOL17>
+		    <EMPUS? STR6 - PHRASE10 (TYPE STRING)>
+BOOL17
+		    <FRAME 'T$GET-CONNECTED-DIR>
+		    <CALL 'T$GET-CONNECTED-DIR 0 = TEMP13>
+		    <RETURN TEMP13>
+		    <DEAD TEMP13>
+PHRASE10
+		    <RETURN STR6>
+		    <DEAD STR6>
+		    <END X$DEF-SNM>
+
+#WORD *21046032454*
+		    <GFCN X$DEF-NAME ("VALUE" <OR FALSE STRING> CHANNEL ANY "OPTIONAL" ANY) CHANNEL6 OPER7 BITS8>
+		    <OPT-DISPATCH 2 %<> OPT4 OPT5>
+OPT4
+		    <PUSH 31>
+OPT5
+		    <TEMP DATA9 (ARGBITS10:FIX 1) TEMP13>
+		    <INTGO>
+		    <NTHUV CHANNEL6 5 = DATA9>
+		    <DEAD CHANNEL6>
+		    <AND BITS8 #WORD *20* = TEMP13>
+		    <VEQUAL? TEMP13 0 + PHRASE12 (TYPE FIX)>
+		    <DEAD TEMP13>
+		    <OR ARGBITS10 #WORD *100000000000* = ARGBITS10>
+PHRASE12
+		    <AND BITS8 #WORD *10* = TEMP13>
+		    <VEQUAL? TEMP13 0 + PHRASE17 (TYPE FIX)>
+		    <DEAD TEMP13>
+		    <OR ARGBITS10 #WORD *10000000000* = ARGBITS10>
+PHRASE17
+		    <AND BITS8 #WORD *4* = TEMP13>
+		    <VEQUAL? TEMP13 0 + PHRASE21 (TYPE FIX)>
+		    <DEAD TEMP13>
+		    <OR ARGBITS10 #WORD *1000000000* = ARGBITS10>
+PHRASE21
+		    <AND BITS8 #WORD *2* = TEMP13>
+		    <VEQUAL? TEMP13 0 + PHRASE25 (TYPE FIX)>
+		    <DEAD TEMP13>
+		    <OR ARGBITS10 #WORD *100000000* = ARGBITS10>
+PHRASE25
+		    <AND BITS8 #WORD *1* = TEMP13>
+		    <DEAD BITS8>
+		    <VEQUAL? TEMP13 0 + PHRASE29 (TYPE FIX)>
+		    <DEAD TEMP13>
+		    <OR ARGBITS10 #WORD *10000000* = ARGBITS10>
+PHRASE29
+		    <FRAME 'I$DO-JFNS>
+		    <NTHUV DATA9 1 = STACK (TYPE FIX)>
+		    <DEAD DATA9>
+		    <PUSH ARGBITS10>
+		    <DEAD ARGBITS10>
+		    <CALL 'I$DO-JFNS 2 = TEMP13>
+		    <RETURN TEMP13>
+		    <DEAD TEMP13>
+		    <END X$DEF-NAME>
+
+#WORD *14070754150*
+		    <GFCN I$DO-JFNS ("VALUE" <OR FALSE STRING> FIX FIX) JFN4 BITS5>
+		    <TEMP STR7:STRING TEMP14 CT6 OLD34 NEW35:STRING>
+		    <INTGO>
+		    <GVAL 'I$NAMSTR = STR7>
+		    <AND JFN4 #WORD *777777* = JFN4>
+		    <VEQUAL? JFN4 65 + BOOL11 (TYPE FIX)>
+		    <VEQUAL? JFN4 64 - PHRASE10 (TYPE FIX)>
+BOOL11
+		    <AND BITS5 #WORD *100000000000* = TEMP14>
+		    <VEQUAL? TEMP14 0 - PHRASE13 (TYPE FIX)>
+		    <DEAD TEMP14>
+		    <RETURN "">
+PHRASE13
+		    <AND BITS5 #WORD *1* = TEMP14>
+		    <DEAD BITS5>
+		    <VEQUAL? TEMP14 0 - PHRASE17 (TYPE FIX)>
+		    <DEAD TEMP14>
+		    <RETURN "TTY">
+PHRASE17
+		    <RETURN "TTY:">
+PHRASE10
+		    <SYSOP 'JFNS STR7 JFN4 BITS5 0 = CT6>
+		    <DEAD JFN4 BITS5>
+		    <SET TEMP14 CT6>
+		    <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE22>
+		    <UUBLOCK <TYPE-CODE STRING> CT6 = CT6 (TYPE STRING)>
+		    <SET TEMP14 STR7 (TYPE STRING)>
+		    <DEAD STR7>
+		    <SET STR7 CT6 (TYPE STRING)>
+		    <LOOP>
+MAP24
+		    <INTGO>
+		    <EMPUS? TEMP14 + MAPAP27>
+		    <EMPUS? STR7 + MAPAP27>
+		    <SET OLD34 TEMP14>
+		    <SET NEW35 STR7>
+		    <NTHUS OLD34 1 = OLD34 (TYPE CHARACTER)>
+		    <PUTUS NEW35 1 OLD34>
+		    <DEAD NEW35 OLD34>
+		    <RESTUS TEMP14 1 = TEMP14 (TYPE STRING)>
+		    <RESTUS STR7 1 = STR7 (TYPE STRING)>
+		    <JUMP + MAP24>
+MAPAP27
+		    <SET TEMP14 CT6>
+		    <DEAD CT6>
+PHRASE22
+		    <RETURN TEMP14>
+		    <DEAD TEMP14>
+		    <END I$DO-JFNS>
+
+#WORD *421616144*
+		    <GFCN X$DEF-FLUSH ("VALUE" ANY CHANNEL ANY) CHANNEL4 OPER5>
+		    <TEMP DATA6>
+		    <INTGO>
+		    <NTHUV CHANNEL4 5 = DATA6>
+		    <DEAD CHANNEL4>
+		    <NTHUV DATA6 1 = DATA6 (TYPE FIX)>
+		    <AND DATA6 #WORD *777777* = DATA6>
+		    <OR DATA6 #WORD *4000000000* = DATA6>
+		    <SYSOP 'CLOSF DATA6 = DATA6>
+		    <TYPE? DATA6 <TYPE-CODE FALSE> + PHRASE9>
+		    <RETURN DATA6>
+		    <DEAD DATA6>
+PHRASE9
+		    <RETURN DATA6>
+		    <DEAD DATA6>
+		    <END X$DEF-FLUSH>
+
+#WORD *13224016071*
+		    <GFCN X$DEF-HACK-DATE ("VALUE" <OR FALSE FIX> CHANNEL ATOM "OPTIONAL" FIX) CHANNEL6 OPR7 NEW8>
+		    <OPT-DISPATCH 2 %<> OPT4 OPT5>
+OPT4
+		    <PUSH #T$UNBOUND 0>
+OPT5
+		    <TEMP DATA9 JFN11:FIX TEMP16>
+		    <INTGO>
+		    <NTHUV CHANNEL6 5 = DATA9>
+		    <DEAD CHANNEL6>
+		    <NTHUV DATA9 1 = DATA9 (TYPE FIX)>
+		    <AND DATA9 #WORD *777777* = JFN11>
+		    <DEAD DATA9>
+		    <NTHR 'DATEU 1 = DATA9 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG15)>
+		    <TYPE? DATA9 <TYPE-CODE FALSE> + TAG15>
+		    <NTHR DATA9 1 = DATA9 (RECORD-TYPE GBIND)>
+		    <TYPE? DATA9 <TYPE-CODE UNBOUND> - PHRASE14>
+		    <DEAD DATA9>
+TAG15
+		    <UUBLOCK <TYPE-CODE UVECTOR> 3 = DATA9>
+		    <SET TEMP16 DATA9>
+		    <LOOP (TEMP16 VALUE LENGTH)>
+ISTR17
+		    <EMPUU? TEMP16 + ISTRE18>
+		    <PUTUU TEMP16 1 0>
+		    <RESTUU TEMP16 1 = TEMP16>
+		    <JUMP + ISTR17>
+ISTRE18
+		    <SETG 'DATEU DATA9>
+		    <DEAD DATA9>
+PHRASE14
+		    <GVAL 'DATEU = TEMP16>
+		    <TYPE? NEW8 <TYPE-CODE UNBOUND> - PHRASE20>
+		    <SYSOP 'RFTAD JFN11 TEMP16 3 = DATA9>
+		    <DEAD JFN11>
+		    <TYPE? DATA9 <TYPE-CODE FALSE> + PHRASE29>
+		    <VEQUAL? OPR7 'T$READ-DATE - PHRASE24>
+		    <DEAD OPR7>
+		    <NTHUU TEMP16 3 = DATA9 (TYPE FIX)>
+		    <DEAD TEMP16>
+		    <RETURN DATA9>
+		    <DEAD DATA9>
+PHRASE24
+		    <NTHUU TEMP16 1 = DATA9 (TYPE FIX)>
+		    <DEAD TEMP16>
+		    <RETURN DATA9>
+		    <DEAD DATA9>
+PHRASE20
+		    <PUTUU TEMP16 1 -1>
+		    <PUTUU TEMP16 2 -1>
+		    <PUTUU TEMP16 3 -1>
+		    <VEQUAL? OPR7 'T$READ-DATE - PHRASE27>
+		    <DEAD OPR7>
+		    <PUTUU TEMP16 3 NEW8>
+		    <JUMP + COND26>
+PHRASE27
+		    <PUTUU TEMP16 1 NEW8>
+COND26
+		    <SYSOP 'SFTAD JFN11 TEMP16 3 = DATA9>
+		    <DEAD JFN11 TEMP16>
+		    <TYPE? DATA9 <TYPE-CODE FALSE> + PHRASE29>
+		    <SET DATA9 NEW8>
+		    <DEAD NEW8>
+PHRASE29
+		    <RETURN DATA9>
+		    <DEAD DATA9>
+		    <END X$DEF-HACK-DATE>