keytest.asm

(1)完成键盘

;**************************KEYTEST PROGRAM*******************
KEYTEST:         MOV  LED1,#0
                 MOV  LED2,#0
                 MOV  LED3,#0
                 MOV  LED4,#0
                 MOV  LED5,#0
                 LCALL  SEL8
                 MOV A,P1
                 JNB ACC.7, L_PLAYKEYEND
                 JNB ACC.0,L_PLAYKEY1
                 JNB ACC.1,L_PLAYKEY2
                 JNB ACC.2,L_PLAYKEY3
                 JNB ACC.3,L_PLAYKEY4
                 AJMP  KEYTEST

L_PLAYKEY1:      MOV  LED5,#0CH
                 LCALL L_KEYBEEP
                 LCALL L_PLAY5
                 AJMP  KEYTEST
L_PLAYKEY2:      MOV  LED5,#0B6H
                 LCALL L_KEYBEEP
                 LCALL L_PLAY5
                 AJMP  KEYTEST
L_PLAYKEY3:      MOV  LED5,#9EH
                 LCALL L_KEYBEEP
                 LCALL L_PLAY5
                 AJMP  KEYTEST
L_PLAYKEY4:      MOV  LED5,#0CCH
                 LCALL L_KEYBEEP
                 LCALL L_PLAY5
                 AJMP  KEYTEST                                          
L_KEYBEEP:       CLR     P2.3
                 LCALL   L_DELAY2MS
                 SETB    P2.3
                 LCALL   L_DELAY2MS
L_PLAYKEYEND:        RET