#include <perms.h>

//          Edinburgh IMP77 Compiler - Version 8.4
//
//     1  %externalroutine xr1(%integer p1)

void XR1(int P1) {
  //     2    %real r1

  float R1;

  //     3  %end

  return;
} /* end of XR1 */

// ?R1 unused
// ?P1 unused
//     4
//     5  %externalroutine xr2(%integer p1, p2, p3, p4)

void XR2(int P1, int P2, int P3, int P4) {
  //     6    %real r1

  float R1;

  //     7  %end

  return;
} /* end of XR2 */

// ?R1 unused
// ?P4 unused
// ?P3 unused
// ?P2 unused
// ?P1 unused
//     8
//     9  %externalroutine xr3(%integer p1, p2, %real r1, r2)

void XR3(int P1, int P2, float R1, float R2) {
  //    10    %real r3

  float R3;

  //    11  %end

  return;
} /* end of XR3 */

// ?R3 unused
// ?R2 unused
// ?R1 unused
// ?P2 unused
// ?P1 unused
//    12
//    13  %endoffile