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

More --size/++speed from peterferrie!

Browse Source
This commit is contained in:
David Schmenk 2014-06-17 20:11:12 -07:00
parent 9f57627fb7
commit cc32fe3891
3 changed files with 33 additions and 42 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
src/vmsrc/a1cmd.pla
View File

@ -448,12 +448,11 @@ asm modtosym
INX
LDY #$00
LDA #'#'+$80
STA (DST),Y
- LDA (SRC),Y
- STA (DST),Y
CMP #$80
LDA (SRC),Y
INY
STA (DST),Y
AND #$80
BMI -
BCS -
RTS
end
;
@ -491,8 +490,8 @@ asm lookuptbl
CMP (SRC),Y
BNE ++
INY
AND #$80
BMI -
CMP #$80
BCS -
LDA (DST),Y
PHA
INY
@ -508,16 +507,14 @@ asm lookuptbl
INC DSTL
BNE ++
INC DSTH
++ AND #$80
BMI --
++ CMP #$80
BCS --
LDA #$02
CLC
ADC DSTL
STA DSTL
TYA
ADC DSTH
STA DSTH
BNE -
BCC -
INC DSTH
BCS -
end
;
; CONSOLE I/O

25
src/vmsrc/cmd.pla
View File

@ -602,12 +602,11 @@ asm modtosym
INX
LDY #$00
LDA #'#'+$80
STA (DST),Y
- LDA (SRC),Y
- STA (DST),Y
CMP #$80
LDA (SRC),Y
INY
STA (DST),Y
AND #$80
BMI -
BCS -
RTS
end
;
@ -645,8 +644,8 @@ asm lookuptbl
CMP (SRC),Y
BNE ++
INY
AND #$80
BMI -
CMP #$80
BCS -
LDA (DST),Y
PHA
INY
@ -662,16 +661,14 @@ asm lookuptbl
INC DSTL
BNE ++
INC DSTH
++ AND #$80
BMI --
++ CMP #$80
BCS --
LDA #$02
CLC
ADC DSTL
STA DSTL
TYA
ADC DSTH
STA DSTH
BNE -
BCC -
INC DSTH
BCS -
end
;
; ProDOS routines

25
src/vmsrc/soscmd.pla
View File

@ -513,12 +513,11 @@ asm modtosym
INX
LDY #$00
LDA #'#'+$80
STA (DST),Y
- LDA (SRC),Y
- STA (DST),Y
CMP #$80
LDA (SRC),Y
INY
STA (DST),Y
AND #$80
BMI -
BCS -
RTS
end
;
@ -561,8 +560,8 @@ asm lookuptbl
CMP (SRC),Y
BNE ++
INY
AND #$80
BMI -
CMP #$80
BCS -
LDA (DST),Y
PHA
INY
@ -580,16 +579,14 @@ asm lookuptbl
INC DSTL
BNE +
INC DSTH
+ AND #$80
BMI --
+ CMP #$80
BCS --
LDA #$02
CLC
ADC DSTL
STA DSTL
TYA
ADC DSTH
STA DSTH
BNE -
BCC -
INC DSTH
BCS -
end
;
; SOS routines