48552 (588566), страница 17
Текст из файла (страница 17)
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
pop dx
pop cx
pop bx
pop ax
ret
ENDP readsec
Процедура EnterPass проводит сравнение веденного пароля с текущем зарегистрированным паролем, что записан в сектор. Сравнение происходит с помощью команды repe cmpsb. При вводе пароля предусмотрено скрывание символов под звездочкой.
EnterPassPROC
push ax
push bx
push cx
push si
xorbx, bx
lPass:
mov ah,00h; vvoju paroli
int16h
cmpal, 13
jelCompare
mov [Password + bx], al
movah, 0eh
moval, '*'
int10h
incbx
jmplPass
lCompare:
call readsec
leasi, Password
leadi, BUFFER
cld
movcx, 6
repecmpsb; sravnenie
jnelErr
jmplNext
lErr:; owibka
lea si, ENTERR
call print_string
leasi, ErrPassMsg
callprint_string
call Exit
lNext:; Paroli OK
lea si, ENTERR
call print_string
leasi, OkMsg
callprint_string
pop si
pop cx
pop bx
pop ax
; call PresKey
ret
ENDPEnterPass
; - -----------------------------------------------
Выводы:
Выполнив данную лабораторную работу, я изучил команды прерывания ввода/вывода биоса. Научился записывать на флоппи диск в определенный цилиндр и сектор. Получил опыт в сравнение двух строк.
Лабораторная работа № 6.
Блокнот для ОС
Цель работы: Блокнот для ОС.
Задание: Создать блокнот для записи данных на флоппи диск для последующего прочтения, задействуя кнопку F1.
Новые добавления:
В данной ОС предусмотрен блокнот, он обеспечивает запись данных на флоппи диск. Для активации блокнота вам надо нажать F1. После этого последует меню самого блокнота в котором вы можете прочитать текущие данные, вести данные для записи, выйти. Запись и чтение данных происходит так же как и в 5 лабораторной работе с помощью команд биоса, только здесь задействован 11 цилиндр и 1 сектор. Данных рассчитано на 512 байт.д.анная процедура редактировать данные не может.
; - ----------------------------------------------
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
int16h
cmp ah,3Bh
jelC
cmpah,3Eh
jeF4t
mov [Editor + bx], al
movah, 0eh
int10h
incbx
jmplp
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
endp EditText
Код программы ОС:
. model small
CSEG segment
assume cs: CSEG, ds: CSEG, es: CSEG, ss: CSEG
; - --------------------------------------------- -
Start:
jmp EndData
mes1DB13,10,' Pres ', 0Dh,0Ah,0
mes2DB13,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...
BUFFERDB 512 dup (0); prosto izmenili razmer do 512
Passworddb512 dup (0)
EditorDB512 dup (0)
PassMsgdb13,10,'Enter password: ', 0Dh,0Ah,0
OkMsgdb13,10,' - > OK', 0Dh,0Ah,0
ErrPassMsg db13,10,'Password incorrect', 0Dh,0Ah,0
ConvEnterSy db13,10,' Convertor symbol in ASCII v1.0', 0Dh,0Ah
db13,10,'Enter symbol: ',0
ConResultAdb' Result ASCII: ',0
string db " Operatsionnaea Sistema studenta Macarova Anatoliea, grupa TI-065"
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 About Makar OS XXXXXXXXXXXXXXXX|', 0Dh,0Ah
db ' +------------------------------------------------|', 0Dh,0Ah
db ' | |', 0Dh,0Ah
db ' | +----------------------------------------+ |', 0Dh,0Ah
db ' | | | |', 0Dh,0Ah
db ' | | @@@@ Makar OS A 1.5 | |', 0Dh,0Ah
db ' | | @@@@ | |', 0Dh,0Ah
db ' | | Copiright (C) 2008 | |', 0Dh,0Ah
db ' | | Author Macarov Anatoli TI-065 | |', 0Dh,0Ah
db ' | | All Rights Reserved | |', 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
leasi, PassMsg
callprint_string
callEnterPass
call clear_screen
call PresKey
Exit:
mov ah,00h
int 16h
hlt
; - -----------------------------------------------
PresKeyPROC
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:
callconvert
jmp Again
F4:
call clear_screen
jmp Again
F5:
call clear_screen
lea si, About
call print_string
jmp Again
F6:
callreboot_command
hlt
ret
ENDPPresKey
; - --------------------------------------------- -
; +++ 'quit', 'exit', 'reboot' +++
reboot_command:
call clear_screen
leasi, Please
callprint_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
int16h
cmp ah,3Bh
jelC
cmpah,3Eh
jeF4t
mov [Editor + bx], al
movah, 0eh
int10h
incbx
jmplp
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
endp EditText
; - -----------------------------------------------
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
int16h
cmpal, 13
jelConv1
mov [Password + bx], al
movah, 0eh
int10h
incbx
jmplpss
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
ENDP writesec
; - -----------------------------------------------
readsec proc; scitivau dannie
![](https://s.studizba.com/z.php?f=/templates/si/i/noavatar.png&w=100&h=100&t=1"){kind=avatar}
