Common COMCZAP

2 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.comczap +++|          CTEXT  COMCZAP - *Z* ARGUMENT PROCESSOR.
00002  M01S00002.comczap +++|          IF     -DEF,QUAL$,1
00003  M01S00003.comczap +++|          QUAL   COMCZAP
00004  M01S00004.comczap +++|          BASE   D

Line S00005 Modification History
`M01` (Added by)	`comczap`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00005  M02S00005.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORP. 1976.
00006  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00007  M01S00006.comczap +++| ZAP      SPACE  4
00008  M01S00007.comczap +++|***       COMCZAP - *Z* ARGUMENT PROCESSOR.
00009  M01S00008.comczap +++|*         A. D. FORET.       77/02/08.
00010  M01S00009.comczap +++|*         D. R. HILGREN.     79/04/15.
00011  M01S00010.comczap +++|*         J. L. LARSON.      79/04/15.
00012  M01S00011.comczap +++| ZAP      SPACE  4,10
00013  M01S00012.comczap +++|***       ZAP - *Z* ARGUMENT PROCESSOR.
00014  M01S00013.comczap +++|*
00015  M01S00014.comczap +++|*         ENTRY  (X2) = ADDRESS OF INPUT FET TO ENTER DIRECTIVES INTO.
00016  M01S00015.comczap +++|*                (B6) = STRING BUFFER LENGTH.  REQUIRED AND USED ONLY
00017  M01S00016.comczap +++|*                       WHEN VARIABLE LENGTH STRING BUFFER OPTION IS
00018  M01S00017.comczap +++|*                       SELECTED (USBL$ DEFINED).  SEE COMCUSB.
00019  M01S00018.comczap +++|*                USBB = STRING BUFFER.  MUST BE USER DEFINED IF USBL$
00020  M01S00019.comczap +++|*                       IS SELECTED.  SEE COMCUSB.
00021  M01S00020.comczap +++|*                CCDR = CONTROL STATEMENT IMAGE.
00022  M01S00021.comczap +++|*
00023  M01S00022.comczap +++|*         EXIT   DIRECTIVES ENTERED INTO BUFFER OF FET SPECIFIED.
00024  M01S00023.comczap +++|*                FET STATUS SET TO EOR READ.

Line S00024 Modification History
`M01` (Added by)	`comczap`
`M02` (Updated by)	`ns2033`

Seq #  *Modification Id* Act 
----------------------------+
00025  M02S00024.ns2033  ---|*                *COMCZAP* WILL SUPPLY A TERMINATOR AT THE END OF A

Line S00025 Modification History
`M01` (Added by)	`comczap`
`M02` (Updated by)	`ns2033`

Seq #  *Modification Id* Act 
----------------------------+
00026  M02S00025.ns2033  ---|*                DIRECTIVE IF NO TERMINATOR (PERIOD OR CLOSED

Line S00026 Modification History
`M01` (Added by)	`comczap`
`M02` (Updated by)	`ns2033`

Seq #  *Modification Id* Act 
----------------------------+
00027  M02S00026.ns2033  ---|*                PARENTHESIS) HAS BEEN SUPPLIED FOR THAT DIRECTIVE

Line S00027 Modification History
`M01` (Added by)	`comczap`
`M02` (Updated by)	`ns2033`

Seq #  *Modification Id* Act 
----------------------------+
00028  M02S00027.ns2033  ---|*                AND IF *ZAP$* HAS BEEN DEFINED IN THE CALLING PROGRAM.
00029  M01S00001.ns2033  +++|*                IF *ZAP$* IS DEFINED IN THE CALLING PROGRAM,
00030  M01S00002.ns2033  +++|*                *COMCZAP* WILL APPEND A TERMINATOR AT THE END OF
00031  M01S00003.ns2033  +++|*                A DIRECTIVE IF NO TERMINATOR (PERIOD OR RIGHT
00032  M01S00004.ns2033  +++|*                PARENTHESIS) HAS BEEN DETECTED WITHIN THE DIRECTIVE.
00033  M01S00005.ns2033  +++|*                NOTE THAT ANY PERIOD OR RIGHT PARENTHESIS WITHIN
00034  M01S00006.ns2033  +++|*                THE DIRECTIVE (EVEN IN A LITERAL OR AS PART OF A
00035  M01S00007.ns2033  +++|*                LOGICAL EXPRESSION) WILL PREVENT ANOTHER TERMINATOR
00036  M01S00008.ns2033  +++|*                FROM BEING APPENDED AT THE END OF THE DIRECTIVE,
00037  M01S00009.ns2033  +++|*                SO THE USER MUST SUPPLY THE ADDITIONAL TERMINATOR
00038  M01S00010.ns2033  +++|*                IN THIS CASE IF IT IS NEEDED.
00039  M01S00028.comczap +++|*
00040  M01S00029.comczap +++|*         USES   A - 1, 3, 6, 7.
00041  M01S00030.comczap +++|*                B - 2, 6, 7.
00042  M01S00031.comczap +++|*                X - 1, 2, 3, 4, 6, 7.
00043  M01S00032.comczap +++|*

Line S00033 Modification History
`M01` (Added by)	`comczap`
`M02` (Updated by)	`ns2033`

Seq #  *Modification Id* Act 
----------------------------+
00044  M02S00033.ns2033  ---|*         CALLS  /COMCUSB/USB.
00045  M01S00011.ns2033  +++|*         CALLS  USB.
00046  M01S00034.comczap +++|*
00047  M01S00035.comczap +++|*         MACROS RECALL, WRITES.
00048  M01S00036.comczap +++|*
00049  M01S00037.comczap +++|*         NOTES  THE FIRST CHARACTER AFTER THE CONTROL STATEMENT
00050  M01S00038.comczap +++|*                TERMINATOR IS THE SEPARATOR CHARACTER FOR ALL
00051  M01S00039.comczap +++|*                DIRECTIVES ON THE CONTROL STATEMENT.  ANY DISPLAY
00052  M01S00040.comczap +++|*                CODE CHARACTER NOT USED IN ANY DIRECTIVE (INCLUDING
00053  M01S00041.comczap +++|*                SPACE) CAN BE USED AS THE SEPARATOR CHARACTER.
00054  M01S00012.ns2033  +++|*                MULTIPLE CONSECUTIVE SEPARATORS GENERATE EMPTY LINES.
00055  M01S00042.comczap +++|
00056  M01S00043.comczap +++|
00057  M01S00044.comczap +++| ZAP      SUBR               ENTRY/EXIT
00058  M01S00045.comczap +++|
00059  M01S00046.comczap +++|*         SET INPUT FET STATUS TO EOR READ.
00060  M01S00047.comczap +++|
00061  M01S00048.comczap +++|          BX4    X2
00062  M01S00049.comczap +++|          RECALL X2
00063  M01S00050.comczap +++|          MX3    42
00064  M01S00051.comczap +++|          SA1    X4          SET EOR READ STATUS IN FET
00065  M01S00052.comczap +++|          SX2    31B
00066  M01S00053.comczap +++|          BX6    X3*X1
00067  M01S00054.comczap +++|          SX3    41B         PRESET TERMINATOR INDICATOR
00068  M01S00055.comczap +++|          BX6    X6+X2
00069  M01S00056.comczap +++|          LX3    12
00070  M01S00057.comczap +++|          SA6    A1
00071  M01S00058.comczap +++|          SB2    CCDR        FWA CONTROL STATEMENT

Line S00059 Modification History
`M01` (Added by)	`comczap`
`M02` (Updated by)	`ns2033`

Seq #  *Modification Id* Act 
----------------------------+
00072  M02S00059.ns2033  ---|          RJ     /COMCUSB/USB  UNPACK CONTROL STATEMENT
00073  M01S00013.ns2033  +++|          RJ     USB         UNPACK CONTROL STATEMENT
00074  M01S00060.comczap +++|
00075  M01S00061.comczap +++|*         FIND CONTROL STATEMENT TERMINATOR.
00076  M01S00062.comczap +++|
00077  M01S00063.comczap +++| ZAP1     SA1    B6          GET NEXT CHARACTER FROM CONTROL STATEMENT
00078  M01S00064.comczap +++|          SB2    X1
00079  M01S00065.comczap +++|          LX7    X3,B2
00080  M01S00066.comczap +++|          SB6    B6+B1
00081  M01S00067.comczap +++|          GE     B6,B7,ZAPX  IF END OF CONTROL STATEMENT
00082  M01S00068.comczap +++|          PL     X7,ZAP1     IF NOT TERMINATOR
00083  M01S00069.comczap +++|
00084  M01S00070.comczap +++|*         EXTRACT ONE DIRECTIVE.
00085  M01S00071.comczap +++|

Line S00072 Modification History
`M01` (Added by)	`comczap`
`M02` (Updated by)	`ns2033`

Seq #  *Modification Id* Act 
----------------------------+
00086  M02S00072.ns2033  ---| ZAP2     SA3    B6+         GET SEPARATOR

Line S00073 Modification History
`M01` (Added by)	`comczap`
`M02` (Updated by)	`ns2033`

Seq #  *Modification Id* Act 
----------------------------+
00087  M02S00073.ns2033  ---|          SB2    B6+1        SAVE FWA DIRECTIVE
00088  M01S00014.ns2033  +++| ZAP2     SA3    B6          GET SEPARATOR
00089  M01S00015.ns2033  +++|          SB2    B6+B1       SAVE FWA DIRECTIVE
00090  M01S00074.comczap +++| .C       IF     DEF,ZAP$
00091  M01S00075.comczap +++|          SX2    B1          ASSUME NO TERMINATOR FOUND
00092  M01S00076.comczap +++| .C       ENDIF
00093  M01S00077.comczap +++| ZAP3     SB6    B6+B1
00094  M01S00078.comczap +++|          SA1    B6+         GET NEXT CHARACTER FROM CONTROL STATEMENT
00095  M01S00079.comczap +++|          BX7    X3-X1       CHECK FOR SEPARATOR
00096  M01S00080.comczap +++|          GT     B6,B7,ZAP4  IF END OF CONTROL STATEMENT
00097  M01S00081.comczap +++| .D       IF     DEF,ZAP$

Line S00082 Modification History
`M01` (Added by)	`comczap`
`M02` (Updated by)	`ns2033`

Seq #  *Modification Id* Act 
----------------------------+
00098  M02S00082.ns2033  ---|          ZR     X7,ZAP3.2   IF END OF DIRECTIVE
00099  M01S00016.ns2033  +++|          ZR     X7,ZAP4     IF END OF DIRECTIVE
00100  M01S00083.comczap +++|          SX7    X1-1R.
00101  M01S00084.comczap +++|          ZR     X7,ZAP3.1   IF TERMINATOR
00102  M01S00085.comczap +++|          SX7    X1-1R)
00103  M01S00086.comczap +++|          NZ     X7,ZAP3     IF NOT TERMINATOR

Line S00087 Modification History
`M01` (Added by)	`comczap`
`M02` (Updated by)	`ns2033`

Seq #  *Modification Id* Act 
----------------------------+
00104  M02S00087.ns2033  ---| ZAP3.1   SX2    B0+
00105  M01S00017.ns2033  +++| ZAP3.1   SX2    B0          INDICATE TERMINATOR FOUND
00106  M01S00088.comczap +++|          EQ     ZAP3        GET SEPARATOR
00107  M01S00089.comczap +++|

Line S00090 Modification History
`M01` (Added by)	`comczap`
`M02` (Updated by)	`ns2033`

Seq #  *Modification Id* Act 
----------------------------+
00108  M02S00090.ns2033  ---| ZAP3.2   BSS    0
00109  M01S00091.comczap +++| .D       ELSE
00110  M01S00092.comczap +++|          NZ     X7,ZAP3     IF NOT END OF DIRECTIVE
00111  M01S00093.comczap +++| .D       ENDIF

Line S00094 Modification History
`M01` (Added by)	`comczap`
`M02` (Updated by)	`ns2033`

Seq #  *Modification Id* Act 
----------------------------+
00112  M02S00094.ns2033  ---|          EQ     B2,B6,ZAP2  IF TWO SEPARATORS IN A ROW
00113  M01S00095.comczap +++|
00114  M01S00096.comczap +++|*         ENTER DIRECTIVE INTO INPUT FET BUFFER.
00115  M01S00097.comczap +++|
00116  M01S00098.comczap +++| ZAP4     SX6    B6          SAVE SEPARATOR ADDRESS
00117  M01S00099.comczap +++|          SA6    ZAPA
00118  M01S00018.ns2033  +++|          SB7    B6-B2       SET DIRECTIVE LENGTH
00119  M01S00019.ns2033  +++|          EQ     B2,B6,ZAP7  IF TWO SEPARATORS AT END OF STATEMENT
00120  M01S00100.comczap +++| .A       IF     DEF,ZAP$
00121  M01S00101.comczap +++|          BX7    X1          SAVE SEPARATOR
00122  M01S00102.comczap +++|          SA7    ZAPB
00123  M01S00103.comczap +++|          ZR     X2,ZAP5     IF TERMINATOR FOUND
00124  M01S00104.comczap +++|          SX6    1R.
00125  M01S00105.comczap +++|          SA6    A1

Line S00106 Modification History
`M01` (Added by)	`comczap`
`M02` (Updated by)	`ns2033`

Seq #  *Modification Id* Act 
----------------------------+
00126  M02S00106.ns2033  ---|          SB6    B6+B1       INCREMENT DIRECTIVE LENGTH
00127  M01S00020.ns2033  +++|          SB7    B7+B1       INCREMENT DIRECTIVE LENGTH FOR TERMINATOR
00128  M01S00107.comczap +++| ZAP5     BSS    0
00129  M01S00108.comczap +++| .A       ENDIF

Line S00109 Modification History
`M01` (Added by)	`comczap`
`M02` (Updated by)	`ns2033`

Seq #  *Modification Id* Act 
----------------------------+
00130  M02S00109.ns2033  ---|          SB7    B6-B2       SET DIRECTIVE LENGTH
00131  M01S00110.comczap +++|          WRITES X4,B2,B7
00132  M01S00021.ns2033  +++|          SA1    ZAPA        RESTORE SEPARATOR ADDRESS
00133  M01S00111.comczap +++| .B       IF     DEF,ZAP$

Line S00112 Modification History
`M01` (Added by)	`comczap`
`M02` (Updated by)	`ns2033`

Seq #  *Modification Id* Act 
----------------------------+
00134  M02S00112.ns2033  ---|          SA1    ZAPA        RESTORE PROPER SEPARATOR

Line S00113 Modification History
`M01` (Added by)	`comczap`
`M02` (Updated by)	`ns2033`

Seq #  *Modification Id* Act 
----------------------------+
00135  M02S00113.ns2033  ---|          SA3    ZAPB

Line S00114 Modification History
`M01` (Added by)	`comczap`
`M02` (Updated by)	`ns2033`

Seq #  *Modification Id* Act 
----------------------------+
00136  M02S00114.ns2033  ---|          SA1    X1

Line S00115 Modification History
`M01` (Added by)	`comczap`
`M02` (Updated by)	`ns2033`

Seq #  *Modification Id* Act 
----------------------------+
00137  M02S00115.ns2033  ---|          BX6    X3

Line S00116 Modification History
`M01` (Added by)	`comczap`
`M02` (Updated by)	`ns2033`

Seq #  *Modification Id* Act 
----------------------------+
00138  M02S00116.ns2033  ---|          SA6    A1+
00139  M01S00022.ns2033  +++|          SA3    ZAPB        RESTORE PROPER SEPARATOR
00140  M01S00023.ns2033  +++|          BX6    X3
00141  M01S00024.ns2033  +++|          SA6    X1
00142  M01S00117.comczap +++| .B       ENDIF

Line S00118 Modification History
`M01` (Added by)	`comczap`
`M02` (Updated by)	`ns2033`

Seq #  *Modification Id* Act 
----------------------------+
00143  M02S00118.ns2033  ---|          SA1    ZAPA        RESTORE SEPARATOR ADDRESS

Line S00119 Modification History
`M01` (Added by)	`comczap`
`M02` (Updated by)	`ns2033`

Seq #  *Modification Id* Act 
----------------------------+
00144  M02S00119.ns2033  ---|          SA3    /COMCUSB/USBC  RESTORE LWA CONTROL STATEMENT
00145  M01S00025.ns2033  +++| ZAP6     SA3    USBC        RESTORE LWA CONTROL STATEMENT
00146  M01S00120.comczap +++|          SX4    X2          RESET INPUT FET ADDRESS
00147  M01S00121.comczap +++|          SB6    X1
00148  M01S00122.comczap +++|          SB7    X3+
00149  M01S00123.comczap +++|          LT     B6,B7,ZAP2  IF MORE DIRECTIVES TO PROCESS
00150  M01S00124.comczap +++|          EQ     ZAPX        RETURN
00151  M01S00026.ns2033  +++|
00152  M01S00027.ns2033  +++| ZAP7     WRITES X4,ZAPC,1   WRITE BLANK LINE
00153  M01S00028.ns2033  +++|          SA1    ZAPA        RESTORE SEPARATOR ADDRESS
00154  M01S00029.ns2033  +++|          EQ     ZAP6        PROCESS NEXT DIRECTIVE
00155  M01S00125.comczap +++|
00156  M01S00126.comczap +++|
00157  M01S00127.comczap +++| ZAPA     CON    0           SEPARATOR ADDRESS
00158  M01S00128.comczap +++| ZAPB     CON    0           SEPARATOR USED BY CALLER
00159  M01S00030.ns2033  +++| ZAPC     CON    1R          BLANK LINE
00160  M01S00129.comczap +++| ZAP      SPACE  4,10
00161  M01S00130.comczap +++|          BASE   *
00162  M01S00131.comczap +++| QUAL$    IF     -DEF,QUAL$
00163  M01S00132.comczap +++|          QUAL   *
00164  M01S00133.comczap +++| ZAP      EQU    /COMCZAP/ZAP
00165  M01S00134.comczap +++| QUAL$    ENDIF
00166  M01S00135.comczap +++|          ENDX