next up previous contents index
Next: MZGARB - garbage Up: Memory management Previous: MZDROP - drop

MZWIPE - reset complete divisions to empty

MZWIPE causes relocation normally.

By calling MZWIPE the user can delete the contents of whole divisions:

CALL MZWIPE (IXWIPE)

with the parameter IXWIPE indicating the divisions of a particular store to be wiped out. IXWIPE may be any of the three possible forms of a division index:

  a) specific division index, as returned by MZDIV

  b) generic division index, [ IXSTOR + ] n, where

        n = 21:  all user short range divisions
            22:  all user long  range divisions
            23:  all package divisions

  c) compound division index, as created by MZIXCO, see there for details.

IXWIPE = 0 is taken to mean IXWIPE = 21, ie. all short range divisions in the primary store; similarily IXSTOR+21 can be used.

Wiping divisions resets the divisions to be empty, but without reducing the space reserved for them, followed by a relocation pass to reset to zero all links pointing into the wiped divisions. Included into this pass are the links of all link areas, of the working space and of all divisions which are declared to point to the divisions in question (all of this for one particular store only, of course).

If several divisions are to be wiped out, this must be done by one call to MZWIPE, and not by several calls in succession, to save the time of multiple relocation passes, each of which would take longer than the single pass.

Examples:

for the primary store one has:

  1) Wipe the last 'event':      CALL MZWIPE (0)

  2) Wipe division 1:            CALL MZWIPE (1)

  3) Wipe all user's divisions:  IX = MZIXCO (21,22,0,0)
                                  CALL MZWIPE (IX)

  4) Wipe divisions IX1, IX2, IX3, IX4, and IX5:

                   IX = MZIXCO (IX1,IX2,IX3,IX4)
                   IX = MZIXCO (IX,IX5,0,0)
                   CALL MZWIPE (IX)

MZWIPE operates by calling MZGARB, which will print a monitor log message at level 2.


Janne Saarela
Mon May 15 08:34:47 METDST 1995