DMKVSI History
References
-
-
Fixes Applied : 21
-
Last Fix ID : [R14370DK]
Update History
CMS File Input : DMKVSI ASSEMBLE
Date : 12/14/1978 8:52:00 AM
VM Context : MAINT(394)
File Name : DMKVSI.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:48 AM
Created : 1/16/2021 7:31:48 AM
Update Order
R09302DK 601 FORCE RE-ASSEMBLY FOR MSSCOM MACRO CHANGE
R08776DK 601 PE FIX FOR V08600
R09586DK 602 SPLIT MODULE DMKVSI INTO DMKVSI AND DMKVSC
R08629DK 603 2250/3250
R09957DK 604 CORRECT IOBLOK CONFLICT IN MSS SUPPORT
R10074DK 604 ADD SWITCH MACRO BEFORE CLRCH INSTRUCTION
R09257DK 606 POOR RESPONSE TIME WITH AP SYSTEM
R09849DK 607 FAILURE TO OBTAIN SYSTEM LOCK BEFORE CALLING DMKVSC
R10311DK 611 GIVE ACCURATE CC1 ON TCH
R09727DK 611 DMKVSI DOES NOT GET LOCK BEFORE CALLING DMKTRDSI
R09201DK 611 REMOVE EXTRA CALLS TO GETLOCK
R08664DK 611 FLAG ECPS STATEMENTS WITH %
R09728DK 611 DMKVSI WILL OBTAIN SYSTEM LOCK BEFORE UPDATING COUNTERS
R10542DK 612 UV00837 TURN OFF VDEVCHBS ON HDV FOR CC=1,CC=2
R11570DK 616 UV01953 REFLECT ATTN INTERRUPT ON DEDICATED DEVICE CORRECTLY
R12875DK 621 UV04287 REDO THE CODE FOR THE TCH TO REFLECT COND CODES CORRECTLY
R13211DK 622 UV04670 RECALCULATE VBLOK TO R3 AFTER CALLS
R13658DK 622 UV04732 INDICATE COMMAND TO REFLECT HIO AND TIO AS WELL
R12941DK 622 UV04884 SYNC ERROR RECOV FOR INTERVENTION REQUIRED COND.
R12128DK 623 UV04791 SPLIT DMKVSI INTO DMKVSI AND DMKVSJ
R14370DK 623 UV05500 ADD REFERENCE TO DMKVSICH FOR VM12128
R09302DK
Date Friday Feb 02, 1979 05:19:00 PM
Loaded from MAINT(294)
R09302DK: ./ * FORCE RE-ASSEMBLY FOR MSSCOM CHANGE
BEGIN APPLY >>> ./ * FORCE RE-ASSEMBLY FOR MSSCOM CHANGE
Comment >>> ./ * FORCE RE-ASSEMBLY FOR MSSCOM CHANGE
END APPLY >>> ./ * FORCE RE-ASSEMBLY FOR MSSCOM CHANGE
Update Succeeded
Update Execution Time 8 milliseconds.
R08776DK
Date Wednesday Feb 28, 1979 03:29:00 PM
Loaded from MAINT(294)
R08776DK: ./ R 581000 $ 581500
R08776DK: TM VDEVTYPC,CLASDASD+CLASTAPE DISK OR TAPE? @VA08776 00002000
BEGIN APPLY >>> ./ R 581000 $ 581500
END APPLY >>> ./ R 581000 $ 581500
Update Succeeded
Update Execution Time 16 milliseconds.
R09586DK
Date Wednesday Mar 28, 1979 03:28:00 AM
Loaded from MAINT(294)
R09586DK: ./ I 56000 $ 56100
R09586DK: * DMKVSCVR - TO VERIFY THAT THE NOTRANS OPTION IS VALID 00056100
R09586DK: ./ I 129000 $ 129100 100
R09586DK: AIF (NOT &VIRREAL).NOVR1 **AIF** 00129100
R09586DK: EXTRN DMKVSCVR @VA09586 00129200
R09586DK: .NOVR1 ANOP 00129300
R09586DK: ./ R 351000 441000 $ 351000 1000
R09586DK: CALL DMKVSCVR SEE IF TRANSLATION IS NECESSARY @VA09586 00351000
R09586DK: LTR R15,R15 CHECK RETURN CODE @VA09586 00353000
R09586DK: BZ NOCCWTR2 NO TRANSLATION IS NECESSARY @VA09586 00362000
R09586DK: .NOVR3 ANOP 00373000
R09586DK: ./ D 00498000 00507000
R09586DK: ./ D 01290000 01609000
BEGIN APPLY >>> ./ I 56000 $ 56100
END APPLY >>> ./ I 56000 $ 56100
BEGIN APPLY >>> ./ I 129000 $ 129100 100
END APPLY >>> ./ I 129000 $ 129100 100
BEGIN APPLY >>> ./ R 351000 441000 $ 351000 1000
END APPLY >>> ./ R 351000 441000 $ 351000 1000
BEGIN APPLY >>> ./ D 00498000 00507000
END APPLY >>> ./ D 00498000 00507000
BEGIN APPLY >>> ./ D 01290000 01609000
END APPLY >>> ./ D 01290000 01609000
Update Succeeded
Update Execution Time 23 milliseconds.
R08629DK
Date Thursday May 10, 1979 04:51:00 PM
Loaded from MAINT(294)
R08629DK: ./ R 518000 518000 $ 517050 050 00001000
R08629DK: VIOQREAL EQU * @VA08629 00002000
R08629DK: TM IOBSPEC3,IOBSENSE SPECIAL 2250/3250 SITUATION @VA08629 00003000
R08629DK: * OF STANDALONE SENSE WITHOUT EXECUTING SENSE ON REAL HARDWARE 00004000
R08629DK: BZ VIOREAL2 @VA08629 00005000
R08629DK: L R15,IOBCAW ADDRESS OF CHANNEL PROGRAM @VA08629 00006000
R08629DK: LH R14,6(,R15) GET SENSE LENGTH @VA08629 00007000
R08629DK: LH R1,IOBCSW+6 CALCULATE RIGHT RESIDUAL COUNT @VA08629 00008000
R08629DK: SLR R14,R1 ... @VA08629 00009000
R08629DK: STH R14,IOBCSW+6 STORE IN IOBLOK FOR LATER @VA08629 00010000
R08629DK: LA R14,(256*(CE+DE)) PREPARE TO REFLECT CC=0 AND @VA08629 00011000
R08629DK: * CE+DE TO 2250/3250 WITHOUT EXECUTING SENSE ON HARDWARE 00012000
R08629DK: STH R14,IOBCSW+4 NOW DEVICE STATUS @VA08629 00013000
R08629DK: LA R15,8(,R15) CSW POINTS TO 8 PAST SENSE @VA08629 00014000
R08629DK: ST R15,IOBCSW ... @VA08629 00015000
R08629DK: ST R11,IOBUSER STORE VMBLOK ADDRESS IN IOBLOK @VA08629 00016000
R08629DK: CALL DMKSTKIO THIS IOBLOK BEFORE PENDING I/O @VA08629 00017000
R08629DK: NI VMRSTAT,X'FF'-VMIOWAIT TAKE USER OUT OF IOWAIT @VA08629 00018000
R08629DK: B SKIPIOS BYPASS CALLING DMKIOS @VA08629 00019000
R08629DK: VIOREAL2 EQU * @VA08629 00020000
R08629DK: ./ R 580000 580000 $ 580000 100 00021000
R08629DK: SKIPIOS STH R13,VMACTDEV SAVE VADDR FOR DMKTHI @VA08629 00022000
BEGIN APPLY >>> ./ R 518000 518000 $ 517050 050 00001000
END APPLY >>> ./ R 518000 518000 $ 517050 050 00001000
BEGIN APPLY >>> ./ R 580000 580000 $ 580000 100 00021000
END APPLY >>> ./ R 580000 580000 $ 580000 100 00021000
Update Succeeded
Update Execution Time 16 milliseconds.
R09957DK
Date Thursday Jul 12, 1979 09:55: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.
R10074DK
Date Thursday Jul 05, 1979 04:08:00 PM
Loaded from MAINT(294)
R10074DK: ./ R 758000 $ 758100 100 DMK00010
R10074DK: SWITCH MAKE SURE WE ARE ON I/O PROC @VMV0003 DMK00020
R10074DK: LH R1,VCHADD GET CHANNEL ADDR - REAL=VIRTUAL @VMV0003 DMK00030
R10074DK: * CLRCH 0(R1) ISSUE REAL CLRCH INSTRUCTION @VMV0003 DMK00040
R10074DK: DC X'9F01' ISSUE REAL CLRCH INSTRUCTION @VMV0003 DMK00050
R10074DK: DC S(0(1)) FOR SPECIFIED CHANNEL @VMV0003 DMK00060
R10074DK: ./ R 760000 $ 760000 DMK00070
R10074DK: BALR R0,0 PRESERVE C.C. FROM CLRCH INSTR. @VMD0117 DMK00080
R10074DK: ./ I 761000 $ 761100 100 DMK00090
R10074DK: TM TRACFLG2,TRACBEF I/O TRACING ACTIVE? @VMV0003 DMK00100
R10074DK: BZ CLRCHNOT NO -- RESTORE CC AND RETURN @VMV0003 DMK00110
R10074DK: ./ I 767000 $ 767100 DMK00120
R10074DK: CLRCHNOT EQU * RESTORE COND CODE, RETURN @VMV0003 DMK00130
BEGIN APPLY >>> ./ R 758000 $ 758100 100 DMK00010
END APPLY >>> ./ R 758000 $ 758100 100 DMK00010
BEGIN APPLY >>> ./ R 760000 $ 760000 DMK00070
END APPLY >>> ./ R 760000 $ 760000 DMK00070
BEGIN APPLY >>> ./ I 761000 $ 761100 100 DMK00090
END APPLY >>> ./ I 761000 $ 761100 100 DMK00090
BEGIN APPLY >>> ./ I 767000 $ 767100 DMK00120
END APPLY >>> ./ I 767000 $ 767100 DMK00120
Update Succeeded
Update Execution Time 16 milliseconds.
R09257DK
Date Wednesday Oct 31, 1979 09:20:00 AM
Loaded from MAINT(294)
R09257DK: ./ I 1211000 $ 1211100 20 00001000
R09257DK: L R15,PREFIXB ACCESS OTHER PSA @VA09257 00002000
R09257DK: TM XCPEND-PSA(R15),XCDISP DISPATCH PENDING? @VA09257 00003000
R09257DK: BZ CKRQ NO DISPATCH PENDING. @VA09257 00004000
R09257DK: LOCK RELEASE,TYPE=SYS YES,RELEASE GLOBAL LOCK. @VA09257 00005000
R09257DK: B FASTDSP FAST REDISPATCH @VA09257 00006000
R09257DK: CKRQ DS 0H @VA09257 00007000
BEGIN APPLY >>> ./ I 1211000 $ 1211100 20 00001000
END APPLY >>> ./ I 1211000 $ 1211100 20 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R09849DK
Date Friday Nov 30, 1979 06:11:00 AM
Loaded from MAINT(294)
R09849DK: ./ * FORCE RE-ASSEMBLY OF DMKVSI FOR PTF V09849
BEGIN APPLY >>> ./ * FORCE RE-ASSEMBLY OF DMKVSI FOR PTF V09849
Comment >>> ./ * FORCE RE-ASSEMBLY OF DMKVSI FOR PTF V09849
END APPLY >>> ./ * FORCE RE-ASSEMBLY OF DMKVSI FOR PTF V09849
Update Succeeded
Update Execution Time 8 milliseconds.
R10311DK
Date Wednesday Apr 02, 1980 04:01:00 AM
Loaded from MAINT(294)
R10311DK: ./ R 00726000 00730000 $ 00726010 10 00001000
R10311DK: VIOTCH2 DS 0H @VA10311
R10311DK: TM VMPEND,VMIOPND ANYTHING PENDING? @VA10311 00002000
R10311DK: BNO VIOEXITX NO...GET OUT WITH CC=0 @VA10311 00003000
R10311DK: LH R9,VCHADD GET CHANNEL ADDRESS @VA10311 00004000
R10311DK: SRL R9,7 MAKE IT AN INDEX @VA10311 00005000
R10311DK: AL R9,=A(DMKVIOMK) AND POINT INTO TABLE @VA10311 00006000
R10311DK: CLI 0(R9),X'00' IS CHAN GREATER THAN 7 @VA10311 00007000
R10311DK: BNE TESTCH NO... USE FIRST BYTES @VA10311 00008000
R10311DK: IC R9,1(R9) BUMP TO "RIGHT" BYTE @VA10311 00009000
R10311DK: EX R9,ISITON2 TEST IF PENDING @VA10311 00010000
R10311DK: B GETOUT CHK THIS CC AND SET FOR USER @VA10311 00011000
R10311DK: ISITON TM VMIOINT,0 FIRST 8 CHANNELS TEST @VA10311 00012000
R10311DK: ISITON2 TM VMIOINT+1,0 CHECK LAST 8 CHANNELS @VA10311 00013000
R10311DK: TESTCH DS 0H @VA10311 00014000
R10311DK: IC R9,0(R9) GET THE FIRST FLAG BYTE @VA10311
R10311DK: EX R9,ISITON TEST LEFT HALF (0-7) @VA10311 00015000
R10311DK: GETOUT DS 0H @VA10311 00016000
R10311DK: BNO VIOEXITX NO ACTY ON CHAN..LEAVE CC=0 @VA10311 00017000
BEGIN APPLY >>> ./ R 00726000 00730000 $ 00726010 10 00001000
END APPLY >>> ./ R 00726000 00730000 $ 00726010 10 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R09727DK
Date Wednesday Apr 02, 1980 11:20:00 AM
Loaded from MAINT(294)
R09727DK: ./ I 1195000 $ 1195100 10 00001000
R09727DK: BAL R9,GETLOCK GET THE SYSTEM LOCK @VA09727 00002000
BEGIN APPLY >>> ./ I 1195000 $ 1195100 10 00001000
END APPLY >>> ./ I 1195000 $ 1195100 10 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R09201DK
Date Wednesday Apr 02, 1980 12:10:00 PM
Loaded from MAINT(294)
R09201DK: ./ R 267000 $ 266300 300 00001000
R09201DK: BNE NEEDLOCK NO, MUST HAVE LOCK @VA09201 00002000
R09201DK: CLC VMINST(2),=X'9C01' IS THIS SIOF ? @VA09201 00003000
R09201DK: BNE NEEDLOCK NO, NEED LOCK @VA09201 00004000
R09201DK: TM VDEVSTAT,VDEVDED DEDICATED DEVICE ? @VA09201 00005000
R09201DK: BO VIOSIO2 YES, BYPASS LOCKING @VA09201 00006000
R09201DK: NEEDLOCK EQU * @VA09201 00007000
R09201DK: ./ D 280000 282000 $ 00008000
R09201DK: ./ D 308000 $ 00009000
R09201DK: ./ R 348000 $ 348100 00010000
R09201DK: BNE CCWTR NO, TRANSLATE CCW'S @VA09201 00011000
R09201DK: ./ I 443000 $ 443500 00012000
R09201DK: CCWTR EQU * @VA09201 00013000
BEGIN APPLY >>> ./ R 267000 $ 266300 300 00001000
END APPLY >>> ./ R 267000 $ 266300 300 00001000
BEGIN APPLY >>> ./ D 280000 282000 $ 00008000
END APPLY >>> ./ D 280000 282000 $ 00008000
BEGIN APPLY >>> ./ D 308000 $ 00009000
END APPLY >>> ./ D 308000 $ 00009000
BEGIN APPLY >>> ./ R 348000 $ 348100 00010000
END APPLY >>> ./ R 348000 $ 348100 00010000
BEGIN APPLY >>> ./ I 443000 $ 443500 00012000
END APPLY >>> ./ I 443000 $ 443500 00012000
Update Succeeded
Update Execution Time 23 milliseconds.
R08664DK
Date Wednesday Apr 02, 1980 04:01:00 AM
Loaded from MAINT(294)
R08664DK: ./ R 266000 $ 266000 00001000
R08664DK: C R11,AVMREAL V=R USER? @VA08664 00002000
R08664DK: ./ R 268000 271000 $ 268000 1000
R08664DK: BAL R9,GETLOCK NO, GO GET THE SYSTEM LOCK @VA08664 00004000
R08664DK: VIOSIO2 EQU * @VA08664 00007000
R08664DK: LR R10,R5 SAVE CCW ADDRESS FROM HVC @VA08664 00008000
BEGIN APPLY >>> ./ R 266000 $ 266000 00001000
END APPLY >>> ./ R 266000 $ 266000 00001000
BEGIN APPLY >>> ./ R 268000 271000 $ 268000 1000
END APPLY >>> ./ R 268000 271000 $ 268000 1000
Update Succeeded
Update Execution Time 16 milliseconds.
R09728DK
Date Wednesday Apr 02, 1980 12:27:00 PM
Loaded from MAINT(294)
R09728DK: ./ I 209000 $ 209100 00001000
R09728DK: BAL R9,GETLOCK GET SYSTEM LOCK @VA09728 00002000
BEGIN APPLY >>> ./ I 209000 $ 209100 00001000
END APPLY >>> ./ I 209000 $ 209100 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R10542DK
Date Monday May 05, 1980 04:11:00 AM
Loaded from MAINT(294)
R10542DK: ./ R 909000 $ 909100 00001000
R10542DK: BC 2,VIOEXIT2 IT WAS CONDITION CODE 2 EXIT @VA10542 00002000
R10542DK: ./ I 913000 $ 913100 100 00003000
R10542DK: CLC CSW+4(2),ZEROES HALT DEVICE CC=1 STATUS=0 @VA10542 00004000
R10542DK: BNE HIONZSTA NO BRANCH @VA10542 00005000
R10542DK: NI VDEVSTAT,255-VDEVCHBS RESET CHANNEL BUSY @VA10542 00006000
R10542DK: HIONZSTA EQU * @VA10542 00007000
R10542DK: ./ I 1165000 $ 1165100 00008000
R10542DK: B VIOEXIT @VA10542 00009000
R10542DK: ./ I 1170000 $ 1170100 00010000
R10542DK: VIOEXIT2 NI VDEVSTAT,255-VDEVCHBS RESET CHANNEL BUSY @VA10542 00011000
BEGIN APPLY >>> ./ R 909000 $ 909100 00001000
END APPLY >>> ./ R 909000 $ 909100 00001000
BEGIN APPLY >>> ./ I 913000 $ 913100 100 00003000
END APPLY >>> ./ I 913000 $ 913100 100 00003000
BEGIN APPLY >>> ./ I 1165000 $ 1165100 00008000
END APPLY >>> ./ I 1165000 $ 1165100 00008000
BEGIN APPLY >>> ./ I 1170000 $ 1170100 00010000
END APPLY >>> ./ I 1170000 $ 1170100 00010000
Update Succeeded
Update Execution Time 16 milliseconds.
R11570DK
Date Friday Oct 03, 1980 09:30:00 AM
Loaded from MAINT(294)
R11570DK: ./ I 488000 $ 488100 100 00001000
R11570DK: TM VDEVSTAT,VDEVDED DEDICATE DEVICE? @VA11570 00002000
R11570DK: BO VSIGTLOK YES, CHECK FOR ATTN INT. @VA11570 00003000
R11570DK: ./ I 490000 $ 490100 00004000
R11570DK: VSIGTLOK DS 0H @VA11570 00005000
R11570DK: ./ I 491000 $ 491100 100 00006000
R11570DK: TM VDEVSTAT,VDEVDED DEDICATE DEVICE? @VA11570 00007000
R11570DK: BO VIOKNCP YES, CHECK FOR ATTN INT. @VA11570 00008000
R11570DK: ./ I 509000 $ 509100 100 00009000
R11570DK: TM VDEVSTAT,VDEVDED DEDICATE DEVICE? @VA11570 00010000
R11570DK: BO VSIATDED YES, GO AHEAD FOR CHECK ATTN. @VA11570 00011000
R11570DK: ./ I 511000 $ 511100 00012000
R11570DK: VSIATDED DS 0H @VA11570 00013000
BEGIN APPLY >>> ./ I 488000 $ 488100 100 00001000
END APPLY >>> ./ I 488000 $ 488100 100 00001000
BEGIN APPLY >>> ./ I 490000 $ 490100 00004000
END APPLY >>> ./ I 490000 $ 490100 00004000
BEGIN APPLY >>> ./ I 491000 $ 491100 100 00006000
END APPLY >>> ./ I 491000 $ 491100 100 00006000
BEGIN APPLY >>> ./ I 509000 $ 509100 100 00009000
END APPLY >>> ./ I 509000 $ 509100 100 00009000
BEGIN APPLY >>> ./ I 511000 $ 511100 00012000
END APPLY >>> ./ I 511000 $ 511100 00012000
Update Succeeded
Update Execution Time 16 milliseconds.
R12875DK
Date Wednesday Jun 03, 1981 04:27:00 AM
Loaded from MAINT(294)
R12875DK: ./ I 00726010 $ 726011 1
R12875DK: TM VCHTYPE,VCHSEL THIS A SELECTOR CHANNEL??? @VA12875 TE 00010
R12875DK: BNO CKPEND01 NO, CHECK FOR I/O PENDING @VA12875 TE 00020
R12875DK: TM VCHSTAT,VCHBUSY IS THE CHANNEL BUSY???? @VA12875 TE 00030
R12875DK: BNO CKPEND01 NO - SEE IF ANY I/O PENDING @VA12875 TE 00040
R12875DK: LA R2,CC2 SET CC=2: CHANNEL IN BURST MODE @VA12875 TE 00050
R12875DK: B VIOEXIT EXIT @VA12875 TE 00060
R12875DK: CKPEND01 DS 0H CHECK FOR INTERRUPT PENDING @VA12875 06867000
R12875DK: ./ I 00726030 $ 726033 3
R12875DK: SR R3,R3 ZERO REGISTER 3 @VA12875 06883000
R12875DK: SR R4,R4 ZERO REGISTER 4 @VA12875 06886000
R12875DK: ./ R 00726060 00726180 $ 726060 900
R12875DK: AL R9,=A(DMKVIOMK) AND POINT TO INTERRUPT MASK @VA12875 06910000
R12875DK: ICM R4,B'0011',0(R9) FOR THIS CHANNEL @VA12875 06940000
R12875DK: ICM R3,B'0011',VMIOINT LOAD CURRENT PENDING CE @VA12875 06970000
R12875DK: NR R4,R3 IS THERE AN INTERRUPT PENDING?? @VA12875 07000000
R12875DK: BZ VIOEXITX NO ACTY ON CHAN..LEAVE CC=0 @VA12875 07030000
R12875DK: ./ I 01250000 $ 1250500 500
R12875DK: CC2 EQU X'20' CONDITION CODE 2 @VA12875 14045000
BEGIN APPLY >>> ./ I 00726010 $ 726011 1
END APPLY >>> ./ I 00726010 $ 726011 1
BEGIN APPLY >>> ./ I 00726030 $ 726033 3
END APPLY >>> ./ I 00726030 $ 726033 3
BEGIN APPLY >>> ./ R 00726060 00726180 $ 726060 900
END APPLY >>> ./ R 00726060 00726180 $ 726060 900
BEGIN APPLY >>> ./ I 01250000 $ 1250500 500
END APPLY >>> ./ I 01250000 $ 1250500 500
Update Succeeded
Update Execution Time 23 milliseconds.
R13211DK
Date Wednesday Jun 24, 1981 06:15:00 AM
Loaded from MAINT(294)
R13211DK: ./ I 302000 $ 302500
R13211DK: BAL R9,LOADER3 GO RECALC ADDR IN R3 @VA13211 LIN00010
R13211DK: ./ I 455000 $ 455500
R13211DK: BAL R9,LOADER3 GO RECALC ADDR IN R3 @VA13211 LIN00010
R13211DK: ./ I 597000 $ 597025 25
R13211DK: *---------------------------------------------------------------------* DMK05630
R13211DK: * * DMK05640
R13211DK: * LOADER3: * DMK05650
R13211DK: *---------------------------------------------------------------------* DMK05660
R13211DK: * * DMK05670
R13211DK: * HERE TO RECALCULATE THE VBLOK ADDRESS EXPECTED IN R3 * DMK05680
R13211DK: * AFTER CALLS TO DMKPTRAN AND DMKCCWTR. * DMK05690
R13211DK: * * DMK05700
R13211DK: * THIS RECALCULATION IS NECESSARY, BECAUSE UPON RETURN * DMK05710
R13211DK: * THE CONTENTS OF R3 MAY HAVE BEEN ALTERED (DUE TO RE- * DMK05720
R13211DK: * ENTRANCY). * DMK05730
R13211DK: *---------------------------------------------------------------------* DMK05750
R13211DK: LOADER3 DS 0H HERE TO RECALC VBLOK ADDR IN R3 @VA13211 00993000
R13211DK: LR R3,R6 LOAD ADDR OF VCHBLOK @VA13211 00994000
R13211DK: TM VCHTYPE,VCHSEL IS IT FOR SELECTOR CHANNEL? @VA13211 00995000
R13211DK: BOR R9 YES...RETURN TO CALLER @VA13211 00996000
R13211DK: LR R3,R7 ELSE; LOAD ADDRESS OF VCUBLOK @VA13211 00997000
R13211DK: TM VCUTYPE,VCUSHRD+VCUCTCA SHARED SUB-CHANNEL ? @VA13211 00998000
R13211DK: BNZR R9 YES...RETUNR TO CALLER @VA13211 00999000
R13211DK: LR R3,R8 CHANNEL STATUS IN DEVICE BLOK @VA13211 01000000
R13211DK: BR R9 RETURN TO CALLER @VA13211 01000000
R13211DK: EJECT 01001000
BEGIN APPLY >>> ./ I 302000 $ 302500
END APPLY >>> ./ I 302000 $ 302500
BEGIN APPLY >>> ./ I 455000 $ 455500
END APPLY >>> ./ I 455000 $ 455500
BEGIN APPLY >>> ./ I 597000 $ 597025 25
END APPLY >>> ./ I 597000 $ 597025 25
Update Succeeded
Update Execution Time 16 milliseconds.
R13658DK
Date Wednesday Jun 24, 1981 06:18:00 AM
Loaded from MAINT(294)
R13658DK: ./ I 925000 $ 925100
R13658DK: STH R13,VMACTDEV SAVE VIRT ADDR FOR TIO OR HIO @VM1365
BEGIN APPLY >>> ./ I 925000 $ 925100
END APPLY >>> ./ I 925000 $ 925100
Update Succeeded
Update Execution Time 16 milliseconds.
R12941DK
Date Tuesday Jul 07, 1981 01:39:00 PM
Loaded from MAINT(294)
R12941DK: ./ *
BEGIN APPLY >>> ./ *
Comment >>> ./ *
END APPLY >>> ./ *
Update Succeeded
Update Execution Time 8 milliseconds.
R12128DK
Date Thursday Aug 27, 1981 08:14:00 AM
Loaded from MAINT(294)
R12128DK: ./ I 00020000 $ 20200 200 01/28/81 12:54:16
R12128DK: * (HIO AND CLCH ARE PROCESSED BY DMKVSJ) 00020100
R12128DK: * 00020200
R12128DK: * DMKVSICH - RE-ENTRY FROM DMKVSJ TO PROCESS CLCH AS A TCH 00020300
R12128DK: ./ I 00030000 $ 30100 100 01/28/81 12:54:16
R12128DK: * 00030100
R12128DK: * FOR DMKVSICH - 00030200
R12128DK: * GPR12 = DMKVSIEX BASE 00030300
R12128DK: * ALL OTHER REGISTERS CONTAIN THE SAME VALUES THAT THEY 00030400
R12128DK: * HAD IN DMKVSJ 00030500
R12128DK: ./ R 00038000 $ 38000 200 01/28/81 12:54:16
R12128DK: * DMKVSI BRANCHES TO DMKVSJ FOR SUBROUTINES AND FOR 00037100
R12128DK: * EXIT PROCESSING AND HIO AND CLCH SIMULATION 00037200
R12128DK: * 00037300
R12128DK: * 00038000
R12128DK: ./ D 00042000 01/28/81 12:54:16
R12128DK: ./ D 00049000 01/28/81 12:54:16
R12128DK: ./ D 00053000 00055000 01/28/81 12:54:16
R12128DK: ./ R 00061000 $ 61000 1000 01/28/81 12:54:16
R12128DK: * DMKVSJEX - TO HANDLE HIO AND CLCH AND SUBROUTINES 00061000
R12128DK: ./ R 00099000 00100000 $ 99000 500 01/28/81 12:54:16
R12128DK: * 4. BRANCH TO HANDLE SIO, TIO, AND TCH, DESCRIBED 00099100
R12128DK: * IN SECTIONS A-C RESPECTIVELY. 00099200
R12128DK: * 5. BRANCH TO DMKVSJ FOR SUBROUTINES AND EXIT PROCESSING 00099300
R12128DK: * AND TO SIMULATE HIO AND CLCH 00099400
R12128DK: ./ D 00113000 00114000 01/28/81 12:54:16
R12128DK: ./ R 00117000 $ 117000 1000 01/28/81 12:54:16
R12128DK: EXTRN DMKVIOMK @VA12128 00117000
R12128DK: ./ R 00125000 $ 125000 1000 01/28/81 12:54:16
R12128DK: EXTRN DMKVCAST,DMKVCATS @VA12128 00125000
R12128DK: ./ R 00128000 00129000 $ 128000 500 01/28/81 12:54:16
R12128DK: EXTRN DMKVSJEX @VA12128 00128000
R12128DK: EXTRN DMKDSPCH @VA12128 00129000
R12128DK: ./ I 00209100 $ 209200 100 01/28/81 12:54:16
R12128DK: USING *,R9 NEW ADDRESSABILITY TO HERE @VA12128 00209200
R12128DK: L R12,ADMKVSI RESTORE BASE REG @VA12128 00209300
R12128DK: DROP R9 IT WAS ONLY TEMPORARY @VA12128 00209400
R12128DK: USING DMKVSI,R12 STANDARD ADDRESSABILITY @VA12128 00209500
R12128DK: ./ I 00268000 $ 268200 200 01/28/81 12:54:16
R12128DK: USING *,R9 NEW ADDRESSABILITY TO HERE @VA12128 00268100
R12128DK: L R12,ADMKVSI RESTORE BASE REG @VA12128 00268200
R12128DK: DROP R9 IT WAS ONLY TEMPORARY @VA12128 00268300
R12128DK: USING DMKVSI,R12 STANDARD ADDRESSABILITY @VA12128 00268400
R12128DK: ./ I 00443000 $ 443100 100 01/28/81 12:54:16
R12128DK: USING *,R9 NEW ADDRESSABILITY TO HERE @VA12128 00443100
R12128DK: L R12,ADMKVSI RESTORE BASE REG @VA12128 00443200
R12128DK: DROP R9 IT WAS ONLY TEMPORARY @VA12128 00443300
R12128DK: USING DMKVSI,R12 STANDARD ADDRESSABILITY @VA12128 00443400
R12128DK: ./ I 00491000 $ 491020 20 01/28/81 12:54:16
R12128DK: USING *,R9 NEW ADDRESSABILITY TO HERE @VA12128 00491100
R12128DK: L R12,ADMKVSI RESTORE BASE REG @VA12128 00491200
R12128DK: DROP R9 IT WAS ONLY TEMPORARY @VA12128 00491300
R12128DK: USING DMKVSI,R12 STANDARD ADDRESSABILITY @VA12128 00491400
R12128DK: ./ I 00529000 $ 529200 200 01/28/81 12:54:16
R12128DK: USING *,R9 NEW ADDRESSABILITY TO HERE @VA12128 00529100
R12128DK: L R12,ADMKVSI RESTORE BASE REG @VA12128 00529200
R12128DK: DROP R9 IT WAS ONLY TEMPORARY @VA12128 00529300
R12128DK: USING DMKVSI,R12 STANDARD ADDRESSABILITY @VA12128 00529400
R12128DK: ./ I 00574000 $ 574500 500 01/28/81 12:54:16
R12128DK: SPACE 00574100
R12128DK: ./ I 00630000 $ 630200 200 01/28/81 12:54:16
R12128DK: USING *,R9 NEW ADDRESSABILITY TO HERE @VA12128 00630100
R12128DK: L R12,ADMKVSI RESTORE BASE REG @VA12128 00630200
R12128DK: DROP R9 IT WAS ONLY TEMPORARY @VA12128 00630300
R12128DK: USING DMKVSI,R12 STANDARD ADDRESSABILITY @VA12128 00630400
R12128DK: ./ D 00643000 01/28/81 12:54:16
R12128DK: ./ D 00646000 01/28/81 12:54:16
R12128DK: ./ D 00649000 01/28/81 12:54:16
R12128DK: ./ R 00651000 $ 651000 1000 01/28/81 12:54:16
R12128DK: SPACE 2 00651000
R12128DK: ./ R 00733000 00989000 $ 733000 20000 01/28/81 12:54:16
R12128DK: SPACE 00743000
R12128DK: * 00753000
R12128DK: * RE-ENTRY POINT FROM DMKVSJ TO PROCESS CLCH AS A TCH 00763000
R12128DK: * 00773000
R12128DK: DMKVSICH DS 0D @VA12128 00783000
R12128DK: USING *,R15 ESTABLISH ADDRESSABILITY @VA12128 00793000
R12128DK: L R12,=A(DMKVSI) RESTORE BASE REG @VA12128 00803000
R12128DK: DROP R15 DON'T WANT R15 ANYMORE @VA12128 00813000
R12128DK: USING DMKVSI,R12 RESTORE ADDRESSABILITY @VA12128 00823000
R12128DK: B VIOTCH2 GO PROCESS AS TCH @VA12128 00833000
R12128DK: ./ R 00991000 $ 991000 1000 01/28/81 12:54:16
R12128DK: * COMMON SUBROUTINES USED BY VIOSIO, VIOTIO, VIOTCH 00991000
R12128DK: ./ R 01102000 01289000 $ 1102000 9000 01/28/81 12:54:16
R12128DK: B STTOTCSW TO STORE CSW @VA12128 01102000
R12128DK: SPACE 3 01103100
R12128DK: CC2 EQU X'20' CONDITION CODE 2 @VA12875
R12128DK: SPACE 2
R12128DK: VIOGODSP EQU * @VA12128 01103200
R12128DK: GOTO DMKDSPCH ALL DONE @VA12128 01103300
R12128DK: EJECT 01106000
R12128DK: *** SET UP THE INDEX REGISTER (R14) FOR THE BRANCH TO 01107000
R12128DK: * DMKVSJ TO CONTINUE PROCESSING 01108000
R12128DK: SPACE 2 01109000
R12128DK: VIOCLCH EQU * @VA12128 01110000
R12128DK: LA R14,INDEXA VIOCLCH @VA12128 01111000
R12128DK: B EXITVSJ SET UP BASE AND GO TO DMKVSJ @VA12128 01112000
R12128DK: VIOHIO EQU * @VA12128 01113000
R12128DK: LA R14,INDEXB VIOHIO @VA12128 01114000
R12128DK: B EXITVSJ SET UP BASE AND GO TO DMKVSJ @VA12128 01115000
R12128DK: STTOTCSW EQU * @VA12128 01116000
R12128DK: LA R14,INDEXC STTOTCSW @VA12128 01117000
R12128DK: B EXITVSJ SET UP BASE AND GO TO DMKVSJ @VA12128 01118000
R12128DK: STORECSW EQU * @VA12128 01119000
R12128DK: LA R14,INDEXD STORECSW @VA12128 01120000
R12128DK: B EXITVSJ SET UP BASE AND GO TO DMKVSJ @VA12128 01121000
R12128DK: VIOEXIT EQU * @VA12128 01125000
R12128DK: LA R14,INDEXF VIOEXIT @VA12128 01126000
R12128DK: B EXITVSJ SET UP BASE AND GO TO DMKVSJ @VA12128 01127000
R12128DK: VIOEXITX EQU * @VA12128 01128000
R12128DK: LA R14,INDEXG VIOEXITX @VA12128 01129000
R12128DK: B EXITVSJ SET UP BASE AND GO TO DMKVSJ @VA12128 01130000
R12128DK: VIOEXITY EQU * @VA12128 01131000
R12128DK: LA R14,INDEXH VIOEXITY @VA12128 01132000
R12128DK: B EXITVSJ SET UP BASE AND GO TO DMKVSJ @VA12128 01133000
R12128DK: GETLOCK EQU * @VA12128 01134000
R12128DK: LA R14,INDEXJ GETLOCK @VA12128 01135000
R12128DK: B EXITVSJ SET UP BASE AND GO TO DMKVSJ @VA12128 01136000
R12128DK: CTCAIOB EQU * @VA12128 01137000
R12128DK: LA R14,INDEXK CTCAIOB @VA12128 01138000
R12128DK: SPACE 01139000
R12128DK: EXITVSJ EQU * EXIT TO DMKVSJ @VA12128 01140000
R12128DK: GOTO DMKVSJEX @VA12128 01141000
R12128DK: EJECT 01143000
R12128DK: * 01144000
R12128DK: * DMKVSJ INDEX TABLE 01145000
R12128DK: * 01146000
R12128DK: INDEXA EQU 0 BRANCH TABLE INDEX-VIOCLCH @VA12128 01147000
R12128DK: INDEXB EQU 4 BRANCH TABLE INDEX-VIOHIO @VA12128 01148000
R12128DK: INDEXC EQU 8 BRANCH TABLE INDEX-STTOTCSW @VA12128 01149000
R12128DK: INDEXD EQU 12 BRANCH TABLE INDEX-STORECSW @VA12128 01150000
R12128DK: INDEXE EQU 16 *** UNUSED @VA12128 01151000
R12128DK: INDEXF EQU 20 BRANCH TABLE INDEX-VIOEXIT @VA12128 01152000
R12128DK: INDEXG EQU 24 BRANCH TABLE INDEX-VIOEXITX @VA12128 01153000
R12128DK: INDEXH EQU 28 BRANCH TABLE INDEX-VIOEXITY @VA12128 01154000
R12128DK: INDEXI EQU 32 *** UNUSED @VA12128 01155000
R12128DK: INDEXJ EQU 36 BRANCH TABLE INDEX-GETLOCK @VA12128 01156000
R12128DK: INDEXK EQU 40 BRANCH TABLE INDEX-CTCSIOB @VA12128 01157000
R12128DK: ./ D 01617000 01618000 01/28/81 12:54:16
R12128DK: ./ R 01620000 01621000 $ 1620000 1000 01/28/81 12:54:16
R12128DK: ADMKVSI DC A(DMKVSI) FOR BASE REG ADDRESSABILITY @VA12128 01620100
R12128DK: TCHOPER DC X'9F00' OPERAND FOR TEST CHANNEL (TCH) @VMD0117 01620200
BEGIN APPLY >>> ./ I 00020000 $ 20200 200 01/28/81 12:54:16
END APPLY >>> ./ I 00020000 $ 20200 200 01/28/81 12:54:16
BEGIN APPLY >>> ./ I 00030000 $ 30100 100 01/28/81 12:54:16
END APPLY >>> ./ I 00030000 $ 30100 100 01/28/81 12:54:16
BEGIN APPLY >>> ./ R 00038000 $ 38000 200 01/28/81 12:54:16
END APPLY >>> ./ R 00038000 $ 38000 200 01/28/81 12:54:16
BEGIN APPLY >>> ./ D 00042000 01/28/81 12:54:16
END APPLY >>> ./ D 00042000 01/28/81 12:54:16
BEGIN APPLY >>> ./ D 00049000 01/28/81 12:54:16
END APPLY >>> ./ D 00049000 01/28/81 12:54:16
BEGIN APPLY >>> ./ D 00053000 00055000 01/28/81 12:54:16
END APPLY >>> ./ D 00053000 00055000 01/28/81 12:54:16
BEGIN APPLY >>> ./ R 00061000 $ 61000 1000 01/28/81 12:54:16
END APPLY >>> ./ R 00061000 $ 61000 1000 01/28/81 12:54:16
BEGIN APPLY >>> ./ R 00099000 00100000 $ 99000 500 01/28/81 12:54:16
END APPLY >>> ./ R 00099000 00100000 $ 99000 500 01/28/81 12:54:16
BEGIN APPLY >>> ./ D 00113000 00114000 01/28/81 12:54:16
END APPLY >>> ./ D 00113000 00114000 01/28/81 12:54:16
BEGIN APPLY >>> ./ R 00117000 $ 117000 1000 01/28/81 12:54:16
END APPLY >>> ./ R 00117000 $ 117000 1000 01/28/81 12:54:16
BEGIN APPLY >>> ./ R 00125000 $ 125000 1000 01/28/81 12:54:16
END APPLY >>> ./ R 00125000 $ 125000 1000 01/28/81 12:54:16
BEGIN APPLY >>> ./ R 00128000 00129000 $ 128000 500 01/28/81 12:54:16
END APPLY >>> ./ R 00128000 00129000 $ 128000 500 01/28/81 12:54:16
BEGIN APPLY >>> ./ I 00209100 $ 209200 100 01/28/81 12:54:16
END APPLY >>> ./ I 00209100 $ 209200 100 01/28/81 12:54:16
BEGIN APPLY >>> ./ I 00268000 $ 268200 200 01/28/81 12:54:16
END APPLY >>> ./ I 00268000 $ 268200 200 01/28/81 12:54:16
BEGIN APPLY >>> ./ I 00443000 $ 443100 100 01/28/81 12:54:16
END APPLY >>> ./ I 00443000 $ 443100 100 01/28/81 12:54:16
BEGIN APPLY >>> ./ I 00491000 $ 491020 20 01/28/81 12:54:16
END APPLY >>> ./ I 00491000 $ 491020 20 01/28/81 12:54:16
BEGIN APPLY >>> ./ I 00529000 $ 529200 200 01/28/81 12:54:16
END APPLY >>> ./ I 00529000 $ 529200 200 01/28/81 12:54:16
BEGIN APPLY >>> ./ I 00574000 $ 574500 500 01/28/81 12:54:16
END APPLY >>> ./ I 00574000 $ 574500 500 01/28/81 12:54:16
BEGIN APPLY >>> ./ I 00630000 $ 630200 200 01/28/81 12:54:16
END APPLY >>> ./ I 00630000 $ 630200 200 01/28/81 12:54:16
BEGIN APPLY >>> ./ D 00643000 01/28/81 12:54:16
END APPLY >>> ./ D 00643000 01/28/81 12:54:16
BEGIN APPLY >>> ./ D 00646000 01/28/81 12:54:16
END APPLY >>> ./ D 00646000 01/28/81 12:54:16
BEGIN APPLY >>> ./ D 00649000 01/28/81 12:54:16
END APPLY >>> ./ D 00649000 01/28/81 12:54:16
BEGIN APPLY >>> ./ R 00651000 $ 651000 1000 01/28/81 12:54:16
END APPLY >>> ./ R 00651000 $ 651000 1000 01/28/81 12:54:16
BEGIN APPLY >>> ./ R 00733000 00989000 $ 733000 20000 01/28/81 12:54:16
END APPLY >>> ./ R 00733000 00989000 $ 733000 20000 01/28/81 12:54:16
BEGIN APPLY >>> ./ R 00991000 $ 991000 1000 01/28/81 12:54:16
END APPLY >>> ./ R 00991000 $ 991000 1000 01/28/81 12:54:16
BEGIN APPLY >>> ./ R 01102000 01289000 $ 1102000 9000 01/28/81 12:54:16
END APPLY >>> ./ R 01102000 01289000 $ 1102000 9000 01/28/81 12:54:16
BEGIN APPLY >>> ./ D 01617000 01618000 01/28/81 12:54:16
END APPLY >>> ./ D 01617000 01618000 01/28/81 12:54:16
BEGIN APPLY >>> ./ R 01620000 01621000 $ 1620000 1000 01/28/81 12:54:16
END APPLY >>> ./ R 01620000 01621000 $ 1620000 1000 01/28/81 12:54:16
Update Succeeded
Update Execution Time 70 milliseconds.
R14370DK
Date Tuesday Sep 29, 1981 09:11:00 AM
Loaded from MAINT(294)
R14370DK: ./ I 116000 $ 116100 00001000
R14370DK: ENTRY DMKVSICH FROM VSJ TO PROC CLCH AS A TCH @VA14370 00002000
BEGIN APPLY >>> ./ I 116000 $ 116100 00001000
END APPLY >>> ./ I 116000 $ 116100 00001000
Update Succeeded
Update Execution Time 16 milliseconds.