txrx.a51

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

$NOMOD51
$include (reg1210.inc)
;PUBLIC	_tx_byte, rx_byte, 
PUBLIC	rx_byte_echo, putspace1,putspace2,putspace3,putspace4
EXTRN code (_tx_byte, rx_byte)
TxRx  	SEGMENT  CODE
	RSEG  TxRx
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Receive R7 with echo
rx_byte_echo:
	call	rx_byte
	jb	f1,tx_byte1 ;F1=0: no echo
	call  _tx_byte
tx_byte1:
	ret
putspace4:
	acall	putspace1
putspace3:
	acall	putspace1
putspace2:
	acall	putspace1
putspace1:
	mov	r7,#' '
	call _tx_byte
	ret
	end