Apple-2-SW/lawless-legends
1
0
Fork 0
mirror of https://github.com/badvision/lawless-legends.git synced 2024-10-03 06:54:42 +00:00
Code Issues Projects Releases Wiki Activity

Reduce stack usage during CALL/RET

Browse Source
This commit is contained in:
Dave Schmenk 2017-12-04 21:42:52 -08:00
parent f6069c576d
commit fe3a592e25
2 changed files with 53 additions and 60 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Platform/Apple/tools/PLASMA/src/PLVM02#4000
View File

Binary file not shown.

57
Platform/Apple/tools/PLASMA/src/plvm02.s
View File

@ -1177,19 +1177,18 @@ CALL +INC_IP
+INC_IP
LDA (IP),Y
STA TMPH
LDA IPH
PHA
LDA IPL
PHA
TYA
CLC
ADC IPL
PHA
LDA IPH
ADC #$00
PHA
JSR JMPTMP
PLA
TAY
STA IPH
PLA
STA IPL
PLA
STA IPH
LDA #>OPTBL ; MAKE SURE WE'RE INDEXING THE RIGHT TABLE
STA OPPAGE
JMP NEXTOP
@ -1200,23 +1199,21 @@ CALLX +INC_IP
+INC_IP
LDA (IP),Y
STA TMPH
LDA IPH
PHA
LDA IPL
PHA
TYA
CLC
ADC IPL
PHA
LDA IPH
ADC #$00
PHA
STA ALTRDOFF
;CLI UNTIL I KNOW WHAT TO DO WITH THE UNENHANCED IIE
JSR JMPTMP
;SEI UNTIL I KNOW WHAT TO DO WITH THE UNENHANCED IIE
SEI
STA ALTRDON
PLA
TAY
STA IPH
PLA
STA IPL
PLA
STA IPH
LDA #>OPXTBL ; MAKE SURE WE'RE INDEXING THE RIGHT TABLE
STA OPPAGE
JMP NEXTOP
@ -1228,19 +1225,18 @@ ICAL LDA ESTKL,X
LDA ESTKH,X
STA TMPH
INX
LDA IPH
PHA
LDA IPL
PHA
TYA
CLC
ADC IPL
PHA
LDA IPH
ADC #$00
PHA
JSR JMPTMP
PLA
TAY
STA IPH
PLA
STA IPL
PLA
STA IPH
LDA #>OPTBL ; MAKE SURE WE'RE INDEXING THE RIGHT TABLE
STA OPPAGE
JMP NEXTOP
@ -1250,23 +1246,20 @@ ICALX LDA ESTKL,X
LDA ESTKH,X
STA TMPH
INX
LDA IPH
PHA
LDA IPL
PHA
TYA
CLC
ADC IPL
PHA
LDA IPH
ADC #$00
PHA
STA ALTRDOFF
;CLI UNTIL I KNOW WHAT TO DO WITH THE UNENHANCED IIE
JSR JMPTMP
;SEI UNTIL I KNOW WHAT TO DO WITH THE UNENHANCED IIE
STA ALTRDON
PLA
TAY
STA IPH
PLA
STA IPL
PLA
STA IPH
LDA #>OPXTBL ; MAKE SURE WE'RE INDEXING THE RIGHT TABLE
STA OPPAGE
JMP NEXTOP