diff --git a/psys/include/p2c/newasm.h b/psys/include/p2c/newasm.h
index a8ff043292cdd65ea43e54b198c4ed3da3aab3ba..53d9bb840c24d5f575f8b9f1494287d364d982dc 100644
--- a/psys/include/p2c/newasm.h
+++ b/psys/include/p2c/newasm.h
@@ -10,9 +10,6 @@
 
 /*32 bits*/
 
-typedef char na_chararray[];
-
-
 typedef union na_word {
   short i;
   unsigned short u;
@@ -84,7 +81,6 @@ typedef union na_long {
 } na_long;
 
 #undef na_long
-typedef na_long na_longwordarray[];
 
 typedef union na_quadword {
   struct {
@@ -150,39 +146,15 @@ typedef union na_quadword {
   } U99;
 } na_quadword;
 
-typedef na_quadword na_quadwordarray[];
-
-
-extern void* *P_nil2;
-
-extern void na_fillbyte (long *d, long w, long n);
 extern void na_fillword (long *d, long w, long n);
 extern void na_fill (long *d, long w, long n);
-extern void na_fillp (void* d, long w, long n);
-extern void na_move (long *s, long *d, long size);
-extern void na_movep (void* s, void* d, long size);
 extern void na_exch (long *s, long *d, long size);
-extern void na_exchp (void* s, void* d, long size);
-extern long na_comp (long *a, long *b, long size);
-extern long na_compp (void* a, void* b, long size);
 extern long na_scaneq (long *s, long what, long size);
-extern long na_scaneqp (void* s, long what, long size);
-extern long na_scanne (long *s, long what, long size);
 
-extern long na_scannep (void* s, long what, long size);
-extern void na_new (void* *p, long s);
-extern void na_dispose (void* *p, long s);
 extern void na_alloc (void* *p, long s);
 extern void na_outeralloc (void* *p, long s, long parframe);
 extern void na_free (void* *p);
 
-extern long na_memavail ();
-extern long na_and (long x, long y);
-extern long na_bic (long x, long y);
-extern long na_or (long x, long y);
-extern long na_xor (long x, long y);
-extern long na_not (long x);
-extern int na_mask (long x, long y);
 extern int na_test (long n, long x);
 extern void na_set (long n, long *x);
 extern void na_clear (long n, long *x);
@@ -240,40 +212,19 @@ extern void P_iaminmax (long *min, long *max, long i);
 extern long P_isqrt (long n);
 
 extern long P_ipow (long y, long x);
-extern long na_add (long a, long b);
-extern long na_sub (long a, long b);
 extern void na_addc (long *a, long b, int *c);
 extern void na_subc (long *a, long b, int *c);
 extern long na_smul (long a, long b);
 extern long na_umul (long a, long b);
 extern na_quadword na_smul64 (long a, long b);
 extern na_quadword na_umul64 (long a, long b);
-extern void na_udiv64 (na_quadword *q, long *r, na_quadword a, long b);
-
-extern void na_sdiv64 (na_quadword *q, long *r, na_quadword a, long b);
-extern void P_return ();
-extern void P_returnb (int b);
-extern void P_returnc (int c);
-extern void P_returni (long i);
-extern void P_returnp (void* p);
 
-extern void P_returnr (double r);
 extern void* na_rtosr (double r);
 
 extern double na_srtor (void* sr);
 extern double na_stor (long s);
 extern long na_rtos (double r);
-extern long na_sm (long a, long b);
-extern long na_sd (long a, long b);
-extern long na_strunc (long s);
-extern long na_sround (long s);
-extern long na_sint (long s);
-extern long na_sfrac (long s);
-extern long na_itos (long s);
 
-extern long na_ssqrt (long s);
-extern void na_compint (na_long a, na_long b, long *res);
-extern void na_compstr (na_long a, na_long b, long *res);
 extern void na_qsort (na_long *a, long n, _PROCEDURE comp);
 
 extern void na_bfand (long *s, long soff, long *d, long doff, long size);