STAXLA:					;STA XLATE
;IFN FTMANT,<	JSB	(OUTCOD)	;MAKE SURE WE OUTPUT JUMPS	;%%%-WTB-02
;THE FOLLOWING ANGLE BRACKET MATCHES THAT DELETED ABOVE >		;U/O-WTB-02
;		SNZ	(DEBFLAG)	;NOTE STMT LENGTH		;%%%-WTB-02
IFN FTMANT,<	SNZ	(DEBFLAG)	;NOTE STMT LENGTH		;U/O-WTB-02
		FETT	(LOCCNT)	;BUT MUST FIRST FORCE IF JUMPS OUT;U/O-WTB-02
		SGTT	(ZERO)		;EXCEPT WHEN JUST STARTING	;U/O-WTB-02
		JSBT	(OUTCOD)					;U/O-WTB-02
		SNZ	(DEBFLAG)					;U/O-WTB-02
		XMLT	(REFSTML)	; FOR DEBUGGER>
	XML	(SSAML)	;STATUS CONTROL
	FEX	(MPRXLA)	;MAIN PROGRAM XLATE
	SCE	(S)		;S
	JMPT	(SSTXLA)	;SUBROUTINE STA XLATE
	SCE	(F)		;F
	JMPT	(FSTXLA)	;FUNCTION STA XLATE
	SCE	(I)		;I
	JMPT	(IFSXLA)	;INTEGER FUNCTION STA XLATE
	SCE	(R)		;R
	JMPT	(RFSXLA)	;REAL FUNCTION STA XLATE
	SCE	(D)		;D
	JMPT	(DPFSXL)	;DOUBLE PREC FUNCTION STA XLATE
	SCE	(C)		;C
	JMPT	(CFSXLA)	;COMPLEX FUNCTION STA XLATE
	SCE	(L)		;L
	JMPT	(LFSXLA)	;LOGICAL FUNCTION STA XLATE
IFNDEF	$DATA,
<
	SCE	(B)		;B
	JMPT	(BDSXLA)	;BLOCK DATA STA XLATE
>
	JMP	(MPRXLA)	;MAIN PROGRAM XLATE
    