home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 8 / FreshFishVol8-CD2.bin / bbs / dev / tbsource.lha / TBSource / Questions / doserror.i < prev    next >
Text File  |  1993-12-21  |  3KB  |  127 lines
  1.  
  2. DosError:    lib    Dos,IoErr
  3.         cmp.l    #ERROR_NO_FREE_STORE,d0
  4.         bne    CNOC1
  5.         print    <"***Break",13,10,"No free store",13,10>,_stdout
  6.         rts     
  7. CNOC1:        cmp.l    #ERROR_TASK_TABLE_FULL,d0
  8.         bne    CNOC2
  9.         print    <"***Break",13,10,"Task table full",13,10>,_stdout
  10.         rts     
  11. CNOC2:        cmp.l    #ERROR_LINE_TOO_LONG,d0
  12.         bne    CNOC3
  13.         print    <"***Break",13,10,"Line too long",13,10>,_stdout
  14.         rts     
  15. CNOC3:        cmp.l    #ERROR_OBJECT_IN_USE,d0
  16.         bne    CNOC4
  17.         print    <"***Break",13,10,"Object in use",13,10>,_stdout
  18.         rts     
  19. CNOC4:        cmp.l    #ERROR_OBJECT_NOT_FOUND,d0
  20.         bne    CNOC5
  21.         print    <"***Break",13,10,"File not found",13,10>,_stdout
  22.         print    <"Filename was: ">,_stdout
  23.         lea.l    FRFile(pc),a0
  24.         printa    a0
  25.         print    <13,10>,_stdout
  26.         rts     
  27. CNOC5:        cmp.l    #ERROR_DISK_NOT_VALIDATED,d0
  28.         bne    CNOC6
  29.         print    <"***Break",13,10,"Disk not validated",13,10>,_stdout
  30.         rts     
  31. CNOC6:        cmp.l    #ERROR_DEVICE_NOT_MOUNTED,d0
  32.         bne    CNOC7
  33.         print    <"***Break",13,10,"Device not mounted",13,10>,_stdout
  34.         rts     
  35. CNOC7:        cmp.l    #ERROR_READ_PROTECTED,d0
  36.         bne    CNOC8
  37.         print    <"***Break",13,10,"File is read protected",13,10>,_stdout
  38.         rts     
  39. CNOC8:        cmp.l    #ERROR_NOT_A_DOS_DISK,d0
  40.         bne    CNOC9
  41.         print    <"***Break",13,10,"Not a dos disk",13,10>,_stdout
  42.         rts     
  43. CNOC9:        cmp.l    #ERROR_NO_DISK,d0
  44.         bne    CNOC10
  45.         print    <"***Break",13,10,"No disk in drive",13,10>,_stdout
  46.         rts     
  47. CNOC10:        print    <"***Break",13,10,"Sorry, couldn't open file",13,10>,_stdout
  48.         rts     
  49. WrongFile:    print    <"***Break",13,10,"Sorry, incorrect file",13,10>,_stdout
  50.         rts     
  51.  
  52. FileError:    lib    Dos,IoErr
  53.         cmp.l    #ERROR_NO_FREE_STORE,d0
  54.         bne    FE1
  55.         lea.l    FNoFreeStore(pc),a0
  56.         jmp    FileErrorOut
  57. FE1:        cmp.l    #ERROR_TASK_TABLE_FULL,d0
  58.         bne    FE2
  59.         lea.l    FTaskTableFull(pc),a0
  60.         jmp    FileErrorOut
  61. FE2:        cmp.l    #ERROR_LINE_TOO_LONG,d0
  62.         bne    FE3
  63.         lea.l    FLineTooLong(pc),a0
  64.         jmp    FileErrorOut
  65. FE3:        cmp.l    #ERROR_OBJECT_IN_USE,d0
  66.         bne    FE4
  67.         lea.l    FObjectInUse(pc),a0
  68.         jmp    FileErrorOut
  69. FE4:        cmp.l    #ERROR_OBJECT_NOT_FOUND,d0
  70.         bne    FE5
  71.         lea.l    FFileNotFound(pc),a0
  72.         jmp    FileErrorOut
  73. FE5:        cmp.l    #ERROR_DISK_NOT_VALIDATED,d0
  74.         bne    FE6
  75.         lea.l    FNotValidated(pc),a0
  76.         jmp    FileErrorOut
  77. FE6:        cmp.l    #ERROR_DEVICE_NOT_MOUNTED,d0
  78.         bne    FE7
  79.         lea.l    FNotMounted(pc),a0
  80.         jmp    FileErrorOut
  81. FE7:        cmp.l    #ERROR_READ_PROTECTED,d0
  82.         bne    FE8
  83.         lea.l    FReadProtected(pc),a0
  84.         jmp    FileErrorOut
  85. FE8:        cmp.l    #ERROR_NOT_A_DOS_DISK,d0
  86.         bne    FE9
  87.         lea.l    FNotDOS(pc),a0
  88.         jmp    FileErrorOut
  89. FE9:        cmp.l    #ERROR_NO_DISK,d0
  90.         bne    FE10
  91.         lea.l    FNoDisk(pc),a0
  92.         jmp    FileErrorOut
  93. FE10:        lea.l    FError(pc),a0
  94.         jmp    FileErrorOut
  95. FileErrorOut:    move.l    #$00,a1
  96.         jsr    SimpleRequest
  97.         rts
  98.  
  99. FNoFreeStore:    dc.b    "ERROR: No free store",0
  100.         ds.l    0
  101. FTaskTableFull:    dc.b    "ERROR: Task table full",0
  102.         ds.l    0
  103. FLineTooLong:    dc.b    "ERROR: Line too long",0
  104.         ds.l    0
  105. FObjectInUse:    dc.b    "File ERROR: Object in use",0
  106.         ds.l    0
  107. FFileNotFound:    dc.b    "File ERROR: File not found",0
  108.         ds.l    0
  109. FNotValidated:    dc.b    "File ERROR: Disk not validated",0
  110.         ds.l    0
  111. FNotMounted:    dc.b    "File ERROR: Device not mounted",0
  112.         ds.l    0
  113. FReadProtected:    dc.b    "File ERROR: File is read protected",0
  114.         ds.l    0
  115. FNotDOS:    dc.b    "File ERROR: Not a dos disk",0
  116.         ds.l    0
  117. FNoDisk:    dc.b    "File ERROR: No disk in drive",0
  118.         ds.l    0
  119. FError:        dc.b    "Sorry, file error!",0
  120.         ds.l    0
  121. FFileExists:    dc.b    "File ERROR: File exists",0
  122.         ds.l    0
  123. AskReplace:    dc.b    "File exists, do you want to overwrite?",0
  124.         ds.l    0
  125.  
  126.     INCLUDE    "FH0:Language/WF/Questions/QSimpleReq.i"
  127.