remove dangling spaces
This commit is contained in:
@@ -5,7 +5,6 @@
|
|||||||
; atari lib
|
; atari lib
|
||||||
;
|
;
|
||||||
.include "atari.inc"
|
.include "atari.inc"
|
||||||
|
|
||||||
.export _sound
|
.export _sound
|
||||||
.import popa
|
.import popa
|
||||||
; play sound, arguments: voice, pitch, distortion, volume. same as BASIC
|
; play sound, arguments: voice, pitch, distortion, volume. same as BASIC
|
||||||
@@ -16,17 +15,14 @@
|
|||||||
jsr popa ;get pitch
|
jsr popa ;get pitch
|
||||||
pha ;save in stack
|
pha ;save in stack
|
||||||
jsr popa ;get voice
|
jsr popa ;get voice
|
||||||
|
|
||||||
asl a ;adjust voice *2 for offset in x
|
asl a ;adjust voice *2 for offset in x
|
||||||
tax
|
tax
|
||||||
pla ;get pitch from stack
|
pla ;get pitch from stack
|
||||||
sta AUDF1,x ; store pitch
|
sta AUDF1,x ; store pitch
|
||||||
|
|
||||||
lda #0
|
lda #0
|
||||||
sta AUDCTL
|
sta AUDCTL
|
||||||
lda #3
|
lda #3
|
||||||
stx SKCTL ;init sound
|
stx SKCTL ;init sound
|
||||||
|
|
||||||
lda STORE1 ;get distortion
|
lda STORE1 ;get distortion
|
||||||
asl a ;ignore the high nibble
|
asl a ;ignore the high nibble
|
||||||
asl a
|
asl a
|
||||||
|
|||||||
Reference in New Issue
Block a user