PRO HOUSE ;+ ; ; NAME: ; HOUSE ; PURPOSE: ; Read and display the housekeeping data set data ; from the time ordered lists ; CATEGORY: ; Verification ; CALLING SEQUENCE: ; HOUSE ; INPUTS: ; None ; OPTIONAL INPUT PARAMETERS: ; None ; OUTPUTS: ; None ; OPTIONAL OUTPUT PARAMETERS: ; None ; KEYWORDS: ; None ; COMMON BLOCKS: ; None ; SIDE EFFECTS: ; None ; RESTRICTIONS: ; None ; EXAMPLE: ; HOUSE ; PROCEDURE: ; Read in the temperature source list and plot to screen ; Read in the ADC offset, gain, and Aux and CPU voltage list and plot ; Read in the queues and stack and plot ; Read in the temperatures over the mission and plot to screen ; MODIFICATION HISTORY: ; Created by Laura Ellen Dafoe 14 June 1994 ; Tested by Laura Ellen Dafoe on test log: descent1 on 26 June 1994. ; Manually read in each array and compared it to the plotted ; values. ; ;---------------------------------------------------------------------------- ; D I S R S O F T (C) 1 9 9 4 ;----------------------------------------------------------------------------- ;- !psym=10 rdcls,time,raw,conv,files window,1,title='Temperature Source Calibration' plot,time,conv,xtitle='Time (sec)',ytitle='Temperature Source Current (A)',$ yrange=[0,0.005] rdadc,time,raw,conv,files window,2,title='ADC Offset and Gain, Aux and CPU Voltages' plot,time,conv(*,0),xtitle='Time (sec)',ytitle='Voltage (V)',yrange=[0,13],line=0 oplot,[10,405],[11,11],line=0 xyouts,415,11,'ADC Offset' oplot,time,conv(*,1),line=1 oplot,[10,405],[10.5,10.5],line=1 xyouts,415,10.5,'ADC Gain' oplot,time,conv(*,2),line=2 oplot,[10,405],[10,10],line=2 xyouts,415,10,'Aux Voltage' oplot,time,conv(*,3),line=3 oplot,[10,405],[9.5,9.5],line=3 xyouts,415,9.5,'CPU Voltage' rdstk,time,stack,files window,3,title='Stacks and Queues' plot,time,stack(*,4),xtitle='Time (sec)',ytitle='Stack/Queue Value',yrange=[0,3000] oplot,time,stack(*,1) oplot,time,stack(*,2) oplot,time,stack(*,3) oplot,time,stack(*,0) xyouts,100,2600,'DISP '+string(min(stack(*,0)))+string(max(stack(*,0))) xyouts,100,2400,'ALARM '+string(min(stack(*,1)))+string(max(stack(*,1))) xyouts,100,2200,'TLM '+string(min(stack(*,2)))+string(max(stack(*,2))) xyouts,100,2000,'SCI PROC '+string(min(stack(*,3)))+string(max(stack(*,3))) col1range=[100,800] col2range=[1900,2700] rdtmp,'t08irtmp.list',time,raw,conv,files z_time=size(time) num=z_time(1)-1 window,4,title='Temperatures' plot,time,conv,xtitle='Time (sec)',ytitle='Temperature (K)',$ yrange=[-150,350],ystyle=1,line=0 oplot,col1range,[-140,-140],line=0 xyouts,col1range(1)+15,-140,'IR' rdtmp,'t09ccdlg.list',time,raw,conv,files z_time=size(time) num=z_time(1)-1 oplot,time,conv,line=1 oplot,col1range,[-125,-125],line=1 xyouts,col1range(1)+15,-125,'CCD Lug' rdtmp,'t10strap.list',time,raw,conv,files z_time=size(time) num=z_time(1)-1 oplot,time,conv,line=2 oplot,col2range,[-140,-140],line=2 xyouts,col2range(1)+15,-140,'Thermal Strap' rdtmp,'t11optic.list',time,raw,conv,files z_time=size(time) num=z_time(1)-1 oplot,time,conv,line=3 oplot,col2range,[-125,-125],line=3 xyouts,col2range(1)+15,-125,'Optics' rdtmp,'t12auxbd.list',time,raw,conv,files z_time=size(time) num=z_time(1)-1 oplot,time,conv,line=4 oplot,col1range,[-110,-110],line=4 xyouts,col1range(1)+15,-110,'Aux Board' rdtmp,'t13shbox.list',time,raw,conv,files z_time=size(time) num=z_time(1)-1 oplot,time,conv,line=5 oplot,col2range,[-110,-110],line=5 xyouts,col2range(1)+15,-110,'SH Box' rdtmp,'t14eabox.list',time,raw,conv,files z_time=size(time) num=z_time(1)-1 oplot,time,conv,line=0 oplot,col1range,[-95,-95],line=0 xyouts,col1range(1)+15,-95,'EA Box' rdtmp,'t15ccdcp.list',time,raw,conv,files z_time=size(time) num=z_time(1)-1 oplot,time,conv,line=1 oplot,col2range,[-95,-95],line=1 xyouts,col2range(1)+15,-95,'CCD Chip' rdtmp,'t16vitmp.list',time,raw,conv,files z_time=size(time) num=z_time(1)-1 oplot,time,conv,line=2 oplot,col1range,[-80,-80],line=2 xyouts,col1range(1)+15,-80,'Violet' RETURN END