dos33fsprogs/music/tiny_music/yankee.s
2021-11-04 18:32:51 -04:00

58 lines
879 B
ArmAsm

; Tiny Mockingboard Player
; 514B -- Initial implementation
; 423B -- inline everything
; 400B -- put register init at end of song
; 381B -- generate the frequency table
SONG_L = $70
SONG_H = $71
SONG_OFFSET = $72
SONG_COUNTDOWN = $73
; proposed format
; CCOONNNN -- c=channel, o=octave, n=note
; 11LLLLLL -- L=length
; 11LLLLLL -- wait time
; by deater (Vince Weaver) <vince@deater.net>
; Zero Page
.include "zp.inc"
.include "hardware.inc"
;==========================================
tiny_music:
;===================
;
;===================
; Player Setup
lda #<yankee_doodle_song
sta SONG_L
lda #>yankee_doodle_song
sta SONG_H
; assume mockingboard in slot#4
jsr mockingboard_init
start_interrupts:
cli
forever:
jmp forever
.include "yankee_music.s"
.include "interrupt_handler.s"
; must be last
.include "mockingboard_setup.s"