org 0200h
main:
init:
MOV 60H,#10h
MOV 61H,#10h
MOV 62H,#10h
MOV 63H,#10h
wait:  
acall keyscan                       ;有键按下,转定按键位置扫描
acall disp
sjmp         wait

       
;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
;                       p1.7p1.6p1.5p1.4                              1110
;                         |         |         |         |                 R*4       
; p1.3         ----------/|--/|--/|--/|---------|===|----vcc
; p1.2         ----------/|--/|--/|--/|---------|===|----vcc
; p1.1         ----------/|--/|--/|--/|---------|===|----vcc
; p1.0         ----------/|--/|--/|--/|---------|===|----vcc          1111
;                         |         |         |         |   
keyscan:
mov R1,#0efh         ;0efh,依次扫描p1.4,p1.5,p1.6列
mov R2,#0         ; 列数
ks_colum:
mov P1,R1         ;
nop
nop
mov A,P1         ;从p1口取得行信息

orl a, #0f0h

mov r3,#0                             ;行数
ks_row:
rrc a

jnc ks_wait_release
inc r3  
cjne r3,#5,ks_row
  
ks_this_colum_none:          ; 该列无键按下
mov A,R1         ; 扫描下一列
rl A
mov R1,A

inc r2
cjne r2,#4,ks_colum

error:        clr A          ; 所有列无键按下，返回0
jmp ks_end
ks_wait_release:
mov p1,#0fh

mov a,p1
orl a,#0f0h
cpl a
jnz ks_wait_release
ks_decode:
mov a,r3
rl a
add a,r3                         
add a,r2                              ;r3*3+r2
add a,#1h

set_disp_bit:
mov r0,#63h         ;放入显示缓冲
mov @r0,a

ks_end:
ret

;<<<<<< <<<<<<<<<<<<<<<<<<< <<<<<<<<<<<<<<<<<<< <<<<<<<<<<<<<<<<<<< <<<<<<<<<<<<<<<<<led显示部分

disp:
disp_number:
push acc
MOV R0,#60H           ;显示数码存放在0x60~0x63(BCD形式)
MOV R3,#0feH                     ;把显示位码取到R3
display_scan:
MOV A,@R0
MOV R2,A           ;把显示数码取到R2

ACALL display_a_bit
ACALL delay

MOV A,R3
RL        A                             ;下一位码

MOV R3,A

INC R0;下一显示数码
CJNE R0,#64H,display_scan
pop acc
ret

;*******************************************************************************************
;r2=显示数据 r3=显示位（0feh,0fdh,0fbh,0f7h分别指第1,2,3,4位)
led_digit1 equ 0feh
led_digit2 equ 0fdh
led_digit3 equ 0fbh
led_digit4 equ 0f7h

display_a_bit:
MOV DPTR,#table
next:
MOV A,R2
MOVC A,@A+DPTR
MOV P0,A                         ;取段码:TABLE1+x

MOV A,R3
MOV P2,A                         ;输出位码

RET
;*******************************************************************************************
delay:
MOV R6,#04H
d1:     
MOV R7,#248
DJNZ R7,$
DJNZ R6,d1
RET                              ;延迟 1us+4*(1us+2us*248+2us)+2us=1999us,约2ms

;*******************************************************************************************
;                      8       
;                            p0.0~p0.7----/-------------------------------------
;                                         |                    |                  |              |
;                                     ===a===               =======            ======           ======  
;                                   f|             | b           |             |          |            |         |            |  
;                                     ====g===             |=======|          |======|         |======|  
;                                   e|             | c           |             |          |            |         |            |  
;                                     ===d== oh             ====== o           ===== o          ===== o
;                                          |                  |                    |                  |
;                            p2.0----------/------------+--------------+------------+
;
;                                p0: ghfedcba
;                                    xxxxxxxx (请确认连接）,如共阴数码管:0000 0110,显示1.
table:        ;        '0'        '1'        '2' '3'        '4' '5'        '6' '7' '8' '9',共阴
db 3fh,06h,5bh,4fh,66h;0-4
        db 6dh,7dh,07h,7fh,6fh;5-9
        db 77h,7ch,39h,5eh,86h;A,b,C,d,E
db 00h;关数码管
end