home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 634.lha / TexadaUtils / source / WBShuffle.a < prev   
Encoding:
Text File  |  1992-04-17  |  725 b   |  44 lines
  1.     incdir "asm:include/"
  2.     include "intuition/intuition.i"
  3.     include "misc/measystart.i"
  4. aaa    move.b    (a0)+,d0
  5.     cmpi.b    #" ",d0
  6.     beq    aaa
  7.     cmpi.b    #"?",d0
  8.     beq    help
  9.     cmpi.b    #13,d0
  10.     beq    nothing
  11.     move.b    d0,d2
  12.     move.b    (a0)+,d3
  13.     sub.b    #"0",d2
  14.     sub.b    #"0",d3
  15.     cmp.b    d2,d3
  16.     beq    nothing
  17. fgh    move.l    4,a6
  18.     move.l    #iname,a1
  19.     jsr    -408(a6)
  20.     tst.l    d0
  21.     beq    quit2
  22.     move.l    d0,ibase
  23.     move.l    d0,a6
  24.     move.l    ib_activewindow(a6),a6
  25. ;    move.l    sc_firstwindow(a6),a6
  26.     move.l    a6,d1
  27.     tst.l    d1
  28.     beq    quit
  29.     move.b    d2,wd_detailpen(a6)
  30.     move.b    d3,wd_blockpen(a6)
  31.     move.l    a6,a1
  32.     move.l    ibase,a6
  33.     jsr    -456(a6)
  34. quit    move.l    ibase,a1
  35.     move.l    4,a6
  36.     jsr    -414(a6)
  37. quit2    rts
  38. help    rts
  39. nothing    move.b    #3,d2
  40.     move.b    #2,d3
  41.     jmp    fgh
  42. ibase     dc.l    0
  43. iname    dc.b    "intuition.library",0
  44.