URL
https://opencores.org/ocsvn/instruction_list_pipelined_processor_with_peripherals/instruction_list_pipelined_processor_with_peripherals/trunk
Subversion Repositories instruction_list_pipelined_processor_with_peripherals
Compare Revisions
- This comparison shows the changes necessary to convert path
/
- from Rev 15 to Rev 16
- ↔ Reverse comparison
Rev 15 → Rev 16
/instruction_list_pipelined_processor_with_peripherals/trunk/architecture/input_script.pl
6,9 → 6,9
chomp($rung_num); |
|
my (@inp_array, @out_array, @inst_array); |
@inp_array = ('10', '11', '12', '13', '14', '15', '16'); |
@out_array = ('20', '21', '22', '23', '24', '25', 'O6'); |
@inst_array = ('1', '2', '3', '4', '5'); |
@inp_array = ('I0', 'I1', 'I2', 'I3', 'I4', 'I5', 'I6'); |
@out_array = ('O0', 'O1', 'O2', 'O3', 'O4', 'O5', 'O6'); |
@inst_array = ('LD', 'ST', 'AND', 'OR', 'N'); |
|
#Loop for Creating Instructions in a rung |
open my $file_out, ">", "PLC_instruction.txt"; |
36,7 → 36,7
print {$file_out} $inp_array[int(rand(6))], "\n"; |
} |
} |
print {$file_out} "5555 5555", "\n"; |
print {$file_out} "ENDOFRUNG", "\n"; |
#print {$file_out} "\n"; |
} |
close($file_out); |