1  /* Test various logical operations.  */
       2  
       3  TYPE arg1 (TYPE p, TYPE q) { return p & q; }		/* AND  */
       4  TYPE arg2 (TYPE p, TYPE q) { return p | q; }		/* OR   */
       5  TYPE arg3 (TYPE p, TYPE q) { return p ^ q; }		/* XOR  */
       6  TYPE arg4 (TYPE p)	   { return ~ p; }		/* NOR  */
       7  TYPE arg5 (TYPE p, TYPE q) { return ~(p & q); }		/* NAND */
       8  TYPE arg6 (TYPE p, TYPE q) { return ~(p | q); }		/* NOR  */
       9  TYPE arg7 (TYPE p, TYPE q) { return ~(p ^ q); }		/* EQV  */
      10  TYPE arg8 (TYPE p, TYPE q) { return (~p) & q; }		/* ANDC */
      11  TYPE arg9 (TYPE p, TYPE q) { return (~p) | q; }		/* ORC  */
      12  TYPE arg10(TYPE p, TYPE q) { return (~p) ^ q; }		/* EQV  */
      13  TYPE arg11(TYPE p, TYPE q) { return p & (~q); }		/* ANDC */
      14  TYPE arg12(TYPE p, TYPE q) { return p | (~q); }		/* ORC  */
      15  TYPE arg13(TYPE p, TYPE q) { return p ^ (~q); }		/* EQV  */
      16  
      17  void ptr1 (TYPE *p) { p[0] = p[1] & p[2]; }		/* AND  */
      18  void ptr2 (TYPE *p) { p[0] = p[1] | p[2]; }		/* OR   */
      19  void ptr3 (TYPE *p) { p[0] = p[1] ^ p[2]; }		/* XOR  */
      20  void ptr4 (TYPE *p) { p[0] = ~p[1]; }			/* NOR  */
      21  void ptr5 (TYPE *p) { p[0] = ~(p[1] & p[2]); }		/* NAND */
      22  void ptr6 (TYPE *p) { p[0] = ~(p[1] | p[2]); }		/* NOR  */
      23  void ptr7 (TYPE *p) { p[0] = ~(p[1] ^ p[2]); }		/* EQV  */
      24  void ptr8 (TYPE *p) { p[0] = ~(p[1]) & p[2]; }		/* ANDC */
      25  void ptr9 (TYPE *p) { p[0] = (~p[1]) | p[2]; }		/* ORC  */
      26  void ptr10(TYPE *p) { p[0] = (~p[1]) ^ p[2]; }		/* EQV  */
      27  void ptr11(TYPE *p) { p[0] = p[1] & (~p[2]); }		/* ANDC */
      28  void ptr12(TYPE *p) { p[0] = p[1] | (~p[2]); }		/* ORC  */
      29  void ptr13(TYPE *p) { p[0] = p[1] ^ (~p[2]); }		/* EQV  */