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