Differences

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

--- extcmd.asm [2026/01/05 16:34] – fool-duplex
+++ extcmd.asm [2026/01/05 17:36] (current) – fool-duplex
@@ Line 55: / Line 55: @@
 ************************************************************************************************************
 SEEKF  SET    *
-       LDX    CSGNFE          ; Copie le suffixe pointé par Y dans la consigne
+       LDX    #CSGNFE         ; Copie le suffixe pointé par Y dans la consigne
        LDA    #3
        JSR    MEMCPY
@@ Line 62: / Line 62: @@
        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
@@ Line 88: / Line 88: @@
        JSR    BCFPT1          ; Construit une consigne standard
        LDB    #CATP           ; Primitive de catalogue
-       STB    CNSGN+3
+       STB    CSGNTA
        LDX    #CNSGN
        JSR    RESEAU          ; Exécute la consigne
@@ Line 113: / Line 113: @@
 SWIDIR SET    *
        PSHS   X               ; On sauve X
-       LDB    CNSGN+11
+       LDB    CSGNDK
        STB    SVDDSK          ; On sauve le numéro de disque dans SVDDSK
        LDX    #SVDPTH
-       STX    CNSGN+7
+       STX    CSGNAD
        LDX    #64             ; Taille maximum
-       STX    CNSGN+4
+       STX    CSGNSZ
        LDA    #GETDIR         ; Consigne GETDIR
-       STA    CNSGN+3
+       STA    CSGNTA
        LDX    #CNSGN
        JSR    RESEAU          ; On récupère le chemin courant dans SVDPTH
@@ Line 130: / Line 130: @@
 ************************************************************************************************************
 CHGDIR SET    *
-       STX    CNSGN+7
+       STX    CSGNAD
        LDB    SVDDSK
-       STB    CNSGN+11
+       STB    CSGNDK
        LDA    #SETDIR         ; Consigne SETDIR
-       STA    CNSGN+3
+       STA    CSGNTA
        LDX    #CNSGN
        JSR    RESEAU          ; On change de répertoire
        LDA    #0
        STA    CDSUCS          ; Flag de succès
-       LDA    CRBUFF+1
+       LDA    CRERR
        CMPA   #0
        BEQ    CHDRTS
@@ Line 153: / Line 153: @@
 RSTDIR SET    *
        LDX    #SVDPTH
-       STX    CNSGN+7
+       STX    CSGNAD
        LDB    SVDDSK
-       STB    CNSGN+11
+       STB    CSGNDK
        LDX    #64             ; Taille maximum
-       STX    CNSGN+4
+       STX    CSGNSZ
        LDA    #SETDIR         ; Consigne SETDIR
-       STA    CNSGN+3
+       STA    CSGNTA
        LDX    #CNSGN
        JSR    RESEAU          ; Change de répertoire