0  BEGIN PGM 8215_DE MM 
1  ;NC-Programm um die Programmlaufzeit zu
2  ;ermitteln, und am Programmende in einem
3  ;Ueberblendfenster auf dem Bildschirm
4  ;anzuzeigen.
5  ;Dazu liest die Steuerung am Programmanfang
6  ;und am Programmende die aktuelle Systemzeit
7  ;aus, errechnet daraus die Programmlaufzeit
8  ;und zeigt diese mittels der Funktion FN16
9  ;in Form einer definierten Maskendatei an.
10 ;
11 BLK FORM 0.1 Z X+0 Y+0 Z-20
12 BLK FORM 0.2  X+100  Y+100  Z+0
13 ;
14 ;Auslesen der Systemzeit
15 ;in Sec seit 1.1.1970 0 Uhr
16 ;und schreiben in Q=10
17 FN 18: SYSREAD Q10 = ID320 NR1 IDX0
18 ;
19 ;Bearbeitung
20 TOOL CALL 1 Z S20000 F1000
21 L  X+0  Y+0 R0 FMAX M3
22 L  Z-5 R0 FMAX
23 L  X+0  Y+0 F50
24 L  X+80  Y+20
25 L  Y+80
26 L  X+20
27 L  X+0  Y+0 R0
28 L  Z+100 R0 FMAX
29 ;Ende Bearbeitung
30 ;
31 ;Auslesen der Systemzeit
32 ;in Sec seit 1.1.1970 0 Uhr
33 ;und schreiben in Q=11
34 ;
35 ;Berechnen der Programmlaufzeit
36 FN 18: SYSREAD Q11 = ID320 NR1 IDX0 ;Aktuelle Systemzeit in Sekunden auslesen
37 FN 2: Q12 =+Q11 - +Q10 ;Systemzeit Start von der Systemzeit Ende abziehen in Sekunden
38 Q13 = Q12 / 3600 ;Berechnung der Stunden
39 Q30 = INT Q13 ;Nachkommastellen der Stunden abschneiden
40 Q14 = Q30 * 3600 ;Stunden in Sekunden umrechnen
41 Q15 = Q12 - Q14 ;Berechnung der Restsekunden
42 Q16 = Q15 / 60 ;Berechnung der Minuten
43 Q31 = INT Q16 ;Nachkommastellen der Minuten abschneiden
44 Q17 = Q31 * 60 ;Minuten in Sekunden umrechnen
45 Q32 = Q15 - Q17 ;Berechnung der Restsekunden
46 ;
47 ;Ausgabe auf Bildschirm mit definition der
48 ;zu verwendenden Maskendatei
49 FN 16: F-PRINT 82151_de.a / Screen:
50 ;
51 ;Programmende
52 M30
53 END PGM 8215_DE MM