%
% set the device flags gleaned from the Device Type value
%
0
\_DevType
^"-" &"-"
"-PART-"   found? { exch _Setup.Partner or exch } if
"-SD-"     found? { exch _Setup.SD or exch } if
"-SPI-"    found? { exch _Setup.SPI or exch } if
"-MEM-"    found? { exch _Setup.Memory or exch } if
"-CNV7-"   found? { exch _Setup.Conv7 or exch } if
"-SERV-"   found? { exch _Setup.PicServ or exch } if
"-SPLUS-"  found? { exch _Setup.SerPlus or exch } if
"-IOT-"    found? { exch _Setup.PicIot or exch } if
"-SCTL-"   found? { exch _Setup.SerCtrl or exch } if
"-UCTL-"   found? { exch _Setup.UsbCtrl or exch } if
"-MODE7-"  found? { exch _Setup.Bit7Mode or exch } if
"-XFLOW-"  found? { exch _Setup.XonXoff or exch } if
"-LISTEN-" found? { exch _Setup.Listen or exch } if
pop
!DevFlags