Differences

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

--- code_source_de_menu.to7_v3.2 [2023/05/27 14:02] – fool-duplex
+++ code_source_de_menu.to7_v3.2 [2025/03/19 14:22] (current) – external edit 127.0.0.1
@@ Line 3: / Line 3: @@
 <code>* MENU.TO7 version 3.1
-RESET  EQU    $FFFE
 BEGRAM EQU    $6100
 ENDRAM EQU    $E000
@@ Line 13: / Line 12: @@
 RELACH EQU    $E02B
 RESEAU EQU    $E025
-M5VCT  EQU    $EFFE
 ADCNTC EQU    $5FFE
 ADCRDU EQU    $5FF4
 ADTRCR EQU    $5FFA
-TEMPO  EQU    $2039
+TEMPO  EQU    $6031
-DUREE  EQU    $203B
+DUREE  EQU    $6033
-TIMBRE EQU    $203D
+TIMBRE EQU    $6035
-OCTAVE EQU    $203E
+OCTAVE EQU    $6036
-KTSTH  EQU    $0A
+KTSTH  EQU    $E806
-JPUTCH EQU    $82
+PUTCH  EQU    $E803
-JNOTEH EQU    $9E
+NOTEH  EQU    $E81E
 SIZITM EQU    44
@@ Line 310: / Line 308: @@
        BNE    CMAXLN
+* Calcule alignement a gauche =(39-MAXLEN-4)/2
        PULS   B
-       LDA    #$27
+       LDA    #&39
-       SUBA   $95A6
+       SUBA   MAXLEN
-       SUBA   #$04
+       SUBA   #$04                            ; Longueur de "A - "
        LSRA
-       STA    $95A7
+       STA    ALINEA
-       LDA    #$41
-       PSHS   A
+* Affiche les choix, A est le premier
-       LDX    #$9003
+       LDA    #'A
-       LDA    ,X+
        PSHS   A
-       JSR    $94B3
+       LDX    #NBITM
-       LDB    $01,S
+       LDA    ,X+                             ; X pointe sur le premier titre
-       JSR    $94B0
+       PSHS   A                               ; Sauve le nb d'elements
-       LDB    #$20
-       JSR    $94B0
+DISITM EQU    *
-       LDB    #$2D
+       JSR    ALIGN
-       JSR    $94B0
+       LDB    1,S
-       LDB    #$20
+       JSR    PUTC                            ; Affiche touche a presser
-       JSR    $94B0
+       LDB    #SPACE                          ; Affiche " - "
-       LDA    #$20
+       JSR    PUTC
+       LDB    #HYPHN
+       JSR    PUTC
+       LDB    #SPACE
+       JSR    PUTC
+       LDA    #&32                            ; 32 caracteres, $00 inclus
+DISTIT EQU    *
        LDB    ,X+
-       JSR    $94B0
+       JSR    PUTC
        DECA
-       BNE    $9439
+       BNE    DISTIT
-       LEAX   $0C,X
-       JSR    $94CE
+       LEAX   SIZFIL,X                        ; Element suivant
-       INC    $01,S
+       JSR    CRLF                            ; Retour a la ligne
+       INC    1,S
        DEC    ,S
-       BNE    $9420
+       BNE    DISITM
-       LEAS   $02,S
-       LDX    #$95F6
+       LEAS   2,S
-       JSR    $94C4
+       LDX    #MSG3                           ; Affiche "Votre choix : "
-       JSR    $9493
+       JSR    PMSG
-       JSR    $94A5
+SELECT EQU    *
+       JSR    GETKEY                          ; Attends une touche
+       JSR    UPCASE                          ; Transforme en majuscule si necessaire
        TFR    B,A
-       CMPB   #$41
+       CMPB   #'A
-       BCS    $948D
+       BCS    BADKEY                          ; Sous ASCII A ? -> Mauvaise touche
-       SUBB   #$41
+       SUBB   #'A
-       CMPB   $9003
+       CMPB   $NBITM
-       BCC    $948D
+       BCC    BADKEY                          ; Au-dessus dernier titre ? -> Mauvaise touche
        PSHS   B
        TFR    A,B
-       JSR    $94B0
+       JSR    PUTC                            ; Affiche la touche
        PULS   B
-       LDA    #$2C
+       LDA    #SIZITM                         ; Multiplie par 44 (taille element)
        MUL
-       LDX    #$9024
+       LDX    #OFEL1
-       LEAX   D,X
+       LEAX   D,X                             ; X pointe sur le disque+nom de fichier correspondant
-       LDA    #$0C
+       LDA    #SIZFIL                         ; 12 octets
-       LDY    #$9613
+* Copie le nom de fichier en FILE
+       LDY    #FILE
+CPNAME EQU    *
        LDB    ,X+
        STB    ,Y+
        DECA
-       BNE    $947E
+       BNE    CPNAME
-       LDX    #$9608
-       JSR    RESEAU
+       LDX    #CONSIG                         ; Execute la consigne reseau (CHBIN)
-       BRA    $948B
+       JSR    RESEAU
-       JSR    $94E9
-       JMP    $9454
+THEEND EQU    *
-       LDB    $94A4,PCR
+       BRA    THEEND                          ; Boucle infinie, attends chargement depuis le serveur
-       BEQ    $949E
-       CLR    $94A4,PCR
+* Mauvaise touche pressee
+BADKEY EQU    *
+       JSR    BEEP
+       JMP    SELECT
+* Attends une touche, uniquement si FLAGK=0
+GETKEY EQU    *
+       LDB    FLAGK,PCR
+       BEQ    SCRUT
+       CLR    FLAGK,PCR
+       RTS
+SCRUT  EQU    *
+       JSR    KTSTH
+       BEQ    SCRUT
+       RTS
+FLAGK  FCB    $00
+* Caractere dans B (a-z) change en majuscule
+UPCASE EQU    *
+       CMPB   #'a
+       BCS    ENDUP
+       CMPB   #'z
+       BHI    ENDUP
+       SUBB   #$20
+ENDUP  EQU    *
+       RTS
+* Routine d'affichage caractere
+PUTC   EQU    *
+       JMP    PUTCH
+* Affiche ALINEA espaces
+ALIGN  EQU    *
+       PSHS   B,A
+       LDA    ALINEA
+       BEQ    ENDAL
+ALOOP  EQU    *
+       LDB    #SPACE
+       JSR    PUTC
+       DECA
+       BNE    ALOOP
+ENDAL  EQU    *
+       PULS   A,B,PC
+* Affiche un message termine par $00 pointe par X
+PMSG   EQU    *
+       LDB    ,X+
+       BNE    PCAR
        RTS
-       JSR    $E806
+PCAR   EQU    *
-       BEQ    $949E
+       JSR    PUTC
+       BRA    PMSG
+* Retour a la ligne
+CRLF   EQU    *
+       PSHS   B,CC
+       LDB    #CR
+       JSR    PUTC
+       LDB    #LF
+       JSR    PUTC
+       PULS   CC,B,PC
+* Passe la video en page forme
+FORM   EQU    *
+       PSHS   B
+       LDB    SYSPRC
+       ORB    #$01
+       STB    SYSPRC
+       PULS   B,PC
+* Routine de traitement code reseau inconnu
+INCON  EQU    *
        RTS
-   NEG    <$C1
-   ???
-   BCS    $94AF
-   CMPB   #$7A
-   BHI    $94AF
-   SUBB   #$20
-   RTS
-   JMP    $E803
-   PSHS   B,A
-   LDA    $95A7
-   BEQ    $94C2
-   LDB    #$20
-   JSR    $94B0
-   DECA
-   BNE    $94BA
-   PULS   A,B,PC
-   LDB    ,X+
-   BNE    $94C9
-   RTS
-   JSR    $94B0
-   BRA    $94C4
-   PSHS   B,CC
-   LDB    #$0D
-   JSR    $94B0
-   LDB    #$0A
-   JSR    $94B0
-   PULS   CC,B,PC
-   PSHS   B
-   LDB    $E7C3
-   ORB    #$01
-   STB    $E7C3
-   PULS   B,PC
-   RTS
-   PSHS   B,A,CC
-   LDD    #$0008
-   STD    $6036
-   LDD    #$0024
-   STD    $6033
-   LDD    #$0005
-   STD    $6031
-   LDB    #$03
-   STB    $6035
-   LDB    #$31
-   JSR    $9509
-   PULS   CC,A,B,PC
-   JMP    $E81E
-   PSHS   U
-   LEAU   $9562,PCR
-   BRA    $951A
-   PSHS   U
-   LEAU   $9557,PCR
-   PSHS   B,A
-   LDA    ,U+
-   STA    $01,S
-   PULS   A
-   BSR    $9548
-   BNE    $9532
-   DEC    ,S
-   BNE    $9522
-   LDB    #$30
-   STB    ,X+
-   BRA    $9546
-   BSR    $9548
-   PSHS   B
-   LDB    ,X
-   ADDB   #$30
-   CMPB   #$39
-   BLS    $953E
-   ADDB   #$07
-   STB    ,X+
-   PULS   B
-   DEC    ,S
-   BNE    $9530
-   PULS   A,U,PC
-   CLR    ,X
-   SUBD   ,U
-   BCS    $9552
-   INC    ,X
-   BRA    $954A
-   ADDD   ,U++
-   TST    ,X
-   RTS
-   ???
-   BEQ    $956A
-   COM    <$E8
-   NEG    <$64
-   NEG    <$0A
-   NEG    <$01
-   LSR    <$10
-   NEG    <$01
-   NEG    <$00
-   ???
-   NEG    <$4F
-   BSR    $9583
-   LEAX   -$02,X
-   LBRA   $94C4
-   BSR    $9583
-   LEAX   -$05,X
-   LBRA   $94C4
-   BSR    $9583
-   LEAX   $95A0,PCR
-   LBRA   $94C4
-   LEAX   $95A0,PCR
-   BSR    $9514
-   CLR    ,X
-   RTS
-   LEAX   $95A0,PCR
-   PSHS   X
-   LBSR   $950C
-   CLR    ,X
-   PULS   X
-   LBRA   $94C4
-...
+* Joue un pouet
+BEEP   EQU    *
+       PSHS   B,A,CC
+       LDD    #$0008
+       STD    OCTAVE
+       LDD    #$0024
+       STD    DUREE
+       LDD    #$0005
+       STD    TEMPO
+       LDB    #$03
+       STB    TIMBRE
+       LDB    #$31
+       JSR    PLAY
+       PULS   CC,A,B,PC
+PLAY   EQU    *
+       JMP    NOTEH
+* Convertit un nombre 16 bits non signe en hexadecimal
+* D = nombre, X = pointeur sur buffer caractere
+CV16   EQU    *
+       PSHS   U
+       LEAU   BASE16,PCR
+       BRA    CONVRT
+* Convertit un nombre 16 bits non signe en decimal
+* D = nombre, X = pointeur sur buffer caractere
+CV10   EQU    *
+       PSHS   U
+       LEAU   BASE10,PCR
+CONVRT EQU    *
+       PSHS   B,A
+       LDA    ,U+                             ; Nombre de chiffres
+       STA    1,S
+       PULS   A
+LOOP2  EQU    *
+       BSR    DIVIZ
+       BNE    BEGNB                           ; Dividende non nul -> debut du nombre
+       DEC    ,S                              ; Chiffre suivant
+       BNE    LOOP2
+       LDB    #'0                             ; D valait 0 en fait
+       STB    ,X+
+       BRA    CVEXIT
+CONTDV EQU    *
+       BSR    DIVIZ                           ; Continue la division
+BEGNB  EQU    *
+       PSHS   B
+       LDB    ,X                              ; Chiffre courant
+       ADDB   #'0
+       CMPB   #'9
+       BLS    NOTHEX                          ; $A-$F ?
+       ADDB   #$07                            ; Correction
+NOTHEX EQU    *
+       STB    ,X+                             ; Stocke le caractere
+       PULS   B
+       DEC    ,S                              ; Chiffre suivant
+       BNE    CONTDV
+CVEXIT EQU    *
+       PULS   A,U,PC
+* Division de D par ,U
+* D = reste, ,X = dividende (0..9 ou 0..F)
+DIVIZ  EQU    *
+       CLR    ,X
+DVLOOP EQU    *
+       SUBD   ,U
+       BCS    DVEXIT
+       INC    ,X
+       BRA    DVLOOP
+DVEXIT EQU    *
+       ADDD   ,U++
+       TST    ,X
+       RTS
+BASE10 EQU    *
+       FCB    5                               ; 5 chiffres
+       FDB    &10000
+       FDB    &1000
+       FDB    &100
+       FDB    &10
+       FDB    &1
+BASE16 EQU    *
+       FCB    4                               ; 4 chiffres
+       FDB    $1000
+       FDB    $0100
+       FDB    $0010
+       FDB    $0001
+* Affiche no. poste contenu dans B
+DISPO  EQU     *
+       CLRA
+       BSR    CONV10
+       LEAX   -2,X
+       LBRA   PMSG
+* Affiche un nombre contenu dans D (inutilise)
+DISP10 EQU    *
+       BSR    CONV10
+       LEAX   -5,X
+       LBRA   PMSG
+* Affiche un nombre contenu dans D (inutilise)
+DSP10B EQU    *
+       BSR    CONV10
+       LEAX   STRBUF,PCR
+       LBRA   PMSG
+* Convertit un nombre 16 bits non signe en chaîne de caracteres (decimal)
+* D = nombre, resultat dans STRBUF
+CONV10 EQU    *
+       LEAX   STRBUF,PCR
+       BSR    CV10
+       CLR    ,X                              ; Termine la chaine
+       RTS
+* Affiche un nombre en hexadecimal 16 bits (inutilise)
+DISP16 EQU    *
+       LEAX   STRBUF,PCR
+       PSHS   X
+       LBSR   CV16
+       CLR    ,X
+       PULS   X
+       LBRA   PMSG
+       FCB    SPACE,SPACE,SPACE,SPACE
+STRBUF EQU    *
+       FCB    $00,$00,$00,$00,$00,$00         ; Buffer pour conversion numerique
+MAXLEN FCB    $00                             ; Longueur du plus grand titre
+ALINEA FCB    $00                             ; Alignement a gauche
+MSG1   FCB    $1F,$20,$20
+       FCB    $1F,$12,$14
+       FCB    $1B,$44,$1B,$56,$1B,$66
+       FCB    $0C
+       FCB    $00
+MSG1B  FCB    $11
+       FCC    /NANORESEAU                     poste /
+       FCB    $00
+MSG2   FCC    /                /
+       FCB    $1B,$4F
+       FCC    /MENU/
+       FCB    $1B,$4C
+       FCB    $00
+MSG3   FCB    $1F,$58,$4D
+       FCC    /Votre choix : /
+       FCB    $00
+* Zone de consigne reseau
+CONSIG FCB    $18                             ; Longueur = 24
+       FCB    $00                             ; DEST = serveur
+       FCB    $09,$37                         ; Tache R = 09, Tache A = 55 (CHBIN)
+       FDB    $0000                           ; Nb octets
+       FCB    $00                             ; Page
+       FDB    $0000                           ; Adresse
+       FCB    $00                             ; Ordinateur
+       FCB    $00                             ; Application
+FILE   FCB    $00                             ; Disque
+       FCB    $00,$00,$00,$00,$00,$00,$00,$00 ; Nom du fichier
+       FCB    $00,$00,$00                     ; Suffixe
+       FCB    $00                             ; Mode de chargement
+* Zone de compte-rendu reseau
+CPTRD  FCB    $08                             ; Longueur = 8
+       FCB    $00,$00,$00,$00,$00,$00,$00,$00
 ENDPRG EQU    *