outstrg.asm

web51的开发库

;extrn	CODE(putchar)
	.global	OutStrg

	.text
OutStrg:
	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
Pstrg0:	CLR	A
	MOVC	A,@A+DPTR  	;get char
	CJNE	A,#0,Pstrg1	;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
;
Pstrg1:	LCALL	putchar
	INC	DPTR
	SJMP	Pstrg0
	;; END