mirror of
https://github.com/deater/dos33fsprogs.git
synced 2025-01-23 11:33:07 +00:00
demo: re-arrange
not much room :(
This commit is contained in:
Vince Weaver
parent
58a853bcf3
commit
647adeb54f
@ -42,7 +42,7 @@ ESCAPE: escape.o
|
|||||||
escape.o: escape.s \
|
escape.o: escape.s \
|
||||||
logo_intro.s \
|
logo_intro.s \
|
||||||
ay3_write_regs.s escape.s interrupt_handler.s \
|
ay3_write_regs.s escape.s interrupt_handler.s \
|
||||||
play_frame.s amp.s \
|
play_frame.s \
|
||||||
mA2E_4.s mockingboard_constants.s mockingboard_init.s tracker_init.s
|
mA2E_4.s mockingboard_constants.s mockingboard_init.s tracker_init.s
|
||||||
ca65 -o escape.o escape.s -l escape.lst
|
ca65 -o escape.o escape.s -l escape.lst
|
||||||
|
|
||||||
|
|||||||
@ -1,89 +0,0 @@
|
|||||||
; pattern 0
|
|
||||||
; 0 -> F
|
|
||||||
; 48-> C
|
|
||||||
; 50-> A
|
|
||||||
; 52-> 9
|
|
||||||
; 54-> 8
|
|
||||||
; 56-> 7
|
|
||||||
; 58-> 6
|
|
||||||
; 60-> 5
|
|
||||||
; 62-> 4
|
|
||||||
bamps0:
|
|
||||||
; 0 15 30 45 48 50 52 54 56 58 60 62
|
|
||||||
.byte $FF,$FF,$FF,$3F,$2C,$2A,$29,$28,$27,$26,$25,$24
|
|
||||||
|
|
||||||
; pattern 1
|
|
||||||
; 0 -> F
|
|
||||||
; 9 -> C
|
|
||||||
;10 -> F
|
|
||||||
;20 -> C
|
|
||||||
;22 -> F
|
|
||||||
;29 -> C
|
|
||||||
;30 -> F
|
|
||||||
;31 -> C
|
|
||||||
;32 -> F
|
|
||||||
;40 -> C
|
|
||||||
; 48-> A
|
|
||||||
; 50-> 9
|
|
||||||
; 52-> 8
|
|
||||||
; 54-> 7
|
|
||||||
; 56-> 6
|
|
||||||
; 58-> 5
|
|
||||||
; 60-> 4
|
|
||||||
; 62-> 3
|
|
||||||
bamps1:
|
|
||||||
; 0 9 10 20 22 29 30 31 32 40 48 50 52 54 56 58 60 62
|
|
||||||
.byte $9F,$1C,$AF,$2C,$7F,$1C,$1F,$1C,$8F,$8C,$2A,$29,$28,$27,$26,$25,$24,$23
|
|
||||||
|
|
||||||
; pattern 2
|
|
||||||
; 0 ->F
|
|
||||||
; 13->C
|
|
||||||
; 14->F
|
|
||||||
; 15->C
|
|
||||||
; 16->F
|
|
||||||
; 24->C
|
|
||||||
; 26->9
|
|
||||||
; 28->8
|
|
||||||
; 30->7
|
|
||||||
; 32->F
|
|
||||||
; 45->C
|
|
||||||
; 46->F
|
|
||||||
; 47->C
|
|
||||||
; 48->F
|
|
||||||
; 56->C
|
|
||||||
; 58->9
|
|
||||||
; 60->7
|
|
||||||
; 62->6
|
|
||||||
bamps2:
|
|
||||||
; 0 13 14 15 16 24 26 28 30 32 45 46 47 48 56 58 60 62
|
|
||||||
.byte $DF,$1C,$1F,$1C,$8F,$2C,$29,$28,$27,$DF,$1C,$1F,$1C,$8F,$2C,$29,$27,$26
|
|
||||||
|
|
||||||
; pattern3
|
|
||||||
; 0->F
|
|
||||||
; 24->C
|
|
||||||
; 26->9
|
|
||||||
; 28->8
|
|
||||||
; 30->7
|
|
||||||
; 32->F
|
|
||||||
; 45->C
|
|
||||||
; 46->F
|
|
||||||
; 47->C
|
|
||||||
; 48->F
|
|
||||||
; 56->C
|
|
||||||
; 58->9
|
|
||||||
; 60->7
|
|
||||||
; 62->6
|
|
||||||
bamps3:
|
|
||||||
; 0 15 24 26 28 30 32 45 46 47 48 56 58 60 62
|
|
||||||
.byte $FF,$9F,$2C,$29,$28,$27,$DF,$1C,$1F,$1C,$8F,$2C,$29,$27,$26
|
|
||||||
|
|
||||||
; pattern4
|
|
||||||
; 0->0
|
|
||||||
; 60->F
|
|
||||||
; 61->C
|
|
||||||
; 62->F
|
|
||||||
; 63->C
|
|
||||||
|
|
||||||
bamps4:
|
|
||||||
; 0 15 30 45 60 61 62 63
|
|
||||||
.byte $F0,$F0,$F0,$F0,$1F,$1C,$1F,$1C
|
|
||||||
@ -42,9 +42,6 @@ game_loop:
|
|||||||
.include "interrupt_handler.s"
|
.include "interrupt_handler.s"
|
||||||
.include "mockingboard_constants.s"
|
.include "mockingboard_constants.s"
|
||||||
|
|
||||||
; music
|
|
||||||
.include "mA2E_4.s"
|
|
||||||
|
|
||||||
; logo
|
; logo
|
||||||
letter_d:
|
letter_d:
|
||||||
.include "./letters/d.inc"
|
.include "./letters/d.inc"
|
||||||
@ -56,3 +53,8 @@ letter_i:
|
|||||||
.include "./letters/i.inc"
|
.include "./letters/i.inc"
|
||||||
letter_r:
|
letter_r:
|
||||||
.include "./letters/r.inc"
|
.include "./letters/r.inc"
|
||||||
|
|
||||||
|
; music
|
||||||
|
.include "mA2E_4.s"
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
@ -1,5 +1,134 @@
|
|||||||
peasant_song:
|
; Octave 0 : 0 0 0 3 0 3 0 3 3 0 16 0
|
||||||
; register init
|
; Octave 1 : 45 0 0 19 0 23 0 0 0 0 5 0
|
||||||
|
; Octave 2 : 14 0 2 6 0 8 0 0 0 0 0 0
|
||||||
|
; Octave 3 : 0 0 0 1 0 1 0 2 0 0 2 0
|
||||||
|
; Octave 4 : 4 0 1 5 2 5 0 7 0 2 4 0
|
||||||
|
; Octave 5 : 3 0 4 1 5 2 0 0 0 0 0 0
|
||||||
|
; 30 notes allocated
|
||||||
|
;.byte 12,55,24,64,10,62,60,15,17,58,22,57,8,7,5,3,53,52,29,27,26,65,63,51,50,48,46,39,41,43,
|
||||||
|
|
||||||
|
frequencies_low:
|
||||||
|
.byte $D1,$51,$E8,$30,$49,$36,$3D,$36
|
||||||
|
.byte $DC,$44,$24,$48,$CF,$18,$B8,$6C
|
||||||
|
.byte $5B,$60,$6E,$9B,$B3,$2D,$33,$66
|
||||||
|
.byte $6C,$7A,$89,$CD,$B7,$A3
|
||||||
|
|
||||||
|
frequencies_high:
|
||||||
|
.byte $03,$00,$01,$00,$04,$00,$00,$03,$02,$00,$02,$00,$04,$05,$05,$06,$00,$00,$01,$01,$01,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
||||||
|
; total len=61
|
||||||
|
|
||||||
|
; pattern 0
|
||||||
|
; 0 -> F
|
||||||
|
; 48-> C
|
||||||
|
; 50-> A
|
||||||
|
; 52-> 9
|
||||||
|
; 54-> 8
|
||||||
|
; 56-> 7
|
||||||
|
; 58-> 6
|
||||||
|
; 60-> 5
|
||||||
|
; 62-> 4
|
||||||
|
bamps0:
|
||||||
|
; 0 15 30 45 48 50 52 54 56 58 60 62
|
||||||
|
.byte $FF,$FF,$FF,$3F,$2C,$2A,$29,$28,$27,$26,$25,$24
|
||||||
|
|
||||||
|
; pattern 1
|
||||||
|
; 0 -> F
|
||||||
|
; 9 -> C
|
||||||
|
;10 -> F
|
||||||
|
;20 -> C
|
||||||
|
;22 -> F
|
||||||
|
;29 -> C
|
||||||
|
;30 -> F
|
||||||
|
;31 -> C
|
||||||
|
;32 -> F
|
||||||
|
;40 -> C
|
||||||
|
; 48-> A
|
||||||
|
; 50-> 9
|
||||||
|
; 52-> 8
|
||||||
|
; 54-> 7
|
||||||
|
; 56-> 6
|
||||||
|
; 58-> 5
|
||||||
|
; 60-> 4
|
||||||
|
; 62-> 3
|
||||||
|
bamps1:
|
||||||
|
; 0 9 10 20 22 29 30 31 32 40 48 50 52 54 56 58 60 62
|
||||||
|
.byte $9F,$1C,$AF,$2C,$7F,$1C,$1F,$1C,$8F,$8C,$2A,$29,$28,$27,$26,$25,$24,$23
|
||||||
|
|
||||||
|
; pattern 2
|
||||||
|
; 0 ->F
|
||||||
|
; 13->C
|
||||||
|
; 14->F
|
||||||
|
; 15->C
|
||||||
|
; 16->F
|
||||||
|
; 24->C
|
||||||
|
; 26->9
|
||||||
|
; 28->8
|
||||||
|
; 30->7
|
||||||
|
; 32->F
|
||||||
|
; 45->C
|
||||||
|
; 46->F
|
||||||
|
; 47->C
|
||||||
|
; 48->F
|
||||||
|
; 56->C
|
||||||
|
; 58->9
|
||||||
|
; 60->7
|
||||||
|
; 62->6
|
||||||
|
bamps2:
|
||||||
|
; 0 13 14 15 16 24 26 28 30 32 45 46 47 48 56 58 60 62
|
||||||
|
.byte $DF,$1C,$1F,$1C,$8F,$2C,$29,$28,$27,$DF,$1C,$1F,$1C,$8F,$2C,$29,$27,$26
|
||||||
|
|
||||||
|
; pattern3
|
||||||
|
; 0->F
|
||||||
|
; 24->C
|
||||||
|
; 26->9
|
||||||
|
; 28->8
|
||||||
|
; 30->7
|
||||||
|
; 32->F
|
||||||
|
; 45->C
|
||||||
|
; 46->F
|
||||||
|
; 47->C
|
||||||
|
; 48->F
|
||||||
|
; 56->C
|
||||||
|
; 58->9
|
||||||
|
; 60->7
|
||||||
|
; 62->6
|
||||||
|
bamps3:
|
||||||
|
; 0 15 24 26 28 30 32 45 46 47 48 56 58 60 62
|
||||||
|
.byte $FF,$9F,$2C,$29,$28,$27,$DF,$1C,$1F,$1C,$8F,$2C,$29,$27,$26
|
||||||
|
|
||||||
|
; pattern4
|
||||||
|
; 0->0
|
||||||
|
; 60->F
|
||||||
|
; 61->C
|
||||||
|
; 62->F
|
||||||
|
; 63->C
|
||||||
|
|
||||||
|
bamps4:
|
||||||
|
; 0 15 30 45 60 61 62 63
|
||||||
|
.byte $F0,$F0,$F0,$F0,$1F,$1C,$1F,$1C
|
||||||
|
|
||||||
|
|
||||||
|
.align $100
|
||||||
|
|
||||||
|
channel_a_volume:
|
||||||
|
.byte 14,14,14,14,11,11,10,10
|
||||||
|
|
||||||
|
lengths:
|
||||||
|
.byte 0*8,1*8,2*8,4*8
|
||||||
|
|
||||||
|
tracks_l:
|
||||||
|
.byte <track4,<track0,<track1,<track2,<track3
|
||||||
|
|
||||||
|
; assume all on same page
|
||||||
|
; tracks_h:
|
||||||
|
; .byte >track4,>track0,>track1,>track2,>track3
|
||||||
|
|
||||||
|
bamps_l:
|
||||||
|
.byte <bamps4,<bamps0,<bamps1,<bamps2,<bamps3
|
||||||
|
; bamps_h:
|
||||||
|
; .byte >bamps4,>bamps0,>bamps1,>bamps2,>bamps3
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
track0:
|
track0:
|
||||||
|
|
||||||
@ -423,16 +552,5 @@ track4:
|
|||||||
; last: a=-1 b=16 len=2
|
; last: a=-1 b=16 len=2
|
||||||
.byte $85 ; frame=64 B=16 L=2
|
.byte $85 ; frame=64 B=16 L=2
|
||||||
.byte $FF ; end
|
.byte $FF ; end
|
||||||
; Octave 0 : 0 0 0 3 0 3 0 3 3 0 16 0
|
|
||||||
; Octave 1 : 45 0 0 19 0 23 0 0 0 0 5 0
|
|
||||||
; Octave 2 : 14 0 2 6 0 8 0 0 0 0 0 0
|
|
||||||
; Octave 3 : 0 0 0 1 0 1 0 2 0 0 2 0
|
|
||||||
; Octave 4 : 4 0 1 5 2 5 0 7 0 2 4 0
|
|
||||||
; Octave 5 : 3 0 4 1 5 2 0 0 0 0 0 0
|
|
||||||
; 30 notes allocated
|
|
||||||
;.byte 12,55,24,64,10,62,60,15,17,58,22,57,8,7,5,3,53,52,29,27,26,65,63,51,50,48,46,39,41,43,
|
|
||||||
frequencies_low:
|
|
||||||
.byte $D1,$51,$E8,$30,$49,$36,$3D,$36,$DC,$44,$24,$48,$CF,$18,$B8,$6C,$5B,$60,$6E,$9B,$B3,$2D,$33,$66,$6C,$7A,$89,$CD,$B7,$A3
|
|
||||||
frequencies_high:
|
|
||||||
.byte $03,$00,$01,$00,$04,$00,$00,$03,$02,$00,$02,$00,$04,$05,$05,$06,$00,$00,$01,$01,$01,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
|
||||||
; total len=61
|
|
||||||
|
|||||||
@ -11,7 +11,7 @@ init_values:
|
|||||||
.byte $ff,$ff ; set the data direction for all pins of PortA/PortB to be output
|
.byte $ff,$ff ; set the data direction for all pins of PortA/PortB to be output
|
||||||
.byte $40,$7f
|
.byte $40,$7f
|
||||||
.byte $C0,$C0
|
.byte $C0,$C0
|
||||||
.byte $e7,$4f ; c7ce / 1.023e6 = .050s, 20Hz
|
.byte $e7,$4f ; 50Hz
|
||||||
.byte MOCK_AY_RESET,MOCK_AY_INACTIVE
|
.byte MOCK_AY_RESET,MOCK_AY_INACTIVE
|
||||||
|
|
||||||
; c7ce / 1.023e6 = .050s, 20Hz
|
; c7ce / 1.023e6 = .050s, 20Hz
|
||||||
|
|||||||
@ -1,22 +1,5 @@
|
|||||||
play_frame:
|
play_frame:
|
||||||
|
|
||||||
;===============================
|
|
||||||
;===============================
|
|
||||||
; things that happen every frame
|
|
||||||
;===============================
|
|
||||||
;===============================
|
|
||||||
|
|
||||||
|
|
||||||
;=================================
|
|
||||||
; rotate through channel A volume
|
|
||||||
|
|
||||||
lda FRAME ; repeating 8-long pattern
|
|
||||||
and #$7
|
|
||||||
tay
|
|
||||||
lda channel_a_volume,Y
|
|
||||||
sta AY_REGS+8 ; A volume
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
;============================
|
;============================
|
||||||
; see if still counting down
|
; see if still counting down
|
||||||
@ -52,13 +35,13 @@ track_smc:
|
|||||||
no_wrap:
|
no_wrap:
|
||||||
lda tracks_l,Y
|
lda tracks_l,Y
|
||||||
sta track_smc+1
|
sta track_smc+1
|
||||||
lda tracks_h,Y
|
; lda tracks_h,Y
|
||||||
sta track_smc+2
|
; sta track_smc+2
|
||||||
|
|
||||||
lda bamps_l,Y
|
lda bamps_l,Y
|
||||||
sta bamp_smc+1
|
sta bamp_smc+1
|
||||||
lda bamps_h,Y
|
; lda bamps_h,Y
|
||||||
sta bamp_smc+2
|
; sta bamp_smc+2
|
||||||
|
|
||||||
lda #0
|
lda #0
|
||||||
sta SONG_OFFSET
|
sta SONG_OFFSET
|
||||||
@ -125,34 +108,33 @@ done_update_song:
|
|||||||
|
|
||||||
dec SONG_COUNTDOWN
|
dec SONG_COUNTDOWN
|
||||||
bmi set_notes_loop
|
bmi set_notes_loop
|
||||||
bpl skip_data
|
|
||||||
|
|
||||||
channel_a_volume:
|
|
||||||
.byte 14,14,14,14,11,11,10,10
|
|
||||||
|
|
||||||
lengths:
|
|
||||||
.byte 0*8,1*8,2*8,4*8
|
|
||||||
|
|
||||||
tracks_l:
|
|
||||||
.byte <track4,<track0,<track1,<track2,<track3
|
|
||||||
tracks_h:
|
|
||||||
.byte >track4,>track0,>track1,>track2,>track3
|
|
||||||
|
|
||||||
bamps_l:
|
|
||||||
.byte <bamps4,<bamps0,<bamps1,<bamps2,<bamps3
|
|
||||||
bamps_h:
|
|
||||||
.byte >bamps4,>bamps0,>bamps1,>bamps2,>bamps3
|
|
||||||
|
|
||||||
|
|
||||||
.include "amp.s"
|
|
||||||
|
|
||||||
skip_data:
|
|
||||||
|
;===============================
|
||||||
|
;===============================
|
||||||
|
; things that happen every frame
|
||||||
|
;===============================
|
||||||
|
;===============================
|
||||||
|
|
||||||
|
|
||||||
|
;=================================
|
||||||
|
; rotate through channel A volume
|
||||||
|
|
||||||
|
lda FRAME ; repeating 8-long pattern
|
||||||
|
and #$7
|
||||||
|
tay
|
||||||
|
lda channel_a_volume,Y
|
||||||
|
sta AY_REGS+8 ; A volume
|
||||||
|
|
||||||
|
|
||||||
;=================================
|
;=================================
|
||||||
; handle channel B volume
|
; handle channel B volume
|
||||||
chanb:
|
chanb:
|
||||||
lda FRAME
|
; lda FRAME
|
||||||
and #$7
|
; and #$7
|
||||||
|
tya
|
||||||
bne bamps_skip
|
bne bamps_skip
|
||||||
|
|
||||||
lda BAMP_COUNTDOWN
|
lda BAMP_COUNTDOWN
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user