ack/plat/em/libsys/_dup.e

15 lines
133 B
Plaintext
Raw Normal View History

1990-01-22 11:48:01 +00:00
#
mes 2,EM_WSIZE,EM_PSIZE
exp $_dup
pro $_dup,0
lol 0
1990-01-26 09:50:44 +00:00
dup EM_WSIZE
1990-01-22 11:48:01 +00:00
loc 41
mon
zeq *1
ste errno
loc -1
1
ret EM_WSIZE
end