2022-01-11 07:59:52 +00:00
|
|
|
; Apple II graphics/music in 1k
|
|
|
|
|
|
|
|
|
|
; by deater (Vince Weaver) <vince@deater.net>
|
|
|
|
|
|
|
|
|
|
; Zero Page
|
|
|
|
|
.include "zp.inc"
|
|
|
|
|
.include "hardware.inc"
|
|
|
|
|
|
2022-01-15 19:47:10 +00:00
|
|
|
; aiming for under 256
|
|
|
|
|
|
|
|
|
|
; 309 bytes -- first try
|
2022-01-11 07:59:52 +00:00
|
|
|
|
|
|
|
|
|
|
|
|
|
; if can straddle interrupt vector, save 10 bytes
|
|
|
|
|
; if can guarantee Y is 0 on entry, save 2 bytes
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
d2:
|
|
|
|
|
|
|
|
|
|
;===================
|
|
|
|
|
; music Player Setup
|
|
|
|
|
|
|
|
|
|
tracker_song = peasant_song
|
|
|
|
|
|
|
|
|
|
; assume mockingboard in slot#4
|
|
|
|
|
|
|
|
|
|
; inline mockingboard_init
|
|
|
|
|
|
|
|
|
|
.include "mockingboard_init.s"
|
|
|
|
|
|
|
|
|
|
.include "tracker_init.s"
|
|
|
|
|
|
|
|
|
|
; start the music playing
|
|
|
|
|
|
|
|
|
|
cli
|
|
|
|
|
|
|
|
|
|
bob:
|
|
|
|
|
lda KEYPRESS
|
|
|
|
|
bpl bob
|
|
|
|
|
|
|
|
|
|
quiet:
|
|
|
|
|
lda #$3f
|
|
|
|
|
sta AY_REGS+7
|
|
|
|
|
|
|
|
|
|
end:
|
|
|
|
|
bne end
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
; music
|
2022-01-15 19:47:10 +00:00
|
|
|
.include "mA2E_2.s"
|
2022-01-11 07:59:52 +00:00
|
|
|
.include "interrupt_handler.s"
|
|
|
|
|
; must be last
|
|
|
|
|
.include "mockingboard_constants.s"
|
