Как в Ассемблре включить графичекий режим?

[program2001]

Как в Ассемблре включить графичекий режим?

[Mikl___]

program2001
В ДОСе или в Винде?
если DOS, то

 	MOV AH,0Fh 	;запомнить текущий видеорежим
 	INT 10h
 	MOV VIDEOR,AL;видеорежим в переменную videor
 	MOV AH, 00;установить видеорежим 
 	MOV AL,N; в AL номер режима
 	INT 10h
 	. . .
; перед выходом из программы
 	MOV AH, 00;установить видеорежим 
 	MOV AL,VIDEOR; восстанавливаю первоначальный видеорежим
 	INT 10h

Если для Windows -- например устанавливаю разрешение экрана 1152х864

.686P
.model flat
include windows.inc
includelib user32.lib
extern _imp__ChangeDisplaySettingsA@8:dword
extern _imp__EnumDisplaySettingsA@12:dword

.code
start:	xor ebx,ebx
	mov edi,offset lpDevMode
	push edi
	push ENUM_CURRENT_SETTINGS
	push ebx
	call _imp__EnumDisplaySettingsA@12
	assume edi:ptr DEVMODE
	mov [edi].dmPelsWidth,1152;
	mov [edi].dmPelsHeight,864;
        mov [edi].dmFields,(DM_PELSWIDTH or DM_PELSHEIGHT)
	assume edi:nothing
	push CDS_UPDATEREGISTRY;0 or CDS_RESET
	push edi
	call _imp__ChangeDisplaySettingsA@8
	ret
.data
lpDevMode DEVMODE <>
end start