'
'write out to file numbers in the range 0 to 65535 using 2 bytes per number
'
open "bin.tst" for output as #1
for j%=0 to 65535
print #1,bin2str$(uint16,j%);
next j%
close #1
'Read the file and check data accuracy
open "bin.tst" for input as #1
for j%=0 to 65535
k%=str2bin(uint16,input$(2,1))
if j%<>k% then print "error k = ", k%," j = ",j%
next j%
close #1
'
' Demo all modes of conversion
'
c%=123
a$=Bin2str$(int8,c%)
Print Len(a$);:For i=1 To Len(a$):Print " ",Asc(Mid$(a$,i,1));:Next i:Print ""
b%=Str2bin(int8,a$)
If b%<>c% Then Print "error in int8"
c%=123
a$=Bin2str$(int8,c%,big)
Print Len(a$);:For i=1 To Len(a$):Print " ",Asc(Mid$(a$,i,1));:Next i: Print ""
b%=Str2bin(int8,a$,big)
If b%<>c% Then Print "error in int8, big"
c%=223
a$=Bin2str$(uint8,c%)
Print Len(a$);:For i=1 To Len(a$):Print " ",Asc(Mid$(a$,i,1));:Next i: Print ""
b%=Str2bin(uint8,a$)
If b%<>c% Then Print "error in uint8"
c%=223
a$=Bin2str$(uint8,c%,big)
Print Len(a$);:For i=1 To Len(a$):Print " ",Asc(Mid$(a$,i,1));:Next i: Print ""
b%=Str2bin(uint8,a$,big)
If b%<>c% Then Print "error in uint8, big"
'
c%=11123
a$=Bin2str$(int16,c%)
Print Len(a$);:For i=1 To Len(a$):Print " ",Asc(Mid$(a$,i,1));:Next i:Print ""
b%=Str2bin(int16,a$)
If b%<>c% Then Print "error in int16"
c%=11123
a$=Bin2str$(int16,c%,big)
Print Len(a$);:For i=1 To Len(a$):Print " ",Asc(Mid$(a$,i,1));:Next i: Print ""
b%=Str2bin(int16,a$,big)
If b%<>c% Then Print "error in int16, big"
c%=51223
a$=Bin2str$(uint16,c%)
Print Len(a$);:For i=1 To Len(a$):Print " ",Asc(Mid$(a$,i,1));:Next i: Print ""
b%=Str2bin(uint16,a$)
If b%<>c% Then Print "error in uint16"
c%=51223
a$=Bin2str$(uint16,c%,big)
Print Len(a$);:For i=1 To Len(a$):Print " ",Asc(Mid$(a$,i,1));:Next i: Print ""
b%=Str2bin(uint16,a$,big)
If b%<>c% Then Print "error in uint16, big"
'
c%=2147483600
a$=Bin2str$(int32,c%)
Print Len(a$);:For i=1 To Len(a$):Print " ",Asc(Mid$(a$,i,1));:Next i:Print ""
b%=Str2bin(int32,a$)
If b%<>c% Then Print "error in int32"
c%=2147483600
a$=Bin2str$(int32,c%,big)
Print Len(a$);:For i=1 To Len(a$):Print " ",Asc(Mid$(a$,i,1));:Next i: Print ""
b%=Str2bin(int32,a$,big)
If b%<>c% Then Print "error in int32, big"
c%=3147483600
a$=Bin2str$(uint32,c%)
Print Len(a$);:For i=1 To Len(a$):Print " ",Asc(Mid$(a$,i,1));:Next i: Print ""
b%=Str2bin(uint32,a$)
If b%<>c% Then Print "error in uint32"
c%=3147483600
a$=Bin2str$(uint32,c%,big)
Print Len(a$);:For i=1 To Len(a$):Print " ",Asc(Mid$(a$,i,1));:Next i: Print ""
b%=Str2bin(uint32,a$,big)
If b%<>c% Then Print "error in uint32, big"
'
c%=9223372036854775800
a$=Bin2str$(int64,c%)
Print Len(a$);:For i=1 To Len(a$):Print " ",Asc(Mid$(a$,i,1));:Next i:Print ""
b%=Str2bin(int64,a$)
If b%<>c% Then Print "error in int64"
c%=9223372036854775800
a$=Bin2str$(int64,c%,big)
Print Len(a$);:For i=1 To Len(a$):Print " ",Asc(Mid$(a$,i,1));:Next i: Print ""
b%=Str2bin(int64,a$,big)
c%=&HEEDDCCBBAA998877
a$=Bin2str$(uint64,c%)
Print Len(a$);:For i=1 To Len(a$):Print " ",Asc(Mid$(a$,i,1));:Next i: Print ""
b%=Str2bin(uint64,a$)
If b%<>c% Then Print "error in uint64"
c%=&HEEDDCCBBAA998877
a$=Bin2str$(uint64,c%,big)
Print Len(a$);:For i=1 To Len(a$):Print " ",Asc(Mid$(a$,i,1));:Next i: Print ""
b%=Str2bin(uint64,a$,big)
If b%<>c% Then Print "error in uint64, big"
'
f=pi
a$=Bin2str$(double,f)
Print Len(a$);:For i=1 To Len(a$):Print " ",Asc(Mid$(a$,i,1));:Next i: Print ""
g=Str2bin(double,a$)
If f<>g Then Print "error in double"
f=pi
a$=Bin2str$(double,f,big)
Print Len(a$);:For i=1 To Len(a$):Print " ",Asc(Mid$(a$,i,1));:Next i: Print ""
g=Str2bin(double,a$,big)
If f<>g Then Print "error in double, big"
f=32768.5 'should be exact in single precision
a$=Bin2str$(single,f)
Print Len(a$);:For i=1 To Len(a$):Print " ",Asc(Mid$(a$,i,1));:Next i: Print ""
g=Str2bin(single,a$)
If f<>g Then Print "error in single"
f=32768.5 'should be exact in single precision
a$=Bin2str$(single,f,big)
Print Len(a$);:For i=1 To Len(a$):Print " ",Asc(Mid$(a$,i,1));:Next i: Print ""
g=Str2bin(single,a$,big)
If f<>g Then Print "error in single, big"
'
' BMP180 example using STR2BIN
'
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)
on error skip 1
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%=str2bin(int16,mid$(i2cin$,1,2),big)
ac2%=str2bin(int16,mid$(i2cin$,3,2),big)
ac3=str2bin(int16,mid$(i2cin$,5,2),big)
ac4%=str2bin(uint16,mid$(i2cin$,7,2),big)
ac5%=str2bin(uint16,mid$(i2cin$,9,2),big)
ac6%=str2bin(uint16,mid$(i2cin$,11,2),big)
b1%=str2bin(int16,mid$(i2cin$,13,2),big)
b2%=str2bin(int16,mid$(i2cin$,15,2),big)
mb%=str2bin(int16,mid$(i2cin$,17,2),big)
mc%=str2bin(int16,mid$(i2cin$,19,2),big)
md%=str2bin(int16,right$(i2cin$,2),big)
'
' 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%=str2bin(uint16,i2cin$,big)
' 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
i2cin$=chr$(0)+i2cin$ 'convert to big endian unsigned 4 byte integer
UP%=str2bin(uint32,i2cin$,big)
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"
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 powerof2(i as integer) as integer
powerof2=(1<<i)
End Function

if token < 0xF0 then
token16 = token
else
shift = token
token = get_next_token()
token16 = token + ((shift - 0xEF) * 0x70)