* Decoder version: IPARS 5.2.0.1




void Mocha_IPARS;


       GBYT 0 1 0 0;
       TNEQ f 1 0 0 IPAR_MESSAGE;


       INCR 1 0 0 0;	 
       GBYT 0 1 0 0;
       TEQU 37 1 0 0 IPAR_NOTRAFFIC;


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

       LABL 0 0 0 b1 IPARS Poll ;
       INCR 1 0 0 0;
       HEX# 80000001 0 00 02 to IA ;
       DECR 2 0 0 0;

       HEX# 80000001 0 90 C2 Start poll;
       HEX# 80000001 0 90 C2 Poll to IA;
       HEX# 80000001 0 90 C2 EOM;
       HEX# 80000001 0 90 C2 CRC;


       BREM 0 4 0 0;	 
       CHR# 0 4 05 05;	   
void IPAR_NOTRAFFIC;
       LABL 0 0 0 b1 IPARS Go Ahead (No Traffic);
       DECR 1 0 0 0;


       MOVE 1F 1c 0 0;	    

       HEX# 80000001 0 90 C2 Start byte;
       HEX# 80000001 0 90 C2 No Traffic;


       BREM 0 4 0 0;	   
       CHR# 0 4 05 05;	   
void IPAR_MESSAGE;

       DECR 4 0 0 0;	   
       GBYT 0 1 0 0;	   
       INCR 4 0 0 0;	   
       TEQU 0 1c 0 0 IPAR_MSG_UNDETERMINED;  

       SUBG 1c 81 0 0;
       TEQU 0 1 0 0 IPAR_MSG_HOST;



       LABL 0 0 0 b1 IPARS Message from Terminal ;
       HEX# 80000001 0 00 02 IA ;
       HEX# 80000001 0 00 02 , TA ;

       DECR 2 0 0 0;
       HEX# 80000001 0 90 C2 IA;
       HEX# 80000001 0 90 C2 TA;


       LABL 0 0 0 b1 IPARS Terminal message data ;
       TNXT 0 0 0 0 IPAR_MSG_LINES_DISP;


void IPAR_MSG_HOST;
       LABL 0 0 0 b1 IPARS Message from Host ;
       HEX# 80000001 0 00 02 to IA ;
       HEX# 80000001 0 00 02 , TA ;
       DECR 2 0 0 0;

       HEX# 80000001 0 90 C2 IA;
       HEX# 80000001 0 90 C2 TA;

       HEX# 80000001 0 90 C2 Command 1;
       HEX# 80000001 0 90 C2 Line Address;


       LABL 0 0 0 b1 IPARS Host message data ;
       TNXT 0 0 0 0 IPAR_MSG_LINES_DISP;


void IPAR_MSG_UNDETERMINED;
       LABL 0 0 0 b1 IPARS Message;

       HEX# 80000001 0 90 C2 IA;
       HEX# 80000001 0 90 C2 TA;

       LABL 0 0 0 b1 IPARS message data ;

       TNXT 0 0 0 0 IPAR_MSG_LINES_DISP;


void IPAR_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 IPAR_END;	  
       SUBG 2 f 0 0;		  
       TEQU 0 4 0 0 IPAR_END;	  
       DGLB 0 4 01 01 ;
       LABL 0 0 01 01 -bytes;
       TNXT -IPAR_MSG_LINES_DISP_NEXT;


void IPAR_MSG_LINES_DISP_NEXT;
       LABL 0 0 91 d0;	 
       TGTE 3f 4 0 0 IPAR_LINES_REM;

       MOVE 40 5 0 0;
       SUBG 40 4 0 0;
       TNXT 0 0 0 0 IPAR_LINES;


void IPAR_LINES;
       GBYT 0 1 0 0;
       TEQU ff 1 0 0 IPAR_END;
       INCR 1 0 0 0;


       ANDG 3f 1 0 0;


       CEQU 0d 1 3 3 ~;
       TEQU 0d 1 0 0 IPAR_LINES_EOM;
       CEQU 1d 1 3 3 ~;
       TEQU 1d 1 0 0 IPAR_LINES_EOM;
       CEQU 2d 1 3 3 ~;
       TEQU 2d 1 0 0 IPAR_LINES_EOM;
       CEQU 3d 1 3 3 ~;
       TEQU 3d 1 0 0 IPAR_LINES_EOM;


       CEQU 00 1 3 3 ~;
       TEQU 00 1 0 0 IPAR_LINES_200;

       CEQU 0c 1 3 3 ^;
       TEQU 0c 1 0 0 IPAR_MSG_LINES_DISP_NEXT;

       CEQU 1c 1 3 3 _;
       TEQU 1c 1 0 0 IPAR_LINES_200;
       CEQU 1e 1 3 3 ~;
       TEQU 1e 1 0 0 IPAR_LINES_200;
       CEQU 3e 1 3 3 ~;
       TEQU 3e 1 0 0 IPAR_LINES_200;
       CEQU 3f 1 3 3 ~;
       TEQU 3f 1 0 0 IPAR_LINES_200;


       ADDG 1 1 0 0;
       CST# 0 1 3 3 IPARS_ASCII;
       TNXT 0 0 0 0 IPAR_LINES_200;

void IPAR_LINES_200;
       SUBG 1 5 0 0;
       TNEQ 0 5 0 0 IPAR_LINES;
       TNXT 0 0 0 0 IPAR_MSG_LINES_DISP_NEXT;


void IPAR_LINES_REM;
       GBYT 0 1 0 0;
       TEQU ff 1 0 0 IPAR_END;
       INCR 1 0 0 0;


       ANDG 3f 1 0 0;


       CEQU 0d 1 3 3 ~;
       TEQU 0d 1 0 0 IPAR_LINES_EOM;
       CEQU 1d 1 3 3 ~;
       TEQU 1d 1 0 0 IPAR_LINES_EOM;
       CEQU 2d 1 3 3 ~;
       TEQU 2d 1 0 0 IPAR_LINES_EOM;
       CEQU 3d 1 3 3 ~;
       TEQU 3d 1 0 0 IPAR_LINES_EOM;


       CEQU 00 1 3 3 ~;
       TEQU 00 1 0 0 IPAR_REM_200;

       CEQU 0c 1 3 3 ^; 	
       TEQU 0c 1 0 0 IPAR_MSG_LINES_DISP_NEXT;

       CEQU 1c 1 3 3 _;
       TEQU 1c 1 0 0 IPAR_REM_200;
       CEQU 1e 1 3 3 ~;
       TEQU 1e 1 0 0 IPAR_REM_200;
       CEQU 3e 1 3 3 ~;
       TEQU 3e 1 0 0 IPAR_REM_200;
       CEQU 3f 1 3 3 ~;
       TEQU 3f 1 0 0 IPAR_REM_200;


       ADDG 1 1 0 0;
       CST# 0 1 03 03 IPARS_ASCII;
       TNXT 0 0 0 0 IPAR_REM_200;

void IPAR_REM_200;
       SUBG 1 4 0 0;
       TNEQ 0 4 0 0 IPAR_LINES_REM;
       TNXT -IPAR_END;


void IPAR_END;
       INCR 1 0 0 0;
       GBYT 0 1 0 0;
       TNEQ ce 1 0 0 IPAR_END_DONE;


       DECR 4 0 0 0;

       HEX# 80000001 0 02 C2 CRC Error - ;

       INCR 3 0 0 0;
       TNXT -IPAR_END_DONE;



void IPAR_END_DONE;
       BREM 0 4 0 0;	 
       CHR# 0 4 05 05;	
void IPAR_LINES_EOM;

       INCR 1 0 0 0;	

       INCR 2 0 0 0;	
       GBYT 0 1 0 0;
       TEQU ff 1 0 0 IPAR_END;	
       DECR 2 0 0 0;		
       TNXT 0 0 0 0 Mocha_IPARS;


str# IPARS_ASCII;
    nul ;
     1;
     2;
     3;
     4;
     5;
     6;
     7;
     8;
     9;
     0;
     *;
    nl ;
    emi ;
     =;
     ";
     ';
     /;
     S;
     T;
     U;
     V;
     W;
     X;
     Y;
     Z;
     -;
     |;
    sp ;
    emc ;
    som ;
     ';
     @;
     J;
     K;
     L;
     M;
     N;
     O;
     P;
     Q;
     R;
     :;
     <;
     +;
    emu ;
     );
     (;
     $;
     A;
     B;
     C;
     D;
     E;
     F;
     G;
     H;
     I;
     ?;
     .;
     %;
    emp ;
    sy2 ;
    sy1 ;