--+------------------------------------------------------------------------+ --+ SOHO Project -- Control File --+ ---------------------------- --+ --+ Name : MDI_EMI2 , !Proc_s , !Print --+ Purpose : (See Procedure headers) --+ --+ Sub_system : PLM --+ Drawing No : 3137-ZA042-SCB Issue : A/00 --+ Project No : SH-MAR-SW-70224 --+ Origin : UK --+ Author : Jon B. CARTER --+------------------------------------------------------------------------+ --+ Principle : --+ --------- --+ Holding CF for a group of related Procedures, originally written in --+ MDI's own Control File language. --+ --+ Passed parameters : --+ ----------------- --+ !Proc_s : Name of required Procedure. --+ !Print : CF Log print indicator ( "yes" (default) | "no" ). --+ --+ Prerequisites : --+ ------------- --+ --+ Control File MDI_ON must have been successfully performed. --+ --+ History : --+ ------- --+ Issue SIC Note Time Date Name/Updates --+ +---+ +------+ +---+ +------+ +-------------------------------------+ --+ 1/00 211 20:33 19/01/94 A.J. TURK -- Conversion from MDI language --+ 1/02 360 17:39 19/04/94 Ed COBB -- Rationalization --+ 1/03 393 08:58 12/05/94 Ed COBB/Ph. IATRINO -- MDI Updates --+ --+------------------------------------------------------------------------+ Common Var Bool !GZ_Window -- Open window flag (on CF start) Bool !GZ_Spool -- Automatic Spool (at End of CF exec) Bool !GZ_Halt -- Check Error flag (to halt if error) Bool !GZ_Test -- Execution test flag (to not send TC) Int !GZ_Trace -- Level of Trace (TBD) Int !GM_Conf -- MDI Configuration Int !GM_NbErr -- MDI Global Error Count End Common -------------------------------------------------------------------------------< Extern Cfile PLM_BLOCK Group MWTM , PWP12TM Procedure AskReal , AskStr , AskInt Procedure CheckAna , CheckDig , CheckReg Procedure CheckArgReal , CheckArgStr , CheckArgInt Procedure DispMess Procedure ExConnect , ExDisconnect Procedure ExitCF Procedure Message Procedure OpenWindow Procedure PrintAna , PrintDig , PrintReg , PrintParam Procedure SendCommand Procedure Lower , Upper Procedure WaitAna , WaitDig , WaitReg , WaitTime End Extern -------------------------------------------------------------------------------< Program MDI_EMI2 , Unique Defarg Str(80) !Proc_s Str(3) !Print = "yes" End Defarg Var Str( 3) !ExpName = "MDI" Int !NbErr = 0 Str(49) !Title = " " str(80) !S = &80s("") Main @OpenWindow() Select !Proc_s Case "emi2" @emi2() Default !Title = "*ERROR: UNKNOWN PROCEDURE: "+!Proc_s @Message("DCL" , "date" , !ExpName , " " , !Title , *!S) -- Beep Halt !Title = "*Operator CONTinue" @Message("DC" , "date" , !ExpName , " " , !Title , *!S) Return !Rstat End Select @ExitCF (!NbErr) @PrintCF ( !ExpName , !Print ) Return !Rstat End Program ----------------------------------------------------------------------------------< Procedure emi2 ( ) --. --. This procedure forms part of the spacecraft EMC testing --. Var Str( 3) !ExpName = "MDI" str(80) !S = &80s(" ") Str(10) !Phase = " " Str(49) !Title = " " Int !NbErr = 0 Main !Title = "-EXECUTING PROCEDURE: emi2." @Message( "DCL" , "date" , !ExpName , !Phase , !Title , *!S ) @varcmd ( "MBDPML" , "0X1000 , 0X88 , 0X63D2 , 0X0000 , " + \ "0X9200 , 0XE800 , 0X9203 , 0X7802 , 0xf200" ) @varcmd ( "MBDPML" , "0X1000 , 0X96 , 0X478E , 0X3700 , " + \ "0XFF00 , 0X0010 , 0X3782 , 0XFF00 , 0x0020" ) @varcmd ( "MBDPML" , "0X1000 , 0XA4 , 0X488E , 0X1200 , " + \ "0XFF00 , 0X0030 , 0X3882 , 0XFF00 , 0x0040" ) @varcmd ( "MBDPML" , "0X1000 , 0XB2 , 0X4D72 , 0XF200 , " + \ "0X478E , 0X1300 , 0XFF00 , 0X0010 , 0x3782" ) @varcmd ( "MBDPML" , "0X1000 , 0XC0 , 0XFF00 , 0X0020 , " + \ "0X488E , 0X7D00 , 0XFF00 , 0X0030 , 0x3882" ) @varcmd ( "MBDPML" , "0X1000 , 0XCE , 0XFF00 , 0X0040 , " + \ "0X4D72 , 0X9200 , 0X7003 , 0X9200 , 0x0a08" ) @varcmd ( "MBDPML" , "0X1000 , 0XDC , 0X9200 , 0XFC1F , " + \ "0X920F , 0XF41D , 0XEA0F , 0XEA1A , 0xb01b" ) @varcmd ( "MBDPML" , "0X1000 , 0XEA , 0X8003 , 0X8007 , " + \ "0X0FEE , 0X03FD , 0X98F6 , 0X0203 , 0x7f36" ) @varcmd ( "MBDPML" , "0X1000 , 0XF8 , 0X0300 , 0X03C0 , " + \ "0X92F2 , 0XC004 , 0XA003 , 0X0304 , 0x0390" ) @varcmd ( "MBDPML" , "0X1000 , 0X106 , 0XB004 , 0X8001 , " + \ "0X8007 , 0X0FEE , 0X03FD , 0X98F6 , 0x0203" ) @varcmd ( "MBDPML" , "0X1000 , 0X114 , 0X9D36 , 0X0300 , " + \ "0X03C0 , 0X92F2 , 0XC004 , 0XA003 , 0x0304" ) @varcmd ( "MBDPML" , "0X1000 , 0X122 , 0X0390 , 0X9A04 , " + \ "0X241A , 0X9A00 , 0X121B , 0XE800 , 0x0608" ) @varcmd ( "MBDPML" , "0X1000 , 0X130 , 0X00B7 , 0X0508 , " + \ "0X6A00 , 0X00B9 , 0XEA08 , 0X921B , 0x0a08" ) @varcmd ( "MBDPML" , "0X1000 , 0X13E , 0XEA00 , 0X721A , " + \ "0X0061 , 0X00FA , 0x0000" ) @varcmd ( "MBDPML" , "0X1000 , 0X1068 , 0X0000 , 0X0000 , " + \ "0X0000 , 0X0000 , 0X0000 , 0X0000 , 0x0000" ) @varcmd ( "MBDPML" , "0X1000 , 0X1076 , 0X0000 , 0X0001 , " + \ "0X0000 , 0X4040 , 0X4040 , 0X36AA , 0x572c" ) @varcmd ( "MBDPML" , "0X1000 , 0X1084 , 0X12AA , 0x4e1a" ) !GM_NbErr = !GM_NbErr + !NbErr !Title = "-FINISHED PROCEDURE: emi2." @Message( "DCL" , "date" , !ExpName , !Phase , !Title , *!S ) Return End Procedure -------------------------------------------------------------------------------< Procedure varcmd( Str(10) !Cmd_name , Str(80) !Cmd_data ) Var Str(1) !Expt_s Int !Code_i Int !Cmd_data_i(30) Int !No_of_cmds_i Int !Data_len_i Str(10) !Data_item_s Int !Commas_i Int !Count Int !Char_pos Str(1) !Char Str(49) !Title = " " Str(80) !Cmd_data_s Str(80) !S = &80s("") Main !Expt_s = Extract( !Cmd_name , 1 , 1 ) If !Expt_s <> "M" Then !Title = "*ERROR: Non-MDI Command " + !Cmd_name @Message( "DC", "time", "MDI", " ", !Title , *!S) -- Beep Halt !Title = "+Operator CONTinue " @Message( "DC", "time", "MDI", " ", !Title , *!S) End If Select !Cmd_name Case "MBIPCMD" !Code_i = 0x0E !No_of_cmds_i = 0 Case "MBIPLDIN" !Code_i = 0x12 !No_of_cmds_i = 1 !Cmd_data_i(0) = 4 Case "MBDPML" !Code_i = 0x0A !No_of_cmds_i = 0 Case "MBDPCONF" !Code_i = 0x1D !No_of_cmds_i = 0 Default !Title = "*ERROR: Unrecognised Command " + !Cmd_name @Message( "DC", "time", "MDI", " ", !Title , *!S) -- Beep Halt !Title = "+Operator CONTinue " @Message( "DC", "time", "MDI", " ", !Title , *!S) Return End Select !Cmd_data_s = !Cmd_data + "," !Data_len_i = Len( !Cmd_data_s ) !Commas_i = 0 For !Char_pos = 1 to !Data_len_i !Char = Extract( !Cmd_data_s , !Char_pos , 1 ) If !Char = "," Then !Commas_i = !Commas_i + 1 End If End For For !Count = 1 To !Commas_i !Data_item_s = Splitstr( !Cmd_data_s , "," , !Count ) !Cmd_data_i( !No_of_cmds_i ) = Int( Val( !Data_item_s ) ) !No_of_cmds_i = !No_of_cmds_i + 1 End For PERFORM/NO PLM_BLOCK , "MDI" , !Code_i , !Cmd_data_i() , !No_of_cmds_i @WaitTime ("00h00m02s", *!S) Return End Procedure ----------------------------------------------------------------------------------< Procedure PrintCF( str(3) !ExpName, str(8) !Print) --. Print the control file log file if required by !Print ; --. - using the 'Spool' statement if the variable !GZ_Spool is TRUE, --. - using the dialog box window if the variable !GZ_Spool is FALSE. --. Var str(80) !S = &80S("") Main If !Print = "yes" Then If !GZ_Spool = TRUE Then Spool CF Else Cflog @Message( "DC", "date", !ExpName, " ", \ "++++Print the CFLog, then type CONT+++", *!S) Halt @Message( "DC", "date", !ExpName, " ", \ "+Operator continue.", *!S) End If End If Return End Procedure -----------------------------------------------------------------------