home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / screen.swg / 0015_TEXTMODE.PAS.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-05-28  |  676 b   |  23 lines
  1. {
  2.  A small follow-up to the VGA tricks:
  3.  how about a 40x12 Textmode (posted earlier in the Assembler conference):
  4. }
  5.  
  6. Procedure Set12x40; Assembler;
  7. Asm
  8.   MOV     AX, 1
  9.   inT     $10            { activate 40x25 Text With BIOS }
  10.   MOV     DX, $03D4      { CrtC }
  11.   MOV     AL, 9          { maximum scan line register }
  12.   OUT     DX, AL
  13.   inC     DX
  14.   in      AL, DX
  15.   or      AL, $80        { Double each scan-line   bit7 = 1 }
  16.   OUT     DX, AL
  17.   MOV     AX, $0040      { set up BIOS data area access }
  18.   MOV     ES, AX
  19.   MOV     AL, $0B        { BIOS txtlines on 12 = $B +1 }
  20.   MOV     ES:[$0084], AL { so Programs like QEDIT will work With this }
  21. end;
  22.  
  23.