$regfile = "m8def.dat"

$crystal = 3840000

'$sim

$hwstack = 32                                               ' default
$swstack = 8                                                ' default
$framesize = 200                                            ' minimum for this library. Increase for your application needs!

Declare Sub Getit()

'-------------------------------------------------------------------------------
Sck Alias Portc.0
Dataout Alias Portc.1
Datain Alias Portc.1

'Declare Sub Getit()

Ddrc = &B11111111

Config Pinc.0 = Output
Config Pinc.1 = Output

'-------------------------------------------------------------------------------
'Dim Strstring As String * 10                                'íà äèñïëåé âîçìîæåí òîëüêî âûâîä òåêñòîâûõ ïåðåìåííûõ
'Dim I As Integer                                            'ïåðåìåííàÿ äëÿ ïðîìåæóòî÷íûé ïðåîáðàçîâàíèé

Dim Ctr As Byte
Dim Dataword As Word
Dim Command As Byte
Dim Dis As String * 20
Dim Calc As Single
Dim Calc2 As Single
Dim Rhlinear As Single
Dim Rhlintemp As Single
Dim Tempc As Single

Const C1 = -4
Const C2 = 0.0405
Const C3 = -0.0000028
Const T1c = 0.01
Const T2 = 0.00008

'-------------------------------------------------------------------------------
Set Dataout
For Ctr = 1 To 12
Set Sck
Waitus 2
Reset Sck
Waitus 2
Next Ctr

'-------------------------------------------------------------------------------
Config Portd.4 = Output                                     'ñþäà ÿ ïîâåñèë íîãó GND
Portd.4 = 0

Config Portd.2 = Output                                     'D/C (pin 4)
D3310dc Alias Portd.2

Config Portd.3 = Output                                     'SCE (pin 5)
D3310ce Alias Portd.3

Config Portd.6 = Output                                     'Reset (pin 8)
D3310re Alias Portd.6

'êîíôèãóðèðóåì SPI â ïðîãðàììíîì ðåæèìå. SCLK (pin 2) - PORTD.0; SDA (pin 3) - PORTD.1;

Config Spi = Soft , Din = Portb.1 , Dout = Portd.1 , Ss = None , Clock = Portd.0

Spiinit

$include "3310init.bas"

'Initialise the display
Call D3310reset
Call D3310init
Call D3310clear

Do

Command = &B0000011                                        

 Call Getit                                                 

 Tempc = T1c * Dataword                                     
 Tempc = Tempc - 39.66

 Dis = Fusing(tempc , "###.#")

 Call D3310position(0 , 0)                                  
 Call D3310print( "Òåìïåðàòóðà")

 Call D3310position(0 , 1)                                  
 Call D3310print(dis)


 Command = &B00000101                                       


 Call Getit

 Calc = C2 * Dataword
 Calc2 = Dataword * Dataword                                'that "2" in the datasheet sure looked like a footnote for a couple days, nope it means "squared"!
 Calc2 = C3 * Calc2
 Calc = Calc + C1
 Rhlinear = Calc + Calc2

 Calc = T2 * Dataword
 Calc = Calc + T1c
 Calc2 = Tempc - 25
 Calc = Calc2 * Calc
 Rhlintemp = Calc + Rhlinear

 Dis = Fusing(rhlintemp , "##.#")

 Call D3310position(0 , 2)                                  ' êîîðäèíàòû êóðñîðà X,Y
 Call D3310print( "Âëàæíîñòü")

 Call D3310position(0 , 3)                                  ' êîîðäèíàòû êóðñîðà X,Y
 Call D3310print(dis)
 Wait 1
 'Call D3310clear

Loop
'-------------------------------------------------------------------------------

Sub Getit()

 Local Datavalue As Word
 Local Databyte As Byte

 'start with "transmission start"

 Set Sck
 Reset Dataout
 Reset Sck
 Set Sck
 Set Dataout
 Reset Sck


 'now send the command

 Shiftout Dataout , Sck , Command , 1

 Ddrc = &B11111101                                          'datain is now input
 Config Pinc.1 = Input                                      'datain
 Set Sck                                                    'click one more off
 Reset Sck
 Waitus 10                                                  'no idea why, but it doesn't work without it!
 Bitwait Pinc.1 , Reset                                     'wait for the chip to have data ready

 Shiftin Datain , Sck , Databyte , 1                        'get the MSB
 Datavalue = Databyte

 Ddrc = &B11111111
 Config Pinc.1 = Output

 Reset Dataout                                              'this is the tricky part- Lot's of hair pulling- have to tick the ack!
 Set Sck
 Reset Sck

 Ddrc = &B11111101                                          'datain is now input
 Config Pinc.1 = Input

 Shiftin Datain , Sck , Databyte , 1                        'get the LSB
 Shift Datavalue , Left , 8
 Datavalue = Datavalue Or Databyte
 'don't tick the clock or ack since we don't need the CRC value, leave it hanging!
 Dataword = Datavalue

 Ddrc = &B11111111
 Config Pinc.1 = Output

 Reset Dataout
 Set Sck
 Reset Sck

 Ddrc = &B11111101                                          'datain is now input
 Config Pinc.1 = Input

 Shiftin Datain , Sck , Databyte , 1                        'not using the CRC value for now- can't figure it out! Anybody know how to impliment?
 'Locate 4 , 1
 'Lcd "CRC value was - " ; Databyte

 Ddrc = &B11111111
 Config Pinc.1 = Output

 Set Dataout
 Set Sck
 Reset Sck
End Sub

End



$include "3310end.bas"