*0700021 ART * CARDS COLUMN * UNPACK * LABEL 40060010 * FAP 40060020 COUNT 50 40060030 *4006 XPOST - POST PROCESSOR TABLE FUNCTION 40060040 * 40060050 * EACH POST PROCESSOR ON THE LIBRARY TAPE IS 40060060 * ASSOCIATED WITH ITS LIBRARY TAPE NUMBER ASSIGNMENT. 40060070 * PRECEEDING EACH NAME IN THE LIST IS THE IDENTIFICATION NUMBER. 40060080 * ORDER OF POST PROCESSORS IN LIST AND NUMBER ASSIGNED 40060090 * MAY BE DETERMINED AT THE INDIVIDUAL INSTALLATION 40060100 * DEPENDING ON ORDER OF POSTPROCESSORS ON TAPE AND AVAILIBILITY 40060110 * IF NUMBER # 0, THEN PROGRAM IS NOT ON LIBRARY TAPE 40060120 * 40060130 ENTRY XPOST 40060140 XPOST CAL LCOM 40060150 SBM LTAB 40060160 TRA 1,4 40060170 LTAB PZE 0,0,TAB 40060180 DAT COMMON 1 40060190 LCOM PZE 0,0,DAT&1 40060200 * SPACE TO ADD 5 ADDITIONAL POST PROCESSORS 40060210 BSS 12 40060220 PZE 0,0,480 40060230 BCI 1,SC4020 40060240 PZE 0,0,478 40060250 BCI 1,FOSDIK 40060260 PZE 0,0,476 40060270 BCI 1,SUNTRN 40060280 PZE 0,0,474 40060290 BCI 1,DVLIEG 40060300 PZE 0,0,472 40060310 BCI 1,PROBOG 40060320 PZE 0,0,470 40060330 BCI 1, BURG 40060340 PZE 0,0,464 40060350 BCI 1,TRUTRA 40060360 PZE 0,0,4614 AL40060362 BCI 1,BR3100 AL40060364 PZE 0,0,458 40060370 BCI 1, CINCY 40060380 PZE 0,0,456 40060390 BCI 1,PRATTW 40060400 PZE 0,0,450 40060410 BCI 1, ECS 40060420 PZE 0,0,488 AL40060430 BCI 1,TRWOM2 AL40060440 PZE 0,0,435 40060450 BCI 1,DYNPAT 40060460 PZE 0,0,425 40060470 BCI 1,CONCRD 40060480 PZE 0,0,420 40060490 BCI 1,MILWAK 40060500 PZE 0,0,415 40060510 BCI 1,GECENT 40060520 PZE 0,0,405 40060530 TAB BCI 1,BENDIX 40060540 END 40060550 * UNPACK * BR000000 * BR000100 * BR000200 * BR000300 *******STATUS TABLE******* BR000400 * BR000402 * 11-22-66 P.S.C.S./ART LEVINE PS1BR000404 * ADDITIONS TO IMPLEMENT TURCHAN %MACHIN/BR3100,72) BR000406 * BR000408 * BR000500 * LABEL BR000600 * CARDS COLUMN BR000700 * FAP BR000800 COUNT 5 BR000900 *46141 SPACER MAIN PROGRAM FOR BR3100 BR001000 * CHECK THE FOLLOWING CARDS FOR SYSTEM**** BR001100 * HOOKUP. BR001600,BR004800,BR004900,BR007500,BR008900 BR001200 PZE 0,0,4614 BR001300 TSX $BR3100, BR001400 MZE LAST BR001500 LAST BES 7192 2BBR001600 END BR001700 * LABEL BR001800 * CARDS COLUMN BR001900 * UNPACK BR001950 * FAP BR002000 COUNT 50 BR002100 *46142 SECTION 0 CONNECTOR PROGRAM BR002200 ENTRY TAPERD BR002300 ENTRY TAPEWT BR002400 ENTRY TAPEOP BR002500 ENTRY TAPECH BR002600 ENTRY SEARCH BR002700 ENTRY BUFFTP BR002800 ENTRY CARDPN BR002900 ENTRY PRCNTL BR003000 ENTRY LBSRCH BR003100 ENTRY DYNDMP BR003200 ENTRY DUMP BR003300 ENTRY PDUMP BR003400 ENTRY %STH) BR003500 ENTRY %FIL) BR003600 ENTRY %TSH) BR003700 ENTRY %RTN) BR003800 ENTRY SIN BR003900 ENTRY COS BR004000 ENTRY SQRT BR004100 ENTRY ATAN BR004200 ENTRY %STHM) BR004300 ENTRY %TSHM) BR004400 ENTRY REDPRT BR004500 ENTRY CARDRD BR004600 ENTRY SPECPN BR004700 ENTRY %SPH) 2BBR004800 FIRST EQU 100 2BBR004900 TAPERD TRA* FIRST&1 TRANSFER TO SECTION 0 BR005000 TAPEWT TRA* FIRST&2 ROUTINES VIA THE BR005100 TAPEOP TRA* FIRST&3 SECTION 0 MAIN PROGRAM BR005200 TAPECH TRA* FIRST&4 TRANSFER VECTOR LIST BR005300 SEARCH TRA* FIRST&5 BR005400 BUFFTP TRA* FIRST&6 BR005500 CARDPN TRA* FIRST&7 BR005600 PRCNTL TRA* FIRST&8 BR005700 LBSRCH TRA* FIRST&9 BR005800 DYNDMP TRA* FIRST&10 BR005900 DUMP TRA* FIRST&11 BR006000 PDUMP TRA* FIRST&12 BR006100 %STH) TRA* FIRST&13 BR006200 %FIL) TRA* FIRST&14 BR006300 %TSH) TRA* FIRST&15 BR006400 %RTN) TRA* FIRST&16 BR006500 SIN TRA* FIRST&17 BR006600 COS TRA* FIRST&18 BR006700 SQRT TRA* FIRST&19 BR006800 ATAN TRA* FIRST&20 BR006900 %STHM) TRA* FIRST&21 BR007000 %TSHM) TRA* FIRST&22 BR007100 REDPRT TRA* FIRST&23 BR007200 CARDRD TRA* FIRST&24 BR007300 SPECPN TRA* FIRST&25 BR007400 %SPH) TRA* FIRST&26 2BBR007500 END BR007600 * LABEL BR007700 * CARDS COLUMN BR007800 * UNPACK BR007850 * FAP BR007900 COUNT 12 BR008000 *46143 SECTION 4 CONNECTOR PROGRAM BR008100 * THIS PROGRAM PROVIDES ENTRY TO SECTION 4 ROUTINES FROM BR008200 * POST PROCESSOR LINKS BR008300 ENTRY DISPAT BR008400 ENTRY PRNTOF BR008500 * FIRST IS FIRST CELL WHICH IS LOADED WITH PROGRAMS BR008700 * BY THE FORTRAN LOADER BR008800 FIRST EQU 100 2BBR008900 SPACE EQU 5700&4 SPACER SIZE OF SECTION 4 MAIN PROGRAM 2BBR009000 DISPAT TRA* FIRST&SPACE BR009100 PRNTOF TRA* FIRST&SPACE&2 BR009200 END BR009400 * LABEL BR009500 * CARDS COLUMN BR009600 * UNPACK BR009650 * FAP BR009700 COUNT 6000 BR009800 *46144 BR3100 POST PROCESSOR---APT III BR009900 ENTRY BR3100 BR010000 REM BR010100 * SYSTEM COMMON, DIMENSION, AND EQUIVALENCE STATEMENTS FOR FAP BR010200 NOTAPS EQU 18 NUMBER OF TAPES BR010300 NOFLGS EQU 70 NUMBER OF FLAGS IN FLAG AREA BR010400 BUFNUM EQU 4 NUMBER OF BUFFERS BR010500 NOBLKS EQU 4 NO. OF BLOCKS ALLOWED TAPEWT CALL SEQ. BR010600 BUFSIZ EQU 400 SIZE OF ONE BUFFER BLOCK BR010700 ****************************** BR010800 SYSTEM COMMON 8 BR010900 KFLAGS COMMON NOFLGS BR011000 TAPETB COMMON NOTAPS BR011100 BUFTBL COMMON BUFNUM BR011200 BUFER1 COMMON BUFSIZ BR011300 BUFER2 COMMON BUFSIZ BR011400 BUFER3 COMMON BUFSIZ BR011500 BUFER4 COMMON BUFSIZ BR011600 KOM EQU SYSTEM BR011700 KAPTID EQU KOM-7 IDENTIFICATION OF LAST LIBTAP RECORD BR011800 KAPTIO EQU KOM-6 APT I-O COMMAND BR011900 KAPTTR EQU KOM-5 TRANSFER TO LAST SECTION READ FROM LIBTAP BR012000 KAPTCN EQU KOM-4 CONTINUATION FLAG BR012100 K0 EQU KFLAGS-10 KFLAGS%11) BR012200 K1 EQU KFLAGS-11 BR012300 K2 EQU KFLAGS-12 BR012400 K3 EQU KFLAGS-13 BR012500 K4 EQU KFLAGS-14 BR012600 K5 EQU KFLAGS-15 BR012700 K6 EQU KFLAGS-16 BR012800 K7 EQU KFLAGS-17 BR012900 K8 EQU KFLAGS-18 BR013000 K9 EQU KFLAGS-19 BR013100 IWAVEN EQU KFLAGS-30 KFLAGS%31) BR013200 IPTNLY EQU KFLAGS-31 BR013300 NOPOST EQU KFLAGS-32 BR013400 INVERT EQU KFLAGS-33 BR013500 KAUTOP EQU KFLAGS-34 BR013600 ICLPRT EQU KFLAGS-35 BR013700 INDEXX EQU KFLAGS-36 BR013800 IPLOTR EQU KFLAGS-37 BR013900 NOPLOT EQU KFLAGS-39 BR014000 KDYNFG EQU KFLAGS-40 BR014100 LOCJPT EQU KFLAGS-41 BR014200 LOCBEG EQU KFLAGS-42 BR014300 KSECIN EQU KFLAGS-43 BR014400 NCLREC EQU KFLAGS-44 BR014500 IPOSTP EQU KFLAGS-50 BR014600 NUMPST EQU KFLAGS-51 BR014700 PROTAP EQU TAPETB BR014800 CANTAP EQU TAPETB-1 BR014900 CLTAPE EQU TAPETB-2 BR015000 POCTAP EQU TAPETB-3 BR015100 PLOTAP EQU TAPETB-4 BR015200 SRFTAP EQU TAPETB-5 BR015300 LIBTAP EQU TAPETB-6 BR015400 TAPES1 EQU TAPETB-10 BR015500 TAPES2 EQU TAPETB-11 BR015600 TAPES3 EQU TAPETB-12 BR015700 TAPES4 EQU TAPETB-13 BR015800 INTAPE EQU TAPETB-15 BR015900 IOUTAP EQU TAPETB-16 BR016000 PUNTAP EQU TAPETB-17 BR016100 ****************************** BR016200 BLKSIZ EQU 245 BR016300 NOLINE EQU 40 BR016400 COMMON BSS 50 BR016500 EJECT BR016600 * THE BR3100 APT POST PROCESSOR FOR BR016700 * MACHINE TOOLS WITH BUNKER RAMO BR016800 * 3100 CONTROL SYSTEMS BR016900 REM BR017000 SQROOT TMI 1,4 BR017100 TXI *&1,4,-1 BR017200 SXA FLEXIT,4 BR017300 CALL SQRT BR017400 FLEXIT AXT **,4 BR017500 TRA 1,4 BR017600 REM THE FOLLOWING SECTION CONTAINS CARDS WHICH MAY BE CHANGED AT BR017700 REM ASSEMBLY TIME TO YIELD DESIRED RESULTS BR017800 REM BR017900 HOLRIT PZE 0 INSTALLATION CARD FORMAT. SET TO 1 FOR HOLLERITH BR017910 CPRINT PZE 1 0 # NO COORDINATE PRINTOUT BR018000 SEQNUM PZE 0 0 # NO SEQ. NO. IN CONTROL TAPE, 1 # SEQ. NO. INBR018100 BOTROW PZE 8 THIS CARD ROW IS BOTTOM CHANNEL ON CONTROL TAPE,BR018200 RUNDMP PZE 0 0 # NO RUNNING DUMPS, 1 # RUNNING CHECKOUT DUMPS BR018300 GPRINT PZE 0 1 # G$READ PRINTOUT,0 # NONE 4BBR018400 NOAXIS PZE 3 BR018500 CDLEAD DEC 5 CARDS OF LEADER 7.2 INCH /CARD BR018600 PRINTD PZE 0 1 # NO DELTA PRINTOUT BR018700 HEADON BCI 4,%1H0/1H ,19X,6HBR3100) BR018800 REM BR018900 REM THIS IS THE CONTROL SECTION FOR THE BR019000 * BR3100 POST PROCESSOR BR019100 REM BR019200 D HED BR019300 KOKO PZE 1 BR019400 KNT BCI 1,BR3100 BR019500 BR3100 TSX $PRNTOF,4 BR019600 PON 8,1 BR019700 TXH KNT,2,1 BR019800 TSX $%SPH),4 NAME ON-LINE *BR019900 TSX HEADON *BR020000 TSX $%FIL),4 *BR020100 CALL TAPEOP,CLTAPE,1B17,ISWERR BR020200 CALL BUFFTP,CLTAPE,2B17 BR020300 * INITIALIZE POST PROCESSOR 2BBR020400 TSX INLOG,4 INITIALIZE CONTL,DYNAMICS&AUX FUNCT 2BBR020500 TSX K$INITL,4 INITIALIZE OUTPUT SECTION 2BBR020600 TSX G$INILR,4 INITIALIZE READ AND DISPATCH 2BBR020700 * 2BBR020800 TRA MODAL SET PARAMETERS FOR NOMINAL MACHINE BR020900 COTL LXD DATAP,2 INITIALLY 2S COMP OF DATA BR021000 LXD FLO,1 INITIALLY FLO EQU 3 BR021100 LXA ISW,4 IS IMMEDIATE SWITCH SET-INITIALLY # 0 BR021200 TXH AUXN,4,0 YES BR021300 CCC TSX G$READ,4 4BBR021400 PZE TE,,7 BR021500 TRA FINALR CLTAPE ERROR, DIAG. FROM G$READ *BR021600 TRA *&2 NORMAL RETURN BR021700 TRA FINAL FINAL EXIT BR021800 CLA GPRINT MAKE PASS AND PRINTOUT ONLY 4BBR021900 TNZ PKTYP FOR G$READ SECTION OUTPUT 4BBR022000 CLA KOKO BR022100 TZE *&3 BR022200 STZ KOKO BR022300 NOP IGNORE SUND AT PRESENT BR022400 FNFORM DEC 0 IF NON-ZERO, F OF XX.XX IS USED BR018710 CLA TE N CODE 1&3 # FEED RATE 2 # NON MOTION BR022500 CAS LOC2 BR022600 TRA *&2 BR022700 TRA AUX NON MOTION DATA BR022800 CAS #4.0 MAKE TEST FOR CIRCLE 4BBR022900 TRA *&2 INTERPOLATION DATA 4BBR023000 TRA CIRIN CIRCLE DATA HERE 4BBR023100 LXA LOC6,4 BR023200 RCOR LDQ TE&7,4 TE&1-TE&6 BR023300 SXD CNT4,4 ROUND FR, X, Y, Z, A, C BR023400 TSX RN4,4 TO NEAREST MACHINE INCREMENT BR023500 LXD CNT4,4 BR023600 STQ TE&7,4 BR023700 TIX RCOR,4,1 BR023800 TXL PT3,1,1 THIRD POINT BR023900 TXL PT2,1,2 SECOND POINT BR024000 TSX ACEPT,4 PLACE IN DATA-DATA&6 LOCATIONS BR024100 TXI *&1,1,-1 FIRST POINT BR024200 SXD FLO,1 REDUCE COUNTER BR024300 SXD DATAP,2 SAVE DATA REGION BR024400 LXA LOC5,4 BR024500 SETPT CLA DATA&7,4 SAVE FIRST POINT AS SET POINT BR024600 STO XCOOR&5,4 BR024700 STO XMAX&5,4 SAVE FOR DELTA BR024800 STO XMIN&5,4 SUMMATION CHECK BR024900 TIX SETPT,4,1 BR025000 LXA LOC5,2 PLACE ORIGINAL SET POINT BR025100 LDQ DATA&7,2 AS OCTAL INTEGERS BR025200 FMP SCALE IN THE OUTPUT PACKAGE BR025300 LRS 35 FOR SUMMATION OF BR025400 TSX OCTAL,4 DELTA MOTIONS BR025500 STO SHOVE&21,2 BR025600 TIX *-5,2,1 BR025700 CLA LOC1 FORCE PRINT SETPOINT EVEN IF BR025800 STO PRECLU COORDINATE PRINTOUT IS SUPPRESSED BR025900 STO KOUTSW 4BBR026000 CLA DATA&4 SAVE ORIGINAL Z SETPOINT VALUE BR026100 STO ZSEPT FOR MODEL 21 TOOL CHANGE BR026200 TRA COTL BR026300 PT2 TSX DELTA,4 CALC DELTAS BR026400 HTR DATA BR026500 HTR TE BR026600 TSX ER1,4 MACHINE AXIS LIMIT EXCEEDED BR026700 CLA TE&7 IS DELTA M LARGER THAN BR026800 CAS MNDIS MINIMUM MACHINE INCREMENT BR026900 TRA *&3 BR027000 TRA *&2 BR027100 TRA COTL NO-IGNORE THIS POINT BR027200 TSX ACEPT,4 BR027300 SXD DATAP,2 BR027400 TXI *&1,1,-1 BR027500 SXD FLO,1 BR027600 TRA COTL BR027700 PT3 TSX DELTA,4 BR027800 HTR DATA&7 BR027900 HTR TE BR028000 TSX ER1,4 MACHINE AXIS LIMIT EXCEEDED BR028100 CLA TE&7 DELTA MAX BR028200 CAS MNDIS BR028300 TRA *&3 BR028400 TRA *&2 BR028500 TRA COTL IGNORE THIS POINT BR028600 TSX ACEPT,4 BR028700 3FUL LXA LOC7,4 PLACE DATA REGIONS BR028800 3FU CLA DATA&14,4 BR028900 STO LINE1&7,4 REGIONS BR029000 TIX 3FU,4,1 BR029100 LXA LOC7,4 BR029200 FUL3 CLA DATA&21,4 BR029300 STO LINE2&7,4 BR029400 TIX FUL3,4,1 BR029500 CLA FRPNT 1 PLACE 2BBR029600 TZE BYC 2 THESE 2BBR029700 STZ FRPNT 3 FIVE 2BBR029800 TRA ABC 4 CARDS 2BBR029900 FRPNT PZE 1 5 TOGETHER 2BBR030000 REM BR030100 REM LINE PROCESSING CYCLE FOLLOWS BR030200 REM BR030300 ABC TSX DELTA,4 CALC DELTAS FOR BR030400 PZE DATA LINE 1 BR030500 PZE LINE1 BR030600 TSX ER1,4 MACHINE AXIS LIMIT EXCEEDED BR030700 TSX VLT,4 CALC AXIS VELOCITIES BR030800 PZE LINE1 AND CHECK LIMITS FOR LINE 1 BR030900 PZE LINE1&15 BR031000 TSX ER2,4 SQUARE ROOT ERROR BR031100 BYC TSX AUTOL,4 IS LENGTH ENOUGH FOR AUTO 2BBR031200 PZE LINE1 LOCATION OF CODE WORD BR031300 PZE LINE1&7 DELTA MAX BR031400 CLA LINE1 BR031500 SUB SP3 IFRO CODE BR031600 TZE AUTO BR031700 CLA AUXSW BR031800 TNZ BYPS BR031900 CLA ONSW CIRCLE INTERPOLATION 4BBR032000 TNZ BYPS CONTROL FLOW 4BBR032100 BYABC TSX DELTA,4 DELTAS FOR LINE 2 BR032200 PZE DATA&7 BR032300 PZE LINE2 BR032400 TSX ER1,4 MACHINE AXIS LIMIT EXCEEDED BR032500 TSX VLT,4 VELOCITIES FOR LINE 2 BR032600 PZE LINE2 BR032700 PZE LINE2&15 BR032800 TSX ER2,4 SQUARE ROOT ERROR BR032900 BYPS TSX WRK,4 ACCELERATION BLOCKS FOR LINE 1 BR033000 PZE LINE1 BR033100 NOP ERROR EXIT, NOT USED AT PRESENT BR033200 TSX STORE,4 PLACE BLOCK%S) IN REWRK REGION BR033300 TSX FOFF,4 SET BEGINNING LOC OF CURRENT REWRK BLOCK BR033400 TSX AUTOL,4 IS LENGTH ENOUGH FOR AUTO BR033500 PZE LINE2 LOC OF CODE WORD BR033600 PZE LINE2&7 DELTA MAX BR033700 CLA LINE2 BR033800 SUB SP3 IFRO CODE BR033900 TZE 1S2A LINE 1 STEP, LINE 2 AUTO BR034000 CLA AUXSW BR034100 TNZ 1S2A BR034200 CLA ONSW 4BBR034300 TNZ RSUB 4BBR034400 TSX CRNR,4 CALC MAJOR AXIS INCOMING AND OUTGOING VELOCITIESBR034500 PZE IMAGE&9 INCOMING AXIS VELOCITIES BR034600 PZE LINE2&18 OUTGOING AXIS VELOCITIES BR034700 NOP ERROR EXIT, NOT USED AT PRESENT BR034800 BCRN CLA COR1 ENDING MAJOR AXIS VELOCITY FOR LINE 1 BR034900 STO CORA BR035000 TSX REWK,4 DECELERATION BLOCKS FOR LINE 1 BR035100 PZE LINE1 BR035200 PZE LINE2 BR035300 TSX ER3,4 ILLEGAL BLOCK IN REWRK STORAGE BR035400 TSX STORY,4 PLACE BLOCK%S) IN REWRK REGION BR035500 CLA COR2 BEGINNING MAJOR AXIS VELOCITY FOR LINE 2 BR035600 STO CORA BR035700 COTA STZ COR1 BR035800 STZ COR2 BR035900 LXA LOC26,4 SHIFT LINE 2 INTO LINE 1 BR036000 SL2 CLA LINE2&26,4 BR036100 STO LINE1&26,4 BR036200 TIX SL2,4,1 BR036300 LXA LOC26,4 BR036400 ZRO2 STZ LINE2&26,4 SET LINE 2 TO ZERO BR036500 TIX ZRO2,4,1 BR036600 LXA LOC7,4 BR036700 SHDAT CLA DATA&14,4 SHIFT DATA REGION BR036800 STO DATA&7,4 BR036900 CLA DATA&21,4 BR037000 STO DATA&14,4 BR037100 STZ DATA&21,4 BR037200 TIX SHDAT,4,1 BR037300 CLA TOSW MAKE TEST FOR CIRCLE 4BBR037400 TNZ ONPTS INTERPOLATION FLOW 4BBR037500 CLA ONSW CIRCLE INTERPOLATION 4BBR037600 TNZ ENDON SWITCH FLOW 4BBR037700 CLA AUXSW BR037800 TZE COTL NO AUX FUNCTION TO BE PROCESSED NOW BR037900 AXFOL CLA LOC1 BR038000 STO ISW SET IMMEDIATE SWITCH BR038100 AXFO2 STZ AUXSW BR038200 LXA DAT2C,2 BR038300 SXD DATAP,2 BR038400 LXA LOC2,1 BR038500 SXD FLO,1 BR038600 TRA COTL BR038700 ABCA CLA LOC1 BR038800 STO AUXSW BR038900 TRA 3FUL BR039000 AUTO TSX IFRO,4 USE AUTOMATIC ACCELERATION-DECELERATION BR039100 PZE LINE1 FEATURE OF MACHINE TOOL BR039200 TSX KLEAR,4 BR039300 CLA BLCTH BR039320 STO BLCT BR039340 TSX SETUP&6,4 BR039360 TRA COTA BR039400 1S2A LXD WS&1,4 2S COMP FEED STEP TABLE BR039500 CLA 1,4 FIRST STEP VALVE BR039600 STO COR1 BR039700 STO COR2 BR039800 TRA BCRN BYPASS CORNER TEST BR039900 AUTOL CLA 1,4 BR040000 STA AUTS BR040100 CLA 2,4 BR040200 STA BGMN BR040300 ADD #3 BR040400 STA *&1 BR040500 CLA ** IS DELTA Z ZERO BR040600 TZE BGMN BR040700 NZT ZFEED Z AXIS CANNOT MOVE IN BR040800 TRA NOZRP RAPID TRAVERSE IF ZFEED IS ZERO BR040900 BGMN CLA ** TEST MAJOR AXIS DELTA BR041000 CAS ADIST BR041100 TRA 3,4 LENGTH LARGER BR041200 TRA 3,4 LENGTH EQUAL BR041300 NOZRP CLA LOC1 LENGTH LESS BR041400 AUTS STO ** BR041500 TRA 3,4 BR041600 ADIST DEC 0.1 MINIMUM LENGTH FOR RAPID TRAVERSE BR041700 ER1 SXD IR1,1 BR041800 SXD IR1&1,2 BR041900 SXD IR1&2,4 BR042000 STO IR1&3 BR042100 STQ IR1&4 BR042200 CLA CM1A BR042300 TRA EROUT BR042400 ER2 SXD IR1,1 BR042500 SXD IR1&1,2 BR042600 SXD IR1&2,4 BR042700 STO IR1&3 BR042800 STQ IR1&4 BR042900 CLA CM2 BR043000 TRA EROUT BR043100 ER3 SXD IR1,1 BR043200 SXD IR1&1,2 BR043300 SXD IR1&2,4 BR043400 STO IR1&3 BR043500 STQ IR1&4 BR043600 CLA CM3 BR043700 TRA EROUT BR043800 IR1 BSS 5 BR043900 EROUT STA CMT BR044000 STD CMT BR044100 TSX PRNTOF,4 BR044200 PZE 8,1 BR044300 CMT TXH **,2,** PRINT STUFFED DIAGNOSTIC BR044400 FINALR TSX $%SPH),4 DIAG. ON-LINE *BR044500 TSX DIAGON *BR044600 TSX $%FIL),4 *BR044700 TRA KONTRL *BR044800 KONTRL CALL CARDPN,1B17,1B17,4B17,1B17,1B17 NH*ABR044900 EFTM NH*ABR045000 CALL DISPAT BR045100 DIAGON BCI 9,%1H ,19X,39HERROR DETECTED, SKIP PUNCHING THIS FILE) *BR045200 4B17 DEC 4B17 NH*ABR045300 2B17 DEC 2B17 BR045400 1B17 DEC 1B17 BR045500 REM BR045600 REM RUNNING DUMPS THROUGHOUT PROGRAM ARE GROUPED TOGETHER HERE. BR045700 REM ALL CHECKOUT DUMPS MAY BE IGNORED BY OCTAL PATCH AT BR045800 REM BR045900 NODMP CLA RUNDMP BR046000 TZE DMOUT IGNORE DUMP BR046100 TRA 1,4 DYNAMIC DUMP HERE BR046200 CRDMP SXD CNT4,4 CORNER DUMP BR046300 TSX NODMP,4 BR046400 TSX PRNTOF,4 BR046500 PZE 4,1 BR046600 TXH CRWRD,2,2 BR046700 TXH COR1,4,4 BR046800 TXH IMAGE&9,4,6 BR046900 TXH LINE2&18,4,8 BR047000 TRA DMOUT BR047100 CRWRD BCD 2CORNER DUMP BR047200 DMOUT LXD CNT4,4 BR047300 TRA 1,4 BR047400 DADMP SXD CNT4,4 DAVE DUMP REGION BR047500 TSX NODMP,4 BR047600 TSX PRNTOF,4 BR047700 PZE 8,1 BR047800 TXH DAWRD,2,2 BR047900 TXH LINE1,4,52 BR048000 TRA DMOUT BR048100 DAWRD BCD 2DELTA DUMP BR048200 VLDMP SXD CNT4,4 BR048300 TSX NODMP,4 BR048400 TSX PRNTOF,4 BR048500 PZE 8,1 BR048600 TXH VLWRD,2,2 BR048700 TXH LINE1,4,52 BR048800 TRA DMOUT BR048900 VLWRD BCD 2VLT DUMP BR049000 FEDMP SXD CNT4,4 BR049100 TSX NODMP,4 BR049200 TSX PRNTOF,4 BR049300 PZE 8,1 BR049400 TXH FEWRD,2,2 BR049500 TXH IMAGE,4,15 BR049600 TXH DELM,4,13 BR049700 TRA DMOUT BR049800 FEWRD BCD 2FEED DUMP BR049900 SEDMP SXD CNT4,4 BR050000 TSX NODMP,4 BR050100 TSX PRNTOF,4 BR050200 PZE 8,1 BR050300 TXH SEWRD,2,2 BR050400 TXH BLCT,4,1 BR050500 TXH REWRK,4,300 BR050600 TRA DMOUT BR050700 SEWRD BCD 2STORE DUMP BR050800 GDMP SXD CNT4,4 BR050900 TSX NODMP,4 BR051000 TSX PRNTOF,4 BR051100 PZE 8,1 BR051200 TXH GEOCM,2,3 BR051300 TXH G$BLOK,4,7 BR051400 TXH G$FROM,4,5 BR051500 TXH G$BUF1,4,367 BR051600 TRA DMOUT BR051700 GEOCM BCD 3GEOMETRY DUMP BR051800 PKTYP CLA TE SECTION ENTERED ONLY IF GPRINT 4BBR051900 CAS LOC2 IS NON-ZERO SIGNIFYING A PASS 4BBR052000 TRA *&2 THROUGH THE READ ROUTINE-G$READ 4BBR052100 TRA PCKO ONLY AND A PRINTOUT OF ITS OUTPUT 4BBR052200 TSX PRNTOF,4 PRINT INPUT TO POST 4BBR052300 PZE 7,1 PROCESSOR WHICH IS OUTPUT 4BBR052400 TXH TE,4,7 FOR THE READ ROUTINE-G$READ 4BBR052500 TRA CCC OCTAL FORMAT 4BBR052600 PCKO TSX PRNTOF,4 PRINT OUTPUT FROM 4BBR052700 PZE 7,1 CL READ SECTION-G$READ 4BBR052800 TXH TE,1,7 IN FLOATING POINT FORMAT 4BBR052900 TRA CCC 4BBR053000 REM BR053100 SETUP CLA DDATA FIRST ADDRESS OF DATA BR053200 COM BR053300 ADD LOC1 BR053400 ALS 18 BR053500 STD DATAC 2S COMP DATA REGION BR053600 STD DATAP 2S COMP DATA REGION BR053700 CLA BLCT SAVE BLOCK COUNT IN BR053800 STO BLCTF BLCTF LOCATION BR053900 STO BLCTH BR054000 CLA DMAGE FIRST ADDRESS OF IMAGE REGION BR054100 COM BR054200 ADD LOC1 BR054300 ALS 18 BR054400 STD IMAGC 2S COMP IMAGE REGION BR054500 CLA OFLO BR054600 COM BR054700 ADD LOC2 BR054800 ALS 18 STUFF 2S COMP LAST BR054900 STD RLST LOCATION OF REWRK BR055000 STD STM BR055100 STD SR1 BR055200 CLA DWRK BR055300 COM BR055400 ADD LOC1 BR055500 STA RONE 2S COMP BEGINNING OF REWRK REGION BR055600 ALS 18 BR055700 STD RLOC INITIALLY 2S COMP FIRST LOC OF REWRK BR055800 CLA BBUFF ADRESS OF BUFF BR055900 COM BR056000 ADD LOC1 BR056100 STA BLOC BR056200 SUB LOC1 BR056300 ALS 18 BR056400 STD RBTR 2S COMP BUFF&1 BR056500 LAC BOFLO,2 BR056600 SXD STOBT,2 BR056700 CLA TSTUF ADDRESS OF STEP TABLE BR056800 PAX 0,2 BR056900 SUB 0,2 NUMBER OF TABLE VALUES BR057000 ADD LOC1 BR057100 ALS 18 BR057200 STD WSTF LAST FEED STEP LOCATION BR057300 STD NXT LAST FEED STEP LOCATION BR057400 STD RNXT LAST FEED STEP LOCATION BR057500 STD TXN LAST FEED STEP LOCATION BR057600 SXD WS&1,2 2S COMP FIRST LOC OF FEED STEP TABLE BR057700 LXA BLOC,2 SET CURRENT 2S COMP OF BUFF BR057800 SXD BLOC,2 REGION AT BEGINNING OF BUFF BR057900 CLA DATA2 BR058000 COM BR058100 ADD LOC1 BR058200 STA DAT2C BR058300 AUXHD CLA ** BEGINNING ADDRESS OF AUX LIST BR058400 COM BR058500 ADD LOC1 BR058600 STA AUXT1 2S COMP AUX TABLE 1 BR058700 AUXND CLA ** ENDING ADDRESS OF AUX LIST BR058800 COM BR058900 ADD LOC1 BR059000 ALS 18 BR059100 STD LST1 2S COMP END OF AUX TABLE 1 BR059200 TRA 1,4 BR059300 REM DIAGNOSTICS FOR DYNAMICS SECTION BR059400 CM1A PZE *&1,0,9 BR059500 BCD 9 AXIS LIMIT EXCEEDED, POST PROCESSING TERMINATED BR059600 CM2 PZE *&1,0,6 BR059700 BCD 6ERROR EXIT FROM SQUARE ROOT ROUTINE BR059800 CM3 PZE *&1,0,8 BR059900 BCD 8ILLEGAL BLOCK IN REWRK, CHECK PROGRAM LOGIC BR060000 REM THIS ROUTINE CALCULATES AXIS DELTAS BR060100 REM AND STORES THESE VALUES IN OUTP&8, 9, 10, 11, 12 BR060200 REM RESPECTIVELY, THE LARGEST ABSOLUTE DELTA-DELTA M - IS BR060300 REM FOUND AND STORED IN OUTP&7. THE TAPE READ BR060400 REM TIME FOR THE NUMBER OF CHARACTERS IN A BR060500 REM MOTION BLOCK FOR THIS LINE IS CALCULATED BR060600 REM IN SECONDS AND ALSO MINUTES AND IS STORED BR060700 REM IN OUTPT&13 AND OUTPT&14. RETURN FROM BR060800 REM THIS ROUTINE HAS DELTA C OR HEAD MOTION BR060900 REM IN THE ACC. BR061000 REM BR061100 REM CALLING SEQUENCE-TSX DELTA,4 BR061200 REM CALLING SEQUENCE-HTR INPT INPUT BEGINNING POINT BR061300 REM CALLING SEQUENCE-HTR OUTP INPUT ENDING POINT & OUTPUT BR061400 REM TRA ERROR BR061500 REM CALLING SEQUENCE-TRA ON SUCCESS RETURN BR061600 DELTA SXD DNE,1 SAVE LINKAGE BR061700 SXD DWO,2 BR061800 SXD DUR,4 BR061900 CLA 1,4 BR062000 COM BR062100 ADD LOC1 BR062200 PAX 0,1 INPUT-BEGINNING POINT BR062300 CLA 2,4 BR062400 COM BR062500 ADD LOC1 2S COMP INPUT&OUTPUT BR062600 PAX 0,2 CHK BR062700 STZ DAVM INITIALIZE MAXIMUM ABSOLUTE DELTA BR062800 STZ CHAR INITIALIZE TAPE CHARACTERS BR062900 SXD DT,2 SAVE INDEX REGISTER 2 BR063000 LXA LOC5,4 BR063100 DSTO CLA 2,2 CALC AND STORE BR063200 FSB 2,1 DELTAS X, Y, Z, A, C BR063300 STO 8,2 BR063400 STO DELX&5,4 DELX, Y, Z, A, C LOCATIONS BR063500 TNZ DLEK BR063600 DUPR TXI *&1,1,-1 BR063700 TXI *&1,2,-1 BR063800 TIX DSTO,4,1 BR063900 LXD DT,2 RESTORE IR 2 BR064000 CLA DAVM BR064100 STO 7,2 ABSOLUTE MAXIMUM DELTA BR064200 CLA CHAR BR064300 FAD FNSIZ FNSIZ EQU 4 BR064400 FAD CUSON CUSON EQU 2 BR064500 STO CHAR END OF BLOCK & SPACE ON TAPE BR064600 CLA 0,2 N CODE-IFRO OR FEED RATE BR064700 FSB ICOD BR064800 TZE DOK BR064900 DWN CLA SPN IS SPINDLE SPEED BR065000 TZE DRA CHANGE SET BR065100 CLA CHAR BR065200 FAD FNSIZ FOR SPINDLE SPEED BLOCK BR065300 STO CHAR BR065400 DRA CLA SEQNUM BR065500 TNZ CSEQ BR065600 DRAM CLA CHAR BR065700 FDP TRS TAPE READER SPEED BR065800 STQ 13,2 TAPE READ TIME SECONDS BR065900 CLA 13,2 BR066000 FDP DEC60 BR066100 STQ 14,2 TAPE READ TIME-MINUTES BR066200 CLA 12,2 ROTARY HEAD MOTION-DELTA C BR066300 TSX DADMP,4 DUMP BR066400 LXA SP3,4 BR066500 UPWAY CLA 2,2 X COORDINATE, Y, Z BR066600 LDQ XMAX&3,4 BR066700 TLQ BIGER X COOR LARGER XMAX BR066800 LDQ XMIN&3,4 X COOR # OR LESS X MAX BR066900 TLQ BON COORDINATE BETWEEN INTERVAL BR067000 STO XMIN&3,4 BR067100 CLA XMAX&3,4 BR067200 TRA *&2 BR067300 BIGER STO XMAX&3,4 BR067400 FSB XMIN&3,4 BR067500 LDQ XLIM&3,4 BR067600 TLQ WHICH AXIS LIMIT EXCEEDED BR067700 BON TXI *&1,2,-1 BR067800 TIX UPWAY,4,1 BR067900 LXD DNE,1 BR068000 LXD DWO,2 BR068100 LXD DUR,4 BR068200 TRA 4,4 SUCCESS EXIT BR068300 ERX CLA CMX BR068400 TRA OERR BR068500 ERY CLA CMY BR068600 TRA OERR BR068700 ERZ CLA CMZ BR068800 TRA OERR BR068900 OERR STO CM1A&1 SET CORRECT AXIS FOR DIAGNOSTIC BR069000 LXD DUR,4 BR069100 TRA 3,4 ERROR EXIT BR069200 CMX BCD 1 X BR069300 CMY BCD 1 Y BR069400 CMZ BCD 1 Z BR069500 XMAX BSS 5 BR069600 XMIN BSS 5 BR069700 WHICH TXH ERX,4,2 BR069800 TXH ERY,4,1 BR069900 TRA ERZ BR070000 DLEK SSP BR070100 TXL ROTAR,4,2 BR070200 DSK LDQ DAVM LINEAR DELTAS HERE BR070300 TLQ DTUR BR070400 DLEM CLA CHAR BR070500 FAD BLKSZ BLKSZ EQU 7 BR070600 STO CHAR BR070700 TRA DUPR BR070800 DTUR STO DAVM BR070900 TRA DLEM BR071000 DOK CLA CHAR BR071100 FAD MSIZ BR071200 STO CHAR BR071300 TRA DWN BR071400 ROTAR TXL ROTC,4,1 HEAD HERE BR071500 CAS D50 TABLE HERE BR071600 TRA REVER 50 LESS THAN /DELA/ BR071700 TRA *&1 50 EQU /DELA/ BR071800 TRA DSK 50 LARGER /DELA/ BR071900 REVER CLA D100 BR072000 LDQ DELA ROTATE TABLE BR072100 LLS 0 SHORTEST DELTA TO BR072200 CHS END AT DEFINED BR072300 FAD DELA POSITION BR072400 STO DELA BR072500 STO 8,2 REPLACE WITH NEW DELTA BR072600 SSP BR072700 TRA DSK BR072800 ROTC TRA DSK MORE TESTING FOR HEAD DELTA LATER BR072900 CSEQ CLA CHAR BR073000 FAD FNSIZ FOR SEQ NO. FIELD BR073100 STO CHAR BR073200 TRA DRAM BR073300 DNE HTR 0 BR073400 DWO HTR 0 BR073500 DUR HTR 0 BR073600 D50 DEC 0.0 SET 100 FOR ROTARY BR073700 D100 DEC 0.0 SET 100 FOR ROTARY BR073800 REM BR073900 REM THIS ROUTINE CALCULATES THE RESULTANT LENGTH - L BR074000 REM BETWEEN TWO POSITIONS. THE RATES ALONG EACH AXIS BR074100 REM VX, VY, VZ, VA, VC ARE CALCULATED AND ADJUSTED BR074200 REM TO AXIS LIMITS BY ALTERING TIME IF NEEDED. VM- BR074300 REM THE ABSOLUTE VELOCITY ALONG THE MAJOR AXIS AND V BR074400 REM THE RESULTANT FEED RATE ARE CALCULATED. BR074500 REM TIME IF LESS THAN TAPE READ TIME IS REPLACED BR074600 REM BY TAPE READ TIME. STORAGE IS AS FOLLOWS. BR074700 REM L, T, V, VM, VX, VY, VZ, VA, VC IN OUTP-OUTP&8 BR074800 REM BR074900 REM CALLING SEQUENCE TSX VLT,4 BR075000 REM HTR INPT BR075100 REM HTR OUTP BR075200 REM TRA ERROR BR075300 REM TRA ON BR075400 REM BR075500 VLT SXD VNE,1 BR075600 SXD VWO,2 SAVE LINKAGE BR075700 SXD VOR,4 BR075800 CLA 1,4 BR075900 COM BR076000 ADD LOC1 BR076100 PAX 0,1 BR076200 SXD VS,1 2S COMP INPUT BR076300 CLA 2,4 BR076400 COM BR076500 ADD LOC1 BR076600 PAX 0,2 2S COMP OUTPUT BR076700 SXD VS&1,2 SAVE OUTPUT BR076800 STZ L BR076900 LXA LOC5,4 BR077000 VRN LDQ 8,1 BR077100 FMP 8,1 BR077200 STO 0,2 DELTA X SQUARED, Y, Z, A, C BR077300 CLA L BR077400 FAD 0,2 BR077500 STO L DELTA SQUARES SUMMATION BR077600 TXI *&1,1,-1 BR077700 TXI *&1,2,-1 BR077800 TIX VRN,4,1 BR077900 TSX SQROOT,4 BR078000 TRA VER BR078100 LXD VS,1 BR078200 LXD VS&1,2 BR078300 STO 0,2 RESULTANT LENGTH L BR078400 FDP 1,1 BR078500 STQ TIME BR078600 CLA MINT MINIMUM EXECNTION TIME BR078700 TLQ VPLC ACTUAL TIME LESS THAN MIN EXECUTION TIME BR078800 VPC CLA 14,1 TAPE READ TIME MINUTES BR078900 TLQ VTR TIME IS LESS THAN TAPE READ TIME BR079000 VSR CLA TIME BR079100 LDQ MINTA MINIMUM EXECUTOR TIME PER SINGLE BLOCK LINEBR079200 TLQ *&2 TIME LARGER MINTA BR079300 STQ TIME TIME EQUAL A LESS HERE BR079400 CLA TABLE BR079500 COM 2S COMP MACHINE TOOL PARAMETERS BR079600 ADD LOC1 BR079700 PAX 0,2 BR079800 LXA LOC5,4 BR079900 VGO CLA 8,1 BR080000 SSP BR080100 FDP TIME BR080200 CLA 0,2 VXMAX, VYMAX,...VCMAX BR080300 TZE VOK BR080400 TLQ VOK VX GREATER VXMAX BR080500 CLA 8,1 YES BR080600 SSP REPLACE TIME BR080700 FDP 0,2 WITH ABSOLUTE DELTAX/VMAX BR080800 STQ TIME BR080900 VOK TXI *&1,1,-1 BR081000 TXI *&1,2,-1 BR081100 TIX VGO,4,1 BR081200 LXD VS,1 BR081300 LXD VS&1,2 BR081400 LXA LOC6,4 BR081500 CLA 0,2 L BR081600 FDP TIME BR081700 STQ 2,2 V - RESULTANT FEED RATE BR081800 CLA TIME BR081900 STO 1,2 BR082000 VDEL CLA 7,1 BR082100 FDP TIME BR082200 STQ 3,2 VM, VX, VY, VZ, VA, VC BR082300 TXI *&1,1,-1 VELOCITY VECTORS FOR MAJOR, BR082400 TXI *&1,2,-1 X, Y, Z AXIS TABLE, 8 HEAD BR082500 TIX VDEL,4,1 AXIS. BR082600 TSX VLDMP,4 BR082700 LXD VNE,1 BR082800 LXD VWO,2 BR082900 LXD VOR,4 BR083000 TRA 4,4 SUCCESS EXIT BR083100 VER LXD VOR,4 BR083200 TRA 3,4 ERROR EXIT BR083300 VPLC STO TIME REPLACE TIME WITH MINIMUM EXECUTION TIME BR083400 LDQ TIME BR083500 TRA VPC BR083600 VTR STO TIME REPLACE TIME WITH TAPE BR083700 TRA VSR READ TIME BR083800 VNE HTR 0 BR083900 VWO HTR 0 BR084000 VOR HTR 0 BR084100 REM BR084200 REM THIS ROUTINE CALCULATES THE ACCELERATION BLOCKS NECESSARY TO BR084300 REM PROCESS A GIVEN LINE TO A DESIRED FEED RATE. OTHER NECESSARY BR084400 REM INFORMATION SUCH AS FEED NUMBERS AND VELOCITIES ALONG EACH BR084500 REM AXIS V, VM, VX, VY, VZ, VA, VC ARE ALSO CALCULATED AND BR084600 REM CARRIED WITH THE DELTA MOTIONS FOR EACH BLOCK AS THEY ARE BR084700 REM PLACED IN BUFFER. BR084800 REM BR084900 REM CALLING SEQUENCE TSX WRK, 4 BR085000 REM HTR INPUT BR085100 REM TRA ERROR BR085200 REM TRA ON BR085300 REM BR085400 WRK SXD ONE,1 SAVE BR085500 SXD TWO,2 LINKAGE BR085600 SXD FOUR,4 BR085700 STZ IMAGE&1 SET FOR G01 MODE BR085800 CLA 1,4 BR085900 COM BR086000 ADD LOC1 BR086100 PAX 0,1 2S COMP INPT BR086200 SXD WS,1 BR086300 LXA BLOC,4 SET CURRENT ADDRESS IN BUFF BR086400 SXD BLOC,4 TO BEGINNING OF BUFF BR086500 LXD WS&1,2 2S COMP FEED STEP TABLE BR086600 LXA LOC6,4 SET COUNT BR086700 WSDL CLA 7,1 M, PLACE ORIGINAL BR086800 STO DELM&6,4 DELTAS IN SYMBOLIC LOCATIONS BR086900 TXI *&1,1,-1 FOR PROCESSING DELTAS BR087000 TIX WSDL,4,1 BR087100 CLA LOC1 BR087200 STO SW1 INITIALIZE LOOP CONTROL COUNTER BR087300 STZ LOOP BR087400 LXD WS,1 RESTORE 1R1 - INPT BR087500 CLA 14,1 TAPE READ TIME PER BLOCK IN MINUTES BR087600 LDQ MINT MINIMUM EXECUTION TIMEIN MINUTES BR087700 TLQ WOK MINT LESS TR BR087800 STQ BT MINT EQU OR LARGER TR BR087900 STQ 24,1 BLOCK TIME THIS LINE BR088000 WLBCA LDQ 1,2 BR088010 FMP #.51 BR088020 LDQ CORA BR088030 TLQ REVRA BR088040 WLBC TSX INTVL,4 ADJUST TABLE INTERVAL BR088100 WLC LDQ 1,2 FS1 - FEED STEP 1 BR088200 STQ FS BR088300 CLA CORA CORNER RATE MAJOR AXIS CLA 25, 1 BR088400 TLQ NXT FS, LESS THAN CORA BR088500 WLA CLA 18,1 VM LARGER CORNER RATE BR088600 TLQ WSA FS1 IS LESS THAN VM BR088700 CHG STO FS SET FS EQU VM BR088800 LAST CLA DELM SET REST OF LINE EQUAL BR088900 STO D1 TO D1 - DELTA M BR089000 TSX KENYA,4 SELECT CORRECT G MULTIPLE BR089100 TRA WXIT BR089200 TSX KEN,4 FIX REMAINING LENGTH OF LINE FOR MAXIMUM FEBR089300 TSX BLK,4 CALC DELTAS BR089400 TSX FEED,4 CALC FEED NUMBER BR089500 TSX STOB,4 STORE BLOCK IMAGE IN BUFF BR089600 WXIT LXD ONE,1 BR089700 LXD TWO,2 BR089800 LXD FOUR,4 BR089900 TRA 3,4 CHECKOUT ONLY BR090000 WOK STO BT BR090100 STO 24,1 BR090200 TRA WLBCA BR090300 REVRA CLA 1,2 BR090310 FDP #2.0 BR090320 STQ FS BR090330 TXI WLA,2,1 BR090340 NXT TXL LAST,2,* IS THIS LAST FEED STEP VALUE BR090400 TXI WLC,2,-1 BR090500 WSA FMP BT BR090600 STO D1 D1 EQU FS1 X BT BR090700 LDQ 2,2 FS2 BR090800 FMP BT BR090900 STO D2 D2 EQU FS2 X BT BR091000 WSTF TXL LAST,2,* IS THIS LAST FEED STEP VALUE BR091100 FAD D1 D1&D2 BR091200 CAS DELM BR091300 TRA LAST D1&D2 LARGER DELM BR091400 TRA LAST D1&D2 EQU DELM BR091500 TSX BLK,4 D1&D2 LESS THAN DELM BR091600 TSX FEED,4 CALC FEED NUMBER BR091700 TSX STOB,4 STORE BLOCK IMAGE IN CURRENT BUFF LOC BR091800 TXI WLC,2,-1 RETURN FOR NEXT FEED STEP BR091900 ONE HTR 0 TWIN BR092000 TWO HTR 0 TWIN BR092100 FOUR HTR 0 TWIN BR092200 INTVL CLA 1,2 FS, BR092300 CAS CORA CORNER RATE BR092400 TRA 1,4 CORA LESS 1,2 BR092500 TRA 1,4 CORA EQU 1,2 BR092600 CLA 1,2 CORA LARGER 1,2 BR092700 CAS CORA BR092800 TRA INPC BR092900 TRA 1,4 CORA EQU 1,2 BR093000 TXI *-4,2,-1 CORA LARGER 1,2 BR093100 INPC LDQ PCNT PERCENTAGE BR093200 FMP CORA BR093300 FAD CORA BR093400 LDQ 1,2 BR093500 TLQ INTVL&2 VERY CLOSE TO STEP VALUE BR093600 TXI *&1,2,1 BR093700 LDQ CORA STEPBACK ONE STEP BR093800 TRA 2,4 SET FIRST STEP EQU CORA BR093900 PCNT DEC .1 PERCENTAGE CONSTANT-10% BR094000 * ROUTINE TO DETERMINE IF AND WHICH BR094100 * G MULTIPLIER CAN BE USED FOR A BR094200 * LONG SPAN BR094300 * BR094400 KENYA SXA REJEC,4 BR094500 SXA K2,2 BR094600 SXA K1,1 BR094700 CLA DELM DELM BR094800 CAS P9 LARGER THAN BR094900 TRA K3 .9999 HERE BR095000 TRA REJEC BR095100 REJEC AXT **,4 REJECTION BR095200 K2 AXT **,2 EXIT TO BR095300 K1 AXT **,1 TRY BR095400 STZ INVER BR095500 TRA 2,4 KEN BR095600 K3 CLA FS BR095700 CAS P9 FS LARGER THAN BR095800 TRA K4 .9999 HERE BR095900 TRA REJEC BR096000 TRA REJEC BR096100 K4 FDP D999 CALCULATE MINIMUM BR096200 STQ AFAC DISTANCE FOR MAJOR AXIS RATE BR096300 AXT 6,2 BR096400 K5 LDQ AFAC CALCULATE BR096500 FMP DELM&6,2 THE MINIMUM BR096600 FDP DELM DISTANCE FOR BR096700 TSX RN4,4 EACH AXIS TO BR096800 STQ DM&6,2 ATTAIN PROGRAM BR096900 CLA DELM&6,2 FEED RATE AND BR097000 FSB DM&6,2 REDUCE ORIGINAL BR097100 STO DELMP&6,2 DISTANCE BY BR097200 TIX K5,2,1 THE MINIMUM DISTANCE AMOUNTS BR097300 CLA DELMP BR097400 CAS P9 BR097500 TRA R6 BR097600 TRA REJEC BR097700 TRA REJEC BR097800 R6 CAS P9P BR097900 TRA OVR10 LINE OVER 10 INCHES BR098000 TRA *&1 BR098100 TRA FIXU BR098200 * BR098300 GFUN SXA RR4,4 BR098400 AXT 6,2 BR098500 R7 LDQ SCALE TEST TO BR098600 FMP DELMP&6,2 SEE IF BR098700 FDP GVAL BR098800 XCA BLOCK WHEN BR098900 UFA #O233000000000 MULTIPLIED BY CORRECT BR099000 FAD #O233000000000 G MULTIPLIER CAN BR099100 FDP SCALE RETAIN ACCURACY AND BR099200 FMP GVAL FEED RATE BR099300 STO TM&6,2 BR099400 CLA DELM&6,2 BR099500 FSB TM&6,2 SAVE MIN. DISTANCES AND BR099600 STO DELMP&6,2 SIGNIFICANCE BR099700 TIX R7,2,1 BR099800 CLA DELMP BR099900 CAS P9 IGNORE IF SIGNIFICANCE BR100000 TRA REJEC CORRECTION EXCEEDS PULSE BR100100 TRA *&1 OVER .9999 BR100200 CLA TM BR100300 FDP GVAL BR100400 FMP D999 BR100500 STO XTO BR100600 LDQ FVAR TEST TO SEE BR100700 FMP FS IF FEED RATE BR100800 FAD XTO CAN BE ATTAINED BR100900 CAS FS WITH PLUS OR MINUS BR101000 TRA R8 10 PER CENT WHEN DIVIDED BR101100 TRA R8 BY 10 FOR G10 BR101200 TRA REJA BLOCKS BR101300 R8 AXT 6,2 YES BR101400 S1 CLA TM&6,2 BR101500 FDP GVAL BR101600 STQ DELM&6,2 BR101700 TIX S1,2,1 BR101800 CLA DELM BR101900 STO D1 DO LOGIC BR102000 CLA GVAL TEST BR102100 STO IMAGE&1 TO SEE BR102200 AXT STOB,4 IF THIS BR102300 ZET INVER G10 BR102400 AXT STBAC,4 OT G60 BR102500 SXA WSOR,4 BR102600 SXA WSTOR,4 BLOCK WILL BR102700 TSX KEN,4 BE BROKEN BR102800 TSX BLK,4 DOWN BR102900 TSX FEED,4 VIA BR103000 WSTOR TSX **,4 KEN BR103100 NZT INVER BR103200 TRA TRCKE ACCELERATION HERE BR103300 AXT 6,2 BR103400 CLA DELMP&6,2 BR103500 STO DELM&6,2 BR103600 TIX *-2,2,1 BR103700 STZ IMAGE&1 BR103800 CLA DELMP BR103900 STO D1 BR104000 TSX BLK,4 BR104100 TSX FEED,4 BR104200 WSOR TSX **,4 GUESS STOB OR STBAC BR104300 RR4 AXT **,4 BR104400 TRA 1,4 BR104500 NORML LXA REJEC,4 CAUSE AN EFFECTIVE BR104600 TXI K2,4,1 TRA 1,4 BR104700 KENYB CLA #1 BR104800 STO INVER BR104900 TRA KENYA BR105000 FIXU CLA #10.0 BR105100 STO GVAL BR105200 TSX GFUN,4 BR105300 TRA NORML BR105400 99P9 DEC 99.9999 BR105500 P9P DEC 9.9999 BR105600 P9 DEC 0.9999 BR105700 AFAC DEC 0 MAJOR MINIMUM DISTANCE BR105800 DM BSS 6 BR105900 DELMP BSS 6 BR106000 TM BSS 6 BR106100 XTO DEC 0 BR106200 INVER PZE 0 BR106300 GVAL DEC 0 BR106400 OVR10 CLA MAXGX USE MAX G CODE BR106500 STO GVAL BR106600 TSX GFUN,4 BR106700 TRA NORML BR106800 REJA CLA GVAL BR106900 LDQ #10.0 BR107000 TLQ FIXU2 TRY 10 BREAK DOWN BR107100 TRA REJEC BR107200 FIXU2 AXT 6,4 BR107300 CLA DELM&6,4 RE-INITIALIZE BEFORE BR107400 FSB DM&6,4 TRYING 10 BREAKDOWN BR107500 STO DELMP&6,4 BR107600 TIX *-3,4,1 BR107700 TRA FIXU BR107800 * TRY TO DECREASE SIGNIFICANCE PROBLEMS BR107900 TRCKE AXT 6,4 BR108000 CLA IMAGE&1 BR108100 TNZ TREK X10 OR X100 HERE BR108200 CLA #1.0 SET &0 1 HERE BR108300 STO IMAGE&1 BR108400 TREK LDQ IMAGE&1 RESTORE BR108500 FMP IMAGE&9,4 IMAGE ARRAY BR108600 FAD DELMP&6,4 BR108700 STO IMAGE&9,4 BR108800 TIX TREK,4,1 BR108900 STZ IMAGE&1 INITIALIZE BR109000 TRA RR4 BR109100 * THIS ROUTINE ROUNDS THE DELTA AXIS MOTIONS BR109200 REM TO THE NEAREST MACHINE INCREMENT-.0001 INCH. BR109300 REM ALSO LENGTHS GREATER THAN THE MAXIMUM FIELD BR109400 REM OF A BLOCK-9.9999 FOR THE TRW-ARE BROKEN BR109500 REM DOWN INTO SPANS WHICH HAVE BEEN TREATED BR109600 REM FOR SIGNIFICANCE AND FEED RATE WHEN THE BR109700 REM FEED NUMBER IS ROUNDED TO THE NEAREST BR109800 REM INTEGER BR109900 REM CALLING SEQUENCE TSX KEN,4 BR110000 REM TRA ON BR110100 REM BR110200 KEN SXD KONE,1 BR110300 SXD KTWO,2 BR110400 SXD KFOR,4 BR110500 CLA D1 BR110600 FDP DLSIZ BR110700 TSX RNH,4 BR110800 STO NS BR110900 V2 CLA D1 BR111000 FDP NS BR111100 TSX RN4,4 BR111200 STQ DS BR111300 CLA FS BR111400 FDP DS BR111500 ZET FNFORM FOR XX.XX FEED NUMBER 1ABR111510 TRA KEFN 1ABR111520 TSX RNN,4 BR111600 V2A STO FN *12-1-32BBR111700 LDQ D999 BR111800 TLQ V6A BR111900 LDQ FS BR112000 FMP FVAR BR112100 STO KT .1FS BR112200 LDQ FN BR112300 FMP DS BR112400 CHS BR112500 FAD FS BR112600 SSP BR112700 LDQ KT IS THIS FEED NUMBER YIELD BR112800 TLQ V7 A FEED RATE 90-100 PER CENT OF ORIGINAL BR112900 V6 CLA NS BR113000 STO LOOP BR113100 FSB DEC1 BR113200 STO LOPY BR113300 LDQ LOPY BR113400 FMP DS SET FIRST OR ONLY BR113500 CHS SPAN TO D1 BR113600 FAD D1 BR113700 STO D1 BR113800 LXD KONE,1 BR113900 LXD KTWO,2 BR114000 LXD KFOR,4 BR114100 TRA 1,4 BR114200 V6A STQ FN BR114300 TRA V6 BR114400 V7 CLA NS INCREASE SPAN NUMBER BR114500 FAD DEC1 BY ONE BR114600 STO NS BR114700 TRA V2 BR114800 KEFN TSX ROND,4 FOR XX.XX FEED NUMBER 1ABR114810 PZE FSIZE 1ABR114820 XCA 1ABR114830 TRA V2A 1ABR114840 REM ROUTINE TO ROUND NUMBER TO NEXT HIGHEST INTEGER BR114900 RNH SXD FSS,4 BR115000 STQ KT&1 BR115100 CLA KT&1 BR115200 TMI RNHM BR115300 FAD PT9 FOR ROUNDING BR115400 MNHR STO KT&1 NUMBER TO NEXT HIGHEST BR115500 LDQ KT&1 INTEGER BR115600 TSX RNS,4 BR115700 LXD FSS,4 BR115800 TRA 1,4 BR115900 RNHM FSB PT9 BR116000 TRA MNHR BR116100 REM ROUTINE TO ROUND TO NEAREST .0001 BR116200 RN4 SXD FSS,4 BR116300 FMP SCALE BR116400 TMI RN4M BR116500 FAD FP5 BR116600 M4NR STO KT&3 BR116700 LDQ KT&3 BR116800 TSX RNS,4 BR116900 FDP SCALE RE-SCALE NUMBER BR117000 LXD FSS,4 BR117100 TRA 1,4 BR117200 RN4M FSB FP5 BR117300 TRA M4NR BR117400 REM ROUTINE TO ROUND TO NEAREST INTEGER BR117500 RNN SXD FSL,4 BR117600 STQ KT&1 BR117700 CLA KT&1 BR117800 TMI RNNM BR117900 FAD FP5 BR118000 MNNR STO KT&1 BR118100 LDQ KT&1 BR118200 TSX RNS,4 BR118300 LXD FSL,4 BR118400 TRA 1,4 BR118500 RNNM FSB FP5 BR118600 TRA MNNR BR118700 RNS PXD 0,0 BR118800 LLS 8 BR118900 STO WS&3 SAVE CHARACTERISTIC BR119000 SSP BR119100 SUB K200 BR119200 TZE LES1 BR119300 TMI LES1 BR119400 STA LSS BR119500 SSM BR119600 ADD K33 BR119700 STA ALR BR119800 CLA WS&3 BR119900 LSS LLS * BR120000 ALR ALS * BR120100 ROU STO WS&4 ROUNDED VALUE IN AC BR120200 TRA 1,4 BR120300 LES1 PXD 0,0 BR120400 TRA ROU BR120500 KONE HTR 0 BR120600 KTWO HTR 0 BR120700 KFOR HTR 0 BR120800 * ROUTINE TO ROUND FLT.-PT. TO DESIRED FLT.-PT.ACCURACY 2BBR120900 ROND SXA ROUT,4 *12-1-32BBR121000 CLA 1,4 STORE ADDRESS OF *12-1-32BBR121100 STA FACTR SPECIFIED *12-1-32BBR121200 STA *&1 SCALE FACTOR *12-1-32BBR121300 FMP ** INPUT IN MQ-FLT.-PT. *12-1-32BBR121400 TMI *&3 *12-1-32BBR121500 FAD #0.5 *12-1-32BBR121600 TRA *&2 *12-1-32BBR121700 FSB #0.5 *12-1-32BBR121800 UFA #O233000000000 *12-1-32BBR121900 FAD #O233000000000 *12-1-32BBR122000 FACTR FDP ** *12-1-32BBR122100 ROUT AXT **,4 *12-1-32BBR122200 TRA 2,4 VALUE IN MQ-FLT.-PT. *12-1-32BBR122300 OCT SXA OLOUT,4 *12-1-32BBR122400 CLA 1,4 *12-1-32BBR122500 STA *&1 *12-1-32BBR122600 FMP ** *12-1-32BBR122700 UFA #O233000000000 *12-1-32BBR122800 LRS *12-1-32BBR122900 ANA #O000077777777 *12-1-32BBR123000 LLS *12-1-32BBR123100 XCA *12-1-32BBR123200 OLOUT AXT **,4 *12-1-32BBR123300 TRA 2,4 *12-1-32BBR123400 REM BR123500 REM BR123600 REM THIS ROUTINE CALCULATES DELTAS MS, XS, YS, ZS, AS, CS, AND BR123700 REM PLACES THEM IN BLOCK IMAGE AT IMAGE &3 THRU IMAGE &8. ALSO BR123800 REM VELOCITIES, V, VM, VX, VY, VZ, VA, VC FOR THESE DELTA MOTIONSBR123900 REM ARE CALCULATED AND PLACED IN IMAGE&3- IMAGE&8. FOR THE BR124000 REM FIRST BLOCK OF THIS LINE, A SEQUENCE NUMBER IS PLACED IN BR124100 REM IMAGE. A ZERO SIGNIFIES OTHER BLOCKS OF THIS LINE. BR124200 REM BR124300 REM CALLING SEQUENCE TSX BLK, 4 BR124400 REM TRA ON BR124500 REM BR124600 BLK SXD BONE,1 BR124700 SXD BTWO,2 SAVE LINKAGE BR124800 SXD BFOUR,4 BR124900 SKP LXA LOC6,2 BR125000 LXD IMAGC,1 2S COMP FEED STEP TABLE BR125100 PKS LDQ DELM&6,2 DELM,V,Y,Z,A,C BR125200 FMP D1 BR125300 FDP DELM BR125400 TSX RN4,4 BR125500 STQ 3,1 BLOCK IMAGE DELTA M, X, Y, Z, A, C BR125600 STQ MS&6,2 DELM IN MS, DELX IN YS, ETC BR125700 TXI *&1,1,-1 BR125800 TIX PKS,2,1 BR125900 LXA LOC6,4 BR126000 LXD IMAGC,1 BR126100 SPK CLA DELM&6,4 CALCULATE BR126200 FSB MS&6,4 NEW BR126300 STO DELM&6,4 DELTA M, X, Y, Z, A, C BR126400 TIX SPK,4,1 BR126500 CLA SW1 BR126600 TZE NRST BR126700 CLA SEQ BR126800 STO 0,1 INPUT BLOCK BR126900 ADD LOC1 CALC NEXT BR127000 STO SEQ SEQ NUMBER BR127100 TSRN STZ SW1 BR127200 CLA LOOP BR127300 FSB DEC1 BR127400 STO LOOP BR127500 LXD BONE,1 RESTORE LINKAGE BR127600 LXD BTWO,2 BR127700 LXD BFOUR,4 BR127800 TRA 1,4 BR127900 NRST STZ 0,1 NON INPUT CODE BR128000 TRA TSRN BR128100 BONE HTR 0 DELETE BR128200 BTWO HTR 0 LATER BR128300 BFOUR HTR 0 BR128400 REM BR128500 REM BR128600 REM THIS ROUTINE CALCULATES THE FEED NUMBER - FN BR128700 REM FN EQU FS/MS BR128800 REM BR128900 REM CALLING SEQUENCE TSX FN, 4 BR129000 REM HTR IMAGE BR129100 REM BR129200 FEED SXD FONE,1 BR129300 SXD FTWO,2 BR129400 SXD FFUR,4 BR129500 LXD IMAGC,1 BLOCK IMAGE LOC BR129600 CLA FS BR129700 FDP MS BR129800 ZET FNFORM FOR XX.XX FEED NUMBER 1ABR129810 TRA FEFN 1ABR129820 TSX RNN,4 BR129900 FEV2 LDQ D999 *12-1-32BBR130000 TLQ R9 BR130100 STO 2,1 BR130200 STO FRN BR130300 CARB LXA LOC6,4 BR130400 CARY LDQ FRN BR130500 FMP MS&6,4 CALC VELOCITIES ON EACH BR130600 STO VM&6,4 AXIS BR130700 STO 9,1 BR130800 TXI *&1,1,-1 BR130900 TIX CARY,4,1 BR131000 TSX FEDMP,4 BR131100 LXD FONE,1 BR131200 LXD FTWO,2 BR131300 LXD FFUR,4 BR131400 TRA 1,4 BR131500 R9 STQ 2,1 BR131600 STQ FRN BR131700 TRA CARB BR131800 FEFN TSX ROND,4 FOR XX.XX FEED NUMBER 1ABR131810 PZE FSIZE 1ABR131820 XCA 1ABR131830 TRA FEV2 1ABR131840 FONE HTR 0 BR131900 FTWO HTR 0 BR132000 FFUR HTR 0 BR132100 REM BR132200 REM BR132300 REM THIS ROUTINE PLACES BLOCK IMAGE IN CURRENT BUFFER LOCATIONS BR132400 REM AND SAVES LOCATION OF NEXT BUFFER LOCATIONS TO BE STORED. BR132500 REM ALSO THE LINKAGE BETWEEN FN, BLK, STOB IS EXAMINED AND BR132600 REM RETURN IS MADE TO EITHER FN DEPENDING UPON LOOP COUNT OR BR132700 REM CONTINUES ON IN PROGRAM BR132800 REM BR132900 REM CALLING SEQUENCE TSX STOB,4 BR133000 REM HTR RETURN BR133100 REM BR133200 STOB SXD SONE,1 SAVE BR133300 SXD STWO,2 LINKAGE BR133400 SXD SFOR,4 BR133500 LXD IMAGC,1 BR133600 LXD BLOC,2 CURRENT BLOCK IN BUFF BR133700 LXA IMSIZ,4 TEST FOR LAST BLOCK BR133800 STRN CLA 0,1 BR133900 STO 0,2 PLACE CARD IMAGE BR134000 TXI *&1,1,-1 INTO BUFF BR134100 TXI *&1,2,-1 BR134200 TIX STRN,4,1 BR134300 SXD BLOC,2 SAVE CURRENT BUFF ADDRESS BR134400 STOBT TXL OVFLO,2,** %STUFF END OF BUFF) PLUS 1 BR134500 LXD SONE,1 BR134600 LXD STWO,2 BR134700 TSX CKLOP,4 BR134800 LXD SFOR,4 BR134900 CLA LOOP BR135000 TZE 1,4 BR135100 TMI 1,4 BR135200 CLA DS BR135300 STO D1 BR135400 TRA -2,4 BR135500 SONE HTR 0 BR135600 STWO HTR 0 BR135700 SFOR HTR 0 BR135800 REM BR135900 OVFLO TSX PRNTOF,4 BR136000 PZE 8,1 BR136100 TXH OV1,2,8 BR136200 TXH OV2,2,6 BR136300 TXH OV3,2,6 BR136400 TRA FINALR BR136500 OV1 BCI 8,POST PROCESSING DISCONTINUED, INCREASE THE SIZE BR136600 OV2 BCI 6,OF D$BUFF TO PROCESS A LONG MOVEMENT BR136700 OV3 BCI 6, BETWEEN TWO SUCESSIVE INPUT POINTS BR136800 REM BR136900 * BR137000 CKLOP TRA 1,4 BYPASS UNTIL CORRECTED BR137100 TMI 1,4 BR137200 CAS #10.0 IF LOOP IS LARGER OR BR137300 TRA UP10 EQUAL TO 10, ATTEMPT BR137400 TRA UP10 TO COMBINE IN NEXT HIGHER BR137500 TRA 1,4 MULTIPLIER CODE BR137600 UP10 CLA IMAGE&1 BR137700 TZE TYG01 PRESENTLY G01 RANGE BR137800 FSB #10.0 BR137900 TNZ 1,4 FOR G60 RANGE BR138000 CLA MAXGX G10 RANGE HERE BR138100 FSB #100.0 BR138200 TNZ 1,4 G60 NOT AVAILABLE BR138300 CLA #100.0 G60 IS AVAILABLE BR138400 CKOUT STO IMAGE&1 BR138500 CLA LOOP BR138600 FSB #10.0 BR138700 STO LOOP BR138800 TRA 1,4 BR138900 TYG01 CLA #10.0 BR139000 TRA CKOUT BR139100 REM THIS ROUTINE STORES VALUES FROM BUFF INTO A BR139200 REM REWRK REGION. WHEN REWRK REGION IS FULL BR139300 REM AND A BLOCK FROM BUFF IS TO BE PLACED BR139400 REM INTO REWRK, THE BLOCK ALREADY IN REWRK IS BR139500 REM THEN FORCED TO OUTPUT WHERE IT IS PRINTED BR139600 REM AND PLACED IN OUTPUT STORAGE TO BE CONVERTED BR139700 REM AND WRITTEN ON AN OUTPUT TAPE WHEN OUTPUT BR139800 REM STORAGE IS FULL. BR139900 REM BR140000 REM CALLING SEQUENCE TSX STORE, 4 BR140100 REM HTR RETURN BR140200 REM BR140300 REM BR140400 STORE SXD ONES,1 SAVE BR140500 SXD TWOS,2 LINKAGE BR140600 SXD FORS,4 BR140700 LXA BLOC,4 PLACE BEGINNING OF BR140800 SXD BNXT,4 BUFF IN BNXT BR140900 CLA BLOC BR141000 STD RBTM BR141100 MPTY CLA BLCT IS REWRK BR141200 TZE PUSH FULL BR141300 FSB DEC1 BR141400 STO BLCT BR141500 FULL LXA IMSIZ,4 NO. OF VALUES IN BLOCK BR141600 LXD RLOC,2 CURRENT REWRK BLOCK BR141700 LXD BNXT,1 2S COMP NEXT BUFFER BLOCK BR141800 SLUP CLA 0,1 CURRENT BUFF BLOCK INTO BR141900 STO 0,2 REWRK REGION BR142000 TXI *&1,1,-1 BR142100 TXI *&1,2,-1 BR142200 TIX SLUP,4,1 BR142300 STM TXL ZA,2,* STUFF 2S COMP END OF REMARK BR142400 ZP SXD RLOC,2 BR142500 RBTM TXL DUNN,1,* LAST INFO IN BUFF BR142600 SXD BNXT,1 BR142700 TRA MPTY BR142800 ZA LXA RONE,2 BR142900 SXD RLOC,2 BR143000 TRA RBTM BR143100 PUSH TSX POUT,4 TO OUTPUT ROUTINE BR143200 TRA FULL BR143300 DUNN TSX SEDMP,4 BR143400 LXD ONES,1 BR143500 LXD TWOS,2 BR143600 LXD FORS,4 BR143700 TRA 1,4 BR143800 ONES HTR 0 BR143900 TWOS HTR 0 BR144000 FORS HTR 0 BR144100 REM BR144200 REM THIS SUBROUTINE ACCEPTS INCOMING AXIS VELOCITY VECTORS AND BR144300 REM OUTGOING VELOCITY VECTORS ABOUT A POINT AS INPUT. PAIRS OF BR144400 REM AXIS ARE AJUSTED UNTIL THE VELOCITY STEP BETWEEN ANY PAIR OF BR144500 REM AXIS DOES NOT EXCEED THE INTERVALS DEFINED IN THE VELOCITY BR144600 REM JUMP TABLE IN THIS ROUTINE. BR144700 REM BR144800 REM CALLING SEQUENCE TSX CRNR,4 BR144900 REM HTR IMAGE BR145000 REM CSTUF HTR ** BR145100 REM TRA ERROR BR145200 REM TRA ON BR145300 REM BR145400 CRNR SXD CONE,1 BR145500 SXD CTWO,2 BR145600 SXD CFOR,4 BR145700 CLA 1,4 BR145800 COM BR145900 ADD LOC1 BR146000 PAX 0,1 ORIGINALLY 2S COMP VM1 BR146100 SXD VIN,1 2S COMP VM1 BR146200 CLA 2,4 BR146300 COM BR146400 ADD LOC1 BR146500 PAX 0,2 ORIGINALLY 2S COMP VM2 BR146600 SXD VOU,2 2S COMP VM2 BR146700 CLA TSTUF&1 ADDRESS OF CORNER TABLE BR146800 PAX 0,4 BR146900 SXD COMTB,4 BR147000 SUB 0,4 BR147100 ALS 18 BR147200 STD LVAL BR147300 STZ SWV BR147400 LXA LOC6,4 SAVE LINE 2 BR147500 SAV2 CLA 0,2 IN TEMP STORAGE BR147600 STO CRS&16,4 CRS&10-CRS&15 BR147700 TXI *&1,2,-1 BR147800 TIX SAV2,4,1 BR147900 STZ COR1 BR148000 STZ COR2 BR148100 LXD VOU,2 RESTORE IR1 BR148200 FSTAR LXA LOC5,4 BR148300 SXD CRS&1,1 ORIGINALLY 2S COMP VM1 BR148400 SXD CRS&2,2 ORIGINALLY 2S COMP VM2 BR148500 CLA DEC1 INITIALIZE SCALE BR148600 STO KS FACTOR BR148700 FAXIS SXD CRS,4 BR148800 CLA 1,2 VX2..VX1...VX2 BR148900 TZE CRA VX2, VY2, VZ2, ETC EQU 0 BR149000 LDQ 1,1 BR149100 FMP 1,2 VX1.VX2 BR149200 TZE CRZ VX. EQU 0 BR149300 TMI CRE REVERSAL BR149400 TSX TABLS,4 INTERPOLATION ROUTINE BR149500 FDP 1,2 N/VX2 EQU KX BR149600 TQP LAXIS BR149700 PXD 0,0 SET AC TO&0 BR149800 LRS 0 SET MQ POSITIVE BR149900 LAXIS TSX SMALK,4 BR150000 LXD CRS,4 RESTORE COUNT BR150100 TXI *&1,1,-1 STEP UP FOR NEXT PAIR OF BR150200 TXI *&1,2,-1 AXIS TESTS BR150300 TIX FAXIS,4,1 BR150400 LXD CRS&1,1 RESTORE INDEX REGISTERS BR150500 LXD CRS&2,2 BR150600 CLA DECT BR150700 LDQ KS BR150800 TLQ CUTDN KS LESS DEC1 BR150900 CLA SWV KS EQU OR LARGER 1 BR151000 TZE SSET BR151100 ADON NOP ADD TESTS FOR VM1 BR151200 LXD VIN,1 BR151300 CLA 0,1 BR151400 STO COR1 INCOMING MAYOR AXIS VELOCITY BR151500 LXD VOU,2 BR151600 CLA 0,2 BR151700 STO COR2 OUTGOING MAJOR AXIS VELOCITY BR151800 TSX CRDMP,4 DUMP BR151900 LXA LOC6,4 BR152000 RSAV2 CLA CRS&16,4 RESTORE INPUT BR152100 STO 0,2 OF LINE 2 BR152200 TXI *&1,2,-1 BR152300 TIX RSAV2,4,1 BR152400 LXD CONE,1 & VM2 WHEN THIS BR152500 LXD CTWO,2 ROUTINE IS ADDED TO BR152600 LXD CFOR,4 EXECUTIVE ROUTINE BR152700 TRA 4,4 BR152800 CUTDN LXA LOC6,4 BR152900 CUT1 LDQ KS ADJUST VM2, VX2, VY2, VZ2 BR153000 FMP 0,2 VA2, VC2 BY KS BR153100 STO 0,2 VA2, VC2 BY KS BR153200 TXI *&1,2,-1 BR153300 TIX CUT1,4,1 BR153400 STZ SWV RE-INITIALIZE SWITCH BR153500 TRA RERAN BR153600 SSET CLA LOC1 BR153700 STO SWV BR153800 RERAN LXD CRS&1,2 INTERCHANGE INDEX REGISTERS BR153900 LXD CRS&2,1 BR154000 TRA FSTAR BR154100 CRA LDQ DEC1 SET KX, Y, Z, A, C EQU 1 BR154200 TRA LAXIS BR154300 CRZ LXD COMTB,4 BR154400 CLA 1,4 MINIMUM FEED STEP VALUE BR154500 FDP 1,2 BR154600 TQP LAXIS BR154700 PXD 0,0 CLEAR AC AND SET POSITIVE BR154800 LRS 0 SET MQ POSITIVE BR154900 TRA LAXIS BR155000 CRE LXD COMTB,4 BR155100 LDQ #0.5 FOR REVERSAL BR155200 FMP 1,4 BR155210 FDP 1,2 SET K FACTOR BR155300 TQP LAXIS BR155400 PXD 0,0 BR155500 LRS 0 BR155600 TRA LAXIS BR155700 SMALK CLA KS BR155800 TLQ REX KS LARGER KX BR155900 TRA 1,4 KS EQU OR LESS KX BR156000 REX STQ KS REPLACE KS WITH SMALLER BR156100 TRA 1,4 SCALE FACTOR BR156200 TABLS SXD CRS&4,4 SAVE ENTRY BR156300 LXD COMTB,4 2S COMP FEED STEP TABLE BR156400 STZ XA BR156500 TLOP CLA 1,1 VX1 OR XI BR156600 SSP ABSOLUTE VX1 OR XI BR156700 LDQ 1,4 FIRST FEED STEP VALUE BR156800 STQ XB BR156900 TLQ TSEK XI LARGER XB BR157000 TXI *&1,4,-1 XI EQU OR LESS XB BR157100 LVAL TXL TEND,4,* IS XC LAST VALUE IN TABLE BR157200 CLA 1,4 NO BR157300 STO XC BR157400 CLA XB BR157500 FSB XA BR157600 STO CRS&5 XB-XA BR157700 CLA 1,1 BR157800 SSP BR157900 FSB XA BR158000 STO CRS&6 XI-XA BR158100 CLA XC BR158200 FSB XB BR158300 FDP CRS&5 XB-XA BR158400 FMP CRS&6 XI-XA BR158500 FAD XB BR158600 TOUT STO CRS&7 N BR158700 LXD CRS&4,4 BR158800 TRA 1,4 BR158900 TSEK CLA XB BR159000 STO XA BR159100 TXI TLOP,4,-1 BR159200 TEND CLA XB AT END OF TABLE SET BR159300 TRA TOUT XB EQUAL TO XC BR159400 CONE HTR 0 BR159500 CTWO HTR 0 BR159600 CFOR HTR 0 BR159700 VIN HTR 0,0,0 2S COMP LINE 1 BR159800 VOU HTR 0,0,0 2S COMP LINE 2 BR159900 KS HTR 0 SCALE FACTOR BR160000 COMTB HTR 0,0,0 2S COMP FEED STEP TABLE BR160100 CRS BSS 20 BR160200 COR1 HTR 0 INCOMING MAJOR OXIS VELOCITY BR160300 COR2 HTR 0 OUTGOING MAYOR AXIS VELOCITY BR160400 PT5 DEC .5 TWIN BR160500 DECT DEC .95 BR160600 SWV HTR 0 SWITCH BR160700 XA HTR 0 BR160800 XB HTR 0 BR160900 XC HTR 0 BR161000 REM BR161100 REM BR161200 REM THIS ROUTINE CALCULATES THE DECELERATION BLOCKS BR161300 REM NECESSARY TO PROCESS A GIVEN LINE FROM A BR161400 REM FEED RATE TO A GIVEN CORNER RATE. OTHER BR161500 REM NECESSARY INFORMATION SUCH AS FEED NUMBERS, BR161600 REM AXIS VELOCITIES, AND DELTA MOTIONS FOR EACH BR161700 REM BLOCK ARE CARRIED FOR EACH BLOCK AS IT BR161800 REM TRANSFERS FROM BUFF TO REWRK REGIONS. BR161900 REM BR162000 REM CALLING SEQUENCE TSX REWK,4 BR162100 REM PZE LINE1 BR162200 REM PZE LINE2 BR162300 REM TRA ERROR BR162400 REM TRA ON BR162500 REWK SXD ZONE,1 BR162600 SXD ZTWO,2 BR162700 SXD ZFOR,4 BR162800 STZ IMAGE&1 SET FOR G01 MODE BR162900 CLA 1,4 BR163000 COM BR163100 ADD LOC1 BR163200 PAX 0,1 2S COMP INPUT BR163300 SXD RWS,1 SAVE BR163400 CLA 2,4 BR163500 COM BR163600 ADD LOC1 BR163700 PAX 0,2 2S COMP LINE 2 BR163800 CLA 14,2 TAPE READ TIME FOLLOWING BLOCK BR163900 STO TR2 BR164000 LXD WS&1,2 2S COMP FEED STEP TABLE BR164100 CLA 24,1 BR164200 STO BT MINIMUM BLOCK TIME THIS LINE BR164300 LXA BLOC,4 BR164400 SXD BLOC,4 BR164500 STZ SW1 BR164600 CLA DEC1 BR164700 STO RCNT BR164800 CLA IMAGE BR164900 STO ICAD BR165000 LXA LOC6,4 PLACE DELTAS FOR LAST BLOCK BR165100 SDEM CLA IMAGE&9,4 OF THIS LINE IN DELM, DELX, BR165200 STO DELM&6,4 DELY, DELZ, DELA, DELC LOCATIONS BR165300 TIX SDEM,4,1 BR165400 CLA TR2 TAPE READ TIME FOLLOWING BLOCK BR165500 LDQ BT BR165600 TLQ EXC TR2 LARGER BT BR165700 STQ KB BR165800 CXCPA LDQ 1,2 BR165810 FMP #.51 BR165812 LDQ CORA BR165814 TLQ REVRD BR165816 CXCP TSX INTVL,4 ADJUST TABLE INTERVAL BR165900 CXC LDQ 1,2 FIRST FEED STEP VALUE BR166000 STQ FS BR166100 CLA CORA MAJOR AXIS VELOCITY AT CORNER BR166200 TLQ RNXT FS LESS CORNER RATE BR166300 RB LXD RLOC,4 BR166400 LDQ FS BR166500 FMP PCNT BR166600 FAD FS BR166700 CAS 9,4 VM PRECEEDING BLOCK BR166800 TRA RCHG BR166900 TRA RCHG BR167000 TRA RBAC BR167100 RCHG LXD RLOC,4 FS EQU OR LARGER VM BR167200 CLA 9,4 REPLACE FS WITH VM BR167300 STO FS BR167400 RCHA CLA DELM BR167500 STO D1 BR167600 TSX KENYB,4 SELECT CORRECT G MULTIPLIER BR167700 TRA RXIT BR167800 TSX KEN,4 PROCESS LAST BR167900 TSX BLK,4 BLOCK %S) AND PLACE IN BR168000 TSX FEED,4 BUFF AND REWRK REGIONS BR168100 TSX STBAC,4 STORE BACKWARDS INTO BUFF BR168200 RXIT TSX SEQCT,4 BR168300 REXT LXD ZONE,1 BR168400 LXD ZTWO,2 BR168500 LXD ZFOR,4 BR168600 TRA 4,4 TRA ERROR BR168700 RBAC LDQ FS CALC FIRST DECELERATION BR168800 FMP KB DISTANCE BR168900 STO D1 BR169000 LDQ 2,2 CALC SECOND DECELERATION BR169100 FMP BT DISTANCE BR169200 STO D2 BR169300 TXN TXL RCG1,2,* PRINT DIAGNOSTIC FOR VM EXCEEDING BR169400 FAD D1 HIGHEST ALLOWABLE FEED STEP BR169500 LDQ DELM VALUE BR169600 TLQ REDO D1&D2 LARGER DELM BR169700 TSX BLK,4 CALC DECELERATION BR169800 TSX FEED,4 SPAN %S) BR169900 TSX STBAC,4 BR170000 CLA BT AFTER FIRST DECELERATION BR170100 STO KB BLOCK USE ORIGINAL BLOCK TIME BR170200 TXI CXC,2,-1 SELECT NEXT FEED STEP IN TABLE BR170300 EXC STO KB REPLACE LAST BLOCK TIME BR170400 LXD RLOC,4 WITH TAPE READ TIME NEXT LINE BR170500 CLA DELM BR170600 FDP KB VM CALCULATED BR170700 CLA 9,4 VM GIVEN BR170800 TLQ *&2 V CALC LESS V GIVEN BR170900 TRA CXCPA V CALC LARGER V GIVEN BR171000 STQ 9,4 REPLACE V GIVEN BR171100 TRA CXCPA WITH TAPE READ TIME NEXT LINE BR171200 REVRD CLA 1,2 BR171210 FDP #2.0 BR171220 STQ FS BR171230 TXI RB,2,1 BR171240 RCG1 TRA RCHG BR171300 RNXT TXL RCG1,2,* STUFF 2S COMP LAST VALUE FEED STEP TABLE BR171400 TXI CXC,2,-1 SELECT NEXT FEED STEP VALUE BR171500 FOFF SXD RWS&1,4 BR171600 CLA RLOC TEST FOR FALLING OFF BR171700 ARS 18 FRONT END OF REWRK BR171800 SUB RONE BEFORE SETTING CURRENT BR171900 TNZ RMID REWRK BLOCK IN BR172000 LXD RLST,4 DECREMENT OF RLOC BR172100 TXI *&1,4,14 BR172200 ROF SXD RLOC,4 LAST ACCELERATION BLOCK IN REWRK BR172300 LXD RWS&1,4 BR172400 TRA 1,4 BR172500 RMID LXD RLOC,4 BR172600 TXI *&1,4,15 BR172700 TRA ROF BR172800 REM THIS LOOP ENTERED WHEN LINE IS TO SHORT TO BR172900 REM REACH DESIRED FEED RATE BR173000 DEDO BCD 6REWORK EXHAUSTED-CHECK FEED RATES BR173100 DIAG9 TSX PRNTOF,4 BR173200 PZE 8,1 BR173300 TXH DEDO,2,6 BR173400 TRA RCHA BR173500 REDO CLA BLCTH BR173600 FSB BLCT BR173700 BXP FSB RCNT BR173800 TMI DIAG9 BR173900 TZE DIAG9 BR174000 LXD RLOC,4 BR174100 CLA 0,4 SEQ # BR174200 TNZ RBND INPUT BLOCK BR174300 TSX FOFF,4 STEP BACK ONE BLOCK IN BR174400 LXD RLOC,4 REWRK BR174500 CLA 2,4 BR174600 TZE NOGO NON MOTION BLOCK BR174700 HEX CLA 0,4 BR174800 STO ICAD BR174900 CLA RCNT BR175000 FAD DEC1 BR175100 STO RCNT BR175200 SXD RWS&2,1 BR175300 TSX BACUP,1 BR175400 LXA LOC6,1 BR175500 REDM CLA DELM&6,1 BR175600 FAD 3,4 BR175700 STO DELM&6,1 BR175800 TXI *&1,4,-1 BR175900 TIX REDM,1,1 BR176000 LXD RWS&2,1 BR176100 TRA RB BR176200 RBND STO ICAD SEQ NO. THIS LINE BR176300 CLA DELM BR176400 STO D1 BR176500 TSX KENYB,4 BR176600 TRA RBIT BR176700 TSX KEN,4 BR176800 TSX BLK,4 BR176900 TSX FEED,4 BR177000 TSX STBAC,4 BR177100 RBIT TSX SEQCT,4 BR177200 TSX FOFF,4 GO BACK ONE MORE BLOCK IN RECK BR177300 LXD RLOC,4 BR177400 CLA 2,4 BR177500 TZE NOGO NON-MOTION BLOCK BR177600 CLA 0,4 SEQ NO. THIS BLOCK BR177700 STO ICAD BR177800 STZ CORA SET CORNER TEST VALUE TO ZERO BR177900 CLA RCNT BR178000 FAD DEC1 BR178100 STO RCNT BR178200 TSX TAPE,4 COLC BLOCK TIME THIS LINE BR178300 CLA BT IN MQ BR178400 TLQ RPN BT LARGER BTO BR178500 STQ KB BT EQU OR LESS BTO BR178600 STQ BT BR178700 NPR TRA ROS SET NEW BLOCK TIMES BR178800 RPN STO KB FOR REWORKED BLOCKS BR178900 STQ BT BR179000 TRA NPR BR179100 ROS LXD RLOC,4 BR179200 SXD TSA&2,1 BR179300 TSX BACUP,1 BR179400 LXA LOC6,1 BR179500 DZAM CLA 3,4 DELTA M, X, Y, Z, A, C BR179600 STO DELM&6,1 PLACE REWORKED BLOCK BR179700 TXI *&1,4,-1 DELTA MOTIONS INTO DETA BR179800 TIX DZAM,1,1 SYMBOLIC LOCATIONS BR179900 LXD RLOC,4 RESTORE REGISTERS BR180000 LXD TSA&2,1 BR180100 TXI CXC,2,-1 BR180200 SEQCT SXD RWS&3,2 BR180300 LXD BLOC,2 BR180400 CLA ICAD BR180500 STO -1,2 BR180600 STZ ICAD BR180700 LXD RWS&3,2 BR180800 TRA 1,4 BR180900 NOGO LXD ZFOR,4 ERROR EXIT BR181000 TRA 3,4 BR181100 * BR181200 BACUP SXA BA1,1 USE THIS BR181300 SXA BA2,2 SECTION BR181400 SXA BA4,4 TO TEST BR181500 CLA 1,4 FOR APPROPRIATE BR181600 TZE BA4 G MULTIPLE BR181700 FSB #1.0 BR181800 TZE BA4 BR181900 FSB #9.0 BR182000 TZE BABI BR182100 FSB #90.0 BR182200 TNZ NOGO BR182300 BABI CLA 1,4 BR182400 STO BMUL BR182500 STZ 1,4 CALCULATE BR182600 AXT 6,2 CORRECT BR182700 BMBA LDQ 3,4 TRUE DELTA BR182800 FMP BMUL FOR THIS BR182900 STO 3,4 BLOCK BR183000 TXI *&1,4,-1 BR183100 TIX BMBA,2,1 BR183200 BA4 AXT **,4 BR183300 BA2 AXT **,2 BR183400 BA1 AXT **,1 BR183500 TRA 1,1 BR183600 BMUL DEC 0 BR183700 REM SUBROUTINE TO COMPARE MINIMUM TIME OF PRECEEDING BR183800 REM BLOCK AGAINST TAPE READ TIME OF FOLLOWING BLOCK BR183900 REM BR184000 TAPE SXD RPON,1 SAVE BR184100 SXD RDOS,2 LINKAGE BR184200 SXD RFOR,4 BR184300 STZ DSIZ BR184400 LXD RLOC,4 BR184500 LXA LOC5,2 BR184600 DCNT CLA 4,4 DELTAX, Y, Z, A, C BR184700 TNZ TADD BR184800 DAT TXI *&1,4,-1 BR184900 TIX DCNT,2,1 BR185000 CLA DSIZ BR185100 FAD FNSIZ BR185200 FAD CUSON BR185300 STO DSIZ NUMBER OF CHARACTERS BR185400 LXD RLOC,4 BR185500 CLA 1,4 BR185600 TNZ AUXD BR185700 DUX CLA DSIZ BR185800 FDP TRS TAPE READ TIME IN SECONDS BR185900 STQ TSA BR186000 CLA TSA BR186100 FDP DEC60 BR186200 CLA MINT BR186300 TLQ TEY MIN TIME LARGER TAPE READ TIME BR186400 YEB STQ TSA&1 BR186500 LXD RPON,1 MIN TIME LESS TAPE READ TIME HERE BR186600 LXD RDOS,2 BR186700 LXD RFOR,4 BR186800 TRA 1,4 BR186900 TEY LDQ MINT BR187000 TRA YEB BR187100 TADD CLA DSIZ BR187200 FAD BLKSZ BR187300 STO DSIZ BR187400 TRA DAT BR187500 AUXD CLA DSIZ BR187600 FAD SSIZ BR187700 STO DSIZ BR187800 TRA DUX BR187900 ZONE HTR 0 BR188000 ZTWO HTR 0 BR188100 ZFOR HTR 0 BR188200 REM BR188300 REM BR188400 REM THIS ROUTINE PLACES BLOCK IMAGE IN CURRENT BR188500 REM BUFFER LOCATIONS IN INVERSE ORDER AND SAVES BR188600 REM LOCATION OF NEXT BUFFER LOCATIONS TO BE STORED. BR188700 REM ALSO THE LINKAGE BETWEEN FEED, BLK, STBAC BR188800 REM IS EXAMINED AND RETURN IS MADE TO EITHER BR188900 REM FEED DEPENDING UPON LOOP COUNT OR CONTINUES BR189000 REM ON IN PROGRAM. BR189100 REM BR189200 REM CALLING SEQUENCE TSX STBAC,4 BR189300 REM HTR RETURN BR189400 REM BR189500 STBAC SXD STUN,1 BR189600 SXD STOO,2 BR189700 SXD SOUR,4 BR189800 LXD IMAGC,1 2S COMP BLOCK IMAGE BR189900 LXD BLOC,2 BR190000 LXA IMSIZ,4 BR190100 IBAC CLA 14,1 STORE IN INVERSE BR190200 STO 0,2 ORDER BR190300 TXI *&1,2,-1 IN BUFF BR190400 TXI *&1,1,1 BR190500 TIX IBAC,4,1 BR190600 SXD BLOC,2 BR190700 LXD STUN,1 RESTORE LINKAGE BR190800 LXD STOO,2 BR190900 TSX CKLOP,4 BR191000 LXD SOUR,4 BR191100 CLA LOOP IS LOOP COUNT ZERO BR191200 TZE 1,4 BR191300 TMI 1,4 BR191400 CLA DS BR191500 STO D1 BR191600 TRA -2,4 BR191700 STUN HTR 0 BR191800 STOO HTR 0 BR191900 SOUR HTR 0 BR192000 REM BR192100 REM BR192200 REM THIS ROUTINE STORES VALUES FROM THE LAST INFO BR192300 REM IN BUFF REGION INTO THE REWRK REGION. WHEN BR192400 REM REWRK REGION IS FULL, BLCT EQUAL 0, A BLOCK BR192500 REM IS FORCED FROM REWRK TO OUTPUT BEFORE IT IS BR192600 REM REPLACED WITH A NEW BLOCK FROM BUFF. BR192700 REM BR192800 REM CALLING SEQUENCE TSX STORY,4 BR192900 REM HTR RETURN BR193000 REM BR193100 STORY SXD SSON,1 BR193200 SXD SSTO,2 BR193300 SXD SSFO,4 BR193400 CLA RCNT BACK UP REWORK BR193500 FAD BLCT THE APPROPRIATE BR193600 STO BLCT NUMBER OF TIMES BR193700 RTY CLA BLCT NO REWRK HERE BR193800 TZE RPUSH BR193900 FSB DEC1 BR194000 STO BLCT BR194100 RFUL LXA IMSIZ,4 NO. OF VALUES IN BLOCK BR194200 LXD RLOC,2 BR194300 LXD BLOC,1 ONE PAST LAST VALUE IN BUFF BR194400 RLUP CLA -1,1 BEGINNING OF BLOCK IMAGE BR194500 STO 0,2 INTO REWRK BR194600 TXI *&1,2,-1 STEP UP REWRK BR194700 TXI *&1,1,1 STEP BACK TOWARD FRONT OF BUFF BR194800 TIX RLUP,4,1 BR194900 SR1 TXL SZA,2,* STUFF END OF REWRK HERE BR195000 RZP SXD RLOC,2 BR195100 RBTR TXH RDUN,1,* STUFF 2 FROM BUFF FRONT END HERE BR195200 SXD BLOC,1 BR195300 TRA RTY BR195400 SZA LXA RONE,2 BR195500 SXD RLOC,2 BR195600 TRA RBTR BR195700 RPUSH TSX POUT,4 TO OUTPUT ROUTINE BR195800 TRA RFUL BR195900 RDUN TSX SEDMP,4 BR196000 LXD SSON,1 BR196100 LXD SSTO,2 BR196200 LXD SSFO,4 BR196300 TRA 1,4 BR196400 SSON HTR 0 BR196500 SSTO HTR 0 BR196600 SSFO HTR 0 BR196700 RPON HTR 0 BR196800 RDOS HTR 0 STORAGE BR196900 RFOR HTR 0 BR197000 REM BR197100 REM BR197200 REM THIS SUBROUTINE UTILIZES THE INTERNAL BR197300 REM ACCELERATION & DECELERATION CONTROL OF THE TRW BR197400 REM CONTROL SYSTEM KNOWN AS IFR0-INTERNAL BR197500 REM FEEDRATE OVERRIDE BR197600 REM BR197700 REM CALLING SEQUENCE TSX 1FR0,4 BR197800 REM PZE INPT BR197900 REM TRA ON BR198000 REM BR198100 IFRO SXD OS,1 BR198200 SXD OS&1,2 SAVE LINKAGE BR198300 SXD OS&2,4 BR198400 CLA #1 BR198500 STO FRPNT 2BBR198600 CLA 1,4 BR198700 COM BR198800 ADD LOC1 BR198900 PAX 0,1 BR199000 SXD WS,1 BR199100 LXA BLOC,4 INITIALIZE BR199200 SXD BLOC,4 BUFFER REGION BR199300 LXA LOC6,4 BR199400 IST0 CLA 7,1 DELTA M BR199500 STO DELM&6,4 PLACE AXIS LENGTHS IN BR199600 TXI *&1,1,-1 DELM, X, Y, Z, A, C BR199700 TIX IST0,4,1 LOCATIONS BR199800 CLA LOC1 BR199900 STO SW1 BR200000 STZ FS BR200100 STZ IMAGE&1 BR200200 CLA DELM TEST TO SEE IF BR200300 CAS P9 DELM IS LARGER THAN BR200400 TRA T10 .9999 BR200500 TRA *&1 NO BR200600 STO D1 BR200700 TSX BLK,4 1 G01 BR200800 TSX FEED,4 BR200900 TSX STOB,4 F00 BLOCK BR201000 TRA IOUT BR201100 * BR201200 T10 CAS P9P BR201300 TRA T100 THAN 9.9999 HERE BR201400 TRA *&1 EQUAL OR LESS HERE BR201500 CLA #10.0 BR201600 STO GVAL PROCESS 1 TO 2 BR201700 TSX GPOSN,4 F00 BLOCKS BR201800 TRA IOUT BR201900 * BR202000 T100 CLA MAXGX MAXIMUM G MULTIPLIER BR202100 STO GVAL 10.0000 TO BR202200 TSX GPOSN,4 99.9999 BR202300 TRA IOUT HERE BR202400 IOUT TSX STORE,4 PLACE BUFF IN REWORK BR202500 STZ IMAGE&1 SET GO8 TO ZERO BR202600 LXD OS,1 BR202700 LXD OS&1,2 BR202800 LXD OS&2,4 BR202900 TRA 2,4 BR203000 REM BR203100 * SECTION TO TEST FOR G10 AND G60 USAGE BR203200 * 2BBR203300 GPOSN SXA GOUT,4 BR203400 AXT 5,4 FS LARGER THAN GDIS 1EBR203500 STZ MXDEL USE FOR MAXIMUM SIGNIFICANCE DELTA 1EBR203510 GYY LDQ DELM&6,4 2BBR203600 FMP SCALE CALCULATE AND SAVE 2BBR203700 FDP GVAL THE DECIMAL PLACE BR203800 XCA TRUNCATED BY USE 2BBR203900 UFA #O233000000000 OF THE GMULT CODE 2BBR204000 FAD #O233000000000 2BBR204100 FDP SCALE 2BBR204200 FMP GVAL BR204300 CHS 2BBR204400 FAD DELM&6,4 2BBR204500 STO DELS&6,4 2BBR204600 SSP SELECT LARGEST OF DELS VALUES 1EBR204610 CAS MXDEL 1EBR204611 STO MXDEL SAVE AS LARGEST DELS VALUE 1EBR204612 NOP 1EBR204613 TIX GYY,4,1 2BBR204700 * 2BBR204800 CLA MXDEL SAVE LARGEST SIGNIFICANCE 1EBR204810 STO DELS DELTA 1EBR204820 * 1EBR204830 AXT 5,4 SCALE DELTAS 1EBR204900 CLA DELM&6,4 FOR G10 SIZE 2BBR205000 FSB DELS&6,4 ADJUST FOR G10 SIGNIFICANCE 2BBR205100 FDP GVAL BR205200 STQ DELM&6,4 2BBR205300 TIX *-4,4,1 4BBR205400 * 2BBR205500 LDQ DELM 1EBR205510 FMP SCALE TRUNCATE 1EBR205515 FDP GVAL DELM TO SAVE 1EBR205520 XCA SIGNIFICANCE 1EBR205525 UFA #O233000000000 1EBR205530 FAD #O233000000000 1EBR205535 FDP SCALE 1EBR205540 STQ DELM 1EBR205560 CLA GVAL BR205600 STO IMAGE&1 PROCESS 2BBR205700 CLA DELM G10 2BBR205800 STO D1 BLOCK%S) 2BBR205900 TSX KEN,4 BR206000 TSX BLK,4 2BBR206100 TSX FEED,4 2BBR206200 TSX STOB,4 2BBR206300 CLA DELS MAKE SURE THAT BR206400, 1EBR206700 FSB #.00005 BR206500,BR206600 1EBR206800 TMI GOUT HAVE BEEN REMOVED 1EBR206810 NONZ AXT 6,4 NO BR206900 CLA DELS&6,4 BR207000 STO DELM&6,4 BR207100 TIX *-2,4,1 BR207200 CLA DELM BR207300 STO D1 BR207400 STZ IMAGE&1 BR207500 TSX BLK,4 BR207600 TSX FEED,4 BR207700 TSX STOB,4 BR207800 GOUT AXT **,4 BR207900 TRA 1,4 BR208000 MXDEL DEC 0.0 SYMBOLIC FOR MAX. SIGNIFICANCE DELTA 1EBR208010 DELS BSS 6 LOCATIONS FOR SIGNIFICANCE OF DELTAS 2BBR208100 * 2BBR208200 REM FOLLOWING SECTION IS USED TO CLEAR OUT REWRK BUFFER BR208300 REM BR208400 REM CALLING SEQUENCE TSX KLEAR, 4 BR208500 REM RETURN BR208600 REM BR208700 KLEAR SXD KL4,4 BR208800 CLA BLCT BR208900 TZE KLER1 BR209000 CLA BLCTF SET UP TO EMPTY BR209100 FSB BLCT PARTIALLY FILLED BR209200 TZE KERE PREVIOUSLY EMPTIED BR209300 FAD DEC1 BR209400 STO BLCTF BR209500 KLER1 LXA BLOC,4 BR209600 SXD BLOC,4 BR209700 LXA IMSIZ,4 BR209800 STZ IMAGE&15,4 BR209900 TIX *-1,4,1 BR210000 STZ LOOP BR210100 TSX STOB,4 BR210200 TSX STORE,4 BR210300 CLA BLCT BR210400 TNZ KLER1 BR210500 CLA BLCTF BR210600 FSB DEC1 BR210700 STO BLCTF BR210800 TNZ KLER1 BR210900 KERE LXD KL4,4 BR211000 CLA LOC1 2BBR211100 STO FRPNT INITIALIZE FIRST POINT SWITCH 2BBR211200 TRA 1,4 BR211300 KL4 PZE 0 BR211400 REM BR211500 REM BR211600 REM THIS IS PORTION TO PRINT BLOCK OR BLOCKS AND FORCE TO OUTPUT BR211700 REM ROUTINE TO BE WRITTEN ON TAPE BR211800 REM BR211900 POUT SXD PO1,1 BR212000 SXD PO2,2 BR212100 SXD PO4,4 BR212200 LXD RLOC,1 BLOCK TO BE OUTPUT BR212300 CLA 0,1 SEQUENCE NUMBER BR212400 TZE *&4 BR212500 CLA CPRINT PRINT COORDINATES BR212600 TZE *&2 BR212700 STO PRECLU BR212800 CLA 1,1 BR212900 TNZ BEVY TEST TO SEE BR213000 NZT GMODE BR213100 TRA MUNPA G01 NOT NEEDED BR213200 SETG1 CLA #1 IF G01 BR213300 STO SHOVE BR213400 TRA MUNP IS REQUIRED BR213500 BEVY CLA 1,1 BR213600 FSB #10.0 TEST FOR BR213700 TNZ P60 BR213800 CLA #10 G10 BR213900 STO SHOVE BR214000 TRA MUNP AND BR214100 P60 CLA 1,1 BR214200 FSB #100.0 G60 BR214300 TNZ PNUM BR214400 CLA #60 BLOCKS BR214500 STO SHOVE BR214600 TRA MUNP BR214700 PNUM TRA MUNP MAY EXPAND LATER BR214800 MUNP CLA SHOVE DAVE G MULT CODE BR216800 STO GSAVE BR216900 LDQ 2,1 FEED NUMBER BR217000 STQ FNUM FEED NUMBER FOR PRINTOUT BR217100 ZET FNFORM FOR XX.XX FEED NUMBER 1ABR217110 TRA POFN 1ABR217120 TSX OCTAL,4 BR217200 STFN STO SHOVE&6 FEED NO.AS OCTAL INTEGER *12-1-32BBR217300 CLA 3,1 BR217400 TZE AUXDE NON MOTION BLOCK BR217500 STZ SQSUM BR217600 LXA LOC5,2 BR217700 SOCT CLA XCOOR&5,2 CALC NEW COORDINATE BR217800 FAD 4,1 VALUES BR217900 STO XCOOR&5,2 BR218000 LDQ 4,1 BR218100 FMP SCALE CONVERT DELTA BR218200 LRS 35 MOTIONS TO OCTAL BR218300 TSX OCTAL,4 INTEGERS BR218400 STO SHOVE&6,2 BR218500 LDQ 10,1 BR218600 FMP 10,1 CALC RESULTANT BR218700 STO 10,1 FEED RATE BR218800 CLA SQSUM BR218900 FAD 10,1 BR219000 STO SQSUM BR219100 TXI *&1,1,-1 BR219200 TIX SOCT,2,1 BR219300 CLA SQSUM BR219400 TSX SQROOT,4 BR219500 TSX ER2,4 BR219600 TNZ *&2 SUBSTITUTE RAPID TRAVERSE RATE BR219700 CLA RRATE FOR THIS MACHINE TOOL BR219800 XCA BR219900 FMP SCAT BR220000 LRS 35 BR220100 TSX OCTAL,4 BR220200 STO SHOVE&22 FEED RATE AS INTEGER BR220300 CLA SHOVE&6 TEST FOR RAPID BR220400 TNZ *&3 TRAVERSE BLOCK BR220500 CLA RRATE USE ONLY TO APPROXIMATE BR220600 STO FNUM MACHINE TOOL TIME FOR RAPID BR220700 CLA SHOVE BR220800 CAS #10 BR220900 TRA SM100 USE 99 SUM FOR G60 BR221000 TRA SM10 USE 9 SUM FOR G10 BR221100 AXT 1,1 USE ONLY 1 SUM FOR G01 BR221200 TRA TIEM BR221300 SM100 AXT 100,1 BR221400 TRA TIEM BR221500 SM10 AXT 10,1 BR221600 TIEM CLA DEC1 CALC MACHINE TOOL TIME BR221700 FDP FNUM BR221800 FMP SCAH 2BBR221900 XCA BR222000 TSX OCTAL,4 BR222100 STO FNUM BR222200 REPEA CLA SHOVE&21 BR222300 ADD FNUM BR222400 STO SHOVE&21 BR222500 TIX REPEA,1,1 BR222600 CLOUT TSX K$OUT,4 BR222700 PZE SHOVE BR222800 NOP BR222900 LXA LOC7,4 BR223000 STZ SHOVE&7,4 BR223100 TIX *-1,4,1 BR223200 STZ SHOVE&9 M BR223300 STZ SHOVE&10 H BR223400 STZ SHOVE&22 BR223500 LXD PO1,1 BR223600 LXD PO2,2 BR223700 LXD PO4,4 BR223800 TRA 1,4 BR223900 OCTAL SXD OZ4,4 BR224000 TSX RNN,4 BR224100 LRS 27 BR224200 SSP BR224300 SUB K200 BR224400 STA *&2 BR224500 PXD 0 BR224600 LLS * BR224700 LXD OZ4,4 BR224800 TRA 1,4 BR224900 PO1 PZE 0 BR225000 PO2 PZE 0 BR225100 PO4 PZE 0 BR225200 SQSUM PZE 0 BR225300 OZ4 PZE 0 BR225400 AUXDE NOP EXPAND LATER BR225500 TRA CLOUT BR225600 POFN TSX OCT,4 FOR XX.XX FEED NUMBER 1ABR225610 PZE FSIZE 1ABR225620 XCA 1ABR225630 TRA STFN 1ABR225640 MUNPA CLA GSAVE PRIOR WAS G01 BR225700 TZE MUNP BR225800 SUB #1 BR225900 TZE MUNP BR226000 TRA SETG1 BR226100 REM BR226200 INILD CLA CEND INITIALIZE DYNAMIC SECTION BR226300 SUB CBEG BR226400 PAX 0,2 BR226500 STZ CEND,2 BR226600 TIX *-1,2,1 BR226700 TRA 1,4 BR226800 REM BR226900 REM PROGRAM CONSTANTS FOLLOW BR227000 REM BR227100 LOC1 HTR 1 TWIN BR227200 DEC1 DEC 1. CONSTANT BR227300 PF2 DEC 2. BR227400 LOC2 HTR 2 BR227500 SP3 HTR 3 BR227600 LOC26 HTR 26 BR227700 LOC7 HTR 7 BR227800 FP5 DEC .5 BR227900 SEQ HTR 1 BR228000 K200 OCT 200 BR228100 K33 OCT 33 BR228200 LOC5 HTR 5 TWIN BR228300 DEC60 DEC 60. BR228400 K006 DEC .006 2BBR228500 SKALE DEC 20000. TWICE SCALE FACTOR FOR GO8&GO9. 2BBR228600 LOC6 HTR 6 TWIN BR228700 PT9 OCT 200777777777 BR228800 IMSIZ HTR 15 BR228900 D10 DEC 20. NUMBER OF BLOCKS IN REWRK STORAGE BR229000 BLCT DEC 20. BLOCK COUNT BR229100 DDATA PZE DATA BR229200 DATA2 PZE DATA&7 BR229300 FLO PZE ,,3 FLOW SWITCH-INITIALLY THREE BR229400 LOC15 HTR 15 BR229500 DMAGE HTR IMAGE,0,0 BR229600 FSCOM HTR 0,0,0 2S COMP FEED STEP TABLE BR229700 TABLE HTR VTAB BR229800 BBUFF PZE BUFF BR229900 DWRK HTR REWRK BR230000 OFLO PZE REWKE BR230100 BOFLO PZE BUFND BUFF OVERFLOW BR230200 REM BR230300 KOUTSW PZE 0 2BBR230400 CBEG PZE *&1 INITIALIZING INDEX BR230500 BLSKIP HTR 0 BR230525 BLCSAV HTR 0 BR230550 PS PZE 0 PRINT SWITCH 4BBR230600 BLOC HTR 0,0,0 BR230700 SEQFLG PZE 0 BR230710 SEQSW PZE 0 BR230720 INCRSW PZE 0 BR230730 INCRBY PZE 0 BR230740 SEQSAV PZE 0 BR230750 DELM HTR 0 SYMBOLIC BR230800 DELX HTR 0 LOCATIONS BR230900 DELY HTR 0 FOR CHANGING BR231000 DELZ HTR 0 DELTAS BR231100 DELA HTR 0 BR231200 DELC HTR 0 BR231300 SW1 HTR 0 BR231400 LOOP HTR 0 BR231500 BT HTR 0 SYMBOLIC FOR ACCELERATION BLOCK TIME BR231600 FS HTR 0 FEED STEP VALUE BR231700 D1 HTR 0 LENGTH FOR FEED STEP 1 BR231800 D2 HTR 0 LENGTH REQUIRED FOR FEED STEP 2 BR231900 WS BSS 5 BR232000 CORA HTR 0 BR232100 KT BSS 6 BR232200 NS HTR 0 NUMBER OF SPANS PER DELTA DISTANCE BR232300 DS HTR 0 LENGTH OF REMAINING SPANS BR232400 FN HTR 0 BR232500 IMAGE BSS 15 BR232600 MS HTR 0 TEMP STORAGE FOR DELTA M BR232700 XS HTR 0 X BR232800 YS HTR 0 Y BR232900 ZS HTR 0 Z BR233000 AS HTR 0 A TABLE BR233100 CS HTR 0 H HEAD BR233200 VM HTR 0 TEMP STORAGE FOR VELOCITIES BR233300 VX HTR 0 OF BLOCK MOTION BR233400 VY HTR 0 BR233500 VZ HTR 0 BR233600 VA HTR 0 BR233700 VC HTR 0 BR233800 IMAGC HTR 0,0,0 BR233900 LOPY HTR 0 BR234000 SUM HTR 0 BR234100 SUMX HTR 0 BR234200 SUMY HTR 0 BR234300 SUMZ HTR 0 BR234400 SUMA HTR 0 BR234500 SUMC HTR 0 BR234600 FRN HTR 0 FEED RATE NUMBER BR234700 FSS HTR 0 BR234800 FSL HTR 0 BR234900 BLCTF PZE 0 STUFF ORIGINAL BLCT HERE & SAVE BR235000 RLOC HTR 0 CURRENT REWRK ADDRESS BR235100 BNXT HTR 0,0,0 CURRENT BUFF ADDRESS BR235200 RONE HTR 0,0,0 2S COMP OF BEGINNING LOC OF REWRK BR235300 RLST HTR 0 2S COMP LAST LOC OF REWRK BR235400 BLST HTR 0 2S COMP LAST BUFF ADDRESS BR235500 RWS BSS 5 STORAGE FOR REWK ROUTINE BR235600 RCNT HTR 0 REWORKED BLOCK COUNTS BR235700 TR2 PZE 0 BR235800 KB HTR 0 LAST BLOCK MINIMUM TIME BR235900 ICAD HTR 0 BR236000 DSIZ HTR 0 BR236100 TSA BSS 4 BR236200 OS BSS 25 BR236300 DO8 HTR 0 IFRO ACCELERATION LENGTH BR236400 DO9 HTR 0 IFRO DECELERATION LENGTH BR236500 DAVM HTR 0 MAXIMUM DELTA-ABSOLUTE BR236600 CHAR HTR 0 CHARACTERS / BLOCK THIS LINE BR236700 DT HTR 0 STORAGE BR236800 SPN HTR 0 SPINDLE SPEED SWITCH BR236900 L HTR 0 RESULTANT LENGTH OF LINE %SQD) BR237000 VS BSS 3 STORAGE BR237100 TIME HTR 0 TOTAL TIME IN MINUTES BR237200 CNT4 HTR 0 INDEX REGISTER STORAGE BR237300 DAT2C PZE 0 BR237400 DATAC PZE ,,0 BR237500 DATAP PZE ,,0 BR237600 ISW PZE 0 IMMEDIATE SWITCH-0 IS UNSET BR237700 AUXWD PZE 0 BR237800 ENDSW PZE 0 END SWITCH BR237900 AUXSW PZE 0 AUXILLIARY FUNCTION SWITCH BR238000 RPM PZE 0 RPM VALUE BR238100 ANS PZE 0 EIA SCODE VALUE BR238200 SMSWT PZE 0 S CODE SWITCH BR238300 SCODE PZE 0 USED TO SAVE E1A S CODE BR238400 GSAVE PZE 0 STORAGE FOR G CODE OF PREVIOUS BLOCK BR238500 DATA BSS 21 FOR MOTION DATA BR238600 TE BSS 16 TEMP STORAGE FOR GEOM PKG OUTPUT BR238700 LINE1 BSS 26 BR238800 LINE2 BSS 26 BR238900 XCOOR PZE 0 COORDINATE LOCATIONS BR239000 YCOOR PZE 0 BR239100 ZCOOR PZE 0 BR239200 ACOOR PZE 0 BR239300 CCOOR PZE 0 BR239400 FNUM PZE 0 BR239500 FRATE PZE 0 PRINT BLOCK XCOOR TO MTIME BR239600 MTIME PZE 0 BR239700 BLCTH PZE 0 BR239800 SHOVE BSS 25 BR239900 REWRK HTR * BR240000 BSS 299 BR240100 REWKE HTR * BR240200 BUFF BSS 1200 BR240300 BUFND PZE * ALWAYS FOLLOWS BUFF BR240400 ZSEPT PZE 0 SAVE ONLY FOR CONTROL FLOW BR240500 * REMOVE FNFORM FROM ERASABLE BR240510 MACNO DEC 0 MACHINE TOOL NUMBER BR240600 CIRINT PZE 0 CIRCLE INTERPOLATION SWITCH BR240700 CE BSS 20 TEMPORARY LOCATION 4BBR240800 TRATE PZE 0 CIRCLE FEED RATE RESULTANT 4BBR240900 TPLAN PZE 0 CIRCLE INTERPOLATION PLANE 4BBR241000 TDIR PZE 0 CIRCLE DIRECTION 4BBR241100 TRADI PZE 0 CIRCLE RADIUS 4BBR241200 TXC PZE 0 CIRCLE CENTER X COORDINATE 4BBR241300 TYC PZE 0 CIRCLE CENTER Y COORDINATE 4BBR241400 TXB PZE 0 CIRCLE BEGINNING X COORDINATE 4BBR241500 TYB PZE 0 CIRCLE BEGINNING Y COORDINATE 4BBR241600 TXE PZE 0 CIRCLE ENDING X COORDINATE 4BBR241700 TYE PZE 0 CIRCLE ENDING Y COORDINATE 4BBR241800 * DO NOT ALTER ARRANGEMENT OF NEXT BR241898 * 4 CARDS TDELX,TDELY,IVAL,JVAL BR241899 TDELX PZE 0 X DELTA THIS CIRCLE SPAN 4BBR241900 TDELY PZE 0 Y DELTA THIS CIRCLE SPAN 4BBR242000 IVAL PZE 0 I COMPONENT THIS CIRCLE SPAN 4BBR242100 JVAL PZE 0 J COMPONENT THIS CIRCLE SPAN 4BBR242200 FEDNO PZE 0 CIRCLE INTERPOLATION FEED NUMBER 4BBR242300 CODIR PZE 0 LOCATION FOR DIRECTION OF C. I. SPAN 4BBR242400 SPANS PZE 0 SPAN COUNTER 4BBR242500 LS BSS 20 TEMPORARY STORAGE 4BBR242600 COTSW PZE 0 CONTROL SWITCH 4BBR242700 TOSW PZE 0 TWO POINTS SWITCH 4BBR242800 ONSW PZE 0 ONE POINT SWITCH 4BBR242900 CEND PZE * INITIALIZING INDEX BR243300 * CONSTANTS FOR CIRCLE INTERPOLATION BR243400 CIFAC DEC 0.0 10 OR 100 DEPENDING UPON RADIUS BR243500 * VARIABLES NOT NORMALLY CHANGED BR244000 MNDIS DEC .0001 MINIMUM INCREMENT IN INCHES ON TAPE BR244100 DLSIZ DEC .9999 MAXIMUM DELTA ON TAPE BR244200 FVAR DEC .1 FEED RATE VARIANCE & CR-10 PERCENT BR244300 SCALE DEC 10000. NO. OF PULSES IN 1 INCH BR244400 CUSON DEC 10.0 CUSHION FOR TAPE READ 10/300#.033 SEC BR244500 FNSIZ DEC 4.0 FEED NUMBER CHARACTERS BR244600 FSIZE DEC 100.0 1ABR244610 ICOD DEC 0.0 IFRO CODE NOT ACTIVE BR244700 MSIZ DEC 3.0 M FIELD SIZE BR244800 BLKSZ DEC 6.0 CHARACTERS FOR MOTION DELTA BR244900 SSIZ DEC 4.0 SPINDLE SPEED SIZE BR245000 SEQMAX PZE 999 BR245010 EJECT BR245100 * THE FOLLOWING ARE THE PARAMETERS WHICH MUST BR245200 * BE DEFINED FOR EACH MACHINE TOOL PROCESSED BR245300 * BY THE BR3100 POST PROCESSOR BR245400 * DO NOT ALTER SEQUENCE OF THIS TABLE BR245500 HEADNG BSS 14 MACHINE TITLE FOR OUTPUT PRINTOUT BR245600 XLIM DEC 0.0 MAXIMUM X STROKE BR245700 YLIM DEC 0.0 MAXIMUM Y STROKE BR245800 ZLIM DEC 0.0 MAXIMUM Z STROKE BR245900 ULIM DEC 0.0 MAXIMUM U STROKE BR246000 WLIM DEC 0.0 MAXIMUM W STROKE BR246100 VTAB BSS 5 MAXIMUM SLIDE RATES-X,Y,Z,U,W BR246200 RRATE DEC 0.0 RAPID TRAVERSE RATE%I.P.M.) BR246201 TRS DEC 0.0 TAPE READER SPEED, CHARACTERS/SEC BR246300 D999 DEC 0.0 MAXIMUM FEED NUMBER BR246400 MINT DEC 0.0 MINIMUM TIME ALLOWED FOR SINGLE SPAN BR246500 MINTA DEC 0.0 MINIMUM TIME ALLOWED FOR SINGLE SPAN LINE BR246600 CIMINT DEC 0 MINIMUM EXECUTION TIME CIRCLE INTERPOLATIONBR246700 MODRT DEC 0.0 ASSUMED FEED RATE IS UNSPECIFIED BR246800 RAPID DEC 0.0 MAXIMUM CONTOUR RATE. CAUSES RAPID TRAVERSEBR246900 FNAXD DEC 0.0 F NUMBER%FLOATING PT) FOR AUXILIARIES BR247000 FNAXO DEC 0 F NUMBER%INTEGER) FOR AUXILIARIES BR247100 MAXGX DEC 0.0 MAXIMUM MULTIPLIER 10 OR 100 BR247200 FDIGIT DEC 0 MAXIMUM F FIELD DIGITS BR247300 SDIGIT DEC 0 MAXIMUM S FIELD DIGITS BR247400 TDIGIT DEC 0 MAXIMUM T FIELD DIGITS BR247500 GMODE DEC 0 IF NON-ZERO, G01 IS NEEDED BR247600 ZFEED DEC 0 IF ZERO, Z AXIS CANNOT MOVE IN RAPID BR247700 CIRCLE DEC 0 NON ZERO FOR CIRCLE INTERPOLATION AVAILABLEBR247800 XYPLAN DEC 0 NON ZERO SPECIFIES WHICH BR247900 YZPLAN DEC 0 PLANES ARE AVAILABLE BR248000 ZXPLAN DEC 0 FOR CIRCLE INTERPOLATION BR248100 TABL1 PZE *,0,* S#1 STEP AND CORNER TABLES BR248200 TABL2 PZE *,0,* S#2 STEP AND CORNER TABLES BR248300 EJECT BR248400 SUND CLA FNAXO THIS IS A SECTION TO BR248500 SXD STV,4 BR248600 STO SHOVE&6 PLACE A S510F200 BR248700 CLA SS510 IN THE SECOND BLOCK BR248800 STO SHOVE&7 OF THE CONTROL TAPE. THIS BR248900 TRA 1,4 BR249000 SS510 PZE 510 BR249100 STV PZE 0 BR249200 ACEPT SXD CNT4,4 BR249300 CLA TE&1 BR249400 TNZ AC2 BR249500 TXH AC2,1,2 BR249600 CLA MODRT ASSIGN MODAL FEEDRATE BR249700 STO TE&1 BR249800 CLA TE BR249900 TNZ *&3 BR250000 CLA LOC1 ASSIGN CORRECT BR250100 STO TE CODE BR250200 ZET PS 2BBR250300 TRA AC2 DIAGNOSTIC HAS ALREADY BEEN PRINTED 2BBR250400 TSX PRNTOF,4 BR250500 PZE 8,1 BR250600 TXH CM1,2,8 BR250700 CLA LOC1 2BBR250800 STO PS 2BBR250900 AC2 LXA LOC7,4 BR251000 AC1 CLA TE&7,4 IN APPROPRIATE BR251100 STO 0,2 DATA LOCATIONS BR251200 TXI *&1,2,-1 BR251300 TIX AC1,4,1 BR251400 LXD CNT4,4 BR251500 TRA 1,4 BR251600 CM1 BCD 8FEED RATE NOT SPECIFIED,MODAL RATE ASSUMED BR251700 REM BR251800 REM FOLLOWING SECTION DEALS WITH AUXILIARY FUNCTIONS BR251900 REM FOR THIS MACHINE TOOL. ENTRANCE TO THIS BR252000 REM SECTION IS FROM TRANSFER VECTORS IN AUX BR252100 REM FUNCTION TABLES 1, 2, OR 3. BR252200 REM AUX-THE FOLLOWING SECTION IS FOR TREATMENT BR252300 REM OF THE AUXILIARY FUNCTIONS OF THIS SYSTEM BR252400 REM BR252500 AUX LXA AUXT1,4 2S COMP AUXILIARY FUNCTION TABLE BR252600 SERCH CLA 0,4 FORMAT OF TABLE-CODE IN CORE, CODE BR252700 SUB TE&1 ON TAPE, TRANSFER VECTOR BR252800 TZE 2,4 BR252900 TXI *&1,4,-3 BR253000 LST1 TXH SERCH,4,* BR253100 TRA COTL NO SUCH FUNCTION IN TABLES FOR BR253200 REM THIS MACHINE TOOL BR253300 PRECLU PZE 0 OUTPUT PKG PARAMETER BR253400 SVCOL PZE 0 SYMBOLIC LOC FOR COOLANT STATUS BR253500 SCAH DEC 1000.0 SCALE FACTOR MACHINE TIME BR253600 SCAT DEC 10. SCALE FACTOR FOR FEED RATE BR253700 WEND BCI 5,POST PROCESSING SUCCESSFUL 2BBR253800 MWORD PZE 0 BR253900 SWORD PZE 0 BR254000 GWORD PZE 0 BR254100 TWORD PZE 0 BR254200 HWORD PZE 0 BR254300 AUXT1 PZE 0 BR254400 AUXT2 PZE 0 BR254500 AUXT3 PZE 0 BR254600 REM BR254700 AUXN CLA ENDSW BR254800 TNZ FINI BR254900 CLA MFLG BR255000 TNZ MOUT BR255100 CLA SEQFLG BR255101 TNZ SEQOUT BR255102 CLA T2SW NC TOOL CHANGE BR255120 TNZ T3BAC DISPLAY LIGHT CYCLE BR255121 CLA TFLG BR255200 TNZ TNOW TOOL CHANGE POSITIONING BR255300 CLA TFLG2 BR255400 TNZ TCYL TOOL CHANGE CYCLE BR255500 CLA DLFLG BR255800 TNZ DLDON BR255900 TRA COTL BR256000 EJECT BR256100 * SECTION TO SET UP FOR DESIRED MACHINE BR256200 * MACHIN/BR3100,N,S WHERE N IS BR256300 * MACHINE NUMBER, S IS STEP TABLE DESIRED BR256400 * AND CIRCUL REQUESTS CIRCLE INTERPOLATION BR256500 * IF IT IS AVAILABLE FOR THIS MACHINE TOOL BR256600 * BR256700 MODAL CLA #1.0 ASSUME MACHINE BR256800 STO TE&3 NUMBER 1 IF UNSPECIFIED BR256900 STO TE&4 BR257000 TRA MACN BR257100 CIRPO CLA #1 BR257200 STO CIRINT BR257300 TRA MABK BR257400 MACN AXT 4,4 TEST TO SEE BR257500 CLA TE&7,4 IF CIRCLE BR257600 CAS CIRCL INTERPOLATION HAS BEEN BR257700 TRA *&2 CALL FOR VIA CIRCUL BR257800 TRA CIRPO BR257900 TIX *-4,4,1 BR258000 STZ CIRINT BR258100 MABK CLA MCEND BR258200 PAC 0,4 BR258300 SXD 4M,4 BR258400 LAC MCHED,4 SELECT MACHIN NUMBER BR258500 CLA 0,4 FROM MCHED BR258600 FSB TE&3 TABLE BR258700 TZE MA4 BR258800 TXI *&1,4,-3 BR258900 4M TXH *-4,4,** BR259000 CAL IOUTAP PRINT WARNING THAT BR259100 TSX $%STH),4 MACH WAS NOT IN BR259200 TSX NON TABLE - MACHINE 1 BR259300 TSX $%FIL),4 WILL BE USED BR259400 TRA COTL BR259500 NON BCI 9,%1H ,44HMACHINE NUMBER NOT IN TABLE-NUMBER 1 ASSUMED) BR259600 MA4 CLA 1,4 SET BR259700 STA AUXHD BR259800 ARS 18 BR259900 STA AUXND SET UP PARAMETER BR260000 CLA TE&3 SAVE MACHINE BR260100 STO MACNO TOOL NUMBER FOR AUXILIARIES BR260200 CLA 2,4 TABLE FROM BR260300 PAC 0,4 HEADING THROUGH BR260400 AXT 46,2 46 PARAMETERS BR260500 CLA 0,4 BR260600 STO HEADNG&46,2 BR260700 TXI *&1,4,-1 BR260800 TIX *-3,2,1 BR260900 CLA #4 1ABR260910 LDQ FDIGIT 1ABR260911 TLQ *&2 FDIGIT OF 2 OR 3 1ABR260912 STO FNFORM FDIGIT OF 4 OR 2.2 1ABR260913 CLA TE&4 CHECK TO SEE BR261000 FSB #2.0 SHICH STEP BR261100 TZE TIB TABLE WILL BE USED BR261200 CLA TABL1 BR261300 TIA PAC 0,2 BR261400 SXA TSTUF,2 BR261500 PDC 0,2 BR261600 SXA TSTUF&1,2 BR261700 TRA CIRCK FOR EVERY S EXCEPT BR261800 TIB CLA TABL2 IF S#2 BR261900 TRA TIA BR262000 CIRCK CLA CIRINT CIRCLE INTERPOLATION BR262100 TZE MNOUT HAS BEEN PROGRAMMED BR262200 CLA CIRCLE IS IT AVAILABLE BR262300 TNZ MNOUT YES BR262400 CAL IOUTAP BR262500 TSX $%STH),4 PRINT WARNING BR262600 TSX CRM BR262700 TSX $%FIL),4 BR262800 STZ CIRINT BR262900 TRA MNOUT BR263000 CRM BCI 8,%1H ,68HCIRCLE INTERPOLATION NOT AVAILABLE THIS BR263100 BCI 5,MACHINE TOOL, CIRCLE IGNORED) BR263200 MNOUT TSX SETUP,4 BR263300 TRA COTL BR263400 TSTUF BSS 2 BR263500 EJECT BR263600 * FOLLOWING IS THE TABLE WHICH DEFINES BR263700 * THE NUMBER OF THE MACHINE TOOL IN BR263800 * THE MACHIN/ BR3100,N STATEMENT BR263900 * EXAMPLE DEC 1.0 MACHINE NUMBER BR264000 * PZE A,0,B DEFINES AUXILIARY TABLE BR264100 * PZE C DEFINES PARAMETER TABLE BR264200 * BR264300 MCHED PZE *&1 BR264400 SSTRN DEC 1.0 MACHINE NUMBER 1, SUNDSTRAND BR264500 PZE HED1,0,END1 DEFINES AUXILIARY FUNCTION TABLE BR264600 PZE PARM1 DEFINES PARAMETER TABLE BR264700 GORTN DEC 6.0 GORTON 2-30 WITH 100 CPS READER BR265100 PZE HED6,0,END6 BR265110 PZE PARM6 BR265120 GORT7 DEC 7.0 GORTON 2-30 WITH 300 CPS READER BR265130 PZE HED6,0,END6 BR265200 PZE PARM7 BR265300 GORT8 DEC 8.0 BR265310 PZE HED8,0,END8 BR265311 PZE PARM8 BR265312 DEC 11.0 BR265400 PZE HED11,0,END11 BR265500 PZE PAR11 MACHIN/11 BR265600 DEC 12.0 BR265700 PZE HED11,0,END11 BR265800 PZE PAR12 MACHIN/12 BR265900 DEC 13.0 BR266000 PZE HED11,0,END11 BR266100 PZE PAR13 MACHIN/13 BR266200 WILSN DEC 16.0 WILSON BR266210 PZE HED16,0,END16 BR266211 PZE PAR16 BR266212 EKSTR DEC 21.0 EKSTROM-CARLSON BR266230 PZE HED1,0,END1 **TEMPORARY** BR266231 PZE PARM1 **TEMPORARY** BR266232 ONSRD DEC 26.0 ONSRUD BR266250 PZE HED1,0,END1 **TEMPORARY** BR266251 PZE PARM1 **TEMPORARY** BR266252 MCEND PZE * BR266300 * BR266400 * BR266500 * BR266600 * FOLLOWING IS BEGINNING OF AUXILIARY FUNCTION BR266700 * TABLES AND PARAMETER TABLE FOR A GIVEN BR266800 * MACHINE TOOL BR266900 * BR267000 HED1 PZE *&1 BR267100 END PZE 0,0,1 END BR267200 PZE 100 BR267300 TRA M02 BR267400 STOP PZE 0,0,2 STOP BR267500 PZE BR267600 TRA M00 BR267700 MACH PZE 0,0,1015 MACHIN/BR3100,N,S BR267800 PZE 0 BR267900 TRA MACN BR268000 DELAY PZE 0,0,1010 DELAY/& BR268100 PZE 0 BR268200 TRA DLAY BR268300 COLNT PZE 0,0,1030 COOLNT BR268400 STUFM PZE ** PROPER M CODE STUFFED BR268500 TRA COLIE BR268600 SPINDL PZE 0,0,1031 SPINDL/ BR268700 PZE 5 BR268800 TRA SPDLE BR268900 SEQNO PZE 0,0,1019 SEQNO/ BR268910 PZE 0 BR268911 TRA SEQN BR268912 TOOLN PZE 0,0,1025 TOOLNO FOR BR268920 PZE 0 NC-3 ONLY BR268921 TRA TLNC3 BR268922 END1 PZE * BR269300 * BR269400 PARM1 BCI 8,MACHIN/BR3100,1 POST PROCESSOR OUTPUT BR269500 BCI 6,SUNDSTRAND 3-AXIS, NC3-11 TOOL BR269600 DEC 48.0,23.0,12.0,0,0 STROKES BR269700 DEC 99.0,99.0,99.0,0,0,100.0 RATES,RRATE BR269800 DEC 100.0,99.0,.0101,.0101,0 TRS,D999,MINT,MINTA,CIMINT BR269900 DEC 20.0,50.0,99.0,99 MODRT,RAPID,FNAXD,FNAX0 BR270000 DEC 10.0,2,3,2 MAXGX,FDIGIT,SDIGIT,TDIGIT BR270100 DEC 0.0,1.0 G01 MODAL CODE, Z IN RAPID ALSO BR270200 DEC 0,0,0,0 CIRCLE INTERPOLATION PARAMETERS BR270300 PZE ST1,0,CT1 FIRST TABLES BR270400 PZE ST1B,0,CT1B SECOND TABLES BR270500 ST1 DEC 6,10.0,20.0,40.0,60.0,80.0,100.0 BR270600 CT1 DEC 6,10.0,20.0,40.0,60.0,80.0,100.0 BR270700 ST1B DEC 6,15.0,30.0,45.0,60.0,80.0,100.0 BR270800 CT1B DEC 6,15.0,30.0,45.0,60.0,80.0,100.0 BR270900 EJECT BR270910 * GORTON 2-30 SPECIFICATIONS FOLLOW BR270912 PARM6 BCI 8,MACHIN/BR3100,6 POST PROCESSOR OUTPUT BR270914 BCI 6,GORTON 2-30,3 AXIS W/100 CPS READER BR270916 DEC 30.0,12.0,6.0,0,0 STROKES BR270918 DEC 40.0,40.0,40.0,0,0,40.0 RATES,RRATE BR270920 DEC 100.0,99.0,.0101,.0101,0 TRS,D999,MINT,MINTA,CIMINT BR270922 DEC 20.0,40.0,99.0,99 MODRT,RAPID,FNAXO,FNAXD BR270924 DEC 10.0,2,0,0 MAXGX,FDIGIT,SDIGIT,TDIGIT BR270926 DEC 0.0,1.0 G01 IS MODAL,Z CAN RAPID TRAVERSE BR270928 DEC 0,0,0,0 CIRCLE INTERPOLATION PARAMETERS BR270930 PZE ST6,0,CT6 FIRST TABLES BR270932 PZE ST6B,0,CT6B SECOND TABLES BR270934 ST6 DEC 4,10.0,20.0,30.0,45.0 FIRST STEP TABLE BR270936 CT6 DEC 4,10.0,20.0,30.0,45.0 FIRST CORNER TABLE BR270938 ST6B DEC 3,10.0,20.0,45.0 SECOND STEP TABLE BR270940 CT6B DEC 3,10.0,20.0,45 SECOND CORNER TABLE BR270942 * BR270950 PARM7 BCI 8,MACHIN/BR3100,7 POST PROCESSOR OUTPUT BR270952 BCI 6,GORTON 2-30,3 AXIS W/300 CPS READER BR270954 DEC 30.0,12.0,6.0,0,0 STROKES BR270956 DEC 40.0,40.0,40.0,0,0,40.0 RATES,RRATE BR270958 DEC 300.0,889.0,.001125,.00125,0 TRS,D999,MINT,MINTA,CIMINT BR270960 DEC 20.0,40.0,99.0,99 MODRT,RAPID,FNAXO,FNAXD BR270962 DEC 10.0,3,0,0 MAXGX,FDIGIT,SDIGIT,TDIGIT BR270964 DEC 0.0,1.0 G01 IS MODAL,Z CAN RAPID BR270966 DEC 0,0,0,0 CIRCLE INTERPOLATION PARAMETERS BR270968 PZE ST7,0,CT7 FIRST TABLES BR270970 PZE ST7A,0,CT7A SECOND TABLES BR270972 ST7 DEC 4,10.0,20.0,30.0,45.0 BR270974 CT7 DEC 4,10.0,20.0,30.0,45.0 BR270976 ST7A DEC 3,10.0,20.0,45.0 BR270978 CT7A DEC 3,10.0,20.0,45.0 BR270980 * BR270990 HED6 PZE *&1 BR270992 PZE 0,0,1 END BR270994 PZE 100 BR270996 TRA M02 BR270998 PZE 0,0,2 STOP BR271000 PZE 0 BR271002 TRA M00 BR271004 PZE 0,0,1015 MACHIN/BR3100,N,S BR271006 PZE 0 BR271008 TRA MACN BR271010 PZE 0,0,1010 DELAY BR271012 PZE 0 BR271014 TRA DLAY BR271016 PZE 0,0,1030 COOLNT BR271018 PZE ** BR271020 TRA COLIE BR271022 PZE 0,0,1031 SPINDL BR271024 PZE 5 BR271026 TRA SPDLE BR271028 PZE 0,0,1019 SEQNO/ BR271030 PZE 0 BR271032 TRA SEQN BR271034 END6 PZE * BR271036 EJECT BR271040 * GORTON RAIL MILL SPECIFICATIONS FOLLOW BR271041 PARM8 BCI 8,MACHIN/BR3100,8 POST PROCESSOR OUTPUT BR271042 BCI 6,GORTON RAIL MILL W/100 CPS READER BR271043 DEC 48.0,36.0,10.0,0,0 STROKES BR271044 DEC 40.0,40.0,40.0,0,0,40.0 RATES,RRATE BR271045 DEC 100.0,99.0,.0101,.0101,0 TRS,D999,MINT,MINTA,CIMINT BR271046 DEC 20.0,40.0,99.0,99 MODRT,RAPID,FNAXO,FNAXD BR271047 DEC 10.0,2,2,0 MAXGX,FDIGIT,SDIGIT,TDIGIT BR271048 DEC 0.0,1.0 G01 IS MODAL, Z CAN RAPID BR271049 DEC 0,0,0,0 CIRCLE INTERPOLATION PARAMETERS BR271050 PZE ST8,0,CT8 BR271051 PZE ST8B,0,CT8B BR271052 ST8 DEC 4,10.0,20.0,40.0,60.0 BR271053 CT8 DEC 4,10.0,20.0,40.0,60.0 BR271054 ST8B DEC 3,20.0,40.0,60.0 BR271055 CT8B DEC 3,20.0,40.0,60.0 BR271056 HED8 PZE *&1 BR271060 PZE 0,0,1 END BR271061 PZE 100 BR271062 TRA M02 BR271063 PZE 0,0,2 STOP BR271064 PZE 0 BR271065 TRA M00 BR271066 PZE 0,0,1015 MACHIN BR271067 PZE 0 BR271068 TRA MACN BR271069 PZE 0,0,1010 DELAY BR271070 PZE 0 BR271071 TRA DLAY BR271072 PZE 0,0,1030 COOLNT BR271073 PZE 0 BR271074 TRA COL8 BR271075 PZE 0,0,1031 SPINDLE BR271076 PZE 0 BR271077 TRA SPN8 BR271078 PZE 0,0,1019 SEQNO BR271079 PZE 0 BR271080 TRA SEQN BR271081 END8 PZE * BR271082 * TEST COOLANT WORD BR271090 COL8 CLA TE&2 BR271092 SUB MIST BR271094 TNZ *&4 SET BR271096 CLA #45 COOLNT/MIST,ON#M45 BR271099 STO MWORD BR271100 TRA GOR8 COOLNT/MIST,OFF#M55 BR271102 CLA TE&2 BR271104 SUB FLOOD COOLNT/FLOOD,ON#M44 BR271106 TNZ COTL BR271108 CLA #44 COOLNT/FLOOD,OFF#M54 BR271110 STO MWORD BR271112 GOR8 CLA TE&3 IGNORE ALL OTHERS BR271114 SUB ON BR271116 TZE PREM BR271118 CLA TE&3 BR271120 SUB OFF BR271122 TNZ COTL BR271124 CLA MWORD BR271126 ADD #10 BR271128 TRA MGO BR271130 * BR271132 SPN8 CLA TE&3 BR271134 SUB OFF BR271136 TNZ S8RPM BR271138 CLA TE&2 TEST FOR BR271140 SUB CLW SPINDL/CLW,OFF BR271142 TNZ *&3 OR SPINDL/CCLW,OFF BR271144 CLA #52 CLW,OFF BR271146 TRA MGO BR271148 CLA TE&2 BR271150 SUB CCLW BR271152 TNZ COTL BR271154 CLA #53 CCLW,OFF BR271156 TRA MGO BR271158 * BR271160 S8RPM CLA TE&3 BR271161 SUB CLW BR271162 TNZ *&4 BR271163 CLA #42 SPINDL/R,CLW BR271164 STO MWORD BR271165 TRA S81 BR271166 CLA TE&3 BR271167 SUB CCLW BR271168 TNZ COTL IGNORE BAD FORMAT BR271169 CLA #43 BR271170 STO MWORD BR271171 S81 AXT 18,2 BR271172 AXC TBGL8,4 BR271173 CLA TE&2 BR271174 SAG CAS 0,4 BR271175 TRA *&2 BR271176 TRA GLFND BR271178 TXI *&1,4,-2 BR271180 TIX SAG,2,1 BR271182 TRA COTL IGNORE IF NOT IN TABLE BR271184 GLFND CLA 1,4 BR271186 TRA SXXS BR271188 * TABLE FOR GORTON RAIL MILL S CODES BR271189 TBGL8 DEC 65.,1,90.,2,110.,3,130.,4,170.,5,210.,6 BR271190 DEC 280.,7,380.,8,460.,9,650.,11,900.,12,1100.,13 BR271191 DEC 1300.,14,1700.,15,2100.,16,2800.,17,3800.,18,4600.,19 BR271192 EJECT BR271198 HED11 PZE *&1 BR271199 PZE 0,0,1 BR271200 PZE 100 BR271300 TRA M02 END BR271400 PZE 0,0,2 BR271500 PZE BR271600 TRA M00 STOP BR271700 PZE 0,0,1015 BR271800 PZE 0 BR271900 TRA MACN MACHIN BR272000 PZE 0,0,1010 BR272100 PZE 0 BR272200 TRA DLAY DELAY BR272300 PZE 0,0,1030 BR272700 PZE 0 BR272800 TRA COL11 COOLNT/FLOOD,MIST,OFF BR272900 PZE 0,0,1060 BR273000 PZE 0 BR273100 TRA CLMP2 CLAMP BR273200 PZE 0,0,1019 SEQNO/ BR273210 PZE 0 BR273211 TRA SEQN BR273212 END11 PZE * BR273300 * BR273400 PAR11 BCI 8,MACHIN/BR3100,11 POST PROCESSOR OUTPUT FOR G AND BR273500 BCI 6, L BORING MILL %108X72X42) BR273600 DEC 108.0,72.0,42.0,0,0 STROKES BR273700 DEC 99.0,99.0,60.0,0,0,100.0 RATES,RRATE BR273800 DEC 100.0,99.0,.0101,.0101,0 TRS,D999,MINT,MINTA,CIMINT BR273900 DEC 20.0,50.0,99.0,99 MODRT,RAPID,FNAXS,FNAXO BR274000 DEC 100.0,2,0,0 MAXGX,FDIGIT,SDIGIT,TDIGIT BR274100 DEC 0.0,0.0 MODAL G01,NO 3 RAPID BR274200 DEC 0,0,0,0 CIRCLE INTERPOLATION PARAMETERS BR274300 PZE ST11,0,CT11 FIRST TABLES BR274400 PZE ST11B,0,CT11B SECOND TABLES BR274500 ST11 DEC 10,10.,20.,30.,40.,50.,60.,70.,80.,90.,100.0 BR274600 CT11 DEC 10,10.,20.,30.,40.,50.,60.,70.,80.,90.,100.0 BR274700 ST11B DEC 6,10.0,20.0,40.0,60.0,80.0,100.0 BR274800 CT11B DEC 6,10.0,20.0,40.0,60.0,80.0,100.0 BR274900 * BR275000 PAR12 BCI 8,MACHIN/BR3100,12 POST PROCESSOR OUTPUT FOR G AND BR275100 BCI 6, L BORING MILL %60X48X48) BR275200 DEC 60.0,48.0,48.0,0,0 STROKES BR275300 DEC 99.0,99.0,60.0,0,0,100.0 RATES,RRATE BR275400 DEC 100.0,99.0,.0101,.0101,0 TRS,D999,MINT,MINTA,CIMINT BR275500 DEC 20.0,50.0,99.0,99 MODRT,RAPID,FNAXD,FNAX0 BR275600 DEC 100.0,2,0,0 MAXGX,FDIGIT,SDIGIT,TDIGIT BR275700 DEC 0.0,0.0 MODAL G01,NO 3 RAPID BR275800 DEC 0,0,0,0 CIRCLE INTERPOLATION PARAMETERS BR275900 PZE ST12,0,CT12 FIRST TABLES BR276000 PZE ST12B,0,CT12B SECOND TABLES BR276100 ST12 DEC 10,10.,20.,30.,40.,50.,60.,70.,80.,90.,100.0 BR276200 CT12 DEC 10,10.,20.,30.,40.,50.,60.,70.,80.,90.,100.0 BR276300 ST12B DEC 6,10.0,20.0,40.0,60.0,80.0,100.0 BR276400 CT12B DEC 6,10.0,20.0,40.0,60.0,80.0,100.0 BR276500 * BR276600 PAR13 BCI 8,MACHIN/BR3100,13 POST PROCESSOR OUTPUT FOR G AND BR276700 BCI 6, L BORING MILL %84X48X48) BR276800 DEC 84.0,48.0,48.0,0,0 STROKES BR276900 DEC 99.0,99.0,60.0,0,0,100.0 RATES,RRATE BR277000 DEC 100.0,99.0,.0101,.0101,0 TRS,D999,MINT BR277100 DEC 20.0,50.0,99.0,99 MODRT,RAPID,FNAXD,FNAXO BR277200 DEC 100.0,2,0,0 MAXGX,FDIGIT,SDIGIT,TDIGIT BR277300 DEC 0.0,0.0 MODAL G01,NO 3 RAPID BR277400 DEC 0,0,0,0 CIRCLE INTERPOLATION VEDUES BR277500 PZE ST13,0,CT13 FIRST TABLES BR277600 PZE ST13B,0,CT13B SECOND TABLES BR277700 ST13 DEC 10,10.,20.,30.,40.,50.,60.,70.,80.,90.,100.0 BR277800 CT13 DEC 10,10.,20.,30.,40.,50.,60.,70.,80.,90.,100.0 BR277900 ST13B DEC 6,10.0,20.0,40.0,60.0,80.0,100.0 BR278000 CT13B DEC 6,10.0,20.0,40.0,60.0,80.0,100.0 BR278100 * COOLNT FOR NUMBERS 11,12,13 BR278200 COL11 CLA TE&2 BR278300 CAS MIST COOLNT/MIST#M46 BR278400 TRA *&2 COOLNT/MIST,OFF#M56 BR278500 TRA CMST BR278600 CAS FLOOD COOLNT/FLOOD#M45 BR278700 TRA COTL COOLNT/FLOOD,OFF#M55 BR278800 TRA *&2 BR278900 TRA COTL IGNORE BR279000 CLA TE&3 COOLNT/FLOOD BR279100 CAS OFF BR279200 TRA *&2 BR279300 TRA FLOFF COOLNT/FLOOD,OFF BR279400 CLA #45 COOLNT/FLOOD BR279500 TRA M00&1 BR279600 FLOFF CLA #55 BR279700 TRA M00&1 BR279800 CMST CLA TE&3 BR279900 CAS OFF BR280000 TRA *&2 BR280100 TRA MSOFF BR280200 CLA #46 COOLNT/MIST BR280300 TRA M00&1 BR280400 MSOFF CLA #56 COOLNT/MIST,OFF BR280500 TRA M00&1 BR280600 * CLAMP FOR 11,12,13 BR280700 CLMP2 CLA TE&2 BR280800 CAS ALL CLAMP/XAXIS#M52 BR280900 TRA *&2 CLAMP/XAXIS,OFF#M42 BR281000 TRA CALAX CLAMP/YAXIS#M53 BR281100 CAS XAXIS CLAMP/YAXIS,OFF#M43 BR281200 TRA *&2 CLAMP/ZAXIS#M54 BR281300 TRA CLXAX CLAMP/ZAXIS,OFF#M44 BR281400 CAS YAXIS CLAMP/ALL#M51 BR281500 TRA *&2 BR281600 TRA CLYAX XAXIS#PZE 0,0,84 BR281700 CAS ZAXIS YAXIS#PZE 0,0,85 BR281800 TRA COTL ZAXIS#PZE 0,0,86 BR281900 TRA *&2 ALL#PZE 0,0,51 BR282000 TRA COTL BR282100 CLA TE&3 CLAMP/ZAXIS BR282200 SUB OFF BR282300 TNZ *&3 BR282400 CLA #44 CLAMP/ZAXIS,OFF HERE BR282500 TRA M00&1 BR282600 CLA #54 CLAMP/ZAXIS HERE BR282700 TRA M00&1 BR282800 CALAX CLA #51 CLAMP/ALL BR282900 TRA M00&1 BR283000 CLXAX CLA TE&3 BR283100 SUB OFF BR283200 TNZ *&3 BR283300 CLA #42 CLAMP/XAXIS,OFF BR283400 TRA M00&1 BR283500 CLA #52 CLAMP/XAXIS BR283600 TRA M00&1 BR283700 CLYAX CLA TE&3 BR283800 SUB OFF BR283900 TNZ *&3 BR284000 CLA #43 CLAMP/YAXIS,OFF BR284100 TRA M00&1 BR284200 CLA #53 CLAMP/YAXIS BR284300 TRA M00&1 BR284400 EJECT BR284500 * WILSON VERSA-TEL SPECIFICATIONS BR284600 PAR16 BCI 8,MACHIN/BR3100,16 POST PROCESSOR OUTPUT FOR WILSO BR284602 BCI 6,N VERSA-TEL,3-SPINDLE%144 X 78 X 24) BR284604 DEC 144.0,78.0,24.0,0,0 STOKES BR284606 DEC 99.0,99.0,99.0,0,0,150.0 RATES,RRATE BR284608 DEC 300.0,889.0,.001125,.00125,0 TRS,D999,MINT,MINTA,CIMINT BR284610 DEC 20.0,40.0,99.0,99 MODRT,RAPID,FNAX0,FNAXD BR284612 DEC 10.0,2,0,0 MAXGX,FDIGIT,SDIGIT,TDIGIT BR284614 DEC 0.0,1.0 G01 IS MODAL,Z CAN RAPID BR284616 DEC 0,0,0,0 CIRCLE INTERPOLATION PARAMETERS BR284618 PZE ST16,0,CT16 FIRST STEP TABLES BR284620 PZE ST16B,0,CT16B SECONDSTEP TABLES BR284622 ST16 DEC 6,10.0,20.0,30.0,50.0,70.0,110.0 BR284624 CT16 DEC 6,10.0,20.0,30.0,50.0,70.0,110.0 BR284626 ST16B DEC 4,20.0,40.0,70.0,110.0 BR284628 CT16B DEC 4,20.0,40.0,70.0,110.0 BR284630 * BR284640 HED16 PZE *&1 BR284642 PZE 0,0,1 END BR284644 PZE 100 BR284646 TRA M02 BR284648 PZE 0,0,2 STOP BR284650 PZE 0 BR284652 TRA M00 BR284654 PZE 0,0,1015 MACHIN/BR3100,N,S BR284656 PZE 0 BR284658 TRA MACN BR284660 PZE 0,0,1010 DELAY/& BR284662 PZE 0 BR284664 TRA DLAY BR284666 PZE 0,0,1030 COOLNT/FLOOD,ON,OFF BR284668 PZE ** BR284670 TRA COL16 BR284672 PZE 0,0,1031 SPINDL/CLW,3N BR284674 PZE 0 /CCLW,OFF BR284676 TRA SPN16 BR284678 PZE 0,0,1019 SEQNO/ BR284680 PZE 0 BR284682 TRA SEQN BR284684 END16 PZE * BR284686 * COOLNT FOR MACHINE 16 BR284700 COL16 CLA TE&2 BR284702 SUB ON BR284704 TNZ *&3 BR284706 COLBA CLA #47 COOLNT/ON OR FLOOD BR284708 TRA MGO BR284710 CLA TE&2 BR284712 SUB OFF BR284714 TNZ *&3 BR284716 CLA #57 COOLNT/OFF BR284718 TRA MGO BR284720 CLA TE&2 BR284722 SUB FLOOD BR284724 TZE COLBA BR284726 TRA COTL BR284728 * SPINDL FOR MACHINE 16 BR284740 SPN16 CLA TE&2 BR284742 SUB CLW BR284744 TNZ *&3 BR284746 CLA #43 SPINDL/CLW,ON BR284748 TRA SR16 BR284750 CLA TE&2 BR284752 SUB CCLW BR284754 TNZ COTL BR284756 CLA #44 SPINDL/CCLW,ON BR284758 SR16 STO MWORD BR284760 CLA TE&3 BR284762 SUB ON BR284764 TZE PREM SPINDL/CLW,CCLW,ON BR284766 CLA TE&3 BR284768 SUB OFF BR284770 TNZ COTL IGNORE INCORRECT FORMAT BR284772 CLA MWORD BR284774 ADD #10 SPINDL/CLW,CCLW,OFF BR284776 TRA MGO BR284778 PAR72 BC1 8,MACHIN/BR3100,72 POST PROCESSOR OUTPUT FOR TURCH PS1BR284780 6,AN HYDRO-MILL %60X18X8) W/300 READER PS1BR284790 DEC 60.0,18.0,8.0,, SLIDE LIMITS PS1BR284800 DEC 59.0,59.0,59.0,,,150.0 MAX. RATES,RAPID RATE PS1BR284810 DEC 300.0,899.0,.001125,.00125,0 TRS,D999,MINT,ETC. PS1BR284820 DEC 20.0,40.0,39.0,39 SEE ABOVE MACHINES FOR PS1BR284830 DEC 10.0,2,, EXPLANATIONS. PS1BR284840 DEC 0.0,1.0 ***POSSIBLE TROUBLE**** PS1BR284850 DEC ,,, PS1BR284860 PZE ST72,0,CT72 PS1BR284870 PZE ST72B,0,CT72B PS1BR284880 ST72 DEC 5,20.0,40.0,60.0,80.0,100.0 PS1BR284890 CT72 DEC 5,20.0,40.0,60.0,80.0,100.0 PS1BR284900 ST72B DEC 6,10.0,20.0,40.0,60.0,80.0,100.0 PS1BR284910 CT72B DEC 6,10.0,20.0,40.0,60.0,80.0,100.0 PS1BR284920 DEC 72.0 PS1BR266214 PZE HED16,0,END16 USE WILSON AUXILIARY FUNCTIONS PS1BR266216 PZE PAR72 PS1BR266218 * RESERVE FOR ADDITIONAL MACHINES BR285000 * RESERVE FOR ADDITIONAL MACHINES BR285100 * RESERVE FOR ADDITIONAL MACHINES BR285200 * RESERVE FOR ADDITIONAL MACHINES BR285300 * RESERVE FOR ADDITIONAL MACHINES BR285400 * RESERVE FOR ADDITIONAL MACHINES BR285500 * RESERVE FOR ADDITIONAL MACHINES BR285600 * RESERVE FOR ADDITIONAL MACHINES BR285700 * RESERVE FOR ADDITIONAL MACHINES BR285800 * RESERVE FOR ADDITIONAL MACHINES BR285900 * RESERVE FOR ADDITIONAL MACHINES BR286000 * RESERVE FOR ADDITIONAL MACHINES BR286100 EJECT BR286200 * TERMINAL DIAGNOSTICS BR286300 AER2 CLA ACM2 BR286400 TRA AEROT BR286500 AER3 CLA ACM3 BR286600 TRA AEROT BR286700 AER4 CLA ACM4 BR286800 TRA AEROT BR286900 REM DIAGNOSTIC TABLE FOR AUXILIARY FUNCTIONS BR287000 ACM2 PZE *&1,0,9 BR287100 BCD 9NO TOOL NUMBER PROGRAMMED, POST PROCESSING TERMINATED BR287200 ACM3 PZE *&1,0,9 BR287300 BCD 9NO TOOL LENGTH PROGRAMMED, POST PROCESSING TERMINATED BR287400 ACM4 PZE *&1,0,10 BR287500 BCD CLEARANCE PLANE USED INCORRECTLY, POST PROCESSING TERMINATEDBR287600 REM BR287700 AEROT STA ACM BR287800 STD ACM BR287900 TSX PRNTOF,4 BR288000 PZE 8,1 BR288100 ACM TXH **,2,** BR288200 TRA FINALR *BR288300 REM BR288400 M00 CLA 1,4 STOP BR288500 STO MWORD BR288600 MUSE CLA LOC1 BR288700 STO MFLG BR288800 TXL ABCA,1,1 BR288900 TRA MNOW BR289000 MOUT TSX KLEAR,4 BR289100 NZT SMSWT BR289200 TRA *&4 BR289300 STZ SMSWT BR289400 CLA SCODE OUTPUT S AND M BR289500 STO SHOVE&7 BLOCK FOR SUNDSTRAND MACHINES BR289600 CLA MWORD BR289700 STO SHOVE&9 BR289800 CLA FNAXO BR289900 STO SHOVE&6 BR290000 CLA MWORD BR290100 TNZ *&4 CHECK FOR M00 HERE BR290200 CLA LOC1 BR290300 STO PRECLU BR290400 CLA K$STOP BR290500 TSX K$OUT,4 BR290600 PZE SHOVE BR290700 NOP BR290800 ZET MWORD BR290900 TRA *&4 FIX UP DUMMY BR291000 TSX K$OUT,4 F1889 OR F99 BLOCK AFTER BR291100 PZE SHOVE M00 OR PROGRAMMED BR291200 NOP STOP BR291300 TSX ZROSH,4 INTIALIZE SHOVE REGION BR291400 CLA BLCTH RESTORE BLOCK COUNT BR291500 STO BLCT BR291600 STZ ISW BR291700 STZ MFLG BR291800 TSX SETUP,4 BR291900 TRA AXFO2 BR292000 MNOW CLA MWORD BR292100 STO SHOVE&9 BR292200 NZT SMSWT BR292300 TRA *&4 BR292400 STZ SMSWT BR292500 CLA SCODE BR292600 STO SHOVE&7 BR292700 CLA FNAXO BR292800 STO SHOVE&6 BR292900 CLA MWORD BR293000 TNZ *&4 CHECK FOR M00 HERE BR293100 CLA LOC1 BR293200 STO PRECLU BR293300 CLA K$STOP BR293400 TSX K$OUT,4 BR293500 PZE SHOVE BR293600 NOP BR293700 ZET MWORD BR293800 TRA *&4 IGNORE NON-ZERO @M@ BR293900 TSX K$OUT,4 FIX UP DUMMY BLOCK BR294000 PZE SHOVE FOR M00 OR BR294100 NOP PROGRAMMED STOP BR294200 TSX ZROSH,4 INTIALIZE SHOVE REGION BR294300 STZ MFLG BR294400 TRA COTL BR294500 MFLG PZE 0 BR294600 REM SUBROUTINE TO RESET PREVIOUS SPINDLE BR294700 COL4 SXD 4SAV,4 AND COOLANT CONDITIONS BR294800 CLA SVCOL BR294900 TZE COL1 NO PREVIOUS COOLANT CONDITION BR295000 STO SHOVE&9 BR295100 CLA FNAXO BR295200 STO SHOVE&6 OUTPUT COOLANT BR295300 TSX K$OUT,4 PREVIOUS USED BR295400 PZE SHOVE BR295500 NOP BR295600 TSX ZROSH,4 BR295700 COL1 CLA SMWRD BR295800 TZE COUT NO PREVIOUS SPINDLE CONDITION BR295900 STO SHOVE&9 BR296000 CLA FNAXO OUTPUT PREVIOUS SPINDLE BR296100 STO SHOVE&6 CONDITION HERE BR296200 TSX K$OUT,4 BR296300 PZE SHOVE BR296400 NOP BR296500 TSX ZROSH,4 BR296600 COUT LXD 4SAV,4 BR296700 TRA 1,4 BR296800 4SAV PZE 0 BR296900 REM BR297000 REM BR297100 M02 CLA 1,4 BR297200 STO MWORD BR297300 ZET KOUTSW KOUTSW IS SET TO ZERO 4BBR297400 TRA M02N UPON ENTRY TO K$OUT 4BBR297500 CLA K$BLCNT BR297600 TZE FINAL&2 BR297700 M02N CLA LOC1 BR297800 STO ENDSW BR297900 STO MFLG BR298000 TXL ABCA,1,1 HOLD FUNCTION HERE BR298100 FINI TSX KLEAR,4 PROCESS HERE BR298200 CLA FNAXO AUXILIARY FUNCTION FEED NUMBER BR298300 STO SHOVE&6 BR298400 CLA LOC1 BR298500 STO PRECLU BR298600 CLA MWORD BR298700 STO SHOVE&9 BR298800 CLA K$END BR298900 TSX K$OUT,4 BR299000 PZE SHOVE BR299100 NOP ERROR RETURN, UNUSED BR299200 TSX INLOG,4 INITIALIZE BEFORE RETURNING TO CONTROL 2BBR299300 TSX SETUP,4 2BBR299400 TRA COTL 2BBR299500 INLOG SXA I4,4 SET UP XR4 FOR RETURN 2BBR299600 TSX INILD,4 INITIALIZED DYNAMIC SECTION BR299700 STZ DELETE INITIALIZED AUX FUNCTIONS BR299800 STZ PRECLU PRINT & DELETE FLAGS BR299900 STZ TCNT BR300000 STZ TNP INITIALIZE TOOL BR300100 STZ TL1 CHANGE BR300200 STZ TL2 WORDS BR300300 STZ ZHT BR300400 STZ TPCOR BR300500 STZ MFLG BR300600 CLA D10 SET BLCT EQUAL TO NO. BR300700 STO BLCT OF IMAGE BLOCKS IN REWRK BR300800 AXT 3,1 RE INITIALIZE FLO TO 3 BR300900 SXD FLO,1 BR301000 CLA LOC1 BR301100 STO KOKO BR301200 I4 AXT **,4 STUFFED UPON ENTRY TO INLOG 2BBR301300 TRA 1,4 2BBR301400 FINAL CLA K$BLCNT BR301500 TNZ NOEND NO END OR REWIND/1 GIVEN BR301600 TSX PRNTOF,4 BR301700 PZE 1,1 BR301800 TXH WEND,2,5 4BBR301900 CLA FEETSV P. P. FOOTAGE *BR302000 ADD FETCON PARTNO, LEADER, TRAILER, BUFFER *BR302100 STO K$FEET *BR302200 TSX KREADY,4 CONVERT TO BCD *BR302300 SLW FEETON&6 *BR302400 TSX $%SPH),4 FOOTAGE ON-LINE *BR302500 TSX FEETON *BR302600 TSX $%FIL),4 *BR302700 TRA KONTRL BR302800 FEETON BCI 8,%1H ,19X,30HPUNCHED TAPE FOOTAGE # ) *BR302900 FEETSV PZE 0 *BR303000 FETCON OCT 416 27.0 *BR303100 NOEND TSX PRNTOF,4 BR303200 PZE 8,1 BR303300 TXH ENDCM,2,5 BR303400 TXH ENDCM&5,2,8 BR303500 CLA END&1 BR303600 STO MWORD BR303700 TRA M02N BR303800 ENDCM BCI 5,NO END OR REWIND/1 WORD GIVEN, BR303900 BCI 8, END IS ASSUMED AND POST PROCESSING CONTINUES BR304000 ZROSH SXD ZROSR,4 INITIALIZE SHOVE REGION BR304100 AXT 11,4 INITIALIZE ALL BR304200 STZ SHOVE&11,4 OF SHOVE INCLUDING BR304300 TIX *-1,4,1 S AND T WORDS BR304400 STZ SHOVE&22 FEED RATE BR304500 CLA DEC1 BR304600 FDP FNAXD BR304700 FMP SCAH BR304800 LRS 35 BR304900 TSX OCTAL,4 BR305000 ADD SHOVE&21 BR305100 STO SHOVE&21 BR305200 LXD ZROSR,4 BR305300 TRA 1,4 BR305400 ZROSR PZE 0 BR305500 M01 TRA M00 PSTOP BR305600 M08 CLA 1,4 SAVE LAST MENTIONED BR305700 STO SVCOL STATUS OF COOLANT BR305800 TRA M00&1 BR305900 M09 TRA M08 BR306000 M30 TRA M02 REWIND BR306100 REM BR306200 STMCD CLA TE&2 TE&2 CONTAINS THE MODIFIER WORD 2BBR306300 CAS MIST 2BBR306400 TRA *&2 2BBR306500 TRA STFMS IF IT IS MIST, STUFF THE MACHINE TAPE 2BBR306600 CAS ON CODE FOR COOLNT/MIST INTO 1,4 2BBR306700 TRA *&2 2BBR306800 TRA STFON IF IT IS ON, STUFF THE MACHINE TAPE 2BBR306900 CAS OFF CODE FOR COOLNT/ON INTO 1,4 2BBR307000 TRA *&2 2BBR307100 TRA STFOF HANDLE OFF THE SAME WAY 2BBR307200 CAS FLOOD 2BBR307300 TRA COTL 2BBR307400 TRA STFON FLOOD IS THE SAME AS ON 2BBR307500 TRA COTL IF IT IS NEITHER ON, OFF, FLOOD, OR MIST 2BBR307600 STFMS CLA MISCD IGNORE IT 2BBR307700 TRA STFCD 2BBR307800 STFON CLA ONCD 2BBR307900 TRA STFCD 2BBR308000 STFOF CLA OFFCD 2BBR308100 STFCD STA 1,4 2BBR308200 TRA M08 2BBR308300 FLOOD PZE 0,0,89 APT III CODE FOR FLOOD 2BBR308400 MIST PZE 0,0,90 APT III CODE FOR MIST 2BBR308500 MISCD PZE 7 MACH. CONTROL TAPE CODE FOR MIST 2BBR308600 ONCD PZE 8 MACH. CONTROL TAPE CODE FOR ON 2BBR308700 OFFCD PZE 9 MACH. CONTROL TAPE CODE FOR OFF 2BBR308800 REM SECTION FOR DELETE / ON-OF CODE BR308900 DELETE PZE 0 INITIALLY OFF BR309000 DFLG PZE 0 BR309100 DWORD PZE 0 0 # DELETE OFF 1 # DELETE ON BR309200 REM BR312000 SPDLE CLA MACNO BR312100 CAS SSTRN TEST FOR BR312200 TRA *&2 BR312300 TRA SPSUN VARIOUS BR312400 CAS GORTN MACHINE TOOLS BR312500 TRA *&2 BR312600 TRA SPD20 HERE BR312700 CAS GORT7 TEST FOR BR312701 TRA *&2 SECOND GORTON MODEL BR312702 TRA SPD20 BR312703 TRA COTL IGNORE ALL OTHER SPINDLE STATEMENT BR312800 * BR312900 SPSUN CLA TE&2 SUNDSTRAND MACHINES BR313000 SUB OFF BR313100 TZE SNDON SPINDL/OFF HERE BR313200 CLA TE&3 BR313300 SUB CLW BR313400 TZE FXDR SPINDL/CLW HERE BR313500 CLA TE&3 BR313600 SUB CCLW BR313700 TNZ COTL IGNORE INCORRECT SPINDLE BR313800 CLA #4 BR313900 STO MWORD BR314000 SPD2 CLA TE&4 BR314100 SUB LOW BR314200 TZE PREMA LOW RANGE BR314300 CLA TE&4 SECTION BR314400 SUB MEDIUM TREATS BR314500 TNZ MZM THE BR314600 CLA MWORD SPINDL BR314700 ADD #10 STATEMENT BR314800 STO MWORD FOR SUNDSTRAND BR314900 TRA PREMB MEDIUM RANGE BR315000 MZM CLA TE&4 BR315100 SUB HIGH BR315200 TNZ COTL IGNORE INCORRECT SPINDL STATEMENT BR315300 CLA MWORD BR315400 ADD #14 BR315500 STO MWORD BR315600 TRA PREMC HIGH RANGE BR315700 MGO STO MWORD BR315800 PREM CLA MWORD BR315900 TRA M00&1 BR316000 FXDR CLA #3 BR316100 STO MWORD BR316200 TRA SPD2 BR316300 SNDON CLA #5 BR316400 TRA M00&1 BR316500 * BR316600 SPD20 CLA TE&2 SPINDLE STATEMENT BR316700 SUB HIGH FOR BR316800 TNZ *&3 GORTON BR316900 CLA #42 MACHINES BR317000 TRA SRAY BR317100 CLA TE&2 BR317200 SUB LOW BR317300 TNZ COTL IGNORE IF NOT CLW OR CCLW BR317400 CLA #43 BR317500 SRAY STO MWORD BR317600 CLA TE&3 BR317700 SUB ON BR317800 TZE PREM SPINDL/CLW,CCLW,ON BR317900 CLA TE&3 BR318000 SUB OFF BR318100 TNZ COTL IGNORE IF NOT CORRECTLY BR318200 CLA MWORD PROGRAMMED BR318300 ADD #10 BR318400 TRA MGO BR318500 * USE FOR DETERMINING E1A S CODE BR318600 PREMB CLA TE&2 CORRECT M CODE IS IN MWORD BR318700 FDP MEDLA 3.02 BR318800 STQ RPM BR318900 TRA EIAN BR319000 PREMA CLA TE&2 BR319100 STO RPM BR319200 TRA EIAN BR319300 PREMC CLA TE&2 BR319400 FDP HILO HILO # 9.1 BR319500 STQ RPM BR319600 EIAN TSX $DIGIT3,4 BR319700 PZE RPM INPUT RPM BR319800 PZE ANS EIA CODE BR319900 PZE MINCD 510 MINIMUM E1A VALUE BR320000 PZE MAXCD 616 MAX E1A VALUE BR320100 NOP NOFLTR INSURANCE BR320200 NOP BR320300 CLA ANS BR320400 ARS 18 BR320500 SXXS STO SCODE BR320600 CLA #1 BR320700 STO SMSWT BR320800 TRA MUSE BR320900 * BR321000 MINCD PZE 0,0,510 MINIMUM S CODE THIS MACHINE BR321100 MAXCD PZE 0,0,616 MAXIMUM S CODE THIS MACHINE BR321200 MEDLA DEC 3.02 MEDIUM-LOW GEAR RATIO-NC3 BR321300 HILO DEC 9.1 HIGH-LOW GEAR RATIO-NC3 BR321400 * RESERVE FOR SPACE BR321500 * RESERVE FOR SPACE BR321600 * RESERVE FOR SPACE BR321700 * RESERVE FOR SPACE BR321800 * RESERVE FOR SPACE BR321900 * RESERVE FOR SPACE BR322000 * RESERVE FOR SPACE BR322100 * RESERVE FOR SPACE BR322200 * RESERVE FOR SPACE BR322300 * RESERVE FOR SPACE BR322400 * RESERVE FOR SPACE BR322500 COLIE CLA MACNO BR322600 CAS SSTRN TEST BR322700 TRA *&2 COOLNT WORD BR322800 TRA SDCOL FOR BR322900 CAS EKSTR APPROPRIATE BR323000 TRA *&2 MACHINES BR323100 TRA EKCOL IN TABLE BR323200 CAS GORTN BR323300 TRA *&2 BR323400 TRA GRCOL BR323500 CAS GORT7 TEST FOR BR323501 TRA *&2 SECOND GORTON BR323502 TRA GRCOL MODEL BR323503 TRA COTL IGNORE IF NOT IN TABLE BR323600 SDCOL CLA TE&2 BR323700 SUB ON BR323800 TNZ *&3 BR323900 TRON CLA #8 COOLNT/ON BR324000 TRA MGO BR324100 CLA TE&2 COOLNT/OFF BR324200 SUB OFF BR324300 TNZ *&3 COOLNT/FLOOD BR324400 CLA #9 BR324500 TRA MGO FOR SUNDSTRAND BR324600 CLA TE&2 MACHINES BR324700 SUB FLOOD BR324800 TZE TRON BR324900 TRA COTL IGNORE ALL OTHERS BR325000 * BR325100 EKCOL CLA TE&2 COOLNT/ON BR325200 SUB ON BR325300 TNZ *&3 /FLOOD BR325400 TONE CLA #42 BR325500 TRA MGO /OFF BR325600 CLA TE&2 BR325700 SUB OFF FOR EKSTROM BR325800 TNZ *&3 CARLSON MACHINES BR325900 CLA #52 BR326000 TRA MGO BR326100 CLA TE&2 BR326200 SUB FLOOD BR326300 TZE TONE BR326400 TRA COTL IGNORE ALL OTHERS BR326500 * BR326600 GRCOL CLA TE&2 BR326700 SUB MIST TREAT BR326800 TNZ *&4 COOLNT BR326900 CLA #45 FOR BR327000 STO MWORD GORTON MACHINES BR327100 TRA GOR2 BR327200 CLA TE&2 BR327300 SUB FLOOD BR327400 TNZ COTL IGNORE OTHER COOLNT WORDS BR327500 CLA #44 BR327600 STO MWORD BR327700 GOR2 CLA TE&3 BR327800 SUB ON BR327900 TZE PREM BR328000 CLA TE&3 BR328100 SUB OFF BR328200 TNZ COTL IGNORE ALL OTHERS BR328300 CLA MWORD BR328400 ADD #10 BR328500 TRA MGO BR328600 * RESERVE FOR ADDITIONAL SECTIONS BR328700 * RESERVE FOR ADDITIONAL SECTIONS BR328800 * RESERVE FOR ADDITIONAL SECTIONS BR328900 * RESERVE FOR ADDITIONAL SECTIONS BR329000 * RESERVE FOR ADDITIONAL SECTIONS BR329100 * RESERVE FOR ADDITIONAL SECTIONS BR329200 * RESERVE FOR ADDITIONAL SECTIONS BR329300 * RESERVE FOR ADDITIONAL SECTIONS BR329400 * RESERVE FOR ADDITIONAL SECTIONS BR329500 * RESERVE FOR ADDITIONAL SECTIONS BR329600 * RESERVE FOR ADDITIONAL SECTIONS BR329700 * RESERVE FOR ADDITIONAL SECTIONS BR329800 * RESERVE FOR ADDITIONAL SECTIONS BR329900 * RESERVE FOR ADDITIONAL SECTIONS BR330000 * RESERVE FOR ADDITIONAL SECTIONS BR330100 * RESERVE FOR ADDITIONAL SECTIONS BR330200 * RESERVE FOR ADDITIONAL SECTIONS BR330300 * RESERVE FOR ADDITIONAL SECTIONS BR330400 * RESERVE FOR ADDITIONAL SECTIONS BR330500 * RESERVE FOR ADDITIONAL SECTION BR330600 REM BR330700 SFLG PZE 0 BR330800 SMWRD PZE 0 BR330900 RNGE PZE 0 BR331000 ON PZE 0,0,71 BR331100 PZE 0 BR331200 OFF PZE 0,0,72 BR331300 PZE 5 TAPE CODE BR331400 LOW PZE 0,0,63 BR331500 PZE 1 INPUT CODE TO SPSPD BR331600 PZE 2 RANGE CODE BR331700 MEDIUM PZE 0,0,61 BR331800 PZE 2 SPSPD INPUT CODE BR331900 PZE 12 RANGE CODE BR332000 HIGH PZE 0,0,62 BR332100 PZE 3 SPSPD INPUT CODE BR332200 PZE 16 RANGE CODE BR332300 CCLW PZE 0,0,59 BR332400 PZE 2 RANGE CODE BR332500 CLW PZE 0,0,60 BR332600 PZE 1 RANGE CODE BR332700 CIRCL PZE 0,0,75 CIRCUL CODE BR332800 XAXIS PZE 0,0,84 BR332900 YAXIS PZE 0,0,85 BR333000 ZAXIS PZE 0,0,86 BR333100 ALL PZE 0,0,51 BR333200 INCRCD PZE 0,0,66 BR333210 REM BR333300 REM BR333302 REM SECTION FOR SEQUENCE NUMBERS BR333304 SEQN CLA LOC1 BR333306 STO SEQFLG SEQNO AUX. FLAG BR333308 TXL ABCA,1,1 BR333310 CLA LOC1 BR333312 STO SEQSW BR333314 NZT SEQSW BR333316 SEQOUT TSX KLEAR,4 BR333318 CLA TE&2 SEQNO/ BR333320 SUB OFF BR333322 TZE OFSEQ TURN SEQUENCING OFF BR333324 CLA TE&3 CODE FOR INCR OR ZERO BR333326 SUB INCRCD IS INCREMENTATION REQUESTED. BR333328 TZE INCRSQ YES BR333330 STZ INCRSW BR333332 STZ SEQSAV BR333334 STZ INCRBY BR333336 LDQ TE&2 NO BR333338 TSX OCTAL,4 BR333340 OUTSEQ STO SHOVE&10 N VALUE SEQ. NO. BR333342 CLA FNAXO BR333344 STO SHOVE&6 BR333346 TSX K$OUT,4 BR333348 PZE SHOVE BR333350 NOP V2BR333351 CLA TE&5 SEQNO/N,INCR,M,I V2BR333352 STO BLSKIP PUT SEQUENCE NUMBER IN V2BR333353 STO BLCSAV EVERY ITH BLOCK V2BR333354 INITSQ ZET SEQSW V2BR333355 TRA PASS NO MOTION PROCESSED BEFORE BR333356 TSX ZROSH,4 THIS AUXILIARY.TRA TO PASS BR333358 CLA BLCTH BR333360 STO BLCT BR333362 STZ ISW BR333364 STZ SEQFLG BR333366 TSX SETUP,4 BR333368 TRA AXFO2 BR333370 PASS TSX ZROSH,4 BR333372 STZ SEQFLG BR333374 STZ SEQSW BR333376 TRA COTL BR333378 OFSEQ STZ INCRSW SEQNO/OFF BR333380 STZ INCRBY BR333382 STZ SEQSAV BR333384 TRA INITSQ BR333386 INCRSQ CLA LOC1 SET INCREMENTING SWITCH, BR333388 STO INCRSW BR333389 STZ BLCSAV BR333390 STZ BLSKIP BR333391 STZ SEQSAV BR333392 LDQ TE&4 BR333393 TSX OCTAL,4 BR333394 STO INCRBY BR333396 LDQ TE&2 BR333398 TSX OCTAL,4 BR333400 SUB INCRBY BR333402 TRA OUTSEQ BR333404 REM TOOL CHANGE PROCEDURE FOR MODEL 21 BR333500 TOOL CLA TE&2 BR333600 TZE AER2 NO TOOL NUMBER PROGRAMMED BR333700 CLA TE&3 BR333800 TZE AER3 NO TOOL LENGTH PROGRAMMED BR333900 CLA TNP BR334000 TNZ TCNG ACTUAL TOOL CHANGE BR334100 LDQ TE&2 NO TOOL CHANGE HERE- BR334200 TSX OCTAL,4 THIS IS MERELY INFORMATION BR334300 STO TNP BR334400 CLA LOC1 SET UP TCNT FOR BR334500 STO TCNT FIRST TOOL CHANGE BR334600 CLA TE&3 PRESENT TOOL LENGTH BR334700 STO TL1 PRESENT TOOL LENGTH BR334800 CLA TNP PRESENT TOOL NUMBER BR334900 STO SHOVE&8 MENTION FIRST TOOL NUMBER BR335000 CLA FNAXO PLACE FIRST TOOL BR335100 STO SHOVE&6 NUMBER IN SEPARATE BR335200 TSX K$OUT,4 BLOCK ON TAPE BR335300 PZE SHOVE BR335400 NOP BR335500 TSX ZROSH,4 BR335600 TRA COTL ON CONTROL TAPE BR335700 ZDIS CLA TE&3 ORIGINAL TOOL CHANGE CLEARANCE BR335800 TZE AER4 NO CLEARANCE PLANE PROGRAMMED BR335900 STO ZHT SAVE ORIGINAL TOOL CLEARANCE PLANE BR336000 TRA COTL BR336100 REM ACTUAL TOOL CHANGE CYCLE HERE BR336200 TCNG CLA TCNT BR336300 TZE TPAS SECOND OR GREATER TOOL CHANGE BR336400 STZ TCNT FIRST TOOL CHANGE BR336500 CLA ZHT NUMBER AND LENGTH BR336600 TZE AER4 NO CLEARANCE PLANE GIVEN BEFORE FIRST TOOLNOBR336700 FAD ZSEPT BR336800 STO TPCOR TOOL PRESENT COORDINATE AT UNLOAD TIME BR336900 TPAS LDQ TE&2 BR337000 TSX OCTAL,4 BR337100 STO TNN NEW OR NEXT TOOL NUMBER BR337200 CLA TE&3 BR337300 STO TL2 NEXT TOOL LENGTH BR337400 CLA LOC1 BR337500 STO TFLG BR337600 TSX DROT,4 DRUM ROTATION DIRECTION BR337700 STO G4 G06 OR G07 COMMAND BR337800 TXL ABCA,1,1 BR337900 TNOW TSX KLEAR,4 CLEAR OUT BUFFER BR338000 CLA FNAXO BR338100 STO SHOVE&6 BR338200 CLA SPINDL&1 MO5 BR338300 STO SHOVE&9 TURN OFF SPINDLE BR338400 TSX K$OUT,4 BR338500 PZE SHOVE BR338600 NOP BR338700 TSX ZROSH,4 BR338800 CLA FNAXO BR338900 STO SHOVE&6 BR339000 CLA OFFCD MACH. TAPE CODE FOR COOLNT/OFF 4BBR339100 STO SHOVE&9 TURN OFF COOLANT BR339200 TSX K$OUT,4 BR339300 PZE SHOVE BR339400 NOP BR339500 TSX ZROSH,4 BR339600 CLA BLCTH BR339700 STO BLCT BR339800 TSX SETUP,4 INITIALIZE BR339900 STZ TFLG BR340000 STZ ISW BR340100 CLA LOC1 PRE SETUP TO PRODUCE BR340200 STO TFLG2 FIRST Z SLIDE IFRO BR340300 CLA SP3 MOTION TO PRESENT BR340400 STO DATA&7 TOOL UNLOAD POSITION BR340500 CLA TIFRO BR340600 STO DATA&8 IFRO TOOL CHANGE FEED RATE BR340700 CLA DATA&2 CREATE NO X MOTION BR340800 STO DATA&9 X. BR340900 CLA DATA&3 NO DELTA Y BR341000 STO DATA&10 Y. BR341100 CLA DATA&5 BR341200 STO DATA&12 NO TABLE BR341300 CLA DATA&6 BR341400 STO DATA&13 NO HEAD BR341500 CLA TPCOR PRESENT TOOL TIP UNLOAD COORDINATE BR341600 STO DATA&11 BR341700 CLA TPCOR CHECK FOR MAXIMUM Z DELTA BR341800 FSB DATA&4 AT TOOL CHANGE TIME BR341900 TMI ERTOL TOOL CHANGE DIAGNOSTIC BR342000 LDQ MAXZ BR342100 TLQ ERTOL TOOL CHANGE DIAGNOSTIC BR342200 TRA ABCA PROCESS IFRO TO OLD TOOL UNLOAD POSITION BR342300 ERTOL TSX PRNTOF,4 BR342400 PZE 8,1 BR342500 TXH DIAT,2,6 BR342600 TRA ABCA BR342700 DIAT BCD 6 Z AXIS MACHINE LIMIT EXCEEDED BR342800 REM TOOL CHANGE CANNED CYCLE WHEN AT OLD BR342900 REM TOOL UNLOAD POSITION BR343000 TCYL STZ TFLG2 BR343100 STZ ISW BR343200 TSX KLEAR,4 CLEAR OUT REWRK BUFFERS BR343300 CLA LOC1 BR343400 STO PRECLU BR343500 CLA G1 BR343600 STO SHOVE BR343700 CLA F1 BR343800 STO SHOVE&6 G15F200-OLD TOOL BR343900 TSX K$OUT,4 UNLOAD CYCLE BR344000 PZE SHOVE BR344100 NOP BR344200 TSX ZROSH,4 INITIALIZE & CALC MACHINE TIME BR344300 REM BR344400 CLA G2 BR344500 STO SHOVE BR344600 CLA Z2 IFRO Z AXIS BR344700 STO SHOVE&3 TO A CLEARANCE BR344800 CLA F2 HEIGHT TO ALLOW THE BR344900 STO SHOVE&6 TOOL HOLDER TO BR345000 TSX K$OUT,4 INDEX THE NEW TOOL BR345100 PZE SHOVE IN POSITION BR345200 NOP BR345300 TSX ZROSH,4 G08F054, Z&3.75 BR345400 CLA G3 BR345500 STO SHOVE BR345600 CLA Z3 BR345700 STO SHOVE&3 G09F200, Z&1.0 BR345800 CLA F3 BR345900 STO SHOVE&6 BR346000 TSX K$OUT,4 BR346100 PZE SHOVE BR346200 NOP BR346300 TSX ZROSH,4 BR346400 REM NEXT TOOL CHANGE CYCLE STEP-INDEX NEW TOOL INTO POSITION BR346500 CLA G4 BR346600 STO SHOVE G06 OR G07 BR346700 CLA TNN PLACE NEW TOOL NO OR TAPE BR346800 STO SHOVE&8 BR346900 CLA F4 BR347000 STO SHOVE&6 BR347100 TSX K$OUT,4 BR347200 PZE SHOVE BR347300 NOP BR347400 TSX ZROSH,4 CALC MACHINE TIME BR347500 REM IFRO Z SLIDE DOWN TO LOAD NEW TOOL BR347600 CLA G5 BR347700 STO SHOVE BR347800 CLA Z5 BR347900 STO SHOVE&3 BR348000 CLA F5 BR348100 STO SHOVE&6 G08F054Z-3.75 BR348200 TSX K$OUT,4 BR348300 PZE SHOVE BR348400 NOP BR348500 TSX ZROSH,4 BR348600 CLA G6 BR348700 STO SHOVE BR348800 CLA Z6 BR348900 STO SHOVE&3 BR349000 CLA F6 BR349100 STO SHOVE&6 G09F200Z-1.0 BR349200 TSX K$OUT,4 BR349300 PZE SHOVE BR349400 NOP BR349500 TSX ZROSH,4 CALC MACHINE TIME BR349600 REM END OF TOOL CHANGE CYCLE-LOAD NEW TOOL BR349700 CLA G7 BR349800 STO SHOVE G16F200 BR349900 CLA F7 BR350000 STO SHOVE&6 BR350100 REM AT THIS POINT COMPENSATE THE DIFFERENCE IN BR350200 REM OLD TO NEW TOOL LENGTHS AND REPLACE THE OLD BR350300 REM TOOL TIP Z COORDINATE WITH THE NEW TOOL TIP Z COORDINATE BR350400 CLA TL1 BR350500 FSB TL2 BR350600 LRS 35 COORDINATE VALUE %Z) BR350700 FMP SCALE OF CUTTER TIP DUE BR350800 LRS 35 TO DIFFERENCE IN BR350900 TSX OCTAL,4 TOOL LENGHTS BR351000 ADD K$COORD&2 PRESENT Z SUMMATION BR351100 STO K$COORD&2 ADJUSTED Z COORDINATE BR351200 CLA TPCOR PREVIOUS TOOL TIP BR351300 FAD TL1 BR351400 FSB TL2 BR351500 STO TPCOR NEW TOOL TIP Z COORDINATE BR351600 STO DATA&4 PRESENT Z COORDINATE POSITION BR351700 CLA TNN BR351800 STO TNP REPLACE OLD TOOL WITH NOW PRESENT TOOL BR351900 CLA TL2 BR352000 STO TL1 LENGTHS BR352100 TSX K$OUT,4 BR352200 PZE SHOVE BR352300 NOP BR352400 TSX ZROSH,4 BR352500 TSX TLTIM,4 BR352600 CLA LOC1 BR352700 STO PRECLU BR352800 TSX COL4,4 BR352900 CLA BLCTH BR353000 STO BLCT BR353100 TSX SETUP,4 BR353200 TRA AXFO2 COMPLETION OF TOOL CHANGE CYCLE BR353300 REM ROUTINE TO CALC TOOL CHANGE TIME BR353400 TLTIM CLA FNTOL TIME FOR TOOL CHANGE CYCLE BR353500 ADD SHOVE&21 BR353600 STO SHOVE&21 BR353700 TRA 1,4 BR353800 FNTOL OCT 620 TOOL CHANGE TIME *BR353900 REM ROUTINE TO DETERMINE SHORTEST ROTATION DIRECTION FOR TOOL CHABR354000 HPOS PZE 10 HALF REVOLUTION BR354100 LH PZE 7 CCLW BR354200 RH PZE 6 CLW BR354300 DROT CLA TNN BR354400 SUB TNP BR354500 LDQ HPOS BR354600 TMI CWI CLOCKWISE BR354700 TLQ CWID CLOCKWISE BR354800 CCWI CLA LH BR354900 CCWD STO G4 COUNTERCLOCKWISE BR355000 TRA 1,4 BR355100 CWI SSP CLOCKWISE LOOP BR355200 TLQ CCWI COUNTERCLOCKWISE BR355300 CWID CLA RH CLOCKWISE BR355400 TRA CCWD BR355500 REM TOOL CHANGE CYCLE TABLE-MODEL 21 BR355600 G1 PZE 15 TOOL UNLOAD 6 WORD BR355700 Z1 PZE 0 BR355800 F1 PZE 200 FEED NUMBER BR355900 G2 PZE 8 IFRO BR356000 Z2 DEC 37500 Z DISTANCE BR356100 F2 PZE 54 FEED NUMBER BR356200 G3 PZE 9 IFRO BR356300 Z3 PZE 10000 Z DISTANCE BR356400 F3 PZE 200 FEED NUMBER BR356500 G4 PZE 0 G06 OR G07-INDEX BR356600 TNN PZE 0 NEW TOOL NUMBER BR356700 F4 PZE 200 FEED NUMBER BR356800 G5 PZE 8 IFRO BR356900 Z5 DEC -37500 Z DISTANCE BR357000 F5 PZE 54 FEED NUMBER BR357100 G6 PZE 9 IFRO BR357200 Z6 DEC -10000 Z DISTANCE BR357300 F6 PZE 200 FEED NUMBER BR357400 G7 PZE 16 TOOL LOAD BR357500 Z7 PZE 0 BR357600 F7 PZE 200 FEED NUMBER BR357700 REM END OF TOOL CHANGE CYCLE BR357800 TCNT PZE 0 TOOL CHANGE COUNTER BR357900 TNP PZE 0 PRESENT TOOL NUMBER BR358000 TL1 PZE 0 OLD TOOL LENGTH BR358100 TL2 PZE 0 NEW TOOL LENGTH BR358200 ZHT PZE 0 CLRPLN-Z HEIGHT INITIALLY BR358300 TPCOR PZE 0 Z COORDINATE OF PRESENT CUTTER TIP BR358400 TIFRO DEC 200. TOOL CHANGE IFRO RATE IN IPM BR358500 TFLG PZE 0 TOOL CHANGE CYCLE FLAG 1 BR358600 TFLG2 PZE 0 TOOL CHANGE FLAG 2 BR358700 MAXZ DEC 19.25 MAXIMUM Z TOOL TRAVEL BR358800 REM BR358900 * TREAT TOOL LIGHT DISPLAY FOR SUNDSTRAND NC-3 BR359000 TLNC3 CLA TE&2 BR359002 TNZ *&3 BR359003 LDQ #100.0 SUBSTITUTE 100 TO CAUSE T00 PUNCHING BR359004 TRA TOCT BR359005 LDQ #99.0 BR359006 TLQ COTL LARGER THAN 20 BR359008 XCA BR359010 TOCT TSX OCTAL,4 BR359012 STO TLIT BR359014 STO T2SW USE THIS BR359016 TXL ABCA,1,1 SET OF BR359018 STZ T2SW INSTRUCTIONS BR359020 TRA *&2 TO PUT BR359022 T3BAC TSX KLEAR,4 OUT TOOL DISPLAY BR359024 CLA TLIT LIGHT FOR BR359026 STO SHOVE&8 THE BR359028 CLA FNAXO SUNDSTRAND NC-3 BR359030 STO SHOVE&6 MACHINE BR359032 TSX K$OUT,4 TOOL BR359034 PZE SHOVE BR359036 NOP BR359038 TSX ZROSH,4 BR359040 STZ ISW BR359042 NZT T2SW BR359048 TRA COTL BR359050 STZ T2SW BR359051 CLA BLCTH BR359052 STO BLCT BR359054 TSX SETUP,4 BR359056 TRA AXFO2 BR359058 T2SW PZE 0 BR359066 TLIT PZE 0 LAST TOOL NUMBER BR359068 REM SECTION FOR DELAY 1&%SECONDS)CODE FOLLOWS BR359100 DLAY CLA TE&2 T%SECONDS) BR359200 TZE COTL INGNORE IN NO TIME GIVEN BR359300 CLA DEC60 BR359400 FDP TE&2 BR359500 TSX RNN,4 CHECK RANGE OF FEED NUMBER BR359600 LDQ FNAXD SELECTED FOR THIS DELAY BLOCK BR359700 TLQ *&3 FEED NO LARGER THAN FNAXD BR359800 LDQ DEC1 # OR LESS HERE BR359900 TLQ *&3 FNIS LARGER 1 BR360000 STQ DLWRD # OR LESS 1 HERE BR360100 TRA *&2 BR360200 STO DLWRD FEED NUMBER FOR DELAY BR360300 CLA LOC1 WORD BR360400 STO DLFLG BR360500 ZET FNFORM XX.XX FEED NUMBER 1ABR360510 TRA F2F2 1ABR360520 DLY4 LDQ DLWRD 1ABR360600 TSX OCTAL,4 BR360700 STO DLWRD OUTPUT FEED NUMBER BR360800 TXL ABCA,1,1 BR360900 CLA DLWRD DELAY WORD BR361000 STO SHOVE&6 BR361100 TSX K$OUT,4 ONLY BR361200 PZE SHOVE BR361300 NOP BR361400 TSX ZROSH,4 CALC MACHINE TIME BR361500 STZ DLFLG BR361600 TRA COTL BR361700 F2F2 LDQ DLWRD FOR XX.XX FEED NUMBER 1ABR361710 FMP FSIZE 1ABR361720 STO DLWRD 1ABR361730 TRA DLY4 1ABR361740 DLFLG PZE 0 DELAY FLAG BR361800 DLWRD PZE 0 DELAY WORD LOCATION BR361900 DLDON TSX KLEAR,4 BR362000 CLA DLWRD DELAY TIME BR362100 STO SHOVE&6 BR362200 TSX K$OUT,4 BR362300 PZE SHOVE BR362400 NOP BR362500 TSX ZROSH,4 BR362600 STZ ISW BR362700 STZ DLFLG BR362800 CLA BLCTH BR362900 STO BLCT BR363000 TSX SETUP,4 BR363100 TRA AXFO2 BR363200 * 2BBR363300 * THE FOLLOWING SECTION DEALS WITH CIRCLE INTERPOLATION 4BBR363400 CIRIN CLA TE&1 FORMAT N#4, F.R., PLANE, DIR, RADI, XC, Y4BBR363500 STO TRATE CIRCLE FEED RATE 4BBR363600 CLA TE&2 4BBR363700 STO TPLAN CIRCLE PLANE, 1 # XY, 2 # YZ, 3 # XZ 4BBR363800 CLA TE&3 4BBR363900 STO TDIR CIRCLE DIRECTION 1 # CCLW, -1 # CLW 4BBR364000 CLA TE&4 4BBR364100 STO TRADI CIRCLE RADIUS 4BBR364200 CLA TE&5 4BBR364300 STO TXC CIRCLE CENTER 4BBR364400 CLA TE&6 COORDINATES 4BBR364500 STO TYC 4BBR364600 CLA #1 4BBR364700 STO COTSW CONTROL SWITCH 4BBR364800 TRA RED5 READ NEXT DATA 4BBR364900 * SECTION TO PROCESS ENTRANCE LINE AND CHORD TO CIRCLE 4BBR365000 DO5A CLA COTSW PROCESS CIRCLE DATA NOW 4BBR365100 TZE DO5 YES 4BBR365200 STZ COTSW FIRST CIRCLE SPAN IN CE REGION 4BBR365300 TXL TOPTS,1,1 PROCESS ENTRANCE LINE 4BBR365400 TSX PLDAT,4 PROCESS ENTRANCE CHORD HERE 4BBR365500 PZE 7 PLACE IN DATA REGION OK 4BBR365600 ONPTS STZ TOSW SET TOSW TO INITIAL CONDITION 4BBR365700 CLA #1 4BBR365800 STO ONSW PROCESS CHORD 4BBR365900 CLA MINT SAVE BR365910 STO RT MINT BR365920 CLA MINTA AND MINTA FOR BR365930 STO RT&1 LATER RESTORATION BR365940 CLA CIMINT MINIMUM EXECUTION TIME 4BBR366000 STO MINT FOR CIRCLE INTERPOLATION 4BBR366100 STO MINTA 4BBR366200 TRA 3FUL V2BR366210 RT BSS 5 SELF INITIALIZING STORAGE BR366810 * SECTION USED TO READ ALL CIRCLE INTERPOLATION INPUT 4BBR366900 RED5 TSX G$READ,4 TO READ AND DISPATCH 4BBR367000 PZE CE,0,7 LOCATION FOR INPUT DATA 4BBR367100 TRA FINALR ERROR EXIT 4BBR367200 TRA *&2 NORMAL 4BBR367300 TRA FINAL END OF FILE EXIT 4BBR367400 CLA CE CODE FOR CIRCLE DATA 4BBR367500 CAS #5.0 4BBR367600 TRA *&2 LAST BLOCK-TYPE 6 4BBR367700 TRA DO5A CIRCLE INTERPOLATION DATA 4BBR367800 FIX6 TSX PLDAT,4 THIS IS THE LAST CHORD 4BBR367900 PZE 14 DATA. IT MUST BE 4BBR368000 CLA CE&4 SET UP AS THE EXIT 4BBR368100 STO CE&1 LINE, LINEAR INTERPOLATION 4BBR368200 CLA CE&5 SWITCH MUST BE SET 4BBR368300 STO CE&2 AND THE FLOW RETURN 4BBR368400 CLA CE&6 TO POST PROCESSOR CONTROL 4BBR368500 STO CE&3 ARRANGE EXIT CHORD OF 4BBR368600 TSX PLDAT,4 CIRCLE IN DATA LOCATIONS 4BBR368700 PZE 7 FOR RETURN TO POST PROCESSOR 4BBR368800 AXC DATA&14,2 RESTORE FOR ENTRANCE 4BBR369100 SXD DATAP,2 CONDITIONS 4BBR369200 AXT 1,1 SET FLO # 1 4BBR369300 SXD FLO,1 4BBR369400 CLA RT&1 RESTORE MINTA BR369500 STO MINTA TIME CONDITIONS 4BBR369600 CLA RT RESTORE MINT BR369700 STO MINT 4BBR369800 STZ ISW 4BBR369900 TRA COTL BACK FOR NEXT POINT 4BBR370000 ENDON STZ ONSW RE-INITIALIZE 4BBR370100 TSX KLEAR,4 CLEAR OUT LINE 4BBR370200 CLA BLCTH BUFFER. BEGIN PROCESSING 4BBR370300 STO BLCT CIRCLE DATA 4BBR370400 TSX SETUP,4 4BBR370500 TRA DO5 4BBR370600 * SECTION TO PROCESS CIRCLE INTERPOLATION DATA 4BBR370700 * CE&1 # XB, CE&2 # YB 4BBR370800 * CE&4 # XE, CE&5 # YE 4BBR370900 DO5 CLA CE&1 XB 4BBR371000 FSB TXC 4BBR371100 STO TXB TRANSLATE THE ORIGIN 4BBR371200 CLA CE&2 OF THIS CIRCLE TO 0,0 4BBR371300 FSB TYC 4BBR371400 STO TYB XB-XC # XB 4BBR371500 CLA CE&4 YB-YC # YB 4BBR371600 FSB TXC 4BBR371700 STO TXE XE-XC # XE 4BBR371800 CLA CE&5 4BBR371900 FSB TYC 4BBR372000 STO TYE YE 4BBR372100 CLA TXE 4BBR372200 FSB TXB 4BBR372300 STO TDELX DELX # XE-XB 4BBR372400 CLA TYE 4BBR372500 FSB TYB 4BBR372600 STO TDELY DELY # YE-YB 4BBR372700 CLA TXB BOTH SPANS SMALL ENOUGH 4BBR373400 SSP 4BBR373500 STO IVAL CALC I COMPONENT 4BBR373600 CLA TYB 4BBR373700 SSP 4BBR373800 STO JVAL CALC J COMPONENT 4BBR373900 LARON CLA TRADI CALCULATE BR374000 LDQ DLSIZ FEED NUMBER BR374010 TLQ BGTRA CONSTANT BR374020 CLA #1.0 DEPENDING UPON BR374030 LBAC STO CIFAC RADIUS BR374040 LDQ CIFAC BR374050 FMP TRATE VELOCITY ON THE CIRCLE 4BBR374100 FDP TRADI RADIUS OF THIS CIRCLE 4BBR374200 CLA D999 MAXIMUM FEED NUMBER 4BBR374300 TLQ *&2 4BBR374400 XCA *12-63*BR374500 ZET FNFORM FOR XX.XX FEED NUMBER 1ABR374510 TRA LEFN 1ABR374520 TSX RNN,4 ROUND TO NEAREST INTEGER 4BBR374600 LNA STO FEDNO *12-62BBR374700 CLA TDIR 4BBR374800 TPL 3COD COUNTER-CLOCKWISE 4BBR374900 CLA #2.0 CLOCKWISE 4BBR375000 INEX STO CODIR 4BBR375100 AXT 4,4 TEST TO SEE BR375200 ALWN CLA TDELX&4,4 IF G 10 BR375300 SSP WILL BE BR375400 LDQ DLSIZ REQUIRED BR375500 TLQ REDU BR375600 TIX ALWN,4,1 BR375610 ROLO LDQ FEDNO *12-62BBR375700 ZET FNFORM FOR XX.XX FEED NUMBER 1ABR375710 TRA LEFM 1ABR375720 TSX OCTAL,4 4BBR375800 LNB STO SHOVE&6 PLACE FEED NUMBER *12-62BBR375900 LDQ CODIR IN OUTPUT REGION 4BBR376000 TSX OCTAL,4 4BBR376100 STO SHOVE G CODE FOR DIRECTION AND RADIUS MULTIPLIE4BBR376200 CLA TPLAN 4BBR376300 CAS #2.0 4BBR376400 TRA SXZ XZ PLANE 4BBR376500 TRA SYZ YZ PLANE 4BBR376600 AXC SHOVE&1,1 XY PLANE-X 4BBR376700 AXC SHOVE&2,2 Y 4BBR376800 DOU LDQ TDELX 4BBR376900 FMP SCALE 4BBR377000 XCA 4BBR377100 TSX OCTAL,4 4BBR377200 STO 0,1 DELTA X 4BBR377300 LDQ TDELY 4BBR377400 FMP SCALE 4BBR377500 XCA 4BBR377600 TSX OCTAL,4 4BBR377700 STO 0,2 DELTA Y 4BBR377800 LDQ IVAL 4BBR377900 FMP SCALE 4BBR378000 XCA 4BBR378100 TSX OCTAL,4 4BBR378200 STO 11,1 I FIELD 4BBR378300 LDQ JVAL 4BBR378400 FMP SCALE 4BBR378500 XCA 4BBR378600 TSX OCTAL,4 4BBR378700 STO 11,2 J FIELD 4BBR378800 LDQ TRATE 4BBR378900 FMP SCAT SET UP RESULTANT 4BBR379000 XCA FEED RATE FOR PRINTING 4BBR379100 TSX OCTAL,4 4BBR379200 STO SHOVE&22 RESULTANT FEED RATE 4BBR379300 * CALCULATE ARC LENGTH BY SERIES APPROXIMATION 4BBR379400 * FOR MACHINE TOOL TIME THIS SPAN 4BBR379500 LDQ TRADI 4BBR379600 FMP TRADI 4BBR379700 STO CE&9 RADIUS SQUARED 4BBR379800 LDQ TDELX 4BBR379900 FMP TDELX CALC CHORD LENGTH 4BBR380000 STO CE&10 OF THIS SPAN 4BBR380100 LDQ TDELY 4BBR380200 FMP TDELY 4BBR380300 FAD CE&10 DELTA X **2 4BBR380400 STO CE&11 CHORD LENGTH SQUARED 4BBR380500 TSX SQROOT,4 4BBR380600 TRA VER 4BBR380700 STO CE&12 CHORD LENGTH 4BBR380800 CLA CE&11 CHORD LENGTH SQUARED 4BBR380900 FDP CE&9 RADIUS SQUARED 4BBR381000 FMP CE&12 CHORD LENGTH 4BBR381100 FDP #24.0 4BBR381200 XCA 4BBR381300 FAD CE&12 CHORD LENGTH 4BBR381400 STO CE&13 SAVE ARC LENGTH FOR CHECKOUT 4BBR381500 FDP TRATE THIS IS LENGTH OF ARC 4BBR381600 FMP SCAH CALCULATE TIME # ARC LENGTH 4BBR381700 XCA DIVIDED BY FEED RATE 4BBR381800 TSX OCTAL,4 4BBR381900 ADD SHOVE&21 CALCULATE MACHINE 4BBR382000 STO SHOVE&21 TIME SUMMATION 4BBR382100 CLA CPRINT PRINT COORDINATE 4BBR382200 STO PRECLU SUMMATION 4BBR382300 TSX K$OUT,4 TO OUTPUT TO PRINT 4BBR382400 PZE SHOVE AND PUNCH THIS DATA 4BBR382500 NOP 4BBR382600 AXT 7,4 INITIALIZE APPROPRIATE 4BBR382700 STZ SHOVE&7,4 SHOVE LOCATIONS 4BBR382800 TIX *-1,4,1 G, X, Y, Z, C, A, F 4BBR382900 STZ SHOVE&9 M 4BBR383000 STZ SHOVE&10 H 4BBR383100 STZ SHOVE&22 FEED RATE 4BBR383200 STZ SHOVE&12 I 4BBR383300 STZ SHOVE&13 J 4BBR383400 STZ SHOVE&14 K 4BBR383500 TRA RED5 READ NEXT INPUT BLOCK 4BBR383800 REDU LDQ #10.0 4BBR383900 FMP CODIR CALC G10X 4BBR384000 STO CODIR G02 OR G03 FOR G20, G30 4BBR384100 CLA IVAL 4BBR384200 FDP #10.0 4BBR384300 STQ IVAL REDUCE I AND J 4BBR384400 CLA JVAL VALUES TO .1 OF 4BBR384500 FDP #10.0 ACTUAL FOR USE WITH 4BBR384600 STQ JVAL G10 4BBR384700 CLA TDELX REDUCE BR384710 FDP #10.0 CHORD DELTAS BR384720 STQ TDELX LARGER THAN BR384730 CLA TDELY .9999 INCHES BR384740 FDP #10.0 IGNORE .0001 SIGNIFICANCE BR384750 STQ TDELY BR384760 TRA ROLO 4BBR384800 3COD CLA #3.0 COUNTER-CLOCKWISE CODE 4BBR384900 TRA INEX 4BBR385000 SXZ AXC SHOVE&1,1 X 4BBR385100 AXC SHOVE&3,2 Z 4BBR385200 TRA DOU 4BBR385300 SYZ AXC SHOVE&2,1 Y 4BBR385400 AXC SHOVE&3,2 Z 4BBR385500 TRA DOU 4BBR385600 BGTRA CLA #10.0 BR385610 CLA CODIR BR379810 CAS #3.0 FIX BR379812 TRA CX UP BR379814 TRA CY FOR BR379816 TRA CY CORRECT BR379818 CX LDQ TDELX CALCULATION BR379820 FMP #10.0 OF CIRCLE INTERPOLATION BR379824 STO TDELX CUTTING TIME BR379828 LDQ TDELY BR379830 FMP #10.0 BR379834 STO TDELY BR379840 CY LDQ TDELX BR379900 TRA LBAC BR385620 LEFN TSX ROND,4 FOR XX.XX FEED NUMBER 1ABR394210 PZE FSIZE 1ABR394220 XCA 1ABR394230 TRA LNA 1ABR394240 LEFM TSX OCT,4 FOR XX.XX FEED NUMBER 1ABR394250 PZE FSIZE 1ABR394260 XCA 1ABR394270 TRA LNB 1ABR394280 * ROUTINE TO ARRANGE CE IN APPROPRIATE DATA LOC 4BBR394300 PLDAT SXA TOSET,4 4BBR394400 CLA 1,4 4BBR394500 PAX 0,4 PLACE IN COUNTER 4BBR394600 CLA #1 4BBR394700 STO DATA&14,4 SET FOR STEP MODE 4BBR394800 CLA TRATE 4BBR394900 STO DATA&15,4 SET CHORD EQUAL CIRCLE FEED RATE 4BBR395000 STZ DATA&19,4 SET ROTARY VALUES 4BBR395100 STZ DATA&20,4 TO ZERO 4BBR395200 CLA TPLAN SELECT CORRECT PLANE 4BBR395300 CAS #2.0 4BBR395400 TRA CPXZ XZ 4BBR395500 TRA CPYZ YZ 4BBR395600 CLA CE&1 XY VALUES 4BBR395700 STO DATA&16,4 X 4BBR395800 CLA CE&2 4BBR395900 STO DATA&17,4 SET UP COORDINATE 4BBR396000 CLA CE&3 VALUES OF LAST 4BBR396100 STO DATA&18,4 POINT 4BBR396200 TRA TOSET 4BBR396300 CPXZ CLA CE&1 4BBR396400 STO DATA&16,4 SET UP COORDINATE 4BBR396500 CLA CE&3 VALUES OF LAST 4BBR396600 STO DATA&17,4 POINT 4BBR396700 CLA CE&1 4BBR396800 STO DATA&18,4 4BBR396900 TRA TOSET 4BBR397000 CPYZ CLA CE&3 SET UP COORDINATES 4BBR397100 STO DATA&16,4 FOR LAST POINT 4BBR397200 CLA CE&1 4BBR397300 STO DATA&17,4 4BBR397400 CLA CE&2 4BBR397500 STO DATA&18,4 4BBR397600 TOSET AXT **,4 RESTORE LINKAGE 4BBR397700 TRA 2,4 4BBR397800 TOPTS TSX PLDAT,4 ARRANGE DATA 4BBR397900 PZE 0 COUNTER 4BBR398000 CLA #1 4BBR398100 STO TOSW SET SWITCH FOR CONTROL 4BBR398200 TRA 3FUL 4BBR398300 RSUB CLA TRATE SET ENTRANCE RATE OF 4BBR398400 STO COR1 FIRST CHORD AND PERHAPS 4BBR398500 STO COR2 LAST CHORD 4BBR398600 TRA BCRN BYPASS CORNER TEST 4BBR398700 EJECT 2BBR398800 * OUTPUT ROUTINE 2BBR398900 * 2BBR399000 REM IT IS NECESSARY THAT THE FOLLOWING DEFINITIONS BR399100 REM BE MADE IN THE MAIN PROGRAM BR399200 REM BR399300 REM SEQNUM BR399400 REM PRECLU BR399500 REM DELETE BR399600 REM BOTROW BR399700 * CDLEAD BR399800 REM BR399900 K HED BR400000 BOTRW EQU BOTROW BR400100 OUT SXA ALOHA,4 BR400200 STZ KOUTSW 4BBR400300 SXA ALOHA&1,2 BR400400 SXA ALOHA&2,1 BR400500 CAS STOP BR400600 TRA *&2 BR400700 TRA PROST BR400800 CAS END IS THIS LAST BLOCK BR400900 TRA CONT1 NOT LAST BLOCK BR401000 TRA LSTBL TRA TO SET LAST BLOCK FLAG BR401100 CONT1 CLA 1,4 CONTINUATION OF PROGRAM BR401200 STA LOC3 BR401300 CLA BLCNT BR401400 TZE FIRBL TRA IF FIRST BLOCK BR401500 ADD 1B35 ADD ONE TO BLOCK COUNT BR401600 STO BLCNT BR401700 LAC LOC3,4 BR401710 STZ CDIR BR401711 CLA 0,4 BR401712 SUB #2 G02 HERE BR401714 TZE BC2 BR401716 SUB #1 BR401718 TZE BC3 G03 HERE BR401720 SUB #17 BR401722 TZE BC20 G20 HERE BR401724 SUB #10 BR401726 TNZ STOUT BR401728 CLA #-1 FOR C-CLOCKWISE V2BR401730 BSO STO CDIR SET CIRCLE DIRECTION BR401732 CLA #10 AT & FAR CLOCKWISE, BR401736 STO 0,4 - FAR COUNTER-CLOCKWISE BR401738 TRA STOUT BR401740 BC20 CLA #1 FOR CLOCKWISE V2BR401744 TRA BSO BR401750 BC2 CLA #1 FOR CLOCKWISE V2BR401754 TRA BSO1 BR401760 BC3 CLA #-1 FOR C-CLOCKWISE V2BR401764 BSO1 STO CDIR BR401770 CLA #1 MIGHT NOT BE NEEDED BR401774 STO 0,4 FOR SAFETY BR401780 TRA STOUT BR401784 REM BR401800 STOUT CLA ALL60 BR402100 STO LINEI BR402200 REM BR402300 CHKBN CLA INCRSW BR402402 TZE CHKN2 BR402404 TRA BLDAY NEW INCREMENTING FEATURE V2BR402405 BNITE CLA D$SHOVE&10 V2BR402406 ADD INCRBY BR402408 ADD SEQSAV SAVED SEQ. NO. BR402410 STO D$SHOVE&10 BR402412 STO SEQSAV BR402414 CHKN2 CLA LOC3 BR402416 ADD 10B35 BR402418 STA *&1 BR402420 CLA ** PLACE N DATA IN AC BR402422 CAS SEQMAX MAXIMUM SEQ. NO. BR402424 TRA DECAP LEAVE ONLY LAST THREE DIGITS BR402426 TRA *&2 BR402428 TZE BLNKN N DATA ZERO,DO NOT PROCESS BR402430 CHKN3 LRS 35 BR402432 CLA LOC1 BR402434 ADD 3B35 BR402436 STO LOC4 BR402438 CLA 3B35 BR402440 ALS 18 BR402442 ADD LOC4 BR402444 TSX BCD,4 BR402446 CLA KN STO N IN DECAR BR402448 STO DECAR BR402450 LDQ ALL60 BR402452 CAL ALL60 BR402454 ALS 6 BR402456 ORA DECAR&1 BR402458 ALS 6 BR402460 ORA DECAR&2 BR402462 ALS 6 BR402464 ORA DECAR&3 BR402466 LGL 6 BR402468 SLW LINEI&1 STORE N DATA IN PRINT AREA BR402470 LDQ ZERO BR402472 CLA 4B35 BR402474 ALS 18 BR402476 ADD LOC1 BR402478 TSX CNVT,4 BR402480 TRA CRDCT BR402482 BLDAY CLA BLSKIP V2BR402484 TZE CHKB1 V2BR402486 FSB #1.0 REDUCE BLSKIP V2BR402488 STO BLSKIP V2BR402490 TRA CHKN2 V2BR402492 CHKB1 CLA BLCSAV RESET V2BR402494 STO BLSKIP BL SKIP V2BR402496 TRA BNITE V2BR402498 XB35 OCT 4 CHANGE TO 5 TO SIMULATE 3000 FORMAT BR405000 X2B35 OCT 6 CHANGE TO 7 TO SIMULATE 3000 FORMAT BR405100 NORV CAL DECAR&2 BR405200 ALS 6 NORMAL BR405300 ACL POINT X BR405400 ALS 6 Y BR405500 ACL DECAR&3 Z BR405600 ALS 6 U BR405700 ACL DECAR&4 W BR405800 ALS 6 FIELDS BR405900 ACL DECAR&5 BR406000 ALS 6 OF BR406100 ACL DECAR&6 X&X.XXXX BR406200 SLW LINEI&2,2 BR406300 TRA OCOOR BR406400 REM BR406500 REM BR407600 CRDCT LDQ CDCNT BR407700 CLA LOC1 BR407800 ADD 3B35 BR407900 STO LOC4 BR408000 CLA 3B35 BR408100 ALS 18 BR408200 ADD LOC4 BR408300 TSX BCD,4 BR408400 LDQ ALL60 BR408500 CAL DECAR&1 BR408600 ALS 6 BR408700 ACL DECAR&2 BR408800 ALS 6 BR408900 ACL DECAR&3 BR409000 LGL 18 BR409100 SLW LINEI&18 STORE CARD NO. IN PRINT AREA BR409200 REM BR409300 CLA LOC3 BR409400 STA *&1 STUFF ADDRESS OF G DATA BR409500 CLA ** CLA G DATA BR409600 TZE BLNKG G DATA ZERO, DO NOT PUNCH OR PRINT BR409700 XCA BR409800 CLA LOC1 BR409900 ADD 2B35 BR410000 STO LOC4 LOCATION FOR BCD BR410100 CLA 2B35 NO OF PLACES FOR BCD BR410200 ALS 18 BR410300 ADD LOC4 BR410400 TSX BCD,4 CONVERT DATA TO BCD BR410500 CLA KG BR410600 STO DECAR STUFF BCD FOR G PRECEDING G DATA BR410700 CAL ALL60 BR410800 ALS 6 BR410900 ACL DECAR&1 BR411000 ALS 6 BR411100 ACL DECAR&2 BR411200 SLW LINEI&2 PUT G DATA IN PRINT AREA BR411300 AXT 0,4 BR411400 CLA DECAR&2,4 BR411500 TNZ *&2 BR411600 TXI *-2,4,1 BR411700 PXD 0,4 BR411800 SSM BR411900 ADD IN13 DECAR,,3 BR412000 LDQ ZERO BR412100 TRA GOX BR412200 LDQ ZERO ZERO MQ BR412300 CLA 3B35 BR412400 ALS 18 BR412500 ADD LOC1 BR412600 GOX TSX CNVT,4 OUTPUT G DATA TO PUNCH TAPE BR412700 CHKCD AXC 1,1 BR412800 AXC 2,2 BR412900 CLA LOC3 BR413000 STA *&1 BR413100 CDATA CLA **,1 CLA COORDINATE DATUM BR413200 TZE BLCOR COORD. DATA ZERO, DO NOT PUNCH OR PRINT BR413300 TMI SIGNA BR413400 XCA BR413500 CLA KPLUS BR413600 STO DECAR&1 STORE SIGN IN DECIMAL AREA BR413700 SIGNB CLA LOC1 BR413800 ADD XB35 BR413900 ADD #1 BR414000 STO LOC4 LOCATION FOR BCD BR414100 CLA XB35 NO OF PLACES FOR BCD BR414200 ALS 18 BR414300 ADD LOC4 BR414400 TSX BCD,4 CONVERT DATA TO BCD BR414500 CLA KX-1,1 BR414600 STO DECAR BR414700 ZET PRINTD BR414800 TRA OCOOR 4BBR414900 CAL ALL60 BR415000 LDQ ALL60 BR415100 ALS 6 BR415200 ACL DECAR&1 BR415300 LGL 6 BR415400 SLW LINEI&1,2 PUT SIGN OF COOR. DATA IN PRINT AREA BR415500 CLA XB35 BR415600 SUB #4 BR415700 TNZ NORV BR415800 CAL ALL60 XB35 # 4 HERE BR415900 ALS 6 FIELDS OF X,Y,Z,U,W,ARE BR416000 ACL POINT X&.XXXX BR416100 ALS 6 BR416200 ACL DECAR&2 BR416300 ALS 6 BR416400 ACL DECAR&3 BR416500 ALS 6 BR416600 ACL DECAR&4 BR416700 ALS 6 BR416800 ACL DECAR&5 BR416900 SLW LINEI&2,2 PUT COOR. DATA IN PRINT AREA BR417000 AXT 0,4 BR417100 CLA DECAR&5,4 BR417200 TNZ *&2 BR417300 TXI *-2,4,1 BR417400 PXD 0,4 BR417500 SSM BR417600 ADD IN16 BR417700 LDQ ZERO BR417800 TRA OCOX BR417900 OCOOR LDQ ZERO LOAD MQ WITH ZERO. 4BBR418000 CLA X2B35 BR418100 ALS 18 BR418200 ADD LOC1 BR418300 OCOX TSX CNVT,4 OUTPUT COORDINATES TO PUNCH TAPE BR418400 CHKN TXI *&1,2,-2 BR418500 TXI *&1,1,-1 BR418600 TXH CDATA,1,-6 BR418700 REM BR418800 CLA LOC3 BR418900 ADD 6B35 BR419000 STA *&1 BR419100 LDQ ** LOAD MQ WITH F DATA BR419200 CLA LOC1 BR419300 ADD FDIGIT 2,3, OR 4 BR419400 STO LOC4 BR419500 CLA FDIGIT 2,3, OR 4 BR419600 ALS 18 SHIFT NO. OF CHARACTERS TO DECR. OF AC BR419700 ADD LOC4 PUT LOCATION FOR BCD RESULTS IN ADDR. OF ACBR419800 TSX BCD,4 BR419900 CLA KF BR420000 STO DECAR PLACE CHAR. F IN DEC OUTP. AREA BR420100 LDQ ZERO LOAD MQ WITH ZERO BR420200 CLA FDIGIT BR420300 ADD #1 BR420400 ALS 18 SHIFT NO. OF CHAR. TO DECR. OF AC BR420500 ADD LOC1 PLACE LOC. OF DATA IN ADDR. OF AC BR420600 TSX CNVT,4 BR420700 ZET PRINTD BR420800 TRA OUTS BR420900 CAL ALL60 BR421000 ALS 6 BR421100 ORA DECAR&1 BR421200 ALS 6 BR421300 ORA DECAR&2 BR421400 SLW LINEI&13 F IN PRINT AREA BR421500 CLA FDIGIT BR421600 SUB #2 BR421700 TZE OUTS OK BR421800 SUB #2 1ABR421810 TZE OUTS4 1ABR421820 CAL LINEI&13 BR421900 ALS 6 BR422000 ORA DECAR&3 BR422100 SLW LINEI&13 BR422200 REM BR422300 OUTS CLA LOC3 BR422400 NZT SDIGIT BR422500 TRA BLNKS BR422600 ADD 7B35 BR422700 STA *&1 BR422800 CLA ** PLACE S DATA IN AC BR422900 TZE BLNKS BR423000 CAS BLRES&7 BR423100 TRA *&2 S DATA DIFFERENT FROM PRECEDING S DATA BR423200 TRA BLNKS S DATA SAME, DO NOT PUNCH OR PRINT BR423300 XCA BR423400 CLA LOC1 BR423500 ADD SDIGIT BR423600 STO LOC4 BR423700 CLA SDIGIT BR423800 ALS 18 BR423900 ADD LOC4 BR424000 TSX BCD,4 BR424100 CLA KS BR424200 STO DECAR STORE CHARACTER S IN DEC. OUTP. AREA BR424300 LDQ ZERO LOAD MQ WITH ZERO BR424400 CLA SDIGIT BR424500 ADD #1 BR424600 ALS 18 SHIFT NO. OF CHAR. TO DEC. OF AC BR424700 ADD LOC1 PLACE LOC. OF DATA IN ADDR. OF AC BR424800 TSX CNVT,4 BR424900 ZET PRINTD BR425000 TRA CHKT BR425100 CAL ALL60 BR425200 ALS 6 BR425300 ORA DECAR&1 BR425400 ALS 6 BR425500 ORA DECAR&2 BR425600 SLW LINEI&14 S DATA IN PRINT AREA BR425700 CLA SDIGIT BR425800 SUB #2 BR425900 TZE CHKT BR426000 CAL LINEI&14 BR426100 ALS 6 BR426200 ORA DECAR&3 BR426300 SLW LINEI&14 BR426400 REM BR426500 CHKT CLA LOC3 BR426600 NZT TDIGIT BR426700 TRA BLNKT BR426800 ADD 8B35 BR426900 STA *&1 BR427000 CLA ** PLACE T DATA IN AC BR427100 TZE BLNKT BR427200 CAS BLRES&8 COMP. T DATA WITH PRECED. T DATA BR427300 TRA *&2 T DATA DIFFERENT BR427400 TRA BLNKT T DATA SAME, DO NOT PUNCH OR PRINT BR427500 CAS TVAL BR427600 TRA *&2 BR427700 PXD 0,0 BR427800 XCA BR427900 CLA LOC1 BR428000 ADD TDIGIT BR428100 STO LOC4 BR428200 CLA TDIGIT BR428300 ALS 18 BR428400 ADD LOC4 BR428500 TSX BCD,4 BR428600 CLA KT BR428700 STO DECAR STORE CHAR. T IN DECIMAL OUTP. AREA BR428800 LDQ ZERO BR428900 CLA TDIGIT BR429000 ADD #1 BR429100 ALS 18 SHIFT NO. CHAR. TO DEC. OF AC BR429200 ADD LOC1 PLACE LOC. OF DATA IN ADDR. OF AC BR429300 TSX CNVT,4 BR429400 ZET PRINTD BR429500 TRA CHKM BR429600 CAL ALL60 BR429700 ALS 6 BR429800 ORA DECAR&1 BR429900 ALS 6 BR430000 ORA DECAR&2 BR430100 SLW LINEI&15 PUT T DATA IN PRINT AREA BR430200 CLA TDIGIT BR430300 SUB #2 BR430400 TZE CHKM BR430500 CAL LINEI&15 T IN PRINT AREA BR430600 ALS 6 BR430700 ORA DECAR&3 BR430800 SLW LINEI&15 BR430900 CHKM CLA LOC3 BR431000 ADD 9B35 BR431100 STA *&1 BR431200 CLA ** PLACE M DATA IN AC BR431300 TNZ *&2 BR431400 TSX BLNKM,4 M DATA ZERO, CHK FOR STOP BR431500 XCA BR431600 CLA LOC1 BR431700 ADD 2B35 BR431800 STO LOC4 BR431900 CLA 2B35 BR432000 ALS 18 BR432100 ADD LOC4 BR432200 TSX BCD,4 BR432300 CLA KM BR432400 STO DECAR STORE CHAR. M IN DEC. OUTP. AREA BR432500 LDQ ZERO BR432600 CLA 3B35 BR432700 ALS 18 BR432800 ADD LOC1 BR432900 TSX CNVT,4 BR433000 ZET PRINTD BR433100 TRA CHKN1 BR433200 CAL ALL60 BR433300 LDQ ALL60 BR433400 ALS 6 BR433500 ORA DECAR&1 BR433600 ALS 6 BR433700 ORA DECAR&2 BR433800 LGL 12 BR433900 SLW LINEI&16 PUT M DATA IN PRINT AREA BR434000 CHKN1 CLA BLCNT BR434100 LRS 35 BR434102 CLA LOC1 BR434104 ADD 3B35 BR434106 STO LOC4 BR434108 CLA 3B35 BR434110 ALS 18 BR434112 ADD LOC4 BR434114 TSX BCD,4 BR434116 LDQ ALL60 BR434118 CAL DECAR&1 BR434120 ALS 6 BR434122 ORA DECAR&2 BR434124 ALS 6 BR434126 ORA DECAR&3 BR434128 LGL 18 BR434130 SLW LINEI&17 STORE BLCNT IN PRINT AREA BR434132 TRA NUPRM BR434134 OUTS4 CAL LINEI&13 FOR XX,XX BR434137 ALS 6 BR434138 ORA POINT BR434139 ALS 6 1ABR434140 ORA DECAR&3 1ABR434150 ALS 6 1ABR434160 ORA DECAR&4 1ABR434170 SLW LINEI&13 1ABR434180 TRA OUTS 1ABR434190 NUPRM CLA CDIR IS CIRCLE INTERPOLATION BR434200 TZE CHKD AVAILABLE BR434210 TMI HAPI BR434220 CLA CLWC PLUS S1IGNIFIES CLOCKWISE BR434230 PDOG STO CPRNT&11 BR434240 CLA #1 BR434250 STO PRIJK BR434260 CLA D$TPLAN WHICH PLANE BR434270 CAS #2.0 BR434280 TRA XZPL XZ PLANE HERE BR434290 TRA YZPL YZ PLANE HERE BR434300 LDQ D$SHOVE&1 X V2BR434310 MPY D$SHOVE&2 Y V2BR434320 MPY CDIR BR434340 TMI XYR BR434350 CLA EYE I FIRST BR434360 STO UNO BR434370 CLA JAY J NEXT BR434380 STO DOS BR434390 AXT IEQ,4 BR434400 SXD UNOW,4 BR434410 AXT JEQ,4 BR434420 SXD DOSN,4 BR434430 TRA DUNC BR434440 XYR CLA JAY BR434500 STO UNO BR434510 CLA EYE BR434520 STO DOS BR434530 AXT JEQ,4 BR434540 SXD UNOW,4 BR434550 AXT IEQ,4 BR434560 SXD DOSN,4 BR434570 TRA DUNC BR434580 XZPL LDQ D$SHOVE&1 X V2BR434590 MPY D$SHOVE&3 Z V2BR434600 MPY CDIR BR434620 TMI XZB BR434630 CLA EYE BR434640 STO UNO BR434650 CLA KAY BR434660 STO DOS BR434670 AXT IEQ,4 BR434680 SXD UNOW,4 BR434690 AXT KEQ,4 BR434700 SXD DOSN,4 BR434710 TRA DUNC BR434720 XZB CLA KAY BR434730 STO UNO BR434740 CLA EYE BR434750 STO DOS BR434760 AXT KEQ,4 BR434770 SXD UNOW,4 BR434780 AXT IEQ,4 BR434790 SXD DOSN,4 BR434800 TRA DUNC BR434900 * BR435000 YZPL TRA CHKD EXPAND LATER IF NEEDED BR435100 * BR435200 * BR435300 DUNC TSX DOIJK,4 BR435350 UNO PZE **,,** BR435400 UNOW PZE CPRNT&1,,** BR435450 TSX DOIJK,4 BR435500 DOS PZE **,,** BR435550 DOSN PZE CPRNT&3,,** BR435600 TRA CHKD BR435650 IN15 PZE DECAR,,5 BR435700 CDIR DEC 0 USED TO SIGNIFY I,J,K IS USED BR435702 * BR435705 * SUBROUTINE TO TREAT I,J,K VALUES BR435710 DOIJK SXA KJI,4 BR435712 CLA 1,4 PZE D$SHOVE&12,,KI BR435714 STA IJK BR435716 ARS 18 BR435718 STA WAD BR435720 CLA 2,4 PZE CPNT&1,,IEOF BR435724 STA MOM4 BR435728 STA WIF4 BR435730 SUB #1 BR435732 STA CINDY BR435736 ARS 18 BR435740 STA *&1 BR435744 CLA ** BR435750 CINDY STO ** BR435754 IJK CLA ** APPROPRIATE ADDRESS BR435800 TZE IJKR IF COORD. IS ZERO. 4BBR435900 XCA 4BBR436000 CLA FRFR DECAR&4,,4 V2BR436100 TSX BCD,4 CONVERT TO BCD. 4BBR436200 WAD CLA ** APPROPRIATE WORD ADDRESS BR436300 STO DECAR 4BBR436400 LDQ ZERO 4BBR436500 CLA IN15 BR436600 TSX CNVT,4 4BBR436700 CAL ALL60 BR436800 ALS 6 VALUE FOR 4BBR436900 ORA POINT PRINTING 4BBR437000 ALS 6 4BBR437100 ORA DECAR&1 BR437200 ALS 6 4BBR437300 ORA DECAR&2 BR437400 ALS 6 4BBR437500 ORA DECAR&3 BR437600 ALS 6 4BBR437700 ORA DECAR&4 BR437800 MOM4 SLW ** CPRNT REGION BR437900 TRA KJI 4BBR438000 IJKR CLA ALL60 STORE BLANK IN APPROPRIATE 4BBR438100 WIF4 STO ** FIELD FOR PRINTING BR438200 KJI AXT **,4 BR438300 TRA 3,4 BR438400 BPRT BCI 7, V2BR439099 CPRNT BCI 6, PUNCHED IN V2BR439100 BCI 6, PREVIOUS BLOCK. ROTATION IS V2BR439200 CLWC BCI 1,CLW BR439210 CCLWC BCI 1,CCLW BR439220 IEQ BCI 1, I# BR439230 JEQ BCI 1, J# BR439240 KEQ BCI 1, K# BR439250 EYE PZE D$SHOVE&12,,KI BR439252 JAY PZE D$SHOVE&13,,KJ BR439254 KAY PZE D$SHOVE&14,,KK BR439256 HAPI CLA CCLWC COUNTER CLOCKWISE HERE BR439270 TRA PDOG BR439272 CHKD TRA MVEDA BR439300 MVEDA CLA KEOB BR439400 STO DECAR STORE EOB CODE IN DECIMAL AREA BR439500 CLA KBL BR439600 STO DECAR&1 STORE BLANK CODE IN DEC. AREA BR439700 CLA LBFLG CHECK FOR LAST BLOCK BR439800 SUB 1B35 BR439900 TNZ LC BR440000 LDQ 1B35 BR440100 TRA LC&1 BR440200 LC LDQ ZERO BR440300 CLA 2B35 BR440400 ALS 18 BR440500 ADD LOC1 BR440600 TSX CNVT,4 BR440700 * BR440800 CLA LOC3 BR440900 ADD 22B35 BR441000 STA *&1 BR441100 LDQ ** LOAD MQ WITH FEDRAT DATA BR441200 CLA LOC1 BR441300 ADD 4B35 BR441400 STO LOC4 BR441500 CLA 4B35 BR441600 ALS 18 BR441700 ADD LOC4 BR441800 TSX BCD,4 BR441900 ZET PRINTD BR442000 TRA CKCLU BR442100 CAL DECAR&1 BR442200 ALS 6 BR442300 ORA DECAR&2 BR442400 ALS 6 BR442500 ORA DECAR&3 BR442600 ALS 6 BR442700 ORA POINT BR442800 ALS 6 BR442900 ORA DECAR&4 BR443000 LDQ ALL60 BR443100 LGL 6 BR443200 SLW LINEI&19 PUT FEEDRATE IN PRINT AREA BR443300 * BR443400 CKCLU CLA PRECLU BR443500 TZE PRLIN DO NOT PRINT COOR. BR443600 CLA CRFLG BR443700 TNZ STCOR FIRST TIME, SET UP INITIAL COORD. BR443800 * BR443900 COPR STZ PRECLU PRINT COORD. BR444000 LXA 5B35,1 START X COORDINATE BR444100 TSX CHNGE,2 BR444200 CAL K51 BR444300 ANS LINEC&3 BR444400 CAL DECAR BR444500 ALS 6 BR444600 ORA DECAR&1 BR444700 ORS LINEC&3 BR444800 CAL DECAR&2 BR444900 ALS 6 BR445000 ORA DECAR&3 BR445100 ALS 6 BR445200 ORA POINT BR445300 ALS 6 BR445400 ORA DECAR&4 BR445500 ALS 6 BR445600 ORA DECAR&5 BR445700 ALS 6 BR445800 ORA DECAR&6 BR445900 SLW LINEC&4 BR446000 CAL K52 BR446100 ANS LINEC&5 BR446200 CAL DECAR&7 BR446300 ALS 30 BR446400 ORS LINEC&5 FINISH X COORDINATE BR446500 TIX *&1,1,1 BR446600 TSX CHNGE,2 START Y COORDINATE BR446700 CAL 60BCD BR446800 ALS 6 BR446900 ORA DECAR BR447000 ALS 6 BR447100 ORA DECAR&1 BR447200 ALS 6 BR447300 ORA DECAR&2 BR447400 ALS 6 BR447500 ORA DECAR&3 BR447600 ALS 6 BR447700 ORA POINT BR447800 SLW LINEC&6 BR447900 CAL DECAR&4 BR448000 ALS 6 BR448100 ORA DECAR&5 BR448200 ALS 6 BR448300 ORA DECAR&6 BR448400 ALS 6 BR448500 ORA DECAR&7 BR448600 LDQ ALL60 BR448700 LGL 12 BR448800 SLW LINEC&7 FINISH Y COORDINATE BR448900 TIX *&1,1,1 BR449000 TSX CHNGE,2 START Z COORDINATE BR449100 CAL K51 BR449200 ANS LINEC&8 BR449300 CAL DECAR BR449400 ALS 6 BR449500 ORA DECAR&1 BR449600 ORS LINEC&8 BR449700 CAL DECAR&2 BR449800 ALS 6 BR449900 ORA DECAR&3 BR450000 ALS 6 BR450100 ORA POINT BR450200 ALS 6 BR450300 ORA DECAR&4 BR450400 ALS 6 BR450500 ORA DECAR&5 BR450600 ALS 6 BR450700 ORA DECAR&6 BR450800 SLW LINEC&9 BR450900 CAL K52 BR451000 ANS LINEC&10 BR451100 CAL DECAR&7 BR451200 ALS 30 BR451300 ORS LINEC&10 FINISH Z COORDINATE BR451400 TRA MTIME TRANS. AROUND A AND C FOR 3-AXIS BR451500 TSX CHNGE,2 START A COORDINATE BR451600 CAL 60BCD BR451700 ALS 6 BR451800 ORA DECAR BR451900 ALS 6 BR452000 ORA DECAR&1 BR452100 ALS 6 BR452200 ORA DECAR&2 BR452300 ALS 6 BR452400 ORA DECAR&3 BR452500 ALS 6 BR452600 ORA POINT BR452700 SLW LINEC&11 BR452800 CAL DECAR&4 BR452900 ALS 6 BR453000 ORA DECAR&5 BR453100 ALS 6 BR453200 ORA DECAR&6 BR453300 ALS 6 BR453400 ORA DECAR&7 BR453500 LDQ ALL60 BR453600 LGL 12 BR453700 SLW LINEC&12 FINISH A COORDINATE BR453800 TIX *&1,1,1 BR453900 TSX CHNGE,2 START C COORDINATE BR454000 CAL K51 BR454100 ANS LINEC&13 BR454200 CAL DECAR BR454300 ALS 6 BR454400 ORA DECAR&1 BR454500 ORS LINEC&13 BR454600 CAL DECAR&2 BR454700 ALS 6 BR454800 ORA DECAR&3 BR454900 ALS 6 BR455000 ORA POINT BR455100 ALS 6 BR455200 ORA DECAR&4 BR455300 ALS 6 BR455400 ORA DECAR&5 BR455500 ALS 6 BR455600 ORA DECAR&6 BR455700 SLW LINEC&14 BR455800 CAL K52 BR455900 ANS LINEC&15 BR456000 CAL DECAR&7 BR456100 ALS 30 BR456200 ORS LINEC&15 FINISH C COORDINATE BR456300 MTIME LDQ BLRES&21 START MACHINE TIME BR456400 CLA LOC1 BR456500 ADD 6B35 BR456600 STO LOC4 BR456700 CLA 6B35 BR456800 ALS 18 BR456900 ADD LOC4 BR457000 TSX BCD,4 BR457100 CAL DECAR&1 BR457200 ALS 6 BR457300 ORA DECAR&2 BR457400 ALS 6 BR457500 ORA DECAR&3 BR457600 ALS 6 BR457700 ORA POINT BR457800 ALS 6 BR457900 ORA DECAR&4 BR458000 ALS 6 BR458100 ORA DECAR&5 BR458200 SLW LINEC&18 FINISH MACHINE TIME BR458300 LDQ ALL60 BR458400 CLA DECAR&6 BR458500 LGL 30 BR458600 SLW LINEC&19 BR458700 * BR458800 TSX PRNTOF,4 BR458900 PZE 8,1 BR459000 TXH LINEC,2,20 BR459100 * BR459200 PRLIN ZET PRINTD BR459300 TRA DFUN BR459400 TSX PRNTOF,4 BR459500 PZE 8,1 BR459600 TXH LINEI,2,20 BR459700 * BR459800 DFUN NOP BR459900 * BR460000 CLA LOC3 SHIFT DATA TO BLOCK RES. AREA BR460100 ADD 23B35 BR460200 STA *&2 BR460300 LXA 23B35,1 BR460400 CLA **,1 BR460500 STO BLRES&23,1 BR460600 TIX *-2,1,1 BR460700 * BR460800 * THE FOLLOWING SECTION SUMS DELTAS FOR COORDINATE 2BBR460900 CLA LOC3 SUMMATIONS 2BBR461000 STA C10 2BBR461100 STA C60 BR461200 ADD 6B35 2BBR461300 STA C20 2BBR461400 AXT 1,4 2BBR461500 C10 CLA ** IS A G10 MULTIPLIER 2BBR461600 SUB 10B35 FOUND IN THIS BLOCK 2BBR461700 TNZ C60 NO BR461800 AXT 10,4 YES 2BBR461900 C30 LXA 5B35,1 2BBR462000 CLA COORD&5,1 2BBR462100 C20 ADD **,1 DELTAS MAY BE 2BBR462200 STO COORD&5,1 SUMMED 10 TIMES 2BBR462300 TIX *-3,1,1 OF A G10 MULTIPLIER 2BBR462400 TIX C30,4,1 IS USED 2BBR462500 * BR462600 TSX LSTCK,4 CLEANUP BEFORE EXIT BR462700 * BR462800 ALOHA AXT **,4 RESTORE BR462900 AXT **,2 THE INDEX BR463000 AXT **,1 REGISTERS. BR463100 CLA PRIJK TEST TO SEE IF I, J, K 4BBR463200 TZE 3,4 COMMENT IS TO BE PRINTED 4BBR463300 STZ PRIJK 4BBR463400 TSX PRNTOF,4 PRINT I, J, K COMMENT 4BBR463500 PZE 8,1 4BBR463600 TXH BPRT,2,19 V2BR463700 LXA ALOHA,4 4BBR463800 TRA 3,4 RETURN TO THE POST PROCESSOR. BR463900 C60 CLA ** BR464000 SUB #60 BR464100 TNZ C30 BR464200 AXT 100,4 BR464300 TRA C30 BR464400 PRIJK PZE 0 SWITCH TO PRINT I, J, K COMMENT 4BBR464500 SIGNA XCA BR464600 CLA KMINS BR464700 TRA SIGNB-1 BR464800 LSTBL CLA 1B35 ADD ONE TO BLOCK COUNT BR464900 STO LBFLG BR465000 TXL CONT1 BR465100 DECAP SUB 1THB35 1000B35 BR465110 CAS SEQMAX BR465112 TRA *-2 BR465114 TRA CHKN3 IS NEW SEQUENCE NO 000 BR465116 TNZ *&2 NO BR465118 ADD 1B35 YES CHANGE TO 001 BR465120 TRA CHKN3 BR465122 FIRBL ADD 1B35 INCREASE BLOCK COUNT BR465200 STO BLCNT BR465300 CLA BOTRW CHK IF FLEXOWRITER CODES ARE OK BR465400 SUB 8B35 BR465500 TNZ ROW SHIFT FLEX CODES BR465600 ROWOK CLA PNOFLG BR465700 TZE *&2 BR465800 TSX L$ID,4 BR465900 TSX LEADR,4 BR466000 CLA KEOR BR466100 STO DECAR BR466200 CLA KEOB BR466300 STO DECAR&1 BR466400 CLA KBL BR466500 STO DECAR&2 BR466600 LDQ ZERO BR466700 CLA 3B35 BR466800 ALS 18 BR466900 ADD LOC1 BR467000 TSX CNVT,4 OUTP. EOB AND SPACE CODES BR467100 REM BR467200 LXA 23B35,1 BR467300 STZ BLRES&23,1 PLACE ZEROS IN BLOCK RES. AREA BR467400 TIX *-1,1,1 BR467500 REM BR467600 TSX PRNTOF,4 BR467700 PON 8,1 BR467800 TXH HEADNG,2,14 BR467900 TXH LINE3,2,15 PRINT BLANK LINE BR468000 REM BR468100 CLA PNOFLG BR468200 TZE NOPNO BR468300 TSX PRNTOF,4 BR468400 PZE 8,1 BR468500 TXH PNOFLG,2,12 BR468600 TXH LINE3,2,15 BR468700 REM BR468800 NOPNO ZET PRINTD BR468900 TRA CONT1&2 BR469000 TSX PRNTOF,4 BR469100 PZE 8,1 BR469200 TXH LINE1,2,20 BR469300 TXH LINE2,2,19 BR469400 TXH LINE3,2,15 BR469500 TRA CONT1&2 BR469700 REM BR469800 ROW CLA RWFLG BR469900 TZE ROWOK BR470000 CLA 8B35 BR470100 SUB BOTRW BR470200 TMI 9BOT BR470300 STA SLIDE&2 BR470400 STA *&3 BR470500 SHIFT LXA 30B35,1 BR470600 CAL KEOR&31,1 BR470700 ALS ** BR470800 SLW KEOR&31,1 BR470900 TIX *-3,1,1 BR471000 SLIDE AXT 129,1 BR471100 CAL L$Z0&129,1 BR471200 ALS ** BR471300 SLW L$Z0&129,1 BR471400 TIX *-3,1,1 BR471500 STZ RWFLG BR471600 TRA ROWOK BR471700 * BR471800 9BOT CAL *&4 BR471900 SLW SHIFT&2 BR472000 SLW SLIDE&2 BR472100 TRA SHIFT BR472200 ARS 1 BR472300 REM BR472400 PROST CLA 1B35 BR472500 STO STFLG BR472600 TRA CONT1 BR472700 REM BR472800 DELOT CLA ON BR472900 STO LINEI PUT -ON- IN PRINT AREA BR473000 CLA KSL BR473100 STO DECAR BR473200 LDQ ZERO BR473300 CLA 1B35 BR473400 ALS 18 BR473500 ADD LOC1 BR473600 TSX CNVT,4 OUTPUT SLASH TO PUNCH TAPE BR473700 TRA CHKBN BR473800 REM BR473900 SIGN TMI *&3 BR474000 CLA KPLUS BR474100 TRA *&2 BR474200 CLA KMINS BR474300 STO DECAR BR474400 TRA 1,4 BR474500 REM BR474600 CHNGE CLA COORD&5,1 BR474700 SSP BR474800 LRS 35 BR474900 CLA LOC1 BR475000 ADD 7B35 BR475100 STO LOC4 BR475200 CLA 7B35 BR475300 ALS 18 BR475400 ADD LOC4 BR475500 TSX BCD,4 BR475600 CLA COORD&5,1 BR475700 TSX SIGN,4 BR475800 TRA 1,2 BR475900 REM BR476000 STCOR STZ CRFLG BR476100 CLA LOC3 BR476200 ADD 21B35 BR476300 STA *&2 BR476400 LXA 5B35,1 BR476500 CLA **,1 BR476600 STO COORD&5,1 BR476700 TIX *-2,1,1 BR476800 TRA COPR BR476900 REM THE FOLLOWING SUBROUTINES PUT BLANKS IN THE PRINT BR477000 REM AREA FOR FUNCTIONS WHICH ARE NOT REPRESENTED BR477100 REM IN A PUNCHED BLOCK BR477200 REM BR477300 BLNKG CAL ALL60 BR477400 SLW LINEI&2 BR477500 TRA CHKCD BR477600 REM BR477700 BLCOR CAL ALL60 BR477800 SLW LINEI&1,2 BR477900 SLW LINEI&2,2 BR478000 TRA CHKN BR478100 REM BR478200 BLNKS CAL ALL60 BR478300 SLW LINEI&14 BR478400 TRA CHKT BR478500 REM BR478600 BLNKT CAL ALL60 BR478700 SLW LINEI&15 BR478800 TRA CHKM BR478900 REM BR479000 BLNKM CLA STFLG BR479100 TZE *&4 BR479200 STZ STFLG BR479300 PXD 0,0,0 BR479400 TRA 1,4 BR479500 CAL ALL60 BR479600 SLW LINEI&16 BR479700 TRA CHKN1 BR479800 REM BR479900 BLNKN CAL ALL60 BR480000 SLW LINEI&1 BR480100 TRA CRDCT BR480200 * BR480300 BLNKD STZ DFLAG BR480400 TRA MVEDA BR480500 REM BR480600 REM SUBROUTINE TO CONVERT DECIMAL DATA TO FLEXOWRITER CODE, LOAD BR480700 REM PUNCH AREA, AND TO WRITE DATA ON THE PUNCH TAPE WHEN A RECORDBR480800 REM IS FILLED. BR480900 REM ENTRY WITH NO. OF CHARACTERS IN DEC OF AC AND LOCATION IN BR481000 REM ADDRESS OF AC, ONE IN MQ INDICATES END OF FILE. BR481100 REM BR481200 CNVT SXD SAV1,1 BR481300 SXD SAV2,2 BR481400 SXD SAV4,4 BR481500 STZ ERFLG BR481600 STA CLA BR481700 STQ EOF BR481800 LXA 1ZER,3 BR481900 SUB 1ZER BR482000 STD DECRE BR482100 CLA CLA **,1 BR482200 TSX FLEX,4 BR482300 TSX PUNCH,4 BR482400 TXI *&1,1,-1 BR482500 TXI *&1,2,1 BR482600 DECRE TXL CLA,2,** BR482700 CLA EOF CHECK FOR LAST BLOCK BR482800 TZE FINI BR482900 INBL CLA WDCNT BR483000 TZE TRAIL BR483100 CLA BLANK BLANK REMAINDER OF CARD 2BBR483200 TSX PUNCH,4 BR483300 TRA INBL BR483400 TRAIL CLA CHCNT BR483500 SUB 1B35 BR483600 TNZ INBL&2 BR483700 TSX LEADR,4 PUNCH TRAILER BR483800 REM BR483900 FINI LXD SAV1,1 BR484000 LXD SAV2,2 BR484100 LXD SAV4,4 BR484200 TRA 1,4 BR484300 REM BR484400 REM SUBROUTINE TO PUT FLEXOWRITER CODES IN PUNCH AREA %PNARA) ANDBR484500 REM TO WRITE BINARY PUNCH TAPE WHEN AREA IS FULL BR484600 REM ENTRY WITH FLEXOWRITER CODE IN AC BR484700 REM BR484800 PUNCH SXD KEEP4,4 BR484900 STO INTRM BR485000 CLA WDCNT CHECK IF NEW RECORD BR485100 TZE CHK1 BR485200 CONT2 CLA LOC2 CONTINUATION OF SUBROUTINE BR485300 ADD WDCNT BR485400 STA ACL BR485500 STA ACL&1 BR485600 CLA CHCNT BR485700 CAS 2B35 BR485800 TRA LGL0 BR485900 TRA LGL12 BR486000 LGL24 CAL INTRM BR486100 ALS 24 BR486200 TRA ACL BR486300 LGL12 CAL INTRM BR486400 ALS 12 BR486500 TRA ACL BR486600 LGL0 CAL INTRM BR486700 ACL ACL ** BR486800 SLW ** BR486900 CLA CHCNT BR487000 ADD 1B35 INCREASE CHARACTER COUNT BR487100 CAS 3B35 BR487200 TRA OVER CHARACTER COUNT OVER 3 BR487300 NOP BR487400 STO CHCNT BR487500 LXD KEEP4,4 BR487600 TRA 1,4 RETURN BR487700 REM BR487800 OVER CLA 1B35 BR487900 STO CHCNT RESET CHAR COUNT BR488000 CLA WDCNT BR488100 ADD 1B35 INCREASE WORD COUNT BR488200 CAS 23B35 BR488300 TRA FULL PUNCH AREA IS FULL BR488400 NOP BR488500 STO WDCNT BR488600 LXD KEEP4,4 BR488700 TRA 1,4 BR488800 REM BR488900 FULL STZ WDCNT RESET WORD COUNT BR489000 REM BR489100 SXD KEEP1,1 BR489200 LXD DIG,1 ADD ONE TO CARD NO. BR489300 SHFT CLA UNITS&4,1 BR489400 LBT BR489500 DIG TXL ARS,0,4 BR489600 CLA HOLZE BR489700 STO UNITS&4,1 BR489800 TIX SHFT,1,1 BR489900 TRA ARS&2 BR490000 ARS ARS 1 BR490100 STO UNITS&4,1 BR490200 CLA THOUS LOAD CARD NO. INTO BR490300 ALS 12 PUNCH AREA BR490400 ORA HUNDS BR490500 STO PNARA&25 BR490600 CLA TENS BR490700 ALS 12 BR490800 ORA UNITS BR490900 ALS 12 BR491000 STO PNARA&26 BR491100 LXD KEEP1,1 BR491200 LXA CDCNT,4 TO PUNCH SEQ NUMBERS IN BR491300 SXD SEQUNO,4 DATA OUTPUT CARDS BR491400 CALL CARDPN,PNARA,N24,M2F,SEQUNO,BLNKZ BR491500 CLA CDCNT INCREASE CARD COUNT BR491600 ADD 1B35 BR491700 STO CDCNT BR491800 REM BR491900 CLA FEET BR492000 ADD FTCRD BR492100 STO FEET BR492200 CLA FEETSV *BR492300 ADD FTCRD *BR492400 STO FEETSV SAVE FOOTAGE FOR ON-LINE PRINT *BR492500 REM BR492600 LXD KEEP4,4 BR492700 TRA 1,4 RETURN BR492800 BLNKZ BCI 1, BR492900 SEQUNO HTR 0 BR493000 REM BR493100 CHK1 CLA CHCNT BR493200 SUB 1B35 BR493300 TNZ CONT2 BR493400 LXA 24B35,4 BR493500 CONT3 STZ PNARA&24,4 ZERO PUNCH AREA BR493600 TIX CONT3,4,1 BR493700 TXL CONT2 BR493800 REM BR493900 REM SUBROUTINE TO CONVERT BCD DATA TO FLEXOWRITER CODE ENTRY WITHBR494000 REM BCD CHARACTER IN AC BR494100 REM EXIT WITH FLEXOWRITER CODE IN AC BR494200 REM ALL DATA RIGHT JUSTIFIED BR494300 REM BR494400 FLEX SXD KEEP4,4 BR494500 STZ ERCNT ZERO ERROR COUNT BR494600 STO INTRM SAVE ARGUMENT BR494700 AXT 32,4 4BBR494800 REIN CLA INTRM BR494900 SUB K0&32,4 4BBR495000 TZE FOUND ARGUMENT MATCHED BR495100 TIX REIN,4,1 BR495200 TRA ERROR ARGUMENT NOT IN TABLE BR495300 FOUND CLA K0&64,4 4BBR495400 LXD KEEP4,4 BR495500 TRA 1,4 RETURN BR495600 ERROR CLA ERCNT BR495700 ADD 1B35 COUNT NO. TIMES TABLE WAS SEARCHED BR495800 STO ERCNT BR495900 CLA 2B35 BR496000 CAS ERCNT WAS TABLE SEARCHED 3 TIMES BR496100 NOP NO BR496200 TRA REIN-1 NO BR496300 CLA 1B35 YES BR496400 STO ERFLG SET ERROR FLAG BR496500 CLA KBL INSERT BLANK BR496600 STO INTRM BR496700 TRA REIN-1 BR496800 REM BR496900 REM SUBROUTINE TO CONVERT OCTAL INTEGERS TO BCD BR497000 REM ENTRY WITH DATA IN MQ, NUMBER OF PLACES BR497100 REM IN DEC OF AC, AND LOCATION FOR RESULTS BR497200 REM IN ADDRESS OF AC BR497300 REM BR497400 BCD SXD SAV1,1 BR497500 SUB 1ZER SUBTRACT ONE FROM DECREMENT BR497600 STD DIV&4 STUFF NO CHAR MINUS ONE BR497700 STA DIV&2 STUFF ADDRESS FOR RESULTS BR497800 LXA 1ZER,1 BR497900 DIV PXD BR498000 DVP 10B35 BR498100 STO **,1 STORE REMAINDERS BR498200 TXI *&1,1,1 BR498300 TXL DIV,1,** BR498400 LXD SAV1,1 BR498500 TRA 1,4 BR498600 REM BR498700 REM SUBROUTINE TO PUNCH 6 FEET OF LEADER BR498800 REM %OR TRAILER AS THE CASE MAY BE), LEADER BR498900 REM CONTAINS FLEXOWRITER SPACES BR499000 REM BR499100 LEADR SXD XR4,4 BR499200 SXD XR2,2 BR499300 SXD XR1,1 BR499400 LXA 24B35,4 BR499500 CAL ABBL BR499600 SLW PNARA&24,4 BR499700 TIX *-2,4,1 BR499800 LXA CDLEAD,1 BR499900 ART CALL CARDPN,PNARA,N24,M2F,PNARA&26,PNARA&24 BR500000 TIX ART,1,1 BR500100 LXD XR4,4 BR500200 LXD XR2,2 BR500300 LXD XR1,1 BR500400 TRA 1,4 BR500500 M2F DEC -2B17 BR500600 N24 DEC 24B17 BR500700 REM BR500800 REM THE FOLLOWING SUBROUTINE PRINTS COMMENTS RELATING BR500900 REM TO PUNCHED TAPE FOOTAGE AND INITIALIZES AFTER BR501000 REM AN END COMMAND BR501100 REM BR501200 LSTCK SXD SET4,4 BR501300 CLA LBFLG IS THIS LAST BLOCK BR501400 TZE CHKFT NOT LAST BLOCK, CHECK ON TAPE FOOTAGE BR501500 STZ LBFLG BR501600 TSX READY,4 BR501700 TSX PRNTOF,4 BR501800 PZE 8,1 BR501900 TXH LINE3,2,15 BR502000 TXH COM1A,2,5 BR502100 TSX INITL,4 BR502200 LXD SET4,4 BR502300 TRA 1,4 BR502400 * BR502500 CHKFT CLA FTFLG HAS PROGRAMMED LIMIT PREVIOUSLY BEEN EXCEEDBR502600 TZE GOBAC YES, AND A COMMENT HAS BEEN PRINTED BR502700 CLA FEET RUNNING TOTAL OF PUNCHED TAPE FOOTAGE BR502800 SUB FTLIM PROGRAMMED LIMIT BR502900 TMI GOBAC NOT EXCEEDED BR503000 STZ FTFLG BR503100 TSX READY,4 BR503200 TSX PRNTOF,4 BR503300 PZE 8,1 BR503400 TXH LINE3,2,15 BR503500 TXH COM1A,2,10 BR503600 TXH LINE3,2,15 BR503700 * BR503800 GOBAC LXD SET4,4 BR503900 TRA 1,4 BR504000 * BR504100 READY SXD PSET,4 BR504200 CLA LOC1 BR504300 ADD 5B35 BR504400 STO LOC4 BR504500 CLA 5B35 BR504600 ALS 18 BR504700 ADD LOC4 BR504800 LDQ FEET BR504900 TSX BCD,4 BR505000 CAL DECAR&1 BR505100 ALS 6 BR505200 ORA DECAR&2 BR505300 ALS 6 BR505400 ORA DECAR&3 BR505500 ALS 6 BR505600 ORA DECAR&4 BR505700 ALS 6 BR505800 ORA POINT BR505900 ALS 6 BR506000 ORA DECAR&5 BR506100 SLW COM1A&4 BR506200 LXD PSET,4 BR506300 TRA 1,4 BR506400 REM BR506500 REM SUBROUTINE TO INITIALIZE THE OUTPUT ROUTINE BR506600 REM BR506700 INITL SXD PSET4,4 BR506800 STZ STFLG STOP FLAG BR506900 STZ LBFLG LAST BLOCK FLAG BR507000 STZ BLCNT BLOCK COUNT BR507100 CLA 1B35 BR507200 STO CDCNT CARD COUNT BR507300 STO CRFLG FLAG WHICH TELLS IF COOR. HAVE BEEN ADDED BR507400 STO CHCNT CHARACTER COUNT BR507500 STZ WDCNT BR507600 CLA HOLZE BR507700 STO UNITS BR507800 STO TENS BR507900 STO HUNDS BR508000 STO THOUS RESTORE CARD SEQUENCING BR508100 STZ DFLAG D FLAG BR508200 CLA 1B35 BR508300 STO FTFLG PUNCHED TAPE FOOTAGE FLAG BR508400 STZ FEET RUNNING TOTAL OF TAPE FOOTAGE BR508500 LXA 20B35,1 BR508600 CLA LINES&20,1 BR508700 STO LINEI&20,1 RESTORE LINE PRINT AREA BR508800 TIX *-2,1,1 BR508900 ZET HOLRIT SUBSTITUTE HOLLERITH CODE BR508910 TRA HOLCD TABLE IF HOLRIT#1 BR508920 INOU LXD PSET4,4 BR509000 TRA 1,4 V2BR509010 * SECTION TO SUBSTITUTE HOLLERITH CODES BR509100 HOLCD CLA 8B35 INSURE THAT NO SHIFTING BR509110 STO BOTRW OCCURS FOR HOLLERITH BR509112 AXT 33,4 BR509114 CLA BEHOL&33,4 TRANSFER BR509116 STO BEFLX&33,4 BR509118 TIX *-2,4,1 BR509120 TRA INOU BR509122 * TABLE OF HOLLERITH CODES. DO NOT ALTER ARRANGEMENT BR509130 BEHOL OCT 1000,400,200,100,40,20,10,4,2,1,4000,2000 BR509131 OCT 2020,4010,1004,1002,1001,1040,1010,4004,1200 BR509132 OCT 1100,2040,4002,2102,0,1400,4040 BR509133 OCT 4001,2400,2200,102,0 BR509134 REM BR509200 REM THE FOLLOWING LOCS. CONTAIN ALL OF THE PRINTING FOR BR509300 REM THIS OUTPUT SUBPROGRAM BR509400 REM BR509500 LINE1 BCD 6DELETE N G DELTA BR509600 BCD 6DELTA DELTA DELTA BR509700 BCD 6DELTA F S T M BLOCK C BR509800 BCI 2,ARD RATE BR509900 LINE2 BCD 6 X BR510000 BCI 6, Y Z U BR510100 BCI 6, W COUNT BR510200 BCD 1NO. BR510300 LINE3 BCD BR510400 BCD 5 BR510500 LINEI BCD 6 BR510600 BCI 6, BR510700 BCI 6, BR510800 BCI 2, BR510900 LINEC BCD 6 COORDINATES ARE X # Y # BR511000 BCD 2 BR511100 BCD 3Z # BR511200 BCD 2 BR511300 BCD MACHINE TIME # BR511400 LINES BCI 6, 001 BR511500 BCI 6, BR511600 BCI 6, BR511700 BCI 2, BR511800 COM1A BCD 4PUNCHED TAPE FOOTAGE BR511900 HTR ** BR512000 BCD 5, PROGRAMMED LIMIT EXCEEDED BR512100 REM BR512200 REM THERE ARE 29 CHARACTERS IN EACH OF THE FOLLOWING LISTS BR512300 REM THEY SHOULD NOT BE REORDERED BR512400 REM THE FOLLOWING BCD CODES CORRESPOND TO BR512500 REM THEIR RESPECTIVE LABELS BR512600 REM BR512700 K0 OCT 00 BR512800 K1 OCT 01 BR512900 K2 OCT 02 BR513000 K3 OCT 03 BR513100 K4 OCT 04 BR513200 K5 OCT 05 BR513300 K6 OCT 06 BR513400 K7 OCT 07 BR513500 K8 OCT 10 BR513600 K9 OCT 11 BR513700 KPLUS OCT 20 BR513800 KMINS OCT 40 BR513900 KN OCT 45 BR514000 KF OCT 26 BR514100 KX OCT 67 BR514200 KY OCT 70 BR514300 KZ OCT 71 BR514400 KU OCT 64 BR514500 KW OCT 66 BR514600 KG OCT 27 BR514700 KS OCT 62 BR514800 KT OCT 63 BR514900 KM OCT 44 BR515000 KH OCT 30 BR515100 KEOB OCT 77 BR515200 KBL OCT 60 BR515300 KSL OCT 61 BR515400 KD OCT 24 BR515500 KI OCT 31 4BBR515600 KJ OCT 41 4BBR515700 KK OCT 42 4BBR515800 KEOR OCT 76 BR515900 REM BR516000 REM THE FOLLOWING DATA ARE FLEXOWRITER OCTAL BR516100 REM CODES CORRESPONDING TO THE ABOVE BCD CHARACTERS BR516200 REM BR516300 BEFLX OCT 100 ZERO BR516400 OCT 2 ONE BR516500 OCT 4 TWO BR516600 OCT 46 THREE BR516700 OCT 10 FOUR BR516800 OCT 52 FIVE BR516900 OCT 54 SIX BR517000 OCT 16 SEVEN BR517100 OCT 20 EIGHT BR517200 OCT 62 NINE BR517300 OCT 340 PLUS BR517400 OCT 200 MINUS BR517500 OCT 212 N BR517600 OCT 354 F BR517700 OCT 156 X BR517800 OCT 160 Y BR517900 OCT 122 Z BR518000 OCT 150 U BR518100 OCT 114 W BR518200 OCT 316 G BR518300 OCT 144 S BR518400 OCT 106 T BR518500 OCT 250 M BR518600 OCT 320 H BR518700 OCT 400 END OF BLOCK BR518800 BLANK OCT 40 BLANK CODE 2BBR518900 OCT 142 SLASH BR519000 OCT 310 D BR519100 OCT 362 I 4BBR519200 OCT 242 J 4BBR519300 OCT 244 K 4BBR519400 OCT 26 END OF RECORD BR519500 REM BR519600 ABBL OCT 4000400040 BR519700 REM BR519800 REM FLAGS BR519900 REM BR520000 ORTHOF OCT 1 ZERO-DO NOT OUTPUT ORTHOMAT DATA, 1-YES BR520100 LBFLG PZE FLAG FOR LAST BLOCK BR520200 ERFLG HTR * BR520300 EOF HTR * BR520400 STFLG HTR ** BR520500 CRFLG OCT 1 FLAG WHICH TELLS IF COOR. HAVE BEEN ADDED BR520600 RWFLG OCT 1 DO NOT RE-INITIALIZE FOR END CODE BR520700 DFLAG HTR ** BR520800 FTFLG OCT 1 BR520900 SCODE OCT 5 BR521000 REM BR521100 REM THE FOLLOWING DEFINITIONS RESERVE LOCATIONS BR521200 REM BR521300 LOC1 HTR DECAR BR521400 LOC2 PZE PNARA BR521500 LOC3 HTR ** STORAGE FOR LOC OF INPUT BR521600 LOC4 HTR ** INIT LOC FOR BCD DATA BR521700 PNARA BSS 27 BR521800 DECAR BSS 11 TEMPORARY LOC FOR BCD DATA BR521900 COORD BSS 5 BR522000 BLRES BSS 23 BR522100 CDCNT OCT 1 BR522200 CHCNT OCT 1 BR522300 WDCNT OCT 0 BR522400 BLCNT PZE BLOCK NUMBER COUNTER BR522500 ERCNT HTR * BR522600 FEET OCT 0 RUNNING TOTAL OF PUNCHED TAPE FOOTAGE BR522700 INTRM HTR * BR522800 HOLD HTR * BR522900 IR1 HTR BR523000 IR2 HTR BR523100 IR4 HTR BR523200 XR1 HTR * BR523300 XR2 HTR * BR523400 XR4 HTR * BR523500 SAV1 HTR * BR523600 SAV2 HTR * BR523700 SAV4 HTR * BR523800 KEEP1 HTR * BR523900 KEEP4 HTR * BR524000 EXR4 HTR ** BR524100 PSET4 HTR ** BR524200 PSET HTR ** BR524300 SET4 HTR ** BR524400 REM BR524500 REM THE FOLLOWING LOCATIONS GENERATE DATA BR524600 REM BR524700 HOLZE OCT 1000 BR524800 UNITS OCT 1000 BR524900 TENS OCT 1000 BR525000 HUNDS OCT 1000 BR525100 THOUS OCT 1000 BR525200 REM BR525300 ZERO PZE BR525400 1B35 OCT 1 BR525500 2B35 OCT 2 BR525600 3B35 OCT 3 BR525700 4B35 OCT 4 BR525800 5B35 OCT 5 BR525900 6B35 OCT 6 BR526000 7B35 OCT 7 BR526100 8B35 DEC 8 BR526200 9B35 DEC 9 BR526300 10B35 DEC 10 BR526400 11B35 DEC 11 BR526500 20B35 DEC 20 BR526600 21B35 DEC 21 BR526700 22B35 DEC 22 BR526800 23B35 DEC 23 BR526900 24B35 DEC 24 BR527000 25B35 DEC 25 BR527100 27B35 DEC 27 BR527200 29B35 DEC 29 BR527300 30B35 DEC 30 BR527400 1THB35 DEC 1000 BR527410 REM BR527500 K50 OCT 777777777700 BR527600 K51 OCT 777777770000 BR527700 K52 OCT 7777777777 BR527800 ALL7 OCT 777777777777 BR527900 REM BR528000 STOP OCT 62634647 BR528100 END OCT 254524 LAST BLOCK INDICATOR BR528200 ON BCD 1 ON BR528300 ALL60 OCT 606060606060 BR528400 60BCD OCT 60 BR528500 POINT OCT 33 BCD REPRESENTATION FOR DECIMAL POINT BR528600 REM BR528700 1ZER PZE ,,1 BR528800 M1DEC PZE ,,-1 BR528900 M3DEC PZE ,,-3 BR529000 M2DEC PZE ,,-2 BR529100 CENT DEC 1000000 BR529200 M6DEC PZE ,,-6 BR529300 FTLIM DEC 2000 200 FOOT REELS BR529400 FTCRD DEC 6 BR529500 TVAL DEC 20 BR529600 IN13 PZE DECAR,,3 BR529700 FRFR PZE DECAR&4,,4 V2BR529800 EORW OCT 26 4BBR529900 IN16 PZE DECAR,,6 4BBR530000 REM BR530100 L HED BR530200 * SUBROUTINE TO PLACE THE PART NUMBER ON BR530300 * THE PUNCH TAPE BR530400 * WRITTEN AT THE BOEING COMPANY, AERO- BR530500 * SPACE DIVISION, SEATTLE, IN DEC. 1962 BR530600 * BY H. KATZAN BR530700 * BR530800 ID SXA SAVE1,1 BR530900 SXA SAVE2,2 BR531000 SXA SAVE4,4 BR531100 ZET HOLRIT BYPASS VISUAL PARTNO BR531110 TRA SAVE1 IF HOLLERITH IS SET BR531120 AXT 24,1 BR531200 STZ PNARA&24,1 BR531300 TIX *-1,1,1 BR531400 AXT 12,1 BR531500 REENT AXT 6,2 BR531600 LDQ PNOFLG&12,1 BR531700 STQ SAVEW BR531800 NEXT LDQ SAVEW BR531900 PXD 0,0,0 BR532000 LGL 6 BR532100 STQ SAVEW BR532200 CAS DOLLR BR532300 TRA *&2 BR532400 TRA LAST BR532500 TSX LOOK,4 BR532600 TSX PUNCH,4 BR532700 TIX NEXT,2,1 BR532800 TIX REENT,1,1 BR532900 SAVE1 AXT **,1 BR533000 SAVE2 AXT **,2 BR533100 SAVE4 AXT **,4 BR533200 TRA 1,4 BR533300 LAST CALL CARDPN,PNARA,N24,M2F,PNARA&26,PNARA&24 BR533400 STZ COUNT BR533500 TRA SAVE1 BR533600 SAVEW HTR ** BR533700 * BR533800 * BR533900 REM SUBROUTINE TO LOOK UP PUNCH CHARACTERS BR534000 REM IN A CODED TABLE BR534100 LOOK SXA XR1,1 BR534200 SXA XR2,2 BR534300 SXA XR4,4 BR534400 AXT 0,1 BR534500 TRY CAS TABLE,1 BR534600 TRA *&2 BR534700 TRA FOUND BR534800 TXI *&1,1,-2 BR534900 TXH TRY,1,-86 BR535000 CLA EMER BR535100 TRA XR1 BR535200 FOUND TXI *&1,1,-1 BR535300 CLA TABLE,1 BR535400 XR1 AXT **,1 BR535500 XR2 AXT **,2 BR535600 XR4 AXT **,4 BR535700 TRA 1,4 BR535800 * BR535900 * BR536000 REM SUBROUTINE TO FILL A BUFFER WITH PARTNO BR536100 REM CHARACTERS FOR LEADER %THREE 7090 WORDS PER CHAR) BR536200 REM AND PUNCH A PAPER-TAPE-IMAGE CARD WHEN THE BR536300 REM BUFFER IS FULL BR536400 N24 DEC 24B17 BR536500 M2F DEC -2B17 BR536600 PUNCH SXA IR1,1 BR536700 SXA IR2,2 BR536800 SXA IR4,4 BR536900 LXD COUNT,1 BR537000 AXT 3,2 BR537100 ADD 3B35 BR537200 STA *&1 BR537300 GET CAL **,2 BR537400 SLW PNARA,1 BR537500 TXI *&1,1,-1 BR537600 TIX GET,2,1 BR537700 TXL OUT,1,-EAM BR537800 SXD COUNT,1 BR537900 IR1 AXT **,1 BR538000 IR2 AXT **,2 BR538100 IR4 AXT **,4 BR538200 TRA 1,4 BR538300 OUT CALL CARDPN,PNARA,N24,M2F,PNARA&26,PNARA&24 BR538400 AXT 24,2 BR538500 STZ PNARA&24,2 BR538600 TIX *-1,2,1 BR538700 STZ COUNT BR538800 TRA IR1 BR538900 K1401 EQU 24 BR539000 EAM EQU K1401 BR539100 PNARA BSS 25 BR539200 COUNT PZE ** BR539300 DOLLR OCT 53 BR539400 3B35 OCT 3 BR539500 * BR539600 * TABLE TO COORDINATE BETWEEN THE PROGRAM AND BR539700 * THE CODED CHARACTER TABLE BR539800 * BR539900 TABLE OCT 00 BR540000 PZE Z0 BR540100 OCT 01 BR540200 PZE Z1 BR540300 OCT 02 BR540400 PZE Z2 BR540500 OCT 03 BR540600 PZE Z3 BR540700 OCT 04 BR540800 PZE Z4 BR540900 OCT 05 BR541000 PZE Z5 BR541100 OCT 06 BR541200 PZE Z6 BR541300 OCT 07 BR541400 PZE Z7 BR541500 OCT 10 BR541600 PZE Z8 BR541700 OCT 11 BR541800 PZE Z9 BR541900 OCT 61 BR542000 PZE ZSL BR542100 OCT 40 BR542200 PZE ZDASH BR542300 OCT 21 BR542400 PZE ZA BR542500 OCT 22 BR542600 PZE ZB BR542700 OCT 23 BR542800 PZE ZC BR542900 OCT 24 BR543000 PZE ZD BR543100 OCT 25 BR543200 PZE ZE BR543300 OCT 26 BR543400 PZE ZF BR543500 OCT 27 BR543600 PZE ZG BR543700 OCT 30 BR543800 PZE ZH BR543900 OCT 31 BR544000 PZE ZI BR544100 OCT 41 BR544200 PZE ZJ BR544300 OCT 42 BR544400 PZE ZK BR544500 OCT 43 BR544600 PZE ZL BR544700 OCT 44 BR544800 PZE ZM BR544900 OCT 45 BR545000 PZE ZN BR545100 OCT 46 BR545200 PZE ZO BR545300 OCT 47 BR545400 PZE ZP BR545500 OCT 50 BR545600 PZE ZQ BR545700 OCT 51 BR545800 PZE ZR BR545900 OCT 62 BR546000 PZE ZS BR546100 OCT 63 BR546200 PZE ZT BR546300 OCT 64 BR546400 PZE ZU BR546500 OCT 65 BR546600 PZE ZV BR546700 OCT 66 BR546800 PZE ZW BR546900 OCT 60 BR547000 EMER PZE ZBL BR547100 OCT 67 BR547200 PZE ZX BR547300 OCT 70 BR547400 PZE ZY BR547500 OCT 71 BR547600 PZE ZZ BR547700 OCT 33 BR547800 PZE ZDOT BR547900 OCT 20 BR548000 PZE ZPLUS BR548100 OCT 13 BR548200 PZE ZEQU BR548300 OCT 14 BR548400 PZE ZAP BR548500 * BR548600 * CODED CHARACTER TABLE BR548700 * BR548800 Z0 OCT &000000000074 BR548900 OCT &010201020102 BR549000 OCT &007400000000 BR549100 Z1 OCT &000000000000 BR549200 OCT &004201760002 BR549300 OCT &000000000000 BR549400 Z2 OCT &000000000046 BR549500 OCT &011201120112 BR549600 OCT &006200000000 BR549700 Z3 OCT &000000000044 BR549800 OCT &010201120112 BR549900 OCT &006400000000 BR550000 Z4 OCT &000000000070 BR550100 OCT &001000100176 BR550200 OCT &001000000000 BR550300 Z5 OCT &000000000164 BR550400 OCT &012201220122 BR550500 OCT &011400000000 BR550600 Z6 OCT &000000000034 BR550700 OCT &005201120112 BR550800 OCT &000400000000 BR550900 Z7 OCT &000000000100 BR551000 OCT &010001160120 BR551100 OCT &014000000000 BR551200 Z8 OCT &000000000064 BR551300 OCT &011201120112 BR551400 OCT &006400000000 BR551500 Z9 OCT &000000000060 BR551600 OCT &011201120112 BR551700 OCT &007400000000 BR551800 ZSL OCT &000200040000 BR551900 OCT &001000000020 BR552000 OCT &000000400100 BR552100 ZDASH OCT &000000000020 BR552200 OCT &002000200020 BR552300 OCT &000000000000 BR552400 ZA OCT &000000000036 BR552500 OCT &005001100050 BR552600 OCT &003600000000 BR552700 ZB OCT &000000000102 BR552800 OCT &017601120112 BR552900 OCT &006400000000 BR553000 ZC OCT &000000000074 BR553100 OCT &010201020102 BR553200 OCT &004400000000 BR553300 ZD OCT &000000000102 BR553400 OCT &017601020102 BR553500 OCT &007400000000 BR553600 ZE OCT &000000000176 BR553700 OCT &011201120102 BR553800 OCT &010200020000 BR553900 ZF OCT &000000000176 BR554000 OCT &011001100100 BR554100 OCT &010000000000 BR554200 ZG OCT &000000000074 BR554300 OCT &010201020112 BR554400 OCT &005600000000 BR554500 ZH OCT &000000000176 BR554600 OCT &001000100010 BR554700 OCT &017600000000 BR554800 ZI OCT &000000000000 BR554900 OCT &010201760102 BR555000 OCT &000000000000 BR555100 ZJ OCT &000000000004 BR555200 OCT &000200020002 BR555300 OCT &017400000000 BR555400 ZK OCT &000000000176 BR555500 OCT &001000200044 BR555600 OCT &010200000000 BR555700 ZL OCT &000000000176 BR555800 OCT &000200020002 BR555900 OCT &000200000000 BR556000 ZM OCT &000000000176 BR556100 OCT &004000300040 BR556200 OCT &017600000000 BR556300 ZN OCT &000000000176 BR556400 OCT &004000200010 BR556500 OCT &017600000000 BR556600 ZO OCT &000000000074 BR556700 OCT &010201020102 BR556800 OCT &007400000000 BR556900 ZP OCT &000000000176 BR557000 OCT &011001100110 BR557100 OCT &006000000000 BR557200 ZQ OCT &000000000074 BR557300 OCT &010201020104 BR557400 OCT &007200000000 BR557500 ZR OCT &000000000176 BR557600 OCT &011001100114 BR557700 OCT &006200000000 BR557800 ZS OCT &000000000044 BR557900 OCT &012201120102 BR558000 OCT &004400000000 BR558100 ZT OCT &000000000100 BR558200 OCT &010001760100 BR558300 OCT &010000000000 BR558400 ZU OCT &000000000174 BR558500 OCT &000200020002 BR558600 OCT &017400000000 BR558700 ZV OCT &000000000170 BR558800 OCT &000400020004 BR558900 OCT &017000000000 BR559000 ZW OCT &000000000176 BR559100 OCT &000400100004 BR559200 OCT &017600000000 BR559300 ZBL OCT &000000000000 BR559400 OCT &000000000000 BR559500 OCT &000000000000 BR559600 ZX OCT &000000000146 BR559700 OCT &002000100020 BR559800 OCT &014600000000 BR559900 ZY OCT &000000000140 BR560000 OCT &002000160020 BR560100 OCT &014000000000 BR560200 ZZ OCT &000000000106 BR560300 OCT &010201120122 BR560400 OCT &014200000000 BR560500 ZDOT OCT &000000000000 BR560600 OCT &000000020000 BR560700 OCT &000000000000 BR560800 ZPLUS OCT &000000000000 BR560900 OCT &002000700020 BR561000 OCT &000000000000 BR561100 ZEQU OCT &000000000000 BR561200 OCT &002400240024 BR561300 OCT &000000000000 BR561400 ZAP OCT &000000000000 BR561500 OCT &000001600000 BR561600 OCT &000000000000 BR561700 * BR561800 EJECT BR561900 G HED 4BBR562000 * 4BBR562100 * THE FOLLOWING SECTION IS USED WHEN 4BBR562200 * CIRCLE INTERPOLATION IS CALLED FOR AND IS 4BBR562300 * AVAILABLE FOR THE SPECIFIED MACHINE 4BBR562400 * TOOL.CIRCLE ACCEPTANCE TESTS ARE MADE. 4BBR562500 * IF A TEST IS FAILED,THE CIRCLE WILL BE 4BBR562600 * PROCESSED UNDER LINEAR INTERPOLATION.IF ALL 4BBR562700 * TESTS ARE PASSED, THE CIRCLE DATA WILL 4BBR562800 * BE ARRANGED IN THE STANDARD INPUT FORMATS 4BBR562900 * OF TYPE 4,5, AND 6 EXPLAINED IN THE 4BBR563000 * COMPUTER PROGRAMMERS MANUAL FOR CIRCLE 4BBR563100 * INTERPOLATION 4BBR563200 * 4BBR563300 IGNA NZT CIRINT 4BBR563400 TRA IGNOR NO CIRCLE INTERPOLATION 4BBR563500 CLA BUF1&2 TEST FOR 4BBR563600 SUB #2B17 DRIVE SURFACE CODE 4BBR563700 TNZ IGNOR NOT A DRIVE SURFACE 4BBR563800 CLA BUF1&4 TEST FOR 4BBR563900 SUB #4B17 CIRCLE CODE 4BBR564000 TNZ IGNOR 4BBR564100 CLA ONE TURN ON SWITCH 4BBR564200 STO CIRSW TURN ON CIRCLE SWITCH 4BBR564300 CLA BUF1&8 X CENTER OF CIRCLE 4BBR564400 STO XC X CENTER 4BBR564500 CLA BUF1&9 Y CENTER OF CIRCLE 4BBR564600 STO YC Y CENTER 4BBR564700 CLA BUF1&6 SAVE 4BBR564800 STO CRNAM CIRCLE NAME 4BBR564900 TRA RLOOP 4BBR565000 TYP3N NZT CIRINT 4BBR565100 TRA GOTO NO CIRCLE INTERPOLATION 4BBR565200 CLA CIRSW IS THIS DATA A 4BBR565300 TNZ SWCIR CIRCLE 4BBR565400 STZ CONSW NO-INITIALIZE CIRCLE SWITCH 4BBR565500 TRA GOTO 4BBR565600 SWCIR STZ CIRSW 4BBR565700 CLA ONE 4BBR565800 STO CONSW SET CONTINUE SWITCH 4BBR565900 NFL TSX TESTR,4 MAKE CIRCLE INTERPOL. ACCEPTANCE TESTS 4BBR566000 TRA NGON ACCEPTABLE 4BBR566100 STZ CIRSW NOT ACCEPTABLE 4BBR566200 STZ CONSW 4BBR566300 TRA GOTO 4BBR566400 TYP3O NZT CIRINT 4BBR566500 TRA GOTO 4BBR566600 NZT CONSW CONTINUE SWITCH 4BBR566700 TRA GOTO ZERO 4BBR566800 TRA NFL PROCESS CIRCLE CONTINUATION POINTS 4BBR566900 * SECTION TO SEE IF CTEMP HAS BEEN EMPTIED 4BBR567000 NGON CLA PLANE 4BBR567100 CAS #2.0 4BBR567200 TRA NGXZ XZ PLANE HERE 4BBR567300 TRA NGYZ YZ PLANE HERE 4BBR567400 CLA TRNS XY PLANE HERE 4BBR567500 STO T&17 4BBR567600 CLA TRNS&1 SET UP TRANS VALUES 4BBR567700 STO T&18 FOR APPROPRIATE VARIABLES 4BBR567800 CLA TRNS&2 Z 4BBR567900 STO T&19 4BBR568000 TRCEN AXC CTEMP,1 4BBR568100 CLA 5,1 4BBR568200 FAD T&17 TRANSLATE CENTER OF 4BBR568300 STO 5,1 CIRCLE BY TRANS VALUES 4BBR568400 CLA 6,1 4BBR568500 FAD T&18 4BBR568600 STO 6,1 4BBR568700 FORM5 AXT 7,4 TRANSFER DATA FROM 4BBR568800 CLA 0,1 CTEMP INTO FORMAT 4BBR568900 STO BLOK&7,4 FOR CIRCLE INTERPOLATION 4BBR569000 TXI *&1,1,-1 AS OUTPUT FROM 4BBR569100 TIX *-3,4,1 THE G$READ ELEMENT 4BBR569200 SXA MTRE,1 SAVE INDEX REGISTER 1 4BBR569300 TRA ALDON MAKE FINAL EXIT TEST 4BBR569400 MTON STO BF1CT 4BBR569500 AXT CBAC,4 STORE TO TRANSFER 4BBR569600 SXA MORE,4 ALL OF CTEMP TO 4BBR569700 TRA MT EMPTY BLOK 4BBR569800 CBAC AXT 3,4 BLAH TO OUTPUT REGION 4BBR569900 MTRE AXT **,1 RESTORE IR 1 4BBR570000 TRVAL CLA 1,1 XB 4BBR570100 FAD T&20,4 T&17 X TRANS VALUE 4BBR570200 TRA BEGR ROUND BEGINNING POINTS 4BBR570300 TRVN CLA 4,1 XE 4BBR570400 FAD T&20,4 X TRANS VALUE 4BBR570500 TRA ENDR ROUND ENDING POINTS 4BBR570600 NVTR TXI *&1,1,-1 TRANSLATE BEGINNING POINT 4BBR570700 TIX TRVAL,4,1 AND ENDING POINTS 4BBR570800 TXI FORM5,1,3 RESTORE IR1 4BBR570900 BEGR SXA TRV4,4 ROUND THE XB, YB, ZB 4BBR571000 XCA COORDINATES-TRANSLATED 4BBR571100 TSX D$RN4,4 TO 4 DECIMAL PLACES 4BBR571200 STQ 1,1 4BBR571300 TRV4 AXT **,4 4BBR571400 TRA TRVN 4BBR571500 ENDR SXA TRV2,4 ROUND THE XE, YE, ZE 4BBR571600 XCA COORDINATES TRANSLATED 4BBR571700 TSX D$RN4,4 TO 4 DECIMAL PLACES 4BBR571800 STQ 4,1 4BBR571900 TRV2 AXT **,4 4BBR572000 TRA NVTR 4BBR572100 ALDON CLA -7,1 4BBR572200 SUB #6.0 4BBR572300 TZE PNT1 LAST DATA FROM CTEMP REGION 4BBR572400 CLA ONE 4BBR572500 TRA MTON 4BBR572600 PNT1 STZ BF1CT 4BBR572700 TRA MT 4BBR572800 NGXZ CLA TRNS X 4BBR572900 STO T&17 4BBR573000 CLA TRNS&2 Z 4BBR573100 STO T&18 4BBR573200 CLA TRNS&1 4BBR573300 STO T&19 Y 4BBR573400 TRA TRCEN 4BBR573500 NGYZ CLA TRNS&1 Y 4BBR573600 STO T&17 4BBR573700 CLA TRNS&2 Z 4BBR573800 STO T&18 4BBR573900 CLA TRNS X 4BBR574000 STO T&19 4BBR574100 TRA TRCEN 4BBR574200 * ACCEPTANCE TESTS FOR CIRCULAR INTERPOLATION 4BBR574300 TESTR SXA NODO,1 4BBR574400 SXA N2,2 4BBR574500 SXA N4,4 4BBR574600 * MAKE TEST FOR MINIMUM NUMBER OF WORDS 4BBR574700 TESA CLA NWPR WORDS EQUAL POINTS TIME 3 4BBR574800 SUB #4B17 4BBR574900 ARS 18 4BBR575000 LDQ MNWRD MINIMUM NUMBER OF WORDS 4BBR575100 TLQ TESB ENOUGH POINTS 4BBR575200 CLA CRNAM 4BBR575300 STO TAS 4BBR575400 TSX PRNTOF,4 PRINT DIAGNOSTIC FOR 4BBR575500 PZE 8,1 TOO FEW POINTS 4BBR575600 TXH TACM,2,11 4BBR575700 * EXIT AND REJECT CIRCLE INTERPOLATION 4BBR575800 NODO AXT **,1 MODE FOR THIS CIRCLE 4BBR575900 N2 AXT **,2 4BBR576000 N4 AXT **,4 4BBR576100 TRA 2,4 4BBR576200 * SELECT PLANE AND MAKE TEST TO SEE IF 4BBR576300 TESB STZ PLANE THE PLANE IS ACCEPTABLE 4BBR576400 AXC BUF1&4,1 4BBR576500 CLA 3,1 Z1-Z2 4BBR576600 FSB 6,1 4BBR576700 SSM 4BBR576800 FAD CTOL 4BBR576900 TMI TESY DIFFERENT Z S 4BBR577000 CLA 6,1 Z1 # Z2 4BBR577100 FSB 9,1 4BBR577200 SSM 4BBR577300 FAD CTOL 4BBR577400 TMI TESY 4BBR577500 CLA XYPLAN Z1 # Z2 # Z3, XY PLANE HERE 4BBR577600 TZE TBCM PRINT PLANE NOT AVAILABLE COMMENT 4BBR577700 CLA #1.0 4BBR577800 RTYZ STO PLANE 1 # XY-PLANE 4BBR577900 TRA TESC TO NEXT TEST 4BBR578000 TESY CLA 2,1 4BBR578100 FSB 5,1 4BBR578200 SSM 4BBR578300 FAD CTOL 4BBR578400 TMI TESX DIFFERENT Y S 4BBR578500 CLA 5,1 Y1 # Y2 4BBR578600 FSB 8,1 4BBR578700 SSM 4BBR578800 FAD CTOL 4BBR578900 TMI TESX 4BBR579000 CLA ZXPLAN Y1 # Y2 # Y3 ZX PLANE 4BBR579100 TZE TBCM PRINT PLANE NOT AVAILABLE COMMENT 4BBR579200 CLA #3.0 3 # ZX-PLANE 4BBR579300 TRA RTYZ 4BBR579400 TESX CLA 1,1 4BBR579500 FSB 4,1 4BBR579600 SSM 4BBR579700 FAD CTOL 4BBR579800 TMI TESB1 CANTED PLANE DIAGNOSTIC 4BBR579900 CLA 4,1 X1 # X2 4BBR580000 FSB 7,1 4BBR580100 SSM 4BBR580200 FAD CTOL 4BBR580300 TMI TESB1 4BBR580400 CLA #2.0 2 # YZ-PLANE 4BBR580500 TRA RTYZ 4BBR580600 TBCM CLA CRNAM 4BBR580700 STO CMB&10 4BBR580800 TSX PRNTOF,4 PRINT PLANE NOT 4BBR580900 PZE 8,1 AVAILABLE COMMENT 4BBR581000 TXH CMB,2,15 4BBR581100 TRA NODO 4BBR581200 TESB1 CLA CRNAM 4BBR581300 STO CMB1&10 4BBR581400 TSX PRNTOF,4 PRINT CANTED PLANE 4BBR581500 PZE 8,1 DIAGNOSTIC 4BBR581600 TXH CMB1,2,11 4BBR581700 TRA NODO 4BBR581800 * SECTION TO CALCULATE AND TEST RADIUS 4BBR581900 TESC CLA PLANE 4BBR582000 CAS #2.0 4BBR582100 TRA PZX ZX PLANE HERE 4BBR582200 TRA PYZ YZ PLANE HERE 4BBR582300 TZE TBCM XY-PLANE OR ILLEGAL HERE 4BBR582400 AXC BUF1&5,1 LOAD UP X 4BBR582500 AXC BUF1&6,2 Y 4BBR582600 AXC BUF1&7,4 CONSTAND 4BBR582700 TRA TESRA 4BBR582800 PZX AXC BUF1&5,1 X 4BBR582900 AXC BUF1&7,2 Z 4BBR583000 AXC BUF1&6,4 CONSTANT 4BBR583100 TC4 TXL TESRA ADDRESS SAVED IN DECREMENT 4BBR583200 PYZ AXC BUF1&6,1 Y 4BBR583300 AXC BUF1&7,2 Z 4BBR583400 AXC BUF1&5,4 CONSTNAT 4BBR583500 TESRA SXD T,1 SAVE ADDRESS FIRST VARIABLE 4BBR583600 SXD T&1,2 SAVE ADDRESS SECOND VARIABLE 4BBR583700 SXD TC4,4 SAVE ADDRESS OF CONSTANT TERM 4BBR583800 CLA 0,4 4BBR583900 STO KONS SAVE CONSTANT CIRCLE VALUE 4BBR584000 AXT 2,1 4BBR584100 LDQ XC&2,1 ROUND XC, YC 4BBR584200 TSX D$RN4,4 TO NEAREST 4 DECIMAL 4BBR584300 STQ XC&2,1 PLACES 4BBR584400 TIX *-3,1,1 PLACES 4BBR584500 AXT 3,1 4BBR584600 LDQ BUF1&8,1 ROUND XB,YB,ZB 4BBR584700 TSX D$RN4,4 TO NEAREST 4 4BBR584800 STQ BUF1&8,1 DECIMAL PLACES 4BBR584900 TIX *-3,1,1 4BBR585000 LXD T,1 RESTORE VARIABLE 4BBR585100 LXD T&1,2 ADDRESSES 4BBR585200 CLA 0,1 4BBR585300 FSB XC 4BBR585400 STO T&2 4BBR585500 LDQ T&2 4BBR585600 FMP T&2 4BBR585700 STO T&3 %XB-XC) ** 2 4BBR585800 CLA 0,2 4BBR585900 FSB YC 4BBR586000 STO T&4 4BBR586100 LDQ T&4 4BBR586200 FMP T&4 %YB-YC) ** 2 4BBR586300 FAD T&3 RADIUS SQUARED 4BBR586400 STO RADSQ 4BBR586500 TSX SQROOT,4 4BBR586600 TRA D$VER ERROR RETURN 4BBR586700 CAS MNRAD RADIUS IN AC 4BBR586800 TRA LRAD LARGER THAN MINIMUM RADIUS 4BBR586900 TRA OKRAD EQUAL TO 4BBR587000 CLA CRNAM LESS THAN MINIMUM 4BBR587100 STO CMC&3 RADIUS 4BBR587200 TSX PRNTOF,4 PRINT RADIUS TOO 4BBR587300 PZE 8,1 SMALL COMMENT 4BBR587400 TXH CMC,2,14 4BBR587500 TRA NODO USE LINEAR INTERPOLATION 4BBR587600 LRAD CAS MXRAD 4BBR587700 TRA TLRAD 4BBR587800 OKRAD TRA *&1 4BBR587900 STO RADI SAVE RADIUS 4BBR588000 TRA TESD NEXT SECTION TO CALCULATE DIRECTION 4BBR588100 TLRAD CLA CRNAM 4BBR588200 STO CMD&7 4BBR588300 TSX PRNTOF,4 PRINT COMMENT FOR 4BBR588400 PZE 8,1 TOO LARGE RADIUS 4BBR588500 TXH CMD,2,14 4BBR588600 TRA NODO 4BBR588700 * SECTION TO CALCULATE DIRECTION OF CIRCLE 4BBR588800 TESD CLA 3,1 4BBR588900 FSB 0,1 4BBR589000 STO T&5 X2-X1 4BBR589100 CLA 6,2 4BBR589200 FSB 0,2 4BBR589300 STO T&6 Y3-Y1 4BBR589400 CLA 6,1 4BBR589500 FSB 0,1 4BBR589600 STO T&7 X3-X1 4BBR589700 CLA 3,2 4BBR589800 FSB 0,2 4BBR589900 STO T&8 Y2-Y1 4BBR590000 LDQ T&7 4BBR590100 FMP T&8 4BBR590200 STO T&9 %X3-X1) %Y2-Y1) 4BBR590300 LDQ T&5 4BBR590400 FMP T&6 4BBR590500 FSB T&9 %X2-X1) %Y3-Y1)-%X3-X1) %Y2-Y1) 4BBR590600 TPL DCCLW COUNTER-CLOCKWISE DIRECTION 4BBR590700 CLA #-1.0 CODE FOR CLOCKWISE DIRECTION 4BBR590800 STO DIR -1 IS CLOCKWISE 4BBR590900 TRA TESE NEXT TEST 4BBR591000 DCCLW CLA #1.0 4BBR591100 STO DIR 1 IS COUNTER-CLOCKWISE 4BBR591200 * SECTION TO CHECK FEEDRATES AND FIND 4BBR591300 * QUADRANT CROSSOVERS. ALSO TO SET UP INPUT 4BBR591400 * FORMAT FOR CIRCLE INTERPOLATION IF ACCEPTED 4BBR591500 TESE CLA FEDRT 4BBR591600 TZE TESM 4BBR591700 SVRAT STO CRATE CIRCLE INITIAL FEEDRATE 4BBR591800 CAS MAXCI MAXIMUM CIRCLE INTERPOLATION RATE 4BBR591900 TRA NODO USE LINEAR INTERPOLATION 4BBR592000 TRA *&1 4BBR592100 CLA RADI BR592105 LDQ D$DLSIZ BR592110 TLQ BGRAD BR592115 CLA #1.0 BR592120 SFAC STO KFAC BR592125 LDQ RADI 4BBR592200 FMP D$D999 MAXIMUM FEED NUMBER BR592300 FDP KFAC FEED NUMBER FORMULA CONSTANT 4BBR592400 CLA CRATE 4BBR592500 TLQ RERAT REPLACE WITH MAXIMUM 4BBR592600 LDQ RADI RATE FOR THIS RADIUS 4BBR592700 FMP MNFN TEST FOR SMALLEST RATE 4BBR592800 FDP KFAC ALLOWED FOR THIS RADIUS 4BBR592900 CLA CRATE 4BBR593000 TLQ TESF CRATE CANNOT BE LESS THAN MQ 4BBR593100 STQ CRATE REPLACE WITH LOWEST ALLOWED RATE 4BBR593200 TRA TESF 4BBR593300 BGRAD CLA #10.0 BR593310 TRA SFAC BR593320 RERAT STQ CRATE REPLACE WITH HIGHEST ALLOWED 4BBR593400 TRA TESF FEED RATE 4BBR593500 TESM TSX PRNTOF,4 4BBR593600 PZE 8,1 4BBR593700 TXH TM,2,9 4BBR593800 CLA MODRT 4BBR593900 TRA SVRAT 4BBR594000 * SECTION TO CHECK FOR CROSSOVERS 4BBR594100 TESF AXC CTEMP,4 TEMPORARY BUFFER 4BBR594200 CLA #4.0 4BBR594300 STO 0,4 SET UP BEGINNING 4BBR594400 CLA PLANE FORMAT FOR CIRCULAR 4BBR594500 STO 2,4 INTERPOLATION 4BBR594600 CLA DIR 4BBR594700 STO 3,4 N # 4.0, FR, PLANE, DIR, RADI, XC, YC 4BBR594800 CLA RADI 4BBR594900 STO 4,4 STORE FEED RATE 4BBR595000 CLA XC LATER 4BBR595100 STO 5,4 4BBR595200 CLA YC 4BBR595300 STO 6,4 4BBR595400 TXI *&1,4,-7 4BBR595500 SXD RT4,4 SAVE CURRENT CTEMP ADDRESS 4BBR595600 CLA 0,1 4BBR595700 STO 1,4 4BBR595800 CLA 0,2 4BBR595900 STO 2,4 4BBR596000 CLA KONS , XB, YB, ZB, , , 4BBR596100 STO 3,4 4BBR596200 LOKON CLA NWPR NUMBER OF WORDS 4BBR596300 SUB #5B17 OF POINT 4BBR596400 ARS 18 4BBR596500 STO BCNT COUNTER 4BBR596600 ONFO CLA 0,1 4BBR596700 FSB XC TRANSLATE CENTER OF CIRCLE 4BBR596800 STO T&10 4BBR596900 CLA 3,1 TWO SUCCESSIVE XS 4BBR597000 FSB XC 4BBR597100 STO T&11 4BBR597200 LDQ T&10 TEST FOR QUADRANT 4BBR597300 FMP T&11 CROSSOVERS 4BBR597400 TZE *&1 4BBR597500 TMI YCROS Y AXIS CROSSOVER 4BBR597600 CLA 0,2 NO Y AXIS CROSSOVER 4BBR597700 FSB YC 4BBR597800 STO T&10 4BBR597900 CLA 3,2 TEST FOR X AXIS 4BBR598000 FSB YC CROSSOVER 4BBR598100 STO T&11 4BBR598200 LDQ T&10 4BBR598300 FMP T&11 4BBR598400 TZE *&1 4BBR598500 TMI XCROS 4BBR598600 BHOM TXI *&1,1,-3 NO X AXIS CROSSOVER 4BBR598700 TXI *&1,2,-3 4BBR598800 CLA BCNT CHECK COUNTER 4BBR598900 SUB #3 4BBR599000 CAS #6 4BBR599100 TRA RLOK 4BBR599200 TRA *&2 4BBR599300 RT4 TXL NODO ERROR IN LOGIC 4BBR599400 LXD RT4,4 4BBR599500 CLA #5.0 4BBR599600 STO 0,4 4BBR599700 CLA 0,1 4BBR599800 STO 4,4 5, XB YB ZB XE YE ZE 4BBR599900 STO 8,4 4BBR600000 CLA 0,2 4BBR600100 STO 5,4 4BBR600200 STO 9,4 4BBR600300 CLA KONS 4BBR600400 STO 6,4 4BBR600500 STO 10,4 4BBR600600 CLA #6.0 4BBR600700 STO 7,4 4BBR600800 CLA 3,1 4BBR600900 STO 11,4 4BBR601000 CLA 3,2 4BBR601100 STO 12,4 4BBR601200 CLA KONS 4BBR601300 STO 13,4 4BBR601400 TRA TESH NEXT TEST 4BBR601500 YCROS LXD RT4,4 4BBR601600 CLA XC 4BBR601700 STO 4,4 4BBR601800 STO 8,4 4BBR601900 CLA 0,2 STORE XE, YE, ZE 4BBR602000 FSB YC POINTS FOR 4BBR602100 XCA Y AXIS REVERSAL 4BBR602200 CLA RADI 4BBR602300 LLS 0 CROSSOVER 4BBR602400 FAD YC 4BBR602500 STO 5,4 4BBR602600 STO 9,4 4BBR602700 CRSOT CLA KONS 4BBR602800 STO 6,4 4BBR602900 STO 10,4 4BBR603000 CLA #5.0 4BBR603100 STO 0,4 4BBR603200 TXI *&1,4,-7 4BBR603300 SXD RT4,4 4BBR603400 TRA BHOM 4BBR603500 RLOK STO BCNT 4BBR603600 TRA ONFO 4BBR603700 XCROS LXD RT4,4 X AXIS CROSSOVER 4BBR603800 CLA YC 4BBR603900 STO 5,4 4BBR604000 STO 9,4 SET UP FORMAT 4BBR604100 CLA 0,1 IN CTEMP REGION FOR 4BBR604200 FSB XC X AXIS REVERSAL 4BBR604300 XCA 4BBR604400 CLA RADI 4BBR604500 LLS 0 4BBR604600 FAD XC 4BBR604700 STO 4,4 4BBR604800 STO 8,4 4BBR604900 TRA CRSOT 4BBR605000 * SECTION TO CALCULATE SAMPLE ARC LENGTHS 4BBR605100 * AND CHECK FEED RATE RESTRICTIONS 4BBR605200 TESH AXC CTEMP&7,1 BEGINNING OF CODE 5 IN CTEMP 4BBR605300 TLOK CLA 4,1 4BBR605400 FSB 1,1 XE-XB 4BBR605500 STO T&12 4BBR605600 XCA 4BBR605700 FMP T&12 4BBR605800 STO T&12 %XE-XB)**2 4BBR605900 CLA 5,1 4BBR606000 FSB 2,1 4BBR606100 STO T&13 4BBR606200 XCA 4BBR606300 FMP T&13 4BBR606400 FAD T&12 %YE-YB)**2&%XE-XB)**2 4BBR606500 STO T&14 SAVE CHORD LENGTH SQUARED 4BBR606600 TSX SQROOT,4 4BBR606700 TRA D$VER SQUARE ROOT ERROR EXIT 4BBR606800 STO T&15 SAVE CHORD LENGTH 4BBR606900 CLA 0,1 CODE TYPE 5 OR 6 4BBR607000 SUB #6.0 4BBR607100 TZE ENCRD ENDING CHORD 4BBR607200 CLA T&14 INTERMEDIATE ARC SPANS 4BBR607300 FDP RADSQ CALCULATE ARC LENGTH 4BBR607400 FMP T&15 APPROXIMATION 4BBR607500 FDP #24.0 4BBR607600 XCA 4BBR607700 FAD T&15 4BBR607800 STO T&16 ARC LENGTH THIS SPAN 4BBR607900 FDP CIMINT MINIMUM TIME FOR CIRCLE INTERPOLATION 4BBR608000 CLA CRATE PRESENT FEED RATE 4BBR608100 TLQ PCMH IGNORE TOO SHORT DISTANCES 4BBR608200 TXI TLOK,1,-7 THIS SPAN OK 4BBR608300 ENCRD CLA T&15 LAST CHORD LENGTH 4BBR608400 FDP CIMINT 4BBR608500 CLA CRATE 4BBR608600 TLQ PCMH 4BBR608700 CLA CRATE ALL TEST CONDITIONS HAVE BEEN 4BBR608800 STO CTEMP&1 MET AND PASSED NOW. 4BBR608900 * FINAL ACCEPTANCE EXIT 4BBR609000 LXA NODO,1 4BBR609100 LXA N2,2 4BBR609200 LXA N4,4 4BBR609300 TRA 1,4 4BBR609400 PCMH CLA CRNAM 4BBR609500 STO CMH 4BBR609600 TSX PRNTOF,4 4BBR609700 PZE 8,1 4BBR609800 TXH CMH,2,13 4BBR609900 TRA NODO 4BBR610000 CMH BCI 8, ARCS TOO SHORT TO ATTAIN DESIRED FEED RAT 4BBR610100 BCI 5,E, LINEAR INTERPOLATION USED 4BBR610200 * COMMENT TABLE FOR CIRCULAR INTERPOLATION 4BBR610300 TACM BCI 7,CIRCLE INTERPOLATION IGNORED FOR CIRCLE 4BBR610400 TAS BCI 4, , TOO FEW POINTS 4BBR610500 CMB BCI 8,CIRCLE INTERPOLATION NOT AVAILABLE FOR PLANE 4BBR610600 BCI 7,OF CIRCLE FOR THIS CONTROL UNIT 4BBR610700 CMB1 BCI 7,CIRCLE INTERPOLATION IMPOSSIBLE IN CANTED 4BBR610800 BCI 4,PLANE OF CIRCLE 4BBR610900 CMC BCI 7,RADIUS OF CIRCLE TOO SMALL TO USE 4BBR611000 BCI 7,FOR CIRCULAR INTERPOLATION. SEE G$MNRAD 4BBR611100 CMD BCI 7,RADIUS TOO LARGE FOR CIRCLE INTERPOLATION 4BBR611200 BCI 7, PROCESSED BY LINEAR INTERPOLATION 4BBR611300 TM BCI 4,NO FEED RATE SPECIFIED, 4BBR611400 BCI 5,MODAL CIRCLE RATE SUBSTITUTED 4BBR611500 * 4BBR611600 * CIRCLE INTERPOLATION PARAMETER TABLE 4BBR611700 MNWRD PZE 18 MINIMUM NUMBER OF WORDS OR PTS/3 4BBR611800 CTOL DEC .0001 COMPUTER TOLERANCE 4BBR611900 MNRAD DEC 0.1 MINIMUM CIRCLE INTERPOLATION RADIUS BR612000 MXRAD DEC 9.999 MAXIMUM RADIUS BR612100 MAXCI DEC 40.0 MAXIMUM FEEDRATE FOR CIRCLE INTERPOLATION4BBR612200 MNFN DEC 1.0 MINIMUM FEED NUMBER 4BBR612400 KFAC DEC 0.0 FEED NUMBER FORMULA CONSTANT 1 OR 10 BR612500 MODRT DEC 20.0 MODAL CIRCLE INTERPOLATION RATE 4BBR612600 CSTEP DEC 10.0 ALLOWABLE CIRCLE RATE DIFFERENTIAL BR612610 * 4BBR612700 * SYMBOLIC CONSTANTS USED WITH CIRCLE INTERPOLATION 4BBR612800 ONE DEC 1 CONSTANT 4BBR612900 * 4BBR613000 * SYMBOLIC LOCATIONS FOR CIRCLE INTERPOLATION 4BBR613100 CIBEG PZE *&1 ERASABLE STORAGE BEGINNING INDEX 4BBR613200 CIRSW PZE 0 4BBR613300 CONSW PZE 0 4BBR613400 CRNAM BCI 1, CIRCLE NAME 4BBR613500 XC PZE 0 4BBR613600 YC PZE 0 4BBR613700 ZC PZE 0 4BBR613800 XB PZE 0 4BBR613900 YB PZE 0 4BBR614000 ZB PZE 0 4BBR614100 XE PZE 0 4BBR614200 YE PZE 0 4BBR614300 ZE PZE 0 4BBR614400 PLANE PZE 0 1 # XY PLANE 2 # YZ PLANE 3 # ZX PLANE 4BBR614500 DIR PZE 0 4BBR614600 RADI PZE 0 4BBR614700 KONS PZE 0 RESERVED FOR CONSTANT VALUES OF CIRCLE 4BBR614800 RADSQ PZE 0 LOCATION FOR RADIUS SQUARED 4BBR614900 CRATE PZE 0 STORAGE FOR CIRCLE FEEDRATE 4BBR615000 BCNT PZE 0 WORD COUNTER FOR BUF 1 4BBR615100 T BSS 20 TEMPORARY STORAGE 4BBR615200 CTEMP BSS 336 STORAGE FOR CIRCLE DATA 4BBR615300 CIEND PZE * ERASABLE STORAGE ENDING INDEX 4BBR615400 EJECT 2BBR615500 * FOLLOWING IS THE READ ELEMENT OF 2BBR615600 * THE POST PROCESSOR.THIS ELEMENT READS 2BBR615700 * THE APT CLTAPE,REJECTS OR ACCEPTS THE 2BBR615800 * TAPE INFORMATION,AND ARRANGES ACCEPTABLE 2BBR615900 * DATA IN A STANDARD INPUT FORMAT 2BBR616000 * TO THE CONTROL ELEMENT OF THE 2BBR616100 * POST PROCESSOR. 2BBR616200 * 2BBR616300 READ SXA EXIT,4 2BBR616400 SXA EXIT&1,1 2BBR616500 SXA EXIT&2,2 2BBR616600 SXA SETUP,4 2BBR616700 SXA MT,4 2BBR616800 SXA DONE,4 2BBR616900 SXA ERREX,4 2BBR617000 CLA BF1CT DATA TO PROCESS BEFORE CL READ 2BBR617100 MORE TNZ ** YES, TRANSFER ADDRESS IS STUFFED 2BBR617200 * 2BBR617300 * THIS SECTION READS ONE CLTAPE RECORD INTO 2BBR617400 * THE %BUF1) REGION, CHECKS FOR READ ERRORS, 2BBR617500 * AND END OF FILE, INTERPRETS THE RECORD 2BBR617600 * TYPE, AND CONTROLS TRANSFERS TO THE 2BBR617700 * APPROPRIATE SUB-SECTIONS. 2BBR617800 * 2BBR617900 RLOOP CLA 1B17 2BBR618000 STO INVERT 2BBR618100 CALL TAPERD,CLTAPE,REVAR,NWPR,1B17,BUF1,ZERO 2BBR618200 CLA REVAR 2BBR618300 TZE DONE END OF FILE 2BBR618400 TPL CLTER CLTAPE READ ERROR 2BBR618500 TSX D$GDMP,4 DUMP, IF DESIRED 2BBR618600 AXT 0,1 2BBR618700 CLA BUF1&1 2BBR618800 SUB POCOD 0,0,5000 2BBR618900 TZE POSN RECORD IS MOTION 2BBR619000 CLA BUF1&1 TEST FOR TYPE 1000 4BBR619100 SUB INCOD INPUT STATEMENT 4BBR619200 TZE RLOOP LEAVE CIRCLE SWITCHES ALONE 4BBR619300 CLA BUF1&1 TYPE 0,0,3000 4BBR619400 SUB SURFC IS THIS SURFACE DATA 4BBR619500 TZE IGNA YES,CHECK FOR CIRCLE 4BBR619600 STZ CIRSW INITIALIZE FLAGS USED FOR 4BBR619700 STZ CONSW CIRCLE INTERPOLATION 4BBR619800 CLA BUF1&1 MAJOR TYPE CODE 2BBR619900 SUB AXCOD 0,0,2000 %DECIMAL) 2BBR620000 TZE AUXFN RECORD IS AUXILIARY STATEMENT 2BBR620100 CLA BUF1&1 2BBR620200 SUB ARLCD 0,0,9000 2BBR620300 TZE ARLMP RECORD IS ARELEM PARAMETER 2BBR620400 CLA BUF1&1 2BBR620500 SUB FINCD 2BBR620600 TZE DONE 2BBR620700 TRA RLOOP READ NEXT CLTAPE RECORD 4BBR620800 IGNOR STZ CIRSW TURN CIRCLE SWITCH OFF 4BBR620900 STZ CONSW TURN OFF CIRCLE CONTINUE SWITCH 4BBR621000 TRA RLOOP READ NEXT CLTAPE RECORD 4BBR621100 FINCD PZE 0,0,14000 CODE FOR FINI 2BBR621200 * 2BBR621300 * THIS SECTION INTERPRETS AUXILIARY STATEMENTS 2BBR621400 * 2BBR621500 AUXFN CLA BUF1&2 AUX. STATEMENT TYPE CODE 2BBR621600 CAS 1TB17 0,0,1000 2BBR621700 TRA AXF2 CODE GREATER THAN 1000 2BBR621800 NOP 2BBR621900 LOKX1 CAS AUXTP,1 CODE LESS THAN 1000 2BBR622000 TRA *&2 2BBR622100 TRA XTRA,1 FOUND, TAKE TRANSFER FROM TABLE 2BBR622200 TXI *&1,1,-1 2BBR622300 XCNT TXL RLOOP,1,-XOUT&AUXTP NOT IN TABLE 2BBR622400 TRA LOKX1 KEEP LOOKING 2BBR622500 * 2BBR622600 AXF2 CAS DPRAM,1 CODE GREATER THAN 1000 2BBR622700 TRA *&2 2BBR622800 TRA DPTRA,1 2BBR622900 TXI *&1,1,-1 2BBR623000 DPCNT TXL RLOOP,1,-DPOUT&DPRAM NOT IN TABLE 2BBR623100 TRA AXF2 2BBR623200 * 2BBR623300 POSN CLA BUF1&2 MOTION RECORD 2BBR623400 LOOKP CAS PTYPE,1 2BBR623500 TRA *&2 2BBR623600 TRA PTRA,1 2BBR623700 TXI *&1,1,-1 2BBR623800 PCNT TXL IGNOR,1,-POUT&PTYPE NOT IN TABLE 2BBR623900 TRA LOOKP 2BBR624000 * 2BBR624100 * TRANSFER LISTS FOR TRW3 2BBR624200 * 2BBR624300 DPRAM PZE 0,0,1025 TOOLNO 2BBR624400 PZE 0,0,1030 COOLNT 2BBR624500 PZE 0,0,1031 SPINDL 2BBR624600 PZE 0,0,1009 FEDRAT 2BBR624700 PZE 0,0,1010 DELAY 2BBR624800 PZE 0,0,1015 MACHIN 2BBR625000 PZE 0,0,1004 CLEARP 2BBR625100 PZE 0,0,1037 TRANS 2BBR625200 PZE 0,0,1045 PARTNO 2BBR625300 PZE 0,0,1060 CLAMP BR625400 PZE 0,0,1019 SEQNO/ BR625410 DPOUT PZE 0,0,* 2BBR625500 * 2BBR625600 DPTRA TRA SETUP TOOLNO 2BBR625700 TRA SETUP COOLNT 2BBR625800 TRA SETUP SPINDL 2BBR625900 TRA FRATE FEDRAT 2BBR626000 TRA SETUP DELAY 2BBR626100 TRA MACN MACHIN 2BBR626300 TRA SETUP CLEARP 2BBR626400 TRA TRANS TRANS 2BBR626500 TRA PHSTO PARTNO 2BBR626600 TRA SETUP BR626700 TRA SETUP SEQNO BR626710 * 2BBR626800 * 2BBR626900 AUXTP PZE 0,0,2 STOP 2BBR627000 PZE 0,0,5 RAPID BR627010 PZE 0,0,1 END 2BBR627100 XOUT PZE 0,0,* 2BBR627200 * 2BBR627300 XTRA TRA SETUP STOP 2BBR627400 TRA RAPID RAPID BR627410 TRA SETUP END 2BBR627500 * 2BBR627600 PTYPE PZE 0,0,5 GOTO 2BBR627700 PZE 0,0,6 CONTINUE 2BBR627800 PZE 0,0,3 FROM 2BBR627900 POUT PZE 0,0,* 2BBR628000 * 2BBR628100 PTRA TRA TYP3N NEW-RECORD FOR MOTION 2BBR628200 TRA TYP3O CONTINUATION RECORD OF MOTION 2BBR628300 TRA FROM1 FROM 2BBR628400 * 2BBR628500 ARLMP CLA BUF1&2 ARELEM PARAMETER 2BBR628600 SUB #2B17 IS THIS MULTAX 2BBR628700 TZE *&2 YES 2BBR628800 TRA RLOOP NO, READ NEXT RECORD 2BBR628900 MULTX CLA #1B17 2BBR629000 STO MLAXF MULTAX FLAG SET 2BBR629100 TRA RLOOP 2BBR629200 * 2BBR629300 * 2BBR629400 * THIS SECTION HANDLES FEDRAT 2BBR629500 * 2BBR629600 FRATE CLA BUF1&4 STEP OR AUTO 2BBR629700 SUB AUTOC 0,0,88 2BBR629800 TZE AUTO 2BBR629900 CLA BUF1&3 TEST TO SEE IF VALUE OF BR630000 CAS D$RAPID BR630100 TRA AUTO THAT RAPID TRAVERSE BR630200 TRA *&1 BE USED BR630300 CLA #1 2BBR630400 FRAT1 STO NFLAG 1 # STEP, 3 # AUTO 2BBR630500 CLA BUF1&3 2BBR630600 STO FEDRT 2BBR630700 TRA RLOOP 2BBR630800 * 2BBR630900 AUTO CLA #3 2BBR631000 TRA FRAT1 2BBR631100 * TREAT RAPID AS MODAL.THE SAME AS FEDRAT/I,AUTO BR631110 RAPID CLA D$RAPID BR631112 STO BUF1&3 BR631114 TRA AUTO BR631118 * 2BBR631200 TRANS AXT 3,1 2BBR631300 CLA BUF1&6,1 2BBR631400 STO TRNS&3,1 2BBR631500 TIX *-2,1,1 2BBR631600 TRA SETUP 2BBR631700 * 2BBR631800 PHSTO CLA PNO PARTNO 2BBR631900 STO PNOFLG 2BBR632000 AXT 11,1 2BBR632100 CLA BUF1&14,1 2BBR632200 STO PNOFLG&12,1 2BBR632300 TIX *-2,1,1 2BBR632400 TRA RLOOP 2BBR632500 ISWERR HTR 0 2BBR632600 * 2BBR632700 PNOFLG BSS 14 2BBR632800 PNO BCI 1,PARTNO 2BBR632900 * THIS SECTION EXAMINES THE MACHINE STATEMENTS 2BBR633000 MACN CLA BUF1&3 POST PROCESSOR BCD NAME 2BBR633100 SUB D$KNT IS THIS BR3100 BR633200 TNZ RLOOP IGNOR THIS MACHINE STATEMENT 2BBR633300 AXC IPOSTP,4 2BBR633400 CLA 0,4 SET UP STEP TABLE MODIFIER 2BBR633500 STD *&1 2BBR633600 TXI *&1,4,** IF FEED STEP TABLE MODIFIER 2BBR633700 CLA 0,4 ON CLTAPE IS THE SAME 2BBR633800 SUB BUF1&4 AS BEING PROCESSED BY APT 2BBR633900 TZE SAVE SYSTEM,ACCEPT THIS MACHINE STATEMENT 2BBR634000 TRA RLOOP IF NOT IGNORE 2BBR634100 SAVE CLA BUF1&3 2BBR634200 STO NAME POST PROCESSOR BCD NAME 2BBR634300 CLA BUF1&4 2BBR634400 STO NPARM MACHINE PARAMETER 2BBR634500 TRA SETUP 2BBR634600 NAME HTR 0 2BBR634700 NPARM HTR 0 2BBR634800 * 2BBR634900 * THIS SECTION SETS %DATA) TO 2, 2BBR635000 * PLACES %NWPR-2) WORDS FROM BUF1 2BBR635100 * INTO %DATA&1,2,ETC.) AND SETS TO 2BBR635200 * ZERO ALL REMAINING CELLS IN %DATA). BR635300 * 2BBR635400 SETUP AXT **,4 RESTORE ORIGINAL LINKAGE 2BBR635500 CAL 1,4 %DATA), 0, N 2BBR635600 STO LNKAG 2BBR635700 PAC 0,1 -%DATA) IN XR1 2BBR635800 SUB NWPR N-NWPR %IN DECREMENT) 2BBR635900 ADD #2B17 N-NWPR&2 2BBR636000 PDX 0,2 NUMBER OF CELLS TO SET TO ZERO 2BBR636100 CHS 2BBR636200 ADD LNKAG 2BBR636300 PDX 0,4 XR4 CONTROLS TRANSMITTING COUNT 2BBR636400 SXA ZBUF1,2 2BBR636500 LAC BF1P2,2 XR2 # LOCATION OF %BUF1&2) 2BBR636600 CLA #2 2BBR636700 STO 0,1 %DATA&0) # 2 2BBR636800 SET1 CLA 0,2 BUF1&2, &3, ETC. 2BBR636900 STO 1,1 DATA&1, &2, ETC. 2BBR637000 TXI *&1,1,-1 %DATA) LOCATION MODIFIER 2BBR637100 TXI *&1,2,-1 %BUF1) LOCATION MODIFIER 2BBR637200 TIX SET1,4,1 LOOP TO DO %NWPR-2) TIMES 2BBR637300 ZBUF1 AXT **,4 2BBR637400 TNX SSTZ1,4,0 NO CELLS TO SET TO ZERO 2BBR637500 STZ 1,1 ZERO OUT REST OF %DATA) 2BBR637600 TXI *&1,1,-1 COUNT DOWN XR1 2BBR637700 TIX *-2,4,1 LOOP TO FINISH 2BBR637800 SSTZ1 STZ BF1CT NO MORE PROCESSING THIS RECORD 2BBR637900 TRA RETRN 2BBR638000 BF1P2 PZE BUF1&2 2BBR638100 * 2BBR638200 * THIS SECTION IS ENTERED FOR THE %FROM) 2BBR638300 * INSTRUCTION. A RETURN IS MADE TO THE 2BBR638400 * POST-PROCESSOR WITH 2BBR638500 * THE DATA REGION SET UP AS FOLLOWS@@ 2BBR638600 * DATA&0 # NFLAG%1#STEP,3#AUTO) 2BBR638700 * DATA&1 # FEEDRATE 2BBR638800 * &2 # X 2BBR638900 * &3 # Y 2BBR639000 * &4 # Z 2BBR639100 * &5 # C 2BBR639200 * &6 # A 2BBR639300 * 2BBR639400 * 2BBR639500 FROM1 CLA NFLAG 1 # STEP, 3 # AUTO 2BBR639600 STO BLOK 2BBR639700 CLA FEDRT 2BBR639800 STO BLOK&1 FEED RATE 2BBR639900 CLA MLAXF IS THIS JOB MULTAX 2BBR640000 TZE *&2 2BBR640100 TRA AXISR 5-AXIS FORMAT IN 3-AXIS JOB 2BBR640200 AXT 3,4 2BBR640300 FRLOP CLA BUF1&8,4 X, Y, Z%CLTAPE) 2BBR640400 FAD TRNS&3,4 DELTA X, Y, Z%TRANS) 2BBR640500 STO FROM&3,4 2BBR640600 STO BLOK&5,4 2BBR640700 TIX FRLOP,4,1 2BBR640800 STZ FROM&3 2BBR640900 STZ BLOK&5 2BBR641000 STZ THETA 2BBR641100 CLA DOWN 2BBR641200 STO FROM&4 2BBR641300 STO BLOK&6 2BBR641400 STZ BF1CT NO MORE DATA THIS RECORD 2BBR641500 TRA MT 2BBR641600 * 2BBR641700 * THIS SECTION IS ENTERED WHEN MORE 2BBR641800 * THAN ONE ENTRY PER RECORD IS REQUIRED. 2BBR641900 * THE SEVEN WORDS IN %BLOK) ARE TRANSFERRED 2BBR642000 * TO THE %DATA) REGION AS SPECIFIED IN THE 2BBR642100 * %READ) CALLING SEQUENCE. 2BBR642200 * 2BBR642300 MT AXT **,4 2BBR642400 CAL 1,4 DATA, 0, N 2BBR642500 PAC 0,1 -%DATA) IN XR1 2BBR642600 AXT 7,2 XR2 # 7 2BBR642700 CLA BLKP7 LOCATION OF BLOK&7 2BBR642800 STA *&1 2BBR642900 MT1 CLA **,2 2BBR643000 STO 0,1 2BBR643100 TXI *&1,1,-1 2BBR643200 TIX MT1,2,1 2BBR643300 TRA RETRN 2BBR643400 * 2BBR643500 BLKP7 PZE BLOK&7 2BBR643600 * 2BBR643700 * THIS SECTION IS ENTERED FOR 2BBR643800 * GOTO/X, Y, Z 2BBR643900 * CLTAPE DATA IS MODIFIED AS REQUIRED, AND 2BBR644000 * STORED IN THE BLOK REGION. IF MORE 2BBR644100 * THAN ONE ENTRY IS REQUIRED PER RECORD, 2BBR644200 * %AS DETERMINED BY BF1CT), THE ADDRESS 2BBR644300 * OF %MORE) IS STUFFED TO CONTROL THE 2BBR644400 * REQUIRED TRANSFER 2BBR644500 * 2BBR644600 GOTO LXD NWPR,2 NO. # NUMBER WORDS THIS RECORD 2BBR644700 TXI *&1,2,-5 REDUCE FOR RECNO, CODES, BCD DATA 2BBR644800 SXD BF1CT,2 2BBR644900 CLA NFLAG 1 # STEP, 3 # AUTO 2BBR645000 STO BLOK 2BBR645100 CLA FEDRT 2BBR645200 STO BLOK&1 PROGRAMMED FEEDRATE 2BBR645300 CLA MLAXF IS THIS JOB %MULTAX) 2BBR645400 TNZ AXISR YES 2BBR645500 AXT 0,1 NO, SET XR1 FOR 2BBR645600 SXA GOTO3,1 FIRST X OF RECORD 2BBR645700 STZ BLOK&5 2BBR645800 STZ BLOK&6 2BBR645900 GOTO3 AXT **,1 MODIFIER FOR BUF1 ADDRESSING 2BBR646000 AXT 3,2 LOOP COUNTER 2BBR646100 CLA BUF1&5,1 %X1,Y1,Z1), %X2,Y2,Z2), 2BBR646200 FAD TRNS&3,2 DELTA X, Y, Z%TRANS) 2BBR646300 STO BLOK&5,2 2BBR646400 TXI *&1,1,-1 2BBR646500 TIX *-4,2,1 2BBR646600 CLA BF1CT 2BBR646700 SUB #3B17 2BBR646800 STO BF1CT REDUCE BUF1 COUNTER 2BBR646900 CLA GT3AD 2BBR647000 STA MORE STUFFED FOR NEXT ENTRY 2BBR647100 SXA GOTO3,1 STUFFED FOR NEXT ENTRY 2BBR647200 TRA MT PUT BLOK IN %DATA), RETURN 2BBR647300 * 2BBR647400 GT3AD PZE GOTO3 2BBR647500 * 2BBR647600 * 2BBR647700 * THIS SECTION INITIALIZES ERASABLE STORAGE IN 2BBR647800 * THE READ AND DISPATCH. 2BBR647900 * 2BBR648000 * 2BBR648100 * 2BBR648200 INILR SXA INRET,4 INITIALIZE 2BBR648300 CLA ZEND READ 2BBR648400 SUB ZBEG AND 2BBR648500 PAX 0,4 DISPATCH 2BBR648600 STZ ZEND,4 ERASABLE 2BBR648700 TIX *-1,4,1 2BBR648800 INRET AXT **,4 2BBR648900 TRA 1,4 2BBR649000 * 2BBR649100 * 2BBR649200 CLTER CLA CLERR DIAGNOSTIC, CLTAPE READ ERROR 2BBR649300 STA PARAM 2BBR649400 TRA ERPRT 2BBR649500 * 2BBR649600 AXISR CLA FOERR DIAGNOSTIC, IMPROPER AXIS FORMAT 2BBR649700 STA PARAM 2BBR649800 TRA ERPRT 2BBR649900 * 2BBR650000 ERPRT CAL IOUTAP BCD OUTPUT TAPE 2BBR650100 TSX $%STH),4 2BBR650200 PARAM TSX ** 2BBR650300 TSX $%FIL),4 2BBR650400 TRA ERREX ERROR RETURN 2BBR650500 * 2BBR650600 CLERR PZE *&1 2BBR650700 BCI 7,%1H ,19X,47HPOST-PROCESSING DISCONTINUED, 2BBR650800 BCI 3,CLTAPE READ ERROR) 2BBR650900 * 2BBR651000 FOERR PZE *&1 2BBR651100 BCI 9,%1H ,19X,40HCLTAPE NOT IN 3-AXIS FORMAT, NO RECOVERY) 2BBR651200 * 2BBR651300 * 2BBR651400 DONE AXT **,4 FINAL EXIT 2BBR651500 TXI EXIT&1,4,-1 2BBR651600 * 2BBR651700 ERREX AXT **,4 2BBR651800 TXI EXIT&1,4,1 2BBR651900 * 2BBR652000 EXIT AXT **,4 2BBR652100 AXT **,1 2BBR652200 AXT **,2 2BBR652300 TRA 3,4 2BBR652400 * 2BBR652500 RETRN TRA EXIT 2BBR652600 * 2BBR652700 ZBEG PZE *&1 DIRECTLY PRECEDES FIRST ERASABLE 2BBR652800 BF1CT HTR 0 2BBR652900 REVAR HTR 0 RETURN VARIABLE FROM TAPERD 2BBR653000 NWPR HTR 0 NUMBER OF WORDS IN CLTAPE RECORD 2BBR653100 MLAXF HTR 0 2BBR653200 NFLAG HTR 0 2BBR653300 FEDRT HTR 0 2BBR653400 THETA HTR 0 2BBR653500 DOWN HTR 0 2BBR653600 LNKAG PZE 0 2BBR653700 TRNS BSS 3 2BBR653800 FROM BSS 5 2BBR653900 BLOK BSS 7 2BBR654000 BUF1 BSS BLKSIZ&7 STORAGE FOR CLTAPE DATA 2BBR654100 ZERO HTR 0 2BBR654200 ZEND PZE * DIRECTLY FOLLOWS LAST ERASABLE 2BBR654300 PATCH BSS 50 2BBR654400 * 2BBR654500 FP2 DEC 2. 2BBR654600 FP4 DEC 4. 2BBR654700 1B17 PZE 0,0,1 2BBR654800 AXCOD PZE 0,0,2000 AUX. STATEMENT CODE 2BBR654900 POCOD PZE 0,0,5000 MOTION CODE 2BBR655000 ARLCD PZE 0,0,9000 ARELEM PARAMETER 2BBR655100 AUTOC PZE 0,0,88 %AUTO) CODE 2BBR655200 1TB17 PZE 0,0,1000 2BBR655300 SURFC PZE 0,0,3000 SURFACE DATA CODE 4BBR655400 INCOD PZE 0,0,1000 ORIGINAL INPUT STATEMENT 4BBR655500 * 2BBR655600 LASTWD PZE 2BBR655700 END 2BBR655800 * FORTRAN BR655900 * LABEL BR656000 * UNPACK BR656050 * CARDS COLUMN BR656100 *46145 DIGIT 3 SUBROUTINE FOR E1A MAGIC 3 CODES BR656200 SUBROUTINE DIGIT3%FLPTIN,ISNUM,MINCOD,MAXCOD) BR656300 C THIS SUBROUTINE CALCULATES THE E1A CODES FOR EITHER SPINDLE BR656400 C SPEEDS OR FEEDRATE. THE INPUT IS A FLOATING POINT NUMBER BR656500 C WHICH IS CONVERTED TO A FIXED NUMBER CODE. IF THE BR656600 C PART PROGRAMMER SPECIFIES A VALUE NOT WITHIN THE CODE BR656700 C RANGE, HE GETS EITHER THE MINIMUM OR MAXIMUM CODE BR656800 C AND CORRESPONDING FLOATING POINT VALUE DEPENDING OR BR656900 C WHETHER HE WAS BELOW OR ABOVE CODE LIMITS. BR657000 C BR657100 AMAX # 990000. BR657200 AMIN # .001 BR657300 C TEST FOR MAXIMUM AND MINIMUM FLOATING POINT VALUES BR657400 IF %FLPTIN-AMAX) 4, 5, 5 BR657500 4 IF %FLPTIN-AMIN) 6, 6, 7 BR657600 5 ISNUM # 999 BR657700 GO TO 16 BR657800 6 ISNUM # 110 BR657900 GO TO 16 BR658000 C FIND WHAT RANGE THE FLOATING POINT VALUES ARE IN BR658100 7 I # 0 BR658200 B # .001 BR658300 10 IF %FLPTIN-B) 14, 11, 11 BR658400 11 I # I&100 BR658500 B # 10.0*B BR658600 GO TO 10 BR658700 14 J # 100.0*FLPTIN/B&.5 BR658800 ISNUM # I&J BR658900 IF %J-100) 16, 15, 15 BR659000 15 ISNUM # ISNUM&10 BR659100 C TEST TO SEE IF CODES ARE WITHIN MACHINE LIMITS BR659200 16 IF %ISNUM-MINCOD) 17, 20, 18 BR659300 17 ISNUM # MINCOD BR659400 23 K # 100 BR659500 D # .001 BR659600 30 IF %ISNUM-K) 22, 15, 21 BR659700 21 K # K&100 BR659800 D # 10.0*D BR659900 GO TO 30 BR660000 22 A # ISNUM-K&100 BR660100 FLPTIN # A*D/100.0 BR660200 GO TO 20 BR660300 18 IF %ISNUM-MAXCOD) 20, 20, 19 BR660400 19 ISNUM # MAXCOD BR660500 GO TO 23 BR660600 20 RETURN BR660700 END BR660800 * END TAPE