Return to bulk.fs CVS log

Up to [Qemu by Fabrice Bellard] / qemu / roms / SLOF / slof / fs / packages

Annotation of qemu/roms/SLOF/slof/fs/packages/bulk.fs, revision 1.1

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: 
        !            14: s" bulk" device-name
        !            15: 
        !            16: 
        !            17: \ standard open firmare method
        !            18: 
        !            19: 
        !            20: : open  true  ;
        !            21: 
        !            22: \ standard open firmare method
        !            23: 
        !            24: 
        !            25: : close ;
        !            26: 
        !            27: 
        !            28: \ -------------------------------------------------
        !            29: \      Locals
        !            30: \ ------------------------------------------------
        !            31: 
        !            32: 
        !            33: 8 chars alloc-mem VALUE setup-packet
        !            34: 
        !            35: 
        !            36: \ --------------------------------------------------
        !            37: \ signature --->4bytes offset --->0
        !            38: \ tag       --->4bytes offset --->4
        !            39: \ trans-len --->4bytes offset --->8
        !            40: \ dir-flag  --->1byte  offset --->c
        !            41: \ lun       --->1byte  offset --->d
        !            42: \ comm-len  --->1byte  offset --->e
        !            43: \ --------------------------------------------------
        !            44: 
        !            45: 
        !            46: 0 VALUE cbw-addr
        !            47: : build-cbw ( address tag transfer-len direction lun command-len -- )
        !            48:    5 pick TO cbw-addr  ( address tag transfer-len direction lun command-len )
        !            49:    cbw-addr 0f erase   ( address tag transfer-len direction lun command-len )
        !            50:    cbw-addr e + c!     ( address tag transfer-len direction lun )
        !            51:    cbw-addr d + c!     ( address tag transfer-len direction )
        !            52:    cbw-addr c + c!     ( address tag transfer-len )
        !            53:    cbw-addr 8 + l!-le  ( address tag )
        !            54:    cbw-addr 4 + l!-le  ( address )
        !            55:    43425355 cbw-addr l!-le ( address )
        !            56:    drop  ;
        !            57: 
        !            58: 
        !            59: \ ---------------------------------------------------
        !            60: \ signature --->4bytes offset --->0
        !            61: \ tag       --->4bytes offset --->4
        !            62: \ residue   --->4bytes offset --->8
        !            63: \ status    --->1byte  offset --->c
        !            64: \ ---------------------------------------------------
        !            65: 
        !            66: 
        !            67: 0 VALUE csw-addr
        !            68: : analyze-csw ( address -- residue tag true|reason false )
        !            69:    TO csw-addr
        !            70:    csw-addr l@-le 53425355 =  IF
        !            71:       csw-addr c + c@ dup 0=  IF ( reason )
        !            72:          drop
        !            73:          csw-addr 8 + l@-le ( residue )
        !            74:          csw-addr 4 + l@-le ( residue tag ) \ command  block tag
        !            75:          TRUE               ( residue tag TRUE )
        !            76:       ELSE
        !            77:          FALSE              ( reason FALSE )
        !            78:       THEN
        !            79:    ELSE
        !            80:       FALSE                 ( FALSE )
        !            81:    THEN
        !            82:    csw-addr 0c erase
        !            83: ;
        !            84: 
        !            85: : bulk-reset-recovery-procedure ( bulk-out-endp bulk-in-endp usb-addr -- )
        !            86:   s" bulk-reset-recovery-procedure" $call-parent
        !            87: ;

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.