Type ASSEMBLE
Source Lines : 643
Fixes Applied : 6
Most Recent Version : Thursday, December 7, 1978
Last Fix ID : [HRC106DK]
Module
DMKCFHSV
Function
TO SAVE A PAGE FORM VERSION OF A SYSTEM'S VIRTUAL STORAGE SPAC
INCLUDING REGISTERS AND PSW AS THEY CURRENTLY EXIST. THE NAME
OF THE SYSTEM AND THE DASD LOCATION AT WHICH IT IS TO BE SAVED
IS DEFINED IN THE CP MODULE DMKSNT.
Attributes
REENTRANT, PAGEABLE, CALLED VIA SVC
Operation
1. CALL DMKSCNFD TO GET THE SYSTEM-NAME ARGUMENT. IF
NONE IS FOUND, CALL DMKERMSG TO SEND ERROR MESSAGE
DMKCFH026E.
2. TRANS IN AND LOCK THE SYSTBL. THEN SCAN THE SYSTBL TO
FIND THE ENTRY FOR THE SPECIFIED NAME. IF NONE IS FOUND,
CALL DMKERMSG TO SEND ERROR MESSAGE DMKCFH044E.
3. IF THE VIRTUALSTORAGE IS NOT LARGE ENOUGH TO CONTAIN
THE NAMED SYSTEM, CALL DMKERMSG TO SEND ERROR MESSAGE
DMKCFH170E.
4. CALL DMKSCNVS TO FIND THE VOLUME CONTAINING THE VIRTUAL
SYSRES. IF NOT FOUND, CALL DMKERMSG TO SEND ERROR MESSAGE
DMKCFH171E.
5. CALL DMKSCNVU TO GET THE VIRTUAL DEVICE BLOKS FOR THE
VIRTUAL SYSRES. IF NOT FOUND, CALL DMKERMSG TO SEND ERROR
MESSAGE DMKCFH173E. IF HAVE THE DEVICE BLOKS, BUT THE
MINI DISK IS NOT AT THE CYLINDER SPECIFIED IN THE SYSTBL,
CALL DMKERMSG TO SEND ERROR MESSAGE DMKCFH172E.
6. CALL DMKSCNVS TO FIND THE VOLUME THAT IS TO CONTAIN THE
SAVED SYSTEM. IF NOT FOUND, CALL DMKERMSG TO SEND ERROR
MESSAGE DMKCFH171E. IF THIS VOLUME IS NOT A CP OWNED
VOLUME, CALL DMKERMSG TO SEND ERROR MESSAGE
DMKCFH179E. IF ALL OK, CHECK FOR ANY
PENDING INTERRUPTS IN THE VIRTUAL MACHINE. IF NONE ARE
FOUND, GO TO STEP 9.
7. CALL DMKQCNWT TO SEND THE INTERRUPT PENDING MESSAGE.
THEN CALL DMKQCNRD TO READ THE REPLY.
8. IF THE REPLY WAS YES, CONTINUE - ELSE GO TO STEP 13.
9. SET UP THE NEXT GROUP OF PAGES (SPECIFIED IN THE SYSTBL)
TO BE SAVED. CALL DMKFREE TO OBTAIN FREE STORAGE
FOR A STORAGE KEY BUFFER.
10.TRANS IN THE NEXT PAGE TO BE SAVED. CALL DMKRPAPT TO
WRITE THE PAGE TO THE SYSVOL. SAVE THE STORAGE KEYS FOR
THIS PAGE.
11.IF ALL THE PAGES IN THIS GROUP HAVE BEEN PROCESSED, GO TO
STEP 12. ELSE - BUMP TO THE NEXT PAGE AND GO BACK TO
STEP 10.
12.IF THERE ARE MORE PAGE GROUPS TO PROCESS, GO BACK TO
STEP 9. IF NOT, TRANS IN USER PAGE ZERO. STORE THE VIRTUAL
PSW,REGISTERS, AND KEYS IN THIS PAGE. THEN CALL DMKRPAPT
TO WRITE THIS PAGE OUT TO THE SYSVOL.
13.CALL DMKPTRUL TO UNLOCK THE SYSTBL. IF THE SAVE WAS NOT
COMPLETED DUE TO AN ERROR - EXIT. IF IT WAS A GOOD
SAVE, CALL DMKQCNWT TO SEND THE 'SYSTEM SAVED' MESSAGE
AND EXIT.
Calls to Other Routines
DMKCVTBH - TO CONVERT BINARY TO HEX
DMKERMSG - TO SEND ERROR MESSAGES TO TERMINAL
DMKFREE - TO OBATIN BUFFER SPACE FOR STORAGE KEYS
DMKFRET - TO RETURN FREE STORAGE USED FOR BUFFER SPACE
DMKPTRAN - LOCATE AND FETCH A PAGE OF VIRTUAL STORAGE
DMKPTRLK - TO LOCK A PAGE IN CORE
DMKPTRUL - TO UNLOCK A PAGE
DMKQCNRD - TO READ RESPONSE FROM A CONSOLE
DMKQCNWT - TO WRITE A MESSAGE TO CONSOLE
DMKRPAGT - TO GET A PAGE FROM BACKING DEVICE
DMKRPAPT - TO WRITE A PAGE TO BACKING DEVICE
DMKSCNFD - LOCATE THE NEXT ARGUMENT ON THE COMMAND LINE
DMKSCNVS - TO FIND A VOLUME
DMKSCNVU - TO FIND A VIRTUAL UNIT