function cnvrt_cmd_dest,da
;+
; NAME:
;	CNVRT_CMD_DEST
;
; PURPOSE:
;	This function converts LEB command destination address codes to a 
;	string.
;
; CATEGORY:
;	LASCO PACKETS
;
; CALLING SEQUENCE:
;	Result = CNVRT_CMD_DEST (Da)
;
; INPUTS:
;	Da:	An integer giving the command destination address code to be 
;		converted
;
; OPTIONAL INPUTS:
;	None
;	
; KEYWORD PARAMETERS:
;	None
;
; OUTPUTS:
;	This function returns a string containing the conversion of the 
;	destination address code.
;
; OPTIONAL OUTPUTS:
;	None
;
; COMMON BLOCKS:
;	None
;
; SIDE EFFECTS:
;	None
;
; RESTRICTIONS:
;	None
;
; PROCEDURE:
;	defines from lcf.h
;
; EXAMPLE:
;
; MODIFICATION HISTORY:
; 	Written by:	RA Howard
;
;	@(#)cnvrt_cmd_dest.pro	1.1 01/27/98 LASCO IDL LIBRARY
;-
;
;

case da of
'61'x:	s = 'PCE   '	   ; PROM card executive             
'62'x:	s = 'TCE   '	   ; Telecommand executive          
'63'x:	s = 'OBE   '	   ; Observation program executive 
'64'x:	s = 'ICE_A '	   ; Instrument Controller side A 
'65'x:	s = 'ICE_B '	   ; Instrument Controller side B  
'67'x:	s = 'PERIPH'	   ; Cameras, Fabry-Perot         
'68'x:	s = 'GROUND'	   ; command source was telecommand
else:	s = string(da,format='("0x",z4.4)')
endcase
return,s
end