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

diff --git a/mim/development/mim/20c/double.mud b/mim/development/mim/20c/double.mud
new file mode 100644
index 0000000..a501ceb
--- /dev/null
+++ b/mim/development/mim/20c/double.mud
@@ -0,0 +1,31 @@
+<OP-20 DFAD *110*>
+<OP-20 DFSB *111*>
+<OP-20 DFMP *112*>
+<OP-20 DFDV *113*>
+
+<DEFINE DOUBLE!-MIMOC (L "AUX" (OP <1 .L>) (A1 <2 .L>) (A2 <3 .L>)
+			       (VV <4 .L>) (VAL <6 .L>) AC INS
+			       (RFALSE <GENLBL "DBL">))
+	#DECL ((L) LIST (OP) <OR <FORM ATOM ATOM> ATOM>)
+	<COND (<TYPE? .OP FORM> <SET OP <2 .OP>>)>
+	<UPDATE-ACS>
+	<COND (<SET AC <IN-AC? .A1 VALUE>>
+	       <OCEMIT DMOVE O1* (.AC)>)
+	      (ELSE
+	       <OCEMIT DMOVE O1* @ !<OBJ-VAL .A1>>)>
+	<SET INS <COND (<==? .OP +> DFAD)
+		       (<==? .OP -> DFSB)
+		       (<==? .OP *> DFMP)
+		       (ELSE DFDV)>>
+	<COND (<SET AC <IN-AC? .A2 VALUE>> <OCEMIT .INS O1* (.AC)>)
+	      (ELSE <OCEMIT .INS O1* @ !<OBJ-VAL .A2>>)>
+	<OCEMIT JFCL A1* <XJUMP .RFALSE>>
+	<COND (<AND <==? .A2 .VV> .AC>
+	       <OCEMIT DMOVEM O1* (.AC)>)
+	      (ELSE <OCEMIT DMOVEM O1* @ !<OBJ-VAL .VV>>)>
+	<OCEMIT MOVSI A1* <TYPE-CODE FIX>>
+	<OCEMIT CAIA O* O*>
+	<LABEL .RFALSE>
+	<OCEMIT MOVSI A1* <TYPE-CODE FALSE>>
+	<OCEMIT MOVEI A2* 0>
+	<PUSHJ-VAL .VAL>>