4✖️4键盘 外加 八位动态数码管显示

实在不太会用汇编语言写
一、查询方式 键盘扫描程序
ORG                0000H
                AJMP        KEY2
                ORG                0100H
KEY2:        MOV                SP,#60H
                LCALL        KS
                JNZ                S1
                LCALL        D10ms
                AJMP        KEY2
S1:                LCALL        D10ms
                LCALL        KS
                JNZ                S2
                AJMP        KEY2
S2:                MOV                R2,#010H
                MOV                R4,#00H
S3:                MOV                P1,R2
L0:                JNB                P1.0,L1
                MOV                A,#00H
                AJMP        LK
L1:                JNB                P1.1,L2
                MOV                A,#04H
                AJMP        LK
L2:                JNB                P1.2,L3
                MOV                A,#08H
                AJMP        LK
L3:                JNB                P1.3,NEXT
                MOV                A,#0CH
LK:                ADD                A,R4
                PUSH        ACC
                LJMP        DISPLAY
NEXT:        INC                R4
                MOV                A,R2
                JB                ACC.7,KEY2
                RL                A
                MOV                R2,A
                AJMP        S3
S4:                LCALL        KS
                JNZ                S4
                POP                ACC
                RET
KS:                MOV                P1,#0FH                               
                MOV                A,P1
                XRL                A,#0FH
                RET
D10ms:        MOV                R7,#25
D1:                MOV                R6,#200
                DJNZ        R6,$
                DJNZ        R7,D1
                RET       
DISPLAY:MOV                DPTR,#TABLE
                MOVC        A,@A+DPTR
                MOV                P0,A
                LJMP        KEY2
TABLE:        DB        0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H,88H,83H,0C6H,0A1H,86H,8EH
                END

二、动态数码管显示程序
ORG                0000H
                AJMP        START
                ORG                0100H
START:        MOV                SP,#60H
                MOV                R2,#80H                                  
                MOV                R1,#0FFH                                  
                MOV                R0,#08H
MAIN:        MOV                A,R2
                RL                A
                MOV                R2,A
                MOV                P2,A
                MOV                A,R1
                INC                A
                MOV                R1,A
                MOV                DPTR,#TAB
                MOVC        A,@A+DPTR
                MOV                P0,A
                LCALL        DELAY
                DJNZ        R0,MAIN
                AJMP        START
DELAY:        MOV         R5,#5
D2:          MOV          R6,#10
D1:          MOV         R7,#10
D3:          DJNZ        R7,D3
                  DJNZ        R6,D1
                  DJNZ        R5,D2
                RET       
TAB:        DB        92H,0A4H,0F9H,0BFH,0F9H,0B0H,0F9H,99H
                END

这两个如何结合在一起 实现类似于计算器的现实功能