;                ;>>>*10>>>RLTH,RLT SOUH,SOU,再乘以0A,出口在RLTH,RLT,SOUH,SOU
 movlw 0x04
 movwf RLTH
 movlw 0x00
 movwf RLT
 call DUDIV                       ;再除以0X0400,除完这一次后就不要再除了,因为是保留小数点后两位
 movf SOU,w
 movwf disbuf+2                   ;取电压值,这里是小数点后两位值 
 call Led_scan
 call delay_same1
 goto ATOD                        ;循环转换
 

;*********************led scan*************************
;LED扫描程序,对应于ICD,下面程序可以优化,请自已进行优化
Led_scan:
 movlw ledtable                   ;取得表头地址
 movwf ledtemp                   
 movf disbuf+2,w                  ;取得偏移量
 addwf ledtemp,w                  ;表头地址加上偏移量做为跳转地址
 call ledconvert                  ;查表
 movwf PORTC                      ;送数码管显示
 movlw B'11101111'
 movwf PORTA                      ;点亮相应的数码管
 call delay_same                  ;延时一段时间，保证显示足够亮度
 movlw 0ffh
 movwf PORTC                      ;清除显示，防止干扰其他位显示
 
 movlw ledtable  
 movwf ledtemp   
 movf disbuf+1,w 
 addwf ledtemp,w 
 call ledconvert 
 movwf PORTC     
 movlw B'11011111'
 movwf PORTA     
 call delay_same 
 movlw 0ffh      
 movwf PORTC     
 
 movlw ledtable
 movwf ledtemp
 movf disbuf,w
 addwf ledtemp,w
 call ledconvert
 andlw b'01111111'               ;加上小数点
 movwf PORTC
 movlw B'11111011'
 movwf PORTA
 call delay_same
 movlw 0ffh
 movwf PORTC

 movlw 0ffh                     ;关闭所有显示
 movwf PORTA
 return
;*******end for led send***************************************
;;----------------数码管查表程序-------------------------------
ledconvert
 movwf 2
ledtable
 RETLW 0c0h                     ;0
 RETLW 0f9h                     ;1
 RETLW 0a4h                     ;2
 RETLW 0b0h    &n