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