sa: lyrics support sort of works

This commit is contained in:
Vince Weaver 2018-05-21 14:32:12 -04:00
parent 14b58980c8
commit 9bf37a7611
6 changed files with 122 additions and 88 deletions

View File

@ -16,7 +16,7 @@ still_alive.o: still_alive.s \
../asm_routines/lz4_decode.s \
../asm_routines/keypress_minimal.s \
interrupt_handler.s \
ascii_art.inc zp.inc
ascii_art.inc lyrics.inc zp.inc
ca65 -o still_alive.o still_alive.s -l still_alive.lst
lyrics_to_asm: lyrics_to_asm.c

View File

@ -239,13 +239,34 @@ done_interrupt:
;=====================
; Update frame count
; Handle Lyrics
;=====================
update_time:
inc FRAME_COUNT ; 5
lda FRAME_COUNT ; 3
cmp #50 ; 3
inc FRAME_COUNT ; 5
ldy #$0
cmp (LYRICSL),Y
bne check_keyboard
;================================
; Frame matches, print the string
;================================
iny
lyric_loop:
lda (LYRICSL),Y
beq done_lyric
jsr COUT1
iny
jmp lyric_loop
done_lyric:
; adjust pointer
sec
tya
adc LYRICSL
sta LYRICSL
lda #0
adc LYRICSH
sta LYRICSH
check_keyboard:

View File

@ -5,7 +5,7 @@
; 24 "\i29827"
.byte $18,$B2,$B9,$B8,$B2,$B7,$00
; 36 "\i281-12:\n"
.byte $24,$B2,$B8,$B1,$AD,$B1,$B2,$BA,$0D,$00
.byte $24,$B2,$B8,$B1,$AD,$B1,$B2,$BA,$8D,$00
; 48 "\iTest "
.byte $30,$D4,$E5,$F3,$F4,$A0,$00
; 60 "\iAssess"
@ -13,9 +13,9 @@
; 72 "\iment "
.byte $48,$ED,$E5,$EE,$F4,$A0,$00
; 84 "\iReport\n"
.byte $54,$D2,$E5,$F0,$EF,$F2,$F4,$0D,$00
.byte $54,$D2,$E5,$F0,$EF,$F2,$F4,$8D,$00
; 96 "\i\n"
.byte $60,$0D,$00
.byte $60,$8D,$00
; 144 "This "
.byte $90,$D4,$E8,$E9,$F3,$A0,$00
; 156 "was "
@ -25,7 +25,7 @@
; 180 "tri"
.byte $B4,$F4,$F2,$E9,$00
; 204 "umph.\n"
.byte $CC,$F5,$ED,$F0,$E8,$AE,$0D,$00
.byte $CC,$F5,$ED,$F0,$E8,$AE,$8D,$00
; 324 "I'm "
.byte $44,$C9,$A7,$ED,$A0,$00
; 336 "ma"
@ -37,13 +37,13 @@
; 372 "note "
.byte $74,$EE,$EF,$F4,$E5,$A0,$00
; 396 "here:\n"
.byte $8C,$E8,$E5,$F2,$E5,$BA,$0D,$00
.byte $8C,$E8,$E5,$F2,$E5,$BA,$8D,$00
; 432 "HUGE "
.byte $B0,$C8,$D5,$C7,$C5,$A0,$00
; 456 "SUC"
.byte $C8,$D3,$D5,$C3,$00
; 468 "CESS.\n"
.byte $D4,$C3,$C5,$D3,$D3,$AE,$0D,$00
.byte $D4,$C3,$C5,$D3,$D3,$AE,$8D,$00
; 564 "It's "
.byte $34,$C9,$F4,$A7,$F3,$A0,$00
; 576 "hard "
@ -55,7 +55,7 @@
; 648 "ver"
.byte $88,$F6,$E5,$F2,$00
; 660 "state\n"
.byte $94,$F3,$F4,$E1,$F4,$E5,$0D,$00
.byte $94,$F3,$F4,$E1,$F4,$E5,$8D,$00
; 684 "my "
.byte $AC,$ED,$F9,$A0,$00
; 720 "sat"
@ -65,7 +65,7 @@
; 756 "fac"
.byte $F4,$E6,$E1,$E3,$00
; 780 "tion.\n"
.byte $0C,$F4,$E9,$EF,$EE,$AE,$0D,$00
.byte $0C,$F4,$E9,$EF,$EE,$AE,$8D,$00
; 912 "\1Ap"
.byte $90,$01,$C1,$F0,$00
; 924 "er"
@ -75,7 +75,7 @@
; 948 "Sci"
.byte $B4,$D3,$E3,$E9,$00
; 972 "ence\n"
.byte $CC,$E5,$EE,$E3,$E5,$0D,$00
.byte $CC,$E5,$EE,$E3,$E5,$8D,$00
; 1092 "We "
.byte $44,$D7,$E5,$A0,$00
; 1104 "do "
@ -85,7 +85,7 @@
; 1128 "we "
.byte $68,$F7,$E5,$A0,$00
; 1140 "must\n"
.byte $74,$ED,$F5,$F3,$F4,$0D,$00
.byte $74,$ED,$F5,$F3,$F4,$8D,$00
; 1176 "be"
.byte $98,$E2,$E5,$00
; 1188 "cause "
@ -93,7 +93,7 @@
; 1224 "we "
.byte $C8,$F7,$E5,$A0,$00
; 1236 "can.\n"
.byte $D4,$E3,$E1,$EE,$AE,$0D,$00
.byte $D4,$E3,$E1,$EE,$AE,$8D,$00
; 1344 "For "
.byte $40,$C6,$EF,$F2,$A0,$00
; 1368 "the "
@ -107,7 +107,7 @@
; 1464 "of "
.byte $B8,$EF,$E6,$A0,$00
; 1476 "us.\n"
.byte $C4,$F5,$F3,$AE,$0D,$00
.byte $C4,$F5,$F3,$AE,$8D,$00
; 1500 "\2Ex"
.byte $DC,$02,$C5,$F8,$00
; 1512 "cept "
@ -121,7 +121,7 @@
; 1560 "are "
.byte $18,$E1,$F2,$E5,$A0,$00
; 1572 "dead.\n\n"
.byte $24,$E4,$E5,$E1,$E4,$AE,$0D,$0D,$00
.byte $24,$E4,$E5,$E1,$E4,$AE,$8D,$8D,$00
; 1608 "\1But "
.byte $48,$01,$C2,$F5,$F4,$A0,$00
; 1620 "there"
@ -133,7 +133,7 @@
; 1680 "cry"
.byte $90,$E3,$F2,$F9,$00
; 1692 "ing\n"
.byte $9C,$E9,$EE,$E7,$0D,$00
.byte $9C,$E9,$EE,$E7,$8D,$00
; 1704 "ov"
.byte $A8,$EF,$F6,$00
; 1716 "er "
@ -145,7 +145,7 @@
; 1752 "mis"
.byte $D8,$ED,$E9,$F3,$00
; 1776 "take.\n"
.byte $F0,$F4,$E1,$EB,$E5,$AE,$0D,$00
.byte $F0,$F4,$E1,$EB,$E5,$AE,$8D,$00
; 1800 "You "
.byte $08,$D9,$EF,$F5,$A0,$00
; 1812 "just "
@ -157,7 +157,7 @@
; 1872 "try"
.byte $50,$F4,$F2,$F9,$00
; 1884 "ing\n"
.byte $5C,$E9,$EE,$E7,$0D,$00
.byte $5C,$E9,$EE,$E7,$8D,$00
; 1896 "till "
.byte $68,$F4,$E9,$EC,$EC,$A0,$00
; 1908 "you "
@ -169,7 +169,7 @@
; 1944 "of "
.byte $98,$EF,$E6,$A0,$00
; 1968 "cake.\n"
.byte $B0,$E3,$E1,$EB,$E5,$AE,$0D,$00
.byte $B0,$E3,$E1,$EB,$E5,$AE,$8D,$00
; 1992 "\3And "
.byte $C8,$03,$C1,$EE,$E4,$A0,$00
; 2004 "the "
@ -181,7 +181,7 @@
; 2040 "gets "
.byte $F8,$E7,$E5,$F4,$F3,$A0,$00
; 2064 "done.\n"
.byte $10,$E4,$EF,$EE,$E5,$AE,$0D,$00
.byte $10,$E4,$EF,$EE,$E5,$AE,$8D,$00
; 2088 "And "
.byte $28,$C1,$EE,$E4,$A0,$00
; 2097 "you "
@ -193,7 +193,7 @@
; 2136 "neat "
.byte $58,$EE,$E5,$E1,$F4,$A0,$00
; 2160 "gun.\n"
.byte $70,$E7,$F5,$EE,$AE,$0D,$00
.byte $70,$E7,$F5,$EE,$AE,$8D,$00
; 2184 "\1For "
.byte $88,$01,$C6,$EF,$F2,$A0,$00
; 2196 "the "
@ -205,13 +205,13 @@
; 2232 "who "
.byte $B8,$F7,$E8,$EF,$A0,$00
; 2244 "are\n"
.byte $C4,$E1,$F2,$E5,$0D,$00
.byte $C4,$E1,$F2,$E5,$8D,$00
; 2268 "still"
.byte $DC,$F3,$F4,$E9,$EC,$EC,$00
; 2280 " a"
.byte $E8,$A0,$E1,$00
; 2304 "live.\n"
.byte $00,$EC,$E9,$F6,$E5,$AE,$0D,$00
.byte $00,$EC,$E9,$F6,$E5,$AE,$8D,$00
; 2316 "\f"
.byte $0C,$0C,$00
; 2397 "\v"
@ -223,7 +223,7 @@
; 2424 "\i5555"
.byte $78,$B5,$B5,$B5,$B5,$00
; 2436 "\i1-5:\n"
.byte $84,$B1,$AD,$B5,$BA,$0D,$00
.byte $84,$B1,$AD,$B5,$BA,$8D,$00
; 2448 "\iPerson"
.byte $90,$D0,$E5,$F2,$F3,$EF,$EE,$00
; 2460 "\inel "
@ -233,9 +233,9 @@
; 2484 "\iAdden"
.byte $B4,$C1,$E4,$E4,$E5,$EE,$00
; 2496 "\idum:\n"
.byte $C0,$E4,$F5,$ED,$BA,$0D,$00
.byte $C0,$E4,$F5,$ED,$BA,$8D,$00
; 2508 "\i\n"
.byte $CC,$0D,$00
.byte $CC,$8D,$00
; 2520 "\iDear "
.byte $D8,$C4,$E5,$E1,$F2,$A0,$00
; 2532 "\i<<Sub"
@ -247,9 +247,9 @@
; 2568 "\iHere>>"
.byte $08,$C8,$E5,$F2,$E5,$BE,$BE,$00
; 2580 "\i,\n"
.byte $14,$AC,$0D,$00
.byte $14,$AC,$8D,$00
; 2592 "\i\n"
.byte $20,$0D,$00
.byte $20,$8D,$00
; 2628 "I'm "
.byte $44,$C9,$A7,$ED,$A0,$00
; 2640 "not "
@ -261,7 +261,7 @@
; 2676 "an"
.byte $74,$E1,$EE,$00
; 2700 "gry.\n"
.byte $8C,$E7,$F2,$F9,$AE,$0D,$00
.byte $8C,$E7,$F2,$F9,$AE,$8D,$00
; 2832 "I'm "
.byte $10,$C9,$A7,$ED,$A0,$00
; 2844 "be"
@ -277,7 +277,7 @@
; 2952 "right "
.byte $88,$F2,$E9,$E7,$E8,$F4,$A0,$00
; 2964 "now.\n"
.byte $94,$EE,$EF,$F7,$AE,$0D,$00
.byte $94,$EE,$EF,$F7,$AE,$8D,$00
; 3072 "Ev"
.byte $00,$C5,$F6,$00
; 3096 "en "
@ -291,13 +291,13 @@
; 3192 "my "
.byte $78,$ED,$F9,$A0,$00
; 3204 "\4heart.\n"
.byte $84,$04,$E8,$E5,$E1,$F2,$F4,$AE,$0D,$00
.byte $84,$04,$E8,$E5,$E1,$F2,$F4,$AE,$8D,$00
; 3228 "And "
.byte $9C,$C1,$EE,$E4,$A0,$00
; 3252 "killed "
.byte $B4,$EB,$E9,$EC,$EC,$E5,$E4,$A0,$00
; 3276 "me.\n"
.byte $CC,$ED,$E5,$AE,$0D,$00
.byte $CC,$ED,$E5,$AE,$8D,$00
; 3396 "\5And "
.byte $44,$05,$C1,$EE,$E4,$A0,$00
; 3408 "tore "
@ -309,7 +309,7 @@
; 3444 "pie"
.byte $74,$F0,$E9,$E5,$00
; 3468 "ces.\n"
.byte $8C,$E3,$E5,$F3,$AE,$0D,$00
.byte $8C,$E3,$E5,$F3,$AE,$8D,$00
; 3588 "And "
.byte $04,$C1,$EE,$E4,$A0,$00
; 3600 "threw "
@ -327,7 +327,7 @@
; 3720 "a "
.byte $88,$E1,$A0,$00
; 3732 "\6fire.\n"
.byte $94,$06,$E6,$E9,$F2,$E5,$AE,$0D,$00
.byte $94,$06,$E6,$E9,$F2,$E5,$AE,$8D,$00
; 3840 "As "
.byte $00,$C1,$F3,$A0,$00
; 3864 "they "
@ -341,7 +341,7 @@
; 3960 "be"
.byte $78,$E2,$E5,$00
; 3972 "cause\n"
.byte $84,$E3,$E1,$F5,$F3,$E5,$0D,$00
.byte $84,$E3,$E1,$F5,$F3,$E5,$8D,$00
; 3996 "I "
.byte $9C,$C9,$A0,$00
; 4008 "was "
@ -355,7 +355,7 @@
; 4056 "for "
.byte $D8,$E6,$EF,$F2,$A0,$00
; 4068 "you!\n"
.byte $E4,$F9,$EF,$F5,$A1,$0D,$00
.byte $E4,$F9,$EF,$F5,$A1,$8D,$00
; 4104 "\7Now "
.byte $08,$07,$CE,$EF,$F7,$A0,$00
; 4116 "these "
@ -367,7 +367,7 @@
; 4176 "da"
.byte $50,$E4,$E1,$00
; 4188 "ta\n"
.byte $5C,$F4,$E1,$0D,$00
.byte $5C,$F4,$E1,$8D,$00
; 4200 "make "
.byte $68,$ED,$E1,$EB,$E5,$A0,$00
; 4212 "a "
@ -379,7 +379,7 @@
; 4248 "ful "
.byte $98,$E6,$F5,$EC,$A0,$00
; 4272 "line.\n"
.byte $B0,$EC,$E9,$EE,$E5,$AE,$0D,$00
.byte $B0,$EC,$E9,$EE,$E5,$AE,$8D,$00
; 4296 "And "
.byte $C8,$C1,$EE,$E4,$A0,$00
; 4308 "we're "
@ -391,7 +391,7 @@
; 4368 "be"
.byte $10,$E2,$E5,$00
; 4380 "ta.\n"
.byte $1C,$F4,$E1,$AE,$0D,$00
.byte $1C,$F4,$E1,$AE,$8D,$00
; 4392 "We're "
.byte $28,$D7,$E5,$A7,$F2,$E5,$A0,$00
; 4404 "re"
@ -403,7 +403,7 @@
; 4440 "on "
.byte $58,$EF,$EE,$A0,$00
; 4464 "time.\n"
.byte $70,$F4,$E9,$ED,$E5,$AE,$0D,$00
.byte $70,$F4,$E9,$ED,$E5,$AE,$8D,$00
; 4488 "\5So "
.byte $88,$05,$D3,$EF,$A0,$00
; 4500 "I'm "
@ -415,7 +415,7 @@
; 4536 "got "
.byte $B8,$E7,$EF,$F4,$A0,$00
; 4560 "burned.\n"
.byte $D0,$E2,$F5,$F2,$EE,$E5,$E4,$AE,$0D,$00
.byte $D0,$E2,$F5,$F2,$EE,$E5,$E4,$AE,$8D,$00
; 4584 "\3Think "
.byte $E8,$03,$D4,$E8,$E9,$EE,$EB,$A0,$00
; 4596 "of "
@ -429,7 +429,7 @@
; 4644 "we "
.byte $24,$F7,$E5,$A0,$00
; 4656 "learned\n"
.byte $30,$EC,$E5,$E1,$F2,$EE,$E5,$E4,$0D,$00
.byte $30,$EC,$E5,$E1,$F2,$EE,$E5,$E4,$8D,$00
; 4680 "\1for "
.byte $48,$01,$E6,$EF,$F2,$A0,$00
; 4692 "the "
@ -441,13 +441,13 @@
; 4728 "who "
.byte $78,$F7,$E8,$EF,$A0,$00
; 4740 "are\n"
.byte $84,$E1,$F2,$E5,$0D,$00
.byte $84,$E1,$F2,$E5,$8D,$00
; 4764 "still "
.byte $9C,$F3,$F4,$E9,$EC,$EC,$A0,$00
; 4776 "a"
.byte $A8,$E1,$00
; 4800 "live.\n"
.byte $C0,$EC,$E9,$F6,$E5,$AE,$0D,$00
.byte $C0,$EC,$E9,$F6,$E5,$AE,$8D,$00
; 4812 "\f"
.byte $CC,$0C,$00
; 4818 "\iForms "
@ -457,7 +457,7 @@
; 4842 "\i5555"
.byte $EA,$B5,$B5,$B5,$B5,$00
; 4854 "\i1-6:\n"
.byte $F6,$B1,$AD,$B6,$BA,$0D,$00
.byte $F6,$B1,$AD,$B6,$BA,$8D,$00
; 4866 "\iPerson"
.byte $02,$D0,$E5,$F2,$F3,$EF,$EE,$00
; 4878 "\inel "
@ -473,7 +473,7 @@
; 4938 "\iendum"
.byte $4A,$E5,$EE,$E4,$F5,$ED,$00
; 4950 "\i:\n\n"
.byte $56,$BA,$0D,$0D,$00
.byte $56,$BA,$8D,$8D,$00
; 4962 "\v"
.byte $62,$0B,$00
; 5088 "\iOne "
@ -481,9 +481,9 @@
; 5100 "\ilast "
.byte $EC,$EC,$E1,$F3,$F4,$A0,$00
; 5112 "\ithing:\n"
.byte $F8,$F4,$E8,$E9,$EE,$E7,$BA,$0D,$00
.byte $F8,$F4,$E8,$E9,$EE,$E7,$BA,$8D,$00
; 5124 "\i\n"
.byte $04,$0D,$00
.byte $04,$8D,$00
; 5136 "Go "
.byte $10,$C7,$EF,$A0,$00
; 5148 "ah"
@ -495,7 +495,7 @@
; 5172 "leave "
.byte $34,$EC,$E5,$E1,$F6,$E5,$A0,$00
; 5196 "me.\n"
.byte $4C,$ED,$E5,$AE,$0D,$00
.byte $4C,$ED,$E5,$AE,$8D,$00
; 5316 "I "
.byte $C4,$C9,$A0,$00
; 5328 "think "
@ -513,7 +513,7 @@
; 5448 "in"
.byte $48,$E9,$EE,$00
; 5460 "side.\n"
.byte $54,$F3,$E9,$E4,$E5,$AE,$0D,$00
.byte $54,$F3,$E9,$E4,$E5,$AE,$8D,$00
; 5568 "May"
.byte $C0,$CD,$E1,$F9,$00
; 5592 "be "
@ -527,13 +527,13 @@
; 5688 "one "
.byte $38,$EF,$EE,$E5,$A0,$00
; 5700 "else\n"
.byte $44,$E5,$EC,$F3,$E5,$0D,$00
.byte $44,$E5,$EC,$F3,$E5,$8D,$00
; 5724 "to "
.byte $5C,$F4,$EF,$A0,$00
; 5748 "help "
.byte $74,$E8,$E5,$EC,$F0,$A0,$00
; 5772 "you.\n"
.byte $8C,$F9,$EF,$F5,$AE,$0D,$00
.byte $8C,$F9,$EF,$F5,$AE,$8D,$00
; 5904 "\8May"
.byte $10,$08,$CD,$E1,$F9,$00
; 5916 "be "
@ -549,7 +549,7 @@
; 6036 "."
.byte $94,$AE,$00
; 6060 ".\n"
.byte $AC,$AE,$0D,$00
.byte $AC,$AE,$8D,$00
; 6096 "THAT "
.byte $D0,$D4,$C8,$C1,$D4,$A0,$00
; 6108 "WAS "
@ -561,7 +561,7 @@
; 6216 "FAT "
.byte $48,$C6,$C1,$D4,$A0,$00
; 6228 "CHANCE.\n"
.byte $54,$C3,$C8,$C1,$CE,$C3,$C5,$AE,$0D,$00
.byte $54,$C3,$C8,$C1,$CE,$C3,$C5,$AE,$8D,$00
; 6336 "\9An"
.byte $C0,$09,$C1,$EE,$00
; 6360 "y"
@ -575,7 +575,7 @@
; 6456 "is "
.byte $38,$E9,$F3,$A0,$00
; 6468 "great.\n"
.byte $44,$E7,$F2,$E5,$E1,$F4,$AE,$0D,$00
.byte $44,$E7,$F2,$E5,$E1,$F4,$AE,$8D,$00
; 6492 "It's "
.byte $5C,$C9,$F4,$A7,$F3,$A0,$00
; 6504 "so "
@ -589,7 +589,7 @@
; 6552 "and "
.byte $98,$E1,$EE,$E4,$A0,$00
; 6564 "moist.\n"
.byte $A4,$ED,$EF,$E9,$F3,$F4,$AE,$0D,$00
.byte $A4,$ED,$EF,$E9,$F3,$F4,$AE,$8D,$00
; 6600 "\:Look "
.byte $C8,$0A,$CC,$EF,$EF,$EB,$A0,$00
; 6612 "at "
@ -601,7 +601,7 @@
; 6672 "talk"
.byte $10,$F4,$E1,$EC,$EB,$00
; 6684 "ing\n"
.byte $1C,$E9,$EE,$E7,$0D,$00
.byte $1C,$E9,$EE,$E7,$8D,$00
; 6696 "when "
.byte $28,$F7,$E8,$E5,$EE,$A0,$00
; 6708 "there's "
@ -613,7 +613,7 @@
; 6744 "to "
.byte $58,$F4,$EF,$A0,$00
; 6768 "do.\n"
.byte $70,$E4,$EF,$AE,$0D,$00
.byte $70,$E4,$EF,$AE,$8D,$00
; 6792 "\1When "
.byte $88,$01,$D7,$E8,$E5,$EE,$A0,$00
; 6804 "I "
@ -623,7 +623,7 @@
; 6840 "out "
.byte $B8,$EF,$F5,$F4,$A0,$00
; 6864 "there,\n"
.byte $D0,$F4,$E8,$E5,$F2,$E5,$AC,$0D,$00
.byte $D0,$F4,$E8,$E5,$F2,$E5,$AC,$8D,$00
; 6876 "it "
.byte $DC,$E9,$F4,$A0,$00
; 6888 "makes "
@ -637,7 +637,7 @@
; 6936 "not "
.byte $18,$EE,$EF,$F4,$A0,$00
; 6960 "you.\n"
.byte $30,$F9,$EF,$F5,$AE,$0D,$00
.byte $30,$F9,$EF,$F5,$AE,$8D,$00
; 6984 "\3I've "
.byte $48,$03,$C9,$A7,$F6,$E5,$A0,$00
; 6996 "ex"
@ -651,7 +651,7 @@
; 7044 "to "
.byte $84,$F4,$EF,$A0,$00
; 7056 "run.\n"
.byte $90,$F2,$F5,$EE,$AE,$0D,$00
.byte $90,$F2,$F5,$EE,$AE,$8D,$00
; 7080 "\5There "
.byte $A8,$05,$D4,$E8,$E5,$F2,$E5,$A0,$00
; 7092 "is "
@ -665,7 +665,7 @@
; 7140 "be "
.byte $E4,$E2,$E5,$A0,$00
; 7152 "done.\n"
.byte $F0,$E4,$EF,$EE,$E5,$AE,$0D,$00
.byte $F0,$E4,$EF,$EE,$E5,$AE,$8D,$00
; 7176 "\1On "
.byte $08,$01,$CF,$EE,$A0,$00
; 7188 "the "
@ -693,13 +693,13 @@
; 7302 "."
.byte $86,$AE,$00
; 7308 "\n"
.byte $8C,$0D,$00
.byte $8C,$8D,$00
; 7320 "\f"
.byte $98,$0C,$00
; 7332 "\n"
.byte $A4,$0D,$00
.byte $A4,$8D,$00
; 7344 "\n"
.byte $B0,$0D,$00
.byte $B0,$8D,$00
; 7356 "\iPS: "
.byte $BC,$D0,$D3,$BA,$A0,$00
; 7368 "And "
@ -713,13 +713,13 @@
; 7416 "I "
.byte $F8,$C9,$A0,$00
; 7428 "am\n"
.byte $04,$E1,$ED,$0D,$00
.byte $04,$E1,$ED,$8D,$00
; 7452 "still "
.byte $1C,$F3,$F4,$E9,$EC,$EC,$A0,$00
; 7464 "a"
.byte $28,$E1,$00
; 7476 "live.\n"
.byte $34,$EC,$E9,$F6,$E5,$AE,$0D,$00
.byte $34,$EC,$E9,$F6,$E5,$AE,$8D,$00
; 7536 "\iPPS: "
.byte $70,$D0,$D0,$D3,$BA,$A0,$00
; 7548 "I'm "
@ -735,13 +735,13 @@
; 7608 "and "
.byte $B8,$E1,$EE,$E4,$A0,$00
; 7620 "I'm\n"
.byte $C4,$C9,$A7,$ED,$0D,$00
.byte $C4,$C9,$A7,$ED,$8D,$00
; 7644 "still "
.byte $DC,$F3,$F4,$E9,$EC,$EC,$A0,$00
; 7656 "a"
.byte $E8,$E1,$00
; 7668 "live.\n"
.byte $F4,$EC,$E9,$F6,$E5,$AE,$0D,$00
.byte $F4,$EC,$E9,$F6,$E5,$AE,$8D,$00
; 7728 "\iPPPS: "
.byte $30,$D0,$D0,$D0,$D3,$BA,$A0,$00
; 7740 "I "
@ -757,19 +757,19 @@
; 7800 "and "
.byte $78,$E1,$EE,$E4,$A0,$00
; 7812 "I'm\n"
.byte $84,$C9,$A7,$ED,$0D,$00
.byte $84,$C9,$A7,$ED,$8D,$00
; 7836 "still "
.byte $9C,$F3,$F4,$E9,$EC,$EC,$A0,$00
; 7848 "a"
.byte $A8,$E1,$00
; 7860 "live.\n\n"
.byte $B4,$EC,$E9,$F6,$E5,$AE,$0D,$0D,$00
.byte $B4,$EC,$E9,$F6,$E5,$AE,$8D,$8D,$00
; 7908 "\iFIN"
.byte $E4,$C6,$C9,$CE,$00
; 7920 "\iAL TH"
.byte $F0,$C1,$CC,$A0,$D4,$C8,$00
; 7932 "\iOUGHT:\n"
.byte $FC,$CF,$D5,$C7,$C8,$D4,$BA,$0D,$00
.byte $FC,$CF,$D5,$C7,$C8,$D4,$BA,$8D,$00
; 7944 "While "
.byte $08,$D7,$E8,$E9,$EC,$E5,$A0,$00
; 7956 "you're "
@ -781,13 +781,13 @@
; 7992 "I'll "
.byte $38,$C9,$A7,$EC,$EC,$A0,$00
; 8004 "be\n"
.byte $44,$E2,$E5,$0D,$00
.byte $44,$E2,$E5,$8D,$00
; 8028 "still "
.byte $5C,$F3,$F4,$E9,$EC,$EC,$A0,$00
; 8040 "a"
.byte $68,$E1,$00
; 8052 "live.\n\n"
.byte $74,$EC,$E9,$F6,$E5,$AE,$0D,$0D,$00
.byte $74,$EC,$E9,$F6,$E5,$AE,$8D,$8D,$00
; 8064 "\iFIN"
.byte $80,$C6,$C9,$CE,$00
; 8076 "\iAL "
@ -797,7 +797,7 @@
; 8100 "\iUGHT "
.byte $A4,$D5,$C7,$C8,$D4,$A0,$00
; 8112 "\iPS:\n"
.byte $B0,$D0,$D3,$BA,$0D,$00
.byte $B0,$D0,$D3,$BA,$8D,$00
; 8124 "And "
.byte $BC,$C1,$EE,$E4,$A0,$00
; 8136 "when "
@ -811,23 +811,23 @@
; 8184 "will "
.byte $F8,$F7,$E9,$EC,$EC,$A0,$00
; 8196 "be\n"
.byte $04,$E2,$E5,$0D,$00
.byte $04,$E2,$E5,$8D,$00
; 8220 "still "
.byte $1C,$F3,$F4,$E9,$EC,$EC,$A0,$00
; 8232 "a"
.byte $28,$E1,$00
; 8244 "live.\n"
.byte $34,$EC,$E9,$F6,$E5,$AE,$0D,$00
.byte $34,$EC,$E9,$F6,$E5,$AE,$8D,$00
; 8280 "\n"
.byte $58,$0D,$00
.byte $58,$8D,$00
; 8292 "\n"
.byte $64,$0D,$00
.byte $64,$8D,$00
; 8316 "STILL "
.byte $7C,$D3,$D4,$C9,$CC,$CC,$A0,$00
; 8328 "A"
.byte $88,$C1,$00
; 8340 "LIVE\n"
.byte $94,$CC,$C9,$D6,$C5,$0D,$00
.byte $94,$CC,$C9,$D6,$C5,$8D,$00
; 8352 "\f"
.byte $A0,$0C,$00
; 8688 "\iTHANK"
@ -843,11 +843,11 @@
; 8748 "\iIPAT"
.byte $2C,$C9,$D0,$C1,$D4,$00
; 8760 "\iING\n"
.byte $38,$C9,$CE,$C7,$0D,$00
.byte $38,$C9,$CE,$C7,$8D,$00
; 8772 "\iIN "
.byte $44,$C9,$CE,$A0,$00
; 8784 "\iTHIS\n"
.byte $50,$D4,$C8,$C9,$D3,$0D,$00
.byte $50,$D4,$C8,$C9,$D3,$8D,$00
; 8796 "\iENRICH"
.byte $5C,$C5,$CE,$D2,$C9,$C3,$C8,$00
; 8808 "\iMENT"
@ -861,4 +861,4 @@
; 8856 "\iIVIT"
.byte $98,$C9,$D6,$C9,$D4,$00
; 8868 "\iY!!\n"
.byte $A4,$D9,$A1,$A1,$0D,$00
.byte $A4,$D9,$A1,$A1,$8D,$00

View File

@ -35,7 +35,7 @@ int main(int argc, char **argv) {
printf(",$%02X",11);
}
else if (string[i]=='n') {
printf(",$%02X",13);
printf(",$%02X",13|0x80);
}
else if ((string[i]>='0') &&
(string[i]<=':')) {

View File

@ -138,7 +138,6 @@ line_loop:
sta dal_second+1
jsr draw_ascii_line
;============================
; Setup bounds
;============================
@ -152,7 +151,16 @@ line_loop:
lda #21
sta WNDBTM
jsr HOME
;==============================
; Setup lyrics
;==============================
lda #<(lyrics)
sta LYRICSL
lda #>(lyrics)
sta LYRICSH
;==================
@ -406,6 +414,9 @@ not_message: .byte "NOT "
loading_message: .asciiz "LOADING"
lyrics:
.include "lyrics.inc"
.include "ascii_art.inc"
LZ4_BUFFER:

View File

@ -110,6 +110,8 @@ WHICH_FILE EQU $8A
;DRAW_SKY EQU $8A
COLOR_MASK EQU $8B
RASTERBARS_ON EQU $8C
LYRICSL EQU $8D
LYRICSH EQU $8E
;KEY_COUNT EQU $8C
;KEY_OFFSET EQU $8D
;DRAW_BLUE_SKY EQU $8E