X-Git-Url: https://jxself.org/git/?p=pdp10-muddle.git;a=blobdiff_plain;f=mim%2Fdevelopment%2Fmim%2F20c%2Fsent.mud;fp=mim%2Fdevelopment%2Fmim%2F20c%2Fsent.mud;h=c0836d98989c78d60bc007e020ac95b67e74521e;hp=0000000000000000000000000000000000000000;hb=d73ace3f3292e320b461b8fcd2e9f5dc5d9684d7;hpb=d530283ea60fb0ddcc28e9c5bd072456afe06e07

diff --git a/mim/development/mim/20c/sent.mud b/mim/development/mim/20c/sent.mud
new file mode 100644
index 0000000..c0836d9
--- /dev/null
+++ b/mim/development/mim/20c/sent.mud
@@ -0,0 +1,47 @@
+<NEWTYPE SUBR-ENTRY!- VECTOR>
+
+<MSETG MOVE <LSH *200* 27>>
+
+<MSETG JSP <LSH *265* 27>>
+
+<MSETG SETZ -0>
+
+<MSETG AC-M 11>
+
+<MSETG AC-R 10>
+
+<MSETG AC-PC 7>
+
+<MSETG IND <LSH 1 22>>
+
+<MSETG MAGIC-PLACE *336*>
+
+<MSETG JSP-TO-MAGIC <ORB ,JSP ,MAGIC-PLACE ,IND <LSH ,AC-PC 23>>>
+
+<MSETG MOVE-1-P-M <ORB ,MOVE <LSH ,AC-R 23> <LSH ,AC-M 18> 1>>
+
+<MSETG SETZ-R <ORB ,SETZ <LSH ,AC-R 18>>>
+
+<DEFINE SUBR-ENTRY (NAME:ATOM "AUX" MS IMS:IMSUBR CD SE)
+	<COND (<AND <GASSIGNED? .NAME> <TYPE? <SET MS ,.NAME> MSUBR>>
+	       <COND (<GETPROP .MS SUBR-ENTRY>)
+		     (ELSE
+		      <SET SE <CHTYPE [<SET IMS ,<1 .MS>>
+				       <COND (<TYPE? <SET CD <1 .IMS>> MCODE>
+					      ,MOVE-1-P-M)
+					     (ELSE
+					      ,JSP-TO-MAGIC)>
+				       <ORB ,SETZ-R <4 .MS>>
+				       .NAME] SUBR-ENTRY>>
+		      <PUTPROP .MS SUBR-ENTRY .SE>
+		      .SE)>)
+	      (ELSE
+	       <ERROR ILLEGAL-SUBR-ENTRY!-ERRORS>)>>
+
+<DEFINE PRINT-SUBR-ENTRY (S:SUBR-ENTRY)
+	<PRINC "%<SUBR-ENTRY">
+	<PRIN1 <4 .S>>
+	<PRINC ">">>
+
+<COND (<GASSIGNED? PRINT-SUBR-ENTRY> <PRINTTYPE SUBR-ENTRY ,PRINT-SUBR-ENTRY>)>
+		       
\ No newline at end of file