Google
 

Trailing-Edge - PDP-10 Archives - BB-H506D-SM_1983 - 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		
SUBTTL	DUMMY TRACE LOADED BY DEFAULT IF NO COBDDT	/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, 1981 BY DIGITAL EQUIPMENT CORPORATION


ENTRY C.TRCE,BTRAC.,TRPOP.,TRPD.,HSRPT.,SBPSG.,CNTRC.,SFOV.
INTERNAL PTFLG.

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