.TITLE	MACF4P
	.IDENT	/V1.1/

; MACRO<->FORTRAN-4+ INTERFACE SUBROUTINE UTILITIES
;+
; -- MF$$LK --
;LINK MACRO SUBROUTINE TO F4P TRACEBACK CHAIN (NOT FORTRAN V2.0)
;
;USE:	CALL	MF$$LK
;	.RAD50	/SUBNAM/
;
;-
MF$$LK::
	POP	R2		;POP RETURN ADDRESS
	MOV	(R2)+,R4	;GET 1ST HALF OF NAME
	PUSH	(R2)+		;PUSH 2ND HALF OF NAME
	JSR	R4,NAM$		;LINK IT IN (ISN'T F4P EASY?!)
	JMP	(R2)		;ENTER SUBROUTINE NOW


;+
; -- MF$$NX --
;INCREMENT F4P LINE NUMBER
;USAGE:
;	CALL MF$$NX
;
;-
MF$$NX::
	DEC	@$SEQC
	RETURN
	.END