.data
_scpsav:
	.long	0
	.text
	.globl	_strcpy
_strcpy:
;	link	a6,#-.F1
	movl	a4,_scpsav	; save address register 4
	movl	sp@(4),a0
	movl	sp@(8),a4
	moveq	#-1,d0		; byte counter
.L13:
	movb	a4@+,a0@+
	dbeq	d0,.L13

	notl	d0
	movl	_scpsav,a4	; save address register 4
;	unlk	a6
	rts
.F1 = 0
| end
	.data