This routine returns the parameters of the selected store in :
with IXSTOR index of the store On return /QUEST/IQUEST(100) contains the following information: IQUEST(1): opmode operation mode of the store, = zero normally IQUEST(2): NQSTRU number of structural permanent links IQUEST(3): NQREF number of permanent links IQUEST(4): NQLINK number of permanent + working space links IQUEST(5): LSTA1 first word after the working space IQUEST(6): LSTA21 first word after the store IQUEST(7): NQMINR minimum size of the reserve area after div. 1 IQUEST(8): LQ2END minimum value of LQEND(2) IQUEST(9): JQDVLL last low division IQUEST(10): JQDVSY system division, also: first high division IQUEST(11): NQLOGL current log level for this store IQUEST(12): NQSNAM chars 1:4 of the printing name of the store IQUEST(13): chars 5:8 IQUEST(14): lowORG lowest possible origin-adr for the store IQUEST(15): highORG highest possible origin-adr for the store IQUEST(16): initalc initial allocation to last division created IQUEST(17): toffset offset of the system tablesThe permanent links occupy LQ(1) to LQ(NQREF).
The working space links go from LQ(NQREF+1) to LQ(NQLINK), the working space data go from LQ(NQLINK+1) to LQ(LSTA1-1).Divsion 1 starts at
LSTA1
.
Bank space goes from LQ(LSTA1)
to LQ(LSTA21-1)
.
There must always be a gap of at least NQMINR
words between divisions 1 and 2.
LQ2END
is the lowest possible address for the end of division 2.
The existing short range divisions have numbers 1 to JQDVLL
.
The system division has the number JQDVSY
at the moment,
this will change if MZDIVis called to create a new long-range division.
If JQDVSY
is less than 20 the user's long range divisions have numbers
JQDVSY+1
to 20.
No 'origin link' may have a value less than lowORG
or larger than highORG
,
both numbers could be negative; they depend on where the link-areas are
physically in absolute memory, relative to the store.
For a secondary store the system tables are at the end of
the memory declared to MZSTOR, they start in LQ(toffset)
.
For the primary store toffset=0
is returned.
At log-level 2 the information returned is also printed by MZINQS
.