[_CD4_]<dragon7.0>SS>PBusTestSyncProg.mesa!2

PBusProg.mesa

Jean Gastinel, May 8, 1988 8:05:28 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

B: PROC [b: BOOL] RETURNS [rb: REF ANY] = {rb ← NEW[BOOL ← b]};

C: PROC [c: CARD] RETURNS [rc: REF ANY] = {rc ← NEW[CARD ← LOOPHOLE[c]]};

Bo: PROC [c: BOOL] RETURNS [rc: REF ANY] = {rc ← NEW[BOOL ← c]};

Here Start The Program

Atom.PutProp[$PBusEmul, $PKList, LIST[

LIST[$WaitSync, $DBusReady],

LIST[$Write,C[12345678H],C[09ABCDEFH]],

LIST[$WaitSync, $DynReady],

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.