home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 23 / AACD 23.iso / AACD / Programming / tek / kn / elate / visual / allocpen.asm next >
Encoding:
Assembly Source File  |  2001-05-26  |  897 b   |  36 lines
  1.  
  2.     .include 'taort'
  3.     .include 'ave/toolkit/toolkit.inc'
  4.     .include 'lib/tek/kn/elate/visual.inc'
  5.  
  6. ;=============================================================================
  7. ;-----------------------------------------------------------------------------
  8. ; 
  9. ;    TEKlib
  10. ;    (C) 1999-2001 TEK neoscientists
  11. ;    all rights reserved.
  12. ;
  13. ;    TVPEN kn_allocpen(visual, rgb)
  14. ;
  15. ;-----------------------------------------------------------------------------
  16. ;=============================================================================
  17.  
  18.     tool 'lib/tek/kn/visual/allocpen',VP,TF_EMBED
  19.  
  20. ;-----------------------------------------------------------------------------
  21.  
  22.     ent p0 i0 : p0
  23.  
  24.     defbegin
  25.     defp visual,rgb
  26.  
  27.         cpy.p    i2p(i0),p0
  28.         ret
  29.         
  30.     defend
  31.  
  32.     toolend
  33.  
  34. ;-----------------------------------------------------------------------------
  35. ;=============================================================================
  36.