#include <perms.h>

//          Edinburgh IMP77 Compiler - Version 8.4
//
//     1  %begin

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

  //     2    %routine zero(%integer i)

  void ZERO(int I) {
    //     3      ! This is actually a Robertson pass1 bug: if (&i != &0) ...
    //     4      ! == should not be allowed against simple integers
    //     5      %if i==0 %start

    if (_imp_ADDR((void *)(/*?*/ &I)) != 0) goto L_0001;

      //     6      %finish

  L_0001:;

  //     7    %end

    return;
  } /* end of ZERO */

  //     8
  //     9    zero(1)

  ZERO(1);

  //    10
  //    11  %endofprogram

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