.TITLE	MACFOR
	.IDENT	/V1.1/

; MACRO-FORTRAN INTERFACE SUBROUTINE UTILITIES
;+
;LINK MACRO SUBROUTINE TO FORTRAN V2.2 TRACEBACK CHAIN  (NOT F4P)
;
;USE:	CALL	MF$$LK
;	.RAD50	/SUBNAM/
;
;-
MF$$LK::
	MOV	@#$OTSV,R4	;GET ADDRESS OF WORK BLOCK
	MOV	(SP)+,R3	;GET CALLER ADDRESS
	MOVB	202(R4),-(SP)	;PUSH FORTRAN LINK STUFF
	MOV	2(R4),-(SP)	; OLD ERROR SP
	MOV	(R4),-(SP)	; OLD LINE NUMBER
	MOV	(R3)+,-(SP)	;NEW NAME
	MOV	(R3)+,-(SP)	;IN 2 WORDS OF RAD50
	CLR	(R4)		;CLEAR LINE CTR
	MOV	SP,2(R4)	; SET NEW ERROR SP
	CALL	(R3)		;CALL CALLER
	ADD	#4,SP		; SUBR DONE...POP NAME
	MOV	@#$OTSV,R4	;GET WORK BLOCK ADDRESS
	MOV	(SP)+,(R4)	;RESTORE OLD SHIT
	MOV	(SP)+,2(R4)
	MOVB	(SP)+,202(R4)
	RETURN			;ALL DONE


;+
; -- MF$$NX --
;INCREMENT FORTRAN-IV V2.2 LINE NUMBER
;USAGE:
;	CALL MF$$NX
;
;-
MF$$NX::
	INC	@$OTSV
	RETURN
	.END