$$ //BRIGGS B!PART/M2B/LR10-1/LR10-1MAC.APT

$$ READ BY LR10-1 SOURCE PROGRAMS

$$ TO PROVIDE MACHINE FUNCTIONS FROM A COMMON FILE,

$$WRKSPC -5,-2,0,.5,0,0

HD1ST=MACRO/HD1TL1=6,SRPM2=SRPM1,FEED2=FEED1,OAL2=OAL1,CTR2=C1

REWND1=0 $$ REWND1 = 1 IF PART HAS REWIND PILOT

$$ HEAD 1 START MACRO

$$ CALLED FROM OTHER MACROS THAT CREATE SPECIFIC MACHINE MOTIC

$$ CREATED TO REDUCE PROCESSING TIME, BY REDUCING REDUNDENCY

$$ AMONG THE MACROS THAT CALL IT

CALL/LR10TL

MULTAX/OFF

PLO = PLANE/O,O,l,O

FEDRAT/IPR,FEED2

PPRINT

PPRINT HEAD 1

PPRINT

IF(CTR2-.438)L2,L2,L1

L1)OAL3=OAL2

JUMPTO/L3

L2)OAL3=OAL2+COTANF(30)*(.438/2-CTR2/2)

L3)TRACUT/(MATRIX/TRANSL,OAL3,0,0)

INSERT/'VPVLZ=VZOFZ+.15+', (CONVRT(OAL3,2,4»

IF (REWND1)L4,L4,L5

L4)CONTIN

INSERT/(V1 = TAPER COMPo FROM RIGHT)

INSERT/(TO LEFT ON BEARING DIAMETER)

INSERT/(V2 = TAPER COMPo FROM)

INSERT/(THRUST FACE O.D. TO BEARING)

JUMPTO/L6

L5)CONTIN

INSERT/(V1 = TAPER COMPo FROM RIGHT)

INSERT/(TO LEFT ON REWIND PILOT)

INSERT/(V2 = TAPER COMPo FROM RIGHT)

INSERT/(TO LEFT ON BEARING DIAMETER)

INSERT/(V3 = TAPER COMPo FROM RIGHT)

INSERT/(THRUST FACE O.D. TO BEARING)

L6)CONTIN

INSERT/CALL 01002 (TAPER COMPo CHECK)

INSERT/'CALL 01001 TL1=',(CONVRT(HD1TL1,2,0),' (INDEX ALARM)'

PREFUNjl10,NEXT

AUXFUN/61,NEXT $$

AUXFUNj64,NEXT $$

AUXFUN/90 $$

AUXFUN/56 $$

AUXFUN/83 $$

AUXFUN/62 $$

AUXFUN/100

RAPID,GOTO/20-0AL3,10,0

$$AUXFUN/65,NEXT

$$AUXFUN/66,NEXT

LOADTL/HD1TL1

CUTTER/O

SYNCH/10

AUXFUN/61,NEXT

AUXFUNj63,NEXT

SPINDLjRPM,SRPM2,CLW,RANGE,2,NEXT

COOLNT/ON,NEXT

TERMAC

$$

DO NOT WAIT FOR SPINDLE ANSWER SIGNAL

DO NOT WAIT FOR ANSWER G CODE

DOOR CLOSE

TAILSTOCK ADVANCE

CHUCK CLAMP

CONFIRM ANSWER SIGNAL PREVIOUSLY IGNORED