COMMENT;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

AUTHOR:		CLAES WIHLBORG

UPDATE:		1

PURPOSE:	TRACEB IS USED FOR CHANGING THE PASS ENTRY IN CASE
		OF TRACE.

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

	SALL
	SEARCH	SIMMAC
	CTITLE	TRACEB

	TWOSEG
	RELOC	400K

	EXTERN	TRACE,I3
	INTERN	TRACEB

	QPASSNO=:3



TRACEB:
	JSP	16,TRACE
	JRST	I3
	END	TRACEB