DIPLOMARBEIT - Ingenieurbüro | Morawski + Hugemann

Anhang Seite 100
CountCtrl = boardaddr + 15; { => Counter control }
{ 1b: Das Board Control Register (BASE +9) }
EnableInt = 1 SHL 7; {Enable interrupts}
IRQ2 = 2 SHL 4; {Board benutzt Interrupt 2}
IRQ3 = 3 SHL 4;
IRQ4 = 4 SHL 4;
IRQ5 = 5 SHL 4;
IRQ6 = 6 SHL 4;
IRQ7 = 7 SHL 4;
EnableDMA = 1 SHL 2; {Enable DMA data transfer}
TriSourceExt = 2; {External Trigger}
TriSourceInt = 3; {Internal Trigger}
{1c: Timer/counter enable register (BASE +10) }
TRIG0 = 1; { Pacer controlled by TRIG0;
this blocks trigger pulses sent from the pacer to
the A/D until TRIG0 is taken high }
IntClk = 2; {connects Counter 0 internally to a 100 kHz clock source }
{ 2: Counter ----------------------------------------------------------- }
{ 2a: Schreiben }
Select0 = $0;
Select1 = $1 SHl 6;
Select2 = $2 SHl 6;
ReadBack = $3 SHL 6;
CounterLatch = $0;
rwLSB = $1 SHL 4;
rwMSB = $2 SHL 4;
rwBoth = $3 SHL 4;
Mode0 = $0;
Mode1 = $1 SHL 1;
Mode2 = $2 SHL 1;
Mode3 = $3 SHL 1;
Mode4 = $4 SHL 1;
Mode5 = $5 SHL 1;
{ 2b: Lesen }
{3: Interrupt-controler --------------------------------------------------}
intcontrol1 = $20; {Interrupt control register}
intcontrol2 = $21; {Interrupt control register}
intlevel : byte = 5;
keybintlevel = 1;
const