EK-6 - 320Volt

318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357;**************** Digit Set Process ********************digit_setclrf disp_u ;Clear 1st digitclrf disp_t ;Clear 10th digitclrf disp_h ;Clear 100th digit;*** 100th digitdigit_hmovlw d'100' ;Divide valuesubwf p_countl,f ;Digit - dividebtfsc status,z ;Result = 0 ?goto digit_h2 ;Yes. "R = 0"btfsc status,c ;Result < 0 ?goto digit_h1 ;No. "R > 0"goto digit_h3 ;Yes."R < 0"digit_h1 ;( R > 0 )incf disp_h,f ;Increment 100th countgoto digit_h ;Jump nextdigit_h2 ;( R = 0 )movfw p_counth ;Read H counterbtfss status,z ;H counter = 0 ?goto digit_h1 ;No. Nextincf disp_h,f ;Increment 100th countgoto digit_t ;Jump to 10th digit prodigit_h3 ;( R < 0 )movfw p_counth ;Read H counterbtfss status,z ;H counter = 0 ?goto digit_h4 ;No. Borrow processmovlw d'100' ;Divide valueaddwf p_countl,f ;Return over sub valuegoto digit_t ;Jump to 10th digit prodigit_h4decf p_counth,f ;H counter - 1movlw d'255' ;Borrow valueaddwf p_countl,f ;L counter + 25573