.TITLE	FETCH - FETCH A CHARACTER
	.IDENT	/10MAY7/	;10:15:00, LV
;	.ENTRY	FETCH - FETCH A CHARACTER
;+
; F E T C H
;
; PURPOSE:	FETCH WILL TAKE A STRING ADDRESS AND AN
;		ELEMENT NUMBER AND FETCH THE CHARACTER
;		IN THAT POSITION.
;		NOTE:  MACRO PROGRAMMERS: BE CAREFUL WITH THE
;		ELEMENT NUMBER!
;
; INTERFACE:	CALLING SEQUENCE: (FORTRAN-CALLABLE SUBROUTINE)
;			CALL FETCH (ELEMNT,STRING,CHAR)
;
;		INPUT:	ELEMNT(INTEGER) =THE POSITION WITHIN STRING.
;				THE CHARACTER WILL BE FETCHED FROM
;				STRING(ELEMNT).  THE FIRST CHARACTER
;				WILL BE FETCHED WHEN ELEMNT=1, NOT
;				ELEMNT=0.
;			STRING =ADDRESS OF STRING.
;
;		OUTPUT:	CHAR   =ADDRESS TO PLACE CHARACTER
;				(1BYTE)
;
; LANGUAGE:	MACRO-11
;-
; REVISIONS:
;    JAN-75	RSK	WRITTEN
; 09-JUL-75	RSK	FIXED BUG IN RETURNING CHARACTER.
; 02-SEP-76	SS	ELIMINATE NEED FOR SPECIAL PUSH,POP MACROS.
;
FETCH::	MOV	R0,-(SP)
	MOV	@2(R5),R0	;OFFSET
	ADD	4(R5),R0	;ADDRESS
	MOVB	-(R0),@6(R5)	;FETCH CHARACTER
	MOV	(SP)+,R0
	RETURN
	.END