Deck VEMEM

1 Modification

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.vemem   +++|*WIDTH,80
00002  M01S00002.vemem   +++|*NOSEQ
00003  M01S00003.vemem   +++|.PROC,VEMEM*I
00004  M01S00004.vemem   +++|,VEMEM =(*N=#FILE)
00005  M01S00005.vemem   +++|.
00006  M01S00006.vemem   +++|.HELP
00007  M01S00007.vemem   +++|The VEMEM utility is used to help you configure your mainframe memory
00008  M01S00008.vemem   +++|for use in a NOS Dual State environment.  Based on your responses, it
00009  M01S00009.vemem   +++|provides you with the proper CMRDECK and EQPDECK entries to configure
00010  M01S00010.vemem   +++|memory for NOS and NOS/VE usage.
00011  M01S00011.vemem   +++|

Seq #  *Modification Id* Act 
----------------------------+
00012  M02S00012.vemem1  ---|This procedure should be executed in LINE (as opposed to SCREEN) mode.

Seq #  *Modification Id* Act 
----------------------------+
00013  M02S00013.vemem1  ---|
00014  M01S00014.vemem   +++|Values for Mainframe memory, NOS memory and NOS/VE memory, are entered
00015  M01S00015.vemem   +++|in Megabytes and Kilobytes.  The format you should use is:
00016  M01S00016.vemem   +++|  Megabytes,Kilobytes
00017  M01S00017.vemem   +++|For example, to enter 6.5 megabytes of NOS/VE, enter 6,512 at the
00018  M01S00018.vemem   +++|prompt for the megabyte portion of NOS/VE memory.  If you do not enter
00019  M01S00019.vemem   +++|a kilobyte portion, it will default to 0.
00020  M01S00020.vemem   +++|
00021  M01S00021.vemem   +++|At several points, this procedure will display how your memory is
00022  M01S00022.vemem   +++|allocated amongst NOS, NOS/VE and the Page Table.  The display is
00023  M01S00023.vemem   +++|in units of Megabytes,Kilobytes.  When adding up the numbers, note that
00024  M01S00024.vemem   +++|1 Megabyte = 1,024 Kilobytes, thus:
00025  M01S00025.vemem   +++|
00026  M01S00026.vemem   +++|     0,064 (Megabytes, Kilobytes)
00027  M01S00027.vemem   +++|   + 1,960 (Megabytes, Kilobytes)
00028  M01S00028.vemem   +++|   = 2,000 (Megabytes, Kilobytes)
00029  M01S00029.vemem   +++|
00030  M01S00030.vemem   +++|Values for Unified Extended Memory (UEM), User Accessible Extended
00031  M01S00031.vemem   +++|Memory (UEC) and Input Output Buffers (IOB) are entered in units of
00032  M01S00032.vemem   +++|1000B Octal words.
00033  M01S00033.vemem   +++|
00034  M01S00034.vemem   +++|Consult the NOS Dual State section of the NOS Installation Handbook for
00035  M01S00035.vemem   +++|a discussion on NOS and NOS/VE memory sharing and the
00036  M01S00036.vemem   +++|Deadstart Decks section of the NOS 2 Analysis Handbook for information on
00037  M01S00037.vemem   +++|NOS memory allocation and terms.
00038  M01S00038.vemem   +++|
00039  M01S00039.vemem   +++|.ENDHELP
00040  M01S00040.vemem   +++|.****
00041  M01S00041.vemem   +++|.* NOTE - THESE PROCEDURES CONTAIN DISPLAY CODE (00) COLONS. THE COLONS
00042  M01S00042.vemem   +++|.*        MUST BE LEFT IN DISPLAY CODE IN ORDER FOR THE *NOTE*
00043  M01S00043.vemem   +++|.*        STATEMENTS TO WORK PROPERLY.  DO NOT CONVERT THE COLONS TO
00044  M01S00044.vemem   +++|.*        ASCII FORMAT (@D).
00045  M01S00045.vemem   +++|.****

Seq #  *Modification Id* Act 
----------------------------+
00046  M02S00046.vemem1  ---|$BEGIN(MF,VEMEM)
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  M01S00047.vemem   +++|$BEGIN(CHOICED,VEMEM)
00051  M01S00048.vemem   +++|$BEGIN(CHOICE,VEMEM)  ** CHOICE RETURNS IN R1
00052  M01S00049.vemem   +++|$DISPLAY(R1)

Seq #  *Modification Id* Act 
----------------------------+
00053  M02S00050.vemem1  ---|$BEGIN(MAIN1,VEMEM,R1G+,OPTION=R1+)
00054  M01S00004.vemem1  +++|$BEGIN(MAIN1,VEMEM,R2+,R3+,R1+)
00055  M01S00005.vemem1  +++|.IF,SL.EQ.SCREEN.$SCREEN.
00056  M01S00051.vemem   +++|$REVERT. VEMEM COMPLETE
00057  M01S00052.vemem   +++|$EXIT. VEMEM
00058  M01S00006.vemem1  +++|.IF,SL.EQ.SCREEN.$SCREEN.
00059  M01S00053.vemem   +++|$REVERT(ABORT) VEMEM FAILED
00060  M01S00054.vemem   +++|*WEOR
00061  M01S00055.vemem   +++|.PROC,CHOICED*I
00062  M01S00056.vemem   +++|,VEMEM =(*N=#FILE)
00063  M01S00057.vemem   +++|.
00064  M01S00058.vemem   +++|$NOTE.;;:I 1. Configure NOS/VE and NOS with
00065  M01S00059.vemem   +++|$NOTE.;:I    NO user extended memory     (UEC=0)
00066  M01S00060.vemem   +++|$NOTE.;:I    NO unified extended memory  (UEM=0)
00067  M01S00061.vemem   +++|$NOTE.;;:I 2. Configure NOS/VE and NOS with
00068  M01S00062.vemem   +++|$NOTE.;:I       user extended memory     (UEC=?)
00069  M01S00063.vemem   +++|$NOTE.;:I    NO unified extended memory  (UEM=0)
00070  M01S00064.vemem   +++|$NOTE.;;:I 3. Configure NOS/VE and NOS with
00071  M01S00065.vemem   +++|$NOTE.;:I       user extended memory     (UEC=?)
00072  M01S00066.vemem   +++|$NOTE.;:I       unified extended memory  (UEM=?);
00073  M01S00067.vemem   +++|$REVERT.CHOICEDISPLAY
00074  M01S00068.vemem   +++|$EXIT. CHOICEDISPLAY
00075  M01S00069.vemem   +++|$REVERT(ABORT)CHOICEDISPLAY
00076  M01S00070.vemem   +++|*WEOR
00077  M01S00071.vemem   +++|.PROC,CHOICE*I
00078  M01S00072.vemem   +++|,CHOICE [Choose configuration option] =(1,2,3)
00079  M01S00073.vemem   +++|,VEMEM =(*N=#FILE)
00080  M01S00074.vemem   +++|.
00081  M01S00075.vemem   +++|.HELP.
00082  M01S00076.vemem   +++| Choose which type of memory configuration you wish to define.
00083  M01S00077.vemem   +++|The choices are:
00084  M01S00078.vemem   +++|  1. NOS/VE and NOS without any user extended memory.
00085  M01S00079.vemem   +++|  2. NOS/VE and NOS with user extended memory only.
00086  M01S00080.vemem   +++|  3. NOS/VE and NOS with extended memory, possibly for 895 disks,
00087  M01S00081.vemem   +++|     users, or a mass storage device.
00088  M01S00082.vemem   +++|.HELP,CHOICE,NOLIST.
00089  M01S00083.vemem   +++| There are three possible choices.
00090  M01S00084.vemem   +++|1.  NOS/VE and NOS without any unified extended memory.
00091  M01S00085.vemem   +++|    Unified extended memory can be used on NOS for the following:
00092  M01S00086.vemem   +++|     a.  User accessible extended memory - this is typically used by
00093  M01S00087.vemem   +++|         FORTRAN programs for the storage of large arrays.
00094  M01S00088.vemem   +++|         Refer to the discussion of the LEVEL statement in the
00095  M01S00089.vemem   +++|         FORTRAN 5 Reference Manual.  This type of memory is
00096  M01S00090.vemem   +++|         referred to as UEC.
00097  M01S00091.vemem   +++|     b.  Extended memory as a mass storage device - this is typically
00098  M01S00092.vemem   +++|         used for alternate system residency of frequently
00099  M01S00093.vemem   +++|         accessed system routines and for storing secondary rollout files.
00100  M01S00094.vemem   +++|         Refer to the Deadstart Decks section of the NOS Analysis Manual for
00101  M01S00095.vemem   +++|         discussions on:
00102  M01S00096.vemem   +++|         *  EQ-Extended Memory EST entry,
00103  M01S00097.vemem   +++|         *  ASR-Alternate System Library Device Assignment Entry,
00104  M01S00098.vemem   +++|         *  MSAL-Mass Storage Allocation Control Entry,
00105  M01S00099.vemem   +++|         *  SRST (Secondary Rollout Threshold Entry)
00106  M01S00100.vemem   +++|     c.  Input/Output buffers for 895 disks. Refer to the Deadstart Decks
00107  M01S00101.vemem   +++|         section of the NOS Analysis Manual for a discussion of 895 disks
00108  M01S00102.vemem   +++|         and the XM EQPDECK entry for declaring extended memory
00109  M01S00103.vemem   +++|         space for buffers or user access.  This type of memory is
00110  M01S00104.vemem   +++|         referred to as IOB.
00111  M01S00105.vemem   +++|
00112  M01S00106.vemem   +++|    Select this choice if you do not need unified extended memory.
00113  M01S00107.vemem   +++|
00114  M01S00108.vemem   +++|2.  NOS/VE and NOS with user accessible extended memory.
00115  M01S00109.vemem   +++|    This choice permits you to configure some of your NOS memory
00116  M01S00110.vemem   +++|    for access by users.  This memory, called user accessible
00117  M01S00111.vemem   +++|    extended memory (or UEC), is typically used for the storage of large
00118  M01S00112.vemem   +++|    arrays in FORTRAN programs.  Refer to the discussion of the
00119  M01S00113.vemem   +++|    LEVEL statement in the FORTRAN 5 Reference Manual.
00120  M01S00114.vemem   +++|
00121  M01S00115.vemem   +++|    Select this choice if you want to configure some memory for
00122  M01S00116.vemem   +++|    user accessible extended memory.
00123  M01S00117.vemem   +++|
00124  M01S00118.vemem   +++|3.  NOS/VE and NOS with unified extended memory.  In
00125  M01S00119.vemem   +++|    addition to memory for NOS/VE and NOS, unified extended
00126  M01S00120.vemem   +++|    memory is also configured.  Unified extended memory, referred to as
00127  M01S00121.vemem   +++|    UEM, can be used on NOS for the following:
00128  M01S00122.vemem   +++|     a.  User accessible extended memory - this is typically used by
00129  M01S00123.vemem   +++|         FORTRAN programs for the storage of large arrays.
00130  M01S00124.vemem   +++|         Refer to the discussion of the LEVEL statement in the
00131  M01S00125.vemem   +++|         FORTRAN 5 Reference Manual.  This type of memory is
00132  M01S00126.vemem   +++|         referred to as UEC.
00133  M01S00127.vemem   +++|     b.  Extended memory as a mass storage device - this is typically
00134  M01S00128.vemem   +++|         used for alternate system residency of frequently
00135  M01S00129.vemem   +++|         accessed system routines and for storing secondary rollout files.
00136  M01S00130.vemem   +++|         Refer to the Deadstart Decks section of the NOS Analysis Manual for
00137  M01S00131.vemem   +++|         discussions on:
00138  M01S00132.vemem   +++|         *  EQ-Extended Memory EST entry,
00139  M01S00133.vemem   +++|         *  ASR-Alternate System Library Device Assignment Entry,
00140  M01S00134.vemem   +++|         *  MSAL-Mass Storage Allocation Control Entry,
00141  M01S00135.vemem   +++|         *  SRST (Secondary Rollout Threshold Entry)
00142  M01S00136.vemem   +++|     c.  Input/Output buffers for 895 disks. Refer to the Deadstart Decks
00143  M01S00137.vemem   +++|         section of the NOS Analysis Manual for a discussion of 895 disks
00144  M01S00138.vemem   +++|         and the XM EQPDECK entry for declaring extended memory
00145  M01S00139.vemem   +++|         space for buffers or user access.  This type of memory is
00146  M01S00140.vemem   +++|         referred to as IOB.
00147  M01S00141.vemem   +++|
00148  M01S00142.vemem   +++|    Select this choice if you need unified extended memory for
00149  M01S00143.vemem   +++|    any of the above.  NOTE:  if you only need unified extended
00150  M01S00144.vemem   +++|    memory for just a., use choice 2: NOS/VE and NOS with user
00151  M01S00145.vemem   +++|    accessible extended memory.
00152  M01S00146.vemem   +++|.ENDHELP
00153  M01S00147.vemem   +++|.*
00154  M01S00148.vemem   +++|.IF, (CHOICE=1) ,CHOICE1.
00155  M01S00149.vemem   +++|$NOTE.;;:I Allocate NOS/VE and NOS only.;
00156  M01S00150.vemem   +++|.ELSE(CHOICE1)
00157  M01S00151.vemem   +++|.IF, (CHOICE=2) ,CHOICE1.
00158  M01S00152.vemem   +++|$NOTE.;;:I Allocate NOS/VE and NOS, then
00159  M01S00153.vemem   +++|$NOTE.;:I allocate user extended memory (UEC).;
00160  M01S00154.vemem   +++|.ELSE(CHOICE1)
00161  M01S00155.vemem   +++|$NOTE.;;:I Allocate NOS/VE and NOS, then
00162  M01S00156.vemem   +++|$NOTE.;:I allocate unified extended memory (UEM).
00163  M01S00157.vemem   +++|$NOTE.;:I Allocate user extended memory (UEC)
00164  M01S00158.vemem   +++|$NOTE.;:I and 895 device buffers (IOB).;
00165  M01S00159.vemem   +++|.ENDIF(CHOICE1)
00166  M01S00160.vemem   +++|$REVERT(EX)$SET(R1=CHOICE)
00167  M01S00161.vemem   +++|$EXIT. CHOICE
00168  M01S00162.vemem   +++|$REVERT(ABORT) CHOICE FAILED
00169  M01S00163.vemem   +++|*WEOR
00170  M01S00164.vemem   +++|.PROC,MAIN1*I

Seq #  *Modification Id* Act 
----------------------------+
00171  M02S00165.vemem1  ---|,MF      =(*S6/D)
00172  M01S00007.vemem1  +++|,MB      =(*S3/D)
00173  M01S00008.vemem1  +++|,KB      =(*S3/D)
00174  M01S00166.vemem   +++|,OPTION  =(*A)
00175  M01S00167.vemem   +++|,VEMEM   =(*N=#FILE)
00176  M01S00168.vemem   +++|.

Seq #  *Modification Id* Act 
----------------------------+
00177  M02S00169.vemem1  ---|$BEGIN(VENOS,VEMEM) R1=1=NOS, R1=2=VE

Seq #  *Modification Id* Act 
----------------------------+
00178  M02S00170.vemem1  ---|.IF, (MF .LT. 1024) , MAIN1A.

Seq #  *Modification Id* Act 
----------------------------+
00179  M02S00171.vemem1  ---|  $SET(R3=9) ** RESERVED = FIXED SPACE(8) + PAGE TABLE(1)

Seq #  *Modification Id* Act 
----------------------------+
00180  M02S00172.vemem1  ---|.ELSE(MAIN1A)

Seq #  *Modification Id* Act 
----------------------------+
00181  M02S00173.vemem1  ---|  $SET(R3=MF/1024)  ** PAGE TABLE

Seq #  *Modification Id* Act 
----------------------------+
00182  M02S00174.vemem1  ---|  $IF, (R3*1024.NE.MF) .$SET(R3=R3+1)    ** ADD OVERFLOW

Seq #  *Modification Id* Act 
----------------------------+
00183  M02S00175.vemem1  ---|  $SET(R3 = R3 + 8) ** ADD IN FIXED SPACE

Seq #  *Modification Id* Act 
----------------------------+
00184  M02S00176.vemem1  ---|.ENDIF(MAIN1A)

Seq #  *Modification Id* Act 
----------------------------+
00185  M02S00177.vemem1  ---|$IF, (R1=1) ,VENOS1.
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  M01S00178.vemem   +++|  .* CHOOSE AN AMOUNT OF NOS MEMORY
00196  M01S00179.vemem   +++|  .* (128) = LOWER BOUND = 1 MEGABYTE

Seq #  *Modification Id* Act 
----------------------------+
00197  M02S00180.vemem1  ---|  $IF, (MF-832-R3 .GT. 2048) ,VENOS1A.

Seq #  *Modification Id* Act 
----------------------------+
00198  M02S00181.vemem1  ---|    $SET(R1=2048)  ** SET NOS TO 16MB

Seq #  *Modification Id* Act 
----------------------------+
00199  M02S00182.vemem1  ---|  $ELSE(VENOS1A)

Seq #  *Modification Id* Act 
----------------------------+
00200  M02S00183.vemem1  ---|    $SET(R1=MF-832-R3)

Seq #  *Modification Id* Act 
----------------------------+
00201  M02S00184.vemem1  ---|  $ENDIF(VENOS1A)

Seq #  *Modification Id* Act 
----------------------------+
00202  M02S00185.vemem1  ---|  $BEGIN(NOSLOOP,VEMEM,MF,0,R3+,128,R1+,#OPTION=OPTION,FIRST=YES)

Seq #  *Modification Id* Act 
----------------------------+
00203  M02S00186.vemem1  ---|$ELSE(VENOS1)
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  M01S00187.vemem   +++|  .* CHOOSE AN AMOUNT OF VE MEMORY
00210  M01S00188.vemem   +++|  .* (832) = LOWER BOUND = 6.5 MEGABYTE

Seq #  *Modification Id* Act 
----------------------------+
00211  M02S00189.vemem1  ---|  $IF, (MF-832-R3 .GT. 2048) ,VENOS2A.

Seq #  *Modification Id* Act 
----------------------------+
00212  M02S00190.vemem1  ---|    $SET(R1=MF-2048-R3)   ** DO NOT ALLOW NOS MIN TO EXCEED 16MB

Seq #  *Modification Id* Act 
----------------------------+
00213  M02S00191.vemem1  ---|  $ELSE(VENOS2A)

Seq #  *Modification Id* Act 
----------------------------+
00214  M02S00192.vemem1  ---|    $SET(R1=832)

Seq #  *Modification Id* Act 
----------------------------+
00215  M02S00193.vemem1  ---|  $ENDIF(VENOS2A)

Seq #  *Modification Id* Act 
----------------------------+
00216  M02S00194.vemem1  ---|  $SET(R2=MF-128-R3)   ** UPPER = #MF-NOS-RESERVED

Seq #  *Modification Id* Act 
----------------------------+
00217  M02S00195.vemem1  ---|  $BEGIN(VELOOP,VEMEM,MF,0,R3,R1+,R2+,#OPTION=OPTION,FIRST=YES)

Seq #  *Modification Id* Act 
----------------------------+
00218  M02S00196.vemem1  ---|$ENDIF(VENOS1)
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  M01S00197.vemem   +++|$REVERT. MAIN1 COMPLETE
00228  M01S00198.vemem   +++|$EXIT. MAIN1
00229  M01S00199.vemem   +++|$REVERT(ABORT) MAIN1 FAILED
00230  M01S00200.vemem   +++|*WEOR

Seq #  *Modification Id* Act 
----------------------------+
00231  M02S00201.vemem1  ---|.PROC,NOSLOOP*I
00232  M01S00031.vemem1  +++|.PROC,NOS*I
00233  M01S00202.vemem   +++|,MF      =(*A)
00234  M01S00203.vemem   +++|,NOS     =(*A)

Seq #  *Modification Id* Act 
----------------------------+
00235  M02S00204.vemem1  ---|,PT      =(*A)
00236  M01S00205.vemem   +++|,LOW     =(*A)
00237  M01S00206.vemem   +++|,UP      =(*A)
00238  M01S00207.vemem   +++|,OPTION  =(*A)
00239  M01S00208.vemem   +++|,FIRST   =(*N=NO,YES,NO)
00240  M01S00209.vemem   +++|,VEMEM   =(*N=#FILE)
00241  M01S00210.vemem   +++|.

Seq #  *Modification Id* Act 
----------------------------+
00242  M02S00211.vemem1  ---|$SET(R2=MF-NOS-PT)  ** VE MEMORY

Seq #  *Modification Id* Act 
----------------------------+
00243  M02S00212.vemem1  ---|.IF, ($FIRST$ .EQ. $NO$) ,NOSLOOP0.
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  M01S00213.vemem   +++|  $NOTE.;;:I Current choices (Mbytes,Kbytes):;
00248  M01S00214.vemem   +++|  $BEGIN(DISPB,VEMEM,#PT,PT)
00249  M01S00215.vemem   +++|  $BEGIN(DISPB,VEMEM,#NOS,NOS)

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

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

Seq #  *Modification Id* Act 
----------------------------+
00257  M02S00221.vemem1  ---|.ENDIF(NOSLOOP0)

Seq #  *Modification Id* Act 
----------------------------+
00258  M02S00222.vemem1  ---|$IF, (R1 = 1) ,NOSLOOP1.

Seq #  *Modification Id* Act 
----------------------------+
00259  M02S00223.vemem1  ---|  $SET(R1G=-1)

Seq #  *Modification Id* Act 
----------------------------+
00260  M02S00224.vemem1  ---|  $WHILE,(R1G=-1),LOOP1.

Seq #  *Modification Id* Act 
----------------------------+
00261  M02S00225.vemem1  ---|    $BEGIN(DISRNGB,VEMEM,#NOS,LOW,UP)

Seq #  *Modification Id* Act 
----------------------------+
00262  M02S00226.vemem1  ---|    $BEGIN(#NOS,VEMEM)  ** VALUE RETURNS IN R1G

Seq #  *Modification Id* Act 
----------------------------+
00263  M02S00227.vemem1  ---|    $IF, ((R1G .LT. LOW) .OR. (R1G .GT. UP)) ,NOSLOOP1A.

Seq #  *Modification Id* Act 
----------------------------+
00264  M02S00228.vemem1  ---|      $NOTE.;;:I Memory value is out of range.

Seq #  *Modification Id* Act 
----------------------------+
00265  M02S00229.vemem1  ---|      $NOTE.;:I Please re-enter.

Seq #  *Modification Id* Act 
----------------------------+
00266  M02S00230.vemem1  ---|      $SET(R1G=-1)

Seq #  *Modification Id* Act 
----------------------------+
00267  M02S00231.vemem1  ---|    $ENDIF(NOSLOOP1A)

Seq #  *Modification Id* Act 
----------------------------+
00268  M02S00232.vemem1  ---|  $ENDW(LOOP1)

Seq #  *Modification Id* Act 
----------------------------+
00269  M02S00233.vemem1  ---|  $REVERT(EX)$BEGIN(NOSLOOP,VEMEM,MF,R1G+,PT,LOW,UP,#OPTION=OPTION)

Seq #  *Modification Id* Act 
----------------------------+
00270  M02S00234.vemem1  ---|$ELSE(NOSLOOP1)
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  M01S00235.vemem   +++|  .* QUIT WAS CHOSEN.

Seq #  *Modification Id* Act 
----------------------------+
00277  M02S00236.vemem1  ---|  $IF, ($OPTION$ .EQ. $1$) ,NOSLOOP2)

Seq #  *Modification Id* Act 
----------------------------+
00278  M02S00237.vemem1  ---|    $BEGIN(DECKS,VEMEM,MF,NOS,R2+,#OPTION=OPTION)

Seq #  *Modification Id* Act 
----------------------------+
00279  M02S00238.vemem1  ---|  $ELSE(NOSLOOP2)

Seq #  *Modification Id* Act 
----------------------------+
00280  M02S00239.vemem1  ---|    $BEGIN(MAIN_OPTION,VEMEM,MF,NOS,R2+,PT,#OPTION=OPTION)

Seq #  *Modification Id* Act 
----------------------------+
00281  M02S00240.vemem1  ---|  $ENDIF(NOSLOOP2)

Seq #  *Modification Id* Act 
----------------------------+
00282  M02S00241.vemem1  ---|$ENDIF(NOSLOOP1)

Seq #  *Modification Id* Act 
----------------------------+
00283  M02S00242.vemem1  ---|$REVERT. NOSLOOP

Seq #  *Modification Id* Act 
----------------------------+
00284  M02S00243.vemem1  ---|$EXIT. NOSLOOP

Seq #  *Modification Id* Act 
----------------------------+
00285  M02S00244.vemem1  ---|$REVERT(ABORT) NOSLOOP FAILED
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  M01S00245.vemem   +++|*WEOR

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

Seq #  *Modification Id* Act 
----------------------------+
00299  M02S00248.vemem1  ---|,VE      =(*A)

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

Seq #  *Modification Id* Act 
----------------------------+
00301  M02S00250.vemem1  ---|,LOW     =(*A)

Seq #  *Modification Id* Act 
----------------------------+
00302  M02S00251.vemem1  ---|,UP      =(*A)
00303  M01S00052.vemem1  +++|,VE      =(*A,*N=0)
00304  M01S00053.vemem1  +++|,LOW     =(*A)
00305  M01S00054.vemem1  +++|,UP      =(*A)
00306  M01S00252.vemem   +++|,OPTION  =(*A)
00307  M01S00253.vemem   +++|,FIRST   =(*N=NO,YES,NO)
00308  M01S00254.vemem   +++|,VEMEM   =(*N=#FILE)
00309  M01S00255.vemem   +++|.

Seq #  *Modification Id* Act 
----------------------------+
00310  M02S00256.vemem1  ---|$SET(R2=MF-VE-PT)  ** NOS MEMORY

Seq #  *Modification Id* Act 
----------------------------+
00311  M02S00257.vemem1  ---|.IF, ($FIRST$ .EQ. $NO$) ,VELOOP0.
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  M01S00258.vemem   +++|  $NOTE.;;:I Current choices (Mbytes,Kbytes):;
00328  M01S00259.vemem   +++|  $BEGIN(DISPB,VEMEM,#PT,PT)

Seq #  *Modification Id* Act 
----------------------------+
00329  M02S00260.vemem1  ---|  $BEGIN(DISPB,VEMEM,#NOS,R2+)
00330  M01S00070.vemem1  +++|  $BEGIN(DISPB,VEMEM,#NOS,NOS)
00331  M01S00261.vemem   +++|  $BEGIN(DISPB,VEMEM,#VE,VE)
00332  M01S00262.vemem   +++|  $BEGIN(DISPB,VEMEM,#MF,MF)
00333  M01S00263.vemem   +++|  $BEGIN(CHOOSE1,VEMEM,$#VE$)  CHOICE RETURNS IN R1

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

Seq #  *Modification Id* Act 
----------------------------+
00337  M02S00266.vemem1  ---|.ENDIF(VELOOP0)

Seq #  *Modification Id* Act 
----------------------------+
00338  M02S00267.vemem1  ---|$IF, (R1 = 1) ,VELOOP1.

Seq #  *Modification Id* Act 
----------------------------+
00339  M02S00268.vemem1  ---|  $SET(R1G=-1)

Seq #  *Modification Id* Act 
----------------------------+
00340  M02S00269.vemem1  ---|  $WHILE,(R1G=-1),LOOP1.

Seq #  *Modification Id* Act 
----------------------------+
00341  M02S00270.vemem1  ---|    $BEGIN(DISRNGB,VEMEM,#VE,LOW,UP)

Seq #  *Modification Id* Act 
----------------------------+
00342  M02S00271.vemem1  ---|    $BEGIN(#VE,VEMEM)  ** AMOUNT RETURNS IN R1G

Seq #  *Modification Id* Act 
----------------------------+
00343  M02S00272.vemem1  ---|    $IF, ((R1G .LT. LOW) .OR. (R1G .GT. UP)) ,VELOOP1A.

Seq #  *Modification Id* Act 
----------------------------+
00344  M02S00273.vemem1  ---|      $NOTE.;;:I Memory value is out of range.

Seq #  *Modification Id* Act 
----------------------------+
00345  M02S00274.vemem1  ---|      $NOTE.;:I Please re-enter.

Seq #  *Modification Id* Act 
----------------------------+
00346  M02S00275.vemem1  ---|      $SET(R1G=-1)

Seq #  *Modification Id* Act 
----------------------------+
00347  M02S00276.vemem1  ---|    $ENDIF(VELOOP1A)

Seq #  *Modification Id* Act 
----------------------------+
00348  M02S00277.vemem1  ---|  $ENDW(LOOP1)

Seq #  *Modification Id* Act 
----------------------------+
00349  M02S00278.vemem1  ---|  $REVERT(EX)$BEGIN(VELOOP,VEMEM,MF,R1G+,PT,LOW,UP,#OPTION=OPTION)

Seq #  *Modification Id* Act 
----------------------------+
00350  M02S00279.vemem1  ---|$ELSE(VELOOP1)
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  M01S00280.vemem   +++|  .* QUIT WAS CHOSEN.

Seq #  *Modification Id* Act 
----------------------------+
00357  M02S00281.vemem1  ---|  $IF, ($OPTION$ .EQ. $1$) ,VELOOP2)

Seq #  *Modification Id* Act 
----------------------------+
00358  M02S00282.vemem1  ---|    $BEGIN(DECKS,VEMEM,MF,R2+,VE,#OPTION=OPTION)

Seq #  *Modification Id* Act 
----------------------------+
00359  M02S00283.vemem1  ---|  $ELSE(VELOOP2)

Seq #  *Modification Id* Act 
----------------------------+
00360  M02S00284.vemem1  ---|    $BEGIN(MAIN_OPTION,VEMEM,MF,R2+,VE,PT,#OPTION=OPTION)

Seq #  *Modification Id* Act 
----------------------------+
00361  M02S00285.vemem1  ---|  $ENDIF(VELOOP2)

Seq #  *Modification Id* Act 
----------------------------+
00362  M02S00286.vemem1  ---|$ENDIF(VELOOP1)

Seq #  *Modification Id* Act 
----------------------------+
00363  M02S00287.vemem1  ---|$REVERT. VELOOP

Seq #  *Modification Id* Act 
----------------------------+
00364  M02S00288.vemem1  ---|$EXIT. VELOOP

Seq #  *Modification Id* Act 
----------------------------+
00365  M02S00289.vemem1  ---|$REVERT(ABORT) VELOOP FAILED
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  M01S00290.vemem   +++|*WEOR
00376  M01S00291.vemem   +++|.PROC,MAIN2*I
00377  M01S00292.vemem   +++|,MF      =(*S6/D)
00378  M01S00293.vemem   +++|,NOS     =(*A)
00379  M01S00294.vemem   +++|,VE      =(*A)

Seq #  *Modification Id* Act 
----------------------------+
00380  M02S00295.vemem1  ---|,PT      =(*A)
00381  M01S00086.vemem1  +++|,LOW     =(*N=0)
00382  M01S00296.vemem   +++|,OPTION  =(*A)
00383  M01S00297.vemem   +++|,VEMEM   =(*N=#FILE)
00384  M01S00298.vemem   +++|.
00385  M01S00299.vemem   +++|.* CHOOSE AN AMOUNT OF UEC MEMORY

Seq #  *Modification Id* Act 
----------------------------+
00386  M02S00300.vemem1  ---|.* (0) = LOWER BOUND

Seq #  *Modification Id* Act 
----------------------------+
00387  M02S00301.vemem1  ---|$SET(R1=NOS-128) ** UPPER BOUND = NOS-1MB FOR JOBS

Seq #  *Modification Id* Act 
----------------------------+
00388  M02S00302.vemem1  ---|$BEGIN(UECLOOP,VEMEM,MF,NOS,VE,PT,0,0,R1+,#OPTION=OPTION,FIRST=YES)

Seq #  *Modification Id* Act 
----------------------------+
00389  M02S00303.vemem1  ---|$REVERT. MAIN2 COMPLETE

Seq #  *Modification Id* Act 
----------------------------+
00390  M02S00304.vemem1  ---|$EXIT. MAIN2

Seq #  *Modification Id* Act 
----------------------------+
00391  M02S00305.vemem1  ---|$REVERT(ABORT) MAIN2 FAILED
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  M01S00306.vemem   +++|*WEOR

Seq #  *Modification Id* Act 
----------------------------+
00401  M02S00307.vemem1  ---|.PROC,UECLOOP*I

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

Seq #  *Modification Id* Act 
----------------------------+
00407  M02S00311.vemem1  ---|,PT      =(*A)
00408  M01S00312.vemem   +++|,UEC     =(*A)
00409  M01S00313.vemem   +++|,LOW     =(*A)
00410  M01S00314.vemem   +++|,UP      =(*A)
00411  M01S00315.vemem   +++|,OPTION  =(*A)
00412  M01S00316.vemem   +++|,FIRST   =(*N=NO,YES,NO)
00413  M01S00317.vemem   +++|,VEMEM   =(*N=#FILE)
00414  M01S00318.vemem   +++|.

Seq #  *Modification Id* Act 
----------------------------+
00415  M02S00319.vemem1  ---|$SET(R2=NOS-UEC)  ** SYSTEM AND JOB MEMORY

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

Seq #  *Modification Id* Act 
----------------------------+
00420  M02S00322.vemem1  ---|  $BEGIN(DISPW,VEMEM,#JOBS,R2+)
00421  M01S00099.vemem1  +++|  $BEGIN(DISPW,VEMEM,#JOBS,JOBS)
00422  M01S00323.vemem   +++|  $BEGIN(DISPW,VEMEM,#UEC,UEC)
00423  M01S00324.vemem   +++|  $BEGIN(DISPW,VEMEM,#NOS,NOS)
00424  M01S00325.vemem   +++|  $BEGIN(CHOOSE1,VEMEM,$#UEC$)  CHOICE RETURNS IN R1

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

Seq #  *Modification Id* Act 
----------------------------+
00428  M02S00328.vemem1  ---|.ENDIF(UECLOOP0)

Seq #  *Modification Id* Act 
----------------------------+
00429  M02S00329.vemem1  ---|$IF, (R1 = 1) ,UECLOOP1.

Seq #  *Modification Id* Act 
----------------------------+
00430  M02S00330.vemem1  ---|  $SET(R1G=-1)

Seq #  *Modification Id* Act 
----------------------------+
00431  M02S00331.vemem1  ---|  $WHILE,(R1G=-1),LOOP1.

Seq #  *Modification Id* Act 
----------------------------+
00432  M02S00332.vemem1  ---|    $BEGIN(DISRNGW,VEMEM,#UEC,LOW,UP)

Seq #  *Modification Id* Act 
----------------------------+
00433  M02S00333.vemem1  ---|    $BEGIN(#UEC,VEMEM)  ** VALUE RETURNS IN R1G

Seq #  *Modification Id* Act 
----------------------------+
00434  M02S00334.vemem1  ---|    $IF, ((R1G .LT. LOW) .OR. (R1G .GT. UP)) ,UECLOOP1A.

Seq #  *Modification Id* Act 
----------------------------+
00435  M02S00335.vemem1  ---|      $NOTE.;;:I Memory value is out of range.

Seq #  *Modification Id* Act 
----------------------------+
00436  M02S00336.vemem1  ---|      $NOTE.;:I Please re-enter.

Seq #  *Modification Id* Act 
----------------------------+
00437  M02S00337.vemem1  ---|      $SET(R1G=-1)

Seq #  *Modification Id* Act 
----------------------------+
00438  M02S00338.vemem1  ---|    $ENDIF(UECLOOP1A)

Seq #  *Modification Id* Act 
----------------------------+
00439  M02S00339.vemem1  ---|  $ENDW(LOOP1)

Seq #  *Modification Id* Act 
----------------------------+
00440  M02S00340.vemem1  ---|  $REVERT(EX)$BEGIN(UECLOOP,VEMEM,MF,NOS,VE,PT,R1G+,LOW,UP,#OPTION=OPTION)

Seq #  *Modification Id* Act 
----------------------------+
00441  M02S00341.vemem1  ---|$ELSE(UECLOOP1)
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  M01S00342.vemem   +++|  .* QUIT WAS CHOSEN.
00448  M01S00343.vemem   +++|  .* NOW ALLOCATE UEC AND IOB
00449  M01S00344.vemem   +++|  $BEGIN(DECKS,VEMEM,MF,NOS,VE,#UEC=UEC,#OPTION=OPTION)

Seq #  *Modification Id* Act 
----------------------------+
00450  M02S00345.vemem1  ---|$ENDIF(UECLOOP1)

Seq #  *Modification Id* Act 
----------------------------+
00451  M02S00346.vemem1  ---|$REVERT. UECLOOP

Seq #  *Modification Id* Act 
----------------------------+
00452  M02S00347.vemem1  ---|$EXIT. UECLOOP

Seq #  *Modification Id* Act 
----------------------------+
00453  M02S00348.vemem1  ---|$REVERT(ABORT) UECLOOP
00454  M01S00106.vemem1  +++|$ENDIF(UEC1)
00455  M01S00107.vemem1  +++|$REVERT. #UEC
00456  M01S00108.vemem1  +++|$EXIT. #UEC
00457  M01S00109.vemem1  +++|$REVERT(ABORT) #UEC
00458  M01S00349.vemem   +++|*WEOR
00459  M01S00350.vemem   +++|.PROC,MAIN3*I
00460  M01S00351.vemem   +++|,MF      =(*S6/D)
00461  M01S00352.vemem   +++|,NOS     =(*A)
00462  M01S00353.vemem   +++|,VE      =(*A)

Seq #  *Modification Id* Act 
----------------------------+
00463  M02S00354.vemem1  ---|,PT      =(*A)
00464  M01S00355.vemem   +++|,OPTION  =(*A)
00465  M01S00110.vemem1  +++|,LOW     =(*N=4)
00466  M01S00356.vemem   +++|,VEMEM   =(*N=#FILE)
00467  M01S00357.vemem   +++|.
00468  M01S00358.vemem   +++|.* CHOOSE AN AMOUNT OF UEM MEMORY

Seq #  *Modification Id* Act 
----------------------------+
00469  M02S00359.vemem1  ---|.* (4) = LOWER BOUND = 4 KORDS

Seq #  *Modification Id* Act 
----------------------------+
00470  M02S00360.vemem1  ---|$SET(R1=NOS-128) ** UPPER BOUND = NOS-1MB FOR JOBS

Seq #  *Modification Id* Act 
----------------------------+
00471  M02S00361.vemem1  ---|$IF, (R1 .LT. 4) ,MAIN3A.
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  M01S00362.vemem   +++|  $NOTE.;;:I Insufficient #NOS memory to allocate
00479  M01S00363.vemem   +++|  $NOTE.;:I UEM.  Please re-start VEMEM.;
00480  M01S00364.vemem   +++|  $REVERT.

Seq #  *Modification Id* Act 
----------------------------+
00481  M02S00365.vemem1  ---|$ENDIF(MAIN3A)

Seq #  *Modification Id* Act 
----------------------------+
00482  M02S00366.vemem1  ---|$BEGIN(UEMLOOP,VEMEM,MF,NOS,VE,PT,0,4,R1+,#OPTION=OPTION,FIRST=YES)
00483  M01S00117.vemem1  +++|.ELSE(MAIN3B)
00484  M01S00118.vemem1  +++|$BEGIN(UEM,VEMEM,MF,NOS,VE,0,LOW,UP,OPTION,FIRST=YES)
00485  M01S00367.vemem   +++|$REVERT. MAIN3 COMPLETE
00486  M01S00119.vemem1  +++|.ENDIF(MAIN3B)
00487  M01S00368.vemem   +++|$EXIT. MAIN3
00488  M01S00369.vemem   +++|$REVERT(ABORT) MAIN3 FAILED
00489  M01S00370.vemem   +++|*WEOR

Seq #  *Modification Id* Act 
----------------------------+
00490  M02S00371.vemem1  ---|.PROC,UEMLOOP*I
00491  M01S00120.vemem1  +++|.PROC,UEM*I
00492  M01S00372.vemem   +++|,MF      =(*A)
00493  M01S00373.vemem   +++|,NOS     =(*A)
00494  M01S00374.vemem   +++|,VE      =(*A)

Seq #  *Modification Id* Act 
----------------------------+
00495  M02S00375.vemem1  ---|,PT      =(*A)
00496  M01S00376.vemem   +++|,UEM     =(*A)
00497  M01S00377.vemem   +++|,LOW     =(*A)
00498  M01S00378.vemem   +++|,UP      =(*A)
00499  M01S00379.vemem   +++|,OPTION  =(*A)
00500  M01S00380.vemem   +++|,FIRST   =(*N=NO,YES,NO)
00501  M01S00381.vemem   +++|,VEMEM   =(*N=#FILE)
00502  M01S00382.vemem   +++|.

Seq #  *Modification Id* Act 
----------------------------+
00503  M02S00383.vemem1  ---|$SET(R2=NOS-UEM)  ** SYSTEM AND JOB MEMORY

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

Seq #  *Modification Id* Act 
----------------------------+
00508  M02S00386.vemem1  ---|  $BEGIN(DISPW,VEMEM,#JOBS,R2+)
00509  M01S00123.vemem1  +++|  $BEGIN(DISPW,VEMEM,#JOBS,JOBS)
00510  M01S00387.vemem   +++|  $BEGIN(DISPW,VEMEM,#UEM,UEM)
00511  M01S00388.vemem   +++|  $BEGIN(DISPW,VEMEM,#NOS,NOS)
00512  M01S00389.vemem   +++|  $BEGIN(CHOOSE1,VEMEM,$#UEM$)CHOICE RETURNS IN R1

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

Seq #  *Modification Id* Act 
----------------------------+
00516  M02S00392.vemem1  ---|.ENDIF(UEMLOOP0)

Seq #  *Modification Id* Act 
----------------------------+
00517  M02S00393.vemem1  ---|$IF, (R1 = 1) ,UEMLOOP1.

Seq #  *Modification Id* Act 
----------------------------+
00518  M02S00394.vemem1  ---|  $SET(R1G=-1)

Seq #  *Modification Id* Act 
----------------------------+
00519  M02S00395.vemem1  ---|  $WHILE,(R1G=-1),LOOP1.

Seq #  *Modification Id* Act 
----------------------------+
00520  M02S00396.vemem1  ---|    $BEGIN(DISRNGW,VEMEM,#UEM,LOW,UP)

Seq #  *Modification Id* Act 
----------------------------+
00521  M02S00397.vemem1  ---|    $BEGIN(#UEM,VEMEM)  ** VALUE RETURNS IN R1G

Seq #  *Modification Id* Act 
----------------------------+
00522  M02S00398.vemem1  ---|    $IF, ((R1G .LT. LOW) .OR. (R1G .GT. UP)) ,UEMLOOP1A.

Seq #  *Modification Id* Act 
----------------------------+
00523  M02S00399.vemem1  ---|      $NOTE.;;:I Memory value is out of range.

Seq #  *Modification Id* Act 
----------------------------+
00524  M02S00400.vemem1  ---|      $NOTE.;:I Please re-enter.

Seq #  *Modification Id* Act 
----------------------------+
00525  M02S00401.vemem1  ---|      $SET(R1G=-1)

Seq #  *Modification Id* Act 
----------------------------+
00526  M02S00402.vemem1  ---|    $ENDIF(UEMLOOP1A)

Seq #  *Modification Id* Act 
----------------------------+
00527  M02S00403.vemem1  ---|  $ENDW(LOOP1)

Seq #  *Modification Id* Act 
----------------------------+
00528  M02S00404.vemem1  ---|  $REVERT(EX)$BEGIN(UEMLOOP,VEMEM,MF,NOS,VE,PT,R1G+,LOW,UP,#OPTION=OPTION)

Seq #  *Modification Id* Act 
----------------------------+
00529  M02S00405.vemem1  ---|$ELSE(UEMLOOP1)
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  M01S00406.vemem   +++|  .* QUIT WAS CHOSEN.
00536  M01S00407.vemem   +++|  .* NOW ALLOCATE UEC AND IOB

Seq #  *Modification Id* Act 
----------------------------+
00537  M02S00408.vemem1  ---|  $BEGIN(MAIN4,VEMEM,MF,NOS,VE,PT,UEM,#OPTION=OPTION)

Seq #  *Modification Id* Act 
----------------------------+
00538  M02S00409.vemem1  ---|$ENDIF(UEMLOOP1)

Seq #  *Modification Id* Act 
----------------------------+
00539  M02S00410.vemem1  ---|$REVERT. UEMLOOP

Seq #  *Modification Id* Act 
----------------------------+
00540  M02S00411.vemem1  ---|$EXIT. UEMLOOP

Seq #  *Modification Id* Act 
----------------------------+
00541  M02S00412.vemem1  ---|$REVERT(ABORT) UEMLOOP
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  M01S00413.vemem   +++|*WEOR
00548  M01S00414.vemem   +++|.PROC,MAIN4*I
00549  M01S00415.vemem   +++|,MF      =(*S6/D)
00550  M01S00416.vemem   +++|,NOS     =(*A)
00551  M01S00417.vemem   +++|,VE      =(*A)

Seq #  *Modification Id* Act 
----------------------------+
00552  M02S00418.vemem1  ---|,PT      =(*A)
00553  M01S00419.vemem   +++|,UEM     =(*A)
00554  M01S00420.vemem   +++|,OPTION  =(*A)
00555  M01S00421.vemem   +++|,VEMEM   =(*N=#FILE)
00556  M01S00422.vemem   +++|.
00557  M01S00423.vemem   +++|.* CHOOSE AN AMOUNT OF UEC/IOB MEMORY

Seq #  *Modification Id* Act 
----------------------------+
00558  M02S00424.vemem1  ---|$BEGIN(UE2LOOP,VEMEM,MF,NOS,VE,PT,UEM,0,0,#OPTION=OPTION,FIRST=YES)
00559  M01S00135.vemem1  +++|$BEGIN(UIO,VEMEM,MF,NOS,VE,UEM,0,0,OPTION,FIRST=YES)
00560  M01S00425.vemem   +++|$REVERT. MAIN4 COMPLETE
00561  M01S00426.vemem   +++|$EXIT. MAIN4
00562  M01S00427.vemem   +++|$REVERT(ABORT) MAIN4 FAILED
00563  M01S00428.vemem   +++|*WEOR

Seq #  *Modification Id* Act 
----------------------------+
00564  M02S00429.vemem1  ---|.PROC,UE2LOOP*I

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

Seq #  *Modification Id* Act 
----------------------------+
00570  M02S00433.vemem1  ---|,PT      =(*A)
00571  M01S00434.vemem   +++|,UEM     =(*A)
00572  M01S00435.vemem   +++|,IOB     =(*A)
00573  M01S00436.vemem   +++|,UEC     =(*A)
00574  M01S00437.vemem   +++|,OPTION  =(*A)
00575  M01S00438.vemem   +++|,FIRST   =(*N=NO,YES,NO)
00576  M01S00439.vemem   +++|,VEMEM   =(*N=#FILE)
00577  M01S00440.vemem   +++|.

Seq #  *Modification Id* Act 
----------------------------+
00578  M02S00441.vemem1  ---|$SET(R2=UEM-IOB-UEC )  ** ASR AND SECONDARY ROLLOUT

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

Seq #  *Modification Id* Act 
----------------------------+
00583  M02S00444.vemem1  ---|  $BEGIN(DISPW,VEMEM,#ASR,R2+)
00584  M01S00140.vemem1  +++|  $BEGIN(DISPW,VEMEM,#ASR,ASR)
00585  M01S00445.vemem   +++|  $BEGIN(DISPW,VEMEM,#IOB,IOB)
00586  M01S00446.vemem   +++|  $BEGIN(DISPW,VEMEM,#UEC,UEC)
00587  M01S00447.vemem   +++|  $BEGIN(DISPW,VEMEM,#UEMT,UEM)
00588  M01S00448.vemem   +++|  $BEGIN(CHOOSE1,VEMEM,$#IOB/#UEC$)  CHOICE RETURNS IN R1

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

Seq #  *Modification Id* Act 
----------------------------+
00592  M02S00451.vemem1  ---|.ENDIF(UE2LOOP0)

Seq #  *Modification Id* Act 
----------------------------+
00593  M02S00452.vemem1  ---|$IF, (R1 = 1) ,UE2LOOP1.

Seq #  *Modification Id* Act 
----------------------------+
00594  M02S00453.vemem1  ---|  $SET(R1G=-1)

Seq #  *Modification Id* Act 
----------------------------+
00595  M02S00454.vemem1  ---|  $WHILE,(R1G=-1),LOOP1.

Seq #  *Modification Id* Act 
----------------------------+
00596  M02S00455.vemem1  ---|    $BEGIN(DISRNGW,VEMEM,#IOB,16,UEM)

Seq #  *Modification Id* Act 
----------------------------+
00597  M02S00456.vemem1  ---|    $BEGIN(DISRNGW,VEMEM,#UEC,0,UEM)

Seq #  *Modification Id* Act 
----------------------------+
00598  M02S00457.vemem1  ---|    $SET(R1G=UEM)

Seq #  *Modification Id* Act 
----------------------------+
00599  M02S00458.vemem1  ---|    $BEGIN(UEM2,VEMEM)  ** RETURN IOB IN R1G, UEC IN R1. BOTH IN OCTAL STILL

Seq #  *Modification Id* Act 
----------------------------+
00600  M02S00459.vemem1  ---|  $ENDW(LOOP1)

Seq #  *Modification Id* Act 
----------------------------+
00601  M02S00460.vemem1  ---|  $SET(R1G=R1G/2)

Seq #  *Modification Id* Act 
----------------------------+
00602  M02S00461.vemem1  ---|  $SET(R1=R1/2)

Seq #  *Modification Id* Act 
----------------------------+
00603  M02S00462.vemem1  ---|  $BEGIN(PASSON,VEMEM,MF,NOS,VE,PT,UEM,R1G+,R1+,#OPTION=OPTION)

Seq #  *Modification Id* Act 
----------------------------+
00604  M02S00463.vemem1  ---|$ELSE(UE2LOOP1)
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  M01S00464.vemem   +++|  .* QUIT WAS CHOSEN.
00612  M01S00465.vemem   +++|  $BEGIN(DECKS,VEMEM,MF,NOS,VE,UEM,IOB,UEC,#OPTION=OPTION)

Seq #  *Modification Id* Act 
----------------------------+
00613  M02S00466.vemem1  ---|$ENDIF(UE2LOOP1)

Seq #  *Modification Id* Act 
----------------------------+
00614  M02S00467.vemem1  ---|$REVERT. UE2LOOP

Seq #  *Modification Id* Act 
----------------------------+
00615  M02S00468.vemem1  ---|$EXIT. UE2LOOP

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

Seq #  *Modification Id* Act 
----------------------------+
00622  M02S00471.vemem1  ---|.PROC,PASSON*I

Seq #  *Modification Id* Act 
----------------------------+
00623  M02S00472.vemem1  ---|,MF      =(*A)

Seq #  *Modification Id* Act 
----------------------------+
00624  M02S00473.vemem1  ---|,NOS     =(*A)

Seq #  *Modification Id* Act 
----------------------------+
00625  M02S00474.vemem1  ---|,VE      =(*A)

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

Seq #  *Modification Id* Act 
----------------------------+
00627  M02S00476.vemem1  ---|,UEM     =(*A)

Seq #  *Modification Id* Act 
----------------------------+
00628  M02S00477.vemem1  ---|,IOB     =(*A)

Seq #  *Modification Id* Act 
----------------------------+
00629  M02S00478.vemem1  ---|,UEC     =(*A)

Seq #  *Modification Id* Act 
----------------------------+
00630  M02S00479.vemem1  ---|,OPTION  =(*A)

Seq #  *Modification Id* Act 
----------------------------+
00631  M02S00480.vemem1  ---|,VEMEM   =(*N=#FILE)

Seq #  *Modification Id* Act 
----------------------------+
00632  M02S00481.vemem1  ---|.

Seq #  *Modification Id* Act 
----------------------------+
00633  M02S00482.vemem1  ---|$REVERT(EX)$REVERT(EX)$BEGIN(UE2LOOP,VEMEM,MF,NOS,VE,PT,UEM,IOB,UEC,OPTION)

Seq #  *Modification Id* Act 
----------------------------+
00634  M02S00483.vemem1  ---|*WEOR
00635  M01S00484.vemem   +++|.PROC,CHOOSE1*I
00636  M01S00485.vemem   +++|,ARG     =(*A)
00637  M01S00486.vemem   +++|,DF      =(*N=#DATA)
00638  M01S00487.vemem   +++|.
00639  M01S00488.vemem   +++|$NOTE.
00640  M01S00489.vemem   +++|$REVERT(EX)$BEGIN,DF,DF.
00641  M01S00490.vemem   +++|.DATA,DF.
00642  M01S00491.vemem   +++|.PROC,DF*I
00643  M01S00492.vemem   +++|,CHOICE [Change ARG allocation (Yes or No)] =(Y=1,YES=1,YE=1,NO=0,N=0)
00644  M01S00493.vemem   +++|.
00645  M01S00494.vemem   +++|$UNLOAD,DF.
00646  M01S00495.vemem   +++|$REVERT(EX)$SET(R1=CHOICE)
00647  M01S00496.vemem   +++|*WEOR
00648  M01S00497.vemem   +++|.PROC,VENOS*M
00649  M01S00498.vemem   +++|,CHOICE=
00650  M01S00499.vemem   +++|(1 "Specify amount of memory for NOS"
00651  M01S00500.vemem   +++|,2 "Specify amount of memory for NOS/VE")
00652  M01S00501.vemem   +++|.
00653  M01S00502.vemem   +++|.HELP
00654  M01S00503.vemem   +++|You may choose to:
00655  M01S00504.vemem   +++|1) Allocate a specific amount of your mainframes memory for NOS
00656  M01S00505.vemem   +++|    (including UEM, UEC and/or IOB if applicable) and give the
00657  M01S00506.vemem   +++|    remainder of memory to NOS/VE.
00658  M01S00507.vemem   +++|2)  Allocate a specific amount of your mainframes memory for NOS/VE and
00659  M01S00508.vemem   +++|    give the remainder to NOS (including UEM, UEC, and/or IOB if
00660  M01S00509.vemem   +++|    applicable).
00661  M01S00510.vemem   +++|.HELP,1
00662  M01S00511.vemem   +++|By selecting this option, you will be prompted to select a specific
00663  M01S00512.vemem   +++|amount of memory (in megabytes) for NOS.  The remainder of your memory
00664  M01S00513.vemem   +++|will be allocated for NOS/VE.
00665  M01S00514.vemem   +++|.HELP,2
00666  M01S00515.vemem   +++|By selecting this option, you will be prompted to select a specific
00667  M01S00516.vemem   +++|amount of memory (in megabytes) for NOS/VE.  The remainder of your
00668  M01S00517.vemem   +++|memory will be allocated for NOS.
00669  M01S00518.vemem   +++|.ENDHELP
00670  M01S00519.vemem   +++|$REVERT(EX)$SET(R1=CHOICE)
00671  M01S00520.vemem   +++|*WEOR
00672  M01S00521.vemem   +++|.PROC,MF*I"Specify the amount of mainframe memory."

Seq #  *Modification Id* Act 
----------------------------+
00673  M02S00522.vemem1  ---|,MBYTE [Megabyte portion of physical memory(8-128)] =(*S3/D)

Seq #  *Modification Id* Act 
----------------------------+
00674  M02S00523.vemem1  ---|,KBYTE [Kilobyte portion of physical memory(0-960)]

Seq #  *Modification Id* Act 
----------------------------+
00675  M02S00524.vemem1  ---|       =(*N=0,0, 64= 8,128=16,192=24,256=32,320=40,384=48,448=56,512=64,

Seq #  *Modification Id* Act 
----------------------------+
00676  M02S00525.vemem1  ---|                576=72,640=80,704=88,768=96,832=104,896=112,960=120)
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  M01S00526.vemem   +++|,VEMEM =(*N=#FILE)
00682  M01S00527.vemem   +++|.
00683  M01S00528.vemem   +++|.HELP.
00684  M01S00529.vemem   +++|Supply the amount of physical memory (memory to be used by both
00685  M01S00530.vemem   +++|NOS and NOS/VE) on your mainframe.  This value is given in terms
00686  M01S00531.vemem   +++|of
00687  M01S00532.vemem   +++|       Mbytes,Kbytes
00688  M01S00533.vemem   +++|That is: integer amount in megabytes comma fractional amount in
00689  M01S00534.vemem   +++|kilobytes.
00690  M01S00535.vemem   +++|
00691  M01S00536.vemem   +++|If your physical memory size is 16 megabytes, you
00692  M01S00537.vemem   +++|would enter:
00693  M01S00538.vemem   +++|  16,0
00694  M01S00539.vemem   +++|.HELP,MBYTE,NOLIST.
00695  M01S00540.vemem   +++|How much physical memory you have, in integer megabytes,kilobytes.  For
00696  M01S00541.vemem   +++|example, if you have 16 megabytes of physical memory, enter 16,0.
00697  M01S00542.vemem   +++|
00698  M01S00543.vemem   +++|If you have a non-integer megabyte amount of physical memory, enter the
00699  M01S00544.vemem   +++|integer portion, a comma, and the remainder in kilobytes.
00700  M01S00545.vemem   +++|For example, if you have 8.5 megabytes of physical memory, enter:
00701  M01S00546.vemem   +++|   8,512
00702  M01S00547.vemem   +++|.HELP,KBYTE,NOLIST.
00703  M01S00548.vemem   +++|Any more physical memory that you have, AFTER you have expressed it in
00704  M01S00549.vemem   +++|megabytes.  Enter a value for this only if you have a non-integer
00705  M01S00550.vemem   +++|megabyte amount of physical memory.  For example, if you have 8.5
00706  M01S00551.vemem   +++|megabytes of physical memory, you would enter:
00707  M01S00552.vemem   +++|   512
00708  M01S00553.vemem   +++|at this prompt for the non-integer (.5) megabyte portion of your
00709  M01S00554.vemem   +++|physical memory.
00710  M01S00555.vemem   +++|
00711  M01S00556.vemem   +++|The following table lists the kilobyte value for fractions of
00712  M01S00557.vemem   +++|megabytes.
00713  M01S00558.vemem   +++|    Kilobyte       Fraction of a Megabyte
00714  M01S00559.vemem   +++|       64                  1/16
00715  M01S00560.vemem   +++|      128                  1/8
00716  M01S00561.vemem   +++|      192                  3/16
00717  M01S00562.vemem   +++|      256                  1/4
00718  M01S00563.vemem   +++|      320                  5/16
00719  M01S00564.vemem   +++|      384                  3/8
00720  M01S00565.vemem   +++|      448                  7/16
00721  M01S00566.vemem   +++|      512                  1/2
00722  M01S00567.vemem   +++|      576                  9/16
00723  M01S00568.vemem   +++|      640                  5/8
00724  M01S00569.vemem   +++|      704                  11/16
00725  M01S00570.vemem   +++|      768                  3/4
00726  M01S00571.vemem   +++|      832                  13/16
00727  M01S00572.vemem   +++|      896                  7/8
00728  M01S00573.vemem   +++|      960                  15/16
00729  M01S00574.vemem   +++|.ENDHELP
00730  M01S00575.vemem   +++|.*

Seq #  *Modification Id* Act 
----------------------------+
00731  M02S00576.vemem1  ---|$SET(R3=0)

Seq #  *Modification Id* Act 
----------------------------+
00732  M02S00577.vemem1  ---|.IF, (MBYTE .LT. 8) .OR. (MBYTE .GT. 128) ,MF0.

Seq #  *Modification Id* Act 
----------------------------+
00733  M02S00578.vemem1  ---|  $SET(R3=1)

Seq #  *Modification Id* Act 
----------------------------+
00734  M02S00579.vemem1  ---|.ELSE(MF0)

Seq #  *Modification Id* Act 
----------------------------+
00735  M02S00580.vemem1  ---|  $SET(R1G=MBYTE*128+KBYTE)

Seq #  *Modification Id* Act 
----------------------------+
00736  M02S00581.vemem1  ---|  $IF, (R1G .LT. 8*128) .OR. (R1G .GT. 128*128) .$SET(R3=1)

Seq #  *Modification Id* Act 
----------------------------+
00737  M02S00582.vemem1  ---|.ENDIF(MF0)

Seq #  *Modification Id* Act 
----------------------------+
00738  M02S00583.vemem1  ---|$IF, (R3 .NE. 0) ,MF1.

Seq #  *Modification Id* Act 
----------------------------+
00739  M02S00584.vemem1  ---|  $NOTE.;;:I Memory range is 8 - 128 megabytes.
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  M01S00585.vemem   +++|  $NOTE.;:I Please re-enter.;
00744  M01S00586.vemem   +++|  $REVERT(EX)$BEGIN(MF,VEMEM)

Seq #  *Modification Id* Act 
----------------------------+
00745  M02S00587.vemem1  ---|$ENDIF(MF1)

Seq #  *Modification Id* Act 
----------------------------+
00746  M02S00588.vemem1  ---|.* R1G IS RETURNED IN KWORDS

Seq #  *Modification Id* Act 
----------------------------+
00747  M02S00589.vemem1  ---|$REVERT. MF(TOTAL) - COMPLETE
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  M01S00590.vemem   +++|$EXIT. MF
00752  M01S00591.vemem   +++|$REVERT(ABORT) MF
00753  M01S00592.vemem   +++|*WEOR

Seq #  *Modification Id* Act 
----------------------------+
00754  M02S00593.vemem1  ---|.PROC,VE*I"Specify the amount of NOS/VE memory."

Seq #  *Modification Id* Act 
----------------------------+
00755  M02S00594.vemem1  ---|,MBYTE [Megabyte portion of VE memory] =(*S3/D)

Seq #  *Modification Id* Act 
----------------------------+
00756  M02S00595.vemem1  ---|,KBYTE [Kilobyte portion of mainframe memory]

Seq #  *Modification Id* Act 
----------------------------+
00757  M02S00596.vemem1  ---|       =(*N=0,0, 64= 8,128=16,192=24,256=32,320=40,384=48,448=56,512=64,

Seq #  *Modification Id* Act 
----------------------------+
00758  M02S00597.vemem1  ---|               576=72,640=80,704=88,768=96,832=104,896=112,960=120)

Seq #  *Modification Id* Act 
----------------------------+
00759  M02S00598.vemem1  ---|,VEMEM =(*N=#FILE)
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  M01S00599.vemem   +++|.
00769  M01S00600.vemem   +++|.HELP,MBYTE,NOLIST.
00770  M01S00601.vemem   +++| How much memory NOS/VE is to use, in integer
00771  M01S00602.vemem   +++|   megabytes,kilobytes
00772  M01S00603.vemem   +++| For example, to specify NOS/VE is to use 16 megabytes of
00773  M01S00604.vemem   +++|memory, enter
00774  M01S00605.vemem   +++|   16,0
00775  M01S00606.vemem   +++| To specify a non-integer megabyte amount of memory,
00776  M01S00607.vemem   +++|enter the integer portion, a comma, and the remainder in
00777  M01S00608.vemem   +++|kilobytes.
00778  M01S00609.vemem   +++| For example, to specify 8.5 megabytes of memory, enter
00779  M01S00610.vemem   +++|   8,512
00780  M01S00611.vemem   +++|
00781  M01S00612.vemem   +++| NOTE: you must reserve a minimum of 6.5 megabytes for NOS/VE.
00782  M01S00613.vemem   +++|.HELP,KBYTE,NOLIST.
00783  M01S00614.vemem   +++| Any more NOS/VE memory, AFTER you have expressed it in
00784  M01S00615.vemem   +++|megabytes.  Enter a value for this only if you have a
00785  M01S00616.vemem   +++|non-integer megabyte amount of memory for NOS/VE.
00786  M01S00617.vemem   +++| For example, to specify 8.5 megabytes of memory for NOS/VE,
00787  M01S00618.vemem   +++|you would enter
00788  M01S00619.vemem   +++|   512
00789  M01S00620.vemem   +++| at this prompt for the non-integer (.5) megabyte portion of
00790  M01S00621.vemem   +++|your memory amount.
00791  M01S00622.vemem   +++|
00792  M01S00623.vemem   +++| The following table lists the kilobyte value for fractions of
00793  M01S00624.vemem   +++|megabytes.
00794  M01S00625.vemem   +++|    Kilobyte       Fraction of a Megabyte
00795  M01S00626.vemem   +++|       64                  1/16
00796  M01S00627.vemem   +++|      128                  1/8
00797  M01S00628.vemem   +++|      192                  3/16
00798  M01S00629.vemem   +++|      256                  1/4
00799  M01S00630.vemem   +++|      320                  5/16
00800  M01S00631.vemem   +++|      384                  3/8
00801  M01S00632.vemem   +++|      448                  7/16
00802  M01S00633.vemem   +++|      512                  1/2
00803  M01S00634.vemem   +++|      576                  9/16
00804  M01S00635.vemem   +++|      640                  5/8
00805  M01S00636.vemem   +++|      704                  11/16
00806  M01S00637.vemem   +++|      768                  3/4
00807  M01S00638.vemem   +++|      832                  13/16
00808  M01S00639.vemem   +++|      896                  7/8
00809  M01S00640.vemem   +++|      960                  15/16
00810  M01S00641.vemem   +++|.ENDHELP
00811  M01S00642.vemem   +++|.*

Seq #  *Modification Id* Act 
----------------------------+
00812  M02S00643.vemem1  ---|.IF, (MBYTE .GT. 128) ,VE0.

Seq #  *Modification Id* Act 
----------------------------+
00813  M02S00644.vemem1  ---|  $SET(R1=-1)

Seq #  *Modification Id* Act 
----------------------------+
00814  M02S00645.vemem1  ---|.ELSE(VE0)

Seq #  *Modification Id* Act 
----------------------------+
00815  M02S00646.vemem1  ---|  $SET(R1=MBYTE*128+KBYTE)

Seq #  *Modification Id* Act 
----------------------------+
00816  M02S00647.vemem1  ---|.ENDIF(VE0)

Seq #  *Modification Id* Act 
----------------------------+
00817  M02S00648.vemem1  ---|$SET(R1G=R1)  VALUE RETURNED IS KWORDS

Seq #  *Modification Id* Act 
----------------------------+
00818  M02S00649.vemem1  ---|$REVERT. VE(TOTAL) - COMPLETE

Seq #  *Modification Id* Act 
----------------------------+
00819  M02S00650.vemem1  ---|$EXIT. VE

Seq #  *Modification Id* Act 
----------------------------+
00820  M02S00651.vemem1  ---|$REVERT(ABORT) VE
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  M01S00652.vemem   +++|*WEOR

Seq #  *Modification Id* Act 
----------------------------+
00832  M02S00653.vemem1  ---|.PROC,NOS*I"Specify the amount of NOS memory."

Seq #  *Modification Id* Act 
----------------------------+
00833  M02S00654.vemem1  ---|,MBYTE [Megabyte portion of NOS memory] =(1,2,3,4,5,6,7,8,9,10,11,12,13,

Seq #  *Modification Id* Act 
----------------------------+
00834  M02S00655.vemem1  ---|                                          14,15,16)

Seq #  *Modification Id* Act 
----------------------------+
00835  M02S00656.vemem1  ---|,KBYTE [Kilobyte portion of mainframe memory]

Seq #  *Modification Id* Act 
----------------------------+
00836  M02S00657.vemem1  ---|       =(*N=0,0, 64= 8,128=16,192=24,256=32,320=40,384=48,448=56,512=64,

Seq #  *Modification Id* Act 
----------------------------+
00837  M02S00658.vemem1  ---|                576=72,640=80,704=88,768=96,832=104,896=112,960=120)

Seq #  *Modification Id* Act 
----------------------------+
00838  M02S00659.vemem1  ---|,VEMEM =(*N=#FILE)
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  M01S00660.vemem   +++|.
00848  M01S00661.vemem   +++|.HELP,MBYTE,NOLIST.
00849  M01S00662.vemem   +++| How much memory NOS is to use, in integer
00850  M01S00663.vemem   +++|   megabytes,kilobytes
00851  M01S00664.vemem   +++| For example, to specify NOS is to use 16 megabytes of
00852  M01S00665.vemem   +++|memory, enter
00853  M01S00666.vemem   +++|   16,0
00854  M01S00667.vemem   +++| To specify a non-integer megabyte amount of memory,
00855  M01S00668.vemem   +++|enter the integer portion, a comma, and the remainder in
00856  M01S00669.vemem   +++|kilobytes.
00857  M01S00670.vemem   +++| For example, to specify 8.5 megabytes of memory, enter
00858  M01S00671.vemem   +++|   8,512
00859  M01S00672.vemem   +++|
00860  M01S00673.vemem   +++| This table lists equivalences of memory sizes in megabytes,kilobytes,
00861  M01S00674.vemem   +++|words in octal, and words in decimal.
00862  M01S00675.vemem   +++|  Megabytes,Kilobytes        Words (octal)       Words (decimal)
00863  M01S00676.vemem   +++|          1,0                  400000             131072
00864  M01S00677.vemem   +++|          1,512                600000             196608
00865  M01S00678.vemem   +++|          2,0                 1000000             262144
00866  M01S00679.vemem   +++|          3,0                 1400000             393216
00867  M01S00680.vemem   +++|          4,0                 2000000             524288

Seq #  *Modification Id* Act 
----------------------------+
00868  M02S00681.vemem1  ---|          5,0                 2400000             655360

Seq #  *Modification Id* Act 
----------------------------+
00869  M02S00682.vemem1  ---|          6,0                 3000000             786432

Seq #  *Modification Id* Act 
----------------------------+
00870  M02S00683.vemem1  ---|          7,0                 3400000             917504
00871  M01S00684.vemem   +++|          8,0                 4000000            1048576

Seq #  *Modification Id* Act 
----------------------------+
00872  M02S00685.vemem1  ---|          9,0                 4400000            1179648

Seq #  *Modification Id* Act 
----------------------------+
00873  M02S00686.vemem1  ---|         10,0                 5000000            1310720

Seq #  *Modification Id* Act 
----------------------------+
00874  M02S00687.vemem1  ---|         11,0                 5400000            1441792

Seq #  *Modification Id* Act 
----------------------------+
00875  M02S00688.vemem1  ---|         12,0                 6000000            1572864

Seq #  *Modification Id* Act 
----------------------------+
00876  M02S00689.vemem1  ---|         13,0                 6400000            1703936

Seq #  *Modification Id* Act 
----------------------------+
00877  M02S00690.vemem1  ---|         14,0                 7000000            1835008

Seq #  *Modification Id* Act 
----------------------------+
00878  M02S00691.vemem1  ---|         15,0                 7400000            1966080
00879  M01S00692.vemem   +++|         16,0                10000000            2097152
00880  M01S00188.vemem1  +++|         32,0                20000000            4194304
00881  M01S00189.vemem1  +++|         64,0                40000000            8388608
00882  M01S00190.vemem1  +++|        128,0               100000000           16777216
00883  M01S00693.vemem   +++|
00884  M01S00694.vemem   +++| NOTE:  You must reserve a minimum of 1 megabyte for NOS.

Seq #  *Modification Id* Act 
----------------------------+
00885  M02S00695.vemem1  ---|NOS can use a maximum of 16 megabytes.
00886  M01S00191.vemem1  +++|NOS can use a maximum of 128 megabytes.
00887  M01S00696.vemem   +++|.HELP,KBYTE,NOLIST.
00888  M01S00697.vemem   +++| Any more NOS memory, AFTER you have expressed it in
00889  M01S00698.vemem   +++|megabytes.  Enter a value for this only if you have a
00890  M01S00699.vemem   +++|non-integer megabyte amount of memory for NOS.
00891  M01S00700.vemem   +++| For example, to specify 8.5 megabytes of memory for NOS,
00892  M01S00701.vemem   +++|you would enter
00893  M01S00702.vemem   +++|   512
00894  M01S00703.vemem   +++| at this prompt for the non-integer (.5) megabyte portion of
00895  M01S00704.vemem   +++|your memory amount.
00896  M01S00705.vemem   +++|
00897  M01S00706.vemem   +++| The following table lists the kilobyte value for fractions of
00898  M01S00707.vemem   +++|megabytes.
00899  M01S00708.vemem   +++|    Kilobyte       Fraction of a Megabyte
00900  M01S00709.vemem   +++|       64                  1/16
00901  M01S00710.vemem   +++|      128                  1/8
00902  M01S00711.vemem   +++|      192                  3/16
00903  M01S00712.vemem   +++|      256                  1/4
00904  M01S00713.vemem   +++|      320                  5/16
00905  M01S00714.vemem   +++|      384                  3/8
00906  M01S00715.vemem   +++|      448                  7/16
00907  M01S00716.vemem   +++|      512                  1/2
00908  M01S00717.vemem   +++|      576                  9/16
00909  M01S00718.vemem   +++|      640                  5/8
00910  M01S00719.vemem   +++|      704                  11/16
00911  M01S00720.vemem   +++|      768                  3/4
00912  M01S00721.vemem   +++|      832                  13/16
00913  M01S00722.vemem   +++|      896                  7/8
00914  M01S00723.vemem   +++|      960                  15/16
00915  M01S00724.vemem   +++|.ENDHELP

Seq #  *Modification Id* Act 
----------------------------+
00916  M02S00725.vemem1  ---|$SET(R1G=MBYTE*128+KBYTE) VALUE RETURNED IN KWORDS

Seq #  *Modification Id* Act 
----------------------------+
00917  M02S00726.vemem1  ---|$REVERT. NOS(TOTAL) - COMPLETE

Seq #  *Modification Id* Act 
----------------------------+
00918  M02S00727.vemem1  ---|$EXIT. NOS

Seq #  *Modification Id* Act 
----------------------------+
00919  M02S00728.vemem1  ---|$REVERT(ABORT) NOS
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  M01S00729.vemem   +++|*WEOR

Seq #  *Modification Id* Act 
----------------------------+
00931  M02S00730.vemem1  ---|.PROC,UEM2*I"Allocate I/O Buffers and User Extended Memory"

Seq #  *Modification Id* Act 
----------------------------+
00932  M02S00731.vemem1  ---|,IOB [Octal/1000B words memory for IOB] =(*S4/B)

Seq #  *Modification Id* Act 
----------------------------+
00933  M02S00732.vemem1  ---|,UEC [Octal/1000B words memory for UEC] =(*S4/B)
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  M01S00733.vemem   +++|,VEMEM =(*N=#FILE)
00943  M01S00734.vemem   +++|.
00944  M01S00735.vemem   +++|.HELP,IOB,NOLIST.
00945  M01S00736.vemem   +++| An octal value specifying the amount of memory to be reserved
00946  M01S00737.vemem   +++|for input/output device buffers for 895-type disk drives.
00947  M01S00738.vemem   +++| This octal value is in units of 1000 octal words.
00948  M01S00739.vemem   +++|.HELP,UEC,NOLIST.
00949  M01S00740.vemem   +++| An octal value specifying the amount of memory to be reserved
00950  M01S00741.vemem   +++|for user accessible extended memory.
00951  M01S00742.vemem   +++| This octal value is in units of 1000 octal words.
00952  M01S00743.vemem   +++|.ENDHELP
00953  M01S00744.vemem   +++|.*
00954  M01S00745.vemem   +++|.* VALIDATE IOB

Seq #  *Modification Id* Act 
----------------------------+
00955  M02S00746.vemem1  ---|$IF, (IOB .NE. 0) ,UEM2A.

Seq #  *Modification Id* Act 
----------------------------+
00956  M02S00747.vemem1  ---|  $SET(R1=IOB_B/2) CONVERT TO KWORDS

Seq #  *Modification Id* Act 
----------------------------+
00957  M02S00748.vemem1  ---|  $IF, (R1 .LT. 16) .OR. (R1 .GT. R1G) ,UEM2B.

Seq #  *Modification Id* Act 
----------------------------+
00958  M02S00749.vemem1  ---|.ENDIF(UE2LOOP0)
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  M01S00750.vemem   +++|    $NOTE.;;:I #IOB memory value out of range.

Seq #  *Modification Id* Act 
----------------------------+
00963  M02S00751.vemem1  ---|    $NOTE.;:I Please re-enter.

Seq #  *Modification Id* Act 
----------------------------+
00964  M02S00752.vemem1  ---|    $REVERT(EX)$SET(R1G=-1)

Seq #  *Modification Id* Act 
----------------------------+
00965  M02S00753.vemem1  ---|  $ENDIF(UEM2B)

Seq #  *Modification Id* Act 
----------------------------+
00966  M02S00754.vemem1  ---|$ENDIF(UEM2A)
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  M01S00755.vemem   +++|.* VALIDATE UEC

Seq #  *Modification Id* Act 
----------------------------+
00974  M02S00756.vemem1  ---|$SET(R1=UEC_B/2) CONVERT TO KWORDS

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

Seq #  *Modification Id* Act 
----------------------------+
00979  M02S00759.vemem1  ---|  $NOTE.;:I Please re-enter.

Seq #  *Modification Id* Act 
----------------------------+
00980  M02S00760.vemem1  ---|  $REVERT(EX)$SET(R1G=-1)

Seq #  *Modification Id* Act 
----------------------------+
00981  M02S00761.vemem1  ---|$ENDIF(UEM2C)
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  M01S00762.vemem   +++|.* VALIDATE UEC+IOB

Seq #  *Modification Id* Act 
----------------------------+
00988  M02S00763.vemem1  ---|$SET(R1=(IOB_B/2) + (UEC_B/2)) CONVERT TO KWORDS

Seq #  *Modification Id* Act 
----------------------------+
00989  M02S00764.vemem1  ---|$IF, (R1 .GT. R1G) ,UEM2D.

Proceed to Part 1