Nanoreseau.net

User Tools

Site Tools

Trace:
cmdp2.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
cmdp2.asm [2025/12/11 18:38] – fool-duplexcmdp2.asm [2026/01/05 12:28] (current) – fool-duplex
Line 41: Line 41:
  
 ************************************************************************************************************ ************************************************************************************************************
-* ID+* IDC
 * Exécute la commande ID (fixe l'identifiant du poste) * Exécute la commande ID (fixe l'identifiant du poste)
 ************************************************************************************************************ ************************************************************************************************************
-ID     SET    *+IDC    SET    *
        LEAY   FNMBF2,PCR        LEAY   FNMBF2,PCR
        LDX    CLPTR,PCR        LDX    CLPTR,PCR
Line 57: Line 57:
        LBSR   MEMCPY        LBSR   MEMCPY
        LDA    #0                   LDA    #0           
-       STA    CSGNOP,PCR+       STA    CSGDST,PCR
        LDA    #ID             ; Consigne ID        LDA    #ID             ; Consigne ID
        STA    CSGNTA,PCR        STA    CSGNTA,PCR
Line 66: Line 66:
  
 ************************************************************************************************************ ************************************************************************************************************
-* DATE +* TIME 
-* Exécute la commande DATE (affiche la date et l'heure)+* Exécute la commande TIME (affiche la date et l'heure)
 ************************************************************************************************************ ************************************************************************************************************
-DATE   SET    *+TIME   SET    *
        LDA    #0                   LDA    #0           
-       STA    CSGNOP,PCR+       STA    CSGDST,PCR
        LDA    #DATE           ; Consigne DATE        LDA    #DATE           ; Consigne DATE
        STA    CSGNTA,PCR        STA    CSGNTA,PCR
Line 77: Line 77:
        STA    CSGNTR,PCR        STA    CSGNTR,PCR
        LBSR   XCNSGN          ; On exécute la consigne        LBSR   XCNSGN          ; On exécute la consigne
-       BNE    DATEND+       BNE    TIMEND
  
        LEAX   DATEST,PCR      ; On affiche        LEAX   DATEST,PCR      ; On affiche
        LBSR   DSPSTR                  LBSR   DSPSTR          
-       LEAX   CRBUFF+2,PC+       LEAX   CRXT0,PCR
        BSR    D3NBS           ; Les trois nombres qui composent la date        BSR    D3NBS           ; Les trois nombres qui composent la date
        LEAX   TIMEST,PCR        LEAX   TIMEST,PCR
        LBSR   DSPSTR        LBSR   DSPSTR
-       LEAX   CRBUFF+5,PC+       LEAX   CRXT3,PCR
        BSR    D3NBS           ; Les trois nombres qui composent l'heure        BSR    D3NBS           ; Les trois nombres qui composent l'heure
-DATEND RTS+TIMEND RTS
  
 ************************************************************************************************************ ************************************************************************************************************
Line 97: Line 97:
        PSHS   B        PSHS   B
  
-D3LOOP: +D3LOOP LDB    ,X+             ; Le nombre sur 8 bits est pointé par X
-       LDB    ,X+             ; Le nombre sur 8 bits est pointé par X+
        PSHS   X        PSHS   X
        LBSR   DINT            ; Conversion décimale et affichage        LBSR   DINT            ; Conversion décimale et affichage
Line 108: Line 107:
        PULS   PC,B        PULS   PC,B
  
-DATEST FCS    /DATE  : /      ; Chaînes de caractères pour l'affichage +DATEST FCS    /Date  : /      ; Chaînes de caractères pour l'affichage 
-TIMEST FCS    / - HEURE : /   ; de la date et de l'heure+TIMEST FCS    / - Heure : /   ; de la date et de l'heure
  
 ************************************************************************************************************ ************************************************************************************************************
 * ERA * ERA
-* Exécute la commande ERA ou DEL (Effacement de fichier)+* Exécute la commande ERA ou DEL (effacement de fichier)
 ************************************************************************************************************ ************************************************************************************************************
 ERA    SET    *               ERA    SET    *              
-       LBSR   SETCTX        +       LBSR   SETCTX          ; Prépare le contexte (paramètres de la commande, changement de répertoire)
        LDB    #$FF                  LDB    #$FF          
-       CMPB   CDSUCS        +       CMPB   CDSUCS          ; Le chemin est-il valide ?
        BNE    ERAOK                 BNE    ERAOK         
                                                            
-       LBSR   PRMERR        +       LBSR   PRMERR          ; Erreur de paramètre
        BRA    ERAEND                BRA    ERAEND        
                                                            
-ERAOK  LDA    #SUPFI         +ERAOK  LDA    #SUPFI          ; Consigne SUPFI 
-       STA    CSGNTA-*-4,PC  +       STA    CSGNTA,PCR 
-       LBSR   XCNSGN         +       LBSR   XCNSGN          ; On exécute la consigne 
-ERAEND LBSR   RSTDIR         +ERAEND LBSR   RSTDIR          ; et on rétablit le répertoire courant 
-       RTS                    +       RTS                                         
-                        +
-************************************************************************************************************ +
-* OPNNRD +
-* Ouvre un fichier NRD en lecture +
-************************************************************************************************************ +
-OPNNRD SET    *               +
-       LDA    #OUVFL         +
-       STA    CSGNTA-*-4,PC  +
-       LBSR   XCNSGN          ; Ouvre le fichier en lecture seule +
-       BNE    ONEND          +
-                              +
-       LDA    CRBUFF+1,PC    +
-       STA    FNHNDL-*-4,PC  +
-       LDA    #FBFSIZ           +
-       STA    BUFPOS-*-4,PC  +
-       LDD    #0             +
-       STD    FP242-*-4,PC   +
-       STA    FP240-*-4,PC   +
-       STA    FRERR-*-4,PC   +
-       LDA    #$FF           +
-       STA    FOFLG-*-4,PC   +
-ONEND  RTS                    +
-                              +
-FNHNDL FCB    0               +
-FOFLG  FCB    0               +
-BUFPOS FCB    FBFSIZ          +
-FP242  FCB    0               +
-FP241  FCB    0               +
-FP240  FCB    0               +
-BREAD  FCB    0               +
-FRERR  FCB    0               +
-FBUFFR RMB    FBFSIZ          +
- +
-************************************************************************************************************ +
-* FCLOSE +
-* Ferme le fichier courant +
-************************************************************************************************************ +
-FCLOSE SET    *               +
-       TST    FOFLG-*-4,PC   +
-       BEQ    FCEND          +
-       LDA    #0                    ; Central +
-       STA    CSGNOP-*-4,PC  +
-       LDA    #SYSFIC        +
-       STA    CSGNTR-*-4,PC  +
-       LDA    FNHNDL         +
-       STA    CSGNDK-*-4,PC  +
-       LDA    #FERFI         +
-       STA    CSGNTA-*-4,PC  +
-       LEAX   CNSGN-*-4,PC   +
-       JSR    RESEAU         +
-       CLR    FOFLG-*-4,PC   +
-       LDA    #$FF           +
-       STA    FNHNDL-*-4,PC  +
-FCEND  RTS                    +
-                              +
-************************************************************************************************************ +
-* FGETCH +
-* Lit un caractère depuis un fichier en ignorant les LF +
-************************************************************************************************************ +
-FGETCH TST    FOFLG-*-4,PC   +
-       BNE    FGREAD         +
- +
-       RTS                    +
-                              +
-FGREAD BSR    FREAD          +
-       CMPB   #LF             ; Ignorer les LF +
-       BEQ    FGREAD         +
- +
-       RTS                   +
 </code> </code>
 [[code_source_de_nrdos.mo5_version_3.5|Retourner à la liste des fichiers]] [[code_source_de_nrdos.mo5_version_3.5|Retourner à la liste des fichiers]]
cmdp2.asm.1765474715.txt.gz · Last modified: by fool-duplex
Donate Powered by PHP Valid HTML5 Valid CSS Driven by DokuWiki