PBusProg.mesa
Copyright Ó 1988 by Xerox Corporation. All rights reserved.
Jean Gastinel, May 9, 1988 1:18:40 pm PDT
This module change the Atom which contains the program to send the Data
DIRECTORY
Atom; 
PBusProg: CEDAR PROGRAM
IMPORTS Atom
EXPORTS
~ BEGIN
Service Types
Service Procs
C: PROC [c: CARD] RETURNS [rc: REF ANY] = {rc ← NEW[CARDLOOPHOLE[c]]};
Here Start The Program
Atom.PutProp[$PBusEmul, $PKList, LIST[
LIST[$Wait, C[2]], -- for init
LIST[$Write,C[11223344H],C[09ABCDEFH]],  
LIST[$Write,C[55667788H],C[0FEDCBAH]],  
LIST[$ReadAndCheck,C[01234567H],C[55667788H]],  
LIST[$Write,C[12345678H],C[09ABCDEFH]],  
LIST[$IOReadAndCheck,C[0123H],C[55667788H]],  
LIST[$IOWrite,C[3456789AH],C[09ABCDEFH]],  
LIST[$PBusCmd,C[511],C[456789ABH],C[56789ABCH]],  
$Nop,
LIST[$Jump, $Nop]
]];
END.