diff mathhalf.h @ 0:9008dbc8ca74

import original C code from GSM 06.06
author Mychaela Falconia <falcon@freecalypso.org>
date Fri, 14 Jun 2024 23:27:16 +0000
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/mathhalf.h	Fri Jun 14 23:27:16 2024 +0000
@@ -0,0 +1,97 @@
+#ifndef __MATHHALF
+#define __MATHHALF
+
+#include "typedefs.h"
+
+/*_________________________________________________________________________
+ |                                                                         |
+ |                            Function Prototypes                          |
+ |_________________________________________________________________________|
+*/
+
+/* addition */
+/************/
+
+Shortword add(Shortword var1, Shortword var2);  /* 1 ops */
+Shortword sub(Shortword var1, Shortword var2);  /* 1 ops */
+Longword L_add(Longword L_var1, Longword L_var2);       /* 2 ops */
+Longword L_sub(Longword L_var1, Longword L_var2);       /* 2 ops */
+
+/* multiplication */
+/******************/
+
+Shortword mult(Shortword var1, Shortword var2); /* 1 ops */
+Longword L_mult(Shortword var1, Shortword var2);        /* 1 ops */
+Shortword mult_r(Shortword var1, Shortword var2);       /* 2 ops */
+
+
+/* arithmetic shifts */
+/*********************/
+
+Shortword shr(Shortword var1, Shortword var2);  /* 1 ops */
+Shortword shl(Shortword var1, Shortword var2);  /* 1 ops */
+Longword L_shr(Longword L_var1, Shortword var2);        /* 2 ops */
+Longword L_shl(Longword L_var1, Shortword var2);        /* 2 ops */
+Shortword shift_r(Shortword var, Shortword var2);       /* 2 ops */
+Longword L_shift_r(Longword L_var, Shortword var2);     /* 3 ops */
+
+/* absolute value  */
+/*******************/
+
+Shortword abs_s(Shortword var1);       /* 1 ops */
+Longword L_abs(Longword var1);         /* 3 ops */
+
+
+/* multiply accumulate  */
+/************************/
+
+Longword L_mac(Longword L_var3,
+                      Shortword var1, Shortword var2);  /* 1 op */
+Shortword mac_r(Longword L_var3,
+                       Shortword var1, Shortword var2); /* 2 op */
+Longword L_msu(Longword L_var3,
+                      Shortword var1, Shortword var2);  /* 1 op */
+Shortword msu_r(Longword L_var3,
+                       Shortword var1, Shortword var2); /* 2 op */
+
+/* negation  */
+/*************/
+
+Shortword negate(Shortword var1);      /* 1 ops */
+Longword L_negate(Longword L_var1);    /* 2 ops */
+
+
+/* Accumulator manipulation */
+/****************************/
+
+Longword L_deposit_l(Shortword var1);  /* 1 ops */
+Longword L_deposit_h(Shortword var1);  /* 1 ops */
+Shortword extract_l(Longword L_var1);  /* 1 ops */
+Shortword extract_h(Longword L_var1);  /* 1 ops */
+
+/* Round */
+/*********/
+
+Shortword round(Longword L_var1);      /* 1 ops */
+
+/* Normalization */
+/*****************/
+
+Shortword norm_l(Longword L_var1);     /* 30 ops */
+Shortword norm_s(Shortword var1);      /* 15 ops */
+
+/* Division */
+/************/
+Shortword divide_s(Shortword var1, Shortword var2);     /* 18 ops */
+
+/* Non-saturating instructions */
+/*******************************/
+Longword L_add_c(Longword L_Var1, Longword L_Var2);     /* 2 ops */
+Longword L_sub_c(Longword L_Var1, Longword L_Var2);     /* 2 ops */
+Longword L_sat(Longword L_var1);       /* 4 ops */
+Longword L_macNs(Longword L_var3,
+                        Shortword var1, Shortword var2);        /* 1 ops */
+Longword L_msuNs(Longword L_var3,
+                        Shortword var1, Shortword var2);        /* 1 ops */
+
+#endif