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