6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2025-01-21 02:33:24 +00:00
Code Issues Projects Releases Wiki Activity

Last of the VM opts. For now

Browse Source
This commit is contained in:
David Schmenk 2018-01-24 13:35:00 -08:00
parent 115c11d57b
commit c2ee0a04ab
7 changed files with 21 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/makefile
View File

@ -5,7 +5,7 @@ PLVM01 = A1PLASMA\#060280
PLVM02 = PLASMA.SYSTEM\#FF2000
PLVM802 = PLASMA16.SYSTEM\#FF2000
PLVM03 = SOS.INTERP\#050000
CMD = CMD\#FF2000
CMD = CMD\#061000
ED = ED\#FE1000
SB = SB\#FF2000
ROD = ROD\#FE1000

1
src/vmsrc/cmd.pla
View File

@ -193,7 +193,6 @@ REGVALS = SRC
STY ESTKH,X
PLP
RTS
JMPTMP JMP (TMP)
end
//
// CALL LOADED SYSTEM PROGRAM

2
src/vmsrc/plvm01.s
View File

@ -908,7 +908,7 @@ CALLADR JSR $FFFF
;*
;* JUMP INDIRECT TRHOUGH TMP
;*
JMPTMP JMP (TMP)
;JMPTMP JMP (TMP)
;*
;* ENTER FUNCTION WITH FRAME SIZE AND PARAM COUNT
;*

7
src/vmsrc/plvm02.s
View File

@ -263,6 +263,11 @@ CMDENTRY = *
DEY
BPL -
;
; SET JMPTMP OPCODE
;
LDA #$4C
STA JMPTMP
;
; INSTALL PAGE 3 VECTORS
;
LDY #$12
@ -1428,7 +1433,7 @@ ICALX LDA ESTKL,X
;*
;* JUMP INDIRECT TRHOUGH TMP
;*
JMPTMP JMP (TMP)
;JMPTMP JMP (TMP)
;*
;* ENTER FUNCTION WITH FRAME SIZE AND PARAM COUNT
;*

14
src/vmsrc/plvm802.s
View File

@ -361,6 +361,11 @@ CMDENTRY = *
DEY
BPL -
;
; SET JMPTMP OPCODE
;
LDA #$4C
STA JMPTMP
;
; INSTALL PAGE 3 VECTORS
;
LDY #$12
@ -1420,7 +1425,7 @@ EMUSTKX STA TMP
;*
;* JUMP INDIRECT THROUGH TMP
;*
JMPTMP JMP (TMP)
;JMPTMP JMP (TMP)
;*
;* ENTER FUNCTION WITH FRAME SIZE AND PARAM COUNT
;*
@ -1513,9 +1518,9 @@ LEAVEX INY ;+INC_IP
+
}
TYX ; RESTORE NEW ESP
++ LDA TMPL ; DEALLOCATE POOL + FRAME
+ACCMEM16 ; 16 BIT A/M
AND #$00FF
++ +ACCMEM16 ; 16 BIT A/M
LDY TMPL ; DEALLOCATE POOL + FRAME
TYA
CLC
ADC IFP
STA PP
@ -1528,6 +1533,7 @@ LEAVEX INY ;+INC_IP
PHA
PLP
RTS
!AL
;
RETX STX ALTRDOFF
RET SEC ; SWITCH TO EMULATION MODE

5
src/vmsrc/plvmzp.inc
View File

@ -9,7 +9,7 @@ SRCH = SRC+1
DST = SRC+2
DSTL = DST
DSTH = DST+1
ESGUARD = $BE
ESGUARD = $BE
ESTKSZ = $20
ESTK = $C0
ESTKH = ESTK
@ -23,6 +23,7 @@ PPL = PP
PPH = PP+1
IPY = PP+2
ESP = IPY+1
TMP = ESP+1
JMPTMP = ESP+1
TMP = JMPTMP+1
TMPL = TMP
TMPH = TMP+1

1
src/vmsrc/soscmd.pla
View File

@ -177,7 +177,6 @@ REGVALS = SRC
STY ESTKH,X
PLP
RTS
JMPTMP JMP (TMP)
end
//
// SET MEMORY TO VALUE