Type ASSEMBLE
Source Lines : 796
Fixes Applied : 7
Most Recent Version : Thursday, December 7, 1978
Last Fix ID : [HRC024DK]

Module

       DMKVER

Function

       TO PROCESS ERROR RECORDS PASSED FROM VIRTUAL MACHINES
       VIA AN SVC 76.

Attributes

       PAGEABLE,REENTRANT,CALLED VIA SVC

Operation

       1. DMKVERO - ENTRY FOR OS,VS,OR VM TYPE SYSTEM RECORDING. SET
          A FLAG TO INDICATE AN OS TYPE. CHECK IF THE PASSED RECORD
          RESIDES WITHIN THE LIMITS OF THE VIRTUAL MACHINE. IF IT
          DOES, GO TO STEP 3, ELSE RETURN TO DMKPSA TO REFLECT THE
          SVC BACK TO THE VIRTUAL MACHINE.
       2. DMKVERD - ENTRY FROM A DOS TYPE SYSTEM. THE LENGTH OF
          THE RECORD IS NOT KNOWN IN THIS CASE. IF AT LEAST THE
          RECORD HEADER RESIDES WITHIN THE LIMITS OF THE VIRTUAL
          MACHINES STORAGE, A RECORDING WILL BE ATTEMPTED. A RECORD
          SIZE OF 136 BYTES WILL BE USED IF IT WILL FIT IN USER
          STORAGE, ELSE A SIZE OF WHATEVER IS LEFT WILL BE USED.
       3. CALL DMKFREE TO OBTAIN STORAGE FOR A RECORD BUFFER. MOVE
          THE RECORD FROM USER STORAGE TO THE BUFFER.
       4. IF THE RECORD IS AN OS TYPE, GO TO STEP 5. IF A DOS TYPE,
          CHECK IF THE RECORD TYPE IS 'OBR'. IF NOT, WE DON'T HAVE
          A VALID RECORDING. IN THIS CASE - CALL DMKFRET TO RETURN
          THE BUFFER AND EXIT TO DMKPSA TO REFECT THE SVC TO THE
          VIRTUAL MACHINE. IF VALID, GO TO STEP 6.
       5. USE THE RECORD TYPE TO INDEX INTO A BRANCH TABLE WHICH
          WILL GIVE CONTROL TO THE APPROPRIATE CONVERSION ROUTINE
          OR IF INVALID RETURN TO DMKPSA TO REFLECT THE SVC.
       6. TYPE30 (OBR) - GO TO STEP 11 TO DO THE COMMON CONVERTS.
          IF THE DEVICE IS NONDEDICATED DASD, REPLACE THE VOLUME
          SERIAL, SEEK ADDRESS, AND H. A. WITH THE REAL DATA. ALSO
          UPDATE SENSE DATA FROM VIRTUAL TO REAL AND THEN GO TO
          STEP 12. IF THE DEVICE IS DEDICATED, GO RIGHT TO STEP 12.
       7. TYPE40 (ABEND) - GO TO STEP 11 TO DO THE COMMON CONVERTS
          AND THEN GO TO STEP 13.
       8. TYPE60 (DDR) - GO TO STEP 11 TO DO THE COMMON CONVERTS.
          CONVERT THE FROM AND TO CUA'S FROM VIRTUAL TO REAL
          AND GO TO STEP 13.
       9. TYPE70 (MIH) - GO TO STEP 11 FOR COMMON CONVERTS. THEN IF
          DEVICE IS NONDEDICATED DASD, UPDATE THE VOLUME SERIAL
          WITH THE REAL VOLUME SERIAL AND GO TO STEP 13. IF DEVICE
          IS DEDICATED, GO RIGHT TO STEP 13.
       10. TYPE90 (MDR) - GO TO STEP 11 TO DO THE COMMON CONVERTS
           AND THEN GO TO STEP 13.
       11. THIS ROUTINE WIIL CONVERT THE FIELDS COMMON TO MORE THAN
           ONE RECORD TYPE FROM VIRTUAL TO REAL. FAILING CUA'S WILL
           BE CONVERTED FOR TYPE 30,70, AND 90. THE PROGRAM NAME
           WILL BE REPLACED WITH THE USERID FOR TYPE 30,40,60,70,
           AND 90. THE CPUID WILL BE REPLACED WITH THE REAL CPUID
           FOR ALL RECORDS.
       12. SET UP THE DMKVER575I MESSAGE AND CALL DMKQCNWT TO  SEND
           THE MESSAGE TO THE SYSTEMS OPERATOR.
       13. RESET THE VMEXWAIT FLAG IN VMRSTAT. THEN CALL DMKIOEVR
           TO DO THE ACTUAL RECORDING. CALL DMKFRET TO RETURN THE
           BUFFER TO FREE STORAGE. ISSUE AN SVC 16 TO RETURN THE
           SAVEAREA TO THE SYSTEM AND GOTO DMKDSPCH.

Calls to Other Routines

       DMKFREE - TO OBTAIN STORAGE FOR RECORD BUFFER.
       DMKFRET - TO RETURN STORAGE TO THE SYSTEM.
       DMKQCNWT - TO SEND MESSAGES TO THE OPERATOR.
       DMKIOEVR - TO WRITE RECORD TO RECORDING CYLINDER.
       DMKSCNVU - TO OBTAIN VIRTUAL CANNEL, CONTROL UNIT, AND
                  DEVICE BLOK ADDRESSES.
       DMKSCNRD - TO OBTAIN REAL DEVICE ADDRESS.
       DMKCVTBH - TO CONVERT BINARY ADDRESSES TO HEX.