User Tools

Site Tools


ibm:vm370-lib:cp:dmkccw.assemble_hst

DMKCCW History

References

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

  1. R08860DK 602 INTERMITTENT CHANNEL PROG CHECK ON POLLING OR LOOP TIC NOT ALTERED
  2. R08629DK 603 2250/3250
  3. R09957DK 604 CORRECT IOBLOK CONFLICT IN MSS SUPPORT
  4. R10078DK 604 4331 ICA604SDLC SUPPORT
  5. R08844DK 606 DMKCCW INCORRECTLY PROCESSES MORE THAN 2K DATA
  6. R10216DK 607 ENABLED WAIT WITH NO USERS BEING DISPATCHED
  7. R09758DK 609 INCORRECT FLAG DEFINITION
  8. R10398DK 609 ZERO OUT SENSE LENGTH WHEN SENSE FAILS CC3 OR BAD CHANNEL
  9. R09607DK 609 CHECK FOR IOBUNREL BEFORE PROCESS CCWS WITH RELEASE
  10. R10860DK 610 DIAG28 NOT MODIFYING RIGHT CCW
  11. R10883DK 616 UV01850 LEAVE SEEK ARGUMENT IN RCWTASK
  12. R11879DK 616 UV02035 MSS PREFIX NOT NEEDED FOR SENSE
  13. R11890DK 616 UV02068 DON'T RELOCATE SEEK ARGUMENT IN SECOND RCWTASK
  14. R11732DK 616 UV01873 STATUS MODIFIER TYPE SEEK ON MSS FOR THE PREFIX
  15. R11932DK 618 UV03005 DIAL CMD DMKCCW SENDS CIRCLE C TO TTY IN ERROR
  16. R12408DK 619 UV03813 GET ADDITIONAL ADDRESSABILITY FOR DMKCCW
  17. R12785DK 620 UV03967 DON'T UNLOCK SHARED PAGE THAT ISN'T LOCKED
  18. R13113DK 620 UV04092 FIX MVS ABENDS USING MSS , PE VM11732
  19. R12810DK 620 UV04179 D/T3340 ALTERNATE TRACK VERIFICATION INCORRECT
  20. R13204DK 621 UV04300 LEAVE MSS PREFIX PRIOR TO SENSE
  21. R12941DK 622 UV04884 SYNC ERROR RECOV FOR INTERVENTION REQUIRED COND.
  22. R13400DK 623 UV04770 SENSE DOESN'T REQUIRE SEEK WHEN ONLY ONE CCW
  23. R08631DK 623 UV02423 SENSE I/O LOOP USING VIRTUAL RESERVE RELEASE
  24. R14597DK 629 UV06302 PRESENT COMMAND REJECT IF WRITE TO R/O DASD
  25. 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