PIC Microcontoller Radix Math Method

Binary to ASCII, 16 bit to 3digits (0..999)

by Nikolai Golovchenko

;Binary to decimal conversion (0..999)
;
;Input: NumH:NumL
;Output Hund:Tens:Ones
;
;If Input > 999 Output will roll over, e.g.
;for input=5678 output=678.
;
;
;Size: 34 instructions
;Execution  time  (max) including return:
;22+5*9-1+5*6-1+4*3-1+2 = 108 cycles
;
;5-July-2000 by Nikolai Golovchenko

bin2dec999
        movf NumH, w
        addlw 241
        addwf NumH, w
        movwf Hund      ;b_2 = 2a_2 - 15

        addwf Hund, w
        addwf Hund, w
        addlw 253
        movwf Tens
        swapf NumL, w
        andlw 0x0F
        addwf Tens, f
        addwf Tens, f   ;b_1 = 6a_2 + 2a_1 - 48

        addwf NumH, w
        sublw 251
        movwf Ones
        addwf Ones, f
        addwf Ones, f
        addwf Ones, f
        movf NumL, w
        andlw 0x0F
        addwf Ones, f   ;b_0 = a_0 - 4(a_2 + a_1) - 20

        movlw 10
bin2dec999a                     ;9 cycles max
        addwf Ones, f
        decf Tens, f
        skpc
         goto bin2dec999a

bin2dec999b                     ;6 cycles max
        addwf Tens, f
        decf Hund, f
        skpc
         goto bin2dec999b

bin2dec999c                     ;3 cycles max
        addwf Hund, f
        skpc
         goto bin2dec999c

        return

Comments:

• This gets you to BCD digits, but if you want to convert to ASCII for a standard LCD character table, you need to add at the end:
  

      movlw B'00110000' ; the extra MSB part makes the table work
      iorwf Hund, F
      iorwf Tens, F
      iorwf Ones, F
   
  

• This code doesn't give printable ASCII, you need to add 0x30 before returning...
  

      movlw 0x30
      addwf Hund,f
      addwf Tens,f
      addwf Ones,f
      return
  

  
  +

• I tested the code on my 16F84 and it wasn´t working... I checked it and the problem was that my default RADIX was HEX.
  So I specified the radix for all the literals in the code, then it worked.
  change from --> change to
  addlw 241 --> addlw d'241'
  addlw 253 --> addlw d'253'
  sublw 251 --> sublw d'251'
  movlw 10 --> movlw d'10'
  
  
  
  
  
  +

PICList 2024 contributors: o List host: MIT, Site host massmind.org, Top posters @none found - Page Editors: James Newton, David Cary, and YOU! * Roman Black of Black Robotics donates from sales of Linistep stepper controller kits. * Ashley Roll of Digital Nemesis donates from sales of RCL-1 RS232 to TTL converters. * Monthly Subscribers: Gregg Rew. on-going support is MOST appreciated! * Contributors: Richard Seriani, Sr.

  .