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