SendData.mesa
Copyright Ó 1987 by Xerox Corporation. All rights reserved.
Created by Jean Gastinel, May 8, 1988 8:04:52 pm PDT
This module change the Atom which contains the program to send the Data
DIRECTORY
Atom;
Send: CEDAR PROGRAM
IMPORTS Atom
EXPORTS
~ BEGIN
C: PROC [c: CARD] RETURNS [rc: REF ANY] = {rc ← NEW[CARD ← c]};
Bo: PROC [c: BOOL] RETURNS [rc: REF ANY] = {rc ← NEW[BOOL ← c]};
Atom.PutProp[$Simul2Sender, $PKList, LIST[
LIST[$ClearFlag, $DynReady],
$StartStop,
$Init,
$StartStop,
LIST[$WaitSync, $DBusReady],
LIST[$Wait, C[10]],
LIST[$SetFlag, $DynReady],
$Nop,
LIST[$Jump, $Nop]
LIST[$ReadMemory, C[01234567H]],
LIST[$Wait, C[2]],
LIST[$Jump, $Restart]
]];
END.