i am using AT89C51 microcontroller in my srcurity system project. i need to dial number. But my output port doesn't give any response(i.e no result)when i gave a input. My input is correct. i am using port1 as input and port2 as output.please help me. Below is my code
cnt1 equ 21h
cnt2 equ 22h
cnt3 equ 23h
num equ 31h

org 0000
ajmp main

main:

mov p1,#255
mov p2,#0
mov num,#0Ah
mov num+1,#44h
mov num+2,#42h
mov num+3,#41h
mov num+4,#24h
mov num+5,#22h
mov num+6,#21h
mov num+7,#14h
mov num+8,#12h
mov num+9,#11h
mov num+10,#09h ;for hash :
mov num+11,#0Ch ; astrik ;

start: mov cnt1,#04h
mov cnt2,#05h
mov cnt3,#03h

jnb p1.0,dial1
jnb p1.1,dial2
jnb p1.2,dial3
jnb p1.3,dial4
sjmp start

dial1:
acall dial

mov DPTR,#c1
clr a
movc a,@a+DPTR
clr c
subb a,#30h
mov b,#num
add a,b
mov r0,a
mov a,@r0
mov p2,a
inc DPTR
clr a
movc a,@a+DPTR
clr c
subb a,#30h
mov B,#num
add a,b
mov r0,a
mov a,@r0

mov p2,a
ajmp start

dial2:
acall dial

mov DPTR,#c2
clr a
movc a,@a+DPTR
clr c
subb a,#30h
mov b,#num
add a,b
mov r0,a
mov a,@r0
mov p2,a
inc DPTR
clr a
movc a,@a+DPTR
clr c
subb a,#30h
mov B,#num
add a,b
mov r0,a
mov a,@r0
mov p2,a
ajmp start

dial3:
acall dial

mov DPTR,#c3
clr a
movc a,@a+DPTR
clr c
subb a,#30h
mov b,#num
add a,b
mov r0,a
mov a,@r0
mov p2,a
inc DPTR
clr a
movc a,@a+DPTR
clr c
subb a,#30h
mov b,#num
add a,b
mov r0,a
mov a,@r0
mov p2,a
ajmp start

dial4:
acall dial

mov DPTR,#c4
clr a
movc a,@a+DPTR
clr c
subb a,#30h
mov b,#num
add a,b
mov r0,a
mov a,@r0
mov p2,a
inc DPTR
clr a
movc a,@a+DPTR
clr c
subb a,#30h
mov b,#num
add a,b
mov r0,a
mov a,@r0
mov p2,a
ajmp start

dial:
mov DPTR,#ph
loop1: clr a
movc a,@a+DPTR
clr c
subb a,#30h
mov b,#num
add a,b
mov r0,a
mov a,@r0
mov p2,a
acall delay
mov p2,#0
acall delay
inc DPTR
djnz cnt1,loop1

;acall del10s

mov DPTR,#pg

loop2: clr a
movc a,@a+DPTR
clr c
subb a,#30h
mov b,#num
add a,b
mov r0,a
mov a,@r0
mov p2,a
acall delay
mov p2,#0
acall delay
inc DPTR
djnz cnt2,loop2

mov DPTR,#ast

loop3: clr a
movc a,@a+DPTR
clr c
subb a,#30h
mov b,#num
add a,b
mov r0,a
mov a,@r0
mov p2,a
acall delay
mov p2,#0
acall delay
inc DPTR

djnz cnt3,loop3
ret

delay:
MOV R2, #53h
top2: MOV R3, #255
top1: NOP
NOP
DJNZ R3, top1
DJNZ R2, top2
ret


;lookup table

ph: db '9671'
pg: db '35000'
ast: db ';'
c1: db '51'
c2: db '52'
c3: db '53'
c4: db '54'
hash: db ':'

ret
end