Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-03 - decus/20-0078/comp/tracei.mac
There is 1 other file named tracei.mac in the archive. Click here to see a list.
COMMENT;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

FUNCTION:	TRACEI IS USED FOR INITIALIZATION OF THE TRACE FUNCTION
		OF THE COMPILER. IT IS STARTED BY GIVING THE .REENTER
		COMMAND AFTER A .GET COMMAND. THE MODULE ASKS
		FOR WHICH PASSES SHOULD BE TRACED AND THEN BRANCHES TO
		THE SAME ENTRY AS IS ENTERED AFTER A .R SIMULA
		COMMAND. WHEN THE MODULE IS LOADED, IT SHOULD BE LOADED
		LAST IN THE FIRST PASS.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

	SALL
	SEARCH	SIMMAC
	CTITLE	TRACEI (TRACE INITIALIZATION)
	MACINIT

	QPASSN=:1

	EXTERN	YTRPAS,YTRSIM,SIMULA

	TWOSEG
	LOC	124
	TRACEI
	RELOC	400K



TRACEI:
	OUTSTR	[ASCIZ/
TRACE PASS:/]
	SETOM	YTRPAS
	WHILE	INCHWL	1
		CAIL	1,"1"
		CAILE	1,"3"
		GOTO	FALSE
	DO	SETOM	YTRPAS-60(1)
	OD
	LI	1,YTRSIM+37000
	CORE	1,
	HALT	.
DONE:
	CLRBFI
	BRANCH	SIMULA

	LIT
	END