asm ile 8051 SAYICI

mov tmod, #01h
beg: mov r0, #0
     mov B, R0
Go:  call lookup
     mov p1, A
call delay
cjne A, B, go
jmp beg
lookup:      
                     
                        mov dptr,#tablo
MOV A, R0
MOVC A, @a+dptr
inc r0
rET
  tablo:  DB 3fh, 06h, 5bh, 4fh, 66h, 6dh, 7dh, 07h, 7fh, 6fh,7fh, 07h, 7dh, 6dh,66h,4fh,5bh,06h, 3fh

delay: mov R1, #20
turn: mov tl0, #LOW(-50000)
 mov th0, #HIGH(-50000)
 setb tr0
 jnb tf0, $
 clr tr0
 clr tf0
 djnz r1, turn
 ret
 end