data_block db 1
title =
version : 0.1
struct
r_fifo_sayi : array [1 .. 100 ] of dword ;
end_struct ;
begin
r_fifo_sayi[1] := dw#16#0;
r_fifo_sayi[2] := dw#16#0;
r_fifo_sayi[3] := dw#16#0;
r_fifo_sayi[4] := dw#16#0;
r_fifo_sayi[5] := dw#16#0;
r_fifo_sayi[6] := dw#16#0;
r_fifo_sayi[7] := dw#16#0;
r_fifo_sayi[8] := dw#16#0;
r_fifo_sayi[9] := dw#16#0;
r_fifo_sayi[10] := dw#16#0;
r_fifo_sayi[11] := dw#16#0;
r_fifo_sayi[12] := dw#16#0;
r_fifo_sayi[13] := dw#16#0;
r_fifo_sayi[14] := dw#16#0;
r_fifo_sayi[15] := dw#16#0;
r_fifo_sayi[16] := dw#16#0;
r_fifo_sayi[17] := dw#16#0;
r_fifo_sayi[18] := dw#16#0;
r_fifo_sayi[19] := dw#16#0;
r_fifo_sayi[20] := dw#16#0;
r_fifo_sayi[21] := dw#16#0;
r_fifo_sayi[22] := dw#16#0;
r_fifo_sayi[23] := dw#16#0;
r_fifo_sayi[24] := dw#16#0;
r_fifo_sayi[25] := dw#16#0;
r_fifo_sayi[26] := dw#16#0;
r_fifo_sayi[27] := dw#16#0;
r_fifo_sayi[28] := dw#16#0;
r_fifo_sayi[29] := dw#16#0;
r_fifo_sayi[30] := dw#16#0;
r_fifo_sayi[31] := dw#16#0;
r_fifo_sayi[32] := dw#16#0;
r_fifo_sayi[33] := dw#16#0;
r_fifo_sayi[34] := dw#16#0;
r_fifo_sayi[35] := dw#16#0;
r_fifo_sayi[36] := dw#16#0;
r_fifo_sayi[37] := dw#16#0;
r_fifo_sayi[38] := dw#16#0;
r_fifo_sayi[39] := dw#16#0;
r_fifo_sayi[40] := dw#16#0;
r_fifo_sayi[41] := dw#16#0;
r_fifo_sayi[42] := dw#16#0;
r_fifo_sayi[43] := dw#16#0;
r_fifo_sayi[44] := dw#16#0;
r_fifo_sayi[45] := dw#16#0;
r_fifo_sayi[46] := dw#16#0;
r_fifo_sayi[47] := dw#16#0;
r_fifo_sayi[48] := dw#16#0;
r_fifo_sayi[49] := dw#16#0;
r_fifo_sayi[50] := dw#16#0;
r_fifo_sayi[51] := dw#16#0;
r_fifo_sayi[52] := dw#16#0;
r_fifo_sayi[53] := dw#16#0;
r_fifo_sayi[54] := dw#16#0;
r_fifo_sayi[55] := dw#16#0;
r_fifo_sayi[56] := dw#16#0;
r_fifo_sayi[57] := dw#16#0;
r_fifo_sayi[58] := dw#16#0;
r_fifo_sayi[59] := dw#16#0;
r_fifo_sayi[60] := dw#16#0;
r_fifo_sayi[61] := dw#16#0;
r_fifo_sayi[62] := dw#16#0;
r_fifo_sayi[63] := dw#16#0;
r_fifo_sayi[64] := dw#16#0;
r_fifo_sayi[65] := dw#16#0;
r_fifo_sayi[66] := dw#16#0;
r_fifo_sayi[67] := dw#16#0;
r_fifo_sayi[68] := dw#16#0;
r_fifo_sayi[69] := dw#16#0;
r_fifo_sayi[70] := dw#16#0;
r_fifo_sayi[71] := dw#16#0;
r_fifo_sayi[72] := dw#16#0;
r_fifo_sayi[73] := dw#16#0;
r_fifo_sayi[74] := dw#16#0;
r_fifo_sayi[75] := dw#16#0;
r_fifo_sayi[76] := dw#16#0;
r_fifo_sayi[77] := dw#16#0;
r_fifo_sayi[78] := dw#16#0;
r_fifo_sayi[79] := dw#16#0;
r_fifo_sayi[80] := dw#16#0;
r_fifo_sayi[81] := dw#16#0;
r_fifo_sayi[82] := dw#16#0;
r_fifo_sayi[83] := dw#16#0;
r_fifo_sayi[84] := dw#16#0;
r_fifo_sayi[85] := dw#16#0;
r_fifo_sayi[86] := dw#16#0;
r_fifo_sayi[87] := dw#16#0;
r_fifo_sayi[88] := dw#16#0;
r_fifo_sayi[89] := dw#16#0;
r_fifo_sayi[90] := dw#16#0;
r_fifo_sayi[91] := dw#16#0;
r_fifo_sayi[92] := dw#16#0;
r_fifo_sayi[93] := dw#16#0;
r_fifo_sayi[94] := dw#16#0;
r_fifo_sayi[95] := dw#16#0;
r_fifo_sayi[96] := dw#16#0;
r_fifo_sayi[97] := dw#16#0;
r_fifo_sayi[98] := dw#16#0;
r_fifo_sayi[99] := dw#16#0;
r_fifo_sayi[100] := dw#16#0;
end_data_block
function fc 1 : void
title =
version : 0.1
var_input
dwdatagir : dword ;
ififosize : int ;
dbno : block_db ;
end_var
var_temp
iloopsay : int ;
dwpointerdec : dword ;
end_var
begin
network
title =
l p#4.0;
negd ;
t #dwpointerdec;
l #ififosize;
+ -2;
l p#4.0;
*d ;
lar1 ;
opn #dbno;
l #ififosize;
+ -2;
shuf: t #iloopsay;
l dbd [ar1,p#0.0];
t dbd [ar1,p#4.0];
l #dwpointerdec;
+ar1 ;
l #iloopsay;
loop shuf;
l dbd [ar1,p#0.0];
t dbd [ar1,p#4.0];
l #dwdatagir;
t dbd [ar1,p#0.0];
set ;
save ;
end_function
organization_block ob 1
title = "main program sweep (cycle)"
version : 0.1
var_temp
ob1_ev_class : byte ;//bits 0-3 = 1 (coming event), bits 4-7 = 1 (event class 1)
ob1_scan_1 : byte ;//1 (cold restart scan 1 of ob 1), 3 (scan 2-n of ob 1)
ob1_priority : byte ;//priority of ob execution
ob1_ob_numbr : byte ;//1 (organization block 1, ob1)
ob1_reserved_1 : byte ;//reserved for system
ob1_reserved_2 : byte ;//reserved for system
ob1_prev_cycle : int ;//cycle time of previous ob1 scan (milliseconds)
ob1_min_cycle : int ;//minimum cycle time of ob1 (milliseconds)
ob1_max_cycle : int ;//maximum cycle time of ob1 (milliseconds)
ob1_date_time : date_and_time ;//date and time ob1 started
end_var
begin
network
title =
a i 0.0;
fp m 100.0;
jnb _001;
call fc 1 (
dwdatagir := md 0,
ififosize := 20,
dbno := db 1);
_001: nop 0;
end_organization_block
organization_block ob 121
title = "programming error"
version : 0.1
var_temp
ob121_ev_class : byte ;//16#25, event class 2, entering event state, internal fault event
ob121_sw_flt : byte ;//16#xx software programming fault
ob121_priority : byte ;//priority of ob execution
ob121_ob_numbr : byte ;//121 (organization block 121, ob121)
ob121_blk_type : byte ;//16#88/8a/8b/8c/8e type of block fault occured in
ob121_reserved_1 : byte ;//reserved for system
ob121_flt_reg : word ;//16#xx specific register that caused fault
ob121_blk_num : word ;//number of block that programming fault occured in
ob121_prg_addr : word ;//address in block where programming fault occured
ob121_date_time : date_and_time ;//date and time ob121 started
end_var
begin
network
title =
end_organization_block
organization_block ob 122
title = "module access error"
version : 0.1
var_temp
ob122_ev_class : byte ;//16#25, event class 2, entering event state, internal fault event
ob122_sw_flt : byte ;//16#xx software error code
ob122_priority : byte ;//priority of ob execution
ob122_ob_numbr : byte ;//122 (organization block 122, ob122)
ob122_blk_type : byte ;//16#88/8a/8b/8c/8e type of block fault occured in
ob122_mem_area : byte ;//memory area where access error occured
ob122_mem_addr : word ;//memory address where access error occured
ob122_blk_num : word ;//block number in which error occured
ob122_prg_addr : word ;//program address where error occured
ob122_date_time : date_and_time ;//date and time ob1 started
end_var
begin
network
title =
end_organization_block