// SPI pin numbers
SPI_INP_PIN 42 //PA6
SPI_OUT_PIN 43 //PA7
SPI_CLK_PIN 126// PG11

// SPI2 pin numbers
SPI2_INP_PIN 28 //PA2
SPI2_OUT_PIN 27 //PC1
SPI2_CLK_PIN 69 //PB10

// SPI3 pin numbers
SPI3_CLK_PIN 133 //PB3
SPI3_INP_PIN 134 //PB4
SPI3_OUT_PIN 48 //PB2

// TOUCH pin numbers
TOUCH_CLK_PIN 19 //PF7
TOUCH_INP_PIN 20 //PF8
TOUCH_OUT_PIN 21 //PF9

RTC SETTIME year, month, day, hour, minute, second {,day_of_week}

RTC GETTIME

I2C_SCL 69 //PB10
I2C_SDA 70 //PB11

OPTION EXPLICIT
OPTION DEFAULT FLOAT
const i2caddr=&b1110111
const MS7=7 'set default wait period
const signed=1
const unsigned=0
'
dim i2cin$ length 8 'max size for integer conversion
dim UT%,UP%
dim ac1%,ac2%,ac3,ac4%,ac5%,ac6%,b1%,b2%,mb%,mc%,md% 'bmp180 parameters
dim x1%,x2%,b5%,b6%,x3,b3%,b4%,b7%,OSS%
dim temperature%,pressure%
DIM altitude,QNH,pressureinHpa
dim OSSdata%(4)
dim OSSscale%(4)
I2C OPEN 400,1000
init:
OSS%=1 'set oversampling ratio
' OSS%=0 ' Uncomment this line to check algorithm against datasheet
OSSdata%(0)=&H34 'commands to sample pressure% with different levels of oversampling
OSSdata%(1)=&H74
OSSdata%(2)=&Hb4
OSSdata%(3)=&HF4
OSSscale%(0)=1 'scale factors for calcs when oversampled
OSSscale%(1)=2
OSSscale%(2)=4
OSSscale%(3)=8
'
I2C WRITE i2caddr,1,1,&HAA 'send read calibration data command
I2C READ i2caddr,0,22,i2cin$() 'read in calibration data
ac1%=intconv(mid$(i2cin$,1,2),signed)
ac2%=intconv(mid$(i2cin$,3,2),signed)
ac3=intconv(mid$(i2cin$,5,2),signed)
ac4%=intconv(mid$(i2cin$,7,2),unsigned)
ac5%=intconv(mid$(i2cin$,9,2),unsigned)
ac6%=intconv(mid$(i2cin$,11,2),unsigned)
b1%=intconv(mid$(i2cin$,13,2),signed)
b2%=intconv(mid$(i2cin$,15,2),signed)
mb%=intconv(mid$(i2cin$,17,2),signed)
mc%=intconv(mid$(i2cin$,19,2),signed)
md%=intconv(right$(i2cin$,2),signed)
'
' Uncomment this block to check algorithm against datasheet
'
' ac1%=408
' ac2%=-72
' AC3=-14383
' ac4%=32741
' ac5%=32757
' ac6%=23153
' b1%=6190
' b2%=4
' mb%=-32768
' mc%=-8711
' md%=2868

main:
I2C WRITE i2caddr,0,2,&HF4,&H2E 'send temp conversion
pause MS7 'wait for temperature% conversion
I2C WRITE i2caddr,1,1,&HF6 'send read data
I2C READ i2caddr,0,2,i2cin$() 'read 2 bytes
UT%=intconv(i2cin$,unsigned)
' UT%=27898 ' Uncomment this line to check algorithm against datasheet
I2C WRITE i2caddr,0,2,&HF4,ossdata%(oss%) 'send pressure% conversion
pause (oss%+1)*ms7 'wait for the p ressure% conversion
I2C WRITE i2caddr,1,1,&HF6 'send read data
I2C READ i2caddr,0,3,i2cin$() 'read 3 bytes
UP%=intconv(i2cin$,unsigned)
UP%=UP%>>(8-oss%) 'scale the oUT%pUT% by the numb%er of unused bits in the xlsb byte
' UP%=23843' Uncomment this line to check algorithm against datasheet
calc_temp
calc_pressure
pressureinHpa=pressure%/100
print "Temperature = ",str$(temperature%/10,4,1),"Deg C"
print "Local pressure = ",str$(pressure%/100,4,1),"Hectopascal/mb"
inpUT "QNH in Hpa/Mb ? ",QNH
altitude=calcaltitude(QNH,pressureinHpa)
print "Current altitude in feet = ",altitude
print "Reverse calculate Sea level pressure = ",calcQNH(altitude,pressureinHpa),"Hectopascal/mb"
end
'
' calc_temperature%: calculate the temperature% from the raw temperature% given the calibration parameters
'
sub calc_temp:
x1%=(UT%-ac6%)*ac5%\powerof2(15)
x2%=mc%*powerof2(11)/(x1%+md%) 'This needs to be a floating divide to match the datasheet
b5%=x1%+x2%
temperature%=(b5%+8)\powerof2(4)
end sub
'
' calc_pressure: calculate the pressure% from the raw pressure% given the calibration parameters and temperature% oUT%pUT%
'
sub calc_pressure
b6%=b5%-4000
x1%=(b2%*(b6%*b6%/powerof2(12)))\powerof2(11)
x2%=ac2%*b6%\powerof2(11)
x3=x1%+x2%
b3%=(((ac1%*4+x3)*ossscale%(oss%))+2)\4
x1%=AC3*b6%\POWEROF2(13)
x2%=(b1%*(b6%*b6%/POWEROF2(12)))\POWEROF2(16)
x3=((x1%+x2%)+2)\4
b4%=ac4%*(abs(x3+32768))\powerof2(15)
b7%=abs(UP%-b3%)*(50000\ossscale%(oss%))
pressure%=(b7%*2)\b4%
x1%=(pressure%\powerof2(8))*(pressure%\powerof2(8))
x1%=(x1%*3038)\powerof2(16)
x2%=(-7357*pressure%)\powerof2(16)
pressure%=pressure%+(x1%+x2%+3791)\powerof2(4)
end sub
'
FUNCTION calcQNH(currentaltitude,localpressure)
calcQNH=(localpressure*100)/((1-(currentaltitude*0.3048/44330))^5.255)/100
end function
'
function log10(x)
log10=log(x)/2.302585093
end function
'
function calcaltitude(sealevelpressure, localpressure)
local a as float, b as float
calcaltitude=((10^(log10(localpressure/sealevelpressure)/5.2558797))-1)/-6.8755856 *1000000
end function

Function intconv(s$, p%) as integer
local integer l,k,j,i=len(s$)
k=peek(varaddr j)
for l=1 to i
poke byte k+i-l,asc(mid$(s$,l,1))
next l
if p% then
if (asc(left$(s$,1)) and &H80) then
for l=i to 7
poke byte k+l,&HFF
next l
endif
endif
intconv=j
End Function
'
Function powerof2(i as integer) as integer
powerof2=(1<<i)
End Function

OPTION FLASHPAGES n

option explicit
option default none
const leftbar = 1, rightbar = 2, topbar=3, bottombar=4, rightapple=5, leftapple=6
dim integer moveright=1, movedown=1
box 200,50,10,172,,rgb(magenta),rgb(magenta)
box 20,20,150,10,,rgb(cyan),rgb(cyan)
blit read leftbar,200,50,10,172
sprite copy leftbar, rightbar, 1 'make one copy
blit read topbar,20,20,150,10
sprite copy topbar, bottombar, 1 'make one copy
load sprite rightapple,"apple"
sprite copy rightapple,leftapple,1 'make one copy
load image "tiger480"

sprite interrupt collision
blit show rightapple,250,100,0
blit show leftapple,50,100,0,2
blit show leftbar,199,50,1
blit show rightbar,460,50,1
blit SHOW topbar,20,20,2
blit SHOW bottombar,20,240,2

do
if moveright then
sprite scrollr 199,50,262,172,5,0
else
sprite scrollr 199,50,262,172,-5,0
endif
if movedown then
sprite scrollr 20,19,150,222,0,-5
else
sprite scrollr 20,19,150,222,0,5
endif
loop
'
'
sub collision
local integer i, c(10), j
if sprite(S) = 0 then 'collisions caused by scroll
j=sprite(c,0)
for i=1 to j 'store the collisions because a clearing scroll move will clear them from the list
c(i)=sprite(C,0,i)
next i
for i=1 to j 'now process them
process_collision(c(j))
next i
endif
end sub
' get details of the specific collisions for a given sprite
sub process_collision(S as integer)
select case S
case leftbar
sprite scrollr 199,50,262,172,5,0 'make a move to clear the collision
sprite show rightapple,sprite(x,rightapple),sprite(y,rightapple),0,0 'mirror the sprite
moveright=1
case rightbar
sprite scrollr 199,50,262,172,-5,0 'make a move to clear the collision
sprite show rightapple,sprite(x,rightapple),sprite(y,rightapple),0,1 'mirror the sprite
moveright=0
case topbar
sprite scrollr 20,19,150,222,0,-5 'make a move to clear the collision
sprite show leftapple,sprite(x,leftapple),sprite(y,leftapple),0,3 'invert the sprite
movedown=1
case bottombar
sprite scrollr 20,19,150,222,0,5 'make a move to clear the collision
sprite show leftapple,sprite(x,leftapple),sprite(y,leftapple),0,0 'invert the sprite
movedown=0
case else
end select
end sub

OPTION SERIAL PULLUP DISABLE

OPTION SERIAL PULLUP ENABLE

COM1_TX_PIN 101 //PA9
COM1_RX_PIN 76 //PB15
COM2_TX_PIN 36 //PA2
COM2_RX_PIN 37 //PA3
COM3_TX_PIN 136 //PB6
COM3_RX_PIN 73 //PB12
COM4_TX_PIN 110 //PA15
COM4_RX_PIN 18 //PF6

COM1_TX_PIN 101 //PA9 USART1
COM1_RX_PIN 76 //PB15

COM2_TX_PIN 36 //PA2 USART2
COM2_RX_PIN 37 //PA3
COM2_EN_PIN 118 //PD4

COM3_TX_PIN 136 //PB6 UART5
COM3_RX_PIN 73 //PB12

COM4_TX_PIN 129 //PG14 USART6
COM4_RX_PIN 124 //PG9

I2C_SCL 139 //PB8
I2C_SDA 140 //PB9

Open "com2:9600, 1024, myrxint, 256, mytxint, de, even" As #1
For i=2220 To 2400
Print #1,Str$(i,4)+" ";
Next i
Print #1,""
Do
Loop Until k=1
close #1
end

Sub myrxint
End Sub

Sub mytxint
Print "TXcomplete"
k=1
End Sub

> OPTION LCDPANEL USER, 128,64
> option list
OPTION FLASHPAGES 1
OPTION COLOURCODE ON
>