.title	strcpy
;+
;	subroutine strcpy(in, out)
;-
in=4
out=8
	.psect	st_pure_code	rel,con,lcl,exe,nowrt,rd,pic,shr,usr,novec,long
	.entry	strcpy	^m<>
	movl	in(ap),r0		; source address
	movl	out(ap),r1		; destination address
10$:
	movb	(r0)+,(r1)+		; copy character
	bneq	10$			; if not 0, do again
	ret
	.end