Google
 

Trailing-Edge - PDP-10 Archives - ap-c800d-sb - kprog.mac
There are 5 other files named kprog.mac in the archive. Click here to see a list.
TITLE	KPROG FOR LIBOL V12
SUBTTL	ROUTINES TO HANDLE FALLING OFF THE EDGE OF THE WORLD	AL BLACKINGTON/CAM



;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;  OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;
;COPYRIGHT (C) 1974, 1979 BY DIGITAL EQUIPMENT CORPORATION


	HISEG

ENTRY	KPROG.	;NO UNCONDITIONAL TRANSFER AT END OF PROGRAM
ENTRY	KDECL.	;NO UNCONDITIONAL TRANSFER AFTER DECLARATIVES
ENTRY	ILLC.	;RECURSIVE CALL

KPROG.:	TTCALL	3,[ASCIZ "ATTEMPT TO DROP OFF END OF PROGRAM"]
	JRST	KILL.

KDECL.:	TTCALL	3,[ASCIZ "ATTEMPT TO DROP OFF END OF DECLARATIVES"]
	JRST	KILL.

ILLC.:	TTCALL	3,[ASCIZ "?RECURSIVE CALL"]
	JRST	KILL.##

	END