SendData.mesa
Copyright Ó 1987 by Xerox Corporation. All rights reserved.
Created by Jean Gastinel, October 28, 1987 5:26:41 pm PST
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]};
Atom.PutProp[$Simul2Sender, $PKList,
LIST[
$Init,
$StartStop,
$Nop,
LIST[$Jump, $Nop]
LIST[$ReadMemory, C[01234567H]],
LIST[$Wait, C[2]],
LIST[$Jump, $Restart]
]];
END.