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 sta temp
lda #>display lda #>display
sta temp+1 sta temp+1
Go Go lda #$ff
loop lda #$ff loop sta (temp),y
sta (temp),y
iny iny
bne @+ bne @+
inc temp+1 inc temp+1
@ cpy #<(display+screenheight*screenBytes+1) @ cpy #<(display+screenheight*screenBytes+1)
bne loop bne loop
lda temp+1 ldx temp+1
cmp #>(display+screenheight*screenBytes+1) cpx #>(display+screenheight*screenBytes+1)
bne loop bne loop
rts rts
.endp .endp
C64/gr_basics.asm
+4 -14
View File
@@ -590,30 +590,20 @@ EndPut4x4
;-------------------------------------------------- ;--------------------------------------------------
.proc ClearScreen .proc ClearScreen
;-------------------------------------------------- ;--------------------------------------------------
mwa #displayC64 temp
ldy #0
@ lda #$ff
sta (temp),y
inw temp
cpw temp #displayC64+screenheight*screenBytes+1
bne @-
rts
ldy #<displayC64 ldy #<displayC64
lda #0 lda #0
sta temp sta temp
lda #>displayC64 lda #>displayC64
sta temp+1 sta temp+1
Go Go lda #$ff
loop lda #$ff loop sta (temp),y
sta (temp),y
iny iny
bne @+ bne @+
inc temp+1 inc temp+1
@ cpy #<(displayC64+screenheight*screenBytes+1) @ cpy #<(displayC64+screenheight*screenBytes+1)
bne loop bne loop
lda temp+1 ldx temp+1
cmp #>(displayC64+screenheight*screenBytes+1) cpx #>(displayC64+screenheight*screenBytes+1)
bne loop bne loop
rts rts
.endp .endp
scorch.xex
BIN
View File
Binary file not shown.