pro sci5k_dataseg, sttim, entim
;
;
;;    sttim = '6-aug-96 20:00'
;;    entim = '6-aug-96 21:00'
;
    sttim = fmt_tim(sttim)
    entim = fmt_tim(entim)
    tarr = anytim2ex(sttim)
    fid = ex2fid(tarr)
    strec = gt_time(sttim)/1000.  *24/15.           ;24 packets per major frame (15sec)
    enrec = gt_time(entim)/1000.  *24/15.           ;24 packets per major frame (15sec)
    ;
    strec = strec > 0 < 138239
    enrec = enrec > 0 < 138239
    infil = concat_dir(getenv('MDI_SCI5K_DIR'), strmid(fid, 0, 6) + '.sci')




rec=rd_hk(infil, strec, enrec)
n = n_elements(rec)
b1=fix(rec.hk(2:*), 0, 384/2, n)
brec=unsign(b1,16)
ss  = where(brec eq 'aa55'x, nss)
help,ss
dpc = lonarr(nss)
for i=0,nss-1 do dpc(i) = long(fix(brec(ss(i):ss(i)+20)),30)
udpc=dpc(uniq(dpc,sort(dpc)))
print,udpc,format='(8z9.8)'

ss2=where(dpc eq '2e000000'x,nss2)
tim = anytim2ints('1-jan-70', off=rec(ss(ss2)/192).time*1D)
prstr, fmt_tim(tim)
;
for i=0,nss2-1 do begin
    print, fmt_tim(tim(i))
    ist=ss(ss2(i))
    ;print, brec(ist:ist+19), format='(8z5)'
    print, brec(ist+19:ist+19+15*5-1), format='(5z5)'
end
;
end