dangling spaces

This commit is contained in:
xlar54
2024-06-13 21:23:50 -05:00
parent d24a8d7e61
commit b7f4c17460

View File

@@ -2,7 +2,7 @@
; Graphics driver for the 640 pixels across, 480 pixels down, 2 color mode ; Graphics driver for the 640 pixels across, 480 pixels down, 2 color mode
; on the Commander X16 ; on the Commander X16
; ;
; 2024-06-11, Scott Hutter ; 2024-06-11, Scott Hutter
; Based on code by Greg King ; Based on code by Greg King
; ;
@@ -239,7 +239,7 @@ CONTROL:
; ;
; Must set an error code: NO ; Must set an error code: NO
CLEAR : CLEAR:
.scope inner .scope inner
; set up DCSEL=2 ; set up DCSEL=2
@@ -273,13 +273,13 @@ ahead:
ldy #240 ; number of rows ldy #240 ; number of rows
blank_outer: blank_outer:
ldx #10 ; 10 iterations of 32 = one line of 320 at 8bpp ldx #10 ; 10 iterations of 32 = one line of 640
blank_loop: blank_loop:
.repeat 8 .repeat 8
stz VERA::DATA0 ; $9f23 each `stz` writes four zeroes to VRAM (cache contents) for a total of 32 pixels when repeated 8x stz VERA::DATA0 ; $9f23 each `stz` writes four zeroes to VRAM (cache contents) for a total of 32 pixels when repeated 8x
.endrep .endrep
dex dex
bne blank_loop bne blank_loop
dey dey
@@ -295,7 +295,7 @@ blank_loop:
.endscope .endscope
rts rts
; ------------------------------------------------------------------------ ; ------------------------------------------------------------------------
; SETVIEWPAGE: Set the visible page. Called with the new page in .A (0..n-1). ; SETVIEWPAGE: Set the visible page. Called with the new page in .A (0..n-1).