|
Packit |
427e91 |
; stolen from alsa-driver
|
|
Packit |
427e91 |
|
|
Packit |
427e91 |
name "Tone - Bass, Treble"
|
|
Packit |
427e91 |
include "emu_constants.asm"
|
|
Packit |
427e91 |
|
|
Packit |
427e91 |
inl io
|
|
Packit |
427e91 |
toutl equ inl
|
|
Packit |
427e91 |
inr io
|
|
Packit |
427e91 |
toutr equ inr
|
|
Packit |
427e91 |
inrl io
|
|
Packit |
427e91 |
toutrl equ inrl
|
|
Packit |
427e91 |
inrr io
|
|
Packit |
427e91 |
toutrr equ inrr
|
|
Packit |
427e91 |
inc io
|
|
Packit |
427e91 |
toutc equ inc
|
|
Packit |
427e91 |
inlfe io
|
|
Packit |
427e91 |
toutlfe equ inlfe
|
|
Packit |
427e91 |
|
|
Packit |
427e91 |
; Tone Control - Bass
|
|
Packit |
427e91 |
bass0 control 20, 0, 40
|
|
Packit |
427e91 |
bass1 control 20, 0, 40
|
|
Packit |
427e91 |
bass2 control 20, 0, 40
|
|
Packit |
427e91 |
bass3 control 20, 0, 40
|
|
Packit |
427e91 |
bass4 control 20, 0, 40
|
|
Packit |
427e91 |
|
|
Packit |
427e91 |
; Tone Control - Treble
|
|
Packit |
427e91 |
treble0 control 20, 0, 40
|
|
Packit |
427e91 |
treble1 control 20, 0, 40
|
|
Packit |
427e91 |
treble2 control 20, 0, 40
|
|
Packit |
427e91 |
treble3 control 20, 0, 40
|
|
Packit |
427e91 |
treble4 control 20, 0, 40
|
|
Packit |
427e91 |
|
|
Packit |
427e91 |
; Tone Control - Switch
|
|
Packit |
427e91 |
toneonoff control 0, 0, 1
|
|
Packit |
427e91 |
|
|
Packit |
427e91 |
; temporary
|
|
Packit |
427e91 |
templb sta 0, 0, 0, 0, 0
|
|
Packit |
427e91 |
templt sta 0, 0, 0, 0, 0
|
|
Packit |
427e91 |
temprb sta 0, 0, 0, 0, 0
|
|
Packit |
427e91 |
temprt sta 0, 0, 0, 0, 0
|
|
Packit |
427e91 |
temprlb sta 0, 0, 0, 0, 0
|
|
Packit |
427e91 |
temprlt sta 0, 0, 0, 0, 0
|
|
Packit |
427e91 |
temprrb sta 0, 0, 0, 0, 0
|
|
Packit |
427e91 |
temprrt sta 0, 0, 0, 0, 0
|
|
Packit |
427e91 |
tempcb sta 0, 0, 0, 0, 0
|
|
Packit |
427e91 |
tempct sta 0, 0, 0, 0, 0
|
|
Packit |
427e91 |
|
|
Packit |
427e91 |
outl dyn
|
|
Packit |
427e91 |
outr dyn
|
|
Packit |
427e91 |
outrl dyn
|
|
Packit |
427e91 |
outrr dyn
|
|
Packit |
427e91 |
outc dyn
|
|
Packit |
427e91 |
outlfe dyn
|
|
Packit |
427e91 |
|
|
Packit |
427e91 |
tmp sta 0, 0
|
|
Packit |
427e91 |
|
|
Packit |
427e91 |
BT macro tempb, tempt, chn
|
|
Packit |
427e91 |
macs C_0, C_0, chn, bass0
|
|
Packit |
427e91 |
macmv tempb+1, tempb, tempb+1, bass2
|
|
Packit |
427e91 |
macmv tempb, chn, tempb, bass1
|
|
Packit |
427e91 |
macmv tempb+3, tempb+2, tempb+3, bass4
|
|
Packit |
427e91 |
macs tempb+2, ACCUM, tempb+2, bass3
|
|
Packit |
427e91 |
acc3 tempb+2, tempb+2, tempb+2, C_0
|
|
Packit |
427e91 |
|
|
Packit |
427e91 |
macs C_0, C_0, tempb+2, treble0
|
|
Packit |
427e91 |
macmv tempt+1, tempt, tempt+1, treble2
|
|
Packit |
427e91 |
macmv tempt, tempb+2, tempt, treble1
|
|
Packit |
427e91 |
macmv tempt+3, tempt+2, tempt+3, treble4
|
|
Packit |
427e91 |
macs tempt+2, ACCUM, tempt+2, treble3
|
|
Packit |
427e91 |
macints tempt+2, C_0, tempt+ 2, C_16
|
|
Packit |
427e91 |
|
|
Packit |
427e91 |
acc3 chn, tempt+2, C_0, C_0
|
|
Packit |
427e91 |
endm
|
|
Packit |
427e91 |
|
|
Packit |
427e91 |
SONOFF macro out, in
|
|
Packit |
427e91 |
macints tmp, C_0, out, toneonoff
|
|
Packit |
427e91 |
andxor tmp+1, toneonoff, C_1, C_1
|
|
Packit |
427e91 |
macints tmp+1, C_0, in, tmp+1
|
|
Packit |
427e91 |
acc3 out, tmp, tmp+1, C_0
|
|
Packit |
427e91 |
endm
|
|
Packit |
427e91 |
|
|
Packit |
427e91 |
;Process tone control
|
|
Packit |
427e91 |
macs outl, inl, C_0, C_0
|
|
Packit |
427e91 |
macs outr, inr, C_0, C_0
|
|
Packit |
427e91 |
macs outrl, inrl, C_0, C_0
|
|
Packit |
427e91 |
macs outrr, inrr, C_0, C_0
|
|
Packit |
427e91 |
macs outc, inc, C_0, C_0
|
|
Packit |
427e91 |
macs outlfe, inlfe, C_0, C_0
|
|
Packit |
427e91 |
|
|
Packit |
427e91 |
BT templb, templt, outl
|
|
Packit |
427e91 |
BT temprb, temprt, outr
|
|
Packit |
427e91 |
BT temprlb, temprlt, outrl
|
|
Packit |
427e91 |
BT temprrb, temprrt, outrr
|
|
Packit |
427e91 |
BT tempcb, tempct, outc
|
|
Packit |
427e91 |
|
|
Packit |
427e91 |
SONOFF outl, inl
|
|
Packit |
427e91 |
SONOFF outr, inr
|
|
Packit |
427e91 |
SONOFF outrl, inrl
|
|
Packit |
427e91 |
SONOFF outrr, inrr
|
|
Packit |
427e91 |
SONOFF outc, inc
|
|
Packit |
427e91 |
SONOFF outlfe, inlfe
|
|
Packit |
427e91 |
|
|
Packit |
427e91 |
macs toutl, outl, C_0, C_0
|
|
Packit |
427e91 |
macs toutr, outr, C_0, C_0
|
|
Packit |
427e91 |
macs toutrl, outrl, C_0, C_0
|
|
Packit |
427e91 |
macs toutrr, outrr, C_0, C_0
|
|
Packit |
427e91 |
macs toutc, outc, C_0, C_0
|
|
Packit |
427e91 |
macs toutlfe, outlfe, C_0, C_0
|
|
Packit |
427e91 |
|
|
Packit |
427e91 |
end
|