txhex.a51

来自「msc1201 编程4」· A51 代码 · 共 44 行

$NOMOD51
$include (reg1210.inc)
PUBLIC	_tx_hex, _tx_nib, _bin2ascii
EXTRN code (_tx_byte, rx_byte)

TxHex  SEGMENT  CODE
	RSEG  TxHex
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;Convert R7 lower nibble from bin to ascii
;Used a stack and Cy
_bin2ascii:
	anl	reg7,#0fh
	mov	a,r7
	clr	c
	subb	a,#10
	jbc	cy,b2a_under10
	mov	a,#55	; 'A'-10
	add	a,r7
	mov	r7,a
	ret
b2a_under10:
	orl	reg7,#30h
	ret
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Send R7 in ASCII
; Corrupt R7
_tx_nib:
	acall	_bin2ascii
	call	_tx_byte
	ret
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Send R7 in Hex
; Used acc, and a stack
_tx_hex:
	push	reg7
	mov	a,r7
	swap	a
	mov	r7,a
	acall	_tx_nib
	pop	reg7
	acall	_tx_nib
	ret
	end