qemu/roms/SLOF/slof/fs/usb/dev-mouse.fs

   1 new-device
   2
   3 VALUE sudev
   4 s" slofdev.fs" included
   5 sudev slof-dev>port l@ dup set-unit encode-phys " reg" property
   6 sudev slof-dev>udev @ VALUE udev
   7
   8 s" usb-mouse" device-name
   9
  10 \ .S cr
  11 \     dup slof-dev>udev dup . @ . cr
  12 \     dup slof-dev>port dup . l@ . cr
  13 \     dup slof-dev>devaddr dup . l@ . cr
  14 \     dup slof-dev>hcitype dup . l@ . cr
  15 \     dup slof-dev>num dup . l@ . cr
  16 \     dup slof-dev>devtype dup . l@ . cr
  17
  18 ."     USB mouse " cr
  19
  20 finish-device