$mod51
        org     2000h
start:
        clr     p3.5		;for FND common point
      
        mov     dptr,#lookup	
x1a: clr     a			
        movc    a,@a+dptr	
        		
       x2a: mov     p1,a		
        call    delay500ms
        call    delay500ms
          		
        inc dptr
        jmp     x1a

;-----------------------------------

delay500ms:
        call    delay100ms
        call    delay100ms
        call    delay100ms
        call    delay100ms
        call    delay100ms
        ret

delay100ms:
        mov     r7,#100
x4:     call    delay1ms
        djnz    r7,x4
        ret
delay1s:
        mov     r6,#10
x5:     call    delay100ms
        djnz    r6,x5
        ret
delay1ms:
        mov     r2,#10
x3:     mov     r1,#49 
x2:     djnz    r1,x2
        djnz    r2,x3
        ret
;----------------------------------------------------------------
;COMMON ANODE TYPE LOOKUP TABLE
              lookup:		;org	2500h 
              db    		"A" "B" "C"
              end