Sığacak mı?
Aşağıdaki yığın dosyası DOS'ta ki DEBUG programıyla yaratabileceğiniz DOLUMU.COM'u kullanarak belirttiğiniz bir ya da birkaç dosyanın gösterilen diske sığıp sığamayacağını size söyleyecektir.
KOPYALA.BAT
ECHO Bu program kullanıldığı dizindeki dosyaları sığacaksa diskete kopyalar.
DOLUMU *.* A:
IF ERRORLEVEL 255 GOTO TAMAM
SET ERROR=Kaynak disk geçersiz.
IF ERRORLEVEL 1 SET ERROR=Hedef disket geçersiz.
IF ERRORLEVEL 2 SET ERROR=Kaynak bulunamadı.
IF ERRORLEVEL 3 SET ERROR=Hedef bulunamadı.
IF ERRORLEVEL 4 SET ERROR=Dosyalar sığmayacak.
ECHO %ERROR%
GOTO END
:TAMAM
COPY *.* A:
DEL *.*
:END
DEBUG yazıp ENTER'a bastıktan sonra aşağıdakileri girin.(Satır numaralarını yazmayın.)
1- N DOLUMU.COM
2- A 100
3- CLD
4- SUB BX,BX
5- OR AL,AL
6- JNZ 10C
7- INC BX
8- OR AH,AH
9- JZ 112
10- MOV AL,BL
11- MOV AH,4C
12- INT 21
13- INC BX
14- MOV SI,81
15- LODSB
16- CMP AL,D
17- JZ 10C
18- CMP AL,20
19- JZ 116
20- DEC SI
21- MOV DX,SI
22- INC BX
23- LODSB
24- CMP AL,D
25- JZ 10C
26- CMP AL,20
27- JNZ 123
28- MOV Byte Ptr [SI-1],0
29- SUB DI,DI
30- SUB BP,BP
31- MOV AH,4E
32- MOV CX,1
33- INT 21
34- JB 14F
35- JMP 145
36- MOV AH,4F
37- INT 21
38- JB 14F
39- ADD BP,[9A]
40- ADC DI,[9C]
41- JMP 13F
42- MOV DL,[6C]
43- OR DL,DL
44- JZ 10C
45- INC BX
46- MOV SI,BX
47- MOV AH,36
48- INT 21
49- DB 93
50- MUL CX
51- JMP 167
52- SHL AX,1
53- RCL DX,1
54- SHR BX,1
55- OR BX,BX
56- JNZ 163
57- MOV BX,SI
58- CMP DI,DX
59- JB 179
60- JA 10C
61- CMP BP,AX
62- JA 10C
63- MOV BL,FF
64- JMP 10C
65- (Enter)
66- RCX
67- 7D
68- W
69- Q