home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga 13 / MA_Cover_13.bin / source / asm / sfs / requesters.asm < prev    next >
Encoding:
Assembly Source File  |  1999-11-30  |  1.9 KB  |  106 lines
  1. *-----------------------------------------------*
  2. *    @AppCreationError            *
  3. *-----------------------------------------------*
  4.  
  5. AppCreationError:
  6.     move.l    dos(a4),a6
  7.     jsr    _LVOIoErr(a6)
  8.     cmp.w    #6,d0
  9.     bmi.b    .mui_error
  10.     bsr    GetErrorString2
  11.     move.l    4(a4),(a4)
  12. .jatka    GETSTR    MSG_APP_CREATION_ERROR
  13.     move.l    d0,a2
  14.     bra    InfoRequester
  15. .x    rts
  16.  
  17. .mui_error:
  18.     subq.l    #1,d0            ; #1
  19.     beq.b    .no_mem
  20.     subq.l    #1,d0            ; #2
  21.     beq.b    .no_mem
  22.     subq.l    #2,d0
  23.     beq.b    .missing_lib
  24.     subq.l    #1,d0
  25.     beq.b    .no_arexx
  26.     GETSTR    MSG_MUIE_UNKNOWN
  27.     bra.b    .jatka
  28.  
  29. .no_arexx:
  30.     GETSTR    MSG_MUIE_NO_AREXX
  31.     move.l    d0,(a4)
  32.     bra.b    .jatka
  33.  
  34. .missing_lib:
  35.     GETSTR    MSG_MUIE_MISSING_LIB
  36.     move.l    d0,(a4)
  37.     bra.b    .jatka
  38.  
  39. .no_mem    GETSTR    MSG_MUIE_NO_MEM
  40.     move.l    d0,(a4)
  41.     bra.b    .jatka
  42.  
  43. *-----------------------------------------------*
  44. *    @NoMemory                *
  45. *-----------------------------------------------*
  46.  
  47. NotEnoughMemory:
  48.     move.l    (a4),d0
  49.     lsr.l    #8,d0            ; muunna kilotavuiksi
  50.     lsr.l    #2,d0
  51.     move.l    d0,(a4)
  52.     GETSTR    MSG_NOMEMORY
  53.     move.l    d0,a2
  54. InfoRequester:
  55.     GETSTR    MSG_OK_GAD
  56.     move.l    d0,a1
  57. MonivalintaKysymys:
  58.     move.l    muimaster(a4),a6
  59.     move.l    App(a4),d0
  60.     moveq    #0,d1            ; window
  61.     moveq    #0,d2            ; flags
  62.     suba.l    a0,a0            ; title
  63.     move.l    a4,a3
  64.     jsr    _LVOMUI_RequestA(a6)
  65.     tst.l    d0
  66.     rts
  67.  
  68. *-----------------------------------------------*
  69. *    @DiskError                *
  70. *-----------------------------------------------*
  71.  
  72. DiskError:
  73.     bsr    GetErrorString        ; hae virheteksti
  74.     beq.b    .x
  75.     GETSTR    MSG_DISK_ERROR
  76.     move.l    d0,a2
  77.     bra    InfoRequester
  78. .x    rts
  79.  
  80. *-----------------------------------------------*
  81. *    @DirectoryError                *
  82. *-----------------------------------------------*
  83.  
  84. DirectoryError:
  85.     bsr    GetErrorString
  86.     GETSTR    MSG_DIRECTORY_ERROR
  87.     move.l    d0,a2
  88.     bra    InfoRequester
  89.  
  90. *-----------------------------------------------*
  91. *    @GetErrorString                *
  92. *-----------------------------------------------*
  93.  
  94. GetErrorString:
  95.     jsr    _LVOIoErr(a6)
  96. GetErrorString2:
  97.     move.l    d0,d1
  98.     beq.b    .x
  99.     lea    80(a4),a0
  100.     moveq    #0,d2
  101.     move.l    a0,4(a4)
  102.     move.l    a0,d3
  103.     moveq    #127,d4    
  104.     jmp    _LVOFault(a6)
  105. .x    rts
  106.