--+--------------------------------------------------------------------------------+ --+ SOHO Project -- Control File --+ ---------------------------- --+ Name : MDI_PTRK , !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 : --+ ----------------- --+ !Print : CF Log print indicator ( "yes" (default) | "no" ). --+ --+ Prerequisites : --+ ------------- --+ - --+ --+ History : --+ ------- --+ Issue SIC Note Time Date Name/Updates --+ +---+ +------+ +---+ +------+ +----------------------------------------------+ --+ 1/00 611 10:15 21/06/95 Ph. IATRINO -- New On Board S/W. --+ 1/01 611 20:02 21/06/95 J.B.B. -- 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_NbErr -- MDI Global Error Count End Common -----------------------------------------------------------------------------------+ Extern Cfile PLM_BLOCK Group MWTM , PWP12TM Procedure WaitAna , WaitDig , WaitReg , WaitTime Procedure DispMess , ExitCF , Message , OpenWindow Procedure PrintAna , PrintDig , PrintReg , PrintParam Procedure CheckArgReal, CheckArgStr, CheckArgInt Procedure AskReal , AskStr , AskInt Procedure CheckAna , CheckDig , CheckReg Procedure Lower , Upper Procedure SendCommand End Extern -----------------------------------------------------------------------------------+ Program MDI_PTRK , Unique Defarg Str(3) !Print = "yes" End Defarg Var Str( 3) !ExpName = "MDI" Str(49) !Title = " " Str(80) !S = &80s(" ") Int !NbErr = 0 Main @OpenWindow() @runptrk() @ExitCF (!NbErr) @PrintCF (!ExpName , !Print ) Return !Rstat End Program -----------------------------------------------------------------------------------+ Procedure runptrk () Var Str( 3) !ExpName = "MDI" Str(10) !Phase = " " Str(49) !Title = " " Str(80) !S = &80s(" ") Int !NbErr = 0 Main !Title = "-EXECUTING PROCEDURE: runptrk." @Message ("DCL", "date", !ExpName, !Phase, !Title, *!S) @SendCommand ("MBDPMOD", "1") @varcmd ("MBIPCMD", "0x0091,1,0x0100") @varcmd ("MBIPCMD", "0x0091,0,0x0100") @varcmd ("MBIPMACL", "2,0x0105,0x0105,0x0105,0x0105,0x0105,0x0105") @varcmd ("MBIPMACL", "9999,0x0105,0x0105,0x0105,0x0105,0x0105,0x0105") @varcmd ("MBIPMACL", "9999,0x0105,0x0105,0x0105,0x0105,0x0105,0x0105") @varcmd ("MBIPMACL", "9999,0x0105,0x0105,0x0105,0x0105,0x0105,0x0105") @varcmd ("MBIPMACL", "9999,0x0105,0x0105,0x0105,0x0105,0x0105,0x0105") @varcmd ("MBIPMACL", "9999,0x0105,0x0105,0x0105,0x0105,0x0105,0x0105") @varcmd ("MBIPMACL", "9999,0x0105,0x0105,0x0105,0x0105,0x0105,0x0105") @varcmd ("MBIPMACL", "9999,0x0105,0x0105,0x0105,0x0105,0x0105,0x0105") @varcmd ("MBIPMACL", "9999,0x0105,0x0105,0x0105,0x0105,0x0105,0x0105") @varcmd ("MBIPMACL", "9999,0x0105,0x0105,0x0105,0x0105,0x0105,0x0105") @varcmd ("MBIPMACL", "9999,0x0105,0x0105,0x0105,0x0105,0x0105,0x0105") @varcmd ("MBIPMACL", "9999,0x0105,0x0105,0x0105,0x0105,0x0105,0x0105") @varcmd ("MBIPMACL", "9999,0x0105,0x0105,0x0105,0x0105,0x0105,0x0105") @varcmd ("MBIPMACL", "9999,0x0105,0x0105,0x0105,0x0105,0x0105,0x0105") @varcmd ("MBIPMACL", "9999,0x0105,0x0105,0x0105,0x0105,0x0105,0x0105") @varcmd ("MBIPMACL", "9999,0x0105,0x0105,0x0105,0x0105,0x0105,0x0105") @varcmd ("MBIPMACL", "9999,0x0105,0x0105,0x0105,0x0105,0x0105,0x0105") @varcmd ("MBIPMACL", "9999,0x0105,0x0105,0x0105,0x0105,0x0105,0x0105") @varcmd ("MBIPMACL", "9999,0x0105,0x0105,0x0105,0x0105,0x0105,0x0105") @varcmd ("MBIPMACL", "9999,0x0105,0x0105,0x0105,0x0105,0x0105,0x0105") @varcmd ("MBIPMACL", "9999,0x0105,0x0105,0x0105,0x0105,0x0105,0x0105") @varcmd ("MBIPMACL", "9999,0x0105,0x0105,0x0105,0x0105,0x0105,0x0105") @varcmd ("MBIPMACL", "9999,0x0105,0x0105,0x0105,0x0105,0x0105,0x0105") @varcmd ("MBIPMACL", "9999,0x0105,0x0105,0x0105,0x0105,0x0105,0x0105") @varcmd ("MBIPMACL", "9999,0x0105,0x0105,0x0105,0x0105,0x0105,0x0105") @varcmd ("MBIPMACL", "9999,0x0105,0x0105,0x0105,0x0105,0x0105,0x0105") @varcmd ("MBIPMACL", "9999,0x0105,0x0105,0x0105,0x0105,0x0105,0x0105") @varcmd ("MBIPMACL", "9999,0x0105,0x0105,0x0105,0x0105,0x0105,0x0105") @varcmd ("MBIPMACL", "9999,0x0105,0x0105,0x0105,0x0105,0x0105,0x0105") @varcmd ("MBIPMACL", "9999,0x0105,0x0105,0x0105,0x0105,0x0105,0x0105") @varcmd ("MBIPMACL", "9999,0x0105,0x0105,0x0105,0x0105,0x0105,0x0105") @varcmd ("MBIPMACL", "9999,0x0105,0x0105,0x0105,0x0105,0x0105,0x0105") @varcmd ("MBIPMACL", "9999,0x0105,0x0105,0x0105,0x0105,0x0105,0x0105") @varcmd ("MBIPMACL", "9999,0x0105,0x0105,0x0105,0x0105,0x0105,0x0105") @varcmd ("MBIPMACL", "9999,0x0105,0x0105,0x0105,0x0105,0x0105,0x0105") @varcmd ("MBIPMACL", "9999,0x0105,0x0105,0x0105,0x0105,0x0105,0x0105") @varcmd ("MBIPMACL", "9999,0x0105,0x0105,0x0105,0x0105,0x0105,0x0105") @varcmd ("MBIPMACL", "9999,0x0105,0x0105,0x0105,0x0105,0x0105,0x0105") @varcmd ("MBIPMACL", "9999,0x0105,0x0105,0x0105,0x0105,0x0105,0x0105") @varcmd ("MBIPMACL", "9999,0x0105,0x0105,0x0105,0x0105,0x0105,0x0105") @varcmd ("MBIPMACL", "9999,0x0105,0x0105,0x0105,0x0105,0x0105,0x0105") @varcmd ("MBIPMACL", "9999,0x0105,0x0105,0x0105,0x0105,0x0105,0x0105") @varcmd ("MBIPMACL", "9999,0x0105,0x0105") @ptrack6a () @varcmd ("MBIPLDIN", "0x01B2, 2048, 3, 0, 0x3811, 0") @varcmd ("MBIPLDIN", "0x01EC, 2048") @SendCommand ("MBDPFLGS", "0, 8, 0") @SendCommand ("MBDPFLGS", "16,0xFFFF, 0") @varcmd ("MBIPLDIN", "0x0134") @varcmd ("MBIPLDIN", "0x0140, 188, 1") @SendCommand ("MBSQSTR", "0") !Title = "-FINISHED PROCEDURE: runptrk." @Message ("DCL", "date", !ExpName, !Phase, !Title, *!S) Return End Procedure -----------------------------------------------------------------------------------+ Procedure ptrack6a () Var Str( 3) !ExpName = "MDI" Str(10) !Phase = " " Str(49) !Title = " " Str(80) !S = &80s(" ") Main !Title = "-EXECUTING PROCUDURE: ptrack6a." @Message ("DCL", "date", !ExpName, !Phase, !Title, *!S) @varcmd ("MBIPLDIN", "0x0154") @varcmd ("MBIPCMD", "0x0091,0x0100,0x0140,0x00BA,0x0000") @varcmd ("MBIPCMD", "0x0091,0x0103,0x0156,0x010A") @varcmd ("MBIPCMD", "0x0091,0x0105,0x0140,0x00BA,0xFFFF") @varcmd ("MBIPCMD", "0x0091,0x0108,0x0156,0x010A") @varcmd ("MBIPCMD", "0x0091,0x010A,0x01AE,0x00BC,0x0000,0x0123") @varcmd ("MBIPCMD", "0x0091,0x010E,0x01B2,0x0200,0x0006,0x0000,0x6000,0x0000") @varcmd ("MBIPCMD", "0x0091,0x0114,0x6800,0x0014,0x0000") @varcmd ("MBIPCMD", "0x0091,0x0117,0x01B2,0x0218,0x0006,0x0001,0x3800,0x4000") @varcmd ("MBIPCMD", "0x0091,0x011D,0x0000,0xFFFF,0xFFE0") @varcmd ("MBIPCMD", "0x0091,0x0120,0x0140,0x00BC,0x0000") @varcmd ("MBIPCMD", "0x0091,0x0123,0x0144,0x0C00,0x0C10,0x0010") @varcmd ("MBIPCMD", "0x0091,0x0127,0x01B0,0x0C10,0x0001,0x0132") @varcmd ("MBIPCMD", "0x0091,0x012B,0x0164,0x0000,0x1800,0x0000,0x3800,0x0226") @varcmd ("MBIPCMD", "0x0091,0x0131,0x0000") @varcmd ("MBIPCMD", "0x0091,0x0132,0x01B2,0x00A8,0x000A,0x0000,0x0000,0x0000") @varcmd ("MBIPCMD", "0x0091,0x0138,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000") @varcmd ("MBIPCMD", "0x0091,0x013E,0x0000") @varcmd ("MBIPCMD", "0x0091,0x013F,0x01B2,0x00B2,0x000A,0x0000,0x0000,0x0000") @varcmd ("MBIPCMD", "0x0091,0x0145,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000") @varcmd ("MBIPCMD", "0x0091,0x014B,0x0000") @varcmd ("MBIPCMD", "0x0091,0x014C,0x0140,0x00BD,0x0000") @varcmd ("MBIPCMD", "0x0091,0x014F,0x0140,0x00B9,0x0000") @varcmd ("MBIPCMD", "0x0091,0x0152,0x0140,0x00BE,0x0000") @varcmd ("MBIPCMD", "0x0091,0x0155,0x01A6,0x0000,0x0195") @varcmd ("MBIPCMD", "0x0091,0x0158,0x01A6,0x0800,0x019D") @varcmd ("MBIPCMD", "0x0091,0x015B,0x01A6,0x1000,0x01A5") @varcmd ("MBIPCMD", "0x0091,0x015E,0x01A6,0x1800,0x01AD") @varcmd ("MBIPCMD", "0x0091,0x0161,0x01A6,0x2000,0x01B5") @varcmd ("MBIPCMD", "0x0091,0x0164,0x01A6,0x2800,0x01BD") @varcmd ("MBIPCMD", "0x0091,0x0167,0x01A6,0x3000,0x01C5") @varcmd ("MBIPCMD", "0x0091,0x016A,0x01A6,0x3800,0x01CD") @varcmd ("MBIPCMD", "0x0091,0x016D,0x01A6,0x4000,0x01D5") @varcmd ("MBIPCMD", "0x0091,0x0170,0x01A6,0x4800,0x01DD") @varcmd ("MBIPCMD", "0x0091,0x0173,0x01A6,0x5000,0x01E5") @varcmd ("MBIPCMD", "0x0091,0x0176,0x01A6,0x5800,0x01ED") @varcmd ("MBIPCMD", "0x0091,0x0179,0x01A6,0x6000,0x01F5") @varcmd ("MBIPCMD", "0x0091,0x017C,0x01A6,0x6800,0x01FD") @varcmd ("MBIPCMD", "0x0091,0x017F,0x01A6,0x7000,0x0205") @varcmd ("MBIPCMD", "0x0091,0x0182,0x01A6,0x7800,0x020D") @varcmd ("MBIPCMD", "0x0091,0x0185,0x01B0,0x00BD,0x0000,0x0215") @varcmd ("MBIPCMD", "0x0091,0x0189,0x01BC,0x00BE,0x0001") @varcmd ("MBIPCMD", "0x0091,0x018C,0x01B0,0x00BE,0x1600,0x0155") @varcmd ("MBIPCMD", "0x0091,0x0190,0x0140,0x00B9,0x0002") @varcmd ("MBIPCMD", "0x0091,0x0193,0x0156,0x031E") @varcmd ("MBIPCMD", "0x0091,0x0195,0x0140,0x00A8,0x0001") @varcmd ("MBIPCMD", "0x0091,0x0198,0x01BC,0x00BD,0x0001") @varcmd ("MBIPCMD", "0x0091,0x019B,0x0156,0x0158") @varcmd ("MBIPCMD", "0x0091,0x019D,0x0140,0x00A9,0x0001") @varcmd ("MBIPCMD", "0x0091,0x01A0,0x01BC,0x00BD,0x0002") @varcmd ("MBIPCMD", "0x0091,0x01A3,0x0156,0x015B") @varcmd ("MBIPCMD", "0x0091,0x01A5,0x0140,0x00AA,0x0001") @varcmd ("MBIPCMD", "0x0091,0x01A8,0x01BC,0x00BD,0x0004") @varcmd ("MBIPCMD", "0x0091,0x01AB,0x0156,0x015E") @varcmd ("MBIPCMD", "0x0091,0x01AD,0x0140,0x00AB,0x0001") @varcmd ("MBIPCMD", "0x0091,0x01B0,0x01BC,0x00BD,0x0008") @varcmd ("MBIPCMD", "0x0091,0x01B3,0x0156,0x0161") @varcmd ("MBIPCMD", "0x0091,0x01B5,0x0140,0x00AC,0x0001") @varcmd ("MBIPCMD", "0x0091,0x01B8,0x01BC,0x00BD,0x0010") @varcmd ("MBIPCMD", "0x0091,0x01BB,0x0156,0x0164") @varcmd ("MBIPCMD", "0x0091,0x01BD,0x0140,0x00AD,0x0001") @varcmd ("MBIPCMD", "0x0091,0x01C0,0x01BC,0x00BD,0x0020") @varcmd ("MBIPCMD", "0x0091,0x01C3,0x0156,0x0167") @varcmd ("MBIPCMD", "0x0091,0x01C5,0x0140,0x00AE,0x0001") @varcmd ("MBIPCMD", "0x0091,0x01C8,0x01BC,0x00BD,0x0040") @varcmd ("MBIPCMD", "0x0091,0x01CB,0x0156,0x016A") @varcmd ("MBIPCMD", "0x0091,0x01CD,0x0140,0x00AF,0x0001") @varcmd ("MBIPCMD", "0x0091,0x01D0,0x01BC,0x00BD,0x0080") @varcmd ("MBIPCMD", "0x0091,0x01D3,0x0156,0x016D") @varcmd ("MBIPCMD", "0x0091,0x01D5,0x0140,0x00B0,0x0001") @varcmd ("MBIPCMD", "0x0091,0x01D8,0x01BC,0x00BD,0x0100") @varcmd ("MBIPCMD", "0x0091,0x01DB,0x0156,0x0170") @varcmd ("MBIPCMD", "0x0091,0x01DD,0x0140,0x00B1,0x0001") @varcmd ("MBIPCMD", "0x0091,0x01E0,0x01BC,0x00BD,0x0200") @varcmd ("MBIPCMD", "0x0091,0x01E3,0x0156,0x0173") @varcmd ("MBIPCMD", "0x0091,0x01E5,0x0140,0x00B2,0x0001") @varcmd ("MBIPCMD", "0x0091,0x01E8,0x01BC,0x00BD,0x0400") @varcmd ("MBIPCMD", "0x0091,0x01EB,0x0156,0x0176") @varcmd ("MBIPCMD", "0x0091,0x01ED,0x0140,0x00B3,0x0001") @varcmd ("MBIPCMD", "0x0091,0x01F0,0x01BC,0x00BD,0x0800") @varcmd ("MBIPCMD", "0x0091,0x01F3,0x0156,0x0179") @varcmd ("MBIPCMD", "0x0091,0x01F5,0x0140,0x00B4,0x0001") @varcmd ("MBIPCMD", "0x0091,0x01F8,0x01BC,0x00BD,0x1000") @varcmd ("MBIPCMD", "0x0091,0x01FB,0x0156,0x017C") @varcmd ("MBIPCMD", "0x0091,0x01FD,0x0140,0x00B5,0x0001") @varcmd ("MBIPCMD", "0x0091,0x0200,0x01BC,0x00BD,0x2000") @varcmd ("MBIPCMD", "0x0091,0x0203,0x0156,0x017F") @varcmd ("MBIPCMD", "0x0091,0x0205,0x0140,0x00B6,0x0001") @varcmd ("MBIPCMD", "0x0091,0x0208,0x01BC,0x00BD,0x4000") @varcmd ("MBIPCMD", "0x0091,0x020B,0x0156,0x0182") @varcmd ("MBIPCMD", "0x0091,0x020D,0x0140,0x00B7,0x0001") @varcmd ("MBIPCMD", "0x0091,0x0210,0x01BC,0x00BD,0x8000") @varcmd ("MBIPCMD", "0x0091,0x0213,0x0156,0x0185") @varcmd ("MBIPCMD", "0x0091,0x0215,0x01B0,0x0C10,0x0001,0x0222") @varcmd ("MBIPCMD", "0x0091,0x0219,0x0142,0x00BE,0x00BF") @varcmd ("MBIPCMD", "0x0091,0x021C,0x01AE,0x00BD,0x0005,0x0222") @varcmd ("MBIPCMD", "0x0091,0x0220,0x0156,0x0319") @varcmd ("MBIPCMD", "0x0091,0x0222,0x01B0,0x0C10,0x0002,0x022F") @varcmd ("MBIPCMD", "0x0091,0x0226,0x0142,0x00BE,0x00C0") @varcmd ("MBIPCMD", "0x0091,0x0229,0x01AE,0x00BD,0x0006,0x022F") @varcmd ("MBIPCMD", "0x0091,0x022D,0x0156,0x0319") @varcmd ("MBIPCMD", "0x0091,0x022F,0x01B0,0x0C10,0x0003,0x023C") @varcmd ("MBIPCMD", "0x0091,0x0233,0x0142,0x00BE,0x00C1") @varcmd ("MBIPCMD", "0x0091,0x0236,0x01AE,0x00BD,0x0005,0x023C") @varcmd ("MBIPCMD", "0x0091,0x023A,0x0156,0x0319") @varcmd ("MBIPCMD", "0x0091,0x023C,0x01B0,0x0C10,0x0004,0x0249") @varcmd ("MBIPCMD", "0x0091,0x0240,0x0142,0x00BE,0x00C2") @varcmd ("MBIPCMD", "0x0091,0x0243,0x01AE,0x00BD,0x0006,0x0249") @varcmd ("MBIPCMD", "0x0091,0x0247,0x0156,0x0319") @varcmd ("MBIPCMD", "0x0091,0x0249,0x01B0,0x0C10,0x0005,0x0256") @varcmd ("MBIPCMD", "0x0091,0x024D,0x0142,0x00BE,0x00C3") @varcmd ("MBIPCMD", "0x0091,0x0250,0x01AE,0x00BD,0x0006,0x0256") @varcmd ("MBIPCMD", "0x0091,0x0254,0x0156,0x0319") @varcmd ("MBIPCMD", "0x0091,0x0256,0x01B0,0x0C10,0x0006,0x0263") @varcmd ("MBIPCMD", "0x0091,0x025A,0x0142,0x00BE,0x00C4") @varcmd ("MBIPCMD", "0x0091,0x025D,0x01AE,0x00BD,0x0005,0x0263") @varcmd ("MBIPCMD", "0x0091,0x0261,0x0156,0x0319") @varcmd ("MBIPCMD", "0x0091,0x0263,0x01B0,0x0C10,0x0007,0x0270") @varcmd ("MBIPCMD", "0x0091,0x0267,0x0142,0x00BE,0x00C5") @varcmd ("MBIPCMD", "0x0091,0x026A,0x01AE,0x00BD,0x0006,0x0270") @varcmd ("MBIPCMD", "0x0091,0x026E,0x0156,0x0319") @varcmd ("MBIPCMD", "0x0091,0x0270,0x01B0,0x0C10,0x0008,0x027D") @varcmd ("MBIPCMD", "0x0091,0x0274,0x0142,0x00BE,0x00C6") @varcmd ("MBIPCMD", "0x0091,0x0277,0x01AE,0x00BD,0x0005,0x027D") @varcmd ("MBIPCMD", "0x0091,0x027B,0x0156,0x0319") @varcmd ("MBIPCMD", "0x0091,0x027D,0x01B0,0x0C10,0x0009,0x028A") @varcmd ("MBIPCMD", "0x0091,0x0281,0x0142,0x00BE,0x00C7") @varcmd ("MBIPCMD", "0x0091,0x0284,0x01AE,0x00BD,0x0008,0x028A") @varcmd ("MBIPCMD", "0x0091,0x0288,0x0156,0x0319") @varcmd ("MBIPCMD", "0x0091,0x028A,0x01B0,0x0C10,0x000A,0x0297") @varcmd ("MBIPCMD", "0x0091,0x028E,0x0142,0x00BE,0x00C8") @varcmd ("MBIPCMD", "0x0091,0x0291,0x01AE,0x00BD,0x0008,0x0297") @varcmd ("MBIPCMD", "0x0091,0x0295,0x0156,0x0319") @varcmd ("MBIPCMD", "0x0091,0x0297,0x01B0,0x0C10,0x000B,0x02A4") @varcmd ("MBIPCMD", "0x0091,0x029B,0x0142,0x00BE,0x00C9") @varcmd ("MBIPCMD", "0x0091,0x029E,0x01AE,0x00BD,0x0005,0x02A4") @varcmd ("MBIPCMD", "0x0091,0x02A2,0x0156,0x0319") @varcmd ("MBIPCMD", "0x0091,0x02A4,0x01B0,0x0C10,0x000C,0x02B1") @varcmd ("MBIPCMD", "0x0091,0x02A8,0x0142,0x00BE,0x00CA") @varcmd ("MBIPCMD", "0x0091,0x02AB,0x01AE,0x00BD,0x0006,0x02B1") @varcmd ("MBIPCMD", "0x0091,0x02AF,0x0156,0x0319") @varcmd ("MBIPCMD", "0x0091,0x02B1,0x01B0,0x0C10,0x000D,0x02BE") @varcmd ("MBIPCMD", "0x0091,0x02B5,0x0142,0x00BE,0x00CB") @varcmd ("MBIPCMD", "0x0091,0x02B8,0x01AE,0x00BD,0x0005,0x02BE") @varcmd ("MBIPCMD", "0x0091,0x02BC,0x0156,0x0319") @varcmd ("MBIPCMD", "0x0091,0x02BE,0x01B0,0x0C10,0x000E,0x02CB") @varcmd ("MBIPCMD", "0x0091,0x02C2,0x0142,0x00BE,0x00CC") @varcmd ("MBIPCMD", "0x0091,0x02C5,0x01AE,0x00BD,0x0006,0x02CB") @varcmd ("MBIPCMD", "0x0091,0x02C9,0x0156,0x0319") @varcmd ("MBIPCMD", "0x0091,0x02CB,0x01B0,0x0C10,0x000F,0x02D8") @varcmd ("MBIPCMD", "0x0091,0x02CF,0x0142,0x00BE,0x00CD") @varcmd ("MBIPCMD", "0x0091,0x02D2,0x01AE,0x00BD,0x0006,0x02D8") @varcmd ("MBIPCMD", "0x0091,0x02D6,0x0156,0x0319") @varcmd ("MBIPCMD", "0x0091,0x02D8,0x01B0,0x0C10,0x0010,0x02E5") @varcmd ("MBIPCMD", "0x0091,0x02DC,0x0142,0x00BE,0x00CE") @varcmd ("MBIPCMD", "0x0091,0x02DF,0x01AE,0x00BD,0x0005,0x02E5") @varcmd ("MBIPCMD", "0x0091,0x02E3,0x0156,0x0319") @varcmd ("MBIPCMD", "0x0091,0x02E5,0x01B0,0x0C10,0x0011,0x02F2") @varcmd ("MBIPCMD", "0x0091,0x02E9,0x0142,0x00BE,0x00CF") @varcmd ("MBIPCMD", "0x0091,0x02EC,0x01AE,0x00BD,0x0006,0x02F2") @varcmd ("MBIPCMD", "0x0091,0x02F0,0x0156,0x0319") @varcmd ("MBIPCMD", "0x0091,0x02F2,0x01B0,0x0C10,0x0012,0x02FF") @varcmd ("MBIPCMD", "0x0091,0x02F6,0x0142,0x00BE,0x00D0") @varcmd ("MBIPCMD", "0x0091,0x02F9,0x01AE,0x00BD,0x0005,0x02FF") @varcmd ("MBIPCMD", "0x0091,0x02FD,0x0156,0x0319") @varcmd ("MBIPCMD", "0x0091,0x02FF,0x01B0,0x0C10,0x0013,0x030C") @varcmd ("MBIPCMD", "0x0091,0x0303,0x0142,0x00BE,0x00D1") @varcmd ("MBIPCMD", "0x0091,0x0306,0x01AE,0x00BD,0x0008,0x030C") @varcmd ("MBIPCMD", "0x0091,0x030A,0x0156,0x0319") @varcmd ("MBIPCMD", "0x0091,0x030C,0x01B0,0x0C10,0x0014,0x031E") @varcmd ("MBIPCMD", "0x0091,0x0310,0x0142,0x00BE,0x00D2") @varcmd ("MBIPCMD", "0x0091,0x0313,0x01AE,0x00BD,0x0008,0x031E") @varcmd ("MBIPCMD", "0x0091,0x0317,0x0156,0x0319") @varcmd ("MBIPCMD", "0x0091,0x0319,0x0140,0x00B9,0x0001") @varcmd ("MBIPCMD", "0x0091,0x031C,0x0156,0x0322") @varcmd ("MBIPCMD", "0x0091,0x031E,0x01B0,0x0C10,0x0014,0x0341") @varcmd ("MBIPCMD", "0x0091,0x0322,0x0142,0x0C10,0x00BB") @varcmd ("MBIPCMD", "0x0091,0x0325,0x014A,0x00A8,0x0014,0x0000,0x6000") @varcmd ("MBIPCMD", "0x0091,0x032A,0x0166,0x0200") @varcmd ("MBIPCMD", "0x0091,0x032C,0x01B2,0x0200,0x0002,0x0000,0x6000") @varcmd ("MBIPCMD", "0x0091,0x0331,0x019C,0x0218") @varcmd ("MBIPCMD", "0x0091,0x0333,0x01B2,0x0220,0x0002,0x0010,0x0000") @varcmd ("MBIPCMD", "0x0091,0x0338,0x0174,0x0003,0x4000,0x0220") @varcmd ("MBIPCMD", "0x0091,0x033C,0x015A,0x00B9,0x0341") @varcmd ("MBIPCMD", "0x0091,0x033F,0x01EA,0xF00F") @varcmd ("MBIPCMD", "0x0091,0x0341,0x01FC") @varcmd ("MBIPLDIN", "0x0136") !Title = "-FINISHED PROCEDURE: ptrack6a." @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) Halt !Title = "+Operator CONTinue " @Message( "DC", "time", "MDI", " ", !Title , *!S) Return End If Select !Cmd_name Case "MBIPCMD" !Code_i = 0x0E !No_of_cmds_i = 0 Case "MBIPTBL" !Code_i = 0x0F !No_of_cmds_i = 0 Case "MBIPMACL" !Code_i = 0x11 !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) 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 -----------------------------------------------------------------------------------+