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

15 lines
170 B
Plaintext

#
mes 2,EM_WSIZE,EM_PSIZE
exp $creat
pro $creat,0
lal 0
loi EM_WSIZE+EM_PSIZE
loc 8
mon
zeq *1
ste errno ; since e==r0
loc -1
1
ret EM_WSIZE
end