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

diff --git a/mim/development/mim/mimc/rot32.mud b/mim/development/mim/mimc/rot32.mud
new file mode 100644
index 0000000..99e7050
--- /dev/null
+++ b/mim/development/mim/mimc/rot32.mud
@@ -0,0 +1,43 @@
+<SETG 32MASK #WORD *37777777777*>
+
+<MANIFEST 32MASK>
+
+<DEFMAC ROT32!- ('A 'B "AUX" PT)
+	<FORM IFSYS ("UNIX" <FORM ROT .A .B>)
+	      ("TOPS20"
+	       <COND (<AND <OR <==? <SET PT <PRIMTYPE .A>> FIX>
+			       <==? .PT WORD>
+			       <==? <SET PT <TYPE .A>> GVAL>
+			       <==? .PT LVAL>
+			       <AND <TYPE? .A FORM>
+				    <==? <LENGTH .A> 2>
+				    <OR <==? <1 .A> LVAL> <==? <1 .A> GVAL>>
+				    <TYPE? <2 .A> ATOM>>>
+			   <TYPE? .B FIX>>
+		      <COND (<==? .B 0> .A)
+			    (ELSE
+			     <FORM ANDB
+				   <FORM ORB <FORM LSH .A .B>
+					 <FORM LSH <FORM ANDB .A ,32MASK>
+					       <COND (<L? .B 0> <+ .B 32>)
+						     (ELSE <- .B 32>)>>>
+				   ,32MASK>)>)
+		     (<TYPE? .B FIX>
+		      <FORM PROG ((OBJ .A))
+			    <FORM ANDB
+				  <FORM ORB <FORM LSH '.OBJ .B>
+					<FORM LSH <FORM ANDB '.OBJ ,32MASK>
+					      <COND (<L? .B 0> <+ .B 32>)
+						    (ELSE <- .B 32>)>>>
+				  ,32MASK>>)
+		     (ELSE
+		      <FORM PROG ((OBJ .A) (SHFT .B))
+			    <FORM ANDB
+				  <FORM ORB <FORM LSH '.OBJ '.SHFT>
+					<FORM LSH <FORM ANDB '.OBJ ,32MASK>
+					      <FORM COND (<FORM L? '.SHFT 0>
+							  <FORM + '.SHFT 32>)
+						    (ELSE <FORM - '.SHFT 32>)>>>
+				  ,32MASK>>)>)>>
+		       
+						
\ No newline at end of file