diff options
| author | Timothy Pearson <tpearson@raptorengineering.com> | 2019-05-11 15:12:49 -0500 |
|---|---|---|
| committer | Timothy Pearson <tpearson@raptorengineering.com> | 2019-05-11 15:12:49 -0500 |
| commit | 9e80202352dd49bdd9e67b8b906d86f058431505 (patch) | |
| tree | 5673c17aad6e3833da8c4ff21b5a11f666ec9fbe /src/roms/openbios/drivers/esp.fs | |
| download | hqemu-master.zip hqemu-master.tar.gz | |
Diffstat (limited to 'src/roms/openbios/drivers/esp.fs')
| -rw-r--r-- | src/roms/openbios/drivers/esp.fs | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/src/roms/openbios/drivers/esp.fs b/src/roms/openbios/drivers/esp.fs new file mode 100644 index 0000000..9e37c0a --- /dev/null +++ b/src/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 +; |
