Apple-2gs-SW/morse-gs
1
0
Fork 0
mirror of https://github.com/ksherlock/morse-gs.git synced 2025-03-13 10:30:40 +00:00
Code Issues Projects Releases Wiki Activity

.

Browse Source
This commit is contained in:
Kelvin Sherlock 2020-07-23 20:50:08 -04:00
parent 379acf2f8c
commit 665bb39925
2 changed files with 29 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
morse.equ.s Normal file
View File

@ -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
View File

@ -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 #<t1_freq
sta >SoundData
lda #<1701
lda #<t3_freq
sta >SoundData
lda #<729
lda #<t7_freq
sta >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