passplay.asm

我实验板带的实验程序

;腾龙套件的液晶显示：开机显示PASS WOR D:000000  本程序在腾龙开发套件调试通过， 更改引脚定义也适用倚天板



RS EQU p2.0;液晶接口的定义
RW EQU p2.1
E  EQU p2.2
	org	0000h
	MOV SP ,#70H;设置堆栈
	MOV p0,#01H	;清屏
	CALL ENABLE
	MOV p0,#38H	;显示功能
    CALL ENABLE
	MOV p0,#0FH	;显示开关控制
 	CALL ENABLE
	MOV p0,#06H	;+1
	CALL ENABLE
	MOV p0,#80H;第一行的开始位置
	cALL ENABLE
	MOV DPTR,#TABLE1;显示PASS WORD
	CALL WRITE1;到TABLE1取码?
	MOV p0,#0C0H;第二行的位置
	CALL ENABLE
	MOV DPTR,#TABLE2;显示D:000000
	CALL WRITE1;到TABLE2 取码
	MOV p0,#0C2H;光标定位0C2H
	CALL ENABLE


ENABLE: CLR RS 			;送命令
	CLR RW
	CLR E
	ACALL DELAY
	SETB E
	RET

WRITE1: MOV R1,#00H   ;显示table中的值
	A1: MOV A,R1;到table取码
	MOVC A,@A+DPTR
	call  wRITE2   ;显示到lcd
	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 R4,#05
	D1:MOV R5,#0FFH
	DJNZ R5,$
	DJNZ R4,D1
	RET

TABLE1:DB "PASS WOR",00H
TABLE2:DB "D:000000",00H

end