69 lines
1.2 KiB
ArmAsm
69 lines
1.2 KiB
ArmAsm
; Apple II graphics/music in 1k
|
|
|
|
; by deater (Vince Weaver) <vince@deater.net>
|
|
|
|
; Zero Page
|
|
.include "zp.inc"
|
|
.include "hardware.inc"
|
|
|
|
; 466 bytes -- original from D2 demo
|
|
; 436 bytes -- left channel only
|
|
; 427 bytes -- optimize init a bit
|
|
; 426 bytes -- terminate init with $FF rather than extra $00
|
|
; 424 bytes -- move inits to zero together
|
|
; 414 bytes -- update ay output to write all registers
|
|
; 405 bytes -- more optimizing the interrupt handler
|
|
; 398 bytes -- only put song address one place
|
|
; 393 bytes -- don't keep song offset in Y
|
|
; 390 bytes -- use Y instead of X
|
|
; 388 bytes -- optimizing octave selection
|
|
|
|
d2:
|
|
|
|
;===================
|
|
; music Player Setup
|
|
|
|
tracker_song = peasant_song
|
|
|
|
; lda #<peasant_song
|
|
; sta SONG_L
|
|
; lda #>peasant_song
|
|
; sta SONG_H
|
|
|
|
; assume mockingboard in slot#4
|
|
|
|
; inline mockingboard_init
|
|
|
|
.include "mockingboard_init.s"
|
|
|
|
.include "tracker_init.s"
|
|
|
|
; start the music playing
|
|
|
|
cli
|
|
|
|
bob:
|
|
jmp bob
|
|
|
|
|
|
|
|
;================
|
|
; halt music
|
|
; stop playing
|
|
; turn off sound
|
|
its_over:
|
|
sei
|
|
lda #$3f
|
|
sta AY_REGS+7
|
|
jsr ay3_write_regs
|
|
|
|
stuck_forever:
|
|
bne stuck_forever
|
|
|
|
|
|
; music
|
|
.include "mA2E_2.s"
|
|
.include "interrupt_handler.s"
|
|
; must be last
|
|
.include "mockingboard_setup.s"
|