Библиотека Компэла. Генерация и распознование dtmf-сигналов continue clr maxhi clr maxlo clr

Глава 12.

Генерация и распознование DTMF-сигналов

CONTINUE
clr	MAXHI
clr	MAXLO
clr	COUNT
FILTER
mov	&ADAT,IN	; Отсчёт? r9/IN
sub	#Olfffh,IN	; сформировать значе-
		; ние со знаком
rla	IN	; *2
rla	IN	; *2
.if	FILTER 1
FILTER 1633
mov	T2 1633,rl2	; Nll=T2/4-Tl
mov	rl2,rl3
rra	rl2
rra	rl2
sub	Tl 1633,rl2	; N11 в г12
mov	rl2,rl4	; Nll*2*alpha-T2
rra	rl2
rra	rl2
rra	rl2
mov	rl2,rll
rra	rl2
add	rl2,rll
sub	rl3,rll	; N15 в rll
mov	rll,T2 1633	; N3=N15/4-Nll
rra	rll
rra	rll
sub	r!4,rll	; N3 в rll

Общая согласующая цепь с потерями требуется N3 в rll l/nl=32, gamma_2=-l+l/32) nl*gamma_l=l/32

mov	rii, ru
mov	IN,rl2
rra	rl2
rra	rl2
rra	rl2
rra	rl2
rra	rl2
sub	rll,rl2
rra	rll
rra	rll
rra	rll

сохранить N3 в г13

Tl=N3*gamma_2+nl*gamma_l*IN

nl*gamma 1*IN in rl2

Библиотека Компэла

f& Texas iNSiraJMENTS			IV. Примеры конкретных применений
rra	rll
rra	rll
add	rll,rl2;	Tl	в г12
mov	rl2,Tl 1633	; сохранить Т1 в ОЗУ
rla	rl3	N3	* 32
rla	rl3
rla	rl3
rla	rl3
rla	rl3
rla	rl2;	Tl	* 32
rla	rl2
rla	rl2
rla	rl2
rla	rl2
sub	IN,rl2
add	rl2,OUT;	В	г13 выходное значение
cmp	OUT,MAXHI		; Сравнить выходное
			; значение с максиму-
			; мом
jge	SWAP1
mov	OUT,MAXHI		; замена максимума
mov	#03,COL		; столбец = 3

SWAP1; ***************************^

; окончание согласующей цепи

FILTER_1633_END.endif

FILTER 2

T2_1477,rl2 rl2,rl3 rl2 Tl_1477,rl2 rl2,rl4 rl2 rl2 rl2,rll rl2 rl2 rl2,rll rl2 rl2,rll rl3,rll

Nll=T/2-Tl

.if FILTER_1477

N11 в rl2 N15=Nll*2*alpha-T2

N15 в rll

mov mov rra sub mov rra rra mov rra rra add rra add sub

Библиотека Компэла

Глава 12.