sendstr.asm

web51的开发库

	.global	send_string

send_string:
	PUSH	ACC
	MOV	A,R0
	PUSH	ACC
	MOV	R0,SP
	PUSH	DPL
	PUSH	DPH
	DEC	R0
	DEC	R0
	MOV	DPH,@R0         ;get string address
	DEC	R0		;from stack
	MOV	DPL,@R0
Sstrg0:	CLR	A
	MOVC	A,@A+DPTR  	;get char
	CJNE	A,#0,Sstrg1	;print it
	INC	DPTR		;end of string
	MOV	@R0,DPL		;change return address on stack
	INC	R0
	MOV	@R0,DPH
	POP	DPH		;restore DPH
	POP	DPL		;restore DPL
	POP	ACC
	MOV	R0,A
	POP	ACC
	RET
;
	.using	0
Sstrg1:	PUSH    DPL
	PUSH    DPH
	PUSH	AR0
	LCALL	sendchar
	POP	AR0
	POP	DPH
	POP	DPL
	INC	DPTR
	SJMP	Sstrg0
;
	;; END