ibm:vm370-lib:cp:dmkdef.assemble_hst
Table of Contents
DMKDEF History
References
- Fixes Applied : 14
- Latest Source Date : Wednesday, December 13, 1978
- Last Fix ID : [HRC106DK]
Update History
CMS File Input : DMKDEF ASSEMBLE
Date : 12/13/1978 4:56:00 PM
VM Context : MAINT(394)
File Name : DMKDEF.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:45 AM
Created : 1/16/2021 7:31:45 AM
Update Order
- R08560DK 602 SHARE BIT INCORRECTLY SET IN VCUBLOK FOR CONSOLES
- R09957DK 604 CORRECT IOBLOK CONFLICT IN MSS SUPPORT
- R09651DK 610 ABENDPRG005 ISSUING DET CHANNEL WITH 256 DEVICES
- R10849DK 611 UV00387 VCUTYPE NOT UPDATED ON REDEFINE
- R11150DK 613 UV00731 ABENDVIO002 REDEFINING WITH I/O OUTSTANDING
- R11122DK 613 UV00942 ELIMINATE RANGE TABLE PROCESSING FOR SINGLE ADDR
- R12263DK 618 UV03058 REDEFINE OF VIRT UR OUTPUT DEV DOES NOT FRET VSPXBK
- R12606DK 619 UV03759 REDEFINING VIRTUAL D/T3800, MSDMKDEF136E
- R13361DK 620 UV04197 SPLIT DMKDEF INTO DMKDEF AND DMKDEH FOR R060 ONLY
- R12868DK 620 UV04198 MSDMKDEF026 DEF 3330V S OR V RETURNS INV OPERAND.
- R12273DK 622 UV04665 ABENDPRG001 IN DMKDEF AT DISP X'800' AFTER VM09651
- R13632DK 623 UV05054 ALLOW OMISSION OF LEADING ZEROES IN VADDR
- R13217DK 628 UV06065 AFTER VM09651 MSDMKDEF040E AND MSDMKLNK022E MISLEAD
- HRC106DK H40 SYSOWN support for 3375 & 3380 dasd
R08560DK
Date Monday Apr 02, 1979 03:30:00 AM
Loaded from MAINT(294)
R08560DK: ./ I 65000 $ 65100 100 00001000
R08560DK: * | | <3033> | 00002000
R08560DK: * | | <3036> | 00003000
R08560DK: ./ D 356000 359000 $ 00004000
R08560DK: ./ D 389000 389000 $ 00005000
R08560DK: ./ R 390000 $ 390000 100 00006000
R08560DK: CLC 0(4,R1),=CL4'3270' IS IT A 3270 @VA08560 00007000
R08560DK: ./ R 392000 $ 392100 00008000
R08560DK: CLC 0(4,R1),=CL4'3138' IS IT A 3138 CONSOLE @VA08560 00009000
R08560DK: ./ R 394000 $ 394000 100 00010000
R08560DK: CLC 0(4,R1),=CL4'3148' IS IT A 3148 CONSOLE @VA08560 00011000
R08560DK: ./ R 396000 $ 396000 100 00012000
R08560DK: CLC 0(4,R1),=CL4'3158' IS IT A 3158 CONSOLE @VA08560 00013000
R08560DK: ./ R 397000 $ 397100 100 00014000
R08560DK: BE IND3158 YES,INDICATE CONSOLE @VA08560 00015000
R08560DK: CLC 0(4,R1),=CL4'3036' IS IT A 3036 CONSOLE @VA08560 00016000
R08560DK: BE IND3158 YES,INDICATE CONSOLE @VA08560 00017000
R08560DK: CLC 0(4,R1),=CL4'3066' IS IT A 3066 CONSOLE @VA08560 00018000
R08560DK: BE IND3158 YES,INDICATE CONSOLE @VA08560 00019000
BEGIN APPLY >>> ./ I 65000 $ 65100 100 00001000
END APPLY >>> ./ I 65000 $ 65100 100 00001000
BEGIN APPLY >>> ./ D 356000 359000 $ 00004000
END APPLY >>> ./ D 356000 359000 $ 00004000
BEGIN APPLY >>> ./ D 389000 389000 $ 00005000
END APPLY >>> ./ D 389000 389000 $ 00005000
BEGIN APPLY >>> ./ R 390000 $ 390000 100 00006000
END APPLY >>> ./ R 390000 $ 390000 100 00006000
BEGIN APPLY >>> ./ R 392000 $ 392100 00008000
END APPLY >>> ./ R 392000 $ 392100 00008000
BEGIN APPLY >>> ./ R 394000 $ 394000 100 00010000
END APPLY >>> ./ R 394000 $ 394000 100 00010000
BEGIN APPLY >>> ./ R 396000 $ 396000 100 00012000
END APPLY >>> ./ R 396000 $ 396000 100 00012000
BEGIN APPLY >>> ./ R 397000 $ 397100 100 00014000
END APPLY >>> ./ R 397000 $ 397100 100 00014000
Update Succeeded
Update Execution Time 31 milliseconds.
R09957DK
Date Thursday Jul 12, 1979 09:51: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 8 milliseconds.
R09651DK
Date Wednesday Mar 12, 1980 01:24:00 AM
Loaded from MAINT(294)
R09651DK: ./ I 464000 $ 464100 100 00001000
R09651DK: CLI 3(R2),X'50' X'7FFF' LIMIT FROM VDS? @VA09651 00002000
R09651DK: BE INVFADD YES @VA09651 00003000
R09651DK: ./ I 559000 $ 559030 30 00004000
R09651DK: CLI 3(R2),X'50' X'7FFF' LIMIT FROM VDS? @VA09651 00005000
R09651DK: BE INVFADD YES @VA09651 00006000
BEGIN APPLY >>> ./ I 464000 $ 464100 100 00001000
END APPLY >>> ./ I 464000 $ 464100 100 00001000
BEGIN APPLY >>> ./ I 559000 $ 559030 30 00004000
END APPLY >>> ./ I 559000 $ 559030 30 00004000
Update Succeeded
Update Execution Time 16 milliseconds.
R10849DK
Date Monday Apr 07, 1980 02:28:00 AM
Loaded from MAINT(294)
R10849DK: ./ R 556000 $ 556100 100 00001000
R10849DK: MVC UDEVTYPC(2),VDEVTYPC MAKE NEW ONE LOOK LIKE OLD @VA10849 00002000
BEGIN APPLY >>> ./ R 556000 $ 556100 100 00001000
END APPLY >>> ./ R 556000 $ 556100 100 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R11150DK
Date Thursday Jun 05, 1980 04:01:00 AM
Loaded from MAINT(294)
R11150DK: ./ I 513000 $ 513100 100 00001000
R11150DK: ST R1,CKSAVE SAVE ACROSS TEST FOR VDEVIOB @VA11150 00002000
R11150DK: L R1,VDEVIOB @VA11150 00003000
R11150DK: LTR R1,R1 ACTIVE I/O? @VA11150 00004000
R11150DK: BZ AROUNDER NO! @VA11150 00005000
R11150DK: B DEDCHAN BR TO ERRMSG @VA11150 00006000
R11150DK: CKSAVE DS F @VA11150 00007000
R11150DK: AROUNDER L R1,CKSAVE RESTORE R1 AND CONTINUE @VA11150 00008000
BEGIN APPLY >>> ./ I 513000 $ 513100 100 00001000
END APPLY >>> ./ I 513000 $ 513100 100 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R11122DK
Date Thursday Jun 05, 1980 04:21:00 AM
Loaded from MAINT(294)
R11122DK: ./ R 1204000 $ 1204010 10 00001000
R11122DK: TABLADD DS 0H @VA11122 00002000
R11122DK: CLC FIRSTADR,LASTADDR RANGE SPECIFIED ? @VA11122 00003000
R11122DK: BER R5 YES RETURN - NO TABLE @VA11122 00004000
BEGIN APPLY >>> ./ R 1204000 $ 1204010 10 00001000
END APPLY >>> ./ R 1204000 $ 1204010 10 00001000
Update Succeeded
Update Execution Time 8 milliseconds.
R12263DK
Date Friday Jan 09, 1981 11:24:00 AM
Loaded from MAINT(294)
R12263DK: ./ I 556100 $ 556200 00001000
R12263DK: OI UDEVSTAT,UDEVRDEF VSPXBLOK POINTER @VA12263 00002000
BEGIN APPLY >>> ./ I 556100 $ 556200 00001000
END APPLY >>> ./ I 556100 $ 556200 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R12606DK
Date Thursday Feb 12, 1981 02:12:00 AM
Loaded from MAINT(294)
R12606DK: ./ R 513100 513700 $ 513150 100 00001000
R12606DK: TM VDEVSTAT,VDEVDED+VDEVCATT DEDICATED OR ATTACHED?@VA12606 00002000
R12606DK: BZ NODEDATT NO CHECK FOR ACTIVE ACTIVE I/O @VA12606 00003000
R12606DK: OC VDEVIOB,VDEVIOB ACTIVE I/O? @VA12606 00004000
R12606DK: BNZ DEDCHAN YES @VA12606 00005000
R12606DK: NODEDATT DS 0H @VA12606 00006000
BEGIN APPLY >>> ./ R 513100 513700 $ 513150 100 00001000
END APPLY >>> ./ R 513100 513700 $ 513150 100 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R13361DK
Date Wednesday Apr 08, 1981 04:07:00 AM
Loaded from MAINT(294)
R13361DK: ./ I 33000 $ 33300 300 00001000
R13361DK: EXTRN DMKDEHIN @VA13361 00002000
R13361DK: ./ R 146000 $ 146000 200 00003000
R13361DK: * THIS MODULE WAS SPLIT FOR REL 060. CODE FOR DEFINE STORAGE 00004000
R13361DK: * AND DEFINE CHANNEL WAS MOVED TO DMKDEH. DESCRIPTIONS OF 00005000
R13361DK: * THOSE FUNCTIONS REMAIN HERE ALSO WITH AN ANNOTATION THAT 00006000
R13361DK: * THE CODE EXISTS IN DMKDEH. 00007000
R13361DK: ./ R 217000 $ 217000 300 00008000
R13361DK: * 5. FOR DEFINE STORAGE AND DEFINE CHANNEL, A CALL IS MADE TO 00009000
R13361DK: * DMKDEHIN. THAT MODULE WILL: 00010000
R13361DK: * A. FOR DEFINE STORAGE, AFTER THE USUAL CHECKS FOR COMMAND 00011000
R13361DK: ./ I 225000 $ 225300 300 00012000
R13361DK: * 00013000
R13361DK: * B. FOR DEFINE CHANNELS, AFTER THE VALIDATION OF THE COMMAND, 00014000
R13361DK: ./ R 237000 238000 $ 237000 600 00015000
R13361DK: * ++ 'STORAGE = NNNNNK' 00016000
R13361DK: * ++ 'CHANNELS = XXX' 00017000
R13361DK: ./ I 241000 $ 241300 300 00018000
R13361DK: * - ++ INDICATES THAT RESPONSE IS FROM DMKDEHIN 00019000
R13361DK: * 00020000
R13361DK: ./ R 247000 248000 $ 247000 1000 00021000
R13361DK: * ++ DMKDEF025E STORAGE MISSING OR INVALID 00022000
R13361DK: ./ R 251000 $ 251000 1000 00023000
R13361DK: * DMKDEF091E TYPE VADDR NOT DEFINED; TEMP SPACE NOT AVAILABLE 00024000
R13361DK: ./ R 253000 $ 253000 1000 00025000
R13361DK: * ++ DMKDEF094E STORAGE EXCEEDS ALLOWED MAXIMUM 00026000
R13361DK: ./ I 255000 $ 255300 300 00027000
R13361DK: * 00028000
R13361DK: * ++ - INDICATES THAT MESSAGE COME FROM DMKDEH (WITH DEH PREFIX) 00029000
R13361DK: ./ R 678000 767000 $ 678000 20000 00030000
R13361DK: * CALL DMKDEHIN WITH R0= LENGTH OF ARGUMENT, R1= ADDDRESS OF 00031000
R13361DK: * ARGUMENT, R10= DUMMY UDEVBLOK ADDRESS. 00032000
R13361DK: CALL DMKDEHIN @VA13361 00033000
R13361DK: B DEFEXIT CLEAN UP AND BEAT IT @VA13361 00034000
R13361DK: ./ R 769000 818000 $ 769000 8000 00035000
R13361DK: DEFCHAN EQU * @VA13361 00036000
R13361DK: * CALL DMKDEHIN WITH R0= LENGTH OF ARGUMENT, R1= ADDDRESS OF 00037000
R13361DK: * ARGUMENT, R10= DUMMY UDEVBLOK ADDRESS. 00038000
R13361DK: SPACE 00039000
R13361DK: CALL DMKDEHIN @VA13361 00040000
R13361DK: SPACE 00041000
BEGIN APPLY >>> ./ I 33000 $ 33300 300 00001000
END APPLY >>> ./ I 33000 $ 33300 300 00001000
BEGIN APPLY >>> ./ R 146000 $ 146000 200 00003000
END APPLY >>> ./ R 146000 $ 146000 200 00003000
BEGIN APPLY >>> ./ R 217000 $ 217000 300 00008000
END APPLY >>> ./ R 217000 $ 217000 300 00008000
BEGIN APPLY >>> ./ I 225000 $ 225300 300 00012000
END APPLY >>> ./ I 225000 $ 225300 300 00012000
BEGIN APPLY >>> ./ R 237000 238000 $ 237000 600 00015000
END APPLY >>> ./ R 237000 238000 $ 237000 600 00015000
BEGIN APPLY >>> ./ I 241000 $ 241300 300 00018000
END APPLY >>> ./ I 241000 $ 241300 300 00018000
BEGIN APPLY >>> ./ R 247000 248000 $ 247000 1000 00021000
END APPLY >>> ./ R 247000 248000 $ 247000 1000 00021000
BEGIN APPLY >>> ./ R 251000 $ 251000 1000 00023000
END APPLY >>> ./ R 251000 $ 251000 1000 00023000
BEGIN APPLY >>> ./ R 253000 $ 253000 1000 00025000
END APPLY >>> ./ R 253000 $ 253000 1000 00025000
BEGIN APPLY >>> ./ I 255000 $ 255300 300 00027000
END APPLY >>> ./ I 255000 $ 255300 300 00027000
BEGIN APPLY >>> ./ R 678000 767000 $ 678000 20000 00030000
END APPLY >>> ./ R 678000 767000 $ 678000 20000 00030000
BEGIN APPLY >>> ./ R 769000 818000 $ 769000 8000 00035000
END APPLY >>> ./ R 769000 818000 $ 769000 8000 00035000
Update Succeeded
Update Execution Time 47 milliseconds.
R12868DK
Date Wednesday Apr 08, 1981 04:07:00 AM
Loaded from MAINT(294)
R12868DK: ./ I 279000 $ 279100 100 00001000
R12868DK: MVI SAVEWRK1,VIRTUAL SET FLAG, JUST IN CASE @VA12868 00002000
R12868DK: EX R6,VIRTUAL1 CHECK FOR 'VIRTUAL' @VA12868 00003000
R12868DK: BE TESTCLAS YES...MUST BE CLASS 'B' @VA12868 00004000
R12868DK: MVI SAVEWRK1,SYSVIRT SET FLAG, JUST IN CASE @VA12868 00005000
R12868DK: EX R6,SYSVIRT1 CHECK FOR 'SYSVIRT' @VA12868 00006000
R12868DK: BE TESTCLAS YES...MUST BE CLASS 'B' @VA12868 00007000
R12868DK: ./ R 281000 $ 281100 00008000
R12868DK: BL INVTYPE NO GOOD @VA12868 00009000
R12868DK: ./ D 290000 296000 $ 00010000
R12868DK: ./ I 361000 $ 361100 100 00011000
R12868DK: VIRTUAL1 CLC 0(*-*,R1),=CL8'VIRTUAL ' DEF VIRTUAL @VA12868 00012000
R12868DK: SYSVIRT1 CLC 0(*-*,R1),=CL8'SYSVIRT ' DEF SYSVIRT @VA12868 00013000
BEGIN APPLY >>> ./ I 279000 $ 279100 100 00001000
END APPLY >>> ./ I 279000 $ 279100 100 00001000
BEGIN APPLY >>> ./ R 281000 $ 281100 00008000
END APPLY >>> ./ R 281000 $ 281100 00008000
BEGIN APPLY >>> ./ D 290000 296000 $ 00010000
END APPLY >>> ./ D 290000 296000 $ 00010000
BEGIN APPLY >>> ./ I 361000 $ 361100 100 00011000
END APPLY >>> ./ I 361000 $ 361100 100 00011000
Update Succeeded
Update Execution Time 23 milliseconds.
R12273DK
Date Wednesday Jul 01, 1981 06:15:00 AM
Loaded from MAINT(294)
R12273DK: ./ R 464100 $ 464150 00001000
R12273DK: CLM R2,1,RC50 X'7FFF' LIMIT FROM VDS ? @VA12273 00002000
R12273DK: ./ R 559030 $ 559045 00003000
R12273DK: CLM R2,1,RC50 X'7FFF' LIMIT FROM VDS ? @VA12273 00004000
R12273DK: ./ I 1348000 $ 1348500 00005000
R12273DK: RC50 DC X'50' @VA12273 00006000
BEGIN APPLY >>> ./ R 464100 $ 464150 00001000
END APPLY >>> ./ R 464100 $ 464150 00001000
BEGIN APPLY >>> ./ R 559030 $ 559045 00003000
END APPLY >>> ./ R 559030 $ 559045 00003000
BEGIN APPLY >>> ./ I 1348000 $ 1348500 00005000
END APPLY >>> ./ I 1348000 $ 1348500 00005000
Update Succeeded
Update Execution Time 16 milliseconds.
R13632DK
Date Tuesday Aug 11, 1981 02:22:00 PM
Loaded from MAINT(294)
R13632DK: ./ I 279600 $ 279700 100 00001000
R13632DK: NI SAVEWRK1,255-SYSVIRT ZERO OUT BIT AGAIN @VA13632 00002000
R13632DK: ./ R 281100 $ 281200 100 00003000
R13632DK: BH INVTYPE NO GOOD @VA13632 00004000
BEGIN APPLY >>> ./ I 279600 $ 279700 100 00001000
END APPLY >>> ./ I 279600 $ 279700 100 00001000
BEGIN APPLY >>> ./ R 281100 $ 281200 100 00003000
END APPLY >>> ./ R 281100 $ 281200 100 00003000
Update Succeeded
Update Execution Time 16 milliseconds.
R13217DK
Date Monday Feb 15, 1982 09:27:00 AM
Loaded from MAINT(294)
R13217DK: ./ I 250000 $ 250500 00001000
R13217DK: * DMKDEF153E DEVICE VADDR EXCEEDS MAX NUM OF VIRTUAL DEVICES 00002000
R13217DK: ./ R 464150 464200 $ 464150 400 00003000
R13217DK: CH R2,=H'124' EXCEEDED MAX DEVICES ? @VA13217 00004000
R13217DK: BE ERR153 YES, MSG 153 @VA13217 00005000
R13217DK: ./ R 559045 559060 $ 559045 400 00006000
R13217DK: CH R2,=H'124' EXCEEDED MAX DEVICES? @VA13217 00007000
R13217DK: BE ERR153 YES MSG 153 @VA13217 00008000
R13217DK: ./ I 894000 $ 894100 100 00009000
R13217DK: ERR153 DS 0H ERROR MSG 153 @VA13217 00010000
R13217DK: BAL R5,FREUSER RELEASE LOCK @VA13217 00011000
R13217DK: LH R1,UDEVADD VIRTUAL DEVICE ADDRESS DEFINED @VA13217 00012000
R13217DK: CALL DMKCVTBH CONVERT TO CHARS IN REG1 @VA13217 00013000
R13217DK: STCM R1,7,SAVEWRK2 DATA TO INSERT IN MSG 153 @VA13217 00014000
R13217DK: LA R0,L3 LENGTH OF DATA TO INSERT @VA13217 00015000
R13217DK: LA R2,EMSG153 MSG ID @VA13217 00016000
R13217DK: B MSGSEND SEND MSG 153 AND NO RETURN @VA13217 00017000
R13217DK: ./ I 1311000 $ 1311500 00018000
R13217DK: EMSG153 EQU 153 MAX NUM OF DEVICES REACHED @VA13217 00019000
R13217DK: ./ D 1348500 $ 00020000
BEGIN APPLY >>> ./ I 250000 $ 250500 00001000
END APPLY >>> ./ I 250000 $ 250500 00001000
BEGIN APPLY >>> ./ R 464150 464200 $ 464150 400 00003000
END APPLY >>> ./ R 464150 464200 $ 464150 400 00003000
BEGIN APPLY >>> ./ R 559045 559060 $ 559045 400 00006000
END APPLY >>> ./ R 559045 559060 $ 559045 400 00006000
BEGIN APPLY >>> ./ I 894000 $ 894100 100 00009000
END APPLY >>> ./ I 894000 $ 894100 100 00009000
BEGIN APPLY >>> ./ I 1311000 $ 1311500 00018000
END APPLY >>> ./ I 1311000 $ 1311500 00018000
BEGIN APPLY >>> ./ D 1348500 $ 00020000
END APPLY >>> ./ D 1348500 $ 00020000
Update Succeeded
Update Execution Time 23 milliseconds.
HRC106DK
Date Monday Feb 22, 2016 12:44:00 PM
Loaded from MAINT(094)
HRC106DK: ./ I 00074000 $ 00074100 100
HRC106DK: * | | T3375 <AS> VADDR <CYL> NNN | HRC106DK
HRC106DK: * | | T3380 <AS> VADDR <CYL> NNN | HRC106DK
HRC106DK: ./ I 00188000 $ 00188100 100
HRC106DK: * T3375 VIRTUAL 3375 HRC106DK
HRC106DK: * T3380 VIRTUAL 3380 HRC106DK
HRC106DK: ./ R 00345000 $ 00345100 100
HRC106DK: C R0,F4 NNNN parm greater than 4 chars? HRC106DK
HRC106DK: ./ R 00490000 00492000 $ 00490100 1000
HRC106DK: STCM R1,B'1111',SAVEWRK6+1 TDSK size (4 digits) HRC106DK
HRC106DK: MVC SAVEWRK7+2(3),=C'CYL' HRC106DK
HRC106DK: LA R0,SAVEWRK8+1-SAVEWRK2 Length HRC106DK
HRC106DK: ./ I 01000000 $ 01000100 100
HRC106DK: DC C'T3375 ',H'4',AL1(CLASDASD,TYP3375) (TDISK) HRC106DK
HRC106DK: DC C'T3380 ',H'4',AL1(CLASDASD,TYP3380) (TDISK) HRC106DK
BEGIN APPLY >>> ./ I 00074000 $ 00074100 100
END APPLY >>> ./ I 00074000 $ 00074100 100
BEGIN APPLY >>> ./ I 00188000 $ 00188100 100
END APPLY >>> ./ I 00188000 $ 00188100 100
BEGIN APPLY >>> ./ R 00345000 $ 00345100 100
END APPLY >>> ./ R 00345000 $ 00345100 100
BEGIN APPLY >>> ./ R 00490000 00492000 $ 00490100 1000
END APPLY >>> ./ R 00490000 00492000 $ 00490100 1000
BEGIN APPLY >>> ./ I 01000000 $ 01000100 100
END APPLY >>> ./ I 01000000 $ 01000100 100
Update Succeeded
Update Execution Time 31 milliseconds.
ibm/vm370-lib/cp/dmkdef.assemble_hst.txt · Last modified: 2023/08/06 13:36 by Site Administrator