home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 634.lha / TexadaUtils / source / DeleteD.a next >
Encoding:
Text File  |  1992-04-17  |  2.4 KB  |  108 lines
  1.     incdir "asm:include/"
  2. ;    IFND    INTUITION_INTUITIONBASE_I
  3. ;INTUITION_INTUITIONBASE_I    SET    1
  4. ;    IFND    EXEC_TYPES_I
  5. ;    INCLUDE    "exec/types.i"
  6. ;    ENDC
  7. ;    IFND    EXEC_LIBRARIES_I
  8. ;    INCLUDE    "exec/libraries.i"
  9. ;    ENDC
  10. ;    IFND    GRAPHICS_VIEW_I
  11. ;    INCLUDE    "graphics/view.i"
  12. ;    ENDC
  13. ;    ENDC
  14.     include "intuition/intuition.i"
  15.     include    "misc/Measystart.i"
  16. ;    rsreset
  17. ;IntuitionBase    rs.b    0
  18. ;ib_LibNode    rs.b    LIB_SIZE
  19. ;ib_ViewLord    rs.b    v_SIZEOF
  20. ;ib_ActiveWindow    rs.l    1
  21. ;ib_ActiveScreen    rs.l    1
  22. ;ib_FirstScreen    rs.l    0
  23.     move.l    4,a6
  24.     move.l    #iname,a1
  25.     jsr    -408(a6)
  26.     tst.l    d0
  27.     beq    quit
  28.     move.l    d0,ibase
  29.     move.l    d0,a6
  30.     move.l    ib_firstscreen(a6),a6
  31.     move.l    sc_firstwindow(a6),a6
  32. ggg    move.l    wd_menustrip(a6),firstmenu
  33.     move.l    firstmenu,d0
  34.     tst.l    d0
  35.     beq    nextwindow
  36.     move.l    d0,a6
  37.     move.l    mu_nextmenu(a6),secmenu
  38.     move.l    secmenu,a6
  39.     move.l    mu_firstitem(a6),a6
  40.     move.l    mi_nextitem(a6),a6
  41.     move.l    mi_nextitem(a6),a6
  42.     move.l    mi_nextitem(a6),a6
  43.     move.b    #"T",mi_command(a6)
  44.     ori.w    #4,mi_flags(a6)
  45.     move.l    mi_nextitem(a6),a6
  46.     move.l    mi_nextitem(a6),a6
  47.     move.b    #"F",mi_command(a6)
  48.     ori.w    #4,mi_flags(a6)
  49.     move.l    mi_nextitem(a6),a6
  50.     move.l    mi_nextitem(a6),a6
  51.     move.l    a6,a5
  52.     move.l    mi_subitem(a6),a6
  53.     addi.w    #35,mi_width(a6)
  54.     move.b    #"W",mi_command(a6)
  55.     ori.w    #4,mi_flags(a6)
  56.     move.l    mi_nextitem(a6),a6
  57.     addi.w    #35,mi_width(a6)
  58.     move.b    #"V",mi_command(a6)
  59.     ori.w    #4,mi_flags(a6)
  60.     move.l    a5,a6
  61.     move.l    mi_nextitem(a6),a6
  62.     move.l    mi_subitem(a6),a6
  63.     addi.w    #35,mi_width(a6)
  64.     move.b    #"G",mi_command(a6)
  65.     ori.w    #4,mi_flags(a6)
  66.     move.l    mi_nextitem(a6),a6
  67.     addi.w    #35,mi_width(a6)
  68.     move.b    #"H",mi_command(a6)
  69.     ori.w    #4,mi_flags(a6)
  70.     move.l    mi_nextitem(a6),a6
  71.     addi.w    #35,mi_width(a6)
  72.     move.b    #"J",mi_command(a6)
  73.     ori.w    #4,mi_flags(a6)
  74.     move.l    mi_nextitem(a6),a6
  75.     addi.w    #35,mi_width(a6)
  76.     move.b    #"M",mi_command(a6)
  77.     ori.w    #4,mi_flags(a6)
  78.     move.l    secmenu,a6
  79.     move.l    mu_nextmenu(a6),thirdmenu
  80.     move.l    thirdmenu,a6
  81.     move.l    mu_firstitem(a6),a6    open
  82.     move.l    mi_nextitem(a6),a6    copy
  83.     move.l    mi_nextitem(a6),a6    rename
  84.     move.l    mi_nextitem(a6),a6    info
  85.     move.l    mi_nextitem(a6),a6    snapshot
  86.     move.l    mi_nextitem(a6),a6    unsnapshot
  87.     move.l    mi_nextitem(a6),a6    leave out
  88.     move.l    mi_nextitem(a6),a6    put away
  89.     move.l    mi_nextitem(a6),a6    ~~~
  90.     move.l    mi_nextitem(a6),a6    delete
  91.     move.b    #'D',mi_command(a6)
  92.     ori.w    #4,mi_flags(a6)
  93. nomenus    move.l    ibase,a1
  94.     move.l    4,a6
  95.     jsr    -414(a6)
  96. quit    rts
  97. nextwindow
  98.     move.l    wd_nextwindow(a6),d0
  99.     tst.l    d0
  100.     beq    nomenus
  101.     move.l    d0,a6
  102.     jmp    ggg
  103. ibase     dc.l    0
  104. firstmenu    dc.l    0
  105. secmenu    dc.l    0
  106. thirdmenu    dc.l    0
  107. iname    dc.b    "intuition.library",0
  108.