;---------------------------------------------------------------------------
; Document name: ST_COMP_OBJ.PRO
; Created by:    Liyun Wang, NASA/GSFC, October 21, 1996
;
; Last Modified: Mon Oct 21 18:41:10 1996 (LWANG@sumop1.nascom.nasa.gov)
;---------------------------------------------------------------------------
;
FUNCTION st_comp_obj, obj_file, tki_udp_stc
;+
; PROJECT:
;       SOHO - CDS/SUMER
;
; NAME:
;       ST_COMP_OBJ()
;
; PURPOSE: 
;       Compare if two object codes are the same
;
; CATEGORY:
;       ST_SUMER
; 
; SYNTAX: 
;       Result = st_comp_obj(obj_file, tki_udp_stc)
;
; INPUTS:
;       
;
; OPTIONAL INPUTS: 
;       None.
;
; OUTPUTS:
;       None.
;
; OPTIONAL OUTPUTS:
;       None.
;
; KEYWORDS: 
;       None.
;
; COMMON:
;       None.
;
; RESTRICTIONS: 
;       None.
;
; SIDE EFFECTS:
;       None.
;
; HISTORY:
;       Version 1, October 21, 1996, Liyun Wang, NASA/GSFC. Written
;
; CONTACT:
;       Liyun Wang, NASA/GSFC (Liyun.Wang.1@gsfc.nasa.gov)
;-
;
   ON_ERROR, 2
   OPENR, unit, obj_file, /GET_LUN
   fst = FSTAT(unit)
   same = 1
   IF fst.size EQ N_ELEMENTS(tki_udp_stc.obj) THEN BEGIN
      a = BYTARR(fst.size)
      READU, unit, a
      same = compare_var(a, tki_udp_stc.obj)
   ENDIF ELSE BEGIN
      same = 0
   ENDELSE
   FREE_LUN, unit
   RETURN, same
END


;---------------------------------------------------------------------------
; End of 'ST_COMP_OBJ.PRO'.
;---------------------------------------------------------------------------