.title	ptrcpy
;+
;	subroutine ptrcpy(in, out)
;-
ap=%5
in=2
out=4
	.psect	$r.roi,con,ro,rel,lcl,i
	.enabl	lsb
ptrcpy::
	mov	in(ap),r0		; address of in linepointer
	mov	out(ap),r1		; address of out linepointer
	mov	(r0)+,(r1)+		; copy first word
	beq	10$			; if == 0, NULLPOINTER
	mov	(r0),(r1)		; copy second word
10$:
	return
	.end