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
    retf
errors:
    invoke    print, error
    mov     ah,0
    int     16h
    invoke    restorestate
    retf

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