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

diff --git a/mim/development/mim/vax/mimlib/binary.mud b/mim/development/mim/vax/mimlib/binary.mud
new file mode 100644
index 0000000..2e83a71
--- /dev/null
+++ b/mim/development/mim/vax/mimlib/binary.mud
@@ -0,0 +1,22 @@
+<PACKAGE "BINARY">
+
+<RENTRY BINARY>
+
+<DEFINE BINARY (X)
+   #DECL ((X) <OR FIX STRING> (OUTCHAN) CHANNEL)
+   <COND (<TYPE? .X FIX>
+	  <REPEAT ((D *20000000000*) (B <ISTRING 32>))
+	     #DECL ((D) FIX (B) STRING)
+	     <COND (<0? <ANDB .D .X>> <PUT .B 1 !\0>)
+		   (T <PUT .B 1 !\1>)>
+	     <COND (<0? <SET D <LSH .D -1>>> <RETURN <TOP .B>>)
+		   (T <SET B <REST .B>>)>>)
+	 (<AND <TYPE? .X STRING> <L=? <LENGTH .X> 32>>
+	  <REPEAT ((D 0) (P <+ <LENGTH .X> 1>) (M 1))
+	     #DECL ((D P M) FIX)
+	     <COND (<0? <SET P <- .P 1>>> <RETURN <CHTYPE .D WORD>>)
+		   (<==? <NTH .X .P> !\1> <SET D <+ .M .D>>)
+		   (<N==? <NTH .X .P> !\0> <ERROR BAD-STRING!-ERRORS BINARY>)>
+	     <SET M <LSH .M 1>>>)>>
+
+<ENDPACKAGE>