home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / hensa / programming / oslib / oslib_1 / OSLib / Computer / Hdr / Joystick < prev    next >
Encoding:
Text File  |  1995-06-22  |  1.9 KB  |  70 lines
  1. ;Assembler header file for Joystick
  2. ;written by DefMod (Jun 12 1995) on Thu Jun 22 12:14:50 1995
  3. ;Jonathan Coxhead, Acorn Computers Ltd
  4.  
  5.         [       :LNOT: :DEF: Get_Types
  6.         GBLS    Get_Types
  7.         ]
  8.         [       :LNOT: :DEF: Types_Hdr
  9. Get_Types                       SETS    "GET OS:Hdr.Types"
  10.         |
  11. Get_Types                       SETS    ""
  12.         ]
  13.         $Get_Types
  14.  
  15.         [       :LNOT: :DEF: Get_OS
  16.         GBLS    Get_OS
  17.         ]
  18.         [       :LNOT: :DEF: OS_Hdr
  19. Get_OS                          SETS    "GET OS:Hdr.OS"
  20.         |
  21. Get_OS                          SETS    ""
  22.         ]
  23.         $Get_OS
  24.  
  25.         [       :LNOT: :DEF: Joystick_Hdr
  26.         GBLS    Joystick_Hdr
  27.  
  28. ;Symbols for constants
  29. Joystick_X                      *       &FF
  30. Joystick_Y                      *       &FF00
  31. Joystick_Switches               *       &FF0000
  32. Joystick_XShift                 *       0
  33. Joystick_YShift                 *       8
  34. Joystick_SwitchesShift          *       16
  35. Joystick_HalfWordX              *       &FFFF
  36. Joystick_HalfWordY              *       &FFFF0000
  37. Joystick_HalfWordXShift         *       0
  38. Joystick_HalfWordYShift         *       16
  39.  
  40. ;Symbols for structure offsets and sizes
  41. Joystick_State                  *       Bits
  42.  
  43. Joystick_HalfWordState          *       Bits
  44.  
  45.  
  46. ;Symbols for SWI's and SWI reason codes
  47. XJoystick_Read                  *       &63F40
  48. Joystick_Read                   *       &43F40
  49.    ;Entry
  50.    ;  R0 = joystick_no (Int)
  51.    ;Exit
  52.    ;  R0 = state (Joystick_State)
  53.  
  54. XJoystick_ReadHalfWord          *       &63F40
  55. Joystick_ReadHalfWord           *       &43F40
  56.    ;Entry
  57.    ;  R0 = &100 :OR: joystick_no (Int)
  58.    ;Exit
  59.    ;  R0 = state (Joystick_HalfWordState)
  60.    ;  R1 = switches (Bits)
  61.  
  62. XJoystick_CalibrateTopRight     *       &63F41
  63. Joystick_CalibrateTopRight      *       &43F41
  64.  
  65. XJoystick_CalibrateBottomLeft   *       &63F42
  66. Joystick_CalibrateBottomLeft    *       &43F42
  67.  
  68.         ]
  69.         END
  70.