Инвертирование информации на дискете

ssg segment para stack 'stack'      ;  Заголовок определения стека 
dw 512 dup(?)                       ;  Задание глубины стека
;DB 400h DUP(?)
ssg ends                            ;  Конец сегмента стека
 
;-----------------------------------
 
datasg segment para 'data'          ;  Заголовок определения данных
 
SectorDataBuffer DB 512 DUP (?)     ;  Буфер для сектора
;   Адрес сектора при считывании
Cylinder DB ?                       ;  Номер цилиндра
Head DB ?                           ;  Номер головки
Sector DB ?                         ;  Номер сектора
;   Предельные значения координат
MaxCylinder DB 79                   ;  Максимальный номер цилиндра       
MaxHead DB 1                        ;  Максимальный номер головки
MaxSector DB 18                     ;  Максимальный номер сектора
 
ends                                ;  Конец сегмента
 
;-----------------------------------
 
codesg segment para 'code'          ;  Заголовок сегмента кода
begin proc far                      ;  Начало программы, основная процедура
 
;   Заголовок для exe-программы
assume cs:codesg,ds:datasg,ss:ssg    
push    ds                              
sub ax,ax                              
push    ax                                
mov ax,datasg                         
mov ds,ax                            
 
;   Основное тело
call    Clearscr                    ;  Вызов процедуры очистки экрана
call    ReadBootSector              ;  Вызов процедуры чтения загрузочного сектора
 
mov ax,0B800h
mov es,ax
 
;   Цикл по секторам
Repeat:                                     
call    ReadInvertSector            ;  Вызов процедуры чтения/инвертирования сектора
 
mov al,[Sector]
cmp al,[MaxSector]              ;  Если номер сектора максимален,
jae IncHead                     ;  переходим по метке, 
inc [Sector]                    ;  если нет - увеличиваем номер сектора
jmp Repeat                      ;  и продолжаем инвертировать, переходя по метке 
 
IncHead:
mov al,[Head]
cmp al,[MaxHead]                ;  Если номер головки максимален,
jae IncCylinder                 ;  переходим по метке,
inc [Head]                      ;  если нет - увеличиваем номер головки, 
mov [Sector],1                  ;  номер сектора - 1
jmp Repeat                      ;  и продолжаем инвертировать, переходя по метке
 
IncCylinder:                  
mov al,[Cylinder]
cmp al,[MaxCylinder]            ;  Если номер цилиндра максимален,
jae EndProc                     ;  заканчиваем, переходя по метке,  
inc [Cylinder]                  ;  если нет - увеличиваем номер цилиндра, 
mov [Head],0                    ;  устанавливаем головку на 0,
mov [Sector],1                  ;  сектор - на 1
jmp Repeat                      ;  и продолжаем инвертировать, переходя по метке
 
;   Выход из цикла по секторам  
EndProc:                              
mov ax,3
int 10h
mov ah,4Ch
int 21h                    
 
ret
begin endp                          ;  Конец основной процедуры
 
;-----------------------------------
 
;   Вспомогательные процедуры
 
;   Очистка экрана
Clearscr proc near
 
mov ax,0600h                    ;  Прокрутка
mov bh,07Н                      ;  Цвет экрана/фон символа (черно/белый)
mov cx,0000                     ;  Левый верхний угол
mov dx,184FH                    ;  Правый нижний угол
int 10h                         ;  Передача управления в БИОС
    
ret
Clearscr endp
 
;-----------------------------------
 
;   Чтение загрузочного сектора
ReadBootSector proc near
 
mov [Cylinder],0
mov [Head],0
mov [Sector],1
;   Определить и запомнить параметры дискеты
mov     al,[SectorDataBuffer+18h]
mov     [MaxSector],AL
mov     al,[SectorDataBuffer+1Ah]
dec     al
mov     [MaxHead],al
int 13h
 
ret
ReadBootSector endp
 
;-----------------------------------
 
;   Чтение и инвертирование текущего сектора
ReadInvertSector proc near
 
;pushad
push    es
mov     ax,ds
mov     es,ax
mov     si,3                        ;  Счетчик повторений
Repeat2:
mov     bx,offset SectorDataBuffer
mov     ah,2                        ;  Прочесть сектор
mov     al,1                        ;  Прочесть 1 сектор
mov     ch,[Cylinder]               ;  Устанавливаем номер текущего цилиндра,
mov     cl,[Sector]                 ;  сектора,
mov     dh,[Head]                   ;  головки.
mov     dl,0                        ;  Читаем диск "А"
int     13h
jnc     EndProcer
;   Ошибка считывания, повторить считывание сектора
mov     ah,0                       
mov     dl,0                        ;  Диска "А"
int     13h
dec     si                          ;  Уменьшить счетчик на 1
jnz     Repeat2
;   Нормальное завершение процедуры
EndProcer:  
not SectorDataBuffer            ;  Инвертирование сектора 
;   Перезапись сектора
mov     ah,03h                      
mov     al,1                        
mov     ch,[Cylinder]
mov     cl,[Sector]
mov     dh,[Head]
mov     dl,0
lea bx,SectorDataBuffer                         
int     13h
 
pop     es
;popad
 
ret
ReadInvertSector endp
 
;-----------------------------------
 
codesg ends
end begin                           ;  Конец программы

;TASM, COM-файл
.model tiny
.code
.386
org 100h
start:
    mov ah,32h  ;дать инфу о диске
    mov dl,1    ;дисковод
    lea bx,buf  ;куда записать инфу
push ds
    int 21h
 
    mov dx,[bx+0Bh] ;начальный сектор данных диска
pop ds
    mov [Begin],dx  ;стартовый сектор для чтения/записи
    mov ax,80*2*18  ;дорожки*стороны*секторов=всего секторов на диске
    sub ax,dx   ;отнять системную область
    mov [G_sek],ax  ;итого секторов для операций
 
;Посчитать число секторов для одной операции*
    mov cx,512  ;байт в секторе
    mov ax,0FA00h   ;размер буфера для чтения/записи*
    xor dx,dx
    div cx
    mov [Sek],ax    ;сохранить число
 
    mov dx,[Begin]  ;стартовый сектор
Read:
    mov al,0    ;дисковод
    mov cx,[Sek]    ;секторов для чтения
    lea bx,buf  ;адрес буфера
    int 25h     ;читать
    pop ax      ;убрать мусор из стека
 
push cx dx      ;сохранить стартовый сектор и число секторов
    mov si,bx   ;установить регистры для строковых операций
    mov di,si
    mov ax,512  ;байт в секторе*число прочитаных секторов=
    mul cx
    mov cx,ax   ;=счетчик циклов
m1:
    lodsb       ;читать символ в AL
    not al      ;инвертировать
    stosb       ;записать обратно
    loop m1     ;повторить
pop dx cx       ;вернуть параметры
 
    mov al,0
    int 26h     ;записать на диск
    pop ax
 
    cmp word ptr [G_sek],0  ;проверить флаг конца операций
    jz short exit
 
    add dx,cx   ;DX-на следующий сектор
    sub [G_sek],cx  ;уменьшить остаток не обработанных секторов
    cmp [G_sek],cx  ;сравнить остаток с обработанными
    jg short Read   ;если меньше...
    mov ax,[G_sek]  ;берем остаток и
    mov [Sek],ax    ;записать для функций чтения/записи
    mov [G_sek],0   ;установить флаг конца операций
    jmp short Read  ;читать остаток секторов
exit:
;
    ret
Begin   dw  ?   ;начальный сектор для чтения/записи
G_sek   dw  ?   ;общее число секторов для чтения/записи
Sek dw  ?   ;число секторов на одну операцию
buf:            ;буфер
    end start