Serial Communication between 8051 - Assembly Program Code - Proteus Stimulation - Keil


The program is stimulated in proteus, compiled in Keil for 8051 - AT89C51 in assembly language.

Program for serial data transfer between 8051 in assembly language using proteus and uvision,

Flowchart:-




Proteus Stimulation:-



Program:-

TRANSMITTER(U2)

ORG 0000H
SETB P3.0
MOV R0,#00H
WAIT1: MOV TMOD,#20H
MOV SCON,#50H
WAIT:JNB P3.0, WAIT
WAQ: JB P3.0,WAQ
INC R0
MOV A,R0
SETB TR1
AGAIN: MOV SBUF, A
HERE: JNB TI, HERE
CLR TI
SJMP WAIT1
END

RECEIVER PROGRAM(U1)

ORG 0000H
MOV TMOD,#20H
MOV SCON, #50H
MOV A, #38H
ACALL COMNWRT
ACALL DELAY
MOV A, #0EH
ACALL COMNWRT
ACALL DELAY
MOV A,#01H
ACALL COMNWRT
ACALL DELAY
MOV A,#06H
ACALL COMNWRT
ACALL DELAY
MOV A, #80H
ACALL COMNWRT
ACALL DELAY
MOV DPTR,#DATA1N
REQ:CLR A
MOVC A,@A+DPTR
ACALL DATA1
ACALL DELAY
JZ RE11
INC DPTR
SJMP REQ
RE11:SETB TR1
CLR RI
RPT: JNB RI, RPT
MOV A, SBUF
MOV R1,A
NEX: MOV A, R1
MOV B, #0AH
DIV AB
MOV R2,B
MOV B,#0AH
DIV AB
MOV R3, B
MOV R4, A 
MOV A,#086H
ACALL COMNWRT
MOV A,#48
ORL A, R4
ACALL DATA1
MOV A, #48
ADD A, R3
ACALL DATA1
MOV A,#48
ADD A,R2
ACALL DATA1
ACALL DELAY
SJMP RE11
COMNWRT: MOV Pl, A
CLR P2.0
SETB P2.1
ACALL DELAY
CLR P2.1
RET
DATA1: MOV P1, A
SETB P2.0
SETB P2.1
ACALL DELAY
CLR P2.1
RET
DELAY: MOV R6, #50
HERE 2: MOV R7, 25
HERE: DJNZ R7, HERE
DJNZ R6, HERE2
RET
ORG 300H
DATA1N: DB "COUNT ",0H
END

For more ASM programs - click here

Popular posts from this blog

Mini Militia Chat Codes - Shortforms

8051 Assembly Program Code for Sorting in Ascending Order - Keil -AT89C51