ASMB,L,R,C
      HED MSTAT: 91740-16043 REV 1740 (C) HEWLETT-PACKARD CO. 1977
      NAM MSTAT,7 91740-16043 REV 1740 770425 
      SPC 2 
******************************************************************
*  * (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 THE HEWLETT-PACKARD COMPANY.   *
******************************************************************
      SPC 4 
****************************************************************
* 
*     MSTAT 
* 
*     SOURCE PART # 91740-18043 
* 
*     REL PART #    91740-16043 
* 
*     WRITTEN BY    CHUCK WHELAN
* 
*     DATE WRITTEN  FEB 1977
* 
*     MODIFIED BY 
* 
*     DATE MODIFIED 
* 
*************************************************************** 
      SPC 3 
      ENT FSTAT 
* 
      EXT .ENTR,$CDIR 
* 
PRAM  NOP 
FSTAT NOP 
      JSB .ENTR 
      DEF PRAM
      LDA $ADR      GET ADDRESS OF RTE-M FILE DIRECTORY 
      RSS 
      LDA 0,I 
      RAL,CLE,SLA,ERA  RESOLVE INDIRECT 
      JMP *-2 
      ADA N1
      STA ENTAD     SAVE ADDR OF ADDR OF DIR. END 
      INA 
      LDB PRAM      GET ADDRESS OF CALLERS BUFFER 
MVNXT MVW K4        MOVE 4 WORD DIRECTORY ENTRY TO USERS BUFR 
      CPA ENTAD,I   END OF CARTRIDGE DIRECTORY? 
      CLA,RSS       YES 
      JMP MVNXT     NO, MOVE ANOTHER ENTRY
      STA 1,I       SET NEXT BUF WORD = 0 FOR END 
      JMP FSTAT,I   RETURN
* 
ENTAD NOP 
K4    DEC 4 
N1    DEC -1
$ADR  DEF $CDIR 
* 
* 
SIZE  EQU * 
* 
      END 
                                                                                                                    