Кто хочет создавать ОС вместе со мной?

.386p
.model tiny
code segment use16
assume cs:code,ds:code
org 100h
start:
      jmp short entry_
      boot db 1eh dup(?)
entry_:
      mov byte ptr cs:[0] ,0CFH
      mov ax,cs
      shl eax,16
      xor ax,ax
      lea ax,IntrHandler
      mov es,ax
      mov bx,80
      mov cx,236
setintrloop_:
      mov dword ptr es:[bx],eax
      add bx,4 
      loop setintrloop_
      int 21h
      int 20h       
      MOV BX,8000H
      mov es,BX
      mov bx,100H
      mov dx,1
      MOV AX,11
      call ReadSector
      xor bx,bx
      mov cx,100h
loop_:
      mov byte ptr es:[bx],0
      inc bx
      loop loop_
      mov byte ptr es:[80h],1
      mov byte ptr es:[81h],' '
      mov byte ptr es:[82h],0dh
      MOV AX,8000H
      MOV DS,AX    
      MOV SP,0FFFFH
      MOV SS,AX
      push es
      push 100h
      retf 
      ret
IntrHandler proc
      pusha
      mov bx,0B800h
      mov es,bx
      xor bx,bx
      mov al,ah
      shr al,4
      mov byte ptr es:[bx],al
      and ah,0fh
      inc bx 
      inc bx
      mov byte ptr es:[bx],ah
      popa 
      iret
intrhandler endp
 
ReadSector proc
       PUSH AX
       mov ax,dx
;sector
       xor dx,dx
       mov si,18
       div si
       mov cl,dl
       inc cl
 
;head
       xor dx,dx
       mov si,2
       div si
       mov dh,dl       
;celinder
       mov ch,al
       mov dl,0h
       POP AX
       mov ah,2
       int 13h
       ret
ReadSector endp 
code ends
end start