/*  Header file for TSANI.LIB */
/* ************************** */

#include <stdio.h>
#ifdef __cplusplus
extern "C" {
#endif

/* CAMAC Library for PPI-4 (Putmakov, INP).                                 */
/*                                                                          */
/* ”®à¬ â ॣ¨áâà  LXQ (¯®àâ 0x248)   0000 0000 L000 00XQ                   */
/* �®¬¥à ªà¥©â  áâ ¢¨âáï á ¯®¬®éìî ä㭪樨 cam_crate(CN)                    */
/* ¨«¨ ­¥¯®á।á⢥­­® ¢ camNAF, cam16, cam24                               */
/* CN - Crate Number, N -station position A -subAddress, F - CAMAC-function */
/*                                           G.Kuzin, April, 99             */

void cam_crate(int CN);
int  cam_naf(int N, int A, int F);
int  cam_i(int N, int A, int F, unsigned int *data);
void cam_setnaf(int N, int A, int F);
int  cam_w_data(unsigned int *data);
int  cam_r_data(unsigned int *data);
void cam_w_hb(int data);
int  cam_r_hb(void);
void cam_w_mask(int m);
int  cam_r_mask(void);
void cam_w_stat(int m);
int  cam_r_stat(void);
void cam_z(void);
void cam_c(void);
void cam_on_i(void);
void cam_off_i(void);

int camNAF(int CN, int N, int A, int F);  /* NAF without DATA */
int  cam16(int CN, int N, int A, int F, unsigned int *data);
int  cam24(int CN, int N, int A, int F, unsigned long *data);
void  camZ(int CN);
void  camC(int CN);

/* ****************************************************************** */
/*  „¥áïâì ä㭪権 ¢§ ¬¥­ scanf(...). ‚뢮¤ïâ ⥪áâ ¨ ⥪ã饥 §­ ç¥­¨¥ x.
    ‚ ®â¢¥â ­  <Enter> x ­¥ ¬¥­ï¥âáï.
    ‚®§¢à é îâ ¯¥à¢ë© ᨬ¢®« ¢® ¢¢®¤¨¬®© áâப¥. …᫨ ¢¢®¤¨âáï
    ­¥ ç¨á«®, â® x ­¥ ¨§¬¥­ï¥âáï.      (G.Kuzin)
    ��ˆŒ…�:  int ADC=10;
             key = inul("\r data = ",&data);
             if( ini("\n �®§¨æ¨ï €–� = ",&ADC)=='q') exit(0);   */

char     _Cdecl ini( char *pc, int *x);
char     _Cdecl inu( char *pc, unsigned int *x);
char     _Cdecl ino( char *pc, unsigned int *x);
char     _Cdecl inx( char *pc, unsigned int *x);
char     _Cdecl inil(char *pc, long int *x);
char     _Cdecl inul(char *pc, unsigned long int *x);
char     _Cdecl inol(char *pc, unsigned long int *x);
char     _Cdecl inxl(char *pc, unsigned long int *x);
char     _Cdecl inf( char *pc, float *x);
char     _Cdecl ing( char *pc, float *x);

/* ***************************************************************** */
/*  ”㭪樨 ¢ë¢®¤  §­ ç¥­¨© ¯¥à¥¬¥­­ëå ¢ £à ä¨ç¥áª®© ¬®¤¥.
    €­ «®£¨ ä㭪樨 printf.
    ��ˆŒ…�›: setcolor(RED); gprintf(ix, 300,"Tempetature = %f", tem);
                                   ( X,  Y,  String + Format,  Value)
             gprintc(14, 560, 2,"Dispersion = %f",Dn);
                   (Color, X, Y, String + Format, Value)   */

int    far _Cdecl gprintf(int xloc, int yloc, char *fmt, ... );
int    far _Cdecl gprintc(int color, int xloc, int yloc, char *fmt, ... );

/* ***************************************************************** */
/* �¨¡«¨®â¥ª  ª « ¡®à â®à­®© à ¡®â¥ 12 */

void fft(int m,float *ar,float *ai);
            /* ‚ëç¨á«ï¥â ¤¨áªà¥â­®¥ ¯à¥®¡à §®¢ ­¨¥ ”ãàì¥ */
/* �  ¢å®¤¥: ar - ᨣ­ «, ai - ­ã«¨;  */
/* �  ¢ë室¥:                         */
/* ar  - �ãä¥à ॠ«ì­®© ç á⨠ᯥªâà  */
/* ai  - �ãä¥à ¬­¨¬®© ç á⨠          */
/* m   - ª®«¨ç¥á⢮ â®ç¥ª = 2**m      */

    /* ‚ëç¨á«ï¥â ¤¨áªà¥â­®¥ ®¡à â­®¥ ¯à¥®¡à §®¢ ­¨¥ ”ãàì¥ */
void inv_fft(int m,float *ar,float *ai);

char  show_diagram(float *ar,int l, char *mes); /* �¨áã¥â £à ä¨ª */
/* *ar  - 㪠§ â¥«ì ­  ¬ áᨢ ¤ ­­ëå */
/* l    - ª®«¨ç¥á⢮ â®ç¥ª = 2**m    */
/* *mes - ⥪áâ ª ª à⨭ª¥           */

float draw_diagram(float *ar,int l, char *mes); /* ’® ¦¥, ¡¥§ ¢¢®¤  */

float getper(float period, float *ar, int l);   /* ‚ë¡®à ¯¥à¨®¤  */
/* period - §­ ç¥­¨¥ ¯¥à¨®¤            */
/* *ar    - 㪠§ â¥«ì ­  ¬ áᨢ ¤ ­­ëå */
/* l      - ç¨á«® í«¥¬¥­â®¢ ¬ áᨢ     */

/* ***************************************************************** */
/*  ‚¢®¤¨â ®¤­ã ¯¥à¥¬¥­­ãî ª ª ¢ ⥪á⮢®©, â ª ¨ ¢ £à ä¨ç¥áª®© ¬®¤¥ */ 
/*  ¨ ¯à¨ í⮬ á ¬  ®¯à¥¤¥«ï¥â íâã ¬®¤ã.                             */ 
/*  ‘âப  ä®à¬ â  â ª ï ¦¥  ª ª ã printf(...)                       */ 
/*  inv (const *char formar, argument);                              */ 
/*                                                                   */ 
int _inv_ (char *format, void *pVar, ...);
#define inv(a, b) (_inv_ ((a), &(b), (b)))
/* ***************************************************************** */

/* ***************************************************************** */
/*                 ”㭪樨 ¤«ï à ¡®âë á ª« ¢¨ âãன                  */

void GetInterrupt(void);
    /* “áâ ­®¢ª  ­®¢®£® ®¡à ¡®â稪  ¯à¥à뢠­¨ï ª« ¢¨ âãàë.
       �®á«¥ § ¯ã᪠ í⮩ ä㭪樨 ¯¥à¥¬¥­­ ï LastScanCode ¢á¥£¤ 
       åà ­¨â ¯®á«¥¤­¨© ᪠­ª®¤.
    */

void RestoreInterrupt(void);
    /* ‚®ááâ ­®¢«¥­¨¥ ¨á室­®£® ®¡à ¡®â稪  ¯à¥à뢠­¨ï ª« ¢¨ âãàë.
       ”ã­ªæ¨ï Ž�Ÿ‡€’…‹œ�Ž ¤®«¦­  ¡ëâì ¢ë§¢ ­ , ¥á«¨ ¨á¯®«ì§®¢ « áì
       GetInterrupt().
    */

extern unsigned char LastScanCode;
    /* �®á«¥ ¢ë§®¢  GetInterrupt() íâ  ¯¥à¥¬¥­­ ï ¢á¥£¤  
       ᮤ¥à¦¨â ¯®á«¥¤­¨© ᪠­ª®¤ ª« ¢¨ âãàë.
       ‘ª ­ª®¤ë ­ ¦ â¨ï ª« ¢¨è ¯¥à¥ç¨á«¥­ë ¢ â ¡«¨æ¥ ­¨¦¥.
       ‘ª ­ª®¤ ®â¯ã᪠­¨ï à ¢¥­ ᪠­ª®¤ã ­ ¦ â¨ï + 0x80.

ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
³ ÚÄÄÄ¿    ÚÄÄÄ¿ÚÄÄÄ¿ÚÄÄÄ¿ÚÄÄÄ¿   ÚÄÄÄ¿ÚÄÄÄ¿ÚÄÄÄ¿ÚÄÄÄ¿   ÚÄÄÄ¿ÚÄÄÄ¿ÚÄÄÄ¿ÚÄÄÄ¿   ÚÄÄÄ¿ÚÄÄÄ¿ÚÄÄÄ¿                        ³
³ ³Esc³    ³F1 ³³F2 ³³F3 ³³F4 ³   ³F5 ³³F6 ³³F7 ³³F8 ³   ³F9 ³³F10³³F11³³F12³   ³Pri³³Scr³³Pau³                        ³
³ ³ 1 ³    ³ 59³³ 60³³ 61³³ 62³   ³ 63³³ 64³³ 65³³ 66³   ³ 67³³ 68³³ 87³³ 88³   ³ 55³³ 70³³   ³                        ³
³ ÀÄÄÄÙ    ÀÄÄÄÙÀÄÄÄÙÀÄÄÄÙÀÄÄÄÙ   ÀÄÄÄÙÀÄÄÄÙÀÄÄÄÙÀÄÄÄÙ   ÀÄÄÄÙÀÄÄÄÙÀÄÄÄÙÀÄÄÄÙ   ÀÄÄÄÙÀÄÄÄÙÀÄÄÄÙ                        ³
³                                                                                                                      ³
³ ÚÄÄÄ¿ÚÄÄÄ¿ÚÄÄÄ¿ÚÄÄÄ¿ÚÄÄÄ¿ÚÄÄÄ¿ÚÄÄÄ¿ÚÄÄÄ¿ÚÄÄÄ¿ÚÄÄÄ¿ÚÄÄÄ¿ÚÄÄÄ¿ÚÄÄÄ¿ÚÄÄÄ¿ÚÄÄÄ¿   ÚÄÄÄ¿ÚÄÄÄ¿ÚÄÄÄ¿   ÚÄÄÄ¿ÚÄÄÄ¿ÚÄÄÄ¿ÚÄÄÄ¿ ³
³ ³ ~ ³³"1"³³"2"³³"3"³³"4"³³"5"³³"6"³³"7"³³"8"³³"9"³³"0"³³ - ³³ = ³³ \ ³³<--³   ³Ins³³Hom³³P U³   ³NmL³³ / ³³ * ³³ - ³ ³
³ ³ 41³³ 2 ³³ 3 ³³ 4 ³³ 5 ³³ 6 ³³ 7 ³³ 8 ³³ 9 ³³ 10³³ 11³³ 12³³ 13³³ 43³³ 14³   ³ 82³³ 71³³ 73³   ³ 69³³ 53³³ 55³³ 74³ ³
³ ÀÄÄÄÙÀÄÄÄÙÀÄÄÄÙÀÄÄÄÙÀÄÄÄÙÀÄÄÄÙÀÄÄÄÙÀÄÄÄÙÀÄÄÄÙÀÄÄÄÙÀÄÄÄÙÀÄÄÄÙÀÄÄÄÙÀÄÄÄÙÀÄÄÄÙ   ÀÄÄÄÙÀÄÄÄÙÀÄÄÄÙ   ÀÄÄÄÙÀÄÄÄÙÀÄÄÄÙÀÄÄÄÙ ³
³ ÚÄÄÄÄÄ¿ÚÄÄÄ¿ÚÄÄÄ¿ÚÄÄÄ¿ÚÄÄÄ¿ÚÄÄÄ¿ÚÄÄÄ¿ÚÄÄÄ¿ÚÄÄÄ¿ÚÄÄÄ¿ÚÄÄÄ¿ÚÄÄÄ¿ÚÄÄÄ¿ÚÄÄÄÄÄÄ¿   ÚÄÄÄ¿ÚÄÄÄ¿ÚÄÄÄ¿   ÚÄÄÄ¿ÚÄÄÄ¿ÚÄÄÄ¿ÚÄÄÄ¿ ³
³ ³ Tab ³³ Q ³³ W ³³ E ³³ R ³³ T ³³ Y ³³ U ³³ I ³³ O ³³ P ³³ [ ³³ ] ³³Enter ³   ³Del³³End³³P D³   ³Hom³³Up ³³P U³³ + ³ ³
³ ³  15 ³³ 16³³ 17³³ 18³³ 19³³ 20³³ 21³³ 22³³ 23³³ 24³³ 25³³ 26³³ 27³³  28  ³   ³ 83³³ 79³³ 81³   ³ 71³³ 72³³ 73³³ 78³ ³
³ ÀÄÄÄÄÄÙÀÄÄÄÙÀÄÄÄÙÀÄÄÄÙÀÄÄÄÙÀÄÄÄÙÀÄÄÄÙÀÄÄÄÙÀÄÄÄÙÀÄÄÄÙÀÄÄÄÙÀÄÄÄÙÀÄÄÄÙ³      ³   ÀÄÄÄÙÀÄÄÄÙÀÄÄÄÙ   ÀÄÄÄÙÀÄÄÄÙÀÄÄÄÙ³   ³ ³
³ ÚÄÄÄÄÄÄÄ¿ÚÄÄÄ¿ÚÄÄÄ¿ÚÄÄÄ¿ÚÄÄÄ¿ÚÄÄÄ¿ÚÄÄÄ¿ÚÄÄÄ¿ÚÄÄÄ¿ÚÄÄÄ¿ÚÄÄÄ¿ÚÄÄÄ¿ÚÄÄÙ      ³                     ÚÄÄÄ¿ÚÄÄÄ¿ÚÄÄÄ¿³   ³ ³
³ ³CapsLoc³³ A ³³ S ³³ D ³³ F ³³ G ³³ H ³³ J ³³ K ³³ L ³³ ; ³³ ' ³³         ³                     ³Lef³³   ³³Rig³³   ³ ³
³ ³   58  ³³ 30³³ 31³³ 32³³ 33³³ 34³³ 35³³ 36³³ 37³³ 38³³ 39³³ 40³³         ³                     ³ 75³³ 76³³ 77³³   ³ ³
³ ÀÄÄÄÄÄÄÄÙÀÄÄÄÙÀÄÄÄÙÀÄÄÄÙÀÄÄÄÙÀÄÄÄÙÀÄÄÄÙÀÄÄÄÙÀÄÄÄÙÀÄÄÄÙÀÄÄÄÙÀÄÄÄÙÀÄÄÄÄÄÄÄÄÄÙ                     ÀÄÄÄÙÀÄÄÄÙÀÄÄÄÙÀÄÄÄÙ ³
³ ÚÄÄÄÄÄÄÄÄÄ¿ÚÄÄÄ¿ÚÄÄÄ¿ÚÄÄÄ¿ÚÄÄÄ¿ÚÄÄÄ¿ÚÄÄÄ¿ÚÄÄÄ¿ÚÄÄÄ¿ÚÄÄÄ¿ÚÄÄÄ¿ÚÄÄÄÄÄÄÄÄÄÄÄÄ¿        ÚÄÄÄ¿        ÚÄÄÄ¿ÚÄÄÄ¿ÚÄÄÄ¿ÚÄÄÄ¿ ³
³ ³  Shift  ³³ Z ³³ X ³³ C ³³ V ³³ B ³³ N ³³ M ³³ , ³³ . ³³ / ³³   Shift    ³        ³Up ³        ³End³³Dou³³P D³³Ent³ ³
³ ³   42    ³³ 44³³ 45³³ 46³³ 47³³ 48³³ 49³³ 50³³ 51³³ 52³³ 53³³    54      ³        ³ 72³        ³ 79³³ 80³³ 81³³ 28³ ³
³ ÀÄÄÄÄÄÄÄÄÄÙÀÄÄÄÙÀÄÄÄÙÀÄÄÄÙÀÄÄÄÙÀÄÄÄÙÀÄÄÄÙÀÄÄÄÙÀÄÄÄÙÀÄÄÄÙÀÄÄÄÙÀÄÄÄÄÄÄÄÄÄÄÄÄÙ        ÀÄÄÄÙ        ÀÄÄÄÙÀÄÄÄÙÀÄÄÄÙ³   ³ ³
³ ÚÄÄÄÄÄ¿      ÚÄÄÄÄÄ¿ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ÚÄÄÄÄÄ¿     ÚÄÄÄÄÄ¿   ÚÄÄÄ¿ÚÄÄÄ¿ÚÄÄÄ¿   ÚÄÄÄÄÄÄÄÄ¿ÚÄÄÄ¿³   ³ ³
³ ³Ctrl ³      ³ Alt ³³                                  ³³ Alt ³     ³Ctrl ³   ³Lef³³Dow³³Rig³   ³ Ins    ³³Del³³   ³ ³
³ ³  29 ³      ³  56 ³³               57                 ³³  56 ³     ³  29 ³   ³ 75³³ 80³³ 77³   ³ 82     ³³ 83³³   ³ ³
³ ÀÄÄÄÄÄÙ      ÀÄÄÄÄÄÙÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÀÄÄÄÄÄÙ     ÀÄÄÄÄÄÙ   ÀÄÄÄÙÀÄÄÄÙÀÄÄÄÙ   ÀÄÄÄÄÄÄÄÄÙÀÄÄÄÙÀÄÄÄÙ ³
ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
*/
#ifdef __cplusplus
}
#endif