DMKMON History
References
-
-
Fixes Applied : 13
-
Last Fix ID : [HRC106DK]
Update History
CMS File Input : DMKMON ASSEMBLE
Date : 12/14/1978 9:00:00 AM
VM Context : MAINT(394)
File Name : DMKMON.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:47 AM
Created : 1/16/2021 7:31:47 AM
Update Order
R08826DK 601 DMKMON X'372' REG6 CONTAINS ADDRESS OF CONTASK CAUSING BAD BRANCH
R09228DK 602 DMKMON UNLOCKS DMKMIAX1 BUT LOCKED DMKMIA WHEN RESIDENT DMKPTRUL
R09336DK 602 MN202REF IN CLASS TWO MONITOR RECORD ALWAYS ZERO
R09047DK 602 VMAP SHOWS SEEKS TO CYLINDER 0 BECAUSE IOBCYL IS ZERO IN DMKPAG
R09957DK - CORRECT IOBLOK CONFLICT IN MSS SUPPORT
R10057DK 607 SERIES OF MONITOR COMMANDS STACKS EXTRA TRQBLOKS
R09843DK 611 FIX FOR MON BUFFER PROB
R09337DK 611 DELETE USE OF MN202REF FIELD IN MN02X DATA AREA
R10215DK 611 UV00432 DMKMON CAUSES UNDOCUMENTED ABEND DUE TO BAD BRANCH ON REG6
R12941DK 622 UV04884 SYNC ERROR RECOV FOR INTERVENTION REQUIRED COND.
R13418DK 623 UV05125 MSG DMK218E AFTER STOP OF MONITOR
HRC101DK V02 TERMINAL ENHANCEMENTS LIKE Z/VM
HRC106DK H40 SYSOWN support for 3375 & 3380 dasd
R08826DK
Date Monday Feb 26, 1979 04:24:00 PM
Loaded from MAINT(294)
R08826DK: ./ I 436000 $ 436500 00001000
R08826DK: NI MONFLAG2,X'BF' RESET MIA PAGEING BIT @VA08826 00002000
R08826DK: ./ R 1545000 $ 1545200 200 00003000
R08826DK: SUSPEXIT TM MONFLAG2,MONMIAPG ARE WE PAGING MIA? @VA08826 00004000
R08826DK: BO EXIT2 YES - IGNORE TIMER BIT NORMAL @VA08826 00005000
R08826DK: * EXIT 00006000
R08826DK: TM MONFLAG1,MONTIINT ARE WE HANDLEING A TIMER INT? @VA08826 00007000
R08826DK: ./ I 1970000 $ 1970500 00008000
R08826DK: OI MONFLAG2,MONMIAPG SET MIA PAGING BIT @VA08826 00009000
BEGIN APPLY >>> ./ I 436000 $ 436500 00001000
END APPLY >>> ./ I 436000 $ 436500 00001000
BEGIN APPLY >>> ./ R 1545000 $ 1545200 200 00003000
END APPLY >>> ./ R 1545000 $ 1545200 200 00003000
BEGIN APPLY >>> ./ I 1970000 $ 1970500 00008000
END APPLY >>> ./ I 1970000 $ 1970500 00008000
Update Succeeded
Update Execution Time 16 milliseconds.
R09228DK
Date Monday Apr 23, 1979 04:20:00 AM
Loaded from MAINT(294)
R09228DK: ./ R 577000 $ 577000 00001000
R09228DK: L R2,=A(DMKMIA) GET ADDRESS OF PAGE TO UNLOCK @VA09228 00002000
BEGIN APPLY >>> ./ R 577000 $ 577000 00001000
END APPLY >>> ./ R 577000 $ 577000 00001000
Update Succeeded
Update Execution Time 23 milliseconds.
R09336DK
Date Monday Apr 23, 1979 04:20:00 AM
Loaded from MAINT(294)
R09336DK: ./ R 697000 698000 $ 697500 100 00001000
R09336DK: MVC MN202REF,MONREGS+R4*4+2 2ND HALF R4 AT MC TIME @VA09336 00002000
R09336DK: * CONTAINS PAGE REF COUNT 00003000
BEGIN APPLY >>> ./ R 697000 698000 $ 697500 100 00001000
END APPLY >>> ./ R 697000 698000 $ 697500 100 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R09047DK
Date Monday Apr 23, 1979 04:20:00 AM
Loaded from MAINT(294)
R09047DK: ./ I 00954000 $ 00954100 100 00001000
R09047DK: TM IOBFLAG,IOBPAG IS THIS A PAGING OPERATION @VA09047 00002000
R09047DK: BNO NOTPAGSK NO NOT PAGING OPERATION @VA09047 00003000
R09047DK: MVC MN700CYL,PAGECYL CYL SEEK ADDRESS @VA09047 00004000
R09047DK: NOTPAGSK DS 0H @VA09047 00005000
R09047DK: ./ I 02012000 $ 02012010 10 00006000
R09047DK: IOBLOK DSECT CONTINUE THE DSECT @VA09047 00007000
R09047DK: * ANY CHANGES IN PAGESIZE MUST ALSO BE REFLECTED 00008000
R09047DK: * IN DMKUSO AND DMKPAG 00009000
R09047DK: ORG , MAKE SURE WE'RE AT THE END @VA09047 00010000
R09047DK: PAGECCWS DS 6D SPACE FOR PAGING CCWS @VA09047 00011000
R09047DK: ORG PAGECCWS CCW DEFINITIONS @VA09047 00012000
R09047DK: PAGESK DS D SPACE FOR SEEK @VA09047 00013000
R09047DK: PAGESS DS D SPACE FOR SET SECTOR @VA09047 00014000
R09047DK: PAGESRCH DS D SPACE FOR SEARCH @VA09047 00015000
R09047DK: PAGESTIC DS F SPACE FOR TIC @VA09047 00016000
R09047DK: PAGEIOB DS F POINTER TO SLOT SORTED IOBLOK @VA09047 00017000
R09047DK: PAGERW DS D SPACE FOR READ/WRITE @VA09047 00018000
R09047DK: PAGEPRI EQU PAGERW+5 SPACE FOR REQUEST PRIORITY @VA09047 00019000
R09047DK: PAGESNS DS D SPACE FOR SENSE/TIC @VA09047 00020000
R09047DK: ORG PAGESNS+7 @VA09047 00021000
R09047DK: PAGESRCD DS X SPACE FOR SLOT NUMBER @VA09047 00022000
R09047DK: PAGESEEK DS D SPACE FOR SEEK ARGUMENT AND @VA09047 00023000
R09047DK: * SECTOR 00024000
R09047DK: ORG PAGESEEK+2 @VA09047 00025000
R09047DK: PAGECYL DS H SPACE FOR CYLINDER ADDRESS @VA09047 00026000
R09047DK: PAGEHEAD DS H SPACE FOR HEAD ADDRESS @VA09047 00027000
R09047DK: PAGERCD DS X SPACE FOR RECORD NUMBER @VA09047 00028000
R09047DK: PAGESECT DS X SECTOR NUMBER @VA09047 00029000
R09047DK: PAGESIZE EQU (*-IOBLOK)/8 SIZE OF EXTENDED IOBLOK IN @VA09047 00030000
R09047DK: * DOUBLE WORDS 00031000
R09047DK: EJECT 00032000
BEGIN APPLY >>> ./ I 00954000 $ 00954100 100 00001000
END APPLY >>> ./ I 00954000 $ 00954100 100 00001000
BEGIN APPLY >>> ./ I 02012000 $ 02012010 10 00006000
END APPLY >>> ./ I 02012000 $ 02012010 10 00006000
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.
R10057DK
Date Friday Dec 07, 1979 08:06:00 AM
Loaded from MAINT(294)
R10057DK: ./ I 1948000 $ 1948200 200 00001000
R10057DK: L R3,=A(DMKPRGTI) GET POINTER TO TIME INCREMENT @VA10057 00002000
R10057DK: LH R3,0(R3) GET TIME INCREMENT @VA10057 00003000
R10057DK: LTR R3,R3 IS THERE ONE? @VA10057 00004000
R10057DK: BZ GOTO NO-NO MORE MONITOR PERF @VA10057 00005000
R10057DK: ./ D 1955000 1956000 $ 00006000
BEGIN APPLY >>> ./ I 1948000 $ 1948200 200 00001000
END APPLY >>> ./ I 1948000 $ 1948200 200 00001000
BEGIN APPLY >>> ./ D 1955000 1956000 $ 00006000
END APPLY >>> ./ D 1955000 1956000 $ 00006000
Update Succeeded
Update Execution Time 16 milliseconds.
R09843DK
Date Saturday Mar 29, 1980 08:23:00 AM
Loaded from MAINT(294)
R09843DK: ./ R 1085000 $ 1085100 00001000
R09843DK: * R2 - RECORD LENGTH + HEADER 00002000
R09843DK: ./ I 1272000 $ 1272500 00003000
R09843DK: CHKROOM1 DS 0H @VA09843 00004000
R09843DK: ./ R 1296000 $ 1296100 00005000
R09843DK: BE CHKROOM1 YES, RETURN @VA09843 00006000
R09843DK: ./ R 1299000 $ 1299100 00007000
R09843DK: BNZ CHKROOM1 OTHER PU INTERFERRED. TRY AGAIN @VA09843 00008000
R09843DK: ./ R 1309000 $ 1309100 00009000
R09843DK: BNZ CHKROOM1 OTHER PU GOT IT. GO GET ANOTHER @VA09843 00010000
R09843DK: ./ I 1336000 $ 1336100 00011000
R09843DK: * R2 - RECORD LENGTH + HEADER 00012000
R09843DK: ./ I 1343000 $ 1343100 00013000
R09843DK: * R2 - MUST REMAIN AS IS RECORD LENGTH + HEADER 00014000
R09843DK: ./ R 1478000 1481000 $ 1478100 500 00015000
R09843DK: LA R4,4088(R4) @VA09843 00016000
R09843DK: LA R8,MONNEXT-PSA(R8) @VA09843 00017000
R09843DK: STM R3,R4,0(R8) @VA09843 00018000
R09843DK: L R8,PREFIXA @VA09843 00019000
BEGIN APPLY >>> ./ R 1085000 $ 1085100 00001000
END APPLY >>> ./ R 1085000 $ 1085100 00001000
BEGIN APPLY >>> ./ I 1272000 $ 1272500 00003000
END APPLY >>> ./ I 1272000 $ 1272500 00003000
BEGIN APPLY >>> ./ R 1296000 $ 1296100 00005000
END APPLY >>> ./ R 1296000 $ 1296100 00005000
BEGIN APPLY >>> ./ R 1299000 $ 1299100 00007000
END APPLY >>> ./ R 1299000 $ 1299100 00007000
BEGIN APPLY >>> ./ R 1309000 $ 1309100 00009000
END APPLY >>> ./ R 1309000 $ 1309100 00009000
BEGIN APPLY >>> ./ I 1336000 $ 1336100 00011000
END APPLY >>> ./ I 1336000 $ 1336100 00011000
BEGIN APPLY >>> ./ I 1343000 $ 1343100 00013000
END APPLY >>> ./ I 1343000 $ 1343100 00013000
BEGIN APPLY >>> ./ R 1478000 1481000 $ 1478100 500 00015000
END APPLY >>> ./ R 1478000 1481000 $ 1478100 500 00015000
Update Succeeded
Update Execution Time 31 milliseconds.
R09337DK
Date Saturday Mar 29, 1980 03:29:00 AM
Loaded from MAINT(294)
R09337DK: ./ R 697500 697600 $ 697700 100 00001000
R09337DK: XC MN202REF,MN202REF FIELD RESERVED FOR IBM USE @VA09337 00002000
BEGIN APPLY >>> ./ R 697500 697600 $ 697700 100 00001000
END APPLY >>> ./ R 697500 697600 $ 697700 100 00001000
Update Succeeded
Update Execution Time 23 milliseconds.
R10215DK
Date Thursday Apr 03, 1980 02:20:00 AM
Loaded from MAINT(294)
R10215DK: ./ D 436500 00001000
R10215DK: ./ I 442000 $ 442500 00002000
R10215DK: BAL R5,TSTSUSP1 @VA10215 00003000
R10215DK: ./ I 547000 $ 547500 00004000
R10215DK: BAL R5,TSTSUSP1 @VA10215 00005000
R10215DK: ./ I 603000 $ 603500 00006000
R10215DK: BAL R5,TSTSUSP @VA10215 00007000
R10215DK: ./ I 624000 $ 624500 00008000
R10215DK: BAL R5,TSTSUSP @VA10215 00009000
R10215DK: ./ I 662000 $ 662500 00010000
R10215DK: BAL R5,TSTSUSP @VA10215 00011000
R10215DK: ./ I 756000 $ 756500 00012000
R10215DK: BAL R5,TSTSUSP @VA10215 00013000
R10215DK: ./ I 825000 $ 825500 00014000
R10215DK: BAL R5,TSTSUSP1 @VA10215 00015000
R10215DK: ./ I 869000 $ 869500 00016000
R10215DK: BAL R5,TSTSUSP @VA10215 00017000
R10215DK: ./ I 908000 $ 908500 00018000
R10215DK: BAL R5,TSTSUSP1 @VA10215 00019000
R10215DK: ./ I 935770 $ 935810 00020000
R10215DK: BAL R5,TSTSUSP1 @VA10215 00021000
R10215DK: ./ I 943000 $ 943500 00022000
R10215DK: BAL R5,TSTSUSP @VA10215 00023000
R10215DK: ./ I 995000 $ 995500 00024000
R10215DK: BAL R5,TSTSUSP @VA10215 00025000
R10215DK: ./ I 1067000 $ 1067500 00026000
R10215DK: * OR AS A CONDITION CODE, 0 ON SUSPEND 00027000
R10215DK: ./ R 1545200 1546000 $ 1545200 100 00028000
R10215DK: SUSPEXIT SR R1,R1 ZERO R1 -- NO BUFFER SPACE @VA10215 00029000
R10215DK: ST R1,SAVER1 PASS R1 TO CALLER @VA10215 00030000
R10215DK: ./ R 1548000 $ 1548100 100 00031000
R10215DK: BR R5 R5 RETURN TO CALLER @VA10215 00032000
R10215DK: TSTSUSP LTR R1,R1 TEST BUFFER SPACE @VA10215 00033000
R10215DK: BZ EXIT2 NO SPACE - LEAVE @VA10215 00034000
R10215DK: BR R5 CONTINUE @VA10215 00035000
R10215DK: TSTSUSP1 LTR R1,R1 TEST BUFFER SPACE @VA10215 00036000
R10215DK: BZR R6 NO SPACE - RETURN TO CALLER @VA10215 00037000
R10215DK: BR R5 CONTINUE @VA10215 00038000
R10215DK: ./ I 1842000 $ 1842300 300 00039000
R10215DK: LTR R1,R1 TEST FOR BUFFER SPACE @VA10215 00040000
R10215DK: BZ GOTO NO SPACE -- DISPATCH @VA10215 00041000
R10215DK: ./ D 1970500 00042000
BEGIN APPLY >>> ./ D 436500 00001000
END APPLY >>> ./ D 436500 00001000
BEGIN APPLY >>> ./ I 442000 $ 442500 00002000
END APPLY >>> ./ I 442000 $ 442500 00002000
BEGIN APPLY >>> ./ I 547000 $ 547500 00004000
END APPLY >>> ./ I 547000 $ 547500 00004000
BEGIN APPLY >>> ./ I 603000 $ 603500 00006000
END APPLY >>> ./ I 603000 $ 603500 00006000
BEGIN APPLY >>> ./ I 624000 $ 624500 00008000
END APPLY >>> ./ I 624000 $ 624500 00008000
BEGIN APPLY >>> ./ I 662000 $ 662500 00010000
END APPLY >>> ./ I 662000 $ 662500 00010000
BEGIN APPLY >>> ./ I 756000 $ 756500 00012000
END APPLY >>> ./ I 756000 $ 756500 00012000
BEGIN APPLY >>> ./ I 825000 $ 825500 00014000
END APPLY >>> ./ I 825000 $ 825500 00014000
BEGIN APPLY >>> ./ I 869000 $ 869500 00016000
END APPLY >>> ./ I 869000 $ 869500 00016000
BEGIN APPLY >>> ./ I 908000 $ 908500 00018000
END APPLY >>> ./ I 908000 $ 908500 00018000
BEGIN APPLY >>> ./ I 935770 $ 935810 00020000
END APPLY >>> ./ I 935770 $ 935810 00020000
BEGIN APPLY >>> ./ I 943000 $ 943500 00022000
END APPLY >>> ./ I 943000 $ 943500 00022000
BEGIN APPLY >>> ./ I 995000 $ 995500 00024000
END APPLY >>> ./ I 995000 $ 995500 00024000
BEGIN APPLY >>> ./ I 1067000 $ 1067500 00026000
END APPLY >>> ./ I 1067000 $ 1067500 00026000
BEGIN APPLY >>> ./ R 1545200 1546000 $ 1545200 100 00028000
END APPLY >>> ./ R 1545200 1546000 $ 1545200 100 00028000
BEGIN APPLY >>> ./ R 1548000 $ 1548100 100 00031000
END APPLY >>> ./ R 1548000 $ 1548100 100 00031000
BEGIN APPLY >>> ./ I 1842000 $ 1842300 300 00039000
END APPLY >>> ./ I 1842000 $ 1842300 300 00039000
BEGIN APPLY >>> ./ D 1970500 00042000
END APPLY >>> ./ D 1970500 00042000
Update Succeeded
Update Execution Time 63 milliseconds.
R12941DK
Date Tuesday Jul 07, 1981 01:34:00 PM
Loaded from MAINT(294)
R12941DK: ./ *
BEGIN APPLY >>> ./ *
Comment >>> ./ *
END APPLY >>> ./ *
Update Succeeded
Update Execution Time 16 milliseconds.
R13418DK
Date Friday Aug 14, 1981 08:06:00 AM
Loaded from MAINT(294)
R13418DK: ./ R 1717000 $ 1717000 200
R13418DK: TM MONFLAG1,ERROR FLAG ON OR OFF @VA13418
R13418DK: BZ RESETCAW IF OFF, PROCESS NORMALLY @VA13418
R13418DK: ST R2,IOBCAW SET THE PROPER CAW ADDRESS @VA13418
R13418DK: BAL R5,CALLIOS GET THE TAPE MOVING AGAIN @VA13418
R13418DK: B ERRONERR UNRECOVERABLE ERROR ON TAPE @VA13418
BEGIN APPLY >>> ./ R 1717000 $ 1717000 200
END APPLY >>> ./ R 1717000 $ 1717000 200
Update Succeeded
Update Execution Time 23 milliseconds.
HRC101DK
Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
HRC101DK: ./ * HRC101DK V02 TERMINAL ENHANCEMENTS LIKE Z/VM
BEGIN APPLY >>> ./ * HRC101DK V02 TERMINAL ENHANCEMENTS LIKE Z/VM
Comment >>> ./ * HRC101DK V02 TERMINAL ENHANCEMENTS LIKE Z/VM
END APPLY >>> ./ * HRC101DK V02 TERMINAL ENHANCEMENTS LIKE Z/VM
Update Succeeded
Update Execution Time 23 milliseconds.
HRC106DK
Date Sunday Feb 21, 2016 09:07:00 PM
Loaded from MAINT(094)
HRC106DK: ./ R 00582000 00582000 $ 00582100 100
HRC106DK: TBLHIGH DC AL1(057,150,032,000,000) 3330,3380,2314,X,0 HRC106DK
HRC106DK: ./ R 00585000 $ 00585100 100
HRC106DK: TBLLOW DC AL1(024,024,096,000,120) 3340,2305,3375,X,3350 HRC106DK
BEGIN APPLY >>> ./ R 00582000 00582000 $ 00582100 100
END APPLY >>> ./ R 00582000 00582000 $ 00582100 100
BEGIN APPLY >>> ./ R 00585000 $ 00585100 100
END APPLY >>> ./ R 00585000 $ 00585100 100
Update Succeeded
Update Execution Time 31 milliseconds.