User Tools

Site Tools


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