[_CD6_]<dragon7.0>SSMem>PCMemProg.mesa!3

PCMemProg.mesa

Created by Jean Gastinel, December 4, 1987 3:27:45 pm PST

This module change the Atom which contains the program to send the Data

DIRECTORY

Atom, BitOps;

PCMemProg: CEDAR PROGRAM

IMPORTS Atom, BitOps

EXPORTS

~ BEGIN

Service Types

QWord: TYPE = ARRAY [0 .. 2) OF CARD;

Service Procs

Q: PROC [c: QWord] RETURNS [rc: REF ANY] = {rc ← NEW[QWord ← c]};

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

B: PROC [c: CARDINAL] RETURNS [rc: REF ANY] = {rc ← NEW[CARDINAL ← c]};

AdDBus: PROC [bd,hyb,Int,ci,pth: CARDINAL 𡤀] RETURNS [ad: CARDINAL 𡤀] ~ {

Address in the DBus is :

<BoardNum:4><HybridNum:4><InterfaceNum:3><ChipNum:2><PathNum:3>

<ChipNum>=0 is for BIC

ad ← BitOps.WShift[bd,12]+BitOps.WShift[hyb,8];

ad ← ad+BitOps.WShift[Int,5]+BitOps.WShift[ci,3]+pth;

};

IdCte: PROC [t,v:CARDINAL] RETURNS [id:CARDINAL] ~ {

The structure of the Identificator is "0101 cccc ccrr rrrr"

cccccc is the Type, rrrrrr is the Version

id ← 5000H + BitOps.WShift[t,6] + v;

};

Here Start The Program

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

$Init,

$Reset,

LIST[$SendDBusAddress, B[AdDBus[bd:1,hyb:4,Int:0,ci:1,pth:0]]], -- ID path of MemCntrl

LIST[$ReadDBusAndCheck,C[IdCte[t:6,v:0]],B[16]],

LIST[$SendDBusAddress, B[AdDBus[bd:1,hyb:4,Int:0,ci:1,pth:1]]], -- parameter of MemCntrl

LIST[$SendDBusData,C[0],B[10]],

LIST[$SendDBusAddress, B[AdDBus[bd:1,hyb:4,Int:0,ci:1,pth:0]]], -- ID path of MemCntrl

$Nop,

LIST[$Jump,$Nop],

]];

END.