Google
 

Trailing-Edge - PDP-10 Archives - AP-D480B-SB_1978 - forxit.mac
There are 13 other files named forxit.mac in the archive. Click here to see a list.
	TITLE FORXIT %5A(645)
	SUBTTL	D. TODD /DRT/MD/SWG     8-MAR-77

;363	 ----- 	DEFINE CEXIT. FOR NON FORTRAN USE OF LIB ROUTINES
;645	-----	TAKE DEFINITION OF EXIT. OUT FROM F40LIB SWITCH
;



;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;  OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.

;COPYRIGHT (C) 1972,1977 BY DIGITAL EQUIPMENT CORPORATION

	SEARCH	FORPRM
	ENTRY	EXIT
IFE F40LIB,<
	EXIT=EXIT.##		;REDEFINE EXIT IF F10 ONLY
>
IFN F40LIB,<
;	HELLO	(EXIT)
	SIXBIT	/EXIT/		;SIMULATE THE MACRO
EXIT:	CAIA
	PUSH	P,CEXIT.##	;[363]
	PUSHJ	P,EXIT.##	;GO TO FOROTS EXIT
	GOODBY			;MAY RETURN SOME DAY
>
	PRGEND			;[363]

	TITLE	CFRXIT		;[363]
	SUBTTL	/MD/		;[363]
	SEARCH	FORPRM		;[363]

IFN F40LIB,<			;[363]
	ENTRY	CEXIT.		;[363]

CEXIT.:	XWD	.+1		;ENTRY FOR FORLIB RETURN CALLS BY JSA'S
	HLRM	L,CEXIT1	;STORE THE ENTRY POINT
	HRLI	L,(CAIA)	;SET UP THE SKIP INS
	HRRM	L,CEXIT2	;STORE THE RETURN ADDRESS
CEXIT1:	EXCH	L,0		;RESTORE L AND THE SKIP INS
CEXIT2:	JRST	0		;RETURN TO THE CALLER
>
	PRGEND			;[363]

	TITLE	EXIDOT		;[363]
	SUBTTL	/MD/		;[363]
	SEARCH	FORPRM		;[363]
;**; [645] DELETE 1 LINE AT EXIT.-2	SWG	8-MAR-77
	ENTRY	EXIT.		;[363]
EXIT.:	EXIT			;[363] IF NO FOROTS EXIT.
;**; [645] DELETE AT EXIT.+1 END OF IFN	SWG	8-MAR-77
	END			;[363]