ASMB,R,Q,C
*     NAME:   IFTTY 
*     SOURCE: 92070-18200 
*     RELOC:  92070-1X200 
*     PGMR:   HLC 
* 
* 
*  **************************************************************** 
*  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979.  ALL RIGHTS      * 
*  * RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED,       * 
*  * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT * 
*  * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.        * 
*  **************************************************************** 
* 
* 
      NAM IFTTY,7  92070-1X200  REV.1941  790613
      ENT IFTTY,.TTY
* 
      EXT EXEC
* 
A     EQU 0 
B     EQU 1 
* 
* 
.TTY  EQU * 
IFTTY NOP 
      DLD IFTTY,I 
      LDB B,I 
      STB LU        LU NUMBER 
      STA IFTTY     RETURN ADDRESS
* 
      JSB EXEC      STATUS REQUEST
      DEF *+5 
      DEF D13NA     NO ABORT
      DEF LU
      DEF TYPE
      DEF CODE
      JMP NO        NOT A VALID LU
      CLB 
      LDA CODE
      AND =B77
      SZA,RSS 
      JMP IFTTY,I   SELECT CODE = 0, BIT BUCKET 
      LDA TYPE
      AND =B37400 
      STA B         DEVICE TYPE IN B (HIGH BYTE)
      AND =B34000 
      SZA,RSS 
      CCA,RSS       FIRST DIGIT=0, INTERACTIVE
NO    CLA 
      JMP IFTTY,I   EXIT
* 
TYPE  NOP 
CODE  NOP 
LU    NOP 
D13NA OCT 100015
* 
      END 
                                                                                                                                                                        