;

;Read Only Protect

;PC KURIER 1.02.96

;

;Komplilacja:

;TASM PROTECT.ASM

;TLINK /T PROTECT.OBJ

;

kod segment


assume cs: kod, ds: kod

org 100h


Start:


JMP Short Instaluj


nazwa DB 'PROTECT' ; na koncu powinna byc spacja

oldvec DD ?

Obsluga_21h Proc Far


assume ds: nothing

CMP AX, 4301haaaaaaaaaaaaaaaaa; zmiana atrybutu?

JE zapis

JMP oldvec


zapis:


MOV aaaAL, 0aaaaaaaaaaaaaaaaaaaaaaaa; odczytaj
atrybut

PUSH aaCX

PUSHaaaDS

PUSHaaaDX

PUSHF

CALLaaaoldvec

POPaaaaDX

POPaaaaDS

JCaaaaaaablad

ANDaaaCX, 1aaaaaaaaaaaaaaaa; czy atrybut Read
Only?

CMPaaaCX, 1

JEaaaaaaaablad2

POPaaaaCX

MOVaaaAX, 4301h aaaaaaaaaa; ustawienie atrybutu

ANDaaaCX, 0FEh aaaaaaaaaaaa; nie mozna ustawic
Read Only !!!

JMPaaaaoldvec


blad2:


LAHFaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa; ustawienie
fCarry

ORaaaaaaaAH, 1

SAHF

MOVaaaAX, 5aaaaaaaaaaaaaaaaaa; dostep niedozwolony


blad:


POPaaaaaCX

IRET


Obsluga_21h endp

InstallData:

titlaaaaDB 'Read Only protection enabled$'


assume ds: kod


Instaluj:


MOVaaaaaAX, 3521haaaaaaaaaaaaaaaaaa; odczyt wektora
21h

INTaaaaaaaa21h

MOVaaaaaWORD PTR oldvec, BX

MOVaaaaaWORD PTR oldvec+2, ES

MOVaaaaaAX, 2521haaaaaaaaaaaaaaaaa; zapis wektora
21h

MOVaaaaaDX, OFFSET Obsluga_21h

INT aaaaaa21h

MOVaaaaaAH, 09haaaaaaaaaaaaaaaaaaaa; wypisanie
ciagu znakow

MOV aaaaDX, OFFSET titl

INT aaaaaaa21h

MOVaaaaaDX, OFFSET InstallDataaa; zakonczenie
jako TSR

INTaaaaaaaa27H


Kod aends


endaaStart