program sample32;
{-------------------------------------------------------
DR. JOHANNES HEIDENHAIN GmbH, Traunreut, Germany
Einfaches Programm für die IK 121 zur Anzeige
von zwei Achsen. Breite des abgerufenen
Messwertes: 32 Bit.
V 1.01
April 1995
-------------------------------------------------------}
{$N+,E+}
{$V+}
{$R+}
USES crt,ik121_0;
CONST
base_address = $330;
VAR
c_value_0, c_value_1
BEGIN
clrscr;
(*Karte initialisieren im Betrieb mit Interpolation, Achse 1*)
write_g26 (base_address, 1, $0c, $0001);
(*Karte initialisieren im Betrieb mit Interpolation, Achse 2*)
write_g26 (base_address, 2, $0c, $0001);
(*Fehler löschen, Zähler starten, Achse 1*)
write_g26 (base_address, 1, $0e, $0048);
(*Fehler löschen, Zähler starten, Achse 2*)
write_g26 (base_address, 2, $0e, $0048);
(*Kontroll-Register 2 laden, Achse 1*)
write_g26 (base_address, 1, $1c, $0008);
(*Kontroll-Register 2 laden, Achse 2*)
write_g26 (base_address, 2, $1c, $0008);
REPEAT
(*Software-Abruf in Register 0, Achse 1*)
soft_l0 (base_address, 1);
(*Software-Abruf in Register 0, Achse 2*)
soft_l0 (base_address, 2);
(*Messwert von Achse 1 gespeichert?*)
poll_latch (base_address, 1, 0);
(*Messwert lesen, Achse 1*)
c_value_0:= read_count_value32 (base_address, 1, 0);
FazaFdFam
pO§"F
: comp;
aFs¢sam _ m§Fm=¤mVFm
9F§F_ *¤O°*F
s¢s¥¬