.TITLE	$NAM
	.IDENT	/F77007/
;
; NAM$	Fortran traceback module.
;
; Call by:	MOV	#^R<name 4-6>,-(SP)
;		MOV	#^R<name 1-3>,R4
;		JSR	R4,NAM$
;
	.PSECT	$$OTSI

NAM$::	MOV	@#$OTSV,R3	;Get Fortran OTS area
	MOV	(R3)+,-(SP)	;Store current sequence #
	MOV	(R3),-(SP)	;Store traceback backpointer
	MOV	SP,(R3)		;Store address of traceback
	CLR	-(R3)		;Zero current sequence #
	CALL	(R4)		;Call back Fortran subroutine

	MOV	@#$OTSV,R4	;Get Fortran OTS area
	MOV	(SP)+,2(R4)	;Recover previous module
	MOV	(SP)+,(R4)	;Recover sequence #
	CMP	(SP)+,(SP)+	;Clean off module name
	RETURN			;Return to caller

	.END