Amstrad Plus Index du Forum

Amstrad Plus
Découverte de la gamme Old et Plus des Cpc d'Amstrad.

 FAQFAQ   RechercherRechercher   MembresMembres   GroupesGroupes   S’enregistrerS’enregistrer 
 ProfilProfil   Se connecter pour vérifier ses messages privésSe connecter pour vérifier ses messages privés   ConnexionConnexion 

****Recupérer la longueur d'un fichier

 
Poster un nouveau sujet   Répondre au sujet    Amstrad Plus Index du Forum -> Bienvenue sur ce forum -> Programmation
Sujet précédent :: Sujet suivant  
Auteur Message
Ast
Administrateur

Hors ligne

Inscrit le: 05 Sep 2014
Messages: 1 956

MessagePosté le: Sam 13 Sep - 01:49 (2014)    Sujet du message: ****Recupérer la longueur d'un fichier Répondre en citant

Voici un petit programme qui permet de récupérer la longueur d'un fichier.


----------------


Here is a little proggy which allow you to take the lenght of a file.
Code:
Just for you :


;
;
; Lenght Info - 4st/iMP4CT
;       For BdcIron
;
    org #a000
;
tampon  equ #100       ; 2kb reserved
;
    ld hl,name        ; name of the file 
    ld de,tampon
    ld b,endname-name    ; lenght of the name (max 8+4)
    call #bc77           ; Open the file and read the first bloc
;
; here BC=lenght of the file
;
    ld d,#3a       ; if >=d then Letter (A-F)
    ld e,65-10       ; e will be used for Letter (A-F)
    ld h,%1111       ; this is the mask to keep the first four bits
    ld l,48       ; l will be used for number (0-9)
 
    ld a,b        ; number rout
    RRCA:rrca:rrca:rrca
    and h
    add a,l 
    cp d          ; if the number>=#3a then print letter value
    jr c,hexa1
    ld a,b        ; Letter rout and so on...
    RRCA:rrca:rrca:rrca
    and h
    add a,e
hexa1    call#bb5A
    ld a,b
    and h
    add a,l
    cp d
    jr c,hexa2
    ld a,b
    and h
    add a,e
hexa2    call#bb5A


    ld a,c
    RRCA:rrca:rrca:rrca
    and h
    add a,l
    cp d
    jr c,hexa11 
    ld a,c
    RRCA:rrca:rrca:rrca
    and h
    add a,e
hexa11    call #bb5a
    ld a,c
    and h
    add a,l
   cp d
    jr c,hexa21
    ld a,c
    and h
    add a,e
hexa21    call #bb5a
    JP #BC7A        ; close the file/Eof
;
name    defm "AZERTY.BIN"
endname




_________________
Ast/iMP4CT

"Par le pouvoir du crâne ancestral...."


Revenir en haut
Publicité






MessagePosté le: Sam 13 Sep - 01:49 (2014)    Sujet du message: Publicité

PublicitéSupprimer les publicités ?
Revenir en haut
BDCIRON
Invité

Hors ligne




MessagePosté le: Sam 13 Sep - 20:43 (2014)    Sujet du message: ****Recupérer la longueur d'un fichier Répondre en citant




Dernière édition par BDCIRON le Lun 29 Juin - 12:59 (2015); édité 1 fois
Revenir en haut
Ast
Administrateur

Hors ligne

Inscrit le: 05 Sep 2014
Messages: 1 956

MessagePosté le: Sam 13 Sep - 22:23 (2014)    Sujet du message: ****Recupérer la longueur d'un fichier Répondre en citant

Réfléchi, tu verras... Wink
_________________
Ast/iMP4CT

"Par le pouvoir du crâne ancestral...."


Revenir en haut
BDCIRON
Invité

Hors ligne




MessagePosté le: Sam 13 Sep - 23:49 (2014)    Sujet du message: ****Recupérer la longueur d'un fichier Répondre en citant




Dernière édition par BDCIRON le Lun 29 Juin - 13:00 (2015); édité 1 fois
Revenir en haut
Ast
Administrateur

Hors ligne

Inscrit le: 05 Sep 2014
Messages: 1 956

MessagePosté le: Dim 14 Sep - 00:13 (2014)    Sujet du message: ****Recupérer la longueur d'un fichier Répondre en citant

Non, j'ai juste oublié de l'enlever lors du transfert....
_________________
Ast/iMP4CT

"Par le pouvoir du crâne ancestral...."


Revenir en haut
Contenu Sponsorisé






MessagePosté le: Aujourd’hui à 03:55 (2017)    Sujet du message: ****Recupérer la longueur d'un fichier

Revenir en haut
Montrer les messages depuis:   
Poster un nouveau sujet   Répondre au sujet    Amstrad Plus Index du Forum -> Bienvenue sur ce forum -> Programmation Toutes les heures sont au format GMT + 2 Heures
Page 1 sur 1

 
Sauter vers:  

Index | Panneau d’administration | Creer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Powered by phpBB © 2001, 2005 phpBB Group
Traduction par : phpBB-fr.com