Action unknown: copypageplugin__copy
cdc:nos2.source:opl.opl871:deck:cpurel
Deck CPUREL
Library Member Format: MODIFY
Source
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.
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | ns2568 |
Seq # *Modification Id* Act ----------------------------+ 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
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
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
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
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
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
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
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
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
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
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
| Line S00015 Modification History | |
|---|---|
M01 (Added by) | ns2568 |
Seq # *Modification Id* Act ----------------------------+ 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
| Line S00016 Modification History | |
|---|---|
M01 (Added by) | ns2568 |
Seq # *Modification Id* Act ----------------------------+ 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
| Line S00077 Modification History | |
|---|---|
M01 (Added by) | cpure13 |
Seq # *Modification Id* Act ----------------------------+ 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
cdc/nos2.source/opl.opl871/deck/cpurel.txt · Last modified: by 127.0.0.1