$regfile = "STC_8H.DAT"                   ' STC registers list
$crystal = 5529600                        ' CPU clock frequence '11059200/2= 5529600
$romstart = &H0                           ' code starting address

Dim Temp As Byte , Temp_w As Byte , Adres_w As Word , Flag_sost As Byte

Dim S$ As String * 16 , I As Byte , A As Byte , Minus As Byte
Dim Ar(9) As Byte


P1ie = &B1111_1111                        ' 1: Enable digital pins
P1pu = &B0000_0000                        ' 1: pull-up resistor
P1m0 = &B0000_0100 : P1m1 = &B0000_0000   ' output mode

P3ie = &B1111_1111                        ' 1: Enable digital pins
P3pu = &B0000_0000                        ' 1: pull-up resistor
P3m0 = &B0000_0010 : P3m1 = &B0000_0000   ' output mode

My_led Alias P1.2
My_led = 1

Config 1wire = P1.0                       ' 1wire use this pin


' UART
P_sw1 = &H00                  ' RXD/P3.0, TXD/P3.1
'P_sw1 = &H40                              'RXD_2/P3.6, TXD_2/P3.7
'P_sw1 = &H80                              'RXD_3/P1.6, TXD_3/P1.7

Scon = &H50                               ' 8-Bits And Variable Baudrate
Auxr = &H54                               ' Timer is 1T mode, use Timer1 as baudrate generator
Tmod = Tmod And &H0F                      ' Set timer work mode

'Tl1 = &HF3 : Th1 = &HFF                   'Initial timer - 19200 / 1MHz
'Tl1 = &HF3 : Th1 = &HFF                   'Initial timer - 38400 / 2MHz
Tl1 = &HCC : Th1 = &HFF                   'Initial timer - 38400 / 8MHz
'Tl1 = &HE0 : Th1 = &HFE                   'Initial timer - 9600 / 11059200
'Tl1 = &HE8 : Th1 = &HFF                   'Initial timer - 115200 / 11059200

Et1 = 0                       ' Disable Timer interrupt
Tr1 = 1                       ' Timer1 start run
Sbuf = 0                      ' Magic ...

Waitms 10
Print " Start!"

P_sw2.7 = 1
Clkdiv = 24
P_sw2.7 = 0
Waitms 1

1wreset                                   ' Инициализация шины 1Wire
1wwrite &HCC                              ' Выдаем команду чтения ПЗУ
1wwrite &H4E                              ' Установим разрядность термодатчика
1wwrite 0
1wwrite 0

1wwrite &H1F                              ' Configuration 9-BIT Mode       0.5° 94 mS
'1wwrite &H7F                             ' Configuration 12-BIT Mode  0.0625° 750 mS

1wreset                                   ' Инициализация шины 1Wire
1wwrite &HCC                              ' Выдаем команду чтения ПЗУ
1wwrite &H44                              ' Запуск измерения

My_led = 0

Waitms 15                                 ' на скорости 1 Mhz это примерно 125 mS

My_led = 1

1wreset                                   ' Инициализация шины 1Wire
1wwrite &HCC                              ' Команда чтения ПЗУ
1wwrite &HBE                              ' Команда чтения ОЗУ датчика Ds18b20
For I = 1 To 9
 Ar(i) = 1wread()                         'place into array
Next

P_sw2.7 = 1
Clkdiv = 3
P_sw2.7 = 0
Waitms 50

For I = 1 To 9
 Printhex Ar(i) ; " ";                    'print output
Next
Print

Minus = 0
' Проверяем на отрицательную температуру. 248 в десятичном, 11111000 в двоичном.
If Ar(2) >= 248 Then                      ' Если температура отрицательная – вычитаем из &HFF
 Ar(1) = &HFF - Ar(1)
 Ar(2) = &HFF - Ar(2)
 Minus = 1
End If

Shift Ar(1) , Right , 4                   ' Сдвигаем первый байт вправо на 4 бита
Shift Ar(2) , Left , 4                    ' Сдвигаем второй байт влево на 4 бита
Temp = Ar(1) + Ar(2)                      ' Формируем результат целой части значения температуры

If Minus = 1 Then Print "-";
Print Temp ; "'C"


Do
 My_led = Not My_led
 Waitms 35
Loop