[D

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

  		/Result #1 def
 			/MissingFile '' def

			/SWFile FilePath MCDir add '\' add MCSWFileName add def
			/SWFile SWFile 'S' add EloSWVersion 16 cvrs 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 FilePath MCDir add '\' add MCTreeFileName add def
			/TreeFile TreeFile 'S' add EloSWVersion 16 cvrs add def
			/TreeFile TreeFile PowerExtension 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 FilePath MCDir add '\' add MCTreeFileName add def
			/DefaultParFile DefaultParFile 'S' add EloSWVersion 16 cvrs add def
			/DefaultParFile DefaultParFile PowerExtension 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]
	]
]