codes_de_retour_d_erreur
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
codes_de_retour_d_erreur.txt · Last modified: 2022/09/14 18:55 by fool-duplex