0 BEGIN PGM 9030_es MM 
1 ;Programa NC para grabar un número de encargo
2 ;definido y un número de piezas secuencial
3 ;correlativo sobre una pieza.
4 ;El número de encargo se define en una tabla,
5 ;en la misma se registra cada cifra en una
6 ;columna. Ésta la lee el control numérico entonces
7 ;una y otra vez y graba la cifra. También el número
8 ;de piezas lo guarda el control numérico en una tabla
9 ;para que se mantenga incluso después de una
10 ;interrupción de la corriente. Antes del grabado, el
11 ;control numérico lee de la tabla los procesos
12 ;ejecutados hasta entonces, añade uno, escribe el
13 ;nuevo valor en la tabla y graba el número de piezas
14 ;sobre la pieza.
15 ;Antes del inicio del programa se debe definir la
16 ;herramienta de grabado y los parámetros para el grabado
17 ;del número de encargo y el número de piezas. Además se
18 ;debe definir el número de encargo en la tabla
19 ;90303_es.tab y reponer a cero el número de piezas en la
20 ;tabla 90304_es.tab.
21 ;IMPORTANTE!! Las ejecuciones del programa en el test
22 ;de programa también se cuentan en el contador de piezas!!!
23 ;
24 BLK FORM 0.1 Z  X+0  Y+0  Z-40
25 BLK FORM 0.2  X+100  Y+100  Z+0
26 ;
27 ;Llamada a la herramienta, herramienta de grabado
28 TOOL CALL 200 Z S5000
29 ;
30 ;Retirar la hta.
31 L  Z+100 R0 FMAX M3
32 ;
33 ;Grabado del número de encargo de la tabla
34 ;
35 ;Introducción de parámetros
36 FN 0: Q2 =+1 ;EFECTO DEL FACTOR DE ESCALA 2D (1) o 3D (0)
37 FN 0: Q4 =-1 ;PROF. DE FRESADO
38 FN 0: Q6 =+1000 ;AVANCE DE FRESADO
39 FN 0: Q7 =+200 ;AVANCE AL PROFUNDIZAR
40 FN 0: Q8 =+1 ;DISTANCIA DE SEGURIDAD
41 FN 0: Q5 =+10 ;ALTURA DE LETRA
42 FN 0: Q21 =+20 ;PUNTO DE INICIO X
43 FN 0: Q22 =+60 ;PUNTO DE INICIO Y
44 FN 0: Q29 =+0 ;ROTACIÓN
45 ;Fin de la introducción de parámetros
46 ;
47 ;Llamada del programa para grabar el número de encargo
48 CALL PGM 90301_es.h
49 ;
50 ;
51 ;Grabado del número de piezas
52 ;
53 ;Introducción de parámetros
54 FN 0: Q2 =+1 ;EFECTO DEL FACTOR DE ESCALA 2D (1) o 3D (0)
55 FN 0: Q4 =-1 ;PROF. DE FRESADO
56 FN 0: Q6 =+1000 ;AVANCE DE FRESADO
57 FN 0: Q7 =+200 ;AVANCE AL PROFUNDIZAR
58 FN 0: Q8 =+1 ;DISTANCIA DE SEGURIDAD
59 FN 0: Q5 =+10 ;ALTURA DE LETRA
60 FN 0: Q21 =+20 ;PUNTO DE INICIO X
61 FN 0: Q22 =+40 ;PUNTO DE INICIO Y
62 FN 0: Q29 =+0 ;ROTACIÓN
63 ;Fin de la introducción de parámetros
64 ;
65 ;
66 ;Abrir tabla
67 FN 26: TABOPEN 90304_es.TAB
68 ;Leer el número de piezas anterior
69 FN 28: TABREAD Q80 =0 /"No"
70 ;Seguir contando el número de piezas
71 FN 1: Q80 =+Q80 + +1
72 ;Escribir el nuevo valor en la tabla
73 FN 27: TABWRITE 0 /"No" = Q80
74 ;
75 ;Llamada de programa para grabar el número de piezas
76 CALL PGM 90302_es.h
77 ;
78 ;Retirar la herramienta y final del programa
79 L  Z+100 R0 FMAX M30
80 END PGM 9030_es MM