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

Module

       DMKSAV

Function

       TO SAVE AND RESTORE A PAGE IMAGE COPY OF THE CP NUCLEUS ON
       THE SYSTEM RESIDENCE DISK.

Attributes

       NON-REENTRANT, NON-RESIDENT, STAND ALONE PROGRAM,
       DMKSAVNC ENTERED VIA LDT CARD FROM DMKLDR,
       DMKSAVRS ENTERED VIA BALR FROM DMKCKP

Operation

       DMKSAVNC -

       1. TEST SYSRES TYPE. IF NOT 2314,2319,3330,3340,3350 OR 2305,
          ISSUE THE DMKSAV353W MESSAGE AND LOAD A WAIT PSW WITH A
          WAIT STATE CODE OF X'011'. ELSE, SET UP DEVICE
          CHARACTERISTICS ACCORDING TO THE DEVICE TYPE.
       2. ISSUE A SENSE COMMAND TO THE DEVICE. IF THE DEVICE IS NOT
          READY, WRITE OUT THE DMKSAV351W ERROR MESSAGE AND LOAD A
          WAIT PSW WITH A WAIT STATE CODE OF X'010'.
       3. READ THE VOLUME LABEL. IF NOT THE CORRECT LABEL, WRITE
          OUT THE DMKSAV350W ERROR MESSAGE AND LOAD A WAIT STATE PSW
          WITH A WAIT STATE CODE OF X'010'.
       4A. THE PSW LOADED BY STEPS 3 AND 4 IS ENABLED FOR EXTERNAL
          INTERRUPTS. ONCE THE PROBLEM INDICATED BY THE MESSAGE IS
          REMEDIED, THE USER SHOULD HIT THE INTERRUPT BUTTON, AT
          WHICH TIME THE OPERATION RESUMES AT STEP 1.
       4. IF THE TIME OF DAY CLOCK IS NOT SET GO TO STEP 5.
          COMPUTE THE TIME AND DATE FROM THE TIME OF DAY CLOCK
          INTO THE SYSTEM ID MESSAGE IN DMKCPICD.
       5. WRITE THE NUCLEUS OUT TO THE DISK, SAVE THE DASD ADDRESS
          FOR DMKSAV FOR CHECKPOINT, AND WRITE OUT THE IPL CCW
          SEQUENCE. THEN WRITE MESSAGE 'NUCLEUS LOAD ON 'LABEL''
          AND LOAD WAIT STATE CODE OF X'012'.

       DMKSAVRS -

       1. SET UP TO READ THE NUCLEUS INTO STORAGE FROM THE NUCLEUS
          CYLINDER.
       2. SET UP CAW AND IO NEW PSW FOR THE READ AND ISSUE THE SIO.
       3. WHEN GET AN INTERRUPT,CHECK IF IT FOR THE SIO IN STEP 2.
          IF NOT GO BACK INTO A WAIT STATE. IF HAD AN ERROR ON THE
          READ, GO BACK TO STEP 2 AND TRY AGAIN.
       4. IF AT THE END OF A CYLINDER, BUMP TO THE NEXT CYLINDER.
       5. IF MORE IS TO BE READ, SET UP THE CCW'S AND GO BACK TO
          STEP 2. IF FINISHED READING, GO TO DMKCPINT VIA A BRANCH.

Calls to Other Routines

       DMKOPRWT - EMERGENCY OPERATOR COMMUNICATION ROUTINE