?? sendlcd.asm

?? 這個是串口程序的發送接受等通信程序
?? ASM
字號:
;=============================================
;CS0接CS8255 CS1接CS50 8255PA0-PA7接DB0-DB7 
;8255PC0接REQ 8255PC7接BUSY		
;=============================================
		P55A    EQU  	0CFA0H	;8255I/O	
        P55B    EQU  	0CFA1H
        P55C    EQU  	0CFA2H
        PCTR    EQU  	0CFA3H 
        STOBE0  EQU  	70H		;PC0復位控制字
        STOBE1  EQU  	71H		;PC0置位控制字
        ADDR1	EQU		0CFA8H	;8250	
        ADDR2	EQU		0CFA9H	;
        INTR	EQU		0CFAAH	;interrupt enable register
        LCR		EQU		0CFABH	;line control register
        MCR		EQU		0CFACH	;modem control register
        LSR		EQU		0CFADH	;line status register
        MSR		EQU		0CFAEH	;modem status register
;=============================================
		STSF	EQU		20H		;
		BUF		EQU		21H
		DPHR	EQU		22H		;存放ASCII碼的高位地址
		DPLR	EQU		23H		;存放ASCII碼的底位地址
		ADRX	EQU		24H		;ASCII X軸坐標
		ADRY	EQU		25H		;ASCII Y軸坐標
		NOTDIS	EQU		26H		;臨時存放顯示的ASCII碼，以判斷是否為可顯示字符
;=============================================	
		RIF		EQU		00H		;STSF BIT
		TIF		EQU		04H	
;=============================================
;=============================================
		NUM1	EQU		13H
		NUM2	EQU		12H
		NUM3	EQU		02H
		NUM4	EQU		95H
		NUM5	EQU		07H
		NUM6	EQU		03H		;接收手機號為13120295073，可修改
;=============================================		
        ORG     4000H
        LJMP  	START
;=============================================		
		ORG    	4010H

START:  MOV		DPTR,#LCR
		MOV		A,#80H			;訪問MSB或LSB
		MOVX	@DPTR,A
		MOV		DPTR,#ADDR1		;首先要對DLAB進行置位或清零,以決定是訪問那個寄存器.,LSB
		MOV		A,#12			;9600
		MOVX	@DPTR,A
		MOV		DPTR,#ADDR2		;MSB
		MOV		A,#0
		MOVX	@DPTR,A
		;//===================================
		MOV		DPTR,#LCR
		MOV		A,#7			
		MOVX	@DPTR,A			;no pe, 8 bit, 1 stop
		MOV		DPTR,#ADDR2		;DLAB=0,訪問中斷使能寄存器
		MOV		A,#0
		MOVX	@DPTR,A			;no interupt
		MOV		DPTR,#LSR		
		MOVX	A,@DPTR			;讀狀態寄存器
		MOV		DPTR,#ADDR1
		MOVX	A,@DPTR			;讀輸入寄存器.RECEIVE BUFF
		MOV		R0,#30H			;
		ACALL	CLEAR
		ACALL	CMGF1
		ACALL	CLEAR_DIS
		ACALL	DELAY
		
MAIN:	ACALL	ATE
		ACALL	DELAY
		ACALL	CLEAR_STATUS
SSS:	ACALL	CMGF1		
		ACALL	DELAY
		ACALL	CLEAR
		ACALL	CLEAR_STATUS
		ACALL	CMGS
		ACALL	DELAY
		ACALL	CLEAR_STATUS
		ACALL	SEND_STRING
		ACALL	RECVB
		ACALL	DISPLAY
		ACALL	DELAY
		CLR		P1.0
MAIN_OVER:
		NOP
		AJMP MAIN_OVER
;==============================================================
DISPLAY:mov		DPLR,#00H			
		mov		DPHR,#50h			
		MOV		DPL,DPLR
		MOV		DPH,DPHR
;==============================================================		
		MOV 	DPTR,#PCTR
        MOV 	A,#88H
        MOVX 	@DPTR,A			;置PA口輸出,PC口高4位輸入,低4位輸出                
        MOV 	DPTR,#PCTR
        MOV 	A,#STOBE0
        MOVX 	@DPTR,A	
        MOV 	A,#0F4H			;F4命令字
		ACALL 	WRTB
		CLR		P1.2
		;ACALL 	DELAY 			;清屏
WRT0:	MOV		ADRX,#0
		MOV		ADRY,#0
		MOV		DPH,DPHR
		MOV		DPL,DPLR
		MOVX	A,@DPTR
WRITE:	MOV		DPH,DPHR
		MOV		DPL,DPLR
		MOVX	A,@DPTR
		MOV		NOTDIS,A
		
NEXT_WRITE:
		MOV		A,NOTDIS
		CLR		C
		SUBB	A,#0DH			;判斷是否為回車不可顯示
		JZ		SET_SPACE
		MOV		A,NOTDIS
		CLR		C
		SUBB	A,#0AH			;判斷是否為換行不可顯示
		JZ		SET_SPACE
		MOV		A,NOTDIS
		JZ		WRTOK			;判斷是否為0結束
		AJMP	DIS_W
;========================================
;判斷是否數據存儲越界
SET_SPACE:
		MOV		DPH,DPHR
		MOV		DPL,DPLR
		MOV		A,#20H
		MOVX	@DPTR,A
DIS_W:			
		CLR		P1.1		
		CALL	WRT1
		ACALL	DELAY		
;=======================================
JUDGE:
		INC		DPLR
		MOV		A,DPLR
		CJNE	A,#0,NEXT
		INC		DPHR
		MOV		A,DPHR
		CLR		C
		SUBB	A,#52H
		JZ		WRTOK
;========================================
		
NEXT:	MOV		A,ADRX
		ANL		A,#0FH			;判斷在X方向位置是否到頭了
		JNZ		WRITE		
		MOV		ADRX,#0
		MOV		A,ADRY
		ADD		A,#8			;換行顯示
		MOV		ADRY,A
		CJNE	A,#20H,WRITE	;最多顯示四行.
		ACALL	CLEAR_DIS		;清屏
		MOV		ADRX,#00H
		MOV		ADRY,#00H
		AJMP	WRITE
WRTOK:	NOP                  
		RET	
;=============================================		
SEND:	MOV		BUF,A
WTSD:	MOV		DPTR,#LSR
		MOVX	A,@DPTR
		JBC		ACC.5,SDOK		;判斷1450準備好了嗎?
		AJMP	WTSD
SDOK:	MOV		DPTR,#ADDR1
		MOV		A,BUF
		MOVX	@DPTR,A
		RET					
;=============================================	
CMGF1:	MOV 	A,#'A'
		ACALL	SEND
		MOV 	A,#'T'
		ACALL	SEND
		MOV 	A,#'+'
		ACALL	SEND
		MOV 	A,#'C'
		ACALL	SEND
		MOV 	A,#'M'
		ACALL	SEND
		MOV 	A,#'G'
		ACALL	SEND
		MOV 	A,#'F'
		ACALL	SEND
		MOV 	A,#'='
		ACALL	SEND
		MOV 	A,#'1'
		ACALL	SEND
		MOV 	A,#0DH
		ACALL	SEND
		RET				
;=============================================
;=============================================		
RECVB:	MOV		DPHR,#50H
		MOV		DPLR,#00H
		MOV		DPH,DPHR
		MOV		DPL,DPLR
		MOV		DPHR,#50H	
WTRCB0:	MOV		DPTR,#LSR
		MOVX	A,@DPTR
		MOV		STSF,A
		JBC		RIF,RCBOK
		AJMP	WTRCB0
WTRCB:	MOV		DPTR,#LSR
		MOVX	A,@DPTR
		MOV		STSF,A
		JBC		RIF,RCBOK
		DJNZ	R1,WTRCB		;WAIT FOR READY			
		DJNZ	R0,WTRCB
		MOV     A,#00H			;接受完數據后使最后一個數為零。
		MOV		DPH,DPHR
		MOV		DPL,DPLR
		MOVX	@DPTR,A			
		RET		
RCBOK:	MOV		DPTR,#ADDR1
		MOVX	A,@DPTR
		MOV		DPH,DPHR
		MOV		DPL,DPLR
		MOVX	@DPTR,A
		INC		DPLR			;WRITE TEH RECEIVE DATA TO 5000H~5200H
		MOV		A,DPLR
		CJNE	A,#0,NEXT1
		INC		DPHR
NEXT1:	MOV		R1,#0
		MOV		R0,#0
		AJMP	WTRCB
;=============================================		
;將30H到60H的數據清零
;=============================================
CLEAR:	MOV		R0,#30h
		MOV		R1,#30H
CLR1:	MOV		@R0,#0
		INC		R0
		DJNZ	R1,CLR1
		MOV		DPHR,#50H
		MOV		DPLR,#00H
		
CLRB:	
		MOV		DPH,DPHR
		MOV		DPL,DPLR
		MOV		A,#0
		MOVX	@DPTR,A
		INC		DPLR
		MOV		A,DPLR
		CJNE	A,#0,CLRB	
		INC		DPHR
		MOV		A,DPHR
		CJNE	A,#52H,CLRB			;//	Clear the field of 5000~5200
		
		RET
;=============================================		
ATE:	MOV		A,#'A'
		ACALL	SEND
		MOV		A,#'T'
		ACALL	SEND
		MOV		A,#'E'
		ACALL	SEND
		MOV  	A,#'0'
		ACALL	SEND
		MOV		A,#0DH
		ACALL	SEND
		RET
;=============================================	
;===========================================
;顯示ASCII碼的命令F1 XX YY AS
;=============================================		
WRT1:   ACALL	BUSY
		SETB	P1.1		
		MOV		A,#0F1H
		ACALL	WRTB
		ACALL	BUSY
		MOV		A,ADRX
		ACALL	WRTB
		INC		ADRX		;X方向的位置加一.
		ACALL	BUSY
		MOV		A,ADRY
		ACALL	WRTB
		ACALL	BUSY
		MOV		DPH,DPHR
		MOV		DPL,DPLR
		;INC		DPLR		;存儲地址加一
		MOVX	A,@DPTR
		ACALL	WRTB

		RET
;=============================================		
WRTB:   MOV 	DPTR,#P55A
        MOVX 	@DPTR,A
        MOV 	DPTR,#PCTR
        MOV 	A, #STOBE1		;置位REQ
        MOVX 	@DPTR,A 
WAIT:	MOV		DPTR,#P55C      
        MOVX 	A,@DPTR
        JNB		ACC.7,WAIT		;BUSY?判斷是否接受到數據
	    MOV 	DPTR,#PCTR
        MOV 	A,#STOBE0		;清零REQ
        MOVX 	@DPTR,A 
		RET
;=============================================		
BUSY:	MOV 	DPTR,#P55C
        MOVX 	A,@DPTR
        JB 		ACC.7,BUSY
        RET
;=============================================		
CLEAR_STATUS:
		MOV		DPTR,#LSR
		MOVX	A,@DPTR
		MOV		DPTR,#ADDR1
		MOVX	A,@DPTR
		RET		
;=============================================
CLEAR_DIS:
		MOV 	DPTR,#PCTR
        MOV 	A,#88H
        MOVX 	@DPTR,A			;置PA口輸出,PC口高4位輸入,低4位輸出                
        MOV 	DPTR,#PCTR
        MOV 	A,#STOBE0
        MOVX 	@DPTR,A	
        MOV 	A,#0F4H			;F4命令字
		ACALL 	WRTB
		RET

;=====================================
DELAY: 	MOV 	R4,#0
	    MOV 	R5,#0
	    MOV		R6,#1H
DLY:    DJNZ 	R4,DLY
		DJNZ 	R5,DLY
		DJNZ	R6,DLY
		RET
;=============================================	
CMGS:	MOV		A,#'A'		;A
		ACALL	SEND
		MOV		A,#'T'		;T
		ACALL	SEND
		MOV		A,#'+'		;+
		ACALL	SEND
		MOV		A,#'C'		;C
		ACALL	SEND
		MOV		A,#'M'		;M
		ACALL	SEND
		MOV		A,#'G'		;G
		ACALL	SEND
		MOV		A,#'S'		;S
		ACALL	SEND
		MOV		A,#'='		;=
		ACALL	SEND
		MOV		A,#'"'		;"
		ACALL	SEND
;============================================
;到下一注釋處為接收手機號碼
		MOV		A,#NUM1
		SWAP	A
		ANL		A,#0FH
		ADD		A,#30H
		ACALL	SEND
		MOV		A,#NUM1
		ANL		A,#0FH
		ADD		A,#30H
		ACALL	SEND
		MOV		A,#NUM2
		SWAP	A
		ANL		A,#0FH
		ADD		A,#30H
		ACALL	SEND
		MOV		A,#NUM2
		ANL		A,#0FH
		ADD		A,#30H
		ACALL	SEND
		MOV		A,#NUM3
		SWAP	A
		ANL		A,#0FH
		ADD		A,#30H
		ACALL	SEND
		MOV		A,#NUM3
		ANL		A,#0FH
		ADD		A,#30H
		ACALL	SEND
		MOV		A,#NUM4
		SWAP	A
		ANL		A,#0FH
		ADD		A,#30H
		ACALL	SEND
		MOV		A,#NUM4
		ANL		A,#0FH
		ADD		A,#30H
		ACALL	SEND
		MOV		A,#NUM5
		SWAP	A
		ANL		A,#0FH
		ADD		A,#30H
		ACALL	SEND
		MOV		A,#NUM5
		ANL		A,#0FH
		ADD		A,#30H
		ACALL	SEND
		MOV		A,#NUM6
		ANL		A,#0FH
		ADD		A,#30H
		ACALL	SEND
;============================================
		MOV     A,#'"'
		ACALL   SEND
		MOV		A,#0DH		;ENTER
		ACALL	SEND
		RET		
;=============================================
;發送的字符為Wellcome to topsun,可以修改。
SEND_STRING:
		MOV		A,#'W'
		ACALL	SEND
		MOV		A,#'e'
		ACALL	SEND
		MOV		A,#'l'
		ACALL	SEND
		MOV		A,#'l'
		ACALL	SEND
		MOV		A,#'c'
		ACALL	SEND
		MOV		A,#'o'
		ACALL	SEND
		MOV		A,#'m'
		ACALL	SEND
		MOV		A,#'e'
		ACALL	SEND
		MOV		A,#' '
		ACALL	SEND
		MOV		A,#'t'
		ACALL	SEND
		MOV		A,#'o'
		ACALL	SEND
		MOV		A,#' '
		ACALL	SEND
		MOV		A,#'T'
		ACALL	SEND
		MOV		A,#'o'
		ACALL	SEND
		MOV		A,#'p'
		ACALL	SEND
		MOV		A,#'s'
		ACALL	SEND
		MOV		A,#'u'
		ACALL	SEND
		MOV		A,#'n'
		ACALL	SEND		;發送Wellcome to Topsun，可修改
		MOV		A,#26		;CTRL+Z	
		ACALL	SEND
		;ACALL	RECV
		NOP
		RET
;=============================================
END
?? 文件大小 72 K
?? 上傳用戶 happiness0416
?? 所屬分類單片機開發
??? 相關標簽

#串口程序 #發送 #通信程序
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? sendlcd.asm

?? 快捷鍵說明
