DMKPAG History
References
-
-
Fixes Applied : 10
-
Last Fix ID : [HRC106DK]
Update History
CMS File Input : DMKPAG ASSEMBLE
Date : 12/14/1978 8:51:00 AM
VM Context : MAINT(394)
File Name : DMKPAG.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:47 AM
Created : 1/16/2021 7:31:47 AM
Update Order
R09047DK 602 VMAP SHOWS SEEKS TO CYLINDER 0 BECAUSE IOBCYL IS ZERO IN DMKPAG
R09024DK 602 PE V08404 RESTORE CODE AND CHECK RETURN FROM SCNRU
R09957DK 604 CORRECT IOBLOK CONFLICT IN MSS SUPPORT
R10074DK 604 PRG009 AFTER VARY OFFLINE OF I/O PROCESSOR, THEN VARY ONLINE
R09257DK 606 POOR RESPONSE TIME WITH AP SYSTEM
R10137DK 607 DMKUSO DMKPAG DO NOT SYNCHRONIZE USE OF IOBSTACK IN DMKPAG
R10805DK 611 DMKDSPRU DMKLOKSY UNRESOLVED REFERENCES ON NON-AP SYSTEM
R11404DK 614 UV01209 REMOVE CODE IN DMKPAG DMKUSO TO LOCK IOBSTACK
R11208DK 614 UV01527 ON PAGING I/O ERROR, FRET COPIED IOBLOKS.
HRC106DK H40 SYSOWN support for 3375 & 3380 dasd
R09047DK
Date Monday Apr 23, 1979 04:23:00 AM
Loaded from MAINT(294)
R09047DK: ./ R 01280000 $ 01280000 00001000
R09047DK: * IN DMKUSO AND DMKMON 00002000
BEGIN APPLY >>> ./ R 01280000 $ 01280000 00001000
END APPLY >>> ./ R 01280000 $ 01280000 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R09024DK
Date Monday Apr 23, 1979 04:23:00 AM
Loaded from MAINT(294)
R09024DK: ./ R 1024000 $ 1024100 00001000
R09024DK: ICM R4,B'1111',PAGEIOB CHAINED IOBLOK POINTER @VA09024 00002000
R09024DK: ./ R 1026000 1035000 $ 1026100 100 00003000
R09024DK: LH R1,IOBRADD GET THE REAL DEVIVE ADDRESS @VA09024 00004000
R09024DK: CALL DMKSCNRU GET RDEVBLOK ADDRESS FOR IOS @VA09024 00005000
R09024DK: BNZ WTPGERRC SOMETHING IS SICK, RETURN @VA09024 00006000
R09024DK: WTPGERRA DS 0H @VA09024 00007000
BEGIN APPLY >>> ./ R 1024000 $ 1024100 00001000
END APPLY >>> ./ R 1024000 $ 1024100 00001000
BEGIN APPLY >>> ./ R 1026000 1035000 $ 1026100 100 00003000
END APPLY >>> ./ R 1026000 1035000 $ 1026100 100 00003000
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 16 milliseconds.
R10074DK
Date Thursday Jul 19, 1979 09:37:00 AM
Loaded from MAINT(294)
R10074DK: ./ I 1133000 $ 1133100 100
R10074DK: COMPSTAT DS 0H @VM00029
R10074DK: ./ R 1134000 $ 1134100
R10074DK: TM APSTAT1,PROCIPL IS THIS THE IPL'ED PROCESSOR? @VMV0008
R10074DK: ./ R 1135000 $ 1135100
R10074DK: BO COMPSTA2 YES, BRANCH @VM00029
R10074DK: ./ R 1138000 $ 1138100
R10074DK: COMPSTA2 DS 0H @VM00029
R10074DK: ./ R 1174000 $ 1174100
R10074DK: BCT R13,COMPSTA2 COMPUTE PAGING STATISTICS FOR @VM00036
BEGIN APPLY >>> ./ I 1133000 $ 1133100 100
END APPLY >>> ./ I 1133000 $ 1133100 100
BEGIN APPLY >>> ./ R 1134000 $ 1134100
END APPLY >>> ./ R 1134000 $ 1134100
BEGIN APPLY >>> ./ R 1135000 $ 1135100
END APPLY >>> ./ R 1135000 $ 1135100
BEGIN APPLY >>> ./ R 1138000 $ 1138100
END APPLY >>> ./ R 1138000 $ 1138100
BEGIN APPLY >>> ./ R 1174000 $ 1174100
END APPLY >>> ./ R 1174000 $ 1174100
Update Succeeded
Update Execution Time 8 milliseconds.
R09257DK
Date Wednesday Oct 31, 1979 09:20:00 AM
Loaded from MAINT(294)
R09257DK: ./ I 397000 $ 397500 00001000
R09257DK: EXTRN DMKDSPRU @VA09257 00002000
R09257DK: ./ I 876000 $ 876100 100 00003000
R09257DK: TM APSTAT1,APUOPER RUNNING AP? @VA09257 00004000
R09257DK: BNO NORMEXT NOT AP EXIT NORMALLY. @VA09257 00005000
R09257DK: L R15,PREFIXA ACCESS OTHER PSA @VA09257 00006000
R09257DK: CLI XTNDLOCK-PSA(R15),0 IS SYSTEM EXTENDING? @VA09257 00007000
R09257DK: BE NOEXTEN NO NOT EXTENDING FREE STORAGE. @VA09257 00008000
R09257DK: NORMEXT DS 0H @VA09257 00009000
R09257DK: ./ I 877000 $ 877100 100 00010000
R09257DK: NOEXTEN DS 0H @VA09257 00011000
R09257DK: L R15,PREFIXB ACCESS OTHER PSA @VA09257 00012000
R09257DK: TM XCPEND-PSA(R15),XCDISP DISPATCH PENDING? @VA09257 00013000
R09257DK: BZ NORMEXT NO DISPATCH PENDING. @VA09257 00014000
R09257DK: LOCK RELEASE,TYPE=SYS YES,RELEASE THE LOCK @VA09257 00015000
R09257DK: GOTO DMKDSPRU UNLOCKED ENTRY TO DSP @VA09257 00016000
BEGIN APPLY >>> ./ I 397000 $ 397500 00001000
END APPLY >>> ./ I 397000 $ 397500 00001000
BEGIN APPLY >>> ./ I 876000 $ 876100 100 00003000
END APPLY >>> ./ I 876000 $ 876100 100 00003000
BEGIN APPLY >>> ./ I 877000 $ 877100 100 00010000
END APPLY >>> ./ I 877000 $ 877100 100 00010000
Update Succeeded
Update Execution Time 16 milliseconds.
R10137DK
Date Monday Dec 03, 1979 09:18:00 AM
Loaded from MAINT(294)
R10137DK: ./ I 400000 $ 400100 200 00001000
R10137DK: AIF (NOT &AP).NOAP10 @VA10137 00002000
R10137DK: ENTRY DMKPAGLK @VA10137 00002000
R10137DK: .NOAP10 ANOP @VA10137 00002000
R10137DK: ./ I 501000 $ 501100 25 00003000
R10137DK: AIF (NOT &AP).NOAP5 @VA10137 00004000
R10137DK: CHECKLOK DS 0H @VA10137 00005000
R10137DK: SR R3,R3 ZERO REG FOR COMPARE AND SWAP @VA10137 00006000
R10137DK: LA R9,IOBSTACK GET THE ADDRESS OF THE IOBSTACK @VA10137 00007000
R10137DK: CS R3,R9,IOBLOCK IS IOBSTACK IN USE? @VA10137 00008000
R10137DK: BZ USESTK1 NO,THEN WE CAN USE IOBSTACK @VA10137 00009000
R10137DK: SPINLOK1 DS 0H YES,SPIN UNTIL NOT IN USE @VA10137 00010000
R10137DK: SR R3,R3 CLEAR REG3 FOR THE COMPARE @VA10137 00011000
R10137DK: C R3,IOBLOCK COMPARE LOCKWORD IN DMKPAG @VA10137 00012000
R10137DK: BZ CHECKLOK OK,IOBSTACK IS NO LONGER IN USE @VA10137 00013000
R10137DK: B SPINLOK1 KEEP SPINNING! @VA10137 00014000
R10137DK: USESTK1 DS 0H @VA10137 00015000
R10137DK: .NOAP5 ANOP 00016000
R10137DK: ./ I 502000 $ 502200 200 00017000
R10137DK: AIF (NOT &AP).NOAP6 @VA10137 00018000
R10137DK: ST R3,IOBLOCK ZERO THE LOCKWORD IN DMKPAG @VA10137 00019000
R10137DK: .NOAP6 ANOP 00020000
R10137DK: ./ R 1000000 $ 1000100 25 00021000
R10137DK: UNSTACK1 DS 0H @VA10137 00022000
R10137DK: AIF (NOT &AP).NOAP7 @VA10137 00023000
R10137DK: SR R5,R5 ZERO REG FOR COMPARE AND SWAP @VA10137 00024000
R10137DK: LA R7,IOBSTACK GET THE ADDRESS OF THE IOBSTACK @VA10137 00025000
R10137DK: CS R5,R7,IOBLOCK IS THE IOBSTACK IN USE? @VA10137 00026000
R10137DK: BZ USESTK2 NO,THE WE CAN USE IOBSTACK @VA10137 00027000
R10137DK: SPINLOK2 DS 0H YES,SPIN UNTIL NOT IN USE @VA10137 00028000
R10137DK: SR R5,R5 ZERO REG5 FOR THE COMPARE @VA10137 00029000
R10137DK: C R5,IOBLOCK COMPARE LOCKWORD IN DMKPAG @VA10137 00030000
R10137DK: BZ UNSTACK1 OK,IOBSTACK IS NO LONGER IN USE @VA10137 00031000
R10137DK: B SPINLOK2 KEEP SPINNING! @VA10137 00032000
R10137DK: USESTK2 DS 0H @VA10137 00033000
R10137DK: .NOAP7 ANOP 00034000
R10137DK: L R0,IOBSTACK GET TOP OF IOBSTACK @VA10137 00035000
R10137DK: ./ I 1001000 $ 1001200 25 00036000
R10137DK: AIF (NOT &AP).NOAP8 @VA10137 00037000
R10137DK: ST R5,IOBLOCK ZERO THE LOCKWORD IN DMKPAG @VA10137 00038000
R10137DK: .NOAP8 ANOP 00039000
R10137DK: ./ I 1252000 $ 1252100 100 00040000
R10137DK: AIF (NOT &AP).NOAP9 @VA10137 00042000
R10137DK: IOBLOCK DC F'0' LOCKWORD FOR THE IOBSTACK @VA10137 00043000
R10137DK: DMKPAGLK EQU IOBLOCK ENTRY TO GET TO CHECK FOR THE @VA10137 00044000
R10137DK: * LOCK OF THE IOBSTACK 00045000
R10137DK: .NOAP9 ANOP 00046000
BEGIN APPLY >>> ./ I 400000 $ 400100 200 00001000
END APPLY >>> ./ I 400000 $ 400100 200 00001000
BEGIN APPLY >>> ./ I 501000 $ 501100 25 00003000
END APPLY >>> ./ I 501000 $ 501100 25 00003000
BEGIN APPLY >>> ./ I 502000 $ 502200 200 00017000
END APPLY >>> ./ I 502000 $ 502200 200 00017000
BEGIN APPLY >>> ./ R 1000000 $ 1000100 25 00021000
END APPLY >>> ./ R 1000000 $ 1000100 25 00021000
BEGIN APPLY >>> ./ I 1001000 $ 1001200 25 00036000
END APPLY >>> ./ I 1001000 $ 1001200 25 00036000
BEGIN APPLY >>> ./ I 1252000 $ 1252100 100 00040000
END APPLY >>> ./ I 1252000 $ 1252100 100 00040000
Update Succeeded
Update Execution Time 23 milliseconds.
R10805DK
Date Monday Apr 07, 1980 02:25:00 AM
Loaded from MAINT(294)
R10805DK: ./ D 397500 $ 00001000
R10805DK: ./ I 400300 $ 400310 10 00002000
R10805DK: EXTRN DMKDSPRU @VA10805 00003000
R10805DK: ./ I 876000 $ 876010 10 00004000
R10805DK: AIF (NOT &AP).NOAP11 @VA10805 00005000
R10805DK: ./ I 876600 $ 876610 10 00006000
R10805DK: .NOAP11 ANOP 00007000
R10805DK: ./ I 877000 $ 877010 10 00008000
R10805DK: AIF (NOT &AP).NOAP12 @VA10805 00009000
R10805DK: ./ I 877600 $ 877610 10 00010000
R10805DK: .NOAP12 ANOP 00011000
BEGIN APPLY >>> ./ D 397500 $ 00001000
END APPLY >>> ./ D 397500 $ 00001000
BEGIN APPLY >>> ./ I 400300 $ 400310 10 00002000
END APPLY >>> ./ I 400300 $ 400310 10 00002000
BEGIN APPLY >>> ./ I 876000 $ 876010 10 00004000
END APPLY >>> ./ I 876000 $ 876010 10 00004000
BEGIN APPLY >>> ./ I 876600 $ 876610 10 00006000
END APPLY >>> ./ I 876600 $ 876610 10 00006000
BEGIN APPLY >>> ./ I 877000 $ 877010 10 00008000
END APPLY >>> ./ I 877000 $ 877010 10 00008000
BEGIN APPLY >>> ./ I 877600 $ 877610 10 00010000
END APPLY >>> ./ I 877600 $ 877610 10 00010000
Update Succeeded
Update Execution Time 16 milliseconds.
R11404DK
Date Tuesday Jul 08, 1980 05:15:00 AM
Loaded from MAINT(294)
R11404DK: ./ D 400300 $
R11404DK: ./ D 501100 501400 $
R11404DK: ./ D 502200 502600 $
R11404DK: ./ D 1000125 1000400 $
R11404DK: ./ D 1001200 1001250 $
R11404DK: ./ D 1252100 1252500 $
BEGIN APPLY >>> ./ D 400300 $
END APPLY >>> ./ D 400300 $
BEGIN APPLY >>> ./ D 501100 501400 $
END APPLY >>> ./ D 501100 501400 $
BEGIN APPLY >>> ./ D 502200 502600 $
END APPLY >>> ./ D 502200 502600 $
BEGIN APPLY >>> ./ D 1000125 1000400 $
END APPLY >>> ./ D 1000125 1000400 $
BEGIN APPLY >>> ./ D 1001200 1001250 $
END APPLY >>> ./ D 1001200 1001250 $
BEGIN APPLY >>> ./ D 1252100 1252500 $
END APPLY >>> ./ D 1252100 1252500 $
Update Succeeded
Update Execution Time 23 milliseconds.
R11208DK
Date Tuesday Jul 08, 1980 06:09:00 AM
Loaded from MAINT(294)
R11208DK: ./ D 935000 $ 00001000
R11208DK: ./ R 1017000 1019000 $ 1017000 1000 00002000
R11208DK: CL R10,IOBLINK LAST IOBLOK ? @VA11208 00003000
R11208DK: BE WTPGERRX YES @VA11208 00004000
R11208DK: LA R0,IOBSIZE NO,RETURN @VA11208 00005000
BEGIN APPLY >>> ./ D 935000 $ 00001000
END APPLY >>> ./ D 935000 $ 00001000
BEGIN APPLY >>> ./ R 1017000 1019000 $ 1017000 1000 00002000
END APPLY >>> ./ R 1017000 1019000 $ 1017000 1000 00002000
Update Succeeded
Update Execution Time 16 milliseconds.
HRC106DK
Date Tuesday Feb 16, 2016 04:17:00 PM
Loaded from MAINT(094)
HRC106DK: ./ I 00564000 $ 00564100 100
HRC106DK: CLI RDEVTYPE,TYP3375 Paging on 3375 ? HRC106DK
HRC106DK: BE PAG3375 Yes, calculate head number HRC106DK
HRC106DK: SPACE 1 HRC106DK
HRC106DK: CLI RDEVTYPE,TYP3380 Paging on 3380 ? HRC106DK
HRC106DK: BE PAG3380 Yes, calculate head number HRC106DK
HRC106DK: SPACE 1 HRC106DK
HRC106DK: ./ I 00586000 $ 00586050 50
HRC106DK: B GETSECTR HRC106DK
HRC106DK: SPACE 1 HRC106DK
HRC106DK: PAG3375 D R2,F8 Calculate head number HRC106DK
HRC106DK: LA R1,SECT3375 Sector table 3375 HRC106DK
HRC106DK: B GETSECTR HRC106DK
HRC106DK: SPACE 1 HRC106DK
HRC106DK: PAG3380 D R2,F10 Calculate head number HRC106DK
HRC106DK: LA R1,SECT3380 Sector table 3380 HRC106DK
HRC106DK: SPACE 1 HRC106DK
HRC106DK: ./ I 00637000 $ 00637100 100
HRC106DK: CLI RDEVTYPE,TYP3375 3375 device ? HRC106DK
HRC106DK: BE SORT3375 Yes, slot sort within cylinder(s)HRC106DK
HRC106DK: CLI RDEVTYPE,TYP3380 3380 device ? HRC106DK
HRC106DK: BE SORT3380 Yes, slot sort within cylinder(s)HRC106DK
HRC106DK: ./ I 00660000 $ 00660100 100
HRC106DK: MVI LASTSLOT,4 Highest slot number for 3350 HRC106DK
HRC106DK: ./ I 00661000 $ 00661100 100
HRC106DK: SORT3375 LA R15,CCW3350 3350/75/80 chain IOBLOK routine HRC106DK
HRC106DK: MVI LASTSLOT,8 Highest slot number for 3375 HRC106DK
HRC106DK: B SORT2305 Perform 3375 slot sort HRC106DK
HRC106DK: SORT3380 LA R15,CCW3350 3350/75/80 chain IOBLOK routine HRC106DK
HRC106DK: MVI LASTSLOT,10 Highest slot number for 3380 HRC106DK
HRC106DK: B SORT2305 Perform 3380 slot sort HRC106DK
HRC106DK: ./ R 00902000 $ 00902100 100
HRC106DK: RCDON50 CLC PAGESRCD-IOBLOK(1,R2),LASTSLOT Highest slot? HRC106DK
HRC106DK: ./ I 01257000 $ 01257100 100
HRC106DK: LASTSLOT DS XL1 Highest slot number on 3350/75/80HRC106DK
HRC106DK: ./ I 01269000 $ 01269100 100
HRC106DK: SECT3375 DC AL1(4,27,51,75,98,122,145,169) HRC106DK
HRC106DK: SECT3380 DC AL1(5,26,46,67,87,108,128,149,170,190) HRC106DK
BEGIN APPLY >>> ./ I 00564000 $ 00564100 100
END APPLY >>> ./ I 00564000 $ 00564100 100
BEGIN APPLY >>> ./ I 00586000 $ 00586050 50
END APPLY >>> ./ I 00586000 $ 00586050 50
BEGIN APPLY >>> ./ I 00637000 $ 00637100 100
END APPLY >>> ./ I 00637000 $ 00637100 100
BEGIN APPLY >>> ./ I 00660000 $ 00660100 100
END APPLY >>> ./ I 00660000 $ 00660100 100
BEGIN APPLY >>> ./ I 00661000 $ 00661100 100
END APPLY >>> ./ I 00661000 $ 00661100 100
BEGIN APPLY >>> ./ R 00902000 $ 00902100 100
END APPLY >>> ./ R 00902000 $ 00902100 100
BEGIN APPLY >>> ./ I 01257000 $ 01257100 100
END APPLY >>> ./ I 01257000 $ 01257100 100
BEGIN APPLY >>> ./ I 01269000 $ 01269100 100
END APPLY >>> ./ I 01269000 $ 01269100 100
Update Succeeded
Update Execution Time 23 milliseconds.