Переход в защищенный режим.Ассемблер

org 0100h
struc  descr Limit,Base_1,Base_2,Atr,Lim_atr,Base_3
{
.Limit dw 0
.Base_1 dw 0
.Base_2 db 0
.Atr db 0
.Lim_atr db 0
.Base_3 db 0
}
start:
mov ax,03h
int 10h
push ax
mov ah,0eh
mov al,'1'
int 10h
pop ax
mov ax,cs
shl eax,4
xor ebx,ebx
mov bx,@data
add eax,ebx
mov ebp,eax
mov bx,[gdt_size-1]
mov    [higdtr],bx     ;В старшем слове GDTR лимит GDT
mov    [lowgdtr],eax       ;В младшем двойном слове база GDT
;EBP = физический адрес сегмента данных
;Заполним таблицу GDT
;Сегмент данных
xor eax,eax
mov eax,ebp
mov    [gdt_data.Base_1],ax
shr eax,16
mov    [gdt_data.Base_2],byte al
;Сегмент кода
xor eax,eax
xor ebx,ebx
mov ax,cs
shl eax,4
mov bx,start
add eax,ebx
;В ЕАХ физ.адресс сегмента кода
mov    [gdt_code.Base_1],ax
shr eax,16
mov    [gdt_code.Base_2],al
;Сегмент стека
xor eax,eax
xor ebx,ebx
mov ax,cs
mov bx,_Stack
shl eax,4
add eax,ebx
mov    [gdt_stack.Base_1],ax
shr eax,16
mov    [gdt_stack.Base_2],al
push ax
mov ah,0eh
mov al,'2'
int 10h
pop ax
;GDT заполнена , можно нырять в PM
lgdt   [_GDTR]
cli
mov eax,cr0
or  eax,1
mov cr0,eax
db    0EAh
dw    continue
dw    8
use32
align 16
continue:
mov ax,32
mov es,ax
mov ax,010Ah
xor edi,edi
mov [es:edi],word ax
jmp   $
ret
code_size    dw $-start
align        16
@data:
GDT:
gdt_null     descr  <0,0,0,0,0,0>       ;Нулевой дескриптор
gdt_code     descr  <[code_size]-1,0,0,98h,0,0> ;Селектор 8 сегмент кода
gdt_data     descr  <[data_size]-1,0,0,92h,0,0> ;Селектор 16 сегмент данных
gdt_stack    descr  <1FFh,0,0,92h,0,0>
gdt_screen   descr  <3999,8000h,0bh,92h,0,0>    ;Селектор 32 видеопамять
gdt_size     =      $-gdt_null
symbol       dw     010Ah
msg      db     27,'[31;42m RealMode',26,'[0m$'
align 16
_GDTR:
higdtr:      dw     ?
lowgdtr      dd     ?
data_size    =      $-gdt_null
align 16
_Stack:
db 200h dup (0)