cdc:nos2.source:opl.opl871:deck:cpurel
Deck CPUREL
7 Modifications
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.cpurel +++| IDENT CPU.CPM 00002 M01S00002.cpurel +++| ENTRY CPM= 00003 M01S00003.cpurel +++|*COMMENT CPUREL - CONTROL POINT MANAGER PROCESSOR.
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | cpurel |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00004 M02S00004.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1970. 00005 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00006 M01S00005.cpurel +++| TITLE CPU.CPM - CONTROL POINT MANAGER PROCESSOR. 00007 M01S00006.cpurel +++|*CALL COMCCPM 00008 M01S00007.cpurel +++| END 00009 M01S00008.cpurel +++| IDENT CPU.ECS 00010 M01S00009.cpurel +++| ENTRY REC= 00011 M01S00010.cpurel +++| ENTRY WEC= 00012 M01S00011.cpurel +++|*COMMENT CPUREL - ECS INTERPRETIVE MODE MACRO PROCESSORS.
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | cpurel |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00013 M02S00012.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1977. 00014 M01S00002.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00015 M01S00013.cpurel +++| TITLE CPU.ECS - ECS INTERPRETIVE MODE MACRO PROCESSORS. 00016 M01S00014.cpurel +++|*CALL COMCECM 00017 M01S00015.cpurel +++|*CALL COMCECS 00018 M01S00016.cpurel +++| END 00019 M01S00017.cpurel +++| IDENT CPU.LFM 00020 M01S00018.cpurel +++| ENTRY LFM= 00021 M01S00019.cpurel +++|*COMMENT CPUREL - LOCAL FILE MANAGER PROCESSOR.
| Line S00020 Modification History | |
|---|---|
M01 (Added by) | cpurel |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00022 M02S00020.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1970. 00023 M01S00003.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00024 M01S00021.cpurel +++| TITLE CPU.LFM - LOCAL FILE MANAGER PROCESSOR. 00025 M01S00022.cpurel +++|*CALL COMCLFM 00026 M01S00023.cpurel +++| END 00027 M01S00024.cpurel +++| IDENT CPU.OVL 00028 M01S00025.cpurel +++| ENTRY OVL= 00029 M01S00026.cpurel +++|*COMMENT CPUREL - OVERLAY LOAD PROCESSOR.
| Line S00027 Modification History | |
|---|---|
M01 (Added by) | cpurel |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00030 M02S00027.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1970. 00031 M01S00004.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00032 M01S00028.cpurel +++| TITLE CPU.OVL - OVERLAY LOAD PROCESSOR. 00033 M01S00029.cpurel +++|*CALL COMCOVL 00034 M01S00030.cpurel +++| END 00035 M01S00031.cpurel +++| IDENT CPU.PFM 00036 M01S00032.cpurel +++| ENTRY PFM= 00037 M01S00033.cpurel +++|*COMMENT CPUREL - PERMANENT FILE PROCESSOR.
| Line S00034 Modification History | |
|---|---|
M01 (Added by) | cpurel |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00038 M02S00034.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1970. 00039 M01S00005.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00040 M01S00035.cpurel +++| TITLE CPU.PFM - PERMANENT FILE PROCESSOR. 00041 M01S00036.cpurel +++|*CALL COMCPFM 00042 M01S00037.cpurel +++| END 00043 M01S00038.cpurel +++| IDENT PF 00044 M01S00039.cpurel +++| SST 00045 M01S00040.cpurel +++| ENTRY PF 00046 M01S00041.cpurel +++| SYSCOM B1 00047 M01S00042.cpurel +++| TITLE PF - PERMANENT FILE REQUEST PROCESSOR. 00048 M01S00043.cpurel +++|*COMMENT CPUREL - PERMANENT FILE REQUEST PROCESSOR.
| Line S00044 Modification History | |
|---|---|
M01 (Added by) | cpurel |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00049 M02S00044.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1980.
00050 M01S00006.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00051 M01S00045.cpurel +++| SPACE 4,20
00052 M01S00046.cpurel +++|*** PF - PERMANENT FILE REQUEST PROCESSOR.
00053 M01S00047.cpurel +++|*
00054 M01S00048.cpurel +++|* S. M. HATCH. 78/04/27. (RAYTHEON)
00055 M01S00049.cpurel +++|* D. W. BOSTROM. 80/05/30.
00056 M01S00050.cpurel +++| SPACE 4,10
00057 M01S00051.cpurel +++|*** *PF* PROVIDES AN INTERFACE TO *NOS* PERMANENT FILE COMMANDS
00058 M01S00052.cpurel +++|* FOR PROGRAMS WRITTEN IN HIGHER LEVEL LANGUAGES. THE USE
00059 M01S00053.cpurel +++|* OF KEYWORDS ALLOWS THE USER TO OMIT THOSE PARAMETERS WHICH
00060 M01S00054.cpurel +++|* ARE NOT NEEDED.
00061 M01S00055.cpurel +++| SPACE 4,10
00062 M01S00056.cpurel +++|*** CALLING SEQUENCE.
00063 M01S00057.cpurel +++|*
00064 M01S00058.cpurel +++|* *FORTRAN* CALL -
00065 M01S00059.cpurel +++|*
00066 M01S00060.cpurel +++|* CALL PF(REQ,LFN,PFN,KEY(1),OPT(1),...,KEY(N),OPT(N))
00067 M01S00061.cpurel +++|*
00068 M01S00062.cpurel +++|* *SYMPL* CALL -
00069 M01S00063.cpurel +++|*
00070 M01S00064.cpurel +++|* PF(REQ,LFN,PFN,KEY(1),OPT(1),...,KEY(N),OPT(N),0);
00071 M01S00065.cpurel +++|*
00072 M01S00066.cpurel +++|* IT IS REQUIRED THAT THE LAST PARAMETER IN A *SYMPL*
00073 M01S00067.cpurel +++|* CALL BE A ZERO, IN ORDER TO TERMINATE THE PARAMETER
00074 M01S00068.cpurel +++|* LIST PROPERLY. (THIS IS NOT MANDATORY IF THE *SYMPL*
00075 M01S00069.cpurel +++|* PROGRAM EITHER CONTAINS A *CONTROL FTNCALL*, OR IS
00076 M01S00070.cpurel +++|* COMPILED WITH THE *F* OPTION.)
00077 M01S00071.cpurel +++|*
00078 M01S00072.cpurel +++|*
00079 M01S00073.cpurel +++|* THE PARAMETERS CONSIST OF ORDER DEPENDENT MANDATORY
00080 M01S00074.cpurel +++|* PARAMETERS, FOLLOWED OPTIONALLY BY ORDER INDEPENDENT
00081 M01S00075.cpurel +++|* KEYWORD PAIRED PARAMETER STRINGS. KEYWORDS AND ALL
00082 M01S00076.cpurel +++|* OTHER DISPLAY CODE PARAMETERS ARE REQUIRED TO BE LEFT
00083 M01S00077.cpurel +++|* JUSTIFIED WITH ZERO OR BLANK FILL, OR ELSE IN *FTN5*
00084 M01S00078.cpurel +++|* CHARACTER FORMAT. OPTIONAL KEYWORD PAIRS CONSIST OF
00085 M01S00079.cpurel +++|* A KEYWORD FOLLOWED BY THE VALUE TO BE ASSOCIATED WITH
00086 M01S00080.cpurel +++|* THIS KEYWORD.
00087 M01S00081.cpurel +++|*
00088 M01S00082.cpurel +++|* MANDATORY ORDER DEPENDENT PARAMETERS.
00089 M01S00083.cpurel +++|*
00090 M01S00084.cpurel +++|* REQ - PERMANENT FILE REQUEST.
00091 M01S00085.cpurel +++|* THE FOLLOWING *PFM* REQUESTS ARE SUPPORTED -
00092 M01S00086.cpurel +++|* *APPEND*, *ATTACH*, *CHANGE*, *DEFINE*, *GET*,
00093 M01S00087.cpurel +++|* *PERMIT*, *PURGE*, *REPLACE*, AND *SAVE*.
00094 M01S00088.cpurel +++|*
00095 M01S00089.cpurel +++|* LFN - LOCAL FILE NAME OR *FORTRAN* UNIT NUMBER.
00096 M01S00090.cpurel +++|* IF *LFN* IS NONZERO AND THE UPPER 42 BITS ARE
00097 M01S00091.cpurel +++|* ZERO, THEN THE LOWER 18 BITS ARE ASSUMED TO
00098 M01S00092.cpurel +++|* CONTAIN AN INTEGER. THIS INTEGER IS CONVERTED
00099 M01S00093.cpurel +++|* TO DISPLAY CODE AND PREFIXED WITH THE CHARACTERS
00100 M01S00094.cpurel +++|* "TAPE" TO YIELD A *FORTRAN* FILE NAME.
00101 M01S00095.cpurel +++|* IF *LFN* EQUALS ZERO OR IS ALL BLANKS, THEN
00102 M01S00096.cpurel +++|* *LFN* = *PFN* IS ASSUMED.
00103 M01S00097.cpurel +++|*
00104 M01S00098.cpurel +++|* PFN - PERMANENT FILE NAME.
00105 M01S00099.cpurel +++|* IF *PFN* EQUALS ZERO OR IS ALL BLANKS, THEN
00106 M01S00100.cpurel +++|* *PFN* = *LFN* IS ASSUMED.
00107 M01S00101.cpurel +++|*
00108 M01S00102.cpurel +++|* OPTIONAL KEYWORD PARAMETERS.
00109 M01S00103.cpurel +++|*
00110 M01S00104.cpurel +++|* THE FOLLOWING PARAMETERS ARE SIMILAR IN MEANING TO
00111 M01S00105.cpurel +++|* THE CORRESPONDING OPTIONS ON *NOS* PERMANENT FILE
00112 M01S00106.cpurel +++|* CONTROL CARDS AND MACROS.
00113 M01S00107.cpurel +++|*
00114 M01S00108.cpurel +++|* "AC" - ALTERNATE CATLIST PERMISSION.
00115 M01S00109.cpurel +++|* "BR" - BACKUP REQUIREMENT.
00116 M01S00110.cpurel +++|* "CT" - FILE CATEGORY.
00117 M01S00111.cpurel +++|* "M" - FILE OR USER PERMISSION MODE.
00118 M01S00112.cpurel +++|* "PN" - PACK NAME.
00119 M01S00113.cpurel +++|* "PR" - PREFERRED RESIDENCE.
00120 M01S00114.cpurel +++|* "PW" - PASSWORD.
00121 M01S00115.cpurel +++|* "R" - RESIDENCE DEVICE TYPE.
00122 M01S00116.cpurel +++|* "RT" - REAL-TIME MODE.
00123 M01S00117.cpurel +++|* "S" - SIZE IN PRU-S, IN DISPLAY CODE. DECIMAL IS
00124 M01S00118.cpurel +++|* ASSUMED UNLESS A *B* POST RADIX IS USED TO
00125 M01S00119.cpurel +++|* INDICATE OCTAL.
00126 M01S00120.cpurel +++|* "UN" - USER NUMBER.
00127 M01S00121.cpurel +++|* "XD" - EXPIRATION DATE.
00128 M01S00122.cpurel +++|* "XT" - EXPIRATION TERM.
00129 M01S00123.cpurel +++|*
00130 M01S00124.cpurel +++|* THE FOLLOWING PARAMETERS DO NOT DIRECTLY CORRESPOND
00131 M01S00125.cpurel +++|* TO ANY OPTIONS ON *NOS* PERMANENT FILE CONTROL CARDS
00132 M01S00126.cpurel +++|* OR MACROS.
00133 M01S00127.cpurel +++|*
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 M01S00128.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.
00147 M01S00001.cpure14 +++|* "IP" - SETS THE INTERLOCK PROCESSING BIT IN THE FET.
00148 M01S00129.cpurel +++|* "IUP" - IGNORE UNNEEDED PARAMETERS.
00149 M01S00130.cpurel +++|* "NA" - INHIBITS ROLLOUT IF DIRECT FILE BUSY, AND
00150 M01S00131.cpurel +++|* PREVENTS ABORT ON ERROR CONDITIONS.
00151 M01S00132.cpurel +++|* "NF" - OPTIONAL MEANS OF SPECIFYING NEW FILE NAME
00152 M01S00133.cpurel +++|* ON *CHANGE* REQUEST. (SEE EXAMPLE BELOW.)
00153 M01S00134.cpurel +++|* "NONE" - USED TO NULLIFY SPECIFIC KEYWORDS.
00154 M01S00135.cpurel +++|* "OF" - OPTIONAL MEANS OF SPECIFYING OLD FILE NAME
00155 M01S00136.cpurel +++|* ON *CHANGE* REQUEST. (SEE EXAMPLE BELOW.)
00156 M01S00137.cpurel +++|* "RC" - RETURNS ERROR CODE IN INTEGER FORMAT AND
00157 M01S00138.cpurel +++|* PREVENTS ABORT ON ERROR CONDITIONS.
00158 M01S00139.cpurel +++|* "RRC" - RETURNS ERROR CODE IN REAL FORMAT AND
00159 M01S00140.cpurel +++|* PREVENTS ABORT ON ERROR CONDITIONS.
00160 M01S00141.cpurel +++|* "SR" - SPECIAL *PFM* REQUEST.
00161 M01S00142.cpurel +++|* = "CE" - CLEAR FILE ERROR CODE (*CHANGE*).
00162 M01S00143.cpurel +++|* = "CP" - RESET CHARGE/PROJECT NUMBERS
00163 M01S00144.cpurel +++|* (*CHANGE*).
00164 M01S00145.cpurel +++|* = "MR" - MASTER DEVICE RESIDENCE (*DEFINE*).
00165 M01S00146.cpurel +++|* = "IE" - IGNORE ERROR IDLE STATUS (ALL).
00166 M01S00147.cpurel +++|* VALID ONLY FOR *SSJ=* JOBS.
00167 M01S00148.cpurel +++|* = "FA" - FORCE FAST ATTACH OF FILE (*ATTACH*).
00168 M01S00149.cpurel +++|* VALID ONLY FOR *SSJ=* JOBS.
00169 M01S00150.cpurel +++|* = "NF" - FORCE NON-FAST ATTACH FILE (*ATTACH*).
00170 M01S00151.cpurel +++|* "SS" - SUBSYSTEM MODE OF INDIRECT FILE.
00171 M01S00152.cpurel +++|* "UC" - USER CONTROL WORD (59 BITS).
00172 M01S00153.cpurel +++|* "UP" - SETS THE USER PROCESSING BIT IN THE FET.
00173 M01S00154.cpurel +++|*
00174 M01S00155.cpurel +++|* EXAMPLES.
00175 M01S00156.cpurel +++|*
00176 M01S00157.cpurel +++|* CALL PF("GET",1,"PFILE","UN","USERNO","PW","STRING7")
00177 M01S00158.cpurel +++|* CALL PF ("DEFINE","LFILE","PFILE","CT","PU","M","W");
00178 M01S00159.cpurel +++|*
00179 M01S00160.cpurel +++|* SPECIAL FORMATS ARE USED FOR THE *CHANGE*, *PERMIT*,
00180 M01S00161.cpurel +++|* AND *PURGE* REQUESTS, E.G. -
00181 M01S00162.cpurel +++|*
00182 M01S00163.cpurel +++|* CALL PF ("CHANGE","NEWPFN","OLDPFN","BR","MD")
00183 M01S00164.cpurel +++|* CALL PF ("PERMIT","PFN","UN","USERNAM","M","R")
00184 M01S00165.cpurel +++|* CALL PF ("PURGE","PFN","RC",ERRCODE)
00185 M01S00166.cpurel +++|*
00186 M01S00167.cpurel +++|* NOTES.
00187 M01S00168.cpurel +++|*
00188 M01S00169.cpurel +++|* A KEYWORD VALUE PARAMETER IS REQUIRED TO FOLLOW EVERY
00189 M01S00170.cpurel +++|* KEYWORD, ALTHOUGH THE VALUES FOLLOWING SOME KEYWORDS,
00190 M01S00171.cpurel +++|* SUCH AS *NA* AND *RT*, ARE IGNORED.
00191 M01S00172.cpurel +++|*
00192 M01S00173.cpurel +++|* BEFORE ISSUING A *SAVE*, *REPLACE*, OR *APPEND* REQUEST
00193 M01S00174.cpurel +++|* THE USER MUST ENSURE THAT THE APPROPRIATE *CIO* BUFFER
00194 M01S00175.cpurel +++|* IS FLUSHED.
00195 M01S00176.cpurel +++| SPACE 4,10
00196 M01S00177.cpurel +++|*** ERROR PROCESSING.
00197 M01S00178.cpurel +++|*
00198 M01S00179.cpurel +++|* THE COMBINATION OF *RC*/*RRC* AND *NA* PARAMETERS USED
00199 M01S00180.cpurel +++|* DETERMINES THE TYPE OF ERROR PROCESSING DONE.
00200 M01S00181.cpurel +++|*
00201 M01S00182.cpurel +++|* 1. IF NEITHER *NA* NOR *RC*/*RRC* ARE SPECIFIED AND
00202 M01S00183.cpurel +++|* AN ERROR IS DETECTED BY PF OR *PFM*, THE ERROR
00203 M01S00184.cpurel +++|* MESSAGE IS WRITTEN TO THE USER-S DAYFILE AND THE
00204 M01S00185.cpurel +++|* PROGRAM IS ABORTED.
00205 M01S00186.cpurel +++|*
00206 M01S00187.cpurel +++|* 2. IF THE KEYWORD *RC*/*RRC* IS SPECIFIED AND AN
00207 M01S00188.cpurel +++|* ERROR OCCURS, THE *PFM* ERROR CODE IS PLACED
00208 M01S00189.cpurel +++|* IN THE APPROPRIATE RETURN CODE PARAMETER(S). A
00209 M01S00190.cpurel +++|* ZERO VALUE INDICATES SUCCESSFUL COMPLETION, AND
00210 M01S00191.cpurel +++|* A NEGATIVE VALUE IMPLIES A CALL ARGUMENT ERROR.
00211 M01S00192.cpurel +++|*
00212 M01S00193.cpurel +++|* 3. IF THE KEYWORD *NA* IS SPECIFIED AND THE *PFM*
00213 M01S00194.cpurel +++|* FUNCTION FAILS, CONTROL RETURNS TO THE CALLING
00214 M01S00195.cpurel +++|* PROGRAM, AFTER PLACING THE PF ERROR CODE IN THE
00215 M01S00196.cpurel +++|* *RC*/*RRC* PARAMETER (IF SPECIFIED) OR ISSUING
00216 M01S00197.cpurel +++|* A DAYFILE MESSAGE.
00217 M01S00198.cpurel +++|*
00218 M01S00199.cpurel +++|* 4. IF *NA* IS NOT SPECIFIED, AN *ATTACH* REQUEST FOR
00219 M01S00200.cpurel +++|* A DIRECT ACCESS FILE WHICH IS CURRENTLY BUSY WILL
00220 M01S00201.cpurel +++|* CAUSE THE JOB TO BE ROLLED OUT UNTIL THE FILE
00221 M01S00202.cpurel +++|* BECOMES AVAILABLE.
00222 M01S00203.cpurel +++| SPACE 4,10
00223 M01S00204.cpurel +++|*** DAYFILE MESSAGES.
00224 M01S00205.cpurel +++|*
00225 M01S00206.cpurel +++|* * PF NO.-1 INVALID PARAMETER - UNPAIRED.*
00226 M01S00207.cpurel +++|* A KEYWORD NOT FOLLOWED BY A KEYWORD VALUE WAS
00227 M01S00208.cpurel +++|* ENCOUNTERED.
00228 M01S00209.cpurel +++|*
00229 M01S00210.cpurel +++|* * PF NO.-1 INVALID PARAMETER - XXXXXXX.*
00230 M01S00211.cpurel +++|* AN INVALID KEYWORD OR KEYWORD VALUE WAS ENCOUNTERED.
00231 M01S00212.cpurel +++|*
00232 M01S00213.cpurel +++|* * PF NO.-XX CCCC...CCCC.*
00233 M01S00214.cpurel +++|* ERROR CODE AND MESSAGE RETURNED BY *PFM*.
00234 M01S00215.cpurel +++| SPACE 4,10
00235 M01S00216.cpurel +++| TITLE MACRO DEFINITIONS.
00236 M01S00217.cpurel +++|* COMMON DECKS.
00237 M01S00218.cpurel +++|
| Line S00219 Modification History | |
|---|---|
M01 (Added by) | cpurel |
M02 (Updated by) | cpure13 |
Seq # *Modification Id* Act ----------------------------+ 00238 M02S00219.cpure13 ---|*CALL COMCMAC 00239 M01S00001.cpure13 +++|*CALL COMCMAC 00240 M01S00220.cpurel +++|*CALL COMSMSP
| Line S00221 Modification History | |
|---|---|
M01 (Added by) | cpurel |
M02 (Updated by) | cpure13 |
Seq # *Modification Id* Act ----------------------------+ 00241 M02S00221.cpure13 ---|*CALL COMSPFM 00242 M01S00002.cpure13 +++|*CALL COMSPFM 00243 M01S00222.cpurel +++| PVALID SPACE 4,10 00244 M01S00223.cpurel +++|** PVALID - GENERATE EQUIVALENCES FOR PARAMETER VALIDATION. 00245 M01S00224.cpurel +++|* 00246 M01S00225.cpurel +++|* SYM PVALID (REQ1,REQ2,...,REQN) 00247 M01S00226.cpurel +++|* 00248 M01S00227.cpurel +++|* ENTRY *SYM* = SYMBOL TO REPRESENT VALID USES OF A 00249 M01S00228.cpurel +++|* PARAMETER. 00250 M01S00229.cpurel +++|* *REQ* = A *PFM* REQUEST FOR WHICH THE PARAMETER 00251 M01S00230.cpurel +++|* IS VALID. THE SYMBOL *CC_REQ* MUST BE 00252 M01S00231.cpurel +++|* DEFINED IN *COMSPFM*. 00253 M01S00232.cpurel +++|* 00254 M01S00233.cpurel +++|* NOTE THE VALUE OF *SYM* IS GENERATED BY SETTING A BIT 00255 M01S00234.cpurel +++|* CORRESPONDING TO EACH REQUEST SPECIFIED. 00256 M01S00235.cpurel +++| 00257 M01S00236.cpurel +++| 00258 M01S00237.cpurel +++| PURGMAC PVALID 00259 M01S00238.cpurel +++| 00260 M01S00239.cpurel +++| MACRO PVALID,SYM,REQ 00261 M01S00240.cpurel +++| MACREF PVALID 00262 M01S00241.cpurel +++| SYM SET 0 00263 M01S00242.cpurel +++| IRP REQ 00264 M01S00243.cpurel +++| REQ DECMIC CC_REQ-1 00265 M01S00244.cpurel +++| SYM SET SYM+1S"REQ" 00266 M01S00245.cpurel +++| PVALID ENDM 00267 M01S00246.cpurel +++| SPACE 4,10 00268 M01S00247.cpurel +++| ECHO 1,SYM=(CLLF,CLNA,CLNO,CLPF,CLPN,CLRC,CLRS,CLEM,CLIU) 00269 M01S00248.cpurel +++| SYM PVALID (SV,GT,PG,PM,RP,AP,DF,AT,CG) 00270 M01S00249.cpurel +++| CLAC PVALID (SV,DF,CG) 00271 M01S00250.cpurel +++| CLBR PVALID (SV,DF,CG) 00272 M01S00251.cpurel +++| CLCT PVALID (SV,DF,CG) 00273 M01S00002.cpure14 +++| CLIP PVALID (SV,GT,PG,PM,RP,AP,DF,AT,CG) 00274 M01S00252.cpurel +++| CLMD PVALID (SV,RP,DF,AT,CG,PM) 00275 M01S00253.cpurel +++| CLNF PVALID (CG) 00276 M01S00254.cpurel +++| CLOF PVALID (CG) 00277 M01S00255.cpurel +++| CLPR PVALID (SV,DF,CG) 00278 M01S00256.cpurel +++| CLPW PVALID (SV,GT,PG,RP,AP,DF,AT,CG)
| Line S00257 Modification History | |
|---|---|
M01 (Added by) | cpurel |
M02 (Updated by) | cpure14 |
Seq # *Modification Id* Act ----------------------------+ 00279 M02S00257.cpure14 ---| CLRT PVALID (AT,GT) 00280 M01S00003.cpure14 +++| CLRT PVALID (GT,AP,AT) 00281 M01S00258.cpurel +++| CLSP PVALID (DF) 00282 M01S00259.cpurel +++| CLSR PVALID (SV,GT,PG,PM,RP,AP,DF,AT,CG) 00283 M01S00260.cpurel +++| CLSS PVALID (SV,RP,CG) 00284 M01S00261.cpurel +++| CLUC PVALID (SV,GT,RP,CG,DF,AT) 00285 M01S00262.cpurel +++| CLUN PVALID (GT,PG,RP,AP,AT,PM) 00286 M01S00263.cpurel +++| CLUP PVALID (SV,GT,PG,PM,RP,AP,DF,AT,CG) 00287 M01S00264.cpurel +++| CLXD PVALID (SV,PM,DF,CG) 00288 M01S00265.cpurel +++| CLXT PVALID (SV,PM,DF,CG) 00289 M01S00266.cpurel +++| TREQ TITLE TABLE DEFINITIONS. 00290 M01S00267.cpurel +++| TREQ SPACE 4,10 00291 M01S00268.cpurel +++|** TREQ - TABLE OF PERMANENT FILE REQUEST CODES. 00292 M01S00269.cpurel +++|* 00293 M01S00270.cpurel +++|*T 42/7LCOMMAND,18/CODE
Figure
00294 M01S00271.cpurel +++| 00295 M01S00272.cpurel +++| 00296 M01S00273.cpurel +++| TREQ BSS 0 00297 M01S00274.cpurel +++| VFD 42/0LSAVE,18/CCSV SAVE 00298 M01S00275.cpurel +++| VFD 42/0LGET,18/CCGT GET 00299 M01S00276.cpurel +++| VFD 42/0LPURGE,18/CCPG PURGE 00300 M01S00277.cpurel +++| VFD 42/0LPERMIT,18/CCPM PERMIT 00301 M01S00278.cpurel +++| VFD 42/0LREPLACE,18/CCRP REPLACE 00302 M01S00279.cpurel +++| VFD 42/0LAPPEND,18/CCAP APPEND 00303 M01S00280.cpurel +++| VFD 42/0LDEFINE,18/CCDF DEFINE 00304 M01S00281.cpurel +++| VFD 42/0LATTACH,18/CCAT ATTACH 00305 M01S00282.cpurel +++| VFD 42/0LCHANGE,18/CCCG CHANGE 00306 M01S00283.cpurel +++| TREQL CON 0 00307 M01S00284.cpurel +++| TOPT SPACE 4,10 00308 M01S00285.cpurel +++|** TOPT - TABLE OF PERMANENT FILE ACCESS OPTIONS. 00309 M01S00286.cpurel +++|* 00310 M01S00287.cpurel +++|*T 12/OPTION,12/VALID,6/WORD,6/LBIT,6/LENGTH,18/TABLE
Figure
00311 M01S00288.cpurel +++|* 00312 M01S00289.cpurel +++|* OPTION = PF OPTION IN DISPLAY CODE. FOR KEYWORDS LONGER 00313 M01S00290.cpurel +++|* THAN TWO CHARACTERS, ONLY THE FIRST TWO 00314 M01S00291.cpurel +++|* CHARACTERS ARE USED. 00315 M01S00292.cpurel +++|* VALID = FIELD INDICATING VALID USES OF THIS PARAMETER, 00316 M01S00293.cpurel +++|* DEFINED USING THE *PVALID* MACRO. 00317 M01S00294.cpurel +++|* WORD = WORD IN *FET* CONTAINING THE FIELD TO BE SET. 00318 M01S00295.cpurel +++|* LBIT = LOWER BIT OF THE FIELD IN THE *FET*. 00319 M01S00296.cpurel +++|* LENGTH = LENGTH OF THE *FET* FIELD IN BITS. 00320 M01S00297.cpurel +++|* TABLE = ADDRESS OF TABLE, IF ANY, GIVING PERMISSABLE 00321 M01S00298.cpurel +++|* VALUES FOR THIS OPTION. 00322 M01S00299.cpurel +++|* = 0, INDICATES THAT THE VALUE SPECIFIED IS NOT 00323 M01S00300.cpurel +++|* VALIDATED BY PF. 00324 M01S00301.cpurel +++|* = 1, INDICATES THAT THE VALUE IS TO BE CONVERTED 00325 M01S00302.cpurel +++|* FROM DISPLAY CODE TO BINARY. 00326 M01S00303.cpurel +++|* = 2, INDICATES THAT THE VALUE SPECIFIED FOR THIS 00327 M01S00304.cpurel +++|* OPTION IS IGNORED. 00328 M01S00305.cpurel +++|* = 3, INDICATES THAT ENTIRE PARAMETER DESCRIPTION FOR 00329 M01S00306.cpurel +++|* PARAMETER IS SAVED, TO BE PROCESSED INDIVIDUALLY. 00330 M01S00307.cpurel +++|* = 4, INDICATES THAT THE VALUE SPECIFIED FOR THIS 00331 M01S00308.cpurel +++|* OPTION IS A RETURN ADDRESS. 00332 M01S00309.cpurel +++|* = NEGATIVE VALUE, INDICATES THAT THIS IS THE 00333 M01S00310.cpurel +++|* COMPLEMENT OF AN ADDRESS FOR A SPECIAL 00334 M01S00311.cpurel +++|* VALIDATION ROUTINE. 00335 M01S00312.cpurel +++| 00336 M01S00313.cpurel +++| 00337 M01S00314.cpurel +++| TOPT BSS 0 00338 M01S00315.cpurel +++| VFD 12/0LAC,12/CLAC,6/CFAP,6/46,6/02,18/TBAC 00339 M01S00316.cpurel +++| VFD 12/0LBR,12/CLBR,6/CFBR,6/54,6/03,18/TBRQ 00340 M01S00317.cpurel +++| VFD 12/0LCT,12/CLCT,6/CFCT,6/06,6/06,18/TCAT 00341 M01S00013.ns2568 +++| VFD 12/0LEL,12/CLEM,6/CFEL,6/00,6/18,18/1 00342 M01S00318.cpurel +++| VFD 12/0LEM,12/CLEM,6/CFEM,6/00,6/18,18/3 00343 M01S00004.cpure14 +++| VFD 12/0LIP,12/CLIP,6/0001,6/42,6/01,18/2 00344 M01S00319.cpurel +++| VFD 12/0LIU,12/CLIU,6/CFIU,6/00,6/60,18/4 00345 M01S00320.cpurel +++| VFD 12/0LLF,12/CLLF,6/CFSN,6/18,6/42,18/0 00346 M01S00321.cpurel +++| VFD 12/0LM,012/CLMD,6/CFMD,6/00,6/06,18/TMOD 00347 M01S00322.cpurel +++| VFD 12/0LNA,12/CLNA,6/CFNA,6/00,6/60,18/2 00348 M01S00323.cpurel +++| VFD 12/0LNF,12/CLNF,6/CFNF,6/18,6/42,18/0 00349 M01S00324.cpurel +++| VFD 12/0LNO,12/CLNO,6/CFNO,6/00,6/60,18/2 00350 M01S00325.cpurel +++| VFD 12/0LOF,12/CLOF,6/CFSN,6/18,6/42,18/0 00351 M01S00326.cpurel +++| VFD 12/0LPF,12/CLPF,6/CFPN,6/18,6/42,18/0 00352 M01S00327.cpurel +++| VFD 12/0LPN,12/CLPN,6/CFPK,6/18,6/42,18/0 00353 M01S00328.cpurel +++| VFD 12/0LPR,12/CLPR,6/CFPR,6/57,6/03,18/TPRS 00354 M01S00329.cpurel +++| VFD 12/0LPW,12/CLPW,6/CFPW,6/18,6/42,18/0
| Line S00330 Modification History | |
|---|---|
M01 (Added by) | cpurel |
M02 (Updated by) | cpure13 |
Seq # *Modification Id* Act ----------------------------+ 00355 M02S00330.cpure13 ---| VFD 12/0LR,012/CLRS,6/0001,6/48,6/12,18/TRES 00356 M01S00003.cpure13 +++| VFD 12/0LR,012/CLRS,6/0001,6/48,6/12,18/-PRD 00357 M01S00331.cpurel +++| VFD 12/0LRC,12/CLRC,6/CFRC,6/00,6/60,18/4 00358 M01S00332.cpurel +++| VFD 12/0LRR,12/CLRC,6/CFRR,6/00,6/60,18/4 00359 M01S00333.cpurel +++| VFD 12/0LRT,12/CLRT,6/0001,6/43,6/01,18/2
| Line S00334 Modification History | |
|---|---|
M01 (Added by) | cpurel |
M02 (Updated by) | cpure11 |
Seq # *Modification Id* Act ----------------------------+ 00360 M02S00334.cpure11 ---| VFD 12/0LS,012/CLSP,6/CFOU,6/00,6/18,18/1 00361 M01S00001.cpure11 +++| VFD 12/0LS,012/CLSP,6/CFOU,6/00,6/24,18/1 00362 M01S00335.cpurel +++| VFD 12/0LSR,12/CLSR,6/CFCT,6/12,6/06,18/TSRQ 00363 M01S00336.cpurel +++| VFD 12/0LSS,12/CLSS,6/CFSS,6/48,6/06,18/TSUB 00364 M01S00337.cpurel +++| VFD 12/0LUC,12/CLUC,6/CFCW,6/00,6/60,18/4 00365 M01S00338.cpurel +++| VFD 12/0LUN,12/CLUN,6/CFOU,6/18,6/42,18/0
| Line S00339 Modification History | |
|---|---|
M01 (Added by) | cpurel |
M02 (Updated by) | cpure13 |
Seq # *Modification Id* Act ----------------------------+ 00366 M02S00339.cpure13 ---| VFD 12/0LUP,12/CLUP,6/1,6/45,6/1,18/2 00367 M01S00004.cpure13 +++| VFD 12/0LUP,12/CLUP,6/0001,6/45,6/01,18/2 00368 M01S00340.cpurel +++| VFD 12/0LXD,12/CLXD,6/CFNF,6/0,6/18,18/-PXD 00369 M01S00341.cpurel +++| VFD 12/0LXT,12/CLXT,6/CFNF,6/0,6/18,18/-PXT 00370 M01S00342.cpurel +++| VFD 60/0 00371 M01S00343.cpurel +++| TBAC SPACE 4,10 00372 M01S00344.cpurel +++|** TBAC - TABLE OF ALTERNATE CATLIST PERMISSIONS. 00373 M01S00345.cpurel +++|* 00374 M01S00346.cpurel +++|*T 42/PERMISSION,18/CODE
Figure
00375 M01S00347.cpurel +++| 00376 M01S00348.cpurel +++| 00377 M01S00349.cpurel +++| TBAC BSS 0 00378 M01S00350.cpurel +++| VFD 42/0LN,18/ACNO ALTERNATE CATLIST NOT PERMITTED 00379 M01S00351.cpurel +++| VFD 42/0LY,18/ACYS ALTERNATE CATLIST PERMITTED 00380 M01S00352.cpurel +++| VFD 60/0 00381 M01S00353.cpurel +++| TBRQ SPACE 4,10 00382 M01S00354.cpurel +++|** TBRQ - TABLE OF BACKUP REQUIREMENT TYPES. 00383 M01S00355.cpurel +++|* 00384 M01S00356.cpurel +++|*T 42/REQUIREMENT,18/CODE
Figure
00385 M01S00357.cpurel +++| 00386 M01S00358.cpurel +++| 00387 M01S00359.cpurel +++| TBRQ BSS 0 00388 M01S00360.cpurel +++| VFD 42/0LN,018/BRNO NO BACKUP REQUIRED 00389 M01S00361.cpurel +++| VFD 42/0LY,018/BRAL BACKUP ALWAYS REQUIRED 00390 M01S00362.cpurel +++| VFD 42/0LMD,18/BRMD MEDIA DEPENDENT 00391 M01S00363.cpurel +++| VFD 60/0 00392 M01S00364.cpurel +++| TCAT SPACE 4,10 00393 M01S00365.cpurel +++|** TCAT - TABLE OF PERMANENT FILE CATEGORY TYPES. 00394 M01S00366.cpurel +++|* 00395 M01S00367.cpurel +++|*T 42/CATEGORY,18/CODE
Figure
00396 M01S00368.cpurel +++| 00397 M01S00369.cpurel +++| 00398 M01S00370.cpurel +++| TCAT BSS 0 00399 M01S00371.cpurel +++| VFD 42/0LPRIVATE,18/FCPR+40B PRIVATE 00400 M01S00372.cpurel +++| VFD 42/0LSPRIV,0018/FCSP+40B SEMI-PRIVATE 00401 M01S00373.cpurel +++| VFD 42/0LPUBLIC,018/FCPB+40B PUBLIC 00402 M01S00374.cpurel +++| VFD 42/0LP,00000018/FCPR+40B PRIVATE 00403 M01S00375.cpurel +++| VFD 42/0LS,00000018/FCSP+40B SEMI-PRIVATE 00404 M01S00376.cpurel +++| VFD 42/0LPU,0000018/FCPB+40B PUBLIC 00405 M01S00377.cpurel +++| VFD 60/0 00406 M01S00378.cpurel +++| TMOD SPACE 4,10 00407 M01S00379.cpurel +++|** TMOD - TABLE OF PERMANENT FILE PERMISSION TYPES. 00408 M01S00380.cpurel +++|* 00409 M01S00381.cpurel +++|*T 42/ACCESS,18/CODE
Figure
00410 M01S00382.cpurel +++| 00411 M01S00383.cpurel +++| 00412 M01S00384.cpurel +++| TMOD BSS 0 00413 M01S00385.cpurel +++| VFD 42/0LWRITE,0018/PTWR+40B WRITE 00414 M01S00386.cpurel +++| VFD 42/0LREAD,00018/PTRD+40B READ 00415 M01S00387.cpurel +++| VFD 42/0LAPPEND,018/PTAP+40B APPEND 00416 M01S00388.cpurel +++| VFD 42/0LEXECUTE,18/PTEX+40B EXECUTE 00417 M01S00389.cpurel +++| VFD 42/0LNULL,00018/PTNU+40B NULL 00418 M01S00390.cpurel +++| VFD 42/0LMODIFY,018/PTMD+40B MODIFY 00419 M01S00391.cpurel +++| VFD 42/0LREADMD,018/PTRM+40B READ ALLOW MODIFY 00420 M01S00392.cpurel +++| VFD 42/0LREADAP,018/PTRA+40B READ ALLOW APPEND 00421 M01S00393.cpurel +++| VFD 42/0LUPDATE,018/PTUP+40B UPDATE 00422 M01S00394.cpurel +++| VFD 42/0LREADUP,018/PTRU+40B READ ALLOW UPDATE 00423 M01S00395.cpurel +++| VFD 42/0LW,00000018/PTWR+40B WRITE 00424 M01S00396.cpurel +++| VFD 42/0LR,00000018/PTRD+40B READ 00425 M01S00397.cpurel +++| VFD 42/0LA,00000018/PTAP+40B APPEND 00426 M01S00398.cpurel +++| VFD 42/0LE,00000018/PTEX+40B EXECUTE 00427 M01S00399.cpurel +++| VFD 42/0LN,00000018/PTNU+40B NULL 00428 M01S00400.cpurel +++| VFD 42/0LM,00000018/PTMD+40B MODIFY 00429 M01S00401.cpurel +++| VFD 42/0LRM,0000018/PTRM+40B READ ALLOW MODIFY 00430 M01S00402.cpurel +++| VFD 42/0LRA,0000018/PTRA+40B READ ALLOW APPEND 00431 M01S00403.cpurel +++| VFD 42/0LU,00000018/PTUP+40B UPDATE 00432 M01S00404.cpurel +++| VFD 42/0LRU,0000018/PTRU+40B READ ALLOW UPDATE 00433 M01S00405.cpurel +++| VFD 60/0 00434 M01S00406.cpurel +++| TPRS SPACE 4,10 00435 M01S00407.cpurel +++|** TPRS - TABLE OF PREFERRED RESIDENCE TYPES. 00436 M01S00408.cpurel +++|* 00437 M01S00409.cpurel +++|*T 42/PREFERENCE,18/CODE
Figure
00438 M01S00410.cpurel +++| 00439 M01S00411.cpurel +++| 00440 M01S00412.cpurel +++| TPRS BSS 0 00441 M01S00413.cpurel +++| VFD 42/0LL,18/RSLK LOCKED TO DISK RESIDENCE 00442 M01S00414.cpurel +++| VFD 42/0LD,18/RSDS DISK RESIDENCE PREFERRED
| Line S00415 Modification History | |
|---|---|
M01 (Added by) | cpurel |
M02 (Updated by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 00443 M02S00415.253l688 ---| VFD 42/0LM,18/RSMS ALTERNATE STORAGE RESIDENCE PREFERRED
| Line S00416 Modification History | |
|---|---|
M01 (Added by) | cpurel |
M02 (Updated by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 00444 M02S00416.253l688 ---| VFD 42/0LN,18/RSNP NO PREFERENCE 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 M01S00417.cpurel +++| VFD 60/0 00449 M01S00418.cpurel +++| TRES SPACE 4,10 00450 M01S00419.cpurel +++|** TRES - TABLE OF PERMANENCE FILE RESIDENCE TYPES. 00451 M01S00420.cpurel +++|* 00452 M01S00421.cpurel +++|*T 42/DEVICE,18/CODE
Figure
00453 M01S00422.cpurel +++| 00454 M01S00423.cpurel +++| TBLM SPACE 4,10 00455 M01S00424.cpurel +++|** TBLM - DEFINE MACRO TO PRODUCE *TRES* TABLE. 00456 M01S00425.cpurel +++| 00457 M01S00426.cpurel +++| PURGMAC TBLM 00458 M01S00427.cpurel +++| TBLM MACRO EQ 00459 M01S00428.cpurel +++| VFD 42/0L_EQ,18/2R_EQ 00460 M01S00429.cpurel +++| TBLM ENDM 00461 M01S00430.cpurel +++| 00462 M01S00431.cpurel +++| 00463 M01S00432.cpurel +++| LIST G 00464 M01S00433.cpurel +++| TRES TBL "MSEQ" 00465 M01S00434.cpurel +++| VFD 60/0 00466 M01S00435.cpurel +++| LIST -G 00467 M01S00436.cpurel +++| TSRQ SPACE 4,10 00468 M01S00437.cpurel +++|** TSRQ - TABLE OF SPECIAL REQUEST TYPES. 00469 M01S00438.cpurel +++|* 00470 M01S00439.cpurel +++|*T 42/REQUEST,18/CODE
Figure
00471 M01S00440.cpurel +++| 00472 M01S00441.cpurel +++| 00473 M01S00442.cpurel +++| TSRQ BSS 0 00474 M01S00443.cpurel +++| VFD 42/0LCE,18/SRCE CLEAR ERROR STATUS 00475 M01S00444.cpurel +++| VFD 42/0LMR,18/SRMR FORCE MASTER DEVICE RESIDENCY 00476 M01S00445.cpurel +++| VFD 42/0LIE,18/SRIE IGNORE ERROR IDLE STATUS (*SSJ=*) 00477 M01S00446.cpurel +++| VFD 42/0LCP,18/SRCP RESET CHARGE/PROJECT NUMBERS 00478 M01S00447.cpurel +++| VFD 42/0LFA,18/SRFA FORCE FAST ATTACH OF FILE (*SSJ=*) 00479 M01S00448.cpurel +++| VFD 42/0LNF,18/SRNF FORCE NON-FAST ATTACH OF FILE 00480 M01S00449.cpurel +++| VFD 60/0 00481 M01S00450.cpurel +++| TSUB SPACE 4,10 00482 M01S00451.cpurel +++|** TSUB - TABLE OF PERMANENT FILE SUBSYSTEM TYPES. 00483 M01S00452.cpurel +++|* 00484 M01S00453.cpurel +++|*T 42/SUBSYSTEM,18/CODE
Figure
00485 M01S00454.cpurel +++| 00486 M01S00455.cpurel +++| 00487 M01S00456.cpurel +++| TSUB BSS 0 00488 M01S00457.cpurel +++| VFD 42/0LNULL,00018/40B+0 NULL 00489 M01S00458.cpurel +++| VFD 42/0LBASIC,0018/40B+1 BASIC 00490 M01S00459.cpurel +++| VFD 42/0LFORTRAN,18/40B+2 FTN5 00491 M01S00460.cpurel +++| VFD 42/0LFTNTS,0018/40B+3 FTNTS 00492 M01S00461.cpurel +++| VFD 42/0LEXECUTE,18/40B+4 EXECUTE 00493 M01S00462.cpurel +++| VFD 42/0LBATCH,0018/40B+5 BATCH 00494 M01S00463.cpurel +++| VFD 60/0 00495 M01S00464.cpurel +++| SPACE 4,10 00496 M01S00465.cpurel +++|* CONSTANTS AND DATA STORAGE. 00497 M01S00466.cpurel +++| 00498 M01S00467.cpurel +++| 00499 M01S00468.cpurel +++| FET FILEB FET,CFLM,(FET=CFLM),(EPR) 00500 M01S00469.cpurel +++| XRCW BSS 1 ADDRESS TO RETURN USER CONTROL WORD 00501 M01S00470.cpurel +++| XRRC BSS 1 ADDRESS TO RETURN INTEGER ERROR CODE 00502 M01S00471.cpurel +++| XRRR BSS 1 ADDRESS TO RETURN REAL ERROR CODE 00503 M01S00472.cpurel +++| XRNA BSS 1 *NA* FLAG 00504 M01S00473.cpurel +++| XRIU BSS 1 IGNORE PARAMETERS RETURN ADDRESS 00505 M01S00014.ns2568 +++| XREL BSS 1 ERROR MESSAGE LENGTH 00506 M01S00474.cpurel +++| XREM BSS 1 *EM* PARAMETER VALUE DESCRIPTOR 00507 M01S00475.cpurel +++| PFEC BSS 1 ADDRESS OF *PFM* ERROR CODE MESSAGES 00508 M01S00476.cpurel +++| PFMA BSS 4 ADDRESS TO RETURN *PFM* ERROR MESSAGES 00509 M01S00477.cpurel +++| NONE BSS 1 UNUSED *NONE* PARAMETER VALUE 00510 M01S00478.cpurel +++| ICTR BSS 1 IGNORED PARAMETERS COUNTER 00511 M01S00479.cpurel +++| EADR BSS 1 ERROR ADDRESS FOR IGNORED PARAMETER 00512 M01S00480.cpurel +++| CFCW EQU XRCW-FET 00513 M01S00481.cpurel +++| CFRC EQU XRRC-FET 00514 M01S00482.cpurel +++| CFRR EQU XRRR-FET 00515 M01S00483.cpurel +++| CFNA EQU XRNA-FET 00516 M01S00484.cpurel +++| CFIU EQU XRIU-FET 00517 M01S00015.ns2568 +++| CFEL EQU XREL-FET 00518 M01S00485.cpurel +++| CFEM EQU XREM-FET 00519 M01S00486.cpurel +++| CFNO EQU NONE-FET 00520 M01S00487.cpurel +++| ERRNZ PTWR CODE ASSUMES *PTWR* EQUALS ZERO 00521 M01S00488.cpurel +++| ERRNZ FCPR CODE ASSUMES *FCPR* EQUALS ZERO 00522 M01S00489.cpurel +++| FET1 BSS 0 DEFAULT VALUES FOR FET+1 00523 M01S00490.cpurel +++| VFD 15/0,1/1 ERROR PROCESSING BIT 00524 M01S00491.cpurel +++| VFD 20/0,6/CFLM-5 FET LENGTH 00525 M01S00492.cpurel +++| VFD 18/FET FIRST 00526 M01S00493.cpurel +++| 00527 M01S00494.cpurel +++| APLIST VFD 42/0,18/*+1S17 ADDRESS OF THE FORMAL PARAMETER LIST 00528 M01S00495.cpurel +++| TEMPA0 VFD 42/0,18/*+1S17 CONTENTS OF A0 FROM CALLING ROUTINE 00529 M01S00496.cpurel +++| ACCESS CON 0 CURRENT PERMANENT FILE REQUEST CODE 00530 M01S00497.cpurel +++| TEVENT CON 0 ROLLOUT ON TIME/EVENT DEPENDENCIES 00531 M01S00498.cpurel +++| OPTION CON 0 CURRENT OPTIONS PF *FET* CONFIGURATION 00532 M01S00499.cpurel +++| BLANKS DATA 10R 00533 M01S00500.cpurel +++| XDATE BSS 1 CURRENT DATE 00534 M01S00501.cpurel +++| XFLAG CON 0 *XD* AND *XT* PARAMETER FLAG 00535 M01S00502.cpurel +++| PF TITLE MAIN ROUTINE. 00536 M01S00503.cpurel +++| PF SPACE 4,10 00537 M01S00504.cpurel +++|** PF - MAIN ROUTINE FOR *NOS* PERMANENT FILE ACCESS. 00538 M01S00505.cpurel +++|* 00539 M01S00506.cpurel +++|* ENTRY (A1) = FWA OF FORMAL PARAMETER LIST. 00540 M01S00507.cpurel +++|* 00541 M01S00508.cpurel +++|* USES ALL (A0 PRESERVED). 00542 M01S00509.cpurel +++|* 00543 M01S00510.cpurel +++|* CALLS COD= CONVERT BINARY TO OCTAL DISPLAY. 00544 M01S00511.cpurel +++|* DXB= CONVERT DISPLAY CODE TO BINARY. 00545 M01S00512.cpurel +++|* GETFIT. GET PROGRAM *FIT* ADDRESS. 00546 M01S00513.cpurel +++|* LCP LOAD CHARACTER PARAMETER. 00547 M01S00514.cpurel +++|* ZFN ZERO FILE NAME. 00548 M01S00515.cpurel +++|* 00549 M01S00516.cpurel +++|* MACROS ABORT, MESSAGE, ROLLOUT, SYSTEM. 00550 M01S00517.cpurel +++| 00551 M01S00518.cpurel +++| 00552 M01S00519.cpurel +++| 00553 M01S00520.cpurel +++| TRACE VFD 42/0LPF,18/PF 00554 M01S00521.cpurel +++| PF EQ *+1S17 ENTRY/EXIT 00555 M01S00522.cpurel +++| 00556 M01S00523.cpurel +++|** PRE - PRESET INITIAL CONDITIONS AND STORAGE AREAS. 00557 M01S00524.cpurel +++| 00558 M01S00525.cpurel +++| PRE SB1 1 INITIALIZE (B1) AS ONE 00559 M01S00526.cpurel +++| SX6 A0 00560 M01S00527.cpurel +++| SX7 A1 00561 M01S00528.cpurel +++| SA6 TEMPA0 PRESERVE (A0) FOR EXIT 00562 M01S00529.cpurel +++| SA7 APLIST 00563 M01S00530.cpurel +++| SA0 A1 SET FWA APLIST POINTER 00564 M01S00531.cpurel +++| BX6 X6-X6 00565 M01S00532.cpurel +++| SA6 XFLAG INITIALIZE *XD*/*XT* FLAG 00566 M01S00533.cpurel +++| SA6 ICTR INITIALIZE UNUSED PARAMETER COUNTER 00567 M01S00534.cpurel +++| SA6 XRIU INITIALIZE *IUP* FLAG 00568 M01S00535.cpurel +++| SA6 XRRC INITIALIZE *RC* PARAMETER 00569 M01S00536.cpurel +++| SA6 XRRR INITIALIZE *RRC* PARAMETER 00570 M01S00016.ns2568 +++| SA6 XREL INITIALIZE *EL* PARAMETER 00571 M01S00537.cpurel +++| SA6 FET+CFSN 00572 M01S00538.cpurel +++| SB2 FET+2 00573 M01S00539.cpurel +++| SB3 NONE 00574 M01S00540.cpurel +++| PRE1 SA6 B2 CLEAR *FET*/MESSAGE AREA 00575 M01S00541.cpurel +++| SB2 B2+B1 00576 M01S00542.cpurel +++| NE B2,B3,PRE1 IF NOT COMPLETLY CLEAR 00577 M01S00543.cpurel +++| SA1 BLANKS 00578 M01S00544.cpurel +++| BX6 X1 00579 M01S00545.cpurel +++| SA6 PFMA BLANK FILL ERROR MESSAGE AREA 00580 M01S00546.cpurel +++| SA6 A6+B1 00581 M01S00547.cpurel +++| SA6 A6+B1 00582 M01S00548.cpurel +++| SA6 A6+B1 00583 M01S00549.cpurel +++| SX6 PFMA 00584 M01S00550.cpurel +++| SA6 FET+CFPW SET ADDRESS OF MESSAGE 00585 M01S00551.cpurel +++| SA1 FET1 RESET SECOND WORD OF FET 00586 M01S00552.cpurel +++| BX6 X1 00587 M01S00553.cpurel +++| SA6 FET+1 00588 M01S00554.cpurel +++| 00589 M01S00555.cpurel +++|** REQ - PROCESS PERMANENT FILE REQUEST. 00590 M01S00556.cpurel +++| 00591 M01S00557.cpurel +++| REQ SA1 A0 00592 M01S00558.cpurel +++| RJ LCP CHECK *PFM* REQUEST TYPE 00593 M01S00559.cpurel +++| RJ ZFN ZERO FILL ALPHANUMERIC 00594 M01S00560.cpurel +++| MX0 42 00595 M01S00561.cpurel +++| BX1 X6 00596 M01S00562.cpurel +++| SA2 TREQ 00597 M01S00563.cpurel +++| REQ1 ZR X2,PCE IF NOT A VALID REQUEST 00598 M01S00564.cpurel +++| BX3 X2-X1 00599 M01S00565.cpurel +++| BX3 X0*X3 00600 M01S00566.cpurel +++| BX6 -X0*X2 00601 M01S00567.cpurel +++| SA2 A2+B1 00602 M01S00568.cpurel +++| NZ X3,REQ1 IF NOT THIS TABLE ENTRY 00603 M01S00569.cpurel +++| SA6 ACCESS 00604 M01S00570.cpurel +++| SX1 X6-CCAT 00605 M01S00571.cpurel +++| ZR X1,REQ2 IF *ATTACH* REQUEST 00606 M01S00572.cpurel +++| SX1 X6-CCDF 00607 M01S00573.cpurel +++| ZR X1,REQ2 IF *DEFINE* REQUEST 00608 M01S00574.cpurel +++| SX1 X6-CCSV 00609 M01S00575.cpurel +++| ZR X1,REQ2 IF *SAVE* REQUEST 00610 M01S00576.cpurel +++| SX1 X6-CCPM 00611 M01S00577.cpurel +++| ZR X1,REQ2 IF *PERMIT* REQUEST 00612 M01S00578.cpurel +++| SX1 X6-CCRP 00613 M01S00579.cpurel +++| NZ X1,REQ3 IF NOT *REPLACE* REQUEST 00614 M01S00580.cpurel +++| REQ2 SX7 PTRD USE DEFAULT OF READ MODE 00615 M01S00581.cpurel +++| SA7 FET+CFMD 00616 M01S00582.cpurel +++| REQ3 SX1 X6-CCPG 00617 M01S00583.cpurel +++| ZR X1,PFN IF *PURGE* REQUEST 00618 M01S00584.cpurel +++| SX1 X6-CCPM 00619 M01S00585.cpurel +++| ZR X1,PFN IF *PERMIT* REQUEST 00620 M01S00586.cpurel +++| SX1 X6-CCCG 00621 M01S00587.cpurel +++| NZ X1,LFN IF NOT *CHANGE* REQUEST 00622 M01S00588.cpurel +++| MX6 42 DO NOT CHANGE PASSWORD UNLESS SPECIFIED 00623 M01S00589.cpurel +++| SA1 FET+CFPW 00624 M01S00590.cpurel +++| BX6 X6+X1 00625 M01S00591.cpurel +++| SA6 A1 00626 M01S00592.cpurel +++| SA0 A0+B1 00627 M01S00593.cpurel +++| SA1 A0 00628 M01S00594.cpurel +++| ZR X1,PCE IF NO NEW NAME DECLARED 00629 M01S00595.cpurel +++| RJ LCP 00630 M01S00596.cpurel +++| RJ ZFN ZERO FILL NEW FILE NAME 00631 M01S00597.cpurel +++| SA6 FET+CFNF 00632 M01S00598.cpurel +++| EQ PFN PROCESS PERMANENT FILE NAME PARAMETER 00633 M01S00599.cpurel +++| 00634 M01S00600.cpurel +++|** LFN - PROCESS LOCAL FILE NAME/UNIT DESIGNATOR. 00635 M01S00601.cpurel +++| 00636 M01S00602.cpurel +++| LFN SA0 A0+B1 GET LOCAL FILE PARAMETER 00637 M01S00603.cpurel +++| SA1 A0 00638 M01S00604.cpurel +++| ZR X1,PCE IF LFN WAS NOT DECLARED 00639 M01S00605.cpurel +++| RJ LCP 00640 M01S00606.cpurel +++| ZR X1,PFN IF LFN NOT PROGRAM FILE 00641 M01S00607.cpurel +++| MX0 42 00642 M01S00608.cpurel +++| BX2 X0*X1 00643 M01S00609.cpurel +++| NZ X2,LFN1 IF NAME DESIGNATED FILE 00644 M01S00610.cpurel +++| SA1 A0 00645 M01S00611.cpurel +++| MX0 1 00646 M01S00612.cpurel +++| BX1 X0+X1 00647 M01S00613.cpurel +++|+ RJ =YGETFIT. GET PROGRAM *FIT* ADDRESS 00648 M01S00614.cpurel +++|- VFD 12/0,18/TRACE 00649 M01S00615.cpurel +++| SA1 X1 00650 M01S00616.cpurel +++| MX0 42 00651 M01S00617.cpurel +++| BX1 X0*X1 00652 M01S00618.cpurel +++| LFN1 RJ ZFN DELETE BLANKS FROM NAME 00653 M01S00619.cpurel +++| SX1 B1 00654 M01S00620.cpurel +++| BX7 X6+X1 00655 M01S00621.cpurel +++| SA7 FET SET *FET* STATUS NOT BUSY 00656 M01S00622.cpurel +++| 00657 M01S00623.cpurel +++|** PFN - PROCESS PERMANENT FILE NAME PARAMETER. 00658 M01S00624.cpurel +++| 00659 M01S00625.cpurel +++| PFN SA0 A0+B1 GET PERMANENT FILE NAME 00660 M01S00626.cpurel +++| SA1 A0 00661 M01S00627.cpurel +++| ZR X1,PRO IF NO PFN SPECIFICATION 00662 M01S00628.cpurel +++| RJ LCP 00663 M01S00629.cpurel +++| RJ ZFN ZERO FILL ALPHANUMERIC 00664 M01S00630.cpurel +++| SA1 FET+CFPN 00665 M01S00631.cpurel +++| BX7 X6+X1 00666 M01S00632.cpurel +++| SA7 A1 00667 M01S00633.cpurel +++| 00668 M01S00634.cpurel +++|** OPT - PROCESS OPTIONAL PARAMETERS. 00669 M01S00635.cpurel +++| 00670 M01S00636.cpurel +++| OPT SA0 A0+B1 00671 M01S00637.cpurel +++| SA1 A0 00672 M01S00638.cpurel +++| ZR X1,PRO IF END OF USER OPTIONS 00673 M01S00639.cpurel +++| RJ LCP 00674 M01S00640.cpurel +++| ZR X1,PRO IF END OF USER OPTIONS 00675 M01S00641.cpurel +++| RJ ZFN 00676 M01S00642.cpurel +++| MX0 12 00677 M01S00643.cpurel +++| SA2 TOPT-1 00678 M01S00644.cpurel +++| OPT1 SA2 A2+B1 00679 M01S00645.cpurel +++| ZR X2,PCE IF NOT A VALID OPTION 00680 M01S00646.cpurel +++| BX3 X6-X2 00681 M01S00647.cpurel +++| BX3 X0*X3 00682 M01S00648.cpurel +++| NZ X3,OPT1 IF NO TABLE COMPARISION 00683 M01S00649.cpurel +++| SB2 X2 00684 M01S00650.cpurel +++| BX6 X2 00685 M01S00651.cpurel +++| SA6 OPTION 00686 M01S00652.cpurel +++| SA3 ACCESS 00687 M01S00653.cpurel +++| SB3 X3-24D 00688 M01S00654.cpurel +++| LX3 X2,-B3 00689 M01S00655.cpurel +++| PL X3,CIP IF NOT VALID KEYWORD 00690 M01S00656.cpurel +++| SA0 A0+B1 00691 M01S00657.cpurel +++| SA1 A0 00692 M01S00658.cpurel +++| ZR X1,PCE IF NOT PROPERLY PAIRED 00693 M01S00659.cpurel +++| SB4 2 00694 M01S00660.cpurel +++| NE B2,B4,OPT2 IF KEYWORD DATA NOT IGNORED 00695 M01S00661.cpurel +++| SX6 B1 00696 M01S00662.cpurel +++| EQ OPT4 IGNORE KEYWORD DATA 00697 M01S00663.cpurel +++| 00698 M01S00664.cpurel +++| OPT2 BX6 X1 00699 M01S00665.cpurel +++| SB4 B4+B4 00700 M01S00666.cpurel +++| EQ B2,B4,OPT4 IF RETURN CODE ADDRESS 00701 M01S00667.cpurel +++| SB4 B4-B1 00702 M01S00668.cpurel +++| EQ B2,B4,OPT7 IF OPTION IS TYPE 3 00703 M01S00669.cpurel +++| RJ LCP 00704 M01S00670.cpurel +++| RJ ZFN ZERO FILL ALPHANUMERIC 00705 M01S00671.cpurel +++| NG B2,OPT2.1 IF SPECIAL PROCESSOR REQUIRED 00706 M01S00672.cpurel +++| ZR B2,OPT4 IF KEYWORD DATA OPTION 00707 M01S00673.cpurel +++| NE B1,B2,OPT3 IF TABLE SEARCH OPTION 00708 M01S00674.cpurel +++| SB7 B1 00709 M01S00675.cpurel +++| BX5 X6 00710 M01S00676.cpurel +++| RJ =XDXB= DISPLAY CODE TO BINARY 00711 M01S00677.cpurel +++| EQ OPT4 SET FIELD IN *FET* 00712 M01S00678.cpurel +++| 00713 M01S00679.cpurel +++| OPT2.1 SB2 -B2 00714 M01S00680.cpurel +++| JP B2 JUMP TO SPECIAL COMMAND PROCESSOR 00715 M01S00681.cpurel +++| 00716 M01S00682.cpurel +++| OPT3 SA1 B2 00717 M01S00683.cpurel +++| MX0 42 00718 M01S00684.cpurel +++| ZR X1,PCE IF NOT PROPERLY PAIRED 00719 M01S00685.cpurel +++| BX3 X6-X1 00720 M01S00686.cpurel +++| BX3 X0*X3 00721 M01S00687.cpurel +++| SB2 B2+B1 00722 M01S00688.cpurel +++| NZ X3,OPT3 IF NOT THIS TABLE ITEM 00723 M01S00689.cpurel +++| SX6 X1 00724 M01S00690.cpurel +++| OPT4 SA2 OPTION *FET* CONFIGURATION DATA 00725 M01S00691.cpurel +++| SB2 X2 00726 M01S00692.cpurel +++| AX2 18 00727 M01S00693.cpurel +++| MX0 -6 00728 M01S00694.cpurel +++| BX3 -X0*X2 00729 M01S00695.cpurel +++| SB3 X3 (B3) = LENGTH OF FIELD 00730 M01S00696.cpurel +++| AX2 6 00731 M01S00697.cpurel +++| BX3 -X0*X2 00732 M01S00698.cpurel +++| SB4 X3 (B4) = LOWER BIT OF FIELD 00733 M01S00699.cpurel +++| AX2 6 00734 M01S00700.cpurel +++| BX2 -X0*X2 00735 M01S00701.cpurel +++| SA2 FET+X2 00736 M01S00702.cpurel +++| NZ B2,OPT5 IF NOT LEFT JUSTIFIED 00737 M01S00703.cpurel +++| LX6 B3,X6 00738 M01S00704.cpurel +++| OPT5 SB2 B3-59 MERGE OPTION IN FIELD 00739 M01S00705.cpurel +++| MX4 0 00740 M01S00706.cpurel +++| EQ B1,B2,OPT6 IF LENGTH .EQ. 60 00741 M01S00707.cpurel +++| MX4 1 00742 M01S00708.cpurel +++| AX4 -B2 GENERATE MASK 00743 M01S00709.cpurel +++| OPT6 LX4 B4 00744 M01S00710.cpurel +++| LX6 B4 00745 M01S00711.cpurel +++| BX2 X4*X2 00746 M01S00712.cpurel +++| BX6 -X4*X6 00747 M01S00713.cpurel +++| BX6 X2+X6 00748 M01S00714.cpurel +++| SA6 A2 00749 M01S00715.cpurel +++| EQ OPT CHECK FOR NEXT OPTION 00750 M01S00716.cpurel +++| 00751 M01S00717.cpurel +++| OPT7 SA2 OPTION GET FET OFFSET 00752 M01S00718.cpurel +++| AX2 30 00753 M01S00719.cpurel +++| MX0 -6 00754 M01S00720.cpurel +++| BX2 -X0*X2 00755 M01S00721.cpurel +++| SA6 FET+X2 STORE VARIABLE DESCRIPTOR WORD 00756 M01S00722.cpurel +++| EQ OPT CHECK FOR NEXT OPTION 00757 M01S00723.cpurel +++| 00758 M01S00724.cpurel +++| WFA ROLLOUT TEVENT WAIT FOR FILE AVAILABILITY 00759 M01S00725.cpurel +++| 00760 M01S00726.cpurel +++|** PRO - PROCESS THE PERMANENT FILE REQUEST. 00761 M01S00727.cpurel +++| 00762 M01S00728.cpurel +++| PRO SA1 ICTR CHECK UNUSED PARAMETERS COUNT 00763 M01S00729.cpurel +++| ZR X1,PRO0 IF NO UNUSED PARAMETERS 00764 M01S00730.cpurel +++| SA1 XRIU 00765 M01S00731.cpurel +++| NZ X1,PRO0 IF IGNORING UNUSED PARAMETERS 00766 M01S00732.cpurel +++| SA1 EADR 00767 M01S00733.cpurel +++| EQ PCE PROCESS INVALID PARAMETER ERROR 00768 M01S00734.cpurel +++| 00769 M01S00735.cpurel +++| PRO0 SA2 FET+CFSN 00770 M01S00736.cpurel +++| SA3 FET+CFPN 00771 M01S00737.cpurel +++| MX0 42 00772 M01S00738.cpurel +++| BX2 X0*X2 00773 M01S00739.cpurel +++| SA1 ACCESS FETCH REQUEST FUNCTION 00774 M01S00740.cpurel +++| NZ X2,PRO1 IF LOCAL NAME DECLARED 00775 M01S00741.cpurel +++| BX6 X0*X3 ASSUME *LFN* = *PFN* 00776 M01S00742.cpurel +++| SA6 A2 00777 M01S00743.cpurel +++| PRO1 SX2 X1-CCCG 00778 M01S00744.cpurel +++| ZR X2,PRO1.1 IF *CHANGE* COMMAND 00779 M01S00001.cpure12 +++| SX2 X1-CCPM 00780 M01S00002.cpure12 +++| ZR X2,PRO1.1 IF *PERMIT* COMMAND 00781 M01S00745.cpurel +++| SA2 FET+CFNF 00782 M01S00746.cpurel +++| MX6 -18 00783 M01S00747.cpurel +++| BX2 -X6*X2 EXTRACT EXPIRATION DATE 00784 M01S00748.cpurel +++| ZR X2,PRO1.1 IF NO EXPIRATION DATE 00785 M01S00749.cpurel +++| SA2 FET+CFPW 00786 M01S00750.cpurel +++| BX2 X6*X2 EXTRACT PASSWORD 00787 M01S00751.cpurel +++| ZR X2,PCE IF EXPIRATION DATE BUT NO PASSWORD 00788 M01S00752.cpurel +++| PRO1.1 SA2 XRCW CHECK FOR *UCW* OPTION 00789 M01S00753.cpurel +++| ZR X2,PRO3 IF NO USER CONTROL WORD 00790 M01S00754.cpurel +++| SX6 X1-CCSV 00791 M01S00755.cpurel +++| ZR X6,PRO2 IF SAVE *UCW* FUNCTION 00792 M01S00756.cpurel +++| SX6 X1-CCDF 00793 M01S00757.cpurel +++| NZ X6,PRO3 IF NOT *DEFINE* FUNCTION 00794 M01S00758.cpurel +++| PRO2 SA3 X2 00795 M01S00759.cpurel +++| SA6 A2 CLEAR ADDRESS OF *UCW* 00796 M01S00760.cpurel +++| MX6 1 00797 M01S00761.cpurel +++| BX6 X6+X3 00798 M01S00762.cpurel +++| SA6 FET+CFUC 00799 M01S00763.cpurel +++| PRO3 LX1 6 00800 M01S00764.cpurel +++| SYSTEM PFM,RECALL,FET,X1 00801 M01S00765.cpurel +++| SA1 XRCW 00802 M01S00766.cpurel +++| ZR X1,END IF NO USER CONTROL WORD 00803 M01S00767.cpurel +++| SA2 FET+CFUC 00804 M01S00768.cpurel +++| BX6 X2 00805 M01S00769.cpurel +++| NG X1,PRO4 IF ECS/LCM ADDRESS 00806 M01S00770.cpurel +++| SA6 X1 00807 M01S00771.cpurel +++| EQ END NOT ECS/LCM ADDRESS 00808 M01S00772.cpurel +++| 00809 M01S00773.cpurel +++| PRO4 WX6 X1 00810 M01S00774.cpurel +++| 00811 M01S00775.cpurel +++|** END - PROCESS ERRORS AND/OR EXIT PF ROUTINE. 00812 M01S00776.cpurel +++| 00813 M01S00777.cpurel +++| END SA1 FET CHECK REQUEST COMPLETION 00814 M01S00778.cpurel +++| LX1 60-10 00815 M01S00779.cpurel +++| MX0 -8 00816 M01S00780.cpurel +++| BX6 -X0*X1 00817 M01S00781.cpurel +++| END0 SB2 X6-/ERRMSG/FBS 00818 M01S00782.cpurel +++| SA2 XRNA 00819 M01S00783.cpurel +++| NZ B2,END1 IF DIRECT FILE NOT BUSY 00820 M01S00784.cpurel +++| ZR X2,WFA IF NO *NA* OPTION PRESENT 00821 M01S00785.cpurel +++| END1 SA3 XRRC 00822 M01S00786.cpurel +++| ZR X3,END3 IF NO *RC* RETURN ADDRESS 00823 M01S00787.cpurel +++| NG X3,END2 IF ECS/LCM ADDRESS 00824 M01S00788.cpurel +++| SA6 X3 00825 M01S00789.cpurel +++| EQ END3 NOT ECS/LCM ADDRESS 00826 M01S00790.cpurel +++| 00827 M01S00791.cpurel +++| END2 WX6 X3 00828 M01S00792.cpurel +++| END3 SA4 XRRR 00829 M01S00793.cpurel +++| ZR X4,END5 IF NO *RRC* RETURN ADDRESS 00830 M01S00794.cpurel +++| PX6 X6 00831 M01S00795.cpurel +++| NX6 X6 00832 M01S00796.cpurel +++| NG X4,END4 IF ECS/LCM ADDRESS 00833 M01S00797.cpurel +++| SA6 X4 00834 M01S00798.cpurel +++| EQ END5 NOT ECS/LCM ADDRESS 00835 M01S00799.cpurel +++| 00836 M01S00800.cpurel +++| END4 WX6 X4 00837 M01S00801.cpurel +++| END5 ZR X6,END8 IF FUNCTION SUCCESSFUL 00838 M01S00802.cpurel +++| BX7 X3+X4 00839 M01S00803.cpurel +++| NG X6,END6 IF DETECTED CALL ERRORS 00840 M01S00804.cpurel +++| NZ X7,END8 IF RETURN CODES PRESENT 00841 M01S00805.cpurel +++| BX1 X6 00842 M01S00806.cpurel +++| RJ =XCOD= BINARY TO OCTAL DISPLAY 00843 M01S00807.cpurel +++| SA1 PCEA 00844 M01S00808.cpurel +++| MX0 42 00845 M01S00809.cpurel +++| BX1 X0*X1 00846 M01S00810.cpurel +++| BX6 -X0*X6 00847 M01S00811.cpurel +++| BX6 X1+X6 00848 M01S00812.cpurel +++| SA6 PFEC 00849 M01S00813.cpurel +++| SA1 A6 00850 M01S00814.cpurel +++| END6 MESSAGE A1,3,R USER-S DAYFILE MESSAGE 00851 M01S00815.cpurel +++| SA1 XRNA 00852 M01S00816.cpurel +++| NZ X1,END8 IF *NA* SPECIFIED 00853 M01S00817.cpurel +++| SA1 XREM 00854 M01S00818.cpurel +++| ZR X1,END7 IF *EM* PARAMETER NOT SPECIFIED 00855 M01S00819.cpurel +++| RJ MCM MOVE *PFM* ERROR MESSAGE INTO *EM* 00856 M01S00820.cpurel +++| END7 ABORT 00857 M01S00821.cpurel +++| 00858 M01S00822.cpurel +++| END8 SA1 XRIU CHECK *IUP* 00859 M01S00823.cpurel +++| ZR X1,END9 IF NOT IGNORING UNUSED PARAMETERS 00860 M01S00824.cpurel +++| SA2 ICTR RETURN IGNORED PARAMETER COUNT 00861 M01S00825.cpurel +++| BX6 X2 00862 M01S00826.cpurel +++| SA6 X1 00863 M01S00827.cpurel +++| END9 SA1 XREM 00864 M01S00828.cpurel +++| ZR X1,END10 IF *EM* NOT SPECIFIED 00865 M01S00829.cpurel +++| RJ MCM MOVE *PFM* ERROR MESSAGE INTO *EM* 00866 M01S00830.cpurel +++| END10 SA2 TEMPA0 RESTORE (A0) ON ENTRY 00867 M01S00831.cpurel +++| SA0 X2 00868 M01S00832.cpurel +++| EQ PF EXIT 00869 M01S00833.cpurel +++| TITLE SUBROUTINES. 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 M01S00834.cpurel +++| LCP SPACE 4,10 00896 M01S00835.cpurel +++|** LCP - LOAD CHARACTER PARAMETER. 00897 M01S00836.cpurel +++|* 00898 M01S00837.cpurel +++|* ENTRY (X1) = PARAMETER ADDRESS. 00899 M01S00838.cpurel +++|* (B1) = 1. 00900 M01S00839.cpurel +++|* 00901 M01S00840.cpurel +++|* EXIT (X1) = PARAMETER VALUE. IF THE PARAMETER IS *FTN5* 00902 M01S00841.cpurel +++|* TYPE CHARACTER DATA, IT IS LEFT JUSTIFIED WITH 00903 M01S00842.cpurel +++|* ZERO FILL. 00904 M01S00843.cpurel +++|* 00905 M01S00844.cpurel +++|* USES X - 0, 1, 2, 3. 00906 M01S00845.cpurel +++|* A - 1, 3. 00907 M01S00846.cpurel +++|* B - 4, 5, 6. 00908 M01S00847.cpurel +++| 00909 M01S00848.cpurel +++| LCP EQ *+1S17 ENTRY/EXIT 00910 M01S00849.cpurel +++| LX1 30 EXTRACT CHARACTER LENGTH 00911 M01S00850.cpurel +++| SB4 X1 00912 M01S00851.cpurel +++| ZR B4,LCP6 IF NOT *FTN5* CHARACTER DATA 00913 M01S00852.cpurel +++| LX1 6 EXTRACT CHARACTER POSITION 00914 M01S00853.cpurel +++| MX0 -6 00915 M01S00854.cpurel +++| BX3 -X0*X1 00916 M01S00855.cpurel +++| LX1 24 GET FIRST WORD OF PARAMETER 00917 M01S00856.cpurel +++| MX0 -25 00918 M01S00857.cpurel +++| LX0 -1 00919 M01S00858.cpurel +++| BX1 -X0*X1 00920 M01S00859.cpurel +++| NG X1,LCP1 IF ECS/LCM ADDRESS 00921 M01S00860.cpurel +++| SA2 X1 00922 M01S00861.cpurel +++| EQ LCP2 NOT ECS/LCM ADDRESS 00923 M01S00862.cpurel +++| 00924 M01S00863.cpurel +++| LCP1 RX2 X1 00925 M01S00864.cpurel +++| LCP2 SB6 X3 (B6) = CHARACTER POSITION 00926 M01S00865.cpurel +++| SX0 B1 INCREMENT PARAMETER ADDRESS 00927 M01S00866.cpurel +++| IX1 X1+X0 00928 M01S00867.cpurel +++| MX0 0 00929 M01S00868.cpurel +++| ZR B6,LCP3 IF POSITION .EQ. ZERO 00930 M01S00869.cpurel +++| SB5 B6+B6 CALCULATE BIT POSITION OF STRING 00931 M01S00870.cpurel +++| SB6 B5+B5 00932 M01S00871.cpurel +++| SB6 B5+B6 (B6) = BIT POSITION 00933 M01S00872.cpurel +++| MX0 1 EXTRACT STRING FROM FIRST WORD 00934 M01S00873.cpurel +++| SB5 B6-B1 00935 M01S00874.cpurel +++| AX0 B5 00936 M01S00875.cpurel +++| BX2 -X0*X2 00937 M01S00876.cpurel +++| LX2 B6 00938 M01S00877.cpurel +++| LCP3 NG X1,LCP4 IF ECS/LCM ADDRESS 00939 M01S00878.cpurel +++| SA1 X1 00940 M01S00879.cpurel +++| EQ LCP5 NOT ECS/LCM ADDRESS 00941 M01S00880.cpurel +++| 00942 M01S00881.cpurel +++| LCP4 RX1 X1 00943 M01S00882.cpurel +++| LCP5 BX1 X0*X1 EXTRACT STRING FROM SECOND WORD 00944 M01S00883.cpurel +++| LX1 B6 00945 M01S00884.cpurel +++| BX1 X1+X2 MERGE STRINGS 00946 M01S00885.cpurel +++| SB5 10 00947 M01S00886.cpurel +++| GE B4,B5,LCP IF LENGTH .GE. 10, RETURN 00948 M01S00887.cpurel +++| SB5 B4+B4 CALCULATE BIT LENGTH OF STRING 00949 M01S00888.cpurel +++| SB6 B5+B5 00950 M01S00889.cpurel +++| SB6 B5+B6 00951 M01S00890.cpurel +++| SB6 B6-B1 (B6) = BIT LENGTH - 1 00952 M01S00891.cpurel +++| MX2 1 ZERO FILL PARAMETER 00953 M01S00892.cpurel +++| AX2 B6 00954 M01S00893.cpurel +++| BX1 X2*X1 00955 M01S00894.cpurel +++| EQ LCP RETURN 00956 M01S00895.cpurel +++| 00957 M01S00896.cpurel +++| LCP6 LX1 -30 00958 M01S00897.cpurel +++| NG X1,LCP7 IF ECS/LCM ADDRESS 00959 M01S00898.cpurel +++| SA1 X1 00960 M01S00899.cpurel +++| EQ LCP RETURN 00961 M01S00900.cpurel +++| 00962 M01S00901.cpurel +++| LCP7 RX1 X1 00963 M01S00902.cpurel +++| EQ LCP RETURN 00964 M01S00903.cpurel +++| 00965 M01S00904.cpurel +++| MCM SPACE 4,15
| Line S00905 Modification History | |
|---|---|
M01 (Added by) | cpurel |
M02 (Updated by) | cpure13 |
Seq # *Modification Id* Act ----------------------------+ 00966 M02S00905.cpure13 ---|** MCM - MOVE CHARACTER MESSAGE 00967 M01S00030.cpure13 +++|** MCM - MOVE CHARACTER MESSAGE. 00968 M01S00906.cpurel +++|* 00969 M01S00907.cpurel +++|* ENTRY (X1) = FTN5 DESCRIPTOR OF VARIABLE TO RECEIVE MESSAGE. 00970 M01S00908.cpurel +++|* BITS 47-30 = VARIABLE LENGTH, IN CHARACTERS. 00971 M01S00909.cpurel +++|* VALUE IS ZERO IF NOT CHARACTER VARIABLE. 00972 M01S00910.cpurel +++|* BITS 27-24 = BEGINNING CHARACTER POSITION, 00973 M01S00911.cpurel +++|* 0 BEING LEFTMOST CHARACTER. 00974 M01S00912.cpurel +++|* BITS 23-0 = FIRST WORD ADDRESS OF VARIABLE. 00975 M01S00913.cpurel +++|* 00976 M01S00914.cpurel +++|* 00977 M01S00915.cpurel +++|* EXIT MESSAGE MOVED TO VARIABLE. 00978 M01S00916.cpurel +++|* 00979 M01S00917.cpurel +++|* USES X - ALL. 00980 M01S00918.cpurel +++|* A - 2, 3, 4, 6. 00981 M01S00919.cpurel +++|* B - 5, 6, 7. 00982 M01S00920.cpurel +++| 00983 M01S00921.cpurel +++| 00984 M01S00922.cpurel +++| MCM EQ *+1S17 ENTRY/EXIT 00985 M01S00923.cpurel +++| SA2 X1 VALUE OF VARIABLE 00986 M01S00924.cpurel +++| LX1 30 00987 M01S00925.cpurel +++| SB5 X1 CHARACTER LENGTH OF VARIABLE 00988 M01S00926.cpurel +++| GT B5,B0,MCM1 IF CHARACTER LENGTH PRESENT
| Line S00927 Modification History | |
|---|---|
M01 (Added by) | cpurel |
M02 (Updated by) | ns2568 |
Seq # *Modification Id* Act ----------------------------+ 00989 M02S00927.ns2568 ---| SB5 10 SET CHARACTER LENGTH
| Line S00928 Modification History | |
|---|---|
M01 (Added by) | cpurel |
M02 (Updated by) | ns2568 |
Seq # *Modification Id* Act ----------------------------+ 00990 M02S00928.ns2568 ---| SX0 B0 SET BEGINNING CHARACTER PROSITION (BCP)
| Line S00929 Modification History | |
|---|---|
M01 (Added by) | cpurel |
M02 (Updated by) | ns2568 |
Seq # *Modification Id* Act ----------------------------+ 00991 M02S00929.ns2568 ---| LX1 6 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 M01S00930.cpurel +++| EQ MCM2 CONTINUE 00998 M01S00931.cpurel +++| 00999 M01S00932.cpurel +++| MCM1 LX1 6 01000 M01S00933.cpurel +++| MX0 -6 01001 M01S00934.cpurel +++| BX0 -X0*X1 BEGINNING CHARACTER POSITION 01002 M01S00935.cpurel +++| MCM2 SA3 PFMA GET *PFM* MESSAGE 01003 M01S00936.cpurel +++| SA1 BLANKS 01004 M01S00937.cpurel +++| BX1 X1-X3 01005 M01S00938.cpurel +++| ZR X1,MCM IF BLANK MESSAGE 01006 M01S00939.cpurel +++| SB6 40 MAXIMUM MESSAGE LENGTH 01007 M01S00940.cpurel +++| GT B6,B5,MCM3 IF NOT TOO LONG 01008 M01S00941.cpurel +++| SB5 B6 RESET LENGTH TO MAXIMUM 01009 M01S00942.cpurel +++| MCM3 SB6 X0 CALCULATE BIT POSITION (6*BCP) 01010 M01S00943.cpurel +++| SB7 B6+B6 01011 M01S00944.cpurel +++| SB6 B7+B7 01012 M01S00945.cpurel +++| SB6 B6+B7 BIT POSITON 01013 M01S00946.cpurel +++| SB7 60 01014 M01S00947.cpurel +++| SB6 B7-B6 SHIFT COUNT FOR MASK 01015 M01S00948.cpurel +++| SB7 B0 BCP FOR *PFM* MESSAGE 01016 M01S00949.cpurel +++| MX1 6 01017 M01S00950.cpurel +++| LX0 B6,X1 POSITION MASK FOR DESTINATION WORD 01018 M01S00951.cpurel +++| BX6 X2 ORIGINAL VALUE OF VARIABLE 01019 M01S00952.cpurel +++| SA4 BLANKS 01020 M01S00953.cpurel +++| BX4 X4*X1 SET BLANK CHARACTER 01021 M01S00954.cpurel +++| MCM4 BX5 X1*X3 GET NEW CHARACTER 01022 M01S00955.cpurel +++| BX7 X5 01023 M01S00956.cpurel +++| NZ X7,MCM5 IF NOT 00 CHARACTER 01024 M01S00957.cpurel +++| BX5 X4 REPLACE WITH BLANK 01025 M01S00958.cpurel +++| MCM5 BX6 -X0*X6 REMOVE OLD CHARACTER 01026 M01S00959.cpurel +++| LX5 B6,X5 POSITION SOURCE CHARACTER 01027 M01S00960.cpurel +++| BX6 X5+X6 ADD CHARACTER TO DESTINATION WORD 01028 M01S00961.cpurel +++| SB5 B5-B1 01029 M01S00962.cpurel +++| ZR B5,MCM9 IF DONE 01030 M01S00963.cpurel +++| LX1 -6 01031 M01S00964.cpurel +++| LX4 -6 POSITION MASKS FOR NEXT CHARACTER 01032 M01S00965.cpurel +++| NG X1,MCM7 IF END OF SOURCE WORD 01033 M01S00966.cpurel +++| MCM6 LX0 -6 01034 M01S00967.cpurel +++| NG X0,MCM8 IF END OF DESTINATION WORD 01035 M01S00968.cpurel +++| EQ MCM4 CONTINUE WITH NEXT CHARACTER 01036 M01S00969.cpurel +++| 01037 M01S00970.cpurel +++| MCM7 SA3 A3+B1 FETCH NEXT SOURCE WORD 01038 M01S00971.cpurel +++| EQ MCM6 CHECK DESTINATION WORD 01039 M01S00972.cpurel +++| 01040 M01S00973.cpurel +++| MCM8 SA6 A2 REPLACE UPDATED DESTINATION WORD 01041 M01S00974.cpurel +++| SA2 A2+B1 GET NEXT DESTINATION WORD 01042 M01S00975.cpurel +++| BX6 X2 01043 M01S00976.cpurel +++| EQ MCM4 CONTINUE WITH NEXT CHARACTER 01044 M01S00977.cpurel +++| 01045 M01S00978.cpurel +++| MCM9 SA6 A2 REPLACE LAST DESTINATION WORD 01046 M01S00979.cpurel +++| EQ MCM RETURN
| Line S00980 Modification History | |
|---|---|
M01 (Added by) | cpurel |
M02 (Updated by) | cpure13 |
Seq # *Modification Id* Act ----------------------------+ 01047 M02S00980.cpure13 ---| CIP SPACE 4,10
| Line S00981 Modification History | |
|---|---|
M01 (Added by) | cpurel |
M02 (Updated by) | cpure13 |
Seq # *Modification Id* Act ----------------------------+ 01048 M02S00981.cpure13 ---|** CIP - COUNT IGNORED PARAMETERS.
| Line S00982 Modification History | |
|---|---|
M01 (Added by) | cpurel |
M02 (Updated by) | cpure13 |
Seq # *Modification Id* Act ----------------------------+ 01049 M02S00982.cpure13 ---|*
| Line S00983 Modification History | |
|---|---|
M01 (Added by) | cpurel |
M02 (Updated by) | cpure13 |
Seq # *Modification Id* Act ----------------------------+ 01050 M02S00983.cpure13 ---|* ENTRY (X1) = PARAMETER IGNORED (IN DISPLAY CODE).
| Line S00984 Modification History | |
|---|---|
M01 (Added by) | cpurel |
M02 (Updated by) | cpure13 |
Seq # *Modification Id* Act ----------------------------+ 01051 M02S00984.cpure13 ---|* (A0) = ADDRESS OF CURRENT PARAMETER.
| Line S00985 Modification History | |
|---|---|
M01 (Added by) | cpurel |
M02 (Updated by) | cpure13 |
Seq # *Modification Id* Act ----------------------------+ 01052 M02S00985.cpure13 ---|*
| Line S00986 Modification History | |
|---|---|
M01 (Added by) | cpurel |
M02 (Updated by) | cpure13 |
Seq # *Modification Id* Act ----------------------------+ 01053 M02S00986.cpure13 ---|* EXIT (X1) = VALUE OF PARAMETER SKIPPED.
| Line S00987 Modification History | |
|---|---|
M01 (Added by) | cpurel |
M02 (Updated by) | cpure13 |
Seq # *Modification Id* Act ----------------------------+ 01054 M02S00987.cpure13 ---|*
| Line S00988 Modification History | |
|---|---|
M01 (Added by) | cpurel |
M02 (Updated by) | cpure13 |
Seq # *Modification Id* Act ----------------------------+ 01055 M02S00988.cpure13 ---|* USES X - 1, 6.
| Line S00989 Modification History | |
|---|---|
M01 (Added by) | cpurel |
M02 (Updated by) | cpure13 |
Seq # *Modification Id* Act ----------------------------+ 01056 M02S00989.cpure13 ---|* A - 0, 1, 6.
| Line S00990 Modification History | |
|---|---|
M01 (Added by) | cpurel |
M02 (Updated by) | cpure13 |
Seq # *Modification Id* Act ----------------------------+ 01057 M02S00990.cpure13 ---|
| Line S00991 Modification History | |
|---|---|
M01 (Added by) | cpurel |
M02 (Updated by) | cpure13 |
Seq # *Modification Id* Act ----------------------------+ 01058 M02S00991.cpure13 ---|
| Line S00992 Modification History | |
|---|---|
M01 (Added by) | cpurel |
M02 (Updated by) | cpure13 |
Seq # *Modification Id* Act ----------------------------+ 01059 M02S00992.cpure13 ---|
| Line S00993 Modification History | |
|---|---|
M01 (Added by) | cpurel |
M02 (Updated by) | cpure13 |
Seq # *Modification Id* Act ----------------------------+ 01060 M02S00993.cpure13 ---| CIP BX6 X1 SAVE PARAMETER
| Line S00994 Modification History | |
|---|---|
M01 (Added by) | cpurel |
M02 (Updated by) | cpure13 |
Seq # *Modification Id* Act ----------------------------+ 01061 M02S00994.cpure13 ---| SA6 EADR
| Line S00995 Modification History | |
|---|---|
M01 (Added by) | cpurel |
M02 (Updated by) | cpure13 |
Seq # *Modification Id* Act ----------------------------+ 01062 M02S00995.cpure13 ---| SA1 ICTR REPLACE NEW VALUE
| Line S00996 Modification History | |
|---|---|
M01 (Added by) | cpurel |
M02 (Updated by) | cpure13 |
Seq # *Modification Id* Act ----------------------------+ 01063 M02S00996.cpure13 ---| SX6 X1+B1 INCREMENT COUNTER
| Line S00997 Modification History | |
|---|---|
M01 (Added by) | cpurel |
M02 (Updated by) | cpure13 |
Seq # *Modification Id* Act ----------------------------+ 01064 M02S00997.cpure13 ---| SA6 A1
| Line S00998 Modification History | |
|---|---|
M01 (Added by) | cpurel |
M02 (Updated by) | cpure13 |
Seq # *Modification Id* Act ----------------------------+ 01065 M02S00998.cpure13 ---| SA0 A0+B1
| Line S00999 Modification History | |
|---|---|
M01 (Added by) | cpurel |
M02 (Updated by) | cpure13 |
Seq # *Modification Id* Act ----------------------------+ 01066 M02S00999.cpure13 ---| SA1 A0 GET NEXT PARAMETER VALUE
| Line S01000 Modification History | |
|---|---|
M01 (Added by) | cpurel |
M02 (Updated by) | cpure13 |
Seq # *Modification Id* Act ----------------------------+ 01067 M02S01000.cpure13 ---| ZR X1,PCE IF AT END OF PARAMETER LIST
| Line S01001 Modification History | |
|---|---|
M01 (Added by) | cpurel |
M02 (Updated by) | cpure13 |
Seq # *Modification Id* Act ----------------------------+ 01068 M02S01001.cpure13 ---| EQ OPT CHECK FOR NEXT OPTION
| Line S01002 Modification History | |
|---|---|
M01 (Added by) | cpurel |
M02 (Updated by) | cpure13 |
Seq # *Modification Id* Act ----------------------------+ 01069 M02S01002.cpure13 ---| ZFN SPACE 4,10
| Line S01003 Modification History | |
|---|---|
M01 (Added by) | cpurel |
M02 (Updated by) | cpure13 |
Seq # *Modification Id* Act ----------------------------+ 01070 M02S01003.cpure13 ---|** ZFN - DELETE TRAILING BLANKS FROM WORD.
| Line S01004 Modification History | |
|---|---|
M01 (Added by) | cpurel |
M02 (Updated by) | cpure13 |
Seq # *Modification Id* Act ----------------------------+ 01071 M02S01004.cpure13 ---|*
| Line S01005 Modification History | |
|---|---|
M01 (Added by) | cpurel |
M02 (Updated by) | cpure13 |
Seq # *Modification Id* Act ----------------------------+ 01072 M02S01005.cpure13 ---|* ENTRY (X1) = WORD TO DELETE BLANKS FROM (LEFT JUSTIFIED).
| Line S01006 Modification History | |
|---|---|
M01 (Added by) | cpurel |
M02 (Updated by) | cpure13 |
Seq # *Modification Id* Act ----------------------------+ 01073 M02S01006.cpure13 ---|*
| Line S01007 Modification History | |
|---|---|
M01 (Added by) | cpurel |
M02 (Updated by) | cpure13 |
Seq # *Modification Id* Act ----------------------------+ 01074 M02S01007.cpure13 ---|* EXIT (X6) = WORD WITH TRAILING BLANKS DELETED.
| Line S01008 Modification History | |
|---|---|
M01 (Added by) | cpurel |
M02 (Updated by) | cpure13 |
Seq # *Modification Id* Act ----------------------------+ 01075 M02S01008.cpure13 ---|*
| Line S01009 Modification History | |
|---|---|
M01 (Added by) | cpurel |
M02 (Updated by) | cpure13 |
Seq # *Modification Id* Act ----------------------------+ 01076 M02S01009.cpure13 ---|* USES X - 0, 2, 3, 6.
| Line S01010 Modification History | |
|---|---|
M01 (Added by) | cpurel |
M02 (Updated by) | cpure13 |
Seq # *Modification Id* Act ----------------------------+ 01077 M02S01010.cpure13 ---|
| Line S01011 Modification History | |
|---|---|
M01 (Added by) | cpurel |
M02 (Updated by) | cpure13 |
Seq # *Modification Id* Act ----------------------------+ 01078 M02S01011.cpure13 ---|
| Line S01012 Modification History | |
|---|---|
M01 (Added by) | cpurel |
M02 (Updated by) | cpure13 |
Seq # *Modification Id* Act ----------------------------+ 01079 M02S01012.cpure13 ---| ZFN EQ *+1S17 ENTRY/EXIT
| Line S01013 Modification History | |
|---|---|
M01 (Added by) | cpurel |
M02 (Updated by) | cpure13 |
Seq # *Modification Id* Act ----------------------------+ 01080 M02S01013.cpure13 ---| SX0 1R BLANK CHARACTER
| Line S01014 Modification History | |
|---|---|
M01 (Added by) | cpurel |
M02 (Updated by) | cpure13 |
Seq # *Modification Id* Act ----------------------------+ 01081 M02S01014.cpure13 ---| MX2 -6
| Line S01015 Modification History | |
|---|---|
M01 (Added by) | cpurel |
M02 (Updated by) | cpure13 |
Seq # *Modification Id* Act ----------------------------+ 01082 M02S01015.cpure13 ---| BX6 X1
| Line S01016 Modification History | |
|---|---|
M01 (Added by) | cpurel |
M02 (Updated by) | cpure13 |
Seq # *Modification Id* Act ----------------------------+ 01083 M02S01016.cpure13 ---| ZFN1 BX3 -X2*X6
| Line S01017 Modification History | |
|---|---|
M01 (Added by) | cpurel |
M02 (Updated by) | cpure13 |
Seq # *Modification Id* Act ----------------------------+ 01084 M02S01017.cpure13 ---| ZR X3,ZFN2 IF ZERO CHARACTER
| Line S01018 Modification History | |
|---|---|
M01 (Added by) | cpurel |
M02 (Updated by) | cpure13 |
Seq # *Modification Id* Act ----------------------------+ 01085 M02S01018.cpure13 ---| BX3 X3-X0 CHECK FOR BLANK
| Line S01019 Modification History | |
|---|---|
M01 (Added by) | cpurel |
M02 (Updated by) | cpure13 |
Seq # *Modification Id* Act ----------------------------+ 01086 M02S01019.cpure13 ---| NZ X3,ZFN IF NOT *00* OR * *
| Line S01020 Modification History | |
|---|---|
M01 (Added by) | cpurel |
M02 (Updated by) | cpure13 |
Seq # *Modification Id* Act ----------------------------+ 01087 M02S01020.cpure13 ---| ZFN2 BX6 X2*X6 CLEAR BLANK
| Line S01021 Modification History | |
|---|---|
M01 (Added by) | cpurel |
M02 (Updated by) | cpure13 |
Seq # *Modification Id* Act ----------------------------+ 01088 M02S01021.cpure13 ---| LX2 6
| Line S01022 Modification History | |
|---|---|
M01 (Added by) | cpurel |
M02 (Updated by) | cpure13 |
Seq # *Modification Id* Act ----------------------------+ 01089 M02S01022.cpure13 ---| LX0 6
| Line S01023 Modification History | |
|---|---|
M01 (Added by) | cpurel |
M02 (Updated by) | cpure13 |
Seq # *Modification Id* Act ----------------------------+ 01090 M02S01023.cpure13 ---| NZ X6,ZFN1 IF NOT END OF WORD
| Line S01024 Modification History | |
|---|---|
M01 (Added by) | cpurel |
M02 (Updated by) | cpure13 |
Seq # *Modification Id* Act ----------------------------+ 01091 M02S01024.cpure13 ---| EQ ZFN RETURN 01092 M01S01025.cpurel +++| PCE SPACE 4,10 01093 M01S01026.cpurel +++|** PCE - PROCESS CALL ERROR. 01094 M01S01027.cpurel +++|* 01095 M01S01028.cpurel +++|* ENTRY (A0) = ADDRESS OF CURRENT POSITION IN PARAMETER 01096 M01S01029.cpurel +++|* LIST. 01097 M01S01030.cpurel +++|* (X1) = 0, PARAMETER NAME NOT PROVIDED. 01098 M01S01031.cpurel +++|* = NONZERO VALUE, ASSUMED TO BE THE CURRENT 01099 M01S01032.cpurel +++|* PARAMETER IN DISPLAY CODE. 01100 M01S01033.cpurel +++|* 01101 M01S01034.cpurel +++|* EXIT (X6) = -1. 01102 M01S01035.cpurel +++|* (A1) = ADDRESS OF ERROR MESSAGE. 01103 M01S01036.cpurel +++|* 01104 M01S01037.cpurel +++|* USES X - 1, 6, 7. 01105 M01S01038.cpurel +++|* A - 1, 7. 01106 M01S01039.cpurel +++|* B - NONE. 01107 M01S01040.cpurel +++| 01108 M01S01041.cpurel +++| 01109 M01S01042.cpurel +++| PCE NZ X1,PCE2 IF PARAMETER NAME PROVIDED 01110 M01S01043.cpurel +++| SA1 A0 01111 M01S01044.cpurel +++| ZR X1,PCE1 IF END OF PARAMETER LIST 01112 M01S01045.cpurel +++| SA1 X1 01113 M01S01046.cpurel +++| NZ X1,PCE2 IF NONZERO PARAMETER 01114 M01S01047.cpurel +++| PCE1 SA1 PCEB 01115 M01S01048.cpurel +++| PCE2 MX6 59 01116 M01S01049.cpurel +++| BX7 X1 01117 M01S01050.cpurel +++| SA7 PCEB 01118 M01S01051.cpurel +++| SA1 PCEA 01119 M01S01052.cpurel +++| EQ END0 PROCESS USER CALL ERROR 01120 M01S01053.cpurel +++| 01121 M01S01054.cpurel +++| PCEA DATA 30H PF NO.-1 INVALID PARAMETER - 01122 M01S01055.cpurel +++| PCEB DATA 10H UNPAIRED. 01123 M01S01056.cpurel +++| DATA 0 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 M01S01057.cpurel +++| PXD SPACE 4,15 01171 M01S01058.cpurel +++|** PXD - PROCESS EXPIRATION DATE. 01172 M01S01059.cpurel +++|* 01173 M01S01060.cpurel +++|* ENTRY (X6) = *XD* PARAMETER. 01174 M01S01061.cpurel +++|* (XFLAG) = NON-ZERO IF *XD* OR *XT* ALREADY USED. 01175 M01S01062.cpurel +++|* 01176 M01S01063.cpurel +++|* EXIT TO *OPT4*. 01177 M01S01064.cpurel +++|* (X6) = VALIDATED PARAMETER. 01178 M01S01065.cpurel +++|* 01179 M01S01066.cpurel +++|* ERROR TO *PCE* IF ERROR ENCOUNTERED. 01180 M01S01067.cpurel +++|* 01181 M01S01068.cpurel +++|* USES X - 1, 2, 4, 6, 7. 01182 M01S01069.cpurel +++|* A - 2, 7. 01183 M01S01070.cpurel +++|* B - NONE. 01184 M01S01071.cpurel +++|* 01185 M01S01072.cpurel +++|* CALLS VDT. 01186 M01S01073.cpurel +++|* 01187 M01S01074.cpurel +++|* MACROS NONE. 01188 M01S01075.cpurel +++| 01189 M01S01076.cpurel +++| 01190 M01S01077.cpurel +++| PXD BSS 0 ENTRY 01191 M01S01078.cpurel +++| SA2 XFLAG 01192 M01S01079.cpurel +++| NZ X2,PCE IF *XD* OR *XT* ALREADY SPECIFIED 01193 M01S01080.cpurel +++| SX7 B1 01194 M01S01081.cpurel +++| SA7 A2 SET PARAMETER SPECIFIED 01195 M01S01082.cpurel +++| BX1 X6 01196 M01S01083.cpurel +++| LX6 6 01197 M01S01084.cpurel +++| SX4 X6-1R* 01198 M01S01085.cpurel +++| NZ X4,PXD1 IF NOT ASTERISK 01199 M01S01086.cpurel +++| SX6 7777B SET NO EXPIRATION DATE 01200 M01S01087.cpurel +++| EQ OPT4 PUT ENTRY IN FET 01201 M01S01088.cpurel +++| 01202 M01S01089.cpurel +++| PXD1 SX2 B0 01203 M01S01090.cpurel +++| RJ VDT CONVERT DATE 01204 M01S01091.cpurel +++| NG X1,PXD2 IF DATE BEFORE TODAY 01205 M01S01092.cpurel +++| NG X6,PXD2 IF ERROR IN CONVERSION 01206 M01S01093.cpurel +++| EQ OPT4 PUT ENTRY IN FET 01207 M01S01094.cpurel +++| 01208 M01S01095.cpurel +++| PXD2 BX1 X1-X1 01209 M01S01096.cpurel +++| EQ PCE PROCESS ERROR 01210 M01S01097.cpurel +++| PXT SPACE 4,20 01211 M01S01098.cpurel +++|** PXT - PROCESS EXPIRATION TERM. 01212 M01S01099.cpurel +++|* 01213 M01S01100.cpurel +++|* ENTRY (X6) = *XT* PARAMETER. 01214 M01S01101.cpurel +++|* (XFLAG) = NON-ZERO IF *XD* OR *XT* ALREADY USED. 01215 M01S01102.cpurel +++|* 01216 M01S01103.cpurel +++|* EXIT TO *OPT4*. 01217 M01S01104.cpurel +++|* (X6) = VALIDATED *XT* PARAMETER. 01218 M01S01105.cpurel +++|* 01219 M01S01106.cpurel +++|* ERROR TO *PCE* IF ERROR ENCOUNTERED. 01220 M01S01107.cpurel +++|* 01221 M01S01108.cpurel +++|* USES X - 1, 2, 4, 5, 6, 7. 01222 M01S01109.cpurel +++|* A - 2, 7. 01223 M01S01110.cpurel +++|* B - 2, 7. 01224 M01S01111.cpurel +++|* 01225 M01S01112.cpurel +++|* CALLS =XDXB=. 01226 M01S01113.cpurel +++|* 01227 M01S01114.cpurel +++|* MACROS PDATE. 01228 M01S01115.cpurel +++| 01229 M01S01116.cpurel +++| 01230 M01S01117.cpurel +++| PXT BSS 0 ENTRY 01231 M01S01118.cpurel +++| SA2 XFLAG 01232 M01S01119.cpurel +++| NZ X2,PCE IF *XD* OR *XT* ALREADY SPECIFIED 01233 M01S01120.cpurel +++| SX7 B1 01234 M01S01121.cpurel +++| SA7 A2 SET PARAMETER SPECIFIED 01235 M01S01122.cpurel +++| BX5 X6 01236 M01S01123.cpurel +++| LX6 6 01237 M01S01124.cpurel +++| SX4 X6-1R* 01238 M01S01125.cpurel +++| NZ X4,PXT1 IF NOT ASTERISK 01239 M01S01126.cpurel +++| SX6 7777B NO EXPIRATION DATE 01240 M01S01127.cpurel +++| EQ OPT4 PUT ENTRY IN FET 01241 M01S01128.cpurel +++| 01242 M01S01129.cpurel +++| PXT1 SX2 X6-1R0 01243 M01S01130.cpurel +++| NZ X2,PXT2 IF NOT IMMEDIATE EXPIRATION 01244 M01S01131.cpurel +++| PDATE XDATE GET CURRENT DATE 01245 M01S01132.cpurel +++| SA2 XDATE 01246 M01S01133.cpurel +++| AX2 18 01247 M01S01134.cpurel +++| BX6 X2 01248 M01S01135.cpurel +++| EQ OPT4 PUT ENTRY IN FET 01249 M01S01136.cpurel +++| 01250 M01S01137.cpurel +++| PXT2 SB7 B1 01251 M01S01138.cpurel +++| RJ =XDXB= CONVERT TO BINARY 01252 M01S01139.cpurel +++| NZ X4,PXT3 IF ERROR IN CONVERSION 01253 M01S01140.cpurel +++| SB2 X6-7777B 01254 M01S01141.cpurel +++| GT B2,PXT3 IF EXPIRATION TERM IS TOO LARGE 01255 M01S01142.cpurel +++| EQ OPT4 PUT ENTRY IN FET 01256 M01S01143.cpurel +++| 01257 M01S01144.cpurel +++| PXT3 BX1 X1-X1 01258 M01S01145.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 M01S01146.cpurel +++| SPACE 4,10 01283 M01S01147.cpurel +++|* COMMON DECKS. 01284 M01S01148.cpurel +++| 01285 M01S01149.cpurel +++|*CALL COMCDXB 01286 M01S01150.cpurel +++|*CALL COMCVDT 01287 M01S01151.cpurel +++| SPACE 4,10 01288 M01S01152.cpurel +++| END 01289 M01S01153.cpurel +++| IDENT GETPAGE 01290 M01S01154.cpurel +++| ENTRY GETPAGE 01291 M01S01155.cpurel +++| SYSCOM B1 01292 M01S01156.cpurel +++| TITLE GETPAGE - GET PAGE PARAMETERS. 01293 M01S01157.cpurel +++|*COMMENT CPUREL - GET PAGE PARAMETERS.
| Line S01158 Modification History | |
|---|---|
M01 (Added by) | cpurel |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 01294 M02S01158.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1982. 01295 M01S00007.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 01296 M01S01159.cpurel +++|*CALL COMCMAC 01297 M01S01160.cpurel +++| GETPAGE SPACE 4,10 01298 M01S01161.cpurel +++|*** GETPAGE - GET PAGE PARAMETERS. 01299 M01S01162.cpurel +++|* 01300 M01S01163.cpurel +++|* A. SKJOLDEBRAND. 82/11/21. 01301 M01S01164.cpurel +++| SPACE 4,10 01302 M01S01165.cpurel +++|*** *GETPAGE* PROVIDES AN INTERFACE TO ALLOW GETTING THE 01303 M01S01166.cpurel +++|* JOB AND SYSTEM PAGE PARAMETERS FOR PROGRAMS 01304 M01S01167.cpurel +++|* WRITTEN IN HIGHER LEVEL LANGUAGES. 01305 M01S01168.cpurel +++| SPACE 4,30 01306 M01S01169.cpurel +++|*** COMMAND FORMAT. 01307 M01S01170.cpurel +++|* 01308 M01S01171.cpurel +++|* FORTRAN CALL - 01309 M01S01172.cpurel +++|* 01310 M01S01173.cpurel +++|* CALL GETPAGE(ARRAY) 01311 M01S01174.cpurel +++|* 01312 M01S01175.cpurel +++|* SYMPL CALL - 01313 M01S01176.cpurel +++|* 01314 M01S01177.cpurel +++|* GETPAGE(ARRAY); 01315 M01S01178.cpurel +++|* 01316 M01S01179.cpurel +++|* 01317 M01S01180.cpurel +++|* ENTRY (ARRAY) = A 6 WORD ARRAY TO RECEIVE THE RESPONSE. 01318 M01S01181.cpurel +++|* 01319 M01S01182.cpurel +++|* EXIT (ARRAY) = PAGE PARAMETERS (RIGHT JUSTIFIED). 01320 M01S01183.cpurel +++|* ARRAY(1) = JOB PRINT DENSITY ( 6 OR 8 ). 01321 M01S01184.cpurel +++|* ARRAY(2) = JOB PAGE SIZE ( 16 - 255 ). 01322 M01S01185.cpurel +++|* ARRAY(3) = JOB PAGE WIDTH ( 40 - 255 ). 01323 M01S01186.cpurel +++|* ARRAY(4) = SYSTEM PRINT DENSITY (6 OR 8). 01324 M01S01187.cpurel +++|* ARRAY(5) = SYSTEM PAGE SIZE (16-255). 01325 M01S01188.cpurel +++|* ARRAY(6) = SYSTEM PAGE WIDTH (40-255). 01326 M01S01189.cpurel +++| 01327 M01S01190.cpurel +++| 01328 M01S01191.cpurel +++| GETPAGE BSS 0 01329 M01S01192.cpurel +++| GPG SUBR ENTRY/EXIT 01330 M01S01193.cpurel +++| SB1 1 01331 M01S01194.cpurel +++| SB7 X1 SAVE PARAMETER BLOCK 01332 M01S01195.cpurel +++| GETPAGE GPGA GET PAGE PARAMETERS 01333 M01S01196.cpurel +++| SB2 B1 01334 M01S01197.cpurel +++| SA1 GPGA GET JOB PAGE PARAMETERS 01335 M01S01198.cpurel +++| GPG1 MX0 -4 01336 M01S01199.cpurel +++| LX1 0-28 POSITION PRINT DENSITY 01337 M01S01200.cpurel +++| BX6 -X0*X1 01338 M01S01201.cpurel +++| SA6 B7 SET PRINT DENSITY RESPONSE 01339 M01S01202.cpurel +++| MX0 -8 01340 M01S01203.cpurel +++| LX1 8 POSITION PAGE SIZE 01341 M01S01204.cpurel +++| BX6 -X0*X1 01342 M01S01205.cpurel +++| SA6 A6+B1 SET PAGE SIZE RESPONSE 01343 M01S01206.cpurel +++| LX1 8 POSITION PAGE WIDTH 01344 M01S01207.cpurel +++| BX6 -X0*X1 01345 M01S01208.cpurel +++| SA6 A6+B1 SET PAGE WIDTH RESPONSE 01346 M01S01209.cpurel +++| ZR B2,GPGX IF END OF PARAMETERS 01347 M01S01210.cpurel +++| SB2 B2-B1 01348 M01S01211.cpurel +++| SA1 A1+B1 01349 M01S01212.cpurel +++| SB7 A6+B1 01350 M01S01213.cpurel +++| EQ GPG1 GET SYSTEM PAGE PARAMETERS 01351 M01S01214.cpurel +++| 01352 M01S01215.cpurel +++| 01353 M01S01216.cpurel +++| GPGA BSS 2 *GETPAGE* RESPONSE BLOCK 01354 M01S01217.cpurel +++| SPACE 4,10 01355 M01S01218.cpurel +++| END 01356 M01S01219.cpurel +++| IDENT SETPAGE 01357 M01S01220.cpurel +++| ENTRY SETPAGE 01358 M01S01221.cpurel +++| SYSCOM B1 01359 M01S01222.cpurel +++| TITLE SETPAGE - SET PAGE PARAMETERS. 01360 M01S01223.cpurel +++|*COMMENT CPUREL - SET PAGE PARAMETERS.
| Line S01224 Modification History | |
|---|---|
M01 (Added by) | cpurel |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 01361 M02S01224.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1982. 01362 M01S00008.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 01363 M01S01225.cpurel +++|*CALL COMCMAC 01364 M01S01226.cpurel +++| SETPAGE SPACE 4,10 01365 M01S01227.cpurel +++|*** SETPAGE - SET PAGE PARAMETERS. 01366 M01S01228.cpurel +++|* 01367 M01S01229.cpurel +++|* A. SKJOLDEBRAND. 82/11/21. 01368 M01S01230.cpurel +++| SPACE 4,10 01369 M01S01231.cpurel +++|*** *SETPAGE* PROVIDES AN INTERFACE TO ALLOW SETTING THE JOB 01370 M01S01232.cpurel +++|* PAGE PARAMETERS FOR PROGRAMS WRITTEN IN HIGHER LEVEL 01371 M01S01233.cpurel +++|* LANGUAGES. 01372 M01S01234.cpurel +++| SPACE 4,30 01373 M01S01235.cpurel +++|*** COMMAND FORMAT. 01374 M01S01236.cpurel +++|* 01375 M01S01237.cpurel +++|* FORTRAN CALL - 01376 M01S01238.cpurel +++|* 01377 M01S01239.cpurel +++|* CALL SETPAGE(ARRAY) 01378 M01S01240.cpurel +++|* 01379 M01S01241.cpurel +++|* SYMPL CALL - 01380 M01S01242.cpurel +++|* 01381 M01S01243.cpurel +++|* SETPAGE(ARRAY); 01382 M01S01244.cpurel +++|* 01383 M01S01245.cpurel +++|* 01384 M01S01246.cpurel +++|* ENTRY (ARRAY) = PAGE PARAMETERS (RIGHT JUSTIFIED). 01385 M01S01247.cpurel +++|* ARRAY(1) = JOB PRINT DENSITY ( 6 OR 8 ). 01386 M01S01248.cpurel +++|* ARRAY(2) = JOB PAGE SIZE ( 16 - 255 ). 01387 M01S01249.cpurel +++|* ARRAY(3) = JOB PAGE WIDTH ( 40 - 255 ). 01388 M01S01250.cpurel +++|* 01389 M01S01251.cpurel +++|* IF ARRAY(N) .LT. 0 CURRENT JOB VALUES WILL BE USED. 01390 M01S01252.cpurel +++|* 01391 M01S01253.cpurel +++|* EXIT PAGE SIZE PARAMETERS SET FOR JOB. 01392 M01S01254.cpurel +++| 01393 M01S01255.cpurel +++| SETPAGE BSS 0 01394 M01S01256.cpurel +++| SPG SUBR ENTRY/EXIT 01395 M01S01257.cpurel +++| SB1 1 01396 M01S01258.cpurel +++| SB7 X1+ SAVE PARAMETER BLOCK ADDRESS 01397 M01S01259.cpurel +++| GETPAGE SPGA GET CURRENT JOB VALUES 01398 M01S01260.cpurel +++| SA3 SPGA 01399 M01S01261.cpurel +++| RJ MPP MERGE USER AND CURRENT JOB VALUES 01400 M01S01262.cpurel +++| SPG1 SA6 SPGA 01401 M01S01263.cpurel +++| SETPAGE A6 01402 M01S01264.cpurel +++| EQ SPGX RETURN 01403 M01S01265.cpurel +++| 01404 M01S01266.cpurel +++| 01405 M01S01267.cpurel +++| SPGA BSS 2 RESPONSE BLOCK 01406 M01S01268.cpurel +++| MPP SPACE 4,15 *GETPAGE*/*SETPAGE* 01407 M01S01269.cpurel +++|** MPP - MERGE PAGE PARAMETERS. 01408 M01S01270.cpurel +++|* 01409 M01S01271.cpurel +++|* ENTRY (X3) = CURRENT JOB PAGE PARAMETERS. 01410 M01S01272.cpurel +++|* (B7) = ADDRESS OF USER LIST OF PAGE PARAMETERS. 01411 M01S01273.cpurel +++|* 01412 M01S01274.cpurel +++|* EXIT (X6) = *SETPAGE* REQUEST WORD. 01413 M01S01275.cpurel +++|* 01414 M01S01276.cpurel +++|* USES X - 0, 1, 2, 3, 6. 01415 M01S01277.cpurel +++|* A - 1, 2. 01416 M01S01278.cpurel +++| 01417 M01S01279.cpurel +++| 01418 M01S01280.cpurel +++| MPP SUBR ENTRY/EXIT 01419 M01S01281.cpurel +++| MX0 -4 MASK FOR PRINT DENSITY 01420 M01S01282.cpurel +++| LX3 0-28 01421 M01S01283.cpurel +++| SA1 B7 GET USER PRINT DENSITY 01422 M01S01284.cpurel +++| PL X1,MPP1 IF USER VALUE SPECIFIED 01423 M01S01285.cpurel +++| BX1 -X0*X3 USE CURRENT JOB PRINT DENSITY 01424 M01S01286.cpurel +++| MPP1 LX1 8 01425 M01S01287.cpurel +++| SA2 A1+B1 GET PAGE SIZE PARAMETER 01426 M01S01288.cpurel +++| LX3 8 01427 M01S01289.cpurel +++| MX0 -8 01428 M01S01290.cpurel +++| PL X2,MPP2 IF USER VALUE SPECIFIED 01429 M01S01291.cpurel +++| BX2 -X0*X3 USE CURRENT JOB PAGE SIZE 01430 M01S01292.cpurel +++| MPP2 BX6 X1+X2 MERGE PRINT DENSITY AND PAGE SIZE 01431 M01S01293.cpurel +++| LX3 8 01432 M01S01294.cpurel +++| SA1 A2+B1 GET PAGE WIDTH PARAMETER 01433 M01S01295.cpurel +++| LX6 8 01434 M01S01296.cpurel +++| PL X1,MPP3 IF USER VALUE SPECIFIED 01435 M01S01297.cpurel +++| BX1 -X0*X3 USE CURRENT JOB PAGE WIDTH 01436 M01S01298.cpurel +++| MPP3 BX6 X1+X6 ADD IN PAGE WIDTH 01437 M01S01299.cpurel +++| LX6 12D POSITION *SETPAGE* PARAMETER BLOCK 01438 M01S01300.cpurel +++| EQ MPPX RETURN 01439 M01S01301.cpurel +++| SPACE 4,10 01440 M01S01302.cpurel +++| END
cdc/nos2.source/opl.opl871/deck/cpurel.txt · Last modified: by 127.0.0.1