;** works with dacs archived files - LASSC96....
;** plot_tai_jumps, '960828'
; @(#)plot_tai_jumps.pro	1.1 01/23/98 :LASCO IDL LIBRARY
;
PRO PLOT_TAI_JUMPS,fname, DOSTOP=dostop, NOUT=nout

   fname = 'LASSC'+fname+'*'
   obt_off = 24

      files = FINDFILE(fname)
      FOR f=0, N_ELEMENTS(files)-1 DO BEGIN
         ap = READ_TM_PACKET(files(f))
         aobt = ap(obt_off:obt_off+5,*)
         asysp = ap(0:11,*)
         IF (f GT 0) THEN obt = CONCAT2D(obt,aobt) ELSE obt = aobt
         IF (f GT 0) THEN sysp = CONCAT2D(sysp,asysp) ELSE sysp = asysp
      ENDFOR

   tai = obt2tai(obt)
   dte = utc2str(tai2utc(tai),/ecs,/truncate)
   tod = (obt(5,*)+256L*(obt(4,*)+256L*(obt(3,*)+256L*obt(2,*))))/32

   diff = tai - shift(tai, -1)
   diff = diff(0:N_ELEMENTS(diff)-2)
   tod = reform(tod)
   utc = tai2utc(tai)
   IF KEYWORD_SET(NOUT) THEN PLOT, diff, yr=[-40,40] ELSE BEGIN
      tai1996 = utc2tai(str2utc('1996/01/01'))
      tai1999 = utc2tai(str2utc('1999/01/01'))
      good = WHERE(tai GT tai1996)
      utc = utc(good) & diff = diff(good)
      good = WHERE(tai LT tai1999)
      utc = utc(good) & diff = diff(good)

      utplot, utc, diff, yr=[-40,40], timerange=[utc(0),utc(N_ELEMENTS(utc)-1)]
   ENDELSE

   IF KEYWORD_SET(DOSTOP) THEN STOP

END