run XBusImpl run NatInstrGPIBDriver _ NatInstrGPIBDriver.InitializeController[]; _ NatInstrGPIBDriver.InterfaceClear[]; _ NatInstrGPIBDriver.RemoteEnable[]; _ NatInstrGPIBDriver.Command["\021\054\024@"]; -- LLO, devLAD, DCL, (gpibTAD: '@') -- WRITE sequence _ NatInstrGPIBDriver.Command["?\054"]; -- UNL, devLAD -- Setup _ NatInstrGPIBDriver.DataWrite["HIL 1.00V, LOL -2.54 L1, C0, D0, PER 10US,"]; -- Set error condition WID > PER _ NatInstrGPIBDriver.DataWrite["DEL 80NS, WID 25 US, M1, W1"]; _ NatInstrGPIBDriver.Command["?"]; -- UNL -- READ sequence _ NatInstrGPIBDriver.Command["?\030L\040"]; -- UNL, SPE, devTAD, gpibLAD -- Get status _ NatInstrGPIBDriver.DataByteRead[]; _ NatInstrGPIBDriver.Command["\031"]; -- SPD _ NatInstrGPIBDriver.Command["?\054@"]; -- UNL, devLAD, gpibTAD _ NatInstrGPIBDriver.DataWrite["IERR"]; _ NatInstrGPIBDriver.Command["?L\040"]; -- UNL, devTAD, gpibLAD _ NatInstrGPIBDriver.DataRead[];-- Get error msg _ NatInstrGPIBDriver.Command["\137"]; -- UNT _ NatInstrGPIBDriver.FinalizeController[]; ΘHP8112ATestScript.cm Copyright c 1985 by Xerox Corporation. All rights reserved. Last Edited by: Gunther, September 17, 1985 11:02:06 am PDT Low level test routine for HP8112A Pulse Generator ΚΞ˜šœ™Icodešœ Οmœ1™<—J™;J™Jšœ2™2Jš9œ:Οnœžœž œžœΟi œ?Ÿ œŸœž œ3Ÿœž œ9žœ Ÿœ'žœŸœŸ œž œžœ ŸœžœŸœž œžœŸœžœŸ œžœ Ÿœžœ˜J˜J˜J˜J˜J˜J˜J˜—…—°