DIRECTORY Dragon, DragonFP, DragonMicroPLA; DragonMicroPLAImplB: CEDAR PROGRAM IMPORTS DragonMicroPLA EXPORTS DragonMicroPLA = BEGIN OPEN DragonMicroPLA; FPAddPLARow: PUBLIC PROC[ fpOpType: DragonFP.FPOpType, sigPhBArgs: SigPhBArgs, phBArgs: PhBArgs, m: MicroInst] = { AddRow: PROC = { sigPhBArgs.alpha _ mask; phBArgs.alpha _ alpha; AddPLARow[sigPhBArgs, phBArgs, m]}; T: BOOL = TRUE; o: BOOL = FALSE; alpha: Dragon.HexByte _ 0; mask: SigInstByte _ SigInstByteFalse; SELECT fpOpType FROM sglBiAlu => {alpha _ 100B; mask _ [T,T, T,o,T, o,o,T]; AddRow[]}; sglUnAlu => {alpha _ 110B; mask _ [T,T, T,o,T, o,o,T]; AddRow[]; alpha _ 160B; mask _ [T,T, T,T,T, o,o,T]; AddRow[]; alpha _ 170B; mask _ [T,T, T,T,T, T,o,T]; AddRow[]}; dblUnAlu => {alpha _ 111B; mask _ [T,T, T,o,T, o,o,T]; AddRow[]; alpha _ 161B; mask _ [T,T, T,T,T, o,o,T]; AddRow[]}; dblBiAlu => {alpha _ 101B; mask _ [T,T, T,o,T, o,o,T]; AddRow[]}; sglBiCom => {alpha _ 140B; mask _ [T,T, T,T,T, o,o,T]; AddRow[]}; dblBiCom => {alpha _ 141B; mask _ [T,T, T,T,T, o,o,T]; AddRow[]}; sglUnCom => {alpha _ 150B; mask _ [T,T, T,T,T, o,o,T]; AddRow[]}; dblUnCom => {alpha _ 151B; mask _ [T,T, T,T,T, o,o,T]; AddRow[]}; sglUnCvt => {alpha _ 173B; mask _ [T,T, T,T,T, o,T,T]; AddRow[]; alpha _ 174B; mask _ [T,T, T,T,T, T,o,T]; AddRow[]}; dblUnCvt => {alpha _ 171B; mask _ [T,T, T,T,T, o,T,T]; AddRow[]}; sglBiMult => {alpha _ 200B; mask _ [T,T, o,o,o, o,o,T]; AddRow[]}; dblBiMult => {alpha _ 201B; mask _ [T,T, o,o,o, o,o,T]; AddRow[]}; setMode => {alpha _ 300B; mask _ [T,T, o,o,o, o,o,o]; AddRow[]}; ENDCASE => ERROR }; END. ÊDragonMicroPLAImplB.mesa Copyright c 1984 by Xerox Corporation. All rights reserved. Last edited by TWilliams, August 9, 1984 6:50:03 pm PDT Last edited by Curry, August 14, 1984 9:59:51 am PDT Ê/˜šÐbl™Jšœ Ïmœ1™