ADC0809 input voltage converted into LED light display program

ADC0809 input voltage converted into LED light display program

;Convert input voltage into LED display.                      
;//////////////////////////////////////////////     

;//define the connection port of ADC 
ad_cs equ P3.6 
ad_wr equ P3.2 
ad_rd equ P3.7 
ad_input_port equ p1 

    org 0000h 
    ajmp main 
    org 0030h 
main: 
    lcall adc_demo 
    ajmp main 
                 
;//============================================ 
;// Start AD conversion 
;//============================================= 
Adc_Start: 
    clr ad_cs 
    nop 
    clr ad_wr 
    nop 
    setb ad_wr 
    nop 
    setb ad_cs 
    nop 
    ret 
;//========================================== 
;// Read AD conversion 
;//====================================== 
Adc_Read: 
     MOV ad_input_port,#0ffh 
    clr ad_cs 
    nop 
    clr ad_rd 
    nop 
    nop 
     MOV a,AD_INPUT_PORT 
    nop 
    setb ad_rd 
    nop 
    setb ad_cs 
    ret 
;// ========================================== 
;// AD conversion read delay program, display the read value 
; //============================================= 
Adc_Demo: 
    lcall Adc_Start 
    lcall delay1ms 
    lcall adc_read 

    call l1 
     MOV r1,#100 
disp1: 
    call disp 
    djnz r1,disp1 
    ret 
l1: 
     MOV b,#10 
    mul ab 
     MOV r7,b 
     MOV r6,a 
     MOV r5,#00h 
     MOV r4,#51 
    lcall chu 
     MOV a,r6 
     MOV b,#10 
    div ab 
     MOV 31h,a 
     MOV 30h,b 
    ret 
disp: 
     MOV p2,#0fdh 
     MOV dptr,#tab 
     MOV a,31h 
     MOV c a,@a+dptr 
    anl a,#7fh 
     MOV p0,a 
    call delay 
     MOV p2,#0ffh 
     MOV a,30h 
     MOV c a,@a+dptr 
     MOV p2,#0feh 
     MOV p0,a 
    call delay 
    ret 
delay: 
     MOV r6,#10 
d1: 
     MOV r7,#248 
    djnz r7,$ 
    djnz r6,d1 
    ret 

     
chu: 
     MOV a,r5 
    jnz begin 
     MOV a,r4 
    jz over 
begin: 
    clr a 
     MOV r3,a 
     MOV r2,a 
     MOV r1,#10h 
div0: 
    acall rlc4 
     MOV a,r2 
    subb a,r4 
     MOV r0,a 
     MOV  a,r3 
    subb a,r5 
    jc next 
    inc r6 
     MOV  r3,a 
     MOV  a,r0 
     MOV  r2,a 
next: 
    djnz r1,div0 
     MOV  a,r3 
    rlc a 
    jc round 
     MOV  a,r2 
    rlc a 
     MOV  r2,a 
     MOV  a,r3 
    rlc a     
    subb a,r5 
    jc done 
    jnz round 
     MOV  a,r2 
    subb a,r4 
    jc done 
round: 
    acall add1 
done: 
    clr a 
    ret 
over: 
     MOV  a,#0ffh 
    ret 
rlc4: 
    clr c 
     MOV  a,r6 
    rlc a 
     MOV  r6,a 
     MOV  a,r7 
    rlc a 
     MOV  r7,a 
     MOV  a,r2 
    rlc a 
     MOV  r2,a 
     MOV  a,r3 
    rlc a 
     MOV  r3,a 
    ret 
add1: 
     MOV  a,r6 
    add a,#1 
     MOV  r6,a 
     MOV  a,r7 
    addc a,#0 
     MOV  r7,a 
    ret 

tab:db 0c0h,0f9h,0a4h,0b0h,99h,92h,82h,0f8h,80h,90h 
delay1ms: 
     MOV     r7,#10 
tta: 
     MOV     r6,#50 
    djnz    r6,$        ;2us 
    djnz    r7,tta 
    ret 
    end