sertest.a51

用于51系列单片机的串口程序源码

$nomod51
$symbols
$debug
$nolist
$include(\i\rg51fb.pdf)
$list
;***********************************************
;
;
;
;***********************************************
;
$include(charname.a51)
;
EXTRN	CODE	(S_init,C_IN,C_OUT,STROUT)
;
;data_seg	segment	data
code_seg	segment	code
?stack		segment idata
;
rseg	?stack	; This will allow RL51 to automatically place the stack
stack:	ds	1
;
;
cseg at reset
	ljmp	start
;reserve interrupt vectors
;
cseg at exti0
;
cseg at timer0
;
cseg at exti1
;
cseg at timer1
;
rseg	code_seg
;
;
Start:	mov	sp,#stack
	call	s_init
	nop
	CALL	STROUT
        DB      CRet,'This is a test of the 8051 Serial port.'
	db	CRet,(LF OR 80H)
ECHO:
	call	C_IN
	call	C_OUT
	jmp	ECHO
;
	end