ADC0809输入电压转成LED灯显示程序

ADC0809输入电压转成LED灯显示程序

;将输入电压转化成LED灯显示.                      
;///////////////////////////////////////////     

;//定义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 
                 
;//========================================== 
;// 启动AD转换 
;//========================================== 
Adc_Start: 
    clr ad_cs 
    nop 
    clr ad_wr 
    nop 
    setb    ad_wr 
    nop 
    setb    ad_cs 
    nop 
    ret 
;//========================================== 
;// 读AD转换 
;//========================================== 
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转换读取延时程序，显示读到的数值 
;//========================================== 
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