*DECK CON6P 
          IDENT  T8.CN6P
          TITLE  ROUTINES CON6P, CONP.. 
 CON6P    TITLE  CONVERSION FROM INTERNAL TO PRINT FORMAT               072890
*                                                                       072900
**    CON6P - CONVERT INTERNAL SOURCE FIELDS TO PRINT(EXTENDED) 
*             DESTINATION FIELDS
*                                                                       072920
*         INPUT  -  B1 = 1                                              072930
*                   B6 = RETURN ADDRESS                                 072940
*                                                                       072950
*                T.INREC     POINTER TO CURRENT POSITION IN SOURCE      072960
*                T.OUTREC    POINTER TO CURRENT POSITION IN DESTINATION 072970
*                                                                       072980
*         OUTPUT -  NONE IN REGISTERS                                   072990
*                                                                       073000
*         PRESERVED  --, --, --, --, --, --, --, --                     073010
*                    A0, --, --, --, --, --, --, --                     073020
*                        B1, --, --, --, --, --, --                     073030
*                                                                       073040
*         TEMPORARY CELLS USED..                                        073050
*                                                                       073060
*                T.SAVEB6    SAVES B6 VALUE                             073070
*                T.I1        SOURCE FIELD POINTER                       073080
*                T.I2        DESTINATION FIELD POINTER                  073090
*                                                                       073100
          SPACE  1
*CALL COM2
          SPACE  4                                                      073120
*                                                                       073130
* JUMP VECTOR FOR CONVERSION                                            073140
*                                                                       073150
 CON6P    LETMASK R,(ABCDEINQSUXZ)   LEGAL T1 TYPES                     073160
          J      *                                                      073170
          ECHO   1,P=(Z,X,U,S,Q,N,I,E,D,C,B,A)                          073180
          J      CON6P._P                                               073190
*                                                                       073200
          ECHO   4,P=(Z,X,U,S,N,I,E,D,C,B,A)
 CON6P._P  LETMASK R,(BX),00B   LEGAL T2 TYPES                          073220
          J      *
          ECHO   1,Q=(X,B,0)                                            073230
          J      CON6P._P_Q                                             073240
*                                                                       073250
 CON6P.Q  LETMASK R,,0       Q CODE                                     073260
          J      *
          J      CON6P.Q0                                               073270
*                                                                       073280
*                                                                       073290
          SPACE  4                                                      073300
*                                                                       073310
* Q CODE (QUIT)                                                         073320
*                                                                       073330
 CON6P.Q0 EQ     CONA..Q     DONE, EXIT CONVERSION                      073340
*                                                                       073350
          SPACE  2                                                      073360
*                                                                       073370
* STRING TYPE CONVERSIONS                                               073380
*                                                                       073390
          SPACE  1                                                      073400
*                                                                       073410
 CON6P.B0 SA5    T.M1        B-0 DEFAULTS TO B-B                        073420
          BX6    X5                                                     073430
          SA6    T.M2                                                   073440
*                                                                       073450
 CON6P.BB SB5    C6P.1       B-B                                        073460
          EQ     GSBX        SETUP POINTERS 
 C6P.1    SB5    C6P.2                                                  073480
          EQ     GDB                                                    073490
 C6P.2    SA2    T.I2        CALL MVBITS                                073500
          SA3    T.SAVEB6                                               073510
          SA1    T.I1                                                   073520
          BX7    X2                                                     073530
          SB6    X3                                                     073540
          AX2    36                                                     073550
          EQ     MVBITS                                                 073560
*                                                                       073570
          SPACE  2                                                      073580
*                                                                       073590
 CON6P.BX SB5    C6P.3       B-X                                        073600
          EQ     GSBX 
 C6P.3    SB5    C6P.4                                                  073620
          EQ     GDC                                                    073630
 C6P.4    SA5    T.I2        SET UP AND CALL CNA..MV                    073640
          SA4    T.SAVEB6                                               073650
          SA1    T.I1                                                   073660
          SX2    B1          SOURCE SIZE                                073670
          SX3    SIZE.A      DESTINATION CHARACTER SIZE                 073680
          BX7    X5                                                     073690
          SB5    X4                                                     073700
          SX5    TR.BTOA                                                073710
          SX6    ZERO.A                                                 TB8   25
          EQ     CNA..MV                                                073730
*                                                                       073740
          SPACE  2                                                      073750
*                                                                       073760
 CON6P.A0 SB7    B0          DEFAULT FROM A                             073770
 C6P.5    SA5    T.M1                                                   073780
          SB5    C6P.7                                                  073790
          BX7    X5                                                     073800
          SA7    T.M2                                                   073810
          EQ     GSCX        12-BIT SOURCE
*                                                                       073830
 CON6P.C0 SB7    TR.CTOA     DEFAULT FROM C                             073840
          EQ     C6P.5                                                  073850
*                                                                       073860
 CON6P.AX SB7    B0          A-X                                        073870
 C6P.6    SB5    C6P.7                                                  073880
          EQ     GSCX 
*                                                                       073900
 CON6P.CX SB7    TR.CTOA     C-X
          EQ     C6P.6                                                  073920
*                                                                       073930
 C6P.7    SB5    C6P.8                                                  073940
          EQ     GDC                                                    073950
 C6P.8    SA5    T.I2        CALL CNA..MV                               073960
          SA4    T.SAVEB6                                               073970
          SA1    T.I1                                                   073980
          SX2    SIZE.A      SOURCE CHAR SIZE                           073990
          BX7    X5                                                     074000
          SX3    X2          DEST CHAR SIZE                             074010
          SB5    X4                                                     074020
          SX5    B7          TRANSLATION                                074030
          SX6    SPACE.A                                                074040
          EQ     CNA..MV                                                074050
*                                                                       074060
          SPACE  2                                                      074070
*                                                                       074080
 CON6P.X0 SA5    T.M1        X-DEFAULT                                  074090
          BX7    X5                                                     074100
          SA7    T.M2                                                   074110
*                                                                       074120
 CON6P.XX SB5    C6P.9       X-X                                        074130
          EQ     GS6X 
 C6P.9    SB5    C6P.10                                                 074150
          EQ     GDC                                                    074160
 C6P.10   SA5    T.I2        CALL CNA..MV                               074170
          SA4    T.SAVEB6                                               074180
          SA1    T.I1                                                   074190
          SX2    SIZE.X                                                 074200
          SX3    SIZE.A                                                 074210
          BX7    X5                                                     074220
          SB5    X4                                                     074230
          SX5    TR.XTOA                                                074240
          SX6    SPACE.A                                                074250
          EQ     CNA..MV                                                074260
*                                                                       074270
          SPACE  2                                                      074280
*                                                                       074290
 CON6P.AB SB7    ZERO.A      A-B                                        074300
 C6P.11   SB5    C6P.12                                                 074310
          EQ     GSCX 
 C6P.12   SB5    C6P.13                                                 074330
          EQ     GDB                                                    074340
 C6P.13   SX5    B7          MOVE TO BIT FIELD                          074350
          SB7    SIZE.A                                                 074360
          EQ     CNA..MB                                                074370
*                                                                       074380
 CON6P.CB SB7    ZERO.C      C-B                                        074390
          EQ     C6P.11                                                 074400
*                                                                       074410
 CON6P.XB SB5    C6P.14      X-B                                        074420
          EQ     GS6X 
 C6P.14   SB5    C6P.15                                                 074440
          EQ     GDC                                                    074450
 C6P.15   SX5    ZERO.X                                                 074460
          SB7    SIZE.X                                                 074470
          EQ     CNA..MB                                                074480
*                                                                       074490
          SPACE  2                                                      074500
*                                                                       074510
* NUMERIC MODE CONVERSIONS                                              074520
*                                                                       074530
 .A       ECHO   ,P=(D,E,I,U),R=(D,E,E,E),U=(40,20,20,20)               074540
 CON6P._P_0  SX7   U           P-DEFAULT                                074550
          SA7    T.M2                                                   074560
          SPACE  1                                                      074570
 .B       ECHO   ,Q=(X,B),S=(C,B)                                       074580
 XXX      SYMBOL                                                        074590
 YYY      SYMBOL                                                        074600
 CON6P._P_Q  SB5   "XXX"       P-Q                                      074610
          EQ     GS_R                                                   074620
 "XXX"    SB5    "YYY"                                                  074630
          EQ     GD_S                                                   074640
 "YYY"    SB5    C6P.._Q                                                074650
          SA1    T.I1                                                   074660
          EQ     CON6._P_.                                              074670
          SPACE  1                                                      074680
 .B       ENDD                                                          074690
          SPACE  1                                                      074700
 .A       ENDD                                                          074710
*                                                                       074720
          SPACE  2                                                      074730
*                                                                       074740
 .A       ECHO   ,P=(N,S,Z),R=(6,6,6)                                   074750
 CON6P._P_0  SA5   T.M1        P-DEFAULT                                074760
          BX7    X5                                                     074770
          SA7    T.M2                                                   074780
          SPACE  1                                                      074790
 .B       ECHO   ,Q=(X,B),X=(C,B) 
 XXX      SYMBOL                                                        074810
 YYY      SYMBOL                                                        074820
 CON6P._P_Q  SB5   "XXX"       P-Q                                      074830
          EQ     GS_R                                                   074840
 "XXX"    SB5    "YYY"                                                  074850
          EQ     GD_X 
 "YYY"    SB5    C6P.._Q                                                074870
          SA1    T.I1                                                   074880
          EQ     CON6._P_.                                              074890
          SPACE  1                                                      074900
 .B       ENDD                                                          074910
          SPACE  1                                                      074920
 .A       ENDD                                                          074930
*                                                                       074940
          SPACE  2                                                      074950
*                                                                       074960
 .A       ECHO   ,Q=(X,B)                                               074970
 C6P.._Q   SA2    T.SAVEB6                                              074980
          SA1    T.I2                                                   074990
          SB5    X2                                                     075000
          EQ     CONP.._Q                                               075010
          SPACE  1                                                      075020
 .A       ENDD                                                          075030
*                                                                       075040
 CONP..   TITLE  CONP.. - CONVERSION ROUTINES FOR PRINT DESTINATION     062170
*                                                                       062180
**    CONP.. - A SERIES OF ROUTINES TO PERFORM NUMERIC CONVERSIONS
*        TO PRINT IMAGE DATA TYPES                                      062200
*                                                                       062210
*         INPUT  -  B1 = 1                                              062220
*                   X1 = DESTINATION POINTER                            062230
*                   B5 = RETURN ADDRESS                                 062240
*                                                                       062250
*         OUTPUT -  NONE IN REGISTERS                                   062260
*                                                                       062270
*         PRESERVED  --, --, --, --, --, --, --, --                     062280
*                    A0, --, --, --, --, --, --, --                     062290
*                        B1, --, --, --, --, --, --                     062300
*                                                                       062310
*         TEMPORARY CELLS USED..                                        062320
*                                                                       062330
*                T.NUM,+1,+2    SOURCE, A TRIPLE PRECISION NUMBER       062340
*                T.TEMP1     TEMPORARY                                  062350
*                T.TEMP2     TEMPORARY                                  062360
*                                                                       062370
*         NOTES..   THE ROUTINES THAT FOLLOW ARE NAMED -CONP..Q-        062380
*                 WHERE -Q- IS A VALID DESTINATION TYPE FOR PRINT       062390
*                 FIELDS (B,X).                                         062400
*                                                                       062410
          SPACE  4                                                      062430
*                                                                       062440
* BIT FIELDS                                                            062450
*                                                                       062460
 CONP..B  SB4    B0          FLAG ONE-S COMPLEMENT                      062470
          EQ     CONA..B                                                062480
*                                                                       062490
          SPACE  2                                                      062500
*                                                                       062510
* X FIELDS                                                              062520
*                                                                       062530
 CONP..X  SX6    SIZE.C      CONVERT TO 12-BIT ASCII                    062540
          EQ     CONA..A                                                062550
          END 
