DMKVCN History
References
-
-
Fixes Applied : 12
-
Last Fix ID : [HRC064DK]
Update History
CMS File Input : DMKVCN ASSEMBLE
Date : 12/7/1978 5:18:00 PM
VM Context : MAINT(394)
File Name : DMKVCN.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:48 AM
Created : 1/16/2021 7:31:48 AM
Update Order
R09957DK - CORRECT IOBLOK CONFLICT IN MSS SUPPORT
R09479DK 610 RESTORE R6,R7,R8 ACROSS CALL TO DMKQCNWT
R11228DK 614 UV01498 ATTN KEY IN TERM MODE CP INCORRECTLY PASSES DATA
R11787DK 618 UV02014 PASS INPUT LINES TO VIRTSYS OUT OF ORDER
R13617DK 623 UV04876 CAW PROTECT KEY NOT PUT IN CSW PROTECT KEY
R14366DK 625 UV05619 ABENDFRE007 IN DMKVCN WITH REG13 NOT LOADED
HRC101DK V02 TERMINAL ENHANCEMENTS LIKE Z/VM
HRC310DK V01 ALLOW INVERSE VIDEO
HRC058DK V03 DIAG 58 SUPPORT
HRC062DK V04 DIAG 58 Queued Messages Support
HRC063DK V05 DIAG 58 FRE013 if Full Screen write is last FS operation
HRC064DK V06 DIAG 58 Control Query X'63' CCW support
R09957DK
Date Thursday Jul 12, 1979 09:54: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.
R09479DK
Date Monday Mar 03, 1980 01:18:00 AM
Loaded from MAINT(294)
R09479DK: ./ I 294000 $ 294100 100 00001000
R09479DK: SL R6,VMCHSTRT CHANNEL DISPLACEMENT @VA09479 00002000
R09479DK: SL R7,VMCUSTRT CTRL UNIT DISPLACEMENT @VA09479 00003000
R09479DK: SL R8,VMDVSTRT VDEVBLOK DISPLACEMENT @VA09479 00004000
R09479DK: ./ I 295000 $ 295100 100 00005000
R09479DK: AL R6,VMCHSTRT RESTORE ADDRESS @VA09479 00006000
R09479DK: AL R7,VMCUSTRT RESTORE ADDRESS @VA09479 00007000
R09479DK: AL R8,VMDVSTRT RESTORE ADDRESS @VA09479 00008000
BEGIN APPLY >>> ./ I 294000 $ 294100 100 00001000
END APPLY >>> ./ I 294000 $ 294100 100 00001000
BEGIN APPLY >>> ./ I 295000 $ 295100 100 00005000
END APPLY >>> ./ I 295000 $ 295100 100 00005000
Update Succeeded
Update Execution Time 16 milliseconds.
R11228DK
Date Tuesday Jul 08, 1980 06:06:00 AM
Loaded from MAINT(294)
R11228DK: ./ R 475000 $ 475100 100 00001000
R11228DK: BNO NOATT NO, CONTINUE @VA11228 00002000
R11228DK: OI VCONFLAG,SKIP YES,DON'T PASS DATA TO USER @VA11228 00003000
R11228DK: B NOCP PROCESS READ DATA @VA11228 00004000
R11228DK: NOATT DS 0H @VA11228 00005000
BEGIN APPLY >>> ./ R 475000 $ 475100 100 00001000
END APPLY >>> ./ R 475000 $ 475100 100 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R11787DK
Date Wednesday Dec 10, 1980 12:09:00 PM
Loaded from MAINT(294)
R11787DK: ./ I 433000 $ 433100 50 00001000
R11787DK: L R1,VCONRBUF IS THERE A WAITING BUFFER @VA11787 00002000
R11787DK: LTR R1,R1 ... @VA11787 00003000
R11787DK: BZ VCNRDCNT NO,CONTINUE AS BEFORE @VA11787 00004000
R11787DK: ST R10,VCONRBUF EXCHANGE PREVIOUS BUFFER AND @VA11787 00005000
R11787DK: ST R1,VCONBUF CURRENT BUFFER @VA11787 00006000
R11787DK: LR R10,R1 CURRENT BUFFER FOR VCN @VA11787 00007000
R11787DK: SR R0,R0 CLEAR WORK REGISTER @VA11787 00008000
R11787DK: IC R0,VCONRBSZ GET CURRENT BUFFER SIZE @VA11787 00009000
R11787DK: IC R1,VCONBFSZ GET PREVIOUS BUFFER SIZE @VA11787 00010000
R11787DK: STC R1,VCONRBSZ AND EXCHANGE THEM @VA11787 00011000
R11787DK: STC R0,VCONBFSZ ... @VA11787 00012000
R11787DK: LH R0,VCONRCNT GET CURRENT DATA COUNT @VA11787 00013000
R11787DK: LH R1,VCONCNT GET PREVIOUS DATA COUNT @VA11787 00014000
R11787DK: STH R0,VCONCNT AND EXCHANGE THEM @VA11787 00015000
R11787DK: STH R1,VCONRCNT ... @VA11787 00016000
R11787DK: VCNRDCNT DS 0H @VA11787 00017000
BEGIN APPLY >>> ./ I 433000 $ 433100 50 00001000
END APPLY >>> ./ I 433000 $ 433100 50 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R13617DK
Date Friday Aug 07, 1981 07:06:00 AM
Loaded from MAINT(294)
R13617DK: ./ I 1006000 $ 1006100 100 00001000
R13617DK: IC R0,VDEVKEY GET CAW PROTECT KEY @VA13617 00002000
R13617DK: STC R0,VDEVCSW PUT IT IN CSW @VA13617 00003000
R13617DK: NI VDEVCSW,X'F0' CLEAN UP LOW NIBBLE @VA13617 00004000
BEGIN APPLY >>> ./ I 1006000 $ 1006100 100 00001000
END APPLY >>> ./ I 1006000 $ 1006100 100 00001000
Update Succeeded
Update Execution Time 8 milliseconds.
R14366DK
Date Tuesday Oct 20, 1981 04:36:00 PM
Loaded from MAINT(294)
R14366DK: ./ I 964000 $ 964100 00001000
R14366DK: L R13,VDEVCON POINT TO VCONCTL BLOK @VA14366 00002000
BEGIN APPLY >>> ./ I 964000 $ 964100 00001000
END APPLY >>> ./ I 964000 $ 964100 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
HRC101DK
Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
HRC101DK: ./ R 00369000 $ 369490 490 03/11/06 20:48:36
HRC101DK: STH R0,VCONBFSZ SET DATA BUFFER SIZE HRC101DK 00369000
HRC101DK: ./ R 00383000 $ 383490 490 03/11/06 20:48:36
HRC101DK: LH R0,VCONRBSZ SIZE IN DW'S OF VIRTUAL BUFFER HRC101DK 00383000
HRC101DK: ./ R 00433450 00433600 $ 433480 30 03/11/06 20:48:36
HRC101DK: LH R0,VCONRBSZ GET CURRENT BUFFER SIZE HRC101DK 00433450
HRC101DK: LH R1,VCONBFSZ GET PREVIOUS BUFFER SIZE HRC101DK 00433500
HRC101DK: STH R1,VCONRBSZ AND EXCHANGE THEM HRC101DK 00433550
HRC101DK: STH R0,VCONBFSZ ... HRC101DK 00433600
HRC101DK: ./ R 00569000 $ 569490 490 03/11/06 20:48:36
HRC101DK: STH R0,VCONBFSZ SET DATA BUFFER SIZE HRC101DK 00569000
HRC101DK: ./ I 00795000 $ 795100 100 03/11/06 20:48:36
HRC101DK: TM VCONDWC,X'40' IS THIS DIAG 58 ? HRC101DK 00795100
HRC101DK: BZ CKSIOSIZ NO, USE NORMAL SIZE HRC101DK 00795200
HRC101DK: CL R4,=F'4064' LARGER THAN MAX ALLOWED ?? HRC101DK 00795300
HRC101DK: BNH NEXT OK IF LESS THAN OR EQUAL TO MAX HRC101DK 00795400
HRC101DK: B PRGIL ELSE PROG CHECK HRC101DK 00795500
HRC101DK: CKSIOSIZ EQU * HRC101DK 00795600
HRC101DK: ./ R 00966000 $ 966490 490 03/11/06 20:48:36
HRC101DK: LH R0,VCONBFSZ GET NUMBER OF DOUBLE WORDS TO FREHRC101DK 00966000
BEGIN APPLY >>> ./ R 00369000 $ 369490 490 03/11/06 20:48:36
END APPLY >>> ./ R 00369000 $ 369490 490 03/11/06 20:48:36
BEGIN APPLY >>> ./ R 00383000 $ 383490 490 03/11/06 20:48:36
END APPLY >>> ./ R 00383000 $ 383490 490 03/11/06 20:48:36
BEGIN APPLY >>> ./ R 00433450 00433600 $ 433480 30 03/11/06 20:48:36
END APPLY >>> ./ R 00433450 00433600 $ 433480 30 03/11/06 20:48:36
BEGIN APPLY >>> ./ R 00569000 $ 569490 490 03/11/06 20:48:36
END APPLY >>> ./ R 00569000 $ 569490 490 03/11/06 20:48:36
BEGIN APPLY >>> ./ I 00795000 $ 795100 100 03/11/06 20:48:36
END APPLY >>> ./ I 00795000 $ 795100 100 03/11/06 20:48:36
BEGIN APPLY >>> ./ R 00966000 $ 966490 490 03/11/06 20:48:36
END APPLY >>> ./ R 00966000 $ 966490 490 03/11/06 20:48:36
Update Succeeded
Update Execution Time 31 milliseconds.
HRC310DK
Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
HRC310DK: ./ * ************* HRC310DK 00001000
HRC310DK: ./ * * HRC310DK 00002000
HRC310DK: ./ * * HRC310DK 16/07/2008 HRC310DK 00003000
HRC310DK: ./ * * HRC310DK 00004000
HRC310DK: ./ * * 3270 SCREEN HANDLING CHANGES/IMPROVEMENTS HRC310DK 00005000
HRC310DK: ./ * * HRC310DK 00006000
HRC310DK: ./ * ************* HRC310DK 00007000
HRC310DK: ./ I 00596100 $ 00596110 010 HRC310DK 00008000
HRC310DK: TM VCONFLAG,X'01' HIGH INTENSITY? HRC310DK 00009000
HRC310DK: BZ *+8 NOPE, LEAVE R2 ALONE HRC310DK 00010000
HRC310DK: O R2,=A(HILIGHT) YES, SET HILIGHT FLAG HRC310DK 00011000
HRC310DK: ./ I 00729000 $ 00729100 100 HRC310DK
HRC310DK: CLI VCONCCW,X'19' DIAGNOSE WRITE? HRC310DK 00009000
HRC310DK: BE *+12 YES, ALLOW 38-39 NON-ZERO HRC310DK 00010000
HRC310DK: ./ I 00825400 $ 00825410 10 HRC310DK
HRC310DK: LA R2,6(,R2) PLUS 6 FOR HI INTENSITY HRC310DK 00012000
BEGIN APPLY >>> ./ * ************* HRC310DK 00001000
Comment >>> ./ * ************* HRC310DK 00001000
END APPLY >>> ./ * ************* HRC310DK 00001000
BEGIN APPLY >>> ./ * * HRC310DK 00002000
Comment >>> ./ * * HRC310DK 00002000
END APPLY >>> ./ * * HRC310DK 00002000
BEGIN APPLY >>> ./ * * HRC310DK 16/07/2008 HRC310DK 00003000
Comment >>> ./ * * HRC310DK 16/07/2008 HRC310DK 00003000
END APPLY >>> ./ * * HRC310DK 16/07/2008 HRC310DK 00003000
BEGIN APPLY >>> ./ * * HRC310DK 00004000
Comment >>> ./ * * HRC310DK 00004000
END APPLY >>> ./ * * HRC310DK 00004000
BEGIN APPLY >>> ./ * * 3270 SCREEN HANDLING CHANGES/IMPROVEMENTS HRC310DK 00005000
Comment >>> ./ * * 3270 SCREEN HANDLING CHANGES/IMPROVEMENTS HRC310DK 00005000
END APPLY >>> ./ * * 3270 SCREEN HANDLING CHANGES/IMPROVEMENTS HRC310DK 00005000
BEGIN APPLY >>> ./ * * HRC310DK 00006000
Comment >>> ./ * * HRC310DK 00006000
END APPLY >>> ./ * * HRC310DK 00006000
BEGIN APPLY >>> ./ * ************* HRC310DK 00007000
Comment >>> ./ * ************* HRC310DK 00007000
END APPLY >>> ./ * ************* HRC310DK 00007000
BEGIN APPLY >>> ./ I 00596100 $ 00596110 010 HRC310DK 00008000
END APPLY >>> ./ I 00596100 $ 00596110 010 HRC310DK 00008000
BEGIN APPLY >>> ./ I 00729000 $ 00729100 100 HRC310DK
END APPLY >>> ./ I 00729000 $ 00729100 100 HRC310DK
BEGIN APPLY >>> ./ I 00825400 $ 00825410 10 HRC310DK
END APPLY >>> ./ I 00825400 $ 00825410 10 HRC310DK
Update Succeeded
Update Execution Time 23 milliseconds.
HRC058DK
Date Friday May 19, 2017 07:02:00 PM
Loaded from MAINT(094)
HRC058DK: ./ I 00067000 $ 067100 10
HRC058DK: * HDKD58EN - TO HANDLE DIAGNOSE X'58' FULL SCREEN I/O HRC058DK
HRC058DK: ./ I 00139100 $ 139150 10
HRC058DK: EXTRN HDKD58EN HRC058DK
HRC058DK: ./ I 00190000 $ 190100 10
HRC058DK: CLI VCONCOMD,X'29' DIAG 58 FULL SCR WRITE? HRC058DK 01705980
HRC058DK: BE HD58SPCL Y, SPECIAL HANDLING HRC058DK
HRC058DK: CLI VCONCOMD,X'2A' DIAG 58 FULL SCR READ? HRC058DK 01705980
HRC058DK: BE HD58SPCL Y, SPECIAL HANDLING HRC058DK
HRC058DK: ./ I 00192000 $ 192100 10
HRC058DK: HD58SPCL EQU * HRC058DK
HRC058DK: CALL HDKD58EN CALL DIAG 58 SUPPORT RTN HRC058DK
HRC058DK: B LASTCCW POST STATUS AND EXIT HRC058DK
HRC058DK: ./ I 00710000 $ 710100 10
HRC058DK: SLR R15,R15 SET EXIT INDEX FOR CMD CHHRC058DK
HRC058DK: CLI VCONCCW,X'29' DIAG 58 FULL SCR WRITE? HRC058DK 01705980
HRC058DK: BE SETRETN Y, BYTE 5 HAS OPT FLAGS HRC058DK
HRC058DK: CLI VCONCCW,X'2A' DIAG 58 FULL SCR READ? HRC058DK 01705980
HRC058DK: BE SETRETN Y, BYTE 5 HAS OPT FLAGS HRC058DK
HRC058DK: ./ D 00712000
HRC058DK: ./ I 01011000 $ 1011100 10
HRC058DK: CLI VCONCOMD,X'29' DIAG 58 FULL SCR WRITE? HRC058DK 01705980
HRC058DK: BE VCND58 Y, SPECIAL HANDLING HRC058DK
HRC058DK: CLI VCONCOMD,X'2A' DIAG 58 FULL SCR READ? HRC058DK 01705980
HRC058DK: BE VCND58 Y, SPECIAL HANDLING HRC058DK
HRC058DK: ./ I 01017000 $ 1017100 10
HRC058DK: B VCNCC1 GO SET CC1 HRC058DK
HRC058DK: VCND58 EQU * HRC058DK
HRC058DK: CLI VDEVCSW+4,CE+DE NORMAL COMPLETION? HRC058DK
HRC058DK: BE VCNEXITX Y, HANDLE PENDING INTRPT HRC058DK
BEGIN APPLY >>> ./ I 00067000 $ 067100 10
END APPLY >>> ./ I 00067000 $ 067100 10
BEGIN APPLY >>> ./ I 00139100 $ 139150 10
END APPLY >>> ./ I 00139100 $ 139150 10
BEGIN APPLY >>> ./ I 00190000 $ 190100 10
END APPLY >>> ./ I 00190000 $ 190100 10
BEGIN APPLY >>> ./ I 00192000 $ 192100 10
END APPLY >>> ./ I 00192000 $ 192100 10
BEGIN APPLY >>> ./ I 00710000 $ 710100 10
END APPLY >>> ./ I 00710000 $ 710100 10
BEGIN APPLY >>> ./ D 00712000
END APPLY >>> ./ D 00712000
BEGIN APPLY >>> ./ I 01011000 $ 1011100 10
END APPLY >>> ./ I 01011000 $ 1011100 10
BEGIN APPLY >>> ./ I 01017000 $ 1017100 10
END APPLY >>> ./ I 01017000 $ 1017100 10
Update Succeeded
Update Execution Time 23 milliseconds.
HRC062DK
Date Friday May 19, 2017 07:02:00 PM
Loaded from MAINT(094)
HRC062DK: ./ I 01035000 $ 01035100 50
HRC062DK: CLI VDEVCSW+4,X'8E' DIAG 58 CP interruption? HRC062DK
HRC062DK: BNE VCNEXITX No HRC062DK
HRC062DK: MVC 0(8,R2),VDEVCSW Provide full CSW on X'8E'HRC062DK
BEGIN APPLY >>> ./ I 01035000 $ 01035100 50
END APPLY >>> ./ I 01035000 $ 01035100 50
Update Succeeded
Update Execution Time 23 milliseconds.
HRC063DK
Date Friday May 19, 2017 07:02:00 PM
Loaded from MAINT(094)
HRC063DK: ./ I 00291000 $ 00291500
HRC063DK: BAL R9,VCNQM000 Clear queued messages HRC063DK
HRC063DK: ./ I 00561000 $ 00561500
HRC063DK: BAL R9,VCNQM000 Clear queued messages HRC063DK
HRC063DK: ./ I 00972000 $ 00972200 20
HRC063DK: *
HRC063DK: VCNQM000 EQU * HRC063DK
HRC063DK: L R5,VDEVQMB -> QMBLOK chain anchor HRC063DK
HRC063DK: XC VDEVQMB,VDEVQMB Clear queued msg chain HRC063DK
HRC063DK: USING QMBLOK,R5 QMBLOK is def in VBLOKS HRC063DK
HRC063DK: * HRC063DK
HRC063DK: VCNQM010 EQU * HRC063DK
HRC063DK: LTR R5,R5 Do we have queued msgs? HRC063DK
HRC063DK: BZR R9 No, just exit HRC063DK
HRC063DK: L R0,QMQCNR0 Load message length HRC063DK
HRC063DK: LA R1,QMMSGTXT -> message text HRC063DK
HRC063DK: L R2,QMQCNR2 Load msg option flags HRC063DK
HRC063DK: O R2,=A(NOQUEUE) Set 'do not queue' flag HRC063DK
HRC063DK: CALL DMKQCNWT Issue msgs HRC063DK
HRC063DK: L R0,QMSIZE Size of QMBLOK+msg txt HRC063DK
HRC063DK: LR R1,R5 QMBLOK ptr to R1 HRC063DK
HRC063DK: L R5,QMNEXT -> next QMBLOK HRC063DK
HRC063DK: CALL DMKFRET Release prev QMBLOK HRC063DK
HRC063DK: B VCNQM010 Go prcoess next QMBLOK HRC063DK
HRC063DK: DROP R5 QMBLOK HRC063DK
HRC063DK: * HRC063DK
BEGIN APPLY >>> ./ I 00291000 $ 00291500
END APPLY >>> ./ I 00291000 $ 00291500
BEGIN APPLY >>> ./ I 00561000 $ 00561500
END APPLY >>> ./ I 00561000 $ 00561500
BEGIN APPLY >>> ./ I 00972000 $ 00972200 20
END APPLY >>> ./ I 00972000 $ 00972200 20
Update Succeeded
Update Execution Time 23 milliseconds.
HRC064DK
Date Friday May 19, 2017 07:02:00 PM
Loaded from MAINT(094)
HRC064DK: ./ I 00190130 $ 190200 10
HRC064DK: CLI VCONCOMD,X'63' DIAG 58 control query? HRC064DK
HRC064DK: BE HD58SPCL Y, special handling HRC064DK
HRC064DK: ./ I 00710140 $ 710200 10
HRC064DK: CLI VCONCCW,X'63' DIAG 58 control query? HRC064DK
HRC064DK: BE SETRETN Y, pass it through HRC064DK
HRC064DK: ./ I 01011130 $ 1011200 10
HRC064DK: CLI VCONCOMD,X'63' DIAG 58 control query? HRC064DK
HRC064DK: BE VCND58 Y, exit w/ CC from HDKD58HRC064DK
BEGIN APPLY >>> ./ I 00190130 $ 190200 10
END APPLY >>> ./ I 00190130 $ 190200 10
BEGIN APPLY >>> ./ I 00710140 $ 710200 10
END APPLY >>> ./ I 00710140 $ 710200 10
BEGIN APPLY >>> ./ I 01011130 $ 1011200 10
END APPLY >>> ./ I 01011130 $ 1011200 10
Update Succeeded
Update Execution Time 23 milliseconds.