Differences

This shows you the differences between two versions of the page.

--- extcmd.asm [2025/12/09 20:41] – fool-duplex
+++ extcmd.asm [2026/01/05 17:36] (current) – fool-duplex
@@ Line 22: / Line 22: @@
        JMP    ERRMSG          ; Affiche le message et retourne
-ECFNOK LDX    CNSGN+11        ; On copie le nom dans la consigne
+ECFNOK LDX    #CSGNDK         ; On copie le nom dans la consigne
        LDY    #FNMBF1
        LDA    #9
@@ Line 31: / Line 31: @@
        LDB    #CHBIN          ; Fichier trouvé, on lance l'exécution par une consigne CHBIN
-       STB    CNSGN+3
+       STB    CSGNTA
-       CLR    CNSGN+23        ; Mode de chargement : exécution automatique
+       CLR    CSGND2          ; Mode de chargement : exécution automatique
        LDX    #CNSGN
        JSR    RESEAU          ; Appel au central
@@ Line 42: / Line 42: @@
        BNE    ECFNE
-       JSR    OPNNRD          ; Il existe, on l'ouvre
+       JSR    FOPENR          ; Il existe, on l'ouvre
        RTS
@@ Line 48: / Line 48: @@
        JSR    DSPSTR          ; On affiche le message
        RTS
 ************************************************************************************************************
 * SEEKF
 * Cherche un fichier dans le répertoire courant et pour les .MO5 et .TO7, cherche aussi sur la racine du
 * disque système.
 ************************************************************************************************************
 SEEKF  SET    *
-       LDX    CNSGN+20        ; Copie le suffixe pointé par Y dans la consigne
+       LDX    #CSGNFE         ; Copie le suffixe pointé par Y dans la consigne
        LDA    #3
        JSR    MEMCPY
        JSR    EXIST           ; Teste la présence du fichier
        BEQ    SFRTS           ; S'il existe, c'est super
        LDB    #'O             ; O comme dans MO5 ou TO7
-       CMPB   CNSGN+21
+       CMPB   CSGNFE+1
        BNE    SFRTS           ; Seulement les fichiers .MO5 ou .TO7
-       LDB    CNSGN+11        ; On va vérifier aussi sur A:\
+       LDB    CSGNDK          ; On va vérifier aussi sur A:\
        PSHS   B
        LDB    #1              ; Disque A:
-       STB    CNSGN+11
+       STB    CSGNDK
        LDX    #ROOT           ; "/"
        LBSR   SWIDIR          ; Change le répertoire vers A:\
@@ Line 77: / Line 77: @@
        PULS   B
        PSHS   CC
-       STB    CNSGN+11
+       STB    CSGNDK
        PULS   CC
 SFRTS  RTS
 ************************************************************************************************************
 * EXIST
 * Vérifie l'existence d'un fichier dans le répertoire courant.
 ************************************************************************************************************
 EXIST  SET    *
-       JSR    BCNSGN          ; Construit une consigne standard
+       JSR    BCFPT1          ; Construit une consigne standard
        LDB    #CATP           ; Primitive de catalogue
-       STB    CNSGN+3
+       STB    CSGNTA
        LDX    #CNSGN
        JSR    RESEAU          ; Exécute la consigne
        LDX    #1
-       CMPX   CRBUFF+2        ; Résultat
+       CMPX   CRXT0           ; Résultat
        RTS
 MO5    FCC    /MO5/           ; Suffixe .MO5
 TO7    FCC    /TO7/           ; Suffixe .TO7
 NRD    FCC    /NRD/           ; Suffixe .NRD
 ROOT   FCS    %/%             ; Répertoire à chercher sur le disque système
 AUTOST FCB    $FF             ; Flag d'autostart (recherche et exécution de DEPART.NRD)
                               ; 0 = Ignorer DEPART.NRD
 FILENE FCB    CR, LF
        FCS    /Fichier inexistant./
+************************************************************************************************************
+* SWIDIR
+* Sauve le disque et répertoire courants puis continue sur CHGDIR pour changer de répertoire.
+************************************************************************************************************
+SWIDIR SET    *
+       PSHS   X               ; On sauve X
+       LDB    CSGNDK
+       STB    SVDDSK          ; On sauve le numéro de disque dans SVDDSK
+       LDX    #SVDPTH
+       STX    CSGNAD
+       LDX    #64             ; Taille maximum
+       STX    CSGNSZ
+       LDA    #GETDIR         ; Consigne GETDIR
+       STA    CSGNTA
+       LDX    #CNSGN
+       JSR    RESEAU          ; On récupère le chemin courant dans SVDPTH
+       PULS   X               ; On récupère X qui contient le pointeur vers le nouveau répertoire
+************************************************************************************************************
+* CHGDIR
+* Change de répertoire.
+************************************************************************************************************
+CHGDIR SET    *
+       STX    CSGNAD
+       LDB    SVDDSK
+       STB    CSGNDK
+       LDA    #SETDIR         ; Consigne SETDIR
+       STA    CSGNTA
+       LDX    #CNSGN
+       JSR    RESEAU          ; On change de répertoire
+       LDA    #0
+       STA    CDSUCS          ; Flag de succès
+       LDA    CRERR
+       CMPA   #0
+       BEQ    CHDRTS
+       LDA    #$FF
+       STA    CDSUCS
+CHDRTS RTS
+************************************************************************************************************
+* RSTDIR
+* Restaure le disque et répertoire qui avait été sauvés dans SVDDSK et SVDPTH.
+************************************************************************************************************
+RSTDIR SET    *
+       LDX    #SVDPTH
+       STX    CSGNAD
+       LDB    SVDDSK
+       STB    CSGNDK
+       LDX    #64             ; Taille maximum
+       STX    CSGNSZ
+       LDA    #SETDIR         ; Consigne SETDIR
+       STA    CSGNTA
+       LDX    #CNSGN
+       JSR    RESEAU          ; Change de répertoire
+       RTS
+SVDDSK RMB    1               ; Numéro de disque à conserver
+SVDPTH RMB    65              ; Chemin à conserver
 </code>
 [[code_source_de_nrdos.mo5_version_3.5|Retourner à la liste des fichiers]]