Nanoreseau.net

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
===== Codes de retour d'erreur =====
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>         RESEAU EQU    $A025
         PUTCH  EQU    $02
         KTSTH  EQU    $0A

                ORG    $3000

         ; Ca commence ici 

3000 10CE2200   LDS    #$2200                                   Pile initialisée en $2200           
3004 308D0021   LEAX   MESG,PCR           
3008 170015     LBSR   DISPL                                    Affiche le message d'erreur
300B 8D0E       BSR    WAITK                                    Attends la pression d'une touche
300D 308D0005   LEAX   CONSIG,PCR          
3011 BDA025     JSR    RESEAU                                   Exécute la consigne SYSTEM

         INFINI EQU    *
3014 20FE       BRA    INFINI                                   Attend que le central prenne la main  

         ; Buffer de consigne pour SYSTEM
         CONSIG EQU    *
3016 0C         FCB    $0C                                      Taille totale = 12
3017 00         FCB    $00                                      Destinataire = 0 (central)
3018 0932       FCB    $09, $32                                 9/50 = SYSFIC/SYSTEM
301A 00         FCB    $00                                      Taille des extras = 0 
         
         ; Routine pour attendre la pression d'une touche 
         WAITK  EQU    *
301B 3F0A       CALL   KTSTH                                    Lit le clavier
301D 27FC       BEQ    WAITK
301F 39         RTS       
                
         ; Routine d'affichage d'une chaîne terminée par 0       
         DISPL  EQU    *
3020 E680       LDB    ,X+                                      Caractère suivant       
3022 2601       BNE    CONT                                     Pas un zéro ? On continue
3024 39         RTS                       

         CONT   EQU    *
3025 3F02       CALL   PUTCH                                    Affiche un caractère
3027 20F7       BRA    DISPL              

         ; Message à afficher
         MESG   EQU    *
3029 1F2020     FCB    $1F, $20, $20                            CONSOLE 0,24
302C 1F1214     FCB    $1F, $12, $14
302F 1B44       FCB    $1B, $44                                 SCREEN 4,6,6
3031 1B56       FCB    $1B, $56
3033 1B66       FCB    $1B, $66
3035 0C11       FCB    $0C, $11                                 CLS, curseur clignotant
3036 1F4048     FCB    $1F, $40, $48                            LOCATE 7,0
3039            FCC    /Erreur au chargement de /
3051 1F4C4F     FCB    $1F, $4C, $4F                            LOCATE 14,12
3054            FCC    /a:12345678.123/                         Disque et nom du fichier, modifié selon besoin
3062 1F5841     FCB    $1F, $58, $41                            LOCATE 0,24
3065            FCC    /Appuyer sur une touche pour continuer./
308B 00         FCB    $00                                      Fin de message
                  
</code>