home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / screen.swg / 0058_Screen Segment.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-01-27  |  580 b   |  26 lines
  1. {
  2. > I have always addressed $B800 as the screen segment for direct video
  3. > writes in text.... Err, umm, does anyone have the code to detect
  4. > whether it is $B000 or $B800 (for Herc.'s and the like)...
  5.  
  6.  call the Bios INt $10 Function $0f to get video mode.
  7. }
  8.  
  9. Function GetVideoSegment:Word;
  10.  Begin
  11.   Asm
  12.        Mov     AH,$0f;
  13.        INT    $10;
  14.        Cmp     AL, $07;        { Monochrome? }
  15.        Jne     @No;
  16.        Mov     @Result, $B000;
  17.        Jmp     @Done;
  18. @No:   Mov     @Result, $B800;
  19. @Done:
  20.   End;
  21. End;
  22.  
  23. begin
  24.  Write( GetVideoSegment);
  25. End.
  26.