Google
 

Trailing-Edge - PDP-10 Archives - BB-H506E-SM - cobol/source/kprog.mac
There are 5 other files named kprog.mac in the archive. Click here to see a list.
; UPD ID= 2133 on 11/14/79 at 2:42 PM by NIXON                          
TITLE	KPROG FOR LIBOL V12C
SUBTTL	ROUTINES TO HANDLE FALLING OFF THE EDGE OF THE WORLD	AL BLACKINGTON/CAM

	SEARCH	COPYRT
	SALL

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

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

	.COPYRIGHT		;Put standard copyright statement in REL file

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"]

KILL.:	EXIT

	END