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