NAME=BACK					EMIT(bytes) = State-Change
0000 back:   $=1   n EMIT(01,23) + f;		    0 = INIT
0008	     $=2   n EMIT(02,13) base;		    1 = have NAME=
0010	     $=3   e;				    2 = have BASE=
0013	     $=4   n EMIT(43,53,E3) pattern;	    3 = getting Pattern
001C	     $=5   n EMIT(E4) source ` object.	    4 = getting Source
0026 base:	      + h + b.parm.		    5 = Object (set by F.0)
002C b.parm:		parm :b.parm	Default: PARMBYTE=0F0
0030 parm:	$=0	p.0;		size (bit 4) = 16 BIT
0034		$=1	p.1;		endian (bit 5) = LITTLE
0038		      + p.2.		version (bits 6-7) = V.3
003C p.0:	$=1	b EMIT(EF).	32 bit	NOTE: "b" prevents constant
0041 p.1:	$=1	b EMIT(DF).	Big Endian    from actually being
0046 p.2:	$=0	b EMIT(3F);	Vers.0	      emitted, and uses it
004B		$=1	b EMIT(7F);	Vers.1	      to mask (clear bits)
0050		$=2	b EMIT(BF).	Vers.2	      in PARMBYTE instead.
0055 pattern:	      + d++ < EMIT(80) + alt > c rep.alt `.
0065 alt:		prim :alt
0069 rep.alt:		< EMIT() sep + alt > c :rep.alt
0074 sep:	$=1	XOR(40).
0078 prim:	$=00	EMIT(61);
007C		$=01	EMIT(62);
0080		$=02	EMIT(63);
0084		$=03	EMIT(64);
0088		$=04	EMIT(65);
008C		$=05	EMIT(66);
0090		$=06	EMIT(67);
0094		$=07	EMIT(68);
0098		$=08	EMIT(69);
009C		$=09	EMIT(6A);
00A0		$=0A	EMIT(6B);
00A4		$=0B	EMIT(6C);
00A8		$<0E	g+;
00AC		      + a+.
.P (3)
00B0 source:	      + < EMIT(80) pfx line specs > c r.src.
00BF pfx:	$=0	j;			<macro statement
00C2		$=1	EMIT(6E,0) r;		>prefix
00C8		      + XOR(40).		=synonym
00CC line:	      + p prim prim.i s.
00D4 prim.i:	      + prim fix :prim.i
00DB fix:		i+ EMIT(6D).
00E0 specs:	      + spec rspec.
00E6 rspec:		spec :rspec
00EA r.src:		src :r.src
00EE src:	      + < EMIT() pfx line specs > c.
00FA spec:	$=0	EMIT(6E,40) except;	except
0101		$=1	EMIT(6E,1);		NEXT
0106		$=2	EMIT(6E,2);		GLOBAL
010B		$=3	EMIT(6E,3);		FPFX
0110		      + EMIT(6E,0) def. 	def
0117 except:	      + ref b2 and.except.
011F def:	$=0	XOR(E0) ref l+; 		   ref=b
0127		$=1	XOR(10) ref EMIT(40) mod mod mod;  ref=mod[mod][mod]
0135		      + XOR(20) ref b3 EMIT(20) ref.	   (ref=bb flg)
0141 and.except:	EMIT(6E,80) ref b2.
0149 b2:	$=0	XOR(10) k+;
014F		      + XOR(20) k+ k+.
0157 b3:	$=0	k+;
015B		      + XOR(10) k+ k+.
0163 b.ref:	$=0	XOR(10);
0167		$=1	XOR(20);
016B		      + XOR(40).
016F mod:	$=0	XOR(04);		LOOP =x1xx01xx
0173		$=1	XOR(08);		NEXT =x1xx10xx
0177		$=2	XOR(0C);		EXIT =x1xx11xx
017B		$=3	XOR(80);		ABS  =11xxxxxx
017F		$=4	XOR(02);		WORD =x1xxxx10
0183		$=5	XOR(03).		QUAD =x1xxxx11
0187 object:	      + EMIT(E0) ref emit rep.emit rep.obj o EMIT() goto.
0197 rep.obj:		obj :rep.obj
019B obj:	$=0	a.def EMIT() ref b2 + rep.emit EMIT(08);
01A9		      + a.def emit rep.emit.
01B1 a.def:		d+.
01B4 cond:	      + EMIT() ref b2.
01BB emit:	$=0	EMIT(60) ref q;
01C2		$=1	< field rep.field > m;
01CB		      + EMIT(0D) k+.
01D1 rep.emit:		emit :rep.emit
01D5 goto:		o EMIT(0E) a+.
01DB field:	$=0	l+;
01DF		      + EMIT(80) ref.
01E5 rep.field: 	field :rep.field
01E9 ref:	XOR($).