#include <perms.h>

//          Edinburgh IMP77 Compiler - Version 8.4
//
//     1  %diagnose 16_800F

// _imp_diagnose(0x800f); /* %diagnose is a compiler directive and does not generate code */

//     2
//     3  %begin

int main(int argc, char **argv) { /*%begin*/
  _imp_initialise(argc, argv);

  //     4     %integer a, b

  int A;
  int B;

  //     5
  //     6     a = 0

  A = 0;

  //     7     b = 0

  B = 0;

  //     8
  //     9     %routine incA

  void INCA(void) {
    //    10        a = 7

    A = 7;

    //    11     %end

    return;
  } /* end of INCA */

  //    12
  //    13     %routine incB

  void INCB(void) {
    //    14        b = 9

    B = 9;

    //    15     %end

    return;
  } /* end of INCB */

  //    16
  //    17     incA

  INCA();

  //    18     incB

  INCB();

  //    19     write(a, 0);  newline

  _imp_WRITE(A, 0);
  _imp_NEWLINE();

  //    20     write(b, 0);  newline

  _imp_WRITE(B, 0);
  _imp_NEWLINE();

  //    21  %endofprogram

  _imp_stop(0);
  return 0;
end_0:;
}