| f& Texas iNSiraJMENTS | IV. Примеры конкретных применений | |
| ; окончание согласующей цепи | ||
| FILTER 1477 ENDE | ||
| .endif | ||
| .if | FILTER 3 | |
| FILTER 1336 | ||
| mov | T2 1336,rl2 | ; N11=T2-T1 |
| mov | rl2,rl3 | |
| sub | Tl 1336,rl2 | ; N11 в г12 |
| mov | rl2,rl4 | ; N15=Nll*alpha-T2 |
| rra | rl2 | |
| rra | rl2 | |
| mov | rl2,rll | |
| rra | rl2 | |
| rra | rl2 | |
| add | rl2,rll | |
| rra | rl2 | |
| rra | rl2 | |
| add | rl2,rll | |
| sub | rl3,rll | ; N15 в rll |
| mov | rll,T2 1336 | |
| sub | r!4,rll | ; N3=N15-N11 в rll |
; Общая согласующая цепь с потерями
; требуется N3 в rll
; l/nl=32, gamma_2=-l+l/32)
; nl*gamma_l=l/32
| nl*gamma 1*IN в rl2 |
| Tl в rl2 : сохранить Tl в ОЗУ 32 |
mov rll,rl3 ; сохранить N3 в г13 mov IN,rl2 ; Tl=N3*gamma_2+nl*gamma_l*IN rra rl2 rra rl2 rra rl2 rra rl2 rra rl2 sub rll,rl2 rra rll rra rll rra rll rra rll rra rll add rll,rl2 mov rl2,Tl_1336 rla rl3 ; N3 rla rl3 rla rl3 rla rl3