Trailing-Edge
-
PDP-10 Archives
-
BB-H506E-SM
-
cobol/source/traced.mac
There are 7 other files named traced.mac in the archive. Click here to see a list.
TITLE TRACED FOR LIBOL V12C
SUBTTL DUMMY TRACE LOADED BY DEFAULT IF NO COBDDT /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 C.TRCE,BTRAC.,TRPOP.,TRPD.,HSRPT.,SBPSG.,CNTRC.,SFOV.
INTERNAL PTFLG.
.COPYRIGHT ;Put standard copyright statement in REL file
C.TRCE: HRRZ 16,(17) ;GET ARG COUNT
LDB 16,[POINT 9,(16),17]
ADDM 16,(17) ;SKIP RETURN
SBPSG.:
CNTRC.:
SFOV.:
HSRPT.:
BTRAC.:
TRPOP.:
POPJ 17,
TRPD.: JRST -1(10)
ENTRY CBDDT.
CBDDT.: JRST 1(16) ;IF LOADED, COBDDT NOT PRESENT SO RETURN
; TO USER PROGRAM
PTFLG.: BLOCK 1
END