Changeset 3413
- Timestamp:
- Nov 3, 2012 12:17:39 AM (7 months ago)
- File:
-
- 1 edited
-
cpu/arm/olpc/nn-touchscreen.fth (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
cpu/arm/olpc/nn-touchscreen.fth
r3405 r3413 111 111 112 112 113 : read-boot-complete ( -- ) h# 07 d# 0 anticipate ; 113 : read-boot-complete ( -- ) 114 0 pbuf 2+ c! 115 h# 07 d# 0 anticipate 116 pbuf 2+ c@ h# 07 <> abort" bad response" 117 pbuf 3 + c@ h# e0 = abort" missing IR PCB" 118 ; 114 119 115 120 : read-version … … 161 166 then 162 167 then 163 ['] read-boot-complete catch if 164 ." no response on bus" cr 168 ['] read-boot-complete catch ?dup if 169 .error 170 ." failed to boot" cr 165 171 pbuf-free false exit 166 172 then 167 ['] configure catch if 173 ['] configure catch ?dup if 174 .error 168 175 ." failed to configure" cr 169 176 pbuf-free false exit
Note: See TracChangeset
for help on using the changeset viewer.
