Retro1.org codex

User Tools

Site Tools

Trace: • DMSOLD History
ibm:vm370-lib:cms:dmsold.assemble_hst

Table of Contents

DMSOLD History

References

Update History

CMS File Input : DMSOLD ASSEMBLE
Date : 12/12/1978 8:31:00 AM
VM Context : MAINT(393)
File Name : DMSOLD.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:32 AM
Created : 1/16/2021 7:31:32 AM

Update Order

  1. R08891DS 601 DMSOLD MUST SAVE AND RESTORE THE LOADER CODE IN REFTBL
  2. R09103DS 601 DMSOLD FAILS TO DETECT ERRONEOUS INFO IN TXT FILES SUCH AS ESD ID 0
  3. R09317DS 602 DMSOLD INCORRECTLY RESOLVES WXTRN'S
  4. R11148DS 611 UV00414 LIBRARY NEVER-CALL FUNCTION FAILS IF BUFFER NOT CLEARED
  5. R10619DS 612 CMS LOAD OPTIONS NOAUTO AND NOLIBE NOT RESET BEFORE OS LOAD
  6. R11245DS 612 RLD ENTRY RESOLVED INCORRECTLY IF PRECEDING ONE HAS FLAG '1D'
  7. R11814DS 616 UV01969 CMS USER PROGRAM RUNS ERRONEOUSLY WITH SYSTEM PSW-KEY
  8. R11849DS 616 UV02005 OS LOAD MISHANDLES MULTIPLE RLD REFERENCES TO SAME CONSTANT
  9. R11353DS 619 UV02902 ICS INSERTS CSECT AT WRONG LOCATION
  10. R12751DS 619 UV03722 PROTECT KEY FOR SYSTEM MODULE CHANGED TO USER KEY
  11. R12730DS 619 UV03485
  12. HRC006DS V01 CHANGE ESD TABLE TO 512 ENTRIES

R08891DS

Date Tuesday Dec 19, 1978 12:19:00 PM
Loaded from MAINT(193)
       R08891DS: ./ I 1081000 $ 1081500 500
       R08891DS:          TR    8(1,R12),TRANPR       TRANSLATE FLAG TO INDEX   @VA08891
       R08891DS: ./ D 1085100 $
 BEGIN APPLY >>> ./ I 1081000 $ 1081500 500
   END APPLY >>> ./ I 1081000 $ 1081500 500
 BEGIN APPLY >>> ./ D 1085100 $
   END APPLY >>> ./ D 1085100 $
Update Succeeded
Update Execution Time 23 milliseconds.

R09103DS

Date Friday Jan 26, 1979 01:24:00 AM
Loaded from MAINT(193)
       R09103DS: ./ I 682000 $ 682300 300
       R09103DS:          LTR   R3,R3               IS ESD ID VALID?            @VA09103
       R09103DS:          BNP   BADCRD              NO, THROW IT OUT            @VA09103
 BEGIN APPLY >>> ./ I 682000 $ 682300 300
   END APPLY >>> ./ I 682000 $ 682300 300
Update Succeeded
Update Execution Time 16 milliseconds.

R09317DS

Date Friday Apr 20, 1979 04:19:00 AM
Loaded from MAINT(193)
       R09317DS: ./ R 474000 475000 $ 474000 1000
       R09317DS:          CLI   8(12),X'82'     WAS THIS NAME DEFINED AS COMMON @VA09317
       R09317DS:          BE    COMFIX2         YES IT WAS                      @VA09317
 BEGIN APPLY >>> ./ R 474000 475000 $ 474000 1000
   END APPLY >>> ./ R 474000 475000 $ 474000 1000
Update Succeeded
Update Execution Time 16 milliseconds.

R11148DS

Date Wednesday Apr 09, 1980 03:14:00 AM
Loaded from MAINT(193)
       R11148DS: ./ R 1570000 $ 1570000
       R11148DS:          MVC   OUTBUF(8),=CL8' '   SPACE TO FORM NAME          @VA11148
 BEGIN APPLY >>> ./ R 1570000 $ 1570000
   END APPLY >>> ./ R 1570000 $ 1570000
Update Succeeded
Update Execution Time 23 milliseconds.

R10619DS

Date Wednesday May 07, 1980 04:24:00 AM
Loaded from MAINT(193)
       R10619DS: ./ R 167000 $ 166700 600
       R10619DS:          NI    LDRFLAGS,255-WORKFILE  TURN RLD FLAG OFF NOW    @VA10619
       R10619DS:          NI    LDRFLAGS+1,255-NOAUTO-NOLIBE  ALLOW RESOLUTION  @VA10619X
       R10619DS:                OF UNDEFINED NAMES
 BEGIN APPLY >>> ./ R 167000 $ 166700 600
   END APPLY >>> ./ R 167000 $ 166700 600
Update Succeeded
Update Execution Time 16 milliseconds.

R11245DS

Date Wednesday May 07, 1980 04:24:00 AM
Loaded from MAINT(193)
       R11245DS: ./ R 804000 $ 803300 300
       R11245DS: C5AC1    EQU   *                                               @VA11245
       R11245DS:          ST    R6,SAV67       INDICATE ESID POINTER NOT SAVED  @VA11245
       R11245DS:          LR    R6,R10         POINT TO CURRENT DATA FIELD      @VA11245
       R11245DS: C5AC1A   EQU   *                                               @VA11245
       R11245DS:          LH    R3,0(0,R6)     GET RH ESID                      @VA11245
       R11245DS: ./ R 818000 $ 818000
       R11245DS:          LH    R3,0(0,R6)     TEST IF SD ESIDTB                @VA11245
       R11245DS: ./ R 828000 $ 827500 500
       R11245DS: PLOAD1   EQU   *                                               @VA11245
       R11245DS:          LH    R3,2(0,R6)     GET PH                           @VA11245
       R11245DS:          SR    R6,R6          RESTORE TO ZERO                  @VA11245
       R11245DS: ./ R 868000 869000 $ 867130 130
       R11245DS:          BNO   NXTENTRY       NO, READ NEW DATA FIELD          @VA11245
       R11245DS:          TM    0(R10),X'30'   IF SAME, COMPARE FLAGS           @VA11245
       R11245DS:          BZ    BRTEST1        FIRST ENTRY IS NON-BRANCH        @VA11245
       R11245DS:          TM    4(R10),X'30'   CHECK SECOND ENTRY               @VA11245
       R11245DS:          BNZ   C5AA3          BOTH ARE BRANCH ADCONS           @VA11245
       R11245DS:          B     BRTEST2        MIXED TYPES, REREAD ESID DATA    @VA11245
       R11245DS: BRTEST1  EQU   *                                               @VA11245
       R11245DS:          TM    4(R10),X'30'   CHECK SECOND ENTRY               @VA11245
       R11245DS:          BZ    C5AA3          BOTH ARE NON-BRANCH ADCONS       @VA11245
       R11245DS: BRTEST2  EQU   *                                               @VA11245
       R11245DS:          LH    R4,SPEC+10     GET BYTE COUNT                   @VA11245
       R11245DS:          AR    R4,R5          ADJUST FOR REREADING             @VA11245
       R11245DS:          STH   R4,SPEC+10     STORE ADJUSTED BYTE COUNT        @VA11245
       R11245DS:          L     R6,SAV67       LOAD REGISTER FOR TEST           @VA11245
       R11245DS:          LTR   R6,R6          WAS ESID POINTER SAVED?          @VA11245
       R11245DS:          BNZ   C5AC1A         YES, REREAD RH AND PH            @VA11245
       R11245DS:          LR    R6,R10         NO, SET NEW ESID POINTER         @VA11245
       R11245DS:          SR    R6,R5          POINT BACK TO ESD ID'S           @VA11245
       R11245DS:          ST    R6,SAV67       SAVE THE POINTER                 @VA11245
       R11245DS:          B     C5AC1A         BACK TO REREAD RH AND PH         @VA11245
       R11245DS: NXTENTRY EQU   *                                               @VA11245
       R11245DS:          AR    R10,R5         GET ADDRESS OF NEXT DATA FIELD   @VA11245
       R11245DS: ./ R 884000 $ 883600 600
       R11245DS: CXDTST   EQU   *                                               @VA11245
       R11245DS:          TM    4(R6),X'30'    IS IT A PR CUM LENGTH CONST?     @VA11245
 BEGIN APPLY >>> ./ R 804000 $ 803300 300
   END APPLY >>> ./ R 804000 $ 803300 300
 BEGIN APPLY >>> ./ R 818000 $ 818000
   END APPLY >>> ./ R 818000 $ 818000
 BEGIN APPLY >>> ./ R 828000 $ 827500 500
   END APPLY >>> ./ R 828000 $ 827500 500
 BEGIN APPLY >>> ./ R 868000 869000 $ 867130 130
   END APPLY >>> ./ R 868000 869000 $ 867130 130
 BEGIN APPLY >>> ./ R 884000 $ 883600 600
   END APPLY >>> ./ R 884000 $ 883600 600
Update Succeeded
Update Execution Time 31 milliseconds.

R11814DS

Date Friday Sep 19, 1980 09:04:00 AM
Loaded from MAINT(193)
       R11814DS: ./ I 195000 $ 195125 125
       R11814DS:          CLC   AUSRAREA+1(3),LOCCT+1  LOADING IN USER AREA?    @VA11814
       R11814DS:          BH    LOCTRN         NO, TRANSIENT SPECIFIED          @VA11814
       R11814DS:          NI    PROTFLAG,X'FF'-PRFUSYS  RESET SYSTEM FLAG       @VA11814
       R11814DS:          B     TSTRESET       CONTINUE                         @VA11814
       R11814DS: LOCTRN   EQU   *                                               @VA11814
       R11814DS:          NI    PROTFLAG,X'FF'-PRFTSYS RESET FLAG FOR TRANSIENT @VA11814
       R11814DS: TSTRESET EQU   *                                               @VA11814
 BEGIN APPLY >>> ./ I 195000 $ 195125 125
   END APPLY >>> ./ I 195000 $ 195125 125
Update Succeeded
Update Execution Time 23 milliseconds.

R11849DS

Date Friday Sep 19, 1980 09:05:00 AM
Loaded from MAINT(193)
       R11849DS: ./ I 803900 $ 804050
       R11849DS:          LR    R11,R10        SAVE PTR TO CURRENT DATA FIELD   @VA11849
       R11849DS: ./ R 868430 868560 $ 868430 130
       R11849DS:          LH    R4,SPEC+10     GET REMAINING BYTES IN RLD CARD  @VA11849
       R11849DS:          AR    R4,R5          ADD 4 TO ADJUST FOR REREADING    @VA11849
       R11849DS: ./ R 869210 869340 $ 869280
       R11849DS:          LR    R6,R11         POINT BACK TO CURRENT ESID'S     @VA11849
 BEGIN APPLY >>> ./ I 803900 $ 804050
   END APPLY >>> ./ I 803900 $ 804050
 BEGIN APPLY >>> ./ R 868430 868560 $ 868430 130
   END APPLY >>> ./ R 868430 868560 $ 868430 130
 BEGIN APPLY >>> ./ R 869210 869340 $ 869280
   END APPLY >>> ./ R 869210 869340 $ 869280
Update Succeeded
Update Execution Time 23 milliseconds.

R11353DS

Date Tuesday Mar 17, 1981 10:24:00 AM
Loaded from MAINT(193)
       R11353DS: ./ * DUMMY UPDATE TO FORCE REASSEMBLY
 BEGIN APPLY >>> ./ * DUMMY UPDATE TO FORCE REASSEMBLY
     Comment >>> ./ * DUMMY UPDATE TO FORCE REASSEMBLY
   END APPLY >>> ./ * DUMMY UPDATE TO FORCE REASSEMBLY
Update Succeeded
Update Execution Time 8 milliseconds.

R12751DS

Date Tuesday Mar 17, 1981 10:24:00 AM
Loaded from MAINT(193)
       R12751DS: ./ I 195000 $ 195025 25
       R12751DS: * WHEN A SYSTEM MODULE IN EITHER THE USER AREA OR THE TRANSIENT AREA
       R12751DS: * IS TO BE REPLACED, THE ASSOCIATED PROTECTION FLAG MUST BE RESET.
       R12751DS:          CLC   FREELOWE+1(3),LOCCT+1  LOADING ABOVE USER AREA? @VA12751
       R12751DS:          BNH   TSTRESET       YES, DON'T RESET FLAG            @VA12751
       R12751DS: ./ R 195250 $ 195250
       R12751DS:          BH    NOTUSER        NO, CHECK FOR TRANSIENT          @VA12751
       R12751DS: ./ R 195625 $ 195530 30
       R12751DS: NOTUSER  EQU   *                                               @VA12751
       R12751DS:          LA    R6,X'01E0'     LOAD REGISTER FOR TEST           @VA12751
       R12751DS:          CLM   R6,M2,LOCCT+1  ABOVE TRANSIENT AREA?            @VA12751
       R12751DS:          BE    TSTRESET       DON'T RESET FLAG                 @VA12751
       R12751DS:          CLM   R6,M1,LOCCT+2  IN LOW-CORE FREE STORAGE?        @VA12751
       R12751DS:          BH    TSTRESET       YES, CONTINUE                    @VA12751
       R12751DS: ./ R 1493000 1494000 $ 1493500 500
       R12751DS: M1       EQU   1              BINARY MASK '0001'               @VA12751
       R12751DS: M2       EQU   2              BINARY MASK '0010'               @VA12751
       R12751DS:          EJECT                                                 @VA12751
 BEGIN APPLY >>> ./ I 195000 $ 195025 25
   END APPLY >>> ./ I 195000 $ 195025 25
 BEGIN APPLY >>> ./ R 195250 $ 195250
   END APPLY >>> ./ R 195250 $ 195250
 BEGIN APPLY >>> ./ R 195625 $ 195530 30
   END APPLY >>> ./ R 195625 $ 195530 30
 BEGIN APPLY >>> ./ R 1493000 1494000 $ 1493500 500
   END APPLY >>> ./ R 1493000 1494000 $ 1493500 500
Update Succeeded
Update Execution Time 31 milliseconds.

R12730DS

Date Tuesday Mar 17, 1981 10:02:00 AM
Loaded from MAINT(193)
       R12730DS: ./ I 362000 $ 362100 100
       R12730DS: SAVELNTH EQU   *   RETURN HERE FROM SEARCH IF NAME NOT FOUND   @VA12730
       R12730DS:          STCM  R6,M7,REFADDR(R12)  SAVE CS LENGTH IN REFTBL    @VA12730
       R12730DS:          CLI   SPEC+15,COMMA  REQUEST FOR NEW CSECT?           @VA12730
       R12730DS:          BE    CSECTDEF       YES, SET CSECT FLAG              @VA12730
       R12730DS:          OI    REFLG2(R12),REFICS  ICS CARD WAITING FOR MATCH  @VA12730
       R12730DS:          BR    R14            READ NEXT RECORD                 @VA12730
       R12730DS: CSECTDEF EQU   *                                               @VA12730
       R12730DS:          OI    REFLG2(R12),REFCSD  IDENTIFY CSECT ENTRY        @VA12730
       R12730DS: ./ R 381000 384000 $ 380500 500
       R12730DS: SYMDEF   EQU   *          NAME FOUND IN LOADER TABLE           @VA12730
       R12730DS:          CLI   SPEC+15,COMMA  NEW CSECT FOR INSERTION?         @VA12730
       R12730DS:          BE    BADICS         ERROR; MATCHING NAME IN TABLE    @VA12730
       R12730DS:          TM    8(R12),X'80'   IS SYMBOL UNDEFINED?             @VA12730
       R12730DS:          BO    SAVELNTH       YES, FLAG ICS REQUEST            @VA12730
       R12730DS:          TM    REFLG2(R12),REFICS  IS ICS FOR SAME CSECT?      @VA12730
       R12730DS:          BO    SAVELNTH       GET UPDATED LENGTH               @VA12730
       R12730DS:          B     BADICS         NAME DEFINED; INVALID ICS CARD   @VA12730
       R12730DS: ./ R 449000 $ 449000
       R12730DS: *         ESD TYPE 0 + 4 ROUTINE (SEGMENT NAME + PRIVATE CODE)
       R12730DS: ./ I 475000 $ 475060 60
       R12730DS:          TM    REFLG2(R12),REFICS  UNMATCHED ICS ENTRY?        @VA12730
       R12730DS:          BZ    TSTUNDEF       OTHERWISE UNDEFINED OR DUPLICATE @VA12730
       R12730DS:          NI    REFLG2(R12),255-REFICS   RESET UNMATCHED FLAG   @VA12730
       R12730DS:          CLC   SPEC+28(4),BLANKS   LENGTH FIELD IN END CARD?   @VA12730
       R12730DS:          BE    BADICS         CANNOT HANDLE ICS REQUEST        @VA12730
       R12730DS:          ICM   R6,M7,REFADDR(R12)  LOAD NEW LENGTH FOR CSECT   @VA12730
       R12730DS:          MVC   REFADDR(3,R12),ZEROES  CLEAR REFTBL FIELD       @VA12730
       R12730DS:          LA    R14,C3AD4      SET LINKAGE                      @VA12730
       R12730DS:          B     CSECTDEF       GO TO DEFINITION ROUTINE         @VA12730
       R12730DS: BADICS   EQU   *                                               @VA12730
       R12730DS:          LA    R14,N03        SET RETURN ADDRESS FOR LIO       @VA12730
       R12730DS:          LA    R5,ERRORB      SET ERROR FUNCTION FOR LIO       @VA12730
       R12730DS:          L     R11,ADMSLIO    TYPE MESSAGE, SET RETURN CODE,   @VA12730
       R12730DS:          BR    R11            AND EXIT                         @VA12730
       R12730DS: TSTUNDEF EQU   *                                               @VA12730
       R12730DS: ./ R 513000 $ 513000
       R12730DS:          OI    REFLG2(R12),REFNEG  NEGATIVE RELOCATION FACTOR  @VA12730
       R12730DS: ./ R 515000 $ 514600 600
       R12730DS: C3AC3    EQU   *                                               @VA12730
       R12730DS:          OI    REFLG2(R12),REFCSD  INDICATE CSECT              @VA12730
       R12730DS: ./ I 607000 $ 607300 300
       R12730DS:          TM    REFLG2(R12),REFICS  ICS FLAG SET ON?            @VA12730
       R12730DS:          BO    BADICS         INVALID MATCH                    @VA12730
       R12730DS: ./ I 625000 $ 625300 300
       R12730DS:          TM    REFLG2(R12),REFICS  ICS FLAG SET ON?            @VA12730
       R12730DS:          BO    BADICS         INVALID MATCH                    @VA12730
       R12730DS: ./ R 825000 $ 825000
       R12730DS:          TM    REFLG2(R12),REFNEG  NEGATIVE RELOCATION FACTOR? @VA12730
       R12730DS: ./ I 888000 $ 888300 300
       R12730DS:          TM    REFLG2(R12),REFICS  ICS FLAG SET ON?            @VA12730
       R12730DS:          BO    BADICS         INVALID MATCH                    @VA12730
       R12730DS: ./ I 920000 $ 920300 300
       R12730DS:          LA    R1,7(0,R1)     ALIGN TO DOUBLEWORD BOUNDARY     @VA12730
       R12730DS:          N     R1,DBLBND      REMOVE EXCESS BITS               @VA12730
       R12730DS: ./ R 995000 $ 995000
       R12730DS:          CLC   12(4,R3),ZEROES     ADDRESS FILLED IN?          @VA12730
       R12730DS: ./ R 1024000 $ 1024000
       R12730DS:          TM    REFLG2(R12),REFLBT NAME FOUND IN DMSLIB SEARCH? @VA12730
       R12730DS: ./ I 1492000 $ 1492100 100
       R12730DS: COMMA    EQU   X'6B'          SPECIAL CHARACTER: ','           @VA12730
       R12730DS: ZEROES   DC    F'0'           FOUR BYTES OF ZEROES             @VA12730
       R12730DS: M7       EQU   7              BINARY MASK '0111'               @VA12730
 BEGIN APPLY >>> ./ I 362000 $ 362100 100
   END APPLY >>> ./ I 362000 $ 362100 100
 BEGIN APPLY >>> ./ R 381000 384000 $ 380500 500
   END APPLY >>> ./ R 381000 384000 $ 380500 500
 BEGIN APPLY >>> ./ R 449000 $ 449000
   END APPLY >>> ./ R 449000 $ 449000
 BEGIN APPLY >>> ./ I 475000 $ 475060 60
   END APPLY >>> ./ I 475000 $ 475060 60
 BEGIN APPLY >>> ./ R 513000 $ 513000
   END APPLY >>> ./ R 513000 $ 513000
 BEGIN APPLY >>> ./ R 515000 $ 514600 600
   END APPLY >>> ./ R 515000 $ 514600 600
 BEGIN APPLY >>> ./ I 607000 $ 607300 300
   END APPLY >>> ./ I 607000 $ 607300 300
 BEGIN APPLY >>> ./ I 625000 $ 625300 300
   END APPLY >>> ./ I 625000 $ 625300 300
 BEGIN APPLY >>> ./ R 825000 $ 825000
   END APPLY >>> ./ R 825000 $ 825000
 BEGIN APPLY >>> ./ I 888000 $ 888300 300
   END APPLY >>> ./ I 888000 $ 888300 300
 BEGIN APPLY >>> ./ I 920000 $ 920300 300
   END APPLY >>> ./ I 920000 $ 920300 300
 BEGIN APPLY >>> ./ R 995000 $ 995000
   END APPLY >>> ./ R 995000 $ 995000
 BEGIN APPLY >>> ./ R 1024000 $ 1024000
   END APPLY >>> ./ R 1024000 $ 1024000
 BEGIN APPLY >>> ./ I 1492000 $ 1492100 100
   END APPLY >>> ./ I 1492000 $ 1492100 100
Update Succeeded
Update Execution Time 55 milliseconds.

HRC006DS

Date Friday Feb 10, 2006 05:38:00 AM
Loaded from MAINT(093)
       HRC006DS: ./ * FORCE REASSEMBLY FOR HRC006DS
 BEGIN APPLY >>> ./ * FORCE REASSEMBLY FOR HRC006DS
     Comment >>> ./ * FORCE REASSEMBLY FOR HRC006DS
   END APPLY >>> ./ * FORCE REASSEMBLY FOR HRC006DS
Update Succeeded
Update Execution Time 23 milliseconds.
ibm/vm370-lib/cms/dmsold.assemble_hst.txt · Last modified: 2023/08/06 13:35 by Site Administrator