Курсовая работа: Захист файлів від запису

mov cx,Clust

and cx,1

jne NeChetW

mov al,Fat1 [bx]

mov ah,Fat1 [bx+1]

mov cx,ax

shr cx,12

shl cx,12

add cx,MassOne

mov Fat1 [bx],cl

mov Fat1 [bx+1],ch

jmp EndClustW

NeChetW:

mov al,Fat1 [bx]

mov ah,Fat1 [bx+1]

mov cx,MassOne

shl cx,4

mov MassOne,cx

mov cx,ax

shl cx,12

shr cx,12

add cx,MassOne

mov Fat1 [bx],cl

mov Fat1 [bx+1],ch

EndClustW:

Ret

WriteClusts Endp

DeleteFile Proc; Процедура знищення файлу

mov ah,41h