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

PCProg.mesa

Created by Jean Gastinel, May 8, 1988 8:05:43 pm PDT

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

DIRECTORY

Atom, BitOps;

PCProg: 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]};

Bo: PROC [c: BOOL] RETURNS [rc: REF ANY] = {rc ← NEW[BOOL ← 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[

LIST[$ClearFlag, $DBusReady],

$Init,

$Reset,

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

LIST[$ReadDBusAndCheck,C[IdCte[t:11,v:1]],B[16]],

LIST[$SetFlag, $DBusReady],

$Nop,

LIST[$Jump, $Nop]

]];

END.