cdc:nos2.source:opl.opl871:deck:smfsubs
Deck SMFSUBS
Library Member Format: MODIFY
Listing Sections
- Deck SMFSUBS Start
- Deck SMFSUBS Part 1 (Line 1940)
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.smfsubs +++| IDENT SFDQUE 00002 M00S00002.smfsubs +++| ENTRY SFDQUE 00003 M00S00003.smfsubs +++| SYSCOM B1 00004 M00S00004.smfsubs +++| TITLE SFDQUE - DEQUEUE DATA FROM SPECIFIED QUEUE. 00005 M00S00005.smfsubs +++|*COMMENT SFDQUE - DEQUEUE DATA.
| Line S00006 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00006 M01S00006.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1985.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00007 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00008 M00S00007.smfsubs +++| SDQ SPACE 4,10 00009 M00S00008.smfsubs +++|*** SFDQUE - DEQUEUE DATA FROM SPECIFIED QUEUE. 00010 M00S00009.smfsubs +++|* 00011 M00S00010.smfsubs +++|* M. L. SWANSON. 85/05/16. 00012 M00S00011.smfsubs +++| SDQ SPACE 4,10 00013 M00S00012.smfsubs +++|*** *SFDQUE* PROVIDES AN INTERFACE TO *SFDQUE$* FOR PROGRAMS 00014 M00S00013.smfsubs +++|* WRITTEN IN HIGHER LEVEL LANGUAGES. 00015 M00S00014.smfsubs +++| SDQ SPACE 4,15 00016 M00S00015.smfsubs +++|*** CALLING SEQUENCE. 00017 M00S00016.smfsubs +++|* 00018 M00S00017.smfsubs +++|* *FORTRAN5* CALL - 00019 M00S00018.smfsubs +++|* 00020 M00S00019.smfsubs +++|* CALL SFDQUE(QNAME, BUFFER, RC, LENGTH) 00021 M00S00020.smfsubs +++|* 00022 M00S00021.smfsubs +++|* *COBOL5* CALL - 00023 M00S00022.smfsubs +++|* 00024 M00S00023.smfsubs +++|* ENTER SFDQUE USING QNAME, BUFFER, RC, LENGTH. 00025 M00S00024.smfsubs +++|* 00026 M00S00025.smfsubs +++|* QNAME = NAME OF THE QUEUE FROM WHICH TO 00027 M00S00026.smfsubs +++|* RETRIEVE DATA ( GET OR PUT ). 00028 M00S00027.smfsubs +++|* BUFFER = ADDRESS OF BUFFER INTO WHICH TO 00029 M00S00028.smfsubs +++|* RETURN THE DATA. 00030 M00S00029.smfsubs +++|* RC = RETURN CODE ( 0 = DATA DEQUEUED, 00031 M00S00030.smfsubs +++|* 1 = MORE DATA AVAILABLE, 2 = NO 00032 M00S00031.smfsubs +++|* MESSAGES IN QUEUE. 00033 M00S00032.smfsubs +++|* LENGTH = SIZE OF BUFFER IN 12-BIT CHARACTERS. 00034 M00S00033.smfsubs +++| SDQ SPACE 4,10 00035 M00S00034.smfsubs +++|** SFDQUE - DEQUEUE DATA FROM SPECIFIED QUEUE. 00036 M00S00035.smfsubs +++|* 00037 M00S00036.smfsubs +++|* ENTRY (A1) = FWA OF FORMAL PARAMETER LIST. 00038 M00S00037.smfsubs +++|* (X1) = ADDRESS OF FIRST PARAMETER. 00039 M00S00038.smfsubs +++|* 00040 M00S00039.smfsubs +++|* USES A - 1. 00041 M00S00040.smfsubs +++|* B - 1, 2, 3. 00042 M00S00041.smfsubs +++|* 00043 M00S00042.smfsubs +++|* CALLS SFCNP$, SFCSP$, SFDQUE$. 00044 M00S00043.smfsubs +++| 00045 M00S00044.smfsubs +++| 00046 M00S00045.smfsubs +++| SFDQUE SUBR ENTRY/EXIT 00047 M00S00046.smfsubs +++| SB1 1 00048 M00S00047.smfsubs +++| SB2 SDQA FWA OF PARAMETER LIST 00049 M00S00048.smfsubs +++| SB3 SDQB LENGTH AND OFFSET 00050 M00S00049.smfsubs +++| RJ =XSFCSP$ COPY QNAME 00051 M00S00050.smfsubs +++| RJ =XSFCNP$ COPY BUFFER ADDRESS 00052 M00S00051.smfsubs +++| RJ =XSFCNP$ COPY RETURN CODE 00053 M00S00052.smfsubs +++| RJ =XSFCNP$ COPY SIZE OF BUFFER 00054 M00S00053.smfsubs +++| SA1 SDQA SET NEW PARAMETER LIST ADDRESS 00055 M00S00054.smfsubs +++| RJ =XSFDQUE$ DEQUEUE DATA FROM SPECIFIED QUEUE 00056 M00S00055.smfsubs +++| EQ SFDQUEX EXIT 00057 M00S00056.smfsubs +++| 00058 M00S00057.smfsubs +++| SDQA BSSZ 7 NEW PARAMETER LIST 00059 M00S00058.smfsubs +++| SDQB BSSZ 2 LENGTH AND OFFSET FOR QUEUE NAME 00060 M00S00059.smfsubs +++| 00061 M00S00060.smfsubs +++| END 00062 M00S00061.smfsubs +++| 00063 M00S00062.smfsubs +++| IDENT SFMODE 00064 M00S00063.smfsubs +++| ENTRY SFMODE 00065 M00S00064.smfsubs +++| SYSCOM B1 00066 M00S00065.smfsubs +++| TITLE SFMODE - SWITCH TERMINAL BETWEEN SCREEN/LINE MODE. 00067 M00S00066.smfsubs +++|*COMMENT SFMODE - SET TERMINAL MODE.
| Line S00067 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00068 M01S00067.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1985.
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00069 M01S00002.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00070 M00S00068.smfsubs +++| SMD SPACE 4,10 00071 M00S00069.smfsubs +++|*** SFMODE - SWITCH TERMINAL BETWEEN SCREEN/LINE MODE. 00072 M00S00070.smfsubs +++|* 00073 M00S00071.smfsubs +++|* M. L. SWANSON. 85/05/16. 00074 M00S00072.smfsubs +++| SMD SPACE 4,10 00075 M00S00073.smfsubs +++|*** *SFMODE* PROVIDES AN INTERFACE TO *SFMODE$* FOR PROGRAMS 00076 M00S00074.smfsubs +++|* WRITTEN IN HIGHER LEVEL LANGUAGES. 00077 M00S00075.smfsubs +++| SMD SPACE 4,15 00078 M00S00076.smfsubs +++|*** CALLING SEQUENCE. 00079 M00S00077.smfsubs +++|* 00080 M00S00078.smfsubs +++|* *FORTRAN5* CALL - 00081 M00S00079.smfsubs +++|* 00082 M00S00080.smfsubs +++|* CALL SFMODE(MODE, MODEL) 00083 M00S00081.smfsubs +++|* 00084 M00S00082.smfsubs +++|* *COBOL5* CALL - 00085 M00S00083.smfsubs +++|* 00086 M00S00084.smfsubs +++|* ENTER SFMODE USING MODE, MODEL. 00087 M00S00085.smfsubs +++|* 00088 M00S00086.smfsubs +++|* MODE = TERMINAL MODE (0 = SCREEN, 1 = LINE) 00089 M00S00087.smfsubs +++|* MODEL = DISPLAY CODE MODEL NAME 00090 M00S00088.smfsubs +++| SMD SPACE 4,10 00091 M00S00089.smfsubs +++|** SFMODE - SWITCH TERMINAL BETWEEN SCREEN/LINE MODE. 00092 M00S00090.smfsubs +++|* 00093 M00S00091.smfsubs +++|* ENTRY (A1) = FWA OF FORMAL PARAMETER LIST. 00094 M00S00092.smfsubs +++|* (X1) = ADDRESS OF FIRST PARAMETER. 00095 M00S00093.smfsubs +++|* 00096 M00S00094.smfsubs +++|* USES A - 1. 00097 M00S00095.smfsubs +++|* B - 1, 2, 3. 00098 M00S00096.smfsubs +++|* 00099 M00S00097.smfsubs +++|* CALLS SFCNP$, SFCSP$, SFMODE$. 00100 M00S00098.smfsubs +++| 00101 M00S00099.smfsubs +++| 00102 M00S00100.smfsubs +++| SFMODE SUBR ENTRY/EXIT 00103 M00S00101.smfsubs +++| SB1 1 00104 M00S00102.smfsubs +++| SB2 SMDA FWA OF PARAMETER LIST 00105 M00S00103.smfsubs +++| RJ =XSFCNP$ COPY MODE 00106 M00S00104.smfsubs +++| SB3 SMDB LENGTH AND OFFSET 00107 M00S00105.smfsubs +++| RJ =XSFCSP$ COPY MODEL 00108 M00S00106.smfsubs +++| SA1 SMDA SET NEW PARAMETER LIST ADDRESS 00109 M00S00107.smfsubs +++| RJ =XSFMODE$ SET SCREEN/LINE MODE 00110 M00S00108.smfsubs +++| EQ SFMODEX EXIT 00111 M00S00109.smfsubs +++| 00112 M00S00110.smfsubs +++| SMDA BSSZ 5 NEW PARAMETER LIST 00113 M00S00111.smfsubs +++| SMDB BSSZ 2 LENGTH AND OFFSET FOR MODEL NAME 00114 M00S00112.smfsubs +++| 00115 M00S00113.smfsubs +++| END 00116 M00S00114.smfsubs +++| 00117 M00S00115.smfsubs +++| IDENT SFNQUE 00118 M00S00116.smfsubs +++| ENTRY SFNQUE 00119 M00S00117.smfsubs +++| SYSCOM B1 00120 M00S00118.smfsubs +++| TITLE SFNQUE - ENQUEUE DATA INTO SPECIFIED QUEUE. 00121 M00S00119.smfsubs +++|*COMMENT SFNQUE - ENQUEUE DATA.
| Line S00120 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00122 M01S00120.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1985.
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00123 M01S00003.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00124 M00S00121.smfsubs +++| SNQ SPACE 4,10 00125 M00S00122.smfsubs +++|*** SFNQUE - ENQUEUE DATA INTO SPECIFIED QUEUE. 00126 M00S00123.smfsubs +++|* 00127 M00S00124.smfsubs +++|* M. L. SWANSON. 85/05/16. 00128 M00S00125.smfsubs +++| SNQ SPACE 4,10 00129 M00S00126.smfsubs +++|*** *SFNQUE* PROVIDES AN INTERFACE TO *SFNQUE$* FOR PROGRAMS 00130 M00S00127.smfsubs +++|* WRITTEN IN HIGHER LEVEL LANGUAGES. 00131 M00S00128.smfsubs +++| SNQ SPACE 4,15 00132 M00S00129.smfsubs +++|*** CALLING SEQUENCE. 00133 M00S00130.smfsubs +++|* 00134 M00S00131.smfsubs +++|* *FORTRAN5* CALL - 00135 M00S00132.smfsubs +++|* 00136 M00S00133.smfsubs +++|* CALL SFNQUE(QNAME, BUFFER, RC) 00137 M00S00134.smfsubs +++|* 00138 M00S00135.smfsubs +++|* *COBOL5* CALL - 00139 M00S00136.smfsubs +++|* 00140 M00S00137.smfsubs +++|* ENTER SFNQUE USING QNAME, BUFFER, RC. 00141 M00S00138.smfsubs +++|* 00142 M00S00139.smfsubs +++|* QNAME = NAME OF DESTINATION QUEUE (PUT OR GET). 00143 M00S00140.smfsubs +++|* BUFFER = ADDRESS OF DATA TO BE ADDED TO QUEUE. 00144 M00S00141.smfsubs +++|* RC = RETURN CODE ( 0 = DATA ENQUEUED, 00145 M00S00142.smfsubs +++|* 1 = NOT ENQUEUED ). 00146 M00S00143.smfsubs +++| SNQ SPACE 4,10 00147 M00S00144.smfsubs +++|** SFNQUE - ENQUEUE DATA INTO SPECIFIED QUEUE. 00148 M00S00145.smfsubs +++|* 00149 M00S00146.smfsubs +++|* ENTRY (A1) = FWA OF FORMAL PARAMETER LIST. 00150 M00S00147.smfsubs +++|* (X1) = ADDRESS OF FIRST PARAMETER. 00151 M00S00148.smfsubs +++|* 00152 M00S00149.smfsubs +++|* USES A - 1. 00153 M00S00150.smfsubs +++|* B - 1, 2, 3. 00154 M00S00151.smfsubs +++|* 00155 M00S00152.smfsubs +++|* CALLS SFCNP$, SFCSP$, SFNQUE$. 00156 M00S00153.smfsubs +++| 00157 M00S00154.smfsubs +++| 00158 M00S00155.smfsubs +++| SFNQUE SUBR ENTRY/EXIT 00159 M00S00156.smfsubs +++| SB1 1 00160 M00S00157.smfsubs +++| SB2 SNQA FWA OF PARAMETER LIST 00161 M00S00158.smfsubs +++| SB3 SNQB LENGTH AND OFFSET 00162 M00S00159.smfsubs +++| RJ =XSFCSP$ COPY QNAME 00163 M00S00160.smfsubs +++| RJ =XSFCNP$ COPY BUFFER 00164 M00S00161.smfsubs +++| RJ =XSFCNP$ COPY RETURN CODE 00165 M00S00162.smfsubs +++| SA1 SNQA SET NEW PARAMETER LIST ADDRESS 00166 M00S00163.smfsubs +++| RJ =XSFNQUE$ ENQUEUE DATA INTO SPECIFIED QUEUE 00167 M00S00164.smfsubs +++| EQ SFNQUEX EXIT 00168 M00S00165.smfsubs +++| 00169 M00S00166.smfsubs +++| SNQA BSSZ 6 NEW PARAMETER LIST 00170 M00S00167.smfsubs +++| SNQB BSSZ 2 LENGTH AND OFFSET FOR QUEUE NAME 00171 M00S00168.smfsubs +++| 00172 M00S00169.smfsubs +++| END 00173 M00S00170.smfsubs +++| 00174 M00S00171.smfsubs +++| IDENT SFQTRM 00175 M00S00172.smfsubs +++| ENTRY SFQTRM 00176 M00S00173.smfsubs +++| SYSCOM B1 00177 M00S00174.smfsubs +++| TITLE SFQTRM - IDENTIFY QTRM USER TO SFORM. 00178 M00S00175.smfsubs +++|*COMMENT SFQTRM - IDENTIFY QTRM USER.
| Line S00176 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00179 M01S00176.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1985.
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00180 M01S00004.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00181 M00S00177.smfsubs +++| SQT SPACE 4,10 00182 M00S00178.smfsubs +++|*** SFQTRM - IDENTIFY QTRM USER TO SFORM. 00183 M00S00179.smfsubs +++|* 00184 M00S00180.smfsubs +++|* M. L. SWANSON. 85/05/16. 00185 M00S00181.smfsubs +++| SQT SPACE 4,10 00186 M00S00182.smfsubs +++|*** *SFQTRM* PROVIDES AN INTERFACE TO *SFQTRM$* FOR PROGRAMS 00187 M00S00183.smfsubs +++|* WRITTEN IN HIGHER LEVEL LANGUAGES. 00188 M00S00184.smfsubs +++| SQT SPACE 4,15 00189 M00S00185.smfsubs +++|*** CALLING SEQUENCE. 00190 M00S00186.smfsubs +++|* 00191 M00S00187.smfsubs +++|* *FORTRAN5* CALL - 00192 M00S00188.smfsubs +++|* 00193 M00S00189.smfsubs +++|* CALL SFQTRM(NITADDR, BUFFER) 00194 M00S00190.smfsubs +++|* 00195 M00S00191.smfsubs +++|* *COBOL5* CALL - 00196 M00S00192.smfsubs +++|* 00197 M00S00193.smfsubs +++|* ENTER SFQTRM USING NITADDR, BUFFER. 00198 M00S00194.smfsubs +++|* 00199 M00S00195.smfsubs +++|* NITADDR = ADDRESS OF THE NETWORK INFORMATION TABLE. 00200 M00S00196.smfsubs +++|* BUFFER = BUFFER ADDRESS. 00201 M00S00197.smfsubs +++| SQT SPACE 4,10 00202 M00S00198.smfsubs +++|** SFQTRM - IDENTIFY QTRM USER TO SFORM. 00203 M00S00199.smfsubs +++|* 00204 M00S00200.smfsubs +++|* ENTRY (A1) = FWA OF FORMAL PARAMETER LIST. 00205 M00S00201.smfsubs +++|* (X1) = ADDRESS OF FIRST PARAMETER. 00206 M00S00202.smfsubs +++|* 00207 M00S00203.smfsubs +++|* USES A - 1. 00208 M00S00204.smfsubs +++|* B - 1, 2, 3. 00209 M00S00205.smfsubs +++|* 00210 M00S00206.smfsubs +++|* CALLS SFCNP$, SFQTRM$. 00211 M00S00207.smfsubs +++| 00212 M00S00208.smfsubs +++| 00213 M00S00209.smfsubs +++| SFQTRM SUBR ENTRY/EXIT 00214 M00S00210.smfsubs +++| SB1 1 00215 M00S00211.smfsubs +++| SB2 SQTA FWA OF PARAMETER LIST 00216 M00S00212.smfsubs +++| RJ =XSFCNP$ COPY NIT ADDRESS 00217 M00S00213.smfsubs +++| RJ =XSFCNP$ COPY BUFFER ADDRESS 00218 M00S00214.smfsubs +++| SA1 SQTA SET NEW PARAMETER LIST ADDRESS 00219 M00S00215.smfsubs +++| RJ =XSFQTRM$ IDENTIFY QTRM USER TO SFORM 00220 M00S00216.smfsubs +++| EQ SFQTRMX EXIT 00221 M00S00217.smfsubs +++| 00222 M00S00218.smfsubs +++| SQTA BSSZ 3 NEW PARAMETER LIST 00223 M00S00219.smfsubs +++| 00224 M00S00220.smfsubs +++| END 00225 M00S00221.smfsubs +++| 00226 M00S00222.smfsubs +++| IDENT SFATTR 00227 M00S00223.smfsubs +++| ENTRY SFATTR 00228 M00S00224.smfsubs +++| SYSCOM B1 00229 M00S00225.smfsubs +++| TITLE SFATTR - SET FIELD ATTRIBUTES. 00230 M00S00226.smfsubs +++|*COMMENT SFATTR - SET FIELD ATTRIBUTES.
| Line S00227 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00231 M01S00227.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1985.
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00232 M01S00005.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00233 M00S00228.smfsubs +++| SFA SPACE 4,10 00234 M00S00229.smfsubs +++|*** SFATTR - SET FIELD ATTRIBUTES. 00235 M00S00230.smfsubs +++|* 00236 M00S00231.smfsubs +++|* S.D. PAINTER. 85/10/01. 00237 M00S00232.smfsubs +++| SFA SPACE 4,10 00238 M00S00233.smfsubs +++|*** *SFATTR* PROVIDES AN INTERFACE TO *SFATTR$* FOR PROGRAMS 00239 M00S00234.smfsubs +++|* WRITTEN IN HIGHER LEVEL LANGUAGES. 00240 M00S00235.smfsubs +++| SFA SPACE 4,15 00241 M00S00236.smfsubs +++|*** CALLING SEQUENCE. 00242 M00S00237.smfsubs +++|* 00243 M00S00238.smfsubs +++|* *FORTRAN5* CALL - 00244 M00S00239.smfsubs +++|* 00245 M00S00240.smfsubs +++|* CALL SFATTR(VARNAME,NEW,OLD) 00246 M00S00241.smfsubs +++|* 00247 M00S00242.smfsubs +++|* *COBOL5* CALL - 00248 M00S00243.smfsubs +++|* 00249 M00S00244.smfsubs +++|* ENTER SFATTR USING VARNAME, NEW, OLD. 00250 M00S00245.smfsubs +++|* 00251 M00S00246.smfsubs +++|* VARNAME = NAME OF VARIABLE. 00252 M00S00247.smfsubs +++|* NEW = NEW FIELD ATTRIBUTES. 00253 M00S00248.smfsubs +++|* OLD = OLD FIELD ATTRIBUTES. 00254 M00S00249.smfsubs +++| SFA SPACE 4,10 00255 M00S00250.smfsubs +++|** SFATTR - SET FIELD ATTRIBUTES. 00256 M00S00251.smfsubs +++|* 00257 M00S00252.smfsubs +++|* ENTRY (A1) = FWA OF FORMAL PARAMETER LIST. 00258 M00S00253.smfsubs +++|* (X1) = ADDRESS OF FIRST PARAMETER. 00259 M00S00254.smfsubs +++|* 00260 M00S00255.smfsubs +++|* USES X - 1. 00261 M00S00256.smfsubs +++|* A - 1. 00262 M00S00257.smfsubs +++|* B - 1, 2, 3. 00263 M00S00258.smfsubs +++|* 00264 M00S00259.smfsubs +++|* CALLS SFCNP$, SFCSP$, SFATTR$. 00265 M00S00260.smfsubs +++| 00266 M00S00261.smfsubs +++| 00267 M00S00262.smfsubs +++| SFATTR SUBR ENTRY/EXIT 00268 M00S00263.smfsubs +++| SB1 1 00269 M00S00264.smfsubs +++| SB2 SFAA FWA OF PARAMETER LIST 00270 M00S00265.smfsubs +++| SB3 SFAB LENGTH AND OFFSET 00271 M00S00266.smfsubs +++| RJ =XSFCSP$ COPY VARNAME 00272 M00S00267.smfsubs +++| RJ =XSFCNP$ COPY NEW 00273 M00S00268.smfsubs +++| RJ =XSFCNP$ COPY OLD 00274 M00S00269.smfsubs +++| SA1 SFAA GET NEW PARAMETER LIST ADDRESS 00275 M00S00270.smfsubs +++| RJ =XSFATTR$ SET FIELD ATTRIBUTES 00276 M00S00271.smfsubs +++| EQ SFATTRX EXIT 00277 M00S00272.smfsubs +++| 00278 M00S00273.smfsubs +++| SFAA BSSZ 6 NEW PARAMETER LIST 00279 M00S00274.smfsubs +++| SFAB BSSZ 2 LENGTH AND OFFSET FOR PARAMETERS 00280 M00S00275.smfsubs +++| 00281 M00S00276.smfsubs +++| END
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 00282 M01S00001.ns2605 +++| 00283 M01S00002.ns2605 +++| IDENT SFGETF 00284 M01S00003.ns2605 +++| ENTRY SFGETF 00285 M01S00004.ns2605 +++| SYSCOM B1 00286 M01S00005.ns2605 +++| TITLE SFGETF - GET CHARACTER FIELD. 00287 M01S00006.ns2605 +++|*COMMENT SMFSUBS - GET CHARACTER FIELD.
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | ns2605 |
M02 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00288 M02S00007.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1988.
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00289 M01S00006.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 00290 M01S00008.ns2605 +++| SGF SPACE 4,10 00291 M01S00009.ns2605 +++|*** SFGETF - GET CHARACTER FIELD. 00292 M01S00010.ns2605 +++|* 00293 M01S00011.ns2605 +++|* A. PILEBRO. 84/12/03. 00294 M01S00012.ns2605 +++|* R. E. DUNBAR. 88/02/10. 00295 M01S00013.ns2605 +++| SGF SPACE 4,10 00296 M01S00014.ns2605 +++|*** *SFGETF* PROVIDES AN INTERFACE TO *SFGETF$* FOR PROGRAMS 00297 M01S00015.ns2605 +++|* WRITTEN IN HIGHER LEVEL LANGUAGES. 00298 M01S00016.ns2605 +++| SGF SPACE 4,10 00299 M01S00017.ns2605 +++|** COMMON DECKS. 00300 M01S00018.ns2605 +++| 00301 M01S00019.ns2605 +++| 00302 M01S00020.ns2605 +++|*CALL COMCMAC 00303 M01S00021.ns2605 +++| SGF SPACE 4,15 00304 M01S00022.ns2605 +++|*** CALLING SEQUENCE. 00305 M01S00023.ns2605 +++|* 00306 M01S00024.ns2605 +++|* *FORTRAN5* CALL - 00307 M01S00025.ns2605 +++|* 00308 M01S00026.ns2605 +++|* CALL SFGETF(VARNAME,INSTRING,CSET,STATUS) 00309 M01S00027.ns2605 +++|* 00310 M01S00028.ns2605 +++|* *COBOL5* CALL - 00311 M01S00029.ns2605 +++|* 00312 M01S00030.ns2605 +++|* ENTER SFGETF USING VARNAME, INSTRING, CSET, STATUS. 00313 M01S00031.ns2605 +++|* 00314 M01S00032.ns2605 +++|* ENTRY VARNAME = NAME OF VARIABLE. 00315 M01S00033.ns2605 +++|* INSTRING = NAME OF RECEIVING FILED. 00316 M01S00034.ns2605 +++|* CSET = CHARACTER SET. 00317 M01S00035.ns2605 +++|* * * DEFAULT (SET BY *SFCSET*). 00318 M01S00036.ns2605 +++|* *ASCII * 6/12 ASCII. 00319 M01S00037.ns2605 +++|* *ASCII8 * 8-BIT ASCII IN 12-BIT BYTES. 00320 M01S00038.ns2605 +++|* *DISPLAY* 6-BIT DISPLAY CODE. 00321 M01S00039.ns2605 +++|* ( OTHER ) 6-BIT DISPLAY CODE. 00322 M01S00040.ns2605 +++|* 00323 M01S00041.ns2605 +++|* EXIT STATUS .GE. 0, NUMBER OF 6 BIT BYTES TRANSFERRED. 00324 M01S00042.ns2605 +++|* .LT. 1, VARIABLE NOT IN ACTIVE PANELS. 00325 M01S00043.ns2605 +++| SGF SPACE 4,10 00326 M01S00044.ns2605 +++|** SFGETF - GET CHARACTER FIELD. 00327 M01S00045.ns2605 +++|* 00328 M01S00046.ns2605 +++|* ENTRY (A1) = FWA OF FORMAL PARAMETER LIST. 00329 M01S00047.ns2605 +++|* (X1) = ADDRESS OF FIRST PARAMETER. 00330 M01S00048.ns2605 +++|* 00331 M01S00049.ns2605 +++|* USES X - 1. 00332 M01S00050.ns2605 +++|* A - 1. 00333 M01S00051.ns2605 +++|* B - 1, 2, 3. 00334 M01S00052.ns2605 +++|* 00335 M01S00053.ns2605 +++|* CALLS SFCNP$, SFCSP$, SFGETF$. 00336 M01S00054.ns2605 +++| 00337 M01S00055.ns2605 +++| 00338 M01S00056.ns2605 +++| SFGETF SUBR ENTRY/EXIT 00339 M01S00057.ns2605 +++| SB1 1 00340 M01S00058.ns2605 +++| SB2 SGFA FWA OF PARAMETER LIST 00341 M01S00059.ns2605 +++| SB3 SGFB LENGTH AND OFFSET 00342 M01S00060.ns2605 +++| RJ =XSFCSP$ COPY VARNAME 00343 M01S00061.ns2605 +++| RJ =XSFCSP$ COPY INSTRING 00344 M01S00062.ns2605 +++| RJ =XSFCSP$ COPY CSET 00345 M01S00063.ns2605 +++| RJ =XSFCNP$ COPY VALUE / STAT 00346 M01S00064.ns2605 +++| SA1 SGFA SET NEW PARAMETER LIST ADDRESS 00347 M01S00065.ns2605 +++| RJ =XSFGETF$ GET INTEGER VALUE 00348 M01S00066.ns2605 +++| EQ SFGETFX EXIT 00349 M01S00067.ns2605 +++| 00350 M01S00068.ns2605 +++| 00351 M01S00069.ns2605 +++| SGFA BSSZ 11 NEW PARAMETER LIST 00352 M01S00070.ns2605 +++| SGFB BSSZ 6 LENGTHS AND OFFSETS 00353 M01S00071.ns2605 +++| 00354 M01S00072.ns2605 +++| END 00355 M00S00277.smfsubs +++| 00356 M00S00278.smfsubs +++| IDENT SFGETI 00357 M00S00279.smfsubs +++| ENTRY SFGETI 00358 M00S00280.smfsubs +++| SYSCOM B1 00359 M00S00281.smfsubs +++| TITLE SFGETI - GET INTEGER VALUE. 00360 M00S00282.smfsubs +++|*COMMENT SFGETI - GET INTEGER VALUE.
| Line S00283 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00361 M01S00283.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1983.
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00362 M01S00007.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00363 M00S00284.smfsubs +++| SGI SPACE 4,10 00364 M00S00285.smfsubs +++|*** SFGETI - GET INTEGER VALUE. 00365 M00S00286.smfsubs +++|* 00366 M00S00287.smfsubs +++|* J.T. LITTLE. 83/05/23. 00367 M00S00288.smfsubs +++| SGI SPACE 4,10 00368 M00S00289.smfsubs +++|*** *SFGETI* PROVIDES AN INTERFACE TO *SFGETI$* FOR PROGRAMS 00369 M00S00290.smfsubs +++|* WRITTEN IN HIGHER LEVEL LANGUAGES. 00370 M00S00291.smfsubs +++| SGI SPACE 4,15 00371 M00S00292.smfsubs +++|*** CALLING SEQUENCE. 00372 M00S00293.smfsubs +++|* 00373 M00S00294.smfsubs +++|* *FORTRAN5* CALL - 00374 M00S00295.smfsubs +++|* 00375 M00S00296.smfsubs +++|* CALL SFGETI(VARNAME,VALUE) 00376 M00S00297.smfsubs +++|* 00377 M00S00298.smfsubs +++|* *COBOL5* CALL - 00378 M00S00299.smfsubs +++|* 00379 M00S00300.smfsubs +++|* ENTER SFGETI USING VARNAME, VALUE. 00380 M00S00301.smfsubs +++|* 00381 M00S00302.smfsubs +++|* VARNAME = NAME OF VARIABLE. 00382 M00S00303.smfsubs +++|* VALUE = INTEGER VALUE OF FIELD. 00383 M00S00304.smfsubs +++| SGI SPACE 4,10 00384 M00S00305.smfsubs +++|** SFGETI - GET INTEGER VALUE. 00385 M00S00306.smfsubs +++|* 00386 M00S00307.smfsubs +++|* ENTRY (A1) = FWA OF FORMAL PARAMETER LIST. 00387 M00S00308.smfsubs +++|* (X1) = ADDRESS OF FIRST PARAMETER. 00388 M00S00309.smfsubs +++|* 00389 M00S00310.smfsubs +++|* USES A - 1. 00390 M00S00311.smfsubs +++|* B - 1, 2, 3. 00391 M00S00312.smfsubs +++|* 00392 M00S00313.smfsubs +++|* CALLS SFCNP$, SFCSP$, SFGETI$. 00393 M00S00314.smfsubs +++| 00394 M00S00315.smfsubs +++| 00395 M00S00316.smfsubs +++| SFGETI SUBR ENTRY/EXIT 00396 M00S00317.smfsubs +++| SB1 1 00397 M00S00318.smfsubs +++| SB2 SGIA FWA OF PARAMETER LIST 00398 M00S00319.smfsubs +++| SB3 SGIB LENGTH AND OFFSET 00399 M00S00320.smfsubs +++| RJ =XSFCSP$ COPY VARNAME 00400 M00S00321.smfsubs +++| RJ =XSFCNP$ COPY VALUE 00401 M00S00322.smfsubs +++| SA1 SGIA SET NEW PARAMETER LIST ADDRESS 00402 M00S00323.smfsubs +++| RJ =XSFGETI$ GET INTEGER VALUE 00403 M00S00324.smfsubs +++| EQ SFGETIX EXIT 00404 M00S00325.smfsubs +++| 00405 M00S00326.smfsubs +++| SGIA BSSZ 5 NEW PARAMETER LIST 00406 M00S00327.smfsubs +++| SGIB BSSZ 2 LENGTH AND OFFSET FOR VARIABLE NAME 00407 M00S00328.smfsubs +++| 00408 M00S00329.smfsubs +++| END 00409 M00S00330.smfsubs +++| 00410 M00S00331.smfsubs +++| IDENT SFGETN 00411 M00S00332.smfsubs +++| ENTRY SFGETN 00412 M00S00333.smfsubs +++| SYSCOM B1 00413 M00S00334.smfsubs +++| TITLE SFGETN - GET TERMINAL MODEL NAME. 00414 M00S00335.smfsubs +++|*COMMENT SFGETN - GET TERMINAL MODEL NAME.
| Line S00336 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00415 M01S00336.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1983.
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00416 M01S00008.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00417 M00S00337.smfsubs +++| SGN SPACE 4,10 00418 M00S00338.smfsubs +++|*** SFGETN - GET TERMINAL MODEL NAME. 00419 M00S00339.smfsubs +++|* 00420 M00S00340.smfsubs +++|* M. L. SWANSON. 84/10/25. 00421 M00S00341.smfsubs +++| SGN SPACE 4,10 00422 M00S00342.smfsubs +++|*** *SFGETN* PROVIDES AN INTERFACE TO *SFGETN$* FOR PROGRAMS 00423 M00S00343.smfsubs +++|* WRITTEN IN HIGHER LEVEL LANGUAGES. 00424 M00S00344.smfsubs +++| SGN SPACE 4,15 00425 M00S00345.smfsubs +++|*** CALLING SEQUENCE. 00426 M00S00346.smfsubs +++|* 00427 M00S00347.smfsubs +++|* *FORTRAN5* CALL - 00428 M00S00348.smfsubs +++|* 00429 M00S00349.smfsubs +++|* CALL SFGETN(MODEL) 00430 M00S00350.smfsubs +++|* 00431 M00S00351.smfsubs +++|* *COBOL5* CALL - 00432 M00S00352.smfsubs +++|* 00433 M00S00353.smfsubs +++|* ENTER SFGETN USING MODEL. 00434 M00S00354.smfsubs +++|* 00435 M00S00355.smfsubs +++|* MODEL = TERMINAL MODEL NAME. 00436 M00S00356.smfsubs +++| SGN SPACE 4,10 00437 M00S00357.smfsubs +++|** SFGETN - GET TERMINAL MODEL NAME. 00438 M00S00358.smfsubs +++|* 00439 M00S00359.smfsubs +++|* ENTRY (A1) = FWA OF FORMAL PARAMETER LIST. 00440 M00S00360.smfsubs +++|* (X1) = ADDRESS OF MODEL PARAMETER. 00441 M00S00361.smfsubs +++|* 00442 M00S00362.smfsubs +++|* USES X - 1. 00443 M00S00363.smfsubs +++|* A - 1. 00444 M00S00364.smfsubs +++|* B - 1, 2, 3. 00445 M00S00365.smfsubs +++|* 00446 M00S00366.smfsubs +++|* CALLS SFCSP$, SFGETN$. 00447 M00S00367.smfsubs +++| 00448 M00S00368.smfsubs +++| 00449 M00S00369.smfsubs +++| SFGETN SUBR ENTRY/EXIT 00450 M00S00370.smfsubs +++| SB1 1 00451 M00S00371.smfsubs +++| SB2 SGNA FWA OF PARAMETER LIST 00452 M00S00372.smfsubs +++| SB3 SGNB LENGTH AND OFFSET 00453 M00S00373.smfsubs +++| RJ =XSFCSP$ COPY MODEL NAME ADDRESS 00454 M00S00374.smfsubs +++| SA1 SGNA SET NEW PARAMETER LIST ADDRESS 00455 M00S00375.smfsubs +++| RJ =XSFGETN$ GET INTEGER VALUE 00456 M00S00376.smfsubs +++| EQ SFGETNX EXIT 00457 M00S00377.smfsubs +++| 00458 M00S00378.smfsubs +++| SGNA BSSZ 4 NEW PARAMETER LIST 00459 M00S00379.smfsubs +++| SGNB BSSZ 2 LENGTH AND OFFSET FOR VARIABLE NAME 00460 M00S00380.smfsubs +++| 00461 M00S00381.smfsubs +++| END 00462 M00S00382.smfsubs +++| 00463 M00S00383.smfsubs +++| IDENT SFGETR 00464 M00S00384.smfsubs +++| ENTRY SFGETR 00465 M00S00385.smfsubs +++| SYSCOM B1 00466 M00S00386.smfsubs +++| TITLE SFGETR - GET REAL VALUE. 00467 M00S00387.smfsubs +++|*COMMENT SFGETR - GET REAL VALUE.
| Line S00388 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00468 M01S00388.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1983.
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00469 M01S00009.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00470 M00S00389.smfsubs +++| SGR SPACE 4,10 00471 M00S00390.smfsubs +++|*** SFGETR - GET REAL VALUE. 00472 M00S00391.smfsubs +++|* 00473 M00S00392.smfsubs +++|* J.T. LITTLE. 83/05/23. 00474 M00S00393.smfsubs +++| SGR SPACE 4,10 00475 M00S00394.smfsubs +++|*** *SFGETR* PROVIDES AN INTERFACE TO *SFGETR$* FOR PROGRAMS 00476 M00S00395.smfsubs +++|* WRITTEN IN HIGHER LEVEL LANGUAGES. 00477 M00S00396.smfsubs +++| SGR SPACE 4,15 00478 M00S00397.smfsubs +++|*** CALLING SEQUENCE. 00479 M00S00398.smfsubs +++|* 00480 M00S00399.smfsubs +++|* *FORTRAN5* CALL - 00481 M00S00400.smfsubs +++|* 00482 M00S00401.smfsubs +++|* CALL SFGETR(VARNAME,VALUE) 00483 M00S00402.smfsubs +++|* 00484 M00S00403.smfsubs +++|* *COBOL5* CALL - 00485 M00S00404.smfsubs +++|* 00486 M00S00405.smfsubs +++|* ENTER SFGETR USING VARNAME, VALUE. 00487 M00S00406.smfsubs +++|* 00488 M00S00407.smfsubs +++|* VARNAME = NAME OF VARIABLE. 00489 M00S00408.smfsubs +++|* VALUE = REAL VALUE OF FIELD. 00490 M00S00409.smfsubs +++| SGR SPACE 4,10 00491 M00S00410.smfsubs +++|** SFGETR - GET REAL VALUE. 00492 M00S00411.smfsubs +++|* 00493 M00S00412.smfsubs +++|* ENTRY (A1) = FWA OF FORMAL PARAMETER LIST. 00494 M00S00413.smfsubs +++|* (X1) = ADDRESS OF FIRST PARAMETER. 00495 M00S00414.smfsubs +++|* 00496 M00S00415.smfsubs +++|* USES A - 1. 00497 M00S00416.smfsubs +++|* B - 1, 2, 3. 00498 M00S00417.smfsubs +++|* 00499 M00S00418.smfsubs +++|* CALLS SFCNP$, SFCSP$, SFGETR$. 00500 M00S00419.smfsubs +++| 00501 M00S00420.smfsubs +++| 00502 M00S00421.smfsubs +++| SFGETR SUBR ENTRY/EXIT 00503 M00S00422.smfsubs +++| SB1 1 00504 M00S00423.smfsubs +++| SB2 SGRA FWA OF PARAMETER LIST 00505 M00S00424.smfsubs +++| SB3 SGRB LENGTH AND OFFSET 00506 M00S00425.smfsubs +++| RJ =XSFCSP$ COPY VARNAME 00507 M00S00426.smfsubs +++| RJ =XSFCNP$ COPY VALUE 00508 M00S00427.smfsubs +++| SA1 SGRA SET NEW PARAMETER LIST ADDRESS 00509 M00S00428.smfsubs +++| RJ =XSFGETR$ GET REAL VALUE 00510 M00S00429.smfsubs +++| EQ SFGETRX EXIT 00511 M00S00430.smfsubs +++| 00512 M00S00431.smfsubs +++| SGRA BSSZ 5 NEW PARAMETER LIST 00513 M00S00432.smfsubs +++| SGRB BSSZ 2 LENGTH AND OFFSET FOR VARIABLE NAME 00514 M00S00433.smfsubs +++| 00515 M00S00434.smfsubs +++| END 00516 M00S00435.smfsubs +++|
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2619 |
Seq # *Modification Id* Act ----------------------------+ 00517 M01S00001.ns2619 +++| IDENT SFLUSH 00518 M01S00002.ns2619 +++| ENTRY SFLUSH 00519 M01S00003.ns2619 +++| SYSCOM B1 00520 M01S00004.ns2619 +++| TITLE SFLUSH - FLUSH OUTPUT TO SCREEN. 00521 M01S00005.ns2619 +++|*COMMENT SMFSUBS - FLUSH OUTPUT TO SCREEN.
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | ns2619 |
M02 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00522 M02S00006.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1988.
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00523 M01S00010.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | ns2619 |
Seq # *Modification Id* Act ----------------------------+ 00524 M01S00007.ns2619 +++| SFL SPACE 4,10 00525 M01S00008.ns2619 +++|*** SFLUSH - FLUSH OUTPUT TO SCREEN. 00526 M01S00009.ns2619 +++|* 00527 M01S00010.ns2619 +++|* R.E. DUNBAR. 88/04/05. 00528 M01S00011.ns2619 +++| SFL SPACE 4,10 00529 M01S00012.ns2619 +++|*** *SFLUSH* PROVIDES AN INTERFACE TO *SFLUSH$* FOR PROGRAMS 00530 M01S00013.ns2619 +++|* WRITTEN IN HIGHER LEVEL LANGUAGES. 00531 M01S00014.ns2619 +++| SFL SPACE 4,15 00532 M01S00015.ns2619 +++|*** CALLING SEQUENCE. 00533 M01S00016.ns2619 +++|* 00534 M01S00017.ns2619 +++|* *FORTRAN5* CALL - 00535 M01S00018.ns2619 +++|* 00536 M01S00019.ns2619 +++|* CALL SFLUSH 00537 M01S00020.ns2619 +++|* 00538 M01S00021.ns2619 +++|* *COBOL5* CALL - 00539 M01S00022.ns2619 +++|* 00540 M01S00023.ns2619 +++|* ENTER SFLUSH 00541 M01S00024.ns2619 +++|* 00542 M01S00025.ns2619 +++| SFL SPACE 4,10 00543 M01S00026.ns2619 +++|** SFLUSH - FLUSH OUTPUT TO SCREEN. 00544 M01S00027.ns2619 +++|* 00545 M01S00028.ns2619 +++|* USES B - 1. 00546 M01S00029.ns2619 +++|* 00547 M01S00030.ns2619 +++|* CALLS SFLUSH$. 00548 M01S00031.ns2619 +++| 00549 M01S00032.ns2619 +++| 00550 M01S00033.ns2619 +++| SFLUSH SUBR ENTRY/EXIT 00551 M01S00034.ns2619 +++| SB1 1 00552 M01S00035.ns2619 +++| RJ =XSFLUSH$ FLUSH OUTPUT TO SCREEN 00553 M01S00036.ns2619 +++| EQ SFLUSHX EXIT 00554 M01S00037.ns2619 +++| 00555 M01S00038.ns2619 +++| END 00556 M00S00436.smfsubs +++| IDENT SFPOSR 00557 M00S00437.smfsubs +++| ENTRY SFPOSR 00558 M00S00438.smfsubs +++| SYSCOM B1 00559 M00S00439.smfsubs +++| TITLE SFPOSR - POSITION TABLE ROW. 00560 M00S00440.smfsubs +++|*COMMENT SFPOSR - POSITION TABLE ROW.
| Line S00441 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00561 M01S00441.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1983.
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00562 M01S00011.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00563 M00S00442.smfsubs +++| SGD SPACE 4,10 00564 M00S00443.smfsubs +++|*** SFPOSR - POSITION TABLE ROW. 00565 M00S00444.smfsubs +++|* 00566 M00S00445.smfsubs +++|* J.T. LITTLE. 83/05/23. 00567 M00S00446.smfsubs +++| SGD SPACE 4,10 00568 M00S00447.smfsubs +++|*** *SFPOSR* PROVIDES AN INTERFACE TO *SFPOSR$* FOR PROGRAMS 00569 M00S00448.smfsubs +++|* WRITTEN IN HIGHER LEVEL LANGUAGES. 00570 M00S00449.smfsubs +++| SGD SPACE 4,15 00571 M00S00450.smfsubs +++|*** CALLING SEQUENCE. 00572 M00S00451.smfsubs +++|* 00573 M00S00452.smfsubs +++|* *FORTRAN5* CALL - 00574 M00S00453.smfsubs +++|* 00575 M00S00454.smfsubs +++|* CALL SFPOSR(TABNAME,VALUE) 00576 M00S00455.smfsubs +++|* 00577 M00S00456.smfsubs +++|* *COBOL5* CALL - 00578 M00S00457.smfsubs +++|* 00579 M00S00458.smfsubs +++|* ENTER SFPOSR USING TABNAME, VALUE. 00580 M00S00459.smfsubs +++|* 00581 M00S00460.smfsubs +++|* TABNAME = NAME OF TABLE. 00582 M00S00461.smfsubs +++|* VALUE = DATE VALUE OF FIELD. 00583 M00S00462.smfsubs +++| SGD SPACE 4,10 00584 M00S00463.smfsubs +++|** SFPOSR - GET DATE VALUE. 00585 M00S00464.smfsubs +++|* 00586 M00S00465.smfsubs +++|* ENTRY (A1) = FWA OF FORMAL PARAMETER LIST. 00587 M00S00466.smfsubs +++|* (X1) = ADDRESS OF FIRST PARAMETER. 00588 M00S00467.smfsubs +++|* 00589 M00S00468.smfsubs +++|* USES A - 1. 00590 M00S00469.smfsubs +++|* B - 1, 2, 3. 00591 M00S00470.smfsubs +++|* 00592 M00S00471.smfsubs +++|* CALLS SFCNP$, SFCSP$, SFPOSR$. 00593 M00S00472.smfsubs +++| 00594 M00S00473.smfsubs +++| 00595 M00S00474.smfsubs +++| SFPOSR SUBR ENTRY/EXIT 00596 M00S00475.smfsubs +++| SB1 1 00597 M00S00476.smfsubs +++| SB2 SGDA FWA OF PARAMETER LIST 00598 M00S00477.smfsubs +++| SB3 SGDB LENGTH AND OFFSET 00599 M00S00478.smfsubs +++| RJ =XSFCSP$ COPY TABNAME 00600 M00S00479.smfsubs +++| RJ =XSFCNP$ COPY VALUE 00601 M00S00480.smfsubs +++| SA1 SGDA SET NEW PARAMETER LIST ADDRESS 00602 M00S00481.smfsubs +++| RJ =XSFPOSR$ GET DATE VALUE 00603 M00S00482.smfsubs +++| EQ SFPOSRX EXIT 00604 M00S00483.smfsubs +++| 00605 M00S00484.smfsubs +++| SGDA BSSZ 5 NEW PARAMETER LIST 00606 M00S00485.smfsubs +++| SGDB BSSZ 2 LENGTH AND OFFSET FOR TABLE NAME 00607 M00S00486.smfsubs +++| 00608 M00S00487.smfsubs +++| END
| Line S00073 Modification History | |
|---|---|
M01 (Added by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 00609 M01S00073.ns2605 +++| 00610 M01S00074.ns2605 +++| IDENT SFSETF 00611 M01S00075.ns2605 +++| ENTRY SFSETF 00612 M01S00076.ns2605 +++| SYSCOM B1 00613 M01S00077.ns2605 +++| TITLE SFSETF - SET CHARACTER FIELD. 00614 M01S00078.ns2605 +++|*COMMENT SMFSUBS - SET CHARACTER FIELD.
| Line S00079 Modification History | |
|---|---|
M01 (Added by) | ns2605 |
M02 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00615 M02S00079.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1988.
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00616 M01S00012.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
| Line S00080 Modification History | |
|---|---|
M01 (Added by) | ns2605 |
Seq # *Modification Id* Act ----------------------------+ 00617 M01S00080.ns2605 +++| SSF SPACE 4,10 00618 M01S00081.ns2605 +++|*** SFSETF - SET CHARACTER FIELD. 00619 M01S00082.ns2605 +++|* 00620 M01S00083.ns2605 +++|* A. PILEBRO. 84/12/03. 00621 M01S00084.ns2605 +++|* R. E. DUNBAR. 88/02/10. 00622 M01S00085.ns2605 +++| SSF SPACE 4,10 00623 M01S00086.ns2605 +++|*** *SFSETF* PROVIDES AN INTERFACE TO *SFSETF$* FOR PROGRAMS 00624 M01S00087.ns2605 +++|* WRITTEN IN HIGHER LEVEL LANGUAGES. 00625 M01S00088.ns2605 +++| SSF SPACE 4,10 00626 M01S00089.ns2605 +++|** COMMON DECKS. 00627 M01S00090.ns2605 +++| 00628 M01S00091.ns2605 +++| 00629 M01S00092.ns2605 +++|*CALL COMCMAC 00630 M01S00093.ns2605 +++| SSF SPACE 4,15 00631 M01S00094.ns2605 +++|*** CALLING SEQUENCE. 00632 M01S00095.ns2605 +++|* 00633 M01S00096.ns2605 +++|* *FORTRAN5* CALL - 00634 M01S00097.ns2605 +++|* 00635 M01S00098.ns2605 +++|* CALL SFSETF(VARNAME,OUTSTRING,CSET,STATUS) 00636 M01S00099.ns2605 +++|* 00637 M01S00100.ns2605 +++|* *COBOL5* CALL - 00638 M01S00101.ns2605 +++|* 00639 M01S00102.ns2605 +++|* ENTER SFSETF USING VARNAME, OUTSTRING, CSET, STATUS. 00640 M01S00103.ns2605 +++|* 00641 M01S00104.ns2605 +++|* ENTRY VARNAME = NAME OF VARIABLE. 00642 M01S00105.ns2605 +++|* OUTSTRING = NAME OF RECIEVING FILED. 00643 M01S00106.ns2605 +++|* CSET = CHARACTER SET. 00644 M01S00107.ns2605 +++|* * * DEFAULT (SET BY *SFCSET*). 00645 M01S00108.ns2605 +++|* *ASCII * 6/12 ASCII. 00646 M01S00109.ns2605 +++|* *ASCII8 * 8-BIT ASCII IN 12-BIT BYTES. 00647 M01S00110.ns2605 +++|* *DISPLAY* 6-BIT DISPLAY CODE. 00648 M01S00111.ns2605 +++|* ( OTHER ) 6-BIT DISPLAY CODE. 00649 M01S00112.ns2605 +++|* 00650 M01S00113.ns2605 +++|* EXIT STATUS .GE. 0, NUMBER OF 6 BIT BYTES TRANSFERRED. 00651 M01S00114.ns2605 +++|* .LT. 1, VARIABLE NOT IN ACTIVE PANELS. 00652 M01S00115.ns2605 +++| SSF SPACE 4,10 00653 M01S00116.ns2605 +++|** SFSETF - SET CHARACTER FIELD. 00654 M01S00117.ns2605 +++|* 00655 M01S00118.ns2605 +++|* ENTRY (A1) = FWA OF FORMAL PARAMETER LIST. 00656 M01S00119.ns2605 +++|* (X1) = ADDRESS OF FIRST PARAMETER. 00657 M01S00120.ns2605 +++|* 00658 M01S00121.ns2605 +++|* USES X - 1. 00659 M01S00122.ns2605 +++|* A - 1. 00660 M01S00123.ns2605 +++|* B - 1, 2, 3. 00661 M01S00124.ns2605 +++|* 00662 M01S00125.ns2605 +++|* CALLS SFCNP$, SFCSP$, SFSETF$. 00663 M01S00126.ns2605 +++| 00664 M01S00127.ns2605 +++| 00665 M01S00128.ns2605 +++| SFSETF SUBR ENTRY/EXIT 00666 M01S00129.ns2605 +++| SB1 1 00667 M01S00130.ns2605 +++| SB2 SSFA FWA OF PARAMETER LIST 00668 M01S00131.ns2605 +++| SB3 SSFB LENGTH AND OFFSET 00669 M01S00132.ns2605 +++| RJ =XSFCSP$ COPY VARNAME 00670 M01S00133.ns2605 +++| RJ =XSFCSP$ COPY INSTRING 00671 M01S00134.ns2605 +++| RJ =XSFCSP$ COPY CSET 00672 M01S00135.ns2605 +++| RJ =XSFCNP$ COPY VALUE / STAT 00673 M01S00136.ns2605 +++| SA1 SSFA SET NEW PARAMETER LIST ADDRESS 00674 M01S00137.ns2605 +++| RJ =XSFSETF$ GET INTEGER VALUE 00675 M01S00138.ns2605 +++| EQ SFSETFX EXIT 00676 M01S00139.ns2605 +++| 00677 M01S00140.ns2605 +++| 00678 M01S00141.ns2605 +++| SSFA BSSZ 11 NEW PARAMETER LIST 00679 M01S00142.ns2605 +++| SSFB BSSZ 6 LENGTHS AND OFFSETS 00680 M01S00143.ns2605 +++| 00681 M01S00144.ns2605 +++| END 00682 M00S00488.smfsubs +++| IDENT SFSETP 00683 M00S00489.smfsubs +++| ENTRY SFSETP 00684 M00S00490.smfsubs +++| SYSCOM B1 00685 M00S00491.smfsubs +++| TITLE SFSETP - SET CURSOR POSITION. 00686 M00S00492.smfsubs +++|*COMMENT SFSETP - SET CURSOR POSITION.
| Line S00493 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00687 M01S00493.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1983.
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00688 M01S00013.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00689 M00S00494.smfsubs +++| STP SPACE 4,10 00690 M00S00495.smfsubs +++|*** SFSETP - SET CURSOR POSITION. 00691 M00S00496.smfsubs +++|* 00692 M00S00497.smfsubs +++|* J.T. LITTLE. 83/04/25. 00693 M00S00498.smfsubs +++| STP SPACE 4,10 00694 M00S00499.smfsubs +++|*** *SFSETP* PROVIDES AN INTERFACE TO *SFSETP$* FOR PROGRAMS 00695 M00S00500.smfsubs +++|* WRITTEN IN HIGHER LEVEL LANGUAGES. 00696 M00S00501.smfsubs +++| STP SPACE 4,15 00697 M00S00502.smfsubs +++|*** CALLING SEQUENCE. 00698 M00S00503.smfsubs +++|* 00699 M00S00504.smfsubs +++|* *FORTRAN5* CALL - 00700 M00S00505.smfsubs +++|* 00701 M00S00506.smfsubs +++|* CALL SFSETP(VARNAME,OFFSET,ROW) 00702 M00S00507.smfsubs +++|* 00703 M00S00508.smfsubs +++|* *COBOL5* CALL - 00704 M00S00509.smfsubs +++|* 00705 M00S00510.smfsubs +++|* ENTER SFSETP USING VARNAME, OFFSET, ROW. 00706 M00S00511.smfsubs +++|* 00707 M00S00512.smfsubs +++|* VARNAME = NAME OF VARIABLE. 00708 M00S00513.smfsubs +++|* OFFSET = OFFSET IN FIELD. 00709 M00S00514.smfsubs +++| STP SPACE 4,10 00710 M00S00515.smfsubs +++|** SFSETP - SET CURSOR POSITION. 00711 M00S00516.smfsubs +++|* 00712 M00S00517.smfsubs +++|* ENTRY (A1) = FWA OF FORMAL PARAMETER LIST. 00713 M00S00518.smfsubs +++|* (X1) = ADDRESS OF FIRST PARAMETER. 00714 M00S00519.smfsubs +++|* 00715 M00S00520.smfsubs +++|* USES A - 1. 00716 M00S00521.smfsubs +++|* B - 1, 2, 3. 00717 M00S00522.smfsubs +++|* 00718 M00S00523.smfsubs +++|* CALLS SFCNP$, SFCSP$, SFSETP$. 00719 M00S00524.smfsubs +++| 00720 M00S00525.smfsubs +++| 00721 M00S00526.smfsubs +++| SFSETP SUBR ENTRY/EXIT 00722 M00S00527.smfsubs +++| SB1 1 00723 M00S00528.smfsubs +++| SB2 STPA FWA OF PARAMETER LIST 00724 M00S00529.smfsubs +++| SB3 STPB LENGTH AND OFFSET 00725 M00S00530.smfsubs +++| RJ =XSFCSP$ COPY VARNAME 00726 M00S00531.smfsubs +++| RJ =XSFCNP$ COPY OFFSET 00727 M00S00532.smfsubs +++| RJ =XSFCNP$ COPY ROW 00728 M00S00533.smfsubs +++| SA1 STPA SET NEW PARAMETER LIST ADDRESS 00729 M00S00534.smfsubs +++| RJ =XSFSETP$ SET CURSOR POSITION 00730 M00S00535.smfsubs +++| EQ SFSETPX EXIT 00731 M00S00536.smfsubs +++| 00732 M00S00537.smfsubs +++| STPA BSSZ 6 NEW PARAMETER LIST 00733 M00S00538.smfsubs +++| STPB BSSZ 2 LENGTH AND OFFSET FOR PANEL NAME 00734 M00S00539.smfsubs +++| 00735 M00S00540.smfsubs +++| END 00736 M00S00541.smfsubs +++| 00737 M00S00542.smfsubs +++| IDENT SFSREA 00738 M00S00543.smfsubs +++| ENTRY SFSREA 00739 M00S00544.smfsubs +++| SYSCOM B1 00740 M00S00545.smfsubs +++| TITLE SFSREA - READ FORMATTED SCREEN. 00741 M00S00546.smfsubs +++|*COMMENT SFSREA - READ FORMATTED SCREEN.
| Line S00547 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00742 M01S00547.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1983.
| Line S00014 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00743 M01S00014.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00744 M00S00548.smfsubs +++| SRE SPACE 4,10 00745 M00S00549.smfsubs +++|*** SFSREA - READ FORMATTED SCREEN. 00746 M00S00550.smfsubs +++|* 00747 M00S00551.smfsubs +++|* J.T. LITTLE. 83/04/25. 00748 M00S00552.smfsubs +++| SRE SPACE 4,10 00749 M00S00553.smfsubs +++|*** *SFSREA* PROVIDES AN INTERFACE TO *SFSREA$* FOR PROGRAMS 00750 M00S00554.smfsubs +++|* WRITTEN IN HIGHER LEVEL LANGUAGES. 00751 M00S00555.smfsubs +++| SRE SPACE 4,15 00752 M00S00556.smfsubs +++|*** CALLING SEQUENCE. 00753 M00S00557.smfsubs +++|* 00754 M00S00558.smfsubs +++|* *FORTRAN5* CALL - 00755 M00S00559.smfsubs +++|* 00756 M00S00560.smfsubs +++|* CALL SFSREA(PANELNAME,INSTRING) 00757 M00S00561.smfsubs +++|* 00758 M00S00562.smfsubs +++|* *COBOL5* CALL - 00759 M00S00563.smfsubs +++|* 00760 M00S00564.smfsubs +++|* ENTER SFSREA USING PANELNAME INSTRING. 00761 M00S00565.smfsubs +++|* 00762 M00S00566.smfsubs +++|* PANELNAME = PANEL TO BE READ. 00763 M00S00567.smfsubs +++|* INSTRING = RECEIVES TERMINAL INPUT. 00764 M00S00568.smfsubs +++| SRE SPACE 4,10 00765 M00S00569.smfsubs +++|** SFSREA - READ PANEL. 00766 M00S00570.smfsubs +++|* 00767 M00S00571.smfsubs +++|* ENTRY (A1) = FWA OF FORMAL PARAMETER LIST. 00768 M00S00572.smfsubs +++|* (X1) = ADDRESS OF FIRST PARAMETER. 00769 M00S00573.smfsubs +++|* 00770 M00S00574.smfsubs +++|* USES A - 1. 00771 M00S00575.smfsubs +++|* B - 1, 2, 3. 00772 M00S00576.smfsubs +++|* 00773 M00S00577.smfsubs +++|* CALLS SFCNP$, SFCSP$, SFSREA$. 00774 M00S00578.smfsubs +++| 00775 M00S00579.smfsubs +++| 00776 M00S00580.smfsubs +++| SFSREA SUBR ENTRY/EXIT 00777 M00S00581.smfsubs +++| SB1 1 00778 M00S00582.smfsubs +++| SB2 SREA FWA OF PARAMETER LIST 00779 M00S00583.smfsubs +++| SB3 SREB LENGTH AND OFFSET 00780 M00S00584.smfsubs +++| RJ =XSFCSP$ COPY PANELNAME 00781 M00S00585.smfsubs +++| RJ =XSFCSP$ COPY INSTRING 00782 M00S00586.smfsubs +++| SA1 SREA SET NEW PARAMETER LIST ADDRESS 00783 M00S00587.smfsubs +++| RJ =XSFSREA$ READ FORMATTED SCREEN 00784 M00S00588.smfsubs +++| EQ SFSREAX EXIT 00785 M00S00589.smfsubs +++| 00786 M00S00590.smfsubs +++| SREA BSSZ 7 NEW PARAMETER LIST 00787 M00S00591.smfsubs +++| SREB BSSZ 4 LENGTH AND OFFSET FOR PANEL NAME 00788 M00S00592.smfsubs +++| END 00789 M00S00593.smfsubs +++| 00790 M00S00594.smfsubs +++| IDENT SFSWRI 00791 M00S00595.smfsubs +++| ENTRY SFSWRI 00792 M00S00596.smfsubs +++| SYSCOM B1 00793 M00S00597.smfsubs +++| TITLE SFSWRI - WRITE FORMATTED SCREEN. 00794 M00S00598.smfsubs +++|*COMMENT SFSWRI - WRITE FORMATTED SCREEN.
| Line S00599 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00795 M01S00599.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1983.
| Line S00015 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00796 M01S00015.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00797 M00S00600.smfsubs +++| SWR SPACE 4,10 00798 M00S00601.smfsubs +++|*** SFSWRI - WRITE FORMATTED SCREEN. 00799 M00S00602.smfsubs +++|* 00800 M00S00603.smfsubs +++|* J.T. LITTLE. 83/04/25. 00801 M00S00604.smfsubs +++| SWR SPACE 4,10 00802 M00S00605.smfsubs +++|*** *SFSWRI* PROVIDES AN INTERFACE TO *SFSWRI$* FOR PROGRAMS 00803 M00S00606.smfsubs +++|* WRITTEN IN HIGHER LEVEL LANGUAGES. 00804 M00S00607.smfsubs +++| SWR SPACE 4,15 00805 M00S00608.smfsubs +++|*** CALLING SEQUENCE. 00806 M00S00609.smfsubs +++|* 00807 M00S00610.smfsubs +++|* *FORTRAN5* CALL - 00808 M00S00611.smfsubs +++|* 00809 M00S00612.smfsubs +++|* CALL SFSWRI(PANELNAME,OUTSTRING) 00810 M00S00613.smfsubs +++|* 00811 M00S00614.smfsubs +++|* *COBOL5* CALL - 00812 M00S00615.smfsubs +++|* 00813 M00S00616.smfsubs +++|* ENTER SFSWRI USING PANELNAME OUTSTRING. 00814 M00S00617.smfsubs +++|* 00815 M00S00618.smfsubs +++|* PANELNAME = PANEL TO BE READ. 00816 M00S00619.smfsubs +++|* OUTSTRING = DATA TO BE DISPLAYED. 00817 M00S00620.smfsubs +++| SWR SPACE 4,10 00818 M00S00621.smfsubs +++|** SFSWRI - WRITE PANEL. 00819 M00S00622.smfsubs +++|* 00820 M00S00623.smfsubs +++|* ENTRY (A1) = FWA OF FORMAL PARAMETER LIST. 00821 M00S00624.smfsubs +++|* (X1) = ADDRESS OF FIRST PARAMETER. 00822 M00S00625.smfsubs +++|* 00823 M00S00626.smfsubs +++|* USES A - 1. 00824 M00S00627.smfsubs +++|* B - 1, 2, 3. 00825 M00S00628.smfsubs +++|* 00826 M00S00629.smfsubs +++|* CALLS SFCNP$, SFCSP$, SFSWRI$. 00827 M00S00630.smfsubs +++| 00828 M00S00631.smfsubs +++| 00829 M00S00632.smfsubs +++| SFSWRI SUBR ENTRY/EXIT 00830 M00S00633.smfsubs +++| SB1 1 00831 M00S00634.smfsubs +++| SB2 SWRA FWA OF PARAMETER LIST 00832 M00S00635.smfsubs +++| SB3 SWRB LENGTH AND OFFSET 00833 M00S00636.smfsubs +++| RJ =XSFCSP$ COPY PANELNAME 00834 M00S00637.smfsubs +++| RJ =XSFCSP$ COPY OUTSTRING 00835 M00S00638.smfsubs +++| SA1 SWRA SET NEW PARAMETER LIST ADDRESS 00836 M00S00639.smfsubs +++| RJ =XSFSWRI$ READ FORMATTED SCREEN 00837 M00S00640.smfsubs +++| EQ SFSWRIX EXIT 00838 M00S00641.smfsubs +++| 00839 M00S00642.smfsubs +++| SWRA BSSZ 7 NEW PARAMETER LIST 00840 M00S00643.smfsubs +++| SWRB BSSZ 4 LENGTHS AND OFFSETS FOR PARAMETERS 00841 M00S00644.smfsubs +++| END 00842 M00S00645.smfsubs +++| 00843 M00S00646.smfsubs +++| IDENT SFSSHO 00844 M00S00647.smfsubs +++| ENTRY SFSSHO 00845 M00S00648.smfsubs +++| SYSCOM B1 00846 M00S00649.smfsubs +++| TITLE SFSSHO - SHOW FORMATTED SCREEN. 00847 M00S00650.smfsubs +++|*COMMENT SFSSHO - SHOW FORMATTED SCREEN.
| Line S00651 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00848 M01S00651.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1983.
| Line S00016 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00849 M01S00016.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00850 M00S00652.smfsubs +++| SSH SPACE 4,10 00851 M00S00653.smfsubs +++|*** SFSSHO - SHOW FORMATTED SCREEN. 00852 M00S00654.smfsubs +++|* 00853 M00S00655.smfsubs +++|* J.T. LITTLE. 83/04/25. 00854 M00S00656.smfsubs +++| SSH SPACE 4,10 00855 M00S00657.smfsubs +++|*** *SFSSHO* PROVIDES AN INTERFACE TO *SFSSHO$* FOR PROGRAMS 00856 M00S00658.smfsubs +++|* WRITTEN IN HIGHER LEVEL LANGUAGES. 00857 M00S00659.smfsubs +++| SSH SPACE 4,15 00858 M00S00660.smfsubs +++|*** CALLING SEQUENCE. 00859 M00S00661.smfsubs +++|* 00860 M00S00662.smfsubs +++|* *FORTRAN5* CALL - 00861 M00S00663.smfsubs +++|* 00862 M00S00664.smfsubs +++|* CALL SFSSHO(PANELNAME,INSTRING,OUTSTRING) 00863 M00S00665.smfsubs +++|* 00864 M00S00666.smfsubs +++|* *COBOL5* CALL - 00865 M00S00667.smfsubs +++|* 00866 M00S00668.smfsubs +++|* ENTER SFSSHO USING PANELNAME INSTRING,OUTSTRING. 00867 M00S00669.smfsubs +++|* 00868 M00S00670.smfsubs +++|* PANELNAME = PANEL TO BE READ. 00869 M00S00671.smfsubs +++|* OUTSTRING = DATA TO BE DISPLAYED. 00870 M00S00672.smfsubs +++|* INSTRING = INPUT FROM TERMINAL. 00871 M00S00673.smfsubs +++| SSH SPACE 4,10 00872 M00S00674.smfsubs +++|** SFSSHO - SHOW PANEL. 00873 M00S00675.smfsubs +++|* 00874 M00S00676.smfsubs +++|* ENTRY (A1) = FWA OF FORMAL PARAMETER LIST. 00875 M00S00677.smfsubs +++|* (X1) = ADRESS OF FIRST PARAMETER. 00876 M00S00678.smfsubs +++|* 00877 M00S00679.smfsubs +++|* USES A - 1. 00878 M00S00680.smfsubs +++|* B - 1, 2, 3. 00879 M00S00681.smfsubs +++|* 00880 M00S00682.smfsubs +++|* CALLS SFCNP$, SFCSP$, SFSSHO$. 00881 M00S00683.smfsubs +++| 00882 M00S00684.smfsubs +++| 00883 M00S00685.smfsubs +++| SFSSHO SUBR ENTRY/EXIT 00884 M00S00686.smfsubs +++| SB1 1 00885 M00S00687.smfsubs +++| SB2 SSHA FWA OF PARAMETER LIST 00886 M00S00688.smfsubs +++| SB3 SSHB LENGTH AND OFFSET 00887 M00S00689.smfsubs +++| RJ =XSFCSP$ COPY PANELNAME 00888 M00S00690.smfsubs +++| RJ =XSFCSP$ COPY OUTSTRING 00889 M00S00691.smfsubs +++| RJ =XSFCSP$ COPY INSTRING 00890 M00S00692.smfsubs +++| SA1 SSHA SET NEW PARAMETER LIST ADDRESS 00891 M00S00693.smfsubs +++| RJ =XSFSSHO$ READ FORMATTED SCREEN 00892 M00S00694.smfsubs +++| EQ SFSSHOX EXIT 00893 M00S00695.smfsubs +++| 00894 M00S00696.smfsubs +++| SSHA BSSZ 10 NEW PARAMETER LIST 00895 M00S00697.smfsubs +++| SSHB BSSZ 6 LENGTHS AND OFFSETS FOR PARAMETERS 00896 M00S00698.smfsubs +++| END 00897 M00S00699.smfsubs +++| 00898 M00S00700.smfsubs +++| IDENT SFCSET 00899 M00S00701.smfsubs +++| ENTRY SFCSET 00900 M00S00702.smfsubs +++| SYSCOM B1 00901 M00S00703.smfsubs +++| TITLE SFCSET - SPECIFY CHARACTER SET. 00902 M00S00704.smfsubs +++|*COMMENT SFCSET - SPECIFY CHARACTER SET.
| Line S00705 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00903 M01S00705.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1983.
| Line S00017 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00904 M01S00017.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00905 M00S00706.smfsubs +++| CST SPACE 4,10 00906 M00S00707.smfsubs +++|*** SFCSET - SPECIFY CHARACTER SET. 00907 M00S00708.smfsubs +++|* 00908 M00S00709.smfsubs +++|* J.T. LITTLE. 83/04/25. 00909 M00S00710.smfsubs +++| CST SPACE 4,10 00910 M00S00711.smfsubs +++|*** *SFCSET* PROVIDES AN INTERFACE TO *SFCSET$* FOR PROGRAMS 00911 M00S00712.smfsubs +++|* WRITTEN IN HIGHER LEVEL LANGUAGES. 00912 M00S00713.smfsubs +++| CST SPACE 4,15 00913 M00S00714.smfsubs +++|*** CALLING SEQUENCE. 00914 M00S00715.smfsubs +++|* 00915 M00S00716.smfsubs +++|* *FORTRAN5* CALL - 00916 M00S00717.smfsubs +++|* 00917 M00S00718.smfsubs +++|* CALL SFCSET(CHARSET) 00918 M00S00719.smfsubs +++|* 00919 M00S00720.smfsubs +++|* *COBOL5* CALL - 00920 M00S00721.smfsubs +++|* 00921 M00S00722.smfsubs +++|* ENTER SFCSET USING CHARSET. 00922 M00S00723.smfsubs +++|* 00923 M00S00724.smfsubs +++|* CHARSET = CHARACTER SET. 00924 M00S00725.smfsubs +++| CST SPACE 4,10 00925 M00S00726.smfsubs +++|** SFCSET - SPECIFY CHARACTER SET. 00926 M00S00727.smfsubs +++|* 00927 M00S00728.smfsubs +++|* ENTRY (A1) = FWA OF FORMAL PARAMETER LIST. 00928 M00S00729.smfsubs +++|* (X1) = ADRESS OF FIRST PARAMETER. 00929 M00S00730.smfsubs +++|* 00930 M00S00731.smfsubs +++|* USES A - 1. 00931 M00S00732.smfsubs +++|* B - 1, 2, 3. 00932 M00S00733.smfsubs +++|* 00933 M00S00734.smfsubs +++|* CALLS SFCNP$, SFCSP$, SFCSET$. 00934 M00S00735.smfsubs +++| 00935 M00S00736.smfsubs +++| 00936 M00S00737.smfsubs +++| SFCSET SUBR ENTRY/EXIT 00937 M00S00738.smfsubs +++| SB1 1 00938 M00S00739.smfsubs +++| SB2 CSTA FWA OF PARAMETER LIST 00939 M00S00740.smfsubs +++| SB3 CSTB LENGTH AND OFFSET 00940 M00S00741.smfsubs +++| RJ =XSFCSP$ COPY CHARSET 00941 M00S00742.smfsubs +++| SA1 CSTA SET NEW PARAMETER LIST ADDRESS 00942 M00S00743.smfsubs +++| RJ =XSFCSET$ SET CHARACTER SET 00943 M00S00744.smfsubs +++| EQ SFCSETX EXIT 00944 M00S00745.smfsubs +++| 00945 M00S00746.smfsubs +++| CSTA BSSZ 4 NEW PARAMETER LIST 00946 M00S00747.smfsubs +++| CSTB BSSZ 2 LENGTH AND OFFSET FOR PARAMETER 00947 M00S00748.smfsubs +++| 00948 M00S00749.smfsubs +++| END 00949 M00S00750.smfsubs +++| 00950 M00S00751.smfsubs +++| IDENT SFGETP 00951 M00S00752.smfsubs +++| ENTRY SFGETP 00952 M00S00753.smfsubs +++| SYSCOM B1 00953 M00S00754.smfsubs +++| TITLE SFGETP - GET CURSOR POSITION. 00954 M00S00755.smfsubs +++|*COMMENT SFGETP - GET CURSOR POSITION.
| Line S00756 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00955 M01S00756.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1983.
| Line S00018 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00956 M01S00018.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00957 M00S00757.smfsubs +++| STP SPACE 4,10 00958 M00S00758.smfsubs +++|*** SFGETP - GET CURSOR POSITION. 00959 M00S00759.smfsubs +++|* 00960 M00S00760.smfsubs +++|* J.T. LITTLE. 83/04/25. 00961 M00S00761.smfsubs +++| STP SPACE 4,10 00962 M00S00762.smfsubs +++|*** *SFGETP* PROVIDES AN INTERFACE TO *SFGETP$* FOR PROGRAMS 00963 M00S00763.smfsubs +++|* WRITTEN IN HIGHER LEVEL LANGUAGES. 00964 M00S00764.smfsubs +++| STP SPACE 4,15 00965 M00S00765.smfsubs +++|*** CALLING SEQUENCE. 00966 M00S00766.smfsubs +++|* 00967 M00S00767.smfsubs +++|* *FORTRAN5* CALL - 00968 M00S00768.smfsubs +++|* 00969 M00S00769.smfsubs +++|* CALL SFGETP(VARNAME,OFFSET,ROW) 00970 M00S00770.smfsubs +++|* 00971 M00S00771.smfsubs +++|* *COBOL5* CALL - 00972 M00S00772.smfsubs +++|* 00973 M00S00773.smfsubs +++|* ENTER SFGETP USING VARNAME, OFFSET, ROW. 00974 M00S00774.smfsubs +++|* 00975 M00S00775.smfsubs +++|* VARNAME = NAME OF VARIABLE. 00976 M00S00776.smfsubs +++|* OFFSET = OFFSET IN FIELD. 00977 M00S00777.smfsubs +++| STP SPACE 4,10 00978 M00S00778.smfsubs +++|** SFGETP - GET CURSOR POSITION. 00979 M00S00779.smfsubs +++|* 00980 M00S00780.smfsubs +++|* ENTRY (A1) = FWA OF FORMAL PARAMETER LIST. 00981 M00S00781.smfsubs +++|* (X1) = ADRESS OF FIRST PARAMETER. 00982 M00S00782.smfsubs +++|* 00983 M00S00783.smfsubs +++|* USES A - 1. 00984 M00S00784.smfsubs +++|* B - 1, 2, 3. 00985 M00S00785.smfsubs +++|* 00986 M00S00786.smfsubs +++|* CALLS SFCNP$, SFCSP$, SFGETP$. 00987 M00S00787.smfsubs +++| 00988 M00S00788.smfsubs +++| 00989 M00S00789.smfsubs +++| SFGETP SUBR ENTRY/EXIT 00990 M00S00790.smfsubs +++| SB1 1 00991 M00S00791.smfsubs +++| SB2 STPA FWA OF PARAMETER LIST 00992 M00S00792.smfsubs +++| SB3 STPB LENGTH AND OFFSET 00993 M00S00793.smfsubs +++| RJ =XSFCSP$ COPY VARNAME 00994 M00S00794.smfsubs +++| RJ =XSFCNP$ COPY OFFSET 00995 M00S00795.smfsubs +++| RJ =XSFCNP$ COPY ROW 00996 M00S00796.smfsubs +++| SA1 STPA GET NEW PARAMETER LIST ADDRESS 00997 M00S00797.smfsubs +++| RJ =XSFGETP$ GET CURSOR POSITION 00998 M00S00798.smfsubs +++| EQ SFGETPX EXIT 00999 M00S00799.smfsubs +++| 01000 M00S00800.smfsubs +++| STPA BSSZ 6 NEW PARAMETER LIST 01001 M00S00801.smfsubs +++| STPB BSSZ 2 LENGTH AND OFFSET FOR PARAMETERS 01002 M00S00802.smfsubs +++| 01003 M00S00803.smfsubs +++| END 01004 M00S00804.smfsubs +++| 01005 M00S00805.smfsubs +++| IDENT SFOPEN 01006 M00S00806.smfsubs +++| ENTRY SFOPEN 01007 M00S00807.smfsubs +++| SYSCOM B1 01008 M00S00808.smfsubs +++| TITLE SFOPEN - OPEN PANEL. 01009 M00S00809.smfsubs +++|*COMMENT SFOPEN - OPEN PANEL.
| Line S00810 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 01010 M01S00810.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1983.
| Line S00019 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 01011 M01S00019.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 01012 M00S00811.smfsubs +++| SOP SPACE 4,10 01013 M00S00812.smfsubs +++|*** SFOPEN - OPEN PANEL. 01014 M00S00813.smfsubs +++|* 01015 M00S00814.smfsubs +++|* J.T. LITTLE. 83/04/25. 01016 M00S00815.smfsubs +++| SOP SPACE 4,10 01017 M00S00816.smfsubs +++|*** *SFOPEN* PROVIDES AN INTERFACE TO *SFOPEN$* FOR PROGRAMS 01018 M00S00817.smfsubs +++|* WRITTEN IN HIGHER LEVEL LANGUAGES. 01019 M00S00818.smfsubs +++| SOP SPACE 4,15 01020 M00S00819.smfsubs +++|*** CALLING SEQUENCE. 01021 M00S00820.smfsubs +++|* 01022 M00S00821.smfsubs +++|* *FORTRAN5* CALL - 01023 M00S00822.smfsubs +++|* 01024 M00S00823.smfsubs +++|* CALL SFOPEN(PANELNAME,STATUS) 01025 M00S00824.smfsubs +++|* 01026 M00S00825.smfsubs +++|* *COBOL5* CALL - 01027 M00S00826.smfsubs +++|* 01028 M00S00827.smfsubs +++|* ENTER SFOPEN USING PANELNAME STATUS. 01029 M00S00828.smfsubs +++|* 01030 M00S00829.smfsubs +++|* PANELNAME = PANEL TO BE OPENED. 01031 M00S00830.smfsubs +++|* STATUS = RETURNS OPEN STATUS. 01032 M00S00831.smfsubs +++| SOP SPACE 4,10 01033 M00S00832.smfsubs +++|** SFOPEN - OPEN PANEL. 01034 M00S00833.smfsubs +++|* 01035 M00S00834.smfsubs +++|* ENTRY (A1) = FWA OF FORMAL PARAMETER LIST. 01036 M00S00835.smfsubs +++|* (X1) = ADRESS OF FIRST PARAMETER. 01037 M00S00836.smfsubs +++|* 01038 M00S00837.smfsubs +++|* USES A - 1. 01039 M00S00838.smfsubs +++|* B - 1, 2, 3. 01040 M00S00839.smfsubs +++|* 01041 M00S00840.smfsubs +++|* CALLS SFCNP$, SFCSP$, SFOPEN$. 01042 M00S00841.smfsubs +++| 01043 M00S00842.smfsubs +++| 01044 M00S00843.smfsubs +++| SFOPEN SUBR ENTRY/EXIT 01045 M00S00844.smfsubs +++| SB1 1 01046 M00S00845.smfsubs +++| SB2 SOPA FWA OF PARAMETER LIST 01047 M00S00846.smfsubs +++| SB3 SOPB LENGTH AND OFFSET 01048 M00S00847.smfsubs +++| RJ =XSFCSP$ COPY PANELNAME 01049 M00S00848.smfsubs +++| RJ =XSFCNP$ COPY STATUS 01050 M00S00849.smfsubs +++| SA1 SOPA SET NEW PARAMETER LIST ADDRESS 01051 M00S00850.smfsubs +++| RJ =XSFOPEN$ OPEN PANEL 01052 M00S00851.smfsubs +++| EQ SFOPENX EXIT 01053 M00S00852.smfsubs +++| 01054 M00S00853.smfsubs +++| SOPA BSSZ 5 NEW PARAMETER LIST 01055 M00S00854.smfsubs +++| SOPB BSSZ 2 LENGTH AND OFFSET FOR PARAMETERS 01056 M00S00855.smfsubs +++| END 01057 M00S00856.smfsubs +++| 01058 M00S00857.smfsubs +++| IDENT SFCLOS 01059 M00S00858.smfsubs +++| ENTRY SFCLOS 01060 M00S00859.smfsubs +++| SYSCOM B1 01061 M00S00860.smfsubs +++| TITLE SFCLOS - CLOSE PANEL. 01062 M00S00861.smfsubs +++|*COMMENT SFCLOS - CLOSE PANEL.
| Line S00862 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 01063 M01S00862.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1983.
| Line S00020 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 01064 M01S00020.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 01065 M00S00863.smfsubs +++| SCL SPACE 4,10 01066 M00S00864.smfsubs +++|*** SFCLOS - CLOSE PANEL. 01067 M00S00865.smfsubs +++|* 01068 M00S00866.smfsubs +++|* J.T. LITTLE. 83/04/25. 01069 M00S00867.smfsubs +++| SCL SPACE 4,10 01070 M00S00868.smfsubs +++|*** *SFCLOS* PROVIDES AN INTERFACE TO *SFCLOS$* FOR PROGRAMS 01071 M00S00869.smfsubs +++|* WRITTEN IN HIGHER LEVEL LANGUAGES. 01072 M00S00870.smfsubs +++| SCL SPACE 4,15 01073 M00S00871.smfsubs +++|*** CALLING SEQUENCE. 01074 M00S00872.smfsubs +++|* 01075 M00S00873.smfsubs +++|* *FORTRAN5* CALL - 01076 M00S00874.smfsubs +++|* 01077 M00S00875.smfsubs +++|* CALL SFCLOS(PANELNAME,STATUS) 01078 M00S00876.smfsubs +++|* 01079 M00S00877.smfsubs +++|* *COBOL5* CALL - 01080 M00S00878.smfsubs +++|* 01081 M00S00879.smfsubs +++|* ENTER SFCLOS USING PANELNAME STATUS. 01082 M00S00880.smfsubs +++|* 01083 M00S00881.smfsubs +++|* PANELNAME = PANEL TO BE CLOSED. 01084 M00S00882.smfsubs +++|* STATUS = RETURNS CLOSE STATUS. 01085 M00S00883.smfsubs +++| SCL SPACE 4,10 01086 M00S00884.smfsubs +++|** SFCLOS - CLOSE PANEL. 01087 M00S00885.smfsubs +++|* 01088 M00S00886.smfsubs +++|* ENTRY (A1) = FWA OF FORMAL PARAMETER LIST. 01089 M00S00887.smfsubs +++|* (X1) = ADDRESS OF FIRST PARAMETER. 01090 M00S00888.smfsubs +++|* 01091 M00S00889.smfsubs +++|* USES A - 1. 01092 M00S00890.smfsubs +++|* B - 1, 2, 3. 01093 M00S00891.smfsubs +++|* 01094 M00S00892.smfsubs +++|* CALLS SFCNP$, SFCSP$, SFCLOS$. 01095 M00S00893.smfsubs +++| 01096 M00S00894.smfsubs +++| 01097 M00S00895.smfsubs +++| SFCLOS SUBR ENTRY/EXIT 01098 M00S00896.smfsubs +++| SB1 1 01099 M00S00897.smfsubs +++| SB2 SCLA FWA OF PARAMETER LIST 01100 M00S00898.smfsubs +++| SB3 SCLB LENGTH AND OFFSET 01101 M00S00899.smfsubs +++| RJ =XSFCSP$ COPY PANELNAME 01102 M00S00900.smfsubs +++| RJ =XSFCNP$ COPY STATUS 01103 M00S00901.smfsubs +++| SA1 SCLA SET NEW PARAMETER LIST ADDRESS 01104 M00S00902.smfsubs +++| RJ =XSFCLOS$ CLOSE PANEL 01105 M00S00903.smfsubs +++| EQ SFCLOSX EXIT 01106 M00S00904.smfsubs +++| 01107 M00S00905.smfsubs +++| SCLA BSSZ 5 NEW PARAMETER LIST 01108 M00S00906.smfsubs +++| SCLB BSSZ 2 LENGTH AND OFFSET FOR PARAMETERS 01109 M00S00907.smfsubs +++| END 01110 M00S00908.smfsubs +++| IDENT CSFCLOS 01111 M00S00909.smfsubs +++| ENTRY CSFCLOS 01112 M00S00910.smfsubs +++| SYSCOM B1 01113 M00S00911.smfsubs +++| TITLE CSFCLOS - *CYBIL* INTERFACE TO *SFCLOS$*. 01114 M00S00912.smfsubs +++|*COMMENT CSFCLOS - *CYBIL* INTERFACE TO *SFCLOS$*
| Line S00913 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 01115 M01S00913.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1984.
| Line S00021 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 01116 M01S00021.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 01117 M00S00914.smfsubs +++| CLO SPACE 4,10 01118 M00S00915.smfsubs +++|*** CSFCLOS - *CYBIL* INTERFACE TO *SFCLOS$*. 01119 M00S00916.smfsubs +++|* 01120 M00S00917.smfsubs +++|* M. L. SWANSON. 84/05/16. 01121 M00S00918.smfsubs +++| CLO SPACE 4,10 01122 M00S00919.smfsubs +++|*** *CSFCLOS* PROVIDES AN INTERFACE TO *SFCLOS$* BY 01123 M00S00920.smfsubs +++|* SAVING THE *CYBIL* STACK DISCIPLINE VARIABLES AND 01124 M00S00921.smfsubs +++|* REFORMATTING THE PARAMETER LIST FOR THE CALL TO THE 01125 M00S00922.smfsubs +++|* SYMPL ROUTINE, *SFCLOS$*. 01126 M00S00923.smfsubs +++| CLO SPACE 4,10 01127 M00S00924.smfsubs +++|** COMMON DECKS. 01128 M00S00925.smfsubs +++| 01129 M00S00926.smfsubs +++| 01130 M00S00927.smfsubs +++|*CALL COMFCID 01131 M00S00928.smfsubs +++| CLO SPACE 4,10 01132 M00S00929.smfsubs +++|*** CSFCLOS - *CYBIL* INTERFACE TO *SFCLOS$*. 01133 M00S00930.smfsubs +++|* 01134 M00S00931.smfsubs +++|* CALLING SEQUENCE. 01135 M00S00932.smfsubs +++|* *CYBIL* CALL - 01136 M00S00933.smfsubs +++|* 01137 M00S00934.smfsubs +++|* CSFCLOS(PANELNAME, MODE); 01138 M00S00935.smfsubs +++|* 01139 M00S00936.smfsubs +++|* PANELNAME = NAME OF PANEL TO BE CLOSED. 01140 M00S00937.smfsubs +++|* MODE = MODE TO REVERT TO AFTER PANEL CLOSED. 01141 M00S00938.smfsubs +++| CLO SPACE 4,10 01142 M00S00939.smfsubs +++|** CSFCLOS - *COMPASS* INTERFACE TO *SFCLOS$* CALL. 01143 M00S00940.smfsubs +++|* 01144 M00S00941.smfsubs +++|* ENTRY CONDITIONS 01145 M00S00942.smfsubs +++|* B1 1 01146 M00S00943.smfsubs +++|* B2 POINTER TO CALLER'S STACK FRAME 01147 M00S00944.smfsubs +++|* B3 STACK LIMIT 01148 M00S00945.smfsubs +++|* B4 STATIC LINK 01149 M00S00946.smfsubs +++|* X1 POINTER TO *PANELNAME* 01150 M00S00947.smfsubs +++|* X2 POINTER TO *MODE* 01151 M00S00948.smfsubs +++|* B5 POINTER TO ARGUMENT EXTENSION LIST 01152 M00S00949.smfsubs +++|* X7 PROCEDURE LINKAGE WORD (RETURN ADDRESS) 01153 M00S00950.smfsubs +++|* 01154 M00S00951.smfsubs +++|* EXIT CONDITIONS 01155 M00S00952.smfsubs +++|* B1 1 01156 M00S00953.smfsubs +++|* B2 AS ON ENTRY 01157 M00S00954.smfsubs +++|* B3 AS ON ENTRY 01158 M00S00955.smfsubs +++|* B4 AS ON ENTRY 01159 M00S00956.smfsubs +++|* X1 AS X7 ON ENTRY 01160 M00S00957.smfsubs +++|* 01161 M00S00958.smfsubs +++|* USES X - 1, 2, 3, 4, 6, 7. 01162 M00S00959.smfsubs +++|* A - 1, 2, 3, 4, 6, 7. 01163 M00S00960.smfsubs +++|* B - 1, 2, 3, 4. 01164 M00S00961.smfsubs +++|* 01165 M00S00962.smfsubs +++|* CALLS SFCLOS$. 01166 M00S00963.smfsubs +++| 01167 M00S00964.smfsubs +++| 01168 M00S00965.smfsubs +++| CSFCLOS ENTR ENTRY/EXIT 01169 M00S00966.smfsubs +++| SB1 1 01170 M00S00967.smfsubs +++| SX6 B2 01171 M00S00968.smfsubs +++| SX7 B3 01172 M00S00969.smfsubs +++| SA6 CLOA SAVE POINTER TO STACK FRAME 01173 M00S00970.smfsubs +++| SA7 CLOB SAVE STACK LIMIT 01174 M00S00971.smfsubs +++| SX6 B4 01175 M00S00972.smfsubs +++| SA6 CLOC SAVE STATIC LINK 01176 M00S00973.smfsubs +++| BX6 X1 01177 M00S00974.smfsubs +++| 01178 M00S00975.smfsubs +++|* *PANELNAME* PARAMETER IS PASSED CALL-BY-ADDRESS. 01179 M00S00976.smfsubs +++| 01180 M00S00977.smfsubs +++| SA6 CLOD SAVE POINTER TO *PANELNAME* 01181 M00S00978.smfsubs +++| BX6 X2 01182 M00S00979.smfsubs +++| SA6 CLOJ SAVE *MODE* 01183 M00S00980.smfsubs +++| SA1 CLOD GET FIRST WORD ADDRESS OF PARAMETER LIST 01184 M00S00981.smfsubs +++| RJ =XSFCLOS$ 01185 M00S00982.smfsubs +++| 01186 M00S00983.smfsubs +++|* RESTORE REGISTERS. 01187 M00S00984.smfsubs +++| 01188 M00S00985.smfsubs +++| SB1 1 RESTORE B1 AFTER *SYMPL* ERROR 01189 M00S00986.smfsubs +++| SA2 CLOA GET POINTER TO STACK FRAME 01190 M00S00987.smfsubs +++| SA3 CLOB GET STACK LIMIT 01191 M00S00988.smfsubs +++| SA4 CLOC GET STATIC LINK 01192 M00S00989.smfsubs +++| SB2 X2 RETURN TO B2 01193 M00S00990.smfsubs +++| SB3 X3 RETURN TO B3 01194 M00S00991.smfsubs +++| SB4 X4 RETURN TO B2 01195 M00S00992.smfsubs +++| DONE RETURN 01196 M00S00993.smfsubs +++| 01197 M00S00994.smfsubs +++| CLOA VFD 60/0 POINTER TO STACK FRAME 01198 M00S00995.smfsubs +++| CLOB VFD 60/0 STACK LIMIT 01199 M00S00996.smfsubs +++| CLOC VFD 60/0 STATIC LINK 01200 M00S00997.smfsubs +++| 01201 M00S00998.smfsubs +++|* PARAMETER BLOCK FOR SYMPL PROCEDURE CALL. 01202 M00S00999.smfsubs +++| 01203 M00S01000.smfsubs +++| CLOD VFD 60/0 ADDRESS OF *PANELNAME* PARAMETER 01204 M00S01001.smfsubs +++| CLOE VFD 60/CLOH ADDRESS OF *NLENGTH* PARAMETER 01205 M00S01002.smfsubs +++| CLOF VFD 60/CLOI ADDRESS OF *NOFFSET* PARAMETER 01206 M00S01003.smfsubs +++| CLOG VFD 60/CLOJ ADDRESS OF *MODE* PARAMETER 01207 M00S01004.smfsubs +++| 01208 M00S01005.smfsubs +++| CLOH VFD 60/7 *NLENGTH* 01209 M00S01006.smfsubs +++| CLOI VFD 60/0 *NOFFSET* 01210 M00S01007.smfsubs +++| CLOJ VFD 60/0 *MODE* 01211 M00S01008.smfsubs +++| 01212 M00S01009.smfsubs +++| END 01213 M00S01010.smfsubs +++| IDENT CSFGETI 01214 M00S01011.smfsubs +++| ENTRY CSFGETI 01215 M00S01012.smfsubs +++| SYSCOM B1 01216 M00S01013.smfsubs +++| TITLE CSFGETI - *CYBIL* INTERFACE TO *SFGETI$*. 01217 M00S01014.smfsubs +++|*COMMENT CSFGETI - *CYBIL* INTERFACE TO *SFGETI$*
| Line S01015 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 01218 M01S01015.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1984.
| Line S00022 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 01219 M01S00022.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 01220 M00S01016.smfsubs +++| GTI SPACE 4,10 01221 M00S01017.smfsubs +++|*** CSFGETI - *COMPASS* INTERFACE TO *SFGETI$* CALL. 01222 M00S01018.smfsubs +++|* 01223 M00S01019.smfsubs +++|* M. L. SWANSON. 84/05/16. 01224 M00S01020.smfsubs +++| GTI SPACE 4,10 01225 M00S01021.smfsubs +++|*** *CSFGETI* PROVIDES AN INTERFACE TO *SFGETI$* BY 01226 M00S01022.smfsubs +++|* SAVING THE *CYBIL* STACK DISCIPLINE VARIABLES AND 01227 M00S01023.smfsubs +++|* REFORMATTING THE PARAMETER LIST FOR THE CALL TO THE 01228 M00S01024.smfsubs +++|* SYMPL ROUTINE, *SFGETI$*. 01229 M00S01025.smfsubs +++| GTI SPACE 4,10 01230 M00S01026.smfsubs +++|** COMMON DECKS. 01231 M00S01027.smfsubs +++| 01232 M00S01028.smfsubs +++| 01233 M00S01029.smfsubs +++|*CALL COMFCID 01234 M00S01030.smfsubs +++| GTI SPACE 4,10 01235 M00S01031.smfsubs +++|*** CSFGETI - *CYBIL* INTERFACE TO *SFGETI$*. 01236 M00S01032.smfsubs +++|* 01237 M00S01033.smfsubs +++|* CALLING SEQUENCE. 01238 M00S01034.smfsubs +++|* *CYBIL* CALL - 01239 M00S01035.smfsubs +++|* 01240 M00S01036.smfsubs +++|* CSFGETI(VARNAME, VALUE); 01241 M00S01037.smfsubs +++|* 01242 M00S01038.smfsubs +++|* VARNAME = FIELD NAME OF THE PANEL VARIABLE. 01243 M00S01039.smfsubs +++|* VALUE = INTEGER VALUE TO BE RETURNED. 01244 M00S01040.smfsubs +++| GTI SPACE 4,10 01245 M00S01041.smfsubs +++|** CSFGETI - *COMPASS* INTERFACE TO *SFGETI$* CALL. 01246 M00S01042.smfsubs +++|* 01247 M00S01043.smfsubs +++|* ENTRY CONDITIONS 01248 M00S01044.smfsubs +++|* B1 1 01249 M00S01045.smfsubs +++|* B2 POINTER TO CALLER'S STACK FRAME 01250 M00S01046.smfsubs +++|* B3 STACK LIMIT 01251 M00S01047.smfsubs +++|* B4 STATIC LINK 01252 M00S01048.smfsubs +++|* X1 POINTER TO *VARNAME* 01253 M00S01049.smfsubs +++|* X2 POINTER TO *VALUE* 01254 M00S01050.smfsubs +++|* B5 POINTER TO ARGUMENT EXTENSION LIST 01255 M00S01051.smfsubs +++|* X7 PROCEDURE LINKAGE WORD (RETURN ADDRESS) 01256 M00S01052.smfsubs +++|* 01257 M00S01053.smfsubs +++|* EXIT CONDITIONS 01258 M00S01054.smfsubs +++|* B1 1 01259 M00S01055.smfsubs +++|* B2 AS ON ENTRY 01260 M00S01056.smfsubs +++|* B3 AS ON ENTRY 01261 M00S01057.smfsubs +++|* B4 AS ON ENTRY 01262 M00S01058.smfsubs +++|* X1 AS X7 ON ENTRY 01263 M00S01059.smfsubs +++|* 01264 M00S01060.smfsubs +++|* USES X - 1, 2, 3, 4, 6, 7. 01265 M00S01061.smfsubs +++|* A - 1, 2, 3, 4, 6, 7. 01266 M00S01062.smfsubs +++|* B - 1, 2, 3, 4. 01267 M00S01063.smfsubs +++|* 01268 M00S01064.smfsubs +++|* CALLS SFGETI$. 01269 M00S01065.smfsubs +++| 01270 M00S01066.smfsubs +++| 01271 M00S01067.smfsubs +++| CSFGETI ENTR ENTRY/EXIT 01272 M00S01068.smfsubs +++| SB1 1 01273 M00S01069.smfsubs +++| SX6 B2 01274 M00S01070.smfsubs +++| SX7 B3 01275 M00S01071.smfsubs +++| SA6 GTIA SAVE POINTER TO STACK FRAME 01276 M00S01072.smfsubs +++| SA7 GTIB SAVE STACK LIMIT 01277 M00S01073.smfsubs +++| SX6 B4 01278 M00S01074.smfsubs +++| SA6 GTIC SAVE STATIC LINK 01279 M00S01075.smfsubs +++| BX6 X1 01280 M00S01076.smfsubs +++| SA6 GTID SAVE POINTER TO *VARNAME* 01281 M00S01077.smfsubs +++| BX6 X2 01282 M00S01078.smfsubs +++| SA6 GTIG SAVE POINTER TO *VALUE* 01283 M00S01079.smfsubs +++| SA1 GTID GET FIRST WORD ADDRESS OF PARAMETER LIST 01284 M00S01080.smfsubs +++| RJ =XSFGETI$ 01285 M00S01081.smfsubs +++| 01286 M00S01082.smfsubs +++|* RESTORE REGISTERS. 01287 M00S01083.smfsubs +++| 01288 M00S01084.smfsubs +++| SB1 1 RESTORE B1 AFTER *SYMPL* ERROR 01289 M00S01085.smfsubs +++| SA2 GTIA GET POINTER TO STACK FRAME 01290 M00S01086.smfsubs +++| SA3 GTIB GET STACK LIMIT 01291 M00S01087.smfsubs +++| SA4 GTIC GET STATIC LINK 01292 M00S01088.smfsubs +++| SB2 X2 RETURN TO B2 01293 M00S01089.smfsubs +++| SB3 X3 RETURN TO B3 01294 M00S01090.smfsubs +++| SB4 X4 RETURN TO B4 01295 M00S01091.smfsubs +++| DONE RETURN 01296 M00S01092.smfsubs +++| 01297 M00S01093.smfsubs +++| GTIA VFD 60/0 POINTER TO STACK FRAME 01298 M00S01094.smfsubs +++| GTIB VFD 60/0 STACK LIMIT 01299 M00S01095.smfsubs +++| GTIC VFD 60/0 STATIC LINK 01300 M00S01096.smfsubs +++| 01301 M00S01097.smfsubs +++|* PARAMETER BLOCK FOR *SYMPL* PROCEDURE CALL. 01302 M00S01098.smfsubs +++| 01303 M00S01099.smfsubs +++| GTID VFD 60/0 ADDRESS OF *VARNAME* PARAMETER 01304 M00S01100.smfsubs +++| GTIE VFD 60/GTIH ADDRESS OF *VLEN* PARAMETER 01305 M00S01101.smfsubs +++| GTIF VFD 60/GTII ADDRESS OF *VOFF* PARAMETER 01306 M00S01102.smfsubs +++| GTIG VFD 60/0 ADDRESS OF *VALUE* PARAMETER 01307 M00S01103.smfsubs +++| 01308 M00S01104.smfsubs +++| GTIH VFD 60/7 *VLEN* 01309 M00S01105.smfsubs +++| GTII VFD 60/0 *VOFF* 01310 M00S01106.smfsubs +++| 01311 M00S01107.smfsubs +++| END 01312 M00S01108.smfsubs +++| IDENT CSFGETK 01313 M00S01109.smfsubs +++| ENTRY CSFGETK 01314 M00S01110.smfsubs +++| SYSCOM B1 01315 M00S01111.smfsubs +++| TITLE CSFGETK - *CYBIL* INTERFACE TO *SFGETK$*. 01316 M00S01112.smfsubs +++|*COMMENT CSFGETI - *CYBIL* INTERFACE TO *SFGETK$*
| Line S01113 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 01317 M01S01113.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1984.
| Line S00023 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 01318 M01S00023.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 01319 M00S01114.smfsubs +++| GTK SPACE 4,10 01320 M00S01115.smfsubs +++|*** CSFGETK - *COMPASS* INTERFACE TO *SFGETK$* CALL. 01321 M00S01116.smfsubs +++|* 01322 M00S01117.smfsubs +++|* M. L. SWANSON. 84/05/16. 01323 M00S01118.smfsubs +++| GTK SPACE 4,10 01324 M00S01119.smfsubs +++|*** *CSFGETK* PROVIDES AN INTERFACE TO *SFGETK$* BY 01325 M00S01120.smfsubs +++|* SAVING THE *CYBIL* STACK DISCIPLINE VARIABLES AND 01326 M00S01121.smfsubs +++|* REFORMATTING THE PARAMETER LIST FOR THE CALL TO THE 01327 M00S01122.smfsubs +++|* SYMPL ROUTINE, *SFGETK$*. 01328 M00S01123.smfsubs +++| GTK SPACE 4,10 01329 M00S01124.smfsubs +++|** COMMON DECKS. 01330 M00S01125.smfsubs +++| 01331 M00S01126.smfsubs +++| 01332 M00S01127.smfsubs +++|*CALL COMFCID 01333 M00S01128.smfsubs +++| GTK SPACE 4,10 01334 M00S01129.smfsubs +++|*** CSFGETK - *CYBIL* INTERFACE TO *SFGETK$*. 01335 M00S01130.smfsubs +++|* 01336 M00S01131.smfsubs +++|* CALLING SEQUENCE. 01337 M00S01132.smfsubs +++|* *CYBIL* CALL - 01338 M00S01133.smfsubs +++|* 01339 M00S01134.smfsubs +++|* CSFGETK(TYPE, VALUE); 01340 M00S01135.smfsubs +++|* 01341 M00S01136.smfsubs +++|* TYPE = FUNCTION KEY TYPE. 01342 M00S01137.smfsubs +++|* VALUE = INTEGER FUNCTION KEY NUMBER. 01343 M00S01138.smfsubs +++| GTK SPACE 4,10 01344 M00S01139.smfsubs +++|** CSFGETK - *COMPASS* INTERFACE TO *SFGETK$* CALL. 01345 M00S01140.smfsubs +++|* 01346 M00S01141.smfsubs +++|* ENTRY CONDITIONS 01347 M00S01142.smfsubs +++|* B1 1 01348 M00S01143.smfsubs +++|* B2 POINTER TO CALLER'S STACK FRAME 01349 M00S01144.smfsubs +++|* B3 STACK LIMIT 01350 M00S01145.smfsubs +++|* B4 STATIC LINK 01351 M00S01146.smfsubs +++|* X1 FUNCTION KEY TYPE 01352 M00S01147.smfsubs +++|* X2 POINTER TO *VALUE* 01353 M00S01148.smfsubs +++|* B5 POINTER TO ARGUMENT EXTENSION LIST 01354 M00S01149.smfsubs +++|* X7 PROCEDURE LINKAGE WORD (RETURN ADDRESS) 01355 M00S01150.smfsubs +++|* 01356 M00S01151.smfsubs +++|* EXIT CONDITIONS 01357 M00S01152.smfsubs +++|* B1 1 01358 M00S01153.smfsubs +++|* B2 AS ON ENTRY 01359 M00S01154.smfsubs +++|* B3 AS ON ENTRY 01360 M00S01155.smfsubs +++|* B4 AS ON ENTRY 01361 M00S01156.smfsubs +++|* X1 AS X7 ON ENTRY 01362 M00S01157.smfsubs +++|* 01363 M00S01158.smfsubs +++|* USES X - 1, 2, 3, 4, 6, 7. 01364 M00S01159.smfsubs +++|* A - 1, 2, 3, 4, 6, 7. 01365 M00S01160.smfsubs +++|* B - 1, 2, 3, 4. 01366 M00S01161.smfsubs +++|* 01367 M00S01162.smfsubs +++|* CALLS SFGETK. 01368 M00S01163.smfsubs +++| 01369 M00S01164.smfsubs +++| 01370 M00S01165.smfsubs +++| CSFGETK ENTR ENTRY/EXIT 01371 M00S01166.smfsubs +++| SB1 1 01372 M00S01167.smfsubs +++| SX6 B2 01373 M00S01168.smfsubs +++| SX7 B3 01374 M00S01169.smfsubs +++| SA6 GTKA SAVE POINTER TO STACK FRAME 01375 M00S01170.smfsubs +++| SA7 GTKB SAVE STACK LIMIT 01376 M00S01171.smfsubs +++| SX6 B4 01377 M00S01172.smfsubs +++| SA6 GTKC SAVE STATIC LINK 01378 M00S01173.smfsubs +++| BX6 X1 01379 M00S01174.smfsubs +++| SA6 GTKD SAVE POINTER TO *TYPE* 01380 M00S01175.smfsubs +++| BX6 X2 01381 M00S01176.smfsubs +++| SA6 GTKE SAVE POINTER TO *VALUE* 01382 M00S01177.smfsubs +++| SA1 GTKD GET FIRST WORD ADDRESS OF PARAMETER LIST 01383 M00S01178.smfsubs +++| RJ =XSFGETK 01384 M00S01179.smfsubs +++| 01385 M00S01180.smfsubs +++|* RESTORE REGISTERS. 01386 M00S01181.smfsubs +++| 01387 M00S01182.smfsubs +++| SB1 1 RESTORE B1 AFTER *SYMPL* ERROR 01388 M00S01183.smfsubs +++| SA2 GTKA GET POINTER TO STACK FRAME 01389 M00S01184.smfsubs +++| SA3 GTKB GET STACK LIMIT 01390 M00S01185.smfsubs +++| SA4 GTKC GET STACK LINK 01391 M00S01186.smfsubs +++| SB2 X2 RETURN IN B2 01392 M00S01187.smfsubs +++| SB3 X3 RETURN IN B3 01393 M00S01188.smfsubs +++| SB4 X4 RETURN IN B4 01394 M00S01189.smfsubs +++| DONE RETURN 01395 M00S01190.smfsubs +++| 01396 M00S01191.smfsubs +++| GTKA VFD 60/0 POINTER TO STACK FRAME 01397 M00S01192.smfsubs +++| GTKB VFD 60/0 STACK LIMIT 01398 M00S01193.smfsubs +++| GTKC VFD 60/0 STATIC LINK 01399 M00S01194.smfsubs +++| 01400 M00S01195.smfsubs +++|* PARAMETER BLOCK FOR *SYMPL* PROCEDURE CALL. 01401 M00S01196.smfsubs +++| 01402 M00S01197.smfsubs +++| GTKD VFD 60/0 ADDRESS OF *TYPE* 01403 M00S01198.smfsubs +++| GTKE VFD 60/0 ADDRESS OF *VALUE* 01404 M00S01199.smfsubs +++| 01405 M00S01200.smfsubs +++| END 01406 M00S01201.smfsubs +++| IDENT CSFGETP 01407 M00S01202.smfsubs +++| ENTRY CSFGETP 01408 M00S01203.smfsubs +++| SYSCOM B1 01409 M00S01204.smfsubs +++| TITLE CSFGETP - *CYBIL* INTERFACE TO *SFGETP$*. 01410 M00S01205.smfsubs +++|*COMMENT CSFGETP - *CYBIL* INTERFACE TO *SFGETP$*
| Line S01206 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 01411 M01S01206.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1984.
| Line S00024 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 01412 M01S00024.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 01413 M00S01207.smfsubs +++| GTP SPACE 4,10 01414 M00S01208.smfsubs +++|*** CSFGETP - *COMPASS* INTERFACE TO *SFGETP$* CALL. 01415 M00S01209.smfsubs +++|* 01416 M00S01210.smfsubs +++|* M. L. SWANSON. 84/05/29. 01417 M00S01211.smfsubs +++| GTP SPACE 4,10 01418 M00S01212.smfsubs +++|*** *CSFGETP* PROVIDES AN INTERFACE TO *SFGETP$* BY 01419 M00S01213.smfsubs +++|* SAVING THE *CYBIL* STACK DISCIPLINE VARIABLES AND 01420 M00S01214.smfsubs +++|* REFORMATTING THE PARAMETER LIST FOR THE CALL TO THE 01421 M00S01215.smfsubs +++|* SYMPL ROUTINE, *SFGETP$*. 01422 M00S01216.smfsubs +++| GTP SPACE 4,10 01423 M00S01217.smfsubs +++|** COMMON DECKS. 01424 M00S01218.smfsubs +++| 01425 M00S01219.smfsubs +++| 01426 M00S01220.smfsubs +++|*CALL COMFCID 01427 M00S01221.smfsubs +++| GTP SPACE 4,10 01428 M00S01222.smfsubs +++|*** CSFGETP - *CYBIL* INTERFACE TO *SFGETP$*. 01429 M00S01223.smfsubs +++|* 01430 M00S01224.smfsubs +++|* CALLING SEQUENCE. 01431 M00S01225.smfsubs +++|* *CYBIL* CALL - 01432 M00S01226.smfsubs +++|* 01433 M00S01227.smfsubs +++|* CSFGETP(FIELDNAME,INDEX, ROW); 01434 M00S01228.smfsubs +++|* 01435 M00S01229.smfsubs +++|* FIELDNAME = NAME OF FIELD. 01436 M00S01230.smfsubs +++|* INDEX = CHARACTER POSITION WITHIN THE VARIABLE FIELD. 01437 M00S01231.smfsubs +++|* ROW = THE ROW NUMBER OF THE VARIABLE FIELD. 01438 M00S01232.smfsubs +++| GTP SPACE 4,10 01439 M00S01233.smfsubs +++|** CSFGETP - *COMPASS* INTERFACE TO *SFGETP$* CALL. 01440 M00S01234.smfsubs +++|* 01441 M00S01235.smfsubs +++|* ENTRY CONDITIONS 01442 M00S01236.smfsubs +++|* B1 1 01443 M00S01237.smfsubs +++|* B2 POINTER TO CALLER'S STACK FRAME 01444 M00S01238.smfsubs +++|* B3 STACK LIMIT 01445 M00S01239.smfsubs +++|* B4 STATIC LINK 01446 M00S01240.smfsubs +++|* X1 POINTER TO *FIELDNAME* 01447 M00S01241.smfsubs +++|* X2 POINTER TO *INDEX* 01448 M00S01242.smfsubs +++|* X3 POINTER TO *ROW* 01449 M00S01243.smfsubs +++|* B5 POINTER TO ARGUMENT EXTENSION LIST 01450 M00S01244.smfsubs +++|* X7 PROCEDURE LINKAGE WORD (RETURN ADDRESS) 01451 M00S01245.smfsubs +++|* 01452 M00S01246.smfsubs +++|* EXIT CONDITIONS 01453 M00S01247.smfsubs +++|* B1 1 01454 M00S01248.smfsubs +++|* B2 AS ON ENTRY 01455 M00S01249.smfsubs +++|* B3 AS ON ENTRY 01456 M00S01250.smfsubs +++|* B4 AS ON ENTRY 01457 M00S01251.smfsubs +++|* X1 AS X7 ON ENTRY 01458 M00S01252.smfsubs +++|* 01459 M00S01253.smfsubs +++|* USES X - 1, 2, 3, 4, 6, 7. 01460 M00S01254.smfsubs +++|* A - 1, 2, 3, 4, 6, 7. 01461 M00S01255.smfsubs +++|* B - 1, 2, 3, 4. 01462 M00S01256.smfsubs +++|* 01463 M00S01257.smfsubs +++|* CALLS SFGETP$. 01464 M00S01258.smfsubs +++| 01465 M00S01259.smfsubs +++| 01466 M00S01260.smfsubs +++| CSFGETP ENTR ENTRY/EXIT 01467 M00S01261.smfsubs +++| SB1 1 01468 M00S01262.smfsubs +++| SX6 B2 01469 M00S01263.smfsubs +++| SX7 B3 01470 M00S01264.smfsubs +++| SA6 GTPA SAVE POINTER TO STACK FRAME 01471 M00S01265.smfsubs +++| SA7 GTPB SAVE STACK LIMIT 01472 M00S01266.smfsubs +++| SX6 B4 01473 M00S01267.smfsubs +++| SA6 GTPC SAVE STATIC LINK 01474 M00S01268.smfsubs +++| BX6 X1 01475 M00S01269.smfsubs +++| SA6 GTPD SAVE POINTER TO *VARNAME* 01476 M00S01270.smfsubs +++| BX6 X2 01477 M00S01271.smfsubs +++| SA6 GTPG SAVE POINTER TO *OFFSET* 01478 M00S01272.smfsubs +++| BX6 X3 01479 M00S01273.smfsubs +++| SA6 GTPH SAVE POINTER TO *ROW* 01480 M00S01274.smfsubs +++| SA1 GTPD GET FIRST WORD ADDRESS OF PARAMETER LIST 01481 M00S01275.smfsubs +++| RJ =XSFGETP$ 01482 M00S01276.smfsubs +++| 01483 M00S01277.smfsubs +++|* RESTORE REGISTERS. 01484 M00S01278.smfsubs +++| 01485 M00S01279.smfsubs +++| SB1 1 RESTORE B1 AFTER *SYMPL* ERROR 01486 M00S01280.smfsubs +++| SA2 GTPA GET POINTER TO STACK FRAME 01487 M00S01281.smfsubs +++| SA3 GTPB GET STACK LIMIT 01488 M00S01282.smfsubs +++| SA4 GTPC GET STATIC LINK 01489 M00S01283.smfsubs +++| SB2 X2 RETURN IN B2 01490 M00S01284.smfsubs +++| SB3 X3 RETURN IN B3 01491 M00S01285.smfsubs +++| SB4 X4 RETURN IN B4 01492 M00S01286.smfsubs +++| DONE RETURN 01493 M00S01287.smfsubs +++| 01494 M00S01288.smfsubs +++| GTPA VFD 60/0 POINTER TO STACK FRAME 01495 M00S01289.smfsubs +++| GTPB VFD 60/0 STACK LIMIT 01496 M00S01290.smfsubs +++| GTPC VFD 60/0 STATIC LIMIT 01497 M00S01291.smfsubs +++| 01498 M00S01292.smfsubs +++|* PARAMETER BLOCK FOR SYMPL PROCEDURE CALL. 01499 M00S01293.smfsubs +++| 01500 M00S01294.smfsubs +++| GTPD VFD 60/0 ADDRESS OF *VARNAME* 01501 M00S01295.smfsubs +++| GTPE VFD 60/GTPI 01502 M00S01296.smfsubs +++| GTPF VFD 60/GTPJ 01503 M00S01297.smfsubs +++| GTPG VFD 60/0 ADDRESS OF *OFFSET* 01504 M00S01298.smfsubs +++| GTPH VFD 60/0 ADDRESS OF *ROW* 01505 M00S01299.smfsubs +++| 01506 M00S01300.smfsubs +++| GTPI VFD 60/7 *VLEN* 01507 M00S01301.smfsubs +++| GTPJ VFD 60/0 *VOFF* 01508 M00S01302.smfsubs +++| 01509 M00S01303.smfsubs +++| END 01510 M00S01304.smfsubs +++| IDENT CSFGETR 01511 M00S01305.smfsubs +++| ENTRY CSFGETR 01512 M00S01306.smfsubs +++| SYSCOM B1 01513 M00S01307.smfsubs +++| TITLE CSFGETR - *CYBIL* INTERFACE TO *SFGETR$*. 01514 M00S01308.smfsubs +++|*COMMENT CSFGETR - *CYBIL* INTERFACE TO *SFGETR$*
| Line S01309 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 01515 M01S01309.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1984.
| Line S00025 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 01516 M01S00025.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 01517 M00S01310.smfsubs +++| GTR SPACE 4,10 01518 M00S01311.smfsubs +++|*** CSFGETR - *COMPASS* INTERFACE TO *SFGETR$* CALL. 01519 M00S01312.smfsubs +++|* 01520 M00S01313.smfsubs +++|* M. L. SWANSON. 84/05/16. 01521 M00S01314.smfsubs +++| GTR SPACE 4,10 01522 M00S01315.smfsubs +++|*** *CSFGETR* PROVIDES AN INTERFACE TO *SFGETR$* BY 01523 M00S01316.smfsubs +++|* SAVING THE *CYBIL* STACK DISCIPLINE VARIABLES AND 01524 M00S01317.smfsubs +++|* REFORMATTING THE PARAMETER LIST FOR THE CALL TO THE 01525 M00S01318.smfsubs +++|* SYMPL ROUTINE, *SFGETR$*. 01526 M00S01319.smfsubs +++| GTR SPACE 4,10 01527 M00S01320.smfsubs +++|** COMMON DECKS. 01528 M00S01321.smfsubs +++| 01529 M00S01322.smfsubs +++| 01530 M00S01323.smfsubs +++|*CALL COMFCID 01531 M00S01324.smfsubs +++| GTR SPACE 4,10 01532 M00S01325.smfsubs +++|*** CSFGETR - *CYBIL* INTERFACE TO *SFGETR$*. 01533 M00S01326.smfsubs +++|* 01534 M00S01327.smfsubs +++|* CALLING SEQUENCE. 01535 M00S01328.smfsubs +++|* *CYBIL* CALL - 01536 M00S01329.smfsubs +++|* 01537 M00S01330.smfsubs +++|* CSFGETR(FIELDNAME,VALUE); 01538 M00S01331.smfsubs +++|* 01539 M00S01332.smfsubs +++|* FIELDNAME = FIELD NAME OF THE PANEL VARIABLE. 01540 M00S01333.smfsubs +++|* VALUE = REAL VALUE TO BE RETURNED. 01541 M00S01334.smfsubs +++| GTR SPACE 4,10 01542 M00S01335.smfsubs +++|** CSFGETR - *COMPASS* INTERFACE TO *SFGETR$* CALL. 01543 M00S01336.smfsubs +++|* 01544 M00S01337.smfsubs +++|* ENTRY CONDITIONS 01545 M00S01338.smfsubs +++|* B1 1 01546 M00S01339.smfsubs +++|* B2 POINTER TO CALLER'S STACK FRAME 01547 M00S01340.smfsubs +++|* B3 STACK LIMIT 01548 M00S01341.smfsubs +++|* B4 STATIC LINK 01549 M00S01342.smfsubs +++|* X1 POINTER TO *FIELDNAME* 01550 M00S01343.smfsubs +++|* X2 POINTER TO *VALUE* 01551 M00S01344.smfsubs +++|* B5 POINTER TO ARGUMENT EXTENSION LIST 01552 M00S01345.smfsubs +++|* X7 PROCEDURE LINKAGE WORD (RETURN ADDRESS) 01553 M00S01346.smfsubs +++|* 01554 M00S01347.smfsubs +++|* EXIT CONDITIONS 01555 M00S01348.smfsubs +++|* B1 1 01556 M00S01349.smfsubs +++|* B2 AS ON ENTRY 01557 M00S01350.smfsubs +++|* B3 AS ON ENTRY 01558 M00S01351.smfsubs +++|* B4 AS ON ENTRY 01559 M00S01352.smfsubs +++|* X1 AS X7 ON ENTRY 01560 M00S01353.smfsubs +++|* 01561 M00S01354.smfsubs +++|* USES X - 1, 2, 3, 4, 6, 7. 01562 M00S01355.smfsubs +++|* A - 1, 2, 3, 4, 6, 7. 01563 M00S01356.smfsubs +++|* B - 1, 2, 3, 4. 01564 M00S01357.smfsubs +++|* 01565 M00S01358.smfsubs +++|* CALLS SFGETR$. 01566 M00S01359.smfsubs +++| 01567 M00S01360.smfsubs +++| 01568 M00S01361.smfsubs +++| CSFGETR ENTR ENTRY/EXIT 01569 M00S01362.smfsubs +++| SB1 1 01570 M00S01363.smfsubs +++| SX6 B2 01571 M00S01364.smfsubs +++| SX7 B3 01572 M00S01365.smfsubs +++| SA6 GTRA SAVE POINTER TO STACK FRAME 01573 M00S01366.smfsubs +++| SA7 GTRB SAVE STACK LIMIT 01574 M00S01367.smfsubs +++| SX6 B4 01575 M00S01368.smfsubs +++| SA6 GTRC SAVE STATIC LINK 01576 M00S01369.smfsubs +++| 01577 M00S01370.smfsubs +++|* THIS IS IF FIELDNAME IS PASSED CALL-BY-ADDRESS. 01578 M00S01371.smfsubs +++| 01579 M00S01372.smfsubs +++| BX6 X1 01580 M00S01373.smfsubs +++| SA6 GTRD SAVE *VARNAME* 01581 M00S01374.smfsubs +++| BX6 X2 01582 M00S01375.smfsubs +++| SA6 GTRG SAVE *VALUE* 01583 M00S01376.smfsubs +++| SA1 GTRD GET FIRST WORD ADDRESS OF PARAMETER LIST 01584 M00S01377.smfsubs +++| RJ =XSFGETR$ 01585 M00S01378.smfsubs +++| 01586 M00S01379.smfsubs +++|* RESTORE REGISTERS. 01587 M00S01380.smfsubs +++| 01588 M00S01381.smfsubs +++| SB1 1 RESTORE B1 AFTER *SYMPL* ERROR 01589 M00S01382.smfsubs +++| SA2 GTRA GET POINTER TO STACK FRAME 01590 M00S01383.smfsubs +++| SA3 GTRB GET STACK LIMIT 01591 M00S01384.smfsubs +++| SA4 GTRC GET STATIC LINK 01592 M00S01385.smfsubs +++| SB2 X2 RETURN IN B2 01593 M00S01386.smfsubs +++| SB3 X3 RETURN IN B3 01594 M00S01387.smfsubs +++| SB4 X4 RETURN IN B4 01595 M00S01388.smfsubs +++| DONE RETURN 01596 M00S01389.smfsubs +++| 01597 M00S01390.smfsubs +++|GTRA VFD 60/0 POINTER TO STACK FRAME 01598 M00S01391.smfsubs +++|GTRB VFD 60/0 STACK LIMIT 01599 M00S01392.smfsubs +++|GTRC VFD 60/0 STATIC LINK 01600 M00S01393.smfsubs +++| 01601 M00S01394.smfsubs +++|* PARAMETER BLOCK FOR *SYMPL* PROCEDURE CALL. 01602 M00S01395.smfsubs +++| 01603 M00S01396.smfsubs +++|GTRD VFD 60/0 ADDRESS OF *VARNAME* 01604 M00S01397.smfsubs +++|GTRE VFD 60/GTRH 01605 M00S01398.smfsubs +++|GTRF VFD 60/GTRI 01606 M00S01399.smfsubs +++|GTRG VFD 60/0 ADDRESS OF *VALUE* 01607 M00S01400.smfsubs +++| 01608 M00S01401.smfsubs +++|GTRH VFD 60/7 *VLEN* 01609 M00S01402.smfsubs +++|GTRI VFD 60/0 *VOFF* 01610 M00S01403.smfsubs +++| 01611 M00S01404.smfsubs +++| END 01612 M00S01405.smfsubs +++| IDENT CSFOPEN 01613 M00S01406.smfsubs +++| ENTRY CSFOPEN 01614 M00S01407.smfsubs +++| SYSCOM B1 01615 M00S01408.smfsubs +++| TITLE CSFOPEN - *CYBIL* INTERFACE TO *SFOPEN$*. 01616 M00S01409.smfsubs +++|*COMMENT CSFOPEN - *CYBIL* INTERFACE TO *SFOPEN$*
| Line S01410 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 01617 M01S01410.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1984.
| Line S00026 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 01618 M01S00026.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 01619 M00S01411.smfsubs +++| OPN SPACE 4,10 01620 M00S01412.smfsubs +++|*** CSFOPEN - *COMPASS* INTERFACE TO *SFOPEN$* CALL. 01621 M00S01413.smfsubs +++|* 01622 M00S01414.smfsubs +++|* M. L. SWANSON. 84/04/17. 01623 M00S01415.smfsubs +++| OPN SPACE 4,10 01624 M00S01416.smfsubs +++|*** *CSFOPEN* PROVIDES AN INTERFACE TO *SFOPEN$* BY 01625 M00S01417.smfsubs +++|* SAVING THE *CYBIL* STACK DISCIPLINE VARIABLES AND 01626 M00S01418.smfsubs +++|* REFORMATTING THE PARAMETER LIST FOR THE CALL TO THE 01627 M00S01419.smfsubs +++|* SYMPL ROUTINE, *SFOPEN$*. 01628 M00S01420.smfsubs +++| OPN SPACE 4,10 01629 M00S01421.smfsubs +++|** COMMON DECKS. 01630 M00S01422.smfsubs +++| 01631 M00S01423.smfsubs +++| 01632 M00S01424.smfsubs +++|*CALL COMFCID 01633 M00S01425.smfsubs +++| OPN SPACE 4,10 01634 M00S01426.smfsubs +++|*** CSFOPEN - *CYBIL* INTERFACE TO *SFOPEN$*. 01635 M00S01427.smfsubs +++|* 01636 M00S01428.smfsubs +++|* CALLING SEQUENCE. 01637 M00S01429.smfsubs +++|* *CYBIL* CALL - 01638 M00S01430.smfsubs +++|* 01639 M00S01431.smfsubs +++|* CSFOPEN(PANELNAME, STATUS); 01640 M00S01432.smfsubs +++|* 01641 M00S01433.smfsubs +++|* PANELNAME = NAME OF PANEL TO BE OPENED. 01642 M00S01434.smfsubs +++|* STATUS = VARIABLE INDICATING RESULTS OF ATTEMPT 01643 M00S01435.smfsubs +++|* TO OPEN A PANEL. NON-ZERO STATUS 01644 M00S01436.smfsubs +++|* INDICATES PANEL COULD NOT BE OPENED. 01645 M00S01437.smfsubs +++| OPN SPACE 4,10 01646 M00S01438.smfsubs +++|** CSFOPEN - *COMPASS* INTERFACE TO *SFOPEN$* CALL. 01647 M00S01439.smfsubs +++|* 01648 M00S01440.smfsubs +++|* ENTRY CONDITIONS 01649 M00S01441.smfsubs +++|* B1 1 01650 M00S01442.smfsubs +++|* B2 POINTER TO CALLER'S STACK FRAME 01651 M00S01443.smfsubs +++|* B3 STACK LIMIT 01652 M00S01444.smfsubs +++|* B4 STATIC LINK 01653 M00S01445.smfsubs +++|* X1 POINTER TO *PANELNAME* 01654 M00S01446.smfsubs +++|* X2 POINTER TO *STATUS* 01655 M00S01447.smfsubs +++|* B5 POINTER TO ARGUMENT EXTENSION LIST 01656 M00S01448.smfsubs +++|* X7 PROCEDURE LINKAGE WORD (RETURN ADDRESS) 01657 M00S01449.smfsubs +++|* 01658 M00S01450.smfsubs +++|* EXIT CONDITIONS 01659 M00S01451.smfsubs +++|* B1 1 01660 M00S01452.smfsubs +++|* B2 AS ON ENTRY 01661 M00S01453.smfsubs +++|* B3 AS ON ENTRY 01662 M00S01454.smfsubs +++|* B4 AS ON ENTRY 01663 M00S01455.smfsubs +++|* X1 AS X7 ON ENTRY 01664 M00S01456.smfsubs +++|* 01665 M00S01457.smfsubs +++|* USES X - 1, 2, 3, 4, 6, 7. 01666 M00S01458.smfsubs +++|* A - 1, 2, 3, 4, 6, 7. 01667 M00S01459.smfsubs +++|* B - 1, 2, 3, 4. 01668 M00S01460.smfsubs +++|* 01669 M00S01461.smfsubs +++|* CALLS SFOPEN$. 01670 M00S01462.smfsubs +++| 01671 M00S01463.smfsubs +++| 01672 M00S01464.smfsubs +++| CSFOPEN ENTR ENTRY/EXIT 01673 M00S01465.smfsubs +++| SB1 1 01674 M00S01466.smfsubs +++| SX6 B2 01675 M00S01467.smfsubs +++| SX7 B3 01676 M00S01468.smfsubs +++| SA6 OPNA SAVE POINTER TO STACK FRAME 01677 M00S01469.smfsubs +++| SA7 OPNB SAVE STACK LIMIT 01678 M00S01470.smfsubs +++| SX6 B4 01679 M00S01471.smfsubs +++| SA6 OPNC SAVE STATIC LINK 01680 M00S01472.smfsubs +++| BX6 X1 01681 M00S01473.smfsubs +++| 01682 M00S01474.smfsubs +++|* *PANELNAME* IS PASSED CALL-BY-ADDRESS. 01683 M00S01475.smfsubs +++| 01684 M00S01476.smfsubs +++| SA6 OPND SAVE *PANELNAME* 01685 M00S01477.smfsubs +++| BX6 X2 01686 M00S01478.smfsubs +++| SA6 OPNG SAVE *STATUS* 01687 M00S01479.smfsubs +++| 01688 M00S01480.smfsubs +++|* SET TO ASCII8 CHARACTER SET. 01689 M00S01481.smfsubs +++| 01690 M00S01482.smfsubs +++| SA1 OPNJ GET FIRST WORD ADDRESS OF PARAMETER LIST 01691 M00S01483.smfsubs +++| RJ =XSFCSET$ 01692 M00S01484.smfsubs +++| 01693 M00S01485.smfsubs +++| SA1 OPND GET FIRST WORD ADDRESS OF PARAMETER LIST 01694 M00S01486.smfsubs +++| RJ =XSFOPEN$ 01695 M00S01487.smfsubs +++| 01696 M00S01488.smfsubs +++|* RESTORE REGISTERS. 01697 M00S01489.smfsubs +++| 01698 M00S01490.smfsubs +++| SB1 1 RESTORE B1 AFTER *SYMPL* ERROR 01699 M00S01491.smfsubs +++| SA2 OPNA GET POINTER TO STACK FRAME 01700 M00S01492.smfsubs +++| SA3 OPNB GET STACK LIMIT 01701 M00S01493.smfsubs +++| SA4 OPNC GET STATIC LINK 01702 M00S01494.smfsubs +++| SB2 X2 RETURN IN B2 01703 M00S01495.smfsubs +++| SB3 X3 RETURN IN B3 01704 M00S01496.smfsubs +++| SB4 X4 RETURN IN B4 01705 M00S01497.smfsubs +++| DONE RETURN 01706 M00S01498.smfsubs +++| 01707 M00S01499.smfsubs +++| OPNA VFD 60/0 POINTER TO STACK FRAME 01708 M00S01500.smfsubs +++| OPNB VFD 60/0 STACK LIMIT 01709 M00S01501.smfsubs +++| OPNC VFD 60/0 STATIC LINK 01710 M00S01502.smfsubs +++| 01711 M00S01503.smfsubs +++|* PARAMETER BLOCK FOR *SYMPL* PROCEDURE CALL. 01712 M00S01504.smfsubs +++| 01713 M00S01505.smfsubs +++| OPND VFD 60/0 ADDRESS OF *PANELNAME* PARAMETER 01714 M00S01506.smfsubs +++| OPNE VFD 60/OPNH ADDRESS OF *NLENGTH* PARAMETER 01715 M00S01507.smfsubs +++| OPNF VFD 60/OPNI ADDRESS OF *NOFFSET* PARAMETER 01716 M00S01508.smfsubs +++| OPNG VFD 60/0 ADDRESS OF *STATUS* PARAMETER 01717 M00S01509.smfsubs +++| 01718 M00S01510.smfsubs +++| OPNH VFD 60/7 *NLENGTH* 01719 M00S01511.smfsubs +++| OPNI VFD 60/0 *NOFFSET* 01720 M00S01512.smfsubs +++| 01721 M00S01513.smfsubs +++|* HARD CODE CHARACTER SET FOR *CYBIL*. 01722 M00S01514.smfsubs +++| 01723 M00S01515.smfsubs +++| OPNJ VFD 60/OPNM FWA OF PARAMETER LIST 01724 M00S01516.smfsubs +++| OPNK VFD 60/OPNN 01725 M00S01517.smfsubs +++| OPNL VFD 60/OPNO 01726 M00S01518.smfsubs +++| 01727 M00S01519.smfsubs +++| OPNM VFD 60/6HASCII8 CHARACTER SET BLANK FILLED 01728 M00S01520.smfsubs +++| OPNN VFD 60/6 *CLENGTH* 01729 M00S01521.smfsubs +++| OPNO VFD 60/0 *COFFSET* 01730 M00S01522.smfsubs +++| 01731 M00S01523.smfsubs +++| END 01732 M00S01524.smfsubs +++| IDENT CSFPOSR 01733 M00S01525.smfsubs +++| ENTRY CSFPOSR 01734 M00S01526.smfsubs +++| SYSCOM B1 01735 M00S01527.smfsubs +++| TITLE CSFPOSR - *CYBIL* INTERFACE TO *SFPOSR$*. 01736 M00S01528.smfsubs +++|*COMMENT CSFPOSR - *CYBIL* INTERFACE TO *SFPOSR$*
| Line S01529 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 01737 M01S01529.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1984.
| Line S00027 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 01738 M01S00027.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 01739 M00S01530.smfsubs +++| PSR SPACE 4,10 01740 M00S01531.smfsubs +++|*** CSFPOSR - COMPASS INTERFACE TO *SFPOSR$* CALL. 01741 M00S01532.smfsubs +++|* 01742 M00S01533.smfsubs +++|* M. L. SWANSON. 84/05/30. 01743 M00S01534.smfsubs +++| PSR SPACE 4,10 01744 M00S01535.smfsubs +++|*** *CSFPOSR* PROVIDES AN INTERFACE TO *SFPOSR$* BY 01745 M00S01536.smfsubs +++|* SAVING THE *CYBIL* STACK DISCIPLINE VARIABLES AND 01746 M00S01537.smfsubs +++|* REFORMATTING THE PARAMETER LIST FOR THE CALL TO THE 01747 M00S01538.smfsubs +++|* SYMPL ROUTINE, *SFPOSR$*. 01748 M00S01539.smfsubs +++| PSR SPACE 4,10 01749 M00S01540.smfsubs +++|** COMMON DECKS. 01750 M00S01541.smfsubs +++| 01751 M00S01542.smfsubs +++| 01752 M00S01543.smfsubs +++|*CALL COMFCID 01753 M00S01544.smfsubs +++| PSR SPACE 4,10 01754 M00S01545.smfsubs +++|*** CSFPOSR - *CYBIL* INTERFACE TO *SFPOSR$*. 01755 M00S01546.smfsubs +++|* 01756 M00S01547.smfsubs +++|* CALLING SEQUENCE. 01757 M00S01548.smfsubs +++|* *CYBIL* CALL - 01758 M00S01549.smfsubs +++|* 01759 M00S01550.smfsubs +++|* CSFPOSR(TABLENAME,ROW); 01760 M00S01551.smfsubs +++|* 01761 M00S01552.smfsubs +++|* TABLENAME = ACTIVE PANEL TABLE NAME. 01762 M00S01553.smfsubs +++|* ROW = THE ROW NUMBER OF THE VARIABLE FIELD. 01763 M00S01554.smfsubs +++| PSR SPACE 4,10 01764 M00S01555.smfsubs +++|** CSFPOSR - COMPASS INTERFACE TO *SFPOSR$* CALL. 01765 M00S01556.smfsubs +++|* 01766 M00S01557.smfsubs +++|* ENTRY CONDITIONS 01767 M00S01558.smfsubs +++|* B1 1 01768 M00S01559.smfsubs +++|* B2 POINTER TO CALLER'S STACK FRAME 01769 M00S01560.smfsubs +++|* B3 STACK LIMIT 01770 M00S01561.smfsubs +++|* B4 STATIC LINK 01771 M00S01562.smfsubs +++|* X1 POINTER TO *TABLENAME* 01772 M00S01563.smfsubs +++|* X2 POINTER TO *ROW* 01773 M00S01564.smfsubs +++|* B5 POINTER TO ARGUMENT EXTENSION LIST 01774 M00S01565.smfsubs +++|* X7 PROCEDURE LINKAGE WORD (RETURN ADDRESS) 01775 M00S01566.smfsubs +++|* 01776 M00S01567.smfsubs +++|* EXIT CONDITIONS 01777 M00S01568.smfsubs +++|* B1 1 01778 M00S01569.smfsubs +++|* B2 AS ON ENTRY 01779 M00S01570.smfsubs +++|* B3 AS ON ENTRY 01780 M00S01571.smfsubs +++|* B4 AS ON ENTRY 01781 M00S01572.smfsubs +++|* X1 AS X7 ON ENTRY 01782 M00S01573.smfsubs +++|* 01783 M00S01574.smfsubs +++|* USES X - 1, 2, 3, 4, 6, 7. 01784 M00S01575.smfsubs +++|* A - 1, 2, 3, 4, 6, 7. 01785 M00S01576.smfsubs +++|* B - 1, 2, 3, 4. 01786 M00S01577.smfsubs +++|* 01787 M00S01578.smfsubs +++|* CALLS SFPOSR$. 01788 M00S01579.smfsubs +++| 01789 M00S01580.smfsubs +++| 01790 M00S01581.smfsubs +++| CSFPOSR ENTR ENTRY/EXIT 01791 M00S01582.smfsubs +++| SB1 1 01792 M00S01583.smfsubs +++| SX6 B2 01793 M00S01584.smfsubs +++| SX7 B3 01794 M00S01585.smfsubs +++| SA6 PSRA SAVE POINTER TO STACK FRAME 01795 M00S01586.smfsubs +++| SA7 PSRB SAVE STACK LIMIT 01796 M00S01587.smfsubs +++| SX6 B4 01797 M00S01588.smfsubs +++| SA6 PSRC SAVE STATIC LINK 01798 M00S01589.smfsubs +++| BX6 X1 01799 M00S01590.smfsubs +++| SA6 PSRD SAVE FIRST PARAMETER 01800 M00S01591.smfsubs +++| BX6 X2 01801 M00S01592.smfsubs +++| SA6 PSRJ SAVE SECOND PARAMETER 01802 M00S01593.smfsubs +++| SA1 PSRD GET FIRST WORD ADDRESS OF PARAMETER LIST 01803 M00S01594.smfsubs +++| RJ =XSFPOSR$ 01804 M00S01595.smfsubs +++| 01805 M00S01596.smfsubs +++|* RESTORE REGISTERS. 01806 M00S01597.smfsubs +++| 01807 M00S01598.smfsubs +++| SB1 1 RESTORE B1 AFTER *SYMPL* ERROR 01808 M00S01599.smfsubs +++| SA2 PSRA GET POINTER TO STACK FRAME 01809 M00S01600.smfsubs +++| SA3 PSRB GET STACK LIMIT 01810 M00S01601.smfsubs +++| SA4 PSRC GET STATIC LINK 01811 M00S01602.smfsubs +++| SB2 X2 RETURN IN B2 01812 M00S01603.smfsubs +++| SB3 X3 RETURN IN B3 01813 M00S01604.smfsubs +++| SB4 X4 RETURN IN B4 01814 M00S01605.smfsubs +++| DONE RETURN 01815 M00S01606.smfsubs +++| 01816 M00S01607.smfsubs +++|PSRA VFD 60/0 POINTER TO CALLER'S STACK FRAME 01817 M00S01608.smfsubs +++|PSRB VFD 60/0 STACK LIMIT 01818 M00S01609.smfsubs +++|PSRC VFD 60/0 STATIC LINK 01819 M00S01610.smfsubs +++| 01820 M00S01611.smfsubs +++|* PARAMETER BLOCK FOR SYMPL PROCEDURE CALL. 01821 M00S01612.smfsubs +++| 01822 M00S01613.smfsubs +++|PSRD VFD 60/0 ADDRESS OF *TABLENAME* 01823 M00S01614.smfsubs +++|PSRE VFD 60/PSRH ADDRESS OF *TLEN* 01824 M00S01615.smfsubs +++|PSRF VFD 60/PSRI ADDRESS OF *TOFF* 01825 M00S01616.smfsubs +++|PSRG VFD 60/PSRJ ADDRESS OF *ROWNUMBER* 01826 M00S01617.smfsubs +++| 01827 M00S01618.smfsubs +++|PSRH VFD 60/7 *TLEN* 01828 M00S01619.smfsubs +++|PSRI VFD 60/0 *TOFF* 01829 M00S01620.smfsubs +++|PSRJ VFD 60/0 *ROWNUMBER* 01830 M00S01621.smfsubs +++| 01831 M00S01622.smfsubs +++| END 01832 M00S01623.smfsubs +++| IDENT CSFSETP 01833 M00S01624.smfsubs +++| ENTRY CSFSETP 01834 M00S01625.smfsubs +++| SYSCOM B1 01835 M00S01626.smfsubs +++| TITLE CSFSETP - *CYBIL* INTERFACE TO *SFSETP$*. 01836 M00S01627.smfsubs +++|*COMMENT CSFSETP - *CYBIL* INTERFACE TO *SFSETP$*
| Line S01628 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 01837 M01S01628.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1984.
| Line S00028 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 01838 M01S00028.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 01839 M00S01629.smfsubs +++| STP SPACE 4,10 01840 M00S01630.smfsubs +++|*** CSFSETP - *COMPASS* INTERFACE TO *SFSETP$* CALL. 01841 M00S01631.smfsubs +++|* 01842 M00S01632.smfsubs +++|* M. L. SWANSON. 84/05/30. 01843 M00S01633.smfsubs +++| STP SPACE 4,10 01844 M00S01634.smfsubs +++|*** *CSFSETP* PROVIDES AN INTERFACE TO *SFSETP$* BY 01845 M00S01635.smfsubs +++|* SAVING THE *CYBIL* STACK DISCIPLINE VARIABLES AND 01846 M00S01636.smfsubs +++|* REFORMATTING THE PARAMETER LIST FOR THE CALL TO THE 01847 M00S01637.smfsubs +++|* SYMPL ROUTINE, *SFSETP$*. 01848 M00S01638.smfsubs +++| STP SPACE 4,10 01849 M00S01639.smfsubs +++|** COMMON DECKS. 01850 M00S01640.smfsubs +++| 01851 M00S01641.smfsubs +++| 01852 M00S01642.smfsubs +++|*CALL COMFCID 01853 M00S01643.smfsubs +++| STP SPACE 4,10 01854 M00S01644.smfsubs +++|*** CSFSETP - *CYBIL* INTERFACE TO *SFSETP$*. 01855 M00S01645.smfsubs +++|* 01856 M00S01646.smfsubs +++|* CALLING SEQUENCE. 01857 M00S01647.smfsubs +++|* *CYBIL* CALL - 01858 M00S01648.smfsubs +++|* 01859 M00S01649.smfsubs +++|* CSFSETP(FIELDNAME,INDEX,ROW); 01860 M00S01650.smfsubs +++|* 01861 M00S01651.smfsubs +++|* FIELDNAME = NAME OF FIELD. 01862 M00S01652.smfsubs +++|* INDEX = CHARACTER POSITION WITHIN THE VARIABLE FIELD. 01863 M00S01653.smfsubs +++|* ROW = THE ROW NUMBER OF THE VARIABLE FIELD. 01864 M00S01654.smfsubs +++| STP SPACE 4,10 01865 M00S01655.smfsubs +++|** CSFSETP - *COMPASS* INTERFACE TO *SFSETP$* CALL. 01866 M00S01656.smfsubs +++|* 01867 M00S01657.smfsubs +++|* ENTRY CONDITIONS 01868 M00S01658.smfsubs +++|* B1 1 01869 M00S01659.smfsubs +++|* B2 POINTER TO CALLER'S STACK FRAME 01870 M00S01660.smfsubs +++|* B3 STACK LIMIT 01871 M00S01661.smfsubs +++|* B4 STATIC LINK 01872 M00S01662.smfsubs +++|* X1 POINTER TO *FIELDNAME* 01873 M00S01663.smfsubs +++|* X2 POINTER TO *INDEX* 01874 M00S01664.smfsubs +++|* B5 POINTER TO ARGUMENT EXTENSION LIST 01875 M00S01665.smfsubs +++|* X7 PROCEDURE LINKAGE WORD (RETURN ADDRESS) 01876 M00S01666.smfsubs +++|* 01877 M00S01667.smfsubs +++|* EXIT CONDITIONS 01878 M00S01668.smfsubs +++|* B1 1 01879 M00S01669.smfsubs +++|* B2 AS ON ENTRY 01880 M00S01670.smfsubs +++|* B3 AS ON ENTRY 01881 M00S01671.smfsubs +++|* B4 AS ON ENTRY 01882 M00S01672.smfsubs +++|* X1 AS X7 ON ENTRY 01883 M00S01673.smfsubs +++|* 01884 M00S01674.smfsubs +++|* USES X - 1, 2, 3, 4, 6, 7. 01885 M00S01675.smfsubs +++|* A - 1, 2, 3, 4, 6, 7. 01886 M00S01676.smfsubs +++|* B - 1, 2, 3, 4. 01887 M00S01677.smfsubs +++|* 01888 M00S01678.smfsubs +++|* CALLS SFSETP$. 01889 M00S01679.smfsubs +++| 01890 M00S01680.smfsubs +++| 01891 M00S01681.smfsubs +++| CSFSETP ENTR ENTRY/EXIT 01892 M00S01682.smfsubs +++| SB1 1 01893 M00S01683.smfsubs +++| SX6 B2 01894 M00S01684.smfsubs +++| SX7 B3 01895 M00S01685.smfsubs +++| SA6 STPA SAVE POINTER TO STACK FRAME 01896 M00S01686.smfsubs +++| SA7 STPB SAVE STACK LIMIT 01897 M00S01687.smfsubs +++| SX6 B4 01898 M00S01688.smfsubs +++| SA6 STPC SAVE STATIC LINK 01899 M00S01689.smfsubs +++| BX6 X1 01900 M00S01690.smfsubs +++| SA6 STPD SAVE *FIELDNAME* 01901 M00S01691.smfsubs +++| BX6 X2 01902 M00S01692.smfsubs +++| SA6 STPK SAVE *INDEX* 01903 M00S01693.smfsubs +++| BX6 X3 01904 M00S01694.smfsubs +++| SA6 STPL SAVE *ROW* 01905 M00S01695.smfsubs +++| SA1 STPD GET FIRST WORD ADDRESS OF PARAMETER LIST 01906 M00S01696.smfsubs +++| RJ =XSFSETP$ 01907 M00S01697.smfsubs +++| 01908 M00S01698.smfsubs +++|* RESTORE REGISTERS. 01909 M00S01699.smfsubs +++| 01910 M00S01700.smfsubs +++| SB1 1 RESTORE B1 AFTER *SYMPL* ERROR 01911 M00S01701.smfsubs +++| SA2 STPA GET POINTER TO STACK FRAME 01912 M00S01702.smfsubs +++| SA3 STPB GET STACK LIMIT 01913 M00S01703.smfsubs +++| SA4 STPC GET STATIC LINK 01914 M00S01704.smfsubs +++| SB2 X2 RETURN IN B2 01915 M00S01705.smfsubs +++| SB3 X3 RETURN IN B3 01916 M00S01706.smfsubs +++| SB4 X4 RETURN IN B4 01917 M00S01707.smfsubs +++| DONE RETURN 01918 M00S01708.smfsubs +++| 01919 M00S01709.smfsubs +++| STPA VFD 60/0 POINTER TO STACK FRAME 01920 M00S01710.smfsubs +++| STPB VFD 60/0 STACK LIMIT 01921 M00S01711.smfsubs +++| STPC VFD 60/0 STATIC LINK 01922 M00S01712.smfsubs +++| 01923 M00S01713.smfsubs +++|* PARAMETER BLOCK FOR SYMPL PROCEDURE CALL. 01924 M00S01714.smfsubs +++| 01925 M00S01715.smfsubs +++| STPD VFD 60/0 ADDRESS OF *VARNAME* 01926 M00S01716.smfsubs +++| STPE VFD 60/STPI ADDRESS OF *VLEN* 01927 M00S01717.smfsubs +++| STPF VFD 60/STPJ ADDRESS OF *VOFF* 01928 M00S01718.smfsubs +++| STPG VFD 60/STPK ADDRESS OF *OFFSET* 01929 M00S01719.smfsubs +++| STPH VFD 60/STPL ADDRESS OF *ROW* 01930 M00S01720.smfsubs +++| 01931 M00S01721.smfsubs +++| STPI VFD 60/7 *VLEN* PARAMETER 01932 M00S01722.smfsubs +++| STPJ VFD 60/0 *VOFF* PARAMETER 01933 M00S01723.smfsubs +++| STPK VFD 60/0 *OFFSET* PARAMETER 01934 M00S01724.smfsubs +++| STPL VFD 60/0 *ROW* PARAMETER 01935 M00S01725.smfsubs +++| 01936 M00S01726.smfsubs +++| END 01937 M00S01727.smfsubs +++| IDENT CSFSREA 01938 M00S01728.smfsubs +++| ENTRY CSFSREA 01939 M00S01729.smfsubs +++| SYSCOM B1
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/smfsubs.txt · Last modified: (external edit)