Table of Contents

DMKVMA History

References

Update History

CMS File Input : DMKVMA ASSEMBLE
Date : 12/14/1978 8:52:00 AM
VM Context : MAINT(394)
File Name : DMKVMA.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:48 AM
Created : 1/16/2021 7:31:48 AM

Update Order

  1. R08928DK 601 CORRECT BAD COMMENTS
  2. R10074DK 604 CHANNEL SET SWITCHING AND MULTIPLE SRF SUPPORT
  3. R09776DK 609 ABENDPRG005 UNSHARING USER FROM SHARED SEGMENT
  4. R09775DK 611 UV00368 DMKVMA PLACES INCORRECT SEGMENT NAME IN MSDMKVMA456W MSG
  5. R13543DK 623 UV04940 DMKPTR CORRUPTS BALR4 FOR DMKDSP

R08928DK

Date Wednesday Feb 28, 1979 03:28:00 PM
Loaded from MAINT(294)
       R08928DK: ./ R 15000 $ 15500
       R08928DK: *        DMKVMASH - CALLED VIA BALR WHEN 'LASTUSER'
 BEGIN APPLY >>> ./ R 15000 $ 15500
   END APPLY >>> ./ R 15000 $ 15500
Update Succeeded
Update Execution Time 8 milliseconds.

R10074DK

Date Thursday Jul 05, 1979 04:08:00 PM
Loaded from MAINT(294)
       R10074DK: ./ I 280000 $ 280100                                                    DMK00010
       R10074DK:          L     R2,CORSWPNT-CORTABLE(,R2) LOAD SWAP TABLE PTR   @VMV0006 DMK00020
       R10074DK: ./ D 284000                                                             DMK00030
       R10074DK: ./ R 351000 $ 351100                                                    DMK00010
       R10074DK:          TM    APSTAT1,PROCIPL SWITCHING TO MAIN (IPL) PROC?   @V60B7AA DMK00020
 BEGIN APPLY >>> ./ I 280000 $ 280100                                                    DMK00010
   END APPLY >>> ./ I 280000 $ 280100                                                    DMK00010
 BEGIN APPLY >>> ./ D 284000                                                             DMK00030
   END APPLY >>> ./ D 284000                                                             DMK00030
 BEGIN APPLY >>> ./ R 351000 $ 351100                                                    DMK00010
   END APPLY >>> ./ R 351000 $ 351100                                                    DMK00010
Update Succeeded
Update Execution Time 16 milliseconds.

R09776DK

Date Wednesday Jan 23, 1980 01:21:00 AM
Loaded from MAINT(294)
       R09776DK: ./ D 281000 283000 $                                                    00001000
       R09776DK: ./ I 285000 $ 285100 100                                                00002000
       R09776DK:          MVC   TEMPR5+3(1),SWPVPAGE-SWPFLAG(R2) SAVE THE       @VA09776 00003000
       R09776DK: *               VIRTUAL PAGE NUMBER FOR USE BY ERR451 ERROR MSG ROUTINE 00004000
 BEGIN APPLY >>> ./ D 281000 283000 $                                                    00001000
   END APPLY >>> ./ D 281000 283000 $                                                    00001000
 BEGIN APPLY >>> ./ I 285000 $ 285100 100                                                00002000
   END APPLY >>> ./ I 285000 $ 285100 100                                                00002000
Update Succeeded
Update Execution Time 8 milliseconds.

R09775DK

Date Saturday Mar 29, 1980 03:03:00 AM
Loaded from MAINT(294)
       R09775DK: ./ I 239000 $ 239010 10                                                 00001000
       R09775DK:          SPACE 1                                                        00002000
       R09775DK:          ST    R2,TEMPR2      SAVE REAL STORAGE ADDRESS        @VA09775 00003000
       R09775DK:          LR    R15,R5         GET VIRTUAL PAGE NUMBER          @VA09775 00006000
       R09775DK:          SLL   R15,1          ADJUSTED FOR 2 BYTE ENTRIES      @VA09775 00007000
       R09775DK:          SLR   R6,R15         FIND BEGNG ADDRESS OF PAGE TABLE @VA09775 00008000
       R09775DK:          SRL   R15,1          BACK TO VIRTUAL PAGE NUMBER      @VA09775 00009000
       R09775DK:          L     R8,VMSEG       ADDRESS OF BEGINING OF SEGTABLE  @VA09775 00010000
       R09775DK:          SLR   R14,R14        USED FOR VIRTUAL SEGMENT NUMBER  @VA09775 00011000
       R09775DK: BUMPSEG  DS    0H                                              @VA09775 00012000
       R09775DK:          CLM   R6,B'0110',SEGTABLE+1 PARTIAL MATCH?            @VA09775 00013000
       R09775DK:          BNE   BMPSEGA        NO                               @VA09775 00014000
       R09775DK:          MVC   TEMPR0(1),SEGTABLE+3 1ST BYTE                   @VA09775 00015000
       R09775DK:          NI    TEMPR0,X'FF'-SEGINV REMOVE POSSIBLE INVALID     @VA09775 00016000
       R09775DK:          CLM   R6,B'0001',TEMPR0 FULL MATCH?                   @VA09775 00017000
       R09775DK:          BE    FNDSEG         YES                              @VA09775 00018000
       R09775DK: BMPSEGA  DS    0H                                              @VA09775 00019000
       R09775DK:          LA    R8,SEGTABLE+4  NEXT SEGMENT TABLE ENTRY         @VA09775 00020000
       R09775DK:          LA    R14,ONE(,R14)  ADD ONE TO VIRTUAL SEGMENT NUMBER@VA09775 00021000
       R09775DK:          B     BUMPSEG        LOOK AT NEXT SEGMENT             @VA09775 00022000
       R09775DK: FNDSEG   SLL   R14,4          MAKE ROOM FOR PAGE NUMBER        @VA09775 00023000
       R09775DK:          OR    R14,R15        OR'D IN VIRTUAL PAGE NUMBER      @VA09775 00024000
       R09775DK:          SLL   R14,12         ADD IN PROPER DISPLACEMENT       @VA09775 00025000
       R09775DK:          NC    TEMPR2,F4095   REMOVE REAL PAGE ADDRESS         @VA09775 00026000
       R09775DK:          O     R14,TEMPR2     OR'D IN SECOND HALF OF REAL PAGE @VA09775 00027000
       R09775DK:          LR    R2,R14         VIRTUAL ADDRESS TO REG 2         @VA09775 00028000
       R09775DK:          SL    R6,F8          BACK-UP TO PAGE TABLE HEADER     @VA09775 00029000
       R09775DK:          L     R6,0(,R6)      GET POINTER TO SHRTABLE          @VA09775 00030000
       R09775DK:          LM    R7,R8,SHRNAME-SHRTABLE(R6) NAME OF SHRD SYS     @VA09775 00031000
       R09775DK: ./ R 241000 241000 $ 241000                                             00032000
       R09775DK:          LA    R15,ERR456     GET ADDR OF MESSAGE ROUTINE      @VA09775 00033000
       R09775DK: ./ R 379000 417000 $ 379000 1000                                        00034000
       R09775DK: *                                                                       00035000
       R09775DK: *              THIS SUBROUTINE WILL RECEIVE CONTROL VIA THE             00036000
       R09775DK: *              UNSTACKING OF A CPEXBLOK. ITS FUNCTION IS TO             00037000
       R09775DK: *              BUILD AN EMSGBLOK. IT WILL THEN CALL DMKERMSG            00038000
       R09775DK: *              TO SEND ERROR MESSAGE (DMKVMA456W CP ENTERED;            00039000
       R09775DK: *              'NAME' - SHARED PAGE 'HEXLOC' ALTERED) TO THE            00040000
       R09775DK: *              VIOLATOR. IT WILL THEN CALL DMKCFMBK TO PLACE            00041000
       R09775DK: *              THE VIOLATOR IN CONSOLE FUNCTION MODE. (THIS             00042000
       R09775DK: *              ROUTINE WAS FORMERLY LABELED ERR451.)
       R09775DK: *                                                                       00043000
       R09775DK:          SPACE 3                                                        00044000
       R09775DK: ERR456   EQU   *                                               @VA09775 00045000
       R09775DK: ./ R 423000 423000 $ 423000                                             00046000
       R09775DK:          STM   R7,R8,EMSGNAME MOVE IN SHARED SYS NAME          @VA09775 00047000
 BEGIN APPLY >>> ./ I 239000 $ 239010 10                                                 00001000
   END APPLY >>> ./ I 239000 $ 239010 10                                                 00001000
 BEGIN APPLY >>> ./ R 241000 241000 $ 241000                                             00032000
   END APPLY >>> ./ R 241000 241000 $ 241000                                             00032000
 BEGIN APPLY >>> ./ R 379000 417000 $ 379000 1000                                        00034000
   END APPLY >>> ./ R 379000 417000 $ 379000 1000                                        00034000
 BEGIN APPLY >>> ./ R 423000 423000 $ 423000                                             00046000
   END APPLY >>> ./ R 423000 423000 $ 423000                                             00046000
Update Succeeded
Update Execution Time 16 milliseconds.

R13543DK

Date Friday Aug 07, 1981 07:17:00 AM
Loaded from MAINT(294)
       R13543DK: ./ I 466000 $ 466300 300
       R13543DK:          L     R0,BALR4       SAVE SINCE DMKPTR CLOBBERS       @VA13543
       R13543DK: *                             BALR4.                           @VA13543
       R13543DK: ./ I 467000 $ 467500 500
       R13543DK:          ST    R0,BALR4       RESTORE FOR USE BY DMKDSP        @VA13543
 BEGIN APPLY >>> ./ I 466000 $ 466300 300
   END APPLY >>> ./ I 466000 $ 466300 300
 BEGIN APPLY >>> ./ I 467000 $ 467500 500
   END APPLY >>> ./ I 467000 $ 467500 500
Update Succeeded
Update Execution Time 8 milliseconds.