machine: implemented set_led function

Note, this only works on the test machine, not from within the qemu VM!