Type ASSEMBLE
Source Lines : 905
Fixes Applied : 0
Most Recent Version : Thursday, December 7, 1978
Last Fix ID : [Unmodified]
Module
DMTINI
Function
DMTINI RECEIVES CONTROL AFTER INITIAL LOADING OF RSCS,
AND PERFORMS INITIALIZATION FUNCTIONS WHICH ARE GENERAL
AND COMMON TO ALL PARTS OF THE SUBSYSTEM. DMTINI
OPTIONALLY WRITES A COPY OF THE INITIAL LOAD TO DASD
ACCORDING TO OPERATOR INSTRUCTIONS WHEN THE SUBSYSTEM
IS FIRST LOADED FROM THE GENERATION IPL DECK.
WHEN IPL'ED FROM DISK, DMTINI COMPLETES READING
OF THE SAVED SUBSYSTEM LOAD. WHEN IPL DISK WRITING
OR READING IS COMPLETE, DMTINI PERFORMS ITS RSCS
INITIALIZATION FUNCTIONS.
Attributes
RESUABLE
Operation
DMTINIR - READ A NUCLEUS INTO MAIN STORAGE
1. STORE THE DATA ADDRESS IN THE READ CCWS.
2. READ ONE TRACK OF THE NUCLEUS FROM THE IPL DEVICE.
3. IF THE NUCLEUS IS NOT COMPLETELY READ, GO TO STEP 1.
4. GO TO LABEL INIEXIT TO CONTINUE WITH THE INITIALIZATION.
DMTINIW - WRITE A NUCLEUS ONTO A DASD DEVICE
1. SEE IF A CONSOLE EXISTS AT ADDRESS 009. IF NOT, WAIT FOR
AN INTERRUPT FROM A CONSOLE DEVICE.
2. ASK THE USER TO ENTER THE SYSTEM DISK ADDRESS.
3. ASK THE USER IF HE WANTS TO WRITE THE NUCLEUS ONTO A DASD
DEVICE. IF HE DOES NOT, GO TO LABEL INIEXIT.
4. ASK THE USER FOR THE IPL DEVICE ADDRESS AND VERIFY THAT
IS A SUPPORTED DASD TYPE DEVICE.
5. INITIALIZE THE DEVICE TYPE DEPENDENT VALUES.
6. ASK THE USER FOR THE CYLINDER NUMBER ON WHICH TO WRITE
THE NUCLEUS AND VERIFY THAT THE NUCLEUS WILL NOT OVERLAY
ANY CMS FILES ON THE DISK.
7. ASK THE USER IF THE IPL TEXT IS ALSO TO BE WRITTEN ON
CYLINDER 0 AND SET THE SWITCH ACCORDINGLY.
8. WRITE THE IPL TEXT ON THE NUCLEUS CYLINDER AND ON
CYLINDER 0 IF REQUESTED.
9. STORE THE DATA ADDRESS IN THE WRITE CCWS AND THE CYLINDER
NUMBER IN THE SEEK AND SEARCH ADDRESSES.
10. WRITE ONE TRACK OF THE NUCLEUS ONTO THE IPL DEVICE.
11. IF THE NUCLEUS IS NOT COMPLETELY WRITTEN, GO TO STEP 10.
12. GO TO LABEL INIEXIT TO CONTINUE WITH THE INITIALIZATION.
INIEXIT - COMPLETE INITIALIZATION AND BEGIN PROCESSING
1. ACQUIRE THE DASD DEVICE TYPE FROM VM/370, AND SET
THE DASD CUU ADDR, TYPE CODE, AND DEVICE DEPENDENT
VARIABLE TABLE IN THE DMTCRE DASD ACCESS CONTROL AREA.
2. CLEAR THE FIRST 88 BYTES OF LOW VIRTUAL STORAGE,
CLEAR THE GENERAL REGISTERS, SET THE TIMER WORD TO
X'FFFFFFFF', AND SET THE RSCS NEW PSW VALUES.
3. INITIALIZE THE MAIN STORAGE MAP AND MAIN STORAGE
SIZE WORD.
4. INITIALIZE THE SUPERVISOR QUEUE AND SET ALL ELEMENTS
FREE TO START.
5. REQUEST A FREE SUPERVISOR QUEUE ELEMENT, BUILD AND
ENQUEUE THE REX TASK ELEMENT.
6. RESERVE REX TASK STORAGE IN THE MAIN STORAGE MAP.
7. EXIT TO THE RSCS DISPATCHER TO BEGIN PROCESSING.
Calls to Other Routines
DMTQRQ - TO REQUEST A FREE SUPERVISOR QUEUE ELEMENT
DMTDSP - TO BEGIN RSCS DISPATCHING