


           IMP80 compiler release 1.0 Version 09 Feb 2022


  255   765
     1        %begin
int _imp_mainep(int _imp_argc, char **_imp_argv) {
     2        
     3          %integer a, b, c, d
  int A;
  int B;
  int C;
  int D;
     4          
     5          %real p, q, r
  float P;
  float Q;
  float R;
     6        
     7          b = 1
  B = 1;
     8          c = 2
  C = 2;
     9        
    10          a = b + c
  A = B + C;
    11          a = b - c
  A = B - C;
    12          a = b * c
  A = B * C;
    13          a = b // c
  A = B / C;
    14          a = b << c
  A = B << C;
    15          a = b >> c
  A = B >> C;
    16          a = b **** c
  A = IEXP(B, C);
    17        
    18        
    19        a = b + c + d
  A = B + C + D;
    20        a = b + c - d
  A = B + C - D;
    21        a = b + c * d
  A = B + C * D;
    22        a = b + c // d
  A = B + C / D;
    23        a = b + c << d
  A = B + (C << D);
    24        a = b + c >> d
  A = B + (C >> D);
    25        a = b + c **** d
  A = B + IEXP(C, D);
    26        
    27        a = b - c + d
  A = B - C + D;
    28        a = b - c - d
  A = B - C - D;
    29        a = b - c * d
  A = B - C * D;
    30        a = b - c // d
  A = B - C / D;
    31        a = b - c << d
  A = B - (C << D);
    32        a = b - c >> d
  A = B - (C >> D);
    33        a = b - c **** d
  A = B - IEXP(C, D);
    34        
    35        a = b * c + d
  A = B * C + D;
    36        a = b * c - d
  A = B * C - D;
    37        a = b * c * d
  A = B * C * D;
    38        a = b * c // d
  A = B * C / D;
    39        a = b * c << d
  A = B * (C << D);
    40        a = b * c >> d
  A = B * (C >> D);
    41        a = b * c **** d
  A = B * IEXP(C, D);
    42        
    43        a = b // c + d
  A = B / C + D;
    44        a = b // c - d
  A = B / C - D;
    45        a = b // c * d
  A = B / C * D;
    46        a = b // c // d
  A = B / C / D;
    47        a = b // c << d
  A = B / (C << D);
    48        a = b // c >> d
  A = B / (C >> D);
    49        a = b // c **** d
  A = B / IEXP(C, D);
    50        
    51        a = b << c + d
  A = (B << C) + D;
    52        a = b << c - d
  A = (B << C) - D;
    53        a = b << c * d
  A = (B << C) * D;
    54        a = b << c // d
  A = (B << C) / D;
    55        a = b << c << d
  A = B << C << D;
    56        a = b << c >> d
  A = B << C >> D;
    57        a = b << c **** d
  A = B << IEXP(C, D);
    58        
    59        a = b >> c + d
  A = (B >> C) + D;
    60        a = b >> c - d
  A = (B >> C) - D;
    61        a = b >> c * d
  A = (B >> C) * D;
    62        a = b >> c // d
  A = (B >> C) / D;
    63        a = b >> c << d
  A = B >> C << D;
    64        a = b >> c >> d
  A = B >> C >> D;
    65        a = b >> c **** d
  A = B >> IEXP(C, D);
    66        
    67        a = b **** c + d
  A = IEXP(B, C) + D;
    68        a = b **** c - d
  A = IEXP(B, C) - D;
    69        a = b **** c * d
  A = IEXP(B, C) * D;
    70        a = b **** c // d
  A = IEXP(B, C) / D;
    71        a = b **** c << d
  A = IEXP(B, C) << D;
    72        a = b **** c >> d
  A = IEXP(B, C) >> D;
    73        a = b **** c **** d
  A = IEXP(B, IEXP(C, D));
    74        
    75          q = 1.1
  Q = 1.1;
    76          r = 1.2
  R = 1.2;
    77        
    78          p = q ** r
  P = REXP(Q, R);
    79        
    80          p = q + r
  P = Q + R;
    81          p = q - r
  P = Q - R;
    82          p = q * r
  P = Q * R;
    83          p = q // r
  P = Q / R;
    84          
    85          a = b & c
  A = B & C;
    86          a = b ! c
  A = B | C;
    87          a = b !! c
  A = B ^ C;
    88          
    89          a = ~c
  A = ~C;
    90          a = -c
  A = -C;
    91          a = \c
  A = ~C;
    92        
    93        %endofprogram

  exit(0);
  /* End of program */
}
  93 lines analysed in 0 msecs - size = 3042
