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

diff --git a/mim/development/mim/20/rdtime.mud b/mim/development/mim/20/rdtime.mud
new file mode 100644
index 0000000..fce2eb0
--- /dev/null
+++ b/mim/development/mim/20/rdtime.mud
@@ -0,0 +1,10 @@
+<DEFINE T1 (NM "AUX" CH (TM <TIME>))
+  <COND (<SET CH <OPEN "READ" .NM>>
+	 <REPEAT ()
+	   <READ .CH '<RETURN>>>
+	 <COND (<==? <TYPEPRIM FIX> FIX><CLOSE .CH>)>
+	 <- <TIME> .TM>)>>
+
+<DEFINE T2 (NM "AUX" (TM <TIME>))
+  <FLOAD .NM>
+  <- <TIME> .TM>>
\ No newline at end of file