ASMB,R,L,C
*     NAME:   DSTAT 
*     SOURCE: 92064-18075 
*     RELOC:  92064-16066 
*     PGMR:   G.L.M.
* 
*  ***************************************************************
*  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1977.  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 DSTAT,7  92064-16066  REV.1650  760421
* 
*      DSTAT RETURNS DEVIICE STATUS IN A&B
* 
*        BUFFERED REQUESTS ARE ALLOWED TO CLEAR OUT 
*        BY REQUESTING A DYNAMIC STATUS REQUEST FIRST.
*         
*      CALLING SEQUENCE:
*        LDA LU 
*        JSB DSTAT
* 
*      ON RETURN: 
*        A=EQT5 
*        B=EQT4 
* 
* 
      EXT EXEC
      ENT DSTAT 
* 
* 
DSTAT NOP 
      AND B77 
      STA LU
      IOR DYST
      STA CNWD
* 
      JSB EXEC
      DEF RT1 
      DEF .3
      DEF CNWD
* 
* 
RT1  JSB EXEC 
      DEF RT2 
      DEF .13 
      DEF LU
      DEF EQ5 
      DEF EQ4 
* 
* 
RT2   DLD EQ5 
      JMP DSTAT,I 
* 
* 
EQ5   NOP 
EQ4   NOP 
LU    NOP 
B77   OCT 77
.13   DEC 13
CNWD  NOP 
.3    DEC 3 
DYST  OCT 600 
      END 
                                                                                                                                                                                                  