;+ ; Contains the etat_hfr procedure ; ; :Author: ; Philippe Zarka ; ; :History: ; 2004/12/03: Created ; ; 2004/12/03: Last Edit ;- ; ;+ ; decodage de l'entete HFR (20 bytes) et remplissage des common KRONOS01 ; et KRONOS02 utilises par EXTRAIT_HFR.pro ; ; :Params: ; enteteHFR: in, required, type=bytarr ; A parameter named enteteHFR ; mode: in, required, type=byte ; mode = 0 (analyse) ou 1-3 (autre) ;- Pro ETAT_HFR, enteteHFR, mode common KRONOS01, selB, repAll, ExB, EzB, nEB common KRONOS02, repB,nFilB,StartB,nStepB,stepB,dfB,autoB,crossB,integB intABC = [125, 250, 500, 1000] intHf = [10, 20, 40, 80] filtresABC = [8, 16, 32, 32] filtresHF = [1,2,4,8] selB = (enteteHFR(4) and 2^indgen(5)) ne 0 repAll = enteteHFR(8) repB = enteteHFR([5,5,5,6,7]) integB = [intABC(enteteHFR([9,9,9])/64), intHF(enteteHFR([10,11])/64)] integB(3) = integB(3)*2 nFilB = [filtresABC(enteteHFR([9,9,9]) and '03'x), $ filtresHF(enteteHFR([10,11]) and '03'x)] StartB = [0, 0, 0, enteteHFR(12), $ enteteHFR(15) + 256L*((enteteHFR(18) and '80'x) ne 0)] nStepB = [1, 1, 1, enteteHFR(13), $ enteteHFR(16) + 256L*((enteteHFR(18) and '40'x) ne 0)] StepB = [0, 0, 0, enteteHFR([14,17])] crossB = (enteteHFR(18) and ['20'x,'20'x,'20'x,'10'x,'08'x]) ne 0 autoB = (enteteHFR(18) and ['04'x,'04'x,'04'x,'02'x,'01'x]) ne 0 dfB = (enteteHFR([9,9,9,10,11]) and '20'x) ne 0 ExB=byte(ishft(entetehfr([9,9,9,10,11]) and '0c'x,-2)) EzB=byte(ishft(enteteHFR([9,9,9,10,11]) and '10'x,-4)) nEB=(ExB ne 0)+EzB mode=ishft(enteteHFR(2) and '60'x,-5) return end