DIRECTORY ChipTest, ChipTestRemote, SystemVersion USING [machineType]; ChipTestServerProcs: CEDAR MONITOR IMPORTS ChipTest, SystemVersion EXPORTS ChipTestRemote = BEGIN localTester: ChipTest.Tester = IF SystemVersion.machineType = dolphin THEN ChipTest.OpenTester[] ELSE NIL; WriteRegs: PUBLIC ENTRY PROC [ s: ChipTestRemote.RegStores ] = {FOR i: NAT IN [0..s.length) DO localTester.writeR[t: localTester, reg: s.s[i].reg, value: s.s[i].value] ENDLOOP}; ReadIBuf: PUBLIC ENTRY PROC RETURNS [ChipTest.ChannelVec] = {RETURN[localTester.readI[t: localTester]]}; ExecuteBuffer: PUBLIC ENTRY PROC [ stepCount: NAT, steps, testData: REF ChipTestRemote.WordSeq ] RETURNS [ result: ChipTest.ChannelVec, stepsLeft: NAT ] = BEGIN RETURN[result: ALL[FALSE], stepsLeft: stepCount]; END; END. |ChipTestServerProcs.mesa - Petit Dolphin chip tester RPC server last edited by McCreight, January 20, 1984 6:12 pm ÊJ˜Jšœ@™@J˜Jšœ2™2J™šÏk ˜ Jšœ ˜ Jšœ˜Jšœœ˜"—J˜šœœœœ˜BJšœ˜Jš˜J˜Jš œœ%œœœ˜jJ˜šÏn œœœœ"˜>Jš œœœœœJœ˜r—J˜š žœœœœœ˜;Jšœœ%˜,—J˜šž œœœœœœœ+œ˜šJš˜Jšœ œœ˜1Jšœ˜—J˜Jšœ˜—J˜J˜—…—Þ