Type ASSEMBLE
Source Lines : 1,363
Fixes Applied : 11
Most Recent Version : Saturday, December 9, 1978
Last Fix ID : [R12941DK]

Module

       DMKMNI

Function

       PAGEABLE MONITOR FUNCTIONS

Attributes

       REENTRANT, PAGABLE,

             CALLED VIA:
                       SVC FROM DMKMCC
                       SVC FROM DMKMON
                       SVC FROM DMKCPS

Operation

   
                      MONITOR TAPE HEADER PROCESSING

   DMKMNITH:

            INITIALIZE  THE  IOBLOK  WHICH  IS  HUNG  FROM  THE
            MONCOM.

            CALL  DMKIOSQR TO  ISSUE THE  REWIND /  SET-MODECCW
            SEQUENCE.

            EXIT BACK TO  DMKMCC TO ISSUE THE  COMMAND COMPLETE
            MESSAGE, THUS FREEING THE  CONSOLE WHILE A POSSIBLE
            REWIND OPERATION IS IN PROGRESS.

            ON I/O COMPLETION, STOP THE MONITOR IF THERE WAS AN
            I/O  ERROR  OR  A MONITOR  STOP  COMMAND  HAS  BEEN
            ISSUED.  OTHERWISE, REINITIALIZE THE IOB FOR NORMAL
            PROCESSING.

            SET  CONTROL REGISTER  8  TO  THE VALUE  STORED  IN
            DMKPRGC8,  THUS  ENABLING THE  DESIRED  CLASSES  OF
            MONITOR CALL INTERRUPTS.

            INDICATE A CLASS 0 CODE 97 MONITOR CALL IN PSA.

            OBTAIN BUFFER SPACE AND INITIALIZE THE BASIC HEADER
            RECORD.

            IF THE  DASTAP CLASS  IS ENABLED  THEN COLLECT  THE
            DASTAP HEADER  AS DESCRIBED BELOW; OTHERWISE  GO TO
            PERFORM.

            SCAN ALL  DEVICES DEFINED IN  DMKRIO AND  COUNT THE
            NUMBER OF DEVICES THAT ARE EITHER TAPE OR DASD.

            OBTAIN ENOUGH STORAGE TO CONTAIN  A POINTER TO EACH
            DASD AND  TAPE DEVICE BLOCK. OBTAIN  MONITOR BUFFER
            SPACE FOR THE DASTAP RECORD.

            MAKE ANOTHER SCAN OF THE DEVICES DEFINED IN DMKRIO.
            THIS TIME INITIALIZE THE DEVICE LIST AND CREATE THE
            DASTAP HEADER RECORD.

   PERFORM:

            IF  THE PERFORM  CLASS IS  NOT ENABLED  THEN GO  TO
            USER.  OTHERWISE INDICATE A CLASS  0 CODE 0 MONITOR
            CALL IN PSA AND COLLECT THE FIRST PERFORM DATA.

   USER:

            IF THE USER CLASS IS  ENABLED THEN INDICATE A CLASS
            4 CODE 0 MONITOR CALL IN  PSA AND COLLECT THE FIRST
            USER RECORD.

            EXIT.

Calls to Other Routines

       DMKCVTDT - TO GET THE CURRENT DATE AND TIME