mirror of
https://gitlab.com/qemu-project/openbios.git
synced 2024-02-13 08:34:06 +08:00
more of the sparc32 port by Blue Swirl <blueswir1@hotmail.com>
git-svn-id: svn://coreboot.org/openbios/openbios-devel@4 f158a5a8-5612-0410-a976-696ce0be7e32
This commit is contained in:
18
drivers/esp.fs
Normal file
18
drivers/esp.fs
Normal file
@@ -0,0 +1,18 @@
|
||||
\ -------------------------------------------------------------------------
|
||||
\ SCSI encode/decode unit
|
||||
\ -------------------------------------------------------------------------
|
||||
|
||||
: decode-unit-scsi ( str len -- id lun )
|
||||
ascii , left-split
|
||||
( addr-R len-R addr-L len-L )
|
||||
parse-hex
|
||||
-rot parse-hex
|
||||
swap
|
||||
;
|
||||
|
||||
: encode-unit-scsi ( id lun -- str len)
|
||||
swap
|
||||
pocket tohexstr
|
||||
" ," pocket tmpstrcat >r
|
||||
rot pocket tohexstr r> tmpstrcat drop
|
||||
;
|
||||
Reference in New Issue
Block a user