1
0
mirror of https://github.com/dschmenk/PLASMA.git synced 2026-04-20 16:16:34 +00:00

Back out some of the DINTRP optimizations. Dependecy on Y being szero in ENTER

This commit is contained in:
Dave Schmenk
2019-12-01 15:24:18 -08:00
parent 2fe4b9ed52
commit 1242b53824
4 changed files with 14 additions and 6 deletions
+4 -1
View File
@@ -149,10 +149,13 @@ OPTBL !WORD CN,CN,CN,CN,CN,CN,CN,CN ; 00 02
;* DIRECTLY ENTER INTO BYTECODE INTERPRETER
;*
DINTRP PLA
CLC
ADC #$01
STA IPL
PLA
ADC #$00
STA IPH
LDY #$01
LDY #$00
JMP FETCHOP
;*
;* INDIRECTLY ENTER INTO BYTECODE INTERPRETER
+3 -1
View File
@@ -160,12 +160,14 @@ OPTBL !WORD CN,CN,CN,CN,CN,CN,CN,CN ; 00 02
;* SYSTEM INTERPRETER ENTRYPOINT
;*
INTERP PLA
CLC
ADC #$01
STA IPL
PLA
ADC #$00
STA IPH
LDY #$00
STY IPX
INY
JMP FETCHOP
;*
;* ENTER INTO USER BYTECODE INTERPRETER
+3 -3
View File
@@ -283,17 +283,17 @@ DINTRP PHP
XCE
+ACCMEM16 ; 16 BIT A/M
PLA
INC
STA IP
STX ESP
TSX
STX HWSP
LDX #>OPTBL
!IF DEBUG {
INC IP
JMP SETDBG
BRA SETDBG
} ELSE {
STX OPPAGE
LDY #$01
LDY #$00
JMP FETCHOP
}
!AS
+4 -1
View File
@@ -223,10 +223,13 @@ OPTBL !WORD CN,CN,CN,CN,CN,CN,CN,CN ; 00 02
;* DIRECTLY ENTER INTO BYTECODE INTERPRETER
;*
DINTRP PLA
CLC
ADC #$01
STA IPL
PLA
ADC #$00
STA IPH
LDY #$01
LDY #$00
LDA #>OPTBL
STA OPPAGE
JMP FETCHOP