home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 26 / AACD 26.iso / AACD / Programming / ace_gpl_release / src / lib / asm / windowfunc.s < prev   
Encoding:
Text File  |  1998-10-04  |  3.2 KB  |  183 lines
  1. ;
  2. ; windowfunc.s -- an ACE linked library module: WINDOW(n).
  3. ; Copyright (C) 1998 David Benn
  4. ; 
  5. ; This program is free software; you can redistribute it and/or
  6. ; modify it under the terms of the GNU General Public License
  7. ; as published by the Free Software Foundation; either version 2
  8. ; of the License, or (at your option) any later version.
  9. ;
  10. ; This program is distributed in the hope that it will be useful,
  11. ; but WITHOUT ANY WARRANTY; without even the implied warranty of
  12. ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13. ; GNU General Public License for more details.
  14. ;
  15. ; You should have received a copy of the GNU General Public License
  16. ; along with this program; if not, write to the Free Software
  17. ; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
  18. ;
  19. ; Author: David J Benn
  20. ;   Date: 19th March 1994,
  21. ;      13th August 1994,
  22. ;      12th March 1995
  23. ;
  24. ; registers d0-d6 and a0-a3 are modified by some of the following. BEWARE!
  25. ;
  26. ; a4,a5 are used by link/unlk.
  27. ; a6 is library base holder.
  28. ; a7 is stack pointer. 
  29. ; d7 is used for array index calculations.
  30. ;
  31.  
  32. ; * CONSTANTS *
  33. Width        equ 8
  34. Height        equ 10
  35. cp_x        equ 36
  36. cp_y        equ 38
  37. BitMap        equ 184
  38. Depth        equ 5
  39. Font        equ 52
  40. tf_YSize    equ 20
  41. tf_XSize    equ 24
  42. lib_Version    equ 20
  43.  
  44.     xdef    _windowfunc
  45.  
  46.        ; external references
  47.     xref    _Wdw_id
  48.     xref    _Wdw
  49.     xref    _RPort
  50.     xref    _Scrn
  51.     xref    _stdout
  52.     xref    _fgdpen
  53.     xref    _bgpen
  54.     xref    _get_selected_wdw
  55.  
  56.     SECTION windowfunc_code,CODE
  57.  
  58. ;
  59. ; WINDOW(n) - returns info' about the current output window. d0=n.
  60. ;        - return value is a long integer in d0.    
  61. ;
  62. _windowfunc:
  63.     cmpi.w    #0,d0
  64.     beq    _window0
  65.     cmpi.w    #1,d0
  66.     beq    _window1
  67.     cmpi.w    #2,d0
  68.     beq    _window2
  69.     cmpi.w    #3,d0
  70.     beq    _window3
  71.     cmpi.w    #4,d0
  72.     beq    _window4
  73.     cmpi.w    #5,d0
  74.     beq    _window5
  75.     cmpi.w    #6,d0
  76.     beq    _window6
  77.     cmpi.w    #7,d0
  78.     beq    _window7
  79.     cmpi.w    #8,d0
  80.     beq    _window8
  81.     cmpi.w    #9,d0
  82.     beq    _window9
  83.     cmpi.w    #10,d0
  84.     beq    _window10
  85.     cmpi.w    #11,d0
  86.     beq    _window11
  87.     cmpi.w    #12,d0
  88.     beq    _window12
  89.     cmpi.w    #13,d0
  90.     beq    _window13
  91.     
  92.     moveq    #0,d0
  93.     rts            ; none of the above
  94.  
  95. _window0:
  96.     movem.l    d1-d7/a0-a6,-(sp)
  97.     jsr    _get_selected_wdw
  98.     movem.l    (sp)+,d1-d7/a0-a6
  99.     rts
  100.  
  101. _window1:
  102.     move.w    _Wdw_id,d0    ; Wdw-id
  103.     ext.l    d0
  104.     rts
  105.  
  106. _window2:
  107.     movea.l    _Wdw,a0
  108.     move.w    Width(a0),d0    ; current Wdw width
  109.     ext.l    d0
  110.     rts
  111.  
  112. _window3:
  113.     movea.l    _Wdw,a0
  114.     move.w    Height(a0),d0    ; current Wdw height
  115.     ext.l    d0
  116.     rts
  117.  
  118. _window4:
  119.     move.l    _RPort,a0
  120.     move.w    cp_x(a0),d0    ; next x coordinate to be used
  121.     ext.l    d0    
  122.     rts
  123.  
  124. _window5:
  125.     move.l    _RPort,a0
  126.     move.w    cp_y(a0),d0    ; next y coordinate to be used
  127.     ext.l    d0    
  128.     rts
  129.  
  130. _window6:
  131.     movea.l    _Scrn,a0
  132.     adda.l    #BitMap,a0    ; BitMap
  133.     move.b    Depth(a0),d0    ; depth
  134.     ext.w    d0
  135.     ext.l    d0
  136.     moveq    #1,d1        
  137. _calc_max_colr_id:
  138.     lsl.l    #1,d1
  139.     subq    #1,d0        
  140.     cmpi.l    #0,d0
  141.     bgt.s    _calc_max_colr_id
  142.     subq    #1,d1
  143.     move.l    d1,d0        ; max-color-id = 2^depth - 1
  144.     rts
  145.  
  146. _window7:
  147.     move.l    _Wdw,d0        ; Intuition Wdw address
  148.     rts
  149.  
  150. _window8:
  151.     move.l    _RPort,d0    ; Intuition RPort address
  152.     rts
  153.  
  154. _window9:
  155.     move.l    _stdout,d0    ; file handle    
  156.     rts
  157.  
  158. _window10:
  159.     move.w    _fgdpen,d0
  160.     ext.l    d0        ; foreground pen
  161.     rts
  162.  
  163. _window11:
  164.     move.w    _bgpen,d0
  165.     ext.l    d0        ; background pen
  166.     rts
  167.  
  168. _window12:
  169.     movea.l    _RPort,a0
  170.     movea.l    Font(a0),a0
  171.     move.w    tf_XSize(a0),d0    
  172.     ext.l    d0        ; font width
  173.     rts
  174.  
  175. _window13:
  176.     movea.l    _RPort,a0
  177.     movea.l    Font(a0),a0
  178.     move.w    tf_YSize(a0),d0    
  179.     ext.l    d0        ; font height
  180.     rts
  181.  
  182.     END
  183.