Type ASSEMBLE
Source Lines : 1,049
Fixes Applied : 8
Most Recent Version : Saturday, December 9, 1978
Last Fix ID : [HRC075DK]
Module
DMKWRM
Function
DMKWRM CALLED BY DMKCPINT TO RETRIEVE THE SYSTEM
LOG MESSAGES, ACCOUNTING CARDS, SPOOL FILE BLOCKS
AND SPOOLING ALLOCATION RECORDS FROM THE WARMSTART
CYLINDER ON THE I.P.L. PACK.
Attributes
NON-REENTRANT, NON-RESIDENT, AND CALLED BY DMKCPINT
Operation
1. IF COLD START REQUESTED; GO TO STEP 12.
LOCATE THE WARMSTART AREA, STARTING AND ENDING CYLINDER
ADDRESSES LOCATED AT DMKSYSWM. THE WARM START AREA MAY
RANGE FROM 1 TO 9 CYLINDERS IN SIZE. READ THE FIRST DISK
AND IF THE FIRST 8 BYTES ARE NOT X'FF'S; GIVE
MESSAGE DMKWRM920I AND EXIT GIVING RETURN CODE
EQUAL TO 4. (NO WARM START DATA; COLD START ASSUMED)
2. READ ACCOUNTING INFORMATION FROM WARMSTART CYLINDER
3. CHAIN ACCOUNTING CARDS TO DMKRSPAC
4. READ SYSTEM LOG MESSAGES FROM WARMSTART CYLINDER
5. CHAIN LOG MESSAGES TO DMKSYSLG
6. READ SPOOL FILE CONTROL BLOCKS FROM WARMSTART CYLINDER
7. CHAIN SPOOL FILE CONTROL BLOCKS TO DMKRSPRD,DMKRSPPR
DMKRSPPU AND DMKRSPDL. MOVE THE SPOOLID COUNTER CONTAINED
IN THE DELIMITER RECORD FOR SPOOL FILES TO DMKRSPID
SAVE THE STATE OF ALL UNIT RECORD DEVICES AND FOR
A 3800 PRINTER, RESTORE THE IMAGE LIBRARY AND
CONTROL FILES FOR THE SEPARATOR PAGE AND UPDATE THE
ACTIVITY COUNT FOR THE NAMED IMAGE LIBRARY IF THE
3800 IS NOT DRAINED.
8. READ RECORD ALLOCATION BLOCKS FROM WARMSTART CYLINDER
9. CHAIN RECORD ALLOCATION BLOCK TO THE READ DEVICE BLOKS
AND UPDATE CYLINDER ALLOCATION RECORD SET UP BY DMKCPI.
IF SPOOL VOLUME NOT MOUNTED; GIVE MESSAGE
DMKWRM909W AND GO TO STEP 14.
IF TRYING TO ALLOCATE ON A NON-TEMPORARY CYLINDER;
GIVE MESSAGE DMKWRM903W AND GO TO STEP 14.
10. READ SYSTEM HOLD QUEUE BLOKS FROM WARMSTART CYLINDER
11. CHAIN SYSTEM HOLD QUEUE BLOCKS TO DMKRSPHQ.
12. IF NO ERRORS; SET THE FIRST 8 BYTES TO BINARY ZEROES,
AND MOVE IN 8 BYTE START TIME VALUE (STARTIME PSA) TO
X'18' OF FIRST WARMSTART CYLINDER RECORD,
AND EXIT TO DMKCPI. IF I/O ERRORS; GIVE ERROR MESSAGE
DMKWRM902W AND GO TO STEP 14.
13. IF HASH AND RECORD COUNT IN WARMSTART RECORDS ARE
INCORRECT; GIVE MESSAGE DMKWRM904W
14. ENTER DISABLE WAIT STATE. (WAIT STATE CODE 009)