home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 634.lha / TexadaUtils / source / Shuffle.a < prev    next >
Encoding:
Text File  |  1992-04-17  |  805 b   |  51 lines
  1.     incdir "asm:include/"
  2.     include "intuition/intuition.i"
  3.     include "misc/measystart.i"
  4.     move.l    4,a6
  5.     move.l    #iname,a1
  6.     jsr    -408(a6)
  7.     tst.l    d0
  8.     beq    quit2
  9.     move.l    d0,ibase
  10.     move.l    d0,a6
  11.     move.l    ib_firstscreen(a6),a6
  12.     move.l    sc_firstwindow(a6),a6
  13.     move.b    #2,d2
  14.     move.b    #3,d3
  15. fff    move.l    a6,d1
  16.     tst.l    d1
  17.     beq    quit
  18.     move.l    a6,nwin
  19.     cmp.b    d2,d3
  20.     beq    both
  21. back    move.b    d2,wd_detailpen(a6)
  22.     move.b    d3,wd_blockpen(a6)
  23.     add.b    #1,d2
  24.     sub.b    #1,d3
  25.     cmp.b    #0,d3
  26.     blt    a
  27. c    cmp.b    #3,d2
  28.     bgt    b
  29. d    move.l    d1,a6
  30.     jmp    next
  31. a    move.b    #3,d3
  32.     jmp    c
  33. b    move.b    #0,d2
  34.     jmp    d
  35. next    move.l    nwin,a1
  36.     move.l    ibase,a6
  37.     jsr    -456(a6)
  38.     move.l    nwin,a6
  39.     move.l    wd_nextwindow(a6),a6
  40.     jmp    fff
  41. quit    move.l    ibase,a1
  42.     move.l    4,a6
  43.     jsr    -414(a6)
  44. quit2    rts
  45. both    move.b    #3,d2
  46.     move.b    #2,d3
  47.     jmp    back
  48. ibase     dc.l    0
  49. nwin    dc.l    0
  50. iname    dc.b    "intuition.library",0
  51.