;+	NAM.PAT
;
;  S. M. LAZARUS
;  FORD AEROSPACE AND COMMUNICATIONS CORP.
;  3939 FABIAN WAY
;  PALO ALTO, CA.  94303
;  (415) 494-7400 x6290
;
;
;  REVISIONS: NONE
;
;  PATCH FILE TO FORTRAN OTS $NAM ROUTINE.
;
	.TITLE $NAM
	.IDENT/F4PDO8/
;
; LOCAL MACROS
;
	.MACRO	PUSH,LIST
	.IRP	X,<LIST>
	MOV	X,-(SP)
	.ENDR
	.ENDM
	.MACRO	POP,LIST
	.IRP	X,<LIST>
	MOV	(SP)+,X
	.ENDR
	.ENDM
;
	.PSECT $$OTSI
NAM$::
.=NAM$
.=.+12
	CALL	PATCH
	.PSECT	NAMPAT
PATCH:
	PUSH	<R3,R4>
	CALL	$COUNT		;CALL TO EXTERNAL ROUTINE
	POP	<R4,R3>
	CLR	-(R3)		;EXECUTE STATEMENT OVERLAYED BY CALL PATCH
	JSR	PC,(R4)		;EXECUTE THE OTHER OVERLAYED STATEMENT
	RETURN			;CALLER'S RETURN COMES HERE
	.END