5 Modifications

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.comssfs +++|          CTEXT  COMSSFS - SFS EQUIVALENCE AND TABLE DEFINITIONS.
00002  M01S00002.comssfs +++|          BASE   D
00003  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00004  M01S00003.comssfs +++|          SPACE  4
00005  M01S00004.comssfs +++|***       SFS - SPECIAL SYSTEM FILE MACROS AND EQUIVALENCES.
00006  M01S00005.comssfs +++|*         D. A. HIVELEY.     72/05/23.
00007  M01S00006.comssfs +++|          SPACE  4
00008  M01S00007.comssfs +++|***       COMSSFS PROVIDES COMMUNICATION BETWEEN SFS AND A
00009  M01S00008.comssfs +++|*         PROCESSOR PROGRAM.
00010  M01S00009.comssfs +++|*
00011  M01S00010.comssfs +++|*         THE FOLLOWING MACROS AND EQUIVALENCES ARE INTENDED TO
00012  M01S00011.comssfs +++|*         INITIALIZE DIRECT CELLS AND TABLES IN THE SUPERVISOR
00013  M01S00012.comssfs +++|*         PROGRAM (*OV* = 1).  THESE ADDRESSES ARE PASSED TO THE
00014  M01S00013.comssfs +++|*         FUNCTION PROCESSOR PROGRAM WHEN IT MAKES THE MACRO CALL.
00015  M01S00014.comssfs +++|*         THE PROCESSOR PROGRAM MUST DEFINE *OV* = 0.
00016  M01S00015.comssfs +++|*
00017  M01S00016.comssfs +++|*         THE PROCESSOR PROGRAM SHOULD CALL *IDIRC* TO SET UP THE
00018  M01S00017.comssfs +++|*         EQUATES TO THE DIRECT CELLS. *IDIRC* MUST BE CALLED
00019  M01S00018.comssfs +++|*         BEFORE *ITAB*.
00020  M01S00019.comssfs +++|*         *ITAB* SHOULD THEN BE CALLED TO SET UP THE EQUATES FOR
00021  M01S00020.comssfs +++|*         THE TABLE POINTERS.
00022  M01S00021.comssfs +++|*
00023  M01S00022.comssfs +++|*         SFS HANDLES PROCESSING OF ALL DIRECTORY LEVEL BLOCKS,
00024  M01S00023.comssfs +++|*         HOWEVER, THE DATA LEVEL BLOCKS MUST BE HANDLED BY THE
00025  M01S00024.comssfs +++|*         PROCESSOR.  THE TABLE POINTERS FOR THE DATA LEVEL BLOCK
00026  M01S00025.comssfs +++|*         ARE ALLOCATED WITH THE REST THOUGH.
00027  M01S00026.comssfs +++|*
00028  M01S00027.comssfs +++|*         FOR EXAMPLE, IF THE PROCESSOR WORKS WITH 3 LEVELS OF
00029  M01S00028.comssfs +++|*         TABLE, SFS WILL PROCESS 0,1 AND 2 LEVEL BLOCKS AND THE
00030  M01S00029.comssfs +++|*         PROCESSOR PROGRAM MUST HANDLE THE LAST LEVEL(3) BLOCK.
00031  M01S00030.comssfs +++| BITCON   SPACE  4
00032  M01S00031.comssfs +++|***       BITCON - GENERATE BIT STRING FOR SPECIAL CHARACTERS.
00033  M01S00032.comssfs +++|*
00034  M01S00033.comssfs +++|*         BITCON GENERATES A CONSTANT WITH BIT POSITIONS SET
00035  M01S00034.comssfs +++|*         WHICH CORRESPOND WITH THE SPECIAL CHARACTERS SUPPLIED
00036  M01S00035.comssfs +++|*         BIASED BY (-45B).
00037  M01S00036.comssfs +++|*
00038  M01S00037.comssfs +++|* NAME    BITCON P
00039  M01S00038.comssfs +++|*                *P* = SERIES OF SPECIAL CHARACTERS SEPARATED BY COMMAS
00040  M01S00039.comssfs +++|*                      AND DELIMITED BY PARENTHESIS.
00041  M01S00040.comssfs +++|
00042  M01S00041.comssfs +++|
00043  M01S00001.ssfs1   +++|          PURGMAC  BITCON
00044  M01S00042.comssfs +++|          MACRO  BITCON,NAME,P
00045  M01S00043.comssfs +++|          LOCAL  A,B
00046  M01S00044.comssfs +++| A        MICRO  1,,
00047  M01S00045.comssfs +++|          IRP    P
00048  M01S00046.comssfs +++| B        DECMIC 1R_P-1R+
00049  M01S00047.comssfs +++| A        MICRO  1,, "A"+1S"B"
00050  M01S00048.comssfs +++|          IRP
00051  M01S00049.comssfs +++| NAME     CON    "A"
00052  M01S00050.comssfs +++|          ENDM
00053  M01S00051.comssfs +++| INDEX    SPACE  4
00054  M01S00052.comssfs +++|***       INDEX - INDEXED TABLE ENTRY GENERATION.
00055  M01S00053.comssfs +++|*
00056  M01S00054.comssfs +++|*         INDEX GENERATES TABLES WHICH ARE TO BE INDEXED BY VALUES
00057  M01S00055.comssfs +++|*         WHICH MAY CHANGE DUE TO ASSEMBLY MODES OR OPTIONS.
00058  M01S00056.comssfs +++|*
00059  M01S00057.comssfs +++|*         FIRST CALL - SET START OF TABLE AND GENERATE DEFAULT ENTRIES.
00060  M01S00058.comssfs +++|*
00061  M01S00059.comssfs +++|* NAME    INDEX  MACRO,LENGTH,ADDRESS
00062  M01S00060.comssfs +++|*         ENTRY  *NAME* = NAME OF TABLE.
00063  M01S00061.comssfs +++|*                *LENGTH* = TABLE LENGTH.
00064  M01S00062.comssfs +++|*                *MACRO* = NAME OF MACRO WHICH GENERATES TABLE ENTRY.
00065  M01S00063.comssfs +++|*                *ADDRESS* = ADDRESS FIELD OF ENTRY GENERATION
00066  M01S00064.comssfs +++|*                            INSTRUCTION.  ADDRESS MUST BE EXPRESSED AS
00067  M01S00065.comssfs +++|*                            A DELIMITED CHARACTER STRING TO ALLOW
00068  M01S00066.comssfs +++|*                            ALMOST ANYTHING IN AN ADDRESS FIELD.
00069  M01S00067.comssfs +++|*         EXIT   *.1* = MICRO OF *MACRO*.
00070  M01S00068.comssfs +++|*                *NAME* = BASE ADDRESS OF TABLE.
00071  M01S00069.comssfs +++|*                *NAMEL* = LENGTH OF TABLE.
00072  M01S00070.comssfs +++|*
00073  M01S00071.comssfs +++|*         TABLE ENTRY GENERATION -
00074  M01S00072.comssfs +++|*
00075  M01S00073.comssfs +++|* NAME    INDEX  ,IND,ADDRESS
00076  M01S00074.comssfs +++|*         ENTRY  *NAME* = NAME OF TABLE ENTRY.
00077  M01S00075.comssfs +++|*                *IND* = INDEX AT WHICH ENTRY IS TO PLACED.
00078  M01S00076.comssfs +++|*                *ADDRESS* = ADDRESS FIELD OF ENTRY GENERATION
00079  M01S00077.comssfs +++|*                            INSTRUCTION.
00080  M01S00078.comssfs +++|*         EXIT   *NAME* = ADDRESS OF ENTRY.
00081  M01S00079.comssfs +++|
00082  M01S00080.comssfs +++|
00083  M01S00002.ssfs1   +++|          PURGMAC  INDEX
00084  M01S00081.comssfs +++|          MACRO  INDEX,NAME,MAC,IND,ADD
00085  M01S00082.comssfs +++|          IFC    NE,*MAC**
00086  M01S00083.comssfs +++| .1       MICRO  1,, MAC
00087  M01S00084.comssfs +++| .2       MICRO  1,,ADD
00088  M01S00085.comssfs +++| NAME     ".1"   ".2"
00089  M01S00086.comssfs +++| .1       SET NAME
00090  M01S00087.comssfs +++| .4       SET    IND
00091  M01S00088.comssfs +++|          DUP    IND-1,1
00092  M01S00089.comssfs +++|          ".1"   ".2"
00093  M01S00090.comssfs +++|          ELSE
00094  M01S00091.comssfs +++| .2       MICRO  1,,ADD
00095  M01S00092.comssfs +++|          ORG    .1+IND
00096  M01S00093.comssfs +++|          LOC    IND
00097  M01S00094.comssfs +++|          ".1"   ".2"
00098  M01S00095.comssfs +++|          ORG    .1+IND
00099  M01S00096.comssfs +++| NAME     BSS    0
00100  M01S00097.comssfs +++|          ORG    .1+.4
00101  M01S00098.comssfs +++|          ENDIF
00102  M01S00099.comssfs +++|          ENDM
00103  M01S00100.comssfs +++| INENT    SPACE  4
00104  M01S00101.comssfs +++|***       INENT - INPUT ENTRY TABLE ENTRY FOR *SCI* FUNCTION.
00105  M01S00102.comssfs +++|*
00106  M01S00103.comssfs +++|*         INENT  I,M,U,S,F,P
00107  M01S00104.comssfs +++|*         ENTRY  *I* = IDENTIFIER.
00108  M01S00105.comssfs +++|*                *M* = ADDRESS OF MAXIMUM VALUE (0 = INFINITE).
00109  M01S00106.comssfs +++|*                *U* = UPPER BIT OF FIELD.
00110  M01S00107.comssfs +++|*                *S* = FIELD SIZE.
00111  M01S00108.comssfs +++|*                *F* = FIRST WORD ADDRESS OF FIELD.
00112  M01S00109.comssfs +++|*                *P* = PROCESSOR INDEX.
00113  M01S00110.comssfs +++|*         EXIT   ONE WORD ENTRY GENERATED AS FOLLOWS -
00114  M01S00111.comssfs +++|*T               18/I,18/M,6/U,6/S,6/F,6/P

Figure

00115  M01S00112.comssfs +++|
00116  M01S00113.comssfs +++|
00117  M01S00003.ssfs1   +++|          PURGMAC  INENT
00118  M01S00114.comssfs +++| INENT    MACRO  I,M,U,S,F,P
00119  M01S00115.comssfs +++| )1 MICRO 1,3,$I$
00120  M01S00116.comssfs +++|          VFD    18D/0L")1",18D/M,6/U,6/S,6/F,6/P
00121  M01S00117.comssfs +++|  ENDM
00122  M01S00118.comssfs +++| FUNC     SPACE  4
00123  M01S00119.comssfs +++|***       FUNC - CALL SFS FUNCTION.
00124  M01S00120.comssfs +++|*
00125  M01S00121.comssfs +++|*         FUNC   A
00126  M01S00122.comssfs +++|*                *A* = FUNCTION EQUATE.
00127  M01S00123.comssfs +++|
00128  M01S00124.comssfs +++|
00129  M01S00004.ssfs1   +++|          PURGMAC  FUNC
00130  M01S00125.comssfs +++| FUNC     MACRO  A
00131  M01S00126.comssfs +++|          IFC    EQ,$A$$
00132  M01S00127.comssfs +++| P        ERR
00133  M01S00128.comssfs +++|          ENDIF
00134  M01S00129.comssfs +++|          SB5    A
00135  M01S00130.comssfs +++|          RJ     FUNC
00136  M01S00131.comssfs +++|          ENDM
00137  M01S00132.comssfs +++| CONS     SPACE  4
00138  M01S00133.comssfs +++|***       CONS - SET CONSTANT.
00139  M01S00134.comssfs +++|*
00140  M01S00135.comssfs +++|* A       CONS   B
00141  M01S00136.comssfs +++|*                A = TAG TO BE EQUATED TO ADDRESS.
00142  M01S00137.comssfs +++|*                B = CONSTANT TO BE SET AT ADDRESS(DEFAULT = 0).
00143  M01S00138.comssfs +++|*
00144  M01S00139.comssfs +++|*         EQUATES TAG TO ADDRESS, INITIALIZES ADDRESS IF
00145  M01S00140.comssfs +++|*         *OV* = 0, AND ADVANCES THE ORIGIN COUNTER.
00146  M01S00141.comssfs +++|
00147  M01S00142.comssfs +++|
00148  M01S00005.ssfs1   +++|          PURGMAC  CONS
00149  M01S00143.comssfs +++|          MACRO  CONS,A,B
00150  M01S00144.comssfs +++|          IFEQ   OV,0
00151  M01S00145.comssfs +++|          ORG    .3
00152  M01S00146.comssfs +++| A        CON    B
00153  M01S00147.comssfs +++|          ELSE
00154  M01S00148.comssfs +++|          IFC    NE,$A$$,1
00155  M01S00149.comssfs +++| A        EQU    .3
00156  M01S00150.comssfs +++|          ENDIF
00157  M01S00151.comssfs +++| .3       SET    .3+1
00158  M01S00152.comssfs +++|          ENDM
00159  M01S00153.comssfs +++| GTABLE   SPACE  4
00160  M01S00154.comssfs +++|***       GTABLE - GENERATE SFS MANAGED TABLE.
00161  M01S00155.comssfs +++|*
00162  M01S00156.comssfs +++|*         GTABLE TNAME,COUNT,EQUIV
00163  M01S00157.comssfs +++|*         ENTRY  *TNAME* = TABLE NAME.
00164  M01S00158.comssfs +++|*                *COUNT* = WORD COUNT/ENTRY (1 IF NOT SPECIFIED).
00165  M01S00159.comssfs +++|*                *EQUIV* = EQUIVALENT TABLE NAME. THIS ALLOWS CERTAIN
00166  M01S00160.comssfs +++|*                           TABLES TO BE USED BY DIFFERENT PROCESSORS.
00167  M01S00161.comssfs +++|*         EXIT   *F.TNAM* IS NAME OF WORD CONTAINING THE TABLE FWA.
00168  M01S00162.comssfs +++|*                *L.TNAM* IS NAME OF WORD CONTAINING THE TABLE LENGTH.
00169  M01S00163.comssfs +++|*                *C.TNAM* IS WORD COUNT PER ENTRY.
00170  M01S00164.comssfs +++|
00171  M01S00165.comssfs +++|
00172  M01S00166.comssfs +++| NTAB     SET    0
00173  M01S00167.comssfs +++|
00174  M01S00006.ssfs1   +++|          PURGMAC  GTABLE
00175  M01S00168.comssfs +++|          MACRO  GTABLE,TNAM,COUNT,EQUIV
00176  M01S00169.comssfs +++|          IFEQ   OV,0
00177  M01S00170.comssfs +++|          VFD    6/TNAM,18/C.TNAM,18/L.TNAM,18/F.TNAM
00178  M01S00171.comssfs +++|          ORG    *-1
00179  M01S00172.comssfs +++|          ENDIF
00180  M01S00173.comssfs +++| C.TNAM   EQU    COUNT 1
00181  M01S00174.comssfs +++|          IFC    EQ,$EQUIV$$
00182  M01S00175.comssfs +++| TNAM     EQU    NTAB
00183  M01S00176.comssfs +++| NTAB     SET    NTAB+1
00184  M01S00177.comssfs +++| GTABLES  RMT
00185  M01S00178.comssfs +++| .3       SET    FTAB+TNAM
00186  M01S00179.comssfs +++| F.TNAM   CONS   MEML+TNAM
00187  M01S00180.comssfs +++| .3       SET    LTAB+TNAM
00188  M01S00181.comssfs +++| L.TNAM   CONS   0
00189  M01S00182.comssfs +++| .3       SET    LTAB+NTAB
00190  M01S00183.comssfs +++| GTABLES  RMT
00191  M01S00184.comssfs +++|
00192  M01S00185.comssfs +++|          ELSE
00193  M01S00186.comssfs +++| TNAM     EQU    EQUIV
00194  M01S00187.comssfs +++| F.TNAM   EQU    F.EQUIV
00195  M01S00188.comssfs +++| GTABLES  RMT
00196  M01S00189.comssfs +++| L.TNAM   EQU    L.EQUIV
00197  M01S00190.comssfs +++| GTABLES  RMT
00198  M01S00191.comssfs +++|
00199  M01S00192.comssfs +++|          ENDIF
00200  M01S00193.comssfs +++|          ENDM
00201  M01S00194.comssfs +++|          SPACE  4
00202  M01S00195.comssfs +++|*         REMAINDER OF TABLE MANAGER STORAGE.
00203  M01S00196.comssfs +++|
00204  M01S00197.comssfs +++|
00205  M01S00198.comssfs +++| GTABLES  RMT
00206  M01S00199.comssfs +++| MU       CONS   0           MEMORY USED
00207  M01S00200.comssfs +++| LM       CONS   MEML        LOW MEMORY ADDRESS
00208  M01S00201.comssfs +++| TN       CONS   NTAB+1      NUMBER OF MANAGED TABLES
00209  M01S00202.comssfs +++| FTAB     EQU    .3          TABLE ADDRESSES
00210  M01S00203.comssfs +++|
00211  M01S00204.comssfs +++| TEND     EQU    NTAB        DUMMY TABLE
00212  M01S00205.comssfs +++| NTAB     SET    NTAB+1
00213  M01S00206.comssfs +++| .3       SET    FTAB+TEND
00214  M01S00207.comssfs +++| F.TEND   CONS   MEML+TEND   DUMMY TABLE
00215  M01S00208.comssfs +++| LTAB     EQU    .3          TABLE LENGTHS
00216  M01S00209.comssfs +++| .3       SET    LTAB+TEND
00217  M01S00210.comssfs +++| L.TEND   CONS   0
00218  M01S00211.comssfs +++| GTABLES  RMT
00219  M01S00212.comssfs +++| IDIRC    SPACE  4
00220  M01S00213.comssfs +++|***       IDIRC - INITIALIZE DIRECT CELLS.
00221  M01S00214.comssfs +++|*
00222  M01S00215.comssfs +++|*         DIRECT CELL TAGS ARE EQUATED TO ADDRESSES AND IF *OV* = 0,
00223  M01S00216.comssfs +++|*         THESE ADDRESSES ARE INITIALIZED THROUGH THE CONS MACRO.
00224  M01S00217.comssfs +++|
00225  M01S00218.comssfs +++|
00226  M01S00007.ssfs1   +++|          PURGMAC  IDIRC
00227  M01S00219.comssfs +++| IDIRC    MACRO
00228  M01S00220.comssfs +++|          LIST   G
00229  M01S00221.comssfs +++| .3       SET    DIRC
00230  M01S00222.comssfs +++| CW       CONS               CONTROL WORD HOLD AREAS
00231  M01S00223.comssfs +++|          CONS
00232  M01S00224.comssfs +++|          CONS
00233  M01S00225.comssfs +++| CZ       CONS               CREATE LEVEL-0 ON WRITE OF LEVEL-1
00234  M01S00226.comssfs +++| DF       CONS               MAXIMUM VALUE
00235  M01S00227.comssfs +++|          CONS               UPPER BIT
00236  M01S00228.comssfs +++|          CONS               SIZE
00237  M01S00229.comssfs +++|          CONS               ADDRESS
00238  M01S00230.comssfs +++|          CONS               IDENTIFIER
00239  M01S00231.comssfs +++| KD       CONS               K-DISPLAY CONTROL WORD ADDRESS
00240  M01S00232.comssfs +++| ET       CONS               ENTRY TERMINATOR
00241  M01S00233.comssfs +++|                              -1 = EOF
00242  M01S00234.comssfs +++|                              +1 = */*
00243  M01S00001.ns2290  +++| FLM      CONS               MEMORY LIMIT
00244  M01S00235.comssfs +++| ML       CONS               MEMORY LIMIT
00245  M01S00236.comssfs +++| M1       CONS               MESSAGE 1 ADDRESS
00246  M01S00237.comssfs +++| M2       CONS               MESSAGE 2 ADDRESS
00247  M01S00001.v23l617 +++| IL       CONS               KEYBOARD INPUT DISPLAY LINE ADDRESS
00248  M01S00238.comssfs +++| OP       CONS   -1          OPTION
00249  M01S00239.comssfs +++| OT       CONS   -1          ORIGIN TYPE
00250  M01S00240.comssfs +++| PD       CONS               PACKED DATE
00251  M01S00241.comssfs +++| SB       CONS               ADDRESS OF STRING BUFFER
00252  M01S00242.comssfs +++| SE       CONS               SEARCH ELEMENT ADDRESS
00253  M01S00243.comssfs +++| SL       CONS               RANDOM ADDRESS OF FIRST LEVEL-2 BLOCK
00254  M01S00244.comssfs +++| SM       CONS               STRING BUFFER MAXIMUM ADDRESS
00255  M01S00245.comssfs +++| SP       CONS               STRING BUFFER POINTER
00256  M01S00002.ns2290  +++| TO       CONS               TABLE OVERFLOW PROCESSOR
00257  M01S00246.comssfs +++| TV       CONS               TABLE OVERFLOW INDICATOR
00258  M01S00247.comssfs +++| LP       CONS               LIST PROCESSOR ADDRESS
00259  M01S00248.comssfs +++|*                            THIS SUBROUTINE WILL BE EXECUTED AFTER
00260  M01S00249.comssfs +++|*                            READING EACH SOURCE LINE FROM INPUT FILE
00261  M01S00250.comssfs +++|*                            OR K-DISPLAY. INTERFACE IS AS *RJ*.
00262  M01S00251.comssfs +++|*                            IF (LP)= 0, NO EXECUTION WILL BE ATTEMPTED.
00263  M01S00252.comssfs +++|
00264  M01S00253.comssfs +++|
00265  M01S00254.comssfs +++|***       OPTION TABLE.
00266  M01S00255.comssfs +++|*         FOR 0-OVERLAY PROGRAM, THESE VALUES SHOULD BE USED IN
00267  M01S00256.comssfs +++|*         INITIALIZING DIRECT CELL *OP* IF PERFORMING ONE OF THE
00268  M01S00257.comssfs +++|*         CORRESPONDING OPTIONS.
00269  M01S00258.comssfs +++|
00270  M01S00259.comssfs +++|
00271  M01S00260.comssfs +++|****
00272  M01S00261.comssfs +++| KOPT     EQU    0           K-DISPLAY
00273  M01S00262.comssfs +++| COPT     EQU    1           CREATE
00274  M01S00263.comssfs +++| UOPT     EQU    2           UPDATE
00275  M01S00264.comssfs +++| ROPT     EQU    3           REFORMAT
00276  M01S00265.comssfs +++| SOPT     EQU    4           SOURCE
00277  M01S00266.comssfs +++| IOPT     EQU    5           INQUIRE
00278  M01S00267.comssfs +++|****
00279  M01S00268.comssfs +++|
00280  M01S00269.comssfs +++|          LIST   -G
00281  M01S00270.comssfs +++|          ENDM
00282  M01S00271.comssfs +++| TABLES   SPACE  4
00283  M01S00272.comssfs +++|***       ITAB - INITIALIZE TABLES.
00284  M01S00273.comssfs +++|*
00285  M01S00274.comssfs +++|*         ITAB   C1,C2,C3,C4
00286  M01S00275.comssfs +++|*                *CN* = WORD COUNT/ENTRY OF CORRESPONDING TABLE.
00287  M01S00276.comssfs +++|*
00288  M01S00277.comssfs +++|*         INITIALIZES ALL MANAGED TABLE POINTERS REQUIRED BY THE
00289  M01S00278.comssfs +++|*         TABLE MANAGEMENT FUNCTIONS.
00290  M01S00279.comssfs +++|*         ANY TABLE ENTRIES NOT SET (SUCH AS *TFBL* AND *TPBL*)
00291  M01S00280.comssfs +++|*         MUST BE SET BY THE 0-OVERLAY PROGRAM.
00292  M01S00281.comssfs +++|
00293  M01S00282.comssfs +++|
00294  M01S00008.ssfs1   +++|          PURGMAC  ITAB
00295  M01S00283.comssfs +++| ITAB     MACRO  C1,C2,C3,C4
00296  M01S00284.comssfs +++|          LIST   G
00297  M01S00285.comssfs +++|
00298  M01S00286.comssfs +++|
00299  M01S00287.comssfs +++|***       MANAGED TABLES ARE USED TO CONTAIN ALL VARIABLE LOAD DATA.
00300  M01S00288.comssfs +++|*         THE FOLLOWING ENTRIES (ONE WORD/TABLE) CONTAIN POINTERS
00301  M01S00289.comssfs +++|*         TO THE TABLES IN THE FOLLOWING FORMAT -
00302  M01S00290.comssfs +++|*
00303  M01S00291.comssfs +++|*T        6/TNAM,18/C.TNAM,18/L.TNAM,18/F.TNAM

Figure

00304  M01S00292.comssfs +++|*
00305  M01S00293.comssfs +++|*                *TNAM*   =  TABLE NAME.
00306  M01S00294.comssfs +++|*                *C.TNAM* =  WORD COUNT/ENTRY.
00307  M01S00295.comssfs +++|*                *L.TNAM* =  WORD CONTAINING LENGTH OF TABLE.
00308  M01S00296.comssfs +++|*                *F.TNAM* =  WORD CONTAINING FWA OF TABLE.
00309  M01S00297.comssfs +++|*
00310  M01S00298.comssfs +++|*         THESE TABLES ARE MANAGED THROUGH THE MACROS IN *COMCMTM*
00311  M01S00299.comssfs +++|*         AND THE ROUTINES IN *COMTMTP*.
00312  M01S00300.comssfs +++|
00313  M01S00301.comssfs +++|
00314  M01S00302.comssfs +++| TAB0     GTABLE C1          LEVEL-O TABLE POINTERS
00315  M01S00303.comssfs +++| TAB1     GTABLE C2          LEVEL-1 TABLE POINTERS
00316  M01S00304.comssfs +++| TAB2     GTABLE C3          LEVEL-2 TABLE POINTERS
00317  M01S00305.comssfs +++| TAB3     GTABLE C4          LEVEL-3 TABLE POINTERS
00318  M01S00009.ssfs1   +++|
00319  M01S00010.ssfs1   +++|*         THE FOLLOWING TABLES ARE FOR USE BY THE CALLING PROGRAM
00320  M01S00011.ssfs1   +++|*         AND SHOULD NOT BE USED BY *SFS*.
00321  M01S00012.ssfs1   +++|
00322  M01S00013.ssfs1   +++| TAB4     GTABLE
00323  M01S00014.ssfs1   +++| TAB5     GTABLE
00324  M01S00015.ssfs1   +++| TAB6     GTABLE
00325  M01S00016.ssfs1   +++| TAB7     GTABLE
00326  M01S00017.ssfs1   +++| TAB8     GTABLE
00327  M01S00018.ssfs1   +++| TAB9     GTABLE
00328  M01S00306.comssfs +++|
00329  M01S00307.comssfs +++| GTABLES  HERE
00330  M01S00308.comssfs +++|
00331  M01S00309.comssfs +++|
00332  M01S00310.comssfs +++|***       RANDOM ADDRESS HOLD AREAS.
00333  M01S00311.comssfs +++|*
00334  M01S00312.comssfs +++|*         THE FIRST LOCATION CONTAINS THE RANDOM ADDRESS OF THE
00335  M01S00313.comssfs +++|*         BLOCK IN THE TABLE IF IT WAS RETRIEVED FROM THE FILE.
00336  M01S00314.comssfs +++|*         THE SECOND LOCATION CONTAINS THE RANDOM ADDRESS OF THE
00337  M01S00315.comssfs +++|*         BLOCK LINKED TO THE ONE IN THE TABLE IF A READ HAS BEEN
00338  M01S00316.comssfs +++|*         PERFORMED.  OTHERWISE, IT CONTAINS THE ADDRESS OF THE
00339  M01S00317.comssfs +++|*         LAST BLOCK WRITTEN FROM THE TABLE.
00340  M01S00318.comssfs +++|
00341  M01S00319.comssfs +++|
00342  M01S00320.comssfs +++| RA0      CONS               LEVEL-0 RANDOM ADDRESSES
00343  M01S00321.comssfs +++|          CONS
00344  M01S00322.comssfs +++| RA1      CONS               LEVEL-1 RANDOM ADDRESSES
00345  M01S00323.comssfs +++|          CONS
00346  M01S00324.comssfs +++| RA2      CONS               LEVEL-2 RANDOM ADDRESSES
00347  M01S00325.comssfs +++|          CONS
00348  M01S00326.comssfs +++| RA3      CONS               LEVEL-3 RANDOM ADDRESSES
00349  M01S00327.comssfs +++|          CONS
00350  M01S00328.comssfs +++|
00351  M01S00329.comssfs +++|
00352  M01S00330.comssfs +++|***       TABLE OF WORDS/ENTRY COUNT.
00353  M01S00331.comssfs +++|*
00354  M01S00332.comssfs +++|*         THE NUMBER OF CM WORDS IN EACH ENTRY IN THE
00355  M01S00333.comssfs +++|*         RESPECTIVE TABLE.
00356  M01S00334.comssfs +++|
00357  M01S00335.comssfs +++|
00358  M01S00336.comssfs +++| CTAB     CONS               LEVEL-0 WORD COUNT/ENTRY
00359  M01S00337.comssfs +++|          CONS               LEVEL-1 WORD COUNT/ENTRY
00360  M01S00338.comssfs +++|          CONS               LEVEL-2 WORD COUNT/ENTRY
00361  M01S00339.comssfs +++|          CONS               LEVEL-3 WORD COUNT/ENTRY
00362  M01S00340.comssfs +++|
00363  M01S00341.comssfs +++|
00364  M01S00342.comssfs +++|***       TABLE OF WORDS/ENTRY FOR SEARCH *MWS*.
00365  M01S00343.comssfs +++|*
00366  M01S00344.comssfs +++|*         THE NUMBER OF CM WORDS IN EACH ENTRY IN THE RESPECTIVE
00367  M01S00345.comssfs +++|*         TABLE TO COMPARE WHEN DOING A SEARCH.
00368  M01S00346.comssfs +++|*         (VALUES MUST BE INITIALIZED BY 0-OVERLAY PROGRAM.)
00369  M01S00347.comssfs +++|
00370  M01S00348.comssfs +++|
00371  M01S00349.comssfs +++| STAB     CONS               LEVEL-0
00372  M01S00350.comssfs +++|          CONS               LEVEL-1
00373  M01S00351.comssfs +++|          CONS               LEVEL-2
00374  M01S00352.comssfs +++|          CONS               LEVEL-3
00375  M01S00353.comssfs +++|
00376  M01S00354.comssfs +++|
00377  M01S00355.comssfs +++|***       TABLE OF FULL BLOCK LENGTHS.
00378  M01S00356.comssfs +++|*
00379  M01S00357.comssfs +++|*         THE MAXIMUM NUMBER OF CM WORDS IN A BLOCK FOR THE
00380  M01S00358.comssfs +++|*         RESPECTIVE TABLE (EXCLUDING CONTROL WORDS).
00381  M01S00359.comssfs +++|*         (VALUES MUST BE INITIALIZED BY OVERLAY PROGRAM.)
00382  M01S00360.comssfs +++|
00383  M01S00361.comssfs +++|
00384  M01S00362.comssfs +++| TFBL     CONS               LEVEL-0 FULL BLOCK LENGTH
00385  M01S00363.comssfs +++|          CONS               LEVEL-1 FULL BLOCK LENGTH
00386  M01S00364.comssfs +++|          CONS               LEVEL-2 FULL BLOCK LENGTH
00387  M01S00365.comssfs +++|
00388  M01S00366.comssfs +++|
00389  M01S00367.comssfs +++|***       TABLE OF PARTIAL BLOCK LENGTHS.
00390  M01S00368.comssfs +++|*
00391  M01S00369.comssfs +++|*         THE MAXIMUM NUMBER OF CM WORDS IN A PARTIAL BLOCK
00392  M01S00370.comssfs +++|*         FOR THE RESPECTIVE TABLE (EXCLUDING CONTROL WORDS).
00393  M01S00371.comssfs +++|*         REQUIRED WHEN SPLITTING BLOCKS.
00394  M01S00372.comssfs +++|*         (VALUES MUST BE INITIALIZED BY 0-OVERLAY PROGRAM.)
00395  M01S00373.comssfs +++|
00396  M01S00374.comssfs +++|
00397  M01S00375.comssfs +++| TPBL     CONS               LEVEL-0 PARTIAL BLOCK LENGTH
00398  M01S00376.comssfs +++|          CONS               LEVEL-1 PARTIAL BLOCK LENGTH
00399  M01S00377.comssfs +++|          CONS               LEVEL-2 PARTIAL BLOCK LENGTH
00400  M01S00378.comssfs +++|
00401  M01S00379.comssfs +++|
00402  M01S00380.comssfs +++|***       CONTROL WORDS.
00403  M01S00381.comssfs +++|*
00404  M01S00382.comssfs +++|*         CONTROL WORD FORMAT IS AS FOLLOWS -
00405  M01S00383.comssfs +++|*
00406  M01S00384.comssfs +++|*T        12/DL,12/WIB,12/WPE,12/NOE,12/FWAD

Figure

00407  M01S00385.comssfs +++|*
00408  M01S00386.comssfs +++|*                DL   = DATA LEVEL.
00409  M01S00387.comssfs +++|*                WIB  = WORDS IN BLOCK.
00410  M01S00388.comssfs +++|*                WPE  = WORDS PER ENTRY.
00411  M01S00389.comssfs +++|*                NOE  = NUMBER OF ENTRIES.
00412  M01S00390.comssfs +++|*                FWAD = FIRST WORD ADDRESS OF DATA.
00413  M01S00391.comssfs +++|*
00414  M01S00392.comssfs +++|*         EACH TABLE ENTRY SOULD CONTAIN THE *DL*, *WPE* AND
00415  M01S00393.comssfs +++|*         *FWAD* FIELDS.  THE *WIB* AND *NOE* FIELDS WILL BE
00416  M01S00394.comssfs +++|*         SUPPLIED WHEN THE BLOCK IS WRITTEN.
00417  M01S00395.comssfs +++|*         (VALUES MUST BE INITIALIZED BY 0-OVERLAY PROGRAM.)
00418  M01S00396.comssfs +++|
00419  M01S00397.comssfs +++|
00420  M01S00398.comssfs +++| CWL0     CONS               CONTROL WORD LEVEL-0
00421  M01S00399.comssfs +++| CWL1     CONS               CONTROL WORD LEVEL-1
00422  M01S00400.comssfs +++| CWL2     CONS               CONTROL WORD LEVEL-2
00423  M01S00401.comssfs +++| CWL3     CONS               CONTROL WORD LEVEL-3
00424  M01S00402.comssfs +++|
00425  M01S00403.comssfs +++|          LIST   -G
00426  M01S00404.comssfs +++| .1 SET *
00427  M01S00405.comssfs +++|
00428  M01S00406.comssfs +++| ITAB     ENDM
00429  M01S00407.comssfs +++|          SPACE  4
00430  M01S00408.comssfs +++|***       THE PROCESSOR PROGRAM MUST ADHERE TO THE FOLLOWING ADDRESSES
00431  M01S00409.comssfs +++|*         TO AVOID INADVERTANT OVERLAPPING.
00432  M01S00410.comssfs +++|*         (*DIRC*, *FUNC* AND *OVLA*)
00433  M01S00411.comssfs +++|
00434  M01S00412.comssfs +++|****
00435  M01S00413.comssfs +++| FUNC     EQU    110B        FUNCTION PROCESSOR ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
00436  M02S00414.v23l617 ---| DIRC     EQU    FUNC+1740B  DIRECT CELL ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
00437  M02S00002.ns2538  ---| DIRC     EQU    FUNC+1770B  DIRECT CELL ADDRESS
00438  M01S00001.ns2538  +++| DIRC     EQU    FUNC+2070B  DIRECT CELL ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
00439  M02S00415.ssfs1   ---| OVLA     EQU    DIRC+110B   OVERLAY ORIGIN ADDRESS
00440  M01S00019.ssfs1   +++| OVLA     EQU    DIRC+120B   OVERLAY ORIGIN ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
00441  M02S00416.ns2290  ---| FLLM     EQU    50000B      FIELD LENGTH LIMIT
00442  M01S00003.ns2290  +++| FLIN     EQU    2000B       INCREMENT FOR FIELD LENGTH CHANGES
00443  M01S00417.comssfs +++|          SPACE     4
00444  M01S00418.comssfs +++|*         FUNCTION EQUATES.
00445  M01S00419.comssfs +++|
00446  M01S00420.comssfs +++|*         INPUT PROCESSING FUNCTIONS.
00447  M01S00421.comssfs +++|
00448  M01S00422.comssfs +++| ASCT     EQU    0           ASSEMBLE CHARACTERS
00449  M01S00423.comssfs +++| SCIT     EQU    1           SCAN FOR CODE IDENTIFIER
00450  M01S00424.comssfs +++|
00451  M01S00425.comssfs +++|*         FILE READ FUNCTIONS.
00452  M01S00426.comssfs +++|
00453  M01S00427.comssfs +++| ANBT     EQU    2           ADD NEXT BLOCK
00454  M01S00428.comssfs +++| CCWT     EQU    3           CRACK CONTROL WORD
00455  M01S00429.comssfs +++| SBTT     EQU    4           SET BLOCK IN TABLE
00456  M01S00430.comssfs +++| SPBT     EQU    5           SET PRIMARY BLOCK
00457  M01S00431.comssfs +++| PNAT     EQU    6           PICK NEXT ADDRESS
00458  M01S00432.comssfs +++| PNET     EQU    7           PICK NEXT ENTRY
00459  M01S00433.comssfs +++|
00460  M01S00434.comssfs +++|*         FILE MANIPULATION FUNCTIONS.
00461  M01S00435.comssfs +++|
00462  M01S00436.comssfs +++| DZET     EQU    8           DELETE ZERO ENTRIES
00463  M01S00437.comssfs +++| MWST     EQU    9           MULTIPLE WORD SEARCH
00464  M01S00438.comssfs +++| SDFT     EQU    10          SET DATA IN FIELD
00465  M01S00439.comssfs +++| SFTT     EQU    11          SPACE FILL TABLE
00466  M01S00440.comssfs +++| STBT     EQU    12          SORT TABLE
00467  M01S00441.comssfs +++|
00468  M01S00442.comssfs +++|*         FILE WRITE FUNCTIONS.
00469  M01S00443.comssfs +++|
00470  M01S00444.comssfs +++| BLDT     EQU    13          BUILD DIRECTORY
00471  M01S00445.comssfs +++| RBAT     EQU    14          RESET BLOCK ADDRESSES
00472  M01S00446.comssfs +++| UDDT     EQU    15          UPDATE DIRECTORY
00473  M01S00447.comssfs +++| WTBT     EQU    16          WRITE TABLE
00474  M01S00448.comssfs +++| MAXT     EQU    17          MAXIMUM FUNCTION VALUE
00475  M01S00449.comssfs +++|
00476  M01S00450.comssfs +++|****
00477  M01S00451.comssfs +++|          SPACE     4
00478  M01S00452.comssfs +++|          BASE   *
00479  M01S00453.comssfs +++|          ENDX