键盘0.asm

开发平台,任一MCS-51单片机上,很多程序,如键盘,显示,液晶驱动

ST_3  EQU  25H ;HH
ST_2  EQU  26H  ;H
ST_1  EQU  27H  ;L



;=========================================
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;键盘扫描子程序
SCAN:
MOV P0,#7FH
MOV A,P0
CJNE A,#7FH, KEY1
MOV P0,#0BFH
MOV A,P0
CJNE A,#0BFH, KEY5
MOV P0,#0DFH
MOV A,P0
CJNE A,#0DFH,KEY9
MOV P0,#0EFH
MOV A,P0
CJNE A,#0EFH,T_O
RET
T_O:LJMP KEY13

KEY1:CJNE A,#77H,KEY2
NOP
RET
KEY2:CJNE A,#7BH,KEY3
NOP
RET
KEY3:CJNE A,#7DH,KEY4
NOP
RET
KEY4:CJNE A,#7EH,MM
NOP
MM:RET
KEY5:CJNE A,#0B7H,KEY6  ;数字键
MOV R7,#00H
MOV ST_2,ST_1
MOV ST_3,ST_2
MOV ST_1,R7
LCALL DELAY1

RET
KEY6:CJNE A,#0BBH,KEY7
MOV R7,#01H
MOV ST_2,ST_1
MOV ST_3,ST_2
MOV ST_1,R7
LCALL DELAY1

RET
KEY7:CJNE A,#0BDH,KEY8
MOV R7,#02H
MOV ST_2,ST_1
MOV ST_3,ST_2
MOV ST_1,R7
LCALL DELAY1

RET
KEY8:CJNE A,#0BEH,KEY9
MOV R7,#03H
MOV ST_2,ST_1
MOV ST_3,ST_2
MOV ST_1,R7
LCALL DELAY1

RET
KEY9:CJNE A,#0D7H,KEY10

MOV R7,#04H
MOV ST_2,ST_1
MOV ST_3,ST_2
MOV ST_1,R7
LCALL DELAY1


RET
KEY10:CJNE A,#0DBH,KEY11
MOV R7,#05H
MOV ST_2,ST_1
MOV ST_3,ST_2
MOV ST_1,R7
LCALL DELAY1

RET
KEY11:CJNE A,#0DDH,KEY12
MOV R7,#06H
MOV ST_2,ST_1
MOV ST_3,ST_2
MOV ST_1,R7
LCALL DELAY1

RET
KEY12:CJNE A,#0DEH,KEY13
MOV R7,#07H
MOV ST_2,ST_1
MOV ST_3,ST_2
MOV ST_1,R7
LCALL DELAY1
RET
KEY13:CJNE A,#0E7H,KEY14
 MOV R7,#08H
MOV ST_2,ST_1
MOV ST_3,ST_2
MOV ST_1,R7
LCALL DELAY1

RET

KEY14:CJNE A,#0EBH,KEY15
MOV R7,#09H
MOV ST_2,ST_1
MOV ST_3,ST_2
MOV ST_1,R7
LCALL DELAY1

RET
KEY15:CJNE A,#0EDH,KEY16     ;停止键
LCALL DELAY1
SETB SIGN_WEATHER

LCALL DELAY1
LCALL DELAY1
RET                          ;电机正转
KEY16:CJNE A,#0EEH,LL        ;确认键
LCALL DELAY1
SETB SINGN_R
LCALL DELAY1
LCALL DELAY1
LL:RET
;;;;;;;;;;;;;
delay1:
    MOV R5,#250
XX: MOV R6,#250
    DJNZ R6,$
    DJNZ R5, XX
RET