<> <> <> <> <<>> <> <<>> <> <> <> <> <> <> <<>> <> <<>> DIRECTORY Atom, BitOps; PCDDCProg: CEDAR PROGRAM IMPORTS Atom, BitOps EXPORTS ~ BEGIN <> QWord: TYPE = ARRAY [0 .. 2) OF CARD; <<>> <> <<>> Q: PROC [c: QWord] RETURNS [rc: REF ANY] = {rc _ NEW[QWord _ c]}; C: PROC [c: CARD] RETURNS [rc: REF ANY] = {rc _ NEW[CARD _ LOOPHOLE[c]]}; B: PROC [c: CARDINAL] RETURNS [rc: REF ANY] = {rc _ NEW[CARDINAL _ c]}; AdDBus: PROC [bd,hyb,Int,ci,pth: CARDINAL _0] RETURNS [ad: CARDINAL _0] ~ { <

> <<>> << =0 is for BIC>> ad _ BitOps.WShift[bd,12]+BitOps.WShift[hyb,8]; ad _ ad+BitOps.WShift[Int,5]+BitOps.WShift[ci,3]+pth; }; IdCte: PROC [t,v:CARDINAL] RETURNS [id:CARDINAL] ~ { <> <> id _ 5000H + BitOps.WShift[t,6] + v; }; <> <<>> Atom.PutProp[$PCEmul, $PKList, LIST[ $Init, -- initialize D Bus signals $ResetOn, <> <<>> <> <<>> <> <<>> << LIST[$SendDBusAddress, B[AdDBus[bd:1, hyb:4, Int:0, ci:1,pth:0]]], -- chipID>> << LIST[$ReadDBusAndCheck, C[IdCte[t:6, v:0]], B[16]],>> <<>> LIST[$SendDBusAddress, B[AdDBus[bd:1,hyb:4,Int:0,ci:1,pth:1]]], -- devID LIST[$SendDBusData, C[1], B[10]], -- devID = 1 LIST[$SendDBusAddress, B[AdDBus[bd:1,hyb:4,Int:0,ci:1,pth:0]]], -- chipID <<>> <> LIST[$SendDBusAddress, B[AdDBus[bd:0, hyb:2, Int:0, ci:1, pth:0]]], -- chipID LIST[$ReadDBusAndCheck, C[IdCte[t:8, v:0]], B[16]], LIST[$SendDBusAddress, B[AdDBus[bd:0, hyb:2, Int:0, ci:1, pth:1]]], -- devID LIST[$SendDBusData, C[2], B[10]], -- devID = 2 LIST[$SendDBusAddress, B[AdDBus[bd:0, hyb:2, Int:0, ci:1, pth:2]]], -- params LIST[$SendDBusData, C[ 5], B[ 5]], -- intAction.reason LIST[$SendDBusData, C[ 0], B[ 1]], -- intAction.broadcast LIST[$SendDBusData, C[ 0], B[10]], -- intAction.intDevID LIST[$SendDBusData, C[7FH], B[ 7]], -- criticalMask LIST[$SendDBusData, C[ 3], B[ 3]], -- maxOARHP LIST[$SendDBusData, C[ 3], B[ 3]], -- maxOARLP LIST[$SendDBusData, C[ 15], B[ 5]], -- maxORBR LIST[$SendDBusAddress, B[AdDBus[bd:0, hyb:2, Int:0, ci:1, pth:4]]], -- unused << -- avoid harmful effects of DShiftCK glitch; 5-1-88.>> $ResetOff, -- after this, the D Bus is no longer used. $Nop, LIST[$Jump,$Nop], ]]; END. <> <<1. For specification of DBus physical address of DDC for this simulation, see:>> <<[Dragon]SS>GenFullBDDBus0Impl.mesa.>> <<>> <<2. For specification of the DevID's of the chips used for this simulation, see:>> <<***** (Jean says memCtl=0, dynExerciser=1, DDC=2, ....)>> <<4-22-88: (Jean now says dynExerciser=0, memCtl=1, DDC=2, ....)>> <<>> <<3. For more information on what the atoms in the program list do, see:>> <<[Dragon]SS>PCEmulImpl.mesa.>> <<>> <<4. The parameters are the way they are because:>> << intAction.reason: arbitrary choice; coordinate with [5].>> << intAction.broadcast: arbitrary choice; coordinate with [5].>> << intAction.DevID: see [2].>> << criticalMask: to get to low priority ASAP.>> << maxOARHP: infinity (not testing this limit).>> << maxOARLP: infinity (not testing this limit).>> << maxORBR: infinity(not testing this limit).>> <<>> <<5. For specification of the DynaBus transactions used to test DDC in this simulation, see:>> <<[Dragon]SSDDC>DynDDCProg.mesa.>> <<>> <<6. This file is stored as a part of:>> <<[Dragon]Top>SSDDC.df>> <<>> <<--------------------->> <> <<>> <<4-24-88: Changed MemCtl devID to 1, dynExerciser devID to 0, per Jean.>> <<4-24-88: Uncommented the last line of MemCtl initialization, which sets the DBus path to 0, hoping to avoid lots of X's in the Rosemary mumble viewer.>> <<5-1-88: bug fix: intDeviceID=0 (DynEx), not 2 (DDC).>> <<-------------------->> <<>>