cdc:nos2.source:opl.opl871:common:comssfs
Common COMSSFS
5 Modifications
Source
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
Line S00414 Modification History | |
---|---|
M01 (Added by) | comssfs |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00436 M02S00414.v23l617 ---| DIRC EQU FUNC+1740B DIRECT CELL ADDRESS
Line S00002 Modification History | |
---|---|
M01 (Added by) | v23l617 |
M02 (Updated by) | ns2538 |
Seq # *Modification Id* Act ----------------------------+ 00437 M02S00002.ns2538 ---| DIRC EQU FUNC+1770B DIRECT CELL ADDRESS 00438 M01S00001.ns2538 +++| DIRC EQU FUNC+2070B DIRECT CELL ADDRESS
Line S00415 Modification History | |
---|---|
M01 (Added by) | comssfs |
M02 (Updated by) | ssfs1 |
Seq # *Modification Id* Act ----------------------------+ 00439 M02S00415.ssfs1 ---| OVLA EQU DIRC+110B OVERLAY ORIGIN ADDRESS 00440 M01S00019.ssfs1 +++| OVLA EQU DIRC+120B OVERLAY ORIGIN ADDRESS
Line S00416 Modification History | |
---|---|
M01 (Added by) | comssfs |
M02 (Updated by) | ns2290 |
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
cdc/nos2.source/opl.opl871/common/comssfs.txt ยท Last modified: by 127.0.0.1