cos2000v1/programs/gestion.asm

include "..\include\mem.h"
include "..\include\fat.h"
include "..\include\divers.h"
include "..\include\graphic.h"

org 0h

start:
header exe 1

realstart:  
    invoke    saveparamto, infos
    invoke    print, msg1
    invoke    initdrive
    xor     bp,bp
    invoke    findfirstfile, bufferentry 
    jc      nofiles
go:
        push    word [bufferentry.result.fileattr]
        push    [bufferentry.result.filesize]
        push    [bufferentry.result.filetime]
        push    [bufferentry.result.filedate]
        push    [bufferentry.result.filetimecrea]
        push    [bufferentry.result.filedatecrea]
        mov     bx,bufferentry.result.filename
        push    bx
        push    line
    invoke    print
 
    invoke    findnextfile, bufferentry 
    jc      nofiles
    inc     bp
    jmp     go
nofiles:
    invoke    print, menu
    mov     [xx],1
    stdcall    changelineattr,[xx],112
endof:
    mov     ax,0
    int     16h
    cmp     ah,50h
    jne     tre1
    cmp     [xx],bp
    ja      endof
    stdcall    changelineattr,[xx],7
    inc     [xx]
    stdcall    changelineattr,[xx],112
    jmp     endof
tre1:
    cmp     ah,48h
    jne     tre2
    cmp     [xx],1
    je      endof
    stdcall    changelineattr,[xx],7
    dec     [xx]
    stdcall    changelineattr,[xx],112
    jmp     endof
tre2:
    cmp     al,0Dh
    jne     tre3 
tre3:
    cmp     ah,59
    jne     tre4
    jmp     realstart
tre4:
    cmp     ah,67
    jne     endof
    retf

;couleur al pour ligne %0 en %1
proc changelineattr uses ax bx di es,line:word,attr:word
mov ax,0B800h
mov es,ax
mov ax,[line]
add ax,3
mul [cs:infos.columns]
mov di,ax
shl di,1
mov al,[cs:infos.columns]
inc di
mov bx,[attr]
popep:
mov [es:di],bl
add di,2
dec al
jnz popep
retf   
endp 

xx dw 1
xxold dw 0
menu db '\c70 [F1] Lire disque [F9] Quitter                                                  \c07',0
msg1 db '\e\g00,00\c70                       Gestionnaire de fichier Version 1.5                      '
     db '\g00,01\c07--------------------------------------------------------------------------------'
     db '\g00,02Nom      Ext.  Date creation           Date modification      Taille   Attributs'
     db '\g00,03-------------------------------------------------------------------------------\l',0
line db '\c07%n   %d   %t   %d   %t   %z   %a\l',0
bufferentry find 
infos vgainf 

importing
use VIDEO.LIB,print
use VIDEO,saveparamto
use DISQUE,initdrive
use DISQUE,findfirstfile
use DISQUE,findnextfile
endi