ASMB,R,Q,C
*     NAME:   MAGTP 
*     SOURCE: 92070-18234 
*     RELOC:  92070-1X234 
*     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 MAGTP,7  92070-1X234  REV.1941  790309
      ENT IEOF,IERR,IEOT,LOCAL,ISOT 
      EXT REIO
* 
A     EQU 0 
B     EQU 1 
* 
* 
IEOF  NOP 
      DLD IEOF,I
      STA IEOF      RETURN ADDRESS
      JSB STAT.     GO GET THE UNIT STATUS. 
      ALF,ALF       SHIFT THE "EOF" BIT TO 15.
      JMP IEOF,I    RETURN. 
* 
* 
IERR  NOP 
      DLD IERR,I
      STA IERR      RETURN ADDRESS
      JSB STAT.     GO GET THE UNIT STATUS. 
      RAR           SHIFT THE "ERROR" BIT TO 15.
      JMP IERR,I    NO, RETURN. 
* 
* 
IEOT  NOP 
      DLD IEOT,I
      STA IEOT
      JSB STAT.     GO GET THE UNIT STATUS. 
      RRL 10        SHIFT THE "EOT" BIT TO 15.
      JMP IEOT,I    RETURN. 
* 
* 
LOCAL NOP 
      DLD LOCAL,I 
      STA LOCAL 
      JSB STAT.     GO GET THE UNIT STATUS. 
      RAR,RAR       SHIFT THE "LOCAL" BIT TO 15.
      JMP LOCAL,I   RETURN. 
* 
* 
ISOT  NOP 
      DLD ISOT,I
      STA ISOT      RETURN ADDRESS
      JSB STAT.     GO GET THE UNIT STATUS. 
      RRL 11        SHIFT THE "SOT" BIT TO 15.
      JMP ISOT,I    RETURN. 
* 
* 
STAT. NOP 
      LDA B,I 
      AND =B77      SAVE THE UNIT NUMBER ONLY.
      IOR =B600     INCLUDE THE DYNAMIC STATUS CODE.
      STA REQST     SETUP THE REQUEST CODE. 
      JSB REIO
      DEF *+3 
      DEF RCODE 
      DEF REQST 
      JMP STAT.,I   RETURN. 
* 
* 
* 
RCODE DEC 3 
REQST NOP           REQUEST CODE
      END 
                                                  