cdc:nos2.source:opl.opl871:deck:vemem.001
Deck VEMEM Part 001
1 Modification
Listing Sections
- Deck VEMEM Start
- Deck VEMEM Part 1 (Line 990)
Source
Seq # *Modification Id* Act ----------------------------+ 00990 M01S00226.vemem1 +++|.IF, (IOB+UEC .GT. UEM) ,UIOQ3. 00991 M01S00765.vemem +++| $NOTE.;;:I #IOB+#UEC memory value out of range.
| Line S00766 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 00992 M02S00766.vemem1 ---| $NOTE.;:I Please re-enter.
| Line S00767 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 00993 M02S00767.vemem1 ---| $REVERT(EX)$SET(R1G=-1)
| Line S00768 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 00994 M02S00768.vemem1 ---|$ENDIF(UEM2D)
| Line S00769 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 00995 M02S00769.vemem1 ---|$SET(R1G=IOB_B)
| Line S00770 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 00996 M02S00770.vemem1 ---|$REVERT(EX)$SET(R1=UEC_B)
| Line S00771 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 00997 M02S00771.vemem1 ---|.* BOTH VALUES RETURNED IN OCTAL/1000B
| Line S00772 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 00998 M02S00772.vemem1 ---|$REVERT. UEM2(TOTAL) - COMPLETE
| Line S00773 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 00999 M02S00773.vemem1 ---|$EXIT. UEM2
| Line S00774 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01000 M02S00774.vemem1 ---|$REVERT(ABORT) UEM2 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 M01S00775.vemem +++|*WEOR
| Line S00776 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01010 M02S00776.vemem1 ---|.PROC,UEC*I"Allocate User Accessible Extended Memory"
| Line S00777 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01011 M02S00777.vemem1 ---|,WORDS [Octal/1000B words Memory for UEC] =(*S4/B)
| Line S00778 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01012 M02S00778.vemem1 ---|,VEMEM =(*N=#FILE) 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 M01S00779.vemem +++|. 01023 M01S00780.vemem +++|.HELP,WORDS,NOLIST. 01024 M01S00781.vemem +++| An octal value specifying the amount of memory to be reserved 01025 M01S00782.vemem +++|for user accessible extended memory. 01026 M01S00783.vemem +++| This octal value is in units of 1000 octal words. 01027 M01S00784.vemem +++|.ENDHELP
| Line S00785 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01028 M02S00785.vemem1 ---|$SET(R1G=WORDS_B/2) CONVERT TO KWORDS
| Line S00786 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01029 M02S00786.vemem1 ---|$REVERT. UEC(TOTAL) - COMPLETE
| Line S00787 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01030 M02S00787.vemem1 ---|$EXIT. UEC
| Line S00788 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01031 M02S00788.vemem1 ---|$REVERT(ABORT) UEC 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 M01S00789.vemem +++|*WEOR
| Line S00790 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01043 M02S00790.vemem1 ---|.PROC,UEM*I"Allocate Unified Extended Memory"
| Line S00791 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01044 M02S00791.vemem1 ---|,WORDS [Octal/1000B words Memory for UEM] =(*S4/B)
| Line S00792 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01045 M02S00792.vemem1 ---|,VEMEM =(*N=#FILE) 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 M01S00793.vemem +++|. 01056 M01S00794.vemem +++|.HELP,WORDS,NOLIST. 01057 M01S00795.vemem +++| An octal value specifying the amount of memory to be reserved 01058 M01S00796.vemem +++|for unified extended memory. 01059 M01S00797.vemem +++| This octal value is in units of 1000 octal words. 01060 M01S00798.vemem +++|.ENDHELP
| Line S00799 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01061 M02S00799.vemem1 ---|$SET(R1G=WORDS_B/2) CONVERT TO KWORDS
| Line S00800 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01062 M02S00800.vemem1 ---|$REVERT. UEM(TOTAL) - COMPLETE
| Line S00801 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01063 M02S00801.vemem1 ---|$EXIT. UEM
| Line S00802 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01064 M02S00802.vemem1 ---|$REVERT(ABORT) UEM 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 M01S00803.vemem +++|*WEOR 01076 M01S00804.vemem +++|.PROC,DECKS*I 01077 M01S00805.vemem +++|,MF =(*A) 01078 M01S00806.vemem +++|,NOS =(*A)
| Line S00807 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01079 M02S00807.vemem1 ---|,VE =(*A)
| Line S00808 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01080 M02S00808.vemem1 ---|,UEM =(*N=,*A)
| Line S00809 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01081 M02S00809.vemem1 ---|,IOB =(*N=,*A)
| Line S00810 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01082 M02S00810.vemem1 ---|,UEC =(*N=,*A) 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 M01S00811.vemem +++|,OPTION =(*A) 01088 M01S00812.vemem +++|,VEMEM =(*N=#FILE) 01089 M01S00813.vemem +++|. 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 M01S00814.vemem +++|$RETURN(CMREQP) 01096 M01S00815.vemem +++|.IF, ($OPTION$ .EQ. $1$) ,DECKS1. 01097 M01S00816.vemem +++| .* NOS/VE, NOS, NO UEM, NO UEC 01098 M01S00817.vemem +++| $NOTE.;;;:I Make the following CMR deck entries:;
| Line S00818 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01099 M02S00818.vemem1 ---| $SET(R1=NOS*16) ** CONVERT TO OCTAL/100B
| Line S00819 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01100 M02S00819.vemem1 ---| $BEGIN(DISVAL,VEMEM,$MINCM=$, R1+B)
| Line S00820 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01101 M02S00820.vemem1 ---| $BEGIN(DISVAL,VEMEM,$#VE=$, 0) 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 M01S00821.vemem +++|.ELSE(DECKS1) 01109 M01S00288.vemem1 +++|.IF, (VE .EQ. 0) ,DECKS2. 01110 M01S00289.vemem1 +++| .SET(#VE=STR($*$)) ** EXCLUDE NOS/VE 01111 M01S00290.vemem1 +++|.ENDIF,DECKS2. 01112 M01S00822.vemem +++|.IF, ($OPTION$ .EQ. $2$) ,DECKS1. 01113 M01S00823.vemem +++| .* NOS/VE, NOS, NO UEM, YES UEC 01114 M01S00824.vemem +++| $NOTE.;;;:I Make the following CMR deck entries:;
| Line S00825 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01115 M02S00825.vemem1 ---| $SET(R1=VE*2) ** CONVERT TO OCTAL/1000B
| Line S00826 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01116 M02S00826.vemem1 ---| $BEGIN(DISVAL,VEMEM,$#VE=$, R1+B) 01117 M01S00291.vemem1 +++| $BEGIN(DISVAL,VEMEM,$#VE=$,VE) 01118 M01S00827.vemem +++| .IF, (UEC .NE. 0) ,DECKS3. 01119 M01S00828.vemem +++| $NOTE.;;:I Make the following EQP deck entries:;
| Line S00829 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01120 M02S00829.vemem1 ---| $SET(R1=UEC*2) ** CONVERT TO OCTAL/1000B
| Line S00830 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01121 M02S00830.vemem1 ---| $BEGIN(DISVAL,VEMEM,$XM=MCHID,0,$,R1+B,$,EM$) 01122 M01S00292.vemem1 +++| $BEGIN(DISVAL,VEMEM,$XM=MCHID,0,$,UEC,$,EM$) 01123 M01S00831.vemem +++| $NOTE.;;:I Where MCHID is your machine ID. 01124 M01S00832.vemem +++| $NOTE.;:I (CMRDECK entry MID.) 01125 M01S00833.vemem +++| .ENDIF(DECKS3) 01126 M01S00834.vemem +++|.ELSE(DECKS1) 01127 M01S00835.vemem +++| .* NOS/VE, NOS, UEM, MAYBE IOB AND UEC 01128 M01S00836.vemem +++| $NOTE.;;;:I Make the following CMR deck entries:;
| Line S00837 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01129 M02S00837.vemem1 ---| $SET(R1=VE*2) ** CONVERT TO OCTAL/1000B
| Line S00838 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01130 M02S00838.vemem1 ---| $BEGIN(DISVAL,VEMEM,$#VE=$, R1+B) 01131 M01S00293.vemem1 +++| $BEGIN(DISVAL,VEMEM,$#VE=$,VE) 01132 M01S00839.vemem +++| $NOTE.;;;:I Make the following EQP deck entries:;
| Line S00840 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01133 M02S00840.vemem1 ---| $SET(R1=UEM*2) ** CONVERT TO OCTAL/1000B
| Line S00841 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01134 M02S00841.vemem1 ---| $BEGIN(DISVAL,VEMEM,$EQ5=DE,ST=ON,ET=EM,SZ=$,R1+B) 01135 M01S00294.vemem1 +++| $BEGIN(DISVAL,VEMEM,$EQ5=DE,ST=ON,ET=EM,SZ=$,UEM) 01136 M01S00842.vemem +++| .IF, (IOB .NE. 0) .OR. (UEC .NE. 0) ,DECKS1A.
| Line S00843 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01137 M02S00843.vemem1 ---| $SET(R1=IOB*2) ** CONVERT TO OCTAL/1000B
| Line S00844 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01138 M02S00844.vemem1 ---| $SET(R2=UEC*2) ** CONVERT TO OCTAL/1000B
| Line S00845 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01139 M02S00845.vemem1 ---| $BEGIN(DISVAL,VEMEM,$XM=MCHID,$,R1+B,$,$,R2+B) 01140 M01S00295.vemem1 +++| $BEGIN(DISVAL,VEMEM,$XM=MCHID,$,IOB,$,$,UEC) 01141 M01S00846.vemem +++| $NOTE.;;:I Where MCHID is your machine ID. 01142 M01S00847.vemem +++| $NOTE.;:I (CMRDECK entry MID.) 01143 M01S00848.vemem +++| .ENDIF(DECKS1A) 01144 M01S00849.vemem +++|.ENDIF(DECKS1) 01145 M01S00850.vemem +++|$NOTE.;;:I Entries placed on local file CMREQP.;; 01146 M01S00851.vemem +++|$PACK(CMREQP) 01147 M01S00852.vemem +++|$REVERT. DECKS COMPLETE 01148 M01S00853.vemem +++|$EXIT. DECKS 01149 M01S00854.vemem +++|$REVERT(ABORT) DECKS 01150 M01S00855.vemem +++|*WEOR 01151 M01S00856.vemem +++|.PROC,DISVAL*I 01152 M01S00857.vemem +++|,MSG1 =(*A)
| Line S00858 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01153 M02S00858.vemem1 ---|,VAL1 =(*S6/B) 01154 M01S00296.vemem1 +++|,VAL1 =(*S6/B*) 01155 M01S00859.vemem +++|,MSG2 =(*A,*N=)
| Line S00860 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01156 M02S00860.vemem1 ---|,VAL2 =(*S6/B,*N=) 01157 M01S00297.vemem1 +++|,VAL2 =(*S6/B*,*N=) 01158 M01S00861.vemem +++|. 01159 M01S00862.vemem +++|$NOTE.;MSG1_VAL1_MSG2_VAL2. 01160 M01S00863.vemem +++|$NOTE,CMREQP,NR.;MSG1_VAL1_MSG2_VAL2. 01161 M01S00864.vemem +++|$REVERT. DISVAL 01162 M01S00865.vemem +++|*WEOR 01163 M01S00866.vemem +++|.PROC,DISRNGB*I 01164 M01S00867.vemem +++|,WORD =(*A) 01165 M01S00868.vemem +++|,LOW =(*S6/D) 01166 M01S00869.vemem +++|,UP =(*S6/D) 01167 M01S00870.vemem +++|,VEMEM =(*N=#FILE) 01168 M01S00871.vemem +++|. 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 M01S00872.vemem +++|$NOTE.;;:I Allowed range for WORD memory is: 01176 M01S00873.vemem +++|$NOTE.;:I (Megabytes,Kilobytes);
| Line S00874 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01177 M02S00874.vemem1 ---|$SET(R1=LOW/128)
| Line S00875 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01178 M02S00875.vemem1 ---|$SET(R2=(LOW-R1*128)*8)
| Line S00876 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01179 M02S00876.vemem1 ---|$BEGIN(,ZZZZZDD,LOWER,R1+,R2+)
| Line S00877 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01180 M02S00877.vemem1 ---|$SET(R1=UP/128)
| Line S00878 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01181 M02S00878.vemem1 ---|$SET(R2=(UP-R1*128)*8)
| Line S00879 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01182 M02S00879.vemem1 ---|$BEGIN(,ZZZZZDD,UPPER,R1+,R2+)
| Line S00880 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01183 M02S00880.vemem1 ---|$RETURN,ZZZZZDD. 01184 M01S00304.vemem1 +++|$NOTE.;:I LOWER bound is L1,L2; 01185 M01S00305.vemem1 +++|$NOTE.;:I UPPER bound is U1,U2; 01186 M01S00881.vemem +++|$REVERT. DISRANG COMPLETE 01187 M01S00882.vemem +++|$EXIT. DISRANG 01188 M01S00883.vemem +++|$REVERT(ABORT) DISRANG FAILED
| Line S00884 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01189 M02S00884.vemem1 ---|.DATA,ZZZZZDD
| Line S00885 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01190 M02S00885.vemem1 ---|.PROC,ZZZZZDD*I
| Line S00886 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01191 M02S00886.vemem1 ---|,BOUND =(*A)
| Line S00887 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01192 M02S00887.vemem1 ---|,N1 =(*A)
| Line S00888 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01193 M02S00888.vemem1 ---|,N2 =(0=000,64=064,*A) 01194 M01S00306.vemem1 +++|*WEOR 01195 M01S00307.vemem1 +++|.PROC,DISPB*I 01196 M01S00308.vemem1 +++|,TYPE =(*A) 01197 M01S00309.vemem1 +++|,AMOUNT =(*A) 01198 M01S00889.vemem +++|.
| Line S00890 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01199 M02S00890.vemem1 ---|$NOTE.;:I BOUND bound is N1,N2; 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 M01S00891.vemem +++|$REVERT. 01216 M01S00892.vemem +++|*WEOR
| Line S00893 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01217 M02S00893.vemem1 ---|.PROC,DISPB,TYPE,AMOUNT.
| Line S00894 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01218 M02S00894.vemem1 ---|$SET(R1=AMOUNT/128)
| Line S00895 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01219 M02S00895.vemem1 ---|$SET(R2=(AMOUNT-R1*128)*8)
| Line S00896 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01220 M02S00896.vemem1 ---|$BEGIN,,DISPB0,R1+,R2+.
| Line S00897 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01221 M02S00897.vemem1 ---|$RETURN(DISPB0,DIPSB1)
| Line S00898 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01222 M02S00898.vemem1 ---|$REVERT.
| Line S00899 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01223 M02S00899.vemem1 ---|.DATA,DISPB0
| Line S00900 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01224 M02S00900.vemem1 ---|.PROC,DISPB0*I
| Line S00901 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01225 M02S00901.vemem1 ---|,MB =(*A)
| Line S00902 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01226 M02S00902.vemem1 ---|,KB =(*A) 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 M01S00903.vemem +++|.
| Line S00904 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01233 M02S00904.vemem1 ---|SET,R1=MB.
| Line S00905 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01234 M02S00905.vemem1 ---|IF, (R1 .LT. 10) .$REVERT(EX)DISPB1($ MB$,KB)
| Line S00906 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01235 M02S00906.vemem1 ---|IF, (R1 .LT. 100) .$REVERT(EX)DISPB1($ MB$,KB)
| Line S00907 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01236 M02S00907.vemem1 ---|$REVERT(EX)DISPB1(MB,KB)
| Line S00908 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01237 M02S00908.vemem1 ---|.DATA,DISPB1
| Line S00909 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01238 M02S00909.vemem1 ---|.PROC,DISPB1*I
| Line S00910 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01239 M02S00910.vemem1 ---|,MB =(*A)
| Line S00911 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01240 M02S00911.vemem1 ---|,KB =(*A)
| Line S00912 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01241 M02S00912.vemem1 ---|,FIXED =(*N=NO,*K=YES,NO,YES) 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 M01S00913.vemem +++|.
| Line S00914 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01256 M02S00914.vemem1 ---|.EXPAND(OFF)
| Line S00915 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01257 M02S00915.vemem1 ---|IF, ($FIXED$ .EQ. $NO$) ,DISPB0.
| Line S00916 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01258 M02S00916.vemem1 ---| SET,R1=KB.
| Line S00917 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01259 M02S00917.vemem1 ---| IF, (R1 .LT. 10) .$REVERT(EX)$BEGIN(,DISPB1,$MB$,$00_KB$,#FIXED)
| Line S00918 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01260 M02S00918.vemem1 ---| IF, (R1 .LT. 100) .$REVERT(EX)$BEGIN(,DISPB1,$MB$,$0_KB$,#FIXED)
| Line S00919 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01261 M02S00919.vemem1 ---|ENDIF(DISPB0)
| Line S00920 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01262 M02S00920.vemem1 ---|.EXPAND(ON)
| Line S00921 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01263 M02S00921.vemem1 ---|.IF, ($TYPE$ .EQ. $PT$) ,DISPB1A.
| Line S00922 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01264 M02S00922.vemem1 ---| $NOTE.;:I Page Table memory is MB,KB
| Line S00923 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01265 M02S00923.vemem1 ---|.ELSE(DISPB1A)
| Line S00924 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01266 M02S00924.vemem1 ---|.IF, ($TYPE$ .EQ. $NOS$) ,DISPB1A.
| Line S00925 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01267 M02S00925.vemem1 ---| $NOTE.;:I NOS memory is MB,KB
| Line S00926 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01268 M02S00926.vemem1 ---|.ELSE(DISPB1A)
| Line S00927 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01269 M02S00927.vemem1 ---|.IF, ($TYPE$ .EQ. $VE$) ,DISPB1A.
| Line S00928 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01270 M02S00928.vemem1 ---| $NOTE.;:I NOS/VE memory is MB,KB
| Line S00929 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01271 M02S00929.vemem1 ---|.ELSE(DISPB1A)
| Line S00930 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01272 M02S00930.vemem1 ---|.IF, ($TYPE$ .EQ. $MF$) ,DISPB1A.
| Line S00931 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01273 M02S00931.vemem1 ---| $NOTE.;:ITOTAL Physical Mainframe memory is MB,KB
| Line S00932 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01274 M02S00932.vemem1 ---|.ENDIF(DISPB1A) 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 M01S00933.vemem +++|$REVERT.
| Line S00934 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01300 M02S00934.vemem1 ---|*WEOR
| Line S00935 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01301 M02S00935.vemem1 ---|.PROC,DISRNGW*I
| Line S00936 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01302 M02S00936.vemem1 ---|,WORD =(*A)
| Line S00937 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01303 M02S00937.vemem1 ---|,LOW =(*S6/D)
| Line S00938 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01304 M02S00938.vemem1 ---|,UP =(*S6/D)
| Line S00939 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01305 M02S00939.vemem1 ---|,VEMEM =(*N=#FILE)
| Line S00940 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01306 M02S00940.vemem1 ---|.
| Line S00941 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01307 M02S00941.vemem1 ---|$NOTE.;;:I Allowed range for WORD memory is:
| Line S00942 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01308 M02S00942.vemem1 ---|$NOTE.;:I (Octal/1000B words);
| Line S00943 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01309 M02S00943.vemem1 ---|$SET(R1=LOW*2)
| Line S00944 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01310 M02S00944.vemem1 ---|$SET(R2=UP*2)
| Line S00945 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01311 M02S00945.vemem1 ---|$BEGIN(,ZZZZZDD,R1+B,R2+B)
| Line S00946 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01312 M02S00946.vemem1 ---|.IF, ($WORD$ .EQ. $IOB$) .$NOTE.;:I (Enter 0 for no IOB).
| Line S00947 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01313 M02S00947.vemem1 ---|$RETURN(ZZZZZDD)
| Line S00948 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01314 M02S00948.vemem1 ---|$REVERT. DISRNGW COMPLETE
| Line S00949 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01315 M02S00949.vemem1 ---|$EXIT. DISRNGW
| Line S00950 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01316 M02S00950.vemem1 ---|$REVERT(ABORT) DISRNGW FAILED
| Line S00951 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01317 M02S00951.vemem1 ---|.DATA,ZZZZZDD
| Line S00952 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01318 M02S00952.vemem1 ---|.PROC,ZZZZZDD*I
| Line S00953 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01319 M02S00953.vemem1 ---|,N1 =(*A)
| Line S00954 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01320 M02S00954.vemem1 ---|,N2 =(*A)
| Line S00955 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01321 M02S00955.vemem1 ---|.
| Line S00956 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01322 M02S00956.vemem1 ---|$NOTE.;:I N1 - N2;
| Line S00957 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01323 M02S00957.vemem1 ---|$REVERT.
| Line S00958 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01324 M02S00958.vemem1 ---|*WEOR
| Line S00959 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01325 M02S00959.vemem1 ---|.PROC,DISPW,TYPE,AMOUNT.
| Line S00960 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01326 M02S00960.vemem1 ---|$SET(R1=AMOUNT*2)
| Line S00961 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01327 M02S00961.vemem1 ---|$BEGIN,,DISPW1,R1+B.
| Line S00962 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01328 M02S00962.vemem1 ---|$RETURN(DISPW1)
| Line S00963 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01329 M02S00963.vemem1 ---|$REVERT.
| Line S00964 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01330 M02S00964.vemem1 ---|.DATA,DISPW1
| Line S00965 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01331 M02S00965.vemem1 ---|.PROC,DISPW1*I
| Line S00966 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01332 M02S00966.vemem1 ---|,OW =(*A)
| Line S00967 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01333 M02S00967.vemem1 ---|,FIXED =(*N=NO,YES,*K=YES,NO)
| Line S00968 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01334 M02S00968.vemem1 ---|.
| Line S00969 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01335 M02S00969.vemem1 ---|.EXPAND(OFF)
| Line S00970 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01336 M02S00970.vemem1 ---|IF, ($FIXED$ .EQ. $NO$) ,DISPW0.
| Line S00971 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01337 M02S00971.vemem1 ---| SET,R1=OW.
| Line S00972 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01338 M02S00972.vemem1 ---| IF, (R1 .LT. 10) .$REVERT(EX)$BEGIN(,DISPW1,$ OW$,#FIXED)
| Line S00973 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01339 M02S00973.vemem1 ---| IF, (R1 .LT. 100) .$REVERT(EX)$BEGIN(,DISPW1,$ OW$,#FIXED)
| Line S00974 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01340 M02S00974.vemem1 ---| IF, (R1 .LT. 1000) .$REVERT(EX)$BEGIN(,DISPW1,$ OW$,#FIXED)
| Line S00975 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01341 M02S00975.vemem1 ---| IF, (R1 .LT. 10000) .$REVERT(EX)$BEGIN(,DISPW1,$ OW$,#FIXED)
| Line S00976 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01342 M02S00976.vemem1 ---|ENDIF(DISPW0)
| Line S00977 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01343 M02S00977.vemem1 ---|.EXPAND(ON)
| Line S00978 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01344 M02S00978.vemem1 ---|.IF, ($TYPE$ .EQ. $JOBS$) ,DISPW1A.
| Line S00979 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01345 M02S00979.vemem1 ---| $NOTE.;:I SYSTEM & Executing Job memory is OW
| Line S00980 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01346 M02S00980.vemem1 ---|.ELSE(DISPW1A)
| Line S00981 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01347 M02S00981.vemem1 ---|.IF, ($TYPE$ .EQ. $UEM$) ,DISPW1A.
| Line S00982 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01348 M02S00982.vemem1 ---| $NOTE.;:I Unified Extended Memory (UEM) is OW
| Line S00983 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01349 M02S00983.vemem1 ---|.ELSE(DISPW1A)
| Line S00984 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01350 M02S00984.vemem1 ---|.IF, ($TYPE$ .EQ. $UEMT$) ,DISPW1A.
| Line S00985 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01351 M02S00985.vemem1 ---| $NOTE.;:I TOTAL Unified Extended Memory is OW
| Line S00986 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01352 M02S00986.vemem1 ---|.ELSE(DISPW1A)
| Line S00987 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01353 M02S00987.vemem1 ---|.IF, ($TYPE$ .EQ. $ASR$) ,DISPW1A.
| Line S00988 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01354 M02S00988.vemem1 ---| $NOTE.;:I Alternate System (ASR) and
| Line S00989 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01355 M02S00989.vemem1 ---| $NOTE.;:I Secondary Rollout (SRST) memory is OW
| Line S00990 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01356 M02S00990.vemem1 ---|.ELSE(DISPW1A)
| Line S00991 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01357 M02S00991.vemem1 ---|.IF, ($TYPE$ .EQ. $IOB$) ,DISPW1A.
| Line S00992 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01358 M02S00992.vemem1 ---| $NOTE.;:I 895 Input and Output Buffers (IOB) OW
| Line S00993 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01359 M02S00993.vemem1 ---|.ELSE(DISPW1A)
| Line S00994 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01360 M02S00994.vemem1 ---|.IF, ($TYPE$ .EQ. $UEC$) ,DISPW1A.
| Line S00995 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01361 M02S00995.vemem1 ---| $NOTE.;:IUser Accessible Extended Memory (UEC) OW
| Line S00996 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01362 M02S00996.vemem1 ---|.ELSE(DISPW1A)
| Line S00997 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01363 M02S00997.vemem1 ---|.IF, ($TYPE$ .EQ. $NOS$) ,DISPW1A.
| Line S00998 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01364 M02S00998.vemem1 ---| $NOTE.;:I TOTAL NOS memory is OW
| Line S00999 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01365 M02S00999.vemem1 ---|.ENDIF(DISPW1A)
| Line S01000 Modification History | |
|---|---|
M01 (Added by) | vemem |
M02 (Updated by) | vemem1 |
Seq # *Modification Id* Act ----------------------------+ 01366 M02S01000.vemem1 ---|$REVERT.
cdc/nos2.source/opl.opl871/deck/vemem.001.txt · Last modified: by 127.0.0.1