键盘显示..
ViewNumber EQU 20H
ViewParityPeriod EQU 30H
ViewBuffer EQU 31H
ROW_ONE BIT P3.2
ROW_TWO BIT P3.3
ROW_THREE BIT P3.4
COL_ONE BIT P3.5
COL_TWO BIT P3.7
;--=========================键盘监听=========================
InceptSpaceTime EQU 39H
KeyValue EQU 21H
RemoveTingleFlag BIT 10H
RemoveTingleTime EQU 40H
SendBuffer EQU 41H
IntegralSendPeriod EQU 42H
IntegralWaiterTime EQU 43H
RemoveTingleTimeMAX DATA 04H; 去抖动时间
IntegralWaiterTimeMAX DATA 64H; 积分发送等待时间
IntegralSendPeriodMAX DATA 32H; 积分发送周期
InceptSpaceTimeMAX DATA 14H; 键值接收最长间隔时间
;--==========================键值编码定义======================
STOP_RESET_KEY DATA 16H;
PRG_KEY DATA 15H
SET_KEY DATA 19H
UP_KEY DATA 0EH
DOWN_KEY DATA 0DH
PVN_KEY DATA 0BH
PRG_SET_KEY DATA 11H
PRG_UP_KEY DATA 04H
PRG_DOWN_KEY DATA 05H
InceptNumber EQU 44H
InceptBuffer EQU 45H
ORG 0000H
AJMP MAIN
ORG 000B
AJMP Timer0
ORG 0023H
AJMP DATAINCEPT
MAIN:MOV R0, #7FH
LOOP:MOV @R0, #00H
DJNZ R0, LOOP; 清0内部RAM低128K地址空间
MOV SP, #60H; 设定堆栈指针
MOV TMOD, #00H
MOV TL0, #18H
MOV TH0, #0E0H; 设置定时器定时时钟为5ms
SETB EA
SETB ET0
SETB TR0; 启动定时器0
SETB ES
JUMP:AJMP JUMP
Timer0:PUSH ACC
PUSH B
PUSH PSW
PUSH DPH
PUSH DPL
ACALL KeyboadMonitoring; 调用键盘监听字程序
ACALL DATAVIEW; 调用数据显示子程序
ACALL DATASEND; 调用数据发送子程序
ACALL ADDInceptSpaceTime; 键值接收间隔时间递增
POP DPL
POP DPH
POP PSW
POP B
POP ACC
RETI
;--================键盘监听==========================
KeyboadMonitoring:JB RemoveTingleFlag, GotoCheckKey
MOV C, COL_ONE
ANL C, COL_TWO
JC GetKeyValueEXIT
SETB RemoveTingleFlag
MOV RemoveTingleTime, #00H
AJMP EXIT
;--================键值监听判断==========================
GotoCheckKey: MOV A, RemoveTingleTime
CJNE A, #RemoveTingleTimeMAX, GetKeyValueEXIT
MOV RemoveTingleTime,#RemoveTingleTimeMAX
AJMP GetKeyValue
AJMP TreatMentKey
RET
;--================监听键值==========================
GetKeyValue: MOV KeyValue, #00H
MOV A, P3
CLR P3.2
SETB P3.3
SETB P3.4
NOP
MOV C, P3.5
MOV KeyValue.5, C
MOV C, P3.7
MOV KeyValue.4, C
CLR P3.3
SETB P3.2
SETB P3.4
NOP
MOV C, P3.5
MOV KeyValue.3, C
MOV C, P3.7
MOV KeyValue.2, C
NOP
CLR P3.4
SETB P3.2
SETB P3.4
MOV C, P3.5
MOV KeyValue.1, C
MOV C, P3.7
MOV KeyValue.0, C
MOV P3, A
GetKeyValueEXIT: RET
;--==================处理键值===========================
TreatMentKey: MOV A, KeyValue
CJNE A, #00H, Release
CJNE A, #STOP_RESET_KEY, Integral
MOV SendBuffer, A
RET
Release: CJNE A, #PRG_KEY, ReleaseCheck1
AJMP PreserveKey
ReleaseCheck1: CJNE A, #SET_KEY, ReleaseCheck2
AJMP PreserveKey
ReleaseCheck2: CJNE A, #PVN_KEY, ReleaseCheck3
AJMP PreserveKey
ReleaseCheck3: CJNE A, #PRG_SET_KEY, ReleaseCheck4
AJMP PreserveKey
ReleaseCheck4: CJNE A, #PRG_UP_KEY, ReleaseCheck5
AJMP PreserveKey
ReleaseCheck5: CJNE A, #PRG_DOWN_KEY, ReleaseCheck6
AJMP PreserveKey
ReleaseCheck6: CJNE A, #UP_KEY, ReleaseCheck7
AJMP PreserveKey
ReleaseCheck7: CJNE A, #DOWN_KEY, ReleaseCheck8
AJMP PreserveKey
ReleaseCheck8: AJMP KeyBoradRelease
PreserveKey: MOV SendBuffer, A
;--===============键盘无闭合====================
KeyBoradRelease: CLR RemoveTingleFlag
MOV IntegralWaiterTime, #00H
MOV IntegralSendPeriod, #00H
RET
;--==================去抖动处理=========================
Integral: CJNE A, #UP_KEY, Integral1
AJMP TreanMentIntegral
Integral1: CJNE A, #DOWN_KEY, Integral2
AJMP TreanMentIntegral
Integral2: RET
TreanMentIntegral: MOV A, IntegralWaiterTime
CJNE A, #IntegralWaiterTimeMAX, INCIntegralWaiterTime
AJMP CheckIntegralSend
INCIntegralWaiterTime: INC IntegralWaiterTime
CheckIntegralSend: MOV A, IntegralSendPeriod
CJNE A, #00H, NoTSendIntegralKey
MOV KeyValue, SendBuffer
NoTSendIntegralKey: INC IntegralSendPeriod
CJNE A, #IntegralSendPeriodMAX, Integral2
MOV IntegralSendPeriod, #00H
RET
;--=====================InceptSpaceTime处理================
ADDInceptSpaceTime: MOV A, InceptSpaceTime
CJNE A, #InceptSpaceTimeMAX, ADDInceptSpaceTimeEXIT
INC InceptSpaceTime
ADDInceptSpaceTimeEXIT: RET
;--=====================数据显示============================
DATAVIEW:MOV C, ViewNumber.2
MOV ROW_ONE, C
MOV C, ViewNumber.1
MOV ROW_TWO, C
MOV C, ViewNumber.0
MOV ROW_THREE, C
MOV A,ViewParityPeriod
CJNE A, #00H, CheckGlintFlag
CheckGlintFlag:MOV DPTR, #ViewBuffer
MOV A, #08H
MOVC A, @A+DPTR
MOV R0, ViewNumber
LEFTMOVE: CJNE R0, #1, GetGlintFlag
AJMP CheckFlag
GetGlintFlag: RR A
DJNZ R0,LEFTMOVE
CheckFlag: JNB ACC.0, GetViewData
MOV P1, #00H
AJMP INCMUNBER
GetViewData: MOV A, ViewNumber
MOVC A, @A+DPTR
MOV P1, A
INCMUNBER: INC ViewNumber
MOV A, ViewNumber
CJNE A, #07H, EXIT
MOV ViewNumber, #00H
INC ViewParityPeriod
MOV A, ViewParityPeriod
CJNE A, #03H, EXIT
MOV ViewParityPeriod, #00H
EXIT: RET
;--=====================数据发送==============================
DATASEND: MOV A, SendBuffer
CJNE A, #00H, SendData
RET
SendData: MOV SBUF, A
MOV SendBuffer, 00H
RET
;--=====================数据接收=============================
DATAINCEPT: MOV A, SBUF
MOV R0, A
CheckInceptData: MOV A, InceptNumber
CJNE A, #00H, CheckInceptSpaceTime
CJNE R0, #0FH, DATAINCEPTEXIT
AJMP InceptDataEnd
CheckInceptSpaceTime: MOV R1, InceptSpaceTime
CJNE R1, #InceptSpaceTimeMAX, InceptData
MOV InceptNumber, #00H
AJMP CheckInceptData
InceptData: MOV A, InceptNumber
ADD A, #InceptBuffer
MOV R1, A
MOV A, R0
MOVX @R1, A
InceptDataEnd: MOV InceptSpaceTime, #00H
INC InceptNumber
MOV A, InceptNumber
CJNE A, #09H, DATAINCEPTEXIT
MOV InceptNumber, #00H
DATACOPY: MOV R0, #00H
DATACOPY1: MOV A, R0
ADD A, #InceptBuffer
MOV R1, A
MOV A, @R1
MOV R2, A
MOV A, R0
ADD A, #InceptBuffer
MOV R1, A
MOV A, R2
MOV @R1, A
INC R0
CJNE R0, #08H, DATACOPY1
DATAINCEPTEXIT: RET
END