Return to sbus.fs CVS log

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

Annotation of qemu/roms/openbios/drivers/sbus.fs, revision 1.1

1.1     ! root        1: \ -------------------------------------------------------------------------
        !             2: \ SBus encode/decode unit
        !             3: \ -------------------------------------------------------------------------
        !             4: 
        !             5: : decode-unit-sbus ( 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-sbus ( 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.