home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / C-ASM_VI.ARJ / PROGASM.ZIP / PROG012P.ASM < prev    next >
Assembly Source File  |  1988-04-16  |  821b  |  30 lines
  1.  
  2. ;************************************************************************
  3. ; Setup text mode with more addressable columns (80 visible)        *
  4. ; Entry:    [BP+6] - Number of columns to use (80 - 255)        *
  5. ;************************************************************************
  6.  
  7.     PUBLIC    Set_More_Columns
  8.  
  9. Set_More_Columns  PROC    FAR
  10.     PUSH    BP
  11.     MOV    BP,SP
  12.     PUSH    ES
  13.  
  14.     XOR    AX,AX            ;Get address of CRT controller
  15.     MOV    ES,AX            ;From segment 0
  16.     MOV    DX,ES:[BIOS_CRT_Addr]
  17.     MOV    AL,13H            ;Index for OFFSET register
  18.     OUT    DX,AL            ;Select index
  19.     INC    DX
  20.     MOV    AX,[BP+6]        ;Fetch new text line width
  21.     MOV    ES:[BIOS_Columns],AX    ;Let BIOS know about new width
  22.     SHR    AL,1            ;Divide by 2 for OFFSET regiser
  23.     OUT    DX,AL            ;Set OFFSET register
  24.  
  25.     POP    ES            ;Standard return to C
  26.     MOV    SP,BP
  27.     POP    BP
  28.     RET    2
  29. Set_More_Columns ENDP
  30.