changed entry points csa and csb; strscript should call m68020

instead of acc
This commit is contained in:
ceriel 1989-02-21 10:09:01 +00:00
parent 432cf9054d
commit 75c18ef56c
3 changed files with 7 additions and 5 deletions

View file

@ -8,9 +8,10 @@ ECASE=20
.sect .text
.csa:
move.l (sp)+, a0 ! jump table address
! jump table address in a0
! index in d0
move.l (a0)+, a1 ! default address
move.l (sp)+, d0 ! index
sub.l (a0)+, d0 ! index - lower bound
blt 1f
cmp.l (a0)+, d0 ! rel. index, upper - lower bound

View file

@ -8,8 +8,9 @@ ECASE=20
.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 3f

View file

@ -1,3 +1,3 @@
acc -c.s -L -LIB -I../../../h trpstr.c
m68020 -c.s -L -LIB -I../../../h trpstr.c
sed s/_trpstr/.trpstr/g < trpstr.s > trpstr.ss
mv trpstr.ss trpstr.s