changed interface to CSA and CSB
This commit is contained in:
parent
086f4ceacb
commit
3e17d769b9
@ -6,8 +6,8 @@
|
|||||||
|
|
||||||
.sect .text
|
.sect .text
|
||||||
.csa:
|
.csa:
|
||||||
move.l (sp)+,a0 ! case descriptor
|
! case descriptor in a0
|
||||||
move.l (sp)+,d0 ! index
|
! index in d0
|
||||||
move.l (a0)+,a1 ! default address
|
move.l (a0)+,a1 ! default address
|
||||||
sub.l (a0)+,d0 ! index - lower bound
|
sub.l (a0)+,d0 ! index - lower bound
|
||||||
blt 1f
|
blt 1f
|
||||||
|
|||||||
@ -6,8 +6,8 @@
|
|||||||
|
|
||||||
.sect .text
|
.sect .text
|
||||||
.csb:
|
.csb:
|
||||||
move.l (sp)+,a0 ! case descriptor
|
! case descriptor in a0
|
||||||
move.l (sp)+,d0 ! index
|
! index in d0
|
||||||
move.l (a0)+,a1 ! default jump address
|
move.l (a0)+,a1 ! default jump address
|
||||||
move.l (a0)+,d1 ! # entries
|
move.l (a0)+,d1 ! # entries
|
||||||
beq 2f
|
beq 2f
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user