.title	scopy
;
;	this routine implements the following interface
;
;	call scopy(in, i, out, j)
;
;	where in is an EOS-terminated string
;
in=4
i=8
out=12
j=16
	.psect	st_pure_code	rel,con,lcl,exe,nowrt,rd,pic,shr,usr,novec,long
	.entry	scopy	^m<>
	addl3	in(ap),@i(ap),r0
	decl	r0			; address of in(i)
	addl3	out(ap),@j(ap),r1
	decl	r1			; address of out(j)
10$:
	movb	(r0)+,(r1)+		; copy character
	bneq	10$			; go again
	ret
	.end