ack/lang/cem/libcc/mon/stime.e
1985-01-01 22:27:02 +00:00

21 lines
184 B
Plaintext

#
mes 2,EM_WSIZE,EM_PSIZE
exp $stime
pro $stime,0
#if EM_WSIZE<4
lol 0
loi 4
#else
lil 0
#endif
loc 25
mon
zne *1
loc 0
ret EM_WSIZE
1
ste errno
loc -1
ret EM_WSIZE
end