[D

	/LoadSW [P	
		[A LoadFlag]	% LoadFlag = False -> Check only if Files are existing 	
			/MCSWFileName 'MCSW1100' def
			/MCTreeFileName 'MCTr1100' def	

    		/Result #1 def
   			/MissingFile '' def

			%define IsHCElo		
			/IsHCElo EloType $0010 and 0 eq def
			IsHCElo [B
				/HCString 'HC' def
			][B
				/HCString 'LC' def					
			] ifelse

			/SWFile MCDir '\' add MCSWFileName add def
			/SWFile SWFile '_' add def
			/SWFile SWFile 'DSW' add EloSWVersion cvs add def
			/SWFile SWFile '_V' add MCSWVersion cvs add 'S' add MCSWSubVersion cvs add def 
			MCSWBetaInfo '' ne [B
				/SWFile SWFile '_' add MCSWBetaInfo add def
			] if
			/SWFile SWFile '.HX2' add def

			/TreeFile MCDir '\' add MCTreeFileName add def
			/TreeFile TreeFile '_' add def
			/TreeFile TreeFile 'DSW' add EloSWVersion cvs add def
			/TreeFile TreeFile HCString add def
			/TreeFile TreeFile '_V' add MCTreeVersion cvs add 'S' add MCTreeSubVersion cvs add def 
			MCTreeBetaInfo '' ne [B
				/TreeFile TreeFile '_' add MCTreeBetaInfo add def
			] if
			/TreeFile TreeFile '.HX2' add def

			/DefaultParFile MCDir '\' add MCTreeFileName add def
			/DefaultParFile DefaultParFile '_' add def
			/DefaultParFile DefaultParFile 'DSW' add EloSWVersion cvs add def
			/DefaultParFile DefaultParFile HCString add def
			/DefaultParFile DefaultParFile '_V' add MCTreeVersion cvs add 'S' add MCTreeSubVersion cvs add def 
			MCTreeBetaInfo '' ne [B
				/DefaultParFile DefaultParFile '_' add MCTreeBetaInfo add def
			] if
			/DefaultParFile DefaultParFile '.GR3' add def


			% check if files are existing
			Result [B
				SWFile FileExist not [B
					/Result #0 def 
					/MissingFile SWFile def
				] if
			] if
				
			Result [B
				TreeFile FileExist not [B
					/Result #0 def 
					/MissingFile TreeFile def
				] if
			] if
			Result [B
				DefaultParFile FileExist not [B
					/Result #0 def 
					/MissingFile DefaultParFile def
				] if
			] if



			Result LoadFlag and [B
				'Erasing MC firmware sector...' log     
				2 TalkIntf.ClearInstanceAll
				'Downloading MC software...' log
		    	SWFile dup loadobj exch PackInst:DownloadHX2File
				'Downloading MC parameter tree...' log     		
		    	TreeFile dup loadobj exch PackInst:DownloadHX2File		
				'Updating UPID list...' log
		    	TalkIntf.UpdateUPIDList       
				'Downloading MC default parameters...' log
				DefaultParFile dup loadobj exch PackInst:DownloadGR3File					
			] if
	   	[A /MissingFile /Result]
	]
]