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