diff --git a/morse.equ.s b/morse.equ.s new file mode 100644 index 0000000..a1721ac --- /dev/null +++ b/morse.equ.s @@ -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 + + diff --git a/morse16.s b/morse16.s index f3d9608..353fc65 100644 --- a/morse16.s +++ b/morse16.s @@ -576,6 +576,15 @@ audio_irq * stz _index stz _active 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 :space mx %00 @@ -733,6 +742,10 @@ init_audio * 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 lda #$00 sta >SoundAddr @@ -743,11 +756,11 @@ init_audio sta >SoundData sta >SoundData - lda #<5103 + lda #SoundData - lda #<1701 + lda #SoundData - lda #<729 + lda #SoundData * freq high @@ -760,11 +773,11 @@ init_audio sta >SoundData sta >SoundData - lda #>5103 + lda #>t1_freq sta >SoundData - lda #>1701 + lda #>t3_freq sta >SoundData - lda #>729 + lda #>t7_freq sta >SoundData