Google
 

Trailing-Edge - PDP-10 Archives - CFS_TSU04_19910205_1of1 - update/cblsrc/traced.mac
There are 7 other files named traced.mac in the archive. Click here to see a list.
TITLE	TRACED FOR COBLIB		
SUBTTL	DUMMY TRACE LOADED BY DEFAULT IF NO COBDDT	/CAM

	SEARCH COPYRT
	SALL

;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, 1983, 1984 BY DIGITAL EQUIPMENT CORPORATION


	.COPYRIGHT		;Put standard copyright statement in REL file

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