ibm:vm370-lib:cp:dmkptr.assemble_hst
Table of Contents
DMKPTR History
References
- Fixes Applied : 13
- Latest Source Date : Thursday, December 7, 1978
- 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.
ibm/vm370-lib/cp/dmkptr.assemble_hst.txt · Last modified: 2023/08/06 13:37 by Site Administrator