<> <> <> <> <> <> <> DIRECTORY PrincOps USING [shortPointerSpan, zOR, zLINI, zMISC]; DoradoInputOutput: DEFINITIONS = BEGIN <> IOAddress: TYPE = [0..377B]; Input: PROC [IOAddress] RETURNS [WORD] = MACHINE CODE <> {PrincOps.zMISC, 5}; InputNoPE: PROC [IOAddress] RETURNS [WORD] = MACHINE CODE <> {PrincOps.zLINI; PrincOps.zOR; PrincOps.zMISC, 5}; Output: PROC [datum: WORD, register: IOAddress] = MACHINE CODE <> {PrincOps.zMISC, 6}; <> 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 B 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)} _ true, 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)} _ true, tasks (0: 15..15): {emuAndFaultOnly(0), all(1)} _ emuAndFaultOnly ]; StartEventCounters: PROC [EventCounterControl] = MACHINE CODE {PrincOps.zMISC, 240B}; EventCounterTable: TYPE = MACHINE DEPENDENT RECORD [ eventALo, eventAMid, eventAHi: CARDINAL, eventBLo, eventBMid, eventBHi: CARDINAL ]; ReadEventCounters: PROC [LONG POINTER TO EventCounterTable] = MACHINE CODE {PrincOps.zMISC, 241B}; StopEventCounters: PROC = MACHINE CODE {PrincOps.zMISC, 242B}; ExternalInput: PROC RETURNS [WORD] = MACHINE CODE <> {PrincOps.zMISC, 12B}; ExternalOutput: PROC [datum: WORD] = MACHINE CODE <> {PrincOps.zMISC, 13B}; <> PCHistogram: TYPE = ARRAY [0..4095] OF LONG CARDINAL; SetPCHistogram: PROC [LONG POINTER TO PCHistogram --NIL to disable--] = MACHINE CODE {PrincOps.zMISC, 243B}; <> 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] ]; RWMufMan: PROC [MufManArg] RETURNS [MufManResult] = MACHINE CODE {PrincOps.zMISC, 246B}; <> ResetEther: PROC = MACHINE CODE <> {PrincOps.zMISC, 247B}; GetMemConfig: PROC RETURNS [realPages, virtualBanks: CARDINAL] = MACHINE CODE <> {PrincOps.zMISC, 251B}; pagesPerBank: CARDINAL = PrincOps.shortPointerSpan; -- wordsPerBank/wordsPerPage Halt: PROC [data: WORD] = MACHINE CODE <> {PrincOps.zMISC, 252B}; SetDisplayFieldRate: PROC [sync, topBorder, visible: CARDINAL] = MACHINE CODE <> {PrincOps.zMISC, 253B}; ResetDisk: PROC [mode: MACHINE DEPENDENT {normal(0), disable(1)}] = MACHINE CODE <> {PrincOps.zMISC, 254B}; SetIntervalTimer: PROC [time: CARDINAL] = MACHINE CODE <> {PrincOps.zMISC, 255B}; <> savedCursor: ARRAY [0..16) OF WORD; <> millisecondsPerTick: CARDINAL; <> END.