;***********************************************************************;
;*        P c D F S  : PC DISK FILING SYSTEM VOOR DE ELECTRON          *;
;*---------------------------------------------------------------------*;
;*    module         : Foutmeldingen                                   *;
;*---------------------------------------------------------------------*;
;*    filenaam       : error.in                                        *;
;*    auteur         : Roland Leurs                                    *;
;*                     The Atomic Development Studio                   *;
;*    ontwikkeld     : juli 1996                                       *;
;*    laatste update :                                                 *;
;*---------------------------------------------------------------------*;
;*    assembleren    : als include opnemen in PCDFS.ASM                *;
;*---------------------------------------------------------------------*;
;*    oproep         : -                                               *;
;***********************************************************************;

error           brk
                .db 0
                .db "PCDFS error detected"
                .db 0

err_diskfull    lda #14         ; laadt fictieve error code

msdoserror      pha
                jsr $F7D1
                .db "MS-Dos error #",$EA
                pla
                jsr $F802
                jsr $FFED
                cmp #20         ; test foutcode
                bcc error99     ; ongedocumenteerde fout
                asl a           ; bereken index voor error tabel
                tax             ; zet in indexregister
                lda errtab,x    ; lees adres van foutmelding
                sta zp          ; zet in zeropage
                lda errtab+1,x
                sta zp+1,x
                jmp (zp)        ; geef foutmelding

errtab          .dw error00, error99, error02, error03, error04, error05
                .dw error06, error99, error99, error99, error99, error99
                .dw error12, error99, error14, error15, error16, error99
                .dw error18, error19
 
error99         brk
                .db 0
                .db "Illegal error: you're not allowed to get this error"
                .db 0

error00         brk
                .db 00
                .db "Erronomous error: nothing's wrong"
                .db 0

error02         brk
                .db 214
                .db "File not found"
                .db 0

error03         brk
                .db 214
                .db "Path not found"
                .db 0

error04         brk
                .db 192
                .db "Too many open files"
                .db 0

error05         brk
                .db 189
                .db "Access violation"
                .db 0

error06         brk
                .db 222
                .db "Channel?"
                .db 0

error12         brk
                .db 147
                .db "Invalid access"
                .db 0

error14         brk             
                .db 198
                .db "Disc full"
                .db 0
 
error15         brk
                .db 169
                .db "Bad drive"
                .db 0

error16         brk
                .db 150
                .db "Can't delete CSD"
                .db 0

error18         brk
                .db 214
                .db "No more files"
                .db 0

error19         brk
                .db 201
                .db "Disc write protected"
                .db 0

err_notimpl     brk
                .db 3
                .db "Call not implemented"
                .db 0

err_badhex      brk
                .db 28
                .db "Bad hex"
                .db 0

err_badcom      brk
                .db 254
                .db "Bad command"
                .db 0