Apple-2-SW/million-perfect-letters
1
0
Fork 0
mirror of https://github.com/a2-4am/million-perfect-letters.git synced 2024-12-28 19:30:10 +00:00
Code Issues Projects Releases Wiki Activity

properly blank last line while scrolling (fixes Q)

Browse Source
This commit is contained in:
4am 2020-05-03 14:54:07 -04:00
parent 17e5e09ab1
commit 8452428f00
1 changed files with 36 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
src/million.init.a
View File

@ -134,6 +134,24 @@ InitScrollUp
inx inx
cpx #$BF cpx #$BF
+LBNE @loadleft +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 lda #$CA ; DEX
jsr StoreAndInc jsr StoreAndInc
@ -258,6 +276,24 @@ InitScrollDown
@next @next
dex dex
+LBNE @loadleft +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 lda #$CA ; DEX
jsr StoreAndInc jsr StoreAndInc