DoradoInputOutput.mesa
Last Edited by: Taft, February 27, 1983 2:17 pm
Last Edited by: Levin, April 7, 1983 6:27 pm
DIRECTORY
DisplayFace USING [Cursor],
PrincOps USING [shortPointerSpan, zOR, zLINI, zMISC];
DoradoInputOutput: DEFINITIONS =
BEGIN
IOAddress: TYPE = [0..377B];
Read one word from specified slow I/O address
Input:
PROC [IOAddress]
RETURNS [
UNSPECIFIED] =
MACHINE
CODE {PrincOps.zMISC, 5};
Input with parity checking disabled.
InputNoPE:
PROC [IOAddress]
RETURNS [
UNSPECIFIED] =
MACHINE
CODE
{PrincOps.zLINI; PrincOps.zOR; PrincOps.zMISC, 5};
Write one word to specified slow I/O address
Output:
PROC [datum:
UNSPECIFIED, register: IOAddress] =
MACHINE
CODE {PrincOps.zMISC, 6};
Operate the event counters
StartEventCounters:
PROC [EventCounterControl] =
MACHINE
CODE {PrincOps.zMISC, 240B};
EventCounterControl:
TYPE =
MACHINE
DEPENDENT
RECORD [
loadInsSet (0: 0..0): BOOL ← FALSE,
unused1 (0: 1..3): [0..7] ← 0,
enableA (0: 4..4): BOOL, -- enable event counter A
enableB (0: 5..5): BOOL, -- enable event counter A
unused2 (0: 6..7): [0..3] ← 0,
eventTypeA (0: 8..10): {
true(0), hold(1), procRef(2), ifuJump(3), miss(4),
backPanelA(5), backPanelC(6), backPanelE(7)},
unused3 (0: 11..11): [0..1] ← 0,
eventTypeB (0: 12..14): {
true(0), hold(1), ifuRef(2), ifuNotReady(3), miss(4),
backPanelB(5), backPanelC(6), backPanelD(7)},
tasks (0: 15..15): {emuAndFaultOnly(0), all(1)}];
ReadEventCounters:
PROC [
LONG
POINTER
TO EventCounterTable] =
MACHINE
CODE
{PrincOps.zMISC, 241B};
EventCounterTable:
TYPE =
MACHINE
DEPENDENT
RECORD [
eventALo, eventAMid, eventAHi: CARDINAL,
eventBLo, eventBMid, eventBHi: CARDINAL];
StopEventCounters:
PROC =
MACHINE
CODE {PrincOps.zMISC, 242B};
Operate the micro-PC sampling machinery
SetPCHistogram:
PROC [
LONG
POINTER
TO PCHistogram
--NIL to disable--] =
MACHINE
CODE
{PrincOps.zMISC, 243B};
PCHistogram: TYPE = ARRAY [0..4095] OF LONG CARDINAL;
Operate the Dorado muffler/manifold system.
RWMufMan:
PROC [MufManArg]
RETURNS [MufManResult] =
MACHINE
CODE
{PrincOps.zMISC, 246B};
MufManArg:
TYPE =
MACHINE
DEPENDENT
RECORD [
useDMD (0: 0..0): BOOL,
unused (0: 1..3): [0..7] ← NULL,
dMuxAddr (0: 4..15): DMuxAddr];
DMuxAddr: TYPE = [0..7777B];
MufManResult:
TYPE =
MACHINE
DEPENDENT
RECORD [
dMuxData (0: 0..0): [0..1],
unused (0: 1..15): [0..77777B]];
Reset Ethernet hardware and tasks
ResetEther:
PROC =
MACHINE
CODE {PrincOps.zMISC, 247B};
Get memory configuration
GetMemConfig:
PROC
RETURNS [realPages, virtualBanks:
CARDINAL] =
MACHINE
CODE
{PrincOps.zMISC, 251B};
pagesPerBank: CARDINAL = PrincOps.shortPointerSpan; -- wordsPerBank/wordsPerPage
Halt the Dorado, leaving a specified value on the BMux for the BaseBoard to read
Halt: PROC [data: UNSPECIFIED] = MACHINE CODE {PrincOps.zMISC, 252B};
Change the refresh rate on the display
SetDisplayFieldRate:
PROC [sync, topBorder, visible:
CARDINAL] =
MACHINE
CODE
{PrincOps.zMISC, 253B};
Reset disk hardware and task
mode=disable causes disk task to go catatonic.
ResetDisk:
PROC [mode:
MACHINE
DEPENDENT {normal(0), disable(1)}] =
MACHINE
CODE
{PrincOps.zMISC, 254B};
Set interval timer wakeup time
SetIntervalTimer:
PROC [time:
CARDINAL] =
MACHINE
CODE {PrincOps.zMISC, 255B};
Exported from ProcessorHeadDorado to UserTerminalHeadDorado for saving cursor across world-swaps.
savedCursor: DisplayFace.Cursor;
END.