• Abstract / Synopsis of DMSLDR
• Latest Source of DMSLDR
• Fixes Applied : 15
• Latest Source Date : Tuesday, December 12, 1978
• Last Fix ID : [HRC309DS]

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

1. GCC002 601 MAKE TABLE 512
2. R08891DS 601 DMSLDR SHOULD NOT HAVE BEEN AFFECTED BY V08338
3. R09103DS 601 DMSLDR FAILS TO DETECT ERRONEOUS INFO IN TXT FILES SUCH AS ESD ID 0
4. R09317DS 602 DMSLDR INCORRECTLY RESOLVES WXTRN'S
5. R09702DS 609 LOAD COMMAND WITH START OPTION SETS INVALID ENTRY POINT
6. R10086DS 610 RLD ENTRY RESOLVED INCORRECTLY IF PRECEDING ONE HAS FLAG '1D'
7. R10615DS 610 NOLIBE OPTION FOR LOAD COMMAND RESET BEFORE INCLUDE COMMAND ISSUED
8. R09901DS 611 NEVER-CALL FUNCTION FAILS IF LIBRARY REFERENCE STORED INCORRECTLY
9. R11667DS 616 UV01919 CMS USER PROGRAM RUNS ERRONEOUSLY WITH SYSTEM PSW-KEY
10. R11838DS 616 UV02002 LOADER MISHANDLES MULTIPLE RLD REFERENCES TO SAME CONSTANT
11. R11353DS 619 UV02902 ICS STATEMENT INSERTS CSECT AT WRONG LOCATION
12. R12428DS 619 UV00000 PROT EXCEP
13. R14133DS 624 UV05559 DMSERD107S IF YOU START PLI PROGAM MANY TIMES
14. HRC006DS V01 CHANGE ESD TABLE TO 512 ENTRIES
15. HRC309DS V03 change START command to pass EPLIST

Date Monday Jun 07, 2004 07:31:00 PM
Loaded from MAINT(299)

       GCC002  : ./ I 535000 $ 535010 10
       GCC002  :          XC    ESIDTB+512(256),ESIDTB+512  CLEAR ESDID TABLE
       GCC002  :          XC    ESIDTB+768(256),ESIDTB+768  CLEAR ESID TABLE
       GCC002  : ./ D 888000 889000
       GCC002  : ./ I 894000 $ 894300 300
       GCC002  :          CH    R2,HW511       COMPARE WITH 255                VA13904
       GCC002  :          BH    ESDTBOVR       ERROR IF GT 511                 VA13904
       GCC002  : ./ I 1318000 $ 1318010 10
       GCC002  :          XC    ESIDTB+512(256),ESIDTB+512  CLEAR ESID TABLE
       GCC002  :          XC    ESIDTB+768(256),ESIDTB+768  CLEAR ESID TABLE
       GCC002  : ./ I 1725000 $ 1725050
       GCC002  : HW511    DC    H'511'         HALFWORD '511'                  VA13904
       GCC002  : ./ R 1726000 $ 1726000 50
       GCC002  :          SPACE
       GCC002  :          DS    0F                                              @VA13904
       GCC002  : PAGBOUND DC    X'00FFF000'    TO TRUNCATE TO PAGE BOUNDARY     @VM03154
       GCC002  : DBLBND   DC    X'00FFFFF8'    MASK FOR DBL WD ALIGN
       GCC002  : ./ D 1784000
 BEGIN APPLY >>> ./ I 535000 $ 535010 10
   END APPLY >>> ./ I 535000 $ 535010 10
 BEGIN APPLY >>> ./ D 888000 889000
   END APPLY >>> ./ D 888000 889000
 BEGIN APPLY >>> ./ I 894000 $ 894300 300
   END APPLY >>> ./ I 894000 $ 894300 300
 BEGIN APPLY >>> ./ I 1318000 $ 1318010 10
   END APPLY >>> ./ I 1318000 $ 1318010 10
 BEGIN APPLY >>> ./ I 1725000 $ 1725050
   END APPLY >>> ./ I 1725000 $ 1725050
 BEGIN APPLY >>> ./ R 1726000 $ 1726000 50
   END APPLY >>> ./ R 1726000 $ 1726000 50
 BEGIN APPLY >>> ./ D 1784000
   END APPLY >>> ./ D 1784000
Update Succeeded
Update Execution Time 23 milliseconds.

Date Tuesday Dec 19, 1978 12:19:00 PM
Loaded from MAINT(193)

       R08891DS: ./ I 201000 $ 201500
       R08891DS:          TR    8(1,R12),TRANPR       TRANSLATE FLAG TO INDEX   @VA08891
       R08891DS: ./ D 205100 $
 BEGIN APPLY >>> ./ I 201000 $ 201500
   END APPLY >>> ./ I 201000 $ 201500
 BEGIN APPLY >>> ./ D 205100 $
   END APPLY >>> ./ D 205100 $
Update Succeeded
Update Execution Time 23 milliseconds.

Date Friday Jan 26, 1979 01:24:00 AM
Loaded from MAINT(193)

       R09103DS: ./ I 1048000 $ 1048300 300
       R09103DS:          LTR   R3,R3               IS ESD ID VALID?            @VA09103
       R09103DS:          BNP   BADCRD              NO, THROW IT OUT            @VA09103
 BEGIN APPLY >>> ./ I 1048000 $ 1048300 300
   END APPLY >>> ./ I 1048000 $ 1048300 300
Update Succeeded
Update Execution Time 16 milliseconds.

Date Friday Apr 20, 1979 04:19:00 AM
Loaded from MAINT(193)

       R09317DS: ./ R 839000 840000 $ 839000 1000
       R09317DS:          CLI   8(12),X'82'     WAS THIS NAME DEFINED AS COMMON @VA09317
       R09317DS:          BE    COMFIX2         YES IT WAS                      @VA09317
 BEGIN APPLY >>> ./ R 839000 840000 $ 839000 1000
   END APPLY >>> ./ R 839000 840000 $ 839000 1000
Update Succeeded
Update Execution Time 23 milliseconds.

Date Tuesday Jan 22, 1980 01:07:00 AM
Loaded from MAINT(193)

       R09702DS: ./ I 273000 $ 273500
       R09702DS:          MVI   OSSFLAGS,X'00'  CLEAR OS FLAGS                  @VA09702
 BEGIN APPLY >>> ./ I 273000 $ 273500
   END APPLY >>> ./ I 273000 $ 273500
Update Succeeded
Update Execution Time 16 milliseconds.

Date Wednesday Feb 27, 1980 02:04:00 AM
Loaded from MAINT(193)

       R10086DS: ./ R 1188000 $ 1187300 300
       R10086DS: C5AC1    EQU   *                                               @VA10086
       R10086DS:          ST    R6,SAV67       INDICATE ESID POINTER NOT SAVED  @VA10086
       R10086DS:          LR    R6,R10         POINT TO CURRENT DATA FIELD      @VA10086
       R10086DS: C5AC1A   EQU   *                                               @VA10086
       R10086DS:          LH    R3,0(0,R6)     GET RH ESID                      @VA10086
       R10086DS: ./ R 1202000 $ 1202000
       R10086DS:          LH    R3,0(0,R6)     TEST IF SD ESIDTB                @VA10086
       R10086DS: ./ R 1212000 $ 1211500 500
       R10086DS: PLOAD1   EQU   *                                               @VA10086
       R10086DS:          LH    R3,2(0,R6)     GET PH                           @VA10086
       R10086DS:          SR    R6,R6          RESTORE TO ZERO                  @VA10086
       R10086DS: ./ R 1252000 1253000 $ 1251130 130
       R10086DS:          BNO   NXTENTRY       NO, READ NEW DATA FIELD          @VA10086
       R10086DS:          TM    0(R10),X'30'   IF SAME, COMPARE FLAGS           @VA10086
       R10086DS:          BZ    BRTEST1        FIRST ENTRY IS NON-BRANCH        @VA10086
       R10086DS:          TM    4(R10),X'30'   CHECK SECOND ENTRY               @VA10086
       R10086DS:          BNZ   C5AA3          BOTH ARE BRANCH ADCONS           @VA10086
       R10086DS:          B     BRTEST2        MIXED TYPES, REREAD ESID DATA    @VA10086
       R10086DS: BRTEST1  EQU   *                                               @VA10086
       R10086DS:          TM    4(R10),X'30'   CHECK SECOND ENTRY               @VA10086
       R10086DS:          BZ    C5AA3          BOTH ARE NON-BRANCH ADCONS       @VA10086
       R10086DS: BRTEST2  EQU   *                                               @VA10086
       R10086DS:          LH    R4,SPEC+10     GET BYTE COUNT                   @VA10086
       R10086DS:          AR    R4,R5          ADJUST FOR REREADING             @VA10086
       R10086DS:          STH   R4,SPEC+10     STORE ADJUSTED BYTE COUNT        @VA10086
       R10086DS:          L     R6,SAV67       LOAD REGISTER FOR TEST           @VA10086
       R10086DS:          LTR   R6,R6          WAS ESID POINTER SAVED?          @VA10086
       R10086DS:          BNZ   C5AC1A         YES, REREAD RH AND PH            @VA10086
       R10086DS:          LR    R6,R10         NO, SET NEW ESID POINTER         @VA10086
       R10086DS:          SR    R6,R5          POINT BACK TO ESD ID'S           @VA10086
       R10086DS:          ST    R6,SAV67       SAVE THE POINTER                 @VA10086
       R10086DS:          B     C5AC1A         BACK TO REREAD RH AND PH         @VA10086
       R10086DS: NXTENTRY EQU   *                                               @VA10086
       R10086DS:          AR    R10,R5         GET ADDRESS OF NEXT DATA FIELD   @VA10086
       R10086DS: ./ R 1268000 $ 1267600 600
       R10086DS: CXDTST   EQU   *                                               @VA10086
       R10086DS:          TM    4(R6),X'30'    IS IT A PR CUM LENGTH CONST?     @VA10086
 BEGIN APPLY >>> ./ R 1188000 $ 1187300 300
   END APPLY >>> ./ R 1188000 $ 1187300 300
 BEGIN APPLY >>> ./ R 1202000 $ 1202000
   END APPLY >>> ./ R 1202000 $ 1202000
 BEGIN APPLY >>> ./ R 1212000 $ 1211500 500
   END APPLY >>> ./ R 1212000 $ 1211500 500
 BEGIN APPLY >>> ./ R 1252000 1253000 $ 1251130 130
   END APPLY >>> ./ R 1252000 1253000 $ 1251130 130
 BEGIN APPLY >>> ./ R 1268000 $ 1267600 600
   END APPLY >>> ./ R 1268000 $ 1267600 600
Update Succeeded
Update Execution Time 23 milliseconds.

Date Thursday Mar 13, 1980 03:06:00 AM
Loaded from MAINT(193)

       R10615DS: ./ D 1524000
 BEGIN APPLY >>> ./ D 1524000
   END APPLY >>> ./ D 1524000
Update Succeeded
Update Execution Time 16 milliseconds.

Date Wednesday Apr 09, 1980 03:14:00 AM
Loaded from MAINT(193)

       R09901DS: ./ R 1893000 $ 1893000
       R09901DS:          MVC   OUTBUF(8),=CL8' '   SPACE TO FORM NAME          @VA09901
 BEGIN APPLY >>> ./ R 1893000 $ 1893000
   END APPLY >>> ./ R 1893000 $ 1893000
Update Succeeded
Update Execution Time 23 milliseconds.

Date Friday Sep 19, 1980 08:08:00 AM
Loaded from MAINT(193)

       R11667DS: ./ I 566000 $ 566125 125
       R11667DS:          CLC   AUSRAREA+1(3),LOCCT+1  LOADING IN USER AREA?    @VA11667
       R11667DS:          BH    LOCTRN         NO, TRANSIENT SPECIFIED          @VA11667
       R11667DS:          NI    PROTFLAG,X'FF'-PRFUSYS  RESET SYSTEM FLAG       @VA11667
       R11667DS:          B     TSTRESET       CONTINUE                         @VA11667
       R11667DS: LOCTRN   EQU   *                                               @VA11667
       R11667DS:          NI    PROTFLAG,X'FF'-PRFTSYS RESET FLAG FOR TRANSIENT @VA11667
       R11667DS: TSTRESET EQU   *                                               @VA11667
 BEGIN APPLY >>> ./ I 566000 $ 566125 125
   END APPLY >>> ./ I 566000 $ 566125 125
Update Succeeded
Update Execution Time 16 milliseconds.

Date Friday Sep 19, 1980 09:04:00 AM
Loaded from MAINT(193)

       R11838DS: ./ I 1187900 $ 1188050
       R11838DS:          LR    R11,R10        SAVE PTR TO CURRENT DATA FIELD   @VA11838
       R11838DS: ./ R 1252430 1252560 $ 1252430 130
       R11838DS:          LH    R4,SPEC+10     GET REMAINING BYTES IN RLD CARD  @VA11838
       R11838DS:          AR    R4,R5          ADD 4 TO ADJUST FOR REREADING    @VA11838
       R11838DS: ./ R 1253210 1253340 $ 1253280
       R11838DS:          LR    R6,R11         POINT BACK TO CURRENT ESID'S     @VA11838
 BEGIN APPLY >>> ./ I 1187900 $ 1188050
   END APPLY >>> ./ I 1187900 $ 1188050
 BEGIN APPLY >>> ./ R 1252430 1252560 $ 1252430 130
   END APPLY >>> ./ R 1252430 1252560 $ 1252430 130
 BEGIN APPLY >>> ./ R 1253210 1253340 $ 1253280
   END APPLY >>> ./ R 1253210 1253340 $ 1253280
Update Succeeded
Update Execution Time 23 milliseconds.

Date Tuesday Mar 17, 1981 10:32:00 AM
Loaded from MAINT(193)

       R11353DS: ./ I 727000 $ 727100 100
       R11353DS: SAVELNTH EQU   *   RETURN HERE FROM SEARCH IF NAME NOT FOUND   @VA11353
       R11353DS:          STCM  R6,M7,REFADDR(R12)  SAVE CS LENGTH IN REFTBL    @VA11353
       R11353DS:          CLI   SPEC+15,COMMA  REQUEST FOR NEW CSECT?           @VA11353
       R11353DS:          BE    CSECTDEF       YES, SET CSECT FLAG              @VA11353
       R11353DS:          OI    REFLG2(R12),REFICS  ICS CARD WAITING FOR MATCH  @VA11353
       R11353DS:          BR    R14            READ NEXT RECORD                 @VA11353
       R11353DS: CSECTDEF EQU   *                                               @VA11353
       R11353DS:          OI    REFLG2(R12),REFCSD  IDENTIFY CSECT ENTRY        @VA11353
       R11353DS: ./ R 746000 749000 $ 745500 500
       R11353DS: SYMDEF   EQU   *          NAME FOUND IN LOADER TABLE           @VA11353
       R11353DS:          CLI   SPEC+15,COMMA  NEW CSECT FOR INSERTION?         @VA11353
       R11353DS:          BE    BADICS         ERROR; MATCHING NAME IN TABLE    @VA11353
       R11353DS:          TM    8(R12),X'80'   IS SYMBOL UNDEFINED?             @VA11353
       R11353DS:          BO    SAVELNTH       YES, FLAG ICS REQUEST            @VA11353
       R11353DS:          TM    REFLG2(R12),REFICS  IS ICS FOR SAME CSECT?      @VA11353
       R11353DS:          BO    SAVELNTH       GET UPDATED LENGTH               @VA11353
       R11353DS:          B     BADICS         NAME DEFINED; INVALID ICS CARD   @VA11353
       R11353DS: ./ R 814000 $ 814000
       R11353DS: *         ESD TYPE 0 + 4 ROUTINE (SEGMENT NAME + PRIVATE CODE)
       R11353DS: ./ I 840000 $ 840060 60
       R11353DS:          TM    REFLG2(R12),REFICS  UNMATCHED ICS ENTRY?        @VA11353
       R11353DS:          BZ    TSTUNDEF       OTHERWISE UNDEFINED OR DUPLICATE @VA11353
       R11353DS:          NI    REFLG2(R12),255-REFICS   RESET UNMATCHED FLAG   @VA11353
       R11353DS:          CLC   SPEC+28(4),BLANKS   LENGTH FIELD IN END CARD?   @VA11353
       R11353DS:          BE    BADICS         CANNOT HANDLE ICS REQUEST        @VA11353
       R11353DS:          ICM   R6,M7,REFADDR(R12)  LOAD NEW LENGTH FOR CSECT   @VA11353
       R11353DS:          MVC   REFADDR(3,R12),ZEROES  CLEAR REFTBL FIELD       @VA11353
       R11353DS:          LA    R14,C3AD4      SET LINKAGE                      @VA11353
       R11353DS:          B     CSECTDEF       GO TO DEFINITION ROUTINE         @VA11353
       R11353DS: BADICS   EQU   *                                               @VA11353
       R11353DS:          LA    R14,N03        SET RETURN ADDRESS FOR LIO       @VA11353
       R11353DS:          LA    R5,ERRORB      SET ERROR FUNCTION FOR LIO       @VA11353
       R11353DS:          L     R11,ALDRIO     TYPE MESSAGE, SET RETURN CODE,   @VA11353
       R11353DS:          BR    R11            AND EXIT                         @VA11353
       R11353DS: TSTUNDEF EQU   *                                               @VA11353
       R11353DS: ./ R 879000 $ 879000
       R11353DS:          OI    REFLG2(R12),REFNEG  NEGATIVE RELOCATION FACTOR  @VA11353
       R11353DS: ./ R 881000 $ 880600 600
       R11353DS: C3AC3    EQU   *                                               @VA11353
       R11353DS:          OI    REFLG2(R12),REFCSD  INDICATE CSECT              @VA11353
       R11353DS: ./ I 973000 $ 973300 300
       R11353DS:          TM    REFLG2(R12),REFICS  ICS FLAG SET ON?            @VA11353
       R11353DS:          BO    BADICS         INVALID MATCH                    @VA11353
       R11353DS: ./ I 991000 $ 991300 300
       R11353DS:          TM    REFLG2(R12),REFICS  ICS FLAG SET ON?            @VA11353
       R11353DS:          BO    BADICS         INVALID MATCH                    @VA11353
       R11353DS: ./ R 1074000 $ 1074000
       R11353DS:          CLC   AOSMODL(4),ZEROES   OS SIM MODULE PRESENT?      @VA11353
       R11353DS: ./ R 1209000 $ 1209000
       R11353DS:          TM    REFLG2(R12),REFNEG  NEGATIVE RELOCATION FACTOR? @VA11353
       R11353DS: ./ I 1272000 $ 1272300 300
       R11353DS:          TM    REFLG2(R12),REFICS  ICS FLAG SET ON?            @VA11353
       R11353DS:          BO    BADICS         INVALID MATCH                    @VA11353
       R11353DS: ./ I 1299000 $ 1299300 300
       R11353DS:          LA    R1,7(0,R1)     ALIGN TO DOUBLEWORD BOUNDARY     @VA11353
       R11353DS:          N     R1,DBLBND      REMOVE EXCESS BITS               @VA11353
       R11353DS: ./ R 1372000 $ 1372000
       R11353DS:          CLC   12(4,R3),ZEROES     ADDRESS FILLED IN?          @VA11353
       R11353DS: ./ R 1414000 $ 1414000
       R11353DS:          TM    REFLG2(R12),REFLBT NAME FOUND IN DMSLIB SEARCH? @VA11353
       R11353DS: ./ I 1930300 $ 1930400 100
       R11353DS: COMMA    EQU   X'6B'          SPECIAL CHARACTER: ','           @VA11353
       R11353DS: ZEROES   DC    F'0'           FOUR BYTES OF ZEROES             @VA11353
       R11353DS: M7       EQU   7              BINARY MASK '0111'               @VA11353
 BEGIN APPLY >>> ./ I 727000 $ 727100 100
   END APPLY >>> ./ I 727000 $ 727100 100
 BEGIN APPLY >>> ./ R 746000 749000 $ 745500 500
   END APPLY >>> ./ R 746000 749000 $ 745500 500
 BEGIN APPLY >>> ./ R 814000 $ 814000
   END APPLY >>> ./ R 814000 $ 814000
 BEGIN APPLY >>> ./ I 840000 $ 840060 60
   END APPLY >>> ./ I 840000 $ 840060 60
 BEGIN APPLY >>> ./ R 879000 $ 879000
   END APPLY >>> ./ R 879000 $ 879000
 BEGIN APPLY >>> ./ R 881000 $ 880600 600
   END APPLY >>> ./ R 881000 $ 880600 600
 BEGIN APPLY >>> ./ I 973000 $ 973300 300
   END APPLY >>> ./ I 973000 $ 973300 300
 BEGIN APPLY >>> ./ I 991000 $ 991300 300
   END APPLY >>> ./ I 991000 $ 991300 300
 BEGIN APPLY >>> ./ R 1074000 $ 1074000
   END APPLY >>> ./ R 1074000 $ 1074000
 BEGIN APPLY >>> ./ R 1209000 $ 1209000
   END APPLY >>> ./ R 1209000 $ 1209000
 BEGIN APPLY >>> ./ I 1272000 $ 1272300 300
   END APPLY >>> ./ I 1272000 $ 1272300 300
 BEGIN APPLY >>> ./ I 1299000 $ 1299300 300
   END APPLY >>> ./ I 1299000 $ 1299300 300
 BEGIN APPLY >>> ./ R 1372000 $ 1372000
   END APPLY >>> ./ R 1372000 $ 1372000
 BEGIN APPLY >>> ./ R 1414000 $ 1414000
   END APPLY >>> ./ R 1414000 $ 1414000
 BEGIN APPLY >>> ./ I 1930300 $ 1930400 100
   END APPLY >>> ./ I 1930300 $ 1930400 100
Update Succeeded
Update Execution Time 55 milliseconds.

Date Tuesday Mar 10, 1981 03:10:00 AM
Loaded from MAINT(193)

       R12428DS: ./ I 566000 $ 566025 25
       R12428DS: * WHEN A SYSTEM MODULE IN EITHER THE USER AREA OR THE TRANSIENT AREA
       R12428DS: * IS TO BE REPLACED, THE ASSOCIATED PROTECTION FLAG MUST BE RESET.
       R12428DS:          CLC   FREELOWE+1(3),LOCCT+1  LOADING ABOVE USER AREA? @VA12428
       R12428DS:          BNH   TSTRESET       YES, DON'T RESET FLAG            @VA12428
       R12428DS: ./ R 566250 $ 566250
       R12428DS:          BH    NOTUSER        NO, CHECK FOR TRANSIENT          @VA12428
       R12428DS: ./ R 566625 $ 566530 30
       R12428DS: NOTUSER  EQU   *                                               @VA12428
       R12428DS:          LA    R6,X'01E0'     LOAD REGISTER FOR TEST           @VA12428
       R12428DS:          CLM   R6,M2,LOCCT+1  ABOVE TRANSIENT AREA?            @VA12428
       R12428DS:          BE    TSTRESET       DON'T RESET FLAG                 @VA12428
       R12428DS:          CLM   R6,M1,LOCCT+2  IN LOW-CORE FREE STORAGE?        @VA12428
       R12428DS:          BH    TSTRESET       YES, CONTINUE                    @VA12428
       R12428DS: ./ I 1930200 $ 1930220 20
       R12428DS: M1       EQU   1              BINARY MASK '0001'               @VA12428
       R12428DS: M2       EQU   2              BINARY MASK '0010'               @VA12428
 BEGIN APPLY >>> ./ I 566000 $ 566025 25
   END APPLY >>> ./ I 566000 $ 566025 25
 BEGIN APPLY >>> ./ R 566250 $ 566250
   END APPLY >>> ./ R 566250 $ 566250
 BEGIN APPLY >>> ./ R 566625 $ 566530 30
   END APPLY >>> ./ R 566625 $ 566530 30
 BEGIN APPLY >>> ./ I 1930200 $ 1930220 20
   END APPLY >>> ./ I 1930200 $ 1930220 20
Update Succeeded
Update Execution Time 31 milliseconds.

Date Thursday Oct 15, 1981 05:00:00 PM
Loaded from MAINT(193)

       R14133DS: ./ R 00194000          $ 194000 1000               XEDIT 10/13/81 14:22:42
       R14133DS:          NI    LDRFLAGS,255-COMMONEX RESET COMMON BIT          @VA14133
       R14133DS: ./ R 00213000          $ 213000 1000               XEDIT 10/13/81 14:22:42
       R14133DS:          NI    LDRFLAGS,255-PREXIST   RESET PR PENDING BIT     @VA14133
 BEGIN APPLY >>> ./ R 00194000          $ 194000 1000               XEDIT 10/13/81 14:22:42
   END APPLY >>> ./ R 00194000          $ 194000 1000               XEDIT 10/13/81 14:22:42
 BEGIN APPLY >>> ./ R 00213000          $ 213000 1000               XEDIT 10/13/81 14:22:42
   END APPLY >>> ./ R 00213000          $ 213000 1000               XEDIT 10/13/81 14:22:42
Update Succeeded
Update Execution Time 23 milliseconds.

Date Friday Feb 10, 2006 05:45:00 AM
Loaded from MAINT(093)

       HRC006DS: ./ I 00535000          $ 535300 300                   02/10/06 05:45:41
       HRC006DS:          XC    ESIDTB+512(256),ESIDTB+512  CLEAR ESDID TABLE   HRC006DS 00535010
       HRC006DS:          XC    ESIDTB+768(256),ESIDTB+768  CLEAR ESID TABLE    HRC006DS 00535020
       HRC006DS: ./ R 00894300 00894600 $ 894490 190                   02/10/06 05:45:41
       HRC006DS:          CH    R2,HW511       COMPARE WITH 511                 HRC006DS 00894300
       HRC006DS:          BH    ESDTBOVR       ERROR IF GT 511                  HRC006DS 00894600
       HRC006DS: ./ I 01318000          $ 1318300 300                  02/10/06 05:45:41
       HRC006DS:          XC    ESIDTB+512(256),ESIDTB+512  CLEAR ESID TABLE    HRC006DS 01318010
       HRC006DS:          XC    ESIDTB+768(256),ESIDTB+768  CLEAR ESID TABLE    HRC006DS 01318020
       HRC006DS: ./ R 01725050          $ 1725440 390                  02/10/06 05:45:41
       HRC006DS: HW511    DC    H'511'         HALFWORD '511'                   HRC006DS 01725050
 BEGIN APPLY >>> ./ I 00535000          $ 535300 300                   02/10/06 05:45:41
   END APPLY >>> ./ I 00535000          $ 535300 300                   02/10/06 05:45:41
 BEGIN APPLY >>> ./ R 00894300 00894600 $ 894490 190                   02/10/06 05:45:41
   END APPLY >>> ./ R 00894300 00894600 $ 894490 190                   02/10/06 05:45:41
 BEGIN APPLY >>> ./ I 01318000          $ 1318300 300                  02/10/06 05:45:41
   END APPLY >>> ./ I 01318000          $ 1318300 300                  02/10/06 05:45:41
 BEGIN APPLY >>> ./ R 01725050          $ 1725440 390                  02/10/06 05:45:41
   END APPLY >>> ./ R 01725050          $ 1725440 390                  02/10/06 05:45:41
Update Succeeded
Update Execution Time 31 milliseconds.

Date Sunday Nov 02, 2008 09:48:00 PM
Loaded from MAINT(093)

       HRC309DS: ./ I 00139000          $ 139200 200                   11/02/08 20:46:57
       HRC309DS: *                  An extended PLIST is supplied in R0.        HRC309DS 00139200
       HRC309DS: ./ I 00508000          $ 508200 200                   11/02/08 20:46:57
       HRC309DS:          LR    R11,0                    save EPLIST pointer    HRC309DS 00508200
       HRC309DS: ./ I 00523000          $ 523025 25                    11/02/08 20:46:57
       HRC309DS:          CLI   PARMLIST,X'01' was an EPLIST passed to us?      HRC309DS 00523025
       HRC309DS:          BE    EPTEST         yes, proceed                     HRC309DS 00523050
       HRC309DS:          CLI   PARMLIST,X'0B' was an EPLIST passed to us?      HRC309DS 00523075
       HRC309DS:          BE    EPTEST         yes, proceed                     HRC309DS 00523100
       HRC309DS:          CLI   PARMLIST,X'0D' was an EPLIST passed to us?      HRC309DS 00523125
       HRC309DS:          BNE   EPSKIP         no, so never mind                HRC309DS 00523150
       HRC309DS: EPTEST   EQU   *                                               HRC309DS 00523175
       HRC309DS:          ST    R11,EPARMLST   yes, save the EPLIST pointer     HRC309DS 00523200
       HRC309DS: * We need to adjust the EPLIST, since it currently has START   HRC309DS 00523225
       HRC309DS: * as the command name.  So make EPLCMD point to EPLARGBG, scan HRC309DS 00523250
       HRC309DS: * for the second argument, and have EPLARGBG point to it.      HRC309DS 00523275
       HRC309DS:          USING EPLIST,R11                                      HRC309DS 00523300
       HRC309DS:          STM   R4,R6,EPLSAVE  save the registers we are using  HRC309DS 00523325
       HRC309DS:          L     R6,EPLARGBG    start of arguments & scan start  HRC309DS 00523350
       HRC309DS:          ST    R6,EPLCMD      new pointer to command           HRC309DS 00523375
       HRC309DS:          L     R5,EPLARGND    end of arguments                 HRC309DS 00523400
       HRC309DS:          BCTR  R5,0           decrement for BXLE               HRC309DS 00523425
       HRC309DS:          LA    R4,1           loop increment                   HRC309DS 00523450
       HRC309DS: EPLOOP1  EQU   *              scan for blank after command     HRC309DS 00523475
       HRC309DS:          CLI   0(R6),C' '     is it a space yet?               HRC309DS 00523500
       HRC309DS:          BE    EPLOOP2        found it                         HRC309DS 00523525
       HRC309DS:          BXLE  R6,R4,EPLOOP1  keep looping if not              HRC309DS 00523550
       HRC309DS:          B     EPSETEM        no arguments                     HRC309DS 00523575
       HRC309DS: EPLOOP2  EQU   *              scan for start of arguments      HRC309DS 00523600
       HRC309DS:          CLI   0(R6),C' '     is it a space yet?               HRC309DS 00523625
       HRC309DS:          BNE   EPSETEM        found start of arguments         HRC309DS 00523650
       HRC309DS:          BXLE  R6,R4,EPLOOP2  keep looping if not              HRC309DS 00523675
       HRC309DS: EPSETEM  EQU   *                                               HRC309DS 00523700
       HRC309DS:          ST    R6,EPLARGBG    store start of arguments         HRC309DS 00523725
       HRC309DS:          LM    R4,R6,EPLSAVE  restore the registers            HRC309DS 00523750
       HRC309DS:          DROP  R11                                             HRC309DS 00523775
       HRC309DS: EPSKIP   EQU   *                                               HRC309DS 00523800
       HRC309DS: ./ I 01468000          $ 1468200 200                  11/02/08 20:46:57
       HRC309DS:          L     R6,EPARMLST    setup for restoring EPLIST to R0          01468200
       HRC309DS: ./ R 01480000          $ 1480000 200
       HRC309DS:          DMSERR TEXT='Execution begins...',NUM=740,LET=I,      HRC309DSX01480000
       HRC309DS: ./ I 01941000          $ 1941200 200                  11/02/08 20:46:57
       HRC309DS:          EPLIST                                                HRC309DS 01941200
Line 00000539>>> Sequence Warning <<< Previous Sequence 00535600 is larger than Current Sequence 00535010
             >>> Previous Line    <<<          XC    ESIDTB+768(256),ESIDTB+768  CLEAR ESID TABLE    HRC006DS 00535600
             >>> Current  Line    <<<          XC    ESIDTB+512(256),ESIDTB+512  CLEAR ESDID TABLE            00535010
Line 00001421>>> Sequence Warning <<< Previous Sequence 01318600 is larger than Current Sequence 01318010
             >>> Previous Line    <<<          XC    ESIDTB+768(256),ESIDTB+768  CLEAR ESID TABLE    HRC006DS 01318600
             >>> Current  Line    <<<          XC    ESIDTB+512(256),ESIDTB+512  CLEAR ESID TABLE             01318010
 BEGIN APPLY >>> ./ I 00139000          $ 139200 200                   11/02/08 20:46:57
   END APPLY >>> ./ I 00139000          $ 139200 200                   11/02/08 20:46:57
 BEGIN APPLY >>> ./ I 00508000          $ 508200 200                   11/02/08 20:46:57
   END APPLY >>> ./ I 00508000          $ 508200 200                   11/02/08 20:46:57
 BEGIN APPLY >>> ./ I 00523000          $ 523025 25                    11/02/08 20:46:57
   END APPLY >>> ./ I 00523000          $ 523025 25                    11/02/08 20:46:57
 BEGIN APPLY >>> ./ I 01468000          $ 1468200 200                  11/02/08 20:46:57
   END APPLY >>> ./ I 01468000          $ 1468200 200                  11/02/08 20:46:57
 BEGIN APPLY >>> ./ R 01480000          $ 1480000 200
   END APPLY >>> ./ R 01480000          $ 1480000 200
 BEGIN APPLY >>> ./ I 01941000          $ 1941200 200                  11/02/08 20:46:57
   END APPLY >>> ./ I 01941000          $ 1941200 200                  11/02/08 20:46:57
Update Succeeded
Update Execution Time 39 milliseconds.