mirror of
https://github.com/a2-4am/million-perfect-letters.git
synced 2024-06-11 06:29:30 +00:00
131 lines
2.4 KiB
Plaintext
131 lines
2.4 KiB
Plaintext
|
TitlePage
|
||
|
jsr Home
|
||
|
;TODO add logical-width parameter
|
||
|
jsr DrawThinLines
|
||
|
|
||
|
lda #3
|
||
|
sta row
|
||
|
+LDADDR title
|
||
|
+ST16 $FE
|
||
|
-- lda #6
|
||
|
sta column
|
||
|
- ldy column
|
||
|
lda ($FE), y
|
||
|
ldx row
|
||
|
jsr DrawCharacter
|
||
|
dec column
|
||
|
bpl -
|
||
|
lda $FE
|
||
|
clc
|
||
|
adc #7
|
||
|
sta $FE
|
||
|
bcc +
|
||
|
inc $FF
|
||
|
+ inc row
|
||
|
lda row
|
||
|
cmp #6
|
||
|
bne --
|
||
|
|
||
|
bit GFXMODE
|
||
|
|
||
|
lda #$00
|
||
|
jsr ROM_WAIT
|
||
|
+RTS_IF_KEY
|
||
|
jsr ROM_WAIT
|
||
|
+RTS_IF_KEY
|
||
|
jsr ROM_WAIT
|
||
|
+RTS_IF_KEY
|
||
|
|
||
|
ldy #$00
|
||
|
jsr ScrollUp
|
||
|
ldy #$02
|
||
|
jsr ScrollDown
|
||
|
iny
|
||
|
jsr ScrollUp
|
||
|
ldy #$05
|
||
|
jsr ScrollDown
|
||
|
iny
|
||
|
jsr ScrollUp
|
||
|
|
||
|
@loop
|
||
|
+RTS_IF_KEY
|
||
|
lda #$00
|
||
|
jsr ROM_WAIT
|
||
|
+RTS_IF_KEY
|
||
|
jsr ROM_WAIT
|
||
|
+RTS_IF_KEY
|
||
|
jsr ROM_WAIT
|
||
|
+RTS_IF_KEY
|
||
|
|
||
|
ldy #$00
|
||
|
jsr ScrollDown
|
||
|
jsr ScrollDown
|
||
|
iny
|
||
|
jsr ScrollDown
|
||
|
iny
|
||
|
jsr ScrollUp
|
||
|
iny
|
||
|
jsr ScrollDown
|
||
|
iny
|
||
|
jsr ScrollDown
|
||
|
iny
|
||
|
jsr ScrollUp
|
||
|
iny
|
||
|
jsr ScrollDown
|
||
|
jsr ScrollDown
|
||
|
|
||
|
+RTS_IF_KEY
|
||
|
lda #$00
|
||
|
jsr ROM_WAIT
|
||
|
+RTS_IF_KEY
|
||
|
jsr ROM_WAIT
|
||
|
+RTS_IF_KEY
|
||
|
jsr ROM_WAIT
|
||
|
+RTS_IF_KEY
|
||
|
|
||
|
ldy #$00
|
||
|
jsr ScrollUp
|
||
|
ldy #$02
|
||
|
jsr ScrollUp
|
||
|
iny
|
||
|
jsr ScrollDown
|
||
|
ldy #$05
|
||
|
jsr ScrollUp
|
||
|
iny
|
||
|
jsr ScrollUp
|
||
|
|
||
|
+RTS_IF_KEY
|
||
|
lda #$00
|
||
|
jsr ROM_WAIT
|
||
|
+RTS_IF_KEY
|
||
|
jsr ROM_WAIT
|
||
|
+RTS_IF_KEY
|
||
|
jsr ROM_WAIT
|
||
|
+RTS_IF_KEY
|
||
|
rts
|
||
|
!if 0 {
|
||
|
ldy #$00
|
||
|
jsr ScrollUp
|
||
|
iny
|
||
|
jsr ScrollUp
|
||
|
iny
|
||
|
jsr ScrollDown
|
||
|
jsr ScrollDown
|
||
|
iny
|
||
|
jsr ScrollUp
|
||
|
jsr ScrollUp
|
||
|
iny
|
||
|
jsr ScrollUp
|
||
|
iny
|
||
|
jsr ScrollDown
|
||
|
jsr ScrollDown
|
||
|
iny
|
||
|
jsr ScrollUp
|
||
|
|
||
|
jmp @loop
|
||
|
}
|
||
|
title
|
||
|
!raw "PELTEOT"
|
||
|
!raw "LIRFICS"
|
||
|
!raw "M TL RN"
|