Type ASSEMBLE
Source Lines : 1,233
Fixes Applied : 6
Most Recent Version : Thursday, December 7, 1978
Last Fix ID : [HRC106DK]
Module
DMKNLD
Function
TO PERFORM THE LOAD 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 10.
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 DMKNLD021E.
3. CALL DMKCVTHB TO CONVERT 'RADDR' TO BINARY. IF ERROR ON
CONVERSION, CALL DMKERMSG TO SEND MESSAGE DMKNLD021E.
4. CALL DMKSCNRU TO GET REAL DEVICE (RDEVBLOK) FOR 'RADDR'
DEVICE. IF DEVICE DOES NOT EXIST, CALL DMKERMSG TO SEND
MESSAGE DMKNLD040E.
5. DETERMINE WHETHER 'RADDR' DEVICE IS A 370X. IF NOT, CALL
DMKERMSG TO SEND DMKNLD006E MESSAGE.
6. CHECK IF 370X IS CURRENTLY OFFLINE. IF SO, CALL DMKERMSG
TO SEND MESSAGE DMKNLD046E.
7. DETERMINE IF 370X IS DEDICATED TO A USER. IF YES, CALL
DMKERMSG TO SEND MESSAGE DMKNLD140.
8. IF REQUEST IS FOR THE DUMP FUNCTION, GO TO STEP 25:
OTHERWISE CALL DMKSCNFD TO GET 'NCPNAME' OPERAND
FOR LOAD PROCESSING. IF NO OPERAND IS FOUND, CALL
DMKERMSG TO SEND MESSAGE DMKNLD026E.
9. IF 'NCPNAME' OPERAND IS GREATER THAN EIGHT (8) CHARACTERS,
CALL DMKERMSG TO SEND MESSAGE DMKNLD002E: OTHERWISE PLACE
'NCPNAME' IN RDEVBLOK FOR 370X.
10. TRANS IN DMKRNTBL
11. SEARCH DMKRNTBL FOR THE ENTRY CORRESPONDING TO 'NCPNAME'
IF NO ENTRY IS FOUND, CALL DMKERMSG TO SEND MESSAGE
DMKNLD044E.
12. CALL DMKSCNVS TO FIND TARGET DASD VOLUME ( AS INDICATED BY
DMKRNTBL ENTRY ). IF NOT FOUND, CALL DMKERMSG TO
SEND MESSAGE DMKNLD171E.
13. DETERMINE WHETHER VOLUME IS CP-OWNED. IF NOT, CALL
DMKERMSG TO SEND MESSAGE DMKNLD171E.
14. CALCULATE MAXIMUM NUMBER OF PAGES / CYL FOR THE DEVICE
CONTAINING THE TARGET VOLUME.
15. CALL DMKPGTVG TO GET A PAGE OF CP PAGEABLE CORE FOR USE
AS A BUFFER.
16. TRANS IN DASD PAGE CONTAINING CCPARM (IE. FIRST RECORD
OF NCP SAVED IMAGE) AND DETERMINE WHETHER THE NCP IMAGE
WILL FIT IN THE SPECIFIED 370X. IF NOT, CALL DMKERMSG TO
SEND MESSAGE DMKNLD170E. IF NCP WILL FIT, SAVE THE SIZE OF
THE NCP AND THE ENTRY POINT ADDRESS (OBTAINED FROM CCPARM)
ALSO FIND THE DASD ADDRESS OF THE FIRST NCP CORE IMAGE
RECORD BY CALCULATING THE NUMBER OF RESOURCE DATA
RECORDS FROM THE SIZE VALUE CONTAINED IN CCPARM.
17. IF A NICLIST ALREADY EXISTS FOR THE 370X, CALCULATE ITS
SIZE FROM VALUES IN 370X RDEVBLOK AND CALL DMKFRET TO
FREE IT. ALSO MARK RDEVBLOK AS INACTIVE.
18. GO TO IOBINIT SUBROUTINE TO GET AND INITIALIZE AN
IOBLOK AND ADDITIONAL SAVE AREA FOR USE BY THE 370X
I/O ROUTINE.
19. IF LOAD 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).
20. MARK 370X AS NOT READY AND GO TO SNDBOOTS SUB-ROUTINE
TO TRANSMIT THE OS/360 LOADER BOOTSTRAP PROGRAM TO THE
370X. ANY ERRORS THAT OCCUR DURING THE BOOTSTRAP
ROUTINE WILL RESULT IN MESSAGE:
DMKNLD460E CTLR 'RADDR' LOAD FAILED; PROGRAM CHECK
21. USING DMKRPAPT, READ IN THE CORE IMAGE RECORDS FROM THE
TARGET DASD, BUILD CCWS TO DEBLOCK FROM 4K TO 512 BYTES,
AND TRANSMIT CORE IMAGE TO 370X.
22. TRANSMIT THE ENTRY POINT ADDRESS SAVED IN STEP 16 TO THE
370X.
23. READ IN THE FIRST RESOURCE DATA RECORD (IE. CCPARM), AND
CALCULATE THE SIZE OF THE NICLIST NEED FOR THIS NCP,
CALL DMKFREE TO OBTAIN STORAGE FOR THE NICLIST,AND
FILL IN THE NEW NICLIST FROM DATA CONTAINED IN THE
RESOURCE RECORDS (IF NECESSARY, ADDITIONAL RESOURCE
RECORDS WILL BE READ IN).
24. SEND COMPLETION RESPONSE, CALL DMKFRET TO FREE
IOBLOK AND SAVE AREA, RELEASE BUFFER BACK TO CP, AND EXIT.
Calls to Other Routines
DMKSCNFD - TO LOCATE NEXT ARGUMENT IN THE COMMAND LINE
DMKCVTHB - CONVERT HEXADECIMAL ADDRESSES TO BINARY
DMKSCNVU - TO LOCATE ADDRESSES OF THE VIRTUAL DEVICE BLOKS
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
DMKRPAGT - TO READ A PAGE IN CORE
DMKSCNVS - TO SEARCH FOR A VOLUME
DMKIOSQR - TO PERFORM I/O OPERATIONS ON 3705