DIPLOMARBEIT - Ingenieurbüro | Morawski + Hugemann

Anhang Seite 99
A.3 PASCAL-Programm
{------------------------------------------------------------}
{ Messen von Reaktionszeiten mit der PCL816 }
{------------------------------------------------------------}
{$A+,B-,D+,E+,F+,G+,I+,L-,N+,O+,R+,S+,V+,X+}
{$M 65000,0,0}
program reaktion;
uses dos, crt, Strings;
type str10 = string[10];
const
{ 1: Adressen --------------------------------------------------}
boardaddr = $220; {Basisadresse des Boards}
{ A/D }
adlow = boardaddr + 0; { Software A/D-trigger}
adhigh = boardaddr + 1; { A/D range control }
ScanChan = boardaddr + 2; { mux scan channel & range control
pointer}
{ D/A }
dilow = boardaddr + 3; { D/O low byte}
DA0Low = boardaddr + 4; { => D/A 0 low byte}
DA0High = boardaddr + 5; { => D/A 0 high byte}
{ interrupt }
status = boardaddr + 8; { Clear interrupt request}
pclctrl = boardaddr + 9; { control}
CountEnable = boardaddr + 10;{ => Counter enable}
{ Digital}
dihigh = boardaddr + 11; { D/O high byte}
{ Counter }
count0 = boardaddr + 12;
count1 = boardaddr + 13;
count2 = boardaddr + 14;