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

.model tiny 
CSEG segment
assume cs:CSEG, ds:CSEG, es:CSEG, ss:CSEG
org 0 ; 
.286
Start:
 jmp EndData
 AbsSectNum dw ?
 AbsHeadNum dw ?
 gnTrackSect dw 18 ; Число секторов на дорожку
 buf db 512*26 DUP (?)
            
EndData:
    call ReadRootDir
 
    mov ax,1301h
    mov bx,07h
    xor dx,dx
    
    push cs
    pop es
    mov bp,offset buf
    
re:
    mov cx,11
    mov ax,1301h
    cmp byte ptr[bp],0
    jz ex
    
    int 10h
    inc dh
    mov dl,0
    add bp,32
    jmp re
ex:
    
  jmp $
ReadRootDir proc 
    ;Чтение корневого каталога в оперативную память 
    pusha 
    mov dx,19 ;Начальный сектор ROOT'a 
    mov di,offset buf 
Cont_Read_Root:
    push dx 
    push di 
    push es 
    Call ReadSect ;Чтение сектора 
    pop es 
    pop di 
    pop dx 
    add di,512 
    inc dx 
    cmp dx,33 
    jne Cont_Read_Root 
    popa 
    ret 
ReadRootDir endp
ReadSect proc 
    push di 
    push es 
    ; Начало расчета сектора/дорожки/головки 
    push cs 
    pop ds 
    mov cx,[gnTrackSect]
    mov si,dx 
    ; tmp=(Sector/TrackSectors); 
    mov ax,si 
    xor dx,dx 
    div cx 
    mov di,ax 
    ; Sec=Sector-(tmp*TrackSectors)+1; 
    mov ax,di 
    imul cx 
    mov dx,si 
    sub dx,ax 
    inc dx 
    mov [AbsSectNum],dx 
    ; Head=tmp & 1; 
    mov ax,di 
    and ax,1 
    mov [AbsHeadNum],ax 
    ; Trk=(Sector-(Head*TrackSectors)-(Sec-1))/(TrackSectors*2); 
    imul cx 
    push ax 
    mov ax,si 
    pop dx 
    sub ax,dx 
    mov dx,[AbsSectNum] 
    dec dx 
    sub ax,dx 
    mov dx,cx 
    shl dx,1 
    push ax 
    push dx 
    xor dx,dx 
    pop bx 
    pop ax 
    div bx ; AX = AbsTrackNum 
    ; Конец расчетов 
    mov cx,ax 
    mov al,cl 
    shr cx,2 
    and cl,0C0h 
    mov ch,al 
    and cx,0FFC0h 
    mov ax,[AbsSectNum] 
    or cl,al 
    pop es 
    pop bx ; ES:BX = Куда считывать 
    mov dx,[AbsHeadNum] 
    mov dh,dl ; Номер головки 
    mov dl,0 ; Номер диска 0 = A 
    mov al,1 ; Количество считываемых секторов 
    mov ah,2 ; Номер функции 
    int 13h 
    ret 
ReadSect endp
 
CSEG ends 
end Start

.model tiny ; откуда тут small о_О
CSEG segment
assume cs:CSEG, ds:CSEG, es:CSEG, ss:CSEG
org 7c00h ; аддрес загрузки. 
;------------------------------------------------ 
Start:
 jmp EndData
mes1    DB  13,10,' Pres <F1>', 0Dh,0Ah,0
mes2    DB  13,10,'PASSS is...', 0Dh,0Ah,0     
writ    db  13,10,'Write sector', 0Dh,0Ah,0 
sect  db 1 ; sector number (1..18).
cyld  db 10 ; cylinder number (0..79).
head  db 0 ; head number (0..1).
drive db 0 ; drive number (0..3) ; A:=0, B:=1...         
 
BUFFER  DB  512 dup(0);prosto izmenili razmer do 512 
Password    db  512 dup(0)
Editor  DB  512 dup(0)                       
PassMsg     db  13,10,'Enter password:', 0Dh,0Ah,0
OkMsg       db  13,10,' -> OK', 0Dh,0Ah,0
ErrPassMsg      db  13,10,'Password incorrect', 0Dh,0Ah,0
ConvEnterSy     db  13,10,'          Convertor symbol in ASCII v1.0', 0Dh,0Ah
        db  13,10,'Enter symbol: ',0
ConResultA  db  '  Result ASCII: ',0
   
string db "     Operatsionnaea Sistema"
string_len equ $-string
menuText  DB    "F1 Save F2 Read F3 New Write F4 Close                                 "
menuText_len equ $-menuText
menu    DB  "F1 Bloknot F2 Change PAss F3 Convertor F4 ClearScreen F5 About F6 Exit"
menu_len equ $-menu
About   DB  13,10                  
        db     '    +------------------------------------------------+', 0Dh,0Ah
        db     '    |XXXXXXXXXXXXXXXX                XXXXXXXXXXXXXXXX|', 0Dh,0Ah
        db     '    +------------------------------------------------|', 0Dh,0Ah
        db     '    |                                                |', 0Dh,0Ah
        db     '    |   +----------------------------------------+   |', 0Dh,0Ah
        db     '    |   |                                        |   |', 0Dh,0Ah
        db     '    |   |      Первая ОС                         |   |', 0Dh,0Ah
        db     '    |   |                                        |   |', 0Dh,0Ah
        db     '    |   |                                        |   |', 0Dh,0Ah
        db     '    |   |                                        |   |', 0Dh,0Ah
        db     '    |   |                                        |   |', 0Dh,0Ah
        db     '    |   +----------------------------------------+   |', 0Dh,0Ah
        db     '    |                                                |', 0Dh,0Ah
        db     '    |                   +-----------+                |', 0Dh,0Ah
        db     '    |                   |####OK#####|                |', 0Dh,0Ah
        db     '    |                   +-----------+                |', 0Dh,0Ah
        db     '    +------------------------------------------------+', 0Dh,0Ah,0
About_len equ $-About 
Please  db 13,10," please eject any floppy disks "
        db 13,10," and press any key to reboot... ",0   
ENTERR   db 13,10,0                   
EndData:
            mov ax,cs
            mov es,ax
            mov ds,ax
            xor di,di
            xor si,si
            xor dx,dx
            xor bx,bx
            xor cx,cx   
            mov ss,ax
            mov sp,0FFFEh
; blinking disabled for compatibility with dos/bios,
; emulator and windows prompt never blink.
mov     ax, 1003h
mov     bx, 0      ; disable blinking.
int     10h  
        lea si, PassMsg 
            call    print_string
            call    EnterPass           
        call clear_screen
        call PresKey
Exit:
mov ah,00h
int 16h
hlt
 
PresKey PROC   
Again:
        mov ah,00h
    int 16h
    cmp al,0    
    jne Again
        
    cmp ah,3Bh  ;Pres F1?
    je F1
    cmp ah,3Ch  ;Pres F2?
    je F2   
    cmp ah,3Dh  ;Pres F3?
    je F3   
    cmp ah,3Eh  ;Pres F4?
    je F4   
    cmp ah,3Fh  ;Pres F5?
    je F5   
    cmp ah,40h  ;Pres F6?
    je F6   
    jmp Again   
F1:      
    call EditText
    jmp Again    
F2:       
        call changepass
    jmp Again    
F3:       
        call    convert
    jmp Again
F4:       
        call clear_screen
    jmp Again
F5:  
    call    clear_screen      
    lea     si, About
        call    print_string
    jmp Again
F6:
    call    reboot_command 
    hlt   
    ret
 
PresKey ENDP        
 
reboot_command:
call    clear_screen
    lea si, Please 
    call    print_string 
mov ax, 0  ; wait for any key....
int 16h
 
; store magic value at 0040h:0072h:
;   0000h - cold boot.
;   1234h - warm boot.
;mov     ax, 0040h
;mov     ds, ax
;mov     w.[0072h], 0000h ; cold boot.
;jmp        0ffffh:0000h     ; reboot!
int 19h
 
; print a null terminated string at current cursor position, 
; string address: ds:si
print_string proc near
push    ax      ; store registers...
push    si      ;
 
next_char:      
        mov     al, [si]
        cmp     al, 0
        jz      printed
        inc     si
        mov     ah, 0eh ; teletype function.
        int     10h
        jmp     next_char
printed:
 
pop     si      ; re-store registers...
pop     ax      
ret
print_string endp
EditText proc
push ax
push bx
push cx
push dx
    mov ah,13h
    xor al,al
    xor bx,bx
    xor dx,dx
    mov cx,menuText_len
    mov bl,11
    mov bp,offset menuText
    mov dl,8
    mov dh,18h
    int 10h  
    mov ah,02h 
    mov bh,0 
    mov dh,2
    mov dl,1
    int 10h
AgainTe:
        mov ah,00h
    int 16h
    cmp al,0    
    jne AgainTe
        
    cmp ah,3Ch  ;Pres F2?
    je F2t  
    cmp ah,3Dh  ;Pres F3?
    je F3t  
    cmp ah,3Eh  ;Pres F4?
    je F4t          
    jmp AgainTe 
     
F2t:          
    jmp readtext     
F3t:          
        call    clear_screen
    jmp writetext
F4t:          
        call clear_screen
    jmp the_end
    writetext:
    mov ah,13h
    xor al,al
    xor bx,bx
    xor dx,dx
    mov cx,menuText_len
    mov bl,11
    mov bp,offset menuText
    mov dl,8
    mov dh,18h
    int 10h  
    mov ah,02h 
    mov bh,0 
    mov dh,2
    mov dl,1
    int 10h
    xor bx,bx
    lp:
        mov     ah,00h
        int 16h
        cmp     ah,3Bh
        je  lC
        cmp ah,3Eh  
        je  F4t
        mov [Editor + bx], al
        mov ah, 0eh
        int 10h
        inc bx
        jmp lp
    lC:     
    mov ah, 03h
    mov al, 1 ; write 1 sector (512 bytes).
    mov cl, sect  ; sector (1..18)
    mov ch, 11  ; cylinder (0..79)
    mov dh, head  ; head  (0..1)  
    mov dl, drive ; always 0 (A:)
    mov bx, offset Editor
    int 13h
    jmp the_end
    
    readtext:
    mov ah, 02h
        mov al, 1 ; write 1 sector (512 bytes).
        mov cl, sect  ; sector (1..18)
        mov ch, 11  ; cylinder (0..79)
        mov dh, head  ; head  (0..1)  
        mov dl, drive ; always 0 (A:)
        mov bx, offset BUFFER
        int 13h
        
        mov [BUFFER+512],0
    call clear_screen
    lea si,BUFFER
    call print_string
        mov ah,13h
    xor al,al
    xor bx,bx
    xor dx,dx
    mov cx,menuText_len
    mov bl,11
    mov bp,offset menuText
    mov dl,8
    mov dh,18h
    int 10h  
    mov ah,02h 
    mov bh,0 
    mov dh,2
    mov dl,1
    int 10h
    jmp AgainTe
the_end:
pop dx
pop cx
pop bx
pop ax   
ret
EditText endp
 
changepass proc
push ax
push bx
push cx
push si
    call clear_screen
    lea si,PassMsg
    call print_string
    xor bx,bx
    lpss:
        mov     ah,00h
        int 16h
        cmp al, 13
        je  lConv1
        mov [Password + bx], al
        mov ah, 0eh
        int 10h
        inc bx
        jmp lpss
    lConv1:     
    call writesec   
    call readsec   ;scitivau dlea proverki
    lea si,BUFFER
    call   print_string
pop si
pop cx
pop bx
pop ax
ret
changepass ENDP
 
writesec proc   ;zapisivau dannie
push ax
push bx
push cx
push dx
    lea si,writ
    call print_string 
    wr: mov ah, 03h
    mov al, 1 ; write 1 sector (512 bytes).
    mov cl, sect  ; sector (1..18)
    mov ch, cyld  ; cylinder (0..79)
    mov dh, head  ; head  (0..1)  
    mov dl, drive ; always 0 (A:)
    mov bx, offset Password
    mov [Password + 6],0; prosto dobavili v konec 0 - dlea correctnogo vivoda na ekran i sravnenia parolei  
    int 13h
    jc er 
    jmp e2e     
    er: lea dx, e2
        mov ah, 9
        int 21h
        jmp e2e
        e2 db "   i/o error...",0Dh,0Ah,'$'
        e2e: 
pop dx
pop cx
pop bx
pop ax  
ret
writesec endp     
 
readsec proc   ;scitivau dannie
push ax
push bx
push cx
push dx
        mov ah, 02h
        mov al, 1 ; write 1 sector (512 bytes).
        mov cl, sect  ; sector (1..18)
        mov ch, cyld  ; cylinder (0..79)
        mov dh, head  ; head  (0..1)  
        mov dl, drive ; always 0 (A:)
        mov bx, offset BUFFER
        int 13h 
        mov [BUFFER+6],0;prosto  dobavili v konec 0 - dlea correctnogo vivoda na ekran i sravnenia parolei
pop dx
pop cx
pop bx
pop ax   
ret
  readsec endp
 
EnterPass   PROC
push ax
push bx
push cx
push si
        xor bx, bx
lPass:
        mov     ah,00h     ;vvoju paroli
        int 16h
        cmp al, 13
        je  lCompare
        mov [Password + bx], al
        mov ah, 0eh
        mov al, '*'
        int 10h
        inc bx
        jmp lPass
 
lCompare:
call readsec
        lea si, Password
        lea di, BUFFER
        cld
        mov cx, 6
        repe    cmpsb;sravnenie
        jne lErr
        jmp lNext
 
lErr:   
        lea     si, ENTERR
            call    print_string
        lea si, ErrPassMsg 
            call    print_string
        call Exit   
lNext: ;Paroli OK
        lea     si, ENTERR
            call    print_string
        lea si, OkMsg 
            call    print_string
pop si
pop cx
pop bx
pop ax
;call PresKey
        ret
EnterPass endp
 
convert PROC
push ax
push bx
push cx
push si
 
CAgain:
    call clear_screen
    lea si,ConvEnterSy
    call print_string
    xor bx,bx
        mov ah,00h
    int 16h 
    mov dl, al
    mov ah, 0eh
    int 10h
    lConv:
    lea si,ConResultA
    call print_string
    call write_decimal
    CheEnter:
    mov ah,00h
    int 16h
    cmp al, 13
    je CAgain
    cmp al, 1Bh
    je ESCB
    jmp CheEnter
ESCB:
    call clear_screen
    call PresKey
pop si
pop cx
pop bx
pop ax
ret
convert endp
 
clear_screen proc near
        push    ax      ; store registers...
        push    ds      ;
        push    bx      ;
        push    cx      ;
        push    di      ;
 
        mov     ax, 40h
        mov     ds, ax  ; for getting screen parameters.
        mov     ah, 06h ; scroll up function id.
        mov     al, 0   ; scroll all lines!
        mov     bh, 10011111b  ; attribute for new lines.
        mov     ch, 0   ; upper row.
        mov     cl, 0   ; upper col.
        mov     di, 84h ; rows on screen -1,
        mov     dh, [di] ; lower row (byte).
        mov     di, 4ah ; columns on screen,
        mov     dl, [di]
        dec     dl      ; lower col.
        int     10h
 
        ; set cursor position to top
        ; of the screen:
        mov     bh, 0   ; current page.
        mov     dl, 0   ; col.
        mov     dh, 0   ; row.
        mov     ah, 02
        int     10h
 
        pop     di      ; re-store registers...
        pop     cx      ;
        pop     bx      ;
        pop     ds      ;
        pop     ax      ;    
        
    mov ah,13h
    xor al,al
    xor bx,bx
    xor dx,dx
    mov cx,menu_len
    mov bl,11
    mov bp,offset menu
    mov dl,8
    mov dh,18h
    int 10h  
 
    mov ah,13h
    xor al,al
    xor bh,bh
    mov cx,string_len
    mov bl,19h
    mov bp,offset string
    mov dl,10
    mov dh,0
    int 10h
 
    lea     si, ENTERR
        call    print_string
 
        ret
clear_screen endp
 
write_decimal proc
  push ax
  push cx
  push dx
  push bx
  mov  ax,dx  ;(1)
  mov  bx,10d ;(2)
  xor  cx,cx  ;(3)
 non_zero:
  xor  dx,dx  ;(4)
  div  bx     ;(5)
  push dx     ;(6)
  inc  cx     ;(7)
  cmp  ax,0   ;(8)
  jne  non_zero
    
 write_digit_loop:
  pop  dx     ;(9)
  call WRITE_HEX_DIGIT ;(10)
  loop write_digit_loop
  pop bx
  pop dx
  pop cx
  pop ax
  ret
write_decimal endp 
 
WRITE_HEX_DIGIT proc
  push DX
  xor  dh, dh
  cmp  DL,0Ah       
  jae  HEX_LETTER
  add  DL,30h
  JMP  WRITE_DIGIT
 HEX_LETTER:
  add  DL,37h
 WRITE_DIGIT:  
               
  call WRITE_CHAR
  pop  DX  
  ret
WRITE_HEX_DIGIT endp
 
WRITE_CHAR proc
  push AX
  push BX
  push CX
  mov AH,9
  xor BH,BH
  mov BL,00000111b
  mov CX,1
  mov AL,DL
  int 10h
  call CURSOR_RIGHT
  pop CX
  pop BX
  pop AX
  ret
WRITE_CHAR endp
 
CURSOR_RIGHT proc
  push DX
  call CURSOR_READ
  inc DL
  call CURSOR_SET
  pop DX
  ret
CURSOR_RIGHT endp  
 
CURSOR_READ proc
  push AX
  push BX
  push CX
  mov AH,3
  xor BH,BH
  int 10h
  pop CX
  pop BX
  pop AX
  ret
CURSOR_READ endp 
 
CURSOR_SET proc
  push AX
  push BX
  push CX
  mov AH,2
  xor BH,BH
  int 10h
  pop CX
  pop BX
  pop AX
  ret
CURSOR_SET endp    
CSEG ends 
end Start

org 7c00h ; аддрес загрузки.

org 0