| | | | |
 |  |  |  |
| |||||||
| Micro Controllers Discuss all aspects of micro controllers - building them, coding them, etc. All controllers are welcome - PIC, BASIC, Z8 Encore!, etc. |
 |
| | LinkBack | Thread Tools | Display Modes |
2nd January 2004, 03:28 PM
| (permalink) |
 I NEED CODE FOR 8051 SERIAl comm..PLSSS HELP GUY PLS HELP ME , I NEED ASSM CODE(INTEL) FOR 8051 :TO RECEIVE DATA FROM SERIAL PORT AND SEND IT TO PORT1 AND TO READ DATA FROM PORT2 AND SEND IT SERIAL;WITH CONTINUESLY. IF ANYONE HV THIS CODE PLS LEAVE THE CODE IN THIS PAGE... ANY SIMILAR CODE ALSO FINE FOR ME...THANKS. | |
|
|
3rd January 2004, 12:47 AM
| (permalink) |
| Try This: Code:
;All baud rates @ 11.0592 MHz
.EQU BAUD_CONST, 250 ; 9600 BAUD
.EQU OLD_DATA, 0x30
.EQU NEW_DATA, 0x31
;********************************************************************************
.ORG 0000H
LJMP MAIN
.ORG 0023h ; SERIAL I/O INTERRUPT VECTOR
LJMP UART_INTR
;**********************************************************************************
;**********************************************************************************
; PROGRAM ENTRY POINT
;**********************************************************************************
MAIN:
CLR ACC
MOV NEW_DATA, A
MOV OLD_DATA, A
LCALL INIT_SERIAL
MAIN_LOOP:
MOV NEW_DATA, P2
MOV A, OLD_DATA
XRL A, NEW_DATA
JZ MAIN_LOOP
MOV OLD_DATA, NEW_DATA ; Send character if data is changed on P2
MOV SBUF, NEW_DATA
SJMP MAIN_LOOP
;***********************************************************************************************
; INITIALIZE SERIAL PORT
;***********************************************************************************************
INIT_SERIAL:
CLR EA
ORL PCON, #10000000B ;SET DOUBLE BAUD RATE
ANL TMOD, #00001111B ;CLEAR ALL TIMER1 BITS IN TMOD
ORL TMOD, #00100000B ;SET TIMER1 AS 8 BIT AUTO RELOAD
CLR TR1 ;MAKE SURE TIMER1 ISN'T RUNNING
CLR TF1
MOV A, #BAUD_CONST ;256 - (CRYSTAL / (BAUD * 192))
MOV TH1, A ;SET TIMER1 RATE
MOV TL1, A
MOV SCON, #01010000B ;CONFIG SERIAL PORT (RI AND TI CLEARED) MODE=1
SETB TR1 ;START TIMER1
SETB ES ;ENABLE SERIAL PORT INTERRUPT
SETB EA ;ALSO TURN ON INTERRUPTS IN GENERAL
SETB PS ;SET SERIAL PORT PRIORITY LEVEL
RET
;**********************************************************************************
; SERIAL PORT INTERRUPT SERVICE ROUTINE
;**********************************************************************************
UART_INTR:
GetChar:
PUSH PSW
PUSH ACC
JB TI,TRANSMIT_1
JNB RI,GetChar
MOV P1, SBUF ;Send Character to P1
CLR RI
SJMP INTR_END
TRANSMIT_1:
CLR TI
INTR_END:
POP ACC
POP PSW
RETI
__________________ "There is no way to peace, peace is the way!" | |
|
|
|
3rd January 2004, 03:30 AM
| (permalink) |
| thanks for the help man... thanks
__________________ --Turn arround, Smell What You Dont See--- | |
|
|
Linear Mode
