Diagnostics for MZSDIV

CALL MZSDIV (IXDIV,IFLAG)

This routine is called from everywhere within the system to switch the current store and/or division according to the parameter IXDIV.

The parameter IFLAG requests :

      IFLAG = -1  :  set only the store
               0  :  set store and also division,
                     provided a specific division is specified
              +1  :  set store and specific division

#ZFATAL>ZFATAL termination

  case 1 :  the    store byte of parameter IXDIV is invalid
  case 2 :  the division byte of parameter IXDIV is invalid
  case 3 :  a specific division is required,
            but IXDIV is a generic or compound division index

The following numbers are given in /QUEST/

for cases 1 to 3 :

 IQUEST(11) = IXDIV
 IQUEST(12) = IFLAG
 IQUEST(13) = the store byte of IXDIV

for cases 2 to 3 :

 IQUEST(14) = the division byte of IXDIV