DMKVCA History
References
-
-
Fixes Applied : 6
-
Last Fix ID : [R13548DK]
Update History
CMS File Input : DMKVCA ASSEMBLE
Date : 12/7/1978 5:17:00 PM
VM Context : MAINT(394)
File Name : DMKVCA.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
R09657DK 609 ABENDPRG005 IF Y-SIDED CTCA LOGGING OFF DURING RESET
R10302DK 611 VIRT MACH WAIT USING VIRTUAL CTCA WITH SIO TRACING ON
R13002DK 621 UV04237 ABENDFRE005 TRYING TO FREE CHXBLOK OR CHYBLOK
R12941DK 622 UV04884 SYNC ERROR RECOV FOR INTERVENTION REQUIRED COND.
R13548DK 623 UV04749 READ OPERATION SHOULD COMPLETE BEFORE WRITE
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 16 milliseconds.
R09657DK
Date Tuesday Jan 29, 1980 11:14:00 AM
Loaded from MAINT(294)
R09657DK: ./ R 1404000 1404000 $ 1403100 100 00001000
R09657DK: L R9,VDEVREAL ADDRESS OF CHXBLOK @VA09657 00002000
R09657DK: DROP R7 @VA09657 00003000
R09657DK: USING CHXBLOK,R9 @VA09657 00004000
R09657DK: L R11,CHXOTHR Y-SIDE VMBLOK @VA09657 00005000
R09657DK: TM VMRSTAT,VMLOGOFF IS Y-SIDE LOGGING OFF ? @VA09657 00006000
R09657DK: BZ FINDCTCA NO,THEN FIND THE CTCA FOR Y-SIDE@VA09657 00007000
R09657DK: L R11,SAVER11 OTHERWISE LOAD CORRECT VMBLOK @VA09657 00008000
R09657DK: B VCAEXIT AND EXIT @VA09657 00009000
R09657DK: FINDCTCA EQU * @VA09657 00010000
R09657DK: LH R1,CHXYADD Y-SIDE VADDR @VA09657 00011000
R09657DK: CALL DMKSCNVU GET Y-SIDE VDEVBLOK @VA09657 00012000
R09657DK: L R6,VDEVREAL ADDRESS OF CHYBLOK @VA09657 00013000
R09657DK: L R11,SAVER11 LOAD CORRECT VMBLOK ADDRESS @VA09657 00014000
R09657DK: LR R7,R9 ACCESS CHXBLOK VIA GR7 @VA09657 00015000
R09657DK: USING CHXBLOK,R7 @VA09657 00016000
R09657DK: DROP R9 @VA09657 00017000
R09657DK: ./ R 1484000 1484000 $ 1484000 00018000
R09657DK: DROP R6,R7,R10 ABANDON STANDARD USAGES @VA09657 00019000
BEGIN APPLY >>> ./ R 1404000 1404000 $ 1403100 100 00001000
END APPLY >>> ./ R 1404000 1404000 $ 1403100 100 00001000
BEGIN APPLY >>> ./ R 1484000 1484000 $ 1484000 00018000
END APPLY >>> ./ R 1484000 1484000 $ 1484000 00018000
Update Succeeded
Update Execution Time 16 milliseconds.
R10302DK
Date Thursday Apr 03, 1980 02:08:00 AM
Loaded from MAINT(294)
R10302DK: ./ D 00716000 00001000
R10302DK: ./ I 00724000 $ 00724100 00002000
R10302DK: BAL R14,USRWAIT ZERO STATUS TO X-SIDE,DO TRACING @VA10302 00003000
BEGIN APPLY >>> ./ D 00716000 00001000
END APPLY >>> ./ D 00716000 00001000
BEGIN APPLY >>> ./ I 00724000 $ 00724100 00002000
END APPLY >>> ./ I 00724000 $ 00724100 00002000
Update Succeeded
Update Execution Time 16 milliseconds.
R13002DK
Date Wednesday Jun 03, 1981 05:19:00 AM
Loaded from MAINT(294)
R13002DK: ./ I 1497000 $ 1497050 50 00001000
R13002DK: BZ CONTINUE NO, FRET BOTH CHBLOKS @VA13002 00002000
R13002DK: USING VCUBLOK,R7 Y, RESTORE Y VDEVBLOK ADDR @VA13002 00003000
R13002DK: LA R8,X'00F' BY ISOLATING DEVICE BIT @VA13002 00004000
R13002DK: NR R8,R1 @VA13002 00005000
R13002DK: AR R8,R8 @VA13002 00006000
R13002DK: LH R8,VCUDVTBL(R8) LOAD VDEVBLOK INDEX @VA13002 00007000
R13002DK: A R8,VMDVSTRT LOAD VDEVBLOK POINTER @VA13002 00007000
R13002DK: DROP R7 @VA13002 00007000
R13002DK: CONTINUE EQU * @VA13002 00008000
BEGIN APPLY >>> ./ I 1497000 $ 1497050 50 00001000
END APPLY >>> ./ I 1497000 $ 1497050 50 00001000
Update Succeeded
Update Execution Time 8 milliseconds.
R12941DK
Date Tuesday Jul 07, 1981 01:38:00 PM
Loaded from MAINT(294)
R12941DK: ./ *
BEGIN APPLY >>> ./ *
Comment >>> ./ *
END APPLY >>> ./ *
Update Succeeded
Update Execution Time 16 milliseconds.
R13548DK
Date Friday Aug 07, 1981 06:24:00 AM
Loaded from MAINT(294)
R13548DK: ./ I 00749000 $ 749070 70 00001000
R13548DK: TM SAVEWRK1+2,DEFCPX IS THERE A DEFERRED TASK @VA13548 00002000
R13548DK: BZ CPEXDONE NO, NOTHING TO DO ON OTHER SIDE @VA13548 00003000
R13548DK: NI SAVEWRK1+2,255-DEFCPX YES, WE'LL DO IT NOW @VA13548 00004000
R13548DK: L R1,CHYCNCT GET THE CPEXBLOK ON OTHER SIDE @VA13548 00005000
R13548DK: LTR R1,R1 IS IT THERE ... SHOULD BE @VA13548 00006000
R13548DK: BZ CPEXLOST NO, CLEAN UP AND CONTINUE @VA13548 00007000
R13548DK: CALL DMKSTKCP LET OTHER SIDE CONTINUE NOW @VA13548 00008000
R13548DK: SR R3,R3 ZERO POINTER TO CPEXBLOK @VA13548 00009000
R13548DK: ST R3,CHYCNCT RIGHT HERE @VA13548 00010000
R13548DK: CPEXLOST DS 0H @VA13548 00011000
R13548DK: NI CHYFLAG,255-CHBWAIT TAKE Y-SIDE OUT OF WAIT @VA13548 00012000
R13548DK: CPEXDONE DS 0H CONTINUE WITH X-SIDE PROCESSING @VA13548 00013000
R13548DK: ./ R 01059000 01068000 $ 1059000 300 00014000
R13548DK: RECONCT EQU * RECONNECT THE Y-SIDE AND DEFER @VA13548 00015000
R13548DK: * THE X-SIDE UNTIL Y-SIDE COMPLETES 00016000
R13548DK: L R1,CHYCNCT GET THE Y-SIDE CPEXBLOK @VA13548 00017000
R13548DK: LTR R1,R1 IS THERE ONE ? @VA13548 00018000
R13548DK: BZ NOCPEX1 NO, GO TAKE CARE OF X-SIDE @VA13548 00019000
R13548DK: CALL DMKSTKCP STACK THE Y-SIDE CPEXBLOK @VA13548 00020000
R13548DK: USING CPEXBLOK,R1 GET ADDRESSABILITY TO Y-SIDE @VA13548 00021000
R13548DK: L R3,CHXCNCT SEE IF THERE IS AN X-SIDE BLOK @VA13548 00022000
R13548DK: LTR R3,R3 IS THERE ONE ? @VA13548 00023000
R13548DK: BZ YEXIT1 NO, NO NEED TO DEFER IT THEN @VA13548 00024000
R13548DK: LR R3,R13 SAVE ADDR OF OUR SAVE AREA @VA13548 00025000
R13548DK: L R13,CPEXR13 GET Y-SIDE SAVEAREA ADDR @VA13548 00026000
R13548DK: OI SAVEWRK1+2,DEFCPX INDICATE WE'RE DEFERRING TASK @VA13548 00027000
R13548DK: LR R13,R3 RE-ESTABLISH OUR SAVE AREA ADDR @VA13548 00028000
R13548DK: YEXIT DS 0H @VA13548 00029000
R13548DK: NI CHYFLAG,255-CHBWAIT TAKE Y-SIDE OUT OF WAIT @VA13548 00030000
R13548DK: SR R3,R3 ZERO CONSTANT @VA13548 00031000
R13548DK: ST R3,CHYCNCT ZERO OUT THE Y-SIDE CPEX POINTER @VA13548 00032000
R13548DK: B VCADSPCH GO TO DISPATCHER @VA13548 00033000
R13548DK: DROP R1 DROP CPEXBLOK ADDRESSABILITY @VA13548 00034000
R13548DK: SPACE 2 00035000
R13548DK: NOCPEX1 DS 0H @VA13548 00036000
R13548DK: L R1,CHXCNCT GET THE X-SIDE CPEXBLOK @VA13548 00037000
R13548DK: LTR R1,R1 IS THERE ONE ? @VA13548 00038000
R13548DK: BZ YEXIT1 NO, GO RESET AND EXIT @VA13548 00039000
R13548DK: CALL DMKSTKCP YES, STACK THE X-SIDE CPEXBLOK @VA13548 00040000
R13548DK: SR R3,R3 GET A ZERO CONSTANT @VA13548 00041000
R13548DK: ST R3,CHXCNCT RESET THE X-SIDE CPEXBLOK POINTER@VA13548 00042000
R13548DK: YEXIT1 NI CHXFLAG,255-CHBWAIT TAKE X-SIDE OUT OF WAIT @VA13548 00043000
R13548DK: B YEXIT GO TO RESET THE Y-SIDE @VA13548 00044000
R13548DK: ./ I 01667000 $ 1667500 500 00045000
R13548DK: DEFCPX EQU X'80' FLAG INDICATING DEFERRED CPEXBLOK@VA13548 00046000
BEGIN APPLY >>> ./ I 00749000 $ 749070 70 00001000
END APPLY >>> ./ I 00749000 $ 749070 70 00001000
BEGIN APPLY >>> ./ R 01059000 01068000 $ 1059000 300 00014000
END APPLY >>> ./ R 01059000 01068000 $ 1059000 300 00014000
BEGIN APPLY >>> ./ I 01667000 $ 1667500 500 00045000
END APPLY >>> ./ I 01667000 $ 1667500 500 00045000
Update Succeeded
Update Execution Time 16 milliseconds.