cdc:nos2.source:opl.opl871:deck:smfsubs
Deck SMFSUBS
5 Modifications
Listing Sections
- Deck SMFSUBS Start
- Deck SMFSUBS Part 1 (Line 2018)
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.smfsubs +++| IDENT SFDQUE 00002 M01S00002.smfsubs +++| ENTRY SFDQUE 00003 M01S00003.smfsubs +++| SYSCOM B1 00004 M01S00004.smfsubs +++| TITLE SFDQUE - DEQUEUE DATA FROM SPECIFIED QUEUE. 00005 M01S00005.smfsubs +++|*COMMENT SFDQUE - DEQUEUE DATA.
Line S00006 Modification History | |
---|---|
M01 (Added by) | smfsubs |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00006 M02S00006.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1985. 00007 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00008 M01S00007.smfsubs +++| SDQ SPACE 4,10 00009 M01S00008.smfsubs +++|*** SFDQUE - DEQUEUE DATA FROM SPECIFIED QUEUE. 00010 M01S00009.smfsubs +++|* 00011 M01S00010.smfsubs +++|* M. L. SWANSON. 85/05/16. 00012 M01S00011.smfsubs +++| SDQ SPACE 4,10 00013 M01S00012.smfsubs +++|*** *SFDQUE* PROVIDES AN INTERFACE TO *SFDQUE$* FOR PROGRAMS 00014 M01S00013.smfsubs +++|* WRITTEN IN HIGHER LEVEL LANGUAGES. 00015 M01S00014.smfsubs +++| SDQ SPACE 4,15 00016 M01S00015.smfsubs +++|*** CALLING SEQUENCE. 00017 M01S00016.smfsubs +++|* 00018 M01S00017.smfsubs +++|* *FORTRAN5* CALL - 00019 M01S00018.smfsubs +++|* 00020 M01S00019.smfsubs +++|* CALL SFDQUE(QNAME, BUFFER, RC, LENGTH) 00021 M01S00020.smfsubs +++|* 00022 M01S00021.smfsubs +++|* *COBOL5* CALL - 00023 M01S00022.smfsubs +++|* 00024 M01S00023.smfsubs +++|* ENTER SFDQUE USING QNAME, BUFFER, RC, LENGTH. 00025 M01S00024.smfsubs +++|* 00026 M01S00025.smfsubs +++|* QNAME = NAME OF THE QUEUE FROM WHICH TO 00027 M01S00026.smfsubs +++|* RETRIEVE DATA ( GET OR PUT ). 00028 M01S00027.smfsubs +++|* BUFFER = ADDRESS OF BUFFER INTO WHICH TO 00029 M01S00028.smfsubs +++|* RETURN THE DATA. 00030 M01S00029.smfsubs +++|* RC = RETURN CODE ( 0 = DATA DEQUEUED, 00031 M01S00030.smfsubs +++|* 1 = MORE DATA AVAILABLE, 2 = NO 00032 M01S00031.smfsubs +++|* MESSAGES IN QUEUE. 00033 M01S00032.smfsubs +++|* LENGTH = SIZE OF BUFFER IN 12-BIT CHARACTERS. 00034 M01S00033.smfsubs +++| SDQ SPACE 4,10 00035 M01S00034.smfsubs +++|** SFDQUE - DEQUEUE DATA FROM SPECIFIED QUEUE. 00036 M01S00035.smfsubs +++|* 00037 M01S00036.smfsubs +++|* ENTRY (A1) = FWA OF FORMAL PARAMETER LIST. 00038 M01S00037.smfsubs +++|* (X1) = ADDRESS OF FIRST PARAMETER. 00039 M01S00038.smfsubs +++|* 00040 M01S00039.smfsubs +++|* USES A - 1. 00041 M01S00040.smfsubs +++|* B - 1, 2, 3. 00042 M01S00041.smfsubs +++|* 00043 M01S00042.smfsubs +++|* CALLS SFCNP$, SFCSP$, SFDQUE$. 00044 M01S00043.smfsubs +++| 00045 M01S00044.smfsubs +++| 00046 M01S00045.smfsubs +++| SFDQUE SUBR ENTRY/EXIT 00047 M01S00046.smfsubs +++| SB1 1 00048 M01S00047.smfsubs +++| SB2 SDQA FWA OF PARAMETER LIST 00049 M01S00048.smfsubs +++| SB3 SDQB LENGTH AND OFFSET 00050 M01S00049.smfsubs +++| RJ =XSFCSP$ COPY QNAME 00051 M01S00050.smfsubs +++| RJ =XSFCNP$ COPY BUFFER ADDRESS 00052 M01S00051.smfsubs +++| RJ =XSFCNP$ COPY RETURN CODE 00053 M01S00052.smfsubs +++| RJ =XSFCNP$ COPY SIZE OF BUFFER 00054 M01S00053.smfsubs +++| SA1 SDQA SET NEW PARAMETER LIST ADDRESS 00055 M01S00054.smfsubs +++| RJ =XSFDQUE$ DEQUEUE DATA FROM SPECIFIED QUEUE 00056 M01S00055.smfsubs +++| EQ SFDQUEX EXIT 00057 M01S00056.smfsubs +++| 00058 M01S00057.smfsubs +++| SDQA BSSZ 7 NEW PARAMETER LIST 00059 M01S00058.smfsubs +++| SDQB BSSZ 2 LENGTH AND OFFSET FOR QUEUE NAME 00060 M01S00059.smfsubs +++| 00061 M01S00060.smfsubs +++| END 00062 M01S00061.smfsubs +++| 00063 M01S00062.smfsubs +++| IDENT SFMODE 00064 M01S00063.smfsubs +++| ENTRY SFMODE 00065 M01S00064.smfsubs +++| SYSCOM B1 00066 M01S00065.smfsubs +++| TITLE SFMODE - SWITCH TERMINAL BETWEEN SCREEN/LINE MODE. 00067 M01S00066.smfsubs +++|*COMMENT SFMODE - SET TERMINAL MODE.
Line S00067 Modification History | |
---|---|
M01 (Added by) | smfsubs |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00068 M02S00067.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1985. 00069 M01S00002.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00070 M01S00068.smfsubs +++| SMD SPACE 4,10 00071 M01S00069.smfsubs +++|*** SFMODE - SWITCH TERMINAL BETWEEN SCREEN/LINE MODE. 00072 M01S00070.smfsubs +++|* 00073 M01S00071.smfsubs +++|* M. L. SWANSON. 85/05/16. 00074 M01S00072.smfsubs +++| SMD SPACE 4,10 00075 M01S00073.smfsubs +++|*** *SFMODE* PROVIDES AN INTERFACE TO *SFMODE$* FOR PROGRAMS 00076 M01S00074.smfsubs +++|* WRITTEN IN HIGHER LEVEL LANGUAGES. 00077 M01S00075.smfsubs +++| SMD SPACE 4,15 00078 M01S00076.smfsubs +++|*** CALLING SEQUENCE. 00079 M01S00077.smfsubs +++|* 00080 M01S00078.smfsubs +++|* *FORTRAN5* CALL - 00081 M01S00079.smfsubs +++|* 00082 M01S00080.smfsubs +++|* CALL SFMODE(MODE, MODEL) 00083 M01S00081.smfsubs +++|* 00084 M01S00082.smfsubs +++|* *COBOL5* CALL - 00085 M01S00083.smfsubs +++|* 00086 M01S00084.smfsubs +++|* ENTER SFMODE USING MODE, MODEL. 00087 M01S00085.smfsubs +++|* 00088 M01S00086.smfsubs +++|* MODE = TERMINAL MODE (0 = SCREEN, 1 = LINE) 00089 M01S00087.smfsubs +++|* MODEL = DISPLAY CODE MODEL NAME 00090 M01S00088.smfsubs +++| SMD SPACE 4,10 00091 M01S00089.smfsubs +++|** SFMODE - SWITCH TERMINAL BETWEEN SCREEN/LINE MODE. 00092 M01S00090.smfsubs +++|* 00093 M01S00091.smfsubs +++|* ENTRY (A1) = FWA OF FORMAL PARAMETER LIST. 00094 M01S00092.smfsubs +++|* (X1) = ADDRESS OF FIRST PARAMETER. 00095 M01S00093.smfsubs +++|* 00096 M01S00094.smfsubs +++|* USES A - 1. 00097 M01S00095.smfsubs +++|* B - 1, 2, 3. 00098 M01S00096.smfsubs +++|* 00099 M01S00097.smfsubs +++|* CALLS SFCNP$, SFCSP$, SFMODE$. 00100 M01S00098.smfsubs +++| 00101 M01S00099.smfsubs +++| 00102 M01S00100.smfsubs +++| SFMODE SUBR ENTRY/EXIT 00103 M01S00101.smfsubs +++| SB1 1 00104 M01S00102.smfsubs +++| SB2 SMDA FWA OF PARAMETER LIST 00105 M01S00103.smfsubs +++| RJ =XSFCNP$ COPY MODE 00106 M01S00104.smfsubs +++| SB3 SMDB LENGTH AND OFFSET 00107 M01S00105.smfsubs +++| RJ =XSFCSP$ COPY MODEL 00108 M01S00106.smfsubs +++| SA1 SMDA SET NEW PARAMETER LIST ADDRESS 00109 M01S00107.smfsubs +++| RJ =XSFMODE$ SET SCREEN/LINE MODE 00110 M01S00108.smfsubs +++| EQ SFMODEX EXIT 00111 M01S00109.smfsubs +++| 00112 M01S00110.smfsubs +++| SMDA BSSZ 5 NEW PARAMETER LIST 00113 M01S00111.smfsubs +++| SMDB BSSZ 2 LENGTH AND OFFSET FOR MODEL NAME 00114 M01S00112.smfsubs +++| 00115 M01S00113.smfsubs +++| END 00116 M01S00114.smfsubs +++| 00117 M01S00115.smfsubs +++| IDENT SFNQUE 00118 M01S00116.smfsubs +++| ENTRY SFNQUE 00119 M01S00117.smfsubs +++| SYSCOM B1 00120 M01S00118.smfsubs +++| TITLE SFNQUE - ENQUEUE DATA INTO SPECIFIED QUEUE. 00121 M01S00119.smfsubs +++|*COMMENT SFNQUE - ENQUEUE DATA.
Line S00120 Modification History | |
---|---|
M01 (Added by) | smfsubs |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00122 M02S00120.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1985. 00123 M01S00003.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00124 M01S00121.smfsubs +++| SNQ SPACE 4,10 00125 M01S00122.smfsubs +++|*** SFNQUE - ENQUEUE DATA INTO SPECIFIED QUEUE. 00126 M01S00123.smfsubs +++|* 00127 M01S00124.smfsubs +++|* M. L. SWANSON. 85/05/16. 00128 M01S00125.smfsubs +++| SNQ SPACE 4,10 00129 M01S00126.smfsubs +++|*** *SFNQUE* PROVIDES AN INTERFACE TO *SFNQUE$* FOR PROGRAMS 00130 M01S00127.smfsubs +++|* WRITTEN IN HIGHER LEVEL LANGUAGES. 00131 M01S00128.smfsubs +++| SNQ SPACE 4,15 00132 M01S00129.smfsubs +++|*** CALLING SEQUENCE. 00133 M01S00130.smfsubs +++|* 00134 M01S00131.smfsubs +++|* *FORTRAN5* CALL - 00135 M01S00132.smfsubs +++|* 00136 M01S00133.smfsubs +++|* CALL SFNQUE(QNAME, BUFFER, RC) 00137 M01S00134.smfsubs +++|* 00138 M01S00135.smfsubs +++|* *COBOL5* CALL - 00139 M01S00136.smfsubs +++|* 00140 M01S00137.smfsubs +++|* ENTER SFNQUE USING QNAME, BUFFER, RC. 00141 M01S00138.smfsubs +++|* 00142 M01S00139.smfsubs +++|* QNAME = NAME OF DESTINATION QUEUE (PUT OR GET). 00143 M01S00140.smfsubs +++|* BUFFER = ADDRESS OF DATA TO BE ADDED TO QUEUE. 00144 M01S00141.smfsubs +++|* RC = RETURN CODE ( 0 = DATA ENQUEUED, 00145 M01S00142.smfsubs +++|* 1 = NOT ENQUEUED ). 00146 M01S00143.smfsubs +++| SNQ SPACE 4,10 00147 M01S00144.smfsubs +++|** SFNQUE - ENQUEUE DATA INTO SPECIFIED QUEUE. 00148 M01S00145.smfsubs +++|* 00149 M01S00146.smfsubs +++|* ENTRY (A1) = FWA OF FORMAL PARAMETER LIST. 00150 M01S00147.smfsubs +++|* (X1) = ADDRESS OF FIRST PARAMETER. 00151 M01S00148.smfsubs +++|* 00152 M01S00149.smfsubs +++|* USES A - 1. 00153 M01S00150.smfsubs +++|* B - 1, 2, 3. 00154 M01S00151.smfsubs +++|* 00155 M01S00152.smfsubs +++|* CALLS SFCNP$, SFCSP$, SFNQUE$. 00156 M01S00153.smfsubs +++| 00157 M01S00154.smfsubs +++| 00158 M01S00155.smfsubs +++| SFNQUE SUBR ENTRY/EXIT 00159 M01S00156.smfsubs +++| SB1 1 00160 M01S00157.smfsubs +++| SB2 SNQA FWA OF PARAMETER LIST 00161 M01S00158.smfsubs +++| SB3 SNQB LENGTH AND OFFSET 00162 M01S00159.smfsubs +++| RJ =XSFCSP$ COPY QNAME 00163 M01S00160.smfsubs +++| RJ =XSFCNP$ COPY BUFFER 00164 M01S00161.smfsubs +++| RJ =XSFCNP$ COPY RETURN CODE 00165 M01S00162.smfsubs +++| SA1 SNQA SET NEW PARAMETER LIST ADDRESS 00166 M01S00163.smfsubs +++| RJ =XSFNQUE$ ENQUEUE DATA INTO SPECIFIED QUEUE 00167 M01S00164.smfsubs +++| EQ SFNQUEX EXIT 00168 M01S00165.smfsubs +++| 00169 M01S00166.smfsubs +++| SNQA BSSZ 6 NEW PARAMETER LIST 00170 M01S00167.smfsubs +++| SNQB BSSZ 2 LENGTH AND OFFSET FOR QUEUE NAME 00171 M01S00168.smfsubs +++| 00172 M01S00169.smfsubs +++| END 00173 M01S00170.smfsubs +++| 00174 M01S00171.smfsubs +++| IDENT SFQTRM 00175 M01S00172.smfsubs +++| ENTRY SFQTRM 00176 M01S00173.smfsubs +++| SYSCOM B1 00177 M01S00174.smfsubs +++| TITLE SFQTRM - IDENTIFY QTRM USER TO SFORM. 00178 M01S00175.smfsubs +++|*COMMENT SFQTRM - IDENTIFY QTRM USER.
Line S00176 Modification History | |
---|---|
M01 (Added by) | smfsubs |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00179 M02S00176.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1985. 00180 M01S00004.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00181 M01S00177.smfsubs +++| SQT SPACE 4,10 00182 M01S00178.smfsubs +++|*** SFQTRM - IDENTIFY QTRM USER TO SFORM. 00183 M01S00179.smfsubs +++|* 00184 M01S00180.smfsubs +++|* M. L. SWANSON. 85/05/16. 00185 M01S00181.smfsubs +++| SQT SPACE 4,10 00186 M01S00182.smfsubs +++|*** *SFQTRM* PROVIDES AN INTERFACE TO *SFQTRM$* FOR PROGRAMS 00187 M01S00183.smfsubs +++|* WRITTEN IN HIGHER LEVEL LANGUAGES. 00188 M01S00184.smfsubs +++| SQT SPACE 4,15 00189 M01S00185.smfsubs +++|*** CALLING SEQUENCE. 00190 M01S00186.smfsubs +++|* 00191 M01S00187.smfsubs +++|* *FORTRAN5* CALL - 00192 M01S00188.smfsubs +++|* 00193 M01S00189.smfsubs +++|* CALL SFQTRM(NITADDR, BUFFER) 00194 M01S00190.smfsubs +++|* 00195 M01S00191.smfsubs +++|* *COBOL5* CALL - 00196 M01S00192.smfsubs +++|* 00197 M01S00193.smfsubs +++|* ENTER SFQTRM USING NITADDR, BUFFER. 00198 M01S00194.smfsubs +++|* 00199 M01S00195.smfsubs +++|* NITADDR = ADDRESS OF THE NETWORK INFORMATION TABLE. 00200 M01S00196.smfsubs +++|* BUFFER = BUFFER ADDRESS. 00201 M01S00197.smfsubs +++| SQT SPACE 4,10 00202 M01S00198.smfsubs +++|** SFQTRM - IDENTIFY QTRM USER TO SFORM. 00203 M01S00199.smfsubs +++|* 00204 M01S00200.smfsubs +++|* ENTRY (A1) = FWA OF FORMAL PARAMETER LIST. 00205 M01S00201.smfsubs +++|* (X1) = ADDRESS OF FIRST PARAMETER. 00206 M01S00202.smfsubs +++|* 00207 M01S00203.smfsubs +++|* USES A - 1. 00208 M01S00204.smfsubs +++|* B - 1, 2, 3. 00209 M01S00205.smfsubs +++|* 00210 M01S00206.smfsubs +++|* CALLS SFCNP$, SFQTRM$. 00211 M01S00207.smfsubs +++| 00212 M01S00208.smfsubs +++| 00213 M01S00209.smfsubs +++| SFQTRM SUBR ENTRY/EXIT 00214 M01S00210.smfsubs +++| SB1 1 00215 M01S00211.smfsubs +++| SB2 SQTA FWA OF PARAMETER LIST 00216 M01S00212.smfsubs +++| RJ =XSFCNP$ COPY NIT ADDRESS 00217 M01S00213.smfsubs +++| RJ =XSFCNP$ COPY BUFFER ADDRESS 00218 M01S00214.smfsubs +++| SA1 SQTA SET NEW PARAMETER LIST ADDRESS 00219 M01S00215.smfsubs +++| RJ =XSFQTRM$ IDENTIFY QTRM USER TO SFORM 00220 M01S00216.smfsubs +++| EQ SFQTRMX EXIT 00221 M01S00217.smfsubs +++| 00222 M01S00218.smfsubs +++| SQTA BSSZ 3 NEW PARAMETER LIST 00223 M01S00219.smfsubs +++| 00224 M01S00220.smfsubs +++| END 00225 M01S00221.smfsubs +++| 00226 M01S00222.smfsubs +++| IDENT SFATTR 00227 M01S00223.smfsubs +++| ENTRY SFATTR 00228 M01S00224.smfsubs +++| SYSCOM B1 00229 M01S00225.smfsubs +++| TITLE SFATTR - SET FIELD ATTRIBUTES. 00230 M01S00226.smfsubs +++|*COMMENT SFATTR - SET FIELD ATTRIBUTES.
Line S00227 Modification History | |
---|---|
M01 (Added by) | smfsubs |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00231 M02S00227.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1985. 00232 M01S00005.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00233 M01S00228.smfsubs +++| SFA SPACE 4,10 00234 M01S00229.smfsubs +++|*** SFATTR - SET FIELD ATTRIBUTES. 00235 M01S00230.smfsubs +++|* 00236 M01S00231.smfsubs +++|* S.D. PAINTER. 85/10/01. 00237 M01S00232.smfsubs +++| SFA SPACE 4,10 00238 M01S00233.smfsubs +++|*** *SFATTR* PROVIDES AN INTERFACE TO *SFATTR$* FOR PROGRAMS 00239 M01S00234.smfsubs +++|* WRITTEN IN HIGHER LEVEL LANGUAGES. 00240 M01S00235.smfsubs +++| SFA SPACE 4,15 00241 M01S00236.smfsubs +++|*** CALLING SEQUENCE. 00242 M01S00237.smfsubs +++|* 00243 M01S00238.smfsubs +++|* *FORTRAN5* CALL - 00244 M01S00239.smfsubs +++|* 00245 M01S00240.smfsubs +++|* CALL SFATTR(VARNAME,NEW,OLD) 00246 M01S00241.smfsubs +++|* 00247 M01S00242.smfsubs +++|* *COBOL5* CALL - 00248 M01S00243.smfsubs +++|* 00249 M01S00244.smfsubs +++|* ENTER SFATTR USING VARNAME, NEW, OLD. 00250 M01S00245.smfsubs +++|* 00251 M01S00246.smfsubs +++|* VARNAME = NAME OF VARIABLE. 00252 M01S00247.smfsubs +++|* NEW = NEW FIELD ATTRIBUTES. 00253 M01S00248.smfsubs +++|* OLD = OLD FIELD ATTRIBUTES. 00254 M01S00249.smfsubs +++| SFA SPACE 4,10 00255 M01S00250.smfsubs +++|** SFATTR - SET FIELD ATTRIBUTES. 00256 M01S00251.smfsubs +++|* 00257 M01S00252.smfsubs +++|* ENTRY (A1) = FWA OF FORMAL PARAMETER LIST. 00258 M01S00253.smfsubs +++|* (X1) = ADDRESS OF FIRST PARAMETER. 00259 M01S00254.smfsubs +++|* 00260 M01S00255.smfsubs +++|* USES X - 1. 00261 M01S00256.smfsubs +++|* A - 1. 00262 M01S00257.smfsubs +++|* B - 1, 2, 3. 00263 M01S00258.smfsubs +++|* 00264 M01S00259.smfsubs +++|* CALLS SFCNP$, SFCSP$, SFATTR$. 00265 M01S00260.smfsubs +++| 00266 M01S00261.smfsubs +++| 00267 M01S00262.smfsubs +++| SFATTR SUBR ENTRY/EXIT 00268 M01S00263.smfsubs +++| SB1 1 00269 M01S00264.smfsubs +++| SB2 SFAA FWA OF PARAMETER LIST 00270 M01S00265.smfsubs +++| SB3 SFAB LENGTH AND OFFSET 00271 M01S00266.smfsubs +++| RJ =XSFCSP$ COPY VARNAME 00272 M01S00267.smfsubs +++| RJ =XSFCNP$ COPY NEW 00273 M01S00268.smfsubs +++| RJ =XSFCNP$ COPY OLD 00274 M01S00269.smfsubs +++| SA1 SFAA GET NEW PARAMETER LIST ADDRESS 00275 M01S00270.smfsubs +++| RJ =XSFATTR$ SET FIELD ATTRIBUTES 00276 M01S00271.smfsubs +++| EQ SFATTRX EXIT 00277 M01S00272.smfsubs +++| 00278 M01S00273.smfsubs +++| SFAA BSSZ 6 NEW PARAMETER LIST 00279 M01S00274.smfsubs +++| SFAB BSSZ 2 LENGTH AND OFFSET FOR PARAMETERS 00280 M01S00275.smfsubs +++| 00281 M01S00276.smfsubs +++| END 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 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00288 M02S00007.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1988. 00289 M01S00006.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 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 M01S00277.smfsubs +++| 00356 M01S00278.smfsubs +++| IDENT SFGETI 00357 M01S00279.smfsubs +++| ENTRY SFGETI 00358 M01S00280.smfsubs +++| SYSCOM B1 00359 M01S00281.smfsubs +++| TITLE SFGETI - GET INTEGER VALUE. 00360 M01S00282.smfsubs +++|*COMMENT SFGETI - GET INTEGER VALUE.
Line S00283 Modification History | |
---|---|
M01 (Added by) | smfsubs |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00361 M02S00283.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1983. 00362 M01S00007.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00363 M01S00284.smfsubs +++| SGI SPACE 4,10 00364 M01S00285.smfsubs +++|*** SFGETI - GET INTEGER VALUE. 00365 M01S00286.smfsubs +++|* 00366 M01S00287.smfsubs +++|* J.T. LITTLE. 83/05/23. 00367 M01S00288.smfsubs +++| SGI SPACE 4,10 00368 M01S00289.smfsubs +++|*** *SFGETI* PROVIDES AN INTERFACE TO *SFGETI$* FOR PROGRAMS 00369 M01S00290.smfsubs +++|* WRITTEN IN HIGHER LEVEL LANGUAGES. 00370 M01S00291.smfsubs +++| SGI SPACE 4,15 00371 M01S00292.smfsubs +++|*** CALLING SEQUENCE. 00372 M01S00293.smfsubs +++|* 00373 M01S00294.smfsubs +++|* *FORTRAN5* CALL - 00374 M01S00295.smfsubs +++|* 00375 M01S00296.smfsubs +++|* CALL SFGETI(VARNAME,VALUE) 00376 M01S00297.smfsubs +++|* 00377 M01S00298.smfsubs +++|* *COBOL5* CALL - 00378 M01S00299.smfsubs +++|* 00379 M01S00300.smfsubs +++|* ENTER SFGETI USING VARNAME, VALUE. 00380 M01S00301.smfsubs +++|* 00381 M01S00302.smfsubs +++|* VARNAME = NAME OF VARIABLE. 00382 M01S00303.smfsubs +++|* VALUE = INTEGER VALUE OF FIELD. 00383 M01S00304.smfsubs +++| SGI SPACE 4,10 00384 M01S00305.smfsubs +++|** SFGETI - GET INTEGER VALUE. 00385 M01S00306.smfsubs +++|* 00386 M01S00307.smfsubs +++|* ENTRY (A1) = FWA OF FORMAL PARAMETER LIST. 00387 M01S00308.smfsubs +++|* (X1) = ADDRESS OF FIRST PARAMETER. 00388 M01S00309.smfsubs +++|* 00389 M01S00310.smfsubs +++|* USES A - 1. 00390 M01S00311.smfsubs +++|* B - 1, 2, 3. 00391 M01S00312.smfsubs +++|* 00392 M01S00313.smfsubs +++|* CALLS SFCNP$, SFCSP$, SFGETI$. 00393 M01S00314.smfsubs +++| 00394 M01S00315.smfsubs +++| 00395 M01S00316.smfsubs +++| SFGETI SUBR ENTRY/EXIT 00396 M01S00317.smfsubs +++| SB1 1 00397 M01S00318.smfsubs +++| SB2 SGIA FWA OF PARAMETER LIST 00398 M01S00319.smfsubs +++| SB3 SGIB LENGTH AND OFFSET 00399 M01S00320.smfsubs +++| RJ =XSFCSP$ COPY VARNAME 00400 M01S00321.smfsubs +++| RJ =XSFCNP$ COPY VALUE 00401 M01S00322.smfsubs +++| SA1 SGIA SET NEW PARAMETER LIST ADDRESS 00402 M01S00323.smfsubs +++| RJ =XSFGETI$ GET INTEGER VALUE 00403 M01S00324.smfsubs +++| EQ SFGETIX EXIT 00404 M01S00325.smfsubs +++| 00405 M01S00326.smfsubs +++| SGIA BSSZ 5 NEW PARAMETER LIST 00406 M01S00327.smfsubs +++| SGIB BSSZ 2 LENGTH AND OFFSET FOR VARIABLE NAME 00407 M01S00328.smfsubs +++| 00408 M01S00329.smfsubs +++| END 00409 M01S00330.smfsubs +++| 00410 M01S00331.smfsubs +++| IDENT SFGETN 00411 M01S00332.smfsubs +++| ENTRY SFGETN 00412 M01S00333.smfsubs +++| SYSCOM B1 00413 M01S00334.smfsubs +++| TITLE SFGETN - GET TERMINAL MODEL NAME. 00414 M01S00335.smfsubs +++|*COMMENT SFGETN - GET TERMINAL MODEL NAME.
Line S00336 Modification History | |
---|---|
M01 (Added by) | smfsubs |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00415 M02S00336.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1983. 00416 M01S00008.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00417 M01S00337.smfsubs +++| SGN SPACE 4,10 00418 M01S00338.smfsubs +++|*** SFGETN - GET TERMINAL MODEL NAME. 00419 M01S00339.smfsubs +++|* 00420 M01S00340.smfsubs +++|* M. L. SWANSON. 84/10/25. 00421 M01S00341.smfsubs +++| SGN SPACE 4,10 00422 M01S00342.smfsubs +++|*** *SFGETN* PROVIDES AN INTERFACE TO *SFGETN$* FOR PROGRAMS 00423 M01S00343.smfsubs +++|* WRITTEN IN HIGHER LEVEL LANGUAGES. 00424 M01S00344.smfsubs +++| SGN SPACE 4,15 00425 M01S00345.smfsubs +++|*** CALLING SEQUENCE. 00426 M01S00346.smfsubs +++|* 00427 M01S00347.smfsubs +++|* *FORTRAN5* CALL - 00428 M01S00348.smfsubs +++|* 00429 M01S00349.smfsubs +++|* CALL SFGETN(MODEL) 00430 M01S00350.smfsubs +++|* 00431 M01S00351.smfsubs +++|* *COBOL5* CALL - 00432 M01S00352.smfsubs +++|* 00433 M01S00353.smfsubs +++|* ENTER SFGETN USING MODEL. 00434 M01S00354.smfsubs +++|* 00435 M01S00355.smfsubs +++|* MODEL = TERMINAL MODEL NAME. 00436 M01S00356.smfsubs +++| SGN SPACE 4,10 00437 M01S00357.smfsubs +++|** SFGETN - GET TERMINAL MODEL NAME. 00438 M01S00358.smfsubs +++|* 00439 M01S00359.smfsubs +++|* ENTRY (A1) = FWA OF FORMAL PARAMETER LIST. 00440 M01S00360.smfsubs +++|* (X1) = ADDRESS OF MODEL PARAMETER. 00441 M01S00361.smfsubs +++|* 00442 M01S00362.smfsubs +++|* USES X - 1. 00443 M01S00363.smfsubs +++|* A - 1. 00444 M01S00364.smfsubs +++|* B - 1, 2, 3. 00445 M01S00365.smfsubs +++|* 00446 M01S00366.smfsubs +++|* CALLS SFCSP$, SFGETN$. 00447 M01S00367.smfsubs +++| 00448 M01S00368.smfsubs +++| 00449 M01S00369.smfsubs +++| SFGETN SUBR ENTRY/EXIT 00450 M01S00370.smfsubs +++| SB1 1 00451 M01S00371.smfsubs +++| SB2 SGNA FWA OF PARAMETER LIST 00452 M01S00372.smfsubs +++| SB3 SGNB LENGTH AND OFFSET 00453 M01S00373.smfsubs +++| RJ =XSFCSP$ COPY MODEL NAME ADDRESS 00454 M01S00374.smfsubs +++| SA1 SGNA SET NEW PARAMETER LIST ADDRESS 00455 M01S00375.smfsubs +++| RJ =XSFGETN$ GET INTEGER VALUE 00456 M01S00376.smfsubs +++| EQ SFGETNX EXIT 00457 M01S00377.smfsubs +++| 00458 M01S00378.smfsubs +++| SGNA BSSZ 4 NEW PARAMETER LIST 00459 M01S00379.smfsubs +++| SGNB BSSZ 2 LENGTH AND OFFSET FOR VARIABLE NAME 00460 M01S00380.smfsubs +++| 00461 M01S00381.smfsubs +++| END 00462 M01S00382.smfsubs +++| 00463 M01S00383.smfsubs +++| IDENT SFGETR 00464 M01S00384.smfsubs +++| ENTRY SFGETR 00465 M01S00385.smfsubs +++| SYSCOM B1 00466 M01S00386.smfsubs +++| TITLE SFGETR - GET REAL VALUE. 00467 M01S00387.smfsubs +++|*COMMENT SFGETR - GET REAL VALUE.
Line S00388 Modification History | |
---|---|
M01 (Added by) | smfsubs |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00468 M02S00388.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1983. 00469 M01S00009.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00470 M01S00389.smfsubs +++| SGR SPACE 4,10 00471 M01S00390.smfsubs +++|*** SFGETR - GET REAL VALUE. 00472 M01S00391.smfsubs +++|* 00473 M01S00392.smfsubs +++|* J.T. LITTLE. 83/05/23. 00474 M01S00393.smfsubs +++| SGR SPACE 4,10 00475 M01S00394.smfsubs +++|*** *SFGETR* PROVIDES AN INTERFACE TO *SFGETR$* FOR PROGRAMS 00476 M01S00395.smfsubs +++|* WRITTEN IN HIGHER LEVEL LANGUAGES. 00477 M01S00396.smfsubs +++| SGR SPACE 4,15 00478 M01S00397.smfsubs +++|*** CALLING SEQUENCE. 00479 M01S00398.smfsubs +++|* 00480 M01S00399.smfsubs +++|* *FORTRAN5* CALL - 00481 M01S00400.smfsubs +++|* 00482 M01S00401.smfsubs +++|* CALL SFGETR(VARNAME,VALUE) 00483 M01S00402.smfsubs +++|* 00484 M01S00403.smfsubs +++|* *COBOL5* CALL - 00485 M01S00404.smfsubs +++|* 00486 M01S00405.smfsubs +++|* ENTER SFGETR USING VARNAME, VALUE. 00487 M01S00406.smfsubs +++|* 00488 M01S00407.smfsubs +++|* VARNAME = NAME OF VARIABLE. 00489 M01S00408.smfsubs +++|* VALUE = REAL VALUE OF FIELD. 00490 M01S00409.smfsubs +++| SGR SPACE 4,10 00491 M01S00410.smfsubs +++|** SFGETR - GET REAL VALUE. 00492 M01S00411.smfsubs +++|* 00493 M01S00412.smfsubs +++|* ENTRY (A1) = FWA OF FORMAL PARAMETER LIST. 00494 M01S00413.smfsubs +++|* (X1) = ADDRESS OF FIRST PARAMETER. 00495 M01S00414.smfsubs +++|* 00496 M01S00415.smfsubs +++|* USES A - 1. 00497 M01S00416.smfsubs +++|* B - 1, 2, 3. 00498 M01S00417.smfsubs +++|* 00499 M01S00418.smfsubs +++|* CALLS SFCNP$, SFCSP$, SFGETR$. 00500 M01S00419.smfsubs +++| 00501 M01S00420.smfsubs +++| 00502 M01S00421.smfsubs +++| SFGETR SUBR ENTRY/EXIT 00503 M01S00422.smfsubs +++| SB1 1 00504 M01S00423.smfsubs +++| SB2 SGRA FWA OF PARAMETER LIST 00505 M01S00424.smfsubs +++| SB3 SGRB LENGTH AND OFFSET 00506 M01S00425.smfsubs +++| RJ =XSFCSP$ COPY VARNAME 00507 M01S00426.smfsubs +++| RJ =XSFCNP$ COPY VALUE 00508 M01S00427.smfsubs +++| SA1 SGRA SET NEW PARAMETER LIST ADDRESS 00509 M01S00428.smfsubs +++| RJ =XSFGETR$ GET REAL VALUE 00510 M01S00429.smfsubs +++| EQ SFGETRX EXIT 00511 M01S00430.smfsubs +++| 00512 M01S00431.smfsubs +++| SGRA BSSZ 5 NEW PARAMETER LIST 00513 M01S00432.smfsubs +++| SGRB BSSZ 2 LENGTH AND OFFSET FOR VARIABLE NAME 00514 M01S00433.smfsubs +++| 00515 M01S00434.smfsubs +++| END 00516 M01S00435.smfsubs +++| 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 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00522 M02S00006.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1988. 00523 M01S00010.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 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 M01S00436.smfsubs +++| IDENT SFPOSR 00557 M01S00437.smfsubs +++| ENTRY SFPOSR 00558 M01S00438.smfsubs +++| SYSCOM B1 00559 M01S00439.smfsubs +++| TITLE SFPOSR - POSITION TABLE ROW. 00560 M01S00440.smfsubs +++|*COMMENT SFPOSR - POSITION TABLE ROW.
Line S00441 Modification History | |
---|---|
M01 (Added by) | smfsubs |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00561 M02S00441.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1983. 00562 M01S00011.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00563 M01S00442.smfsubs +++| SGD SPACE 4,10 00564 M01S00443.smfsubs +++|*** SFPOSR - POSITION TABLE ROW. 00565 M01S00444.smfsubs +++|* 00566 M01S00445.smfsubs +++|* J.T. LITTLE. 83/05/23. 00567 M01S00446.smfsubs +++| SGD SPACE 4,10 00568 M01S00447.smfsubs +++|*** *SFPOSR* PROVIDES AN INTERFACE TO *SFPOSR$* FOR PROGRAMS 00569 M01S00448.smfsubs +++|* WRITTEN IN HIGHER LEVEL LANGUAGES. 00570 M01S00449.smfsubs +++| SGD SPACE 4,15 00571 M01S00450.smfsubs +++|*** CALLING SEQUENCE. 00572 M01S00451.smfsubs +++|* 00573 M01S00452.smfsubs +++|* *FORTRAN5* CALL - 00574 M01S00453.smfsubs +++|* 00575 M01S00454.smfsubs +++|* CALL SFPOSR(TABNAME,VALUE) 00576 M01S00455.smfsubs +++|* 00577 M01S00456.smfsubs +++|* *COBOL5* CALL - 00578 M01S00457.smfsubs +++|* 00579 M01S00458.smfsubs +++|* ENTER SFPOSR USING TABNAME, VALUE. 00580 M01S00459.smfsubs +++|* 00581 M01S00460.smfsubs +++|* TABNAME = NAME OF TABLE. 00582 M01S00461.smfsubs +++|* VALUE = DATE VALUE OF FIELD. 00583 M01S00462.smfsubs +++| SGD SPACE 4,10 00584 M01S00463.smfsubs +++|** SFPOSR - GET DATE VALUE. 00585 M01S00464.smfsubs +++|* 00586 M01S00465.smfsubs +++|* ENTRY (A1) = FWA OF FORMAL PARAMETER LIST. 00587 M01S00466.smfsubs +++|* (X1) = ADDRESS OF FIRST PARAMETER. 00588 M01S00467.smfsubs +++|* 00589 M01S00468.smfsubs +++|* USES A - 1. 00590 M01S00469.smfsubs +++|* B - 1, 2, 3. 00591 M01S00470.smfsubs +++|* 00592 M01S00471.smfsubs +++|* CALLS SFCNP$, SFCSP$, SFPOSR$. 00593 M01S00472.smfsubs +++| 00594 M01S00473.smfsubs +++| 00595 M01S00474.smfsubs +++| SFPOSR SUBR ENTRY/EXIT 00596 M01S00475.smfsubs +++| SB1 1 00597 M01S00476.smfsubs +++| SB2 SGDA FWA OF PARAMETER LIST 00598 M01S00477.smfsubs +++| SB3 SGDB LENGTH AND OFFSET 00599 M01S00478.smfsubs +++| RJ =XSFCSP$ COPY TABNAME 00600 M01S00479.smfsubs +++| RJ =XSFCNP$ COPY VALUE 00601 M01S00480.smfsubs +++| SA1 SGDA SET NEW PARAMETER LIST ADDRESS 00602 M01S00481.smfsubs +++| RJ =XSFPOSR$ GET DATE VALUE 00603 M01S00482.smfsubs +++| EQ SFPOSRX EXIT 00604 M01S00483.smfsubs +++| 00605 M01S00484.smfsubs +++| SGDA BSSZ 5 NEW PARAMETER LIST 00606 M01S00485.smfsubs +++| SGDB BSSZ 2 LENGTH AND OFFSET FOR TABLE NAME 00607 M01S00486.smfsubs +++| 00608 M01S00487.smfsubs +++| END 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 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00615 M02S00079.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1988. 00616 M01S00012.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 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 M01S00488.smfsubs +++| IDENT SFSETP 00683 M01S00489.smfsubs +++| ENTRY SFSETP 00684 M01S00490.smfsubs +++| SYSCOM B1 00685 M01S00491.smfsubs +++| TITLE SFSETP - SET CURSOR POSITION. 00686 M01S00492.smfsubs +++|*COMMENT SFSETP - SET CURSOR POSITION.
Line S00493 Modification History | |
---|---|
M01 (Added by) | smfsubs |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00687 M02S00493.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1983. 00688 M01S00013.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00689 M01S00494.smfsubs +++| STP SPACE 4,10 00690 M01S00495.smfsubs +++|*** SFSETP - SET CURSOR POSITION. 00691 M01S00496.smfsubs +++|* 00692 M01S00497.smfsubs +++|* J.T. LITTLE. 83/04/25. 00693 M01S00498.smfsubs +++| STP SPACE 4,10 00694 M01S00499.smfsubs +++|*** *SFSETP* PROVIDES AN INTERFACE TO *SFSETP$* FOR PROGRAMS 00695 M01S00500.smfsubs +++|* WRITTEN IN HIGHER LEVEL LANGUAGES. 00696 M01S00501.smfsubs +++| STP SPACE 4,15 00697 M01S00502.smfsubs +++|*** CALLING SEQUENCE. 00698 M01S00503.smfsubs +++|* 00699 M01S00504.smfsubs +++|* *FORTRAN5* CALL - 00700 M01S00505.smfsubs +++|* 00701 M01S00506.smfsubs +++|* CALL SFSETP(VARNAME,OFFSET,ROW) 00702 M01S00507.smfsubs +++|* 00703 M01S00508.smfsubs +++|* *COBOL5* CALL - 00704 M01S00509.smfsubs +++|* 00705 M01S00510.smfsubs +++|* ENTER SFSETP USING VARNAME, OFFSET, ROW. 00706 M01S00511.smfsubs +++|* 00707 M01S00512.smfsubs +++|* VARNAME = NAME OF VARIABLE. 00708 M01S00513.smfsubs +++|* OFFSET = OFFSET IN FIELD. 00709 M01S00514.smfsubs +++| STP SPACE 4,10 00710 M01S00515.smfsubs +++|** SFSETP - SET CURSOR POSITION. 00711 M01S00516.smfsubs +++|* 00712 M01S00517.smfsubs +++|* ENTRY (A1) = FWA OF FORMAL PARAMETER LIST. 00713 M01S00518.smfsubs +++|* (X1) = ADDRESS OF FIRST PARAMETER. 00714 M01S00519.smfsubs +++|* 00715 M01S00520.smfsubs +++|* USES A - 1. 00716 M01S00521.smfsubs +++|* B - 1, 2, 3. 00717 M01S00522.smfsubs +++|* 00718 M01S00523.smfsubs +++|* CALLS SFCNP$, SFCSP$, SFSETP$. 00719 M01S00524.smfsubs +++| 00720 M01S00525.smfsubs +++| 00721 M01S00526.smfsubs +++| SFSETP SUBR ENTRY/EXIT 00722 M01S00527.smfsubs +++| SB1 1 00723 M01S00528.smfsubs +++| SB2 STPA FWA OF PARAMETER LIST 00724 M01S00529.smfsubs +++| SB3 STPB LENGTH AND OFFSET 00725 M01S00530.smfsubs +++| RJ =XSFCSP$ COPY VARNAME 00726 M01S00531.smfsubs +++| RJ =XSFCNP$ COPY OFFSET 00727 M01S00532.smfsubs +++| RJ =XSFCNP$ COPY ROW 00728 M01S00533.smfsubs +++| SA1 STPA SET NEW PARAMETER LIST ADDRESS 00729 M01S00534.smfsubs +++| RJ =XSFSETP$ SET CURSOR POSITION 00730 M01S00535.smfsubs +++| EQ SFSETPX EXIT 00731 M01S00536.smfsubs +++| 00732 M01S00537.smfsubs +++| STPA BSSZ 6 NEW PARAMETER LIST 00733 M01S00538.smfsubs +++| STPB BSSZ 2 LENGTH AND OFFSET FOR PANEL NAME 00734 M01S00539.smfsubs +++| 00735 M01S00540.smfsubs +++| END 00736 M01S00541.smfsubs +++| 00737 M01S00542.smfsubs +++| IDENT SFSREA 00738 M01S00543.smfsubs +++| ENTRY SFSREA 00739 M01S00544.smfsubs +++| SYSCOM B1 00740 M01S00545.smfsubs +++| TITLE SFSREA - READ FORMATTED SCREEN. 00741 M01S00546.smfsubs +++|*COMMENT SFSREA - READ FORMATTED SCREEN.
Line S00547 Modification History | |
---|---|
M01 (Added by) | smfsubs |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00742 M02S00547.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1983. 00743 M01S00014.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00744 M01S00548.smfsubs +++| SRE SPACE 4,10 00745 M01S00549.smfsubs +++|*** SFSREA - READ FORMATTED SCREEN. 00746 M01S00550.smfsubs +++|* 00747 M01S00551.smfsubs +++|* J.T. LITTLE. 83/04/25. 00748 M01S00552.smfsubs +++| SRE SPACE 4,10 00749 M01S00553.smfsubs +++|*** *SFSREA* PROVIDES AN INTERFACE TO *SFSREA$* FOR PROGRAMS 00750 M01S00554.smfsubs +++|* WRITTEN IN HIGHER LEVEL LANGUAGES. 00751 M01S00555.smfsubs +++| SRE SPACE 4,15 00752 M01S00556.smfsubs +++|*** CALLING SEQUENCE. 00753 M01S00557.smfsubs +++|* 00754 M01S00558.smfsubs +++|* *FORTRAN5* CALL - 00755 M01S00559.smfsubs +++|* 00756 M01S00560.smfsubs +++|* CALL SFSREA(PANELNAME,INSTRING) 00757 M01S00561.smfsubs +++|* 00758 M01S00562.smfsubs +++|* *COBOL5* CALL - 00759 M01S00563.smfsubs +++|* 00760 M01S00564.smfsubs +++|* ENTER SFSREA USING PANELNAME INSTRING. 00761 M01S00565.smfsubs +++|* 00762 M01S00566.smfsubs +++|* PANELNAME = PANEL TO BE READ. 00763 M01S00567.smfsubs +++|* INSTRING = RECEIVES TERMINAL INPUT. 00764 M01S00568.smfsubs +++| SRE SPACE 4,10 00765 M01S00569.smfsubs +++|** SFSREA - READ PANEL. 00766 M01S00570.smfsubs +++|* 00767 M01S00571.smfsubs +++|* ENTRY (A1) = FWA OF FORMAL PARAMETER LIST. 00768 M01S00572.smfsubs +++|* (X1) = ADDRESS OF FIRST PARAMETER. 00769 M01S00573.smfsubs +++|* 00770 M01S00574.smfsubs +++|* USES A - 1. 00771 M01S00575.smfsubs +++|* B - 1, 2, 3. 00772 M01S00576.smfsubs +++|* 00773 M01S00577.smfsubs +++|* CALLS SFCNP$, SFCSP$, SFSREA$. 00774 M01S00578.smfsubs +++| 00775 M01S00579.smfsubs +++| 00776 M01S00580.smfsubs +++| SFSREA SUBR ENTRY/EXIT 00777 M01S00581.smfsubs +++| SB1 1 00778 M01S00582.smfsubs +++| SB2 SREA FWA OF PARAMETER LIST 00779 M01S00583.smfsubs +++| SB3 SREB LENGTH AND OFFSET 00780 M01S00584.smfsubs +++| RJ =XSFCSP$ COPY PANELNAME 00781 M01S00585.smfsubs +++| RJ =XSFCSP$ COPY INSTRING 00782 M01S00586.smfsubs +++| SA1 SREA SET NEW PARAMETER LIST ADDRESS 00783 M01S00587.smfsubs +++| RJ =XSFSREA$ READ FORMATTED SCREEN 00784 M01S00588.smfsubs +++| EQ SFSREAX EXIT 00785 M01S00589.smfsubs +++| 00786 M01S00590.smfsubs +++| SREA BSSZ 7 NEW PARAMETER LIST 00787 M01S00591.smfsubs +++| SREB BSSZ 4 LENGTH AND OFFSET FOR PANEL NAME 00788 M01S00592.smfsubs +++| END 00789 M01S00593.smfsubs +++| 00790 M01S00594.smfsubs +++| IDENT SFSWRI 00791 M01S00595.smfsubs +++| ENTRY SFSWRI 00792 M01S00596.smfsubs +++| SYSCOM B1 00793 M01S00597.smfsubs +++| TITLE SFSWRI - WRITE FORMATTED SCREEN. 00794 M01S00598.smfsubs +++|*COMMENT SFSWRI - WRITE FORMATTED SCREEN.
Line S00599 Modification History | |
---|---|
M01 (Added by) | smfsubs |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00795 M02S00599.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1983. 00796 M01S00015.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00797 M01S00600.smfsubs +++| SWR SPACE 4,10 00798 M01S00601.smfsubs +++|*** SFSWRI - WRITE FORMATTED SCREEN. 00799 M01S00602.smfsubs +++|* 00800 M01S00603.smfsubs +++|* J.T. LITTLE. 83/04/25. 00801 M01S00604.smfsubs +++| SWR SPACE 4,10 00802 M01S00605.smfsubs +++|*** *SFSWRI* PROVIDES AN INTERFACE TO *SFSWRI$* FOR PROGRAMS 00803 M01S00606.smfsubs +++|* WRITTEN IN HIGHER LEVEL LANGUAGES. 00804 M01S00607.smfsubs +++| SWR SPACE 4,15 00805 M01S00608.smfsubs +++|*** CALLING SEQUENCE. 00806 M01S00609.smfsubs +++|* 00807 M01S00610.smfsubs +++|* *FORTRAN5* CALL - 00808 M01S00611.smfsubs +++|* 00809 M01S00612.smfsubs +++|* CALL SFSWRI(PANELNAME,OUTSTRING) 00810 M01S00613.smfsubs +++|* 00811 M01S00614.smfsubs +++|* *COBOL5* CALL - 00812 M01S00615.smfsubs +++|* 00813 M01S00616.smfsubs +++|* ENTER SFSWRI USING PANELNAME OUTSTRING. 00814 M01S00617.smfsubs +++|* 00815 M01S00618.smfsubs +++|* PANELNAME = PANEL TO BE READ. 00816 M01S00619.smfsubs +++|* OUTSTRING = DATA TO BE DISPLAYED. 00817 M01S00620.smfsubs +++| SWR SPACE 4,10 00818 M01S00621.smfsubs +++|** SFSWRI - WRITE PANEL. 00819 M01S00622.smfsubs +++|* 00820 M01S00623.smfsubs +++|* ENTRY (A1) = FWA OF FORMAL PARAMETER LIST. 00821 M01S00624.smfsubs +++|* (X1) = ADDRESS OF FIRST PARAMETER. 00822 M01S00625.smfsubs +++|* 00823 M01S00626.smfsubs +++|* USES A - 1. 00824 M01S00627.smfsubs +++|* B - 1, 2, 3. 00825 M01S00628.smfsubs +++|* 00826 M01S00629.smfsubs +++|* CALLS SFCNP$, SFCSP$, SFSWRI$. 00827 M01S00630.smfsubs +++| 00828 M01S00631.smfsubs +++| 00829 M01S00632.smfsubs +++| SFSWRI SUBR ENTRY/EXIT 00830 M01S00633.smfsubs +++| SB1 1 00831 M01S00634.smfsubs +++| SB2 SWRA FWA OF PARAMETER LIST 00832 M01S00635.smfsubs +++| SB3 SWRB LENGTH AND OFFSET 00833 M01S00636.smfsubs +++| RJ =XSFCSP$ COPY PANELNAME 00834 M01S00637.smfsubs +++| RJ =XSFCSP$ COPY OUTSTRING 00835 M01S00638.smfsubs +++| SA1 SWRA SET NEW PARAMETER LIST ADDRESS 00836 M01S00639.smfsubs +++| RJ =XSFSWRI$ READ FORMATTED SCREEN 00837 M01S00640.smfsubs +++| EQ SFSWRIX EXIT 00838 M01S00641.smfsubs +++| 00839 M01S00642.smfsubs +++| SWRA BSSZ 7 NEW PARAMETER LIST 00840 M01S00643.smfsubs +++| SWRB BSSZ 4 LENGTHS AND OFFSETS FOR PARAMETERS 00841 M01S00644.smfsubs +++| END 00842 M01S00645.smfsubs +++| 00843 M01S00646.smfsubs +++| IDENT SFSSHO 00844 M01S00647.smfsubs +++| ENTRY SFSSHO 00845 M01S00648.smfsubs +++| SYSCOM B1 00846 M01S00649.smfsubs +++| TITLE SFSSHO - SHOW FORMATTED SCREEN. 00847 M01S00650.smfsubs +++|*COMMENT SFSSHO - SHOW FORMATTED SCREEN.
Line S00651 Modification History | |
---|---|
M01 (Added by) | smfsubs |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00848 M02S00651.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1983. 00849 M01S00016.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00850 M01S00652.smfsubs +++| SSH SPACE 4,10 00851 M01S00653.smfsubs +++|*** SFSSHO - SHOW FORMATTED SCREEN. 00852 M01S00654.smfsubs +++|* 00853 M01S00655.smfsubs +++|* J.T. LITTLE. 83/04/25. 00854 M01S00656.smfsubs +++| SSH SPACE 4,10 00855 M01S00657.smfsubs +++|*** *SFSSHO* PROVIDES AN INTERFACE TO *SFSSHO$* FOR PROGRAMS 00856 M01S00658.smfsubs +++|* WRITTEN IN HIGHER LEVEL LANGUAGES. 00857 M01S00659.smfsubs +++| SSH SPACE 4,15 00858 M01S00660.smfsubs +++|*** CALLING SEQUENCE. 00859 M01S00661.smfsubs +++|* 00860 M01S00662.smfsubs +++|* *FORTRAN5* CALL - 00861 M01S00663.smfsubs +++|* 00862 M01S00664.smfsubs +++|* CALL SFSSHO(PANELNAME,INSTRING,OUTSTRING) 00863 M01S00665.smfsubs +++|* 00864 M01S00666.smfsubs +++|* *COBOL5* CALL - 00865 M01S00667.smfsubs +++|* 00866 M01S00668.smfsubs +++|* ENTER SFSSHO USING PANELNAME INSTRING,OUTSTRING. 00867 M01S00669.smfsubs +++|* 00868 M01S00670.smfsubs +++|* PANELNAME = PANEL TO BE READ. 00869 M01S00671.smfsubs +++|* OUTSTRING = DATA TO BE DISPLAYED. 00870 M01S00672.smfsubs +++|* INSTRING = INPUT FROM TERMINAL. 00871 M01S00673.smfsubs +++| SSH SPACE 4,10 00872 M01S00674.smfsubs +++|** SFSSHO - SHOW PANEL. 00873 M01S00675.smfsubs +++|* 00874 M01S00676.smfsubs +++|* ENTRY (A1) = FWA OF FORMAL PARAMETER LIST. 00875 M01S00677.smfsubs +++|* (X1) = ADRESS OF FIRST PARAMETER. 00876 M01S00678.smfsubs +++|* 00877 M01S00679.smfsubs +++|* USES A - 1. 00878 M01S00680.smfsubs +++|* B - 1, 2, 3. 00879 M01S00681.smfsubs +++|* 00880 M01S00682.smfsubs +++|* CALLS SFCNP$, SFCSP$, SFSSHO$. 00881 M01S00683.smfsubs +++| 00882 M01S00684.smfsubs +++| 00883 M01S00685.smfsubs +++| SFSSHO SUBR ENTRY/EXIT 00884 M01S00686.smfsubs +++| SB1 1 00885 M01S00687.smfsubs +++| SB2 SSHA FWA OF PARAMETER LIST 00886 M01S00688.smfsubs +++| SB3 SSHB LENGTH AND OFFSET 00887 M01S00689.smfsubs +++| RJ =XSFCSP$ COPY PANELNAME 00888 M01S00690.smfsubs +++| RJ =XSFCSP$ COPY OUTSTRING 00889 M01S00691.smfsubs +++| RJ =XSFCSP$ COPY INSTRING 00890 M01S00692.smfsubs +++| SA1 SSHA SET NEW PARAMETER LIST ADDRESS 00891 M01S00693.smfsubs +++| RJ =XSFSSHO$ READ FORMATTED SCREEN 00892 M01S00694.smfsubs +++| EQ SFSSHOX EXIT 00893 M01S00695.smfsubs +++| 00894 M01S00696.smfsubs +++| SSHA BSSZ 10 NEW PARAMETER LIST 00895 M01S00697.smfsubs +++| SSHB BSSZ 6 LENGTHS AND OFFSETS FOR PARAMETERS 00896 M01S00698.smfsubs +++| END 00897 M01S00699.smfsubs +++| 00898 M01S00700.smfsubs +++| IDENT SFCSET 00899 M01S00701.smfsubs +++| ENTRY SFCSET 00900 M01S00702.smfsubs +++| SYSCOM B1 00901 M01S00703.smfsubs +++| TITLE SFCSET - SPECIFY CHARACTER SET. 00902 M01S00704.smfsubs +++|*COMMENT SFCSET - SPECIFY CHARACTER SET.
Line S00705 Modification History | |
---|---|
M01 (Added by) | smfsubs |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00903 M02S00705.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1983. 00904 M01S00017.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00905 M01S00706.smfsubs +++| CST SPACE 4,10 00906 M01S00707.smfsubs +++|*** SFCSET - SPECIFY CHARACTER SET. 00907 M01S00708.smfsubs +++|* 00908 M01S00709.smfsubs +++|* J.T. LITTLE. 83/04/25. 00909 M01S00710.smfsubs +++| CST SPACE 4,10 00910 M01S00711.smfsubs +++|*** *SFCSET* PROVIDES AN INTERFACE TO *SFCSET$* FOR PROGRAMS 00911 M01S00712.smfsubs +++|* WRITTEN IN HIGHER LEVEL LANGUAGES. 00912 M01S00713.smfsubs +++| CST SPACE 4,15 00913 M01S00714.smfsubs +++|*** CALLING SEQUENCE. 00914 M01S00715.smfsubs +++|* 00915 M01S00716.smfsubs +++|* *FORTRAN5* CALL - 00916 M01S00717.smfsubs +++|* 00917 M01S00718.smfsubs +++|* CALL SFCSET(CHARSET) 00918 M01S00719.smfsubs +++|* 00919 M01S00720.smfsubs +++|* *COBOL5* CALL - 00920 M01S00721.smfsubs +++|* 00921 M01S00722.smfsubs +++|* ENTER SFCSET USING CHARSET. 00922 M01S00723.smfsubs +++|* 00923 M01S00724.smfsubs +++|* CHARSET = CHARACTER SET. 00924 M01S00725.smfsubs +++| CST SPACE 4,10 00925 M01S00726.smfsubs +++|** SFCSET - SPECIFY CHARACTER SET. 00926 M01S00727.smfsubs +++|* 00927 M01S00728.smfsubs +++|* ENTRY (A1) = FWA OF FORMAL PARAMETER LIST. 00928 M01S00729.smfsubs +++|* (X1) = ADRESS OF FIRST PARAMETER. 00929 M01S00730.smfsubs +++|* 00930 M01S00731.smfsubs +++|* USES A - 1. 00931 M01S00732.smfsubs +++|* B - 1, 2, 3. 00932 M01S00733.smfsubs +++|* 00933 M01S00734.smfsubs +++|* CALLS SFCNP$, SFCSP$, SFCSET$. 00934 M01S00735.smfsubs +++| 00935 M01S00736.smfsubs +++| 00936 M01S00737.smfsubs +++| SFCSET SUBR ENTRY/EXIT 00937 M01S00738.smfsubs +++| SB1 1 00938 M01S00739.smfsubs +++| SB2 CSTA FWA OF PARAMETER LIST 00939 M01S00740.smfsubs +++| SB3 CSTB LENGTH AND OFFSET 00940 M01S00741.smfsubs +++| RJ =XSFCSP$ COPY CHARSET 00941 M01S00742.smfsubs +++| SA1 CSTA SET NEW PARAMETER LIST ADDRESS 00942 M01S00743.smfsubs +++| RJ =XSFCSET$ SET CHARACTER SET 00943 M01S00744.smfsubs +++| EQ SFCSETX EXIT 00944 M01S00745.smfsubs +++| 00945 M01S00746.smfsubs +++| CSTA BSSZ 4 NEW PARAMETER LIST 00946 M01S00747.smfsubs +++| CSTB BSSZ 2 LENGTH AND OFFSET FOR PARAMETER 00947 M01S00748.smfsubs +++| 00948 M01S00749.smfsubs +++| END 00949 M01S00750.smfsubs +++| 00950 M01S00751.smfsubs +++| IDENT SFGETP 00951 M01S00752.smfsubs +++| ENTRY SFGETP 00952 M01S00753.smfsubs +++| SYSCOM B1 00953 M01S00754.smfsubs +++| TITLE SFGETP - GET CURSOR POSITION. 00954 M01S00755.smfsubs +++|*COMMENT SFGETP - GET CURSOR POSITION.
Line S00756 Modification History | |
---|---|
M01 (Added by) | smfsubs |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00955 M02S00756.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1983. 00956 M01S00018.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00957 M01S00757.smfsubs +++| STP SPACE 4,10 00958 M01S00758.smfsubs +++|*** SFGETP - GET CURSOR POSITION. 00959 M01S00759.smfsubs +++|* 00960 M01S00760.smfsubs +++|* J.T. LITTLE. 83/04/25. 00961 M01S00761.smfsubs +++| STP SPACE 4,10 00962 M01S00762.smfsubs +++|*** *SFGETP* PROVIDES AN INTERFACE TO *SFGETP$* FOR PROGRAMS 00963 M01S00763.smfsubs +++|* WRITTEN IN HIGHER LEVEL LANGUAGES. 00964 M01S00764.smfsubs +++| STP SPACE 4,15 00965 M01S00765.smfsubs +++|*** CALLING SEQUENCE. 00966 M01S00766.smfsubs +++|* 00967 M01S00767.smfsubs +++|* *FORTRAN5* CALL - 00968 M01S00768.smfsubs +++|* 00969 M01S00769.smfsubs +++|* CALL SFGETP(VARNAME,OFFSET,ROW) 00970 M01S00770.smfsubs +++|* 00971 M01S00771.smfsubs +++|* *COBOL5* CALL - 00972 M01S00772.smfsubs +++|* 00973 M01S00773.smfsubs +++|* ENTER SFGETP USING VARNAME, OFFSET, ROW. 00974 M01S00774.smfsubs +++|* 00975 M01S00775.smfsubs +++|* VARNAME = NAME OF VARIABLE. 00976 M01S00776.smfsubs +++|* OFFSET = OFFSET IN FIELD. 00977 M01S00777.smfsubs +++| STP SPACE 4,10 00978 M01S00778.smfsubs +++|** SFGETP - GET CURSOR POSITION. 00979 M01S00779.smfsubs +++|* 00980 M01S00780.smfsubs +++|* ENTRY (A1) = FWA OF FORMAL PARAMETER LIST. 00981 M01S00781.smfsubs +++|* (X1) = ADRESS OF FIRST PARAMETER. 00982 M01S00782.smfsubs +++|* 00983 M01S00783.smfsubs +++|* USES A - 1. 00984 M01S00784.smfsubs +++|* B - 1, 2, 3. 00985 M01S00785.smfsubs +++|* 00986 M01S00786.smfsubs +++|* CALLS SFCNP$, SFCSP$, SFGETP$. 00987 M01S00787.smfsubs +++| 00988 M01S00788.smfsubs +++| 00989 M01S00789.smfsubs +++| SFGETP SUBR ENTRY/EXIT 00990 M01S00790.smfsubs +++| SB1 1 00991 M01S00791.smfsubs +++| SB2 STPA FWA OF PARAMETER LIST 00992 M01S00792.smfsubs +++| SB3 STPB LENGTH AND OFFSET 00993 M01S00793.smfsubs +++| RJ =XSFCSP$ COPY VARNAME 00994 M01S00794.smfsubs +++| RJ =XSFCNP$ COPY OFFSET 00995 M01S00795.smfsubs +++| RJ =XSFCNP$ COPY ROW 00996 M01S00796.smfsubs +++| SA1 STPA GET NEW PARAMETER LIST ADDRESS 00997 M01S00797.smfsubs +++| RJ =XSFGETP$ GET CURSOR POSITION 00998 M01S00798.smfsubs +++| EQ SFGETPX EXIT 00999 M01S00799.smfsubs +++| 01000 M01S00800.smfsubs +++| STPA BSSZ 6 NEW PARAMETER LIST 01001 M01S00801.smfsubs +++| STPB BSSZ 2 LENGTH AND OFFSET FOR PARAMETERS 01002 M01S00802.smfsubs +++| 01003 M01S00803.smfsubs +++| END 01004 M01S00804.smfsubs +++| 01005 M01S00805.smfsubs +++| IDENT SFOPEN 01006 M01S00806.smfsubs +++| ENTRY SFOPEN 01007 M01S00807.smfsubs +++| SYSCOM B1 01008 M01S00808.smfsubs +++| TITLE SFOPEN - OPEN PANEL. 01009 M01S00809.smfsubs +++|*COMMENT SFOPEN - OPEN PANEL.
Line S00810 Modification History | |
---|---|
M01 (Added by) | smfsubs |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 01010 M02S00810.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1983. 01011 M01S00019.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 01012 M01S00811.smfsubs +++| SOP SPACE 4,10 01013 M01S00812.smfsubs +++|*** SFOPEN - OPEN PANEL. 01014 M01S00813.smfsubs +++|* 01015 M01S00814.smfsubs +++|* J.T. LITTLE. 83/04/25. 01016 M01S00815.smfsubs +++| SOP SPACE 4,10 01017 M01S00816.smfsubs +++|*** *SFOPEN* PROVIDES AN INTERFACE TO *SFOPEN$* FOR PROGRAMS 01018 M01S00817.smfsubs +++|* WRITTEN IN HIGHER LEVEL LANGUAGES. 01019 M01S00818.smfsubs +++| SOP SPACE 4,15 01020 M01S00819.smfsubs +++|*** CALLING SEQUENCE. 01021 M01S00820.smfsubs +++|* 01022 M01S00821.smfsubs +++|* *FORTRAN5* CALL - 01023 M01S00822.smfsubs +++|* 01024 M01S00823.smfsubs +++|* CALL SFOPEN(PANELNAME,STATUS) 01025 M01S00824.smfsubs +++|* 01026 M01S00825.smfsubs +++|* *COBOL5* CALL - 01027 M01S00826.smfsubs +++|* 01028 M01S00827.smfsubs +++|* ENTER SFOPEN USING PANELNAME STATUS. 01029 M01S00828.smfsubs +++|* 01030 M01S00829.smfsubs +++|* PANELNAME = PANEL TO BE OPENED. 01031 M01S00830.smfsubs +++|* STATUS = RETURNS OPEN STATUS. 01032 M01S00831.smfsubs +++| SOP SPACE 4,10 01033 M01S00832.smfsubs +++|** SFOPEN - OPEN PANEL. 01034 M01S00833.smfsubs +++|* 01035 M01S00834.smfsubs +++|* ENTRY (A1) = FWA OF FORMAL PARAMETER LIST. 01036 M01S00835.smfsubs +++|* (X1) = ADRESS OF FIRST PARAMETER. 01037 M01S00836.smfsubs +++|* 01038 M01S00837.smfsubs +++|* USES A - 1. 01039 M01S00838.smfsubs +++|* B - 1, 2, 3. 01040 M01S00839.smfsubs +++|* 01041 M01S00840.smfsubs +++|* CALLS SFCNP$, SFCSP$, SFOPEN$. 01042 M01S00841.smfsubs +++| 01043 M01S00842.smfsubs +++| 01044 M01S00843.smfsubs +++| SFOPEN SUBR ENTRY/EXIT 01045 M01S00844.smfsubs +++| SB1 1 01046 M01S00845.smfsubs +++| SB2 SOPA FWA OF PARAMETER LIST 01047 M01S00846.smfsubs +++| SB3 SOPB LENGTH AND OFFSET 01048 M01S00847.smfsubs +++| RJ =XSFCSP$ COPY PANELNAME 01049 M01S00848.smfsubs +++| RJ =XSFCNP$ COPY STATUS 01050 M01S00849.smfsubs +++| SA1 SOPA SET NEW PARAMETER LIST ADDRESS 01051 M01S00850.smfsubs +++| RJ =XSFOPEN$ OPEN PANEL 01052 M01S00851.smfsubs +++| EQ SFOPENX EXIT 01053 M01S00852.smfsubs +++| 01054 M01S00853.smfsubs +++| SOPA BSSZ 5 NEW PARAMETER LIST 01055 M01S00854.smfsubs +++| SOPB BSSZ 2 LENGTH AND OFFSET FOR PARAMETERS 01056 M01S00855.smfsubs +++| END 01057 M01S00856.smfsubs +++| 01058 M01S00857.smfsubs +++| IDENT SFCLOS 01059 M01S00858.smfsubs +++| ENTRY SFCLOS 01060 M01S00859.smfsubs +++| SYSCOM B1 01061 M01S00860.smfsubs +++| TITLE SFCLOS - CLOSE PANEL. 01062 M01S00861.smfsubs +++|*COMMENT SFCLOS - CLOSE PANEL.
Line S00862 Modification History | |
---|---|
M01 (Added by) | smfsubs |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 01063 M02S00862.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1983. 01064 M01S00020.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 01065 M01S00863.smfsubs +++| SCL SPACE 4,10 01066 M01S00864.smfsubs +++|*** SFCLOS - CLOSE PANEL. 01067 M01S00865.smfsubs +++|* 01068 M01S00866.smfsubs +++|* J.T. LITTLE. 83/04/25. 01069 M01S00867.smfsubs +++| SCL SPACE 4,10 01070 M01S00868.smfsubs +++|*** *SFCLOS* PROVIDES AN INTERFACE TO *SFCLOS$* FOR PROGRAMS 01071 M01S00869.smfsubs +++|* WRITTEN IN HIGHER LEVEL LANGUAGES. 01072 M01S00870.smfsubs +++| SCL SPACE 4,15 01073 M01S00871.smfsubs +++|*** CALLING SEQUENCE. 01074 M01S00872.smfsubs +++|* 01075 M01S00873.smfsubs +++|* *FORTRAN5* CALL - 01076 M01S00874.smfsubs +++|* 01077 M01S00875.smfsubs +++|* CALL SFCLOS(PANELNAME,STATUS) 01078 M01S00876.smfsubs +++|* 01079 M01S00877.smfsubs +++|* *COBOL5* CALL - 01080 M01S00878.smfsubs +++|* 01081 M01S00879.smfsubs +++|* ENTER SFCLOS USING PANELNAME STATUS. 01082 M01S00880.smfsubs +++|* 01083 M01S00881.smfsubs +++|* PANELNAME = PANEL TO BE CLOSED. 01084 M01S00882.smfsubs +++|* STATUS = RETURNS CLOSE STATUS. 01085 M01S00883.smfsubs +++| SCL SPACE 4,10 01086 M01S00884.smfsubs +++|** SFCLOS - CLOSE PANEL. 01087 M01S00885.smfsubs +++|* 01088 M01S00886.smfsubs +++|* ENTRY (A1) = FWA OF FORMAL PARAMETER LIST. 01089 M01S00887.smfsubs +++|* (X1) = ADDRESS OF FIRST PARAMETER. 01090 M01S00888.smfsubs +++|* 01091 M01S00889.smfsubs +++|* USES A - 1. 01092 M01S00890.smfsubs +++|* B - 1, 2, 3. 01093 M01S00891.smfsubs +++|* 01094 M01S00892.smfsubs +++|* CALLS SFCNP$, SFCSP$, SFCLOS$. 01095 M01S00893.smfsubs +++| 01096 M01S00894.smfsubs +++| 01097 M01S00895.smfsubs +++| SFCLOS SUBR ENTRY/EXIT 01098 M01S00896.smfsubs +++| SB1 1 01099 M01S00897.smfsubs +++| SB2 SCLA FWA OF PARAMETER LIST 01100 M01S00898.smfsubs +++| SB3 SCLB LENGTH AND OFFSET 01101 M01S00899.smfsubs +++| RJ =XSFCSP$ COPY PANELNAME 01102 M01S00900.smfsubs +++| RJ =XSFCNP$ COPY STATUS 01103 M01S00901.smfsubs +++| SA1 SCLA SET NEW PARAMETER LIST ADDRESS 01104 M01S00902.smfsubs +++| RJ =XSFCLOS$ CLOSE PANEL 01105 M01S00903.smfsubs +++| EQ SFCLOSX EXIT 01106 M01S00904.smfsubs +++| 01107 M01S00905.smfsubs +++| SCLA BSSZ 5 NEW PARAMETER LIST 01108 M01S00906.smfsubs +++| SCLB BSSZ 2 LENGTH AND OFFSET FOR PARAMETERS 01109 M01S00907.smfsubs +++| END 01110 M01S00908.smfsubs +++| IDENT CSFCLOS 01111 M01S00909.smfsubs +++| ENTRY CSFCLOS 01112 M01S00910.smfsubs +++| SYSCOM B1 01113 M01S00911.smfsubs +++| TITLE CSFCLOS - *CYBIL* INTERFACE TO *SFCLOS$*. 01114 M01S00912.smfsubs +++|*COMMENT CSFCLOS - *CYBIL* INTERFACE TO *SFCLOS$*
Line S00913 Modification History | |
---|---|
M01 (Added by) | smfsubs |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 01115 M02S00913.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1984. 01116 M01S00021.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 01117 M01S00914.smfsubs +++| CLO SPACE 4,10 01118 M01S00915.smfsubs +++|*** CSFCLOS - *CYBIL* INTERFACE TO *SFCLOS$*. 01119 M01S00916.smfsubs +++|* 01120 M01S00917.smfsubs +++|* M. L. SWANSON. 84/05/16. 01121 M01S00918.smfsubs +++| CLO SPACE 4,10 01122 M01S00919.smfsubs +++|*** *CSFCLOS* PROVIDES AN INTERFACE TO *SFCLOS$* BY 01123 M01S00920.smfsubs +++|* SAVING THE *CYBIL* STACK DISCIPLINE VARIABLES AND 01124 M01S00921.smfsubs +++|* REFORMATTING THE PARAMETER LIST FOR THE CALL TO THE 01125 M01S00922.smfsubs +++|* SYMPL ROUTINE, *SFCLOS$*. 01126 M01S00923.smfsubs +++| CLO SPACE 4,10 01127 M01S00924.smfsubs +++|** COMMON DECKS. 01128 M01S00925.smfsubs +++| 01129 M01S00926.smfsubs +++| 01130 M01S00927.smfsubs +++|*CALL COMFCID 01131 M01S00928.smfsubs +++| CLO SPACE 4,10 01132 M01S00929.smfsubs +++|*** CSFCLOS - *CYBIL* INTERFACE TO *SFCLOS$*. 01133 M01S00930.smfsubs +++|* 01134 M01S00931.smfsubs +++|* CALLING SEQUENCE. 01135 M01S00932.smfsubs +++|* *CYBIL* CALL - 01136 M01S00933.smfsubs +++|* 01137 M01S00934.smfsubs +++|* CSFCLOS(PANELNAME, MODE); 01138 M01S00935.smfsubs +++|* 01139 M01S00936.smfsubs +++|* PANELNAME = NAME OF PANEL TO BE CLOSED. 01140 M01S00937.smfsubs +++|* MODE = MODE TO REVERT TO AFTER PANEL CLOSED. 01141 M01S00938.smfsubs +++| CLO SPACE 4,10 01142 M01S00939.smfsubs +++|** CSFCLOS - *COMPASS* INTERFACE TO *SFCLOS$* CALL. 01143 M01S00940.smfsubs +++|* 01144 M01S00941.smfsubs +++|* ENTRY CONDITIONS 01145 M01S00942.smfsubs +++|* B1 1 01146 M01S00943.smfsubs +++|* B2 POINTER TO CALLER'S STACK FRAME 01147 M01S00944.smfsubs +++|* B3 STACK LIMIT 01148 M01S00945.smfsubs +++|* B4 STATIC LINK 01149 M01S00946.smfsubs +++|* X1 POINTER TO *PANELNAME* 01150 M01S00947.smfsubs +++|* X2 POINTER TO *MODE* 01151 M01S00948.smfsubs +++|* B5 POINTER TO ARGUMENT EXTENSION LIST 01152 M01S00949.smfsubs +++|* X7 PROCEDURE LINKAGE WORD (RETURN ADDRESS) 01153 M01S00950.smfsubs +++|* 01154 M01S00951.smfsubs +++|* EXIT CONDITIONS 01155 M01S00952.smfsubs +++|* B1 1 01156 M01S00953.smfsubs +++|* B2 AS ON ENTRY 01157 M01S00954.smfsubs +++|* B3 AS ON ENTRY 01158 M01S00955.smfsubs +++|* B4 AS ON ENTRY 01159 M01S00956.smfsubs +++|* X1 AS X7 ON ENTRY 01160 M01S00957.smfsubs +++|* 01161 M01S00958.smfsubs +++|* USES X - 1, 2, 3, 4, 6, 7. 01162 M01S00959.smfsubs +++|* A - 1, 2, 3, 4, 6, 7. 01163 M01S00960.smfsubs +++|* B - 1, 2, 3, 4. 01164 M01S00961.smfsubs +++|* 01165 M01S00962.smfsubs +++|* CALLS SFCLOS$. 01166 M01S00963.smfsubs +++| 01167 M01S00964.smfsubs +++| 01168 M01S00965.smfsubs +++| CSFCLOS ENTR ENTRY/EXIT 01169 M01S00966.smfsubs +++| SB1 1 01170 M01S00967.smfsubs +++| SX6 B2 01171 M01S00968.smfsubs +++| SX7 B3 01172 M01S00969.smfsubs +++| SA6 CLOA SAVE POINTER TO STACK FRAME 01173 M01S00970.smfsubs +++| SA7 CLOB SAVE STACK LIMIT 01174 M01S00971.smfsubs +++| SX6 B4 01175 M01S00972.smfsubs +++| SA6 CLOC SAVE STATIC LINK 01176 M01S00973.smfsubs +++| BX6 X1 01177 M01S00974.smfsubs +++| 01178 M01S00975.smfsubs +++|* *PANELNAME* PARAMETER IS PASSED CALL-BY-ADDRESS. 01179 M01S00976.smfsubs +++| 01180 M01S00977.smfsubs +++| SA6 CLOD SAVE POINTER TO *PANELNAME* 01181 M01S00978.smfsubs +++| BX6 X2 01182 M01S00979.smfsubs +++| SA6 CLOJ SAVE *MODE* 01183 M01S00980.smfsubs +++| SA1 CLOD GET FIRST WORD ADDRESS OF PARAMETER LIST 01184 M01S00981.smfsubs +++| RJ =XSFCLOS$ 01185 M01S00982.smfsubs +++| 01186 M01S00983.smfsubs +++|* RESTORE REGISTERS. 01187 M01S00984.smfsubs +++| 01188 M01S00985.smfsubs +++| SB1 1 RESTORE B1 AFTER *SYMPL* ERROR 01189 M01S00986.smfsubs +++| SA2 CLOA GET POINTER TO STACK FRAME 01190 M01S00987.smfsubs +++| SA3 CLOB GET STACK LIMIT 01191 M01S00988.smfsubs +++| SA4 CLOC GET STATIC LINK 01192 M01S00989.smfsubs +++| SB2 X2 RETURN TO B2 01193 M01S00990.smfsubs +++| SB3 X3 RETURN TO B3 01194 M01S00991.smfsubs +++| SB4 X4 RETURN TO B2 01195 M01S00992.smfsubs +++| DONE RETURN 01196 M01S00993.smfsubs +++| 01197 M01S00994.smfsubs +++| CLOA VFD 60/0 POINTER TO STACK FRAME 01198 M01S00995.smfsubs +++| CLOB VFD 60/0 STACK LIMIT 01199 M01S00996.smfsubs +++| CLOC VFD 60/0 STATIC LINK 01200 M01S00997.smfsubs +++| 01201 M01S00998.smfsubs +++|* PARAMETER BLOCK FOR SYMPL PROCEDURE CALL. 01202 M01S00999.smfsubs +++| 01203 M01S01000.smfsubs +++| CLOD VFD 60/0 ADDRESS OF *PANELNAME* PARAMETER 01204 M01S01001.smfsubs +++| CLOE VFD 60/CLOH ADDRESS OF *NLENGTH* PARAMETER 01205 M01S01002.smfsubs +++| CLOF VFD 60/CLOI ADDRESS OF *NOFFSET* PARAMETER 01206 M01S01003.smfsubs +++| CLOG VFD 60/CLOJ ADDRESS OF *MODE* PARAMETER 01207 M01S01004.smfsubs +++| 01208 M01S01005.smfsubs +++| CLOH VFD 60/7 *NLENGTH* 01209 M01S01006.smfsubs +++| CLOI VFD 60/0 *NOFFSET* 01210 M01S01007.smfsubs +++| CLOJ VFD 60/0 *MODE* 01211 M01S01008.smfsubs +++| 01212 M01S01009.smfsubs +++| END 01213 M01S01010.smfsubs +++| IDENT CSFGETI 01214 M01S01011.smfsubs +++| ENTRY CSFGETI 01215 M01S01012.smfsubs +++| SYSCOM B1 01216 M01S01013.smfsubs +++| TITLE CSFGETI - *CYBIL* INTERFACE TO *SFGETI$*. 01217 M01S01014.smfsubs +++|*COMMENT CSFGETI - *CYBIL* INTERFACE TO *SFGETI$*
Line S01015 Modification History | |
---|---|
M01 (Added by) | smfsubs |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 01218 M02S01015.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1984. 01219 M01S00022.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 01220 M01S01016.smfsubs +++| GTI SPACE 4,10 01221 M01S01017.smfsubs +++|*** CSFGETI - *COMPASS* INTERFACE TO *SFGETI$* CALL. 01222 M01S01018.smfsubs +++|* 01223 M01S01019.smfsubs +++|* M. L. SWANSON. 84/05/16. 01224 M01S01020.smfsubs +++| GTI SPACE 4,10 01225 M01S01021.smfsubs +++|*** *CSFGETI* PROVIDES AN INTERFACE TO *SFGETI$* BY 01226 M01S01022.smfsubs +++|* SAVING THE *CYBIL* STACK DISCIPLINE VARIABLES AND 01227 M01S01023.smfsubs +++|* REFORMATTING THE PARAMETER LIST FOR THE CALL TO THE 01228 M01S01024.smfsubs +++|* SYMPL ROUTINE, *SFGETI$*. 01229 M01S01025.smfsubs +++| GTI SPACE 4,10 01230 M01S01026.smfsubs +++|** COMMON DECKS. 01231 M01S01027.smfsubs +++| 01232 M01S01028.smfsubs +++| 01233 M01S01029.smfsubs +++|*CALL COMFCID 01234 M01S01030.smfsubs +++| GTI SPACE 4,10 01235 M01S01031.smfsubs +++|*** CSFGETI - *CYBIL* INTERFACE TO *SFGETI$*. 01236 M01S01032.smfsubs +++|* 01237 M01S01033.smfsubs +++|* CALLING SEQUENCE. 01238 M01S01034.smfsubs +++|* *CYBIL* CALL - 01239 M01S01035.smfsubs +++|* 01240 M01S01036.smfsubs +++|* CSFGETI(VARNAME, VALUE); 01241 M01S01037.smfsubs +++|* 01242 M01S01038.smfsubs +++|* VARNAME = FIELD NAME OF THE PANEL VARIABLE. 01243 M01S01039.smfsubs +++|* VALUE = INTEGER VALUE TO BE RETURNED. 01244 M01S01040.smfsubs +++| GTI SPACE 4,10 01245 M01S01041.smfsubs +++|** CSFGETI - *COMPASS* INTERFACE TO *SFGETI$* CALL. 01246 M01S01042.smfsubs +++|* 01247 M01S01043.smfsubs +++|* ENTRY CONDITIONS 01248 M01S01044.smfsubs +++|* B1 1 01249 M01S01045.smfsubs +++|* B2 POINTER TO CALLER'S STACK FRAME 01250 M01S01046.smfsubs +++|* B3 STACK LIMIT 01251 M01S01047.smfsubs +++|* B4 STATIC LINK 01252 M01S01048.smfsubs +++|* X1 POINTER TO *VARNAME* 01253 M01S01049.smfsubs +++|* X2 POINTER TO *VALUE* 01254 M01S01050.smfsubs +++|* B5 POINTER TO ARGUMENT EXTENSION LIST 01255 M01S01051.smfsubs +++|* X7 PROCEDURE LINKAGE WORD (RETURN ADDRESS) 01256 M01S01052.smfsubs +++|* 01257 M01S01053.smfsubs +++|* EXIT CONDITIONS 01258 M01S01054.smfsubs +++|* B1 1 01259 M01S01055.smfsubs +++|* B2 AS ON ENTRY 01260 M01S01056.smfsubs +++|* B3 AS ON ENTRY 01261 M01S01057.smfsubs +++|* B4 AS ON ENTRY 01262 M01S01058.smfsubs +++|* X1 AS X7 ON ENTRY 01263 M01S01059.smfsubs +++|* 01264 M01S01060.smfsubs +++|* USES X - 1, 2, 3, 4, 6, 7. 01265 M01S01061.smfsubs +++|* A - 1, 2, 3, 4, 6, 7. 01266 M01S01062.smfsubs +++|* B - 1, 2, 3, 4. 01267 M01S01063.smfsubs +++|* 01268 M01S01064.smfsubs +++|* CALLS SFGETI$. 01269 M01S01065.smfsubs +++| 01270 M01S01066.smfsubs +++| 01271 M01S01067.smfsubs +++| CSFGETI ENTR ENTRY/EXIT 01272 M01S01068.smfsubs +++| SB1 1 01273 M01S01069.smfsubs +++| SX6 B2 01274 M01S01070.smfsubs +++| SX7 B3 01275 M01S01071.smfsubs +++| SA6 GTIA SAVE POINTER TO STACK FRAME 01276 M01S01072.smfsubs +++| SA7 GTIB SAVE STACK LIMIT 01277 M01S01073.smfsubs +++| SX6 B4 01278 M01S01074.smfsubs +++| SA6 GTIC SAVE STATIC LINK 01279 M01S01075.smfsubs +++| BX6 X1 01280 M01S01076.smfsubs +++| SA6 GTID SAVE POINTER TO *VARNAME* 01281 M01S01077.smfsubs +++| BX6 X2 01282 M01S01078.smfsubs +++| SA6 GTIG SAVE POINTER TO *VALUE* 01283 M01S01079.smfsubs +++| SA1 GTID GET FIRST WORD ADDRESS OF PARAMETER LIST 01284 M01S01080.smfsubs +++| RJ =XSFGETI$ 01285 M01S01081.smfsubs +++| 01286 M01S01082.smfsubs +++|* RESTORE REGISTERS. 01287 M01S01083.smfsubs +++| 01288 M01S01084.smfsubs +++| SB1 1 RESTORE B1 AFTER *SYMPL* ERROR 01289 M01S01085.smfsubs +++| SA2 GTIA GET POINTER TO STACK FRAME 01290 M01S01086.smfsubs +++| SA3 GTIB GET STACK LIMIT 01291 M01S01087.smfsubs +++| SA4 GTIC GET STATIC LINK 01292 M01S01088.smfsubs +++| SB2 X2 RETURN TO B2 01293 M01S01089.smfsubs +++| SB3 X3 RETURN TO B3 01294 M01S01090.smfsubs +++| SB4 X4 RETURN TO B4 01295 M01S01091.smfsubs +++| DONE RETURN 01296 M01S01092.smfsubs +++| 01297 M01S01093.smfsubs +++| GTIA VFD 60/0 POINTER TO STACK FRAME 01298 M01S01094.smfsubs +++| GTIB VFD 60/0 STACK LIMIT 01299 M01S01095.smfsubs +++| GTIC VFD 60/0 STATIC LINK 01300 M01S01096.smfsubs +++| 01301 M01S01097.smfsubs +++|* PARAMETER BLOCK FOR *SYMPL* PROCEDURE CALL. 01302 M01S01098.smfsubs +++| 01303 M01S01099.smfsubs +++| GTID VFD 60/0 ADDRESS OF *VARNAME* PARAMETER 01304 M01S01100.smfsubs +++| GTIE VFD 60/GTIH ADDRESS OF *VLEN* PARAMETER 01305 M01S01101.smfsubs +++| GTIF VFD 60/GTII ADDRESS OF *VOFF* PARAMETER 01306 M01S01102.smfsubs +++| GTIG VFD 60/0 ADDRESS OF *VALUE* PARAMETER 01307 M01S01103.smfsubs +++| 01308 M01S01104.smfsubs +++| GTIH VFD 60/7 *VLEN* 01309 M01S01105.smfsubs +++| GTII VFD 60/0 *VOFF* 01310 M01S01106.smfsubs +++| 01311 M01S01107.smfsubs +++| END 01312 M01S01108.smfsubs +++| IDENT CSFGETK 01313 M01S01109.smfsubs +++| ENTRY CSFGETK 01314 M01S01110.smfsubs +++| SYSCOM B1 01315 M01S01111.smfsubs +++| TITLE CSFGETK - *CYBIL* INTERFACE TO *SFGETK$*. 01316 M01S01112.smfsubs +++|*COMMENT CSFGETI - *CYBIL* INTERFACE TO *SFGETK$*
Line S01113 Modification History | |
---|---|
M01 (Added by) | smfsubs |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 01317 M02S01113.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1984. 01318 M01S00023.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 01319 M01S01114.smfsubs +++| GTK SPACE 4,10 01320 M01S01115.smfsubs +++|*** CSFGETK - *COMPASS* INTERFACE TO *SFGETK$* CALL. 01321 M01S01116.smfsubs +++|* 01322 M01S01117.smfsubs +++|* M. L. SWANSON. 84/05/16. 01323 M01S01118.smfsubs +++| GTK SPACE 4,10 01324 M01S01119.smfsubs +++|*** *CSFGETK* PROVIDES AN INTERFACE TO *SFGETK$* BY 01325 M01S01120.smfsubs +++|* SAVING THE *CYBIL* STACK DISCIPLINE VARIABLES AND 01326 M01S01121.smfsubs +++|* REFORMATTING THE PARAMETER LIST FOR THE CALL TO THE 01327 M01S01122.smfsubs +++|* SYMPL ROUTINE, *SFGETK$*. 01328 M01S01123.smfsubs +++| GTK SPACE 4,10 01329 M01S01124.smfsubs +++|** COMMON DECKS. 01330 M01S01125.smfsubs +++| 01331 M01S01126.smfsubs +++| 01332 M01S01127.smfsubs +++|*CALL COMFCID 01333 M01S01128.smfsubs +++| GTK SPACE 4,10 01334 M01S01129.smfsubs +++|*** CSFGETK - *CYBIL* INTERFACE TO *SFGETK$*. 01335 M01S01130.smfsubs +++|* 01336 M01S01131.smfsubs +++|* CALLING SEQUENCE. 01337 M01S01132.smfsubs +++|* *CYBIL* CALL - 01338 M01S01133.smfsubs +++|* 01339 M01S01134.smfsubs +++|* CSFGETK(TYPE, VALUE); 01340 M01S01135.smfsubs +++|* 01341 M01S01136.smfsubs +++|* TYPE = FUNCTION KEY TYPE. 01342 M01S01137.smfsubs +++|* VALUE = INTEGER FUNCTION KEY NUMBER. 01343 M01S01138.smfsubs +++| GTK SPACE 4,10 01344 M01S01139.smfsubs +++|** CSFGETK - *COMPASS* INTERFACE TO *SFGETK$* CALL. 01345 M01S01140.smfsubs +++|* 01346 M01S01141.smfsubs +++|* ENTRY CONDITIONS 01347 M01S01142.smfsubs +++|* B1 1 01348 M01S01143.smfsubs +++|* B2 POINTER TO CALLER'S STACK FRAME 01349 M01S01144.smfsubs +++|* B3 STACK LIMIT 01350 M01S01145.smfsubs +++|* B4 STATIC LINK 01351 M01S01146.smfsubs +++|* X1 FUNCTION KEY TYPE 01352 M01S01147.smfsubs +++|* X2 POINTER TO *VALUE* 01353 M01S01148.smfsubs +++|* B5 POINTER TO ARGUMENT EXTENSION LIST 01354 M01S01149.smfsubs +++|* X7 PROCEDURE LINKAGE WORD (RETURN ADDRESS) 01355 M01S01150.smfsubs +++|* 01356 M01S01151.smfsubs +++|* EXIT CONDITIONS 01357 M01S01152.smfsubs +++|* B1 1 01358 M01S01153.smfsubs +++|* B2 AS ON ENTRY 01359 M01S01154.smfsubs +++|* B3 AS ON ENTRY 01360 M01S01155.smfsubs +++|* B4 AS ON ENTRY 01361 M01S01156.smfsubs +++|* X1 AS X7 ON ENTRY 01362 M01S01157.smfsubs +++|* 01363 M01S01158.smfsubs +++|* USES X - 1, 2, 3, 4, 6, 7. 01364 M01S01159.smfsubs +++|* A - 1, 2, 3, 4, 6, 7. 01365 M01S01160.smfsubs +++|* B - 1, 2, 3, 4. 01366 M01S01161.smfsubs +++|* 01367 M01S01162.smfsubs +++|* CALLS SFGETK. 01368 M01S01163.smfsubs +++| 01369 M01S01164.smfsubs +++| 01370 M01S01165.smfsubs +++| CSFGETK ENTR ENTRY/EXIT 01371 M01S01166.smfsubs +++| SB1 1 01372 M01S01167.smfsubs +++| SX6 B2 01373 M01S01168.smfsubs +++| SX7 B3 01374 M01S01169.smfsubs +++| SA6 GTKA SAVE POINTER TO STACK FRAME 01375 M01S01170.smfsubs +++| SA7 GTKB SAVE STACK LIMIT 01376 M01S01171.smfsubs +++| SX6 B4 01377 M01S01172.smfsubs +++| SA6 GTKC SAVE STATIC LINK 01378 M01S01173.smfsubs +++| BX6 X1 01379 M01S01174.smfsubs +++| SA6 GTKD SAVE POINTER TO *TYPE* 01380 M01S01175.smfsubs +++| BX6 X2 01381 M01S01176.smfsubs +++| SA6 GTKE SAVE POINTER TO *VALUE* 01382 M01S01177.smfsubs +++| SA1 GTKD GET FIRST WORD ADDRESS OF PARAMETER LIST 01383 M01S01178.smfsubs +++| RJ =XSFGETK 01384 M01S01179.smfsubs +++| 01385 M01S01180.smfsubs +++|* RESTORE REGISTERS. 01386 M01S01181.smfsubs +++| 01387 M01S01182.smfsubs +++| SB1 1 RESTORE B1 AFTER *SYMPL* ERROR 01388 M01S01183.smfsubs +++| SA2 GTKA GET POINTER TO STACK FRAME 01389 M01S01184.smfsubs +++| SA3 GTKB GET STACK LIMIT 01390 M01S01185.smfsubs +++| SA4 GTKC GET STACK LINK 01391 M01S01186.smfsubs +++| SB2 X2 RETURN IN B2 01392 M01S01187.smfsubs +++| SB3 X3 RETURN IN B3 01393 M01S01188.smfsubs +++| SB4 X4 RETURN IN B4 01394 M01S01189.smfsubs +++| DONE RETURN 01395 M01S01190.smfsubs +++| 01396 M01S01191.smfsubs +++| GTKA VFD 60/0 POINTER TO STACK FRAME 01397 M01S01192.smfsubs +++| GTKB VFD 60/0 STACK LIMIT 01398 M01S01193.smfsubs +++| GTKC VFD 60/0 STATIC LINK 01399 M01S01194.smfsubs +++| 01400 M01S01195.smfsubs +++|* PARAMETER BLOCK FOR *SYMPL* PROCEDURE CALL. 01401 M01S01196.smfsubs +++| 01402 M01S01197.smfsubs +++| GTKD VFD 60/0 ADDRESS OF *TYPE* 01403 M01S01198.smfsubs +++| GTKE VFD 60/0 ADDRESS OF *VALUE* 01404 M01S01199.smfsubs +++| 01405 M01S01200.smfsubs +++| END 01406 M01S01201.smfsubs +++| IDENT CSFGETP 01407 M01S01202.smfsubs +++| ENTRY CSFGETP 01408 M01S01203.smfsubs +++| SYSCOM B1 01409 M01S01204.smfsubs +++| TITLE CSFGETP - *CYBIL* INTERFACE TO *SFGETP$*. 01410 M01S01205.smfsubs +++|*COMMENT CSFGETP - *CYBIL* INTERFACE TO *SFGETP$*
Line S01206 Modification History | |
---|---|
M01 (Added by) | smfsubs |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 01411 M02S01206.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1984. 01412 M01S00024.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 01413 M01S01207.smfsubs +++| GTP SPACE 4,10 01414 M01S01208.smfsubs +++|*** CSFGETP - *COMPASS* INTERFACE TO *SFGETP$* CALL. 01415 M01S01209.smfsubs +++|* 01416 M01S01210.smfsubs +++|* M. L. SWANSON. 84/05/29. 01417 M01S01211.smfsubs +++| GTP SPACE 4,10 01418 M01S01212.smfsubs +++|*** *CSFGETP* PROVIDES AN INTERFACE TO *SFGETP$* BY 01419 M01S01213.smfsubs +++|* SAVING THE *CYBIL* STACK DISCIPLINE VARIABLES AND 01420 M01S01214.smfsubs +++|* REFORMATTING THE PARAMETER LIST FOR THE CALL TO THE 01421 M01S01215.smfsubs +++|* SYMPL ROUTINE, *SFGETP$*. 01422 M01S01216.smfsubs +++| GTP SPACE 4,10 01423 M01S01217.smfsubs +++|** COMMON DECKS. 01424 M01S01218.smfsubs +++| 01425 M01S01219.smfsubs +++| 01426 M01S01220.smfsubs +++|*CALL COMFCID 01427 M01S01221.smfsubs +++| GTP SPACE 4,10 01428 M01S01222.smfsubs +++|*** CSFGETP - *CYBIL* INTERFACE TO *SFGETP$*. 01429 M01S01223.smfsubs +++|* 01430 M01S01224.smfsubs +++|* CALLING SEQUENCE. 01431 M01S01225.smfsubs +++|* *CYBIL* CALL - 01432 M01S01226.smfsubs +++|* 01433 M01S01227.smfsubs +++|* CSFGETP(FIELDNAME,INDEX, ROW); 01434 M01S01228.smfsubs +++|* 01435 M01S01229.smfsubs +++|* FIELDNAME = NAME OF FIELD. 01436 M01S01230.smfsubs +++|* INDEX = CHARACTER POSITION WITHIN THE VARIABLE FIELD. 01437 M01S01231.smfsubs +++|* ROW = THE ROW NUMBER OF THE VARIABLE FIELD. 01438 M01S01232.smfsubs +++| GTP SPACE 4,10 01439 M01S01233.smfsubs +++|** CSFGETP - *COMPASS* INTERFACE TO *SFGETP$* CALL. 01440 M01S01234.smfsubs +++|* 01441 M01S01235.smfsubs +++|* ENTRY CONDITIONS 01442 M01S01236.smfsubs +++|* B1 1 01443 M01S01237.smfsubs +++|* B2 POINTER TO CALLER'S STACK FRAME 01444 M01S01238.smfsubs +++|* B3 STACK LIMIT 01445 M01S01239.smfsubs +++|* B4 STATIC LINK 01446 M01S01240.smfsubs +++|* X1 POINTER TO *FIELDNAME* 01447 M01S01241.smfsubs +++|* X2 POINTER TO *INDEX* 01448 M01S01242.smfsubs +++|* X3 POINTER TO *ROW* 01449 M01S01243.smfsubs +++|* B5 POINTER TO ARGUMENT EXTENSION LIST 01450 M01S01244.smfsubs +++|* X7 PROCEDURE LINKAGE WORD (RETURN ADDRESS) 01451 M01S01245.smfsubs +++|* 01452 M01S01246.smfsubs +++|* EXIT CONDITIONS 01453 M01S01247.smfsubs +++|* B1 1 01454 M01S01248.smfsubs +++|* B2 AS ON ENTRY 01455 M01S01249.smfsubs +++|* B3 AS ON ENTRY 01456 M01S01250.smfsubs +++|* B4 AS ON ENTRY 01457 M01S01251.smfsubs +++|* X1 AS X7 ON ENTRY 01458 M01S01252.smfsubs +++|* 01459 M01S01253.smfsubs +++|* USES X - 1, 2, 3, 4, 6, 7. 01460 M01S01254.smfsubs +++|* A - 1, 2, 3, 4, 6, 7. 01461 M01S01255.smfsubs +++|* B - 1, 2, 3, 4. 01462 M01S01256.smfsubs +++|* 01463 M01S01257.smfsubs +++|* CALLS SFGETP$. 01464 M01S01258.smfsubs +++| 01465 M01S01259.smfsubs +++| 01466 M01S01260.smfsubs +++| CSFGETP ENTR ENTRY/EXIT 01467 M01S01261.smfsubs +++| SB1 1 01468 M01S01262.smfsubs +++| SX6 B2 01469 M01S01263.smfsubs +++| SX7 B3 01470 M01S01264.smfsubs +++| SA6 GTPA SAVE POINTER TO STACK FRAME 01471 M01S01265.smfsubs +++| SA7 GTPB SAVE STACK LIMIT 01472 M01S01266.smfsubs +++| SX6 B4 01473 M01S01267.smfsubs +++| SA6 GTPC SAVE STATIC LINK 01474 M01S01268.smfsubs +++| BX6 X1 01475 M01S01269.smfsubs +++| SA6 GTPD SAVE POINTER TO *VARNAME* 01476 M01S01270.smfsubs +++| BX6 X2 01477 M01S01271.smfsubs +++| SA6 GTPG SAVE POINTER TO *OFFSET* 01478 M01S01272.smfsubs +++| BX6 X3 01479 M01S01273.smfsubs +++| SA6 GTPH SAVE POINTER TO *ROW* 01480 M01S01274.smfsubs +++| SA1 GTPD GET FIRST WORD ADDRESS OF PARAMETER LIST 01481 M01S01275.smfsubs +++| RJ =XSFGETP$ 01482 M01S01276.smfsubs +++| 01483 M01S01277.smfsubs +++|* RESTORE REGISTERS. 01484 M01S01278.smfsubs +++| 01485 M01S01279.smfsubs +++| SB1 1 RESTORE B1 AFTER *SYMPL* ERROR 01486 M01S01280.smfsubs +++| SA2 GTPA GET POINTER TO STACK FRAME 01487 M01S01281.smfsubs +++| SA3 GTPB GET STACK LIMIT 01488 M01S01282.smfsubs +++| SA4 GTPC GET STATIC LINK 01489 M01S01283.smfsubs +++| SB2 X2 RETURN IN B2 01490 M01S01284.smfsubs +++| SB3 X3 RETURN IN B3 01491 M01S01285.smfsubs +++| SB4 X4 RETURN IN B4 01492 M01S01286.smfsubs +++| DONE RETURN 01493 M01S01287.smfsubs +++| 01494 M01S01288.smfsubs +++| GTPA VFD 60/0 POINTER TO STACK FRAME 01495 M01S01289.smfsubs +++| GTPB VFD 60/0 STACK LIMIT 01496 M01S01290.smfsubs +++| GTPC VFD 60/0 STATIC LIMIT 01497 M01S01291.smfsubs +++| 01498 M01S01292.smfsubs +++|* PARAMETER BLOCK FOR SYMPL PROCEDURE CALL. 01499 M01S01293.smfsubs +++| 01500 M01S01294.smfsubs +++| GTPD VFD 60/0 ADDRESS OF *VARNAME* 01501 M01S01295.smfsubs +++| GTPE VFD 60/GTPI 01502 M01S01296.smfsubs +++| GTPF VFD 60/GTPJ 01503 M01S01297.smfsubs +++| GTPG VFD 60/0 ADDRESS OF *OFFSET* 01504 M01S01298.smfsubs +++| GTPH VFD 60/0 ADDRESS OF *ROW* 01505 M01S01299.smfsubs +++| 01506 M01S01300.smfsubs +++| GTPI VFD 60/7 *VLEN* 01507 M01S01301.smfsubs +++| GTPJ VFD 60/0 *VOFF* 01508 M01S01302.smfsubs +++| 01509 M01S01303.smfsubs +++| END 01510 M01S01304.smfsubs +++| IDENT CSFGETR 01511 M01S01305.smfsubs +++| ENTRY CSFGETR 01512 M01S01306.smfsubs +++| SYSCOM B1 01513 M01S01307.smfsubs +++| TITLE CSFGETR - *CYBIL* INTERFACE TO *SFGETR$*. 01514 M01S01308.smfsubs +++|*COMMENT CSFGETR - *CYBIL* INTERFACE TO *SFGETR$*
Line S01309 Modification History | |
---|---|
M01 (Added by) | smfsubs |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 01515 M02S01309.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1984. 01516 M01S00025.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 01517 M01S01310.smfsubs +++| GTR SPACE 4,10 01518 M01S01311.smfsubs +++|*** CSFGETR - *COMPASS* INTERFACE TO *SFGETR$* CALL. 01519 M01S01312.smfsubs +++|* 01520 M01S01313.smfsubs +++|* M. L. SWANSON. 84/05/16. 01521 M01S01314.smfsubs +++| GTR SPACE 4,10 01522 M01S01315.smfsubs +++|*** *CSFGETR* PROVIDES AN INTERFACE TO *SFGETR$* BY 01523 M01S01316.smfsubs +++|* SAVING THE *CYBIL* STACK DISCIPLINE VARIABLES AND 01524 M01S01317.smfsubs +++|* REFORMATTING THE PARAMETER LIST FOR THE CALL TO THE 01525 M01S01318.smfsubs +++|* SYMPL ROUTINE, *SFGETR$*. 01526 M01S01319.smfsubs +++| GTR SPACE 4,10 01527 M01S01320.smfsubs +++|** COMMON DECKS. 01528 M01S01321.smfsubs +++| 01529 M01S01322.smfsubs +++| 01530 M01S01323.smfsubs +++|*CALL COMFCID 01531 M01S01324.smfsubs +++| GTR SPACE 4,10 01532 M01S01325.smfsubs +++|*** CSFGETR - *CYBIL* INTERFACE TO *SFGETR$*. 01533 M01S01326.smfsubs +++|* 01534 M01S01327.smfsubs +++|* CALLING SEQUENCE. 01535 M01S01328.smfsubs +++|* *CYBIL* CALL - 01536 M01S01329.smfsubs +++|* 01537 M01S01330.smfsubs +++|* CSFGETR(FIELDNAME,VALUE); 01538 M01S01331.smfsubs +++|* 01539 M01S01332.smfsubs +++|* FIELDNAME = FIELD NAME OF THE PANEL VARIABLE. 01540 M01S01333.smfsubs +++|* VALUE = REAL VALUE TO BE RETURNED. 01541 M01S01334.smfsubs +++| GTR SPACE 4,10 01542 M01S01335.smfsubs +++|** CSFGETR - *COMPASS* INTERFACE TO *SFGETR$* CALL. 01543 M01S01336.smfsubs +++|* 01544 M01S01337.smfsubs +++|* ENTRY CONDITIONS 01545 M01S01338.smfsubs +++|* B1 1 01546 M01S01339.smfsubs +++|* B2 POINTER TO CALLER'S STACK FRAME 01547 M01S01340.smfsubs +++|* B3 STACK LIMIT 01548 M01S01341.smfsubs +++|* B4 STATIC LINK 01549 M01S01342.smfsubs +++|* X1 POINTER TO *FIELDNAME* 01550 M01S01343.smfsubs +++|* X2 POINTER TO *VALUE* 01551 M01S01344.smfsubs +++|* B5 POINTER TO ARGUMENT EXTENSION LIST 01552 M01S01345.smfsubs +++|* X7 PROCEDURE LINKAGE WORD (RETURN ADDRESS) 01553 M01S01346.smfsubs +++|* 01554 M01S01347.smfsubs +++|* EXIT CONDITIONS 01555 M01S01348.smfsubs +++|* B1 1 01556 M01S01349.smfsubs +++|* B2 AS ON ENTRY 01557 M01S01350.smfsubs +++|* B3 AS ON ENTRY 01558 M01S01351.smfsubs +++|* B4 AS ON ENTRY 01559 M01S01352.smfsubs +++|* X1 AS X7 ON ENTRY 01560 M01S01353.smfsubs +++|* 01561 M01S01354.smfsubs +++|* USES X - 1, 2, 3, 4, 6, 7. 01562 M01S01355.smfsubs +++|* A - 1, 2, 3, 4, 6, 7. 01563 M01S01356.smfsubs +++|* B - 1, 2, 3, 4. 01564 M01S01357.smfsubs +++|* 01565 M01S01358.smfsubs +++|* CALLS SFGETR$. 01566 M01S01359.smfsubs +++| 01567 M01S01360.smfsubs +++| 01568 M01S01361.smfsubs +++| CSFGETR ENTR ENTRY/EXIT 01569 M01S01362.smfsubs +++| SB1 1 01570 M01S01363.smfsubs +++| SX6 B2 01571 M01S01364.smfsubs +++| SX7 B3 01572 M01S01365.smfsubs +++| SA6 GTRA SAVE POINTER TO STACK FRAME 01573 M01S01366.smfsubs +++| SA7 GTRB SAVE STACK LIMIT 01574 M01S01367.smfsubs +++| SX6 B4 01575 M01S01368.smfsubs +++| SA6 GTRC SAVE STATIC LINK 01576 M01S01369.smfsubs +++| 01577 M01S01370.smfsubs +++|* THIS IS IF FIELDNAME IS PASSED CALL-BY-ADDRESS. 01578 M01S01371.smfsubs +++| 01579 M01S01372.smfsubs +++| BX6 X1 01580 M01S01373.smfsubs +++| SA6 GTRD SAVE *VARNAME* 01581 M01S01374.smfsubs +++| BX6 X2 01582 M01S01375.smfsubs +++| SA6 GTRG SAVE *VALUE* 01583 M01S01376.smfsubs +++| SA1 GTRD GET FIRST WORD ADDRESS OF PARAMETER LIST 01584 M01S01377.smfsubs +++| RJ =XSFGETR$ 01585 M01S01378.smfsubs +++| 01586 M01S01379.smfsubs +++|* RESTORE REGISTERS. 01587 M01S01380.smfsubs +++| 01588 M01S01381.smfsubs +++| SB1 1 RESTORE B1 AFTER *SYMPL* ERROR 01589 M01S01382.smfsubs +++| SA2 GTRA GET POINTER TO STACK FRAME 01590 M01S01383.smfsubs +++| SA3 GTRB GET STACK LIMIT 01591 M01S01384.smfsubs +++| SA4 GTRC GET STATIC LINK 01592 M01S01385.smfsubs +++| SB2 X2 RETURN IN B2 01593 M01S01386.smfsubs +++| SB3 X3 RETURN IN B3 01594 M01S01387.smfsubs +++| SB4 X4 RETURN IN B4 01595 M01S01388.smfsubs +++| DONE RETURN 01596 M01S01389.smfsubs +++| 01597 M01S01390.smfsubs +++|GTRA VFD 60/0 POINTER TO STACK FRAME 01598 M01S01391.smfsubs +++|GTRB VFD 60/0 STACK LIMIT 01599 M01S01392.smfsubs +++|GTRC VFD 60/0 STATIC LINK 01600 M01S01393.smfsubs +++| 01601 M01S01394.smfsubs +++|* PARAMETER BLOCK FOR *SYMPL* PROCEDURE CALL. 01602 M01S01395.smfsubs +++| 01603 M01S01396.smfsubs +++|GTRD VFD 60/0 ADDRESS OF *VARNAME* 01604 M01S01397.smfsubs +++|GTRE VFD 60/GTRH 01605 M01S01398.smfsubs +++|GTRF VFD 60/GTRI 01606 M01S01399.smfsubs +++|GTRG VFD 60/0 ADDRESS OF *VALUE* 01607 M01S01400.smfsubs +++| 01608 M01S01401.smfsubs +++|GTRH VFD 60/7 *VLEN* 01609 M01S01402.smfsubs +++|GTRI VFD 60/0 *VOFF* 01610 M01S01403.smfsubs +++| 01611 M01S01404.smfsubs +++| END 01612 M01S01405.smfsubs +++| IDENT CSFOPEN 01613 M01S01406.smfsubs +++| ENTRY CSFOPEN 01614 M01S01407.smfsubs +++| SYSCOM B1 01615 M01S01408.smfsubs +++| TITLE CSFOPEN - *CYBIL* INTERFACE TO *SFOPEN$*. 01616 M01S01409.smfsubs +++|*COMMENT CSFOPEN - *CYBIL* INTERFACE TO *SFOPEN$*
Line S01410 Modification History | |
---|---|
M01 (Added by) | smfsubs |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 01617 M02S01410.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1984. 01618 M01S00026.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 01619 M01S01411.smfsubs +++| OPN SPACE 4,10 01620 M01S01412.smfsubs +++|*** CSFOPEN - *COMPASS* INTERFACE TO *SFOPEN$* CALL. 01621 M01S01413.smfsubs +++|* 01622 M01S01414.smfsubs +++|* M. L. SWANSON. 84/04/17. 01623 M01S01415.smfsubs +++| OPN SPACE 4,10 01624 M01S01416.smfsubs +++|*** *CSFOPEN* PROVIDES AN INTERFACE TO *SFOPEN$* BY 01625 M01S01417.smfsubs +++|* SAVING THE *CYBIL* STACK DISCIPLINE VARIABLES AND 01626 M01S01418.smfsubs +++|* REFORMATTING THE PARAMETER LIST FOR THE CALL TO THE 01627 M01S01419.smfsubs +++|* SYMPL ROUTINE, *SFOPEN$*. 01628 M01S01420.smfsubs +++| OPN SPACE 4,10 01629 M01S01421.smfsubs +++|** COMMON DECKS. 01630 M01S01422.smfsubs +++| 01631 M01S01423.smfsubs +++| 01632 M01S01424.smfsubs +++|*CALL COMFCID 01633 M01S01425.smfsubs +++| OPN SPACE 4,10 01634 M01S01426.smfsubs +++|*** CSFOPEN - *CYBIL* INTERFACE TO *SFOPEN$*. 01635 M01S01427.smfsubs +++|* 01636 M01S01428.smfsubs +++|* CALLING SEQUENCE. 01637 M01S01429.smfsubs +++|* *CYBIL* CALL - 01638 M01S01430.smfsubs +++|* 01639 M01S01431.smfsubs +++|* CSFOPEN(PANELNAME, STATUS); 01640 M01S01432.smfsubs +++|* 01641 M01S01433.smfsubs +++|* PANELNAME = NAME OF PANEL TO BE OPENED. 01642 M01S01434.smfsubs +++|* STATUS = VARIABLE INDICATING RESULTS OF ATTEMPT 01643 M01S01435.smfsubs +++|* TO OPEN A PANEL. NON-ZERO STATUS 01644 M01S01436.smfsubs +++|* INDICATES PANEL COULD NOT BE OPENED. 01645 M01S01437.smfsubs +++| OPN SPACE 4,10 01646 M01S01438.smfsubs +++|** CSFOPEN - *COMPASS* INTERFACE TO *SFOPEN$* CALL. 01647 M01S01439.smfsubs +++|* 01648 M01S01440.smfsubs +++|* ENTRY CONDITIONS 01649 M01S01441.smfsubs +++|* B1 1 01650 M01S01442.smfsubs +++|* B2 POINTER TO CALLER'S STACK FRAME 01651 M01S01443.smfsubs +++|* B3 STACK LIMIT 01652 M01S01444.smfsubs +++|* B4 STATIC LINK 01653 M01S01445.smfsubs +++|* X1 POINTER TO *PANELNAME* 01654 M01S01446.smfsubs +++|* X2 POINTER TO *STATUS* 01655 M01S01447.smfsubs +++|* B5 POINTER TO ARGUMENT EXTENSION LIST 01656 M01S01448.smfsubs +++|* X7 PROCEDURE LINKAGE WORD (RETURN ADDRESS) 01657 M01S01449.smfsubs +++|* 01658 M01S01450.smfsubs +++|* EXIT CONDITIONS 01659 M01S01451.smfsubs +++|* B1 1 01660 M01S01452.smfsubs +++|* B2 AS ON ENTRY 01661 M01S01453.smfsubs +++|* B3 AS ON ENTRY 01662 M01S01454.smfsubs +++|* B4 AS ON ENTRY 01663 M01S01455.smfsubs +++|* X1 AS X7 ON ENTRY 01664 M01S01456.smfsubs +++|* 01665 M01S01457.smfsubs +++|* USES X - 1, 2, 3, 4, 6, 7. 01666 M01S01458.smfsubs +++|* A - 1, 2, 3, 4, 6, 7. 01667 M01S01459.smfsubs +++|* B - 1, 2, 3, 4. 01668 M01S01460.smfsubs +++|* 01669 M01S01461.smfsubs +++|* CALLS SFOPEN$. 01670 M01S01462.smfsubs +++| 01671 M01S01463.smfsubs +++| 01672 M01S01464.smfsubs +++| CSFOPEN ENTR ENTRY/EXIT 01673 M01S01465.smfsubs +++| SB1 1 01674 M01S01466.smfsubs +++| SX6 B2 01675 M01S01467.smfsubs +++| SX7 B3 01676 M01S01468.smfsubs +++| SA6 OPNA SAVE POINTER TO STACK FRAME 01677 M01S01469.smfsubs +++| SA7 OPNB SAVE STACK LIMIT 01678 M01S01470.smfsubs +++| SX6 B4 01679 M01S01471.smfsubs +++| SA6 OPNC SAVE STATIC LINK 01680 M01S01472.smfsubs +++| BX6 X1 01681 M01S01473.smfsubs +++| 01682 M01S01474.smfsubs +++|* *PANELNAME* IS PASSED CALL-BY-ADDRESS. 01683 M01S01475.smfsubs +++| 01684 M01S01476.smfsubs +++| SA6 OPND SAVE *PANELNAME* 01685 M01S01477.smfsubs +++| BX6 X2 01686 M01S01478.smfsubs +++| SA6 OPNG SAVE *STATUS* 01687 M01S01479.smfsubs +++| 01688 M01S01480.smfsubs +++|* SET TO ASCII8 CHARACTER SET. 01689 M01S01481.smfsubs +++| 01690 M01S01482.smfsubs +++| SA1 OPNJ GET FIRST WORD ADDRESS OF PARAMETER LIST 01691 M01S01483.smfsubs +++| RJ =XSFCSET$ 01692 M01S01484.smfsubs +++| 01693 M01S01485.smfsubs +++| SA1 OPND GET FIRST WORD ADDRESS OF PARAMETER LIST 01694 M01S01486.smfsubs +++| RJ =XSFOPEN$ 01695 M01S01487.smfsubs +++| 01696 M01S01488.smfsubs +++|* RESTORE REGISTERS. 01697 M01S01489.smfsubs +++| 01698 M01S01490.smfsubs +++| SB1 1 RESTORE B1 AFTER *SYMPL* ERROR 01699 M01S01491.smfsubs +++| SA2 OPNA GET POINTER TO STACK FRAME 01700 M01S01492.smfsubs +++| SA3 OPNB GET STACK LIMIT 01701 M01S01493.smfsubs +++| SA4 OPNC GET STATIC LINK 01702 M01S01494.smfsubs +++| SB2 X2 RETURN IN B2 01703 M01S01495.smfsubs +++| SB3 X3 RETURN IN B3 01704 M01S01496.smfsubs +++| SB4 X4 RETURN IN B4 01705 M01S01497.smfsubs +++| DONE RETURN 01706 M01S01498.smfsubs +++| 01707 M01S01499.smfsubs +++| OPNA VFD 60/0 POINTER TO STACK FRAME 01708 M01S01500.smfsubs +++| OPNB VFD 60/0 STACK LIMIT 01709 M01S01501.smfsubs +++| OPNC VFD 60/0 STATIC LINK 01710 M01S01502.smfsubs +++| 01711 M01S01503.smfsubs +++|* PARAMETER BLOCK FOR *SYMPL* PROCEDURE CALL. 01712 M01S01504.smfsubs +++| 01713 M01S01505.smfsubs +++| OPND VFD 60/0 ADDRESS OF *PANELNAME* PARAMETER 01714 M01S01506.smfsubs +++| OPNE VFD 60/OPNH ADDRESS OF *NLENGTH* PARAMETER 01715 M01S01507.smfsubs +++| OPNF VFD 60/OPNI ADDRESS OF *NOFFSET* PARAMETER 01716 M01S01508.smfsubs +++| OPNG VFD 60/0 ADDRESS OF *STATUS* PARAMETER 01717 M01S01509.smfsubs +++| 01718 M01S01510.smfsubs +++| OPNH VFD 60/7 *NLENGTH* 01719 M01S01511.smfsubs +++| OPNI VFD 60/0 *NOFFSET* 01720 M01S01512.smfsubs +++| 01721 M01S01513.smfsubs +++|* HARD CODE CHARACTER SET FOR *CYBIL*. 01722 M01S01514.smfsubs +++| 01723 M01S01515.smfsubs +++| OPNJ VFD 60/OPNM FWA OF PARAMETER LIST 01724 M01S01516.smfsubs +++| OPNK VFD 60/OPNN 01725 M01S01517.smfsubs +++| OPNL VFD 60/OPNO 01726 M01S01518.smfsubs +++| 01727 M01S01519.smfsubs +++| OPNM VFD 60/6HASCII8 CHARACTER SET BLANK FILLED 01728 M01S01520.smfsubs +++| OPNN VFD 60/6 *CLENGTH* 01729 M01S01521.smfsubs +++| OPNO VFD 60/0 *COFFSET* 01730 M01S01522.smfsubs +++| 01731 M01S01523.smfsubs +++| END 01732 M01S01524.smfsubs +++| IDENT CSFPOSR 01733 M01S01525.smfsubs +++| ENTRY CSFPOSR 01734 M01S01526.smfsubs +++| SYSCOM B1 01735 M01S01527.smfsubs +++| TITLE CSFPOSR - *CYBIL* INTERFACE TO *SFPOSR$*. 01736 M01S01528.smfsubs +++|*COMMENT CSFPOSR - *CYBIL* INTERFACE TO *SFPOSR$*
Line S01529 Modification History | |
---|---|
M01 (Added by) | smfsubs |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 01737 M02S01529.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1984. 01738 M01S00027.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 01739 M01S01530.smfsubs +++| PSR SPACE 4,10 01740 M01S01531.smfsubs +++|*** CSFPOSR - COMPASS INTERFACE TO *SFPOSR$* CALL. 01741 M01S01532.smfsubs +++|* 01742 M01S01533.smfsubs +++|* M. L. SWANSON. 84/05/30. 01743 M01S01534.smfsubs +++| PSR SPACE 4,10 01744 M01S01535.smfsubs +++|*** *CSFPOSR* PROVIDES AN INTERFACE TO *SFPOSR$* BY 01745 M01S01536.smfsubs +++|* SAVING THE *CYBIL* STACK DISCIPLINE VARIABLES AND 01746 M01S01537.smfsubs +++|* REFORMATTING THE PARAMETER LIST FOR THE CALL TO THE 01747 M01S01538.smfsubs +++|* SYMPL ROUTINE, *SFPOSR$*. 01748 M01S01539.smfsubs +++| PSR SPACE 4,10 01749 M01S01540.smfsubs +++|** COMMON DECKS. 01750 M01S01541.smfsubs +++| 01751 M01S01542.smfsubs +++| 01752 M01S01543.smfsubs +++|*CALL COMFCID 01753 M01S01544.smfsubs +++| PSR SPACE 4,10 01754 M01S01545.smfsubs +++|*** CSFPOSR - *CYBIL* INTERFACE TO *SFPOSR$*. 01755 M01S01546.smfsubs +++|* 01756 M01S01547.smfsubs +++|* CALLING SEQUENCE. 01757 M01S01548.smfsubs +++|* *CYBIL* CALL - 01758 M01S01549.smfsubs +++|* 01759 M01S01550.smfsubs +++|* CSFPOSR(TABLENAME,ROW); 01760 M01S01551.smfsubs +++|* 01761 M01S01552.smfsubs +++|* TABLENAME = ACTIVE PANEL TABLE NAME. 01762 M01S01553.smfsubs +++|* ROW = THE ROW NUMBER OF THE VARIABLE FIELD. 01763 M01S01554.smfsubs +++| PSR SPACE 4,10 01764 M01S01555.smfsubs +++|** CSFPOSR - COMPASS INTERFACE TO *SFPOSR$* CALL. 01765 M01S01556.smfsubs +++|* 01766 M01S01557.smfsubs +++|* ENTRY CONDITIONS 01767 M01S01558.smfsubs +++|* B1 1 01768 M01S01559.smfsubs +++|* B2 POINTER TO CALLER'S STACK FRAME 01769 M01S01560.smfsubs +++|* B3 STACK LIMIT 01770 M01S01561.smfsubs +++|* B4 STATIC LINK 01771 M01S01562.smfsubs +++|* X1 POINTER TO *TABLENAME* 01772 M01S01563.smfsubs +++|* X2 POINTER TO *ROW* 01773 M01S01564.smfsubs +++|* B5 POINTER TO ARGUMENT EXTENSION LIST 01774 M01S01565.smfsubs +++|* X7 PROCEDURE LINKAGE WORD (RETURN ADDRESS) 01775 M01S01566.smfsubs +++|* 01776 M01S01567.smfsubs +++|* EXIT CONDITIONS 01777 M01S01568.smfsubs +++|* B1 1 01778 M01S01569.smfsubs +++|* B2 AS ON ENTRY 01779 M01S01570.smfsubs +++|* B3 AS ON ENTRY 01780 M01S01571.smfsubs +++|* B4 AS ON ENTRY 01781 M01S01572.smfsubs +++|* X1 AS X7 ON ENTRY 01782 M01S01573.smfsubs +++|* 01783 M01S01574.smfsubs +++|* USES X - 1, 2, 3, 4, 6, 7. 01784 M01S01575.smfsubs +++|* A - 1, 2, 3, 4, 6, 7. 01785 M01S01576.smfsubs +++|* B - 1, 2, 3, 4. 01786 M01S01577.smfsubs +++|* 01787 M01S01578.smfsubs +++|* CALLS SFPOSR$. 01788 M01S01579.smfsubs +++| 01789 M01S01580.smfsubs +++| 01790 M01S01581.smfsubs +++| CSFPOSR ENTR ENTRY/EXIT 01791 M01S01582.smfsubs +++| SB1 1 01792 M01S01583.smfsubs +++| SX6 B2 01793 M01S01584.smfsubs +++| SX7 B3 01794 M01S01585.smfsubs +++| SA6 PSRA SAVE POINTER TO STACK FRAME 01795 M01S01586.smfsubs +++| SA7 PSRB SAVE STACK LIMIT 01796 M01S01587.smfsubs +++| SX6 B4 01797 M01S01588.smfsubs +++| SA6 PSRC SAVE STATIC LINK 01798 M01S01589.smfsubs +++| BX6 X1 01799 M01S01590.smfsubs +++| SA6 PSRD SAVE FIRST PARAMETER 01800 M01S01591.smfsubs +++| BX6 X2 01801 M01S01592.smfsubs +++| SA6 PSRJ SAVE SECOND PARAMETER 01802 M01S01593.smfsubs +++| SA1 PSRD GET FIRST WORD ADDRESS OF PARAMETER LIST 01803 M01S01594.smfsubs +++| RJ =XSFPOSR$ 01804 M01S01595.smfsubs +++| 01805 M01S01596.smfsubs +++|* RESTORE REGISTERS. 01806 M01S01597.smfsubs +++| 01807 M01S01598.smfsubs +++| SB1 1 RESTORE B1 AFTER *SYMPL* ERROR 01808 M01S01599.smfsubs +++| SA2 PSRA GET POINTER TO STACK FRAME 01809 M01S01600.smfsubs +++| SA3 PSRB GET STACK LIMIT 01810 M01S01601.smfsubs +++| SA4 PSRC GET STATIC LINK 01811 M01S01602.smfsubs +++| SB2 X2 RETURN IN B2 01812 M01S01603.smfsubs +++| SB3 X3 RETURN IN B3 01813 M01S01604.smfsubs +++| SB4 X4 RETURN IN B4 01814 M01S01605.smfsubs +++| DONE RETURN 01815 M01S01606.smfsubs +++| 01816 M01S01607.smfsubs +++|PSRA VFD 60/0 POINTER TO CALLER'S STACK FRAME 01817 M01S01608.smfsubs +++|PSRB VFD 60/0 STACK LIMIT 01818 M01S01609.smfsubs +++|PSRC VFD 60/0 STATIC LINK 01819 M01S01610.smfsubs +++| 01820 M01S01611.smfsubs +++|* PARAMETER BLOCK FOR SYMPL PROCEDURE CALL. 01821 M01S01612.smfsubs +++| 01822 M01S01613.smfsubs +++|PSRD VFD 60/0 ADDRESS OF *TABLENAME* 01823 M01S01614.smfsubs +++|PSRE VFD 60/PSRH ADDRESS OF *TLEN* 01824 M01S01615.smfsubs +++|PSRF VFD 60/PSRI ADDRESS OF *TOFF* 01825 M01S01616.smfsubs +++|PSRG VFD 60/PSRJ ADDRESS OF *ROWNUMBER* 01826 M01S01617.smfsubs +++| 01827 M01S01618.smfsubs +++|PSRH VFD 60/7 *TLEN* 01828 M01S01619.smfsubs +++|PSRI VFD 60/0 *TOFF* 01829 M01S01620.smfsubs +++|PSRJ VFD 60/0 *ROWNUMBER* 01830 M01S01621.smfsubs +++| 01831 M01S01622.smfsubs +++| END 01832 M01S01623.smfsubs +++| IDENT CSFSETP 01833 M01S01624.smfsubs +++| ENTRY CSFSETP 01834 M01S01625.smfsubs +++| SYSCOM B1 01835 M01S01626.smfsubs +++| TITLE CSFSETP - *CYBIL* INTERFACE TO *SFSETP$*. 01836 M01S01627.smfsubs +++|*COMMENT CSFSETP - *CYBIL* INTERFACE TO *SFSETP$*
Line S01628 Modification History | |
---|---|
M01 (Added by) | smfsubs |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 01837 M02S01628.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1984. 01838 M01S00028.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 01839 M01S01629.smfsubs +++| STP SPACE 4,10 01840 M01S01630.smfsubs +++|*** CSFSETP - *COMPASS* INTERFACE TO *SFSETP$* CALL. 01841 M01S01631.smfsubs +++|* 01842 M01S01632.smfsubs +++|* M. L. SWANSON. 84/05/30. 01843 M01S01633.smfsubs +++| STP SPACE 4,10 01844 M01S01634.smfsubs +++|*** *CSFSETP* PROVIDES AN INTERFACE TO *SFSETP$* BY 01845 M01S01635.smfsubs +++|* SAVING THE *CYBIL* STACK DISCIPLINE VARIABLES AND 01846 M01S01636.smfsubs +++|* REFORMATTING THE PARAMETER LIST FOR THE CALL TO THE 01847 M01S01637.smfsubs +++|* SYMPL ROUTINE, *SFSETP$*. 01848 M01S01638.smfsubs +++| STP SPACE 4,10 01849 M01S01639.smfsubs +++|** COMMON DECKS. 01850 M01S01640.smfsubs +++| 01851 M01S01641.smfsubs +++| 01852 M01S01642.smfsubs +++|*CALL COMFCID 01853 M01S01643.smfsubs +++| STP SPACE 4,10 01854 M01S01644.smfsubs +++|*** CSFSETP - *CYBIL* INTERFACE TO *SFSETP$*. 01855 M01S01645.smfsubs +++|* 01856 M01S01646.smfsubs +++|* CALLING SEQUENCE. 01857 M01S01647.smfsubs +++|* *CYBIL* CALL - 01858 M01S01648.smfsubs +++|* 01859 M01S01649.smfsubs +++|* CSFSETP(FIELDNAME,INDEX,ROW); 01860 M01S01650.smfsubs +++|* 01861 M01S01651.smfsubs +++|* FIELDNAME = NAME OF FIELD. 01862 M01S01652.smfsubs +++|* INDEX = CHARACTER POSITION WITHIN THE VARIABLE FIELD. 01863 M01S01653.smfsubs +++|* ROW = THE ROW NUMBER OF THE VARIABLE FIELD. 01864 M01S01654.smfsubs +++| STP SPACE 4,10 01865 M01S01655.smfsubs +++|** CSFSETP - *COMPASS* INTERFACE TO *SFSETP$* CALL. 01866 M01S01656.smfsubs +++|* 01867 M01S01657.smfsubs +++|* ENTRY CONDITIONS 01868 M01S01658.smfsubs +++|* B1 1 01869 M01S01659.smfsubs +++|* B2 POINTER TO CALLER'S STACK FRAME 01870 M01S01660.smfsubs +++|* B3 STACK LIMIT 01871 M01S01661.smfsubs +++|* B4 STATIC LINK 01872 M01S01662.smfsubs +++|* X1 POINTER TO *FIELDNAME* 01873 M01S01663.smfsubs +++|* X2 POINTER TO *INDEX* 01874 M01S01664.smfsubs +++|* B5 POINTER TO ARGUMENT EXTENSION LIST 01875 M01S01665.smfsubs +++|* X7 PROCEDURE LINKAGE WORD (RETURN ADDRESS) 01876 M01S01666.smfsubs +++|* 01877 M01S01667.smfsubs +++|* EXIT CONDITIONS 01878 M01S01668.smfsubs +++|* B1 1 01879 M01S01669.smfsubs +++|* B2 AS ON ENTRY 01880 M01S01670.smfsubs +++|* B3 AS ON ENTRY 01881 M01S01671.smfsubs +++|* B4 AS ON ENTRY 01882 M01S01672.smfsubs +++|* X1 AS X7 ON ENTRY 01883 M01S01673.smfsubs +++|* 01884 M01S01674.smfsubs +++|* USES X - 1, 2, 3, 4, 6, 7. 01885 M01S01675.smfsubs +++|* A - 1, 2, 3, 4, 6, 7. 01886 M01S01676.smfsubs +++|* B - 1, 2, 3, 4. 01887 M01S01677.smfsubs +++|* 01888 M01S01678.smfsubs +++|* CALLS SFSETP$. 01889 M01S01679.smfsubs +++| 01890 M01S01680.smfsubs +++| 01891 M01S01681.smfsubs +++| CSFSETP ENTR ENTRY/EXIT 01892 M01S01682.smfsubs +++| SB1 1 01893 M01S01683.smfsubs +++| SX6 B2 01894 M01S01684.smfsubs +++| SX7 B3 01895 M01S01685.smfsubs +++| SA6 STPA SAVE POINTER TO STACK FRAME 01896 M01S01686.smfsubs +++| SA7 STPB SAVE STACK LIMIT 01897 M01S01687.smfsubs +++| SX6 B4 01898 M01S01688.smfsubs +++| SA6 STPC SAVE STATIC LINK 01899 M01S01689.smfsubs +++| BX6 X1 01900 M01S01690.smfsubs +++| SA6 STPD SAVE *FIELDNAME* 01901 M01S01691.smfsubs +++| BX6 X2 01902 M01S01692.smfsubs +++| SA6 STPK SAVE *INDEX* 01903 M01S01693.smfsubs +++| BX6 X3 01904 M01S01694.smfsubs +++| SA6 STPL SAVE *ROW* 01905 M01S01695.smfsubs +++| SA1 STPD GET FIRST WORD ADDRESS OF PARAMETER LIST 01906 M01S01696.smfsubs +++| RJ =XSFSETP$ 01907 M01S01697.smfsubs +++| 01908 M01S01698.smfsubs +++|* RESTORE REGISTERS. 01909 M01S01699.smfsubs +++| 01910 M01S01700.smfsubs +++| SB1 1 RESTORE B1 AFTER *SYMPL* ERROR 01911 M01S01701.smfsubs +++| SA2 STPA GET POINTER TO STACK FRAME 01912 M01S01702.smfsubs +++| SA3 STPB GET STACK LIMIT 01913 M01S01703.smfsubs +++| SA4 STPC GET STATIC LINK 01914 M01S01704.smfsubs +++| SB2 X2 RETURN IN B2 01915 M01S01705.smfsubs +++| SB3 X3 RETURN IN B3 01916 M01S01706.smfsubs +++| SB4 X4 RETURN IN B4 01917 M01S01707.smfsubs +++| DONE RETURN 01918 M01S01708.smfsubs +++| 01919 M01S01709.smfsubs +++| STPA VFD 60/0 POINTER TO STACK FRAME 01920 M01S01710.smfsubs +++| STPB VFD 60/0 STACK LIMIT 01921 M01S01711.smfsubs +++| STPC VFD 60/0 STATIC LINK 01922 M01S01712.smfsubs +++| 01923 M01S01713.smfsubs +++|* PARAMETER BLOCK FOR SYMPL PROCEDURE CALL. 01924 M01S01714.smfsubs +++| 01925 M01S01715.smfsubs +++| STPD VFD 60/0 ADDRESS OF *VARNAME* 01926 M01S01716.smfsubs +++| STPE VFD 60/STPI ADDRESS OF *VLEN* 01927 M01S01717.smfsubs +++| STPF VFD 60/STPJ ADDRESS OF *VOFF* 01928 M01S01718.smfsubs +++| STPG VFD 60/STPK ADDRESS OF *OFFSET* 01929 M01S01719.smfsubs +++| STPH VFD 60/STPL ADDRESS OF *ROW* 01930 M01S01720.smfsubs +++| 01931 M01S01721.smfsubs +++| STPI VFD 60/7 *VLEN* PARAMETER 01932 M01S01722.smfsubs +++| STPJ VFD 60/0 *VOFF* PARAMETER 01933 M01S01723.smfsubs +++| STPK VFD 60/0 *OFFSET* PARAMETER 01934 M01S01724.smfsubs +++| STPL VFD 60/0 *ROW* PARAMETER 01935 M01S01725.smfsubs +++| 01936 M01S01726.smfsubs +++| END 01937 M01S01727.smfsubs +++| IDENT CSFSREA 01938 M01S01728.smfsubs +++| ENTRY CSFSREA 01939 M01S01729.smfsubs +++| SYSCOM B1 01940 M01S01730.smfsubs +++| TITLE CSFSREA - *CYBIL* INTERFACE TO *SFSREA$*. 01941 M01S01731.smfsubs +++|*COMMENT CSFSREA - *CYBIL* INTERFACE TO *SFSREA$*
Line S01732 Modification History | |
---|---|
M01 (Added by) | smfsubs |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 01942 M02S01732.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1984. 01943 M01S00029.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 01944 M01S01733.smfsubs +++| REA SPACE 4,10 01945 M01S01734.smfsubs +++|*** CSFSREA - *COMPASS* INTERFACE TO *SFSREA$* CALL. 01946 M01S01735.smfsubs +++|* 01947 M01S01736.smfsubs +++|* M. L. SWANSON. 84/05/30. 01948 M01S01737.smfsubs +++| REA SPACE 4,10 01949 M01S01738.smfsubs +++|*** *CSFSREA* PROVIDES AN INTERFACE TO *SFSREA$* BY 01950 M01S01739.smfsubs +++|* SAVING THE *CYBIL* STACK DISCIPLINE VARIABLES AND 01951 M01S01740.smfsubs +++|* REFORMATTING THE PARAMETER LIST FOR THE CALL TO THE 01952 M01S01741.smfsubs +++|* SYMPL ROUTINE, *SFSREA$*. 01953 M01S01742.smfsubs +++| REA SPACE 4,10 01954 M01S01743.smfsubs +++|** COMMON DECKS. 01955 M01S01744.smfsubs +++| 01956 M01S01745.smfsubs +++| 01957 M01S01746.smfsubs +++|*CALL COMFCID 01958 M01S01747.smfsubs +++| REA SPACE 4,10 01959 M01S01748.smfsubs +++|*** CSFSREA - *CYBIL* INTERFACE TO *SFSREA$*. 01960 M01S01749.smfsubs +++|* 01961 M01S01750.smfsubs +++|* CALLING SEQUENCE. 01962 M01S01751.smfsubs +++|* *CYBIL* CALL - 01963 M01S01752.smfsubs +++|* 01964 M01S01753.smfsubs +++|* CSFSREA(PANELNAME,INSTRING); 01965 M01S01754.smfsubs +++|* 01966 M01S01755.smfsubs +++|* PANELNAME = PANEL TO BE USED FOR INPUT. 01967 M01S01756.smfsubs +++|* INSTRING = VARIABLE TO WHICH DATA IS RETURNED. 01968 M01S01757.smfsubs +++| REA SPACE 4,10 01969 M01S01758.smfsubs +++|** CSFSREA - *COMPASS* INTERFACE TO *SFSREA$* CALL. 01970 M01S01759.smfsubs +++|* 01971 M01S01760.smfsubs +++|* ENTRY CONDITIONS 01972 M01S01761.smfsubs +++|* B1 1 01973 M01S01762.smfsubs +++|* B2 POINTER TO CALLER'S STACK FRAME 01974 M01S01763.smfsubs +++|* B3 STACK LIMIT 01975 M01S01764.smfsubs +++|* B4 STATIC LINK 01976 M01S01765.smfsubs +++|* X1 POINTER TO *PANELNAME* 01977 M01S01766.smfsubs +++|* B5 POINTER TO ARGUMENT EXTENSION LIST 01978 M01S01767.smfsubs +++|* X7 PROCEDURE LINKAGE WORD (RETURN ADDRESS) 01979 M01S01768.smfsubs +++|* 01980 M01S01769.smfsubs +++|* EXIT CONDITIONS 01981 M01S01770.smfsubs +++|* B1 1 01982 M01S01771.smfsubs +++|* B2 AS ON ENTRY 01983 M01S01772.smfsubs +++|* B3 AS ON ENTRY 01984 M01S01773.smfsubs +++|* B4 AS ON ENTRY 01985 M01S01774.smfsubs +++|* X1 AS X7 ON ENTRY 01986 M01S01775.smfsubs +++|* 01987 M01S01776.smfsubs +++|* USES X - 1, 2, 3, 4, 6, 7. 01988 M01S01777.smfsubs +++|* A - 1, 2, 3, 4, 6, 7. 01989 M01S01778.smfsubs +++|* B - 1, 2, 3, 4, 5. 01990 M01S01779.smfsubs +++|* 01991 M01S01780.smfsubs +++|* CALLS SFSREA$. 01992 M01S01781.smfsubs +++| 01993 M01S01782.smfsubs +++| 01994 M01S01783.smfsubs +++| CSFSREA ENTR ENTRY/EXIT 01995 M01S01784.smfsubs +++| SB1 1 01996 M01S01785.smfsubs +++| SX6 B2 01997 M01S01786.smfsubs +++| SX7 B3 01998 M01S01787.smfsubs +++| SA6 REAA SAVE POINTER TO STACK FRAME 01999 M01S01788.smfsubs +++| SA7 REAB SAVE STACK LIMIT 02000 M01S01789.smfsubs +++| SX6 B4 02001 M01S01790.smfsubs +++| SA6 REAC SAVE STATIC LINK 02002 M01S01791.smfsubs +++| BX6 X1 02003 M01S01792.smfsubs +++| SA6 READ SAVE POINTER TO *PANELNAME* 02004 M01S01793.smfsubs +++| SA2 B5 02005 M01S01794.smfsubs +++| SX6 X2 02006 M01S01795.smfsubs +++| SA6 REAG SAVE POINTER TO *INSTRING* 02007 M01S01796.smfsubs +++| MX4 56 SET UP MASK FOR OFFSET 02008 M01S01797.smfsubs +++| LX4 18 POSITION MASK 02009 M01S01798.smfsubs +++| BX6 -X4*X2 02010 M01S01799.smfsubs +++| LX6 -18 02011 M01S01800.smfsubs +++| SA6 REAL SAVE OFFSET IN *INSOFF* 02012 M01S01801.smfsubs +++| SX6 B5+B1 02013 M01S01802.smfsubs +++| SA6 REAH SAVE ADDRESS OF *INSLEN* 02014 M01S01803.smfsubs +++| SA1 READ GET FIRST WORD ADDRESS OF PARAMETER LIST 02015 M01S01804.smfsubs +++| RJ =XSFSREA$ 02016 M01S01805.smfsubs +++| 02017 M01S01806.smfsubs +++|* RESTORE REGISTERS.
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/smfsubs.txt ยท Last modified: by 127.0.0.1