0802sx.asm

单片机例程打包 液晶 AD EEPROM LED 电机 BEEP 键盘等

;P32、P33、P34、P35 简易键盘控制的0802液晶显示我公司的网址及联系电话程序。记得
;常给我们联系！
;***************************************************************************
;*  [e-mail]	      深圳随想电子科技有限公司版权所有    *
;*  Create by :欧海明     www.szsxmcu.com 更多例程及单片机专业    *
;*  咨讯请登陆网站      因为专业所以做得更好！深圳随想电子科技 	  *
;***************************************************************************
	RS EQU P2.0
	RW EQU P2.1
	E EQU P2.2
	mov p3,#0ffh
	MOV P0,#01H	;清除屏幕
	ACALL ENABLE
	MOV P0,#38H	;8位点阵
	ACALL ENABLE
	MOV P0,#0FH	;开显示
	ACALL ENABLE
	MOV P0,#06H	;移动光标
	ACALL ENABLE
	MOV P0,#80H	;显示位置
	ACALL ENABLE
l3:	mov p0,#01h
	acall enable
	mov dptr,#table1 ;送第一句话
	call write1
	call enable
	mov p0,#01h
	ljmp l1
l4:	mov p0,#01h
	acall enable
	mov dptr,#table2 ;送第二句话
	call write1
	call enable
	mov p0,#01h
	ljmp l1
l5:	mov p0,#01h
	acall enable
	mov dptr,#table3 ;送第三句话
	call write1
	acall enable
	mov p0,#01h
	ljmp l1
	l6:mov p0,#01h
	acall enable
	mov dptr,#table4  ;送第四句话
	call write1
	acall enable
	mov p0,#01h
	ljmp l1
l1:	jnb p3.3,l3     ;监测键盘
	jnb p3.4,l4
	jnb p3.5,l5
	JNB P3.2,L6
	jmp l1
ENABLE:			;送命令
	CLR RS
	CLR RW
	CLR E
	ACALL DELAY
	SETB E
	RET
write1:			;送字符串
	mov r1,#00h
	a1:mov a,r1
	movc a,@a+dptr
	call write2
	inc r1
	cjne a,#00h,a1	;以00H做字符串结束标志
	ret
write2:			;送单个字符
	mov p0,a
	setb rs
	clr rw
	clr e
	call delay
	setb e
	ret
delay:                  ;延时子程序
	mov r7,#255
	d1:mov r6,#255
	d2:djnz r6,d2
	djnz r7,d1
	ret
;以下每个表格都是一句话,以00H作为每句话的结尾.
table1: db "SZSXMCU@",00H
table2: db "TEL-0755",00H
table3: db "28075089",00H
Table4: db "MCU$$RMB",00H
end