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