0  BEGIN PGM 82501_de MM 
1  ;NC-Programn, um die Toleranzwerte zu ermitteln
2  ;und auf dem Bildschirm anzuzeigen.
3  ;Die Definition der zu ermittelnden 
4  ;Toleranz erfolgt im NC-Programm 8250_de.h. 
5  ;Wenn Sie alle benoetigten Dateien im selben
6  ;Verzeichnis gespeichert haben, brauchen Sie
7  ;an diesem NC-Programm nichts anpassen.
8  ;Sollten die Dateien in unterschiedlichen
9  ;Verzeichnissen gespeichert sein, muessen 
10 ;Sie die Pfade in den Dateidefinitionen
11 ;anpassen.
12 ;
13 QS2 = "a" ;Kleinbuchstabe zur Pruefung definieren
14 ;
15 ;Pruefen ob Einheitsbohrung oder Einheitswelle
16 Q2 = STRCOMP( SRC_QS1 SEA_QS2 )
17 ;
18 ;Tabelle fuer Einheitsbohrung oeffnen
19 FN 26: TABOPEN 82503_hole.TAB
20 ;
21 ;Wenn Bohrung, Sprung zum LBL1
22 FN 9: IF +Q2 EQU -1 GOTO LBL 1
23 ;
24 ;Tabelle fuer Einheitswelle oeffnen
25 FN 26: TABOPEN 82503_shaft.TAB
26 ;
27 ;Sprungmarke LBL1
28 LBL 1
29 ;
30 Q2 = 0 ;Zaehler Zeilennummer
31 ;
32 ;Wert aus Zeile 0 Spalte "Bereich" der Tabelle lesen 
33 FN 28: TABREAD Q3 =Q2 /"BEREICH"
34 ;
35 ;Sprungmarke LBL11
36 LBL 11
37 ;
38 ;Pruefen ob die definierte Passung in Bereich liegt
39 FN 11: IF +Q1 GT +Q3 GOTO LBL 12
40 ;
41 ;Oberes Abmass aus der Tabelle lesen
42 FN 28: TABREAD Q4 =Q2 / QS1
43 ;
44 ;Zeilenummer um eins erhoehen
45 Q3 = Q2 + 1
46 ;
47 ;Unteres Abmass aus Tabelle lesen
48 FN 28: TABREAD Q5 =Q3 / QS1
49 ;
50 ;Sprung zum LBL99
51 FN 9: IF +1 EQU +1 GOTO LBL 99
52 ;
53 ;Sprungmarke LBL12
54 LBL 12
55 ;Zeilennummer um zwei erhoehen
56 Q2 = Q2 + 2
57 ;
58 ;Wert aus Zeile Q2 Spalte "Bereich" der Tabelle lesen 
59 FN 28: TABREAD Q3 =Q2 /"BEREICH"
60 ;
61 ;Sprung zum LBL11
62 FN 9: IF +1 EQU +1 GOTO LBL 11
63 ;
64 ;Sprungmarke LBL99
65 LBL 99
66 ;
67 ;Groesstmass in mm berechnen
68 Q2 = Q1 + ( Q4 / 1000 )
69 ;
70 ;Kleinstmass in mm berechnen
71 Q3 = Q1 + ( Q5 / 1000 )
72 ;
73 ;Text fuer Passung zusammensetzen
74 QS2 = TOCHAR( DAT+Q1 DECIMALS0 ) || QS1
75 ;
76 ;Inhalt der Maskendatei _de.a auf Bildschirm anzeigen
77 FN 16: F-PRINT 82502_de.A / SCREEN:
78 ;
79 ;Programmende
80 END PGM 82501_de MM