*DECK TXTEST
          IDENT  T8.TXT 
 TXTEST   TITLE  SUBROUTINE TXTEST - DETERMINE TAPE CODE TYPE           017410
*                                                                       017420
**    TXTEST - DETERMINE TAPE CODE TYPE 
*                                                                       017440
*         INPUT  -  B1 = 1                                              017450
*                   A0 = POINTER TO WSA BLOCK                           017460
*                   B6 = RETURN ADDRESS                                 017470
*                                                                       017480
*         OUTPUT -  B4 = RETURN VALUE, 0=EBCDIC, 1=ASCII                017490
*                                                                       017500
*         PRESERVED  --, X1, X2, X3, --, X5, X6, X7,                    017510
*                    A0, A1, A2, A3, --, A5, A6, A7,                    017520
*                        B1, B2, B3, --, B5, B6, B7                     017530
*                                                                       017540
          SPACE  1
*CALL COM2
          SPACE  4                                                      017560
 TXTEST   SA4    A0+W.XSET   CHAR-SET FLAG WORD                         017570
          MX0    60-6                                                   017580
          IFNE   S.XSET,0,1 
          AX4    S.XSET                                                 017600
          BX4    -X0*X4                                                 017610
          SB4    X4-1RE 
          ZR     B4,TXTS.C   EBCDIC 
          SB4   B4+1RE-1RC
          ZR     B4,TXTS.C   EBCDIC 
          SB4    B4+1RC-1RA 
          NZ     B4,TXTS.E1 
          SB4   B1           ASCII
 TXTS.C   JP     B6          RETURN                                     017690
*                                                                       017700
          SPACE  2                                                      017710
**    ERROR ACTIONS 
*                                                                       017740
 TXTS.E1  SA2    TXTS.M1     UNRECOGNIZED CODE TYPE                     017750
          EQ     ERR.CON                                                017760
****
*                                                                       017780
 TXTS.M1  VFD    12/0,18/E.TST,12/0,18/*+1
          DATA    C/UNRECOGNIZED CODE SET SPECIFIED/                    017800
****
          END 
