From 0d644073e8ed16a30f66940224aa62c281ec60eb Mon Sep 17 00:00:00 2001
From: Vince Weaver <vincent.weaver@maine.edu>
Date: Mon, 4 Jun 2018 13:53:25 -0400
Subject: [PATCH] sa_ed: getting close

---
 still_alive/SA.ED            | Bin 1983 -> 2118 bytes
 still_alive/display_lyrics.s |  88 ++++
 still_alive/duet.s           |   4 +
 still_alive/sa.edlyrics      | 860 +++++++++++++++++++++++++++++++++++
 still_alive/sa_ed.s          |  21 +-
 5 files changed, 961 insertions(+), 12 deletions(-)
 create mode 100644 still_alive/sa.edlyrics

diff --git a/still_alive/SA.ED b/still_alive/SA.ED
index 2d7bff65c98288b86454e5661965aade9c070d50..ce72e4ecff76c22fc8a2ec812798e13336382d4e 100644
GIT binary patch
delta 299
zcmZ|LF{;8q5C-7MCb(GmJM7NNgrrDgWufpI3t#`PpjdbiFClvbPatUpJ8$7p1UGB-
ziVPn=!{5z3=1*P~1sNiY*rwhQJRuNnvz=LjHkk)~xxDDVK62T`vpH4h0^-Zu85#yn
zN=2h>yq4=<%w5v5Yh8c@q+}U5fk-O?6*MUok_APm2fjvpm&eL_wf&*m7`DF7ob^d(
b`^#ie{DIZ5?wF?ekiDm$kxR!ukoq(qE0G%8

delta 173
zcmW-bF$%&!5CHcQV=&<6*xbQNmNZ%=g@Ry}!cr@31q+{&FUWqvLIklB!OmCs2zwh7
z2WIMd*=IU522KD-fEmcOssk%9D<MN5?8>6caIELxU_@>BNQ6D+9+^vhhto<@5=%lJ
zok#Lw9g-`ZLw1<AWpRw2#g9Z+z5Vf%XcJAeFzZ_p-HmR7zBchfxADC7!l~uj!r;HO
K%is&Z(D4J0)*TxF

diff --git a/still_alive/display_lyrics.s b/still_alive/display_lyrics.s
index 3cad212c..c141caa7 100644
--- a/still_alive/display_lyrics.s
+++ b/still_alive/display_lyrics.s
@@ -1,3 +1,91 @@
+	;========================================================
+	; display lyrics electric duet
+	;========================================================
+
+display_lyrics_ed:
+
+	;========================
+	; Check if new lyric ready
+	;========================
+	lda	FRAME_COUNT			; get current frame count
+	cmp	(LYRICSL),Y			; compare to next-trigger
+	bne	all_done_lyrics_ed			; not same, so skip
+
+	; adjust pointer 16-bit
+	inc	LYRICSL
+	bne	lc_sb2_ed
+	inc	LYRICSH
+lc_sb2_ed:
+
+	;==================================
+	; Print lyric
+	;==================================
+handle_lyrics_ed:
+
+	lda	(LYRICSL),Y		; load value
+
+handle_lyrics_loop_ed:
+
+;	beq	done_lyric_ed		; if 0, done lyric
+
+	cmp	#11			; check if in range 1-10
+	bcs	lyric_home_ed		; if not, skip ahead
+
+go_draw_ascii_ed:
+	jsr	draw_ascii_art		; draw proper ascii art
+
+	jmp	lyric_continue_ed		; and continue
+
+lyric_home_ed:
+	cmp	#12			; check if form feed char
+	bne	lyric_char_ed		; if not skip ahead
+
+	jsr	HOME			; call HOME
+
+	jmp	lyric_continue_ed	; continue
+
+lyric_char_ed:
+
+	; Uppercase it
+
+	cmp	#'a'+$80
+	bcc	just_output_already_ed
+	cmp	#'z'+$80
+	bcs	just_output_already_ed
+
+	and	#$DF
+
+just_output_already_ed:
+	jsr	COUT1			; output the character
+
+lyric_continue_ed:
+
+	; adjust pointer 16-bit
+	inc	LYRICSL
+	bne	lc_sb_ed
+	inc	LYRICSH
+lc_sb_ed:
+
+	lda	(LYRICSL),Y		; load value
+	bne	handle_lyrics_loop_ed
+
+	; adjust pointer 16-bit
+	inc	LYRICSL
+	bne	lc_sb_ed2
+	inc	LYRICSH
+lc_sb_ed2:
+
+
+;	beq	all_done_lyrics_ed	; if 0, done lyric
+
+
+all_done_lyrics_ed:
+	rts
+
+
+
+
+
 	;========================================================
 	; display lyrics
 	;========================================================
diff --git a/still_alive/duet.s b/still_alive/duet.s
index 376133e9..e9b3b86c 100644
--- a/still_alive/duet.s
+++ b/still_alive/duet.s
@@ -53,6 +53,10 @@ change_instrmnt:
 	STA	INSTRUMENT2	; 913: 85 1D	; 3	save instrument
 
 triplet_loop:
+	ldy	#0
+	jsr	display_lyrics_ed
+	inc     FRAME_COUNT
+
 	LDA	MADDRL		; 915: A5 1E	; 3 *!*	increment pointer
 	CLC			; 917: 18	; 2	by three
 	ADC	#$03		; 918: 69 03	; 2 *!*
diff --git a/still_alive/sa.edlyrics b/still_alive/sa.edlyrics
new file mode 100644
index 00000000..dd74531e
--- /dev/null
+++ b/still_alive/sa.edlyrics
@@ -0,0 +1,860 @@
+; 0: "\iForms "
+.byte	$00,$C6,$EF,$F2,$ED,$F3,$A0,$00
+; 4: "\iFORM-"
+.byte	$04,$C6,$CF,$D2,$CD,$AD,$00
+; 6: "\i29827"
+.byte	$06,$B2,$B9,$B8,$B2,$B7,$00
+; 8: "\i281-12:\n"
+.byte	$08,$B2,$B8,$B1,$AD,$B1,$B2,$BA,$8D,$00
+; 10: "\iTest "
+.byte	$0A,$D4,$E5,$F3,$F4,$A0,$00
+; 12: "\iAssess"
+.byte	$0C,$C1,$F3,$F3,$E5,$F3,$F3,$00
+; 14: "\iment "
+.byte	$0E,$ED,$E5,$EE,$F4,$A0,$00
+; 16: "\iReport\n"
+.byte	$10,$D2,$E5,$F0,$EF,$F2,$F4,$8D,$00
+; 18: "\i\n"
+.byte	$12,$8D,$00
+; 26: "This "
+.byte	$1A,$D4,$E8,$E9,$F3,$A0,$00
+; 28: "was "
+.byte	$1C,$F7,$E1,$F3,$A0,$00
+; 30: "a "
+.byte	$1E,$E1,$A0,$00
+; 32: "tri"
+.byte	$20,$F4,$F2,$E9,$00
+; 34: "umph.\n"
+.byte	$22,$F5,$ED,$F0,$E8,$AE,$8D,$00
+; 57: "I'm "
+.byte	$39,$C9,$A7,$ED,$A0,$00
+; 59: "ma"
+.byte	$3B,$ED,$E1,$00
+; 61: "king "
+.byte	$3D,$EB,$E9,$EE,$E7,$A0,$00
+; 63: "a "
+.byte	$3F,$E1,$A0,$00
+; 65: "note "
+.byte	$41,$EE,$EF,$F4,$E5,$A0,$00
+; 69: "here:\n"
+.byte	$45,$E8,$E5,$F2,$E5,$BA,$8D,$00
+; 76: "HUGE "
+.byte	$4C,$C8,$D5,$C7,$C5,$A0,$00
+; 80: "SUC"
+.byte	$50,$D3,$D5,$C3,$00
+; 82: "CESS.\n"
+.byte	$52,$C3,$C5,$D3,$D3,$AE,$8D,$00
+; 98: "It's "
+.byte	$62,$C9,$F4,$A7,$F3,$A0,$00
+; 100: "hard "
+.byte	$64,$E8,$E1,$F2,$E4,$A0,$00
+; 104: "to "
+.byte	$68,$F4,$EF,$A0,$00
+; 106: "o"
+.byte	$6A,$EF,$00
+; 112: "ver"
+.byte	$70,$F6,$E5,$F2,$00
+; 114: "state\n"
+.byte	$72,$F3,$F4,$E1,$F4,$E5,$8D,$00
+; 118: "my "
+.byte	$76,$ED,$F9,$A0,$00
+; 124: "sat"
+.byte	$7C,$F3,$E1,$F4,$00
+; 128: "is"
+.byte	$80,$E9,$F3,$00
+; 130: "fac"
+.byte	$82,$E6,$E1,$E3,$00
+; 134: "tion.\n"
+.byte	$86,$F4,$E9,$EF,$EE,$AE,$8D,$00
+; 156: "\1Ap"
+.byte	$9C,$01,$C1,$F0,$00
+; 158: "er"
+.byte	$9E,$E5,$F2,$00
+; 160: "ture "
+.byte	$A0,$F4,$F5,$F2,$E5,$A0,$00
+; 162: "Sci"
+.byte	$A2,$D3,$E3,$E9,$00
+; 164: "ence\n"
+.byte	$A4,$E5,$EE,$E3,$E5,$8D,$00
+; 187: "We "
+.byte	$BB,$D7,$E5,$A0,$00
+; 189: "do "
+.byte	$BD,$E4,$EF,$A0,$00
+; 191: "what "
+.byte	$BF,$F7,$E8,$E1,$F4,$A0,$00
+; 193: "we "
+.byte	$C1,$F7,$E5,$A0,$00
+; 195: "must\n"
+.byte	$C3,$ED,$F5,$F3,$F4,$8D,$00
+; 202: "be"
+.byte	$CA,$E2,$E5,$00
+; 204: "cause "
+.byte	$CC,$E3,$E1,$F5,$F3,$E5,$A0,$00
+; 211: "we "
+.byte	$D3,$F7,$E5,$A0,$00
+; 213: "can.\n"
+.byte	$D5,$E3,$E1,$EE,$AE,$8D,$00
+; 231: "For "
+.byte	$E7,$C6,$EF,$F2,$A0,$00
+; 235: "the "
+.byte	$EB,$F4,$E8,$E5,$A0,$00
+; 237: "good "
+.byte	$ED,$E7,$EF,$EF,$E4,$A0,$00
+; 243: "of "
+.byte	$F3,$EF,$E6,$A0,$00
+; 245: "all "
+.byte	$F5,$E1,$EC,$EC,$A0,$00
+; 251: "of "
+.byte	$FB,$EF,$E6,$A0,$00
+; 253: "us.\n"
+.byte	$FD,$F5,$F3,$AE,$8D,$00
+; 258: "\2Ex"
+.byte	$02,$02,$C5,$F8,$00
+; 260: "cept "
+.byte	$04,$E3,$E5,$F0,$F4,$A0,$00
+; 262: "the "
+.byte	$06,$F4,$E8,$E5,$A0,$00
+; 264: "ones "
+.byte	$08,$EF,$EE,$E5,$F3,$A0,$00
+; 266: "who "
+.byte	$0A,$F7,$E8,$EF,$A0,$00
+; 268: "are "
+.byte	$0C,$E1,$F2,$E5,$A0,$00
+; 270: "dead.\n\n"
+.byte	$0E,$E4,$E5,$E1,$E4,$AE,$8D,$8D,$00
+; 276: "\1But "
+.byte	$14,$01,$C2,$F5,$F4,$A0,$00
+; 278: "there"
+.byte	$16,$F4,$E8,$E5,$F2,$E5,$00
+; 280: "'s no "
+.byte	$18,$A7,$F3,$A0,$EE,$EF,$A0,$00
+; 284: "sense "
+.byte	$1C,$F3,$E5,$EE,$F3,$E5,$A0,$00
+; 288: "cry"
+.byte	$20,$E3,$F2,$F9,$00
+; 290: "ing\n"
+.byte	$22,$E9,$EE,$E7,$8D,$00
+; 292: "ov"
+.byte	$24,$EF,$F6,$00
+; 294: "er "
+.byte	$26,$E5,$F2,$A0,$00
+; 296: "eve"
+.byte	$28,$E5,$F6,$E5,$00
+; 298: "ry "
+.byte	$2A,$F2,$F9,$A0,$00
+; 300: "mis"
+.byte	$2C,$ED,$E9,$F3,$00
+; 304: "take.\n"
+.byte	$30,$F4,$E1,$EB,$E5,$AE,$8D,$00
+; 308: "You "
+.byte	$34,$D9,$EF,$F5,$A0,$00
+; 310: "just "
+.byte	$36,$EA,$F5,$F3,$F4,$A0,$00
+; 312: "keep "
+.byte	$38,$EB,$E5,$E5,$F0,$A0,$00
+; 316: "on "
+.byte	$3C,$EF,$EE,$A0,$00
+; 320: "try"
+.byte	$40,$F4,$F2,$F9,$00
+; 322: "ing\n"
+.byte	$42,$E9,$EE,$E7,$8D,$00
+; 324: "till "
+.byte	$44,$F4,$E9,$EC,$EC,$A0,$00
+; 326: "you "
+.byte	$46,$F9,$EF,$F5,$A0,$00
+; 328: "run "
+.byte	$48,$F2,$F5,$EE,$A0,$00
+; 330: "out "
+.byte	$4A,$EF,$F5,$F4,$A0,$00
+; 332: "of "
+.byte	$4C,$EF,$E6,$A0,$00
+; 336: "cake.\n"
+.byte	$50,$E3,$E1,$EB,$E5,$AE,$8D,$00
+; 340: "\3And "
+.byte	$54,$03,$C1,$EE,$E4,$A0,$00
+; 342: "the "
+.byte	$56,$F4,$E8,$E5,$A0,$00
+; 344: "Sci"
+.byte	$58,$D3,$E3,$E9,$00
+; 346: "ence "
+.byte	$5A,$E5,$EE,$E3,$E5,$A0,$00
+; 348: "gets "
+.byte	$5C,$E7,$E5,$F4,$F3,$A0,$00
+; 352: "done.\n"
+.byte	$60,$E4,$EF,$EE,$E5,$AE,$8D,$00
+; 356: "And "
+.byte	$64,$C1,$EE,$E4,$A0,$00
+; 358: "you "
+.byte	$66,$F9,$EF,$F5,$A0,$00
+; 360: "make "
+.byte	$68,$ED,$E1,$EB,$E5,$A0,$00
+; 362: "a "
+.byte	$6A,$E1,$A0,$00
+; 364: "neat "
+.byte	$6C,$EE,$E5,$E1,$F4,$A0,$00
+; 368: "gun.\n"
+.byte	$70,$E7,$F5,$EE,$AE,$8D,$00
+; 373: "\1For "
+.byte	$75,$01,$C6,$EF,$F2,$A0,$00
+; 375: "the "
+.byte	$77,$F4,$E8,$E5,$A0,$00
+; 377: "peo"
+.byte	$79,$F0,$E5,$EF,$00
+; 379: "ple "
+.byte	$7B,$F0,$EC,$E5,$A0,$00
+; 381: "who "
+.byte	$7D,$F7,$E8,$EF,$A0,$00
+; 383: "are\n"
+.byte	$7F,$E1,$F2,$E5,$8D,$00
+; 387: "still"
+.byte	$83,$F3,$F4,$E9,$EC,$EC,$00
+; 389: " a"
+.byte	$85,$A0,$E1,$00
+; 391: "live.\n"
+.byte	$87,$EC,$E9,$F6,$E5,$AE,$8D,$00
+; 393: "\f"
+.byte	$89,$0C,$00
+; 409: "\iForms "
+.byte	$99,$C6,$EF,$F2,$ED,$F3,$A0,$00
+; 411: "\iFORM-"
+.byte	$9B,$C6,$CF,$D2,$CD,$AD,$00
+; 413: "\i5555"
+.byte	$9D,$B5,$B5,$B5,$B5,$00
+; 415: "\i1-5:\n"
+.byte	$9F,$B1,$AD,$B5,$BA,$8D,$00
+; 417: "\iPerson"
+.byte	$A1,$D0,$E5,$F2,$F3,$EF,$EE,$00
+; 419: "\inel "
+.byte	$A3,$EE,$E5,$EC,$A0,$00
+; 421: "\iFile "
+.byte	$A5,$C6,$E9,$EC,$E5,$A0,$00
+; 423: "\iAdden"
+.byte	$A7,$C1,$E4,$E4,$E5,$EE,$00
+; 425: "\idum:\n"
+.byte	$A9,$E4,$F5,$ED,$BA,$8D,$00
+; 427: "\i\n"
+.byte	$AB,$8D,$00
+; 429: "\iDear "
+.byte	$AD,$C4,$E5,$E1,$F2,$A0,$00
+; 431: "\i<<Sub"
+.byte	$AF,$BC,$BC,$D3,$F5,$E2,$00
+; 433: "\iject "
+.byte	$B1,$EA,$E5,$E3,$F4,$A0,$00
+; 435: "\iName "
+.byte	$B3,$CE,$E1,$ED,$E5,$A0,$00
+; 437: "\iHere>>"
+.byte	$B5,$C8,$E5,$F2,$E5,$BE,$BE,$00
+; 439: "\i,\n"
+.byte	$B7,$AC,$8D,$00
+; 441: "\i\n"
+.byte	$B9,$8D,$00
+; 447: "I'm "
+.byte	$BF,$C9,$A7,$ED,$A0,$00
+; 449: "not "
+.byte	$C1,$EE,$EF,$F4,$A0,$00
+; 451: "ev"
+.byte	$C3,$E5,$F6,$00
+; 453: "en "
+.byte	$C5,$E5,$EE,$A0,$00
+; 455: "an"
+.byte	$C7,$E1,$EE,$00
+; 458: "gry.\n"
+.byte	$CA,$E7,$F2,$F9,$AE,$8D,$00
+; 482: "I'm "
+.byte	$E2,$C9,$A7,$ED,$A0,$00
+; 484: "be"
+.byte	$E4,$E2,$E5,$00
+; 486: "ing "
+.byte	$E6,$E9,$EE,$E7,$A0,$00
+; 488: "so "
+.byte	$E8,$F3,$EF,$A0,$00
+; 494: "sin"
+.byte	$EE,$F3,$E9,$EE,$00
+; 496: "cere "
+.byte	$F0,$E3,$E5,$F2,$E5,$A0,$00
+; 500: "right "
+.byte	$F4,$F2,$E9,$E7,$E8,$F4,$A0,$00
+; 504: "now.\n"
+.byte	$F8,$EE,$EF,$F7,$AE,$8D,$00
+; 522: "Ev"
+.byte	$0A,$C5,$F6,$00
+; 526: "en "
+.byte	$0E,$E5,$EE,$A0,$00
+; 528: "though "
+.byte	$10,$F4,$E8,$EF,$F5,$E7,$E8,$A0,$00
+; 534: "you "
+.byte	$16,$F9,$EF,$F5,$A0,$00
+; 538: "broke "
+.byte	$1A,$E2,$F2,$EF,$EB,$E5,$A0,$00
+; 542: "my "
+.byte	$1E,$ED,$F9,$A0,$00
+; 544: "\4heart.\n"
+.byte	$20,$04,$E8,$E5,$E1,$F2,$F4,$AE,$8D,$00
+; 550: "And "
+.byte	$26,$C1,$EE,$E4,$A0,$00
+; 552: "killed "
+.byte	$28,$EB,$E9,$EC,$EC,$E5,$E4,$A0,$00
+; 556: "me.\n"
+.byte	$2C,$ED,$E5,$AE,$8D,$00
+; 577: 	"\5And "
+.byte	$41,$05,$C1,$EE,$E4,$A0,$00
+; 579: 	"tore "
+.byte	$43,$F4,$EF,$F2,$E5,$A0,$00
+; 581: 	"me "
+.byte	$45,$ED,$E5,$A0,$00
+; 583: 	"to "
+.byte	$47,$F4,$EF,$A0,$00
+; 585: 	"pie"
+.byte	$49,$F0,$E9,$E5,$00
+; 587: 	"ces.\n"
+.byte	$4B,$E3,$E5,$F3,$AE,$8D,$00
+; 609: 	"And "
+.byte	$61,$C1,$EE,$E4,$A0,$00
+; 611: 	"threw "
+.byte	$63,$F4,$E8,$F2,$E5,$F7,$A0,$00
+; 613: 	"eve"
+.byte	$65,$E5,$F6,$E5,$00
+; 615: 	"ry "
+.byte	$67,$F2,$F9,$A0,$00
+; 617: 	"piece "
+.byte	$69,$F0,$E9,$E5,$E3,$E5,$A0,$00
+; 624: 	"in"
+.byte	$70,$E9,$EE,$00
+; 626: 	"to "
+.byte	$72,$F4,$EF,$A0,$00
+; 632: 	"a "
+.byte	$78,$E1,$A0,$00
+; 634: 	"\6fire.\n"
+.byte	$7A,$06,$E6,$E9,$F2,$E5,$AE,$8D,$00
+; 652: "As "
+.byte	$8C,$C1,$F3,$A0,$00
+; 656: "they "
+.byte	$90,$F4,$E8,$E5,$F9,$A0,$00
+; 658: "burned "
+.byte	$92,$E2,$F5,$F2,$EE,$E5,$E4,$A0,$00
+; 664: "it "
+.byte	$98,$E9,$F4,$A0,$00
+; 668: "hurt "
+.byte	$9C,$E8,$F5,$F2,$F4,$A0,$00
+; 672: "be"
+.byte	$A0,$E2,$E5,$00
+; 674: "cause\n"
+.byte	$A2,$E3,$E1,$F5,$F3,$E5,$8D,$00
+; 678: "I "
+.byte	$A6,$C9,$A0,$00
+; 680: "was "
+.byte	$A8,$F7,$E1,$F3,$A0,$00
+; 682: "so "
+.byte	$AA,$F3,$EF,$A0,$00
+; 684: "hap"
+.byte	$AC,$E8,$E1,$F0,$00
+; 686: "py "
+.byte	$AE,$F0,$F9,$A0,$00
+; 688: "for "
+.byte	$B0,$E6,$EF,$F2,$A0,$00
+; 690: "you!\n"
+.byte	$B2,$F9,$EF,$F5,$A1,$8D,$00
+; 696: "\7Now "
+.byte	$B8,$07,$CE,$EF,$F7,$A0,$00
+; 698: "these "
+.byte	$BA,$F4,$E8,$E5,$F3,$E5,$A0,$00
+; 700: "points "
+.byte	$BC,$F0,$EF,$E9,$EE,$F4,$F3,$A0,$00
+; 704: "of "
+.byte	$C0,$EF,$E6,$A0,$00
+; 708: "da"
+.byte	$C4,$E4,$E1,$00
+; 710: "ta\n"
+.byte	$C6,$F4,$E1,$8D,$00
+; 712: "make "
+.byte	$C8,$ED,$E1,$EB,$E5,$A0,$00
+; 714: "a "
+.byte	$CA,$E1,$A0,$00
+; 716: "beau"
+.byte	$CC,$E2,$E5,$E1,$F5,$00
+; 718: "ti"
+.byte	$CE,$F4,$E9,$00
+; 720: "ful "
+.byte	$D0,$E6,$F5,$EC,$A0,$00
+; 724: "line.\n"
+.byte	$D4,$EC,$E9,$EE,$E5,$AE,$8D,$00
+; 728: "And "
+.byte	$D8,$C1,$EE,$E4,$A0,$00
+; 730: "we're "
+.byte	$DA,$F7,$E5,$A7,$F2,$E5,$A0,$00
+; 732: "out "
+.byte	$DC,$EF,$F5,$F4,$A0,$00
+; 736: "of "
+.byte	$E0,$EF,$E6,$A0,$00
+; 740: "be"
+.byte	$E4,$E2,$E5,$00
+; 742: "ta.\n"
+.byte	$E6,$F4,$E1,$AE,$8D,$00
+; 744: "We're "
+.byte	$E8,$D7,$E5,$A7,$F2,$E5,$A0,$00
+; 746: "re"
+.byte	$EA,$F2,$E5,$00
+; 748: "leas"
+.byte	$EC,$EC,$E5,$E1,$F3,$00
+; 750: "ing "
+.byte	$EE,$E9,$EE,$E7,$A0,$00
+; 752: "on "
+.byte	$F0,$EF,$EE,$A0,$00
+; 756: "time.\n"
+.byte	$F4,$F4,$E9,$ED,$E5,$AE,$8D,$00
+; 760: "\5So "
+.byte	$F8,$05,$D3,$EF,$A0,$00
+; 762: "I'm "
+.byte	$FA,$C9,$A7,$ED,$A0,$00
+; 764: "GLaD. "
+.byte	$FC,$C7,$CC,$E1,$C4,$AE,$A0,$00
+; 766: "I "
+.byte	$FE,$C9,$A0,$00
+; 768: "got "
+.byte	$00,$E7,$EF,$F4,$A0,$00
+; 772: "burned.\n"
+.byte	$04,$E2,$F5,$F2,$EE,$E5,$E4,$AE,$8D,$00
+; 776: "\3Think "
+.byte	$08,$03,$D4,$E8,$E9,$EE,$EB,$A0,$00
+; 778: "of "
+.byte	$0A,$EF,$E6,$A0,$00
+; 780: "all "
+.byte	$0C,$E1,$EC,$EC,$A0,$00
+; 782: "the "
+.byte	$0E,$F4,$E8,$E5,$A0,$00
+; 784: "things "
+.byte	$10,$F4,$E8,$E9,$EE,$E7,$F3,$A0,$00
+; 786: "we "
+.byte	$12,$F7,$E5,$A0,$00
+; 788: "learned\n"
+.byte	$14,$EC,$E5,$E1,$F2,$EE,$E5,$E4,$8D,$00
+; 792: "\1for "
+.byte	$18,$01,$E6,$EF,$F2,$A0,$00
+; 794: "the "
+.byte	$1A,$F4,$E8,$E5,$A0,$00
+; 796: "peo"
+.byte	$1C,$F0,$E5,$EF,$00
+; 798: "ple "
+.byte	$1E,$F0,$EC,$E5,$A0,$00
+; 800: "who "
+.byte	$20,$F7,$E8,$EF,$A0,$00
+; 802: "are\n"
+.byte	$22,$E1,$F2,$E5,$8D,$00
+; 806: "still "
+.byte	$26,$F3,$F4,$E9,$EC,$EC,$A0,$00
+; 808: "a"
+.byte	$28,$E1,$00
+; 810: "live.\n"
+.byte	$2A,$EC,$E9,$F6,$E5,$AE,$8D,$00
+; 812: "\f"
+.byte	$2C,$0C,$00
+; 814: "\iForms "
+.byte	$2E,$C6,$EF,$F2,$ED,$F3,$A0,$00
+; 816: "\iFORM-"
+.byte	$30,$C6,$CF,$D2,$CD,$AD,$00
+; 818: "\i5555"
+.byte	$32,$B5,$B5,$B5,$B5,$00
+; 820: "\i1-6:\n"
+.byte	$34,$B1,$AD,$B6,$BA,$8D,$00
+; 822: "\iPerson"
+.byte	$36,$D0,$E5,$F2,$F3,$EF,$EE,$00
+; 824: "\inel "
+.byte	$38,$EE,$E5,$EC,$A0,$00
+; 826: "\iFile "
+.byte	$3A,$C6,$E9,$EC,$E5,$A0,$00
+; 828: "\iAdd"
+.byte	$3C,$C1,$E4,$E4,$00
+; 830: "\iendum "
+.byte	$3E,$E5,$EE,$E4,$F5,$ED,$A0,$00
+; 832: "\iAdd"
+.byte	$40,$C1,$E4,$E4,$00
+; 834: "\iendum"
+.byte	$42,$E5,$EE,$E4,$F5,$ED,$00
+; 836: "\i:\n\n"
+.byte	$44,$BA,$8D,$8D,$00
+; 860: "\iOne "
+.byte	$5C,$CF,$EE,$E5,$A0,$00
+; 862: "\ilast "
+.byte	$5E,$EC,$E1,$F3,$F4,$A0,$00
+; 864: "\ithing:\n"
+.byte	$60,$F4,$E8,$E9,$EE,$E7,$BA,$8D,$00
+; 866: "\i\n"
+.byte	$62,$8D,$00
+; 868: "Go "
+.byte	$64,$C7,$EF,$A0,$00
+; 870: "ah"
+.byte	$66,$E1,$E8,$00
+; 871: "ead"
+.byte	$67,$E5,$E1,$E4,$00
+; 872: " and "
+.byte	$68,$A0,$E1,$EE,$E4,$A0,$00
+; 874: "leave "
+.byte	$6A,$EC,$E5,$E1,$F6,$E5,$A0,$00
+; 878: "me.\n"
+.byte	$6E,$ED,$E5,$AE,$8D,$00
+; 899: "I "
+.byte	$83,$C9,$A0,$00
+; 901: "think "
+.byte	$85,$F4,$E8,$E9,$EE,$EB,$A0,$00
+; 903: "I "
+.byte	$87,$C9,$A0,$00
+; 905: "pre"
+.byte	$89,$F0,$F2,$E5,$00
+; 907: "fer "
+.byte	$8B,$E6,$E5,$F2,$A0,$00
+; 914: "to "
+.byte	$92,$F4,$EF,$A0,$00
+; 916: "stay "
+.byte	$94,$F3,$F4,$E1,$F9,$A0,$00
+; 923: "in"
+.byte	$9B,$E9,$EE,$00
+; 925: "side.\n"
+.byte	$9D,$F3,$E9,$E4,$E5,$AE,$8D,$00
+; 943: "May"
+.byte	$AF,$CD,$E1,$F9,$00
+; 947: "be "
+.byte	$B3,$E2,$E5,$A0,$00
+; 949: "you'll "
+.byte	$B5,$F9,$EF,$F5,$A7,$EC,$EC,$A0,$00
+; 955: "find "
+.byte	$BB,$E6,$E9,$EE,$E4,$A0,$00
+; 959: "some"
+.byte	$BF,$F3,$EF,$ED,$E5,$00
+; 963: "one "
+.byte	$C3,$EF,$EE,$E5,$A0,$00
+; 965: "else\n"
+.byte	$C5,$E5,$EC,$F3,$E5,$8D,$00
+; 971: "to "
+.byte	$CB,$F4,$EF,$A0,$00
+; 973: "help "
+.byte	$CD,$E8,$E5,$EC,$F0,$A0,$00
+; 977: "you.\n"
+.byte	$D1,$F9,$EF,$F5,$AE,$8D,$00
+; 1000: 	"\8May"
+.byte	$E8,$08,$CD,$E1,$F9,$00
+; 1002: 	"be "
+.byte	$EA,$E2,$E5,$A0,$00
+; 1004: 	"Black "
+.byte	$EC,$C2,$EC,$E1,$E3,$EB,$A0,$00
+; 1006: 	"Me"
+.byte	$EE,$CD,$E5,$00
+; 1010: 	"sa"
+.byte	$F2,$F3,$E1,$00
+; 1019: "."
+.byte	$FB,$AE,$00
+; 1025: "."
+.byte	$01,$AE,$00
+; 1029: ".\n"
+.byte	$05,$AE,$8D,$00
+; 1033: 	"THAT "
+.byte	$09,$D4,$C8,$C1,$D4,$A0,$00
+; 1035: 	"WAS "
+.byte	$0B,$D7,$C1,$D3,$A0,$00
+; 1037: 	"A "
+.byte	$0D,$C1,$A0,$00
+; 1039: 	"JOKE. "
+.byte	$0F,$CA,$CF,$CB,$C5,$AE,$A0,$00
+; 1055: 	"FAT "
+.byte	$1F,$C6,$C1,$D4,$A0,$00
+; 1057: 	"CHANCE.\n"
+.byte	$21,$C3,$C8,$C1,$CE,$C3,$C5,$AE,$8D,$00
+; 1075: "\9An"
+.byte	$33,$09,$C1,$EE,$00
+; 1079: "y"
+.byte	$37,$F9,$00
+; 1081: "way, "
+.byte	$39,$F7,$E1,$F9,$AC,$A0,$00
+; 1087: "this "
+.byte	$3F,$F4,$E8,$E9,$F3,$A0,$00
+; 1091: "cake "
+.byte	$43,$E3,$E1,$EB,$E5,$A0,$00
+; 1095: "is "
+.byte	$47,$E9,$F3,$A0,$00
+; 1097: "great.\n"
+.byte	$49,$E7,$F2,$E5,$E1,$F4,$AE,$8D,$00
+; 1102: "It's "
+.byte	$4E,$C9,$F4,$A7,$F3,$A0,$00
+; 1104: "so "
+.byte	$50,$F3,$EF,$A0,$00
+; 1106: "de"
+.byte	$52,$E4,$E5,$00
+; 1108: "li"
+.byte	$54,$EC,$E9,$00
+; 1110: "cious "
+.byte	$56,$E3,$E9,$EF,$F5,$F3,$A0,$00
+; 1112: "and "
+.byte	$58,$E1,$EE,$E4,$A0,$00
+; 1114: "moist.\n"
+.byte	$5A,$ED,$EF,$E9,$F3,$F4,$AE,$8D,$00
+; 1121: "\:Look "
+.byte	$61,$0A,$CC,$EF,$EF,$EB,$A0,$00
+; 1123: "at "
+.byte	$63,$E1,$F4,$A0,$00
+; 1125: "me "
+.byte	$65,$ED,$E5,$A0,$00
+; 1129: "still "
+.byte	$69,$F3,$F4,$E9,$EC,$EC,$A0,$00
+; 1133: "talk"
+.byte	$6D,$F4,$E1,$EC,$EB,$00
+; 1135: "ing\n"
+.byte	$6F,$E9,$EE,$E7,$8D,$00
+; 1137: "when "
+.byte	$71,$F7,$E8,$E5,$EE,$A0,$00
+; 1139: "there's "
+.byte	$73,$F4,$E8,$E5,$F2,$E5,$A7,$F3,$A0,$00
+; 1141: "\2Sci"
+.byte	$75,$02,$D3,$E3,$E9,$00
+; 1143: "ence "
+.byte	$77,$E5,$EE,$E3,$E5,$A0,$00
+; 1145: "to "
+.byte	$79,$F4,$EF,$A0,$00
+; 1149: "do.\n"
+.byte	$7D,$E4,$EF,$AE,$8D,$00
+; 1153: "\1When "
+.byte	$81,$01,$D7,$E8,$E5,$EE,$A0,$00
+; 1155: "I "
+.byte	$83,$C9,$A0,$00
+; 1157: "look "
+.byte	$85,$EC,$EF,$EF,$EB,$A0,$00
+; 1161: "out "
+.byte	$89,$EF,$F5,$F4,$A0,$00
+; 1165: "there,\n"
+.byte	$8D,$F4,$E8,$E5,$F2,$E5,$AC,$8D,$00
+; 1167: "it "
+.byte	$8F,$E9,$F4,$A0,$00
+; 1169: "makes "
+.byte	$91,$ED,$E1,$EB,$E5,$F3,$A0,$00
+; 1171: "me "
+.byte	$93,$ED,$E5,$A0,$00
+; 1173: "GLaD "
+.byte	$95,$C7,$CC,$E1,$C4,$A0,$00
+; 1175: "I'm "
+.byte	$97,$C9,$A7,$ED,$A0,$00
+; 1177: "not "
+.byte	$99,$EE,$EF,$F4,$A0,$00
+; 1181: "you.\n"
+.byte	$9D,$F9,$EF,$F5,$AE,$8D,$00
+; 1185: "\3I've "
+.byte	$A1,$03,$C9,$A7,$F6,$E5,$A0,$00
+; 1187: "ex"
+.byte	$A3,$E5,$F8,$00
+; 1189: "per"
+.byte	$A5,$F0,$E5,$F2,$00
+; 1191: "i"
+.byte	$A7,$E9,$00
+; 1193: "ments "
+.byte	$A9,$ED,$E5,$EE,$F4,$F3,$A0,$00
+; 1195: "to "
+.byte	$AB,$F4,$EF,$A0,$00
+; 1197: "run.\n"
+.byte	$AD,$F2,$F5,$EE,$AE,$8D,$00
+; 1201: "\5There "
+.byte	$B1,$05,$D4,$E8,$E5,$F2,$E5,$A0,$00
+; 1203: "is "
+.byte	$B3,$E9,$F3,$A0,$00
+; 1205: "re"
+.byte	$B5,$F2,$E5,$00
+; 1207: "search "
+.byte	$B7,$F3,$E5,$E1,$F2,$E3,$E8,$A0,$00
+; 1209: "to "
+.byte	$B9,$F4,$EF,$A0,$00
+; 1211: "be "
+.byte	$BB,$E2,$E5,$A0,$00
+; 1213: "done.\n"
+.byte	$BD,$E4,$EF,$EE,$E5,$AE,$8D,$00
+; 1217: "\1On "
+.byte	$C1,$01,$CF,$EE,$A0,$00
+; 1219: "the "
+.byte	$C3,$F4,$E8,$E5,$A0,$00
+; 1221: "peo"
+.byte	$C5,$F0,$E5,$EF,$00
+; 1223: "ple "
+.byte	$C7,$F0,$EC,$E5,$A0,$00
+; 1225: "who "
+.byte	$C9,$F7,$E8,$EF,$A0,$00
+; 1227: "are "
+.byte	$CB,$E1,$F2,$E5,$A0,$00
+; 1231: "still "
+.byte	$CF,$F3,$F4,$E9,$EC,$EC,$A0,$00
+; 1233: "a"
+.byte	$D1,$E1,$00
+; 1234: "l"
+.byte	$D2,$EC,$00
+; 1235: "i"
+.byte	$D3,$E9,$00
+; 1236: "v"
+.byte	$D4,$F6,$00
+; 1237: "e"
+.byte	$D5,$E5,$00
+; 1238: "."
+.byte	$D6,$AE,$00
+; 1239: "\n"
+.byte	$D7,$8D,$00
+; 1241: "\f"
+.byte	$D9,$0C,$00
+; 1243: "\n"
+.byte	$DB,$8D,$00
+; 1245: "\n"
+.byte	$DD,$8D,$00
+; 1247: "\iPS: "
+.byte	$DF,$D0,$D3,$BA,$A0,$00
+; 1249: "And "
+.byte	$E1,$C1,$EE,$E4,$A0,$00
+; 1251: "be"
+.byte	$E3,$E2,$E5,$00
+; 1253: "lieve "
+.byte	$E5,$EC,$E9,$E5,$F6,$E5,$A0,$00
+; 1255: "me "
+.byte	$E7,$ED,$E5,$A0,$00
+; 1257: "I "
+.byte	$E9,$C9,$A0,$00
+; 1259: "am\n"
+.byte	$EB,$E1,$ED,$8D,$00
+; 1263: 	"still "
+.byte	$EF,$F3,$F4,$E9,$EC,$EC,$A0,$00
+; 1265: 	"a"
+.byte	$F1,$E1,$00
+; 1267: 	"live.\n"
+.byte	$F3,$EC,$E9,$F6,$E5,$AE,$8D,$00
+; 1277: "\iPPS: "
+.byte	$FD,$D0,$D0,$D3,$BA,$A0,$00
+; 1279: "I'm "
+.byte	$FF,$C9,$A7,$ED,$A0,$00
+; 1281: "do"
+.byte	$01,$E4,$EF,$00
+; 1283: "ing "
+.byte	$03,$E9,$EE,$E7,$A0,$00
+; 1285: "sci"
+.byte	$05,$F3,$E3,$E9,$00
+; 1287: "ence "
+.byte	$07,$E5,$EE,$E3,$E5,$A0,$00
+; 1289: "and "
+.byte	$09,$E1,$EE,$E4,$A0,$00
+; 1291: "I'm\n"
+.byte	$0B,$C9,$A7,$ED,$8D,$00
+; 1295: 	"still "
+.byte	$0F,$F3,$F4,$E9,$EC,$EC,$A0,$00
+; 1297: 	"a"
+.byte	$11,$E1,$00
+; 1299: 	"live.\n"
+.byte	$13,$EC,$E9,$F6,$E5,$AE,$8D,$00
+; 1309: "\iPPPS: "
+.byte	$1D,$D0,$D0,$D0,$D3,$BA,$A0,$00
+; 1311: "I "
+.byte	$1F,$C9,$A0,$00
+; 1313: "feel "
+.byte	$21,$E6,$E5,$E5,$EC,$A0,$00
+; 1315: "FAN"
+.byte	$23,$C6,$C1,$CE,$00
+; 1317: "TAS"
+.byte	$25,$D4,$C1,$D3,$00
+; 1319: "TIC "
+.byte	$27,$D4,$C9,$C3,$A0,$00
+; 1321: "and "
+.byte	$29,$E1,$EE,$E4,$A0,$00
+; 1323: "I'm\n"
+.byte	$2B,$C9,$A7,$ED,$8D,$00
+; 1327: 	"still "
+.byte	$2F,$F3,$F4,$E9,$EC,$EC,$A0,$00
+; 1329: 	"a"
+.byte	$31,$E1,$00
+; 1331: 	"live.\n\n"
+.byte	$33,$EC,$E9,$F6,$E5,$AE,$8D,$8D,$00
+; 1339: "\iFIN"
+.byte	$3B,$C6,$C9,$CE,$00
+; 1341: "\iAL TH"
+.byte	$3D,$C1,$CC,$A0,$D4,$C8,$00
+; 1343: "\iOUGHT:\n"
+.byte	$3F,$CF,$D5,$C7,$C8,$D4,$BA,$8D,$00
+; 1345: "While "
+.byte	$41,$D7,$E8,$E9,$EC,$E5,$A0,$00
+; 1347: "you're "
+.byte	$43,$F9,$EF,$F5,$A7,$F2,$E5,$A0,$00
+; 1349: "dy"
+.byte	$45,$E4,$F9,$00
+; 1351: "ing "
+.byte	$47,$E9,$EE,$E7,$A0,$00
+; 1353: "I'll "
+.byte	$49,$C9,$A7,$EC,$EC,$A0,$00
+; 1355: "be\n"
+.byte	$4B,$E2,$E5,$8D,$00
+; 1359: 	"still "
+.byte	$4F,$F3,$F4,$E9,$EC,$EC,$A0,$00
+; 1361: 	"a"
+.byte	$51,$E1,$00
+; 1363: 	"live.\n\n"
+.byte	$53,$EC,$E9,$F6,$E5,$AE,$8D,$8D,$00
+; 1365: "\iFIN"
+.byte	$55,$C6,$C9,$CE,$00
+; 1367: "\iAL "
+.byte	$57,$C1,$CC,$A0,$00
+; 1369: "\iTHO"
+.byte	$59,$D4,$C8,$CF,$00
+; 1371: "\iUGHT "
+.byte	$5B,$D5,$C7,$C8,$D4,$A0,$00
+; 1373: "\iPS:\n"
+.byte	$5D,$D0,$D3,$BA,$8D,$00
+; 1375: "And "
+.byte	$5F,$C1,$EE,$E4,$A0,$00
+; 1377: "when "
+.byte	$61,$F7,$E8,$E5,$EE,$A0,$00
+; 1379: "you're "
+.byte	$63,$F9,$EF,$F5,$A7,$F2,$E5,$A0,$00
+; 1381: "dead "
+.byte	$65,$E4,$E5,$E1,$E4,$A0,$00
+; 1383: "I "
+.byte	$67,$C9,$A0,$00
+; 1385: "will "
+.byte	$69,$F7,$E9,$EC,$EC,$A0,$00
+; 1387: "be\n"
+.byte	$6B,$E2,$E5,$8D,$00
+; 1391: 	"still "
+.byte	$6F,$F3,$F4,$E9,$EC,$EC,$A0,$00
+; 1393: 	"a"
+.byte	$71,$E1,$00
+; 1395: 	"live.\n"
+.byte	$73,$EC,$E9,$F6,$E5,$AE,$8D,$00
+; 1401: "\n"
+.byte	$79,$8D,$00
+; 1403: "\n"
+.byte	$7B,$8D,$00
+; 1407: "STILL "
+.byte	$7F,$D3,$D4,$C9,$CC,$CC,$A0,$00
+; 1409: "A"
+.byte	$81,$C1,$00
+; 1411: "LIVE\n"
+.byte	$83,$CC,$C9,$D6,$C5,$8D,$00
+; 1413: "\if\n"
+.byte	$85,$E6,$8D,$00
+; 1446: "\iTHANK"
+.byte	$A6,$D4,$C8,$C1,$CE,$CB,$00
+; 1448: "\i YOU "
+.byte	$A8,$A0,$D9,$CF,$D5,$A0,$00
+; 1450: "\iFOR "
+.byte	$AA,$C6,$CF,$D2,$A0,$00
+; 1452: "\iPAR"
+.byte	$AC,$D0,$C1,$D2,$00
+; 1454: "\iTIC"
+.byte	$AE,$D4,$C9,$C3,$00
+; 1456: "\iIPAT"
+.byte	$B0,$C9,$D0,$C1,$D4,$00
+; 1458: "\iING\n"
+.byte	$B2,$C9,$CE,$C7,$8D,$00
+; 1460: "\iIN "
+.byte	$B4,$C9,$CE,$A0,$00
+; 1462: "\iTHIS\n"
+.byte	$B6,$D4,$C8,$C9,$D3,$8D,$00
+; 1464: "\iENRICH"
+.byte	$B8,$C5,$CE,$D2,$C9,$C3,$C8,$00
+; 1466: "\iMENT"
+.byte	$BA,$CD,$C5,$CE,$D4,$00
+; 1468: "\i CEN"
+.byte	$BC,$A0,$C3,$C5,$CE,$00
+; 1470: "\iTER "
+.byte	$BE,$D4,$C5,$D2,$A0,$00
+; 1472: "\iACT"
+.byte	$C0,$C1,$C3,$D4,$00
+; 1474: "\iIVIT"
+.byte	$C2,$C9,$D6,$C9,$D4,$00
+; 1476: "\iY!!\n"
+.byte	$C4,$D9,$A1,$A1,$8D,$00
diff --git a/still_alive/sa_ed.s b/still_alive/sa_ed.s
index 4854029f..96f464b3 100644
--- a/still_alive/sa_ed.s
+++ b/still_alive/sa_ed.s
@@ -10,6 +10,9 @@
 
 	; init variables
 
+	lda	#0
+	sta	FRAME_COUNT
+
 	lda	#1
 	sta	FORTYCOL
 
@@ -21,7 +24,7 @@ only_forty:
 
 	; Clear text page0
 
-	jsr	HOME
+;	jsr	HOME
 
 
 	;============================
@@ -36,15 +39,12 @@ only_forty:
 	; Setup lyrics
 	;==============================
 
-;	lda	#<(lyrics)
-;	sta	LYRICSL
-;	lda	#>(lyrics)
-;	sta	LYRICSH
+	lda	#<(lyrics)
+	sta	LYRICSL
+	lda	#>(lyrics)
+	sta	LYRICSH
 
 
-;MADDRL EQU 30
-;MADDRH EQU 31
-
 	;==================
 	; load song
 	;==================
@@ -82,13 +82,10 @@ forever_loop:
 
 
 lyrics:
-;.include	"lyrics.inc"
+.include	"sa.edlyrics"
 
 .include	"ascii_art.inc"
 
-;LZ4_BUFFER:
-;.incbin		"SA.KR4"
-
 
 music_address:
 .incbin	"SA.ED"