mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-06-09 07:29:32 +00:00
138 lines
2.6 KiB
ArmAsm
138 lines
2.6 KiB
ArmAsm
; Apple II graphics/music in 1k
|
|
|
|
; by deater (Vince Weaver) <vince@deater.net> / DsR
|
|
|
|
; Lovebyte 2023
|
|
|
|
; 920 bytes -- (compressed) have letters/flame/music more or less going
|
|
; 914 bytes -- fallthrough into the flames code
|
|
; 887 bytes -- BF using compact zx02 code, inlined
|
|
; 1007 bytes -- merge in sier_parallax
|
|
; 1006 bytes -- mildly optimzie hgr table gen
|
|
; 1046 bytes (+26) -- add static_column
|
|
; 1044 bytes (+24) -- optimize hgr table gen
|
|
; 1040 bytes (+20) -- no need to init FRAME/FRAMEH
|
|
; 1038 bytes (+18) -- re-arrange sound init so don't have to set Y to 0
|
|
; 1035 bytes (+15) -- combine memory zeroing functions
|
|
; 1033 bytes (+13) -- inline letters code
|
|
; 1029 bytes (+9) -- remove unecessary initialization in column code
|
|
; 1025 bytes (+5) -- optimize page flip
|
|
; 1022 bytes (+2) -- optimize music, merge two tracks
|
|
; 1019 bytes -- optimize music
|
|
; note we could save another 3 bytes by sorting frequencies
|
|
; but that would have been a huge pain
|
|
|
|
.include "zp.inc"
|
|
.include "hardware.inc"
|
|
|
|
|
|
hgr_lookup_h = $1000
|
|
hgr_lookup_l = $1100
|
|
div4_lookup = $90
|
|
|
|
|
|
blue_flame:
|
|
|
|
; clear both pages of graphics
|
|
jsr HGR
|
|
jsr HGR2
|
|
|
|
; A and Y are 0 now?
|
|
|
|
|
|
;===================
|
|
; music Player Setup
|
|
|
|
; assume mockingboard in slot#4
|
|
|
|
; inline mockingboard_init
|
|
|
|
; Y must be 0
|
|
|
|
|
|
|
|
.include "mockingboard_init.s"
|
|
|
|
; frame is in init area so need to init
|
|
|
|
; sty FRAME ; init frame. Maybe only H important?
|
|
; sty FRAMEH
|
|
|
|
;===================
|
|
; int tables
|
|
|
|
; Y must be 0? actually might not matter
|
|
|
|
;====================================
|
|
; Make HGR row address lookup table
|
|
|
|
ldx #191
|
|
hgr_table_loop:
|
|
txa
|
|
jsr HPOSN ; X= (y,x) Y=(a), saves incoming values
|
|
|
|
ldx HGR_X ; restore X
|
|
|
|
lda GBASL
|
|
sta hgr_lookup_l,X
|
|
lda GBASH
|
|
and #$1F ; 20 30 001X 40 50 010X
|
|
sta hgr_lookup_h,X
|
|
|
|
|
|
dex
|
|
; cpx #$ff ; can't bpl/bmi as start > 128
|
|
bne hgr_table_loop ; though if never use address 0 can we?
|
|
|
|
|
|
|
|
|
|
; lookup table of 0..40 but divided by 4
|
|
; in $90 to $C0 or so
|
|
|
|
ldx #39
|
|
div4_loop:
|
|
txa
|
|
asl
|
|
asl
|
|
sta div4_lookup,X
|
|
|
|
lda #0 ; also clear out $60 - $87 (sound init, etc)
|
|
sta $60,X
|
|
|
|
dex
|
|
bpl div4_loop
|
|
|
|
.include "tracker_init.s"
|
|
|
|
cli ; enable music
|
|
|
|
;=====================================
|
|
; inline the parallax sierpinski code
|
|
|
|
.include "sier.s"
|
|
|
|
;====================================
|
|
; inline the "static column" code
|
|
|
|
.include "static_column.s"
|
|
|
|
;====================================
|
|
; inline the letters code
|
|
|
|
.include "letters.s"
|
|
|
|
;====================================
|
|
; fallthrough into flames
|
|
|
|
.include "flame.s"
|
|
|
|
|
|
.include "letters_routines.s"
|
|
.include "interrupt_handler.s"
|
|
.include "mockingboard_constants.s"
|
|
|
|
; music
|
|
.include "SmallLove2.s"
|
|
|