Return to esp.fs CVS log

Up to [Qemu by Fabrice Bellard] / qemu / roms / openbios / drivers

Annotation of qemu/roms/openbios/drivers/esp.fs, revision 1.1.1.1

1.1       root        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: ;

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.