Stama MC010
Stama MC010
Stama MC010
General Description
General Information:
Display Format:
Output Format:
Control Description
Linear interpolation:
RAPID positioning:
Spline interpolation:
Machine Description
Linear axes:
Canned Cycles:
Post-processor Customization
Startup/Shutdown Procedures:
| $$
| IF/FSTBLK.EQ.$TRUE
| GOTO/$XM,$YM,$ZM
| IF/(MULTTL.EQ.1)
| PPFUN/7,'G',43
| PPFUN/7,'H',HOLNUM+10
| ACTCCM=$TRUE
| FSTBLK=$FALSE
| ENDOF/IF
| PPFUN/8,ALL,ON
| GOTO/$XM,$YM,$ZM
| ENDOF/IF
| PPFUN/9,-1
| IF/$FCLREC().EQ.SPLPOS-4
| $$ PPFUN/7,'G',54
| $$ PPFUN/7,'G',49
| PPFUN/8,'Z',0
| PPFUN/8,'F',0
| INSERT/'!(@g)!(@g)Z0.',0,49
| $$
| ACTCCM=$FALSE
| $$
| $$
| $$
| $$
| $$
| $$purging 3-rd coordinate Z (2.5 axis)
| $$
| ENDOF/IF
| IF/%G99.NE.0
| INSERT/'(NEXT Z-COORD WILL BE REMOVED IN FREE BLOCK)'
| PPFUN/11,'Z',1
| %G99=0
| ENDOF/IF
6.20 Motion shutdown macro: [Yes,No] ................................... Yes
1: Custom macro
| $$$
| $$
| IF/($XM-$NXM).NE.0.AND.($YM-$NYM).NE.0.AND.($ZM-$NZM).NE.0
| %G99=1
| $$ INSERT/'***************************'
| ENDOF/IF
| $$
| $$
| $$
| TERMAC
7.00 Tape macro: [Yes,No] ............................................... No
Tape Editor:
5: Replace _ by "."
6: Replace --- by "***"
7: Replace --- by "***"
1 : Enabled
| CYCLE/DEEP,DEPTH,$P1,STEP,$P2,(IPM,MMPM,IPR,MMPR),$P3,CLEAR,$P4,[RETURN$
| ,$P5]
| $$
| INSERT/'!(@f)',$P3
| PPFUN/7,'G',83
| PPFUN/7,'X',$XM
| PPFUN/7,'Y',$YM
| PPFUN/7,'R',$NZM+$P4
| PPFUN/7,'Z',$NZM-$P1
| PPFUN/8,'Z',0
| PPFUN/7,'Q',$P2
| $$
| TERMAC
2 : Enabled
| CYCLE/CSINK,DIAMET,$P1,TLANGL,$P2,(IPM,MMPM,IPR,MMPR),$P3,CLEAR,$P4,[ $
| RETURN,$P5]
| $$
| INSERT/'!(@f)',$P3
| PPFUN/7,'G',73
| PPFUN/7,'X',$XM
| PPFUN/7,'Y',$YM
| %L00=$NZM+$P4
| PPFUN/7,'R',%L00
| %L99=$NZM-($P1/(2*$FTAN($P2/2)))
| PPFUN/7,'Z',%L99
| PPFUN/8,'Z',0
| PPFUN/7,'Q',$FABS(%L99-%L00)
| $$
| TERMAC
3 : Disabled
| CYCLE/DRILL,$P1,$P2(IPM,MMPM,IPR,MMPR),$P3,$P4,[$P5],[DWELL,$P6],[$P7*]
| CYCLE/DEEP,$P1,INCR,$P1,$P2,$P3,$P4,$P5
4 : Disabled
| CYCLE/TAP,*
| $$ Special feedrate register:
| PPFUN/8,'F','P03'
| OUTPUT
5 : Enabled
| CYCLE/OFF
ICAM Technologies Pro/NCPOST QUEST Release 2000i-9949 23-Feb-2003 09:52
(c) Copyright 1999 Page 14
POST-PROCESSOR STAMA,1
| $$
| PPFUN/7,'G',80
| PPFUN/7,'F',1000
| PPFUN/8,ALL,ON
| TERMAC
1 : Enabled
| GOHOME
| $$
| TERMAC
1 : Enabled
| LOADTL/$P1
| $$
| HOLNUM=$P1
| $$
| CURPOS=$FCLREC()
| NXTPOS=$FGET(LOADTL,$FCLREC()+1)
| $$
| IF/NXTPOS.GT.CURPOS
| MULTTL=MULTTL+1
| ENDOF/IF
| $$
| $$
| IF/MULTTL.GE.2
| INSERT/'!(@t)!(@m)',$P1,6
| ELSEIF/MULTTL.EQ.1
| PPFUN/8,'Z',0
| ENDOF/IF
| $$
| $$
| FSTBLK=$TRUE
| $$
| TERMAC
1 : Enabled
| PPRINT/$P1''
| $$
| $$
| $$INSERT/'----!(*)----',$FSUBST($P1,2,$FINDEX($P1,':')-1)
| %L00=$FSUBST($P1,2,$FINDEX($P1,':')-2)
| CASE/%L00
| WHEN/'SEQUENCE TYPE'
ICAM Technologies Pro/NCPOST QUEST Release 2000i-9949 23-Feb-2003 09:52
(c) Copyright 1999 Page 15
POST-PROCESSOR STAMA,1
| CLINFO='SEQ-->'//$FSUBST($P1,$FINDEX($P1,':')+2,$FLEN($P1)-1)
| WHEN/'TOOL NAME'
| %G00=$FSUBST($P1,$FINDEX($P1,':')+2,$FLEN($P1))
| CLINFO='NOT PRINT!'
| WHEN/'TOOL POSITION NUMBER'
| %L00=$FSUBST($P1,$FINDEX($P1,':')+2,$FLEN($P1)-3)
| CLINFO='TL-->'//%G00//'HOLDER-->'//%L00
| WHEN/'OPERATION NAME'
| CLINFO='DET-->'//$FSUBST($P1,$FINDEX($P1,':')+2,$FLEN($P1))
| WHEN/'SCALE'
| CLINFO='PROGRAM Zmin = '
| ENDOF/CASE
| IF/CLINFO.NE.'NOT PRINT!'
| INSERT/'(!(*))',CLINFO
| ENDOF/IF
| TERMAC
| $$
1 : Enabled
| RAPID
| $$
| FEDRAT/3000,MMPM
| TERMAC
1 : Enabled
| SPINDL/RPM,$P1,$P2(CLW,CCLW)
| $$
| $$
| SPLPOS=$FGET(SPINDL,$FCLREC()+1)
| $$--->program ending
| IF/$FGET(GOHOME,SPLPOS-4,SPLPOS).NE.0
| SPLPOS=SPLPOS-4
| ENDOF/IF
| $$
| $$PPFUN/7,'G',1
| SPINDL/RPM,$P1,$P2
| $$
| TERMAC
2 : Enabled
| SPINDL/OFF
| $$
| %L00=$FCLREC()
| %L11=$FGET(STOP,%L00,%L00+5)
| $$ M06--> coding
| IF/MULTTL.GE.2.AND.($FABS(%L11-%L00).GE.5)
| SPINDL/OFF
ICAM Technologies Pro/NCPOST QUEST Release 2000i-9949 23-Feb-2003 09:52
(c) Copyright 1999 Page 16
POST-PROCESSOR STAMA,1
| ENDOF/IF
| TERMAC
ICAM Technologies Pro/NCPOST QUEST Release 2000i-9949 23-Feb-2003 09:52
(c) Copyright 1999 Page 17
POST-PROCESSOR STAMA,1
Code Description
Code Description
2 ...................................................................... END
2 ..................................................................... STOP
3 ............................................... Clockwise spindle rotation
4 ....................................... Counter-clockwise spindle rotation
5 .................................................... Stop spindle rotation