ack/plat/em/libsys/open.e

15 lines
141 B
Plaintext
Raw Permalink Normal View History

1985-01-01 22:27:02 +00:00
#
mes 2,EM_WSIZE,EM_PSIZE
exp $open
pro $open,0
lal 0
loi EM_WSIZE+EM_PSIZE
loc 5
mon
zeq *1
ste errno
loc -1
1
ret EM_WSIZE
end