projects
/
pdp10-muddle.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
A Machine-Independent MDL.
[pdp10-muddle.git]
/
mim
/
development
/
mim
/
20
/
rdtime.mud
1
<DEFINE T1 (NM "AUX" CH (TM <TIME>))
2
<COND (<SET CH <OPEN "READ" .NM>>
3
<REPEAT ()
4
<READ .CH '<RETURN>>>
5
<COND (<==? <TYPEPRIM FIX> FIX><CLOSE .CH>)>
6
<- <TIME> .TM>)>>
7
8
<DEFINE T2 (NM "AUX" (TM <TIME>))
9
<FLOAD .NM>
10
<- <TIME> .TM>>