chrissy
/
P8000
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

untested

This commit is contained in:
Oliver Lehmann 2009-08-26 13:08:24 +00:00
parent 89b37d465b
commit efa5e4134e
1 changed files with 69 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

69
WEGA/src/lib/libc/sys/signal.s Normal file
View File

@ -0,0 +1,69 @@
signal module
internal
L1
WORD = 80
external
_cerror
global
signal procedure
entry
ld r2,#22
ld r0,r7
ld r1,r6
cp r0,20
jp ge,cerror
ld r3,r0
sla r3,#1
ld r2,L1(r3)
ld L1(r3),r1
rr r1,#1
rl r1,#1
jr ule,L2
lda r1,L5(r3)
L2:
sc #48
bit r4,#0
jr z,L4
ld r2,r4
L4:
ret nc
jp cerror
L5:
calr L7
L6:
calr L7
calr L7
calr L7
calr L7
calr L7
calr L7
calr L7
calr L7
calr L7
calr L7
calr L7
calr L7
calr L7
calr L7
calr L7
calr L7
calr L7
calr L7
calr L7
L7:
sub r15,#30
ldm @r15,r0,#15
ld r7,30(r15)
sub r7,#L6
ld r2,L1(r7)
srl r7,#1
call @r2
ldm r0,@r15,#15
add r15,#32
sc #0
end signal
end signal