--+-------------------------------------------------------------------------------+ --+ SOHO Project -- Control File --+ ---------------------------- --+ --+ Name : MDI_LDBIP , !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 : F --+ Author : Ph. IATRINO --+-------------------------------------------------------------------------------+ --+ 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 : --+ ------------- --+ - --+ --+ History : --+ ------- --+ Issue SIC Note Time Date Name/Updates --+ +---+ +------+ +---+ +------+ +---------------------------------------------+ --+ 1/00 611 14:26 20/06/95 Ph. IATRINO -- Creation for New On Board S/W. --+ --+-------------------------------------------------------------------------------+ 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_NbErr -- MDI Global Error Count Int !GM_Conf -- MDI Configuration Str(80) !GM_S0 Str(80) !GM_S7 Str(80) !GM_S8 Int !GM_I0 Int !GM_I1 Int !GM_I9 End Common ----------------------------------------------------------------------------------+ Extern 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_LDBIP , Unique Defarg Str(80) !Proc_s Str(3) !Print = "yes" End Defarg Var Str( 3) !ExpName = "MDI" Str(49) !Title = " " Str(80) !S = &80s(" ") Int !NbErr = 0 Main @OpenWindow() Select !Proc_s Case "lipcnfg" @lipcnfg() Case "liplbic3" @liplbic3() Case "liplbic4" @liplbic4() Case "liplbic5" @liplbic5() Case "lipoff" @lipoff() Case "lipona" @lipona() Case "liponb" @liponb() Case "lipreset" @lipreset() Case "liptlm2" @liptlm2() 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 ldbip () --. Loads Heritage Load Replacement Programs Var Str( 3) !ExpName = "MDI" Str(10) !Phase = " " Str(49) !Title = " " Str(80) !S = &80s(" ") Main !Title = "-EXECUTING PROCEDURE: ldhlrp." @Message ("DCL", "date", !ExpName, !Phase, *!S) @ipimgld() @lrbin4x4() @SendCOmmand ( "MBIPLDIN", "0x0154") @SendCommand ( "MBIPLDIN", "0x0091,0x0000,0x1F00") @SendCommand ( "MBIPLDIN", "0x0136") @SendCommand ("MBIPLDIN", "0x0140,0x0020,0x0005") @SendCommand ("MBIPLDIN", "0x0140,0x0021,0x0000") @SendCommand ("MBIPLDIN", "0x0140,0x003D,0x0000") !Title = "-FINISHED PROCEDURE: ldhlrp." @Message ("DCL", "date", !ExpName, !Phase, *!S) Return End Procedure ------------------------------------------------------------------------------ Procedure ipimgld () Var Str( 3) !ExpName = "MDI" Str(10) !Phase = " " Str(49) !Title = " " Str(80) !S = &80s(" ") !Title = "-EXECUTING PROCUDURE: hlrp." @Message ("DCL", "date", !ExpName, !Phase, !Title, *!S) Main @varcmd ("MBIPLDIN", "0x0154") @varcmd ("MBIPCMD" , "0x0091,0x1F00,0x01AE,0x0020,0x0003,0x1F0D") @varcmd ("MBIPCMD" , "0x0091,0x1F04,0x01AE,0x0020,0x0004,0x1F2C") @varcmd ("MBIPCMD" , "0x0091,0x1F08,0x01AE,0x0020,0x0005,0x1F4B") @varcmd ("MBIPCMD" , "0x0091,0x1F0C,0x01FC") @varcmd ("MBIPCMD" , "0x0091,0x1F0D,0x01B2,0x00A8,0x0002,0x0000,0x0000," + \ @varcmd ("MBIPCMD" , "0x0091,0x1F12,0x01B2,176,8,0x0514,0," + \ "0,0x3800,0x0400,0x0400,0x0410,168") @varcmd ("MBIPCMD" , "0x0091,0x1F1D,0x01B2,0x0DF8,0x0002,0xFFFF,0xFF14," + \ @varcmd ("MBIPCMD" , "0x0091,0x1F22,0x017A,0x00B0") @varcmd ("MBIPCMD" , "0x0091,0x1F24,0x01B2,0x0DF2,0x0002,0x0000,0x0010," + \ @varcmd ("MBIPCMD" , "0x0091,0x1F29,0x0156,0x1FA1") @varcmd ("MBIPCMD" , "0x0091,0x1F2B,0x01FC") @varcmd ("MBIPCMD" , "0x0091,0x1F2C,0x01B2,0x00A8,0x0002,0x0000,0x0000," + \ @varcmd ("MBIPCMD" , "0x0091,0x1F31,0x01B2,176,8,0x1E94,6," + \ "0,0x3800,256,256,1040,168") @varcmd ("MBIPCMD" , "0x0091,0x1F3C,0x01B2,0x0DF8,0x0002,0xFFFF,0xFF13," + \ @varcmd ("MBIPCMD" , "0x0091,0x1F41,0x017A,0x00B0") @varcmd ("MBIPCMD" , "0x0091,0x1F43,0x01B2,0x0DF2,0x0002,0x0000,0x0001," + \ @varcmd ("MBIPCMD" , "0x0091,0x1F48,0x0156,0x1FA1") @varcmd ("MBIPCMD" , "0x0091,0x1F4A,0x01FC") @varcmd ("MBIPCMD" , "0x0091,0x1F4B,0x01B2,0x00A8,0x0002,0x0000,0x0000," + \ @varcmd ("MBIPCMD" , "0x0091,0x1F50,0x01B2,0x0330,8,0x0514,0," + \ "0,0x2000,0x0400,0x0400,0x0410,168") @varcmd ("MBIPCMD" , "0x0091,0x1F5B,0x017A,0x0330") @varcmd ("MBIPCMD" , "0x0091,0x1F5D,0x01B2,0x0320,11,0,0x2000," + \ "0,0x2800,0x0400,4,0x0400,256,16,1,168") @varcmd ("MBIPCMD" , "0x0091,0x1F6B,0x01D4,0x0320") @varcmd ("MBIPCMD" , "0x0091,0x1F6D,0x01B2,0x00AA,0x0002,0x8000,0x0000," + \ @varcmd ("MBIPCMD" , "0x0091,0x1F72,0x01B2,0x00B0,0x0003,0x2800,0x0000,0x3000") @varcmd ("MBIPCMD" , "0x0091,0x1F78,0x01B2,0x00B3,0x0005,0x0000,0x0004," + \ "0xFE00,0x880F,0x00A8") @varcmd ("MBIPCMD" , "0x0091,0x1F80,0x01D0,0x00B0") @varcmd ("MBIPCMD" , "0x0091,0x1F82,0x0148,0x00A8,0x00AA,0x00AC") @varcmd ("MBIPCMD" , "0x0091,0x1F86,0x0142,0x00AC,0x00A8") @varcmd ("MBIPCMD" , "0x0091,0x1F89,0x0142,0x00AD,0x00A9") @varcmd ("MBIPCMD" , "0x0091,0x1F8C,0x01B0,0x00B2,0x3001,0x1F78") @varcmd ("MBIPCMD" , "0x0091,0x1F90,0x01B2,0x0DF8,0x0002,0xFFFF,0xFF12," + \ @varcmd ("MBIPCMD" , "0x0091,0x1F95,0x0164,0,0x3000,0,0x3800,0,1") @varcmd ("MBIPCMD" , "0x0091,0x1F9C,0x01B2,0x0DF2,0x0002,0x0000,0x0001," + \ @varcmd ("MBIPCMD" , "0x0091,0x1FA1,0x015A,0x0C05,0x1FF5") @varcmd ("MBIPCMD" , "0x0091,0x1FA4,0x0186,0x0134,0x0000,0x000C") @varcmd ("MBIPCMD" , "0x0091,0x1FA8,0x01B2,0x0DEE,0x0002,0x0000,0x3800," + \ @varcmd ("MBIPCMD" , "0x0091,0x1FAD,0x01AE,0x0021,0x0000,0x1FD4") @varcmd ("MBIPCMD" , "0x0091,0x1FB1,0x01B2,0x0DF0,0x0002,0x0226,0x6000," + \ @varcmd ("MBIPCMD" , "0x0091,0x1FB6,0x8166,0x0DEE") @varcmd ("MBIPCMD" , "0x0091,0x1FB8,0x01B2,0x0DF4,0x0003,0x0001,0x0000,0x6000") @varcmd ("MBIPCMD" , "0x0091,0x1FBE,0x0142,0x003D,0x0DF7") @varcmd ("MBIPCMD" , "0x0091,0x1FC1,0x015A,0x003D,0x1FCC") @varcmd ("MBIPCMD" , "0x0091,0x1FC4,0x019C,0x0DF4") @varcmd ("MBIPCMD" , "0x0091,0x1FC6,0x0174,0x0001,0x6000,0x0DF2") @varcmd ("MBIPCMD" , "0x0091,0x1FCA,0x0156,0x1FF5") @varcmd ("MBIPCMD" , "0x0091,0x1FCC,0x019C,0x0DF4") @varcmd ("MBIPCMD" , "0x0091,0x1FCE,0x0174,0x0003,0x6000,0x0DF2") @varcmd ("MBIPCMD" , "0x0091,0x1FD2,0x0156,0x1FF5") @varcmd ("MBIPCMD" , "0x0091,0x1FD4,0x01B2,0x0DF0,0x0002,0x0226,0x4000," + \ @varcmd ("MBIPCMD" , "0x0091,0x1FD9,0x8166,0x0DEE") @varcmd ("MBIPCMD" , "0x0091,0x1FDB,0x01B2,0x0DF4,0x0003,0x0001,0x0000,0x4000") @varcmd ("MBIPCMD" , "0x0091,0x1FE1,0x0142,0x003D,0x0DF7") @varcmd ("MBIPCMD" , "0x0091,0x1FE4,0x015A,0x003D,0x1FEF") @varcmd ("MBIPCMD" , "0x0091,0x1FE7,0x019C,0x0DF4") @varcmd ("MBIPCMD" , "0x0091,0x1FE9,0x0174,0x0001,0x4000,0x0DF2") @varcmd ("MBIPCMD" , "0x0091,0x1FED,0x0156,0x1FF5") @varcmd ("MBIPCMD" , "0x0091,0x1FEF,0x019C,0x0DF4") @varcmd ("MBIPCMD" , "0x0091,0x1FF1,0x0174,0x0003,0x4000,0x0DF2") @varcmd ("MBIPCMD" , "0x0091,0x1FF5,0x01FC") @varcmd ("MBIPLDIN", "0x0136") !Title = "-FINISHED PROCEDURE: hlrp." @Message ("DCL", "date", !ExpName, !Phase, !Title, *!S) Return End Procedure ----------------------------------------------------------------------------------+ Procedure lrbin4x4 () --. Loads Linear Rebinning List to sum 4 pixels. Var Str( 3) !ExpName = "MDI" Str(10) !Phase = " " Str(49) !Title = " " Str(80) !S = &80s(" ") Int !NbErr = 0 Main Title = "-EXECUTING PROCEDURE: lrbin4x4." @Message ("DCL", "date", !ExpName, !Phase, !Title, *!S) @varcmd ("MBDPML" , "0x2000,0x0000,0x01D0,0x0400,0,0x04,0,0,0,0") @varcmd ("MBDPML" , "0x2000,0x0010,0,0,0,0,0,0,0,0") @varcmd ("MBDPML" , "0x2000,0x0020,0x0000,0x0000,4,2048,14,1") @varcmd ("MBDPML" , "0x2000,0x002C,0x2000,0x0000,4,2048,14,1") @varcmd ("MBDPML" , "0x2000,0x0038,0x4000,0x0000,4,2048,14,1") @varcmd ("MBDPML" , "0x2000,0x0044,0x6000,0x0000,4,2048,14,1") @varcmd ("MBDPML" , "0x2000,0x0050,0xFFFF,0xFFFF,4,2048,14,1") @varcmd ("MBIPTBL", "9,0xFE00,0x880F,0,0,0x2000," + \ "0x01D0,400,400,224,0,0,0x1800,0,0,0x1000,0x4000,0") Title = "-FINISHED PROCEDURE: lrbin4x4." @Message ("DCL", "date", !ExpName, !Phase, !Title, *!S) Return End Procedure ----------------------------------------------------------------------------------+