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