summaryrefslogtreecommitdiffstats
path: root/qemu/roms/openbios/drivers/esp.fs
diff options
context:
space:
mode:
Diffstat (limited to 'qemu/roms/openbios/drivers/esp.fs')
-rw-r--r--qemu/roms/openbios/drivers/esp.fs18
1 files changed, 18 insertions, 0 deletions
diff --git a/qemu/roms/openbios/drivers/esp.fs b/qemu/roms/openbios/drivers/esp.fs
new file mode 100644
index 000000000..9e37c0a0e
--- /dev/null
+++ b/qemu/roms/openbios/drivers/esp.fs
@@ -0,0 +1,18 @@
+\ -------------------------------------------------------------------------
+\ SCSI encode/decode unit
+\ -------------------------------------------------------------------------
+
+: decode-unit-scsi ( str len -- id lun )
+ ascii , left-split
+ ( addr-R len-R addr-L len-L )
+ parse-hex
+ -rot parse-hex
+ swap
+;
+
+: encode-unit-scsi ( id lun -- str len)
+ swap
+ pocket tohexstr
+ " ," pocket tmpstrcat >r
+ rot pocket tohexstr r> tmpstrcat drop
+;