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