ack/lang/cem/libcc/mon/ftime.e

#
 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
* empty log message * 1985-01-01 22:27:02 +00:00			`#`
			`mes 2,EM_WSIZE,EM_PSIZE`
			`exp $ftime`
			`pro $ftime,0`
			`lal 0`
			`loi EM_PSIZE`
			`loc 35`
			`mon`
ftime has an error return(?) 1990-01-26 09:33:23 +00:00			`zne *1`
			`loc 0`
			`bra *2`
			`1`
			`ste errno`
			`loc -1`
			`2`
			`ret EM_WSIZE`
* empty log message * 1985-01-01 22:27:02 +00:00			`end`