home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / tsr.swg / 0009_Learning about TSR's.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-08-27  |  1.8 KB  |  57 lines
  1. {
  2. SEAN PALMER
  3.  
  4. >I don't know if he is or not...but I'd like to see a simple and verbose
  5. >explanation on how to make a TSR...pref. using the KEEP Procedure...
  6.  
  7. OK. I'll Write up one right quick. This isn't gonna be tested (hard to
  8. test a TSR While keeping your mail Program in memory...)
  9. }
  10.  
  11. Program TSRTest;
  12.  
  13. Uses
  14.   Dos;
  15.  
  16. Var
  17.   oldInt : Procedure;  {hook For old keyboard interrupt handler}
  18.  
  19. Procedure newInt; interrupt;  { interrupt keyWord makes Procedure far }
  20.                               { also saves/restores all regs and }
  21.                               { ends With an iRet instruction }
  22.                               { sets up DS correctly also but }
  23.                               { Uses caller's stack }
  24. Var
  25.   i : Word;
  26.   b : Boolean;
  27. begin
  28.   b := port[$60] < $80;   {see if it's a press}
  29.  
  30.   oldInt;     {call old interrupt handler For keystrokes (BIOS)}
  31.  
  32.   if b then
  33.     For i := 0 to $3FFF do   {change screen colors as example}
  34.       mem[$B800 : i * 2] := succ(mem[$B800 : i * 2]) and $EF;
  35. end;
  36.  
  37. begin
  38.   getIntVec(9, @oldInt);  { keep previous keyboard hooks }
  39.   setIntVec(9, @newInt);  { patch in our keyboard interrupt handler }
  40.   keep(0);  { returns Exit code of 0 (normal termination) }
  41.             { and stays resident }
  42. end.
  43.  
  44. {
  45.  All it does is sit in memory, and every time you press a key,
  46.  it gets called, and it changes the screen colors.
  47.  
  48.  That's about as simple as you're gonna get, now verbosity was never my
  49.  strong point. if you don't understand something, ask.
  50.  
  51.  DJ Murdoch's TPU2TPS For TP 6.0 lets you make VERY small tsr's, but this
  52.  will link in about 1k worth of the system Unit plus some stuff from the
  53.  Dos Unit which will make it about 1.5k.
  54.  
  55.  If you wanna Write TSR's the best bet is to learn assembly.
  56. }
  57.