0 BEGIN PGM 9045_IT MM 
1 ;Programma NC per incidere un numero di commessa
2 ;definito e un numero di pezzi progressivo sul pezzo.
3 ;Ciascuna cifra del numero di commessa viene definito
4 ;in una colonna. Il controllo numerico la legge e
5 ;via via la incide. Il controllo numerico salva anche
6 ;il numero di pezzi in una tabella affinché rimanga
7 ;salvato anche in caso di interruzione di tensione.
8 ;Prima dell'incisione il controllo numerico legge
9 ;dalla tabella il numero di programmi eseguiti fino quel
10 ;momento, ne aggiunge uno, scrive il nuovo valore nella
11 ;tabella e incide il numero di pezzi sul pezzo.
12 ;Prima di avviare il programma è necessario definire
13 ;l'utensile per incidere e i parametri per l'incisione
14 ;del numero di commessa e del numero di pezzi. È inoltre
15 ;necessario definire il numero di commessa nella tabella
16 ;T90453.tab e azzerare il numero di pezzi nella tabella
17 ;T90454.tab.
18 ;!!IMPORTANTE!! Le esecuzioni del programma in modalità
19 ;di prova vengono incluse nel conteggio del contapezzi!!!
20 ;
21 BLK FORM 0.1 Z X+0 Y+0 Z-40
22 BLK FORM 0.2  X+100  Y+100  Z+0
23 ;
24 ;Chiamata utensile per incidere
25 TOOL CALL 200 Z S5000
26 ;
27 ;Disimpegno
28 L  Z+100 R0 FMAX M3
29 ;
30 ;Scrittura del numero di commessa dalla tabella
31 ;
32 ;Immissione parametri
33 FN 0: Q2 =+1 ;EFFETTO FATTORE DI SCALA 2D (1) o 3D (0)
34 FN 0: Q4 =-1 ;PROFONDITA' DI FRESATURA
35 FN 0: Q6 =+1000 ;AVANZAMENTO FRESATURA
36 FN 0: Q7 =+200 ;AVANZAMENTO IN PROFONDITA'
37 FN 0: Q8 =+1 ;DISTANZA DI SICUREZZA
38 FN 0: Q5 =+10 ;ALTEZZA CARATTERE
39 FN 0: Q21 =+20 ;PUNTO DI PARTENZA X
40 FN 0: Q22 =+60 ;PUNTO DI PARTENZA Y
41 FN 0: Q29 =+0 ;ROTAZIONE
42 ;Fine immissione parametri
43 ;
44 ;Chiamata programma per scrittura del numero di commessa
45 CALL PGM 90451_it.h
46 ;
47 ;
48 ;Scrittura del numero di pezzi
49 ;
50 ;Immissione parametri
51 FN 0: Q2 =+1 ;EFFETTO FATTORE DI SCALA 2D (1) o 3D (0)
52 FN 0: Q4 =-1 ;PROFONDITA' DI FRESATURA
53 FN 0: Q6 =+1000 ;AVANZAMENTO FRESATURA
54 FN 0: Q7 =+200 ;AVANZAMENTO IN PROFONDITA'
55 FN 0: Q8 =+1 ;DISTANZA DI SICUREZZA
56 FN 0: Q5 =+10 ;ALTEZZA CARATTERE
57 FN 0: Q21 =+20 ;PUNTO DI PARTENZA X
58 FN 0: Q22 =+40 ;PUNTO DI PARTENZA Y
59 FN 0: Q29 =+0 ;ROTAZIONE
60 ;Fine immissione parametri
61 ;
62 ;
63 ;Apertura della tabella
64 FN 26: TABOPEN T90454.TAB
65 ;Lettura del numero di pezzi sino ad ora
66 FN 28: TABREAD Q80 =0 /"NO"
67 ;Ulteriore calcolo del numero di pezzi
68 FN 1: Q80 =+Q80 + +1
69 ;Scrittura del nuovo valore in tabella
70 FN 27: TABWRITE 0 /"NO" = Q80
71 ;
72 ;Chiamata programma per scrittura del numero di pezzi
73 CALL PGM 90452_it.h
74 ;
75 ;Disimpegno e fine programma
76 L  Z+100 R0 FMAX M30
77 END PGM 9045_IT MM