Verify

[savc_cat]

Решил вот ещё одну свою очень древнюю утилитку привести.
Установка и сброс флага проверки записи. Есть такой под досей..
Запускаем с ключом -, если хотим выключить проверку записи.
И с ключом +, если хотим включить.
Можно запустить без ключа, тогда выведет текущее состояние флага.
То же самое будет, если что-то не поймёт :)

cseg segment
assume cs:cseg,ds:cseg,es:cseg,ss:cseg

org 100h

start:
mov si,80h
cld
lodsb
mov ah,al
start1: or ah,ah
jz start2
dec ah
lodsb
cmp al,'-'
jz start3
cmp al,'+'
jz start4
jmp short start1
start2: mov ah,54h
int 21h
call view_status
mov ax,4c00h
int 21h
start3: xor al,al
jmp short start5
start4: mov al,1
start5: push ax
mov dx,offset str_ok
mov ah,9
int 21h
pop ax
call view_status
mov ah,2eh
int 21h
mov ax,4c00h
int 21h

view_status:
push ax
mov ah,9
or al,al
jz vw_st1
mov dx,offset str_on
jmp short vw_st2
vw_st1: mov dx,offset str_off
vw_st2: int 21h
pop ax
ret

str_ok db 'OK!',10,13,24h
str_on db 'Verify ON.',24h
str_off db 'Verify OFF.',24h

cseg ends
end start

Утиль для DOS
Код для Intel 8086
Компилятор TASM
Архив всего здесь