home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 26 / AACD 26.iso / AACD / Programming / ace_gpl_release / src / lib / asm / csrpos.s < prev    next >
Encoding:
Text File  |  1998-10-04  |  1.9 KB  |  91 lines
  1. ;
  2. ; csrpos.s -- an ACE linked library module: CSRLIN and POS.
  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. ;
  22. ; registers d0-d6 and a0-a3 are modified by some of the following. BEWARE!
  23. ;
  24. ; a4,a5 are used by link/unlk.
  25. ; a6 is library base holder.
  26. ; a7 is stack pointer. 
  27. ; d7 is used for array index calculations.
  28. ;
  29.  
  30. ; * CONSTANTS *
  31.  
  32. cp_x        equ    36
  33. cp_y        equ    38
  34. Font        equ    52
  35. tf_YSize    equ    20
  36. tf_XSize    equ    24
  37.     
  38.     ; functions
  39.     xdef    _pos
  40.     xdef    _csrlin
  41.     
  42.        ; external references
  43.     xref    _IntuiMode
  44.     xref    _RPort
  45.  
  46.     SECTION csrpos_code,CODE
  47.  
  48. ;
  49. ; POS - returns the cursor's column for the current screen.
  50. ;
  51. _pos:
  52.     cmpi.b    #1,_IntuiMode
  53.     beq.s    _dopos
  54.  
  55.     ; in a window, so return zero
  56.     moveq    #0,d0
  57.     rts
  58.     
  59. _dopos:
  60.     movea.l    _RPort,a0
  61.     move.w    cp_x(a0),d0
  62.     ext.l    d0
  63.     movea.l    Font(a0),a0
  64.     move.w    tf_XSize(a0),d1
  65.     divu    d1,d0
  66.     addq    #1,d0    ; COLUMN = x/font width + 1            
  67.     rts            
  68.  
  69. ;
  70. ; CSRLIN - returns the cursor's line for the current screen.
  71. ;
  72. _csrlin:
  73.     cmpi.b    #1,_IntuiMode
  74.     beq.s    _docsrlin
  75.  
  76.     ; in a window, so return zero
  77.     moveq    #0,d0
  78.     rts
  79.  
  80. _docsrlin:
  81.     movea.l    _RPort,a0
  82.     move.w    cp_y(a0),d0
  83.     ext.l    d0
  84.     movea.l    Font(a0),a0
  85.     move.w    tf_YSize(a0),d1
  86.     addq    #2,d0
  87.     divu    d1,d0    ; LINE = (y+2)/font height
  88.     rts
  89.  
  90.     END
  91.