#!/usr/local/bin/perl
#

if ($#ARGV == 2){
 $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 "dep pc 0x10002000\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);