; 鍵盤管理

                PROC  KEY_INPUT, TEST,KEY_SUB

; OUTPUT:  C=1, 有鍵輸入，A=鍵值
KEY_INPUT:
               CLR C
               MOV A,P1
               ANL A,#0FH
               CPL A
               JZ KEY_INPUT_RET
                  SETB C
KEY_INPUT_RET: RET

TEST:
         SETB C
         MOV A,#01H
         RET

; INPUT: A= 0-F
; OUTPUT: A= '0 - F' , ASCII
KEY_SUB:   INC A
           MOVC A,@A+PC
           RET
           DB '0123456789ABCDEF'
                END