ScriptName "Name"
ScriptAuthor "Author"
ScriptVersion "V 1.00"

// V1.00      25.10.04  St new Script Rev 26

SetErrorHandler ( :ErrorAddress ) ;
SetSystemErrorHandler ( :SysErrorAddress ) ;



var btemp : byte;
var a_Source : buffer[250];

// for this example you must set in GSD file
// User_Prm_Data = 0x00,0x00,0x00,0x12,0x34,0x56
// ignore the first 3 User Prm Data of the GSD file and for calculation

var w_NumberChar : word;    moveconst (w_NumberChar, 3);

ProfibusParameterInBuf ( a_Source[0], w_NumberChar ) ;

Busstart;
Wait ( Bus_Active ) ;
// a_source = 0x12 0x34 0x56
:main;

jump :main;

:ErrorAddress;
Get ( errorcode , btemp ) ;
return;

:SysErrorAddress;
Get ( systemError , btemp ) ;
return;