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