#include <perms.h>

//          Edinburgh IMP77 Compiler - Version 8.4
//
//     1  %externalroutine myproc %alias "S#XXX" (%integer rc)

void MYPROC(int RC) {
  //     2    printstring("In Aliased procedure!  param="); write(rc, -1); newline

  _imp_PRINTSTRING(_imp_str_literal("In Aliased procedure!  param="));
  _imp_WRITE(RC, -1);
  _imp_NEWLINE();

  //     3  %end

  return;
} /* end of MYPROC */

//     4
//     5  %endoffile