Podprogramy w programie

[KK1966]

Witam!
Pracuje na AVIA, staram sie pisać sam programy. Doszedłem do momentu łaczenia programów poprzez wywoływanie PGM w programie. Problem jest taki, wywołany program posiada LBLy np. liter, prosze o pomoc, jak odpracować wywołany program z literami i skoczyć do początku głównego programu??
Pozdrawiam!!

[easy2002]

Witam
komendy LBL 1...n
a powrót do linii pod wywołaniem LBL 0
Wklei kolega program i podprogram tu na forum to pomogę

[Łuki31]

Witam
ale w ogóle wykonuje koledze ten program czy nie może sobie kolega poradzic aby program wykonywało
w którym momencie kolega się zatrzymał niech konkretnie napisze wtedy będziemy mogli pomóc

[KK1966]

Witam!!
NP.----główny----
0 BEGIN PGM LBL_M12 MM
1 ;NAZWA
2 ;NR.RYS.
3 ;UCHWYT TOKARSKI
4 ;KOSTKA W Y/POLOWKA WKLESLA
5 ;ZERO W OSI, NA DLUGOSCI
6 ;WIERC.-27-WIERTLO#10,2
7 ;GWINT.-49-GWINTOWNIK M12
8 ;FAZA-73-FAZOW_18
9 BLK FORM 0.1 Z X-76 Y-76 Z-20
10 BLK FORM 0.2 X+76 Y+76 Z+0
11 ;WIERC-27-WIERTLO 10,2
12 TOOL CALL 27 Z S3200
13 L Z+100 R0 FMAX M31
14 CYCL DEF 200 WIERCENIE ~
Q200=+2 ;BEZPIECZNA WYSOKOSC ~
Q201=-25 ;GLEBOKOSC ~
Q206=+800 ;WARTOSC POSUWU WGL. ~
Q202=+25 ;GLEBOKOSC DOSUWU ~
Q210=+0 ;PRZER. CZAS.NA GORZE ~
Q203=+0 ;WSPOLRZEDNE POWIERZ. ~
Q204=+2 ;2-GA BEZPIECZNA WYS. ~
Q211=+0 ;PRZERWA CZAS. DNIE
15 L X+0 Y+58 R0 FMAX M13 M99
16 L X+0 Y-58 R0 FMAX M99
17 L Z+100 R0 FMAX M5 M9
18 ;GWINT-49-GWINTOWNIK M12
19 TOOL CALL 49 Z S450
20 L Z+100 R0 FMAX M31
21 CYCL DEF 207 GWINTOWANIE GS-NOWE ~
Q200=+2 ;BEZPIECZNA WYSOKOSC ~
Q201=-22 ;GLEBOKOSC GWINTU ~
Q239=+1.75 ;SKOK ~
Q203=+0 ;WSPOLRZEDNE POWIERZ. ~
Q204=+2 ;2-GA BEZPIECZNA WYS.
22 L X+0 Y-58 R0 FMAX M13 M99
23 L X+0 Y+58 R0 FMAX M99
24 L Z+100 R0 FMAX M5 M9
25 ;FAZA-73-FAZOW_18
26 TOOL CALL 73 Z S7000
27 L Z+100 R0 FMAX M31
28 CYCL DEF 240 ROZWIERCANIE ~
Q200=+2 ;BEZPIECZNA WYSOKOSC ~
Q343=+0 ~
Q201=-2.7 ;GLEBOKOSC ~
Q344=-13 ;DIAMETER ~
Q206=+1600 ;WARTOSC POSUWU WGL. ~
Q211=+0.1 ;PRZERWA CZAS. DNIE ~
Q203=+0 ;WSPOLRZEDNE POWIERZ. ~
Q204=+2 ;2-GA BEZPIECZNA WYS.
29 L X+0 Y+58 R0 FMAX M13 M99
30 L X+0 Y-58 R0 FMAX M99
31 L Z+100 R0 FMAX M5 M9
32 CALL PGM ZAB_OPIS_KOL130.h ;-------wywołanie-----
32 L X+0 Y+360 Z+100 R0 FMAX M31
33 M30
34 END PGM LBL_M12 MM



-----------prog---wywołany-----
0 BEGIN PGM ZAB_OPIS_KOL130 MM
1 ;NAZWA-OPIS KOLNIERZA
2 BLK FORM 0.1 Z X-84 Y-84 Z-10
3 BLK FORM 0.2 X+84 Y+84 Z+0
5 ;OPIS
6 ;NUMERACJA
6 TOOL CALL 48 Z S10000
7 L Z+100 R0 FMAX M31
9 CYCL DEF 10.0 OBROT
10 CYCL DEF 10.1 IROT-163 ;POCZ.OPISU
11 L X+0 Y-44 R0 FMAX M31 ;Y=R
12 L Z+5 R0 FMAX M31
13 LBL "OPIS"
14 L X+0 Y-44 R0 FMAX
15 L Z+1 R0 FMAX M13
16 CALL LBL "H5ROM_C"
17 CYCL DEF 10.0 OBROT
18 CYCL DEF 10.1 IROT+7
19 L X+0 Y-44 R0 FMAX
20 CALL LBL "H5ROM_B"
21 CYCL DEF 10.0 OBROT
22 CYCL DEF 10.1 IROT+5
23 L X+0 Y-44 R0 FMAX
20 CALL LBL "H5ROM_-"
25 CYCL DEF 10.0 OBROT
26 CYCL DEF 10.1 IROT+5
27 L X+0 Y-44 R0 FMAX
20 CALL LBL "H5ROM_1"
29 CYCL DEF 10.0 OBROT
30 CYCL DEF 10.1 IROT+3
31 L X+0 Y-44 R0 FMAX
20 CALL LBL "H5ROM_0"
33 CYCL DEF 10.0 OBROT
34 CYCL DEF 10.1 IROT+5
35 L X+0 Y-44 R0 FMAX
20 CALL LBL "H5ROM_0"
37 CYCL DEF 10.0 OBROT
38 CYCL DEF 10.1 IROT+5
39 L X+0 Y-44 R0 FMAX
20 CALL LBL "H5ROM_0"
41 CYCL DEF 10.0 OBROT
42 CYCL DEF 10.1 IROT+5
43 L X+0 Y-44 R0 FMAX
20 CALL LBL "H5ROM_UKOS"
45 CYCL DEF 10.0 OBROT
46 CYCL DEF 10.1 IROT+5
47 L X+0 Y-44 R0 FMAX
20 CALL LBL "H5ROM_1"
49 CYCL DEF 10.0 OBROT
50 CYCL DEF 10.1 IROT+3
51 L X+0 Y-44 R0 FMAX
20 CALL LBL "H5ROM_1"
53 CYCL DEF 10.0 OBROT
54 CYCL DEF 10.1 IROT+7
55 L X+0 Y-44 R0 FMAX
20 CALL LBL "H5ROM_B"
57 LBL 0
58 ;SKOK OPISU
59 CYCL DEF 10.0 OBROT
60 CYCL DEF 10.1 IROT+45 ;SP.SYM.
61 CALL LBL "OPIS"
62 CYCL DEF 10.0 OBROT
63 CYCL DEF 10.1 ROT+0
33 ;SKOK NUMERU
64 L X+32 Y+32 R0 FMAX ;NA130
65 CYCL DEF 10.0 OBROT
66 CYCL DEF 10.1 ROT-90
67 ;NC_NUMER
68 LBL "NUMER"
69 CALL LBL "H5ROM_0"
70 L IX+3.5
71 CALL LBL "H5ROM_1"
72 LBL 0
73 L IX+60.5 R0 FMAX ;NA130
74 CALL LBL "NUMER"
75 CYCL DEF 10.0 OBROT
76 CYCL DEF 10.1 ROT+0
77 L Z+200 R0 FMAX M5 M9
78 L X+0 Y+360 Z+200 R0 FMAX M31
79 M30 ;-----------------------------------??????????????????????
5 LBL "H5ROM_0"
5 L Z+1 R0 FMAX M13
6 L IX-0.8298 IY-1.8905 F210
7 L Z-0.3
8 CR IX+0.0049 IY+3.7957 R+5.6099 DR-
9 CR IX+1.6661 IY+0 R+0.8802 DR-
10 CR IX+0.0049 IY-3.7957 R+5.6099 DR-
11 CR IX-1.6758 IY+0 R+0.8802 DR-
12 L Z+1
13 L IX+0.8298 IY+1.8905
14 LBL 0
5 LBL "H5ROM_1"
5 L Z+1 R0 FMAX M13
6 L IX-0.4098 IY+1.5482 F210
7 L Z-0.3
8 L IX+0.8334 IY+0.9528
9 L IY-5.0003
10 L Z+1
11 L IX-0.4236 IY+2.4992
12 LBL 0
5 LBL "H5ROM_2"
5 L Z+1 R0 FMAX M13
6 L IX+1.1719 IY-2.4992 F210
7 L Z-0.3
8 L IX-2.3332
9 L IX+1.6668 IY+2.3807
10 CR IX+0.4995 IY+1.4285 R+3.6923 DR+
11 CR IX-1.9993 IY+0 R+1.0149 DR+
12 L Z+1
13 L IX+0.9943 IY-1.3107
14 LBL 0
5 LBL "H5ROM_3"
5 L Z+1 R0 FMAX M13
6 L IX-0.8296 IY+2.501 F210
7 L Z-0.3
8 L IX+1.8323 IY+0
9 L IX-0.999 IY-1.9056
10 L IX+0.4995 IY+0
11 CR IX+0.534 IY-0.5954 R+1.0095 DR-
12 CR IX-0.0088 IY-1.7295 R+2.7775 DR-
13 CR IX-2.1906 IY+0.1831 R+1.1321 DR-
14 L Z+1
15 L IX+1.1622 IY+1.5464
16 LBL 0
5 LBL "H5ROM_4"
5 L Z+1 R0 FMAX M13
6 L IX+0.4182 IY-2.4992 F210
7 L Z-0.3
8 L IX+0 IY+5.0003
9 L IX-1.6654 IY-3.3335
10 L IX+2.4988 IY+0
11 L Z+1
12 L IX-1.2515 IY+0.8325
14 LBL 0
5 LBL "H5ROM_5"
5 L Z+1 R0 FMAX M13
6 L IX+0.8339 IY+2.501 F210
7 L Z-0.3
8 L IX-1.6668 IY+0
9 L IX-0.1656 IY-2.1432
10 CR IX+2.0356 IY-0.3579 R+1.1309 DR-
11 CR IX-0.0088 IY-1.7295 R+2.7775 DR-
12 CR IX-2.1906 IY+0.1831 R+1.1321 DR-
13 L Z+1
14 L IX+1.1622 IY+1.5464
15 LBL 0
5 LBL "H5ROM_6"
5 L Z+1 R0 FMAX M13
6 L IX+0.9158 IY+1.7857 F210
7 L Z-0.3
8 CR IX-1.6661 IY+0.1194 R+0.8599 DR+
9 CR IX-0.3325 IY-2.8571 R+6.8141 DR+
10 L Z+1
11 L IX+0.1395 IY+0.8334
12 L Z-0.3
13 CR IX+0 IY-1.6668 R+2.5597 DR+
14 CR IX+1.8865 IY+0 R+0.9775 DR+
15 CR IX+0 IY+1.6668 R+2.5597 DR+
16 CR IX-1.8865 IY+0 R+0.9775 DR+
17 L Z+1
18 L IX+0.9433 IY+0.1185
19 LBL 0
5 LBL "H5ROM_7"
5 L Z+1 R0 FMAX M13
6 L IX-1.1685 IY+2.501 F210
7 L Z-0.3
8 L IX+2.3332 IY+0
9 L IX-1.6668 IY-5.0003
10 L Z+1
11 L IX+0.5021 IY+2.4992
12 LBL 0
5 LBL "H5ROM_8"
5 L Z+1 R0 FMAX M13
6 L IX-0.1119 IY+0.4437 F210
7 L Z-0.3
8 CR IX-0.3911 IY+0.1517 R+1.7875 DR-
9 CR IX+0.503 IY+1.9056 R+1.01 DR-
10 CR IX+0.503 IY-1.9056 R+1.01 DR-
11 CR IX-0.3858 IY-0.1503 R+1.7875 DR-
12 CR IX-1.2866 IY-1.9915 R+1.6335 DR+
13 CR IX+2.3318 IY+0 R+1.1897 DR+
14 CR IX-1.2743 IY+1.9901 R+1.6216 DR+
15 L Z+1
16 L IX+0.1119 IY-0.4437
17 LBL 0
5 LBL "H5ROM_9"
5 L Z+1 R0 FMAX M13
6 L IX-0.9158 IY-1.7857 F210
7 L Z-0.3
8 CR IX+1.6661 IY-0.1194 R+0.8599 DR+
9 CR IX+0.3325 IY+2.8571 R+6.8141 DR+
10 L Z+1
11 L IX-0.1395 IY-0.8334
12 L Z-0.3
13 CR IX+0 IY+1.6668 R+2.5597 DR+
14 CR IX-1.8865 IY+0 R+0.9775 DR+
15 CR IX+0 IY-1.6668 R+2.5597 DR+
16 CR IX+1.8865 IY+0 R+0.9775 DR+
17 L Z+1
18 L IX-0.9433 IY-0.1185
19 LBL 0
5 LBL "H5ROM_-"
5 L Z+1 R0 FMAX M13
6 L IX-1.493 IY-0.3568 F210
7 L Z-0.3
8 L IX+3
9 L Z+1
10 L IX-1.507 IY+0.3568
11 LBL 0
5 LBL "H5ROM_UKOS"
5 L Z+1 R0 FMAX M13
6 L IX-1.4941 IY-4.1656 F210
7 L Z-0.3
8 L IX+2.9983 IY+7.6193
9 L Z+1
10 L IX-1.5042 IY-3.4537
12 LBL 0
5 LBL "H5ROM_A"
5 L Z+1 R0 FMAX M13
6 L IX-1.3062 IY-2.4987 F210
7 L Z-0.3
8 L IX+1.3304 IY+5.0026
9 L IX+1.3343 IY-5.0026
10 L Z+1
11 L IX-0.4451 IY+1.6688
12 L Z-0.3
13 L IX-1.7758 IY+0
14 L Z+1
15 L IX+0.8623 IY+0.8298
16 LBL 0
5 LBL "H5ROM_B"
5 L Z+1 R0 FMAX M13
6 L IX+0.3579 IY+0.1199 F210
7 L Z-0.3
8 CR IX+0 IY+2.384 R+1.2707 DR+
9 L IX-1.4996 IY+0
10 L IX+0 IY-5.0026
11 L IX+1.4996 IY+0
12 CR IX+0 IY+2.6186 R+1.4473 DR+
13 L IX-1.4996 IY+0
14 L Z+1
15 L IX+1.1417 IY-0.1199
16 LBL 0
5 LBL "H5ROM_C"
5 L Z+1 R0 FMAX M13
6 L IX+1.2722 IY-1.3066 F210
7 L Z-0.3
8 L IX-0.1692 IY-0.4768
9 CR IX-1.9957 IY+0 R+1.0537 DR-
10 CR IX+0 IY+3.5722 R+4.9353 DR-
11 CR IX+1.9957 IY+0.0053 R+1.0537 DR-
12 L IX+0.1692 IY-0.4768
13 L Z+1
14 L IX-1.2722 IY-1.3119
15 LBL 0
5 LBL "H5ROM_D"
5 L Z+1 R0 FMAX M13
6 L IX-1.1473 IY-2.4987 F210
7 L Z-0.3
8 L IX+0 IY+5.0026
9 L IX+1.1689 IY+0
10 CR IX+0.8306 IY-0.7152 R+1.1041 DR-
11 CR IX-0.0535 IY-3.7043 R+4.9353 DR-
12 CR IX-0.7771 IY-0.5831 R+1.0847 DR-
13 L IX-1.1689 IY+0
14 L Z+1
15 L IX+1.1473 IY+2.4987
16 LBL 0
5 LBL "H5ROM_E"
5 L Z+1 R0 FMAX M13
6 L IX+1.1013 IY-2.4987 F210
7 L Z-0.3
8 L IX-2.1648 IY+0
9 L IX+0 IY+5.0026
10 L IX+2.1648 IY+0
11 L Z+1
12 L IX-2.1648 IY-2.384
13 L Z-0.3
14 L IX+1.3343 IY+0
15 L Z+1
16 L IX-0.2707 IY-0.1199
17 LBL 0
4 LBL "H5ROM_F"
5 L Z+1 R0 FMAX M13
6 L IX-1.0644 IY-2.4987 F210
7 L Z-0.3
8 L IX+0 IY+5.0026
9 L IX+2.1648 IY+0
10 L Z+1
11 L IX-0.8344 IY-2.384
12 L Z-0.3
13 L IX-1.3304 IY+0
14 L Z+1
15 L IX+1.0644 IY-0.1199
12 LBL 0
4 LBL "H5ROM_G"
5 L Z+1 R0 FMAX M13
6 L IX+1.2722 IY+1.3119 F210
7 L Z-0.3
8 L IX-0.1692 IY+0.4715
9 CR IX-1.9957 IY+0 R+1.0537 DR+
10 CR IX+0 IY-3.5669 R+4.9353 DR+
11 CR IX+1.9957 IY+0 R+1.0537 DR+
12 L IX+0.1692 IY+0.4768
13 L IX+0 IY+0.7152
14 L IX-0.8306 IY+0
15 L Z+1
16 L IX-0.4417 IY+0.5914
23 LBL 0
4 LBL "H5ROM_H"
5 L Z+1 R0 FMAX M13
6 L IX-1.1507 IY-2.4987 F210
7 L Z-0.3
8 L IX+0 IY+5.0026
9 L Z+1
10 L IX+2.3302 IY+0
11 L Z-0.3
12 L IX+0 IY-5.0026
13 L Z+1
14 L IX+0 IY+2.6186
15 L Z-0.3
16 L IX-2.3302 IY+0
17 L Z+1
18 L IX+1.1507 IY-0.1199
12 LBL 0
2 LBL "H5ROM_I"
5 L Z+1 R0 FMAX M13
6 L IX+0.0135 IY-2.504 F210
7 L Z-0.3
8 L IX+0 IY+5.0026
9 L Z+1
10 L IX-0.0135 IY-2.4987
12 LBL 0
3 LBL "H5ROM_J"
5 L Z+1 R0 FMAX M13
6 L IX+0.8432 IY+2.504 F210
7 L Z-0.3
8 L IX+0 IY-3.8106
9 CR IX-0.1653 IY-0.7152 R+2.6714 DR-
10 CR IX-1.3343 IY+0 R+0.7051 DR-
11 CR IX-0.1653 IY+1.192 R+2.6714 DR-
12 L Z+1
13 L IX+0.8218 IY+0.8298
12 LBL 0
4 LBL "H5ROM_K"
5 L Z+1 R0 FMAX M13
6 L IX-1.1572 IY+2.504 F210
7 L Z-0.3
8 L IX+0 IY-5.0026
9 L Z+1
10 L IX+2.334 IY+0
11 L Z-0.3
12 L IX-1.4996 IY+2.857
13 L Z+1
14 L IX+1.4996 IY+2.1456
15 L Z-0.3
16 L IX-2.334 IY-3.3338
17 L Z+1
18 L IX+1.1572 IY+0.8298
23 LBL 0
4 LBL "H5ROM_L"
5 L Z+1 R0 FMAX M13
6 L IX+1.0068 IY-2.4987 F210
7 L Z-0.3
8 L IX-1.9957 IY+0
9 L IX+0 IY+5.0026
10 L Z+1
11 L IX+0.9889 IY-2.504
23 LBL 0
5 LBL "H5ROM_M"
5 L Z+1 R0 FMAX M13
6 L IX-1.3251 IY-2.4987 F210
7 L Z-0.3
8 L IX+0 IY+5.0026
9 L IX+1.3304 IY-5.0026
10 L IX+1.3343 IY+5.0026
11 L IX+0 IY-5.0026
12 L Z+1
13 L IX-1.3396 IY+2.4987
12 LBL 0
6 LBL "H5ROM_N"
5 L Z+1 R0 FMAX M13
6 L IX-1.1607 IY-2.4987 F210
7 L Z-0.3
8 L IX+0 IY+5.0026
9 L IX+2.3302 IY-5.0026
10 L IX+0 IY+5.0026
11 L Z+1
12 L IX-1.1695 IY-2.504
12 LBL 0
4 LBL "H5ROM_O"
5 L Z+1 R0 FMAX M13
6 L IX-0.9978 IY-1.7834 F210
7 L Z-0.3
8 CR IX+0 IY+3.5722 R+4.9353 DR-
9 CR IX+1.9957 IY+0.0053 R+1.0537 DR-
10 CR IX+0 IY-3.5669 R+4.9353 DR-
11 CR IX-1.9957 IY+0 R+1.0537 DR-
12 L Z+1
13 L IX+0.9978 IY+1.7834
12 LBL 0
4 LBL "H5ROM_P"
5 L Z+1 R0 FMAX M13
6 L IX-1.168 IY-2.4987 F210
7 L Z-0.3
8 L IX+0 IY+5.0026
9 L IX+1.4996 IY+0
10 CR IX+0.8344 IY-1.0575 R+1.2545 DR-
11 L IX+0 IY-0.5074
12 CR IX-0.8344 IY-1.0575 R+1.2545 DR-
13 L IX-1.4996 IY+0
14 L Z+1
15 L IX+1.168 IY+0.1185
12 LBL 0
4 LBL "H5ROM_Q"
5 L Z+1 R0 FMAX M13
6 L IX-0.9978 IY-1.7834 F210
7 L Z-0.3
8 CR IX+0 IY+3.5722 R+4.9353 DR-
9 CR IX+1.9957 IY+0.0053 R+1.0537 DR-
10 CR IX+0 IY-3.5669 R+4.9353 DR-
11 CR IX-1.9957 IY+0 R+1.0537 DR-
12 L Z+1
13 L IX+1.1652 IY+0.2363
14 L Z-0.3
15 L IX+0.9998 IY-1.4287
16 L Z+1
17 L IX-1.1672 IY+2.9759
12 LBL 0
4 LBL "H5ROM_R"
5 L Z+1 R0 FMAX M13
6 L IX-1.1689 IY-2.4987 F210
7 L Z-0.3
8 L IX+0 IY+5.0026
9 L IX+1.4996 IY+0
10 CR IX+0.8344 IY-0.9536 R+1.0898 DR-
11 L IX+0 IY-0.4768
12 CR IX-0.8344 IY-0.9536 R+1.0898 DR-
13 L IX-1.4996 IY+0
14 L Z+1
15 L IX+1.1651 IY+0
16 L Z-0.3
17 L IX+1.1689 IY-2.6186
18 L Z+1
19 L IX-1.1652 IY+2.4987
12 LBL 0
4 LBL "H5ROM_S"
5 L Z+1 R0 FMAX M13
6 L IX+1.1605 IY+1.7887 F210
7 L Z-0.3
8 CR IX-2.3302 IY+0 R+1.3066 DR+
9 L IX+0 IY-0.4768
10 CR IX+0.6652 IY-0.9536 R+1.2892 DR+
11 L IX+0.9998 IY-0.4768
12 CR IX+0.6652 IY-0.9498 R+1.2722 DR-
13 L IX+0 IY-0.7152
14 CR IX-2.3302 IY+0 R+1.3066 DR-
15 L Z+1
16 L IX+1.1697 IY+1.7834
12 LBL 0
4 LBL "H5ROM_T"
5 L Z+1 R0 FMAX M13
6 L IX-0.0064 IY-2.4987 F210
7 L Z-0.3
8 L IX+0 IY+5.0026
9 L Z+1
10 L IX+1.1651 IY+0
11 L Z-0.3
12 L IX-2.334 IY+0
13 L Z+1
14 L IX+1.1753 IY-2.504
12 LBL 0
3 LBL "H5ROM_U"
5 L Z+1 R0 FMAX M13
6 L IX-1.1762 IY+2.504 F210
7 L Z-0.3
8 L IX+0 IY-3.5722
9 CR IX+0.3665 IY-1.0043 R+2.3952 DR+
10 CR IX+1.5752 IY-0.039 R+0.9668 DR+
11 CR IX+0.3923 IY+1.0433 R+2.3952 DR+
12 L IX+0 IY+3.5722
13 L Z+1
14 L IX-1.1578 IY-2.504
12 LBL 0
4 LBL "H5ROM_V"
5 L Z+1 R0 FMAX M13
6 L IX-1.3424 IY+2.504 F210
7 L Z-0.3
8 L IX+1.3304 IY-5.0026
9 L IX+1.3343 IY+5.0026
10 L Z+1
11 L IX-1.3223 IY-2.504
12 LBL 0
3 LBL "H5ROM_W"
5 L Z+1 R0 FMAX M13
6 L IX-1.6778 IY+2.504 F210
7 L Z-0.3
8 L IX+0.8344 IY-5.0026
9 L IX+0.8306 IY+5.0026
10 L IX+0.8344 IY-5.0026
11 L IX+0.8344 IY+5.0026
12 L Z+1
13 L IX-1.656 IY-2.504
33 LBL 0
3 LBL "H5ROM_X"
5 L Z+1 R0 FMAX M13
6 L IX-1.1788 IY+2.504 F210
7 L Z-0.3
8 L IX+2.3302 IY-5.0026
9 L Z+1
10 L IX+0 IY+5.0026
11 L Z-0.3
12 L IX-2.3302 IY-5.0026
13 L Z+1
14 L IX+1.1788 IY+2.4987
12 LBL 0
2 LBL "H5ROM_Y"
5 L Z+1 R0 FMAX M13
6 L IX-1.3489 IY+2.504 F210
7 L Z-0.3
8 L IX+1.3343 IY-2.384
9 L IX+0 IY-2.6186
10 L Z+1
11 L IX+1.3343 IY+5.0026
12 L Z-0.3
13 L IX-1.3343 IY-2.384
14 L Z+1
15 L IX+0.0146 IY-0.1199
12 LBL 0
2 LBL "H5ROM_Z"
5 L Z+1 R0 FMAX M13
6 L IX-1.1805 IY+2.504 F210
7 L Z-0.3
8 L IX+2.3302 IY+0
9 L IX-2.3302 IY-5.0026
10 L IX+2.3302 IY+0
11 L Z+1
12 L IX-1.1497 IY+2.4987
12 LBL 0
100 END PGM ZAB_OPIS_KOL130 MM

[rollaz]

musisz wywalić z programu wywoływanego funkcje M30

[KK1966]

Witam!
Tak tylko wyrzucając M30 z programu wywołującego, symulacja na maszynie odpracuje wszystkie zdefiniowane LBLy.
W instrukcji str 557 przeczytałem że może być M30 ale z funkcją skoku
FN9: IF+0 EQU+0 GOTO LBL99 i tego nierozumię, proszę o pomoc na czym to polega??
Pozdrawiam!!

[Łuki31]

Witam
a może niech kolega wpisze w 32 lini M 30 a nie 31
A jeszcze w 78 lini wywaliłbym to M 31 a za tym bym wpisał LBL O a potem dopiero M 30
72 LBL 0
73 L IX+60.5 R0 FMAX ;NA130
74 CALL LBL "NUMER"
75 CYCL DEF 10.0 OBROT
76 CYCL DEF 10.1 ROT+0
77 L Z+200 R0 FMAX M5 M9
78 L X+0 Y+360 Z+200 R0 FMAX
79 LBL 0
80 M 30

Jeszcze pytanie co robi funkcja M 31 nie spotkałem się jeszcze z taką funkcją

[KK1966]

Witam!
A nigdy tak nie pisałem, zawsze kończyłem program M30 w osobnej linii.
Ciekawe czy to coś da.
Pozdrawiam!!

[ Dodano: 2008-08-23, 15:25 ]
Witam!
M31 posuwy bez obrotów wrzeciona.

[rollaz]

to nic nie da mailem trochę czasu i sie przyglądnąłem .
Program jest troszeczkę źle napisany (gramatycznie) obawiam sie ze nie da sie tego zrobić ponieważ gdy wywalisz M30 w programie wywoływanym to program najprawdopodobniej będzie chciał jeszcze raz robić wszystkie podprogramy.po prostu trochę to masz źle poukładane

[Łuki31]

Hej
spróbój jeszcze z programu wywoływanego wywalic definicje narzędzi i inne pierdoły zostaw zostaw sam program do wywołania powinno zadziałać
Ja bym to zrobił tak

29 L X+0 Y+58 R0 FMAX M13 M99
30 L X+0 Y-58 R0 FMAX M99
31 L Z+100 R0 FMAX M5 M9
32 L Z +100 R0 F MAX M
33 TOOL CALL 48 Z S10000
34 L Z+100 R0 FMAX M 13
32 CALL PGM ZAB_OPIS_KOL130.h ;-------wywołanie-----
33 CYCLE CAAL M
32 L X+0 Y+360 Z+100 R0 FMAX M30
33 END PGM LBL_M12 MM



-----------prog---wywołany-----
0 BEGIN PGM ZAB_OPIS_KOL130 MM
1 L Z+100 R0 FMAX M31
2 CYCL DEF 10.0 OBROT
3 CYCL DEF 10.1 IROT-163 ;POCZ.OPISU
4 L X+0 Y-44 R0 FMAX M31 ;Y=R
5 L Z+5 R0 FMAX M31
6 LBL "OPIS"

a napisz jeszcze w którym momencie zatrzymuje Ci się program bo może będzie trzeba wyrzucić któreś LBL 0 myśle że po paru zmianach w programie wywoływanym powino pójść