Atom.PutProp[$Simul2Sender, $PKList,
LIST[
$Init,
LIST[$Wait, C[424]], -- for waiting DBus intit
$StartStop,
Initialisation
LIST[$IOWriteRqst, Q[[0,0,0254H,0005H]],Q[[0,0,09ABCH,0DEF0H]]], --IOWrite ITreason
$WaitMsgSent,
$WaitMsgReceived, --for Echo
$WaitMsgReceived, --for Reply
LIST[$IOReadRqst, Q[[0,0,0254H,0005H]]], --IORead ITreason
$WaitMsgReceived, --for Echo
$WaitMsgReceived, --for Reply
$Nop,
LIST[$Jump, $Nop]
]];