changed interface to CSA and CSB

This commit is contained in:
ceriel 1989-02-22 17:18:17 +00:00
parent 5187e46404
commit 13c2a9a2a5
2 changed files with 4 additions and 4 deletions

View file

@ -6,8 +6,8 @@
.sect .text
.csa:
move.l (sp)+,a0 ! case descriptor
move.l (sp)+,d0 ! index
! case descriptor in a0
! index in d0
move.l (a0)+,a1 ! default address
sub.l (a0)+,d0 ! index - lower bound
blt 1f

View file

@ -6,8 +6,8 @@
.sect .text
.csb:
move.l (sp)+,a0 ! case descriptor
move.l (sp)+,d0 ! index
! case descriptor in a0
! index in d0
move.l (a0)+,a1 ! default jump address
move.l (a0)+,d1 ! # entries
beq 2f