#!/usr/sbin/perl
#

if ($#ARGV >= 1){
 $TEST = $ARGV[0];
 $R = $ARGV[1];
 $DMEM_DUMP_TRUE = $ARGV[2];

 open(FP_RTSK,">$TEST.rtsk") || die "Cant open file $TEST.rtsk \n";

 print FP_RTSK "load $TEST.out  0x04001000\n";
 print FP_RTSK "load $TEST.dat  0x04000000\n";

 print FP_RTSK "load rdram_0.dat  0x00000000\n";
 print FP_RTSK "load rdram_1.dat  0x00001000\n";
 print FP_RTSK "load rdram_2.dat  0x00002000\n";
 print FP_RTSK "load rdram_3.dat  0x00003000\n";
 print FP_RTSK "load rdram_4.dat  0x00004000\n";
 print FP_RTSK "load rdram_5.bin  0x00005000\n";
 print FP_RTSK "load rdram_6.bin  0x00006000\n";

 print FP_RTSK "dep pc 0x0\n";
 print FP_RTSK "dep ctl 0x0\n";
 print FP_RTSK "run\n";
 print FP_RTSK "reg $R\n";

 if ($DMEM_DUMP_TRUE==1) {
    print FP_RTSK "wr $TEST.eoe_dmem 0x04000000 0x1000\n";
   }
 }
close (FP_RTSK);