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