|
TM-2 status monitor
|
|
!!
$BIN/tm2 getdesigndir
cat <
|
|
Loaded:
!!
$BIN/tm2 getdesigndate
cat <
|
|
!!
$BIN/tm2 getstatus1
cat <
|
|
!!
$BIN/tm2 getstatus2
cat <<'!!'
|
|
!!
slot="0"
while test $slot != $nslots
do
status="$status `$BIN/tm2 getstatus $slot`"
echo "#$slot | "
slot=`expr $slot + 1`
done
cat <<'!!'
!!
for i in "Housekeeping Programmed" "Logic FPGAS Programmed" "Clock Started" \
"Icubes Enabled" "Logic FPGAs Enabled" "Clock Drivers Enabled"
do
echo ""
echo "| $i | "
set $status
status=
slot="0"
while test $slot != $nslots
do
echo ""
bit=`expr $1 : '\(.\)'`
if test $bit = "1"; then
echo ' '
else
echo ' '
fi
echo " | "
status="$status `expr $1 : '.\(.*\)'`"
slot=`expr $slot + 1`
shift
done
echo "
"
done
cat <<'!!'