;******************
RS EQU P3.0
RW EQU P3.1
E  EQU P3.2
DATE EQU P2
BF EQU P2.7
KEY EQU P1
COUNT EQU 31H
SCAN EQU 32H
SCAN1 EQU 33H
KEYCOUNT EQU 34H
SHOWWHAT EQU 35H
KEYF EQU 36H
;*****************
ORG 0000H
AJMP START
ORG 0030H
START:
;*************************
;初始化LCD
;*********************
MOV SP,#5FH
MOV DATE,#00000001B ;清屏
CALL WRITES
MOV DATE,#00111000B ;8位2行5x7點陣
ACALL WRITES
MOV DATE,#00001111B ;顯示器開、光標開、閃爍開
ACALL WRITES
MOV DATE,#00000110B ;文字不動，光標自動右移
ACALL WRITES
;*************************
;鍵盤掃描初始化
;****************
MAIN:
MOV KEY,#0F0H
MOV 30H,#0FEH
MOV COUNT ,#0
MOV KEYCOUNT,#0
MOV KEYF,#0
;******************
CALL KEYSCAN
MOV A,KEYF
CJNE A,#1,MAIN
MOV KEYF,#0
MOV DATE,#00H
ACALL WRITES
MOV DPTR,#TAB
MOV A,SHOWWHAT
CJNE A,#0CH,K2
MOV DATE,#00000001B
ACALL WRITES
LJMP MAIN
K2:MOVC A,@A+DPTR
MOV DATE,A
ACALL READDATE
LJMP MAIN
;*********************
;鍵盤掃描程序
;*********************
KEYSCAN:
MOV A,KEY
ANL A,#0F0H
CJNE A,#0F0H,KEYWHAT
LJMP KEYSCAN
KEYWHAT:
CALL DELAY
MOV A,KEY
ANL A,#0F0H
CJNE A,#0F0H,KEYWHAT1
LJMP KEYSCAN
KEYWHAT1:
MOV KEY,30H
MOV A,KEY
ANL A,#0F0H
CJNE A,#0F0H,KEYWHAT2
MOV A,30H
RL A
MOV 30H,A
INC COUNT
MOV A,COUNT
CJNE A,#4,KEYWHAT1
MOV COUNT,#0
MOV 30H,#0FEH
AJMP KEYSCAN
KEYWHAT2:
CLR C
SWAP A
MOV SCAN,A
K1:MOV A,SCAN
RRC A
MOV SCAN,A
JNC K
INC KEYCOUNT
MOV R3,KEYCOUNT
CJNE R3,#5,K1
MOV KEYCOUNT,#0
AJMP K1
k:
MOV SCAN,KEYCOUNT
MOV A,COUNT
MOV B,#4
MUL AB
ADD A,SCAN
MOV SHOWWHAT,A
MOV KEYF,#1
RET
;*****************
;寫控制命令子程序
;**************
WRITES:
CLR RS
CLR RW
CLR E
CALL FAVOUR;判斷是否忙
SETB E
RET
;*****************
;寫數據子程序
;**************
READDATE:
SETB RS
CLR RW
CLR E
ACALL FAVOUR
SETB E
RET
;***************
;判斷是否忙子程序
;******************
FAVOUR:
MOV DATE,#0FFH
CLR RS
SETB RW
CLR E
NOP
SETB E
JB BF,FAVOUR
RET
;***************
DELAY:
MOV R0,#200
D1:MOV R1,#250
   DJNZ R1,$
   DJNZ R0,D1
RET
;*****************
TAB:
DB 37H,38H,39H,0fdH,34H,35H,36H,3BH,31H,32H,33H,2DH,3DH,30h,3DH,2bh
END