ibm:vm370-lib:cp:dmkccw.assemble_hst
Table of Contents
DMKCCW History
References
- Fixes Applied : 25
- Latest Source Date : Wednesday, December 13, 1978
- Last Fix ID : [HRC011DK]
Update History
CMS File Input : DMKCCW ASSEMBLE
Date : 12/13/1978 4:54:00 PM
VM Context : MAINT(394)
File Name : DMKCCW.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:45 AM
Created : 1/16/2021 7:31:45 AM
Update Order
- R08860DK 602 INTERMITTENT CHANNEL PROG CHECK ON POLLING OR LOOP TIC NOT ALTERED
- R08629DK 603 2250/3250
- R09957DK 604 CORRECT IOBLOK CONFLICT IN MSS SUPPORT
- R10078DK 604 4331 ICA604SDLC SUPPORT
- R08844DK 606 DMKCCW INCORRECTLY PROCESSES MORE THAN 2K DATA
- R10216DK 607 ENABLED WAIT WITH NO USERS BEING DISPATCHED
- R09758DK 609 INCORRECT FLAG DEFINITION
- R10398DK 609 ZERO OUT SENSE LENGTH WHEN SENSE FAILS CC3 OR BAD CHANNEL
- R09607DK 609 CHECK FOR IOBUNREL BEFORE PROCESS CCWS WITH RELEASE
- R10860DK 610 DIAG28 NOT MODIFYING RIGHT CCW
- R10883DK 616 UV01850 LEAVE SEEK ARGUMENT IN RCWTASK
- R11879DK 616 UV02035 MSS PREFIX NOT NEEDED FOR SENSE
- R11890DK 616 UV02068 DON'T RELOCATE SEEK ARGUMENT IN SECOND RCWTASK
- R11732DK 616 UV01873 STATUS MODIFIER TYPE SEEK ON MSS FOR THE PREFIX
- R11932DK 618 UV03005 DIAL CMD DMKCCW SENDS CIRCLE C TO TTY IN ERROR
- R12408DK 619 UV03813 GET ADDITIONAL ADDRESSABILITY FOR DMKCCW
- R12785DK 620 UV03967 DON'T UNLOCK SHARED PAGE THAT ISN'T LOCKED
- R13113DK 620 UV04092 FIX MVS ABENDS USING MSS , PE VM11732
- R12810DK 620 UV04179 D/T3340 ALTERNATE TRACK VERIFICATION INCORRECT
- R13204DK 621 UV04300 LEAVE MSS PREFIX PRIOR TO SENSE
- R12941DK 622 UV04884 SYNC ERROR RECOV FOR INTERVENTION REQUIRED COND.
- R13400DK 623 UV04770 SENSE DOESN'T REQUIRE SEEK WHEN ONLY ONE CCW
- R08631DK 623 UV02423 SENSE I/O LOOP USING VIRTUAL RESERVE RELEASE
- R14597DK 629 UV06302 PRESENT COMMAND REJECT IF WRITE TO R/O DASD
- HRC011DK V01 ADD 3380 MDISK/DEDICATED DEVICE SUPPORT
R08860DK
Date Monday Apr 23, 1979 04:20:00 AM
Loaded from MAINT(294)
R08860DK: ./ D 3860000 3861000 $ 00001000 BEGIN APPLY >>> ./ D 3860000 3861000 $ 00001000 END APPLY >>> ./ D 3860000 3861000 $ 00001000 Update Succeeded Update Execution Time 31 milliseconds.
R08629DK
Date Thursday May 10, 1979 04:50:00 PM
Loaded from MAINT(294)
R08629DK: ./ I 2151000 $ 2151050 025 00001000 R08629DK: L R8,SAVER8 RESTORE ADDRESS OF VDEVBLOK @VA08629 00002000 R08629DK: AL R8,VMDVSTRT GET TO RIGHT ONE @VA08629 00003000 R08629DK: CLI VDEVTYPC,CLASGRAF LOOKING FOR 2250/3250 FOR @VA08629 00004000 R08629DK: BNE HNDLNOOP SPECIAL PROCESSING @VA08629 00005000 R08629DK: TM VDEVTYPE,TYP2250 ... @VA08629 00006000 R08629DK: BZ HNDLNOOP NOT FOUND @VA08629 00007000 R08629DK: TM VIRFLAG,CC+CD LOOKING FOR STANDALONE SENSE @VA08629 00008000 R08629DK: BNZ HNDLNOOP NOT STANDALONE @VA08629 00009000 R08629DK: L R10,FIRSTRCW MAKE SURE THIS WAS FIRST @VA08629 00010000 R08629DK: CL R10,THISRCW COMMAND IN THE CHAIN @VA08629 00011000 R08629DK: BNE HNDLNOOP NO, FORGET IT @VA08629 00012000 R08629DK: LA R10,RCWHSIZ(,R10) POINT TO REAL SENSE @VA08629 00013000 R08629DK: CLR R10,R6 IS SENSE FIRST COMMAND @VA08629 00014000 R08629DK: BNE HNDLNOOP NO, FORGET IT @VA08629 00015000 R08629DK: USING IOBLOK,R10 ... @VA08629 00016000 R08629DK: L R10,SAVER10 GET ADDRESS OF IOBLOK @VA08629 00017000 R08629DK: OI IOBSPEC3,IOBSENSE TURN ON SPECIAL BIT FOR VSI @VA08629 00018000 R08629DK: L R1,VDEVIOER ADDRESS OF IOERBLOK @VA08629 00019000 R08629DK: USING IOERBLOK,R1 ADDRESSABILITY @VA08629 00020000 R08629DK: LH R1,IOERLEN NO. CP SENSE BYTES @VA08629 00021000 R08629DK: LH R14,RCWCCW+6 SENSE LENGTH SPECIFIED IN CCW @VA08629 00022000 R08629DK: CLR R1,R14 SEE WHICH COUNT IS LESS @VA08629 00023000 R08629DK: BNL *+8 USE LOWER OF TWO @VA08629 00024000 R08629DK: STH R1,IOBCSW+6 SAVE TO CALCULATE RESIDUAL COUNT @VA08629 00025000 R08629DK: DROP R1 @VA08629 00026000 R08629DK: B ZEROADDR CONTINUE ALONG TRANSLATION @VA08629 00027000 BEGIN APPLY >>> ./ I 2151000 $ 2151050 025 00001000 END APPLY >>> ./ I 2151000 $ 2151050 025 00001000 Update Succeeded Update Execution Time 23 milliseconds.
R09957DK
Date Thursday Jul 12, 1979 09:51: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.
R10078DK
Date Monday Jul 02, 1979 11:07:00 AM
Loaded from MAINT(294)
R10078DK: ./ I 00337000 $ 337200 200 04/12/79 08:01:02 R10078DK: LA R1,SDLCTBL POINT TO SDLC TABLE @V67CDF1 00337100 R10078DK: USING VDEVBLOK,R8 @V67CDF1 00337200 R10078DK: CLI VDEVTYPE,TYPSDLC IS IT AN SDLC @V67CDF1 00337300 R10078DK: BER R14 YES DO IT @V67CDF1 00337400 R10078DK: ./ I 03012000 $ 3012008 8 04/12/79 08:01:02 R10078DK: *. 03012001 R10078DK: * LOGIC FOR "SDLC" = TERMINAL DEVICE CLASS-ICA SDLC TYPE 03012002 R10078DK: * 03012003 R10078DK: * SDLCX1 = "WRITE" COMMANDS WITH THE LAST 4 BITS = 1: 03012004 R10078DK: * WRITE (01) HANDLED AS GENERAL CASE OF DATA TRANSFER 03012005 R10078DK: * OTHERWISE HANDLED AS AN INVALID CCW 03012006 R10078DK: * 03012007 R10078DK: * SDLCX2 = "READ" COMMANDS WITH THE LAST 4 BITS = 2: 03012008 R10078DK: * READ (02) HANDLED AS GENERAL CASE OF READ 03012009 R10078DK: * (CHECK FOR SKIP FLAG SET | STORAGE PROTECTION VIOLATION) 03012010 R10078DK: * OTHERWISE HANDLED AS AN INVALID CCW 03012011 R10078DK: * 03012012 R10078DK: * SDLCX3 = "CONTROL" COMMANDS WITH THE LAST 4 BITS = 3: 03012013 R10078DK: * NO-OP (03), DOES NOT CLEAR SENSE BYTES (IF ANY EXIST) 03012014 R10078DK: * SET-MODE (23), HANDLED AS GENERAL CASE OF DATA TRANSFER 03012015 R10078DK: * OTHERWISE HANDLED AS AN INVALID CCW 03012016 R10078DK: * 03012017 R10078DK: * SDLCX4 = "SENSE" COMMANDS WITH THE LAST 4 BITS = 4: 03012018 R10078DK: * SENSE (04), STORES SENSE BYTES FROM VIRTUAL DEVICE BLOCK 03012019 R10078DK: * IF ANY EXIST FROM A PREVIOUS UNIT CHECK; 03012020 R10078DK: * OTHERWISE, HANDLED AS GENERAL CASE OF READ 03012021 R10078DK: * (CHECK FOR SKIP FLAG SET | STORAGE PROTECTION VIOLATION) 03012022 R10078DK: * SENSE SCB (14), HANDLED AS GENERAL CASE OF DATA TRANSFER 03012023 R10078DK: * SENSE I/O (E4), HANDLED AS GENERAL CASE OF DATA TRANSFER 03012024 R10078DK: * OTHERWISE HANDLED AS AN INVALID CCW 03012025 R10078DK: * 03012026 R10078DK: * SDLCX5 = "WRITE" COMMANDS WITH THE LAST 4 BITS = 5: 03012027 R10078DK: * WRITE PIU (05), HANDLED AS GENERAL CASE OF DATA TRANSFER 03012028 R10078DK: * OTHERWISE HANDLED AS AN INVALID CCW 03012029 R10078DK: * 03012030 R10078DK: * SDLCX6 = "READ" COMMANDS WITH THE LAST 4 BITS = 6: 03012031 R10078DK: * READ PIU (06), HANDLED AS GENERAL CASE OR READ 03012032 R10078DK: * (CHECK FOR SKIP FLAG SET | STORAGE PROTECTION VIOLATION) 03012033 R10078DK: * OTHERWISE HANDLED AS AN INVALID CCW 03012034 R10078DK: * 03012035 R10078DK: * SDLCX7 = "CONTROL" COMMANDS WITH THE LAST 4 BITS = 7: 03012036 R10078DK: * ENABLE (27), HANDLED AS GENERAL CASE OF DATA TRANSFER 03012037 R10078DK: * OTHERWISE HANDLED AS AN INVALID CCW 03012038 R10078DK: * 03012039 R10078DK: * SDLCX9 = "WRITE" COMMANDS WITH THE LAST 4 BITS = 9: 03012040 R10078DK: * AUTOPOLL (09), TREATED AS A "STATUS MODIFIER" TYPE OF DATA 03012041 R10078DK: * TRANSFER; ALSO SET FLAG TO REMEMBER THAT AN AUTOPOLL WAS 03012042 R10078DK: * PROCESSED (FOR SPECIAL HANDLING OF AUTO-POLL WRAP LIST) 03012043 R10078DK: * DIAL (29), HANDLED AS GENERAL CASE OF DATA TRANSFER 03012044 R10078DK: * OTHERWISE HANDLED AS AN INVALID CCW 03012045 R10078DK: * 03012046 R10078DK: * SDLCXA = COMMANDS WITH THE LAST 4 BITS = A: 03012047 R10078DK: * HANDLED AS AN INVALID CCW 03012048 R10078DK: * 03012049 R10078DK: * SDLCXB = "CONTROL" COMMANDS WITH THE LAST 4 BITS = B: 03012050 R10078DK: * CONTROL SCB (0B), HANDLED AS GENERAL CASE OF DATA TRANSFER 03012051 R10078DK: * OTHERWISE HANDLED AS AN INVALID CCW 03012052 R10078DK: * 03012053 R10078DK: * SDLCXC = COMMANDS WITH THE LAST 4 BITS = C: 03012054 R10078DK: * HANDLED AS AN INVALID CCW 03012055 R10078DK: * 03012056 R10078DK: * SDLCXD = COMMANDS WITH THE LAST 4 BITS = D: 03012057 R10078DK: * HANDLED AS AN INVALID CCW 03012058 R10078DK: * 03012059 R10078DK: * SDLCXE = COMMANDS WITH THE LAST 4 BITS = E: 03012060 R10078DK: * HANDLED AS AN INVALID CCW 03012061 R10078DK: * 03012062 R10078DK: * SDLCXF = "CONTROL" COMMANDS WITH THE LAST 4 BITS = F: 03012063 R10078DK: * POLL (0F), HANDLED AS GENERAL CASE OF DATA TRANSFER 03012064 R10078DK: * DISABLE (2F), HANDLED AS GENERAL CASE OF DATA TRANSFER 03012065 R10078DK: * OTHERWISE HANDLED AS AN INVALID CCW 03012066 R10078DK: *. 03012067 R10078DK: SPACE 2 03012068 R10078DK: SDLCX1 EQU TERMX1 GENERAL CASE DATA TRANSFER @V67CDF1 03012069 R10078DK: SDLCX2 DS 0H @V67CDF1 03012070 R10078DK: CLI VIRCOMND,X'02' READ COMMAND? @V67CDF1 03012071 R10078DK: BE READSKIP YES - GENERAL CASE READ @V67CDF1 03012072 R10078DK: B CCWINVLD NO - INVALID CCW @V67CDF1 03012073 R10078DK: SDLCX3 DS 0H @V67CDF1 03012074 R10078DK: CLI VIRCOMND,X'03' NO-OP COMMAND? @V67CDF1 03012075 R10078DK: BE HNDLNOOP YES - GENERAL CASE NO-OP @V67CDF1 03012076 R10078DK: CLI VIRCOMND,X'23' SET MODE COMMAND? @V67CDF1 03012077 R10078DK: BER R2 YES - GENERAL CASE DATA TRANSFER @V67CDF1 03012078 R10078DK: B CCWINVLD NO - INVALID CCW @V67CDF1 03012079 R10078DK: SDLCX4 CLI VIRCOMND,X'04' SENSE COMMAND? @V67CDF1 03012080 R10078DK: BE DASDX4 YES - GENERAL CASE OF READ @V67CDF1 03012081 R10078DK: CLI VIRCOMND,X'14' SENSE SCB? @V67CDF1 03012082 R10078DK: BER R2 YES - GENERAL CASE DATA TRANSFER @V67CDF1 03012083 R10078DK: CLI VIRCOMND,X'E4' SENSE I/O? @V67CDF1 03012084 R10078DK: BER R2 YES - GENERAL CASE DATA TRANSFER @V67CDF1 03012085 R10078DK: B CCWINVLD NO - INVALID CCW @V67CDF1 03012086 R10078DK: SDLCX5 EQU TERMX5 GENERAL CASE DATA TRANSFER @V67CDF1 03012087 R10078DK: SDLCX6 EQU TERMX6 GENERAL CASE OF READ @V67CDF1 03012088 R10078DK: SDLCX7 DS 0H @V67CDF1 03012089 R10078DK: CLI VIRCOMND,X'27' ENABLE? @V67CDF1 03012090 R10078DK: BER R2 YES - GENERAL CASE DATA TRANSFER @V67CDF1 03012091 R10078DK: B CCWINVLD NO - INVALID CCW @V67CDF1 03012092 R10078DK: SDLCX9 DS 0H @V67CDF1 03012093 R10078DK: CLI VIRCOMND,X'29' DIAL? @V67CDF1 03012094 R10078DK: BER R2 YES - GENERAL CASE DATA TRANSFER @V67CDF1 03012095 R10078DK: CLI VIRCOMND,X'09' AUTOPOLL? @V67CDF1 03012096 R10078DK: BNE CCWINVLD NO - INVALID CCW @V67CDF1 03012097 R10078DK: OI VIRFLAG,SMCOM TURN ON STATUS MODIFER @V67CDF1 03012098 R10078DK: BR R2 NOW GENERAL CASE DATA TRANSFER @V67CDF1 03012099 R10078DK: SDLCXA EQU CCWINVLD INVALID CCW @V67CDF1 03012100 R10078DK: SDLCXB DS 0H @V67CDF1 03012101 R10078DK: CLI VIRCOMND,X'0B' CONTROL SCB? @V67CDF1 03012102 R10078DK: BER R2 YES - GENERAL CASE DATA TRANSFER @V67CDF1 03012103 R10078DK: B CCWINVLD NO - INVALID CCW @V67CDF1 03012104 R10078DK: SDLCXC EQU CCWINVLD INVALID CCW @V67CDF1 03012105 R10078DK: SDLCXD EQU CCWINVLD INVALID CCW @V67CDF1 03012106 R10078DK: SDLCXE EQU CCWINVLD INVALID CCW @V67CDF1 03012107 R10078DK: SDLCXF CLI VIRCOMND,X'0F' POLL? @V67CDF1 03012108 R10078DK: BER R2 YES - GENERAL CASE DATA TRANSFER @V67CDF1 03012109 R10078DK: CLI VIRCOMND,X'2F' DISABLE? @V67CDF1 03012110 R10078DK: BER R2 YES - GENERAL CASE DATA TRANSER @V67CDF1 03012111 R10078DK: B CCWINVLD NO - INVALID CCW @V67CDF1 03012112 R10078DK: EJECT 03012113 R10078DK: ./ I 04196000 $ 4196500 500 04/12/79 08:01:02 R10078DK: SDLCTBL CCTBL SDLC,12,09 TABLE FOR ICA-SDLC @V67CDF1 04196100 BEGIN APPLY >>> ./ I 00337000 $ 337200 200 04/12/79 08:01:02 END APPLY >>> ./ I 00337000 $ 337200 200 04/12/79 08:01:02 BEGIN APPLY >>> ./ I 03012000 $ 3012008 8 04/12/79 08:01:02 END APPLY >>> ./ I 03012000 $ 3012008 8 04/12/79 08:01:02 BEGIN APPLY >>> ./ I 04196000 $ 4196500 500 04/12/79 08:01:02 END APPLY >>> ./ I 04196000 $ 4196500 500 04/12/79 08:01:02 Update Succeeded Update Execution Time 39 milliseconds.
R08844DK
Date Wednesday Oct 31, 1979 08:27:00 AM
Loaded from MAINT(294)
R08844DK: ./ I 1303000 $ 1303100 100 00001000 R08844DK: TM RCWCTL,RCWINVL INVALID CCW ? @VA08844 00002000 R08844DK: BO FWDIDAL YES @VA08844 00003000 R08844DK: ICM R4,3,RCWCNT LOAD DATA LENGTH @VA08844 00004000 R08844DK: BCTR R4,R0 BYTE-COUNT-1 @VA08844 00005000 BEGIN APPLY >>> ./ I 1303000 $ 1303100 100 00001000 END APPLY >>> ./ I 1303000 $ 1303100 100 00001000 Update Succeeded Update Execution Time 31 milliseconds.
R10216DK
Date Friday Dec 07, 1979 08:27:00 AM
Loaded from MAINT(294)
R10216DK: ./ R 941000 $ 941500 00001000 R10216DK: CALL DMKPTRFR,AFFINITY GET A NEW PAGE @VA10216 00002000 R10216DK: ./ R 3560000 $ 3560500 00003000 R10216DK: CALL DMKPTRFR,AFFINITY GET A NEW PAGE @VA10216 00004000 BEGIN APPLY >>> ./ R 941000 $ 941500 00001000 END APPLY >>> ./ R 941000 $ 941500 00001000 BEGIN APPLY >>> ./ R 3560000 $ 3560500 00003000 END APPLY >>> ./ R 3560000 $ 3560500 00003000 Update Succeeded Update Execution Time 39 milliseconds.
R09758DK
Date Wednesday Jan 23, 1980 01:15:00 AM
Loaded from MAINT(294)
R09758DK: ./ R 377000 $ 377010 00001000 R09758DK: TM VDEVFLG2,VDEVVIRT VIRTUAL 3330V ? @VA09758 00002000 R09758DK: ./ R 437000 $ 437010 00003000 R09758DK: TM VDEVFLG2,VDEVVIRT USER HAVE CYL FLT SUPPORT ? @VA09758 00004000 BEGIN APPLY >>> ./ R 377000 $ 377010 00001000 END APPLY >>> ./ R 377000 $ 377010 00001000 BEGIN APPLY >>> ./ R 437000 $ 437010 00003000 END APPLY >>> ./ R 437000 $ 437010 00003000 Update Succeeded Update Execution Time 55 milliseconds.
R10398DK
Date Saturday Feb 09, 1980 11:27:00 AM
Loaded from MAINT(294)
R10398DK: ./ I 02134000 $ 02134010 10 00001000 R10398DK: LTR R14,R14 NO SENSE: DID NOT START @VA10398 00002000 R10398DK: BZ ZEROLNG @VA10398 00003000 R10398DK: ./ I 02135000 $ 02135010 10 00004000 R10398DK: ZEROLNG DS 0H @VA10398 00005000 BEGIN APPLY >>> ./ I 02134000 $ 02134010 10 00001000 END APPLY >>> ./ I 02134000 $ 02134010 10 00001000 BEGIN APPLY >>> ./ I 02135000 $ 02135010 10 00004000 END APPLY >>> ./ I 02135000 $ 02135010 10 00004000 Update Succeeded Update Execution Time 31 milliseconds.
R09607DK
Date Saturday Feb 09, 1980 12:10:00 PM
Loaded from MAINT(294)
R09607DK: ./ R 01082000 $ 01082010 10 00001000 R09607DK: BO BYPASS IT IS SO CONTINUE @VA09607 00002000 R09607DK: L R10,SAVER10 NOW GET THE IOBLOK @VA09607 00003000 R09607DK: USING IOBLOK,R10 ......INTO R10 @VA09607 00004000 R09607DK: TM IOBSPEC2,IOBUNREL STANDALONE RELEASE..??? @VA09607 00005000 R09607DK: BNO CCWNXT28 NO CONTINUE @VA09607 00006000 R09607DK: BYPASS DS 0H @VA09607 00007000 BEGIN APPLY >>> ./ R 01082000 $ 01082010 10 00001000 END APPLY >>> ./ R 01082000 $ 01082010 10 00001000 Update Succeeded Update Execution Time 31 milliseconds.
R10860DK
Date Friday Mar 14, 1980 02:26:00 AM
Loaded from MAINT(294)
R10860DK: ./ D 4014000 4049000 $ BEGIN APPLY >>> ./ D 4014000 4049000 $ END APPLY >>> ./ D 4014000 4049000 $ Update Succeeded Update Execution Time 23 milliseconds.
R10883DK
Date Friday Oct 03, 1980 09:24:00 AM
Loaded from MAINT(294)
R10883DK: ./ I 478000 $ 478100 100 00001000 R10883DK: PREFLAG EQU 20 @VA10883 00002000 R10883DK: PRECTL EQU 21 @VA10883 00003000 R10883DK: ./ I 2397000 $ 2397100 100 00004000 R10883DK: OI PRECTL(R1),RCWREL ADDRESS CAN BE RELOCATED @VA10883 00005000 R10883DK: NI PREFLAG(R1),255-IDA TURN IDA OFF @VA10883 00006000 R10883DK: B SRCHID2 LEAVE ARGUMENT IN RCWTASK @VA10883 00007000 BEGIN APPLY >>> ./ I 478000 $ 478100 100 00001000 END APPLY >>> ./ I 478000 $ 478100 100 00001000 BEGIN APPLY >>> ./ I 2397000 $ 2397100 100 00004000 END APPLY >>> ./ I 2397000 $ 2397100 100 00004000 Update Succeeded Update Execution Time 31 milliseconds.
R11879DK
Date Friday Oct 03, 1980 08:22:00 AM
Loaded from MAINT(294)
R11879DK: ./ D 2032000 2039000 BEGIN APPLY >>> ./ D 2032000 2039000 END APPLY >>> ./ D 2032000 2039000 Update Succeeded Update Execution Time 31 milliseconds.
R11890DK
Date Friday Oct 03, 1980 08:27:00 AM
Loaded from MAINT(294)
R11890DK: ./ I 2670000 $ 2670100 100 00001000 R11890DK: NI PRECTL(R1),FULL-RCWREL DO NOT RELOCATE SEEK @VA11890 00002000 R11890DK: * ARG ADDR 00003000 BEGIN APPLY >>> ./ I 2670000 $ 2670100 100 00001000 END APPLY >>> ./ I 2670000 $ 2670100 100 00001000 Update Succeeded Update Execution Time 31 milliseconds.
R11732DK
Date Friday Oct 03, 1980 10:03:00 AM
Loaded from MAINT(294)
R11732DK: ./ R 2667000 $ 2667010 00001000 R11732DK: BZ NORESETC NOPE.... @VA11732 00002000 R11732DK: ./ I 2670000 $ 2670010 10 00003000 R11732DK: NORESETC DS 0H NO PREFIX ENTRY @VA11732 00004000 R11732DK: L R10,VDEVREAL GET THE RDEVBLOK @VA11732 00005000 R11732DK: TM RDEVFTR-RDEVBLOK(R10),VIRTUAL+SYSVIRT MSS TYPE @VA11732 00006000 R11732DK: BZ NORESETB NO .... CONTINUE @VA11732 00007000 R11732DK: TM VDEVFLG2,VDEVVIRT WAS IT VDEV AS VIRT @VA11732 00008000 R11732DK: BNO NORESETB NO ..... CONTINUE @VA11732 00009000 R11732DK: OI VIRFLAG,SMCOM ALLOW FOR STATUS MODIFIERABLE@VA11732 00010000 BEGIN APPLY >>> ./ R 2667000 $ 2667010 00001000 END APPLY >>> ./ R 2667000 $ 2667010 00001000 BEGIN APPLY >>> ./ I 2670000 $ 2670010 10 00003000 END APPLY >>> ./ I 2670000 $ 2670010 10 00003000 Update Succeeded Update Execution Time 31 milliseconds.
R11932DK
Date Friday Jan 16, 1981 01:16:00 AM
Loaded from MAINT(294)
R11932DK: ./ I 3141000 $ 3141100 100 00001000 R11932DK: CLI VDEVTYPE,TYPTTY IS THIS A TELETYPE? @VA11932 00002000 R11932DK: BNE SRCHID2 NO, CIRCLE C IS OKAY @VA11932 00003000 R11932DK: MVI 0(R7),X'DF' YES SEND A QUIET IDLE @VA11932 00004000 BEGIN APPLY >>> ./ I 3141000 $ 3141100 100 00001000 END APPLY >>> ./ I 3141000 $ 3141100 100 00001000 Update Succeeded Update Execution Time 23 milliseconds.
R12408DK
Date Tuesday Apr 07, 1981 03:30:00 AM
Loaded from MAINT(294)
R12408DK: ./ R 00201000 00216000 $ 201000 1000 01/27/81 12:51:55 R12408DK: &LABEL DC AL2(CCWINVLD-CCWSTART) - 0 CCW CMD INVALID @VA12408 00201000 R12408DK: DC AL2(&NAME.X1-CCWSTART) @VA12408 00202000 R12408DK: DC AL2(&NAME.X2-CCWSTART) @VA12408 00203000 R12408DK: DC AL2(&NAME.X3-CCWSTART) @VA12408 00204000 R12408DK: DC AL2(&NAME.X4-CCWSTART) @VA12408 00205000 R12408DK: DC AL2(&NAME.X5-CCWSTART) @VA12408 00206000 R12408DK: DC AL2(&NAME.X6-CCWSTART) @VA12408 00207000 R12408DK: DC AL2(&NAME.X7-CCWSTART) @VA12408 00208000 R12408DK: DC AL2(CCWTIC-CCWSTART) - COMMON CODE FOR 'TIC' @VA12408 00209000 R12408DK: DC AL2(&NAME.X9-CCWSTART) @VA12408 00210000 R12408DK: DC AL2(&NAME.XA-CCWSTART) @VA12408 00211000 R12408DK: DC AL2(&NAME.XB-CCWSTART) @VA12408 00212000 R12408DK: DC AL2(&NAME.XC-CCWSTART) @VA12408 00213000 R12408DK: DC AL2(&NAME.XD-CCWSTART) @VA12408 00214000 R12408DK: DC AL2(&NAME.XE-CCWSTART) @VA12408 00215000 R12408DK: DC AL2(&NAME.XF-CCWSTART) @VA12408 00216000 R12408DK: ./ R 00293000 $ 293000 500 01/27/81 12:51:55 R12408DK: USING DMKCCW,R12 @VA12408 00293000 R12408DK: USING CCWSTART+4096,R5 @VA12408 00293100 R12408DK: ./ R 00298000 00299000 $ 298000 2000 01/27/81 12:51:55 R12408DK: L R5,=A(CCWSTART+4096) SECOND BASE REG @VA12408 00298000 R12408DK: ./ R 00405000 $ 405000 500 01/27/81 12:51:55 R12408DK: CCWNEWVA EQU * @VA12408 00405000 R12408DK: NI MEMO1,X'FF'-CCWFIRST SIGNAL-NOT FIRST CCW STRING@VA12408 00405100 R12408DK: ./ R 00457000 $ 457000 300 01/27/81 12:51:55 R12408DK: OUT EQU * @VA12408 00457000 R12408DK: L R12,=A(CCWSTART) START OF PART TWO ADDRESSBLTY @VA12408 00457100 R12408DK: B CCWNXT1-CCWSTART(R12) ENTER MAIN LOOP PROCESSING@VA12408 00457200 R12408DK: ./ R 00462000 00463000 $ 462000 600 01/27/81 12:51:55 R12408DK: BZ OUT IF YES, ENTER MAIN PROCESSNG LOOP@VA12408 00462000 R12408DK: L R12,=A(CCWSTART) NOT, FORCE A CHANNEL PRGM CHK @VA12408 00463000 R12408DK: B CCWBAD-CCWSTART(R12) GO THERE @VA12408 00463100 R12408DK: ./ I 00479000 $ 479010 10 01/27/81 12:51:55 R12408DK: * 00479010 R12408DK: * GET A LARGER AREA FROM FREE STORAGE, MOVE HEADER, CCWS, AND 00479020 R12408DK: * CONTROL DATA FROM THE OLD (SMALLER) AREA TO THE NEW (BIGGER) AREA, 00479030 R12408DK: * RELOCATING CCW ADDRESSES IF NECESSARY. THEN RETURN THE OLD 00479040 R12408DK: * BLOCK TO FREE STORAGE, REVISE ALL NEEDED POINTERS, ETC., AND 00479050 R12408DK: * CONTINUE TRANSLATING USING THE NEW (LARGER) BLOCK: 00479060 R12408DK: * 00479070 R12408DK: ROOM L R8,THISRCW POINT TO BEGINNING OF THIS RCWTSK@VA12408 00479080 R12408DK: USING RCWTASK,R8 REFERENCE SAME 00479090 R12408DK: LH R0,RCWCCNT GET OLD TOTAL DBL-WORD COUNT 00479100 R12408DK: L R10,DEVTABLE LOAD ADDRESS OF DEVICE TABLE @VA04000 00479110 R12408DK: AH R0,34(,R10) ADD EXTRA WORD COUNT FROM TABLE @VA04000 00479120 R12408DK: CALL DMKFREE GET A NEW (LARGER) FREE STORAGE AREA 00479130 R12408DK: LR R2,R8 GET BEGINNING OF OLD AREA, 00479140 R12408DK: LR R3,R6 HOW FAR WE GOT, 00479150 R12408DK: SLR R3,R2 NOW WE HAVE THE COUNT IN R3 00479160 R12408DK: LH R15,34(,R10) GET EXTRA WORD COUNT AGAIN @VA04000 00479170 R12408DK: SLL R15,3 IN BYTES, PLEASE, 00479180 R12408DK: LR R14,R7 GET DISPLACEMENT OF OLD CONTROL WORDS 00479190 R12408DK: SLR R14,R8 FROM BEGINNING OF BLOCK; THIS PLUS R15 00479200 R12408DK: ALR R15,R14 = COUNT OF NEW BLOCK UP TO CONTROL WORDS 00479210 R12408DK: LR R14,R1 ADDRESS OF NEW AREA IN R14 00479220 R12408DK: LA R10,0(R14,R15) BEGINNING OF NEW CONTROL WORDS INTO R10 00479230 R12408DK: MVCL R14,R2 OLD CCWS TO NEW AREA & CLEAR EXTRA WORDS 00479240 R12408DK: STH R0,RCWCCNT-RCWTASK(,R1) NOW STORE NEW DBL-WORD COUNT 00479250 R12408DK: LH R3,RCWCCNT GET OLD COUNT AGAIN, 00479260 R12408DK: SLL R3,3 INTO BYTES, 00479270 R12408DK: ALR R3,R8 COMPUTE END OF OLD CONTROL WORD AREA 00479280 R12408DK: SR R3,R7 NOW WE HAVE COUNT OF OLD CONTROL WORDS 00479290 R12408DK: BNP CCWNR02 (IF THERE ARE NONE, DON'T MOVE THEM) 00479300 R12408DK: LR R2,R7 BEGINNING OF CONTROL WORD AREA TO R2 00479310 R12408DK: LR R15,R3 COUNT (NONZERO) INTO R15, 00479320 R12408DK: LR R14,R10 SET R14 FOR MOVING CONTROL WORDS: 00479330 R12408DK: MVCL R14,R2 NOW MOVE OLD CONTROL WORDS TO NEW AREA 00479340 R12408DK: * 00479350 R12408DK: DROP R8 00479360 R12408DK: CCWNR02 L R2,PREVRCW REFERENCE THE "PREVIOUS" CCW STRING 00479370 R12408DK: LTR R2,R2 (IF ANY) 00479380 R12408DK: BP CCWNR03 PATCH POINTERS IF DOES EXIST. 00479390 R12408DK: ST R1,FIRSTRCW IF NONEXISTENT, REVISE "FIRSTRCW" 00479400 R12408DK: B CCWNR04 AND CONTINUE. 00479410 R12408DK: USING RCWTASK,R2 00479420 R12408DK: CCWNR03 ST R1,RCWPNT REVISE POINTER OF "PREVIOUS" CCW STRING 00479430 R12408DK: DROP R2 00479440 R12408DK: * 00479450 R12408DK: CCWNR04 ST R1,THISRCW STORE NEW "BEGINNING OF CCWS" 00479460 R12408DK: LR R3,R1 GET RELOCATION FACTOR IN R3 = 00479470 R12408DK: SR R3,R8 ADDR. OF NEW CCWS - ADDR. OF OLD ONES 00479480 R12408DK: LR R4,R10 DITTO FOR THE CONTROL WORDS 00479490 R12408DK: SR R4,R7 ... 00479500 R12408DK: SLR R6,R8 MAKE R6 A DISPLACEMENT, 00479510 R12408DK: LA R14,8 R14=8 FOR BXLE USE, 00479520 R12408DK: LA R15,0(R1,R6) POINT TO END OF AREA 00479530 R12408DK: SLR R15,R14 LESS 8 FOR BXLE LOOP 00479540 R12408DK: ALR R6,R1 NEW R6 FOR USE LATER 00479550 R12408DK: LA R1,RCWHSIZ(,R1) SET R1 TO BEGINNING OF CCWS 00479560 R12408DK: EJECT 00479570 R12408DK: * 00479580 R12408DK: * TIGHT LOOP TO RELOCATE CCW ADDRESSES: 00479590 R12408DK: * 00479600 R12408DK: * REGISTERS ARE USED AS FOLLOWS: 00479610 R12408DK: * R1 = ADDRESS OF CCWS BEING CHECKED (INCREMENTED BY 8 ON BXLE) 00479620 R12408DK: * R2 USED FOR WORK REGISTER, FOR RELOCATING A CCW-ADDRESS 00479630 R12408DK: * R3 = (ADDRESS OF NEW CCWS) - (ADDRESS OF OLD CCWS) 00479640 R12408DK: * R4 = (ADDR. OF NEW CONTROL AREA) - (ADDR. OF OLD CONTROL AREA) 00479650 R12408DK: * R7 = ADDRESS OF OLD CONTROL WORD AREA 00479660 R12408DK: * R14 = 8 (FOR BXLE) 00479670 R12408DK: * R15 = ADDRESS OF LAST DBL-WORD OF CCWS. 00479680 R12408DK: * 00479690 R12408DK: CNOP 0,4 FULL-WORD ALIGN LOOP FOR GOOD PERFORMANCE: 00479700 R12408DK: CCWRELLP TM 5(R1),RCWREL SHOULD ADDRESS BE RELOCATED ? 00479710 R12408DK: BO CCWRELAD TRF IF YES. 00479720 R12408DK: BXLE R1,R14,CCWRELLP ITERATE RELOCATING LOOP. 00479730 R12408DK: B CCWRELFN RELOCATING IS FINISHED. 00479740 R12408DK: * 00479750 R12408DK: CCWRELAD L R2,0(,R1) PICK UP CCW COMMAND & ADDRESS, 00479760 R12408DK: LA R2,0(,R2) STRIP OFF OP-CODE, 00479770 R12408DK: CLR R2,R7 WAS COMMAND IN CONTROL AREA ? 00479780 R12408DK: BL CCWREL2 TRF IF NOT. 00479790 R12408DK: AR R2,R4 RELOCATE TO NEW CONTROL AREA, 00479800 R12408DK: STCM R2,7,1(R1) STORE RELOCATED ADDRESS. 00479810 R12408DK: BXLE R1,R14,CCWRELLP ITERATE RELOCATING LOOP. 00479820 R12408DK: B CCWRELFN RELOCATING IS FINISHED. 00479830 R12408DK: * 00479840 R12408DK: CCWREL2 AR R2,R3 RELOCATE TO NEW CCW AREA, 00479850 R12408DK: STCM R2,7,1(R1) STORE RELOCATED ADDRESS. 00479860 R12408DK: BXLE R1,R14,CCWRELLP ITERATE RELOCATING LOOP. 00479870 R12408DK: * 00479880 R12408DK: CCWRELFN DS 0H RELOCATION OF CCW-ADDRESSES IS FINISHED: 00479890 R12408DK: USING RCWTASK,R8 00479900 R12408DK: LH R0,RCWCCNT GET SIZE OF OLD AREA, 00479910 R12408DK: DROP R8 00479920 R12408DK: LR R1,R8 AND ADDRESS OF SAME, 00479930 R12408DK: CALL DMKFRET NOW 'FRET' THE OLD BLOCK, 00479940 R12408DK: LR R7,R10 NEW R7 (AREA FOR CONTROL WORDS) 00479950 R12408DK: B OUT NOW GO PICK UP WHERE WE LEFT OFF. 00479960 R12408DK: SPACE 3 00479970 R12408DK: LTORG 00479980 R12408DK: EJECT 00479990 R12408DK: ./ R 00558000 00560000 $ 558000 1000 01/27/81 12:51:55 R12408DK: CCWSTART DS 0H START OF SECOND PART @VA12408 00558000 R12408DK: USING *,R12 ADDRESSABILITY FOR SECOND PART @VA12408 00559000 R12408DK: CCWNEXT DS 0H EXECUTE CP ASSIST "DECCW0" @VA12408 00560000 R12408DK: ./ I 01118000 $ 1118200 200 01/27/81 12:51:55 R12408DK: CCWNEWV2 EQU * SET UP ADDRESSABILITY @VA12408 01118100 R12408DK: L R12,=A(DMKCCW) BASE FOR PART ONE @VA12408 01118200 R12408DK: B CCWNEWVA-DMKCCW(R12) GO THERE @VA12408 01118300 R12408DK: ./ R 01558000 01653000 $ 1558000 30000 01/27/81 12:51:55 R12408DK: CCWNROOM EQU * @VA12408 01568000 R12408DK: L R12,=A(DMKCCW) BASE FOR FIRST PART @VA12408 01578000 R12408DK: B ROOM-DMKCCW(R12) GO THERE @VA12408 01588000 R12408DK: ./ R 03998000 03999000 $ 3998000 1000 01/27/81 12:51:55 R12408DK: L R12,=A(CCWSTART) BASE FOR PART TWO @VA12408 03998000 R12408DK: USING CCWSTART,R12 ADDRESSABILITY NEEDED MAIN CODE @VA12408 03999000 R12408DK: ./ R 04091000 $ 4091000 1000 01/27/81 12:51:55 R12408DK: BNO TICSCAN6 IF NOT, GET GOING. @VA12408 04091000 R12408DK: ./ R 04093000 $ 4093000 300 01/27/81 12:51:55 R12408DK: TICSCAN6 EQU * @VA12408 04093000 R12408DK: L R12,=A(DMKCCW) FIRST PART ADDRESSABILTIY @VA12408 04093100 R12408DK: B CCWNEWV-DMKCCW(R12) CREATE A NEW CCW CHAIN @VA12408 04093200 R12408DK: ./ D 04176000 04178000 01/27/81 12:51:55 R12408DK: ./ R 04183000 $ 04183100 R12408DK: DC AL2(DASDX0-CCWSTART) 00 OK IF HAD AN ISAM READ @VA12408 R12408DK: ./ R 04191000 $ 04191100 R12408DK: DC AL2(DASDX0-CCWSTART) 00 OK IF HAD AN ISAM READ @VA12408 R12408DK: ./ D 04201000 04203000 01/27/81 12:51:55 BEGIN APPLY >>> ./ R 00201000 00216000 $ 201000 1000 01/27/81 12:51:55 END APPLY >>> ./ R 00201000 00216000 $ 201000 1000 01/27/81 12:51:55 BEGIN APPLY >>> ./ R 00293000 $ 293000 500 01/27/81 12:51:55 END APPLY >>> ./ R 00293000 $ 293000 500 01/27/81 12:51:55 BEGIN APPLY >>> ./ R 00298000 00299000 $ 298000 2000 01/27/81 12:51:55 END APPLY >>> ./ R 00298000 00299000 $ 298000 2000 01/27/81 12:51:55 BEGIN APPLY >>> ./ R 00405000 $ 405000 500 01/27/81 12:51:55 END APPLY >>> ./ R 00405000 $ 405000 500 01/27/81 12:51:55 BEGIN APPLY >>> ./ R 00457000 $ 457000 300 01/27/81 12:51:55 END APPLY >>> ./ R 00457000 $ 457000 300 01/27/81 12:51:55 BEGIN APPLY >>> ./ R 00462000 00463000 $ 462000 600 01/27/81 12:51:55 END APPLY >>> ./ R 00462000 00463000 $ 462000 600 01/27/81 12:51:55 BEGIN APPLY >>> ./ I 00479000 $ 479010 10 01/27/81 12:51:55 END APPLY >>> ./ I 00479000 $ 479010 10 01/27/81 12:51:55 BEGIN APPLY >>> ./ R 00558000 00560000 $ 558000 1000 01/27/81 12:51:55 END APPLY >>> ./ R 00558000 00560000 $ 558000 1000 01/27/81 12:51:55 BEGIN APPLY >>> ./ I 01118000 $ 1118200 200 01/27/81 12:51:55 END APPLY >>> ./ I 01118000 $ 1118200 200 01/27/81 12:51:55 BEGIN APPLY >>> ./ R 01558000 01653000 $ 1558000 30000 01/27/81 12:51:55 END APPLY >>> ./ R 01558000 01653000 $ 1558000 30000 01/27/81 12:51:55 BEGIN APPLY >>> ./ R 03998000 03999000 $ 3998000 1000 01/27/81 12:51:55 END APPLY >>> ./ R 03998000 03999000 $ 3998000 1000 01/27/81 12:51:55 BEGIN APPLY >>> ./ R 04091000 $ 4091000 1000 01/27/81 12:51:55 END APPLY >>> ./ R 04091000 $ 4091000 1000 01/27/81 12:51:55 BEGIN APPLY >>> ./ R 04093000 $ 4093000 300 01/27/81 12:51:55 END APPLY >>> ./ R 04093000 $ 4093000 300 01/27/81 12:51:55 BEGIN APPLY >>> ./ D 04176000 04178000 01/27/81 12:51:55 END APPLY >>> ./ D 04176000 04178000 01/27/81 12:51:55 BEGIN APPLY >>> ./ R 04183000 $ 04183100 END APPLY >>> ./ R 04183000 $ 04183100 BEGIN APPLY >>> ./ R 04191000 $ 04191100 END APPLY >>> ./ R 04191000 $ 04191100 BEGIN APPLY >>> ./ D 04201000 04203000 01/27/81 12:51:55 END APPLY >>> ./ D 04201000 04203000 01/27/81 12:51:55 Update Succeeded Update Execution Time 172 milliseconds.
R12785DK
Date Tuesday Apr 07, 1981 03:30:00 AM
Loaded from MAINT(294)
R12785DK: ./ I 1199000 $ 1199100 200 00001000 R12785DK: LA R14,0(R14) ZERO HIGH ORDER FOR COMPARE @VA12785 00002000 R12785DK: LA R15,NOTLCK GET ADDR FOR COMPARE @VA12785 00003000 R12785DK: CR R14,R15 @VA12785 00004000 R12785DK: BE CALLVMA1 WE DIDN'T LOCK SO WON'T UNLOCK @VA12785 00005000 R12785DK: ./ I 1200000 $ 1200100 00006000 R12785DK: CALLVMA1 DS 0H @VA12785 00007000 R12785DK: ./ R 3487000 $ 3487100 00008000 R12785DK: NOTLCK BNZ TRANBRG1 @VA12785 00009000 BEGIN APPLY >>> ./ I 1199000 $ 1199100 200 00001000 END APPLY >>> ./ I 1199000 $ 1199100 200 00001000 BEGIN APPLY >>> ./ I 1200000 $ 1200100 00006000 END APPLY >>> ./ I 1200000 $ 1200100 00006000 BEGIN APPLY >>> ./ R 3487000 $ 3487100 00008000 END APPLY >>> ./ R 3487000 $ 3487100 00008000 Update Succeeded Update Execution Time 39 milliseconds.
R13113DK
Date Tuesday Apr 07, 1981 03:30:00 AM
Loaded from MAINT(294)
R13113DK: ./ I 2670000 $ 2670005 R13113DK: NI PRECTL(R1),FULL-RCWREL DO NOT RELOCATE SEEK @VA13113 R13113DK: ./ D 2670100 2670200 $ BEGIN APPLY >>> ./ I 2670000 $ 2670005 END APPLY >>> ./ I 2670000 $ 2670005 BEGIN APPLY >>> ./ D 2670100 2670200 $ END APPLY >>> ./ D 2670100 2670200 $ Update Succeeded Update Execution Time 31 milliseconds.
R12810DK
Date Wednesday Apr 08, 1981 04:07:00 AM
Loaded from MAINT(294)
R12810DK: ./ I 2525000 $ 2525200 200 00001000 R12810DK: LA R15,2804 3344 CE CYL ADDR - HIGH @VA12810 00002000 R12810DK: CLR R14,R15 IS THE SEEK TO THE CE CYL ? @VA12810 00003000 R12810DK: BH CCWRLC3M NO, PROCESS AS "VERY LARGE" CYL @VA12810 00004000 R12810DK: ./ R 2528000 2531000 $ 2528100 300 00005000 R12810DK: BNL CCWRLC20 YES, GO SET CE CYL FLAG @VA12810 00006000 R12810DK: LA R15,696 IS IT A 3340-70 ALTERNATE CYL @VA12810 00007000 R12810DK: CLR R14,R15 ... @VA12810 00008000 R12810DK: BL CCWRLC3M NO, THEN GIVE SEEK REJECT @VA12810 00009000 R12810DK: LA R15,697 TRY THIS ALTERNATE CYL @VA12810 00010000 R12810DK: CLR R14,R15 IS IT THIS ONE ? @VA12810 00011000 R12810DK: BH CCWRLC3M NOT HERE EITHER, GIVE SEEK REJECT@VA12810 00012000 R12810DK: LA R15,696 IS IT A FULL-PACK MINI @VA12810 00013000 R12810DK: CH R15,VDEVBND ..... @VA12810 00014000 R12810DK: BH MAYBALTC NO, GO CHECK THE PRIMARY CYL ADDR@VA12810 00015000 R12810DK: B CCWRELAL OTHERWISE, NO NEED TO CHECK @VA12810 00016000 R12810DK: ./ I 02536000 $ 02536100 100 00017000 R12810DK: LA R15,348 3340 35MB ALT CYL ADDR ? @VA12810 00018000 R12810DK: CLR R14,R15 IS THE SEEK TO THE ALT CYL ? @VA12810 00019000 R12810DK: BNE CCWRLC3M NO, GO GIVE A SEEK REJECT @VA12810 00020000 R12810DK: LA R15,348 NO. OF 3340-35 PRIMARY CYLS @VA12810 00021000 R12810DK: CH R15,VDEVBND IS THIS A FULL PACK MINI ? @VA12810 00022000 R12810DK: BNH CCWRELAL YES, NO NEED TO CHECK PRIMARY CYL@VA12810 00023000 BEGIN APPLY >>> ./ I 2525000 $ 2525200 200 00001000 END APPLY >>> ./ I 2525000 $ 2525200 200 00001000 BEGIN APPLY >>> ./ R 2528000 2531000 $ 2528100 300 00005000 END APPLY >>> ./ R 2528000 2531000 $ 2528100 300 00005000 BEGIN APPLY >>> ./ I 02536000 $ 02536100 100 00017000 END APPLY >>> ./ I 02536000 $ 02536100 100 00017000 Update Succeeded Update Execution Time 39 milliseconds.
R13204DK
Date Wednesday Jun 03, 1981 04:21:00 AM
Loaded from MAINT(294)
R13204DK: ./ I 2031000 $ 2032000 1000 R13204DK: TM MEMO2,PRECCW IS THERE AN MSS PREFIX @VA13204 R13204DK: BZ DASDX4OK NO @VA13204 R13204DK: LA R0,ZEROES POINT TO CCHH = 0 @VA13204 R13204DK: L R15,FIRSTRCW FIRST RCWTASK ADDRESS @VA13204 R13204DK: LA R15,RCWHSIZ(R15) BUMP OVER HEADER @VA13204 R13204DK: STCM R0,7,1(R15) SET SEEK ARG PTR @VA13204 R13204DK: NI MEMO2,FULL-PRECCW SEEK ARG NOW SET @VA13204 R13204DK: DASDX4OK EQU * @VA13204 BEGIN APPLY >>> ./ I 2031000 $ 2032000 1000 END APPLY >>> ./ I 2031000 $ 2032000 1000 Update Succeeded Update Execution Time 23 milliseconds.
R12941DK
Date Tuesday Jul 07, 1981 01:27:00 PM
Loaded from MAINT(294)
R12941DK: ./ * BEGIN APPLY >>> ./ * Comment >>> ./ * END APPLY >>> ./ * Update Succeeded Update Execution Time 23 milliseconds.
R13400DK
Date Friday Aug 07, 1981 06:25:00 AM
Loaded from MAINT(294)
R13400DK: ./ I 00439000 $ 439100 100 05/27/81 09:36:09 R13400DK: LR R14,R1 SAVE RCWTASK ADDR OVER TRANS @VA13400 04901000 R13400DK: TRANS 2,9,OPT=(BRING,DEFER) @VA13400 04902000 R13400DK: LR R1,R14 RESTORE RCWTASK ADDR AFTER TRANS @VA13400 04903000 R13400DK: CLI 0(R2),X'04' IS IT A SENSE CCW? @VA13400 04904000 R13400DK: BNE SETPRFX NO - THEN WE DO NEED THE PREFIX @VA13400 04905000 R13400DK: TM 4(R2),CC IS THE SENSE CMD-CHAINED? @VA13400 04906000 R13400DK: BNO CCW03 NO - THEN WE DON'T NEED PREFIX @VA13400 04907000 BEGIN APPLY >>> ./ I 00439000 $ 439100 100 05/27/81 09:36:09 END APPLY >>> ./ I 00439000 $ 439100 100 05/27/81 09:36:09 Update Succeeded Update Execution Time 23 milliseconds.
R08631DK
Date Friday Aug 07, 1981 06:26:00 AM
Loaded from MAINT(294)
R08631DK: ./ I 286000 $ 286100 00001000 R08631DK: EXTRN DMKSTKCP STACK CPEXBLOK @VA08631 00002000 R08631DK: ./ R 1047000 $ 1047100 100 00003000 R08631DK: BO CCWDEFER YES, DEFER PROCESSING @VA08631 00004000 R08631DK: LA R15,CCWDEFER RETURN TO THIS ADDR IF ANOTHER @VA08631 00005000 R08631DK: * USER HAS SENSE BYTES OUTSTANDING 00006000 R08631DK: * FOR THIS MINIDISK 00007000 R08631DK: B CCWNXT26 CONTINUE @VA08631 00008000 R08631DK: ./ R 1048000 $ 1048100 100 R08631DK: CCWDEFER DS 0H @VA08631 00010000 R08631DK: LA R0,CPEXSIZE SIZE OF CPEXBLOC R08631DK: ./ R 1076000 $ 1076100 100 00012000 R08631DK: BO CCWNXT24 SOMEONE ELSE HAS IT RESERVED @VA08631 00013000 R08631DK: LA R15,CCWDEFER RETURN TO THIS ADDR IF ANOTHER @VA08631 00014000 R08631DK: * USER HAS SENSE BYTES OUTSTANDING 00015000 R08631DK: * FOR THIS MINIDISK 00016000 R08631DK: B CCWNXT26 CONTINUE @VA08631 00017000 R08631DK: ./ R 1081000 1083000 $ 1081010 10 00018000 R08631DK: CCWNXT26 TM MEMO3,RESINCHA DOES CCW CHAIN HAVE A RESERVE? @VA08631 00019000 R08631DK: BZ CCWNXT28 NO, CONTINUE @VA08631 00020000 R08631DK: LR R1,R8 SAVE CURRENT VDEVBLOK ADDRESS @VA08631 00021000 R08631DK: CCWLINK DS 0H @VA08631 00022000 R08631DK: L R8,VDEVLINK GET VDEV FOR LINK TO SAME MINI @VA08631 00023000 R08631DK: CR R1,R8 ARE WE BACK TO WHERE WE STARTED? @VA08631 00024000 R08631DK: BE CCWNXT27 YES, LET USER RESERVE CONTINUE @VA08631 00025000 R08631DK: TM VDEVFLAG,VDEVUC UC/SENSE OUTSTANDING FOR @VA08631 00026000 R08631DK: * ANOTHER USER? 00027000 R08631DK: BZ CCWLINK NO, KEEP LOOKING @VA08631 00028000 R08631DK: LR R8,R1 RESTORE CURRENT VDEVBLOK @VA08631 00029000 R08631DK: BR R15 RETURN TO EITHER REFLECT BUSY OR @VA08631 00030000 R08631DK: * STACK CPEXBLOK UNTIL SENSE BYTES 00031000 R08631DK: * HAVE BEEN OFFLOADED 00032000 R08631DK: CCWNXT27 OI VDEVFLG2,VDEVRES FLAG VDEVBLOK RESERVED @VA08631 00033000 R08631DK: ./ R 1138000 $ 1138010 10 00034000 R08631DK: TM VDEVFLG2,VDEVRRF VIRTUAL RESERVE/RELEASE FEAT? @VA08631 00035000 R08631DK: BZR R10 NO, RETURN @VA08631 00036000 R08631DK: L R15,VDEVRRB GET ADDR OF VRRBLOK @VA08631 00037000 R08631DK: USING VRRBLOK,R15 ESTABLISH ADDRESSABILITY @VA08631 00038000 R08631DK: TM VRRSTAT,VRRRES SOMEONE GOT THIS MDISK RESERVED? @VA08631 00039000 R08631DK: BOR R10 YES, RETURN @VA08631 00040000 R08631DK: NEXTCPEX L R1,VRRCPEX REQUESTS WAITING FOR SENSE DATA @VA08631 00041000 R08631DK: * TO BE OFFLOADED AS A 00042000 R08631DK: * RESULT OF A UNIT CHECK? 00043000 R08631DK: LTR R1,R1 ARE THERE ANY? @VA08631 00044000 R08631DK: BZR R10 NO, FORGET IT @VA08631 00045000 R08631DK: USING CPEXBLOK,R1 ESTABLISH ADDRESSABILITY @VA08631 00046000 R08631DK: L R0,CPEXFPNT UNCHAIN THIS CPEXBLOK @VA08631 00047000 R08631DK: ST R0,VRRCPEX ... @VA08631 00048000 R08631DK: CALL DMKSTKCP AND STACK FOR RESTART @VA08631 00049000 R08631DK: L R15,VDEVRRB RELOAD R15 @VA08631 00050000 R08631DK: B NEXTCPEX AND CONTINUE TO UNSTACK REST @VA08631 00051000 R08631DK: DROP R15,R1 @VA08631 00052000 BEGIN APPLY >>> ./ I 286000 $ 286100 00001000 END APPLY >>> ./ I 286000 $ 286100 00001000 BEGIN APPLY >>> ./ R 1047000 $ 1047100 100 00003000 END APPLY >>> ./ R 1047000 $ 1047100 100 00003000 BEGIN APPLY >>> ./ R 1048000 $ 1048100 100 END APPLY >>> ./ R 1048000 $ 1048100 100 BEGIN APPLY >>> ./ R 1076000 $ 1076100 100 00012000 END APPLY >>> ./ R 1076000 $ 1076100 100 00012000 BEGIN APPLY >>> ./ R 1081000 1083000 $ 1081010 10 00018000 END APPLY >>> ./ R 1081000 1083000 $ 1081010 10 00018000 BEGIN APPLY >>> ./ R 1138000 $ 1138010 10 00034000 END APPLY >>> ./ R 1138000 $ 1138010 10 00034000 Update Succeeded Update Execution Time 94 milliseconds.
R14597DK
Date Thursday Apr 01, 1982 02:48:00 PM
Loaded from MAINT(294)
R14597DK: ./ R 817000 $ 817100 00001000 R14597DK: BO REJECT1 @VA14597 00002000 R14597DK: ./ I 2434000 $ 2434100 200 00003000 R14597DK: REJECT1 EQU * @VA14597 00004000 R14597DK: MVI RCWCOMND,INVCCW1 FORCE CMND REJECT @VA14597 00005000 R14597DK: B CCWINVLD INVALID CCW @VA14597 00006000 R14597DK: INVCCW1 EQU X'FE' FORCE CMND REJ. WITH FE CMMD CODE@VA14597 00007000 BEGIN APPLY >>> ./ R 817000 $ 817100 00001000 END APPLY >>> ./ R 817000 $ 817100 00001000 BEGIN APPLY >>> ./ I 2434000 $ 2434100 200 00003000 END APPLY >>> ./ I 2434000 $ 2434100 200 00003000 Update Succeeded Update Execution Time 39 milliseconds.
HRC011DK
Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
HRC011DK: ./ R 00049000 $ 49490 490 01/28/06 12:55:18 HRC011DK: * DMKDSBSD - TO DO REAL BUFFER UNLOAD (2305/3330/40/50/8HRC011DK 00049000 HRC011DK: ./ R 00280000 $ 280490 490 01/28/06 12:55:18 HRC011DK: EXTRN DMKDSBSD BUFFER UNLOAD 2305/3330/40/50/80 HRC011DK 00280000 HRC011DK: ./ R 01113000 $ 1113490 490 01/28/06 12:55:18 HRC011DK: TM VDEVTYPE,TYP3330+TYP3340+TYP3350+TYP3380 HRC011DK 01113000 HRC011DK: ./ R 01674000 $ 1674290 290 01/28/06 12:55:18 HRC011DK: * CHECKS DEVICE TYPE; IF NOT 3330/40/50/80, HANDLES HRC011DK 01674000 HRC011DK: * NORMALLY. HRC011DK HRC011DK: ./ R 01676000 $ 1676490 490 01/28/06 12:55:18 HRC011DK: * IF 3330/40/50/80, CHECKS CYLINDER RELOCATION FACTOR; HRC011DK 01676000 HRC011DK: ./ R 01684000 $ 1684490 490 01/28/06 12:55:18 HRC011DK: * FOR 3330/40/50/80, CYL RELOCATION FACTOR NONZERO, 5THHRC011DK 01684000 HRC011DK: ./ R 01730000 01731000 $ 1730490 490 01/28/06 12:55:18 HRC011DK: * (NOTE: FOR 3330/40/50/80, CYLINDER NUMBER IN SENSE HRC011DK 01730000 HRC011DK: * BYTES IS UN-RELOCATED TO FORM VIRTUAL CYLINDER HRC011DK 01731000 HRC011DK: * NUMBER); HRC011DK HRC011DK: ./ R 01734000 01735000 $ 1734590 590 01/28/06 12:55:18 HRC011DK: * FOR 3330/40/50/80 ONLY, WITH A NONZERO RELOCATION HRC011DK 01734000 HRC011DK: * FACTOR. OTHERWISE, HANDLED AS GENERAL CASE "READ" HRC011DK 01735000 HRC011DK: ./ R 01746000 $ 1746290 290 01/28/06 12:55:18 HRC011DK: * (24 ON 2305 OR A4 ON 3330/40/50/80); IF FOUND,CALLS HRC011DK 01746000 HRC011DK: * DMKDSBSD HRC011DK HRC011DK: ./ R 01768000 $ 1768290 290 01/28/06 12:55:18 HRC011DK: * FOR WRITE RECORD R0 (15) ON 3330/40/50/80, REPLACE OP HRC011DK 01768000 HRC011DK: * CODE BY HRC011DK HRC011DK: ./ R 01782000 01783000 $ 1782490 490 01/28/06 12:55:18 HRC011DK: * CASE READ IF THE DEVICE IS NOT A 3330/40/50/80; FOR HRC011DK 01782000 HRC011DK: * THESE DEVICES ARE PROCESSED AS DESCRIBED BELOW AT HRC011DK 01783000 HRC011DK: * "CCWRHARZ". HRC011DK 01783000 HRC011DK: ./ R 01828000 $ 1828490 490 01/28/06 12:55:18 HRC011DK: * TYPE; IF NOT 33XX, RELOCATES THE HOME ADDRESS FIELD HRC011DK 01828000 HRC011DK: ./ R 01830000 $ 1830490 490 01/28/06 12:55:18 HRC011DK: * THE VIRTUAL CYL. NUMBER. FOR 33XX, HOWEVER, REPLACES HRC011DK 01830000 HRC011DK: ./ R 01951000 01952000 $ 1951590 590 01/28/06 12:55:18 HRC011DK: TM VDEVTYPE,TYP3330+TYP3340+TYP3350+TYP3380 HRC011DK 01951000 HRC011DK: * SPECIAL R0 RECORD PROCESSING 3330/3340/3350/3380 HRC011DK 01952000 HRC011DK: ./ R 02111000 $ 2111490 490 01/28/06 12:55:18 HRC011DK: STC R15,RCWCTL TYPE COMMAND ON 3330/40/50/80 HRC011DK 02111000 HRC011DK: ./ R 02171000 02172000 $ 2171590 590 01/28/06 12:55:18 HRC011DK: * BUT FOR ANY OTHER (E.G. 3330/3340/3350/3380), HRC011DK 02171000 HRC011DK: * READ ON NON-TRANSMIT, INSTEAD OF WRITING: HRC011DK 02172000 HRC011DK: ./ R 03931000 $ 3931490 490 01/28/06 12:55:18 HRC011DK: * CHECK FOR 'BUFFER UNLOAD' ON 33XX (X'A4') OR 2305 (X'24'): HRC011DK 03931000 HRC011DK: ./ R 03939000 $ 3939490 490 01/28/06 12:55:18 HRC011DK: DASDCKBU CLI CCWCTL,RCWHMR NON-DEDICATED 33XX/2305 HRC011DK 03939000 HRC011DK: ./ R 03953000 03954000 $ 3953590 590 01/28/06 12:55:18 HRC011DK: DASDCTYP LA R14,X'A4' 33XX BUFFER UNLOAD CMD HRC011DK 03953000 HRC011DK: TM VDEVTYPE,TYP3330+TYP3340+TYP3350+TYP3380 HRC011DK 03954000 BEGIN APPLY >>> ./ R 00049000 $ 49490 490 01/28/06 12:55:18 END APPLY >>> ./ R 00049000 $ 49490 490 01/28/06 12:55:18 BEGIN APPLY >>> ./ R 00280000 $ 280490 490 01/28/06 12:55:18 END APPLY >>> ./ R 00280000 $ 280490 490 01/28/06 12:55:18 BEGIN APPLY >>> ./ R 01113000 $ 1113490 490 01/28/06 12:55:18 END APPLY >>> ./ R 01113000 $ 1113490 490 01/28/06 12:55:18 BEGIN APPLY >>> ./ R 01674000 $ 1674290 290 01/28/06 12:55:18 END APPLY >>> ./ R 01674000 $ 1674290 290 01/28/06 12:55:18 BEGIN APPLY >>> ./ R 01676000 $ 1676490 490 01/28/06 12:55:18 END APPLY >>> ./ R 01676000 $ 1676490 490 01/28/06 12:55:18 BEGIN APPLY >>> ./ R 01684000 $ 1684490 490 01/28/06 12:55:18 END APPLY >>> ./ R 01684000 $ 1684490 490 01/28/06 12:55:18 BEGIN APPLY >>> ./ R 01730000 01731000 $ 1730490 490 01/28/06 12:55:18 END APPLY >>> ./ R 01730000 01731000 $ 1730490 490 01/28/06 12:55:18 BEGIN APPLY >>> ./ R 01734000 01735000 $ 1734590 590 01/28/06 12:55:18 END APPLY >>> ./ R 01734000 01735000 $ 1734590 590 01/28/06 12:55:18 BEGIN APPLY >>> ./ R 01746000 $ 1746290 290 01/28/06 12:55:18 END APPLY >>> ./ R 01746000 $ 1746290 290 01/28/06 12:55:18 BEGIN APPLY >>> ./ R 01768000 $ 1768290 290 01/28/06 12:55:18 END APPLY >>> ./ R 01768000 $ 1768290 290 01/28/06 12:55:18 BEGIN APPLY >>> ./ R 01782000 01783000 $ 1782490 490 01/28/06 12:55:18 END APPLY >>> ./ R 01782000 01783000 $ 1782490 490 01/28/06 12:55:18 BEGIN APPLY >>> ./ R 01828000 $ 1828490 490 01/28/06 12:55:18 END APPLY >>> ./ R 01828000 $ 1828490 490 01/28/06 12:55:18 BEGIN APPLY >>> ./ R 01830000 $ 1830490 490 01/28/06 12:55:18 END APPLY >>> ./ R 01830000 $ 1830490 490 01/28/06 12:55:18 BEGIN APPLY >>> ./ R 01951000 01952000 $ 1951590 590 01/28/06 12:55:18 END APPLY >>> ./ R 01951000 01952000 $ 1951590 590 01/28/06 12:55:18 BEGIN APPLY >>> ./ R 02111000 $ 2111490 490 01/28/06 12:55:18 END APPLY >>> ./ R 02111000 $ 2111490 490 01/28/06 12:55:18 BEGIN APPLY >>> ./ R 02171000 02172000 $ 2171590 590 01/28/06 12:55:18 END APPLY >>> ./ R 02171000 02172000 $ 2171590 590 01/28/06 12:55:18 BEGIN APPLY >>> ./ R 03931000 $ 3931490 490 01/28/06 12:55:18 END APPLY >>> ./ R 03931000 $ 3931490 490 01/28/06 12:55:18 BEGIN APPLY >>> ./ R 03939000 $ 3939490 490 01/28/06 12:55:18 END APPLY >>> ./ R 03939000 $ 3939490 490 01/28/06 12:55:18 BEGIN APPLY >>> ./ R 03953000 03954000 $ 3953590 590 01/28/06 12:55:18 END APPLY >>> ./ R 03953000 03954000 $ 3953590 590 01/28/06 12:55:18 Update Succeeded Update Execution Time 219 milliseconds.
ibm/vm370-lib/cp/dmkccw.assemble_hst.txt ยท Last modified: 2023/08/06 13:36 by Site Administrator