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

Slight variation on Peter Ferrie's setmem()

Browse Source
This commit is contained in:
David Schmenk 2014-06-15 19:16:37 -07:00
parent c277fbf228
commit ca10b04969
3 changed files with 18 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/vmsrc/a1cmd.pla
View File

@ -168,21 +168,20 @@ asm memset
STA DSTH STA DSTH
INC ESTKL+1,X INC ESTKL+1,X
INC ESTKH+1,X INC ESTKH+1,X
- CLC SETMLPL CLC
SETMLP DEC ESTKL+1,X LDA ESTKL,X
SETMLPH DEC ESTKL+1,X
BNE + BNE +
DEC ESTKH+1,X DEC ESTKH+1,X
BEQ SETMEX BEQ SETMEX
+ LDA ESTKL,X
BCC +
LDA ESTKH,X
+ STA (DST),Y + STA (DST),Y
INY INY
BNE + BNE +
INC DSTH INC DSTH
+ BCS - + BCS SETMLPL
SEC SEC
BCS SETMLP LDA ESTKH,X
BCS SETMLPH
SETMEX INX SETMEX INX
INX INX
RTS RTS

13
src/vmsrc/cmd.pla
View File

@ -193,21 +193,20 @@ asm memset
STA DSTH STA DSTH
INC ESTKL+1,X INC ESTKL+1,X
INC ESTKH+1,X INC ESTKH+1,X
- CLC SETMLPL CLC
SETMLP DEC ESTKL+1,X LDA ESTKL,X
SETMLPH DEC ESTKL+1,X
BNE + BNE +
DEC ESTKH+1,X DEC ESTKH+1,X
BEQ SETMEX BEQ SETMEX
+ LDA ESTKL,X
BCC +
LDA ESTKH,X
+ STA (DST),Y + STA (DST),Y
INY INY
BNE + BNE +
INC DSTH INC DSTH
+ BCS - + BCS SETMLPL
SEC SEC
BCS SETMLP LDA ESTKH,X
BCS SETMLPH
SETMEX INX SETMEX INX
INX INX
RTS RTS

13
src/vmsrc/soscmd.pla
View File

@ -169,21 +169,20 @@ asm memset
STA DSTH STA DSTH
INC ESTKL+1,X INC ESTKL+1,X
INC ESTKH+1,X INC ESTKH+1,X
- CLC SETMLPL CLC
SETMLP DEC ESTKL+1,X LDA ESTKL,X
SETMLPH DEC ESTKL+1,X
BNE + BNE +
DEC ESTKH+1,X DEC ESTKH+1,X
BEQ SETMEX BEQ SETMEX
+ LDA ESTKL,X
BCC +
LDA ESTKH,X
+ STA (DST),Y + STA (DST),Y
INY INY
BNE + BNE +
INC DSTH INC DSTH
+ BCS - + BCS SETMLPL
SEC SEC
BCS SETMLP LDA ESTKH,X
BCS SETMLPH
SETMEX INX SETMEX INX
INX INX
RTS RTS