.MACRO	TRAN$	TYPE,LABEL,ACTION,MASK,ADDR
	.PSECT	$STATE
	MTRAN$
	DBGTP$
	.IF	NB	ACTION
	$$$FLG = $$$FLG!2
	.MACRO	$$$ACT
	.WORD	ACTION
	.ENDM	$$$ACT
	.ENDC
	.IF	NB	MASK
	$$$FLG = $$$FLG!30
	.IF	B	ADDR
	.ERROR	"MASK ADDRESS NOT PRESENT"
	.ENDC
	.MACRO	$$$BIT
	.WORD	MASK,ADDR
	.ENDM	$$$BIT
	.ENDC
	.IF	NB	LABEL
	$$$FLG = $$$FLG!4
	$$$STA = LABEL
	.ENDC
	.IRPC	$$$$$X,<TYPE>
	.IF	IDN	<$$$$$X>,<">
	.PSECT	$KSTR
	$$$TMP = .
	.ASCII	TYPE<377>
	.MACRO	$$$TYP                                                          ;**NEW**
	.BYTE	200                                                             ;**NEW**
	.ENDM	$$$TYP                                                          ;**NEW**
	$$$KEY = $$$KEY+1                                                       ;**NEW**
	$$$FLG = $$$FLG!1                                                       ;**NEW**
	.MACRO	$$$EXT                                                          ;**NEW**
	.WORD	$$$TMP                                                          ;**NEW**
	.ENDM                                                                   ;**NEW**
	.MEXIT                                                                  ;**-9
	.ENDC
	.IF	IDN	<$$$$$X>,<!>
	$$$FLG = $$$FLG!1
	.MACRO	$$$EXT
	.WORD	0'TYPE
	.ENDM	$$$EXT
	.MACRO	$$$TYP
	.BYTE	$SUBXP
	.ENDM	$$$TYP
	.MEXIT
	.ENDC
	.MACRO	$$$TYP
	.BYTE	TYPE
	.ENDM	$$$TYP
	.MEXIT
	.ENDM
	.PSECT
.ENDM	TRAN$