[[code_source_de_nrdos.mo5_version_3.5|Retourner à la liste des fichiers]]

<code>* NRDOS.MO5 version 3.5
* ERRORS.ASM (Gestion des erreurs)

************************************************************************************************************
* ERRMSG
* Affiche un message d'erreur explicite.
************************************************************************************************************
ERRMSG SET    *
       PSHS   B
       LEAX   ERRST,PCR
       LBSR   DSPSTR
       LBSR   BEEP
       PULS   B
       LDA    #ERRORS
       LEAX   ERNTBL,PCR
       LEAY   ERSTBL,PCR
       LBSR   LUSTR
       BNE    ERRUNK           ; L'erreur ne figure pas dans la table ?

       LBSR   DSPSTR
       RTS

ERRUNK PSHS   B                ; Dans ce cas, on affiche juste son numéro.
       LEAX   ERRNST,PCR
       LBSR   DSPSTR
       PULS   B
       CLRA
       LBSR   DSPDC2
       LBRA   DCRLF

* Table des numéros d'erreur       
ERNTBL FCB    EDQER
       FCB    ESNTX
       FCB    EIDIN
       FCB    ETRMS
       FCB    EIDDD
       FCB    EFINC
       FCB    EFINX
       FCB    EAMBI
       FCB    EFIST
       FCB    EMVID
       FCB    ERSAP
       FCB    EFDOE
       FCB    EFPPL
       FCB    ETFST
       FCB    EFEXS
       FCB    EFSET
       FCB    EFLEC
       FCB    EFDLC
       FCB    EFDEP
       FCB    ENLER
       FCB    EDCHG
       FCB    ETROU
       FCB    EOUVR
       FCB    EGROS
       FCB    EGENE
       FCB    EFINF
       FCB    EFCNX
       FCB    EDISK
       FCB    EOLSE
       FCB    EBTPT
       FCB    ERINX
       FCB    ESTXC
       
* Table des pointeurs sur les messages       
ERSTBL FDB    SDQER-IMPLNT
       FDB    SSNTX-IMPLNT
       FDB    SIDIN-IMPLNT
       FDB    STRMS-IMPLNT
       FDB    SIDDD-IMPLNT
       FDB    SFINC-IMPLNT
       FDB    SFINX-IMPLNT
       FDB    SAMBI-IMPLNT
       FDB    SFIST-IMPLNT
       FDB    SMVID-IMPLNT
       FDB    SRSAP-IMPLNT
       FDB    SFDOE-IMPLNT
       FDB    SFPPL-IMPLNT
       FDB    STFST-IMPLNT
       FDB    SFEXS-IMPLNT
       FDB    SFSET-IMPLNT
       FDB    SFLEC-IMPLNT
       FDB    SFDLC-IMPLNT
       FDB    SFDEP-IMPLNT
       FDB    SNLER-IMPLNT
       FDB    SDCHG-IMPLNT
       FDB    STROU-IMPLNT
       FDB    SOUVR-IMPLNT
       FDB    SGROS-IMPLNT
       FDB    SGENE-IMPLNT
       FDB    SFINF-IMPLNT
       FDB    SFCNX-IMPLNT
       FDB    SDISK-IMPLNT
       FDB    SOLSE-IMPLNT
       FDB    SBTPT-IMPLNT
       FDB    SRINX-IMPLNT
       FDB    SSTXC-IMPLNT
       
* Messages d'erreur
SDQER  FCC    /Disque erron/
       FCB    ACC, 'B
       FCS    /e/
       
SSNTX  FCS    /Erreur de syntaxe dans un nom de fichier/

SIDIN  FCS    /Identification incorrecte/

STRMS  FCS    /Erreur de transmission/

SIDDD  FCC    /Identification d/
       FCB    ACC, 'B
       FCC    /ej/
       FCB    ACC, 'A
       FCC    /a donn/
       FCB    ACC, 'B
       FCS    /ee par un autre poste/

SFINC  FCS    /Fin de catalogue/

SFINX  FCS    /Fichier inexistant/

SAMBI  FCS    /Nom de fichier ambigu/

SFIST  FCB    'C                             ; Bug : ce message est manquant 

SMVID  FCS    /Mauvaise identification/

SRSAP  FCC    /Fichier r/
       FCB    ACC, 'B
       FCC    /eserv/
       FCB    ACC, 'B
       FCS    /e par un autre poste/

SFDOE  FCC    /Fichier d/
       FCB    ACC, 'B
       FCC    /ej/
       FCB    ACC, 'A
       FCC    /a ouvert en /
       FCB    ACC, 'B
       FCS    /ecriture/

SFPPL  FCC    /Plus de place dans la table des num/
       FCB    ACC, 'B
       FCS    /eros logiques/

STFST  FCC    /Table des fichiers g/
       FCB    ACC, 'B
       FCC    /en/
       FCB    ACC, 'B
       FCC    /eraux satur/
       FCB    ACC, 'B
       FCS    /ee/

SFEXS  FCC    /Ce fichier existe d/
       FCB    ACC, 'B
       FCC    /ej/
       FCB    ACC, 'A
       FCS    /a/

SFSET  FCC    /Fichier sans en-t/
       FCB    ACC, 'C
       FCC    /ete r/
       FCB    ACC, 'B
       FCS    /eseau/

SFLEC  FCS    /Fichier en lecture seulement/

SFDLC  FCC    /Fichier d/
       FCB    ACC, 'B
       FCC    /ej/
       FCB    ACC, 'A
       FCS    /a ouvert en lecture/

SFDEP  FCC    /Fichier ouvert en /
       FCB    ACC, 'B
       FCS    /ecriture par un autre poste/

SNLER  FCC    /Num/
       FCB    ACC, 'B
       FCC    /ero logique erron/
       FCB    ACC, 'B
       FCS    /e/

SDCHG  FCC    /Disque chang/
       FCB    ACC, 'B
       FCS    /e/

STROU  FCS    /Un fichier ne peut pas avoir de trous/

SOUVR  FCS    /Fichier ouvert/

SGROS  FCS    /Fichier trop gros/

SGENE  FCC    /Fichier g/
       FCB    ACC, 'B
       FCC    /en/
       FCB    ACC, 'B
       FCS    /eral/

SFINF  FCS    /Fin de fichier/

SFCNX  FCS    /Fonction inexistante/

SDISK  FCS    /Erreur disque au central/

SOLSE  FCC    /Op/
       FCB    ACC, 'B
       FCS    /eration LSE en cours/

SBTPT  FCC    /Buffer de r/
       FCB    ACC, 'B
       FCS    /ecption trop petit/

SRINX  FCS    /Sous-catalogue inexistant/

SSTXC  FCS    /Erreur de syntaxe dans un chemin/
       
ERRNST FCC    /Erreur num/
       FCB    ACC, 'B
       FCS    /ero /

ERRST  FCB    CR, LF        
       FCC    /Erreur .../
       FCB    CR, LF, 0       
       
</code>
[[code_source_de_nrdos.mo5_version_3.5|Retourner à la liste des fichiers]]