DMKCCW History
References
-
-
Fixes Applied : 25
-
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.