#include <perms.h>

                                                                //      1  ! reconstituted from intexts
                                                                //      2  
                                                                //      3  %EXTERNALROUTINE RECODE(%INTEGER S, TO, BASE)
#line 3 "regression-compile-tmp/decode-77.imp"
void RECODE( int S, int TO, int BASE )
#line 3 "regression-compile-tmp/decode-77.imp"
{
                                                                //      4  %CONSTINTEGERARRAY OPCODES(0 : 255) =    %C
#line 4 "regression-compile-tmp/decode-77.imp"
const int OPCODES[256] = { 0, 0, 0, 0, 1397771552, 1111575634, 1111708754, 1111708192, 1397967648, 1230195488, 1398162208, 0, 0, 0, 0, 0, 1280332320, 1280201248, 1280594464, 1279480352, 1314005024, 1129075232, 1330782240, 1481777184, 1280450592, 1129455648, 1095901216, 1397891104, 1297227808, 1146232864, 1095520800, 1397510688, 1280328786, 1280197714, 1280590930, 1279476818, 1212437024, 1280459858, 1297633824, 1297630290, 1279545888, 1128550944, 1094996512, 1396986400, 1296323104, 1145328160, 1096241696, 1398231584, 1280329042, 1280197970, 1280591186, 1279477074, 1212502560, 1280460114, 1096307232, 1398297120, 1279611424, 1128616480, 1095062048, 1397051936, 1296388640, 1145393696, 1096110624, 1398100512, 1398032416, 1279336480, 1398031136, 1229135904, 1163403296, 1111575584, 1111708704, 1111695392, 1279795232, 1128800288, 1095245856, 1397235744, 1296572448, 0, 1129727008, 1129726496, 1398022176, 0, 0, 0, 1310728224, 1129062432, 1327505440, 1478500384, 1277173792, 1126178848, 1092624416, 1394614304, 1293951008, 1142956064, 1095508000, 1397497888, 1398031392, 0, 0, 0, 0, 0, 0, 1297630240, 1279533088, 1128538144, 1094983712, 1396973600, 1296310304, 1145315360, 1096228896, 1398218784, 1398031648, 0, 0, 0, 0, 0, 0, 0, 1279598624, 1128603680, 1095049248, 1397039136, 1296375840, 1145380896, 1096097824, 1398087712, 5460813, 0, 1280332631, 1145651527, 1465009184, 1380205600, 1113081888, 1113082949, 1397902368, 1397509152, 1397899552, 1397506336, 1397900364, 1397507148, 1397900353, 1397507137, 1398033696, 1414340640, 1297500448, 1414733856, 1313415200, 1129072928, 1330192416, 1481187360, 1280122912, 0, 0, 0, 1397313312, 1414090528, 1212763936, 1413695520, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1297501728, 1297498912, 1297504800, 1313021984, 1129071392, 1329799200, 1480794144, 0, 0, 0, 0, 1414668320, 1414681632, 1162092576, 1162104139, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1297501984, 1346454347, 1431195723, 0, 0, 0, 0, 1514229792, 1129324576, 1095770144, 1397760032, 1297096736, 1146101792, 0, 0,  };
                                                                //      5       0(4),
                                                                //      6  M'SPM ',M'BALR',M'BCTR',M'BCR ',M'SSK ',M'ISK ',M'SVC ',     0(5),
                                                                //      7  M'LPR ',
                                                                //      8  M'LNR ',M'LTR ',M'LCR ',M'NR  ',M'CLR ',M'OR  ',M'XR  ',M'LR  ',
                                                                //      9  M'CR  ',
                                                                //     10  M'AR  ',M'SR  ',M'MR  ',M'DR  ',M'ALR ',M'SLR ',M'LPDR',M'LNDR',
                                                                //     11  M'LTDR',
                                                                //     12  M'LCDR',M'HDR ',M'LRDR',M'MXR ',M'MXDR',M'LDR ',M'CDR ',M'ADR ',M'SDR ',
                                                                //     13  M'MDR ',
                                                                //     14  M'DDR ',M'AWR ',M'SWR ',M'LPER',M'LNER',M'LTER',M'LCER',M'HER ',M'LRER',
                                                                //     15  M'AXR ',
                                                                //     16  M'SXR ',M'LER ',M'CER ',M'AER ',M'SER ',M'MER ',M'DER ',M'AUR ',M'SUR ',
                                                                //     17  M'STH ',
                                                                //     18  M'LA  ',M'STC ',M'IC  ',M'EX  ',M'BAL ',M'BCT ',M'BC  ',M'LH  ',M'CH  ',
                                                                //     19  M'AH  ',
                                                                //     20  M'SH  ',M'MH  ',     0,
                                                                //     21  M'CVD ',
                                                                //     22  M'CVB ',M'ST  ',     0(3),M'N   ',M'CL  ',M'O   ',
                                                                //     23  M'X   ',
                                                                //     24  M'L   ',M'C   ',M'A   ',M'S   ',M'M   ',M'D   ',M'AL  ',M'SL  ',M'STD ',
                                                                //     25       0(6),
                                                                //     26  M'MXD ',
                                                                //     27  M'LD  ',M'CD  ',M'AD  ',M'SD  ',M'MD  ',M'DD  ',M'AW  ',M'SW  ',
                                                                //     28  M'STE ',
                                                                //     29       0(7),
                                                                //     30  M'LE  ',
                                                                //     31  M'CE  ',M'AE  ',M'SE  ',M'ME  ',M'DE  ',M'AU  ',M'SU  ',
                                                                //     32  M'SSM',
                                                                //     33       0,M'LPSW',M'DIAG',M'WRD ',M'RDD ',M'BXH ',M'BXLE',M'SRL ',M'SLL ',
                                                                //     34  M'SRA ',
                                                                //     35  M'SLA ',M'SRDL',M'SLDL',M'SRDA',M'SLDA',M'STM ',M'TM  ',M'MVI ',
                                                                //     36  M'TS  ',
                                                                //     37  M'NI  ',M'CLI ',M'OI  ',M'XI  ',M'LM  ',     0(3),
                                                                //     38  M'SIO ',
                                                                //     39  M'TIO ',M'HIO ',
                                                                //     40  M'TCH ',
                                                                //     41       0(49),
                                                                //     42  M'MVN ',
                                                                //     43  M'MVC ',M'MVZ ',M'NC  ',M'CLC ',M'OC  ',M'XC  ',     0(4),
                                                                //     44  M'TR  ',
                                                                //     45  M'TRT ',M'ED  ',M'EDMK',     0(17),M'MVO ',M'PACK',M'UNPK',     0(4),
                                                                //     46  M'ZAP ',
                                                                //     47  M'CP  ',M'AP  ',M'SP  ',M'MP  ',M'DP  ',     0,     0
                                                                //     48  %INTEGER J, K, L, M
#line 48 "regression-compile-tmp/decode-77.imp"
int J;
#line 48 "regression-compile-tmp/decode-77.imp"
int K;
#line 48 "regression-compile-tmp/decode-77.imp"
int L;
#line 48 "regression-compile-tmp/decode-77.imp"
int M;
                                                                //     49  %INTEGER T
#line 49 "regression-compile-tmp/decode-77.imp"
int T;
                                                                //     50  %ROUTINESPEC HEX(%INTEGER N)
#line 50 "regression-compile-tmp/decode-77.imp"
auto void HEX( int N );
                                                                //     51  %ROUTINESPEC HEX8(%INTEGER N)
#line 51 "regression-compile-tmp/decode-77.imp"
auto void HEX8( int N );
                                                                //     52  %ROUTINESPEC PUT(%INTEGER S, C)
#line 52 "regression-compile-tmp/decode-77.imp"
auto void PUT( int S, int C );
                                                                //     53  
                                                                //     54  !printstring("RECODE(X'"); HEX8(S)
                                                                //     55  !printstring("', X'"); HEX8(TO)
                                                                //     56  !printstring("', X'"); HEX8(BASE)
                                                                //     57  !printstring("')".snl)
                                                                //     58            S = S&(\1)
#line 58 "regression-compile-tmp/decode-77.imp"
S = ((S) & ((~(1))));
                                                                //     59  BASE = BASE-S
#line 59 "regression-compile-tmp/decode-77.imp"
BASE = (((int)(BASE)) - (S));
                                                                //     60  L1:        NEWLINE
#line 60 "regression-compile-tmp/decode-77.imp"
U_1000:;
#line 60 "regression-compile-tmp/decode-77.imp"
_imp_NEWLINE();
                                                                //     61            NEWLINE %AND %RETURN %IF S >= TO
#line 61 "regression-compile-tmp/decode-77.imp"
if (((S) < (TO))) goto L_0002;
#line 61 "regression-compile-tmp/decode-77.imp"
_imp_NEWLINE();
#line 61 "regression-compile-tmp/decode-77.imp"
/* Remove %on %event handler here if present for this block */
return;
#line 61 "regression-compile-tmp/decode-77.imp"
L_0002:;
                                                                //     62  PRINT STRING("C ")
#line 62 "regression-compile-tmp/decode-77.imp"
_imp_PRINTSTRING(_imp_str_literal("C "));
                                                                //     63            HEX8(BASE+S)
#line 63 "regression-compile-tmp/decode-77.imp"
HEX8((((int)(BASE)) + (S)));
                                                                //     64            SPACES(4)
#line 64 "regression-compile-tmp/decode-77.imp"
_imp_SPACES(4);
                                                                //     65            J = SHORTINTEGER(S);  S = S+2
#line 65 "regression-compile-tmp/decode-77.imp"
J = *_imp_SHORTINTEGER(S);
#line 65 "regression-compile-tmp/decode-77.imp"
S = (((int)(S)) + (2));
                                                                //     66            M = J>>8&255
#line 66 "regression-compile-tmp/decode-77.imp"
M = (((int)((((unsigned int)(J)) >> (8)))) & (255));
                                                                //     67            T = OPCODES(M)
#line 67 "regression-compile-tmp/decode-77.imp"
T = OPCODES[M];
                                                                //     68            HEX(J)
#line 68 "regression-compile-tmp/decode-77.imp"
HEX(J);
                                                                //     69            -> L1 %IF T = 0
#line 69 "regression-compile-tmp/decode-77.imp"
if (((T) != (0))) goto L_0003;
#line 69 "regression-compile-tmp/decode-77.imp"
goto U_1000;
#line 69 "regression-compile-tmp/decode-77.imp"
L_0003:;
                                                                //     70            %IF M>>6 = 0 %THEN %START;    ! RR
#line 70 "regression-compile-tmp/decode-77.imp"
if ((((int)((((unsigned int)(M)) >> (6)))) != (0))) goto L_0004;
                                                                //     71               PUT(12,T)
#line 71 "regression-compile-tmp/decode-77.imp"
PUT(12, T);
                                                                //     72               WRITE(J>>4&15,4)
#line 72 "regression-compile-tmp/decode-77.imp"
_imp_WRITE((((int)((((unsigned int)(J)) >> (4)))) & (15)), 4);
                                                                //     73               print symbol(',')
#line 73 "regression-compile-tmp/decode-77.imp"
_imp_PRINTSYMBOL(44);
                                                                //     74               WRITE(J&15,2)
#line 74 "regression-compile-tmp/decode-77.imp"
_imp_WRITE(((J) & (15)), 2);
                                                                //     75               -> L1
#line 75 "regression-compile-tmp/decode-77.imp"
goto U_1000;
                                                                //     76            %FINISH
#line 76 "regression-compile-tmp/decode-77.imp"
L_0004:;
                                                                //     77            K = SHORTINTEGER(S);  S = S+2
#line 77 "regression-compile-tmp/decode-77.imp"
K = *_imp_SHORTINTEGER(S);
#line 77 "regression-compile-tmp/decode-77.imp"
S = (((int)(S)) + (2));
                                                                //     78            HEX(K)
#line 78 "regression-compile-tmp/decode-77.imp"
HEX(K);
                                                                //     79            %IF M>>6 = 1 %THEN %START;    !  RX
#line 79 "regression-compile-tmp/decode-77.imp"
if ((((int)((((unsigned int)(M)) >> (6)))) != (1))) goto L_0005;
                                                                //     80               PUT(8,T)
#line 80 "regression-compile-tmp/decode-77.imp"
PUT(8, T);
                                                                //     81               WRITE(J>>4&15,4);  print symbol(',')
#line 81 "regression-compile-tmp/decode-77.imp"
_imp_WRITE((((int)((((unsigned int)(J)) >> (4)))) & (15)), 4);
#line 81 "regression-compile-tmp/decode-77.imp"
_imp_PRINTSYMBOL(44);
                                                                //     82               WRITE(K&X'FFF',4);  print symbol('(')
#line 82 "regression-compile-tmp/decode-77.imp"
_imp_WRITE(((K) & (4095)), 4);
#line 82 "regression-compile-tmp/decode-77.imp"
_imp_PRINTSYMBOL(40);
                                                                //     83               WRITE(J&15,2);  print symbol(',')
#line 83 "regression-compile-tmp/decode-77.imp"
_imp_WRITE(((J) & (15)), 2);
#line 83 "regression-compile-tmp/decode-77.imp"
_imp_PRINTSYMBOL(44);
                                                                //     84  L3:           WRITE(K>>12&15,2);  print symbol(')')
#line 84 "regression-compile-tmp/decode-77.imp"
U_1001:;
#line 84 "regression-compile-tmp/decode-77.imp"
_imp_WRITE((((int)((((unsigned int)(K)) >> (12)))) & (15)), 2);
#line 84 "regression-compile-tmp/decode-77.imp"
_imp_PRINTSYMBOL(41);
                                                                //     85               -> L1
#line 85 "regression-compile-tmp/decode-77.imp"
goto U_1000;
                                                                //     86            %FINISH
#line 86 "regression-compile-tmp/decode-77.imp"
L_0005:;
                                                                //     87            %IF M&X'F8' = X'88' %THEN %START
#line 87 "regression-compile-tmp/decode-77.imp"
if (((((M) & (248))) != (136))) goto L_0006;
                                                                //     88               PUT(8,T)
#line 88 "regression-compile-tmp/decode-77.imp"
PUT(8, T);
                                                                //     89               WRITE(J>>4&15,4);  print symbol(',')
#line 89 "regression-compile-tmp/decode-77.imp"
_imp_WRITE((((int)((((unsigned int)(J)) >> (4)))) & (15)), 4);
#line 89 "regression-compile-tmp/decode-77.imp"
_imp_PRINTSYMBOL(44);
                                                                //     90  L2:           WRITE(K&X'FFF',4);  print symbol('(')
#line 90 "regression-compile-tmp/decode-77.imp"
U_1002:;
#line 90 "regression-compile-tmp/decode-77.imp"
_imp_WRITE(((K) & (4095)), 4);
#line 90 "regression-compile-tmp/decode-77.imp"
_imp_PRINTSYMBOL(40);
                                                                //     91               -> L3
#line 91 "regression-compile-tmp/decode-77.imp"
goto U_1001;
                                                                //     92            %FINISH
#line 92 "regression-compile-tmp/decode-77.imp"
L_0006:;
                                                                //     93            %IF M > 192 %THEN %START
#line 93 "regression-compile-tmp/decode-77.imp"
if (((M) <= (192))) goto L_0007;
                                                                //     94               L = SHORTINTEGER(S);  S = S+2
#line 94 "regression-compile-tmp/decode-77.imp"
L = *_imp_SHORTINTEGER(S);
#line 94 "regression-compile-tmp/decode-77.imp"
S = (((int)(S)) + (2));
                                                                //     95               HEX(L)
#line 95 "regression-compile-tmp/decode-77.imp"
HEX(L);
                                                                //     96               PUT(4,T)
#line 96 "regression-compile-tmp/decode-77.imp"
PUT(4, T);
                                                                //     97               WRITE(K&X'FFF',5);  print symbol('(')
#line 97 "regression-compile-tmp/decode-77.imp"
_imp_WRITE(((K) & (4095)), 5);
#line 97 "regression-compile-tmp/decode-77.imp"
_imp_PRINTSYMBOL(40);
                                                                //     98               %IF M>>4&15 # 15 %THEN WRITE(J&255+1,2) %C
#line 98 "regression-compile-tmp/decode-77.imp"
if ((((((int)((((unsigned int)(M)) >> (4)))) & (15))) == (15))) goto L_0008;
#line 98 "regression-compile-tmp/decode-77.imp"
_imp_WRITE((((int)(((J) & (255)))) + (1)), 2);
#line 98 "regression-compile-tmp/decode-77.imp"
goto L_0009;
#line 98 "regression-compile-tmp/decode-77.imp"
L_0008:;
#line 98 "regression-compile-tmp/decode-77.imp"
_imp_WRITE((((int)((((unsigned int)(J)) >> (4)))) & (15)), 2);
#line 98 "regression-compile-tmp/decode-77.imp"
L_0009:;
                                                                //     99                  %ELSE WRITE(J>>4&15,2)
                                                                //    100               print symbol(',')
#line 100 "regression-compile-tmp/decode-77.imp"
_imp_PRINTSYMBOL(44);
                                                                //    101               WRITE(K>>12&15,2);  print symbol(')');  print symbol(',')
#line 101 "regression-compile-tmp/decode-77.imp"
_imp_WRITE((((int)((((unsigned int)(K)) >> (12)))) & (15)), 2);
#line 101 "regression-compile-tmp/decode-77.imp"
_imp_PRINTSYMBOL(41);
#line 101 "regression-compile-tmp/decode-77.imp"
_imp_PRINTSYMBOL(44);
                                                                //    102               WRITE(L&X'FFF',4);  print symbol('(')
#line 102 "regression-compile-tmp/decode-77.imp"
_imp_WRITE(((L) & (4095)), 4);
#line 102 "regression-compile-tmp/decode-77.imp"
_imp_PRINTSYMBOL(40);
                                                                //    103               %IF M>>4&15 = 15 %THEN %START
#line 103 "regression-compile-tmp/decode-77.imp"
if ((((((int)((((unsigned int)(M)) >> (4)))) & (15))) != (15))) goto L_000a;
                                                                //    104                  WRITE(J&15,2);  print symbol(',')
#line 104 "regression-compile-tmp/decode-77.imp"
_imp_WRITE(((J) & (15)), 2);
#line 104 "regression-compile-tmp/decode-77.imp"
_imp_PRINTSYMBOL(44);
                                                                //    105               %FINISH
#line 105 "regression-compile-tmp/decode-77.imp"
L_000a:;
                                                                //    106               WRITE(L>>12&15,2);  print symbol(')')
#line 106 "regression-compile-tmp/decode-77.imp"
_imp_WRITE((((int)((((unsigned int)(L)) >> (12)))) & (15)), 2);
#line 106 "regression-compile-tmp/decode-77.imp"
_imp_PRINTSYMBOL(41);
                                                                //    107               -> L1
#line 107 "regression-compile-tmp/decode-77.imp"
goto U_1000;
                                                                //    108            %FINISH
#line 108 "regression-compile-tmp/decode-77.imp"
L_0007:;
                                                                //    109            %IF M = 134 %OR M = 135 %OR M = 144 %OR M = 152 %THEN %START
#line 109 "regression-compile-tmp/decode-77.imp"
if (((M) == (134))) goto L_000b;
#line 109 "regression-compile-tmp/decode-77.imp"
if (((M) == (135))) goto L_000b;
#line 109 "regression-compile-tmp/decode-77.imp"
if (((M) == (144))) goto L_000b;
#line 109 "regression-compile-tmp/decode-77.imp"
if (((M) != (152))) goto L_000c;
#line 109 "regression-compile-tmp/decode-77.imp"
L_000b:;
                                                                //    110               PUT(8,T)
#line 110 "regression-compile-tmp/decode-77.imp"
PUT(8, T);
                                                                //    111               WRITE(J>>4&15,4);  print symbol(',')
#line 111 "regression-compile-tmp/decode-77.imp"
_imp_WRITE((((int)((((unsigned int)(J)) >> (4)))) & (15)), 4);
#line 111 "regression-compile-tmp/decode-77.imp"
_imp_PRINTSYMBOL(44);
                                                                //    112               WRITE(J&15,2);  print symbol(',')
#line 112 "regression-compile-tmp/decode-77.imp"
_imp_WRITE(((J) & (15)), 2);
#line 112 "regression-compile-tmp/decode-77.imp"
_imp_PRINTSYMBOL(44);
                                                                //    113               -> L2
#line 113 "regression-compile-tmp/decode-77.imp"
goto U_1002;
                                                                //    114            %FINISH
#line 114 "regression-compile-tmp/decode-77.imp"
L_000c:;
                                                                //    115            PUT(8,T)
#line 115 "regression-compile-tmp/decode-77.imp"
PUT(8, T);
                                                                //    116            WRITE(K&X'FFF',5);  print symbol('(')
#line 116 "regression-compile-tmp/decode-77.imp"
_imp_WRITE(((K) & (4095)), 5);
#line 116 "regression-compile-tmp/decode-77.imp"
_imp_PRINTSYMBOL(40);
                                                                //    117            WRITE(K>>12&15,2);  print symbol(')')
#line 117 "regression-compile-tmp/decode-77.imp"
_imp_WRITE((((int)((((unsigned int)(K)) >> (12)))) & (15)), 2);
#line 117 "regression-compile-tmp/decode-77.imp"
_imp_PRINTSYMBOL(41);
                                                                //    118            print symbol(',')
#line 118 "regression-compile-tmp/decode-77.imp"
_imp_PRINTSYMBOL(44);
                                                                //    119            WRITE(J&255,2)
#line 119 "regression-compile-tmp/decode-77.imp"
_imp_WRITE(((J) & (255)), 2);
                                                                //    120            -> L1
#line 120 "regression-compile-tmp/decode-77.imp"
goto U_1000;
                                                                //    121  
                                                                //    122  %ROUTINE HEX(%INTEGER N)
#line 122 "regression-compile-tmp/decode-77.imp"
void HEX( int N )
#line 122 "regression-compile-tmp/decode-77.imp"
{
                                                                //    123  %CONSTBYTEINTEGERARRAY XSYM(0 : 15) = %C
#line 123 "regression-compile-tmp/decode-77.imp"
const unsigned char XSYM[16] = { 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 65, 66, 67, 68, 69, 70,  };
                                                                //    124     '0', '1', '2', '3',
                                                                //    125     '4', '5', '6', '7',
                                                                //    126     '8', '9', 'A', 'B',
                                                                //    127     'C', 'D', 'E', 'F'
                                                                //    128  %INTEGER J, S
#line 128 "regression-compile-tmp/decode-77.imp"
int J;
#line 128 "regression-compile-tmp/decode-77.imp"
int S;
                                                                //    129            %CYCLE J = 1,1,4; !8
#line 129 "regression-compile-tmp/decode-77.imp"
J = 0;
if ((((4)-(1)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle J = 1, 1, 4");
L_000d:;
if (J == 4) goto L_000e;
J += 1;
                                                                //    130               S = (N>>12)&15; !S = N>>28
#line 130 "regression-compile-tmp/decode-77.imp"
S = (((int)((((unsigned int)(N)) >> (12)))) & (15));
                                                                //    131               N = N<<4
#line 131 "regression-compile-tmp/decode-77.imp"
N = ((N) << (4));
                                                                //    132               PRINTSYMBOL(XSYM(S))
#line 132 "regression-compile-tmp/decode-77.imp"
_imp_PRINTSYMBOL(XSYM[S]);
                                                                //    133            %REPEAT
#line 133 "regression-compile-tmp/decode-77.imp"
goto L_000d;
#line 133 "regression-compile-tmp/decode-77.imp"
L_000e:;
                                                                //    134  %END
#line 134 "regression-compile-tmp/decode-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block HEX at level 2
                                                                //    135  
                                                                //    136  %ROUTINE HEX8(%INTEGER N)
#line 136 "regression-compile-tmp/decode-77.imp"
void HEX8( int N )
#line 136 "regression-compile-tmp/decode-77.imp"
{
                                                                //    137  %CONSTBYTEINTEGERARRAY XSYM(0 : 15) = %C
#line 137 "regression-compile-tmp/decode-77.imp"
const unsigned char XSYM[16] = { 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 65, 66, 67, 68, 69, 70,  };
                                                                //    138     '0', '1', '2', '3',
                                                                //    139     '4', '5', '6', '7',
                                                                //    140     '8', '9', 'A', 'B',
                                                                //    141     'C', 'D', 'E', 'F'
                                                                //    142  %INTEGER J, S
#line 142 "regression-compile-tmp/decode-77.imp"
int J;
#line 142 "regression-compile-tmp/decode-77.imp"
int S;
                                                                //    143            %CYCLE J = 1,1,8
#line 143 "regression-compile-tmp/decode-77.imp"
J = 0;
if ((((8)-(1)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle J = 1, 1, 8");
L_0010:;
if (J == 8) goto L_0011;
J += 1;
                                                                //    144               S = (N>>28)&15
#line 144 "regression-compile-tmp/decode-77.imp"
S = (((int)((((unsigned int)(N)) >> (28)))) & (15));
                                                                //    145               N = N<<4
#line 145 "regression-compile-tmp/decode-77.imp"
N = ((N) << (4));
                                                                //    146               PRINTSYMBOL(XSYM(S))
#line 146 "regression-compile-tmp/decode-77.imp"
_imp_PRINTSYMBOL(XSYM[S]);
                                                                //    147            %REPEAT
#line 147 "regression-compile-tmp/decode-77.imp"
goto L_0010;
#line 147 "regression-compile-tmp/decode-77.imp"
L_0011:;
                                                                //    148  %END
#line 148 "regression-compile-tmp/decode-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block HEX8 at level 2
                                                                //    149  
                                                                //    150  %ROUTINE PUT(%INTEGER SP, SYMS)
#line 150 "regression-compile-tmp/decode-77.imp"
void PUT( int SP, int SYMS )
#line 150 "regression-compile-tmp/decode-77.imp"
{
                                                                //    151  %INTEGER I
#line 151 "regression-compile-tmp/decode-77.imp"
int I;
                                                                //    152           SPACES(SP)
#line 152 "regression-compile-tmp/decode-77.imp"
_imp_SPACES(SP);
                                                                //    153           %CYCLE I = 1,1,4
#line 153 "regression-compile-tmp/decode-77.imp"
I = 0;
if ((((4)-(1)) % (1)) != 0) _imp_signal(5,1,0,"Illegal cycle I = 1, 1, 4");
L_0013:;
if (I == 4) goto L_0014;
I += 1;
                                                                //    154              PRINT SYMBOL(SYMS>>24&127); SYMS = SYMS << 8
#line 154 "regression-compile-tmp/decode-77.imp"
_imp_PRINTSYMBOL((((int)((((unsigned int)(SYMS)) >> (24)))) & (127)));
#line 154 "regression-compile-tmp/decode-77.imp"
SYMS = ((SYMS) << (8));
                                                                //    155           %REPEAT
#line 155 "regression-compile-tmp/decode-77.imp"
goto L_0013;
#line 155 "regression-compile-tmp/decode-77.imp"
L_0014:;
                                                                //    156  %END
#line 156 "regression-compile-tmp/decode-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block PUT at level 2
                                                                //    157  
                                                                //    158  %END
#line 158 "regression-compile-tmp/decode-77.imp"
/* Remove %on %event handler here if present for this block */
return;
} // End of block RECODE at level 1
                                                                //    159  
                                                                //    160  %begin
#line 160 "regression-compile-tmp/decode-77.imp"
int main(int argc, char **argv) {
  _imp_initialise(argc, argv);
                                                                //    161  %end
#line 161 "regression-compile-tmp/decode-77.imp"
/* Remove %on %event handler here if present for this block */
return 0;
} // End of block _imp_main at level 1
                                                                //    162  
                                                                //    163  %ENDOFFILE
#line 163 "regression-compile-tmp/decode-77.imp"
// End of file
