changed entry points csa and csb; strscript should call m68020
instead of acc
This commit is contained in:
parent
432cf9054d
commit
75c18ef56c
3 changed files with 7 additions and 5 deletions
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue