6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2025-08-09 01:25:00 +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

25
src/vmsrc/a1cmd.pla
View File

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

25
src/vmsrc/cmd.pla
View File

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

25
src/vmsrc/soscmd.pla
View File

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