[_CD6_]<dragon7.0>SSIOB>PCIOBProg.mesa!3

PCIOBProg.mesa

Created by Jean Gastinel, November 27, 1987 4:29:28 pm PST

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

DIRECTORY

Atom, BitOps;

PCIOBProg: 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,

$ResetOn,

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

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

LIST[$SendDBusAddress, B[AdDBus[bd:0,hyb:2,Int:3,ci:1,pth:1]]], --DevID of IOBridge

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

LIST[$SendDBusAddress, B[AdDBus[bd:0,hyb:2,Int:3,ci:1,pth:2]]], --ITbase of IOBridge

LIST[$SendDBusData,C[01AH],B[5]],

LIST[$SendDBusAddress, B[AdDBus[bd:0,hyb:2,Int:3,ci:1,pth:3]]], --MegaHertz of IOBridge

LIST[$SendDBusData,C[60],B[6]],

$ResetOff,

$Nop,

LIST[$Jump,$Nop],

]];

END.