Differences

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

--- utils.asm [2026/01/02 14:58] – fool-duplex
+++ utils.asm [2026/01/05 18:04] (current) – fool-duplex
@@ Line 235: / Line 235: @@
 BADARG FCB    CR, LF
-       FCS    "Mauvais argument pour PSET"
+       FCS    /Mauvais argument pour PSET/
        FCB    CR, LF
        FCS    /X = /
 YEG    FCB    CR, LF
-       FCC    ", Y = "
+       FCS    /, Y = /
-       FCB    0
 VALTAB FDB     1,  2,  3,  4,  5,  6,  7,  8
@@ Line 249: / Line 248: @@
 TMP16  FDB    $0000
-       RMB    2               ; Deux octets inutilisés
+       RMB    2,0             ; Deux octets inutilisés
 ************************************************************************************************************
@@ Line 443: / Line 442: @@
        BEQ     PPSUF1
-       CMPB    #JOKER
+       CMPB    #ASTRSK
        BEQ     PPJKR1
@@ Line 504: / Line 503: @@
        BHI     PPERR2
-       CMPB    #JOKER
+       CMPB    #ASTRSK
        BEQ     PPJKR2
@@ Line 553: / Line 552: @@
 SBPTCT FCB     $00             ; Nombre de sous-répertoires traversés
-DBUF01 RMB     65              ; Buffers de chemin
+DBUF01 RMB     65,0            ; Buffers de chemin
-DBUF02 RMB     65
+DBUF02 RMB     65,0
 ************************************************************************************************************
@@ Line 573: / Line 572: @@
 IPALFA ADDB   #$37
-IPRT   RTS
+IPRTS  RTS
 ************************************************************************************************************
@@ Line 648: / Line 647: @@
 ************************************************************************************************************
 UPCASE SET    *
-       CMPB   #'A
+       CMPB   #'a
        BCS    UPRTS
-       CMPB   #'Z
+       CMPB   #'z
        BHI    UPRTS
@@ Line 778: / Line 777: @@
        PSHS   B
        TSTA
-       BEQ    PHERR
+       BEQ    PNERR
 PNLOOP TSTA
-       BEQ    PHRTS
+       BEQ    PNRTS1
        LDB    ,X
        LBSR   UPCASE
        CMPB   #SPACE
-       BEQ    PHRTS
+       BEQ    PNRTS1
        SUBB   #'0
@@ Line 793: / Line 792: @@
        CMPB   #17
-       BCS    PHERR
+       BCS    PNERR
        SUBB   #7
 PNVLD  CMPB   ,S
-       BCC    PHERR
+       BCC    PNERR
        LEAX   1,X
@@ Line 808: / Line 807: @@
 PNMUL  ADDD   3,S
-       BCS    PNRTS
+       BCS    PNRTS2
        DEC    ,S
        BNE    PNMUL
@@ Line 817: / Line 816: @@
        BRA    PNLOOP
-PHRTS  ANDCC  #$FE
+PNRTS1 ANDCC  #$FE
        PULS   PC,Y,B
-PHERR  ORCC   #1
+PNERR  ORCC   #1
        PULS   PC,Y,B
-PNRTS  PULS   B
+PNRTS2 PULS   B
        PULS   PC,Y,B,A
@@ Line 859: / Line 858: @@
 ************************************************************************************************************
 BN2HX  SET    *
-       pshs   u
+       PSHS   U
-       leau   BASE16,pcr
+       LEAU   BASE16,PCR
-       bra    BN2GO
+       BRA    BN2GO
 ************************************************************************************************************
@@ Line 868: / Line 867: @@
 ************************************************************************************************************
 BN2DC  SET    *
-       pshs   u
+       PSHS   U
-       leau   BASE10,pcr
+       LEAU   BASE10,PCR
-BN2GO  pshs   a,b
+BN2GO  PSHS   A,B
-       lda    ,u+
+       LDA    ,U+
-       sta    1,s
+       STA    1,S
-       puls   a
+       PULS   A
-BN2LP1 bsr    DIVISE
+BN2LP1 BSR    DIVISE
-       bne    BN2CNV
+       BNE    BN2CNV
-       dec    ,s
+       DEC    ,S
-       bne    BN2LP1
+       BNE    BN2LP1
-       ldb    #'0
+       LDB    #'0
-       stb    ,x+
+       STB    ,X+
-       bra    BN2RTS
+       BRA    BN2RTS
-BN2LP2 bsr    DIVISE
+BN2LP2 BSR    DIVISE
-BN2CNV pshs   b
+BN2CNV PSHS   B
-       ldb    ,x
+       LDB    ,X
-       addb   #'0
+       ADDB   #'0
-       cmpb   #'9
+       CMPB   #'9
-       bls    BN2DGT
+       BLS    BN2DGT
-       addb   #7
+       ADDB   #7
-BN2DGT stb    ,x+
+BN2DGT STB    ,X+
-       puls   b
+       PULS   B
-       dec    ,s
+       DEC    ,S
-       bne    BN2LP2
+       BNE    BN2LP2
-BN2RTS puls   pc,u,a
+BN2RTS PULS   PC,U,A
 ************************************************************************************************************
@@ Line 908: / Line 907: @@
 ************************************************************************************************************
 DIVISE SET    *
-       clr    ,x
+       CLR    ,X
-DVLOOP subd   ,u
+DVLOOP SUBD   ,U
-       bcs    DVDONE
+       BCS    DVDONE
-       inc    ,x
+       INC    ,X
-       bra    DVLOOP
+       BRA    DVLOOP
-DVDONE addd   ,u++
+DVDONE ADDD   ,U++
-       tst    ,x
+       TST    ,X
-       rts
+       RTS
-BASE10 fcb    5
+BASE10 FCB    5
-       fdb    10000
+       FDB    10000
-       fdb    1000
+       FDB    1000
-       fdb    100
+       FDB    100
-       fdb    10
+       FDB    10
-       fdb    1
+       FDB    1
-BASE16 fcb    4
+BASE16 FCB    4
-       fdb    $1000
+       FDB    $1000
-       fdb    $100
+       FDB    $100
-       fdb    $10
+       FDB    $10
-       fdb    1
+       FDB    $1
 ************************************************************************************************************
@@ Line 938: / Line 937: @@
 ************************************************************************************************************
 DINT   SET    *
-       clra
+       CLRA
-       bsr    CNVDEC
+       BSR    CNVDEC
-       leax   -2,x
+       LEAX   -2,X
-       lbra   DSPSTR
+       LBRA   DSPSTR
 ************************************************************************************************************
@@ Line 948: / Line 947: @@
 ************************************************************************************************************
 DSPDC1 SET    *
-       bsr    CNVDEC
+       BSR    CNVDEC
-       leax   -5,x
+       LEAX   -5,X
-       lbra   DSPSTR
+       LBRA   DSPSTR
 ************************************************************************************************************
@@ Line 956: / Line 955: @@
 * Affiche un entier en décimal
 ************************************************************************************************************
-DSPDC2 bsr    CNVDEC
+DSPDC2 BSR    CNVDEC
-       leax   CNVBUF,pcr
+       LEAX   CNVBUF,PCR
-       lbra   DSPSTR
+       LBRA   DSPSTR
 ************************************************************************************************************
@@ Line 965: / Line 964: @@
 ************************************************************************************************************
 CNVDEC SET    *
-       leax   CNVBUF,pcr
+       LEAX   CNVBUF,PCR
-       bsr    BN2DC
+       BSR    BN2DC
-       clr    ,x
+       CLR    ,X
-       rts
+       RTS
 ************************************************************************************************************
@@ Line 975: / Line 974: @@
 ************************************************************************************************************
 DISPHX SET    *
-       leax   CNVBUF,pcr
+       LEAX   CNVBUF,PCR
-       pshs   x
+       PSHS   X
-       lbsr   BN2HX
+       LBSR   BN2HX
-       clr    ,x
+       CLR    ,X
-       puls   x
+       PULS   X
-       lbra   DSPSTR
+       LBRA   DSPSTR
+       FCC    /    /
+CNVBUF RMB    6,0
 </code>
 [[code_source_de_nrdos.mo5_version_3.5|Retourner à la liste des fichiers]]