.model tiny
	.code
	.386p
	org 100h
start:	
	
	push cs
	pop ds

	call cs_to_eax 			; смещение для прыжка в PM
	add eax, offset next_command_PM
	mov cs:pm_offs, eax

	mov ax, cs			; сохраняем cs для возврата в rm  
	mov cs:rm_cs,ax

	call open_A20                                 ;подготовка к переходу
	call initialize_gdt
	call disable_interrupts
	;set_PE
	mov eax,cr0
	or al, 1 
	mov cr0,eax

	db 66h                                          ; прыгаем на следующую строку в pm
	db 0EAh
pm_offs dd  0 
	dw 8d

Next_command_PM:

	mov ax,16d 			; эти две строки дают сбой
	mov ds,ax

                                                                ; тут может быть всё что угодно, ничего не меняется...

	;clear_PE
	mov eax,cr0
	and al,0FEh
	mov cr0,eax                                   ; по-моему зависание происходит тут

	db 0EAh                                        ; возвращаемся в rm
	dw $ +  4 
rm_cs	dw  0 

	call enable_interrupts
	mov ah, 9 
	mov dx,offset mes
	int 21h	

ret

;*************Данные*************************

mes db 'Hello, it is rm','$'

GDT label byte
	seg_descriptor <>
	seg_descriptor <0FFFFh, 0 , 0 ,10011010b,10001111b, 0 >
ds_r	seg_descriptor <0FFFFh, 0 , 0 ,10010000b, 0 , 0 >
gdtr table_reg <$-GDT- 1 , 0 >

;*************структуры*************

seg_descriptor struct
	limit_low   dw  0 
	base_low    dw  0 
	base_middle db  0 
	t_a_p       db  0 
	flags       db  0 
	base_high   db  0 
seg_descriptor ends

table_reg struct
	limit dw  0 
	base  dd  0 
table_reg ends

;**************Процедуры***********

disable_interrupts proc
	cli
	in al,70h
	or al,80h
	out 70h,al
	ret
disable_interrupts endp
enable_interrupts proc
	in al, 70h
	and al, 7Fh
	out 70h, al
	sti
	ret
enable_interrupts endp
Open_A20 proc
	in al,92h
	or al,2h
	out 92h,al
	ret
Open_A20 endp
Initialize_gdt proc
	call cs_to_eax
	add eax, offset GDT
	mov dword ptr gdtr.base,eax
	lgdt fword ptr gdtr
	ret
Initialize_gdt endp
cs_to_eax proc
	mov eax, 0 
	mov ax,cs
	shl eax, 4 
	ret
cs_to_eax endp

end start

	mov ax,16d
	mov ds,ax