1 \ -------------------------------------------------------------------------
2 \ SCSI encode/decode unit
3 \ -------------------------------------------------------------------------
5 : decode-unit-scsi ( str len -- id lun )
7 ( addr-R len-R addr-L len-L )
13 : encode-unit-scsi ( id lun -- str len)
16 " ," pocket tmpstrcat >r
17 rot pocket tohexstr r> tmpstrcat drop