0 BEGIN PGM 8215_ES MM 
1 ;Programa NC para determinar el tiempo de
2 ;ejecución del programa y, al final del
3 ;programa, visualizarlo en una ventana de
4 ;superposición en la pantalla.
5 ;Para ello, al inicio del programa y al
6 ;final del programa, el control numérico
7 ;lee la hora del sistema actual y a partir
8 ;de ello calcula el tiempo de ejecución
9 ;del programa y lo muestra mediante la
10 ;función FN16 en forma de un fichero de
11 ;máscara definido.
12 ;
13 BLK FORM 0.1 Z X+0 Y+0 Z-20
14 BLK FORM 0.2  X+100  Y+100  Z+0
15 ;
16 ;Leer la hora del sistema en segundos
17 ;desde el 1.1.1970 a las 0 h y escribir
18 ;en Q=10
19 FN 18: SYSREAD Q10 = ID320 NR1 IDX0
20 ;
21 ;Mecanizado
22 TOOL CALL 1 Z S20000 F1000
23 L  X+0  Y+0 R0 FMAX M3
24 L  Z-5 R0 FMAX
25 L  X+0  Y+0 F50
26 L  X+80  Y+20
27 L  Y+80
28 L  X+20
29 L  X+0  Y+0 R0
30 L  Z+100 R0 FMAX
31 ;Final del mecanizado
32 ;
33 ;Leer la hora del sistema
34 ;en segundos desde el 1.1.1970 a las 0 h
35 ;y escribir en Q=11
36 ;
37 ;Calcular el tiempo de ejecución del programa
38 FN 18: SYSREAD Q11 = ID320 NR1 IDX0 ;Leer hora actual del sistema en segundos
39 FN 2: Q12 =+Q11 - +Q10 ;Restar la hora del sistema Inicio de la hora del sistema Final en segundos
Q13 = Q12 / 3600 ;Cálculo de las horas
Q30 = INT Q13 ;Redondear los decimales de las horas
Q14 = Q30 * 3600 ;Convertir las horas en segundos
Q15 = Q12 - Q14 ;Cálculo de los segundos restantes
Q16 = Q15 / 60 ;Cálculo de los minutos
Q31 = INT Q16 ;Redondear los decimales de los minutos
Q17 = Q31 * 60 ;Convertir los minutos en segundos
Q32 = Q15 - Q17 ;Cálculo de los segundos restantes
40 ;
41 ;Visualización en pantalla con definición
42 ;del fichero de máscara a emplear
43 FN 16: F-PRINT 82151_es.a / Screen:
44 ;
45 ;Final del programa
46 M30
47 END PGM 8215_ES MM