Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-12-27 02:31:00 +00:00
Code Issues Projects Releases Wiki Activity

chiptune: print title info

Browse Source
This commit is contained in:
Vince Weaver 2018-02-19 00:08:42 -05:00
parent 14b791164d
commit 8f1b7fa00f
1 changed files with 79 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

85
chiptune_player/chiptune_player.s
View File

@ -132,7 +132,7 @@ mockingboard_found:
;============================ ;============================
; Init Background ; Init Background
;============================ ;============================
jsr clear_screens ; clear top/bottom of page 0/1 ; jsr clear_screens ; clear top/bottom of page 0/1
jsr set_gr_page0 jsr set_gr_page0
lda #0 lda #0
@ -516,7 +516,75 @@ new_song:
sta MB_CHUNK sta MB_CHUNK
;=========================
; Print Title/Author info
;=========================
jsr clear_screens ; clear top/bottom of page 0/1
lda #<file_info
sta OUTL
lda #>file_info
sta OUTH
ldy #0
; FIXME: optimize
lda #20
sta CV
lda (OUTL),Y
sta CH
inc OUTL
bne bloop1
inc OUTH
bloop1:
jsr print_both_pages
iny
tya
ldy #0
clc
adc OUTL
sta OUTL
lda OUTH
adc #$0
sta OUTH
lda #21
sta CV
lda (OUTL),Y
sta CH
inc OUTL
bne bloop2
inc OUTH
bloop2:
jsr print_both_pages
iny
tya
ldy #0
clc
adc OUTL
sta OUTL
lda OUTH
adc #$0
sta OUTH
lda #23
sta CV
lda (OUTL),Y
sta CH
inc OUTL
bne bloop3
inc OUTH
bloop3:
jsr print_both_pages
rts rts
;========= ;=========
@ -534,11 +602,16 @@ new_song:
.include "rasterbars.s" .include "rasterbars.s"
;======= ;===========
; music ; File info
;======= ;===========
;.include "ksp_theme_compressed.inc" file_info:
.byte 1
.asciiz "INTRO2: JUNGAR OF BIT WORLD FROM KIEV"
.byte 5
.asciiz "BY: SURGEON (ALEKSEY LUTSENKO)"
.byte 15
.asciiz "0:00 / 0:00"
;========= ;=========
; strings ; strings