Своя ОС для чайника

PresKey PROC   
...
PresKey ENDP

entry start
    start:
        mov ax,#0xb800
        mov es,ax
        seg es
        mov [0],#0x41
     seg es
        mov [1],#0x1f
    loop1: jmp loop1

.data
buff DB 512 DUP(?)
.stack
STT DW 40 DUP(?)
.code
BEGIN:
mov ax,data
mov ds,ax
mov es, ax
mov ax, stt
mov ss,ax
lea bx,ds:buff
mov ax,0201H
mov DX,080H
mov cx,0001H
int13h
movdh, DS:buff[1BFH]
mov cx,word ptr ds:buff[1COH]
int 13h
mov byte ptr DS:buff[3+8],'$'
mov dx,bx
add dx,3
mov ah,9
int 21h
KON:
mov ah, 4ch
int 21h
code ends
.end BEGIN

.model tiny
.code
.686p
org 7c00h ; Место, куда нас загрузят
start:
    jmp init
 
;===========================
;        Данные
;===========================
szBoot              db "Booting GoodwinOS"
szInvalidCommand    db  "Invalid command or programm.",0dh,0ah
; Позиция курсора
cursor   dw 0
buff_len    db 0
buff    db 256 DUP(?)
 
;===========================
;        Код
;===========================
init:
    ; очистка экрана
    mov  ax,3
    int  10h
 
    ; иинициализация RM-сегментов и стека
    mov  ax, cs
    mov  ds, ax
    mov  es, ax
    mov  ss, ax
    lea  sp, start
 
    ; сие безобразие никак не умещается в пределы одного сектора (512 байт)...
    ; поэтому подгрузим остальные сектора в память
    mov  ah, 2  ; AH = Function                          : Read sectors
    mov  al, 10 ; AL = Number of sectors to read (1-128) : 10 ( с запасом ;-) )
    xor  ch, ch ; CH = Cylinder number (0-1023)          : 0
    mov  cl, 2  ; CL = Sector number (1-17)              : 2
    xor  dx, dx ; DH = Head number (0-15)                : 0
                ; DL = Drive number (0-A:, 1-B:)         : 0 (A:)
    lea  bx, start + 512
    int  13h
    jnc  continue_loading
 
    ; ошибка чтения. покажем сообщение и грохнем процессор
    jmp display_read_error
read_error db 'R',7, 'e',7, 'a',7, 'd',7, ' ',7, 'e',7, 'r',7, 'r',7, 'o',7, 'r',7
read_err_l dw $-read_error
display_read_error:
    mov  ax, 0B800h
    mov  es, ax
    xor  di, di
    lea  si, read_error
    mov  cx, word ptr[read_err_l]
    rep  movsb
    jmp  $
 
 
endsec:
db 510-(endsec-start)DUP(?)
db 055h, 0aah
 
    ; чтение успешно, продолжаем иницилизацию
continue_loading:
    xor dx,dx
    mov ah,01h
    mov ch,20h ; Убираем курсор
    int 10h
    
    mov bp, offset szBoot
    mov bx,7
    mov cx, sizeof szBoot
    mov ax,1301h
    int 10h
    mov ah,0ah
 
    mov al,'.'
    xor cx,cx
    
@@newdot:
    int 10h
    
    call pause
    
    inc cx
    cmp cx,20
    jnz @@newdot
    
    mov ah,01h
    mov cx,1e1fh ; делаем курсор обратно
    int 10h
    
    call cls
    
; тут начинается работа с ком строкой
input:  ; вывод приглашения
    mov ax,0e3EH
    int 10h
    xor cx,cx
    inc cx
inkey:  ; прием следующей клавищи
    xor ah,ah
    int 16h
    test al,al  ; обычный или расширеный?
    jnz literal ; расширеные пока не принимаем
    
    jmp inkey
literal:    ; обычный
    cmp al,0dh  ; то был ентер ?
    jz  command
    
    cmp al,08h
    jnz @f
    ; backspace
    cmp [buff_len],0 ; а что-нибудь есть вообще?
    jz inkey
    
    mov ah,0eh
    mov bh,0
    int 10h
    mov ah,0ah
    mov al,' '
    int 10h
    
    dec [buff_len]
    dec [cursor]
    jmp inkey
    
@@:
 
    mov si,offset buff
    movzx bx,[buff_len]
    mov [si+bx],al  ; сохраняем введенный символ в буфер
    inc [buff_len]
    inc [cursor]
    jc command
    mov ah,0eh
    int 10h     ; выводим введеный символ
    
    jmp inkey
 
command:
    mov ax,0e0dh
    int 10h
    mov al,0ah
    int 10h
    movzx cx,[buff_len]
    test cx,cx
    jz input
    call ErrorCom
    xor eax,eax
    mov word ptr [cursor],ax
    jmp input
 
pause proc
 
    pusha
    xor ax,ax
    int 1ah
    
    mov bh,dl
@@:
    int 1ah
    cmp bh,dl
    jz @b
    mov bh,dl
@@:
    int 1ah
    cmp bh,dl
    jz @b
    popa
    ret
pause endp
 
cls proc
    pusha
    push es
    push 0b800h
    pop es
    mov ax,0720h
    mov cx,160
    xor di,di
    rep stosw
    
    mov ah,2
    xor dx,dx
    xor bx,bx
    mov word ptr[cursor],bx
    int 10h
    pop es
    popa
    ret
 
cls endp
 
ErrorCom proc
    
    pusha
    mov ah,3
    int 10h
    mov bp,offset szInvalidCommand
    mov cx,sizeof szInvalidCommand
    mov bx,7
    mov ax,1301h
    int 10h
    popa
    ret
 
ErrorCom endp
end start