AFFICHIER LE CONTENU D'UN REPERTOIR

DONNE SEGMENT
MESSAGE     DB "ENTREZ LE NOM DU REPERTOIRE A LISTER",10,13,'$'
REPERTOIRE  DB "LES FICHIER CONTENU DANS ( $"
SUIT        DB "  )SONT",10,13,'$'
RETOURE     DB  10,13,'$'
BUFFER      DB   13 DUP(?),'$'   
EXTANTION   DB   256 dup(?)
DTA         DB   43 DUP(?)
ESPACE      DB   "   $"
DONNE ENDS

CODE SEGMENT
ASSUME CS:CODE,DS:DONNE

DEBUT:
   MOV  AX,DONNE
   MOV  DS,AX
   
   MOV    AH,9
   LEA    DX,MESSAGE
   INT    21H
LIRE:               ;boucle pour lire la chaine entrer
   MOV  AH,01H      ;fct 01h (lire un caractaire et mettre sont code dans AL)
   INT  21H
   CMP  AL,13       ;si c'est "entrer" on quite la boucle
   JE   AFFICHAGE
   MOV  EXTANTION[SI],AL
   INC  SI
   JMP  LIRE
AFFICHAGE:
   MOV  EXTANTION[SI],0
   MOV  AH,9
   mov  dx,offset RETOURE 
   INT  21H

   MOV    AH,1AH            ;on deplace la DTA(UNE ZONE QUI CONTIENT LES INFORMATION SUR LE FICHIER)
   MOV    DX,OFFSET DTA
   INT    21H   

   MOV    AH,4EH            ;ON CHERCHE LE FICHIER FCT 4EH
   MOV    DX,OFFSET EXTANTION  ;L'OFFSET DU BUFFER QUI CONTIENT LE NOM DU FICHIER
   XOR    CX,CX
   INT    21H

   push   ds
   pop    es
   CLD
   mov    CX,0
   
LECTURE:
   JC      FIN          
   MOV     SI,OFFSET DTA
   ADD     SI,1EH         ;A L'@ 1EH DE LA DTA SE TROUVE LE NOM DU FICHIER TROUVER	
   MOV     DI,OFFSET BUFFER
   PUSH    CX
COPIE:
   MOV  CX,1   
   lodsb
   stosb
   MOV     AH,9   ; definie la couleur des caractaire (14=jaune)
   MOV     BL,14
   int     10H
   MOV     DL,AL
   MOV     AH,2   ;fct n°2 sortie d'un caractaire 
   int     21h
   OR      AL,AL
   JNZ     COPIE
   pop     cx
   INC     CX
   CMP     CX,4   ;SI ON A ECRIT 4 NOM DE FICHIER SUR UN LINE ON PASSE A LA LINE SUIVANTE
   je      line
   MOV     AH,9
   LEA     DX,ESPACE
   INT     21H
   jmp     suivant

line:
   mov     ah,9
   lea     dx,retoure
   int     21h
   mov     CX,0

suivant:
   MOV     AH,4FH  ;ON CHERCHE LE FICHIER SUIVANT QUI A LES MEME (ATTRIBUE)
   INT     21H
   JMP     LECTURE

FIN:
   MOV     AH,9
   MOV     BL,15 ;couleur blanche
   int     10H
   mov     ah,4ch ;et on quitte le programme
   int     21h
CODE  ENDS
END    DEBUT