perm filename TRACEB.MAC[SIM,SYS] blob sn#460328 filedate 1979-07-23 generic text, type T, neo UTF8
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