[D /LoadSW [P [A LoadFlag] % LoadFlag = False -> Check only if Files are existing /IntfSWFileName 'IntfSWCmdTabIO_' def /IntfTreeFileName 'IntfTrCmdTabIo_' def /Result #1 def /MissingFile '' def /SWFile FilePath IntfSel.IntfDir add '\' add IntfSWFileName add EloTypeExt add def /SWFile SWFile '_V' add IntfSel.IntfSWVersion cvs add 'S' add IntfSel.IntfSWSubVersion cvs add def IntfSel.IntfSWBetaInfo '' ne [B /SWFile SWFile '_' add IntfSel.IntfSWBetaInfo add def ] if /SWFile SWFile '.HX2' add def /TreeFile FilePath IntfSel.IntfDir add '\' add IntfTreeFileName add EloTypeExt add def /TreeFile TreeFile '_V' add IntfSel.IntfTreeVersion cvs add 'S' add IntfSel.IntfTreeSubVersion cvs add def MCTreeBetaInfo '' ne [B /TreeFile TreeFile '_' add IntfSel.IntfTreeBetaInfo add def ] if /TreeFile TreeFile '.HX2' add def /DefaultParFile FilePath IntfSel.IntfDir add '\' add IntfTreeFileName add EloTypeExt add def /DefaultParFile DefaultParFile '_V' add IntfSel.IntfTreeVersion cvs add 'S' add IntfSel.IntfTreeSubVersion cvs add def IntfSel.IntfTreeBetaInfo '' ne [B /DefaultParFile DefaultParFile '_' add IntfSel.IntfTreeBetaInfo 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 interface firmware sector...' log 3 TalkIntf.ClearInstanceAll 'Downloading interface software...' log SWFile dup loadobj exch PackInst:DownloadHX2File 'Downloading interface parameter tree...' log TreeFile dup loadobj exch PackInst:DownloadHX2File 'Updating UPID list...' log TalkIntf.UpdateUPIDList 'Downloading interface default parameters...' log DefaultParFile dup loadobj exch PackInst:DownloadGR3File ] if [A /MissingFile /Result] ] ]