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