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

15 lines
131 B
Plaintext
Raw Normal View History

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