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