Table of Contents

DMKVIO History

References

Update History

CMS File Input : DMKVIO ASSEMBLE
Date : 12/7/1978 5:19:00 PM
VM Context : MAINT(394)
File Name : DMKVIO.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:48 AM
Created : 1/16/2021 7:31:48 AM

Update Order

  1. R08823DK 601 INTERACTIVE USERS NOT GOING TO Q1
  2. R08669DK 601 DEVICE END LOST IF PRESENTED WITH ATTENTION
  3. R09068DK 602 CH CHECK REFLECTION WRONG ECSW
  4. R08860DK 602 DMKVIO ON PCI INTERRUPT FOR AUTOPOLL DOES NOT CHANGE CCW
  5. R08629DK 603 2250/3250
  6. R09957DK - CORRECT IOBLOK CONFLICT IN MSS SUPPORT
  7. R09137DK 606 MISSING LINE ON 3203 MOD 4
  8. R10312DK 607 CSW STATUS OF ZEROES PASSED TO VIRTUAL MACHINE IF PCI
  9. R10021DK 609 REDO TEST IN PTF V08669 FOR CORRECT TEST OF ATTN-CUE
  10. R10261DK 610 INTERACTIVE USER NOT GOING TO Q1 AFTER TIO
  11. R09216DK 614 UV00856 CHECK FOR COPY IOBLOK BEFORE REFLECT TO USER
  12. R10829DK 615 UV01669 STANDALONE IFCC NOT BEING REFLECTED TO USER.
  13. R12082DK 618 UV02723 CORRECT TERM. HANG AFTER ATTN+CUE STATUS
  14. R12941DK 622 UV04884 SYNC ERROR RECOV FOR INTERVENTION REQUIRED COND.
  15. HRC013DK V01 UNIVERSITY OF MAINE P.E.R. TRACE FACILITY

R08823DK

Date Wednesday Jan 24, 1979 12:15:00 PM
Loaded from MAINT(294)
       R08823DK: ./ D 620000 622000 $                                                    00001000
       R08823DK: ./ I 622650 $ 622700 50                                                 00002000
       R08823DK:          CL    R10,IOBLINK    FINAL INTERRUPT ??               @VA08823 00003000
       R08823DK:          BNE   VIOBFRET       NO - TAKE BRANCH                 @VA08823 00004000
       R08823DK: VIOFRET  EQU   *                                               @VA08823 00005000
 BEGIN APPLY >>> ./ D 620000 622000 $                                                    00001000
   END APPLY >>> ./ D 620000 622000 $                                                    00001000
 BEGIN APPLY >>> ./ I 622650 $ 622700 50                                                 00002000
   END APPLY >>> ./ I 622650 $ 622700 50                                                 00002000
Update Succeeded
Update Execution Time 8 milliseconds.

R08669DK

Date Wednesday Jan 24, 1979 01:10:00 AM
Loaded from MAINT(294)
       R08669DK: ./ I 434000 $ 434100 50                                                 00001000
       R08669DK:          CLI   CPUID,X'FF'    CHECK IF RUNNING SECOND LEVEL    @VA08669 00002000
       R08669DK: *                             CP ??                                     00003000
       R08669DK:          BNE   VIOBY1         NO,SKIP CAN'T HAPPEN.            @VA08669 00004000
       R08669DK:          CLI   IOBCSW+4,ATTN+CUE DO WE HAVE ATTN AND CUE??     @VA08669 00005000
       R08669DK:          BE    SAVESTAT       YES                              @VA08669 00006000
       R08669DK: VIOBY1   EQU   *                                               @VA08669 00007000
 BEGIN APPLY >>> ./ I 434000 $ 434100 50                                                 00001000
   END APPLY >>> ./ I 434000 $ 434100 50                                                 00001000
Update Succeeded
Update Execution Time 8 milliseconds.

R09068DK

Date Monday Apr 02, 1979 03:29:00 AM
Loaded from MAINT(294)
       R09068DK: ./ I 279100 $ 279110 10                                                 00001000
       R09068DK:          BAL   R2,CHKIOERB    CLEAN UP RESIDUAL IOER           @VA09068 00002000
 BEGIN APPLY >>> ./ I 279100 $ 279110 10                                                 00001000
   END APPLY >>> ./ I 279100 $ 279110 10                                                 00001000
Update Succeeded
Update Execution Time 16 milliseconds.

R08860DK

Date Monday Apr 23, 1979 04:10:00 AM
Loaded from MAINT(294)
       R08860DK: ./ R 167000 $ 167025 10                                                 00001000
       R08860DK: * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *         00002000
       R08860DK: *              R0=VIRTUAL CCW ADDRESS                                   00003000
       R08860DK: *              R2=RCWTASK END                                           00004000
       R08860DK: *              R5=RCWTASK+X'10' TO POINT TO FIRST CCW IN THIS RCWTASK   00005000
       R08860DK: *              R14=IOBCAW/RCWTASK                                       00006000
       R08860DK: *              R15=IOBCSW                                               00007000
       R08860DK: *              THIS ROUTINE  WILL FIND OUT WHICH RCWTASK HAS THE        00008000
       R08860DK: *              INTERUPT IN IT. IT WILL THEN LOOK IN THE WRAP LIST       00009000
       R08860DK: *              TO FIND OUT WHICH CCW CAUSED THE INTERUPT BY CHECKING    00010000
       R08860DK: *              FOR THE DISPLACEMENT AND THE REAL VIRTUAL CCW ADDRESS.   00011000
       R08860DK: * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *         00012000
       R08860DK:          SPACE                                                          00013000
       R08860DK:          S     R14,F16        POINT TO BEGINNING OF FIRST      @VA08860 00014000
       R08860DK: *                             RCWTASK                                   00015000
       R08860DK:          USING RCWTASK,R14                                     @VA08860 00016000
       R08860DK:          CLC   RCWHEAD,FFS    IS THIS REALLY A RCWTASK         @VA08860 00017000
       R08860DK:          BNE   CKCC           NO, CONTINUE ON                  @VA08860 00018000
       R08860DK: REFLECT1 DS    0H                                              @VA08860 00019000
       R08860DK:          CLC   RCWRCNT,ZEROES TEST CCW COUNT                   @VA08860 00020000
       R08860DK:          BE    REFLECT2       NO, GET NEXT RCWTASK             @VA08860 00021000
       R08860DK:          LH    R2,RCWCCNT     GET RCWTASK LENGTH               @VA08860 00022000
       R08860DK:          SLL   R2,3           TIMES 8 TO GET NUMBER OF BYTES   @VA08860 00023000
       R08860DK:          LA    R2,0(R14,R2)   NOW GET END OF THE RCWTASK       @VA08860 00024000
       R08860DK: *              SO THAT WE CAN GET THE RIGHT RCWTASK FOR THIS INTERUPT   00025000
       R08860DK: *              SO WE CAN ALTER THE TIC.                                 00026000
       R08860DK:          CR    R15,R2         IS THE INTERUPT ABOVE OURS       @VA08860 00027000
       R08860DK:          BH    REFLECT2       YES,LOOK IN ANOTHER RCWTASK      @VA08860 00028000
       R08860DK:          CR    R15,R14        IS THE INTERUPT BELOW OURS       @VA08860 00029000
       R08860DK:          BL    REFLECT2       YES,LOOK IN ANOTHER RCWTASK      @VA08860 00030000
       R08860DK:          LA    R5,RCWCCW      NO,IT IS IN OUR RCWTASK,NOW POINT@VA08860 00031000
       R08860DK: *                             TO THE FIRST CCW IN THIS TASK             00032000
       R08860DK:          LR    R1,R5          WE WILL NEED THIS LATER AND USE  @VA08860 00033000
       R08860DK: *                             R1 NOW                                    00034000
       R08860DK:          SLR   R15,R1         GET DISPLACEMENT TO CURRENT CCW  @VA08860 00035000
       R08860DK:          L     R14,RCWVCAW    NOW GET THE VIRTUAL START FOR    @VA08860 00036000
       R08860DK: *                             THESE CCW'S                               00037000
       R08860DK:          LCTL  C1,C1,VMSEG    GET USER'S CONTROL REG           @VA08860
       R08860DK:          LRA   R0,0(R14)      NOW GET THE REAL USER CCW        @VA08860 00038000
       R08860DK: *                             ADDRESS IN VM                             00039000
       R08860DK:          BNZ   CKCC           NO,THE PAGE IS NOT RESIDENT FOR  @VA08860 00040000
       R08860DK: *                             SOME REASON                               00041000
       R08860DK:          AR    R0,R15         NOW GET THE DISPLACEMENT FROM    @VA08860 00042000
       R08860DK: *                             BEGINNING OF THIS STRING                  00043000
       R08860DK:          B     FINDTIC        NOW LET'S SEE IF WE HAVE WRAPLIST@VA08860 00044000
       R08860DK:          SPACE                                                          00045000
       R08860DK: REFLECT2 DS    0H                                              @VA08860 00046000
       R08860DK:          ICM   R14,B'0111',RCWPNT+1 SEE IF THERE IS ANOTHER    @VA08860 00047000
       R08860DK: *                             RCWTASK                                   00048000
       R08860DK:          BNZ   REFLECT1       YES,GO BACK TO FIND IF INTERUPT  @VA08860 00049000
       R08860DK: *                             IS IN THIS RCWTASK                        00050000
       R08860DK:          B     CKCC           SOMETHING WRONG WE SHOULD OF     @VA08860 00051000
       R08860DK: *                             FOUND THE INTERUPT......                  00052000
       R08860DK:          DROP  R14                                             @VA08860 00053000
       R08860DK: ./ R 174000 $ 174200 100                                                00054000
       R08860DK:          BNE   WRAPLP1        NO, CONTINUE FIND IT SOMEWHERE   @VA08860 00055000
       R08860DK: *                             ELSE                                      00056000
       R08860DK:          CL    R0,0(R14)      YES,IT COULD BE OURS CHECK FOR   @VA08860 00057000
       R08860DK: *                             SAME VIRT CCW ADDRESS                     00058000
       R08860DK:          BE    CKTIC          YES,GO CHECK TO SEE IF TIC IS    @VA08860 00059000
       R08860DK: *                             CHANGED                                   00060000
       R08860DK: WRAPLP1  DS    0H                                              @VA08860 00061000
       R08860DK: ./ I 176000 $ 176500 50                                                 00062000
       R08860DK:          S     R0,F8          BACKUP TO PREVIOUS CCW           @VA08860 00063000
       R08860DK: *            THE PURPOSE FOR BACKING UP THE CCW'S IS THAT THE           00064000
       R08860DK: *            PCI INTERUPT CAN OCCUR AT ANYTIME AFTER THE                00065000
       R08860DK: *           PCI BIT IS DETECTED BY THE CHANNEL. THEREFORE               00066000
       R08860DK: *             THE ACTUAL INTERUPT CAN COME IN ANYWHERE.                 00067000
       R08860DK: ./ R 181000 $ 181050 050                                                00068000
       R08860DK:          AR    R2,R5          NOW ADD THIS RCWTASK FIRST  CCW  @VA08860 00069000
       R08860DK: *                             TO DISPLACEMENT                           00070000
 BEGIN APPLY >>> ./ R 167000 $ 167025 10                                                 00001000
   END APPLY >>> ./ R 167000 $ 167025 10                                                 00001000
 BEGIN APPLY >>> ./ R 174000 $ 174200 100                                                00054000
   END APPLY >>> ./ R 174000 $ 174200 100                                                00054000
 BEGIN APPLY >>> ./ I 176000 $ 176500 50                                                 00062000
   END APPLY >>> ./ I 176000 $ 176500 50                                                 00062000
 BEGIN APPLY >>> ./ R 181000 $ 181050 050                                                00068000
   END APPLY >>> ./ R 181000 $ 181050 050                                                00068000
Update Succeeded
Update Execution Time 16 milliseconds.

R08629DK

Date Tuesday May 29, 1979 09:19:00 AM
Loaded from MAINT(294)
       R08629DK: ./ I 120100 $ 120200 100                                                00001000
       R08629DK:          EXTRN DMKSTKIO                                        @VA08629 00002000
       R08629DK: ./ R 356000 356000 $ 356000 100                                         00003000
       R08629DK:          BNE   VIOINT1        NOPE - NOT YET                   @VA08629 00004000
       R08629DK: ./ R 433000 433000 $ 432100 50                                          00005000
       R08629DK:          TM    IOBSPEC,IOBUNSL UNSOLICITED INTERRUPT?          @VA08629 00006000
       R08629DK:          BZ    ATTNPLUS       NO SPECIAL CHECKING              @VA08629 00007000
       R08629DK:          CLI   VDEVTYPC,CLASGRAF LOOKING FOR 2250/3350         @VA08629 00008000
       R08629DK:          BNE   ATTNPLUS       GRAPHICS DEVICE                  @VA08629 00009000
       R08629DK:          TM    VDEVTYPE,TYP2250 ...                            @VA08629 00010000
       R08629DK:          BZ    ATTNPLUS       NO SPECIAL CHECKING              @VA08629 00011000
       R08629DK:          TM    VDEVFLAG,VDEVUC WAITING FOR SENSE TO BE         @VA08629 00012000
       R08629DK:          BZ    ATTNPLUS       OFFLOADED? NO, HANDLE NORMALLY   @VA08629 00013000
       R08629DK: * MUST WAIT FOR SENSE TO BE OFFLOADED BEFORE HANDLING ATTENTION         00014000
       R08629DK: * I/O FOR KEYBOARD OR LIGHT PEN FUNCTIONS.                              00015000
       R08629DK:          SLR   R2,R2          CLEAR R2                         @VA08629 00016000
       R08629DK:          ICM   R2,7,VDEVIO    QUEUE OF PENDING INTERRUPTS      @VA08629 00017000
       R08629DK:          BNZ   NEXTIOB        FIND END OF CHAIN AND QUEUE I/O  @VA08629 00018000
       R08629DK:          STCM  R10,7,VDEVIO   STORE POINTER TO IOBLOK          @VA08629 00019000
       R08629DK:          B     GOTODSP        OFF TO THE DISPATCHER            @VA08629 00020000
       R08629DK:          DROP  R10                                             @VA08629 00021000
       R08629DK:          USING IOBLOK,R2      R2 IOBLOK ADDRESSABILITY         @VA08629 00022000
       R08629DK: NEXTIOB  L     R14,IOBFPNT    POINTER TO NEXT IOB ON CHAIN     @VA08629 00023000
       R08629DK:          LTR   R14,R14        LOOKING FOR END OF CHAIN         @VA08629 00024000
       R08629DK:          BZ    QUEUE          FOUND END - QUEUE THIS IOB       @VA08629 00025000
       R08629DK:          LR    R2,R14         SAVE THIS IOBLOK POINTER         @VA08629 00026000
       R08629DK:          B     NEXTIOB        CONTINUE LOOKING FOR END         @VA08629 00027000
       R08629DK: QUEUE    ST    R10,IOBFPNT    CHAIN IN CURRENT IOBLOK          @VA08629 00028000
       R08629DK: GOTODSP  SLR   R14,R14        CLEAR R14 TO ZERO POINTER        @VA08629 00029000
       R08629DK:          ST    R14,IOBFPNT-IOBLOK(R10) CLEAR FORWARD POINTER   @VA08629 00030000
       R08629DK:          GOTO  DMKDSPCH       OFF TO THE DISPATCHER            @VA08629 00031000
       R08629DK:          SPACE                                                          00032000
       R08629DK:          USING IOBLOK,R10     RE-ESTABLISH R10 ADDRESSABILITY  @VA08629 00033000
       R08629DK: ATTNPLUS TM    IOBCSW+4,X'FF'-(ATTN+UC) ANYTHING ELSE?         @VA08629 00034000
       R08629DK: ./ R 639051 641000 $ 639060 50                                          00035000
       R08629DK: VIOBFRET EQU   *                                               @VA08629 00036000
       R08629DK: VIORLSE  LR    R2,R10         SAVE IOBLOK ADDR TEMPORARILY     @VA08629 00037000
       R08629DK:          TM    IOBSPEC3,IOBSENSE SPECIAL 2250/3250 UC CASE?    @VA08629 00038000
       R08629DK:          BZ    VIONOSTK       NO, KEEP GOING                   @VA08629 00039000
       R08629DK:          NI    IOBSPEC3,X'FF'-IOBSENSE RESET 2250/3250 IND.    @VA08629 00040000
       R08629DK:          SLR   R10,R10        ...                              @VA08629 00041000
       R08629DK:          ICM   R10,7,VDEVIO   ANY PENDING I/O                  @VA08629 00042000
       R08629DK:          BZ    VIONOSTK       NO, BYPASS UNSTACK OF PEND I/O   @VA08629 00043000
       R08629DK: UNSTKNXT L     R1,IOBFPNT-IOBLOK(R10) ADDR OF NEXT ON CHAIN    @VA08629 00044000
       R08629DK:          CALL  DMKSTKIO       UNSTACK PENDING I/O              @VA08629 00045000
       R08629DK:          LTR   R1,R1          ANY MORE PENDING                 @VA08629 00046000
       R08629DK:          BZ    VIOCLR         NO, KEEP GOING                   @VA08629 00047000
       R08629DK:          LR    R10,R1         PREPARE TO UNSTACK NEXT I/O      @VA08629 00048000
       R08629DK:          B     UNSTKNXT       UNSTACK NEXT REQUEST             @VA08629 00049000
       R08629DK: VIOCLR   STCM  R1,7,VDEVIO    CLEAR VDEVBLOK PEND CHAIN        @VA08629 00050000
       R08629DK: VIONOSTK EQU   *                                               @VA08629 00051000
       R08629DK:          LR    R1,R2          NOW RELEASE IOBLOK               @VA08629 00052000
       R08629DK:          LA    R0,IOBSIZE     SIZE IN DOUBLEWORDS              @VA08629 00053000
       R08629DK:          CALL  DMKFRET        RELEASE STORAGE                  @VA08629 00054000
       R08629DK: ./ R 652000 652000 $ 651100 100                                         00055000
       R08629DK:          SLR   R3,R3          CLEAR                            @VA08629 00056000
       R08629DK:          ICM   R3,7,VDEVIO    ANY I/O PENDING?                 @VA08629 00057000
       R08629DK:          BZR   R2             NO, NOTHING TO RELEASE           @VA08629 00058000
       R08629DK:          LR    R1,R3          GET IOBLOK INTO R10 FOR STACK    @VA08629 00059000
       R08629DK: VIORUNQ  L     R3,IOBFPNT-IOBLOK(R1) GET POINTER TO NEXT       @VA08629 00060000
       R08629DK: *                             PRIOR                                     00061000
       R08629DK:          LA    R0,IOBSIZE     SIZE OF STORAGE TO RELEASE       @VA08629 00062000
       R08629DK:          CALL  DMKFRET        TO RELEASE PENDING I/O           @VA08629 00063000
       R08629DK:          LTR   R3,R3          ANYMORE ON CHAIN?                @VA08629 00064000
       R08629DK:          BZR   R2             NO, RETURN                       @VA08629 00065000
       R08629DK:          LR    R1,R3          CONTINUE TO RELEASE PEND I/O     @VA08629 00066000
       R08629DK:          B     VIORUNQ        ...                              @VA08629 00067000
 BEGIN APPLY >>> ./ I 120100 $ 120200 100                                                00001000
   END APPLY >>> ./ I 120100 $ 120200 100                                                00001000
 BEGIN APPLY >>> ./ R 356000 356000 $ 356000 100                                         00003000
   END APPLY >>> ./ R 356000 356000 $ 356000 100                                         00003000
 BEGIN APPLY >>> ./ R 433000 433000 $ 432100 50                                          00005000
   END APPLY >>> ./ R 433000 433000 $ 432100 50                                          00005000
 BEGIN APPLY >>> ./ R 639051 641000 $ 639060 50                                          00035000
   END APPLY >>> ./ R 639051 641000 $ 639060 50                                          00035000
 BEGIN APPLY >>> ./ R 652000 652000 $ 651100 100                                         00055000
   END APPLY >>> ./ R 652000 652000 $ 651100 100                                         00055000
Update Succeeded
Update Execution Time 23 milliseconds.

R09957DK

Date Thursday Jul 12, 1979 09:54: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: ./ I 535000 $ 535200 200                                                00001000
       R09137DK:          TM    IOBSPEC3,IOBPST POST THIS INTERRUPT?            @VA09137 00002000
       R09137DK:          BNO   NOPOST         NO                               @VA09137 00003000
       R09137DK:          OI    VDEVFLG2,VDEVPST TELL DSP TO POST               @VA09137 00004000
       R09137DK: NOPOST   EQU   *                                               @VA09137 00005000
 BEGIN APPLY >>> ./ I 535000 $ 535200 200                                                00001000
   END APPLY >>> ./ I 535000 $ 535200 200                                                00001000
Update Succeeded
Update Execution Time 8 milliseconds.

R10312DK

Date Thursday Dec 06, 1979 11:27:00 AM
Loaded from MAINT(294)
       R10312DK: ./ R 167365 167445 $ 167370 10                                          00001000
       R10312DK:          LR    R0,R15         SAVE DISPLACEMENT ACROSS CALL    @VA10312 00002000
       R10312DK:          L     R1,RCWVCAW     ADDRESS TO TRANSLATE             @VA10312 00003000
       R10312DK:          TRANS R2,R1,OPT=(BRING+DEFER) CHECK OUT PAGE ADDRESS  @VA10312 00004000
       R10312DK:          LR    R15,R0         RESTORE DISPLACEMENT             @VA10312
       R10312DK:          BNZ   TSTPCIL        SOMETHING WRONG HERE             @VA10312 00005000
       R10312DK:          AR    R0,R2          POINT TO VIRTUAL CCW             @VA10312 00006000
       R10312DK: ./ R 167525 $ 167526                                                    00007000
       R10312DK:          B     TSTPCIL        SOMETHING WRONG WE SHOULD HAVE   @VA10312 00008000
       R10312DK: ./ R 170000 $ 170100                                                    00009000
       R10312DK:          BZ    TSTPCIL        BRANCH IF NONE                   @VA10312 00010000
       R10312DK: ./ R 172000 $ 172100                                                    00011000
       R10312DK:          BZ    TSTPCIL        BRANCH IF NONE OR END OF LIST    @VA10312 00012000
       R10312DK: ./ R 179000 $ 179100                                                    00012000
       R10312DK:          B     TSTPCIL        NOT THIS TIME                    @VA10312 00012000
 BEGIN APPLY >>> ./ R 167365 167445 $ 167370 10                                          00001000
   END APPLY >>> ./ R 167365 167445 $ 167370 10                                          00001000
 BEGIN APPLY >>> ./ R 167525 $ 167526                                                    00007000
   END APPLY >>> ./ R 167525 $ 167526                                                    00007000
 BEGIN APPLY >>> ./ R 170000 $ 170100                                                    00009000
   END APPLY >>> ./ R 170000 $ 170100                                                    00009000
 BEGIN APPLY >>> ./ R 172000 $ 172100                                                    00011000
   END APPLY >>> ./ R 172000 $ 172100                                                    00011000
 BEGIN APPLY >>> ./ R 179000 $ 179100                                                    00012000
   END APPLY >>> ./ R 179000 $ 179100                                                    00012000
Update Succeeded
Update Execution Time 23 milliseconds.

R10021DK

Date Saturday Feb 09, 1980 10:09:00 AM
Loaded from MAINT(294)
       R10021DK: ./ R 434100 $ 434110                                                    00001000
       R10021DK:          CLI   VDEVTYPC,CLASGRAF IS THIS A GRAPHICS TYPE       @VA10021 00002000
 BEGIN APPLY >>> ./ R 434100 $ 434110                                                    00001000
   END APPLY >>> ./ R 434100 $ 434110                                                    00001000
Update Succeeded
Update Execution Time 16 milliseconds.

R10261DK

Date Thursday Mar 06, 1980 01:10:00 AM
Loaded from MAINT(294)
       R10261DK: ./ R 581000 $ 581010                                                    00001000
       R10261DK:          B     CKTERM2                                         @VA10261 00002000
       R10261DK: ./ I 616000 $ 616200 10                                                 00003000
       R10261DK:          TM    VDEVTYPC,CLASTERM+CLASGRAF TERMINAL DEVICE ?    @VA10261 00004000
       R10261DK:          BZ    CKTERM1        NO                               @VA10261 00005000
       R10261DK:          OI    VMQSTAT,VMPRIDSP SET Q1 SWITCH                  @VA10261 00006000
       R10261DK: CKTERM1  DS    0H                                              @VA10261 00007000
       R10261DK:          CL    R10,IOBLINK    FINAL INTERRUPT ?                @VA10261 00008000
       R10261DK:          BNE   VIOBFRET       NO.  TAKE BRANCH                 @VA10261 00009000
       R10261DK:          B     QTWO           GO CHECK FOR INTERRUPT           @VA10261 00010000
       R10261DK: CKTERM2  DS    0H                                              @VA10261 00011000
       R10261DK: ./ D 622700 622800                                                      00012000
 BEGIN APPLY >>> ./ R 581000 $ 581010                                                    00001000
   END APPLY >>> ./ R 581000 $ 581010                                                    00001000
 BEGIN APPLY >>> ./ I 616000 $ 616200 10                                                 00003000
   END APPLY >>> ./ I 616000 $ 616200 10                                                 00003000
 BEGIN APPLY >>> ./ D 622700 622800                                                      00012000
   END APPLY >>> ./ D 622700 622800                                                      00012000
Update Succeeded
Update Execution Time 16 milliseconds.

R09216DK

Date Tuesday Jul 08, 1980 06:30:00 AM
Loaded from MAINT(294)
       R09216DK: ./   I  501000  $  501100  50                                           00001000
       R09216DK:          CL    R10,IOBLINK    IS IT COPY IOB ?                 @VA09216 00002000
       R09216DK:          BNE   NOUNTFR4       NO, DON'T UNTRANSLATE IT         @VA09216 00003000
 BEGIN APPLY >>> ./   I  501000  $  501100  50                                           00001000
   END APPLY >>> ./   I  501000  $  501100  50                                           00001000
Update Succeeded
Update Execution Time 16 milliseconds.

R10829DK

Date Tuesday Jul 29, 1980 06:30:00 AM
Loaded from MAINT(294)
       R10829DK: ./ I 458150 $ 458160 10                                                 00001000
       R10829DK:          TM    IOERCSW+5,IFCC WAS IT IFCC ONLY?                @VA10829 00002000
       R10829DK:          BZ    NOTIFCC        NO, CONTINUE                     @VA10829 00003000
       R10829DK:          NI    VDEVSTAT,255-VDEVCHBS IF ON, TURN IT OFF        @VA10829 00004000
       R10829DK: NOTIFCC  EQU   *                                               @VA10829 00005000
 BEGIN APPLY >>> ./ I 458150 $ 458160 10                                                 00001000
   END APPLY >>> ./ I 458150 $ 458160 10                                                 00001000
Update Succeeded
Update Execution Time 16 milliseconds.

R12082DK

Date Friday Jan 09, 1981 10:21:00 AM
Loaded from MAINT(294)
       R12082DK: ./ R 434000 435000 $ 434200 200                                         00001000
       R12082DK:          BZ    SAVESTAT       NO-ADD TO OLD STATUS             @VA12082 00002000
       R12082DK:          CLI   VDEVTYPC,CLASGRAF IS THIS GRAPHICS TYPE         @VA12082 00003000
       R12082DK:          BNE   VIOBY1         NO-POST AS SINGLE INTERRUPT      @VA12082 00004000
       R12082DK:          CLI   IOBCSW+4,ATTN+CUE DO WE HAVE ATTN AND CUE       @VA12082 00005000
       R12082DK:          BNE   VIOBY1         NO-POST AS SINGLE INTERRUPT      @VA12082 00006000
       R12082DK:          TM    VDEVINTS,X'04' DO WE HAVE DE END                @VA12082 00007000
       R12082DK:          BO    SAVESTAT       YES-ADD TO OLD STATUS            @VA12082 00008000
       R12082DK: VIOBY1   EQU   *                                               @VA12082 00009000
       R12082DK:          OI    VDEVFLAG,VDEVPOST FLAG AS SINGLE INTERRUPT      @VA12082 00010000
 BEGIN APPLY >>> ./ R 434000 435000 $ 434200 200                                         00001000
   END APPLY >>> ./ R 434000 435000 $ 434200 200                                         00001000
Update Succeeded
Update Execution Time 8 milliseconds.

R12941DK

Date Tuesday Jul 07, 1981 01:39:00 PM
Loaded from MAINT(294)
       R12941DK: ./ *
 BEGIN APPLY >>> ./ *
     Comment >>> ./ *
   END APPLY >>> ./ *
Update Succeeded
Update Execution Time 16 milliseconds.

HRC013DK

Date Thursday Feb 09, 2006 12:21:00 AM
Loaded from MAINT(094)
       HRC013DK: ./ * HRC013DK V01 UNIVERSITY OF MAINE P.E.R. TRACE FACILITY
 BEGIN APPLY >>> ./ * HRC013DK V01 UNIVERSITY OF MAINE P.E.R. TRACE FACILITY
     Comment >>> ./ * HRC013DK V01 UNIVERSITY OF MAINE P.E.R. TRACE FACILITY
   END APPLY >>> ./ * HRC013DK V01 UNIVERSITY OF MAINE P.E.R. TRACE FACILITY
Update Succeeded
Update Execution Time 16 milliseconds.