* Decoder version: 5.0.0.2


void Ether Generic;
	LABL  0  0  0 b1 Packet Info;
	PRV2  0  2 90 c3 Flags:;
	CBIT  1  2  0 14 CRC Error ;
	CBIT  2  2  0 14 Frame Error ;
	CBIT  4  2  0 14 Oversize ;
	CBIT  5  2  0 14 Runt ;
	CBIT  6  2  0 14 Trigger ;
	CBIT  7  2  0 14 802.3;
	PRV3  0  2 90 c3 Status:;
	CBIT  1  2  0 14 Truncated ;
	CBIT  5  2  0 14 Sliced;
	PRV4  0  0 90 c3 Packet Length:;
	PRV5  0  0  0 23 Slice Length:;
	PRV1  0  0 90 c3 Timestamp:;
	PRV8  0  0 90 c3 Filter:;
	TNXT  -Ether Header;

void Ether Header;
	DUMP  0  0 90 b1 Raw Packet Data;

void Token Generic;
	PRV2  0  6 90 43 Flags:;
	CBIT  3  6  0 14 Routing Info ;
	CBIT  6  6  0 14 Trigger ;
	PRV3  0  2 90 c3 Status:;
	CBIT  1  2  0 14 Truncated ;
	CBIT  5  2  0 14 Sliced;
	PRV4  0  0 90 c3 Packet Length:;
	PRV5  0  0 20 23 Slice Length:;
	PRV1  0  0 90 c3 Timestamp:;
	PRV8  0  0 90 c3 Filter:;
	TNXT  -Token Header;

void Token Header;
	DUMP  0  0 90 b1 Raw Packet Data;

void Ether Dump;
	BREM 0 1;		
	SGTE 4 1;
	SKIP 2;
	LABL 0 0 0 b1 Extra bytes;
	DUMP 1 0 90 c2 Number of bytes:;
	TNXT -FCS;

void FCS;
 
	BREM 0 1;
	SLTE 3 1;
	SKIP 6;

	SEQU 0 1;
	SKIP 2;
	LABL 0 0  0 b1 Remaining Packet Data;
	DUMP 0 10 90 c2 Data:;
	TRTS;


	GLNG 0 1d;
	LABL 0 0 80 b1 FCS - Frame Check Sequence\FCS:;

	FCSC 0 1e;

	SNEQ 0 1d;
	SKIP 3;

	HGLB 0 1e 90 c2 FCS (Calculated):\(Calculated):;
	INCR 4;
	TNXT -RETURN;

	HLNG 0 0 90 c2 FCS:;

	MOVE 1d 9f;
	NOTG 0 1f;
	ANDG 1e 9f;

	TEQU 0 1f 0 0 RETURN;

	LABL 0 0 0 14 FCS invalid. Should be: ;
	HGLB 0 1e 4;

void Token Dump;
	DUMP 1 0 90 b6 Extra bytes:;
	TNXT -FCS;

void RETURN;

void Ether Main;


	INCR c 0 0 0;	   
	GBYT 0 1 0 0;	   
	DECR c 0 0 0;	   
	TEQU 69 1 0 0 Mocha Header;


	TRAK  1 10;
	LABL  0  0  0 b1 Packet Info;
	PRV2  0  b 90 c3 Flags:;
	CBIT  1  b  0 14 CRC Error ;
	CBIT  2  b  0 14 Frame Error ;
	CBIT  4  b  0 14 Oversize ;
	CBIT  5  b  0 14 Runt ;
	CBIT  6  b  0 14 Trigger ;
	CBIT  7  b  0 14 802.3;
	PRV3  0  2 90 c3 Status:;
	CBIT  1  2  0 14 Truncated ;
	CBIT  5  2  0 14 Sliced;
	PRV4  0 10 90 c3 Packet Length:;
	PRV5  0  f 20 23 Slice Length:;
	PRV1  0  0 90 c3 Timestamp:;
	PRV8  0  0 90 c3 Filter:;
	PRV7  0  0  0 83 EtherTalk;
	TNXT  -Ether Branching;

void Ether Send Main;
	TRAK  1 10;
	LABL  0  0  0 b1 Packet Info;
	PRV4  0 10 90 c3 Packet Length:;
	PRV2  0  b 5;
	PRV5  0  f  0 ;
	TNXT  -Ether Branching;

void Ether Branching;
	CBIT 7 b 0 b1 802.3 Header\802.3;
	CLSE 0 0 0 b1 Ethernet Header\Ethernet:;
	ETHR 0 0 90 c2 Destination:\Dst:;
	ETHR 0 0 90 c2 Source:\Src:;
	GWRD 0 1;
	TGTE 5dc 1 0 40 802.2;
	TNXT -Ether Branching 2;

void Ether Branching 2;
	PRTO 1 1 90 c2 Protocol Type:\Protocol:;
	SKIP 1;
	EProto Names;
	SNEQ 8100 1;
	SKIP e;
	802.1q;


	INCR 2;
	GBYT 0 1;
	DECR 2;
	SNEQ aa 1;
	SKIP 1;
	TNXT -802.2;


	INCR 2;
	GBYT 0 1;
	DECR 2;
	SNEQ 42 1;
	SKIP 1;
	TNXT -802.2;

	TNXT -Ether Branching 2;
	TNXT -Ether Branching 3;

void Ether Branching 3;
	TEQU  600 1 0 0 XNS;
	TEQU  800 1 0 0 IP;
	TEQU  806 1 0 0 ARP;
	TEQU  807 1 0 0 XNS;
	TEQU  bad 1 0 0 VINES Internet;
	TEQU  baf 1 0 0 VINES Echo;
	TEQU 6001 1 0 0 DECnet MOP Dump/Load;
	TEQU 6002 1 0 0 DECnet MOP Remote Console;
	TEQU 6003 1 0 0 DECnet Phase IV;
	TEQU 6004 1 0 0 DECnet LAT;
	TEQU 6005 1 0 0 DECnet Diagnostic Protocol;
	TEQU 6007 1 0 0 DECnet Phase IV;
	TEQU 8035 1 0 0 RARP;
	TEQU 809b 1 0 0 EtherTalk;
	TEQU 80f3 1 0 0 AARP;
	TEQU 8137 1 0 0 IPX Top;
	TEQU 8138 1 0 0 XNS;
	TEQU 86dd 1 0 0 IPv6;
	TEQU 80c4 1 0 0 VINES Internet;
	TEQU 80c5 1 0 0 VINES Echo;
	TEQU 8847 1 0 0 MPLS Unicast;
	TEQU 8848 1 0 0 MPLS Multicast;
	TEQU 8863 1 0 0 PPPoE Discovery;
	TEQU 8864 1 0 0 PPPoE Session;
	TEQU 9000 1 0 0 Loopback;


void Loopback;
	LABL  0 1  0 b1 Loopback;
	DWRD  0 1 90 c2 Skip count:;
	DWRD  0 1 90 c2 Message type:;
	DWRD  0 1 90 c2 Reciept number:;
	DUMP  1 0 90 c2 Extra Bytes;

void MPLS Unicast;
	LABL  0 0  0 b1 MPLS - MultiProtocol Label Switching (Unicast);
	MPLS Common;
	TEQU  0 2  0  0 MPLS Unicast;
	MOVE  800 1;
	TNXT  -Ether Branching 3;

void MPLS Multicast;
	LABL 0	0 0  b1 MPLS - MultiProtocol Label Switching (Multicast);
	MPLS Common;
	TEQU  0 2  0  0 MPLS Multicast;
	TNXT  -Ether Branching 3;

void MPLS Common;
	GLNG 0 1;
	DIVG FFF 1;
	HGLB 0 1 90 c2 Label:;
	DBYT 0 1 5;
	DBYT 0 1 5;
	DBIT 4 1 5;
	DBIT  3 1 90 c2 Experimental:;
	DBIT  1 2 90 c2 Bottom of stack:;
	DBYT  1 1 90 c2 TTL:;
	TRTS;



void EProto Names;
	CEQU  600 1 0 14 XNS;
	CEQU  800 1 0 14 IP;
	CEQU  806 1 0 14 IP ARP;
	CEQU  807 1 0 14 XNS;
	CEQU  bad 1 0 14 VINES Internet;
	CEQU  baf 1 0 14 VINES Echo;
	CEQU 6001 1 0 14 DECnet MOP Dump/Load;
	CEQU 6002 1 0 14 DECnet MOP Remote Console;
	CEQU 6003 1 0 14 DECnet Phase IV;
	CEQU 6004 1 0 14 DECnet LAT;
	CEQU 6005 1 0 14 DECnet Diagnostic Protocol;
	CEQU 6007 1 0 14 DECnet LAVC;
	CEQU 8035 1 0 14 RARP;
	CEQU 809b 1 0 14 AppleTalk;
	CEQU 80c4 1 0 14 VINES Internet;
	CEQU 80c5 1 0 14 VINES Echo;
	CEQU 80f3 1 0 14 AARP;
	CEQU 8100 1 0 14 802.1Q;
	CEQU 8137 1 0 14 Novell NetWare;
	CEQU 8138 1 0 14 XNS;
	CEQU 86dd 1 0 14 IPv6;
	CEQU 8863 1 0 14 PPPoE Discovery;
	CEQU 8864 1 0 14 PPPoE Session;
	TRTS;


void Token Main;
	TRAK  1 10;
	LABL  0  0  0 b1 Packet Info;
	PRV2  0  6 90 c3 Flags:;
	CBIT  3  6  0 14 Routing Info ;
	CBIT  6  6  0 14 Trigger ;
	PRV3  0  2 90 c3 Status:;
	CBIT  1  2  0 14 Truncated ;
	CBIT  5  2  0 14 Sliced;
	PRV4  0 10 90 c3 Packet Length:;
	PRV5  0  f 20 23 Slice Length:;
	PRV1  0  0 90 c3 Timestamp:;
	PRV8  0  0 90 c3 Filter:;
	TNXT  -Token Branching;

void Token Send Main;
	TRAK  1 10;
	PRV4  0 10 90 43 Packet Length:;
	PRV5  0  f  0 ;
	TNXT  -Token Branching;

void Token Branching;
	LABL 0 0 0 b1 MAC Header;
	BBIT 3 0 90 c2 Token/Frame Priority:;
	BBIT 1 2 90 c2 Token Indicator:;
	CBIT 0 2 0 14 Frame;
	CLSE 0 2 0 14 Token;
	BBIT 1 2 90 c2 Monitor Count:;
	CBIT 0 2 0 14 Repeated;
	CLSE 0 2 0 14 Not Repeated;
	BBIT 3 0 90 c2 Priority Reservation:;
	BBIT 2 3 90 c2 Frame Type:;
	CST# ffffffff 3 0 14 MAC Frame Types;
	BBIT 2 0 90 c2 Unused:;
	BBIT 4 2 90 c2 PCF Attention Code:;
	CST# ffffffff 2 0 14 PCF Attn Codes;
	LABL 0 0 0 b1 802.5 Header;
	TRNG 0 0 90 c2 Destination:;
	GBYT 0 4;
	TRNG 1 0 90 c2 Source:;
	CBIT 7 4 0 14 (routing info);
	TTST -TR Routing Info;
	TNXT -TR 802.2;

str# MAC Frame Types;
	Medium Access Control (MAC) Frame;
	Logical Link Control (LLC) Frame;
	Reserved;
	Reserved;

str# PCF Attn Codes;
	;
	Express Buffer;
	Beacon;
	Claim Token;
	Ring Purge;
	Active Monitor Present;
	Standby Monitor Present;


void Mocha Header;
	INCR 2 0 0 0;	       
	GLNG 0 1 0 0;	       
	INCR 2 0 0 0;	       
	GBYT 0 c 0 0;	       
	INCR 8 0 0 0;	       

	CEQU 445445 1 0 31 Mocha WAN header;
	CEQU 445445 1 0 c0 DTE origin;
	TEQU 445445 1 0 0 Mocha Wan Time;

	DECR 4 0 0 0;	    
	GLNG 0 1 0 0;	    
	INCR 2 0 0 0;	    
	GBYT 0 c 0 0;	    
	INCR 2 0 0 0;	    

	CEQU 444345 1 0 31 Mocha WAN header;
	CEQU 444345 1 0 c3 DCE origin;
	TEQU 444345 1 0 0 Mocha Wan Time;


	CEQU 445445 1 0 31 Mocha WAN header;
	CEQU 445445 1 0 c0 DTE origin;
	TEQU 445445 1 0 0 Mocha Wan Time;

	LABL 0 0 0 31 Invalid WAN DTE/DCE MAC!;
	TNXT 0 0 0 0 Mocha Wan Time;

void Mocha Wan Time;
	PRV1 0 0 20 c0 Timestamp:;


	GWRD 0 1 0 0;	       
	GWRD 0 d 0 0;	       
	INCR 2 0 0 0;	       
	BREM 0 10 0 0;


	GWRD 0 f 0 0;	       
	ANDG 3fff f 0 0;       
	SUBG 2 f 0 0;	       
	DGLB 0 f 0 c0 wan length: ;


	GBYT 0 e 0 0;	       
	INCR 2 0 0 0;	       
	BREM 0 10 0 0;
	TEQU 69A0 1 0 0 Mocha_Async_Chk;
	TEQU 69B0 1 0 0 Mocha_Baudot_Chk;

	CBIT 6 e 0 52 crc error;	   
	CLSE 0 0 0 53 crc good;


	TEQU 6910 1 0 0 Mocha_PPP;
	TEQU 6911 1 0 0 Mocha_PPP;
	TEQU 6912 1 0 0 Mocha_PPP;
	TEQU 6922 1 0 0 Mocha_FRAME;
	TEQU 6923 1 0 0 Mocha_FRAME;
	TEQU 6925 1 0 0 Mocha_X25;
	TEQU 6929 1 0 0 Mocha_X25;	   
	TEQU 6927 1 0 0 Mocha_X25E;	   
	TEQU 692A 1 0 0 Mocha_X25;	   
	TEQU 6931 1 0 0 Mocha_Q931;
	TEQU 6940 1 0 0 Mocha_SNA;
	TEQU 6950 1 0 0 Mocha_IPARS;
	TEQU 6960 1 0 0 Mocha_U200;
	TEQU 6970 1 0 0 Mocha_SS7;

	TEQU 6990 1 0 0 Mocha_FRAME;

	LABL 0 0 0 31 Invalid WAN EtherType!;
	TNXT 0 0 0 0 Mocha_Frame;


void Mocha_Async_Chk;
	CBIT 7 e 0 52 overrun error;
	TNXT -Mocha_ASYNC;

void Mocha_Baudot_Chk;
	CBIT 7 e 0 52 overrun error;
	TNXT -Mocha_BAUDOT;