home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / tsr.swg / 0010_Screen Save TSR.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-08-27  |  3.4 KB  |  78 lines
  1. {
  2. STEVE CONNET
  3.  
  4. >Have you written a screen saver before (or has ANYONE ELSE on this
  5. >echo)? Please post some code I could modify/study/adapt...
  6.  
  7. I have written a screen saver TSR.  Here's some source if you're interested.
  8. }
  9.  
  10. Program Save20;
  11. { SAVE v2.0 by Steve Connet -- Sunday, Jan. 17, 1993
  12.   This is a simple TSR screen saver.  Numeric keypad 5 is the hot key. }
  13.  
  14. {$M 1024,0,0}                 { reserve 1k of stack space    }
  15. Uses
  16.   DOS;                        { needed to set int vectors    }
  17.  
  18. {$F+}
  19. VAR
  20.   KbdIntVec : Procedure;      { used to get ISR              }
  21.  
  22. Procedure GoSave; Interrupt;  { this is our baby             }
  23. Begin { gosave }
  24.   If Port[$60] = 76 then      { Numeric Keypad 5 pressed?    }
  25.   Begin { our baby }
  26.     Asm
  27.       cli                     { ;clear interrupts                     }
  28.       mov  ah, 0fh            { ;get video mode, al=mode, bh=page     }
  29.       int  10h                { ;call interrupt                       }
  30.       mov  ah, 03h            { ;get cursor position, dl=x, dh=y      }
  31.       int  10h                { ;call interrupt                       }
  32.       push dx                 { ;store cursor position on stack       }
  33.       push bx                 { ;store page number on stack           }
  34.       push ax                 { ;store video mode on stack            }
  35.     End;
  36.     Repeat
  37.       Port[$3c2] := 0;                    { wierd video mode  }
  38.       Port[$3c2] := 9;                    { wierd video mode  }
  39.       Port[$3c2] := 247                   { wierd video mode  }
  40.     Until Port[$60] in [0..75, 77..128];  { wait for keypress }
  41.  
  42.     Port[$60] := 1;      { stuff left shift key }
  43.                          { to disable right ctrl,alt,shift keys }
  44.                          { so they don't mess up keyboard input }
  45.     Asm
  46.       pop ax             { ;restore video mode from stack        }
  47.       or  al,80h         { ;set bit 7, prevent screen clearing   }
  48.       mov ah,00h         { ;set video mode                       }
  49.       int 10h            { ;call interrupt                       }
  50.       pop bx             { ;restore page number from stack       }
  51.       mov ah,05h         { ;set display page                     }
  52.       mov al,bh          { ;use saved page number                }
  53.       int 10h            { ;call interrupt                       }
  54.       pop dx             { ;restore cursor position from stack   }
  55.       mov ah,02h         { ;set cursor position                  }
  56.       int 10h            { ;call interrupt                       }
  57.       sti                { ;restore interrupts                   }
  58.     End;
  59.   End;  { our baby }
  60.   Inline($9c);           { PUSHF push flags                      }
  61.   KbdIntVec;             { call old ISR using saved vector       }
  62. End;
  63. {$F-}
  64.  
  65. Begin
  66.   Writeln(#13#10, 'SAVE 2.0 by Steve Connet', #13#10, 'Installed.');
  67.   GetIntVec($9, @KbdIntVec); { define a procedure for ISR     }
  68.   SetIntVec($9, @GoSave);    { insert ISR into keyboard chain }
  69.   Keep(0)                    { terminate and stay resident    }
  70. End.
  71.  
  72. {
  73.  The GoSave procedure has two statements that you may want to take out
  74.  at the very beginning and at the end.  CLI and STI are assembly
  75.  statements that prevent interrupts from happening during our procedure.
  76.  The downfall of these statements is that it prevents the internal clock
  77.  from being updated while the procedure is executing.
  78. }