;DIRSHOW macht DIRHIDE rückgängig, DirHide muß vorher installiert sein!
include prolog.asm
REQfunc equ 4b46h ;in AX
REQcode equ 987ah ;in DX
REQHidecode equ 9877h ;Der Code für DirHide
ANScode equ 8766h ;in AX; DX=Segmentadresse
ResPara equ (ISRBase-PSPOrg+ISRE-ISRA+0fh)/16
org 5ch
ctrl0 db ? ;Ein/Aus-Schalter
;Bit7: global ein/aus
;Bit6: DIR e/a
;Bit5: FILE e/a
;Bit4: Kein DirHide im Hintergrund
AHStore db ? ;Speicher für AH
DHSeg dw ?
ISRBase: ;FCB's überschreiben
org 100h
print Text0 ;Meldung
mov [ctrl0],80h ;Standard laden
call InstChk
;nun ch=Statusregister:
;Bit0: Deinstallation nicht möglich
;Bit7: Noch nicht installiert
mov si,81h
cld
scancl: lodsb
call UpCase
cmp al,'?'
je help
cmp al,'U'
je UnInst
cmp al,'D'
je DisActiv
cmp al,'H'
je help
cmp al,'F'
je File
cmp al,'S'
JN z,Status ;'n tolles Makro erspart JUMPS
cmp al,0dh
jne scancl
jmp Install
setfile: or [es:ctrl0],20h
jr scancl
resfile: and [es:ctrl0],not 20h
jr scancl
setdir: or [es:ctrl0],40h
jr scancl
resdir: and [es:ctrl0],not 40h
jr scancl
File: ;Schalter für versteckte Dateien
lodsb
cmp al,'+'
jz setfile
cmp al,'-'
jz resfile ;sonst Hilfeseite
dec si ;Pointer zurück!
or [ctrl0],50h ;FORCE: Immer die lokale Zelle!
jr scancl
help: ;Hilfe Option "H" oder "?"
mov dx,offset TextH
jr TXTO1
UnInst: ;Deinstallation(sversuch) Option "U"
test ch,80h
mov dx,offset Text5
jnz TXTO1 ;Wenn nicht nötig!
and ch,0fh ;LOW-Teil (HookedInt-Zähler)
jz Raus
PRINT Text4
mov dx,offset Text4a
disab: and [es:Ctrl0],not 80h
jmp TXTOut
DisActiv:;Deaktivieren Option "D"
lodsb
cmp al,'+'
jz SetDir
cmp al,'-'
jz ResDir
test ch,80h
mov dx,ofs Text5
jnz TXTO1
mov dx,ofs Text4
jr disab
;Deinstallation
Raus: lds dx,[es:ofs OldInt21-ISRA+ISRBASE]
DOS 2521h
DOS 49h ;den Speicher ab es freigeben
push cs
pop ds
mov dx,ofs Text3 ;removed...
TXTO1: jmp TXTOut
InstChk:;Installationscheck, ES=Zeiger auf installierte Routine oder n.a.!,
;Bit7(CH)=0: Installationscheck erfolgreich, dann:
;ES: Segmentadresse der residenten Routine
;Bit6(CH)=0: Installationscheck von DirHide erfolgreich, dann
;[DHSeg]: Segmentadresse von DirHide
;Bit0(CH)=0: Zeiger nicht von anderen verbogen, dh. deinstallierbar
mov ax,REQfunc
mov dx,REQHidecode ;Request für DirHide
int 21h
xor ch,ch
cmp ax,ANScode
jz T21DH
or ch,40h
T21DH: mov [DHSeg],dx ;Segment für TSR speichern
mov ax,REQfunc
mov dx,REQcode
int 21h
cmp ax,ANScode ;gleich?
jz T21I
or ch,80h
mov dx,ds
T21I: push dx ;Segment der TSR
;Segment retten
DOS 3521h ;Get Int21
SES <OldInt21>,bx
cmp bx,ofs NewInt21-ISRA+ISRBASE
jnz T21FLT
mov bx,es
cmp bx,dx
je T21OK
T21FLT: inc ch ;ch <>0 wenn andere TSR stört
T21OK: pop es
ret
Install:
test ch,80h ;Installationscheck
mov dx,ofs Text2 ;Schon mal laden
jz enab
test ch,40h ;DirHide aktiv?
jz DoInst0 ;ja, /! verwerfen
test [ctrl0],10h
jnz DoInst ;ohne DirHide nur HIDDEN verstecken
mov dx,ofs Text2a
jr TXTOut ;Ohne DirHide kein DirShow
DoInst0: and [ctrl0],not 10h ;evtl. /! ignorieren
DoInst: ;ISR nach vorn schaufeln
cld
push cs
pop es
mov si,ofs ISRA
mov di,ofs ISRBase
mov cx,(ISRE-ISRA+1)/2
rep movsw
;Zeiger verbiegen
mov dx,ofs NewInt21-ISRA+ISRBASE
DOS 2521h ;Set Int21
;Environment freigeben
mov es,[2ch] ;Segment Environment
DOS 49h ;ENV-Speicher ab es freigeben
;Test des Hochladens
mov ax,cs
mov es,ax ;Eigenes Programm=Resident!
cmp ax,0a000h
jc NoHi ;unten
PRINT Text1a
NoHi: mov dx,offset Text1
;VB enabeln
enab: ;DX ist schon OK!
or [es:Ctrl0],80h ;Bit 7 setzen: enabled
;dx-adressierten Text ausgeben
TXTOut: DOS 9 ;Textausgabe
;Programm beenden
LFOut: push dx
PRINT _NL
pop dx
cmp dx,ofs Text1 ;Installierung? (etwas seltsam!)
mov ax,4C00h
jnz exi
mov ah,31h ;Resident
mov dx,ResPara
exi: int 21h
Status: test ch,80h
mov dx,ofs Text5 ;"Noch nicht installiert"
jnz TXTOut
PRINT TextS1 ;"Status d"
mov cl,[es:ctrl0]
test cl,80h
mov dx,ofs Text4+1 ;"eaktiviert"
jz TXTOut
test cl,40h
call WRPM ;PlusMinus
PRINT TextS2
test cl,20h ;PlusMinus
call WRPM
jr LFOut ;nur Zeilenende
WRPM: ;Plus (Z=0) oder Minus (Z=1) ausgeben
mov dl,'+'
jnz wrpm1
mov dl,'-'
wrpm1: DOS 2
ret
_UPCASE
ISRA:
NewInt21: ;Neue INT21-Routine
pushf
cmp ax,REQfunc ;Installationscheck?
jne I21cont
cmp dx,REQcode
jne I21cont
mov ax,ANScode
mov dx,cs
popf
iret
I21cont:
test [cs:ctrl0],80h
jz isrend
cmp ah,4eh ;FindFirst?
je show
cmp ah,4fh ;FindNext?
je show
cmp ah,11h ;dito via FCB
je show
cmp ah,12h
je show
isrend: popf
JMPF ;jmp far
OldInt21 dd ?
show: mov [cs:AHStore],ah ;speichern, da nur für Handlefunc
test [cs:ctrl0],10h
jnz sh1 ;Kein DirHide im Hintergrund!
push ds
mov ds,[cs:DHSeg]
test [ctrl0],80h ;ist wirksam?
jz sh0 ;nein, Kurzschluß!
and [ctrl0],not 80h ;TSR zeitweise disablen
pop ds
popf
;sti ;evtl fraglich
pushf
call [cs:OldInt21+(ISRBase-ISRA)]
pushf
push ds
mov ds,[cs:DHSeg]
or [ctrl0],80h ;und wieder enablen
pop ds
jr sh2 ;weiterwursteln!
sh0:
pop ds
sh1: popf
pushf
call [cs:OldInt21+(ISRBase-ISRA)]
pushf
sh2: push ax
mov ah,[cs:AHStore]
cmp ah,4eh ;FindFirst
jz sh3
cmp ah,4fh ;FindNext
jnz sh4
sh3: push bx es
DOS 2fh ;GetDTA
mov al,[es:bx+15h]
call ChkHid
jz sh5 ;Wenns nicht klingelt
and [by es:bx+15h],not 2 ;Hidden auspoken!
sh5: pop es bx
sh4: pop ax
popf
sti
retf 2
ChkHid: ;PE: AL=Attributbyte
;PA: Z=0 wenn Hidden-Flag gelöscht werden soll
test al,2
jz hid2
test al,10h
jz hid3 ;Ist eine Datei
test [cs:Ctrl0],40h ;Ist ein Verzeichnis
jr hid2
hid3: test [cs:Ctrl0],20h
hid2: ret
ISRE:
Text0 db 'DirShow 1.11 (haftmann#software): $'
Text1a db 'hoch$'
Text1 db 'geladen, Speicherbedarf '
dcd %((ResPara)*16+16)
db ' Bytes.$'
Text2 db 'reaktiviert.$'
Text2a db 'Fehler: DirHide nicht geladen!$'
Text3 db 'vom Speicher entfernt.$'
Text4 db 'deaktiviert.$'
Text4a db ' (Andere TSR stahl Int21)$'
Text5 db 'Noch nicht installiert!$'
TextS1 db 'Status d$'
TextS2 db ' f$'
TextH db ' ++ FREEWARE ++',nl
db 'Programm holt von DirHide Verstecktes wieder hervor.',nl,10
db 'Parameter: - (keiner) TSR laden oder aktivieren',nl
db ' - h oder ? diese Hilfe',nl
db ' - d DirShow deaktivieren',nl
db ' - d{+|-} Hidden-Attribut bei Dirs verstecken E/A',nl
db ' - f{+|-} dito für Files; beide Vorgaben AUS',nl
db ' - f Zwangsinstallation auch ohne DirHide, dann d+',nl
db ' - s Statusinfo',nl
db ' - u TSR entfernen$'
_NL db nl,'$'
endc
| Detected encoding: OEM (CP437) | 1
|
|
|