home *** CD-ROM | disk | FTP | other *** search
/ Jason Aller Floppy Collection / 267.img / RESIDNTC.ZIP / DEMOS.ZIP / SHARETSR.C < prev    next >
Text File  |  1990-02-13  |  10KB  |  326 lines
  1. /*
  2.       Module name: SHARETSR.C
  3.   
  4.             The program, a very modified version of resclock, takes over
  5.             the user timer interrupt, 0x1C, and displays the time on the
  6.             screen.
  7.   
  8.             The program also takes over a user interrupt vector to share
  9.             data (a struct) with a foreground program. The struct   address
  10.             is also passed on the inittsr2() parameter list.
  11.   
  12.             The BIOS printer interrupt (17H) is taken over and our handler
  13.             counts the number   of characters (including control codes) sent
  14.             to the printer.
  15.   
  16.             Last, but not least, the program takes over the keyboard hardware
  17.             interrupt (9H) and the DOS dispatcher (21H) to count the number
  18.             of times an 'a' is pressed and the number of times DOS is called
  19.             to perform a create directory function. If a remove directory
  20.             function is called, it gets changed to a create directory function
  21.             which causes an error from DOS.  This disables the ability to
  22.             remove a directory as long as this program is running.
  23.   
  24.             The information above is shared with a foreground program,
  25.             sharefor.c, or available by pressing the hotkey - RightShift-E.
  26.             If a "Q"    is entered, the program will free itself, otherwise it will
  27.             go back to the  background.  These interrupts are chained to
  28.             because of their sensitive nature.
  29.   
  30.   
  31. --)   NOTICE:  Copyright (C) 1989 South Mountain Software, Inc.
  32. */
  33.   
  34. #include "stdlib.h"
  35. #include "conio.h"
  36. #include "string.h"
  37. #include "stdio.h"
  38. #include "tsr.h"
  39. #include "resproto.h"
  40. #include "isr.h"
  41. #include    "dos.h"
  42.   
  43. #define  TRUE  1
  44. #define  FALSE 0
  45. #define SCAN_E 18   /* scan code of E key */
  46.   
  47. #define  ROW   0
  48. #define  COL   65
  49. #define  ATTR  0x70   /* black on white */
  50.   
  51. #ifdef M_I86        /* Microsoft internal define , otherwise Turbo C */
  52. #define disable _disable
  53. #define enable _enable
  54. #define getvect _dos_getvect
  55. #define setvect _dos_setvect
  56. #define inportb inp
  57. #endif
  58.   
  59. /* window save buffer declared globally */
  60. char  scrnbuf[400];
  61.   
  62. /* unique function number we use to see if already loaded */
  63. unsigned int myfunc = 0x5272;
  64.   
  65. /* address to total timmer tics since midnight */
  66. long far * systics = (long far *) 0x0000046CL;
  67.   
  68. int hr,min,sec,hd;      /* used in do_clock() */
  69.   
  70. unsigned shared_vector;     /* vector number to share with foreground program */
  71.  
  72. struct {                /* structure to share with foreground program */
  73. unsigned my_sig;        /* signature placed here for find_sig() example */
  74. char time_str[30];      /* time of day string placed here */
  75. long a_key_hit;         /* count of a key presses */
  76. long dos_calls;         /* count of int 21H calls */
  77. long chars_printed;     /* count of chars sent through int 17h */
  78. } share_me;
  79.   
  80. int do_clock(void);
  81. int free_this_one(void);
  82. void display(char *str);
  83. void clock(void);
  84. int our_key_handler(void), our_dos_handler(void), our_prt_handler(void);
  85.   
  86. void main()
  87. {
  88. unsigned offset,segment;
  89. struct SREGS sregs;
  90. void far *address;
  91.   
  92. if (tsrloaded(myfunc) != FALSE)
  93.     {
  94.     printf("SHARETSR Already Loaded!\n");
  95.     exit(1);
  96.     }
  97.   
  98. initisr2(0x17,our_prt_handler,1);  /* take over int 17h */
  99.   
  100. initisr3(0x21,our_dos_handler,1);  /* take over int 21h */
  101.   
  102. initisr4(0x1c,do_clock,1);  /* take over int 1ch */
  103.   
  104. initisr5(0x9,our_key_handler,1);  /* take over int 9h */
  105.   
  106. shared_vector = find_vector(0x60,0x66); /* find a vacant vector */
  107. if(shared_vector)
  108.     {
  109.     share_me.my_sig = 0xDCBA;               /* initialize signature */
  110.     share_me.a_key_hit = 0L;                    /* initialize int 9 counter */
  111.     share_me.dos_calls = 0L;                /* initialize int 21 counter */
  112.     share_me.chars_printed = 0L;         /* initialize char count */
  113.     if((sizeof(char *)) == 4)               /* if large data model */
  114.         {
  115.         offset = (unsigned)(&share_me);
  116.         address = (void far *)&share_me;
  117.         segment = FP_SEG(address);
  118.         }
  119.     else
  120.         {
  121.         segread(&sregs);
  122.         offset = (unsigned) &share_me;
  123.         segment = sregs.ds;
  124.         }
  125.     vec_set(shared_vector,offset,segment);      /* put struc address in vector */
  126.     }
  127. else
  128.     {
  129.     printf("*** Not enough vacant user vectors. Program aborted! ***\n");
  130.     disable();
  131.     enable();
  132.     freeisr2();                             /* reset initisr2 vector */
  133.     freeisr3();                             /* reset initisr2 vector */
  134.     freeisr4();                             /* reset initisr4 vector */
  135.     freeisr5();                             /* reset initisr5 vector */
  136.     exit(1);
  137.     }
  138.   
  139.   
  140. inittsr(RIGHT_SHIFT,SCAN_E, clock, 30, myfunc, SIG, (void far *) &share_me);
  141. }
  142.   
  143.   
  144. static int cnt = 99;        /*   initialize second comparison variable */
  145.   
  146. char curtime[15];          /* buffer to hold time */
  147. int  loop;
  148. extern int _hotkey_hit;     /* set to 1 if hotkey was hit */
  149. char key_in;                    /* for getch() below                */
  150. int page;               /* video page */
  151. int mode;               /* video mode */
  152. int key;                        /* gets thrown away */
  153.   
  154. void clock()
  155. {
  156.         /* retrieve video mode and video page */
  157. getvmod(&mode,&page);
  158.   
  159.         /* see if we are in 80 column text modes */
  160. if ( mode != 2 && mode != 3 && mode != 7 )
  161.     {
  162.     putch(7);    /* if yes, beep and exit */
  163.     return;
  164.     }
  165.                 /* save window in center of screen */
  166. savwindo(8,23,13,55,scrnbuf);
  167. savcur();     /* save cursor  */
  168.   
  169.         /*  clear the window in reverse video */
  170. scroll_vid(0,0,7,8,23,13,55,1);
  171.         /*  clear inner window in normal video */
  172. scroll_vid(0,7,0,9,24,12,54,1);
  173.   
  174. loc_cur(9,27);   /* locate cursor in window */
  175. printf("  Hit Q to free TSR  ");
  176. loc_cur(10,26);   /* locate cursor in window */
  177. printf(" a key pressed = %ld times ",share_me.a_key_hit);
  178. loc_cur(11,26);   /* locate cursor in window */
  179. printf(" remove directories = %ld ",share_me.dos_calls);
  180. loc_cur(12,26);   /* locate cursor in window */
  181. printf(" chars printed = %ld ",share_me.chars_printed);
  182.   
  183.   
  184. key_in = (char) getch();
  185. if(key_in == 'Q' || key_in == 'q')
  186.     {
  187.     if(free_this_one() != 0 )
  188.         {
  189.         putch(7); putch(7);
  190.         printf("Not Loaded Last! - TSR Will Still Be Loaded!");
  191.         _hotkey_hit = 0;        /* reset hotkey flag */
  192.         }
  193.     }
  194. rstcur();        /* put cursor back */
  195.   
  196.         /* restore the window in center of screen */
  197. rstwindo(8,23,13,55,scrnbuf);
  198.   
  199. _hotkey_hit = 0;
  200. return;
  201. }
  202.   
  203. int do_clock() /* hard work part of clock() set up as separate function */
  204.                         /* so it could be called while waiting for a key */
  205. {
  206. char curtime[15];          /* buffer to hold time */
  207. char temp_ptr[17];          /* temporary buffer for itoa() */
  208. unsigned long tmp;  /* will hold tics since midnight */
  209.   
  210. tmp = *systics;                  /* get tics since midnight */
  211.   
  212.    /* this formula converts tics since midnight */
  213. hr = (int) (tmp / 65543L);
  214. tmp %=  65543L;
  215. min = (int) (tmp / 1092L);
  216. tmp %= 1092;
  217. sec = (int) (tmp * 100L / 1821L);
  218.   
  219.    /* we'll only update the clock display when sec changes */
  220. if(cnt != sec)
  221.     {
  222.     cnt = sec;
  223.   
  224.  /*  cannot use sprintf because it was compiled with
  225.      stack checking on.                                */
  226.  /*     sprintf(curtime," %2d:%2d:%2d ",hr,min,sec); */
  227.   
  228.         /* do it the hard way with itoa */
  229.     curtime[0] = ' ';
  230.     curtime[1] = '\0';
  231.     itoa(hr,temp_ptr,10);
  232.     if(strlen(temp_ptr) == 1)   /* force two digits for each number */
  233.         strcat(curtime,"0");
  234.     strcat(curtime,temp_ptr);
  235.     strcat(curtime,":");
  236.     itoa(min,temp_ptr,10);
  237.     if(strlen(temp_ptr) == 1)   /* force two digits for each number */
  238.         strcat(curtime,"0");
  239.     strcat(curtime,temp_ptr);
  240.     strcat(curtime,":");
  241.     itoa(sec,temp_ptr,10);
  242.     if(strlen(temp_ptr) == 1)   /* force two digits for each number */
  243.         strcat(curtime,"0");
  244.     strcat(curtime,temp_ptr);
  245.     strcat(curtime," ");
  246.   
  247.     display(curtime);                /* put the time on the screen */
  248.     }
  249. return(0);
  250. }
  251.   
  252. /* Interleave atribute and display time */
  253. void display(str)
  254. char *str;
  255. {
  256. register char *curptr;   /* used to step thru buffer */
  257. char buf[31];            /* actual buffer to write to screen */
  258.   
  259. strcpy(share_me.time_str,str);
  260. curptr = buf;
  261.   
  262.    /* merge char and attribute for screen format */
  263.     while(*str) {
  264.     *curptr++ = *str++;
  265.     *curptr++ = ATTR;
  266.     }
  267.   
  268.    /* do the actual display */
  269. memtoscr(10, (ROW * 160) + (COL * 2), buf);
  270.   
  271. return;
  272. }
  273.   
  274.   
  275. int free_this_one()
  276. {
  277. if(freetsr() == 1)
  278.     return(1);
  279. else
  280.     return(0);
  281. }
  282.   
  283. void tsrpre()
  284. {
  285. printf("SHARETSR by South Mountain Software\n");
  286. printf("\n    Hit RIGHT-SHIFT-E to Pop-Up!\n\n");
  287. }
  288.   
  289. void tsrpost()
  290. {
  291. freeisr5();
  292. freeisr4();
  293. freeisr3();
  294. freeisr2();
  295. }
  296.   
  297. int our_key_handler()
  298. {
  299.   
  300. unsigned scancode;
  301.   
  302. scancode = inportb(0x60);   /* peek ahead at key in keyboard I/O port */
  303. if(scancode == 30)
  304.     share_me.a_key_hit++;
  305.   
  306. return(0);
  307. }
  308.   
  309. int our_prt_handler()
  310. {
  311.   
  312. if(isr2_ah == 0)    /* send character in al */
  313.     share_me.chars_printed++;
  314. return(0);
  315. }
  316.   
  317. int our_dos_handler()
  318. {
  319. if(isr3_ah == 0x3a)         /* open file with handle */
  320.     {
  321.     share_me.dos_calls++;
  322.     isr3_ah = 0x39;         /* change to create directory */
  323.     }
  324. return(0);
  325. }
  326.