*DECK GANMOVE 
          IDENT  GANMOVE
          TITLE  GANMOVE -  ALPHANUMERIC TO ALPHANUMERIC MOVE PROCESSOR 
  
          MACHINE  ANY,I
          SST 
          COMMENT  ALPHANUMERIC TO ALPHANUMERIC MOVE PROCESSOR
          SPACE  4
************************************************************************
*                                                                      *
*      NOTICE- THIS IS A NON-CMU ROUTINE                               *
*                                                                      *
************************************************************************
  
 OP.BDP   IFEQ   OP.BDP,OP.NO 
          SPACE  4
**        GANMOVE -  ALPHANUMERIC TO ALPHANUMERIC MOVE PROCESSOR
* 
* AN2AN   LINK   CGAN2AN
*         REGB = DNAT POINTER TO SOURCE ITEM
*         REGC = DNAT POINTER TO DESTINATION ITEM 
* 
*         CALLZ  AN2AN
* 
*         GENERATE NON-CMU CODE TO PERFORM THE INDICATED MOVE 
*         COMDECKS
          SPACE  4
          EJECT 
  
  
  
  
 CONTROL  OPSYN  NIL
  
  
  
  
          EJECT 
  
 GANMOVE  MODULE
  
*      REGTABLE EQUATES 
  
  
 MOVEREGA EQU    REGB 
 MOVEREGB EQU    REGC 
  
*      VIRTUAL REGISTER EQUATES 
  
 VREGA    EQU    VREG1
 VREGB    EQU    VREG2
 VREGC    EQU    VREG3
 VREGD    EQU    VREG9
 VREGE    EQU    VREG5
 VREGF    EQU    VREG6
 VREGG    EQU    VREG7
 VREGH    EQU    VREG8
 VREGI    EQU    VREG9
 VREGJ    EQU    VREG10 
 VREGU    EQU    VREG16 
 VREGW    EQU    VREG18 
 VREGX    EQU    VREG4
 VREGY    EQU    VREG19 
 VREGZ    EQU    VREG20 
  
*      FIXED TABLE EQUATES
  
 BCPDIFF  EQU    T18
 ECPDIFF  EQU    T14
 LABLNUM  EQU    T16
 MASK1    EQU    T5 
 MASK2    EQU    T6 
 NRWDS    EQU    T15
 SHIFTCT  EQU    T17
  
  
*      ERROR EQUATES
  
  
*      MISCELLANEOUS EQUATES
  
  
*      LINKAGE FROM CALLING ROUTINES IN OTHER MODULES 
  
 AN2AN    KNIL   CGAN2AN     * FROM MOVE VERB PROCESSOR 
  
*      LINKAGE TO CALLED ROUTINES IN OTHER MODULES
  
 ADDSPCS  LINK   CGADSPC     * TO GMOVSUB 
 AN2SA    LINK   CGAN2SA     * TO GMOVAN
 GETSPCS  LINK   CGGTSPC     * TO GMOVSUB 
 LOADIT1  LINK   CGLOAD1     * TO GMOVSUB 
 LOADIT2  LINK   CGLOAD2     * TO GMOVSUB 
 MOVWORD  LINK   CGMVWRD     * TO GMOVSUB 
 SA2AN    LINK   CGSA2AN     * TO GMOVSA
 SETBREG  LINK   CGSETB4     * TO GMOVSUB 
 SETBXPK  LINK   CGSBXPK     * TO GMOVSUB 
 SETXREG  LINK   CGSETXW     * TO GMOVSUB 
 SPCFLRT  LINK   CGAPBLK     * TO GMOVSUB 
 STORIT1  LINK   CGSTOR1     * TO GMOVSUB 
 STORIT2  LINK   CGSTOR2     * TO GMOVSUB 
 STRBLNK  LINK   CGSTBLK     * TO GMOVSUB 
 SUBLOAD  LINK   SUBLOAD     * TO 
  
*      SYMBOLIC PARAMETER DEFINITIONS 
  
 BLANKS   SETSY  (EXT$OF,C.BLANK) 
 LOCLABL  SETSY  (LOCAL$OF,LABLNUM) 
 RECADDR  SETSY  (FWA$OF,MOVEREGB)
 SRCADDR  SETSY  (FWA$OF,MOVEREGA),ADOFSET
          EJECT 
************************************************************************
*                                                                      *
*      ALPHANUMERIC MOVE PROCESSOR, INCLUDES-                          *
*                                                                      *
*         ALL GROUP SENDING ITEMS (EXCEPT VARIABLE GROUP)              *
*         ALL GROUP RECEIVING ITEMS                                    *
*         ALPHANUMERIC RECEIVING ITEMS                                 *
*         ALPHABETIC RECEIVING ITEMS                                   *
*                                                                      *
*      FIXED CELLS USED-                                               *
*                                                                      *
*         ADOFSET-  AN OFFSET APPLIED TO THE WORD ADDRESS OF THE SOURCE*
*                   FIELD.  ADOFSET IS ZERO EXCEPT POSSIBLY IN THE CASE*
*                   THE SIZE OF THE SOURCE FIELD IS LARGER THAN THE    *
*                   SIZE OF THE JUSTIFIED RECEIVING FIELD.  THEN       *
*                   ADOFSET IS SET TO N IF THE EFFECTIVE BCP OF THE    *
*                   SOURCE FIELD LIES IN WORD N                        *
*         BCPDIFF-  DIFFERENCE IN BCPS OF SOURCE AND RECEIVING FIELDS  *
*         ECPDIFF-  RECECP-SENDECP.  SEE NOTE ON SENDECP               *
*         JUSTFLG-  NONZERO IF RECEIVING FIELD IS JUSTIFIED            *
*         LABLNUM-  CONTAINS THE (NUMBER OF THE) NEXT LOCAL LABEL      *
*                   USED IN THOSE EP MOVES WHICH GENERATE LOOPS.       *
*         LITFLG-   SET NON-ZERO IF THE SOURCE FIELD IS A LITERAL      *
*         MASK1-    A TEMPORARY COUNT (EITHER CHAR OR BIT) USED AS A   *
*                   PARAMETER IN SOME CODE GENERATION MACROS TO SPECIFY*
*                   A MASK SIZE                                        *
*         MASK2-    SEE MASK1                                          *
*         NRWDS-    A TEMPORARY COUNT USED IN EP MOVES.  USUALLY A     *
*                   COUNT OF THE INTERIOR WORDS TO BE MOVED            *
*         P1, P2  ETC-                                                 *
*                   PARAMETERS TO CODE GENERATION SUBROUTINES          *
*                   P1 AND P2 ARE USED BY LOADIT1                      *
*                   P3 AND P4 ARE USED BY STORIT1                      *
*                   P5 AND P6 ARE USED BY THE OTHER SUBROUTINES        *
*         RECBCP-   BCP OF RECEIVING FIELD                             *
*         RECECP-   RECBCP+RECSIZE.  SEE NOTE ON SENDECP               *
*         RECSIZE-  SIZE IN CHARS OF THE RECEIVING FIELD               *
*        RECSUBS-  SET NON-ZERO AT BEGINNING OF GMOVE IF RECEIVING     *
*                   FIELD IS SUBSCRIPTED  (= GSCODE FIELD OF MOVEREGB) *
*         SENDBCP-  BCP OF SOURCE FIELD UNLESS SIZE OF SOURCE FIELD IS *
*                   LARGER THAN SIZE OF JUSTIFIED RECEIVING FIELD.     *
*                   IN THIS CASE SENDBCP IS THE EFFECTIVE BCP OF THE   *
*                   SOURCE FIELD (I.E. THE CHAR WHICH WILL BE MOVED TO *
*                   THE BCP OF THE RECEIVING FIELD.                    *
*         SENDECP-  SENDBCP+SENDSIZE.  THIS IS TECHNICALLY A MISNOMER  *
*                   BUT I COULDN"T THINK OF A BETTER NAME (SORRY)      *
*         SENDSIZE- SIZE IN CHARS OF THE SOURCE FIELD UNLESS SIZE OF   *
*                   SOURCE FIELD IS LARGER THAN SIZE OF                *
*                   RECEIVING FIELD.  IN THIS CASE SENDSIZE IS THE     *
*                   EFFECTIVE SIZE OF THE SOURCE FIELD (I.E. THE       *
*                   NUMBER OF CHARS TO BE MOVED).                      *
*         SENDSUBS- SET NON-ZERO AT BEGINNING OF GMOVE IF SOURCE       *
*                   FIELD IS SUBSCRIPTED  (= GSCODE FIELD OF MOVEREGA) *
*         SHIFTCT-  A TEMPORARY COUNT (EITHER CHAR OR BIT) USED AS A   *
*                   COUNT IN GENERATING SHIFTS.  NOTE-  IN MANY CASES  *
*                   A CALCULATION IS MADE TO GENERATE A SHIFT AND      *
*                   SHIFTCT IS USED TO HOLD THIS VALUE.  LATER THIS    *
*                   CALCULATION MAY BE NEEDED FOR A MASK SIZE.  FOR    *
*                   THE SAKE OF EFFICIENCY SHIFTCT IS USED AGAIN.      *
*                   I HOPE THIS IS NOT TOO CONFUSING                   *
*         SIZEDIFF- DIFFERENCE IN SIZES OF SOURCE AND RECEIVING FIELDS.*
*         T1, T2  ETC-                                                 *
*                   WHEN A CALCULATION WAS NEEDED WHOSE ONLY PURPOSE   *
*                   WAS TO MAKE A BRANCH DECISION I USED THESE CELLS   *
*                                                                      *
*      VIRTUAL REGISTER USAGE-                                         *
*                                                                      *
*         UNSUBSCRIPTED MOVES                                          *
*                                                                      *
*         VREGA-    VIRTUAL X-REGISTER CONTAINING THE (PART OF THE)    *
*                   SOURCE FIELD WHICH WILL BE PROCESSED NEXT (EITHER  *
*                   SHIFTED OR PADDED WITH BLANKS OR STORED).          *
*         VREGB-    VIRTUAL (LOAD) A-REGISTER CONTAINING THE ADDRESS   *
*                   OF THE LAST WORD LOADED.                           *
*         VREGC-    VIRTUAL (STORE) A-REGISTER CONTAINING THE ADDRESS  *
*                   OF THE LAST WORD STORED INTO.                      *
*         VREGC, VREGD, ... , VREGH-                                   *
*                   VIRTUAL X-REGISTERS CONTAINING SPLIT-OUT PARTS     *
*                   OF THE SOURCE FIELD WHICH WILL EVENTUALLY GET      *
*                   PROCESSED AND STORED.                              *
*                                                                      *
*                                                                      *
*      TABLE OF CONTENTS-                                              *
*                                                                      *
*         UNSUBSCRIPTED MOVES (AN2AN)                                  *
*                                                                      *
*         SINGLE PRECISION MOVES-                                      *
*                   I        SP TO SP    BS=BR                         *
*                   II       SP TO SP    BS<BR                         *
*                   III      SP TO SP    BS>BR                         *
*                                                                      *
*         DOUBLE PRECISION MOVES-                                      *
*                   IV       SP TO DP    BS=BR                         *
*                   V        DP TO SP    BS=BR                         *
*                   VI       DP TO DP    BS=BR                         *      - 
*                   VII      SP TO DP    BS<BR                         *      - 
*                   VIII     DP TO SP    BS<BR                         *
*                   IX       DP TO DP    BS<BR                         *
*                   X        SP TO DP    BS>BR                         *
*                   XI       DP TO SP    BS>BR                         *
*                   XII      DP TO DP    BS>BR                         *
*                                                                      *
*         TRIPLE PRECISION MOVES-                                      *
*                   XIII     SP TO TP    BS=BR                         *
*                   XIV      DP TO TP    BS=BR                         *
*                   XV       TP TO SP    BS=BR                         *
*                   XVI      TP TO DP    BS=BR                         *
*                   XVII     TP TO TP    BS=BR                         *
*                   XVIII    SP TO TP    BS<BR                         *
*                   XIX      DP TO TP    BS<BR                         *
*                   XX       TP TO SP    BS<BR                         *
*                   XXI      TP TO DP    BS<BR                         *
*                   XXII     TP TO TP    BS<BR                         *
*                   XXIII    SP TO TP    BS>BR                         *
*                   XXIV     DP TO TP    BS>BR                         *
*                   XXV      TP TO SP    BS>BR                         *
*                   XXVI     TP TO DP    BS>BR                         *
*                   XXVII    TP TO TP    BS>BR                         *
*                                                                      *
*         EXTENDED PRECISION MOVES-                                    *
*                   XXVIII   SP TO EP    BS=BR                         *
*                   XXIX     DP TO EP    BS=BR                         *
*                   XXX      TP TO EP    BS=BR                         *
*                   XXXI     EP TO SP    BS=BR                         *
*                   XXXII    EP TO DP    BS=BR                         *
*                   XXXIII   EP TO TP    BS=BR                         *
*                   XXXIV    EP TO EP    BS=BR                         *
*                   XXXV     SP TO EP    BS<BR                         *
*                   XXXVI    DP TO EP    BS<BR                         *
*                   XXXVII   TP TO EP    BS<BR                         *
*                   XXXVIII  EP TO SP    BS<BR                         *
*                   XXXIX    EP TO DP    BS<BR                         *
*                   XL       EP TO TP    BS<BR                         *
*                   XLI      EP TO EP    BS<BR                         *
*                   XLII     SP TO EP    BS>BR                         *
*                   XLIII    DP TO EP    BS>BR                         *
*                   XLIV     TP TO EP    BS>BR                         *
*                   XLV      EP TO SP    BS>BR                         *
*                   XLVI     EP TO DP    BS>BR                         *
*                   XLVII    EP TO TP    BS>BR                         *
*                   XLVIII   EP TO EP    BS>BR                         *
*                                                                      *
*         SUBSCRIPTED MOVES                                            *
*                                                                      *
*                   I        SA2AN       SUBSCRIPTED TO NON-SUBSCRIPTED*
*                   II       AN2SA       NON-SUBSCRIPTED TO SUBSCRIPTED*
*                   III      SA2SA       SUBSCRIPTED TO SUBSCRIPTED    *
*                                                                      *
*      NOTES-                                                          *
*                                                                      *
*         CALLS TO SUBROUTINES CONTAIN ON THEM THEIR PARAMETER LIST AS *
*         A COMMENT.  FOR EXAMPLE A CALL TO LOADIT1 MIGHT BE CODED AS- *
*         CALLZ  LOADIT1   KS,BS,SS;VREGA,VREGB                        *
*         INPUT PARAMETERS APPEAR FIRST AND ARE SEPARATED FROM OUTPUT  *
*         PARAMETERS BY A SEMICOLON.                                   *
*         THE ABBREVIATIONS USED AND THEIR FIXED CELL EQUIVALENTS ARE  *
*         AS FOLLOWS-                                                  *
*                BS= SENDBCP                                           *
*                BR= RECBCP                                            *
*                SS= SENDSIZE                                          *
*                SR= RECSIZE                                           *
*                KS= SRCADDR                                           *
*                KR= RECADDR                                           *
*         THESE SAME ABBREVIATIONS ARE USED IN OTHER COMMENTS          *
*         THROUGHOUT THE CODE.                                         *
*                                                                      *
*         THE FOLLOWING TERMINOLOGY IS USED IN THIS PROCESSOR-         *
*                A SINGLE PRECISION (SP) FIELD IS ONE WHICH IS         *
*                CONTAINED ENTIRELY WITHIN 1 WORD.                     *
*                A DOUBLE PRECISION (DP) FIELD IS ONE WHICH IS         *
*                CONTAINED ENTRIELY WITHIN 2 WORDS AND OVERLAPS THE    *
*                INTERIOR WORD BOUNDARY                                *
*                A TRIPLE PRECISION (TP) FIELD IS ONE WHICH IS         *
*                CONTAINED ENTIRELY WITHIN 3 WORDS AND OVERLAPS        *
*                BOTH BOUNDARIES OF THE MIDDLE WORD.                   *
*                AN EXTENDED PRECISION (EP) FIELD IS ONE WHICH OVERLAPS*
*                AT LEAST 3 WORD BOUNDARIES                            *
*                                                                      *
************************************************************************
  
 AN2AN      EGO  2
  
*      INITIALIZE ADDRESS OFFSET
          MOVEZ  K0,ADOFSET 
  
*      EXTRACT INFORMATION NECESSARY FOR THE DECISION PROCESS AND FOR 
*      CODE GENERATION
  
          MOVEZ  (BCPOF,MOVEREGA),SENDBCP 
          MOVEZ  (BYTLENOF,MOVEREGA),SENDSIZE 
          MOVEZ  (BCPOF,MOVEREGB),RECBCP
          MOVEZ  (BYTLENOF,MOVEREGB),RECSIZE
          ADDZ   SENDBCP,SENDSIZE,SENDECP 
          ADDZ   RECBCP,RECSIZE,RECECP
          SUBZ   SENDSIZE,RECSIZE,SIZEDIFF
          SUBZ   SENDBCP,RECBCP,BCPDIFF 
          SUBZ   RECECP,SENDECP,ECPDIFF 
          MOVEZ  (JUSTOF,MOVEREGB),JUSTFLG
          IFTHEN ((GCODEOF,MOVEREGA),EQ,GLITREF)
            MOVEZ  1,LITFLG 
          ELSEZ 
            MOVEZ  0,LITFLG 
          ENDIFZ
  
*      TAKE CARE OF A POSSIBLE (BUT NOT VERY PROBABLE) PATHOLOGICAL CASE
  
          IFZ    (RECSIZE,EQ,0),RETURN
  
*      IF EITHER SOURCE OR RECEIVING FIELD IS SUBSCRIPTED, PROCESS MOVE 
*      ELSEWHERE
*      NOTICE THIS ROUTINE EXPECTS SENDSUBS AND RECSUBS TO CONTAIN THE
*      GSCODE FIELDS OF MOVEREGA AND MOVEREGB RESPECTIVELY ON ENTRY 
  
          IFZ    (SENDSUBS,NE,0),SA2AN
          IFZ    (RECSUBS,NE,0),AN2SA 
          SPACE  4
          LISTSEC  AN2AN
          SPACE  4
*      DETERMINE WHETHER MOVE IS SP, DP, TP OR EP 
  
          IFZ    (SENDECP,GT,30),AN2AN800 
          IFZ    (RECECP,GT,30),AN2AN800
          IFZ    (SENDECP,GT,20),AN2AN400 
          IFZ    (RECECP,GT,20),AN2AN400
          IFZ    (SENDECP,GT,10),AN2AN100 
          IFZ    (RECECP,GT,10),AN2AN100
          TITLE  AN2AN - NON-SUBSCRIPTED AN TO NON-SUBSCRIPTED AN MOVES 
  
*      SINGLE PRECISION SOURCE AND RECEIVING FIELD PROCESSING BEGINS
*      HERE. BOTH MUST BE CONTAINED ENTIRELY WITHIN ONE WORD. 
  
          IFZ    (BCPDIFF,GT,0),AN2AN065
          IFZ    (BCPDIFF,LT,0),AN2AN040
  
************************************************************************
*                                                                      *
*      I     BS=BR     * BCP OF SOURCE EQUAL TO BCP OF RECEIVING       *
*            SP TO SP  * SINGLE PRECISION TO SINGLE PRECISION          *
*                                                                      *
************************************************************************
  
          IFZ    (SIZEDIFF,GT,0),AN2AN035 
          IFZ    (SIZEDIFF,LT,0),AN2AN025 
  
************************************************************************
*      GENERATE CODE FOR SP SOURCE FIELD TO SP RECEIVING FIELD HAVING  *
*      SAME SIZE AND SAME BCP                                          *
************************************************************************
  
 AN2AN020   LABEL 
          NOTE   AN2AN020 
          MOVEZ  SENDBCP,P1 
          MOVEZ  SENDSIZE,P2
          CALLZ  LOADIT1   KS,BS,SS;VREGA,VREGB 
          MOVEZ  RECBCP,P3
          MOVEZ  RECSIZE,P4 
          CALLZ  STORIT1   KR,BR,SR,VREGA;VREGC 
          RETURN
 I        SPACE  4
*      BEGIN PROCESSING SP SOURCE FIELD TO SP RECEIVING FIELD HAVING THE
*      SAME BCP.  SIZE OF SOURCE FIELD IS LESS THAN SIZE OF RECEIVING 
*      FIELD. 
  
 AN2AN025   LABEL 
          SUBZ   0,SIZEDIFF,SIZEDIFF
  
*      COMMON PARAMETER SETUP FOR SS<SR CASES 
  
          MOVEZ  SENDBCP,P1 
          MOVEZ  SENDSIZE,P2
          MOVEZ  RECBCP,P3
          MOVEZ  RECSIZE,P4 
          MOVEZ  SIZEDIFF,P5
  
          IFZ    (JUSTFLG,NE,K0),AN2AN030 
  
************************************************************************
*      GENERATE CODE FOR SP SOURCE FIELD TO NON-JUSTIFIED SP RECEIVING *
*      FIELD HAVING THE SAME BCP.  SIZE OF SOURCE FIELD IS LESS THAN   *
*      SIZE OF RECEIVING FIELD.                                        *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P1=BS
*      P2=SS
*      P3=BR
*      P4=SR
*      P5=SS-SR 
  
          NOTE   AN2AN025 
          CALLZ  LOADIT1   KS,BS,SS;VREGA,VREGB 
          ADDZ   RECBCP,SENDSIZE,P6 
          CALLZ  ADDSPCS   SR-SS,BR+SS,VREGA;VREGA
          CALLZ  STORIT1   KR,BR,SR,VREGA;VREGC 
          RETURN
 I        SPACE  4
************************************************************************
*      GENERATE CODE FOR SP SOURCE FIELD TO JUSTIFIED SP RECEIVING     *
*      FIELD HAVING THE SAME BCP.  SIZE OF SOURCE FIELD IS LESS THAN   *
*      SIZE OF RECEIVING FIELD                                         *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P1=BS
*      P2=SS
*      P3=BR
*      P4=SR
*      P5=SS-SR 
  
*                  ARITH7: 60-6*FIXED 
 AN2AN030   LABEL 
          NOTE   AN2AN030 
          CALLZ  LOADIT1   KS,BS,SS;VREGA,VREGB 
          GEN    SHL,VREGA,(ARITH7,ECPDIFF) 
          MOVEZ  RECBCP,P6
          CALLZ  ADDSPCS   SR-SS,BR,VREGA;VREGA 
          CALLZ  STORIT1   KR,BR,SR,VREGA;VREGC 
          RETURN
 I        SPACE  4
*      PROCESS SP FIELDS WITH SAME BCPS BUT SIZE OF SOURCE FIELD
*      GREATER THAN SIZE OF RECEIVING FIELD 
  
 AN2AN035   LABEL 
          NOTE   AN2AN035 
          MOVEZ  RECSIZE,SENDSIZE 
          IFZ    (JUSTFLG,EQ,K0),AN2AN020 
  
*      PROCESS SP FIELDS WITH SAME BCPS BUT SIZE OF SOURCE FIELD
*      GREATER THAN SIZE OF JUSTIFIED RECEIVING FIELD.
  
          ADDZ   SENDBCP,SIZEDIFF,SENDBCP 
          BRANCH AN2AN070 
 II       EJECT 
************************************************************************
*                                                                      *
*      II    BS<BR     * BCP OF SOURCE LESS THAN BCP OF RECEIVING      *
*            SP TO SP  * SINGLE PRECISION TO SINGLE PRECISION          *
*                                                                      *
************************************************************************
  
 AN2AN040   LABEL 
          SUBZ   K0,BCPDIFF,BCPDIFF 
          IFZ    (SIZEDIFF,GT,0),AN2AN060 
          IFZ    (SIZEDIFF,LT,0),AN2AN050 
  
************************************************************************
*      GENERATE CODE FOR SP SOURCE FIELD TO SP RECEIVING FIELD HAVING  *
*      THE SAME SIZE.  BCP OF SOURCE FIELD IS LESS THAN BCP OF         *
*      RECEIVING FIELD.                                                *
************************************************************************
  
*      NOTE: FOR THE BENEFIT OF CASES WHICH CHANGE EITHER THE BCP OR THE
*      SIZE OF THE SOURCE FIELD BEFORE BRANCHING HERE, NO ARITH 
*      FUNCTIONS ARE USED ON MOVEREGA AND BCPDIFF IS NOT ASSUMED CORRECT
  
*                  ARITH7:  60-6*FIXED
 AN2AN045   LABEL 
          NOTE   AN2AN045 
          MOVEZ  SENDBCP,P1 
          MOVEZ  SENDSIZE,P2
          CALLZ  LOADIT1   SRCADDR,BS,SS;VREGA,VREGB
          SUBZ   RECBCP,SENDBCP,BCPDIFF 
          GEN    SHL,(VREFOF,VREGA),(ARITH7,BCPDIFF)
          MOVEZ  RECBCP,P3
          MOVEZ  RECSIZE,P4 
          CALLZ  STORIT1   RECADDR,BR,SR,VREGA;VREGC
          RETURN
 II       SPACE  4
*      BEGIN PROCESSING SP SOURCE FIELD TO SP RECEIVING FIELD.  BCP OF
*      SOURCE FIELD IS LESS THAN BCP OF RECEIVING FIELD.  SIZE OF SOURCE
*      FIELD IS LESS THAN SIZE OF RECEIVING FIELD 
  
 AN2AN050   LABEL 
          NOTE   AN2AN050 
          SUBZ   K0,SIZEDIFF,SIZEDIFF 
  
*      COMMON PARAMETER SETUP FOR SS<SR CASES 
  
          MOVEZ  SENDBCP,P1 
          MOVEZ  SENDSIZE,P2
          MOVEZ  RECBCP,P3
          MOVEZ  RECSIZE,P4 
          MOVEZ  SIZEDIFF,P5
  
          IFZ    (JUSTFLG,NE,0),AN2AN030
  
************************************************************************
*      GENERATE CODE FOR SP SOURCE FIELD TO NON-JUSTIFIED SP RECEIVING *
*      FIELD.  BCP OF SOURCE FIELD IS LESS THAN BCP OF RECEIVING FIELD *
*      SIZE OF SOURCE FIELD IS LESS THAN SIZE OF RECEIVING FIELD.      *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*         P1=BS 
*         P2=SS 
*         P3=BR 
*         P4=SR 
*         P5=SR-SS
  
*                  ARITH7: 60-6*FIXED 
          CALLZ  LOADIT1   SRCADDR,BS,SS;VREGA,VREGB
          GEN    SHL,(VREFOF,VREGA),(ARITH7,BCPDIFF)
          ADDZ   RECBCP,SENDSIZE,P6 
          CALLZ  ADDSPCS   SR-SS,BR+SS,VREGA;VREGA
          CALLZ  STORIT1   RECADDR,BR,SR,VREGA;VREGC
          RETURN
 II       SPACE  4
*      PROCESS SP FIELDS WITH BCP OF SOURCE FIELD LESS THAN BCP OF
*      RECEIVING FIELD AND SIZE OF SOURCE FIELD GREATER THAN SIZE OF
*      RECEIVING FIELD
  
 AN2AN060   LABEL 
          NOTE   AN2AN060 
          MOVEZ  RECSIZE,SENDSIZE 
          IFZ    (JUSTFLG,EQ,K0),AN2AN045 
  
*      PROCESS SP FIELDS WITH BCP OF SOURCE FIELD LESS THAN BCP OF
*      RECEIVING FIELD, SIZE OF SOURCE FIELD LARGER THAN SIZE OF
*      JUSTIFIED RECEIVING FIELD
  
          ADDZ   SENDBCP,SIZEDIFF,SENDBCP 
          IFZ    (SENDBCP,LT,RECBCP),AN2AN045 
          IFZ    (SENDBCP,EQ,RECBCP),AN2AN020 
          BRANCH AN2AN070 
 III      EJECT 
************************************************************************
*                                                                      *
*      III   BS>BR     * BCP OF SOURCE GREATER THAN BCP OF RECEIVING   *
*            SP TO SP  * SINGLE PRECISION TO SINGLE PRECISION          *
*                                                                      *
************************************************************************
  
 AN2AN065   LABEL 
          IFZ    (SIZEDIFF,GT,0),AN2AN090 
          IFZ    (SIZEDIFF,LT,0),AN2AN075 
  
************************************************************************
*      GENERATE CODE FOR SP SOURCE FIELD TO SP RECEIVING FIELD HAVING  *
*      THE SAME SIZE.  BCP OF SOURCE FIELD IS GREATER THAN BCP OF      *
*      RECEIVING FIELD.                                                *
************************************************************************
  
*      NOTE: FOR THE BENEFIT OF CASES WHICH CHANGE EITHER THE BCP OR THE
*      SIZE OF THE SOURCE FIELD BEFORE BRANCHING HERE, NO ARITH 
*      FUNCTIONS ARE USED ON MOVEREGA AND BCPDIFF IS NOT ASSUMED CORRECT
  
*                  ARITH8: 6*FIXED
 AN2AN070   LABEL 
          NOTE   AN2AN070 
          MOVEZ  SENDBCP,P1 
          MOVEZ  SENDSIZE,P2
          CALLZ  LOADIT1   SRCADDR,BS,SS;VREGA,VREGB
          SUBZ   SENDBCP,RECBCP,BCPDIFF 
          GEN    SHL,(VREFOF,VREGA),(ARITH8,BCPDIFF)
          MOVEZ  RECBCP,P3
          MOVEZ  RECSIZE,P4 
          CALLZ  STORIT1   RECADDR,BR,SR,VREGA;VREGC
          RETURN
 III      SPACE  4
*      BEGIN PROCESSING SP SOURCE FIELD TO SP RECEIVING FIELD.  BCP OF
*      SOURCE FIELD IS GREATER THAN BCP OF RECEIVING FIELD.  SIZE OF
*      SOURCE FIELD IS LESS THAN SIZE OF RECEIVING FIELD. 
  
 AN2AN075   LABEL 
          SUBZ   K0,SIZEDIFF,SIZEDIFF 
  
*      COMMON PARAMETER SETUP FOR SS<SR CASES 
  
          MOVEZ  SENDBCP,P1 
          MOVEZ  SENDSIZE,P2
          MOVEZ  RECBCP,P3
          MOVEZ  RECSIZE,P4 
          MOVEZ  SIZEDIFF,P5
  
          IFZ    (JUSTFLG,NE,K0),AN2AN080 
  
************************************************************************
*      GENERATE CODE FOR SP SOURCE FIELD TO NON-JUSTIFIED SP RECEIVING *
*      FIELD.  BCP OF SOURCE FIELD IS GREATER THAN BCP OF RECEIVING    *
*      FIELD.  SIZE OF SOURCE FIELD IS LESS THAN SIZE OF RECEIVING     *
*      FIELD.                                                          *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*         P1=BS 
*         P2=SS 
*         P3=BR 
*         P4=SR 
*         P5=SR-SS
  
*                  ARITH8: 6*FIXED
          NOTE   AN2AN075 
          CALLZ  LOADIT1   SRCADDR,BS,SS;VREGA,VREGB
          GEN    SHL,(VREFOF,VREGA),(ARITH8,BCPDIFF)
          ADDZ   RECBCP,SENDSIZE,P6 
          CALLZ  ADDSPCS   SR-SS,BR+SS,VREGA;VREGA
          CALLZ  STORIT1   RECADDR,BR,SR,VREGA;VREGC
          RETURN
 III      SPACE 4 
************************************************************************
*      GENERATE CODE FOR SP SOURCE FIELD TO JUSTIFIED SP RECEIVING     *
*      FIELD.  BCP OF SOURCE FIELD IS GREATER THAN BCP OF RECEIVING    *
*      FIELD.  SIZE OF SOURCE FIELD IS LESS THAN SIZE OF RECEIVING     *
*      FIELD.  NOTICE THAT IF THE SOURCE AND RECEIVING FIELDS HAVE THE *
*      SAME ECP WE DO NOT HAVE TO GENERATE A SHIFT.                    *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*         P1=BS 
*         P2=SS 
*         P3=BR 
*         P4=SR 
*         P5=SR-SS
  
*                  ARITH8: 6*FIXED
*                  ARITH9: FIXED-(FIXED/60)*60  (FIXED MOD 60)
 AN2AN080 LABEL 
          NOTE   AN2AN080 
          CALLZ  LOADIT1   SRCADDR,BS,SS;VREGA,VREGB
          IFTHEN (ECPDIFF,NE,0) 
            SUBZ   SIZEDIFF,BCPDIFF,SHIFTCT 
            SUBZ   60,(ARITH8,SHIFTCT),SHIFTCT
            GEN    SHL,VREGA,(ARITH9,SHIFTCT) 
          ENDIFZ
          MOVEZ  RECBCP,P6
          CALLZ  ADDSPCS   SR-SS,BR,VREGA;VREGA 
          CALLZ  STORIT1   RECADDR,BR,SR,VREGA;VREGC
          RETURN
 III      SPACE  4
*      PROCESS SP FIELDS WITH BCP OF SOURCE FIELD GREATER THAN BCP OF 
*      RECEIVING FIELD AND SIZE OF SOURCE FIELD GREATER THAN SIZE OF
*      RECEIVING FIELD
  
 AN2AN090   LABEL 
          NOTE   AN2AN090 
          MOVEZ  RECSIZE,SENDSIZE 
          IFZ    (JUSTFLG,EQ,K0),AN2AN070 
  
*      PROCESS SP FIELDS WITH BCP OF SOURCE FIELD GREATER THAN BCP OF 
*      RECEIVING FIELD, SIZE OF SOURCE FIELD LARGER THAN SIZE OF
*      JUSTIFIED RECEIVING FIELD
  
          ADDZ   SENDBCP,SIZEDIFF,SENDBCP 
          BRANCH AN2AN070 
 IV       EJECT 
*      DOUBLE PRECISION SOURCE AND RECEIVING FIELD PROCESSING BEGINS
*      HERE. BOTH MUST BE CONTAINED ENTIRELY WITHIN TWO WORDS, BUT AT 
*      LEAST ONE OVERLAPS A WORD BOUNDARY.
  
 AN2AN100   LABEL 
          IFZ    (BCPDIFF,GT,0),AN2AN240
          IFZ    (BCPDIFF,LT,0),AN2AN165
  
*      BEGIN PROCESSING DOUBLE PRECISION FIELDS WITH SAME BCPS HERE 
  
          IFZ    (SENDECP,GT,10),AN2AN120 
  
************************************************************************
*                                                                      *
*      IV    BS=BR     * BCP OF SOURCE EQUAL TO BCP OF RECEIVING       *
*            SP TO DP  * SINGLE PRECISION TO DOUBLE PRECISION          *
*                                                                      *
************************************************************************
  
          SUBZ   0,SIZEDIFF,SIZEDIFF
  
*      COMMON PARAMETER SETUP FOR ALL CASES 
  
          MOVEZ  SENDBCP,P1 
          MOVEZ  SENDSIZE,P2
          MOVEZ  RECBCP,P3
          SUBZ   10,RECBCP,P4 
  
          IFZ    (JUSTFLG,NE,0),AN2AN105
  
************************************************************************
*      GENERATE CODE FOR SP SOURCE FIELD TO NON-JUSTIFIED DP RECEIVING *
*      FIELD HAVING THE SAME BCP.                                      *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P1=BS
*      P2=SS
*      P3=BR
*      P4=10-BR 
  
          NOTE   AN2AN100 
          CALLZ  LOADIT1   SRCADDR,BS,SS;VREGA,VREGB
          MOVEZ  SENDECP,P6 
          SUBZ   10,P6,P5 
          CALLZ  ADDSPCS   10-(BS+SS),BS+SS,VREGA;VREGA 
          CALLZ  STORIT1   RECADDR,BR,10-BR,VREGA;VREGC 
          SUBZ   RECECP,10,P5 
          MOVEZ  K0,P6
          CALLZ  GETSPCS   (BR+SR)-10,0;VREGA 
          MOVEZ  P5,P6
          CALLZ  STORIT2   VREGC,(BR+SR)-10,VREGA;VREGC 
          RETURN
 IV       SPACE  4
*      PROCESS SP SOURCE FIELD TO JUSTIFIED DP RECEIVING  FIELD 
*      HAVING THE SAME BCP.  SIZE OF SOURCE FIELD IS LESS THAN SIZE OF
*      RECEIVING FIELD
  
 AN2AN105   LABEL 
  
*      PARAMETER SETUP FOR SS<SR JUSTIFIED CASES
  
          MOVEZ  RECBCP,P6
  
          SUBZ   RECECP,10,T1 
          IFZ    (T1,LT,SENDSIZE),AN2AN115
  
************************************************************************
*      GENERATE CODE FOR SP SOURCE FIELD TO JUSTIFIED DP RECEIVING     *
*      FIELD HAVING THE SAME BCP.  SIZE OF SOURCE FIELD IS LESS THAN   *
*      OR EQUAL TO THE PART OF THE RECEIVING FIELD LYING IN THE SECOND *
*      WORD.  NOTICE IF THE SOURCE AND RECEIVING FIELDS HAVE THE SAME  *
*      ECP WE DO NOT HAVE TO GENERATE A SHIFT                          *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P1=BS
*      P2=SS
*      P3=BR
*      P4=10-BR 
*      P6=BR
  
*                  ARITH19: 60-6*(FIXED)MOD 10
          NOTE   AN2AN105 
          SUBZ   10,RECBCP,P5 
          CALLZ  GETSPCS   10-BR,BR;VREGA 
          CALLZ  STORIT1   KR,BR,10-BR,VREGA;VREGC
          CALLZ  LOADIT1   KS,BS,SS;VREGA,VREGB 
          IFTHEN (ECPDIFF,NE,10)
            GEN    SHL,VREGA,(ARITH19,ECPDIFF)
          ENDIFZ
          ADDZ   RECBCP,SIZEDIFF,P5 
          REMZ   P5,10,P5 
          MOVEZ  0,P6 
          CALLZ  ADDSPCS   [BR+(SR-SS)]MOD 10,0,VREGA;VREGA 
          SUBZ   RECECP,10,P6 
          CALLZ  STORIT2   VREGC,(BR+SR)-10,VREGA;VREGC 
          RETURN
 IV       SPACE  4
************************************************************************
*      GENERATE CODE FOR SP SOURCE FIELD TO JUSTIFIED DP RECEIVING     *
*      FIELD HAVING THE SAME BCP.  SIZE OF SOURCE FIELD IS GREATER THAN*
*      THE PART OF THE RECEIVING FIELD LYING IN THE SECOND WORD.       *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED 
  
*      P1=BS
*      P2=SS
*      P3=BR
*      P4=10-BR 
*      P6=BR
*                  ARITH7: 60-6*FIXED 
*                  ARITH8: 6*FIXED
*                  ARITH18: 6*(FIXED)MOD 10 
 AN2AN115   LABEL 
          NOTE   AN2AN115 
          ADDZ   RECBCP,SIZEDIFF,MASK1
          GENM   LDRTSPLT 
          SYMP   SRCADDR
          REGP   (VREGOF,VREGB),(VREGOF,VREGA),(VREGOF,VREGD) 
            CONP   (ARITH7,ECPDIFF),(ARITH8,MASK1),(ARITH18,RECECP) 
          ENDG
          MOVEZ  SIZEDIFF,P5
          CALLZ  ADDSPCS   SR-SS,BR,VREGA;VREGA 
          CALLZ  STORIT1   RECADDR,BR,10-BR,VREGA;VREGC 
          MOVEZ  VREGD,VREGA
          REMZ   RECECP,10,P6 
          CALLZ  STORIT2   VREGC,(BR+SR)MOD 10,VREGA;VREGC
          RETURN
 V        EJECT 
*      BEGIN PROCESSING DP SOURCE FIELD TO DP OR SP RECEIVING FIELD HERE
  
  
 AN2AN120   LABEL 
          IFZ    (RECECP,GT,10),AN2AN125
  
************************************************************************
*                                                                      *
*      V     BS=BR     * BCP OF SOURCE EQUAL TO BCP OF RECEIVING       *
*            DP TO SP  * DOUBLE PRECISION TO SINGLE PRECISION          *
*                                                                      *
************************************************************************
  
 AN2AN121 LABEL 
          NOTE   AN2AN121 
          MOVEZ  RECSIZE,SENDSIZE 
          IFZ    (JUSTFLG,EQ,0),AN2AN020
  
*      JUSTIFIED RECEIVING FIELD
  
*                  ARITH21: [(FIXED-1)MOD 10]+1 
          ADDZ   SENDBCP,SIZEDIFF,T1
          REMZ   T1,10,SENDBCP
          QUOTZ  T1,10,ADOFSET
          MOVEZ  (ARITH21,SENDECP),T1 
          IFZ    (T1,LT,RECSIZE),AN2AN265 
  
*      EFFECTIVE BCP OF SOURCE FIELD IS IN LAST WORD- FIND APPROPRIATE
*      SP TO SP CASE
  
          IFZ    (SENDBCP,LT,RECBCP),AN2AN045 
          IFZ    (SENDBCP,EQ,RECBCP),AN2AN020 
          BRANCH AN2AN070 
 VI       EJECT 
************************************************************************
*                                                                      *
*      VI    BS=BR     * BCP OF SOURCE EQUAL TO BCP OF RECEIVING       *
*            DP TO DP  * DOUBLE PRECISION TO DOUBLE PRECISION          *
*                                                                      *
************************************************************************
  
 AN2AN125   LABEL 
          IFZ    (SIZEDIFF,GT,0),AN2AN150 
          IFZ    (SIZEDIFF,LT,0),AN2AN135 
  
************************************************************************
*      GENERATE CODE FOR DP SOURCE FIELD TO DP RECEIVING FIELD HAVING  *
*      THE SAME BCP AND THE SAME SIZE                                  *
************************************************************************
  
 AN2AN130   LABEL 
          NOTE   AN2AN130 
          MOVEZ  SENDBCP,P1 
          SUBZ   K10,SENDBCP,P2 
          CALLZ  LOADIT1   SRCADDR,BS,10-BS;VREGA,VREGB 
          MOVEZ  RECBCP,P3
          MOVEZ  P2,P4
          CALLZ  STORIT1   RECADDR,BR,10-BS,VREGA;VREGC 
          SUBZ   RECECP,10,P6 
          CALLZ  LOADIT2   VREGB,(BR+SR)-10;VREGA,VREGB 
          CALLZ  STORIT2   VREGC,(BR+SR)-10,VREGA;VREGC 
          RETURN
 VI       SPACE  4
*      BEGIN PROCESSING DP SOURCE FIELD TO DP RECEIVING FIELD HAVING
*      THE SAME BCP.  SIZE OF SOURCE FIELD IS LESS THAN SIZE OF 
*      RECEIVING FIELD
  
 AN2AN135   LABEL 
          SUBZ   K0,SIZEDIFF,SIZEDIFF 
  
*      COMMON PARAMETER SETUP FOR ALL SS<SR CASES 
  
          MOVEZ  SENDBCP,P1 
          SUBZ   10,SENDBCP,P2
          MOVEZ  RECBCP,P3
          SUBZ   10,RECBCP,P4 
          MOVEZ  SIZEDIFF,P5
          MOVEZ  RECBCP,P6
  
          IFZ    (JUSTFLG,NE,K0),AN2AN140 
  
************************************************************************
*      GENERATE CODE FOR DP SOURCE FIELD TO NON-JUSTIFIED DP RECEIVING *
*      FIELD HAVING THE SAME BCP.  SIZE OF THE SOURCE FIELD IS LESS    *
*      THAN THE SIZE OF THE RECEIVING FIELD.                           *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P1=BS
*      P2=10-BS 
*      P3=BR
*      P4=10-BR 
*      P5=SR-SS 
*      P6=BR
  
          NOTE   AN2AN135 
          CALLZ  LOADIT1   SRCADDR,BS,10-BS;VREGA,VREGB 
          CALLZ  STORIT1   KR,BR,10-BR,VREGA;VREGC
          REMZ   SENDECP,10,P6
          CALLZ  LOADIT2   VREGB,(BS+SS)MOD 10;VREGA,VREGB
          CALLZ  ADDSPCS   SR-SS,(BS+SS)MOD 10,VREGA;VREGA
          SUBZ   RECECP,10,P6 
          CALLZ  STORIT2   VREGC,(BR+SR)-10,VREGA;VREGC 
          RETURN
 VI       SPACE  4
*      PROCESS DP SOURCE FIELD TO JUSTIFIED DP RECEIVING FIELD WITH SAME
*      BCP.  SIZE OF SOURCE FIELD IS LESS THAN SIZE OF RECEIVING FIELD
  
 AN2AN140   LABEL 
  
*      COMMON PARAMETER SETUP FOR SS<SR JUSTIFIED CASES 
  
*                  ARITH7: 60-6*(FIXED) 
          MOVEZ  (ARITH7,ECPDIFF),SHIFTCT 
  
          SUBZ   RECECP,10,T1 
          IFZ    (T1,LT,SENDSIZE),AN2AN145
  
************************************************************************
*      GENERATE CODE FOR DP SOURCE FIELD TO JUSTIFIED DP RECEIVING     *
*      FIELD HAVING THE SAME BCP.  SIZE OF SOURCE FIELD IS LESS THAN OR*
*      EQUAL TO THE PART OF THE RECEIVING FIELD LYING IN THE SECOND    *
*      WORD                                                            *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P1=BS
*      P2=10-BS 
*      P3=BR
*      P4=10-BR 
*      P5=SR-SS 
*      P6=BR
*      SHIFTCT=60-6*[(BR+SR)-(BS+SS)] 
  
*                  ARITH18: 6*(FIXED)MOD 10 
          NOTE   AN2AN140 
          SUBZ   10,RECBCP,P5 
          CALLZ  GETSPCS   10-BR,BR;VREGA 
          CALLZ  STORIT1   KR,BR,10-BR,VREGA;VREGC
          CALLZ  LOADIT1   KS,BS,10-BS;VREGA,VREGB
          GEN    SHL,VREGA,SHIFTCT
          GENM   LDSPLT2
          REGP   (VREFOF,VREGB),(VREFOF,VREGA),(VREGOF,VREGA) 
            CONP   (ARITH18,SENDECP),SHIFTCT
          ENDG
          ADDZ   RECBCP,SIZEDIFF,P5 
          REMZ   P5,10,P5 
          MOVEZ  K0,P6
          CALLZ  ADDSPCS   [BR+(SR-SS)]MOD 10,0,VREGA;VREGA 
          SUBZ   RECECP,10,P6 
          CALLZ  STORIT2   VREGC,(BR+SR)-10,VREGA;VREGC 
          RETURN
 VI       SPACE  4
************************************************************************
*      GENERATE CODE FOR DP SOURCE FIELD TO JUSTIFIED DP RECEIVING     *
*      FIELD HAVING THE SAME BCP.  SIZE OF SOURCE FIELD IS GREATER THAN*
*      THE PART OF THE RECEIVING FIELD LYING IN THE SECOND WORD, BUT   *
*      LESS THAN THE TOTAL SIZE OF THE RECEIVING FIELD.                *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P1=BS
*      P2=10-BS 
*      P3=BR
*      P4=10-BR 
*      P5=SR-SS 
*      P6=BR
*      SHIFTCT=60-6*[(BR+SR)-(BS+SS)] 
  
*                  ARITH8: 6*FIXED
*                  ARITH18: 6*(FIXED)MOD 10 
 AN2AN145   LABEL 
          NOTE   AN2AN145 
          ADDZ   RECBCP,SIZEDIFF,MASK1
          GENM   LDRTSPLT 
          SYMP   SRCADDR
          REGP   (VREGOF,VREGB),(VREGOF,VREGA),(VREGOF,VREGD) 
            CONP   SHIFTCT,(ARITH8,MASK1),(ARITH8,ECPDIFF)
          ENDG
          CALLZ  ADDSPCS   SR-SS,BR,VREGA;VREGA 
          CALLZ  STORIT1   KR,BR,10-BR,VREGA;VREGC
          GENM   LDSPLT2
          REGP   (VREFOF,VREGB),(VREFOF,VREGD),(VREGOF,VREGA) 
            CONP   (ARITH18,SENDECP),SHIFTCT
          ENDG
          SUBZ   RECECP,10,P6 
          CALLZ  STORIT2   VREGC,(BR+SR)-10,VREGA;VREGC 
          RETURN
 VI       SPACE  4
*      PROCESS DP SOURCE FIELD TO DP RECEIVING FIELD WITH SAME
*      BCP.  SIZE OF SOURCE FIELD IS LARGER THAN SIZE OF RECEIVING
*      FIELD
  
 AN2AN150   LABEL 
          NOTE   AN2AN150 
          MOVEZ  RECSIZE,SENDSIZE 
          IFZ    (JUSTFLG,EQ,K0),AN2AN130 
  
*      JUSTIFIED RECEIVING FIELD
  
          ADDZ   SENDBCP,SIZEDIFF,T1
          REMZ   T1,10,SENDBCP
          QUOTZ  T1,10,ADOFSET
          IFZ    (T1,LT,10),AN2AN295
          BRANCH AN2AN170 
 VII      EJECT 
*      BEGIN PROCESSING DP FIELDS WITH BCP OF SOURCE FIELD LESS THAN BCP
*      OF RECEIVING FIELD 
  
 AN2AN165   LABEL 
          SUBZ   K0,BCPDIFF,BCPDIFF 
          IFZ    (SENDECP,GT,10),AN2AN200 
  
************************************************************************
*                                                                      *
*      VII   BS<BR     * BCP OF SOURCE LESS THAN BCP OF RECEIVING      *
*            SP TO DP  * SINGLE PRECISION TO DOUBLE PRECISION          *
*                                                                      *
************************************************************************
  
          IFZ    (SIZEDIFF,GT,0),AN2AN195 
          IFZ    (SIZEDIFF,LT,0),AN2AN175 
  
*      NOTE-
*      THIS IS THE ONE AND ONLY CASE THAT SHORT LITERAL SOURCE FIELDS 
*      CAN"T BE HANDLED LIKE DATA-NAME SOURCE FIELDS
  
          IFZ    (LITFLG,EQ,0),AN2AN170 
          IFZ    (POOLFLG,NE,0),AN2AN170
  
************************************************************************
*      GENERATE CODE TO MOVE A SHORT LITERAL TO A DP RECEIVING FIELD   *
*      WITH THE SAME SIZE                                              *
************************************************************************
  
*                  ARITH7: 60-6*(FIXED) 
*                  ARITH8: 6*FIXED
*                  ARITH18: 6*(FIXED)MOD 10 
          NOTE   AN2AN165 
          GEN    SXBPK,(VREGOF,VREGA),,(SHOLITOF,MOVEREGA)
          SUBZ   RECBCP,SENDBCP,BCPDIFF 
          GEN    SHL,VREGA,(ARITH7,BCPDIFF) 
          GEN    MASK,(VREGOF,VREGZ),(ARITH18,RECECP) 
          GEN    LAND,(VREGOF,VREGE),VREGZ,VREGA
          GEN    MASK,(VREGOF,VREGY),(ARITH8,RECBCP)
          GEN    LIMP,(VREGOF,VREGA),VREGA,VREGY
          MOVEZ  RECBCP,P3
          SUBZ   10,RECBCP,P4 
          CALLZ  STORIT1   RECADDR,BR,10-BR,VREGA;VREGC 
          MOVEZ  VREGE,VREGA
          REMZ   RECECP,10,P6 
          CALLZ  STORIT2   VREGC,(BR+SR)MOD 10,VREGA;VREGC
          RETURN
 VII      SPACE  4
  
************************************************************************
*      GENERATE CODE FOR SP SOURCE FIELD TO DP RECEIVING FIELD WITH THE*
*      SAME SIZE.  BCP OF SOURCE FIELD IS LESS THAN BCP OF RECEIVING   *
*      FIELD.                                                          *
************************************************************************
  
*      NOTE: FOR THE BENEFIT OF CASES WHICH CHANGE EITHER THE BCP OR THE
*      SIZE OF THE SOURCE FIELD BEFORE BRANCHING HERE, NO ARITH 
*      FUNCTIONS ARE USED ON MOVEREGA AND BCPDIFF IS NOT ASSUMED CORRECT
  
*                  ARITH7: 60-6*(FIXED) 
*                  ARITH8: 6*FIXED
*                  ARITH18: 6*(FIXED)MOD 10 
 AN2AN170   LABEL 
          NOTE   AN2AN170 
          SUBZ   RECBCP,SENDBCP,BCPDIFF 
          GENM   LDRTSPLT 
          SYMP   SRCADDR
          REGP   (VREGOF,VREGB),(VREGOF,VREGA),(VREGOF,VREGE) 
            CONP   (ARITH7,BCPDIFF),(ARITH8,RECBCP),(ARITH18,RECECP)
          ENDG
          MOVEZ  RECBCP,P3
          SUBZ   10,RECBCP,P4 
          CALLZ  STORIT1   RECADDR,BR,10-BR,VREGA;VREGC 
          MOVEZ  VREGE,VREGA
          REMZ   RECECP,10,P6 
          CALLZ  STORIT2   VREGC,(BR+SR)MOD 10,VREGA;VREGC
          RETURN
 VII      SPACE  4
*      BEGIN PROCESSING SP SOURCE FIELD TO DP RECEIVING FIELD.  SIZE OF 
*      SOURCE FIELD IS LESS THAN SIZE OF RECEIVING FIELD.  BCP OF SOURCE
*      FIELD IS LESS THAN BCP OF RECEIVING FIELD. 
  
 AN2AN175   LABEL 
          SUBZ   K0,SIZEDIFF,SIZEDIFF 
  
*      COMMON PARAMETER SETUP FOR ALL SS<SR CASES 
  
          MOVEZ  SENDBCP,P1 
          MOVEZ  SENDSIZE,P2
          MOVEZ  RECBCP,P3
          SUBZ   10,RECBCP,P4 
  
          IFZ    (JUSTFLG,NE,K0),AN2AN185 
  
*      NO JUSTIFICATION 
  
          IFZ    (P4,LT,SENDSIZE),AN2AN180
  
************************************************************************
*      GENERATE CODE FOR SP SOURCE FIELD TO NON-JUSTIFIED DP RECEIVING *
*      FIELD.  BCP OF SOURCE FIELD IS LESS THAN BCP OF RECEIVING FIELD.*
*      SIZE OF SOURCE FIELD IS LESS THAN OR EQUAL TO PART OF RECEIVING *
*      FIELD LYING IN FIRST WORD.                                      *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P1=BS
*      P2=SS
*      P3=BR
*      P4=10-BR 
  
*                  ARITH7: 60-6*FIXED 
          NOTE   AN2AN175 
          CALLZ  LOADIT1   SRCADDR,BS,SS;VREGA,VREGB
          GEN    SHL,(VREFOF,VREGA),(ARITH7,BCPDIFF)
          ADDZ   RECBCP,SENDSIZE,P6 
          SUBZ   10,P6,P5 
          CALLZ  ADDSPCS   10-(BR+SS),BR+SS,VREGA;VREGA 
          CALLZ  STORIT1   RECBCP,BR,10-BR,VREGA;VREGC
          SUBZ   RECECP,10,P5 
          MOVEZ  K0,P6
          CALLZ  GETSPCS   (BR+SR)-10,0;VREGA 
          MOVEZ  P5,P6
          CALLZ  STORIT2   VREGC,(BR+SR)-10,VREGA;VREGC 
          RETURN
 VII      SPACE  4
************************************************************************
*      GENERATE CODE FOR SP SOURCE FIELD TO NON-JUSTIFIED DP RECEIVING *
*      FIELD.  BCP OF SOURCE FIELD IS LESS THAN BCP OF RECEIVING FIELD.*
*      SIZE OF SOURCE FIELD IS LESS THAN SIZE OF RECEIVING FIELD       *
*      SIZE OF SOURCE FIELD IS GREATER THAN PART OF RECEIVING FIELD    *
*      LYING IN FIRST WORD.                                            *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P1=BS
*      P2=SS
*      P3=BR
*      P4=10-BR 
  
*                  ARITH7: 60-6*FIXED 
*                  ARITH8: 6*FIXED
 AN2AN180   LABEL 
          NOTE   AN2AN180 
          ADDZ   RECBCP,SENDSIZE,P6 
          REMZ   P6,10,P6 
          GENM   LDRTSPLT 
          SYMP   SRCADDR
          REGP   (VREGOF,VREGB),(VREGOF,VREGA),(VREGOF,VREGD) 
            CONP   (ARITH7,BCPDIFF),(ARITH8,RECBCP),(ARITH8,P6) 
          ENDG
          CALLZ  STORIT1   RECADDR,BR,10-BR,VREGA;VREGC 
          MOVEZ  VREGD,VREGA
          MOVEZ  SIZEDIFF,P5
          CALLZ  ADDSPCS   SR-SS,(BR+SS)MOD 10,VREGA;VREGA
          SUBZ   RECECP,10,P6 
          CALLZ  STORIT2   VREGC,(BR+SR)-10,VREGA;VREGC 
          RETURN
 VII      SPACE  4
*      PROCESS SP SOURCE FIELD TO JUSTIFIED DP RECEIVING FIELD.  BCP OF 
*      SOURCE FIELD IS LESS THAN BCP OF RECEIVING FIELD 
*      SIZE OF SOURCE FIELD IS LESS THAN SIZE  OF RECEIVING FIELD.
*      NOTICE THESE CASES CAN BE HANDLED THE SAME AS THE CORRESPONDING
*      BS=BR CASES
  
 AN2AN185   LABEL 
          NOTE   AN2AN185 
          BRANCH AN2AN105 
 VII      SPACE  4
*      PROCESS SP SOURCE FIELD TO DP RECEIVING FIELD.  BCP OF SOURCE
*      FIELD IS LESS THAN BCP OF RECEIVING FIELD.  SIZE OF SOURCE FIELD 
*      IS GREATER THAN SIZE OF RECEIVING FIELD
  
 AN2AN195   LABEL 
          NOTE   AN2AN195 
          MOVEZ  RECSIZE,SENDSIZE 
          IFZ    (JUSTFLG,EQ,K0),AN2AN170 
  
*      JUSTIFIED RECEIVING FIELD
  
          ADDZ   SENDBCP,SIZEDIFF,SENDBCP 
          BRANCH AN2AN170 
 VIII     EJECT 
*      PROCESS DP SOURCE FIELD TO SP OR DP RECEIVING FIELD.  BCP OF 
*      SOURCE FIELD IS LESS THAN BCP OF RECEIVING FIELD 
  
 AN2AN200   LABEL 
          IFZ    (RECECP,GT,10),AN2AN205
  
************************************************************************
*                                                                      *
*      VIII  BS<BR     * BCP OF SOURCE LESS THAN BCP OF RECEIVING      *
*            DP TO SP  * DOUBLE PRECISION TO SINGLE PRECISION          *
*                                                                      *
************************************************************************
  
 AN2AN204 LABEL 
          NOTE   AN2AN204 
          MOVEZ  RECSIZE,SENDSIZE 
          IFZ    (JUSTFLG,EQ,K0),AN2AN045 
  
*      JUSTIFIED RECEIVING FIELD
  
*                  ARITH21: [(FIXED-1)MOD 10]+1 
          ADDZ   SENDBCP,SIZEDIFF,T1
          REMZ   T1,10,SENDBCP
          QUOTZ  T1,10,ADOFSET
          IFZ    ((ARITH21,SENDECP),LT,RECSIZE),AN2AN265
  
*      EFFECTIVE BCP OF SOURCE FIELD IS IN LAST WORD- FIND APPROPRIATE
*      SP TO SP CASE
  
          IFZ    (SENDBCP,LT,RECBCP),AN2AN045 
          IFZ    (SENDBCP,GT,RECBCP),AN2AN070 
          BRANCH AN2AN020 
 IX       EJECT 
************************************************************************
*                                                                      *
*      IX    BS<BR     * BCP OF SOURCE LESS THAN BCP OF RECEIVING      *
*            DP TO DP  * DOUBLE PRECISION TO DOUBLE PRECISION          *
*                                                                      *
************************************************************************
  
 AN2AN205   LABEL 
          IFZ    (SIZEDIFF,GT,0),AN2AN230 
          IFZ    (SIZEDIFF,LT,0),AN2AN215 
  
************************************************************************
*      GENERATE CODE FOR DP SOURCE FIELD TO DP RECEIVING FIELD WITH THE*
*      SAME SIZE.  BCP OF SOURCE FIELD IS LESS THAN BCP OF RECEIVING   *
*      FIELD.                                                          *
************************************************************************
  
*      NOTE: FOR THE BENEFIT OF CASES WHICH CHANGE EITHER THE BCP OR THE
*      SIZE OF THE SOURCE FIELD BEFORE BRANCHING HERE, NO ARITH 
*      FUNCTIONS ARE USED ON MOVEREGA AND BCPDIFF IS NOT ASSUMED CORRECT
  
*                  ARITH7: 60-6*FIXED 
*                  ARITH8: 6*FIXED
*                  ARITH18: 6*(FIXED)MOD 10 
 AN2AN210   LABEL 
          NOTE   AN2AN210 
          SUBZ   RECBCP,SENDBCP,BCPDIFF 
          MOVEZ  (ARITH7,BCPDIFF),SHIFTCT 
          GENM   LDRTSPLT 
          SYMP   SRCADDR
          REGP   (VREGOF,VREGB),(VREGOF,VREGA),(VREGOF,VREGD) 
            CONP   SHIFTCT,(ARITH8,RECBCP),(ARITH8,BCPDIFF) 
          ENDG
          MOVEZ  RECBCP,P3
          SUBZ   10,RECBCP,P4 
          CALLZ  STORIT1   RECADDR,BR,10-BR,VREGA;VREGC 
          ADDZ   SENDBCP,SENDSIZE,SENDECP 
          GENM   LDSPLT2
          REGP   (VREFOF,VREGB),(VREFOF,VREGD),(VREGOF,VREGA) 
            CONP   (ARITH18,SENDECP),SHIFTCT
          ENDG
          SUBZ   RECECP,10,P6 
          CALLZ  STORIT2   VREGC,(BR+SR)-10,VREGA;VREGC 
          RETURN
 IX       SPACE  4
*      BEGIN PROCESSING DP SOURCE FIELD TO OP RECEIVING FIELD.  BCP OF
*      SOURCE FIELD IS LESS THAN BCP FO RECEIVING FIELD.  SIZE OF SOURCE
*      FIELD IS LESS THAN SIZE OF RECEIVING FIELD.
  
 AN2AN215   LABEL 
          NOTE   AN2AN215 
          IFZ    (JUSTFLG,NE,0),AN2AN135
  
************************************************************************
*      GENERATE CODE FOR DP SOURCE FIELD TO NON-JUSTIFIED DP RECEIVING *
*      FIELD.  BCP OF SOURCE FIELD IS LESS THAN BCP OF RECEIVING FIELD.*
*      SIZE OF SOURCE FIELD IS LESS THAN SIZE OF RECEIVING FIELD.      *
************************************************************************
  
*                  ARITH7: 60-6*FIXED 
*                  ARITH8: 6*FIXED
*                  ARITH18: 6*(FIXED)MOD 10 
          MOVEZ  (ARITH7,BCPDIFF),SHIFTCT 
          GENM   LDRTSPLT 
          SYMP   SRCADDR
          REGP   (VREGOF,VREGB),(VREGOF,VREGA),(VREGOF,VREGD) 
            CONP   SHIFTCT,(ARITH8,RECBCP),(ARITH8,BCPDIFF) 
          ENDG
          MOVEZ  RECBCP,P3
          SUBZ   10,RECBCP,P4 
          CALLZ  STORIT1   RECADDR,BR,10-BR,VREGA;VREGC 
          GENM   LDSPLT2
          REGP   (VREFOF,VREGB),(VREFOF,VREGD),(VREGOF,VREGA) 
            CONP   (ARITH18,SENDECP),SHIFTCT
          ENDG
          SUBZ   0,SIZEDIFF,P5
          ADDZ   RECBCP,SENDSIZE,P6 
          REMZ   P6,10,P6 
          CALLZ  ADDSPCS   SR-SS,(BR+SS)MOD 10,VREGA;VREGA
          SUBZ   RECECP,10,P6 
          CALLZ  STORIT2   VREGC,(BR+SR)-10,VREGA;VREGC 
          RETURN
 IX       SPACE  4
*      PROCESS DP SOURCE FIELD TO DP RECEIVING FIELD.  BCP OF SOURCE
*      FIELD IS LESS THAN BCP OF RECEIVING FIELD.  SIZE OF SOURCE FIELD 
*      IS GREATER THAN SIZE OF RECEIVING FIELD
  
 AN2AN230   LABEL 
          MOVEZ  RECSIZE,SENDSIZE 
          IFZ    (JUSTFLG,NE,0),AN2AN235
  
*      NO JUSTIFICATION 
  
          NOTE   AN2AN230 
          ADDZ   SENDBCP,RECSIZE,T1 
          IFZ    (T1,LE,10),AN2AN170
          BRANCH AN2AN210 
  
*      PROCESS DP SOURCE FIELD TO JUSTIFIED DP RECEIVING FIELD.  SIZE OF
*      SOURCE FIELD IS GREATER THAN SIZE OF RECEIVING FIELD.  BCP OF
*      SOURCE FIELD IS LESS THAN BCP OF RECEIVING FIELD 
  
 AN2AN235   LABEL 
          NOTE   AN2AN235 
          ADDZ   SENDBCP,SIZEDIFF,T1
          REMZ   T1,10,SENDBCP
          QUOTZ  T1,10,ADOFSET
          IFZ    (T1,EQ,RECBCP),AN2AN130
          IFZ    (T1,GE,10),AN2AN170   SP SOURCE
          IFZ    (SENDBCP,GT,RECBCP),AN2AN295 
          BRANCH AN2AN210 
 X        EJECT 
  
*      PROCESS DP FIELDS WITH BCP OF SOURCE FIELD GREATER THAN BCP OF 
*      RECEIVING FIELD
  
 AN2AN240   LABEL 
          IFZ    (SENDECP,GT,10),AN2AN260 
  
************************************************************************
*                                                                      *
*      X     BS>BR     * BCP OF SOURCE GREATER THAN BCP OF RECEIVING   *
*            SP TO DP  * SINGLE PRECISION TO DOUBLE PRECISION          *
*                                                                      *
************************************************************************
  
          NOTE   AN2AN240 
          SUBZ   0,SIZEDIFF,SIZEDIFF
  
*      COMMON PARAMETER SETUP FOR ALL CASES 
  
          MOVEZ  SENDBCP,P1 
          MOVEZ  SENDSIZE,P2
          MOVEZ  RECBCP,P3
          SUBZ   10,RECBCP,P4 
  
          IFZ    (JUSTFLG,NE,0),AN2AN105
  
************************************************************************
*      GENERATE CODE FOR SP SOURCE FIELD TO NON-JUSTIFIED DP RECEIVING *
*      FIELD.  BCP OF SOURCE FIELD IS GREATER THAN BCP OF RECEIVING    *
*      FIELD.  SIZE OF SOURCE FIELD IS LESS THAN SIZE OF RECEIVING     *
*      FIELD.                                                          *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P1=BS
*      P2=SS
*      P3=BR
*      P4=10-BR 
  
*                  ARITH8: 6*FIXED
          CALLZ  LOADIT1   SRCADDR,BS,SS;VREGA,VREGB
          GEN    SHL,(VREFOF,VREGA),(ARITH8,BCPDIFF)
          ADDZ   RECBCP,SENDSIZE,P6 
          SUBZ   10,P6,P5 
          CALLZ  ADDSPCS   10-(BR+SS),BR+SS,VREGA;VREGA 
          CALLZ  STORIT1   RECADDR,BR,10-BR,VREGA;VREGC 
          SUBZ   RECECP,10,P5 
          MOVEZ  K0,P6
          CALLZ  GETSPCS   (BR+SR)-10,0;VREGA 
          MOVEZ  P5,P6
          CALLZ  STORIT2   VREGC,(BR+SR)-10,VREGA;VREGC 
          RETURN
 XI       EJECT 
*      PROCESS DP SOURCE FIELD TO SP OR DP RECEIVING FIELD
  
 AN2AN260   LABEL 
          IFZ    (RECECP,GT,10),AN2AN290
  
************************************************************************
*                                                                      *
*      XI    BS>BR     * BCP OF SOURCE GREATER THAN BCP OF RECEIVING   *
*            DP TO SP  * DOUBLE PRECISION TO SINGLE PRECISION          *
*                                                                      *
************************************************************************
  
          SUBZ   0,ECPDIFF,ECPDIFF
          IFZ    (SIZEDIFF,GT,0),AN2AN280 
          IFZ    (SIZEDIFF,LT,0),AN2AN270 
  
************************************************************************
*      GENERATE CODE FOR DP SOURCE FIELD TO SP RECEIVING FIELD HAVING  *
*      THE SAME SIZE.  BCP OF SOURCE FIELD IS GREATER THAN BCP OF      *
*      RECEIVING FIELD.                                                *
************************************************************************
  
*      NOTE: FOR THE BENEFIT OF CASES WHICH CHANGE EITHER THE BCP OR
*      THE SIZE OF THE SOURCE FIELD BEFORE BRANCHING HERE, NO ARITH 
*      FUNCTIONS ARE USED ON MOVEREGA AND BCPDIFF IS NOT ASSUMED CORRECT
  
*                  ARITH18: 6*(FIXED)MOD 10 
 AN2AN265   LABEL 
          NOTE   AN2AN265 
          MOVEZ  SENDBCP,P1 
          SUBZ   10,SENDBCP,P2
          CALLZ  LOADIT1   SRCADDR,BS,10-BS;VREGA,VREGB 
          SUBZ   SENDBCP,RECBCP,BCPDIFF 
          MULTZ  6,BCPDIFF,SHIFTCT
          GEN    SHL,VREGA,SHIFTCT
          ADDZ   SENDBCP,RECSIZE,MASK1
          GENM   LDSPLT2
          REGP   (VREFOF,VREGB),(VREFOF,VREGA),(VREGOF,VREGA) 
            CONP   (ARITH18,MASK1),SHIFTCT
          ENDG
          MOVEZ  RECBCP,P3
          MOVEZ  RECSIZE,P4 
          CALLZ  STORIT1   RECADDR,BR,SR,VREGA;VREGC
          RETURN
 XI       SPACE  4
*      BEGIN PROCESSING DP SOURCE FIELD TO SP RECEIVING FIELD.  BCP OF
*      SOURCE FIELD IS GREATER THAN BCP OF RECEIVING FIELD.  SIZE OF
*      SOURCE FIELD IS LESS THAN SIZE OF RECEIVING FIELD. 
  
 AN2AN270   LABEL 
          SUBZ   0,SIZEDIFF,SIZEDIFF
  
*      COMMON PARAMETER SETUP FOR ALL SS<SR CASES 
  
          MOVEZ  SENDBCP,P1 
          SUBZ   10,SENDBCP,P2
          MOVEZ  RECBCP,P3
          MOVEZ  RECSIZE,P4 
          MOVEZ  SIZEDIFF,P5
  
          IFZ    (JUSTFLG,NE,0),AN2AN275
  
************************************************************************
*      GENERATE CODE FOR DP SOURCE FIELD TO NON-JUSTIFIED SP RECEIVING *
*      FIELD.  BCP OF SOURCE FIELD IS GREATER THAN BCP OF RECEIVING    *
*      FIELD.  SIZE OF SOURCE FIELD IS LESS THAN SIZE OF RECEIVING     *
*      FIELD.                                                          *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P1=BS
*      P2=10-BS 
*      P3=BR
*      P4=10-BR 
*      P5=SR-SS 
  
*                  ARITH18: 6*(FIXED)MOD 10 
          NOTE   AN2AN270 
          CALLZ  LOADIT1   SRCADDR,BS,10-BS;VREGA,VREGB 
          MULTZ  6,BCPDIFF,SHIFTCT
          GEN    SHL,VREGA,SHIFTCT
          GENM   LDSPLT2
          REGP   (VREFOF,VREGB),(VREFOF,VREGA),(VREGOF,VREGA) 
            CONP   (ARITH18,SENDECP),SHIFTCT
          ENDG
          ADDZ   RECBCP,SENDSIZE,P6 
          CALLZ  ADDSPCS   SR-SS,BR+SS,VREGA;VREGA
          CALLZ  STORIT1   RECADDR,BR,SR,VREGA;VREGC
          RETURN
 XI       SPACE  4
************************************************************************
*      GENERATE CODE FOR DP SOURCE FIELD TO JUSTIFIED SP RECEIVING     *
*      FIELD.  BCP OF SOURCE FIELD IS GREATER THAN BCP OF RECEIVING    *
*      FIELD.  SIZE OF SOURCE FIELD IS LESS THAN SIZE OF RECEIVING     *
*      FIELD.                                                          *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P1=BS
*      P2=10-BS 
*      P3=BR
*      P4=10-BR 
*      P5=SR-SS 
  
*                  ARITH18: 6*(FIXED)MOD 10 
 AN2AN275   LABEL 
          NOTE   AN2AN275 
          CALLZ  LOADIT1   SRCADDR,BS,10-BS;VREGA,VREGB 
          MULTZ  6,ECPDIFF,SHIFTCT
          GEN    SHL,VREGA,SHIFTCT
          GENM   LDSPLT2
          REGP   (VREFOF,VREGB),(VREFOF,VREGA),(VREGOF,VREGA) 
            CONP   (ARITH18,SENDECP),SHIFTCT
          ENDG
          MOVEZ  RECBCP,P6
          CALLZ  ADDSPCS   SR-SS,BR,VREGA;VREGA 
          CALLZ  STORIT1   RECADDR,BR,SR,VREGA;VREGC
          RETURN
 XI       SPACE  4
*      PROCESS DP SOURCE FIELD TO SP RECEIVING FIELD.  BCP OF SOURCE
*      FIELD IS GREATER THAN BCP OF RECEIVING FIELD.  SIZE OF SOURCE
*      FIELD IS GREATER THAN SIZE OF RECEIVING FIELD
  
 AN2AN280   LABEL 
          MOVEZ  RECSIZE,SENDSIZE 
          IFZ    (JUSTFLG,NE,0),AN2AN285
  
*      NO JUSTIFICATION 
  
          NOTE   AN2AN280 
          ADDZ   SENDBCP,RECSIZE,T1 
          IFZ    (T1,LE,10),AN2AN070
          BRANCH AN2AN265 
  
*      PROCESS DP SOURCE FIELD TO JUSTIFIED SP RECEIVING FIELD.  BCP OF 
*      SOURCE FIELD IS GREATER THAN BCP OF RECEIVING FIELD.  SIZE OF
*      SOURCE FIELD IS GREATER THAN SIZE OF RECEIVING FIELD 
  
*                  ARITH21: [(FIXED-1)MOD 10]+1 
 AN2AN285   LABEL 
          NOTE   AN2AN285 
          ADDZ   SENDBCP,SIZEDIFF,T1
          REMZ   T1,10,SENDBCP
          QUOTZ  T1,10,ADOFSET
          IFZ    ((ARITH21,SENDECP),LT,RECSIZE),AN2AN265
  
*      SOURCE FIELD IS EFFECTIVELY SP- FIND APPROPRIATE SP TO SP CASE 
  
          IFZ    (SENDBCP,LT,RECBCP),AN2AN045 
          IFZ    (SENDBCP,EQ,RECBCP),AN2AN020 
          BRANCH AN2AN070 
 XII      EJECT 
************************************************************************
*      XII   BS>BR     * BCP OF SOURCE GREATER THAN BCP OF RECEIVING   *
*            DP TO DP  * DOUBLE PRECISION TO DOUBLE PRECISION          *
************************************************************************
  
 AN2AN290   LABEL 
          IFZ    (SIZEDIFF,GT,0),AN2AN330 
          IFZ    (SIZEDIFF,LT,0),AN2AN300 
  
************************************************************************
*      GENERATE CODE FOR DP SOURCE FIELD TO DP RECEIVING FIELD HAVING  *
*      THE SAME SIZE.  BCP OF SOURCE FIELD IS GREATER THAN BCP OF      *
*      RECEIVING FIELD                                                 *
************************************************************************
  
*      NOTE: FOR THE BENEFIT OF CASES WHICH CHANGE EITHER THE BCP OR THE
*      SIZE OF THE SOURCE FIELD BEFORE BRANCHING HERE, NO ARITH 
*      FUNCTIONS ARE USED ON MOVEREGA AND BCPDIFF IS NOT ASSUMED CORRECT
  
*                  ARITH7: 60-6*FIXED 
*                  ARITH18: 6*(FIXED)MOD 10 
 AN2AN295   LABEL 
          NOTE   AN2AN295 
          MOVEZ  SENDBCP,P1 
          SUBZ   10,SENDBCP,P2
          CALLZ  LOADIT1   SRCADDR,BS,10-BS;VREGA,VREGB 
          SUBZ   SENDBCP,RECBCP,BCPDIFF 
          MULTZ  6,BCPDIFF,SHIFTCT
          GENM   LD2LFSPL 
            REGP   VREGB,(VREGOF,VREGB),(VREGOF,VREGE),(VREGOF,VREGF) 
            CONP   SHIFTCT,(ARITH7,BCPDIFF),(ARITH18,RECECP)
          GEN    SHL,VREGA,SHIFTCT
          ENDG
          GEN    LOR,(VREGOF,VREGA),VREGA,VREGE 
          MOVEZ  RECBCP,P3
          SUBZ   10,RECBCP,P4 
          CALLZ  STORIT1   RECADDR,BR,10-BR,VREGA;VREGC 
          MOVEZ  VREGF,VREGA
          REMZ   RECECP,10,P6 
          CALLZ  STORIT2   VREGC,(BR+SR)MOD 10,VREGA;VREGC
          RETURN
 XII      SPACE  4
*      BEGIN PROCESSING DP SOURCE FIELD TO DP RECEIVING FIELD.  BCP OF
*      SOURCE FIELD IS GREATER THAN BCP OF RECEIVING FIELD.  SIZE OF
*      SOURCE FIELD IS LESS THAN SIZE OF RECEIVING FIELD. 
  
 AN2AN300   LABEL 
          SUBZ   0,SIZEDIFF,SIZEDIFF
  
*      COMMON PARAMETER SETUP FOR ALL SS<SR CASES 
  
          MOVEZ  SENDBCP,P1 
          SUBZ   10,SENDBCP,P2
          MOVEZ  RECBCP,P3
          SUBZ   10,RECBCP,P4 
  
          IFZ    (JUSTFLG,NE,0),AN2AN310
  
*      NO JUSTIFICATION 
  
*      COMMON PARAMETER SETUP FOR SS<SR NON-JUSTIFIED CASES 
  
          MULTZ  6,BCPDIFF,SHIFTCT
  
          IFZ    (P4,LT,SENDSIZE),AN2AN305
  
************************************************************************
*      GENERATE CODE FOR DP SOURCE FIELD TO NON-JUSTIFIED DP RECEIVING *
*      FIELD.  BCP OF SOURCE FIELD IS GREATER THAN BCP OF RECEIVING    *
*      FIELD.  SIZE OF SOURCE FIELD IS LESS THAN OR EQUAL TO PART OF   *
*      RECEIVING FIELD LYING IN FIRST WORD                             *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P1=BS
*      P2=10-BS 
*      P3=BR
*      P4=10-BR 
*      SHIFTCT=6*(BS-BR)
  
*                  ARITH18: 6*(FIXED)MOD 10 
          NOTE   AN2AN300 
          CALLZ  LOADIT1   SRCADDR,BS,10-BS;VREGA,VREGB 
          GEN    SHL,VREGA,SHIFTCT
          GENM   LDSPLT2
          REGP   (VREFOF,VREGB),(VREFOF,VREGA),(VREGOF,VREGA) 
            CONP   (ARITH18,SENDECP),SHIFTCT
          ENDG
          ADDZ   RECBCP,SENDSIZE,P6 
          SUBZ   10,P6,P5 
          CALLZ  ADDSPCS   10-(BR+SS),BR+SS,VREGA;VREGA 
          CALLZ  STORIT1   RECADDR,BR,10-BR,VREGA; VREGC
          SUBZ   RECECP,10,P5 
          MOVEZ  0,P6 
          CALLZ  GETSPCS   (BR+SR)-10,0;VREGA 
          MOVEZ  P5,P6
          CALLZ  STORIT2   VREGC,(BR+SR)-10,VREGA;VREGC 
          RETURN
 XII      SPACE  4
************************************************************************
*      GENERATE CODE FOR DP SOURCE FIELD TO NON-JUSTIFIED DP RECEIVING *
*      FIELD.  BCP OF SOURCE FIELD IS GREATER THAN BCP OF RECEIVING    *
*      FIELD.  SIZE OF SOURCE FIELD IS GREATER THAN PART OF RECEIVING  *
*      FIELD LYING IN FIRST WORD BUT LESS THAN TOTAL SIZE OF RECEIVING *
*      FIELD                                                           *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P1=BS
*      P2=10-BS 
*      P3=BR
*      P4=10-BR 
*      SHIFTCT=6*(BS-BR)
  
*                  ARITH7: 60-6*FIXED 
*                  ARITH8: 6*FIXED
 AN2AN305   LABEL 
          NOTE   AN2AN305 
          CALLZ  LOADIT1   SRCADDR,BS,10-BS;VREGA,VREGB 
          GEN    SHL,VREGA,SHIFTCT
          ADDZ   RECBCP,SENDSIZE,P6 
          REMZ   P6,10,P6 
          GENM   LD2LFSPL 
            REGP   VREGB,(VREGOF,VREGB),(VREGOF,VREGE),(VREGOF,VREGF) 
            CONP   SHIFTCT,(ARITH7,BCPDIFF),(ARITH8,P6) 
          ENDG
          GEN    LOR,(VREGOF,VREGA),VREGA,VREGE 
          CALLZ  STORIT1   RECADDR,BR,10-BR,VREGA;VREGC 
          MOVEZ  VREGF,VREGA
          MOVEZ  SIZEDIFF,P5
          CALLZ  ADDSPCS   SR-SS,(BR+SS)MOD 10,VREGA;VREGA
          SUBZ   RECECP,10,P6 
          CALLZ  STORIT2   VREGC,(BR+SR)-10,VREGA;VREGC 
          RETURN
 XII      SPACE  4
*      PROCESS DP SOURCE FIELD TO JUSTIFIED DP RECEIVING FIELD.  BCP OF 
*      SOURCE FIELD IS GREATER THAN BCP OF RECEIVING FIELD.  SIZE OF
*      SOURCE FIELD IS LESS THAN SIZE OF RECEIVING FIELD
  
 AN2AN310   LABEL 
  
*      COMMON PARAMETER SETUP  FOR SS<SR JUSTIFIED CASES
  
*                  ARITH7: 60-6*(FIXED) 
          MOVEZ  SIZEDIFF,P5
          MOVEZ  RECBCP,P6
          MOVEZ  (ARITH7,ECPDIFF),SHIFTCT 
  
          IFZ    (SENDECP,GT,RECECP),AN2AN325 
          NOTE   AN2AN310 
          IFZ    (SENDECP,LT,RECECP),AN2AN140 
  
************************************************************************
*      GENERATE CODE FOR DP SOURCE FIELD TO JUSTIFIED DP RECEIVING     *
*      FIELD WITH SAME ECP.  BCP OF SOURCE FIELD IS GREATER THAN BCP   *
*      OF RECEIVING FIELD.  SIZE OF SOURCE FIELD IS LESS THAN SIZE     *
*      OF RECEIVING FIELD.                                             *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P1=BS
*      P2=10-BS 
*      P3=BR
*      P4=10-BR 
*      P5=SR-SS 
*      P6=BR
  
          CALLZ  LOADIT1   SRCADDR,BS,10-BS;VREGA,VREGB 
          CALLZ  ADDSPCS   SR-SS,BR,VREGA;VREGA 
          CALLZ  STORIT1   RECADDR,BR,10-BR,VREGA;VREGC 
          SUBZ   SENDECP,10,P6
          CALLZ  LOADIT2   VREGB,(BS+SS)-10;VREGA,VREGB 
          CALLZ  STORIT2   VREGC,(BS+SS)-10,VREGA;VREGC 
          RETURN
 XII      SPACE  4
************************************************************************
*      GENERATE CODE FOR DP SOURCE FIELD TO JUSTIFIED DP RECEIVING     *
*      FIELD.  BCP OF SOURCE FIELD IS GREATER THAN BCP OF RECEIVING    *
*      FIELD.  SIZE OF SOURCE FIELD IS LESS THAN SIZE OF RECEIVING     *
*      FIELD.  ECP OF SOURCE FIELD IS GREATER THAN ECP OF RECEIVING    *
*      FIELD.                                                          *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P1=BS
*      P2=10-BS 
*      P3=BR
*      P4=10-BR 
*      P5=SR-SS 
*      P6=BR
  
*                  ARITH7:  60-6*(FIXED)
*                  ARITH18: 6*(FIXED)MOD 10 
 AN2AN325   LABEL 
          NOTE   AN2AN325 
          CALLZ  LOADIT1   SRCADDR,BS,10-BS;VREGA,VREGB 
          SUBZ   0,ECPDIFF,ECPDIFF
          MULTZ  6,ECPDIFF,SHIFTCT
          GEN    SHL,VREGA,SHIFTCT
          CALLZ  ADDSPCS   SR-SS,BR,VREGA;VREGA 
          GENM   LD2LFSPL 
            REGP   VREGB,(VREGOF,VREGB),(VREGOF,VREGE),(VREGOF,VREGF) 
            CONP   SHIFTCT,(ARITH7,ECPDIFF),(ARITH18,RECECP)
          ENDG
          GEN    LOR,(VREGOF,VREGA),VREGA,VREGE 
          CALLZ  STORIT1    SRCADDR,BR,10-BR,VREGA;VREGC
          MOVEZ  VREGF,VREGA
          REMZ   RECECP,10,P6 
          CALLZ  STORIT2   VREGC,(BR+SR)MOD 10,VREGA;VREGC
          RETURN
 XII      SPACE  4
*      PROCESS DP SOURCE FIELD TO DP RECEIVING FIELD.  BCP OF SOURCE
*      FIELD IS GREATER THAN BCP OF RECEIVING FIELD.  SIZE OF SOURCE
*      FIELD IS GREATER THAN SIZE OF RECEIVING FIELD. 
  
 AN2AN330   LABEL 
          NOTE   AN2AN330 
          MOVEZ  RECSIZE,SENDSIZE 
          IFZ    (JUSTFLG,EQ,0),AN2AN295
  
*      JUSTIFIED RECEIVING FIELD
  
          ADDZ   SENDBCP,SIZEDIFF,T1
          REMZ   T1,10,SENDBCP
          QUOTZ  T1,10,ADOFSET
          IFZ    (T1,LT,10),AN2AN295
          BRANCH AN2AN170 
 XIII     EJECT 
*      TRIPLE PRECISION SOURCE AND RECEIVING FIELD PROCESSING BEGINS
*      HERE. BOTH MUST BE CONTAINED ENTIRELY WITHIN THREE WORDS, BUT AT 
*      LEAST ONE OVERLAPS BOTH BOUNDARIES OF THE MIDDLE WORD. 
  
 AN2AN400   LABEL 
          IFZ    (BCPDIFF,GT,0),AN2AN625
          IFZ    (BCPDIFF,LT,0),AN2AN505
  
*      BCP OF SOURCE FIELD EQUAL TO BCP OF RECEIVING FIELD
  
          IFZ    (SENDECP,GT,20),AN2AN465 
  
*      THE SIZE OF THE TP RECEIVING FIELD MUST BE LARGER THAN THE SIZE
*      OF THE SP OR DP SOURCE FIELD 
  
          SUBZ   0,SIZEDIFF,SIZEDIFF
  
          IFZ    (SENDECP,GT,10),AN2AN430 
  
************************************************************************
*                                                                      *
*      XIII  BS=BR     * BCP OF SOURCE EQUAL TO BCP OF RECEIVING       *
*            SP TO TP  * SINGLE PRECISION TO TRIPLE PRECISION          *
*                                                                      *
************************************************************************
  
  
*      COMMON PARAMETER SETUP FOR ALL CASES 
  
          MOVEZ  SENDBCP,P1 
          MOVEZ  SENDSIZE,P2
          MOVEZ  RECBCP,P3
          SUBZ   10,RECBCP,P4 
  
          IFZ    (JUSTFLG,NE,0),AN2AN410
  
************************************************************************
*      GENERATE CODE FOR SP SOURCE FIELD TO NON-JUSTIFIED TP RECEIVING *
*      FIELD WITH SAME BCP                                             *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED 
  
*      P1=BS
*      P2=SS
*      P3=BR
*      P4=10-BR 
  
          NOTE   AN2AN400 
          CALLZ  LOADIT1   SRCADDR,BS,SS;VREGA,VREGB
          ADDZ   RECBCP,SENDSIZE,P6 
          SUBZ   10,P6,P5 
          CALLZ  ADDSPCS   10-(BR+SS),BR+SS,VREGA;VREGA 
          CALLZ  STORIT1   RECADDR,BR,10-BR,VREGA;VREGC 
          MOVEZ  1,P5 
          SUBZ   RECECP,20,P6 
          CALLZ  SPCFLRT   1,(BR+SR)-20,VREGC 
          RETURN
 XIII     SPACE  4
*      PROCESS SP SOURCE FIELD TO JUSTIFIED TP RECEIVING FIELD HAVING 
*      SAME BCP 
  
 AN2AN410   LABEL 
  
*      COMMON PARAMETER SETUP FOR JUSTIFIED CASES 
  
          SUBZ   10,RECBCP,P5 
          MOVEZ  RECBCP,P6
  
          SUBZ   RECECP,20,T1 
          IFZ    (T1,LT,SENDSIZE),AN2AN425
  
************************************************************************
*      GENERATE CODE FOR SP SOURCE FIELD TO JUSTIFIED TP RECEIVING     *
*      FIELD WITH THE SAME BCP.  SIZE OF SOURCE FIELD IS LESS THAN OR  *
*      EQUAL TO THE PART OF THE RECEIVING FIELD LYING IN THE THIRD WORD*
*      NOTICE THAT IF THE ECP OF THE SOURCE FIELD IS EQUAL TO THE ECP  *
*      OF THE RECEIVING FIELD, WE DO NOT HAVE TO GENERATE A SHIFT      *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P1=BS
*      P2=SS
*      P3=BR
*      P4=10-BR 
*      P5=10-BR 
*      P6=BR
  
*                  ARITH19: 60-6*(FIXED)MOD 10
          NOTE   AN2AN410 
          CALLZ  GETSPCS   10-BR,BR;VREGA 
          CALLZ  STORIT1   RECADDR,BR,10-BR,VREGA;VREGC 
          MOVEZ  10,P5
          MOVEZ  0,P6 
          CALLZ  GETSPCS
          MOVEZ  VREGA,VREGB
          MOVEZ  10,P6
          CALLZ  STORIT2   VREGC,10,VREGA;VREGC 
          CALLZ  LOADIT1   SRCADDR,BS,SS;VREGA,VREGB
          IFTHEN (ECPDIFF,NE,20)
            GEN    SHL,VREGA,(ARITH19,ECPDIFF)
          ENDIFZ
          ADDZ   RECBCP,SIZEDIFF,P5 
          REMZ   P5,10,P5 
          MOVEZ  0,P6 
          CALLZ  ADDSPCS   [BR+(SR-SS)]MOD 10,0,VREGA;VREGC 
          SUBZ   RECECP,20,P6 
          CALLZ  STORIT2   VREGC,(BR+SR)-20,VREGA;VREGC 
          RETURN
 XIII  SPACE  4 
************************************************************************
*      GENERATE CODE FOR SP SOURCE FIELD TO JUSTIFIED TP RECEIVING     *
*      FIELD WITH SAME BCP.  SIZE OF SOURCE FIELD IS GREATER THAN PART *
*      OF RECEIVING FIELD LYING IN THIRD WORD.                         *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P1=BS
*      P2=SS
*      P3=BR
*      P4=10-BR 
*      P5=10-BR 
*      P6=BR
  
*                  ARITH8: 6*FIXED
*                  ARITH18: 6*(FIXED)MOD 10 
*                  ARITH19:  60-6*(FIXED)MOD 10 
 AN2AN425   LABEL 
          NOTE   AN2AN425 
          CALLZ  GETSPCS   10-BR,BR;VREGA 
          CALLZ  STORIT1   RECADDR,BR,10-BR,VREGA;VREGC 
          ADDZ   RECBCP,SIZEDIFF,P5 
          REMZ   P5,10,P5 
          GENM   LDRTSPLT 
          SYMP   SRCADDR
          REGP   (VREGOF,VREGB),(VREGOF,VREGA),(VREGOF,VREGE) 
            CONP   (ARITH19,ECPDIFF),(ARITH8,P5),(ARITH18,RECECP) 
          ENDG
          MOVEZ  0,P6 
          CALLZ  ADDSPCS   [BR+(SR-SS)]MOD 10,0,VREGA;VREGA 
          MOVEZ  10,P6
          CALLZ  STORIT2   VREGC,10,VREGA;VREGC 
          MOVEZ  VREGE,VREGA
          REMZ   RECECP,10,P6 
          CALLZ  STORIT2   VREGC,(BR+SR)MOD 10,VREGA;VREGC
          RETURN
 XIV      EJECT 
************************************************************************
*                                                                      *
*      XIV   BS=BR     * BCP OF SOURCE EQUAL TO BCP OF RECEIVING       *
*            DP TO TP  * DOUBLE PRECISION TO TRIPLE PRECISION          *
*                                                                      *
************************************************************************
  
 AN2AN430   LABEL 
  
*      COMMON PARAMETER SETUP FOR ALL CASES 
  
          MOVEZ  SENDBCP,P1 
          SUBZ   10,SENDBCP,P2
          MOVEZ  RECBCP,P3
          SUBZ   10,RECBCP,P4 
  
          IFZ    (JUSTFLG,NE,0),AN2AN440
  
************************************************************************
*      GENERATE CODE FOR DP SOURCE FIELD TO NON-JUSTIFIED TP RECEIVING *
*      FIELD WITH THE SAME BCP.                                        *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P1=BS
*      P2=10-BS 
*      P3=BR
*      P4=10-BR 
  
          NOTE   AN2AN430 
          CALLZ  LOADIT1   SRCADDR,BS,10-BS;VREGA,VREGB 
          CALLZ  STORIT1   RECADDR,BR,10-BR,VREGA;VREGC 
          SUBZ   SENDECP,10,P6
          CALLZ  LOADIT2   VREGB,(BS+SS)-10;VREGA,VREGB 
          SUBZ   20,SENDECP,P5
          CALLZ  ADDSPCS   20-(BS+SS),(BS+SS)-10,VREGA;VREGA
          MOVEZ  10,P6
          CALLZ  STORIT2   VREGC,10,VREGA;VREGC 
          SUBZ   RECECP,20,P5 
          MOVEZ  0,P6 
          CALLZ  GETSPCS   (BR+SR)-20,0;VREGA 
          MOVEZ  P5,P6
          CALLZ  STORIT2   VREGC,(BR+SR)-20,VREGA;VREGC 
          RETURN
 XIV      SPACE  4
*      PROCESS DP SOURCE FIELD TO JUSTIFIED TP RECEIVING FIELD
*      WITH SAME BCP
  
 AN2AN440   LABEL 
  
*      COMMON PARAMETER SETUP FOR ALL JUSTIFIED CASES 
  
*                  ARITH19: 60-6*(FIXED)MOD 10
          SUBZ   10,RECBCP,P5 
          MOVEZ  RECBCP,P6
          MOVEZ  (ARITH19,ECPDIFF),SHIFTCT
  
          SUBZ   RECECP,20,T1 
          IFZ    (T1,LT,SENDSIZE),AN2AN443
  
************************************************************************
*      GENERATE CODE FOR DP SOURCE FIELD TO JUSTIFIED TP RECEIVING     *
*      HAVING SAME BCP.  SIZE OF SOURCE FIELD IS LESS THAN  OR EQUAL TO*
*      PART OF RECEIVING FIELD LYING IN THIRD WORD                     *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P1=BS
*      P2=10-BS 
*      P3=BR
*      P4=10-BR 
*      P5=10-BR 
*      P6=BR
*      SHIFTCT=60-6*[(BR+SR)-(BS+SS)]MOD 10 
  
*                  ARITH18: 6*(FIXED)MOD 10 
          NOTE   AN2AN440 
          CALLZ  GETSPCS   10-BR,BR;VREGA 
          CALLZ  STORIT1   RECADDR,BR,10-BR,VREGA;VREGC 
          MOVEZ  10,P5
          MOVEZ  0,P6 
          CALLZ  GETSPCS
          MOVEZ  VREGA,VREGB
          MOVEZ  10,P6
          CALLZ  STORIT2   VREGC,10,VREGA;VREGC 
          CALLZ  LOADIT1   SRCADDR,BS,10-BS;VREGA,VREGB 
          GEN    SHL,VREGA,SHIFTCT
          GENM   LDSPLT2
          REGP   (VREFOF,VREGB),(VREFOF,VREGA),(VREGOF,VREGA) 
            CONP   (ARITH18,SENDECP),SHIFTCT
          ENDG
          ADDZ   RECBCP,SIZEDIFF,P5 
          REMZ   P5,10,P5 
          MOVEZ  0,P6 
          CALLZ  ADDSPCS   [BR+(SR-SS)]MOD 10,0,VREGA;VREGA 
          SUBZ   RECECP,20,P6 
          CALLZ  STORIT2   VREGC,(BR+SR)-20,VREGA;VREGC 
          RETURN
 XIV      SPACE  4
*      PROCESS DP SOURCE FIELD TO JUSTIFIED TP RECEIVING FIELD WITH 
*      SAME BCP.  THE SIZE OF THE SOURCE FIELD IS GREATER THAN THE PART 
*      OF THE RECEIVING FIELD LYING IN THE THIRD WORD.
  
 AN2AN443 LABEL 
  
*      COMMON PARAMETER SETUP FOR THESE CASES 
  
          ADDZ   RECBCP,SIZEDIFF,MASK1
  
          IFZ    (ECPDIFF,GT,10),AN2AN460 
          IFZ    (ECPDIFF,LT,10),AN2AN450 
  
************************************************************************
*      GENERATE CODE FOR DP SOURCE FIELD TO JUSTIFIED TP RECEIVING     *
*      FIELD HAVING THE SAME BCP.  THE SIZE OF THE SOURCE FIELD IS     *
*      GREATER THAN THE PART OF THE RECEIVING FIELD LYING IN THE THIRD *
*      WORD.  THE ECP OF THE SOURCE FIELD EQUALS THE ECP OF THE        *
*      RECEIVING FIELD.                                                *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P1=BS
*      P2=10-BS 
*      P3=BR
*      P4=10-BR 
*      P5=10-BR 
*      P6=BR
  
          NOTE   AN2AN443 
          CALLZ  GETSPCS   10-BR,BR;VREGA 
          CALLZ  STORIT1   RECADDR,BR,10-BR,VREGA;VREGC 
          CALLZ  LOADIT1   SRCADDR,BS,10-BS;VREGA,VREGB 
          MOVEZ  SENDBCP,P5 
          MOVEZ  0,P6 
          CALLZ  ADDSPCS   BS,0,VREGA;VREGA 
          MOVEZ  10,P6
          CALLZ  STORIT2   VREGC,10,VREGA;VREGC 
          SUBZ   SENDECP,10,P6
          CALLZ  LOADIT2   VREGB,(BS+SS)-10;VREGA,VREGB 
          CALLZ  STORIT2   VREGC,(BS+SS-10,VREGA;VREGC
          RETURN
 XIV      SPACE  4
*      PROCESS DP SOURCE FIELD TO JUSTIFIED TP RECEIVING FIELD HAVING 
*      THE SAME BCP.  SIZE OF SOURCE FIELD IS GREATER THAN THE PART OF
*      THE RECEIVING FIELD LYING IN THE THIRD WORD.  ECP OF SOURCE FIELD
*      IS GREATER THAN THE ECP OF THE RECEIVING FIELD.
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
*      MASK1=BR+(SR-SS) 
  
 AN2AN450   LABEL 
          IFZ    (MASK1,GE,10),AN2AN455 
  
************************************************************************
*      GENERATE CODE FOR DP SOURCE FIELD TO JUSTIFIED TP RECEIVING     *
*      FIELD HAVING THE SAME BCP.  THE SIZE OF THE SOURCE FIELD IS     *
*      GREATER THAN THE PART OF THE RECEIVING FIELD LYING IN THE THIRD *
*      WORD.  THE ECP OF THE SOURCE FIELD IS GREATER THAN THE ECP OF   *
*      THE RECEIVING FIELD.  THE FIRST CHAR OF THE SOURCE              *
*      FIELD WILL LIE IN THE FIRST WORD OF THE RECEIVING FIELD.        *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P1=BS
*      P2=10-BS 
*      P3=BR
*      P4=10-BR 
*      P5=10-BR 
*      P6=BR
*      SHIFTCT=60-6*[(BR+SR)-(BS+SS)]MOD 10 
*      MASK1=BR+(SR-SS) 
  
*                  ARITH8: 6*FIXED
*                  ARITH18: 6*(FIXED)MOD 10 
          NOTE   AN2AN450 
          MULTZ  6,ECPDIFF,MASK2
          GENM   LDRTSPLT 
          SYMP   SRCADDR
          REGP   (VREGOF,VREGB),(VREGOF,VREGA),(VREGOF,VREGD) 
            CONP   SHIFTCT,(ARITH8,MASK1),MASK2 
          ENDG
          MOVEZ  SIZEDIFF,P5
          CALLZ  ADDSPCS   SR-SS,BR,VREGA;VREGA 
          CALLZ  STORIT1   RECADDR,BR,10-BR,VREGA;VREGC 
          GENM   LD2LFSPL 
            REGP   VREGB,(VREGOF,VREGB),(VREGOF,VREGE),(VREGOF,VREGF) 
            CONP   SHIFTCT,MASK2,(ARITH18,RECECP) 
          ENDG
          GEN    LOR,(VREGOF,VREGA),(VREFOF,VREGD),(VREFOF,VREGE) 
          MOVEZ  10,P6
          CALLZ  STORIT2   VREGC,10,VREGA;VREGC 
          MOVEZ  VREGF,VREGA
          REMZ   RECECP,10,P6 
          CALLZ  STORIT2   VREGC,(BR+SR)MOD 10,VREGA;VREGC
          RETURN
 XIV      SPACE  4
************************************************************************
*      GENERATE CODE FOR DP SOURCE FIELD TO JUSTIFIED TP RECEIVING     *
*      FIELD HAVING THE SAME BCP.  THE SIZE OF THE SOURCE FIELD IS     *
*      GREATER THAN THE PART OF THE RECEIVING FIELD LYING IN THE THIRD *
*      WORD.  THE ECP OF THE SOURCE FIELD IS GREATER THAN THE ECP OF   *
*      THE RECEIVING FIELD.  THE FIRST CHAR OF THE SOURCE              *
*      FIELD WILL LIE IN THE SECOND WORD OF THE RECEIVING FIELD.       *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P1=BS
*      P2=10-BS 
*      P3=BR
*      P4=10-BR 
*      P5=10-BR 
*      P6=BR
*      SHIFTCT=60-6*[(BR+SR)-(BS+SS)]MOD 10 
*      MASK1=BR+(SR-SS) 
  
*                  ARITH8: 6*FIXED
*                  ARITH18: 6*(FIXED)MOD 10 
 AN2AN455   LABEL 
          NOTE   AN2AN455 
          CALLZ  GETSPCS   10-BR,BR;VREGA 
          CALLZ  STORIT1   RECADDR,BR,10-BR,VREGA;VREGC 
          CALLZ  LOADIT1   SRCADDR,BS,10-BS;VREGA,VREGB 
          GEN    SHL,VREGA,SHIFTCT
          REMZ   MASK1,10,P5
          MOVEZ  0,P6 
          CALLZ  ADDSPCS   [BR+(SR-SS)]MOD 10,0,VREGA;VREGA 
          GENM   LD2LFSPL 
            REGP   VREGB,(VREGOF,VREGB),(VREGOF,VREGD),(VREGOF,VREGF) 
            CONP   SHIFTCT,(ARITH8,ECPDIFF),(ARITH18,RECECP)
          ENDG
          GEN    LOR,(VREGOF,VREGA),VREGA,VREGD 
          MOVEZ  10,P6
          CALLZ  STORIT2   VREGC,10,VREGA;VREGC 
          MOVEZ  VREGF,VREGA
          REMZ   RECECP,10,P6 
          CALLZ  STORIT2   VREGC,(BR+SR)MOD 10,VREGA;VREGC
          RETURN
 XIV      SPACE  4
************************************************************************
*      GENERATE CODE FOR DP SOURCE FIELD TO JUSTIFIED TP RECEIVING     *
*      FIELD HAVING THE SAME BCP.  THE SIZE OF THE SOURCE FIELD IS     *
*      GREATER THAN THE PART OF THE RECEIVING FIELD LYING IN THE THIRD *
*      WORD.  THE ECP OF THE SOURCE FIELD IS LESS THAN THE ECP OF THE  *
*      RECEIVING FIELD.                                                *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P1=BS
*      P2=10-BS 
*      P3=BR
*      P4=10-BR 
*      P5=10-BR 
*      P6=BR
*      SHIFTCT=60-6*[(BR+SR)-(BS+SS)]MOD 10 
*      MASK1=BR+(SR-SS) 
  
*                  ARITH18: 6*(FIXED)MOD 10 
 AN2AN460   LABEL 
          NOTE   AN2AN460 
          CALLZ  GETSPCS   10-BR,BR;VREGA 
          CALLZ  STORIT1   RECADDR,BR,10-BR,VREGA;VREGC 
          GENM   LDRTSPLT 
          SYMP   SRCADDR
          REGP   (VREGOF,VREGB),(VREGOF,VREGA),(VREGOF,VREGD) 
            CONP   SHIFTCT,(ARITH18,MASK1),(ARITH18,ECPDIFF)
          ENDG
          REMZ   MASK1,10,P5
          MOVEZ  0,P6 
          CALLZ  ADDSPCS   [BR+(SR-SS)]MOD 10,0,VREGA;VREGA 
          MOVEZ  10,P6
          CALLZ  STORIT2   VREGC,10,VREGA;VREGC 
          GENM   LDSPLT2
          REGP   (VREFOF,VREGB),(VREFOF,VREGD),(VREGOF,VREGA) 
            CONP   (ARITH18,SENDECP),SHIFTCT
          ENDG
          SUBZ   RECECP,20,P6 
          CALLZ  STORIT2   VREGC,(BR+SR)-20,VREGA;VREGC 
          RETURN
 XV       EJECT 
*      PROCESS TP SOURCE FIELD TO SP OR DP OR TP RECEIVING FIELD HAVING 
*      THE SAME BCP 
  
 AN2AN465   LABEL 
          IFZ    (RECECP,GT,20),AN2AN475
          IFZ    (RECECP,GT,10),AN2AN470
  
************************************************************************
*                                                                      *
*      XV    BS=BR     * BCP OF SOURCE EQUAL TO BCP OF RECEIVING       *
*            TP TO SP  * TRIPLE PRECISION TO SINGLE PRECISION          *
*                                                                      *
************************************************************************
  
*      NOTICE THAT THIS CASE CAN BE PROCESSED EXACTLY LIKE DP TO SP 
*      BS=BR (CASE V).
  
          NOTE   AN2AN465 
          BRANCH AN2AN121 
 XVI      EJECT 
************************************************************************
*                                                                      *
*      XVI   BS=BR     * BCP OF SOURCE EQUAL TO BCP OF RECEIVING       *
*            TP TO DP  * TRIPLE PRECISION TO DOUBLE PRECISION          *
*                                                                      *
************************************************************************
  
 AN2AN470   LABEL 
          NOTE   AN2AN470 
          MOVEZ  RECSIZE,SENDSIZE 
          IFZ    (JUSTFLG,EQ,0),AN2AN130
  
*      PROCESS TP SOURCE FIELD TO JUSTIFIED DP RECEIVING FIELD
  
          ADDZ   SENDBCP,SIZEDIFF,T1
          REMZ   T1,10,SENDBCP
          QUOTZ  T1,10,ADOFSET
          REMZ   SENDECP,10,T1
          IFZ    (T1,GE,RECSIZE),AN2AN170 
          SUBZ   RECSIZE,T1,T1
          IFZ    (T1,GT,10),AN2AN695
  
*      EFFECTIVE BCP OF SOURCE FIELD IS IN SECOND WORD- MAKE NECESSARY
*      CORRECTIONS TO ALLOW FOR THIS AND FIND APPROPRIATE DP TO DP CASE 
  
          IFZ    (SENDBCP,LT,RECBCP),AN2AN210 
          IFZ    (SENDBCP,EQ,RECBCP),AN2AN130 
          BRANCH AN2AN295 
 XVII     EJECT 
************************************************************************
*                                                                      *
*      XVII  BS=BR     * BCP OF SOURCE EQUAL TO BCP OF RECEIVING       *
*            TP TO TP  * TRIPLE PRECISION TO TRIPLE PRECISION          *
*                                                                      *
************************************************************************
  
 AN2AN475   LABEL 
          IFZ    (SIZEDIFF,GT,0),AN2AN500 
          IFZ    (SIZEDIFF,LT,0),AN2AN485 
  
************************************************************************
*      GENERATE CODE FOR TP SOURCE FIELD TO TP RECEIVING FIELD HAVING  *
*      SAME BCP AND SAME SIZE.                                         *
************************************************************************
  
 AN2AN480   LABEL 
          NOTE   AN2AN480 
          MOVEZ  SENDBCP,P1 
          SUBZ   10,SENDBCP,P2
          CALLZ  LOADIT1   SRCADDR,BS,10-BS;VREGA,VREGB 
          MOVEZ  RECBCP,P3
          SUBZ   10,RECBCP,P4 
          CALLZ  STORIT1   RECADDR,BR,10-BR,VREGA;VREGC 
          MOVEZ  10,P6
          CALLZ  LOADIT2   VREGB,10;VREGA,VREGB 
          CALLZ  STORIT2   VREGC,10,VREGA;VREGC 
          SUBZ   RECECP,20,P6 
          CALLZ  LOADIT2   VREGB,(BR+SR)-20;VREGA,VREGB 
          CALLZ  STORIT2   VREGC,(BR+SR)-20,VREGA;VREGC 
          RETURN
 XVII     SPACE  4
*      PROCESS TP SOURCE FIELD TO TP RECEIVING FIELD HAVING THE SAME BCP
*      SIZE OF SOURCE FIELD IS LESS THAN SIZE OF RECEIVING FIELD
  
 AN2AN485   LABEL 
          SUBZ   0,SIZEDIFF,SIZEDIFF
  
*      COMMON PARAMETER SETUP FOR ALL SS<SR CASES 
  
          MOVEZ  SENDBCP,P1 
          SUBZ   10,SENDBCP,P2
          MOVEZ  RECBCP,P3
          SUBZ   10,RECBCP,P4 
  
          IFZ    (JUSTFLG,NE,0),AN2AN490
  
************************************************************************
*      GENERATE CODE FOR TP SOURCE FIELD TO NON-JUSTIFIED TP RECEIVING *
*      FIELD HAVING THE SAME BCP.  SIZE OF SOURCE FIELD IS LESS THAN   *
*      SIZE OF RECEIVING FIELD.                                        *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P1=BS
*      P2=10-BS 
*      P3=BR
*      P4=10-BR 
  
          NOTE   AN2AN485 
          CALLZ  LOADIT1   SRCADDR,BS,10-BS;VREGA,VREGB 
          CALLZ  STORIT1   RECADDR,BR,10-BR,VREGA;VREGC 
          MOVEZ  10,P6
          CALLZ  LOADIT2   VREGB,10;VREGA,VREGB 
          CALLZ  STORIT2   VREGC,10,VREGA;VREGC 
          REMZ   SENDECP,10,P6
          CALLZ  LOADIT2   VREGB,(BS+SS)MOD 10;VREGA,VREGB
          MOVEZ  SIZEDIFF,P5
          ADDZ   RECBCP,SENDSIZE,P6 
          REMZ   P6,10,P6 
          CALLZ  ADDSPCS   SR-SS,(BR+SS)MOD 10,VREGA,VREGA
          SUBZ   RECECP,20,P6 
          CALLZ  STORIT2   VREGC,(BR+SR)-20,VREGA;VREGC 
          RETURN
 XVII     SPACE  4
*      PROCESS TP SOURCE FIELD TO JUSTIFIED TP RECEIVING FIELD HAVING 
*      SAME BCP.  SIZE OF SOURCE FIELD IS LESS THAN SIZE OF RECEIVING 
*      FIELD
  
 AN2AN490   LABEL 
  
*      COMMON PARAMETER SETUP FOR SS<SR JUSTIFIED CASES 
  
          MOVEZ  RECBCP,P6
          MULTZ  6,ECPDIFF,MASK2
          SUBZ   60,MASK2,SHIFTCT 
  
          ADDZ   RECBCP,SIZEDIFF,MASK1
          IFZ    (MASK1,LT,10),AN2AN495 
  
************************************************************************
*      GENERATE CODE FOR TP SOURCE FIELD TO JUSTIFIED TP RECEIVING     *
*      FIELD HAVING SAME BCP.  SIZE OF SOURCE FIELD IS LESS THAN SIZE  *
*      OF RECEIVING FIELD.  FIRST CHAR OF SOURCE FIELD WILL LIE IN     *
*      SECOND WORD OF RECEIVING FIELD                                  *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P1=BS
*      P2=10-BS 
*      P3=BR
*      P4=10-BR 
*      P6=BR
*      SHIFTCT=60-6*[(BR+SR)-(BS+SS)] 
*      MASK1=BR+(SR-SS) 
*      MASK2=6*[(BR+SR)-(BS+SS)]
  
*                  ARITH18: 6*(FIXED)MOD 10 
          NOTE   AN2AN490 
          SUBZ   10,RECBCP,P5 
          CALLZ  GETSPCS   10-BR,BR;VREGA 
          CALLZ  STORIT1   RECADDR,BR,10-BR,VREGA;VREGC 
          CALLZ  LOADIT1   SRCADDR,BS,10-BS;VREGA,VREGB 
          GEN    SHL,VREGA,SHIFTCT
          REMZ   MASK1,10,P5
          MOVEZ  0,P6 
          CALLZ  ADDSPCS   [BR+(SR-SS)]MOD 10,0,VREGA;VREGA 
          GENM   LD2LFSPL 
            REGP   VREGB,(VREGOF,VREGB),(VREGOF,VREGE),(VREGOF,VREGF) 
            CONP   SHIFTCT,MASK2,MASK2
          ENDG
          GEN    LOR,(VREGOF,VREGA),VREGA,VREGE 
          MOVEZ  10,P6
          CALLZ  STORIT2   VREGC,10,VREGA;VREGC 
          GENM   LDSPLT2
          REGP   (VREFOF,VREGB),(VREFOF,VREGF),(VREGOF,VREGA) 
            CONP   (ARITH18,SENDECP),SHIFTCT
          ENDG
          SUBZ   RECECP,20,P6 
          CALLZ  STORIT2   VREGC,(BR+SR)-20,VREGA;VREGC 
          RETURN
 XVII     SPACE  4
************************************************************************
*      GENERATE CODE FOR TP SOURCE FIELD TO JUSTIFIED TP RECEIVING     *
*      FIELD HAVING SAME BCP.  SIZE OF SOURCE FIELD IS LESS THAN SIZE  *
*      OF RECEIVING FIELD.  FIRST CHAR OF SOURCE FIELD WILL LIE IN     *
*      FIRST WORD OF RECEIVING FIELD                                   *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P1=BS
*      P2=10-BS 
*      P3=BR
*      P4=10-BR 
*      P6=BR
*      SHIFTCT=60-6*[(BR+SR)-(BS+SS)] 
*      MASK1=BR+(SR-SS) 
*      MASK2=6*[(BR+SR)-(BS+SS)]
  
*                  ARITH8: 6*FIXED
*                  ARITH18: 6*(FIXED)MOD 10 
 AN2AN495   LABEL 
          NOTE   AN2AN495 
          GENM   LDRTSPLT 
          SYMP   SRCADDR
          REGP   (VREGOF,VREGB),(VREGOF,VREGA),(VREGOF,VREGD) 
            CONP   SHIFTCT,(ARITH8,MASK1),MASK2 
          ENDG
          MOVEZ  SIZEDIFF,P5
          CALLZ  ADDSPCS   SR-SS,BR,VREGA;VREGA 
          CALLZ  STORIT1   RECADDR,BR,10-BR,VREGA;VREGC 
          GENM   LD2LFSPL 
            REGP   VREGB,(VREGOF,VREGB),(VREGOF,VREGF),(VREGOF,VREGG) 
            CONP   SHIFTCT,MASK2,MASK2
          ENDG
          GEN    LOR,(VREGOF,VREGA),(VREFOF,VREGD),(VREFOF,VREGF) 
          MOVEZ  10,P6
          CALLZ  STORIT2   VREGC,10,VREGA;VREGC 
          GENM   LDSPLT2
          REGP   (VREFOF,VREGB),(VREFOF,VREGG),(VREGOF,VREGA) 
            CONP   (ARITH18,SENDECP),SHIFTCT
          ENDG
          SUBZ   RECECP,20,P6 
          CALLZ  STORIT2   VREGC,(BR+SR)-20,VREGA;VREGC 
          RETURN
 XVII     SPACE  4
*      PROCESS TP SOURCE FIELD TO TP RECEIVING FIELD HAVING THE SAME
*      BCP.  SIZE OF SOURCE FIELD IS GREATER THAN SIZE OF RECEIVING 
*      FIELD. 
  
 AN2AN500   LABEL 
          NOTE   AN2AN500 
          MOVEZ  RECSIZE,SENDSIZE 
          IFZ    (JUSTFLG,EQ,0),AN2AN480
  
*      JUSTIFIED RECEIVING FIELD
  
          ADDZ   SENDBCP,SIZEDIFF,T1
          REMZ   T1,10,SENDBCP
          QUOTZ  T1,10,ADOFSET
          IFZ    (T1,LT,10),AN2AN725
          BRANCH AN2AN535 
 XVIII    EJECT 
*      BEGIN PROCESSING TP FIELDS WITH BCP OF SOURCE FIELD LESS THAN
*      BCP OF RECEIVING FIELD 
  
 AN2AN505   LABEL 
          SUBZ   0,BCPDIFF,BCPDIFF
          IFZ    (SENDECP,GT,20),AN2AN575 
          IFZ    (SENDECP,GT,10),AN2AN530 
  
************************************************************************
*                                                                      *
*      XVIII  BS<BR     * BCP OF SOURCE LESS THAN BCP OF RECEIVING     *
*             SP TO TP  * SINGLE PRECISION TO TRIPLE PRECISION         *
*                                                                      *
************************************************************************
  
          SUBZ   0,SIZEDIFF,SIZEDIFF
  
*      COMMON PARAMETER SETUP FOR ALL CASES 
  
          MOVEZ  RECBCP,P3
          SUBZ   10,RECBCP,P4 
  
          IFZ    (JUSTFLG,NE,0),AN2AN520
  
*      NO JUSTIFICATION 
  
          IFZ    (P4,LT,SENDSIZE),AN2AN515
  
************************************************************************
*      GENERATE CODE FOR SP SOURCE FIELD TO NON-JUSTIFIED TP RECEIVING *
*      FIELD.  BCP OF SOURCE FIELD IS LESS THAN BCP OF RECEIVING FIELD.*
*      SIZE OF SOURCE FIELD IS LESS THAN OR EQUAL TO PART OF RECEIVING *
*      FIELD LYING IN THE FIRST WORD.                                  *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P3=BR
*      P4=10-BR 
  
*                  ARITH7: 60-6*FIXED 
          NOTE   AN2AN505 
          MOVEZ  SENDBCP,P1 
          MOVEZ  SENDSIZE,P2
          CALLZ  LOADIT1   SRCADDR,BS,SS;VREGA,VREGB
          GEN    SHL,(VREFOF,VREGA),(ARITH7,BCPDIFF)
          ADDZ   RECBCP,SENDSIZE,P6 
          SUBZ   10,P6,P5 
          CALLZ  ADDSPCS   10-(BR+SS),BR+SS,VREGA;VREGA 
          CALLZ  STORIT1   RECADDR,BR,10-BR,VREGA;VREGC 
          MOVEZ  1,P5 
          SUBZ   RECECP,20,P6 
          CALLZ  SPCFLRT   1,(BR+SR)-20,VREGC 
          RETURN
 XVIII    SPACE  4
************************************************************************
*      GENERATE CODE FOR SP SOURCE FIELD TO NON-JUSTIFIED TP RECEIVING *
*      FIELD.  BCP OF SOURCE FIELD IS LESS THAN BCP OF RECEIVING FIELD.*
*      SIZE OF SOURCE FIELD IS GREATER THAN PART OF RECEIVING FIELD    *
*      LYING IN FIRST WORD.                                            *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P3=BR
*      P4=10-BR 
  
*                  ARITH7: 60-6*FIXED 
*                  ARITH8: 6*FIXED
*                  ARITH18: 6*(FIXED)MOD 10 
 AN2AN515   LABEL 
          NOTE   AN2AN515 
          ADDZ   RECBCP,SENDSIZE,P6 
          GENM   LDRTSPLT 
          SYMP   SRCADDR
          REGP   (VREGOF,VREGB),(VREGOF,VREGA),(VREGOF,VREGD) 
            CONP   (ARITH7,BCPDIFF),(ARITH8,RECBCP),(ARITH18,P6)
          ENDG
          CALLZ  STORIT1   RECADDR,BR,10-BR,VREGA;VREGC 
          MOVEZ  VREGD,VREGA
          SUBZ   20,P6,P5 
          SUBZ   P6,10,P6 
          CALLZ  ADDSPCS   20-(BR+SS),(BR+SS)-10,VREGA;VREGA
          MOVEZ  10,P6
          CALLZ  STORIT2   VREGC,10,VREGA;VREGC 
          SUBZ   RECECP,20,P5 
          MOVEZ  0,P6 
          CALLZ  GETSPCS   (BR+SR)-20,0;VREGA 
          MOVEZ  P5,P6
          CALLZ  STORIT2   VREGC,(BR+SR)-20,VREGA;VREGC 
          RETURN
 XVIII    SPACE  4
*      BEGIN PROCESSING SP SOURCE FIELD TO JUSTIFIED TP RECEIVING FIELD 
*      BCP OF SOURCE FIELD IS LESS THAN BCP OF RECEIVING FIELD
  
 AN2AN520   LABEL 
  
*      COMMON PARAMETER SETUP FOR JUSTIFIED CASES 
  
          MOVEZ  SENDBCP,P1 
          MOVEZ  SENDSIZE,P2
  
*      NOTICE THAT ALL THESE CASES CAN BE HANDLED LIKE THE CORRESPONDING
*      BS=BR CASES
  
          NOTE   AN2AN520 
          BRANCH AN2AN410 
 XIX      EJECT 
************************************************************************
*                                                                      *
*      XIX   BS<BR     * BCP OF SOURCE LESS THAN BCP OF RECEIVING      *
*            DP TO TP  * DOUBLE PRECISION TO TRIPLE PRECISION          *
*                                                                      *
************************************************************************
  
 AN2AN530   LABEL 
          IFZ    (SIZEDIFF,GT,0),AN2AN570 
          IFZ    (SIZEDIFF,LT,0),AN2AN540 
  
************************************************************************
*      GENERATE CODE FOR DP SOURCE FIELD TO TP RECEIVING FIELD WITH THE*
*      SAME SIZE.  BCP OF SOURCE FIELD IS LESS THAN BCP OF RECEIVING   *
*      FIELD.                                                          *
************************************************************************
  
*      NOTE: FOR THE BENEFIT OF CASES WHICH CHANGE EITHER THE BCP OR
*      THE SIZE OF THE SOURCE FIELD BEFORE BRANCHING HERE, NO ARITH 
*      FUNCTIONS ARE USED ON MOVEREGA AND BCPDIFF IS NOT ASSUMED CORRECT
  
*                  ARITH8: 6*FIXED
*                  ARITH18: 6*(FIXED)MOD 10 
 AN2AN535   LABEL 
          NOTE   AN2AN535 
          SUBZ   RECBCP,SENDBCP,BCPDIFF 
          MULTZ  6,BCPDIFF,MASK2
          SUBZ   60,MASK2,SHIFTCT 
          GENM   LDRTSPLT 
          SYMP   SRCADDR
          REGP   (VREGOF,VREGB),(VREGOF,VREGA),(VREGOF,VREGD) 
          CONP   SHIFTCT,(ARITH8,RECBCP),MASK2
          ENDG
          MOVEZ  RECBCP,P3
          SUBZ   10,RECBCP,P4 
          CALLZ  STORIT1   KR,BR,10-BR,VREGA;VREGC
          GENM   LD2LFSPL 
            REGP   VREGB,(VREGOF,VREGB),(VREGOF,VREGE),(VREGOF,VREGF) 
            CONP   SHIFTCT,MASK2,(ARITH18,RECECP) 
          ENDG
          GEN    LOR,(VREGOF,VREGA),(VREFOF,VREGD),(VREFOF,VREGE) 
          MOVEZ  10,P6
          CALLZ  STORIT2   VREGC,10,VREGA;VREGC 
          MOVEZ  VREGF,VREGA
          REMZ   RECECP,10,P6 
          CALLZ  STORIT2   VREGC,(BR+SR)MOD 10,VREGA;VREGC
          RETURN
 XIX      SPACE  4
*      BEGIN PROCESSING DP SOURCE FIELD TO TP RECEIVING FIELD.  BCP OF
*      SOURCE FIELD IS LESS THAN BCP OF RECEIVING FIELD.  SIZE OF SOURCE
*      FIELD IS LESS THAN SIZE OF RECEIVING FIELD.
  
 AN2AN540   LABEL 
          SUBZ   0,SIZEDIFF,SIZEDIFF
          IFZ    (JUSTFLG,NE,0),AN2AN550
  
*      NO JUSTIFICATION 
  
*      COMMON PARAMETER SETUP FOR SS<SR NON-JUSTIFIED CASES 
  
          MOVEZ  RECBCP,P3
          SUBZ   10,RECBCP,P4 
          MULTZ  6,BCPDIFF,MASK2
          SUBZ   60,MASK2,SHIFTCT 
  
          ADDZ   RECBCP,SENDSIZE,MASK1
          IFZ    (MASK1,GT,20),AN2AN545 
  
************************************************************************
*      GENERATE CODE FOR DP SOURCE FIELD TO NON-JUSTIFIED TP RECEIVING *
*      FIELD.  BCP OF SOURCE FIELD IS LESS THAN BCP OF RECEIVING FIELD.*
*      THE LAST CHAR OF THE SOURCE FIELD WILL LIE IN THE SECOND WORD OF*
*      THE RECEIVING FIELD.                                            *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
  
*      P3=BR
*      P4=10-BR 
*      SHIFTCT=60-6*(BR-BS) 
*      MASK1=BR+SS
*      MASK2=6*(BR-BS)
  
*                  ARITH8: 6*FIXED
*                  ARITH18: 6*(FIXED)MOD 10 
          NOTE   AN2AN540 
          GENM   LDRTSPLT 
          SYMP   SRCADDR
          REGP   (VREGOF,VREGB),(VREGOF,VREGA),(VREGOF,VREGD) 
            CONP   SHIFTCT,(ARITH8,RECBCP),MASK2
          ENDG
          CALLZ  STORIT1   KR,BR,10-BR,VREGA;VREGC
          GENM   LDSPLT2
          REGP   (VREFOF,VREGB),(VREFOF,VREGD),(VREGOF,VREGA) 
            CONP   (ARITH18,SENDECP),SHIFTCT
          ENDG
          SUBZ   20,MASK1,P5
          SUBZ   MASK1,10,P6
          CALLZ  ADDSPCS   20-(BR+SS),(BR+SS)-10,VREGA;VREGA
          MOVEZ  10,P6
          CALLZ  STORIT2   VREGC,10,VREGA;VREGC 
          SUBZ   RECECP,20,P5 
          MOVEZ  0,P6 
          CALLZ  GETSPCS   (BR+SR)-20,0;VREGA 
          MOVEZ  P5,P6
          CALLZ  STORIT2   VREGC,(BR+SR)-20,VREGA;VREGC 
          RETURN
 XIX      SPACE  4
************************************************************************
*      GENERATE CODE FOR DP SOURCE FIELD TO NON-JUSTIFIED TP RECEIVING *
*      FIELD.  BCP OF SOURCE FIELD IS LESS THAN BCP OF RECEIVING FIELD.*
*      THE LAST CHAR OF THE SOURCE FIELD WILL LIE IN THE THIRD WORD    *
*      OF THE RECEIVING FIELD.                                         *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P3=BR
*      P4=10-BR 
*      SHIFTCT=60-6*(BR-BS) 
*      MASK1=BR+SS
*      MASK2=6*(BR-BS)
  
*                  ARITH8: 6*FIXED
*                  ARITH18: 6*(FIXED)MOD 10 
 AN2AN545   LABEL 
          NOTE   AN2AN545 
          GENM   LDRTSPLT 
          SYMP   SRCADDR
          REGP   (VREGOF,VREGB),(VREGOF,VREGA),(VREGOF,VREGD) 
            CONP   SHIFTCT,(ARITH8,RECBCP),MASK2
          ENDG
          CALLZ  STORIT1   RECADDR,BR,10-BR,VREGA;VREGC 
          GENM   LD2LFSPL 
            REGP   VREGB,(VREGOF,VREGB),(VREGOF,VREGE),(VREGOF,VREGF) 
            CONP   SHIFTCT,MASK2,(ARITH18,MASK1)
          ENDG
          GEN    LOR,(VREGOF,VREGA),(VREFOF,VREGD),(VREFOF,VREGE) 
          MOVEZ  10,P6
          CALLZ  STORIT2   VREGC,10,VREGA;VREGC 
          MOVEZ  VREGF,VREGA
          MOVEZ  SIZEDIFF,P5
          REMZ   MASK1,10,P6
          CALLZ  ADDSPCS   SR-SS,(BR+SS)MOD 10,VREGA;VREGA
          SUBZ   RECECP,20,P6 
          CALLZ  STORIT2   VREGC,(BR+SR)-20,VREGA;VREGC 
          RETURN
 XIX      SPACE  4
*      BEGIN PROCESSING DP SOURCE FIELD TO JUSTIFIED TP RECEIVING FIELD.
*      BCP OF SOURCE FIELD IS LESS THAN BCP OF RECEIVING FIELD
  
 AN2AN550   LABEL 
  
  
*      NOTICE THAT ALL THESE CASES CAN BE HANDLED LIKE THE CORRESPONDING
*      BS=BR CASES
  
          NOTE   AN2AN550 
          BRANCH AN2AN430 
 XIX      SPACE  4
*      PROCESS DP SOURCE FIELD TO TP RECEIVING FIELD.  BCP OF SOURCE
*      FIELD IS LESS THAN BCP OF RECEIVING FIELD.  SIZE OF SOURCE FIELD 
*      IS GREATER THAN SIZE OF RECEIVING FIELD. 
  
 AN2AN570   LABEL 
          NOTE   AN2AN570 
          MOVEZ  RECSIZE,SENDSIZE 
          IFZ    (JUSTFLG,EQ,0),AN2AN535
  
*      JUSTIFIED RECEIVING FIELD
  
          ADDZ   SENDBCP,SIZEDIFF,SENDBCP 
          BRANCH AN2AN535 
 XX       EJECT 
*      BEGIN PROCESSING TP SOURCE FIELD TO SP OR DP OR TP RECEIVING 
*      FIELD.  BCP OF SOURCE FIELD IS LESS THAN BCP OF RECEIVING FIELD
  
 AN2AN575   LABEL 
          IFZ    (RECECP,GT,20),AN2AN590
          IFZ    (RECECP,GT,10),AN2AN580
  
************************************************************************
*                                                                      *
*      XX    BS<BR     * BCP OF SOURCE LESS THAN BCP OF RECEIVING      *
*            TP TO SP  * TRIPLE PRECISION TO SINGLE PRECISION          *
*                                                                      *
************************************************************************
  
*      NOTICE THAT THIS CASE CAN BE HANDLED EXACTLY LIKE BS<BR  DP TO SP
*      (CASE VIII). 
  
          NOTE   AN2AN575 
          BRANCH AN2AN204 
 XXI      EJECT 
************************************************************************
*                                                                      *
*      XXI   BS<BR     * BCP OF SOURCE IS LESS THAN BCP OF RECEIVING   *
*            TP TO DP  * TRIPLE PRECISION TO DOUBLE PRECISION          *
*                                                                      *
************************************************************************
  
 AN2AN580   LABEL 
          MOVEZ  RECSIZE,SENDSIZE 
          IFZ    (JUSTFLG,NE,0),AN2AN585
  
*      NO JUSTIFICATION 
  
          NOTE   AN2AN580 
          ADDZ   SENDBCP,RECSIZE,T1 
          IFZ    (T1,LE,10),AN2AN170
          BRANCH AN2AN210 
  
*      PROCESS TP SOURCE FIELD TO JUSTIFIED DP RECEIVING FIELD.  BCP OF 
*      SOURCE FIELD IS LESS THAN BCP OF RECEIVING FIELD.
  
*                  ARITH21: [(FIXED-1)MOD 10]+1 
 AN2AN585   LABEL 
          NOTE   AN2AN585 
          ADDZ   SENDBCP,SIZEDIFF,T1
          REMZ   T1,10,SENDBCP
          QUOTZ  T1,10,ADOFSET
          MOVEZ  (ARITH21,SENDECP),T1 
          IFZ    (T1,GE,RECSIZE),AN2AN170 
          SUBZ   RECSIZE,T1,T1
          IFZ    (T1,GT,10),AN2AN695
  
*      SOURCE FIELD IS EFFECTIVELY DP- FIND APPROPRIATE DP TO DP CASE 
  
          IFZ    (SENDBCP,LT,RECBCP),AN2AN210 
          IFZ    (SENDBCP,EQ,RECBCP),AN2AN130 
          BRANCH AN2AN295 
 XXII     EJECT 
************************************************************************
*                                                                      *
*      XXII  BS<BR     * BCP OF SOURCE LESS THAN BCP OF RECEIVING      *
*            TP TO TP  * TRIPLE PRECISION TO TRIPLE PRECISION          *
*                                                                      *
************************************************************************
  
 AN2AN590   LABEL 
          IFZ    (SIZEDIFF,GT,0),AN2AN615 
          IFZ    (SIZEDIFF,LT,0),AN2AN600 
  
************************************************************************
*      GENERATE TP SOURCE FIELD TO TP RECEIVING FIELD HAVING THE SAME  *
*      SIZE.  BCP OF SOURCE FIELD IS LESS THAN BCP OF RECEIVING FIELD. *
************************************************************************
  
*      NOTE: FOR THE BENEFIT OF CASES WHICH CHANGE EITHER THE BCP OR
*      THE SIZE OF THE SOURCE FIELD BEFORE BRANCHING HERE, NO ARITH 
*      FUNCTIONS ARE USED ON MOVEREGA AND BCPDIFF IS NOT ASSUMED CORRECT
  
*                ARITH8: 6*(FIXED)
*                ARITH18: 6*(FIXED)MOD 10 
 AN2AN595   LABEL 
          NOTE   AN2AN595 
          SUBZ   RECBCP,SENDBCP,BCPDIFF 
          MULTZ  6,BCPDIFF,MASK2
          SUBZ   60,MASK2,SHIFTCT 
          GENM   LDRTSPLT 
          SYMP   SRCADDR
          REGP   (VREGOF,VREGB),(VREGOF,VREGA),(VREGOF,VREGD) 
            CONP   SHIFTCT,(ARITH8,RECBCP),MASK2
          ENDG
          MOVEZ  RECBCP,P3
          SUBZ   10,RECBCP,P4 
          CALLZ  STORIT1   RECADDR,BR,10-BR,VREGA;VREGC 
          GENM   LD2LFSPL 
            REGP   VREGB,(VREGOF,VREGB),(VREGOF,VREGE),(VREGOF,VREGF) 
            CONP   SHIFTCT,MASK2,MASK2
          ENDG
          GEN    LOR,(VREGOF,VREGA),(VREFOF,VREGD),(VREFOF,VREGE) 
          MOVEZ  10,P6
          CALLZ  STORIT2   VREGC,10,VREGA;VREGC 
          ADDZ   SENDBCP,SENDSIZE,SENDECP 
          GENM   LDSPLT2
          REGP   (VREFOF,VREGB),(VREFOF,VREGF),(VREGOF,VREGA) 
            CONP   (ARITH18,SENDECP),SHIFTCT
          ENDG
          SUBZ   RECECP,20,P6 
          CALLZ  STORIT2   VREGC,(BR+SR)-20,VREGA;VREGC 
          RETURN
 XXII     SPACE  4
*      PROCESS TP SOURCE FIELD TO TP RECEIVING FIELD,  BCP OF SOURCE
*      FIELD IS LESS THAN BCP OF RECEIVING FIELD.  SIZE OF SOURCE FIELD 
*      IS LESS THAN SIZE OF RECEIVING FIELD.
  
 AN2AN600   LABEL 
          NOTE   AN2AN600 
          IFZ    (JUSTFLG,NE,0),AN2AN485
  
************************************************************************
*      GENERATE CODE FOR TP SOURCE FIELD TO NON-JUSTIFIED TP RECEIVING *
*      FIELD.  BCP OF SOURCE FIELD IS LESS THAN BCP OF RECEIVING FIELD.*
*      SIZE OF SOURCE FIELD IS LESS THAN SIZE OF RECEIVING FIELD.      *
************************************************************************
  
*                  ARITH8: 6*(FIXED)
*                  ARITH18: 6*(FIXED)MOD 10 
          MULTZ  6,BCPDIFF,MASK2
          SUBZ   60,MASK2,SHIFTCT 
          GENM   LDRTSPLT 
          SYMP   SRCADDR
          REGP   (VREGOF,VREGB),(VREGOF,VREGA),(VREGOF,VREGD) 
            CONP   SHIFTCT,(ARITH8,RECBCP),MASK2
          ENDG
          MOVEZ  RECBCP,P3
          SUBZ   10,RECBCP,P4 
          CALLZ  STORIT1   RECADDR,BR,10-BR,VREGA;VREGC 
          GENM   LD2LFSPL 
            REGP   VREGB,(VREGOF,VREGB),(VREGOF,VREGE),(VREGOF,VREGF) 
            CONP   SHIFTCT,MASK2,MASK2
          ENDG
          GEN    LOR,(VREGOF,VREGA),(VREFOF,VREGD),(VREFOF,VREGE) 
          MOVEZ  10,P6
          CALLZ  STORIT2   VREGC,10,VREGA;VREGC 
          GENM   LDSPLT2
          REGP   (VREFOF,VREGB),(VREFOF,VREGF),(VREGOF,VREGA) 
            CONP   (ARITH18,SENDECP),SHIFTCT
          ENDG
          SUBZ   0,SIZEDIFF,P5
          ADDZ   RECBCP,SENDSIZE,P6 
          REMZ   P6,10,P6 
          CALLZ  ADDSPCS   SR-SS,(BR+SS)MOD 10,VREGA;VREGA
          SUBZ   RECECP,20,P6 
          CALLZ  STORIT2   VREGC,(BR+SR)-20,VREGA;VREGC 
          RETURN
 XXII  SPACE     4
*      BEGIN PROCESSING TP SOURCE FIELD TO TP RECEIVING FIELD.  BCP OF
*      SOURCE FIELD IS LESS THAN BCP OF RECEIVING FIELD.  SIZE OF SOURCE
*      FIELD IS GREATER THAN SIZE OF RECEIVING FIELD. 
  
 AN2AN615   LABEL 
          MOVEZ  RECSIZE,SENDSIZE 
          IFZ    (JUSTFLG,NE,0),AN2AN620
  
*      NO JUSTIFICATION 
  
          NOTE   AN2AN615 
          ADDZ   SENDBCP,RECSIZE,T1 
          IFZ    (T1,LE,20),AN2AN535
          BRANCH AN2AN595 
  
*      PROCESS TP SOURCE FIELD TO JUSTIFIED TP RECEIVING FIELD.  BCP
*      SOURCE FIELD IS LESS THAN BCP OF RECEIVING FIELD.  SIZE OF 
*      SOURCE FIELD IS LARGER THAN SIZE OF RECEIVING FIELD. 
  
 AN2AN620   LABEL 
          NOTE   AN2AN620 
          ADDZ   SENDBCP,SIZEDIFF,T1
          REMZ   T1,10,SENDBCP
          QUOTZ  T1,10,ADOFSET
          IFZ    (T1,EQ,RECBCP),AN2AN480
          IFZ    (T1,LT,10),AN2AN725
          BRANCH AN2AN535 
 XXIII    EJECT 
*      PROCESS TP FIELDS WITH BCP OF SOURCE FIELD GREATER THAN BCP OF 
*      RECEIVING FIELD
  
 AN2AN625   LABEL 
          IFZ    (SENDECP,GT,20),AN2AN685 
  
*      THE SIZE OF THE TP RECEIVING FIELD MUST BE LARGER THAN THE SIZE
*      OF THE SP OR DP SOURCE FIELD 
  
          SUBZ   0,SIZEDIFF,SIZEDIFF
  
          IFZ    (SENDECP,GT,10),AN2AN645 
  
************************************************************************
*                                                                      *
*      XXIII  BS>BR     * BCP OF SOURCE GREATER THAN BCP OF RECEIVING  *
*             SP TO TP  * SINGLE PRECISION TO TRIPLE PRECISION         *
*                                                                      *
************************************************************************
  
          NOTE   AN2AN625 
  
*      COMMON PARAMETER SETUP FOR ALL CASES 
  
          MOVEZ  SENDBCP,P1 
          MOVEZ  SENDSIZE,P2
          MOVEZ  RECBCP,P3
          SUBZ   10,RECBCP,P4 
  
          IFZ    (JUSTFLG,NE,0),AN2AN410
  
************************************************************************
*      GENERATE CODE FOR SP SOURCE FIELD TO NON-JUSTIFIED TP RECEIVING *
*      FIELD.  BCP OF SOURCE FIELD IS GREATER THAN BCP OF RECEIVING    *
*      FIELD.                                                          *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P1=BS
*      P2=SS
*      P3=BR
*      P4=10-BR 
  
*                  ARITH8: 6*(FIXED)
          CALLZ  LOADIT1   SRCADDR,BS,SS;VREGA,VREGB
          GEN    SHL,(VREFOF,VREGA),(ARITH8,BCPDIFF)
          ADDZ   RECBCP,SENDSIZE,P6 
          SUBZ   10,P6,P5 
          CALLZ  ADDSPCS   10-(BR+SS),BR+SS,VREGA;VREGA 
          CALLZ  STORIT1   RECADDR,BR,10-BR,VREGA;VREGC 
          MOVEZ  1,P5 
          SUBZ   RECECP,20,P6 
          CALLZ  SPCFLRT   1,(BR+SR)-20,VREGC 
          RETURN
 XXIV     EJECT 
************************************************************************
*                                                                      *
*      XXIV   BS>BR     * BCP OF SOURCE GREATER THAN BCP OF RECEIVING  *
*             DP TO TP  * DOUBLE PRECISION TO TRIPLE PRECISION         *
*                                                                      *
************************************************************************
  
 AN2AN645   LABEL 
  
*      COMMON PARAMETER SETUP FOR ALL CASES 
  
          MOVEZ  SENDBCP,P1 
          SUBZ   10,SENDBCP,P2
          MOVEZ  RECBCP,P3
          SUBZ   10,RECBCP,P4 
  
          IFZ    (JUSTFLG,NE,0),AN2AN660
  
*      NO JUSTIFICATION 
  
*      COMMON PARAMETER SETUP FOR ALL NON-JUSTIFIED CASES 
  
          MULTZ  6,BCPDIFF,SHIFTCT
  
          IFZ    (P4,LT,SENDSIZE),AN2AN655
  
************************************************************************
*      GENERATE CODE FOR DP SOURCE FIELD TO NON-JUSTIFIED TP RECEIVING *
*      FIELD.  BCP OF SOURCE FIELD IS GREATER THAN BCP OF RECEIVING    *
*      FIELD.  SIZE OF SOURCE FIELD IS LESS THAN OR EQUAL TO PART OF   *
*      RECEIVING FIELD LYING IN FIRST WORD.                            *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P1=BS
*      P2=10-BS 
*      P3=BR
*      P4=10-BR 
*      SHIFTCT=6*(BS-BR)
  
*                  ARITH18: 6*(FIXED)MOD 10 
          NOTE   AN2AN645 
          CALLZ  LOADIT1   SRCADDR,BS,10-BS;VREGA,VREGB 
          GEN    SHL,VREGA,SHIFTCT
          GENM   LDSPLT2
          REGP   (VREFOF,VREGB),(VREFOF,VREGA),(VREGOF,VREGA) 
            CONP   (ARITH18,SENDECP),SHIFTCT
          ENDG
          ADDZ   RECBCP,SENDSIZE,P6 
          SUBZ   10,P6,P5 
          CALLZ  ADDSPCS   10-(BR+SS),BR+SS,VREGA;VREGA 
          CALLZ  STORIT1   RECADDR,BR,10-BR,VREGA;VREGC 
          MOVEZ  1,P5 
          SUBZ   RECECP,20,P6 
          CALLZ  SPCFLRT   1,(BR+SR)-20,VREGC 
          ENDG
          RETURN
 XXIV     SPACE  4
************************************************************************
*      GENERATE CODE FOR DP SOURCE FIELD TO NON-JUSTIFIED TP RECEIVING *
*      FIELD.  BCP OF SOURCE FIELD IS GREATER THAN BCP OF RECEIVING    *
*      FIELD.  SIZE OF SOURCE FIELD IS GREATER THAN PART OF RECEIVING  *
*      FIELD LYING IN FIRST WORD.                                      *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P1=BS
*      P2=10-BS 
*      P3=BR
*      P4=10-BR 
*      SHIFTCT=6*(BS-BR)
  
*                  ARITH7: 60-6*(FIXED) 
*                  ARITH8: 6*(FIXED)
 AN2AN655   LABEL 
          NOTE   AN2AN655 
          CALLZ  LOADIT1   SRCADDR,BS,10-BS;VREGA,VREGB 
          GEN    SHL,VREGA,SHIFTCT
          ADDZ   RECBCP,SENDSIZE,P6 
          REMZ   P6,10,P6 
          GENM   LD2LFSPL 
            REGP   VREGB,(VREGOF,VREGB),(VREGOF,VREGD),(VREGOF,VREGE) 
            CONP   SHIFTCT,(ARITH7,BCPDIFF),(ARITH8,P6) 
          ENDG
          GEN    LOR,(VREGOF,VREGA),VREGA,VREGD 
          CALLZ  STORIT1   RECADDR,BR,10-BR,VREGA;VREGC 
          MOVEZ  VREGE,VREGA
          SUBZ   10,P6,P5 
          CALLZ  ADDSPCS   10-(BR+SS)MOD 10,(BR+SS)MOD 10,VREGA;VREGA 
          MOVEZ  10,P6
          CALLZ  STORIT2   VREGC,10,VREGA;VREGC 
          SUBZ   RECECP,20,P5 
          MOVEZ  0,P6 
          CALLZ  GETSPCS   (BR+SR)-20,0;VREGA 
          MOVEZ  P5,P6
          CALLZ  STORIT2   VREGC,(BR+SR)-20,VREGA;VREGC 
          RETURN
  
*      BEGIN PROCESSING DP SOURCE FIELD TO JUSTIFIED TP RECEIVING FIELD.
*      BCP OF SOURCE FIELD IS GREATER THAN BCP OF RECEIVING FIELD 
  
 AN2AN660   LABEL 
  
*      NOTICE THAT ALL OF THESE CASES CAN BE HANDLED EXACTLY LIKE THE 
*      CORRESPONDING BS=BR CASES
  
          NOTE   AN2AN660 
          BRANCH AN2AN440 
 XXV      EJECT 
*      PROCESS TP SOURCE FIELD TO SP OR DP OR TP RECEIVING FIELD.  BCP
*      OF SOURCE FIELD IS GREATER THAN BCP OF RECEIVING FIELD.
  
 AN2AN685   LABEL 
          IFZ    (RECECP,GT,20),AN2AN720
          IFZ    (RECECP,GT,10),AN2AN690
  
************************************************************************
*                                                                      *
*      XXV   BS>BR     * BCP OF SOURCE GREATER THAN BCP OF RECEIVING   *
*            TP TO SP  * TRIPLE PRECISION TO SINGLE PRECISION          *
*                                                                      *
************************************************************************
  
*      NOTICE THAT THIS CASE CAN BE HANDLED EXACTLY LIKE BS<BR DP TO SP 
*      SS>SR
  
          NOTE   AN2AN685 
          BRANCH AN2AN280 
 XXVI     EJECT 
************************************************************************
*                                                                      *
*      XXVI  BS>BR     * BCP OF SOURCE GREATER THAN BCP OF RECEIVING   *
*            TP TO DP  * TRIPLE PRECISION TO DOUBLE PRECISION          *
*                                                                      *
************************************************************************
  
 AN2AN690   LABEL 
          IFZ    (SIZEDIFF,GT,0),AN2AN710 
          IFZ    (SIZEDIFF,LT,0),AN2AN700 
  
************************************************************************
*      GENERATE CODE FOR TP SOURCE FIELD TO DP RECEIVING FIELD HAVING  *
*      THE SAME SIZE.  BCP OF SOURCE FIELD IS GREATER THAN BCP OF      *
*      RECEIVING FIELD.                                                *
************************************************************************
  
*      NOTE: FOR THE BENEFIT OF CASES WHICH CHANGE EITHER THE BCP OR THE
*      SIZE OF THE SOURCE FIELD BEFORE BRANCHING HERE, NO ARITH 
*      FUNCTIONS ARE USED ON MOVEREGA AND BCPDIFF IS NOT ASSUMED CORRECT
  
*                  ARITH18: 6*(FIXED)MOD 10 
 AN2AN695   LABEL 
          NOTE   AN2AN695 
          MOVEZ  SENDBCP,P1 
          SUBZ   10,SENDBCP,P2
          CALLZ  LOADIT1   KS,BS,10-BS;VREGA,VREGB
          SUBZ   SENDBCP,RECBCP,BCPDIFF 
          MULTZ  6,BCPDIFF,SHIFTCT
          GEN    SHL,VREGA,SHIFTCT
          SUBZ   60,SHIFTCT,MASK1 
          GENM   LD2LFSPL 
            REGP   VREGB,(VREGOF,VREGB),(VREGOF,VREGD),(VREGOF,VREGE) 
            CONP   SHIFTCT,MASK1,MASK1
          ENDG
          GEN    LOR,(VREGOF,VREGA),VREGA,VREGD 
          MOVEZ  RECBCP,P3
          SUBZ   10,RECBCP,P4 
          CALLZ  STORIT1   KR,BR,10-BR,VREGA;VREGC
          ADDZ   SENDBCP,SENDSIZE,SENDECP 
          GENM   LDSPLT2
          REGP   (VREFOF,VREGB),(VREFOF,VREGE),(VREGOF,VREGA) 
            CONP   (ARITH18,SENDECP),SHIFTCT
          ENDG
          SUBZ   RECECP,10,P6 
          CALLZ  STORIT2   VREGC,(BR+SR)-10,VREGA;VREGC 
          RETURN
 XXVI     SPACE   4 
*      PROCESS TP SOURCE FIELD TO DP RECEIVING FIELD.  BCP OF SOURCE
*      FIELD IS GREATER THAN BCP OF RECEIVING FIELD.  SIZE OF SOURCE
*      FIELD IS LESS THAN SIZE OF RECEIVING FIELD.
  
 AN2AN700   LABEL 
          SUBZ   0,SIZEDIFF,SIZEDIFF
  
*      COMMON PARAMETER SETUP FOR SS<SR CASES.
  
          MOVEZ  SENDBCP,P1 
          SUBZ   10,SENDBCP,P2
          MOVEZ  RECBCP,P3
          SUBZ   10,RECBCP,P4 
          MOVEZ  SIZEDIFF,P5
  
          IFZ    (JUSTFLG,NE,0),AN2AN705
  
************************************************************************
*      GENERATE CODE FOR TP SOURCE FIELD TO NON-JUSTIFIED DP RECEIVING *
*      FIELD.  BCP OF SOURCE FIELD IS GREATER THAN BCP OF RECEIVING    *
*      FIELD.  SIZE OF SOURCE FIELD IS LESS THAN SIZE OF RECEIVING     *
*      FIELD.                                                          *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P1=BS
*      P2=10-BS 
*      P3=BR
*      P4=10-BR 
*      P5=SR-SS 
  
*                  ARITH18: 6*(FIXED)MOD 10 
          NOTE   AN2AN700 
          CALLZ  LOADIT1   KS,BS,10-BS;VREGA,VREGB
          MULTZ  6,BCPDIFF,SHIFTCT
          GEN    SHL,VREGA,SHIFTCT
          SUBZ   60,SHIFTCT,MASK1 
          GENM   LD2LFSPL 
            REGP   VREGB,(VREGOF,VREGB),(VREGOF,VREGD),(VREGOF,VREGE) 
            CONP   SHIFTCT,MASK1,MASK1
          ENDG
          GEN    LOR,(VREGOF,VREGA),VREGA,VREGD 
          CALLZ  STORIT1   KR,BR,10-BR,VREGA;VREGC
          GENM   LDSPLT2
          REGP   (VREFOF,VREGB),(VREFOF,VREGE),(VREGOF,VREGA) 
            CONP   (ARITH18,SENDECP),SHIFTCT
          ENDG
          ADDZ   RECBCP,SENDSIZE,P6 
          REMZ   P6,10,P6 
          CALLZ  ADDSPCS   SR-SS,(BR+SS)MOD 10,VREGA;VREGA
          SUBZ   RECECP,10,P6 
          CALLZ  STORIT2   VREGC,(BR+SR)-10,VREGA;VREGC 
          RETURN
 XXVI     SPACE  4
************************************************************************
*      GENERATE CODE FOR TP SOURCE FIELD TO JUSTIFIED DP RECEIVING     *
*      FIELD.  BCP OF SOURCE FIELD IS GREATER THAN BCP OF RECEIVING    *
*      FIELD.  SIZE OF SOURCE FIELD IS LESS THAN SIZE OF RECEIVING     *
*      FIELD.                                                          *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P1=BS
*      P2=10-BS 
*      P3=BR
*      P4=10-BR 
*      P5=SR-SS 
  
*                  ARITH18: 6*(FIXED)MOD 10 
 AN2AN705   LABEL 
          NOTE   AN2AN705 
          CALLZ  LOADIT1   KS,BS,10-BS;VREGA,VREGC
          SUBZ   0,ECPDIFF,ECPDIFF
          MULTZ  6,ECPDIFF,SHIFTCT
          GEN    SHL,VREGA,SHIFTCT
          MOVEZ  RECBCP,P6
          CALLZ  ADDSPCS   SR-SS,BR,VREGA;VREGA 
          SUBZ   60,SHIFTCT,MASK1 
          GENM   LD2LFSPL 
            REGP   VREGB,(VREGOF,VREGB),(VREGOF,VREGD),(VREGOF,VREGE) 
            CONP   SHIFTCT,MASK1,MASK1
          ENDG
          GEN    LOR,(VREGOF,VREGA),VREGA,VREGD 
          CALLZ  STORIT1   KR,BR,10-BR,VREGA;VREGC
          GENM   LDSPLT2
          REGP   (VREFOF,VREGB),(VREFOF,VREGE),(VREGOF,VREGA) 
            CONP   (ARITH18,SENDECP),SHIFTCT
          ENDG
          SUBZ   RECECP,10,P6 
          CALLZ  STORIT2   VREGC,(BR+SR)-10,VREGA;VREGC 
          RETURN
 XXVI     SPACE  4
*      PROCESS TP SOURCE FIELD TO DP RECEIVING FIELD.  BCP OF SOURCE
*      FIELD IS GREATER THAN BCP OF RECEIVING FIELD.  SIZE OF SOURCE
*      FIELD IS GREATER THAN SIZE OF RECEIVING FIELD. 
  
 AN2AN710   LABEL 
          MOVEZ  RECSIZE,SENDSIZE 
          IFZ    (JUSTFLG,NE,0),AN2AN715
  
*      NO JUSTIFICATION 
  
          NOTE   AN2AN710 
          ADDZ   SENDBCP,RECSIZE,T1 
          IFZ    (T1,LE,20),AN2AN295
          BRANCH AN2AN695 
  
*      PROCESS TP SOURCE FIELD TO JUSTIFIED DP RECEIVING FIELD.  BCP OF 
*      SOURCE FIELD IS GREATER THAN BCP OF RECEIVING FIELD.  SIZE OF
*      SOURCE FIELD IS GREATER THAN SIZE OF RECEIVING FIELD.
  
*                  ARITH17: (FIXED)MOD 10 
 AN2AN715   LABEL 
          NOTE   AN2AN715 
          ADDZ   SENDBCP,SIZEDIFF,T1
          REMZ   T1,10,SENDBCP
          QUOTZ  T1,10,ADOFSET
          SUBZ   RECSIZE,(ARITH17,SENDECP),T1 
          IFZ    (T1,GT,10),AN2AN695
          IFZ    (T1,LT,0),AN2AN170 
  
*      SOURCE FIELD IS EFFECTIVELY DP- FIND APPROPRIATE DP TO DP CASE 
  
          IFZ    (SENDBCP,EQ,RECBCP),AN2AN130 
          IFZ    (SENDBCP,GT,RECBCP),AN2AN295 
          BRANCH AN2AN210 
 XXVII    EJECT 
************************************************************************
*                                                                      *
*      XXVII BS>BR     * BCP OF SOURCE GREATER THAN BCP OF RECEIVING   *
*            TP TO TP  * TRIPLE PRECISION TO TRIPLE PRECISION          *
*                                                                      *
************************************************************************
  
 AN2AN720   LABEL 
          IFZ    (SIZEDIFF,GT,0),AN2AN760 
          IFZ    (SIZEDIFF,LT,0),AN2AN730 
  
************************************************************************
*      GENERATE CODE FOR TP SOURCE FIELD TO TP RECEIVING FIELD HAVING  *
*      THE SAME SIZE.  BCP OF SOURCE FIELD IS GREATER THAN BCP OF      *
*      RECEIVING FIELD.                                                *
************************************************************************
  
*      NOTE: FOR THE BENEFIT OF CASES WHICH CHANGE EITHER THE BCP OR THE
*      SIZE OF THE SOURCE FIELD BEFORE BRANCHING HERE, NO ARITH 
*      FUNCTIONS ARE USED ON MOVEREGA AND BCPDIFF IS NOT ASSUMED CORRECT
  
*                  ARITH18: 6*(FIXED)MOD 10 
 AN2AN725   LABEL 
          NOTE   AN2AN725 
          MOVEZ  SENDBCP,P1 
          SUBZ   10,SENDBCP,P2
          CALLZ  LOADIT1   KS,BS,10-BS;VREGA,VREGB
          SUBZ   SENDBCP,RECBCP,BCPDIFF 
          MULTZ  6,BCPDIFF,SHIFTCT
          GEN    SHL,VREGA,SHIFTCT
          SUBZ   60,SHIFTCT,MASK2 
          GENM   LD2LFSPL 
            REGP   VREGB,(VREGOF,VREGB),(VREGOF,VREGD),(VREGOF,VREGE) 
            CONP   SHIFTCT,MASK2,MASK2
          ENDG
          GEN    LOR,(VREGOF,VREGA),VREGA,VREGD 
          MOVEZ  RECBCP,P3
          SUBZ   10,RECBCP,P4 
          CALLZ  STORIT1   KR,BR,10-BR,VREGA;VREGC
          GENM   LD2LFSPL 
            REGP   VREGB,(VREGOF,VREGB),(VREGOF,VREGF),(VREGOF,VREGG) 
            CONP   SHIFTCT,MASK2,(ARITH18,RECECP) 
          ENDG
          GEN    LOR,(VREGOF,VREGA),(VREFOF,VREGE),(VREFOF,VREGF) 
          MOVEZ  10,P6
          CALLZ  STORIT2   VREGC,10,VREGA;VREGC 
          MOVEZ  VREGG,VREGA
          REMZ   RECECP,10,P6 
          CALLZ  STORIT2   VREGC,(BR+SR)MOD 10,VREGA;VREGC
          RETURN
 XXVII    SPACE  4
*      PROCESS TP SOURCE FIELD TO TP RECEIVING FIELD.  BCP OF SOURCE
*      FIELD IS GREATER THAN BCP OF RECEIVING FIELD.  SIZE OF SOURCE
*      FIELD IS LESS THAN SIZE OF RECEIVING FIELD.
  
 AN2AN730   LABEL 
          SUBZ   0,SIZEDIFF,SIZEDIFF
  
*      COMMON PARAMETER SETUP FOR ALL SS<SR CASES 
  
          MOVEZ  SENDBCP,P1 
          SUBZ   10,SENDBCP,P2
          MOVEZ  RECBCP,P3
          SUBZ   10,RECBCP,P4 
  
          IFZ    (JUSTFLG,NE,0),AN2AN740
  
*      NO JUSTIFICATION 
  
*      COMMON PARAMETER SETUP FOR SS<SR NON-JUSTIFIED CASES 
  
          MULTZ  6,BCPDIFF,SHIFTCT
          SUBZ   60,SHIFTCT,MASK1 
          ADDZ   RECBCP,SENDSIZE,MASK2
  
          IFZ    (MASK2,GT,20),AN2AN735 
  
************************************************************************
*      GENERATE CODE FOR TP SOURCE FIELD TO NON-JUSTIFIED TP RECEIVING *
*      FIELD.  BCP OF SOURCE FIELD IS GREATER THAN BCP OF RECEIVING    *
*      FIELD.  SIZE OF SOURCE FIELD IS LESS THAN SIZE OF RECEIVING     *
*      FIELD.  LAST CHAR OF SOURCE FIELD WILL LIE IN SECOND WORD OF    *
*      RECEIVING FIELD                                                 *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P1=BS
*      P2=10-BS 
*      P3=BR
*      P4=10-BR 
*      SHIFTCT=6*(BS-BR)
*      MASK1=60-6*(BS-BR) 
*      MASK2=BR+SS
  
*                  ARITH18: 6*(FIXED)MOD 10 
          NOTE   AN2AN730 
          CALLZ  LOADIT1   KS,BS,10-BS;VREGA,VREGC
          GEN    SHL,VREGA,SHIFTCT
          GENM   LD2LFSPL 
            REGP   VREGB,(VREGOF,VREGB),(VREGOF,VREGD),(VREGOF,VREGE) 
            CONP   SHIFTCT,MASK1,MASK1
          ENDG
          GEN    LOR,(VREGOF,VREGA),VREGA,VREGD 
          CALLZ  STORIT1   KR,BR,10-BR,VREGA;VREGC
          GENM   LDSPLT2
          REGP   (VREFOF,VREGB),(VREFOF,VREGE),(VREGOF,VREGA) 
            CONP   (ARITH18,SENDECP),SHIFTCT
          ENDG
          MOVEZ  (ARITH21,MASK2),P6   ((MASK2-1) MOD10) + 1 
          SUBZ   10,P6,P5 
          CALLZ  ADDSPCS   10-(BR+SS)MOD 10,(BR+SS)MOD 10,VREGA;VREGA 
          MOVEZ  10,P6
          CALLZ  STORIT2   VREGC,10,VREGA;VREGC 
          SUBZ   RECECP,20,P5 
          MOVEZ  0,P6 
          CALLZ  GETSPCS   (BR+SR)-20,0;VREGA 
          MOVEZ  P5,P6
          CALLZ  STORIT2   VREGC,(BR+SR)-20,VREGA;VREGC 
          RETURN
 XXVII    SPACE  4
************************************************************************
*      GENERATE CODE FOR TP SOURCE FIELD TO NON-JUSTIFIED TP RECEIVING *
*      FIELD.  BCP OF SOURCE FIELD IS GREATER THAN BCP OF RECEIVING    *
*      FIELD.  SIZE OF SOURCE FIELD IS LESS THAN SIZE OF RECEIVING     *
*      FIELD.  LAST CHAR OF SOURCE FIELD WILL LIE IN THIRD WORD OF     *
*      RECEIVING FIELD.                                                *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P1=BS
*      P2=10-BS 
*      P3=BR
*      P4=10-BR 
*      SHIFTCT=6*(BS-BR)
*      MASK1=60-6*(BS-SR) 
*      MASK2=BR+SS
  
*                  ARITH18: 6*(FIXED)MOD 10 
 AN2AN735   LABEL 
          NOTE   AN2AN735 
          CALLZ  LOADIT1   KS,BS,10-BS;VREGA,VREGB
          GEN    SHL,VREGA,SHIFTCT
          GENM   LD2LFSPL 
            REGP   VREGB,(VREGOF,VREGB),(VREGOF,VREGD),(VREGOF,VREGE) 
            CONP   SHIFTCT,MASK1,MASK1
          ENDG
          GEN    LOR,(VREGOF,VREGA),VREGA,VREGD 
          CALLZ  STORIT1   KR,BR,10-BR,VREGA;VREGC
          GENM   LD2LFSPL 
            REGP   VREGB,(VREGOF,VREGB),(VREGOF,VREGG),(VREGOF,VREGH) 
            CONP   SHIFTCT,MASK1,(ARITH18,MASK2)
          ENDG
          GEN    LOR,(VREGOF,VREGA),VREGE,VREGG 
          MOVEZ  10,P6
          CALLZ  STORIT2   VREGC,10,VREGA;VREGC 
          MOVEZ  VREGH,VREGA
          MOVEZ  SIZEDIFF,P5
          REMZ   MASK2,10,P6
          CALLZ  ADDSPCS   SR-SS,(BR+SS)MOD 10,VREGA;VREGA
          SUBZ   RECECP,20,P6 
          CALLZ  STORIT2   VREGC,(BR+SR)-20,VREGA;VREGC 
          RETURN
 XXVII    SPACE  4
*      PROCESS TP SOURCE FIELD TO JUSTIFIED TP RECEIVING FIELD.  BCP OF 
*      SOURCE FIELD IS GREATER THAN BCP OF RECEIVING FIELD.  SIZE OF
*      SOURCE FIELD IS LESS THAN SIZE OF RECEIVING FIELD. 
  
 AN2AN740   LABEL 
  
*      COMMON PARAMETER SETUP FOR SS<SR JUSTIFIED CASES 
  
          MOVEZ  RECBCP,P6
          MULTZ  6,ECPDIFF,MASK1
          SUBZ   60,MASK1,SHIFTCT 
          ADDZ   RECBCP,SIZEDIFF,MASK2
  
          IFZ    (SENDECP,GT,RECECP),AN2AN755 
          NOTE   AN2AN740 
          IFZ    (SENDECP,LT,RECECP),AN2AN490 
  
************************************************************************
*      GENERATE CODE FOR TP SOURCE FIELD TO JUSTIFIED TP RECEIVING     *
*      FIELD HAVING THE SAME ECP.  BCP OF SOURCE FIELD IS GREATER THAN *
*      BCP OF RECEIVING FIELD.  SIZE OF SOURCE FIELD IS LESS THAN SIZE *
*      OF RECEIVING FIELD.                                             *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P1=BS
*      P2=10-BS 
*      P3=BR
*      P4=10-BR 
*      P6=BR
*      SHIFTCT=6-6*[(BR+SR)-(BS+SS)]
*      MASK1=6*[(BR+SR)-(BS+SS)]
*      MASK2=BR+(SR-SS) 
  
          NOTE   AN2AN740 
          CALLZ  LOADIT1   KS,BS,10-BS;VREGA,VREGB
          MOVEZ  SIZEDIFF,P5
          CALLZ  ADDSPCS   SR-SS,BR,VREGA;VREGA 
          CALLZ  STORIT1   KR,BR,10-BR,VREGA;VREGC
          MOVEZ  10,P6
          CALLZ  LOADIT2   VREGB,10;VREGA,VREGB 
          CALLZ  STORIT2   VREGC,10,VREGA;VREGC 
          SUBZ   SENDECP,20,P6
          CALLZ  LOADIT2   VREGB,(BS+SS)-20;VREGA,VREGB 
          CALLZ  STORIT2   VREGC,(BS+SS)-20,VREGA;VREGC 
          RETURN
 XXVII    SPACE  4
************************************************************************
*      GENERATE CODE FOR TP SOURCE FIELD TO JUSTIFIED TP RECEIVING     *
*      FIELD.  BCP OF SOURCE FIELD IS GREATER THAN BCP OF RECEIVING    *
*      FIELD.  ECP OF SOURCE FIELD IS GREATER THAN ECP OF RECEIVING    *
*      FIELD.  SIZE OF SOURCE FIELD IS LESS THAN SIZE OF RECEIVING     *
*      FIELD.                                                          *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P1=BS
*      P2=10-BS 
*      P3=BR
*      P4=10-BR 
*      P6=BR
*      SHIFTCT=60-6*[(BR+SR)-(BS+SS)] 
*      MASK1=6*[(BR+SR)-BS+SS)] 
*      MASK2=BR+(SR-SS) 
  
*                  ARITH18: 6*(FIXED)MOD 10 
 AN2AN755   LABEL 
          NOTE   AN2AN755 
          CALLZ  LOADIT1   KS,BS,10-BS;VREGA,VREGB
          SUBZ   0,MASK1,SHIFTCT
          SUBZ   60,SHIFTCT,MASK1 
          GEN    SHL,VREGA,SHIFTCT
          MOVEZ  SIZEDIFF,P5
          CALLZ  ADDSPCS   SR-SS,BR,VREGA;VREGA 
          GENM   LD2LFSPL 
            REGP   VREGB,(VREGOF,VREGB),(VREGOF,VREGD),(VREGOF,VREGE) 
            CONP   SHIFTCT,MASK1,MASK1
          ENDG
          GEN    LOR,(VREGOF,VREGA),VREGA,VREGD 
          CALLZ  STORIT1   KR,BR,10-BR,VREGA;VREGC
          GENM   LD2LFSPL 
            REGP   VREGB,(VREGOF,VREGB),(VREGOF,VREGF),(VREGOF,VREGG) 
            CONP   SHIFTCT,MASK1,(ARITH18,RECECP) 
          ENDG
          GEN    LOR,(VREGOF,VREGA),VREGE,VREGF 
          MOVEZ  10,P6
          CALLZ  STORIT2   VREGC,10,VREGA;VREGC 
          MOVEZ  VREGG,VREGA
          REMZ   RECECP,10,P6 
          CALLZ  STORIT2   VREGC,(BR+SR)MOD 10,VREGA;VREGC
          RETURN
 XXVII    SPACE  4
*      PROCESS TP SOURCE FIELD TO TP RECEIVING FIELD.  BCP OF SOURCE
*      FIELD IS GREATER THAN BCP OF RECEICING FIELD.  SIZE OF SOURCE
*      FIELD IS GREATER THAN SIZE OF RECEIVING FIELD. 
  
 AN2AN760   LABEL 
          NOTE   AN2AN760 
          MOVEZ  RECSIZE,SENDSIZE 
          IFZ    (JUSTFLG,EQ,0),AN2AN725
  
*      JUSTIFIED RECEIVING FIELD
  
          ADDZ   SENDBCP,SIZEDIFF,T1
          REMZ   T1,10,SENDBCP
          QUOTZ  T1,10,ADOFSET
          IFZ    (T1,LT,10),AN2AN725
          BRANCH AN2AN535 
 XXVIII   EJECT 
*      EXTENDED PRECISION SOURCE OR RECEIVING FIELD PROCESSING BEGINS 
*      HERE. AT LEAST ONE OF THE OPERANDS OCCUPIES AN AREA WITHIN FOUR
*      CONSECUTIVE WORDS. 
  
 AN2AN800   LABEL 
          IFZ    (BCPDIFF,GT,0),AN2AN101
          IFZ    (BCPDIFF,LT,0),AN2AN955
  
*      BEGIN PROCESSING EP FIELDS HAVING THE SAME BCPS HERE 
  
          IFZ    (SENDECP,GT,30),AN2AN885 
  
*      THE SIZE OF THE EP RECEIVING FIELD MUST BE LARGER THAN THE SIZE
*      OF THE SP OR DP OR TP SOURCE FIELD (SINCE BS=BR) 
  
          SUBZ   0,SIZEDIFF,SIZEDIFF
          IFZ    (SENDECP,GT,20),AN2AN850 
          IFZ    (SENDECP,GT,10),AN2AN820 
  
************************************************************************
*                                                                      *
*      XXVIII BS=BR     * BCP OF SOURCE EQUAL TO BCP OF RECEIVING      *
*             SP TO EP  * SINGLE PRECISION TO EXTENDED PRECISION       *
*                                                                      *
************************************************************************
  
*      COMMON PARAMETER SETUP FOR ALL CASES 
  
*                  ARITH22: (FIXED+9)/10
          MOVEZ  SENDBCP,P1 
          MOVEZ  SENDSIZE,P2
          MOVEZ  RECBCP,P3
          SUBZ   10,RECBCP,P4 
          MOVEZ  (ARITH22,RECECP),NRWDS 
  
          IFZ    (JUSTFLG,NE,0),AN2AN805
  
************************************************************************
*      GENERATE CODE FOR SP SOURCE FIELD TO NON-JUSTIFIED EP RECEIVING *
*      FIELD HAVING THE SAME BCP.                                      *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P1=BS
*      P2=SS
*      P3=BR
*      P4=10-BR 
*      NRWDS=[(BR+SR)+9]/10 
  
*                  ARITH21: [(FIXED-1)MOD 10]+1 
          NOTE   AN2AN800 
          CALLZ  LOADIT1   KS,BS,SS;VREGA,VREGB 
          ADDZ   RECBCP,SENDSIZE,P6 
          SUBZ   10,P6,P5 
          CALLZ  ADDSPCS   10-(BR+SS),BR+SS,VREGA;VREGA 
          CALLZ  STORIT1   KR,BR,10-BR,VREGA;VREGC
          SUBZ   NRWDS,2,P5 
          MOVEZ  (ARITH21,RECECP),P6
          CALLZ  SPCFLRT   [(BR+SR+9)/10]-2,[(BR+SR-1)MOD 10]+1,VREGC 
          RETURN
 XXVIII   SPACE  4
*      BEGIN PROCESSING SP SOURCE FIELD TO JUSTIFIED EP RECEIVING FIELD 
*      HAVING THE SAME BCP
  
 AN2AN805   LABEL 
  
*      COMMON PARAMETER SETUP FOR ALL JUSTIFIED CASES 
  
          SUBZ   10,RECBCP,P5 
          MOVEZ  RECBCP,P6
  
*                  ARITH21: [(FIXED-1)MOD 10]+1 
          IFZ    ((ARITH21,RECECP),LT,SENDSIZE),AN2AN815
  
************************************************************************
*      GENERATE CODE FOR SP SOURCE FIELD TO JUSTIFIED EP RECEIVING     *
*      FIELD HAVING THE SAME BCP.  SIZE OF SOURCE FIELD IS LESS THAN   *
*      OR EQUAL TO THE PART OF THE RECEIVING FIELD LYING IN THE LAST   *
*      WORD.  NOTICE THAT IF THE ECP OF THE SOURCE FIELD IS EQUAL TO   *
*      THE ECP OF THE RECEIVING FIELD WE DO NOT HAVE TO GENERATE A     *
*      SHIFT                                                           *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P1=BS
*      P2=SS
*      P3=BR
*      P4=10-BR 
*      P5=10-BR 
*      P6=BR
*      NRWDS=[(BR+SR)+9]/10 
  
*                  ARITH19: 60-6*(FIXED)MOD 10
*                  ARITH21: [(FIXED-1)MOD 10]+1 
          NOTE   AN2AN805 
          CALLZ  GETSPCS   10-BR,BR;VREGA 
          CALLZ  STORIT1   KR,BR,10-BR,VREGA;VREGC
          SUBZ   NRWDS,2,P5 
          CALLZ  STRBLNK   [(BR+SR+9)/10]-2,VREGC 
          CALLZ  LOADIT1   KS,BS,SS;VREGA,VREGB 
          IFTHEN ((ARITH21,RECECP),NE,SENDECP)
            GEN    SHL,VREGA,(ARITH19,ECPDIFF)
          ENDIFZ
          ADDZ   RECBCP,SIZEDIFF,P5 
          REMZ   P5,10,P5 
          MOVEZ  0,P6 
          CALLZ  ADDSPCS   [BR+(SR-SS)]MOD 10,0,VREGA;VREGA 
          MOVEZ  (ARITH21,RECECP),P6
          CALLZ  STORIT2   VREGC,[(BR+SR-1)MOD 10]+1,VREGA;VREGC
          RETURN
 XXVIII   SPACE  4
************************************************************************
*      GENERATE CODE FOR SP SOURCE FIELD TO JUSTIFIED EP RECEIVING     *
*      FIELD HAVING THE SAME BCP.  SIZE OF SOURCE FIELD IS GREATER THAN*
*      PART OF RECEIVING FIELD LYING IN THE LAST WORD.                 *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P1=BS
*      P2=SS
*      P3=BR
*      P4=10-BR 
*      P5=10-BR 
*      P6=BR
*      NRWDS=[(BR+SR)+9]/10 
  
*                  ARITH18: 6*(FIXED)MOD 10 
*                  ARITH19: 60-6*(FIXED)MOD 10
 AN2AN815   LABEL 
          NOTE   AN2AN815 
          CALLZ  GETSPCS   10-BR,BR;VREGA 
          CALLZ  STORIT1   KR,BR,10-BR,VREGA;VREGC
          SUBZ   NRWDS,3,P5 
          CALLZ  STRBLNK   [(BR+SR+9)/10]-3,VREGC 
          ADDZ   RECBCP,SIZEDIFF,MASK1
          GENM   LDRTSPLT 
          SYMP   SRCADDR
          REGP   (VREGOF,VREGB),(VREGOF,VREGA),(VREGOF,VREGD) 
            CONP   (ARITH19,ECPDIFF),(ARITH18,MASK1),(ARITH18,RECECP) 
          ENDG
          REMZ   MASK1,10,P5
          MOVEZ  0,P6 
          CALLZ  ADDSPCS   [BR+(SR-SS)]MOD 10,0,VREGA;VREGA 
          MOVEZ  10,P6
          CALLZ  STORIT2   VREGC,10,VREGA;VREGC 
          MOVEZ  VREGD,VREGA
          REMZ   RECECP,10,P6 
          CALLZ  STORIT2   VREGC,(BR+SR)MOD 10,VREGA;VREGC
          RETURN
 XXIX     EJECT 
************************************************************************
*                                                                      *
*      XXIX  BS=BR     * BCP OF SOURCE EQUAL TO BCP OF RECEIVING       *
*            DP TO EP  * DOUBLE PRECISION TO EXTENDED PRECISION        *
*                                                                      *
************************************************************************
  
 AN2AN820   LABEL 
  
*      COMMON PARAMETER SETUP FOR ALL CASES 
  
*                  ARITH22: (FIXED+9)/10
          MOVEZ  SENDBCP,P1 
          SUBZ   10,SENDBCP,P2
          MOVEZ  RECBCP,P3
          SUBZ   10,RECBCP,P4 
          MOVEZ  (ARITH22,RECECP),NRWDS 
  
          IFZ    (JUSTFLG,NE,0),AN2AN825
  
************************************************************************
*      GENERATE CODE FOR DP SOURCE FIELD TO NON-JUSTIFIED EP RECEIVING *
*      FIELD HAVING THE SAME BCP.                                      *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P1=BS
*      P2=10-BS 
*      P3=BR
*      P4=10-BR 
*      NRWDS=[(BR+SR)+9]/10 
  
*                  ARITH21: [(FIXED-1)MOD 10]+1 
          NOTE   AN2AN820 
          CALLZ  LOADIT1   KS,BS,10-BS;VREGA,VREGB
          CALLZ  STORIT1   KR,BR,10-BR,VREGA;VREGC
          SUBZ   SENDECP,10,P6
          CALLZ  LOADIT2   VREGB,(BS+SS)-10;VREGA,VREGB 
          SUBZ   20,SENDECP,P5
          CALLZ  ADDSPCS   20-(BS+SS),(BS+SS)-10,VREGA;VREGA
          MOVEZ  10,P6
          CALLZ  STORIT2   VREGC,10,VREGA;VREGC 
          SUBZ   NRWDS,3,P5 
          MOVEZ  (ARITH21,RECECP),P6
          CALLZ  SPCFLRT   [(BR+SR+9)/10]-3,[(BR+SR-1)MOD 10]+1,VREGC 
          RETURN
 XXIX     SPACE  4
*      BEGIN PROCESSING DP SOURCE FIELD TO JUSTIFIED EP RECEIVING FIELD 
*      HAVING THE SAME BCP
  
 AN2AN825   LABEL 
  
*      COMMON PARAEMTER SETUP FOR ALL JUSTIFIED CASES 
  
*                  ARITH19: 60-6*(FIXED)MOD 10
          SUBZ   10,RECBCP,P5 
          MOVEZ  RECBCP,P6
          MOVEZ  (ARITH19,ECPDIFF),SHIFTCT
  
*                  ARITH21: [(FIXED-1)MOD 10]+1 
          MOVEZ  (ARITH21,RECECP),T1
          IFZ    (T1,LT,SENDSIZE),AN2AN830
  
************************************************************************
*      GENERATE CODE FOR DP SOURCE FIELD TO JUSTIFIED EP RECEIVING     *
*      FIELD HAVING THE SAME BCP. SIZE OF SOURCE FIELD IS LESS THAN    *
*      OR EQUAL TO PART OF RECEIVING FIELD LYING IN LAST WORD.         *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED 
  
*      P1=BS
*      P2=10-BS 
*      P3=BR
*      P4=10-BR 
*      P5=10-BR 
*      P6=BR
*      NRWDS=[(BR+SR)+9]/10 
*      SHIFTCT=60-6*[(BR+SR)-(BS+SS)]MOD 10 
  
*                  ARITH18: 6*(FIXED)MOD 10 
*                  ARITH21: [(FIXED-1)MOD 10]+1 
          NOTE   AN2AN825 
          CALLZ  GETSPCS   10-BR,BR;VREGA 
          CALLZ  STORIT1   KR,BR,10-BR,VREGA;VREGC
          SUBZ   NRWDS,2,P5 
          CALLZ  STRBLNK   [(BR+SR+9)/10]-2,VREGC 
          CALLZ  LOADIT1   KS,BS,10-BS;VREGA,VREGB
          GEN    SHL,(VREFOF,VREGA),SHIFTCT 
          GENM   LDSPLT2
          REGP   (VREFOF,VREGB),(VREFOF,VREGA),(VREGOF,VREGA) 
            CONP   (ARITH18,SENDECP),SHIFTCT
          ENDG
          ADDZ   RECBCP,SIZEDIFF,P5 
          REMZ   P5,10,P5 
          MOVEZ  0,P6 
          CALLZ  ADDSPCS   [BR+(SR-SS)]MOD 10,0,VREGA;VREGA 
          MOVEZ  (ARITH21,RECECP),P6
          CALLZ  STORIT2   VREGC,[(BR+SR-1)MOD 10]+1,VREGA;VREGC
          RETURN
 XXIX     SPACE  4
*      BEGIN PROCESSING DP SOURCE FIELD TO JUSTIFIED EP RECEIVING FIELD 
*      HAVING THE SAME BCP.  SIZE OF SOURCE FIELD IS LARGER THAN PART 
*      OF RECEIVING FIELD LYING IN LAST WORD
*      NOTICE FROM THE LAST DECISION THAT T1=[(BR+SR-1)MOD 10]+1
  
 AN2AN830   LABEL 
          SUBZ   SENDECP,10,T2
          IFZ    (T1,GT,T2),AN2AN845
          IFZ    (T1,LT,T2),AN2AN835
  
************************************************************************
*      GENERATE CODE FOR DP SOURCE FIELD TO JUSTIFIED EP RECEIVING     *
*      FIELD HAVING THE SAME BCP AND THE SAME ECP.                     *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P1=BS
*      P2=10-BS 
*      P3=BR
*      P4=10-BR 
*      P5=10-BR 
*      P6=BR
*      NRWDS=[(BR+SR)+9]/10 
*      SHIFTCT=60-6*[(BR+SR)-(BS+SS)]MOD 10 
  
          NOTE   AN2AN830 
          CALLZ  GETSPCS   10-BR,BR;VREGA 
          CALLZ  STORIT1   KR,BR,10-BR,VREGA;VREGC
          SUBZ   NRWDS,3,P5 
          CALLZ  STRBLNK   [(BR+SR+9)/10]-3,VREGC 
          CALLZ  LOADIT1   KS,BS,10-BS;VREGA,VREGB
          MOVEZ  SENDBCP,P5 
          MOVEZ  0,P6 
          CALLZ  ADDSPCS   BS,0,VREGA;VREGA 
          MOVEZ  10,P6
          CALLZ  STORIT2   VREGC,10,VREGA;VREGC 
          SUBZ   SENDECP,10,P6
          CALLZ  LOADIT2   VREGB,(BS+SS)-10;VREGA,VREGB 
          CALLZ  STORIT2   VREGC,(BS+SS)-10,VREGA;VREGC 
          RETURN
 XXIX     SPACE  4
*      BEGIN PROCESSING DP SOURCE FIELD TO JUSTIFIED EP RECEIVING FIELD 
*      HAVING THE SAME BCP.  THE SIZE OF THE SOURCE FIELD IS GREATER
*      THAN THE PART OF THE RECEIVING FIELD LYING IN THE LAST WORD. 
*      THE ECP OF THE SOURCE FIELD IS GREATER THAN THE ECP OF          *
*      THE RECEIVING FIELD. 
  
*                  ARITH17: (FIXED)MOD 10 
 AN2AN835   LABEL 
          SUBZ   SENDSIZE,(ARITH17,RECECP),T1 
          IFZ    (T1,LE,10),AN2AN840
  
************************************************************************
*      GENERATE CODE FOR DP SOURCE FIELD TO JUSTIFIED EP RECEIVING     *
*      FIELD HAVING THE SAME BCP.  THE ECP OF THE SOURCE FIELD         *
*      IS GREATER THAN THE ECP OF THE RECEIVING FIELD.  THE 
*      FIRST CHAR OF THE SOURCE FIELD WILL LIE IN THE THIRD FROM THE   *
*      LAST WORD OF THE RECEIVING FIELD                                *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P1=BS
*      P2=10-BS 
*      P3=BR
*      P4=10-BR 
*      P5=10-BR 
*      P6=BR
*      NRWDS=[(BR+SR)+9]/10 
*      SHIFTCT=60-6*[(BR+SR)-(BS+SS)]MOD 10 
  
*                  ARITH8: 6*(FIXED)
*                  ARITH18: 6*(FIXED)MOD 10 
          NOTE   AN2AN835 
          CALLZ  GETSPCS   10-BR,BR;VREGA 
          CALLZ  STORIT1   KR,BR,10-BR,VREGA;VREGC
          SUBZ   NRWDS,4,P5 
          CALLZ  STRBLNK   [(BR+SR+9)/10]-4,VREGC 
          ADDZ   RECBCP,SIZEDIFF,P5 
          REMZ   P5,10,P5 
          MOVEZ  (ARITH18,ECPDIFF),MASK2
          GENM   LDRTSPLT 
          SYMP   SRCADDR
          REGP   (VREGOF,VREGB),(VREGOF,VREGA),(VREGOF,VREGD) 
          CONP   SHIFTCT,(ARITH8,P5),MASK2
          ENDG
          MOVEZ  0,P6 
          CALLZ  ADDSPCS   [BR+(SR-SS)]MOD 10,0,VREGA;VREGA 
          MOVEZ  10,P6
          CALLZ  STORIT2   VREGC,10,VREGA;VREGC 
          GENM   LD2LFSPL 
            REGP   VREGB,(VREGOF,VREGB),(VREGOF,VREGE),(VREGOF,VREGF) 
            CONP   SHIFTCT,MASK2,(ARITH18,RECECP) 
          ENDG
          GEN    LOR,(VREGOF,VREGA),(VREFOF,VREGD),(VREFOF,VREGE) 
          CALLZ  STORIT2   VREGC,10,VREGA;VREGC 
          MOVEZ  VREGF,VREGA
          REMZ   RECECP,10,P6 
          CALLZ  STORIT2   VREGC,(BR+SR)MOD 10,VREGA;VREGC
          RETURN
 XXIX     SPACE  4
************************************************************************
*      GENERATE CODE FOR DP SOURCE FIELD TO JUSTIFIED EP RECEIVING     *
*      FIELD HAVING THE SAME BCP.  THE ECP OF THE SOURCE FIELD IS      *
*      GREATER THAN THE ECP OF THE RECEIVING FIELD.  THE FIRST CHAR OF *
*      THE SOURCE FIELD WILL LIE IN THE NEXT TO THE LAST WORD OF THE   *
*      RECEIVING FIELD.                                                *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P1=BS
*      P2=10-BS 
*      P3=BR
*      P4=10-BR 
*      P5=10-BR 
*      P6=BR
*      NRWDS=[(BR+SR)+9]/10 
*      SHIFTCT=60-6*[(BR+SR)-(BS+SS)]MOD 10 
  
*                  ARITH18: 6*(FIXED)MOD 10 
 AN2AN840   LABEL 
          NOTE   AN2AN840 
          CALLZ  GETSPCS   10-BR,BR;VREGA 
          CALLZ  STORIT1   KR,BR,10-BR,VREGA;VREGC
          SUBZ   NRWDS,3,P5 
          CALLZ  STRBLNK   [(BR+SR+9)/10]-3,VREGC 
          CALLZ  LOADIT1   KS,BS,10-BS;VREGA,VREGB
          GEN    SHL,(VREFOF,VREGA),SHIFTCT 
          ADDZ   RECBCP,SIZEDIFF,P5 
          REMZ   P5,10,P5 
          MOVEZ  0,P6 
          CALLZ  ADDSPCS   [BR+(SR-SS)]MOD 10,0,VREGA;VREGA 
          GENM   LD2LFSPL 
            REGP   VREGB,(VREGOF,VREGB),(VREGOF,VREGD),(VREGOF,VREGE) 
            CONP   SHIFTCT,(ARITH18,ECPDIFF),(ARITH18,RECECP) 
          ENDG
          GEN    LOR,(VREGOF,VREGA),VREGA,VREGD 
          MOVEZ  10,P6
          CALLZ  STORIT2   VREGC,10,VREGA;VREGC 
          MOVEZ  VREGE,VREGA
          REMZ   RECECP,10,P6 
          CALLZ  STORIT2   VREGC,(BR+SR)MOD 10,VREGA;VREGC
          RETURN
          SPACE   4 
************************************************************************
*      GENERATE CODE FOR DP SOURCE FIELD TO JUSTIFIED EP RECEIVING     *
*      FIELD HAVING THE SAME BCP.  SIZE OF SOURCE FIELD IS GREATER THAN*
*      PART OF RECEIVING FIELD LYING IN THE LAST WORD.  ECP OF SOURCE  *
*      FIELD IS LESS THAN ECP OF RECEIVING FIELD.                      *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P1=BS
*      P2=10-BS 
*      P3=BR
*      P4=10-BR 
*      P5=10-BR 
*      P6=BR
*      NRWDS=[(BR+SR)+9]/10 
*      SHIFTCT=60-6*[(BR+SR)-(BS+SS)]MOD 10 
  
*                  ARITH: 6*(FIXED) 
*                  ARITH18: 6*(FIXED)MOD 10 
*                  ARITH21: [(FIXED-1)MOD 10]+1 
 AN2AN845   LABEL 
          NOTE   AN2AN845 
          CALLZ  GETSPCS   10-BR,BR;VREGA 
          CALLZ  STORIT1   KR,BR,10-BR,VREGA;VREGC
          SUBZ   NRWDS,3,P5 
          CALLZ  STRBLNK   [(BR+SR+9)/10]-3,VREGC 
          ADDZ   RECBCP,SIZEDIFF,P5 
          REMZ   P5,10,P5 
          GENM   LDRTSPLT 
          SYMP   SRCADDR
          REGP   (VREGOF,VREGB),(VREGOF,VREGA),(VREGOF,VREGD) 
            CONP   SHIFTCT,(ARITH18,P5),(ARITH18,ECPDIFF) 
  
          ENDG
          MOVEZ  0,P6 
          CALLZ  ADDSPCS   [BR+(SR-SS)]MOD 10,0,VREGA;VREGA 
          MOVEZ  10,P6
          CALLZ  STORIT2   VREGC,10,VREGA;VREGC 
          GENM   LDSPLT2
          REGP   (VREFOF,VREGB),(VREFOF,VREGD),(VREGOF,VREGA) 
            CONP   (ARITH18,SENDECP),SHIFTCT
          ENDG
          MOVEZ  (ARITH21,RECECP),P6
          CALLZ  STORIT2   VREGC,[(BR+SR-1)MOD 10]+1,VREGA;VREGC
          RETURN
 XXX      EJECT 
************************************************************************
*                                                                      *
*      XXX   BS=BR     * BCP OF SOURCE EQUAL TO BCP OF RECEIVING       *
*            TP TO EP  * TRIPLE PRECISION TO EXTENDED PRECISION        *
*                                                                      *
************************************************************************
  
 AN2AN850   LABEL 
  
*      COMMON PARAMETER SETUP FOR ALL CASES 
  
*                  ARITH22: (FIXED+9)/10
          MOVEZ  SENDBCP,P1 
          SUBZ   10,SENDBCP,P2
          MOVEZ  RECBCP,P3
          SUBZ   10,RECBCP,P4 
          MOVEZ  (ARITH22,RECECP),NRWDS 
  
          IFZ    (JUSTFLG,NE,0),AN2AN855
  
************************************************************************
*      GENERATE CODE FOR TP SOURCE FIELD TO NON-JUSTIFIED EP RECEIVING *
*      FIELD HAVING THE SAME BCP.                                      *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P1=BS
*      P2=10-BS 
*      P3=BR
*      P4=10-BR 
*      NRWDS=[(BR+SR)+9]/10 
  
*                  ARITH21: [(FIXED-1)MOD 10]+1 
          NOTE   AN2AN850 
          CALLZ  LOADIT1   KS,BS,10-BS;VREGA,VREGB
          CALLZ  STORIT1   KR,BR,10-BR,VREGA;VREGC
          MOVEZ  10,P6
          CALLZ  LOADIT2   VREGB,10;VREGA,VREGB 
          CALLZ  STORIT2   VREGC,10,VREGA;VREGC 
          SUBZ   SENDECP,20,P6
          CALLZ  LOADIT2   VREGB,(BS+SS)-20;VREGA,VREGB 
          ADDZ   RECBCP,SENDSIZE,P6 
          SUBZ   30,P6,P5 
          SUBZ   P6,20,P6 
          CALLZ  ADDSPCS   30-(BR+SS),(BR+SS)-20,VREGA;VREGA
          MOVEZ  10,P6
          CALLZ  STORIT2   VREGC,10,VREGA;VREGC 
          SUBZ   NRWDS,4,P5 
          MOVEZ  (ARITH21,RECECP),P6
          CALLZ  SPCFLRT   [(BR+SR+9)/10]-4,[(BR+SR-1)MOD 10]+1,VREGC 
          RETURN
 XXX      SPACE  4
*      BEGIN PROCESSING TP SOURCE FIELD TO JUSTIFIED EP RECEIVING FIELD 
*      HAVING THE SAME BCP. 
  
 AN2AN855   LABEL 
  
*      COMMON PARAMETER SETUP FOR ALL JUSTIFIED CASES 
  
*                  ARITH18: 6*(FIXED)MOD 10 
          SUBZ   10,RECBCP,P5 
          MOVEZ  RECBCP,P6
          MOVEZ  (ARITH18,ECPDIFF),MASK2
          SUBZ   60,MASK2,SHIFTCT 
          ADDZ   RECBCP,SIZEDIFF,MASK1
  
*                  ARITH21: [(FIXED-1)MOD 10]+1 
          SUBZ   SENDECP,20,T1
          MOVEZ  (ARITH21,RECECP),T2
          IFZ    (T1,GT,T2),AN2AN860
          IFZ    (T1,LT,T2),AN2AN875
  
************************************************************************
*      GENERATE CODE FOR TP SOURCE FIELD TO JUSTIFIED EP RECEIVING     *
*      FIELD HAVING THE SAME BCP AND THE SAME ECP.                     *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P1=BS
*      P2=10-BS 
*      P3=BR
*      P4=10-BR 
*      P5=10-BR 
*      P6=BR
*      NRWDS=[(BR+SR)+9]/10 
  
          NOTE   AN2AN855 
          CALLZ  GETSPCS   10-BR,BR;VREGA 
          CALLZ  STORIT1   KR,BR,10-BR,VREGA;VREGC
          SUBZ   NRWDS,4,P5 
          CALLZ  STRBLNK   [(BR+SR+9)/10]-4,VREGC 
          CALLZ  LOADIT1   BS,10-BS;VREGA,VREGB 
          MOVEZ  SENDBCP,P5 
          MOVEZ  0,P6 
          CALLZ  ADDSPCS   BS,0,VREGA;VREGA 
          MOVEZ  10,P6
          CALLZ  STORIT2   VREGC,10,VREGA;VREGC 
          CALLZ  LOADIT2   VREGB,10;VREGA,VREGB 
          CALLZ  STORIT2   VREGC,10,VREGA;VREGC 
          SUBZ   SENDECP,20,P6
          CALLZ  LOADIT2   VREGB,(BS+SS)-20;VREGA,VREGB 
          CALLZ  STORIT2   VREGC,(BS+SS)-20;VREGA;VREGC 
          RETURN
 XXX      SPACE  4
*      BEGIN PROCESSING TP SOURCE FIELD TO JUSTIFIED EP RECEIVING FIELD 
*      HAVING THE SAME BCP. ECP OF SOURCE FIELD IS GREATER THAN ECP OF
*      RECEIVING FIELD. 
*      NOTICE FROM PRIOR PARAMETER SETUP THAT MASK1=BR+(SR-SS)
  
 AN2AN860   LABEL 
          IFZ    (MASK1,GE,10),AN2AN865 
  
************************************************************************
*      GENERATE CODE FOR TP SOURCE FIELD TO JUSTIFIED EP RECEIVING     *
*      FIELD HAVING THE SAME BCP.  FIRST CHAR OF SOURCE FIELD WILL LIE *
*      IN FIRST WORD OF RECEIVING FIELD.                               *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P1=BS
*      P2=10-BS 
*      P3=BR
*      P4=10-BR 
*      P5=10-BR 
*      P6=BR
*      NRWDS=[(BR+SR)+9]/10 
*      SHIFTCT=60-6*[(BR+SR)-(BS+SS)]MOD 10 
*      MASK1=BR+(SR-SS) 
*      MASK2=6*[(B+SR)-(BS+SS)]MOD 10 
  
*                  ARITH8: 6*(FIXED)
*                  ARITH18: 6*(FIXED)MOD 10 
          NOTE   AN2AN860 
          GENM   LDRTSPLT 
          SYMP   SRCADDR
            REGP   (VREGOF,VREGB),(VREGOF,VREGA),(VREGOF,VREGD) 
          CONP   SHIFTCT,(ARITH8,MASK1),MASK2 
          ENDG
          MOVEZ  SIZEDIFF,P5
          CALLZ  ADDSPCS   SR-SS,BR,VREGA;VREGA 
          CALLZ  STORIT1   KR,BR,10-BR,VREGA;VREGC
          GENM   LD2LFSPL 
            REGP   VREGB,(VREGOF,VREGB),(VREGOF,VREGE),(VREGOF,VREGF) 
            CONP   SHIFTCT,MASK2,MASK2
          ENDG
          GEN    LOR,(VREGOF,VREGA),VREGD,VREGE 
          MOVEZ  10,P6
          CALLZ  STORIT2   VREGC,10,VREGA;VREGC 
          GENM   LD2LFSPL 
            REGP   VREGB,(VREGOF,VREGB),(VREGOF,VREGG),(VREGOF,VREGH) 
          CONP   SHIFTCT,MASK2,(ARITH18,RECECP) 
          ENDG
          GEN    LOR,(VREGOF,VREGA),VREGF,VREGG 
          CALLZ  STORIT2   VREGC,10,VREGA;VREGC 
          MOVEZ  VREGH,VREGA
          REMZ   RECECP,10,P6 
          CALLZ  STORIT2   VREGC,(BR+SR)MOD 10,VREGA;VREGC
          RETURN
 XXX      SPACE  4
*      PROCESS TP SOURCE FIELD TO JUSTIFIED EP RECEIVING FIELD HAVING 
*      THE SAME BCP.  ECP OF SOURCE FIELD IS GREATER THAN ECP OF
*      RECEIVING FIELD.  THE FIRST CHAR OF THE SOURCE FIELD WILL NOT
*      LIE IN FIRST WORD OF RECEIVING FIELD.
  
*                  ARITH21: [(FIXED-1)MOD 10]+1 
 AN2AN865   LABEL 
          SUBZ   SENDSIZE,(ARITH21,RECECP),T1 
          IFZ    (T1,LE,20),AN2AN870
  
************************************************************************
*      GENERATE CODE FOR TP SOURCE FIELD TO JUSTIFIED EP RECEIVING     *
*      FIELD HAVING THE SAME BCP.  THE ECP OF THE SOURCE FIELD IS      *
*      GREATER THAN THE ECP OF THE RECEIVING FIELD.  THE FIRST CHAR OF *
*      SOURCE FIELD WILL LIE IN FOURTH FROM LAST WORD OF RECEIVING     *
*      FIELD                                                           *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P1=BS
*      P2=10-BS 
*      P3=BR
*      P4=10-BR 
*      P5=10-BR 
*      P6=BR
*      NRWDS=[(BR+SR)+9]/10 
*      SHIFTCT=60-6*[(BR+SR)-(BS+SS)]MOD 10 
*      MASK1=BR+(SR-SS) 
*      MASK2=6*[(B+SR)-(BS+SS)]MOD 10 
  
*                  ARITH18: 6*(FIXED)MOD 10 
          NOTE   AN2AN865 
          CALLZ  GETSPCS   10-BR,BR;VREGA 
          CALLZ  STORIT1   KR,BR,10-BR,VREGA;VREGC
          SUBZ   NRWDS,5,P5 
          CALLZ  STRBLNK   [(BR+SR+9)/10]-5,VREGC 
          GENM   LDRTSPLT 
          SYMP   SRCADDR
          REGP   (VREGOF,VREGB),(VREGOF,VREGA),(VREGOF,VREGD) 
            CONP   SHIFTCT,(ARITH18,MASK1),MASK2
          ENDG
          REMZ   MASK1,10,P5
          MOVEZ  0,P6 
          CALLZ  ADDSPCS   [BR+(SR-SS)]MOD 10,0,VREGA;VREGA 
          MOVEZ  10,P6
          CALLZ  STORIT2   VREGC,10,VREGA;VREGC 
          GENM   LD2LFSPL 
            REGP   VREGB,(VREGOF,VREGB),(VREGOF,VREGE),(VREGOF,VREGF) 
            CONP   SHIFTCT,MASK2,MASK2
          ENDG
          GEN    LOR,(VREGOF,VREGA),(VREFOF,VREGD),(VREFOF,VREGE) 
          CALLZ  STORIT2   VREGC,10,VREGA;VREGC 
          GENM   LD2LFSPL 
            REGP   VREGB,(VREGOF,VREGB),(VREGOF,VREGG),(VREGOF,VREGH) 
          CONP   SHIFTCT,MASK2,(ARITH18,RECECP) 
          ENDG
          GEN    LOR,(VREGOF,VREGA),VREGF,VREGG 
          CALLZ  STORIT2   VREGC,10,VREGA;VREGC 
          REMZ   RECECP,10,P6 
          MOVEZ  VREGH,VREGA
          CALLZ  STORIT2   VREGC,(BR+SR)MOD 10,VREGA;VREGC
          RETURN
 XXX      SPACE  4
************************************************************************
*      GENERATE CODE FOR TP SOURCE FIELD TO JUSTIFIED EP RECEIVING     *
*      FIELD HAVING THE SAME BCP.  THE ECP OF THE SOURCE FIELD IS      *
*      GREATER THAN THE ECP OF THE RECEIVING FIELD.  THE FIRST CHAR OF *
*      SOURCE FIELD WILL LIE IN THIRD FROM LAST WORD OF RECEIVING FIELD*
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P1=BS
*      P2=10-BS 
*      P3=BR
*      P4=10-BR 
*      P5=10-BR 
*      P6=BR
*      NRWDS=[(BR+SR)+9]/10 
*      SHIFTCT=60-6*[(BR+SR)-(BS+SS)]MOD 10 
*      MASK1=BR+(SR-SS) 
*      MASK2=6*[(B+SR)-(BS+SS)]MOD 10 
  
*                  ARITH18: 6*(FIXED)MOD 10 
 AN2AN870   LABEL 
          NOTE   AN2AN870 
          CALLZ  GETSPCS   10-BR,BR;VREGA 
          CALLZ  STORIT1   KR,BR,10-BR,VREGA;VREGC
          SUBZ   NRWDS,4,P5 
          CALLZ  STRBLNK   [(BR+SR+9)/10]-4,VREGC 
          CALLZ  LOADIT1   KS,BS,10-BS;VREGA,VREGB
          GEN    SHL,(VREFOF,VREGA),SHIFTCT 
          REMZ   MASK1,10,P5
          MOVEZ  0,P6 
          CALLZ  ADDSPCS   [BR+(SR-SS)]MOD 10,0,VREGA;VREGA 
          GENM   LD2LFSPL 
            REGP   VREGB,(VREGOF,VREGB),(VREGOF,VREGD),(VREGOF,VREGE) 
            CONP   SHIFTCT,MASK2,MASK2
          ENDG
          GEN    LOR,(VREGOF,VREGA),VREGA,VREGD 
          MOVEZ  10,P6
          CALLZ  STORIT2   VREGC,10,VREGA;VREGC 
          GENM   LD2LFSPL 
            REGP   VREGB,(VREGOF,VREGB),(VREGOF,VREGF),(VREGOF,VREGG) 
            CONP   SHIFTCT,MASK2,(ARITH18,RECECP) 
          ENDG
          GEN    LOR,(VREGOF,VREGA),VREGE,VREGF 
          CALLZ  STORIT2   VREGC,10,VREGA;VREGC 
          MOVEZ  VREGG,VREGA
          REMZ   RECECP,10,P6 
          CALLZ  STORIT2   VREGC,(BR+SR)MOD 10,VREGA;VREGC
          RETURN
 XXX      SPACE  4
*      BEGIN PROCESSING TP SOURCE FIELD TO JUSTIFIED EP RECEIVING FIELD 
*      HAVING THE SAME BCP.  THE ECP OF THE SOURCE FIELD IS LESS THAN 
*      THE ECP OF THE RECEIVING FIELD 
  
*                  ARITH21: [(FIXED-1)MOD 10]+1 
 AN2AN875   LABEL 
          SUBZ   SENDSIZE,(ARITH21,RECECP),T1 
          IFZ    (T1,LE,10),AN2AN880
  
************************************************************************
*      GENERATE CODE FOR TP SOURCE FIELD TO JUSTIFIED EP RECEIVING     *
*      FIELD HAVING THE SAME BCP.  THE ECP OF THE SOURCE FIELD IS LESS *
*      THAN THE ECP OF THE RECEIVING FIELD.  THE FIRST CHAR OF SOURCE  *
*      FIELD WILL LIE IN THIRD FROM LAST WORD OF RECEIVING FIELD.      *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P1=BS
*      P2=10-BS 
*      P3=BR
*      P4=10-BR 
*      P5=10-BR 
*      P6=BR
*      NRWDS=[(BR+SR)+9]/10 
*      SHIFTCT=60-6*[(BR+SR)-(BS+SS)]MOD 10 
*      MASK1=BR+(SR-SS) 
*      MASK2=6*[(B+SR)-(BS+SS)]MOD 10 
  
*                  ARITH18: 6*(FIXED)MOD 10 
*                  ARITH21: [(FIXED-1)MOD 10]+1 
          NOTE   AN2AN875 
          CALLZ  GETSPCS   10-BR,BR;VREGA 
          CALLZ  STORIT1   KR,BR,10-BR,VREGA;VREGC
          SUBZ   NRWDS,4,P5 
          CALLZ  STRBLNK   [(BR+SR+9)/10]-4,VREGC 
          GENM   LDRTSPLT 
          SYMP   SRCADDR
          REGP   (VREGOF,VREGB),(VREGOF,VREGA),(VREGOF,VREGD) 
            CONP   SHIFTCT,(ARITH18,MASK1),MASK2
          ENDG
          REMZ   MASK1,10,P5
          MOVEZ  0,P6 
          CALLZ  ADDSPCS   [BR+(SR-SS)]MOD 10,0,VREGA;VREGA 
          MOVEZ  10,P6
          CALLZ  STORIT2   VREGC,10,VREGA;VREGC 
          GENM   LD2LFSPL 
            REGP   VREGB,(VREGOF,VREGB),(VREGOF,VREGE),(VREGOF,VREGF) 
            CONP   SHIFTCT,MASK2,MASK2
          ENDG
          GEN    LOR,(VREGOF,VREGA),(VREFOF,VREGD),(VREFOF,VREGE) 
          CALLZ  STORIT2   VREGC,10,VREGA;VREGC 
          GENM   LDSPLT2
          REGP   (VREFOF,VREGB),(VREFOF,VREGF),(VREGOF,VREGA) 
            CONP   (ARITH18,SENDECP),SHIFTCT
          ENDG
          MOVEZ  (ARITH21,RECECP),P6
          CALLZ  STORIT2   VREGC,[(BR+SR-1)MOD 10]+1,VREGA;VREGC
          RETURN
 XXX      SPACE  4
************************************************************************
*      GENERATE CODE FOR TP SOURCE FIELD TO JUSTIFIED EP RECEIVING     *
*      FIELD HAVING THE SAME BCP. THE ECP OF THE SOURCE FIELD IS LESS  *
*      THAN THE ECP OF THE RECEIVING FIELD.  THE FIRST CHAR OF SOURCE  *
*      FIELD WILL LIE IN NEXT TO LAST WORD OF RECEIVING FIELD.         *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P1=BS
*      P2=10-BS 
*      P3=BR
*      P4=10-BR 
*      P5=10-BR 
*      P6=BR
*      NRWDS=[(BR+SR)+9]/10 
*      SHIFTCT=60-6*[(BR+SR)-(BS+SS)]MOD 10 
*      MASK1=BR+(SR-SS) 
*      MASK2=6*[(B+SR)-(BS+SS)]MOD 10 
  
*                  ARITH18: 6*(FIXED)MOD 10 
*                  ARITH21: [(FIXED-1)MOD 10]+1 
 AN2AN880   LABEL 
          NOTE   AN2AN880 
          CALLZ  GETSPCS   10-BR,BR;VREGA 
          CALLZ  STORIT1   KR,BR,10-BR,VREGA;VREGC
          SUBZ   NRWDS,3,P5 
          CALLZ  STRBLNK   [(BR+SR+9)/10]-3,VREGC 
          CALLZ  LOADIT1   KS,BS,10-BS;VREGA,VREGB
          GEN    SHL,(VREFOF,VREGA),SHIFTCT 
          REMZ   MASK1,10,P5
          MOVEZ  0,P6 
          CALLZ  ADDSPCS   [BR+(SR-SS)]MOD 10,0,VREGA;VREGA 
          GENM   LD2LFSPL 
            REGP   VREGB,(VREGOF,VREGB),(VREGOF,VREGD),(VREGOF,VREGE) 
            CONP   SHIFTCT,MASK2,MASK2
          ENDG
          GEN    LOR,(VREGOF,VREGA),VREGA,VREGD 
          MOVEZ  10,P6
          CALLZ  STORIT2   VREGC,10,VREGA;VREGC 
          GENM   LDSPLT2
          REGP   (VREFOF,VREGB),(VREFOF,VREGE),(VREGOF,VREGA) 
            CONP   (ARITH18,SENDECP),SHIFTCT
          ENDG
          MOVEZ  (ARITH21,RECECP),P6
          CALLZ  STORIT2   VREGC,[(BR+SR-1)MOD 10]+1,VREGA;VREGC
          RETURN
 XXXI     EJECT 
*      BEGIN PROCESSING EP SOURCE FIELD TO SP OR DP OR TP OR EP 
*      RECEIVING FIELD HAVING SAME BCP
  
 AN2AN885 LABEL 
          IFZ    (RECECP,GT,30),AN2AN900
          IFZ    (RECECP,GT,20),AN2AN895
          IFZ    (RECECP,GT,10),AN2AN890
  
************************************************************************
*                                                                      *
*      XXXI  BS=BR     * BCP OF SOURCE EQUAL TO BCP OF RECEIVING       *
*            EP TO SP  * EXTENDED PRECISION TO SINGLE PRECISION        *
*                                                                      *
************************************************************************
  
*      NOTICE THAT THIS CASE CAN BE HANDLED EXACTLY LIKE BS=BR DP TO SP 
*      (CASE V).
          NOTE   AN2AN885 
          BRANCH AN2AN121 
 XXXII    EJECT 
************************************************************************
*                                                                      *
*      XXXII  BS=BR     * BCP OF SOURCE EQUAL TO BCP OF RECEIVING      *
*             EP TO DP  * EXTENDED PRECISION TO DOUBLE PRECISION       *
*                                                                      *
************************************************************************
  
*      NOTICE THAT THIS CASE CAN BE HANDLED EXACTLY LIKE BS=BR TP TO DP 
*      (CASE XVI).
 AN2AN890 LABEL 
          NOTE   AN2AN890 
          BRANCH AN2AN470 
 XXXIII   EJECT 
************************************************************************
*                                                                      *
*      XXXIII BS=BR     * BCP OF SOURCE EQUAL TO BCP OF RECEIVING      *
*             EP TO TP  * EXTENDED PRECISION TO TRIPLE PRECISION       *
*                                                                      *
************************************************************************
  
 AN2AN895 LABEL 
          NOTE   AN2AN895 
          MOVEZ  RECSIZE,SENDSIZE 
          IFZ    (JUSTFLG,EQ,0),AN2AN480
  
*      JUSTIFIED RECEIVING FIELD
  
          ADDZ   SENDBCP,SIZEDIFF,T1
          REMZ   T1,10,SENDBCP
          QUOTZ  T1,10,ADOFSET
          REMZ   SENDECP,10,T2
          SUBZ   RECSIZE,T2,T2
          IFZ    (T2,LE,10),AN2AN535
  
*      EFFECTIVE BCP OF SOURCE FIELD IS EITHER IN THIRD FROM LAST OR
*      FOURTH FROM LAST WORD
  
          IFZ    (T2,GT,20),AN2AN158
  
*      EFFECTIVE BCP OF SOURCE FIELD IS IN THIRD FROM LAST WORD - FIND
*      APPROPRIATE TP TO TP CASE
  
          IFZ    (SENDBCP,LT,RECBCP),AN2AN595 
          IFZ    (SENDBCP,EQ,RECBCP),AN2AN480 
          BRANCH AN2AN725 
 XXXIV    EJECT 
************************************************************************
*                                                                      *
*      XXXIV BS=BR     * BCP OF SOURCE EQUAL TO BCP OF RECEIVING       *
*            EP TO EP  * EXTENDED PRECISION TO EXTENDED PRECISION      *
*                                                                      *
************************************************************************
  
 AN2AN900 LABEL 
          IFZ    (SIZEDIFF,GT,0),AN2AN945 
          IFZ    (SIZEDIFF,LT,0),AN2AN905 
  
************************************************************************
*      GENERATE CODE FOR EP SOURCE FIELD TO EP RECEIVING FIELD HAVING  *
*      THE SAME BCP AND THE SAME SIZE.                                 *
************************************************************************
  
*                  ARITH21: [(FIXED-1)MOD 10]+1 
*                  ARITH22: (FIXED+9)/10
 AN2AN902 LABEL 
          NOTE   AN2AN902 
          MOVEZ  SENDBCP,P1 
          SUBZ   10,SENDBCP,P2
          CALLZ  LOADIT1   KS,BS,10-BS;VREGA,VREGB
          MOVEZ  RECBCP,P3
          SUBZ   10,RECBCP,P4 
          CALLZ  STORIT1   KR,BR,10-BR,VREGA;VREGC
          SUBZ   (ARITH22,RECECP),2,P5
          CALLZ  MOVWORD   [(BR+SR+9)/10]-2,VREGB,VREGC 
          MOVEZ  (ARITH21,RECECP),P6
          CALLZ  LOADIT2   VREGB,[(BR+SR-1)MOD 10]+1;VREGA,VREGB
          CALLZ  STORIT2   VREGC,[(BR+SR-1)MOD 10]+1,VREGA;VREGC
          RETURN
 XXXIV    SPACE  4
*      BEGIN PROCESSING EP SOURCE FIELD TO EP RECEIVING FIELD HAVING THE
*      SAME BCP. SIZE OF SOURCE FIELD IS LESS THAN SIZE OF RECEIVING
*      FIELD
  
 AN2AN905   LABEL 
          SUBZ   0,SIZEDIFF,SIZEDIFF
  
*      COMMON PARAMETER SETUP FOR ALL SS<SR CASES 
  
*                  ARITH22: (FIXED+9)/10
          MOVEZ  SENDBCP,P1 
          SUBZ   10,SENDBCP,P2
          MOVEZ  RECBCP,P3
          SUBZ   10,RECBCP,P4 
          MOVEZ  (ARITH22,SENDECP),NRWDS
  
          IFZ    (JUSTFLG,NE,0),AN2AN915
  
*      NO JUSTIFICATION 
  
*                  ARITH22: (FIXED+9)/10
          IFZ    (NRWDS,NE,(ARITH22,RECECP)),AN2AN910 
  
************************************************************************
*      GENERATE CODE FOR EP SOURCE FIELD TO NON-JUSTIFIED EP RECEIVING *
*      FIELD HAVING THE SAME BCP.  SIZE OF SOURCE FIELD IS LESS THAN   *
*      SIZE OF RECEIVING FIELD.  BOTH FIELDS OCCUPY THE SAME NUMBER OF *
*      WORDS.                                                          *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P1=BS
*      P2=10-BS 
*      P3=BR
*      P4=10-BR 
*      NRWDS=[(BS+SS)+9]/10 
  
*                  ARITH21: [(FIXED-1)MOD 10]+1 
          NOTE   AN2AN905 
          CALLZ  LOADIT1   KS,BS,10-BS;VREGA,VREGB
          CALLZ  STORIT1   KR,BR,10-BR,VREGA;VREGC
          SUBZ   NRWDS,2,P5 
          CALLZ  MOVWORD   [(BS+SS+9)/10]-2,VREGB,VREGC 
          REMZ   SENDECP,10,P6
          CALLZ  LOADIT2   VREGB,(BS+SS)MOD 10;VREGA,VREGB
          MOVEZ  SIZEDIFF,P5
          CALLZ  ADDSPCS   SR-SS,(BS+SS)MOD 10,VREGA;VREGA
          MOVEZ  (ARITH21,RECECP),P6
          CALLZ  STORIT2   VREGC,[(BR+SR-1)MOD 10]+1,VREGA;VREGC
          RETURN
 XXXIV    SPACE  4
************************************************************************
*      GENERATE CODE FOR EP SOURCE FIELD TO NON-JUSTIFIED EP RECEIVING *
*      FIELD HAVING THE SAME BCP.  SIZE OF SOURCE FIELD IS LESS THAN   *
*      SIZE OF RECEIVING FIELD.  SOURCE FIELD OCCUPIES FEWER WORDS THAN*
*      RECEIVING FIELD.                                                *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED;
  
*      P1=BS
*      P2=10-BS 
*      P3=BR
*      P4=10-BR 
*      NRWDS=[(BS+SS)+9]/10 
  
*                  ARITH21: [(FIXED-1)MOD 10]+1 
*                  ARITH22: (FIXED+9)/10
 AN2AN910   LABEL 
          NOTE   AN2AN910 
          CALLZ  LOADIT1   KS,BS,10-BS;VREGA,VREGB
          CALLZ  STORIT1   KR,BR,10-BR,VREGA;VREGC
          SUBZ   NRWDS,2,P5 
          CALLZ  MOVWORD   [(BS+SS+9)/10]-2,VREGB,VREGC 
          MOVEZ  (ARITH21,SENDECP),P6 
          CALLZ  LOADIT2   VREGB,[(BS+SS-1)MOD 10]+1;VREGA,VREGB
          SUBZ   10,P6,P5 
          CALLZ  ADDSPCS   10-[(BS+SS-1)MOD10+1],[(BS+SS-1)MOD 10]+1, 
*                          VREGA;VREGA
          MOVEZ  10,P6
          CALLZ  STORIT2   VREGC,10,VREGA;VREGC 
          ADDZ   RECBCP,SENDSIZE,P5 
          SUBZ   (ARITH22,RECECP),(ARITH22,P5),P5 
          SUBZ   P5,1,P5
          MOVEZ  (ARITH21,RECECP),P6
          CALLZ  SPCFLRT   [(BR+SR+9)/10]-[(BR+SS+9)/10]-1, 
*                          [(BR+SR-1)MOD 10]+1,VREGC
          RETURN
 XXXIV    SPACE  4
*      BEGIN PROCESSING EP SOURCE FIELD TO JUSTIFIED EP RECEIVING FIELD 
*      HAVING THE SAME BCP.  SIZE OF SOURCE FIELD IS LESS THAN SIZE OF
*      RECEIVING FIELD. 
  
 AN2AN915 LABEL 
  
*      COMMON PARAMETER SETUP FOR ALL SS<SR JUSTIFIED CASES 
  
*                  ARITH18: 6*(SR-SS)MOD 10 
          SUBZ   10,RECBCP,P5 
          MOVEZ  RECBCP,P6
          MOVEZ  (ARITH18,ECPDIFF),MASK2
          SUBZ   60,MASK2,SHIFTCT 
          ADDZ   RECBCP,SIZEDIFF,MASK1
          MOVEZ  (LOCLAB,LABLNUM),LABLNUM 
  
*                  ARITH21: [(FIXED-1)MOD 10]+1 
          MOVEZ  (ARITH21,SENDECP),T1 
          MOVEZ  (ARITH21,RECECP),T2
          IFZ    (T1,GT,T2),AN2AN920
          IFZ    (T1,LT,T2),AN2AN930
  
************************************************************************
*      GENERATE CODE FOR EP SOURCE FIELD TO JUSTIFIED EP RECEIVING     *
*      FIELD HAVING THE SAME BCP AND THE SAME ECP.  THE SIZE OF THE    *
*      SOURCE FIELD IS LESS THAN SIZE OF RECEIVING FIELD.              *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P1=BS
*      P2=10-BS 
*      P3=BR
*      P4=10-BR 
*      P5=10-BR 
*      P6=BR
*      NRWDS=[(BS+SS)+9]/10 
  
*                  ARITH21: [(FIXED-1)MOD 10]+1 
          NOTE   AN2AN915 
          CALLZ  GETSPCS   10-BR,BR;VREGA 
          CALLZ  STORIT1   KR,BR,10-BR,VREGA;VREGC
          ADDZ   RECBCP,SIZEDIFF,P5 
          QUOTZ  P5,10,P5 
          SUBZ   P5,1,P5
          CALLZ  STRBLNK   ([BR+(SR-SS)]/10)-1,VREGC
          CALLZ  LOADIT1   KS,BS,10-BS;VREGA,VREGC
          MOVEZ  SENDBCP,P5 
          MOVEZ  0,P6 
          CALLZ  ADDSPCS   BS,0,VREGA;VREGA 
          MOVEZ  10,P6
          CALLZ  STORIT2   VREGC,10,VREGA;VREGC 
          MOVEZ  NRWDS,P5 
          SUBZ   NRWDS,2,P5 
          CALLZ  MOVWORD   [(BS+SS+9)/10]-2,VREGB,VREGC 
          MOVEZ  (ARITH21,SENDECP),P6 
          CALLZ  LOADIT2   VREGB,[(BS+SS-1)MOD 10]+1;VREGA,VREGB
          CALLZ  STORIT2   VREGC,[(BS+SS-1)MOD 10]+1,VREGA;VREGC
          CALLZ  MOVWORD   [(BS+SS)/10]-1,VREGB,VREGC 
          REMZ   SENDECP,10,P6
          CALLZ  LOADIT2   VREGB,(BS+SS)MOD 10;VREGA,VREGB
          CALLZ  STORIT2   VREGC,(BS+SS)MOD 10,VREGA;VREGC
          RETURN
 XXXIV    SPACE  4
*      PROCESS EP SOURCE FIELD TO JUSTIFIED EP RECEIVING FIELD HAVING 
*      THE SAME BCP.  SIZE OF SOURCE FIELD IS LESS THAN SIZE OF 
*      RECEIVING FIELD.  ECP OF SOURCE FIELD IS GREATER THAN ECP OF 
*      RECEIVING FIELD. 
*      NOTICE FROM PRIOR PARAMETER SETUP THAT-  MASK1= BR+(SR-SS) 
  
 AN2AN920 LABEL 
          IFZ    (MASK1,GE,10),AN2AN922 
  
************************************************************************
*      GENERATE CODE FOR EP SOURCE FIELD TO JUSTIFIED EP RECEIVING     *
*      FIELD HAVING THE SAME BCP.  SIZE OF SOURCE FIELD IS LESS THAN   *
*      SIZE OF RECEIVING FIELD.  ECP OF SOURCE FIELD IS GREATER THAN   *
*      ECP OF RECEIVING FIELD.  IF SOURCE FIELD IS N-PRECISION, AFTER  *
*      THE MOVE IT WILL SPAN N+1 WORDS (NOT COUNTING BLANK FILL).  THE *
*      FIRST CHAR OF THE SOURCE FIELD WILL LIE IN THE FIRST WORD OF    *
*      THE RECEIVING FIELD.                                            *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P1=BS
*      P2=10-BS 
*      P3=BR
*      P4=10-BR 
*      P5=10-BR 
*      P6=BR
*      NRWDS=[(BS+SS)+9]/10 
*      SHIFTCT=60-6*[(BR+SR)-(BS+SS)]MOD 10 
*      MASK1=BR+(SR-SS) 
*      MASK2=6*[(B+SR)-(BS+SS)]MOD 10 
  
*                  ARITH8: 6*(FIXED)
*                  ARITH18: 6*(FIXED)MOD 10 
          NOTE   AN2AN920 
          GENM   LDRTSPLT 
            SYMP   SRCADDR
            REGP   (VREGOF,VREGB),(VREGOF,VREGA),(VREGOF,VREGD) 
            CONP   SHIFTCT,(ARITH8,MASK1),MASK2 
          ENDG
          MOVEZ  SIZEDIFF,P5
          CALLZ  ADDSPCS   SR-SS,BR,VREGA;VREGA 
          CALLZ  STORIT1   KR,BR,10-BR,VREGA;VREGC
          SUBZ   NRWDS,1,NRWDS
          GENM   MVSPLWD
            SYMP   LOCLABL,NRWDS
            REGP   (VREFOF,VREGB),(VREFOF,VREGD),(VREFOF,VREGC) 
            CONP   SHIFTCT,MASK2
          ENDG
          GEN    MASK,(VREGOF,VREGE),(ARITH18,RECECP) 
          GEN    LAND,(VREGOF,VREGA),VREGE,VREGD
          REMZ   RECECP,10,P6 
          CALLZ  STORIT2   VREGC,(BR+SR)MOD 10,VREGA;VREGC
          RETURN
 XXXIV    SPACE  4
*      PROCESS EP SOURCE FIELD TO JUSTIFIED EP RECEIVING FIELD HAVING 
*      THE SAME BCP.  SIZE OF SOURCE FIELD IS LESS THAN SIZE OF 
*      RECEIVING FIELD.  ECP OF SOURCE FIELD IS GREATER THAN ECP OF 
*      RECEIVING FIELD.  AFTER MOVE FIRST CHAR OF SOURCE FIELD WILL NOT 
*      LIE IN FIRST WORD OF RECEIVING FIELD.
  
*                  ARITH21: [(FIXED-1)MOD 10]+1 
*                  ARITH22: (FIXED+9)/10
 AN2AN922 LABEL 
          SUBZ   SENDSIZE,(ARITH21,RECECP),T1 
          IFZ    ((ARITH22,T1),NE,(ARITH22,SENDECP)),AN2AN925 
  
************************************************************************
*      GENERATE CODE FOR EP SOURCE FIELD TO JUSTIFIED EP RECEIVING     *
*      FIELD HAVING THE SAME BCP.  SIZE OF SOURCE FIELD IS LESS THAN   *
*      SIZE OF RECEIVING FIELD.  ECP OF SOURCE FIELD IS GREATER THAN   *
*      ECP OF RECEIVING FIELD.  IF SOURCE FIELD IS N PRECISION, AFTER  *
*      THE MOVE IT WILL SPAN N+1 WORDS (NOT COUNTING BLANK FILL).      *
*      FIRST WORD OF SOURCE FIELD WILL NOT LIE IN FIRST WORD OF        *
*      RECEIVING FIELD.                                                *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P1=BS
*      P2=10-BS 
*      P3=BR
*      P4=10-BR 
*      P5=10-BR 
*      P6=BR
*      NRWDS=[(BS+SS)+9]/10 
*      SHIFTCT=60-6*[(BR+SR)-(BS+SS)]MOD 10 
*      MASK1=BR+(SR-SS) 
*      MASK2=6*[(B+SR)-(BS+SS)]MOD 10 
  
*                  ARITH8: 6*(FIXED)
*                  ARITH18: 6*(FIXED)MOD 10 
          NOTE   AN2AN922 
          CALLZ  GETSPCS   10-BR,BR;VREGA 
          CALLZ  STORIT1   KR,BR,10-BR,VREGA;VREGC
          SUBZ   MASK1,10,P5
          QUOTZ  P5,10,P5 
          CALLZ  STRBLNK   [BR+(SR-SS)-10]/10,VREGC 
          REMZ   MASK1,10,P5
          GENM   LDRTSPLT 
            SYMP   SRCADDR
          REGP   (VREGOF,VREGB),(VREGOF,VREGA),(VREGOF,VREGD) 
          CONP   SHIFTCT,(ARITH8,P5),MASK2
          ENDG
          MOVEZ  0,P6 
          CALLZ  ADDSPCS   [BR+(SR-SS)]MOD 10,0,VREGA;VREGA 
          MOVEZ  10,P6
          CALLZ  STORIT2   VREGC,10,VREGA;VREGC 
          SUBZ   NRWDS,1,NRWDS
          GENM   MVSPLWD
            SYMP   LOCLABL,NRWDS
          REGP   (VREFOF,VREGB),(VREFOF,VREGD),(VREFOF,VREGC) 
            CONP   SHIFTCT,MASK2
          ENDG
          GEN    MASK,(VREGOF,VREGE),(ARITH18,RECECP) 
          GEN    LAND,(VREGOF,VREGA),VREGE,VREGD
          REMZ   RECECP,10,P6 
          CALLZ  STORIT2   VREGC,(BR+SR)MOD 10,VREGA;VREGC
          RETURN
 XXXIV    SPACE  4
************************************************************************
*      GENERATE CODE FOR EP SOURCE FIELD TO JUSTIFIED EP RECEIVING     *
*      FIELD HAVING THE SAME BCP.  SIZE OF SOURCE FIELD IS LESS THAN   *
*      SIZE OF RECEIVING FIELD.  THE ECP OF THE SOURCE FIELD IS GREATER*
*      THAN THE ECP OF THE RECEIVING FIELD.  IF THE SOURCE FIELD       *
*      IS N PRECISION, AFTER THE MOVE IT WILL SPAN N WORDS (NOT        *
*      COUNTING BLANK FILL).  THE FIRST CHAR OF THE SOURCE FIELD WILL  *
*      NOT LIE IN THE FIRST WORD OF THE RECEIVING FIELD.               *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P1=BS
*      P2=10-BS 
*      P3=BR
*      P4=10-BR 
*      P5=10-BR 
*      P6=BR
*      NRWDS=[(BS+SS)+9]/10 
*      SHIFTCT=60-6*[(BR+SR)-(BS+SS)]MOD 10 
*      MASK1=BR+(SR-SS) 
*      MASK2=6*[(B+SR)-(BS+SS)]MOD 10 
  
*                  ARITH18: 6*(FIXED)MOD 10 
 AN2AN925   LABEL 
          NOTE   AN2AN925 
          CALLZ  GETSPCS   10-BR,BR;VREGA 
          CALLZ  STORIT1   KR,BR,10-BR,VREGA;VREGC
          SUBZ   MASK1,10,P5
          QUOTZ  P5,10,P5 
          CALLZ  STRBLNK   [BR+(SR-SS)-10] 10,VREGC 
          CALLZ  LOADIT1   KS,BS,10-BS;VREGA,VREGB
          GEN    SHL,(VREFOF,VREGA),SHIFTCT 
          REMZ   MASK1,10,P5
          MOVEZ  0,P6 
          CALLZ  ADDSPCS   [BR+(SR-SS)]MOD 10,0,VREGA;VREGA 
          SUBZ   NRWDS,1,NRWDS
          GENM   MVSPLWD
            SYMP   LOCLABL,NRWDS
          REGP   (VREFOF,VREGB),(VREFOF,VREGA),(VREFOF,VREGC) 
            CONP   SHIFTCT,MASK2
          ENDG
          GEN    MASK,(VREGOF,VREGD),(ARITH18,RECECP) 
          GEN    LAND,(VREGOF,VREGA),VREGD,VREGA
          REMZ   RECECP,10,P6 
          CALLZ  STORIT2   VREGC,(BR+SR)MOD 10,VREGA;VREGC
          RETURN
 XXXIV    SPACE  4
*      BEGIN PROCESSING EP SOURCE FIELD TO JUSTIFIED EP RECEIVING FIELD 
*      HAVING THE SAME BCP.  SIZE OF SOURCE FIELD IS LESS THAN SIZE OF
*      RECEIVING FIELD.  ECP OF SOURCE FIELD IS LESS THAN ECP OF
*      RECEIVING FIELD. 
*      NOTICE FROM PRIOR PARAMETER SETUP THAT MASK1=BR+(SR-SS)
  
 AN2AN930   LABEL 
          IFZ    (MASK1,GE,10),AN2AN935 
  
************************************************************************
*      GENERATE CODE FOR EP SOURCE FIELD TO JUSTIFIED EP RECEIVING     *
*      FIELD HAVING THE SAME BCP.  SIZE OF SOURCE FIELD IS LESS THAN   *
*      SIZE OF RECEIVING FIELD.  ECP OF SOURCE FIELD IS LESS THAN ECP  *
*      OF RECEIVING FIELD.  FIRST CHAR OF SOURCE FIELD WILL LIE IN     *
*      FIRST WORD OF RECEIVING FIELD.                                  *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P1=BS
*      P2=10-BS 
*      P3=BR
*      P4=10-BR 
*      P5=10-BR 
*      P6=BR
*      NRWDS=[(BS+SS)+9]/10 
*      SHIFTCT=60-6*[(BR+SR)-(BS+SS)]MOD 10 
*      MASK1=BR+(SR-SS) 
*      MASK2=6*[(B+SR)-(BS+SS)]MOD 10 
  
*                  ARITH8: 6*(FIXED)
*                  ARITH18: 6*(FIXED)MOD 10 
*                  ARITH21: [(FIXED-1)MOD 10]+1 
          NOTE   AN2AN930 
          GENM   LDRTSPLT 
            SYMP   SRCADDR
          REGP   (VREGOF,VREGB),(VREGOF,VREGA),(VREGOF,VREGD) 
          CONP   SHIFTCT,(ARITH8,MASK1),MASK2 
          ENDG
          MOVEZ  SIZEDIFF,P5
          MOVEZ  RECBCP,P6
          CALLZ  ADDSPCS   SR-SS,BR,VREGA;VREGA 
          CALLZ  STORIT1   KR,BR,10-BR,VREGA;VREGC
          SUBZ   NRWDS,2,NRWDS
          GENM   MVSPLWD
            SYMP   LOCLABL,NRWDS
          REGP   (VREFOF,VREGB),(VREFOF,VREGD),(VREFOF,VREGC) 
            CONP   SHIFTCT,MASK2
          ENDG
          GENM   LDSPLT2
          REGP   (VREFOF,VREGB),(VREFOF,VREGD),(VREGOF,VREGA) 
          CONP   (ARITH18,SENDECP),SHIFTCT
          ENDG
          MOVEZ  (ARITH21,RECECP),P6
          CALLZ  STORIT2   VREGC,[(BR+SR-1)MOD 10]+1,VREGA;VREGC
          RETURN
 XXXIV    SPACE  4
*      BEGIN PROCESSING EP SOURCE FIELD TO JUSTIFIED EP RECEIVING FIELD 
*      HAVING THE SAME BCP.  SIZE OF SOURCE FIELD IS LESS THAN SIZE OF
*      RECEIVING FIELD.  ECP OF SOURCE FIELD IS LESS THAN ECP OF
*      RECEIVING FIELD.  FIRST CHAR OF SOURCE FIELD WILL NOT LIE IN 
*      FIRST WORD OF RECEIVING FIELD. 
*      NOTICE FROM PRIOR PARAMETER SETUP THAT P2=10-BS
  
*                  ARITH17: (FIXED)MOD 10 
 AN2AN935   LABEL 
          IFZ    ((ARITH17,ECPDIFF),GE,P2),AN2AN940 
  
************************************************************************
*      GENERATE CODE FOR EP SOURCE FIELD TO JUSTIFIED EP RECEIVING     *
*      FIELD HAVING THE SAME BCP.  SIZE OF SOURCE FIELD IS LESS THAN   *
*      SIZE OF RECEIVING FIELD.  ECP OF SOURCE FIELD IS LESS THAN ECP  *
*      OF RECEIVING FIELD.  FIRST CHAR OF SOURCE FIELD WILL NOT LIE    *
*      IN FIRST WORD OF RECEIVING FIELD.  IF SOURCE FIELD IS           *
*      N-PRECISION, AFTER THE MOVE IT WILL SPAN N WORDS (NOT COUNTING  *
*      BLANK FILL).                                                    *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P1=BS
*      P2=10-BS 
*      P3=BR
*      P4=10-BR 
*      P5=10-BR 
*      P6=BR
*      NRWDS=[(BS+SS)+9]/10 
*      SHIFTCT=60-6*[(BR+SR)-(BS+SS)]MOD 10 
*      MASK1=BR+(SR-SS) 
*      MASK2=6*[(B+SR)-(BS+SS)]MOD 10 
  
*                  ARITH8: 6*(FIXED)
*                  ARITH18: 6*(FIXED)MOD 10 
*                  ARITH21: [(FIXED-1)MOD 10]+1 
          NOTE   AN2AN935 
          CALLZ  GETSPCS   10-BR,BR;VREGA 
          CALLZ  STORIT1   KR,BR,10-BR,VREGA;VREGC
          SUBZ   MASK1,10,P5
          QUOTZ  P5,10,P5 
          CALLZ  STRBLNK   [BR+(SR-SS)-10]/10,VREGC 
          REMZ   MASK1,10,P5
          GENM   LDRTSPLT 
            SYMP   SRCADDR
          REGP   (VREGOF,VREGB),(VREGOF,VREGA),(VREGOF,VREGD) 
          CONP   SHIFTCT,(ARITH8,P5),MASK2
          ENDG
          MOVEZ  0,P6 
          CALLZ  ADDSPCS   [BR+(SR-SS)]MOD 10,0,VREGA;VREGA 
          MOVEZ  10,P6
          CALLZ  STORIT2   VREGC,10,VREGA;VREGC 
          SUBZ   NRWDS,2,NRWDS
          GENM   MVSPLWD
            SYMP   LOCLABL,NRWDS
          REGP   (VREFOF,VREGB),(VREFOF,VREGD),(VREFOF,VREGC) 
            CONP   SHIFTCT,MASK2
          ENDG
          GENM   LDSPLT2
          REGP   (VREFOF,VREGB),(VREFOF,VREGD),(VREGOF,VREGA) 
          CONP   (ARITH18,SENDECP),SHIFTCT
          ENDG
          MOVEZ  (ARITH21,RECECP),P6
          CALLZ  STORIT2   VREGC,[(BR+SR-1)MOD 10]+1,VREGA;VREGC
          RETURN
 XXXIV    SPACE  4
************************************************************************
*      GENERATE CODE FOR EP SOURCE FIELD TO JUSTIFIED EP RECEIVING     *
*      FIELD HAVING THE SAME BCP.  SIZE OF SOURCE FIELD IS LESS THAN   *
*      SIZE OF RECEIVING FIELD.  ECP OF SOURCE FIELD IS LESS THAN ECP  *
*      OF RECEIVING FIELD.  FIRST CHAR OS SOURCE FIELD WILL NOT LIE IN *
*      FIRST WORD OF RECEIVING FIELD.  IF SOURCE FIELD IS N-PRECISION, *
*      AFTER THE MOVE IT WILL SPAN N-1 WORDS (NOT COUNTING BLANK FILL).*
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P1=BS
*      P2=10-BS 
*      P3=BR
*      P4=10-BR 
*      P5=10-BR 
*      P6=BR
*      NRWDS=[(BS+SS)+9]/10 
*      SHIFTCT=60-6*[(BR+SR)-(BS+SS)]MOD 10 
*      MASK1=BR+(SR-SS) 
*      MASK2=6*[(B+SR)-(BS+SS)]MOD 10 
  
*                  ARITH18: 6*(FIXED)MOD 10 
*                  ARITH21: [(FIXED-1)MOD 10]+1 
 AN2AN940   LABEL 
          NOTE   AN2AN940 
          CALLZ  GETSPCS   10-BR,BR;VREGA 
          CALLZ  STORIT1   KR,BR,10-BR,VREGA;VREGC
          SUBZ   MASK1,10,P5
          QUOTZ  P5,10,P5 
          CALLZ  STRBLNK   [BR+(SR-SS)-10]/10,VREGC 
          CALLZ  LOADIT1   KS,BS,10-BS;VREGA,VREGB
          GEN    SHL,(VREFOF,VREGA),SHIFTCT 
          REMZ   MASK1,10,P5
          MOVEZ  0,P6 
          CALLZ  ADDSPCS   [BR+(SR-SS)]MOD 10,0,VREGA;VREGA 
          SUBZ   NRWDS,2,NRWDS
          GENM   MVSPLWD
            SYMP   LOCLABL,NRWDS
          REGP   (VREFOF,VREGB),(VREFOF,VREGA),(VREFOF,VREGC) 
            CONP   SHIFTCT,MASK2
          ENDG
          GENM   LDSPLT2
          REGP   (VREFOF,VREGB),(VREFOF,VREGA),(VREGOF,VREGA) 
          CONP   (ARITH18,SENDECP),SHIFTCT
          ENDG
          MOVEZ  (ARITH21,RECECP),P6
          CALLZ  STORIT2   VREGC,[(BR+SR-1)MOD 10]+1,VREGA;VREGC
          RETURN
 XXXIV    SPACE  4
*      BEGIN PROCESSING EP SOURCE FIELD TO EP RECEIVING FIELD HAVING
*      THE SAME BCP.  SIZE OF SOURCE FIELD IS GREATER THAN SIZE OF
*      RECEIVING FIELD. 
  
 AN2AN945   LABEL 
          NOTE   AN2AN945 
          MOVEZ  RECSIZE,SENDSIZE 
          IFZ    (JUSTFLG,EQ,0),AN2AN902
  
*      JUSTIFIED RECEIVING FIELD
  
          ADDZ   SENDBCP,SIZEDIFF,T1
          REMZ   T1,10,SENDBCP
          QUOTZ  T1,10,ADOFSET
          ADDZ   SENDBCP,RECSIZE,T1 
          IFZ    (T1,LE,30),AN2AN006
  
*      FIND APPROPRIATE EP TO EP CASE 
  
          IFZ    (SENDBCP,LT,RECBCP),AN2AN061 
          IFZ    (SENDBCP,EQ,RECBCP),AN2AN902 
          BRANCH AN2AN202 
 XXXV     EJECT 
*      BEGIN PROCESSING EP FIELDS WITH BCP OF SOURCE FIELD LESS THAN
*      BCP OF RECEIVING FIELD.
  
 AN2AN955   LABEL 
          SUBZ   0,BCPDIFF,BCPDIFF
          IFZ    (SENDECP,GT,30),AN2AN043 
          IFZ    (SENDECP,GT,20),AN2AN003 
  
*      THE SIZE OF THE EP RECEIVING FIELD MUST BE LARGER THAN THE SIZE
*      OF THE SP OR DP SOURCE FIELD 
  
          SUBZ   0,SIZEDIFF,SIZEDIFF
  
          IFZ    (SENDECP,GT,10),AN2AN975 
  
************************************************************************
*                                                                      *
*      XXXV  BS<BR     * BCP OF SOURCE LESS THAN BCP OF RECEIVING      *
*            SP TO EP  * SINGLE PRECISION TO EXTENDED PRECISION        *
*                                                                      *
************************************************************************
  
  
*      COMMON PARAMETER SETUP FOR ALL CASES 
  
*                  ARITH22: (FIXED+9)/10
          MOVEZ  SENDBCP,P1 
          MOVEZ  SENDSIZE,P2
          MOVEZ  RECBCP,P3
          SUBZ   10,RECBCP,P4 
          MOVEZ  (ARITH22,RECECP),NRWDS 
  
          IFZ    (JUSTFLG,NE,0),AN2AN965
  
*      NO JUSTIFICATION 
  
*      COMMON PARAMETER SETUP FOR NON-JUSTIFIED CASES 
  
          ADDZ   RECBCP,SENDSIZE,P6 
  
          IFZ    (P6,GT,10),AN2AN960
  
************************************************************************
*      GENERATE CODE FOR SP SOURCE FIELD TO NON-JUSTIFIED EP RECEIVING *
*      FIELD.  BCP OF SOURCE FIELD IS LESS THAN BCP OF RECEIVING FIELD.*
*      SIZE OF SOURCE FIELD IS LESS THAN OR EQUAL TO PART OF RECEIVING *
*      FIELD LYING IN FIRST WORD.                                      *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P1=BS
*      P2=SS
*      P3=BR
*      P4=10-BR 
*      P6=BR+SS 
*      NRWDS=[(BR+SR)+9]/10 
  
*                  ARITH7: 60-6*(FIXED) 
*                  ARITH21: [(FIXED-1)MOD 10]+1 
          NOTE   AN2AN955 
          CALLZ  LOADIT1   KS,BS,SS;VREGA,VREGB 
          GEN    SHL,(VREFOF,VREGA),(ARITH7,BCPDIFF)
          SUBZ   10,P6,P5 
          CALLZ  ADDSPCS   10-(BR+SS),BR+SS,VREGA;VREGA 
          CALLZ  STORIT1   KR,BR,10-BR,VREGA;VREGC
          SUBZ   NRWDS,2,P5 
          CALLZ  STRBLNK   [(BR+SR+9)/10]-2,VREGC 
          MOVEZ  (ARITH21,RECECP),P5
          MOVEZ  0,P6 
          CALLZ  GETSPCS   [(BR+SR-1)MOD 10]+1,0;VREGA
          MOVEZ  P5,P6
          CALLZ  STORIT2   VREGC,[(BR+SR-1)MOD 10]+1,VREGA;VREGC
          RETURN
 XXXV     SPACE  4
************************************************************************
*      GENERATE CODE FOR SP SOURCE FIELD TO NON-JUSTIFIED EP RECEIVING *
*      FIELD.  BCP OF SOURCE FIELD IS LESS THAN BCP OF RECEIVING FIELD.*
*      SIZE OF SOURCE FIELD IS GREATER THAN PART OF RECEIVING FIELD    *
*      LYING IN FIRST WORD.                                            *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P1=BS
*      P2=SS
*      P3=BR
*      P4=10-BR 
*      P6=BR+SS 
*      NRWDS=[(BR+SR)+9]/10 
  
*                  ARITH7: 60-6*(FIXED) 
*                  ARITH8: 6*(FIXED)
*                  ARITH18: 6*(FIXED)MOD 10 
*                  ARITH21: [(FIXED-1)MOD 10]+1 
 AN2AN960   LABEL 
          NOTE   AN2AN960 
          GENM   LDRTSPLT 
            SYMP   SRCADDR
          REGP   (VREGOF,VREGB),(VREGOF,VREGA),(VREGOF,VREGD) 
          CONP   (ARITH7,BCPDIFF),(ARITH8,RECBCP),(ARITH18,P6)
          ENDG
          CALLZ  STORIT1   KR,BR,10-BR,VREGA;VREGC
          REMZ   P6,10,P6 
          SUBZ   10,P6,P5 
          MOVEZ  VREGD,VREGA
          CALLZ  ADDSPCS   10-(BR+SS)MOD 10,(BR+SS)MOD 10,VREGA;VREGA 
          MOVEZ  10,P6
          CALLZ  STORIT2   VREGC,10,VREGA;VREGC 
          SUBZ   NRWDS,3,P5 
          CALLZ  STRBLNK   [(BR+SR+9)/10]-3,VREGC 
          MOVEZ  (ARITH21,RECECP),P5
          MOVEZ  0,P6 
          CALLZ  GETSPCS   [(BR+SR-1)MOD 10]+1,0;VREGA
          MOVEZ  P5,P6
          CALLZ  STORIT2   VREGC,[(BR+SR-1)MOD 10]+1,VREGA;VREGC
          RETURN
 XXXV     SPACE  4
*      BEGIN PROCESSING SP SOURCE FIELD TO JUSTIFIED EP RECEIVING FIELD.
*      BCP OF SOURCE FIELD IS LESS THAN BCP OF RECEIVING FIELD. 
  
 AN2AN965   LABEL 
  
  
*      NOTICE THAT ALL THESE CASES CAN BE HANDLED LIKE THE CORRESPONDING
*      BS=BR CASES
  
          NOTE   AN2AN965 
          BRANCH AN2AN805 
 XXXVI    EJECT 
************************************************************************
*                                                                      *
*      XXXVI BS<BR     * BCP OF SOURCE LESS THAN BCP OF RECEIVING      *
*            DP TO EP  * DOUBLE PRECISION TO EXTENDED PRECISION        *
*                                                                      *
************************************************************************
  
 AN2AN975   LABEL 
          IFZ    (JUSTFLG,NE,0),AN2AN985
  
*      NO JUSTIFICATION 
  
*      COMMON PARAMETER SETUP FOR NON-JUSTIFIED CASES:  
  
*                  ARITH22: (FIXED+9)/10
          MOVEZ  RECBCP,P3
          SUBZ   10,RECBCP,P4 
          MOVEZ  (ARITH22,RECECP),NRWDS 
          MULTZ  6,BCPDIFF,MASK2
          SUBZ   60,MASK2,SHIFTCT 
  
          ADDZ   RECBCP,SENDSIZE,T1 
          IFZ    (T1,GT,20),AN2AN980
  
************************************************************************
*      GENERATE CODE FOR DP SOURCE FIELD TO NON-JUSTIFIED EP RECEIVING *
*      FIELD.  BCP OF SOURCE FIELD IS LESS THAN BCP OF RECEIVING FIELD.*
*      LAST CHAR OF SOURCE WILL LIE IN SECOND WORD OF RECEIVING        *
*      FIELD.                                                          *
************************************************************************
  
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P3=BR
*      P4=10-BR 
*      NRWDS=[(BR+SR)+9]/10 
*      SHIFTCT=60-6*(BR-BS) 
*      MASK2=6*(BR-BS)
  
*                  ARITH8: 6*(FIXED)
*                  ARITH18: 6*(FIXED)MOD 10 
*                  ARITH21: [(FIXED-1)MOD 10]+1 
          NOTE   AN2AN975 
          GENM   LDRTSPLT 
            SYMP   SRCADDR
          REGP   (VREGOF,VREGB),(VREGOF,VREGA),(VREGOF,VREGD) 
            CONP   SHIFTCT,(ARITH8,RECBCP),MASK2
          ENDG
          CALLZ  STORIT1   KR,BR,10-BR,VREGA;VREGC
          GENM   LDSPLT2
          REGP   (VREFOF,VREGB),(VREFOF,VREGD),(VREGOF,VREGA) 
            CONP   (ARITH18,SENDECP),SHIFTCT
          ENDG
          ADDZ   RECBCP,SENDSIZE,P6 
          SUBZ   20,P6,P5 
          SUBZ   P6,10,P6 
          CALLZ  ADDSPCS   20-(BR+SS),(BR+SS)-10,VREGA;VREGA
          MOVEZ  10,P6
          CALLZ  STORIT2   VREGC,10,VREGA;VREGC 
          SUBZ   NRWDS,3,P5 
          CALLZ  STRBLNK   [(BR+SR+9)/10]-3,VREGC 
          MOVEZ  (ARITH21,RECECP),P5
          MOVEZ  0,P6 
          CALLZ  GETSPCS   [(BR+SR-1)MOD 10]+1,0;VREGA
          MOVEZ  P5,P6
          CALLZ  STORIT2   VREGC,[(BR+SR-1)MOD 10]+1,VREGA;VREGC
          RETURN
 XXXVI    SPACE  4
************************************************************************
*      GENERATE CODE FOR DP SOURCE FIELD TO NON-JUSTIFIED EP RECEIVING *
*      FIELD.  BCP OF SOURCE FIELD IS LESS THAN BCP OF RECEVING FIELD. *
*      LAST CHAR OF SOURCE FIELD WILL LIE IN THIRD WORD OF RECEIVING   *
*      FIELD                                                           *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P3=BR
*      P4=10-BR 
*      NRWDS=[(BR+SR)+9]/10 
*      SHIFTCT=60-6*(BR-BS) 
*      MASK2=6*(BR-BS)
  
*                  ARITH8:6*(FIXED) 
*                  ARITH21: [(FIXED-1)MOD 10]+1 
 AN2AN980   LABEL 
          NOTE   AN2AN980 
          GENM   LDRTSPLT 
          SYMP   SRCADDR
          REGP   (VREGOF,VREGB),(VREGOF,VREGA),(VREGOF,VREGD) 
            CONP   SHIFTCT,(ARITH8,RECBCP),MASK2
          ENDG
          CALLZ  STORIT1   KR,BR,10-BR,VREGA;VREGC
          ADDZ   RECBCP,SENDSIZE,MASK1
          REMZ   MASK1,10,MASK1 
          GENM   LD2LFSPL 
            REGP   VREGB,(VREGOF,VREGB),(VREGOF,VREGE),(VREGOF,VREGF) 
            CONP   SHIFTCT,MASK2,(ARITH8,MASK1) 
          ENDG
          GEN    LOR,(VREGOF,VREGA),(VREFOF,VREGD),(VREFOF,VREGE) 
          MOVEZ  10,P6
          CALLZ  STORIT2   VREGC,10,VREGA;VREGC 
          MOVEZ  VREGF,VREGA
          SUBZ   10,MASK1,P5
          MOVEZ  MASK1,P6 
          CALLZ  ADDSPCS   10-(BR+SS),MOD 10,(BR+SS)MOD 10,VREGA;VREGA
          MOVEZ  10,P6
          CALLZ  STORIT2   VREGC,10,VREGA;VREGC 
          SUBZ   NRWDS,4,P5 
          CALLZ  STRBLNK   [(BR+SR+9)/10]-4,VREGC 
          MOVEZ  (ARITH21,RECECP),P5
          MOVEZ  0,P6 
          CALLZ  GETSPCS   [(BR+SR-1)MOD 10]+1,0;VREGA
          MOVEZ  P5,P6
          CALLZ  STORIT2   VREGC,[(BR+SR-1)MOD 10]+1,VREGA;VREGC
          RETURN
 XXXVI    SPACE  4
  
*      BEGIN PROCESSING DP SOURCE FIELD TO JUSTIFIED EP RECEIVING FIELD.
*      BCP OF SOURCE FIELD IS LESS THAN BCP OF RECEIVING FIELD. 
  
 AN2AN985   LABEL 
  
*      NOTICE THAT ALL THESE CASES CAN BE HANDLED LIKE THE CORRESPONDING
*      BS=BR CASES
  
          NOTE   AN2AN985 
          BRANCH AN2AN820 
 XXXVII   EJECT 
************************************************************************
*                                                                      *
*      XXXVII BS<BR     * BCP OF SOURCE LESS THAN ECP OF RECEIVING     *
*             TP TO EP  * TRIPLE PRECISION TO EXTENDED PRECISION       *
*                                                                      *
************************************************************************
  
 AN2AN003 LABEL 
          IFZ    (SIZEDIFF,GT,0),AN2AN037 
          IFZ    (SIZEDIFF,LT,0),AN2AN009 
  
************************************************************************
*      GENERATE CODE FOR TP SOURCE FIELD TO EP RECEIVING FIELD HAVING  *
*      THE SAME SIZE.  BCP OF SOURCE FIELD IS LESS THAN BCP OF         *
*      RECEIVING FIELD.                                                *
************************************************************************
  
*      NOTE: FOR THE BENEFIT OF CASES WHICH BRANCH HERE, NO ARITH 
*      FUNCTIONS ARE USED ON MOVEREGA AND BCPDIFF IS NOT ASSUMED CORRECT
  
*                  ARITH8: 6*(FIXED)
*                  ARITH18: 6*(FIXED)MOD 10 
 AN2AN006 LABEL 
          NOTE   AN2AN006 
          SUBZ   RECBCP,SENDBCP,BCPDIFF 
          MULTZ  6,BCPDIFF,MASK2
          SUBZ   60,MASK2,SHIFTCT 
          GENM   LDRTSPLT 
            SYMP   SRCADDR
            REGP   (VREGOF,VREGB),(VREGOF,VREGA),(VREGOF,VREGD) 
            CONP   SHIFTCT,(ARITH8,RECBCP),MASK2
          ENDG
          MOVEZ  RECBCP,P3
          SUBZ   10,RECBCP,P4 
          CALLZ  STORIT1   KR,BR,10-BR,VREGA;VREGC
          GENM   LD2LFSPL 
            REGP   VREGB,(VREGOF,VREGB),(VREGOF,VREGE),(VREGOF,VREGF) 
            CONP   SHIFTCT,MASK2,MASK2
          ENDG
          GEN    LOR,(VREGOF,VREGA),VREGD,VREGE 
          MOVEZ  10,P6
          CALLZ  STORIT2   VREGC,10,VREGA;VREGC 
          GENM   LD2LFSPL 
            REGP   VREGB,(VREGOF,VREGB),(VREGOF,VREGG),(VREGOF,VREGH) 
            CONP   SHIFTCT,MASK2,(ARITH18,RECECP) 
          ENDG
          GEN    LOR,(VREGOF,VREGA),VREGF,VREGG 
          CALLZ  STORIT2   VREGC,10,VREGA;VREGC 
          MOVEZ  VREGH,VREGA
          REMZ   RECECP,10,P6 
          CALLZ  STORIT2   VREGC,(BR+SR)MOD 10,VREGA;VREGC
          RETURN
 XXXVII   SPACE  4
*      BEGIN PROCESSING TP SOURCE FIELD TO EP RECEIVING FIELD.  BCP OF
*      SOURCE FIELD IS LESS THAN BCP OF RECEIVING FIELD.  SIZE OF SOURCE
*      FIELD IS LESS THAN SIZE OF RECEIVING FIELD.
  
 AN2AN009 LABEL 
          SUBZ   0,SIZEDIFF,SIZEDIFF
          IFZ    (JUSTFLG,NE,0),AN2AN018
  
*      NO JUSTIFICATION 
  
*      COMMON PARAMETER SETUP FOR ALL SS<SR, NON-JUSTIFIED CASES
  
*                  ARITH22: (FIXED+9)/10
          MOVEZ  RECBCP,P3
          SUBZ   10,RECBCP,P4 
          MOVEZ  (ARITH22,RECECP),NRWDS 
          MOVEZ  (ARITH7,BCPDIFF),SHIFTCT 
          MULTZ  6,BCPDIFF,MASK2
          MOVEZ  10,P6
  
          ADDZ   RECBCP,SENDSIZE,T1 
          IFZ    (T1,GT,30),AN2AN012
  
************************************************************************
*      GENERATE CODE FOR TP SOURCE FIELD TO NON-JUSTIFIED EP RECEIVING *
*      FIELD.  BCP OF SOURCE FIELD IS LESS THAN BCP OF RECEIVING FIELD.*
*      LAST CHAR OF SOURCE FIELD WILL LIE IN THIRD WORD OF RECEIVING   *
*      FIELD                                                           *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P3=BR
*      P4=10-BR 
*      P6=10
*      NRWDS=[(BR+SR)+9]/10 
*      SHIFTCT=60-6*(BR-BS) 
*      MASK2=6*(BR-BS)
  
*                  ARITH8: 6*(FIXED)
*                  ARITH18: 6*(FIXED)MOD 10 
*                  ARITH21: [(FIXED-1)MOD 10]+1 
          NOTE   AN2AN009 
          GENM   LDRTSPLT 
            SYMP   SRCADDR
            REGP   (VREGOF,VREGB),(VREGOF,VREGA),(VREGOF,VREGD) 
            CONP   SHIFTCT,(ARITH8,RECBCP),MASK2
          ENDG
          CALLZ  STORIT1   KR,BR,10-BR,VREGA;VREGC
          GENM   LD2LFSPL 
            REGP   VREGB,(VREGOF,VREGB),(VREGOF,VREGE),(VREGOF,VREGF) 
            CONP   SHIFTCT,MASK2,MASK2
          ENDG
          GEN    LOR,(VREGOF,VREGA),VREGD,VREGE 
          CALLZ  STORIT2   VREGC,10,VREGA;VREGC 
          GENM   LDSPLT2
            REGP   VREGB,VREGF,(VREGOF,VREGA) 
            CONP   (ARITH18,SENDECP),SHIFTCT
          ENDG
          ADDZ   RECBCP,SENDSIZE,P6 
          SUBZ   30,P6,P5 
          SUBZ   P6,20,P6 
          CALLZ  ADDSPCS   30-(BR+SS),(BR+SS)-20,VREGA;VREGA
          MOVEZ  10,P6
          CALLZ  STORIT2   VREGC,10,VREGA,VREGC 
          SUBZ   NRWDS,4,P5 
          CALLZ  STRBLNK   [(BR+SR+9)/10]-4,VREGC 
          MOVEZ  (ARITH21,RECECP),P5
          MOVEZ  0,P6 
          CALLZ  GETSPCS   [(BR+SR-1)MOD 10]+1,0;VREGA
          MOVEZ  P5,P6
          CALLZ  STORIT2   VREGC,[(BR+SR-1)MOD 10]+1,VREGA;VREGC
          RETURN
 XXXVII   SPACE  4
*      BEGIN PROCESSING TP SOURCE FIELD TO NON-JUSTIFIED EP RECEIVING 
*      FIELD.  BCP OF SOURCE FIELD IS LESS THAN BCP OF RECEIVING FIELD. 
*      SIZE OF SOURCE FIELD IS LESS THAN SIZE OF RECEIVING FIELD. 
*      LAST CHAR OF SOURCE FIELD WILL LIE IN FOURTH WORD OF RECEIVING 
*      FIELD. 
  
 AN2AN012 LABEL 
          IFZ    (RECECP,GT,40),AN2AN015
  
************************************************************************
*      GENERATE CODE FOR TP SOURCE FIELD TO NON-JUSTIFIED EP RECEIVING *
*      FIELD.  BCP OF SOURCE FIELD IS LESS THAN BCP OF RECEIVING FIELD.*
*      RECEIVING FIELD SPANS  4 WORDS (I.E. QUADRUPLE PRECISION).      *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P3=BR
*      P4=10-BR 
*      P6=10
*      NRWDS=[(BR+SR)+9]/10 
*      SHIFTCT=60-6*(BR-BS) 
*      MASK2=6*(BR-BS)
  
*                  ARITH8: 6*(FIXED)
          NOTE   AN2AN012 
          GENM   LDRTSPLT 
            SYMP   SRCADDR
            REGP   (VREGOF,VREGB),(VREGOF,VREGA),(VREGOF,VREGD) 
            CONP   SHIFTCT,(ARITH8,RECBCP),MASK2
          ENDG
          CALLZ  STORIT1   KR,BR,10-BR,VREGA;VREGC
          GENM   LD2LFSPL 
            REGP   VREGB,(VREGOF,VREGB),(VREGOF,VREGE),(VREGOF,VREGF) 
            CONP   SHIFTCT,MASK2,MASK2
          ENDG
          GEN    LOR,(VREGOF,VREGA),VREGD,VREGE 
          CALLZ  STORIT2   VREGC,10,VREGA,VREGC 
          ADDZ   RECBCP,SENDSIZE,MASK1
          REMZ   MASK1,10,MASK1 
          GENM   LD2LFSPL 
            REGP   VREGB,(VREGOF,VREGB),(VREGOF,VREGG),(VREGOF,VREGH) 
            CONP   SHIFTCT,MASK2,(ARITH8,MASK1) 
          ENDG
          GEN    LOR,(VREGOF,VREGA),VREGF,VREGG 
          CALLZ  STORIT2   VREGC,10,VREGA;VREGC 
          MOVEZ  VREGH,VREGA
          MOVEZ  SIZEDIFF,P5
          MOVEZ  MASK1,P6 
          CALLZ  ADDSPCS   (SP-SS),(BR+SS)MOD 10,VREGA;VREGA
          SUBZ   RECECP,30,P6 
          CALLZ  STORIT2   VREGC,(BR+SR)-30,VREGA;VREGC 
          RETURN
 XXXVII   SPACE  4
************************************************************************
*      GENERATE CODE FOR TP SOURCE FIELD TO NON-JUSTIFIED EP RECEIVING *
*      FIELD.  BCP OF SOURCE FIELD IS LESS THAN BCP OF RECEIVING FIELD.*
*      SIZE OF SOURCE FIELD IS LESS THAN SIZE OF RECEIVING FIELD.      *
*      RECEIVING FIELD SPANS AT LEAST 5 WORDS.                         *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P3=BR
*      P4=10-BR 
*      P6=10
*      NRWDS=[(BR+SR)+9]/10 
*      SHIFTCT=60-6*(BR-BS) 
*      MASK2=6*(BR-BS)
  
*                  ARITH8: 6*(FIXED)
*                  ARITH18: 6*(FIXED)MOD 10 
*                  ARITH21: [(FIXED-1)MOD 10]+1 
 AN2AN015 LABEL 
          NOTE   AN2AN015 
          GENM   LDRTSPLT 
            SYMP   SRCADDR
            REGP   (VREGOF,VREGB),(VREGOF,VREGA),(VREGOF,VREGD) 
            CONP   SHIFTCT,(ARITH8,RECBCP),MASK2
          ENDG
          CALLZ  STORIT1   KR,BR,10-BR,VREGA;VREGC
          GENM   LD2LFSPL 
            REGP   VREGB,(VREGOF,VREGB),(VREGOF,VREGE),(VREGOF,VREGF) 
            CONP   SHIFTCT,MASK2,MASK2
          ENDG
          GEN    LOR,(VREGOF,VREGA),VREGD,VREGE 
          CALLZ  STORIT2   VREGC,10,VREGA;VREGC 
          ADDZ   RECBCP,SENDSIZE,MASK1
          GENM   LD2LFSPL 
            REGP   VREGB,(VREGOF,VREGB),(VREGOF,VREGG),(VREGOF,VREGH) 
            CONP   SHIFTCT,MASK2,(ARITH18,MASK1)
          ENDG
          GEN    LOR,(VREGOF,VREGA),VREGF,VREGG 
          CALLZ  STORIT2   VREGC,10,VREGA;VREGC 
          MOVEZ  VREGH,VREGA
          SUBZ   40,MASK1,P5
          SUBZ   MASK1,30,P6
          CALLZ  ADDSPCS   40-(BR+SS),(BR+SS)-30,VREGA;VREGA
          MOVEZ  10,P6
          CALLZ  STORIT2   VREGC,10,VREGA;VREGC 
          SUBZ   NRWDS,5,P5 
          CALLZ  STRBLNK   [(BR+SR+9)/10]-5,VREGC 
          MOVEZ  (ARITH21,RECECP),P5
          MOVEZ  0,P6 
          CALLZ  GETSPCS   [(BR+SR-1)MOD 10]+1,0;VREGA
          MOVEZ  P5,P6
          CALLZ  STORIT2   VREGC,[(BR+SR-1)MOD 10]+1,VREGA;VREGC
          RETURN
 XXXVII   SPACE  4
*      BEGIN PROCESSING TP SOURCE FIELD TO JUSTIFIED EP RECEIVING FIELD.
*      BCP OF SOURCE FIELD IS LESS THAN BCP OF RECEIVING FIELD.  SIZE OF
*      SOURCE FIELD IS LESS THAN SIZE OF RECEIVING FIELD. 
  
 AN2AN018 LABEL 
  
*      NOTICE THAT ALL THESE CASES CAN BE HANDLED LIKE THE CORRESPONDING
*      BS=BR CASES
  
          NOTE   AN2AN018 
          BRANCH AN2AN850 
 XXXVII   SPACE  4
*      BEGIN PROCESSING TP SOURCE FIELD TO EP RECEIVING FIELD.  BCP OF
*      SOURCE FIELD IS LESS THAN BCP OF RECEIVING FIELD.  SIZE OF SOURCE
*      FIELD IS GREATER THAN SIZE OF RECEIVING FIELD. 
  
 AN2AN037 LABEL 
          NOTE   AN2AN037 
          MOVEZ  RECSIZE,SENDSIZE 
          IFZ    (JUSTFLG,EQ,0),AN2AN006
  
*      JUSTIFIED RECEIVING FIELD
  
          ADDZ   SENDBCP,SIZEDIFF,SENDBCP 
          BRANCH AN2AN006 
 XXXVIII  EJECT 
*      BEGIN PROCESSING EP SOURCE FIELD TO SP OR DP OR TP OR EP 
*      RECEIVING FIELD.  BCP OF SOURCE FIELD IS LESS THAN BCP OF
*      RECEIVING FIELD. 
  
 AN2AN043 LABEL 
          IFZ    (RECECP,GT,30),AN2AN059
          IFZ    (RECECP,GT,20),AN2AN052
          IFZ    (RECECP,GT,10),AN2AN046
  
************************************************************************
*                                                                      *
*      XXXVIII BS<BR    * BCP OF SOURCE LESS THAN BCP OF RECEIVING     *
*              EP TO SP * EXTENDED PRECISION TO SINGLE PRECISION       *
*                                                                      *
************************************************************************
  
*      NOTICE THAT THIS CASE CAN BE HANDLED EXACTLY LIKE BS<BR, DP TO SP
*      (CASE VIII). 
          NOTE   AN2AN043 
          BRANCH AN2AN204 
 XXXIX    EJECT 
************************************************************************
*                                                                      *
*      XXXIX BS<BR     * BCP OF SOURCE LESS THAN BCP OF RECEIVING      *
*            EP TO DP  * EXTENDED PRECISION TO DOUBLE PRECISION        *
*                                                                      *
************************************************************************
  
*      NOTICE THAT THIS CASE CAN BE HANDLED EXACTLY LIKE BS<BR, TP TO DP
*      (CASE XXI).
  
 AN2AN046 LABEL 
          NOTE   AN2AN046 
          BRANCH AN2AN580 
 XL       EJECT 
************************************************************************
*                                                                      *
*      XL    BS<BR     * BCP OF SOURCE LESS THAN BCP OF RECEIVING      *
*            EP TO TP  * EXTENDED PRECISION TO TRIPLE PRECISION        *
*                                                                      *
************************************************************************
  
 AN2AN052 LABEL 
          MOVEZ  RECSIZE,SENDSIZE 
          IFZ    (JUSTFLG,NE,0),AN2AN056
  
*      NO JUSTIFICATION 
  
          NOTE   AN2AN052 
          ADDZ   SENDBCP,RECSIZE,T1 
          IFZ    (T1,LE,20),AN2AN535
          BRANCH AN2AN595 
  
*      PROCESS EP SOURCE FIELD TO JUSTIFIED TP RECEIVING FIELD.  BCP OF 
*      SOURCE FIELD IS LESS THAN BCP OF RECEIVING FIELD.
  
*                  ARITH21: [(FIXED-1)MOD 10)+1 
 AN2AN056 LABEL 
          NOTE   AN2AN056 
          ADDZ   SENDBCP,SIZEDIFF,T1
          REMZ   T1,10,SENDBCP
          QUOTZ  T1,10,ADOFSET
          SUBZ   RECSIZE,(ARITH21,SENDECP),T1 
          IFZ    (T1,LE,10),AN2AN535
          IFZ    (T1,GT,20),AN2AN202
  
*      EFFECTIVE BCP OF SOURCE FIELD IS IN THIRD FROM LAST WORD- FIND 
*      APPROPRIATE TP TO TP CASE
  
          IFZ    (SENDBCP,LT,RECBCP),AN2AN595 
          IFZ    (SENDBCP,EQ,RECBCP),AN2AN480 
          BRANCH AN2AN725 
 XLI      EJECT 
************************************************************************
*                                                                      *
*      XLI   BS<BR     * BCP OF SOURCE LESS THAN BCP OF RECEIVING      *
*            EP TO EP  * EXTENDED PRECISION TO EXTENDED PRECISION      *
*                                                                      *
************************************************************************
  
 AN2AN059 LABEL 
          IFZ    (SIZEDIFF,GT,0),AN2AN091 
          IFZ    (SIZEDIFF,LT,0),AN2AN066 
  
*      SIZE OF SOURCE FIELD EQUAL TO SIZE OF RECEIVING FIELD. 
  
 AN2AN061 LABEL 
  
*      COMMON PARAMETER SETUP FOR SS=SR CASES 
  
*                  ARITH22: (FIXED+9)/10
          MOVEZ  RECBCP,P3
          SUBZ   10,RECBCP,P4 
          SUBZ   RECBCP,SENDBCP,BCPDIFF 
          MULTZ  6,BCPDIFF,MASK2
          SUBZ   60,MASK2,SHIFTCT 
          ADDZ   SENDBCP,SENDSIZE,SENDECP 
          MOVEZ  (ARITH22,SENDECP),NRWDS
          MOVEZ  (LOCLAB,LABLNUM),LABLNUM 
  
*                  ARITH22: (FIXED+9)/10
          IFZ    ((ARITH22,RECECP),NE,NRWDS),AN2AN062 
  
************************************************************************
*      GENERATE CODE FOR EP SOURCE FIELD TO EP RECEIVING FIELD HAVING  *
*      THE SAME SIZE.  BCP OF SOURCE FIELD IS LESS THAN BCP OF         *
*      RECEIVING FIELD.  SOURCE FIELD SPANS SAME NUMBER OF WORDS AS    *
*      RECEIVING FIELD.                                                *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P3=BR
*      P4=10-BR 
*      SHIFTCT=60-6*(BR-BS) 
*      MASK2=6*(BR-BS)
*      NRWDS=[(BS+SS)+9]/10 
  
*                  ARITH8: 6*(FIXED)
*                  ARITH18: 6*(FIXED)MOD 10 
*                  ARITH21: [(FIXED-1)MOD 10]+1 
          NOTE   AN2AN061 
          GENM   LDRTSPLT 
            SYMP   SRCADDR
            REGP   (VREGOF,VREGB),(VREGOF,VREGA),(VREGOF,VREGD) 
            CONP   SHIFTCT,(ARITH8,RECBCP),MASK2
          ENDG
          CALLZ  STORIT1   KR,BR,10-BR,VREGA;VREGC
          SUBZ   NRWDS,2,NRWDS
          GENM   MVSPLWD
            SYMP   LOCLABL,NRWDS
            REGP   VREGB,VREGD,VREGC
            CONP   SHIFTCT,MASK2
          ENDG
          GENM   LDSPLT2
            REGP   VREGB,VREGD,(VREGOF,VREGA) 
            CONP   (ARITH18,SENDECP),SHIFTCT
          ENDG
          MOVEZ  (ARITH21,RECECP),P6
          CALLZ  STORIT2   VREGC,[(BR+SR-1)MOD 10]+1,VREGA;VREGC
          RETURN
 XLI      SPACE  4
************************************************************************
*      GENERATE CODE FOR EP SOURCE FIELD TO EP RECEIVING FIELD HAVING  *
*      THE SAME SIZE.  BCP OF SOURCE FIELD IS LESS THAN BCP OF         *
*      RECEIVIMG FIELD.  SOURCE FIELD SPANS ONE WORD LESS THAN         *
*      RECEIVING FIELD.                                                *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P3=BR
*      P4=10-BR 
*      SHIFTCT=6-6*(BS-BS)
*      MASK2=6*(BR-BS)
*      NRWDS=[(BS+SS)+9]/10 
  
*                  ARITH8: 6*(FIXED)
*                  ARITH18: 6*(FIXED)MOD 10 
 AN2AN062 LABEL 
          NOTE   AN2AN062 
          GENM   LDRTSPLT 
            SYMP   SRCADDR
            REGP   (VREGOF,VREGB),(VREGOF,VREGA),(VREGOF,VREGD) 
            CONP   SHIFTCT,(ARITH8,RECBCP),MASK2
          ENDG
          CALLZ  STORIT1   KR,BR,10-BR,VREGA;VREGC
          SUBZ   NRWDS,1,NRWDS
          GENM   MVSPLWD
            SYMP   LOCLABL,NRWDS
            REGP   VREGB,VREGD,VREGC
            CONP   SHIFTCT,MASK2
          ENDG
          GEN    MASK,(VREGOF,VREGE),(ARITH18,RECECP) 
          GEN    LAND,(VREGOF,VREGA),VREGE,VREGD
          REMZ   RECECP,10,P6 
          CALLZ  STORIT2   VREGC,(BR+SR)MOD 10,VREGA;VREGC
          RETURN
 XLI      SPACE  4
*      BEGIN PROCESSING EP SOURCE FIELD TO EP RECEIVING FIELD.  BCP OF
*      SOURCE FIELD IS LESS THAN BCP OF RECEIVING FIELD.  SIZE OF 
*      SOURCE FIELD IS LESS THAN SIZE OF RECEIVING FIELD. 
  
 AN2AN066 LABEL 
          IFZ    (JUSTFLG,NE,0),AN2AN079
  
*      NO JUSTIFICATION 
  
          SUBZ   0,SIZEDIFF,SIZEDIFF
  
*      COMMON PARAMETER SETUP FOR SS<SR NON-JUSTIFIED CASES 
  
*                  ARITH22: (FIXED+9)/10
          MOVEZ  RECBCP,P3
          SUBZ   10,RECBCP,P4 
          MULTZ  6,BCPDIFF,MASK2
          SUBZ   60,MASK2,SHIFTCT 
          MOVEZ  (ARITH22,SENDECP),NRWDS
          MOVEZ  (LOCLAB,LABLNUM),LABLNUM 
  
          ADDZ   RECBCP,SENDSIZE,T2 
          IFZ    (NRWDS,NE,(ARITH22,T2)),AN2AN072 
  
*      IF SOURCE FIELD IS N-PRECISION, LAST CHAR OF SOURCE FIELD WILL 
*      LIE IN N-TH WORD OF RECEIVING FIELD. 
  
          IFZ    (NRWDS,NE,(ARITH22,RECECP)),AN2AN069 
  
************************************************************************
*      GENERATE CODE FOR EP SOURCE FIELD TO NON-JUSTIFIED EP RECEIVING *
*      FIELD.  BCP OF SOURCE FIELD IS LESS THAN BCP OF RECEIVING FIELD.*
*      SIZE OF SOURCE FIELD IS LESS THAN SIZE OF RECEIVING FIELD.      *
*      SOURCE FIELD SPANS SAME NUMBER OF WORDS AS RECEIVING FIELD.     *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P3=BR
*      P4=10-BR 
*      NRWDS=[(BS+SS)+9]/10 
*      SHIFTCT=60-6*(BR-BS) 
*      MASK2=6*(BR-BS)
  
*                  ARITH8: 6*(FIXED)
*                  ARITH18: 6*(FIXED)MOD 10 
*                  ARITH21: [(FIXED-1)MOD 10]+1 
          NOTE   AN2AN066 
          GENM   LDRTSPLT 
            SYMP   SRCADDR
            REGP   (VREGOF,VREGB),(VREGOF,VREGA),(VREGOF,VREGD) 
            CONP   SHIFTCT,(ARITH8,RECBCP),MASK2
          ENDG
          CALLZ  STORIT1   KR,BR,10-BR,VREGA;VREGC
          SUBZ   NRWDS,2,NRWDS
          GENM   MVSPLWD
            SYMP   LOCLABL,NRWDS
            REGP   VREGB,VREGD,VREGC
            CONP   SHIFTCT,MASK2
          ENDG
          GENM   LDSPLT2
            REGP   VREGB,VREGD,(VREGOF,VREGA) 
            CONP   (ARITH18,SENDECP),SHIFTCT
          ENDG
          MOVEZ  SIZEDIFF,P5
          ADDZ   RECBCP,SENDSIZE,P6 
          REMZ   P6,10,P6 
          CALLZ  ADDSPCS   SR-SS,(BR+SS)MOD 10,VREGA;VREGA
          MOVEZ  (ARITH21,RECECP),P6
          CALLZ  STORIT2   VREGC,[(BR+SR-1)MOD 10]+1,VREGA;VREGC
          RETURN
 XLI      SPACE  4
************************************************************************
*      GENERATE CODE FOR EP SOURCE FIELD TO NON-JUSTIFIED EP RECEIVING *
*      FIELD.  BCP OF SOURCE FIELD IS LESS THAN BCP OF RECEIVING FIELD.*
*      SIZE OF SOURCE FIELD IS LESS THAN SIZE OF RECEIVING FIELD.      *
*      SOURCE FIELD SPANS FEWER WORDS THAN RECEIVING FIELD.  IF SOURCE *
*      FIELD IS N-PRECISION, LAST CHAR OF SOURCE FIELD WILL LIE IN     *
*      N-TH WORD OF RECEIVING FIELD                                    *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P3=BR
*      P4=10-BR 
*      NRWDS=[(BS+SS)+9]/10 
*      SHIFTCT=60-6*(BR-BS) 
*      MASK2=6*(BR-BS)
  
  
*                  ARITH8: 6*(FIXED)
*                  ARITH18: 6*(FIXED)MOD 10 
*                  ARITH21: [(FIXED-1)MOD 10]+1 
 AN2AN069 LABEL 
          NOTE   AN2AN069 
          GENM   LDRTSPLT 
            SYMP   SRCADDR
            REGP   (VREGOF,VREGB),(VREGOF,VREGA),(VREGOF,VREGD) 
            CONP   SHIFTCT,(ARITH8,RECBCP),MASK2
          ENDG
          CALLZ  STORIT1   KR,BR,10-BR,VREGA;VREGC
          SUBZ   NRWDS,2,NRWDS
          GENM   MVSPLWD
            SYMP   LOCLABL,NRWDS
            REGP   VREGB,VREGD,VREGC
            CONP   SHIFTCT,MASK2
          ENDG
          GENM   LDSPLT2
            REGP   VREGB,VREGD,(VREGOF,VREGA) 
            CONP   (ARITH18,SENDECP),SHIFTCT
          ENDG
          ADDZ   RECBCP,SENDSIZE,MASK1
          MOVEZ  (ARITH21,MASK1),P6 
          SUBZ   10,P6,P5 
          CALLZ  ADDSPCS  10-[(BR+SS-1)M10+1],(BR+SS-1)M10+1,VREGA,VREGA
          MOVEZ  10,P6
          CALLZ  STORIT2   VREGC,10,VREGA;VREGC 
          SUBZ   (ARITH22,RECECP),(ARITH22,MASK1),P5
          SUBZ   P5,1,P5
          MOVEZ  (ARITH21,RECECP),P6
          CALLZ  SPCFLRT   [(BR+SR+9)/10]-[(BR+SS+9)/10]-1
*                          [(BR+SR-1)MOD 10]+1,VREGC
          RETURN
 XLI      SPACE  4
*      BEGIN PROCESSING EP SOURCE FIELD TO NON-JUSTIFIED EP RECEIVING 
*      FIELD.  BCP OF SOURCE FIELD IS LESS THAN BCP OF RECEIVING FIELD. 
*      SIZE OF SOURCE FIELD IS LESS THAN SIZE OF RECEIVING FIELD.  IF 
*      SOURCE FIELD IS N-PRECISION, LAST CHAR OF SOURDE FIELD WILL LIE
*      IN N+1ST WORD OF RECEIVING FIELD.  (NOTE FROM PREVIOUS BRANCH
*      THAT T2= BR+SS 
  
*                  ARITH22: (FIXED+9)/10
 AN2AN072 LABEL 
          IFZ    ((ARITH22,RECECP),NE,(ARITH22,T2)),AN2AN076
  
************************************************************************
*      GENERATE CODE FOR EP SOURCE FIELD TO NON-JUSTIFIED EP RECEIVING *
*      FIELD.  BCP OF SOURCE FIELD IS LESS THAN BCP OF RECEIVING FIELD.*
*      SIZE OF SOURCE FIELD IS LESS THAN SIZE OF RECEIVING FIELD.  IF  *
*      SOURCE FIELD IS N-PRECISION, RECEIVING FIELD IS (N+1) PRECISION *
*      AND LAST CHAR OF SOURCE FIELD WILL LIE IN N+1ST WORD OF         *
*      RECEIVING FIELD.                                                *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P3=BR
*      P4=10-BR 
*      NRWDS=[(BS+SS)+9]/10 
*      SHIFTCT=60-6*(BR-BS) 
*      MASK2=6*(BR-BS)
  
*                  ARITH8: 6*(FIXED)
*                  ARITH21: [(FIXED-1)MOD 10]+1 
          NOTE   AN2AN072 
          GENM   LDRTSPLT 
            SYMP  SRCADDR 
            REGP   (VREGOF,VREGB),(VREGOF,VREGA),(VREGOF,VREGD) 
            CONP   SHIFTCT,(ARITH8,RECBCP),MASK2
          ENDG
          CALLZ  STORIT1   KR,BR,10-BR,VREGA;VREGC
          SUBZ   NRWDS,1,NRWDS
          GENM   MVSPLWD
            SYMP   LOCLABL,NRWDS
            REGP   VREGB,VREGD,VREGC
            CONP   SHIFTCT,MASK2
          ENDG
          ADDZ   RECBCP,SENDSIZE,MASK1
          REMZ   MASK1,10,MASK1 
          GEN    MASK,(VREGOF,VREGE),(ARITH8,MASK1) 
          GEN    LAND,(VREGOF,VREGA),VREGE,VREGD
          MOVEZ  SIZEDIFF,P5
          MOVEZ  MASK1,P6 
          CALLZ  ADDSPCS   SR-SS,(BR+SS)MOD 10,VREGA;VREGA
          MOVEZ  (ARITH21,RECECP),P6
          CALLZ  STORIT2   VREGC,[(BR+SR-1)MOD 10]+1,VREGA;VREGC
          RETURN
 XLI      SPACE  4
************************************************************************
*      GENERATE CODE FOR EP SOURCE FIELD TO NON-JUSTIFIED EP RECEIVING *
*      FIELD.  BCP OF SOURCE FIELD IS LESS THAN BCP OF RECEIVING FIELD.*
*      SIZE OF SOURCE FIELD IS LESS THAN SIZE OF RECEIVING FIELD. IF   *
*      SOURCE FIELD IS N-PRECISION,  LAST CHAR OF SOURCE FIELD WILL LIE*
*      IN N+1ST WORD OF RECEIVING FIELD.  RECEIVING FIELD SPANS MORE   *
*      THAN N+1 WORDS                                                  *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P3=BR
*      P4=10-BR 
*      NRWDS=[(BS+SS)+9]/10 
*      SHIFTCT=60-6*(BR-BS) 
*      MASK2=6*(BR-BS)
  
*                  ARITH8: 6*(FIXED)
*                  ARITH18: 6*(FIXED)MOD 10 
*                  ARITH21: [(FIXED-1)MOD 10]+1 
 AN2AN076 LABEL 
          NOTE   AN2AN076 
          GENM   LDRTSPLT 
            SYMP   SRCADDR
            REGP   (VREGOF,VREGB),(VREGOF,VREGA),(VREGOF,VREGD) 
            CONP   SHIFTCT,(ARITH8,RECBCP),MASK2
          ENDG
          CALLZ  STORIT1   KR,BR,10-BR,VREGA;VREGC
          SUBZ   NRWDS,1,NRWDS
          GENM   MVSPLWD
            SYMP   LOCLABL,NRWDS
            REGP   VREGB,VREGD,VREGC
            CONP   SHIFTCT,MASK2
          ENDG
          ADDZ   RECBCP,SENDSIZE,MASK1
          GEN    MASK,(VREGOF,VREGE),(ARITH18,MASK1)
          GEN    LAND,(VREGOF,VREGA),VREGE,VREGD
          REMZ   MASK1,10,P6
          SUBZ   10,P6,P5 
          CALLZ  ADDSPCS   10-(BR+SS)MOD 10,(BR+SS)MOD 10,VREGA;VREGA 
          MOVEZ  10,P6
          CALLZ  STORIT2   VREGC,10,VREGA;VREGC 
          SUBZ   (ARITH22,RECECP),(ARITH22,MASK1),P5
          SUBZ   P5,1,P5
          MOVEZ  (ARITH21,RECECP),P6
          CALLZ  SPCFLRT   [(BR+SR+9)/10]-[(BR+SS+9)/10]-1
*                          [(BR+SR-1)MOD 10]+1,VREGC
          RETURN
 XLI      SPACE  4
*      BEGIN PROCESSING EP SOURCE FIELD TO JUSTIFIED EP RECEIVING FIELD.
*      BCP OF SOURCE FIELD IS LESS THAN BCP OF RECEIVING FIELD.  SIZE OF
*      SOURCE FIELD IS LESS THAN SIZE OF RECIVING FIELD.
  
 AN2AN079 LABEL 
  
*      NOTICE THAT ALL THESE CASES CAN BE HANDLED LIKE THE CORRESPONDING
*      BS=BR CASES
  
          NOTE   AN2AN079 
          BRANCH AN2AN905 
 XLI      SPACE  4
*      BEGIN PROCESSING EP SOURCE FIELD TO EP RECEIVING FIELD.  BCP OF
*      SOURCE FIELD IS LESS THAN BCP OF RECEIVING FIELD.  SIZE OF SOURCE
*      FIELD IS GREATER THAN SIZE OF RECEIVING FIELD. 
  
 AN2AN091 LABEL 
          MOVEZ  RECSIZE,SENDSIZE 
          IFZ    (JUSTFLG,NE,0),AN2AN093
  
*      NO JUSTIFICATION 
  
          NOTE   AN2AN091 
          ADDZ   SENDBCP,SENDSIZE,SENDECP 
          IFZ    (SENDECP,LE,30),AN2AN006 
          BRANCH AN2AN061 
 XLI      SPACE  4
*      PROCESS EP SOURCE FIELD TO JUSTIFIED EP RECEIVING FIELD.  BCP OF 
*      SOURCE FIELD IS LESS THAN BCP OF RECEIVING FIELD.  SIZE OF SOURCE
*      FIELD IS GREATER THAN SIZE OF RECEIVING FIELD. 
  
 AN2AN093 LABEL 
          NOTE   AN2AN093 
          ADDZ   SENDBCP,SIZEDIFF,T1
          REMZ   T1,10,SENDBCP
          QUOTZ  T1,10,ADOFSET
          ADDZ   SENDBCP,RECSIZE,T1 
          QUOTZ  T1,10,T1 
          IFZ    (T1,EQ,2),AN2AN006 
  
*      SOURCE FIELD IS EFFECTIVELY EP, FIND APPROPRIATE EP TO EP CASE 
  
          IFZ    (SENDBCP,EQ,RECBCP),AN2AN902 
          IFZ    (SENDBCP,LT,RECBCP),AN2AN061 
          IFZ    (SENDBCP,GT,RECBCP),AN2AN202 
 XLII     EJECT 
*      BEGIN PROCESSING EP FIELDS WITH BCP OF SOURCE FIELD GREATER THAN 
*      BCP OF RECEIVING FIELD 
  
 AN2AN101 LABEL 
          IFZ    (SENDECP,GT,30),AN2AN151 
  
*      THE SIZE OF THE SP OR DP OR TP SOURCE FIELD MUST BE SMALLER THAN 
*      THE SIZE OF THE EP RECEIVING FIELD 
  
          SUBZ   0,SIZEDIFF,SIZEDIFF
  
          IFZ    (SENDECP,GT,20),AN2AN131 
          IFZ    (SENDECP,GT,10),AN2AN111 
  
************************************************************************
*                                                                      *
*      XLII  BS>BR     * BCP OF SOURCE GREATER THAN BCP OF RECEIVING   *
*            SP TO EP  * SINGLE PRECISION TO EXTENDED PRECISION        *
*                                                                      *
************************************************************************
  
          NOTE   AN2AN101 
  
*      COMMON PARAMETER SET UP FOR ALL CASES
  
*                  ARITH22: (FIXED+9)/10
          MOVEZ  SENDBCP,P1 
          MOVEZ  SENDSIZE,P2
          MOVEZ  RECBCP,P3
          SUBZ   10,RECBCP,P4 
          MOVEZ  (ARITH22,RECECP),NRWDS 
  
          IFZ    (JUSTFLG,NE,0),AN2AN805
  
************************************************************************
*      GENERATE CODE FOR SP SOURCE FIELD TO NON-JUSTIFIED EP RECEIVING *
*      FIELD.  BCP OF SOURCE FIELD IS GREATER THAN BCP OF RECEIVING    *
*      FIELD.                                                          *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P1=BS
*      P2=SS
*      P3=BR
*      P4=10-BR 
*      NRWDS=[(BR+SR)+9]/10 
  
*                  ARITH8: 6*(FIXED)
*                  ARITH21: [(FIXED-1)MOD 10]+1 
          CALLZ  LOADIT1   KS,BS,SS;VREGA,VREGB 
          GEN    SHL,VREGA,(ARITH8,BCPDIFF) 
          ADDZ   RECBCP,SENDSIZE,P6 
          SUBZ   10,P6,P5 
          CALLZ  ADDSPCS   10-(BR+SS),BR+SS,VREGA;VREGA 
          CALLZ  STORIT1   KR,BR,10-BR,VREGA;VREGC
          SUBZ   NRWDS,2,P5 
          MOVEZ  (ARITH21,RECECP),P6
          CALLZ  SPCFLRT   [(BR+SR+9)/10]-2,[(BR+SR-1)MOD 10]+1,VREGC 
          RETURN
 XLIII    EJECT 
************************************************************************
*                                                                      *
*      XLIII  BS>BR     * BCP OF SOURCE GREATER THAN BCP OF RECEIVING  *
*             DP TO EP  * DOUBLE PRECISION TO EXTENDED PRECISION       *
*                                                                      *
************************************************************************
  
 AN2AN111 LABEL 
  
*      COMMON PARAMETER SETUP FOR ALL CASES 
  
*                  ARITH22: (FIXED+9)/10
          MOVEZ  SENDBCP,P1 
          SUBZ   10,SENDBCP,P2
          MOVEZ  RECBCP,P3
          SUBZ   10,RECBCP,P4 
          MOVEZ  (ARITH22,RECECP),NRWDS 
  
          IFZ    (JUSTFLG,NE,0),AN2AN116
  
*      NO JUSTIFICATION 
  
*      COMMON PARAMETER SETUP FOR NON-JUSTIFIED CASES 
  
          MULTZ  6,BCPDIFF,SHIFTCT
          ADDZ   RECBCP,SENDSIZE,P6 
  
          IFZ    (P6,GT,10),AN2AN113
  
************************************************************************
*      GENERATE CODE FOR DP SOURCE FIELD TO NON-JUSTIFIED EP RECEIVING *
*      FIELD.  BCP OF SOURCE FIELD IS GREATER THAN BCP OF RECEIVING    *
*      FIELD.  SIZE OF SOURCE FIELD IS LESS THAN OR EQUAL TO PART OF   *
*      RECEIVING FIELD LYING IN FIRST WORD.                            *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P1=BS
*      P2=10-BS 
*      P3=BR
*      P4=10-BR 
*      P6=BR+SS 
*      NRWDS=[(BR+SR)+9]/10 
*      SHIFTCT=6*(BS-BR)
  
*                  ARITH18: 6*(FIXED)MOD 10 
*                  ARITH21: [(FIXED-1)MOD 10]+1 
          NOTE   AN2AN111 
          CALLZ  LOADIT1   KS,BS,10-BS;VREGA,VREGB
          GEN    SHL,VREGA,SHIFTCT
          GENM   LDSPLT2
            REGP   VREGB,VREGA,(VREGOF,VREGA) 
            CONP   (ARITH18,SENDECP),SHIFTCT
          ENDG
          SUBZ   10,P6,P5 
          CALLZ  ADDSPCS   10-(BR+SS),BR+SS,VREGA;VREGA 
          CALLZ  STORIT1   KR,BR,10-BR,VREGA;VREGC
          SUBZ   NRWDS,2,P5 
          MOVEZ  (ARITH21,RECECP),P6
          CALLZ  SPCFLRT   [(BR+SR+9)/10]-2,[(BR+SR-1)MOD 10]+1,VREGC 
          RETURN
 XLIII    SPACE  4
************************************************************************
*      GENERATE CODE FOR DP SOURCE FIELD TO NON-JUSTIFIED EP RECEIVING *
*      FIELD.  BCP OF SOURCE FIELD IS GREATER THAN BCP OF RECEIVING    *
*      FIELD.  SIZE OF SOURCE FIELD IS GREATER THAN PART OF RECEIVING  *
*      FIELD LYING IN FIRST WORD.                                      *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P1=BS
*      P2=10-BS 
*      P3=BR
*      P4=10-BR 
*      P6=BR+SS 
*      NRWDS=[(BR+SR)+9]/10 
*      SHIFTCT=6*(BS-BR)
  
*                  ARITH7: 60-6*(FIXED) 
*                  ARITH18: 6*(FIXED)MOD 10 
*                  ARITH21: [(FIXED-1)MOD 10]+1 
 AN2AN113 LABEL 
          NOTE   AN2AN113 
          CALLZ  LOADIT1   KS,BS,10-BS;VREGA,VREGB
          GEN    SHL,VREGA,SHIFTCT
          GENM   LD2LFSPL 
            REGP   VREGB,(VREGOF,VREGB),(VREGOF,VREGD),(VREGOF,VREGE) 
            CONP   SHIFTCT,(ARITH7,BCPDIFF),(ARITH18,P6)
          ENDG
          GEN    LOR,(VREGOF,VREGA),VREGA,VREGD 
          CALLZ  STORIT1   KR,BR,10-BR,VREGA;VREGC
          MOVEZ  VREGE,VREGA
          REMZ   P6,10,P6 
          SUBZ   10,P6,P5 
          CALLZ  ADDSPCS   10-(BR+SS)MOD 10,(BR+SS)MOD 10,VREGA;VREGA 
          MOVEZ  10,P6
          CALLZ  STORIT2   VREGC,10,VREGA;VREGC 
          SUBZ   NRWDS,3,P5 
          MOVEZ  (ARITH21,RECECP),P6
          CALLZ  SPCFLRT   [(BR+SR+9)/10]-3,[(BR+SR-1)MOD 10]+1,VREGC 
          RETURN
 XLIII    SPACE  4
*      PROCESS DP SOURCE FIELD TO JUSTIFIED EP RECEIVING FIELD.  BCP OF 
*      SOURCE FIELD IS GREATER THAN BCP OF RECEIVING FIELD. 
  
 AN2AN116 LABEL 
  
*      NOTICE THAT ALL THESE CASES CAN BE HANDLED LIKE THE CORRESPONDING
*      BS=BR CASES
  
          NOTE   AN2AN116 
          BRANCH AN2AN825 
 XLIV  EJECT
************************************************************************
*                                                                      *
*      XLIV  BS>BR     * BCP OF SOURCE GREATER THAN BCP OF RECEIVING   *
*            TP TO EP  * TRIPLE PRECISION TO EXTENDED PRECISION        *
*                                                                      *
************************************************************************
  
 AN2AN131 LABEL 
  
*      COMMON PARAMETER SETUP FOR ALL CASES 
  
*                  ARITH22: (FIXED+9)/10
          MOVEZ  SENDBCP,P1 
          SUBZ   10,SENDBCP,P2
          MOVEZ  RECBCP,P3
          SUBZ   10,RECBCP,P4 
          MOVEZ  (ARITH22,RECECP),NRWDS 
  
          IFZ    (JUSTFLG,NE,0),AN2AN136
  
*      NO JUSTIFICATION 
  
*      COMMON PARAMETER SETUP FOR NON-JUSTIFIED CASES 
  
          MULTZ  6,BCPDIFF,SHIFTCT
          SUBZ   60,SHIFTCT,MASK1 
  
          ADDZ   RECBCP,SENDSIZE,T1 
          IFZ    (T1,GT,20),AN2AN133
  
************************************************************************
*      GENERATE CODE FOR TP SOURCE FIELD TO NON-JUSTIFIED EP RECEIVING *
*      FIELD.  BCP OF SOURCE FIELD IS GREATER THAN BCP OF RECEIVING    *
*      FIELD.  LAST CHAR OF SOURCE FIELD WILL LIE IN SECOND WORD OF    *
*      RECEIVING FIELD.                                                *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P1=BS
*      P2=10-BS 
*      P3=BR
*      P4=10-BR 
*      NRWDS=[(BR+SR)+9]/10 
*      SHIFTCT=6*(BS-BR)
*      MASK1=60-6*(BS-BR) 
  
*                  ARITH18: 6*(FIXED)MOD 10 
*                  ARITH21: [(FIXED-1)MOD 10]+1 
          NOTE   AN2AN131 
          CALLZ  LOADIT1   KS,BS,10-BS;VREGA,VREGB
          GEN    SHL,VREGA,SHIFTCT
          GENM   LD2LFSPL 
            REGP   VREGB,(VREGOF,VREGB),(VREGOF,VREGD),(VREGOF,VREGE) 
            CONP   SHIFTCT,MASK1,MASK1
          ENDG
          GEN    LOR,(VREGOF,VREGA),VREGA,VREGD 
          CALLZ  STORIT1   KR,BR,10-BR,VREGA;VREGC
          GENM   LDSPLT2
            REGP   VREGB,VREGE,(VREGOF,VREGA) 
            CONP   (ARITH18,SENDECP),SHIFTCT
          ENDG
          ADDZ   RECBCP,SENDSIZE,P6 
          SUBZ   20,P6,P5 
          SUBZ   P6,10,P6 
          CALLZ  ADDSPCS   20-(BR+SS),(BR+SS)-10,VREGA;VREGA
          MOVEZ  10,P6
          CALLZ  STORIT2   VREGC,10,VREGA;VREGC 
          SUBZ   NRWDS,3,P5 
          MOVEZ  (ARITH21,RECECP),P6
          CALLZ  SPCFLRT   [(BR+SR+9)(10]-3,[(BR+SR-1)MOD 10]+1,VREGC 
          RETURN
 XLIV     SPACE  4
************************************************************************
*      GENERATE CODE FOR TP SOURCE FIELD TO NON-JUSTIFIED EP RECEIVING *
*      FIELD.  BCP OF SOURCE FIELD IS GREATER THAN BCP OF RECEIVING    *
*      FIELD.  LAST CHAR OF SOURCE FIELD WILL LIE IN THIRD WORD OF     *
*      RECEIVING FIELD.                                                *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P1=BS
*      P2=10-BS 
*      P3=BR
*      P4=10-BR 
*      NRWDS=[(BR+SR)+9]/10 
*      SHIFTCT=6*(BS-BR)
*      MASK1=60-6*(BS-BR) 
  
*                  ARITH8: 6*(FIXED)
*                  ARITH21: [(FIXED-1)MOD 10]+1 
 AN2AN133 LABEL 
          NOTE   AN2AN133 
          CALLZ  LOADIT1   KS,BS,10-BS;VREGA,VREGB
          GEN    SHL,VREGA,SHIFTCT
          GENM   LD2LFSPL 
            REGP   VREGB,(VREGOF,VREGB),(VREGOF,VREGD),(VREGOF,VREGE) 
            CONP   SHIFTCT,MASK1,MASK1
          ENDG
          GEN    LOR,(VREGOF,VREGA),VREGA,VREGD 
          CALLZ  STORIT1   KR,BR,10-BR,VREGA;VREGC
          ADDZ   RECBCP,SENDSIZE,MASK2
          REMZ   MASK2,10,MASK2 
          GENM   LD2LFSPL 
            REGP   VREGB,(VREGOF,VREGB),(VREGOF,VREGF),(VREGOF,VREGG) 
            CONP   SHIFTCT,MASK1,(ARITH8,MASK2) 
          ENDG
          GEN    LOR,(VREGOF,VREGA),VREGE,VREGF 
          MOVEZ  10,P6
          CALLZ  STORIT2   VREGC,10,VREGA;VREGC 
          MOVEZ  VREGG,VREGA
          SUBZ   10,MASK2,P5
          MOVEZ  MASK2,P6 
          CALLZ  ADDSPCS   10-(BR+SS)MOD 10,(BR+SS)MOD 10,VREGA;VREGA 
          MOVEZ  10,P6       SET TO STORE FULL WORD 
          CALLZ  STORIT2   VREGC,10,VREGA;VREGC 
          SUBZ   NRWDS,4,P5  NUMBER OF WORDS TO SPACE FILL
          MOVEZ  (ARITH21,RECECP),P6
          CALLZ  SPCFLRT   [(BR+SR+9)/10]-5,[(BR+SR-1)MOD 10]+1,VREGC 
          RETURN
 XLIV     SPACE  4
*      PROCESS TP SOURCE FIELD TO JUSTIFIED EP RECEIVING FIELD.  BCP OF 
*      SOURCE FIELD IS GREATER THAN BCP OF RECEIVING FIELD. 
  
 AN2AN136 LABEL 
  
*      NOTICE THAT ALL THESE CASES CAN BE HANDLED LIKE THE CORRESPONDING
*      BS=BR CASES
  
          NOTE   AN2AN136 
          BRANCH AN2AN855 
 XLV      EJECT 
*      BEGIN PROCESSING EP SOURCE FIELD TO SP OR DP OR TP OR EP 
*      RECEIVING FIELD
  
 AN2AN151 LABEL 
          IFZ    (RECECP,GT,30),AN2AN201
          IFZ    (RECECP,GT,20),AN2AN157
          IFZ    (RECECP,GT,10),AN2AN153
  
************************************************************************
*                                                                      *
*      XLV   BS>BR     * BCP OF SOURCE GREATER THAN BCP OF RECEIVING   *
*            EP TO SP  * EXTENDED PRECISION TO SINGLE PRECISION        *
*                                                                      *
************************************************************************
  
*      NOTICE THAT THIS CASE IS EXACTLY LIKE DP TO SP BS>BR SS>SR, SO 
*      PROCESS IT THERE 
  
          NOTE   AN2AN151 
          BRANCH AN2AN280 
 XLVI     EJECT 
************************************************************************
*                                                                      *
*      XLVI  BS>BR     * BCP OF SOURCE GREATER THAN BCP OF RECEIVING   *
*            EP TO DP  * EXTENDED PRECISION TO DOUBLE PRECISION        *
*                                                                      *
************************************************************************
  
*      NOTICE THAT THIS CASE IS EXACTLY LIKE TP TO DP BS>BR SS>SR, SO 
*      PROCESS IT THERE 
  
 AN2AN153 LABEL 
          NOTE   AN2AN153 
          BRANCH AN2AN710 
 XLVII    EJECT 
************************************************************************
*                                                                      *
*      XLVII  BS>BR     * BCP OF SOURCE GREATER THAN BCP OF RECEIVING  *
*             EP TO TP  * EXTENDED PRECISION TO TRIPLE PRECISION       *
*                                                                      *
************************************************************************
  
 AN2AN157 LABEL 
          IFZ    (SIZEDIFF,GT,0),AN2AN163 
          IFZ    (SIZEDIFF,LT,0),AN2AN159 
  
************************************************************************
*      GREATER CODE FOR EP SOURCE FIELD TO TP RECEIVING FIELD HAVING   *
*      THE SAME SIZE.  BCP OF SOURCE FIELD IS GREATER THAN BCP OF      *
*      RECEIVING FIELD.                                                *
************************************************************************
  
*      NOTE: FOR THE BENEFIT OF CASES WHICH BRANCH HERE, NO ARITH 
*      FUNCTIONS ARE USED ON MOVEREGA AND BCPDIFF IS NOT ASSUMED CORRECT
  
*                  ARITH18: 6*(FIXED)MOD 10 
 AN2AN158 LABEL 
          NOTE   AN2AN158 
          MOVEZ  SENDBCP,P1 
          SUBZ   10,SENDBCP,P2
          CALLZ  LOADIT1   KS,BS,10-BS;VREGA,VREGB
          SUBZ   SENDBCP,RECBCP,BCPDIFF 
          MULTZ  6,BCPDIFF,SHIFTCT
          GEN    SHL,VREGA,SHIFTCT
          SUBZ   60,SHIFTCT,MASK1 
          GENM   LD2LFSPL 
            REGP   VREGB,(VREGOF,VREGB),(VREGOF,VREGD),(VREGOF,VREGE) 
            CONP   SHIFTCT,MASK1,MASK1
          ENDG
          GEN    LOR,(VREGOF,VREGA),VREGA,VREGD 
          MOVEZ  RECBCP,P3
          SUBZ   10,RECBCP,P4 
          CALLZ  STORIT1   KR,BR,10-BR,VREGA;VREGC
          GENM   LD2LFSPL 
            REGP   VREGB,(VREGOF,VREGB),(VREGOF,VREGF),(VREGOF,VREGG) 
            CONP   SHIFTCT,MASK1,MASK1
          ENDG
          GEN    LOR,(VREGOF,VREGA),VREGE,VREGF 
          MOVEZ  10,P6
          CALLZ  STORIT2   VREGC,10,VREGA;VREGC 
          GENM   LDSPLT2
            REGP   VREGB,VREGG,(VREGOF,VREGA) 
            CONP   (ARITH18,SENDECP),SHIFTCT
          ENDG
          MOVEZ  (ARITH21,RECECP),P6
          CALLZ  STORIT2   VREGC,(BR+SR)MOD 10,VREGA;VREGC
          RETURN
 XLVII    SPACE  4
*      PROCESS EP SOURCE FIELD TO TP RECEIVING FIELD.  BCP OF SOURCE
*      FIELD IS GREATER THAN BCP OF RECEIVING FIELD.  SIZE OF SOURCE
*      FIELD IS LESS THAN SIZE OF RECEIVING FIELD.
  
 AN2AN159 LABEL 
  
          SUBZ   0,SIZEDIFF,SIZEDIFF
  
*      COMMON PARAMETER SETUP FOR ALL SS<SR CASES 
  
          MOVEZ  SENDBCP,P1 
          SUBZ   10,SENDBCP,P2
          MOVEZ  RECBCP,P3
          SUBZ   10,RECBCP,P4 
          MOVEZ  SIZEDIFF,P5
  
          IFZ    (JUSTFLG,NE,0),AN2AN161
  
************************************************************************
*      GENERATE CODE FOR EP SOURCE FIELD TO NON-JUSTIFIED TP RECEIVING *
*      FIELD.  BCP OF SOURCE FIELD IS GREATER THAN BCP OF RECEIVING    *
*      FIELD.  SIZE OF SOURCE FIELD IS LESS THAN SIZE OF RECEIVING     *
*      FIELD.                                                          *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P1=BS
*      P2=10-BS 
*      P3=BR
*      P4=10-BR 
*      P5=SR-SS 
  
*                  ARITH18: 6*(FIXED)MOD 10 
          NOTE   AN2AN159 
          CALLZ  LOADIT1   KS,BS,10-BS;VREGA,VREGB
          MULTZ  6,BCPDIFF,SHIFTCT
          GEN    SHL,VREGA,SHIFTCT
          SUBZ   60,SHIFTCT,MASK1 
          GENM   LD2LFSPL 
            REGP   VREGB,(VREGOF,VREGB),(VREGOF,VREGD),(VREGOF,VREGE) 
            CONP   SHIFTCT,MASK1,MASK1
          ENDG
          GEN    LOR,(VREGOF,VREGA),VREGA,VREGD 
          CALLZ  STORIT1   KR,BR,10-BR,VREGA;VREGC
          GENM   LD2LFSPL 
            REGP   VREGB,(VREGOF,VREGB),(VREGOF,VREGF),(VREGOF,VREGG) 
            CONP   SHIFTCT,MASK1,MASK1
          ENDG
          GEN    LOR,(VREGOF,VREGA),VREGE,VREGF 
          MOVEZ  10,P6
          CALLZ  STORIT2   VREGC,10,VREGA,VREGC 
          GENM   LDSPLT2
            REGP   VREGB,VREGG,(VREGOF,VREGA) 
            CONP   (ARITH18,SENDECP),SHIFTCT
          ENDG
          ADDZ   RECBCP,SENDSIZE,P6 
          REMZ   P6,10,P6 
          CALLZ  ADDSPCS   SR-SS,(BR+SS)MOD 10,VREGA;VREGA
          MOVEZ  (ARITH21,RECECP),P6
          CALLZ  STORIT2   VREGC,(BR+SR)MOD 10,VREGA;VREGC
          RETURN
 XLVII    SPACE  4
************************************************************************
*      GENERATE CODE FOR EP SOURCE FIELD TO JUSTIFIED TP RECEIVING     *
*      FIELD.  BCP OF SOURCE FIELD IS GREATER THAN BCP OF RECEIVING    *
*      FIELD.  SIZE OF SOURCE FIELD IS LESS THAN SIZE OF RECEIVING     *
*      FIELD.                                                          *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P1=BS
*      P2=10-BS 
*      P3=BR
*      P4=10-BR 
*      P5=SR-SS 
  
*                  ARITH21: [(FIXED-1)MOD 10]+1 
 AN2AN161 LABEL 
          NOTE   AN2AN161 
          CALLZ  LOADIT1   KS,BS,10-BS;VREGA,VREGB
          SUBZ   0,ECPDIFF,ECPDIFF
          MULTZ  6,ECPDIFF,SHIFTCT
          GEN    SHL,VREGA,SHIFTCT
          MOVEZ  RECBCP,P6
          CALLZ  ADDSPCS   SR-SS,BR,VREGA;VREGA 
          SUBZ   60,SHIFTCT,MASK1 
          GENM   LD2LFSPL 
            REGP   VREGB,(VREGOF,VREGB),(VREGOF,VREGD),(VREGOF,VREGE) 
            CONP   SHIFTCT,MASK1,MASK1
          ENDG
          GEN    LOR,(VREGOF,VREGA),VREGA,VREGD 
          CALLZ  STORIT1   KR,BR,10-BR,VREGA,VREGC
          GENM   LD2LFSPL 
            REGP   VREGB,(VREGOF,VREGB),(VREGOF,VREGF),(VREGOF,VREGG) 
            CONP   SHIFTCT,MASK1,MASK1
          ENDG
          GEN    LOR,(VREGOF,VREGA),VREGE,VREGF 
          MOVEZ  10,P6
          CALLZ  STORIT2   VREGC,10,VREGA;VREGC 
          GENM   LDSPLT2
            REGP   VREGB,VREGG,(VREGOF,VREGA) 
            CONP   (ARITH18,SENDBCP),SHIFTCT
          ENDG
          MOVEZ  (ARITH21,RECECP),P6
          CALLZ  STORIT2   VREGC,[(BR+SR-1)MOD 10]+1,VREGA;VREGC
          RETURN
 XLVII    SPACE  4
*      PROCESS EP SOURCE FIELD TO TP RECEIVING FIELD.  BCP OF SOURCE
*      FIELD IS GREATER THAN BCP OF RECEIVING FIELD.  SIZE OF SOURCE
*      FIELD IS GREATER THAN SIZE OF RECEIVING FIELD. 
  
 AN2AN163 LABEL 
          MOVEZ  RECSIZE,SENDSIZE 
          IFZ    (JUSTFLG,NE,0),AN2AN166
  
*      NO JUSTIFICATION 
  
          NOTE   AN2AN163 
          ADDZ   SENDBCP,RECSIZE,SENDECP
          IFZ    (SENDECP,GT,30),AN2AN158 
          BRANCH AN2AN725 
 XLVII    SPACE  4
*      PROCESS EP SOURCE FIELD TO JUSTIFIED TP RECEIVING FIELD.  BCP OF 
*      SOURCE FIELD IS GREATER THAN BCP OF RECEIVING FIELD.  SIZE OF
*      SOURCE FIELD IS GREATER THAN SIZE OF RECEIVING FIELD.
  
*                  ARITH21: [(FIXED-1)MOD 10]+1 
 AN2AN166 LABEL 
          NOTE   AN2AN166 
          ADDZ   SENDBCP,SIZEDIFF,T1
          REMZ   T1,10,SENDBCP
          QUOTZ  T1,10,ADOFSET
          SUBZ   RECSIZE,(ARITH21,SENDECP),T1 
          IFZ    (T1,LE,10),AN2AN535
  
*      SOURCE FIELD IS EFFECTIVELY TP- FIND APPROPRIATE TP TO TP CASE 
  
          IFZ    (SENDBCP,LT,RECBCP),AN2AN595 
          IFZ    (SENDBCP,EQ,RECBCP),AN2AN480 
          BRANCH AN2AN725 
 XLVIII   EJECT 
************************************************************************
*                                                                      *
*      XLVIII BS>BR     * BCP OF SOURCE GREATER THAN BCP OF RECEIVING  *
*             EP TO EP  * EXTENDED PRECISION TO EXTENDED PRECISION     *
*                                                                      *
************************************************************************
  
 AN2AN201 LABEL 
          IFZ    (SIZEDIFF,GT,0),AN2AN238 
          IFZ    (SIZEDIFF,LT,0),AN2AN206 
  
*      SIZE OF SOURCE FIELD EQUAL TO SIZE OF RECEIVING FIELD
  
 AN2AN202 LABEL 
  
*      COMMON PARAMETER SETUP FOR SS=SR CASES 
*                  ARITH22: (FIXED+9)/10
          MOVEZ  SENDBCP,P1 
          SUBZ   10,SENDBCP,P2
          MOVEZ  RECBCP,P3
          SUBZ   10,RECBCP,P4 
          SUBZ   SENDBCP,RECBCP,BCPDIFF 
          MULTZ  6,BCPDIFF,SHIFTCT
          SUBZ   60,SHIFTCT,MASK1 
          ADDZ   SENDBCP,SENDSIZE,SENDECP 
          MOVEZ  (ARITH22,SENDECP),NRWDS
          MOVEZ  (LOCLAB,LABLNUM),LABLNUM 
  
*                  ARITH22: (FIXED+9)/10
          IFZ    (NRWDS,NE,(ARITH22,RECECP)),AN2AN203 
  
************************************************************************
*      GENERATE CODE FOR EP SOURCE FIELD TO EP RECEIVING FIELD HAVING  *
*      THE SAME SIZE.  BCP OF SOURCE FIELD IS GREATER THAN BCP OF      *
*      RECEIVING FIELD.  BOTH FIELDS SPAN THE SAME NUMBER OF WORDS.    *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P1=BS
*      P2=10-BS 
*      P3=BR
*      P4=10-BR 
*      SHIFTCT=6*(BS-BR)
*      MASK1=60-6*(BS-BR) 
*      NRWDS=[(BS+SS)+9]/10 
  
*                  ARITH18: 6*(FIXED)MOD 10 
          NOTE   AN2AN202 
          CALLZ  LOADIT1   KS,BS,10-BS;VREGA,VREGB
          GEN    SHL,VREGA,SHIFTCT
          GENM   LD2LFSPL 
            REGP   VREGB,(VREGOF,VREGB),(VREGOF,VREGD),(VREGOF,VREGE) 
            CONP   SHIFTCT,MASK1,MASK1
          ENDG
          GEN    LOR,(VREGOF,VREGA),VREGA,VREGD 
          CALLZ  STORIT1   KR,BR,10-BR,VREGA;VREGC
          SUBZ   NRWDS,2,NRWDS
          GENM   MVSPLWD
            SYMP   LOCLABL,NRWDS
            REGP   VREGB,VREGE,VREGC
            CONP   SHIFTCT,MASK1
          ENDG
          GEN    MASK,(VREGOF,VREGF),(ARITH18,RECECP) 
          GEN    LAND,(VREGOF,VREGA),VREGF,VREGE
          REMZ   RECECP,10,P6 
          CALLZ  STORIT2   VREGC,(BR+SR)MOD 10,VREGA,VREGC
          RETURN
 XLVIII   SPACE  4
************************************************************************
*      GENERATE CODE FOR EP SOURCE FIELD TO EP RECEIVING FIELD HAVING  *
*      THE SAME SIZE.  BCP OF SOURCE FIELD IS GREATER THAN BCP OF      *
*      RECEIVING FIELD.  THE FIELDS DO NOT SPAN THE SAME NUMBER OF     *
*      WORDS.                                                          *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P1=BS
*      P2=10-BS 
*      P3=BR
*      P4=10-BR 
*      SHIFTCT=6*(BS-BR)
*      MASK1=60-6*(BS-BR) 
*      NRWDS=[BS+SS)+9]/10
  
*                  ARITH18: 6*(FIXED)MOD 10 
*                  ARITH21: [(FIXED-1)MOD 10]+1 
 AN2AN203 LABEL 
          NOTE   AN2AN203 
          CALLZ  LOADIT1   KS,BS,10-BS;VREGA,VREGB
          GEN    SHL,VREGA,SHIFTCT
          GENM   LD2LFSPL 
            REGP   VREGB,(VREGOF,VREGB),(VREGOF,VREGD),(VREGOF,VREGE) 
            CONP   SHIFTCT,MASK1,MASK1
          ENDG
          GEN    LOR,(VREGOF,VREGA),VREGA,VREGD 
          CALLZ  STORIT1   KR,BR,10-BR,VREGA;VREGC
          SUBZ   NRWDS,3,NRWDS
          GENM   MVSPLWD
            SYMP   LOCLABL,NRWDS
            REGP   VREGB,VREGE,VREGC
            CONP   SHIFTCT,MASK1
          ENDG
          GENM   LDSPLT2
            REGP   VREGB,VREGE,(VREGOF,VREGA) 
            CONP   (ARITH18,SENDECP),SHIFTCT
          ENDG
          MOVEZ  (ARITH21,RECECP),P6
          CALLZ  STORIT2   VREGC,[(BR+SR-1)MOD 10]+1,VREGA;VREGC
          RETURN
 XLVIII   SPACE  4
*      PROCESS EP SOURCE FIELD TO EP RECEIVING FIELD.  BCP OF SOURCE
*      FIELD IS GREATER THAN BCP OF RECEIVING FIELD.  SIZE OF SOURCE
*      FIELD IS LESS THAN SIZE OF RECEIVING FIELD.
  
 AN2AN206 LABEL 
          SUBZ   0,SIZEDIFF,SIZEDIFF
  
*      COMMON PARAMETER SETUP FOR ALL SS<SR CASES 
  
*                  ARITH22: (FIXED+9)/10
          MOVEZ  SENDBCP,P1 
          SUBZ   10,SENDBCP,P2
          MOVEZ  RECBCP,P3
          SUBZ   10,RECBCP,P4 
          MOVEZ  (ARITH22,SENDECP),NRWDS
          MOVEZ  (LOCLAB,LABLNUM),LABLNUM 
  
          IFZ    (JUSTFLG,NE,0),AN2AN216
  
*      NO JUSTIFICATION 
  
*      COMMON PARAMETER SETUP FOR SS<SR NON-JUSTIFIED CASES 
  
          MULTZ  6,BCPDIFF,SHIFTCT
          SUBZ   60,SHIFTCT,MASK1 
  
*                  ARITH22: (FIXED+9)/10
          ADDZ   RECBCP,SENDSIZE,T2 
          MOVEZ  (ARITH22,T2),T2
          IFZ    (NRWDS,NE,T2),AN2AN211 
          MOVEZ  (ARITH22,RECECP),T2
          IFZ    (NRWDS,NE,T2),AN2AN208 
  
************************************************************************
*      GENERATE CODE FOR EP SOURCE FIELD TO NON-JUSTIFIED EP RECEIVING *
*      FIELD.  BCP OF SOURCE FIELD IS GREATER THAN BCP OF RECEIVING    *
*      FIELD.  SIZE OF SOURCE FIELD IS LESS THAN SIZE OF RECEIVING     *
*      FIELD.  BOTH FIELDS SPAN THE SAME NUMBER OF WORDS.  LAST CHAR   *
*      OF SOURCE FIELD WILL LIE IN LAST WORD OF RECEIVING FIELD.       *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P1=BS
*      P2=10-BS 
*      P3=BR
*      P4=10-BR 
*      NRWDS=[(BS+SS)+9]/10 
*      SHIFTCT=6*(BS-BR)
*      MASK1=60-6*(BS-BR) 
  
*                  ARITH18: 6*(FIXED)MOD 10 
*                  ARITH21: [(FIXED-1)MOD 10]+1 
          NOTE   AN2AN206 
          CALLZ  LOADIT1   KS,BS,10-BS;VREGA,VREGB
          GEN    SHL,VREGA,SHIFTCT
          GENM   LD2LFSPL 
            REGP   VREGB,(VREGOF,VREGB),(VREGOF,VREGD),(VREGOF,VREGE) 
            CONP   SHIFTCT,MASK1,MASK1
          ENDG
          GEN    LOR,(VREGOF,VREGA),VREGA,VREGD 
          CALLZ  STORIT1   KR,BR,10-BR,VREGA;VREGC
          SUBZ   NRWDS,2,NRWDS
          GENM   MVSPLWD
            SYMP   LOCLABL,NRWDS
            REGP   VREGB,VREGE,VREGC
            CONP   SHIFTCT,MASK1
          ENDG
          ADDZ   RECBCP,SENDSIZE,P6 
          REMZ   P6,10,P6 
          GEN    MASK,(VREGOF,VREGF),(ARITH8,P6)
          GEN    LAND,(VREGOF,VREGA),VREGF,VREGE
          MOVEZ  SIZEDIFF,P5
          CALLZ  ADDSPCS   SR-SS,(BR+SS)MOD 10,VREGA;VREGA
          MOVEZ  (ARITH21,RECECP),P6
          CALLZ  STORIT2   VREGC,[(BR+SR-1)MOD 10]+1,VREGA;VREGC
          RETURN
 XLVIII   SPACE  4
************************************************************************
*      GENERATE CODE FOR EP SOURCE FIELD TO NON-JUSTIFIED EP RECEIVING *
*      FIELD.  BCP OF SOURCE IFELD IS GREATER THAN BCP OF RECEIVING    *
*      FIELD.  SIZE OF SOURCE FIELD IS LESS THAN SIZE OF RECEIVING     *
*      FIELD.  IF SOURCE FIELD SPANS N WORDS, LAST CHAR OF SOURCE FIELD*
*      WILL LIE IN NTH WORD OF RECEIVING FIELD AND RECEIVING FIELD     *
*      SPANS MORE THAN N WORDS.                                        *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P1=BS
*      P2=10-BS 
*      P3=BR
*      P4=10-BR 
*      NRWDS=[(BS+SS)+9]/10 
*      SHIFTCT=6*(BS-BR)
*      MASK1=60-6*(BS-BR) 
  
*                  ARITH18: 6*(FIXED)MOD 10 
*                  ARITH21: [(FIXED-1)MOD 10]+1 
*                  ARITH22: [FIXED+9)/10
 AN2AN208 LABEL 
          NOTE   AN2AN208 
          CALLZ  LOADIT1   KS,BS,10-BS;VREGA,VREGB
          GEN    SHL,VREGA,SHIFTCT
          GENM   LD2LFSPL 
            REGP   VREGB,(VREGOF,VREGB),(VREGOF,VREGD),(VREGOF,VREGE) 
            CONP   SHIFTCT,MASK1,MASK1
          ENDG
          GEN    LOR,(VREGOF,VREGA),VREGA,VREGD 
          CALLZ  STORIT1   KR,BR,10-BR,VREGA,VREGC
          SUBZ   NRWDS,2,NRWDS
          GENM   MVSPLWD
            SYMP   LOCLABL,NRWDS
            REGP   VREGB,VREGE,VREGC
            CONP   SHIFTCT,MASK1
          ENDG
          ADDZ   RECBCP,SENDSIZE,MASK2
          REMZ   MASK2,10,P6
          GEN    MASK,(VREGOF,VREGF),(ARITH8,P6)
          GEN    LAND,(VREGOF,VREGA),VREGF,VREGE
          SUBZ   10,P6,P5 
          CALLZ  ADDSPCS   10-(BR+SS)MOD 10,(BR+SS)MOD 10,VREGA;VREGA 
          MOVEZ  10,P6
          CALLZ  STORIT2   VREGC,10,VREGA;VREGC 
          SUBZ   (ARITH22,RECECP),(ARITH22,MASK2),P5
          SUBZ   P5,1,P5
          MOVEZ  (ARITH21,RECECP),P6
          CALLZ  SPCFLRT   [(BR+SR+9)/10]-[(BR+SS+9)/10]-1, 
*                          [(BR+SR-1)MOD 10]+1,VREGC
          RETURN
 XLVIII   SPACE  4
*      PROCESS EP SOURCE FIELD TO NON-JUSTIFIED EP RECEIVING FIELD.  BCP
*      OF SOURCE FIELD IS GREATER THAN BCP OF RECEIVING FIELD.  SIZE OF 
*      SOURCE FIELD IS LESS THAN SIZE OF RECEIVING FIELD.  IF SOURCE
*      FIELD SPANS N WORDS, LAST CHAR OF SOURCE FIELD WILL LIE IN 
*      (N-1)ST WORD OF RECEIVING FIELD
*      NOTICE THAT FROM PRIOR PARAMETER SETUP-  NRWDS=[(BS+SS)+9]/10
  
*                  ARITH22: (FIXED+9)/10
 AN2AN211 LABEL 
          IFZ    (NRWDS,LE,(ARITH22,RECECP)),AN2AN213 
  
************************************************************************
*      GENERATE CODE FOR EP SOURCE FIELD TO NON-JUSTIFIED EP RECEIVING *
*      FIELD.  BCP OF SOURCE FIELD IS GREATER THAN BCP OF RECEIVING    *
*      FIELD.  SIZE OF SOURCE FIELD IS LESS THAN SIZE OF RECEIVING     *
*      FIELD.  IF SOURCE FIELD SPANS N WORDS, RECEIVING FIELD SPANS N-1*
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P1=BS
*      P2=10-BS 
*      P3=BR
*      P4=10-BR 
*      NRWDS=[(BS+SS)+9]/10 
*      SHIFT=6*(BS-BR)
*      MASK1=60-6*(BS-BR) 
  
*                  ARITH18: 6*(FIXED)MOD 10 
*                  ARITH21: [(FIXED-1)MOD 10]+1 
          NOTE   AN2AN211 
          CALLZ  LOADIT1   KS,BS,10-BS;VREGA,VREGB
          GEN    SHL,VREGA,SHIFTCT
          GENM   LD2LFSPL 
            REGP   VREGB,(VREGOF,VREGB),(VREGOF,VREGD),(VREGOF,VREGE) 
            CONP   SHIFTCT,MASK1,MASK1
          ENDG
          GEN    LOR,(VREGOF,VREGA),VREGA,VREGD 
          CALLZ  STORIT1   KR,BR,10-BR,VREGA;VREGC
          SUBZ   NRWDS,3,NRWDS
          GENM   MVSPLWD
            SYMP   LOCLABL,NRWDS
            REGP   VREGB,VREGE,VREGC
            CONP   SHIFTCT,MASK1
          ENDG
          GENM   LDSPLT2
            REGP   VREGB,VREGE,(VREGOF,VREGA) 
            CONP   (ARITH18,SENDECP),SHIFTCT
          ENDG
          MOVEZ  SIZEDIFF,P5
          ADDZ   RECBCP,SENDSIZE,P6 
          REMZ   P6,10,P6 
          CALLZ  ADDSPCS   SR-SS,(BR+SS)MOD 10,VREGA;VREGA
          MOVEZ  (ARITH21,RECECP),P6
          CALLZ  STORIT2   VREGC,[(BR+SR-1)MOD 10]+1,VREGA;VREGC
          RETURN
 XLVIII   SPACE  4
************************************************************************
*      GENERATE CODE FOR EP SOURCE FIELD TO NON-JUSTIFIED EP RECEIVING *
*      FIELD.  BCP OF SOURCE FIELD IS GREATER THAN BCP OF RECEIVING    *
*      FIELD.  SIZE OF SOURCE FIELD IS LESS THAN SIZE OF RECEIVING     *
*      FIELD.  IF SOURCE FIELD SPANS N WORDS, LAST CHAR OF SOURCE FIELD*
*      WILL LIE IN (N-1)ST WORD OF RECEIVING FIELD.  RECEIVING FIELD   *
*      SPANS AT LEAST N WORDS.                                         *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P1=BS
*      P2=10-BS 
*      P3=BR
*      P4=10-BR 
*      NRWDS=[(BS+SS)+9]/10 
*      SHIFTCT=6*(BS-BR)
*      MASK1=60-6*(BS-BR) 
  
*                  ARITH18: 6*(FIXED)MOD 10 
*                  ARITH21: [(FIXED-1)MOD 10]+1 
*                  ARITH22: (FIXED+9)/10
 AN2AN213 LABEL 
          NOTE   AN2AN213 
          CALLZ  LOADIT1   KS,BS,10-BS;VREGA,VREGB
          GEN    SHL,VREGA,SHIFTCT
          GENM   LD2LFSPL 
            REGP   VREGB,(VREGOF,VREGB),(VREGOF,VREGD),(VREGOF,VREGE) 
            CONP   SHIFTCT,MASK1,MASK1
          ENDG
          GEN    LOR,(VREGOF,VREGA),VREGA,VREGD 
          CALLZ  STORIT1   KR,BR,10-BR,VREGA;VREGC
          SUBZ   NRWDS,3,NRWDS
          GENM   MVSPLWD
            SYMP   LOCLABL,NRWDS
            REGP   VREGB,VREGE,VREGC
            CONP   SHIFTCT,MASK1
          ENDG
          GENM   LDSPLT2
            REGP   VREGB,VREGE,(VREGOF,VREGA) 
            CONP   (ARITH18,SENDECP),SHIFTCT
          ENDG
          ADDZ   RECBCP,SENDSIZE,MASK2
          MOVEZ  (ARITH21,MASK2),P6 
          SUBZ   10,P6,P5 
          CALLZ  ADDSPCS   10-(BR+SS)MOD 10,(BR+SS)MOD 10,VREGA;VREGA 
          MOVEZ  10,P6
          CALLZ  STORIT2   VREGC,10,VREGA;VREGC 
          SUBZ   (ARITH22,RECECP),(ARITH22,MASK2),P5
          SUBZ   P5,1,P5
          MOVEZ  (ARITH21,RECECP),P6
          CALLZ  SPCFLRT   [(BR+SR+9)/10]-[(BR+SS+9)/10]-1, 
*                          [(BR+SR-1)MOD 10]+1,VREGC
          RETURN
 XLVIII   SPACE  4
*      BEGIN PROCESSING EP SOURCE FIELD TO JUSTIFIED EP RECEIVING FIELD.
*      BCP OF SOURCE FIELD IS GREATER THAN BCP OF RECEIVING FIELD.  SIZE
*      OF SOURCE FIELD IS LESS THAN SIZE OF RECEIVING FIELD.
  
 AN2AN216 LABEL 
  
  
*      NOTICE THAT WITH THE EXCEPTION OF TWO CASES, ALL OF THESE CASES
*      CAN BE HANDLED EXACTLY LIKE THE CORRESPONDING BS=BR CASES
  
*                  ARITH21: [(FIXED-1)MOD 10]+1 
          MOVEZ  (ARITH21,SENDECP),T1 
          MOVEZ  (ARITH21,RECECP),T2
          ADDZ   RECBCP,SIZEDIFF,MASK1
          IFTHEN (T1,EQ,T2) 
            ANDIF  (MASK1,LT,10)
              BRANCH AN2AN221 
          ENDIFZ
          IFTHEN (T1,GT,T2) 
            ANDIF  (MASK1,LT,10)
              IFZ    (MASK1,LT,SENDBCP),AN2AN223
          ENDIFZ
  
          NOTE   AN2AN216 
          BRANCH AN2AN915 
 XLVIII   SPACE  4
************************************************************************
*      GENERATE CODE FOR EP SOURCE FIELD TO JUSTIFIED EP RECEIVING     *
*      FIELD.  BCP OF SOURCE FIELD IS GREATER THAN BCP OF RECEIVING    *
*      FIELD.  SIZE OF SOURCE FIELD IS LESS THAN SIZE OF RECEIVING     *
*      FIELD.  ECP OF SOURCE FIELD IS EQUAL TO ECP OF RECEIVING FIELD. *
*      FIRST CHAR OF SOURCE FIELD WILL LIE IN FIRST WORD OF RECEIVING  *
*      FIELD.                                                          *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P1=BS
*      P2=10-BS 
*      P3=BR
*      P4=10-BR 
*      P6=BR
*      NRWDS=[(BR+SR)+9]/10 
  
*                  ARITH21: [(FIXED-1)MOD 10]+1 
 AN2AN221 LABEL 
          NOTE   AN2AN221 
          CALLZ  LOADIT1   KS,BS,10-BS;VREGA,VREGB
          MOVEZ  SIZEDIFF,P5
          CALLZ  ADDSPCS   SR-SS,BR,VREGA;VREGA 
          CALLZ  STORIT1   KR,BR,10-BR,VREGA;VREGC
          SUBZ   NRWDS,2,P5 
          CALLZ  MOVWORD   [(BS+SS+9)/10]-2,VREGB,VREGC 
          MOVEZ  (ARITH21,RECECP),P6
          CALLZ  LOADIT2   VREGB,[(BR+SR-1)MOD 10]+1;VREGA,VREGB
          CALLZ  STORIT2   VREGC,[(BR+SR-1)MOD 10]+1;VREGA,VREGC
          RETURN
 XLVIII   SPACE  4
************************************************************************
*      GENERATE CODE FOR EP SOURCE FIELD TO JUSTIFIED EP RECEIVING     *
*      FIELD.  BCP OF SOURCE FIELD IS GREATER THAN BCP OF RECEIVING    *
*      FIELD.  SIZE OF SOURCE FIELD IS LESS THAN SIZE OF RECEIVING     *
*      FIELD.  ECP OF SOURCE FIELD IS GREATER THAN ECP OF RECEIVING    *
*      FIELD.  FIRST CHAR OF SOURCE FIELD WILL LIE IN FIRST WORD OF    *
*      RECEIVING FIELD.  BOTH FIELDS SPAN THE SAME NUMBER OF WORDS.    *
************************************************************************
  
*      PRIOR PARAMETER SETUP HAS PRODUCED:  
  
*      P1=BS
*      P2=10-BS 
*      P3=BR
*      P4=10-BR 
  
*                  ARITH18: 6*(FIXED)MOD 10 
 AN2AN223 LABEL 
          NOTE   AN2AN223 
          CALLZ  LOADIT1   KS,BS,10-BS;VREGA,VREGB
          SUBZ   0,(ARITH18,ECPDIFF),SHIFTCT
          GEN    SHL,VREGA,SHIFTCT
          MOVEZ  SIZEDIFF,P5
          MOVEZ  RECBCP,P6
          CALLZ  ADDSPCS   SR-SS,BR,VREGA;VREGA 
          SUBZ   60,SHIFTCT,MASK2 
          GENM   LD2LFSPL 
            REGP   VREGB,(VREGOF,VREGB),(VREGOF,VREGD),(VREGOF,VREGE) 
            CONP   SHIFTCT,MASK2,MASK2
          ENDG
          GEN    LOR,(VREGOF,VREGA),VREGA,VREGD 
          CALLZ  STORIT1   KR,BR,10-BR,VREGA;VREGC
          SUBZ   NRWDS,2,NRWDS
          GENM   MVSPLWD
            SYMP   LOCLABL,NRWDS
            REGP   VREGB,VREGE,VREGC
            CONP   SHIFTCT,MASK2
          ENDG
          GEN    MASK,(VREGOF,VREGF),(ARITH18,RECECP) 
          GEN    LAND,(VREGOF,VREGA),VREGF,VREGE
          REMZ   RECECP,10,P6 
          CALLZ  STORIT2   VREGC,(BR+SR)MOD 10,VREGA;VREGC
          RETURN
 XLVIII   SPACE  4
*      PROCESS EP SOURCE FIELD TO EP REDEIVING FIELD.  BCP OF SOURCE
*      FIELD IS GREATER THAN BCP OF RECEIVING FIELD.  SIZE OF SOURCE
*      FIELD IS GREATER THAN SIZE OF RECEIVING FIELD. 
  
 AN2AN238 LABEL 
          NOTE   AN2AN238 
          MOVEZ  RECSIZE,SENDSIZE 
          IFZ    (JUSTFLG,EQ,0),AN2AN202
  
*      JUSTIFIED RECEIVING FIELD
  
          ADDZ   SENDBCP,SIZEDIFF,T1
          REMZ   T1,10,SENDBCP
          QUOTZ  T1,10,ADOFSET
          ADDZ   SENDBCP,RECSIZE,T1 
          IFZ    (T1,LE,30),AN2AN006
  
*      MOVE IS EP TO EP FIND APPROPRIATE CASE 
  
          IFZ    (SENDBCP,LT,RECBCP),AN2AN061 
          IFZ    (SENDBCP,EQ,RECBCP),AN2AN902 
          BRANCH AN2AN202 
          EJECT 
 RETURN   LABEL 
          RETURN
          LIST   *
 OP.BDP   ENDIF 
          END 
