| my @l=split "->",$header; |
| my @ins=sort split " ",$l[0]; |
| my @outs=sort split " ",$l[1]; |
| print " printf(\"Initializing the Inputs of the cell:\\n\");\n"; |
| print " reg_mprj_io_$reg = GPIO_MODE_MGMT_STD_OUTPUT; // $_\n"; |
| $io[$reg>>5]|=1<<($reg&31); |
| print " printf(\"Initializing the Outputs of the cell:\\n\");\n"; |
| print " reg_mprj_io_$reg = GPIO_MODE_USER_STD_OUTPUT; // $_\n"; |
| print " reg_mprj_xfer=1;\n"; |
| print " while (reg_mprj_xfer == 1);\n"; |
| print "reg_la".$_."_ena=".sprintf("0x%08X",$io[$_]).";\n" if(defined($io[$_])); |
| print " printf(\"Starting the tests:\\n\");\n"; |
| print " assert(reg_la".$map{$1}."_data==$2); //$1\n"; |
| print " reg_la".$if."_data=$_; //$ins[$if]\n"; |
| print " printf(\"Test $counter successful\\n\");\n\n"; |