.TITLE	PNMBLD		
; JEFFREY KODOSKY	ARL	NOV75
;
; UTILITY:	LITERAL ATOM PNAME STRING BUILDER
; ENTRY:	R3 POINTS TO .ASCIZ STRING
; EXIT:		1 ARG		<LITATM>
;		R3 POINTS TO BYTE FOLLOWING ZERO BYTE
; ERRORS:	NONE
; CALLS:	STRBLD, MAKE A STRING ATOM
; R2 PRESERVED
	.GLOBL	PNMBLD,QSTRBLD
PNMBLD:	QSTRBLD		;FIRST MAKE A STRING ATOM
	MOV	@R5,R0	;THEN CONVERT IT TO A LITERAL ATOM
	ASR	2(R0)	;WITH A NULL PROPERTY LIST
	JMP	@-(R4)
	.END