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