#include <perms.h>

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

extern void MYPROC(int RC) __asm__("S#XXX");

//     2
//     3  %begin

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

  //     4    printstring("Calling S#XXX"); newline

  _imp_PRINTSTRING(_imp_str_literal("Calling S#XXX"));
  _imp_NEWLINE();

  //     5    myproc(42)

  MYPROC(42);

  //     6    printstring("Done!"); newline

  _imp_PRINTSTRING(_imp_str_literal("Done!"));
  _imp_NEWLINE();

  //     7  %endofprogram

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