please dont rip this site

SX Microcontroller Radix Math Method

Binary to BCD packed and ASCII, 32 bit to 10 digits

from Ron Kreymborg and Mike Keitz

[ed: rough guess is that about 2200 instructions will be executed]

See also:

;******************************************************************
;
; Test program for 32-bit unsigned binary to BCD and BCD to ASCII.
;
;******************************************************************
        DEVICE SX28
        RESET Start

loadd   macro hi, m0, m1, lo
        mov     W, #hi
        mov     bin, W
        mov     W, #m0
        mov     bin+1, W
        mov     W, #m1
        mov     bin+2, W
        mov     W, #lo
        mov     bin+3, W
        endm

        ORG     $8
temp    DS      1
bin     DS      4       ; 32-bit binary number (unsigned)
bcd     DS      10      ; 10 BCD digits (5 bytes) or 10 ascii chars
pti     DS      1       ; pointer
pto     DS      1       ; pointer
cnt     DS      1       ; counter
ii      DS      1       ; counter

        ORG     $0
Start
        loadd $01, $00, $00, $00   ; load test value 16777216
        call    b2bcd   ; convert to 32-bit binary to 10 bcd
        call    bcd2a   ; convert 10 bcd to 10 ascii
        jmp     $

;******************************************************************
; Convert the 10 binary coded digits (5 bytes) starting at
;  into an ascii string also starting at . Original
; bcd digits are lost.

bcd2a   mov     W, #bcd+9
        mov     pto, W  ; destination pointer
        mov     W, #bcd+4
        mov     pti, W  ; source pointer
        mov     W, #5   ; 5 bytes to process
        mov     cnt, W

bcd2a1  mov     W, pti  ; get current input pointer
        mov     fsr, W
        dec     pti     ; prepare for next
        mov     W, indf ; get 2 bcds
        mov     temp, W ; save for later
        mov     W, pto  ; get current output pointer
        mov     fsr, W
        dec     pto     ; prepare for next
        dec     pto
        mov     W, temp ; get digits back
        and     W, #$0f ; process lsd
        or      W, #$30 ; add '0' offset
        mov     indf, W ; to output
        dec     fsr
        mov     W, <>temp   ; process msd
        and     W, #$0f
        or      W, #$30 ; add '0' offset
        mov     indf, W ; to output
        decsz   cnt     ; all digits?
        jmp     bcd2a1
        ret     ; yes


;******************************************************************
; Convert 32-bit binary number at  into a bcd number
; at . Uses Mike Keitz's procedure for handling bcd
; adjust; Modified Microchip AN526 for 32-bits.

b2bcd   mov     W, #32  ; 32-bits
        mov     ii, W   ; make cycle counter
        clr     bcd     ; clear result area
        clr     bcd+1
        clr     bcd+2
        clr     bcd+3
        clr     bcd+4

b2bcd2  mov     W, #bcd ; make pointer
        mov     fsr, W
        mov     W, #5
        mov     cnt, W

; Mike's routine:

b2bcd3  mov     W, #$33
        add     indf, W ; add to both nybbles
        snb     indf.3  ; test if low result > 7
        and     W, #$f0 ; low result >7 so take the 3 out
        snb     indf.7  ; test if high result > 7
        and     W, #$0f ; high result > 7 so ok
        sub     indf, W ; any results <= 7, subtract back
        inc     fsr     ; point to next
        decsz   cnt
        jmp     b2bcd3

        rl      bin+3   ; get another bit
        rl      bin+2
        rl      bin+1
        rl      bin+0
        rl      bcd+4   ; put it into bcd
        rl      bcd+3
        rl      bcd+2
        rl      bcd+1
        rl      bcd+0
        decsz   ii      ; all done?
        jmp     b2bcd2  ; no, loop
        ret     ; yes

        end



file: /Techref/scenix/lib/math/radix/b2bp-32b10d_sx.htm, 4KB, , updated: 2004/6/10 13:40, local time: 2019/12/9 10:42,
TOP NEW HELP FIND: 
100.26.176.182:LOG IN

 ©2019 These pages are served without commercial sponsorship. (No popup ads, etc...).Bandwidth abuse increases hosting cost forcing sponsorship or shutdown. This server aggressively defends against automated copying for any reason including offline viewing, duplication, etc... Please respect this requirement and DO NOT RIP THIS SITE. Questions?
Please DO link to this page! Digg it! / MAKE! / 

<A HREF="http://www.sxlist.com/techref/scenix/lib/math/radix/b2bp-32b10d_sx.htm"> SX Microcontroller Radix Math Method Binary to BCD packed and ASCII, 32 bit to 10 digits</A>

After you find an appropriate page, you are invited to your to this massmind site! (posts will be visible only to you before review) Just type in the box and press the Post button. (HTML welcomed, but not the <A tag: Instead, use the link box to link to another page. A tutorial is available Members can login to post directly, become page editors, and be credited for their posts.


Link? Put it here: 
if you want a response, please enter your email address: 
Attn spammers: All posts are reviewed before being made visible to anyone other than the poster.
Did you find what you needed?

 

Welcome to sxlist.com!


Site supported by
sales, advertizing,
& kind contributors
just like you!

Please don't rip/copy
(here's why

Copies of the site on CD
are available at minimal cost.
 

Welcome to www.sxlist.com!

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

  .