.TITLE	PUT - PUT A CHARACTER
	.IDENT	/31MAY7/	;09:15:00, EM
;	.ENTRY	PUT - PUT A CHARACTER
;+
; P U T
; PURPOSE:	PUT WILL TAKE A STRING ADDRESS AND
;		AN ELEMENT NUMBER AND PLACE A SPECIFIED
;		CHARACTER IN THE RESULTING POSITION.
;		MACRO PROGRAMMERS: BE CAREFUL WITH THE
;		ELEMENT NUMBER!
;
; INTERFACE:	CALLING SEQUENCE: (FORTRAN-CALLABLE SUBROUTINE)
;			CALL PUT (ELEMNT,STRING,CHAR)
;
;		INPUT:	ELEMNT(INTEGER) = THE POSITION WITHIN
;				 STRING. IN OTHER WORDS, THE
;				 VALUE OF CHAR WILL BE PLACED AT
;				 STRING(ELEMNT). NOTE THAT THE
;				 FIRST BYTE OF STRING IS ACCESSED
;				 WHEN ELEMNT=1, NOT ELEMNT=0.
;			STRING = ADDRESS OF CHARACTER STRING
;			CHAR(INTEGER)  =  CHARACTER TO BE PUT. ONLY THE
;				 1ST BYTE OF THIS VALUE WILL BE MOVED.
;
; LANGUAGE:	MACRO-11
;-
; REVISIONS:
;    JAN-75	RK	WRITTEN
; 31-MAY-77	EM	UPDATED TO CONFORM TO STANDARDS.
;
PUT::	MOV	R0,-(SP)
	MOV	@2(R5),R0	;OFFSET
	ADD	4(R5),R0	;ADDRESS
	MOVB	@6(R5),-(R0)	;PUT CHARACTER
	MOV	(SP)+,R0
	RETURN
	.END