6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2025-03-20 03:31:27 +00:00
Code Issues Projects Releases Wiki Activity

Clean up frame allocate calc

Browse Source
This commit is contained in:
Dave Schmenk 2020-06-30 08:25:17 -07:00
parent e7e475faa7
commit 20a6655c0f
2 changed files with 12 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
src/vmsrc/apple/plvm03.s
View File

@ -1328,15 +1328,14 @@ ENTER LDA IFPH
PHA ; SAVE ON STACK FOR LEAVE
LDA IFPL
PHA
LDA PPL ; ALLOCATE FRAME
INY
LDA (IP),Y
EOR #$FF
SEC
ADC PPL
SBC (IP),Y
STA PPL
STA IFPL
LDA #$FF
ADC PPH
LDA PPH
SBC #$00
STA PPH
STA IFPH
INY
@ -1357,13 +1356,13 @@ ENTER LDA IFPH
;*
;* LEAVE FUNCTION
;*
LEAVE INY ;+INC_IP
LDA (IP),Y
LEAVE LDA IFPL
INY ;+INC_IP
CLC
ADC IFPL
ADC (IP),Y
STA PPL
LDA #$00
ADC IFPH
LDA IFPH
ADC #$00
STA PPH
PLA ; RESTORE PREVIOUS FRAME
STA IFPL

6
src/vmsrc/apple/plvmjit03.s
View File

@ -160,11 +160,11 @@ OPTBL !WORD ZERO,CN,CN,CN,CN,CN,CN,CN ; 00 02
;* SYSTEM INTERPRETER ENTRYPOINT
;*
INTERP PLA
CLC
ADC #$01
CLC
ADC #$01
STA IPL
PLA
ADC #$00
ADC #$00
STA IPH
LDY #$00
STY IPX