Nanoreseau.net

User Tools

Site Tools

Trace: • cmdp3.asm • cmdp2.asm
cmdp4.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
cmdp4.asm [2025/12/29 13:30] – fool-duplexcmdp4.asm [2026/01/03 18:16] (current) – fool-duplex
Line 10: Line 10:
 CDBFSZ EQU   64               ; Taille du buffer pour récupérer le répertoire courant CDBFSZ EQU   64               ; Taille du buffer pour récupérer le répertoire courant
  
-CD     SET    *           +CD     SET    *
        CLR    CSGDST          ; Central        CLR    CSGDST          ; Central
        CLR    CSGNPG          ; Page 0        CLR    CSGNPG          ; Page 0
-       LDB    #SYSFIC      +       LDB    #SYSFIC 
-       STB    CSGNTR       +       STB    CSGNTR 
-       LDB    CDISK        +       LDB    CDISK 
-       STB    CSGNDK       +       STB    CSGNDK 
-       LDX    CLPTR        +       LDX    CLPTR 
-       LDA    CLTOGO       +       LDA    CLTOGO 
-       JSR    SKPSPC       +       JSR    SKPSPC 
-       BEQ    CDGO01       +       BEQ    CDGO01 
-                          +
        CMPA   #2              ; Longueur 2 ?        CMPA   #2              ; Longueur 2 ?
-       BNE    CDPATH       +       BNE    CDPATH 
-                           + 
-       LDB    1,X          +       LDB    1,X 
-       CMPB   #COLON       +       CMPB   #COLON 
-       BNE    CDPATH       +       BNE    CDPATH 
-                           + 
-       LDB    ,X          +       LDB    ,X
        SUBB   #AROB           ; Calcule le numéro de disque        SUBB   #AROB           ; Calcule le numéro de disque
        STB    CSGNDK          ; Change le disque courant        STB    CSGNDK          ; Change le disque courant
-                           + 
-CDGO01 LDX    #CDTBUF      +CDGO01 LDX    #CDTBUF 
-       STX    CSGNAD      +       STX    CSGNAD
        LDX    #CDBFSZ        LDX    #CDBFSZ
-       STX    CSGNSZ       +       STX    CSGNSZ 
-       LDA    #GETDIR      +       LDA    #GETDIR 
-       STA    CSGNTA      +       STA    CSGNTA
        JSR    XCNSGN          ; Récupère le répertoire courant sur le nouveau disque        JSR    XCNSGN          ; Récupère le répertoire courant sur le nouveau disque
-       BNE    CDRTS        +       BNE    CDRTS 
-                          +
        LDB    CSGNDK          ; Affiche le nouveau chemin        LDB    CSGNDK          ; Affiche le nouveau chemin
-       ADDB   #AROB        +       ADDB   #AROB 
-       JSR    PCHAR        +       JSR    PCHAR 
-       LDB    #COLON       +       LDB    #COLON 
-       JSR    PCHAR        +       JSR    PCHAR 
-       LDX    #CDTBUF      +       LDX    #CDTBUF 
-       JSR    DSPSTR       +       JSR    DSPSTR 
-       BRA    CDRTS        +       BRA    CDRTS 
-                           + 
-CDPATH CLR    A,X          +CDPATH CLR    A,X 
-       CMPA   #2           +       CMPA   #2 
-       BCS    CDGO02       +       BCS    CDGO02 
-       LDB    1,X          +       LDB    1,X 
-       CMPB   #COLON       +       CMPB   #COLON 
-       BNE    CDGO02       +       BNE    CDGO02 
-       LDB    ,X           +       LDB    ,X 
-       SUBB   #AROB          ; Calcule le numéro de disque +       SUBB   #AROB           ; Calcule le numéro de disque 
-       STB    CSGNDK       +       STB    CSGNDK 
-       DECA                +       DECA 
-       DECA                +       DECA 
-       LEAX   2,X          +       LEAX   2,X 
-                           + 
-CDGO02 EXG    A,B          +CDGO02 EXG    A,B 
-       INCB                +       INCB 
-       CLRA                +       CLRA 
-       STD    CSGNSZ       +       STD    CSGNSZ 
-       STX    CSGNAD       +       STX    CSGNAD 
-       LDA    #SETDIR      +       LDA    #SETDIR 
-       STA    CSGNTA       +       STA    CSGNTA 
-       JSR    XCNSGN       +       JSR    XCNSGN 
-                           + 
-CDRTS  RTS                 +CDRTS  RTS 
-                  + 
-CDTBUF RMB    CDBFSZ+CDTBUF RMB    CDBFSZ,0
  
 ************************************************************************************************************ ************************************************************************************************************
Line 83: Line 83:
 ************************************************************************************************************ ************************************************************************************************************
 UNKRT3 SET    * UNKRT3 SET    *
-       jsr     GETKEY +       JSR    GETKEY 
-       cmpb    #CNTA +       CMPB   #CNTA 
-       beq     UK3LB1+       BEQ    UK3LB1
  
-       cmpb    #INS +       CMPB   #INS 
-       bne     UK3LB2+       BNE    UK3LB2
  
-       ldb     COLN +       LDB    COLN 
-       pshs    b +       PSHS   B 
-       ldb     RANG +       LDB    RANG 
-       pshs    b +       PSHS   B 
-       ldb     #US                      ; Positionnement du curseur +       LDB    #US             ; Positionnement du curseur 
-       jsr     PCHAR +       JSR    PCHAR 
-       puls    b +       PULS   B 
-       orab    #$40 +       ORB    #$40 
-       jsr     PCHAR +       JSR    PCHAR 
-       ldb     #$68 +       LDB    #$68 
-       jsr     PCHAR+       JSR    PCHAR
  
-UK3LP1 lda     #$FF +UK3LP1 LDA    #$FF 
-       sta     COPCHR +       STA    COPCHR 
-       ldb     #RIGHT +       LDB    #RIGHT 
-       jsr     PCHAR +       JSR    PCHAR 
-       ldb     #LEFT +       LDB    #LEFT 
-       jsr     PCHAR +       JSR    PCHAR 
-       ldb     #LEFT +       LDB    #LEFT 
-       jsr     PCHAR +       JSR    PCHAR 
-       ldb     COLN +       LDB    COLN 
-       cmpb    ,s +       CMPB   ,S 
-       bcc     UK3LP1+       BCC    UK3LP1
  
-       puls    b +       PULS   B 
-       ldb     #RIGHT +       LDB    #RIGHT 
-       jsr     PCHAR +       JSR    PCHAR 
-       ldb     #SPACE +       LDB    #SPACE 
-       jsr     PCHAR +       JSR    PCHAR 
-       bra     UNKRT3+       BRA    UNKRT3
  
-UK3LB2 cmpb    #EFF +UK3LB2 CMPB   #EFF 
-       bne     UK3LB3+       BNE    UK3LB3
  
-       lda     #$FF +       LDA    #$FF 
-       sta     COPCHR +       STA    COPCHR 
-       ldb     #LEFT +       LDB    #LEFT 
-       jsr     PCHAR +       JSR    PCHAR 
-       clr     COPCHR +       CLR    COPCHR 
-       bra     UNKRT3+       BRA    UNKRT3
  
-UK3LB3 jsr     PCHAR +UK3LB3 JSR    PCHAR 
-       bra     UNKRT3+       BRA    UNKRT3 
 + 
 +UK3LB1 LDX    #TERMIN 
 +       LDA    #25             ; 25 octets 
 +       JMP    HEXLIN          ; Affiche les terminateurs de ligne 
 + 
 +************************************************************************************************************ 
 +* GETATT 
 +* Récupère les attributs d'un fichier. Inutilisé. 
 +************************************************************************************************************ 
 +GETATT SET    * 
 +       JSR    BCFPT2 
 +       JSR    PRSINT 
 +       LBLS   PRMERR 
 + 
 +       TFR    Y,D 
 +       TSTA 
 +       LBNE   PRMERR 
 + 
 +       STB    CSGNDK 
 +       LDB    #LIRATT 
 +       STB    CSGNTA 
 +       JSR    XCNSGN 
 +       BNE    GARTS 
 + 
 +       LDX    F2BFPT 
 +       LDA    #128 
 +       JSR    HEXLIN 
 + 
 +GARTS  RTS 
 + 
 +************************************************************************************************************ 
 +* SETATT 
 +* Enregistre les attributs d'un fichier. Inutilisé. 
 +************************************************************************************************************ 
 +SETATT SET    * 
 +       JSR    BCFPT2 
 +       JSR    PRSINT 
 +       LBLS   PRMERR 
 +       TFR    Y,D 
 +       TSTA 
 +       LBNE   PRMERR 
 + 
 +       STB    CSGNDK 
 +       LDB    #ECRATT 
 +       STB    CSGNTA 
 +       LDX    F2BFPT 
 +       LDY    #CSGNFN 
 +       LDA    #48 
 + 
 +SALOOP LDB    ,X+ 
 +       STB    ,Y+ 
 +       DECA 
 +       BNE    SALOOP 
 + 
 +       JSR    XCNSGN 
 +       RTS 
 + 
 +************************************************************************************************************ 
 +* RDCBUF 
 +* Lit le contenu du buffer commun. Inutilisé. 
 +************************************************************************************************************ 
 +RDCBUF SET    * 
 +       JSR    BCFPT2 
 +       LDB    #RBUFF 
 +       STB    CSGNTA 
 +       JSR    XCNSGN 
 +       RTS 
 + 
 +************************************************************************************************************ 
 +* WRCBUF 
 +* Ecrit le contenu du buffer commun. Inutilisé. 
 +************************************************************************************************************ 
 +WRCBUF SET    * 
 +       JSR    BCFPT2 
 +       LDB    #WBUFF 
 +       STB    CSGNTA 
 +       LDX    F2BFPT 
 +       LDY    #CSGNDK 
 +       LDA    #30
  
-UK3LB1 ldx     #TERMIN +WCBLP  LDB    ,X+ 
-       lda     #25             ; 25 octets +       STB    ,Y+ 
-       jmp     HEXLIN          ; Affiche les terminateurs de ligne+       DECA 
 +       BNE    WCBLP
  
 +       JSR    XCNSGN
 +       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]]
cmdp4.asm.1767011409.txt.gz · Last modified: by fool-duplex
Donate Powered by PHP Valid HTML5 Valid CSS Driven by DokuWiki