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

16 lines
159 B
Plaintext

#
mes 2,EM_WSIZE,EM_PSIZE
exp $ptrace
pro $ptrace,0
zre errno
lal 0
loi EM_PSIZE+3*EM_WSIZE
loc 26
mon
zeq *1
ste errno
loc -1
1
ret EM_WSIZE
end