编写:女孩不哭 2012-08-31
语言:6502 汇编环境:6502 通用汇编器 1.2.6 修改版
所选歌词:Kelly Clarkson - Because of you
效果图:
以下是源代码:
//文件头 header.bin 4E 45 53 1A 01 01 01 00 00 00 00 00 00 00 00 00
//lyric.inc
lyric_data:
.str "Kelly Clarkson"
.str "Because Of You"
.str "I will not make"
.str "the same mistakes that you did"
.str "I will not let myself"
.str "Cause my heart so much misery"
.str "I will not break the way you did"
.str "You fell so hard"
.str "I've learned the hard way"
.str "To never let it get that far"
.str "Because of you"
.str "I never stray too far"
.str "from the sidewalk"
.str "Because of you"
.str "I learned to play on the"
.str "safe side so I don t get hurt"
.str "Because of you"
.str "I find it hard to trust not only"
.str "me, but everyone around me"
.str "Because of you"
.str "I am afraid"
.str "I lose my way"
.str "And it s not too long before"
.str "you point it out"
.str "I cannot cry"
.str "Because you know that's"
.str "weakness in your eyes"
.str "I'm forced to fake"
.str "A smile, a laugh"
.str "everyday of my life"
.str "My heart can't possibly break"
.str "When it wasn't even whole"
.str "to start with"
.str "Because of you"
.str "I never stray too far from"
.str "the sidewalk"
.str "Because of you"
.str "I learned to play on "
.str "the safe side"
.str "so I don t get hurt"
.str "Because of you"
.str "I find it hard to trust not only"
.str "me, but everyone around me"
.str "Because of you"
.str "I am afraid"
.str "I watched you die"
.str "I heard you cry every night"
.str "in your sleep"
.str "I was so young"
.str "You should have known better"
.str "than to lean on me"
.str "You never thought of anyone else"
.str "You just saw your pain"
.str "And now I cry in the"
.str "middle of the night"
.str "For the same damn thing"
.str "Because of you"
.str "I never stray too far"
.str "from the sidewalk"
.str "Because of you"
.str "I learned to play on the"
.str "safe side so I don't get hurt"
.str "Because of you"
.str "I try my hardest just to"
.str "forget everything"
.str "Because of you"
.str "I don't know how to let"
.str "anyone else in"
.str "Because of you"
.str "I'm ashamed of my life"
.str "because it s empty"
.str "Because of you"
.str "I am afraid"
.str "Because of you"
.str "Because of you"
.byte $00
//lrcshow.65s
.start reset
.org $C000
.include "lyric.inc"
reset:
sei
cld
ldx #$ff
txs
_reset_vb1:
lda $2002
bpl _reset_vb1
_reset_vb2:
lda $2002
bpl _reset_vb2
inx
stx $00
stx $01
stx $06
stx $2000
stx $2001
lda #<lyric_data
sta $02
lda #>lyric_data
sta $03
lda #$20
sta $04
sta $05
jsr clear_nt
jsr set_palette
lda #$00
sta $2005
sta $2005
lda #$80
sta $2000
lda #$1e
sta $2001
main:
jmp main
; ////////////////////////////////////////////////////////////////
clear_nt:
lda #$20
sta $2006
jsr _cn_sub1
lda #$28
sta $2006
jsr _cn_sub1
rts
_cn_sub1:
lda #$00
sta $2006
ldy #$04
_loop_y1:
ldx #$00
_loop_x1:
sta $2007
inx
bne _loop_x1
dey
bne _loop_y1
rts
; ////////////////////////////////////////////////////////////////
set_palette:
lda #$3f
sta $2006
lda #$00
sta $2006
ldx #$00
_sp_loop1:
lda _pal_data,x
sta $2007
inx
cpx #$04
bne _sp_loop1
lda #$3f
sta $2006
lda #$10
sta $2006
ldx #$00
_sp_loop2:
lda _pal_data+4,x
sta $2007
inx
cpx #$04
bne _sp_loop2
rts
_pal_data:
.db $0F,$03,$11,$1A
.db $0F,$1A,$11,$03
; ////////////////////////////////////////////////////////////////
irq:
rti
; ////////////////////////////////////////////////////////////////
nmi:
lda $06
cmp #$01
beq _nmi_next3
eor #$01
sta $06
rti
_nmi_next3:
eor #$01
sta $06
lda #$00
sta $2001
lda $01
cmp #$08
bne _nmi_next2
lda #$00
sta $01
jsr draw_lyric
_nmi_next2:
inc $01
inc $00
lda $00
cmp #$f0
bne _nmi_next1
lda #$00
sta $00
_nmi_next1:
lda #$00
sta $2005
lda $00
sta $2005
lda #$1e
sta $2001
rti
; ////////////////////////////////////////////////////////////////
draw_lyric:
lda $05 ; 判断是否是$23C0(屏幕结束)
cmp #$23
bne _dl_next4 ; 不是, 跳出
lda $04
cmp #$c0
bne _dl_next4 ; 不是, 跳出
lda #$00 ; 复位到 屏幕开始
sta $04
lda #$20
sta $05
_dl_next4:
lda $05 ; 屏幕地址
sta $2006
lda $04
sta $2006
ldy #$00
lda ($02),y ; 取得字符串长度
bne _dl_next5
lda #<lyric_data ; 结束了, 回到开始
sta $02
lda #>lyric_data
sta $03
rts
_dl_next5:
tax
cpx #$20 ; 最长为32
bcs _dl_loop1 ; >=
txa ; 取得要打印的空白的个数
sec ; 取相反数<---+
sbc #$20
eor #$ff
clc
adc #$01 ; <-----------+
pha ; 先保存, 记得保存堆栈平衡
jmp _dl_next3
_dl_loop1:
ldx #$20 ; >= , 只取32个字符
lda #$00 ; 0个空格
pha
_dl_next3:
iny ; 第一个字符
lda ($02),y
sta $2007
inc $04
bne _dl_cc1
inc $05
_dl_cc1:
dex
bne _dl_next3
iny ; 定位到一下句的第一个字符
tya
clc
adc $02
sta $02
bcc _dl_cc2
inc $03
_dl_cc2:
pla
tax
beq _rts
cpx #$20
beq _rts
lda #$00
_dl_loop2:
sta $2007
inc $04
bne _dl_cc3
inc $05
_dl_cc3:
dex
bne _dl_loop2
_rts:
rts
; ////////////////////////////////////////////////////////////////
.org $fffa
.dw nmi,reset,irq
//lrcshow.chr
注:字模数据为ASCII数据, 这里不再上传.
女孩不哭(QQ:191035066) @ 2012-09-01 11:26:28 @ http://www.cnblogs.com/nbsofer