User Tools

Site Tools


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

Deck TSIM

2 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.tsim    +++|          IDENT  TSIM
00002  M01S00002.tsim    +++|
00003  M01S00003.tsim    +++|          ENTRY  TSIM
00004  M01S00004.tsim    +++|
Line S00005 Modification History
M01 (Added by) tsim
M02 (Updated by) ns2440
Seq #  *Modification Id* Act 
----------------------------+
00005  M02S00005.ns2440  ---|  COMMENT 72/08/31.           TERMINAL STATUS AND INFORMATION.
00006  M01S00001.ns2440  +++|          TITLE  TSIM - TERMINAL STATUS AND INFORMATION.
00007  M01S00002.ns2440  +++|*COMMENT  TSIM - TERMINAL STATUS AND INFORMATION.
Line S00006 Modification History
M01 (Added by) tsim
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00008  M02S00006.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP.1972.
00009  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
Line S00007 Modification History
M01 (Added by) tsim
M02 (Updated by) ns2440
Seq #  *Modification Id* Act 
----------------------------+
00010  M02S00007.ns2440  ---|          TITLE  TSIM - TERMINAL STATUS AND INFORMATION.
00011  M01S00008.tsim    +++|          SPACE  4
00012  M01S00009.tsim    +++|***       TSIM - TERMINAL STATUS AND INFORMATION.
00013  M01S00010.tsim    +++|*         J.C.BOHNHOFF. CPD. 72/08/31.
00014  M01S00011.tsim    +++|          SPACE  4
00015  M01S00012.tsim    +++|*CALL,COMKMAC
00016  M01S00013.tsim    +++|*CALL     COMSPRD
00017  M01S00014.tsim    +++|          SPACE  4
00018  M01S00015.tsim    +++|***       CALL FORMAT -
00019  M01S00016.tsim    +++|*
00020  M01S00017.tsim    +++|*         FORTRAN EXTENDED
00021  M01S00018.tsim    +++|*                CALL TSIM(CODE,MASK,CRIT,RLENG,LIST,LENG)
00022  M01S00019.tsim    +++|*         COBOL
00023  M01S00020.tsim    +++|*                ENTER TSIM USING CODE,MASK,CRIT,RLENG,LIST,LENG
00024  M01S00021.tsim    +++|*
00025  M01S00022.tsim    +++|*         WHERE: CODE= 0 IF DATA BASE NAME FIELD IS TO BE SEARCHED.
00026  M01S00023.tsim    +++|*                    = 1 IF USER ARGUMENT FIELD IS TO BE SEARCHED.
00027  M01S00024.tsim    +++|*                    = 2 IF COMMUNICATION LINE FIELD IS TO BE SEARCHED.
00028  M01S00025.tsim    +++|*                    = 3 IF TERMINAL NAME FIELD IS TO BE SEARCHED.
00029  M01S00026.tsim    +++|*                            COBOL - COMPUTATIONAL-1
00030  M01S00027.tsim    +++|*                            FORTRAN EXTENDED - INTEGER
00031  M01S00028.tsim    +++|*                MASK= A VALUE TAKEN AS A BINARY MASK.
00032  M01S00029.tsim    +++|*                CRIT= CRITERION VALUE FOR SEARCH.
00033  M01S00030.tsim    +++|*                RLENG= NUMBER OF ENTRIES FOUND. THIS ARGUMENT IS ALSO
00034  M01S00031.tsim    +++|*                       RETURNED AS A FORTRAN FUNCTION VALUE.
00035  M01S00032.tsim    +++|*                            COBOL - COMPUTATIONAL-1
00036  M01S00033.tsim    +++|*                            FORTRAN EXTENDED - INTEGER
00037  M01S00034.tsim    +++|*                LIST= LOCATION OF A LIST TO CONTAIN FOUND ENTRIES.
00038  M01S00035.tsim    +++|*                      IF ZERO OR ABSENT, NO LIST IS RETURNED BUT RLENG
00039  M01S00036.tsim    +++|*                      IS GIVEN AS THE NUMBER OF FOUND ENTRIES.
00040  M01S00037.tsim    +++|*                LENG= NUMBER OF WORDS THAT LIST CAN HOLD.
00041  M01S00038.tsim    +++|*                      IF ZERO OR ABSENT, NO LIST IS RETURNED BUT RLENG
00042  M01S00039.tsim    +++|*                      IS GIVEN AS THE NUMBER OF FOUND ENTRIES.
00043  M01S00040.tsim    +++|*                      ONLY THE LOWEST ORDER 12 BITS OF THIS VALUE
00044  M01S00041.tsim    +++|*                      ARE USED.
00045  M01S00042.tsim    +++|*                            COBOL - COMPUTATIONAL-1
00046  M01S00043.tsim    +++|*                            FORTRAN EXTENDED - INTEGER
00047  M01S00044.tsim    +++|*
00048  M01S00045.tsim    +++|*         OPERATION:
00049  M01S00046.tsim    +++|*         THE FIELD SPECIFIED BY *CODE* IS EXAMINED IN EACH TERMINAL
00050  M01S00047.tsim    +++|*         TABLE ENTRY BY TAKING THE LOGICAL PRODUCT OF THE FIELD AND
00051  M01S00048.tsim    +++|*         *MASK* AND THEN TAKING THE LOGICAL DIFFERENCE OF THIS PRODUCT
00052  M01S00049.tsim    +++|*         AND *CRIT*.  IF THIS RESULT IS ZERO, THE TERMINAL ENTRY IS
00053  M01S00050.tsim    +++|*         PLACED IN *LIST*. IF NOT ZERO, NO ACTION.
00054  M01S00051.tsim    +++|*
00055  M01S00052.tsim    +++|*         SEE *TRANEX* FOR TERMINAL TABLE FORMAT.
00056  M01S00053.tsim    +++|
00057  M01S00054.tsim    +++|
00058  M01S00055.tsim    +++| TSIM     PS                 ENTRY/EXIT
00059  M01S00056.tsim    +++|          SA2    A1+1        READ MASK ADDRESS
00060  M01S00057.tsim    +++|          SA3    A1+2        READ CRITERION ADDRESS
00061  M01S00058.tsim    +++|          SA2    X2          READ MASK
00062  M01S00059.tsim    +++|          SA3    X3          READ CRITERION
00063  M01S00060.tsim    +++|          BX6    X2          STORE MASK AND CRIT. ARGUMENTS
00064  M01S00061.tsim    +++|          SA2    X1          READ CODE
00065  M01S00062.tsim    +++|          BX7    X3
00066  M01S00063.tsim    +++|          SA6    TSIA+1      STORE MASK
00067  M01S00064.tsim    +++|          UX2    X2
00068  M01S00065.tsim    +++|          SA5    A1+3        READ RLENG ADDRESS
00069  M01S00066.tsim    +++|          SA7    TSIA+2      STORE CRITERION
00070  M01S00067.tsim    +++|          SA1    A1+4        READ LIST ADDRESS
00071  M01S00068.tsim    +++|          BX3    X3-X3       ASSUME NO LIST
00072  M01S00069.tsim    +++|          MX0    42
00073  M01S00070.tsim    +++|          ZR     X1,TSI1     IF NO LIST, LENG
00074  M01S00071.tsim    +++|          SA3    A1+1        READ LENG ADDRESS
00075  M01S00072.tsim    +++|          BX1    -X0*X1      LIST ADDRESS
00076  M01S00073.tsim    +++|          ZR     X3,TSI1     IF NO LENG
00077  M01S00074.tsim    +++|          SA3    X3          READ LENG
00078  M01S00075.tsim    +++|          MX6    -12         EXTRACT LENGTH
00079  M01S00076.tsim    +++|          BX3    -X6*X3
00080  M01S00077.tsim    +++|
00081  M01S00078.tsim    +++|*         FORM WORD 0 OF ARGUMENT LIST.
00082  M01S00079.tsim    +++|
00083  M01S00080.tsim    +++| TSI1     MX6    6
00084  M01S00081.tsim    +++|          LX2    -12         POSITION CODE
00085  M01S00082.tsim    +++|          BX5    -X0*X5      RLENG ADDRESS
00086  M01S00083.tsim    +++|          LX6    -6
00087  M01S00084.tsim    +++|          LX1    30          POSITION LIST ADDRESS
00088  M01S00085.tsim    +++|          BX2    X6*X2
00089  M01S00086.tsim    +++|          LX3    18          LIST LENGTH
00090  M01S00087.tsim    +++|          BX6    X1+X5       LIST, RLENG
00091  M01S00088.tsim    +++|          IX7    X2+X3       CODE, LENG
00092  M01S00089.tsim    +++|          BX6    X6+X7       COMPLETE WORD 0
00093  M01S00090.tsim    +++|          SA6    TSIA
00094  M01S00091.tsim    +++|          TSIM   A6          ISSUE REQUEST
00095  M01S00092.tsim    +++|          SA1    X5          RETURN RLENG
00096  M01S00093.tsim    +++|          BX6    X1
00097  M01S00094.tsim    +++|          JP     TSIM        RETURN
00098  M01S00095.tsim    +++|
00099  M01S00096.tsim    +++| TSIA     CON    0,0,0       ARGUMENT STORAGE
00100  M01S00097.tsim    +++|
00101  M01S00098.tsim    +++|          END
cdc/nos2.source/opl.opl871/deck/tsim.txt ยท Last modified: by 127.0.0.1