Differences

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

--- codes_de_retour_d_erreur [2022/09/14 18:18] – fool-duplex
+++ codes_de_retour_d_erreur [2025/03/19 14:22] (current) – external edit 127.0.0.1
@@ Line 3: / Line 3: @@
 <code>         RESEAU EQU    $A025
+         PUTCH  EQU    $02
+         KTSTH  EQU    $0A
                 ORG    $3000
-10CE2200   LDS    #$2200
+         ; Ca commence ici
-308D0021   LEAX   MESG,PCR
-170015     LBSR   DISPLAY
+10CE2200   LDS    #$2200                                   Pile initialisée en $2200
-B 8D0E       BSR    WAITKEY
+308D0021   LEAX   MESG,PCR
+170015     LBSR   DISPL                                    Affiche le message d'erreur
+B 8D0E       BSR    WAITK                                    Attends la pression d'une touche
 D 308D0005   LEAX   CONSIG,PCR
-BDA025     JSR    RESEAU
+BDA025     JSR    RESEAU                                   Exécute la consigne SYSTEM
-20FE       BRA    $3014
-         CONSIG EQU    *
+         INFINI EQU    *
-            FCB    $0C, $00, $09, $32, $00               9/50 = SYSTEM
+20FE       BRA    INFINI                                   Attend que le central prenne la main
-WAITKEY EQU *
+         ; Buffer de consigne pour SYSTEM
-B 3F         SWI
+         CONSIG EQU    *
-C 0A         FCB    $0A
+0C         FCB    $0C                                      Taille totale = 12
-D 27FC       BEQ    WAITKEY
+00         FCB    $00                                      Destinataire = 0 (central)
+0932       FCB    $09, $32                                 9/50 = SYSFIC/SYSTEM
+A 00         FCB    $00                                      Taille des extras = 0
+         ; Routine pour attendre la pression d'une touche
+         WAITK  EQU    *
+B 3F0A       CALL   KTSTH                                    Lit le clavier
+D 27FC       BEQ    WAITK
 F 39         RTS
-                DISPLAY EQU *
+         ; Routine d'affichage d'une chaîne terminée par 0
-E680       LDB    ,X+
+         DISPL  EQU    *
-2601       BNE    $3025
+E680       LDB    ,X+                                      Caractère suivant
+2601       BNE    CONT                                     Pas un zéro ? On continue
 39         RTS
-3F02       SWI
+         CONT   EQU    *
-02         FCB    $02
+3F02       CALL   PUTCH                                    Affiche un caractère
-20F7       BRA    $3020
+20F7       BRA    DISPL
-             MESG EQU *
+         ; Message à afficher
- 1F20       FCB    $1F, $20, $20, $1F, $12, $14
+         MESG   EQU    *
-F 1B441B561B66   $1B, $44, $1B, $56, $1B, $66
+ 1F2020     FCB    $1F, $20, $20                            CONSOLE 0,24
-                  FCB $0C, $11, $1F, $40, $48
+C 1F1214     FCB    $1F, $12, $14
-                  FCC /Erreur au chargement de /
+F 1B44       FCB    $1B, $44                                 SCREEN 4,6,6
-                  FCB $1F, $4C, $4F
+1B56       FCB    $1B, $56
-                  FCC /a:12345678.123/
+1B66       FCB    $1B, $66
-                  FCB $1F, $58, $41
+0C11       FCB    $0C, $11                                 CLS, curseur clignotant
-                  FCC /Appuyer sur une touche pour continuer./
+1F4048     FCB    $1F, $40, $48                            LOCATE 7,0
-                  FCB $00
+            FCC    /Erreur au chargement de /
+1F4C4F     FCB    $1F, $4C, $4F                            LOCATE 14,12
+            FCC    /a:12345678.123/                         Disque et nom du fichier, modifié selon besoin
+1F5841     FCB    $1F, $58, $41                            LOCATE 0,24
+            FCC    /Appuyer sur une touche pour continuer./
+B 00         FCB    $00                                      Fin de message
 </code>