{"id":429,"date":"2021-08-19T10:36:31","date_gmt":"2021-08-19T08:36:31","guid":{"rendered":"https:\/\/automatico.freevar.com\/?page_id=429"},"modified":"2021-09-28T17:53:14","modified_gmt":"2021-09-28T15:53:14","slug":"libv","status":"publish","type":"page","link":"https:\/\/automatico.freevar.com\/index.php\/cp-m-80-2\/hitech-c-per-z80\/librerie\/libv\/","title":{"rendered":"LIBV"},"content":{"rendered":"

This library collects the invocations to functions that are not present in Hi-tech C 3.09 which I believe are important.<\/span><\/p>\n

Below are the individual modules to be filled in individually and then linked in the LIBV.LIB library<\/span><\/p>\n

I wrote a version of the FMOD module in assembler z80 which you will find at this address<\/span> https:\/\/automatico.freevar.com\/index.php\/cp-m-80-2\/hitech-c-per-z80\/passaggio-parametri\/2<\/a><\/span><\/p>\n

\r\n\/* exp.c *\/\r\n\/* questa funzione rende disponibile anche la funzione "pow" \r\n   con floating point elevato a floating point *\/\r\n#include        <math.h>\r\n\r\nextern double   eval_poly();\r\ndouble\r\nexp(x)\r\ndouble x;\r\n{\r\n        int     exp;\r\n        char    sign;\r\n\r\n        static double coeff[] =\r\n        {\r\n                1.0000000000e+00,\r\n                6.9314718056e-01,\r\n                2.4022650695e-01,\r\n                5.5504108945e-02,\r\n                9.6181261779e-03,\r\n                1.3333710529e-03,\r\n                1.5399104432e-04,\r\n                1.5327675257e-05,\r\n                1.2485143336e-06,\r\n                1.3908092221e-07,\r\n        };\r\n\r\n        if(x == 0.0)\r\n                return 1.0;\r\n        sign = x < 0.0;\r\n        if(sign)\r\n                x = -x;\r\n        x *= 1.4426950409;              \/* convert to log2 *\/\r\n        exp = (int)floor(x);\r\n        x -= (double)exp;\r\n        x = ldexp(eval_poly(x, coeff, sizeof coeff\/sizeof coeff[0] - 1), exp);\r\n        if(sign)\r\n                return 1.0\/x;\r\n        return x;\r\n}\r\n\r\ndouble\r\npow(x, y)\r\ndouble  x, y;\r\n{\r\n        if(y == 0.0)\r\n                return 1.0;\r\n        if(x < 0.0)\r\n                return 0.0;\r\n        if(x == 0.0)\r\n                return 0.0;\r\n        x = exp(log(x) * y);\r\n        return x;\r\n}\r\n<\/pre>\n
\r\n\/* floor.c *\/\r\n\/* La funzione floor restituisce un valore floating point che rappresenta \r\n   il numero intero pi\u00f9 grande ma minore o uguale a quello passato.\r\n   Non restituisce alcun errore.\r\n*\/\r\n#include        <math.h>\r\n\r\nextern double   _frndint();\r\n\r\ndouble\r\nfloor(x)\r\ndouble  x;\r\n{\r\n        double  i;\r\n\r\n        i = _frndint(x);\r\n        if(i > x)\r\n                return i - 1.0;\r\n        return i;\r\n}\r\n<\/pre>\n
\r\n\/* fmod.c *\/\r\n#include <math.h>\r\n#include <float.h>\r\n\/* calcolo del resto della divisione di due numeri in floating point *\/\r\n\r\ndouble\r\nfmod(x, y)\r\ndouble x, y;\r\n{\r\n\/* resto in floating point                      *\/\r\n        double mod;\r\n\r\n\/* se il divisore vale zero la divisione vale infinito *\/\r\n\/* il massimo valore esprimibile in floating point si ritiene\r\n   che sia un valore infinito. In Hi-tech c per Z80 vale 1.84467e19\r\n        if (y == 0.0)\r\n        {\r\n                return FLT_MAX;\r\n        }\r\n\r\n\/* se il dividendo vale zero allora il resto vale zero *\/\r\n        if (x == 0.0)\r\n        {\r\n                return 0.0;\r\n        }\r\n\r\n\/* se il dividendo e\u2019 negativo il valore iniziale del modulo vale il dividendo ma positivo *\/\r\n        if (x < 0.0)\r\n        {\r\n                mod=-x;\r\n        }\r\n\r\n\/* altrimenti il valore del modulo iniziale vale il dividendo *\/\r\n        else\r\n        {\r\n                mod = x;\r\n        }\r\n\r\n\/* se il divisore e\u2019 negativo diventa positivo  *\/\r\n        if (y < 0.0)\r\n        {\r\n                y = -y;\r\n        }\r\n\r\n\/* sottrai il divisore da mod fino a che il resto sia positivo *\/\r\n        while(mod >= y)\r\n        {\r\n                mod = mod \u2013 y;\r\n        }\r\n\r\n\/* se il dividendo e\u2019 negativo allora lo e\u2019 anche il modulo *\/\r\n        if (x < 0.0)\r\n        {\r\n                return -mod;\r\n        }\r\n\r\n        return mod;\r\n}\r\n<\/pre>\n
\r\n\/* itoa.c *\/\r\n\/* Una delle funzioni pi\u00f9 importanti, la conversione di un numero\r\n   interno di base assegnata in caratteri ASCII *\/\r\n#include <stdio.h>\r\n#include <stdlib.h>\r\n\r\n\/*\r\n        numero = valore intero da convertire\r\n        stringa = buffer di appoggio per il ritorno\r\n        base = base numerica alla quale convertire numero\r\n*\/\r\n\r\nchar*\r\nitoa(numero, stringa, base)\r\nint numero; char* stringa; int base;\r\n{\r\n        int i, j, k;\r\n        char c;\r\n        short unsigned int negativo = 0;\r\n\r\n        \/*\r\n           se numero e' uguale a zero\r\n           riempe il vettore di '0' piu' il terminatore\r\n        *\/\r\n        i = 0;\r\n        if (numero == 0)\r\n        {\r\n                stringa[i++] = '0';\r\n                stringa[i] = '\0';\r\n                return stringa;\r\n        }\r\n\r\n        \/*\r\n           itoa() standard tratta i numeri negativi solo se\r\n           sono in base 10. Altrimenti i numeri sono considerati\r\n           senza segno.\r\n        *\/\r\n        if (numero < 0 &amp;&amp; base == 10)\r\n        {\r\n                negativo = 1;\r\n                numero = -numero;\r\n        }\r\n\r\n        \/* Scansione del numero in singoli valori               *\/\r\n        while (numero != 0)\r\n        {\r\n                int resto = numero % base;\r\n                stringa[i++] = (resto > 9)? (resto-10) + 'a' : resto + '0';\r\n                numero = numero\/base;\r\n        }\r\n\r\n        \/* Se il numero e' negativo aggiungi '-'                *\/\r\n        if (negativo)\r\n                stringa[i++] = '-';\r\n\r\n        \/* Aggiunge il terminatore di stringa                   *\/\r\n        stringa[i] = '\0';\r\n\r\n        \/* Lunghezza stringa                                    *\/\r\n        i--;\r\n\r\n        \/* Inverte l'ordine degli elementi del vettore          *\/\r\n        for (k = 0, j = i; k<j; k++, j--)\r\n        {\r\n                c = stringa[k];\r\n                stringa[k] = stringa[j];\r\n        }\r\n        return stringa;\r\n}\r\n<\/pre>\n
<\/pre>\n
\r\n\/* ldexp.c *\/\r\n\/* Ritorna il valore di x*2^y  *\/\r\n#include <math.h>\r\n\r\nextern double exp();\r\n\r\ndouble\r\nldexp(x, y)\r\ndouble  x;\r\nint y;\r\n{\r\n        if(y == 0)\r\n                return 1.0;\r\n        if(x == 0.0)\r\n                return 0.0;\r\n        if (x < 0)\r\n        {\r\n                x = -x;\r\n                return -exp(log(x) * y);\r\n        }\r\n        return exp(log(x) * y);\r\n}\r\n<\/pre>\n
\r\n\/* logn.c *\/\r\n\/* Ritorna il logaritmo di val in base passati come parametri *\/\r\n#include <math.h>\r\n#include "float.h"\r\n\r\ndouble\r\nlogn(base, val)\r\nint base;\r\ndouble val;\r\n{\r\n        return log(val)\/log(base);\r\n}\r\n<\/pre>\n
\r\n\/* power.c *\/\r\n#include  <math.h>\r\n\r\nextern double exp();\r\n\r\ndouble\r\npower(x, y)\r\ndouble  x, y;\r\n{\r\n        if(y == 0.0)\r\n                return 1.0;\r\n\r\n        if(x == 0.0)\r\n                return 0.0;\r\n\r\n        if (x < 0)\r\n        {\r\n                x = -x;\r\n                return -exp(log(x) * y);\r\n        }\r\n\r\n        return exp(log(x) * y);\r\n}\r\n<\/pre>\n
\r\n\/* radcub.c *\/\r\n#include <math.h>\r\n\r\nextern double pow(double,double);\r\n\r\ndouble radcub(r)\r\ndouble r;\r\n{\r\n        double y;\r\n        y = pow(r, 0.3333333);\r\n        return y;\r\n}\r\n<\/pre>\n
Per facilitare il compito di costruzione della libreria ecco le direttive di compilazione in forma SUBMIT:<\/span><\/p>\n
\r\n;----------  LIBV.SUB  ----------\r\nc -C -O EXP.C\r\nc -C -O FLOOR.C\r\nc -C -O ITOA.C\r\nc -C -O LDEXP.C\r\nc -C -O LOGN.C\r\nc -C -O POWER.C\r\nc -C -O RADCUB.C\r\nc -C -O FMOD.C\r\nLIBR R LIBV.LIB EXP.OBJ\r\nLIBR R LIBV.LIB FLOOR.OBJ\r\nLIBR R LIBV.LIB ITOA.OBJ\r\nLIBR R LIBV.LIB LOGN.OBJ\r\nLIBR R LIBV.LIB POWER.OBJ\r\nLIBR R LIBV.LIB RADCUB.OBJ\r\nLIBR R LIBV.LIB FMOD.OBJ\r\n;----------  fine  ----------\r\nLIBR M LIBV.LIB\r\n<\/pre>\n
 <\/p>\n
 <\/p>\n
<\/div>\n
<\/path><\/svg><\/i> \"Loading\"<\/p>\n
<\/div>\n","protected":false},"excerpt":{"rendered":"
This library collects the invocations to functions that are not present in Hi-tech C 3.09 which I believe are important. Below are the individual modules to be filled in individually and then linked in the LIBV.LIB library I wrote a version of the FMOD module in assembler z80 which you will find at this address […]<\/p>\n
<\/div>\n
<\/path><\/svg><\/i> \"Loading\"<\/p>\n
<\/div>\n","protected":false},"author":1,"featured_media":0,"parent":92,"menu_order":0,"comment_status":"closed","ping_status":"closed","template":"","meta":{"footnotes":""},"class_list":["post-429","page","type-page","status-publish","hentry"],"_links":{"self":[{"href":"https:\/\/automatico.freevar.com\/index.php\/wp-json\/wp\/v2\/pages\/429"}],"collection":[{"href":"https:\/\/automatico.freevar.com\/index.php\/wp-json\/wp\/v2\/pages"}],"about":[{"href":"https:\/\/automatico.freevar.com\/index.php\/wp-json\/wp\/v2\/types\/page"}],"author":[{"embeddable":true,"href":"https:\/\/automatico.freevar.com\/index.php\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/automatico.freevar.com\/index.php\/wp-json\/wp\/v2\/comments?post=429"}],"version-history":[{"count":14,"href":"https:\/\/automatico.freevar.com\/index.php\/wp-json\/wp\/v2\/pages\/429\/revisions"}],"predecessor-version":[{"id":767,"href":"https:\/\/automatico.freevar.com\/index.php\/wp-json\/wp\/v2\/pages\/429\/revisions\/767"}],"up":[{"embeddable":true,"href":"https:\/\/automatico.freevar.com\/index.php\/wp-json\/wp\/v2\/pages\/92"}],"wp:attachment":[{"href":"https:\/\/automatico.freevar.com\/index.php\/wp-json\/wp\/v2\/media?parent=429"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}