new-device

VALUE sudev
s" slofdev.fs" included
sudev slof-dev>port l@ dup set-unit encode-phys " reg" property
sudev slof-dev>udev @ VALUE udev

s" usb-mouse" device-name
s" mouse" device-type

\ .S cr
\     dup slof-dev>udev dup . @ . cr
\     dup slof-dev>port dup . l@ . cr
\     dup slof-dev>devaddr dup . l@ . cr
\     dup slof-dev>hcitype dup . l@ . cr
\     dup slof-dev>num dup . l@ . cr
\     dup slof-dev>devtype dup . l@ . cr

."     USB mouse " cr

finish-device
