6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2024-11-04 11:07:00 +00:00
Code Issues Projects Releases Wiki Activity

Merge branch 'devel' of https://github.com/dschmenk/PLASMA into devel

Browse Source
This commit is contained in:
David Schmenk 2018-03-20 14:19:42 -07:00
commit 9701c00d1e
4 changed files with 35 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/vmsrc/apple/plvm01.s
View File

@ -1007,7 +1007,7 @@ CALL INY ;+INC_IP
LDA (IP),Y
STA TMPH
_CALL TYA
CLC
SEC
ADC IPL
PHA
LDA IPH
@ -1018,7 +1018,7 @@ _CALL TYA
STA IPH
PLA
STA IPL
LDY #$01
LDY #$00
JMP FETCHOP
;*
;* JUMP INDIRECT TRHOUGH TMP

16
src/vmsrc/apple/plvm02.s
View File

@ -1790,7 +1790,7 @@ CALL INY ;+INC_IP
LDA (IP),Y
STA TMPH
TYA
CLC
SEC
ADC IPL
PHA
LDA IPH
@ -1803,7 +1803,7 @@ CALL INY ;+INC_IP
STA IPL
LDA #>OPTBL ; MAKE SURE WE'RE INDEXING THE RIGHT TABLE
STA OPPAGE
LDY #$01
LDY #$00
JMP FETCHOP
CALLX INY ;+INC_IP
LDA (IP),Y
@ -1812,7 +1812,7 @@ CALLX INY ;+INC_IP
LDA (IP),Y
STA TMPH
TYA
CLC
SEC
ADC IPL
PHA
LDA IPH
@ -1834,7 +1834,7 @@ CALLX INY ;+INC_IP
STA IPL
LDA #>OPXTBL ; MAKE SURE WE'RE INDEXING THE RIGHT TABLE
STA OPPAGE
LDY #$01
LDY #$00
JMP FETCHOP
;*
;* INDIRECT CALL TO ADDRESS (NATIVE CODE)
@ -1845,7 +1845,7 @@ ICAL LDA ESTKL,X
STA TMPH
INX
TYA
CLC
SEC
ADC IPL
PHA
LDA IPH
@ -1858,7 +1858,7 @@ ICAL LDA ESTKL,X
STA IPL
LDA #>OPTBL ; MAKE SURE WE'RE INDEXING THE RIGHT TABLE
STA OPPAGE
LDY #$01
LDY #$00
JMP FETCHOP
ICALX LDA ESTKL,X
STA TMPL
@ -1866,7 +1866,7 @@ ICALX LDA ESTKL,X
STA TMPH
INX
TYA
CLC
SEC
ADC IPL
PHA
LDA IPH
@ -1887,7 +1887,7 @@ ICALX LDA ESTKL,X
STA IPL
LDA #>OPXTBL ; MAKE SURE WE'RE INDEXING THE RIGHT TABLE
STA OPPAGE
LDY #$01
LDY #$0
JMP FETCHOP
;*
;* JUMP INDIRECT TRHOUGH TMP

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

@ -1272,11 +1272,28 @@ ADDBRLE LDA ESTKL,X
;* INDIRECT CALL TO ADDRESS (NATIVE CODE)
;*
ICAL LDA ESTKL,X
STA CALLADR+1
STA ICALADR+1
LDA ESTKH,X
STA CALLADR+2
STA ICALADR+2
INX
BNE _CALL
TYA
SEC
ADC IPL
PHA
LDA IPH
ADC #$00
PHA
LDA IPX
PHA
ICALADR JSR $FFFF
PLA
STA IPX
PLA
STA IPH
PLA
STA IPL
LDY #$00
JMP FETCHOP
;*
;* CALL INTO ABSOLUTE ADDRESS (NATIVE CODE)
;*
@ -1286,7 +1303,7 @@ CALL INY ;+INC_IP
INY ;+INC_IP
LDA (IP),Y
STA CALLADR+2
_CALL TYA
TYA
SEC
ADC IPL
PHA

8
src/vmsrc/apple/plvm802.s
View File

@ -1518,7 +1518,7 @@ CALL INY ;+INC_IP
INY
EMUSTK STA TMP
TYA ; FLATTEN IP
CLC
SEC
ADC IP
STA IP
SEC ; SWITCH TO EMULATED MODE
@ -1614,7 +1614,7 @@ EMUSTK STA TMP
LDX #>DBGTBL
}
STX OPPAGE
LDY #$01
LDY #$00
JMP FETCHOP
;*
;* INDIRECT CALL TO ADDRESS (NATIVE CODE)
@ -1629,7 +1629,7 @@ CALLX INY ;+INC_IP
INY
EMUSTKX STA TMP
TYA ; FLATTEN IP
CLC
SEC
ADC IP
STA IP
SEC ; SWITCH TO EMULATION MODE
@ -1727,7 +1727,7 @@ EMUSTKX STA TMP
LDX #>DBGTBL
}
STX OPPAGE
LDY #$01
LDY #$00
JMP FETCHOP
;*
;* JUMP INDIRECT THROUGH TMP