Common COMFDS2

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.comfds2 +++|
00002  M00S00002.comfds2 +++|#     COMFDS2 - LAST SECTION OF DATA SEGMENT #
00003  M00S00003.comfds2 +++|                                               CONTROL NOLIST;
00004  M00S00004.comfds2 +++|                                               CONTROL IFEQ LISTCON,1;
00005  M00S00005.comfds2 +++|                                               CONTROL LIST;
00006  M00S00006.comfds2 +++|                                               CONTROL FI;
Line S00001 Modification History
M01 (Added by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00007  M01S00001.281l803 +++|                                                                      #
00008  M01S00002.281l803 +++|*     COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00009  M01S00003.281l803 +++|                                                                      #
00010  M00S00007.comfds2 +++|  ARRAY TWOFILES [1:2];
00011  M00S00008.comfds2 +++|   BEGIN
00012  M00S00009.comfds2 +++|    ITEM FILEATTR;           # ALL ATTRIBUTES, THIS FILE   #
00013  M00S00010.comfds2 +++|    ITEM FILENAM C(0,0,7)=[" "," "];
Line S00001 Modification History
M01 (Added by) ns2607
Seq #  *Modification Id* Act 
----------------------------+
00014  M01S00001.ns2607  +++|    ITEM INITNMBR U(0,54,2);
00015  M01S00002.ns2607  +++|    ITEM INITFILE U(0,54,1)=[0,0];
00016  M00S00011.comfds2 +++|    ITEM NUMBERED U(0,55,1)=[0,0];
00017  M00S00012.comfds2 +++|    ITEM LOCKED   U(0,56,1)=[0,0];
00018  M00S00013.comfds2 +++|    ITEM CHANGED  U(0,57,1)=[0,0];
00019  M00S00014.comfds2 +++|    ITEM ASCII    U(0,58,2)=[0,0];
00020  M00S00015.comfds2 +++|   END
00021  M00S00016.comfds2 +++|
00022  M00S00017.comfds2 +++|  ITEM USRBRK=0;             # NOTIFIES US OF INTERRUPT    #
00023  M00S00018.comfds2 +++|
00024  M00S00019.comfds2 +++|  ARRAY BOOLEANS [0:0] P(2);         # BOOLEAN FLAGS #
00025  M00S00020.comfds2 +++|    BEGIN # ARRAY BOOLEANS #
00026  M00S00021.comfds2 +++|    ITEM ALLBOOLS1   U(00,00,60)=[0];  # CLEAR ALL WORD ONE FLAGS #
00027  M00S00022.comfds2 +++|    ITEM FORCESINGLE B(00,00,01);    # FORCE SINGLE EDITOR SOON #
00028  M00S00023.comfds2 +++|    ITEM CONNECTED   B(00,01,01);    # HOOKING UP TO MULTI #
00029  M00S00024.comfds2 +++|    ITEM FORCENULL   B(00,02,01);    # USED FOR MULTI DRAINALL #
00030  M00S00025.comfds2 +++|    ITEM SMFINCTL    B(00,03,01);    # RECOVERY VERSUS NORMAL END #
00031  M00S00026.comfds2 +++|    ITEM SMFVICTIM   B(00,04,01);    # SMFEX HAD TERRIBLE PROBLEM #
00032  M00S00027.comfds2 +++|    ITEM ZEROCOLASK  B(00,05,01);    # THE COLON QUESTION WAS "ASKED" #
00033  M00S00028.comfds2 +++|    ITEM IOWRTEOR    B(00,06,01);    # NEED EOR NEXT WRITE #
00034  M00S00029.comfds2 +++|    ITEM IORESUMED   B(00,07,01);    # USE OLD WORK OR NEW INITED #
00035  M00S00030.comfds2 +++|    ITEM IOACT       B(00,08,01);    # IO ACTIVE #
00036  M00S00031.comfds2 +++|    ITEM IOREAD      B(00,09,01);    # ACTIVE IO IS READ #
00037  M00S00032.comfds2 +++|    ITEM IOWRITE     B(00,10,01);    # ACTIVE IO IS WRITE #
00038  M00S00033.comfds2 +++|    ITEM IOAPEND     B(00,11,01);    # ACTIVE IO IS APPEND #
00039  M00S00034.comfds2 +++|    ITEM FOUNDOTHER  B(00,12,01);    # RANGE IN BOUNDS #
00040  M00S00035.comfds2 +++|    ITEM UPPERSEARCH B(00,13,01);    # SEARCH AS THOUGH UPPER-CASE #
00041  M00S00036.comfds2 +++|    ITEM APSTRREAD   B(00,14,01);    # APPLICATION STRING READ #
00042  M00S00037.comfds2 +++|    ITEM FORCEFIELD  B(00,15,01);    # USED TO PARSE TAB SPECS #
00043  M00S00038.comfds2 +++|    ITEM SOFTTAB     B(00,16,01);    # SOFT TABCHAR KEY STRUCK #
00044  M00S00039.comfds2 +++|    ITEM WORDSEARCH  B(00,17,01);    # WORD MODE, LOCATE/REPLACE #
00045  M00S00040.comfds2 +++|    ITEM SCANBLOCK   B(00,18,01);    # SCANNER DETECTED "BLOCK" #
00046  M00S00041.comfds2 +++|    ITEM SCANWORD    B(00,19,01);    # SCANNER DETECTED "WORD" #
00047  M00S00042.comfds2 +++|    ITEM FORWARD     B(00,20,01);    # SCANNER DETECTED "NEXT" #
00048  M00S00043.comfds2 +++|    ITEM BACKWARD    B(00,21,01);    # SCANNER DETECTED "PREVIOUS" #
00049  M00S00044.comfds2 +++|    ITEM DONTPRINT   B(00,22,01);    # SCANNER DETECTED "QUIET" #
00050  M00S00045.comfds2 +++|    ITEM FOUND       B(00,23,01);    # SEARCH/SCAN RESULT #
00051  M00S00046.comfds2 +++|    ITEM FIELDFLG    B(00,24,01);    # COLUMNAR FIND/SUBST #
00052  M00S00047.comfds2 +++|    ITEM LINECHANGED B(00,25,01);    # LINE CHANGED ON SCREEN #
00053  M00S00048.comfds2 +++|    ITEM ALIGNGOOD   B(00,26,01);    # ALIGN CALCULATION PRECISE #
00054  M00S00049.comfds2 +++|    ITEM SHORTTITLE  B(00,27,01);    # SHORT TITLE FORMAT CHOSEN #
00055  M00S00050.comfds2 +++|    ITEM COMPUTEDPOS B(00,28,01);    # CURSOR POSITION PRE-COMPUTE #
00056  M00S00051.comfds2 +++|    ITEM ELLIPSIS    B(00,29,01);    # LOCATE LINES WITH BOTH STRINGS #
00057  M00S00052.comfds2 +++|    ITEM ESCAPE      B(00,30,01);    # ESCAPE TEXT PROMPTING #
00058  M00S00053.comfds2 +++|    ITEM NXTESCAPE   B(00,31,01);    # NEXT ESCAPE TEXT PROMPTING #
00059  M00S00054.comfds2 +++|    ITEM CANINTER    B(00,32,01);    # BREAKABLE COMMAND #
00060  M00S00055.comfds2 +++|    ITEM TXTINCMD    B(00,33,01);    # TEXT EMBEDDED, NO PROMPT #
00061  M00S00056.comfds2 +++|    ITEM CHARRANGE   B(00,34,01);    # CHARACTER-ORIENTED RANGES #
00062  M00S00057.comfds2 +++|    ITEM ALLOWBACK   B(00,35,01);    # COMMAND ALLOWS BACKWARDS #
00063  M00S00058.comfds2 +++|    ITEM ALLASCII    B(00,36,01);    # FORCE ALL FILES ASCII #
00064  M00S00059.comfds2 +++|    ITEM FLOAT       B(00,37,01);    # DISPLAY FLOAT NUMBERS #
00065  M00S00060.comfds2 +++|    ITEM AUTOINDENT  B(00,38,01);    # SET JUMP ENABLED #
00066  M00S00061.comfds2 +++|    ITEM PAGELAST    B(00,39,01);    # LAST COMMAND WAS PAGE #
00067  M00S00062.comfds2 +++|    ITEM DELETEDONE  B(00,40,01);    # FOR EXEC AND DELZ #
00068  M00S00063.comfds2 +++|    ITEM SCREENMODE  B(00,41,01);    # SCREEN-EDIT MODE #
00069  M00S00064.comfds2 +++|    ITEM FIRSTEVENT  B(00,42,01);    # FIRST VDT INPUT EVENT #
00070  M00S00065.comfds2 +++|    ITEM SCANUPPER   B(00,43,01);    # "UPPER" KEYWORD SCANNED #
00071  M00S00066.comfds2 +++|    ITEM AUDITOFF    B(00,44,01);    # "UNDO" AUDIT TRAIL DISABLED #
00072  M00S00067.comfds2 +++|    ITEM NONDEFAULT  B(00,45,01);    # NON-TRIVIAL RANGE SCANNED #
00073  M00S00068.comfds2 +++|    ITEM PROCACTIVE  B(00,46,01);    # SEQUENTIAL PROC FILE ACTIVE #
00074  M00S00069.comfds2 +++|    ITEM SCANHOME    B(00,47,01);    # "HOME" PARAMETER SCANNED #
00075  M00S00070.comfds2 +++|    ITEM SUBSTONCE   B(00,48,01);    # SUBSTITUTE ONLY ONCE/LINE #
00076  M00S00071.comfds2 +++|    ITEM HARDFN      B(00,49,01);    # HARDWARE FN VS SIMULATE #
00077  M00S00072.comfds2 +++|    ITEM PROMPTING   B(00,50,01);    # USED FOR SCREEN PROMPTS #
00078  M00S00073.comfds2 +++|    ITEM AUDITUSED   B(00,51,01);    # AUDIT TRAIL RECENTLY USED #
00079  M00S00074.comfds2 +++|    ITEM FIRSTRANGE  B(00,52,01);    # FIRST PASS OF DORANGE LOOP #
00080  M00S00075.comfds2 +++|    ITEM LASTRANGE   B(00,53,01);    # LAST PASS OF DORANGE LOOP #
00081  M00S00076.comfds2 +++|    ITEM KILLMARKS   B(00,54,01);    # KILL THE MARKS #
00082  M00S00077.comfds2 +++|    ITEM ABORTED     B(00,55,01);    # SOMETHING WRONG LAST EDIT #
00083  M00S00078.comfds2 +++|    ITEM EXITFLAGS   U(00,56,04);    # MUST COVER ALL EXIT FLAGS #
00084  M00S00079.comfds2 +++|    ITEM EXITSAVE    B(00,56,01);    # REPLACE PFM MACRO WANTED #
00085  M00S00080.comfds2 +++|    ITEM EXITQUIT    B(00,57,01);    # SUPPRESS REBUILD #
00086  M00S00081.comfds2 +++|    ITEM EXITCMD     B(00,58,01);    # CURRENT COMMAND IS EXIT #
00087  M00S00082.comfds2 +++|    ITEM EXITEXCST   B(00,59,01);    # EXECUTE NOS CONTROL STATEMENT #
00088  M00S00083.comfds2 +++|
00089  M00S00084.comfds2 +++|    ITEM ALLBOOLS2   U(01,00,60)=[0];  # CLEAR ALL WORD TWO FLAGS #
00090  M00S00085.comfds2 +++|    ITEM PAINTAGAIN  B(01,00,01);    # FORCE SCREEN PAINT #
00091  M00S00086.comfds2 +++|    ITEM ZEROCOLIN   B(01,01,01);    # SOME 6/12 FILES HAD 00 COLON #
00092  M00S00087.comfds2 +++|                                     # AT INITIAL FILE BUILD #
00093  M00S00088.comfds2 +++|    ITEM ZEROCOLOUT  B(01,02,01);    # USER WANTS 00 COLONS FOR 6/12 #
00094  M00S00089.comfds2 +++|    ITEM FORCEDHOME  B(01,03,01);    # FORCED TO PUT CURSOR AT HOME #
00095  M00S00090.comfds2 +++|    ITEM SCHSTRSPEC  B(01,04,01);    # SEARCH STRING SPECIFIED #
00096  M00S00091.comfds2 +++|    ITEM FORCEAUTOP  B(01,05,01);    # FORCE AUTO HALF PAGE #
00097  M00S00092.comfds2 +++|    ITEM DATAKEYPRS  B(01,06,01);    # DATA KEY PRESSED #
00098  M00S00093.comfds2 +++|    ITEM SCANSFILE   B(01,07,01);    # SOURCE FILE FOR COPY/MOVE SEEN #
00099  M00S00094.comfds2 +++|    ITEM SCANTO      B(01,08,01);    # SCANNER DETECTED "TO" #
00100  M00S00095.comfds2 +++|    ITEM SCNLINX     B(01,09,01);    # SCNLIN DETECTED "X" #
00101  M00S00096.comfds2 +++|    ITEM SCNLINY     B(01,10,01);    # SCNLIN DETECTED "Y" #
00102  M00S00097.comfds2 +++|    ITEM SCNLINZ     B(01,11,01);    # SCNLIN DETECTED "Z" #
00103  M00S00098.comfds2 +++|    ITEM SCNONCE     B(01,12,01);    # ASSURE ONLY ONE RESCAN #
00104  M00S00099.comfds2 +++|    ITEM CMDWASDLTE  B(01,13,01);    # COMMAND WAS "DELETE" #
00105  M00S00100.comfds2 +++|    ITEM FORCEAUTOR  B(01,14,01);    # FORCE AUTO RETURN #
00106  M00S00101.comfds2 +++|    ITEM SCANMARK    B(01,15,01);    # SCANNER DETECTED "MARK" #
Line S00001 Modification History
M01 (Added by) ns2503
Seq #  *Modification Id* Act 
----------------------------+
00107  M01S00001.ns2503  +++|    ITEM RIGHTJUST   B(01,16,01);    # RIGHT JUSTIFY FOR .FILL #
Line S00002 Modification History
M01 (Added by) ns2503
M02 (Removed by) ns2623
Seq #  *Modification Id* Act 
----------------------------+
00108  M02S00002.ns2623  ---|    ITEM FUTUREUSE17 B(01,17,01);    # FOR FUTURE (CDC) USE #
Line S00001 Modification History
M01 (Added by) ns2623
Seq #  *Modification Id* Act 
----------------------------+
00109  M01S00001.ns2623  +++|    ITEM ECHOOFF     B(01,18,01);    # DO NOT ECHO DIRECTIVES #
Line S00003 Modification History
M01 (Added by) ns2503
Seq #  *Modification Id* Act 
----------------------------+
00110  M01S00003.ns2503  +++|    ITEM FUTUREUSE18 B(01,18,01);    # FOR FUTURE (CDC) USE #
00111  M01S00004.ns2503  +++|    ITEM FUTUREUSE19 B(01,19,01);    # FOR FUTURE (CDC) USE #
00112  M01S00005.ns2503  +++|    ITEM FUTUREUSE20 B(01,20,01);    # FOR FUTURE (CDC) USE #
00113  M01S00006.ns2503  +++|    ITEM FUTUREUSE21 B(01,21,01);    # FOR FUTURE (CDC) USE #
00114  M01S00007.ns2503  +++|    ITEM FUTUREUSE22 B(01,22,01);    # FOR FUTURE (CDC) USE #
00115  M01S00008.ns2503  +++|    ITEM FUTUREUSE23 B(01,23,01);    # FOR FUTURE (CDC) USE #
00116  M01S00009.ns2503  +++|    ITEM FUTUREUSE24 B(01,24,01);    # FOR FUTURE (CDC) USE #
00117  M01S00010.ns2503  +++|    ITEM FUTUREUSE25 B(01,25,01);    # FOR FUTURE (CDC) USE #
00118  M01S00011.ns2503  +++|    ITEM FUTUREUSE26 B(01,26,01);    # FOR FUTURE (CDC) USE #
00119  M01S00012.ns2503  +++|    ITEM FUTUREUSE27 B(01,27,01);    # FOR FUTURE (CDC) USE #
00120  M01S00013.ns2503  +++|    ITEM FUTUREUSE28 B(01,28,01);    # FOR FUTURE (CDC) USE #
00121  M01S00014.ns2503  +++|    ITEM FUTUREUSE29 B(01,29,01);    # FOR FUTURE (CDC) USE #
00122  M01S00015.ns2503  +++|    ITEM FUTUREUSE30 B(01,30,01);    # FOR FUTURE (CDC) USE #
00123  M01S00016.ns2503  +++|    ITEM FUTUREUSE31 B(01,31,01);    # FOR FUTURE (CDC) USE #
00124  M01S00017.ns2503  +++|    ITEM FUTUREUSE32 B(01,32,01);    # FOR FUTURE (CDC) USE #
00125  M01S00018.ns2503  +++|    ITEM FUTUREUSE33 B(01,33,01);    # FOR FUTURE (CDC) USE #
00126  M01S00019.ns2503  +++|    ITEM FUTUREUSE34 B(01,34,01);    # FOR FUTURE (CDC) USE #
00127  M01S00020.ns2503  +++|    ITEM FUTUREUSE35 B(01,35,01);    # FOR FUTURE (CDC) USE #
00128  M01S00021.ns2503  +++|    ITEM FUTUREUSE36 B(01,36,01);    # FOR FUTURE (CDC) USE #
00129  M01S00022.ns2503  +++|    ITEM FUTUREUSE37 B(01,37,01);    # FOR FUTURE (CDC) USE #
00130  M01S00023.ns2503  +++|    ITEM FUTUREUSE38 B(01,38,01);    # FOR FUTURE (CDC) USE #
00131  M01S00024.ns2503  +++|    ITEM FUTUREUSE39 B(01,39,01);    # FOR FUTURE (CDC) USE #
00132  M01S00025.ns2503  +++|    ITEM FUTUREUSE40 B(01,40,01);    # FOR FUTURE (CDC) USE #
00133  M01S00026.ns2503  +++|    ITEM FUTUREUSE41 B(01,41,01);    # FOR FUTURE (CDC) USE #
00134  M01S00027.ns2503  +++|    ITEM FUTUREUSE42 B(01,42,01);    # FOR FUTURE (CDC) USE #
00135  M01S00028.ns2503  +++|    ITEM FUTUREUSE43 B(01,43,01);    # FOR FUTURE (CDC) USE #
00136  M01S00029.ns2503  +++|    ITEM FUTUREUSE44 B(01,44,01);    # FOR FUTURE (CDC) USE #
00137  M01S00030.ns2503  +++|    ITEM FUTUREUSE45 B(01,45,01);    # FOR FUTURE (CDC) USE #
00138  M01S00031.ns2503  +++|    ITEM FUTUREUSE46 B(01,46,01);    # FOR FUTURE (CDC) USE #
00139  M01S00032.ns2503  +++|    ITEM FUTUREUSE47 B(01,47,01);    # FOR FUTURE (CDC) USE #
00140  M01S00033.ns2503  +++|    ITEM FUTUREUSE48 B(01,48,01);    # FOR FUTURE (CDC) USE #
00141  M01S00034.ns2503  +++|    ITEM FUTUREUSE49 B(01,49,01);    # FOR FUTURE (CDC) USE #
00142  M01S00035.ns2503  +++|    ITEM FUTUREUSE50 B(01,50,01);    # FOR FUTURE (CDC) USE #
00143  M01S00036.ns2503  +++|    ITEM FUTUREUSE51 B(01,51,01);    # FOR FUTURE (CDC) USE #
00144  M01S00037.ns2503  +++|    ITEM FUTUREUSE52 B(01,52,01);    # FOR FUTURE (CDC) USE #
00145  M01S00038.ns2503  +++|    ITEM FUTUREUSE53 B(01,53,01);    # FOR FUTURE (CDC) USE #
00146  M01S00039.ns2503  +++|    ITEM FUTUREUSE54 B(01,54,01);    # FOR FUTURE (CDC) USE #
00147  M01S00040.ns2503  +++|    ITEM FUTUREUSE55 B(01,55,01);    # FOR FUTURE (CDC) USE #
00148  M01S00041.ns2503  +++|    ITEM FUTUREUSE56 B(01,56,01);    # FOR FUTURE (CDC) USE #
00149  M01S00042.ns2503  +++|    ITEM FUTUREUSE57 B(01,57,01);    # FOR FUTURE (CDC) USE #
00150  M01S00043.ns2503  +++|    ITEM FUTUREUSE58 B(01,58,01);    # FOR FUTURE (CDC) USE #
00151  M01S00044.ns2503  +++|    ITEM FUTUREUSE59 B(01,59,01);    # FOR FUTURE (CDC) USE #
00152  M00S00102.comfds2 +++|    END # ARRAY BOOLEANS #
00153  M00S00103.comfds2 +++|
00154  M00S00104.comfds2 +++|
00155  M00S00105.comfds2 +++|  ARRAY SIZES [0:0] P(11);           # WIDTHS, ETC. #
00156  M00S00106.comfds2 +++|    BEGIN # ARRAY SIZES #
00157  M00S00107.comfds2 +++|    ITEM BLANKS     I(00)=[1];       # BLANKS AFTER SEQUENCE NO.S #
00158  M00S00108.comfds2 +++|    ITEM GROUPSIZ   I(01)=[9];       # LINES PRINTED BY V IN LINE #
00159  M00S00109.comfds2 +++|    ITEM WIDTH      I(02)=[160];     # DEFAULT LINE WIDTH FOR SVW #
00160  M00S00110.comfds2 +++|    ITEM NUMWIDBLK  I(03)=[6];       # SEQUENCE NUMBERS PLUS BLANKS #
00161  M00S00111.comfds2 +++|    ITEM USRNUMCOL  I(04)=[1];       # DEFAULT COLUMNS TO DISPLAY #
00162  M00S00112.comfds2 +++|    ITEM USRNUMLIN  I(05)=[1];       # DEFAULT LINES TO DISPLAY #
00163  M00S00113.comfds2 +++|    ITEM USRSPLTSZ  I(06)=[-1];      # USER SPLIT SIZE #
00164  M00S00114.comfds2 +++|    ITEM EDITFIELD  I(07)=[250];     # DEFAULT EDIT FIELD FOR SVE #
Line S00115 Modification History
M01 (Removed by) ns2623
Seq #  *Modification Id* Act 
----------------------------+
00165  M01S00115.ns2623  ---|    ITEM FILLLEFT   I(08)=[0];       # SWF LEFT MARGIN #
00166  M01S00116.ns2623  ---|    ITEM FILLRIGHT  I(09)=[64];      # SWF RIGHT MARGIN #
00167  M01S00117.ns2623  ---|    ITEM FILLFIRST  I(10)=[4];       # SWF INDENTATION #
Line S00002 Modification History
M01 (Added by) ns2623
Seq #  *Modification Id* Act 
----------------------------+
00168  M01S00002.ns2623  +++|    ITEM FILLLEFT   I(08,00,12)=[0]; # SWF LEFT MARGIN #
00169  M01S00003.ns2623  +++|    ITEM FILLRIGHT  I(08,12,12)=[64];# SWF RIGHT MARGIN #
00170  M01S00004.ns2623  +++|    ITEM FILLFIRST  I(08,24,12)=[4]; # SWF INDENTATION #
Line S00001 Modification History
M01 (Added by) ns2688
Seq #  *Modification Id* Act 
----------------------------+
00171  M01S00001.ns2688  +++|    ITEM INFLDBGN   I(08,36,12)=[0]; # LEFT *IN* MARGIN #
00172  M01S00002.ns2688  +++|    ITEM INFLDEND   I(08,48,12)=[0]; # RIGHT *IN* MARGIN #
Line S00005 Modification History
M01 (Added by) ns2623
Seq #  *Modification Id* Act 
----------------------------+
00173  M01S00005.ns2623  +++|    ITEM UNPRINT    I(09)=[CUPARROW];# UNPRINTABLE CHARACTERS #
Line S00006 Modification History
M01 (Added by) ns2623
M02 (Removed by) ns2688
Seq #  *Modification Id* Act 
----------------------------+
00174  M02S00006.ns2688  ---|    ITEM CDCRESVRD  I(10)=[0];       # RESERVED FOR CDC #
Line S00003 Modification History
M01 (Added by) ns2688
Seq #  *Modification Id* Act 
----------------------------+
00175  M01S00003.ns2688  +++|    ITEM DFINFIELD  I(10,00,24);     # DEFAULT *IN* MARGINS(*SVI*) #
00176  M01S00004.ns2688  +++|      ITEM DFINBGN  I(10,00,12)=[1];   # DEFAULT LEFT *IN* MARGIN #
00177  M01S00005.ns2688  +++|      ITEM DFINEND  I(10,12,12)=[250]; # DEFAULT RIGHT *IN* MARGIN #
00178  M01S00006.ns2688  +++|    ITEM CDCRESVRD  I(10,24,36)=[0]; # RESERVED FOR CDC #
00179  M00S00118.comfds2 +++|    END # ARRAY SIZES #
00180  M00S00119.comfds2 +++|
00181  M00S00120.comfds2 +++|  ARRAY VARYCHARS(6);       # VARIABLE SYNTAX CHARACTERS  #
00182  M00S00121.comfds2 +++|   BEGIN                     # MUST MATCH SETKEYS ARRAY    #
00183  M00S00122.comfds2 +++|    ITEM BLKCHAR    (0)=[CAMPER];      # M-MOD BLANK       #
00184  M00S00123.comfds2 +++|    ITEM COPCHAR    (1)=[CBLANK];      # M-MOD COPY        #
00185  M00S00124.comfds2 +++|    ITEM DELCHAR    (2)=[CPOUND];      # M-MOD DELETE      #
00186  M00S00125.comfds2 +++|    ITEM INSCHAR    (3)=[CUPARROW];    # M-MOD INSERT      #
00187  M00S00126.comfds2 +++|    ITEM TABCHAR    (4)=[CBAKSLASH];   # TAB     #
00188  M00S00127.comfds2 +++|    ITEM TRNCHAR    (5)=[CEXCLAM];     # M-MOD TRUNCATE    #
00189  M00S00128.comfds2 +++|   END
00190  M00S00129.comfds2 +++|  ARRAY TABVECTOR [1:TABWORDS];
00191  M00S00130.comfds2 +++|    BEGIN                            # 20 TABS, DEFAULT FOR FORTRAN #
00192  M00S00131.comfds2 +++|    ITEM TABVCTWRD=[O"01443400000000000000",0,0];
00193  M00S00132.comfds2 +++|    END
00194  M00S00133.comfds2 +++|
00195  M00S00134.comfds2 +++|  # THE WORDFLAGS ARRAY INDICATES WHICH INTERNAL CHARACTER SET VALUES #
00196  M00S00135.comfds2 +++|  # ARE TREATED AS ALPHANUMERIC RATHER THAN AS PUNCTUATION, FOR THE #
00197  M00S00136.comfds2 +++|  # PURPOSES OF UPPER-CASE SEARCHING, THE DELETE WORD OPERATION, AND #
00198  M00S00137.comfds2 +++|  # THE CURRENT WORD MICRO.  THE ARRAY USES FOUR WORDS IN WHICH THE #
00199  M00S00138.comfds2 +++|  # FIRST 32 BITS ARE USED.  THE INITIAL VALUE TURNS ON THE BITS FOR #
00200  M00S00139.comfds2 +++|  # ALL UPPER AND LOWER CASE LETTERS AND FOR DIGITS.  THE ORDER OF #
00201  M00S00140.comfds2 +++|  # THE BITS IS HARD CODED FOR THE STANDARD DEFINITION OF THE #
00202  M00S00141.comfds2 +++|  # INTERNAL CHARACTER SET. #
00203  M00S00142.comfds2 +++|
00204  M00S00143.comfds2 +++|  ARRAY WORDFLAGS [0:3] P(1);        # PUNCTUATION VS ALPHANUMERIC #
00205  M00S00144.comfds2 +++|    BEGIN # ARRAY WORDFLAGS #
00206  M00S00145.comfds2 +++|    ITEM WORDFLAG   I=               # CHARACTER SET FLAGS #
00207  M00S00146.comfds2 +++|    [O"3777 7777 7760 0000 0000",
00208  M00S00147.comfds2 +++|     O"7600 0000 0000 0000 0000",
00209  M00S00148.comfds2 +++|     O"3777 7777 7000 0000 0000",
00210  M00S00149.comfds2 +++|     O"0000 0000 0000 0000 0000"];
00211  M00S00150.comfds2 +++|    END # ARRAY WORDFLAGS #
00212  M00S00151.comfds2 +++|
00213  M00S00152.comfds2 +++|  ITEM CURSPLIT=1;           # SELECT SPLIT SPLITTAGE     #
00214  M00S00153.comfds2 +++|  ITEM CURFILE=1;            # SELECT FILE 1 OR 2         #
00215  M00S00154.comfds2 +++|  ITEM CURCURSOR=0;          # CURRENT X-CURSOR  #
00216  M00S00155.comfds2 +++|  ITEM TEMPCURLIN=0;         # TEMP STORAGE FOR CURRENT LINE #
00217  M00S00156.comfds2 +++|  ITEM NEWCURSOR=0;          # NEXT X-CURSOR     #
00218  M00S00157.comfds2 +++|  ITEM OLDCURSOR=0;          # PREVIOUS X-CURSOR #
00219  M00S00158.comfds2 +++|  ITEM OLDLINPTR=0;          # PREVIOUS START LINE #
00220  M00S00159.comfds2 +++|  ITEM OLDCURFIL=0;          # PREVIOUS CURRENT FILE #
00221  M00S00160.comfds2 +++|  ITEM OLDFDLF1=0;           # PREVIOUS DIRECTORY ID FOR FIRST FILE #
00222  M00S00161.comfds2 +++|  ITEM OLDFDLF2=0;           # PREVIOUS DIRECTORY ID FOR SECOND #
00223  M00S00162.comfds2 +++|
00224  M00S00163.comfds2 +++|  ITEM FILNUM=1;         # NEW FILE CHOICE SCANNED     #
00225  M00S00164.comfds2 +++|  ITEM CHARPARM=0;       # 0=DONT CARE, 1=NORMAL, 2=6/12, 3=8/12 #
00226  M00S00165.comfds2 +++|  ITEM GETPARM=0;        # 0=DONT PFM, 1=IF NEEDED, 2=FORCED     #
00227  M00S00166.comfds2 +++|                         # 3 = FORCED LOCAL READ W/OUT PFM       #
00228  M00S00167.comfds2 +++|  ITEM SAVECURL=1;
00229  M00S00168.comfds2 +++|  ITEM LINENO=-1;            # NUMBER ON CUR LINE          #
00230  M00S00169.comfds2 +++|  ITEM INCR=100;
00231  M00S00170.comfds2 +++|  ITEM LOCSTRLEN1=0, LOCSTRLEN2=0;
00232  M00S00171.comfds2 +++|  ITEM CHGSTRLEN1=0, STRINGLEN=0;
00233  M00S00172.comfds2 +++|  ITEM KEYWDTYPE=1;
00234  M00S00173.comfds2 +++|  ITEM WIDTHFOUND=0;
00235  M00S00174.comfds2 +++|  ITEM DINCR=100;            # DEFAULT INCR      #
00236  M00S00175.comfds2 +++|  ITEM STACKPTR=-1;
00237  M00S00176.comfds2 +++|  ITEM ORIGSTKPTR=0;                # ORIGINAL STACK DEPTH #
00238  M00S00177.comfds2 +++|  ITEM DATAPTR=-1;
00239  M00S00178.comfds2 +++|
00240  M00S00179.comfds2 +++|  ITEM ERRSTRING C(80)=" $";         # HOLDS RESPONSE MESSAGE #
00241  M00S00180.comfds2 +++|  ITEM ERRCURSOR=-1;
00242  M00S00181.comfds2 +++|
00243  M00S00182.comfds2 +++|  ITEM FIELDNDX=0;           # WHICH TAB FIELD IS IN USE   #
Line S00183 Modification History
M01 (Removed by) ns2688
Seq #  *Modification Id* Act 
----------------------------+
00244  M01S00183.ns2688  ---|  ITEM FIELDBGN=0;           # FOR COLLUMN SPEC IN F,S CMDS          #
Line S00007 Modification History
M01 (Added by) ns2688
Seq #  *Modification Id* Act 
----------------------------+
00245  M01S00007.ns2688  +++|  ITEM FIELDBGN=0;           # FOR COLUMN SPEC IN F,S CMDS #
00246  M00S00184.comfds2 +++|  ITEM FIELDEND=0;
00247  M00S00185.comfds2 +++|  ITEM FIELDTARGET=0;        # WHICH FIELD FOR TARGET ADDRESS        #
00248  M00S00186.comfds2 +++|  ITEM PROCESSNDX=0;         # USED BY PROCESS   #
00249  M00S00187.comfds2 +++|  ITEM LASTPROCESS=0;
00250  M00S00188.comfds2 +++|  ITEM LIMIT=1;              # USER SPECIFIED LIMIT        #
00251  M00S00189.comfds2 +++|  ITEM LCOUNT=0;             # COUNTS VERIFIED LINES IN RNG #
00252  M00S00190.comfds2 +++|  ITEM FINDCONTROL=0;        # CONTROLS TEXT SEARCH OPTIONS #
00253  M00S00191.comfds2 +++|                             # BOTTOM BIT=FIRST/LAST RANGE  #
00254  M00S00192.comfds2 +++|                             # NEXT BIT UP=WORD OR ELLIPSIS #
00255  M00S00193.comfds2 +++|                             #   OR CASELESS OR FIELD       #
00256  M00S00194.comfds2 +++|
Line S00001 Modification History
M01 (Added by) ns2700
M02 (Removed by) ns2718
Seq #  *Modification Id* Act 
----------------------------+
00257  M02S00001.ns2718  ---|  ITEM SHIFTFKEY = 1;        # DISPLAY SHIFTED FUNCTION KEYS #
Line S00001 Modification History
M01 (Added by) ns2718
Seq #  *Modification Id* Act 
----------------------------+
00258  M01S00001.ns2718  +++|  ARRAY SFKEYSPECS [0:0];
00259  M01S00002.ns2718  +++|    BEGIN   # ARRAY SFKEYSPECS #
00260  M01S00003.ns2718  +++|    ITEM SFKEYDEFS  I(00,06,18) = [1];     # SHIFTED F-KEYS DEFINED #
00261  M01S00004.ns2718  +++|    ITEM SFKEYSHOW  I(00,24,18) = [1];     # SHIFTED F-KEYS SELECTED #
00262  M01S00005.ns2718  +++|    ITEM SHIFTFKEY  I(00,42,18) = [1];     # DISPLAY SHIFTED F-KEYS #
00263  M01S00006.ns2718  +++|    END     # ARRAY SFKEYSPECS #
00264  M00S00195.comfds2 +++|  ITEM SCANPOS=0;            #  SYNTAX SCAN CURSOR          #
00265  M00S00196.comfds2 +++|  ITEM TOKENTYPE=0;          # RETURNED BY TOKEN #
00266  M00S00197.comfds2 +++|  ITEM TOKENPOS=0;
00267  M00S00198.comfds2 +++|  ITEM TOKENVAL=0;
00268  M00S00199.comfds2 +++|  ITEM TOKENSYM C(10)="          ";
00269  M00S00200.comfds2 +++|  ITEM TOKENCHAR=CBLANK;
00270  M00S00201.comfds2 +++|  ITEM TOKENLEN=1;
00271  M00S00202.comfds2 +++|  ITEM ORIGSCNLIN=0;
00272  M00S00203.comfds2 +++|  ITEM CMDMARKER=0;
00273  M00S00204.comfds2 +++|  ITEM EXPANDAT=-1;          # CMDLINE POSITION TO EXPAND MICROS   #
00274  M00S00205.comfds2 +++|  ITEM EXTENDSIZE=0;
00275  M00S00206.comfds2 +++|  ITEM THISEXTEND=0;
00276  M00S00207.comfds2 +++|  ITEM KEYWDNDX=0;
00277  M00S00208.comfds2 +++|  ITEM WHICHLIN=0, WHICHSTR=0, WHICHDGT=0;
00278  M00S00209.comfds2 +++|
Line S00001 Modification History
M01 (Added by) ns2626
Seq #  *Modification Id* Act 
----------------------------+
00279  M01S00001.ns2626  +++|  ITEM WORKORG C(7);                   # ORIGINAL WORKFILE NAME #
00280  M00S00210.comfds2 +++|  ITEM READNAM C(7)="       ";         # READ/WRITE FILE #
00281  M00S00211.comfds2 +++|  ITEM PROCNAM C(7)="FSEPROC";         # NAME PROCEDURE LIBRARY    #
00282  M00S00212.comfds2 +++|  ITEM CURPROCNAM C(7);
00283  M00S00213.comfds2 +++|  ITEM PROCREC C(7);
00284  M00S00214.comfds2 +++|
00285  M00S00215.comfds2 +++|  ITEM SPLIT I;
00286  M00S00216.comfds2 +++|  ITEM SCREENLIMIT=0;
00287  M00S00217.comfds2 +++|  ITEM COMMANDROW=0;
00288  M00S00218.comfds2 +++|  ITEM RESPONSEROW=0;
00289  M00S00219.comfds2 +++|  ITEM ROWSUSED=0;
00290  M00S00220.comfds2 +++|  ITEM FKEYNUMROW=1;
00291  M00S00221.comfds2 +++|  ITEM FKEYROW=0;
00292  M00S00222.comfds2 +++|  ITEM FKEYCHARS=6;
00293  M00S00223.comfds2 +++|  ITEM FKEYSHOW=8;
Line S00001 Modification History
M01 (Added by) ns2641
Seq #  *Modification Id* Act 
----------------------------+
00294  M01S00001.ns2641  +++|  ITEM FKEYLEN=79;
00295  M01S00002.ns2641  +++|  ITEM FKEYPAD=0;
00296  M00S00224.comfds2 +++|  ITEM XCURSOR=0;
00297  M00S00225.comfds2 +++|  ITEM YCURSOR=0;
00298  M00S00226.comfds2 +++|  ITEM OLDVTXCURS=0;
00299  M00S00227.comfds2 +++|  ITEM OLDVTYCURS=0;
00300  M00S00228.comfds2 +++|  ITEM FKEYMSKON  U;
00301  M00S00229.comfds2 +++|  ITEM FKEYMSKOFF U;
00302  M00S00230.comfds2 +++|  ITEM FKEYNDX=0;
00303  M00S00231.comfds2 +++|  ITEM FKEYSPC1   C(2);
00304  M00S00232.comfds2 +++|  ITEM FKEYSPC2   C(4);
00305  M00S00233.comfds2 +++|  ITEM NUMMARKS=0;
00306  M00S00234.comfds2 +++|  ITEM SCRNPT1=0, SCRNPT2=0, SCRNPT3=0;
00307  M00S00235.comfds2 +++|  ITEM SCRNPT4=0, SCRNPT5=0, SCRNPT6=0;
00308  M00S00236.comfds2 +++|
00309  M00S00237.comfds2 +++|  ITEM ATTCOUNT=0;                   # ATTRIBUTE MARK COUNT #
00310  M00S00238.comfds2 +++|  ITEM BACKIN=0;                     # BACKSTACK IN POINTER #
00311  M00S00239.comfds2 +++|  ITEM BACKOUT=0;                    # BACKSTACK OUT POINTER #
00312  M00S00240.comfds2 +++|  ARRAY NONTRIVSTK [1:2,1:4];        # RECENT NON-ZZZNULL FILE #
00313  M00S00241.comfds2 +++|    BEGIN
00314  M00S00242.comfds2 +++|    ITEM NONTRIVFILE=[ [0,0] [0,0] [0,0] [0,0] ];
00315  M00S00243.comfds2 +++|    END
00316  M00S00244.comfds2 +++|
00317  M00S00245.comfds2 +++|  ITEM EXECNDX=0;             # FOR EXEC         #
00318  M00S00246.comfds2 +++|  ITEM FILCMDNDX=0;          # FOR FILCMD       #
00319  M00S00247.comfds2 +++|  ITEM DORNGCTR=0;                     # FOR DORANGE, POSN #
00320  M00S00248.comfds2 +++|
00321  M00S00249.comfds2 +++|  ITEM LINCTR=0;
00322  M00S00250.comfds2 +++|  ITEM CHRPTR1=0,  CHRPTR2=0,  CHRPTR3=0;
00323  M00S00251.comfds2 +++|  ITEM LINPTR1=0,  LINPTR2=0,  LINPTR3=0;
00324  M00S00252.comfds2 +++|  ITEM FILPTR1=0,  FILPTR2=0,  FILPTR3=0;
00325  M00S00253.comfds2 +++|  ITEM LINNUM1=0,  LINNUM2=0,  LINNUM3=0;
00326  M00S00254.comfds2 +++|
00327  M00S00255.comfds2 +++|  ITEM AUDITNEXT=0;
00328  M00S00256.comfds2 +++|
00329  M00S00257.comfds2 +++|  ARRAY DATASTACK [0:MAXDATA];   ITEM DATASTK=[MAXDATA(0),0];
00330  M00S00258.comfds2 +++|
00331  M00S00259.comfds2 +++|  ARRAY LIN [0:BUFWID];
00332  M00S00260.comfds2 +++|    BEGIN
00333  M00S00261.comfds2 +++|    ITEM LINE=[BUFWIDP1(NULLIN)];
00334  M00S00262.comfds2 +++|    END
00335  M00S00263.comfds2 +++|  ARRAY CMDLIN[0:BUFWID];
00336  M00S00264.comfds2 +++|    BEGIN
00337  M00S00265.comfds2 +++|    ITEM CMDLINE=[BUFWIDP1(NULLIN)];
00338  M00S00266.comfds2 +++|    END
00339  M00S00267.comfds2 +++|  ARRAY TTYLIN[0:BUFWID];
00340  M00S00268.comfds2 +++|    BEGIN
00341  M00S00269.comfds2 +++|    ITEM TTYLINE=[BUFWIDP1(NULLIN)];
00342  M00S00270.comfds2 +++|    END
00343  M00S00271.comfds2 +++|  ARRAY TMPLIN[0:BUFWID2];
00344  M00S00272.comfds2 +++|    BEGIN
00345  M00S00273.comfds2 +++|    ITEM TMPLINE=[BUFWID2P1(0)];
00346  M00S00274.comfds2 +++|    END
00347  M00S00275.comfds2 +++|
00348  M00S00276.comfds2 +++|
00349  M00S00277.comfds2 +++|  # REGSTACK IS THE VECTOR OF RELOCATABLE LINE ORDINALS WHICH #
00350  M00S00278.comfds2 +++|  # IS MAINTAINED BY THE COMPASS ROUTINE *FASTRLC*.  #
00351  M00S00279.comfds2 +++|
00352  M00S00280.comfds2 +++|  ARRAY REGSTACK [0:MAXREG]; ITEM REGLINE=[0,MAXREG(0)];
00353  M00S00281.comfds2 +++|
00354  M00S00282.comfds2 +++|  ARRAY STKFILES [0:MAXSTACK]; ITEM STKFILE=[0,MAXSTACK(0)];
00355  M00S00283.comfds2 +++|  ARRAY XYZFILES [0:2]; ITEM XYZFILE=[0,0,0];
00356  M00S00284.comfds2 +++|  ARRAY XYZCHARS [0:2]; ITEM XYZCHAR=[-1,-1,-1];
00357  M00S00285.comfds2 +++|  ARRAY MRKFILES [0:1]; ITEM MRKFILE=[0,0];
00358  M00S00286.comfds2 +++|  ARRAY MRKCHARS [0:1]; ITEM MRKCHAR=[-1,-1];
00359  M00S00287.comfds2 +++|
00360  M00S00288.comfds2 +++|  ITEM BUILDCIO=0;                   # TOTAL CIO-S IN FILE BUILD #
00361  M00S00289.comfds2 +++|  ITEM ACCTCIO=0;                    # TOTAL CIO-S PER SESSION #
00362  M00S00290.comfds2 +++|  ITEM ACCTTRANS=0;                  # TOTAL TRANSACTIONS PER SESSION #
00363  M00S00291.comfds2 +++|  ITEM ACCTPRU=0;                    # TOTAL PRU-S IN SESSION #
00364  M00S00292.comfds2 +++|  ITEM ACCTOUT=0;                    # TOTAL WORDS TERMINAL OUTPUT #
00365  M00S00293.comfds2 +++|
00366  M00S00294.comfds2 +++|  ITEM TEMP=0;               # STACKABLE TEMP STORAGE      #
00367  M00S00295.comfds2 +++|
00368  M00S00296.comfds2 +++|  ITEM DATAEND;              # END OF DATA PRESERVED BETWEEN EDITS   #
00369  M00S00297.comfds2 +++|
00370  M00S00298.comfds2 +++|  # FORMAT OF REST OF COMMON MAY BE MODULE-DEPENDENT #
00371  M00S00299.comfds2 +++|PAGE                         # DISPATCHED DATA FOR OTHER MODULES     #
00372  M00S00300.comfds2 +++|
00373  M00S00301.comfds2 +++|  CONTROL IFEQ MULTI,1;
00374  M00S00302.comfds2 +++|    ITEM TTIADDR=0;            # SMFEX   DATA      #
00375  M00S00303.comfds2 +++|    ITEM TTILEN=0;
00376  M00S00304.comfds2 +++|    ITEM TTINEXT=0;
00377  M00S00305.comfds2 +++|    ITEM TTILAST=0;
00378  M00S00306.comfds2 +++|    ITEM TTOADDR=0;
00379  M00S00307.comfds2 +++|    ITEM TTOLEN=0;
00380  M00S00308.comfds2 +++|    ITEM TTOTYPE=0;
00381  M00S00309.comfds2 +++|    ITEM TTOQUIT B=FALSE;
00382  M00S00310.comfds2 +++|    CONTROL IFEQ METERING,1;
00383  M00S00311.comfds2 +++|      ITEM TTOWORDS=0;
00384  M00S00312.comfds2 +++|      ITEM TTOBLOCKS=0;
00385  M00S00313.comfds2 +++|    CONTROL FI;
00386  M00S00314.comfds2 +++|    ITEM RSTKSAVE=0;         # FOR REPAIR OF STACK ON ERROR          #
00387  M00S00315.comfds2 +++|  CONTROL FI;
00388  M00S00316.comfds2 +++|
00389  M00S00317.comfds2 +++|
00390  M00S00318.comfds2 +++|  BASED ARRAY STR(24); ITEM ST C(0,0,240);       # FOR TTF #
00391  M00S00319.comfds2 +++|  ITEM STL=0;                # STRING LENGTH     #
00392  M00S00320.comfds2 +++|  ITEM TTCBC=0;              # CURRENT BUFFER CHAR         #
00393  M00S00321.comfds2 +++|  ITEM NUMS1 C(20);          # NUMBER BUFFER     #
00394  M00S00322.comfds2 +++|  ITEM S1=0, S2=0, S3=0, S4=0;         # TEMPORARIES       #
00395  M00S00323.comfds2 +++|  ITEM TTOWB;                # TTY OUT WORD BUFF #
00396  M00S00324.comfds2 +++|  ITEM TTOCB;                # TTY OUT CHAR BUFF #
00397  M00S00325.comfds2 +++|
00398  M00S00326.comfds2 +++|
00399  M00S00327.comfds2 +++|  ARRAY PATH[0:MAXDEPTH] S(5);         # FOR WORKIO        #
00400  M00S00328.comfds2 +++|    ITEM PADISP (0)=[MAXDEPTH(0),0],
00401  M00S00329.comfds2 +++|         PAFIRST (1)=[MAXDEPTH(0),0],
00402  M00S00330.comfds2 +++|         PALAST (2)=[MAXDEPTH(0),0],
00403  M00S00331.comfds2 +++|         PAHEAD (3)=[MAXDEPTH(0),0],
00404  M00S00332.comfds2 +++|         PADA       U(3,0,18),         # SACRED BIT LOCATION         #
00405  M00S00333.comfds2 +++|         PADEPTH   U(3,18,6),
00406  M00S00334.comfds2 +++|         PADIRTY    B(3,48,1),
00407  M00S00335.comfds2 +++|         PATOP      B(3,49,1),
00408  M00S00336.comfds2 +++|         PADIR      B(3,50,1),
00409  M00S00337.comfds2 +++|         PADATA     B(3,51,1),
00410  M00S00338.comfds2 +++|         PAFINAL    U(3,54,6),         # SACRED BIT LOCATION         #
00411  M00S00339.comfds2 +++|         PACACHE    (4)=[MAXDEPTH(-1),-1];
00412  M00S00340.comfds2 +++|
00413  M00S00341.comfds2 +++|  ARRAY CACHECONTROL [0:MAXCACHE];
00414  M00S00342.comfds2 +++|   BEGIN
00415  M00S00343.comfds2 +++|    ITEM CACHEDIRTY B(0,0,1)=[FALSE,MAXCACHE(FALSE)];
00416  M00S00344.comfds2 +++|    ITEM CACHEOWNED B(0,1,1)=[FALSE,MAXCACHE(FALSE)];
00417  M00S00345.comfds2 +++|    ITEM CACHEAGE   I(0,30,30)=[-1,MAXCACHE(-1)];
00418  M00S00346.comfds2 +++|   END
00419  M00S00347.comfds2 +++|
00420  M00S00348.comfds2 +++|  ITEM CURRENT=0;               # REAL CURRENT LINE POSITION  #
00421  M00S00349.comfds2 +++|  ITEM NEWCURL=0;
00422  M00S00350.comfds2 +++|  ITEM OLDCURL=0;
00423  M00S00351.comfds2 +++|  ITEM AGECOUNT=0;
00424  M00S00352.comfds2 +++|  ITEM PALVL=0;
00425  M00S00353.comfds2 +++|  ITEM CURNW=0;
00426  M00S00354.comfds2 +++|  ITEM DANEXT=0;             # NEXT DA TO ALLOC  #
00427  M00S00355.comfds2 +++|  ITEM MAXDA=0;
00428  M00S00356.comfds2 +++|  ITEM DELETCTL=0;           # CONTROL AUTO-POS AFTER DELETE         #
00429  M00S00357.comfds2 +++|  ITEM FETCHGUIDE=0;         # CURRENT GUIDELINE FOR PREFETCH        #
00430  M00S00358.comfds2 +++|  ITEM ARRAYLEN=0;
00431  M00S00359.comfds2 +++|  ITEM ARRAYPRUS=0;
00432  M00S00360.comfds2 +++|  ITEM DATALEN=0;
00433  M00S00361.comfds2 +++|  ITEM DATAPRUS=0;
00434  M00S00362.comfds2 +++|
00435  M00S00363.comfds2 +++|  ITEM CIOCOUNT=0;           # FOR STATISTICS COLLECTION   #
00436  M00S00364.comfds2 +++|  ITEM RUNTIME=0;            # DITTO   #
00437  M00S00365.comfds2 +++|
00438  M00S00366.comfds2 +++|  ITEM SPINTIME=0;           # TIME WASTED TO HOLD TASK    #
00439  M00S00367.comfds2 +++|  ITEM SPINSTART=0;
00440  M00S00368.comfds2 +++|
00441  M00S00369.comfds2 +++|
00442  M00S00370.comfds2 +++|                             # END OF SWAPPED DATA         #
00443  M00S00371.comfds2 +++|  ITEM SWAPEND;              # NOT INCLUDED IN BLOCK       #
00444  M00S00372.comfds2 +++|PAGE                         # DISPATCH, UNSWAPPED DATA              #
00445  M00S00373.comfds2 +++|
00446  M00S00374.comfds2 +++|  #    DISPATCHED BUT UNSWAPPED WORKIO DATA   #
00447  M00S00375.comfds2 +++|
00448  M00S00376.comfds2 +++|  ITEM PL, TPL, DISP, ODA, ONL, FIRST, LAST, NL;
00449  M00S00377.comfds2 +++|  ITEM NWBEFORE,NWNEW,NWAFTER;
00450  M00S00378.comfds2 +++|  BASED ARRAY NEW;;
00451  M00S00379.comfds2 +++|  ARRAY NDIR [0:1];  ITEM NEWDA U(0,0,18),  NEWNL U(0,42,18);
00452  M00S00380.comfds2 +++|  ITEM RDIN, RDOUT, LASTDA;
00453  M00S00381.comfds2 +++|  ITEM DSKSIZ = DISKSIZE, QUARTER;
00454  M00S00382.comfds2 +++|
00455  M00S00383.comfds2 +++|  #   THE FOLLOWING BASED ARRAYS ARE "MOBILE", TEMPORARY   #
00456  M00S00384.comfds2 +++|
00457  M00S00385.comfds2 +++|  BASED ARRAY FROM;;   BASED ARRAY TOO;;
00458  M00S00386.comfds2 +++|  BASED ARRAY PRU[0:O"77"];
00459  M00S00387.comfds2 +++|    ITEM PRUWORD,
00460  M00S00388.comfds2 +++|         DATWORD,
00461  M00S00389.comfds2 +++|         DATCHAR C(0,0,10),
00462  M00S00390.comfds2 +++|         DIRWORD,
00463  M00S00391.comfds2 +++|         DIRDA U(0,0,18),
00464  M00S00392.comfds2 +++|         DIRNL U(0,42,18);
00465  M00S00393.comfds2 +++|
00466  M00S00394.comfds2 +++|  #   THE FOLLWING BASED ARRAYS ARE OF OTHER TYPES, BUT   #
00467  M00S00395.comfds2 +++|  #   THEIR POINTER WORDS BELONG IN THIS SEGMENT          #
00468  M00S00396.comfds2 +++|
00469  M00S00397.comfds2 +++|  CONTROL IFEQ MULTI,1;
00470  M00S00398.comfds2 +++|    BASED ARRAY SWAPRSTK;;             # USER'S COPY RENTSTK         #
00471  M00S00399.comfds2 +++|    BASED ARRAY DISPRSTK;;             # TASK'S COPY RENTSTK         #
00472  M00S00400.comfds2 +++|    BASED ARRAY TTOBUFFER[0:99]; ITEM TTOBUFF;  # TASK'S TTY OUTPUT  #
00473  M00S00401.comfds2 +++|  CONTROL  FI;
00474  M00S00402.comfds2 +++|  # LINEBUF REDEFINITION RESTRICTION - SEE FSESUBS INTERFACE #
00475  M00S00403.comfds2 +++|  BASED ARRAY LINEBUF;;      # WORKIO/EDITOR INTERFACE     #
00476  M00S00404.comfds2 +++|  BASED ARRAY MVLNBUF;;      # USED BY WORKIO FOR LINEBUF  #
00477  M00S00405.comfds2 +++|  BASED ARRAY BFPRU[0:MAXDEPTH] S(O"100");       # DISK BUUFERS      #
00478  M00S00406.comfds2 +++|    ITEM BFHEAD (0), BFDA U(0,0,18);   # MUST MATCH PAHEAD, PADA  #
00479  M00S00407.comfds2 +++|  BASED ARRAY OBF S(OBFSIZE);; # TEMP BUFF FOR SPLIT         #
00480  M00S00408.comfds2 +++|  BASED ARRAY DISK;;         # CIRCULAR BUFFER   #
00481  M00S00409.comfds2 +++|  BASED ARRAY FET S(FETSIZ);      # WORKING FET       #
00482  M00S00410.comfds2 +++|    ITEM FETWD0 (0),
Line S00411 Modification History
M01 (Removed by) ns2681
Seq #  *Modification Id* Act 
----------------------------+
00483  M01S00411.ns2681  ---|         FETNAM C(0,0,7),
00484  M01S00412.ns2681  ---|         FETCOD U(0,50,10),
00485  M01S00413.ns2681  ---|         FETDUN B(0,59,1),
00486  M01S00414.ns2681  ---|         FETR   B(1,12,1),
00487  M01S00415.ns2681  ---|         FETL   U(1,36,6),
00488  M01S00416.ns2681  ---|         FETFIR U(1,42,18),
00489  M01S00417.ns2681  ---|         FETIN  U(2,42,18),
00490  M01S00418.ns2681  ---|         FETOUT U(3,42,18),
00491  M01S00419.ns2681  ---|         FETFNT U(4,0,12),
00492  M01S00420.ns2681  ---|         FETLIM U(4,42,18),
00493  M01S00421.ns2681  ---|         FETLAW U(5,0,60),
00494  M01S00422.ns2681  ---|         FETLA  U(5,42,18),
00495  M01S00423.ns2681  ---|         FETCRI U(6,0,30),
00496  M01S00424.ns2681  ---|         FETW   B(6,30,1),
00497  M01S00425.ns2681  ---|         FETRR  U(6,31,29);
Line S00001 Modification History
M01 (Added by) ns2681
Seq #  *Modification Id* Act 
----------------------------+
00498  M01S00001.ns2681  +++|      FETNAM C(00,00,07),            # LOGICAL FILE NAME             #
00499  M01S00002.ns2681  +++|      FETAT  U(00,42,09),            # STATUS INFORMATION FROM *CIO* #
00500  M01S00003.ns2681  +++|      FETCOD U(00,51,09),            # REQUEST/RETURN CODE           #
00501  M01S00004.ns2681  +++|      FETDUN B(00,59,01),            # COMPLETE BIT                  #
00502  M01S00005.ns2681  +++|      FETR   B(01,12,01),            # RANDOM PROCESSING BIT         #
00503  M01S00006.ns2681  +++|      FETEP  B(01,15,01),            # ERROR PROCESSING BIT          #
00504  M01S00007.ns2681  +++|      FETL   U(01,36,06),            # FET LEVEL                     #
00505  M01S00008.ns2681  +++|      FETFIR U(01,42,18),            # FIRST                         #
00506  M01S00009.ns2681  +++|      FETIN  U(02,42,18),            # IN                            #
00507  M01S00010.ns2681  +++|      FETOUT U(03,42,18),            # OUT                           #
00508  M01S00011.ns2681  +++|      FETFNT U(04,00,12),            # FNT POINTER                   #
00509  M01S00012.ns2681  +++|      FETLIM U(04,42,18),            # LIMIT                         #
00510  M01S00013.ns2681  +++|      FETLAW U(05,00,60),            # ADDR. OF LIST (FULL WORD)     #
00511  M01S00014.ns2681  +++|      FETLA  U(05,42,18),            # ADDR. OF LIST OF RANDOM ADDR. #
00512  M01S00015.ns2681  +++|      FETCRI U(06,00,30),            # CURRENT RANDOM INDEX          #
00513  M01S00016.ns2681  +++|      FETW   B(06,30,01),            # RANDOM REWRITE REQUEST        #
00514  M01S00017.ns2681  +++|      FETRR  U(06,31,29);            # RANDOM REQUEST PARAMETER      #
00515  M01S00018.ns2681  +++|
00516  M00S00426.comfds2 +++|  BASED ARRAY READLST[0:RDLIM];  ITEM RDLIST;
00517  M00S00427.comfds2 +++|
00518  M00S00428.comfds2 +++|
00519  M00S00429.comfds2 +++|  # MULTI-USER VERSION ALLOCATES POINTER WORDS HERE FOR VARIOUS  #
00520  M00S00430.comfds2 +++|  # EDITOR ARRAYS.  DUE TO DUPLICATE DECLARATIONS, BE CAREFUL IN #
00521  M00S00431.comfds2 +++|  # CHANGING ANY OF THESE ARRAYS.  #
00522  M00S00432.comfds2 +++|
00523  M00S00433.comfds2 +++|  CONTROL IFEQ MULTI,1;
00524  M00S00434.comfds2 +++|
00525  M00S00435.comfds2 +++|  BASED ARRAY ARRAYSTART;;  # THESE TWO BRACKET ALLOCATED MEMORY  #
00526  M00S00436.comfds2 +++|  BASED ARRAY ARRAYEND;;
00527  M00S00437.comfds2 +++|
00528  M00S00438.comfds2 +++|  # MUST MATCH CORRESPONDING SINGLE-USER ARRAY #
00529  M00S00439.comfds2 +++|
00530  M00S00440.comfds2 +++|  BASED ARRAY TABLEHEADR [0:0] P(6);
00531  M00S00441.comfds2 +++|    BEGIN                            # *TDU* TABLE HEADER INFORMATION #
00532  M00S00442.comfds2 +++|    ITEM TABHEADONE U(00,00,60);     # WORD ONE #
00533  M00S00443.comfds2 +++|    ITEM TABMODNAME C(00,00,07);     # MODEL NAME #
00534  M00S00444.comfds2 +++|    ITEM TABVERSION U(00,42,18);     # VERSION NUMBER #
00535  M00S00445.comfds2 +++|    ITEM TABHEADTWO U(01,00,60);     # WORD TWO #
00536  M00S00446.comfds2 +++|    ITEM TABSTRINPT U(01,00,12);     # OFFSET TO START OF INPUT TABLE #
00537  M00S00447.comfds2 +++|    ITEM TABSTRNMES U(01,12,12);     # OFFSET TO START OF KEY LABELS #
00538  M00S00448.comfds2 +++|    ITEM TABSTRINIT U(01,24,12);     # OFFSET FOR INITIALIZATION DATA #
00539  M00S00449.comfds2 +++|    ITEM TABSTRAPPS U(01,36,12);     # OFFSET FOR APPLICATION STRINGS #
00540  M00S00450.comfds2 +++|    ITEM TABSTRENDT U(01,48,12);     # OFFSET TO END OF TABLE #
00541  M00S00451.comfds2 +++|    ITEM TABHEADTHR U(02,00,60);     # WORD THREE #
00542  M00S00452.comfds2 +++|    ITEM TABPTRHGTC U(02,00,04);     # PROTECTED RIGHT BEHAVIOR       #
00543  M00S00453.comfds2 +++|    ITEM TABPTLEFTC U(02,04,04);     # PROTECTED LEFT BEHAVIOR        #
00544  M00S00454.comfds2 +++|    ITEM TABPTUPCUR U(02,08,04);     # PROTECTED UP BEHAVIOR          #
00545  M00S00455.comfds2 +++|    ITEM TABPTDNCUR U(02,12,04);     # PROTECTED DOWN BEHAVIOR        #
00546  M00S00456.comfds2 +++|    ITEM TABUNRHGTC U(02,16,04);     # UNPROTECTED RIGHT BEHAVIOR     #
00547  M00S00457.comfds2 +++|    ITEM TABUNLEFTC U(02,20,04);     # UNPROTECTED LEFT BEHAVIOR      #
00548  M00S00458.comfds2 +++|    ITEM TABUNUPCUR U(02,24,04);     # UNPROTECTED UP BEHAVIOR        #
00549  M00S00459.comfds2 +++|    ITEM TABUNDNCUR U(02,28,04);     # UNPROTECTED DOWN BEHAVIOR      #
00550  M00S00460.comfds2 +++|    ITEM TABRESERV2 U(02,32,28);     # RESERVED                       #
00551  M00S00461.comfds2 +++|    ITEM TABHEADFOU U(03,00,60);     # WORD FOUR #
00552  M00S00462.comfds2 +++|    ITEM TABCURADDT U(03,00,06);     # CURSOR ADDRESSING TYPE #
00553  M00S00463.comfds2 +++|    ITEM TABCURBIAS I(03,06,08);     # CURSOR BIAS FOR POSTIONING #
00554  M00S00464.comfds2 +++|    ITEM TABLEFTCUR U(03,14,04);     # CURSOR LEFT BEHAVIOR #
00555  M00S00465.comfds2 +++|    ITEM TABRGHTCUR U(03,18,04);     # CURSOR RIGHT BEHAVIOR #
00556  M00S00466.comfds2 +++|    ITEM TABUPCURSR U(03,22,04);     # CURSOR UP BEHAVIOR #
00557  M00S00467.comfds2 +++|    ITEM TABDWNCRSR U(03,26,04);     # CURSOR DOWN BEHAVIOR #
00558  M00S00468.comfds2 +++|    ITEM TABLEFTCHR U(03,30,04);     # CHARACTER LEFT BEHAVIOR #
00559  M00S00469.comfds2 +++|    ITEM TABRGHTCHR U(03,34,04);     # CHARACTER RIGHT BEHAVIOR #
00560  M00S00470.comfds2 +++|    ITEM TABLASTPOS U(03,38,04);     # LAST POSITION BEHAVIOR (CHAR) #
00561  M00S00471.comfds2 +++|    ITEM TABXFIRSTY B(03,42,01);     # X BEFORE Y IN CURSOR OUTPUT #
00562  M00S00472.comfds2 +++|    ITEM TABXDECIML U(03,43,03);     # X COORDINATE COUNT IF DECIMAL #
00563  M00S00473.comfds2 +++|    ITEM TABYDECIML U(03,46,03);     # Y COORDINATE COUNT IF DECIMAL #
00564  M00S00474.comfds2 +++|    ITEM TABRESERV3 U(03,49,11);     # RESERVED #
00565  M00S00475.comfds2 +++|    ITEM TABHEADFIV U(04,00,60);     # WORD FIVE #
00566  M00S00476.comfds2 +++|    ITEM TABVTFLAGS U(04,00,60);     # VIRTUAL TERMINAL FLAGS #
00567  M00S00477.comfds2 +++|    ITEM TABVTHOMEU B(04,00,01);     # HOME UP FLAG #
00568  M00S00478.comfds2 +++|    ITEM TABVTPROTM B(04,01,01);     # TERMINAL HAS PROTECT #
00569  M00S00479.comfds2 +++|    ITEM TABVTDIFSS B(04,02,01);     # DIFFERENT SCREEN SIZES #
00570  M00S00480.comfds2 +++|    ITEM TABVTUNUSD B(04,03,01);     # UNUSED #
00571  M00S00481.comfds2 +++|    ITEM TABVTGUARD B(04,04,01);     # TERMINAL HAS GUARD #
00572  M00S00482.comfds2 +++|    ITEM TABVTABHME B(04,05,01);     # PROTECTED TAB GOES TO HOME #
00573  M00S00483.comfds2 +++|    ITEM TABVTABUPF B(04,06,01);     # TABS TO UNPROTECTED FIELDS #
00574  M00S00484.comfds2 +++|    ITEM TABVTABSTP B(04,07,01);     # TABS TO TAB STOP #
00575  M00S00485.comfds2 +++|    ITEM TABVTSCLRS B(04,08,01);     # SIZE CHANGE CLEARS SCREEN #
00576  M00S00486.comfds2 +++|    ITEM TABAUTOTAB B(04,09,01);     # TERMINAL HAS AUTOMATIC TABBING #
00577  M00S00487.comfds2 +++|    ITEM TABTYPHEAD B(04,10,01);     # TYPE AHEAD ENABLED #
00578  M00S00488.comfds2 +++|    ITEM TABLOCKMDE B(04,11,01);     # BLOCK MODE TERMINAL #
00579  M00S00489.comfds2 +++|    ITEM TABPTDWFLN B(04,12,01);     # PROT TABS DO NOT WRAP FWD LINE #
00580  M00S00490.comfds2 +++|    ITEM TABPTDWFPG B(04,13,01);     # PROT TABS DO NOT WRAP FWD PAGE #
00581  M00S00491.comfds2 +++|    ITEM TABPTDWBLN B(04,14,01);     # PROT TABS DO NOT WRAP BKW LINE #
00582  M00S00492.comfds2 +++|    ITEM TABPTDWBPG B(04,15,01);     # PROT TABS DO NOT WRAP BKW PAGE #
00583  M00S00493.comfds2 +++|    ITEM TABUNDWFLN B(04,16,01);     # UNPROT TABS DO NOT WRAP FWD LN #
00584  M00S00494.comfds2 +++|    ITEM TABUNDWFPG B(04,17,01);     # UNPROT TABS DO NOT WRAP FWD PG #
00585  M00S00495.comfds2 +++|    ITEM TABUNDWBLN B(04,18,01);     # UNPROT TABS DO NOT WRAP BKW LN #
00586  M00S00496.comfds2 +++|    ITEM TABUNDWBPG B(04,19,01);     # UNPROT TABS DO NOT WRAP BKW PG #
00587  M00S00497.comfds2 +++|    ITEM TABATTRCHR B(04,20,01);     # ATTRIBUTE CHARACTER NEEDS BYTE #
00588  M00S00498.comfds2 +++|    ITEM TABATTRSET B(04,21,01);     # RESET ATTRIBUTES BEFORE VDTPOS #
00589  M00S00499.comfds2 +++|    ITEM TABSNDSPLR B(04,22,01);     # SEND DISPLAY REWRITE FOR SFORM #
00590  M00S00500.comfds2 +++|    ITEM TABSNDSPLH B(04,23,01);     # SEND DISPLAY ON HELP FOR SFORM #
00591  M00S00501.comfds2 +++|    ITEM TABNOTMASK B(04,24,01);     # ATTRIBUTES ARE NOT MASKABLE    #
00592  M00S00502.comfds2 +++|    ITEM TABNOTCHAR B(04,25,01);     # ATTRIBUTES ARE LINE/PAGE BASED #
00593  M00S00503.comfds2 +++|    ITEM TABNOVDTEO B(04,26,01);     # DISABLE OUTPUT END (ERR. EXIT) #
00594  M00S00504.comfds2 +++|    ITEM TABPROCLRS B(04,27,01);     # PROTECT ALL CLEARS THE SCREEN  #
00595  M00S00505.comfds2 +++|    ITEM TABCLEARSM B(04,28,01);     # CLEARS ACROSS PROTECTED FIELDS #
00596  M00S00506.comfds2 +++|    ITEM TABRSBIT29 B(04,29,01);     # RESERVED FOR CDC (FUTURE CODE) #
00597  M00S00507.comfds2 +++|    ITEM TABRSBIT30 B(04,30,01);     # RESERVED FOR CDC (FUTURE CODE) #
00598  M00S00508.comfds2 +++|    ITEM TABRSBIT31 B(04,31,01);     # RESERVED FOR CDC (FUTURE CODE) #
00599  M00S00509.comfds2 +++|    ITEM TABRSBIT32 B(04,32,01);     # RESERVED FOR CDC (FUTURE CODE) #
00600  M00S00510.comfds2 +++|    ITEM TABRSBIT33 B(04,33,01);     # RESERVED FOR CDC (FUTURE CODE) #
00601  M00S00511.comfds2 +++|    ITEM TABRSBIT34 B(04,34,01);     # RESERVED FOR CDC (FUTURE CODE) #
00602  M00S00512.comfds2 +++|    ITEM TABRSBIT35 B(04,35,01);     # RESERVED FOR CDC (FUTURE CODE) #
00603  M00S00513.comfds2 +++|    ITEM TABRSBIT36 B(04,36,01);     # RESERVED FOR CDC (FUTURE CODE) #
00604  M00S00514.comfds2 +++|    ITEM TABINSTL01 B(04,37,01);     # RESERVED FOR INSTALLATION CODE #
00605  M00S00515.comfds2 +++|    ITEM TABINSTL02 B(04,38,01);     # RESERVED FOR INSTALLATION CODE #
00606  M00S00516.comfds2 +++|    ITEM TABINSTL03 B(04,39,01);     # RESERVED FOR INSTALLATION CODE #
00607  M00S00517.comfds2 +++|    ITEM TABINSTL04 B(04,40,01);     # RESERVED FOR INSTALLATION CODE #
00608  M00S00518.comfds2 +++|    ITEM TABINSTL05 B(04,41,01);     # RESERVED FOR INSTALLATION CODE #
00609  M00S00519.comfds2 +++|    ITEM TABINSTL06 B(04,42,01);     # RESERVED FOR INSTALLATION CODE #
00610  M00S00520.comfds2 +++|    ITEM TABINSTL07 B(04,43,01);     # RESERVED FOR INSTALLATION CODE #
00611  M00S00521.comfds2 +++|    ITEM TABINSTL08 B(04,44,01);     # RESERVED FOR INSTALLATION CODE #
00612  M00S00522.comfds2 +++|    ITEM TABINSTL09 B(04,45,01);     # RESERVED FOR INSTALLATION CODE #
00613  M00S00523.comfds2 +++|    ITEM TABINSTL10 B(04,46,01);     # RESERVED FOR INSTALLATION CODE #
00614  M00S00524.comfds2 +++|    ITEM TABINSTL11 B(04,47,01);     # RESERVED FOR INSTALLATION CODE #
00615  M00S00525.comfds2 +++|    ITEM TABINSTL12 B(04,48,01);     # RESERVED FOR INSTALLATION CODE #
00616  M00S00526.comfds2 +++|    ITEM TABINSTL13 B(04,49,01);     # RESERVED FOR INSTALLATION CODE #
00617  M00S00527.comfds2 +++|    ITEM TABINSTL14 B(04,50,01);     # RESERVED FOR INSTALLATION CODE #
00618  M00S00528.comfds2 +++|    ITEM TABINSTL15 B(04,51,01);     # RESERVED FOR INSTALLATION CODE #
00619  M00S00529.comfds2 +++|    ITEM TABINSTL16 B(04,52,01);     # RESERVED FOR INSTALLATION CODE #
00620  M00S00530.comfds2 +++|    ITEM TABINSTL17 B(04,53,01);     # RESERVED FOR INSTALLATION CODE #
00621  M00S00531.comfds2 +++|    ITEM TABINSTL18 B(04,54,01);     # RESERVED FOR INSTALLATION CODE #
00622  M00S00532.comfds2 +++|    ITEM TABINSTL19 B(04,55,01);     # RESERVED FOR INSTALLATION CODE #
00623  M00S00533.comfds2 +++|    ITEM TABINSTL20 B(04,56,01);     # RESERVED FOR INSTALLATION CODE #
00624  M00S00534.comfds2 +++|    ITEM TABVTFKLSM U(04,57,03);     # FUNCTION KEY MARK COUNT #
00625  M00S00535.comfds2 +++|    ITEM TABHEADSIX U(05,00,60);     # WORD SIX #
00626  M00S00536.comfds2 +++|    ITEM TABXMAXONE U(05,00,08);     # X MAX, SCREEN SIZE ONE #
00627  M00S00537.comfds2 +++|    ITEM TABYMAXONE U(05,08,07);     # Y MAX, SCREEN SIZE ONE #
Line S00538 Modification History
M01 (Removed by) ns2613
Seq #  *Modification Id* Act 
----------------------------+
00628  M01S00538.ns2613  ---|    ITEM TABXMAXTWO U(05,15,08);     # X MAX, SCREEN SIZE ONE #
00629  M01S00539.ns2613  ---|    ITEM TABYMAXTWO U(05,23,07);     # Y MAX, SCREEN SIZE ONE #
00630  M01S00540.ns2613  ---|    ITEM TABXMAXTHR U(05,30,08);     # X MAX, SCREEN SIZE ONE #
00631  M01S00541.ns2613  ---|    ITEM TABYMAXTHR U(05,38,07);     # Y MAX, SCREEN SIZE ONE #
00632  M01S00542.ns2613  ---|    ITEM TABXMAXFOR U(05,45,08);     # X MAX, SCREEN SIZE ONE #
00633  M01S00543.ns2613  ---|    ITEM TABYMAXFOR U(05,53,07);     # Y MAX, SCREEN SIZE ONE #
Line S00001 Modification History
M01 (Added by) ns2613
Seq #  *Modification Id* Act 
----------------------------+
00634  M01S00001.ns2613  +++|    ITEM TABXMAXTWO U(05,15,08);     # X MAX, SCREEN SIZE TWO #
00635  M01S00002.ns2613  +++|    ITEM TABYMAXTWO U(05,23,07);     # Y MAX, SCREEN SIZE TWO #
00636  M01S00003.ns2613  +++|    ITEM TABXMAXTHR U(05,30,08);     # X MAX, SCREEN SIZE THREE #
00637  M01S00004.ns2613  +++|    ITEM TABYMAXTHR U(05,38,07);     # Y MAX, SCREEN SIZE THREE #
00638  M01S00005.ns2613  +++|    ITEM TABXMAXFOR U(05,45,08);     # X MAX, SCREEN SIZE FOUR #
00639  M01S00006.ns2613  +++|    ITEM TABYMAXFOR U(05,53,07);     # Y MAX, SCREEN SIZE FOUR #
00640  M00S00544.comfds2 +++|    END
00641  M00S00545.comfds2 +++|
00642  M00S00546.comfds2 +++|  BASED ARRAY TABLEWORDS [0:O"271"] P(1);  # *TDU* TABLE I/O INFO #
00643  M00S00547.comfds2 +++|    BEGIN                            # *TDU* TABLE I/O INFORMATION #
00644  M00S00548.comfds2 +++|    ITEM TABFULLWRD U(00,00,60);     # TABLE WORD #
00645  M00S00549.comfds2 +++|    END
00646  M00S00550.comfds2 +++|
00647  M00S00551.comfds2 +++|
00648  M00S00552.comfds2 +++|  BASED ARRAY SPLITCONTROL [1:2] P(SPLTCTLSIZ);  # SPLIT SCREEN #
00649  M00S00553.comfds2 +++|    BEGIN # ARRAY SPLITCONTROL #
00650  M00S00554.comfds2 +++|    ITEM TITLEROW   I(00,00,60);     # WHERE TITLES ARE #
00651  M00S00555.comfds2 +++|    ITEM NUMROWS    I(01,00,60);     # NUMBER OF DATA ROWS IN SPLIT #
00652  M00S00556.comfds2 +++|    ITEM SPLITFILE  I(02,00,60);     # FILE DISPLAYED IN SPLIT #
00653  M00S00557.comfds2 +++|    ITEM XSHIFT     I(03,00,60);     # DISPLAY COLUMN OFFSET #
00654  M00S00558.comfds2 +++|    ITEM LASTNAME   C(04,00,07);     # LAST DISPLAYED FILE NAME #
00655  M00S00559.comfds2 +++|    END # ARRAY SPLITCONTROL #
00656  M00S00560.comfds2 +++|
00657  M00S00561.comfds2 +++|  # MUST MATCH CORRESPONDING SINGLE-USER ARRAY #
00658  M00S00562.comfds2 +++|  BASED ARRAY ROWCONTROL [0:MAXROWS] P(2);
00659  M00S00563.comfds2 +++|   BEGIN
00660  M00S00564.comfds2 +++|    ITEM ROWPAINT B(0);            # WHETHER TO REDISPLAY THIS ROW     #
00661  M00S00565.comfds2 +++|    ITEM ROWBITS  U(1,0,6);        # INCLUDES ALL FLAGS                #
00662  M00S00566.comfds2 +++|      ITEM ROWCOLUM B(1,1,1);      # LIST COLUMN NUMBERS HERE          #
00663  M00S00567.comfds2 +++|      ITEM ROWPMARK B(1,2,1);        # WHETHER WITHIN ACTIVE MARKS #
00664  M00S00568.comfds2 +++|      ITEM ROWPHALF B(1,3,1);        # TO PARTIALLY UPDATE TITLE #
00665  M00S00569.comfds2 +++|    # END OF BITS INCLUDED UNDER ROWBITS #
00666  M00S00570.comfds2 +++|    ITEM ROWSPLIT U(1,6,3);        # SPLIT THIS ROW IS IN              #
00667  M00S00571.comfds2 +++|    ITEM ROWTYPE  U(1,9,6);        # TYPES ARE ROWST VALUES         #
00668  M00S00572.comfds2 +++|                                   # DEFINED IFF TEXT, EMPTY OR TITLE  #
00669  M00S00573.comfds2 +++|    ITEM ROWORIG  I(1,18,12);      # ORIGINAL ROW BEFORE SHUFFLES      #
00670  M00S00574.comfds2 +++|    ITEM ROWLNPTR U(1,30,30);      # LINE POINTER FOR GLOBAL SEARCH    #
00671  M00S00575.comfds2 +++|   END
00672  M00S00576.comfds2 +++|
00673  M00S00577.comfds2 +++|  # MUST MATCH CORRESPONDING SINGLE-USER ARRAY #
00674  M00S00578.comfds2 +++|  BASED ARRAY BACKSTACK [0:BACKMAX];  # STACK OF PREVIOUS SCREENS #
00675  M00S00579.comfds2 +++|   BEGIN
00676  M00S00580.comfds2 +++|    ITEM BACKFIL1   U (00,00,18);    # FDLF(1) #
00677  M00S00581.comfds2 +++|    ITEM BACKFIL2   U (00,18,18);    # FDLF(2) #
00678  M00S00582.comfds2 +++|    ITEM BACKSPL1   U (00,36,06);    # SPLIT FILE 1 #
00679  M00S00583.comfds2 +++|    ITEM BACKSPL2   U (00,42,06);    # SPLIT FILE 2 #
00680  M00S00584.comfds2 +++|    ITEM BACKSPLN   U (00,48,12);    # SPLIT SIZE #
00681  M00S00585.comfds2 +++|   END
00682  M00S00586.comfds2 +++|
00683  M00S00587.comfds2 +++|  BASED ARRAY BACKSTORE [0:TEMPIND] P(2);  # SAVED POSITION STORAGE #
00684  M00S00588.comfds2 +++|    BEGIN
00685  M00S00589.comfds2 +++|    ITEM BKFDLFF1   U (00,00,18);    # FDLF(1) #
00686  M00S00590.comfds2 +++|    ITEM BKFDLFF2   U (00,18,18);    # FDLF(2) #
00687  M00S00591.comfds2 +++|    ITEM BKSPLIT2   U (00,36,06);    # SPLIT FILE 2 #
00688  M00S00592.comfds2 +++|    ITEM BKNROWS1   U (00,42,12);    # SPLIT SIZE 1 #
00689  M00S00593.comfds2 +++|    ITEM BKWHCHSP   U (00,54,06);    # WHICH SPLIT (0 = TOP) #
00690  M00S00594.comfds2 +++|    ITEM BKNROWS2   U (01,00,12);    # SPLIT SIZE 2 #
00691  M00S00595.comfds2 +++|    ITEM BKCURSOR   U (01,12,12);    # CURSOR POSITION #
00692  M00S00596.comfds2 +++|    END
00693  M00S00597.comfds2 +++|
00694  M00S00598.comfds2 +++|
00695  M00S00599.comfds2 +++|  # MUST MATCH CORRESPONDING SINGLE-USER ARRAY #
00696  M00S00600.comfds2 +++|  BASED ARRAY FKEYDEFS [-POSFKEYS:POSFKEYS];
00697  M00S00601.comfds2 +++|   BEGIN
00698  M00S00602.comfds2 +++|    ITEM FKEYNAME   C (00,00,10);
00699  M00S00603.comfds2 +++|   END
00700  M00S00604.comfds2 +++|
00701  M00S00605.comfds2 +++|  # MUST MATCH CORRESPONDING SINGLE-USER ARRAY #
00702  M00S00606.comfds2 +++|  BASED ARRAY AUDITSTAGE[0:AUDITSIZE]; ITEM AUDITWORD;
00703  M00S00607.comfds2 +++|
00704  M00S00608.comfds2 +++|
00705  M00S00609.comfds2 +++|  # LOCATE AND CHANGE STRING BUFFERS HOLD 80 CHARS PLUS EOL #
00706  M00S00610.comfds2 +++|
00707  M00S00611.comfds2 +++|  # MUST MATCH CORRESPONDING SINGLE-USER ARRAY #
00708  M00S00612.comfds2 +++|  BASED ARRAY LOCSTRING1 [0:STRWIDM1]; ITEM LOCSTR1;
00709  M00S00613.comfds2 +++|  BASED ARRAY LOCSTRING2 [0:STRWIDM1]; ITEM LOCSTR2;
00710  M00S00614.comfds2 +++|  BASED ARRAY CHGSTRING1 [0:STRWIDM1]; ITEM CHGSTR1;
00711  M00S00615.comfds2 +++|
00712  M00S00616.comfds2 +++|  # MUST MATCH CORRESPONDING SINGLE-USER ARRAY #
00713  M00S00617.comfds2 +++|  BASED ARRAY FKEYSTRINGS[-POSFKEYS:POSFKEYS] S(2);
00714  M00S00618.comfds2 +++|    BEGIN
00715  M00S00619.comfds2 +++|    ITEM FKEYSTRING U(0);
00716  M00S00620.comfds2 +++|    END
00717  M00S00621.comfds2 +++|
Line S00001 Modification History
M01 (Added by) ns2675
Seq #  *Modification Id* Act 
----------------------------+
00718  M01S00001.ns2675  +++|  # MUST MATCH CORRESPONDING SINGLE-USER ARRAY #
00719  M01S00002.ns2675  +++|  BASED ARRAY FKEYNUMB[1:POSFKEYS];
00720  M01S00003.ns2675  +++|    BEGIN
00721  M01S00004.ns2675  +++|    ITEM FKEYNUMS U;
00722  M01S00005.ns2675  +++|    END
00723  M01S00006.ns2675  +++|
00724  M00S00622.comfds2 +++|  # MUST MATCH CORRESPONDING SINGLE-USER ARRAY #
00725  M00S00623.comfds2 +++|
00726  M00S00624.comfds2 +++|  BASED ARRAY TITLE1LIN [0:TTLLNLEN];  # TITLE LINE ONE ARRAY #
00727  M00S00625.comfds2 +++|    BEGIN # ARRAY TITLE1LIN #
00728  M00S00626.comfds2 +++|    ITEM TITLE1LINE I;               # TITLE LINE ONE #
00729  M00S00627.comfds2 +++|    END # ARRAY TITLE1LIN #
00730  M00S00628.comfds2 +++|
00731  M00S00629.comfds2 +++|  BASED ARRAY TITLE2LIN [0:TTLLNLEN];  # TITLE LINE TWO ARRAY #
00732  M00S00630.comfds2 +++|    BEGIN # ARRAY TITLE2LIN #
00733  M00S00631.comfds2 +++|    ITEM TITLE2LINE I;               # TITLE LINE TWO #
00734  M00S00632.comfds2 +++|    END # ARRAY TITLE2LIN #
00735  M00S00633.comfds2 +++|
00736  M00S00634.comfds2 +++|
00737  M00S00635.comfds2 +++|  CONTROL FI;
00738  M00S00636.comfds2 +++|
00739  M00S00637.comfds2 +++|
00740  M00S00638.comfds2 +++|  ITEM DISPATEND;                    # END OF MOVED COMMON #
00741  M00S00639.comfds2 +++|PAGE                                 # GLOBAL COMMON DATA #
00742  M00S00640.comfds2 +++|
00743  M00S00641.comfds2 +++|
00744  M00S00642.comfds2 +++|  ITEM WORKNAM C(7)="ZZZWORK";       # NAME OF WORK FILE #
00745  M00S00643.comfds2 +++|  BASED ARRAY CORE; ITEM MEM;
00746  M00S00644.comfds2 +++|
00747  M00S00645.comfds2 +++|
00748  M00S00646.comfds2 +++|  # DATA WHICH CAN BE USED ONLY INSTANTLY #
00749  M00S00647.comfds2 +++|
Line S00648 Modification History
M01 (Removed by) ns2607
Seq #  *Modification Id* Act 
----------------------------+
00750  M01S00648.ns2607  ---|  ITEM SCNFDSIZE, SCNFDCURF, SCNFDLOCK, SCNFDCHNG,
00751  M01S00649.ns2607  ---|    SCNFDASCI, SCNFDNUMB, SCNNAMPTR;   # SCANFDL RESULTS #
Line S00003 Modification History
M01 (Added by) ns2607
Seq #  *Modification Id* Act 
----------------------------+
00752  M01S00003.ns2607  +++|  ITEM SCNFDASCI, SCNFDCHNG,         # SCANFDL RESULTS #
00753  M01S00004.ns2607  +++|       SCNFDCURF, SCNFDINIT,
00754  M01S00005.ns2607  +++|       SCNFDLOCK, SCNFDNUMB,
00755  M01S00006.ns2607  +++|       SCNFDSIZE, SCNNAMPTR;
00756  M00S00650.comfds2 +++|
00757  M00S00651.comfds2 +++|  ARRAY PROTLIN[0:BUFWID]; ITEM PROTLINE; # BUFFER FOR PROTECTED FIELD #
00758  M00S00652.comfds2 +++|
00759  M00S00653.comfds2 +++|  # STANDARD TTY PROMPTS PLUS CONTROL BYTES #
00760  M00S00654.comfds2 +++|
00761  M00S00655.comfds2 +++|  ITEM AQCCKWRD=AQCCKCON;
00762  M00S00656.comfds2 +++|  ITEM AQCKWRD=AQCKCON;
00763  M00S00657.comfds2 +++|  ITEM CKWRD=CKCON;
00764  M00S00658.comfds2 +++|  ITEM BCCKWRD=BCCKCON;
00765  M00S00659.comfds2 +++|  ITEM NULLWRD=NULLCON;
00766  M00S00660.comfds2 +++|  ITEM QCCKWRD=QCCKCON;
00767  M00S00661.comfds2 +++|  ITEM BLANKWRD=BLANKCON;
00768  M00S00662.comfds2 +++|
00769  M00S00663.comfds2 +++|  # OTHER USEFUL CONSTANT DATA #
00770  M00S00664.comfds2 +++|
00771  M00S00665.comfds2 +++|  ITEM BUFWIDE=BUFWIDP1, BUFWIDE2=BUFWID2P1;
00772  M00S00666.comfds2 +++|
00773  M00S00667.comfds2 +++|
00774  M00S00668.comfds2 +++|  # DATA UNIQUE TO SINGLE EDITOR #
00775  M00S00669.comfds2 +++|
00776  M00S00670.comfds2 +++|  CONTROL IFEQ SINGLE,1;
00777  M00S00671.comfds2 +++|    ITEM ORIGIN=-1;
00778  M00S00672.comfds2 +++|    ITEM SMALLFIELD B=FALSE;
00779  M00S00673.comfds2 +++|    ITEM TRYRESUME B=FALSE;
00780  M00S00674.comfds2 +++|    ITEM FORMERASCII B=FALSE;
00781  M00S00675.comfds2 +++|    ITEM CTLCDCMD B=TRUE;
00782  M00S00676.comfds2 +++|    ITEM INTERACT B=FALSE;
00783  M00S00677.comfds2 +++|    ITEM NULLINPUT B=FALSE;
00784  M00S00678.comfds2 +++|    ITEM TTYINPUT B=TRUE;
00785  M00S00679.comfds2 +++|    ITEM TTYOUTPUT B=TRUE;
00786  M00S00680.comfds2 +++|    ITEM SINGLEONLY B=FALSE;
00787  M00S00681.comfds2 +++|    ITEM INPTNAM C(7)="INPUT  ";         # NAME INPUT FILE   #
00788  M00S00682.comfds2 +++|    ITEM OUTPNAM C(7)="OUTPUT ";         # NAME OUTPUT FILE  #
00789  M00S00683.comfds2 +++|    ITEM OLDPROCREC C(7);
00790  M00S00684.comfds2 +++|    ITEM OLDPROCFIL C(7);
00791  M00S00685.comfds2 +++|    ARRAY PARMLIN [0:BUFWID]; ITEM PARMLINE=[BUFWIDP1(-1)];
00792  M00S00686.comfds2 +++|    ITEM PARMPTR;
00793  M00S00687.comfds2 +++|    ITEM ONWAYINBLK=0;
00794  M00S00688.comfds2 +++|    ITEM NUMMODE=0;
00795  M00S00689.comfds2 +++|    ITEM STARTNUM=100;
00796  M00S00690.comfds2 +++|    ARRAY TSTATAREA(2);
00797  M00S00691.comfds2 +++|     BEGIN
00798  M00S00692.comfds2 +++|      ITEM TSTATUSTN   U(0,48,12);
00799  M00S00693.comfds2 +++|      ITEM CURRENTASC  B(1,57,1);
00800  M00S00694.comfds2 +++|      ITEM INITASCII   B(1,58,1);
00801  M00S00695.comfds2 +++|     END
00802  M00S00696.comfds2 +++|    ARRAY DEFIONAMES (3);    # DEFAULT I/O NAMES #
00803  M00S00697.comfds2 +++|     BEGIN
00804  M00S00698.comfds2 +++|      ITEM DEFINPNAM  C(0,0,7);
00805  M00S00699.comfds2 +++|      ITEM DEFINPCHAR C(0,0,5)=["INPUT"];
00806  M00S00700.comfds2 +++|      ITEM DEFINPBIN  U(0,30,12)=[0];
00807  M00S00701.comfds2 +++|      ITEM DEFOUTNAM  C(1,0,7);
00808  M00S00702.comfds2 +++|      ITEM DEFOUTCHAR C(1,0,6)=["OUTPUT"];
00809  M00S00703.comfds2 +++|      ITEM DEFOUTBIN  U(1,36,6)=[0];
00810  M00S00704.comfds2 +++|      ITEM NULLNAM    C(2,0,7);
00811  M00S00705.comfds2 +++|      ITEM NULLCHARXX C(2,0,1)=["0"];
00812  M00S00706.comfds2 +++|      ITEM NULLBINXX  U(2,6,36)=[0];
00813  M00S00707.comfds2 +++|     END
00814  M00S00708.comfds2 +++|    ARRAY UTILBUF(MINIBUFSIZ);;
00815  M00S00709.comfds2 +++|    BASED ARRAY FILEBUF;;
00816  M00S00710.comfds2 +++|    ARRAY UTILFET (9);
00817  M00S00711.comfds2 +++|     BEGIN
00818  M00S00712.comfds2 +++|      ITEM UTILFETAT     U(0,42,8);
00819  M00S00713.comfds2 +++|      ITEM UTILFETEP     B(1,15,1);
00820  M00S00714.comfds2 +++|      ITEM UTILFETL      U(1,36,6);
00821  M00S00715.comfds2 +++|      ITEM UTILFETWORD7  (7);
00822  M00S00716.comfds2 +++|      ITEM UTILFETWORD8  (8);
00823  M00S00717.comfds2 +++|      ITEM UTILFETSR     U(8,42,6);
00824  M00S00718.comfds2 +++|      ITEM UTILFETMODE   U(8,54,6);
00825  M00S00719.comfds2 +++|     END
00826  M00S00720.comfds2 +++|    ARRAY FILEFET(FETSIZ);
00827  M00S00721.comfds2 +++|     BEGIN
00828  M00S00722.comfds2 +++|      ITEM FILECODE U(0,50,10);
00829  M00S00723.comfds2 +++|      ITEM FILEEP   B(1,15,1);
00830  M00S00724.comfds2 +++|      ITEM FILEIN   U(2,42,18);
00831  M00S00725.comfds2 +++|      ITEM FILEOUT  U(3,42,18);
00832  M00S00726.comfds2 +++|     END
00833  M00S00727.comfds2 +++|    ITEM PFMERROR=0;
Line S00001 Modification History
M01 (Added by) ns2568
Seq #  *Modification Id* Act 
----------------------------+
00834  M01S00001.ns2568  +++|    ITEM PFMMSG C(40)=" $";
00835  M01S00002.ns2568  +++|    ITEM PFMMS2 C(40)=" $";
00836  M00S00728.comfds2 +++|    ARRAY PFMFET(10);
00837  M00S00729.comfds2 +++|     BEGIN
00838  M00S00730.comfds2 +++|      ITEM PFMFETAT    U(0,42,8);
00839  M00S00731.comfds2 +++|      ITEM PFMFETEP    B(1,15,1);
00840  M00S00732.comfds2 +++|      ITEM PFMFETL     U(1,36,6);
00841  M00S00733.comfds2 +++|      ITEM PFMFETWD8   I(8);
00842  M00S00734.comfds2 +++|      ITEM PFMFETPFN   C(8,0,7);
00843  M00S00735.comfds2 +++|      ITEM PFMFETCT    U(8,48,6);
00844  M00S00736.comfds2 +++|      ITEM PFMFETM     U(8,54,6);
00845  M00S00737.comfds2 +++|      ITEM PFMFETWD9   I(9);
00846  M00S00738.comfds2 +++|      ITEM PFMFETOAUN  C(9,0,7);
00847  M00S00739.comfds2 +++|     END
00848  M00S00740.comfds2 +++|    ARRAY MOVEFET(FETSIZ); ITEM MOVEFETIN U(2,42,18);
00849  M00S00741.comfds2 +++|    ARRAY FILINFPARMS (5);
00850  M00S00742.comfds2 +++|     BEGIN
00851  M00S00743.comfds2 +++|      ITEM FILINFNAME C(0,0,7);
00852  M00S00744.comfds2 +++|      ITEM FILINFLENC U(0,42,18)=[O"050001"];
00853  M00S00745.comfds2 +++|      ITEM FILINFSTAT U(1,12,42);
00854  M00S00746.comfds2 +++|      ITEM FILINFTTY  B(1,43,1);
00855  M00S00747.comfds2 +++|      ITEM FILINFRMS  B(1,44,1);
00856  M00S00748.comfds2 +++|      ITEM FILINFWRIT B(1,52,1);
00857  M00S00749.comfds2 +++|      ITEM FILINFREAD B(1,53,1);
00858  M00S00750.comfds2 +++|      ITEM FILINFFT   U(1,54,6);
00859  M00S00751.comfds2 +++|     END
00860  M00S00752.comfds2 +++|
00861  M00S00753.comfds2 +++|
00862  M00S00754.comfds2 +++|    #   ARRAYS USED FOR WORKIO PATH AND BUFFER   #
00863  M00S00755.comfds2 +++|
00864  M00S00756.comfds2 +++|    ARRAY SNGLFET (FETSIZ);;
00865  M00S00757.comfds2 +++|    ARRAY SNGLOBF (OBFSIZE);;
00866  M00S00758.comfds2 +++|    ARRAY SNGLLST (LSTSIZE);;
00867  M00S00759.comfds2 +++|    ARRAY SNGLPRU (BUFSIZE);;
00868  M00S00760.comfds2 +++|
00869  M00S00761.comfds2 +++|
00870  M00S00762.comfds2 +++|              #   T T F   STORAGE   #
00871  M00S00763.comfds2 +++|
00872  M00S00764.comfds2 +++|    ARRAY TTYIBF (TTYIBUFSIZ);;        # FILE BUFFER       #
00873  M00S00765.comfds2 +++|    ARRAY TTYI (FETSIZ);                     # INPUT FET              #
00874  M00S00766.comfds2 +++|     BEGIN
00875  M00S00767.comfds2 +++|      ITEM TTYICD  U(0,50,10);  # FET CODE                #
00876  M00S00768.comfds2 +++|      ITEM TTYIIN  U(2,42,18);
00877  M00S00769.comfds2 +++|      ITEM TTYIOT  U(3,42,18);
00878  M00S00770.comfds2 +++|     END
00879  M00S00771.comfds2 +++|
00880  M00S00772.comfds2 +++|    ARRAY TTYOBF (TTYOBUFSIZ);;        # *OUTPUT* BUFFER   #
00881  M00S00773.comfds2 +++|    ARRAY TTYO (FETSIZ);                     # OUTPUT FET             #
00882  M00S00774.comfds2 +++|     ITEM TTYONM  U(0,0,42),                 # FILE NAME              #
00883  M00S00775.comfds2 +++|          TTYOFB  B(1,23,1),                 # FLUSH BIT FOR NOS 460  #
00884  M00S00776.comfds2 +++|          TTYOFT  U(1,42,18),
00885  M00S00777.comfds2 +++|          TTYOIN  U(2,42,18),
00886  M00S00778.comfds2 +++|          TTYOOT  U(3,42,18),
00887  M00S00779.comfds2 +++|          TTYOLM  U(4,42,18);
00888  M00S00780.comfds2 +++|
00889  M00S00781.comfds2 +++|     ITEM LISTFETPTR=0;
00890  M00S00782.comfds2 +++|     ARRAY FETLIST (3);
00891  M00S00783.comfds2 +++|      BEGIN
00892  M00S00784.comfds2 +++|       ITEM FETLIST0  (0) = [3];
00893  M00S00785.comfds2 +++|       ITEM FETLSTNAM U(1,0,42) = [0];
00894  M00S00786.comfds2 +++|       ITEM FETLSTLOC U(1,42,18) = [0];
00895  M00S00787.comfds2 +++|       ITEM FETLIST2  (2) = [0];
00896  M00S00788.comfds2 +++|      END
00897  M00S00789.comfds2 +++|
00898  M00S00790.comfds2 +++|  CONTROL FI;
00899  M00S00791.comfds2 +++|
00900  M00S00792.comfds2 +++| END                         # OF COMMON COMFDAT  #
00901  M00S00793.comfds2 +++|                                               CONTROL LIST;