DMKTAP History
References
-
-
Fixes Applied : 8
-
Last Fix ID : [R15003DK]
Update History
CMS File Input : DMKTAP ASSEMBLE
Date : 12/7/1978 5:15:00 PM
VM Context : MAINT(394)
File Name : DMKTAP.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:48 AM
Created : 1/16/2021 7:31:48 AM
Update Order
R09957DK 604 CORRECT IOBLOK CONFLICT IN MSS SUPPORT
R09376DK 608 CORRECT VMTTIME UPDATE AFTER VARYING ON A TAPE DRIVE
R10443DK 611 ABENDPRG009 IN DMKSCH WRONG VMBLOK USED
R12173DK 617 UV02778 CORRECT TAPE RECOVERY ON UNIT CHECK
R11960DK 617 UV02707 CORRECT VM09376 FOR AP USERS
R12941DK 622 UV04884 SYNC ERROR RECOV FOR INTERVENTION REQUIRED COND.
R13107DK 623 UV04882 TAPE MOVED FORWARD PAST RECORD IN ERROR
R15003DK 628 UV06318 PE AGAINST VM12941
R09957DK
Date Thursday Jul 12, 1979 09:53: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.
R09376DK
Date Tuesday Jan 08, 1980 01:08:00 AM
Loaded from MAINT(294)
R09376DK: ./ I 1172000 $ 1172100 100 00001000
R09376DK: LR R1,R11 MOVE USER IN R1 @VA09376 00002000
R09376DK: L R11,ASYSVM MOVE SYSTEM IN R11 @VA09376 00003000
R09376DK: SWTCHVM @VA09376 00004000
R09376DK: ./ I 1212000 $ 1212100 100 00005000
R09376DK: LR R1,R11 MOVE USER IN R1 @VA09376 00006000
R09376DK: L R11,ASYSVM MOVE SYSTEM IN R11 @VA09376 00007000
R09376DK: SWTCHVM @VA09376 00008000
R09376DK: ./ I 1241000 $ 1241100 00009000
R09376DK: COPY VMBLOK @VA09376 00010000
BEGIN APPLY >>> ./ I 1172000 $ 1172100 100 00001000
END APPLY >>> ./ I 1172000 $ 1172100 100 00001000
BEGIN APPLY >>> ./ I 1212000 $ 1212100 100 00005000
END APPLY >>> ./ I 1212000 $ 1212100 100 00005000
BEGIN APPLY >>> ./ I 1241000 $ 1241100 00009000
END APPLY >>> ./ I 1241000 $ 1241100 00009000
Update Succeeded
Update Execution Time 8 milliseconds.
R10443DK
Date Thursday Apr 03, 1980 02:25:00 AM
Loaded from MAINT(294)
R10443DK: ./ R 1152000 1153000 $ 1152500 00001000
R10443DK: ST R11,IOBUSER STORE VMBLOK @VA10443 00002000
BEGIN APPLY >>> ./ R 1152000 1153000 $ 1152500 00001000
END APPLY >>> ./ R 1152000 1153000 $ 1152500 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R12173DK
Date Monday Nov 03, 1980 10:23:00 AM
Loaded from MAINT(294)
R12173DK: ./ R 892000 893000 $ 892100 100 00001000
R12173DK: BM TESTCCW TEST CCW ADDRESS @VA12173 00002000
R12173DK: BR R5 RETURN TO INLINE CODE @VA12173 00003000
R12173DK: TESTCCW DS 0H @VA12173 00004000
R12173DK: L R4,IOBMISC2 GET SAVE AREA BASE ADDRESS @VA12173 00005000
R12173DK: L R4,SAVEWRK8-SAVERETN(R4) GET SAVED CSW @VA12173 00006000
R12173DK: LA R4,0(R4) CLEAR HIGH ORDER BYTE @VA12173 00007000
R12173DK: S R4,F8 GET FAILING CCW ADDRESS @VA12173 00008000
R12173DK: BM NOCCW IF STILL NEG WRITE ERR. MSG. @VA12173 00009000
R12173DK: BR R5 RETURN TO INLINE CODE @VA12173 00010000
BEGIN APPLY >>> ./ R 892000 893000 $ 892100 100 00001000
END APPLY >>> ./ R 892000 893000 $ 892100 100 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R11960DK
Date Monday Nov 03, 1980 10:20:00 AM
Loaded from MAINT(294)
R11960DK: ./ D 1172100 1172300 00001000
R11960DK: ./ D 1212100 1212300 00002000
R11960DK: ./ D 1241100 00003000
BEGIN APPLY >>> ./ D 1172100 1172300 00001000
END APPLY >>> ./ D 1172100 1172300 00001000
BEGIN APPLY >>> ./ D 1212100 1212300 00002000
END APPLY >>> ./ D 1212100 1212300 00002000
BEGIN APPLY >>> ./ D 1241100 00003000
END APPLY >>> ./ D 1241100 00003000
Update Succeeded
Update Execution Time 16 milliseconds.
R12941DK
Date Thursday Jul 16, 1981 11:33:00 AM
Loaded from MAINT(294)
R12941DK: ./ I 191000 $ 191100 100
R12941DK: EXTRN DMKSTKCP @VA12941
R12941DK: ./ I 299000 $ 299100 100
R12941DK: OI RDEVSTAT,RDEVNRDY MARK DEVICE NOT READY @VA12941
R12941DK: ./ R 304000 304000 $ 304000 100
R12941DK: PENDING TM IOERFLG2,IOERMSW MESSAGE WRITER IN PROGRESS @VA12941
R12941DK: BO BLDCPEX WAIT FOR MSW TO FINISH @VA12941
R12941DK: ./ D 307000 308000 $
R12941DK: ./ I 333000 $ 333025 025
R12941DK: SPACE 1
R12941DK: BLDCPEX LA R0,CPEXSIZE SIZE OF CPEXBLOK @VA12941
R12941DK: CALL DMKFREE GET STORAGE FOR CPEXBLOK @VA12941
R12941DK: USING CPEXBLOK,R1 CPEXBLOK ADDRESSABILIY @VA12941
R12941DK: XC CPEXBLOK(CPEXSIZE*8),CPEXBLOK CLEAR BLOCK @VA12941
R12941DK: MVC CPEXR0(CPEXR12-CPEXR0),SAVER0 SETUP CPEXBLOK @VA12941
R12941DK: LR R15,R12 INCREM R12 BY 8 FOR TAPER REENTRY@VA12941
R12941DK: A R15,F8 ... @VA12941
R12941DK: ST R15,CPEXR12 SAVE NEW R12 IN CPEXBLOK @VA12941
R12941DK: ST R13,CPEXR13 R13 AS WELL @VA12941
R12941DK: L R15,=A(DMKTAPER) CPEXBLOK WILL RETURN TO TAPER @VA12941
R12941DK: ST R15,CPEXADD CPEXBLOK RETURN ADDRESS @VA12941
R12941DK: DROP R1 ... @VA12941
R12941DK: L R5,IOERCPEX ANCHOR FOR CPEXBLOKS @VA12941
R12941DK: USING CPEXBLOK,R5 ADDRESSABILITY @VA12941
R12941DK: LTR R5,R5 ANY CPEXBLOKS ON QUEUE @VA12941
R12941DK: BNZ NEXTCPEX YES, FIND END OF CHAIN @VA12941
R12941DK: ST R1,IOERCPEX ADD TO THE CHAIN @VA12941
R12941DK: B GOTODSP GOTO THE DISPATCHER @VA12941
R12941DK: SPACE 1
R12941DK: NEXTCPEX L R14,CPEXFPNT GET POINTER TO NEXT ONE ON CHAIN @VA12941
R12941DK: LTR R14,R14 END OF QUEUE @VA12941
R12941DK: BZ QUEUE END OF QUEUE - ADD CPEXBLOK @VA12941
R12941DK: LR R5,R14 CONTINUE TO LOOK FOR END @VA12941
R12941DK: B NEXTCPEX ... @VA12941
R12941DK: SPACE 2 ... @VA12941
R12941DK: QUEUE ST R1,CPEXFPNT ADD CPEXBLOK TO QUEUE AT END @VA12941
R12941DK: GOTODSP GOTO DMKDSPCH EXIT TO DISPATCHER FOR NOW @VA12941
R12941DK: DROP R5 DROP CPEXBLOK ADDRESSABILITY @VA12941
R12941DK: ./ R 827000 829000 $ 827000 100
R12941DK: L R1,IOERCPEX SEE IF DEVICE END I/O TO REDRIVE @VA12941
R12941DK: LTR R1,R1 ANY CPEXBLOKS ON QUEUE @VA12941
R12941DK: BZ TAPEXIT4 NO DE I/O TO REDRIVE @VA12941
R12941DK: UNSTKNXT L R5,CPEXFPNT-CPEXBLOK(R1) NEXT CPEX ON CHAIN @VA12941
R12941DK: CALL DMKSTKCP STACK CPEXBLOK @VA12941
R12941DK: LTR R5,R5 ANY MORE ON CHAIN @VA12941
R12941DK: BZ CLEARPNT NO, ZERO ANCHOR AND EXIT @VA12941
R12941DK: LR R1,R5 CPEXBLOK ADDRESS TO R5 @VA12941
R12941DK: B UNSTKNXT STACK THEM ALL @VA12941
R12941DK: CLEARPNT ST R5,IOERCPEX CLEAR ANCHOR @VA12941
R12941DK: TAPEXIT4 B EXIT4 EXIT @VA12941
BEGIN APPLY >>> ./ I 191000 $ 191100 100
END APPLY >>> ./ I 191000 $ 191100 100
BEGIN APPLY >>> ./ I 299000 $ 299100 100
END APPLY >>> ./ I 299000 $ 299100 100
BEGIN APPLY >>> ./ R 304000 304000 $ 304000 100
END APPLY >>> ./ R 304000 304000 $ 304000 100
BEGIN APPLY >>> ./ D 307000 308000 $
END APPLY >>> ./ D 307000 308000 $
BEGIN APPLY >>> ./ I 333000 $ 333025 025
END APPLY >>> ./ I 333000 $ 333025 025
BEGIN APPLY >>> ./ R 827000 829000 $ 827000 100
END APPLY >>> ./ R 827000 829000 $ 827000 100
Update Succeeded
Update Execution Time 23 milliseconds.
R13107DK
Date Friday Aug 07, 1981 07:07:00 AM
Loaded from MAINT(294)
R13107DK: ./ R 00751000 00752000 $ 751100 100 00001000
R13107DK: CLC IOBRCNT,=H'81' ERROR COUNT REACH 81 @VA13107 00002000
R13107DK: BE FORWARD IF OVER 81, GO FORWARD ONE RECORD@VA13107 00003000
R13107DK: BH CALLWTR1 IF OVER 81, WRITE ERROR RECORD @VA13107 00004000
R13107DK: ./ I 757000 $ 757100 100 00005000
R13107DK: FORWARD DS 0H @VA13107 00006000
R13107DK: LH R4,IOBRCNT LOAD ERROR COUNT @VA13107 00007000
R13107DK: LA R4,1(R4) AND INCREASE BY 1 @VA13107 00008000
R13107DK: STH R4,IOBRCNT STORE RESULT IN IOBRCNT @VA13107 00009000
R13107DK: BAL R5,CHANFSR SET UP FORWARD SPACE CCW @VA13107 00010000
R13107DK: NI IOERFLG1,X'FF'-IOERFSR NO FORWARD FLAG @VA13107 00011000
R13107DK: B RETRY1 GO RERTY OPERATION @VA13107 00012000
BEGIN APPLY >>> ./ R 00751000 00752000 $ 751100 100 00001000
END APPLY >>> ./ R 00751000 00752000 $ 751100 100 00001000
BEGIN APPLY >>> ./ I 757000 $ 757100 100 00005000
END APPLY >>> ./ I 757000 $ 757100 100 00005000
Update Succeeded
Update Execution Time 8 milliseconds.
R15003DK
Date Monday Feb 15, 1982 09:28:00 AM
Loaded from MAINT(294)
R15003DK: ./ D 333275 00001000
BEGIN APPLY >>> ./ D 333275 00001000
END APPLY >>> ./ D 333275 00001000
Update Succeeded
Update Execution Time 16 milliseconds.