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

24 lines
244 B
Plaintext
Raw Normal View History

1990-01-22 11:48:01 +00:00
#
mes 2,EM_WSIZE,EM_PSIZE
exp $_write
pro $_write,0
lol EM_WSIZE+EM_PSIZE
loc EM_WSIZE
loc EM_PSIZE
ciu
lal 0
loi EM_WSIZE+EM_PSIZE
loc 4
mon
zne *1
loc EM_PSIZE
loc EM_WSIZE
cui
bra *2
1
ste errno
loc -1
2
ret EM_WSIZE
end