Type ASSEMBLE
Source Lines : 1,944
Fixes Applied : 11
Most Recent Version : Thursday, December 7, 1978
Last Fix ID : [HRC105DK]

Module

       DMKIOF

Attributes

       SERIALLY REUSEABLE, PAGABLE, ENTERED VIA SVC

Operation

       I. HANDLE RECORDING FOR OBR/MDR RECORDS

             1. IF THE RECORDING CYLINDER IS FULL, RELEASE THE
                OBR/MDR RECORD AND SEND THE FULL CYLINDER ERROR
                MESSAGE (DMKIOF553E/DMKIOF551E) TO THE OPERATOR IF
                ONE HAS NOT BEEN SENT BEFORE. AFTERWARD, GO CHECK
                RECORDING QUES FOR OTHER REQUESTS.

             2. IF THERE IS ALREADY A RECORDING PAGE IN STORAGE,
                BYPASS GETTING A VIRTUAL BUFFER PAGE AND RECORDING
                PAGE. IF RECORDING PAGE IS NOT IN STORAGE, CALL
                DMKPGTVG TO OBTAIN A VIRTUAL BUFFER PAGE, CALL
                DMKRPAGT TO READ A PAGE FROM THE RECORDING CYLINDER
                INTO STORAGE AND CALL DMKPTRAN TO LOCK RECORDING PAGE
                IN STORAGE.

             3. DETERMINE IF ENOUGH SPACE IS AVAILABLE ON THE
                RECORDING PAGE FOR THE RECORD. IF NOT, GET ANOTHER
                PAGE FROM RECORDING CYLINDER AND TRY AGAIN.

             4. FOR AN OBR RECORD, THE DEVICE TYPE WILL BE ALTERED
                TO AN OS DEVICE TYPE IN ORDER TO ALLOW DECODING BY
                CPEREP (A CALL TO DMKIOC) .

             5. BUILD OBR/MDR RECORD USING THE ERRBLOK THEN
                MOVE THE OBR/MDR RECORD INTO AVAILABLE AREA
                IN THE RECORDING PAGE AND RELEASE THE ERRBLOK..

             6. IF RUNNING IN A VIRTUAL MACHINE, ISSUE AN SVC 76
                TO HAVE THE OBR/MDR RECORD ON THE REAL MACHINE
                RECORDING CYLINDER. IF THIS IS NOT A VIRTUAL
                MACHINE, UPDATE THE CONTROL HEADER IN THE RECORDING
                PAGE, TO POINT TO NEXT AVAILABLE AREA ON PAGE.

             7. MOVE PAGE NUMBER INTO THE OBR/MDR PAGE FIELD AND
                RELEASE THE OBR/MDR RECORD.

             8. ERASE QUE - IF AN ERASE REQUEST IS ON THE QUE,
                WRITE OUT LAST RECORDING PAGE TO RECORDING CYLINDER
                (IF NECESSARY), PUT NEXT REQUEST ON TOP OF QUE AND
                CALL DMKSTKCP TO STACK A CPEXBLOK TO RETURN TO
                DMKIOEFM. AFTERWARD, EXIT FROM RECORDER. IF ERASE QUE
                IS EMPTY, GO CHECK NEXT RECORDING QUE.

             9. MACHINE CHECK RECORDING QUE - IF THERE IS A MACHINE
                CHECK REQUEST ON THE QUE, WRITE OUT LAST RECORDING
                PAGE (IF NECESSARY), PUT NEXT REQUEST ON TOP OF QUE
                AND CALL DMKSTKCP TO STACK A CPEXBLOK TO RETURN
                TO DMKIOEMC. AFTERWARD, EXIT FROM RECORDER.
                IF MACHINE CHECK QUE IS EMPTY, GO CHECK NEXT
                RECORDING QUE.

            10. CHANNEL CHECK RECORDING QUE - IF THERE IS A CHANNEL
                CHECK REQUEST ON THE QUE, WRITE OUT LAST RECORDING
                PAGE TO RECORDING CYLINDER (IF NECESSARY), PUT
                NEXT REQUEST ON TOP OF QUE, GET POINTERS FOR THE
                NEXT RECORD, RELEASE THE CPEXBLOK AND GO TO CHANNEL
                CHECK'S SECTION OF RECORDER. IF CHANNEL CHECK QUE
                IS EMPTY, GO CHECK NEXT RECORDING QUE.

            11. OBR/MDR RECORDING QUE - IF THERE IS A OBR/MDR
                REQUEST ON THE QUE, PUT THE NEXT REQUEST ON TOP OF
                QUE, GET POINTERS TO NEXT ERRBLOK, RELEASE
                THE CPEXBLOK AND GO TO OBR/MDR SECTION OF
                RECORDER. IF OBR/MDR QUE IS EMPTY, GO CHECK NEXT
                RECORDING QUE.

            12. ENVIRONMENTAL RECORDING QUE - IF THERE AN MDR REQUEST
                ON THE QUE, PUT THE NEXT REQUEST ON TOP OF QUE
                AND CALL DMKSTKCP TO STACK CPEXBLOK TO RETURN TO
                DMKIOESD. AFTERWARD, EXIT FROM THE RECORDER.

            13. SVC 76 RECORDING QUE - IF THERE IS AN SVC 76
                REQUEST ON THE QUE, PUT THE NEXT REQUEST ON TOP OF
                QUE, GET POINTERS TO THE NEXT RECORD, RELEASE
                THE CPEXBLOK AND GO TO SVC 76 SECTION OF
                RECORDER. IF THE SVC 76 QUE IS EMPTY, GO WRITE
                RECORDING PAGE BACK TO THE RECORDING CYLINDER BY
                CALLING DMKRPAPT (IF NECESSARY). AFTERWARD,
                UNLOCK AND RELEASE RECORDING PAGE
                AND VIRTUAL BUFFER PAGE.

            14. STATISTICAL UPDATE QUE - IF THERE IS A UPDATE
                REQUEST ON THE QUE, PUT THE NEXT REQUEST ON THE TOP
                OF THE QUE, GET POINTERS TO NEXT ERRBLOK, RELEASE THE
                THE CPEXBLOK AND GO TO THE STATISTICAL UPDATE SECTION
                IF SDR QUEUE IS EMPTY GO CHECK 90% FULL CONDITION.

            15. DETERMINE IF THE RECORDING CYLINDER IS 90% FULL.
                IF 90 % FULL, WRITE AN ERROR MESSAGE TO THE
                OPERATOR (DMKIOF552E/DMKIOF550E).

            16. CLEAR THE MCH/CCH ENTRY FLAG AND THE RECORDING IN
                PROGRESS FLAG AND RETURN TO CALLER.

Calls to Other Routines

      DMKFREE - TO ALLOCATE FREE STORAGE FOR SDRBLOK