Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-01-12 15:30:55 +00:00
Code Issues Projects Releases Wiki Activity

chiptune_player: add LOADING message

Browse Source
This commit is contained in:
Vince Weaver 2018-02-21 16:56:56 -05:00
parent da04382c18
commit 4fdf1f8864
3 changed files with 40 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
asm_routines/gr_fast_clear.s
View File

@ -1,4 +1,3 @@
clear_screens:
;===================================
; Clear top/bottom of page 0
@ -20,6 +19,25 @@ clear_screens:
rts
clear_bottoms:
;===================================
; Clear bottom of page 0
;===================================
lda #$0
sta DRAW_PAGE
jsr clear_bottom
;===================================
; Clear bottom of page 1
;===================================
lda #$4
sta DRAW_PAGE
jsr clear_bottom
rts
;=========================================================

2
chiptune_player/TODO
View File

@ -2,4 +2,4 @@
+ LZ4 decompression
+ Loop support
+ Right/Left arrows on screen
+ "LOADING..." message while loading from disk

21
chiptune_player/chiptune_player.s
View File

@ -316,6 +316,24 @@ new_song:
lda #0
sta C_VOLUME
;===========================
; Print loading message
;===========================
jsr clear_bottoms ; clear bottom of page 0/1
lda #0
sta CH
lda #21
sta CV
lda #<loading_message
sta OUTL
lda #>loading_message
sta OUTH
jsr print_both_pages
;===========================
; init pointer to the music
;===========================
@ -338,7 +356,7 @@ new_song:
; Print Title/Author info
;=========================
jsr clear_screens ; clear top/bottom of page 0/1
jsr clear_bottoms ; clear bottom of page 0/1
lda #<file_info
sta OUTL
@ -440,6 +458,7 @@ mocking_message: .asciiz "LOOKING FOR MOCKINGBOARD IN SLOT #4"
not_message: .byte "NOT "
found_message: .asciiz "FOUND"
done_message: .asciiz "DONE PLAYING"
loading_message: .asciiz "LOADING..."
;============
; graphics