*DECK CON6C 
          IDENT  T8.CN6C
          TITLE  ROUTINES CON6C, CONC.. 
 CON6C    TITLE  CONVERSION FROM INTERNAL TO CARD FORMAT                075050
*                                                                       075060
**    CON6C - CONVERT INTERNAL SOURCE FIELDS TO CARD(PUNCH) 
*             DESTINATION FIELDS
*                                                                       075080
*         INPUT  -  B1 = 1                                              075090
*                   B6 = RETURN ADDRESS                                 075100
*                                                                       075110
*                T.INREC     POINTER TO CURRENT POSITION IN SOURCE      075120
*                T.OUTREC    POINTER TO CURRENT POSITION IN DESTINATION 075130
*                                                                       075140
*         OUTPUT -  NONE IN REGISTERS                                   075150
*                                                                       075160
*         PRESERVED  --, --, --, --, --, --, --, --                     075170
*                    A0, --, --, --, --, --, --, --                     075180
*                        B1, --, --, --, --, --, --                     075190
*                                                                       075200
*         TEMPORARY CELLS USED..                                        075210
*                                                                       075220
*                T.SAVEB6    SAVES B6 VALUE                             075230
*                T.I1        SOURCE FIELD POINTER                       075240
*                T.I2        DESTINATION FIELD POINTER                  075250
*                                                                       075260
          SPACE  1
*CALL COM2
          SPACE  4                                                      075280
*                                                                       075290
* JUMP VECTOR FOR CONVERSION                                            075300
* 
 CON6C    LETMASK R,(ABCDEINQSUXZ)   LEGAL T1 TYPES                     075320
          J      *                                                      075330
          ECHO   1,P=(Z,X,U,S,Q,N,I,E,D,C,B,A)                          075340
          J      CON6C._P                                               075350
*                                                                       075360
          ECHO   4,P=(Z,X,U,S,N,I,E,D,C,B,A)
 CON6C._P  LETMASK R,(BX),00B   LEGAL T2 TYPES                          075380
          J      *
          ECHO   1,Q=(X,B,0)                                            075390
          J      CON6C._P_Q                                             075400
*                                                                       075410
 CON6C.Q  LETMASK R,,0       Q CODE                                     075420
          J      *
          J      CON6C.Q0                                               075430
*                                                                       075440
*                                                                       075450
          SPACE  4                                                      075460
*                                                                       075470
* Q CODE (QUIT)                                                         075480
*                                                                       075490
 CON6C.Q0 EQ     CONA..Q     DONE, EXIT CONVERSION                      075500
*                                                                       075510
          SPACE  2                                                      075520
*                                                                       075530
* STRING TYPE CONVERSIONS                                               075540
*                                                                       075550
          SPACE  1                                                      075560
*                                                                       075570
 CON6C.B0 SA5    T.M1        B-0 DEFAULTS TO B-B                        075580
          BX6    X5                                                     075590
          SA6    T.M2                                                   075600
*                                                                       075610
 CON6C.BB SB5    C6C.1       B-B                                        075620
          EQ     GSBX        SETUP POINTERS 
 C6C.1    SB5    C6C.2                                                  075640
          EQ     GDB                                                    075650
 C6C.2    SA2    T.I2        CALL MVBITS                                075660
          SA3    T.SAVEB6                                               075670
          SA1    T.I1                                                   075680
          BX7    X2                                                     075690
          SB6    X3                                                     075700
          AX2    36                                                     075710
          EQ     MVBITS                                                 075720
*                                                                       075730
          SPACE  2                                                      075740
*                                                                       075750
 CON6C.BX SB5    C6C.3       B-X                                        075760
          EQ     GSBX 
 C6C.3    SB5    C6C.4                                                  075780
          EQ     GDC                                                    075790
 C6C.4    SA5    T.I2        SET UP AND CALL CNA..MV                    075800
          SA4    T.SAVEB6                                               075810
          SA1    T.I1                                                   075820
          SX2    B1          SOURCE SIZE                                075830
          SX3    SIZE.P      DESTINATION CHARACTER SIZE                 075840
          BX7    X5                                                     075850
          SB5    X4                                                     075860
          SX5    TR.BTOP                                                075870
          SX6    ZERO.P                                                 TB8   28
          EQ     CNA..MV                                                075890
*                                                                       075900
          SPACE  2                                                      075910
*                                                                       075920
 CON6C.A0 SB7    TX.ATOP     DEFAULT FROM A 
 C6C.5    SA5    T.M1                                                   075940
          SB5    C6C.7                                                  075950
          BX7    X5                                                     075960
          SA7    T.M2                                                   075970
          EQ     GSCX        12-BIT SOURCE
*                                                                       075990
 CON6C.C0 SB7    TX.CTOP     DEFAULT FROM C                             076000
          EQ     C6C.5                                                  076010
*                                                                       076020
 CON6C.AX SB7    TX.ATOP     A-X                                        076030
 C6C.6    SB5    C6C.7                                                  076040
          EQ     GSCX 
*                                                                       076060
 CON6C.CX SB7    TX.CTOP     C-X                                        076070
          EQ     C6C.6                                                  076080
*                                                                       076090
 C6C.7    SB5    C6C.8                                                  076100
          EQ     GDC                                                    076110
 C6C.8    SA5    T.I2        CALL CNA..MV                               076120
          SA4    T.SAVEB6                                               076130
          SA1    T.I1                                                   076140
          SX2    SIZE.A      SOURCE CHAR SIZE                           076150
          BX7    X5                                                     076160
          SX3    X2          DEST CHAR SIZE (12 BITS)                   076170
          SB5    X4                                                     076180
          SA5    B7          TRANSLATION                                076190
          SX6    SPACE.P                                                076200
          EQ     CNA..MV                                                076210
*                                                                       076220
          SPACE  2                                                      076230
*                                                                       076240
 CON6C.X0 SA5    T.M1        X-DEFAULT                                  076250
          BX7    X5                                                     076260
          SA7    T.M2                                                   076270
*                                                                       076280
 CON6C.XX SB5    C6C.9       X-X                                        076290
          EQ     GS6X 
 C6C.9    SB5    C6C.10                                                 076310
          EQ     GDC                                                    076320
 C6C.10   SA5    T.I2        CALL CNA..MV                               076330
          SA4    T.SAVEB6                                               076340
          SA1    T.I1                                                   076350
          SX2    SIZE.X                                                 076360
          SX3    SIZE.P                                                 076370
          BX7    X5                                                     076380
          SB5    X4                                                     076390
          SA5    TX.XTOP                                                076400
          SX6    SPACE.P                                                076410
          EQ     CNA..MV                                                076420
*                                                                       076430
          SPACE  2                                                      076440
*                                                                       076450
 CON6C.AB SB7    ZERO.A      A-B                                        076460
 C6C.11   SB5    C6C.12                                                 076470
          EQ     GSCX 
 C6C.12   SB5    C6C.13                                                 076490
          EQ     GDB                                                    076500
 C6C.13   SX5    B7          MOVE TO BIT FIELD                          076510
          SB7    SIZE.A                                                 076520
          EQ     CNA..MB                                                076530
*                                                                       076540
 CON6C.CB SB7    ZERO.C      C-B                                        076550
          EQ     C6C.11                                                 076560
*                                                                       076570
 CON6C.XB SB5    C6C.14      X-B                                        076580
          EQ     GS6X 
 C6C.14   SB5    C6C.15                                                 076600
          EQ     GDC                                                    076610
 C6C.15   SX5    ZERO.X                                                 076620
          SB7    SIZE.X                                                 076630
          EQ     CNA..MB                                                076640
*                                                                       076650
          SPACE  2                                                      076660
*                                                                       076670
* NUMERIC MODE CONVERSIONS                                              076680
*                                                                       076690
 .A       ECHO   ,P=(D,E,I,U),R=(D,E,E,E),U=(40,20,20,20)               076700
 CON6C._P_0  SX7   U           P-DEFAULT
          SA7    T.M2                                                   076720
          SPACE  1                                                      076730
 .B       ECHO   ,Q=(X,B),S=(C,B)                                       076740
 XXX      SYMBOL                                                        076750
 YYY      SYMBOL                                                        076760
 CON6C._P_Q  SB5   "XXX"       P-Q                                      076770
          EQ     GS_R                                                   076780
 "XXX"    SB5    "YYY"                                                  076790
          EQ     GD_S                                                   076800
 "YYY"    SB5    C6C.._Q                                                076810
          SA1    T.I1                                                   076820
          EQ     CON6._P_.                                              076830
          SPACE  1                                                      076840
 .B       ENDD                                                          076850
          SPACE  1                                                      076860
 .A       ENDD                                                          076870
*                                                                       076880
          SPACE  2                                                      076890
*                                                                       076900
 .A       ECHO   ,P=(N,S,Z),R=(6,6,6)                                   076910
 CON6C._P_0  SA5   T.M1        P-DEFAULT                                076920
          BX7    X5                                                     076930
          SA7    T.M2                                                   076940
          SPACE  1                                                      076950
 .B       ECHO   ,Q=(X,B),U=(C,B) 
 XXX      SYMBOL                                                        076970
 YYY      SYMBOL                                                        076980
 CON6C._P_Q  SB5   "XXX"       P-Q                                      076990
          EQ     GS_R                                                   077000
 "XXX"    SB5      "YYY"                                                077010
          EQ     GD_U 
 "YYY"    SB5    C6C.._Q                                                077030
          SA1    T.I1                                                   077040
          EQ     CON6._P_.                                              077050
          SPACE  1                                                      077060
 .B       ENDD                                                          077070
          SPACE  1                                                      077080
 .A       ENDD                                                          077090
*                                                                       077100
          SPACE  2                                                      077110
*                                                                       077120
 .A       ECHO   ,Q=(X,B)                                               077130
 C6C.._Q   SA2    T.SAVEB6                                              077140
          SA1    T.I2                                                   077150
          SB5    X2                                                     077160
          EQ     CONC.._Q                                               077170
          SPACE  1                                                      077180
 .A       ENDD                                                          077190
*                                                                       077200
 CONC..   TITLE  CONC.. - CONVERSION ROUTINES FOR CARD IMAGE DESTINATION061670
*                                                                       061680
**    CONC.. - A SERIES OF ROUTINES TO PERFORM NUMERIC CONVERSIONS
*        TO CARD IMAGE DATA TYPES                                       061700
*                                                                       061710
*         INPUT  -  B1 = 1                                              061720
*                   X1 = DESTINATION POINTER                            061730
*                   B5 = RETURN ADDRESS                                 061740
*                                                                       061750
*         OUTPUT -  NONE IN REGISTERS                                   061760
*                                                                       061770
*         PRESERVED  --, --, --, --, --, --, --, --                     061780
*                    A0, --, --, --, --, --, --, --                     061790
*                        B1, --, --, --, --, --, --                     061800
*                                                                       061810
*         TEMPORARY CELLS USED..                                        061820
*                                                                       061830
*                T.NUM,+1,+2    SOURCE, A TRIPLE PRECISION NUMBER       061840
*                T.TEMP1     TEMPORARY                                  061850
*                T.TEMP2     TEMPORARY                                  061860
*                                                                       061870
*         NOTES..  THE ROUTINES THAT FOLLOW ARE NAMED -CONC..Q-,        061880
*                 WHERE -Q- IS A VALID DESTINATION TYPE FOR CARD        061890
*                 FIELDS (B,X).                                         061900
*                                                                       061910
          SPACE  4                                                      061930
*                                                                       061940
* BIT FIELDS                                                            061950
*                                                                       061960
 CONC..B  SB4    B0          FLAG ONE-S COMPLEMENT                      061970
          EQ     CONA..B                                                061980
*                                                                       061990
          SPACE  2                                                      062000
*                                                                       062010
* X FIELDS                                                              062020
*                                                                       062030
 CONC..X  SX6    SIZE.C      CHARACTER SIZE                             062040
          SB7    CNC.1                                                  062050
          EQ     CONA..X     TRANSLATE                                  062060
*                                                                       062070
 CNC.1    SX6    SPACE.P
          SB7    CNC.2                                                  062090
          EQ     CONA.BL     FILL LEADING BLANKS                        062100
*                                                                       062110
 CNC.2    SA5    TX.XTOP     TRANSLATE VECTOR 
          SX3    SIZE.C                                                 062130
          SX2    SIZE.X                                                 062140
          EQ     CNA..MV     MOVE NUMBER
*                                                                       062160
          END 
