Type ASSEMBLE
Source Lines : 1,026
Fixes Applied : 10
Most Recent Version : Monday, January 22, 1979
Last Fix ID : [HRC075DK]

Function

      PAGABLE ERROR RECORDING MODULE. CALLED AT INITIALIZATION
      TIME TO LOCATE THE ERROR RECORDING DEVICE,LOCATE THE
      LAST RECORDINGS MADE ON THE CYLINDERS,
      AND SET THE IN-CORE POINTERS TO THE PROPER VALUES.
      INITIALIZATION FOR 'RMS' FUNCTIONS IS PERFORMED
      AFTER FIRST MAKING A TEST TO DETERMINE IF WE ARE
      CP RUNNING UNDER CP. RMS FUNCTIONS WILL NOT BE
      ACTIVATED FOR A VIRTUAL CP ENVIRONMENT.
      THE MODULE IS ALSO USED TO ERASE THE RECORDING AREAS.

Attributes

      PAGABLE,SERIAL-REUSABLE,CALLED VIA SVC.

Operation

      1. DETERMINE IF WE ARE RUNNING AS A VIRTUAL CP, IF WE
         ARE PUT 'WAIT' BIT ON IN THE MCH NEW PSW AND SKIP
         TO STEP 4.
      2. CALL DMKFREE TO RESERVE CORE STORAGE FOR LOGOUT,
         MCHAREA, AND CPEXBLOK FOR EACH PROCESSOR.
      3. INITIALIZE THE MCH LOGOUT POINTERS AND CONTROL
         REGISTERS 14 AND 15.
      4. FIND STARTING CYL FOR ERROR RECORDING SPECIFIED
         AT SYSGEN IN DMKSYSER.
      5. DETERMINE THE IPL DEVICE (SYSIPLDV).
      6. CALL DMKSCNRU TO GET RDEVBLOK ADDRESS FOR IPL DEVICE
      7. SET THE VALUES FOR 'MAXPAGES' AND 'NINETY PRCNT FULL'
         AS DETERMINED FROM  RDEVTYPE.
      8. CALL DMKPGTVG TO GET A VIRTUAL PAGE.
      9. CALL DMKRPAGT TO READ A PAGE INTO CORE.
      10.IF THE FORMAT OF THE PAGE IS NOT VALID, GO TO
         STEP 14.
      11. IF THE PAGE IS NOT FULL, GO TO THE NEXT STEP. IF
          IT IS FULL, BUMP THE PAGE NUMBER IN THE CCPD TO
          THE NEXT PAGE. IF END OF THE RECORDING CYLS
          IS REACHED, GO TO STEP 19. IF NOT, READ IN
          THE PAGE & REPEAT THIS STEP UNTIL A USABLE
          PAGE IS FOUND OR END OF REC. AREA IS REACHED
      12. SET THE PAGE IN USE FLAG AND WRITE THE PAGE BACK
          OUT TO THE DASD.
         SET UP THE IN-STORAGE POINTERS AND EXIT.
      14. SET UP THE FLAGS IN THE FIRST PAGE TO INDICATE A
          FORMAT IS IN PROCESS AND WRITE THE FIRST PAGE
          BACK TO THE DASD.
      15. READ IN THE REST OF THE PAGES FROM REC. CYLS
          INITIALIZE, AND WRITE BACK OUT.
      16. READ THE FIRST PAGE BACK IN AND INITIALIZE WITH THE
          NORMAL FORMAT, AND WRITE BACK OUT TO THE DASD.
      17. IF THIS IS A 'CLEARF' OPERATION, OR IF THIS
          IS INITIAL FORMATTING WHEN INITIALIZING A
          3033/3032/3031 PROCESSOR, CALL DMKIOGFR TO
          FORMAT FRAME RECORDS.
      18. IF THIS IS A CLEAR OPERATION, GO TO STEP 3
          IN THE DESCRIPTION FOR DMKIOGF2. IF NOT,
          SET UP THE IN STORAGE POINTERS AND EXIT.
          AND EXIT.
      19. SET UP RECORDING AREA FULL MSG;CALL DMKQCNWT
          TO SEND THE MSG. SET THE AREA FULL FLAG
          IN DMKIOE. EXIT.

Calls to Other Routines

      DMKPGTVG - TO GET VIRTUAL PAGES.
      DMKPGTVR - TO RELEASE VIRTUAL PAGES.
      DMKSCNRU - TO GET IPL DEV. RDEVBLOK ADDRESS.
      DMKQCNWT - TO WRITE MSGS. TO THE OPERATOR.
      DMKRPAGT - TO READ A PAGE INTO CORE.
      DMKRPAPT - TO WRITE A PAGE TO RECORDING CYLINDER.
      DMKERMSG - TO WRITE OUT ERROR MESSAGES
      DMKPTRLK - TO LOCK A PAGE.
      DMKPTRUL - TO UNLOCK A PAGE.
      DMKIOHFR - TO INITIALIZE FRAME RECORDS ON A 303X.