Differences

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

--- codes_de_retour_d_erreur [2022/09/14 17:24] – fool-duplex
+++ codes_de_retour_d_erreur [2025/03/19 14:22] (current) – external edit 127.0.0.1
@@ Line 2: / Line 2: @@
 Les codes de retour d'erreur sont de petites séquences de code exécutable envoyées aux postes en cas d'erreur durant un chargement applicatif.
-<code>3000 10CE2200   LDS    #$2200
+<code>         RESEAU EQU    $A025
-308D0021   LEAX   MESG,PCR
+         PUTCH  EQU    $02
-170015     LBSR   $3020
+         KTSTH  EQU    $0A
-B 8D0E       BSR    $301B
-D 308D0005   LEAX   $3016,PCR
-BDA025     JSR    $A025
-20FE       BRA    $3014
-0C00       INC    <$00
-0932       ROL    <$32
-A 003F       NEG    <$3F
-C 0A27       DEC    <$27
-E FC39E6     LDD    $39E6
-8026       SUBA   #$26
-0139       NEG    <$39
-3F02       SWI    #$02
-20F7       BRA    $3020
-             MESG EQU *
+                ORG    $3000
- 1F20       FCB    $1F, $20, $20, $1F, $12, $14
-F 1B441B561B66   $1B, $44, $1B, $56, $1B, $66
+         ; Ca commence ici
-                  FCB $0C, $11, $1F, $40, $48
-                  FCC /Erreur au chargement de /
+10CE2200   LDS    #$2200                                   Pile initialisée en $2200
-                  FCB $1F, $4C, $4F
+308D0021   LEAX   MESG,PCR
-                  FCC /a:12345678.123/
+170015     LBSR   DISPL                                    Affiche le message d'erreur
-                  FCB $1F, $58, $41
+B 8D0E       BSR    WAITK                                    Attends la pression d'une touche
-                  FCC /Appuyer sur une touche pour continuer./
+D 308D0005   LEAX   CONSIG,PCR
-                  FCB $00
+BDA025     JSR    RESEAU                                   Exécute la consigne SYSTEM
+         INFINI EQU    *
+20FE       BRA    INFINI                                   Attend que le central prenne la main
+         ; Buffer de consigne pour SYSTEM
+         CONSIG EQU    *
+0C         FCB    $0C                                      Taille totale = 12
+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
+         ; Routine d'affichage d'une chaîne terminée par 0
+         DISPL  EQU    *
+E680       LDB    ,X+                                      Caractère suivant
+2601       BNE    CONT                                     Pas un zéro ? On continue
+39         RTS
+         CONT   EQU    *
+3F02       CALL   PUTCH                                    Affiche un caractère
+20F7       BRA    DISPL
+         ; Message à afficher
+         MESG   EQU    *
+ 1F2020     FCB    $1F, $20, $20                            CONSOLE 0,24
+C 1F1214     FCB    $1F, $12, $14
+F 1B44       FCB    $1B, $44                                 SCREEN 4,6,6
+1B56       FCB    $1B, $56
+1B66       FCB    $1B, $66
+0C11       FCB    $0C, $11                                 CLS, curseur clignotant
+1F4048     FCB    $1F, $40, $48                            LOCATE 7,0
+            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>