Pecus/scorch_src
1
0
Fork 0
mirror of https://github.com/Pecusx/scorch_src.git synced 2026-05-20 22:33:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

And faster clearscreen :)

Browse Source
This commit is contained in:
Pecusx
2023-06-06 13:03:59 +02:00
parent 8a448a6e4b
commit f2826159c4
3 changed files with 8 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Atari/gr_basics.asm
+4 -5
View File
@@ -646,16 +646,15 @@ EndPut4x4
sta temp
lda #>display
sta temp+1
Go
loop lda #$ff
sta (temp),y
Go lda #$ff
loop sta (temp),y
iny
bne @+
inc temp+1
@ cpy #<(display+screenheight*screenBytes+1)
bne loop
lda temp+1
cmp #>(display+screenheight*screenBytes+1)
ldx temp+1
cpx #>(display+screenheight*screenBytes+1)
bne loop
rts
.endp
C64/gr_basics.asm
+4 -14
View File
@@ -590,30 +590,20 @@ EndPut4x4
;--------------------------------------------------
.proc ClearScreen
;--------------------------------------------------
mwa #displayC64 temp
ldy #0
@ lda #$ff
sta (temp),y
inw temp
cpw temp #displayC64+screenheight*screenBytes+1
bne @-
rts
ldy #<displayC64
lda #0
sta temp
lda #>displayC64
sta temp+1
Go
loop lda #$ff
sta (temp),y
Go lda #$ff
loop sta (temp),y
iny
bne @+
inc temp+1
@ cpy #<(displayC64+screenheight*screenBytes+1)
bne loop
lda temp+1
cmp #>(displayC64+screenheight*screenBytes+1)
ldx temp+1
cpx #>(displayC64+screenheight*screenBytes+1)
bne loop
rts
.endp
scorch.xex
BIN
View File
Binary file not shown.