Differences

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

--- code_source_de_menu.to7_v3.2 [2023/05/27 15:08] – 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 569: / Line 568: @@
 * Affiche un nombre contenu dans D (inutilise)
 DISP10 EQU    *
-   BSR    $9583
+       BSR    CONV10
-   LEAX   -$05,X
+       LEAX   -5,X
-   LBRA   $94C4
+       LBRA   PMSG
-   BSR    $9583
-   LEAX   $95A0,PCR
+* Affiche un nombre contenu dans D (inutilise)
-   LBRA   $94C4
+DSP10B EQU    *
-   LEAX   $95A0,PCR
+       BSR    CONV10
-   BSR    $9514
+       LEAX   STRBUF,PCR
-   CLR    ,X
+       LBRA   PMSG
-   RTS
-   LEAX   $95A0,PCR
-   PSHS   X
-   LBSR   $950C
-   CLR    ,X
-   PULS   X
-   LBRA   $94C4
-...
+* 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    *