Вот нашел у себя, тренировался с lcd nokia 3310 термометр на ds18b20, в железе все работает, собирал на макеткеЖ
$regfile = "m168def.dat"
$crystal = 8000000
$hwstack = 32
$swstack = 8
$framesize = 54
'$sim
Dim Lsb As Byte
Dim Msb As Byte
Dim Thermo As Integer
Dim Thermo_out As Single
Dim Thermo_lcd As String * 5
'Dim Cel As String * 5
'Cel = Data &H00 , &H07 , &H05 , &H07 , &H00
1wire_pin Alias Portb.0
Config 1wire = 1wire_pin
'-------------------------------------------------------------------------------
Config Portd.6 = Output 'GND
Portd.6 = 0
Config Portd.4 = Output 'D/C
D3310dc Alias Portd.4
Config Portd.5 = Output '
D3310ce Alias Portd.5
Config Portd.7 = Output 'Reset
D3310re Alias Portd.7
'конфигурируем SPI в программном режиме. SCLK (pin 2) - PORTD.2; SDA (pin 3) - PORTD.3;
Config Spi = Soft , Din = Portd.1 , Dout = Portd.3 , Ss = None , Clock = Portd.2
'инициализируем SPI
Spiinit
$include "3310init.bas"
'инициализируем дисплей
Call D3310reset
Call D3310init
Call D3310clear
и дальше сама программа
