cdc:nos2.source:opl.opl871:common:comcarg
Common COMCARG
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.comcarg +++| CTEXT COMCARG - PROCESS ARGUMENTS. 00002 M00S00002.comcarg +++| ARG SPACE 4 00003 M00S00003.comcarg +++| IF -DEF,QUAL$,1 00004 M00S00004.comcarg +++| QUAL COMCARG 00005 M00S00005.comcarg +++| BASE D
| Line S00006 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00006 M01S00006.281l803 ---|* COMMENT COPYRIGHT CONTROL DATA CORP. 1970.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00007 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00008 M00S00007.comcarg +++| ARG SPACE 4 00009 M00S00008.comcarg +++|*** ARG - PROCESS ARGUMENTS. 00010 M00S00009.comcarg +++|* G. R. MANSFIELD. 70/10/09.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2573 |
Seq # *Modification Id* Act ----------------------------+ 00011 M01S00001.ns2573 +++|* B. G. ALBRECHT. 88/01/22. 00012 M01S00002.ns2573 +++|* P. C. SMITH. 88/01/22. 00013 M00S00010.comcarg +++| ARG SPACE 4 00014 M00S00011.comcarg +++|*** ARG PROCESSES AN ARGUMENT LIST BY THE USE OF AN 00015 M00S00012.comcarg +++|* EQUIVALENCE TABLE. 00016 M00S00013.comcarg +++|* 00017 M00S00014.comcarg +++|* ENTRY (B1) = 1. 00018 M00S00015.comcarg +++|* (B4) = ARGUMENT COUNT. 00019 M00S00016.comcarg +++|* (A4) = ADDRESS OF FIRST ARGUMENT. 00020 M00S00017.comcarg +++|* (X4) = FIRST ARGUMENT. 00021 M00S00018.comcarg +++|* (B5) = ADDRESS OF ARGUMENT TABLE IN ONE OF THE 00022 M00S00019.comcarg +++|* FOLLOWING FORMS - 00023 M00S00020.comcarg +++|* 1. 12/ OP, 18/ ASV, 12/ ST, 18/ ADDR 00024 M00S00021.comcarg +++|* 2. 12/ 77B, 18/ ASV, 12/ ST, 18/ ADDR 00025 M00S00022.comcarg +++|* 42/ OP, 18/0 00026 M00S00023.comcarg +++|* 77B = INDICATION THAT TWO-WORD ENTRY TABLE 00027 M00S00024.comcarg +++|* FORMAT WAS USED. 00028 M00S00025.comcarg +++|* OP = ONE TO SEVEN CHARACTER OPTION. 00029 M00S00026.comcarg +++|* ASV = ADDRESS OF ASSUMED VALUE. 00030 M00S00027.comcarg +++|* ST = STATUS. 00031 M00S00028.comcarg +++|* ADDR = ADDRESS TO STORE ARGUMENT. 00032 M00S00029.comcarg +++|* THE LOWER 18 BITS OF THE ASSUMED VALUE ARE 00033 M00S00030.comcarg +++|* ENTERED INTO THE EQUIVALENCED ARGUMENT.
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns2573 |
Seq # *Modification Id* Act ----------------------------+ 00034 M01S00003.ns2573 +++|* 00035 M00S00031.comcarg +++|* IF *ASV* .LT. 0, THE ARGUMENT MUST NOT BE 00036 M00S00032.comcarg +++|* EQUIVALENCED. 00037 M00S00033.comcarg +++|* IF *ASV* = *ADDR*, ONLY ONE ENTRY OF THAT 00038 M00S00034.comcarg +++|* ARGUMENT WILL BE ALLOWED (*OP* IS SET TO - 0).
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | ns2573 |
Seq # *Modification Id* Act ----------------------------+ 00039 M01S00004.ns2573 +++|* 00040 M00S00035.comcarg +++|* IF STATUS = 4000B, A ZERO *0* PARAMETER IS 00041 M00S00036.comcarg +++|* RETAINED AS A DISPLAY ZERO, OTHERWISE A 00042 M00S00037.comcarg +++|* VALUE OF ZERO IS STORED.
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | ns2573 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00038.comcarg +++|* 00055 M00S00039.comcarg +++|* EXIT (X1) .NE. 0, IF ARGUMENT ERROR DETECTED. 00056 M00S00040.comcarg +++|* AN ERROR STATUS IS RETURNED FOR THE FOLLOWING 00057 M00S00041.comcarg +++|* CONDITIONS - 00058 M00S00042.comcarg +++|* 1. OPTION NOT FOUND IN TABLE 00059 M00S00043.comcarg +++|* 2. SINGLE ARGUMENT EQUIVALENCED 00060 M00S00044.comcarg +++|* 3. ILLEGAL RE-ENTRY OF ARGUMENT 00061 M00S00045.comcarg +++|* 00062 M00S00046.comcarg +++|* USES X - 0, 1, 2, 3, 4, 6, 7. 00063 M00S00047.comcarg +++|* B - 2, 3, 4. 00064 M00S00048.comcarg +++|* A - 2, 3, 4, 7. 00065 M00S00049.comcarg +++| 00066 M00S00050.comcarg +++| 00067 M00S00051.comcarg +++| ARG SUBR ENTRY/EXIT 00068 M00S00052.comcarg +++| MX0 42
| Line S00053 Modification History | |
|---|---|
M01 (Removed by) | carg2 |
Seq # *Modification Id* Act ----------------------------+ 00069 M01S00053.carg2 ---| SX1 B0 00070 M01S00054.carg2 ---| ZR B4,ARGX IF NO ARGUMENTS
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | carg2 |
Seq # *Modification Id* Act ----------------------------+ 00071 M01S00001.carg2 +++| ZR B4,ARG11 IF NO ARGUMENTS 00072 M00S00055.comcarg +++| SX1 B1 PRESET ERROR 00073 M00S00056.comcarg +++| 00074 M00S00057.comcarg +++|* SEARCH FOR MATCH IN ARGUMENT TABLE. 00075 M00S00058.comcarg +++| 00076 M00S00059.comcarg +++| ARG1 ZR X4,ARGX IF NULL ARGUMENT 00077 M00S00060.comcarg +++| SA2 B5-B1 00078 M00S00061.comcarg +++| MX3 12
| Line S00062 Modification History | |
|---|---|
M01 (Removed by) | carg2 |
Seq # *Modification Id* Act ----------------------------+ 00079 M01S00062.carg2 ---| SB3 12 00080 M00S00063.comcarg +++| ARG1.1 SA2 A2+B1 GET NEXT OPTION 00081 M00S00064.comcarg +++| ZR X2,ARGX IF END OF OPTION TABLE
| Line S00065 Modification History | |
|---|---|
M01 (Removed by) | carg2 |
Seq # *Modification Id* Act ----------------------------+ 00082 M01S00065.carg2 ---| SB2 B0 00083 M00S00066.comcarg +++| BX6 X3*X2 CHECK FOR KEYWORD MATCH
| Line S00067 Modification History | |
|---|---|
M01 (Removed by) | carg2 |
Seq # *Modification Id* Act ----------------------------+ 00084 M01S00067.carg2 ---| LX7 X6,B3
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | carg2 |
Seq # *Modification Id* Act ----------------------------+ 00085 M01S00002.carg2 +++| BX7 X6 00086 M01S00003.carg2 +++| LX7 12 00087 M00S00068.comcarg +++| SX7 X7-77B 00088 M00S00069.comcarg +++| NZ X7,ARG1.2 IF ARGUMENT LESS THAN THREE CHARACTERS
| Line S00070 Modification History | |
|---|---|
M01 (Removed by) | carg2 |
Seq # *Modification Id* Act ----------------------------+ 00089 M01S00070.carg2 ---| SB2 B1 00090 M00S00071.comcarg +++| SA2 A2+B1 GET SECOND WORD OF THE ENTRY 00091 M00S00072.comcarg +++| BX6 X0*X2 GET OPTION
| Line S00073 Modification History | |
|---|---|
M01 (Removed by) | carg2 |
Seq # *Modification Id* Act ----------------------------+ 00092 M01S00073.carg2 ---| ARG1.2 BX7 X4-X6 00093 M01S00074.carg2 ---| BX7 X0*X7 00094 M01S00075.carg2 ---| NZ X7,ARG1.1 IF NO MATCH
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | carg2 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00076.comcarg +++| 00099 M00S00077.comcarg +++|* CHECK FOR EQUIVALENCE ALLOWED. 00100 M00S00078.comcarg +++|
| Line S00079 Modification History | |
|---|---|
M01 (Removed by) | carg2 |
Seq # *Modification Id* Act ----------------------------+ 00101 M01S00079.carg2 ---| ZR B2,ARG2 IF ONE WORD ENTRY 00102 M01S00080.carg2 ---| SA2 A2-B1
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | carg2 |
Seq # *Modification Id* Act ----------------------------+ 00103 M01S00007.carg2 +++| NZ X7,ARG2 IF ONE WORD ENTRY 00104 M01S00008.carg2 +++| SA2 A2-1 00105 M00S00081.comcarg +++| ARG2 SX7 X4-1R= CHECK FOR EQUIVALENCE SEPARATOR 00106 M00S00082.comcarg +++| SB2 X2 SET VALUE ADDRESS 00107 M00S00083.comcarg +++| LX2 30 GET ASSUMED VALUE 00108 M00S00084.comcarg +++| ZR X7,ARG2.1 IF NOS *=* 00109 M00S00085.comcarg +++| SX7 X4-2 CHECK FOR PRODUCT SET FORMAT *=* 00110 M00S00086.comcarg +++| ARG2.1 SB3 X2 00111 M00S00087.comcarg +++| PL B3,ARG3 IF EQUIVALENCE ALLOWED 00112 M00S00088.comcarg +++| SA3 -B3 ASSUMED VALUE 00113 M00S00089.comcarg +++| BX6 -X0*X3 ASSUMED STATUS 00114 M00S00090.comcarg +++| SB3 -B3 00115 M00S00091.comcarg +++| NZ X7,ARG5 IF ARGUMENT NOT EQUIVALENCED 00116 M00S00092.comcarg +++| SA4 A4+B1 00117 M00S00093.comcarg +++| SB4 B4-B1
| Line S00094 Modification History | |
|---|---|
M01 (Removed by) | ns2573 |
Seq # *Modification Id* Act ----------------------------+ 00118 M01S00094.ns2573 ---| ZR X4,ARG6 IF NULL PARAMETER
| Line S00016 Modification History | |
|---|---|
M01 (Added by) | ns2573 |
M02 (Removed by) | carg2 |
Seq # *Modification Id* Act ----------------------------+ 00119 M02S00016.carg2 ---| ZR B4,ARG12 IF NO MORE ARGUMENTS 00120 M02S00017.carg2 ---| ZR X4,ARG11 IF NULL ARGUMENT
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | carg2 |
Seq # *Modification Id* Act ----------------------------+ 00121 M01S00009.carg2 +++| ZR B4,ARG11 IF NO MORE ARGUMENTS 00122 M01S00010.carg2 +++| ZR X4,ARG10 IF NULL ARGUMENT 00123 M00S00095.comcarg +++| EQ ARGX RETURN 00124 M00S00096.comcarg +++| 00125 M00S00097.comcarg +++|* PROCESS EQUIVALENCE. 00126 M00S00098.comcarg +++| 00127 M00S00099.comcarg +++| ARG3 SA3 B3 ASSUMED VALUE 00128 M00S00100.comcarg +++| BX6 -X0*X3 ASSUMED STATUS 00129 M00S00101.comcarg +++| NZ X7,ARG5 IF ARGUMENT NOT EQUIVALENCED
| Line S00102 Modification History | |
|---|---|
M01 (Removed by) | ns2573 |
Seq # *Modification Id* Act ----------------------------+ 00130 M01S00102.ns2573 ---| SA4 A4+B1 CHECK EQUIVALENCE
| Line S00018 Modification History | |
|---|---|
M01 (Added by) | ns2573 |
Seq # *Modification Id* Act ----------------------------+ 00131 M01S00018.ns2573 +++| SA4 A4+B1 CHECK EQUIVALENCED VALUE 00132 M00S00103.comcarg +++| SB4 B4-B1
| Line S00019 Modification History | |
|---|---|
M01 (Added by) | ns2573 |
M02 (Removed by) | carg2 |
Seq # *Modification Id* Act ----------------------------+ 00133 M02S00019.carg2 ---| ZR B4,ARG12 IF NO MORE ARGUMENTS
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | carg2 |
Seq # *Modification Id* Act ----------------------------+ 00134 M01S00011.carg2 +++| ZR B4,ARG11 IF NO MORE ARGUMENTS
| Line S00020 Modification History | |
|---|---|
M01 (Added by) | ns2573 |
Seq # *Modification Id* Act ----------------------------+ 00135 M01S00020.ns2573 +++| LX2 59-28-59+29
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | carg3 |
Seq # *Modification Id* Act ----------------------------+ 00136 M01S00001.carg3 +++| SB3 B2 START OF LIST ADDRESS
| Line S00021 Modification History | |
|---|---|
M01 (Added by) | ns2573 |
Seq # *Modification Id* Act ----------------------------+ 00137 M01S00021.ns2573 +++| NG X2,ARG6 IF TABLE FOR ARGUMENT VALUES SPECIFIED
| Line S00104 Modification History | |
|---|---|
M01 (Removed by) | carg1 |
Seq # *Modification Id* Act ----------------------------+ 00138 M01S00104.carg1 ---| BX3 X4
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | carg1 |
Seq # *Modification Id* Act ----------------------------+ 00139 M01S00001.carg1 +++| BX3 X0*X4 00140 M00S00105.comcarg +++| AX4 42
| Line S00106 Modification History | |
|---|---|
M01 (Removed by) | ns2573 |
Seq # *Modification Id* Act ----------------------------+ 00141 M01S00106.ns2573 ---| NG X2,ARG4 IF DISPLAY ZERO REQUESTED
| Line S00022 Modification History | |
|---|---|
M01 (Added by) | ns2573 |
Seq # *Modification Id* Act ----------------------------+ 00142 M01S00022.ns2573 +++| LX2 59-29-59+28 00143 M01S00023.ns2573 +++| NG X2,ARG4 IF DISPLAY ZERO IS TO BE PRESERVED 00144 M00S00107.comcarg +++| SX2 X4-1L0
| Line S00108 Modification History | |
|---|---|
M01 (Removed by) | ns2573 |
Seq # *Modification Id* Act ----------------------------+ 00145 M01S00108.ns2573 ---| ARG4 ZR X3,ARG6 IF NULL PARAMETER
| Line S00024 Modification History | |
|---|---|
M01 (Added by) | ns2573 |
M02 (Removed by) | carg2 |
Seq # *Modification Id* Act ----------------------------+ 00146 M02S00024.carg2 ---| ARG4 ZR X3,ARG11 IF NULL ARGUMENT
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | carg2 |
Seq # *Modification Id* Act ----------------------------+ 00147 M01S00012.carg2 +++| ARG4 ZR X3,ARG10 IF NULL ARGUMENT 00148 M00S00109.comcarg +++| NZ X2,ARG5 IF NOT *0*
| Line S00110 Modification History | |
|---|---|
M01 (Removed by) | ns2573 |
Seq # *Modification Id* Act ----------------------------+ 00149 M01S00110.ns2573 ---| SX3 B0 CLEAR EQUIVALENCE
| Line S00025 Modification History | |
|---|---|
M01 (Added by) | ns2573 |
M02 (Removed by) | carg2 |
Seq # *Modification Id* Act ----------------------------+ 00150 M02S00025.carg2 ---| SX3 B0 CLEAR EQUIVALENCED VALUE
| Line S00111 Modification History | |
|---|---|
M01 (Removed by) | carg2 |
Seq # *Modification Id* Act ----------------------------+ 00151 M01S00111.carg2 ---| SX6 B0 CLEAR STATUS
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | carg2 |
Seq # *Modification Id* Act ----------------------------+ 00152 M01S00013.carg2 +++| SX7 B0+ CLEAR ARGUMENT, STATUS 00153 M01S00014.carg2 +++| EQ ARG9 TERMINATE ARGUMENT VALUE TABLE 00154 M00S00112.comcarg +++|
| Line S00113 Modification History | |
|---|---|
M01 (Removed by) | ns2573 |
Seq # *Modification Id* Act ----------------------------+ 00155 M01S00113.ns2573 ---|* ENTER ARGUMENT.
| Line S00026 Modification History | |
|---|---|
M01 (Added by) | ns2573 |
Seq # *Modification Id* Act ----------------------------+ 00156 M01S00026.ns2573 +++|* ENTER ARGUMENT VALUE. 00157 M00S00114.comcarg +++| 00158 M00S00115.comcarg +++| ARG5 BX3 X0*X3 MERGE ARGUMENT AND STATUS
| Line S00116 Modification History | |
|---|---|
M01 (Removed by) | ns2659 |
Seq # *Modification Id* Act ----------------------------+ 00159 M01S00116.ns2659 ---| IX7 X3+X6
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2659 |
Seq # *Modification Id* Act ----------------------------+ 00160 M01S00001.ns2659 +++| BX7 X3+X6
| Line S00117 Modification History | |
|---|---|
M01 (Removed by) | carg2 |
Seq # *Modification Id* Act ----------------------------+ 00161 M01S00117.carg2 ---| SA7 B2 STORE ARGUMENT
| Line S00027 Modification History | |
|---|---|
M01 (Added by) | ns2573 |
M02 (Removed by) | carg2 |
Seq # *Modification Id* Act ----------------------------+ 00162 M02S00027.carg2 ---| EQ ARG10 CHECK IF FURTHER SPECIFICATION ALLOWED
| Line S00015 Modification History | |
|---|---|
M01 (Added by) | carg2 |
Seq # *Modification Id* Act ----------------------------+ 00163 M01S00015.carg2 +++| EQ ARG9 CHECK IF FURTHER SPECIFICATION ALLOWED
| Line S00028 Modification History | |
|---|---|
M01 (Added by) | ns2573 |
Seq # *Modification Id* Act ----------------------------+ 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
| Line S00016 Modification History | |
|---|---|
M01 (Added by) | carg2 |
Seq # *Modification Id* Act ----------------------------+ 00168 M01S00016.carg2 +++| SX6 X4-1R/ CHECK SEPARATOR AFTER THIS VALUE
| Line S00032 Modification History | |
|---|---|
M01 (Added by) | ns2573 |
Seq # *Modification Id* Act ----------------------------+ 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 (Removed by) | carg2 |
Seq # *Modification Id* Act ----------------------------+ 00171 M02S00034.carg2 ---| SB2 B2+1 INCREMENT TABLE INDEX 00172 M02S00035.carg2 ---| ARG7 SX7 X4-1R/ CHECK SEPARATOR AFTER THIS VALUE 00173 M02S00036.carg2 ---| ZR X7,ARG8 IF NOS */* 00174 M02S00037.carg2 ---| SX7 X4-3 00175 M02S00038.carg2 ---| NZ X7,ARG9 IF NOT PRODUCT SET */* 00176 M02S00039.carg2 ---| ARG8 SA1 A4+B1 CHECK SEPARATOR AFTER NEXT VALUE 00177 M02S00040.carg2 ---| SX7 X1-1R= 00178 M02S00041.carg2 ---| ZR X7,ARG9 IF NOS *=* 00179 M02S00042.carg2 ---| SX7 X1-2 00180 M02S00043.carg2 ---| ZR X7,ARG9 IF PRODUCT SET *=*
| Line S00017 Modification History | |
|---|---|
M01 (Added by) | carg2 |
Seq # *Modification Id* Act ----------------------------+ 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 (Removed by) | carg3 |
Seq # *Modification Id* Act ----------------------------+ 00185 M02S00021.carg3 ---| NZ X6,ARG9 IF NOT PRODUCT SET */*
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | carg3 |
Seq # *Modification Id* Act ----------------------------+ 00186 M01S00002.carg3 +++| NZ X6,ARG8.1 IF NOT PRODUCT SET */*
| Line S00022 Modification History | |
|---|---|
M01 (Added by) | carg2 |
Seq # *Modification Id* Act ----------------------------+ 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 (Removed by) | carg3 |
Seq # *Modification Id* Act ----------------------------+ 00189 M02S00024.carg3 ---| ZR X6,ARG9 IF NOS *=*
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | carg3 |
Seq # *Modification Id* Act ----------------------------+ 00190 M01S00003.carg3 +++| ZR X6,ARG8.1 IF NOS *=*
| Line S00025 Modification History | |
|---|---|
M01 (Added by) | carg2 |
Seq # *Modification Id* Act ----------------------------+ 00191 M01S00025.carg2 +++| SX6 X1-2
| Line S00026 Modification History | |
|---|---|
M01 (Added by) | carg2 |
M02 (Removed by) | carg3 |
Seq # *Modification Id* Act ----------------------------+ 00192 M02S00026.carg3 ---| ZR X6,ARG9 IF PRODUCT SET *=*
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | carg3 |
Seq # *Modification Id* Act ----------------------------+ 00193 M01S00004.carg3 +++| ZR X6,ARG8.1 IF PRODUCT SET *=*
| Line S00044 Modification History | |
|---|---|
M01 (Added by) | ns2573 |
Seq # *Modification Id* Act ----------------------------+ 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
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | carg3 |
Seq # *Modification Id* Act ----------------------------+ 00197 M01S00005.carg3 +++| ARG8.1 EQ B2,B3,ARG10 IF NO LIST THEN IGNORE PARAMETER
| Line S00047 Modification History | |
|---|---|
M01 (Added by) | ns2573 |
M02 (Removed by) | carg2 |
Seq # *Modification Id* Act ----------------------------+ 00198 M02S00047.carg2 ---| ARG9 SX7 B0+ TERMINATE ARGUMENT VALUE TABLE 00199 M02S00048.carg2 ---| SA7 B2+
| Line S00049 Modification History | |
|---|---|
M01 (Added by) | ns2573 |
Seq # *Modification Id* Act ----------------------------+ 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 (Removed by) | carg2 |
Seq # *Modification Id* Act ----------------------------+ 00203 M02S00052.carg2 ---| ARG10 SA2 A2 GET ARGUMENT ADDRESS
| Line S00027 Modification History | |
|---|---|
M01 (Added by) | carg2 |
Seq # *Modification Id* Act ----------------------------+ 00204 M01S00027.carg2 +++| ARG9 SA7 B2 STORE ARGUMENT 00205 M01S00028.carg2 +++| SA2 A2 GET ARGUMENT ADDRESS
| Line S00053 Modification History | |
|---|---|
M01 (Added by) | ns2573 |
Seq # *Modification Id* Act ----------------------------+ 00206 M01S00053.ns2573 +++| SB2 X2 00207 M01S00054.ns2573 +++| LX2 30 GET ASSUMED VALUE ADDRESS 00208 M01S00055.ns2573 +++| SB3 X2 00209 M00S00118.comcarg +++| SB3 B2-B3
| Line S00119 Modification History | |
|---|---|
M01 (Removed by) | ns2573 |
Seq # *Modification Id* Act ----------------------------+ 00210 M01S00119.ns2573 ---| NZ B3,ARG6 IF ASSUMED VALUE NOT IN ARGUMENT ADDRESS 00211 M01S00120.ns2573 ---| SA2 A2
| Line S00056 Modification History | |
|---|---|
M01 (Added by) | ns2573 |
M02 (Removed by) | carg2 |
Seq # *Modification Id* Act ----------------------------+ 00212 M02S00056.carg2 ---| NZ B3,ARG11 IF ASSUMED VALUE .NE. ARGUMENT ADDRESS
| Line S00029 Modification History | |
|---|---|
M01 (Added by) | carg2 |
Seq # *Modification Id* Act ----------------------------+ 00213 M01S00029.carg2 +++| NZ B3,ARG10 IF ASSUMED VALUE .NE. ARGUMENT ADDRESS
| Line S00057 Modification History | |
|---|---|
M01 (Added by) | ns2573 |
Seq # *Modification Id* Act ----------------------------+ 00214 M01S00057.ns2573 +++| LX2 30 00215 M00S00121.comcarg +++| MX3 12
| Line S00122 Modification History | |
|---|---|
M01 (Removed by) | ns2573 |
Seq # *Modification Id* Act ----------------------------+ 00216 M01S00122.ns2573 ---| BX4 -X3*X2 00217 M01S00123.ns2573 ---| BX7 X3+X4 SET OP = -0 IF ONLY ONE ARGUMENT ALLOWED 00218 M01S00124.ns2573 ---| SA7 A2 00219 M01S00125.ns2573 ---| ARG6 SB4 B4-B1 CHECK FOR MORE ARGUMENTS
| Line S00058 Modification History | |
|---|---|
M01 (Added by) | ns2573 |
Seq # *Modification Id* Act ----------------------------+ 00220 M01S00058.ns2573 +++| BX7 X3+X2 SET OP = -0 IF ONLY ONE ARGUMENT ALLOWED
| Line S00059 Modification History | |
|---|---|
M01 (Added by) | ns2573 |
M02 (Removed by) | ns2695 |
Seq # *Modification Id* Act ----------------------------+ 00221 M02S00059.ns2695 ---| SA7 A2+
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2695 |
Seq # *Modification Id* Act ----------------------------+ 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+
| Line S00060 Modification History | |
|---|---|
M01 (Added by) | ns2573 |
Seq # *Modification Id* Act ----------------------------+ 00228 M01S00060.ns2573 +++| 00229 M01S00061.ns2573 +++|* CHECK FOR MORE ARGUMENTS. 00230 M01S00062.ns2573 +++|
| Line S00063 Modification History | |
|---|---|
M01 (Added by) | ns2573 |
M02 (Removed by) | carg2 |
Seq # *Modification Id* Act ----------------------------+ 00231 M02S00063.carg2 ---| ARG11 ZR B4,ARG12 IF LAST ARGUMENT ALREADY PROCESSED
| Line S00030 Modification History | |
|---|---|
M01 (Added by) | carg2 |
Seq # *Modification Id* Act ----------------------------+ 00232 M01S00030.carg2 +++| ARG10 ZR B4,ARG11 IF LAST ARGUMENT ALREADY PROCESSED
| Line S00064 Modification History | |
|---|---|
M01 (Added by) | ns2573 |
Seq # *Modification Id* Act ----------------------------+ 00233 M01S00064.ns2573 +++| SB4 B4-B1 CHECK FOR MORE ARGUMENTS 00234 M00S00126.comcarg +++| SA4 A4+B1 00235 M00S00127.comcarg +++| NZ B4,ARG1 IF MORE ARGUMENTS TO PROCESS
| Line S00128 Modification History | |
|---|---|
M01 (Removed by) | ns2573 |
Seq # *Modification Id* Act ----------------------------+ 00236 M01S00128.ns2573 ---| SX1 B0 CLEAR ERROR
| Line S00065 Modification History | |
|---|---|
M01 (Added by) | ns2573 |
M02 (Removed by) | carg2 |
Seq # *Modification Id* Act ----------------------------+ 00237 M02S00065.carg2 ---| ARG12 BX1 X1-X1 CLEAR ERROR
| Line S00031 Modification History | |
|---|---|
M01 (Added by) | carg2 |
Seq # *Modification Id* Act ----------------------------+ 00238 M01S00031.carg2 +++| ARG11 SX1 B0+ CLEAR ERROR 00239 M00S00129.comcarg +++| EQ ARGX RETURN 00240 M00S00130.comcarg +++| SPACE 4 00241 M00S00131.comcarg +++| BASE * 00242 M00S00132.comcarg +++| QUAL$ IF -DEF,QUAL$ 00243 M00S00133.comcarg +++| QUAL * 00244 M00S00134.comcarg +++| ARG EQU /COMCARG/ARG 00245 M00S00135.comcarg +++| QUAL$ ENDIF 00246 M00S00136.comcarg +++| ENDX
cdc/nos2.source/opl.opl871/common/comcarg.txt · Last modified: by 127.0.0.1