Differences

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

--- cmdp2.asm [2025/12/11 12:29] – fool-duplex
+++ cmdp2.asm [2026/01/05 12:28] (current) – fool-duplex
@@ Line 6: / Line 6: @@
 ************************************************************************************************************
 * DRV
-* Change le disque courant
+* Change le disque courant (commande x: ou x est le disque)
 ************************************************************************************************************
 DRV    SET    *
@@ Line 29: / Line 29: @@
        BCS    CDOK
-CDERR  LDB    #EDSER          ; Code d'erreur "Disque erroné"
+CDERR  LDB    #EDQER          ; Code d'erreur "Disque erroné"
        JSR    ERRMSG          ; On affiche le message
        BRA    CDEND
@@ Line 41: / Line 41: @@
 ************************************************************************************************************
-* ID
+* IDC
-* Fixe l'identifiant du poste
+* Exécute la commande ID (fixe l'identifiant du poste)
 ************************************************************************************************************
-ID     SET    *
+IDC    SET    *
        LEAY   FNMBF2,PCR
        LDX    CLPTR,PCR
        LDA    CLTOGO,PCR
        LBSR   SKPSPC
-       LBSR   PRSPTH
+       LBSR   PRSPTH          ; On vérifie l'atome
        STA    CLTOGO,PCR
        STX    CLPTR,PCR
-       LDA    #8
+       LDA    #8              ; Seuls les 8 premiers caractères comptent
        LEAY   IDBUFF,PCR
        LEAX   CSGNDK,PCR
        LBSR   MEMCPY
        LDA    #0
-       STA    CSGNOP,PCR
+       STA    CSGDST,PCR
-       LDA    #ID
+       LDA    #ID             ; Consigne ID
        STA    CSGNTA,PCR
        LDA    #SYSFIC
        STA    CSGNTR,PCR
-       LBSR   XCNSGN
+       LBSR   XCNSGN          ; On exécute la consigne
        RTS
 ************************************************************************************************************
-* DATE
+* TIME
-* Affiche la date et l'heure
+* Exécute la commande TIME (affiche la date et l'heure)
 ************************************************************************************************************
-DATE   SET    *
+TIME   SET    *
        LDA    #0
-       STA    CSGNOP,PCR
+       STA    CSGDST,PCR
-       LDA    #DATE
+       LDA    #DATE           ; Consigne DATE
        STA    CSGNTA,PCR
        LDA    #SYSFIC
        STA    CSGNTR,PCR
-       LBSR   XCNSGN
+       LBSR   XCNSGN          ; On exécute la consigne
-       BNE    DATEND
+       BNE    TIMEND
-       LEAX   DATEST,PCR
+       LEAX   DATEST,PCR      ; On affiche
        LBSR   DSPSTR
-       LEAX   CRBUFF+2,PC
+       LEAX   CRXT0,PCR
-       BSR    D3NBS
+       BSR    D3NBS           ; Les trois nombres qui composent la date
        LEAX   TIMEST,PCR
        LBSR   DSPSTR
-       LEAX   CRBUFF+5,PC
+       LEAX   CRXT3,PCR
-       BSR    D3NBS
+       BSR    D3NBS           ; Les trois nombres qui composent l'heure
-DATEND RTS
+TIMEND RTS
 ************************************************************************************************************
@@ Line 94: / Line 94: @@
 ************************************************************************************************************
 D3NBS  SET    *
-       LDB    #3
+       LDB    #3              ; Trois fois
        PSHS   B
-D3LOOP:
+D3LOOP LDB    ,X+             ; Le nombre sur 8 bits est pointé par X
-       LDB    ,X+
        PSHS   X
-       LBSR   DINT
+       LBSR   DINT            ; Conversion décimale et affichage
        PULS   X
-       LBSR   DSPACE
+       LBSR   DSPACE          ; Affiche une espace
        DEC    ,S
        BNE    D3LOOP
@@ Line 108: / Line 107: @@
        PULS   PC,B
-DATEST FCS    /DATE  : /
+DATEST FCS    /Date  : /      ; Chaînes de caractères pour l'affichage
-TIMEST FCS    / - HEURE : /
+TIMEST FCS    / - Heure : /   ; de la date et de l'heure
+************************************************************************************************************
+* ERA
+* Exécute la commande ERA ou DEL (effacement de fichier)
+************************************************************************************************************
+ERA    SET    *
+       LBSR   SETCTX          ; Prépare le contexte (paramètres de la commande, changement de répertoire)
+       LDB    #$FF
+       CMPB   CDSUCS          ; Le chemin est-il valide ?
+       BNE    ERAOK
+       LBSR   PRMERR          ; Erreur de paramètre
+       BRA    ERAEND
+ERAOK  LDA    #SUPFI          ; Consigne SUPFI
+       STA    CSGNTA,PCR
+       LBSR   XCNSGN          ; On exécute la consigne
+ERAEND LBSR   RSTDIR          ; et on rétablit le répertoire courant
+       RTS
 </code>
 [[code_source_de_nrdos.mo5_version_3.5|Retourner à la liste des fichiers]]