ack/mach/ns/libsys/wait.s

30 lines
299 B
ArmAsm
Raw Normal View History

1985-07-26 12:51:45 +00:00
.define _wait
.extern _wait
.text
_wait:
enter[], 0
movd 7,tos
jsr @.mon
cmpqd 0,tos
bne I0011
cmpqd 0,8(fp)
beq I0012
movd tos,r7
movd r7,0(8(fp))
movd tos,r6
movd r6,r4
exit []
ret 0
I0012:
adjspd -4
movd tos,r7
movd r7,r4
exit []
ret 0
I0011:
movd tos,r7
movd r7,@_errno
movd -1,r4
exit []
ret 0