CSDS EQU 0FF30H
CSDB EQU 0FF38H
DISPLAY EQU 01000001B
COD EQU 00010000B
SEG_ON EQU P1.6
TEST_LED EQU P1.7
WAIT_ENTER_NW EQU 8116H

T1_G equ 0
T1_C EQU 0
T1_M EQU 2
TIM1 EQU T1_M+T1_C*4+T1_G*8

TMOD_SET EQU TIM1*16

;TRANSMISJA SZEREGOWA
TR_M EQU 1
TR_R EQU 1

SCON_SET EQU TR_M*64+TR_R*16

TH1_SET EQU 256-3
TL1_SET EQU 256-3
;***************************

LJMP START

;***************************

;PRZERWANIE RS 232
ORG 23H
PUSH ACC
PUSH PSW
JBC TI,NAD
CLR RI
MOV A,SBUF
CJNE A, #31H, NAD

    CPL SEG_ON

    MOV SBUF,#41H
    MOVX C,P1.7

JC LED_2
MOV SBUF,#31H


NAD:
    POP PSW
    POP ACC

RETI
;**************************
ORG 100H

START:

    MOV DPTR,#CSDS
    MOV A,#DISPLAY
    MOVX @DPTR,A

    MOV DPTR,#CSDB

    MOV A,#COD
    MOVX @DPTR,A


    MOV SCON,#SCON_SET
    ORL PCON,#80H
    MOV TMOD,#TMOD_SET
    MOV TH1,#TH1_SET
    MOV TL1,#TL1_SET
    SETB TR1

    SETB EA
    SETB ES

LOOP:
    LCALL WAIT_ENTER_NW
    CPL TEST_LED
    SJMP LOOP

    LED_2:
    MOV SBUF,#30H
    RET

END