This commit is contained in:
parent
379acf2f8c
commit
665bb39925
|
@ -0,0 +1,10 @@
|
||||||
|
SoundCtrl equ $e0c03c
|
||||||
|
SoundData equ $e0c03d
|
||||||
|
SoundAddr equ $e0c03e ; and $3f
|
||||||
|
|
||||||
|
*refIsPointer equ $0000
|
||||||
|
*refIsHandle equ $0001
|
||||||
|
*refIsResource equ $0002
|
||||||
|
*refIsNewHandle equ $0003
|
||||||
|
|
||||||
|
|
25
morse16.s
25
morse16.s
|
@ -576,6 +576,15 @@ audio_irq
|
||||||
* stz _index
|
* stz _index
|
||||||
stz _active
|
stz _active
|
||||||
inc _finished
|
inc _finished
|
||||||
|
|
||||||
|
sep $30
|
||||||
|
* disable the silent generators.
|
||||||
|
lda #$a0+noise_left
|
||||||
|
sta >SoundAddr
|
||||||
|
lda ##%0000_0_00_1 ; stopped
|
||||||
|
sta >SoundData
|
||||||
|
sta >SoundData
|
||||||
|
|
||||||
bra :exit
|
bra :exit
|
||||||
|
|
||||||
:space mx %00
|
:space mx %00
|
||||||
|
@ -733,6 +742,10 @@ init_audio
|
||||||
|
|
||||||
* osc 5/6/7 are 256 bytes, running at 1 / 3 / 6 time units
|
* osc 5/6/7 are 256 bytes, running at 1 / 3 / 6 time units
|
||||||
|
|
||||||
|
t1_freq = 5103
|
||||||
|
t3_freq = 1701
|
||||||
|
t7_freq = 729
|
||||||
|
|
||||||
* frequency low registers
|
* frequency low registers
|
||||||
lda #$00
|
lda #$00
|
||||||
sta >SoundAddr
|
sta >SoundAddr
|
||||||
|
@ -743,11 +756,11 @@ init_audio
|
||||||
sta >SoundData
|
sta >SoundData
|
||||||
sta >SoundData
|
sta >SoundData
|
||||||
|
|
||||||
lda #<5103
|
lda #<t1_freq
|
||||||
sta >SoundData
|
sta >SoundData
|
||||||
lda #<1701
|
lda #<t3_freq
|
||||||
sta >SoundData
|
sta >SoundData
|
||||||
lda #<729
|
lda #<t7_freq
|
||||||
sta >SoundData
|
sta >SoundData
|
||||||
|
|
||||||
* freq high
|
* freq high
|
||||||
|
@ -760,11 +773,11 @@ init_audio
|
||||||
sta >SoundData
|
sta >SoundData
|
||||||
sta >SoundData
|
sta >SoundData
|
||||||
|
|
||||||
lda #>5103
|
lda #>t1_freq
|
||||||
sta >SoundData
|
sta >SoundData
|
||||||
lda #>1701
|
lda #>t3_freq
|
||||||
sta >SoundData
|
sta >SoundData
|
||||||
lda #>729
|
lda #>t7_freq
|
||||||
sta >SoundData
|
sta >SoundData
|
||||||
|
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue