<> <> <> <<>> <> <<>> DIRECTORY Atom, BitOps; PCProg: 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[ LIST[$ClearFlag, $DBusReady], $Init, $Reset, LIST[$SendDBusAddress, B[AdDBus[bd:1,hyb:2,Int:0,ci:1,pth:0]]], -- ID path of Display LIST[$ReadDBusAndCheck,C[IdCte[t:8,v:1]],B[16]], LIST[$SendDBusAddress, B[AdDBus[bd:1,hyb:2,Int:1,ci:1,pth:0]]], -- ID path of Map-Cache LIST[$ReadDBusAndCheck,C[IdCte[t:9,v:1]],B[16]], LIST[$SendDBusAddress, B[AdDBus[bd:1,hyb:2,Int:2,ci:1,pth:0]]], -- ID path of Cache LIST[$ReadDBusAndCheck,C[IdCte[t:5,v:1]],B[16]], LIST[$SendDBusAddress, B[AdDBus[bd:1,hyb:2,Int:3,ci:1,pth:0]]], -- ID path of IOB LIST[$SetFlag, $DBusReady], LIST[$ReadDBusAndCheck,C[IdCte[t:7,v:1]],B[16]], << LIST[$SendDBusAddress, B[AdDBus[bd:1,hyb:2,Int:0,ci:0,pth:0]]], -- ID path of BIC0>> << LIST[$ReadDBusAndCheck,C[IdCte[t:2,v:0]],B[16]], >> << LIST[$SendDBusAddress, B[AdDBus[bd:1,hyb:2,Int:1,ci:0,pth:0]]], -- ID path of BIC1>> << LIST[$ReadDBusAndCheck,C[IdCte[t:2,v:1]],B[16]], >> << LIST[$SendDBusAddress, B[AdDBus[bd:1,hyb:2,Int:2,ci:0,pth:0]]], -- ID path of BIC2>> << LIST[$ReadDBusAndCheck,C[IdCte[t:2,v:2]],B[16]], >> << LIST[$SendDBusAddress, B[AdDBus[bd:1,hyb:2,Int:3,ci:0,pth:0]]], -- ID path of BIC3>> << LIST[$ReadDBusAndCheck,C[IdCte[t:2,v:3]],B[16]], >> $Nop, LIST[$Jump, $Nop] ]]; END.