Example of a local sub on a Moriseiki CL25 Lathe

[david rendon]

Hello,
Will somebody share an example on how to call a local subprogram in a Mori Lathe?
thanks

[fordav11]

M98 P1234

calls sub program O1234

[david rendon]

This was my first aproach, but for some reason didnt work ...
N7(SPOT DRILL 3/8" X 90 GRDS)
G28U0W0
G54
G0T707
M8
G97S950M3
G0X0.Z.5
Z.2
G1Z-.15F0.001
G0Z0.5
M9
G28U0W0
M1

N8(COBALT DRILL "M"--- 0.295")
G28U0W0
G54
G0T303
M8
G97S950M3
G0X0.Z.75
Z.25
G74Z-1.25K0.1Q30F0.0015
G0Z.7
M9
G28U0W0
M1


(CORRIDA DE SUB)
G54
M98 P1001
G55
M98 P1001
G56
M98 P1001
G57
M98 P1001
G58
M98 P1001
M99





O1001
N4(DESBASTE EXTERIOR)
(CNMG431)
G28U0.0W0.0
G0T505
M8
G50S2000
G96S300M03
G0X.6
Z.15
G71P10Q20U0.00W0.00D400F0.007
N10G1X.50
Z-.218
N20X.6
M9
G28U0.0W0.0
M5
M1


N9(DESBASTE INTERIOR)
(BORING BAR HERTEL TRIGON)
(INSERTO TRIGON R.004)
G28U0.0W0.0
G0T909
M8
G50S2000
G96S320M03
G0X0.29
Z0.05
G71P30Q40U0.0W0.0D200F0.004
N30G1X.332
Z-.12
N40ZX.29
G0Z.05
M5
M9
G28U0.0W0.0
M5
M1

[txcncman]

N7(SPOT DRILL 3/8" X 90 GRDS)
G28U0W0
G54
G0T707
M8
G97S950M3
G0X0.Z.5
Z.2
G1Z-.15F0.001
G0Z0.5
M9
G28U0W0
M1

N8(COBALT DRILL "M"--- 0.295")
G28U0W0
G54
G0T303
M8
G97S950M3
G0X0.Z.75
Z.25
G74Z-1.25K0.1Q30F0.0015
G0Z.7
M9
G28U0W0
M1


(CORRIDA DE SUB)
G54
M98 P1001
G55
M98 P1001
G56
M98 P1001
G57
M98 P1001
G58
M98 P1001
M99 <<<< Goes at end of sub
<<<<Add M30
<<<<Add %

<<<<Add %
O1001
N4(DESBASTE EXTERIOR)
(CNMG431)
G28U0.0W0.0
G0T505
M8
G50S2000
G96S300M03
G0X.6
Z.15
G71P10Q20U0.00W0.00D400F0.007
N10G1X.50
Z-.218
N20X.6
M9
G28U0.0W0.0
M5
M1

N9(DESBASTE INTERIOR)
(BORING BAR HERTEL TRIGON)
(INSERTO TRIGON R.004)
G28U0.0W0.0
G0T909
M8
G50S2000
G96S320M03
G0X0.29
Z0.05
G71P30Q40U0.0W0.0D200F0.004
N30G1X.332
Z-.12
N40ZX.29
G0Z.05
M5
M9
G28U0.0W0.0
M5
M1
<<<Add M99
<<<Add %

[fordav11]

hmmm, yes. basically you called the sub OK but there was no M99 at the end of the sub so it didn't come back to where it was before.

subs must end with M99.....

[david rendon]

Cool guys!!