Atom.PutProp[$Simul2Sender, $PKList, LIST[
$Init,
$StartStop,
$ReceiveAll,
LIST[$Wait, C[200]], -- for waiting DBus intit
Initialize memory controller
LIST[$IOWrite0, C[1], L[TRUE], L[TRUE], C[0],C[28],C[28],C[28],C[22],C[22]],
$WaitMsgSent,
$WaitMsgReceived, -- for the Echo
$WaitReply,
LIST[$IOWrite1, C[1],C[10],C[0],C[0]],
$WaitMsgSent,
$WaitMsgReceived, -- for the Echo
$WaitReply,
LIST[$IOWrite2, C[1],C[10],C[0]],
$WaitMsgSent,
$WaitMsgReceived, -- for the Echo
$WaitReply,
LIST[$WriteBlockRqst, Q[[0,0,0011H,2288H]],Q[[0,0,0123H,4567H]],Q[[1,1,1,1]],Q[[2,2,2,2]],Q[[3,3,3,3]]],
$WaitMsgSent,
First lets pretend to be a Map Cache for one time
$WaitMapRqst, -- first testing in Kernel mode
LIST[$MapReply, C[0FH]], -- UserR enabled, UserW enabled, KernelW enabled, Dirty,
LIST[$Wait, C[110]], -- for waiting PBus Write
Now lets pretend to be a Cache reading a word,
LIST[$ReadBlockRqst, Q[[0,0,0011H,2288H]]],
$WaitMsgSent,
$WaitMsgReceived, -- for the Echo
LIST[$WaitReadBlockRplyandCheck, Q[[89ABH,0CDEFH,0123H,4567H]],Q[[1,1,1,1]],Q[[2,2,2,2]],Q[[3,3,3,3]]],
Now the block 00112288H should be shared, Wait the Write Single
LIST[$WaitWriteSingleRqstAndCheck, Q[[0,0,0011H,228AH]],Q[[0,0,0AABBH,0CCDDH]]],
LIST[$WriteSingleRply, Q[[0,0,0123H,4567H]]],
Now lets pretend to be a Map Cache
$Loop,
$WaitMapRqst,
LIST[$MapReply, C[0FH]],
LIST[$Jump, $Loop]
]];