--+--------------------------------------------------------------------------------+
--+ 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 :
--+ -----------------
--+ !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 10:15 21/06/95 Ph. IATRINO -- New On Board S/W.
--+ 1/01 611 19:35 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(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()
@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
-----------------------------------------------------------------------------------+