print "autorun.bas is loading t1.bas"
load "t1.bas"
list all

t1=Timer
For i=1 To 10000
Print i;
Next i
t2=Timer
Print
Print t2-t1

DOS MMBasic Ver 5.04.08
Copyright 2011-2017 Geoff Graham

autorun.bas is loading t1.bas
[4] Next i
Error: Invalid character ╬

autorun.bas is loading t1.bas
[4] Next i
Error: Invalid syntax

function Current_mA(Channel) 'Gets the current value in mA
ReadRegister(Channel, INA219_REGISTER_CURRENT, Value)
if BitGet(Value,15) = 1 then Value = - (Value xor &hFFFF) + 1 'Change negative number (in 2's complement) to positive number
if debug then print "Channel = "+str$(Channel)
if debug then print "Value = "+str$(Value)
if debug then print "INA219_currentDivider_mA = "+str$(INA219_currentDivider_mA)
Current_mA(Channel) = (Value / INA219_currentDivider_mA)
end function

> ? mm.ver
5.0501
>
> run
Measuring Startup Current Channel 1
Channel = 1
Value = 0
INA219_currentDivider_mA = 10
[663] Current_mA(Channel) = (Value / INA219_currentDivider_mA)
Error: Array dimensions
>

Current_mA = (Value / INA219_currentDivider_mA)

function Current_mA(Channel) 'Gets the current value in mA
ReadRegister(Channel, INA219_REGISTER_CURRENT, Value)
if BitGet(Value,15) = 1 then Value = - (Value xor &hFFFF) + 1 'Change negative number (in 2's complement) to positive number
Current_mA = (Value / INA219_currentDivider_mA)
end function

' EIS Test Program v1 beta 9 - for MM+470 (64 pin device)
' Core firmware v5.05.01

' option setups for the hardware...

' option console off (pin 6 used for SDcard)
' option display 36,127 (Teraterm) rows,colums
' option lcdpanel ILI9341,RLandscape,28,31,27
' option SDcard 6,44

Option explicit ' must define all named values

' Define screen positions for bargraph gauges

Const gaugebar_x=40
Const gaugebar_lenght=270
Const cht1_y=15
Const cht2_y=45
Const cht3_y=75
Const cht4_y=105
Const egt1_y=135
Const egt2_y=165

' Define label names used as index #s for EIS screen objects

Const flight_time=1 ' Objects for time display
Const engine_hours=2

Const cht_led_frame=3 ' Objects for LED Status
Const cht1_led=4
Const cht2_led=5
Const cht3_led=6
Const cht4_led=7

Const egt_led_frame=8
Const egt1_led=9
Const egt2_led=10
Const oil_led=11
Const bat_led=12

Const cht_digital_frame=13 ' Objects for digital readouts
Const cht1_digital=14
Const cht1_caption=15
Const cht2_digital=16
Const cht2_caption=17
Const cht3_digital=18
Const cht3_caption=19
Const cht4_digital=20
Const cht4_caption=21


Const egt_digital_frame=22
Const egt1_digital=23
Const egt1_caption=24
Const egt2_digital=25
Const egt2_caption=26
Const oil_digital=27
Const oil_caption=28
Const bat_digital=29
Const bat_caption=30

Const bar_frame=31 ' objects for horzontal temp bargauges
Const cht1_barcap=32
Const cht1_bar=33
Const cht2_barcap=34
Const cht2_bar=35
Const cht3_barcap=36
Const cht3_bar=37
Const cht4_barcap=38
Const cht4_bar=39
Const egt1_barcap=40
Const egt1_bar=41
Const egt2_barcap=42
Const egt2_bar=43

Const rpm_frame=44 ' objects for rpm and oil pressure gauges
Const rpm_gauge=45
Const oil_bar=46
Const oil_cap=47

' other fixed values

Const liters_per_pluse=0.0025 ' flow sensor values
Const gallons_per_pulse=0.00946352946
Const liters_in_gallon=3.785411784 ' convertion
' math should be 1514 pulses per gallon (1514.1647136)

' MM RAM Memory

Dim current_screen=4 ' RPM/OIL display screen
Dim kbdflag
Dim button
Dim display_led
Dim LTCaverage
Dim kbd_data$ ' byte storage for console input
Dim op_data ' Oil Pressure
Dim op_data_old
Dim op_avg

' threshold values for showing 4 colors on the GUI objects
' White, green, yellow, red

Dim cht_wg_sp=100 ' CHT Temp threshold value - white to green
Dim cht_gy_sp=250 ' green to yellow
Dim cht_yr_sp=350 ' yellow to red

Dim egt_wg_sp=200 ' EGT Temp threshold value - white to green
Dim egt_gy_sp=900 ' green to yellow
Dim egt_yr_sp=1100 ' yellow to red

Dim oil_rg_sp=15 ' OIL pressure threshold value - red to green
Dim oil_gy_sp=60 ' green to yellow
Dim oil_yr_sp=80 ' yellow to red

Dim bat_ry_sp=10 ' BATTERY volts threshold value - red to yellow
Dim bat_yg_sp=12 ' yellow to green
Dim bat_gr_sp=15 ' green to red

Dim rpm_max=7000 ' max rpm value shown on gauge scale
Dim rpm_wg_sp=200 ' RPM threshold value - white to green
Dim rpm_gy_sp=5000 ' green to yellow
Dim rpm_yr_sp=6500 ' yellow to red

Dim temp_cal=0 ' set to default temp offset
Dim temp_comp_C ' temp compensation temp value in C
Dim temp_comp_F ' temp compensation temp value in F
Dim temp_CHT1_C ' temp value in C
Dim temp_CHT1_F ' temp value in F
Dim temp_CHT2_C
Dim temp_CHT2_F
Dim temp_CHT3_C
Dim temp_CHT3_F
Dim temp_CHT4_C
Dim temp_CHT4_F
Dim temp_EGT1_C
Dim temp_EGT1_F
Dim temp_EGT2_C
Dim temp_EGT2_F

Dim pulse_count ' fuel flow sensor count
Dim pulse_count_old
Dim liters_count ' 0.0025 liters per pulse
Dim gallon_count ' 0.00946352946 gallons per pulse
Dim fl_data ' Fuel Level %
Dim fl_data_old
Dim fl_avg

Dim bl_data ' Battery Level %
Dim bl_data_old
Dim bl_avg

' LTC2983 temp IC memory

Dim LTC_setup_change ' flag
Dim LTC_ok ' IC present flag
Dim junk ' junk data reg
Dim LTCrxdata ' LTC Recieved data reg
Dim byte0,byte1,byte2,byte3 ' data bytes from IC
Dim LTCchannel_fault_data
Dim LTCchannel_temp_data
Dim ch1flt,ch1flt_old,ch1dat,ch1dat_old ' Temp Comp Sensor
Dim ch10flt,ch10flt_old,ch10dat,ch10dat_old ' EGT 2
Dim ch12flt,ch12flt_old,ch12dat,ch12dat_old ' EGT 1
Dim ch14flt,ch14flt_old,ch14dat,ch14dat_old ' CHT 4
Dim ch16flt,ch16flt_old,ch16dat,ch16dat_old ' CHT 3
Dim ch18flt,ch18flt_old,ch18dat,ch18dat_old ' CHT 2
Dim ch20flt,ch20flt_old,ch20dat,ch20dat_old ' CHT 1

Dim LTC_conversion_completed ' Flag for LTC INT routine

' Memory Arrays to hold setup values of the sensor types used in the LTC2983

Dim diode(3) = (231,80,12,73) ' type 28,single ended,AVG on I factor=1.003
Dim jtype_D(3) = (8,96,0,0) ' J type,differental,comp channel=1,OC check ON
Dim ktype_D(3) = (16,80,0,0) ' K type,differental,comp channel=1,OC check ON


SetPin 48,dout ' LCD Display backlight
Pin(48)=1 ' turn ON (for now)

Font 4
CLS
Time$="00:00:00"

'--------- setup screen objects used to display EIS information to the user ---------

'GUI setup 1
' time based objects
GUI textbox flight_time,0,205,150,30,RGB(yellow)
GUI numberbox engine_hours,170,205,150,30,RGB(yellow)
CtrlVal(flight_time)=Time$ ' for now just set a value
CtrlVal(engine_hours)=12345.6

'GUI setup 2
' LED status objects
GUI frame cht_led_frame,"",0,7,150,180,RGB(yellow)
GUI led cht1_led,"CHT1",35,35,15,RGB(black)
GUI led cht2_led,"CHT2",35,75,15,RGB(black)
GUI led cht3_led,"CHT3",35,115,15,RGB(black)
GUI led cht4_led,"CHT4",35,155,15,RGB(black)

GUI frame egt_led_frame,"",170,7,150,180,RGB(yellow)
GUI led egt1_led,"EGT1",205,35,15,RGB(black)
GUI led egt2_led,"EGT2",205,75,15,RGB(black)
GUI led oil_led,"OIL",205,115,15,RGB(black)
GUI led bat_led,"BAT",205,155,15,RGB(black)

CtrlVal(cht1_led)=1 ' for now just turn them on
CtrlVal(cht2_led)=1
CtrlVal(cht3_led)=1
CtrlVal(cht4_led)=1
CtrlVal(egt1_led)=1
CtrlVal(egt2_led)=1
CtrlVal(oil_led)=1
CtrlVal(bat_led)=1

hide_led_objects

'GUI setup 3
' digital readout based temp objects
GUI frame cht_digital_frame,"",0,7,150,180,RGB(yellow)
GUI numberbox cht1_digital,8,25,70,30,RGB(white)
GUI caption cht1_caption,"CHT1",82,28
GUI numberbox cht2_digital,8,65,70,30,RGB(white)
GUI caption cht2_caption,"CHT2",82,68
GUI numberbox cht3_digital,8,105,70,30,RGB(white)
GUI caption cht3_caption,"CHT3",82,108
GUI numberbox cht4_digital,8,145,70,30,RGB(white)
GUI caption cht4_caption,"CHT4",82,148

GUI frame egt_digital_frame,"",170,7,150,180,RGB(yellow)
GUI numberbox egt1_digital,178,25,70,30,RGB(white)
GUI caption egt1_caption,"EGT1",250,28
GUI numberbox egt2_digital,178,65,70,30,RGB(white)
GUI caption egt2_caption,"EGT1",250,68
GUI numberbox oil_digital,178,105,70,30,RGB(white)
GUI caption oil_caption,"OIL",260,108
GUI numberbox bat_digital,178,145,70,30,RGB(white)
GUI caption bat_caption,"BAT",260,148

hide_digital_objects

'GUI setup 4
' bargauge temp objects
GUI frame bar_frame,"",0,7,320,186,RGB(yellow)

GUI caption cht1_barcap,"C1",5,cht1_y
GUI bargauge cht1_bar,gaugebar_x,cht1_y,gaugebar_lenght,18,,,100,400,RGB(white),cht_wg_sp,RGB(green),cht_gy_sp,RGB(yellow),cht_yr_sp, RGB(red)

GUI caption cht2_barcap,"C2",5,cht2_y
GUI bargauge cht2_bar,gaugebar_x,cht2_y,gaugebar_lenght,18,,,100,400,RGB(white),cht_wg_sp,RGB(green),cht_gy_sp,RGB(yellow),cht_yr_sp, RGB(red)

GUI caption cht3_barcap,"C3",5,cht3_y
GUI bargauge cht3_bar,gaugebar_x,cht3_y,gaugebar_lenght,18,,,100,400,RGB(white),cht_wg_sp,RGB(green),cht_gy_sp,RGB(yellow),cht_yr_sp, RGB(red)

GUI caption cht4_barcap,"C4",5,cht4_y
GUI bargauge cht4_bar,gaugebar_x,cht4_y,gaugebar_lenght,18,,,100,400,RGB(white),cht_wg_sp,RGB(green),cht_gy_sp,RGB(yellow),cht_yr_sp, RGB(red)

GUI caption egt1_barcap,"E1",5,egt1_y
GUI bargauge egt1_bar,gaugebar_x,egt1_y,gaugebar_lenght,18,,,100,1200,RGB(white),egt_wg_sp,RGB(green),egt_gy_sp,RGB(yellow),egt_yr_sp ,RGB(red)

GUI caption egt2_barcap,"E2",5,egt2_y
GUI bargauge egt2_bar,gaugebar_x,egt2_y,gaugebar_lenght,18,,,100,1200,RGB(white),egt_wg_sp,RGB(green),egt_gy_sp,RGB(yellow),egt_yr_sp ,RGB(red)

CtrlVal(cht1_bar)=250
CtrlVal(cht2_bar)=250
CtrlVal(cht3_bar)=250
CtrlVal(cht4_bar)=250
CtrlVal(egt1_bar)=250
CtrlVal(egt2_bar)=250

End

Do
If Touch(x) <> -1 Then
Print Touch(x), Touch(y)
If Touch(x) > 100 Then
On Error Skip
Play WAV "am.wav"
EndIf
EndIf
Loop

Dim cht_wg_sp=100 ' CHT Temp threshold value - white to green

Dim cht_wg_sp=110 ' CHT Temp threshold value - white to green