HP8112ATestScript.cm

Last Edited by: Gunther, September 17, 1985 11:02:06 am PDT

Low level test routine for HP8112A Pulse Generator

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[];