--File: JaMArrayDefs.mesa
--Written by: John Warnock,March 2, 1979
--Last changed by Doug Wyatt, March 29, 1980  1:19 PM

DIRECTORY
	JaMMasterDefs: FROM "JaMMasterDefs" USING [Object, Stack];

JaMArrayDefs: DEFINITIONS =
BEGIN OPEN JaMMasterDefs;

JaMArray:PROGRAM;

Array: PUBLIC PROCEDURE;
ArrayPut: PUBLIC PROCEDURE;
ArrayGet: PUBLIC PROCEDURE;
ArrayPart: PUBLIC PROCEDURE;
ArrayAtom: PUBLIC PROCEDURE[aob:ArrayType Object,stk:Stack] RETURNS[BOOLEAN];
ArrayStore: PUBLIC PROCEDURE;
-- expects opstk: (ob0, ob1, ... , obn-1, array)  array of length n
-- returns opstk: (array)
ArrayLoad: PUBLIC PROCEDURE;
-- expects opstk: (array)  array of length n
-- returns opstk: (array[0], array[1], ... , array[n-1], array)

END.(1792)\248b8B11b5B20b8B20b8B20b9B20b9B69b10B114b9B