home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Assembler / dse-src6.dms / in.adf / BOUNCHSRCS.LZH / BIN-DEC.S < prev    next >
Encoding:
Text File  |  1987-05-18  |  368 b   |  28 lines
  1. *
  2. * Convert Binary to Decimal
  3. * By The Cracker of Triangle
  4. * Binary Value in D0 (Word)
  5. * Result in B_OUTPUT
  6. *
  7. b_bindec:
  8. lea b_output,a0
  9. move.b #$20,d1
  10. tst.w d0
  11. bpl b_notneg
  12. move.b #$2d,d1
  13. neg.w d0
  14. b_notneg:
  15. move.b d1,(a0)+
  16. addi.l #5,a0
  17. move.w #4,d1
  18. b_loop:
  19. ext.l d0
  20. divs #10,d0
  21. swap d0
  22. move.b d0,-(a0)
  23. add.b #$30,(a0)
  24. swap d0
  25. dbra d1,b_loop
  26. rts
  27. b_output: dc '      '
  28.