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]