Type ASSEMBLE
Source Lines : 1,051
Fixes Applied : 3
Most Recent Version : Tuesday, December 12, 1978
Last Fix ID : [HRC014DS]

Module

       DMSINI

Function

       TO READ OR WRITE A CMS NUCLEUS

Attributes

       DISK RESIDENT

Operation

       DMSINIR - 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 MODULE DMSINS TO CONTINUE WITH THE INITIALIZATION.

       DMSINIW - 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.

       2A. ASK USER TO ENTER Y-DISK ADDRESS.

       3.  ASK THE USER IF HE WANTS TO WRITE THE NUCLEUS ONTO A DASD
           DEVICE.  IF HE DOES NOT, GO TO MODULE DMSINS.

       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.  ASK THE USER TO ENTER THE VERSION IDENTIFICATION AND
           INSTALLATION HEADING.  IF HE TYPES A NULL LINE, USE THE
           DEFAULT VALUES.

       9.  WRITE THE IPL TEXT ON THE NUCLEUS CYLINDER AND ON
           CYLINDER 0 IF REQUESTED.

       10. STORE THE DATA ADDRESS IN THE WRITE CCWS AND THE CYLINDER
           NUMBER IN THE SEEK AND SEARCH ADDRESSES.

       11. WRITE ONE TRACK OF THE NUCLEUS ONTO THE IPL DEVICE.

       12. IF THE NUCLEUS IS NOT COMPLETELY WRITTEN, GO TO STEP 10.

       13. GO TO MODULE DIMINS TO CONTINUE WITH THE INITIALIZATION.

Calls to Other Routines

       NONE