Pristine Ack-5.5
[Ack-5.5.git] / modules / src / em_code / bhucon.c
1 #include "em_private.h"
2
3 /* $Id: bhucon.c,v 1.4 1994/06/24 11:09:39 ceriel Exp $ */
4
5 void
6 CC_bhucon(op, n, s, sz, i)
7         arith n;
8         char *s;
9         arith sz;
10         int i;
11 {
12         /*      BSS or HOL with size n, initial value an UCON (s, sz),
13                 and flag i
14         */
15         PS(op);
16         CST(n);
17         COMMA();
18         WCON(sp_ucon, s, sz);
19         COMMA();
20         CST((arith) i);
21         NL();
22 }