*DECK CONT6 
          IDENT  T8.CNT6
 CONT6    TITLE  CONVERT FROM TAPE TO INTERNAL FORMAT                   079900
*                                                                       079910
**    CONT6 - CONVERT IBM(TAPE) SOURCE FIELDS TO INTERNAL 
*             DESTINATION FIELDS
*                                                                       079930
*         INPUT  -  B1 = 1                                              079940
*                   B6 = RETURN ADDRESS                                 079950
*                                                                       079960
*                T.INREC     POINTER TO CURRENT POSITION IN SOURCE      079970
*                T.OUTREC    POINTER TO CURRENT POSITION IN DESTINATION 079980
*                                                                       079990
*         OUTPUT -  NONE IN REGISTERS                                   080000
*                                                                       080010
*         PRESERVED  --, --, --, --, --, --, --, --                     080020
*                    A0, --, --, --, --, --, --, --                     080030
*                        B1, --, --, --, --, --, --                     080040
*                                                                       080050
*         TEMPORARY CELLS USED                                          080060
*                                                                       080070
*                T.SAVEB6    SAVES B6 VALUE                             080080
*                T.I1        SOURCE FIELD POINTER                       080090
*                T.I2        DESTINATION FIELD POINTER                  080100
*                                                                       080110
          SPACE  1
*CALL COM2
          SPACE  4                                                      080130
*                                                                       080140
* JUMP VECTOR FOR CONVERSION                                            080150
*                                                                       080160
 CONT6    LETMASK R,(BEFGHLPQSWX)   LEGAL T1 TYPES                      080170
          J      *                                                      080180
          ECHO   1,P=(X,W,S,Q,P,L,H,G,F,E,B)                            080190
          J      CONT6._P                                               080200
*                                                                       080210
          ECHO   4,P=(X,W,S,P,L,H,G,F,E,B)
 CONT6._P  LETMASK R,(ABCDEINSUXZ),00B   LEGAL T2 TYPES                 080230
          J      *
          ECHO   1,Q=(Z,X,U,S,N,I,E,D,C,B,A,0)                          080240
          J      CONT6._P_Q                                             080250
*                                                                       080260
 CONT6.Q  LETMASK R,,0       Q CODE                                     080270
          J      *
          J      CONT6.Q0                                               080280
*                                                                       080290
*                                                                       080300
          SPACE  4                                                      080310
*                                                                       080320
* Q CODE (QUIT)                                                         080330
*                                                                       080340
 CONT6.Q0 EQ     CONA..Q     DONE, EXIT CONVERSION                      080350
*                                                                       080360
          SPACE  2                                                      080370
*                                                                       080380
* STRING TYPE CONVERSIONS                                               080390
*                                                                       080400
          SPACE  1                                                      080410
*                                                                       080420
 CONT6.B0 SA5    T.M1        B-0 DEFAULTS TO B-B                        080430
          BX6    X5                                                     080440
          SA6    T.M2                                                   080450
*                                                                       080460
 CONT6.BB SB5    CT6.1       B-B                                        080470
          EQ     GSBX 
 CT6.1    SB5    CT6.2                                                  080490
          EQ     GDB                                                    080500
 CT6.2    SA2    T.I2        CALL MVBITS                                080510
          SA3    T.SAVEB6                                               080520
          SA1    T.I1                                                   080530
          BX7    X2                                                     080540
          SB6    X3                                                     080550
          AX2    36                                                     080560
          EQ     MVBITS                                                 080570
*                                                                       080580
          SPACE  2                                                      080590
*                                                                       080600
 CONT6.BA SB5    CT6.3       B-A                                        080610
          EQ     GSBX 
 CT6.3    SB5    CT6.4                                                  080630
          EQ     GDC                                                    080640
 CT6.4    SX5    TR.BTOA                                                080650
          SX6    ZERO.A                                                 TB8   38
          SX3    SIZE.A                                                 080670
          EQ     CT6.9                                                  080680
*                                                                       080690
 CONT6.BC SB5    CT6.5       B-C                                        080700
          EQ     GSBX 
 CT6.5    SB5    CT6.6                                                  080720
          EQ     GDC                                                    080730
 CT6.6    SX5    TR.BTOC                                                080740
          SX6    ZERO.C                                                 TB8   40
          SX3    SIZE.C                                                 080760
          EQ     CT6.9                                                  080770
*                                                                       080780
 CONT6.BX SB5    CT6.7       B-X                                        080790
          EQ     GSBX 
 CT6.7    SB5    CT6.8
          EQ     GD6                                                    080820
 CT6.8    SX5    TR.BTOX                                                080830
          SX6    ZERO.X                                                 TB8   42
          SX3    SIZE.X                                                 080850
*                                                                       080860
 CT6.9    SA2    T.I2        SET UP AND CALL CNA..MV                    080870
          SA4    T.SAVEB6                                               080880
          SA1    T.I1                                                   080890
          BX7    X2                                                     080900
          SB5    X4                                                     080910
          SX2    B1                                                     080920
          EQ     CNA..MV                                                080930
*                                                                       080940
          SPACE  2                                                      080950
*                                                                       080960
 CONT6.XB SB5    CT6.10      X-B                                        080970
          EQ     GS8X 
 CT6.10   SB5    CT6.11                                                 080990
          EQ     GDB                                                    081000
 CT6.11   SB6    CT6.12                                                 081010
          EQ     TXTEST      TEST SOURCE CODE                           081020
*                                                                       081030
 CT6.12   SB7    8           SIZE OF SOURCE CHARACTER                   081040
          SX5    ZERO.C                                                 081050
          ZR     B4,CNA..MB  EBCDIC                                     081060
          SX5    ZERO.A                                                 081070
          EQ     CNA..MB     ASCII                                      081080
*                                                                       081090
          SPACE  2                                                      081100
*                                                                       081110
 CONT6.XA SB7    B1          X-A                                        081120
 CT6.13   SB5    CT6.14                                                 081130
          EQ     GS8X 
 CT6.14   SB5    CT6.15                                                 081150
          EQ     GDC                                                    081160
 CT6.15   SB6    CT6.16                                                 081170
          EQ     TXTEST      TEST SOURCE CODE                           081180
*                                                                       081190
 CONT6.XC SB7    B0          X-C                                        081200
          EQ     CT6.13                                                 081210
*                                                                       081220
 CT6.16   SX5    B0          SET UP CALL TO CNA..MV                     081230
          EQ     B4,B7,CT6.17                                           081240
          SX5    TR.ATOC                                                081250
          NZ     B4,CT6.17                                              081260
          SX5    TR.CTOA                                                081270
*                                                                       081280
 CT6.17   SA2    T.I2                                                   081290
          SA4    T.SAVEB6                                               081300
          SA1    T.I1                                                   081310
          SX3    SIZE.A      DEST. CHAR SIZE                            081320
          BX7    X2                                                     081330
          SB5    X4                                                     081340
          SX2    8           SOURCE CHAR SIZE                           081350
          SX6    SPACE.C                                                081360
          ZR     B7,CNA..MV                                             081370
          SX6    SPACE.A                                                081380
          EQ     CNA..MV                                                081390
*                                                                       081400
*                                                                       081410
 CONT6.X0 SA5    T.M1        X-DEFAULT                                  081420
          BX7    X5                                                     081430
          SA7    T.M2                                                   081440
*                                                                       081450
 CONT6.XX SB5    CT6.18      X-X                                        081460
          EQ     GS8X 
 CT6.18   SB5    CT6.19                                                 081480
          EQ     GD6                                                    081490
 CT6.19   SB6    CT6.20                                                 081500
          EQ     TXTEST      TEST SOURCE CODE                           081510
*                                                                       081520
 CT6.20   SA5    T.I2        CALL CNA..MV                               081530
          SA4    T.SAVEB6                                               081540
          SA1    T.I1                                                   081550
          SX2    8                                                      081560
          SX3    SIZE.X                                                 081570
          SX6    SPACE.X                                                081580
          BX7    X5                                                     081590
          SB5    X4                                                     081600
          SX5    TR.CTOX                                                081610
          ZR     B4,CNA..MV  JP EBCDIC                                  081620
          SX5    TR.ATOX                                                081630
          EQ     CNA..MV     ASCII                                      081640
*                                                                       081650
          SPACE  2                                                      081660
*                                                                       081670
* NUMERIC MODE CONVERSIONS                                              081680
*                                                                       081690
 .A       ECHO   ,P=(H,W,G,F,L,E,P,S),R=(H,W,G,W,G,L,8,8)               081700
 .B       ECHO   ,Q=(B,A,C,X),U=(B,C,C,6) 
 XXX      SYMBOL                                                        081720
 YYY      SYMBOL                                                        081730
 CONT6._P_Q  SB5   "XXX"       P-Q                                      081740
          EQ     GS_R                                                   081750
 "XXX"    SB5    "YYY"                                                  081760
          EQ     GD_U 
 "YYY"    SB5    CT6.._Q                                                081780
          SA1    T.I1                                                   081790
          EQ     CONT._P_.                                              081800
          SPACE  1                                                      081810
 .B       ENDD                                                          081820
 .A       ENDD                                                          081830
*                                                                       081840
 .A       ECHO   ,P=(B,X,H,W,G,F,L,E,P,S),R=(B,8X,H,W,G,W,G,L,8,8)
 .B       ECHO   ,Q=(I,U,E,D,S,N,Z),U=(E,E,E,D,6,6,6) 
 XXX      SYMBOL                                                        081870
 YYY      SYMBOL                                                        081880
 CONT6._P_Q  SB5   "XXX"       P-Q                                      081890
          EQ     GS_R                                                   081900
 "XXX"    SB5    "YYY"                                                  081910
          EQ     GD_U 
 "YYY"    SB5    CT6.._Q                                                081930
          SA1    T.I1                                                   081940
          EQ     CONT._P_.                                              081950
          SPACE  1                                                      081960
 .B       ENDD                                                          081970
 .A       ENDD                                                          081980
*                                                                       081990
          SPACE  2                                                      082000
*                                                                       082010
 .A       ECHO   ,Q=(B,A,C,X,I,U,E,D,S,N,Z)                             082020
 CT6.._Q   SA2    T.SAVEB6                                              082030
          SA1    T.I2                                                   082040
          SB5    X2                                                     082050
          EQ     CON6.._Q                                               082060
          SPACE  1                                                      082070
 .A       ENDD                                                          082080
*                                                                       082090
          SPACE  2                                                      082100
*                                                                       082110
* DEFAULTS                                                              082120
*                                                                       082130
 .A       ECHO   ,P=(H,W,G,F,L,E),Q=(I,I,I,E,E,D)                       082140
 CONT6._P_0  EQU   CONT6._P_Q                                           082150
 .A       ENDD                                                          082160
*                                                                       082170
          SPACE  2                                                      082180
*                                                                       082190
 CONT6.P0 SA5    T.M1        P-DEFAULT                                  082200
          LX7    X5,B1                                                  082210
          SA7    T.M2        M2 = 2*M1                                  082220
          EQ     CONT6.PS                                               082230
*                                                                       082240
 CONT6.S0 SA5    T.M1        S-DEFAULT                                  082250
          BX7    X5                                                     082260
          SA7    T.M2                                                   082270
          EQ     CONT6.SS                                               082280
*                                                                       082290
          END 
