% VAX-11 Librarian V03-00qGw% ""  T  ENABLE_TRACE SETUP_TRACE  START_TRACE!TRACE TRACEA!XTRACELTRACEPTRACEW TRACEX 8&w%'.Macro TRACEA VALUE,BPT,NAME=,FLAG=,?L1.If defined trace_on.if not_defined dpt$Q_linktime $DPTDEF.Endc..If blank flag$ blbc driver_start+dpt$Q_linktime,L1 .If_falsen) bbc #flag,driver_start+dpt$Q_linktime,L1R.EndcC SETUP_TRACE BPT,NAMEV.show EXPANSIONS $$$trace=^A/VALUE/1.noshow EXPANSIONS PUSHL #^A/VALUE/A BSBW LONG_TRACERL1:V.Endc1.Endm ww0 BGTR 10$L MOVAL L1+4,R010$: MNEGL #1,(R0) MOVL R0,L10 ENBINTV MOVQ (SP)+,R020$: MOVL (S v%.Macro START_TRACE NAM.if defined TRACE_ON.if not_defined dpt$Q_linktime $DPTDEF.EndcE MOVAL nam'_ttab+4,nam'_ttab movb #1,nam'_tflg% mcoml #0,driver_start+dpt$Q_linktime' mcoml #0,driver_start+dpt$Q_linktime+4B1 MOVAL nam'_ttab_size,driver_start+dpt$L_ecolevelD.Endc2.EndmwwNT.endc MOVW 16(SP),@L1 ADDL3 #2,L1,R0L3: MOVAL L2,R1 CMPL R1,R0 BGTR 10$ MOVAL L1+4,R010$: MNEGL #1,(R0) MOVL R0,L1 ENBINT MOVQ (SP)+,R020$: MOVL (S{5w%'.Macro TRACEX VALUE,BPT,NAME=,FLAG=,?L1.If defined trace_on.if not_defined dpt$Q_linktime $DPTDEF.Endc..If blank flag$ blbc driver_start+dpt$Q_linktime,L1 .If_falseL) bbc #flag,driver_start+dpt$Q_linktime,L1R.EndcC SETUP_TRACE BPT,NAMEV MOVZWL #^X/VALUE/,-(SP) BSBW TRACERL1:s.EndcA.EndmwwL #^A/VALUE/A BSBW LONG_TRACERL1:V.Endc1.Endm ww BGTR 10$ MOVAL L1+4,R010$: MNEGL #1,(R0) MOVL R0,L1 ENBINT MOVQ (SP)+,R020$: MOVL (S@)~ PUCKETTE TRACE' - PUCKETTE SET_TRACE_NAME'@@р PUCKETTE SET_TRACE_NAME-  PUCKETTE TRACESET_TRACE_NAME'c PUCKETTE SET_TRACE_NAME' > PUCKETTE SET_TRACE_NAMEG PUCKETTE TRACE`p PUCKETTE TRACEP@t PUCKETTE TRACE&@+ PUCKETTE TRACELTRACEA%8 PUCKETTE ENABLE_TRACE&*t PUCKETTE TRACEXTRACEW3'-t PUCKETT -.Macro SET_TRACE_NAME NAME TRACE_NAME = NAME.If not_defined TRACE_COUNT TRACE_COUNT = 0.Endc.Endmww@8).macro TRACEP VALUE=VAL,PREFIX=TRACE_NAME .if defined TRACE_ON.if NOT_blank PREFIX.if not_defined TRACE_COUNTU TRACE_COUNT = 1 .if_false TRACE_COUNT = TRACE_COUNT + 1.endc PREFIX''TRACE_COUNT == . nop nop.endc TRACE VAL.endc.endmww}+.Macro ENABLE_TRACE SIZ,NAM,ACP,?L1,?L2,?L3i.if defined TRACE_ON .ALIGN LONG .ENABLE LSBL1:= NAM'_TTAB::l .BLKL 1aNAM'_TTAB_BEGIN::t .BLKB SIZaL2: .BLKL 1n NAM'_TFLG::$ .BYTE 0LTRACER:: BBC #0,NAM'_TFLG,20$M MOVQ R0,-(SP) .if nb ACP DSBINT #2.iff DSBINT.endcc MOVW 16(SP),@L1 ADDL3 #2,L1,R0 L3:e MOVAL L2,R1 CMPL R1,R0 BGTR 10$i MOVAL L1+4,R010$: MNEGL #1,(R0) MOVL R0,L1E ENBINTd MOVQ (SP)+,R020$: MOVL (SE TRACELTRACEA ENABLE_TRACEAn PUCKETTE TRACELTRACEATRACEXTRACEW ENABLE_TRACES@j PUCKETTE ENABLE_TRACE START_TRACETRACETRACELTRACEATRACEXTRACEW$ K[3_ PUCKETTE SETUP_TRACES_3_ PUCKETTE ENABLE_TRACE START_TRACETRACETRACELTRACEATRACEXTRACEW_` PUCKETTE ENABLE_TRACE START_TRACE SETUP_TRACETRACETRACELTRACEATRACEXTRACEW_qua PUCKETTE ENABLE_TRACE START_TRACE SETUP_TRACETRACETRACELTRACEATRACEXTRACEW_Wa PUCKETTE ENABLE_TRACE START_TRACE SETUP_TRACETRACETRACELTRACEATRACEXTRACEW_x]d PUCKETTE ENABLE_TRACE START_TRACE SETUP_TRACETRACETRACELTRACEATRACEXTRACEW_