Trailing-Edge - PDP-10 Archives - tops10and20_integ_tools_v9_3-aug-86 - tools/crc/browse/crhalt.mac
There are no other files named crhalt.mac in the archive.
	title crhalt - exit for fortran quietly
;	This subroutine, when called from a fortran program, will
;	exit from fortran without printing any messages, but will
;	do all the usual fortran cleanup stuff. It uses a special FOROP%
;	call to accomplish this.
;					Kevin Ashley 6 Jul 82
	search	vtmac
	entry	crhalt			;our name
	external	forop.,exit.	;FOROTS entry points

crhalt:	movei	0,12			;argument for forop - quiet exit
	setz	t1,			;arg val - none
	call	forop.			;go to forots
	call	exit.			;and close out
	ret				;return in case of continue