CLEARLINEINFO Y
FILE "D:\!!!_MY\8051\ПРИМЕРЫ.B51\UART1_INT.B51"
LINE  6 12B
LINE  8 12E
LINE  9 134
LINE  10 139
LINE  12 13F
LINE  13 145
LINE  14 14A
LINE  17 150
LINE  18 153
LINE  19 156
LINE  20 159
LINE  21 15C
LINE  22 162
LINE  23 164
LINE  24 166
LINE  26 169
LINE  29 182
LINE  30 184
LINE  32 186
LINE  35 189
LINE  36 192
LINE  37 195
LINE  38 19D
LINE  40 19F
DEF ___LTMP0 0:0008 %S32
DEF ___LTMP1 0:000C %S32
DEF ___LTMP2 0:0010 %S32
DEF ERR B:0004
DEF ___TR2R3 0:0002 %X16
DEF ADRES_W 0:0021 %X16
DEF TEMP 0:0023

$regfile = "STC8.DAT"                ' STC registers list
$crystal = 8000000                   ' CPU clock frequence '11059200
$ramsize = &H400                     ' 1024
Dim Adres_w As Word , Temp As Byte

P_sw2.7 = 1                          ' EAXFR:Extended RAM SpecialFunctionRegister (XFR) access

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

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

' UART
P_sw1 = &H00                         'RXD/P3.0, TXD/P3.1
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 = &HCC : Th1 = &HFF              'Initial timer - 38400 / 8MHz
Et1 = 0                              'Disable Timer interrupt
Tr1 = 1                              'Timer1 start run
Sbuf = 0                             ' Magic ...

Print " Start!"

On Serial Uart_int Nosave            'Initialise the INT0 Interrupt
Enable Serial                        'enable the interrupt
Enable Interrupts

Do : Loop

Uart_int:
 If Ri = 1 Then
   Temp = Sbuf
   Printbin Temp
   Ri = 0
 End If
Return