cdc:nos2.source:opl.opl871:common:comcarg
Common COMCARG
7 Modifications
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.comcarg +++| CTEXT COMCARG - PROCESS ARGUMENTS. 00002 M01S00002.comcarg +++| ARG SPACE 4 00003 M01S00003.comcarg +++| IF -DEF,QUAL$,1 00004 M01S00004.comcarg +++| QUAL COMCARG 00005 M01S00005.comcarg +++| BASE D
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | comcarg |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00006 M02S00006.281l803 ---|* COMMENT COPYRIGHT CONTROL DATA CORP. 1970. 00007 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00008 M01S00007.comcarg +++| ARG SPACE 4 00009 M01S00008.comcarg +++|*** ARG - PROCESS ARGUMENTS. 00010 M01S00009.comcarg +++|* G. R. MANSFIELD. 70/10/09. 00011 M01S00001.ns2573 +++|* B. G. ALBRECHT. 88/01/22. 00012 M01S00002.ns2573 +++|* P. C. SMITH. 88/01/22. 00013 M01S00010.comcarg +++| ARG SPACE 4 00014 M01S00011.comcarg +++|*** ARG PROCESSES AN ARGUMENT LIST BY THE USE OF AN 00015 M01S00012.comcarg +++|* EQUIVALENCE TABLE. 00016 M01S00013.comcarg +++|* 00017 M01S00014.comcarg +++|* ENTRY (B1) = 1. 00018 M01S00015.comcarg +++|* (B4) = ARGUMENT COUNT. 00019 M01S00016.comcarg +++|* (A4) = ADDRESS OF FIRST ARGUMENT. 00020 M01S00017.comcarg +++|* (X4) = FIRST ARGUMENT. 00021 M01S00018.comcarg +++|* (B5) = ADDRESS OF ARGUMENT TABLE IN ONE OF THE 00022 M01S00019.comcarg +++|* FOLLOWING FORMS - 00023 M01S00020.comcarg +++|* 1. 12/ OP, 18/ ASV, 12/ ST, 18/ ADDR 00024 M01S00021.comcarg +++|* 2. 12/ 77B, 18/ ASV, 12/ ST, 18/ ADDR 00025 M01S00022.comcarg +++|* 42/ OP, 18/0 00026 M01S00023.comcarg +++|* 77B = INDICATION THAT TWO-WORD ENTRY TABLE 00027 M01S00024.comcarg +++|* FORMAT WAS USED. 00028 M01S00025.comcarg +++|* OP = ONE TO SEVEN CHARACTER OPTION. 00029 M01S00026.comcarg +++|* ASV = ADDRESS OF ASSUMED VALUE. 00030 M01S00027.comcarg +++|* ST = STATUS. 00031 M01S00028.comcarg +++|* ADDR = ADDRESS TO STORE ARGUMENT. 00032 M01S00029.comcarg +++|* THE LOWER 18 BITS OF THE ASSUMED VALUE ARE 00033 M01S00030.comcarg +++|* ENTERED INTO THE EQUIVALENCED ARGUMENT. 00034 M01S00003.ns2573 +++|* 00035 M01S00031.comcarg +++|* IF *ASV* .LT. 0, THE ARGUMENT MUST NOT BE 00036 M01S00032.comcarg +++|* EQUIVALENCED. 00037 M01S00033.comcarg +++|* IF *ASV* = *ADDR*, ONLY ONE ENTRY OF THAT 00038 M01S00034.comcarg +++|* ARGUMENT WILL BE ALLOWED (*OP* IS SET TO - 0). 00039 M01S00004.ns2573 +++|* 00040 M01S00035.comcarg +++|* IF STATUS = 4000B, A ZERO *0* PARAMETER IS 00041 M01S00036.comcarg +++|* RETAINED AS A DISPLAY ZERO, OTHERWISE A 00042 M01S00037.comcarg +++|* VALUE OF ZERO IS STORED. 00043 M01S00005.ns2573 +++|* 00044 M01S00006.ns2573 +++|* IF STATUS = 2000B, THE *ADDR* IS THE ADDRESS 00045 M01S00007.ns2573 +++|* OF A TABLE. IF A SEQUENCE OF ARGUMENT VALUES 00046 M01S00008.ns2573 +++|* SEPARATED BY SLASHES IS SPECIFIED, THE VALUES 00047 M01S00009.ns2573 +++|* WILL BE STORED AS SUCCESSIVE ENTRIES IN THE 00048 M01S00010.ns2573 +++|* TABLE. NULL ARGUMENTS WILL BE IGNORED. A ZERO 00049 M01S00011.ns2573 +++|* (*0*) ARGUMENT WILL BE RETAINED AS A DISPLAY 00050 M01S00012.ns2573 +++|* ZERO. THE LOWER 18 BITS OF EACH ARGUMENT VALUE 00051 M01S00013.ns2573 +++|* WILL BE SET TO BINARY ZERO. A ZERO WORD WILL 00052 M01S00014.ns2573 +++|* BE STORED IN THE TABLE FOLLOWING THE LAST 00053 M01S00015.ns2573 +++|* SPECIFIED VALUE. 00054 M01S00038.comcarg +++|* 00055 M01S00039.comcarg +++|* EXIT (X1) .NE. 0, IF ARGUMENT ERROR DETECTED. 00056 M01S00040.comcarg +++|* AN ERROR STATUS IS RETURNED FOR THE FOLLOWING 00057 M01S00041.comcarg +++|* CONDITIONS - 00058 M01S00042.comcarg +++|* 1. OPTION NOT FOUND IN TABLE 00059 M01S00043.comcarg +++|* 2. SINGLE ARGUMENT EQUIVALENCED 00060 M01S00044.comcarg +++|* 3. ILLEGAL RE-ENTRY OF ARGUMENT 00061 M01S00045.comcarg +++|* 00062 M01S00046.comcarg +++|* USES X - 0, 1, 2, 3, 4, 6, 7. 00063 M01S00047.comcarg +++|* B - 2, 3, 4. 00064 M01S00048.comcarg +++|* A - 2, 3, 4, 7. 00065 M01S00049.comcarg +++| 00066 M01S00050.comcarg +++| 00067 M01S00051.comcarg +++| ARG SUBR ENTRY/EXIT 00068 M01S00052.comcarg +++| MX0 42
| Line S00053 Modification History | |
|---|---|
M01 (Added by) | comcarg |
M02 (Updated by) | carg2 |
Seq # *Modification Id* Act ----------------------------+ 00069 M02S00053.carg2 ---| SX1 B0
| Line S00054 Modification History | |
|---|---|
M01 (Added by) | comcarg |
M02 (Updated by) | carg2 |
Seq # *Modification Id* Act ----------------------------+ 00070 M02S00054.carg2 ---| ZR B4,ARGX IF NO ARGUMENTS 00071 M01S00001.carg2 +++| ZR B4,ARG11 IF NO ARGUMENTS 00072 M01S00055.comcarg +++| SX1 B1 PRESET ERROR 00073 M01S00056.comcarg +++| 00074 M01S00057.comcarg +++|* SEARCH FOR MATCH IN ARGUMENT TABLE. 00075 M01S00058.comcarg +++| 00076 M01S00059.comcarg +++| ARG1 ZR X4,ARGX IF NULL ARGUMENT 00077 M01S00060.comcarg +++| SA2 B5-B1 00078 M01S00061.comcarg +++| MX3 12
| Line S00062 Modification History | |
|---|---|
M01 (Added by) | comcarg |
M02 (Updated by) | carg2 |
Seq # *Modification Id* Act ----------------------------+ 00079 M02S00062.carg2 ---| SB3 12 00080 M01S00063.comcarg +++| ARG1.1 SA2 A2+B1 GET NEXT OPTION 00081 M01S00064.comcarg +++| ZR X2,ARGX IF END OF OPTION TABLE
| Line S00065 Modification History | |
|---|---|
M01 (Added by) | comcarg |
M02 (Updated by) | carg2 |
Seq # *Modification Id* Act ----------------------------+ 00082 M02S00065.carg2 ---| SB2 B0 00083 M01S00066.comcarg +++| BX6 X3*X2 CHECK FOR KEYWORD MATCH
| Line S00067 Modification History | |
|---|---|
M01 (Added by) | comcarg |
M02 (Updated by) | carg2 |
Seq # *Modification Id* Act ----------------------------+ 00084 M02S00067.carg2 ---| LX7 X6,B3 00085 M01S00002.carg2 +++| BX7 X6 00086 M01S00003.carg2 +++| LX7 12 00087 M01S00068.comcarg +++| SX7 X7-77B 00088 M01S00069.comcarg +++| NZ X7,ARG1.2 IF ARGUMENT LESS THAN THREE CHARACTERS
| Line S00070 Modification History | |
|---|---|
M01 (Added by) | comcarg |
M02 (Updated by) | carg2 |
Seq # *Modification Id* Act ----------------------------+ 00089 M02S00070.carg2 ---| SB2 B1 00090 M01S00071.comcarg +++| SA2 A2+B1 GET SECOND WORD OF THE ENTRY 00091 M01S00072.comcarg +++| BX6 X0*X2 GET OPTION
| Line S00073 Modification History | |
|---|---|
M01 (Added by) | comcarg |
M02 (Updated by) | carg2 |
Seq # *Modification Id* Act ----------------------------+ 00092 M02S00073.carg2 ---| ARG1.2 BX7 X4-X6
| Line S00074 Modification History | |
|---|---|
M01 (Added by) | comcarg |
M02 (Updated by) | carg2 |
Seq # *Modification Id* Act ----------------------------+ 00093 M02S00074.carg2 ---| BX7 X0*X7
| Line S00075 Modification History | |
|---|---|
M01 (Added by) | comcarg |
M02 (Updated by) | carg2 |
Seq # *Modification Id* Act ----------------------------+ 00094 M02S00075.carg2 ---| NZ X7,ARG1.1 IF NO MATCH 00095 M01S00004.carg2 +++| ARG1.2 BX6 X4-X6 00096 M01S00005.carg2 +++| BX6 X0*X6 00097 M01S00006.carg2 +++| NZ X6,ARG1.1 IF NO MATCH 00098 M01S00076.comcarg +++| 00099 M01S00077.comcarg +++|* CHECK FOR EQUIVALENCE ALLOWED. 00100 M01S00078.comcarg +++|
| Line S00079 Modification History | |
|---|---|
M01 (Added by) | comcarg |
M02 (Updated by) | carg2 |
Seq # *Modification Id* Act ----------------------------+ 00101 M02S00079.carg2 ---| ZR B2,ARG2 IF ONE WORD ENTRY
| Line S00080 Modification History | |
|---|---|
M01 (Added by) | comcarg |
M02 (Updated by) | carg2 |
Seq # *Modification Id* Act ----------------------------+ 00102 M02S00080.carg2 ---| SA2 A2-B1 00103 M01S00007.carg2 +++| NZ X7,ARG2 IF ONE WORD ENTRY 00104 M01S00008.carg2 +++| SA2 A2-1 00105 M01S00081.comcarg +++| ARG2 SX7 X4-1R= CHECK FOR EQUIVALENCE SEPARATOR 00106 M01S00082.comcarg +++| SB2 X2 SET VALUE ADDRESS 00107 M01S00083.comcarg +++| LX2 30 GET ASSUMED VALUE 00108 M01S00084.comcarg +++| ZR X7,ARG2.1 IF NOS *=* 00109 M01S00085.comcarg +++| SX7 X4-2 CHECK FOR PRODUCT SET FORMAT *=* 00110 M01S00086.comcarg +++| ARG2.1 SB3 X2 00111 M01S00087.comcarg +++| PL B3,ARG3 IF EQUIVALENCE ALLOWED 00112 M01S00088.comcarg +++| SA3 -B3 ASSUMED VALUE 00113 M01S00089.comcarg +++| BX6 -X0*X3 ASSUMED STATUS 00114 M01S00090.comcarg +++| SB3 -B3 00115 M01S00091.comcarg +++| NZ X7,ARG5 IF ARGUMENT NOT EQUIVALENCED 00116 M01S00092.comcarg +++| SA4 A4+B1 00117 M01S00093.comcarg +++| SB4 B4-B1
| Line S00094 Modification History | |
|---|---|
M01 (Added by) | comcarg |
M02 (Updated by) | ns2573 |
Seq # *Modification Id* Act ----------------------------+ 00118 M02S00094.ns2573 ---| ZR X4,ARG6 IF NULL PARAMETER
| Line S00016 Modification History | |
|---|---|
M01 (Added by) | ns2573 |
M02 (Updated by) | carg2 |
Seq # *Modification Id* Act ----------------------------+ 00119 M02S00016.carg2 ---| ZR B4,ARG12 IF NO MORE ARGUMENTS
| Line S00017 Modification History | |
|---|---|
M01 (Added by) | ns2573 |
M02 (Updated by) | carg2 |
Seq # *Modification Id* Act ----------------------------+ 00120 M02S00017.carg2 ---| ZR X4,ARG11 IF NULL ARGUMENT 00121 M01S00009.carg2 +++| ZR B4,ARG11 IF NO MORE ARGUMENTS 00122 M01S00010.carg2 +++| ZR X4,ARG10 IF NULL ARGUMENT 00123 M01S00095.comcarg +++| EQ ARGX RETURN 00124 M01S00096.comcarg +++| 00125 M01S00097.comcarg +++|* PROCESS EQUIVALENCE. 00126 M01S00098.comcarg +++| 00127 M01S00099.comcarg +++| ARG3 SA3 B3 ASSUMED VALUE 00128 M01S00100.comcarg +++| BX6 -X0*X3 ASSUMED STATUS 00129 M01S00101.comcarg +++| NZ X7,ARG5 IF ARGUMENT NOT EQUIVALENCED
| Line S00102 Modification History | |
|---|---|
M01 (Added by) | comcarg |
M02 (Updated by) | ns2573 |
Seq # *Modification Id* Act ----------------------------+ 00130 M02S00102.ns2573 ---| SA4 A4+B1 CHECK EQUIVALENCE 00131 M01S00018.ns2573 +++| SA4 A4+B1 CHECK EQUIVALENCED VALUE 00132 M01S00103.comcarg +++| SB4 B4-B1
| Line S00019 Modification History | |
|---|---|
M01 (Added by) | ns2573 |
M02 (Updated by) | carg2 |
Seq # *Modification Id* Act ----------------------------+ 00133 M02S00019.carg2 ---| ZR B4,ARG12 IF NO MORE ARGUMENTS 00134 M01S00011.carg2 +++| ZR B4,ARG11 IF NO MORE ARGUMENTS 00135 M01S00020.ns2573 +++| LX2 59-28-59+29 00136 M01S00001.carg3 +++| SB3 B2 START OF LIST ADDRESS 00137 M01S00021.ns2573 +++| NG X2,ARG6 IF TABLE FOR ARGUMENT VALUES SPECIFIED
| Line S00104 Modification History | |
|---|---|
M01 (Added by) | comcarg |
M02 (Updated by) | carg1 |
Seq # *Modification Id* Act ----------------------------+ 00138 M02S00104.carg1 ---| BX3 X4 00139 M01S00001.carg1 +++| BX3 X0*X4 00140 M01S00105.comcarg +++| AX4 42
| Line S00106 Modification History | |
|---|---|
M01 (Added by) | comcarg |
M02 (Updated by) | ns2573 |
Seq # *Modification Id* Act ----------------------------+ 00141 M02S00106.ns2573 ---| NG X2,ARG4 IF DISPLAY ZERO REQUESTED 00142 M01S00022.ns2573 +++| LX2 59-29-59+28 00143 M01S00023.ns2573 +++| NG X2,ARG4 IF DISPLAY ZERO IS TO BE PRESERVED 00144 M01S00107.comcarg +++| SX2 X4-1L0
| Line S00108 Modification History | |
|---|---|
M01 (Added by) | comcarg |
M02 (Updated by) | ns2573 |
Seq # *Modification Id* Act ----------------------------+ 00145 M02S00108.ns2573 ---| ARG4 ZR X3,ARG6 IF NULL PARAMETER
| Line S00024 Modification History | |
|---|---|
M01 (Added by) | ns2573 |
M02 (Updated by) | carg2 |
Seq # *Modification Id* Act ----------------------------+ 00146 M02S00024.carg2 ---| ARG4 ZR X3,ARG11 IF NULL ARGUMENT 00147 M01S00012.carg2 +++| ARG4 ZR X3,ARG10 IF NULL ARGUMENT 00148 M01S00109.comcarg +++| NZ X2,ARG5 IF NOT *0*
| Line S00110 Modification History | |
|---|---|
M01 (Added by) | comcarg |
M02 (Updated by) | ns2573 |
Seq # *Modification Id* Act ----------------------------+ 00149 M02S00110.ns2573 ---| SX3 B0 CLEAR EQUIVALENCE
| Line S00025 Modification History | |
|---|---|
M01 (Added by) | ns2573 |
M02 (Updated by) | carg2 |
Seq # *Modification Id* Act ----------------------------+ 00150 M02S00025.carg2 ---| SX3 B0 CLEAR EQUIVALENCED VALUE
| Line S00111 Modification History | |
|---|---|
M01 (Added by) | comcarg |
M02 (Updated by) | carg2 |
Seq # *Modification Id* Act ----------------------------+ 00151 M02S00111.carg2 ---| SX6 B0 CLEAR STATUS 00152 M01S00013.carg2 +++| SX7 B0+ CLEAR ARGUMENT, STATUS 00153 M01S00014.carg2 +++| EQ ARG9 TERMINATE ARGUMENT VALUE TABLE 00154 M01S00112.comcarg +++|
| Line S00113 Modification History | |
|---|---|
M01 (Added by) | comcarg |
M02 (Updated by) | ns2573 |
Seq # *Modification Id* Act ----------------------------+ 00155 M02S00113.ns2573 ---|* ENTER ARGUMENT. 00156 M01S00026.ns2573 +++|* ENTER ARGUMENT VALUE. 00157 M01S00114.comcarg +++| 00158 M01S00115.comcarg +++| ARG5 BX3 X0*X3 MERGE ARGUMENT AND STATUS
| Line S00116 Modification History | |
|---|---|
M01 (Added by) | comcarg |
M02 (Updated by) | ns2659 |
Seq # *Modification Id* Act ----------------------------+ 00159 M02S00116.ns2659 ---| IX7 X3+X6 00160 M01S00001.ns2659 +++| BX7 X3+X6
| Line S00117 Modification History | |
|---|---|
M01 (Added by) | comcarg |
M02 (Updated by) | carg2 |
Seq # *Modification Id* Act ----------------------------+ 00161 M02S00117.carg2 ---| SA7 B2 STORE ARGUMENT
| Line S00027 Modification History | |
|---|---|
M01 (Added by) | ns2573 |
M02 (Updated by) | carg2 |
Seq # *Modification Id* Act ----------------------------+ 00162 M02S00027.carg2 ---| EQ ARG10 CHECK IF FURTHER SPECIFICATION ALLOWED 00163 M01S00015.carg2 +++| EQ ARG9 CHECK IF FURTHER SPECIFICATION ALLOWED 00164 M01S00028.ns2573 +++| 00165 M01S00029.ns2573 +++|* ENTER ARGUMENT VALUE(S) INTO TABLE SPECIFIED FOR VALUES. 00166 M01S00030.ns2573 +++| 00167 M01S00031.ns2573 +++| ARG6 BX7 X0*X4 00168 M01S00016.carg2 +++| SX6 X4-1R/ CHECK SEPARATOR AFTER THIS VALUE 00169 M01S00032.ns2573 +++| ZR X7,ARG7 IF NULL ARGUMENT 00170 M01S00033.ns2573 +++| SA7 B2 STORE VALUE INTO TABLE
| Line S00034 Modification History | |
|---|---|
M01 (Added by) | ns2573 |
M02 (Updated by) | carg2 |
Seq # *Modification Id* Act ----------------------------+ 00171 M02S00034.carg2 ---| SB2 B2+1 INCREMENT TABLE INDEX
| Line S00035 Modification History | |
|---|---|
M01 (Added by) | ns2573 |
M02 (Updated by) | carg2 |
Seq # *Modification Id* Act ----------------------------+ 00172 M02S00035.carg2 ---| ARG7 SX7 X4-1R/ CHECK SEPARATOR AFTER THIS VALUE
| Line S00036 Modification History | |
|---|---|
M01 (Added by) | ns2573 |
M02 (Updated by) | carg2 |
Seq # *Modification Id* Act ----------------------------+ 00173 M02S00036.carg2 ---| ZR X7,ARG8 IF NOS */*
| Line S00037 Modification History | |
|---|---|
M01 (Added by) | ns2573 |
M02 (Updated by) | carg2 |
Seq # *Modification Id* Act ----------------------------+ 00174 M02S00037.carg2 ---| SX7 X4-3
| Line S00038 Modification History | |
|---|---|
M01 (Added by) | ns2573 |
M02 (Updated by) | carg2 |
Seq # *Modification Id* Act ----------------------------+ 00175 M02S00038.carg2 ---| NZ X7,ARG9 IF NOT PRODUCT SET */*
| Line S00039 Modification History | |
|---|---|
M01 (Added by) | ns2573 |
M02 (Updated by) | carg2 |
Seq # *Modification Id* Act ----------------------------+ 00176 M02S00039.carg2 ---| ARG8 SA1 A4+B1 CHECK SEPARATOR AFTER NEXT VALUE
| Line S00040 Modification History | |
|---|---|
M01 (Added by) | ns2573 |
M02 (Updated by) | carg2 |
Seq # *Modification Id* Act ----------------------------+ 00177 M02S00040.carg2 ---| SX7 X1-1R=
| Line S00041 Modification History | |
|---|---|
M01 (Added by) | ns2573 |
M02 (Updated by) | carg2 |
Seq # *Modification Id* Act ----------------------------+ 00178 M02S00041.carg2 ---| ZR X7,ARG9 IF NOS *=*
| Line S00042 Modification History | |
|---|---|
M01 (Added by) | ns2573 |
M02 (Updated by) | carg2 |
Seq # *Modification Id* Act ----------------------------+ 00179 M02S00042.carg2 ---| SX7 X1-2
| Line S00043 Modification History | |
|---|---|
M01 (Added by) | ns2573 |
M02 (Updated by) | carg2 |
Seq # *Modification Id* Act ----------------------------+ 00180 M02S00043.carg2 ---| ZR X7,ARG9 IF PRODUCT SET *=* 00181 M01S00017.carg2 +++| SB2 B2+B1 INCREMENT TABLE INDEX 00182 M01S00018.carg2 +++| ARG7 SX7 B0+ SET ARGUMENT TABLE TERMINATOR 00183 M01S00019.carg2 +++| ZR X6,ARG8 IF NOS */* 00184 M01S00020.carg2 +++| SX6 X4-3
| Line S00021 Modification History | |
|---|---|
M01 (Added by) | carg2 |
M02 (Updated by) | carg3 |
Seq # *Modification Id* Act ----------------------------+ 00185 M02S00021.carg3 ---| NZ X6,ARG9 IF NOT PRODUCT SET */* 00186 M01S00002.carg3 +++| NZ X6,ARG8.1 IF NOT PRODUCT SET */* 00187 M01S00022.carg2 +++| ARG8 SA1 A4+1 CHECK SEPARATOR AFTER NEXT VALUE 00188 M01S00023.carg2 +++| SX6 X1-1R=
| Line S00024 Modification History | |
|---|---|
M01 (Added by) | carg2 |
M02 (Updated by) | carg3 |
Seq # *Modification Id* Act ----------------------------+ 00189 M02S00024.carg3 ---| ZR X6,ARG9 IF NOS *=* 00190 M01S00003.carg3 +++| ZR X6,ARG8.1 IF NOS *=* 00191 M01S00025.carg2 +++| SX6 X1-2
| Line S00026 Modification History | |
|---|---|
M01 (Added by) | carg2 |
M02 (Updated by) | carg3 |
Seq # *Modification Id* Act ----------------------------+ 00192 M02S00026.carg3 ---| ZR X6,ARG9 IF PRODUCT SET *=* 00193 M01S00004.carg3 +++| ZR X6,ARG8.1 IF PRODUCT SET *=* 00194 M01S00044.ns2573 +++| SA4 A4+B1 GET NEXT ARGUMENT VALUE 00195 M01S00045.ns2573 +++| SB4 B4-B1 00196 M01S00046.ns2573 +++| NZ B4,ARG6 IF NOT END OF ARGUMENTS 00197 M01S00005.carg3 +++| ARG8.1 EQ B2,B3,ARG10 IF NO LIST THEN IGNORE PARAMETER
| Line S00047 Modification History | |
|---|---|
M01 (Added by) | ns2573 |
M02 (Updated by) | carg2 |
Seq # *Modification Id* Act ----------------------------+ 00198 M02S00047.carg2 ---| ARG9 SX7 B0+ TERMINATE ARGUMENT VALUE TABLE
| Line S00048 Modification History | |
|---|---|
M01 (Added by) | ns2573 |
M02 (Updated by) | carg2 |
Seq # *Modification Id* Act ----------------------------+ 00199 M02S00048.carg2 ---| SA7 B2+ 00200 M01S00049.ns2573 +++| 00201 M01S00050.ns2573 +++|* CHECK IF FURTHER SPECIFICATION OF THIS ARGUMENT ALLOWED. 00202 M01S00051.ns2573 +++|
| Line S00052 Modification History | |
|---|---|
M01 (Added by) | ns2573 |
M02 (Updated by) | carg2 |
Seq # *Modification Id* Act ----------------------------+ 00203 M02S00052.carg2 ---| ARG10 SA2 A2 GET ARGUMENT ADDRESS 00204 M01S00027.carg2 +++| ARG9 SA7 B2 STORE ARGUMENT 00205 M01S00028.carg2 +++| SA2 A2 GET ARGUMENT ADDRESS 00206 M01S00053.ns2573 +++| SB2 X2 00207 M01S00054.ns2573 +++| LX2 30 GET ASSUMED VALUE ADDRESS 00208 M01S00055.ns2573 +++| SB3 X2 00209 M01S00118.comcarg +++| SB3 B2-B3
| Line S00119 Modification History | |
|---|---|
M01 (Added by) | comcarg |
M02 (Updated by) | ns2573 |
Seq # *Modification Id* Act ----------------------------+ 00210 M02S00119.ns2573 ---| NZ B3,ARG6 IF ASSUMED VALUE NOT IN ARGUMENT ADDRESS
| Line S00120 Modification History | |
|---|---|
M01 (Added by) | comcarg |
M02 (Updated by) | ns2573 |
Seq # *Modification Id* Act ----------------------------+ 00211 M02S00120.ns2573 ---| SA2 A2
| Line S00056 Modification History | |
|---|---|
M01 (Added by) | ns2573 |
M02 (Updated by) | carg2 |
Seq # *Modification Id* Act ----------------------------+ 00212 M02S00056.carg2 ---| NZ B3,ARG11 IF ASSUMED VALUE .NE. ARGUMENT ADDRESS 00213 M01S00029.carg2 +++| NZ B3,ARG10 IF ASSUMED VALUE .NE. ARGUMENT ADDRESS 00214 M01S00057.ns2573 +++| LX2 30 00215 M01S00121.comcarg +++| MX3 12
| Line S00122 Modification History | |
|---|---|
M01 (Added by) | comcarg |
M02 (Updated by) | ns2573 |
Seq # *Modification Id* Act ----------------------------+ 00216 M02S00122.ns2573 ---| BX4 -X3*X2
| Line S00123 Modification History | |
|---|---|
M01 (Added by) | comcarg |
M02 (Updated by) | ns2573 |
Seq # *Modification Id* Act ----------------------------+ 00217 M02S00123.ns2573 ---| BX7 X3+X4 SET OP = -0 IF ONLY ONE ARGUMENT ALLOWED
| Line S00124 Modification History | |
|---|---|
M01 (Added by) | comcarg |
M02 (Updated by) | ns2573 |
Seq # *Modification Id* Act ----------------------------+ 00218 M02S00124.ns2573 ---| SA7 A2
| Line S00125 Modification History | |
|---|---|
M01 (Added by) | comcarg |
M02 (Updated by) | ns2573 |
Seq # *Modification Id* Act ----------------------------+ 00219 M02S00125.ns2573 ---| ARG6 SB4 B4-B1 CHECK FOR MORE ARGUMENTS 00220 M01S00058.ns2573 +++| BX7 X3+X2 SET OP = -0 IF ONLY ONE ARGUMENT ALLOWED
| Line S00059 Modification History | |
|---|---|
M01 (Added by) | ns2573 |
M02 (Updated by) | ns2695 |
Seq # *Modification Id* Act ----------------------------+ 00221 M02S00059.ns2695 ---| SA7 A2+ 00222 M01S00001.ns2695 +++| AX2 48 00223 M01S00002.ns2695 +++| SX2 X2-77B 00224 M01S00003.ns2695 +++| NZ X2,ARG9.1 IF A SINGLE WORD ENTRY 00225 M01S00004.ns2695 +++| SA2 A2+1 SET OP = -0 IN SECOND WORD 00226 M01S00005.ns2695 +++| MX7 42 00227 M01S00006.ns2695 +++| ARG9.1 SA7 A2+ 00228 M01S00060.ns2573 +++| 00229 M01S00061.ns2573 +++|* CHECK FOR MORE ARGUMENTS. 00230 M01S00062.ns2573 +++|
| Line S00063 Modification History | |
|---|---|
M01 (Added by) | ns2573 |
M02 (Updated by) | carg2 |
Seq # *Modification Id* Act ----------------------------+ 00231 M02S00063.carg2 ---| ARG11 ZR B4,ARG12 IF LAST ARGUMENT ALREADY PROCESSED 00232 M01S00030.carg2 +++| ARG10 ZR B4,ARG11 IF LAST ARGUMENT ALREADY PROCESSED 00233 M01S00064.ns2573 +++| SB4 B4-B1 CHECK FOR MORE ARGUMENTS 00234 M01S00126.comcarg +++| SA4 A4+B1 00235 M01S00127.comcarg +++| NZ B4,ARG1 IF MORE ARGUMENTS TO PROCESS
| Line S00128 Modification History | |
|---|---|
M01 (Added by) | comcarg |
M02 (Updated by) | ns2573 |
Seq # *Modification Id* Act ----------------------------+ 00236 M02S00128.ns2573 ---| SX1 B0 CLEAR ERROR
| Line S00065 Modification History | |
|---|---|
M01 (Added by) | ns2573 |
M02 (Updated by) | carg2 |
Seq # *Modification Id* Act ----------------------------+ 00237 M02S00065.carg2 ---| ARG12 BX1 X1-X1 CLEAR ERROR 00238 M01S00031.carg2 +++| ARG11 SX1 B0+ CLEAR ERROR 00239 M01S00129.comcarg +++| EQ ARGX RETURN 00240 M01S00130.comcarg +++| SPACE 4 00241 M01S00131.comcarg +++| BASE * 00242 M01S00132.comcarg +++| QUAL$ IF -DEF,QUAL$ 00243 M01S00133.comcarg +++| QUAL * 00244 M01S00134.comcarg +++| ARG EQU /COMCARG/ARG 00245 M01S00135.comcarg +++| QUAL$ ENDIF 00246 M01S00136.comcarg +++| ENDX
cdc/nos2.source/opl.opl871/common/comcarg.txt · Last modified: by 127.0.0.1