#include <perms.h>

//          Edinburgh IMP77 Compiler - Version 8.4
//
//     1  %externalroutinespec my exit %alias "exit" (%integer rc)

extern void MYEXIT(int RC) __asm__("exit");

//     2
//     3  %begin

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

  //     4    printstring("BEFORE:"); newline

  _imp_PRINTSTRING(_imp_str_literal("BEFORE:"));
  _imp_NEWLINE();

  //     5    my exit(1)

  MYEXIT(1);

  //     6    printstring("AFTER:"); newline

  _imp_PRINTSTRING(_imp_str_literal("AFTER:"));
  _imp_NEWLINE();

  //     7  %end

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

//     8
//     9  %endoffile