EK-6 - 320Volt

358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397incf p_countl,f ;L counter + 1goto digit_h1 ;Next;*** 10th digitdigit_t;*** Range over checkmovfw disp_h ;Read 100th digitsublw d'9' ;9 - (100th digit)btfsc status,z ;Result = 0 ?goto digit_t0 ;Yes. "R = 0"btfsc status,c ;Result < 0 ?goto digit_t0 ;No. "R > 0"movlw h'0a' ;"Detect error" datamovwf disp_u ;Set 1st digitmovwf disp_t ;Set 10th digitmovwf disp_h ;Set 100th digitgoto int_enddigit_t0movlw d'10' ;Divide valuesubwf p_countl,f ;Digit - dividebtfsc status,z ;Result = 0 ?goto digit_t1 ;Yes. "R = 0"btfsc status,c ;Result < 0 ?goto digit_t1 ;No. "R > 0"goto digit_t2 ;Yes."R < 0"digit_t1 ;( R >= 0 )incf disp_t,f ;Increment 10th countgoto digit_t ;Jump nextdigit_t2 ;( R < 0 )movlw d'10' ;Divide valueaddwf p_countl,f ;Return over sub valuegoto digit_u ;Jump to 1st digit pro;*** 1st digitdigit_umovfw p_countl ;Read propagetion counter74