Changeset 3439
- Timestamp:
- Nov 17, 2012 12:23:04 AM (6 months ago)
- Location:
- cpu/arm/olpc
- Files:
-
- 2 edited
-
nn-touchscreen.fth (modified) (8 diffs)
-
nnflash.fth (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
cpu/arm/olpc/nn-touchscreen.fth
r3437 r3439 117 117 0 pbuf 2+ c! 118 118 h# 07 d# 0 anticipate 119 pbuf 2+ c@ h# 07 <> abort" bad response"119 pbuf 2+ c@ h# 07 <> abort" response other than boot complete" 120 120 pbuf 3 + c@ h# e0 = abort" missing IR PCB" 121 121 ; … … 123 123 : read-version 124 124 h# 1e h# 01 h# ee 3 bytes-out h# 1e d# 100 anticipate 125 pbuf 2+ c@ h# 1e <> abort" bad response"125 pbuf 2+ c@ h# 1e <> abort" response other than status" 126 126 pbuf 9 + le-w@ pbuf 7 + le-w@ wljoin pbuf 5 + le-w@ pbuf 3 + le-w@ wljoin 127 127 to version# … … 224 224 h# 40 h# 0 h# 0f 3 h# ee 5 bytes-out \ fss full level 225 225 0 pbuf 2+ c! 226 h# 0f d# 30 anticipate227 pbuf 2+ c@ dup 0= abort" no response to fss"228 h# 0f <> abort" bad response to fss"226 h# 0f d# 130 anticipate 227 pbuf 2+ c@ dup 0= abort" missing response after fixed signal strength" 228 h# 0f <> abort" response other than fixed signal strength" 229 229 loop 230 230 ; … … 384 384 h# 21 h# 02 h# ee 4 bytes-out 385 385 h# 21 d# 30 anticipate 386 pbuf 2+ c@ h# 21 <> abort" bad response"386 pbuf 2+ c@ h# 21 <> abort" response other than open short" 387 387 388 388 pbuf d# 5 + ( addr ) … … 444 444 d# 64 swap h# 0f h# 03 h# ee 5 bytes-out 445 445 h# 0f d# 20 anticipate 446 pbuf 2+ c@ h# 0f <> abort" bad response"446 pbuf 2+ c@ h# 0f <> abort" response other than fixed signal strength" 447 447 8sp 448 448 push-decimal … … 579 579 h# 0d h# 02 h# ee 4 bytes-out 580 580 h# 0d d# 200 anticipate 581 pbuf 2+ c@ h# 0d <> abort" bad response"581 pbuf 2+ c@ h# 0d <> abort" response other than low signals" 582 582 583 583 8sp … … 1039 1039 \ MB FINAL 1040 1040 \ MB SHIP 1041 open 0= if 1041 ['] open catch ?dup if 1042 .error 1042 1043 ." No touchscreen present" cr false exit 1043 1044 then … … 1052 1053 then 1053 1054 1054 test-response1055 ['] test-response guarded 1055 1056 test-station 6 = if d# 86400.000 to test-timeout then 1056 scribble1057 ['] scribble guarded 1057 1058 1058 1059 close false -
cpu/arm/olpc/nnflash.fth
r3437 r3439 45 45 46 46 : update-nn-flash ( -- ) 47 nn-image$ 2dup nn-up-to-date? if 48 2drop 49 else 50 reflash-nn 51 then 47 nn-image$ reflash-nn 52 48 ; 53 49
Note: See TracChangeset
for help on using the changeset viewer.
