home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 19 / CD_ASCQ_19_010295.iso / dos / prg / pas / swag / desqview.swg / 0002_DV-VIDEO.PAS.pas < prev    next >
Pascal/Delphi Source File  |  1993-05-28  |  717b  |  28 lines
  1. {
  2. > Has anyone done any work With DV's virtual screen?  Someplace I
  3. > used to have the address For it, but I seem to have lost it.  Does
  4. > anybody know what it is?
  5.  
  6. > What I'm trying to do is bypass TJT's direct screen Writes by
  7. > replacing the BaseOfScreen Pointer With the one For DV's virtual
  8. > screen. if I can't do that then I'm going to have to make another
  9. > attempt at rewriting the assembly level screen routines.
  10. }
  11.  
  12. Function DV_Video_Buffer;
  13. begin
  14.   Reg.AH := $0F;
  15.   INTR($10, Reg);
  16.   if Reg.AL = 7 then
  17.     Reg.ES := $B000
  18.   else
  19.     Reg.ES := $B800;
  20.   if DV_Loaded then
  21.   begin
  22.     Reg.DI := 0;
  23.     Reg.AX := $FE00;
  24.     INTR($10, Reg);
  25.   end;
  26.   DV_Video_Buffer := Reg.ES;
  27. end;
  28.