home *** CD-ROM | disk | FTP | other *** search
/ linuxmafia.com 2016 / linuxmafia.com.tar / linuxmafia.com / pub / palmos / stepcounter-1.3.tar.gz / stepcounter-1.3.tar / stepcounter-1.3 / tilt_p3 / tilt_asm.S < prev    next >
Text File  |  1999-10-27  |  1KB  |  64 lines
  1. # 
  2. #   tilt_asm.S  -  (c) 1999 Till Harbaum
  3. #
  4. #   tilt sensor driver for old style palm tilt sensor
  5. #
  6. #   t.harbaum@tu-bs.de
  7. #
  8.     
  9.     .globl getvals
  10.  
  11.     .text
  12.     .even
  13.  
  14. getvals:
  15.         link.w    %a6,#0
  16.     movem.l   %d0-%d5/%a1,-(%a7)
  17.     
  18.         move.l    8(%a6),%a0
  19.     move.l      #0xfffff421, %a1  | Port E data reg
  20.  
  21.     move      #2000,%d0  | init div counter
  22.     move      %d0,%d1
  23.     move      %d1,%d2
  24.     move      %d2,%d3
  25.     move      %d3,%d4
  26.     move      %d4,%d5
  27.         
  28. loop_0:    btst.b    #6,(%a1)    | wait while x high
  29.     dbeq      %d0,loop_0
  30.  
  31. loop_1:    btst.b    #6,(%a1)    | wait while x low
  32.     dbne      %d1,loop_1
  33.  
  34.     | this is time Ta
  35.     
  36. loop_2:    btst.b    #6,(%a1)    | wait while x high
  37.     dbeq      %d2,loop_2
  38.  
  39.     | this is time Tb
  40.  
  41. loop_3:    btst.b    #5,(%a1)    | wait while y high
  42.     dbeq      %d3,loop_3
  43.         
  44. loop_4:    btst.b    #5,(%a1)    | wait while y low
  45.     dbne      %d4,loop_4
  46.  
  47.     | this is time Tc
  48.     
  49. loop_5:    btst.b    #5,(%a1)    | wait while y high
  50.     dbeq      %d5,loop_5
  51.  
  52.     | this is time Td
  53.  
  54.     move.w    %d0,(%a0)+
  55.     move.w    %d1,(%a0)+
  56.     move.w    %d2,(%a0)+
  57.     move.w    %d3,(%a0)+
  58.     move.w    %d4,(%a0)+
  59.     move.w    %d5,(%a0)+
  60.                         
  61.     movem.l   (%a7)+,%d0-%d5/%a1
  62.     unlk      %a6
  63.     rts
  64.