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