	.text
	.globl	_lprcat
_lprcat:
	movl	sp@(4),a0	; the string pointer is in a0
	movl	a4,sp@-		; a4 is str2
	movl	_lpnt,d0
	cmpl	_lpend,d0
	jcs	.L37
	jsr	_lflush
.L37:
	movl	_lpnt,a4
.L39:
	movb	a0@+,a4@+
	dbeq	d0,.L39		; d0 already has an address in it so its BIG
	lea	a0@(0xffffffff),a0
	movl	a4,_lpnt
	movl	sp@+,a4
	rts
| end
	.data
