Table of Contents

DMSINS History

References

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

  1. R09879DS 606 IPL PARM AUTOCR NOT SAVED BY CMS INITIALIZATION
  2. R12042DS 618 UV03164 CMS FAILS TO USE 64 BYTES OF IPL PARMS
  3. R12109DS 618 UV03249 FIX FOR VM08900 NOT PICKED UP FOR BASE REL6
  4. R13281DS 621 UV04313 DMSINS ABENDS IPLING SAVED SYS WITH PARMS
  5. R13783DS 623 UV04801 DMSINS FAILS TO SET MMDD FIELD IN BGCOM.
  6. HRC002DS V01 ADD MORE MINIDISKS & TAPES TO MATCH VM/SP
  7. 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.