Apple-2-SW/lawless-legends
1
0
Fork 0
mirror of https://github.com/badvision/lawless-legends.git synced 2024-12-26 04:32:05 +00:00
Code Issues Projects Releases Wiki Activity

Inner interp loop optimization too good to pass up

Browse Source
This commit is contained in:
David Schmenk 2014-06-21 20:49:46 -07:00
parent 72af9602db
commit 73fee14a43
2 changed files with 14 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
PLASMA/src/plvm02.s
View File

@ -247,7 +247,7 @@ CMDEXEC = *
; ;
; INSTALL PAGE 0 FETCHOP ROUTINE ; INSTALL PAGE 0 FETCHOP ROUTINE
; ;
LDY #$0E LDY #$0F
- LDA PAGE0,Y - LDA PAGE0,Y
STA DROP,Y STA DROP,Y
DEY DEY
@ -319,9 +319,9 @@ PAGE0 = *
INX ; DROP @ $EF INX ; DROP @ $EF
INY ; NEXTOP @ $F0 INY ; NEXTOP @ $F0
BEQ NEXTOPH BEQ NEXTOPH
FETCHOP LDA (IP),Y LDA $FFFF,Y ; FETCHOP @ $F3, IP MAPS OVER $FFFF @ $F4
STA OPIDX STA OPIDX
JMP (OPTBL) JMP (OPTBL) ; OPIDX AND OPPAGE MAP OVER OPTBL
NEXTOPH INC IPH NEXTOPH INC IPH
BNE FETCHOP BNE FETCHOP
} }

17
PLASMA/src/plvm02zp.inc
View File

@ -17,11 +17,12 @@ VMZP = ESTK+ESTKSZ
IFP = VMZP IFP = VMZP
IFPL = IFP IFPL = IFP
IFPH = IFP+1 IFPH = IFP+1
IP = IFP+2 ;IP = IFP+2 ; MOVED TO OVERLAY NEXTOP
IPL = IP ;IPL = IP
IPH = IP+1 ;IPH = IP+1
IPY = IP+2 ;IPY = IP+2
TMP = IP+3 IPY = IFP+2
TMP = IPY+1
TMPL = TMP TMPL = TMP
TMPH = TMP+1 TMPH = TMP+1
NPARMS = TMPL NPARMS = TMPL
@ -30,5 +31,9 @@ DVSIGN = TMP+2
ESP = TMP+2 ESP = TMP+2
DROP = $EF DROP = $EF
NEXTOP = $F0 NEXTOP = $F0
OPIDX = NEXTOP+8 FETCHOP = NEXTOP+3
IP = FETCHOP+1
IPL = IP
IPH = IPL+1
OPIDX = FETCHOP+6
OPPAGE = OPIDX+1 OPPAGE = OPIDX+1