* Decoder version: 5.1.0.2


void Mocha_FRAME;


        GBYT 0 1 0 0;


        INCR 1 0 0 0;


        GBYT 0 2 0 0;


        GBYT 0 4 0 0;


        DECR 1 0 0 0;


        ANDG fc 1 0 0;


        MULG 4 1 0 0;


        DIVG 10 2 0 0;


        ADDG 1 82 0 0;


        TEQU 000 2 0 0 FR_LMI;
        TEQU 3ff 2 0 0 FR_LMI;


        LABL 0 0 0 b1 Frame Relay Header;


        DGLB 0 2 90 c2 DLCI address:;


        HEX# 2 0 30 0;


        CBIT 1 3 0 C2 Header Flags: ;
        CLSE 0 0 0 C2 Header Flags: ;

        CBIT 3 4 0 54 FECN=1 ;
        CLSE 0 0 0 54 FECN=0 ;

        CBIT 2 4 0 14 BECN=1 ;
        CLSE 0 0 0 14 BECN=0 ;

        CBIT 1 4 0 14 DE=1 ;
        CLSE 0 0 0 14 DE=0 ;

        CBIT 1 3 0 14 C/R=1 Response;
        CLSE 0 0 0 14 C/R=0 Command ;


        GWRD 0 8 0 0;     
        TNEQ 0800 8 0 0 FR_HDR_10;  

        INCR 2 0 0 0;               
        TNXT -FR_HDR_10;            
void FR_HDR_10;
        GBYT 0 1 0 0;

        TEQU 45 1 0 0 IP;
        TEQU 46 1 0 0 ARP;
        TEQU 48 1 0 0 IPX TOP;
        TEQU 01 1 0 0 ICMP-IP;
        TEQU 02 1 0 0 IGMP-IP;
        TEQU ff 1 0 0 IPX Check;


       TNXT 0 0 0 0 FR_MSG_LAST;


void FR_MSG_LAST;

       BREM 0 11 0 0;       
       SUBG 11 90 0 0;      
       SUBG 10 8F 0 0;      
       MOVE f 84 0 0;               
       TGTE 2 f 0 0 FRAME_DONE;     
       SUBG 2 f 0 0;                
       TEQU 0 4 0 0 FRAME_DONE;     

       LABL 0 0 0 b1 Frame Relay data -;
       DGLB 0 4 01 01 ;
       LABL 0 0 01 01 -bytes;
       TNXT 0 0 0 0 FR_MSG_LINES_DISP;



void FR_MSG_LINES_DISP;
       TGTE 1f 4 0 0 FR_MSG_LINES_DONE;
       CHR# 20 0 93 C2;
       SUBG 20 4 0 0;
       TNXT 0 0 0 0 FR_MSG_LINES_DISP;

void FR_MSG_LINES_DONE;
       TEQU 0 4 0 0 FRAME_DONE;
       CHR# 0 4 93 C2;
       TNXT -FRAME_DONE;


void FRAME_DONE;
       BREM 0 4 0 0;
       CHR# 0 04 05 05;

void IPX Check;
        INCR 1 0 0 0;
        GBYT 0 1 0 0;
        DECR 1 0 0 0
        TNEQ ff 1 0 0 FR_MSG_LAST;  
        TNXT 0 0 0 0 IPX TOP;


void FR_LMI;


       LABL 0 0 0 b1 Frame Relay LMI - Local Management Interface;


       DGLB 0 2 90 c2 DLCI for LMI;


       HEX# 2 0 20 0;


       HEX# 1 0 00 84 UI= ;
       HEX# 1 0 00 24 PD= ;
       HEX# 1 0 00 24 Call Ref= ;



       GBYT 0 1 0 0;
       HEX# 1 0 90 82 Message Type;

       CEQU 75 1 90 24 = Status Report;
       TEQU 75 1 0 0 LMI_REPORT;


       CEQU 7D 1 90 24 = Status Enquiry;
       TEQU 7D 1 0 0 LMI_REPORT;


       LABL 0 0 90 24 = Invalid;
       TNXT 0 0 0 0 LMI_LAST;


void LMI_REPORT;
      GBYT 0 1 0 0;
      HEX# 1 0 90 82 Info Element;


       CEQU 95 1 90 24 = Ansi Lock Shift;
       TEQU 95 1 0 0 LMI_REPORT;


       ANGB AF 1 0 0;
       CEQU 01 1 90 22 = Report Type;
       TEQU 01 1 0 0 ELEM_REPORT;
       CEQU 03 1 90 22 = Sequence No. Exchange;
       TEQU 03 1 0 0 ELEM_SEQ_LNG;
       CEQU 07 1 90 22 = PVC Status;
       TEQU 07 1 0 0 ELEM_PVC_STA;


       LABL 0 0 90 24 = Invalid;
       TNXT 0 0 0 0 LMI_LAST;


void ELEM_REPORT;

       HEX# 1 0 90 84 Element Length;

       HEX# 1 0 90 84 Element type;
       CEQU 00 1 90 24 = Full Status;
       TEQU 00 1 0 0 LMI_REPORT;
       CEQU 01 1 90 24 = Link Integrity only;
       TEQU 01 1 0 0 LMI_REPORT;
       CEQU 02 1 90 24 = Single PVC async;
       TEQU 02 1 0 0 LMI_REPORT;


       LABL 0 0 90 24 = Invalid;
       TNXT 0 0 0 0 LMI_LAST;



void ELEM_SEQ_LNG;

       HEX# 1 0 90 84 Element Length;

       DBYT 1 0 90 84 Send Sequence No.;
       DBYT 1 0 90 84 Recv Sequence No.;

       TNXT 0 0 0 0 LMI_REPORT;



void ELEM_PVC_STA;

       HEX# 1 0 90 84 Element Length;


       GBYT 0 1 0 0;
       INCR 1 0 0 0;

       GBYT 0 2 0 0;
       DECR 1 0 0 0;

       HEX# 2 0 90 84 DLCI msb/lsb;


        ANDG fc 1 0 0;

        MULG 4 1 0 0;

        DIVG 10 2 0 0;


        ADDG 1 82 0 0;


        DGLB 0 2 90 c2 DLCI address;


       GBYT 0 2 0 0;
       HEX# 1 0 30 14 Status;

       CBIT 3 2 0 14 1=New;
       CLSE 0 0 0 14 0=Present;

       CBIT 1 2 0 14 1=Active;
       CLSE 0 0 0 14 0=Idle;

       TNXT 0 0 0 0 LMI_REPORT;



str# INFO ELEMENTS;
        Full Status;
        Sequence Only;
        Single PVC async;



void LMI_LAST;

       BREM 0 04 0 0;       
       CHR# 0 04 05 05;