'MMEDIT!!! Basic Version = ARmite_H7_5.05.03
'MMEDIT!!! Port = COM4:115200:10,300
'MMEDIT!!! Device = ARmite_H7_5.05.03
 ' Barometer for PicoMuP.BAS
 '
 ' Loosly based on Barometer v16.BAS but cut right down
 
 RTC gettime
 
 Dim String Version = "1"
 dim Integer Flag
 
 ' BMP180 specific
 Dim BMPData(2)  ' setup and store data from BMP180
 Dim cal(11)     ' calibration data array
 oss = 0         ' over sampling (0 to 3)
 ' start of 11 BP calibration values
 BMP180calMEM = &HAA   '
 BMP180address = &H77  ' BMP180 address
 BMP180control = &HF4  ' BMP180 control register
 BMP180temp = &H2E     ' BMP180 temperature command
 BMP180pres = &H34     ' BMP180 pressure command
 BMP180pres = BMP180pres + oss*&H40  ' adjust command for oversampling
 BMP180reading = &HF6  ' register for results of reading
 
 ' Start the program
 CLS

 ' Not used when SYSTEM I2C enabled   SetPin gp2,gp3,I2C2

 Text MM.HRes/2, MM.VRes/2 - 20, "Barometer for PicoMuP v"+ Version, CM, 4, 1, RGB(white)
 print "Barometer for PicoMuP v"; Version; " started at "; Time$
 
 ' enable I2C2. Use slower speeds for long leads
' Not used when SYSTEM I2C enabled  I2C2 OPEN 400, 200
 Pause 20                ' Let it catch its breath
 z = calibrate_bmp180()  ' Extract calibration constants, "z" is not used itself but it invokes calibration
 Pause 1000              ' initial one second pause (required)
 
 '  VAR Restore ' Restores the saved parameters (DisplayNbr, ZoomLev, Temp_Upper, Temp_Lower, tdst and TZ)
 
 Atmos = Cint(pressure(oss)/100)
 print Atmos ;" at ";Time$
 Flag = 0
 
 '  'MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM Main program loop start it on a zero second
 Do
   If Not Flag And Mid$(TIME$, 7, 2) = "00" then  'A new Minute
     Flag = 1
     Atmos = Cint(pressure(oss)/100)
     print Atmos ;" at ";Time$
   End If
   If Mid$(TIME$, 7, 2) = "01" Then Flag = 0
 Loop
 '  'mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm
 'End
 '
 '''''''''''''''''''''''''
 
Function calibrate_bmp180()
 ' extract bmp180 calibration constants
 Local n, calMEM
 calMEM= BMP180calMEM
 For n = 1 To 11
   ' first calibration location
   I2C2 WRITE BMP180address, 0, 1, calMEM
   Pause 1
   I2C2 READ BMP180address, 0, 2, BMPData(0)
   cal(n) = BMPData(0)*256 + BMPData(1)
   If n < 4 Or n > 6 Then
     ' need to convert some to signed numbers
     If (cal(n) > 32767) Then
       cal(n) = cal(n) - 65536
     EndIf
   EndIf
   Pause 1
   ' advance to the next calibration location
   calMEM = calMEM + 2
 Next n
End Function
 
Function temperature()
 ' returns the temperature in degrees C to one decimal place
 Local UT, x1, x2, b5
 I2C2 WRITE BMP180address, 0, 2, BMP180control, BMP180temp
 Pause 5
 I2C2 WRITE BMP180address, 0, 1, BMP180reading
 I2C2 READ BMP180address, 0, 2, BMPData(0)
 UT = BMPData(0)*256 + BMPData(1)
 'calculate true temperature
 x1= Int( (UT-cal(6))*cal(5)/32768)
 x2=Int( cal(10)*2048/(x1+cal(11)))
 b5=x1+x2
 temperature = Int((b5+8)/16)/10
End Function  'temperature()
 
Function pressure(oss)
 ' atmospheric pressure in inches of mercury
 Local UT, UP, x1, x2, x3, b5, b6, b7, pres, p
 pres = BMP180pres + oss * &H40
 I2C2 WRITE BMP180address, 0, 2, BMP180control, BMP180temp
 Pause 5
 I2C2 WRITE BMP180address, 0, 1, BMP180reading
 I2C2 READ BMP180address, 0, 2, BMPData(0)
 UT = BMPData(0) * 256 + BMPData(1)
 I2C2 WRITE BMP180address, 0, 2, BMP180control, pres
 ' different oversampling requires different reading times
 If (oss = 0) Then
   ' ulta low power
   Pause 5
 ElseIf (oss = 1) Then
   ' standard
   Pause 8
 ElseIf (oss = 2) Then
   ' high resolution
   Pause 14
 Else
   ' ulta high resolution
   Pause 26
 EndIf
 I2C2 WRITE BMP180address, 0, 1, BMP180reading
 I2C2 READ BMP180address, 0, 2, BMPData(0)
 UP = BMPData(0) * 256 + BMPData(1)
 I2C2 WRITE BMP180address, 0, 1, BMP180reading+2
 I2C2 READ BMP180address, 0, 1, BMPData(0)
 UP = (UP * 256 + BMPData(0)) / 2^(8 - oss)
 ' calculate true temperature
 x1 = Int((UT - cal(6)) * cal(5) / 32768)
 x2 = Int(cal(10) * 2048 / (x1 + cal(11)))
 b5 = x1 + x2
 t = Int((b5 + 8) / 16) / 10
 ' calculate true atmospheric pressure
 b6 = b5 - 4000
 x1 = Int((cal(8) * (b6 * b6 / 4096)) / 2048)
 x2 = Int(cal(2) * b6 / 2048)
 x3 = x1 + x2
 b3 = Int(((cal(1) * 4 + x3) * 2^oss + 2) / 4)
 x1 = Int(cal(3) * b6 / 8192)
 x2 = Int((cal(7) * (b6 * b6 / 4096)) / 65536)
 x3 = Int(((x1 + x2) + 2) / 4)
 b4 = Int(cal(4) * x3 / 32768 + cal(4))
 b7 = Int((UP - b3) * (50000 / 2^oss))
 p = Int((b7 * 2) / b4)
 x1 = Int(Int(p / 256) * Int(p / 256))
 x1 = Int((x1 * 3038) / 65536)
 x2 = Int((-7357 * p) / 65536)
 pressure = Int(p + (x1 + x2 + 3791) / 16)
End Function