blob: ebf0769ea0db1bd07edf51509b11194e872cdd84 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
\ -------------------------------------------------------------------------
\ SCSI encode/decode unit
\ -------------------------------------------------------------------------
: decode-unit-scsi ( str len -- id lun )
2 parse-nhex
;
: encode-unit-scsi ( id lun -- str len)
swap
pocket tohexstr
" ," pocket tmpstrcat >r
rot pocket tohexstr r> tmpstrcat drop
;
|
