'===========================================================================
' Subject: 480 SCAN LINES IN TEXT MODE       Date: 10-12-98 (10:00)       
' Author:  The ABC Programmer                Code: PB                     
' Origin:  Converted from PASCAL Code      Packet: PB.ABC
'===========================================================================
'>Can you tell me how to get 480 scan lines going in text mode?
'Sure (the function is only available on VGA compatible cards)

'Keld "HeartWare" Hansen, Sysop 2:234/10.0

SUB SetScanLines(BYVAL No AS WORD)
    !            CMP     No,480
    !            JE      Set480
    !            MOV     AX,&H1200
    !            MOV     BX,No
    !            CMP     BX,200
    !            JE      SETit
    !            INC     AX
    !            CMP     BX,350
    !            JE      SETit
    !            CMP     BX,400
    !            JNE     GetOUT
    !            INC     AX
         SETit:
    !            MOV     BL,&H30
    !            INT     &H10
    !            JMP     GetOUT
        Set480:
    !            MOV     DX,&H03CC                ;{ Set Sync-Polarity     }
    !            IN      AL,DX
    !            OR      AL,&HC0
    !            MOV     DX,&H03C2
    !            OUT     DX,AL
    !            MOV     AL,6                    ;{ Vertical Total        }
    !            MOV     DX,&H03D4
    !            OUT     DX,AL
    !            MOV     AL,11                   ;{ CRT Overflow          }
    !            MOV     DX,&H03D5
    !            OUT     DX,AL
    !            MOV     AL,7
    !            DEC     DX
    !            OUT     DX,AL
    !            MOV     AL,62                   ;{ Maximum Scan Line     }
    !            INC     DX
    !            OUT     DX,AL
    !            MOV     AL,9
    !            DEC     DX
    !            OUT     DX,AL
    !            MOV     AL,79                   ;{ Start Vert. Retrace   }
    !            INC     DX
    !            OUT     DX,AL
    !            MOV     AL,16
    !            DEC     DX
    !            OUT     DX,AL
    !            MOV     AL,234                  ;{ End Vertical Retrace  }
    !            INC     DX
    !            OUT     DX,AL
    !            MOV     AL,17
    !            DEC     DX
    !            OUT     DX,AL
    !            MOV     AL,140                  ;{ Vert. Disp Enable End }
    !            INC     DX
    !            OUT     DX,AL
    !            MOV     AL,18
    !            DEC     DX
    !            OUT     DX,AL
    !            MOV     AL,223                  ;{ Start Vert. Blanking  }
    !            INC     DX
    !            OUT     DX,AL
    !            MOV     AL,21
    !            DEC     DX
    !            OUT     DX,AL
    !            MOV     AL,231                  ;{ End Vertical Blanking }
    !            INC     DX
    !            OUT     DX,AL
    !            MOV     AL,22
    !            DEC     DX
    !            OUT     DX,AL
    !            MOV     AL,4
    !            INC     DX
    !            OUT     DX,AL
        GetOUT:
END SUB

SetScanLines 480