'##########################
'Es sind drei Versionen dieser Software verfügbar!
'V1: Für LSU4.2 Sonden mit Messbereich Lambda 0,7...1,3
'V2: Für LSU4.2 Sonden mit Messbereich Lambda 1,0...2,0
'V3: Für LSU4.9 Sonden mit Messbereich Lambda 1,0...2,0
'Unterschiede finden sich ausschließlich in den Tabellen für den analogen Ausgang

$regfile = "m8def.dat"
$crystal = 14745600
$baud = 115200

$hwstack = 96
$swstack = 96
$framesize = 96

'Dimension variables
Dim Ref As Word , Bat As Word , Ur As Word , Ua As Word , Heater_cal As Word , Lambda_cal As Word , Cal As Bit       'Analog Inputs
Dim K_1 As Byte , K_2 As Byte , In_1 As Byte , In_2 As Byte , Temporary As Byte       'Soft SPI
Dim Mymcusr As Byte , Status As Byte                        'System-Variables
Dim T0_1 As Byte , T0_2 As Byte , T0_3 As Bit               'Timing
Dim Sercom As String * 3 , Newsercom As Bit , Pwm_bit As Bit , Length As Byte , Fast As Bit , Text As Bit       'UART communication
Dim Zeit As Word , Div_zeit As Word , Reg As Word , Esum As Integer , E As Integer , Y As Integer       'Heater
Dim P As Integer , I As Integer , Ealt As Integer , Heat_control As Bit , Heat_control_uart As Bit
Dim Heat_up As Bit , Vl As Bit
Dim Ua_corr As Integer , Ref_corr As Integer , Lambda_cal_corr As Integer , A As Byte , B As Integer , C As Integer

Const Kp = 80
Const Ki = 25

'Copy Mcusr for Watchdog into myMcusr
Mymcusr = Peek(0)

'Rename In- and Output pins
'CJ125 In/Out
Spi_ss Alias Portd.7
Spi_sck Alias Portb.5
Spi_mosi Alias Portb.0
Spi_miso Alias Pinb.4
Lsu_temp Alias Pinc.0
Lsu_lambda Alias Pinc.1
'LSU and Control In/Out
Pwm_heater Alias Portb.1
Bat_voltage Alias Pinc.2
Ref_voltage Alias Pinc.3
'Diagnosis In/Out
Error_out Alias Portd.6
Stat_good Alias Portd.5
Analog_out Alias Portb.3
Gp1 Alias Portd.2
Gp2 Alias Pind.3
Gp3 Alias Pind.4

'Config Pins/Ports as In- or Output
Config Spi_ss = Output , Spi_sck = Output , Spi_mosi = Output , Spi_miso = Input
Config Lsu_temp = Input , Lsu_lambda = Input
Config Pwm_heater = Output , Bat_voltage = Input , Ref_voltage = Input
Config Error_out = Output , Stat_good = Output , Gp1 = Output , Pind.3 = Input , Pind.4 = Input , Analog_out = Output

Portd.3 = 1                    'Activate internal pullup for GP2 and GP3
Portd.4 = 1

'Config Analog/Digital Converter
Config Adc = Single , Prescaler = Auto , Reference = Avcc

'Config Timer0
Config Timer0 = Timer , Prescale = 1024
Stop Timer0

'Config Timer1
Config Timer1 = Pwm , Pwm = 10 , Compare A Pwm = Clear Down , Prescale = 256

'Config Timer2
Config Timer2 = Pwm , Compare Pwm = Clear Up , Prescale = 1

'Config Serialport
Config Serialout = Buffered , Size = 80
Config Serialin = Buffered , Size = 10 , Bytematch = 13

'Declare functions/subs
Declare Function Kom(byval Adress As Byte , Byval Command As Byte) As Byte       'Communications with CJ125
Declare Sub Heatercontrol()
Declare Sub Serial0charmatch()                    'UART-input handler
Declare Sub Serialinput()                    'UART-input processing
Declare Sub Wd()                    'Failsafe routine
Declare Sub Uart()                    'UART-Transmitter
Declare Sub Analog()                    'Analog-Out tables

'Init program
Enable Timer0                    'Timer0 Interrupts
Enable Interrupts                    'Global interrupts
On Timer0 Isr_t0                    'Timer0 Interrupt handler
Set Spi_ss                    'Init CJ125 interface
Reset Spi_sck
Start Timer0

'Check and config Watchdog
If Mymcusr.wdrf = 1 Then
   Call Wd()                    'After critical time-out: Go to failsafe
End If

Config Watchdog = 2048                    'If watchdog isn't reseted after 2 seconds -> Reset and Failsafe
Start Watchdog

'Load calibrationvalue for automatic heater reg.
Temporary = Kom(86 , 157)                    'Change CJ125 into calibrationmode
Pwm2 = 208                    'Set Analog Out to 4.0V
Wait 1
Heater_cal = Getadc(0)                    'Get optimal temp.
Lambda_cal = Getadc(1)                    'Get Lambda=1
Temporary = Kom(86 , 137)