Inhaltsverzeichnis
Werbung
ISA-A/D-Wandlerkarte ADI-1, ADI-2
Beispielprogramm in Turbo-Pasal
{ Abtastrate bei Landmark 16 ca. 100 kHz in 12 bit Auflösung !!!
{ Compiler : Borland Turbo-Pascal 6.0 mit Assemblereinbindung.
program ADIASM;
uses crt,graph,dos;
{$M 15000,55000,85000}
const
PA
PB
= $0DE1;
PC
= $0DE2;
PS
= $0DE3;
RC
= 2;
CHIP = 1;
HBE
= 4;
BUSY = 128;
IQEN = 8;
V1
= 32;
V2
= 64;
EN
= 16;
type parms = record
driver
mode
end;
var
Kanal
w
param
procedure init;
begin
kanal := 0;
port [PS] := 138;
port [PA] := V1 + EN + Kanal;
end;
procedure messen;
var
x,c
a,b
seg,byt : word;
Label X100;
Label 88;
begin
repeat
asm
PUSH AX
PUSH BX
PUSH CX
PUSH DX
PUSH SI
PUSH DS
MOV DX,6000H
MOV DS,DX
KOLTER ELECTRONIC
= $0DE0; { Port 8255 "A"
{ Port 8255 "B"
{ Port 8255 "C"
{ Statusport 8255
{ read / convert ADS }
{ chip enable ADS
{ high-byte-enable
{ EOC-Signal ADS
{ Interrupt-Freigabe }
{ Verstaerkung V = 1 }
{ Verstaerkung V = 2 }
{ Enable Multiplexer }
: integer;
: integer;
: byte;
: char;
: parms;
: integer;
: integer;
{ Rette Register }
{ Rette Register }
{ Rette Register }
{ Rette Register }
{ Rette Register }
{ Rette Register }
{ Segmentregister DX / Basisadresse 6000}
}
}
}
}
}
}
}
{ 8255 initialisieren
{ Messkanal an Karte einstellen
{ Mode-Wort für 8255 !!!
{ Verstaerkung, Enable, Kanal
{ Graphische Darstellung für VGA 640x480 }
IPC/PCI Industrie-Line
}
}
}
}
}
!
}
Seite 12
Werbung
Inhaltsverzeichnis
