ASMB
    HED .      NUMBER OF COMPLETED I/O IN A CLASS I/O QUEUE 
      NAM NRCLS,7 . 92903-16001 REV.1913  781101
  SPC 3 
**********************************************************************
*                                                                    *
*     NAME:   NRCLS     NUMBER OF RQ IN THE COMPL. QUEUE OF A CLASS  *
*     SOURCE: XNRCLS    92903-18054                                  *
*     BINARY: ZNRCLS    ----NONE---    PART OF  %GPLB4  92903-16001  *
*                                                                    *
*     PGMR:   FRANCOIS GAULLIER                                      *
*                                                                    *
**********************************************************************
      SPC 2 
*     **************************************************************
*     * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1978.  ALL RIGHTS    *
*     * RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, RE- *
*     * PRODUCED, OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITH-  *
*     * OUT THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.  *
*     **************************************************************
  SPC 3 
      ENT NRCLS 
      EXT .ENTR,.DRCT,$CLAS 
  SPC 1 
A     EQU 0 
B     EQU 1 
      SUP 
   SKP
.CLAS NOP 
NRCLS NOP 
      JSB .ENTR 
      DEF .CLAS 
  SPC 1 
      JSB .DRCT     GET DIRECT ADDR 
      DEF $CLAS     OF THE CLASS TABLE
      STA DCLAS 
* 
      CCB           NUMBER OF COMPLETED RQ
      LDA .CLAS,I   GET CLASS I/O WORD
      AND B377      ISOLATE CLASS # 
      ADA DCLAS     INDEX INTO CLASS TABLE
* 
NRCL2 XLA A,I       GET CLASS HEADER/NEXT ELEMENT 
      INB           INCREMENT # OF PENDING RQ 
      SZA,RSS       CLASS NOT ALLOCATED ? 
      JMP NRCL8     YES, RETURN 0 RQ PENDING
      SSA,RSS       END OF LIST ? 
      JMP NRCL2     NO, CONTINUE
  SPC 1 
NRCL8 STB A         EXIT WITH A=NUMBER OF PENDIND RQ
      JMP NRCLS,I 
  SPC 2 
DCLAS NOP 
B377  OCT 377 
      END 
                                                                                                                                                                                                                                                    