.TITLE	TRACE
	.IDENT	/V00.01/

	.MCALL	SVDB$S

SST:	.WORD	0		;Odd address
	.WORD	0		;Memory protection
	.WORD	TEST		;T-bit trap or BPT
SSTSIZ	= <.-SST>/2		;Number of SST entries
;
; T-Bit trace trap module. Link to program using 'module/DA'.
;
TRACE:	SVDB$S	#SST,#SSTSIZ	;Declare SST table
	MOV	#020,-(SP)	;Set T-bit in PSW
	MOV	R0,-(SP)	;Task initial address
	RTT			;Begin task execution

TEST:	TST	FOO		;Is variable zero?
	BEQ	9999$		; If EQ - yes, error
	RTT			;Return to caller

9999$:	HALT			;Stop on error

	.PSECT	BAR,RW,D,OVR,GBL
. = . + 102
FOO:				;Variable FOO in common BAR

	.END	TRAP