%
% this is sub-tree, root specifies a machine
% see if current node specifies an existing device
%
\_Device !Device
_Device any)? !Msys.HasDevice
_Msys.HasDevice
{
%
% add to the master lookup for devices
%
 \_DevType !DevType
%
% record the device flags based on device type string
 *machdvfg
 "Devices" text_conn _Device <?>
 {
%
% this device has not been registered
% create folders for device if needed
%
% stack: build
%
  "Devices" text_conn <_> dup - 2 div normint
"portord" log)(
  !counter popoff
  _counter 8890 add dup &" !DevPort" &;
%
% stack: build port addtl-line
%
  exch ^"|" &" " _Device quoter & &" !DevId" &;
  &
%
% stack: build addtl-lines
%
  &
  "Devices" text!conn

  _DevPort ofconn folder
  dup &"Command" mkdir
  &"Msg" mkdir
  
  _Device ofconn folder
  dup &"Command" mkdir
  dup &"Program" mkdir
  &_Subscription mkdir
 }
 {
%
% device was already registered
%
 } ifelse
 *machdevp
}
{
%
% don't have device
%
} ifelse