Common COMCCPA

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.comccpa +++|          CTEXT  COMCCPA - CONVERT POSITIONAL ARGUMENTS.
00002  M00S00002.comccpa +++| CPA      SPACE  4
00003  M00S00003.comccpa +++|          IF     -DEF,QUAL$,1
00004  M00S00004.comccpa +++|          QUAL   COMCCPA
00005  M00S00005.comccpa +++|          BASE   D

Line S00006 Modification History
`M01` (Removed by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00006  M01S00006.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORP., 1975.

Line S00001 Modification History
`M01` (Added by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00007  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M00S00007.comccpa +++|          SPACE  4
00009  M00S00008.comccpa +++|***       CPA - CONVERT POSITIONAL ARGUMENTS.
00010  M00S00009.comccpa +++|*         S. L. KSANDER.     75/08/16.
00011  M00S00010.comccpa +++|          SPACE  4
00012  M00S00011.comccpa +++|***       CPA - CONVERT POSITIONAL ARGUMENTS.
00013  M00S00012.comccpa +++|*         AN INPUT STRING BUFFER IS EXAMINED AND ALL POSITIONAL
00014  M00S00013.comccpa +++|*         ARGUMENTS ARE TRANSLATED TO KEYWORD ARGUMENTS IN AN
00015  M00S00014.comccpa +++|*         OUTPUT STRING. MEANING OF AN ARGUMENT POSITION IS GOVERNED BY
00016  M00S00015.comccpa +++|*         POSITION OF KEYWORD IN ARGUMENT TABLE.
00017  M00S00016.comccpa +++|*
00018  M00S00017.comccpa +++|*         ENTRY  (B1) = 1.
00019  M00S00018.comccpa +++|*                (B2) = LENGTH OF ARGUMENT TABLE.
00020  M00S00019.comccpa +++|*                (B3) = ADDRESS OF ARGUMENT TABLE.
00021  M00S00020.comccpa +++|*                (B4) = ADDRESS TO STORE RESULT.
00022  M00S00021.comccpa +++|*                (B6) = FIRST ADDRESS OF INPUT STRING.
00023  M00S00022.comccpa +++|*
00024  M00S00023.comccpa +++|*         EXIT   (B5) .LT. 0 IF ERROR.
00025  M00S00024.comccpa +++|*                (B5) = LWA OF RESULT STRING.
00026  M00S00025.comccpa +++|*                (X1) .GT. 0 IF NO ARGUMENTS CONVERTED
00027  M00S00026.comccpa +++|*
00028  M00S00027.comccpa +++|*         USES   B - 4, 5, 6, 7.
00029  M00S00028.comccpa +++|*                A - 1, 2, 3, 6, 7.
00030  M00S00029.comccpa +++|*                X - ALL.
00031  M00S00030.comccpa +++|*
00032  M00S00031.comccpa +++|*         CALLS  POP, TRA.
00033  M00S00032.comccpa +++|
00034  M00S00033.comccpa +++|
00035  M00S00034.comccpa +++| CPA10    SB5    -1          SET ERROR
00036  M00S00035.comccpa +++|
00037  M00S00036.comccpa +++|
00038  M00S00037.comccpa +++| CPA      SUBR               ENTRY/EXIT
00039  M00S00038.comccpa +++|
00040  M00S00039.comccpa +++|*         INITIALIZATION.
00041  M00S00040.comccpa +++|
00042  M00S00041.comccpa +++| CPA1     SX6    B4          SET NEXT OUTPUT ADDRESS
00043  M00S00042.comccpa +++|          SX0    B2          SET ARGUMENT TABLE LENGTH
00044  M00S00043.comccpa +++|          SA6    CPAA
00045  M00S00044.comccpa +++|          BX5    X5-X5       CLEAR POSITION INDICATOR

Line S00001 Modification History
`M01` (Added by)	`ccpa2`

Seq #  *Modification Id* Act 
----------------------------+
00046  M01S00001.ccpa2   +++|          BX6    X6-X6       INITIALIZE *CPAB*
00047  M01S00002.ccpa2   +++|          SA6    CPAB
00048  M00S00045.comccpa +++|
00049  M00S00046.comccpa +++|*         PICK OUT NEXT ARGUMENT.
00050  M00S00047.comccpa +++|
00051  M00S00048.comccpa +++| CPA2     SX4    B6+         SAVE START ADDRESS
00052  M00S00049.comccpa +++|          LE     B6,B0,CPA9  IF END OF STRING
00053  M00S00050.comccpa +++|          RJ     POP         PICK OUT PARAMETER
00054  M00S00051.comccpa +++|          NG     B5,CPAX     IF ERROR
00055  M00S00052.comccpa +++|          NG     X5,CPA4     IF VALUE OF EQUIVALENCE
00056  M00S00053.comccpa +++|          NZ     B5,CPA6     IF MORE THAN ONE WORD ARGUMENT

Line S00054 Modification History
`M01` (Removed by)	`ccpa1`

Seq #  *Modification Id* Act 
----------------------------+
00057  M01S00054.ccpa1   ---|          ZR     X6,CPA8     IF EMPTY ARGUMENT

Line S00001 Modification History
`M01` (Added by)	`ccpa1`

Seq #  *Modification Id* Act 
----------------------------+
00058  M01S00001.ccpa1   +++|          SA3    POPA
00059  M01S00002.ccpa1   +++|          ZR     X3,CPA8     IF EMPTY ARGUMENT
00060  M00S00055.comccpa +++|
00061  M00S00056.comccpa +++|*         CHECK FOR KEYWORD SPECIFICATION.
00062  M00S00057.comccpa +++|
00063  M00S00058.comccpa +++|          SA2    B3
00064  M01S00003.ccpa1   +++|          MX3    12          CHECK ARGUMENT IS KEYWORD
00065  M00S00059.comccpa +++|          SB5    12

Line S00060 Modification History
`M01` (Removed by)	`ccpa1`

Seq #  *Modification Id* Act 
----------------------------+
00066  M01S00060.ccpa1   ---|          MX3    12          CHECK ARGUMENT IS KEYWORD
00067  M00S00061.comccpa ---| CPA3     ZR     X2,CPA6     IF NOT A KEYWORD
00068  M00S00062.comccpa ---|          BX2    X3*X2
00069  M00S00063.comccpa ---|          LX7    X2,B5
00070  M00S00064.comccpa ---|          SX7    X7-77B
00071  M00S00065.comccpa ---|          NZ     X7,CPA3.1   IF KEYWORD .LT. 3 CHARACTERS
00072  M00S00066.comccpa ---|          SA2    A2+B1
00073  M00S00067.comccpa ---| CPA3.1   BX7    X2-X6
00074  M00S00068.comccpa ---|          SA2    A2+B1
00075  M00S00069.comccpa ---|          NZ     X7,CPA3     IF NOT FOUND
00076  M00S00070.comccpa ---|          SX7    X1-1R=      CHECK FOR EQUIVALENCE
00077  M00S00071.comccpa ---|          NZ     X7,CPA6     IF NOT EQUIVALENCED, PROCESS AS POSITIONAL
00078  M00S00072.comccpa ---|
00079  M00S00073.comccpa ---|*         PROCESS *KEY=* OR *=VALUE*.
00080  M00S00074.comccpa ---|
00081  M00S00075.comccpa ---| CPA4     BX5    -X5         REVERSE EQUIVALENCED VALUE FLAG
00082  M00S00076.comccpa ---| CPA5     RJ     TRA         TRANSMIT ARGUMENT
00083  M00S00077.comccpa ---|          NG     X5,CPA2     IF PROCESSING *KEY=*
00084  M00S00078.comccpa ---|          MX7    12
00085  M00S00079.comccpa ---|          SA3    CPAB
00086  M00S00080.comccpa ---|          SX3    X3+B3
00087  M00S00081.comccpa ---|          SB5    X5
00088  M00S00082.comccpa ---|          SA3    X3+B5
00089  M00S00083.comccpa ---|          BX3    X7*X3
00090  M00S00084.comccpa ---|          SB5    12
00091  M00S00085.comccpa ---|          LX7    X3,B5
00092  M00S00086.comccpa ---|          SX7    X7-77B
00093  M00S00087.comccpa ---|          NZ     X7,CPA5.1   IF KEYWORD .LT. 3 CHARACTERS
00094  M00S00088.comccpa ---|          SA3    CPAB
00095  M00S00089.comccpa ---|          SX7    X3+B1
00096  M00S00090.comccpa ---|          SA7    CPAB
00097  M00S00091.comccpa ---| CPA5.1   SX5    X5+B1       ADVANCE POSITION

Line S00001 Modification History
`M01` (Added by)	`ns2586`

Seq #  *Modification Id* Act 
----------------------------+
00098  M01S00001.ns2586  +++|          SA3    CPAB
00099  M01S00002.ns2586  +++|          IX7    X5-X0
00100  M01S00003.ns2586  +++|          IX7    X7+X3
00101  M01S00004.ns2586  +++|          SX3    1
00102  M01S00005.ns2586  +++|          IX7    X7-X3
00103  M01S00006.ns2586  +++|          PL     X7,CPA10    IF POSITION OUT OF RANGE
00104  M00S00092.comccpa +++|          EQ     CPA2        LOOP FOR ALL ARGUMENTS
00105  M00S00093.comccpa +++|
00106  M00S00094.comccpa +++|*         PROCESS POSITIONAL VALUE.
00107  M00S00095.comccpa +++|
00108  M00S00096.comccpa +++| CPA6     SA1    A1+         CHECK EQUIVALENCE
00109  M00S00097.comccpa +++|          SX7    X1-1R=
00110  M00S00098.comccpa +++|          ZR     X7,CPA10    IF EQUIVALENCED

Line S00099 Modification History
`M01` (Removed by)	`ns2586`

Seq #  *Modification Id* Act 
----------------------------+
00111  M01S00099.ns2586  ---|          SA3    CPAB
00112  M01S00100.ns2586  ---|          IX7    X5-X0
00113  M01S00101.ns2586  ---|          IX7    X7+X3
00114  M01S00102.ns2586  ---|          SX3    2
00115  M01S00103.ns2586  ---|          IX7    X7-X3
00116  M01S00104.ns2586  ---|          PL     X7,CPA10    IF POSITION OUT OF RANGE, ERROR
00117  M00S00105.comccpa ---|          MX7    12
00118  M00S00106.comccpa ---|          SA3    CPAB
00119  M00S00107.comccpa ---|          SX3    X3+B3
00120  M00S00108.comccpa ---|          SB5    X5
00121  M00S00109.comccpa ---|          SA3    X3+B5

Line S00001 Modification History
`M01` (Added by)	`ns2007`

Seq #  *Modification Id* Act 
----------------------------+
00122  M01S00001.ns2007  +++|          SB5    2
00123  M01S00002.ns2007  +++|          SB7    2
00124  M00S00110.comccpa +++|          BX2    X7*X3
00125  M00S00111.comccpa +++|          LX2    12
00126  M00S00112.comccpa +++|          SX2    X2-77B
00127  M00S00113.comccpa +++|          NZ     X2,CPA6.1   IF KEYWORD .LT. 3 CHARACTERS
00128  M00S00114.comccpa +++|          SA3    A3+B1
00129  M01S00003.ns2007  +++|          SB7    7
00130  M00S00115.comccpa +++| CPA6.1   MX7    -6
00131  M00S00116.comccpa +++|          SA2    CPAA        READ NEXT OUTPUT ADDRESS
00132  M00S00117.comccpa +++|          LX3    6
00133  M00S00118.comccpa +++|          BX6    -X7*X3
00134  M00S00119.comccpa +++|          LX3    6
00135  M00S00120.comccpa +++|          SA6    X2+

Line S00121 Modification History
`M01` (Removed by)	`ns2007`

Seq #  *Modification Id* Act 
----------------------------+
00136  M01S00121.ns2007  ---|          SB5    2
00137  M01S00122.ns2007  ---|          SB7    7
00138  M00S00123.comccpa ---| CPA6.2   GT     B5,B7,CPA7  IF NO MORE CHARACTERS
00139  M00S00124.comccpa ---|          BX6    -X7*X3
00140  M00S00125.comccpa ---|          ZR     X6,CPA7     IF KEYWORD END
00141  M00S00126.comccpa ---|          SA6    X2+B1
00142  M00S00127.comccpa ---|          SX2    X2+B1
00143  M00S00128.comccpa ---|          LX3    6
00144  M00S00129.comccpa ---|          SB5    B5+B1
00145  M00S00130.comccpa ---|          EQ     CPA6.2      CHECK FOR NO MORE CHARACTERS
00146  M00S00131.comccpa ---| CPA7     SX6    1R=
00147  M00S00132.comccpa ---|          SA6    X2+B1
00148  M00S00133.comccpa ---|          SX7    A6+B1
00149  M00S00134.comccpa ---|          SA7    A2
00150  M00S00135.comccpa ---|          RJ     TRA         TRANSMIT ARGUMENT
00151  M00S00136.comccpa ---| CPA8     MX7    12
00152  M00S00137.comccpa ---|          SA3    CPAB
00153  M00S00138.comccpa ---|          SX3    X3+B3
00154  M00S00139.comccpa ---|          SB5    X5
00155  M00S00140.comccpa ---|          SA3    X3+B5
00156  M00S00141.comccpa ---|          BX3    X7*X3
00157  M00S00142.comccpa ---|          SB5    12
00158  M00S00143.comccpa ---|          LX7    X3,B5
00159  M00S00144.comccpa ---|          SX7    X7-77B
00160  M00S00145.comccpa ---|          NZ     X7,CPA5.1   IF KEYWORD .LT. 3 CHARACTERS
00161  M00S00146.comccpa ---|          SA3    CPAB
00162  M00S00147.comccpa ---|          SX7    X3+B1
00163  M00S00148.comccpa ---|          SA7    CPAB
00164  M00S00149.comccpa ---|          SX5    X5+B1       ADVANCE POSITION
00165  M00S00150.comccpa ---|          EQ     CPA2        LOOP TO END OF ARGUMENTS
00166  M00S00151.comccpa ---|
00167  M00S00152.comccpa ---|*         NORMAL COMPLETION.
00168  M00S00153.comccpa ---|
00169  M00S00154.comccpa ---| CPA9     SA1    CPAA        RETURN LWA OF RESULT
00170  M00S00155.comccpa ---|          SX7    1R.         ENSURE TERMINATOR
00171  M00S00156.comccpa ---|          SB5    X1
00172  M00S00157.comccpa ---|          PL     X1,CPA9.1   IF NO ARGUMENTS PROCESSED
00173  M00S00158.comccpa ---|          SB5    B5-B1       ADJUST LWA FOR LAST ARGUMENT
00174  M00S00159.comccpa ---| CPA9.1   SA7    B5
00175  M00S00160.comccpa ---|          EQ     CPAX        RETURN
00176  M00S00161.comccpa ---|
00177  M00S00162.comccpa ---| CPAA     CON    0           1/ARGUMENTS PROCESSED,59/NEXT OUTPUT ADDR.
00178  M00S00163.comccpa ---| CPAB     CON    0           NUMBER OF EXTRA ARG TABLE WORDS
00179  M00S00164.comccpa ---| TRA      SPACE  4
00180  M00S00165.comccpa ---|**        TRA - TRANSMIT ARGUMENT TO OUTPUT STRING.
00181  M00S00166.comccpa ---|*
00182  M00S00167.comccpa ---|*         ENTRY  (B1) = 1.
00183  M00S00168.comccpa ---|*                (X4) = FWA OF SOURCE.
00184  M00S00169.comccpa ---|*                (A1) = LWA OF SOURCE.
00185  M00S00170.comccpa ---|*                (CPAA) = NEXT OUTPUT ADDRESS.
00186  M00S00171.comccpa ---|*
00187  M00S00172.comccpa ---|*         USES   A - 1, 2, 6.
00188  M00S00173.comccpa ---|*                X - 1, 2, 3, 6.
00189  M00S00174.comccpa ---|
00190  M00S00175.comccpa ---|
00191  M00S00176.comccpa ---| TRA      SUBR               ENTRY/EXIT
00192  M00S00177.comccpa ---|          SX3    A1+B1       FIND WORD COUNT
00193  M00S00178.comccpa ---|          SA1    X4-1        INITIALIZE SOURCE ADDRESS
00194  M00S00179.comccpa ---|          IX3    X3-X4
00195  M00S00180.comccpa ---|          SA2    CPAA        SET NEXT OUTPUT ADDRESS
00196  M00S00181.comccpa ---| TRA1     SA1    A1+B1       MOVE
00197  M00S00182.comccpa ---|          SX3    X3-1
00198  M00S00183.comccpa ---|          BX6    X1
00199  M00S00184.comccpa ---|          SA6    X2
00200  M00S00185.comccpa ---|          SX2    X2+B1
00201  M00S00186.comccpa ---|          NZ     X3,TRA1     IF MOVE NOT COMPLETE
00202  M00S00187.comccpa ---|          MX1    1           SET ARGUMENTS PROCESSED
00203  M00S00188.comccpa ---|          BX6    X2+X1       UPDATE NEXT OUTPUT ADDRESS
00204  M00S00189.comccpa ---|          SA6    A2+
00205  M00S00190.comccpa ---|          EQ     TRAX        RETURN
00206  M00S00191.comccpa ---|          SPACE  4
00207  M00S00192.comccpa ---|          BASE   *
00208  M00S00193.comccpa ---| QUAL$    IF     -DEF,QUAL$
00209  M00S00194.comccpa ---|          QUAL   *
00210  M00S00195.comccpa ---| CPA      EQU    /COMCCPA/CPA
00211  M00S00196.comccpa ---|          ENDIF
00212  M00S00197.comccpa ---|          ENDX