#REM Li-Ion Battery Management System Master Module. By Peter Perkins Picaxe 28X1 Firmware A3+ PIC16F886 - 180709 - www.150mpg.co.uk - V97 Beta **************************** General Information ****************************** The BMS modules carry no warranty or guarantee of any kind! They are used at your own risk, and I make no claims as to their suitability for a particular function. Prospective users must evaluate the system before using it, and no liability will be entertained by myself in any shape or form whatsoever. The modules and software have been produced at low cost for the benefit of the EV & electronic community. The software is available free via the internet. Users may modify or adapt the system as they see fit. If you are not fully competent to work on potentially lethal battery systems and high voltages, then do not experiment with or use this system. Be aware that vehicle modifications can lead to invalidated insurance and warranty issues. You the end user remain fully liable for any modifications made to your vehicle. ************************** Master Picaxe 28X1 Pinout ************************** Top _____ (Pic Reset) Reset -01| ^ |28- Output 7 (Drive Inhibit Out) (Current Sensor In) Adc 0 -02| |27- Output 6 (Charger Relay Out) (Menu Buttons Adc In) Adc 1 -03| |26- Output 5 (Video Display Out) (Spare Adc In) Adc 2 -04| |25- Output 4 (Controller Cutback Out) (Spare Adc In) Adc 3 -05| P |24- Output 3 (WatchDog Led Out) (Program In) Rxd -06| 2 |23- Output 2 (Slave Data Bus Out) (Program Out) Txd -07| 8 |22- Output 1 (Charger Cutback Out) (- Supply) Gnd -08| X |21- Output 0 (Audible Alarm Out) (Resonator In) Osc 1 -09| 1 |20- +Ve (+5V Supply) (Resonator In) Osc 2 -10| |19- Gnd (- Supply) (Button A In) Input 0 -11| A |18- Input 7 (Master Data Bus In) (Button B In) Input 1 -12| 4 |17- Input 6 (Interlocks In) (Temp Sensors In) Input 2 -13| |16- Output c5 (Charging Led 2 Out) (Speed Sensor In) Input 3 -14| |15- Output c4 (Dash Led 1 Out) ----- ************************ Other IC's On Master Pcb ***************************** *********************** Watchdog Picaxe 08M Pinouts *************************** Top _____ (+5V Supply) +Ve -1| ^ |8- Gnd (- Supply) (Program In) Rxd -2| 0 |7- Txd (Program Out) (Watchdog Led Out) Output 4 -3| 8 |6- Output 1 (Audible Alarm Out) (Pulse Count In) Input 3 -4| M |5- Output 2 (Master Reset Out) ----- ****************** SV2000 Serial to Composite Video IC ************************ Top _____ (Sync Out) Syn -1| ^ |8- +Ve (+5V Supply) (Video Out) Vid -2| V |7- Nc (No Connection) (Serial Data In) Rxd 4 -3| I |6- Inv (Serial Data Invert Mode) (- Supply) Gnd 3 -4| D |5- Txd (No Connection) ----- *********** 16x9 Character Serial 8,N,1 9600 baud display layout ************** 0> > 1> > 2> > 3> > 4> > 5> > 6> > 7> > 8> ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 0 1 2 3 4 5 6 7 8 9 10 11 12 13 15 ************************ Master Module Specification ************************** Board Supply Voltage 8.00-30.00V DC or as limited by 5.00V 78L05 regulator CPU Supply Voltage 5.00V CPU Speed 8mhz with internal resonator (Pic limit 20mhz with external res) Average Board Supply Current at 12.00v <100ma Maximum Cell Capacity 65ah (65335) (Limit of 16bit Word Variable) Maximum Pack Voltage 650v (65335) (Limit of 16bit Word Variable) Maximum Charge/Discharge rate 100A (Allegro Current Sensor limit) Maximum 128 Slave Modules per Master Module (Pic Scratchpad Ram limit) Battery Pack Temp Sensor Range (-55 to +127C) Composite Video Display data rate 9600 baud (SV2000 Serial to Video Chip) Composite RCA Video Monitor Output 1V 75ohm PAL/NTSC Charger relay output is board supply voltage max 30v at 500ma (Note! not 5v) Opto Isolated Charger/Controller Cutback outputs max 50ma 50v ******************************************************************************* ********************* Program Size 2321 out of 4096 Bytes ********************* ******************************************************************************* #ENDREM #picaxe 28x1 ;Set Picaxe type 28X1 for compiler/editor `Variables Constants and I/O definitions `Note Global variables must be preserved throughout the program `Note Local variables may be used at will within subroutines `Variables 16bit (Word) symbol AlarmsWarnings= w0 ;w0 Global (b0,b1) = Alarms and Warnings Word (b0,b1 bytes) (16 bits = 2 x 8bits) symbol CellVoltage = w1 ;w1 Local (b2,b3) = Cell Voltage 0-1023 10bit (0-5v) symbol PackVoltage = w2 ;w2 Local (b4,b5) = Calculated pack voltage (Voltage of all Cells added together) symbol Soc = w3 ;w3 Global (b6,b7) = Calculated pack capacity (Soc State of Charge) resolution 10ma symbol BatCurrent = w4 ;w4 Local (b8,b9) = Current Sensor ADC value 0-1023 10bit Approx 200ma resolution `symbol = w5 ;w5 Global (b10,b11) = Spare symbol Charge = w6 ;w6 Global (b12,b13) = Accumulated Charge current for last minute symbol Discharge = w7 ;w7 Global (b14,b15) = Accumulated Discharge current for last minute symbol PackTemp12 = w8 ;w8 Local (b16,b17) = Battery Block Temperature raw 12 bit sensor data from I2C chip symbol Distance = w9 ;w9 Global (b18,b19) = Distance (feet) travelled accumulator (5280ft = 1 mile) symbol WhMile = w10 ;w10 Global (b20,b21) = Watt Hours per mile (Power Consumed) symbol CountESoc = w11 ;w11 Global (b22,b23) = Word var split into two bytes (CountE & Soc Counter) symbol CountW = w12 ;w12 Local (b24,b25) = General 0-65335 16bit Word Counter/Local Variable (Note CountC & D) symbol CountX = w13 ;w13 Local (b26,b27) = General 0-65335 16bit Word Counter/Local Variable (Note CountA & B) `Variables 8bit (Byte) symbol AlarmBits = b0 ;b0 Global Alarm Bits {8 bits} (To clear all Alarm bits set to 0) symbol WarnBits = b1 ;b1 Global Warning Bits {8 bits} (To clear all Warning bits set to 0) symbol VoltageData = b2 ;b2 Local Voltage data byte (8bit value) (Received from Slave via serial link) symbol SocCounter = b22 ;b22 Global SocCounter increments each time current measured to calc avg 1 min current symbol CountE = b23 ;b23 Local General 0-255 8bit Byte Counter or General/Local Variable (Note CountESoc) symbol CountD = b24 ;b24 Local General 0-255 8bit Byte Counter or General/Local Variable (Note CountW) symbol CountC = b25 ;b25 Local General 0-255 8bit Byte Counter or General/Local Variable (Note CountW) symbol CountB = b26 ;b26 Local General 0-255 8bit Byte Counter or General/Local Variable (Note CountX) symbol CountA = b27 ;b27 Local General 0-255 8bit Byte Counter or General/Local Variable (Note CountX) `Note the 16 Bit use Byte variables (b0) & (b1) which in turn use Word (w0) `Note to clear all sixteen Bits in one go set (AlarmsWarnings or w0 to Zero) `Alarm Bits x8 1bit (b0) `Note to clear all eight Alarm Bits below in one go set (Alarmbits or b0 to Zero) symbol Alarm1 = bit0 ;bit0 = Alarm Bit (Cell over AbsMax V) symbol Alarm2 = bit1 ;bit1 = Alarm Bit (Cell under AbsMin V) symbol Alarm3 = bit2 ;bit2 = Alarm Bit (Cell data serial transfer timeout error) symbol Alarm4 = bit3 ;bit3 = Alarm Bit (Battery Pack over AbsMax Temp) symbol Alarm5 = bit4 ;bit4 = symbol Alarm6 = bit5 ;bit5 = symbol Alarm7 = bit6 ;bit6 = symbol Alarm8 = bit7 ;bit7 = Alarm Test Condition (Used to simulate Alarms) `Warning Bits x 8 1bit (b1) `Note to clear all eight Warning Bits below in one go set (WarnBits or b1 to Zero) symbol Warn1 = bit8 ;bit8 = Warning Bit (Cell over Max V) symbol Warn2 = bit9 ;bit9 = Warning Bit (Cell under Min V) symbol Warn3 = bit10 ;bit10 = Warning Bit (Battery Pack over Max Temp) symbol Warn4 = bit11 ;bit11 = Warning Bit (Soc < SocMin = less than 10% remaining) symbol Warn5 = bit12 ;bit12 = symbol Warn6 = bit13 ;bit13 = symbol Warn7 = bit14 ;bit14 = symbol Warn8 = bit15 ;bit15 = Warn Test Condition (Used to simulate Alarms) `*** Special Compiler Variable Notes *** `Timer = Internal timer variable and set to 1 second ticks (t1s_8) `ptr = Scratchpad Ram Variable data pointer (Scratchpad is 128 bytes) `@ptrinc = Scratchpad Ram pointer with automatic increment after execution. `Constants symbol Cells = 50 ;Number of cells in the battery pack (50) (Max is 128 cells) symbol MaxPackVoltage = 18000 ;Maximum pack voltage = 180v (18,000 as 16 bit value) Res 10mv (Max 650v) symbol MinPackVoltage = 12000 ;Minimum pack voltage = 120v (12,000 as 16 bit value) Res 10mv symbol AbsMaxCellVoltage = 380 ;Absolute Maximum permitted cell voltage = (3.80V) (Alarm & Shutdown point) symbol AbsMinCellVoltage = 230 ;Absolute Minimum permitted cell voltage = (2.30V) (Alarm & Shutdown point) symbol MaxCellVoltage = 370 ;Normal Maximum permitted cell voltage = (3.70V) (Charger/Regen cutback point) symbol MinCellVoltage = 250 ;Normal Minimum permitted cell voltage = (2.50V) (Controller/Assist cutback point) symbol CutInV = 360 ;Balancing load/bypass cut in Voltage (This must match value set in Slaves) symbol CutOutV = 355 ;Balancing load/bypass cut out Voltage (This must match value set in Slaves) symbol AbsMaxPackTemp = 50 ;Absolute Maximum permitted pack temperature = (50C) (Alarm & Shutdown point) symbol MaxPackTemp = 45 ;Maximum permitted pack temperature = (45C) (Warning & Cutback point) symbol InitialSoc = 40000 ;Sets initial Soc/Capacity to this value after software download symbol SocMax = 40000 ;Maximum cell capacity = 40ah (40,000 as 16 bit value) (Max 65A) symbol SocMin = 4000 ;Minimum cell capacity = 4ah (4000 as 16 bit value) 10% of SocMax symbol OdoMeter = 0 ;Initial OdoMeter setting, set eprom saved Odo to this (Used if program updated) symbol Delay = 10 ;Interrupt and data delay (Pause 10 = 5ms at 8mhz) symbol TimeOut = 100 ;Serial Data Receive Timeout value 100ms symbol PulsePerMile = 455 ;Pulses from speed sensor per mile (4550) / 10 to fit into integer maths `BaudRate constants for 8mhz symbol Baud9600 = T4800 ;Baud rate 9600 at 8mhz (Note Baud9600 is reserved for the Video output chip) `Pins used for I/O and designations `*** Digital high/low Outputs on port b - Outputs 0-7 *** symbol Alarm = 0 ;Audible Alarm warning on Output 0 symbol Charger = 1 ;Charger Cutback output on Output 1 (Opto conducts when cell V > 3.70V) symbol SlaveBus = 2 ;Slave Data Bus Output on Output 2 symbol WatchDogLed = 3 ;Watchdog flashing Green Led on Output 3 (Flashes every other program loop) symbol Controller = 4 ;Controller Cutback output on Output 4 (Opto conducts when cell V < 2.20V) symbol Video = 5 ;Dashboard Video display Baud4800 (9600) on Output 5 symbol ChargerOnOff = 6 ;Charger Relay On/Off control on Output 6 (5.00v Max 500ma) symbol DriveInhibit = 7 ;Drive inhibit Opto on Output 7 `*** Extra Digital high/low Outputs on port c 4-5 *** symbol Led1 = 4 ;Dashboard Alarm Led 1 on Output portc 4 symbol Led2 = 5 ;Dashboard Charging Led 2 on Output portc 5 `*** Digital high/low Inputs on port c - Inputs 0-3 & 6-7 *** `symbol Spare = 0 ;Spare (Used to be control buttons) `symbol Spare = 1 ;Spare (Used to be control buttons) symbol TempSensor = 2 ;I2C DS18B20 Battery Pack Temp Sensors on Input 2 (-55 to +125C) symbol SpeedSensor = 3 ;Speed Sensor pulse sensor input on Input 3 (Measures length of a single pulse) symbol Interlocks = pin6 ;Interlocks and additional safety/security switch inputs on Input 6 symbol MasterBus = 7 ;Master Data Bus Input on Input 7 `*** Analogue ADC Inputs *** symbol CurrentSensor = 0 ;Battery Current Sensor 0-5V ADC on Input 0 (+100 to -100A) 2.5v = 0 Amps symbol ButtonsADC = 1 ;Menu Buttons ADC input 0-5V ADC on Input 1 (0-5v = 1 of 6 values) (0,1,2,3,4,5) ;************************************* Memory Allocations for 28X1 ******************************************* ;************************************************************************************************************* ;*********************** 128 Bytes Scratchpad Ram Used by Serial data input routine ************************** ;****************** 95 Bytes Spare Ram [80 to 126] ($50 to $7E) & [192 to 239] ($C0 to $EF) ****************** ;*************************************** 255 Bytes Eeprom [0 to 255] ***************************************** ;************************************************************************************************************* ;************ Display routine uses info stored in RAM from [192 to 239] & EEPROM from [0 to 19] ************** `This information is stored in the ram/eeprom by the various subroutines and then accessed by a seperate display `routine, which generates the entire display at once from the stored information. `The display is limited to 16x9 characters in a 0-15 & 0-8 matrix. The bottom row is reserved for error messages! `Display Routine Ram & EEprom Address Constants (Peek & Poke used to access RAM) (Read & Write used for EEprom) `(Get & Put used to access Scratchpad RAM) `*** Display Routine Ram addresses symbol PackV = 192 ;Ram address to store Word data [PackVoltage] (Dec 192 + 193) symbol BatC = 194 ;Ram address to store Word data [BatteryCurrent] (Dec 194 + 195) symbol HighV = 196 ;Ram address to store Word data [Highest Cell Voltage] (Dec 196 + 197) symbol LowV = 198 ;Ram address to store Word data [Lowest Cell Voltage] (Dec 198 + 199) symbol AvgV = 200 ;Ram address to store Word data [Average Cell Voltage] (Dec 200 + 201) symbol DifV = 202 ;Ram address to store Word data [Cell Voltage Difference] (Dec 202 + 203) symbol Temp1 = 204 ;Ram address to store Byte data [Front Battery Temperature] (Dec 204) symbol Temp1S = 205 ;Ram address to store Byte data [Front Battery Sign] (Dec 205) symbol Temp2 = 206 ;Ram address to store Byte data [Rear Battery Temperature] (Dec 206) symbol Temp2S = 207 ;Ram address to store Byte data [Rear Battery Sign] (Dec 207) symbol Temp3 = 208 ;Ram address to store Byte data [Spare Battery Temperature] (Dec 208) symbol Temp3S = 209 ;Ram address to store Byte data [Spare Battery Sign] (Dec 209) symbol Temp4 = 210 ;Ram address to store Byte data [Spare Battery Temperature] (Dec 210) symbol Temp4S = 211 ;Ram address to store Byte data [Spare Battery Sign] (Dec 211) symbol Temp5 = 212 ;Ram address to store Byte data [Spare Battery Temperature] (Dec 212) symbol Temp5S = 213 ;Ram address to store Byte data [Spare Battery Sign] (Dec 213) symbol Temp6 = 214 ;Ram address to store Byte data [Spare Battery Temperature] (Dec 214) symbol Temp6S = 215 ;Ram address to store Byte data [Spare Battery Sign] (Dec 215) symbol Mph = 216 ;Ram address to store Word data [Speed in MPH] (Dec 216 + 217) symbol PosNeg = 218 ;Ram address to store Byte data [+ or -] for display (Dec 218) symbol SocH = 219 ;Ram address to store Word data [Soc] Before decimal point (Dec 219 + 220) symbol SocL = 221 ;Ram address to store Word data [Soc] After decimal point (Dec 221 + 222) symbol ErrCell = 223 ;Ram address to store Byte data [Error Cell] Cell with error (Dec 223) symbol AlarmRep= 224 ;Ram address to store Byte data [Alarm Repeat check] stops screen re-drawing (Dec 224) `Spare RAM Addresses 224-234 Inclusive symbol SecFlag = 235 ;Ram Byte SecFlag indicates if wrong code entered (0=Correct) (1=Incorrect) symbol ChgFlag = 236 ;Ram Byte ChgFlag indicates charging in progress (0=Not Charging) (1=Charging) symbol IloFlag = 237 ;Ram Byte IloFlag indicates readiness to drive (0=Ready) (1=Not Ready) Interlocks symbol BalFlag = 238 ;Ram Byte BalFlag indicates cells are undergoing bypass/balancing (0=Off) (1=On) symbol AlarmSt = 239 ;Ram Byte to store Alarm byte data b0 (Dec 239) `*** Display Routine EEprom 0-19 addresses symbol SocStore = 0 ;EEprom address to store Word data [SOC] (Dec 0 + 1) Updated each minute symbol DistStore = 2 ;EEprom address to store Word data [Distance] (Dec 2 + 3) symbol OdoStore = 4 ;EEprom address to store Word data [Odo] (Dec 4 + 5) Updated each mile symbol WhStore = 6 ;EEprom address to store Word data [WhMile] (Dec 6 + 7) Updated each minute symbol SecStore = 8 ;EEprom address to store Byte data [Security Byte] (Dec 8) ;****************************************** Table Eeprom ***************************************************** `*** Table Data Storage 0-255 bytes (This does affect program memory and is deducted from 4096 byte total) *** `TABLE 0,24 (" ") ;Store data in table `TABLE 25,49 (" ") ;Store data in table `TABLE 50,74 (" ") ;Store data in table `TABLE 75,99 (" ") ;Store data in table `TABLE 100,124 (" ") ;Store data in table `TABLE 125,149 (" ") ;Store data in table `TABLE 150,174 (" ") ;Store data in table `TABLE 175,199 (" ") ;Store data in table `TABLE 200,224 (" ") ;Store data in table `TABLE 225,249 (" ") ;Store data in table `TABLE 250,255 (" ") ;Store data in table (End of table 255 bytes) ;******************************************* Main Eeprom ***************************************************** `*** Eeprom Data Storage 0-255 bytes (This does not affect program memory) Numbers 0-9 stored in 3W x 3H matrix *** `EEPROM 0,(First 20 & last 6 bytes reserved for other program functions) `EEPROM 20, (201,205,187,186,32,186,200,205,188) ;Store Big Digit "0" in eeprom ascii 48 `EEPROM 29, (32,32,203,32,32,186,32,32,202) ;Store Big Digit "1" in eeprom ascii 49 `EEPROM 38, (201,205,187,201,205,188,200,205,205) ;Store Big Digit "2" in eeprom ascii 50 `EEPROM 47, (201,205,187,32,205,185,200,205,188) ;Store Big Digit "3" in eeprom ascii 51 `EEPROM 56, (203,32,203,200,205,185,32,32,202) ;Store Big Digit "4" in eeprom ascii 52 `EEPROM 65, (201,205,205,200,205,187,200,205,188) ;Store Big Digit "5" in eeprom ascii 53 `EEPROM 74, (201,205,32,204,205,187,200,205,188) ;Store Big Digit "6" in eeprom ascii 54 `EEPROM 83, (205,205,187,32,32,186,32,32,202) ;Store Big Digit "7" in eeprom ascii 55 `EEPROM 92, (201,205,187,204,205,185,200,205,188) ;Store Big Digit "8" in eeprom ascii 56 `EEPROM 101,(201,205,187,200,205,185,32,32,202) ;Store Big Digit "9" in eeprom ascii 57 `EEPROM 110,(32,32,32,32,32,32,32,32,32) ;Store Big Digit " " in eeprom ascii (Space) EEPROM 250,(1,2,4,3,3,0) ;250-255 bytes Store 6 digit security code data (235441) in eeprom #gosubs 255 ;Set maximum number of 'Gosubs' to 255 ;************************************************************************************************************* Start: ;Initialise Program. Start Timer, Load Variables setfreq m8 ;Setfreq CPU Freq to 8mhz Poke SecFlag, 1 ;Set SecFlag (Cleared by Security routine to allow engine Start/Run) Low DriveInhibit ;Set Drive Inhibit low to disable system (Prevent Engine Starting/Running) high Video ;Set Video Output high to initiate video data read SecStore, CountC ;Load last saved Security Check Byte reading from eeprom storage if CountC > 0 then ;Test if Security Check is > 0, if it is then reset it and wait 30 seconds pause 60000 ;Pause 30 seconds at 8mhz CountC = 0 ;Set saved SecFlag to 0 write SecStore, CountC ;Write Security Check Byte to eeprom for storage when Master Off endif read SocStore, WORD Soc ;Load last saved Soc reading from eeprom storage if Soc = 0 then ;Test if stored Soc is 0, if it is set SOC to InitialSoc Soc = InitialSoc ;Set SOC/Capacity (State of charge) to InitialSoc write SocStore, WORD Soc ;Write SOC reading to eeprom for storage when Master Off endif CountW = Soc / 1000 ;Get first part of Soc decimal value (Before decimal point) CountX = Soc // 1000 ;Get second part of Soc decimal value (After decimal point) CountX = CountX / 100 ;Discard last two digits of result (After decimal point) poke SocH, WORD CountW ;Store Soc before decimal point in SocH Ram Word poke SocL, WORD CountX ;Store Soc after decimal point is SocL Ram Word read OdoStore, WORD CountW ;Load last saved Odometer (Mile) reading from eeprom storage if CountW = 0 then ;Test if stored Odo reading is 0, if it is set Odo to OdoMeter CountW = OdoMeter ;Set Initial Odo reading to the value in constant OdoMeter write OdoStore, WORD CountW ;Write Odometer reading to eeprom for storage when Master Off endif read DistStore, WORD Distance ;Load last saved Distance (Feet) reading from eeprom storage read WhStore, WORD WhMile ;Load last saved WhMile reading from eeprom storage serout Video,Baud9600,(27,67," BMS Master V96 By Peter Perkinswww.150mpg.co.uk") ;Splash Screen Video Display serout Video,Baud9600,(10,13," ** ",#Cells," Cells **") ;Video Display Number Of Cells gosub CheckTemp ;Gosub CheckTemp routine to get initial battery pack temperature serout Video,Baud9600,(27,67) ;Clear Screen settimer t1s_8 ;Set internal (timer) variable to 1 second ticks at 8mhz ;************************************************************************************************************* ;************************************************************************************************************* MainLoop: ;Main program loop toggle WatchDogLed ;Keeps watchdog happy, flashes every other time through loop gosub CheckSecurity ;Gosub CheckSecurity routine to evaluate readiness to start/run gosub CheckCells ;Gosub CheckCells routine to collect/display Cell V data gosub CheckCurrent ;Gosub CheckCurrent routine to accumulate/display charge/discharge data gosub CheckSpeed ;Gosub CheckSpeed routine to calculate/display speed/distance if timer >59 then ;if SocTimer > 59 (1 Minute has elapsed) gosub CheckTemp ;Gosub CheckTemp routine to get/display battery pack temp at 1 min intervals gosub CalcSoc ;Gosub CalcSoc routine to calculate/display running Soc at 1 min intervals timer = 0 ;Reset timer variable to 0 (Start another 1 minute timing loop) endif gosub MenuButtons ;Gosub MenuButtons gets button data (0,1,2,3,4,5=no button) value in CountE on CountE gosub StartChg, DisplayB, SecurityCode, SetAlarm, SetSoc ;Gosub depending on button pressed if AlarmBits > 0 then DisplayAlarms ;If AlarmBits > 0 goto Alarms Display low Alarm ;Deactivate audible alarm poke AlarmRep, 0 ;Set AlarmRep byte flag to 0 indicates no Alarm set gosub DisplayRoutine ;Gosub Normal Display Routine if WarnBits > 0 then DisplayWarnings ;If WarnBits > 0 goto Warnings Display low Charger ;De-activate Charger pull down opto low Controller ;De-activate Controller pull down opto low portc led1 ;Deactivate dash Alarm Led1 ; goto mainloop ;Goto main program loop ;************************************************************************************************************* ;************************************************************************************************************* CheckCells: ;Check Cells subroutine, receive data to calculate pack voltage CountW = 0 ;Reset CountW to 0 (Used to accumulate highest Cell V) CountX = 500 ;Reset CountX to 500 (Used to accumulate lowest Cell V) PackVoltage = 0 ;Reset PackVoltage Total to zero = 0V high SlaveBus ;Turn on Message waiting signal (SlaveBus) pause Delay ;Hold Message waiting signal high until Slave has time to respond low SlaveBus ;Turn off Message waiting signal (SlaveBus) for CountE = 1 to Cells ;Start for/next loop to read cell data Pulsin MasterBus,1 ,CellVoltage ;Read data pulse on MasterBus CellVoltage = 5us Pulse x CellVoltage if CellVoltage = 0 then DataError ;If Pulsin command times out 320ms at 8mhz then data error if CellVoltage > CountW then ;If CellVoltage > CountW then (If Current Cell > Highest Cell) CountW = CellVoltage ;CountW = CellVoltage (Store Current High Cell V in CountW) endif if CellVoltage < CountX then ;If CellVoltage < CountX then (If Current Cell < Lowest Cell) CountX = CellVoltage ;CountX = CellVoltage (Store Current Low Cell V in CountX) endif if CellVoltage > AbsMaxCellVoltage then ;If cell V > AbsMaxCellVoltage then set Alarm Bit Alarm1 = 1 ;Set Alarm1 Bit to 1 (Indicates Cell over AbsMax Voltage condition) poke ErrCell, CountB ;Store Error Cell number in ErrCell Ram Byte endif if CellVoltage < AbsMinCellVoltage then ;If cell V < AbsMinCellVoltage then set Alarm Bit Alarm2 = 1 ;Set Alarm2 Bit to 1 (Indicates Cell under AbsMin Voltage condition) poke ErrCell, CountB ;Store Error Cell number in ErrCell Ram Byte endif if CellVoltage > MaxCellVoltage then ;If cell V > MaxCellVoltage then set Warning Bit Warn1 = 1 ;Set Warn1 Bit to 1 (Indicates Cell over Max Voltage condition) poke ErrCell, CountB ;Store Error Cell number in ErrCell Ram Byte endif if CellVoltage < MinCellVoltage then ;If cell V < MinCellVoltage then set Warning Bit Warn2 = 1 ;Set Warn2 Bit to 1 (Indicates Cell under Min Voltage condition) poke ErrCell, CountB ;Store Error Cell number in ErrCell Ram Byte endif PackVoltage = PackVoltage + CellVoltage ;Add Cell voltage to accumulated Pack voltage next CountE ;Increment for/next loop and move to next Cell poke HighV, WORD CountX ;Store Highest CellV in HighV Ram Word poke LowV, WORD CountW ;Store Lowest CellV in LowV Ram Word if CountX > CutInV then ;If CountX (Highest Cell V) > Load Cut In V then poke BalFlag, 1 ;Set Cell BalFlag to 1 endif if CountX < CutOutV then ;If CountX (Highest Cell V) < Load Cut Out V then poke BalFlag, 0 ;Set Cell BalFlag to 0 endif PackVoltage = PackVoltage / 100 ;Get first part of decimal value (Before decimal point) poke PackV, WORD PackVoltage ;Store Pack Voltage in PackV Ram Word Alarm3 = 0 ;Set Alarm3 Bit to 0 (Indicates No Cell Data Timeout Error) return ;Return to main program loop DataError: ;Serial Slave Data Receive TimeOut, If no Data received within (TimeOut = 100ms) then jumps here poke ErrCell, CountB ;Store Error Cell number in ErrCell Ram Byte Alarm3 = 1 ;Set Alarm3 Bit to 1 (Indicates Cell Data Timeout Error) return ;Return to main program loop ;************************************************************************************************************** CheckTemp: ;Check Battery Pack temperature routine (Multiple DS18B20 I2C Sensors) Once per minute `The owout lines become TempSensor,%1001,($55,xx,xx,xx,xx,xx,xx,xx,xx,$44) where xx = decimal serial no's for the I2C chips `Sensor 1 (Front Battery Block) owout TempSensor,%1001,($55,40,16,70,22,1,0,0,170,$44) ;Send ‘reset’ then ‘Match ROM’ pause 1500 ;Wait 750ms (8mhz) with strong pullup owout TempSensor,%0001,($55,40,16,70,22,1,0,0,170,$BE) ;Send ‘reset’ then ‘Match ROM’ gosub calculatetemp ;Gosub Calculate Temperature routine poke Temp1, CountE ;Store Front Battery Temperature in Temp1 Ram Byte poke Temp1S, CountA ;Store Temperature Sign byte (+ or -) `Sensor 2 (Rear Battery Block) owout TempSensor,%1001,($55,40,14,45,234,0,0,0,75,$44) ;Send ‘reset’ then ‘Match ROM’ pause 1500 ;Wait 750ms (8mhz) with strong pullup owout TempSensor,%0001,($55,40,14,45,234,0,0,0,75,$BE) ;Send ‘reset’ then ‘Match ROM’ gosub calculatetemp ;Gosub Calculate Temperature routine poke Temp2, CountE ;Store Rear Battery Temperature in Temp2 Ram Byte poke Temp2S, CountA ;Store Temperature Sign byte (+ or -) return ;Return to main program loop ;************************************************************************************************************** CalculateTemp: owin TempSensor,%0000,(b16,b17) ;Read temp sensor result into w8 (b16,b17) PackTemp12 If PackTemp12 > 2047 Then ;If PackTemp12 > 2047 then temperature reading is Negative PackTemp12 = PackTemp12 ^ $ffff + 1 ;Take twos complement of reading CountA = 45 ;Set CountA to 45 (-) if temperature is negative else CountA = 43 ;Set CountA to 43 (+) if temperature is positive endif `Convert 12bit DS18B20 value to a valid temperature reading CountW = PackTemp12 * 6 ;TC = value * 0.0625 PackTemp12 = PackTemp12 * 25 / 100 PackTemp12 = CountW + PackTemp12 CountE = PackTemp12 / 100 ` CountE = 47 ;Test Temp Over Max ` CountE = 55 ;Test Temp Over AbsMax if CountE > AbsMaxPackTemp then ;If Temp > AbsMaxPackTemp set Alarm Bit Alarm4 = 1 ;Set Alarm4 Bit to 1 (Indicates Temp over AbsMax Temp condition) endif if CountE > MaxPackTemp then ;If Temp > MaxPackTemp set Warning Bit Warn3 = 1 ;Set Warn3 Bit to 1 (Indicates Temp over Max Temp condition) endif return ;Return to CheckTemp ;************************************************************************************************************** CheckSecurity: ;Check Security & Interlocks Routine for readiness to drive/start peek SecFlag, CountE If Interlocks = 1 or CountE = 1 then ;If Interlocks pin = 1 (High) or SecFlag = 1 then set IloFlag poke IloFlag, 1 ;Set IloFlag to 1 (Interlock Set = Not ready to drive) Low DriveInhibit ;Set Drive Inhibit low to disable system (Prevent Engine Start/Run) else poke IloFlag, 0 ;Set IloFlag to 0 (Indicates Interlock Clear = Ready to drive) High DriveInhibit ;Set Drive Inhibit high to enable system (Allow Engine start/Run) endif return ;Return to main program loop ;************************************************************************************************************** CheckCurrent: ;Accumulate (Current in Amps) charge/discharge data CountW = 0 ;Reset Current oversampling accumulator to 0 (Zero) for CountA = 1 to 10 ;Start x10 Current oversampling loop readadc10 CurrentSensor, BatCurrent ;Read present charge/discharge current (0-1023 10bit)(-100A to +100A 0-5V) CountW = CountW + BatCurrent ;Add Current to accumulated Current Next CountA ;Repeat loop until 10 samples obtained BatCurrent = CountW / 10 ;Divide CountW by 10 to get average current from last 10 samples if BatCurrent >514 then ;If BatCurrent is >514 means system is Charging BatCurrent = BatCurrent - 512 ;Subtract sensor offset to get a positive number (0-512 = 0-100A+) BatCurrent = BatCurrent * 10 / 25 ;Convert sensor charge rate to charge rate in Amps x 10 Charge = Charge + BatCurrent ;Add Latest sensor Current reading to running 1 minute Charge total poke PosNeg, 43 ;Set ascii Character 43 (+) to be displayed if charging goto ExitCurrent endif if BatCurrent <510 then ;If BatCurrent is <510 means system is Discharging BatCurrent = 512 - BatCurrent ;Subtract sensor offset to get a positive number (0-512 = 0-100A-) BatCurrent = BatCurrent * 10 / 25 ;Convert sensor charge rate to charge rate in Amps x 10 Discharge = Discharge + BatCurrent ;Add Latest sensor Current reading to running 1 minute Discharge total poke PosNeg, 45 ;Set ascii Character 45 (-) to be displayed if discharging goto ExitCurrent endif BatCurrent = 0 ;If BatCurrent = 510 to 514 inc then set BatCurrent to 0 (Zero) poke PosNeg,32 ;Set ascii Character 32 (Space) to be displayed if no charge/discharge ExitCurrent: inc SocCounter ;SocCounter = SocCounter + 1 poke BatC, WORD BatCurrent ;Store Battery Current in BatC Ram Word return ;Return to main program loop ;************************************************************************************************************** CalcSoc: ;Use 1 min accumulated sensor current data to calculate Soc if Charge > 0 then ;If no Charge in last minute jump over Charge calculations Charge = Charge / SocCounter ;Calculate average sensor charge rate for last minute Charge = Charge * 10 ;Calculate Amount of power/current added in last minute Soc = Soc + Charge ;Add amount of power generated in last minute to (Soc) PackCapacity Charge = 0 ;Reset Charge Counter to 0 endif if Discharge > 0 then ;If no Discharge in last minute jump over Discharge calculations Discharge = Discharge / SocCounter ;Calculate average sensor discharge rate for last minute Discharge = Discharge * 10 ;Calculate Amount of power/current used in last minute Soc = Soc - Discharge ;Subtract amount of power used in last minute from (Soc) PackCapacity Discharge = 0 ;Reset Discharge Counter to 0 endif write SocStore, WORD Soc ;Write Soc reading to eeprom for storage when Master Off ` write DistStore, WORD Distance ;Write Distance reading to eeprom for storage when Master Off ` write WhStore, WORD WhMile ;Write WhMile reading to eeprom for storage when Master Off if Soc < SocMin then ;If Soc < SocMin then less than 10% capacity remaining warn4 = 1 ;Set Warn4 Bit to 1 (Indicates Pack < 10% capacity remaining) endif SocCounter = 0 ;Reset SocCounter to 0 CountW = Soc / 1000 ;Get first part of decimal value (Before decimal point) CountX = Soc // 1000 ;Get second part of decimal value (After decimal point) CountX = CountX / 100 ;Discard last two digits of result (After decimal point) poke SocH, WORD CountW ;Store Soc before decimal point in SocH Ram Word poke SocL, WORD CountX ;Store Soc after decimal point is SocL Ram Word return ;Return to main program loop ;************************************************************************************************************** #REM There are 4550 wheel sensor pulses per mile traveled for the Honda Insight ***** Using the Count command we are reading pulses per 1/4 second ***** s = speed in MPH x = pulses per second s = (x*360)/455 Should give pulses per hour, divided by pulses per mile, to give you a mile per hour figure so for 60mph reading would be reading about 76 pulses per second Speed Mph = (X*360)/455 The maximum pulses per second the 16 bit speed maths can stand is 180 which equates to a speed of 142 mph If you exceed 142mph the speedo will be incorrect/overflow (read low) during that second Now we need Distance in feet travelled in that second Distance ft per second = (X*528)/455 Distance ft per second at 60mph ( 88 = 5280 / 60) 88ft per second = 60mph To keep a running total of feet travelled Distance = Distance + (X*528)/455 When Distance = 5280ft (1 mile) increment odometer and start again The maximum pulses per second the 16 bit distance maths can stand is 124 which equates to a speed of 98mph If you exceed 98mph the distance will be incorrect/overflow (read low) during that second ***** Using the Pulsin command to measure the length of a single pulse instead of the Count command ******* We could try this: 7908 / (pulsin / 10) This will return the following: 1.2067 mph = 1.21 1.875mph = 1.88 3.75mph = 3.75 7.50 = 7.50 15.00 = 15.00 30.00 = 30.00 60.00 = 60.00 120.00= 120.00 We can get remainder using modulo division and then create an integer value from 12 (1.2mph) to 1200 (120.0mph) by appropriately scaling the two results. We still need to do the overflow check, which means that the speedo won't read below about 1.2mph. #ENDREM CheckSpeed: ` Pulsin command measures the length of a pulse. In no pulse occurs in the timeout period, the result will be 0 pulsin SpeedSensor,0,CountW ;Measure length of a VSS pulse in 5us (8mhz) units (Timeout 0.32768s) if CountW = 0 then ;If CountW = 0 means pulsin has timed out and vehicle is moving at < 1.5mph CountX = 0 ;Set CountX to 0 goto CheckDistance ;Jump over calculations as vehicle not moving endif CountW = CountW / 10 ;Divide CountW by 10 to enable results to fit into 16 bit Integer Maths CountW = 7908 / CountW ;Returns speed in mph accurate to 1 mph CheckDistance: poke Mph, WORD CountW ;Store Speed in Mph in Mph Ram Word CountW = CountW * 146 ;Multiply CountW x 146 to work out feet/second (1mph = 1.46ft per second) CountW = CountW / 100 ;Divide CountW by 100 to get result back after integer maths scaling above Distance = Distance + CountW ;Add distance travelled in last second to running total read OdoStore, WORD CountW ;Load last saved Odometer (Mile) reading from eeprom storage If Distance >= 5280 then ;5280ft per mile / Tyre circumference 5.8ft = 910 revs per mile inc CountW ;Increment Odometer by 1 mile write OdoStore, WORD CountW ;Write current Odometer reading to eeprom for storage when Master Off Distance = Distance - 5280 ;Subtract (5280ft 1 mile) from Distance and start accumulating again endif return ;Return to main program loop ;************************************************************************************************************** DisplayAlarms: ;Alarms turns on led/audible alarms and turns off charger etc ;Action taken depends on Alarm Bits (8 different Alarms max!) peek AlarmRep, CountB ;Retrieve CountB (AlarmRep flag byte from ram store) Indicates alarm set on previous loop if CountB = 0 then ;If CountB = 0 then no Alarm from previous loop so clear and reverse screen serout Video,Baud9600,(27,33,27,67," * BMS Alarms * ",10,13) ;Display Negative, Clear Screen & Display Message else serout Video,Baud9600,(27,83,0,2) ;Set cursor display position endif poke AlarmRep, 1 ;Set AlarmRep flag byte to 1 indicate Alarm set peek ErrCell, CountB ;Retrieve CountB (CountB = Cell Number) from ErrCell RAM Byte high portc led1 ;Activate dash Alarm Led1 high Alarm ;Activate audible alarm high Charger ;Activate Charger pull down opto high Controller ;Activate Controller pull down opto low ChargerOnOff ;Turn off Charger main relay poke ChgFlag, 0 ;Set ChgFlag to 0 indicates Charging Off low portc led2 ;Deactivate dash Led2 Mains Charging Indicator If Alarm1 = 1 then ;bit0 = Alarm Bit 1 (Cell over AbsMax V) serout Video,Baud9600,("Cell ",#CountB," >AMaxV ",10,13) ;Video Display endif If Alarm2 = 1 then ;bit1 = Alarm Bit 2 (Cell under AbsMin V) serout Video,Baud9600,("Cell ",#CountB," AbsMaxTemp ") ;Video Display endif If Alarm8 = 1 then ;bit7 = Alarm Bit 8 (Alarm test condition set) serout Video,Baud9600,(" Alarm Test! ") ;Video Display endif AlarmBits = 0 ;Reset AlarmBits to 0 (Clears any Alarm Flags) goto MainLoop ;Goto main program loop ;************************************************************************************************************** DisplayWarnings: ;Warnings turns on led warnings and turns down charger etc ;Action taken depends on Warning Bits (8 different warnings max!) peek ErrCell, CountB ;Retrieve CountB (CountB = Cell Number) from ErrCell RAM Byte high portc led1 ;Activate dash Alarm Led1 serout Video,Baud9600,(27,83,0,8," ") ;Video Display If Warn1 = 1 then ;bit8 = Warning Bit (Cell over Max V) high Charger ;Activate Charger pull down opto high Controller ;Activate Controller pull down opto serout Video,Baud9600,(27,83,0,8,"Cell ",#CountB," >MaxV ") ;Video Display endif If Warn2 = 1 then ;bit9 = Warning Bit (Cell under Min V) high Controller ;Activate Controller pull down opto serout Video,Baud9600,(27,83,0,8,"Cell ",#CountB," Max Temp") ;Video Display endif If Warn4 = 1 then ;bit11 = Warning Bit (Battery Pack < 10% capacity remaining) serout Video,Baud9600,(27,83,0,8,"Soc < 10% Left!") ;Video Display endif If Warn8 = 1 then ;bit15 = Warning Bit (Warning test conditon set) serout Video,Baud9600,(27,83,0,8," Warning Test! ") ;Video Display high Charger ;Activate Charger pull down opto high Controller ;Activate Controller pull down opto endif WarnBits = 0 ;Reset WarnBits to 0 (Clears any Warning Flags) goto MainLoop ;Goto main program loop ;************************************************************************************************************** DisplayB: ;Display Extended Cell BMS Data pause 250 ;pause for 125ms at 8mhz high SlaveBus ;Turn on Message waiting signal (SlaveBus) pause Delay ;Hold Message waiting signal high until Slave has time to respond low SlaveBus ;Turn off Message waiting signal (SlaveBus) serout Video,Baud9600,(27,67) ;Video Display Clear Screen Command Sequence for CountA = 1 to Cells ;Start for/next loop to read cell data Pulsin MasterBus,1 ,CellVoltage ;Read data pulse on MasterBus CellVoltage = 5us Pulse x CellVoltage w2 = CellVoltage / 100 ;Get first part of decimal value (Before decimal point) w4 = CellVoltage // 100 ;Get second part of decimal value (After decimal point) serout Video,Baud9600,("Cell ",#CountA," ",#w2,".",#w4,"V ",10,13) ;Video Display next CountA ;Increment for/next loop and move to next cell Pause 1000 ;Pause for 0.5 seconds serout Video,Baud9600,(10,13,"Press 5 to Exit ") ;Video Display Loop2: gosub MenuButtons ;MenuButtons routine gets current button data (0,1,2,3,4,5) value in CountE If CountE <> 4 then Loop2 ;If Button 5 (Menu) is not pressed goto Loop2 Pause 1000 ;Pause for 0.5 seconds serout Video,Baud9600,(27,67) ;Clear Main Video Display return ;Return to main program loop ;************************************************************************************************************** StartChg: ;Start Charging Cycle Routine If AlarmBits >0 then ;If any Alarms are set then charge start is aborted serout Video,Baud9600,(27,83,0,8," Charge Error! ") ;Video Display high Alarm ;Activate audible alarm high portc led1 ;Activate dash Alarm Led1 Pause 1000 ;Pause for 0.5 seconds at 8mhz low Alarm ;Deactivate audible alarm low portc led1 ;Deactivate dash Alarm Led1 return ;Return to main loop, charging aborted due to relevant error Bit set endif peek ChgFlag, CountE If CountE = 0 then poke ChgFlag, 1 ;Set ChgFlag = 1 low Charger ;De-activate Charger pull down opto low Controller ;De-activate Controller pull down opto high ChargerOnOff ;Turn on Charger main relay high portc led2 ;Activate dash Led2 Mains Charging Indicator else poke ChgFlag, 0 ;Set ChgFlag = 0 low ChargerOnOff ;Turn off Charger main relay low portc led2 ;De-activate dash Led2 Mains Charging Indicator endif return ;Return to main program loop ;************************************************************************************************************** SecurityCode: ;Security Code Routine pause 1000 ;pause for 500ms at 8mhz serout Video,Baud9600,(27,67," Enter Security Code Now Please!") ;Video Display + Command Sequence serout Video,Baud9600,(27,83,5,3) ;Set cursor to middle of screen to display null codes pause 1000 ;pause for 500ms at 8mhz CountC = 0 ;Set Security Check error counter to 0 for CountA = 250 to 255 ;Start 6 digit Security Loop read CountA,CountB ;Read Security Code byte value from eeprom data area Loop3: gosub MenuButtons ;Gosub MenuButtons Routine if CountE = 5 then Loop3 ;If no button pressed goto Loop3 if CountE <> CountB then ;If a wrong button is pressed then SecurityError inc CountC ;Increment Security Check error counter endif serout Video,Baud9600,("*") ;Video Display Null Characters pause 1000 ;pause for 500ms at 8mhz Next CountA ;Repeat loop until all code entered If CountC > 0 then ;If CountC > 0 a wrong code has been entered serout Video,Baud9600,(10,10,13,"* Wrong Code!! * Drive Disabled ") ;Video Display high Alarm ;Activate audible alarm high portc led1 ;Activate dash Alarm Led1 Pause 1000 ;Pause for 0.5 seconds at 8mhz low Alarm ;Deactivate audible alarm Pause 60000 ;Pause for 30 seconds at 8mhz low portc led1 ;Deactivate dash Alarm Led1 else serout Video,Baud9600,(10,10,13,"*** Code OK! *** Drive Enabled! ") ;Video Display poke SecFlag, 0 ;Set SecFlag to 0 to allow starting/running etc pause 2000 ;pause for 1s at 8mhz endif write SecStore, CountC ;Write Security Check counter to eeprom for storage when Master Off serout Video,Baud9600,(27,67) ;Clear Main Video Display Return ;************************************************************************************************************** #REM Decide on a number of switches Our example will use 5 switches Figure out the value of the steps. A step is the ADC space between each switch. A circuit will always have one more step than it does switches. So, we have 6 steps. To get our value, we divide our ADC range (readadc is 256, readadc10 is 1024) by our number of steps. Then, truncate the answer. ADC range 256 / 6 = 42.66 (42 per step) 6 = number of steps (5 switches + 1 extra step) Ok, we have the numbers we need now lets plug them in. b1 = b0 + 6 / 42 b1 contains the number of the key pressed!! #ENDREM MenuButtons: ;Menu decodes button Inputs and returns 1 of 6 values (0,1,2,3,4,5) readadc ButtonsADC,CountE ;Read ButtonsADC input and get value into Local 0-255 Variable CountE ` CountE = CountE + 6 / 42 - 1 ;Convert ADC data to button number. (Remove ` if using new button design) if CountE > 245 then ;If CountE > 245 ish (5v) then no button pressed (Remove if using new button design) CountE = 5 ;Make CountE = 5 (No button pressed) (Remove if using new button design) return ;Return to Main Program (Remove if using new button design) endif if CountE > 197 and CountE < 215 then ;If CountE = 200 ish button 1 pressed (Remove if using new button design) CountE = 0 ;Make CountE = 0 (Button 1 pressed) (Remove if using new button design) return ;Return to Main Program (Remove if using new button design) endif if CountE > 180 and CountE < 198 then ;If CountE = 190 ish button 2 pressed (Remove if using new button design) CountE = 1 ;Make CountE = 1 (Button 2 pressed) (Remove if using new button design) return ;Return to Main Program (Remove if using new button design) endif if CountE > 160 and CountE < 180 then ;If CountE = 170 ish button 3 pressed (Remove if using new button design) CountE = 2 ;Make CountE = 2 (Button 3 pressed) (Remove if using new button design) return ;Return to Main Program (Remove if using new button design) endif if CountE > 120 and CountE < 140 then ;If CountE = 130 ish button 4 pressed (Remove if using new button design) CountE = 3 ;Make CountE = 3 (Button 4 pressed) (Remove if using new button design) return ;Return to Main Program (Remove if using new button design) endif if CountE < 10 then ;If CountE < 10 ish (0v) then button 5 pressed (Remove if using new button design) CountE = 4 ;Make CountE = 4 (Button 5 pressed) (Remove if using new button design) return ;Return to Main Program (Remove if using new button design) endif CountE = 5 ;Make CountE = 5 (No button recognised) (Remove if using new button design) return ;Return to main program ;************************************************************************************************************** SetAlarm: ;Toggle test Alarm conditon if Alarm8 = 0 then Alarm8 = 1 else Alarm8 = 0 endif return ;************************************************************************************************************** SetWarn: ;Toggle test Warning condition if Warn8 = 0 then Warn8 = 1 else Warn8 = 0 endif return ;************************************************************************************************************** SetSoc: ;Set Soc to Initial Soc Soc = InitialSoc ;Set Soc to Initial Soc write SocStore, WORD Soc ;Write Soc reading to eeprom for storage when Master Off return ;************************************************************************************************************** DisplayRoutine: ;Main BMS Display generated here from stored info/parameters serout Video,Baud9600,(27,46,27,83,0,0) ;Set Display to Normal and Cursor to 0,0 `Display Pack Voltage peek PackV, WORD CountW ;Retrieve PackVoltage from PackV RAM Word serout Video,Baud9600,("Bat Volts ",#CountW," ",10,13) ;Video Display `Display Battery Current peek BatC, WORD CountX ;Retrieve BatCurrent from BatC RAM Word peek PosNeg, CountE ;Retrieve ascii (+ or -) from PosNeg RAM Byte serout Video,Baud9600,("Bat Amps ",CountE,#CountX," ",10,13) ;Video Display `Display Highest Cell Voltage peek HighV, WORD CountW ;Retrieve Highest Cell Voltage from HighV RAM Word w2 = CountW / 100 ;Get first part of decimal value (Before decimal point) w4 = CountW // 100 ;Get second part of decimal value (After decimal point) serout Video,Baud9600,("High Cell ",#w2,".",#w4," ",10,13) `Display Lowest Cell Voltage peek LowV, WORD CountX ;Retrieve Lowest Cell Voltage from LowV RAM Word w2 = CountX / 100 ;Get first part of decimal value (Before decimal point) w4 = CountX // 100 ;Get second part of decimal value (After decimal point) serout Video,Baud9600,("Low Cell ",#w2,".",#w4," ",10,13) ;Video Display `Display Temperatures peek Temp1, CountA ;Retrieve Front Battery temp from Temp1 RAM Byte peek Temp1S, CountB ;Retrieve temperature sign (+ or -) from Temp1S RAM Byte serout Video,Baud9600,(248,"C A",CountB,#CountA," ") ;Display battery temperatures peek Temp2, CountA ;Retrieve Rear Battery temp from Temp2 RAM Byte peek Temp2S, CountB ;Retrieve temperature sign (+ or -) from Temp2S RAM Byte serout Video,Baud9600,("B",CountB,#CountA," ",10,13) ;Display battery temperatures `Display Battery State of Charge SOC peek SocH, WORD CountW ;Retrieve Battery SOC before decimal point from SocH RAM Word peek SocL, WORD CountX ;Retrieve Battery SOC after decimal point from SocL RAM Word serout Video,Baud9600,("Cap Ah ",#CountW,".",#CountX," ") ;Video Display `Display Speed peek Mph, WORD CountW ;Retrieve Speed in Mph from Mph RAM Word serout Video,Baud9600,(10,13,"Speed Mph ",#CountW," ",10,13) ;Video Display `Display Distance read OdoStore, WORD CountX ;Retrieve Odometer (Mile) reading from Eeprom Word serout Video,Baud9600,("Odometer ",#CountX," ",10,13) ;Video Display `Display Balance, Charging & Start/Run Flags on bottom of screen. (Note this line is used for warnings as well) If WarnBits = 0 then ;If WarnBits = 0 then display normal message peek BalFlag, CountE If CountE = 1 then ;If BalFlag = 1 display balancing message serout Video,Baud9600,("Bal 1 ") ;Video Display else serout Video,Baud9600,("Bal 0 ") ;Video Display endif peek ChgFlag,CountE if CountE = 1 then ;If ChgFlag = 1 display charging message serout Video,Baud9600,("Chg 1 ") ;Video Display else serout Video,Baud9600,("Chg 0 ") ;Video Display endif peek SecFlag, CountA peek IloFlag, CountB if CountA = 1 or CountB = 1 then ;If flags set display drive inhibited serout Video,Baud9600,("Dr 0") ;Video Display else serout Video,Baud9600,("Dr 1") ;Video Display endif endif return ;Return to main program loop #REM *** Odd Notes By measuring voltage as a function of current, you can work out the resistance of the battery. R = (V_0 - V_I)/I where V0 is the voltage with 0 current and VI is the terminal voltage when delivering current I to a load. #ENDREM