4✖️4键盘 外加显示屏实现拨号功能

程序思路为可以类比手机拨号盘。
一下为我的程序 但是存在问题 导致运行不出来，请大家指出（新手上路）


ORG                0000H
                AJMP        MAIN
MAIN:        LCALL        DISPLAY
                LCALL        KeyDown
                JB                P3.0,DEAL
                AJMP        MAIN
DEAL:        MOV                R4,A
                MOV                R5,#07H
                MOV                R6,#06H       
                MOV                DPH,#03H
LOOP:        MOV                DPL,R6
                CLR                A
                MOVC        A,@A+DPTR
                INC                DPTR
                MOVX        @DPTR,A
                DEC                R6
                DJNZ        R5,LOOP                               
                MOV                DPTR,#0300H
                MOV                A,R4
                MOVX        @DPTR,A
                AJMP        MAIN
                ORG                0100H
DISPLAY:MOV                SP,#60H
                MOV                R0,#80H
                MOV                R1,#0FFH
                MOV                R3,#08H
LOOP1:        MOV                A,R0
                RL                A
                MOV                R0,A
                MOV                P2,A
                MOV                A,R1
                INC                A
                MOV                R1,A
                MOV                DPTR,#0300H
                MOVC        A,@A+DPTR
                MOV                P0,A
                LCALL        DELAY
                MOV                P0,#0FFH
                DJNZ        R3,LOOP1
                RET
KeyDown:MOV                SP,#60H
                LCALL        KS
                JNZ                S1
                LCALL        D10ms
                CLR                P3.0
                AJMP        KeyDown
S1:                LCALL        D10ms
                LCALL        KS
                JNZ                S2
                CLR                P3.0
                AJMP        KeyDown
S2:                SETB        P3.0
                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
                ACALL        S4
                RET
NEXT:        INC                R4
                MOV                A,R2
                JB                ACC.7,KeyDown
                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,#250
D1:                MOV                R6,#250
                DJNZ        R6,$
                DJNZ        R7,D1
                RET       
DELAY:        MOV         R5,#10
D2:          MOV          R6,#1
D3:                MOV                R7,#20
D4:                DJNZ        R7,D4
                  DJNZ        R6,D3
                DJNZ        R5,D2
                RET       
TABLE:        DB        0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H,88H,83H,0C6H,0A1H,86H,8EH
                END