![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to usb-static.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Qemu by Fabrice Bellard] / qemu / roms / SLOF / slof / fs / usb|
Return to usb-static.fs CVS log | Up to [Qemu by Fabrice Bellard] / qemu / roms / SLOF / slof / fs / usb |
1.1 ! root 1: \ ***************************************************************************** ! 2: \ * Copyright (c) 2004, 2008 IBM Corporation ! 3: \ * All rights reserved. ! 4: \ * This program and the accompanying materials ! 5: \ * are made available under the terms of the BSD License ! 6: \ * which accompanies this distribution, and is available at ! 7: \ * http://www.opensource.org/licenses/bsd-license.php ! 8: \ * ! 9: \ * Contributors: ! 10: \ * IBM Corporation - initial implementation ! 11: \ ****************************************************************************/ ! 12: ! 13: \ #include "scsi-support.fs" ! 14: ! 15: \ Set usb-debug flag to TRUE for debugging output: ! 16: 0 VALUE usb-debug-flag ! 17: false VALUE scan-time? ! 18: ! 19: VARIABLE ihandle-bulk-tran ! 20: \ -scsi-supp- VARIABLE ihandle-scsi-tran ! 21: ! 22: \ uDOC (Micro-Disk-On-Chip) is a FLASH-device ! 23: \ normally connected to usb-port 5 on ELBA ! 24: \ ! 25: 0 VALUE uDOC-present \ device present and working? ! 26: ! 27: \ Print a debug message when usb-debug-flag is set ! 28: : usb-debug-print ( str len -- ) ! 29: usb-debug-flag IF type cr ELSE 2drop THEN ! 30: ; ! 31: ! 32: \ Print a debug message with corresponding value when usb-debug-flag is set ! 33: : usb-debug-print-val ( str len val -- ) ! 34: usb-debug-flag IF -ROT type . cr ELSE drop 2drop THEN ! 35: ; ! 36: ! 37: \ show proceeding propeller only during scan process. ! 38: \ As soon USB-keyboard can be used, this must be suppressed. ! 39: 0 VALUE proceed-char ! 40: : show-proceed ( -- ) ! 41: scan-time? \ are we on usb-scan ? ! 42: IF ! 43: proceed-char ! 44: CASE ! 45: 0 OF 2d ENDOF \ show '-' ! 46: 1 OF 5c ENDOF \ show '\' ! 47: 2 OF 7c ENDOF \ show '|' ! 48: dup OF 2f ENDOF \ show '/' ! 49: ENDCASE ! 50: emit 8 emit ! 51: proceed-char 1 + 3 AND to proceed-char ! 52: THEN ! 53: ; ! 54: ! 55: \ delay with proceeding signs ! 56: : wait-proceed ( nl -- ) ! 57: show-proceed ! 58: BEGIN ! 59: dup d# 100 > ( nl true|false ) ! 60: WHILE ! 61: 100 - show-proceed ! 62: 100 ms \ do it in steps of 100ms ! 63: REPEAT ! 64: ms \ rest delay ! 65: ; ! 66: ! 67: \ register device alias ! 68: : do-alias-setting ( num name-str name-len ) ! 69: rot $cathex strdup \ create alias name ! 70: get-node node>path \ get path string ! 71: set-alias \ and set the alias ! 72: ; ! 73: ! 74: ! 75: 0 VALUE ohci-alias-num ! 76: ! 77: \ create a new ohci device alias for the current node: ! 78: : set-ohci-alias ( -- ) ! 79: ohci-alias-num dup 1+ TO ohci-alias-num ( num ) ! 80: s" ohci" ! 81: do-alias-setting ! 82: ; ! 83: ! 84: 0 VALUE cdrom-alias-num ! 85: 0 VALUE disk-alias-num \ shall start with: pci-disk-num ! 86: FALSE VALUE ext-disk-alias \ first external disk: not yet assigned ! 87: ! 88: \ create a new ohci device alias for the current node: ! 89: : set-drive-alias ( -- ) ! 90: space 5b emit ! 91: s" cdrom" drop ( name-str ) ! 92: get-node node>name comp 0= ( true|false ) ! 93: IF \ is this a cdrom ? ! 94: cdrom-alias-num dup 1+ TO cdrom-alias-num ( num ) ! 95: s" cdrom" \ yes, alias = cdrom ! 96: ELSE ! 97: s" sbc-dev" drop \ is this a scsi-block-device? ! 98: get-node node>name comp 0= ( true|false ) ! 99: IF ! 100: disk-alias-num dup 1 + to disk-alias-num ! 101: s" disk" \ all block devices will be named "disk" ! 102: ! 103: \ this is a block-device. ! 104: \ check if parent is 'usb' and not 'hub' ! 105: \ if so this block-device is directly connected ! 106: \ to root-hub and must be the uDOC-device in Elba ! 107: s" usb" drop \ parent = usb controller ? (not hub) ! 108: get-node node>parent @ node>name ! 109: comp 0= \ parent node starts with 'usb' ? ! 110: IF ( true|false ) ! 111: 1 s" hdd" \ add extra alias hdd1 for IntFlash ! 112: 2dup type 2 pick . ! 113: 8 emit 2f emit ! 114: do-alias-setting ! 115: uDOC-present 1 and ! 116: IF ! 117: uDOC-present 2 or to uDOC-present \ present and ready ! 118: THEN ! 119: ELSE ! 120: ext-disk-alias not \ flag for first ext. disk already assigned ! 121: IF ! 122: TRUE to ext-disk-alias ! 123: 2 s" hdd" \ add extra alias hdd2 for first USB disk ! 124: 2dup type 2 pick . ! 125: 8 emit 2f emit ! 126: do-alias-setting ! 127: THEN ! 128: THEN ! 129: ELSE ! 130: 0 s" ??? " \ unknown device ! 131: THEN ! 132: THEN ( num name-str name-len ) ! 133: 2dup type 2 pick . ! 134: 8 emit 5d emit cr ! 135: do-alias-setting ! 136: ; ! 137: ! 138: : usb-create-alias-name ( num -- str len ) ! 139: >r s" ohciX" 2dup + 1- ( str len last-char-ptr R: num ) ! 140: r> [char] 0 + swap c! ( str len R: ) ! 141: ; ! 142: ! 143: ! 144: \ ***************************************************** ! 145: \ This is a final check to see, if a uDOC-device ! 146: \ is ready for booting ! 147: \ If physically present, but not working, an ! 148: \ Error-LED must be activated (on ELBA only!) ! 149: \ ***************************************************** ! 150: \ uDOC is now replaced by ModFD (Modular-Flash-Drive) ! 151: \ due to right properties ! 152: \ 'sys-signal-modfd-fault' sends an IPMI-Message to ! 153: \ aMM for generating a log entry and to switch on ! 154: \ an error LED (call to libsystem->libipmi) ! 155: \ ***************************************************** ! 156: \ although there are IPMI-warnings defined concerning ! 157: \ detected media errors, it doesn't make sense to send ! 158: \ a warning when booting from this device is impossible. ! 159: \ The decision was made to send an error call in this ! 160: \ case as well ! 161: \ ***************************************************** ! 162: \ uDOC-present bits: ! 163: \ ***************************************************** ! 164: \ D0: any device is connected on port 3 of root-hub ! 165: \ D1: device on port 3 is directly connected (no hub) ! 166: \ D2: warnings were received (scancodes) ! 167: \ D3: OverCurrentIndicator on USB-Port was set ! 168: \ D7: flag, set while ModFD is beeing processed ! 169: ! 170: : uDOC-check ( -- ) ! 171: #ifdef ELBA ! 172: uDOC-present 7 and \ flags concerning ModFD device ! 173: CASE ! 174: 0 OF \ not present not detected ! 175: uDOC-present 8 and 0<> \ not detected due to OverCurrent? ! 176: IF ! 177: 0d emit ." * OverCurrent on ModFD *" cr ! 178: sys-signal-modfd-fault ( -- ) \ send IPMI-call to BMC ! 179: ELSE ! 180: 0d emit ." ModFD not present" cr ! 181: THEN ! 182: ENDOF ! 183: ! 184: 1 OF \ present but not detected by USB ! 185: 0d emit ." * ModFD not accessible *" cr ! 186: sys-signal-modfd-fault ( -- ) \ send IPMI-call to BMC ! 187: ENDOF ! 188: ! 189: 3 OF \ present and detected ! 190: \ 0d emit ." ModFD OK" cr ! 191: ENDOF ! 192: ! 193: 7 OF \ present and detected but with warnings ! 194: 0d emit ." * ModFD Warnings *" cr ! 195: sys-signal-modfd-fault ( -- ) \ send IPMI-call to BMC ! 196: ENDOF ! 197: ! 198: dup OF \ we have a fault in our firmware ! ! 199: s" *** ModFD detection error ***" usb-debug-print ! 200: ENDOF ! 201: ENDCASE ! 202: #endif ! 203: ; ! 204: ! 205: \ ***************************************************** ! 206: \ check if actual processed device is ModFD and ! 207: \ then sets its warning bit ! 208: \ ***************************************************** ! 209: : uDOC-failure? ( -- ) ! 210: uDOC-present 80 and 0<> \ is ModFD actual beeing processed? ! 211: IF ! 212: uDOC-present 04 or to uDOC-present \ set Warning flag ! 213: THEN ! 214: ; ! 215: ! 216: \ Scan all USB host controllers for attached devices: ! 217: : usb-scan ! 218: \ Scan all OHCI chips: ! 219: space ." Scan USB... " cr ! 220: true to scan-time? \ show proceeding signs ! 221: 0 to uDOC-present \ mark as not present ! 222: 0 to disk-alias-num \ start with disk0 ! 223: s" pci-disk-num" $find \ previously detected disks ? ! 224: IF ! 225: execute to disk-alias-num \ overwrite start number ! 226: ELSE ! 227: 2drop ! 228: THEN ! 229: ! 230: 0 >r \ Counter for alias ! 231: BEGIN ! 232: r@ usb-create-alias-name ! 233: find-alias ?dup ( false | str len len R: num ) ! 234: WHILE ! 235: usb-debug-flag IF ! 236: ." * Scanning hub " 2dup type ." ..." cr ! 237: THEN ! 238: open-dev ?dup IF ( ihandle R: num ) ! 239: dup to my-self ! 240: dup ihandle>phandle dup set-node ! 241: child ?dup IF ! 242: delete-node s" Deleting node" usb-debug-print ! 243: THEN ! 244: >r s" enumerate" r@ $call-method \ Scan host controller ! 245: r> close-dev 0 set-node 0 to my-self ! 246: THEN ( R: num ) ! 247: r> 1+ >r ( R: num+1 ) ! 248: REPEAT r> drop ! 249: 0 TO ohci-alias-num ! 250: 0 TO cdrom-alias-num ! 251: s" cdrom0" find-alias ( false | dev-path len ) ! 252: dup IF ! 253: s" cdrom" 2swap ( alias-name len' dev-path len ) ! 254: set-alias ( -- ) ! 255: \ cdrom-alias-num 1 + TO cdrom-alias-num ! 256: ELSE ! 257: drop ( -- ) ! 258: THEN ! 259: uDOC-check \ check if uDOC-device is present and working (ELBA only) ! 260: false to scan-time? \ suppress proceeding signs ! 261: ; ! 262: ! 263: : usb-probe ! 264: ! 265: usb-scan ! 266: ! 267: cdrom-alias-num 0= IF ! 268: ." Not found CDROM! " cr ! 269: THEN ! 270: ." CDROM found " cdrom-alias-num . cr ! 271: ; ! 272: ! 273: ! 274: : usb-dev-test ( -- TRUE ) ! 275: s" USB Device Test " usb-debug-print ! 276: 1 usb-create-alias-name ! 277: find-alias ?dup IF ! 278: ." * open " 2dup type . cr ! 279: ELSE ! 280: s" can't found alias " usb-debug-print ! 281: THEN ! 282: open-dev ?dup IF ! 283: dup to my-self ! 284: dup ihandle>phandle dup set-node ! 285: s" bulk" $open-package ihandle-bulk-tran ! ! 286: \ make-media-ready ! 287: s" close all " usb-debug-print ! 288: close-dev 0 set-node 0 to my-self ! 289: ! 290: ihandle-bulk-tran close-package ! 291: ELSE ! 292: s" can't open usb hub" usb-debug-print ! 293: THEN ! 294: ! 295: TRUE ! 296: ; ! 297:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.