home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 634.lha / TexadaUtils / source / UnShuffle.a < prev    next >
Encoding:
Text File  |  1992-04-17  |  618 b   |  35 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    #0,d2
  14.     move.b    #1,d3
  15. fff    move.l    a6,d1
  16.     tst.l    d1
  17.     beq    quit
  18.     move.l    a6,nwin
  19. back    move.b    d2,wd_detailpen(a6)
  20.     move.b    d3,wd_blockpen(a6)
  21.     move.l    d1,a6
  22. next    move.l    nwin,a1
  23.     move.l    ibase,a6
  24.     jsr    -456(a6)
  25.     move.l    nwin,a6
  26.     move.l    wd_nextwindow(a6),a6
  27.     jmp    fff
  28. quit    move.l    ibase,a1
  29.     move.l    4,a6
  30.     jsr    -414(a6)
  31. quit2    rts
  32. ibase     dc.l    0
  33. nwin    dc.l    0
  34. iname    dc.b    "intuition.library",0
  35.