Mercurial > hg > Members > kono > nitros9-code

view lib/alib/bin2hex.as @ 3054:22ddd48b4ec2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
level1 krn: Fix scheduler bug that only affected 6309 The original 6809 binary was correct, but it was disassembled and interpreted wrongly, so that reassembly went wrong on 6309.
author Tormod Volden <debian.tormod@gmail.com>
date Sun, 25 Jan 2015 22:36:02 +0100
parents 03f26e88b809
children
line wrap: on
line source

****************************************

* Convert hex byte to 2 hex digits

* OTHER MODULES REQUIRED: none

* ENTRY: B= value to convert

* EXIT: D=2 byte hex digits


 nam Convert Byte to Hex
 ttl Assembler Library Module

 section .text

BIN2HEX:
 pshs b
 lsrb get msn
 lsrb
 lsrb
 lsrb fall through to convert msn and return
 bsr ToHex
 tfr b,a 1st digit in A
 puls b get lsn
 andb #%00001111 keep msn

ToHex
 addb #'0 convert to ascii
 cmpb #'9
 bls ToHex1
 addb #7 convert plus 9 to A..F
ToHex1
 rts

 endsect