[_CD4_]<dragon7.0>PBus>PBusProg.mesa!4

PBusProg.mesa

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[CARD ← LOOPHOLE[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.