########################################################################
### FILE:	tbcinit.mod
### PURPOSE:	Initialize Thermal Block Controller
########################################################################


########################################################################
### Initialize TBC

DEFine INITialize <quote>
    ZoneINIT
    SensorINIT
    DriverINIT
</quote>


########################################################################
### Initialize TBC zones

DEFINT ZoneINIT <multiline>
  #RATe cover 0.3 0.049
</multiline>

########################################################################
### Initialize TBC sensors

DEFINT SensorINIT <multiline>
    REPeat -counter=idx -start=1 $(SensorCount?) <quote.repeat>
        LVAR Type  $(Sensor${idx}:TYPe?)
	TRY <quote.try>
            LVAR Group $(CONF? tbcspecs SensorTypes ${Type})
            REGisterGroup+ -append ${Group}? Sensor${idx}:READing?
        </quote.try> PASS
    </quote.repeat>
</multiline>


########################################################################
### Initialize TBC drivers

DEFINT DriverINIT <multiline>
    REPeat -counter=idx -start=1 $(DriverCount?) <quote.repeat>
        LVAR Type     $(Driver${idx}:TYPe?)
        LVAR TypeDesc $(CONF? -ignoreMissing tbcspecs DriverTypes ${Type})

        IF ${#TypeDesc:-} <quote.group>
            REGisterGroup+ -append ${TypeDesc} Driver${idx}:CONTrol
            REGisterGroup+ -append ${TypeDesc} Driver${idx}:OUTput
        </quote.group>
    </quote.repeat>
</multiline>


########################################################################
### Support for reading TBC Error Log

DEFine ReadERRors? $count$=50 <multiline>
    SET Count $[ min($count$) ]

    REPeat -start=$(TBC:ErrorCount?) 
</multiline>



########################################################################
### MACRO:	VERSion?
### PURPOSE:	Return readable version

DEFine VERSion? <quote.body>
   LVAR vers $(FirmwareVersion?)
   RETurn -product=$[ ${vers} >> 8 ] -build=$[ ${vers} & 0x00FF ]
</quote.body>



########################################################################
### MACRO:	PROPerties?
### PURPOSE:	Return properties of this TBC
########################################################################

DEFine PROPerties? <quote.body>
   LVAR BlockID      $(BlockID?)
   LVAR Description  $(CONF? -ignoreMissing blocks "BlockType ${BlockID}" description)
   LVAR MinVol       $(CONF? -ignoreMissing blocks "BlockType ${BlockID}" minvol)
   LVAR MaxVol       $(CONF? -ignoreMissing blocks "BlockType ${BlockID}" maxvol)
   LVAR RunModes     $(CONF? -ignoreMissing blocks "BlockType ${BlockID}" runmodes)
   LVAR vers         $(FirmwareVersion?)
   LVAR prod         $[ ${vers} >> 8   ]
   LVAR build        $[ ${vers} & 0xFF ]

   RETurn -firmwareID=${prod}                          \
          -firmwareVersion=${build}                    \
          -bootcodeVersion=$(BootVersion?)             \
          -zones=${ControlZones}                       \
          -blockID=${BlockID}                          \
          -blockSerial=$(SerialNumber?)                \
          -blockDescription=\"${Description:-[Unknown block type]}\" \
          -minSampleVolume=${MinVol:-[Unknown]}        \
          -maxSampleVolume=${MaxVol:-[Unknown]}        \
          -hardwareVersion=$(HardwareVersion?)         \
          -lifeCycleCount=$(LifeCycleCount?)           \
          -lifeDegreesClimbed=$(LifeDegreesClimbed?)   \
          -runModes=${RunModes:-Unknown} 
</quote.body>

DEScribe PROPerties? <quote.body>
   Return properties for this TBC
</quote.body>