Werbung
aF˜ ˜s¢s˜am˜ _ m§Fm=¤mVFm˜
(*Messwert von Achse 2 gespeichert?*)
poll_latch (base_address, 2, 0);
(*Messwert lesen, Achse 2*)
c_value_1:= read_count_value32 (base_address, 2, 0);
(*Messwert am Bildschirm anzeigen*)
gotoxy(1,10);
write(c_value_0*0.02/1024:16:4,
c_value_1*0.02/1024:16:4);
UNTIL KEYPRESSED;
END.
program sample48;
{-------------------------------------------------------
DR. JOHANNES HEIDENHAIN GmbH, Traunreut, Germany
Einfaches Programm für die IK 121 zur Anzeige
von zwei Achsen. Breite des abgerufenen
Messwertes: 48 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, $0041);
(*Karte initialisieren im Betrieb mit Interpolation, Achse 2*)
write_g26 (base_address, 2, $0c, $0041);
(*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_value48 (base_address, 1, 0);
(*Messwert von Achse 2 gespeichert?*)
poll_latch (base_address, 2, 0);
(*Messwert lesen, Achse 2*)
c_value_1:= read_count_value48 (base_address, 2, 0);
–G˜
: comp;
˜
Werbung
