mirror of
https://gitlab.com/qemu-project/openbios.git
synced 2024-02-13 08:34:06 +08:00
8e89ccf89e
git-svn-id: svn://coreboot.org/openbios/openbios-devel@4 f158a5a8-5612-0410-a976-696ce0be7e32
20 lines
447 B
Forth
20 lines
447 B
Forth
\ -------------------------------------------------------------------------
|
|
\ SBus encode/decode unit
|
|
\ -------------------------------------------------------------------------
|
|
|
|
: decode-unit-sbus ( str len -- id lun )
|
|
ascii , left-split
|
|
( addr-R len-R addr-L len-L )
|
|
parse-hex
|
|
-rot parse-hex
|
|
swap
|
|
;
|
|
|
|
: encode-unit-sbus ( id lun -- str len)
|
|
swap
|
|
pocket tohexstr
|
|
" ," pocket tmpstrcat >r
|
|
rot pocket tohexstr r> tmpstrcat drop
|
|
;
|
|
|