Apple-2-SW/million-perfect-letters
1
0 Fork 0
mirror of https://github.com/a2-4am/million-perfect-letters.git synced 2026-04-27 05:19:47 +00:00
Code Issues Projects Releases Wiki Activity

properly blank last line while scrolling (fixes Q)

Browse Source
This commit is contained in:
4am committed 2020-05-03 14:54:07 -04:00
1 parent 17e5e09ab1
commit 8452428f00
1 file changed
+36
Download Patch File Download Diff File Expand all files Collapse all files
src/million.init.a
+36
View File
@@ -134,6 +134,24 @@ InitScrollUp
inx
cpx #$BF
+LBNE @loadleft
lda #$A9 ; LDA #$00
jsr StoreAndInc
lda #$00
jsr StoreAndInc
lda #$99 ; STA addr,Y
jsr StoreAndInc
lda HGRLO, x
jsr StoreAndInc
lda HGRHI, x
jsr StoreAndInc
lda #$99 ; STA addr,Y
jsr StoreAndInc
lda HGRLO, x
clc
adc #1
jsr StoreAndInc
lda HGRHI, x
jsr StoreAndInc
lda #$CA ; DEX
jsr StoreAndInc
@@ -258,6 +276,24 @@ InitScrollDown
@next
dex
+LBNE @loadleft
lda #$A9 ; LDA #$00
jsr StoreAndInc
lda #$00
jsr StoreAndInc
lda #$99 ; STA addr,Y
jsr StoreAndInc
lda HGRLO, x
jsr StoreAndInc
lda HGRHI, x
jsr StoreAndInc
lda #$99 ; STA addr,Y
jsr StoreAndInc
lda HGRLO, x
clc
adc #1
jsr StoreAndInc
lda HGRHI, x
jsr StoreAndInc
lda #$CA ; DEX
jsr StoreAndInc