mirror of
https://github.com/bobbimanners/Applecorn.git
synced 2025-01-05 19:29:37 +00:00
Bug fix to Mockingboard amplitude. Turn off noise!
This commit is contained in:
parent
77b47d5386
commit
698f03ecdb
@ -88,6 +88,9 @@ MOCKSILENT LDX #13 ; Clear all 14 AY-3 regs
|
|||||||
:L0 JSR MOCKWRT
|
:L0 JSR MOCKWRT
|
||||||
DEX
|
DEX
|
||||||
BPL :L0
|
BPL :L0
|
||||||
|
LDA #$38 ; Turn off noise
|
||||||
|
LDX #07
|
||||||
|
JSR MOCKWRT
|
||||||
RTS
|
RTS
|
||||||
|
|
||||||
|
|
||||||
@ -133,8 +136,9 @@ MOCKAMP PHX
|
|||||||
CLC
|
CLC
|
||||||
ADC #7
|
ADC #7
|
||||||
TAX
|
TAX
|
||||||
TYA ; Amplitude 0..127
|
TYA ; Amplitude 0..255
|
||||||
LSR ; Divide by 8
|
LSR ; Divide by 16
|
||||||
|
LSR
|
||||||
LSR
|
LSR
|
||||||
LSR ; Now 0..15
|
LSR ; Now 0..15
|
||||||
JSR MOCKWRT ; Write value to AY-3 register
|
JSR MOCKWRT ; Write value to AY-3 register
|
||||||
|
Loading…
Reference in New Issue
Block a user