User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:smfsubs

Deck SMFSUBS

5 Modifications

Listing Sections

Source

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