modules/src/em_code/crscon.c

   1 #include "em_private.h"
   2
   3 /* $Id: crscon.c,v 1.4 1994/06/24 11:10:01 ceriel Exp $ */
   4
   5 void
   6 CC_crscon(op, v, s)
   7         char *v;
   8         arith s;
   9 {
  10         /*      CON or ROM with argument SCON(v,z)
  11         */
  12         PS(op);
  13         SCON(v, s);
  14         CEND();
  15         NL();
  16 }