]>
Commit | Line | Data |
---|---|---|
fe4da5cc | 1 | * |
2 | * $Id$ | |
3 | * | |
4 | * $Log$ | |
5 | * Revision 1.2 1996/04/18 16:11:27 mclareni | |
6 | * Incorporate changes from J.Zoll for version 3.77 | |
7 | * | |
8 | * Revision 1.1.1.1 1996/03/06 10:47:17 mclareni | |
9 | * Zebra | |
10 | * | |
11 | * | |
12 | #include "zebra/pilot.h" | |
13 | SUBROUTINE MZEND | |
14 | ||
15 | C- Memory manager termination, user called | |
16 | ||
17 | #include "zebra/zbcd.inc" | |
18 | #include "zebra/zmach.inc" | |
19 | #include "zebra/zstate.inc" | |
20 | #include "zebra/zunit.inc" | |
21 | #include "zebra/mqsys.inc" | |
22 | C-------------- End CDE -------------- | |
23 | ||
24 | #include "zebra/q_shiftl.inc" | |
25 | ||
26 | NSTORS = NQSTOR + 1 | |
27 | IF (NQSTOR.LT.0) RETURN | |
28 | IF (NQSTOR.GE.16) RETURN | |
29 | ||
30 | WRITE (IQLOG,9001) NSTORS | |
31 | 9001 FORMAT (1X/' MZEND. Usage statistics for',I3,' dynamic stores.') | |
32 | ||
33 | JSTO = 0 | |
34 | 21 JDIV = ISHFTL (JSTO,26) | |
35 | ||
36 | CALL MZSDIV (JDIV,-7) | |
37 | CALL MZMAPS | |
38 | ||
39 | JSTO = JSTO + 1 | |
40 | IF (JSTO.LE.NQSTOR) GO TO 21 | |
41 | RETURN | |
42 | END | |
43 | * ================================================== | |
44 | #include "zebra/qcardl.inc" |