ibm:vm370-lib:cms:dmsins.assemble_hst
Table of Contents
DMSINS History
References
- Fixes Applied : 7
- Latest Source Date : Tuesday, December 12, 1978
- Last Fix ID : [HRC371DS]
Update History
CMS File Input : DMSINS ASSEMBLE
Date : 12/12/1978 8:28:00 AM
VM Context : MAINT(393)
File Name : DMSINS.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:31 AM
Created : 1/16/2021 7:31:31 AM
Update Order
- R09879DS 606 IPL PARM AUTOCR NOT SAVED BY CMS INITIALIZATION
- R12042DS 618 UV03164 CMS FAILS TO USE 64 BYTES OF IPL PARMS
- R12109DS 618 UV03249 FIX FOR VM08900 NOT PICKED UP FOR BASE REL6
- R13281DS 621 UV04313 DMSINS ABENDS IPLING SAVED SYS WITH PARMS
- R13783DS 623 UV04801 DMSINS FAILS TO SET MMDD FIELD IN BGCOM.
- HRC002DS V01 ADD MORE MINIDISKS & TAPES TO MATCH VM/SP
- HRC371DS V03 Invoke SYSPROF EXEC (it it exists) before PROFILE EXEC.
R09879DS
Date Tuesday Nov 06, 1979 10:29:00 AM
Loaded from MAINT(193)
R09879DS: ./ R 204000 210000 $ 210000
R09879DS: STM R0,R6,IPLPARMS SAVE CP 'IPL' PARMS @VA09879
BEGIN APPLY >>> ./ R 204000 210000 $ 210000
END APPLY >>> ./ R 204000 210000 $ 210000
Update Succeeded
Update Execution Time 16 milliseconds.
R12042DS
Date Tuesday Mar 10, 1981 03:10:00 AM
Loaded from MAINT(193)
R12042DS: ./ R 00118000 $ 118000 1000 11/10/80 22:36:57
R12042DS: MVC IPLPARMS(64),0(R1) KEEP CP 'IPL' PARMS @VA12042 00118000
R12042DS: ./ R 00210000 $ 210000 1000 11/10/80 22:36:57
R12042DS: STM R0,R15,IPLPARMS SAVE CP 'IPL' PARMS @VA12042 00210000
R12042DS: ./ R 00838000 $ 838000 1000 11/10/80 22:36:57
R12042DS: DC 7D'0' ADDITIONAL PARMS @VA12042 00838000
BEGIN APPLY >>> ./ R 00118000 $ 118000 1000 11/10/80 22:36:57
END APPLY >>> ./ R 00118000 $ 118000 1000 11/10/80 22:36:57
BEGIN APPLY >>> ./ R 00210000 $ 210000 1000 11/10/80 22:36:57
END APPLY >>> ./ R 00210000 $ 210000 1000 11/10/80 22:36:57
BEGIN APPLY >>> ./ R 00838000 $ 838000 1000 11/10/80 22:36:57
END APPLY >>> ./ R 00838000 $ 838000 1000 11/10/80 22:36:57
Update Succeeded
Update Execution Time 16 milliseconds.
R12109DS
Date Tuesday Mar 10, 1981 03:10:00 AM
Loaded from MAINT(193)
R12109DS: ./ R 00494000 $ 494000 100 11/13/80 21:53:21
R12109DS: BE GRAFTYP YES ... BR @VA12109 0
R12109DS: CLM R2,B'1000',CLASTERM REMOTE 3270? @VA12109
R12109DS: BNE NOTGRAF NO ... BR @VA12109 0
R12109DS: CLM R2,B'0100',TYP3275 REMOTE 3275? @VA12109
R12109DS: BE GRAFTYP YES ... BR @VA12109 0
R12109DS: CLM R2,B'0100',TYP3277 REMOTE 3277? @VA12109
R12109DS: BNE NOTGRAF NO ... BR @VA12109 0
R12109DS: ./ I 00880000 $ 880020 20 11/13/80 21:53:21
R12109DS: TYP3275 DC X'02' @VA12109
R12109DS: TYP3277 DC X'04' @VA12109
R12109DS: CLASTERM DC X'80' @VA12109
BEGIN APPLY >>> ./ R 00494000 $ 494000 100 11/13/80 21:53:21
END APPLY >>> ./ R 00494000 $ 494000 100 11/13/80 21:53:21
BEGIN APPLY >>> ./ I 00880000 $ 880020 20 11/13/80 21:53:21
END APPLY >>> ./ I 00880000 $ 880020 20 11/13/80 21:53:21
Update Succeeded
Update Execution Time 16 milliseconds.
R13281DS
Date Wednesday Jun 10, 1981 05:01:00 AM
Loaded from MAINT(193)
R13281DS: ./ I 00196000 $ 196500 500 04/16/81 22:09:10
R13281DS: STM R0,R15,GPRLOG SAVE REGS FOR SAVED SYS IPL @VA13281
R13281DS: ./ D 00199000 04/16/81 22:09:10
R13281DS: ./ R 00210000 $ 210000 200 04/16/81 22:09:10
R13281DS: STM R0,R15,LOWSAVE SAVE CP 'IPL' PARMS @VA13281
R13281DS: LM R0,R15,GPRLOG RESTORE SAVED SYS REGS @VA13281
R13281DS: MVC IPLPARMS(64),LOWSAVE GET IPL PARMS @VA13281
R13281DS: SR R15,R15 INDICATE SAVESYS @VA13281
BEGIN APPLY >>> ./ I 00196000 $ 196500 500 04/16/81 22:09:10
END APPLY >>> ./ I 00196000 $ 196500 500 04/16/81 22:09:10
BEGIN APPLY >>> ./ D 00199000 04/16/81 22:09:10
END APPLY >>> ./ D 00199000 04/16/81 22:09:10
BEGIN APPLY >>> ./ R 00210000 $ 210000 200 04/16/81 22:09:10
END APPLY >>> ./ R 00210000 $ 210000 200 04/16/81 22:09:10
Update Succeeded
Update Execution Time 16 milliseconds.
R13783DS
Date Wednesday Aug 05, 1981 07:23:00 AM
Loaded from MAINT(193)
R13783DS: ./ I 00476000 $ 476300 300 06/25/81 22:32:31
R13783DS: MVC MMDD(2),DATIPCMS GET CMSIPL MONTH @VA13783
R13783DS: MVC MMDD+2(2),DATIPCMS+3 SET CMSIPL DAY @VA13783
BEGIN APPLY >>> ./ I 00476000 $ 476300 300 06/25/81 22:32:31
END APPLY >>> ./ I 00476000 $ 476300 300 06/25/81 22:32:31
Update Succeeded
Update Execution Time 16 milliseconds.
HRC002DS
Date Thursday Feb 09, 2006 09:23:00 PM
Loaded from MAINT(093)
HRC002DS: ./ * FORCE RE-ASSEMBLY FOR CHANGE HRC002DS
BEGIN APPLY >>> ./ * FORCE RE-ASSEMBLY FOR CHANGE HRC002DS
Comment >>> ./ * FORCE RE-ASSEMBLY FOR CHANGE HRC002DS
END APPLY >>> ./ * FORCE RE-ASSEMBLY FOR CHANGE HRC002DS
Update Succeeded
Update Execution Time 16 milliseconds.
HRC371DS
Date Sunday Aug 08, 2010 02:26:00 PM
Loaded from MAINT(093)
HRC371DS: ./ R 00093000 00096000 $ 93000 100 08/06/10 11:07:59
HRC371DS: * B. Load the GCC runtime library into high HRC371DS 00093000
HRC371DS: * memory and update a pointer in NUCON with HRC371DS 00093100
HRC371DS: * its address. HRC371DS 00093200
HRC371DS: * C. Load REXX into high memory and establish it HRC371DS 00093300
HRC371DS: * as a nucleus command. Now all EXECs can be HRC371DS 00093400
HRC371DS: * written in REXX. HRC371DS 00093500
HRC371DS: * D. Access the user's A disk. HRC371DS 00093600
HRC371DS: * E. Stack a plist LIFO for "PROFILE EXEC" HRC371DS 00093700
HRC371DS: * (if present and if "ACCESS ( NOPROFILE" was HRC371DS 00093800
HRC371DS: * not entered as the first command) HRC371DS 00093900
HRC371DS: * F. Stack a plist LIFO for "SYSPROF EXEC" HRC371DS 00094000
HRC371DS: * (if present and if "ACCESS ( NOPROFILE" was HRC371DS 00094100
HRC371DS: * not entered as the first command) HRC371DS 00094200
HRC371DS: * G. Access the D disk or, if not formatted, HRC371DS 00094300
HRC371DS: * stack a plist LIFO to format the D disk HRC371DS 00094400
HRC371DS: * (if present) HRC371DS 00094500
HRC371DS: * HRC371DS 00094600
HRC371DS: * Thus the command EXEC SYSPROF will be executed HRC371DS 00094700
HRC371DS: * before the PROFILE EXEC is executed. Eventually, HRC371DS 00094800
HRC371DS: * we may first stack a "RELEASE A" command so that HRC371DS 00094900
HRC371DS: * we can ensure that SYSPROF EXEC S is executed... HRC371DS 00095000
HRC371DS: * HRC371DS 00095100
HRC371DS: ./ I 00102000 $ 102100 100 08/06/10 11:07:59
HRC371DS: * But if the machine is 4MB or larger, allocate HRC371DS 00102100
HRC371DS: * 64 pages of loader tables. HRC371DS 00102200
HRC371DS: ./ I 00379000 $ 379100 100 08/06/10 11:07:59
HRC371DS: * C R13,FOURMEG is it 4 megabytes or more? HRC371DS 00379100
HRC371DS: * BL SR1314 no, so we are good to go HRC371DS 00379200
HRC371DS: * L R14,K256 set LDRTBLS=64 pages (256K) HRC371DS 00379300
HRC371DS: ./ R 00380000 08/06/10 11:07:59
HRC371DS: SR1314 SR R13,R14 decrement by LDRTBLS space HRC371DS 00380000
HRC371DS: ./ R 00539000 00539000 $ 539000 10 08/06/10 11:07:59
HRC371DS: SPACE 1 HRC371DS 00539000
HRC371DS: TESTA DS 0H HRC371DS 00539010
HRC371DS: * Now we load GCCLIB and REXX into memory, establishing them HRC371DS 00539020
HRC371DS: * as nucleus extensions. But RESLIB will first load GCCLIB HRC371DS 00539030
HRC371DS: * into the user area, overlaying us (DMSINS). So we change HRC371DS 00539040
HRC371DS: * the user area pointer in NUCON so that it does not overlay HRC371DS 00539050
HRC371DS: * us. Yes, this is a kludge! I apologize profusely. HRC371DS 00539060
HRC371DS: * MVC MAINHIGH(4),OUTOFWAY HRC371DS 00539070
HRC371DS: * LA R1,GLOBALTX "GLOBAL TXTLIB GCCLIB" HRC371DS 00539080
HRC371DS: * SVC 202 HRC371DS 00539090
HRC371DS: * DC AL4(BADGLOB) error address HRC371DS 00539100
HRC371DS: * MVC MAINHIGH(4),OUTOFWAY HRC371DS 00539110
HRC371DS: * LA R1,RESLOAD "RESLIB LOAD GCCLIB" HRC371DS 00539120
HRC371DS: * SVC 202 HRC371DS 00539130
HRC371DS: * DC AL4(BADGCC) error address HRC371DS 00539140
HRC371DS: * ST R1,DOSTRANS store GCC runtime addr here HRC371DS 00539150
HRC371DS: * MVC MAINHIGH(4),OUTOFWAY HRC371DS 00539160
HRC371DS: * MVC RESWHO(8),REXXNAME HRC371DS 00539170
HRC371DS: * LA R1,RESLOAD "RESLIB LOAD DMSREX" HRC371DS 00539180
HRC371DS: * SVC 202 HRC371DS 00539190
HRC371DS: * DC AL4(BADREXX) error address HRC371DS 00539200
HRC371DS: * MVC MAINHIGH(4),REALUSER restore user area address HRC371DS 00539210
HRC371DS: * B THATSALL HRC371DS 00539220
HRC371DS: BADGCC DS 0H HRC371DS 00539230
HRC371DS: * MVC MAINHIGH(4),REALUSER restore user area address HRC371DS 00539240
HRC371DS: * DMSERR TEXT='GCC runtime not available',NUM=098,LET=W HRC371DS 00539250
HRC371DS: * B THATSALL HRC371DS 00539260
HRC371DS: BADGLOB DS 0H HRC371DS 00539270
HRC371DS: * DMSERR TEXT='GCCLIB TXTLIB not found',NUM=098,LET=W HRC371DS 00539280
HRC371DS: * B THATSALL HRC371DS 00539290
HRC371DS: BADREXX DS 0H HRC371DS 00539300
HRC371DS: * MVC MAINHIGH(4),REALUSER restore user area address HRC371DS 00539310
HRC371DS: * DMSERR TEXT='REXX executor not available',NUM=098,LET=W C371DS 00539320
HRC371DS: THATSALL DS 0H HRC371DS 00539330
HRC371DS: SPACE 1 HRC371DS 00539350
HRC371DS: SR R0,R0 INITIALIZE FIRST COMMAND INDICATOR 00539370
HRC371DS: ./ R 00554000 00555000 $ 554000 1000 08/06/10 11:07:59
HRC371DS: DMSERR NUM=100,LET=W,SUB=(CHARA,(R14)),TEXT='CMSSEG system namX00554000
HRC371DS: e ''........'' not available' @VA04293 00555000
HRC371DS: ./ I 00624000 $ 624050 50 08/06/10 11:07:59
HRC371DS: SPACE 1 HRC371DS 00624050
HRC371DS: * If SYSPROF EXEC S exists, stack a line to execute it. HRC371DS 00624100
HRC371DS: FSSTATE 'SYSPROF EXEC S' HRC371DS 00624150
HRC371DS: LTR R15,R15 HRC371DS 00624200
HRC371DS: BNZ TESTD no SYSPROF EXEC found HRC371DS 00624250
HRC371DS: LA R1,ATTN1 point to the stack plist HRC371DS 00624300
HRC371DS: L R2,SYSPINFO point to "EXEC SYSPROF" command HRC371DS 00624350
HRC371DS: ST R2,STCKINFO put it in ATTN plist HRC371DS 00624400
HRC371DS: SVC 202 stack "EXEC SYSPROF" lifo HRC371DS 00624450
HRC371DS: LA R3,1(,R3) up the command-count HRC371DS 00624500
HRC371DS: ./ R 00684000 08/06/10 11:07:59
HRC371DS: DMSERR TEXT='CMS OS simulation not available',NUM=098,LET=W 00684000
HRC371DS: ./ I 00696000 $ 696100 100 08/06/10 11:07:59
HRC371DS: FOURMEG DC A(4194304) 4 megabyte machine size HRC371DS 00696100
HRC371DS: K256 DC A(262144) 64 pages (256K) loader tbl alloc HRC371DS 00696200
HRC371DS: ./ I 00820000 $ 820020 10 08/06/10 11:07:59
HRC371DS: * HRC371DS 00820010
HRC371DS: SYSPROF DC CL8'EXEC' plist for EXEC SYSPROF HRC371DS 00820020
HRC371DS: DC CL8'SYSPROF' HRC371DS 00820030
HRC371DS: DC 8X'FF' HRC371DS 00820040
HRC371DS: SYSPINFO DC AL1(*-SYSPROF) HRC371DS 00820050
HRC371DS: DC AL3(SYSPROF) plist to load GCCLIB runtime HRC371DS 00820060
HRC371DS: RESLOAD DC CL8'RESLIB' HRC371DS 00820070
HRC371DS: DC CL8'LOAD' HRC371DS 00820080
HRC371DS: RESWHO DC CL8'GCCLIB' HRC371DS 00820090
HRC371DS: DC CL8'(' HRC371DS 00820100
HRC371DS: DC CL8'PERM' HRC371DS 00820110
HRC371DS: DC 8X'FF' HRC371DS 00820120
HRC371DS: GLOBALTX DC CL8'GLOBAL' plist to access GCCLIB TXTLIB HRC371DS 00820130
HRC371DS: DC CL8'TXTLIB' HRC371DS 00820140
HRC371DS: DC CL8'GCCLIB' HRC371DS 00820150
HRC371DS: DC 8X'FF' HRC371DS 00820160
HRC371DS: REXXNAME DC CL8'DMSREX' HRC371DS 00820170
HRC371DS: OUTOFWAY DC AL4(139264) relocate user area to x22000 HRC371DS 00820180
HRC371DS: REALUSER DC AL4(131072) real user area is at x20000 HRC371DS 00820190
BEGIN APPLY >>> ./ R 00093000 00096000 $ 93000 100 08/06/10 11:07:59
END APPLY >>> ./ R 00093000 00096000 $ 93000 100 08/06/10 11:07:59
BEGIN APPLY >>> ./ I 00102000 $ 102100 100 08/06/10 11:07:59
END APPLY >>> ./ I 00102000 $ 102100 100 08/06/10 11:07:59
BEGIN APPLY >>> ./ I 00379000 $ 379100 100 08/06/10 11:07:59
END APPLY >>> ./ I 00379000 $ 379100 100 08/06/10 11:07:59
BEGIN APPLY >>> ./ R 00380000 08/06/10 11:07:59
***WARNING*** >>> Automatic Resequencing Suppressed
END APPLY >>> ./ R 00380000 08/06/10 11:07:59
BEGIN APPLY >>> ./ R 00539000 00539000 $ 539000 10 08/06/10 11:07:59
END APPLY >>> ./ R 00539000 00539000 $ 539000 10 08/06/10 11:07:59
BEGIN APPLY >>> ./ R 00554000 00555000 $ 554000 1000 08/06/10 11:07:59
END APPLY >>> ./ R 00554000 00555000 $ 554000 1000 08/06/10 11:07:59
BEGIN APPLY >>> ./ I 00624000 $ 624050 50 08/06/10 11:07:59
END APPLY >>> ./ I 00624000 $ 624050 50 08/06/10 11:07:59
BEGIN APPLY >>> ./ R 00684000 08/06/10 11:07:59
***WARNING*** >>> Automatic Resequencing Suppressed
END APPLY >>> ./ R 00684000 08/06/10 11:07:59
BEGIN APPLY >>> ./ I 00696000 $ 696100 100 08/06/10 11:07:59
END APPLY >>> ./ I 00696000 $ 696100 100 08/06/10 11:07:59
BEGIN APPLY >>> ./ I 00820000 $ 820020 10 08/06/10 11:07:59
END APPLY >>> ./ I 00820000 $ 820020 10 08/06/10 11:07:59
Update Succeeded
Update Execution Time 31 milliseconds.
ibm/vm370-lib/cms/dmsins.assemble_hst.txt · Last modified: 2023/08/06 13:35 by Site Administrator