mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-12-26 11:30:12 +00:00
198 lines
3.7 KiB
ArmAsm
198 lines
3.7 KiB
ArmAsm
; Based on BTC.SYSTEM by Oliver Schmidt
|
|
|
|
spkr = $C030
|
|
btc_lo = $FE
|
|
btc_hi = $FF
|
|
|
|
|
|
;****************************************************************
|
|
;* Audio playback *
|
|
;****************************************************************
|
|
playaud:
|
|
lda #>audio
|
|
STA btc_hi
|
|
lda #<audio
|
|
STA btc_lo
|
|
LDX #$f ; play $0f pages of data
|
|
ldy #0
|
|
|
|
; loop here as long as BITs are [F]alse (aka 0)
|
|
F_NX: NOP ; 2 2
|
|
NOP ; 2 2
|
|
NOP ; 2 2
|
|
BIT $00 ; 3 3
|
|
F_RD: LDA (btc_lo),y ; 5 5 5
|
|
ASL ; 2 2 2
|
|
BCS T_1_SW ; 2/3 2
|
|
NOP ; 2 2
|
|
NOP ; 2 2
|
|
NOP ; 2 2
|
|
NOP ; 2 2
|
|
F_1: JSR delay ; 6 (+13) 19
|
|
ASL ; 2 2 = 31
|
|
BCS T_2_SW ; 2/3
|
|
NOP ; 2
|
|
NOP ; 2
|
|
NOP ; 2
|
|
NOP ; 2
|
|
F_2: JSR delay ; 6 (+13)
|
|
ASL ; 2
|
|
BCS T_3_SW ; 2/3
|
|
NOP ; 2
|
|
NOP ; 2
|
|
NOP ; 2
|
|
NOP ; 2
|
|
F_3: JSR delay ; 6 (+13)
|
|
ASL ; 2
|
|
BCS T_4_SW ; 2/3
|
|
NOP ; 2
|
|
NOP ; 2
|
|
NOP ; 2
|
|
NOP ; 2
|
|
F_4: JSR delay ; 6 (+13)
|
|
ASL ; 2
|
|
BCS T_5_SW ; 2/3
|
|
NOP ; 2
|
|
NOP ; 2
|
|
NOP ; 2
|
|
NOP ; 2
|
|
F_5: JSR delay ; 6 (+13)
|
|
ASL ; 2
|
|
BCS T_6_SW ; 2/3
|
|
NOP ; 2
|
|
NOP ; 2
|
|
NOP ; 2
|
|
NOP ; 2
|
|
F_6: JSR delay ; 6 (+13)
|
|
ASL ; 2
|
|
BCS T_7_SW ; 2/3
|
|
NOP ; 2
|
|
NOP ; 2
|
|
NOP ; 2
|
|
NOP ; 2
|
|
F_7: JSR delay ; 6 (+13)
|
|
ASL ; 2
|
|
BCS T_8_SW ; 2/3 2 2
|
|
NOP ; 2 2 2
|
|
NOP ; 2 2 2
|
|
NOP ; 2 2 2
|
|
NOP ; 2 2 2
|
|
F_8: INY ; 2 2 2
|
|
BNE F_NX ; 2/3 3 = 31 2
|
|
INC btc_hi ; 5 5
|
|
DEX ; 2 2
|
|
BNE F_RD ; 2/3 3 = 31
|
|
RTS
|
|
; click speaker on transitions
|
|
T_1_SW: STA spkr ; 4 [SW]itch to [T]rue on BIT [1]
|
|
BCS T_1 ; 3 (always)
|
|
T_2_SW: STA spkr ; 4 [SW]itch to [T]rue on BIT [2]
|
|
BCS T_2 ; 3 (always)
|
|
T_3_SW: STA spkr ; 4 [SW]itch to [T]rue on BIT [3]
|
|
BCS T_3 ; 3 (always)
|
|
T_4_SW: STA spkr ; 4 [SW]itch to [T]rue on BIT [4]
|
|
BCS T_4 ; 3 (always)
|
|
T_5_SW: STA spkr ; 4 [SW]itch to [T]rue on BIT [5]
|
|
BCS T_5 ; 3 (always)
|
|
T_6_SW: STA spkr ; 4 [SW]itch to [T]rue on BIT [6]
|
|
BCS T_6 ; 3 (always)
|
|
T_7_SW: STA spkr ; 4 [SW]itch to [T]rue on BIT [7]
|
|
BCS T_7 ; 3 (always)
|
|
T_8_SW: STA spkr ; 4 [SW]itch to [T]rue on BIT [8]
|
|
BCS T_8 ; 3 (always)
|
|
|
|
F_1_SW: STA spkr ; 4 [SW]itch to [F]alse on BIT [1]
|
|
BCC F_1 ; 3 (always)
|
|
F_2_SW: STA spkr ; 4 [SW]itch to [F]alse on BIT [2]
|
|
BCC F_2 ; 3 (always)
|
|
F_3_SW: STA spkr ; 4 [SW]itch to [F]alse on BIT [3]
|
|
BCC F_3 ; 3 (always)
|
|
F_4_SW: STA spkr ; 4 [SW]itch to [F]alse on BIT [4]
|
|
BCC F_4 ; 3 (always)
|
|
F_5_SW: STA spkr ; 4 [SW]itch to [F]alse on BIT [5]
|
|
BCC F_5 ; 3 (always)
|
|
F_6_SW: STA spkr ; 4 [SW]itch to [F]alse on BIT [6]
|
|
BCC F_6 ; 3 (always)
|
|
F_7_SW: STA spkr ; 4 [SW]itch to [F]alse on BIT [7]
|
|
BCC F_7 ; 3 (always)
|
|
F_8_SW: STA spkr ; 4 [SW]itch to [F]alse on BIT [8]
|
|
BCC F_8 ; 3 (always)
|
|
|
|
; loop here as long as BITs are [T]rue (aka 1)
|
|
T_NX: NOP ; 2
|
|
NOP ; 2
|
|
NOP ; 2
|
|
BIT $00 ; 3
|
|
T_RD: LDA (btc_lo),y ; 5
|
|
ASL ; 2
|
|
BCC F_1_SW ; 2/3
|
|
NOP ; 2
|
|
NOP ; 2
|
|
NOP ; 2
|
|
NOP ; 2
|
|
T_1: JSR delay ; 6 (+13)
|
|
ASL ; 2
|
|
BCC F_2_SW ; 2/3
|
|
NOP ; 2
|
|
NOP ; 2
|
|
NOP ; 2
|
|
NOP ; 2
|
|
T_2: JSR delay ; 6 (+13)
|
|
ASL ; 2
|
|
BCC F_3_SW ; 2/3
|
|
NOP ; 2
|
|
NOP ; 2
|
|
NOP ; 2
|
|
NOP ; 2
|
|
T_3: JSR delay ; 6 (+13)
|
|
ASL ; 2
|
|
BCC F_4_SW ; 2/3
|
|
NOP ; 2
|
|
NOP ; 2
|
|
NOP ; 2
|
|
NOP ; 2
|
|
T_4: JSR delay ; 6 (+13)
|
|
ASL ; 2
|
|
BCC F_5_SW ; 2/3
|
|
NOP ; 2
|
|
NOP ; 2
|
|
NOP ; 2
|
|
NOP ; 2
|
|
T_5: JSR delay ; 6 (+13)
|
|
ASL ; 2
|
|
BCC F_6_SW ; 2/3
|
|
NOP ; 2
|
|
NOP ; 2
|
|
NOP ; 2
|
|
NOP ; 2
|
|
T_6: JSR delay ; 6 (+13)
|
|
ASL ; 2
|
|
BCC F_7_SW ; 2/3
|
|
NOP ; 2
|
|
NOP ; 2
|
|
NOP ; 2
|
|
NOP ; 2
|
|
T_7: JSR delay ; 6 (+13)
|
|
ASL ; 2
|
|
BCC F_8_SW ; 2/3
|
|
NOP ; 2
|
|
NOP ; 2
|
|
NOP ; 2
|
|
NOP ; 2
|
|
T_8: INY ; 2
|
|
BNE T_NX ; 2/3
|
|
INC btc_hi ; 5
|
|
DEX ; 2
|
|
BNE T_RD ; 2/3
|
|
RTS
|
|
|
|
delay:
|
|
nop ; 2
|
|
nop ; 2
|
|
BIT $00 ; 3
|
|
RTS ; 6 = 13
|
|
|
|
|
|
audio:
|
|
.incbin "ootw_audio/mytuba.btc"
|