;液晶顯示：開機顯示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