===== 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. 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