keyrd4.asm

当今单片机厂商琳琅满目

INCLUDE 'H51.INC'
        MOV     21H,#0
MAIN:   LCALL   KEYRD4
        LCALL   KEYCL4
        SJMP    MAIN

KEYRD4: MOV     KEYP,#0FFH
        ANL     KEYP,#11110111B         ;检测第四行键
        NOP
        MOV     A,KEYP
        CPL     A
        ANL     A,#0F0H
        JZ      KEYR1
        JB      KT,KEYRE
        JNB     KD,KEYR2
        SETB    KT
        SETB    KC
        LJMP    KEYRDE
KEYR2:  SETB    KD
        LJMP    KEYRDE
KEYR1:  CLR     KD
        CLR     KT
        LJMP    KEYRDE
KEYRDE: RET

KEYCL4: JNB     KC,KEYCLE
        CLR     KC
        JNB     KEYP.7,KEYC4    ;KEY16取消
        JNB     KEYP.6,KEYC3    ;KEY15循环/向下翻页
        JNB     KEYP.5,KEYC2    ;KEY14+1键/向上翻页
        JNB     KEYP.4,KEYC1    ;KEY13确认/设置
KEYC1:  CPL     03H
        MOV     XYE,#1
        MOV     SHAN,#0
        LJMP    KEYCLE
KEYC2:  JB      03H,KEYC21
        INC     XYE
        MOV     A,XYE
        CJNE    A,#4,KEYC22
        MOV     XYE,#0
KEYC22: LJMP    KEYCLE
KEYC21:


























        END