Помогите с загрузчиком

; процедура печати строки, пишет напрямую в видеопамять, начиная с адреса 0xb8000
; в esi заносится переменая, в которой хранится начало строки
; параметры заносятся в стек: 1) цвет
;                                                  2) X
;                                                  3) Y
.Print32
    pushad              ; занимает 32 байта
.get_param0:
    mov ecx, [esp+36]       ; первый параметр(x)
    mov eax, ecx
    mov ecx, 160
    mul ecx
    mov edx, [esp+40]       ; второй параметр(y)
    shl edx, 1
    add edx, eax
    add edx, 0xb8000    ; в edx у нас теперь нужный для символа адрес
.print_char0:
    lodsb
    test al, al
    jz short .exit1
    mov [edx], byte al
    inc edx
    mov ax, [esp+44]
    mov [edx], byte al
    inc edx
    jmp short .print_char0
.exit1:
    popad
ret 12

char far *video_mem = (char far*)0xb8000000

mov dx, 0xb8000
mov es, 0
mov es:[dx], byte al

; Процедура вывода ASCIIZ строки на экран
; ds:si - адрес строки
print:
        pusha
print_char:
        lodsb   ; Читаем очередной символ
        test    al, al  ; 0 - конец?
        jz      short pr_exit   ; Да конец
        ; Нет, выводим этот символ
        mov     ah, 0eh
        mov     bl, 2
        int     10h
        jmp     short print_char        ; Следующий
pr_exit:
        popa
ret

mov     si, 0x7C00 + String
        call    print

model tiny

codeseg
start:
start1:
   jmp vpered
   msg db 'ab'
   vpered:
   cli
   xor ax,ax
   mov ss,ax
   lea sp,[start1]  
   sti
   
   xor bh,bh
   mov ah,0eh
   lea si,msg
   add si,7c00h
   lodsb
   int 10h
  lodsb
   int 10h
   
   cli
   hlt
   

end start

ideal
model tiny
codeseg
org 7c00h
start:
                xor     ax,ax
                mov     ss,ax
                mov     sp,7c00h
                mov     ds,ax
                mov     es,ax
;-------------- ------- -------------------
                mov     si,offset message
                call    write_message
                cli
                hlt
;------------------------------------------
write_message:
                lodsb
                or      al,al
                jz      end_mes
                mov     ah,0eh
                mov     bx,7
                int     10h
                jmp     write_message
end_mes:
                ret
; ---------------------------------------
message db 'My code is working',13,10
        db 'Press reset to continue . . .',0

db 512 - ( $ - start ) -2 dup (0)
db 55h,0aah

end start

tasm /m9/z !.!
tlink /t/x !.obj, !.dat
del !.obj

model tiny
.386p



codeseg
org 7c00h


start:
                xor     ax,ax
                mov     ss,ax
                mov     sp,7c00h
                mov     ds,ax
                mov     es,ax

;------------загружаем остальные сектора---

                ;пропустим
                mov ah,02h
                mov al,100
                xor ch,ch
                mov cl,2
                xor dx,dx
               
                mov bx,offset start
                add bx,512
                int 13h

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

;------------------открываем линию А20-----

                in al,92h
                or al,2
                out 92h,al

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

                xor eax,eax
                mov ax,PM_code
                shl eax,4
                add eax,offset entry_point
                mov dword ptr ENTRY_OFF,eax
               
               
                xor eax,eax
                lea ax,start
                shl eax,4
                add ax,offset GDT
               
                mov dword ptr GDTR+2,eax
               
                lgdt fword ptr GDTR
               
                cli
               
                in al,70h
                or al,80h
                out 70h,al
               
                mov eax,CR0
                or al,1
                mov CR0,eax
; ---------------------------------------

db      66h            
        db  0EAh           
ENTRY_OFF   dd  ?          
        dw  00001000b      




GDT:
NULL_descr    db 8 DUP(0)
CODE_descr    db 0FFh,0ffh,00h,00h,00h,10011010b,11001111b,00h
DATA_descr    db 0FFh,0ffh,00h,00h,00h,10010010b,11001111b,00h
VIDEO_descr   db 0FFh,0ffh,00h,80h,0Bh,10010010b,01000000b,00h
GDT_size      equ $-GDT

GDTR          dw  GDT_size-1
              dd  ?

db 55h,0aah




PM_code   segment para 'code' use32
          assume CS:PM_code,DS:PM_data
         
entry_point:
          mov ax,00010000b
          mov ds,ax
          mov ax,00011000b
          mov es,ax
                   
          xor si,si          
          mov si,PM_data
          shl esi,4
          add esi,offset message_1
          xor edi,edi
          mov ecx,mes_len
         
          rep movsb
          jmp $
PM_code   ends


RM_stack      segment          para stack 'STACK' use16
           db          100h dup(?)                  
RM_stack       ends

PM_data   segment para public 'DATA' use32
          assume  CS:PM_data
message_1:
irpc      mes,
          db '&mes&',0dh          
endm
mes_len    equ $-message_1

PM_data  ends


          end start

; бинарный формат и разрядность по умолчанию 16 бит
org 7C00h
; здесь нужно вписать 16-разрядный код
use32
; здесь при желании можно вписать 32-разрядный код
rb 7DFEh-$
dw 0AA55h