;*******************************************************************************
;Scott Dattalo (PicList): This works well for 0x00 - 0xFF. Since
;Char_hi is transmitted first, modified to finish with Char_hi in w.
;Modified version is 13 cycles, 6.5 uS, Char_hi is in w, Char
;is preserved,enter with binary in w.
;*******************************************************************************
BIN2ASCII
movwf Char
andlw 0x0f
addlw 6
btfsc STATUS,1 ;skpndc
addlw 0x07 ;'A'-('9'+1)
addlw 0x2A ;'0'-6
movwf Char_lo
swapf Char,w
andlw 0x0f
addlw 6
btfsc STATUS,1 ;skpndc
addlw 0x07 ;'A'-('9'+1)
addlw 0x2A ;'0'-6
; movwf Char_hi ;added so I don't worry about w on call/return
; retlw 0
return