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