Library Member Format: MODIFY

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.vemem   +++|*WIDTH,80
00002  M00S00002.vemem   +++|*NOSEQ
00003  M00S00003.vemem   +++|.PROC,VEMEM*I
00004  M00S00004.vemem   +++|,VEMEM =(*N=#FILE)
00005  M00S00005.vemem   +++|.
00006  M00S00006.vemem   +++|.HELP
00007  M00S00007.vemem   +++|The VEMEM utility is used to help you configure your mainframe memory
00008  M00S00008.vemem   +++|for use in a NOS Dual State environment.  Based on your responses, it
00009  M00S00009.vemem   +++|provides you with the proper CMRDECK and EQPDECK entries to configure
00010  M00S00010.vemem   +++|memory for NOS and NOS/VE usage.
00011  M00S00011.vemem   +++|

Seq #  *Modification Id* Act 
----------------------------+
00012  M01S00012.vemem1  ---|This procedure should be executed in LINE (as opposed to SCREEN) mode.
00013  M01S00013.vemem1  ---|
00014  M00S00014.vemem   +++|Values for Mainframe memory, NOS memory and NOS/VE memory, are entered
00015  M00S00015.vemem   +++|in Megabytes and Kilobytes.  The format you should use is:
00016  M00S00016.vemem   +++|  Megabytes,Kilobytes
00017  M00S00017.vemem   +++|For example, to enter 6.5 megabytes of NOS/VE, enter 6,512 at the
00018  M00S00018.vemem   +++|prompt for the megabyte portion of NOS/VE memory.  If you do not enter
00019  M00S00019.vemem   +++|a kilobyte portion, it will default to 0.
00020  M00S00020.vemem   +++|
00021  M00S00021.vemem   +++|At several points, this procedure will display how your memory is
00022  M00S00022.vemem   +++|allocated amongst NOS, NOS/VE and the Page Table.  The display is
00023  M00S00023.vemem   +++|in units of Megabytes,Kilobytes.  When adding up the numbers, note that
00024  M00S00024.vemem   +++|1 Megabyte = 1,024 Kilobytes, thus:
00025  M00S00025.vemem   +++|
00026  M00S00026.vemem   +++|     0,064 (Megabytes, Kilobytes)
00027  M00S00027.vemem   +++|   + 1,960 (Megabytes, Kilobytes)
00028  M00S00028.vemem   +++|   = 2,000 (Megabytes, Kilobytes)
00029  M00S00029.vemem   +++|
00030  M00S00030.vemem   +++|Values for Unified Extended Memory (UEM), User Accessible Extended
00031  M00S00031.vemem   +++|Memory (UEC) and Input Output Buffers (IOB) are entered in units of
00032  M00S00032.vemem   +++|1000B Octal words.
00033  M00S00033.vemem   +++|
00034  M00S00034.vemem   +++|Consult the NOS Dual State section of the NOS Installation Handbook for
00035  M00S00035.vemem   +++|a discussion on NOS and NOS/VE memory sharing and the
00036  M00S00036.vemem   +++|Deadstart Decks section of the NOS 2 Analysis Handbook for information on
00037  M00S00037.vemem   +++|NOS memory allocation and terms.
00038  M00S00038.vemem   +++|
00039  M00S00039.vemem   +++|.ENDHELP
00040  M00S00040.vemem   +++|.****
00041  M00S00041.vemem   +++|.* NOTE - THESE PROCEDURES CONTAIN DISPLAY CODE (00) COLONS. THE COLONS
00042  M00S00042.vemem   +++|.*        MUST BE LEFT IN DISPLAY CODE IN ORDER FOR THE *NOTE*
00043  M00S00043.vemem   +++|.*        STATEMENTS TO WORK PROPERLY.  DO NOT CONVERT THE COLONS TO
00044  M00S00044.vemem   +++|.*        ASCII FORMAT (@D).
00045  M00S00045.vemem   +++|.****

Seq #  *Modification Id* Act 
----------------------------+
00046  M01S00046.vemem1  ---|$BEGIN(MF,VEMEM)

Seq #  *Modification Id* Act 
----------------------------+
00047  M01S00001.vemem1  +++|.IF,SL=SCREEN.$LINE.
00048  M01S00002.vemem1  +++|$BEGIN(MF,VEMEM)  ** MF IS RETURNED IN R2 AND R3
00049  M01S00003.vemem1  +++|$DISPLAY(R2,R3)
00050  M00S00047.vemem   +++|$BEGIN(CHOICED,VEMEM)
00051  M00S00048.vemem   +++|$BEGIN(CHOICE,VEMEM)  ** CHOICE RETURNS IN R1
00052  M00S00049.vemem   +++|$DISPLAY(R1)

Seq #  *Modification Id* Act 
----------------------------+
00053  M01S00050.vemem1  ---|$BEGIN(MAIN1,VEMEM,R1G+,OPTION=R1+)

Seq #  *Modification Id* Act 
----------------------------+
00054  M01S00004.vemem1  +++|$BEGIN(MAIN1,VEMEM,R2+,R3+,R1+)
00055  M01S00005.vemem1  +++|.IF,SL.EQ.SCREEN.$SCREEN.
00056  M00S00051.vemem   +++|$REVERT. VEMEM COMPLETE
00057  M00S00052.vemem   +++|$EXIT. VEMEM

Seq #  *Modification Id* Act 
----------------------------+
00058  M01S00006.vemem1  +++|.IF,SL.EQ.SCREEN.$SCREEN.
00059  M00S00053.vemem   +++|$REVERT(ABORT) VEMEM FAILED
00060  M00S00054.vemem   +++|*WEOR
00061  M00S00055.vemem   +++|.PROC,CHOICED*I
00062  M00S00056.vemem   +++|,VEMEM =(*N=#FILE)
00063  M00S00057.vemem   +++|.
00064  M00S00058.vemem   +++|$NOTE.;;:I 1. Configure NOS/VE and NOS with
00065  M00S00059.vemem   +++|$NOTE.;:I    NO user extended memory     (UEC=0)
00066  M00S00060.vemem   +++|$NOTE.;:I    NO unified extended memory  (UEM=0)
00067  M00S00061.vemem   +++|$NOTE.;;:I 2. Configure NOS/VE and NOS with
00068  M00S00062.vemem   +++|$NOTE.;:I       user extended memory     (UEC=?)
00069  M00S00063.vemem   +++|$NOTE.;:I    NO unified extended memory  (UEM=0)
00070  M00S00064.vemem   +++|$NOTE.;;:I 3. Configure NOS/VE and NOS with
00071  M00S00065.vemem   +++|$NOTE.;:I       user extended memory     (UEC=?)
00072  M00S00066.vemem   +++|$NOTE.;:I       unified extended memory  (UEM=?);
00073  M00S00067.vemem   +++|$REVERT.CHOICEDISPLAY
00074  M00S00068.vemem   +++|$EXIT. CHOICEDISPLAY
00075  M00S00069.vemem   +++|$REVERT(ABORT)CHOICEDISPLAY
00076  M00S00070.vemem   +++|*WEOR
00077  M00S00071.vemem   +++|.PROC,CHOICE*I
00078  M00S00072.vemem   +++|,CHOICE [Choose configuration option] =(1,2,3)
00079  M00S00073.vemem   +++|,VEMEM =(*N=#FILE)
00080  M00S00074.vemem   +++|.
00081  M00S00075.vemem   +++|.HELP.
00082  M00S00076.vemem   +++| Choose which type of memory configuration you wish to define.
00083  M00S00077.vemem   +++|The choices are:
00084  M00S00078.vemem   +++|  1. NOS/VE and NOS without any user extended memory.
00085  M00S00079.vemem   +++|  2. NOS/VE and NOS with user extended memory only.
00086  M00S00080.vemem   +++|  3. NOS/VE and NOS with extended memory, possibly for 895 disks,
00087  M00S00081.vemem   +++|     users, or a mass storage device.
00088  M00S00082.vemem   +++|.HELP,CHOICE,NOLIST.
00089  M00S00083.vemem   +++| There are three possible choices.
00090  M00S00084.vemem   +++|1.  NOS/VE and NOS without any unified extended memory.
00091  M00S00085.vemem   +++|    Unified extended memory can be used on NOS for the following:
00092  M00S00086.vemem   +++|     a.  User accessible extended memory - this is typically used by
00093  M00S00087.vemem   +++|         FORTRAN programs for the storage of large arrays.
00094  M00S00088.vemem   +++|         Refer to the discussion of the LEVEL statement in the
00095  M00S00089.vemem   +++|         FORTRAN 5 Reference Manual.  This type of memory is
00096  M00S00090.vemem   +++|         referred to as UEC.
00097  M00S00091.vemem   +++|     b.  Extended memory as a mass storage device - this is typically
00098  M00S00092.vemem   +++|         used for alternate system residency of frequently
00099  M00S00093.vemem   +++|         accessed system routines and for storing secondary rollout files.
00100  M00S00094.vemem   +++|         Refer to the Deadstart Decks section of the NOS Analysis Manual for
00101  M00S00095.vemem   +++|         discussions on:
00102  M00S00096.vemem   +++|         *  EQ-Extended Memory EST entry,
00103  M00S00097.vemem   +++|         *  ASR-Alternate System Library Device Assignment Entry,
00104  M00S00098.vemem   +++|         *  MSAL-Mass Storage Allocation Control Entry,
00105  M00S00099.vemem   +++|         *  SRST (Secondary Rollout Threshold Entry)
00106  M00S00100.vemem   +++|     c.  Input/Output buffers for 895 disks. Refer to the Deadstart Decks
00107  M00S00101.vemem   +++|         section of the NOS Analysis Manual for a discussion of 895 disks
00108  M00S00102.vemem   +++|         and the XM EQPDECK entry for declaring extended memory
00109  M00S00103.vemem   +++|         space for buffers or user access.  This type of memory is
00110  M00S00104.vemem   +++|         referred to as IOB.
00111  M00S00105.vemem   +++|
00112  M00S00106.vemem   +++|    Select this choice if you do not need unified extended memory.
00113  M00S00107.vemem   +++|
00114  M00S00108.vemem   +++|2.  NOS/VE and NOS with user accessible extended memory.
00115  M00S00109.vemem   +++|    This choice permits you to configure some of your NOS memory
00116  M00S00110.vemem   +++|    for access by users.  This memory, called user accessible
00117  M00S00111.vemem   +++|    extended memory (or UEC), is typically used for the storage of large
00118  M00S00112.vemem   +++|    arrays in FORTRAN programs.  Refer to the discussion of the
00119  M00S00113.vemem   +++|    LEVEL statement in the FORTRAN 5 Reference Manual.
00120  M00S00114.vemem   +++|
00121  M00S00115.vemem   +++|    Select this choice if you want to configure some memory for
00122  M00S00116.vemem   +++|    user accessible extended memory.
00123  M00S00117.vemem   +++|
00124  M00S00118.vemem   +++|3.  NOS/VE and NOS with unified extended memory.  In
00125  M00S00119.vemem   +++|    addition to memory for NOS/VE and NOS, unified extended
00126  M00S00120.vemem   +++|    memory is also configured.  Unified extended memory, referred to as
00127  M00S00121.vemem   +++|    UEM, can be used on NOS for the following:
00128  M00S00122.vemem   +++|     a.  User accessible extended memory - this is typically used by
00129  M00S00123.vemem   +++|         FORTRAN programs for the storage of large arrays.
00130  M00S00124.vemem   +++|         Refer to the discussion of the LEVEL statement in the
00131  M00S00125.vemem   +++|         FORTRAN 5 Reference Manual.  This type of memory is
00132  M00S00126.vemem   +++|         referred to as UEC.
00133  M00S00127.vemem   +++|     b.  Extended memory as a mass storage device - this is typically
00134  M00S00128.vemem   +++|         used for alternate system residency of frequently
00135  M00S00129.vemem   +++|         accessed system routines and for storing secondary rollout files.
00136  M00S00130.vemem   +++|         Refer to the Deadstart Decks section of the NOS Analysis Manual for
00137  M00S00131.vemem   +++|         discussions on:
00138  M00S00132.vemem   +++|         *  EQ-Extended Memory EST entry,
00139  M00S00133.vemem   +++|         *  ASR-Alternate System Library Device Assignment Entry,
00140  M00S00134.vemem   +++|         *  MSAL-Mass Storage Allocation Control Entry,
00141  M00S00135.vemem   +++|         *  SRST (Secondary Rollout Threshold Entry)
00142  M00S00136.vemem   +++|     c.  Input/Output buffers for 895 disks. Refer to the Deadstart Decks
00143  M00S00137.vemem   +++|         section of the NOS Analysis Manual for a discussion of 895 disks
00144  M00S00138.vemem   +++|         and the XM EQPDECK entry for declaring extended memory
00145  M00S00139.vemem   +++|         space for buffers or user access.  This type of memory is
00146  M00S00140.vemem   +++|         referred to as IOB.
00147  M00S00141.vemem   +++|
00148  M00S00142.vemem   +++|    Select this choice if you need unified extended memory for
00149  M00S00143.vemem   +++|    any of the above.  NOTE:  if you only need unified extended
00150  M00S00144.vemem   +++|    memory for just a., use choice 2: NOS/VE and NOS with user
00151  M00S00145.vemem   +++|    accessible extended memory.
00152  M00S00146.vemem   +++|.ENDHELP
00153  M00S00147.vemem   +++|.*
00154  M00S00148.vemem   +++|.IF, (CHOICE=1) ,CHOICE1.
00155  M00S00149.vemem   +++|$NOTE.;;:I Allocate NOS/VE and NOS only.;
00156  M00S00150.vemem   +++|.ELSE(CHOICE1)
00157  M00S00151.vemem   +++|.IF, (CHOICE=2) ,CHOICE1.
00158  M00S00152.vemem   +++|$NOTE.;;:I Allocate NOS/VE and NOS, then
00159  M00S00153.vemem   +++|$NOTE.;:I allocate user extended memory (UEC).;
00160  M00S00154.vemem   +++|.ELSE(CHOICE1)
00161  M00S00155.vemem   +++|$NOTE.;;:I Allocate NOS/VE and NOS, then
00162  M00S00156.vemem   +++|$NOTE.;:I allocate unified extended memory (UEM).
00163  M00S00157.vemem   +++|$NOTE.;:I Allocate user extended memory (UEC)
00164  M00S00158.vemem   +++|$NOTE.;:I and 895 device buffers (IOB).;
00165  M00S00159.vemem   +++|.ENDIF(CHOICE1)
00166  M00S00160.vemem   +++|$REVERT(EX)$SET(R1=CHOICE)
00167  M00S00161.vemem   +++|$EXIT. CHOICE
00168  M00S00162.vemem   +++|$REVERT(ABORT) CHOICE FAILED
00169  M00S00163.vemem   +++|*WEOR
00170  M00S00164.vemem   +++|.PROC,MAIN1*I

Seq #  *Modification Id* Act 
----------------------------+
00171  M01S00165.vemem1  ---|,MF      =(*S6/D)

Seq #  *Modification Id* Act 
----------------------------+
00172  M01S00007.vemem1  +++|,MB      =(*S3/D)
00173  M01S00008.vemem1  +++|,KB      =(*S3/D)
00174  M00S00166.vemem   +++|,OPTION  =(*A)
00175  M00S00167.vemem   +++|,VEMEM   =(*N=#FILE)
00176  M00S00168.vemem   +++|.

Seq #  *Modification Id* Act 
----------------------------+
00177  M01S00169.vemem1  ---|$BEGIN(VENOS,VEMEM) R1=1=NOS, R1=2=VE
00178  M01S00170.vemem1  ---|.IF, (MF .LT. 1024) , MAIN1A.
00179  M01S00171.vemem1  ---|  $SET(R3=9) ** RESERVED = FIXED SPACE(8) + PAGE TABLE(1)
00180  M01S00172.vemem1  ---|.ELSE(MAIN1A)
00181  M01S00173.vemem1  ---|  $SET(R3=MF/1024)  ** PAGE TABLE
00182  M01S00174.vemem1  ---|  $IF, (R3*1024.NE.MF) .$SET(R3=R3+1)    ** ADD OVERFLOW
00183  M01S00175.vemem1  ---|  $SET(R3 = R3 + 8) ** ADD IN FIXED SPACE
00184  M01S00176.vemem1  ---|.ENDIF(MAIN1A)
00185  M01S00177.vemem1  ---|$IF, (R1=1) ,VENOS1.

Seq #  *Modification Id* Act 
----------------------------+
00186  M01S00009.vemem1  +++|.SET(#MF=STRD(MB*128+KB/8))  ** COMBINED TOTAL MEMORY
00187  M01S00010.vemem1  +++|.SET(#PT=STRD((MF+1023)/1024+8))  ** PAGE TABLE
00188  M01S00011.vemem1  +++|.IF, (OPTION = 1), MAIN1A.
00189  M01S00012.vemem1  +++|.SET(#UP=STRD(2048))  ** NOS MAXIMUM WITHOUT EXTENDED MEMORY
00190  M01S00013.vemem1  +++|.ELSE,MAIN1A.
00191  M01S00014.vemem1  +++|.SET(#UP=STRD(16384))  ** NOS MAXIMUM WITH EXTENDED MEMORY
00192  M01S00015.vemem1  +++|.ENDIF,MAIN1A.
00193  M01S00016.vemem1  +++|$BEGIN(VENOS,VEMEM)  ** RETURNS R1=1=NOS, R1=2=VE
00194  M01S00017.vemem1  +++|$IF, (R1=1) ,MAIN1B.
00195  M00S00178.vemem   +++|  .* CHOOSE AN AMOUNT OF NOS MEMORY
00196  M00S00179.vemem   +++|  .* (128) = LOWER BOUND = 1 MEGABYTE

Seq #  *Modification Id* Act 
----------------------------+
00197  M01S00180.vemem1  ---|  $IF, (MF-832-R3 .GT. 2048) ,VENOS1A.
00198  M01S00181.vemem1  ---|    $SET(R1=2048)  ** SET NOS TO 16MB
00199  M01S00182.vemem1  ---|  $ELSE(VENOS1A)
00200  M01S00183.vemem1  ---|    $SET(R1=MF-832-R3)
00201  M01S00184.vemem1  ---|  $ENDIF(VENOS1A)
00202  M01S00185.vemem1  ---|  $BEGIN(NOSLOOP,VEMEM,MF,0,R3+,128,R1+,#OPTION=OPTION,FIRST=YES)
00203  M01S00186.vemem1  ---|$ELSE(VENOS1)

Seq #  *Modification Id* Act 
----------------------------+
00204  M01S00018.vemem1  +++|  .IF, (MF-832-PT .LT. UP) ,MAIN1B1.
00205  M01S00019.vemem1  +++|    .SET(#UP=STRD(MF-832-PT))  ** SET NOS MEMORY LIMIT
00206  M01S00020.vemem1  +++|  .ENDIF(MAIN1B1)
00207  M01S00021.vemem1  +++|  $BEGIN(NOS,VEMEM,MF,0,128,UP,OPTION,FIRST=YES)
00208  M01S00022.vemem1  +++|$ELSE(MAIN1B)
00209  M00S00187.vemem   +++|  .* CHOOSE AN AMOUNT OF VE MEMORY
00210  M00S00188.vemem   +++|  .* (832) = LOWER BOUND = 6.5 MEGABYTE

Seq #  *Modification Id* Act 
----------------------------+
00211  M01S00189.vemem1  ---|  $IF, (MF-832-R3 .GT. 2048) ,VENOS2A.
00212  M01S00190.vemem1  ---|    $SET(R1=MF-2048-R3)   ** DO NOT ALLOW NOS MIN TO EXCEED 16MB
00213  M01S00191.vemem1  ---|  $ELSE(VENOS2A)
00214  M01S00192.vemem1  ---|    $SET(R1=832)
00215  M01S00193.vemem1  ---|  $ENDIF(VENOS2A)
00216  M01S00194.vemem1  ---|  $SET(R2=MF-128-R3)   ** UPPER = #MF-NOS-RESERVED
00217  M01S00195.vemem1  ---|  $BEGIN(VELOOP,VEMEM,MF,0,R3,R1+,R2+,#OPTION=OPTION,FIRST=YES)
00218  M01S00196.vemem1  ---|$ENDIF(VENOS1)

Seq #  *Modification Id* Act 
----------------------------+
00219  M01S00023.vemem1  +++|  .IF, (MF-832-PT .GT. UP) ,MAIN1B2.
00220  M01S00024.vemem1  +++|    .SET(#LOW=STRD(MF-UP-PT))  ** SET VE MIN BASED ON NOS MAX
00221  M01S00025.vemem1  +++|  .ELSE(MAIN1B2)
00222  M01S00026.vemem1  +++|    .SET(#LOW=STRD(832))
00223  M01S00027.vemem1  +++|  .ENDIF(MAIN1B2)
00224  M01S00028.vemem1  +++|  .SET(#UP=STRD(MF-128-PT))  ** UPPER = #MF-NOS-RESERVED
00225  M01S00029.vemem1  +++|  $BEGIN(VE,VEMEM,MF,0,LOW,UP,OPTION,FIRST=YES)
00226  M01S00030.vemem1  +++|$ENDIF(MAIN1B)
00227  M00S00197.vemem   +++|$REVERT. MAIN1 COMPLETE
00228  M00S00198.vemem   +++|$EXIT. MAIN1
00229  M00S00199.vemem   +++|$REVERT(ABORT) MAIN1 FAILED
00230  M00S00200.vemem   +++|*WEOR

Seq #  *Modification Id* Act 
----------------------------+
00231  M01S00201.vemem1  ---|.PROC,NOSLOOP*I

Seq #  *Modification Id* Act 
----------------------------+
00232  M01S00031.vemem1  +++|.PROC,NOS*I
00233  M00S00202.vemem   +++|,MF      =(*A)
00234  M00S00203.vemem   +++|,NOS     =(*A)

Seq #  *Modification Id* Act 
----------------------------+
00235  M01S00204.vemem1  ---|,PT      =(*A)
00236  M00S00205.vemem   +++|,LOW     =(*A)
00237  M00S00206.vemem   +++|,UP      =(*A)
00238  M00S00207.vemem   +++|,OPTION  =(*A)
00239  M00S00208.vemem   +++|,FIRST   =(*N=NO,YES,NO)
00240  M00S00209.vemem   +++|,VEMEM   =(*N=#FILE)
00241  M00S00210.vemem   +++|.

Seq #  *Modification Id* Act 
----------------------------+
00242  M01S00211.vemem1  ---|$SET(R2=MF-NOS-PT)  ** VE MEMORY
00243  M01S00212.vemem1  ---|.IF, ($FIRST$ .EQ. $NO$) ,NOSLOOP0.

Seq #  *Modification Id* Act 
----------------------------+
00244  M01S00032.vemem1  +++|.SET(#PT=STRD((MF+1023)/1024+8))  ** PAGE TABLE
00245  M01S00033.vemem1  +++|.SET(#VE=STRD(MF-NOS-PT))  ** VE MEMORY
00246  M01S00034.vemem1  +++|.IF, ($FIRST$ .EQ. $NO$) ,NOS0.
00247  M00S00213.vemem   +++|  $NOTE.;;:I Current choices (Mbytes,Kbytes):;
00248  M00S00214.vemem   +++|  $BEGIN(DISPB,VEMEM,#PT,PT)
00249  M00S00215.vemem   +++|  $BEGIN(DISPB,VEMEM,#NOS,NOS)

Seq #  *Modification Id* Act 
----------------------------+
00250  M01S00216.vemem1  ---|  $BEGIN(DISPB,VEMEM,#VE,R2+)

Seq #  *Modification Id* Act 
----------------------------+
00251  M01S00035.vemem1  +++|  $BEGIN(DISPB,VEMEM,#VE,VE)
00252  M00S00217.vemem   +++|  $BEGIN(DISPB,VEMEM,#MF,MF)
00253  M00S00218.vemem   +++|  $BEGIN(CHOOSE1,VEMEM,$#NOS$)  CHOICE RETURNS IN R1

Seq #  *Modification Id* Act 
----------------------------+
00254  M01S00219.vemem1  ---|.ELSE(NOSLOOP0)

Seq #  *Modification Id* Act 
----------------------------+
00255  M01S00036.vemem1  +++|.ELSE(NOS0)
00256  M00S00220.vemem   +++|  $SET(R1=1)

Seq #  *Modification Id* Act 
----------------------------+
00257  M01S00221.vemem1  ---|.ENDIF(NOSLOOP0)
00258  M01S00222.vemem1  ---|$IF, (R1 = 1) ,NOSLOOP1.
00259  M01S00223.vemem1  ---|  $SET(R1G=-1)
00260  M01S00224.vemem1  ---|  $WHILE,(R1G=-1),LOOP1.
00261  M01S00225.vemem1  ---|    $BEGIN(DISRNGB,VEMEM,#NOS,LOW,UP)
00262  M01S00226.vemem1  ---|    $BEGIN(#NOS,VEMEM)  ** VALUE RETURNS IN R1G
00263  M01S00227.vemem1  ---|    $IF, ((R1G .LT. LOW) .OR. (R1G .GT. UP)) ,NOSLOOP1A.
00264  M01S00228.vemem1  ---|      $NOTE.;;:I Memory value is out of range.
00265  M01S00229.vemem1  ---|      $NOTE.;:I Please re-enter.
00266  M01S00230.vemem1  ---|      $SET(R1G=-1)
00267  M01S00231.vemem1  ---|    $ENDIF(NOSLOOP1A)
00268  M01S00232.vemem1  ---|  $ENDW(LOOP1)
00269  M01S00233.vemem1  ---|  $REVERT(EX)$BEGIN(NOSLOOP,VEMEM,MF,R1G+,PT,LOW,UP,#OPTION=OPTION)
00270  M01S00234.vemem1  ---|$ELSE(NOSLOOP1)

Seq #  *Modification Id* Act 
----------------------------+
00271  M01S00037.vemem1  +++|.ENDIF(NOS0)
00272  M01S00038.vemem1  +++|$IF, (R1 = 1) ,NOS1.
00273  M01S00039.vemem1  +++|  $BEGIN(DISRNGB,VEMEM,#NOS,LOW,UP)
00274  M01S00040.vemem1  +++|  $BEGIN(NOSQ,VEMEM,,,MF,LOW,UP,OPTION)  ** NOSQ RECALLS #NOS
00275  M01S00041.vemem1  +++|$ELSE(NOS1)
00276  M00S00235.vemem   +++|  .* QUIT WAS CHOSEN.

Seq #  *Modification Id* Act 
----------------------------+
00277  M01S00236.vemem1  ---|  $IF, ($OPTION$ .EQ. $1$) ,NOSLOOP2)
00278  M01S00237.vemem1  ---|    $BEGIN(DECKS,VEMEM,MF,NOS,R2+,#OPTION=OPTION)
00279  M01S00238.vemem1  ---|  $ELSE(NOSLOOP2)
00280  M01S00239.vemem1  ---|    $BEGIN(MAIN_OPTION,VEMEM,MF,NOS,R2+,PT,#OPTION=OPTION)
00281  M01S00240.vemem1  ---|  $ENDIF(NOSLOOP2)
00282  M01S00241.vemem1  ---|$ENDIF(NOSLOOP1)
00283  M01S00242.vemem1  ---|$REVERT. NOSLOOP
00284  M01S00243.vemem1  ---|$EXIT. NOSLOOP
00285  M01S00244.vemem1  ---|$REVERT(ABORT) NOSLOOP FAILED

Seq #  *Modification Id* Act 
----------------------------+
00286  M01S00042.vemem1  +++|  $IF, ($OPTION$ .EQ. $1$) ,NOS2)
00287  M01S00043.vemem1  +++|    $BEGIN(DECKS,VEMEM,MF,NOS,VE,#OPTION=OPTION)
00288  M01S00044.vemem1  +++|  $ELSE(NOS2)
00289  M01S00045.vemem1  +++|    $BEGIN(MAIN_OPTION,VEMEM,MF,NOS,VE,#OPTION=OPTION)
00290  M01S00046.vemem1  +++|  $ENDIF(NOS2)
00291  M01S00047.vemem1  +++|$ENDIF(NOS1)
00292  M01S00048.vemem1  +++|$REVERT. #NOS
00293  M01S00049.vemem1  +++|$EXIT. #NOS
00294  M01S00050.vemem1  +++|$REVERT(ABORT) #NOS FAILED
00295  M00S00245.vemem   +++|*WEOR

Seq #  *Modification Id* Act 
----------------------------+
00296  M01S00246.vemem1  ---|.PROC,VELOOP*I

Seq #  *Modification Id* Act 
----------------------------+
00297  M01S00051.vemem1  +++|.PROC,VE*I
00298  M00S00247.vemem   +++|,MF      =(*A)

Seq #  *Modification Id* Act 
----------------------------+
00299  M01S00248.vemem1  ---|,VE      =(*A)
00300  M01S00249.vemem1  ---|,PT      =(*A)
00301  M01S00250.vemem1  ---|,LOW     =(*A)
00302  M01S00251.vemem1  ---|,UP      =(*A)

Seq #  *Modification Id* Act 
----------------------------+
00303  M01S00052.vemem1  +++|,VE      =(*A,*N=0)
00304  M01S00053.vemem1  +++|,LOW     =(*A)
00305  M01S00054.vemem1  +++|,UP      =(*A)
00306  M00S00252.vemem   +++|,OPTION  =(*A)
00307  M00S00253.vemem   +++|,FIRST   =(*N=NO,YES,NO)
00308  M00S00254.vemem   +++|,VEMEM   =(*N=#FILE)
00309  M00S00255.vemem   +++|.

Seq #  *Modification Id* Act 
----------------------------+
00310  M01S00256.vemem1  ---|$SET(R2=MF-VE-PT)  ** NOS MEMORY
00311  M01S00257.vemem1  ---|.IF, ($FIRST$ .EQ. $NO$) ,VELOOP0.

Seq #  *Modification Id* Act 
----------------------------+
00312  M01S00055.vemem1  +++|.SET(#PT=STRD((MF+1023)/1024+8))  ** PAGE TABLE
00313  M01S00056.vemem1  +++|.SET(#NOS=STRD(MF-VE-PT))  ** NOS MEMORY
00314  M01S00057.vemem1  +++|.IF, (OPTION .EQ. 1) ,VE0.
00315  M01S00058.vemem1  +++|  .IF, (NOS .GT. 2048) ,VE0A.
00316  M01S00059.vemem1  +++|    .SET(#NOS=STRD(2048))
00317  M01S00060.vemem1  +++|  .ENDIF,VE0A.
00318  M01S00061.vemem1  +++|.ELSE,VE0.
00319  M01S00062.vemem1  +++|  .IF, (NOS .GT. 16384) ,VE0B.
00320  M01S00063.vemem1  +++|    .SET(#NOS=STRD(16384))
00321  M01S00064.vemem1  +++|  .ENDIF,VE0B.
00322  M01S00065.vemem1  +++|.ENDIF,VE0.
00323  M01S00066.vemem1  +++|.IF, (VE .NE. 0), VE1.
00324  M01S00067.vemem1  +++|  .SET(#VE=STRD(MF-NOS-PT))  ** VE MEMORY ADJUSTED
00325  M01S00068.vemem1  +++|.ENDIF,VE1.
00326  M01S00069.vemem1  +++|.IF, ($FIRST$ .EQ. $NO$) ,VE2.
00327  M00S00258.vemem   +++|  $NOTE.;;:I Current choices (Mbytes,Kbytes):;
00328  M00S00259.vemem   +++|  $BEGIN(DISPB,VEMEM,#PT,PT)

Seq #  *Modification Id* Act 
----------------------------+
00329  M01S00260.vemem1  ---|  $BEGIN(DISPB,VEMEM,#NOS,R2+)

Seq #  *Modification Id* Act 
----------------------------+
00330  M01S00070.vemem1  +++|  $BEGIN(DISPB,VEMEM,#NOS,NOS)
00331  M00S00261.vemem   +++|  $BEGIN(DISPB,VEMEM,#VE,VE)
00332  M00S00262.vemem   +++|  $BEGIN(DISPB,VEMEM,#MF,MF)
00333  M00S00263.vemem   +++|  $BEGIN(CHOOSE1,VEMEM,$#VE$)  CHOICE RETURNS IN R1

Seq #  *Modification Id* Act 
----------------------------+
00334  M01S00264.vemem1  ---|.ELSE(VELOOP0)

Seq #  *Modification Id* Act 
----------------------------+
00335  M01S00071.vemem1  +++|.ELSE(VE2)
00336  M00S00265.vemem   +++|  $SET(R1=1)

Seq #  *Modification Id* Act 
----------------------------+
00337  M01S00266.vemem1  ---|.ENDIF(VELOOP0)
00338  M01S00267.vemem1  ---|$IF, (R1 = 1) ,VELOOP1.
00339  M01S00268.vemem1  ---|  $SET(R1G=-1)
00340  M01S00269.vemem1  ---|  $WHILE,(R1G=-1),LOOP1.
00341  M01S00270.vemem1  ---|    $BEGIN(DISRNGB,VEMEM,#VE,LOW,UP)
00342  M01S00271.vemem1  ---|    $BEGIN(#VE,VEMEM)  ** AMOUNT RETURNS IN R1G
00343  M01S00272.vemem1  ---|    $IF, ((R1G .LT. LOW) .OR. (R1G .GT. UP)) ,VELOOP1A.
00344  M01S00273.vemem1  ---|      $NOTE.;;:I Memory value is out of range.
00345  M01S00274.vemem1  ---|      $NOTE.;:I Please re-enter.
00346  M01S00275.vemem1  ---|      $SET(R1G=-1)
00347  M01S00276.vemem1  ---|    $ENDIF(VELOOP1A)
00348  M01S00277.vemem1  ---|  $ENDW(LOOP1)
00349  M01S00278.vemem1  ---|  $REVERT(EX)$BEGIN(VELOOP,VEMEM,MF,R1G+,PT,LOW,UP,#OPTION=OPTION)
00350  M01S00279.vemem1  ---|$ELSE(VELOOP1)

Seq #  *Modification Id* Act 
----------------------------+
00351  M01S00072.vemem1  +++|.ENDIF(VE2)
00352  M01S00073.vemem1  +++|$IF, (R1 = 1) ,VE3.
00353  M01S00074.vemem1  +++|  $BEGIN(DISRNGB,VEMEM,#VE,LOW,UP)
00354  M01S00075.vemem1  +++|  $BEGIN(VEQ,VEMEM,,,MF,LOW,UP,OPTION)  ** VEQ RECALLS #VE
00355  M01S00076.vemem1  +++|$ELSE(VE3)
00356  M00S00280.vemem   +++|  .* QUIT WAS CHOSEN.

Seq #  *Modification Id* Act 
----------------------------+
00357  M01S00281.vemem1  ---|  $IF, ($OPTION$ .EQ. $1$) ,VELOOP2)
00358  M01S00282.vemem1  ---|    $BEGIN(DECKS,VEMEM,MF,R2+,VE,#OPTION=OPTION)
00359  M01S00283.vemem1  ---|  $ELSE(VELOOP2)
00360  M01S00284.vemem1  ---|    $BEGIN(MAIN_OPTION,VEMEM,MF,R2+,VE,PT,#OPTION=OPTION)
00361  M01S00285.vemem1  ---|  $ENDIF(VELOOP2)
00362  M01S00286.vemem1  ---|$ENDIF(VELOOP1)
00363  M01S00287.vemem1  ---|$REVERT. VELOOP
00364  M01S00288.vemem1  ---|$EXIT. VELOOP
00365  M01S00289.vemem1  ---|$REVERT(ABORT) VELOOP FAILED

Seq #  *Modification Id* Act 
----------------------------+
00366  M01S00077.vemem1  +++|  $IF, ($OPTION$ .EQ. $1$) ,VE4)
00367  M01S00078.vemem1  +++|    $BEGIN(DECKS,VEMEM,MF,NOS,VE,#OPTION=OPTION)
00368  M01S00079.vemem1  +++|  $ELSE(VE4)
00369  M01S00080.vemem1  +++|    $BEGIN(MAIN_OPTION,VEMEM,MF,NOS,VE,#OPTION=OPTION)
00370  M01S00081.vemem1  +++|  $ENDIF(VE4)
00371  M01S00082.vemem1  +++|$ENDIF(VE3)
00372  M01S00083.vemem1  +++|$REVERT. #VE
00373  M01S00084.vemem1  +++|$EXIT. #VE
00374  M01S00085.vemem1  +++|$REVERT(ABORT) #VE FAILED
00375  M00S00290.vemem   +++|*WEOR
00376  M00S00291.vemem   +++|.PROC,MAIN2*I
00377  M00S00292.vemem   +++|,MF      =(*S6/D)
00378  M00S00293.vemem   +++|,NOS     =(*A)
00379  M00S00294.vemem   +++|,VE      =(*A)

Seq #  *Modification Id* Act 
----------------------------+
00380  M01S00295.vemem1  ---|,PT      =(*A)

Seq #  *Modification Id* Act 
----------------------------+
00381  M01S00086.vemem1  +++|,LOW     =(*N=0)
00382  M00S00296.vemem   +++|,OPTION  =(*A)
00383  M00S00297.vemem   +++|,VEMEM   =(*N=#FILE)
00384  M00S00298.vemem   +++|.
00385  M00S00299.vemem   +++|.* CHOOSE AN AMOUNT OF UEC MEMORY

Seq #  *Modification Id* Act 
----------------------------+
00386  M01S00300.vemem1  ---|.* (0) = LOWER BOUND
00387  M01S00301.vemem1  ---|$SET(R1=NOS-128) ** UPPER BOUND = NOS-1MB FOR JOBS
00388  M01S00302.vemem1  ---|$BEGIN(UECLOOP,VEMEM,MF,NOS,VE,PT,0,0,R1+,#OPTION=OPTION,FIRST=YES)
00389  M01S00303.vemem1  ---|$REVERT. MAIN2 COMPLETE
00390  M01S00304.vemem1  ---|$EXIT. MAIN2
00391  M01S00305.vemem1  ---|$REVERT(ABORT) MAIN2 FAILED

Seq #  *Modification Id* Act 
----------------------------+
00392  M01S00087.vemem1  +++|.IF,(NOS.GT.2048),MAIN2A.
00393  M01S00088.vemem1  +++|  .SET(#LOW=STRD(NOS-2048))  ** LOWER BOUND = NOS-16MB FOR JOBS
00394  M01S00089.vemem1  +++|.ENDIF,MAIN2A.
00395  M01S00090.vemem1  +++|.SET(#UP=STRD(NOS-128))  ** UPPER BOUND = NOS-1MB FOR JOBS
00396  M01S00091.vemem1  +++|$BEGIN(UEC,VEMEM,MF,NOS,VE,0,LOW,UP,OPTION,FIRST=YES)
00397  M01S00092.vemem1  +++|$REVERT. MAIN2 COMPLETE
00398  M01S00093.vemem1  +++|$EXIT. MAIN2
00399  M01S00094.vemem1  +++|$REVERT(ABORT) MAIN2 FAILED
00400  M00S00306.vemem   +++|*WEOR

Seq #  *Modification Id* Act 
----------------------------+
00401  M01S00307.vemem1  ---|.PROC,UECLOOP*I
00402  M01S00308.vemem1  ---|,MF      =(*A)

Seq #  *Modification Id* Act 
----------------------------+
00403  M01S00095.vemem1  +++|.PROC,UEC*I
00404  M01S00096.vemem1  +++|,MF      =(*A)
00405  M00S00309.vemem   +++|,NOS     =(*A)
00406  M00S00310.vemem   +++|,VE      =(*A)

Seq #  *Modification Id* Act 
----------------------------+
00407  M01S00311.vemem1  ---|,PT      =(*A)
00408  M00S00312.vemem   +++|,UEC     =(*A)
00409  M00S00313.vemem   +++|,LOW     =(*A)
00410  M00S00314.vemem   +++|,UP      =(*A)
00411  M00S00315.vemem   +++|,OPTION  =(*A)
00412  M00S00316.vemem   +++|,FIRST   =(*N=NO,YES,NO)
00413  M00S00317.vemem   +++|,VEMEM   =(*N=#FILE)
00414  M00S00318.vemem   +++|.

Seq #  *Modification Id* Act 
----------------------------+
00415  M01S00319.vemem1  ---|$SET(R2=NOS-UEC)  ** SYSTEM AND JOB MEMORY
00416  M01S00320.vemem1  ---|.IF, ($FIRST$ .EQ. $NO$) ,UECLOOP0.

Seq #  *Modification Id* Act 
----------------------------+
00417  M01S00097.vemem1  +++|.SET(#JOBS=STRD(NOS-UEC))  ** SYSTEM AND JOB MEMORY
00418  M01S00098.vemem1  +++|.IF, ($FIRST$ .EQ. $NO$) ,UEC0.
00419  M00S00321.vemem   +++|  $NOTE.;;:I Current choices (Octal/1000B words):;

Seq #  *Modification Id* Act 
----------------------------+
00420  M01S00322.vemem1  ---|  $BEGIN(DISPW,VEMEM,#JOBS,R2+)

Seq #  *Modification Id* Act 
----------------------------+
00421  M01S00099.vemem1  +++|  $BEGIN(DISPW,VEMEM,#JOBS,JOBS)
00422  M00S00323.vemem   +++|  $BEGIN(DISPW,VEMEM,#UEC,UEC)
00423  M00S00324.vemem   +++|  $BEGIN(DISPW,VEMEM,#NOS,NOS)
00424  M00S00325.vemem   +++|  $BEGIN(CHOOSE1,VEMEM,$#UEC$)  CHOICE RETURNS IN R1

Seq #  *Modification Id* Act 
----------------------------+
00425  M01S00326.vemem1  ---|.ELSE(UECLOOP0)

Seq #  *Modification Id* Act 
----------------------------+
00426  M01S00100.vemem1  +++|.ELSE(UEC0)
00427  M00S00327.vemem   +++|  $SET(R1=1)

Seq #  *Modification Id* Act 
----------------------------+
00428  M01S00328.vemem1  ---|.ENDIF(UECLOOP0)
00429  M01S00329.vemem1  ---|$IF, (R1 = 1) ,UECLOOP1.
00430  M01S00330.vemem1  ---|  $SET(R1G=-1)
00431  M01S00331.vemem1  ---|  $WHILE,(R1G=-1),LOOP1.
00432  M01S00332.vemem1  ---|    $BEGIN(DISRNGW,VEMEM,#UEC,LOW,UP)
00433  M01S00333.vemem1  ---|    $BEGIN(#UEC,VEMEM)  ** VALUE RETURNS IN R1G
00434  M01S00334.vemem1  ---|    $IF, ((R1G .LT. LOW) .OR. (R1G .GT. UP)) ,UECLOOP1A.
00435  M01S00335.vemem1  ---|      $NOTE.;;:I Memory value is out of range.
00436  M01S00336.vemem1  ---|      $NOTE.;:I Please re-enter.
00437  M01S00337.vemem1  ---|      $SET(R1G=-1)
00438  M01S00338.vemem1  ---|    $ENDIF(UECLOOP1A)
00439  M01S00339.vemem1  ---|  $ENDW(LOOP1)
00440  M01S00340.vemem1  ---|  $REVERT(EX)$BEGIN(UECLOOP,VEMEM,MF,NOS,VE,PT,R1G+,LOW,UP,#OPTION=OPTION)
00441  M01S00341.vemem1  ---|$ELSE(UECLOOP1)

Seq #  *Modification Id* Act 
----------------------------+
00442  M01S00101.vemem1  +++|.ENDIF(UEC0)
00443  M01S00102.vemem1  +++|$IF, (R1 = 1) ,UEC1.
00444  M01S00103.vemem1  +++|  $BEGIN(DISRNGW,VEMEM,#UEC,LOW,UP)
00445  M01S00104.vemem1  +++|  $BEGIN(UECQ,VEMEM,,MF,NOS,VE,LOW,UP,OPTION)  ** UECQ RECALLS #UEC
00446  M01S00105.vemem1  +++|$ELSE(UEC1)
00447  M00S00342.vemem   +++|  .* QUIT WAS CHOSEN.
00448  M00S00343.vemem   +++|  .* NOW ALLOCATE UEC AND IOB
00449  M00S00344.vemem   +++|  $BEGIN(DECKS,VEMEM,MF,NOS,VE,#UEC=UEC,#OPTION=OPTION)

Seq #  *Modification Id* Act 
----------------------------+
00450  M01S00345.vemem1  ---|$ENDIF(UECLOOP1)
00451  M01S00346.vemem1  ---|$REVERT. UECLOOP
00452  M01S00347.vemem1  ---|$EXIT. UECLOOP
00453  M01S00348.vemem1  ---|$REVERT(ABORT) UECLOOP

Seq #  *Modification Id* Act 
----------------------------+
00454  M01S00106.vemem1  +++|$ENDIF(UEC1)
00455  M01S00107.vemem1  +++|$REVERT. #UEC
00456  M01S00108.vemem1  +++|$EXIT. #UEC
00457  M01S00109.vemem1  +++|$REVERT(ABORT) #UEC
00458  M00S00349.vemem   +++|*WEOR
00459  M00S00350.vemem   +++|.PROC,MAIN3*I
00460  M00S00351.vemem   +++|,MF      =(*S6/D)
00461  M00S00352.vemem   +++|,NOS     =(*A)
00462  M00S00353.vemem   +++|,VE      =(*A)

Seq #  *Modification Id* Act 
----------------------------+
00463  M01S00354.vemem1  ---|,PT      =(*A)
00464  M00S00355.vemem   +++|,OPTION  =(*A)

Seq #  *Modification Id* Act 
----------------------------+
00465  M01S00110.vemem1  +++|,LOW     =(*N=4)
00466  M00S00356.vemem   +++|,VEMEM   =(*N=#FILE)
00467  M00S00357.vemem   +++|.
00468  M00S00358.vemem   +++|.* CHOOSE AN AMOUNT OF UEM MEMORY

Seq #  *Modification Id* Act 
----------------------------+
00469  M01S00359.vemem1  ---|.* (4) = LOWER BOUND = 4 KORDS
00470  M01S00360.vemem1  ---|$SET(R1=NOS-128) ** UPPER BOUND = NOS-1MB FOR JOBS
00471  M01S00361.vemem1  ---|$IF, (R1 .LT. 4) ,MAIN3A.

Seq #  *Modification Id* Act 
----------------------------+
00472  M01S00111.vemem1  +++|.* (4) = LOWER BOUND = 4 KWORDS
00473  M01S00112.vemem1  +++|.IF,(NOS.GT.(2048+LOW)),MAIN3A.
00474  M01S00113.vemem1  +++|  .SET(#LOW=STRD(NOS-2048))  ** LOWER BOUND = NOS-16MB FOR JOBS
00475  M01S00114.vemem1  +++|.ENDIF,MAIN3A.
00476  M01S00115.vemem1  +++|.SET(#UP=STRD(NOS-128))  ** UPPER BOUND = NOS-1MB FOR JOBS
00477  M01S00116.vemem1  +++|.IF, (UP .LT. 4) ,MAIN3B.
00478  M00S00362.vemem   +++|  $NOTE.;;:I Insufficient #NOS memory to allocate
00479  M00S00363.vemem   +++|  $NOTE.;:I UEM.  Please re-start VEMEM.;
00480  M00S00364.vemem   +++|  $REVERT.

Seq #  *Modification Id* Act 
----------------------------+
00481  M01S00365.vemem1  ---|$ENDIF(MAIN3A)
00482  M01S00366.vemem1  ---|$BEGIN(UEMLOOP,VEMEM,MF,NOS,VE,PT,0,4,R1+,#OPTION=OPTION,FIRST=YES)

Seq #  *Modification Id* Act 
----------------------------+
00483  M01S00117.vemem1  +++|.ELSE(MAIN3B)
00484  M01S00118.vemem1  +++|$BEGIN(UEM,VEMEM,MF,NOS,VE,0,LOW,UP,OPTION,FIRST=YES)
00485  M00S00367.vemem   +++|$REVERT. MAIN3 COMPLETE

Seq #  *Modification Id* Act 
----------------------------+
00486  M01S00119.vemem1  +++|.ENDIF(MAIN3B)
00487  M00S00368.vemem   +++|$EXIT. MAIN3
00488  M00S00369.vemem   +++|$REVERT(ABORT) MAIN3 FAILED
00489  M00S00370.vemem   +++|*WEOR

Seq #  *Modification Id* Act 
----------------------------+
00490  M01S00371.vemem1  ---|.PROC,UEMLOOP*I

Seq #  *Modification Id* Act 
----------------------------+
00491  M01S00120.vemem1  +++|.PROC,UEM*I
00492  M00S00372.vemem   +++|,MF      =(*A)
00493  M00S00373.vemem   +++|,NOS     =(*A)
00494  M00S00374.vemem   +++|,VE      =(*A)

Seq #  *Modification Id* Act 
----------------------------+
00495  M01S00375.vemem1  ---|,PT      =(*A)
00496  M00S00376.vemem   +++|,UEM     =(*A)
00497  M00S00377.vemem   +++|,LOW     =(*A)
00498  M00S00378.vemem   +++|,UP      =(*A)
00499  M00S00379.vemem   +++|,OPTION  =(*A)
00500  M00S00380.vemem   +++|,FIRST   =(*N=NO,YES,NO)
00501  M00S00381.vemem   +++|,VEMEM   =(*N=#FILE)
00502  M00S00382.vemem   +++|.

Seq #  *Modification Id* Act 
----------------------------+
00503  M01S00383.vemem1  ---|$SET(R2=NOS-UEM)  ** SYSTEM AND JOB MEMORY
00504  M01S00384.vemem1  ---|.IF, ($FIRST$ .EQ. $NO$) ,UEMLOOP0.

Seq #  *Modification Id* Act 
----------------------------+
00505  M01S00121.vemem1  +++|.SET(#JOBS=STRD(NOS-UEM))  ** SYSTEM AND JOB MEMORY
00506  M01S00122.vemem1  +++|.IF, ($FIRST$ .EQ. $NO$) ,UEM0.
00507  M00S00385.vemem   +++|  $NOTE.;;:I Current choices (Octal/1000B words):;

Seq #  *Modification Id* Act 
----------------------------+
00508  M01S00386.vemem1  ---|  $BEGIN(DISPW,VEMEM,#JOBS,R2+)

Seq #  *Modification Id* Act 
----------------------------+
00509  M01S00123.vemem1  +++|  $BEGIN(DISPW,VEMEM,#JOBS,JOBS)
00510  M00S00387.vemem   +++|  $BEGIN(DISPW,VEMEM,#UEM,UEM)
00511  M00S00388.vemem   +++|  $BEGIN(DISPW,VEMEM,#NOS,NOS)
00512  M00S00389.vemem   +++|  $BEGIN(CHOOSE1,VEMEM,$#UEM$)CHOICE RETURNS IN R1

Seq #  *Modification Id* Act 
----------------------------+
00513  M01S00390.vemem1  ---|.ELSE(UEMLOOP0)

Seq #  *Modification Id* Act 
----------------------------+
00514  M01S00124.vemem1  +++|.ELSE(UEM0)
00515  M00S00391.vemem   +++|  $SET(R1=1)

Seq #  *Modification Id* Act 
----------------------------+
00516  M01S00392.vemem1  ---|.ENDIF(UEMLOOP0)
00517  M01S00393.vemem1  ---|$IF, (R1 = 1) ,UEMLOOP1.
00518  M01S00394.vemem1  ---|  $SET(R1G=-1)
00519  M01S00395.vemem1  ---|  $WHILE,(R1G=-1),LOOP1.
00520  M01S00396.vemem1  ---|    $BEGIN(DISRNGW,VEMEM,#UEM,LOW,UP)
00521  M01S00397.vemem1  ---|    $BEGIN(#UEM,VEMEM)  ** VALUE RETURNS IN R1G
00522  M01S00398.vemem1  ---|    $IF, ((R1G .LT. LOW) .OR. (R1G .GT. UP)) ,UEMLOOP1A.
00523  M01S00399.vemem1  ---|      $NOTE.;;:I Memory value is out of range.
00524  M01S00400.vemem1  ---|      $NOTE.;:I Please re-enter.
00525  M01S00401.vemem1  ---|      $SET(R1G=-1)
00526  M01S00402.vemem1  ---|    $ENDIF(UEMLOOP1A)
00527  M01S00403.vemem1  ---|  $ENDW(LOOP1)
00528  M01S00404.vemem1  ---|  $REVERT(EX)$BEGIN(UEMLOOP,VEMEM,MF,NOS,VE,PT,R1G+,LOW,UP,#OPTION=OPTION)
00529  M01S00405.vemem1  ---|$ELSE(UEMLOOP1)

Seq #  *Modification Id* Act 
----------------------------+
00530  M01S00125.vemem1  +++|.ENDIF(UEM0)
00531  M01S00126.vemem1  +++|$IF, (R1 = 1) ,UEM1.
00532  M01S00127.vemem1  +++|  $BEGIN(DISRNGW,VEMEM,#UEM,LOW,UP)
00533  M01S00128.vemem1  +++|  $BEGIN(UEMQ,VEMEM,,MF,NOS,VE,LOW,UP,OPTION)  ** UEMQ RECALLS #UEM
00534  M01S00129.vemem1  +++|$ELSE(UEM1)
00535  M00S00406.vemem   +++|  .* QUIT WAS CHOSEN.
00536  M00S00407.vemem   +++|  .* NOW ALLOCATE UEC AND IOB

Seq #  *Modification Id* Act 
----------------------------+
00537  M01S00408.vemem1  ---|  $BEGIN(MAIN4,VEMEM,MF,NOS,VE,PT,UEM,#OPTION=OPTION)
00538  M01S00409.vemem1  ---|$ENDIF(UEMLOOP1)
00539  M01S00410.vemem1  ---|$REVERT. UEMLOOP
00540  M01S00411.vemem1  ---|$EXIT. UEMLOOP
00541  M01S00412.vemem1  ---|$REVERT(ABORT) UEMLOOP

Seq #  *Modification Id* Act 
----------------------------+
00542  M01S00130.vemem1  +++|  $BEGIN(MAIN4,VEMEM,MF,NOS,VE,UEM,#OPTION=OPTION)
00543  M01S00131.vemem1  +++|$ENDIF(UEM1)
00544  M01S00132.vemem1  +++|$REVERT. #UEM
00545  M01S00133.vemem1  +++|$EXIT. #UEM
00546  M01S00134.vemem1  +++|$REVERT(ABORT) #UEM
00547  M00S00413.vemem   +++|*WEOR
00548  M00S00414.vemem   +++|.PROC,MAIN4*I
00549  M00S00415.vemem   +++|,MF      =(*S6/D)
00550  M00S00416.vemem   +++|,NOS     =(*A)
00551  M00S00417.vemem   +++|,VE      =(*A)

Seq #  *Modification Id* Act 
----------------------------+
00552  M01S00418.vemem1  ---|,PT      =(*A)
00553  M00S00419.vemem   +++|,UEM     =(*A)
00554  M00S00420.vemem   +++|,OPTION  =(*A)
00555  M00S00421.vemem   +++|,VEMEM   =(*N=#FILE)
00556  M00S00422.vemem   +++|.
00557  M00S00423.vemem   +++|.* CHOOSE AN AMOUNT OF UEC/IOB MEMORY

Seq #  *Modification Id* Act 
----------------------------+
00558  M01S00424.vemem1  ---|$BEGIN(UE2LOOP,VEMEM,MF,NOS,VE,PT,UEM,0,0,#OPTION=OPTION,FIRST=YES)

Seq #  *Modification Id* Act 
----------------------------+
00559  M01S00135.vemem1  +++|$BEGIN(UIO,VEMEM,MF,NOS,VE,UEM,0,0,OPTION,FIRST=YES)
00560  M00S00425.vemem   +++|$REVERT. MAIN4 COMPLETE
00561  M00S00426.vemem   +++|$EXIT. MAIN4
00562  M00S00427.vemem   +++|$REVERT(ABORT) MAIN4 FAILED
00563  M00S00428.vemem   +++|*WEOR

Seq #  *Modification Id* Act 
----------------------------+
00564  M01S00429.vemem1  ---|.PROC,UE2LOOP*I
00565  M01S00430.vemem1  ---|,MF      =(*A)

Seq #  *Modification Id* Act 
----------------------------+
00566  M01S00136.vemem1  +++|.PROC,UIO*I
00567  M01S00137.vemem1  +++|,MF      =(*A)
00568  M00S00431.vemem   +++|,NOS     =(*A)
00569  M00S00432.vemem   +++|,VE      =(*A)

Seq #  *Modification Id* Act 
----------------------------+
00570  M01S00433.vemem1  ---|,PT      =(*A)
00571  M00S00434.vemem   +++|,UEM     =(*A)
00572  M00S00435.vemem   +++|,IOB     =(*A)
00573  M00S00436.vemem   +++|,UEC     =(*A)
00574  M00S00437.vemem   +++|,OPTION  =(*A)
00575  M00S00438.vemem   +++|,FIRST   =(*N=NO,YES,NO)
00576  M00S00439.vemem   +++|,VEMEM   =(*N=#FILE)
00577  M00S00440.vemem   +++|.

Seq #  *Modification Id* Act 
----------------------------+
00578  M01S00441.vemem1  ---|$SET(R2=UEM-IOB-UEC )  ** ASR AND SECONDARY ROLLOUT
00579  M01S00442.vemem1  ---|.IF, ($FIRST$ .EQ. $NO$) ,UE2LOOP0.

Seq #  *Modification Id* Act 
----------------------------+
00580  M01S00138.vemem1  +++|.SET(#ASR=STRD(UEM-IOB-UEC))  ** ASR AND SECONDARY ROLLOUT
00581  M01S00139.vemem1  +++|.IF, ($FIRST$ .EQ. $NO$) ,UIO0.
00582  M00S00443.vemem   +++|  $NOTE.;;:I Current choices (Octal/1000B words):;

Seq #  *Modification Id* Act 
----------------------------+
00583  M01S00444.vemem1  ---|  $BEGIN(DISPW,VEMEM,#ASR,R2+)

Seq #  *Modification Id* Act 
----------------------------+
00584  M01S00140.vemem1  +++|  $BEGIN(DISPW,VEMEM,#ASR,ASR)
00585  M00S00445.vemem   +++|  $BEGIN(DISPW,VEMEM,#IOB,IOB)
00586  M00S00446.vemem   +++|  $BEGIN(DISPW,VEMEM,#UEC,UEC)
00587  M00S00447.vemem   +++|  $BEGIN(DISPW,VEMEM,#UEMT,UEM)
00588  M00S00448.vemem   +++|  $BEGIN(CHOOSE1,VEMEM,$#IOB/#UEC$)  CHOICE RETURNS IN R1

Seq #  *Modification Id* Act 
----------------------------+
00589  M01S00449.vemem1  ---|.ELSE(UE2LOOP0)

Seq #  *Modification Id* Act 
----------------------------+
00590  M01S00141.vemem1  +++|.ELSE(UIO0)
00591  M00S00450.vemem   +++|  $SET(R1=1)

Seq #  *Modification Id* Act 
----------------------------+
00592  M01S00451.vemem1  ---|.ENDIF(UE2LOOP0)
00593  M01S00452.vemem1  ---|$IF, (R1 = 1) ,UE2LOOP1.
00594  M01S00453.vemem1  ---|  $SET(R1G=-1)
00595  M01S00454.vemem1  ---|  $WHILE,(R1G=-1),LOOP1.
00596  M01S00455.vemem1  ---|    $BEGIN(DISRNGW,VEMEM,#IOB,16,UEM)
00597  M01S00456.vemem1  ---|    $BEGIN(DISRNGW,VEMEM,#UEC,0,UEM)
00598  M01S00457.vemem1  ---|    $SET(R1G=UEM)
00599  M01S00458.vemem1  ---|    $BEGIN(UEM2,VEMEM)  ** RETURN IOB IN R1G, UEC IN R1. BOTH IN OCTAL STILL
00600  M01S00459.vemem1  ---|  $ENDW(LOOP1)
00601  M01S00460.vemem1  ---|  $SET(R1G=R1G/2)
00602  M01S00461.vemem1  ---|  $SET(R1=R1/2)
00603  M01S00462.vemem1  ---|  $BEGIN(PASSON,VEMEM,MF,NOS,VE,PT,UEM,R1G+,R1+,#OPTION=OPTION)
00604  M01S00463.vemem1  ---|$ELSE(UE2LOOP1)

Seq #  *Modification Id* Act 
----------------------------+
00605  M01S00142.vemem1  +++|.ENDIF(UIO0)
00606  M01S00143.vemem1  +++|$IF, (R1 = 1) ,UIO1.
00607  M01S00144.vemem1  +++|  $BEGIN(DISRNGW,VEMEM,#IOB,16,UEM)
00608  M01S00145.vemem1  +++|  $BEGIN(DISRNGW,VEMEM,#UEC,0,UEM)
00609  M01S00146.vemem1  +++|  $BEGIN(UIOQ,VEMEM,,,MF,NOS,VE,UEM,OPTION)  ** UIOQ RECALLS UIO
00610  M01S00147.vemem1  +++|$ELSE(UIO1)
00611  M00S00464.vemem   +++|  .* QUIT WAS CHOSEN.
00612  M00S00465.vemem   +++|  $BEGIN(DECKS,VEMEM,MF,NOS,VE,UEM,IOB,UEC,#OPTION=OPTION)

Seq #  *Modification Id* Act 
----------------------------+
00613  M01S00466.vemem1  ---|$ENDIF(UE2LOOP1)
00614  M01S00467.vemem1  ---|$REVERT. UE2LOOP
00615  M01S00468.vemem1  ---|$EXIT. UE2LOOP
00616  M01S00469.vemem1  ---|$REVERT(ABORT) UE2LOOP

Seq #  *Modification Id* Act 
----------------------------+
00617  M01S00148.vemem1  +++|$ENDIF(UIO1)
00618  M01S00149.vemem1  +++|$REVERT. UIO
00619  M01S00150.vemem1  +++|$EXIT. UIO
00620  M01S00151.vemem1  +++|$REVERT(ABORT) UIO
00621  M00S00470.vemem   +++|*WEOR

Seq #  *Modification Id* Act 
----------------------------+
00622  M01S00471.vemem1  ---|.PROC,PASSON*I
00623  M01S00472.vemem1  ---|,MF      =(*A)
00624  M01S00473.vemem1  ---|,NOS     =(*A)
00625  M01S00474.vemem1  ---|,VE      =(*A)
00626  M01S00475.vemem1  ---|,PT      =(*A)
00627  M01S00476.vemem1  ---|,UEM     =(*A)
00628  M01S00477.vemem1  ---|,IOB     =(*A)
00629  M01S00478.vemem1  ---|,UEC     =(*A)
00630  M01S00479.vemem1  ---|,OPTION  =(*A)
00631  M01S00480.vemem1  ---|,VEMEM   =(*N=#FILE)
00632  M01S00481.vemem1  ---|.
00633  M01S00482.vemem1  ---|$REVERT(EX)$REVERT(EX)$BEGIN(UE2LOOP,VEMEM,MF,NOS,VE,PT,UEM,IOB,UEC,OPTION)
00634  M01S00483.vemem1  ---|*WEOR
00635  M00S00484.vemem   +++|.PROC,CHOOSE1*I
00636  M00S00485.vemem   +++|,ARG     =(*A)
00637  M00S00486.vemem   +++|,DF      =(*N=#DATA)
00638  M00S00487.vemem   +++|.
00639  M00S00488.vemem   +++|$NOTE.
00640  M00S00489.vemem   +++|$REVERT(EX)$BEGIN,DF,DF.
00641  M00S00490.vemem   +++|.DATA,DF.
00642  M00S00491.vemem   +++|.PROC,DF*I
00643  M00S00492.vemem   +++|,CHOICE [Change ARG allocation (Yes or No)] =(Y=1,YES=1,YE=1,NO=0,N=0)
00644  M00S00493.vemem   +++|.
00645  M00S00494.vemem   +++|$UNLOAD,DF.
00646  M00S00495.vemem   +++|$REVERT(EX)$SET(R1=CHOICE)
00647  M00S00496.vemem   +++|*WEOR
00648  M00S00497.vemem   +++|.PROC,VENOS*M
00649  M00S00498.vemem   +++|,CHOICE=
00650  M00S00499.vemem   +++|(1 "Specify amount of memory for NOS"
00651  M00S00500.vemem   +++|,2 "Specify amount of memory for NOS/VE")
00652  M00S00501.vemem   +++|.
00653  M00S00502.vemem   +++|.HELP
00654  M00S00503.vemem   +++|You may choose to:
00655  M00S00504.vemem   +++|1) Allocate a specific amount of your mainframes memory for NOS
00656  M00S00505.vemem   +++|    (including UEM, UEC and/or IOB if applicable) and give the
00657  M00S00506.vemem   +++|    remainder of memory to NOS/VE.
00658  M00S00507.vemem   +++|2)  Allocate a specific amount of your mainframes memory for NOS/VE and
00659  M00S00508.vemem   +++|    give the remainder to NOS (including UEM, UEC, and/or IOB if
00660  M00S00509.vemem   +++|    applicable).
00661  M00S00510.vemem   +++|.HELP,1
00662  M00S00511.vemem   +++|By selecting this option, you will be prompted to select a specific
00663  M00S00512.vemem   +++|amount of memory (in megabytes) for NOS.  The remainder of your memory
00664  M00S00513.vemem   +++|will be allocated for NOS/VE.
00665  M00S00514.vemem   +++|.HELP,2
00666  M00S00515.vemem   +++|By selecting this option, you will be prompted to select a specific
00667  M00S00516.vemem   +++|amount of memory (in megabytes) for NOS/VE.  The remainder of your
00668  M00S00517.vemem   +++|memory will be allocated for NOS.
00669  M00S00518.vemem   +++|.ENDHELP
00670  M00S00519.vemem   +++|$REVERT(EX)$SET(R1=CHOICE)
00671  M00S00520.vemem   +++|*WEOR
00672  M00S00521.vemem   +++|.PROC,MF*I"Specify the amount of mainframe memory."

Seq #  *Modification Id* Act 
----------------------------+
00673  M01S00522.vemem1  ---|,MBYTE [Megabyte portion of physical memory(8-128)] =(*S3/D)
00674  M01S00523.vemem1  ---|,KBYTE [Kilobyte portion of physical memory(0-960)]
00675  M01S00524.vemem1  ---|       =(*N=0,0, 64= 8,128=16,192=24,256=32,320=40,384=48,448=56,512=64,
00676  M01S00525.vemem1  ---|                576=72,640=80,704=88,768=96,832=104,896=112,960=120)

Seq #  *Modification Id* Act 
----------------------------+
00677  M01S00152.vemem1  +++|,MBYTE [Megabyte portion of physical memory(8-256)] =(*S3/D)
00678  M01S00153.vemem1  +++|,KBYTE [Kilobyte portion of physical memory(0-960)] =(*S3/D,*N=0)
00679  M01S00154.vemem1  +++|,LOW   =(*N=8)
00680  M01S00155.vemem1  +++|,UP    =(*N=256)
00681  M00S00526.vemem   +++|,VEMEM =(*N=#FILE)
00682  M00S00527.vemem   +++|.
00683  M00S00528.vemem   +++|.HELP.
00684  M00S00529.vemem   +++|Supply the amount of physical memory (memory to be used by both
00685  M00S00530.vemem   +++|NOS and NOS/VE) on your mainframe.  This value is given in terms
00686  M00S00531.vemem   +++|of
00687  M00S00532.vemem   +++|       Mbytes,Kbytes
00688  M00S00533.vemem   +++|That is: integer amount in megabytes comma fractional amount in
00689  M00S00534.vemem   +++|kilobytes.
00690  M00S00535.vemem   +++|
00691  M00S00536.vemem   +++|If your physical memory size is 16 megabytes, you
00692  M00S00537.vemem   +++|would enter:
00693  M00S00538.vemem   +++|  16,0
00694  M00S00539.vemem   +++|.HELP,MBYTE,NOLIST.
00695  M00S00540.vemem   +++|How much physical memory you have, in integer megabytes,kilobytes.  For
00696  M00S00541.vemem   +++|example, if you have 16 megabytes of physical memory, enter 16,0.
00697  M00S00542.vemem   +++|
00698  M00S00543.vemem   +++|If you have a non-integer megabyte amount of physical memory, enter the
00699  M00S00544.vemem   +++|integer portion, a comma, and the remainder in kilobytes.
00700  M00S00545.vemem   +++|For example, if you have 8.5 megabytes of physical memory, enter:
00701  M00S00546.vemem   +++|   8,512
00702  M00S00547.vemem   +++|.HELP,KBYTE,NOLIST.
00703  M00S00548.vemem   +++|Any more physical memory that you have, AFTER you have expressed it in
00704  M00S00549.vemem   +++|megabytes.  Enter a value for this only if you have a non-integer
00705  M00S00550.vemem   +++|megabyte amount of physical memory.  For example, if you have 8.5
00706  M00S00551.vemem   +++|megabytes of physical memory, you would enter:
00707  M00S00552.vemem   +++|   512
00708  M00S00553.vemem   +++|at this prompt for the non-integer (.5) megabyte portion of your
00709  M00S00554.vemem   +++|physical memory.
00710  M00S00555.vemem   +++|
00711  M00S00556.vemem   +++|The following table lists the kilobyte value for fractions of
00712  M00S00557.vemem   +++|megabytes.
00713  M00S00558.vemem   +++|    Kilobyte       Fraction of a Megabyte
00714  M00S00559.vemem   +++|       64                  1/16
00715  M00S00560.vemem   +++|      128                  1/8
00716  M00S00561.vemem   +++|      192                  3/16
00717  M00S00562.vemem   +++|      256                  1/4
00718  M00S00563.vemem   +++|      320                  5/16
00719  M00S00564.vemem   +++|      384                  3/8
00720  M00S00565.vemem   +++|      448                  7/16
00721  M00S00566.vemem   +++|      512                  1/2
00722  M00S00567.vemem   +++|      576                  9/16
00723  M00S00568.vemem   +++|      640                  5/8
00724  M00S00569.vemem   +++|      704                  11/16
00725  M00S00570.vemem   +++|      768                  3/4
00726  M00S00571.vemem   +++|      832                  13/16
00727  M00S00572.vemem   +++|      896                  7/8
00728  M00S00573.vemem   +++|      960                  15/16
00729  M00S00574.vemem   +++|.ENDHELP
00730  M00S00575.vemem   +++|.*

Seq #  *Modification Id* Act 
----------------------------+
00731  M01S00576.vemem1  ---|$SET(R3=0)
00732  M01S00577.vemem1  ---|.IF, (MBYTE .LT. 8) .OR. (MBYTE .GT. 128) ,MF0.
00733  M01S00578.vemem1  ---|  $SET(R3=1)
00734  M01S00579.vemem1  ---|.ELSE(MF0)
00735  M01S00580.vemem1  ---|  $SET(R1G=MBYTE*128+KBYTE)
00736  M01S00581.vemem1  ---|  $IF, (R1G .LT. 8*128) .OR. (R1G .GT. 128*128) .$SET(R3=1)
00737  M01S00582.vemem1  ---|.ENDIF(MF0)
00738  M01S00583.vemem1  ---|$IF, (R3 .NE. 0) ,MF1.
00739  M01S00584.vemem1  ---|  $NOTE.;;:I Memory range is 8 - 128 megabytes.

Seq #  *Modification Id* Act 
----------------------------+
00740  M01S00156.vemem1  +++|.SET(#KBYTE=STRD(((KBYTE+63)/64)*64)).
00741  M01S00157.vemem1  +++|.IF, (MBYTE .LT. LOW) .OR. (MBYTE*128+KBYTE/8 .GT. UP*128) ,MF1.
00742  M01S00158.vemem1  +++|  $NOTE.;;:I Memory range is LOW - UP megabytes.
00743  M00S00585.vemem   +++|  $NOTE.;:I Please re-enter.;
00744  M00S00586.vemem   +++|  $REVERT(EX)$BEGIN(MF,VEMEM)

Seq #  *Modification Id* Act 
----------------------------+
00745  M01S00587.vemem1  ---|$ENDIF(MF1)
00746  M01S00588.vemem1  ---|.* R1G IS RETURNED IN KWORDS
00747  M01S00589.vemem1  ---|$REVERT. MF(TOTAL) - COMPLETE

Seq #  *Modification Id* Act 
----------------------------+
00748  M01S00159.vemem1  +++|.ENDIF(MF1)
00749  M01S00160.vemem1  +++|.*  RETURN MBYTE IN R2, KBYTE IN R3.
00750  M01S00161.vemem1  +++|$REVERT,EX.$SET(R2=MBYTE,R3=KBYTE)
00751  M00S00590.vemem   +++|$EXIT. MF
00752  M00S00591.vemem   +++|$REVERT(ABORT) MF
00753  M00S00592.vemem   +++|*WEOR

Seq #  *Modification Id* Act 
----------------------------+
00754  M01S00593.vemem1  ---|.PROC,VE*I"Specify the amount of NOS/VE memory."
00755  M01S00594.vemem1  ---|,MBYTE [Megabyte portion of VE memory] =(*S3/D)
00756  M01S00595.vemem1  ---|,KBYTE [Kilobyte portion of mainframe memory]
00757  M01S00596.vemem1  ---|       =(*N=0,0, 64= 8,128=16,192=24,256=32,320=40,384=48,448=56,512=64,
00758  M01S00597.vemem1  ---|               576=72,640=80,704=88,768=96,832=104,896=112,960=120)
00759  M01S00598.vemem1  ---|,VEMEM =(*N=#FILE)

Seq #  *Modification Id* Act 
----------------------------+
00760  M01S00162.vemem1  +++|.PROC,VEQ*I"Specify the amount of NOS/VE memory."
00761  M01S00163.vemem1  +++|,MBYTE [Megabyte portion of VE memory] =(*S1..3/D)
00762  M01S00164.vemem1  +++|,KBYTE [Kilobyte portion of mainframe memory] =(*S3/D,*N=0)
00763  M01S00165.vemem1  +++|,MF      =(*A)
00764  M01S00166.vemem1  +++|,LOW     =(*A)
00765  M01S00167.vemem1  +++|,UP      =(*A)
00766  M01S00168.vemem1  +++|,OPTION  =(*A)
00767  M01S00169.vemem1  +++|,VEMEM   =(*N=#FILE)
00768  M00S00599.vemem   +++|.
00769  M00S00600.vemem   +++|.HELP,MBYTE,NOLIST.
00770  M00S00601.vemem   +++| How much memory NOS/VE is to use, in integer
00771  M00S00602.vemem   +++|   megabytes,kilobytes
00772  M00S00603.vemem   +++| For example, to specify NOS/VE is to use 16 megabytes of
00773  M00S00604.vemem   +++|memory, enter
00774  M00S00605.vemem   +++|   16,0
00775  M00S00606.vemem   +++| To specify a non-integer megabyte amount of memory,
00776  M00S00607.vemem   +++|enter the integer portion, a comma, and the remainder in
00777  M00S00608.vemem   +++|kilobytes.
00778  M00S00609.vemem   +++| For example, to specify 8.5 megabytes of memory, enter
00779  M00S00610.vemem   +++|   8,512
00780  M00S00611.vemem   +++|
00781  M00S00612.vemem   +++| NOTE: you must reserve a minimum of 6.5 megabytes for NOS/VE.
00782  M00S00613.vemem   +++|.HELP,KBYTE,NOLIST.
00783  M00S00614.vemem   +++| Any more NOS/VE memory, AFTER you have expressed it in
00784  M00S00615.vemem   +++|megabytes.  Enter a value for this only if you have a
00785  M00S00616.vemem   +++|non-integer megabyte amount of memory for NOS/VE.
00786  M00S00617.vemem   +++| For example, to specify 8.5 megabytes of memory for NOS/VE,
00787  M00S00618.vemem   +++|you would enter
00788  M00S00619.vemem   +++|   512
00789  M00S00620.vemem   +++| at this prompt for the non-integer (.5) megabyte portion of
00790  M00S00621.vemem   +++|your memory amount.
00791  M00S00622.vemem   +++|
00792  M00S00623.vemem   +++| The following table lists the kilobyte value for fractions of
00793  M00S00624.vemem   +++|megabytes.
00794  M00S00625.vemem   +++|    Kilobyte       Fraction of a Megabyte
00795  M00S00626.vemem   +++|       64                  1/16
00796  M00S00627.vemem   +++|      128                  1/8
00797  M00S00628.vemem   +++|      192                  3/16
00798  M00S00629.vemem   +++|      256                  1/4
00799  M00S00630.vemem   +++|      320                  5/16
00800  M00S00631.vemem   +++|      384                  3/8
00801  M00S00632.vemem   +++|      448                  7/16
00802  M00S00633.vemem   +++|      512                  1/2
00803  M00S00634.vemem   +++|      576                  9/16
00804  M00S00635.vemem   +++|      640                  5/8
00805  M00S00636.vemem   +++|      704                  11/16
00806  M00S00637.vemem   +++|      768                  3/4
00807  M00S00638.vemem   +++|      832                  13/16
00808  M00S00639.vemem   +++|      896                  7/8
00809  M00S00640.vemem   +++|      960                  15/16
00810  M00S00641.vemem   +++|.ENDHELP
00811  M00S00642.vemem   +++|.*

Seq #  *Modification Id* Act 
----------------------------+
00812  M01S00643.vemem1  ---|.IF, (MBYTE .GT. 128) ,VE0.
00813  M01S00644.vemem1  ---|  $SET(R1=-1)
00814  M01S00645.vemem1  ---|.ELSE(VE0)
00815  M01S00646.vemem1  ---|  $SET(R1=MBYTE*128+KBYTE)
00816  M01S00647.vemem1  ---|.ENDIF(VE0)
00817  M01S00648.vemem1  ---|$SET(R1G=R1)  VALUE RETURNED IS KWORDS
00818  M01S00649.vemem1  ---|$REVERT. VE(TOTAL) - COMPLETE
00819  M01S00650.vemem1  ---|$EXIT. VE
00820  M01S00651.vemem1  ---|$REVERT(ABORT) VE

Seq #  *Modification Id* Act 
----------------------------+
00821  M01S00170.vemem1  +++|.SET(#VE=STRD(MBYTE*128+((KBYTE+63)/64)*8))
00822  M01S00171.vemem1  +++|.IF, (VE .GT. 0) .AND. ((VE .LT. LOW) .OR. (VE .GT. UP)) ,VE1.
00823  M01S00172.vemem1  +++|  .SET(N1=STRD(LOW/128),N2=STRD(UP/128))
00824  M01S00173.vemem1  +++|  $NOTE.;;:I Memory range for #VE is N1 - N2 megabytes.
00825  M01S00174.vemem1  +++|  $NOTE.;:I Please re-enter.;
00826  M01S00175.vemem1  +++|  $REVERT,EX.$BEGIN(VEQ,VEMEM,,,MF,LOW,UP,OPTION)
00827  M01S00176.vemem1  +++|.ENDIF(VE1)
00828  M01S00177.vemem1  +++|$REVERT(EX)$REVERT(EX)$BEGIN(#VE,VEMEM,MF,VE,LOW,UP,OPTION)
00829  M01S00178.vemem1  +++|$EXIT. VEQ
00830  M01S00179.vemem1  +++|$REVERT(ABORT) VEQ
00831  M00S00652.vemem   +++|*WEOR

Seq #  *Modification Id* Act 
----------------------------+
00832  M01S00653.vemem1  ---|.PROC,NOS*I"Specify the amount of NOS memory."
00833  M01S00654.vemem1  ---|,MBYTE [Megabyte portion of NOS memory] =(1,2,3,4,5,6,7,8,9,10,11,12,13,
00834  M01S00655.vemem1  ---|                                          14,15,16)
00835  M01S00656.vemem1  ---|,KBYTE [Kilobyte portion of mainframe memory]
00836  M01S00657.vemem1  ---|       =(*N=0,0, 64= 8,128=16,192=24,256=32,320=40,384=48,448=56,512=64,
00837  M01S00658.vemem1  ---|                576=72,640=80,704=88,768=96,832=104,896=112,960=120)
00838  M01S00659.vemem1  ---|,VEMEM =(*N=#FILE)

Seq #  *Modification Id* Act 
----------------------------+
00839  M01S00180.vemem1  +++|.PROC,NOSQ*I"Specify the amount of NOS memory."
00840  M01S00181.vemem1  +++|,MBYTE [Megabyte portion of NOS memory] =(*S1..3/D)
00841  M01S00182.vemem1  +++|,KBYTE [Kilobyte portion of mainframe memory] =(*S3/D,*N=0)
00842  M01S00183.vemem1  +++|,MF      =(*A)
00843  M01S00184.vemem1  +++|,LOW     =(*A,*N=1)
00844  M01S00185.vemem1  +++|,UP      =(*A,*N=128)
00845  M01S00186.vemem1  +++|,OPTION  =(*A)
00846  M01S00187.vemem1  +++|,VEMEM   =(*N=#FILE)
00847  M00S00660.vemem   +++|.
00848  M00S00661.vemem   +++|.HELP,MBYTE,NOLIST.
00849  M00S00662.vemem   +++| How much memory NOS is to use, in integer
00850  M00S00663.vemem   +++|   megabytes,kilobytes
00851  M00S00664.vemem   +++| For example, to specify NOS is to use 16 megabytes of
00852  M00S00665.vemem   +++|memory, enter
00853  M00S00666.vemem   +++|   16,0
00854  M00S00667.vemem   +++| To specify a non-integer megabyte amount of memory,
00855  M00S00668.vemem   +++|enter the integer portion, a comma, and the remainder in
00856  M00S00669.vemem   +++|kilobytes.
00857  M00S00670.vemem   +++| For example, to specify 8.5 megabytes of memory, enter
00858  M00S00671.vemem   +++|   8,512
00859  M00S00672.vemem   +++|
00860  M00S00673.vemem   +++| This table lists equivalences of memory sizes in megabytes,kilobytes,
00861  M00S00674.vemem   +++|words in octal, and words in decimal.
00862  M00S00675.vemem   +++|  Megabytes,Kilobytes        Words (octal)       Words (decimal)
00863  M00S00676.vemem   +++|          1,0                  400000             131072
00864  M00S00677.vemem   +++|          1,512                600000             196608
00865  M00S00678.vemem   +++|          2,0                 1000000             262144
00866  M00S00679.vemem   +++|          3,0                 1400000             393216
00867  M00S00680.vemem   +++|          4,0                 2000000             524288

Seq #  *Modification Id* Act 
----------------------------+
00868  M01S00681.vemem1  ---|          5,0                 2400000             655360
00869  M01S00682.vemem1  ---|          6,0                 3000000             786432
00870  M01S00683.vemem1  ---|          7,0                 3400000             917504
00871  M00S00684.vemem   +++|          8,0                 4000000            1048576

Seq #  *Modification Id* Act 
----------------------------+
00872  M01S00685.vemem1  ---|          9,0                 4400000            1179648
00873  M01S00686.vemem1  ---|         10,0                 5000000            1310720
00874  M01S00687.vemem1  ---|         11,0                 5400000            1441792
00875  M01S00688.vemem1  ---|         12,0                 6000000            1572864
00876  M01S00689.vemem1  ---|         13,0                 6400000            1703936
00877  M01S00690.vemem1  ---|         14,0                 7000000            1835008
00878  M01S00691.vemem1  ---|         15,0                 7400000            1966080
00879  M00S00692.vemem   +++|         16,0                10000000            2097152

Seq #  *Modification Id* Act 
----------------------------+
00880  M01S00188.vemem1  +++|         32,0                20000000            4194304
00881  M01S00189.vemem1  +++|         64,0                40000000            8388608
00882  M01S00190.vemem1  +++|        128,0               100000000           16777216
00883  M00S00693.vemem   +++|
00884  M00S00694.vemem   +++| NOTE:  You must reserve a minimum of 1 megabyte for NOS.

Seq #  *Modification Id* Act 
----------------------------+
00885  M01S00695.vemem1  ---|NOS can use a maximum of 16 megabytes.

Seq #  *Modification Id* Act 
----------------------------+
00886  M01S00191.vemem1  +++|NOS can use a maximum of 128 megabytes.
00887  M00S00696.vemem   +++|.HELP,KBYTE,NOLIST.
00888  M00S00697.vemem   +++| Any more NOS memory, AFTER you have expressed it in
00889  M00S00698.vemem   +++|megabytes.  Enter a value for this only if you have a
00890  M00S00699.vemem   +++|non-integer megabyte amount of memory for NOS.
00891  M00S00700.vemem   +++| For example, to specify 8.5 megabytes of memory for NOS,
00892  M00S00701.vemem   +++|you would enter
00893  M00S00702.vemem   +++|   512
00894  M00S00703.vemem   +++| at this prompt for the non-integer (.5) megabyte portion of
00895  M00S00704.vemem   +++|your memory amount.
00896  M00S00705.vemem   +++|
00897  M00S00706.vemem   +++| The following table lists the kilobyte value for fractions of
00898  M00S00707.vemem   +++|megabytes.
00899  M00S00708.vemem   +++|    Kilobyte       Fraction of a Megabyte
00900  M00S00709.vemem   +++|       64                  1/16
00901  M00S00710.vemem   +++|      128                  1/8
00902  M00S00711.vemem   +++|      192                  3/16
00903  M00S00712.vemem   +++|      256                  1/4
00904  M00S00713.vemem   +++|      320                  5/16
00905  M00S00714.vemem   +++|      384                  3/8
00906  M00S00715.vemem   +++|      448                  7/16
00907  M00S00716.vemem   +++|      512                  1/2
00908  M00S00717.vemem   +++|      576                  9/16
00909  M00S00718.vemem   +++|      640                  5/8
00910  M00S00719.vemem   +++|      704                  11/16
00911  M00S00720.vemem   +++|      768                  3/4
00912  M00S00721.vemem   +++|      832                  13/16
00913  M00S00722.vemem   +++|      896                  7/8
00914  M00S00723.vemem   +++|      960                  15/16
00915  M00S00724.vemem   +++|.ENDHELP

Seq #  *Modification Id* Act 
----------------------------+
00916  M01S00725.vemem1  ---|$SET(R1G=MBYTE*128+KBYTE) VALUE RETURNED IN KWORDS
00917  M01S00726.vemem1  ---|$REVERT. NOS(TOTAL) - COMPLETE
00918  M01S00727.vemem1  ---|$EXIT. NOS
00919  M01S00728.vemem1  ---|$REVERT(ABORT) NOS

Seq #  *Modification Id* Act 
----------------------------+
00920  M01S00192.vemem1  +++|.SET(#NOS=STRD(MBYTE*128+((KBYTE+63)/64)*8))
00921  M01S00193.vemem1  +++|.IF, (NOS .LT. LOW) .OR. (NOS .GT. UP) ,NOS2.
00922  M01S00194.vemem1  +++|  .SET(N1=STRD(LOW/128),N2=STRD(UP/128))
00923  M01S00195.vemem1  +++|  $NOTE.;;:I Memory range for #NOS is N1 - N2 megabytes.
00924  M01S00196.vemem1  +++|  $NOTE.;:I Please re-enter.;
00925  M01S00197.vemem1  +++|  $REVERT,EX.$BEGIN(NOSQ,VEMEM,,,MF,LOW,UP,OPTION)
00926  M01S00198.vemem1  +++|.ENDIF(NOS2)
00927  M01S00199.vemem1  +++|$REVERT(EX)$REVERT(EX)$BEGIN(#NOS,VEMEM,MF,NOS,LOW,UP,OPTION)
00928  M01S00200.vemem1  +++|$EXIT. NOSQ
00929  M01S00201.vemem1  +++|$REVERT(ABORT) NOSQ
00930  M00S00729.vemem   +++|*WEOR

Seq #  *Modification Id* Act 
----------------------------+
00931  M01S00730.vemem1  ---|.PROC,UEM2*I"Allocate I/O Buffers and User Extended Memory"
00932  M01S00731.vemem1  ---|,IOB [Octal/1000B words memory for IOB] =(*S4/B)
00933  M01S00732.vemem1  ---|,UEC [Octal/1000B words memory for UEC] =(*S4/B)

Seq #  *Modification Id* Act 
----------------------------+
00934  M01S00202.vemem1  +++|.PROC,UIOQ*I"Allocate I/O Buffers and User Extended Memory"
00935  M01S00203.vemem1  +++|,IOB [Octal/1000B words memory for IOB] =(*S6/B)
00936  M01S00204.vemem1  +++|,UEC [Octal/1000B words memory for UEC] =(*S6/B)
00937  M01S00205.vemem1  +++|,MF      =(*A)
00938  M01S00206.vemem1  +++|,NOS     =(*A)
00939  M01S00207.vemem1  +++|,VE      =(*A)
00940  M01S00208.vemem1  +++|,UEM   =(*A)
00941  M01S00209.vemem1  +++|,OPTION  =(*A)
00942  M00S00733.vemem   +++|,VEMEM =(*N=#FILE)
00943  M00S00734.vemem   +++|.
00944  M00S00735.vemem   +++|.HELP,IOB,NOLIST.
00945  M00S00736.vemem   +++| An octal value specifying the amount of memory to be reserved
00946  M00S00737.vemem   +++|for input/output device buffers for 895-type disk drives.
00947  M00S00738.vemem   +++| This octal value is in units of 1000 octal words.
00948  M00S00739.vemem   +++|.HELP,UEC,NOLIST.
00949  M00S00740.vemem   +++| An octal value specifying the amount of memory to be reserved
00950  M00S00741.vemem   +++|for user accessible extended memory.
00951  M00S00742.vemem   +++| This octal value is in units of 1000 octal words.
00952  M00S00743.vemem   +++|.ENDHELP
00953  M00S00744.vemem   +++|.*
00954  M00S00745.vemem   +++|.* VALIDATE IOB

Seq #  *Modification Id* Act 
----------------------------+
00955  M01S00746.vemem1  ---|$IF, (IOB .NE. 0) ,UEM2A.
00956  M01S00747.vemem1  ---|  $SET(R1=IOB_B/2) CONVERT TO KWORDS
00957  M01S00748.vemem1  ---|  $IF, (R1 .LT. 16) .OR. (R1 .GT. R1G) ,UEM2B.
00958  M01S00749.vemem1  ---|.ENDIF(UE2LOOP0)

Seq #  *Modification Id* Act 
----------------------------+
00959  M01S00210.vemem1  +++|.IF, (IOB .NE. 0) ,UIOQ1.
00960  M01S00211.vemem1  +++|  .SET(#IOB=STRD(IOB_B/2))
00961  M01S00212.vemem1  +++|  .IF, (IOB .LT. 16) .OR. (IOB .GT. UEM) ,UIOQ1A.
00962  M00S00750.vemem   +++|    $NOTE.;;:I #IOB memory value out of range.

Seq #  *Modification Id* Act 
----------------------------+
00963  M01S00751.vemem1  ---|    $NOTE.;:I Please re-enter.
00964  M01S00752.vemem1  ---|    $REVERT(EX)$SET(R1G=-1)
00965  M01S00753.vemem1  ---|  $ENDIF(UEM2B)
00966  M01S00754.vemem1  ---|$ENDIF(UEM2A)

Seq #  *Modification Id* Act 
----------------------------+
00967  M01S00213.vemem1  +++|    $BEGIN(DISRNGW,VEMEM,#IOB,16,UEM)
00968  M01S00214.vemem1  +++|    $BEGIN(DISRNGW,VEMEM,#UEC,0,UEM)
00969  M01S00215.vemem1  +++|    $NOTE.;:I Please re-enter.
00970  M01S00216.vemem1  +++|    $REVERT,EX.$BEGIN(UIOQ,VEMEM,,,MF,NOS,VE,UEM,OPTION)
00971  M01S00217.vemem1  +++|  .ENDIF(UIOQ1A)
00972  M01S00218.vemem1  +++|.ENDIF(UIOQ1)
00973  M00S00755.vemem   +++|.* VALIDATE UEC

Seq #  *Modification Id* Act 
----------------------------+
00974  M01S00756.vemem1  ---|$SET(R1=UEC_B/2) CONVERT TO KWORDS
00975  M01S00757.vemem1  ---|$IF, (R1 .GT. R1G) ,UEM2C.

Seq #  *Modification Id* Act 
----------------------------+
00976  M01S00219.vemem1  +++|.SET(#UEC=STRD(UEC_B/2))
00977  M01S00220.vemem1  +++|.IF, (UEC .GT. UEM) ,UIOQ2.
00978  M00S00758.vemem   +++|  $NOTE.;;:I #UEC memory value out of range.

Seq #  *Modification Id* Act 
----------------------------+
00979  M01S00759.vemem1  ---|  $NOTE.;:I Please re-enter.
00980  M01S00760.vemem1  ---|  $REVERT(EX)$SET(R1G=-1)
00981  M01S00761.vemem1  ---|$ENDIF(UEM2C)

Seq #  *Modification Id* Act 
----------------------------+
00982  M01S00221.vemem1  +++|  $BEGIN(DISRNGW,VEMEM,#IOB,16,UEM)
00983  M01S00222.vemem1  +++|  $BEGIN(DISRNGW,VEMEM,#UEC,0,UEM)
00984  M01S00223.vemem1  +++|  $NOTE.;:I Please re-enter.
00985  M01S00224.vemem1  +++|  $REVERT,EX.$BEGIN(UIOQ,VEMEM,,,MF,NOS,VE,UEM,OPTION)
00986  M01S00225.vemem1  +++|.ENDIF(UIOQ2)
00987  M00S00762.vemem   +++|.* VALIDATE UEC+IOB

Seq #  *Modification Id* Act 
----------------------------+
00988  M01S00763.vemem1  ---|$SET(R1=(IOB_B/2) + (UEC_B/2)) CONVERT TO KWORDS
00989  M01S00764.vemem1  ---|$IF, (R1 .GT. R1G) ,UEM2D.

Seq #  *Modification Id* Act 
----------------------------+
00990  M01S00226.vemem1  +++|.IF, (IOB+UEC .GT. UEM) ,UIOQ3.
00991  M00S00765.vemem   +++|  $NOTE.;;:I #IOB+#UEC memory value out of range.

Seq #  *Modification Id* Act 
----------------------------+
00992  M01S00766.vemem1  ---|  $NOTE.;:I Please re-enter.
00993  M01S00767.vemem1  ---|  $REVERT(EX)$SET(R1G=-1)
00994  M01S00768.vemem1  ---|$ENDIF(UEM2D)
00995  M01S00769.vemem1  ---|$SET(R1G=IOB_B)
00996  M01S00770.vemem1  ---|$REVERT(EX)$SET(R1=UEC_B)
00997  M01S00771.vemem1  ---|.* BOTH VALUES RETURNED IN OCTAL/1000B
00998  M01S00772.vemem1  ---|$REVERT. UEM2(TOTAL) - COMPLETE
00999  M01S00773.vemem1  ---|$EXIT. UEM2
01000  M01S00774.vemem1  ---|$REVERT(ABORT) UEM2

Seq #  *Modification Id* Act 
----------------------------+
01001  M01S00227.vemem1  +++|  $BEGIN(DISRNGW,VEMEM,#IOB,16,UEM)
01002  M01S00228.vemem1  +++|  $BEGIN(DISRNGW,VEMEM,#UEC,0,UEM)
01003  M01S00229.vemem1  +++|  $NOTE.;:I Please re-enter.
01004  M01S00230.vemem1  +++|  $REVERT,EX.$BEGIN(UIOQ,VEMEM,,,MF,NOS,VE,UEM,OPTION)
01005  M01S00231.vemem1  +++|.ENDIF(UIOQ3)
01006  M01S00232.vemem1  +++|$REVERT(EX)$REVERT(EX)$BEGIN(UIO,VEMEM,MF,NOS,VE,UEM,IOB,UEC,OPTION)
01007  M01S00233.vemem1  +++|$EXIT. UIOQ
01008  M01S00234.vemem1  +++|$REVERT(ABORT) UIOQ
01009  M00S00775.vemem   +++|*WEOR

Seq #  *Modification Id* Act 
----------------------------+
01010  M01S00776.vemem1  ---|.PROC,UEC*I"Allocate User Accessible Extended Memory"
01011  M01S00777.vemem1  ---|,WORDS [Octal/1000B words Memory for UEC] =(*S4/B)
01012  M01S00778.vemem1  ---|,VEMEM =(*N=#FILE)

Seq #  *Modification Id* Act 
----------------------------+
01013  M01S00235.vemem1  +++|.PROC,UECQ*I"Allocate User Accessible Extended Memory"
01014  M01S00236.vemem1  +++|,WORDS [Octal/1000B words Memory for UEC] =(*S1..6/B)
01015  M01S00237.vemem1  +++|,MF      =(*A)
01016  M01S00238.vemem1  +++|,NOS     =(*A)
01017  M01S00239.vemem1  +++|,VE      =(*A)
01018  M01S00240.vemem1  +++|,LOW     =(*A)
01019  M01S00241.vemem1  +++|,UP      =(*A)
01020  M01S00242.vemem1  +++|,OPTION  =(*A)
01021  M01S00243.vemem1  +++|,VEMEM   =(*N=#FILE)
01022  M00S00779.vemem   +++|.
01023  M00S00780.vemem   +++|.HELP,WORDS,NOLIST.
01024  M00S00781.vemem   +++| An octal value specifying the amount of memory to be reserved
01025  M00S00782.vemem   +++|for user accessible extended memory.
01026  M00S00783.vemem   +++| This octal value is in units of 1000 octal words.
01027  M00S00784.vemem   +++|.ENDHELP

Seq #  *Modification Id* Act 
----------------------------+
01028  M01S00785.vemem1  ---|$SET(R1G=WORDS_B/2) CONVERT TO KWORDS
01029  M01S00786.vemem1  ---|$REVERT. UEC(TOTAL) - COMPLETE
01030  M01S00787.vemem1  ---|$EXIT. UEC
01031  M01S00788.vemem1  ---|$REVERT(ABORT) UEC

Seq #  *Modification Id* Act 
----------------------------+
01032  M01S00244.vemem1  +++|.SET(#UEC=STRD(WORDS_B/2))
01033  M01S00245.vemem1  +++|.IF,((UEC .LT. LOW).OR.(UEC .GT. UP)),UEC1A.
01034  M01S00246.vemem1  +++|  $NOTE.;;:I #UEC Memory value is out of range.
01035  M01S00247.vemem1  +++|  $BEGIN(DISRNGW,VEMEM,$#UEC$,LOW,UP)
01036  M01S00248.vemem1  +++|  $NOTE.;:I Please re-enter.
01037  M01S00249.vemem1  +++|  $REVERT,EX.$BEGIN(UECQ,VEMEM,,MF,NOS,VE,LOW,UP,OPTION)
01038  M01S00250.vemem1  +++|.ENDIF,UEC1A
01039  M01S00251.vemem1  +++|$REVERT(EX)$REVERT(EX)$BEGIN(#UEC,VEMEM,MF,NOS,VE,UEC,LOW,UP,OPTION)
01040  M01S00252.vemem1  +++|$EXIT. UECQ
01041  M01S00253.vemem1  +++|$REVERT(ABORT) UECQ
01042  M00S00789.vemem   +++|*WEOR

Seq #  *Modification Id* Act 
----------------------------+
01043  M01S00790.vemem1  ---|.PROC,UEM*I"Allocate Unified Extended Memory"
01044  M01S00791.vemem1  ---|,WORDS [Octal/1000B words Memory for UEM] =(*S4/B)
01045  M01S00792.vemem1  ---|,VEMEM =(*N=#FILE)

Seq #  *Modification Id* Act 
----------------------------+
01046  M01S00254.vemem1  +++|.PROC,UEMQ*I"Allocate Unified Extended Memory"
01047  M01S00255.vemem1  +++|,WORDS [Octal/1000B words Memory for UEM] =(*S1..6/B)
01048  M01S00256.vemem1  +++|,MF      =(*A)
01049  M01S00257.vemem1  +++|,NOS     =(*A)
01050  M01S00258.vemem1  +++|,VE      =(*A)
01051  M01S00259.vemem1  +++|,LOW     =(*A)
01052  M01S00260.vemem1  +++|,UP      =(*A)
01053  M01S00261.vemem1  +++|,OPTION  =(*A)
01054  M01S00262.vemem1  +++|,VEMEM   =(*N=#FILE)
01055  M00S00793.vemem   +++|.
01056  M00S00794.vemem   +++|.HELP,WORDS,NOLIST.
01057  M00S00795.vemem   +++| An octal value specifying the amount of memory to be reserved
01058  M00S00796.vemem   +++|for unified extended memory.
01059  M00S00797.vemem   +++| This octal value is in units of 1000 octal words.
01060  M00S00798.vemem   +++|.ENDHELP

Seq #  *Modification Id* Act 
----------------------------+
01061  M01S00799.vemem1  ---|$SET(R1G=WORDS_B/2) CONVERT TO KWORDS
01062  M01S00800.vemem1  ---|$REVERT. UEM(TOTAL) - COMPLETE
01063  M01S00801.vemem1  ---|$EXIT. UEM
01064  M01S00802.vemem1  ---|$REVERT(ABORT) UEM

Seq #  *Modification Id* Act 
----------------------------+
01065  M01S00263.vemem1  +++|.SET(#UEM=STRD(WORDS_B/2))
01066  M01S00264.vemem1  +++|.IF,((UEM .LT. LOW).OR.(UEM .GT. UP)),UEM1A.
01067  M01S00265.vemem1  +++|  $NOTE.;;:I #UEM Memory value is out of range.
01068  M01S00266.vemem1  +++|  $BEGIN(DISRNGW,VEMEM,#UEM,LOW,UP)
01069  M01S00267.vemem1  +++|  $NOTE.;:I Please re-enter.
01070  M01S00268.vemem1  +++|  $REVERT(EX)$BEGIN(UEMQ,VEMEM,,MF,NOS,VE,LOW,UP,OPTION)
01071  M01S00269.vemem1  +++|.ENDIF,UEM1A
01072  M01S00270.vemem1  +++|$REVERT(EX)$REVERT(EX)$BEGIN(#UEM,VEMEM,MF,NOS,VE,UEM,LOW,UP,OPTION)
01073  M01S00271.vemem1  +++|$EXIT. UEMQ
01074  M01S00272.vemem1  +++|$REVERT(ABORT) UEMQ
01075  M00S00803.vemem   +++|*WEOR
01076  M00S00804.vemem   +++|.PROC,DECKS*I
01077  M00S00805.vemem   +++|,MF      =(*A)
01078  M00S00806.vemem   +++|,NOS     =(*A)

Seq #  *Modification Id* Act 
----------------------------+
01079  M01S00807.vemem1  ---|,VE      =(*A)
01080  M01S00808.vemem1  ---|,UEM     =(*N=,*A)
01081  M01S00809.vemem1  ---|,IOB     =(*N=,*A)
01082  M01S00810.vemem1  ---|,UEC     =(*N=,*A)

Seq #  *Modification Id* Act 
----------------------------+
01083  M01S00273.vemem1  +++|,VE      =(*N=0,*A)
01084  M01S00274.vemem1  +++|,UEM     =(*N=0,*A)
01085  M01S00275.vemem1  +++|,IOB     =(*N=0,*A)
01086  M01S00276.vemem1  +++|,UEC     =(*N=0,*A)
01087  M00S00811.vemem   +++|,OPTION  =(*A)
01088  M00S00812.vemem   +++|,VEMEM   =(*N=#FILE)
01089  M00S00813.vemem   +++|.

Seq #  *Modification Id* Act 
----------------------------+
01090  M01S00277.vemem1  +++|.SET(#NOS=STRB(NOS*16)) ** CONVERT TO OCTAL/100B
01091  M01S00278.vemem1  +++|.SET(#VE=STRB(VE*2))    ** CONVERT TO OCTAL/1000B
01092  M01S00279.vemem1  +++|.SET(#UEC=STRB(UEC*2))  ** CONVERT TO OCTAL/1000B
01093  M01S00280.vemem1  +++|.SET(#IOB=STRB(IOB*2))  ** CONVERT TO OCTAL/1000B
01094  M01S00281.vemem1  +++|.SET(#UEM=STRB(UEM*2))  ** CONVERT TO OCTAL/1000B
01095  M00S00814.vemem   +++|$RETURN(CMREQP)
01096  M00S00815.vemem   +++|.IF, ($OPTION$ .EQ. $1$) ,DECKS1.
01097  M00S00816.vemem   +++|  .* NOS/VE, NOS, NO UEM, NO UEC
01098  M00S00817.vemem   +++|  $NOTE.;;;:I Make the following CMR deck entries:;

Seq #  *Modification Id* Act 
----------------------------+
01099  M01S00818.vemem1  ---|  $SET(R1=NOS*16) ** CONVERT TO OCTAL/100B
01100  M01S00819.vemem1  ---|  $BEGIN(DISVAL,VEMEM,$MINCM=$, R1+B)
01101  M01S00820.vemem1  ---|  $BEGIN(DISVAL,VEMEM,$#VE=$, 0)

Seq #  *Modification Id* Act 
----------------------------+
01102  M01S00282.vemem1  +++|  .IF, (VE .EQ. 0) ,DECKS1A.
01103  M01S00283.vemem1  +++|    $BEGIN(DISVAL,VEMEM,$#VE=$, *)
01104  M01S00284.vemem1  +++|  .ELSE,DECKS1A.
01105  M01S00285.vemem1  +++|    $BEGIN(DISVAL,VEMEM,$MINCM=$,NOS)
01106  M01S00286.vemem1  +++|    $BEGIN(DISVAL,VEMEM,$#VE=$, 0)
01107  M01S00287.vemem1  +++|  .ENDIF,DECKS1A.
01108  M00S00821.vemem   +++|.ELSE(DECKS1)

Seq #  *Modification Id* Act 
----------------------------+
01109  M01S00288.vemem1  +++|.IF, (VE .EQ. 0) ,DECKS2.
01110  M01S00289.vemem1  +++|  .SET(#VE=STR($*$))    ** EXCLUDE NOS/VE
01111  M01S00290.vemem1  +++|.ENDIF,DECKS2.
01112  M00S00822.vemem   +++|.IF, ($OPTION$ .EQ. $2$) ,DECKS1.
01113  M00S00823.vemem   +++|  .* NOS/VE, NOS, NO UEM, YES UEC
01114  M00S00824.vemem   +++|  $NOTE.;;;:I Make the following CMR deck entries:;

Seq #  *Modification Id* Act 
----------------------------+
01115  M01S00825.vemem1  ---|  $SET(R1=VE*2)  ** CONVERT TO OCTAL/1000B
01116  M01S00826.vemem1  ---|  $BEGIN(DISVAL,VEMEM,$#VE=$, R1+B)

Seq #  *Modification Id* Act 
----------------------------+
01117  M01S00291.vemem1  +++|  $BEGIN(DISVAL,VEMEM,$#VE=$,VE)
01118  M00S00827.vemem   +++|  .IF, (UEC .NE. 0) ,DECKS3.
01119  M00S00828.vemem   +++|    $NOTE.;;:I Make the following EQP deck entries:;

Seq #  *Modification Id* Act 
----------------------------+
01120  M01S00829.vemem1  ---|    $SET(R1=UEC*2)  ** CONVERT TO OCTAL/1000B
01121  M01S00830.vemem1  ---|    $BEGIN(DISVAL,VEMEM,$XM=MCHID,0,$,R1+B,$,EM$)

Seq #  *Modification Id* Act 
----------------------------+
01122  M01S00292.vemem1  +++|    $BEGIN(DISVAL,VEMEM,$XM=MCHID,0,$,UEC,$,EM$)
01123  M00S00831.vemem   +++|    $NOTE.;;:I Where MCHID is your machine ID.
01124  M00S00832.vemem   +++|    $NOTE.;:I (CMRDECK entry MID.)
01125  M00S00833.vemem   +++|  .ENDIF(DECKS3)
01126  M00S00834.vemem   +++|.ELSE(DECKS1)
01127  M00S00835.vemem   +++|  .* NOS/VE, NOS, UEM, MAYBE IOB AND UEC
01128  M00S00836.vemem   +++|  $NOTE.;;;:I Make the following CMR deck entries:;

Seq #  *Modification Id* Act 
----------------------------+
01129  M01S00837.vemem1  ---|  $SET(R1=VE*2)  ** CONVERT TO OCTAL/1000B
01130  M01S00838.vemem1  ---|  $BEGIN(DISVAL,VEMEM,$#VE=$, R1+B)

Seq #  *Modification Id* Act 
----------------------------+
01131  M01S00293.vemem1  +++|  $BEGIN(DISVAL,VEMEM,$#VE=$,VE)
01132  M00S00839.vemem   +++|  $NOTE.;;;:I Make the following EQP deck entries:;

Seq #  *Modification Id* Act 
----------------------------+
01133  M01S00840.vemem1  ---|  $SET(R1=UEM*2)    ** CONVERT TO OCTAL/1000B
01134  M01S00841.vemem1  ---|  $BEGIN(DISVAL,VEMEM,$EQ5=DE,ST=ON,ET=EM,SZ=$,R1+B)

Seq #  *Modification Id* Act 
----------------------------+
01135  M01S00294.vemem1  +++|  $BEGIN(DISVAL,VEMEM,$EQ5=DE,ST=ON,ET=EM,SZ=$,UEM)
01136  M00S00842.vemem   +++|  .IF, (IOB .NE. 0) .OR. (UEC .NE. 0) ,DECKS1A.

Seq #  *Modification Id* Act 
----------------------------+
01137  M01S00843.vemem1  ---|    $SET(R1=IOB*2)  ** CONVERT TO OCTAL/1000B
01138  M01S00844.vemem1  ---|    $SET(R2=UEC*2)  ** CONVERT TO OCTAL/1000B
01139  M01S00845.vemem1  ---|    $BEGIN(DISVAL,VEMEM,$XM=MCHID,$,R1+B,$,$,R2+B)

Seq #  *Modification Id* Act 
----------------------------+
01140  M01S00295.vemem1  +++|    $BEGIN(DISVAL,VEMEM,$XM=MCHID,$,IOB,$,$,UEC)
01141  M00S00846.vemem   +++|    $NOTE.;;:I Where MCHID is your machine ID.
01142  M00S00847.vemem   +++|    $NOTE.;:I (CMRDECK entry MID.)
01143  M00S00848.vemem   +++|  .ENDIF(DECKS1A)
01144  M00S00849.vemem   +++|.ENDIF(DECKS1)
01145  M00S00850.vemem   +++|$NOTE.;;:I Entries placed on local file CMREQP.;;
01146  M00S00851.vemem   +++|$PACK(CMREQP)
01147  M00S00852.vemem   +++|$REVERT. DECKS COMPLETE
01148  M00S00853.vemem   +++|$EXIT. DECKS
01149  M00S00854.vemem   +++|$REVERT(ABORT) DECKS
01150  M00S00855.vemem   +++|*WEOR
01151  M00S00856.vemem   +++|.PROC,DISVAL*I
01152  M00S00857.vemem   +++|,MSG1    =(*A)

Seq #  *Modification Id* Act 
----------------------------+
01153  M01S00858.vemem1  ---|,VAL1    =(*S6/B)

Seq #  *Modification Id* Act 
----------------------------+
01154  M01S00296.vemem1  +++|,VAL1    =(*S6/B*)
01155  M00S00859.vemem   +++|,MSG2    =(*A,*N=)

Seq #  *Modification Id* Act 
----------------------------+
01156  M01S00860.vemem1  ---|,VAL2    =(*S6/B,*N=)

Seq #  *Modification Id* Act 
----------------------------+
01157  M01S00297.vemem1  +++|,VAL2    =(*S6/B*,*N=)
01158  M00S00861.vemem   +++|.
01159  M00S00862.vemem   +++|$NOTE.;MSG1_VAL1_MSG2_VAL2.
01160  M00S00863.vemem   +++|$NOTE,CMREQP,NR.;MSG1_VAL1_MSG2_VAL2.
01161  M00S00864.vemem   +++|$REVERT. DISVAL
01162  M00S00865.vemem   +++|*WEOR
01163  M00S00866.vemem   +++|.PROC,DISRNGB*I
01164  M00S00867.vemem   +++|,WORD   =(*A)
01165  M00S00868.vemem   +++|,LOW    =(*S6/D)
01166  M00S00869.vemem   +++|,UP     =(*S6/D)
01167  M00S00870.vemem   +++|,VEMEM  =(*N=#FILE)
01168  M00S00871.vemem   +++|.

Seq #  *Modification Id* Act 
----------------------------+
01169  M01S00298.vemem1  +++|.SET(#L1=STRD(LOW/128))
01170  M01S00299.vemem1  +++|.SET(#L2=STRD((LOW-L1*128)*8))
01171  M01S00300.vemem1  +++|.SET(#L1=STR($  _L1$,-3),#L2=STR($00_L2$,-3))
01172  M01S00301.vemem1  +++|.SET(#U1=STRD(UP/128))
01173  M01S00302.vemem1  +++|.SET(#U2=STRD((UP-U1*128)*8))
01174  M01S00303.vemem1  +++|.SET(#U1=STR($   _U1$,-3),#U2=STR($000_U2$,-3))
01175  M00S00872.vemem   +++|$NOTE.;;:I Allowed range for WORD memory is:
01176  M00S00873.vemem   +++|$NOTE.;:I     (Megabytes,Kilobytes);

Seq #  *Modification Id* Act 
----------------------------+
01177  M01S00874.vemem1  ---|$SET(R1=LOW/128)
01178  M01S00875.vemem1  ---|$SET(R2=(LOW-R1*128)*8)
01179  M01S00876.vemem1  ---|$BEGIN(,ZZZZZDD,LOWER,R1+,R2+)
01180  M01S00877.vemem1  ---|$SET(R1=UP/128)
01181  M01S00878.vemem1  ---|$SET(R2=(UP-R1*128)*8)
01182  M01S00879.vemem1  ---|$BEGIN(,ZZZZZDD,UPPER,R1+,R2+)
01183  M01S00880.vemem1  ---|$RETURN,ZZZZZDD.

Seq #  *Modification Id* Act 
----------------------------+
01184  M01S00304.vemem1  +++|$NOTE.;:I LOWER bound is L1,L2;
01185  M01S00305.vemem1  +++|$NOTE.;:I UPPER bound is U1,U2;
01186  M00S00881.vemem   +++|$REVERT. DISRANG COMPLETE
01187  M00S00882.vemem   +++|$EXIT. DISRANG
01188  M00S00883.vemem   +++|$REVERT(ABORT) DISRANG FAILED

Seq #  *Modification Id* Act 
----------------------------+
01189  M01S00884.vemem1  ---|.DATA,ZZZZZDD
01190  M01S00885.vemem1  ---|.PROC,ZZZZZDD*I
01191  M01S00886.vemem1  ---|,BOUND  =(*A)
01192  M01S00887.vemem1  ---|,N1     =(*A)
01193  M01S00888.vemem1  ---|,N2     =(0=000,64=064,*A)

Seq #  *Modification Id* Act 
----------------------------+
01194  M01S00306.vemem1  +++|*WEOR
01195  M01S00307.vemem1  +++|.PROC,DISPB*I
01196  M01S00308.vemem1  +++|,TYPE   =(*A)
01197  M01S00309.vemem1  +++|,AMOUNT =(*A)
01198  M00S00889.vemem   +++|.

Seq #  *Modification Id* Act 
----------------------------+
01199  M01S00890.vemem1  ---|$NOTE.;:I BOUND bound is N1,N2;

Seq #  *Modification Id* Act 
----------------------------+
01200  M01S00310.vemem1  +++|.SET(#MB=STRD(AMOUNT/128))
01201  M01S00311.vemem1  +++|.SET(#KB=STRD((AMOUNT-MB*128)*8))
01202  M01S00312.vemem1  +++|.SET(#MB=STR($   _MB$,-3),#KB=STR($000_KB$,-3))
01203  M01S00313.vemem1  +++|.IF, ($TYPE$ .EQ. $PT$) ,DISPB1.
01204  M01S00314.vemem1  +++|  $NOTE.;:I              Page Table memory is MB,KB
01205  M01S00315.vemem1  +++|.ELSE(DISPB1)
01206  M01S00316.vemem1  +++|.IF, ($TYPE$ .EQ. $NOS$) ,DISPB1.
01207  M01S00317.vemem1  +++|  $NOTE.;:I                     NOS memory is MB,KB
01208  M01S00318.vemem1  +++|.ELSE(DISPB1)
01209  M01S00319.vemem1  +++|.IF, ($TYPE$ .EQ. $VE$) ,DISPB1.
01210  M01S00320.vemem1  +++|  $NOTE.;:I                  NOS/VE memory is MB,KB
01211  M01S00321.vemem1  +++|.ELSE(DISPB1)
01212  M01S00322.vemem1  +++|.IF, ($TYPE$ .EQ. $MF$) ,DISPB1.
01213  M01S00323.vemem1  +++|  $NOTE.;:ITOTAL Physical Mainframe memory is MB,KB
01214  M01S00324.vemem1  +++|.ENDIF(DISPB1)
01215  M00S00891.vemem   +++|$REVERT.
01216  M00S00892.vemem   +++|*WEOR

Seq #  *Modification Id* Act 
----------------------------+
01217  M01S00893.vemem1  ---|.PROC,DISPB,TYPE,AMOUNT.
01218  M01S00894.vemem1  ---|$SET(R1=AMOUNT/128)
01219  M01S00895.vemem1  ---|$SET(R2=(AMOUNT-R1*128)*8)
01220  M01S00896.vemem1  ---|$BEGIN,,DISPB0,R1+,R2+.
01221  M01S00897.vemem1  ---|$RETURN(DISPB0,DIPSB1)
01222  M01S00898.vemem1  ---|$REVERT.
01223  M01S00899.vemem1  ---|.DATA,DISPB0
01224  M01S00900.vemem1  ---|.PROC,DISPB0*I
01225  M01S00901.vemem1  ---|,MB      =(*A)
01226  M01S00902.vemem1  ---|,KB      =(*A)

Seq #  *Modification Id* Act 
----------------------------+
01227  M01S00325.vemem1  +++|.PROC,DISRNGW*I
01228  M01S00326.vemem1  +++|,WORD    =(*A)
01229  M01S00327.vemem1  +++|,LOW     =(*S6/D)
01230  M01S00328.vemem1  +++|,UP      =(*S6/D)
01231  M01S00329.vemem1  +++|,VEMEM   =(*N=#FILE)
01232  M00S00903.vemem   +++|.

Seq #  *Modification Id* Act 
----------------------------+
01233  M01S00904.vemem1  ---|SET,R1=MB.
01234  M01S00905.vemem1  ---|IF, (R1 .LT.  10) .$REVERT(EX)DISPB1($  MB$,KB)
01235  M01S00906.vemem1  ---|IF, (R1 .LT. 100) .$REVERT(EX)DISPB1($ MB$,KB)
01236  M01S00907.vemem1  ---|$REVERT(EX)DISPB1(MB,KB)
01237  M01S00908.vemem1  ---|.DATA,DISPB1
01238  M01S00909.vemem1  ---|.PROC,DISPB1*I
01239  M01S00910.vemem1  ---|,MB      =(*A)
01240  M01S00911.vemem1  ---|,KB      =(*A)
01241  M01S00912.vemem1  ---|,FIXED   =(*N=NO,*K=YES,NO,YES)

Seq #  *Modification Id* Act 
----------------------------+
01242  M01S00330.vemem1  +++|.SET(N1=STRB(LOW*2))
01243  M01S00331.vemem1  +++|.SET(N2=STRB(UP*2))
01244  M01S00332.vemem1  +++|$NOTE.;;:I Allowed range for WORD memory is:
01245  M01S00333.vemem1  +++|$NOTE.;:I     (Octal/1000B words);
01246  M01S00334.vemem1  +++|$NOTE.;:I          N1 - N2;
01247  M01S00335.vemem1  +++|.IF, ($WORD$ .EQ. $IOB$) .$NOTE.;:I (Enter 0 for no IOB).
01248  M01S00336.vemem1  +++|$REVERT. DISRNGW COMPLETE
01249  M01S00337.vemem1  +++|$EXIT. DISRNGW
01250  M01S00338.vemem1  +++|$REVERT(ABORT) DISRNGW FAILED
01251  M01S00339.vemem1  +++|*WEOR
01252  M01S00340.vemem1  +++|.PROC,DISPW*I
01253  M01S00341.vemem1  +++|,TYPE   =(*A)
01254  M01S00342.vemem1  +++|,AMOUNT =(*A)
01255  M00S00913.vemem   +++|.

Seq #  *Modification Id* Act 
----------------------------+
01256  M01S00914.vemem1  ---|.EXPAND(OFF)
01257  M01S00915.vemem1  ---|IF, ($FIXED$ .EQ. $NO$) ,DISPB0.
01258  M01S00916.vemem1  ---|  SET,R1=KB.
01259  M01S00917.vemem1  ---|  IF, (R1 .LT.  10) .$REVERT(EX)$BEGIN(,DISPB1,$MB$,$00_KB$,#FIXED)
01260  M01S00918.vemem1  ---|  IF, (R1 .LT. 100) .$REVERT(EX)$BEGIN(,DISPB1,$MB$,$0_KB$,#FIXED)
01261  M01S00919.vemem1  ---|ENDIF(DISPB0)
01262  M01S00920.vemem1  ---|.EXPAND(ON)
01263  M01S00921.vemem1  ---|.IF, ($TYPE$ .EQ. $PT$) ,DISPB1A.
01264  M01S00922.vemem1  ---|  $NOTE.;:I              Page Table memory is MB,KB
01265  M01S00923.vemem1  ---|.ELSE(DISPB1A)
01266  M01S00924.vemem1  ---|.IF, ($TYPE$ .EQ. $NOS$) ,DISPB1A.
01267  M01S00925.vemem1  ---|  $NOTE.;:I                     NOS memory is MB,KB
01268  M01S00926.vemem1  ---|.ELSE(DISPB1A)
01269  M01S00927.vemem1  ---|.IF, ($TYPE$ .EQ. $VE$) ,DISPB1A.
01270  M01S00928.vemem1  ---|  $NOTE.;:I                  NOS/VE memory is MB,KB
01271  M01S00929.vemem1  ---|.ELSE(DISPB1A)
01272  M01S00930.vemem1  ---|.IF, ($TYPE$ .EQ. $MF$) ,DISPB1A.
01273  M01S00931.vemem1  ---|  $NOTE.;:ITOTAL Physical Mainframe memory is MB,KB
01274  M01S00932.vemem1  ---|.ENDIF(DISPB1A)

Seq #  *Modification Id* Act 
----------------------------+
01275  M01S00343.vemem1  +++|.SET,#AMOUNT=STRB(AMOUNT*2).
01276  M01S00344.vemem1  +++|.SET,#AMOUNT=STR($      AMOUNT$,-6).
01277  M01S00345.vemem1  +++|.IF, ($TYPE$ .EQ. $JOBS$) ,DISPW1.
01278  M01S00346.vemem1  +++|  $NOTE.;:I     SYSTEM & Executing Job memory is AMOUNT
01279  M01S00347.vemem1  +++|.ELSE(DISPW1)
01280  M01S00348.vemem1  +++|.IF, ($TYPE$ .EQ. $UEM$) ,DISPW1.
01281  M01S00349.vemem1  +++|  $NOTE.;:I     Unified Extended Memory (UEM) is AMOUNT
01282  M01S00350.vemem1  +++|.ELSE(DISPW1)
01283  M01S00351.vemem1  +++|.IF, ($TYPE$ .EQ. $UEMT$) ,DISPW1.
01284  M01S00352.vemem1  +++|  $NOTE.;:I     TOTAL Unified Extended Memory is AMOUNT
01285  M01S00353.vemem1  +++|.ELSE(DISPW1)
01286  M01S00354.vemem1  +++|.IF, ($TYPE$ .EQ. $ASR$) ,DISPW1.
01287  M01S00355.vemem1  +++|  $NOTE.;:I   Alternate System (ASR) and
01288  M01S00356.vemem1  +++|  $NOTE.;:I   Secondary Rollout (SRST) memory is AMOUNT
01289  M01S00357.vemem1  +++|.ELSE(DISPW1)
01290  M01S00358.vemem1  +++|.IF, ($TYPE$ .EQ. $IOB$) ,DISPW1.
01291  M01S00359.vemem1  +++|  $NOTE.;:I   895 Input and Output Buffers (IOB) AMOUNT
01292  M01S00360.vemem1  +++|.ELSE(DISPW1)
01293  M01S00361.vemem1  +++|.IF, ($TYPE$ .EQ. $UEC$) ,DISPW1.
01294  M01S00362.vemem1  +++|  $NOTE.;:IUser Accessible Extended Memory (UEC) AMOUNT
01295  M01S00363.vemem1  +++|.ELSE(DISPW1)
01296  M01S00364.vemem1  +++|.IF, ($TYPE$ .EQ. $NOS$) ,DISPW1.
01297  M01S00365.vemem1  +++|  $NOTE.;:I                  TOTAL NOS memory is AMOUNT
01298  M01S00366.vemem1  +++|.ENDIF(DISPW1)
01299  M00S00933.vemem   +++|$REVERT.

Seq #  *Modification Id* Act 
----------------------------+
01300  M01S00934.vemem1  ---|*WEOR
01301  M01S00935.vemem1  ---|.PROC,DISRNGW*I
01302  M01S00936.vemem1  ---|,WORD    =(*A)
01303  M01S00937.vemem1  ---|,LOW     =(*S6/D)
01304  M01S00938.vemem1  ---|,UP      =(*S6/D)
01305  M01S00939.vemem1  ---|,VEMEM   =(*N=#FILE)
01306  M01S00940.vemem1  ---|.
01307  M01S00941.vemem1  ---|$NOTE.;;:I Allowed range for WORD memory is:
01308  M01S00942.vemem1  ---|$NOTE.;:I     (Octal/1000B words);
01309  M01S00943.vemem1  ---|$SET(R1=LOW*2)
01310  M01S00944.vemem1  ---|$SET(R2=UP*2)
01311  M01S00945.vemem1  ---|$BEGIN(,ZZZZZDD,R1+B,R2+B)
01312  M01S00946.vemem1  ---|.IF, ($WORD$ .EQ. $IOB$) .$NOTE.;:I (Enter 0 for no IOB).
01313  M01S00947.vemem1  ---|$RETURN(ZZZZZDD)
01314  M01S00948.vemem1  ---|$REVERT. DISRNGW COMPLETE
01315  M01S00949.vemem1  ---|$EXIT. DISRNGW
01316  M01S00950.vemem1  ---|$REVERT(ABORT) DISRNGW FAILED
01317  M01S00951.vemem1  ---|.DATA,ZZZZZDD
01318  M01S00952.vemem1  ---|.PROC,ZZZZZDD*I
01319  M01S00953.vemem1  ---|,N1      =(*A)
01320  M01S00954.vemem1  ---|,N2      =(*A)
01321  M01S00955.vemem1  ---|.
01322  M01S00956.vemem1  ---|$NOTE.;:I          N1 - N2;
01323  M01S00957.vemem1  ---|$REVERT.
01324  M01S00958.vemem1  ---|*WEOR
01325  M01S00959.vemem1  ---|.PROC,DISPW,TYPE,AMOUNT.
01326  M01S00960.vemem1  ---|$SET(R1=AMOUNT*2)
01327  M01S00961.vemem1  ---|$BEGIN,,DISPW1,R1+B.
01328  M01S00962.vemem1  ---|$RETURN(DISPW1)
01329  M01S00963.vemem1  ---|$REVERT.
01330  M01S00964.vemem1  ---|.DATA,DISPW1
01331  M01S00965.vemem1  ---|.PROC,DISPW1*I
01332  M01S00966.vemem1  ---|,OW      =(*A)
01333  M01S00967.vemem1  ---|,FIXED   =(*N=NO,YES,*K=YES,NO)
01334  M01S00968.vemem1  ---|.
01335  M01S00969.vemem1  ---|.EXPAND(OFF)
01336  M01S00970.vemem1  ---|IF, ($FIXED$ .EQ. $NO$) ,DISPW0.
01337  M01S00971.vemem1  ---|  SET,R1=OW.
01338  M01S00972.vemem1  ---|  IF, (R1 .LT.    10) .$REVERT(EX)$BEGIN(,DISPW1,$    OW$,#FIXED)
01339  M01S00973.vemem1  ---|  IF, (R1 .LT.   100) .$REVERT(EX)$BEGIN(,DISPW1,$   OW$,#FIXED)
01340  M01S00974.vemem1  ---|  IF, (R1 .LT.  1000) .$REVERT(EX)$BEGIN(,DISPW1,$  OW$,#FIXED)
01341  M01S00975.vemem1  ---|  IF, (R1 .LT. 10000) .$REVERT(EX)$BEGIN(,DISPW1,$ OW$,#FIXED)
01342  M01S00976.vemem1  ---|ENDIF(DISPW0)
01343  M01S00977.vemem1  ---|.EXPAND(ON)
01344  M01S00978.vemem1  ---|.IF, ($TYPE$ .EQ. $JOBS$) ,DISPW1A.
01345  M01S00979.vemem1  ---|  $NOTE.;:I     SYSTEM & Executing Job memory is OW
01346  M01S00980.vemem1  ---|.ELSE(DISPW1A)
01347  M01S00981.vemem1  ---|.IF, ($TYPE$ .EQ. $UEM$) ,DISPW1A.
01348  M01S00982.vemem1  ---|  $NOTE.;:I     Unified Extended Memory (UEM) is OW
01349  M01S00983.vemem1  ---|.ELSE(DISPW1A)
01350  M01S00984.vemem1  ---|.IF, ($TYPE$ .EQ. $UEMT$) ,DISPW1A.
01351  M01S00985.vemem1  ---|  $NOTE.;:I     TOTAL Unified Extended Memory is OW
01352  M01S00986.vemem1  ---|.ELSE(DISPW1A)
01353  M01S00987.vemem1  ---|.IF, ($TYPE$ .EQ. $ASR$) ,DISPW1A.
01354  M01S00988.vemem1  ---|  $NOTE.;:I   Alternate System (ASR) and
01355  M01S00989.vemem1  ---|  $NOTE.;:I   Secondary Rollout (SRST) memory is OW
01356  M01S00990.vemem1  ---|.ELSE(DISPW1A)
01357  M01S00991.vemem1  ---|.IF, ($TYPE$ .EQ. $IOB$) ,DISPW1A.
01358  M01S00992.vemem1  ---|  $NOTE.;:I   895 Input and Output Buffers (IOB) OW
01359  M01S00993.vemem1  ---|.ELSE(DISPW1A)
01360  M01S00994.vemem1  ---|.IF, ($TYPE$ .EQ. $UEC$) ,DISPW1A.
01361  M01S00995.vemem1  ---|  $NOTE.;:IUser Accessible Extended Memory (UEC) OW
01362  M01S00996.vemem1  ---|.ELSE(DISPW1A)
01363  M01S00997.vemem1  ---|.IF, ($TYPE$ .EQ. $NOS$) ,DISPW1A.
01364  M01S00998.vemem1  ---|  $NOTE.;:I                  TOTAL NOS memory is OW
01365  M01S00999.vemem1  ---|.ENDIF(DISPW1A)
01366  M01S01000.vemem1  ---|$REVERT.