地址循环寻址程序案例

CASE #Status.Section OF
        0 :      
          FOR #t_i:=20 TO 39 DO
            #Info_arr[#t_i] := #In_Put[#t_i] ;
          END_FOR;  
        1 :
          FOR #t_i:=20 TO 55 DO
            #Win1_arr[#t_i] :=#In_Put[#t_i] ;
          END_FOR;         
        2 :
          FOR #t_i:=20 TO 55 DO
            #Win2_arr[#t_i] := #In_Put[#t_i] ;
          END_FOR;           
        3 :
          FOR #t_i:=20 TO 55 DO
            #Win3_arr[#t_i] :=#In_Put[#t_i] ;
          END_FOR;
        4 :
          FOR #t_i:=20 TO 55 DO
            #Win4_arr[#t_i] := #In_Put[#t_i] ;
          END_FOR;
        5 :
          FOR #t_i:=20 TO 55 DO
            #Upper_arr[#t_i] := #In_Put[#t_i] ;
          END_FOR;         
        6 :
          FOR #t_i:=20 TO 55 DO
            #Below_arr[#t_i] := #In_Put[#t_i] ;
          END_FOR;        
        7 :
          FOR #t_i:=20 TO 51 DO
            #dynamic_arr[#t_i] := #In_Put[#t_i] ;
          END_FOR;         
        8 :
          FOR #t_i:=20 TO 51 DO
            #Output_arr[#t_i] := #In_Put[#t_i] ;
          END_FOR;         
        9 :
          FOR #t_i:=20 TO 51 DO
            #Measure_arr[#t_i] := #In_Put[#t_i] ;
          END_FOR;         
        10 :
          FOR #t_i:=20 TO 49 DO
            #Wn1_arr[#t_i] := #In_Put[#t_i] ;
          END_FOR;        
        11 :
          FOR #t_i:=20 TO 49 DO
            #Wn2_arr[#t_i] := #In_Put[#t_i] ;
          END_FOR;
        12 :
          FOR #t_i:=20 TO 49 DO
            #Wn3_arr[#t_i] := #In_Put[#t_i] ;
          END_FOR;
        13 :
          FOR #t_i:=20 TO 49 DO
            #Wn4_arr[#t_i] := #In_Put[#t_i] ;
          END_FOR;
        14 :
          FOR #t_i:=20 TO 61 DO
            #Upp_1arr[#t_i] := #In_Put[#t_i] ;
          END_FOR;      
        15 :
          FOR #t_i:=20 TO 61 DO
            #Upp_2arr[#t_i] := #In_Put[#t_i] ;
          END_FOR;
        16 :
          FOR #t_i:=20 TO 61 DO
            #Bel_1arr[#t_i] := #In_Put[#t_i] ;
          END_FOR;
        17 :
          FOR #t_i:=20 TO 61 DO
            #Bel_2arr[#t_i] := #In_Put[#t_i] ;
          END_FOR;
        18 :
          FOR #t_i:=20 TO 31 DO
            #action_arr[#t_i] := #In_Put[#t_i] ;
          END_FOR;         
        ELSE:
            ;
    END_CASE;