DMKHVD History
References
-
-
Fixes Applied : 15
-
Last Fix ID : [HRC064DK]
Update History
CMS File Input : DMKHVD ASSEMBLE
Date : 12/13/1978 4:58:00 PM
VM Context : MAINT(394)
File Name : DMKHVD.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:46 AM
Created : 1/16/2021 7:31:46 AM
Update Order
R09296DK 601 MAKE DIAGNOSE 24 FOR REMOTE 3270 COMPATIBLE WITH LOCAL 3270
R08786DK 601 DIAGNOSE 024 FOR GRAPHICS DEVICE RETURNS DEVICE INFO FOR VMTERM
R09957DK - CORRECT IOBLOK CONFLICT IN MSS SUPPORT
R08882DK 610 LRA CR1 NOT SET UP CORRECTLY WRONG USER IN CONTROL
R08925DK 610 DIAGNOSE14,SUBCODE0,CC3,ERROR CODE14,PAGE LOCKED,V=R USER
R09958DK 611 DMKHVD CYLINDER COUNT AT LABEL DMKHVDYL INCORRECT FOR D/T 3350
R10376DK 611 CORRECT BAD BRANCH LOGIC
R10736DK 611 CORRECT INVALID USE OF R13 (V08590) IN ADDCHEK
R11268DK 615 UV01047 CODE FOR DIAGNOSE 2C AND 30 INTO DMKHVE
R11489DK 615 UV01621 ABENDPRG005 FROM DIAGNOSE '24'
R10682DK 616 DIAG X'84' ZERO PARMLIST LENGTH CAUSES ABENDFRE006
R12292DK 618 UV03452 DIAG X'04' INSISTS ON FULLWORD ALIGNMENT
R14557DK 629 UV06393 PE AGAINST VM12292
HRC063DK V01 Add DIAG58 support bit to program products bit map
HRC064DK V02 Reverse HRC063DK; not going to use PP bit map
R09296DK
Date Thursday Jan 25, 1979 03:27:00 PM
Loaded from MAINT(294)
R09296DK: ./ I 876000 $ 876300 300 00001000
R09296DK: IC R1,NICTMCD GET TERMINAL CODES @VA09296 00002000
R09296DK: STC R1,0(0,R5) SAVE IN HIGH ORDER BYTE OF 'R1' @VA09296 00003000
R09296DK: ./ R 878000 879000 $ 878000 600 00004000
R09296DK: ICM R1,B'0110',NICDTYPE DEVICE TYPE AND MODEL @VA09296 00005000
R09296DK: ICM R1,B'1000',RDEVTYPC DEVICE CLASS - CLASTERM @VA09296 00006000
R09296DK: B DTYPOK CONTINUE @VA09296 00007000
R09296DK: ./ I 892000 $ 892500 500 00008000
R09296DK: DTYPOK DS 0H @VA09296 00009000
BEGIN APPLY >>> ./ I 876000 $ 876300 300 00001000
END APPLY >>> ./ I 876000 $ 876300 300 00001000
BEGIN APPLY >>> ./ R 878000 879000 $ 878000 600 00004000
END APPLY >>> ./ R 878000 879000 $ 878000 600 00004000
BEGIN APPLY >>> ./ I 892000 $ 892500 500 00008000
END APPLY >>> ./ I 892000 $ 892500 500 00008000
Update Succeeded
Update Execution Time 16 milliseconds.
R08786DK
Date Monday Feb 26, 1979 01:28:00 PM
Loaded from MAINT(294)
R08786DK: ./ D 863000 $ 00001000
R08786DK: ./ I 867000 $ 867500 00002000
R08786DK: GRAFSECT EQU * @VA08786 00003000
BEGIN APPLY >>> ./ D 863000 $ 00001000
END APPLY >>> ./ D 863000 $ 00001000
BEGIN APPLY >>> ./ I 867000 $ 867500 00002000
END APPLY >>> ./ I 867000 $ 867500 00002000
Update Succeeded
Update Execution Time 16 milliseconds.
R09957DK
Date Thursday Jul 12, 1979 09:52: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.
R08882DK
Date Friday Mar 14, 1980 06:22:00 AM
Loaded from MAINT(294)
R08882DK: ./ I 01107000 $ 01107500 00002000
R08882DK: LCTL C1,C1,VMSEG GET CORRECT SEG TABLE @VA08882 00003000
BEGIN APPLY >>> ./ I 01107000 $ 01107500 00002000
END APPLY >>> ./ I 01107000 $ 01107500 00002000
Update Succeeded
Update Execution Time 16 milliseconds.
R08925DK
Date Friday Mar 14, 1980 07:09:00 AM
Loaded from MAINT(294)
R08925DK: ./ R 373000 374000 $ 373600 500 00002000
R08925DK: * CC = 3 RY+1 = 4 INVALID CYLINDER, OUTSIDE OF RECORDING AREA 00003000
R08925DK: * CC = 3 RY+1 = 20 PAGE BUFFER LOCKED FOR I/O 00004000
R08925DK: * 00005000
R08925DK: ./ I 1002000 $ 1002100 200 0000600
R08925DK: LA R4,VMGPRS+(4*15) GET ADDR OF SAVED R15 @VA08925 00007000
R08925DK: CR R4,R6 IS RY = R15 ?? @VA08925 00008000
R08925DK: BE SPECERR YES, SORRY BUT THATS NOT ALLOWED @VA08925 00009000
R08925DK: ./ R 1055000 $ 1055500 200 00010000
R08925DK: BH HVDCC3R4 NO - SET CC = 3, RETURN CODE = 4 @VA08925 00011000
R08925DK: ./ I 1058000 $ 1058050 50 00012000
R08925DK: HVDCC3R4 DS 0H @VA08925 00013000
R08925DK: LA R1,4 GET ERROR RETURN CODE = 4 @VA08925 00014000
R08925DK: HVDSETRT DS 0H @VA08925 00015000
R08925DK: IC R2,VMINST+1 GET REGISTERS SPECIFIED @VA08925 00016000
R08925DK: SLL R2,2(0) USER'S RY REGISTER NUMBER @VA08925 00017000
R08925DK: N R2,F60 ..... @VA08925 00018000
R08925DK: LA R2,VMGPRS(R2) ADDR OF RY IN VMGPRS AREA @VA08925 00019000
R08925DK: ST R1,4(,R2) PASS ERROR CODE IN RY+1 @VA08925 00020000
R08925DK: B HVDDTC3 AND SET CC = 3 @VA08925 00021000
R08925DK: HVDLOCK DS 0H @VA08925 00022000
R08925DK: LA R1,20 GET RETURN CODE 20 @VA08925 00023000
R08925DK: B HVDSETRT AND SET CC = 3, RETURN CODE 20 @VA08925 00024000
R08925DK: ./ R 1069000 $ 1069500 00025000
R08925DK: BL HVDCC3R4 NO - SET CC = 3, RETURN CODE = 4 @VA08925 00026000
R08925DK: ./ R 1073000 $ 1073500 00027000
R08925DK: BH HVDCC3R4 NO - SET CC = 3, RETURN CODE = 4 @VA08925 00028000
R08925DK: ./ I 1080000 $ 1080500 00029000
R08925DK: BC 4,HVDLOCK PAGE IS LOCKED FOR I/O @VA08925 00030000
BEGIN APPLY >>> ./ R 373000 374000 $ 373600 500 00002000
END APPLY >>> ./ R 373000 374000 $ 373600 500 00002000
BEGIN APPLY >>> ./ I 1002000 $ 1002100 200 0000600
END APPLY >>> ./ I 1002000 $ 1002100 200 0000600
BEGIN APPLY >>> ./ R 1055000 $ 1055500 200 00010000
END APPLY >>> ./ R 1055000 $ 1055500 200 00010000
BEGIN APPLY >>> ./ I 1058000 $ 1058050 50 00012000
END APPLY >>> ./ I 1058000 $ 1058050 50 00012000
BEGIN APPLY >>> ./ R 1069000 $ 1069500 00025000
END APPLY >>> ./ R 1069000 $ 1069500 00025000
BEGIN APPLY >>> ./ R 1073000 $ 1073500 00027000
END APPLY >>> ./ R 1073000 $ 1073500 00027000
BEGIN APPLY >>> ./ I 1080000 $ 1080500 00029000
END APPLY >>> ./ I 1080000 $ 1080500 00029000
Update Succeeded
Update Execution Time 31 milliseconds.
R09958DK
Date Friday Mar 28, 1980 07:10:00 AM
Loaded from MAINT(294)
R09958DK: ./ R 1718000 $ 1718100 00001000
R09958DK: DC H'47' 2305-1 @VA09958 00002000
R09958DK: ./ R 1722000 $ 1722100 00003000
R09958DK: DC H'554' CYLINDER LIMIT FOR 3350 @VA09958 00004000
BEGIN APPLY >>> ./ R 1718000 $ 1718100 00001000
END APPLY >>> ./ R 1718000 $ 1718100 00001000
BEGIN APPLY >>> ./ R 1722000 $ 1722100 00003000
END APPLY >>> ./ R 1722000 $ 1722100 00003000
Update Succeeded
Update Execution Time 8 milliseconds.
R10376DK
Date Friday Mar 28, 1980 11:28:00 AM
Loaded from MAINT(294)
R10376DK: ./ R 959000 $ 959100 00001000
R10376DK: BNZ SPECERR YES, ERROR @VA10376 00002000
R10376DK: ./ I 976000 $ 976300 300 00003000
R10376DK: SPACE 2 00004000
R10376DK: * HERE TO CALCULATE HDR INFO 00005000
BEGIN APPLY >>> ./ R 959000 $ 959100 00001000
END APPLY >>> ./ R 959000 $ 959100 00001000
BEGIN APPLY >>> ./ I 976000 $ 976300 300 00003000
END APPLY >>> ./ I 976000 $ 976300 300 00003000
Update Succeeded
Update Execution Time 23 milliseconds.
R10736DK
Date Thursday Apr 03, 1980 04:02:00 AM
Loaded from MAINT(294)
R10736DK: ./ I 00113000 $ 00113010 10
R10736DK: * SAVEAREA -
R10736DK: *
R10736DK: * USED TO SAVE REGISTERS ACROSS CALLS TO OTHER MODULES
R10736DK: *
R10736DK: * SAVEWRK2 = GPR1
R10736DK: * SAVEWRK3 = GPR2
R10736DK: *
R10736DK: ./ R 01121000 01122000 $ 01121500
R10736DK: STM R1,R2,SAVEWRK2 SAVE R1,R2 ACROSS CALL TO PTRAN @VA10736
R10736DK: ./ R 01126000 01127000 $ 01126500
R10736DK: LM R1,R2,SAVEWRK2 RESTORE R1,R2 AFTER CALL @VA10736
BEGIN APPLY >>> ./ I 00113000 $ 00113010 10
END APPLY >>> ./ I 00113000 $ 00113010 10
BEGIN APPLY >>> ./ R 01121000 01122000 $ 01121500
END APPLY >>> ./ R 01121000 01122000 $ 01121500
BEGIN APPLY >>> ./ R 01126000 01127000 $ 01126500
END APPLY >>> ./ R 01126000 01127000 $ 01126500
Update Succeeded
Update Execution Time 16 milliseconds.
R11268DK
Date Friday Jul 25, 1980 05:21:00 AM
Loaded from MAINT(294)
R11268DK: ./ D 10000 13000 $ 00001000
R11268DK: ./ D 19000 19000 $ 00002000
R11268DK: ./ R 27000 31000 $ 27000 1000 00003000
R11268DK: EXTRN DMKSYSRM @VA11268 00004000
R11268DK: ./ D 101000 101000 $ 00006000
R11268DK: ./ D 104000 107000 $ 00007000
R11268DK: ./ D 331000 374600 $
R11268DK: ./ R 570000 573000 $ 570000 1000 00008000
R11268DK: B HVDEXIT '02C' - SUPPORTED BY DMKHVE @VA11268 00009000
R11268DK: B HVDEXIT '030' - SUPPORTED BY DMKHVE @VA11268 00010000
R11268DK: ./ D 947000 1083000 $ 00011000
R11268DK: ./ D 1716000 1737000 $ 00012000
R11268DK: ./ D 1739000 1745000 $ 00013000
BEGIN APPLY >>> ./ D 10000 13000 $ 00001000
END APPLY >>> ./ D 10000 13000 $ 00001000
BEGIN APPLY >>> ./ D 19000 19000 $ 00002000
END APPLY >>> ./ D 19000 19000 $ 00002000
BEGIN APPLY >>> ./ R 27000 31000 $ 27000 1000 00003000
END APPLY >>> ./ R 27000 31000 $ 27000 1000 00003000
BEGIN APPLY >>> ./ D 101000 101000 $ 00006000
END APPLY >>> ./ D 101000 101000 $ 00006000
BEGIN APPLY >>> ./ D 104000 107000 $ 00007000
END APPLY >>> ./ D 104000 107000 $ 00007000
BEGIN APPLY >>> ./ D 331000 374600 $
END APPLY >>> ./ D 331000 374600 $
BEGIN APPLY >>> ./ R 570000 573000 $ 570000 1000 00008000
END APPLY >>> ./ R 570000 573000 $ 570000 1000 00008000
BEGIN APPLY >>> ./ D 947000 1083000 $ 00011000
END APPLY >>> ./ D 947000 1083000 $ 00011000
BEGIN APPLY >>> ./ D 1716000 1737000 $ 00012000
END APPLY >>> ./ D 1716000 1737000 $ 00012000
BEGIN APPLY >>> ./ D 1739000 1745000 $ 00013000
END APPLY >>> ./ D 1739000 1745000 $ 00013000
Update Succeeded
Update Execution Time 47 milliseconds.
R11489DK
Date Friday Jul 25, 1980 06:30:00 AM
Loaded from MAINT(294)
R11489DK: ./ I 00865000 $ 00865500 00001000
R11489DK: GRAFSECT DS 0H @VA11489 00002000
R11489DK: ./ D 00867500 00003000
BEGIN APPLY >>> ./ I 00865000 $ 00865500 00001000
END APPLY >>> ./ I 00865000 $ 00865500 00001000
BEGIN APPLY >>> ./ D 00867500 00003000
END APPLY >>> ./ D 00867500 00003000
Update Succeeded
Update Execution Time 16 milliseconds.
R10682DK
Date Monday Sep 08, 1980 07:29:00 AM
Loaded from MAINT(294)
R10682DK: ./ I 1486000 $ 1486100 100 00001000
R10682DK: * RY = X'65' - PARAMETER LIST SIZE GR THAN 112 BYTES 00002000
R10682DK: * X'66' - PARAMETER LIST SIZE LESS/EQ ZERO 00003000
R10682DK: ./ I 1509000 $ 1509100 100 00004000
R10682DK: LTR R2,R2 IS LIST SIZE LESS/EQ ZERO? @VA10682 00005000
R10682DK: BNP SIZERR02 YES, BR TO HANDLE SIZE ERROR @VA10682 00006000
R10682DK: ./ R 1545000 1546000 $ 1545500
R10682DK: LR R7,R3 GET LEN. OF 1ST (OR ENTIRE) PIECE@VA10682
BEGIN APPLY >>> ./ I 1486000 $ 1486100 100 00001000
END APPLY >>> ./ I 1486000 $ 1486100 100 00001000
BEGIN APPLY >>> ./ I 1509000 $ 1509100 100 00004000
END APPLY >>> ./ I 1509000 $ 1509100 100 00004000
BEGIN APPLY >>> ./ R 1545000 1546000 $ 1545500
END APPLY >>> ./ R 1545000 1546000 $ 1545500
Update Succeeded
Update Execution Time 16 milliseconds.
R12292DK
Date Friday Jan 09, 1981 12:08:00 PM
Loaded from MAINT(294)
R12292DK: ./ R 759000 $ 759010
R12292DK: L R5,=A(X'00000FFF') DISPLACEMENT MASK @VA12292
R12292DK: ./ R 770000 $ 770010
R12292DK: N R10,=A(X'FFFFFF') ONLY WANT LAST THREE BYTES @VA12292
BEGIN APPLY >>> ./ R 759000 $ 759010
END APPLY >>> ./ R 759000 $ 759010
BEGIN APPLY >>> ./ R 770000 $ 770010
END APPLY >>> ./ R 770000 $ 770010
Update Succeeded
Update Execution Time 16 milliseconds.
R14557DK
Date Monday Mar 15, 1982 08:42:00 AM
Loaded from MAINT(294)
R14557DK: ./ I 00765000 $ 00765100 100
R14557DK: FETCHCP EQU * FULFILL REQUESTS @VA14557
R14557DK: ./ D 00768000
R14557DK: ./ I 00772000 $ 00772100 100
R14557DK: SR R8,R10 HOW FAR FROM END OF STORAGE? @VA14557 00002000
R14557DK: * THE FOLLOWING CHECKS IF ADDRESS IS WITHIN A FULLWORD @VA14557
R14557DK: * FROM THE END OF REAL STORAGE. @VA14557
R14557DK: CLR R8,R4 R4 CONTAINS 4 @VA14557 00004000
R14557DK: BL CONTINUE LESS THAN A FULLWORD FROM END @VA14557 00005000
R14557DK: * OF STORAGE. 00006000
R14557DK: SR R8,R8 SET REG 8 -FLAG OF ZERO @VA14557 00016000
R14557DK: CONTINUE CALL DMKPSASP CHECK RESULT TABLE PROTECTION @VA14557 00017000
R14557DK: ./ D 00773000 00018000
R14557DK: ./ I 00790000 $ 00790100 100 00019000
R14557DK: LTR R8,R8 WITHIN LAST 3 BYTES OF STORAGE? @VA14557 00020000
R14557DK: BZ SKIPIT N0- REGULAR REQUEST @VA14557 00021000
R14557DK: CL R8,F3 3 BYTES FROM END OF STORAGE? @VA14557 00022000
R14557DK: BNE NEXT NO @VA14557 00023000
R14557DK: SR R8,R8 YES- GET DATA @VA14557 00024000
R14557DK: ICM R8,B'1110',0(R10) 3 BYTES DATA WITH TRAILING @VA14557 00025000
R14557DK: * ZEROS 00026000
R14557DK: B DONE READY TO PASS BACK TO VM @VA14557 00028000
R14557DK: NEXT CL R8,F2 2 BYTES FROM END OF STORAGE? @VA14557 00029000
R14557DK: BNE NEXT1 NO @VA14557 00030000
R14557DK: SR R8,R8 YES- GET DATA @VA14557 00031000
R14557DK: ICM R8,B'1100',0(R10) 2 BYTES DATA WITH TRAILING @VA14557 00032000
R14557DK: * ZEROS 00033000
R14557DK: B DONE READY TO PASS BACK TO VM @VA14557 00035000
R14557DK: NEXT1 SR R8,R8 1 BYTE FROM END OF STORAGE @VA14557 00036000
R14557DK: ICM R8,B'1000',0(R10) 1 BYTE OF DATA WITH @VA14557 00037000
R14557DK: * TRAILING ZEROS 00038000
R14557DK: B DONE READY TO PASS BACK TO VM @VA14557 00040000
R14557DK: SKIPIT L R8,0(0,R10) READ REAL STORAGE VALUE @VA14557 00041000
R14557DK: ./ D 00791000 00042000
R14557DK: ./ R 00792000 $ 00792500 00043000
R14557DK: DONE ST R8,0(0,R2) PASS BACK TO VIRTUAL MACHINE @VA14557 00044000
BEGIN APPLY >>> ./ I 00765000 $ 00765100 100
END APPLY >>> ./ I 00765000 $ 00765100 100
BEGIN APPLY >>> ./ D 00768000
END APPLY >>> ./ D 00768000
BEGIN APPLY >>> ./ I 00772000 $ 00772100 100
END APPLY >>> ./ I 00772000 $ 00772100 100
BEGIN APPLY >>> ./ D 00773000 00018000
END APPLY >>> ./ D 00773000 00018000
BEGIN APPLY >>> ./ I 00790000 $ 00790100 100 00019000
END APPLY >>> ./ I 00790000 $ 00790100 100 00019000
BEGIN APPLY >>> ./ D 00791000 00042000
END APPLY >>> ./ D 00791000 00042000
BEGIN APPLY >>> ./ R 00792000 $ 00792500 00043000
END APPLY >>> ./ R 00792000 $ 00792500 00043000
Update Succeeded
Update Execution Time 23 milliseconds.
HRC063DK
Date Friday May 19, 2017 07:02:00 PM
Loaded from MAINT(094)
HRC063DK: ./ R 01713000 $ 01713000
HRC063DK: OI 7(R1),X'01' TURN ON BIT FOR DIAG58 SUPPORT HRC063DK
BEGIN APPLY >>> ./ R 01713000 $ 01713000
END APPLY >>> ./ R 01713000 $ 01713000
Update Succeeded
Update Execution Time 23 milliseconds.
HRC064DK
Date Friday May 19, 2017 07:02:00 PM
Loaded from MAINT(094)
HRC064DK: ./ R 01713000 $ 01713000
HRC064DK: * OI 7(R1),X'01' TURN ON BIT FOR
BEGIN APPLY >>> ./ R 01713000 $ 01713000
END APPLY >>> ./ R 01713000 $ 01713000
Update Succeeded
Update Execution Time 16 milliseconds.