Table of Contents

DMKDSP History

References

Update History

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

Update Order

  1. R09069DK 601 MORE THAN ONE CHANNEL ERROR PASSED TO VIRTUAL MACHINE
  2. R08873DK 601 FIX V08311 AND THE PERFORMANCE PROBLEM FOR AP USERS
  3. R08989DK 601 VIRTUAL MACHINE MISSING INTERRUPTS
  4. R09957DK 604 CORRECT IOBLOK CONFLICT IN MSS SUPPORT
  5. R10073DK 604 ECPS/AP SUPPORT 3031/3041 REL 6
  6. R09137DK 606 MISSING LINE ON 3203 MOD 4
  7. R09151DK 606 DMKVAT SECURITY EXPOSURE IN ATTEMPTING TO PREVENT EC MODE USER
  8. R09257DK 606 POOR RESPONSE TIME WITH AP SYSTEM
  9. R10061DK 611 REPLY TO FORCE COMMAND WORD FORCED LEFT OFF DMKUSO DMKDSP
  10. R10245DK 611 UV00535 ABENDPRG009 DUE TO ALLOWING USER TO LOGOFF
  11. R12055DK 618 UV02851 CORRECT VMTTIME FOR END OF TIMESLICE CHECK
  12. R12460DK 621 UV04420 INTERVAL TIMER INTERRUPT LOST WHEN USING VMCF
  13. R12932DK 621 UV04500 DISABLED LOOP IN DMKDSP BECAUSE R2 INVALID
  14. R14280DK 624 UV05427 MICROCODE UPDATE FOR TCH AND FREE/FRET
  15. R13025DK 627 UV05467 VMEXWAIT BIT BEING ON AT LOGOFF NOT COMPLETELY FIX
  16. HRC006DK V01 FIX TO TRAP AND HIDE DSP003 ABENDS
  17. HRC013DK V01 UNIVERSITY OF MAINE P.E.R. TRACE FACILITY
  18. HRC065DK V01 Logical Device Support Facility

R09069DK

Date Monday Dec 18, 1978 12:18:00 PM
Loaded from MAINT(294)
       R09069DK: ./ R 1190000 $ 1190100                                                  00001000
       R09069DK:          STH   R4,VDEVINTS    CLEAR PENDING INTERRUPTS         @VA09069 00002000
 BEGIN APPLY >>> ./ R 1190000 $ 1190100                                                  00001000
   END APPLY >>> ./ R 1190000 $ 1190100                                                  00001000
Update Succeeded
Update Execution Time 23 milliseconds.

R08873DK

Date Friday Feb 16, 1979 10:39:00 AM
Loaded from MAINT(294)
       R08873DK: ./ I 00555000 $ 00555050 50
       R08873DK: *
       R08873DK: * IF A DISPATCH SIGNAL HAS BEEN RECEIVED, IT MUST BE
       R08873DK: * PROCESSED UNLESS ONE OF THE SPECIAL CONDITIONS IS PRESENT
       R08873DK: *
       R08873DK:          LA    R5,CKUSERS     SET EXIT ADDRESS                 @VA08873
       R08873DK:          TM    XCPEND,XCDISP  DISPATCH SIGNAL PENDING?         @VA08873
       R08873DK:          BZ    TSTXTND2       NO, GO TEST FOR EXTEND           @VA08873
       R08873DK:          LA    R5,SPIN        YES, SET UP TO SPIN FOR LOCK     @VA08873
       R08873DK:          L     R3,XCPEND      PICK UP WORD OF FLAGS            @VA08873 00009000
       R08873DK: DSPXC    DS    0H             ACKNOWLEDGE DISPATCH SIGNAL      @VA08873 00010000
       R08873DK:          LR    R4,R3          MOVE FLAGS TO WORK REG           @VA08873 00011000
       R08873DK:          N     R4,DISPWKUP    TURN OFF DISPATCH & WAKEUP       @VA08873 00012000
       R08873DK:          CS    R3,R4,XCPEND   STORE ALTERED WORD OF FLAGS      @VA08873 00013000
       R08873DK:          BNE   DSPXC          KEEP TRYING                      @VA08873
       R08873DK: TSTXTND2 DS    0H             TEST FOR EXTEND                  @VA08873
       R08873DK: ./ R 00591100 $ 00591200 100
       R08873DK: *
       R08873DK: * AT THIS POINT, NONE OF THE SPECIAL CONDITIONS IS PRESENT
       R08873DK: * IF DISPATCH SIGNAL HAS BEEN RECEIVED, MUST SPIN FOR LOCK
       R08873DK: *
       R08873DK:          BNOR  R5             EITHER CKUSERS OR SPIN           @VA08873
       R08873DK: ./ D 00593300 00593800
       R08873DK: ./ D 00606040 00606070
       R08873DK: ./ R 02742050 $ 02742060                                                00016000
       R08873DK: DISPWKUP DC    X'CFFFFFFF'    TURN OFF WAKEUP & DISPATCH       @VA08873 00017000
 BEGIN APPLY >>> ./ I 00555000 $ 00555050 50
   END APPLY >>> ./ I 00555000 $ 00555050 50
 BEGIN APPLY >>> ./ R 00591100 $ 00591200 100
   END APPLY >>> ./ R 00591100 $ 00591200 100
 BEGIN APPLY >>> ./ D 00593300 00593800
   END APPLY >>> ./ D 00593300 00593800
 BEGIN APPLY >>> ./ D 00606040 00606070
   END APPLY >>> ./ D 00606040 00606070
 BEGIN APPLY >>> ./ R 02742050 $ 02742060                                                00016000
   END APPLY >>> ./ R 02742050 $ 02742060                                                00016000
Update Succeeded
Update Execution Time 39 milliseconds.

R08989DK

Date Wednesday Jan 24, 1979 12:20:00 PM
Loaded from MAINT(294)
       R08989DK: ./ R 1314000 $ 1314100                                                  00001000
       R08989DK:          NI    VMDSTAT,255-VMDSP NOT RUN USER                  @VA08989 00002000
 BEGIN APPLY >>> ./ R 1314000 $ 1314100                                                  00001000
   END APPLY >>> ./ R 1314000 $ 1314100                                                  00001000
Update Succeeded
Update Execution Time 23 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 16 milliseconds.

R10073DK

Date Thursday Jul 05, 1979 04:08:00 PM
Loaded from MAINT(294)
       R10073DK: ./ R 505000 506000 $ 505010 10
       R10073DK:          AIF   (&AP).APBR4                                     @V5DAACD
       R10073DK:          LA    R9,UNSTACK                                      @V5DAACD
       R10073DK:          B     RUNTIME                                         @V5DAACD
       R10073DK:          AGO   .UPBT4
       R10073DK: .APBR4   ANOP                                                  @V5DAACD
       R10073DK: *        IN UP-MODE, SUBROUTINE TSTSYS IS A NO-OP              @V5DAACD
       R10073DK:          BAL   R9,RUNTIME                                      @V5DAACD
       R10073DK:          BAL   R9,TSTSYS      TEST FOR AND OBTAIN SYSTEM LOCK  @V5DAACD
       R10073DK:          BZ    UNSTACK        UNSTACK IF LOCK OBTAINED.        @V5DAACD
       R10073DK:          BAL   R9,STKDEF      ELSE, GO DEFER IT.               @V5DAACD
       R10073DK:          B     SWITCH         AND SWITCH TO ASYSVM             @V5DAACD
       R10073DK: .UPBT4   ANOP                                                  @V5DAACD
       R10073DK:          SPACE
 BEGIN APPLY >>> ./ R 505000 506000 $ 505010 10
   END APPLY >>> ./ R 505000 506000 $ 505010 10
Update Succeeded
Update Execution Time 23 milliseconds.

R09137DK

Date Wednesday Oct 31, 1979 10:31:00 AM
Loaded from MAINT(294)
       R09137DK: ./ I 1146000 $ 1146200 300                                              00001000
       R09137DK:          LR    R2,R9          ADDRESS PAGE 0 IN R2             @VA09137 00002000
       R09137DK:          TM    VDEVFLG2,VDEVPST THIS INTERRUPT TO BE POSTED?   @VA09137 00003000
       R09137DK:          BO    POST           YES                              @VA09137 00004000
       R09137DK: ./ D 1153000 $                                                          00005000
       R09137DK: ./ R 1159000 $ 1159100                                                  00006000
       R09137DK: POST     EQU   *                                               @VA09137 00007000
       R09137DK:          NI    VDEVFLG2,255-VDEVPST TURN OFF POST              @VA09137 00008000
 BEGIN APPLY >>> ./ I 1146000 $ 1146200 300                                              00001000
   END APPLY >>> ./ I 1146000 $ 1146200 300                                              00001000
 BEGIN APPLY >>> ./ D 1153000 $                                                          00005000
   END APPLY >>> ./ D 1153000 $                                                          00005000
 BEGIN APPLY >>> ./ R 1159000 $ 1159100                                                  00006000
   END APPLY >>> ./ R 1159000 $ 1159100                                                  00006000
Update Succeeded
Update Execution Time 23 milliseconds.

R09151DK

Date Wednesday Oct 31, 1979 09:18:00 AM
Loaded from MAINT(294)
       R09151DK: ./ I 1329000 $ 1329100 200                                              00002000
       R09151DK:          TM    VMOSTAT,VMSHR  IS USER EC,TRANSLATE AND SHARED? @VA09151 00003000
       R09151DK:          BNO   NOTSHR         NO NOT SHARED.......             @VA09151 00004000
       R09151DK:          CALL  DMKVATBC       YES MUST THROW AWAY SHADOW TABLES@VA09151 00005000
       R09151DK: NOTSHR   DS    0H                                              @VA09151 00006000
 BEGIN APPLY >>> ./ I 1329000 $ 1329100 200                                              00002000
   END APPLY >>> ./ I 1329000 $ 1329100 200                                              00002000
Update Succeeded
Update Execution Time 23 milliseconds.

R09257DK

Date Wednesday Oct 31, 1979 10:31:00 AM
Loaded from MAINT(294)
       R09257DK: ./ R 01648000 $ 01648000                                                00003000
       R09257DK:          BAL   R9,WAKSIG      ALERT OTH PROC                   @VA09257 00004000
       R09257DK: ./ R 01736000 $ 01736000                                                00005000
       R09257DK:          BAL   R9,LOCKOBDS    GET LOCK FOR DSP STACKS          @VA09257 00006000
       R09257DK: ./ R 1767000 $ 1767100 20                                               00008000
       R09257DK:          BZ    TESTDEF        LOCK OBTAINED                    @VA09257 00009000
       R09257DK:          L     R2,PREFIXB     ACCESS OTHER PSA                 @VA09257 00010000
       R09257DK:          CLI   CPSTATUS-PSA(R2),CPRUN IS OTHER PROCR ENABLED   @VA09257 00011000
       R09257DK:          BNE   NOEXTND        NO, BYPASS IOB                   @VA09257 00012000
       R09257DK:          B     SIGPDSP        YES, SIGNAL DISPATCH             @VA09257 00013000
       R09257DK: DSPSIG   SIGNAL DISPATCH                                       @VA09257 00019000
       R09257DK:          BR    R9                                              @VA09257 00020000
       R09257DK: WAKSIG   SIGNAL WAKEUP                                         @VA09257 00021000
       R09257DK:          BR    R9                                              @VA09257 00022000
       R09257DK: TESTDEF  DS    0H                                              @VA09257 00014000
       R09257DK: ./ R 01800000 $                                                         00024000
       R09257DK:          BAL   R9,LOCKRLDS    RELEASE LOCK ON DSP STACKS       @VA09257 00025000
       R09257DK: ./ R 01829000 $                                                         00026000
       R09257DK:          BAL   R9,LOCKRLDS    RELEASE LOCK ON DSP STACKS       @VA09257 00027000
       R09257DK: ./ R 01849000 $ 01849000                                                00028000
       R09257DK:          BAL   R9,LOCKOBDS    GET LOCK ON DSP STACKS           @VA09257 00029000
       R09257DK: ./ R 01861000 $ 01861100 10                                             DMK00010
       R09257DK: * UNSTK CPEXBLOK HAS PRIORITY OVER RUNNING USER                         DMK00020
       R09257DK:          BZ    UNSTK  GOT THE LOCK-GO UNSTK CPEXBLOK           @VA09257 DMK00030
       R09257DK:          L     R15,PREFIXB        ACCESS OTH PROC PSA          @VA09257 DMK00040
       R09257DK:          TM    XCPEND-PSA(R15),XCDISP       EXTINT PEND?       @VA09257 DMK00050
       R09257DK:          BO    NOSIGNAL           YES-SIGP REDUNDANT           @VA09257 DMK00060
       R09257DK:          CLI   CPSTATUS-PSA(R15),CPRUN      RUNNING USER?      @VA09257 DMK00070
       R09257DK:          BZ    NOSIGNAL           NO - DON'T BOTHER            @VA09257 DMK00080
       R09257DK:          B    SIGPDSP                                          @VA09257 DMK00090
       R09257DK: NOSIGNAL LA    R15,DMKDSPRQ       RESTORE R15                  @VA09257 DMK00100
       R09257DK:          B     NXTCP              SEE IF MORE ON Q             @VA09257 DMK00110
       R09257DK: UNSTK    DS    0H                                              @VA09257 DMK00120
       R09257DK: ./ I 1886000 $ 1886500                                                  00033000
       R09257DK: SIGPDSP  DS    0H                                              @VA09257 00034000
       R09257DK: ./ R 01887000 $                                                         00035000
       R09257DK:          BAL   R9,LOCKRLDS    RELEASE LOCK ON DSP STACKS       @VA09257 00036000
       R09257DK: ./ R 01889000 $ 01889000                                                00037000
       R09257DK:          BAL   R9,DSPSIG      TELL OTH PROC ABOUT CPEXBLOK     @VA09257 00038000
       R09257DK: ./ R 01922000 $                                                         00039000
       R09257DK:          BAL   R9,LOCKRLDS    RELEASE LOCK ON DSP STACKS       @VA09257 00040000
       R09257DK: ./ R 02160000 $ 02160000                                                00041000
       R09257DK:          BAL   R9,LOCKOBDS    GET LOCK ON DISPATCH STACKS      @VA09257 00042000
       R09257DK: ./ R 02212000 $                                                         00043000
       R09257DK:          BAL   R9,LOCKRLDS    RELEASE LOCK ON DSP STACKS       @VA09257 00044000
       R09257DK: ./ R 02527000 $ 02527000                                                00045000
       R09257DK:          BAL   R9,WAKSIG      WAKE UP IDLE PROC                @VA09257 00046000
       R09257DK: ./ R 02596000 $ 02596000                                                00047000
       R09257DK:          BAL   R9,WAKSIG      SIGNAL THE OTH PROC              @VA09257 00048000
       R09257DK: ./ I 02715000  $ 02715010  5                                            00049000
       R09257DK:          SPACE 2                                                        00050000
       R09257DK: LOCKRLDS DS    0H                                              @VA09257 00051000
       R09257DK:          LOCK  RELEASE,TYPE=DS RELEASE LOCK ON DSP STKS        @VA09257 00052000
       R09257DK:          BR    R9                                              @VA09257 00053000
       R09257DK:          SPACE 2                                                        00054000
       R09257DK: LOCKOBDS DS    0H             SPACE SAVER CODE                 @VA09257 00055000
       R09257DK:          LOCK  OBTAIN,TYPE=DS OBTAIN LOCK ON DSP STKS          @VA09257 00056000
       R09257DK:          BR    R9                                              @VA09257 00057000
 BEGIN APPLY >>> ./ R 01648000 $ 01648000                                                00003000
   END APPLY >>> ./ R 01648000 $ 01648000                                                00003000
 BEGIN APPLY >>> ./ R 01736000 $ 01736000                                                00005000
   END APPLY >>> ./ R 01736000 $ 01736000                                                00005000
 BEGIN APPLY >>> ./ R 1767000 $ 1767100 20                                               00008000
   END APPLY >>> ./ R 1767000 $ 1767100 20                                               00008000
 BEGIN APPLY >>> ./ R 01800000 $                                                         00024000
   END APPLY >>> ./ R 01800000 $                                                         00024000
 BEGIN APPLY >>> ./ R 01829000 $                                                         00026000
   END APPLY >>> ./ R 01829000 $                                                         00026000
 BEGIN APPLY >>> ./ R 01849000 $ 01849000                                                00028000
   END APPLY >>> ./ R 01849000 $ 01849000                                                00028000
 BEGIN APPLY >>> ./ R 01861000 $ 01861100 10                                             DMK00010
   END APPLY >>> ./ R 01861000 $ 01861100 10                                             DMK00010
 BEGIN APPLY >>> ./ I 1886000 $ 1886500                                                  00033000
   END APPLY >>> ./ I 1886000 $ 1886500                                                  00033000
 BEGIN APPLY >>> ./ R 01887000 $                                                         00035000
   END APPLY >>> ./ R 01887000 $                                                         00035000
 BEGIN APPLY >>> ./ R 01889000 $ 01889000                                                00037000
   END APPLY >>> ./ R 01889000 $ 01889000                                                00037000
 BEGIN APPLY >>> ./ R 01922000 $                                                         00039000
   END APPLY >>> ./ R 01922000 $                                                         00039000
 BEGIN APPLY >>> ./ R 02160000 $ 02160000                                                00041000
   END APPLY >>> ./ R 02160000 $ 02160000                                                00041000
 BEGIN APPLY >>> ./ R 02212000 $                                                         00043000
   END APPLY >>> ./ R 02212000 $                                                         00043000
 BEGIN APPLY >>> ./ R 02527000 $ 02527000                                                00045000
   END APPLY >>> ./ R 02527000 $ 02527000                                                00045000
 BEGIN APPLY >>> ./ R 02596000 $ 02596000                                                00047000
   END APPLY >>> ./ R 02596000 $ 02596000                                                00047000
 BEGIN APPLY >>> ./ I 02715000  $ 02715010  5                                            00049000
   END APPLY >>> ./ I 02715000  $ 02715010  5                                            00049000
Update Succeeded
Update Execution Time 55 milliseconds.

R10061DK

Date Monday Apr 07, 1980 03:19:00 AM
Loaded from MAINT(294)
       R10061DK: ./ I 00177000 $ 00177100                                                00001000
       R10061DK:          ENTRY DMKDSPKL                                        @VA10061 00002000
       R10061DK: ./ I 709000 $ 709100 100                                                00003000
       R10061DK: DMKDSPKL DS    0H             ENTER DMKDSP HERE WHEN           @VA10061 00004000
       R10061DK: *                             R2='FORCE' PARM FOR FORCE                 00005000
       R10061DK: * LOGOFF PROCESSING, AND CPEXBLOK ALREADY PROCESSED BY DMKDSP           00006000
       R10061DK: * WHEN LOOKING TO UNSTACK A CPEXBLOK.                                   00007000
       R10061DK:          USING *,R12          REESTABLISH SECOND BASE REG.     @VA10061 00008000
       R10061DK:          LM    R12,R13,DSPBASE WITH ADDRESS                    @VA10061 00009000
       R10061DK:          USING DMKDSP,R12,R13                                  @VA10061 00010000
       R10061DK:          B     DISPATCH                                        @VA10061 00011000
 BEGIN APPLY >>> ./ I 00177000 $ 00177100                                                00001000
   END APPLY >>> ./ I 00177000 $ 00177100                                                00001000
 BEGIN APPLY >>> ./ I 709000 $ 709100 100                                                00003000
   END APPLY >>> ./ I 709000 $ 709100 100                                                00003000
Update Succeeded
Update Execution Time 23 milliseconds.

R10245DK

Date Monday Apr 07, 1980 03:18:00 AM
Loaded from MAINT(294)
       R10245DK: ./ I 709700 $ 709730 30                                                 00001000
       R10245DK:          TM    VMRSTAT,VMEXWAIT WAITING FOR INST. SIMULATION   @VA10245 00002000
       R10245DK:          BO    SCHDL          BRANCH TO RESCHEDULE FORCE       @VA10245 00003000
 BEGIN APPLY >>> ./ I 709700 $ 709730 30                                                 00001000
   END APPLY >>> ./ I 709700 $ 709730 30                                                 00001000
Update Succeeded
Update Execution Time 23 milliseconds.

R12055DK

Date Wednesday Dec 10, 1980 12:09:00 PM
Loaded from MAINT(294)
       R12055DK: ./ I 628000 $ 628500
       R12055DK:          CHARGE STOP          GET END OF IN-Q SLICE VMTTIME    @ZA12055
 BEGIN APPLY >>> ./ I 628000 $ 628500
   END APPLY >>> ./ I 628000 $ 628500
Update Succeeded
Update Execution Time 23 milliseconds.

R12460DK

Date Wednesday Jul 08, 1981 03:20:00 PM
Loaded from MAINT(294)
       R12460DK: ./ I 00972000 $ 00972050 50                                             00001000
       R12460DK:          C     R6,XINTNEXT-XINTBLOK(,R5) CHECK VALIDITY OF     @VA12460 00002000
       R12460DK: *                                           CHAIN                       00003000
       R12460DK:          BE    VMCDSPN        CONTINUE,CHAIN APPEARS VALID     @VA12460 00004000
       R12460DK:          LA    R5,VMPXINT     LOAD ADDRESS OF CHAIN ANCHOR     @VA12460 00005000
       R12460DK: VMCCORR  DS    0H                                              @VA12460 00006000
       R12460DK:          C     R6,XINTNEXT-XINTBLOK(,R5) CHECK VALIDITY OF     @VA12460 00007000
       R12460DK: *                                            CHAIN                      00008000
       R12460DK:          BE    VMCDSPN        CONTINUE, CHAIN IS CORRECTED     @VA12460 00009000
       R12460DK:          ICM   R5,B'1111',XINTNEXT-XINTBLOK(R5) INSERT ADDR    @VA12460 00010000
       R12460DK: *                             OF NEXT ELEMENT                           00011000
       R12460DK:          BNZ   VMCCORR        BRANCH IF NOT END OF CHAIN       @VA12460 00012000
 BEGIN APPLY >>> ./ I 00972000 $ 00972050 50                                             00001000
   END APPLY >>> ./ I 00972000 $ 00972050 50                                             00001000
Update Succeeded
Update Execution Time 16 milliseconds.

R12932DK

Date Wednesday Jun 03, 1981 05:21:00 AM
Loaded from MAINT(294)
       R12932DK: ./ I 01273000          $ 1273500 500                  04/20/81 11:15:47
       R12932DK:          L     R2,=A(DMKVIOMK)  GET ADDRESS OF INT MASK TABLE  @VA12932 01236000
 BEGIN APPLY >>> ./ I 01273000          $ 1273500 500                  04/20/81 11:15:47
   END APPLY >>> ./ I 01273000          $ 1273500 500                  04/20/81 11:15:47
Update Succeeded
Update Execution Time 23 milliseconds.

R14280DK

Date Wednesday Nov 04, 1981 01:37:00 PM
Loaded from MAINT(294)
       R14280DK: ./ I 1601000 $ 1601200 200
       R14280DK: * NOTE: THE WORD AT DISPLACEMENT 28 WILL BE INCREMENTED
       R14280DK: *       BY 4 DURING IPL IF THIS CPU HAS CP ASSIST LEVEL 18
       R14280DK: *       OR 19.  THIS ALLOWS USE OF THE "OLD" LEVEL OF FRET ASSIST.
       R14280DK:          SPACE ,
       R14280DK: ./ R 1606000 $ 1606100
       R14280DK:          DC    V(DMKFREMX)    +28 ADDRESS OF 'MAXSIZE'         @VA14280 20340000
 BEGIN APPLY >>> ./ I 1601000 $ 1601200 200
   END APPLY >>> ./ I 1601000 $ 1601200 200
 BEGIN APPLY >>> ./ R 1606000 $ 1606100
   END APPLY >>> ./ R 1606000 $ 1606100
Update Succeeded
Update Execution Time 23 milliseconds.

R13025DK

Date Friday Jan 15, 1982 04:25:00 PM
Loaded from MAINT(294)
       R13025DK: ./ D 177100 $
       R13025DK: ./ D 709100 709800 $
       R13025DK: ./ R 1594000 $ 1594000 200
       R13025DK: OFFCALL  DS    0H             LOG USER OFF SYSTEM              @VA13025 01594000
       R13025DK:          TM    VMRSTAT,VMEXWAIT IS USER IN EXECUTION WAIT      @VA13025 01584300
       R13025DK:          BO    DELAYOFF       YES,  WAIT UNTIL FINISHED        @VA13025 01584600
       R13025DK:          CALL  DMKUSOFF       LOG USER OFF SYSTEM              @VA08667 01594500
       R13025DK: ./ I 1595000 $ 1595100 100
       R13025DK:          SPACE 1                                               @VA13025 19993000
       R13025DK: DELAYOFF OI    VMOSTAT,VMKILL   RESET THE VMKILL BIT           @VA13025 19993000
       R13025DK:          NI    VMRSTAT,255-VMLOGOFF RESET LOGOFF BIT IN VMBLOK @VA13025
       R13025DK:          TM    VMSPMFLG,VMCFRD1 IS BACK-UP BIT ON ?            @VA13025 19993000
       R13025DK:          BZ    SCHDL            NO, THEN JUST GO TO SCHEDULER  @VA13025 19993000
       R13025DK:          OI    VMQSTAT,VMCFREAD YES, THEN SET CFREAD FLAG      @VA13025 19993000
       R13025DK:          B     SCHDL            AND GO TO SCHEDULER            @VA13025 19993000
       R13025DK:          SPACE 1                                               @VA13025 19993000
 BEGIN APPLY >>> ./ D 177100 $
   END APPLY >>> ./ D 177100 $
 BEGIN APPLY >>> ./ D 709100 709800 $
   END APPLY >>> ./ D 709100 709800 $
 BEGIN APPLY >>> ./ R 1594000 $ 1594000 200
   END APPLY >>> ./ R 1594000 $ 1594000 200
 BEGIN APPLY >>> ./ I 1595000 $ 1595100 100
   END APPLY >>> ./ I 1595000 $ 1595100 100
Update Succeeded
Update Execution Time 39 milliseconds.

HRC006DK

Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
       HRC006DK: ./ R 675000 $ 675010 1
       HRC006DK:          L     R0,=F'1'  STOP DSP003 ABEND - JUST FIDDLE TIMER HRC006DK
 BEGIN APPLY >>> ./ R 675000 $ 675010 1
   END APPLY >>> ./ R 675000 $ 675010 1
Update Succeeded
Update Execution Time 31 milliseconds.

HRC013DK

Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
       HRC013DK: ./ * *************                                               PER001 00001000
       HRC013DK: ./ * *                                                           PER001 00002000
       HRC013DK: ./ * *    PER001  04/22/80 ADD P.E.R. TRACE FACILITY           PER001   00003000
       HRC013DK: ./ * *                                                           PER001 00004000
       HRC013DK: ./ * *************                                               PER001 00005000
       HRC013DK: ./ *                                                             PER001 00006000
       HRC013DK: ./ R 82000 $ 82100                                               PER001 00007000
       HRC013DK: *        DMKPERIL - CALLED TO HANDLE PER TRACING                 PER001 00008000
       HRC013DK: ./ R 188000 $ 188100                                             PER001 00009000
       HRC013DK:          EXTRN DMKPERIL                                          PER001 00010000
       HRC013DK: ./ I 401000 $ 401100 100                                         PER001 00011000
       HRC013DK:          TM    VMPEND,VMPERPND     PER PENDING?                  PER001 00012000
       HRC013DK:          BO    TESTSYS             YES, TEST FOR SYSTEM LOCK     PER001 00013000
       HRC013DK: ./ R 455000 456000 $ 455100 1000                                 PER001 00014000
       HRC013DK:          L     R2,VMPERCTL    POINT TO PER BLOCK                 PER001 00015000
       HRC013DK:          LCTL  C9,C11,PERCR9-PERBLOK(R2)                         PER001 00016000
       HRC013DK: ./ I 853000 $ 853050 50                                          PER001 00017000
       HRC013DK:          TM    VMTRCTL,VMTRPER     WERE WE USING THE P.E.R?      PER001 00018000
       HRC013DK:          BO    OURPER         YES. CALL DMKPERIL TO FIGURE IT OUTPER001 00019000
       HRC013DK: ./ D 873000 874000                                               PER001 00020000
       HRC013DK: ./ I 884000 $ 884100 100                                         PER001 00021000
       HRC013DK: OURPER   OI    VMRSTAT,VMEXWAIT    TAKE MACHINE OUT OF RUNNING.  PER001 00022000
       HRC013DK:          CALL  DMKPERIL       CALL INTERRUPT HANDLER.            PER001 00023000
       HRC013DK:          NI    VMPEND,255-VMPERPND KILL THE PENDING BIT.         PER001 00024000
       HRC013DK:          NI    VMRSTAT,255-VMEXWAIT     REMOVE THE MACHINE FROM  PER001 00025000
       HRC013DK:          GOTO  DMKDSPCH       GO TO GROUND FLOOR ZERO.           PER001 00026000
       HRC013DK: ./ R 1329000 $ 1329050                                           PER001 00027000
       HRC013DK:          BZ    GETMASK        NO                                 PER001 00028000
       HRC013DK: ./ D 1331000 1338000 $                                           PER001 00029000
       HRC013DK: ./ I 1345000 $ 1345050 50                                        PER001 00030000
       HRC013DK:          NI    VMTRCTL,255-VMTRPER      ...                      PER001 00031000
       HRC013DK:          NI    VMESTAT,255-VMPERCM ...                           PER001 00032000
       HRC013DK:          TM    VMPSW+1,EXTMODE     IN EXT MODE?                  PER001 00033000
       HRC013DK:          BNO   OUROWN         THEN USER CAN'T HAVE OWN PER       PER001 00034000
       HRC013DK:          TM    VMPSW,PERMODE  IS USER PER ON?                    PER001 00035000
       HRC013DK:          BNO   OUROWN         NO, GO CHECK FOR CP PER            PER001 00036000
       HRC013DK:          OI    VMESTAT,VMPERCM     AND USER PER FLAG             PER001 00037000
       HRC013DK:          B     CKTRACE2       AND CONTINUE                       PER001 00038000
       HRC013DK: OUROWN   TM    VMPERFLG,VMPERUSE   IS PER TRACE ACTIVE?          PER001 00039000
       HRC013DK:          BNO   CKTRACE2       NO, SKIP THIS NONSENSE             PER001 00040000
       HRC013DK:          L     R1,VMPERCTL    LOAD POINTER TO TRACE CTL BLOCK    PER001 00041000
       HRC013DK:          CLI   PERCR9-PERBLOK(R1),00    ANY STOPS ACTIVE?        PER001 00042000
       HRC013DK:          BE    CKTRACE2       NO, SKIP OI                        PER001 00043000
       HRC013DK:          OI    VMESTAT,VMPERCM     TURN ON ANY BIT               PER001 00044000
       HRC013DK:          OI    VMTRCTL,VMTRPER     ...                           PER001 00045000
       HRC013DK: CKTRACE2 EQU   *              HERE TO CHECK TRACE                PER001 00046000
       HRC013DK: ./ R 2446000 2447000 $ 2446000 1000                              PER001 00047000
       HRC013DK:          L     R2,VMPERCTL    TRACE EXTENSION                  % PER001 00048000
       HRC013DK:          LCTL  C9,C11,PERCR9-PERBLOK(R2)     LOAD TRACE C-REGS % PER001 00049000
       HRC013DK: ./ I 2769000 $ 2769500 500                                       PER001 00050000
       HRC013DK:          COPY  PERBLOKS                                          PER001 00051000
 BEGIN APPLY >>> ./ * *************                                               PER001 00001000
     Comment >>> ./ * *************                                               PER001 00001000
   END APPLY >>> ./ * *************                                               PER001 00001000
 BEGIN APPLY >>> ./ * *                                                           PER001 00002000
     Comment >>> ./ * *                                                           PER001 00002000
   END APPLY >>> ./ * *                                                           PER001 00002000
 BEGIN APPLY >>> ./ * *    PER001  04/22/80 ADD P.E.R. TRACE FACILITY           PER001   00003000
     Comment >>> ./ * *    PER001  04/22/80 ADD P.E.R. TRACE FACILITY           PER001   00003000
   END APPLY >>> ./ * *    PER001  04/22/80 ADD P.E.R. TRACE FACILITY           PER001   00003000
 BEGIN APPLY >>> ./ * *                                                           PER001 00004000
     Comment >>> ./ * *                                                           PER001 00004000
   END APPLY >>> ./ * *                                                           PER001 00004000
 BEGIN APPLY >>> ./ * *************                                               PER001 00005000
     Comment >>> ./ * *************                                               PER001 00005000
   END APPLY >>> ./ * *************                                               PER001 00005000
 BEGIN APPLY >>> ./ *                                                             PER001 00006000
     Comment >>> ./ *                                                             PER001 00006000
   END APPLY >>> ./ *                                                             PER001 00006000
 BEGIN APPLY >>> ./ R 82000 $ 82100                                               PER001 00007000
   END APPLY >>> ./ R 82000 $ 82100                                               PER001 00007000
 BEGIN APPLY >>> ./ R 188000 $ 188100                                             PER001 00009000
   END APPLY >>> ./ R 188000 $ 188100                                             PER001 00009000
 BEGIN APPLY >>> ./ I 401000 $ 401100 100                                         PER001 00011000
   END APPLY >>> ./ I 401000 $ 401100 100                                         PER001 00011000
 BEGIN APPLY >>> ./ R 455000 456000 $ 455100 1000                                 PER001 00014000
   END APPLY >>> ./ R 455000 456000 $ 455100 1000                                 PER001 00014000
 BEGIN APPLY >>> ./ I 853000 $ 853050 50                                          PER001 00017000
   END APPLY >>> ./ I 853000 $ 853050 50                                          PER001 00017000
 BEGIN APPLY >>> ./ D 873000 874000                                               PER001 00020000
   END APPLY >>> ./ D 873000 874000                                               PER001 00020000
 BEGIN APPLY >>> ./ I 884000 $ 884100 100                                         PER001 00021000
   END APPLY >>> ./ I 884000 $ 884100 100                                         PER001 00021000
 BEGIN APPLY >>> ./ R 1329000 $ 1329050                                           PER001 00027000
   END APPLY >>> ./ R 1329000 $ 1329050                                           PER001 00027000
 BEGIN APPLY >>> ./ D 1331000 1338000 $                                           PER001 00029000
   END APPLY >>> ./ D 1331000 1338000 $                                           PER001 00029000
 BEGIN APPLY >>> ./ I 1345000 $ 1345050 50                                        PER001 00030000
   END APPLY >>> ./ I 1345000 $ 1345050 50                                        PER001 00030000
 BEGIN APPLY >>> ./ R 2446000 2447000 $ 2446000 1000                              PER001 00047000
   END APPLY >>> ./ R 2446000 2447000 $ 2446000 1000                              PER001 00047000
 BEGIN APPLY >>> ./ I 2769000 $ 2769500 500                                       PER001 00050000
   END APPLY >>> ./ I 2769000 $ 2769500 500                                       PER001 00050000
Update Succeeded
Update Execution Time 78 milliseconds.

HRC065DK

Date Friday May 19, 2017 07:03:00 PM
Loaded from MAINT(094)
       HRC065DK: ./ I 00969000 $ 00969100 100
       HRC065DK:          CLC   XINTCODE,=X'2402'       LDF interrupt?          HRC065DK
       HRC065DK:          BE    LDFINT                  Yes                     HRC065DK
       HRC065DK: ./ I 00978000 $ 00978100 100
       HRC065DK: *                                                              HRC065DK
       HRC065DK: LDFINT   EQU   *                                               HRC065DK
       HRC065DK:          MVC   PSA+128(4),XINTPARM LDF indication to loc X'80' HRC065DK
       HRC065DK: *                                                              HRC065DK
 BEGIN APPLY >>> ./ I 00969000 $ 00969100 100
   END APPLY >>> ./ I 00969000 $ 00969100 100
 BEGIN APPLY >>> ./ I 00978000 $ 00978100 100
   END APPLY >>> ./ I 00978000 $ 00978100 100
Update Succeeded
Update Execution Time 39 milliseconds.