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.