DIRECTORY Atom; PBusProg: CEDAR PROGRAM IMPORTS Atom EXPORTS ~ BEGIN C: PROC [c: CARD] RETURNS [rc: REF ANY] = {rc _ NEW[CARD _ LOOPHOLE[c]]}; 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. ü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 Service Types Service Procs Here Start The Program Êb˜codešœ ™ Kšœ<™