Changeset 3183
- Timestamp:
- Aug 16, 2012 10:15:40 PM (9 months ago)
- Location:
- cpu/arm
- Files:
-
- 9 edited
-
mmp2/boardtwsi.fth (modified) (8 diffs)
-
mmp2/dsi.fth (modified) (2 diffs)
-
mmp2/twsi.fth (modified) (2 diffs)
-
mmp3/thunderstone/boardtwsi.fth (modified) (8 diffs)
-
olpc/1.75/compass.fth (modified) (2 diffs)
-
olpc/accelerometer.fth (modified) (3 diffs)
-
olpc/nn-touchscreen.fth (modified) (1 diff)
-
olpc/rtc.fth (modified) (1 diff)
-
olpc/sound.fth (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
cpu/arm/mmp2/boardtwsi.fth
r3132 r3183 9 9 \ 6 HDMI DDC EDID a0 10 10 11 : select-touch-panel ( -- ) h# 40 5 set-twsi-target ;11 : select-touch-panel ( -- ) h# 20 5 set-twsi-target ; 12 12 : touch-panel-type ( -- n ) select-touch-panel h# bd twsi-b@ ; 13 13 : get-tm1414-data ( -- x y finger-mask ) … … 30 30 31 31 : compass@ ( -- x y z temp id ) 32 h# 3c4 set-twsi-target32 h# 1e 4 set-twsi-target 33 33 0 0 twsi-b! \ Config register A 34 34 h# 50 1 twsi-b! \ Config register B … … 41 41 ; 42 42 43 : select-pmic ( -- ) h# 781 set-twsi-target ;43 : select-pmic ( -- ) h# 3c 1 set-twsi-target ; 44 44 45 45 : accel-power-on ( -- ) \ LDO8 - vout is 36, ctl is 34 … … 53 53 ; 54 54 : accel@ ( -- x y z temp id ) 55 h# 704 set-twsi-target55 h# 38 4 set-twsi-target 56 56 57 57 2 twsi-b@ 6 rshift ( x-low ) … … 68 68 69 69 : init-pals ( -- ) 70 h# b04 set-twsi-target \ Set PS parameters address70 h# 58 4 set-twsi-target \ Set PS parameters address 71 71 0 1 twsi-out \ clear interrupt settings 72 72 73 h# 224 set-twsi-target \ Device init address73 h# 11 4 set-twsi-target \ Device init address 74 74 h# 10 1 twsi-out \ Init device 75 75 76 h# 20 4 set-twsi-target \ Ambient Light Sensor address76 h# 10 4 set-twsi-target \ Ambient Light Sensor address 77 77 2 1 twsi-out \ Enable ALS in most sensitive mode, 16-bit data 78 78 ; 79 79 : als@ ( -- n ) 80 h# 224 set-twsi-target \ Ambient Light Sensor LSB address80 h# 11 4 set-twsi-target \ Ambient Light Sensor LSB address 81 81 0 1 twsi-get ( low ) 82 h# 20 4 set-twsi-target \ Ambient Light Sensor MSB address82 h# 10 4 set-twsi-target \ Ambient Light Sensor MSB address 83 83 0 1 twsi-get bwjoin ( n ) 84 84 ; 85 85 86 86 : proximity@ ( -- byte ) 87 h# b04 set-twsi-target \ Proximity Sensor address87 h# 58 4 set-twsi-target \ Proximity Sensor address 88 88 0 1 twsi-get ( byte ) 89 89 ; … … 129 129 : twsi-bcd@ ( reg# -- binary ) twsi-b@ bcd> ; 130 130 : get-rtc ( -- ) 131 h# d01 set-twsi-target131 h# 68 1 set-twsi-target 132 132 133 133 \ 3 twsi-b@ ( dow ) … … 143 143 144 144 : core-voltage! ( mv -- ) 145 h# c0 1 set-twsi-target \ MAX8649 power management IC145 h# 60 1 set-twsi-target \ MAX8649 power management IC 146 146 147 147 d# 750 umax d# 1350 umin \ Clipped voltage … … 151 151 ; 152 152 : core-voltage@ ( -- mv ) 153 h# c0 1 set-twsi-target \ MAX8649 power management IC153 h# 60 1 set-twsi-target \ MAX8649 power management IC 154 154 2 twsi-b@ ( code ) 155 155 h# 7f and ( offset-mv/10 ) -
cpu/arm/mmp2/dsi.fth
r3132 r3183 46 46 d# 83 gpio-clr 1 ms d# 83 gpio-set 1 ms \ LCD_RST_N line resets DSI bridge 47 47 48 h# 165 set-twsi-target \ TWSI address of TC358762 MIPI DSI bridge48 h# 0b 5 set-twsi-target \ TWSI address of TC358762 MIPI DSI bridge 49 49 \ Data Reg#....... 50 50 0 h# 047c dsi-twsi! \ Turn off sleep mode … … 143 143 : .dsiw ( index -- ) dup 3 u.r space dsi-twsi-w@ 8 u.r cr ; 144 144 : dump-dsi ( -- ) 145 165 set-twsi-target145 0b 5 set-twsi-target 146 146 47c .dsi 147 147 210 .dsi -
cpu/arm/mmp2/twsi.fth
r3174 r3183 43 43 : set-twsi-target ( slave channel -- ) \ Channel numbers range from 1 to 6 44 44 set-twsi-channel 45 to slave-address45 2* to slave-address 46 46 ; 47 47 … … 196 196 197 197 198 0 0 " 34" " /i2c@d4011000" begin-package \ TWSI1198 0 0 " 1a" " /i2c@d4011000" begin-package \ TWSI1 199 199 " audio-codec" name 200 200 " realtek,alc5631" +compatible -
cpu/arm/mmp3/thunderstone/boardtwsi.fth
r3132 r3183 9 9 \ 6 HDMI DDC EDID a0 10 10 11 : select-touch-panel ( -- ) h# 40 5 set-twsi-target ;11 : select-touch-panel ( -- ) h# 20 5 set-twsi-target ; 12 12 : touch-panel-type ( -- n ) select-touch-panel h# bd twsi-b@ ; 13 13 : get-tm1414-data ( -- x y finger-mask ) … … 30 30 31 31 : compass@ ( -- x y z temp id ) 32 h# 3c4 set-twsi-target32 h# 1e 4 set-twsi-target 33 33 0 0 twsi-b! \ Config register A 34 34 h# 50 1 twsi-b! \ Config register B … … 41 41 ; 42 42 43 : select-pmic ( -- ) h# 781 set-twsi-target ;43 : select-pmic ( -- ) h# 3c 1 set-twsi-target ; 44 44 45 45 : accel-power-on ( -- ) \ LDO8 - vout is 36, ctl is 34 … … 53 53 ; 54 54 : accel@ ( -- x y z temp id ) 55 h# 704 set-twsi-target55 h# 38 4 set-twsi-target 56 56 57 57 2 twsi-b@ 6 rshift ( x-low ) … … 68 68 69 69 : init-pals ( -- ) 70 h# b04 set-twsi-target \ Set PS parameters address70 h# 58 4 set-twsi-target \ Set PS parameters address 71 71 0 1 twsi-out \ clear interrupt settings 72 72 73 h# 224 set-twsi-target \ Device init address73 h# 11 4 set-twsi-target \ Device init address 74 74 h# 10 1 twsi-out \ Init device 75 75 76 h# 20 4 set-twsi-target \ Ambient Light Sensor address76 h# 10 4 set-twsi-target \ Ambient Light Sensor address 77 77 2 1 twsi-out \ Enable ALS in most sensitive mode, 16-bit data 78 78 ; 79 79 : als@ ( -- n ) 80 h# 224 set-twsi-target \ Ambient Light Sensor LSB address80 h# 11 4 set-twsi-target \ Ambient Light Sensor LSB address 81 81 0 1 twsi-get ( low ) 82 h# 20 4 set-twsi-target \ Ambient Light Sensor MSB address82 h# 10 4 set-twsi-target \ Ambient Light Sensor MSB address 83 83 0 1 twsi-get bwjoin ( n ) 84 84 ; 85 85 86 86 : proximity@ ( -- byte ) 87 h# b04 set-twsi-target \ Proximity Sensor address87 h# 58 4 set-twsi-target \ Proximity Sensor address 88 88 0 1 twsi-get ( byte ) 89 89 ; … … 129 129 : twsi-bcd@ ( reg# -- binary ) twsi-b@ bcd> ; 130 130 : get-rtc ( -- ) 131 h# d01 set-twsi-target131 h# 68 1 set-twsi-target 132 132 133 133 \ 3 twsi-b@ ( dow ) … … 143 143 144 144 : core-voltage! ( mv -- ) 145 h# c0 1 set-twsi-target \ MAX8649 power management IC145 h# 60 1 set-twsi-target \ MAX8649 power management IC 146 146 147 147 d# 750 umax d# 1350 umin \ Clipped voltage … … 151 151 ; 152 152 : core-voltage@ ( -- mv ) 153 h# c0 1 set-twsi-target \ MAX8649 power management IC153 h# 60 1 set-twsi-target \ MAX8649 power management IC 154 154 2 twsi-b@ ( code ) 155 155 h# 7f and ( offset-mv/10 ) -
cpu/arm/olpc/1.75/compass.fth
r3049 r3183 5 5 compass-scl-gpio# to smb-clock-gpio# 6 6 compass-sda-gpio# to smb-data-gpio# 7 h# 3cto smb-slave7 h# 1e to smb-slave 8 8 smb-data-gpio# gpio-dir-out 9 9 ; … … 36 36 " combo-accelerometer" name 37 37 38 \ : set-sensor-slave ( -- ) h# 306 set-twsi-target ;38 \ : set-sensor-slave ( -- ) h# 18 6 set-twsi-target ; 39 39 : set-sensor-slave ( -- ) 40 40 4 to smb-clock-gpio# 41 41 5 to smb-data-gpio# 42 h# 30to smb-slave42 h# 18 to smb-slave 43 43 smb-data-gpio# gpio-dir-out 44 44 ; -
cpu/arm/olpc/accelerometer.fth
r2726 r3183 3 3 " accelerometer" name 4 4 5 \ reg is set dynamically by probing to find which chip is present 5 6 \ my-address my-space encode-phys " reg" property 6 7 … … 150 151 d# 50 to min-x d# 50 to min-y d# 50 to min-z 151 152 d# 150 to max-x d# 150 to max-y d# 450 to max-z 152 h# 326 encode-phys " reg" property153 h# 19 6 encode-phys " reg" property 153 154 ['] lis3dhtr-selftest to lis-selftest 154 155 else … … 159 160 d# 20 to min-x d# 20 to min-y d# 20 to min-z 160 161 d# 400 to max-x d# 400 to max-y d# 400 to max-z 161 h# 3a6 encode-phys " reg" property162 h# 1d 6 encode-phys " reg" property 162 163 ['] lis33de-selftest to lis-selftest 163 164 then -
cpu/arm/olpc/nn-touchscreen.fth
r3170 r3183 2 2 purpose: Driver and diagnostic for Neonode zForce MultiSensing I2C Touchscreen 3 3 4 0 0 " 4, a0" " /twsi" begin-package4 0 0 " 4,50" " /twsi" begin-package 5 5 my-space encode-int my-address encode-int encode+ " reg" property 6 6 -
cpu/arm/olpc/rtc.fth
r3049 r3183 23 23 : rtc! ( byte reg# -- ) set-address smb-byte! ; 24 24 [else] 25 : set-address ( -- ) h# d02 set-twsi-target ;25 : set-address ( -- ) h# 68 2 set-twsi-target ; 26 26 : rtc@ ( reg# -- byte ) set-address twsi-b@ ; 27 27 : rtc! ( byte reg# -- ) set-address twsi-b! ; -
cpu/arm/olpc/sound.fth
r3125 r3183 265 265 266 266 [ifdef] cl2-a1 267 : choose-smbus ( -- ) h# 301 set-twsi-target ;267 : choose-smbus ( -- ) h# 18 1 set-twsi-target ; 268 268 [else] 269 : choose-smbus ( -- ) h# 341 set-twsi-target ;269 : choose-smbus ( -- ) h# 1a 1 set-twsi-target ; 270 270 [then] 271 271
Note: See TracChangeset
for help on using the changeset viewer.
