102 lines
1.9 KiB
NASM
102 lines
1.9 KiB
NASM
use16
|
|
align 1
|
|
|
|
include "..\include\mem.h"
|
|
include "..\include\divers.h"
|
|
|
|
org 0h
|
|
|
|
header exe 1,0,imports,0,realstart
|
|
|
|
realstart:
|
|
invoke savestate
|
|
invoke print, msg
|
|
mov bp,1000h
|
|
xor di,di
|
|
xor cx,cx
|
|
xor edx,edx
|
|
verifall:
|
|
mov ah,1
|
|
int 16h
|
|
jz nokey
|
|
cmp al,' '
|
|
je enend
|
|
nokey:
|
|
mov dx,di
|
|
push edx
|
|
mov dx,cx
|
|
inc dx
|
|
push edx
|
|
mov ax,cx
|
|
inc ax
|
|
mov si,100
|
|
mul si
|
|
mov si,2880
|
|
div si
|
|
mov dx,ax
|
|
push edx
|
|
invoke print, msg2
|
|
call gauge
|
|
invoke verifysector,cx
|
|
jc errors
|
|
je noprob
|
|
inc di
|
|
noprob:
|
|
inc cx
|
|
cmp cx,2880
|
|
jnz verifall
|
|
enend:
|
|
cmp di,0
|
|
je noatall
|
|
invoke print, error2
|
|
jmp someof
|
|
noatall:
|
|
invoke print, noerror
|
|
someof:
|
|
mov ah,0
|
|
int 16h
|
|
invoke restorestate
|
|
ret
|
|
errors:
|
|
invoke print, error
|
|
mov ah,0
|
|
int 16h
|
|
invoke restorestate
|
|
ret
|
|
|
|
error db '\g10,10Erreur avec le lecteur de disquette !',0
|
|
error2 db '\g10,10Le disque est defectueux, appuyez sur une touche pour quitter',0
|
|
noerror db '\g10,10Pas de secteurs defectueux, appuyez sur une touche pour continuer',0
|
|
msg db '\m02\e\c07\g29,00- Test de surface du disque -\g02,49<Pressez espace pour quitter>',0
|
|
msg2 db '\g10,20%u %%\g10,16%u cluster testes. \h34%u cluster defectueux. ',0
|
|
|
|
gauge:
|
|
push ax dx
|
|
mov ax,cx
|
|
mul [sizeof]
|
|
div [max]
|
|
xor edx,edx
|
|
mov dx,[sizeof]
|
|
sub dx,ax
|
|
push dx
|
|
push 'Û'
|
|
mov dx,ax
|
|
push dx
|
|
push 'Û'
|
|
push gauges
|
|
invoke print
|
|
pop dx ax
|
|
ret
|
|
|
|
max dw 2879
|
|
sizeof dw 50
|
|
|
|
gauges db '\g10,18\c05%cM\c07%cM',0
|
|
|
|
importing
|
|
use VIDEO.LIB,print
|
|
use VIDEO,savestate
|
|
use VIDEO,restorestate
|
|
use DISQUE,verifysector
|
|
endi
|