d0p1/ack
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

added csa4 and csb4

Browse source
This commit is contained in:
eck 1990-04-12 11:29:49 +00:00
parent 031b9dfee2
commit f1351720e5
3 changed files with 60 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
mach/m68k2/libem/LIST
View file

@ -5,7 +5,9 @@ cmi.s
cmp.s cmp.s
cmu.s cmu.s
csa.s csa.s
csa4.s
csb.s csb.s
csb4.s
cuu.s cuu.s
exg.s exg.s
inn.s inn.s

30
mach/m68k2/libem/csa4.s Normal file
View file

@ -0,0 +1,30 @@
.define .csa4
.sect .text
.sect .rom
.sect .data
.sect .bss
.sect .text
.csa4:
move.l (sp)+,a0 ! case descriptor
move.l (sp)+,d0 ! index
move.l (a0)+,a1 ! default address
sub.l (a0)+,d0 ! index - lower bound
blt 1f
cmp.l (a0)+,d0 ! rel. index <-> upper - lower bound
bgt 1f
asl.l #2,d0
add.l d0,a0
move.l (a0),d1 ! test jump address
move.l d1,d0
beq 1f
move.l d1,a1
bra 3f
1:
move.l a1,d0 ! test default jump address
beq 2f
3:
jmp (a1)
2:
move.w #ECASE,-(sp)
jmp .fat

28
mach/m68k2/libem/csb4.s Normal file
View file

@ -0,0 +1,28 @@
.define .csb4
.sect .text
.sect .rom
.sect .data
.sect .bss
.sect .text
.csb4:
move.l (sp)+,a0 ! case descriptor
move.l (sp)+,d0 ! index
move.l (a0)+,a1 ! default jump address
move.w (a0)+,d1 ! # entries
beq 2f
1:
cmp.l (a0)+,d0
beq 3f
tst.l (a0)+ ! skip jump address
sub.l #1,d1
bgt 1b
2:
move.l a1,d1 ! default jump address
bne 4f
move.w #ECASE,-(sp)
jmp .fat
3:
move.l (a0)+,a1 ! get jump address
4:
jmp (a1)