ack/lang/cem/libcc/mon/ftime.e
1990-01-26 09:33:23 +00:00

18 lines
152 B
Plaintext

#
mes 2,EM_WSIZE,EM_PSIZE
exp $ftime
pro $ftime,0
lal 0
loi EM_PSIZE
loc 35
mon
zne *1
loc 0
bra *2
1
ste errno
loc -1
2
ret EM_WSIZE
end