DIRECTORY  BoolOps, CD, PW;PWPLA: CEDAR DEFINITIONS = BEGINROPE: TYPE = PW.ROPE;ProgTile: TYPE = REF ProgTileRec;ProgTileRec: TYPE = ARRAY BOOL --and plane-- OF ARRAY BOOL --upper row-- OF ARRAY BOOL -- left col-- OF ARRAY BoolOps.TruthBit --bit-- OF CD.Object;AllTiles: TYPE = REF AllTilesRec;AllTilesRec: TYPE = RECORD[rowTab: ProgTile,	-- set of core tiles arranged in an arrayAul, AUleft, ADleft, All, ALtop, ARtop, ALbot, ARbot, AHleft, ALH, ARH, AHV, AVtop, AUV, ADV, AVbot, Btop, BU, BD, BH, Bbot, OLtop, ORtop, Our, OUright, ODright, Olr, ORbot, OLbot, OVtop, OUV, ODV, OHV, OVbot, OLH, ORH, OHright,AUL1, AUL0, AULx, AUR1, AUR0, AURx, ADL1, ADL0, ADLx, ADR1, ADR0, ADRx, OUL1, OUL0, OUR1, OUR0, ODL1, ODL0, ODR1, ODR0: CD.Object _ NIL];PLADescription: TYPE = REF PLADescriptionRec;PLADescriptionRec: TYPE = RECORD [truthTableFile: ROPE _ NIL,truthTable: BoolOps.TruthTable _ NIL,tileSet: ROPE _ NIL,optimize: BOOL _ FALSE,haveHorizontalExtras, haveVerticalAndExtras, haveVerticalOrExtras: BOOL _ FALSE,extraRows, extraAndColumns, extraOrColumns: INT _ INT.LAST-100,  -- SPACING (in number of minterms) between extra ground rows and columns; large => no extraprintRows: INT _ 5,	-- If PLA has more than this many rows, list them on the screen.dumpFile: ROPE _ NIL,  -- if non-NIL then truth table (after optimization) -> dumpFile.inputNames, outputNames: LIST OF ROPE _ NIL   -- every input and output MUST be named];CreatePLAFromFile: PUBLIC PROC [fileName: ROPE] RETURNS [pla: CD.Object];CreatePLA: PROC [desc: PLADescription, allTiles: AllTiles] RETURNS [pla: CD.Object];END.    ج  PWPLA.mesa Copyright c 1984, 1985, 1986 by Xerox Corporation.  All rights reserved.Last Edited by: Monier, February 28, 1985 12:13:16 pm PSTBertrand Serlet June 17, 1986 5:56:43 pm PDTMake a PLA module. Borrowed more than heavily from Bob Mayo's code.-- tiles outside of the core of the PLA, and extra tiles in the core-- major tiles in the core of the PLA-- The good old PLA-- create a PLA from a file description-- create a PLA from a record‌تˆ  ک ڑœ™JڑœH™HJ™9Icode™,J™ —J™CJک ڑدk	œ‌œ‌œکJک —ڑذbkœ‌œ‌œ‌ک Jک Jڑ‌œ‌œ‌œ‌œکJک Jڑœ
‌œ‌œک!ڑœ‌œ‌œ‌œدcœ‌œک0ڑ‌œ‌œںœ‌œکڑ‌œ‌œںœ‌œکJڑ‌œںœ‌œ‌œک,———Jک Jڑœ
‌œ‌œک!ڑœ‌œ‌œکJڑœں)ک;J™DJڑœ>‌œ‌œ‌œ	‌œ‌œ‌œ‌œ‌œG‌œ‌œ‌œ	‌œ‌œ
کنJڑœ%™%Jڑœrدnœ‌œ
‌œک‰Jک —Jک J™Jڑœ‌œ‌œک-ڑœ‌œ‌œک"Jڑœ‌œ‌œکJڑœ!‌œک%Jڑœ	‌œ‌œکJڑœ
‌œ‌œکJڑœC‌œ‌œکPJڑœ,‌œ‌œ‌œں[کœJڑœ‌œں@کTJڑœ
‌œ‌œں@کWJڑ
œ‌œ‌œ‌œ‌œں'کUJک—Jک J™'Jڑ œ‌œ‌œ‌œ‌œ‌œ	کIJک J™Jڑ 	œ‌œ,‌œ‌œ	کTJک Jڑ‌œک—Jک Jک Jک— …—    ^  
²  