Programación de comunicación en serie en lenguaje ensamblador

ORG 0000H

LJMP PRINCIPAL

ORG 0030H

PRINCIPAL:

MOV TMOD, #20H

p>

MOV TH0, #0F4H

MOV TL0, #0F4H

SETB TR1

MOV SCON, #50H

BUCLE:

JNB RI, $

CLR RI

MOV A, SBUF

CJNE A, #' A', LOOP1

MOV A, #'O'

LCALL ENVÍO

MOV A, #'K'

LCALL ENVÍO

BUCLE SJMP

BUCLE1:

CJNE A, #'B', LOOP2

MOV A, #'E'

ENVÍO DE LLAMADA

MOV A, #'R'

ENVÍO DE LLAMADA

ENVÍO DE LLAMADA

BUCLE SJMP

LOOP2:

MOV A, #'N'

LCALL SEND

MOV A, #'O'

LCALL ENVÍO

BUCLE LJMP

ENVIAR:

MOV SBUF, A

JNB TI, $

CLR TI

RET

END