* Decoder version: UNISYS 5.1.0.2

void Mocha_U200;


       GBYT 0 1 0 0;
       TEQU 04 1 0 0 UTS_NOTRAFFIC;
       TEQU 01 1 0 0 UTS_SOH;


       INCR 1 0 0 0;
       TEQU 16 1 0 0 Mocha Wan;
       DECR 1 0 0 0;


       TGTE 7F 1 0 0 UTS_INVALID;

       ANDG 7F 1 0 0;
       TEQU 04 1 0 0 UTS_NOTRAFFIC;
       TEQU 01 1 0 0 UTS_SOH;
       TNXT 0 0 0 0 UTS_INVALID;


void UTS_INVALID;
       LABL 0 0 0 b1 UTS Invalid Msg type =;
       HEX# 1 0 20 20 ;
       HEX# 1 0 20 20 ;
       HEX# 1 0 20 20 ;
       HEX# 1 0 20 20 ;

       TNXT -UTS_END;    

       BREM 0 4 0 0;     
       CHR# 0 04 05 05;  
void UTS_NOTRAFFIC;
       LABL 0 0 0 b1 UTS No Traffic;


       MOVE 1F 1c 0 0;      
       HEX# 1 0 90 C2;     
       HEX# 1 0 90 C2;     

       GBYT 0 1 0 0;        
       TNEQ 03 1 0 0 UTS_NT10;
       HEX# 1 0 90 C2;
       TNXT 0 0 0 0 UTS_NT10;

void UTS_NT10;
       HEX# 1 0 90 C2;

       TNXT -UTS_END;    
       BREM 0 04 0 0;       
       CHR# 0 04 05 05;     
void UTS_SOH;
       INCR 4 0 0 0;     
       GBYT 0 1 0 0;
       DECR 4 0 0 0;
       TEQU 02 1 0 0 UTS_TEXT;
       TEQU 03 1 0 0 UTS_TRAFFIC_POLL;
       TEQU 05 1 0 0 UTS_STATUS_POLL;


       INCR 6 0 0 0;
       GBYT 0 1 0 0;
       DECR 6 0 0 0;
       TEQU 02 1 0 0 UTS_TEXT;
       TEQU 03 1 0 0 UTS_TRAFFIC_POLL_ACK;
       TEQU 05 1 0 0 UTS_STATUS_POLL;


       LABL 0 0 0 b1 UTS Invalid Msg field;
       HEX# 1 0 20 20 ;
       HEX# 1 0 20 20 ;
       HEX# 1 0 20 20 ;
       HEX# 1 0 20 20 ;
       HEX# 1 0 20 20 ;
       HEX# 1 0 20 20 ;
       HEX# 1 0 20 20 ;

       TNXT -UTS_END;    
       BREM 0 4 0 0;     
       CHR# 0 04 05 05;  
void UTS_TRAFFIC_POLL;
       DECR 4 0 0 0;       

       GBYT 0 1c 0 0;      
       INCR 4 0 0 0;       

       LABL 0 0 0 b1 UTS Traffic Poll to;
       INCR 1 0 0 0;
       HEX# 80000001 0 20 00;
       HEX# 80000001 0 20 00;
       HEX# 80000001 0 20 00;
       DECR 4 0 0 0;

       HEX# 80000001 0 90 C2 soh;
       HEX# 80000001 0 90 C2 RID;
       HEX# 80000001 0 90 C2 SID;
       HEX# 80000001 0 90 C2 DID;
       HEX# 80000001 0 90 C2 etx;
       HEX# 80000001 0 90 C2 bcc;


       TNXT -UTS_END;    
       BREM 0 04 0 0;     
       CHR# 0 04 05 05;     
void UTS_TRAFFIC_POLL_ACK;
       DECR 4 0 0 0;       
       GBYT 0 1 0 0;       
       INCR 4 0 0 0;       
       TEQU 0 1c 0 0 UTS_POLL_UNDETERMINED;  

       SUBG 1c 81;
       TEQU 0 1 0 0 UTS_POLL_ACK;


       LABL 0 0 0 b1 No Traffic with Ack;



       TNXT 0 0 0 0 UTS_POLL_ACK20;



void UTS_POLL_ACK;
       LABL 0 0 0 b1 UTS Traffic Poll with Ack to;
       TNXT -UTS_POLL_ACK20;



void UTS_POLL_UNDETERMINED;
       LABL 0 0 0 b1 UTS Poll/NT with Ack;
       TNXT -UTS_POLL_ACK20;

void UTS_POLL_ACK20;
       INCR 1 0 0 0;

       HEX# 80000001 0 20 00;
       HEX# 80000001 0 20 00;
       HEX# 80000001 0 20 00;
       DECR 4 0 0 0;

       HEX# 80000001 0 90 C2 soh;
       HEX# 80000001 0 90 C2 RID;
       HEX# 80000001 0 90 C2 SID;
       HEX# 80000001 0 90 C2 DID;


       GBYT 0 1 0 0;
       TEQU 03 1 0 0 UTS_PU10;
       TNEQ 10 1 0 0 UTS_PU10;



       HEX# 80000001 0 90 C2 ack;
       HEX# 80000001 0 20 00;
       TNXT 0 0 0 0 UTS_PU10;

void UTS_PU10;
       HEX# 80000001 0 90 C2 etx;
       HEX# 80000001 0 90 C2 bcc;



       BREM 0 04 0 0;     
       CHR# 0 04 05 05;     
void UTS_STATUS_POLL;
       DECR 4 0 0 0;       

       GBYT 0 1c 0 0;      
       INCR 4 0 0 0;       

       LABL 0 0 0 b1 UTS Status Poll to;
       INCR 1 0 0 0;
       HEX# 80000001 0 20 00;
       HEX# 80000001 0 20 00;
       HEX# 80000001 0 20 00;
       DECR 4 0 0 0;

       HEX# 80000001 0 90 C2 soh;
       HEX# 80000001 0 90 C2 RID;
       HEX# 80000001 0 90 C2 SID;
       HEX# 80000001 0 90 C2 DID;


       GBYT 0 1 0 0;
       TEQU 05 1 0 0 UTS_SP10;
       TNEQ 10 1 0 0 UTS_SP10;
       HEX# 80000001 0 90 C2 ack;
       HEX# 80000001 0 20 00;

       TNXT 0 0 0 0 UTS_SP10;

void UTS_SP10;
       HEX# 80000001 0 90 C2 enq;
       HEX# 80000001 0 90 C2 etx;
       HEX# 80000001 0 90 C2 bcc;



       BREM 0 04 0 0;     
       CHR# 0 04 05 05;     
void UTS_TEXT;
       DECR 4 0 0 0;       
       GBYT 0 1 0 0;       
       INCR 4 0 0 0;       
       TEQU 0 1c 0 0 UTS_MSG_UNDETERMINED;  

       SUBG 1c 81;
       TEQU 0 1 0 0 UTS_MSG_HOST;


       LABL 0 0 0 b1 UTS Message from Terminal;
       INCR 1 0 0 0;
       HEX# 80000001 0 20 00;
       HEX# 80000001 0 20 00;
       HEX# 80000001 0 20 00;

       DECR 4 0 0 0;
       HEX# 80000001 0 90 C2 soh;
       HEX# 80000001 0 90 C2 RID;
       HEX# 80000001 0 90 C2 SID;
       HEX# 80000001 0 90 C2 DID;


       GBYT 0 1 0 0;
       TEQU 02 1 0 0 UTS_MSG_TER10;
       TNEQ 10 1 0 0 UTS_MSG_TER10;
       HEX# 80000001 0 90 C2 ack;
       HEX# 80000001 0 20 00;
       TNXT 0 0 0 0 UTS_MSG_TER10;

void UTS_MSG_TER10;
       HEX# 80000001 0 90 C2 stx;
       LABL 0 0 0 b1 Terminal message data;


       TNXT 0 0 0 0 UTS_MSG_LINES_DISP;


void UTS_MSG_HOST;
       LABL 0 0 0 b1 UTS Message from Host to;
       INCR 1 0 0 0;
       HEX# 80000001 0 20 00;
       HEX# 80000001 0 20 00;
       HEX# 80000001 0 20 00;

       DECR 4 0 0 0;
       HEX# 80000001 0 90 C2 soh;
       HEX# 80000001 0 90 C2 RID;
       HEX# 80000001 0 90 C2 SID;
       HEX# 80000001 0 90 C2 DID;


       GBYT 0 1 0 0;
       TEQU 02 1 0 0 UTS_MSG_HOST10;
       TNEQ 10 1 0 0 UTS_MSG_HOST10;
       HEX# 80000001 0 90 C2 ack;
       HEX# 80000001 0 20 00;

       TNXT 0 0 0 0 UTS_MSG_HOST10;


void UTS_MSG_HOST10;
       HEX# 80000001 0 90 C2 stx;
       LABL 0 0 0 b1 Host message data;
       TNXT 0 0 0 0 UTS_MSG_LINES_DISP;


void UTS_MSG_UNDETERMINED;
       LABL 0 0 0 b1 UTS Message ;
       INCR 1 0 0 0;
       HEX# 80000001 0 20 00;
       HEX# 80000001 0 20 00;
       HEX# 80000001 0 20 00;

       DECR 4 0 0 0;
       HEX# 80000001 0 90 C2 soh;
       HEX# 80000001 0 90 C2 RID;
       HEX# 80000001 0 90 C2 SID;
       HEX# 80000001 0 90 C2 DID;


       GBYT 0 1 0 0;
       TEQU 02 1 0 0 UTS_MSG_UND10;
       TNEQ 10 1 0 0 UTS_MSG_UND10;
       HEX# 80000001 0 90 C2 ack;
       HEX# 80000001 0 20 00;

       TNXT 0 0 0 0 UTS_MSG_UND10;


void UTS_MSG_UND10;
       HEX# 80000001 0 90 C2 stx;
       LABL 0 0 0 b1 UTS Message data -;
       TNXT 0 0 0 0 UTS_MSG_LINES_DISP;


void UTS_MSG_LINES_DISP;


       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 UTS_END; 
       SUBG 2 f 0 0;         
       TEQU 0 4 0 0 UTS_END; 
       DGLB 0 4 01 01 ;
       LABL 0 0 01 01 -bytes;
       TNXT -UTS_MSG_LINES_DISP_LOOP;


void UTS_MSG_LINES_DISP_LOOP;
       TGTE 1f 04 0 0 UTS_MSG_LINES_DONE;


       CHR# 80000020 0 93 C2;
       SUBG 20 04 0 0;
       TNXT 0 0 0 0 UTS_MSG_LINES_DISP_LOOP;


void UTS_MSG_LINES_DONE;
       CHR# 80000000 04 93 C2;
       TNXT -UTS_END;



void UTS_END;
       INCR 1 0 0 0;
       GBYT 0 1 0 0;
       TNEQ ce 1 0 0 UTS_END_DONE;


       DECR 2 0 0 0;

       HEX# 80000001 0 02 C2 CRC Error - ;

       INCR 1 0 0 0;
       TNXT -UTS_END_DONE;


void UTS_END_DONE;
       BREM 0 4 0 0;     
       CHR# 0 4 05 05;  
       TNXT -RETURN;