User Tools

Site Tools


ibm:vm370-lib:cp:dmkiot.assemble_hst

DMKIOT History

References

Update History

CMS File Input : DMKIOT ASSEMBLE
Date : 4/17/1979 4:17:00 AM
VM Context : MAINT(394)
File Name : DMKIOT.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:46 AM
Created : 1/16/2021 7:31:46 AM

Update Order

  1. R09589DK 602 TURN OFF RDEVBUSY ON MSS CYLINDER FAULT
  2. R09957DK - CORRECT IOBLOK CONFLICT IN MSS SUPPORT
  3. R09137DK 606 MISSING LINE ON 3203 MOD 4
  4. R08652DK 606 USER HUNG AFTER RESET AND DIAG 20
  5. R09164DK 606 FRE001 DIAL BUG
  6. R09738DK 609 PTF V09242 NOT ALLOWING FOR TIO IOB ON CU
  7. R10398DK 609 CORRECTLY REFLECT IOERLEN WHEN SENSE FAILS
  8. R09274DK 611 ABENDPRG005 IOBLOK FRETTED TWICE WHILE ERP HAS CONTROL
  9. R09500DK 612 INCREASE RETRY COUNT
  10. R11437DK 612 UV00936 CORRECTLY CHECK FOR DASD WHEN CHECK FOR D/T3330
  11. R11460DK 614 UV01407 IMPROPER FAILING CCW USED IF USER CCW BEFORE PREFIX CCWS
  12. R11455DK 615 UV01415 SPLIT OF DMKSSS INTO DMKSSS AND DMKSSU
  13. R10176DK 615 UV01595 DMKIOS LOOP UNIT CHECK NOT SENSED AFTER HDV
  14. R11340DK 616 ABENDFRE013 AFTER INSTALLATION OF VM08652
  15. R12571DK 618 UV03178 REMOVE EXTRANEOUS EXTRNS
  16. R12629DK 619 UV03782 LOOP TRYING TO ISSUE A SENSE TO A BUSY DEVICE
  17. R13092DK 620 UV04054 ALLOW FOR STANDALONE INCORRECT LENGTH AFTER HIO
  18. R12941DK 622 UV04884 SYNC ERROR RECOV FOR INTERVENTION REQUIRED COND.
  19. R13728DK 623 UV05070 ALLOW I/O TO COMPLETE BEFORE GOING TO ERROR PROCESS
  20. R14143DK 623 UV05163 RESET FLAGS (INCLUDING RDEVSCED)
  21. R14003DK 624 UV05350 ISSUE SENSE FOR UNSOLICITED UNIT CHECK
  22. R09325DK 625 UV02733 ALTERNATE PATH & MULT. CPU WAITS WITH VDEVCHBS.
  23. R14489DK 625 UV05653 D/T3203 SINGLE CYCLE BUG WITH NO SILI IN CCW.
  24. R14597DK 629 UV06302 PRESENT COMMAND REJECT IF WRITE TO R/O DASD

R09589DK

Date Wednesday Apr 18, 1979 04:03:00 AM
Loaded from MAINT(294)
       R09589DK: ./ I 749000 $ 749100 100                                                00001000
       R09589DK:          NI    RDEVSTAT,X'FF'-RDEVBUSY TURN OFF BUSY BIT       @VA09589 00002000
 BEGIN APPLY >>> ./ I 749000 $ 749100 100                                                00001000
   END APPLY >>> ./ I 749000 $ 749100 100                                                00001000
Update Succeeded
Update Execution Time 16 milliseconds.

R09957DK

Date Thursday Jul 12, 1979 09:52: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 8 milliseconds.

R09137DK

Date Wednesday Oct 31, 1979 10:31:00 AM
Loaded from MAINT(294)
       R09137DK: ./ R 999000 1015000 $ 999100 1000                                       00001000
       R09137DK: IOTENSE  EQU   *              HERE TO SENSE ALL UNITS          @VA09137 00002000
       R09137DK:          TM    IOBSPEC2,IOBSNSIO UC WHILE ATTEMPTING SENSE     @VA09137 00003000
       R09137DK: ./ I 1034000 $ 1034100 50                                               00004000
       R09137DK:          LM    R0,R1,IOTSNCCW GET MODEL SENSE CCW              @VA09137 00005000
       R09137DK:          ALR   R0,R4          ADJUST DATA ADDRESS              @VA09137 00006000
       R09137DK:          STM   R0,R1,IOERCCW  SAVE IN IOERBLOK                 @VA09137 00007000
       R09137DK:          OI    IOBSPEC2,IOBUC FLAG ERROR TASK                  @VA09137 00008000
       R09137DK: ./ R 1039000 $ 1039050 50                                               00009000
       R09137DK:          BNZ   NOT3203        YES, GO AROUND 3203 CODE         @VA09137 00010000
       R09137DK:          TM    RDEVSTAT,RDEVDED DEVICE DEDICATED ?             @VA09137 00011000
       R09137DK:          BNO   IOTPERP        NO,NO CHECK FOR 3203             @VA09137 00012000
       R09137DK:          CLC   RDEVTYPC(2),=AL1(CLASURO,TYP3203) 3203 PRINTER? @VA09137 00013000
       R09137DK:          BNE   IOTPERP        NO, GET SENSE CCW                @VA09137 00014000
       R09137DK:          CLC   CSW+4(2),=AL1(CE+UC,0) SPECIAL 3203 INTERRUPT?  @VA09137 00015000
       R09137DK:          BNE   IOTPERP        NO, GET SENSE CCW                @VA09137 00016000
       R09137DK:          OI    IOBSPEC3,IOBPST TELL VIO TO POST                @VA09137 00017000
       R09137DK:          LR    R3,R5          SAVE R5 IN R3 ACROSS BAL         @VA09137 00018000
       R09137DK:          BAL   R5,COPYIOB     REFLECT THIS INTERRUPT           @VA09137 00019000
       R09137DK:          LR    R5,R3          RESTORE R5                       @VA09137 00020000
       R09137DK:          NI    IOBSPEC3,255-IOBPST TURN OFF POST               @VA09137 00021000
       R09137DK:          B     SNS3203        DO TIO                           @VA09137 00022000
       R09137DK: NOT3203  EQU   *                                               @VA09137 00023000
       R09137DK: ./ D 1042000 1045000 $                                                  00024000
       R09137DK: ./ I 1063000 $ 1063100 50                                               00025000
       R09137DK:          SPACE                                                          00026000
       R09137DK: SNS3203  EQU   *              3203 TIO CODE FOR 0A STATUS      @VA09137 00027000
       R09137DK:          LH    R1,IOBRADD     GET REAL DEVICE ADDRESS          @VA09137 00028000
       R09137DK:          XC    CSW(8),CSW     CLEAR CSW                        @VA09137 00029000
       R09137DK:          TIO   0(R1)          IS IT BUSY ?                     @VA09137 00030000
       R09137DK:          BC    8+1,IOTETCAW   GO AHEAD WITH SENSE              @VA09137 00031000
       R09137DK:          BCR   2,R5           WAIT FOR DEVICE END              @VA09137 00032000
       R09137DK:          TM    CSW+4,DE       DEVICE END ?                     @VA09137 00033000
       R09137DK:          BZR   R5             NO, WAIT FOR IT                  @VA09137 00034000
       R09137DK:          OI    IOBCSW+4,DE    SET DE FOR REFLECTION            @VA09137 00035000
       R09137DK:          B     IOTETCAW       GO DO SENSE                      @VA09137 00036000
 BEGIN APPLY >>> ./ R 999000 1015000 $ 999100 1000                                       00001000
   END APPLY >>> ./ R 999000 1015000 $ 999100 1000                                       00001000
 BEGIN APPLY >>> ./ I 1034000 $ 1034100 50                                               00004000
   END APPLY >>> ./ I 1034000 $ 1034100 50                                               00004000
 BEGIN APPLY >>> ./ R 1039000 $ 1039050 50                                               00009000
   END APPLY >>> ./ R 1039000 $ 1039050 50                                               00009000
 BEGIN APPLY >>> ./ D 1042000 1045000 $                                                  00024000
   END APPLY >>> ./ D 1042000 1045000 $                                                  00024000
 BEGIN APPLY >>> ./ I 1063000 $ 1063100 50                                               00025000
   END APPLY >>> ./ I 1063000 $ 1063100 50                                               00025000
Update Succeeded
Update Execution Time 16 milliseconds.

R08652DK

Date Wednesday Oct 31, 1979 08:29:00 AM
Loaded from MAINT(294)
       R08652DK: ./ R 295000 302000 $ 294600 500                                         00001000
       R08652DK:          TM    RDEVSTA2,RDEVRACT DEVICE RESET ?                @VA08652 00002000
       R08652DK:          BZ    IOTNODEV       NO                               @VA08652 00003000
       R08652DK:          L     R10,RDEVAIOB   LOAD ACTIVE IOB                  @VA08652 00004000
       R08652DK:          LTR   R10,R10        ACTIVE IOB ?                     @VA08652 00005000
       R08652DK:          BZ    RSRESET        NO, RESTART RESET                @VA08652 00006000
       R08652DK:          L     R1,IOBIOER     MUST GET RID OF BLOCKS           @VA08652 00007000
       R08652DK:          LTR   R1,R1          IOERBLOK EXIST ?                 @VA08652 00008000
       R08652DK:          BZ    NOIOER         NO                               @VA08652 00009000
       R08652DK:          LA    R0,IOERSIZE                                     @VA08652 00010000
       R08652DK:          CALL  DMKFRET                                         @VA08652 00011000
       R08652DK: NOIOER   EQU   *                                               @VA08652 00012000
       R08652DK:          LR    R1,R10         IOBLOK IN R1                     @VA08652 00013000
       R08652DK:          LA    R0,IOBSIZE                                      @VA08652 00014000
       R08652DK:          CALL  DMKFRET                                         @VA08652 00015000
       R08652DK: RSRESET  EQU   *                                               @VA08652 00016000
 BEGIN APPLY >>> ./ R 295000 302000 $ 294600 500                                         00001000
   END APPLY >>> ./ R 295000 302000 $ 294600 500                                         00001000
Update Succeeded
Update Execution Time 16 milliseconds.

R09164DK

Date Monday Nov 12, 1979 11:12:00 AM
Loaded from MAINT(294)
       R09164DK: ./ I 492000 $ 492150 150
       R09164DK:          TM    RDEVSTA3,RDEVDIIP DIAL IN PROGRESS ?            @VA09164 00002000
       R09164DK:          BNO   NODIAL         NO                               @VA09164 00003000
       R09164DK:          TM    CSW+4,ATTN     UNSOLICITED ATTENTION ?          @VA09164 00004000
       R09164DK:          BO    IOTGDISP       YES, IGNORE                      @VA09164 00005000
       R09164DK: NODIAL   EQU   *                                               @VA09164 00006000
 BEGIN APPLY >>> ./ I 492000 $ 492150 150
   END APPLY >>> ./ I 492000 $ 492150 150
Update Succeeded
Update Execution Time 8 milliseconds.

R09738DK

Date Saturday Feb 09, 1980 07:26:00 AM
Loaded from MAINT(294)
       R09738DK: ./ R 505000 $ 504300 300                                                00001000
       R09738DK:          BNZ   ACTIOB         YES, SEE IF TIO                  @VA09738 00002000
       R09738DK:          TM    CSW+4,CUE      CONTROL UNIT END ?               @VA09738 00003000
       R09738DK:          BO    IOTRSTCU       START CONTROL UNIT               @VA09738 00004000
       R09738DK:          B     OFFLINE        NO, FORGET IT                    @VA09738 00005000
       R09738DK: ACTIOB   EQU   *                                               @VA09738 00006000
 BEGIN APPLY >>> ./ R 505000 $ 504300 300                                                00001000
   END APPLY >>> ./ R 505000 $ 504300 300                                                00001000
Update Succeeded
Update Execution Time 16 milliseconds.

R10398DK

Date Saturday Feb 09, 1980 12:27:00 PM
Loaded from MAINT(294)
       R10398DK: ./ R 1016000 $ 1016010 10                                               00001000
       R10398DK:          BO    IOTENBAD       TROUBLE -INTERRUPT TIME - SENSE  @VA10398 00002000
       R10398DK: ./ I 1104000 $ 1104010 10                                               00003000
       R10398DK:          MVC   IOERLEN,ZEROES SENSE NOT AVAILABLE              @VA10398 00004000
       R10398DK: IOTENBAD DS    0H                                              @VA10398 00005000
 BEGIN APPLY >>> ./ R 1016000 $ 1016010 10                                               00001000
   END APPLY >>> ./ R 1016000 $ 1016010 10                                               00001000
 BEGIN APPLY >>> ./ I 1104000 $ 1104010 10                                               00003000
   END APPLY >>> ./ I 1104000 $ 1104010 10                                               00003000
Update Succeeded
Update Execution Time 16 milliseconds.

R09274DK

Date Saturday Mar 29, 1980 12:13:00 PM
Loaded from MAINT(294)
       R09274DK: ./   R  434000  442000 $ 434500 500                                     00001000
       R09274DK:          TM    IOBFLAG,IOBERP ERP IN CONTROL ?                 @VA09274 00002000
       R09274DK:          BO    CKSENS         YES, CHECK NEXT                  @VA09274 00003000
       R09274DK:          TM    IOBSPEC,IOBUNSL IF UNSOL-INT ?                  @VA09274 00004000
       R09274DK:          BZ    IOTCKIOB       NO, -- IOB IN CONTROL IOS --     @VA09274 00005000
       R09274DK: CKSENS   EQU   *                                               @VA09274 00006000
       R09274DK:          TM    IOBSPEC2,IOBSNSIO DOING A SENSE ?               @VA09274 00007000
       R09274DK:          BO    IOTCKIOB       YES, PROCESS INT                 @VA09274 00008000
       R09274DK:          TM    RDEVSTAT,RDEVBUSY IS DEV BUSY ?                 @VA09274 00009000
       R09274DK:          BO    IOTCKIOB       YES, CHECK IOB                   @VA09274 00010000
       R09274DK:          TM    IOBFLAG,IOBERP ERP IN CONTROL ?                 @VA09274 00011000
       R09274DK:          BO    IOTGDISP       YES, IGNORE THIS INT             @VA09274 00012000
       R09274DK:          B     IOTCKIOB       GO TO CHECK IOB STATUS           @VA09274 00013000
 BEGIN APPLY >>> ./   R  434000  442000 $ 434500 500                                     00001000
   END APPLY >>> ./   R  434000  442000 $ 434500 500                                     00001000
Update Succeeded
Update Execution Time 8 milliseconds.

R09500DK

Date Monday May 05, 1980 04:11:00 AM
Loaded from MAINT(294)
       R09500DK: ./ R 411000 $ 411100                                                    00001000
       R09500DK:          CLI   RDEVTYPC,CLASGRAF GRAF DEVICE?                  @VA09500 00002000
       R09500DK: ./ I 412000 $ 412100 10                                                 00003000
       R09500DK:          TM    RDEVTYPE,TYP3277+TYP3284 3277 OR 3284?          @VA09500 00004000
       R09500DK:          BZ    NO3270         NO - BRANCH                      @VA09500 00005000
       R09500DK: ./ R 1073000 $ 1073100                                                  00006000
       R09500DK:          CLI   RDEVTYPC,CLASGRAF GRAF DEVICE?                  @VA09500 00007000
       R09500DK: ./ I 1074000 $ 1074100 10                                               00008000
       R09500DK:          TM    RDEVTYPE,TYP3277+TYP3284 3277 OR 3284?          @VA09500 00009000
       R09500DK:          BZ    IOTNSIO1       NO - BRANCH                      @VA09500 00010000
       R09500DK: ./ I 1076000 $ 1076100                                                  00011000
       R09500DK: RETYCNT  DC    F'40000'       RETRY COUNT                      @VA09500 00012000
       R09500DK: ./ R 1078000 $ 1078100                                                  00013000
       R09500DK:          L     R15,RETYCNT    LOAD RETRY COUNT                 @VA09500 00014000
       R09500DK: ./ R 1085000 1086000 $ 1085100 100                                      00015000
       R09500DK:          CLI   RDEVTYPC,CLASGRAF GRAF DEVICE                   @VA09500 00016000
       R09500DK:          BNE   NOTGRAF1       NO-BRANCH                        @VA09500 00017000
       R09500DK:          TM    RDEVTYPE,TYP3277+TYP3284                        @VA09500 00018000
       R09500DK:          BM    IOTINBAD       IF EITHER LIMITED RETRY          @VA09500 00019000
       R09500DK: NOTGRAF1 DS    0H                                              @VA09500 00020000
       R09500DK: ./ R 1091000 1092000 $ 1091100 100                                      00021000
       R09500DK:          CLI   RDEVTYPC,CLASGRAF GRAF DEVICE                   @VA09500 00022000
       R09500DK:          BNE   NOTGRAF2       NO-BRANCH                        @VA09500 00023000
       R09500DK:          TM    RDEVTYPE,TYP3277+TYP3284                        @VA09500 00024000
       R09500DK:          BM    ROUT3277                                        @VA09500 00025000
       R09500DK: NOTGRAF2 DS    0H                                              @VA09500 00026000
 BEGIN APPLY >>> ./ R 411000 $ 411100                                                    00001000
   END APPLY >>> ./ R 411000 $ 411100                                                    00001000
 BEGIN APPLY >>> ./ I 412000 $ 412100 10                                                 00003000
   END APPLY >>> ./ I 412000 $ 412100 10                                                 00003000
 BEGIN APPLY >>> ./ R 1073000 $ 1073100                                                  00006000
   END APPLY >>> ./ R 1073000 $ 1073100                                                  00006000
 BEGIN APPLY >>> ./ I 1074000 $ 1074100 10                                               00008000
   END APPLY >>> ./ I 1074000 $ 1074100 10                                               00008000
 BEGIN APPLY >>> ./ I 1076000 $ 1076100                                                  00011000
   END APPLY >>> ./ I 1076000 $ 1076100                                                  00011000
 BEGIN APPLY >>> ./ R 1078000 $ 1078100                                                  00013000
   END APPLY >>> ./ R 1078000 $ 1078100                                                  00013000
 BEGIN APPLY >>> ./ R 1085000 1086000 $ 1085100 100                                      00015000
   END APPLY >>> ./ R 1085000 1086000 $ 1085100 100                                      00015000
 BEGIN APPLY >>> ./ R 1091000 1092000 $ 1091100 100                                      00021000
   END APPLY >>> ./ R 1091000 1092000 $ 1091100 100                                      00021000
Update Succeeded
Update Execution Time 23 milliseconds.

R11437DK

Date Monday May 05, 1980 04:21:00 AM
Loaded from MAINT(294)
       R11437DK: ./ R 574000 $ 574010                                                    00001000
       R11437DK:          CLC   RDEVTYPC(2),=AL1(CLASDASD,TYP3330) IS IT A 3330 @VA11437 00002000
       R11437DK: ./ R 734000 $ 734010                                                    00003000
       R11437DK:          CLC   RDEVTYPC(2),=AL1(CLASDASD,TYP3330) IS IT A 3330 @VA11437 00004000
 BEGIN APPLY >>> ./ R 574000 $ 574010                                                    00001000
   END APPLY >>> ./ R 574000 $ 574010                                                    00001000
 BEGIN APPLY >>> ./ R 734000 $ 734010                                                    00003000
   END APPLY >>> ./ R 734000 $ 734010                                                    00003000
Update Succeeded
Update Execution Time 16 milliseconds.

R11460DK

Date Monday Jun 30, 1980 05:30:00 AM
Loaded from MAINT(294)
       R11460DK: ./ R 00617000 00618000 $ 00617100 100                                   00001000
       R11460DK:          L     R15,IOERCSW    ADDRESS OF FAILING CSW +8        @VA11460 00002000
       R11460DK:          CR    R15,R14        SEE IF UC IN THE PREFIX          @VA11460 00003000
       R11460DK:          BL    IOTCHKUC       NO, MUST BE USER CCW             @VA11460 00004000
       R11460DK:          LA    R14,PREL(R14)  FIRST CCW PAST THE PREFIX        @VA11460 00005000
 BEGIN APPLY >>> ./ R 00617000 00618000 $ 00617100 100                                   00001000
   END APPLY >>> ./ R 00617000 00618000 $ 00617100 100                                   00001000
Update Succeeded
Update Execution Time 8 milliseconds.

R11455DK

Date Friday Jul 25, 1980 06:04:00 AM
Loaded from MAINT(294)
       R11455DK: ./ R 177000 $ 177010                                                    00001000
       R11455DK:          EXTRN DMKSSUI1,DMKSSUI2                               @VA11455 00002000
       R11455DK: ./ R 1150000 1151000 $ 1150010 10                                       00003000
       R11455DK: SSSI1ADD DC    V(DMKSSUI1)                                     @VA11455 00004000
       R11455DK: SSSI2ADD DC    V(DMKSSUI2)                                     @VA11455 00005000
 BEGIN APPLY >>> ./ R 177000 $ 177010                                                    00001000
   END APPLY >>> ./ R 177000 $ 177010                                                    00001000
 BEGIN APPLY >>> ./ R 1150000 1151000 $ 1150010 10                                       00003000
   END APPLY >>> ./ R 1150000 1151000 $ 1150010 10                                       00003000
Update Succeeded
Update Execution Time 16 milliseconds.

R10176DK

Date Friday Jul 25, 1980 06:20:00 AM
Loaded from MAINT(294)
       R10176DK: ./  I  304000 $ 304020 20       RELEASE 6 FIX                           00001000
       R10176DK:          TM    RDEVSTAT,RDEVSCED I/O Q'D FROM C.U. OR CHAN?    @VA10176 00002000
       R10176DK:          BNO   NONEQUED       NO, FORGET THE SEARCH            @VA10176 00003000
       R10176DK:          L     R10,RCUFIOB    CHECK IF IOB OFF CTLUNIT         @VA10176 00004000
       R10176DK: CUCKLOOP EQU   *                                               @VA10176 00005000
       R10176DK:          CR    R7,R10         IS THIS THE LAST ONE?            @VA10176 00006000
       R10176DK:          BE    CHKCHAN        YES, CHECK IF IOB OFF CHANNEL    @VA10176 00007000
       R10176DK:          CLC   IOBRADD(2),INTTIO IS THIS FOR US?               @VA10176 00008000
       R10176DK:          BE    CUCKOUT        YES, GO DEQUEUE IT               @VA10176 00009000
       R10176DK:          L     R10,IOBFPNT-IOBLOK(R10) NO, CHECK NEXT IOBLOK   @VA10176 00010000
       R10176DK:          B     CUCKLOOP       ...                              @VA10176 00011000
       R10176DK: CUCKOUT  EQU   *                                               @VA10176 00012000
       R10176DK:          LH    R1,RCUQCNT     DECREASE QUEUED COUNT            @VA10176 00013000
       R10176DK:          BCTR  R1,0           ...                              @VA10176 00014000
       R10176DK:          STH   R1,RCUQCNT     ...                              @VA10176 00015000
       R10176DK:          B     FNDIOB         CONTINUE                         @VA10176 00016000
       R10176DK: CHKCHAN  EQU   *                                               @VA10176 00017000
       R10176DK:          L     R10,RCHFIOB    FIRST IOB ON CHANNEL             @VA10176 00018000
       R10176DK: CHKCHAN1 EQU   *                                               @VA10176 00019000
       R10176DK:          CR    R6,R10         IS THIS THE END OF CHAIN?        @VA10176 00020000
       R10176DK:          BE    NONEQUED       YES, NORMAL PROCESSING           @VA10176 00021000
       R10176DK:          CLC   IOBRADD(2),INTTIO IS THIS ONE FOR US?           @VA10176 00022000
       R10176DK:          BE    CHCLOOP1       YES, GO DEQUEQE IT               @VA10176 00023000
       R10176DK:          L     R10,IOBFPNT-IOBLOK(R10) NO, CHECK NEXT ONE      @VA10176 00024000
       R10176DK:          B     CHKCHAN1       CONTINUE                         @VA10176 00025000
       R10176DK: CHCLOOP1 EQU   *                                               @VA10176 00026000
       R10176DK:          LH    R1,RCHQCNT     DECREASE QUEUED COUNT            @VA10176 00027000
       R10176DK:          BCTR  R1,0           ...                              @VA10176 00028000
       R10176DK:          STH   R1,RCHQCNT     ...                              @VA10176 00029000
       R10176DK: FNDIOB   EQU   *                                               @VA10176 00030000
       R10176DK:          LM    R4,R5,IOBFPNT-IOBLOK(R10) DEQUEUE IOBLOK        @VA10176 00031000
       R10176DK:          ST    R4,IOBFPNT-IOBLOK(R5) ...                       @VA10176 00032000
       R10176DK:          ST    R5,IOBBPNT-IOBLOK(R4) ...                       @VA10176 00033000
       R10176DK:          NI    RDEVSTAT,X'FF'-RDEVBUSY+RDEVSCED RESET FLAGS    @VA10176 00034000
       R10176DK:          B     IOTTART                                         @VA10176 00035000
       R10176DK: NONEQUED EQU   *                                               @VA10176 00036000
 BEGIN APPLY >>> ./  I  304000 $ 304020 20       RELEASE 6 FIX                           00001000
   END APPLY >>> ./  I  304000 $ 304020 20       RELEASE 6 FIX                           00001000
Update Succeeded
Update Execution Time 16 milliseconds.

R11340DK

Date Friday Sep 26, 1980 09:04:00 AM
Loaded from MAINT(294)
       R11340DK: ./ R 294600 301600 $ 295000                                             00001000
       R11340DK:          TM    RDEVTYPC,CLASTAPE TAPE DEVICE??                 @VA11340 00002000
       R11340DK:          BZ    NOTTAPES       NO SKIP                          @VA11340 00003000
       R11340DK:          L     R4,RDEVAIOB    IS IT UNSOLICITED??              @VA11340 00004000
       R11340DK:          LTR   R4,R4          INTERRUPT                        @VA11340 00005000
       R11340DK:          BZ    IOTNODEV       YES, INVESTIGATE                 @VA11340 00006000
       R11340DK: NOTTAPES EQU   *                                               @VA11340 00007000
       R11340DK:          TM    RDEVSTA2,RDEVRACT IS THIS DEVICE BEING RESET?   @VA11340 00008000
       R11340DK:          BZ    IOTNODEV       NOPE, BR.                        @VA11340 00009000
 BEGIN APPLY >>> ./ R 294600 301600 $ 295000                                             00001000
   END APPLY >>> ./ R 294600 301600 $ 295000                                             00001000
Update Succeeded
Update Execution Time 16 milliseconds.

R12571DK

Date Friday Jan 09, 1981 12:04:00 PM
Loaded from MAINT(294)
       R12571DK: ./ D 142000 145000 $
       R12571DK: ./ D 171000 $
 BEGIN APPLY >>> ./ D 142000 145000 $
   END APPLY >>> ./ D 142000 145000 $
 BEGIN APPLY >>> ./ D 171000 $
   END APPLY >>> ./ D 171000 $
Update Succeeded
Update Execution Time 16 milliseconds.

R12629DK

Date Thursday Feb 12, 1981 02:12:00 AM
Loaded from MAINT(294)
       R12629DK: ./ R 1093000 $ 1093100 100                                              00001000
       R12629DK:          CLI   CSW+4,BUSY     IS IT JUST A DEVICE BUSY         @VA12629 00002000
       R12629DK:          BE    IOTINBAD       YES USE LIMITED RETRY            @VA12629 00003000
       R12629DK:          TM    CSW+4,SM+CUE+BUSY CUE OR CU PENDING             @VA12629 00004000
 BEGIN APPLY >>> ./ R 1093000 $ 1093100 100                                              00001000
   END APPLY >>> ./ R 1093000 $ 1093100 100                                              00001000
Update Succeeded
Update Execution Time 8 milliseconds.

R13092DK

Date Tuesday Apr 07, 1981 03:30:00 AM
Loaded from MAINT(294)
       R13092DK: ./ R 452000 $ 452100 100                                                00001000
       R13092DK:          TM    CSW+5,PCI+IL                                    @VA13092 00002000
 BEGIN APPLY >>> ./ R 452000 $ 452100 100                                                00001000
   END APPLY >>> ./ R 452000 $ 452100 100                                                00001000
Update Succeeded
Update Execution Time 16 milliseconds.

R12941DK

Date Tuesday Jul 07, 1981 01:33:00 PM
Loaded from MAINT(294)
       R12941DK: ./ R 711000 712000 $ 711000 100
       R12941DK:          BZ    IOTER          ERROR RECOVERY NOT IN PROCESS    @VA12941
       R12941DK:          TM    RDEVSTAT,RDEVNRDY INTERVENTION REQUIRED PENDING @VA12941
       R12941DK:          BZ    IOTRSTCU       NO, IGNORE THIS INTERRUPT        @VA12941
       R12941DK:          TM    CSW+4,DE+ATTN  NOT-READY TO READY SEQUENCE      @VA12941
       R12941DK:          BZ    IOTRSTCU       NO, IGNORE THIS INTERRUPT        @VA12941
       R12941DK: IOTER    OI    IOBSPEC2,IOBRETRY CONTINUE WITH ERROR RECOVERY  @VA12941
 BEGIN APPLY >>> ./ R 711000 712000 $ 711000 100
   END APPLY >>> ./ R 711000 712000 $ 711000 100
Update Succeeded
Update Execution Time 16 milliseconds.

R13728DK

Date Friday Aug 07, 1981 07:30:00 AM
Loaded from MAINT(294)
       R13728DK: ./ R 667000 $ 667100 100                                                00001000
       R13728DK:          BZ    IOTCKBSY       NO, SEE IF DEVICE IS STILL BUSY  @VA13728 00002000
       R13728DK:          CLI   IOBCSW+4,CE    CE ALONE ON CH PGM RESTART ?     @VA13728 00003000
       R13728DK:          BE    IOTRSTCU       WAIT FOR I/O BEFORE RETURN TO    @VA13728 00004000
       R13728DK:          B     IOTCPERR       RETURN CONTROL TO ERP NOW        @VA13728 00005000
 BEGIN APPLY >>> ./ R 667000 $ 667100 100                                                00001000
   END APPLY >>> ./ R 667000 $ 667100 100                                                00001000
Update Succeeded
Update Execution Time 16 milliseconds.

R14143DK

Date Friday Aug 14, 1981 08:12:00 AM
Loaded from MAINT(294)
       R14143DK: ./ R 304660 $ 304661                                                    00001000
       R14143DK:          NI    RDEVSTAT,X'FF'-(RDEVBUSY+RDEVSCED) RESET FLAGS  @VA14143 00002000
 BEGIN APPLY >>> ./ R 304660 $ 304661                                                    00001000
   END APPLY >>> ./ R 304660 $ 304661                                                    00001000
Update Succeeded
Update Execution Time 16 milliseconds.

R14003DK

Date Friday Sep 11, 1981 02:20:00 PM
Loaded from MAINT(294)
       R14003DK: ./ R 439500 440000 $ 439600 100                                         00001000
       R14003DK:          BZ    IOTCKIOB      NO;  GO CHECK IOB STATUS          @VA14003 00002000
       R14003DK:          TM    CSW+4,UC      YES; IS THERE ANOTHER UNIT CHECK? @VA14003 00004000
       R14003DK:          BO    CNTNGNCY      YES; GO CLEAR CONTINGENCY         @VA14003 00005000
       R14003DK:          B     IOTGDISP      NO;  IGNORE THIS INTERRUPT        @VA14003 00007000
 BEGIN APPLY >>> ./ R 439500 440000 $ 439600 100                                         00001000
   END APPLY >>> ./ R 439500 440000 $ 439600 100                                         00001000
Update Succeeded
Update Execution Time 8 milliseconds.

R09325DK

Date Wednesday Oct 21, 1981 11:48:00 AM
Loaded from MAINT(294)
       R09325DK: ./ I 410000 $ 410100 100                                                00001000
       R09325DK:          CLC   INTTIO(2),IOBRADD                               @VA09325 00002000
       R09325DK:          BNE   IOTGDISP                                        @VA09325 00003000
 BEGIN APPLY >>> ./ I 410000 $ 410100 100                                                00001000
   END APPLY >>> ./ I 410000 $ 410100 100                                                00001000
Update Succeeded
Update Execution Time 16 milliseconds.

R14489DK

Date Tuesday Oct 27, 1981 01:53:00 PM
Loaded from MAINT(294)
       R14489DK: ./ R 1039350 $ 1039360 5                                                00001000
       R14489DK:          BE    SPECINT        SPECIAL 3203 INTERRUPT           @VA14489 00002000
       R14489DK:          CLC   CSW+4(2),=AL1(CE+UC+IL,0) SPECIAL 3203          @VA14489 00003000
       R14489DK: *                             INTERRUPT?                                00004000
       R14489DK:          BNE   IOTPERP        NO, GET SENSE CCW                @VA14489 00005000
       R14489DK: SPECINT  EQU   *                                               @VA14489 00006000
 BEGIN APPLY >>> ./ R 1039350 $ 1039360 5                                                00001000
   END APPLY >>> ./ R 1039350 $ 1039360 5                                                00001000
Update Succeeded
Update Execution Time 16 milliseconds.

R14597DK

Date Thursday Apr 01, 1982 02:48:00 PM
Loaded from MAINT(294)
       R14597DK: ./ I 570000 $ 570100 50                                                 00001000
       R14597DK:          CLI   RDEVTYPC,CLASDASD IS THIS A DASD DEVICE         @VA14597 00002000
       R14597DK:          BNE   NORDOCK        NO-GET OUT                       @VA14597 00003000
       R14597DK:          SR    R15,R15        CLEAR OUT REG 15                 @VA14597 00004000
       R14597DK:          ICM   R15,B'0111',IOERCSW+1 FAILING CSW+8             @VA14597 00005000
       R14597DK:          BZ    NORDOCK        NO IOERCSW-THEN GET OUT          @VA14597 00006000
       R14597DK:          S     R15,F8         SUB 8 FAILING CCW                @VA14597 00007000
       R14597DK:          CLI   0(R15),X'FE'   WRITE TO READ ONLY DISK          @VA14597 00008000
       R14597DK:          BNE   NORDOCK        NO-GET OUT                       @VA14597 00009000
       R14597DK:          CLI   IOERDATA,CMDREJ IS IT A COMMAND REJECT          @VA14597 00010000
       R14597DK:          BNE   NORDOCK        NO-GET OUT                       @VA14597 00011000
       R14597DK:          MVI   IOERDATA+1,X'02' TURN ON WRITE INHIBIT SW.      @VA14597 00012000
       R14597DK: NORDOCK  EQU   *                                               @VA14597 00013000
 BEGIN APPLY >>> ./ I 570000 $ 570100 50                                                 00001000
   END APPLY >>> ./ I 570000 $ 570100 50                                                 00001000
Update Succeeded
Update Execution Time 8 milliseconds.
ibm/vm370-lib/cp/dmkiot.assemble_hst.txt ยท Last modified: 2023/08/06 13:37 by Site Administrator