6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2025-04-05 03:37:43 +00:00
Code Issues Projects Releases Wiki Activity

Leave buffer for maxcode and assembly defcpy

Browse Source
This commit is contained in:
David Schmenk 2018-04-02 15:41:41 -07:00
parent 9e4f9936af
commit 347aa5329d
1 changed files with 28 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

61
src/vmsrc/apple/soscmd.pla
View File

@ -18,56 +18,51 @@ end
//
const jitcomp = $B7F0
const jitcodeptr = $B7F2
const codemax = $A000
const codemax = $9FE0
const directentry = $A0C2 // Right afer opcode table
const indirectentry = $A0D5 // Yikes! Grabbed from plvm03.sym
//
// COPY FROM EXT MEM TO MAIN MEM.
//
// XMEMCPY(DST, XSRC, SIZE)
//
asm xmemcpy(dst, src, srcx, size)#0
asm defcpy(dst, defentry)#0
!SOURCE "vmsrc/plvmzp.inc"
XPAGE = $1600
SRCX = XPAGE+SRCH
DSTX = XPAGE+DSTH
LDA ESTKL,X
ORA ESTKH,X
BEQ CPYXMEX
LDA ESTKL+3,X
STA DSTL
LDA ESTKH+3,X
STA DSTH
LDA ESTKL+2,X
STA SRCL
LDA ESTKH+2,X
STA SRCH
LDA ESTKL+1,X
STA DSTL
LDA ESTKH+1,X
STA DSTH
LDA ESTKL,X
STA TMPL
LDA ESTKH,X
STA TMPH
LDY #$05
LDA (TMP),Y
STA SRCX
INC ESTKH,X
LDY #$00
CPYXLP LDA (SRC),Y
DEY
LDA (TMP),Y
STA SRCH
DEY
LDA (TMP),Y
STA SRCL
LDY #$07
LDA (TMP),Y
TAY
DEY
BEQ +
- LDA (SRC),Y
STA (DST),Y
INY
BNE +
INC DSTH
INC SRCH
+ DEC ESTKL,X
BNE CPYXLP
DEC ESTKH,X
BNE CPYXLP
LDA #$00
STA SRCX
CPYXMEX INX
INX
DEY
BNE -
+ LDA (SRC),Y
STA (DST),Y
STY SRCX
INX
INX
RTS
end
def defcpy(dst, defentry)#0
xmemcpy(dst, defentry=>bytecodeaddr, defentry->bytecodexbyte, defentry->bytecodesize)
end
include "libsrc/jitcore.pla"
//
// SOS routines