drivers/esp.fs


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
;