1
0
mirror of https://github.com/dschmenk/PLASMA.git synced 2025-02-09 04:30:37 +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

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

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

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

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