34 lines
399 B
Plaintext
34 lines
399 B
Plaintext
#
|
|
mes 2,EM_WSIZE,EM_PSIZE
|
|
#if EM_WSIZE<4
|
|
#define STATUS_SIZE 2
|
|
#else
|
|
#define STATUS_SIZE EM_WSIZE
|
|
#endif
|
|
exp $wait
|
|
pro $wait,0
|
|
loc 7
|
|
mon
|
|
zne *1
|
|
lal 0
|
|
loi EM_PSIZE
|
|
zer EM_PSIZE
|
|
cms EM_PSIZE
|
|
zeq *2
|
|
#if EM_WSIZE==1
|
|
lal 0
|
|
loi EM_PSIZE
|
|
sti 2 ; 2 bytes, not one int!
|
|
#else
|
|
sil 0
|
|
#endif
|
|
ret EM_WSIZE
|
|
2
|
|
asp STATUS_SIZE
|
|
ret EM_WSIZE
|
|
1
|
|
ste errno
|
|
loc -1
|
|
ret EM_WSIZE
|
|
end
|