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

make compatible

This commit is contained in:
Oliver Lehmann 2009-08-26 17:00:20 +00:00
parent 7c7c44fe51
commit 939087979a
1 changed files with 73 additions and 69 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

142
WEGA/src/lib/libc/sys/signal.s
View File

@ -1,69 +1,73 @@
signal module signal module
internal $SECTION signal_b
L1
WORD := 80 internal
L1
external ARRAY [20 WORD]
cerror procedure
$SDEFAULT
global
_signal procedure external
entry cerror procedure
ld r2,#22
ld r0,r7 global
ld r1,r6 _signal procedure
cp r0,20 entry
jp ge,cerror ld r2,#22
ld r3,r0 ld r0,r7
sla r3,#1 ld r1,r6
ld r2,L1(r3) cp r0,#%0014
ld L1(r3),r1 jp ge,cerror
rr r1,#1 ld r3,r0
rl r1,#1 sla r3,#1
jr ule,L2 ld r2,L1(r3)
lda r1,L5(r3) ld L1(r3),r1
L2: rr r1,#1
sc #48 rl r1,#1
bit r4,#0 jr ule,L2
jr z,L4 lda r1,L5(r3)
ld r2,r4 L2:
L4: sc #48
ret nc bit r4,#0
jp cerror jr z,L4
L5: ld r2,r4
calr L7 L4:
L6: ret nc
calr L7 jp cerror
calr L7 L5:
calr L7 calr L7
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 calr L7
calr L7 calr L7
calr L7 calr L7
calr L7 calr L7
calr L7 calr L7
calr L7 calr L7
L7: calr L7
calr L7
sub r15,#30 calr L7
ldm @r15,r0,#15 calr L7
ld r7,30(r15) L7:
sub r7,#L6
ld r2,L1(r7) sub r15,#30
srl r7,#1 ldm @r15,r0,#15
call @r2 ld r7,30(r15)
ldm r0,@r15,#15 sub r7,#L6
add r15,#32 ld r2,L1(r7)
sc #0 srl r7,#1
end _signal call @r2
end signal ldm r0,@r15,#15
add r15,#32
sc #0
end _signal
end signal