CMDreg_trbnetAddr=0xa120
RAMbase_trbnetAddr=0xa121
DATAreg_trbnetAddr=0xa122
+STAT_NIBBLEStrbnetAddr=0x008d
+STATUSCRCCHECKtrbnetAddr=0xa100
STATUS2RAM3BBASEADDRREGtrbnetAddr=0xa163
+STATUS2STARTEDtrbnetAddr=0xa164
STATUS2RAM3BtrbnetAddr=0xa170
CONFsignals_trbnetAddr=0xb020
CONFresetafterfirstwrite_trbnetAddr=0xb011
;BEGIN GENERATE_CHAINORDER newchain1
JNR0_sensor8=sensor8.ini
-JNR1_sensor7=sensor7.ini
JNR2_sensor6=sensor6.ini
JNR3_sensor5=sensor5.ini
;END GENERATE_CHAINORDER newchain1
CMDreg_trbnetAddr=0xa520
RAMbase_trbnetAddr=0xa521
DATAreg_trbnetAddr=0xa522
-STATUS2RAM3BBASEADDRREGtrbnetAddr=0xe163
+STATUSCRCCHECKtrbnetAddr=0xa500
+STATUS2RAM3BBASEADDRREGtrbnetAddr=0xa563
+STATUS2STARTEDtrbnetAddr=0xa564
STATUS2RAM3BtrbnetAddr=0xa570
CONFsignals_trbnetAddr=0xb022
CONFresetafterfirstwrite_trbnetAddr=0xb011
trb_init_ports() or die trb_strerror();
my $chainsfile= './chains.ini';
-my $lastcountersfile= 'jtagmonitor_lastcounters.ini';
+my $lastcountersfile= 'files/jtagmonitor_lastcounters.ini';
my $fqa = QA::OpenQAFile();
# my $str = Hmon::MakeDate(0,0,"");
my $str = Hmon::MakeTitle(8,5,"JTAG Monitor",1);
my $status_str = Hmon::MakeTitle(8,5,"JTAG Monitor",1);
+ my $updated_status_str = Hmon::MakeTitle(8,5,"JTAG Chain Controller Status",1);
my $vert_list_counter = 0;
# file to write counter values to
open(my $lastcounters_fh, ">", $lastcountersfile);
elsif($botherrors == 1) {
syslog("WARNING", "Only WRITE_ERROR and READ_ERROR $chain between runs $minlastruncounter and $maxruncounter. Power off?");
}
- $status_str .= Hmon::MakeTitle(8,5,$chain . $last_run_successful,1);
+ $updated_status_str .= Hmon::MakeTitle(8,5,$chain .$last_run_successful,1);
+ $status_str .= Hmon::MakeTitle(8,5,$chain ,1);
# Sensor 0 (first in status_table_row*) belongs at the end of the chain.
@status_table_row1 = reverse @status_table_row1;
@status_table_row2 = reverse @status_table_row2;
$status_str .= "<h4>Legend</h4>".colored_table(@legend_table) . "<br><!-- end status //-->";
$str = $status_str . $str;
if((!($run_counter_changed == 0))||($notstarted_or_crcerrors != 0)) {
- Hmon::WriteFile("jtagmonitor_usechainsini",$str);
+ Hmon::WriteFile("jtagmonitor_usechainsini_part1",$str);
}
-
-
+ open(my $monitor_part1_fh, "<", "files/jtagmonitor_usechainsini_part1.htt");
+ my $monitor_part1;
+ {
+ local $/ = undef;
+ $monitor_part1 = <$monitor_part1_fh>;
+ }
+ open(my $monitor_out_fh, ">", "files/jtagmonitor_usechainsini.htt");
+ print $monitor_out_fh $updated_status_str;
+ print $monitor_out_fh $monitor_part1;
}