ack/plat/em/libsys/_creat.e

15 lines
172 B
Plaintext
Raw Normal View History

1990-01-22 11:48:01 +00:00
#
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