.title	ptreq
;+
;	integer function ptreq(ptr1, ptr2)
;-
ap=%5
ptr1=2
ptr2=4
	.psect	$r.roi,con,ro,rel,lcl,i
	.enabl	lsb
ptreq::
	mov	ptr1(ap),r1		; address of linepointer
	mov	ptr2(ap),r2		; ...
	mov	#no,r0			; assume unequal
	cmp	(r1),(r2)+		; first word equal?
	bne	20$			; NO
	tst	(r1)+			; NULLPOINTER?
	beq	10$			; YES
	cmp	(r1),(r2)		; second word equal?
	bne	20$			; NO
10$:
	mov	#yes,r0			; return YES
20$:
	return
	.end