home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 110 / EnigmaAmiga110CD.iso / software / varie / ksc_utils / colors.asm < prev    next >
Assembly Source File  |  2000-02-21  |  1KB  |  69 lines
  1. ; Colors v1.2 : pops up palette on top screen (needs reqtools)
  2. ; by Kyzer/CSG
  3. ; $VER: Colors.asm 1.2 (08.04.98)
  4. ;
  5.     incdir    include:
  6.     include    lvo/exec_lib.i
  7.     include    lvo/reqtools_lib.i
  8.     include    libraries/reqtools.i
  9.     include    intuition/intuitionbase.i
  10.     include    dos/dosextens.i
  11.     include    utility/tagitem.i
  12.  
  13. Colors    move.l    4.w,a6
  14.     sub.l    a1,a1
  15.     jsr    _LVOFindTask(a6)
  16.     move.l    d0,a4
  17.     moveq    #0,d0
  18.     tst.l    pr_CLI(a4)
  19.     bne.s    .nomsg
  20.     lea    pr_MsgPort(a4),a0
  21.     jsr    _LVOWaitPort(a6)
  22.     lea    pr_MsgPort(a4),a0
  23.     jsr    _LVOGetMsg(a6)
  24. .nomsg    move.l    d0,-(sp)
  25.  
  26.     lea    intname(pc),a1
  27.     moveq    #32,d0
  28.     jsr    _LVOOpenLibrary(a6)
  29.     tst.l    d0
  30.     beq.s    .exit
  31.     move.l    d0,a1
  32.  
  33.     pea    TAG_DONE.w
  34.     move.l    ib_FirstScreen(a1), -(sp)
  35.     pea    RT_Screen
  36.  
  37.     jsr    _LVOCloseLibrary(a6)
  38.  
  39.     lea    rtname(pc),a1
  40.     moveq    #37,d0
  41.     jsr    _LVOOpenLibrary(a6)
  42.     tst.l    d0
  43.     beq.s    .exit
  44.     move.l    d0,a6
  45.  
  46.     move.l    sp,a0
  47.     lea    reqname(pc),a2
  48.     suba.l    a3,a3
  49.     jsr    _LVOrtPaletteRequestA(a6)
  50.     adda.w    #12,sp
  51.  
  52.     move.l    a6,a1
  53.     move.l    4.w,a6
  54.     jsr    _LVOCloseLibrary(a6)
  55.  
  56. .exit    move.l    (sp)+,d0
  57.     beq.s    .nomsg2
  58.     move.l    d0,a2
  59.     jsr    _LVOForbid(a6)
  60.     move.l    a2,a1
  61.     jsr    _LVOReplyMsg(a6)
  62.     jsr    _LVOPermit(a6)
  63. .nomsg2    moveq    #0,d0
  64.     rts
  65.  
  66. rtname    dc.b    'reqtools.library',0
  67. intname    dc.b    'intuition.library',0
  68. reqname    dc.b    'Colors',0
  69.