Seq # *Modification Id* Act
----------------------------+
00001 M00S00001.cpurel +++| IDENT CPU.CPM
00002 M00S00002.cpurel +++| ENTRY CPM=
00003 M00S00003.cpurel +++|*COMMENT CPUREL - CONTROL POINT MANAGER PROCESSOR.
Line S00004 Modification History
M01 (Removed by) 281l803
Seq # *Modification Id* Act
----------------------------+
00004 M01S00004.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1970.
Line S00001 Modification History
M01 (Added by) 281l803
Seq # *Modification Id* Act
----------------------------+
00005 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00006 M00S00005.cpurel +++| TITLE CPU.CPM - CONTROL POINT MANAGER PROCESSOR.
00007 M00S00006.cpurel +++|*CALL COMCCPM
00008 M00S00007.cpurel +++| END
00009 M00S00008.cpurel +++| IDENT CPU.ECS
00010 M00S00009.cpurel +++| ENTRY REC=
00011 M00S00010.cpurel +++| ENTRY WEC=
00012 M00S00011.cpurel +++|*COMMENT CPUREL - ECS INTERPRETIVE MODE MACRO PROCESSORS.
Line S00012 Modification History
M01 (Removed by) 281l803
Seq # *Modification Id* Act
----------------------------+
00013 M01S00012.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1977.
Line S00002 Modification History
M01 (Added by) 281l803
Seq # *Modification Id* Act
----------------------------+
00014 M01S00002.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00015 M00S00013.cpurel +++| TITLE CPU.ECS - ECS INTERPRETIVE MODE MACRO PROCESSORS.
00016 M00S00014.cpurel +++|*CALL COMCECM
00017 M00S00015.cpurel +++|*CALL COMCECS
00018 M00S00016.cpurel +++| END
00019 M00S00017.cpurel +++| IDENT CPU.LFM
00020 M00S00018.cpurel +++| ENTRY LFM=
00021 M00S00019.cpurel +++|*COMMENT CPUREL - LOCAL FILE MANAGER PROCESSOR.
Line S00020 Modification History
M01 (Removed by) 281l803
Seq # *Modification Id* Act
----------------------------+
00022 M01S00020.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1970.
Line S00003 Modification History
M01 (Added by) 281l803
Seq # *Modification Id* Act
----------------------------+
00023 M01S00003.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00024 M00S00021.cpurel +++| TITLE CPU.LFM - LOCAL FILE MANAGER PROCESSOR.
00025 M00S00022.cpurel +++|*CALL COMCLFM
00026 M00S00023.cpurel +++| END
00027 M00S00024.cpurel +++| IDENT CPU.OVL
00028 M00S00025.cpurel +++| ENTRY OVL=
00029 M00S00026.cpurel +++|*COMMENT CPUREL - OVERLAY LOAD PROCESSOR.
Line S00027 Modification History
M01 (Removed by) 281l803
Seq # *Modification Id* Act
----------------------------+
00030 M01S00027.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1970.
Line S00004 Modification History
M01 (Added by) 281l803
Seq # *Modification Id* Act
----------------------------+
00031 M01S00004.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00032 M00S00028.cpurel +++| TITLE CPU.OVL - OVERLAY LOAD PROCESSOR.
00033 M00S00029.cpurel +++|*CALL COMCOVL
00034 M00S00030.cpurel +++| END
00035 M00S00031.cpurel +++| IDENT CPU.PFM
00036 M00S00032.cpurel +++| ENTRY PFM=
00037 M00S00033.cpurel +++|*COMMENT CPUREL - PERMANENT FILE PROCESSOR.
Line S00034 Modification History
M01 (Removed by) 281l803
Seq # *Modification Id* Act
----------------------------+
00038 M01S00034.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1970.
Line S00005 Modification History
M01 (Added by) 281l803
Seq # *Modification Id* Act
----------------------------+
00039 M01S00005.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00040 M00S00035.cpurel +++| TITLE CPU.PFM - PERMANENT FILE PROCESSOR.
00041 M00S00036.cpurel +++|*CALL COMCPFM
00042 M00S00037.cpurel +++| END
00043 M00S00038.cpurel +++| IDENT PF
00044 M00S00039.cpurel +++| SST
00045 M00S00040.cpurel +++| ENTRY PF
00046 M00S00041.cpurel +++| SYSCOM B1
00047 M00S00042.cpurel +++| TITLE PF - PERMANENT FILE REQUEST PROCESSOR.
00048 M00S00043.cpurel +++|*COMMENT CPUREL - PERMANENT FILE REQUEST PROCESSOR.
Line S00044 Modification History
M01 (Removed by) 281l803
Seq # *Modification Id* Act
----------------------------+
00049 M01S00044.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1980.
Line S00006 Modification History
M01 (Added by) 281l803
Seq # *Modification Id* Act
----------------------------+
00050 M01S00006.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00051 M00S00045.cpurel +++| SPACE 4,20
00052 M00S00046.cpurel +++|*** PF - PERMANENT FILE REQUEST PROCESSOR.
00053 M00S00047.cpurel +++|*
00054 M00S00048.cpurel +++|* S. M. HATCH. 78/04/27. (RAYTHEON)
00055 M00S00049.cpurel +++|* D. W. BOSTROM. 80/05/30.
00056 M00S00050.cpurel +++| SPACE 4,10
00057 M00S00051.cpurel +++|*** *PF* PROVIDES AN INTERFACE TO *NOS* PERMANENT FILE COMMANDS
00058 M00S00052.cpurel +++|* FOR PROGRAMS WRITTEN IN HIGHER LEVEL LANGUAGES. THE USE
00059 M00S00053.cpurel +++|* OF KEYWORDS ALLOWS THE USER TO OMIT THOSE PARAMETERS WHICH
00060 M00S00054.cpurel +++|* ARE NOT NEEDED.
00061 M00S00055.cpurel +++| SPACE 4,10
00062 M00S00056.cpurel +++|*** CALLING SEQUENCE.
00063 M00S00057.cpurel +++|*
00064 M00S00058.cpurel +++|* *FORTRAN* CALL -
00065 M00S00059.cpurel +++|*
00066 M00S00060.cpurel +++|* CALL PF(REQ,LFN,PFN,KEY(1),OPT(1),...,KEY(N),OPT(N))
00067 M00S00061.cpurel +++|*
00068 M00S00062.cpurel +++|* *SYMPL* CALL -
00069 M00S00063.cpurel +++|*
00070 M00S00064.cpurel +++|* PF(REQ,LFN,PFN,KEY(1),OPT(1),...,KEY(N),OPT(N),0);
00071 M00S00065.cpurel +++|*
00072 M00S00066.cpurel +++|* IT IS REQUIRED THAT THE LAST PARAMETER IN A *SYMPL*
00073 M00S00067.cpurel +++|* CALL BE A ZERO, IN ORDER TO TERMINATE THE PARAMETER
00074 M00S00068.cpurel +++|* LIST PROPERLY. (THIS IS NOT MANDATORY IF THE *SYMPL*
00075 M00S00069.cpurel +++|* PROGRAM EITHER CONTAINS A *CONTROL FTNCALL*, OR IS
00076 M00S00070.cpurel +++|* COMPILED WITH THE *F* OPTION.)
00077 M00S00071.cpurel +++|*
00078 M00S00072.cpurel +++|*
00079 M00S00073.cpurel +++|* THE PARAMETERS CONSIST OF ORDER DEPENDENT MANDATORY
00080 M00S00074.cpurel +++|* PARAMETERS, FOLLOWED OPTIONALLY BY ORDER INDEPENDENT
00081 M00S00075.cpurel +++|* KEYWORD PAIRED PARAMETER STRINGS. KEYWORDS AND ALL
00082 M00S00076.cpurel +++|* OTHER DISPLAY CODE PARAMETERS ARE REQUIRED TO BE LEFT
00083 M00S00077.cpurel +++|* JUSTIFIED WITH ZERO OR BLANK FILL, OR ELSE IN *FTN5*
00084 M00S00078.cpurel +++|* CHARACTER FORMAT. OPTIONAL KEYWORD PAIRS CONSIST OF
00085 M00S00079.cpurel +++|* A KEYWORD FOLLOWED BY THE VALUE TO BE ASSOCIATED WITH
00086 M00S00080.cpurel +++|* THIS KEYWORD.
00087 M00S00081.cpurel +++|*
00088 M00S00082.cpurel +++|* MANDATORY ORDER DEPENDENT PARAMETERS.
00089 M00S00083.cpurel +++|*
00090 M00S00084.cpurel +++|* REQ - PERMANENT FILE REQUEST.
00091 M00S00085.cpurel +++|* THE FOLLOWING *PFM* REQUESTS ARE SUPPORTED -
00092 M00S00086.cpurel +++|* *APPEND*, *ATTACH*, *CHANGE*, *DEFINE*, *GET*,
00093 M00S00087.cpurel +++|* *PERMIT*, *PURGE*, *REPLACE*, AND *SAVE*.
00094 M00S00088.cpurel +++|*
00095 M00S00089.cpurel +++|* LFN - LOCAL FILE NAME OR *FORTRAN* UNIT NUMBER.
00096 M00S00090.cpurel +++|* IF *LFN* IS NONZERO AND THE UPPER 42 BITS ARE
00097 M00S00091.cpurel +++|* ZERO, THEN THE LOWER 18 BITS ARE ASSUMED TO
00098 M00S00092.cpurel +++|* CONTAIN AN INTEGER. THIS INTEGER IS CONVERTED
00099 M00S00093.cpurel +++|* TO DISPLAY CODE AND PREFIXED WITH THE CHARACTERS
00100 M00S00094.cpurel +++|* "TAPE" TO YIELD A *FORTRAN* FILE NAME.
00101 M00S00095.cpurel +++|* IF *LFN* EQUALS ZERO OR IS ALL BLANKS, THEN
00102 M00S00096.cpurel +++|* *LFN* = *PFN* IS ASSUMED.
00103 M00S00097.cpurel +++|*
00104 M00S00098.cpurel +++|* PFN - PERMANENT FILE NAME.
00105 M00S00099.cpurel +++|* IF *PFN* EQUALS ZERO OR IS ALL BLANKS, THEN
00106 M00S00100.cpurel +++|* *PFN* = *LFN* IS ASSUMED.
00107 M00S00101.cpurel +++|*
00108 M00S00102.cpurel +++|* OPTIONAL KEYWORD PARAMETERS.
00109 M00S00103.cpurel +++|*
00110 M00S00104.cpurel +++|* THE FOLLOWING PARAMETERS ARE SIMILAR IN MEANING TO
00111 M00S00105.cpurel +++|* THE CORRESPONDING OPTIONS ON *NOS* PERMANENT FILE
00112 M00S00106.cpurel +++|* CONTROL CARDS AND MACROS.
00113 M00S00107.cpurel +++|*
00114 M00S00108.cpurel +++|* "AC" - ALTERNATE CATLIST PERMISSION.
00115 M00S00109.cpurel +++|* "BR" - BACKUP REQUIREMENT.
00116 M00S00110.cpurel +++|* "CT" - FILE CATEGORY.
00117 M00S00111.cpurel +++|* "M" - FILE OR USER PERMISSION MODE.
00118 M00S00112.cpurel +++|* "PN" - PACK NAME.
00119 M00S00113.cpurel +++|* "PR" - PREFERRED RESIDENCE.
00120 M00S00114.cpurel +++|* "PW" - PASSWORD.
00121 M00S00115.cpurel +++|* "R" - RESIDENCE DEVICE TYPE.
00122 M00S00116.cpurel +++|* "RT" - REAL-TIME MODE.
00123 M00S00117.cpurel +++|* "S" - SIZE IN PRU-S, IN DISPLAY CODE. DECIMAL IS
00124 M00S00118.cpurel +++|* ASSUMED UNLESS A *B* POST RADIX IS USED TO
00125 M00S00119.cpurel +++|* INDICATE OCTAL.
00126 M00S00120.cpurel +++|* "UN" - USER NUMBER.
00127 M00S00121.cpurel +++|* "XD" - EXPIRATION DATE.
00128 M00S00122.cpurel +++|* "XT" - EXPIRATION TERM.
00129 M00S00123.cpurel +++|*
00130 M00S00124.cpurel +++|* THE FOLLOWING PARAMETERS DO NOT DIRECTLY CORRESPOND
00131 M00S00125.cpurel +++|* TO ANY OPTIONS ON *NOS* PERMANENT FILE CONTROL CARDS
00132 M00S00126.cpurel +++|* OR MACROS.
00133 M00S00127.cpurel +++|*
Line S00001 Modification History
M01 (Added by) ns2568
Seq # *Modification Id* Act
----------------------------+
00134 M01S00001.ns2568 +++|* "EL" - ERROR MESSAGE LENGTH.
00135 M01S00002.ns2568 +++|* NUMBER OF CHARACTERS TO BE RETURNED TO THE
00136 M01S00003.ns2568 +++|* ERROR MESSAGE BUFFER SPECIFIED BY THE *EM*
00137 M01S00004.ns2568 +++|* PARAMETER. IF THE BUFFER SPECIFIED BY *EM* IS
00138 M01S00005.ns2568 +++|* A *FTN5* VARIABLE, THE VALUE USED FOR *EL* IS
00139 M01S00006.ns2568 +++|* THE LENGTH OF THAT VARIABLE, AND THE *EL*
00140 M01S00007.ns2568 +++|* PARAMETER IS IGNORED; OTHERWISE, THE DEFAULT
00141 M01S00008.ns2568 +++|* FOR *EL* IS 10.
00142 M00S00128.cpurel +++|* "EM" - ERROR MESSAGE RETURN ADDRESS.
00143 M01S00009.ns2568 +++|* THE BUFFER TO WHICH THE *PFM* ERROR MESSAGE
00144 M01S00010.ns2568 +++|* WILL BE RETURNED. THE NUMBER OF CHARACTERS
00145 M01S00011.ns2568 +++|* RETURNED IS DETERMINED BY THE VALUE USED FOR
00146 M01S00012.ns2568 +++|* THE *EL* PARAMETER.
Line S00001 Modification History
M01 (Added by) cpure14
Seq # *Modification Id* Act
----------------------------+
00147 M01S00001.cpure14 +++|* "IP" - SETS THE INTERLOCK PROCESSING BIT IN THE FET.
00148 M00S00129.cpurel +++|* "IUP" - IGNORE UNNEEDED PARAMETERS.
00149 M00S00130.cpurel +++|* "NA" - INHIBITS ROLLOUT IF DIRECT FILE BUSY, AND
00150 M00S00131.cpurel +++|* PREVENTS ABORT ON ERROR CONDITIONS.
00151 M00S00132.cpurel +++|* "NF" - OPTIONAL MEANS OF SPECIFYING NEW FILE NAME
00152 M00S00133.cpurel +++|* ON *CHANGE* REQUEST. (SEE EXAMPLE BELOW.)
00153 M00S00134.cpurel +++|* "NONE" - USED TO NULLIFY SPECIFIC KEYWORDS.
00154 M00S00135.cpurel +++|* "OF" - OPTIONAL MEANS OF SPECIFYING OLD FILE NAME
00155 M00S00136.cpurel +++|* ON *CHANGE* REQUEST. (SEE EXAMPLE BELOW.)
00156 M00S00137.cpurel +++|* "RC" - RETURNS ERROR CODE IN INTEGER FORMAT AND
00157 M00S00138.cpurel +++|* PREVENTS ABORT ON ERROR CONDITIONS.
00158 M00S00139.cpurel +++|* "RRC" - RETURNS ERROR CODE IN REAL FORMAT AND
00159 M00S00140.cpurel +++|* PREVENTS ABORT ON ERROR CONDITIONS.
00160 M00S00141.cpurel +++|* "SR" - SPECIAL *PFM* REQUEST.
00161 M00S00142.cpurel +++|* = "CE" - CLEAR FILE ERROR CODE (*CHANGE*).
00162 M00S00143.cpurel +++|* = "CP" - RESET CHARGE/PROJECT NUMBERS
00163 M00S00144.cpurel +++|* (*CHANGE*).
00164 M00S00145.cpurel +++|* = "MR" - MASTER DEVICE RESIDENCE (*DEFINE*).
00165 M00S00146.cpurel +++|* = "IE" - IGNORE ERROR IDLE STATUS (ALL).
00166 M00S00147.cpurel +++|* VALID ONLY FOR *SSJ=* JOBS.
00167 M00S00148.cpurel +++|* = "FA" - FORCE FAST ATTACH OF FILE (*ATTACH*).
00168 M00S00149.cpurel +++|* VALID ONLY FOR *SSJ=* JOBS.
00169 M00S00150.cpurel +++|* = "NF" - FORCE NON-FAST ATTACH FILE (*ATTACH*).
00170 M00S00151.cpurel +++|* "SS" - SUBSYSTEM MODE OF INDIRECT FILE.
00171 M00S00152.cpurel +++|* "UC" - USER CONTROL WORD (59 BITS).
00172 M00S00153.cpurel +++|* "UP" - SETS THE USER PROCESSING BIT IN THE FET.
00173 M00S00154.cpurel +++|*
00174 M00S00155.cpurel +++|* EXAMPLES.
00175 M00S00156.cpurel +++|*
00176 M00S00157.cpurel +++|* CALL PF("GET",1,"PFILE","UN","USERNO","PW","STRING7")
00177 M00S00158.cpurel +++|* CALL PF ("DEFINE","LFILE","PFILE","CT","PU","M","W");
00178 M00S00159.cpurel +++|*
00179 M00S00160.cpurel +++|* SPECIAL FORMATS ARE USED FOR THE *CHANGE*, *PERMIT*,
00180 M00S00161.cpurel +++|* AND *PURGE* REQUESTS, E.G. -
00181 M00S00162.cpurel +++|*
00182 M00S00163.cpurel +++|* CALL PF ("CHANGE","NEWPFN","OLDPFN","BR","MD")
00183 M00S00164.cpurel +++|* CALL PF ("PERMIT","PFN","UN","USERNAM","M","R")
00184 M00S00165.cpurel +++|* CALL PF ("PURGE","PFN","RC",ERRCODE)
00185 M00S00166.cpurel +++|*
00186 M00S00167.cpurel +++|* NOTES.
00187 M00S00168.cpurel +++|*
00188 M00S00169.cpurel +++|* A KEYWORD VALUE PARAMETER IS REQUIRED TO FOLLOW EVERY
00189 M00S00170.cpurel +++|* KEYWORD, ALTHOUGH THE VALUES FOLLOWING SOME KEYWORDS,
00190 M00S00171.cpurel +++|* SUCH AS *NA* AND *RT*, ARE IGNORED.
00191 M00S00172.cpurel +++|*
00192 M00S00173.cpurel +++|* BEFORE ISSUING A *SAVE*, *REPLACE*, OR *APPEND* REQUEST
00193 M00S00174.cpurel +++|* THE USER MUST ENSURE THAT THE APPROPRIATE *CIO* BUFFER
00194 M00S00175.cpurel +++|* IS FLUSHED.
00195 M00S00176.cpurel +++| SPACE 4,10
00196 M00S00177.cpurel +++|*** ERROR PROCESSING.
00197 M00S00178.cpurel +++|*
00198 M00S00179.cpurel +++|* THE COMBINATION OF *RC*/*RRC* AND *NA* PARAMETERS USED
00199 M00S00180.cpurel +++|* DETERMINES THE TYPE OF ERROR PROCESSING DONE.
00200 M00S00181.cpurel +++|*
00201 M00S00182.cpurel +++|* 1. IF NEITHER *NA* NOR *RC*/*RRC* ARE SPECIFIED AND
00202 M00S00183.cpurel +++|* AN ERROR IS DETECTED BY PF OR *PFM*, THE ERROR
00203 M00S00184.cpurel +++|* MESSAGE IS WRITTEN TO THE USER-S DAYFILE AND THE
00204 M00S00185.cpurel +++|* PROGRAM IS ABORTED.
00205 M00S00186.cpurel +++|*
00206 M00S00187.cpurel +++|* 2. IF THE KEYWORD *RC*/*RRC* IS SPECIFIED AND AN
00207 M00S00188.cpurel +++|* ERROR OCCURS, THE *PFM* ERROR CODE IS PLACED
00208 M00S00189.cpurel +++|* IN THE APPROPRIATE RETURN CODE PARAMETER(S). A
00209 M00S00190.cpurel +++|* ZERO VALUE INDICATES SUCCESSFUL COMPLETION, AND
00210 M00S00191.cpurel +++|* A NEGATIVE VALUE IMPLIES A CALL ARGUMENT ERROR.
00211 M00S00192.cpurel +++|*
00212 M00S00193.cpurel +++|* 3. IF THE KEYWORD *NA* IS SPECIFIED AND THE *PFM*
00213 M00S00194.cpurel +++|* FUNCTION FAILS, CONTROL RETURNS TO THE CALLING
00214 M00S00195.cpurel +++|* PROGRAM, AFTER PLACING THE PF ERROR CODE IN THE
00215 M00S00196.cpurel +++|* *RC*/*RRC* PARAMETER (IF SPECIFIED) OR ISSUING
00216 M00S00197.cpurel +++|* A DAYFILE MESSAGE.
00217 M00S00198.cpurel +++|*
00218 M00S00199.cpurel +++|* 4. IF *NA* IS NOT SPECIFIED, AN *ATTACH* REQUEST FOR
00219 M00S00200.cpurel +++|* A DIRECT ACCESS FILE WHICH IS CURRENTLY BUSY WILL
00220 M00S00201.cpurel +++|* CAUSE THE JOB TO BE ROLLED OUT UNTIL THE FILE
00221 M00S00202.cpurel +++|* BECOMES AVAILABLE.
00222 M00S00203.cpurel +++| SPACE 4,10
00223 M00S00204.cpurel +++|*** DAYFILE MESSAGES.
00224 M00S00205.cpurel +++|*
00225 M00S00206.cpurel +++|* * PF NO.-1 INVALID PARAMETER - UNPAIRED.*
00226 M00S00207.cpurel +++|* A KEYWORD NOT FOLLOWED BY A KEYWORD VALUE WAS
00227 M00S00208.cpurel +++|* ENCOUNTERED.
00228 M00S00209.cpurel +++|*
00229 M00S00210.cpurel +++|* * PF NO.-1 INVALID PARAMETER - XXXXXXX.*
00230 M00S00211.cpurel +++|* AN INVALID KEYWORD OR KEYWORD VALUE WAS ENCOUNTERED.
00231 M00S00212.cpurel +++|*
00232 M00S00213.cpurel +++|* * PF NO.-XX CCCC...CCCC.*
00233 M00S00214.cpurel +++|* ERROR CODE AND MESSAGE RETURNED BY *PFM*.
00234 M00S00215.cpurel +++| SPACE 4,10
00235 M00S00216.cpurel +++| TITLE MACRO DEFINITIONS.
00236 M00S00217.cpurel +++|* COMMON DECKS.
00237 M00S00218.cpurel +++|
Line S00219 Modification History
M01 (Removed by) cpure13
Seq # *Modification Id* Act
----------------------------+
00238 M01S00219.cpure13 ---|*CALL COMCMAC
Line S00001 Modification History
M01 (Added by) cpure13
Seq # *Modification Id* Act
----------------------------+
00239 M01S00001.cpure13 +++|*CALL COMCMAC
00240 M00S00220.cpurel +++|*CALL COMSMSP
Line S00221 Modification History
M01 (Removed by) cpure13
Seq # *Modification Id* Act
----------------------------+
00241 M01S00221.cpure13 ---|*CALL COMSPFM
Line S00002 Modification History
M01 (Added by) cpure13
Seq # *Modification Id* Act
----------------------------+
00242 M01S00002.cpure13 +++|*CALL COMSPFM
00243 M00S00222.cpurel +++| PVALID SPACE 4,10
00244 M00S00223.cpurel +++|** PVALID - GENERATE EQUIVALENCES FOR PARAMETER VALIDATION.
00245 M00S00224.cpurel +++|*
00246 M00S00225.cpurel +++|* SYM PVALID (REQ1,REQ2,...,REQN)
00247 M00S00226.cpurel +++|*
00248 M00S00227.cpurel +++|* ENTRY *SYM* = SYMBOL TO REPRESENT VALID USES OF A
00249 M00S00228.cpurel +++|* PARAMETER.
00250 M00S00229.cpurel +++|* *REQ* = A *PFM* REQUEST FOR WHICH THE PARAMETER
00251 M00S00230.cpurel +++|* IS VALID. THE SYMBOL *CC_REQ* MUST BE
00252 M00S00231.cpurel +++|* DEFINED IN *COMSPFM*.
00253 M00S00232.cpurel +++|*
00254 M00S00233.cpurel +++|* NOTE THE VALUE OF *SYM* IS GENERATED BY SETTING A BIT
00255 M00S00234.cpurel +++|* CORRESPONDING TO EACH REQUEST SPECIFIED.
00256 M00S00235.cpurel +++|
00257 M00S00236.cpurel +++|
00258 M00S00237.cpurel +++| PURGMAC PVALID
00259 M00S00238.cpurel +++|
00260 M00S00239.cpurel +++| MACRO PVALID,SYM,REQ
00261 M00S00240.cpurel +++| MACREF PVALID
00262 M00S00241.cpurel +++| SYM SET 0
00263 M00S00242.cpurel +++| IRP REQ
00264 M00S00243.cpurel +++| REQ DECMIC CC_REQ-1
00265 M00S00244.cpurel +++| SYM SET SYM+1S"REQ"
00266 M00S00245.cpurel +++| PVALID ENDM
00267 M00S00246.cpurel +++| SPACE 4,10
00268 M00S00247.cpurel +++| ECHO 1,SYM=(CLLF,CLNA,CLNO,CLPF,CLPN,CLRC,CLRS,CLEM,CLIU)
00269 M00S00248.cpurel +++| SYM PVALID (SV,GT,PG,PM,RP,AP,DF,AT,CG)
00270 M00S00249.cpurel +++| CLAC PVALID (SV,DF,CG)
00271 M00S00250.cpurel +++| CLBR PVALID (SV,DF,CG)
00272 M00S00251.cpurel +++| CLCT PVALID (SV,DF,CG)
Line S00002 Modification History
M01 (Added by) cpure14
Seq # *Modification Id* Act
----------------------------+
00273 M01S00002.cpure14 +++| CLIP PVALID (SV,GT,PG,PM,RP,AP,DF,AT,CG)
00274 M00S00252.cpurel +++| CLMD PVALID (SV,RP,DF,AT,CG,PM)
00275 M00S00253.cpurel +++| CLNF PVALID (CG)
00276 M00S00254.cpurel +++| CLOF PVALID (CG)
00277 M00S00255.cpurel +++| CLPR PVALID (SV,DF,CG)
00278 M00S00256.cpurel +++| CLPW PVALID (SV,GT,PG,RP,AP,DF,AT,CG)
Line S00257 Modification History
M01 (Removed by) cpure14
Seq # *Modification Id* Act
----------------------------+
00279 M01S00257.cpure14 ---| CLRT PVALID (AT,GT)
Line S00003 Modification History
M01 (Added by) cpure14
Seq # *Modification Id* Act
----------------------------+
00280 M01S00003.cpure14 +++| CLRT PVALID (GT,AP,AT)
00281 M00S00258.cpurel +++| CLSP PVALID (DF)
00282 M00S00259.cpurel +++| CLSR PVALID (SV,GT,PG,PM,RP,AP,DF,AT,CG)
00283 M00S00260.cpurel +++| CLSS PVALID (SV,RP,CG)
00284 M00S00261.cpurel +++| CLUC PVALID (SV,GT,RP,CG,DF,AT)
00285 M00S00262.cpurel +++| CLUN PVALID (GT,PG,RP,AP,AT,PM)
00286 M00S00263.cpurel +++| CLUP PVALID (SV,GT,PG,PM,RP,AP,DF,AT,CG)
00287 M00S00264.cpurel +++| CLXD PVALID (SV,PM,DF,CG)
00288 M00S00265.cpurel +++| CLXT PVALID (SV,PM,DF,CG)
00289 M00S00266.cpurel +++| TREQ TITLE TABLE DEFINITIONS.
00290 M00S00267.cpurel +++| TREQ SPACE 4,10
00291 M00S00268.cpurel +++|** TREQ - TABLE OF PERMANENT FILE REQUEST CODES.
00292 M00S00269.cpurel +++|*
00293 M00S00270.cpurel +++|*T 42/7LCOMMAND,18/CODE
Figure
0 17 18 29 CODE 7LCOMMAND 30 59 7LCOMMAND
00294 M00S00271.cpurel +++|
00295 M00S00272.cpurel +++|
00296 M00S00273.cpurel +++| TREQ BSS 0
00297 M00S00274.cpurel +++| VFD 42/0LSAVE,18/CCSV SAVE
00298 M00S00275.cpurel +++| VFD 42/0LGET,18/CCGT GET
00299 M00S00276.cpurel +++| VFD 42/0LPURGE,18/CCPG PURGE
00300 M00S00277.cpurel +++| VFD 42/0LPERMIT,18/CCPM PERMIT
00301 M00S00278.cpurel +++| VFD 42/0LREPLACE,18/CCRP REPLACE
00302 M00S00279.cpurel +++| VFD 42/0LAPPEND,18/CCAP APPEND
00303 M00S00280.cpurel +++| VFD 42/0LDEFINE,18/CCDF DEFINE
00304 M00S00281.cpurel +++| VFD 42/0LATTACH,18/CCAT ATTACH
00305 M00S00282.cpurel +++| VFD 42/0LCHANGE,18/CCCG CHANGE
00306 M00S00283.cpurel +++| TREQL CON 0
00307 M00S00284.cpurel +++| TOPT SPACE 4,10
00308 M00S00285.cpurel +++|** TOPT - TABLE OF PERMANENT FILE ACCESS OPTIONS.
00309 M00S00286.cpurel +++|*
00310 M00S00287.cpurel +++|*T 12/OPTION,12/VALID,6/WORD,6/LBIT,6/LENGTH,18/TABLE
Figure
0 17 18 23 24 29 TABLE LENGTH LBIT 30 35 36 47 48 59 WORD VALID OPTION
00311 M00S00288.cpurel +++|*
00312 M00S00289.cpurel +++|* OPTION = PF OPTION IN DISPLAY CODE. FOR KEYWORDS LONGER
00313 M00S00290.cpurel +++|* THAN TWO CHARACTERS, ONLY THE FIRST TWO
00314 M00S00291.cpurel +++|* CHARACTERS ARE USED.
00315 M00S00292.cpurel +++|* VALID = FIELD INDICATING VALID USES OF THIS PARAMETER,
00316 M00S00293.cpurel +++|* DEFINED USING THE *PVALID* MACRO.
00317 M00S00294.cpurel +++|* WORD = WORD IN *FET* CONTAINING THE FIELD TO BE SET.
00318 M00S00295.cpurel +++|* LBIT = LOWER BIT OF THE FIELD IN THE *FET*.
00319 M00S00296.cpurel +++|* LENGTH = LENGTH OF THE *FET* FIELD IN BITS.
00320 M00S00297.cpurel +++|* TABLE = ADDRESS OF TABLE, IF ANY, GIVING PERMISSABLE
00321 M00S00298.cpurel +++|* VALUES FOR THIS OPTION.
00322 M00S00299.cpurel +++|* = 0, INDICATES THAT THE VALUE SPECIFIED IS NOT
00323 M00S00300.cpurel +++|* VALIDATED BY PF.
00324 M00S00301.cpurel +++|* = 1, INDICATES THAT THE VALUE IS TO BE CONVERTED
00325 M00S00302.cpurel +++|* FROM DISPLAY CODE TO BINARY.
00326 M00S00303.cpurel +++|* = 2, INDICATES THAT THE VALUE SPECIFIED FOR THIS
00327 M00S00304.cpurel +++|* OPTION IS IGNORED.
00328 M00S00305.cpurel +++|* = 3, INDICATES THAT ENTIRE PARAMETER DESCRIPTION FOR
00329 M00S00306.cpurel +++|* PARAMETER IS SAVED, TO BE PROCESSED INDIVIDUALLY.
00330 M00S00307.cpurel +++|* = 4, INDICATES THAT THE VALUE SPECIFIED FOR THIS
00331 M00S00308.cpurel +++|* OPTION IS A RETURN ADDRESS.
00332 M00S00309.cpurel +++|* = NEGATIVE VALUE, INDICATES THAT THIS IS THE
00333 M00S00310.cpurel +++|* COMPLEMENT OF AN ADDRESS FOR A SPECIAL
00334 M00S00311.cpurel +++|* VALIDATION ROUTINE.
00335 M00S00312.cpurel +++|
00336 M00S00313.cpurel +++|
00337 M00S00314.cpurel +++| TOPT BSS 0
00338 M00S00315.cpurel +++| VFD 12/0LAC,12/CLAC,6/CFAP,6/46,6/02,18/TBAC
00339 M00S00316.cpurel +++| VFD 12/0LBR,12/CLBR,6/CFBR,6/54,6/03,18/TBRQ
00340 M00S00317.cpurel +++| VFD 12/0LCT,12/CLCT,6/CFCT,6/06,6/06,18/TCAT
Line S00013 Modification History
M01 (Added by) ns2568
Seq # *Modification Id* Act
----------------------------+
00341 M01S00013.ns2568 +++| VFD 12/0LEL,12/CLEM,6/CFEL,6/00,6/18,18/1
00342 M00S00318.cpurel +++| VFD 12/0LEM,12/CLEM,6/CFEM,6/00,6/18,18/3
Line S00004 Modification History
M01 (Added by) cpure14
Seq # *Modification Id* Act
----------------------------+
00343 M01S00004.cpure14 +++| VFD 12/0LIP,12/CLIP,6/0001,6/42,6/01,18/2
00344 M00S00319.cpurel +++| VFD 12/0LIU,12/CLIU,6/CFIU,6/00,6/60,18/4
00345 M00S00320.cpurel +++| VFD 12/0LLF,12/CLLF,6/CFSN,6/18,6/42,18/0
00346 M00S00321.cpurel +++| VFD 12/0LM,012/CLMD,6/CFMD,6/00,6/06,18/TMOD
00347 M00S00322.cpurel +++| VFD 12/0LNA,12/CLNA,6/CFNA,6/00,6/60,18/2
00348 M00S00323.cpurel +++| VFD 12/0LNF,12/CLNF,6/CFNF,6/18,6/42,18/0
00349 M00S00324.cpurel +++| VFD 12/0LNO,12/CLNO,6/CFNO,6/00,6/60,18/2
00350 M00S00325.cpurel +++| VFD 12/0LOF,12/CLOF,6/CFSN,6/18,6/42,18/0
00351 M00S00326.cpurel +++| VFD 12/0LPF,12/CLPF,6/CFPN,6/18,6/42,18/0
00352 M00S00327.cpurel +++| VFD 12/0LPN,12/CLPN,6/CFPK,6/18,6/42,18/0
00353 M00S00328.cpurel +++| VFD 12/0LPR,12/CLPR,6/CFPR,6/57,6/03,18/TPRS
00354 M00S00329.cpurel +++| VFD 12/0LPW,12/CLPW,6/CFPW,6/18,6/42,18/0
Line S00330 Modification History
M01 (Removed by) cpure13
Seq # *Modification Id* Act
----------------------------+
00355 M01S00330.cpure13 ---| VFD 12/0LR,012/CLRS,6/0001,6/48,6/12,18/TRES
Line S00003 Modification History
M01 (Added by) cpure13
Seq # *Modification Id* Act
----------------------------+
00356 M01S00003.cpure13 +++| VFD 12/0LR,012/CLRS,6/0001,6/48,6/12,18/-PRD
00357 M00S00331.cpurel +++| VFD 12/0LRC,12/CLRC,6/CFRC,6/00,6/60,18/4
00358 M00S00332.cpurel +++| VFD 12/0LRR,12/CLRC,6/CFRR,6/00,6/60,18/4
00359 M00S00333.cpurel +++| VFD 12/0LRT,12/CLRT,6/0001,6/43,6/01,18/2
Line S00334 Modification History
M01 (Removed by) cpure11
Seq # *Modification Id* Act
----------------------------+
00360 M01S00334.cpure11 ---| VFD 12/0LS,012/CLSP,6/CFOU,6/00,6/18,18/1
Line S00001 Modification History
M01 (Added by) cpure11
Seq # *Modification Id* Act
----------------------------+
00361 M01S00001.cpure11 +++| VFD 12/0LS,012/CLSP,6/CFOU,6/00,6/24,18/1
00362 M00S00335.cpurel +++| VFD 12/0LSR,12/CLSR,6/CFCT,6/12,6/06,18/TSRQ
00363 M00S00336.cpurel +++| VFD 12/0LSS,12/CLSS,6/CFSS,6/48,6/06,18/TSUB
00364 M00S00337.cpurel +++| VFD 12/0LUC,12/CLUC,6/CFCW,6/00,6/60,18/4
00365 M00S00338.cpurel +++| VFD 12/0LUN,12/CLUN,6/CFOU,6/18,6/42,18/0
Line S00339 Modification History
M01 (Removed by) cpure13
Seq # *Modification Id* Act
----------------------------+
00366 M01S00339.cpure13 ---| VFD 12/0LUP,12/CLUP,6/1,6/45,6/1,18/2
Line S00004 Modification History
M01 (Added by) cpure13
Seq # *Modification Id* Act
----------------------------+
00367 M01S00004.cpure13 +++| VFD 12/0LUP,12/CLUP,6/0001,6/45,6/01,18/2
00368 M00S00340.cpurel +++| VFD 12/0LXD,12/CLXD,6/CFNF,6/0,6/18,18/-PXD
00369 M00S00341.cpurel +++| VFD 12/0LXT,12/CLXT,6/CFNF,6/0,6/18,18/-PXT
00370 M00S00342.cpurel +++| VFD 60/0
00371 M00S00343.cpurel +++| TBAC SPACE 4,10
00372 M00S00344.cpurel +++|** TBAC - TABLE OF ALTERNATE CATLIST PERMISSIONS.
00373 M00S00345.cpurel +++|*
00374 M00S00346.cpurel +++|*T 42/PERMISSION,18/CODE
Figure
0 17 18 29 CODE PERMISSION 30 59 PERMISSION
00375 M00S00347.cpurel +++|
00376 M00S00348.cpurel +++|
00377 M00S00349.cpurel +++| TBAC BSS 0
00378 M00S00350.cpurel +++| VFD 42/0LN,18/ACNO ALTERNATE CATLIST NOT PERMITTED
00379 M00S00351.cpurel +++| VFD 42/0LY,18/ACYS ALTERNATE CATLIST PERMITTED
00380 M00S00352.cpurel +++| VFD 60/0
00381 M00S00353.cpurel +++| TBRQ SPACE 4,10
00382 M00S00354.cpurel +++|** TBRQ - TABLE OF BACKUP REQUIREMENT TYPES.
00383 M00S00355.cpurel +++|*
00384 M00S00356.cpurel +++|*T 42/REQUIREMENT,18/CODE
Figure
0 17 18 29 CODE REQUIREMENT 30 59 REQUIREMENT
00385 M00S00357.cpurel +++|
00386 M00S00358.cpurel +++|
00387 M00S00359.cpurel +++| TBRQ BSS 0
00388 M00S00360.cpurel +++| VFD 42/0LN,018/BRNO NO BACKUP REQUIRED
00389 M00S00361.cpurel +++| VFD 42/0LY,018/BRAL BACKUP ALWAYS REQUIRED
00390 M00S00362.cpurel +++| VFD 42/0LMD,18/BRMD MEDIA DEPENDENT
00391 M00S00363.cpurel +++| VFD 60/0
00392 M00S00364.cpurel +++| TCAT SPACE 4,10
00393 M00S00365.cpurel +++|** TCAT - TABLE OF PERMANENT FILE CATEGORY TYPES.
00394 M00S00366.cpurel +++|*
00395 M00S00367.cpurel +++|*T 42/CATEGORY,18/CODE
Figure
0 17 18 29 CODE CATEGORY 30 59 CATEGORY
00396 M00S00368.cpurel +++|
00397 M00S00369.cpurel +++|
00398 M00S00370.cpurel +++| TCAT BSS 0
00399 M00S00371.cpurel +++| VFD 42/0LPRIVATE,18/FCPR+40B PRIVATE
00400 M00S00372.cpurel +++| VFD 42/0LSPRIV,0018/FCSP+40B SEMI-PRIVATE
00401 M00S00373.cpurel +++| VFD 42/0LPUBLIC,018/FCPB+40B PUBLIC
00402 M00S00374.cpurel +++| VFD 42/0LP,00000018/FCPR+40B PRIVATE
00403 M00S00375.cpurel +++| VFD 42/0LS,00000018/FCSP+40B SEMI-PRIVATE
00404 M00S00376.cpurel +++| VFD 42/0LPU,0000018/FCPB+40B PUBLIC
00405 M00S00377.cpurel +++| VFD 60/0
00406 M00S00378.cpurel +++| TMOD SPACE 4,10
00407 M00S00379.cpurel +++|** TMOD - TABLE OF PERMANENT FILE PERMISSION TYPES.
00408 M00S00380.cpurel +++|*
00409 M00S00381.cpurel +++|*T 42/ACCESS,18/CODE
Figure
0 17 18 29 CODE ACCESS 30 59 ACCESS
00410 M00S00382.cpurel +++|
00411 M00S00383.cpurel +++|
00412 M00S00384.cpurel +++| TMOD BSS 0
00413 M00S00385.cpurel +++| VFD 42/0LWRITE,0018/PTWR+40B WRITE
00414 M00S00386.cpurel +++| VFD 42/0LREAD,00018/PTRD+40B READ
00415 M00S00387.cpurel +++| VFD 42/0LAPPEND,018/PTAP+40B APPEND
00416 M00S00388.cpurel +++| VFD 42/0LEXECUTE,18/PTEX+40B EXECUTE
00417 M00S00389.cpurel +++| VFD 42/0LNULL,00018/PTNU+40B NULL
00418 M00S00390.cpurel +++| VFD 42/0LMODIFY,018/PTMD+40B MODIFY
00419 M00S00391.cpurel +++| VFD 42/0LREADMD,018/PTRM+40B READ ALLOW MODIFY
00420 M00S00392.cpurel +++| VFD 42/0LREADAP,018/PTRA+40B READ ALLOW APPEND
00421 M00S00393.cpurel +++| VFD 42/0LUPDATE,018/PTUP+40B UPDATE
00422 M00S00394.cpurel +++| VFD 42/0LREADUP,018/PTRU+40B READ ALLOW UPDATE
00423 M00S00395.cpurel +++| VFD 42/0LW,00000018/PTWR+40B WRITE
00424 M00S00396.cpurel +++| VFD 42/0LR,00000018/PTRD+40B READ
00425 M00S00397.cpurel +++| VFD 42/0LA,00000018/PTAP+40B APPEND
00426 M00S00398.cpurel +++| VFD 42/0LE,00000018/PTEX+40B EXECUTE
00427 M00S00399.cpurel +++| VFD 42/0LN,00000018/PTNU+40B NULL
00428 M00S00400.cpurel +++| VFD 42/0LM,00000018/PTMD+40B MODIFY
00429 M00S00401.cpurel +++| VFD 42/0LRM,0000018/PTRM+40B READ ALLOW MODIFY
00430 M00S00402.cpurel +++| VFD 42/0LRA,0000018/PTRA+40B READ ALLOW APPEND
00431 M00S00403.cpurel +++| VFD 42/0LU,00000018/PTUP+40B UPDATE
00432 M00S00404.cpurel +++| VFD 42/0LRU,0000018/PTRU+40B READ ALLOW UPDATE
00433 M00S00405.cpurel +++| VFD 60/0
00434 M00S00406.cpurel +++| TPRS SPACE 4,10
00435 M00S00407.cpurel +++|** TPRS - TABLE OF PREFERRED RESIDENCE TYPES.
00436 M00S00408.cpurel +++|*
00437 M00S00409.cpurel +++|*T 42/PREFERENCE,18/CODE
Figure
0 17 18 29 CODE PREFERENCE 30 59 PREFERENCE
00438 M00S00410.cpurel +++|
00439 M00S00411.cpurel +++|
00440 M00S00412.cpurel +++| TPRS BSS 0
00441 M00S00413.cpurel +++| VFD 42/0LL,18/RSLK LOCKED TO DISK RESIDENCE
00442 M00S00414.cpurel +++| VFD 42/0LD,18/RSDS DISK RESIDENCE PREFERRED
Line S00415 Modification History
M01 (Removed by) 253l688
Seq # *Modification Id* Act
----------------------------+
00443 M01S00415.253l688 ---| VFD 42/0LM,18/RSMS ALTERNATE STORAGE RESIDENCE PREFERRED
00444 M01S00416.253l688 ---| VFD 42/0LN,18/RSNP NO PREFERENCE
Line S00001 Modification History
M01 (Added by) 253l688
Seq # *Modification Id* Act
----------------------------+
00445 M01S00001.253l688 +++| VFD 42/0LM,18/RSMS CARTRIDGE ALTERNATE STORAGE PREFERRED
00446 M01S00002.253l688 +++| VFD 42/0LN,18/RSNP NO PREFERENCE
00447 M01S00003.253l688 +++| VFD 42/0LT,18/RSTP TAPE ALTERNATE STORAGE PREFERRED
00448 M00S00417.cpurel +++| VFD 60/0
00449 M00S00418.cpurel +++| TRES SPACE 4,10
00450 M00S00419.cpurel +++|** TRES - TABLE OF PERMANENCE FILE RESIDENCE TYPES.
00451 M00S00420.cpurel +++|*
00452 M00S00421.cpurel +++|*T 42/DEVICE,18/CODE
Figure
0 17 18 29 CODE DEVICE 30 59 DEVICE
00453 M00S00422.cpurel +++|
00454 M00S00423.cpurel +++| TBLM SPACE 4,10
00455 M00S00424.cpurel +++|** TBLM - DEFINE MACRO TO PRODUCE *TRES* TABLE.
00456 M00S00425.cpurel +++|
00457 M00S00426.cpurel +++| PURGMAC TBLM
00458 M00S00427.cpurel +++| TBLM MACRO EQ
00459 M00S00428.cpurel +++| VFD 42/0L_EQ,18/2R_EQ
00460 M00S00429.cpurel +++| TBLM ENDM
00461 M00S00430.cpurel +++|
00462 M00S00431.cpurel +++|
00463 M00S00432.cpurel +++| LIST G
00464 M00S00433.cpurel +++| TRES TBL "MSEQ"
00465 M00S00434.cpurel +++| VFD 60/0
00466 M00S00435.cpurel +++| LIST -G
00467 M00S00436.cpurel +++| TSRQ SPACE 4,10
00468 M00S00437.cpurel +++|** TSRQ - TABLE OF SPECIAL REQUEST TYPES.
00469 M00S00438.cpurel +++|*
00470 M00S00439.cpurel +++|*T 42/REQUEST,18/CODE
Figure
0 17 18 29 CODE REQUEST 30 59 REQUEST
00471 M00S00440.cpurel +++|
00472 M00S00441.cpurel +++|
00473 M00S00442.cpurel +++| TSRQ BSS 0
00474 M00S00443.cpurel +++| VFD 42/0LCE,18/SRCE CLEAR ERROR STATUS
00475 M00S00444.cpurel +++| VFD 42/0LMR,18/SRMR FORCE MASTER DEVICE RESIDENCY
00476 M00S00445.cpurel +++| VFD 42/0LIE,18/SRIE IGNORE ERROR IDLE STATUS (*SSJ=*)
00477 M00S00446.cpurel +++| VFD 42/0LCP,18/SRCP RESET CHARGE/PROJECT NUMBERS
00478 M00S00447.cpurel +++| VFD 42/0LFA,18/SRFA FORCE FAST ATTACH OF FILE (*SSJ=*)
00479 M00S00448.cpurel +++| VFD 42/0LNF,18/SRNF FORCE NON-FAST ATTACH OF FILE
00480 M00S00449.cpurel +++| VFD 60/0
00481 M00S00450.cpurel +++| TSUB SPACE 4,10
00482 M00S00451.cpurel +++|** TSUB - TABLE OF PERMANENT FILE SUBSYSTEM TYPES.
00483 M00S00452.cpurel +++|*
00484 M00S00453.cpurel +++|*T 42/SUBSYSTEM,18/CODE
Figure
0 17 18 29 CODE SUBSYSTEM 30 59 SUBSYSTEM
00485 M00S00454.cpurel +++|
00486 M00S00455.cpurel +++|
00487 M00S00456.cpurel +++| TSUB BSS 0
00488 M00S00457.cpurel +++| VFD 42/0LNULL,00018/40B+0 NULL
00489 M00S00458.cpurel +++| VFD 42/0LBASIC,0018/40B+1 BASIC
00490 M00S00459.cpurel +++| VFD 42/0LFORTRAN,18/40B+2 FTN5
00491 M00S00460.cpurel +++| VFD 42/0LFTNTS,0018/40B+3 FTNTS
00492 M00S00461.cpurel +++| VFD 42/0LEXECUTE,18/40B+4 EXECUTE
00493 M00S00462.cpurel +++| VFD 42/0LBATCH,0018/40B+5 BATCH
00494 M00S00463.cpurel +++| VFD 60/0
00495 M00S00464.cpurel +++| SPACE 4,10
00496 M00S00465.cpurel +++|* CONSTANTS AND DATA STORAGE.
00497 M00S00466.cpurel +++|
00498 M00S00467.cpurel +++|
00499 M00S00468.cpurel +++| FET FILEB FET,CFLM,(FET=CFLM),(EPR)
00500 M00S00469.cpurel +++| XRCW BSS 1 ADDRESS TO RETURN USER CONTROL WORD
00501 M00S00470.cpurel +++| XRRC BSS 1 ADDRESS TO RETURN INTEGER ERROR CODE
00502 M00S00471.cpurel +++| XRRR BSS 1 ADDRESS TO RETURN REAL ERROR CODE
00503 M00S00472.cpurel +++| XRNA BSS 1 *NA* FLAG
00504 M00S00473.cpurel +++| XRIU BSS 1 IGNORE PARAMETERS RETURN ADDRESS
Line S00014 Modification History
M01 (Added by) ns2568
Seq # *Modification Id* Act
----------------------------+
00505 M01S00014.ns2568 +++| XREL BSS 1 ERROR MESSAGE LENGTH
00506 M00S00474.cpurel +++| XREM BSS 1 *EM* PARAMETER VALUE DESCRIPTOR
00507 M00S00475.cpurel +++| PFEC BSS 1 ADDRESS OF *PFM* ERROR CODE MESSAGES
00508 M00S00476.cpurel +++| PFMA BSS 4 ADDRESS TO RETURN *PFM* ERROR MESSAGES
00509 M00S00477.cpurel +++| NONE BSS 1 UNUSED *NONE* PARAMETER VALUE
00510 M00S00478.cpurel +++| ICTR BSS 1 IGNORED PARAMETERS COUNTER
00511 M00S00479.cpurel +++| EADR BSS 1 ERROR ADDRESS FOR IGNORED PARAMETER
00512 M00S00480.cpurel +++| CFCW EQU XRCW-FET
00513 M00S00481.cpurel +++| CFRC EQU XRRC-FET
00514 M00S00482.cpurel +++| CFRR EQU XRRR-FET
00515 M00S00483.cpurel +++| CFNA EQU XRNA-FET
00516 M00S00484.cpurel +++| CFIU EQU XRIU-FET
00517 M01S00015.ns2568 +++| CFEL EQU XREL-FET
00518 M00S00485.cpurel +++| CFEM EQU XREM-FET
00519 M00S00486.cpurel +++| CFNO EQU NONE-FET
00520 M00S00487.cpurel +++| ERRNZ PTWR CODE ASSUMES *PTWR* EQUALS ZERO
00521 M00S00488.cpurel +++| ERRNZ FCPR CODE ASSUMES *FCPR* EQUALS ZERO
00522 M00S00489.cpurel +++| FET1 BSS 0 DEFAULT VALUES FOR FET+1
00523 M00S00490.cpurel +++| VFD 15/0,1/1 ERROR PROCESSING BIT
00524 M00S00491.cpurel +++| VFD 20/0,6/CFLM-5 FET LENGTH
00525 M00S00492.cpurel +++| VFD 18/FET FIRST
00526 M00S00493.cpurel +++|
00527 M00S00494.cpurel +++| APLIST VFD 42/0,18/*+1S17 ADDRESS OF THE FORMAL PARAMETER LIST
00528 M00S00495.cpurel +++| TEMPA0 VFD 42/0,18/*+1S17 CONTENTS OF A0 FROM CALLING ROUTINE
00529 M00S00496.cpurel +++| ACCESS CON 0 CURRENT PERMANENT FILE REQUEST CODE
00530 M00S00497.cpurel +++| TEVENT CON 0 ROLLOUT ON TIME/EVENT DEPENDENCIES
00531 M00S00498.cpurel +++| OPTION CON 0 CURRENT OPTIONS PF *FET* CONFIGURATION
00532 M00S00499.cpurel +++| BLANKS DATA 10R
00533 M00S00500.cpurel +++| XDATE BSS 1 CURRENT DATE
00534 M00S00501.cpurel +++| XFLAG CON 0 *XD* AND *XT* PARAMETER FLAG
00535 M00S00502.cpurel +++| PF TITLE MAIN ROUTINE.
00536 M00S00503.cpurel +++| PF SPACE 4,10
00537 M00S00504.cpurel +++|** PF - MAIN ROUTINE FOR *NOS* PERMANENT FILE ACCESS.
00538 M00S00505.cpurel +++|*
00539 M00S00506.cpurel +++|* ENTRY (A1) = FWA OF FORMAL PARAMETER LIST.
00540 M00S00507.cpurel +++|*
00541 M00S00508.cpurel +++|* USES ALL (A0 PRESERVED).
00542 M00S00509.cpurel +++|*
00543 M00S00510.cpurel +++|* CALLS COD= CONVERT BINARY TO OCTAL DISPLAY.
00544 M00S00511.cpurel +++|* DXB= CONVERT DISPLAY CODE TO BINARY.
00545 M00S00512.cpurel +++|* GETFIT. GET PROGRAM *FIT* ADDRESS.
00546 M00S00513.cpurel +++|* LCP LOAD CHARACTER PARAMETER.
00547 M00S00514.cpurel +++|* ZFN ZERO FILE NAME.
00548 M00S00515.cpurel +++|*
00549 M00S00516.cpurel +++|* MACROS ABORT, MESSAGE, ROLLOUT, SYSTEM.
00550 M00S00517.cpurel +++|
00551 M00S00518.cpurel +++|
00552 M00S00519.cpurel +++|
00553 M00S00520.cpurel +++| TRACE VFD 42/0LPF,18/PF
00554 M00S00521.cpurel +++| PF EQ *+1S17 ENTRY/EXIT
00555 M00S00522.cpurel +++|
00556 M00S00523.cpurel +++|** PRE - PRESET INITIAL CONDITIONS AND STORAGE AREAS.
00557 M00S00524.cpurel +++|
00558 M00S00525.cpurel +++| PRE SB1 1 INITIALIZE (B1) AS ONE
00559 M00S00526.cpurel +++| SX6 A0
00560 M00S00527.cpurel +++| SX7 A1
00561 M00S00528.cpurel +++| SA6 TEMPA0 PRESERVE (A0) FOR EXIT
00562 M00S00529.cpurel +++| SA7 APLIST
00563 M00S00530.cpurel +++| SA0 A1 SET FWA APLIST POINTER
00564 M00S00531.cpurel +++| BX6 X6-X6
00565 M00S00532.cpurel +++| SA6 XFLAG INITIALIZE *XD*/*XT* FLAG
00566 M00S00533.cpurel +++| SA6 ICTR INITIALIZE UNUSED PARAMETER COUNTER
00567 M00S00534.cpurel +++| SA6 XRIU INITIALIZE *IUP* FLAG
00568 M00S00535.cpurel +++| SA6 XRRC INITIALIZE *RC* PARAMETER
00569 M00S00536.cpurel +++| SA6 XRRR INITIALIZE *RRC* PARAMETER
00570 M01S00016.ns2568 +++| SA6 XREL INITIALIZE *EL* PARAMETER
00571 M00S00537.cpurel +++| SA6 FET+CFSN
00572 M00S00538.cpurel +++| SB2 FET+2
00573 M00S00539.cpurel +++| SB3 NONE
00574 M00S00540.cpurel +++| PRE1 SA6 B2 CLEAR *FET*/MESSAGE AREA
00575 M00S00541.cpurel +++| SB2 B2+B1
00576 M00S00542.cpurel +++| NE B2,B3,PRE1 IF NOT COMPLETLY CLEAR
00577 M00S00543.cpurel +++| SA1 BLANKS
00578 M00S00544.cpurel +++| BX6 X1
00579 M00S00545.cpurel +++| SA6 PFMA BLANK FILL ERROR MESSAGE AREA
00580 M00S00546.cpurel +++| SA6 A6+B1
00581 M00S00547.cpurel +++| SA6 A6+B1
00582 M00S00548.cpurel +++| SA6 A6+B1
00583 M00S00549.cpurel +++| SX6 PFMA
00584 M00S00550.cpurel +++| SA6 FET+CFPW SET ADDRESS OF MESSAGE
00585 M00S00551.cpurel +++| SA1 FET1 RESET SECOND WORD OF FET
00586 M00S00552.cpurel +++| BX6 X1
00587 M00S00553.cpurel +++| SA6 FET+1
00588 M00S00554.cpurel +++|
00589 M00S00555.cpurel +++|** REQ - PROCESS PERMANENT FILE REQUEST.
00590 M00S00556.cpurel +++|
00591 M00S00557.cpurel +++| REQ SA1 A0
00592 M00S00558.cpurel +++| RJ LCP CHECK *PFM* REQUEST TYPE
00593 M00S00559.cpurel +++| RJ ZFN ZERO FILL ALPHANUMERIC
00594 M00S00560.cpurel +++| MX0 42
00595 M00S00561.cpurel +++| BX1 X6
00596 M00S00562.cpurel +++| SA2 TREQ
00597 M00S00563.cpurel +++| REQ1 ZR X2,PCE IF NOT A VALID REQUEST
00598 M00S00564.cpurel +++| BX3 X2-X1
00599 M00S00565.cpurel +++| BX3 X0*X3
00600 M00S00566.cpurel +++| BX6 -X0*X2
00601 M00S00567.cpurel +++| SA2 A2+B1
00602 M00S00568.cpurel +++| NZ X3,REQ1 IF NOT THIS TABLE ENTRY
00603 M00S00569.cpurel +++| SA6 ACCESS
00604 M00S00570.cpurel +++| SX1 X6-CCAT
00605 M00S00571.cpurel +++| ZR X1,REQ2 IF *ATTACH* REQUEST
00606 M00S00572.cpurel +++| SX1 X6-CCDF
00607 M00S00573.cpurel +++| ZR X1,REQ2 IF *DEFINE* REQUEST
00608 M00S00574.cpurel +++| SX1 X6-CCSV
00609 M00S00575.cpurel +++| ZR X1,REQ2 IF *SAVE* REQUEST
00610 M00S00576.cpurel +++| SX1 X6-CCPM
00611 M00S00577.cpurel +++| ZR X1,REQ2 IF *PERMIT* REQUEST
00612 M00S00578.cpurel +++| SX1 X6-CCRP
00613 M00S00579.cpurel +++| NZ X1,REQ3 IF NOT *REPLACE* REQUEST
00614 M00S00580.cpurel +++| REQ2 SX7 PTRD USE DEFAULT OF READ MODE
00615 M00S00581.cpurel +++| SA7 FET+CFMD
00616 M00S00582.cpurel +++| REQ3 SX1 X6-CCPG
00617 M00S00583.cpurel +++| ZR X1,PFN IF *PURGE* REQUEST
00618 M00S00584.cpurel +++| SX1 X6-CCPM
00619 M00S00585.cpurel +++| ZR X1,PFN IF *PERMIT* REQUEST
00620 M00S00586.cpurel +++| SX1 X6-CCCG
00621 M00S00587.cpurel +++| NZ X1,LFN IF NOT *CHANGE* REQUEST
00622 M00S00588.cpurel +++| MX6 42 DO NOT CHANGE PASSWORD UNLESS SPECIFIED
00623 M00S00589.cpurel +++| SA1 FET+CFPW
00624 M00S00590.cpurel +++| BX6 X6+X1
00625 M00S00591.cpurel +++| SA6 A1
00626 M00S00592.cpurel +++| SA0 A0+B1
00627 M00S00593.cpurel +++| SA1 A0
00628 M00S00594.cpurel +++| ZR X1,PCE IF NO NEW NAME DECLARED
00629 M00S00595.cpurel +++| RJ LCP
00630 M00S00596.cpurel +++| RJ ZFN ZERO FILL NEW FILE NAME
00631 M00S00597.cpurel +++| SA6 FET+CFNF
00632 M00S00598.cpurel +++| EQ PFN PROCESS PERMANENT FILE NAME PARAMETER
00633 M00S00599.cpurel +++|
00634 M00S00600.cpurel +++|** LFN - PROCESS LOCAL FILE NAME/UNIT DESIGNATOR.
00635 M00S00601.cpurel +++|
00636 M00S00602.cpurel +++| LFN SA0 A0+B1 GET LOCAL FILE PARAMETER
00637 M00S00603.cpurel +++| SA1 A0
00638 M00S00604.cpurel +++| ZR X1,PCE IF LFN WAS NOT DECLARED
00639 M00S00605.cpurel +++| RJ LCP
00640 M00S00606.cpurel +++| ZR X1,PFN IF LFN NOT PROGRAM FILE
00641 M00S00607.cpurel +++| MX0 42
00642 M00S00608.cpurel +++| BX2 X0*X1
00643 M00S00609.cpurel +++| NZ X2,LFN1 IF NAME DESIGNATED FILE
00644 M00S00610.cpurel +++| SA1 A0
00645 M00S00611.cpurel +++| MX0 1
00646 M00S00612.cpurel +++| BX1 X0+X1
00647 M00S00613.cpurel +++|+ RJ =YGETFIT. GET PROGRAM *FIT* ADDRESS
00648 M00S00614.cpurel +++|- VFD 12/0,18/TRACE
00649 M00S00615.cpurel +++| SA1 X1
00650 M00S00616.cpurel +++| MX0 42
00651 M00S00617.cpurel +++| BX1 X0*X1
00652 M00S00618.cpurel +++| LFN1 RJ ZFN DELETE BLANKS FROM NAME
00653 M00S00619.cpurel +++| SX1 B1
00654 M00S00620.cpurel +++| BX7 X6+X1
00655 M00S00621.cpurel +++| SA7 FET SET *FET* STATUS NOT BUSY
00656 M00S00622.cpurel +++|
00657 M00S00623.cpurel +++|** PFN - PROCESS PERMANENT FILE NAME PARAMETER.
00658 M00S00624.cpurel +++|
00659 M00S00625.cpurel +++| PFN SA0 A0+B1 GET PERMANENT FILE NAME
00660 M00S00626.cpurel +++| SA1 A0
00661 M00S00627.cpurel +++| ZR X1,PRO IF NO PFN SPECIFICATION
00662 M00S00628.cpurel +++| RJ LCP
00663 M00S00629.cpurel +++| RJ ZFN ZERO FILL ALPHANUMERIC
00664 M00S00630.cpurel +++| SA1 FET+CFPN
00665 M00S00631.cpurel +++| BX7 X6+X1
00666 M00S00632.cpurel +++| SA7 A1
00667 M00S00633.cpurel +++|
00668 M00S00634.cpurel +++|** OPT - PROCESS OPTIONAL PARAMETERS.
00669 M00S00635.cpurel +++|
00670 M00S00636.cpurel +++| OPT SA0 A0+B1
00671 M00S00637.cpurel +++| SA1 A0
00672 M00S00638.cpurel +++| ZR X1,PRO IF END OF USER OPTIONS
00673 M00S00639.cpurel +++| RJ LCP
00674 M00S00640.cpurel +++| ZR X1,PRO IF END OF USER OPTIONS
00675 M00S00641.cpurel +++| RJ ZFN
00676 M00S00642.cpurel +++| MX0 12
00677 M00S00643.cpurel +++| SA2 TOPT-1
00678 M00S00644.cpurel +++| OPT1 SA2 A2+B1
00679 M00S00645.cpurel +++| ZR X2,PCE IF NOT A VALID OPTION
00680 M00S00646.cpurel +++| BX3 X6-X2
00681 M00S00647.cpurel +++| BX3 X0*X3
00682 M00S00648.cpurel +++| NZ X3,OPT1 IF NO TABLE COMPARISION
00683 M00S00649.cpurel +++| SB2 X2
00684 M00S00650.cpurel +++| BX6 X2
00685 M00S00651.cpurel +++| SA6 OPTION
00686 M00S00652.cpurel +++| SA3 ACCESS
00687 M00S00653.cpurel +++| SB3 X3-24D
00688 M00S00654.cpurel +++| LX3 X2,-B3
00689 M00S00655.cpurel +++| PL X3,CIP IF NOT VALID KEYWORD
00690 M00S00656.cpurel +++| SA0 A0+B1
00691 M00S00657.cpurel +++| SA1 A0
00692 M00S00658.cpurel +++| ZR X1,PCE IF NOT PROPERLY PAIRED
00693 M00S00659.cpurel +++| SB4 2
00694 M00S00660.cpurel +++| NE B2,B4,OPT2 IF KEYWORD DATA NOT IGNORED
00695 M00S00661.cpurel +++| SX6 B1
00696 M00S00662.cpurel +++| EQ OPT4 IGNORE KEYWORD DATA
00697 M00S00663.cpurel +++|
00698 M00S00664.cpurel +++| OPT2 BX6 X1
00699 M00S00665.cpurel +++| SB4 B4+B4
00700 M00S00666.cpurel +++| EQ B2,B4,OPT4 IF RETURN CODE ADDRESS
00701 M00S00667.cpurel +++| SB4 B4-B1
00702 M00S00668.cpurel +++| EQ B2,B4,OPT7 IF OPTION IS TYPE 3
00703 M00S00669.cpurel +++| RJ LCP
00704 M00S00670.cpurel +++| RJ ZFN ZERO FILL ALPHANUMERIC
00705 M00S00671.cpurel +++| NG B2,OPT2.1 IF SPECIAL PROCESSOR REQUIRED
00706 M00S00672.cpurel +++| ZR B2,OPT4 IF KEYWORD DATA OPTION
00707 M00S00673.cpurel +++| NE B1,B2,OPT3 IF TABLE SEARCH OPTION
00708 M00S00674.cpurel +++| SB7 B1
00709 M00S00675.cpurel +++| BX5 X6
00710 M00S00676.cpurel +++| RJ =XDXB= DISPLAY CODE TO BINARY
00711 M00S00677.cpurel +++| EQ OPT4 SET FIELD IN *FET*
00712 M00S00678.cpurel +++|
00713 M00S00679.cpurel +++| OPT2.1 SB2 -B2
00714 M00S00680.cpurel +++| JP B2 JUMP TO SPECIAL COMMAND PROCESSOR
00715 M00S00681.cpurel +++|
00716 M00S00682.cpurel +++| OPT3 SA1 B2
00717 M00S00683.cpurel +++| MX0 42
00718 M00S00684.cpurel +++| ZR X1,PCE IF NOT PROPERLY PAIRED
00719 M00S00685.cpurel +++| BX3 X6-X1
00720 M00S00686.cpurel +++| BX3 X0*X3
00721 M00S00687.cpurel +++| SB2 B2+B1
00722 M00S00688.cpurel +++| NZ X3,OPT3 IF NOT THIS TABLE ITEM
00723 M00S00689.cpurel +++| SX6 X1
00724 M00S00690.cpurel +++| OPT4 SA2 OPTION *FET* CONFIGURATION DATA
00725 M00S00691.cpurel +++| SB2 X2
00726 M00S00692.cpurel +++| AX2 18
00727 M00S00693.cpurel +++| MX0 -6
00728 M00S00694.cpurel +++| BX3 -X0*X2
00729 M00S00695.cpurel +++| SB3 X3 (B3) = LENGTH OF FIELD
00730 M00S00696.cpurel +++| AX2 6
00731 M00S00697.cpurel +++| BX3 -X0*X2
00732 M00S00698.cpurel +++| SB4 X3 (B4) = LOWER BIT OF FIELD
00733 M00S00699.cpurel +++| AX2 6
00734 M00S00700.cpurel +++| BX2 -X0*X2
00735 M00S00701.cpurel +++| SA2 FET+X2
00736 M00S00702.cpurel +++| NZ B2,OPT5 IF NOT LEFT JUSTIFIED
00737 M00S00703.cpurel +++| LX6 B3,X6
00738 M00S00704.cpurel +++| OPT5 SB2 B3-59 MERGE OPTION IN FIELD
00739 M00S00705.cpurel +++| MX4 0
00740 M00S00706.cpurel +++| EQ B1,B2,OPT6 IF LENGTH .EQ. 60
00741 M00S00707.cpurel +++| MX4 1
00742 M00S00708.cpurel +++| AX4 -B2 GENERATE MASK
00743 M00S00709.cpurel +++| OPT6 LX4 B4
00744 M00S00710.cpurel +++| LX6 B4
00745 M00S00711.cpurel +++| BX2 X4*X2
00746 M00S00712.cpurel +++| BX6 -X4*X6
00747 M00S00713.cpurel +++| BX6 X2+X6
00748 M00S00714.cpurel +++| SA6 A2
00749 M00S00715.cpurel +++| EQ OPT CHECK FOR NEXT OPTION
00750 M00S00716.cpurel +++|
00751 M00S00717.cpurel +++| OPT7 SA2 OPTION GET FET OFFSET
00752 M00S00718.cpurel +++| AX2 30
00753 M00S00719.cpurel +++| MX0 -6
00754 M00S00720.cpurel +++| BX2 -X0*X2
00755 M00S00721.cpurel +++| SA6 FET+X2 STORE VARIABLE DESCRIPTOR WORD
00756 M00S00722.cpurel +++| EQ OPT CHECK FOR NEXT OPTION
00757 M00S00723.cpurel +++|
00758 M00S00724.cpurel +++| WFA ROLLOUT TEVENT WAIT FOR FILE AVAILABILITY
00759 M00S00725.cpurel +++|
00760 M00S00726.cpurel +++|** PRO - PROCESS THE PERMANENT FILE REQUEST.
00761 M00S00727.cpurel +++|
00762 M00S00728.cpurel +++| PRO SA1 ICTR CHECK UNUSED PARAMETERS COUNT
00763 M00S00729.cpurel +++| ZR X1,PRO0 IF NO UNUSED PARAMETERS
00764 M00S00730.cpurel +++| SA1 XRIU
00765 M00S00731.cpurel +++| NZ X1,PRO0 IF IGNORING UNUSED PARAMETERS
00766 M00S00732.cpurel +++| SA1 EADR
00767 M00S00733.cpurel +++| EQ PCE PROCESS INVALID PARAMETER ERROR
00768 M00S00734.cpurel +++|
00769 M00S00735.cpurel +++| PRO0 SA2 FET+CFSN
00770 M00S00736.cpurel +++| SA3 FET+CFPN
00771 M00S00737.cpurel +++| MX0 42
00772 M00S00738.cpurel +++| BX2 X0*X2
00773 M00S00739.cpurel +++| SA1 ACCESS FETCH REQUEST FUNCTION
00774 M00S00740.cpurel +++| NZ X2,PRO1 IF LOCAL NAME DECLARED
00775 M00S00741.cpurel +++| BX6 X0*X3 ASSUME *LFN* = *PFN*
00776 M00S00742.cpurel +++| SA6 A2
00777 M00S00743.cpurel +++| PRO1 SX2 X1-CCCG
00778 M00S00744.cpurel +++| ZR X2,PRO1.1 IF *CHANGE* COMMAND
Line S00001 Modification History
M01 (Added by) cpure12
Seq # *Modification Id* Act
----------------------------+
00779 M01S00001.cpure12 +++| SX2 X1-CCPM
00780 M01S00002.cpure12 +++| ZR X2,PRO1.1 IF *PERMIT* COMMAND
00781 M00S00745.cpurel +++| SA2 FET+CFNF
00782 M00S00746.cpurel +++| MX6 -18
00783 M00S00747.cpurel +++| BX2 -X6*X2 EXTRACT EXPIRATION DATE
00784 M00S00748.cpurel +++| ZR X2,PRO1.1 IF NO EXPIRATION DATE
00785 M00S00749.cpurel +++| SA2 FET+CFPW
00786 M00S00750.cpurel +++| BX2 X6*X2 EXTRACT PASSWORD
00787 M00S00751.cpurel +++| ZR X2,PCE IF EXPIRATION DATE BUT NO PASSWORD
00788 M00S00752.cpurel +++| PRO1.1 SA2 XRCW CHECK FOR *UCW* OPTION
00789 M00S00753.cpurel +++| ZR X2,PRO3 IF NO USER CONTROL WORD
00790 M00S00754.cpurel +++| SX6 X1-CCSV
00791 M00S00755.cpurel +++| ZR X6,PRO2 IF SAVE *UCW* FUNCTION
00792 M00S00756.cpurel +++| SX6 X1-CCDF
00793 M00S00757.cpurel +++| NZ X6,PRO3 IF NOT *DEFINE* FUNCTION
00794 M00S00758.cpurel +++| PRO2 SA3 X2
00795 M00S00759.cpurel +++| SA6 A2 CLEAR ADDRESS OF *UCW*
00796 M00S00760.cpurel +++| MX6 1
00797 M00S00761.cpurel +++| BX6 X6+X3
00798 M00S00762.cpurel +++| SA6 FET+CFUC
00799 M00S00763.cpurel +++| PRO3 LX1 6
00800 M00S00764.cpurel +++| SYSTEM PFM,RECALL,FET,X1
00801 M00S00765.cpurel +++| SA1 XRCW
00802 M00S00766.cpurel +++| ZR X1,END IF NO USER CONTROL WORD
00803 M00S00767.cpurel +++| SA2 FET+CFUC
00804 M00S00768.cpurel +++| BX6 X2
00805 M00S00769.cpurel +++| NG X1,PRO4 IF ECS/LCM ADDRESS
00806 M00S00770.cpurel +++| SA6 X1
00807 M00S00771.cpurel +++| EQ END NOT ECS/LCM ADDRESS
00808 M00S00772.cpurel +++|
00809 M00S00773.cpurel +++| PRO4 WX6 X1
00810 M00S00774.cpurel +++|
00811 M00S00775.cpurel +++|** END - PROCESS ERRORS AND/OR EXIT PF ROUTINE.
00812 M00S00776.cpurel +++|
00813 M00S00777.cpurel +++| END SA1 FET CHECK REQUEST COMPLETION
00814 M00S00778.cpurel +++| LX1 60-10
00815 M00S00779.cpurel +++| MX0 -8
00816 M00S00780.cpurel +++| BX6 -X0*X1
00817 M00S00781.cpurel +++| END0 SB2 X6-/ERRMSG/FBS
00818 M00S00782.cpurel +++| SA2 XRNA
00819 M00S00783.cpurel +++| NZ B2,END1 IF DIRECT FILE NOT BUSY
00820 M00S00784.cpurel +++| ZR X2,WFA IF NO *NA* OPTION PRESENT
00821 M00S00785.cpurel +++| END1 SA3 XRRC
00822 M00S00786.cpurel +++| ZR X3,END3 IF NO *RC* RETURN ADDRESS
00823 M00S00787.cpurel +++| NG X3,END2 IF ECS/LCM ADDRESS
00824 M00S00788.cpurel +++| SA6 X3
00825 M00S00789.cpurel +++| EQ END3 NOT ECS/LCM ADDRESS
00826 M00S00790.cpurel +++|
00827 M00S00791.cpurel +++| END2 WX6 X3
00828 M00S00792.cpurel +++| END3 SA4 XRRR
00829 M00S00793.cpurel +++| ZR X4,END5 IF NO *RRC* RETURN ADDRESS
00830 M00S00794.cpurel +++| PX6 X6
00831 M00S00795.cpurel +++| NX6 X6
00832 M00S00796.cpurel +++| NG X4,END4 IF ECS/LCM ADDRESS
00833 M00S00797.cpurel +++| SA6 X4
00834 M00S00798.cpurel +++| EQ END5 NOT ECS/LCM ADDRESS
00835 M00S00799.cpurel +++|
00836 M00S00800.cpurel +++| END4 WX6 X4
00837 M00S00801.cpurel +++| END5 ZR X6,END8 IF FUNCTION SUCCESSFUL
00838 M00S00802.cpurel +++| BX7 X3+X4
00839 M00S00803.cpurel +++| NG X6,END6 IF DETECTED CALL ERRORS
00840 M00S00804.cpurel +++| NZ X7,END8 IF RETURN CODES PRESENT
00841 M00S00805.cpurel +++| BX1 X6
00842 M00S00806.cpurel +++| RJ =XCOD= BINARY TO OCTAL DISPLAY
00843 M00S00807.cpurel +++| SA1 PCEA
00844 M00S00808.cpurel +++| MX0 42
00845 M00S00809.cpurel +++| BX1 X0*X1
00846 M00S00810.cpurel +++| BX6 -X0*X6
00847 M00S00811.cpurel +++| BX6 X1+X6
00848 M00S00812.cpurel +++| SA6 PFEC
00849 M00S00813.cpurel +++| SA1 A6
00850 M00S00814.cpurel +++| END6 MESSAGE A1,3,R USER-S DAYFILE MESSAGE
00851 M00S00815.cpurel +++| SA1 XRNA
00852 M00S00816.cpurel +++| NZ X1,END8 IF *NA* SPECIFIED
00853 M00S00817.cpurel +++| SA1 XREM
00854 M00S00818.cpurel +++| ZR X1,END7 IF *EM* PARAMETER NOT SPECIFIED
00855 M00S00819.cpurel +++| RJ MCM MOVE *PFM* ERROR MESSAGE INTO *EM*
00856 M00S00820.cpurel +++| END7 ABORT
00857 M00S00821.cpurel +++|
00858 M00S00822.cpurel +++| END8 SA1 XRIU CHECK *IUP*
00859 M00S00823.cpurel +++| ZR X1,END9 IF NOT IGNORING UNUSED PARAMETERS
00860 M00S00824.cpurel +++| SA2 ICTR RETURN IGNORED PARAMETER COUNT
00861 M00S00825.cpurel +++| BX6 X2
00862 M00S00826.cpurel +++| SA6 X1
00863 M00S00827.cpurel +++| END9 SA1 XREM
00864 M00S00828.cpurel +++| ZR X1,END10 IF *EM* NOT SPECIFIED
00865 M00S00829.cpurel +++| RJ MCM MOVE *PFM* ERROR MESSAGE INTO *EM*
00866 M00S00830.cpurel +++| END10 SA2 TEMPA0 RESTORE (A0) ON ENTRY
00867 M00S00831.cpurel +++| SA0 X2
00868 M00S00832.cpurel +++| EQ PF EXIT
00869 M00S00833.cpurel +++| TITLE SUBROUTINES.
Line S00005 Modification History
M01 (Added by) cpure13
Seq # *Modification Id* Act
----------------------------+
00870 M01S00005.cpure13 +++| CIP SPACE 4,15
00871 M01S00006.cpure13 +++|** CIP - COUNT IGNORED PARAMETERS.
00872 M01S00007.cpure13 +++|*
00873 M01S00008.cpure13 +++|* ENTRY (X1) = PARAMETER IGNORED (IN DISPLAY CODE).
00874 M01S00009.cpure13 +++|* (A0) = ADDRESS OF CURRENT PARAMETER.
00875 M01S00010.cpure13 +++|*
00876 M01S00011.cpure13 +++|* EXIT (X1) = NEXT PARAMETER VALUE.
00877 M01S00012.cpure13 +++|* (ICTR) INCREMENTED.
00878 M01S00013.cpure13 +++|* TO *OPT* TO CHECK FOR NEXT OPTION.
00879 M01S00014.cpure13 +++|* TO *PCE* IF END OF PARAMETER LIST.
00880 M01S00015.cpure13 +++|*
00881 M01S00016.cpure13 +++|* USES X - 1, 6.
00882 M01S00017.cpure13 +++|* A - 0, 1, 6.
00883 M01S00018.cpure13 +++|
00884 M01S00019.cpure13 +++|
00885 M01S00020.cpure13 +++| CIP BSS 0 ENTRY
00886 M01S00021.cpure13 +++| BX6 X1 SAVE PARAMETER
00887 M01S00022.cpure13 +++| SA6 EADR
00888 M01S00023.cpure13 +++| SA1 ICTR REPLACE NEW VALUE
00889 M01S00024.cpure13 +++| SX6 X1+B1 INCREMENT COUNTER
00890 M01S00025.cpure13 +++| SA6 A1
00891 M01S00026.cpure13 +++| SA0 A0+B1
00892 M01S00027.cpure13 +++| SA1 A0 GET NEXT PARAMETER VALUE
00893 M01S00028.cpure13 +++| ZR X1,PCE IF AT END OF PARAMETER LIST
00894 M01S00029.cpure13 +++| EQ OPT CHECK FOR NEXT OPTION
00895 M00S00834.cpurel +++| LCP SPACE 4,10
00896 M00S00835.cpurel +++|** LCP - LOAD CHARACTER PARAMETER.
00897 M00S00836.cpurel +++|*
00898 M00S00837.cpurel +++|* ENTRY (X1) = PARAMETER ADDRESS.
00899 M00S00838.cpurel +++|* (B1) = 1.
00900 M00S00839.cpurel +++|*
00901 M00S00840.cpurel +++|* EXIT (X1) = PARAMETER VALUE. IF THE PARAMETER IS *FTN5*
00902 M00S00841.cpurel +++|* TYPE CHARACTER DATA, IT IS LEFT JUSTIFIED WITH
00903 M00S00842.cpurel +++|* ZERO FILL.
00904 M00S00843.cpurel +++|*
00905 M00S00844.cpurel +++|* USES X - 0, 1, 2, 3.
00906 M00S00845.cpurel +++|* A - 1, 3.
00907 M00S00846.cpurel +++|* B - 4, 5, 6.
00908 M00S00847.cpurel +++|
00909 M00S00848.cpurel +++| LCP EQ *+1S17 ENTRY/EXIT
00910 M00S00849.cpurel +++| LX1 30 EXTRACT CHARACTER LENGTH
00911 M00S00850.cpurel +++| SB4 X1
00912 M00S00851.cpurel +++| ZR B4,LCP6 IF NOT *FTN5* CHARACTER DATA
00913 M00S00852.cpurel +++| LX1 6 EXTRACT CHARACTER POSITION
00914 M00S00853.cpurel +++| MX0 -6
00915 M00S00854.cpurel +++| BX3 -X0*X1
00916 M00S00855.cpurel +++| LX1 24 GET FIRST WORD OF PARAMETER
00917 M00S00856.cpurel +++| MX0 -25
00918 M00S00857.cpurel +++| LX0 -1
00919 M00S00858.cpurel +++| BX1 -X0*X1
00920 M00S00859.cpurel +++| NG X1,LCP1 IF ECS/LCM ADDRESS
00921 M00S00860.cpurel +++| SA2 X1
00922 M00S00861.cpurel +++| EQ LCP2 NOT ECS/LCM ADDRESS
00923 M00S00862.cpurel +++|
00924 M00S00863.cpurel +++| LCP1 RX2 X1
00925 M00S00864.cpurel +++| LCP2 SB6 X3 (B6) = CHARACTER POSITION
00926 M00S00865.cpurel +++| SX0 B1 INCREMENT PARAMETER ADDRESS
00927 M00S00866.cpurel +++| IX1 X1+X0
00928 M00S00867.cpurel +++| MX0 0
00929 M00S00868.cpurel +++| ZR B6,LCP3 IF POSITION .EQ. ZERO
00930 M00S00869.cpurel +++| SB5 B6+B6 CALCULATE BIT POSITION OF STRING
00931 M00S00870.cpurel +++| SB6 B5+B5
00932 M00S00871.cpurel +++| SB6 B5+B6 (B6) = BIT POSITION
00933 M00S00872.cpurel +++| MX0 1 EXTRACT STRING FROM FIRST WORD
00934 M00S00873.cpurel +++| SB5 B6-B1
00935 M00S00874.cpurel +++| AX0 B5
00936 M00S00875.cpurel +++| BX2 -X0*X2
00937 M00S00876.cpurel +++| LX2 B6
00938 M00S00877.cpurel +++| LCP3 NG X1,LCP4 IF ECS/LCM ADDRESS
00939 M00S00878.cpurel +++| SA1 X1
00940 M00S00879.cpurel +++| EQ LCP5 NOT ECS/LCM ADDRESS
00941 M00S00880.cpurel +++|
00942 M00S00881.cpurel +++| LCP4 RX1 X1
00943 M00S00882.cpurel +++| LCP5 BX1 X0*X1 EXTRACT STRING FROM SECOND WORD
00944 M00S00883.cpurel +++| LX1 B6
00945 M00S00884.cpurel +++| BX1 X1+X2 MERGE STRINGS
00946 M00S00885.cpurel +++| SB5 10
00947 M00S00886.cpurel +++| GE B4,B5,LCP IF LENGTH .GE. 10, RETURN
00948 M00S00887.cpurel +++| SB5 B4+B4 CALCULATE BIT LENGTH OF STRING
00949 M00S00888.cpurel +++| SB6 B5+B5
00950 M00S00889.cpurel +++| SB6 B5+B6
00951 M00S00890.cpurel +++| SB6 B6-B1 (B6) = BIT LENGTH - 1
00952 M00S00891.cpurel +++| MX2 1 ZERO FILL PARAMETER
00953 M00S00892.cpurel +++| AX2 B6
00954 M00S00893.cpurel +++| BX1 X2*X1
00955 M00S00894.cpurel +++| EQ LCP RETURN
00956 M00S00895.cpurel +++|
00957 M00S00896.cpurel +++| LCP6 LX1 -30
00958 M00S00897.cpurel +++| NG X1,LCP7 IF ECS/LCM ADDRESS
00959 M00S00898.cpurel +++| SA1 X1
00960 M00S00899.cpurel +++| EQ LCP RETURN
00961 M00S00900.cpurel +++|
00962 M00S00901.cpurel +++| LCP7 RX1 X1
00963 M00S00902.cpurel +++| EQ LCP RETURN
00964 M00S00903.cpurel +++|
00965 M00S00904.cpurel +++| MCM SPACE 4,15
Line S00905 Modification History
M01 (Removed by) cpure13
Seq # *Modification Id* Act
----------------------------+
00966 M01S00905.cpure13 ---|** MCM - MOVE CHARACTER MESSAGE
Line S00030 Modification History
M01 (Added by) cpure13
Seq # *Modification Id* Act
----------------------------+
00967 M01S00030.cpure13 +++|** MCM - MOVE CHARACTER MESSAGE.
00968 M00S00906.cpurel +++|*
00969 M00S00907.cpurel +++|* ENTRY (X1) = FTN5 DESCRIPTOR OF VARIABLE TO RECEIVE MESSAGE.
00970 M00S00908.cpurel +++|* BITS 47-30 = VARIABLE LENGTH, IN CHARACTERS.
00971 M00S00909.cpurel +++|* VALUE IS ZERO IF NOT CHARACTER VARIABLE.
00972 M00S00910.cpurel +++|* BITS 27-24 = BEGINNING CHARACTER POSITION,
00973 M00S00911.cpurel +++|* 0 BEING LEFTMOST CHARACTER.
00974 M00S00912.cpurel +++|* BITS 23-0 = FIRST WORD ADDRESS OF VARIABLE.
00975 M00S00913.cpurel +++|*
00976 M00S00914.cpurel +++|*
00977 M00S00915.cpurel +++|* EXIT MESSAGE MOVED TO VARIABLE.
00978 M00S00916.cpurel +++|*
00979 M00S00917.cpurel +++|* USES X - ALL.
00980 M00S00918.cpurel +++|* A - 2, 3, 4, 6.
00981 M00S00919.cpurel +++|* B - 5, 6, 7.
00982 M00S00920.cpurel +++|
00983 M00S00921.cpurel +++|
00984 M00S00922.cpurel +++| MCM EQ *+1S17 ENTRY/EXIT
00985 M00S00923.cpurel +++| SA2 X1 VALUE OF VARIABLE
00986 M00S00924.cpurel +++| LX1 30
00987 M00S00925.cpurel +++| SB5 X1 CHARACTER LENGTH OF VARIABLE
00988 M00S00926.cpurel +++| GT B5,B0,MCM1 IF CHARACTER LENGTH PRESENT
Line S00927 Modification History
M01 (Removed by) ns2568
Seq # *Modification Id* Act
----------------------------+
00989 M01S00927.ns2568 ---| SB5 10 SET CHARACTER LENGTH
00990 M01S00928.ns2568 ---| SX0 B0 SET BEGINNING CHARACTER PROSITION (BCP)
00991 M01S00929.ns2568 ---| LX1 6
Line S00017 Modification History
M01 (Added by) ns2568
Seq # *Modification Id* Act
----------------------------+
00992 M01S00017.ns2568 +++| SA3 XREL GET CHARACTER LENGTH (*EL* PARAMETER)
00993 M01S00018.ns2568 +++| SX0 B0 SET BEGINNING CHARACTER POSITION (BCP)
00994 M01S00019.ns2568 +++| SB5 X3
00995 M01S00020.ns2568 +++| NZ X3,MCM2 IF CHARACTER LENGTH SPECIFIED
00996 M01S00021.ns2568 +++| SB5 10 SET DEFAULT CHARACTER LENGTH
00997 M00S00930.cpurel +++| EQ MCM2 CONTINUE
00998 M00S00931.cpurel +++|
00999 M00S00932.cpurel +++| MCM1 LX1 6
01000 M00S00933.cpurel +++| MX0 -6
01001 M00S00934.cpurel +++| BX0 -X0*X1 BEGINNING CHARACTER POSITION
01002 M00S00935.cpurel +++| MCM2 SA3 PFMA GET *PFM* MESSAGE
01003 M00S00936.cpurel +++| SA1 BLANKS
01004 M00S00937.cpurel +++| BX1 X1-X3
01005 M00S00938.cpurel +++| ZR X1,MCM IF BLANK MESSAGE
01006 M00S00939.cpurel +++| SB6 40 MAXIMUM MESSAGE LENGTH
01007 M00S00940.cpurel +++| GT B6,B5,MCM3 IF NOT TOO LONG
01008 M00S00941.cpurel +++| SB5 B6 RESET LENGTH TO MAXIMUM
01009 M00S00942.cpurel +++| MCM3 SB6 X0 CALCULATE BIT POSITION (6*BCP)
01010 M00S00943.cpurel +++| SB7 B6+B6
01011 M00S00944.cpurel +++| SB6 B7+B7
01012 M00S00945.cpurel +++| SB6 B6+B7 BIT POSITON
01013 M00S00946.cpurel +++| SB7 60
01014 M00S00947.cpurel +++| SB6 B7-B6 SHIFT COUNT FOR MASK
01015 M00S00948.cpurel +++| SB7 B0 BCP FOR *PFM* MESSAGE
01016 M00S00949.cpurel +++| MX1 6
01017 M00S00950.cpurel +++| LX0 B6,X1 POSITION MASK FOR DESTINATION WORD
01018 M00S00951.cpurel +++| BX6 X2 ORIGINAL VALUE OF VARIABLE
01019 M00S00952.cpurel +++| SA4 BLANKS
01020 M00S00953.cpurel +++| BX4 X4*X1 SET BLANK CHARACTER
01021 M00S00954.cpurel +++| MCM4 BX5 X1*X3 GET NEW CHARACTER
01022 M00S00955.cpurel +++| BX7 X5
01023 M00S00956.cpurel +++| NZ X7,MCM5 IF NOT 00 CHARACTER
01024 M00S00957.cpurel +++| BX5 X4 REPLACE WITH BLANK
01025 M00S00958.cpurel +++| MCM5 BX6 -X0*X6 REMOVE OLD CHARACTER
01026 M00S00959.cpurel +++| LX5 B6,X5 POSITION SOURCE CHARACTER
01027 M00S00960.cpurel +++| BX6 X5+X6 ADD CHARACTER TO DESTINATION WORD
01028 M00S00961.cpurel +++| SB5 B5-B1
01029 M00S00962.cpurel +++| ZR B5,MCM9 IF DONE
01030 M00S00963.cpurel +++| LX1 -6
01031 M00S00964.cpurel +++| LX4 -6 POSITION MASKS FOR NEXT CHARACTER
01032 M00S00965.cpurel +++| NG X1,MCM7 IF END OF SOURCE WORD
01033 M00S00966.cpurel +++| MCM6 LX0 -6
01034 M00S00967.cpurel +++| NG X0,MCM8 IF END OF DESTINATION WORD
01035 M00S00968.cpurel +++| EQ MCM4 CONTINUE WITH NEXT CHARACTER
01036 M00S00969.cpurel +++|
01037 M00S00970.cpurel +++| MCM7 SA3 A3+B1 FETCH NEXT SOURCE WORD
01038 M00S00971.cpurel +++| EQ MCM6 CHECK DESTINATION WORD
01039 M00S00972.cpurel +++|
01040 M00S00973.cpurel +++| MCM8 SA6 A2 REPLACE UPDATED DESTINATION WORD
01041 M00S00974.cpurel +++| SA2 A2+B1 GET NEXT DESTINATION WORD
01042 M00S00975.cpurel +++| BX6 X2
01043 M00S00976.cpurel +++| EQ MCM4 CONTINUE WITH NEXT CHARACTER
01044 M00S00977.cpurel +++|
01045 M00S00978.cpurel +++| MCM9 SA6 A2 REPLACE LAST DESTINATION WORD
01046 M00S00979.cpurel +++| EQ MCM RETURN
Line S00980 Modification History
M01 (Removed by) cpure13
Seq # *Modification Id* Act
----------------------------+
01047 M01S00980.cpure13 ---| CIP SPACE 4,10
01048 M01S00981.cpure13 ---|** CIP - COUNT IGNORED PARAMETERS.
01049 M01S00982.cpure13 ---|*
01050 M01S00983.cpure13 ---|* ENTRY (X1) = PARAMETER IGNORED (IN DISPLAY CODE).
01051 M01S00984.cpure13 ---|* (A0) = ADDRESS OF CURRENT PARAMETER.
01052 M01S00985.cpure13 ---|*
01053 M01S00986.cpure13 ---|* EXIT (X1) = VALUE OF PARAMETER SKIPPED.
01054 M01S00987.cpure13 ---|*
01055 M01S00988.cpure13 ---|* USES X - 1, 6.
01056 M01S00989.cpure13 ---|* A - 0, 1, 6.
01057 M01S00990.cpure13 ---|
01058 M01S00991.cpure13 ---|
01059 M01S00992.cpure13 ---|
01060 M01S00993.cpure13 ---| CIP BX6 X1 SAVE PARAMETER
01061 M01S00994.cpure13 ---| SA6 EADR
01062 M01S00995.cpure13 ---| SA1 ICTR REPLACE NEW VALUE
01063 M01S00996.cpure13 ---| SX6 X1+B1 INCREMENT COUNTER
01064 M01S00997.cpure13 ---| SA6 A1
01065 M01S00998.cpure13 ---| SA0 A0+B1
01066 M01S00999.cpure13 ---| SA1 A0 GET NEXT PARAMETER VALUE
01067 M01S01000.cpure13 ---| ZR X1,PCE IF AT END OF PARAMETER LIST
01068 M01S01001.cpure13 ---| EQ OPT CHECK FOR NEXT OPTION
01069 M01S01002.cpure13 ---| ZFN SPACE 4,10
01070 M01S01003.cpure13 ---|** ZFN - DELETE TRAILING BLANKS FROM WORD.
01071 M01S01004.cpure13 ---|*
01072 M01S01005.cpure13 ---|* ENTRY (X1) = WORD TO DELETE BLANKS FROM (LEFT JUSTIFIED).
01073 M01S01006.cpure13 ---|*
01074 M01S01007.cpure13 ---|* EXIT (X6) = WORD WITH TRAILING BLANKS DELETED.
01075 M01S01008.cpure13 ---|*
01076 M01S01009.cpure13 ---|* USES X - 0, 2, 3, 6.
01077 M01S01010.cpure13 ---|
01078 M01S01011.cpure13 ---|
01079 M01S01012.cpure13 ---| ZFN EQ *+1S17 ENTRY/EXIT
01080 M01S01013.cpure13 ---| SX0 1R BLANK CHARACTER
01081 M01S01014.cpure13 ---| MX2 -6
01082 M01S01015.cpure13 ---| BX6 X1
01083 M01S01016.cpure13 ---| ZFN1 BX3 -X2*X6
01084 M01S01017.cpure13 ---| ZR X3,ZFN2 IF ZERO CHARACTER
01085 M01S01018.cpure13 ---| BX3 X3-X0 CHECK FOR BLANK
01086 M01S01019.cpure13 ---| NZ X3,ZFN IF NOT *00* OR * *
01087 M01S01020.cpure13 ---| ZFN2 BX6 X2*X6 CLEAR BLANK
01088 M01S01021.cpure13 ---| LX2 6
01089 M01S01022.cpure13 ---| LX0 6
01090 M01S01023.cpure13 ---| NZ X6,ZFN1 IF NOT END OF WORD
01091 M01S01024.cpure13 ---| EQ ZFN RETURN
01092 M00S01025.cpurel ---| PCE SPACE 4,10
01093 M00S01026.cpurel ---|** PCE - PROCESS CALL ERROR.
01094 M00S01027.cpurel ---|*
01095 M00S01028.cpurel ---|* ENTRY (A0) = ADDRESS OF CURRENT POSITION IN PARAMETER
01096 M00S01029.cpurel ---|* LIST.
01097 M00S01030.cpurel ---|* (X1) = 0, PARAMETER NAME NOT PROVIDED.
01098 M00S01031.cpurel ---|* = NONZERO VALUE, ASSUMED TO BE THE CURRENT
01099 M00S01032.cpurel ---|* PARAMETER IN DISPLAY CODE.
01100 M00S01033.cpurel ---|*
01101 M00S01034.cpurel ---|* EXIT (X6) = -1.
01102 M00S01035.cpurel ---|* (A1) = ADDRESS OF ERROR MESSAGE.
01103 M00S01036.cpurel ---|*
01104 M00S01037.cpurel ---|* USES X - 1, 6, 7.
01105 M00S01038.cpurel ---|* A - 1, 7.
01106 M00S01039.cpurel ---|* B - NONE.
01107 M00S01040.cpurel ---|
01108 M00S01041.cpurel ---|
01109 M00S01042.cpurel ---| PCE NZ X1,PCE2 IF PARAMETER NAME PROVIDED
01110 M00S01043.cpurel ---| SA1 A0
01111 M00S01044.cpurel ---| ZR X1,PCE1 IF END OF PARAMETER LIST
01112 M00S01045.cpurel ---| SA1 X1
01113 M00S01046.cpurel ---| NZ X1,PCE2 IF NONZERO PARAMETER
01114 M00S01047.cpurel ---| PCE1 SA1 PCEB
01115 M00S01048.cpurel ---| PCE2 MX6 59
01116 M00S01049.cpurel ---| BX7 X1
01117 M00S01050.cpurel ---| SA7 PCEB
01118 M00S01051.cpurel ---| SA1 PCEA
01119 M00S01052.cpurel ---| EQ END0 PROCESS USER CALL ERROR
01120 M00S01053.cpurel ---|
01121 M00S01054.cpurel ---| PCEA DATA 30H PF NO.-1 INVALID PARAMETER -
01122 M00S01055.cpurel ---| PCEB DATA 10H UNPAIRED.
01123 M00S01056.cpurel ---| DATA 0
Line S00031 Modification History
M01 (Added by) cpure13
Seq # *Modification Id* Act
----------------------------+
01124 M01S00031.cpure13 +++| PRD SPACE 4,15
01125 M01S00032.cpure13 +++|** PRD - PROCESS RESIDENCE DEFINITION.
01126 M01S00033.cpure13 +++|*
01127 M01S00034.cpure13 +++|* ENTRY (X6) = *R* PARAMETER.
01128 M01S00035.cpure13 +++|*
01129 M01S00036.cpure13 +++|* EXIT TO *OPT4*.
01130 M01S00037.cpure13 +++|* (X6) = VALIDATED PARAMETER.
01131 M01S00038.cpure13 +++|* UNIT COUNT (IF SPECIFIED) SET INTO FET+CFPK.
01132 M01S00039.cpure13 +++|*
01133 M01S00040.cpure13 +++|* ERROR TO *PCE* IF ERROR ENCOUNTERED.
01134 M01S00041.cpure13 +++|*
01135 M01S00042.cpure13 +++|* USES X - 0, 2, 3, 6, 7.
01136 M01S00043.cpure13 +++|* A - 2, 3, 7.
01137 M01S00044.cpure13 +++|
01138 M01S00045.cpure13 +++|
01139 M01S00046.cpure13 +++| PRD BSS 0 ENTRY
01140 M01S00047.cpure13 +++| SA2 TRES-1 TABLE OF DEVICE TYPES
01141 M01S00048.cpure13 +++| MX0 -6 CONVERT UNIT COUNT
01142 M01S00049.cpure13 +++| LX0 42
01143 M01S00050.cpure13 +++| BX3 -X0*X6
01144 M01S00051.cpure13 +++| ZR X3,PRD1 IF NO UNIT COUNT SPECIFIED
01145 M01S00052.cpure13 +++| LX0 -6
01146 M01S00053.cpure13 +++| BX2 -X0*X6
01147 M01S00054.cpure13 +++| NZ X2,PCE IF UNIT COUNT TOO LONG
01148 M01S00055.cpure13 +++| LX3 -42
01149 M01S00056.cpure13 +++| SX2 X3-1R1
01150 M01S00057.cpure13 +++| NG X2,PCE IF INCORRECT UNIT COUNT
01151 M01S00058.cpure13 +++| SX3 X3-1R9
01152 M01S00059.cpure13 +++| PL X3,PCE IF INCORRECT UNIT COUNT
01153 M01S00060.cpure13 +++| SA3 FET+CFPK SET UNIT COUNT INTO FET
01154 M01S00061.cpure13 +++| SX2 X2+B1
01155 M01S00062.cpure13 +++| MX0 42
01156 M01S00063.cpure13 +++| BX3 X0*X3
01157 M01S00064.cpure13 +++| BX7 X3+X2
01158 M01S00065.cpure13 +++| SA7 A3+
01159 M01S00066.cpure13 +++|
01160 M01S00067.cpure13 +++|* SEARCH FOR DEVICE TYPE IN TABLE.
01161 M01S00068.cpure13 +++|
01162 M01S00069.cpure13 +++| PRD1 SA2 A2+B1
01163 M01S00070.cpure13 +++| MX0 12
01164 M01S00071.cpure13 +++| ZR X2,PCE IF DEVICE TYPE NOT FOUND IN TABLE
01165 M01S00072.cpure13 +++| BX3 X6-X2
01166 M01S00073.cpure13 +++| BX3 X0*X3
01167 M01S00074.cpure13 +++| NZ X3,PRD1 IF NOT THIS TABLE ITEM
01168 M01S00075.cpure13 +++| SX6 X2
01169 M01S00076.cpure13 +++| EQ OPT4 PUT ENTRY INTO FET
01170 M00S01057.cpurel +++| PXD SPACE 4,15
01171 M00S01058.cpurel +++|** PXD - PROCESS EXPIRATION DATE.
01172 M00S01059.cpurel +++|*
01173 M00S01060.cpurel +++|* ENTRY (X6) = *XD* PARAMETER.
01174 M00S01061.cpurel +++|* (XFLAG) = NON-ZERO IF *XD* OR *XT* ALREADY USED.
01175 M00S01062.cpurel +++|*
01176 M00S01063.cpurel +++|* EXIT TO *OPT4*.
01177 M00S01064.cpurel +++|* (X6) = VALIDATED PARAMETER.
01178 M00S01065.cpurel +++|*
01179 M00S01066.cpurel +++|* ERROR TO *PCE* IF ERROR ENCOUNTERED.
01180 M00S01067.cpurel +++|*
01181 M00S01068.cpurel +++|* USES X - 1, 2, 4, 6, 7.
01182 M00S01069.cpurel +++|* A - 2, 7.
01183 M00S01070.cpurel +++|* B - NONE.
01184 M00S01071.cpurel +++|*
01185 M00S01072.cpurel +++|* CALLS VDT.
01186 M00S01073.cpurel +++|*
01187 M00S01074.cpurel +++|* MACROS NONE.
01188 M00S01075.cpurel +++|
01189 M00S01076.cpurel +++|
01190 M00S01077.cpurel +++| PXD BSS 0 ENTRY
01191 M00S01078.cpurel +++| SA2 XFLAG
01192 M00S01079.cpurel +++| NZ X2,PCE IF *XD* OR *XT* ALREADY SPECIFIED
01193 M00S01080.cpurel +++| SX7 B1
01194 M00S01081.cpurel +++| SA7 A2 SET PARAMETER SPECIFIED
01195 M00S01082.cpurel +++| BX1 X6
01196 M00S01083.cpurel +++| LX6 6
01197 M00S01084.cpurel +++| SX4 X6-1R*
01198 M00S01085.cpurel +++| NZ X4,PXD1 IF NOT ASTERISK
01199 M00S01086.cpurel +++| SX6 7777B SET NO EXPIRATION DATE
01200 M00S01087.cpurel +++| EQ OPT4 PUT ENTRY IN FET
01201 M00S01088.cpurel +++|
01202 M00S01089.cpurel +++| PXD1 SX2 B0
01203 M00S01090.cpurel +++| RJ VDT CONVERT DATE
01204 M00S01091.cpurel +++| NG X1,PXD2 IF DATE BEFORE TODAY
01205 M00S01092.cpurel +++| NG X6,PXD2 IF ERROR IN CONVERSION
01206 M00S01093.cpurel +++| EQ OPT4 PUT ENTRY IN FET
01207 M00S01094.cpurel +++|
01208 M00S01095.cpurel +++| PXD2 BX1 X1-X1
01209 M00S01096.cpurel +++| EQ PCE PROCESS ERROR
01210 M00S01097.cpurel +++| PXT SPACE 4,20
01211 M00S01098.cpurel +++|** PXT - PROCESS EXPIRATION TERM.
01212 M00S01099.cpurel +++|*
01213 M00S01100.cpurel +++|* ENTRY (X6) = *XT* PARAMETER.
01214 M00S01101.cpurel +++|* (XFLAG) = NON-ZERO IF *XD* OR *XT* ALREADY USED.
01215 M00S01102.cpurel +++|*
01216 M00S01103.cpurel +++|* EXIT TO *OPT4*.
01217 M00S01104.cpurel +++|* (X6) = VALIDATED *XT* PARAMETER.
01218 M00S01105.cpurel +++|*
01219 M00S01106.cpurel +++|* ERROR TO *PCE* IF ERROR ENCOUNTERED.
01220 M00S01107.cpurel +++|*
01221 M00S01108.cpurel +++|* USES X - 1, 2, 4, 5, 6, 7.
01222 M00S01109.cpurel +++|* A - 2, 7.
01223 M00S01110.cpurel +++|* B - 2, 7.
01224 M00S01111.cpurel +++|*
01225 M00S01112.cpurel +++|* CALLS =XDXB=.
01226 M00S01113.cpurel +++|*
01227 M00S01114.cpurel +++|* MACROS PDATE.
01228 M00S01115.cpurel +++|
01229 M00S01116.cpurel +++|
01230 M00S01117.cpurel +++| PXT BSS 0 ENTRY
01231 M00S01118.cpurel +++| SA2 XFLAG
01232 M00S01119.cpurel +++| NZ X2,PCE IF *XD* OR *XT* ALREADY SPECIFIED
01233 M00S01120.cpurel +++| SX7 B1
01234 M00S01121.cpurel +++| SA7 A2 SET PARAMETER SPECIFIED
01235 M00S01122.cpurel +++| BX5 X6
01236 M00S01123.cpurel +++| LX6 6
01237 M00S01124.cpurel +++| SX4 X6-1R*
01238 M00S01125.cpurel +++| NZ X4,PXT1 IF NOT ASTERISK
01239 M00S01126.cpurel +++| SX6 7777B NO EXPIRATION DATE
01240 M00S01127.cpurel +++| EQ OPT4 PUT ENTRY IN FET
01241 M00S01128.cpurel +++|
01242 M00S01129.cpurel +++| PXT1 SX2 X6-1R0
01243 M00S01130.cpurel +++| NZ X2,PXT2 IF NOT IMMEDIATE EXPIRATION
01244 M00S01131.cpurel +++| PDATE XDATE GET CURRENT DATE
01245 M00S01132.cpurel +++| SA2 XDATE
01246 M00S01133.cpurel +++| AX2 18
01247 M00S01134.cpurel +++| BX6 X2
01248 M00S01135.cpurel +++| EQ OPT4 PUT ENTRY IN FET
01249 M00S01136.cpurel +++|
01250 M00S01137.cpurel +++| PXT2 SB7 B1
01251 M00S01138.cpurel +++| RJ =XDXB= CONVERT TO BINARY
01252 M00S01139.cpurel +++| NZ X4,PXT3 IF ERROR IN CONVERSION
01253 M00S01140.cpurel +++| SB2 X6-7777B
01254 M00S01141.cpurel +++| GT B2,PXT3 IF EXPIRATION TERM IS TOO LARGE
01255 M00S01142.cpurel +++| EQ OPT4 PUT ENTRY IN FET
01256 M00S01143.cpurel +++|
01257 M00S01144.cpurel +++| PXT3 BX1 X1-X1
01258 M00S01145.cpurel +++| EQ PCE PROCESS ERROR
01259 M01S00077.cpure13 +++| ZFN SPACE 4,10
01260 M01S00078.cpure13 +++|** ZFN - DELETE TRAILING BLANKS FROM WORD.
01261 M01S00079.cpure13 +++|*
01262 M01S00080.cpure13 +++|* ENTRY (X1) = WORD TO DELETE BLANKS FROM (LEFT JUSTIFIED).
01263 M01S00081.cpure13 +++|*
01264 M01S00082.cpure13 +++|* EXIT (X6) = WORD WITH TRAILING BLANKS DELETED.
01265 M01S00083.cpure13 +++|*
01266 M01S00084.cpure13 +++|* USES X - 0, 2, 3, 6.
01267 M01S00085.cpure13 +++|
01268 M01S00086.cpure13 +++|
01269 M01S00087.cpure13 +++| ZFN EQ *+1S17 ENTRY/EXIT
01270 M01S00088.cpure13 +++| SX0 1R BLANK CHARACTER
01271 M01S00089.cpure13 +++| MX2 -6
01272 M01S00090.cpure13 +++| BX6 X1
01273 M01S00091.cpure13 +++| ZFN1 BX3 -X2*X6
01274 M01S00092.cpure13 +++| ZR X3,ZFN2 IF ZERO CHARACTER
01275 M01S00093.cpure13 +++| BX3 X3-X0 CHECK FOR BLANK
01276 M01S00094.cpure13 +++| NZ X3,ZFN IF NOT *00* OR * *
01277 M01S00095.cpure13 +++| ZFN2 BX6 X2*X6 CLEAR BLANK
01278 M01S00096.cpure13 +++| LX2 6
01279 M01S00097.cpure13 +++| LX0 6
01280 M01S00098.cpure13 +++| NZ X6,ZFN1 IF NOT END OF WORD
01281 M01S00099.cpure13 +++| EQ ZFN RETURN
01282 M00S01146.cpurel +++| SPACE 4,10
01283 M00S01147.cpurel +++|* COMMON DECKS.
01284 M00S01148.cpurel +++|
01285 M00S01149.cpurel +++|*CALL COMCDXB
01286 M00S01150.cpurel +++|*CALL COMCVDT
01287 M00S01151.cpurel +++| SPACE 4,10
01288 M00S01152.cpurel +++| END
01289 M00S01153.cpurel +++| IDENT GETPAGE
01290 M00S01154.cpurel +++| ENTRY GETPAGE
01291 M00S01155.cpurel +++| SYSCOM B1
01292 M00S01156.cpurel +++| TITLE GETPAGE - GET PAGE PARAMETERS.
01293 M00S01157.cpurel +++|*COMMENT CPUREL - GET PAGE PARAMETERS.
Line S01158 Modification History
M01 (Removed by) 281l803
Seq # *Modification Id* Act
----------------------------+
01294 M01S01158.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1982.
Line S00007 Modification History
M01 (Added by) 281l803
Seq # *Modification Id* Act
----------------------------+
01295 M01S00007.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
01296 M00S01159.cpurel +++|*CALL COMCMAC
01297 M00S01160.cpurel +++| GETPAGE SPACE 4,10
01298 M00S01161.cpurel +++|*** GETPAGE - GET PAGE PARAMETERS.
01299 M00S01162.cpurel +++|*
01300 M00S01163.cpurel +++|* A. SKJOLDEBRAND. 82/11/21.
01301 M00S01164.cpurel +++| SPACE 4,10
01302 M00S01165.cpurel +++|*** *GETPAGE* PROVIDES AN INTERFACE TO ALLOW GETTING THE
01303 M00S01166.cpurel +++|* JOB AND SYSTEM PAGE PARAMETERS FOR PROGRAMS
01304 M00S01167.cpurel +++|* WRITTEN IN HIGHER LEVEL LANGUAGES.
01305 M00S01168.cpurel +++| SPACE 4,30
01306 M00S01169.cpurel +++|*** COMMAND FORMAT.
01307 M00S01170.cpurel +++|*
01308 M00S01171.cpurel +++|* FORTRAN CALL -
01309 M00S01172.cpurel +++|*
01310 M00S01173.cpurel +++|* CALL GETPAGE(ARRAY)
01311 M00S01174.cpurel +++|*
01312 M00S01175.cpurel +++|* SYMPL CALL -
01313 M00S01176.cpurel +++|*
01314 M00S01177.cpurel +++|* GETPAGE(ARRAY);
01315 M00S01178.cpurel +++|*
01316 M00S01179.cpurel +++|*
01317 M00S01180.cpurel +++|* ENTRY (ARRAY) = A 6 WORD ARRAY TO RECEIVE THE RESPONSE.
01318 M00S01181.cpurel +++|*
01319 M00S01182.cpurel +++|* EXIT (ARRAY) = PAGE PARAMETERS (RIGHT JUSTIFIED).
01320 M00S01183.cpurel +++|* ARRAY(1) = JOB PRINT DENSITY ( 6 OR 8 ).
01321 M00S01184.cpurel +++|* ARRAY(2) = JOB PAGE SIZE ( 16 - 255 ).
01322 M00S01185.cpurel +++|* ARRAY(3) = JOB PAGE WIDTH ( 40 - 255 ).
01323 M00S01186.cpurel +++|* ARRAY(4) = SYSTEM PRINT DENSITY (6 OR 8).
01324 M00S01187.cpurel +++|* ARRAY(5) = SYSTEM PAGE SIZE (16-255).
01325 M00S01188.cpurel +++|* ARRAY(6) = SYSTEM PAGE WIDTH (40-255).
01326 M00S01189.cpurel +++|
01327 M00S01190.cpurel +++|
01328 M00S01191.cpurel +++| GETPAGE BSS 0
01329 M00S01192.cpurel +++| GPG SUBR ENTRY/EXIT
01330 M00S01193.cpurel +++| SB1 1
01331 M00S01194.cpurel +++| SB7 X1 SAVE PARAMETER BLOCK
01332 M00S01195.cpurel +++| GETPAGE GPGA GET PAGE PARAMETERS
01333 M00S01196.cpurel +++| SB2 B1
01334 M00S01197.cpurel +++| SA1 GPGA GET JOB PAGE PARAMETERS
01335 M00S01198.cpurel +++| GPG1 MX0 -4
01336 M00S01199.cpurel +++| LX1 0-28 POSITION PRINT DENSITY
01337 M00S01200.cpurel +++| BX6 -X0*X1
01338 M00S01201.cpurel +++| SA6 B7 SET PRINT DENSITY RESPONSE
01339 M00S01202.cpurel +++| MX0 -8
01340 M00S01203.cpurel +++| LX1 8 POSITION PAGE SIZE
01341 M00S01204.cpurel +++| BX6 -X0*X1
01342 M00S01205.cpurel +++| SA6 A6+B1 SET PAGE SIZE RESPONSE
01343 M00S01206.cpurel +++| LX1 8 POSITION PAGE WIDTH
01344 M00S01207.cpurel +++| BX6 -X0*X1
01345 M00S01208.cpurel +++| SA6 A6+B1 SET PAGE WIDTH RESPONSE
01346 M00S01209.cpurel +++| ZR B2,GPGX IF END OF PARAMETERS
01347 M00S01210.cpurel +++| SB2 B2-B1
01348 M00S01211.cpurel +++| SA1 A1+B1
01349 M00S01212.cpurel +++| SB7 A6+B1
01350 M00S01213.cpurel +++| EQ GPG1 GET SYSTEM PAGE PARAMETERS
01351 M00S01214.cpurel +++|
01352 M00S01215.cpurel +++|
01353 M00S01216.cpurel +++| GPGA BSS 2 *GETPAGE* RESPONSE BLOCK
01354 M00S01217.cpurel +++| SPACE 4,10
01355 M00S01218.cpurel +++| END
01356 M00S01219.cpurel +++| IDENT SETPAGE
01357 M00S01220.cpurel +++| ENTRY SETPAGE
01358 M00S01221.cpurel +++| SYSCOM B1
01359 M00S01222.cpurel +++| TITLE SETPAGE - SET PAGE PARAMETERS.
01360 M00S01223.cpurel +++|*COMMENT CPUREL - SET PAGE PARAMETERS.
Line S01224 Modification History
M01 (Removed by) 281l803
Seq # *Modification Id* Act
----------------------------+
01361 M01S01224.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1982.
Line S00008 Modification History
M01 (Added by) 281l803
Seq # *Modification Id* Act
----------------------------+
01362 M01S00008.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
01363 M00S01225.cpurel +++|*CALL COMCMAC
01364 M00S01226.cpurel +++| SETPAGE SPACE 4,10
01365 M00S01227.cpurel +++|*** SETPAGE - SET PAGE PARAMETERS.
01366 M00S01228.cpurel +++|*
01367 M00S01229.cpurel +++|* A. SKJOLDEBRAND. 82/11/21.
01368 M00S01230.cpurel +++| SPACE 4,10
01369 M00S01231.cpurel +++|*** *SETPAGE* PROVIDES AN INTERFACE TO ALLOW SETTING THE JOB
01370 M00S01232.cpurel +++|* PAGE PARAMETERS FOR PROGRAMS WRITTEN IN HIGHER LEVEL
01371 M00S01233.cpurel +++|* LANGUAGES.
01372 M00S01234.cpurel +++| SPACE 4,30
01373 M00S01235.cpurel +++|*** COMMAND FORMAT.
01374 M00S01236.cpurel +++|*
01375 M00S01237.cpurel +++|* FORTRAN CALL -
01376 M00S01238.cpurel +++|*
01377 M00S01239.cpurel +++|* CALL SETPAGE(ARRAY)
01378 M00S01240.cpurel +++|*
01379 M00S01241.cpurel +++|* SYMPL CALL -
01380 M00S01242.cpurel +++|*
01381 M00S01243.cpurel +++|* SETPAGE(ARRAY);
01382 M00S01244.cpurel +++|*
01383 M00S01245.cpurel +++|*
01384 M00S01246.cpurel +++|* ENTRY (ARRAY) = PAGE PARAMETERS (RIGHT JUSTIFIED).
01385 M00S01247.cpurel +++|* ARRAY(1) = JOB PRINT DENSITY ( 6 OR 8 ).
01386 M00S01248.cpurel +++|* ARRAY(2) = JOB PAGE SIZE ( 16 - 255 ).
01387 M00S01249.cpurel +++|* ARRAY(3) = JOB PAGE WIDTH ( 40 - 255 ).
01388 M00S01250.cpurel +++|*
01389 M00S01251.cpurel +++|* IF ARRAY(N) .LT. 0 CURRENT JOB VALUES WILL BE USED.
01390 M00S01252.cpurel +++|*
01391 M00S01253.cpurel +++|* EXIT PAGE SIZE PARAMETERS SET FOR JOB.
01392 M00S01254.cpurel +++|
01393 M00S01255.cpurel +++| SETPAGE BSS 0
01394 M00S01256.cpurel +++| SPG SUBR ENTRY/EXIT
01395 M00S01257.cpurel +++| SB1 1
01396 M00S01258.cpurel +++| SB7 X1+ SAVE PARAMETER BLOCK ADDRESS
01397 M00S01259.cpurel +++| GETPAGE SPGA GET CURRENT JOB VALUES
01398 M00S01260.cpurel +++| SA3 SPGA
01399 M00S01261.cpurel +++| RJ MPP MERGE USER AND CURRENT JOB VALUES
01400 M00S01262.cpurel +++| SPG1 SA6 SPGA
01401 M00S01263.cpurel +++| SETPAGE A6
01402 M00S01264.cpurel +++| EQ SPGX RETURN
01403 M00S01265.cpurel +++|
01404 M00S01266.cpurel +++|
01405 M00S01267.cpurel +++| SPGA BSS 2 RESPONSE BLOCK
01406 M00S01268.cpurel +++| MPP SPACE 4,15 *GETPAGE*/*SETPAGE*
01407 M00S01269.cpurel +++|** MPP - MERGE PAGE PARAMETERS.
01408 M00S01270.cpurel +++|*
01409 M00S01271.cpurel +++|* ENTRY (X3) = CURRENT JOB PAGE PARAMETERS.
01410 M00S01272.cpurel +++|* (B7) = ADDRESS OF USER LIST OF PAGE PARAMETERS.
01411 M00S01273.cpurel +++|*
01412 M00S01274.cpurel +++|* EXIT (X6) = *SETPAGE* REQUEST WORD.
01413 M00S01275.cpurel +++|*
01414 M00S01276.cpurel +++|* USES X - 0, 1, 2, 3, 6.
01415 M00S01277.cpurel +++|* A - 1, 2.
01416 M00S01278.cpurel +++|
01417 M00S01279.cpurel +++|
01418 M00S01280.cpurel +++| MPP SUBR ENTRY/EXIT
01419 M00S01281.cpurel +++| MX0 -4 MASK FOR PRINT DENSITY
01420 M00S01282.cpurel +++| LX3 0-28
01421 M00S01283.cpurel +++| SA1 B7 GET USER PRINT DENSITY
01422 M00S01284.cpurel +++| PL X1,MPP1 IF USER VALUE SPECIFIED
01423 M00S01285.cpurel +++| BX1 -X0*X3 USE CURRENT JOB PRINT DENSITY
01424 M00S01286.cpurel +++| MPP1 LX1 8
01425 M00S01287.cpurel +++| SA2 A1+B1 GET PAGE SIZE PARAMETER
01426 M00S01288.cpurel +++| LX3 8
01427 M00S01289.cpurel +++| MX0 -8
01428 M00S01290.cpurel +++| PL X2,MPP2 IF USER VALUE SPECIFIED
01429 M00S01291.cpurel +++| BX2 -X0*X3 USE CURRENT JOB PAGE SIZE
01430 M00S01292.cpurel +++| MPP2 BX6 X1+X2 MERGE PRINT DENSITY AND PAGE SIZE
01431 M00S01293.cpurel +++| LX3 8
01432 M00S01294.cpurel +++| SA1 A2+B1 GET PAGE WIDTH PARAMETER
01433 M00S01295.cpurel +++| LX6 8
01434 M00S01296.cpurel +++| PL X1,MPP3 IF USER VALUE SPECIFIED
01435 M00S01297.cpurel +++| BX1 -X0*X3 USE CURRENT JOB PAGE WIDTH
01436 M00S01298.cpurel +++| MPP3 BX6 X1+X6 ADD IN PAGE WIDTH
01437 M00S01299.cpurel +++| LX6 12D POSITION *SETPAGE* PARAMETER BLOCK
01438 M00S01300.cpurel +++| EQ MPPX RETURN
01439 M00S01301.cpurel +++| SPACE 4,10
01440 M00S01302.cpurel +++| END