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
internal
L1
WORD := 80
external
cerror procedure
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
signal module
$SECTION signal_b
internal
L1
ARRAY [20 WORD]
$SDEFAULT
external
cerror procedure
global
_signal procedure
entry
ld r2,#22
ld r0,r7
ld r1,r6
cp r0,#%0014
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