ibm:vm370-lib:cp:dmkpgs.assemble_hst
Table of Contents
DMKPGS History
References
- Fixes Applied : 11
- Latest Source Date : Thursday, December 7, 1978
- Last Fix ID : [HRC013DK]
Update History
CMS File Input : DMKPGS ASSEMBLE
Date : 12/7/1978 5:12:00 PM
VM Context : MAINT(394)
File Name : DMKPGS.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:47 AM
Created : 1/16/2021 7:31:47 AM
Update Order
- R09280DK 601 FIX FOR 12-16 MEGABYTE STORAGE SIZE
- R09957DK 604 CORRECT IOBLOK CONFLICT IN MSS SUPPORT
- R10074DK 604 CHANNEL SET SWITCHING AND MULTIPLE SRF SUPPORT
- R08861DK 605 PE V08555 THIS IS TO FIX BAD FIX FOR VM08555
- R09427DK 607 ABENDVMA001 VMSHR BIT ON BUT VMASSIST IS ZEROS
- R09774DK 608 ABENDPGT005 DURING LOGOFF OR FORCE OF A VIRTUAL MACHINE SWPCYL=0
- R09446DK 610 ABENDPTR018 DUE TO SHARED PAGE ASSIGNED TO LOGGED-OFF VMBLOK
- R11919DK 618 UV01988 REMOVED ENTRY POINT DMKPGSFS FOR RELEASE 6
- R12777DK 621 UV04338 ABENDLOK001 UNSTACK OF CPEXBLOK FOR LOGGED OFF USER
- R13580DK 628 UV05310 CORRECT FINDSYS PURGESYS PROBLEMS
- HRC013DK V01 UNIVERSITY OF MAINE P.E.R. TRACE FACILITY
R09280DK
Date Thursday Jan 25, 1979 09:32:00 AM
Loaded from MAINT(294)
R09280DK: ./ R 1117000 1119000 $ 1117100 500 DMK00010 R09280DK: SLL R2,8 DEVELOP REAL PAGE ADDRESS @VA09280 DMK00020 R09280DK: N R2,XPAGNUM CLEAR UNWANTED BITS @VA09280 DMK00030 BEGIN APPLY >>> ./ R 1117000 1119000 $ 1117100 500 DMK00010 END APPLY >>> ./ R 1117000 1119000 $ 1117100 500 DMK00010 Update Succeeded Update Execution Time 16 milliseconds.
R09957DK
Date Thursday Jul 12, 1979 09:53:00 AM
Loaded from MAINT(294)
R09957DK: ./ * FORCE RE-ASSEMBLY FOR APAR VM09957 BEGIN APPLY >>> ./ * FORCE RE-ASSEMBLY FOR APAR VM09957 Comment >>> ./ * FORCE RE-ASSEMBLY FOR APAR VM09957 END APPLY >>> ./ * FORCE RE-ASSEMBLY FOR APAR VM09957 Update Succeeded Update Execution Time 8 milliseconds.
R10074DK
Date Thursday Jul 05, 1979 04:08:00 PM
Loaded from MAINT(294)
R10074DK: ./ R 522200 $ 522205 DMK00010 R10074DK: NI SAVEWRK1+3,X'FF'-PGPROCIP-PGVMAFND-NPROTECT @V60B7AA DMK00020 R10074DK: ./ R 552000 $ 552100 DMK00030 R10074DK: TM APSTAT1,PROCIPL RUNNING ON MAIN (IPL) PROC? @V60B7AA DMK00040 R10074DK: ./ R 554000 $ 554100 DMK00050 R10074DK: OI SAVEWRK1+3,PGPROCIP INDICATE MAIN (IPL) PROC. @V60B7AA DMK00060 R10074DK: ./ R 629000 $ 629100 DMK00070 R10074DK: TM SAVEWRK1+3,PGPROCIP START ON MAIN (IPL) PROC? @V60B7AA DMK00080 R10074DK: ./ R 635000 $ 635100 DMK00090 R10074DK: SL R1,DCPAGBMP SUBTRACT FOR ADDR. MAIN (IPL) PGT @V60B7AA DMK00100 R10074DK: ./ R 646000 $ 646100 DMK00110 R10074DK: TM SAVEWRK1+3,PGPROCIP START ON MAIN (IPL) PROC? @V60B7AA DMK00120 R10074DK: ./ R 648200 $ 648300 DMK00130 R10074DK: SL R1,DCPAGBMP BACK UP TO IPL PROC (1ST) PAGTABLE @V60B7AA DMK00140 R10074DK: ./ R 704000 $ 704100 DMK00150 R10074DK: TM SAVEWRK1+3,PGPROCIP START ON MAIN (IPL) PROC? @V60B7AA DMK00160 R10074DK: ./ R 706000 $ 706100 DMK00170 R10074DK: SL R5,DCPAGBMP BACK TO HDR OF IPL PROC (1ST) PGT@V60B7AA DMK00180 R10074DK: ./ R 712000 $ 712100 DMK00190 R10074DK: * PROC TOTAL COUNTER (2ND SET OF TABLES) DMK00200 R10074DK: ./ R 999000 $ 999050 DMK00210 R10074DK: NI SAVEWRK1+3,X'FF'-PGPROCIP-PGVMAFND-NPROTECT @V60B7AA DMK00220 R10074DK: ./ R 1038000 $ 1038100 DMK00230 R10074DK: TM SAVEWRK1+3,PGPROCIP OLD PGTABLE FOR IPL PROC? @V60B7AA DMK00240 R10074DK: ./ R 1039000 $ 1039100 DMK00250 R10074DK: BZ PGOUT3A NO, SET UP FOR IPL PROC @V60B7AA DMK00260 R10074DK: ./ R 1043000 $ 1043100 DMK00270 R10074DK: SL R4,DCPAGBMP SUBTRACT DISP TO IPL PROC PGTABLE@V60B7AA DMK00280 R10074DK: ./ R 1052200 $ 1052300 DMK00290 R10074DK: NI SAVEWRK1+3,X'FF'-PGPROCIP-PGVMAFND RESET SHR FLG@V60B7AA DMK00300 R10074DK: ./ R 1275000 $ 1275100 DMK00310 R10074DK: PGPROCIP EQU X'40' ENTERED ON THE IPL PROCESSOR @V60B7AA DMK00320 BEGIN APPLY >>> ./ R 522200 $ 522205 DMK00010 END APPLY >>> ./ R 522200 $ 522205 DMK00010 BEGIN APPLY >>> ./ R 552000 $ 552100 DMK00030 END APPLY >>> ./ R 552000 $ 552100 DMK00030 BEGIN APPLY >>> ./ R 554000 $ 554100 DMK00050 END APPLY >>> ./ R 554000 $ 554100 DMK00050 BEGIN APPLY >>> ./ R 629000 $ 629100 DMK00070 END APPLY >>> ./ R 629000 $ 629100 DMK00070 BEGIN APPLY >>> ./ R 635000 $ 635100 DMK00090 END APPLY >>> ./ R 635000 $ 635100 DMK00090 BEGIN APPLY >>> ./ R 646000 $ 646100 DMK00110 END APPLY >>> ./ R 646000 $ 646100 DMK00110 BEGIN APPLY >>> ./ R 648200 $ 648300 DMK00130 END APPLY >>> ./ R 648200 $ 648300 DMK00130 BEGIN APPLY >>> ./ R 704000 $ 704100 DMK00150 END APPLY >>> ./ R 704000 $ 704100 DMK00150 BEGIN APPLY >>> ./ R 706000 $ 706100 DMK00170 END APPLY >>> ./ R 706000 $ 706100 DMK00170 BEGIN APPLY >>> ./ R 712000 $ 712100 DMK00190 END APPLY >>> ./ R 712000 $ 712100 DMK00190 BEGIN APPLY >>> ./ R 999000 $ 999050 DMK00210 END APPLY >>> ./ R 999000 $ 999050 DMK00210 BEGIN APPLY >>> ./ R 1038000 $ 1038100 DMK00230 END APPLY >>> ./ R 1038000 $ 1038100 DMK00230 BEGIN APPLY >>> ./ R 1039000 $ 1039100 DMK00250 END APPLY >>> ./ R 1039000 $ 1039100 DMK00250 BEGIN APPLY >>> ./ R 1043000 $ 1043100 DMK00270 END APPLY >>> ./ R 1043000 $ 1043100 DMK00270 BEGIN APPLY >>> ./ R 1052200 $ 1052300 DMK00290 END APPLY >>> ./ R 1052200 $ 1052300 DMK00290 BEGIN APPLY >>> ./ R 1275000 $ 1275100 DMK00310 END APPLY >>> ./ R 1275000 $ 1275100 DMK00310 Update Succeeded Update Execution Time 39 milliseconds.
R08861DK
Date Monday Oct 15, 1979 05:23:00 AM
Loaded from MAINT(294)
R08861DK: ./ * THE FOLLOWING TWO DELETES ARE TO REMOVE COMMENTS ONLY 00001000 R08861DK: ./ * THEY HAVE NOTHING TO DO WITH THIS PROBLEM. 00002000 R08861DK: ./ D 60000 $ 00003000 R08861DK: ./ D 64000 65000 $ 00004000 R08861DK: ./ R 508000 $ 508500 100 00005000 R08861DK: GOTSHTBL DS 0H @VA08861 00006000 R08861DK: ./ R 529100 529350 $ 529150 10 00007000 R08861DK: USING VMABLOK,R1 @VA08861 00008000 R08861DK: ICM R1,B'1111',VMASSIST SEE IF THERE IS A VMABLOK? @VA08861 00009000 R08861DK: BZ ANOTCHG1 NO, CONTINUE @VA08861 00010000 R08861DK: ANOTCHG DS 0H @VA08861 00011000 R08861DK: CLC VMANAME,SAVER1 IS THIS OURS? @VA08861 00012000 R08861DK: BE NOTCHG YES,VMAPS DID NOT GET OURS R08861DK: L R1,VMAFPNT GET THE NEXT IF ANY @VA08861 00014000 R08861DK: LTR R1,R1 IS THERE ANOTHER VMABLOK? @VA08861 00015000 R08861DK: BNZ ANOTCHG YES,GO SEE IF WE CAN FIND OUR @VA08861 00016000 R08861DK: * SHAREDNAME 00017000 R08861DK: DROP R1 @VA08861 00018000 R08861DK: ANOTCHG1 DS 0H @VA08861 00019000 R08861DK: TM SAVEWRK1,PURGE IS THIS A PURGE REQUEST? @VA08861 00020000 R08861DK: BNO GTRETURN NO,CONTINUE @VA08861 00021000 R08861DK: LM R1,R4,SAVEWRK3 RESTORE REGS OVER CALL TO VMASH @VA08861 00022000 R08861DK: ./ * THE FOLLOWING REP IS TO UPDATE THE COMMENT ONLY. 00023000 R08861DK: ./ R 529850 $ 00024000 R08861DK: B TESTPUR VMA MUST OF GOT THE VMABLOK @VA08861 00025000 R08861DK: ./ D 748000 $ BEGIN APPLY >>> ./ * THE FOLLOWING TWO DELETES ARE TO REMOVE COMMENTS ONLY 00001000 Comment >>> ./ * THE FOLLOWING TWO DELETES ARE TO REMOVE COMMENTS ONLY 00001000 END APPLY >>> ./ * THE FOLLOWING TWO DELETES ARE TO REMOVE COMMENTS ONLY 00001000 BEGIN APPLY >>> ./ * THEY HAVE NOTHING TO DO WITH THIS PROBLEM. 00002000 Comment >>> ./ * THEY HAVE NOTHING TO DO WITH THIS PROBLEM. 00002000 END APPLY >>> ./ * THEY HAVE NOTHING TO DO WITH THIS PROBLEM. 00002000 BEGIN APPLY >>> ./ D 60000 $ 00003000 END APPLY >>> ./ D 60000 $ 00003000 BEGIN APPLY >>> ./ D 64000 65000 $ 00004000 END APPLY >>> ./ D 64000 65000 $ 00004000 BEGIN APPLY >>> ./ R 508000 $ 508500 100 00005000 END APPLY >>> ./ R 508000 $ 508500 100 00005000 BEGIN APPLY >>> ./ R 529100 529350 $ 529150 10 00007000 END APPLY >>> ./ R 529100 529350 $ 529150 10 00007000 BEGIN APPLY >>> ./ * THE FOLLOWING REP IS TO UPDATE THE COMMENT ONLY. 00023000 Comment >>> ./ * THE FOLLOWING REP IS TO UPDATE THE COMMENT ONLY. 00023000 END APPLY >>> ./ * THE FOLLOWING REP IS TO UPDATE THE COMMENT ONLY. 00023000 BEGIN APPLY >>> ./ R 529850 $ 00024000 END APPLY >>> ./ R 529850 $ 00024000 BEGIN APPLY >>> ./ D 748000 $ END APPLY >>> ./ D 748000 $ Update Succeeded Update Execution Time 23 milliseconds.
R09427DK
Date Wednesday Dec 12, 1979 12:00:00 PM
Loaded from MAINT(294)
R09427DK: ./ I 547000 $ 547100 200 00002000 R09427DK: LH R6,VMSHRSYS IS THIS LAST VMABLOK @VA09427 00003000 R09427DK: BCT R6,NOTLAST NO,WE ARE STILL SHARED SYSTEM @VA09427 00004000 R09427DK: NI VMOSTAT,255-VMSHR TURN OFF VMSHR @VA09427 00005000 R09427DK: NOTLAST DS 0H @VA09427 00006000 BEGIN APPLY >>> ./ I 547000 $ 547100 200 00002000 END APPLY >>> ./ I 547000 $ 547100 200 00002000 Update Succeeded Update Execution Time 16 milliseconds.
R09774DK
Date Tuesday Jan 08, 1980 01:08:00 AM
Loaded from MAINT(294)
R09774DK: ./ I 1200000 $ 1200500 500 00002000 R09774DK: OI SWPFLAG,SWPRECMP CCPD IS NO GOOD @VA09774 00003000 BEGIN APPLY >>> ./ I 1200000 $ 1200500 500 00002000 END APPLY >>> ./ I 1200000 $ 1200500 500 00002000 Update Succeeded Update Execution Time 16 milliseconds.
R09446DK
Date Monday Mar 03, 1980 12:12:00 PM
Loaded from MAINT(294)
R09446DK: ./ I 840000 $ 840100 100 00002000 R09446DK: TM CORFLAG,CORCFLCK FRAME LOCKED? @VA09446 00003000 R09446DK: BO PROUSBD YES, SKIP UPDATE OF FRAME COUNT @VA09446 00004000 R09446DK: ./ I 844000 $ 844100 100 00005000 R09446DK: L R14,PAGTSWP+SWPVM-SWPTABLE(,R5) NEW OWNER @VA09446 00006000 R09446DK: ./ R 844400 $ 844450 00007000 R09446DK: BO PROUSBD YES, SKIP UPDATE OF FRAME COUNT @VA09446 00008000 R09446DK: ./ D 848000 00009000 R09446DK: ./ I 852000 $ 852500 500 00010000 R09446DK: PROUSBD DS 0H @VA09446 00011000 R09446DK: ./ R 853000 $ 853100 00012000 R09446DK: ST R14,CORFPNT UPDATE FRAME OWNERSHIP @VA09446 00013000 BEGIN APPLY >>> ./ I 840000 $ 840100 100 00002000 END APPLY >>> ./ I 840000 $ 840100 100 00002000 BEGIN APPLY >>> ./ I 844000 $ 844100 100 00005000 END APPLY >>> ./ I 844000 $ 844100 100 00005000 BEGIN APPLY >>> ./ R 844400 $ 844450 00007000 END APPLY >>> ./ R 844400 $ 844450 00007000 BEGIN APPLY >>> ./ D 848000 00009000 END APPLY >>> ./ D 848000 00009000 BEGIN APPLY >>> ./ I 852000 $ 852500 500 00010000 END APPLY >>> ./ I 852000 $ 852500 500 00010000 BEGIN APPLY >>> ./ R 853000 $ 853100 00012000 END APPLY >>> ./ R 853000 $ 853100 00012000 Update Succeeded Update Execution Time 16 milliseconds.
R11919DK
Date Friday Jan 09, 1981 09:18:00 AM
Loaded from MAINT(294)
R11919DK: ./ D 56000 $ 00001000 R11919DK: ./ D 77000 79000 $ 00002000 R11919DK: ./ D 142000 271000 $ 00003000 R11919DK: ./ I 278000 $ 278100 100 00004000 R11919DK: USING SEGTABLE,R3 @VA11919 00005000 R11919DK: USING SWPFLAG,R5 @VA11919 00006000 R11919DK: USING CORTABLE,R7 @VA11919 00007000 R11919DK: USING PAGCORE,R9 @VA11919 00008000 R11919DK: USING SHRTABLE,R10 @VA11919 00009000 BEGIN APPLY >>> ./ D 56000 $ 00001000 END APPLY >>> ./ D 56000 $ 00001000 BEGIN APPLY >>> ./ D 77000 79000 $ 00002000 END APPLY >>> ./ D 77000 79000 $ 00002000 BEGIN APPLY >>> ./ D 142000 271000 $ 00003000 END APPLY >>> ./ D 142000 271000 $ 00003000 BEGIN APPLY >>> ./ I 278000 $ 278100 100 00004000 END APPLY >>> ./ I 278000 $ 278100 100 00004000 Update Succeeded Update Execution Time 16 milliseconds.
R12777DK
Date Wednesday Jun 03, 1981 04:28:00 AM
Loaded from MAINT(294)
R12777DK: ./ I 277000 $ 277100 00001000 R12777DK: DC CL8'DMKPGS ' MODULE NAME @VA12777 00002000 R12777DK: ./ R 822000 $ 822500 00001000 R12777DK: TRANS 2,1,OPT=(DEFER) MAKE SURE PAGE ISNT INTRANSIT @VA12777 00002000 BEGIN APPLY >>> ./ I 277000 $ 277100 00001000 END APPLY >>> ./ I 277000 $ 277100 00001000 BEGIN APPLY >>> ./ R 822000 $ 822500 00001000 END APPLY >>> ./ R 822000 $ 822500 00001000 Update Succeeded Update Execution Time 23 milliseconds.
R13580DK
Date Monday Feb 15, 1982 09:28:00 AM
Loaded from MAINT(294)
R13580DK: ./ R 999050 1002000 $ 999050 200 R13580DK: NI SAVEWRK1+3,X'FF'-PGPROCIP-PGVMAFND-NPROTECT @VA13580 R13580DK: TM SAVEWRK1,PURGE PURGING A NAMED SYSTEM ? @VA13580 R13580DK: BZ CLRSHARE NO, CLEAR SHARE TABLE POINTER @VA13580 R13580DK: CLC SHRNAME-SHRTABLE(8,R10),SAVER1 DO NAMES MATCH @VA13580 R13580DK: BNE NEXTSEG NO, GET NEXT SEGMENT @VA13580 R13580DK: MVI SAVEWRK1+2,NOTINUSE PTE NO LONGER IN USE @VA13580 R13580DK: B FINSHTBL CONTINUE RESET OF SHARE SYS IND. @VA13580 R13580DK: CLRSHARE EQU * R13580DK: XC 0(4,R4),0(R4) CLEAR SHARE TABLE POINTER @VA13580 R13580DK: ./ I 1231100 $ 1231200 100 R13580DK: XC 0(4,R14),0(R14) CLEAR SHRTBL PTR IN PAGE TABLE @VA13580 BEGIN APPLY >>> ./ R 999050 1002000 $ 999050 200 END APPLY >>> ./ R 999050 1002000 $ 999050 200 BEGIN APPLY >>> ./ I 1231100 $ 1231200 100 END APPLY >>> ./ I 1231100 $ 1231200 100 Update Succeeded Update Execution Time 8 milliseconds.
HRC013DK
Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
HRC013DK: ./ * HRC013DK V01 UNIVERSITY OF MAINE P.E.R. TRACE FACILITY BEGIN APPLY >>> ./ * HRC013DK V01 UNIVERSITY OF MAINE P.E.R. TRACE FACILITY Comment >>> ./ * HRC013DK V01 UNIVERSITY OF MAINE P.E.R. TRACE FACILITY END APPLY >>> ./ * HRC013DK V01 UNIVERSITY OF MAINE P.E.R. TRACE FACILITY Update Succeeded Update Execution Time 23 milliseconds.
ibm/vm370-lib/cp/dmkpgs.assemble_hst.txt ยท Last modified: 2023/08/06 13:37 by Site Administrator