Nanoreseau.net

User Tools

Site Tools

Trace:
extcmd.asm

Differences

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

Link to this comparison view

Both sides previous revisionPrevious revision
Next revision		Previous revision
extcmd.asm [2026/01/03 12:09] – fool-duplexextcmd.asm [2026/01/05 17:36] (current) – fool-duplex
Line 22: Line 22:
        JMP    ERRMSG          ; Affiche le message et retourne        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        LDY    #FNMBF1
        LDA    #9        LDA    #9
Line 31: Line 31:
  
        LDB    #CHBIN          ; Fichier trouvé, on lance l'exécution par une consigne CHBIN        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        LDX    #CNSGN
        JSR    RESEAU          ; Appel au central        JSR    RESEAU          ; Appel au central
Line 42: Line 42:
        BNE    ECFNE        BNE    ECFNE
  
-       JSR    OPNNRD          ; Il existe, on l'ouvre+       JSR    FOPENR          ; Il existe, on l'ouvre
        RTS        RTS
  
Line 55: Line 55:
 ************************************************************************************************************ ************************************************************************************************************
 SEEKF  SET    * 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        LDA    #3
        JSR    MEMCPY        JSR    MEMCPY
Line 62: Line 62:
  
        LDB    #'O             ; O comme dans MO5 ou TO7        LDB    #'O             ; O comme dans MO5 ou TO7
-       CMPB   CNSGN+21+       CMPB   CSGNFE+1
        BNE    SFRTS           ; Seulement les fichiers .MO5 ou .TO7        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        PSHS   B
        LDB    #1              ; Disque A:        LDB    #1              ; Disque A:
-       STB    CNSGN+11+       STB    CSGNDK
        LDX    #ROOT           ; "/"        LDX    #ROOT           ; "/"
        LBSR   SWIDIR          ; Change le répertoire vers A:\        LBSR   SWIDIR          ; Change le répertoire vers A:\
Line 77: Line 77:
        PULS   B        PULS   B
        PSHS   CC        PSHS   CC
-       STB    CNSGN+11+       STB    CSGNDK
        PULS   CC        PULS   CC
 SFRTS  RTS SFRTS  RTS
Line 86: Line 86:
 ************************************************************************************************************ ************************************************************************************************************
 EXIST  SET    * EXIST  SET    *
-       JSR    BCNSGN          ; Construit une consigne standard+       JSR    BCFPT1          ; Construit une consigne standard
        LDB    #CATP           ; Primitive de catalogue        LDB    #CATP           ; Primitive de catalogue
-       STB    CNSGN+3+       STB    CSGNTA
        LDX    #CNSGN        LDX    #CNSGN
        JSR    RESEAU          ; Exécute la consigne        JSR    RESEAU          ; Exécute la consigne
        LDX    #1        LDX    #1
-       CMPX   CRBUFF+2        ; Résultat+       CMPX   CRXT0           ; Résultat
        RTS        RTS
  
Line 113: Line 113:
 SWIDIR SET    * SWIDIR SET    *
        PSHS   X               ; On sauve X        PSHS   X               ; On sauve X
-       LDB    CNSGN+11+       LDB    CSGNDK
        STB    SVDDSK          ; On sauve le numéro de disque dans SVDDSK        STB    SVDDSK          ; On sauve le numéro de disque dans SVDDSK
        LDX    #SVDPTH        LDX    #SVDPTH
-       STX    CNSGN+7+       STX    CSGNAD
        LDX    #64             ; Taille maximum        LDX    #64             ; Taille maximum
-       STX    CNSGN+4+       STX    CSGNSZ
        LDA    #GETDIR         ; Consigne GETDIR        LDA    #GETDIR         ; Consigne GETDIR
-       STA    CNSGN+3+       STA    CSGNTA
        LDX    #CNSGN        LDX    #CNSGN
        JSR    RESEAU          ; On récupère le chemin courant dans SVDPTH        JSR    RESEAU          ; On récupère le chemin courant dans SVDPTH
Line 130: Line 130:
 ************************************************************************************************************ ************************************************************************************************************
 CHGDIR SET    * CHGDIR SET    *
-       STX    CNSGN+7+       STX    CSGNAD
        LDB    SVDDSK        LDB    SVDDSK
-       STB    CNSGN+11+       STB    CSGNDK
        LDA    #SETDIR         ; Consigne SETDIR        LDA    #SETDIR         ; Consigne SETDIR
-       STA    CNSGN+3+       STA    CSGNTA
        LDX    #CNSGN        LDX    #CNSGN
        JSR    RESEAU          ; On change de répertoire        JSR    RESEAU          ; On change de répertoire
        LDA    #0        LDA    #0
        STA    CDSUCS          ; Flag de succès        STA    CDSUCS          ; Flag de succès
-       LDA    CRBUFF+1+       LDA    CRERR
        CMPA   #0        CMPA   #0
        BEQ    CHDRTS        BEQ    CHDRTS
Line 153: Line 153:
 RSTDIR SET    * RSTDIR SET    *
        LDX    #SVDPTH        LDX    #SVDPTH
-       STX    CNSGN+7+       STX    CSGNAD
        LDB    SVDDSK        LDB    SVDDSK
-       STB    CNSGN+11+       STB    CSGNDK
        LDX    #64             ; Taille maximum        LDX    #64             ; Taille maximum
-       STX    CNSGN+4+       STX    CSGNSZ
        LDA    #SETDIR         ; Consigne SETDIR        LDA    #SETDIR         ; Consigne SETDIR
-       STA    CNSGN+3+       STA    CSGNTA
        LDX    #CNSGN        LDX    #CNSGN
        JSR    RESEAU          ; Change de répertoire        JSR    RESEAU          ; Change de répertoire
extcmd.asm.1767438555.txt.gz · Last modified: by fool-duplex
Donate Powered by PHP Valid HTML5 Valid CSS Driven by DokuWiki