;
;	Command & Conquer Red Alert(tm)
;	Copyright 2025 Electronic Arts Inc.
;
;	This program is free software: you can redistribute it and/or modify
;	it under the terms of the GNU General Public License as published by
;	the Free Software Foundation, either version 3 of the License, or
;	(at your option) any later version.
;
;	This program is distributed in the hope that it will be useful,
;	but WITHOUT ANY WARRANTY; without even the implied warranty of
;	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;	GNU General Public License for more details.
;
;	You should have received a copy of the GNU General Public License
;	along with this program.  If not, see <http://www.gnu.org/licenses/>.
;

; $Header: g:/library/wwlib32/video/rcs/vertblnk.asm 1.1 1994/04/18 09:34:51 jeff_wilson Exp $
;***************************************************************************
;**   C O N F I D E N T I A L --- W E S T W O O D   A S S O C I A T E S   **
;***************************************************************************
;*                                                                         *
;*                 Project Name : Library routine                          *
;*                                                                         *
;*                    File Name : VERTBLNK.ASM                             *
;*                                                                         *
;*                   Programmer : Christopher Yates                        *
;*                                                                         *
;*                  Last Update : 20 August, 1990   [CY]                   *
;*                                                                         *
;*-------------------------------------------------------------------------*
;* Functions:                                                              *
;*                                                                         *
; WORD Get_Vert_Blank(VOID);                                               *
; VOID Wait_Vert_Blank(VOID);						   *
; WORD get_vga_state (VOID) ;
; VOID set_vga_mode (WORD) ;
;*                                                                         *
;* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *

IDEAL
P386
MODEL USE32 FLAT

LOCALS ??

GLOBAL             Get_Vert_Blank       : NEAR
GLOBAL             Wait_Vert_Blank      : NEAR
GLOBAL		   get_vga_state	: NEAR
GLOBAL		   set_vga_mode		: NEAR


CODESEG

; ----------------------------------------------------------------
;
; Here are prototypes for the routines defined within this module:
;
; WORD Get_Vert_Blank(VOID);
; VOID Wait_Vert_Blank(VOID);
; WORD get_vga_state (VOID) ;
; VOID set_vga_mode (WORD) ;

;
; ----------------------------------------------------------------

;----------------------------------------------------------------------------

PROC	Get_Vert_Blank C near
	USES edx
		
	mov	dx,03DAH	; CRTC status register
	in	al,dx
	and	al,008H		; look at bit 3 vertical sync
	xor	ah,ah		; zero ah
	ret

ENDP	Get_Vert_Blank

;----------------------------------------------------------------------------

;----------------------------------------------------------------------------
PROC	Wait_Vert_Blank C near
	USES eax,ebx,edx
	ARG	blank:DWORD

	mov	ebx,[blank]	; get vertical blank 0 or 1 for on

	mov	edx,03DAH	; CRTC status register

	and	bl,01b
	shl	bl,3

??in_vbi:
	in	al,dx			; read CRTC status
	and	al,008h			; only vertical sync bit
	xor	al,bl
	je	??in_vbi		; in vertical sync

??out_vbi:
	in	al,dx			; read CRTC status
	and	al,008h			; only vertical sync bit
	xor	al,bl
	jne	??out_vbi		; not in vertical sync

	ret

ENDP	Wait_Vert_Blank

;----------------------------------------------------------------------------

; WORD get_vga_state (VOID) ;

PROC	get_vga_state C near
	USES  ebx
	mov   eax,0f00h
	int   10h
	and   eax, 0ffh
	ret
ENDP	get_vga_state

;----------------------------------------------------------------------------

; VOID set_vga_mode (WORD) ;

PROC   set_vga_mode C near
	ARG   mode:dword
	mov   eax , [mode]
	and   eax , 0ffh	
	int   10h
	ret
ENDP   set_vga_mode



END