6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2026-04-26 12:19:18 +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
Download Patch File Download Diff File Expand all files Collapse all files
src/vmsrc/a1cmd.pla
+11 -14
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
src/vmsrc/cmd.pla
+11 -14
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
src/vmsrc/soscmd.pla
+11 -14
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