PRO PLOT_BOOT_SOURCE, hk
; @(#)plot_boot_source.pro	1.1 01/23/98 :LASCO IDL LIBRARY
;

offset=15		; in words for hk array in words
offset=12		; in bytes for hk array in bytes, offsets past LOBT
;
IF (!D.NAME EQ 'PS') THEN BEGIN
   DEVICE, /PORTRAIT, XOFFSET=0.2, YOFFSET=0.2, XSIZE=7.5, YSIZE=10, /INCHES
ENDIF

hk3 = gethkn(hk,3)
getcputime,hk3,first,time,cdstime=utc

!x.title = 'Local CPU Time'
!y.title = 'Boot Source'
!p.multi=[0,1,4,0,1]

off = offset+2*(94-2)		; offset to LEB Boot status information
;s = tmpoint(hk3,offset+98-1,'000f'xl)
s = fix(hk3(off+2*5+1,*)
utplot,utc,s,title='PCE',yrange=[-1,5], $
ytickname=['','','BP','EE','','',''],yticks=6,ytickv=[-1,0,1,2,3,4,5], psym=0

;s = tmpoint(hk3,offset+97-1,'000f'xl)
s = fix(hk3(off+2*4+1,*)
utplot,utc,s,title='TCE',yrange=[-1,5], $
ytickname=['','','BP','EE','PRI','ALT',''],yticks=6,ytickv=[-1,0,1,2,3,4,5], psym=0

;s = tmpoint(hk3,offset+95-1,'000f'xl)
s = fix(hk3(off+2*2+1,*)
utplot,utc,s,title='ICE-A',yrange=[-1,5], $
ytickname=['','','BP','EE','','',''],yticks=6,ytickv=[-1,0,1,2,3,4,5], psym=0

;s = tmpoint(hk3,offset+96-1,'000f'xl)
s = fix(hk3(off+2*3+1,*)
utplot,utc,s,title='ICE-B',yrange=[-1,5], $
ytickname=['','','BP','EE','','',''],yticks=6,ytickv=[-1,0,1,2,3,4,5], psym=0

s = fix(hk3(off+2*1+1,*)
utplot,utc,s,title='OBE',yrange=[-1,5], $
ytickname=['','','BP','EE','','',''],yticks=6,ytickv=[-1,0,1,2,3,4,5], psym=0

;s = tmpoint(hk3,offset+88-1,'0040'xl)
;utplot,utc,s,title='LEB SIDE',yrange=[-1,5], $
;ytickname=['-1','0','1','2','3','4','5'],yticks=6,ytickv=[-1,0,1,2,3,4,5], psym=0
;stop

!p.multi = 0
!x.title = ''
!y.title = ''
empty
return
end