Machine-Independent MDL for TOPS-20 and VAX.

[pdp10-muddle.git] / mim / development / mim / 20 / rdtime.mud

diff --git a/mim/development/mim/20/rdtime.mud b/mim/development/mim/20/rdtime.mud
new file mode 100644 (file)
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