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