Apple-2-SW/prog8
1
0
Fork 0
mirror of https://github.com/irmen/prog8.git synced 2026-04-19 20:16:51 +00:00
Code Issues Projects Releases Wiki Activity

c64+c128: improved speed of txt.setchr and txt.getchr

Browse Source
This commit is contained in:
Irmen de Jong
2025-12-21 22:01:25 +01:00
parent e57d9f59a2
commit b6f4f2adb7
3 changed files with 14 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files
compiler/res/prog8lib/c128/textio.p8
+7 -13
View File
@@ -281,16 +281,13 @@ asmsub setchr (ubyte col @X, ubyte row @Y, ubyte character @A) clobbers(A, Y)
tya
asl a
tay
lda _screenrows,y
sta P8ZP_SCRATCH_W1
lda _screenrows+1,y
sta P8ZP_SCRATCH_W1+1
txa
clc
adc _screenrows,y
sta P8ZP_SCRATCH_W1
bcc +
inc P8ZP_SCRATCH_W1+1
+ pla
ldy #0
tay
pla
sta (P8ZP_SCRATCH_W1),y
rts
@@ -306,15 +303,12 @@ asmsub getchr (ubyte col @A, ubyte row @Y) clobbers(Y) -> ubyte @ A {
tya
asl a
tay
lda setchr._screenrows,y
sta P8ZP_SCRATCH_W1
lda setchr._screenrows+1,y
sta P8ZP_SCRATCH_W1+1
pla
clc
adc setchr._screenrows,y
sta P8ZP_SCRATCH_W1
bcc +
inc P8ZP_SCRATCH_W1+1
+ ldy #0
tay
lda (P8ZP_SCRATCH_W1),y
rts
}}
compiler/res/prog8lib/c64/textio.p8
+7 -13
View File
@@ -285,16 +285,13 @@ asmsub setchr (ubyte col @X, ubyte row @Y, ubyte character @A) clobbers(A, Y)
tya
asl a
tay
lda _screenrows,y
sta P8ZP_SCRATCH_W1
lda _screenrows+1,y
sta P8ZP_SCRATCH_W1+1
txa
clc
adc _screenrows,y
sta P8ZP_SCRATCH_W1
bcc +
inc P8ZP_SCRATCH_W1+1
+ pla
ldy #0
tay
pla
sta (P8ZP_SCRATCH_W1),y
rts
@@ -310,15 +307,12 @@ asmsub getchr (ubyte col @A, ubyte row @Y) clobbers(Y) -> ubyte @ A {
tya
asl a
tay
lda setchr._screenrows,y
sta P8ZP_SCRATCH_W1
lda setchr._screenrows+1,y
sta P8ZP_SCRATCH_W1+1
pla
clc
adc setchr._screenrows,y
sta P8ZP_SCRATCH_W1
bcc +
inc P8ZP_SCRATCH_W1+1
+ ldy #0
tay
lda (P8ZP_SCRATCH_W1),y
rts
}}
examples/test.p8
-1
View File
@@ -3,7 +3,6 @@
; C64: 160, 220, 164
; C128: 167, 229, 171
; CX16: 83, 132, 85
main {
sub start() {