Seq # *Modification Id* Act
----------------------------+
00001 M00S00001.comcpop +++| CTEXT COMCPOP - PICK OUT PARAMETER.
00002 M00S00002.comcpop +++| SPACE 4
00003 M00S00003.comcpop +++| QUAL$ IF -DEF,QUAL$,1
00004 M00S00004.comcpop +++| QUAL COMCPOP
00005 M00S00005.comcpop +++| BASE D
| Line S00006 Modification History |
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00006 M01S00006.281l803 ---|* COMMENT COPYRIGHT CONTROL DATA CORP. 1972.
| Line S00001 Modification History |
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00007 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00008 M00S00007.comcpop +++| POP SPACE 4
00009 M00S00008.comcpop +++|*** COMCPOP - PICK OUT PARAMETER.
00010 M00S00009.comcpop +++|* K. E. ZINNEL. 71/12/01.
00011 M00S00010.comcpop +++|* D. A. HIVELEY. 72/06/01.
00012 M00S00011.comcpop +++|* M. E. MADDEN. 73/04/10.
00013 M00S00012.comcpop +++|* S. R. MCPHERSON. 74/09/30.
00014 M00S00013.comcpop +++|* A. D. FORET 74/12/04. RESEQUENCE.
00015 M00S00014.comcpop +++| POP SPACE 4
00016 M00S00015.comcpop +++|*** POP - PICK OUT PARAMETER FROM STRING BUFFER.
00017 M00S00016.comcpop +++|*
00018 M00S00017.comcpop +++|* A LITERAL PARAMETER IS DELIMITED BY *$*. IF THE
00019 M00S00018.comcpop +++|* LITERAL IS TO CONTAIN A *$*, *$$* MUST BE USED.
00020 M00S00019.comcpop +++|* EG. - $A B/C$$E$ YIELDS A B/C$E
00021 M00S00020.comcpop +++|*
00022 M00S00021.comcpop +++|* IF *RCC* IS DEFINED IN THE USERS PROGRAM, WHEN THE
00023 M00S00022.comcpop +++|* STRING BUFFER IS EXHAUSTED, THE NEXT CONTROL CARD IS
00024 M00S00023.comcpop +++|* READ FROM THE CONTROL CARD BUFFER. HOWEVER, LITERALS
00025 M00S00024.comcpop +++|* MAY NOT BE CONTINUED ON THE NEXT CONTROL CARD.
00026 M00S00025.comcpop +++|*
00027 M00S00026.comcpop +++|* LITERALS WILL BE PROCESSED IF *LIT* IS DEFINED AND
00028 M00S00027.comcpop +++|* (LIT) .NE. 0. OTHERWISE, A *$* WILL BE TREATED AS A BLANK.
00029 M00S00028.comcpop +++|*
00030 M00S00029.comcpop +++|* AN ASTERISK (*) IS CONSIDERED A VALID
00031 M00S00030.comcpop +++|* PARAMETER CHARACTER, NOT A SEPARATOR.
00032 M00S00031.comcpop +++|*
00033 M00S00032.comcpop +++|* *POPL* DEFINES THE MAXIMUM PARAMETER LENGTH IN WORDS.
00034 M00S00033.comcpop +++|*
00035 M00S00034.comcpop +++|* ENTRY (B6) = ADDRESS TO BEGIN ASSEMBLY.
00036 M00S00035.comcpop +++|* (USBC) = ADDRESS OF LAST CHARACTER IN STRING BUFFER.
00037 M00S00036.comcpop +++|* IF NOT DEFINED IN THE USER PROGRAM
00038 M00S00037.comcpop +++|* THIS SYMBOL IS DEFINED IN *COMCUSB*.
00039 M00S00038.comcpop +++|*
00040 M00S00039.comcpop +++|* EXIT (X6) = LAST PART OF ASSEMBLED PARAMETER OR PARAMETER
00041 M00S00040.comcpop +++|* IF .LT. 10 CHARACTERS.
00042 M00S00041.comcpop +++|* (B5) = PARAMETER LENGTH (IN WORDS) - 1.
00043 M00S00042.comcpop +++|* = NEGATIVE IF BUFFER EXHAUSTED OR ERROR.
00044 M00S00043.comcpop +++|* (B6) = 0 IF *.* OR *)* ENCOUNTERED.
00045 M00S00044.comcpop +++|* = POSITIVE, NEXT STRING BUFFER ADDRESS.
00046 M00S00045.comcpop +++|* (A1) = ADDRESS OF SEPARATOR.
00047 M00S00046.comcpop +++|* (X1) = SEPARATOR.
00048 M00S00047.comcpop +++|* (X2) = NEGATIVE IF *.* OR *)* ENCOUNTERED
00049 M00S00048.comcpop +++|* AND NO ERRORS.
00050 M00S00049.comcpop +++|* = 0 IF CHARACTER ENCOUNTERED WITH
00051 M00S00050.comcpop +++|* DISPLAY CODE GREATER THAN 57B (.).
00052 M00S00051.comcpop +++|*
00053 M00S00052.comcpop +++|*
00054 M00S00053.comcpop +++|* USES A - 1, 6, 7.
00055 M00S00054.comcpop +++|* X - 1, 2, 3, 6, 7.
00056 M00S00055.comcpop +++|* B - 1, 2, 3, 4, 5, 6, 7.
00057 M00S00056.comcpop +++|*
00058 M00S00057.comcpop +++|* CALLS AVC.
00059 M00S00058.comcpop +++|
00060 M00S00059.comcpop +++|
00061 M00S00060.comcpop +++| POP13 SB5 -B1 SET ERROR FLAG
00062 M00S00061.comcpop +++| EQ POP RETURN
00063 M00S00062.comcpop +++|
00064 M00S00063.comcpop +++| POP14 SX3 4100B CHECK FOR VALID TERMINATOR
00065 M00S00064.comcpop +++| BX7 X7-X7
00066 M00S00065.comcpop +++| AX2 X3,B2
00067 M00S00066.comcpop +++| SA6 POPA+B5 STORE PARAMETER WORD
00068 M00S00067.comcpop +++| SB2 B4-60 CHECK FOR EMPTY ASSEMBLE REGISTER
00069 M00S00068.comcpop +++| EQ B2,B0,POP15 IF EMPTY ASSEMBLY REGISTER
00070 M00S00069.comcpop +++| SB2 B5-POPL CHECK PARAMETER SIZE
00071 M00S00070.comcpop +++| PL B2,POP13 IF PARAMETER TOO LONG
00072 M00S00071.comcpop +++| SA7 A6+1
00073 M00S00072.comcpop +++| POP15 LX2 59 CHECK TERMINATOR
00074 M00S00073.comcpop +++| PL X2,POP16 IF NOT *.* OR *)*
00075 M00S00074.comcpop +++| SB6 B0 SET TERMINATOR ENCOUNTERED
00076 M00S00075.comcpop +++| POP16 SB4 B4-60
00077 M00S00076.comcpop +++| NE B4,B0,POP IF NOT EMPTY ASSEMBLY REGISTER
00078 M00S00077.comcpop +++| EQ B5,B0,POP IF .LT. 11D CHARACTERS
00079 M00S00078.comcpop +++| SB5 B5-1
00080 M00S00079.comcpop +++|
00081 M00S00080.comcpop +++| POP PS ENTRY/EXIT
00082 M00S00081.comcpop +++| SB5 -1 SET PARAMETER LENGTH INDEX
00083 M00S00082.comcpop +++| LE B6,POP IF NO ASSEMBLY POINTER
00084 M00S00083.comcpop +++| SA1 USBC GET LAST CHARACTER LOCATION
00085 M00S00084.comcpop +++| SB7 X1+1
00086 M00S00085.comcpop +++| POP1 SB4 60 POSITION INDEX
00087 M00S00086.comcpop +++| BX6 X6-X6 CLEAR ASSEMBLY REGISTER
00088 M00S00087.comcpop +++| SB5 B5+B1
00089 M00S00088.comcpop +++| POP2 SA1 B6
00090 M00S00089.comcpop +++| LT B6,B7,POP3 IF MORE CHARACTERS IN STRING BUFFER
00091 M00S00090.comcpop +++| RC1 IF DEF,RCC
00092 M00S00091.comcpop +++| RJ AVC ADVANCE CONTROL CARD
00093 M00S00092.comcpop +++| ZR X2,POP13 IF NO CONTINUATION CARD
00094 M00S00093.comcpop +++| EQ POP2 CONTINUE PROCESSING PARAMETER
00095 M00S00094.comcpop +++|
00096 M00S00095.comcpop +++| RC1 ELSE
00097 M00S00096.comcpop +++| SB3 POPL
00098 M00S00097.comcpop +++| GT B5,B3,POP13 IF BUFFER FULL
00099 M00S00098.comcpop +++| SA6 POPA+B5
00100 M00S00099.comcpop +++| EQ POP13 SET ERROR FLAG - NO TERMINATOR
00101 M00S00100.comcpop +++|
00102 M00S00101.comcpop +++| RC1 ENDIF
00103 M00S00102.comcpop +++| POP3 SX2 X1-1R
00104 M00S00103.comcpop +++| NZ B4,POP4 IF ASSEMBLY REGISTER NOT FULL
00105 M00S00104.comcpop +++| SA6 POPA+B5 STORE FULL WORD
00106 M00S00105.comcpop +++| SB2 B5-POPL
00107 M00S00106.comcpop +++| NG B2,POP1 IF PARAMETER NOT TOO LONG
00108 M00S00107.comcpop +++| EQ POP13 SET ERROR FLAG - PARAMETER TOO LONG
00109 M00S00108.comcpop +++|
00110 M00S00109.comcpop +++| POP4 SX3 X1-1R$
00111 M00S00110.comcpop +++| SB6 B6+1
00112 M00S00111.comcpop +++| SB2 X1-1R9
00113 M00S00112.comcpop +++| LT1 IF DEF,LIT
00114 M00S00113.comcpop +++| ZR X3,POP6 IF LITERAL PARAMETER
00115 M00S00114.comcpop +++| LT1 ELSE
00116 M00S00115.comcpop +++| ZR X3,POP2 IF CHARACTER = $
00117 M00S00116.comcpop +++| LT1 ENDIF
00118 M00S00117.comcpop +++| SX3 X1-1R*
00119 M00S00118.comcpop +++| ZR X3,POP5 IF CHARACTER = *
00120 M00S00119.comcpop +++| ZR X2,POP2 IF CHARACTER = * *
00121 M00S00120.comcpop +++| GT B2,POP14 IF NOT ALPHANUMERIC
00122 M00S00121.comcpop +++| ZR X1,POP14 IF CHARACTER 00
00123 M00S00122.comcpop +++| POP5 SB4 B4-6
00124 M00S00123.comcpop +++| LX7 X1,B4
00125 M00S00124.comcpop +++| BX6 X7+X6
00126 M00S00125.comcpop +++| EQ POP2 CHECK NEXT CHARACTER
00127 M00S00126.comcpop +++|
00128 M00S00127.comcpop +++| LT2 IF DEF,LIT
00129 M00S00128.comcpop +++| POP6 SA1 LIT
00130 M00S00129.comcpop +++| ZR X1,POP2 IF LITERALS NOT PERMITTED
00131 M00S00130.comcpop +++| SX7 B4-60 CHECK FOR DELIMITER AS FIRST CHARACTER
00132 M00S00131.comcpop +++| SX3 X7+B5
00133 M00S00132.comcpop +++| NZ X3,POP13 IF DELIMITER NOT FIRST CHARACTER
00134 M00S00133.comcpop +++| POP7 SA1 B6
00135 M00S00134.comcpop +++| SX3 X1-1R$
00136 M00S00135.comcpop +++| SB6 B6+B1
00137 M00S00136.comcpop +++| GT B6,B7,POP13 IF NO MORE CHARACTERS IN STRING BUFFER
00138 M00S00137.comcpop +++| NZ X3,POP11 IF NO DELIMITER
00139 M00S00138.comcpop +++| SA1 B6
00140 M00S00139.comcpop +++| SX3 X1-1R$
00141 M00S00140.comcpop +++| SB6 B6+B1
00142 M00S00141.comcpop +++| GT B6,B7,POP10 IF NO MORE CHARACTERS IN STRING BUFFER
00143 M00S00142.comcpop +++| ZR X3,POP11 IF DOUBLE DELIMITER
00144 M00S00143.comcpop +++| POP8 SX3 X1-1R*
00145 M00S00144.comcpop +++| SB2 X1-1R$
00146 M00S00145.comcpop +++| ZR X3,POP13 IF ILLEGAL SEPARATOR
00147 M00S00146.comcpop +++| ZR B2,POP13 IF ILLEGAL SEPARATOR
00148 M00S00147.comcpop +++| ZR X1,POP14 IF 00 CHARACTER
00149 M00S00148.comcpop +++| SB2 X1-1R9
00150 M00S00149.comcpop +++| SX3 X1-1R
00151 M00S00150.comcpop +++| LE B2,POP13 IF ALPHANUMERIC CHARACTER
00152 M00S00151.comcpop +++| NZ X3,POP14 IF NOT BLANK
00153 M00S00152.comcpop +++| POP9 SA1 B6
00154 M00S00153.comcpop +++| SB6 B6+B1
00155 M00S00154.comcpop +++| LE B6,B7,POP8 IF MORE CHARACTERS IN STRING BUFFER
00156 M00S00155.comcpop +++| POP10 BSS 0
00157 M00S00156.comcpop +++| RC2 IF -DEF,RCC
00158 M00S00157.comcpop +++| EQ POP13 SET ERROR FLAG - NO TERMINATOR
00159 M00S00158.comcpop +++|
00160 M00S00159.comcpop +++| RC2 ELSE
00161 M00S00160.comcpop +++| RJ AVC ADVANCE CONTROL CARD
00162 M00S00161.comcpop +++| ZR X2,POP13 IF NO CONTINUATION CARD
00163 M00S00162.comcpop +++| EQ POP9 CHECK FOR SEPARATOR
00164 M00S00163.comcpop +++|
00165 M00S00164.comcpop +++| RC2 ENDIF
00166 M00S00165.comcpop +++|
00167 M00S00166.comcpop +++| POP11 NZ B4,POP12 IF ASSEMBLY WORD NOT FULL
00168 M00S00167.comcpop +++| SA6 POPA+B5 STORE ASSEMBLY WORD
00169 M00S00168.comcpop +++| SB2 B5-POPL
00170 M00S00169.comcpop +++| PL B2,POP13 IF PARAMETER TOO LONG
00171 M00S00170.comcpop +++| SB4 60
00172 M00S00171.comcpop +++| BX6 X6-X6
00173 M00S00172.comcpop +++| SB5 B5+B1
00174 M00S00173.comcpop +++| POP12 SB4 B4-6
00175 M00S00174.comcpop +++| LX7 X1,B4
00176 M00S00175.comcpop +++| BX6 X6+X7
00177 M00S00176.comcpop +++| EQ POP7 CHECK NEXT CHARACTER
00178 M00S00177.comcpop +++| LT2 ENDIF
00179 M00S00178.comcpop +++|
| Line S00001 Modification History |
M01 (Added by) | cpop1 |
Seq # *Modification Id* Act
----------------------------+
00180 M01S00001.cpop1 +++| IF -DEF,POPL,1
00181 M00S00179.comcpop +++| POPL EQU 3 MAXIMUM PARAMETER LENGTH IN WORDS
00182 M00S00180.comcpop +++| POPA BSS POPL+1 ASSEMBLY BUFFER
00183 M00S00181.comcpop +++| RC3 IF DEF,RCC
00184 M00S00182.comcpop +++| AVC SPACE 4,20
00185 M00S00183.comcpop +++|** AVC - ADVANCE CONTROL CARD.
00186 M00S00184.comcpop +++|*
00187 M00S00185.comcpop +++|* ENTRY (X6) = PARAMETER ASSEMBLY.
00188 M00S00186.comcpop +++|*
00189 M00S00187.comcpop +++|* EXIT (X2) = 0, IF NO CONTINUATION CARD WAS FOUND.
00190 M00S00188.comcpop +++|* IF A CONTINUATION CARD WAS FOUND ((X2) .NE. 0),
00191 M00S00189.comcpop +++|* THE FOLLOWING EXIT CONDITIONS ARE RETURNED -
00192 M00S00190.comcpop +++|* (X6) = PARAMETER ASSEMBLY.
00193 M00S00191.comcpop +++|* (B6) = FWA STRING BUFFER.
00194 M00S00192.comcpop +++|* (B7) = LWA+1 DATA IN STRING BUFFER.
00195 M00S00193.comcpop +++|*
00196 M00S00194.comcpop +++|* USES A - 2, 6.
00197 M00S00195.comcpop +++|* B - 2, 7.
00198 M00S00196.comcpop +++|* X - 2, 6.
00199 M00S00197.comcpop +++|*
00200 M00S00198.comcpop +++|* CALLS SYS=, USB.
00201 M00S00199.comcpop +++|
00202 M00S00200.comcpop +++|
00203 M00S00201.comcpop +++| AVC PS ENTRY/EXIT
00204 M00S00202.comcpop +++| SA6 AVCA SAVE PARAMETER ASSEMBLY REGISTER
| Line S00203 Modification History |
M01 (Removed by) | ns2053 |
Seq # *Modification Id* Act
----------------------------+
00205 M01S00203.ns2053 ---| CONTROL CCDR,RSS GET NEXT CONTROL CARD
| Line S00001 Modification History |
M01 (Added by) | ns2053 |
Seq # *Modification Id* Act
----------------------------+
00206 M01S00001.ns2053 +++| CONTROL CCDR,RSS,LF GET NEXT CONTROL CARD
00207 M00S00204.comcpop +++| SA2 CCDR
00208 M00S00205.comcpop +++| ZR X2,AVC IF NO CONTINUATION CONTROL CARD
00209 M00S00206.comcpop +++| CONTROL CCDR ADVANCE POINTERS
00210 M00S00207.comcpop +++| SB2 CCDR
00211 M00S00208.comcpop +++| RJ USB UNPACK TO STRING BUFFER
00212 M00S00209.comcpop +++| SA2 AVCA RESTORE PARAMETER ASSEMBLY REGISTER
00213 M00S00210.comcpop +++| BX6 X2
00214 M00S00211.comcpop +++| SB7 B7+B1 SET LWA+1 DATA IN STRING BUFFER
00215 M00S00212.comcpop +++| MX2 1
00216 M00S00213.comcpop +++| EQ AVC RETURN
00217 M00S00214.comcpop +++|
00218 M00S00215.comcpop +++|
00219 M00S00216.comcpop +++| AVCA BSS 1 ASSEMBLY REGISTER TEMPORARY
00220 M00S00217.comcpop +++| RC3 ENDIF
00221 M00S00218.comcpop +++| SPACE 4
00222 M00S00219.comcpop +++| QUAL$ IF -DEF,QUAL$
00223 M00S00220.comcpop +++| QUAL *
00224 M00S00221.comcpop +++| POP EQU /COMCPOP/POP
00225 M00S00222.comcpop +++| POPA EQU /COMCPOP/POPA
00226 M00S00223.comcpop +++| QUAL$ ENDIF
00227 M00S00224.comcpop +++| BASE *
00228 M00S00225.comcpop +++| ENDX