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