mirror of
https://github.com/deater/dos33fsprogs.git
synced 2025-01-13 07:29:54 +00:00
sa: lyrics playing nicely now
This commit is contained in:
parent
9bf37a7611
commit
50b8e21e7c
@ -255,9 +255,30 @@ done_interrupt:
|
||||
lyric_loop:
|
||||
lda (LYRICSL),Y
|
||||
beq done_lyric
|
||||
|
||||
cmp #10
|
||||
bcs lyric_home
|
||||
draw_ascii_art:
|
||||
;
|
||||
;
|
||||
jmp lyric_continue
|
||||
lyric_home:
|
||||
cmp #12
|
||||
bne lyric_char
|
||||
tya
|
||||
pha
|
||||
jsr HOME
|
||||
pla
|
||||
tay
|
||||
jmp lyric_continue
|
||||
|
||||
lyric_char:
|
||||
jsr COUT1
|
||||
|
||||
lyric_continue:
|
||||
iny
|
||||
jmp lyric_loop
|
||||
|
||||
done_lyric:
|
||||
; adjust pointer
|
||||
sec
|
||||
|
@ -214,8 +214,6 @@
|
||||
.byte $00,$EC,$E9,$F6,$E5,$AE,$8D,$00
|
||||
; 2316 "\f"
|
||||
.byte $0C,$0C,$00
|
||||
; 2397 "\v"
|
||||
.byte $5D,$0B,$00
|
||||
; 2400 "\iForms "
|
||||
.byte $60,$C6,$EF,$F2,$ED,$F3,$A0,$00
|
||||
; 2412 "\iFORM-"
|
||||
@ -474,8 +472,6 @@
|
||||
.byte $4A,$E5,$EE,$E4,$F5,$ED,$00
|
||||
; 4950 "\i:\n\n"
|
||||
.byte $56,$BA,$8D,$8D,$00
|
||||
; 4962 "\v"
|
||||
.byte $62,$0B,$00
|
||||
; 5088 "\iOne "
|
||||
.byte $E0,$CF,$EE,$E5,$A0,$00
|
||||
; 5100 "\ilast "
|
||||
|
@ -255,7 +255,6 @@ load_song:
|
||||
;=========================
|
||||
|
||||
lda #$0
|
||||
sta FRAME_COUNT
|
||||
sta COPY_OFFSET
|
||||
sta DECOMPRESS_TIME
|
||||
sta COPY_TIME
|
||||
@ -265,6 +264,11 @@ load_song:
|
||||
lda #3
|
||||
sta CHUNKSIZE
|
||||
|
||||
; We buffer one frame so start out one frame behind
|
||||
lda #$ff
|
||||
sta FRAME_COUNT
|
||||
|
||||
|
||||
;===========================
|
||||
; Setup KRW file
|
||||
;===========================
|
||||
|
Loading…
x
Reference in New Issue
Block a user