ibm:vm370-lib:cp:dmkvch.assemble_hst
Table of Contents
DMKVCH History
References
- Fixes Applied : 7
- Latest Source Date : Thursday, December 7, 1978
- Last Fix ID : [HRC040DK]
Update History
CMS File Input : DMKVCH ASSEMBLE
Date : 12/7/1978 5:18:00 PM
VM Context : MAINT(394)
File Name : DMKVCH.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:48 AM
Created : 1/16/2021 7:31:48 AM
Update Order
- R09651DK 610 ABENDPRG005 ISSUING DET CHANNEL WITH 256 DEVICES
- R11369DK 612 UV00908 ATT CHAN CMD LEAVES INVALID DATA BETWEEN NEW VDEVBLOKS
- R12940DK 620 UV03991 ABENDPRG009 WHEN ATT CHN TO USER AND D/T2305 IS ON
- R13060DK 620 UV04249 VM09651 CHECKS FOR CC3, NOT 1 OR 2 NEAR LBL DETCHAN
- R13280DK 622 UV04520 RESET DEDICATED CHANNEL FLAG AT LOGOFF TIME.
- R13217DK 628 UV06065 AFTER VM09651 MSDMKDEF040E AND MSDMKLNK022E MISLEAD
- HRC040DK V01 Fix FRE013 caused by DMKVCH R13280DK (UV04520)
R09651DK
Date Wednesday Mar 12, 1980 01:24:00 AM
Loaded from MAINT(294)
R09651DK: ./ I 584000 $ 584100 00001000
R09651DK: BC 1,VCH040 @VA09651 00002000
R09651DK: ./ I 669000 $ 669100 100 00003000
R09651DK: VCH040 DS 0H @VA09651 00004000
R09651DK: SLR R0,R0 CLEAR R0 SO THAT NN FIELD WILL @VA09651 00005000
R09651DK: * BE ZERO AND R1 WILL CONTAIN 00006000
R09651DK: * THE DEVICE ADDRESS FOR DMKERM 00007000
R09651DK: LA R2,40 MESSAGE NUMBER DMKVCH040E @VA09651 00008000
R09651DK: CALL DMKCVTBH @VA09651 00009000
R09651DK: B NODATA @VA09651 00010000
BEGIN APPLY >>> ./ I 584000 $ 584100 00001000
END APPLY >>> ./ I 584000 $ 584100 00001000
BEGIN APPLY >>> ./ I 669000 $ 669100 100 00003000
END APPLY >>> ./ I 669000 $ 669100 100 00003000
Update Succeeded
Update Execution Time 16 milliseconds.
R11369DK
Date Monday May 05, 1980 04:17:00 AM
Loaded from MAINT(294)
R11369DK: ./ I 374000 $ 374100 00001000
R11369DK: NI DEDBITS,X'FF'-CUBLD RESET VCUBLOK INDICATOR @VA11369 00002000
R11369DK: ./ I 398000 $ 398100 00003000
R11369DK: NI DEDBITS,X'FF'-DEVBLD RESET VDEVBLOK INDICATOR @VA11369 00004000
R11369DK: ./ R 498000 $ 498100 00005000
R11369DK: CLRDEV DS 0H @VA11369 00006000
R11369DK: ./ R 503000 $ 503100 00007000
R11369DK: CLRCU DS 0H @VA11369 00008000
BEGIN APPLY >>> ./ I 374000 $ 374100 00001000
END APPLY >>> ./ I 374000 $ 374100 00001000
BEGIN APPLY >>> ./ I 398000 $ 398100 00003000
END APPLY >>> ./ I 398000 $ 398100 00003000
BEGIN APPLY >>> ./ R 498000 $ 498100 00005000
END APPLY >>> ./ R 498000 $ 498100 00005000
BEGIN APPLY >>> ./ R 503000 $ 503100 00007000
END APPLY >>> ./ R 503000 $ 503100 00007000
Update Succeeded
Update Execution Time 16 milliseconds.
R12940DK
Date Tuesday Apr 07, 1981 03:30:00 AM
Loaded from MAINT(294)
R12940DK: ./ I 308000 $ 308100 100 00001000
R12940DK: * MUST RESET MY 'DEVCOUNT' MARK IN 'RDEVADD' (OF A 2305) FOR ALL 00002000
R12940DK: * THE RDEVBLOKS EXCEPT THE FIRST ONE. DMKVDS ATTACHES ALL 8 OF THEM 00003000
R12940DK: * WITH ONE CALL. (FIRST ONE IS RESET WHEN I CALL DMKVDS). 00004000
R12940DK: CLC RDEVTYPC(2),=AL1(CLASDASD,TYP2305) @VA12940 00005000
R12940DK: BNE INCRDEV2 NOT A 2305; WE'RE OK @VA12940 00006000
R12940DK: TM RDEVADD+1,7 IS THE ADDRESS 1-7 OR 9-F? @VA12940 00008000
R12940DK: BZ INCRDEV2 ADDRESS IS 0 OR 8: MARK IS OK @VA12940 00010000
R12940DK: NI RDEVADD,X'FF'-DEVCOUNT RESET 'MARK' @VA12940 00012000
BEGIN APPLY >>> ./ I 308000 $ 308100 100 00001000
END APPLY >>> ./ I 308000 $ 308100 100 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R13060DK
Date Thursday May 07, 1981 04:14:00 AM
Loaded from MAINT(294)
R13060DK: ./ I 127000 $ 127500 00001000
R13060DK: * DMKVCH040E DEV ADDR DOES NOT EXIST @VA13060 00002000
R13060DK: ./ I 129000 $ 129500 00003000
R13060DK: * DMKVCH130E CHANNEL X <PROC NN> NOT ATTACHED TO USERID @VA13060 00004000
R13060DK: ./ R 584100 $ 584150 00006000
R13060DK: BC 7,VCH040 BRANCH IF CC=1, 2, OR 3 @VA13060 00007000
BEGIN APPLY >>> ./ I 127000 $ 127500 00001000
END APPLY >>> ./ I 127000 $ 127500 00001000
BEGIN APPLY >>> ./ I 129000 $ 129500 00003000
END APPLY >>> ./ I 129000 $ 129500 00003000
BEGIN APPLY >>> ./ R 584100 $ 584150 00006000
END APPLY >>> ./ R 584100 $ 584150 00006000
Update Succeeded
Update Execution Time 16 milliseconds.
R13280DK
Date Wednesday Jun 24, 1981 05:27:00 AM
Loaded from MAINT(294)
R13280DK: ./ R 178000 $ 178000 1000 00001000
R13280DK: ST R6,SAVERCH SAVE THE RCHBLOK ADDRESS @VA13280 00002000
R13280DK: ./ R 188000 $ 188000 1000 00003000
R13280DK: L R6,SAVERCH RESTORE RCHBLOK ADDRESS @VA13280 00004000
R13280DK: ./ R 202000 $ 202000 1000 00005000
R13280DK: L R6,SAVERCH BACK TO THE RCHBLOK FOR SCAN @VA13280 00006000
R13280DK: ./ I 570000 $ 570500 500 00007000
R13280DK: MVC VCHRCHAD,SAVERCH SAVE RCHBLOK ADDRESS @VA13280 00008000
R13280DK: ./ R 758000 $ 758000 1000 00009000
R13280DK: DS 0CL68 @VA13280 00010000
R13280DK: ./ I 768000 $ 768500 500 00011000
R13280DK: SAVERCH DS 1F RCHBLOK ADDRESS @VA13280 00012000
BEGIN APPLY >>> ./ R 178000 $ 178000 1000 00001000
END APPLY >>> ./ R 178000 $ 178000 1000 00001000
BEGIN APPLY >>> ./ R 188000 $ 188000 1000 00003000
END APPLY >>> ./ R 188000 $ 188000 1000 00003000
BEGIN APPLY >>> ./ R 202000 $ 202000 1000 00005000
END APPLY >>> ./ R 202000 $ 202000 1000 00005000
BEGIN APPLY >>> ./ I 570000 $ 570500 500 00007000
END APPLY >>> ./ I 570000 $ 570500 500 00007000
BEGIN APPLY >>> ./ R 758000 $ 758000 1000 00009000
END APPLY >>> ./ R 758000 $ 758000 1000 00009000
BEGIN APPLY >>> ./ I 768000 $ 768500 500 00011000
END APPLY >>> ./ I 768000 $ 768500 500 00011000
Update Succeeded
Update Execution Time 16 milliseconds.
R13217DK
Date Monday Feb 15, 1982 09:29:00 AM
Loaded from MAINT(294)
R13217DK: ./ I 131000 $ 131500 00001000
R13217DK: * DMKVCH153E DEVICE VADDR EXCEEDS MAX NO. OF VIRTUAL DEVICES 00002000
R13217DK: ./ I 352000 $ 352050 50 00003000
R13217DK: SLR R7,R7 CLEAR R7 FOR NEXT COUNTER @VA13217 00004000
R13217DK: LA R0,VDEVSIZE SIZE OF VDEVBLOK @VA13217 00006000
R13217DK: L R1,VMDVSTRT POINT TO VDEVBLOK TABLE @VA13217 00008000
R13217DK: LH R2,VMDVCNT NUMBER OF VDEVBLOKS IN TABLE @VA13217 00010000
R13217DK: BAL R5,EMPSLOT FIND EMPTY SLOTS IN VDEVBLOKS @VA13217 00012000
R13217DK: STH R7,SAVEWRK2 REMEMBER THIS FOR LATER @VA13217 00014000
R13217DK: LH R1,DEVNUM WILL THE REQ'D NO. OF VDEVBLOKS @VA13217 00016000
R13217DK: AH R1,VMDVCNT FIT IN THE HALFWORD OFFSET @VA13217 00018000
R13217DK: SLR R1,R7 ALLOWED? @VA13217 00020000
R13217DK: MH R1,=Y(VDEVSIZE*8) @VA13217 00022000
R13217DK: CL R1,=A(X'8000') @VA13217 00023000
R13217DK: BH ERR153 .. NO, VIRT DEV MAX EXCEEDED @VA13217 00024000
R13217DK: ./ R 385000 389000 $ 385100 00026000
R13217DK: EMPVDEV DS 0H @VA13217 00027000
R13217DK: ./ R 391000 392000 $ 391100 1000 00028000
R13217DK: SH R6,SAVEWRK2 ACTUAL NO. VDEVBLOKS TO ACQUIRE @VA13217 00029000
R13217DK: BNP ENDPASS4 IF .LE. 0, THIS PASS DONE @VA13217 00031000
R13217DK: ./ I 555000 $ 555300 300 00033000
R13217DK: CH R2,=H'124' EXCEEDED MAX VIRTUAL DEVICES? @VA13217 00034000
R13217DK: BE ERR153 YES, WE MUST'VE GOOFED--ABEND @VA13217 00036000
R13217DK: ./ D 669200 669400 00038000
R13217DK: ./ I 669600 $ 669610 00039000
R13217DK: SR R0,R0 R0, BYTE 3 = 0 => DATA IN R1 @VA13217 00040000
R13217DK: ./ I 672000 $ 672100 100 00042000
R13217DK: SPACE 1 00043000
R13217DK: ERR153 LA R2,EMSG153 MSG ID @VA13217 00047000
R13217DK: L R1,CHANADDR GET CHANNEL NUMBER @VA13217 00049000
R13217DK: CALL DMKCVTBH CONVERT TO EBCDIC @VA13217 00051000
R13217DK: ICM R1,B'1110',=C'CH ' DATA IS "CH N" @VA13217 00053000
R13217DK: SR R0,R0 R0 LOW ORDER=0:DATA IN R1 @VA13217 00055000
R13217DK: B NODATA GO SET UP OTHER THINGS @VA13217 00057000
R13217DK: ./ I 752000 $ 752500 00059000
R13217DK: EMSG153 EQU 153 EXCEEDED MAX VIRTUAL DEVICES @VA13217 00060000
BEGIN APPLY >>> ./ I 131000 $ 131500 00001000
END APPLY >>> ./ I 131000 $ 131500 00001000
BEGIN APPLY >>> ./ I 352000 $ 352050 50 00003000
END APPLY >>> ./ I 352000 $ 352050 50 00003000
BEGIN APPLY >>> ./ R 385000 389000 $ 385100 00026000
END APPLY >>> ./ R 385000 389000 $ 385100 00026000
BEGIN APPLY >>> ./ R 391000 392000 $ 391100 1000 00028000
END APPLY >>> ./ R 391000 392000 $ 391100 1000 00028000
BEGIN APPLY >>> ./ I 555000 $ 555300 300 00033000
END APPLY >>> ./ I 555000 $ 555300 300 00033000
BEGIN APPLY >>> ./ D 669200 669400 00038000
END APPLY >>> ./ D 669200 669400 00038000
BEGIN APPLY >>> ./ I 669600 $ 669610 00039000
END APPLY >>> ./ I 669600 $ 669610 00039000
BEGIN APPLY >>> ./ I 672000 $ 672100 100 00042000
END APPLY >>> ./ I 672000 $ 672100 100 00042000
BEGIN APPLY >>> ./ I 752000 $ 752500 00059000
END APPLY >>> ./ I 752000 $ 752500 00059000
Update Succeeded
Update Execution Time 16 milliseconds.
HRC040DK
Date Wednesday Feb 15, 2017 06:10:00 PM
Loaded from MAINT(094)
HRC040DK: ./ R 00163000 $ 00163100 100
HRC040DK: LA R0,9 Get 9 doublewords of storage HRC040DK
HRC040DK: ./ R 00695000 $ 00695100 100
HRC040DK: ICM R3,B'1000',=X'09' Size of area to be fretted HRC040DK
HRC040DK: ./ R 00704000 $ 00704100 100
HRC040DK: FRETMSG LA R0,9 Size in double words HRC040DK
BEGIN APPLY >>> ./ R 00163000 $ 00163100 100
END APPLY >>> ./ R 00163000 $ 00163100 100
BEGIN APPLY >>> ./ R 00695000 $ 00695100 100
END APPLY >>> ./ R 00695000 $ 00695100 100
BEGIN APPLY >>> ./ R 00704000 $ 00704100 100
END APPLY >>> ./ R 00704000 $ 00704100 100
Update Succeeded
Update Execution Time 23 milliseconds.
ibm/vm370-lib/cp/dmkvch.assemble_hst.txt · Last modified: 2023/08/06 13:37 by Site Administrator