| 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