NASA Contractor Report 178350 

DATA ANALYSIS AND SOFTWARE SUPPORT 

FOR THE EARTH RADIATION BUDGET 

EXPERIMENT 

W. Edmonds 

S. Natarajan 

ST Systems Corporation (STX) 

28 Research Drive 

Hampton, VA 23666 

Contract NAS1-17851 

August 1987 

(hASA-Cii-178350) TAIA ANALYSIS AbC SOPTWABE N a 7-2 6 569 

SCPPOBT ECR TEE EERTB RACIAIXC6 EODGET 

EXPEfililEPT (ST SysteEs Cor&.) 41 p Avail: 

1'IIS BC AOS/RF A01 CSCL 09B Unclas 

G3/61 OC87001 

National Aeronautcs and 

Space Adminlstratlon 

Langley Research Center 

Hampton, Virginia 23665-5225 
TABLE OF CONTENTS 

Page 

Abstract. .............................................. iii 

SECTION 2 - THE EARTH RADIATION BUDGET EXPERIMENT...... 2-1 

SECTION 3 - SOFTWARE DEVELOPMENT....................... 3-1 

SECTION 4 - DATA REDUCTION AND ANALYSIS.. .............. 4-1 

APPENDIX A - SOCC...................................... A- 1 

APPENDIX B - SCANCHK................................... B-1 

APPENDIX C - ESMCAL.................................... c-1 

APPENDIX D - SOLCA...................................... D- 1 

i 
Abstract 

Computer programming and data analysis efforts were carried 

out under this contract in support of the Earth Radiation Budget 

Experiment (ERBE) at NASA/Langley. In this final report there 

will be a brief description of ERBE followed by sections 

describing software development and data analysis for both prelaunch and post-launch instrument data. 

ii i 
SECTION 1 - INTRODUCTION 

Computer programming and analysis efforts were carried out 

in support of the Earth Radiation Budget Experiment (ERBE). ERBE 

will be described in section 2 of this final report. Section 3 

will contain descriptions of the programs developed under this 

contract with the procedures needed to run them and sample 

printer and Plotter output. Listings of some of the major 

programs will be included in the appendix. Data reduction and 

analysis efforts will be described in section 4. 

1-1 
SECTION 2 - ERBE 

The Earth Radiation Budget Experiment is a three satellite 

experiment designed to provide global measurement of radiation 

reflected and emitted by the earth. Each satellite (ERBS, NOAA-9 

and NOAA-10) carried into orbit a pair of instruments consisting 

of a scanner and nonscanner. ERBS (Earth Radiation Budget 

Satellite) was launched from Space Shuttle mission 41-G on 

October 5, 1984. ERBS is at an altitude of 610 km and an orbital 

inclination of 57O. 

orbit at 99O and altitude of 812 km by Atlas launch vehicles. 

NOAA-9 and NOAA-10 were placed into polar 

The scanner instruments consist of three narrow field-ofview channels which scan the earth every 4 seconds. The short 

wave channel is designed to measure reflected solar energy 

whereas the long wave channel measures energy emitted in the 

infrared by the earth. The total channel measures both types of 

radiation and serves as a check on the other two channels. Data 

from the scanner instruments can be used to validate data 

acquired by the wide field-of-view nonscanner instruments through 

a process of integration. The scanner also provides a means of 

acquiring bi-directional data on reflected energy which can be 

useful in validating computer models of the process of energy 

reflection by the earth. Inflight calibration of the scanner is 

accomplished in two ways. Internal calibration utilizes the 

stimulus of the SWICS (Short Wave Internal Calibration Source) 

while solar calibration uses the sun's energy viewed through the 

MAM (Mirror Attenuator Mosaic). 

2-1 
The nonscanner instruments consist of four earth viewing 

channels and a solar monitor. Of the four channels, there are 

two medium field-of-view channels and two channels wide fieldsof-view. Each set of two consists of a short wave and a total 

channel. Long wave determinations are made based on the 

difference between the total and short wave readings. The 

nonscanner instruments have inflight calibration capability which 

consists of a solar monitoring channel for solar calibration and 

a SWICS (Short Wave Instrr?rr?ent Calibration Source) which is 

viewed by the four earth channels for internal calibration. 

2-2 
SECTION 3 - SOFTWARE DEVELOPMENT 

Software development under this contract was a continuation 

of efforts begun under a previous contract to support the ERBE 

project. Activities included both the writing of new programs on 

a variety of computer systems and the modification and updating 

of previously written software. Programs were developed to 

assist in the rapid data reduction of data acquired during 

satellite integration and during pre-launch check out at 

Vandenberg for NOM-10. "ERTAB" was developed on the HP-1000 

computer to generate a command echo tabulation which greatly 

assisted in finding data associated with special sequences and 

events such as: internal calibration, solar calibration, azimuth 

and elevation drive checks, heater checks and different scan 

modes (for the scanner instrument only). 

"TICDL" (TIROS Internal Calibration Delta) and "ICDLT" 

(Internal Calibration Delta for ERBS) were developed on the HP1000 to calculate the delta between the space look and internal 

calibration position data for the scanner instruments during 

their 4 levels (0, 1, 2 & 3) of calibration using the SWICS 

(Short Wave Internal Calibration Source). "BBPLT" was written to 

plot the calculated deltas involving scanner internal calibration 

data (see figure 1). 

To facilitate processing of post launch data, several 

programs were written on the CDC computers to convert satellite 

data tapes into a format which could be processed by software 

previously developed on the HP-1000 computers. "NOACNVT" and 

3-1 
I 

u 

J 

cn 

EI 

Q 

E: 

-11 

3 -2 
"PCMCNVT" were programs written on the NOS CDC computers to 

convert TIROS and ERBS data tapes to HP-1000 IITRW" format. 

In addition to the tape conversion programs, other software 

was developed on NOS to process calibration data for scanner and 

nonscanner instruments on a regular basis. Considerable time was 

saved by submitting automatic batch jobs to process satellite 

data tapes as they arrived at NASA/Langley. 

Among the other NOS programs developed were: "SOLCA", 

"ESCAN" , "TSCAN" , "SMCAL" and "ESMCAL" . 

"SOLCA" generates printouts and plots of nonscanner solar 

calibration data (see figure 2). 

"ESCAN" and "TSCAN" extracted data for ERBS and TIROS 

scanner instruments for subsequent plotting by "ESMCAL" and 

"SMCAL" respectively. 

A major software development task under this contract 

concerned the need to monitor the progress of the two sets of 

instruments on the NOAA-9 and NOAA-10 satellites on a real-time 

basis. Software was written to acquire, via dedicated telephone 

line, data from "SOCC" (Satellite Operations Control Center). 

The on-line real-time program ("SOCC") written in TURBO Pascal on 

the IBM-XT, was developed to display, limit check, and archive to 

disk all the ERBE data available during each pass of the NOAA 

satellite (see listing in appendix). Additional software 

("REPLAY") was developed to play back the acquired data for quick 

review. One of the options included in "REPLAY" is the 

capability to save to disk snapshots of the data displayed on the 

CRT. These snapshots are used to generate plots and tabulations 

3-3 
z 

3 

7 

Q3 

03 

m CLa 

x 

u 

w 

n 

II 

W 

0 

P 

a3 

m z3 

7 

E 

E 

a 

u 

W 

n 

a. 

w 

v3 

(D 

a3 

zz 3 

7 

CL 

E 

a 

u 

w 

n 

a. 

w 

VJ 

LI) 

(D 

22 3 

7 

CL 

E 

a 

3. 

03 

cn uW 

n 
of parameters of interest. A program called "SCANCHK" (scancheck) was also developed on the IBM-XT to tabulate scanner 

position data. This program has been very useful in diagnosing 

problems with both NOAA-9 and NOAA-10 scan position data. 

3-5 
~ ~~ ~ 

SECTION 4 - DATA REDUCTION AND ANALYSIS 

Data reduction and analysis support under this contract 

consisted of NOAA-10 pre-launch test support and post-launch data 

analysis support for all three satellites: ERBS, NOAA-9 and 

NOAA-10. 

During pre-launch testing of the ERBE instruments, support 

activities included data tape copying and reformatting and SEPET 

(Spacecraft Electronic Performance and Evaluation Test) data 

analysis. Data acquired from the NOAA-10 spacecraft was written 

to magnetic tape in "TIP" (TIROS Information Processor) format. 

In order to quickly determine the performance of the ERBE 

instruments, it was necessary to convert these data tapes to a 

format compatible with software previously developed on an HP1000 computer. 

After reformatting, data from the SEPET tests was analyzed, 

plotted and tabulated. Internal calibration, solar calibration, 

azimuth and elevation drive checks were evaluated for both 

scanner and nonscanner instruments. For the scanner instrument, 

all five scan modes (nadir, short, normal, mam and stow) were 

examined. For the nonscanner, all three levels of the SWICS 

(Short Wave Internal Calibration Source) output were plotted. 

Command echoes for both instruments were tabulated to verify 

proper commanding and execution of the various test sequences. 

The SEPET test analysis activities were performed numerous times 

at the RCA facility in Hightstown, NJ (RCA was the prime NOAA-10 

satellite contractor) and also at Vandenberg AFB in California. 

4-1 
Post launch analysis support was given for all three 

satellites carrying ERBE instruments (NOM-9, NOM-10 and ERBS). 

Routine data reduction consisted of exaxining internal 

calibration and solar calibration data for scanner and nonscanner 

instruments. When the scanner on ERBS began to have difficulty 

scanning (around May 1985), closer examination of the data was 

necessary. Scan position data and housekeeping data were 

tabulated for considerable periods of time in an effort to 

determine the cause and effects of the scanner problem. 

In carrying out the post launch data analysis, both the NOS 

facility at Langley and the HP-1000 computer were utilized. 

Software developed under this contract was used to convert data 

tapes in "LaRC" format to "TRW" format for processing on the HP1000. This conversion facilitated the use of considerable 

engineering analysis software previously developed on the HP-1000 

(both by STX personnel and TRW personnel) under previous 

contracts. The more routine data analysis was carried out in 

production mode on the NOS CDC computers. 

4-2 
APPENDIX A - SOCC 

Program SOCC inputs ERBE/TIROS data from the ADCCP BUFFER, 

processes and limit checks the data and displays it on a color 

monitor. The program checks the identity of the source of the 

data (which satellite) and saves NOM-9 and NOAA-10 (ERBE) data 

in separate disk files for later review using the REPLAY program. 

A- 1 
Page 1 

Listing of: SOCC.FAS 

1 

-7 

d> 

4 

5 

7 

9 

1 6 

11 

12 

13 

17 

18 

19 

2 6 

22 

23 

24 

25 

26 

27 

28 

L9 

31 

32 

33 

34 

35 

37 

38 

39 

4 0 

41 

43 

44 

45 

46 

47 

48 

49 

5 0 

written by : William L.. Edmonds, STX Corporation 

December 1984 

modified : Summer 198h far NOAA-10 capability. 

Program SOCC inputs ERBE/TIROS data from the ADCCP BUFFER, pracesses 

and limitchecks the data and displays it on a color monitor. The 

program checks the identity of the source of the data (which satellite) 

and saves NOAA-9 arid NOAA-10 1ERBE) data in separate disk files 

for later review using the REPLAY program. 3 

L_A_E(E_L_ REEF ,stop,bottam; 

TYPE ---.....- ABG = STRINGCSCjI 5 

TYFE BYTEBUFF = ARRAY EO. .80(X)I 0_3 BYTE j 

.: used for display memory.. .see var FRAME below> 

integBUFF = _ARRAYLO.. 400(Il _Ol INTEGER : 

BITE = ARRAYCO. .SO1 ,Ol BYTE p 

MinorFrameBuf fs = ArrayC(3. I 1(331 ,of byte p 

dualbuffs = &yayC0..41 _of MinorFrameBuffs : 

MinorFramewords = fk~-_ayEO.. 31 Y QE INTEGER j 

dualwordbuf f s = ArrayCO.. 41 _of MinorFRamewords 

€ USED IN SAVING ERBE DATA TO DISK 3 

ERBREC = ARRAYCO. .Xi 1 _Ol BYTE : 

REGFACtC = RECORD 

ax,bx,cx,dx,bp,di ,si ,ds,es,flags:integer; 

--- END j 

COMBUFF = B_R_R_A_YC(s. .5191 QE BYTE ; 

.:BUFFER FOR ADGCF COMMUNICATIONS3 

f 

smallbufw = arrayE0..31 ~f integer j 

COMEUFFW = ARRAYC0..2591 O_l INTEGER ;.:WORD BUFFER FOR ADCCFI 

GQ!!!SI 

hendiy: arrayECZ.. 151 of char = '0123456789abcdef ' j 

.: used in dec to hex conversion 2. 

ON ----__ STRINGC31 = ' ON' ;.:USED FOR UIGB DATA1 

OFF : STRINGCSI --____ = 'OFF' ;.:USED FOR UIGE UATAI 

NOAA9 : STRINGE1C)l = 'NOAA9.DAT ' ; 

NOAA1C) : STRINGC 101 = 'NOAA10. DAT ' j 

WHITE: INTEGER = 15 j .: color display attribute values 3 

RED: INTEGER -= 1.2 ; 

YELLOW : INTEGER = 14 j 

GREEN : INTEGER = 10 : 

A- 2 
.--, Fage L. 

Listing of: SOCC.FAS 

ci d.L 

c-7 %JL 

53 

54 

55 

56 

57 

58 

59 

6 0 

61 

62 

63 

(f4 

65 

66 

67 

60 

69 

7 0 

71 

72 

74 

75 

76 

77 

78 

79 

81 

82 

83 

04 

85 

06 

87 

88 

89 

9 0 

91 

93 

?4 

9h 

97 

99 

99 

1 (2 1 

msqrcv : byte = 2 j [ ADCCP pirotacol : iiiessage received 3 

xmtrcv : byte = 7 ; .: ADCCP protocol: command to send or receive 1 

maxsec : integer = 10 ; .: ADCCP protocol: time out value 1 

sync : byte = 232 j .: ADCCF' protocol: sync byte value 2. 

bisync : integer = $220 j .: hex address of ADCCP bisync port 2. 

noerr : integer- = 0 ; .: ADCCP code for na error 3 

ptlerr : integer = 1 ; -: ADCCP code for protocol error 3 

cserr : integer = 2 ; I: ADCCP code for checksum error 3 

timerr- : integer = 3 ; .: ADCCF code for time out error 3. 

idclmsg : arrayC0..31 gf byte =E (832,$32,0,80) ; .: idle message # (1) 2. 

idimsg : arrayC0..31 ---- gf byte = ($52,$32,(1),Bc) j .: idle message # 1 3. 

idmsln : integer = 4 j .: idle message length in bytes I 

--- VAR 

ESIFL : ABC ; .C SCANNER PULSE-LOAD BUS INDICATOR = A OR P 2. 

ERBDAT : ERBREC j -C THIS ARRAY HOLDS ERBE DATA TO BE SAVED TO DISK 3 

F9 : FILE 0_3 ERBREC ; i: Disk file used to save ERBE/NOAA-9 data 3 

F10 : EIL_E_ QE ERBREC j .: ERBE/NOAA-10 DATA FILE 2. 

key : integer j .C hold5 value of last key hit on keyboard 3 

state : byte j f ADCCP protocol : communications state 2. 

SCID : BYTE j 

.: SCID SHOULD BE = HEX "D" or "E" for NOAA-9, IIFII or 1ly)II - FOR NOAA-IC) I 

OLDSCID : BYTE ; -C USED TO CHECK FOR CHANGE IN SCID 1 

FORG : stri_ngC21 ; .[ NOAA- I' Y or iC)", (f or- g) ie. "FORG" 3 

id : byte ; .: ADCCF' idle message id: either (3 or 1 2. 

msgid : byte ; .: ADCCP protocol: message id 0 thru 3 1 

elpmin : byte j .: elapsed minutes calculated by INITRCV-- ADCCF' 3. 

elpsec : byte ; .: elapsed seconds calculated by INITRCV 2. 

RECPACK REGF'ACC:: j i register pack used during interrupt processing 

ah,al ,ch,cl ,dh : byte ; .: register names high and low 2. 

TIME : ARRAYC0..53 GE BYTE j .: holds major frame time ZULU 1 

MN : INTEGER ; -: minor frame # within buffer: (3 to 4 1 

status,count: integer : 

1 inenum,charnum: integer j .: used by DUMFSCRN 1 

MinorFrameNUM : integer ; .: ERBE minorframe #: (1) to 519 2. 

MajorFrameNUM : integer j .: ERBE major frame # 1 

Digb : byte; .: DIGITAL "B" byte from NOAA data stream 2. 

scrnmode: arrayCO.. 153 o_f byte j 

.C holds display parameters for CONOGRAFHICS 3 

SDIGA : RRRAYCO. .77 _OF INTEGER j 

.C scanner digital "CS" data from 1 NOAA minor frame 3 

NDIGA: INTEGER j non-scanner digital "A" data for 1 minorframe 3 

ANAL-OG : byte j .f analog byte +rom 1 NOAA minor frame 3 

RANALOG : REAL j 

.: analog converted to real decimal or non-integer value 2. 

A- 3 
Page 7 

Listing of: SOCC.PAS 

1 (:I2 

1 03 

105 

1 06 

1 oa 

1 (:)9 

1 1 (3 

111 

112 

113 

114 

115 

116 

117 

118 

119 

1 20 

121 

122 

123 

128 

1 29 

1 30 

131 

132 

133 

134 

135 

136 

1.37 

138 

139 

1 4 0 

141 

142 

143 

144 

146 

1 50 

:L 5 1 

152 

LENE ; INTEGER a 

.: length in bytes of ADCCF message received: full = 520 2. 

RCVBlJF : COMBUFF ABSOLU'TE 88F80 : 20000 : 

.: absolute addr of receive buffer 1 

RCVBUFW : COMEUFFW &U3S_O_JU_LE_ $8F80: B(3004 ; 

msgbuf : smal 1 buf w a_tr_s_a_l~t_e_ 28FE30: BO(:)(:)(:) 

XMTBUF : COMBUFF _AE(SOLUTE 88F80: BC)4(:)(:) ; 

Mi norFrame : dual buffs absolute -------- 87f80 : $0(:)04 j .: 9800: 0004 5 2. 

MinorFrameW : dual wordbuf fs ab501 gt_e_ 87f 80 : 80(3:)4 ; .E 9800: (5004 ; 1 

MINFW : COMBUFFW ABSOLUTE 87f 80 : 80004 ; .: 98(f0: OO(34 j 3 

BFRAME : BY TEBUFF ABSOLUTE 8B8130: 200CtO j 

txtfile : strinqC101 ; 

S0RC:ABC ; .:TEXT STRING USED FOR CONOGRAPHICS DISPLAY3 

ATT, XY: INTEGER; I,K, J: INTEGER; 

SCRNINT: ARRAYCO. I-_-- . 11 O_l INTEGER A_IES_OLUTE $06(:)0: SOO14: 

STORINT : A_F$&V_CO.. 11 QE INTEGER ; 

statpr : byte absolut_e_ 8M)SO: $C)(X)C); 

FRAME: i ntegBUFF _ABSOLUTE %B800: $OOt:)O; 

t,:t : text ; 

.:INTERRUFT VECTOR LOCATION FOR PRINTING1 

YtlB 

SSCH.SLCH,STCH : COUNTS : CHANNEL OUTFUT 1 

SSWCkP,SSWCST : REAL ; .: SWICS AMP OUTPUT % TEMP 2. 

SSOACV,SLDACV,STDACV : REAL ; .C DAC VOLTAGES 1 

SDPBV,SDNBV : REAL j .: POS & NEG DETECTOR BIAS VOLTAGES3 

STRVl,STRV2 : REAL : .: TEMP REF VOLTAGES3 

SSDETT , SLDETT , STDETT : REAL .: DETECTOR TEMPS:. 

SLEFT,STRBT : RE4L j .[ BLACKBODY TEMPS 1 

SSMBT,STMBT : REAL j MAM BAFFLE TEMPS 2. 

SSMAMT,STMAMT : REAL ; .: MAM TEMPS 1 

SCMDE,SSTAT,SCPOS : COUNTS j .: COMMAND ECHO, STATCJS, SCAN FQSITIE!NI 

SAFOSL,SAPOSH: BYTE j .: LOW & HIGH AZIMUTH POSITION BYTES 2. 

SAZP : REAL. j C: AZIMUTH POSITION 3 

SAPOS : COUNTS ; 

TREF : REAL j .C TEMP REAL NUM 3 

_________" PROCEDlJRE S5(580 (_v_ar i :byte) j _E_XEF\I_N_A_L 'CONO. CCIM' : 

.: S508(3 PUTS THE CONOGRAPH I CS SYSTEM I PJ THE DES I RED PICIDE : 

At program start, it puts the screen in 5Cr row,8(l calr-tmn made. 

A- 4 
Li st.i ng of : SOCC. PAS 

155 

1. 56 

1 57 

i58 

1 b6 

161 

162 

163 

165 

1 h7 

168 

1 h9 

1 70 

171 

172 

173 

174 

1 75 

175 

177 

178 

1 €30 

I. €3 1 

182 

183 

1 04 

1 85 

186 

187 

188 

189 

1 95) 

191 

192 

1. 93 

194 

195 

196 

197 

---I PRQCEDURE --- -. I - -. PUTOUT (YWB SORC: ABC; _V_kB FRAME: INTEGER: ATTR: INTEGER) i 

__------ EXTERNAL ' PUTOUT. COM ' ; 

.: PUTOUT places a string and its color 

attributes in the screen memory area 3 

F'U_&CT_gO_N_ PRSTAT: INTEGER; ~~,~~F?N_WI?I1, 'PRSTAT.CUM'; 

.E PRSTAT responds to the shift-PrtSC 1::eys by setting a flag. 

The program will t.hen dump the screen to the printer 

5(3 rows by 80 columns 2. 

FROCEDURE OUTF'UT(V_A_F\' SORC: ABC;; VVAF FRAME: INTEGER: ATTR: INTEGER); 

.: OUTPUT WAS INTENDED TO SOLVE THE PROBLEM OF GARBAGE DIGITS LEFT ON 

THE CONOGRAPHICS SCREEN WHEN A LONG STRING OF NLJMBERS WAS REPLKED 

BY A SHORT STRING. THIS PROBLEM WAS NEVER SOLVED DUE TO LACK OF 

TIME. THE IDEA WAS TO WRITE OUT BLANKS FIRST AND THEN PUT THE 

DESIRED NIJMBER OUT WITki THE PUTOUT ROUTINE ABOVE 3 

--- VAR BLANKS : RBC ; 

----- BEGIN 

.: BLANKS := ' ' ; 10 BLANt:S 2. 

.: PUTOUT (BLANKS, FRAME, WH I TE ; 2. 

PUTOUT (SORC, FRAME, ATTR) j 

--- END; 

function GETKEY : integer ; .:GET VALUE OF KEY STRUCK... 

IF NO KEY THEN ZERO IS RETURNED 2. 

-- begin 

with recpack d_d .:SET UP FOR INTERRUPT 21 HEX WITH AH = 6 

AND DX = FF HEX 2. 

-- begj._n 

ah := 6 ; 

a1 := 0; 

ax := ah qhl 8 + a1 j 

dx := 8ff ; 

EEd : 

intr ($21 ,recpack) j .C DO INTERRUPT 21 2. 

---- with recpack _d_o 

-- begi_n 

a1 := ax arid 8ff j .: GET VALUE OF CHARACTER 3 

--- end j 

GETKEY .:= a1 j .: IF NO KEY WAS HIT, ZERO WILL BE RETURNED> 

--- end j 

2Ct3 fun_gtian CHt:::TIM z boolean j 

A- 5 
c F'aiJe Li 

Listing of: SOCC.FAS 

.: T I MI NG h'lJUT I NE FOR ADLLF' COMMUNI CAT i ENS3 

----- BEG I N 

AH := $22; -C SET UP FOR INTERRUPT 21 HEX WITH AH = 2C HEX> 

---- WITH HECPACK _D_O 

BEG IN 

--- END 9 = 

INTR(221,RECPACK)j 

NrJH_ RECPACK PO_ EXTRACT THE TIME 3 

----- BEGIN 

----- 

AX := AH _SI-& 8 ; 

DH := DX _SliR 8 j 

-- IF ( dh < elpsec 1 2ht-1~ 

-- begin 

CL := CX AND 255 j 

cl := cl -1 ; 

dh := dh +60 ; 

dh P= dh - elpsec ; 

-- if ( dh < maxsec ) then 

e_n_d_ i 

_b_egin t-f, ( cl .:::> elpmin 1 then chktim := true 

e_l_z.e_ chktim := false ; 

--- end 

---- else chktim := true ; 

--- END; 

--- END j 

PROCEDURE SENDIDLE : 

.: ADCCP ROUTINE TO SEND APPROPRIATE IDLE MESSAGE 3 

--- VAR I : INTEGER p 

0: --- FOR I := 0 L_O 3 El 

XMTBUFCII := IDOMSGCII p 

1: I := 0 1- 3 QQ 

XMTBUFCII := IDiMSGKJ.1 j 

el5e i:= i ; 

--- END; -C OF CASE 3 

PORTCBISYNCI := XMTRCV 5 

AH := 22C; 

W&JH_ RECF'ACK EO_ 

BEG IN 

END j 

I NTR (82 1 , RECPACK) ; 

W_&J@ RECPACt::: QO_ 

FEG IN 

---- 

----- AX := AH _S_H_L 8 j 

_-_-- 

A- 6 
I-? 

Listing of: SOCC.FAS 

OCC 

CIC 

CIC 

ddd 

L.J~ 

LL37 

258 

259 

26Ct 

262 

263 

264 

265 

266 

267 

269 

270 

27 1 

272 

273 

274 

275 

276 

277 

278 

279 

281 

282 

284 

285 

286 

287 

288 

289 

2 9 (:I 

291 

293 

294 

295 

296 

297 

298 

299 

3 (:I (:) 

3(:) 1 

3 (:I 2 

3 (:I 3 

3 (1) 4 

3 (:) 5 

DH := DX StJB 8 j 

CL := CX AND 255 j 

ELPSEC := DH ; 

ELF'MIN := CL ; 

KED_ 5 

END_; .I OF SENDIDLE 3. 

FUNCTION XYF'OS(ROW,COL:INTEGER ):INTEGER ; 

.: CALCULATE LINEAR ARRAY POSITION 

FOR CONOGRAFHICS DATCl TO BE DISPLAYED AT ROW,COL 3 

EGEI!!! 

XYPOS := ROW * 80 + COL; 

--- END; 

--------- F'ROCEDURE XFER; 

.: ADCCF' COMMUNICATIONS ROUTINE TO TRANSFER DATA FROM THE 

RECEIVE BUFFER TO AN ARRAY FOR PROCESSING 2. 

YQB I : INTEGER : 

BEEIN_ 

LENG D= ~msqBUFC11 AND $3FF) 

str (leng:S,sorc); 

putout (sorc,frameC:.:ypos(46,18) ],green) j 

-I- FOR 1 := (3 519 _DQ 

MINFWCII := RCVBUFWCII ; 

END_; .: OF XFER 2 

EV?QCEDURE INITRCV ; *C INITIATE COMMUNICATIONS WITH ADCCF BOX 2. 

LAEEL_ WAIT, MESSRCV,XIT ; 

B_EG_I!!! 

ID := 0 ; 

WAIT: SENDIDLE ; 

STATUS := PORTCBISYNCI AND MSGRCV j 

IF STATUS .:::::. 0 THEN GOTO MESSRCV 9 

IF NOT(CHKTIM1 THEN GOTO WAIT ; 

STATUS := TEMERR ; 

GOTO XIT ; 

-- 

_- --- 

MESSRCV: IF RCVBUF C 0 1 .::: > 0 /H_"_ 

----- BEGIN 

STATlJS := CSERR ; 

G_O_IO_ XIT 5 

--- END

ELSE 

BEG IN I----- 

MSGID := RCVBUFC31 AND 4 j 

I F MSG I D .: >. 0 THEN 

BEG IN 

-- 

----I 

STFITUS := PTLERR ; 

G_QIO_ XIT j 

--- END j 

A- 7 
Listing of: S0CC.PAS 

E_!!@; 

ID := 1; 

SENDIDLE j 

STATE :== 1; 

STATUS := NOERR : 

~~O_CFiQU_H_~ GETBUF; .t GET A EUFFER OF DATA FROM ADCCP 3 

LABEL GOTMSG , AGI N , DONE, gdmsOC), gdmsg ; 

E_E_G_IN_ 

AGIN: STATUS := PORTCBISYNCI AND MSGRCV ; 

-- IF STATUS .<::. 0 THEN G_O_T_O GOTMSG ; 

-- IF (NQCI(CHKTIM1 ) L_H_E_N _C;CIQ AGIN ; 

SENDIDLE; 

STATUS : = TIMERR5 

---- GOTO DONE: 

-I--- BEG IN 

GOTMSG: &E (RCVBUFEOI <> 0 )THEN 

SENDIDLE; 

STATUS := CSERR: 

---- GOTO DONE ; 

--- END = 7 

MSGID := (RCVBUFC31 CSND 4) 2 j 

-- IF (MSGID = STATE) THEN ggtg gdmsg j 

-- if ( state = 1 1 then g_at_o gdmsO(1) j 

----- BEG IN 

SEND f DLE ; 

STATUS := PTLERR; 

---- GOTO DONE; 

--- END ; 

ID := STATE ; 

SENDIDLE; 

STATUS := NOERR; 

gdmsg: STCITE : = (N_O_I (STATE) AND 1 ) j 

g d m 5 (3:) : XFER: 

DONE: _EE_D; 

FUNCTIQE ONOFF(DIGB,I:BYTE):ABC : .E USED IN DISPLAY OF DIGB DATA 3 

I3_FiG_iLU 

ONOFF := ON ; 

-- IF( (DIGB AND I) ?O THEN ONOFF := OFF ; 

--- END ; 

prgggd_gcg NEWSCREEN : .E SET UP CONOGRAFHICS FOR 80 COL BY 50 ROWS 3 

ErEE2.N 

A- 8 
Listing of: SOCC.PAS 

SCRNMODEEOI := $71; 

SCRNMODEC 11 : = $50; 

SCRNMODEC21 : = $SA; 

SCRNMODE C 3 1 : = 2OF 

SCRNMODEC41 := $18; 

SCRNMODECSI : = 6; 

SCRNMODEC61 := $19; 

SCRNMODEC71 := 81A; 

SCRNMODEC81 := Tm a-' 9 

SCRNMODECSI := 7; 

SCRNMODEC 1C)l : = $20 ; 

SCRNflODEC113 := 820 ; 

SCRNMODEC123 := 0; 

SCRNMODE C 13 1 : = (2 ; 

SCRNMODEC141 := 0; 

SCRNMODEC151 := 0; 

55080 (SCRNMODE C (1) 1 1 j f CCSLL ROUT I NE TO SEND DATA TO CONOGRAPHI CS 2. 

C'OCEDURE OLDSCREEN j .: RESTORES SCREEN TO NORMAL MODE 3 

V_JEz_ LOC : INTEGER 4 

E(E_G_LN_ I==' LOC := 0 3999 D_g 

FRAMECLOCI : = BFOC) : 

SCRNMODEC41 := 21F ; 

SCRNMODEC71 := 8lC ; 

SCRNMUDEC81 := 2; 

SCRNMODECIOI := 6; 

SCRNMODEC111 := 7; 

S508Ct ( SCRNMODE C 0 1 ; 

--I END; 

~XIC_ED_lJJ~ LIMITCHECK(X,RL,YL,YH,RH:REAL;y()E S0RC:ABC;Wq ATT:INTEGER): 

.: LIMITCHECK DETERMINES WHCST COLOR TO DISPLAY A PARAMETER IN AND 

APPENDS TO THE STRING "SORC" THE APPROPRIATE SUFFIX RL,YL,YH,RH 

DEPENDING ON THE RED LOW, YELLOW LOW ETC SITUATION> 

----- BEG IN 

FITT := GREEN ; 

- IF ._ X .:: YL THEN 

----- BEGIN 

-- IF X .< RL THEN ----- BEGIN 

ATT := RED 5 

SORC := SORC + 'RL' ; 

--- END 

ELSE 

----- BEG IN 

A- 9 
Fage 9 

Listing of: SOCC.FAS 

408 ATT := YELLOW ; 

4 0 9 SORC := SORC + 'YL' j 

4 1 0 END_ ; 

412 ELSE 

41 1 --- END 

413 

414 -- IF X >. YH I_HE_N 

415 

417 ----- BEG IN 

418 ATT := RED ; 

419 SORC := SOKC + 'RH' ; 

42(> --- END 

42 1 __I- ELSE 

422 BEG IN 

423 ATT := YELLOW 1 

424 SORC :== SORC + 'YH' j 

426 --- END 

427 ELSE SORC := SQRC + ' 

428 --- ENDj 

BEG IN 

BEG IN 

----- 

----- 

416 -- IF X > RH THEN 

425 --- END; 

'. 

429 _Egg; (OF LIMITCHECK 3 

432 FROCED_U_NJE_ Di spl ayTi me; 

4.33 .: DISFLAY THE TIME VALUE EXTRACTED FROM THE INCOMING DATA 1 

435 

436 

437 

438 

439 

440 

44 1 

442 

443 

444 

445 

446 

447 

448 

--- VARTIMSTRING : ABC ; 

DAYS,HRS,MINS : INTEGER; millisecs,SECS : REAL j 

----- BEG IN 

days := (timeC0l&l 1) +((timeClI and 128)s_h_r 7) j 

millisecs := ((( timeC1land 7)*256.(3 + timeC23)*256.0 + timeC311 

~256.0 +timeC41: 

hrs : = trunc (mi 11 isecs/360(:)000. 0) j 

mins := trunc (millisecs/60000.0) _m_od 60 j 

secs : = trunc ( (mi 11 isecs/l(X)C). 0) -mins*6O. 0-hrs*3600. (1)) j 

str(days:4,sorc)j putout (sorc,frameC~ypos(42,4(~)) ],white) j 

str(hrs:2,sorc) j putout(sorc,frameC:~~ypos~42,45~lywhit~~ j 

str (mins:2,sorc) j 

str(secs:6:3,sorc); putout (snrc,frameCxypos(42,55) 1, white) ; 

putaut(sorc,frameCxypos(42,5(~)) ],white) j 

END_ j 

45 1 l='~gE=_E_D_U_.JE_ D I SFLAYACRO j 

452 .C DISPL-AY THE TEMFLFITE OF ACRONYMS ON THE CONOGRAFHICS SCRE:EN 2. 

454 _V_Ag I: INTEGER; 

456 txtfile := 'sorc.txt' j 

457 assign(txt,txtfile); 

450 reset (txt) j 

455 B_E_G:E_N 

A-10 
Page 1 (5 

Listing of: S0CC.PAS 

459 

460 

46 1 

4L2 

463 

464 

465 

466 

467 

468 

470 

473 

474 

476 

477 

478 

479 

480 

48 1 

482 

483 

484 

485 

48h 

487 

488 

489 

490 

49 1 

492 

493 

494 

495 

496 

4'37 

498 

499 

5 (:I 0 

50 1 

5 (:I 2 

5 0 3 

5 (3 4 

&(-)a 

5 0 6 

5 0 7 

508 

5 1:) 9 

I=-c 

--- END; 

PROCEDURE DIVY(N:INTEGER); 

.: EXTRACTS USABLE DATA FROM TIP MINOR FRAME NI 

ya_c nextmf ,ti 

EEEIN 

.: CALCUL 

pstatus: integer ; nmf,mf: strinqE41 j 

.ATE EXPECTED MINOR FRAME NUMBER AND CHECK THE ACTUAL 

MINOR FRAME NUMBER RECEIVED. IF NOT EBIJAL, DISPLAY DIAENnSTIC 

MESSAGE I 

nextmf := minorframenum +1 ; 

if (nextmf 3 319 then nextmf := (3 j 

MINORFRAMENUM := MINORFRAMEEN,SI + (MINORFRAMECN,4lANU 1!1s_h_L €3; 

-- if (mi norf ramenurn( >nextmf ) then 

-- begi_n 

str(nextmf:4,nmf); 

str (minorframenum:4,mf) 1 

~orc := 'expecting mf ' + nmf + ' but found mf ' + mf j 

p LI t out ( Sor c , f r a me C :.: y p os ( 45 , 2 ) 1 , ye 1 1 ow ) 

--- endj 

.: CHECK SPACE CRAFT ID TO DETERMINE NOAA-?,NOAA-10 OR OTHER 

NOAA SATELLITE. WE ARE INTERESTED ONLY IN NOAA-9 & 10 1 

SCID := MINORFRAMECN,21 AND 15 ; 

1 F 

AND (SCID.< ::4K)E) ) 

.: 

( ( SC 1 D .< :>$(:ID ) AND ( SCI D( >.$(:)F ) AND ( SC I D( >$(:)Q) 

THEN G_O_T_O_ RETURN j 

IF SATELLITE ID IS NEITHER NOAA-F NOR NOAA-G 

3 

NOAA-9 CAN HAVE EITHER A HEX 'OD' OR 'OE' ID 3 

.I NOAA-10 CAN HAVE EITHER A HEX 'OF' OR '00' ID 3 

-- IF (( SCID = H)D) QItSCID = 80E)) THEN FORG := ' 9' 

.: IF THE ID HAS CHANGED SINCE THE LAST FRAME OF DATA, 

CL.EAR THE SCREEN AND START WITH A NEW TEMPLATE 3 

IF (SCID .:> OLDSCID 1 THEN DISPLAYACRO : 

KDSCID := SCID j 

sorc := forg j 

A-11 
Listing of: S0CC.PAS 

I; ERBDAT ARRAY IS USED TO SAVE THE RAW VALUES OF THE ERBE DATA FROM THE 

NOAA 'TIP' DATA STREAM. OUT OF EACH 520 BYTE BUFFER RECEIVED FROM 

THE ADCCP BOX, 5 MINOR FRAMES OF DATA WITH 22 BYTES OF USEFUL INFO 

EACH IS SAVED TO DISK 3 

EREDRTCOI := (MINORFRAMECN,41 AND 1) _OB (SCID _S_H_L 1) ; 

ERBDATClI := MINORFRRMECN,SI ; 

ERBDATC21 := MINORFRAMECN,81; 

ERBDATC31 : = M INORFRAMECN 'i 91 j 

ERBDATC41 : = MINORFRAMECN, 101 ; 

ERBDATCSI := MINORFRAMECN,llI j 

ERBDATC61 := MINORFRAMECN,121 : 

ERBDATC71 := MINORFRAMECN,131 g 

ERBDATC81 := MINORFRAMECN,181 j 

ERBDATC91 := MINORFRAMECN,191 : 

ERBDAT C 10 1 : = M INORFRAME C N ,28 1 j 

ERBDATC113 := MINORFRAMECN,Z91 j 1 

5 1 (3 

51 1 

512 

513 

514 

515 

516 

517 

518 

51? 

520 

52 1 

523 

524 

525 

526 

527 

drl8 

dL9 

5 3 1:) 

d.J 1 

532 

533 

J 210 4 

535 

536 

537 

538 

539 

5 4 0 

54 1 

542 

543 

544 

545 

546 

547 

548 

549 

5 5 0 

Jdl 

552 

553 

444 

555 

556 

557 

dd8 

559 

560 

cc) 

cc) 

e7 

e7 

ce 

cc 

cc 

p ii t out ( 50t- c , + t- atlie C x yp os i 1 8 ,40 i 1 , g t- em j ; 

-- if (minurframenim = (1) i then 

I- begL_n 

sort := ' 

putout (socc ,f rameCxypos (45,2) 17yel 1 awi j 

FOR --- I := 0 10 4 DQ 

TIMECII := MINORFR~MECN91+81 j 

di spl ayti me; 

E_N_a_; 

TIPSTATUS := (MINORFRAMECN,SI AND 96) S_H_-l 5 j 

ATT := RED ; .: DEFAULT ATTRIBUTE COLOR, ONLY ORBIT MODE IS GREEN 3 

CASE TIPSTATUS Q3 

Page 11 

'I 

A-12 1 
Listing of: S0CC.PAS 

56 1 

562 

563 

564 

5555 

566 

567 

568 

565' 

570 

57 1 

572 

573 

574 

575 

576 

577 

578 

58 1 

582 

584 

585 

587 

588 

5 9 (:I 

59 1 

592 

593 

594 

595 

596 

597 

598 

599 

6 

6 (1) 2 

6 (1) 3 

6 (3 4 

606 

607 

6 0 9 

61 1 

608 

ERBDATC121 := MINORFKAMECN,441 ; 

ERBDATC131 := MINORFRAMECN,451 j 

EREDATC141 := MINORFRAMEEN,521 j 

ERBDATC151 := MINORFRAMEEN,531 ; 

ERBDATC161 := MINORFRAMECN,601 

ERBDATCl71 := MINORFRAMECN,hll j 

ERBDATC181 := MINORFRAMECN,721 ; 

EREDATC191 := MINORFRAMECN,737 j 

ERBDATC201 := MINORFRAMECN,861 j 

ERBDATC211 := MINORFRAMECN,871 ; 

IF (FOHG = ' 9') THEN WRITE(F9,ERBDAT) 

ELSE WRITE(F10,ERBDAT) 5 

ssch := sdigaC03 ; 

slch := sdigaCl1 j 

stch := sdigaC21 ; 

scpos := sdigaC31 j 

RETURN: 

---I END* .: OF DIVY 3 

PROCEDURE PROCESSDIGB ; 

.: PROCESS DIGITAL 'B' DATA FOR SCANNER NONSCANNERI 

----- BEG IN 

CASE MINORFRAMENUM MOD --- 32 Ql 

0: BEGIN .: SCAN MOTOR FOWER ON=(:), OFF=1 3 

EXCEPT NOT AVAIL IN MINORFRAME 0 3 

-- IF M I NORFRAMENUM>O THEN 

----- BEG IN 

SORT: := ONOFF(DIGB,l6) 8 

FUTOUT(SORC,FRAMECXYPOS~ll,l4~l,GREEN~~ 

--- END j 

--- END 9 

SOHC := ONOFF(DIGB,64); 

-- IF(S0RC = ON ) THEN ESIPL := ' A' ELSE IE (ESIPL = 

---- THEN ESIPL := OFF j 

PUTOUT(ESIPL,FRAMECXYFOS(l2,54)l,GREEN~j 

3: BEGIN .C SCANNER PULSE LOAD BUS A 3 

t SCANNER BLACKBODY HEATER POWER 3 

SORC := ONOFF(DIGB,32); 

PUTOUT (SORC, FRAMEC XYF'OS ( 15 ,, 54) 1, GREEN} ; 

.C NON- SCANNER BLACKBODY HEATER FOWER 3 

SORC := ONOFF(DIGB,16); 

PUTOUT(SORC,FRAMECXYPOS(33,12~1,GREEN); 

--- END ; 

4: EE_G_IN_ f NON-SCANNER AZIMUTH MOTOR POWER 3 

A' 

A-13 
Page 13 

Listing of: SOCC.PAS 

612 

613 

642 

643 

644 

646 

647 

648 

650 

65 1 

652 

653 

654 

656 

657 

658 

659 

6 6 (I 

hb 1 

662 

SORC := C!NOFF!DIGB,?2B); 

PUTOUT(SORC,FRAMECXYPOS(3~,34)l,GREEN); 

i NON-SCANNER SPARE WOULD GO HERE ALSO 3 

I-- END j 

SORC := ONOFF(DIGB,16) j 

PUTOUT (SORC ,FRAME[ XYPOS ( 14,54) I, GREEN) ; 

8: BEGIN .: SCANNER FED STANDBY HEATER 3 

LNQ; 

10: E(E_G_LN i: NON-SCANNER INSTRUMENT HEATER FWR 3 

SORC := ONOFF(DIGB,64); 

PUTQUT(SORC,FRAMECXYPOS(34,12)1,GREEN); 

END; 

11: BEGIN C NON-SCANNER ELEVATION MOTOR POWER 3 

SORC := ONOFF(DIGE,128): 

PUTOUT(SORC,FRAMECXYPOS(31934)l,GREEN); 

END ; 

13: BEGIN € SCANNER PULSE LOAD BUS B 3 

SORC := ONOFF(DIGE,64); 

-- IF(S0RC = ON ) 

-11.1- THEN ESIF'L := ' E' 

---- ELSE 1I (ESIF'L = ' B' ) 

___- THEN 

ESIPL := OFF ; 

PUTOUT(ESIPL,FRAMECXYPOS(l2,54)l,GREEN); 

--- END j 

17: BEGIN .: SCANNER INSTR POWER > 

SORC := ONOFF(DIGB,l28); 

PUTOUT (SORC, FRAMEC XYPOS ( 10,54) 1, GREEN) j 

.: SCANNER STANDBY HEATER POWER] 

SORC := ONOFF(DIGB,64): 

PUTOUT(SORC,FRAMECXYPOS(16,54) 1 ,GREEN) j 

.: SCANNER AZIMUTH MOTOR POWER> 

SORC := ONOFF(DIGB,32)5 

PUTOUT(SORC,FRAMECXYPOS~l~,34)l,GREEN): 

.: SCANNER SPARE WOULD ALSO GO HERE I 

_--? ENDSORC := ONOFF(DIGE,128); 

PUTOUT (SORC, FRAMEE XYF'OS (32 ,, 54 1 1, GREEN) ; 

18: E;(_E_G_LN_ CNON-SCANNER INSTRUMENT POWER> 

.CNON-SCANNER PULSE LOAD BUS A OR B> 

SORC := ONOFF(DIGB,64) ; 

-- IF( SORC = ' ON' )TH_E_N SORE := ' A '; 

IF (ONOFF(DIGB,32) = ' ON' ) TEN SORC := ' E ' j 

.CNON-SCANNER HEAD STANDBY HEATER 2. 

SORC := ONOFF(DIGE,16); 

FUTOUT (SORC, FRAME c XYPOS (34,54) I, GREEN) ; 

4 

A-14 
Page 14 

Listing of: S0CC.F'AS 

664 

665 

666 

667 

668 

669 

6 7 (1) 

677, 

675 

676 

679 

680 

68 1 

682 

684 

685 

686 

688 

l3 9 0 

69 1 

692 

694 

696 

I597 

698 

7 (:I 0 

7 (1) 2 

703 

7 0 4 

706 

7 C) 8 

709 

7 1 0 

712 

F'CITOUT ( SORC , FRQME i XYFQS (32,12 1 7 , GREEN i ; 

--- END: 

19: BEGIN .C NON-SCANNER PED. STANDBY HEATER] 

SORC : = ONOFF (DIGB, 128) j 

PUTOUT (SORC,FRAMECXYPOS (31,12) 1 ,GREEN) ; 

EN_!? 5

---- else i := i 

-I- END j I OF CASE 3 

---I END - 

.C: THE FOLLOWING FUNCTIONS ARE USED TO EVALUATE ANALOG 

DATA FOR BOTH SCANNER AND NON-SCANNER 2. 

EUNCT I ON EQU2 (COUNTS : I NTEGER 1 : REAL ; 

EEEIN 

EQU2 := COUNTS/409.5 ; 

--- END9 = 

FUNCT1QN.J EQU3 (COUNTS: INTEGER) : HEAL; 

E_E_G_IN 

EQUS : = -l(:). +2. *COUNTS/409.5 i 

--- END; 

FUNCLE_Q_N_ EQU4 (COUNTS: INTEGER) :REAL; 

E(EEIN_ 

EQU4 := -187.97 + 37.59*COUNTS/409.5 5 

--- ENDj 

EUNCTION EQUS (COUNTS: INTEGER) :REAL; 

E(_E_GI!!4 

EQUS : = -2.271*COUNTS/409.5 : 

--I END j 

FUNCTION EQU6(COUNTS:INTEGER):REAL j 

EEG_IN 

EQU6 : = -0.8643*CQUNTS/409.5 j 

FUNCTION EQU7(COUNTS:INTEGER):REAL; 

--- END 5 

A-15 
Page 15 

Li sting of : SOCC. PAS 

714 

715 

716 

717 

719 

72 1 

722 

72.3 

724 

725 

726 

728 

731 

732 

733 

734 

736 

-7 - / .-.8 

739 

7 4 (3 

74 1 

743 

745 

746 

747 

748 

7 5 0 

752 

753 

754 

755 

757 

I d9 

7 6 (:I 

761 

763 

7c 

EUNCTION EG!U9(I:INTEGER):REAL; V_A_e N: REAL; 

EEGm 

N := 11409.5 ; 

EQU9 D ( ( ( ( 0.04597458*N-O. 4715868) *N+lS6O5821) *N-l. 383922) 

*N+5.322107)*N-20.0091; 

ENI) 5 

END ; 

EUNCTION EQUlZEM(1:INTEGER):REAL; 

EEEIN 

EQU 12EM : = ( ( ( (-4.9463396E-23* I + 1,03 18828E- 17) * I+S ,2795369E- 13 ) 

* I +9 ,, 2748 180E-08 1 * I + 1 .05 14898E--(X? ) * I +2 (I765383 j 

FUNCTION EQUl2FM ( I : INTEGER) : REAL ; 

EUN_CLIO_N_ EBU13 ( I : INTEGER 1 : REAL; 

BEGIN_ 

EBU13 := 1/819.1 : 

-.......- END: 

A-16 
Page 

Li st i ng of : SOCC. PAS 

765 

766 

767 

768 

770 

772 

773 

774 

77s 

777 

779 

7 8 (3 

70 1 

782 

783 

784 

785 

787 

788 

7 9 0 

79 1 

792 

793 

794 

795 

796 

797 

7?8 

7?? 

8 (1) (1) 

€30 1 

802 

8(33 

8 0 4 

8 0 5 

8 (:I 6 

6 0 7 

8 (1) 8 

8 (1) 9 

8 1 0 

81 1 

€3 i 2 

813 

814 

815 

Eti_N_FTION ERUiY(N:REAL):REAL; 

ENQ i 

rROCEI)U_R_E_ ProcessAnalog ; 

.: PROCESS ANALOG DATA FOR BOTH SCANNER AND NONSCANNER 3, 

----- BEG IN 

CASE MINQRFRAMENUM M_O_Q 160 O_l 

< OVERALL PATTERN OCCURS TWICE EACH MAJOR FRAME 3 

I; EACH MAJOR FRAME HAS 320 MINOR FRAMES NUMBERED 

(1) TO 3 19 :. 

i25..159: hesin .: do nothing 3 

_e!2d5 

4: 

5: 

13: 

27 : 

28 : 

BEGIN_ -: SCANNER CHAN 0 ELECTRIC SLICE 2 TEMP NOT AVAILABLE 3 

BEGIN NON-SCANNER CHAN (1) ELECTRIC SLICE 2 TEMP 3 

i; 

RANALOG : = EQU15 (ANALOG/S1, 0) j 

STR(HANALOG:5:3,SQRC) j 

OUTPUT(SORC,FRAMECXYPOS(37,71)I,att~; 

L I M I TCHECK RANALOG 'i - lC).C), 0.0,4(:) I 0,5C). 0, SORC , ATT 1 j 

END_ ; E!EG_IN_ .: NON-SCANNER CHAN 1 ELECTRIC SLICE 3 TEMP 1 

RANALOG : = EQU15 (AN/?LOG/Si, 0) j 

STR (RANALOG: 5: 3, SORC) : 

L I M I TCHECK ( RANALOG , - 10 

OUTPUT(SORC,FRAMECXYF'OS(34,7i)I,GREEN); 

,O. (:),40. 0,50. 0, SORC , ATT 1 j 

E!!!!? 5 

EEEI!!! .C SCANNER CHAN 3 POWER CONVERTER TEMP I 

RANALOG : = EQU14 (ANALOG/Sl.O) 

STR (RANALOG: 5: 3 'J SORC) ; 

OUTPUT (SORC, FRAME[: XYPOS (9 71 ) I, ATT) 5 

L I M I TCHEC t< ( RAN ALOG , - 1 (3.6 ,Om 0 ,4 5.0 ,5C) 0 , SORC , AT T 1 5 

E!!!!?; 

E(E_G_I!!! .: NON-SCANNER CHAN 3 POWER CONVERTER TEMP 3 

RANALOG = EQUi4 (ANALOG/Sl a (1)) j 

STR ( RANALOG :: 5 : 3 SORC ) ; 

OlJTPUT (SORC , FRAME[: XYPOS (33 71 I 'I ATT) ; 

L I M I TCHECK (RANALOG , - 10. 0, (1). 0 , 40. 0 'i 56. 0 'I SORC , ATT ) j 

E!!!!?; 

A-17 
Listing of: 

Fage 17 

SOCC. PAS 

816 

€317 

818 

819 

8 2 (1) 

82 1 

822 

823 

824 

825 

826 

827 

828 

829 

890 

83 1. 

832 

833 

€334 

835 

836 

€339 

848 

€34 1 

844 

845 

€346 

€347 

848 

849 

8 5 0 

€35 1 

852 

€353 

854 

€355 

856 

€357 

€358 

€359 

€3 h 0 

86 1 

862 

€363 

864 

865 

8hh 

..". 11.1 Ab : 

43: 

45: 

51: 

i: 

.: 

53 : 

59 : 

60 

07 : 

&K(jLN_ .:SCANNER CHAN 4 FOX BEAM TEMP 3 

RANALOG : = EQU14 (ANALOG/Sl.O) ; 

STR (RANALOG: 5: 3,SORC) j 

LI MITCHECK (RANALOG, (1). (I, 10.0,34.0 %h.C), SORC , ATT) j 

OUTPIJT (SORC, FRAMEC XYPOS (7,71) 1, ATTf j 

E_!?? i 

EE_G_I!!! .: SCANNER CHAN 5 +5 VOLT MONITOR 3 

RANALOG : = 2.O*ANALOG/51.0 ; 

STR(RANALOG:5:3,SORC) : 

L I MITCHECK (RANALOG ,3.5,4.0,6.(:),6.5, SORC , ATT 1 9 

OUTPUT(SORC,FRAMECXYFOS(2,7l)l,ATT); 

E,!!!@; 

EEEL!!! .C NON-SCANNER CHAN 5 +5 VOLT MONITOR 3 

RANALOG : = 2.0*ANALO6/51,0 ; 

STR(RANALOG:S:3,SORC); 

LIMITCHECK (RANALOG, 3.5,4. (:),6.0,6.5, SORC, ATT) j 

OUTPIJT(SORC9FRAMECXYF'OS(39,i2) 1 ,ATTf j 

EME ; BE_G_IN 0: SCANNER CHAN 6 -15 VOLT MONITOR 2. 

RANALOG : = -6. (l*ANALOG/S 1 . 0 ; 

STR (RANALOG: 5: 3, SORC) ; 

NEW LIMITS PUT IN 9/29/86... AFFLIES TO BOTH NOAA9 $4 10 2. 

LIMI TCHECK (RANALOG, -1 6.5, - 16.0, -13.5, - 1 3. (3, SORC ATT) j ***********---------------- 1 ---------------_-__-_____I_____ 

OUTF'LJT (SORC, FRAMEC XYF'OS (5,71) 1, ATT 1 j 

E!!!!? ; EE_Ef!!! NON-SCANNER CHAN 6 -15 VOLT MONITOR 2.5 

RANALOG : = -6.O*ANALOG/S1.0 j 

LIMITCHECK ( RANALOG, - 16.5, - 16. (2, - 14. (1) - 13.5 SORC , ATT) j 

STR(RANALOG:5:3,SORC) ; 

OUTPUT(SORC,FRAMECXYPOS(39,71)1,ATTl; 

BEEL! .: SCANNER CHON 7 415 VOLT MONITOR 2. j 

RANALOG : = 6.O*ANALOG/51. (1) ; 

STR (RANALOG: 5: 3, SORC) ; 

LIMITCHECK (RANALOG, 13.5 'I 14.0,16. (3, 16.5, SORC, ATT) ; 

OUTPUT(SORC,FRAMECXYFOS(4,71)1,ATTl; 

EM?? ; 

E!?? ; E?EG_IN_ .C NON-SCANNER CHAN 7 +15 VOLT MONITOR3 

RANALOG : = h.O*ANALOG/51. (1); 

STR(RANALOG:5:3,SORC) ; 

L I M I TCHEC t::: ( RAN ALOG ,13.5 , 1 4.0 , 1 6.0 , 1 6 .5 SORC , AT T ) 5 

OUTPUT(SORC,FRAMECXYF'OS(39,32~1,ATT)j 

E!?? ; EEEI! .: SCANNER CHAN 8 +10 VOLT MONITOR 3 

RANALOG : = 4 = O*ANALOG/S 1.0 j 

STR ( RANAL-OG : 5 : 3, SORC 1 : 

A-18 
Page 18 

Li sti nq 

867 

868 

869 

8 7 0 

87 1 

872 

873 

874 

875 

876 

€377 

878 

879 

880 

88 1 

882 

883 

884 

885 

886 

887 

888 

889 

8 9 (1) 

89 1 

892 

893 

894 

895 

896 

897 

898 

89? 

9 0 (1) 

90 1 

9 (:) 2 

9 0 3 

9 0 4 

905 

9 0 6 

9 0 7 

908 

9 0 9 

9 1 0 

91 1 

912 

913 

914 

915 

916 

917 

of: S0CC.PAS 

L I M I TCHECK RCiNALOG ,8.5, '3. 0,ll. 0,i 1 . 5 , SOKC, ATT 1 j 

OUTPUT(SORC,FRAMECXYF'OS~~,7i~I,~TT); 

EEEI!!! .C NON-SCANNER CHAN 8 +lC) VOLT MONITOR3 

RANALOG : = 4.O*ANALOG/51. (3 ; 

STH (RANALOG: 5: 3 ,SORC) ; 

LIMITCHECK (RANALOG, 8.9,9.1:), 1 1.0,1 1.5 , SORC , ATT) j 

OUTPUT(SORC,FRAMECXYPOS(39,X!)I,ATT); 

E_!!!E!; 

ENID 5 

ErE_G_LN_ .C SCANNER CHAN 12 SPACE CRAFT ADAPTER TEMP3 

RANALOG : = EQUl5 (ANCSLOG/Sl.O) ; 

STR (,RcIFJcsLOO : 5 8 3 , SORC ) ; 

L IMJTCHECK (RANWOO, -1 0.0,0. 0,30.0,40.0, SORC , CSTT ; 

OUTPUT(SORC,FkAMEtXYPOS(l3,7l)l,ATT); 

END_; 

EEG_I!!i fNON-SCANNER SPACE CRAFT ADAPTER TEMP 3 

RANALOG : = ERU15 IANALOG/Si I 0) : 

STR ~HCINALOGP 5:3, SQRC) ; 

L IMITCHECK (RCINALOG, -1 O.C),O. C),30, 0,40.0, SORC , ATT 1 j 

OUTPUT(SORC,FHAMECXYF'0!3(35,71.)1,ATT)j 

E!!!!?; 

EEEI!!! .C SCANNER CHON 13 PED FOOT TEMP 3 

RANALOG : = EQU15(ANALOG/Si. 0) j 

STH(RRNALOG:5:3,SOHC) ; 

OUTPUT(SORC,FRAMECXYPOS(14,7l)l,ATT); 

L I M I TCHECK ( RANALOG , - 10.0, (1). (:),30. (3,40. 0, SORC , ATT 1 j 

ENID i 

BEEL!!! *CNON-SCANNER CHAN 13 PED FOOT TEMP3 

HANALOG : = EQUi5 (ANAL#G/51. (1)) ; 

SIR ( RANAL.OG: 5: 3, SORC 1 ; 

L I M I TCHECK ( R ANALOG , - 1 5.0, -5. (3 ,30.0 ,40.0 , SORC , A TT ) i 

OUTPUT(SORC,FRAMECXYF'ClS(36,71)l,ATT); 

ECID i 

BEGIN -C SCANNER CHAN 1 ELECTRIC SLICE 3 TEMP 3 

RANALOG : = EQUi4 (ANALOG/51. (3) ; 

STR (RANALOG: 5: 3, SORC) ; 

OUTPUT (SORC , FRAMEC XYPOS ( 10,7 1 ) 1 , ATT 1 ; 

L I M I TCHECK (RANAL-OG , - 10. (3, (2 0,50. (:),55. (3 , SORC , ATT 1 j 

END ; EEELY .CNON-SCANNER CHAN 14 ELEV DRIVE TEMP 5 

RANALOG := EG!U14(ANALOG/51.0) ; 

STR(RCINALOG:5:3,SOHC) j 

L I M I TCHECK ( RANALOG , 0. (3 , i(5. (3 , 30. 0 , 40. 0 , SORC , ATT 1 ; 

OUTPUT (SORC ,FRAME[ XYPOS (31,711 1, ATT) ; 

E!!@ : 

E(EG_I!!i CSCANNER CHAN 15 AZIMUTH DRIVE TEMP 2. 

RANALOG : = ERU14 (ANALOG/51.0) j 

STR (RANALOG: 5: 3, SORC) j 

L. I M I TCHEC t:: ( R ANAL OG , - 25 (1) , OUTPUT(SORC,FRAMECXYPOS(~,71)I?ATT)j 

1 5. (3 ,40.0 .45 . 0 , SORC 9 A TT ) j 

ENID; 

A-19 
Page 19 

Listing of: SOCC.F'AS 

91.8 

919 

9 2 (1) 

92 1 

922 

923 

924 

925 

926 

928 

929 

930 

932 

953 

934 

93h 

937 

938 

940 

94 1 

942 

944 

945 

946 

948 

949 

9 5 0 

952 

953 

954 

956 

958 

959 

962 

963 

964 

9L5 

967 

968 

124: BEGIN .CNON-SCANNER Ci-iAN 15 AZIMUTH DRIVE TEMP 3. 

RANALOG : = EQU14 (ANALOG/51.0) j 

STR (RANALOG: 5: 3, SORC) j 

L I M I TCHEC t::: ( R ANALOG , - 1 5 0 , -5.0 ,40.0 ,50.0 , SORC 'I A TT ) ; 

OUTPUT(SORC,FRAMECXYF'OS(32,71~19ATT); 

EBB ; 

else i := i b 

E3JQ; .:OF CASE 3 

E3IQ; .:OF PROCESSANALOG 1 

EUNCTIOY SAREF(SAP0SL:BYTE):AEC j 

%@IN_ EaEiE, (SAPOSL AND 15) O_E € CORRECTED 12/11/86 BY WLE 3 

----- BEGIN 

SAREF '0 WINDOW ' = := I 

--- END; 

__--- BEG IN 

SAREF := '(I DEG 

--- END j 

____- BEG IN 

SAREF := '90 WINDOW ' ; 

--- END ; 

SAREF := ' N/A '. 

.:OF CASE 3 

.: OF SAREF FUNCTION 3 

F'ROCEDURE FrocessScannerDIGA: 

.: PROCESS DIGITAL 'Et' DATA FOR BOTH SCANNER AND NONSCANNER 3 

--^--_ BEGIN 

C_A_SE_ MINORFRAMENUM M_O_D_ 40 (33 

0,12,24,36: BEGIN .C OUTPUT SCANNER CHANNELS SW LW Z< T'QT'3 

STR(SSCH:S,SORC) j 

A-2 0 
Listing of : SOCC. PAS 

469 

9'7 (3 

971 

Y72 

973 

974 

975 

977 

978 37: 

979 

980 

98 1 

982 

983 

$84 

985 

986 

988 

989 

987 

99 1 

992 

$99 

994 

99b 

997 

5'98 

$99 

PUTOUT(SORC,FRAMECXY~OS~2,i4)I,GREEN); 

STR(SLCH:S,SORC) j 

PUTOUT(SORC,FRAMECXYPOS(2,94)l,GREEN); 

STR(STCH:5,SORC) ; 

PUTOUT(SORC,FRAMECXYPOS(2,54)l,GREEN); 

STR (SCPOS: 5,SORC) j 

PUTOUT(SORC,FRAMECXYFOS(i2,14)7,GREEN); 

----- BEG I N 

SSWCSA := EG!U2(SDIGAC33); 

STR (GSWCSAP 5: 3, SORC ) ; 

PUTOUT(SORC,FRAMECXYPOS(9,ll)l,GREEN); 

tf (minarframenum<4Q) &h_gn_ -I to account for multiplexing 3 

-- begi_n 

IF ((SCID = SOD) a_r_ (scid = $(:)E)) THEN 

EEG I N .C DAC LIMITS FOR NCIAA-9 I 

SSDACV := EQU3(SDIGAC07); 

STR(SSDACV:5:3,SORC) j 

PUTOUT(SORC,FRAMECXYPOS~3,1l~I,ATT~j 

L I M I TCHEC t< ( SSD AC V , - 0.7 , -0.2 , (3 , 8 , 1 -3 , SORC AT T ) j 

SLDQCV := ERU3(SDIEACil); 

STR(SLDACV:5:3,SORC) ; 

LIMITCHECK (SLDACV, (l.35, (3. €35 , 1.85 , 2.35, SORC, ATT) ; 

PUTOUT (SORC, FRAMEC XYFOS (3,3i 1 1, ATT) : 

STDACV := EBU3(SDIGAC27); 

STR (S'TUACV : 5 : 3 SORC ) j 

FUTOUT(SOHC9FRAMECXYFOS(3~51)),ATT); 

L I M I TCHECt:: ( STDACV , -0.47,O. 5)3,1. 03,1. 53 9 SORC , ATT 1 j 

EN_Q 

---- ELSE 

EEEI!!! .: DAC LIMITS FOR NOAA-10 3 

SSDACV := EQU3(SDIGACUl) j 

STR(SSDACV:5:3,SORC) j 

LIMITCHECt~(SSDACV,1.5,i.5,2.5,2.5,SORC,ATT)j 

PUTOUT (SORC ,FRAME[ XYPOS (3,1 I. ) 1, ATT) j 

SLDACV := ERU3(SDIGAC17); 

STR(SLDACV:5:3,SORC); 

L I M I TCHECK (SLDACV, -C). 20, -0.2C), 1 , 1 

FUTOUT(SORC,FRAMECXYPOS01,ATT); 

1 . 1 , SORC, ATT 1 j 

STDACV := ERU3(SDIGAC21); 

STR(STDACV:5:3,SORC) j 

L I M I TCHECI::: ( STDACV , -0. 40 , -0. 40 , 0. 60 6. 60 , SCIRE , ATT 1 j 

PUTOUT (SORC, FRAMEI: XYFOS (3 51 1 1 ATT) ; 

EEQ a 

A-2 1 
Page 

Listing of: SOCC.PAS 

38 : 

SSMCSMT := EQUS(SDIGAL41); 

STR (SSMCSMT: 5: 3,SORC) ; 

FUTOUT(SORC,FRCSMECXYF'OS~5,1l~l,ATT); 

LIMITCHECK (SSMCSMT , -25.0, - 15.0,35.0,45.0, SORC CSTT) j 

STMAMT := EBUS(SDIGAC67); 

STR (STMAMT: 5: 3, SORC) j 

FUTOUT(SORC,FRAMECXYPOS(5,51)l,ATT); 

LIMITCHECK (STMAMT, -25.0, -15. Q,35.C), 45.0, SORE ATT) 9 

e_n_d_ 5 

--- END3 

-- begLC 

-- IF ((SCID = $OD) O_l (SCID = $(:)E)) THEN 

----- REG IN 

SDPBV : = ERU4 (SDIGACOI I ; 

STR(SDPBV:5:3,SORC); 

LIMITCHECK (SDFBV, -200.0,85. ,87. ,2OC). , SORC, ATT) ; 

PUTOUT(SORC,FR~MECXYF'OS(1(:),31) 1,ATT); 

SDNBV : = EQU4 (SDIGAII 11) ; 

STR (SDNBV: 5: 3, SORC) ; 

FUTOUT(SORC,FRAMECXYFOS~11,31~l,~TT~~ 

STRVl : = EQUS (SDIGAE21) j 

STR(STRV1:5:3,SORC); 

F'UTOUT (SORC , FRAME C XYF'OS ( 7,s 1 1 1 , ATT 1 ; 

L I M I TCHECK ( SDNBV , -200. , -87. , -85. 200. , SORC QTT 1 j 

L I MI TCHECK ( STRV 1 , -200, , -6.8, -6.4,200 , SORC , FiTT ) j 

STRV2 := EBU6(SDIGAC31) j 

STR (STRV2: 5: 3, SORC) ; 

L I M I TCHECK ( STRV2, -200. , -6.7, -6.3,20(3. , SORC kTT ) j 

PUTOUT(SORC,FRAMECXYPOS(€3,31)I,ATT~; 

A-22 
Page 22 

List i rig of : SOCC. PAS 

1 oi i 

1072 

1073 

1074 

1075 

1 (:I76 

1077 

1078 

1079 

1 (:I 8 0 

1082 

1083 

1084 

1085 

1086 

1087 

1.088 

1089 

1 (1) 9 (1) 

109 1 

1092 

1 (:)93 

1094 

1 095 

1096 

1097 

1098 

1099 

1 1015 39 : 

1 1 (3 1 

1 182 

1 1 03 

1 104 

1 lC)5 

1 1 06 

1 107 

1 108 

1 109 

1 1 1 (:I 

1111 

1112 

111-3 

1114 

1115 

1116 

1117 

1118 

1119 

1. 120 

1.121 

PU'TOUT (SORC, FRAME C XYPOS ( 10, -31 ) I, ATT) 5 

SDNEV : = EQU4 (SDIGAC 11) j 

STR (SDNBV: 5: 3, SORC) ; 

PUTOUT(SORC,FRAMECXYPOS~i1,.31~1,ATT~; 

STRVl : = EQUS (SDIGAC21) ; 

STR (STHVI : 5: 3, SORC 1 ; 

PUTOUT(SORC,FRAMECXYPOS(7,-31)l,ATT): 

STRV2 := EQU6(SDIGAE31); 

1, I M I TCHECK (SDNBV , -200.0, -86.5, -84.5,2(50 ,, 0, SORC , ATT 1 : 

LI MITCHECK (STRV1 , -200. 0, -7. 45 , -6. 90 ,200. 0,SORC 'I ATT) j 

STR (STRV2 P 511 3, SORC) ; 

LIMITCHECK (STRV2, -200.0, -7.05, -6.50,20(3.0, SORC , ATT) j 

PUTOUT(SORC,FRAME~XYF'OS(8,3l)l,ATT)~ 

--- END; 

SLBBT := EQU8(SDIGAC6lUSTRV2/(-6.4)); 

STR (SLBBT: 5: 3, SORC) ; 

LIMITCHECK (SLBBT , -23.0, -15.0,45.0,55.C), SORC, ATT 1 ; 

PUT~UT(SORC,FRAMECXYPOS(5,3l)l,ATT): 

STBBT := EQUB(S~IGAC7l*STRVZ/1-6.4)); 

STR (STBBT: 5: 3, SOHC) ; 

L I M I TCHEC t:: ( ST BET , - 25.0 , - 1 5. (3 ,45.0 ,55. (3 , SORC , ATT 1 ; 

PUTOUT(SORC,FRAMECXYPOS(7,51)1,ATT~; 

SSWCST : = ERU9 (SDIGAESI 1 ; 

STR(SSWCST:5:3,SORC) j 

L I M I TCHEC t< ( SS WCST , -25. (1) , - 1 5.(:),35.0 ,45 ,. 1:) , SORC , ATT 1 j 

PUTOUT (SORC ,FRAME[ XYPOS (8,111 1 ? ATT) ; 

En_@ 5 

--- END = 9 

----- BEG IN 

-- i f ( m i n or f r amen urn.: 4C) ) t hen 

-- begin 

SSDETT := EQU7(SDIGAC111 ; 

STR (SSDETT: 5: 3, SORC) ; 

LI MITCHECK (SSDETT ,37.0 , 37.5,38.5,39.0 , SORC , ATT) ; 

PUTOUT(SORC,FR~MECXYPOS~4,1~~l,ATT); 

--- end; 

-- if (minorfr-arnenum=79) then 

-- begi! 

SLDETT := EQU7(SDIGAC23); 

STR(SLDETT:5:3,SORC) j 

LIMITCHECK (SLDETT ,37.0,37.5,38.5,39. t:) ,SORC, ATT) ; 

PUTOUT (SORC, FRAMEC XYPOS (4,3 1 1 1 , ATT) ; 

STDETT := EQU7(SDIGAC31) j 

STR(STDETT:5:3,SORC) j 

LIM ITCHECK (STDETT ,37. (:),37.5,38.5,39. r:) SORC, ATT) ; 

PUTOUT (SORC , FRAME C XYFOS ( 4,5 1 ) 3 , ATT ) ; 

--- end ; 

SCMDE := SDIGAC71 ; 

sorc := hexdigtscrnde s_h_~ 123 

+ he:.:digC(E;cmde &-I 8) and 151 

A-23 
Listing of: SOCC. PAS 

1122 

1123 

1124 

1125 

1126 

1127 

1128 

1129 

1 13(:) 

1131 

1 132 

I133 

1134 

1135 

1136 

1137 

1138 

1139 

1141 

1142 

1 140 

1145 

1146 

1148 

1149 

11.51 

1152 

1153 

1155 

1156 

1157 

1159 

1 160 

1i61 

1163 

11.64 

1165 

1167 

1168 

1169 

1171 

1172 

+ hexdigL(scmde ~J-IC 4) and 151 

+ hexdigCscmde and 151 j 

PUTOUT(SORC,FRAMECXYPOS~14,1l~l,G~EEN~j 

SSTAT := SDIGAC61 j 

STR ( SSTAT : 5, SOHC) j 

PUTOUT(SORC,FRAMECXYPOS(16,11~I,GREEN): 

SAPOSL := SDIGAC53; 

SORC : = SAREF (SAPOSL) j 

SAPOSH := SDIGAC41 ; 

PUTOUT(SORC,FRAMECXYPOS(14,3l)l,GREEN); 

SAPOS :=((SAPOSH AND 255) G3iC 4 

STR (SQPOS76, SORC 1 ; 

PUTOUT~SORC,FHAMECXYPOS~15,3l~l,G~E~N~; 

STR(SAZP:6:3,SORC) 

PUTOUT(SORC,FRAMECXY~tlS~l6,31~l,GRE€.N~: 

OR ( (SAPOSL AND 240) 4) ; 

SAZP := SAPOS st. (:).075 j 

EUFI i 

else i := i ; C do nothing 1 

E_N_D_; .: OF PROCEDURE PHOCESSSCANNERDIGA 2. 

@Q; -f OF CASE 3 

FUNCTION NEPOS (ND I GA: INTEGER 1 : ABC j 

.f NONSCANNER ELEVATION FOSITIONI 

----- PEG IN 

C_A_S_E_ (NDIGA AND 15) O_E 

1: ----- BEG IN 

NEPOS := ' 18O DEG ' 9 

END_ ; 

9: ----- BEGIN 

NEPOS := '180 WINDOW' j 

END_ ; 

3: ----- BEG IN '. NEPOS := '78 DEG a 

!ZED_ j 

11: BEGIN 

NEPOS := '78 WINDOW ' : 

END_ ! 

13: ----I BEGIN 

NEPOS := '0 WINDOW ' j 

A-24 
Listing of: SOCC-PAS 

1173 

1175 

1176 

1177 

1186 

1181 

1.182 

1184 

1185 

1186 

1187 

1188 

1189 

1191 

1192 

1193 

1195 

1196 

1197 

1199 

1 2 (:I (:I 

126 1 

1203 

13:,4 

1205 

1207 

1208 

1.2 1 0 

121 1 

1214 

1215 

1216 

1217 

1218 

1 2 2 (:) 

1 zz 1 

1,222 

y. 223 

END; 

ELSE NEFOS := 'UNDEFINED ' 5 

E_N_D_; .: OF CASE 3 

E_N_D_; .: OF NEPOS FUNCTION 1 

ELJNCTION NAREF(NDIGA:INTEGER):A~C5 .: NONSCANNER AZIMUTH FOSITION 1 

fSECjIN CX2E (NDIGA AND 15) 03 

4: 

7: 

8: 

11: 

12: 

15: 

---- ELSE 

---I- BEGIN 

NAREF o= '0 WINDOW '; 

i ----I BEG IN '. NAREF := '0 DEG ? 

!END_ 5 

----- BEG IN 

NAREF : = '90 WINDOW ' j 

EN_Q 5

NAREF := 'UNDEFINED ' 

---I END* .:OF CASE 3 

E_N_D_; -:OF NAFOS FUNCTION) 

FT?QC_E_D_LJJE FrocessNonScannerDIGA ; -C PROCESS NONSCANNER DIGITAL '6' DATA:. 

FOSIT,NS:REAL; NPOSIT : INTEGER j 

EECjIN_ 

C_A_S_E_ MinorFrameNum M_O_D_ 160 Ql 

.: OVERALL PROCESS OCCURS TWICE EVERY MAJOR FRAME 3 

3. .7, 

139. s 143,147.. 151 , 155.. 159: 

11. .15 .f 19. 23,27. .31, 35. .39,43. .47,51,, .95,59. .63 ,, 67. .71 

75..79,83..87,91..95,99..1(:)3,1(~)7.. 111,115.. 119,123.. 127,131..135, 

A-2 5 
Page 

Listing of: S0CC.PAS 

1225 

1226 

1227 

3.228 

1229 

1230 

1231 

1232 

1233 

1234 

1235 

1236 

1237 

1238 

1239 

3. 24(3 

1241 

1242 

1243 

1244 

1245 

1246 

1.24.7 

1248 

1249 

1250 

1251 

1252 

1253 

1254 

3.255 

1256 

1257 

1258 

3.259 

1260 

1261 

1262 

1.263 

1264 

1265 

1266 

1257 

1266 

12t9 

1270 

1271 

1272 

1273 

1274 

3: BEGIN 

STR (NDIGA: 5, SORC) j 

F'UTOUT(SQRC,FRAMECXYPOS(22,12~7,GREEN); 

.E N MF T CH 2. 

I..-- END = 3 

4: E(EE33Xl 

STR(NDIGA:S,SORC); .[NMSCH2. 

PUTOUT(SORC,FRAMECXYPOS (22,32) 1 ,GREEN) ; 

--- END z = 

5: BEGIN 

STR (NDIGA: 9, SORC 1 ; 

PUTOUT(SOHC,FH~MECXYPOSo3,GHEEN); 

CNWTCHI 

--- END; 

5: BEGIN 

STR(NDIGA:S,SORC) j f N W SCH 2. 

PUTOUT(SORC,FRAMECXYPO~~~2,7l)l,GREEN) j 

--- END = Y 

7: BEGIN 

STR (NDIGA: 5 , SORC) ; .ENSMCH> 

PUTOUT~SORC,FRAMECXYPOS(29,12)7,GREEN~j 

--- END; 

--- END. Y .E OF INNER CASE 2. 

I-- 

~. 

END; 

----- BEGIN 

SORC := HEXDIGCNDIGA S_HB 123 

+ HEXDIGC(ND1GA _Stis 8) AND 151 

+ HEXDIGC(ND1GA _See 4) AND 151 

+ HEXDIGCNDIGA AND 151 j 

r 

L STR (NDIGA: 5, SORC) ; 2 .E COMMAND ECHO 2, 

PUTOUT(SORC,FRAMECXYF'OS(35,52) 1 ,GREEN) : 

u_N_Q; 

----- BEG IN 

STR (NDIGA: 5, SORC) j .E INSTRUMENT STATUS 2. 

PUTOUT(SORC,FRAMECXYFOS(3?,5~)1,GREEN)5 

E_!@ i 

-I---- 

BEGIN 

SORC := NEPOS(ND1GA): .E NEPOS 2 

PUTOUT (SORC ., FRAMEC XYPCIS (32 30) 1 ,,GREEN) : 

EN_!? i 

-"--I- BEG IN 

SORC : = NAREF (ND I GA) ; .: NAREF >. 

PUTOUT (SORC, FRAMEC XYFOS (34 .I 3:)) 1 GREEN) ; 

NFOSIT := NDIGA SHE?: 4 : 

STFi (NPOSI T: 5 , SORC) ; 

POSIT:= NPOSIT * 0.075 ; 

PUTOlJT (SORC, FRAME C XYPOS ( 36,30 1 1 , GREEN) j 

PUTOUT < SORC , FRAME C XYPOS (35 ,, 3C) 1 1 , GREEN 1 j 

STRfPOSIT: 10: 3,SORC) : I NADEG 3 

.E NAPOS 2. 

EN_!? 4 

A-26 
Listing of: SOCC.-PAS 

18,'iS: 

24 'I 104: 

25,105: 

26,106: 

33,113: 

34,114: 

40 : 

41: 

E:E_ZIN_ 

NS := ERUiZFM(ND1GA) ; 

STR (NS: 5: 2,SORC) ; .: NMFTHT 3 

L I MI TCHECK (NS , lo. 0 , 20. c:) , 40. 0 , 50. 0 'I SORG , ATT 1 : 

PUTOUT(SOHC,FRAMECXYPOSo7,nTT); 

E!!!!! i 

STR(NS:6:4,SORC); NSWCSA 3 

PUTOUT(SORC,FRAMECXYPOS(27,7l)l,GREEN); 

E?!PI 

----- BEG I N 

NS := EQUllFM(ND1GA)j 

STR (NS: 5: 2,SORC) ; .C NSWCST 2. 

1, I MI TCHECK (NS , 0. (:I , 10. (1 , 30. 0 , 40 . (2 , SORC , ATT 1 j 

PUTOUT~SOKC,F~AMECXYPOSo3,RTT); 

--- END 9 

_-_-- BEGIN 

NS := EG!U12FM(NDIGA); 

STR ( NS: 5: 2, SORC) j .C NMFSHT 2. 

LIMITCHECK (NS, 10.0,20.0,40.0,5(:). O,SORC,ATT) j 

PUTOUT(SORC,FR~MECXYFOS(2~,32)I,ATT~~ 

--- END 

_____- BEGIN 

NS := EBUl3(NDTGA); 

STR(NS:6:4,SORC)j .: NTREFV 2. 

LIMITCHECK (NS,4.7,4.9,5.1. ,5.3,SORC,ATT) 

PUTOUT(SORC,FRAMECXYPOS~38,32)I,f3TT~; 

--- END = 9 

BEGIN 

I---- 

NS := ERU12FM(NDIGA)j 

STR (NS: 5: 2,SORC) ; .: NWFTHT 1 

L I M I TCHECt:: (NS , 10. 0 , 210. (3 , 40. 0 , 50. 0 , SORG 'I ATT 1 : 

FUTOUT(SORC,FR~MECXYFOS(25,52)I,ATT)~ 

--- END j 

----- BEG I N 

NS : = EQUi 1FM (NDIGA) ; 

STR (NS: 5: 2 'I SORC) : NMFTLT 2. 

L I M I TCHECK ( NS ,, - 16 . 0 , 0. 0 , 40. 0 , 3:). 0 , SORC , ATT ) 5 

A-2 7 
Faye 27 

List.ing of: S0CC.FAS 

47 122: -, 

50,130: 

58,138: 

64 : 

65 : 

66,146: 

73 : 

74,154: 

FUTOlJT (SORC,FRAMECXYF'OS (23,12> 7 ,ATT) j 

--- END; 

----- BEG IN 

NS := ERU12FM(NDIGA); 

STR (NS: 5: 2, SORE) i .: NWFSHT 3 

LIMITCHECK (NS, 10. (:),2(:).0,40. 0,50. O,SOHC,ATT) ; 

FUTOlJT(SORC,FRAMECXYF'OS(25,71) 1,ATT); 

--- END ; 

----- BEG IN 

NS I = EQU12FM (NDIGCI) ; 

STR(NS:5:2,SORC) j -C NWFBET 3 

LI MI TCHECK (NS , 0.0,lO. 0,55. (3,60.0, SOHC , ATT) ; 

FUTOUT(SORC,FRAMEEXY~OS(27,52~7,~TT~; 

--- END j 

----- BEG IN 

NS := ERU12FM(NDIGA); 

STR (NS: 5: 2, SORE) j NMFSF'T 3 

L I M I TCHECK ( NS , 0. 0 , 1 0 . 0 , 3:) . 0 , 40 . 0 , SORC ATT ) ; 

PUTOUT(SORC,FRAMECXYPOSo7,ATT); 

--- END j 

----- BEG IN 

NS : = ERUl lFM(ND1GA) j 

STR ( NS: 5: 2, SORC) j .C NMFSAT 1 

L I M I TCHECK (NS , 10. 0 , 20. 0 , 40. 0 ,, 50. 0 , SORC ,, ATT) j 

PUTOUT~SORC,FR~MECXYPOSo7,ATT); 

--- ENDj 

----- BEG IN 

NS : = EQUl lFM(ND1GA) : 

STR ( NS: 5: 2, SORE) j .:NMFSLT' 3 

L I M I TCHECK ( NS , - 1 0 . , 0 . 0 , 40 . 0 , 50 . 0 , SORC , ATT ) ; 

PUTOUT(SORC,FRAMECXYFOS(23,32~I,ATT): 

--- END j 

---I- BEGIN 

NS := EBU12FM(NDIGA): 

STR(NS:5:2,SORC) j .: NMFBBT 3 

L I M I TCHECK (NS , 0. 0 , 10. 0 , 55. 0 , bC). 1:) , SORC , ATT 1 : 

FUTOUT(SORC,FRAMECXYFO~(27,l~)l,ATT); 

--- END; 

I---- BEGIN 

NS := EQlJ13(NDIGA) ; 

STR(NS:6:4,SORCjj .: NCHTRV 2. 

PUTOUT(SORC,FRAMECXYFOS~27,32~l,GREEN); 

EYE ; 

A-2 8 
Fage 28 

Listing of: S0CC.PAS 

NS := EQU12FM(NDIGA) ; 

STR (NS: 5: 2 ,SURC) ; CNWFSPT 3 

L I MI TCHECK (NS , 0. 0 , 10. 0 , 3:) 0 , 40 , 0 , SORC , ATT ) J 

PUTOUT(SORC,FRAMECXYPOS(26,52~1,ATT); 

E_!!@; 

1383 80: ----- BEGIN 

1384 NS := EQUllFM(ND1GA); 

1385 STR(NS:5:2,SORC) j NSMHT 3 

1386 L I M I T CHECK ( NS , -- 10. (3 ,, (3 (2 ,, 40. (3 ,56.0 ,, SORC ,, A TT 1 ; 

1387 PUTOUT(SORC,FR~MECXYFOS(29,3~)I,QTT)~ 

1388 --- END! 

1390 81: ----- BEGIN 

1391 NS := EQIJiiFM(ND1GA); 

1392 STH (NS: 5: 2, SORC) ; .E NSMAT 3 

1.393 L I M I TCHEC tt: ( NS , - 1 0 . (1) ,, 0 . (3 , 40 . (3 , 50 . 0 , SORC , ATT ) ; 

1394 PUTOUT(SORC,FRAMECXYPOS(29,52!) 1 ,QTT) j 

1.395 --- END; 

1397 82: ----- BEG IN 

1398 NS : = EQUllFM (NDIGA) 3 

13?9 STR(NS:5:2,SORC) ; f NSMET 3 

1 4 0 L I M I TCHECK (NS , -1 0. 0 , 0. C) , 40. 0 50. 0 , SORC , ATT 1 : 

1 40 1 PUTOUT(SORC,FRAMECXYFOS(29,71)l,ATT~; 

1 402 _--? END1404 120 : ----- BEG IN 

1405 NS : = EQlJ1 iFM(ND1GA) : 

1 4Ch5 STR(NS:5:2,SORC) ; fNWFTAT 1 

1 407 

1 408 FUTOUT(SORC,FRAMECXYFOS(24,~2)1,ATT)~ 

I- I MI TCHECK (NS , 10. (3 , 20. 0 , 40. 0 'I 50. 0 , SORC ,, RTT 1 ; 

1 409 -I- END; 

1411 121: -___- BEGIK 

1412 NS : = EQUi iFM(ND1GA) ; 

1413 STR(NS:5:2,SORC); i NW F TL T 3 

1414 L 1 M I TCHECK (NS - 10 . 0 , 0. 0 , 40 0 ,, 50. (3 , SORC , ATT ) ; 

1415 PUTOUT(SORC,FRAMECXYFOS(~~,,~~)I,ATT)J 

1416 --- END = 3 

1425 145: -.-"--I BEGIN 

1426 NS = EBUi 1FM (NDIGA) 5 

1427 STR (NS: 5: 2, SQRC) : ':NWFSLT 2. 

A-2 9 
Listing of : SOCC. FAS 

1428 

1429 

1430 

1432 

1433 

1434 

1435 

1436 

14.37 

1438 

1439 

1440 

14.42 

1 443 

1444 

1446 

1447 

1.448 

144'3 

i 45 1 

1452 

1453 

14.54 

1455 

1457 

1458 

1459 

1451 

1462 

1453 

1464 

1465 

1466 

1467 

1469 

1471 

1472 

1473 

14-74 

1475 

1476 

1477 

1478 

NS : = EUU1 iFM(ND1GA) j 

STR(NS:5:2,SORC) j NBEBT 3 

L I MI TCHECK (NS , -10. (1) , (1). 0 , 40. 0 50 II 0 SORC ATT ) j 

FUTOUT (SORC , FRAME C XYFOS (Zt ,32 1 7 , ATT ) j 

--- END j 

---I else i := i I = 

---. END: .I OF CASE 3 

f do nnthinq 1 

E!!! ; C OF ProcessNonScannerDIGA 3 

-- begLC 

sore := ' 

att := green; 

e__nd_; 

-- begin 

sore := 'protocol error ' : 

att := red ; 

End_; 

-- begin 

sore := 'checL:sum error 'j 

att := red ; 

_end j 

-- begifl 

fjorc := 'timeout error ' : 

att := red ; 

end_ j 

i := i j .: do nothing 3 

md_j .: of case 3 

putout (sorc,frameC:.:ypo5(44,2) 1 ,attf j 

A-30 
Page 3:) 

~i st i ng of : SOCC, PAS 

1479 

1480 

1481 

1482 

1483 

1484 

1485 

1486 

1487 

1488 

1489 

1490 

1491 

1492 

1493 

1494 

1495 

1496 

1497 

1498 

1499 

1 50(:, 

I50 1 

15(:)3 procedure dumpbctf f ; 

1504 .: THIS ROUTINE IS CALLED WHEN A CONTROL D IS HIT. IT WAS USED FOR 

1505 DEEUGG ING FURPOSES 3 

1506 ygc line : strinqC8C)l ; j,l::,l: integer j bit: byte : 

1507 b_e_gki 

151:m 

1 5 I 0 

151.1 

I512 

1515 

1514 

1515 

1516 

1517 

1518 

151.9 

1520 

1521 

1522 

1523 

1524 

1525 

1526 

fo_r j := (3 go_ 4 do_ -- begig 

K := 0 ; 

fer i := 0 to_ 5 eo_ 

-- beyin 

line := ' ' 9 fo_r 1:= (3 go_ 19 d_o_ 

-- begin 

bit := minarframeEj ,I::]; 

line := line + hexdigCbit zb~ 41 f hexdigCbit and Sfl f ' ' 5 

I:: : = b: + 1 j 

e_Ed i 

wri teln (lst, 1 ine) : 

writaln (1st I; 

--- end; 

grid_ j 

statpr := 1 ; 

E!d 5 

1528 EfiP_I=_E_PURE CLEARBUF i .: CLEAR THE MINORFRAME BUFFER 3 

1529 !#?1'4 1,J:INTEGER ; 

A-31 
Listing of: SOCC.F'AS 

1 5 3 (i) 

1531 

1532 

1533 

1534 

1535 

1536 

1539 

1540 

1541 

1542 

1543 

1544 

1545 

I. 546 

1547 

1548 

1549 

1 550 

1551 

1553 

1557 

1558 

1559 

1568 

1561 

1562 

1563 

1564 

1565 

1566 

1567 

1568 

1569 

1570 

1571 

1572 

1573 

1574 

1575 

1576 

1577 

1578 

1579 

1580 

----- BEG IN 

--I FOR J: = 0 IQ 103 ,DO 

MINORFRAMEC1,Jl := 0 3 

~t-q~-d_~ye_ eoffile(segm,offs:integer); 

v_a_r_ i : integer ; 

-: this proc9dur-e positions a file to the eof. Turbo Pascal would not 

do this in the case of files with more than 32767 records. This 

routine simply moves the number of records contained in bytes 4 

through 7 in the file control bloc):: to the current record number 

bytes 44 through 47. 1 

-- begf_n 

--- for i:= 4 %E 7 _d_a 

I- begiE 

memwCs;egm:affs+i+4O3 := memCsegm:offs+il : 

-I--_ BEG I N 

SCID := (3 ; .C INITIALIZE SPACE CRAFT ID'S 3 

OLDSCID := 0 ;i: THESE TWO VARIABLES ARE USED TO DETECT A 

CHANGE IN SATELLITE ID, THUS ENABLING A CL-EARING OF THE 

SCREEN FOR THE NEW SATEL-LITE BEING DISPLAYED 3 

ESIPL := OFF 3 .C INITIALIZE SCANNER PULSE LOAD TO OFF 3. 

ASSIGN (F9,NOAAS); 

RESET (F9) ; 

eof f i 1 e (5eg (F9 1 , of s (F9) ) ; 

ASSIGN (F10,NOAA10) j 

RESET (F 10) j 

EOFFILE(SEG(F10) ,OFS(F10) ) ; 

STORINTC11 := SCRNINTCll 4 

SCRNINTC11 := CSEG j 

STORINTC01 : = SCRNINTCOI ; .C SAVE PRINT SCREEN VECTOR 3 

SCRN I NT C 0 1 : =e OFS < PRSTAT) : .: PLACE NEW VECTOR -ro O~JR RUUTINE 1. 

NEWSCREEN j .C SET UP 80 X 50 DISPLAY SCREEN 1 

DISPLAYACRO ; .C DISPLAY ACROt'JYMS ON SCREEN 3 

STATFR : = (5; 1 inenum := 0; charnum: = (3; 

-- reeeat ---

INITRCV : 

STAT; 

key := GETKEY j 

gc (key = 24 kh_e_n_ 52ratLts := 1:) ; 

A-32 
Page 32 

Listing of: SOCC.FAS 

1581 

1582 

1584 

1585 

1586 

1587 

1588 

1589 

1590 

1591 

1592 

1593 

1594 

1595 

1596 

1597 

1598 

1599 

1 6 (1) (1) 

1 6O 1 

1. 6(32 

1 603 

1604 

1605 

1606 

1607 

1608 

1 6 1 (1) 

1611 

lh13 

1614 

1615 

1616 

1609 

until- status = 8 j 

MINORFRAMENUM := -1 : 

.: WAITING FOR ERROR = (1) 2 

REEP: GETBUF j 

STAT; 

key := GETKEY j 

Lf (key = 2 1 t_h_e_n_ qo_t_o_ stop j .: CONTROL B > 

Lf (key = 18 1 t_h_e_n_ displayacro ; CONTROL R 3. 

$-f (key = 4 ) then dumpbuff j .: CONTROL D > 

-- IF (STATUS (3 0 1 THEN GOTO REEP j 

< IF WE HAVE A BAD STATUS, THEN TRY AGAIN 3 

-- IF 4LENG = 0 ) THEN GOTO REEP 

C IF WE HAVE NO DfiTb, TRY AGfiIN 3 

EQE MN := 0 18 4 Qf! 

.E WE HAVE GOOD DATA, SO FROCESS 5 MINOR FRAMES 3 

----- BEGIN 

DIVY(MN1 j .: EXTRACT USEFUL DATA FROM TIF MINOR FRAME MN 2. 

-- if (minorframenum >319) _thgy! g_ock_o bottom ; 

-- IF ( (F0RG.C :> ' 9 ' ) AND (FQRG .: >. ' 10 ' ) I p_H_E_N GOTO EUTTOM j 

ProcessDi gb ; 

ProcessAnal og ; 

ProcessScannerDiga: 

FrocessNonscannerDiga; 

str (minorf ramenum: 5,sarc) j .:DISPLAY MINOR FRAME NUMBER > 

putout(sorc,frarneCxyposi(42,15) ],white) j 

bottom: -- if statpr = 1 then scrdump(linenum,charnum) ; 

_-_ END = 7 

ggtg reep j 

STOP: SCRNINTC(1)l : = STORINTC07 j 

.ERESTORE NORMAL PRINT SCREEN VECTOR 3. 

SCRNINTC11 := STORINTC11 ; DITTO 3. 

CLOSE (F?) ; .E CLOSE NOAA-9 FILE 3. 

CLOSE (Fl(1)) j .E CLOSE NOAA-10 FILE 3. 

OLDSCREEN ; .E CHANGE SCREEN MODE BACK TO NQRMAL 3 

--- END, .I of socc disp program 3 

A-33 
APPENDIX B - SCANCHK 

SCANCHK is designed to examine scan position data for NOAA-9 

and NOAA-10 data acquired by the SOCC monitoring program. 

B-1 
Fage 1 

Listing of: SCANCHM. PAS 

j. eF;QGRAfi SCANCHt;: j 

2 .: 

3 SCANCHK is designed to examine scan position data -for NOAA-9 and 

4 NOAA-10 data acquired by the SOCC moni t.oring program. 

i 

6 written by: William L-. Edmonds 

7 STX Corp. 

3 

L,fl.AEL, REEF ,stop,bottam; 

TYPE ABC = S16&F_?G_C80;I 5. 

TYPE ---...- integBUFF = fiWF?V_CO. .4C)OOI Ql INTEGER 4 

TYPE ----- BITE = A_RRAYCC). .801 O_l BYTE j 

L3'rE_ MinorFt-ameBuffs = @~~yCO~ ,, 1631 a_& byte : 

Iyp~ dual buf f s = ArrayC(1). . 41 o_f_ MinorFrameBuf $5 : 

LY_rE_ MinorFramewords = Array[(:).. 51 1 O_l INTEGER j 

Type_ dualwordbuffs = A_r_r_a_yC0..41 gf MinorFRamewords ; 

TYPE EREREC = ficF;;fiV_CO. -213 (33 BYTE j .: USED IN SAVING ERBE DATA TO DISK zY_cE_ REGPACK = F;;EXO_F;;D_ 

TYPE BYTEFUFF = ARRAYKOa .80001 O_E BYTE j 

ax,bx,cx,dx,bp,di ?si ,ds,es,flags:integer-j 

--- END 5 

--I- TYPE GOMBUFF = gFtq_VCC). .5191 QF BYTE j 

- typg smallbufw = arrayC0..31 gf integer j 

----- TYPE COMBUFFW = ARRAYC0..2591 _OE INTEGER ; 

33 

34 

35 

36 

.3 7 

36 

39 

4 0 

41 

42 

4 3 

44 

45 

46 

47 

49 

5 (I 

7 

48 WF\' 

ON : S_TRINGC31 = ' ON' j 

OFF : STRING_C31 =: 'OFF' 5 

WHITE: INTEGER = 15 j 

RED: INTEGER =r 12 : 

YELLOW : INTEGER = 14 j 

GREEN : INTEGER = 10 j 

msgrcv : byte = 2 9 

xmtrcv : byte = 7 ; 

maxsec : integer = 10 j 

sync E byte =e 832 j 

bisync : integer = $220 : 

noerr : integer = (3 j 

ptlerr : integer = 1 ; 

cserr : integer- = 2 5 

timerr- : integer = 3 j 

id(I)msg : _ay_r_ayC(:). .31 _of byte = ($32,$32,0,$8) : 

idlmsg :: _ary~yC(:>..31 -- of byte = (832,$32,U,$c) ; 

idmsln : integer = 4 : 

spacecount : integer ; 

Spacelook : integer; 

B-2 
Fage 2 

Li st i ng af : SCANCHK. FAS 

51 

52 

53 

54 

55 

56 

57 

58 

59 

6 (3 

61 

62 

63 

64 

65 

67 

68 

69 

7 0 

71 

72 

73 

74 

75 

76 

77 

78 

79 

8 0 

81 

83 

f34 

8 5 

86 

87 

88 

€39 

9 0 

91 

92 

93 

94 

95 

96 

97 

98 

99 

1 (:)(:) 

Sample9,samplelO : integer ; 

Sampleii : integer ; 

Sample74 : integer ; 

days, hrs, mi 135 : i nteyer ; mi 11 i 5ec5, 5ec5 : real : 

ESIFL : ABC ; 

ERBDAT : ERBREC : .: THIS ARRAY HOLDS ERBE DATA TO BE SAVED TO PISt: 3 

FL : FILE _OF ERBREC ; 

key : integer ; 

state : byte ; 

id : byte j 

IDNUM : INTEGER ; 

msgid a- byte f 

elpmnin f byte 5 

elpsec : byte j 

SCID : BYTE ; .: SCID SHOULD BE =Z HEX ''D1' 2. 

RECFACtC : REGFACt:; j 

ah,al ,ch,cl ,dh : byte j 

TIME : ARRAYC0..51 O_E BYTE j 

MI\1 : INTEGER ; 

stat.us,count: integer j 

linenum,charnum: integer- ; 

Mi norFrameNUM : integer j 

MajorFrameNUM : inteqer- ; 

Diyb : byte; 

SDIGA : e~F?fiYCO..71 _OE INTEGER j 

NDIGA: INTEGER j 

ANALOG : byte ; 

analoyint : integet- j 

RANALOG :: REAL j 

,.-I =cr-nmode: 9rr_ayCO.. 151 gf byte : 

B-3 
Li st i ng of : SCANCHK. PAS 

1 05 

1 (36 

1 07 

1 (I8 

1 (39 

5 1 0 

111 

113 

114 

11s 

1 I6 

117 

118 

1. 19 

1 20 

121 

123 

I 

I 

I 112 

127 

128 

129 

13c; 

133 

135 

136 

137 

138 

139 

I 40 

141 

143 

144 

145 

1 4& 

147 

148 

14? 

1 50 

151 

152 

.:--_"I____-_--_- - =,canner di yi tal "a" 

--- VRR 

-I TYPE _" COUNTS L= INTEGER; 

SSCH,SLCH,STCH : COUNTS ; .: CHP 

SSWCSA,SSWCST : REAL 

SSDACV,SLDACV,STDACV 

SDPBV,SDNBV : REAL- ; 

STRV1,STRW : REAL j 

SSDETT , SLDETT , STDETT 

SLBET,STBBT : REAL q 

SSMET,STMBT : REAL j 

SSMAMT,STMAMT : REAL 

JNEL OUTFUT 1 

9 .C SWICS AMP OUTPUT & TEMP 3 

: REAL j DAC VOLTAGES 1 

.: POS iz! NEG DETECTOR BIAS VOLTAGES> 

TEMP REF VOLTAGES] 

: REAL : f: DETECTOR TEMPS> 

< MAM BCSFFLE TEMPS 3 

.f BLACKBODY TEMPS 3 

f .t MAM TEMPS 3 

SCMDE,SSTAT,SCPOS : COUNTS : .: COMMAND ECHO, STATUS, SCAN FOSITIONI 

SAFQSL,SAFOSH: BYTE ; .: LOW P< HIGH AZIMUTH FOSITION BYTES 3 

SRZP : REAL j .: AZIMUTH F'USITIQN 3 

TREF : REAL ; f TEMP HEAL NUM S 

SAFQS : COUNTS j 

--.-- PROCEDURE ---- -OUTPUTC_VWq SORC: AFC j FRAME : INTEGER j ATTR : INTEGER 1 : 

-_-I_ BEG I N 

--- VARBLANKS ABC : 

'. 11 BLANKS 2. .: BLANKS := ' ? 

--- Erm : 

I PUTOUT(BLANKS, FRAME , WHITE )j 1 

FUTOUT (SORC, FRAME, ATTR) : 

fun_rt_ga_n_ cntlb : integer j 

with recpack d_g ke_¶Ln_ 

bE¶Lc! 

ah := h ; 

a1 := (1); 

ax := ah sih_~ 8 +, a1 ; 

dx := eft: j 

End 5 

intr ($21 ,recpack) : 

B-4 
1 Listing of: SCANCHK. PAS 

153 

3. 54 

155 

156 

157 

I 158 

~ 

~ 

163 

164 

165 

166 

168 

Y. 69 

1 70 

171 

172 

176 

177 

178 

179 

I 80 

181 

182 

183 

185 

186 

187 

1. 88 

189 

I so 

191 

192 

193 

194 

195 

196 

197 

184. 

2 t:, (1) 

2 (:I 2 

T(-)T 

.L " .-.a 

w_gLLt_h_ recpack do_ 

-- begiy! 

a1 := a:.: and 8ff j 

e_%! : 

cntlb := a1 ; 

--- end j 

EL_LNYJTIO_N_ XYPOS (ROW,COL: INTEGER ) E INTEGER 5 

EEEI!!4 

XYPQfj := ROW * €30 + COL; 

frwc_edi-ire NEWSCREEN j 

EEG I N 

SCRNMODECOI : = 871 ; 

SCHNMODE C 1 1 : = 850 ; 

SCRNMODEC21 : = 854; 

SCRNMODE C 3 1 : = $(IF ; 

SCRNMODEC41 := SIB; 

SCRNMODECSI := 6; 

SCRNMODEC61 := 819; 

SCRNMODEC71 := $14; 

SCRNMODEC81 := 7= .-a 7 

SCRNMODEC91 := 7; 

SCRNMODEC IC)] = $20 ; 

SCRNMODEC111 := 820 : 

SCRNMODEC 121 : = 0; 

SCRNMODEC 13 1 : == 0; 

SCRNMODE E 14 1 : = 0; 

SCRNMODEC 151 : = 0: 

S5(:)8(:) ( SCRNMODE C (1) 3 1 ; 

PORTC83D81 := 819 ; 

F'ORTC4GE03 := 818 ; 

F'OR'TC83D91 := 0 ; 

pOCEDURE OL-DSCREEN : 

V_A_F;; LOC : INTEGER j 

B-5 
Page 5 

Listing of: SCANCHG.FAS 

208 SCRNMODEC41 := B1F j 

2 1:) 9 SCRNMODEC71 := BIG j 

2 1 (1) SCRNMODEC81 := 3. A. !I 

21 1 SCRNMODE C 10 1 : -1: 6; 

212 SCRNMODEC111 := 7; 

213 

214 --- END; 

S5080 ( SCRNMODE C (1) 1 ) j 

EROCEDURE Di spl ayTi me; 

VAR -I-- TIMSTRING : ABC j 

E(EE2.N days := (timeCOl&l 1) +(ftimeClI and 12€3)sh_r_ 7) j 

millisecs; := (( ( timeClland 7)*25h.(:) + timeC21)*256.0 + timeC31)*256.C 

hrs : = trunc (mi 11 i secs/360Ctc:)C)O. 0) j 

mins : = trcrnc (mi 11 isec:s/6(:)000. (1)) m_o_d_ 150 : 

sets : = trunc f (mi11iE;ecs/lOQ(). 0) --mins*60. O-.hrs*.3600. 0) j 

str(days:4,sorc); putout (sorc,frameCxypos(42,40i 1,whitef j 

str(hrs:2,sorc) j 

st.r (mins:2,sorc) j 

str(secs:6:3,sorc)j putout(sarc,frameCxy~~~(42,~5) 1, white) j 

putout (sorc,frameCxypas(42,45) ],white) j 

putout(sorc,frameCxypos(42,~(1)) 1,white) j 

E_!% 5 

F'ROCEDURE DIVY j .: reads TIF MINOR FRAME data from disk:::. 

L_agE_L_ RETURN 5 

v_gr nextmf ,tipstatus: integer j nmf ,mf: stri~qC41 j 

nextmf := minot-framenum +i j 

Lf (nextmf 1::. 319 1 t_h_gn_ ne:ct.mf := Cr : 

MINORFRAMENUM := ERBDATEII + (ERBDATCOI AND l)%h_l €3; 

-- i f (mi nm-f ramenurn.< >ne:.: tmf 1 thhn -- beg.ic 

str (nextmf :4,nmf) j 

str (minorframenum:4,mf~ : 

sorc := 'expecting mf ' + nmf + ' but found mf ' + mf j 

putout (sorc , f rameE:.:ypns (45,2) 1 , ye1 1 ow) : 

I-- end j 

Lf (minorframeniim = 0 ) t_h_e_n_ 

-- begin 

sore := ' 

pcrtoiit (sorc , f rametxypos (45,2) I, ye1 1 ow) j 

F_c)EI_ I := 0 Io_ 4 gg 

B-6 
Page h 

of : SCANCHK. PAS 

TIMECII := ERBDATCI+21 ; 

di spl ayti me; 

EN_!? 5 

DIGE := ERBDATC61; 

ANALOG : = EREDATC71 ; 

analogint := analog j 

NDIGA := (ERBDATC141 _shl 8) _oy: EREDATE151 ; 

SDIGAC07 := (ERBDATC81 nsl 8 _oy: EREDATC91 ISHE 4 ; 

SDIGAC11 := ( ( (EREDATE91 AND 15) SH_L 8) OB ERBDATC10lj ; 

SDIGAC21 := (ERBDATC111 SH_L 4) _OE ( ERBDATC121 _SHE 4) ; 

SDIGAC31 := ((ERBDATC121 and 15)~;hl 8 gy ERFDATC131 j 

SDIEAC41 := (EREDATE161 8 _or EREDATC171 )_S_HF: 4; 

SDIGACSI := (((ERED4TC177 AND 15 ) Se_L 8) _OB EHBDATC181); 

SDIGAC61 := (ERBDATC193 S_W_L 4) _O_R (EHBDATC201 _S_H_R 4 > b 

SDIGAC71 :=(( EREDATE201 and 15) &l 8 gy: ERBDATC211 1 ; 

55ch := sdigaC61 j 

slch := sdigaC11 ; 

5tch := sdigaC21 ; 

scpos := sdigaC31 j 

RETURN: 

E_N_D_; .: OF DIVY 3 

Frocedure ScanFos : 

0,1,2 : b_e_qLi 

.: 

Calculate sum of space look data. 

2. 

Spacelook := Spacelook:: + SdigaC31 + SdigaC71 ; 

spacecaiint := spacecount + 2 : 

!?.Ed_ ; 

3: -- beqin r 

c 

Complete the sum of space look:: data and calculate average. 

2. 

Spacelaok:: := Spacelook:: + SdigaC31 + SdigaC7lj 

spacecount := spacecount + 2 ; 

Spacelook: := Spacelook:: d_gv_ 8 ; 

sm-c := 'SPACE 'j autput(s~rc,frameCxypo~(i7,2~lywhit~}; 

str (space1 auk: 5, 50t-c) j outpiit (sot-c f rametxypos ( 17,i 1) 3 ,green j 

I-- 

end j 

4: -- beqj,r_! - 

.: 

Get first and second Earth scan positions. 

B-7 
- Li .-;ti ng of : SCANCHK. PAS 

33'7 1 

3 0 # Sample9 := SdigaC31 j sampleit:) := sdigaC71 5 

3 (1) 9 sarc := 'Sample 9 ' j output(sorc,frameCxypos(17,21) ],white); 

3 1 (1) str (sample9:5,sorc) j output (sorc,frameCxypos(17,31i ],green) j 

31 1 --- end: 

313 35 : -- begin 

315 Get first internal cal position. 

314 .: 

31.7 1 

318 Sample71 := SdigaC31 j 

319 sorc P= 'Sample 71 ; ~utput~sorc,frameCxypaso3,white~; 

3 2 0 ; output (sorc , f rameCxypos ( 17,511 1, green ; 

.-Id. 1 

str (sampl e71 : 5, sorc ) 

end j T-, --I 

323 36: -- bagjn 

.:,4 .: 

325 Get 4th internal cal position. 

7- 

3 

Sample74 := SdigaC71 ; 

sm-c := 'Sample 74 ' : output (sorc,frameCxypos(17,615 3,whitej: 

str (sampl e74: 5, sorc ) j output (sort, f rameC:.: ypos ( 17,7 1 5 1 'i green ) 5 

writeln (lst,days:5,hrs:5,mins:3~secs:6:2,spaceca~~nt:4, 

space 1 oo I.: : 1 (3 , samp L e9 : 1 (1) , samp 1 e 1 (1) : 1 0 , samp 1 e7 1 : 1 0, samp 1 e74 : 1 0 5 j 

spacelook := (3 ; 

spacecount := 0 j 

--_- end; 

---- else besin gmrj; 

-. end; -- - .: of case I 

e_n_d_; .: of procedure 2. 

F:qOCEDURE DISPLAYACRO j 

I: INTEGER; 

ErEGIN 

txtfile := 'sorc.txt' j 

assign (txt,txtfile); 

reset (txt5 j 

att := 15 ; 

i : = #I:) j 

----- while --- not eof(txt) dg 

-- begin 

readln (txt ,sor-c5 ; 

sorc := sorc + ' 

putout (sarc,fr-ameCi 1 ,atti j 

9 

B-8 
Listing of: SCANCHK.PAS 

357 

358 

359 

369 

372 

396 

I BEGIN - .- -I - 

WRIVELN( ' ENTER SPACE CRAFT ID (9 OR 10) '1 

REAULN (IDNUPI) : 

IF IDNUM = 9 THEN ASSIGN(FL,'NOAAS.DAT') cES_E_ ASSIGN(FL, 'NOAAlO.D&T') j 

ESIF'L := 'OFF' ; 

RESET (FL) j 

STORINTC01 : = SCRNINTCOI ; .: SAVE F'RINT SCREEN VECTOR 3 

STOR'INTC11 := SCRNINTC11 ; 

SCRNINTC01 : = OFS (PRSTAT) j .: PLACE NEW VECTOR TO OUR ROUTINE 2. 

SCRNINTC13 := CSEG j 

NEWSCREEN ; SET UP 80 X 50 DISPLAY SCREEN 2. 

D I SPLAY ACRO ; .C DISPLAY ACRONYMS ON SCREEN 2. 

STATPR : = 0: 1 inenurn := 0; charncim:= 0; 

spacecount : = (3 ; 

spacelook := 0 j 

MINORFRAMENUM :" -1 5 

WRI'TELN (LST, ' SCAN CHECK FOR NOAA-' IDNUM: 2) ; 

-- repeat --- 

REEP: 

B-9 
Listing of : SCANCHK. PAS 

Fage 9 

408 

4 0 9 

4 1 0 

41 1 

412 

413 

414 

418 

419 

421 

422 

424 

425 

426 

427 

429 

43C) 

431 

432 

433 

434 

rewrite(f1) : 

gn&_o stop : 

--- end; 

-- if (key = 16 I then 

DIVY j .: EXTRCSCT USEFUL DATA FROM TIP MINOR FRAME MN 1 

I- if (minor-framenum ::.319) &h_en qotn bottom ; 

.[ Process sfan position data 3 

Scanpos : 

f Output mi nor-frame number- 2. 

str (minarframenum:5,sorc) j 

putout (snrc ,f rameCxypos (42,15) 1, whi te) j 

bottom: 

----- until eof(f1) j 

STOP : SCRN I NT C (I) I : = STOR I NT C (I I : 

SCRNINTClI := STORINTC11 j 

CLOSE(FL); 

OLDSCREEN ; 

END_. .E of IOCC disp program 9 

B-10 
APPENDIX C - ESMCAL 

ESMCAL (ERBS scanner mam calibration program) is used to 

determine the stability of the scanner detectors during solar 

transit. Sensor and temperature data are tabulated by this 

program and plots of the short wave and total channels are 

generated for the complete solar calibration time span. From 

this data, a time history was established to determine the 

stability of the detectors. 

c-1 
FL1RF'OSE : ESMCAL IS THE SHORTWAVE CHECX ONE 

STABILITY OF THE TOTAL AND SHORTWAVE ERBS 

SCANNER CHANNEL RLJRING A SOLAR CALIBRATION 

ESMCAL IS ERBS SCrrSNNER MAM CALI BRAT I ON PROGRAM. 

THIS GETS THE SOLAR CAL DATA FOR ALL THE THREE 

RADIOMETRIC CHANNEL-S DURING A SOLAR TRANSIT. 

THIS GETS A TABULATED FORM OF PRINT OUT OF THE 

SENSORS DATA AND A TABULATED FORM OF TEMPERATURE 

IN ENGINEERING UNITS.ALS0 GETS 2 PLOTS OF SSCH, 

STCH FOR THE WHOLE FERIOR DURING A SOLAR CAL.IERATICIN. 

FROM 'THIS DATA,TIME HISTORY WAS DONE TO SEE 

IF THE RESPONSE OF THE DETECTORS WERE CONSTANT 

OR CHANGING 

LANGUAGE : FORTRAN-5 

PROCEDURE: -rwE: : 

-ERE(S,ESMCALJ,DISC=F,SMMARY 

.PROC9ERBS,DISKF,SMM~RY,FIL=#DATA. 

REFORM,FIL. 

ROUTE , SCR, DC=:IN, STzRHA. 

REVERT. ESMCAFR I DATA. 

/JOB 

COMND , TXKK), CM77200. 

/IJSER 

/CHARGE 

GET USER1 . DELIVER. BIN15SlJ NATARAJAN 

GET, TAPE 1 =D 1 SKF I 

REWIND,TAFE1. 

ATTACH,LARCGOS/UN=LIBRARY,~A. 

GET, CARL.. I BS/UN=UT I L I 

GET ESMCAL. 

FTNS,I=ESMCAL. 

LDSET,LIB=CABLIHS. 

LDSET,LIB=LARCGOS,FRESETA=NGINF. 

LGO. 

REWIND,TAPEi1. 

REPLACE,TAPE11=SMMAKY. 

ROUTE,TAPEll,DC=LP. 

REPLACE,SAVPLT. 

PLOT,CALPQST,11(PAGE=1~,XM=.7,FSH=l~) 

CONT. //6OOA PERFORATED 8.5 X 11 ROLL PAPER 

C#NT. BLANK F'AFER BLACK INK GREEN INK RED INK 

CONT-PEN 1 - BLACK LEROY 3 

CONT'.FEN 2 - GREEN LEROY 3 

CONT.PEN 3 .- RED LEROY 3 

CONT PLEASE FOLD THESE PLOTS/ / 

DAYFILE,ERBSCM. 

REPLACE ,, ERBSOK. 

EXIT. 

UAYF 1 LE EHBSER 

REPLACE 7 ERBSER - 

c-2 
C 0 

00 

40 

NLn 

z 

7 

lx 

Ia 

a 

a 

< 

ZV 

c 

J 

nv) 

20 v)z 4 

V ..c 

II 

v) t 

z 

c 

Y 

k 

a 

a. 

CQ 

a9 

vvvuovvv 

V 

V + u*++***+* ***+*+*++ V 

V ~ 

V 

V 

V 

V 

V 

u 

V 

U 

V 

V 

V 

V 

V 

V 

V 

V 

V 

V 

C' 

V 

V 

u 

c: 

V 

V 

uc 

v3 

vn 

vt 

V3 

C't 

c1 

Lao 

I3 

I2 

c 

0 

Q 

n 

c 

u U 

lr v) * I ca LL u 

(na 

cz L 

U' L 

zm 

ua 

tU 

.. 

2 

c)cz 

U>H 

c 

PU 

vo L 

ff .C 

c u* n 

w IY 

vt4 UIU)u( 
c3 

4 

Q 

0 

9 

T 

c 

a 

v. 

F 

fI 

V 

-8 

v: 

t 

c 

llJ 

c 

A 

v) 

c 

L 

d 

L 

v) 

v) 

c 

E 

Q, 

t 

v) 

tc 

W 

t 

tVI 

t 

Is2 

x 

c 

VI 

m 

S 

V 

t 

v) 

0 

9 

I 

c; 

t 

y? 

m 

fI 

v 

c 

v, 

W 

u 

V 

V 

V 

V 

V 

V 

V 

W 

V 

V 

V 

V 

V 

V 

uvvvvvvvvvvvvvvv VVVVVU~ 
nt N c\i uvu 

uvv 

vvv 

44a 

V 

0 

m 

m 

z 

V 

V 

n 

0 

0 

.c 

r 

V 

V 

0 

a 0 

m 

PE 

C) 

V 

c 

a 0 

a 

m 

v) 

x 

v) 

z 

0 

8 

I 

ITI 

v) 

T L 

0 

a 

m 

m 

t 

r 

v) 

z 

0 

c 

c 

VI 

r 

cn 

z 

a 0 

t 

C 

-1 

v) 

z 

r 

0 

> 

CT 

c 

r 

C? 

z 

4 

+ 

n 

n 

U 

w 

uvv 

c-5 
v 

0: 

0 

t 

V 

UJ 

c 

UJ 

c 

m 

u 

X 

t 

U 

C 

m 

f- * 

0 

a * 

m 

Lu 

-I 

L 

E 

v) 

U 

0 

a 

la 

UJ 

I 

c 

Iu) 

a 

a 

vu 

-n 

wa 

u.2 

C. 

vvvuvuv 

c 

N + 

a 

Y 

In mLn 

rl 'Y $4 

%. 

c 

c cca z kZ 4 a 
In 

td 

d 

R: 

0 

a2 

0 

0 

\ 

on 

.nI- cccc 

A+ +”i-H++ + +r 

*om+ * + *ccc*-c & 

m 

LI 

V 

V 

C 

II 

m 

S 

V 

V 

C 

0 

0 
Q 

a 

0 

v) 

2 

U 

v) 

U 

U 

a 

c 

v) 

ff 

0 

k 

V 

U 

t 

Lu 

C 

U' 

I 

t 

U 

c? 

m 

r0 

9 

-h 

. 

v) 

z 

4 

V 

m 

LA 

n 

v, 

t 

Z 

3 

c 

u 

I 

CI 

4 + 

a 

c: 

a 

Yr 

Lu 

I- 

. 

IU 

W 

Q 

ZL 

W 

> 

4 

UJ 

T 

ttu) 

0 

il 

Q 

c 

V 

I& 

w 

(Y 

w 

T 

k0 

z 

Q 

n 

a 

u 

cx 

vu V V vuv v UUV vvv 
AI 

I 

IU 

c 

w 

U. 

3 

d 

0 

PW 

z 

U 

d 

Y 

U 

U 

c 

z 

w 

w 

3 

z 

t 

2 

0 

V 

Y 

c 

rl 

vtnvvv In vvv In In 

C 

In 

t 

0 

k 

4 

eC 

UJ 

a 

E 

c 

a 

m 

y: 

n 

r 

w 

tU 

t 

k 

DL 

3 

d 

9 vuv 

c-9 
Ly 

N 

-4 

NO 0 04 m 50 -4 

rn 

W 

W 

'3 

Q 

a 

I 

v) 

w 

H 

Iff 

. 

a2 

0 

I 

I 

I 

I 

Y 

C' 

0 

-I 

VI 

VI 

Lu 

0: 

n 

t 

a 

I 

I 

I 

U. 

x 

a 

z 

I 

W 

N 

U 

VI 

I 

1 

I 

I 

I 

000000 

m m m m pr n ddddd.-l 

- 

0 

00 

00 

(r3Dvvvu F,a 

c-10 
a 

a 

c 

0 

J 

U 

t 

U 

m 

p: 

t 

lu 

X 

c 

U 

c 

tu 

x 

CI 

t 

Lu 

T 

t 

vl 

t 

Ly 

0 

1u 

L.* 

Z 

I3 

ci 

ff 

3 

v) 

v) 

W 

I 

t 

m 

J 

V 

zVl 

LL: 

a 

" 

Lu 

Z 

Y 

t 

3 

0 

lY 

c3 

Z 

W 

-J 

-I 

V 

a 

vwvvw 

7 

Z 

U? 

I- z - u, c I 6 I- P- - 9 .-4 

m 

J k- 

.r -J 

t 

a t . U 

4 7 

6 

-7 0 

Z 

z 0 

0 

r 

. t n 

n 

ca 

a 

m 

ORIGRUC PAGE I!? 

OF WOR QUALITY 

z 

LL: 

f 

c 

d 

9 

9.4 

rt 

-J 

t 

0 

. 

a 

n 

-9 

9 

2 

L 

4 

. 

Ln 

Q 

pc 

vu vu 

, 
a ZW 

+I 

U2 

v) 

. 

I 

w -x 

cc 

0% 

r-lm 

rv, 

tV 

Q. 

CC 

w 

X 

0-4 

.nu 

Dl 

'r'r 

uz 

F-0 

I: 

x 

cl 

G. LL 

ov .All= z'rv) 

W 

z 

-1 

U 

I: 

v) 

W 

a 

" 

a 

r 

W 

c 

W 

-J 

U 

LL 

Lc. 

L 

II 

w 

> 

3 

Ia 

0 

I 

v) 

t 

w 

0 

a 

a 

a 

n 

r 

W 

t 

I: 

x 

-I 

t0 

t 

c 

LU 

0 

a 

a 

n 

2 

W 

I2 

t 

0 

t 

a 

vuvuvvv vvv vwu vwv vvv 

c- 12 

i 
cu 

Y 

c3 

e ti 

a0 

hl 

U 

9 + 

rl 

Ln 

z 

c 

U 

vu >v 

t 

0 

0 

d 

.AI 

N 

w 

cn 

I 

I 

I 

I 

I 

I 

I 

I 

I 

Lu 

Q * 

c 

I 

I 

t 

I 

w 

UI 

w 

c 

U 

KI 

a 

0 

m 

a. 

I 

I 

I 

I 

Y 

U 

0 

z 

I 

UI 

N 

M 

v) 

I 

I 

I 

I 

I 

I 

I 

1 

I 

cu 

a * 

II 

I 

I 

I 

I 

I 

I 

(0 

u1 

U 

t 

U 

L 

0- 

3 

0 

a 

I 

f 

I 

I 

1 

Y 

V 

-c a-l 

am 

01 

-I1 

lcn 

1- 

ow 

401 

ITt 0 

r~a 

dl 

et 

ai 

YUJ 

ar 

a4 

wz 

II 

I 

- 

000000000 

mmmmmmmmm 

d4rldrldl-44* 

\ 

r 

4 

IT 

\ 

\ 

4 

I: 

\ 

r 
0 

m 

vvuvvvv uvv d vvv V 

C-14 
v) 

UJ 

X 

a 

w 

I 

e 

3 

n 

Q 

a 

wv 

- 

X 

. 

rl 

- 

+ 

a 

Y 

k 

u 

. 

0 

VI 

r( 

a 

a 

n 

t 

Y. 

V 

a 

v) 

U' 

t 

IC 

2 

a 

a 

r 

V 

v) 

U: 

x 

4 

t 

OL 

w 

I 

c0 

z 

4 

3 

4 

U 

0 

0 

z 

4 

w 

za 

a 

U 

UJ 

I 

t 

z 

If 

t 

3 

C0 

-I 

a. 

LlJ 

Y 

I4 

I 

t 

c 

Ill 

v) 

U 

LL 

0 

vvv vvv 

4 

0 

0 

rl 

* 

0 

d 

4 

c 

N 

+ 

n 

U - 

v: 

0 

.c 

a 

a 

t 

c3 

I: 

r 

I 

V 

v) 

v, 

e 

r! 

-1 

a 

a 

v) 

W 

X 

4 

> 

0 

Q 

m 

3 

a! 

C 

c3 

z 

-a 

w 

r 

Q 

U 

LL: 

X 

c 

z 

I 

t 

3 

e 

0 

-I 

h 

IU 

I 

IC 

u 

v) 

U 

U. 

0 

a 

a 

I4 

H 

4 

0 

0 

r( 

4 

. 

s-4 

m 

cu 

+ 

a. 

c3 

v) 

rcI 

IC- 

-1 

0 

- 

4 

rl 

+ 

0 

h 

v, 

co 

t 

-I 

c 

4 

VI 

mm 

c 

- 

r- 

-0 

I4 

n 

m 

I 

0 

. 

0 

u vuu uuu 

4 

t 

C 

L. 

-1 

4 

U 

I 

tz 

U 

I 

V 

v, 

LI) 

IC 

-1 

n 

v vwv 
m 

t 

0 

-1 

a 

tu 

I 

+- 

-I 

UJ 

ot 

a. 

-J 

0 

+- 

-I 

U 

-1 

JJ 

LLI 

w 

m 

z 

I3 

0 

lz 

3 

(Ir 

0 

e 

-I 

-1 

V 

m 

a 

Lu 

LI 

U 

U 

t 

X 

w 

z 

a 

w 

I 

t 

= 

0 

LL 

c 

z 

k 

c 

0 

W 

c' 

z 

u 

rx 

Lv 

U 

ru 

dc 

3 

W 

z 

a 

I 

v1 

w 

-I 

a 

c 

v, 

U 

m 

L 

l-i 

4 

m 

0 

0 

rl 

4 

-4 

4 

F 

I 

V 

.I 

4 

. 

n L. 

cc (r, - 

I., m .. 1 00 . om- 

. 

e 

0 

v-4 

. 

0 

d 

. 

c 

h! + 

n 

C 

m 

II 

V 

-I 

m 

- 

.. - 

rl 

+ 

Y 

n 

Y 

c 

m 

4 

4 

4 

0 * 

0 

4 

d 

4 

n 

Y - m 

r- 1 

Id 

A4 

tnA 

vm 

C-16 
-1 

UJ 

z 

z 

I 

V 

-I 

U 

c 

0 

Ia 

lL 

I 

t 

t 

c 

-I 

p. 

0 

c 

t 

z 

0 

n 

c 

10 

V 

z 

Y 

w 

W 

U 

LLI 

u 

3 

W 

z 

a 

I 

cn 

U 

-1 

m 

a 

e 

v) 

UJ 

m 

4- 

. 

. 

-+ 

L 

N + 

n 

U 

X 

4 

r( 

- 

+ 

n 

u 

X 

- 

. 

. 

Ln 

r( 

. 

. 

0 

d 

a 

0 

d 

nJ + 

c. 

a 

I - 

m 

I 

V 

c 

w 

4 

d 

+ 

Q 

H 

m 

I 

V 

c 

vl 

0 

- 

. 

n 

. . . 0 

0-0 

-I 

u1 

z 

z 

U 

I 

V 

-1 

-z 

t 

c 

c 

UJ 

V 

a 

a. 

v) 

UJ 

I 

t- 

+ 

3 

-1 

n 

QRfGTWZ P&E I$. 

OF FOOR QUAfirrY 

U 

x 

Q 

U 

U 

c 

z 

1 

I3 

t 

0 

A 

a 

'U 

I 

c 

a 

r 

LI 

t. 

Lo 

U 

U 

c 

: 

t 

A 

D 

. - 

rl 

+ 

H 

t 

C 

9 

I- 

-1 

a 

- 

n 

4 

In 

.O .. 00- 0 - 4wo 

4 

t 

4 

c 

LT 

U 

IT 

-1 

t 

T 

t 

w 

I 

It 

c 

-1 

CL 

a 

vu vvv vvv vvv GVV vvv vvu 

- 

rl 

4 

. 

I 

0 

4 

9 

r( 

c 

-1 

-1 

V 

-1 

-I 

U 

u 

- 

n 

a 

C-17 
In 

Lu 

W 

4 

Q 

U 

I- 

-2 

c 

-1 

4 

W 

1 

Ik 

-1 

4: 

e 

0 

c 

Lu 

I 

I3 

4 

b: 

& -7 

n 

t 

I? 

-I 

a 

W 

L 

Id 

I& 

,r 

4 

J 

c 

Im 

-.I 

4 

-I 

Lu 

w 

I 

U 

t 

3 

0 

p: 

m 

3 

v) 

0 

e 

-1 

A 

4 

V 

U J 

n I -u2 e -I= 

uvu uvv vvwv 

ul 

N 

U 

v) 

I 

a 

a 

a 

I 

(3 

a 

a 

I 

a 

Qa 

I 

% 

r 

r 

2 

C 

I 

-I 

C 

0 

0 

a 

I 

a 

D 

G 

4 

! 

C-18 
y1 

N 

H 

v) 

I 

I 

I 

I 

I 

I 

I 

I 

I 

.AI 2dA-l a 4~~4: * LuutLuuI 

c 

I 

1 

I 

I 

I 

I 

I 

V. 

UJ 

hl 

d 

ut 

0 

4 

J 

6 

-J 

w 

m 

n 

Y 

2 

II 

U 

J 

W 

!U 

z 

W 

k 

3 

0 

OL 

m 

3 

v. 

W' 

e 

0 

-1 

a 

LLI 

I 

Iv) 

a 

a 

J 

&I 

U 

z 

vvuvv 

I 

I 

I u uu LLI ZCU4 I cwww Q Lv)V)> 

2 UUUU 

I 

I& 

N 

w 

(r: 

I 

I 

I 

I 

I 

I 

I 

I 

I 

,A 

a. 

t 

II 

I 

I 

I 

I 

I 

I 

v) 

UJ 

u 

c 

Q: 

LJ 

h 

C 

ff 

a. 

I 

1 

I 

I 

1 

Y 

V 

-CI 

ad 

.a2 

01 

dl - 

lv) 

IW 

a& 

rff 

ZQ 

0 

WU 

-11 

&I 

61 

ULU 

ox 

aa 

>z 

II 

I c-19 

I 

I 

I 

I 

I 

VI 

v) 

a 

J 

V 

I 

I 

I 

I 

I 

I 

m 

l3 

cz 

U 

I 

I 

I 

I 

-1 

*I 

031 

-n 

I* 

IC 

CnI 

Ul 

al 

-1 

&I 

v U' 

OI. 

n.4 

a-z 

II 

I 

ai 

-1w 

SI 

QRZGUWL PAGE IS. 

OF lWOR QUALITY 

I 
* 

00 

mpr 

*Fl Lu 

---J* 

00.4 

mm-c 

Lu 

N 

U 

VI 

I 

I 

I 

I 

I 

I 

I 

I 

I 

w 

n 

zc 

I 

I 

I 

I 

I 

I 

I 

v) 

W 

U 

e 

P 

W 

a 

0 

(L 

Q 

I 

I 

I 

I 

I 

Y 

V 

c 

2 

e 

t 

I 

v) 

m 

W 

I* 

0 

I 

I 

I 

Lu 

I: 

4 

z 

I 

a 

d 

UJ 

k 

CI 

m 

I 

I 

I 

I 

I 

I 

I 

1 

1 

Lu 

a 

t 

II 

I 

I 

I 

I 

I 

I 

v) 

w 

u + 

ff 

Lu 

n 

c 

w 

n. 

I 

I 

I 

I 

I 

Y 

V 

-0 

ad 

rm 

01 

d1 

Ivl 

Iv: 

QUI 

au 

xn a 

AI 

-1; 

:I 

uw 

Mac 

ae 

>f 

I1 

I 

0000000000 

mmmmmmmmmm 

d-(r(r)dAd.-4r),+d 

LLC LL 

000 

mrom 

r(dd 

I 

c-20 

J I 
APPENDIX D - SOLCA 

SOLCA determines the solar constant values for the EV 

channels and SMA channel. The solar constant values from EV 

channels are compared to SMA once every 2 weeks in order to 

calibrate/validate earth viewing channels. 

D-1 
FUNCTION : SOLCA GETS THE SOLAR CONSTANT VALUES BY THE EV 

CHANNELS AND SMA CHANNEL.SMA ARE USED AS STANDARDS. 

THE SOLAR CONSTANT VCSLUES FROM EV Ct-IANNELS ARE COMPARED 

TO SMA ONCE EVERY 2 WEEKS IN ORDER 'TO CALIERATE/VALIDATE 

E4RTH VIEWING CHCSNNELS, 

LANGIJAGE : FORTRAN-S 

PRCICEIDCIRE : TY PE : 

-NSCAN,NSCPROC 

. PROC, NSCAN. 

NOTE./THIS IS NONSCANNER PROCEDURE TO GET SOLAR SUMMARY/ 

GET, SCILCA. 

FTN5, I ==SOLCA L=LF. 

GET,TAPEl=NDATA. 

EET,TAPEZ!=TERBS. 

GET, TAPE34 1 (]DATAm 

LG13 s 

NOTE./TO GET A PRINTED OUTPUT OF SOLAR-CAL SUMMARY/ 

NOTE./ROUTE9TAPE4,DC=LP (FOR NOAA-9 SUMMARY I/ 

NOTE. /ROUTE, TAPES, DC=LF. (FOR ERBS SUMMARY) / 

NOTE /ROUTE, TAPE7, DC;-LP. (FOR NOAA- 10 SUMMARY 1 / 

REVERT, NSCAN. 
w 

W 

d 

cu 

m 

m 

0 

.n 

* 

c 

In 

I 

.I 

In\ 

cy. 

zul 

2 

v) 

. 

I 

m vlv) 

aI 

Irp 

n 

a 

V 

A 

0 

v, 

r 

a 

a 

cc 

0 

w 

a 

VI 

vvovvvvvvvvvuvvvv 

V 

V 

V 

vvvvvuvu vvvvovvvvvv V 

V 

u 

V 

u 

V JS V UIw V “v, 

V >>a V UJZ 

V 0Lcy.z Y 

CL 

ox Y 

oxo* aoooo 

UIdO-lO 

I- d AYY 

vuvvvuvvvvuvvvvvvvuvvv 

D-3 
N 

U 

Q + 

d 

. 

In 

z 

t 

u 

v) 

0 

I 

0 

1 

r 

. 

\ 

\ 

v) 

\ 

4 

m 

c3 

z 

3 

c 

lx 

4 

8 

e 

0 

. 

a 

0 

9 

a 

N 

rt 

PU 

V 

J 

0 

lA 

E 

6 

0 

0 

w 

P 

a 

vvvvv 

Y 

0 

U 

-I 

V 

W 

V 

V 

V 

V 

u 

0 

V 

u 

V 

V 

V 

V 

V 

u 

V 

V 

V 

u 

V 

u 

W 

V 

V 

V 

u 

u 

V 

V 

V 

V 

u 

V 

V 

V 

u 

u 

u 

V 

V 

V 

V 

W 

V 

V 

V 

V 

V 

V 

V 

V 

V 

V 

0 

V 

V 

V 

u 

V 

V 

V 

u 

u 

u 

V 

0 0 

0 r( 

vvvvvvvovv vvv r( I+ vuvvvvvvvv 

I 

-J 

W 

z 

Z 

4 

I 

V 

-I 

4 

t 

0 

IS 

3 

n 

d 

Llr 

L 

W 

r 

I0 

a 

U 

4 

w 

ff 

U 

Lu 

I 

e 

I 

4 

3 

Iff 

S 

VI 

S 

13 

U 

U 

W 

r 

a-a-a-tz 

- 

-I 

w 

z: 

2 

4 

I 

V 

-1 

u. 

c 

G 

c 

w 

0 

U 

3 

iu 

I 

e 

(L 

0 

LL 

a 

W 

a4 

W 

X 

t 
0 

0 

N 

- 

W 

V 

Z 

4 

t 

v) 

U 

v) 

W 

Ly 

-I 

W 

z 

Z 

6 

X 

u 

W 

> 

4 

3 

c 

w 

0 

I 

v) 

W 

0 

Y 

3 

W 

I 

c 

0 

2 

W 

z 

Z 

a 

r 

u 

W 

w 

4 

3 

t 

p: 

0 

I 

v) 

W 

b-l 

3 

ill 

I 

c 

Ly 

0 

LL 

4 

UI 

a 

4 

(u 

n 

I 

C 

o-pc 

m 

0 

W 

V 

2 

c 

v) 

I 

v) 

w 

Y 

-1 

Lu 

z 

2 

6 

TV 

Ly 

C 

c 

Z 

0 

x 

lx 

4 

2 

c 

v) 

LLi 

c 

a 

H 

I 

0 

X 

0 

UI 

> 

4 

3 

c 

0 

I 

v) 

W 

0 

1 

u1 

I 

C 

LL 

0 

U 

z 

0 

U 

VI 

v) 

CI 

I: 

v) 

'z 

4 

0 

c 

Lu 

I 

c 

a 

U 

W 

V 

Z 

4 

U 

0 * 

ey 

91 

U 

0 

t 

a 

t 

0 

3 

4 

LL 

Lu 

T 

t 

v) 

m 

'U 

V 

0 

Ly 

Q 

Q 

e 

V 

0 

p: 

p. 

(u 

z 

Y 

c 

3- 

CLL 

ac 

e? u 

3- 

WV 

c Off 

a 

en 

Lu 

N 

U 

IA 

I 

I 

I 

I 

I 

I 

1 

I 

I 

W 

Q 

> 

c 

I 

I 

I 

I 

I 

I 

I 

v\ 

y: 

H 

C 

0: 

W 

a. 

0 

a 

a. 

I 

In 9N 

I 

I 

I 

I 

I 

v, 

v, 

4 

-1 

V 

I 

I 

! i 

w 

I 

U 

t 

3 

C 

3 

v) 

a 

m 

D-5 
JJ 

a 

U 

a. 

lu 

m 

0 

0 

Ln 

rl 

0 

0 

.O 

00 

NVI 

-1 

ma 

on 

-4 

-4 

Q4 

t 

4 

c 

v) 

I 

z 

0 rl * 

ln 

z 

U 

4 

Q) 

4 

Lu 

X 

c 

v) 

m 

4 

0 

W 

u 

c 

Q + 

UJ 

ar 

U 

e 

r 

m 

a 

. 

0 4 

rl d 

vvvvvv l-4 l-4 d vvvuvvvv 
n 

0 

0 

N 

nl 

U 

Q 

+ 

A 

In 

z 

c 

LL 

. 

n 

Pm 

U 

Y 

tu 

4 

Pal 

U 

.r 

X 

tu 

a 

r0 

QD 

UUJ 

-3 

I-Z 

4H 

xc 

00 

UV 

o 

o 

az 

In 

40 

dmwvvv 

9 

rto 

rt*VVVVVV 

ln 

2 

w 

z 

z 

4 

I 

V 

3 

v) 

w 

I 

t 

z 

0 

z 

0 

P4 

~VVVVV 

d 

n 

W 

n 

a 

IU 

. 

C 

c 

II 

Q 

VI 

. 

U 

VI 

& 

Ly 

d 

-I 

e 

V 

- 

m 

0 

m 
(v 

m 

?r 

0 

m 

4 

0 

N 

\ 

m 

0 

\ * 

Q 

tu 

.? 

.o + 

rl 

In 

z 

c 

IL 

VI 

Q 

I 

0 

I 

\ 

aL 

\ 

v) 

\ 

U 

. 

7 

3 

0 

CI 

. 

a 

. 

r( 

c 

C 

0 

9 

W 

\ 

U 

Pn 

V 

0 

m 

& 

Lu 

Z 

U 

t3 

0 

6 

.3 

v) 

a 

UUIAL 

Y("W 

mrc~ 

oo* 

CLL 

V). 

0- 

Vd 

-u .urn m rP- 4 -mud0 

r( 0 

D-8 
N 

m 

N 

U 

9 + 

4 

In 

Z 

c 

LL 

cn 

n 

I 

c 

I 

IC 

4 

\ 

\ 

rn 

\ 

a 

8 

0 

5 

C 

U 

4 

d 

W 

c 

C 

n 

0 

9 

43 

\ 

U 

rV 

c. 

0 

Lu 

I: 

U 

t3 

0 

p: 

a? 

-2 

v 

a 

J 

. 

X 

J 

. 

4 

U 

U 

. nxv)Nd 

ma. 

3d.r 

a .U. 

449 4 

v)J 4uI 

t-x 4 

LOuId 

am . .4AU - 4 .u 

n-ux d 

9 

LL 

X 

0 

cu * 

A 

9 

U 

. 

0 

. 

. 

t 

r 

2 

a 

m 

4 

IT 

r 

2 

m 

. 

c 

Q 

v) 

3 

m 

n 

m 

. 

c 

v) 

L 

.. 

9 - 

n 

m 

v) 

. 

4 

d 

U 

U 

., 

X 

N 

. 

d 

on 

uILM 

*a 

x-l 

do 

4- 

4- 

-4 

ax 

u-l 

44 

xhl 

d. 

4u 

-u 

0. 

0 

0 

Q) 

uuw vwwv w 

n 0 h 
m 

Y 

'9 

4 

n 

ry 

m 

. 

3 

0 

. 

n 

4 

. 

0 

tu 

\ 

'A 

0 

\ 

PD 

tu 

U 

9 + 

4 

. 

In 

z 

c 

U 

LA 

n 

1 

4 

0 

I 

\ 

z 

3 

c 

c 

9 

\ 

U 

ra 

V 

0 

8. 

W 

2 

Y 

I3 

c 

M 

u3 

3 

v) 

a 

I 

00 

Od 

WOO 

W*U 

,-.* 

h 

c 

v 

I 

I 

I 

1 

I 

I 

t 

I 

I 

LJ 

n 

2. 

c 

I 

4 

I 

I 

I 

I 

I 

wl 

'U 

H 

IlY 

.AI 

n 

0 

& 

n 

I 

I 

I 

I 

I 

Y 

V 

0 

-I 

m 

I 

8 

v) 

v) 

Lu 

p? 

n 

0 

4 

I 

I 

I 

UJ 

x 

z 

I 

a 

W 

hl 

Y 

v) 

I 

I 

I 

I 

I 

I 

I 

I 

I 

W 

a. 

2. 

II 

I 

I 

I 

I 

I 

I 

v) 

Lu 

U 

Iw 

W 

n 

c 

a! 

n 

I 

I 

I 

I 

I 

Y 

0 

-0 

-2 

I01 

dl 

c. 

IZ 

nu 

xn n 

W4 

dl 

=I 

-1 

uw 

nIc 

>Z 

II 

I 

QRIGIW PAGE I3 

OF RXIR QUAUTY 

c3 

c* 

a 

I 

t 

S 

r 

3 

0 

. . U U 

\ \ 

L L 

t 

v) 

4 

\ 

n 

\ 

a 

4 

w 

c 

\ 

D-10 
U' 

hr 

c 

(I, 

I 

I 

I 

I 

I 

I 

I 

I 

w 

n * 

c 

1 

I 

I 

I 

I 

I 

I 

v) 

'0 

Y 

LLI 

'3 

p. 

a 

N 

m 

. 

'> 

0 

0 

A 

c 

Dc 

w 0 

-0 

00 

n 

0 

Qc 

n 

I 

I 

I 

I 

I 

Y 

V 

0 

m 

I 

I 

v) 

v) 

w 

a 

0 

0 

4 

I 

I 

I 

w 

L 

a 

z 

I 

UJ 

N 

U 

v) 

I 

I 

I 

I 

I 

I 

I 

I 

I 

*a 

a * 

C 

I 

I 

- 

W 

4 

t 

U 

U 

0 

Y 

a 

rm 0 

4 

cc 

r 

a 

LL; 

z UZ U 

c-c r 

x 

Ci 

V . 

uty\ 

NN 

vvo rtrl 

wz 

II 

I 
U 

h' 

w 

VI 

I 

1 

I 

I 

I 

I 

I 

I 

I 

a 

4.l 

> 

cu 

W 

a. 

a 

FI 

I 

1 

I 

1 

I 

I 

v) 

N 

m 

0 

0 

in 

.-I 

0 

00 

00 

NIn 

a 

0 

(Y 

n 

I 

I 

I 

I 

I 

Y 

u 

0 

-r 

rn 

I 

I 

v) 

(CI 

UI 

OI 

n 

n 

a 

I 

I 

I 

w 

c 

a 

z 

I 

c 

b 

la ..

1 

m 

a 

3 

a 

a 

., 

wl 

C 

3 

m 

., 

a 

m 

c 

S 

a 

4 

c 

n 

w 

N 

U 

v) 

I 

I 

w 

P 

> 

C 

I 

CV 

am 

cc 0 

VI 

m 

Q: 

LL: 

i CI 

In 

U 

- VI 

W 

Y + 

n 

n 

n 

Y) 

0 

P 

1 

++ rl 

-3 

0 

UQIn 

OQU 

-ON 

0-0 

In 

.. mim m Ln 2 

& 

3 

WZ 

OZUJ 

cn 

.. 

2 

w 

X 

3 

W 

U 

n 

n 

Q 

0 

t 

v) 

n 

w 

4 

a 

L 

nn 

drl 

ULL 

c.u i Y 

O 0 

I& 

0 

m 

rl 

rl 

rl 

lu, 

Iv, 

nw 

aa 

LO. 

dNm In U 0 

d 

rlN 

rlr( 

9 

d 

r-5 

dd 
.. 0 

00 

00 

Nul 

-m 

m-1 

00 

4 

3 

v) 

ut 

0 

8 

- 

u 

8 

luX 

N 

r( 

I 

4 

.+ 

lu4 

X 

N 

4 * 

.r 

rU 

a 

X 

N 

$4 

a 

.f 

0 

rU 

-e 

lnx 

4N 

4-4 

m4 

u* 

a* 

-PHIL 

uk-X 

Vrec. - =I0 

:% 

d 

w 

z 

z 

I 

a 

1 

m 

m 

ux 

9 

d 

I 

0 

4 

- 

0 

d 

4 

x 

U 

d 

4 

m 

0 

- 

0 

U 

3 

0 

4 

X 

94 

d 

4 

+ 

0 

t 

8 

Lu 

n 

W 

3 - 

* 

X 

N 

r) * 

v) 

z 

0 

Y 

I- * 

a 

m 

a 

U 

-1 

U 

- 

U 

w 

m 

Y 

4 

t 

u 

a 

0 

rx 

CL 

C 

C 

S 

a 

m 

4 

w 

a 

U 

c 

L 

. 

u 

Q: 

c3 

a 

W 

x 

W 

z 

U 

c 

3 

c 

ff 

a2 

3 

cn 

OL 3 a v) 

t * +* 00 

00 

00 

N cn 

0 

0 0 mom 0 0 

ml-l dNru m rl 

IU-4 

zt-4 vvvvv m 
0 

00 

00 

(urn 

v) 

a 

0 

U 

UI 

I 

-1 

W 

z 

z 

a 

I 

V 

a 

4 

a 

0 

v) 

Lu 

Lu 3- n It VI 

u c - 2 N H 

a p. 

W 

slu z W U 

Z c U 3 I-c 

3u 

C 

a VI m U 

3x 

VI In n 

a -- 4 Q4Z 

-1 mx3 c -mv, VI 4.- - XI. 

4 mmx x 4a.p- m--x * - *oY;w- 0- owt-z Ok04 0 

ot~nau 

MU *v)xlu: 

N 

I-4 

v) 

I 

1 

I 

1 

I 

I 

la: 

I& 

IO 

WLU 

CLC 

*7 

I- c1 

I 

I 

I 

I 

I 

I 

I 

VI 

+* aa 

SI 

a= 

00 

LLU 

mm 

PnO 

rlN 

00 

00 

00 

dcu 

I 

I 

v) 

u 

U 

tv) 

M 

IU 

c 

VI 

I 

1 

D-14 
Standard Bibliographic Page 

W. Edmonds and S. Natarajan 

ST Sys tems Corporation (STX) 

28 Research Drive 

3. Performing Organization Name and Address 

Hampton, VA 23666 

12. Sponsoring Agency Name and Address 

NASA Langley Research Center 

Hampton, VA 23665 

1. Report No. 2. Government Accession No. 3. Recipient’s Catalog No. 

NASA CR-178350 

10. Work Unit No. 

665-45-30-01 

11. Contract or Grant No. 

NAS 1-1 7 8 5 1 

13. Type of Report and Period Covered 

Contractor Report 

14. Sponsoring Agency Code 

1. Title and Subtitle 15. Reuort Date 

19. Security Clayif.(of this report) 20. Security Classif.(of this page) 21. No. of Pages 

Unclassified Unclassified 91 

Data Analysis and Software Support for the 

Earth Radiation Budget Experiment 

22. Price 

A05 

7. Author(s) 8. Performing Organization Report No. 

Langley Technical Monitor: D. E. Hinton 

16. Abstract 

Computer programming and data analysis efforts were carried 

out under this contract in support of the Earth Radiation Budget 

Experiment (ERBE) at NASA/Langley. In this final report there 

will be a brief description of ERBE followed by sections 

describing software development and data analysis for both prelaunch and post-launch instrument 

17. Key Words (Suggested by Authors(s)) 

ERBE 

ERBS 

NOAA-9 

NOM- 10 

data. 

18. Distribution Statement 

Unclassified - Unlimited 

Subject Category 61 

NASA Langley Form 63 (June 1985)