1_1.txt

使用74164连接8行2列键盘的行线

;使用P1.0 P1.1作为74164串行输入数据线和时钟线，74164的输出接数码管的
;段码，P1.2接一位数码管的位选码，在一位数码管上轮流显示数字（0--F）。       
;A3区:P1.0-----D5区:A,B     (P1.0作为数据线)
;A3区:P1.1-----D5区:CLK     (p1.1作为时钟线)
;D5区:JP49-----E6区:JP97    
;E6区:JP99-----G5区:JP42    (数码管的段码)
;A3区:JP51-----E6区:JP98
;E6区:JP100----G5区:JP41    (数码管的位选脚)
         ORG    0000H
         LJMP   START
         ORG    0100H

START:   MOV    SP,#60H           ;堆栈                
         MOV    SCON,#00H         ;串行方式0
         MOV    DPTR,#TABFLA
         SETB   P1.2              ;数码管的位选                   
NEXT1:   MOV    R0,#00H 
NEXT2:   MOV    A,R0
         MOVC   A,@A+DPTR         ;送入十六进制段码
         
         MOV    R1,#08H           ;将段码值按位送入P1.0
NEXT3:   MOV    R2,A
         ANL    A,#10H
         CJNE   A,#00H,KEY1
         CLR    P1.0
         AJMP   KEY2
KEY1:    SETB   P1.0
KEY2:    CLR    P1.1
         SETB   P1.1
         MOV    A,R2
         RL     A        
         DJNZ   R1,NEXT3

         ACALL  DLTIME
         INC    R0
         MOV    A,R0
         CJNE   A,#10H,NEXT2
         SJMP   NEXT1
NUM:     DB     0C0H,0F9H,0A4H,0B0H,99H   
         DB     92H,82H,0F8H,80H,90H,88H  
         DB     83H,0C6H,0A1H,86H,8EH     

DLTIME:  MOV    R5,#02H           ;延时
DLTIME1: MOV    R6,#0FFH
DLTIME2: MOV    R7,#0FFH
         DJNZ   R7,$
         DJNZ   R6,DLTIME2
         DJNZ   R5,DLTIME1
         RET
         END