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