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

Module

       DMKNLE

Function

       TO PERFORM THE DUMP FUNCTION ON THE 3705 INDICATED.

Attributes

       REENTRANT, PAGEABLE, CALLED VIA SVC

Operation

       1. DETERMINE WHETHER ENTRY WAS FROM SYSTEM OR VIA NETWORK
          CONSOLE COMMAND. IF ENTERED FROM SYSTEM, GO TO STEP 11.
          OTHERWISE SET NETWORK CALL FLAG AND CONTINUE.
       2. CALL DMKSCNFD TO GET 'RADDR' OPERAND FROM COMMAND LINE.
          IF NO OPERAND, CALL DMKERMSG TO SEND MESSAGE DMKNLE021E.
       3. CALL DMKCVTHB TO CONVERT 'RADDR' TO BINARY. IF ERROR ON
          CONVERSION, CALL DMKERMSG TO SEND MESSAGE DMKNLE021E.
       4. CALL DMKSCNRU TO GET REAL DEVICE (RDEVBLOK) FOR 'RADDR'
          DEVICE. IF DEVICE DOES NOT EXIST, CALL DMKERMSG TO SEND
          MESSAGE DMKNLE040E.
       5. DETERMINE WHETHER 'RADDR' DEVICE IS A 370X. IF NOT, CALL
          DMKERMSG TO SEND DMKNLE006E MESSAGE.
       6. CHECK IF 370X IS CURRENTLY OFFLINE. IF SO, CALL DMKERMSG
          TO SEND MESSAGE DMKNLE046E.
       7. DETERMINE IF 370X IS DEDICATED TO A USER. IF YES, CALL
          DMKERMSG TO SEND MESSAGE DMKNLE140.
       8. CALL DMKSCNFD TO GET DUMP OPTIONS (IF ANY).
       9. IF NO OPTIONS, DEFAULT TO 'IMMED' AND GO TO STEP 11.
       10. IF OPTION IS 'OFF' OR 'AUTO' , REFLECT STATUS IN
           APPROPRIATE BIT (RDEVAUTO) OF RDEVBLOK OF 370X AND EXIT.
           IF OPTION IS 'IMMED' GO TO STEP 28. IF ANY OTHER OPTION
           SPECIFIED, CALL DMKERMSG TO SEND MESSAGE DMKNLE003E.
       11. CALCULATE THE NUMBER OF SPOOL RECORDS ( IE. 1 RECORD
           PER 4K OF 370X STORAGE + 1) NEEDED FOR DUMP.
       12. CALL DMKPGTCG TO GET NECESSARY SPOOL SPACE. IF SPACE
           UNAVAILABLE, SEND MESSAGE;

          DMKNLE460E CTLR 'RADDR' DUMP FAILED: TEMP SPACE UNAVAILABLE

           AND EXIT TO CALLER.
       13. CALCULATE MAXIMUM NUMBER OF PAGES / CYL FOR THE
           ALLOCATED SPOOL DEVICE.
       14. GO TO IOBINIT SUBROUTINE TO GET AND INITIALIZE AN
           IOBLOK AND ADDITIONAL SAVE AREA FOR USE BY THE 370X
           I/O ROUTINE.
       15. IF DUMP FUNCTION WAS REQUESTED VIA CONSOLE COMMAND,
           ISSUE A TIO TO THE 370X TO DETERMINE ITS STATUS (THIS
           IS UN-NECESSARY IF THE CALLER WAS A SYSTEM ROUTINE).
       16. GO TO SNDBOOTS SUB-ROUTINE TO TRANSMIT THE OS/360 DUMP
           BOOTSTRAP PROGRAM TO THE 370X. ANY ERRORS THAT OCCUR
           DURING THE BOOTSTRAP ROUTINE WILL RESULT IN  MESSAGE:

                DMKNLE460E CTLR 'RADDR' DUMP FAILED; PROGRAM CHECK

       17. CALL DMKPGTVG TO GET A PAGE OF CP PAGEABLE CORE FOR USE
           AS A BUFFER.
       18. TRANS IN BUFFER PAGE TO GET REAL ADDRESS.
       19. BUILD CCWS TO READ IN RECORD CONTAING 370X LOCAL
           STORE CONTENTS AND END OF CORE ADDRESS AND GO TO 370X
           I/O ROUTINE.
       20. INSURE VALIDITY OF 370X END OF CORE ADDRESS AND CORRECT
           DATA IN GROUP 0 REGISTERS IF 370X IS 48K OR LESS.
           ( THIS CODE IS EXTRACTED FROM THE OS/360 NCP DUMP UTILITY)
       21. WRITE 370X REGISTER DATA AND END OF CORE ADDRESS TO SPOOL
           FILE.
       22. READ SUCCESSIVE 512 BYTE RECORDS FROM 370X, BLOCK INTO
           PAGE SIZE (4K) SPOOL RECORDS AND WRITE TO SPOOL FILE.
       23. WHEN END OF 370X CORE ADDRESS IS REACHED, CALL DMKFREE TO
           GET CORE FOR A SPOOL FILE CONTROL BLOCK.
       24. FILL IN SFBLOK, AND QUEUE ON RDR SPOOL CHAIN FOR SYSTEM
           DUMP ID.
       25. IF ANY SPOOL RECORDS REMAIN, CALL DMKPGTCR TO RELEASE THEM
       26. UNLOCK AND RELEASE BUFFER, FREE IOBLOK AND SAVE AREA,
           AND EXIT TO CALLER.

Calls to Other Routines

       DMKSCNFD - TO LOCATE NEXT ARGUMENT IN THE COMMAND LINE
       DMKCVTHB - CONVERT HEXADECIMAL ADDRESSES TO BINARY
       DMKSCNRU - TO LOCATE ADDRESSES OF THE REAL DEVICE BLOKS
       DMKQCNWT - TO OUTPUT MESSAGES TO THE TERMINAL
       DMKFREE - TO OBTAIN STORAGE FROM FREE STORAGE
       DMKFRET - TO RETURN STORAGE TO FREE STORAGE
       DMKPGTVG - TO GET A BUFFER OF PAGEABLE CP CORE.
       DMKPGTVR - TO RELEASE A BUFFER OF PAGEABLE CP CORE.
       DMKPTRUL - TO UNLOCK A PAGE IN VIRTUAL MACHINE
       DMKERMSG - TO SEND ERROR MESSAGES TO THE TERMINAL.
       DMKPTRAN - TO BRING A PAGE IN CORE
       DMKCVTBH - CONVERT BINARY DATA TO HEXADECMAL
       DMKSTKIO - TO STACK AN I/O BLOCK FOR PROCESSING
       DMKRPAPT - TO WRITE A PAGE IN CORE TO DASD
       DMKIOSQR - TO PERFORM I/O OPERATIONS ON 3705
       DMKCKSPL - TO CHECKPOINT DUMP SPOOL FILE BLOCK