home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 8 / FreshFishVol8-CD2.bin / bbs / dev / tbsource.lha / TBSource / NBBS / DosError.bak < prev    next >
Text File  |  1993-12-21  |  4KB  |  135 lines
  1.  
  2. ConfigNotOpen:    move.l    #$00,ConfigFile
  3.         lib    Dos,IoErr
  4.         cmp.l    #ERROR_NO_FREE_STORE,d0
  5.         bne    CNOC1
  6.         print    <"***Break",13,10,"No free store",13,10>,_stdout
  7.         bra    ShutDown
  8. CNOC1:        cmp.l    #ERROR_TASK_TABLE_FULL,d0
  9.         bne    CNOC2
  10.         print    <"***Break",13,10,"Task table full",13,10>,_stdout
  11.         bra    ShutDown
  12. CNOC2:        cmp.l    #ERROR_LINE_TOO_LONG,d0
  13.         bne    CNOC3
  14.         print    <"***Break",13,10,"Line too long",13,10>,_stdout
  15.         bra    ShutDown
  16. CNOC3:        cmp.l    #ERROR_OBJECT_IN_USE,d0
  17.         bne    CNOC4
  18.         print    <"***Break",13,10,"Object in use",13,10>,_stdout
  19.         bra    ShutDown
  20. CNOC4:        cmp.l    #ERROR_OBJECT_NOT_FOUND,d0
  21.         bne    CNOC5
  22.         print    <"***Break",13,10,"File not found",13,10>,_stdout
  23.         print    <"Filename was: ">,_stdout
  24.         lea.l    FRPathName(pc),a0
  25.         printa    a0
  26.         print    <13,10>,_stdout
  27.         bra    ShutDown
  28. CNOC5:        cmp.l    #ERROR_DISK_NOT_VALIDATED,d0
  29.         bne    CNOC6
  30.         print    <"***Break",13,10,"Disk not validated",13,10>,_stdout
  31.         bra    ShutDown
  32. CNOC6:        cmp.l    #ERROR_DEVICE_NOT_MOUNTED,d0
  33.         bne    CNOC7
  34.         print    <"***Break",13,10,"Device not mounted",13,10>,_stdout
  35.         bra    ShutDown
  36. CNOC7:        cmp.l    #ERROR_READ_PROTECTED,d0
  37.         bne    CNOC8
  38.         print    <"***Break",13,10,"File is read protected",13,10>,_stdout
  39.         bra    ShutDown
  40. CNOC8:        cmp.l    #ERROR_NOT_A_DOS_DISK,d0
  41.         bne    CNOC9
  42.         print    <"***Break",13,10,"Not a dos disk",13,10>,_stdout
  43.         bra    ShutDown
  44. CNOC9:        cmp.l    #ERROR_NO_DISK,d0
  45.         bne    CNOC10
  46.         print    <"***Break",13,10,"No disk in drive",13,10>,_stdout
  47.         bra    ShutDown
  48. CNOC10:        print    <"***Break",13,10,"Sorry, couldn't open file",13,10>,_stdout
  49.         bra    ShutDown
  50.  
  51. FileError:    lib    Dos,IoErr
  52.         cmp.l    #ERROR_NO_FREE_STORE,d0
  53.         bne    FE1
  54.         lea.l    FNoFreeStore(pc),a0
  55.         bra    FileErrorOut
  56. FE1:        cmp.l    #ERROR_TASK_TABLE_FULL,d0
  57.         bne    FE2
  58.         lea.l    FTaskTableFull(pc),a0
  59.         bra    FileErrorOut
  60. FE2:        cmp.l    #ERROR_LINE_TOO_LONG,d0
  61.         bne    FE3
  62.         lea.l    FLineTooLong(pc),a0
  63.         bra    FileErrorOut
  64. FE3:        cmp.l    #ERROR_OBJECT_IN_USE,d0
  65.         bne    FE4
  66.         lea.l    FObjectInUse(pc),a0
  67.         bra    FileErrorOut
  68. FE4:        cmp.l    #ERROR_OBJECT_NOT_FOUND,d0
  69.         bne    FE5
  70.         lea.l    FFileNotFound(pc),a0
  71.         bra    FileErrorOut
  72. FE5:        cmp.l    #ERROR_DISK_NOT_VALIDATED,d0
  73.         bne    FE6
  74.         lea.l    FNotValidated(pc),a0
  75.         bra    FileErrorOut
  76. FE6:        cmp.l    #ERROR_DEVICE_NOT_MOUNTED,d0
  77.         bne    FE7
  78.         lea.l    FNotMounted(pc),a0
  79.         bra    FileErrorOut
  80. FE7:        cmp.l    #ERROR_READ_PROTECTED,d0
  81.         bne    FE8
  82.         lea.l    FReadProtected(pc),a0
  83.         bra    FileErrorOut
  84. FE8:        cmp.l    #ERROR_NOT_A_DOS_DISK,d0
  85.         bne    FE9
  86.         lea.l    FNotDOS(pc),a0
  87.         bra    FileErrorOut
  88. FE9:        cmp.l    #ERROR_NO_DISK,d0
  89.         bne    FE10
  90.         lea.l    FNoDisk(pc),a0
  91.         bra    FileErrorOut
  92. FE10:        lea.l    FError(pc),a0
  93.         bra    FileErrorOut
  94. FileErrorOut:    move.l    #$00,a1
  95.         jsr    SimpleRequest
  96.         move.l    #$00,ConfigFile
  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    "LWF:NBBS/ReqSimpleReq.i"
  127.  
  128. ConfigNExists:    move.l    #$00,ConfigFile
  129.         lib    Dos,IoErr
  130.         cmp.l    #ERROR_OBJECT_NOT_FOUND,d0
  131.         bne    ConfigNExisOut
  132.         bra    SaveAsOut        ;i.e. Save1, i.e. continue
  133. ConfigNExisOut:    jsr    FileError
  134.         bra    SaveOut
  135.