1. /*========== 宣言部 ================================================*/
2. #include <stdio.h>
3. #include <string.h>
4. typedef unsigned char  BIT;    // 1 bit logic
5. typedef unsigned char  BIT3;   // 3 bit logic
6. typedef unsigned short WORD;   // 16 bit
7. typedef unsigned long  DWORD;  // 32 bit
8. typedef long           LONG27; // 27 bit signed
9. typedef long           LONG30; // 30 bit signed
10. FILE    *fip;                  // 入力ファイルへのポインター
11. FILE    *fop;                  // 出力ファイルへのポインター
12. char    namei[256];            // 入力ファイル名
13. char    nameo[256];            // 出力ファイル名
14. DWORD   clk_cnt;               // シミュレーション用
15. int     data_in;               // 入力データバッファー
16. short   data1;                 // 入力データ
17. short   data2;                 // 出力データ
18. BIT     rst_n;                 // Ｌリセット信号
19. LONG27  mult;                  // 乗算器出力
20. // regster
21. BIT3    state_cnt, state_cnt_i; // ステートカウンター
22. WORD    s_reg[10], s_reg_i[10]; // データ用シフトレジスター
23. LONG30  acc, acc_i;             // アキュムレータ
24. 　
25. /*=========== モジュール部 ==========================================*/
26. void fir(){
27.   int i;
28.   if (!rst_n) {
29.     state_cnt = 0;
30.     acc = 0;
31.     for (i=0; i<10; i++) s_reg[i] = 0;
32.   }
33.   switch (state_cnt) {
34.     case 1: mult =   20 * (s_reg[0] + s_reg[9]);  break;
35.     case 2: mult =  -42 * (s_reg[1] + s_reg[8]);  break;
36.     case 3: mult =   60 * (s_reg[2] + s_reg[7]);  break;
37.     case 4: mult = -106 * (s_reg[3] + s_reg[6]);  break;
38.     case 5: mult =  321 * (s_reg[4] + s_reg[5]);  break;
39.     case 6: mult =  506 *  s_reg[5];              break;
40.     default: mult =   0;
41.   }
42.   if ((state_cnt==1)||(state_cnt==6))
43.       acc_i = mult + 256;
44.   else
45.       acc_i = acc + mult;
46.   data2 = acc >> 9;
47.   if (state_cnt==5) {
48.       s_reg_i[0] = data1;
49.       for (i=1; i<10; i++)    s_reg_i[i] = s_reg[i-1];
50.   }
51.   if (state_cnt == 6)
52.       state_cnt_i = 1;
53.   else
54.       state_cnt_i = state_cnt + 1;
55. }
56. 　
57. /*========== 一括代入部 =============================================*/
58. void non_blocking_assignment() {
59.   int i;
60.   if (rst_n) {
61.     state_cnt = state_cnt_i;
62.     acc = acc_i;
63.     for (i=0; i<10; i++)    s_reg[i] = s_reg_i[i];
64.   }
65. }
66. 　
67. /*========== ループ部 ===============================================*/
68. void main_loop() {
69.   clk_cnt = 0;    // use only for simulation
70.   while (1) {
71.     if (state_cnt==5) {
72.         if (fscanf(fip, "%d", &data_in) == EOF) break; // input data
73.         data1 = (short)data_in;
74.     }
75.     if (clk_cnt==0)
76.         rst_n = 0;
77.     else
78.         rst_n = 1;
79.     fir();                        // モジュール部の呼び出し
80.     if ((state_cnt==6)||(state_cnt==1)) {
81.         fprintf(fop, "%d\n", (int)data2); // output data
82.     }
83.     non_blocking_assignment();    // 一括代入部
84.     clk_cnt++;
85.   }
86. }
87. 　
88. /*========== メイン部 ===============================================*/
89. void main() {
90.   printf("Input File Name： ");
91.   gets(namei);     // get input file name
92.   printf("Output File Name： ");
93.   gets(nameo);     // get output file name
94.   if ((fip = fopen(namei,"rt")) == NULL)  {     // file open (Read text file)
95.       printf("Input file error!!\n"); return;
96.   }
97.   if ((fop = fopen(nameo,"wt")) == NULL)  {     // file open (Write text file)
98.       printf("output file error!!\n"); fclose(fip); return;
99.   }
100.   main_loop();     // ループ部の呼び出し
101.   fclose(fip);     // input file close
102.   fclose(fop);     // output file close
103. }
104. /*********** プログラム終了 ******************************************/

1. module fir( clk, rst_n, data1, data2, state_cnt );
2. input clk;
3. input rst_n;            // Ｌリセット信号
4. input [15:0] data1;     // 入力データ
5. output[15:0] data2;     // 出力データ
6. output[2:0] state_cnt;  // ステートカウンター
7. reg [26:0] mult;        // 乗算器出力
8. // regster
9. reg [2:0] state_cnt;    // ステートカウンター
10. reg [15:0] s_reg[0:9];  // データ用シフトレジスター
11. reg [29:0] acc;         // アキュムレータ
12. integer i;
13. 　
14. /*===================================================================*/
15. always@(state_cnt or s_reg)
16.   case (state_cnt)
17.     3'd0: mult =   20 * (s_reg[0] + s_reg[9]);
18.     3'd2: mult =  -42 * (s_reg[1] + s_reg[8]);
19.     3'd3: mult =   60 * (s_reg[2] + s_reg[7]);
20.     3'd4: mult = -106 * (s_reg[3] + s_reg[6]);
21.     3'd5: mult =  321 * (s_reg[4] + s_reg[5]);
22.     3'd6: mult =  506 * s_reg[5];
23.     default: mult = 0;
24.   endcase
25. 　
26. always@(posedge clk or negedge rst_n)
27.   if (!rst_n)
28.       acc <= 30'd0;
29.   else if ((state_cnt==3'd1)||(state_cnt==3'd6))
30.       acc <= mult + 256;
31.   else
32.       acc <= acc + mult;
33. 　
34. assign data2 = acc >> 9;
35. 　
36. always@(posedge clk or negedge rst_n)
37.   if (!rst_n)
38.       for (i=0; i<10; i=i+1)  s_reg[i] <= 16'd0;
39.   else if (state_cnt==3'd5) begin
40.       s_reg[0] <= data1;
41.       for (i=1; i<10; i=i+1)  s_reg[i] <= s_reg[i-1];
42.   end
43. 　
44. always@(posedge clk or negedge rst_n)
45.   if (!rst_n)
46.       state_cnt = 3'd0;
47.   else if (state_cnt == 3'd6)
48.       state_cnt <= 3'd1;
49.   else
50.       state_cnt <= state_cnt + 1;
51. 　
52. endmodule

　展開例（２）

  i_cnt_i = n - 1; でスタート
    ...
  f();
  if (i_cnt == 0) (終了);
  else i_cnt_i = i_cnt - 1;

　このように判定を処理の後にすると１ｻｲｸﾙ少なく
　てすむ。ただし必ず１回は f() を実行する。