DMKPTR History
References
-
-
Fixes Applied : 13
-
Last Fix ID : [R11926DK]
Update History
CMS File Input : DMKPTR ASSEMBLE
Date : 12/7/1978 5:13:00 PM
VM Context : MAINT(394)
File Name : DMKPTR.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:47 AM
Created : 1/16/2021 7:31:47 AM
Update Order
R09005DK 601 CALL TO DMKCFMBK TO PLACE USER IN CONSOLE FUNTION MODE
R09281DK 601 FOR UNPROTECTED SHARED PAGE, NO PROC AFFINITY NECESSARY ON RETURN
R09279DK 601 INSERT QUIESCE BEFORE STEALING UNPROTECTED SHARED PAGES
R09957DK 604 CORRECT IOBLOK CONFLICT IN MSS SUPPORT
R10074DK 604 CHANNEL SET SWITCHING AND MULTIPLE SRF SUPPORT
R09179DK 606 TRYING TO OBTAIN LOCK ALREADY HELD AFTER TEMP SPACE FULL
R08621DK 609 PAGE AND SEG TABLE OVERLAID SSK INSTRUCTION
R08341DK 610 PAGE REPLENISHMENT WILL NOT SELECT UNLOCKED V=R PAGES
R10449DK 611 CHANGE COMMENTS FOR ENTRY OF MODULE DMKPTRPW
R09460DK 614 UV00828 SWPRECMP NOT RESET AFTER GETTING NEW DASD PAGE.
R12596DK 620 UV03973 DMKFRE CPEXBLOK DURING EXTEND + SYSTEM LOCK
R12685DK 621 UV04392 I/O ERROR MESSAGES INCORRECT ON SHARED PAGES
R11926DK 621 UV04549 ABENDPRG005 IN DMKPTRFE IN PAGE SCAN ROUTINE
R09005DK
Date Wednesday Dec 20, 1978 11:22:00 AM
Loaded from MAINT(294)
R09005DK: ./ I 834000 $ 834500 00001000
R09005DK: CALL DMKCFMBK PUT USER IN CONSOLE FUNTION MODE @VA09005 00002000
BEGIN APPLY >>> ./ I 834000 $ 834500 00001000
END APPLY >>> ./ I 834000 $ 834500 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R09281DK
Date Thursday Jan 25, 1979 09:47:00 AM
Loaded from MAINT(294)
R09281DK: ./ I 330000 $ 330100 100
R09281DK: TM SHRFLAG-SHRTABLE(R3),SHRNOPRT UNPROTECTED @VA09281
R09281DK: * SHARED SYSTEM?
R09281DK: BO GETENTR1 YES, NO NEED TO SET UP PROCESSOR @VA09281
R09281DK: * AFFINITY SINCE THERE IS ONLY ONE
R09281DK: * SET OF PAGE/SWAP TABLES
R09281DK: ./ D 332100 332500
BEGIN APPLY >>> ./ I 330000 $ 330100 100
END APPLY >>> ./ I 330000 $ 330100 100
BEGIN APPLY >>> ./ D 332100 332500
END APPLY >>> ./ D 332100 332500
Update Succeeded
Update Execution Time 23 milliseconds.
R09279DK
Date Tuesday Feb 06, 1979 01:04:00 PM
Loaded from MAINT(294)
R09279DK: ./ I 1323000 $ 1323100 DMK00030
R09279DK: OR R14,R15 SAVE FOR CHANGED PAGE TEST @VA09279 DMK00040
R09279DK: ./ I 1333000 $ 1333100 50 DMK00050
R09279DK: LR R15,R3 SWAP TABLE HEADER @VA09279 DMK00060
R09279DK: S R15,=A(PAGTSWP) BACK UP TO PAGE TABLE HEADER @VA09279 DMK00070
R09279DK: L R15,PAGSHR-PAGTABLE(R15) ADDRESS OF SHARETABLE @VA09279 DMK00080
R09279DK: TM SHRFLAG-SHRTABLE(R15),SHRNOPRT IS SHARED PAGE @VA09279 DMK00090
R09279DK: * UNPROTECTED? DMK00100
R09279DK: BO STEALSHR YES--OK TO STEAL IT @VA09279 DMK00110
R09279DK: * IF PROTECTED SHARED PAGE, DETERMINE IF FRAME IS DMK00120
R09279DK: * OWNED BY THIS PROCESSOR DMK00130
R09279DK: ./ R 1342000 1342500 $ 1342150 25 DMK00140
R09279DK: TM CORFLAG,CORSHARE SHARED PAGE? @VA09279 DMK00150
R09279DK: BZ STEALSH1 NO, STEAL IT @VA09279 DMK00160
R09279DK: SPM R14 CHECK FOR CHANGED SHARED PAGE @VA09279 DMK00170
R09279DK: BC 8+2,STEALSH1 IF UNCHANGED, STEAL IT @VA09279 DMK00180
R09279DK: * CHECK TO SEE IF CHANGED SHARED PAGE IS UNPROTECTED DMK00190
R09279DK: SLR R0,R0 ZERO REG FOR INSERT @VA09279 DMK00200
R09279DK: IC R0,SWPVPAGE VIRTUAL PAGE NUMBER @VA09279 DMK00210
R09279DK: ALR R0,R4 ADD ONE FOR SWAP TABLE HEADER @VA09279 DMK00220
R09279DK: SLL R0,3 MULTIPLY BY 8 FOR ENTRY LENGTH @VA09279 DMK00230
R09279DK: LR R15,R5 SWAP TABLE ENTRY ADDRESS @VA09279 DMK00240
R09279DK: SLR R15,R0 POINT TO SWAP TABLE HEADER @VA09279 DMK00250
R09279DK: S R15,=A(PAGTSWP) ADDRESS OF PAGE TABLE HEADER @VA09279 DMK00260
R09279DK: L R15,PAGSHR-PAGTABLE(R15) SHARETABLE ADDRESS @VA09279 DMK00270
R09279DK: TM SHRFLAG-SHRTABLE(R15),SHRNOPRT IS SHARED PAGE @VA09279 DMK00280
R09279DK: * UNPROTECTED? DMK00290
R09279DK: BZ NONZERO DON'T STEAL PROTECTED SHARED PAGE@VA09279 DMK00300
R09279DK: * IF UNPROTECTED, STEAL EVEN IF @VA09279 DMK00310
R09279DK: * CHANGED DMK00320
R09279DK: STEALSH1 DS 0H @VA09279 DMK00330
R09279DK: ./ I 1350000 $ 1350025 15 DMK00340
R09279DK: AIF (NOT &AP).NOAP12A **AIF*** DMK00350
R09279DK: TM APSTAT1,APUOPER IN AP MODE? @VA09279 DMK00360
R09279DK: BZ STEALSH2 NO, BYPASS UNPROTECTED CHECK @VA09279 DMK00370
R09279DK: TM CORFLAG,CORSHARE SHARED PAGE? @VA09279 DMK00380
R09279DK: BZ STEALSH2 NO -- NO NEED FOR QUIESCE @VA09279 DMK00390
R09279DK: SLR R0,R0 @VA09279 DMK00400
R09279DK: IC R0,SWPVPAGE GET PAGE NUMBER @VA09279 DMK00410
R09279DK: SLL R0,1 MULTIPLY BY 2 FOR PTE SIZE @VA09279 DMK00420
R09279DK: L R1,CORPGPNT PAGE TABLE ENTRY ADDRESS @VA09279 DMK00430
R09279DK: SLR R1,R0 BACK UP TO START OF PAGE TABLE @VA09279 DMK00440
R09279DK: SL R1,F16 BACK UP TO PAGE TABLE HEADER @VA09279 DMK00450
R09279DK: L R1,PAGSHR-PAGTABLE(,R1) GET SHRTABLE ADDRESS @VA09279 DMK00460
R09279DK: TM SHRFLAG-SHRTABLE(R1),SHRNOPRT UNPROTECTED? @VA09279 DMK00470
R09279DK: BZ STEALSH2 NO -- NO QUIESCE NECESSARY @VA09279 DMK00480
R09279DK: L R1,PREFIXA ACCESS ABSOLUTE PSA @VA09279 DMK00020
R09279DK: CLI XTNDLOCK-PSA(R1),0 SYSTEM EXTENDING? @VA09279 DMK00030
R09279DK: BNE STEALSH2 YES--BYPASS QUIESCE @VA09279 DMK00040
R09279DK: TM TEMPR0+1,OPPRSTRT HAS OTHER PROCESSOR ALREADY @VA09279 DMK00490
R09279DK: * BEEN QUIESCED? DMK00500
R09279DK: BO SETPTLB YES -- CONTINUE @VA09279 DMK00510
R09279DK: LR R9,R14 SAVE R14 CONTENTS @VA09279 DMK00520
R09279DK: SIGNAL QUIESCE,CONTROL=SERIAL @VA09279 DMK00530
R09279DK: LR R14,R9 SAVE FOR CHANGED PAGE TEST @VA09279 DMK00540
R09279DK: MVI TEMPR0+1,OPPRSTRT REMEMBER TO RESUME OTHER PROC.@VA09279 DMK00550
R09279DK: SETPTLB TM TESTFLG+1,CORRSV PHASE ONE? @VA09279 DMK00560
R09279DK: BO OTHRPTLB IF PHASE ONE, TELL OTHER PROC @VA09279 DMK00570
R09279DK: * TO DO PTLB. THIS PROC. WILL BE DMK00580
R09279DK: * MARKED FOR PTLB AT OWNSHR. DMK00590
R09279DK: * HERE IF NOT PHASE 1 DMK00600
R09279DK: TM APSTAT1,PROCIO THIS THE MAIN PROCESSOR? @VA09279 DMK00610
R09279DK: BO OTHRPTLB YES -- TELL OTHER PROC TO PTLB @VA09279 DMK00620
R09279DK: OI APSTAT2,CPPTLBR THIS PROC MUST PURGE TLB @VA09279 DMK00630
R09279DK: B STEALSH2 CONTINUE WITH STEAL @VA09279 DMK00640
R09279DK: OTHRPTLB L R1,PREFIXB ADDRESS OF OTHER PSA @VA09279 DMK00650
R09279DK: OI APSTAT2-PSA(R1),CPPTLBR TELL APU TO DO PTLB @VA09279 DMK00660
R09279DK: STEALSH2 DS 0H @VA09279 DMK00670
R09279DK: .NOAP12A ANOP **ANOP** DMK00680
R09279DK: ./ I 1441000 $ 1441050 50 DMK00690
R09279DK: AIF (NOT &AP).NOAP15A **AIF*** DMK00700
R09279DK: TM TEMPR0+1,OPPRSTRT WAS OTHER PROCESSOR QUIESCED? @VA09279 DMK00710
R09279DK: BZ CKCHGE3 NO--WE DON'T HAVE TO WORRY ABOUT @VA09279 DMK00720
R09279DK: * CHANGE BITS HAVING BEEN CHANGED DMK00730
R09279DK: RRB 0(R6) TEST FIRST HALF OF PAGE--PAGE @VA09279 DMK00740
R09279DK: * MAY HAVE BEEN CHANGED BY OTHER DMK00750
R09279DK: * PROCESSOR IF STEALING UNPROTECTED DMK00760
R09279DK: * SHARED PAGE DMK00770
R09279DK: BC 4+1,BCHNGE REAL KEY WAS CHANGED @VA09279 DMK00780
R09279DK: RRB 2048(R6) TEST SECOND HALF OF PAGE @VA09279 DMK00790
R09279DK: BC 4+1,BCHNGE REAL KEY WAS CHANGED @VA09279 DMK00800
R09279DK: B CKBKUP TEST BACK-UP BITS @VA09279 DMK00810
R09279DK: CKCHGE3 DS 0H @VA09279 DMK00820
R09279DK: .NOAP15A ANOP **ANOP** DMK00830
R09279DK: ./ R 2002000 2003000 $ 2002100 100 DMK00840
R09279DK: BC 8+2,RSNOCHG PAGE NOT CHANGED @VA09279 DMK00850
R09279DK: SLR R15,R15 CLEAR REG FOR INSERT @VA09279 DMK00860
R09279DK: IC R15,SWPVPAGE VIRTUAL PAGE NUMBER @VA09279 DMK00870
R09279DK: SLL R15,1 MULTIPLY BY 2 FOR PTE SIZE @VA09279 DMK00880
R09279DK: L R2,CORPGPNT PAGE TABLE ENTRY ADDRESS @VA09279 DMK00890
R09279DK: SLR R2,R15 BACK UP TO START OF PAGE TABLE @VA09279 DMK00900
R09279DK: SL R2,F16 BACK UP TO PAGE TABLE HEADER @VA09279 DMK00910
R09279DK: L R2,PAGSHR-PAGTABLE(,R2) SHARETABLE POINTER @VA09279 DMK00920
R09279DK: TM SHRFLAG-SHRTABLE(R2),SHRNOPRT IS SHARED PAGE @VA09279 DMK00930
R09279DK: * UNPROTECTED? DMK00940
R09279DK: BZ RSCHGSHR PAGE IS SHARED, CHANGED, @VA09279 DMK00950
R09279DK: * PROTECTED--LEAVE FOR DMKVMA DMK00960
R09279DK: RSNOCHG L R2,DMKPTRSC FRAME IS UNCHANGED, OR FRAME IS @VA09279 DMK00970
R09279DK: * CHANGED AND UNPROTECTED DMK00980
BEGIN APPLY >>> ./ I 1323000 $ 1323100 DMK00030
END APPLY >>> ./ I 1323000 $ 1323100 DMK00030
BEGIN APPLY >>> ./ I 1333000 $ 1333100 50 DMK00050
END APPLY >>> ./ I 1333000 $ 1333100 50 DMK00050
BEGIN APPLY >>> ./ R 1342000 1342500 $ 1342150 25 DMK00140
END APPLY >>> ./ R 1342000 1342500 $ 1342150 25 DMK00140
BEGIN APPLY >>> ./ I 1350000 $ 1350025 15 DMK00340
END APPLY >>> ./ I 1350000 $ 1350025 15 DMK00340
BEGIN APPLY >>> ./ I 1441000 $ 1441050 50 DMK00690
END APPLY >>> ./ I 1441000 $ 1441050 50 DMK00690
BEGIN APPLY >>> ./ R 2002000 2003000 $ 2002100 100 DMK00840
END APPLY >>> ./ R 2002000 2003000 $ 2002100 100 DMK00840
Update Succeeded
Update Execution Time 31 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 522000 525000 $ 522100 500 DMK00010
R10074DK: TM SWPFLAG2-SWPTABLE(R15),SWPAPP 2ND SET OF TABLES?@V60B7AA DMK00020
R10074DK: LA R15,PAGBMP(,R9) ASSUME IPL PROC'S PAGE--POINT TO@V60B7AA DMK00030
R10074DK: * AP PTE DMK00040
R10074DK: BZ COPYSHR PAGE OWNED BY IPL PROCESSOR @V60B7AA DMK00050
R10074DK: S R15,=A(2*PAGBMP) AP PAGE;POINT TO IPL PROC'S PTE@V60B7AA DMK00060
R10074DK: ./ R 1334000 $ 1334100 DMK00070
R10074DK: TM SWPFLAG2-SWPTABLE(R3),SWPAPP 2ND SET OF TABLES? @V60B7AA DMK00080
R10074DK: ./ R 1336000 $ 1336100 DMK00090
R10074DK: TM APSTAT1,PROCIPL IS THIS THE MAIN (IPL) PROC? @V60B7AA DMK00100
R10074DK: ./ R 1339000 $ 1339100 DMK00110
R10074DK: SHPGAP TM APSTAT1,PROCIPL IS THIS NON-IPL PROCESSOR? @V60B7AA DMK00120
R10074DK: ./ R 1350460 $ 1350465 DMK00130
R10074DK: TM APSTAT1,PROCIPL IS THIS THE MAIN (IPL) PROC? @V60B7AA DMK00140
R10074DK: ./ R 1350535 $ 1350540 DMK00150
R10074DK: OI APSTAT2-PSA(R1),CPPTLBR TELL OTHER PROC TO PTLB @V60B7AA DMK00160
R10074DK: ./ R 1382000 $ 1382100 DMK00170
R10074DK: TM SWPFLAG2-SWPTABLE(R2),SWPAPP 2ND SET OF TABLES? @V60B7AA DMK00180
R10074DK: ./ R 1384000 $ 1384100 DMK00190
R10074DK: TM APSTAT1,PROCIPL IS THIS THE MAIN (IPL) PROC? @V60B7AA DMK00200
R10074DK: ./ R 1390000 $ 1390100 DMK00210
R10074DK: TM APSTAT1,PROCIPL MAIN (IPL) PROCESSOR? @V60B7AA DMK00220
BEGIN APPLY >>> ./ R 522000 525000 $ 522100 500 DMK00010
END APPLY >>> ./ R 522000 525000 $ 522100 500 DMK00010
BEGIN APPLY >>> ./ R 1334000 $ 1334100 DMK00070
END APPLY >>> ./ R 1334000 $ 1334100 DMK00070
BEGIN APPLY >>> ./ R 1336000 $ 1336100 DMK00090
END APPLY >>> ./ R 1336000 $ 1336100 DMK00090
BEGIN APPLY >>> ./ R 1339000 $ 1339100 DMK00110
END APPLY >>> ./ R 1339000 $ 1339100 DMK00110
BEGIN APPLY >>> ./ R 1350460 $ 1350465 DMK00130
END APPLY >>> ./ R 1350460 $ 1350465 DMK00130
BEGIN APPLY >>> ./ R 1350535 $ 1350540 DMK00150
END APPLY >>> ./ R 1350535 $ 1350540 DMK00150
BEGIN APPLY >>> ./ R 1382000 $ 1382100 DMK00170
END APPLY >>> ./ R 1382000 $ 1382100 DMK00170
BEGIN APPLY >>> ./ R 1384000 $ 1384100 DMK00190
END APPLY >>> ./ R 1384000 $ 1384100 DMK00190
BEGIN APPLY >>> ./ R 1390000 $ 1390100 DMK00210
END APPLY >>> ./ R 1390000 $ 1390100 DMK00210
Update Succeeded
Update Execution Time 47 milliseconds.
R09179DK
Date Wednesday Oct 31, 1979 10:30:00 AM
Loaded from MAINT(294)
R09179DK: ./ R 1574150 $ 1574151 00001000
R09179DK: BO SELEXIT1 YES @VA09179 00002000
R09179DK: ./ R 1574360 $ 1574361 00003000
R09179DK: SELEXIT1 CL R13,F2 ENTERED BY CPEXBLOK @VA09179 00004000
BEGIN APPLY >>> ./ R 1574150 $ 1574151 00001000
END APPLY >>> ./ R 1574150 $ 1574151 00001000
BEGIN APPLY >>> ./ R 1574360 $ 1574361 00003000
END APPLY >>> ./ R 1574360 $ 1574361 00003000
Update Succeeded
Update Execution Time 23 milliseconds.
R08621DK
Date Saturday Feb 09, 1980 12:10:00 PM
Loaded from MAINT(294)
R08621DK: ./ I 1387000 $ 1387100 100 00001000
R08621DK: L R2,RUNUSER-PSA(R2) ACCESS RUNUSER FOR OTHER @VA08621 00002000
R08621DK: * PROCESSOR 00003000
R08621DK: NI VMDSTAT-VMBLOK(R2),X'FF'-VMDSP NO FAST DISPATCH @VA08621 00004000
R08621DK: * NOW THE OTHER PROCESSOR SHOULD BE QUIESCED AT THIS TIME
R08621DK: ./ I 1392000 $ 1392100 50 00006000
R08621DK: CLC RUNUSER,ASYSVM IS RUNUSER SYSTEM @VA08621 00007000
R08621DK: BE CKRSV YES, BRANCH @VA08621 00008000
R08621DK: TM APSTAT1,APUOPER RUNNING AS AP @VA08621 00009000
R08621DK: BZ RESETDSP NO @VA08621 00010000
R08621DK: CLC RUNUSER,LASTUSER RUNUSER STILL LOCKED @VA08621 00011000
R08621DK: BE RESETDSP YES, OK TO RESET VMDSP @VA08621 00012000
R08621DK: NI APSTAT2,X'FF'-CPPTLBR RESET PTLB REQUIRED @VA08621 00013000
R08621DK: PTLB DO IT NOW @VA08621 00014000
R08621DK: B CKRSV @VA08621 00015000
R08621DK: RESETDSP DS 0H @VA08621 00016000
R08621DK: L R2,RUNUSER NO FAST REDISPATCH FOR HIM @VA08621 00017000
R08621DK: NI VMDSTAT-VMBLOK(R2),X'FF'-VMDSP @VA08621 00018000
BEGIN APPLY >>> ./ I 1387000 $ 1387100 100 00001000
END APPLY >>> ./ I 1387000 $ 1387100 100 00001000
BEGIN APPLY >>> ./ I 1392000 $ 1392100 50 00006000
END APPLY >>> ./ I 1392000 $ 1392100 50 00006000
Update Succeeded
Update Execution Time 16 milliseconds.
R08341DK
Date Friday Mar 14, 1980 01:15:00 AM
Loaded from MAINT(294)
R08341DK: ./ I 253000 $ 253100 00001000
R08341DK: ENTRY DMKPTRSN @VA08341 00002000
R08341DK: ./ I 991000 $ 991100 100 00003000
R08341DK: LA R2,FULLSCAN ADDRESS OF FIRST SCAN BLOCK @VA08341 00004000
R08341DK: ./ R 992000 $ 992100 00005000
R08341DK: FLLSCN1 LA R3,CONTST BRANCH ADDRESS @VA08341 00006000
R08341DK: ./ R 993000 $ 993100 00007000
R08341DK: LM R6,R9,0(R2) LOAD TABLE VALUES FOR BXH SEARCH @VA08341 00008000
R08341DK: ./ I 999000 $ 999100 100 00009000
R08341DK: LA R2,20(R2) INCREMENT TO NEXT BLOCK TO SCAN @VA08341 00010000
R08341DK: TM SCANFLAG,VEQRUNLK HAVE V=R PAGES BEEN UNLOCKED? @VA08341 00011000
R08341DK: BO FLLSCN1 YES, BRANCH TO TRY THOSE PAGES @VA08341 00012000
R08341DK: L R2,SAVER2 RESTORE CALLER'S REGISTER 2 @VA08341 00013000
R08341DK: ./ R 01148000 01149000 $ 01148100 500 00014000
R08341DK: * 2. SEARCH ALL OF AVAILABLE PAGEABLE STORAGE ( IF V=R 00015000
R08341DK: * AREA IS UNLOCKED THEN IT WILL BECOME PAGEABLE 00016000
R08341DK: * STORAGE ) FOR A PAGE WITH THE HARDWARE 'REFERENCED' 00017000
R08341DK: * BITS = 0 00018000
R08341DK: ./ I 1238000 $ 1238100 50 00019000
R08341DK: NI SCANFLAG,255-PASSTWO INITIALIZE FLAG TO 1ST PASS@VA08341 00020000
R08341DK: MVC SCANSTRT(2),SCANBLOK STARTING SCAN AT THIS @VA08341 00021000
R08341DK: * BLOCK OF FRAMES 00022000
R08341DK: LA R1,CURPNT LOAD ADDR OF INDEX TO CORETABLE @VA08341 00023000
R08341DK: ./ D 1241000 00024000
R08341DK: ./ D 1248000 1250000 00025000
R08341DK: ./ R 1251000 1252000 $ 1251100 50 00026000
R08341DK: LA R6,TOPPNT LOAD ADDRESS FOR LAST PART OF @VA08341 00027000
R08341DK: * COMPLETE SCAN 00028000
R08341DK: CR R6,R1 DID WE JUST SCAN THIS TOP PART? @VA08341 00029000
R08341DK: BNE NEXTBLOK NO--WE ARE NOT DONE YET @VA08341 00030000
R08341DK: LA R1,20(R1) ADDRESS OF 'FENCE' @VA08341 00031000
R08341DK: B PASSONE GO LOAD NEXT SET OF POINTERS @VA08341 00032000
R08341DK: NEXTBLOK LH R6,SCANBLOK BLOCK OF FRAMES WE ARE SCANNING @VA08341 00033000
R08341DK: BCTR R6,0 MOVE ON TO NEXT LOWER BLOCK @VA08341 00034000
R08341DK: C R6,F1 ARE WE NOW POINTING TO BLOCK 1? @VA08341 00035000
R08341DK: BH TSTSTART NO--TEST TO SEE IF WE ARE BACK @VA08341 00036000
R08341DK: * WHERE WE BEGAN THE SCAN 00037000
R08341DK: BL SETBLKNO AT BLOCK '0'--SET TO HIGH BLOCK @VA08341 00038000
R08341DK: TM SCANFLAG,VEQRUNLK AT BLOCK 1--HAS V=R AREA BEEN @VA08341 00039000
R08341DK: * UNLOCKED? 00040000
R08341DK: BO TSTSTART YES. OK TO SCAN THIS BLOCK. @VA08341 00041000
R08341DK: SETBLKNO LA R6,1 VALUE TO INCREMENT @VA08341 00042000
R08341DK: AL R6,DMKPTRCS COUNT OF CORE TABLE WRAPS @VA08341 00043000
R08341DK: ST R6,DMKPTRCS UPDATE COUNTER @VA08341 00044000
R08341DK: LH R6,SCANNUM UPDATE BLOCK POINTER TO TOP BLOCK@VA08341 00045000
R08341DK: TSTSTART STH R6,SCANBLOK UPDATE CURRENT BLOCK POINTER @VA08341 00046000
R08341DK: CH R6,SCANNUM ARE WE SCANNING TOP BLOCK? @VA08341 00047000
R08341DK: BNE CALCSTRT IF NOT, CALCULATE FULLSCAN PTR. @VA08341 00048000
R08341DK: LA R1,FULLSCAN START AT FULLSCAN OF TOP BLOCK @VA08341 00049000
R08341DK: B TST2 TEST FOR END OF FIRST PASS @VA08341 00050000
R08341DK: CALCSTRT LH R15,SCANNUM NUMBER OF FRAME BLOCKS TO SCAN @VA08341 00051000
R08341DK: SR R15,R6 SUBTRACT CURRENT BLOCK NUMBER @VA08341 00052000
R08341DK: SR R14,R14 GET READY FOR MULTIPLY @VA08341 00053000
R08341DK: M R14,F20 20 BYTES FOR EACH FULLSCAN ENTRY @VA08341 00054000
R08341DK: LA R1,FULLSCAN(R15) POINT TO CURRENT FULLSCAN ENTRY@VA08341 00055000
R08341DK: TST2 CH R6,SCANSTRT IS THIS THE BLOCK WE STARTED THE @VA08341 00056000
R08341DK: * SCAN ON? 00057000
R08341DK: BNE PASSONE NO--STILL ON THE FIRST PASS @VA08341 00058000
R08341DK: TM SCANFLAG,PASSTWO HAVE WE COMPLETED TWO PASSES? @VA08341 00059000
R08341DK: BO DOTOP YES--DO TOP SCAN @VA08341 00060000
R08341DK: OI SCANFLAG,PASSTWO INDICATE NOW ON 2ND FULL PASS @VA08341 00061000
R08341DK: PASSONE LM R6,R9,0(R1) LOAD NEXT SET OF POINTERS @VA08341 00062000
R08341DK: ./ I 1265000 $ 1265100 50 00063000
R08341DK: SPACE 00064000
R08341DK: DOTOP LA R1,TOPPNT LOAD ADDRESS FOR LAST PART OF @VA08341 00065000
R08341DK: * COMPLETE SCAN 00066000
R08341DK: B PASSONE GO LOAD NEXT SET OF POINTERS @VA08341 00067000
R08341DK: SPACE 00068000
R08341DK: ./ I 1348000 $ 1348100 50 00069000
R08341DK: CLC SCANBLOK(2),SCANSTRT IS FRAME IN THE CURRENT @VA08341 00070000
R08341DK: * BLOCK? 00071000
R08341DK: BE EXTSRCH YES--OTHER POINTERS ARE OK @VA08341 00072000
R08341DK: LH R0,SCANBLOK POINTER TO CURRENT BLOK OF FRAMES@VA08341 00073000
R08341DK: LH R1,SCANNUM NO. OF BLOCKS AVAILABLE TO SCAN @VA08341 00074000
R08341DK: SR R1,R0 START TO CALCULATE CURRENT @VA08341 00075000
R08341DK: * BLOCK'S FULLSCAN ENTRY 00076000
R08341DK: SR R0,R0 GET READY FOR MULTIPLY @VA08341 00077000
R08341DK: M R0,F20 20 BYTES PER FULLSCAN ENTRY @VA08341 00078000
R08341DK: LA R1,FULLSCAN(R1) CURRENT BLOCK'S FULLSCAN ENTRY @VA08341 00079000
R08341DK: MVC CURPNT+12(4),12(R1) UPDATE CURPNT ADDRESSES @VA08341 00080000
R08341DK: MVC TOPPNT(8),0(R1) UPDATE TOPPNT ADDRESSES @VA08341 00081000
R08341DK: ./ I 2071480 $ 2071485 5 00082000
R08341DK: CL R11,ASYSVM ENTERED FOR SYSTEM VMBLOK? @VA08341 00083000
R08341DK: BE EXITA YES, ALL DONE @VA08341 00084000
R08341DK: ./ R 2127000 $ 2127100 00085000
R08341DK: * DC A(LOWEST PAGEABLE CORETBL ENTRY THIS BLOK),A(INCREMENT) 00086000
R08341DK: ./ R 2130000 $ 2130100 50 00087000
R08341DK: FULLSCAN EQU * START OF FULLSCAN TABLE @VA08341 00088000
R08341DK: *FULSCAN2 DC A(ADDR. OF HIGHEST PAGEABLE PAGE),A(HIGH CORETBL ENTRY) 00089000
R08341DK: ./ I 2131000 $ 2131100 100 00090000
R08341DK: FULSCAN2 DC A(0),A(0),A(-16),A(0),A(4096) @VA08341 00091000
R08341DK: *FULSCAN1 DC A(ADDR. OF HIGHEST V=R PAGE),A(HIGH V=R CORETBL ENTRY) 00092000
R08341DK: * DC A(INDEX CONST.),A(1ST V=R CORETBL ENTRY),A(INCRE) 00093000
R08341DK: FULSCAN1 DC A(0),A(0),A(-16),A(0),A(4096) @VA08341 00094000
R08341DK: ./ D 2132000 00095000
R08341DK: ./ R 2133000 $ 2133100 100 00096000
R08341DK: *TOPPNT DC A(ADDRESS HIGHEST PAGEABLE PAGE THIS BLOK), 00097000
R08341DK: * DC A(HIGHEST CORETBL ENTRY THIS BLOK), 00098000
R08341DK: ./ I 2142000 $ 2142100 50 00099000
R08341DK: DMKPTRSN EQU * @VA08341 00100000
R08341DK: SCANNUM DC H'0' NUMBER OF FRAME BLOCKS AVAILABLE @VA08341 00101000
R08341DK: * FOR SCAN 00102000
R08341DK: SCANBLOK DC H'0' NUMBER OF BLOCK CURRENTLY BEING @VA08341 00103000
R08341DK: * SCANNED 00104000
R08341DK: SCANSTRT DC H'0' NUMBER OF BLOCK WHERE CURRENT @VA08341 00105000
R08341DK: * SCAN STARTED 00106000
R08341DK: SCANFLAG DC X'0' FLAGS FOR SCAN PROCESS @VA08341 00107000
R08341DK: PASSTWO EQU X'80' SCAN IS NOW ON 2ND FULL PASS @VA08341 00108000
R08341DK: * THROUGH THE BLOCKS OF FRAMES 00109000
R08341DK: VEQRUNLK EQU X'40' V=R AREA HAS BEEN UNLOCKED BY THE@VA08341 00110000
R08341DK: * OPERATOR AND IS AVAILABLE TO THE 00111000
R08341DK: * SCAN PROCESS 00112000
BEGIN APPLY >>> ./ I 253000 $ 253100 00001000
END APPLY >>> ./ I 253000 $ 253100 00001000
BEGIN APPLY >>> ./ I 991000 $ 991100 100 00003000
END APPLY >>> ./ I 991000 $ 991100 100 00003000
BEGIN APPLY >>> ./ R 992000 $ 992100 00005000
END APPLY >>> ./ R 992000 $ 992100 00005000
BEGIN APPLY >>> ./ R 993000 $ 993100 00007000
END APPLY >>> ./ R 993000 $ 993100 00007000
BEGIN APPLY >>> ./ I 999000 $ 999100 100 00009000
END APPLY >>> ./ I 999000 $ 999100 100 00009000
BEGIN APPLY >>> ./ R 01148000 01149000 $ 01148100 500 00014000
END APPLY >>> ./ R 01148000 01149000 $ 01148100 500 00014000
BEGIN APPLY >>> ./ I 1238000 $ 1238100 50 00019000
END APPLY >>> ./ I 1238000 $ 1238100 50 00019000
BEGIN APPLY >>> ./ D 1241000 00024000
END APPLY >>> ./ D 1241000 00024000
BEGIN APPLY >>> ./ D 1248000 1250000 00025000
END APPLY >>> ./ D 1248000 1250000 00025000
BEGIN APPLY >>> ./ R 1251000 1252000 $ 1251100 50 00026000
END APPLY >>> ./ R 1251000 1252000 $ 1251100 50 00026000
BEGIN APPLY >>> ./ I 1265000 $ 1265100 50 00063000
END APPLY >>> ./ I 1265000 $ 1265100 50 00063000
BEGIN APPLY >>> ./ I 1348000 $ 1348100 50 00069000
END APPLY >>> ./ I 1348000 $ 1348100 50 00069000
BEGIN APPLY >>> ./ I 2071480 $ 2071485 5 00082000
END APPLY >>> ./ I 2071480 $ 2071485 5 00082000
BEGIN APPLY >>> ./ R 2127000 $ 2127100 00085000
END APPLY >>> ./ R 2127000 $ 2127100 00085000
BEGIN APPLY >>> ./ R 2130000 $ 2130100 50 00087000
END APPLY >>> ./ R 2130000 $ 2130100 50 00087000
BEGIN APPLY >>> ./ I 2131000 $ 2131100 100 00090000
END APPLY >>> ./ I 2131000 $ 2131100 100 00090000
BEGIN APPLY >>> ./ D 2132000 00095000
END APPLY >>> ./ D 2132000 00095000
BEGIN APPLY >>> ./ R 2133000 $ 2133100 100 00096000
END APPLY >>> ./ R 2133000 $ 2133100 100 00096000
BEGIN APPLY >>> ./ I 2142000 $ 2142100 50 00099000
END APPLY >>> ./ I 2142000 $ 2142100 50 00099000
Update Succeeded
Update Execution Time 63 milliseconds.
R10449DK
Date Thursday Apr 03, 1980 12:07:00 PM
Loaded from MAINT(294)
R10449DK: ./ I 26000 $ 26100 100 00001000
R10449DK: * DMKPTRPW - WAIT FOR USER PAGING TO COMPLETE 00002000
R10449DK: ./ I 99000 $ 99100 100 00003000
R10449DK: * FOR DMKPTRPW 00004000
R10449DK: * GPR11 = ADDRESS OF VMBLOK OF VIRTUAL MEMORY'S OWNER 00005000
R10449DK: * GPR12 = ADDRESS OF ENTRY POINT 00006000
R10449DK: * GPR13 = ADDRESS OF SAVEAREA 00007000
R10449DK: * 00008000
BEGIN APPLY >>> ./ I 26000 $ 26100 100 00001000
END APPLY >>> ./ I 26000 $ 26100 100 00001000
BEGIN APPLY >>> ./ I 99000 $ 99100 100 00003000
END APPLY >>> ./ I 99000 $ 99100 100 00003000
Update Succeeded
Update Execution Time 23 milliseconds.
R09460DK
Date Tuesday Jul 08, 1980 06:30:00 AM
Loaded from MAINT(294)
R09460DK: ./ I 1578000 $ 1578500 500
R09460DK: NI SWPFLAG,X'FF'-SWPRECMP TURN OFF SWAPRECMP @VA09460
BEGIN APPLY >>> ./ I 1578000 $ 1578500 500
END APPLY >>> ./ I 1578000 $ 1578500 500
Update Succeeded
Update Execution Time 23 milliseconds.
R12596DK
Date Tuesday Apr 07, 1981 03:30:00 AM
Loaded from MAINT(294)
R12596DK: ./ I 955000 $ 955100 200
R12596DK: LA R0,CPEXSIZE MUST GET CPEXBLOK TOO @VA12596
R12596DK: CALL DMKFREE @VA12596
R12596DK: ST R1,4(,R4) PUT CPEX POINTER IN DMKFREAP @VA12596
BEGIN APPLY >>> ./ I 955000 $ 955100 200
END APPLY >>> ./ I 955000 $ 955100 200
Update Succeeded
Update Execution Time 16 milliseconds.
R12685DK
Date Wednesday Jun 03, 1981 05:06:00 AM
Loaded from MAINT(294)
R12685DK: ./ R 827000 $ 827050 50 00003000
R12685DK: TM SWPFLAG,SWPSHR SHARED PAGE @VA12685 00004000
R12685DK: BZ BADBKST NO, SKIP UNSHARE OF USER @VA12685 00005000
R12685DK: MVC PAGCORE,INVLPTE INVALIDATE PTE @VA12685 00007000
R12685DK: XC CORPGPNT(4),CORPGPNT CLEAR CORETBL PTE PTR @VA12685 00013000
R12685DK: SLR R0,R0 ... @VA12685 00014000
R12685DK: STCM R0,B'0111',CORSWPNT+1 CLR SWPTBL PTR IN CORETBL @VA12685 00015000
R12685DK: NI CORFLAG,255-CORSHARE CLEAR FLAGS @VA12685 00016000
R12685DK: CALL DMKPTRFT PLACE FRAME ON FREE LIST @VA12685 00017000
R12685DK: B HNDLERR ISSUE CP MSG OR RETURN TO USER @VA12685 00018000
R12685DK: SPACE 1 00019000
R12685DK: INVLPTE DC X'0008' INVALID PTE CONSTANT @VA12685 00020000
R12685DK: SPACE 1 00021000
R12685DK: BADBKST OI SWPFLAG,SWPRECMP BACKING STORE UNUSABLE @VA12685 00022000
R12685DK: ./ R 829000 $ 829500 00023000
R12685DK: HNDLERR TM SAVER2+3,IOERETN USER WANT TO HANDLE ERROR ? @VA12685 00024000
BEGIN APPLY >>> ./ R 827000 $ 827050 50 00003000
END APPLY >>> ./ R 827000 $ 827050 50 00003000
BEGIN APPLY >>> ./ R 829000 $ 829500 00023000
END APPLY >>> ./ R 829000 $ 829500 00023000
Update Succeeded
Update Execution Time 23 milliseconds.
R11926DK
Date Tuesday Jun 09, 1981 05:29:00 AM
Loaded from MAINT(294)
R11926DK: ./ I 993100 $ 993400 300 00001000
R11926DK: LTR R6,R6 TEST IF TABLES HAVE BEEN EXCEEDED@VA11926 00002000
R11926DK: BM SCNEND YES--BRANCH OUT @VA11926 00003000
R11926DK: ./ I 999300 $ 999350 50 00004000
R11926DK: SCNEND DS 0H @VA11926 00005000
BEGIN APPLY >>> ./ I 993100 $ 993400 300 00001000
END APPLY >>> ./ I 993100 $ 993400 300 00001000
BEGIN APPLY >>> ./ I 999300 $ 999350 50 00004000
END APPLY >>> ./ I 999300 $ 999350 50 00004000
Update Succeeded
Update Execution Time 23 milliseconds.