1 files changed, 87 insertions, 0 deletions
diff --git a/slof/fs/packages/bulk.fs b/slof/fs/packages/bulk.fs
new file mode 100644
index 0000000..06d7eae
--- /dev/null
+++ b/slof/fs/packages/bulk.fs
@@ -0,0 +1,87 @@
+\ *****************************************************************************
+\ * Copyright (c) 2004, 2008 IBM Corporation
+\ * All rights reserved.
+\ * This program and the accompanying materials
+\ * are made available under the terms of the BSD License
+\ * which accompanies this distribution, and is available at
+\ * http://www.opensource.org/licenses/bsd-license.php
+\ *
+\ * Contributors:
+\ *     IBM Corporation - initial implementation
+\ ****************************************************************************/
+
+
+s" bulk" device-name
+
+
+\ standard open firmare method
+
+
+: open  true  ;
+
+\ standard open firmare method
+
+
+: close ;
+
+
+\ -------------------------------------------------
+\	Locals
+\ ------------------------------------------------
+
+
+8 chars alloc-mem VALUE setup-packet
+
+
+\ --------------------------------------------------
+\ signature --->4bytes offset --->0
+\ tag       --->4bytes offset --->4
+\ trans-len --->4bytes offset --->8
+\ dir-flag  --->1byte  offset --->c
+\ lun       --->1byte  offset --->d
+\ comm-len  --->1byte  offset --->e
+\ --------------------------------------------------
+
+
+0 VALUE cbw-addr
+: build-cbw ( address tag transfer-len direction lun command-len -- )
+   5 pick TO cbw-addr  ( address tag transfer-len direction lun command-len )
+   cbw-addr 0f erase   ( address tag transfer-len direction lun command-len )
+   cbw-addr e + c!     ( address tag transfer-len direction lun )
+   cbw-addr d + c!     ( address tag transfer-len direction )
+   cbw-addr c + c!     ( address tag transfer-len )
+   cbw-addr 8 + l!-le  ( address tag )
+   cbw-addr 4 + l!-le  ( address )
+   43425355 cbw-addr l!-le ( address )
+   drop  ;
+
+
+\ ---------------------------------------------------
+\ signature --->4bytes offset --->0
+\ tag       --->4bytes offset --->4
+\ residue   --->4bytes offset --->8
+\ status    --->1byte  offset --->c
+\ ---------------------------------------------------
+
+
+0 VALUE csw-addr
+: analyze-csw ( address -- residue tag true|reason false )
+   TO csw-addr
+   csw-addr l@-le 53425355 =  IF
+      csw-addr c + c@ dup 0=  IF ( reason )
+         drop
+         csw-addr 8 + l@-le ( residue )
+         csw-addr 4 + l@-le ( residue tag ) \ command  block tag
+         TRUE               ( residue tag TRUE )
+      ELSE
+         FALSE              ( reason FALSE )
+      THEN
+   ELSE
+      FALSE                 ( FALSE )
+   THEN
+   csw-addr 0c erase
+;
+
+: bulk-reset-recovery-procedure ( bulk-out-endp bulk-in-endp usb-addr -- )
+  s" bulk-reset-recovery-procedure" $call-parent
+;