ibm:vm370-lib:cp:dmkvma.assemble_hst
Table of Contents
DMKVMA History
References
- Fixes Applied : 5
- Latest Source Date : Thursday, December 14, 1978
- Last Fix ID : [R13543DK]
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
- R08928DK 601 CORRECT BAD COMMENTS
- R10074DK 604 CHANNEL SET SWITCHING AND MULTIPLE SRF SUPPORT
- R09776DK 609 ABENDPRG005 UNSHARING USER FROM SHARED SEGMENT
- R09775DK 611 UV00368 DMKVMA PLACES INCORRECT SEGMENT NAME IN MSDMKVMA456W MSG
- 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.
ibm/vm370-lib/cp/dmkvma.assemble_hst.txt · Last modified: 2023/08/06 13:37 by Site Administrator