DIPLOMARBEIT - Ingenieurbüro | Morawski + Hugemann

Anhang Seite 101
datensegment : word = $6000;
datenoffset : word = 0;
CStart: Word = 50000;
Frequenz: Word = 10000;
VAR channel : byte;
minchannel : byte;
maxchannel : byte;
oldmask : byte;
mask : byte;
anzahl : word;
sampling : word;
frequency : real;
OldIntVector : pointer;
adsample : boolean;
ende : boolean;
Messwert : array[1..20000] of word ;
procedure portdelay;
Var
i: Longint;
begin
for i := 1 to 50 do;
end;
{ Initiallisierung -------------------------------------------------------}
procedure init;
const
{Im Modus 3 (Square Wave Generator) wechselt OUT jeweils beim
Nulldurchgang und der Counter beginnt wieder mit dem Startwert.
Der Startwert teilt also die Frequenz des CLK-Signals
entsprechend herunter. Der Startwert sollte gerade sein, damit
die Frequenz so exakt wie moeglich heruntergeteilt wird.}
Count0Start: Word = 50000;
Count1Start = 20;
Count2Start = 50;
var
dummy : byte;
begin
anzahl:=0;