.title	chcopy
;
;	this routine implements the following interface
;
;	call chcopy(c, out, j)
;
;	after the copy, j is incremented and out is EOS-terminated
;
c=4
out=8
j=12
	.psect	st_pure_code	rel,con,lcl,exe,nowrt,rd,pic,shr,usr,novec,long
	.entry	chcopy	^m<>
	addl3	out(ap),@j(ap),r0		; address of out(j)
	decl	r0				;
	movb	@c(ap),(r0)+			; copy character
	clrb	(r0)				; write EOS into out(j+1)
	incl	@j(ap)				; increment j
	ret
	.end