function sxig12_satpix,image0,ext1_hdr1,satarr

dummy_list=float(image0 eq 1023)
dummy_list=smooth(dummy_list,3)
dummy=where(dummy_list gt 0., pix_count)

if pix_count gt 0 then begin
  ext1_hdr1=sxi_sxmodpar(ext1_hdr1,'NAXIS2',pix_count)
  satarr=intarr(2,pix_count)
  satarr(0,*)=dummy mod 512
  satarr(1,*)=fix(dummy/512)
endif else begin
  ext1_hdr1=sxi_sxmodpar(ext1_hdr1,'NAXIS',0)
  sxdelpar,ext1_hdr1,'NAXIS1'
  sxdelpar,ext1_hdr1,'NAXIS2'
endelse
return,pix_count

end