*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
