- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
- 46
- 47
- 48
- 49
- 50
- 51
- 52
- 53
- 54
- 55
- 56
- 57
- 58
- 59
- 60
- 61
- 62
- 63
- 64
- 65
- 66
- 67
- 68
- 69
- 70
- 71
- 72
- 73
- 74
- 75
- 76
- 77
tms часть коррелятора
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
movl XAR6 ,#str_korel ;
movl XAR7 ,#str_f1_faz ;
mov AH ,@@dlin_mass ;
dec AH ;
movb AL ,#0 ;
movl XAR1 ,ACC ;
movz AR2 ,AH ;
mov @@max_num ,AL ;
mov @@start_num ,AR1 ;
subb XAR2 ,#1 ;
mpy ACC ,@@index_f ,#max_f__faz*dln_f__faz
add ACC ,@@start_base ;
addl XAR7 ,ACC ;
movb XAR3 ,#0 ;
movz AR0 ,*+XAR6[AR1%++] ;
mov T ,@@temp_R ;
movl P ,*+XAR7[AR0] ;pl=alp ph=R
mpyu ACC ,T ,PH ;R0
mov @@factor_R ,AH ;
loopi_0: movz AR0 ,*+XAR6[AR1%++] ;
mov T ,#0 ;
movl ACC ,*+XAR7[AR0] ;
sub AL ,PL ;alpa<0
cmp AL ,@@factor_alp ;
movb T ,#1 ,LO
sub AH ,PH ;
abs ACC ;
cmp AH ,@@factor_R ;
movb T ,#0 ,HI
mov AL ,T ;
add @@max_num ,AL ;
banz loopi_0 ,AR2-- ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
movz AR2 ,@@dlin_mass ;
subb XAR2 ,#3 ;
zabul: movz AR0 ,*+XAR6[AR1%++] ;
push AR3:AR2 ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
mov @@start_n ,AR1 ;
movz AR0 ,*+XAR6[AR1%++] ;
mov T ,@@temp_R ;
movl P ,*+XAR7[AR0] ;
mpyu ACC ,T ,PH ;
mov @@factor_R ,AH ;
movb @@max_n ,#0 ,UNC
loopi_1: movz AR0 ,*+XAR6[AR1%++] ;
mov T ,#0 ;
movl ACC ,*+XAR7[AR0] ;
sub AL ,PL ;alpa<0
cmp AL ,@@factor_alp ;
movb T ,#1 ,LO
sub AH ,PH ;
abs ACC ;
cmp AH ,@@factor_R ;
movb T ,#0 ,HI
mov AL ,T ;
add @@max_n ,AL
banz loopi_1 ,AR2--
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
loopi_2: movz AR0 ,*+XAR6[AR1%++] ;
mov T ,#0 ;
movl ACC ,*+XAR7[AR0] ;
sub AL ,PL ;alpa<0
cmp AL ,@@factor_alp ;
movb T ,#1 ,LO
sub AH ,PH ;
abs ACC ;
cmp AH ,@@factor_R ;
movb T ,#0 ,HI
mov AL ,T ;
add @@max_n ,AL ;
banz loopi_2 ,AR3-- ;
pop AR3:AR2 ;