.title	getpnm
;+
;	subroutine getpnm(buf)
;-
ap=%5
buf=2
	.mcall	gtsk$s
	.psect	$r.roi,con,ro,rel,lcl,i
	.enabl	lsb
getpnm::
	mov	#r$tknm,r0		; source address
	mov	buf(ap),r1		; dest address
10$:
	movb	(r0)+,(r1)+		; copy string
	bne	10$			; ...
	return
	.end