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"
|