6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2025-01-22 23:29:55 +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
INC ESTKL+1,X
INC ESTKH+1,X
- CLC
SETMLP DEC ESTKL+1,X
SETMLPL CLC
LDA ESTKL,X
SETMLPH DEC ESTKL+1,X
BNE +
DEC ESTKH+1,X
BEQ SETMEX
+ LDA ESTKL,X
BCC +
LDA ESTKH,X
+ STA (DST),Y
INY
BNE +
INC DSTH
+ BCS -
+ BCS SETMLPL
SEC
BCS SETMLP
LDA ESTKH,X
BCS SETMLPH
SETMEX INX
INX
RTS

13
src/vmsrc/cmd.pla
View File

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

13
src/vmsrc/soscmd.pla
View File

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