2022-11-07 04:31:27 +00:00
|
|
|
; Apple II graphics/music in 1k
|
|
|
|
|
|
|
|
|
|
; by deater (Vince Weaver) <vince@deater.net>
|
|
|
|
|
|
|
|
|
|
; Zero Page
|
|
|
|
|
.include "zp.inc"
|
|
|
|
|
.include "hardware.inc"
|
|
|
|
|
|
2022-11-10 03:21:25 +00:00
|
|
|
|
|
|
|
|
d4:
|
2022-11-10 03:58:37 +00:00
|
|
|
;=================
|
|
|
|
|
; init vars
|
|
|
|
|
|
|
|
|
|
lda #0
|
|
|
|
|
sta FRAME
|
2022-11-10 04:22:57 +00:00
|
|
|
sta WHICH_TRACK
|
2022-11-07 04:31:27 +00:00
|
|
|
|
|
|
|
|
;===================
|
|
|
|
|
; music Player Setup
|
|
|
|
|
|
|
|
|
|
tracker_song = peasant_song
|
|
|
|
|
|
|
|
|
|
; assume mockingboard in slot#4
|
|
|
|
|
|
|
|
|
|
; inline mockingboard_init
|
|
|
|
|
|
|
|
|
|
.include "mockingboard_init.s"
|
|
|
|
|
|
|
|
|
|
.include "tracker_init.s"
|
|
|
|
|
|
|
|
|
|
jsr SETGR ; enable lo-res graphics
|
|
|
|
|
|
2022-11-10 03:21:25 +00:00
|
|
|
cli ; enable music
|
2022-11-07 04:31:27 +00:00
|
|
|
game_loop:
|
|
|
|
|
|
|
|
|
|
|
2022-11-10 03:21:25 +00:00
|
|
|
jmp game_loop
|
2022-11-07 04:31:27 +00:00
|
|
|
|
2022-11-10 03:21:25 +00:00
|
|
|
.include "interrupt_handler.s"
|
|
|
|
|
.include "mockingboard_constants.s"
|
2022-11-07 04:31:27 +00:00
|
|
|
|
|
|
|
|
; music
|
|
|
|
|
.include "mA2E_4.s"
|
|
|
|
|
|
