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