SoftHdwSimTest.cm
Copyright Ó 1989 by Xerox Corporation. All rights reserved.
Barth, March 8, 1989 11:57:21 am PST
Install ArpaName
Install SunAuthUnix
Run SoftHdwSimImpl
← &sizes ← NEW[SoftHdwSim.ArrayPositionRec]
← &sizes.chip ← [8, 8];
← &sizes.minorArray ← [16, 16];
← &sizes.grain ← [4, 4];
← &array ← SoftHdwSim.CreateBase[&sizes]
← &position ← NEW[SoftHdwSim.ArrayPositionRec]
← &position.type ← InputEnabled;
← &position.orientation ← Horizontal;
← &position.chip ← [1, 1];
← &position.minorArray ← [15, 15];
← &position.grain ← [3, 3];
← SoftHdwSim.Store[&array, &position, TRUE]
← SoftHdwSim.Fetch[&array, &position]
← SoftHdwSim.MasterToSlave[&array]
← SoftHdwSim.Relax[&array]