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:52] – 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    *              
Line 128: Line 127:
        LBSR   XCNSGN          ; On exécute la consigne        LBSR   XCNSGN          ; On exécute la consigne
 ERAEND LBSR   RSTDIR          ; et on rétablit le répertoire courant ERAEND LBSR   RSTDIR          ; et on rétablit le répertoire courant
-       RTS                    +       RTS                                         
-                        +
-************************************************************************************************************ +
-* FOPENR +
-* Ouvre un fichier en lecture +
-************************************************************************************************************ +
-FOPENR SET    *               +
-       LDA    #OUVFL          ; Consigne OUVFL     +
-       STA    CSGNTA,PCR +
-       LBSR   XCNSGN          ; Exécute la consigne +
-       BNE    ONEND          +
-                              +
-       LDA    CRBUFF+1,PC    +
-       STA    FNHNDL,PCR      ; Récupère le descripteur de fichier +
-       LDA    #FBFSIZ         ; et initialise les variables de gestion du buffer +
-       STA    BUFPOS,PCR +
-       LDD    #0             +
-       STD    FP242,PCR       ; Position dans le fichier sur 24 bits +
-       STA    FP240,PCR +
-       STA    FRERR,PCR +
-       LDA    #$FF           +
-       STA    FOFLG,PCR +
-ONEND  RTS                    +
-                              +
-FNHNDL FCB    0              ; Descripteur de fichier +
-FOFLG  FCB    0              ; Flag de fichier ouvert +
-BUFPOS FCB    FBFSIZ         ; Position courante dans le buffer de lecture de fichier +
-FP242  FCB    0              ; Position courante dans le fichier (24 bits) +
-FP241  FCB    0               +
-FP240  FCB    0               +
-BREAD  FCB    0              ; Nombre d'octets effectivement lus +
-FRERR  FCB    0              ; Résultat de la lecture (erreur ou EOF) +
-FBUFFR RMB    FBFSIZ         ; Buffer de lecture de fichier +
- +
-************************************************************************************************************ +
-* FCLOSE +
-* Ferme le fichier courant +
-************************************************************************************************************ +
-FCLOSE SET    *               +
-       TST    FOFLG,PCR +
-       BEQ    FCEND          +
-       LDA    #0 +
-       STA    CSGNOP,PCR +
-       LDA    #SYSFIC        +
-       STA    CSGNTR,PCR +
-       LDA    FNHNDL         +
-       STA    CSGNDK,PCR +
-       LDA    #FERFI          ; Consigne FERFI         +
-       STA    CSGNTA,PCR +
-       LEAX   CNSGN,PCR +
-       JSR    RESEAU          ; Exécute la consigne +
-       CLR    FOFLG,PCR +
-       LDA    #$FF           +
-       STA    FNHNDL,PCR +
-FCEND  RTS                    +
-                              +
-************************************************************************************************************ +
-* FGETCH +
-* Lit un caractère depuis un fichier en ignorant les LF +
-************************************************************************************************************ +
-FGETCH TST    FOFLG,PCR +
-       BNE    FGREAD         +
- +
-       RTS                    +
-                              +
-FGREAD BSR    FREAD           ; Lit un octet brut +
-       CMPB   #LF             ; Ignore 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.1765475522.txt.gz · Last modified: by fool-duplex
Donate Powered by PHP Valid HTML5 Valid CSS Driven by DokuWiki