qemu/roms/openbios/drivers/esp.fs

   1 \ -------------------------------------------------------------------------
   2 \ SCSI encode/decode unit
   3 \ -------------------------------------------------------------------------
   4
   5 : decode-unit-scsi ( str len -- id lun )
   6   ascii , left-split
   7   ( addr-R len-R addr-L len-L )
   8   parse-hex
   9   -rot parse-hex
  10   swap
  11 ;
  12
  13 : encode-unit-scsi ( id lun -- str len)
  14   swap
  15   pocket tohexstr
  16   " ," pocket tmpstrcat >r
  17   rot pocket tohexstr r> tmpstrcat drop
  18 ;