Seq # *Modification Id* Act
----------------------------+
00001 M00S00001.comfds1 +++|
00002 M00S00002.comfds1 +++|
00003 M00S00003.comfds1 +++|# COMFDS1 - FIRST SECTION OF DATA SEGMENT #
00004 M00S00004.comfds1 +++| CONTROL NOLIST;
00005 M00S00005.comfds1 +++| CONTROL IFEQ LISTCON,1;
00006 M00S00006.comfds1 +++| CONTROL LIST;
00007 M00S00007.comfds1 +++| CONTROL FI;
00008 M00S00008.comfds1 +++|
00009 M00S00009.comfds1 +++|COMMON COMFDAT;
00010 M00S00010.comfds1 +++| BEGIN
00011 M00S00011.comfds1 +++|#
00012 M00S00012.comfds1 +++|*** COMFDS1 - DATASEGMENT COMMON BLOCK FOR FULL SCREEN EDITOR.
00013 M00S00013.comfds1 +++|*
| Line S00014 Modification History |
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00014 M01S00014.281l803 ---|* COPYRIGHT CONTROL DATA CORPORATION, 1983.
| Line S00001 Modification History |
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00015 M01S00001.281l803 +++|* COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00016 M00S00015.comfds1 +++|*
00017 M00S00016.comfds1 +++|* COMFDAT IS THE PRINCIPAL DATA SEGMENT FOR ALL EDITOR
00018 M00S00017.comfds1 +++|* MODULES. IT IS USED IN COMMON BLOCK FORMAT TO ASSURE A
00019 M00S00018.comfds1 +++|* SPECIFIC MEMORY MAPPING BY THE COMPILER. THE COMMON BLOCK
00020 M00S00019.comfds1 +++|* MAY BE THOUGHT OF AS CONSISTING OF SEVERAL REGIONS
00021 M00S00020.comfds1 +++|* DELIMITED BY CERTAIN ITEMS WHICH ARE USED AS LABELS FOR
00022 M00S00021.comfds1 +++|* ADDRESS COMPARES.
00023 M00S00022.comfds1 +++|*
00024 M00S00023.comfds1 +++|* ARRAYSTART THRU ARRAYEND -- THIS SECTION IS EDITOR ARRAYS
00025 M00S00024.comfds1 +++|* WHICH ARE TOO BULKY FOR MULTI-USER CONTEXT SWITCHING. THEY
00026 M00S00025.comfds1 +++|* ARE ALSO SAVED IN THE WORKFILE AS THE "ARRAY SEGMENT". IN
00027 M00S00026.comfds1 +++|* THE SINGLE-USER EDITOR WE COMPILE THESE ARRAYS RIGHT UP
00028 M00S00027.comfds1 +++|* FRONT WHILE THE MULTI-USER VERSION COMPILES THEM AS BASED
00029 M00S00028.comfds1 +++|* ARRAYS AND ALLOCATES PER-TASK STORAGE FOR THEM. SINCE
00030 M00S00029.comfds1 +++|* POINTER WORDS FOR PER-TASK BASED ARRAYS MUST THEMSELVES BE
00031 M00S00030.comfds1 +++|* IN A SPECIFIC REGION, THE ARRAY REGION APPEARS TWICE IN THE
00032 M00S00031.comfds1 +++|* SOURCE CODE, SO MAINTENANCE PROGRAMMERS MUST BE CAREFUL TO
00033 M00S00032.comfds1 +++|* UPDATE BOTH. ALSO BE CAREFUL TO UPDATE CODE IN *BUILDTASK*
00034 M00S00033.comfds1 +++|* ROUTINE OF MULTI-USER EXECUTIVE, *SMFEX*. THIS CODE
00035 M00S00034.comfds1 +++|* AUTOMATICALLY WILL ADAPT TO CHANGES IN COMPILE-TIME
00036 M00S00035.comfds1 +++|* SYMBOLIC CONSTANTS, BUT IS HARD-CODED TO MATCH CONSTANT
00037 M00S00036.comfds1 +++|* PORTIONS OF ARRAY STRUCTURE.
00038 M00S00037.comfds1 +++|*
00039 M00S00038.comfds1 +++|* DATASTART THRU DATAEND -- THIS SECTION IS THE "DATA
00040 M00S00039.comfds1 +++|* SEGMENT" SAVED IN THE WORKFILE. THIS SECTION IS CONTEXT
00041 M00S00040.comfds1 +++|* SWITCHED IN THE MULTI-USER VERSION SO ITS SIZE MUST BE KEPT
00042 M00S00041.comfds1 +++|* MODERATE. THE DATA SEGMENT CONSISTS OF SCALARS AND SMALL
00043 M00S00042.comfds1 +++|* ARRAYS WHICH HAVE A HIGH FREQUENCY OF REFERENCE IN THE
00044 M00S00043.comfds1 +++|* SOURCE CODE. THAT IS WHY WE DO NOT USE BASED ARRAYS.
00045 M00S00044.comfds1 +++|* WHILE BASED ARRAYS WOULD CONSERVE SPACE AND THE BRUTE FORCE
00046 M00S00045.comfds1 +++|* MOVEMENT IN CONTEXT SWITCH WE WOULD LOOSE OUT IN POOR
00047 M00S00046.comfds1 +++|* COMPILER CODE GENERATION.
00048 M00S00047.comfds1 +++|*
00049 M00S00048.comfds1 +++|* AFTER DATAEND THRU SWAPEND -- THIS SECTION IS DATA WHICH
00050 M00S00049.comfds1 +++|* DOES NOT REQUIRE WORKFILE PRESERVATION BETWEEN SESSIONS OR
00051 M00S00050.comfds1 +++|* BETWEEN SINGLE AND MULTI-USER VERSIONS. THIS DATA DOES
00052 M00S00051.comfds1 +++|* NEED TO BE SWAPPED BETWEEN MULTI-USER TRANSACTIONS AND IS
00053 M00S00052.comfds1 +++|* MOVED FOR CONTEXT SWITCHING.
00054 M00S00053.comfds1 +++|*
00055 M00S00054.comfds1 +++|* AFTER SWAPEND THRU DISPATEND -- THIS SECTION IS DATA WHICH
00056 M00S00055.comfds1 +++|* NEEDS TO EXIST FOR THE DURATION OF A TRANSACTION OR PART OF
00057 M00S00056.comfds1 +++|* A TRANSACTION. IT IS MOVED FOR CONTEXT SWITCHING (DISK IO)
00058 M00S00057.comfds1 +++|* BUT IS NEITHER SWAPPED IN MULTI NOT SAVED IN THE WORKFILE.
00059 M00S00058.comfds1 +++|* SINCE IT IS RECYCLED ANYTIME A MULTI-USER TASK IS RECYCLED,
00060 M00S00059.comfds1 +++|* THIS SECTION IS WELL SUITED FOR THE POINTER WORDS OF BASED
00061 M00S00060.comfds1 +++|* ARRAYS WHOSE ACTUAL STORAGE IS ALLOCATED ON A PER-TASK
00062 M00S00061.comfds1 +++|* BASIS BY THE MULTI-USER EXECUTIVE.
00063 M00S00062.comfds1 +++|
00064 M00S00063.comfds1 +++|
00065 M00S00064.comfds1 +++|** ARRAY MAPPING - SINGLE VERSUS MULTI.
00066 M00S00065.comfds1 +++|*
00067 M00S00066.comfds1 +++|* THE FIRST SEGMENT OF COMMON IS SEVERAL ARRAYS. THESE ARE
00068 M00S00067.comfds1 +++|* WRITTEN INTO THE WORKFILE AS THE FIRST OF TWO DATA
00069 M00S00068.comfds1 +++|* SEGMENTS. FOR THE SINGLE USER VERSION, THE REAL ARRAYS
00070 M00S00069.comfds1 +++|* APPEAR HERE. FOR THE MULTI-USER VERSION, FAKE ARRAYS
00071 M00S00070.comfds1 +++|* APPEAR HERE TO SHOW HOW MEMORY IS RELATIVELY MAPPED, AND
00072 M00S00071.comfds1 +++|* BASED ARRAYS WHOSE POINTER WORDS APPEAR LATER WILL BE
00073 M00S00072.comfds1 +++|* ALLOCATED STORAGE ON A PER-TASK BASIS. DUE TO DUPLICATE
00074 M00S00073.comfds1 +++|* DECLARATIONS, BE CAREFUL.
00075 M00S00074.comfds1 +++|#
00076 M00S00075.comfds1 +++|CONTROL IFEQ SINGLE,1;
00077 M00S00076.comfds1 +++| ITEM ARRAYSTART;
00078 M00S00077.comfds1 +++|
00079 M00S00078.comfds1 +++|
00080 M00S00079.comfds1 +++| # MUST MATCH CORRESPONDING MULTI-USER ARRAY #
00081 M00S00080.comfds1 +++|
00082 M00S00081.comfds1 +++|ARRAY TABLEHEADR [0:0] P(6); # *TDU* TABLE HEADER INFORMATION #
00083 M00S00082.comfds1 +++| BEGIN
00084 M00S00083.comfds1 +++| ITEM TABHEADONE U(00,00,60); # WORD ONE #
00085 M00S00084.comfds1 +++| ITEM TABMODNAME C(00,00,07); # MODEL NAME #
00086 M00S00085.comfds1 +++| ITEM TABVERSION U(00,42,18); # VERSION NUMBER #
00087 M00S00086.comfds1 +++| ITEM TABHEADTWO U(01,00,60); # WORD TWO #
00088 M00S00087.comfds1 +++| ITEM TABSTRINPT U(01,00,12); # OFFSET TO START OF INPUT TABLE #
00089 M00S00088.comfds1 +++| ITEM TABSTRNMES U(01,12,12); # OFFSET TO START OF KEY LABELS #
00090 M00S00089.comfds1 +++| ITEM TABSTRINIT U(01,24,12); # OFFSET FOR INITIALIZATION DATA #
00091 M00S00090.comfds1 +++| ITEM TABSTRAPPS U(01,36,12); # OFFSET FOR APPLICATION STRINGS #
00092 M00S00091.comfds1 +++| ITEM TABSTRENDT U(01,48,12); # OFFSET TO END OF TABLE #
00093 M00S00092.comfds1 +++| ITEM TABHEADTHR U(02,00,60); # WORD THREE #
00094 M00S00093.comfds1 +++| ITEM TABPTRHGTC U(02,00,04); # PROTECTED RIGHT BEHAVIOR #
00095 M00S00094.comfds1 +++| ITEM TABPTLEFTC U(02,04,04); # PROTECTED LEFT BEHAVIOR #
00096 M00S00095.comfds1 +++| ITEM TABPTUPCUR U(02,08,04); # PROTECTED UP BEHAVIOR #
00097 M00S00096.comfds1 +++| ITEM TABPTDNCUR U(02,12,04); # PROTECTED DOWN BEHAVIOR #
00098 M00S00097.comfds1 +++| ITEM TABUNRHGTC U(02,16,04); # UNPROTECTED RIGHT BEHAVIOR #
00099 M00S00098.comfds1 +++| ITEM TABUNLEFTC U(02,20,04); # UNPROTECTED LEFT BEHAVIOR #
00100 M00S00099.comfds1 +++| ITEM TABUNUPCUR U(02,24,04); # UNPROTECTED UP BEHAVIOR #
00101 M00S00100.comfds1 +++| ITEM TABUNDNCUR U(02,28,04); # UNPROTECTED DOWN BEHAVIOR #
00102 M00S00101.comfds1 +++| ITEM TABRESERV2 U(02,32,28); # RESERVED #
00103 M00S00102.comfds1 +++| ITEM TABHEADFOU U(03,00,60); # WORD FOUR #
00104 M00S00103.comfds1 +++| ITEM TABCURADDT U(03,00,06); # CURSOR ADDRESSING TYPE #
00105 M00S00104.comfds1 +++| ITEM TABCURBIAS I(03,06,08); # CURSOR BIAS FOR POSTIONING #
00106 M00S00105.comfds1 +++| ITEM TABLEFTCUR U(03,14,04); # CURSOR LEFT BEHAVIOR #
00107 M00S00106.comfds1 +++| ITEM TABRGHTCUR U(03,18,04); # CURSOR RIGHT BEHAVIOR #
00108 M00S00107.comfds1 +++| ITEM TABUPCURSR U(03,22,04); # CURSOR UP BEHAVIOR #
00109 M00S00108.comfds1 +++| ITEM TABDWNCRSR U(03,26,04); # CURSOR DOWN BEHAVIOR #
00110 M00S00109.comfds1 +++| ITEM TABLEFTCHR U(03,30,04); # CHARACTER LEFT BEHAVIOR #
00111 M00S00110.comfds1 +++| ITEM TABRGHTCHR U(03,34,04); # CHARACTER RIGHT BEHAVIOR #
00112 M00S00111.comfds1 +++| ITEM TABLASTPOS U(03,38,04); # LAST POSITION BEHAVIOR (CHAR) #
00113 M00S00112.comfds1 +++| ITEM TABXFIRSTY B(03,42,01); # X BEFORE Y IN CURSOR OUTPUT #
00114 M00S00113.comfds1 +++| ITEM TABXDECIML U(03,43,03); # X COORDINATE COUNT IF DECIMAL #
00115 M00S00114.comfds1 +++| ITEM TABYDECIML U(03,46,03); # Y COORDINATE COUNT IF DECIMAL #
00116 M00S00115.comfds1 +++| ITEM TABRESERV3 U(03,49,11); # RESERVED #
00117 M00S00116.comfds1 +++| ITEM TABHEADFIV U(04,00,60); # WORD FIVE #
00118 M00S00117.comfds1 +++| ITEM TABVTFLAGS U(04,00,60); # VIRTUAL TERMINAL FLAGS #
00119 M00S00118.comfds1 +++| ITEM TABVTHOMEU B(04,00,01); # HOME UP FLAG #
00120 M00S00119.comfds1 +++| ITEM TABVTPROTM B(04,01,01); # TERMINAL HAS PROTECT #
00121 M00S00120.comfds1 +++| ITEM TABVTDIFSS B(04,02,01); # DIFFERENT SCREEN SIZES #
00122 M00S00121.comfds1 +++| ITEM TABVTUNUSD B(04,03,01); # UNUSED #
00123 M00S00122.comfds1 +++| ITEM TABVTGUARD B(04,04,01); # TERMINAL HAS GUARD #
00124 M00S00123.comfds1 +++| ITEM TABVTABHME B(04,05,01); # PROTECTED TAB GOES TO HOME #
00125 M00S00124.comfds1 +++| ITEM TABVTABUPF B(04,06,01); # TABS TO UNPROTECTED FIELDS #
00126 M00S00125.comfds1 +++| ITEM TABVTABSTP B(04,07,01); # TABS TO TAB STOP #
00127 M00S00126.comfds1 +++| ITEM TABVTSCLRS B(04,08,01); # SIZE CHANGE CLEARS SCREEN #
00128 M00S00127.comfds1 +++| ITEM TABAUTOTAB B(04,09,01); # TERMINAL HAS AUTOMATIC TABBING #
00129 M00S00128.comfds1 +++| ITEM TABTYPHEAD B(04,10,01); # TYPE AHEAD ENABLED #
00130 M00S00129.comfds1 +++| ITEM TABLOCKMDE B(04,11,01); # BLOCK MODE TERMINAL #
00131 M00S00130.comfds1 +++| ITEM TABPTDWFLN B(04,12,01); # PROT TABS DO NOT WRAP FWD LINE #
00132 M00S00131.comfds1 +++| ITEM TABPTDWFPG B(04,13,01); # PROT TABS DO NOT WRAP FWD PAGE #
00133 M00S00132.comfds1 +++| ITEM TABPTDWBLN B(04,14,01); # PROT TABS DO NOT WRAP BKW LINE #
00134 M00S00133.comfds1 +++| ITEM TABPTDWBPG B(04,15,01); # PROT TABS DO NOT WRAP BKW PAGE #
00135 M00S00134.comfds1 +++| ITEM TABUNDWFLN B(04,16,01); # UNPROT TABS DO NOT WRAP FWD LN #
00136 M00S00135.comfds1 +++| ITEM TABUNDWFPG B(04,17,01); # UNPROT TABS DO NOT WRAP FWD PG #
00137 M00S00136.comfds1 +++| ITEM TABUNDWBLN B(04,18,01); # UNPROT TABS DO NOT WRAP BKW LN #
00138 M00S00137.comfds1 +++| ITEM TABUNDWBPG B(04,19,01); # UNPROT TABS DO NOT WRAP BKW PG #
00139 M00S00138.comfds1 +++| ITEM TABATTRCHR B(04,20,01); # ATTRIBUTE CHARACTER NEEDS BYTE #
00140 M00S00139.comfds1 +++| ITEM TABATTRSET B(04,21,01); # RESET ATTRIBUTES BEFORE VDTPOS #
00141 M00S00140.comfds1 +++| ITEM TABSNDSPLR B(04,22,01); # SEND DISPLAY REWRITE FOR SFORM #
00142 M00S00141.comfds1 +++| ITEM TABSNDSPLH B(04,23,01); # SEND DISPLAY ON HELP FOR SFORM #
00143 M00S00142.comfds1 +++| ITEM TABNOTMASK B(04,24,01); # ATTRIBUTES ARE NOT MASKABLE #
00144 M00S00143.comfds1 +++| ITEM TABNOTCHAR B(04,25,01); # ATTRIBUTES ARE LINE/PAGE BASED #
00145 M00S00144.comfds1 +++| ITEM TABNOVDTEO B(04,26,01); # DISABLE OUTPUT END (ERR. EXIT) #
00146 M00S00145.comfds1 +++| ITEM TABPROCLRS B(04,27,01); # PROTECT ALL CLEARS THE SCREEN #
00147 M00S00146.comfds1 +++| ITEM TABCLEARSM B(04,28,01); # CLEARS ACROSS PROTECTED FIELDS #
00148 M00S00147.comfds1 +++| ITEM TABRSBIT29 B(04,29,01); # RESERVED FOR CDC (FUTURE CODE) #
00149 M00S00148.comfds1 +++| ITEM TABRSBIT30 B(04,30,01); # RESERVED FOR CDC (FUTURE CODE) #
00150 M00S00149.comfds1 +++| ITEM TABRSBIT31 B(04,31,01); # RESERVED FOR CDC (FUTURE CODE) #
00151 M00S00150.comfds1 +++| ITEM TABRSBIT32 B(04,32,01); # RESERVED FOR CDC (FUTURE CODE) #
00152 M00S00151.comfds1 +++| ITEM TABRSBIT33 B(04,33,01); # RESERVED FOR CDC (FUTURE CODE) #
00153 M00S00152.comfds1 +++| ITEM TABRSBIT34 B(04,34,01); # RESERVED FOR CDC (FUTURE CODE) #
00154 M00S00153.comfds1 +++| ITEM TABRSBIT35 B(04,35,01); # RESERVED FOR CDC (FUTURE CODE) #
00155 M00S00154.comfds1 +++| ITEM TABRSBIT36 B(04,36,01); # RESERVED FOR CDC (FUTURE CODE) #
00156 M00S00155.comfds1 +++| ITEM TABINSTL01 B(04,37,01); # RESERVED FOR INSTALLATION CODE #
00157 M00S00156.comfds1 +++| ITEM TABINSTL02 B(04,38,01); # RESERVED FOR INSTALLATION CODE #
00158 M00S00157.comfds1 +++| ITEM TABINSTL03 B(04,39,01); # RESERVED FOR INSTALLATION CODE #
00159 M00S00158.comfds1 +++| ITEM TABINSTL04 B(04,40,01); # RESERVED FOR INSTALLATION CODE #
00160 M00S00159.comfds1 +++| ITEM TABINSTL05 B(04,41,01); # RESERVED FOR INSTALLATION CODE #
00161 M00S00160.comfds1 +++| ITEM TABINSTL06 B(04,42,01); # RESERVED FOR INSTALLATION CODE #
00162 M00S00161.comfds1 +++| ITEM TABINSTL07 B(04,43,01); # RESERVED FOR INSTALLATION CODE #
00163 M00S00162.comfds1 +++| ITEM TABINSTL08 B(04,44,01); # RESERVED FOR INSTALLATION CODE #
00164 M00S00163.comfds1 +++| ITEM TABINSTL09 B(04,45,01); # RESERVED FOR INSTALLATION CODE #
00165 M00S00164.comfds1 +++| ITEM TABINSTL10 B(04,46,01); # RESERVED FOR INSTALLATION CODE #
00166 M00S00165.comfds1 +++| ITEM TABINSTL11 B(04,47,01); # RESERVED FOR INSTALLATION CODE #
00167 M00S00166.comfds1 +++| ITEM TABINSTL12 B(04,48,01); # RESERVED FOR INSTALLATION CODE #
00168 M00S00167.comfds1 +++| ITEM TABINSTL13 B(04,49,01); # RESERVED FOR INSTALLATION CODE #
00169 M00S00168.comfds1 +++| ITEM TABINSTL14 B(04,50,01); # RESERVED FOR INSTALLATION CODE #
00170 M00S00169.comfds1 +++| ITEM TABINSTL15 B(04,51,01); # RESERVED FOR INSTALLATION CODE #
00171 M00S00170.comfds1 +++| ITEM TABINSTL16 B(04,52,01); # RESERVED FOR INSTALLATION CODE #
00172 M00S00171.comfds1 +++| ITEM TABINSTL17 B(04,53,01); # RESERVED FOR INSTALLATION CODE #
00173 M00S00172.comfds1 +++| ITEM TABINSTL18 B(04,54,01); # RESERVED FOR INSTALLATION CODE #
00174 M00S00173.comfds1 +++| ITEM TABINSTL19 B(04,55,01); # RESERVED FOR INSTALLATION CODE #
00175 M00S00174.comfds1 +++| ITEM TABINSTL20 B(04,56,01); # RESERVED FOR INSTALLATION CODE #
00176 M00S00175.comfds1 +++| ITEM TABVTFKLSM U(04,57,03); # FUNCTION KEY MARK COUNT #
00177 M00S00176.comfds1 +++| ITEM TABHEADSIX U(05,00,60); # WORD SIX #
00178 M00S00177.comfds1 +++| ITEM TABXMAXONE U(05,00,08); # X MAX, SCREEN SIZE ONE #
00179 M00S00178.comfds1 +++| ITEM TABYMAXONE U(05,08,07); # Y MAX, SCREEN SIZE ONE #
| Line S00179 Modification History |
M01 (Removed by) | ns2613 |
Seq # *Modification Id* Act
----------------------------+
00180 M01S00179.ns2613 ---| ITEM TABXMAXTWO U(05,15,08); # X MAX, SCREEN SIZE ONE #
00181 M01S00180.ns2613 ---| ITEM TABYMAXTWO U(05,23,07); # Y MAX, SCREEN SIZE ONE #
00182 M01S00181.ns2613 ---| ITEM TABXMAXTHR U(05,30,08); # X MAX, SCREEN SIZE ONE #
00183 M01S00182.ns2613 ---| ITEM TABYMAXTHR U(05,38,07); # Y MAX, SCREEN SIZE ONE #
00184 M01S00183.ns2613 ---| ITEM TABXMAXFOR U(05,45,08); # X MAX, SCREEN SIZE ONE #
00185 M01S00184.ns2613 ---| ITEM TABYMAXFOR U(05,53,07); # Y MAX, SCREEN SIZE ONE #
| Line S00001 Modification History |
M01 (Added by) | ns2613 |
Seq # *Modification Id* Act
----------------------------+
00186 M01S00001.ns2613 +++| ITEM TABXMAXTWO U(05,15,08); # X MAX, SCREEN SIZE TWO #
00187 M01S00002.ns2613 +++| ITEM TABYMAXTWO U(05,23,07); # Y MAX, SCREEN SIZE TWO #
00188 M01S00003.ns2613 +++| ITEM TABXMAXTHR U(05,30,08); # X MAX, SCREEN SIZE THREE #
00189 M01S00004.ns2613 +++| ITEM TABYMAXTHR U(05,38,07); # Y MAX, SCREEN SIZE THREE #
00190 M01S00005.ns2613 +++| ITEM TABXMAXFOR U(05,45,08); # X MAX, SCREEN SIZE FOUR #
00191 M01S00006.ns2613 +++| ITEM TABYMAXFOR U(05,53,07); # Y MAX, SCREEN SIZE FOUR #
00192 M00S00185.comfds1 +++| END
00193 M00S00186.comfds1 +++|
00194 M00S00187.comfds1 +++|ARRAY TABLEWORDS [0:O"271"] P(1); # *TDU* TABLE I/O INFORMATION #
00195 M00S00188.comfds1 +++| BEGIN
00196 M00S00189.comfds1 +++| ITEM TABFULLWRD U(00,00,60); # TABLE WORD #
00197 M00S00190.comfds1 +++| END
00198 M00S00191.comfds1 +++|
00199 M00S00192.comfds1 +++|
00200 M00S00193.comfds1 +++| ARRAY SPLITCONTROL [1:2] P(SPLTCTLSIZ); # SPLIT CONTROL (1 OR 2) #
00201 M00S00194.comfds1 +++| BEGIN # ARRAY SPLITCONTROL #
00202 M00S00195.comfds1 +++| ITEM TITLEROW I(00,00,60)=[1,1]; # WHERE TITLES ARE #
00203 M00S00196.comfds1 +++| ITEM NUMROWS I(01,00,60)=[20,0]; # NUMBER OF ROWS IN SPLIT #
00204 M00S00197.comfds1 +++| ITEM SPLITFILE I(02,00,60)=[1,0]; # FILE DISPLAYED IN SPLIT #
00205 M00S00198.comfds1 +++| ITEM XSHIFT I(03,00,60)=[0,0]; # DISPLAY COLUMN OFFSET #
00206 M00S00199.comfds1 +++| ITEM LASTNAME C(04,00,07)=[" ", " "]; # LAST DISPLAYED FILE #
00207 M00S00200.comfds1 +++| END # ARRAY SPLITCONTROL #
00208 M00S00201.comfds1 +++|
00209 M00S00202.comfds1 +++| # MUST MATCH CORRESPONDING MULTI-USER ARRAY #
00210 M00S00203.comfds1 +++| ARRAY ROWCONTROL [0:MAXROWS] P(2);
00211 M00S00204.comfds1 +++| BEGIN
00212 M00S00205.comfds1 +++| ITEM ROWWORD0 (0) = [0,MAXROWS(0)];
00213 M00S00206.comfds1 +++| ITEM ROWWORD1 (1) = [0,MAXROWS(0)];
00214 M00S00207.comfds1 +++| ITEM ROWPAINT B(0); # WHETHER TO REDISPLAY THIS ROW #
00215 M00S00208.comfds1 +++| ITEM ROWBITS U(1,0,6); # INCLUDES ALL FLAGS #
00216 M00S00209.comfds1 +++| ITEM ROWCOLUM B(1,1,1); # LIST COLUMN NUMBERS HERE #
00217 M00S00210.comfds1 +++| ITEM ROWPMARK B(1,2,1); # WHETHER WITHIN ACTIVE MARKS #
00218 M00S00211.comfds1 +++| # END OF BITS INCLUDED UNDER ROWBITS #
00219 M00S00212.comfds1 +++| ITEM ROWSPLIT U(1,6,3); # SPLIT THIS ROW IS IN #
00220 M00S00213.comfds1 +++| ITEM ROWTYPE U(1,9,6); # TYPES ARE ROWST VALUES #
00221 M00S00214.comfds1 +++| # DEFINED IFF TEXT, EMPTY OR TITLE #
00222 M00S00215.comfds1 +++| ITEM ROWORIG I(1,18,12); # ORIGINAL ROW BEFORE SHUFFLES #
00223 M00S00216.comfds1 +++| ITEM ROWLNPTR U(1,30,30); # LINE POINTER FOR GLOBAL SEARCH #
00224 M00S00217.comfds1 +++| END
00225 M00S00218.comfds1 +++|
00226 M00S00219.comfds1 +++| # MUST MATCH CORRESPONDING MULTI-USER ARRAY #
00227 M00S00220.comfds1 +++| ARRAY BACKSTACK [0:BACKMAX]; # STACK OF PREVIOUS SCREENS #
00228 M00S00221.comfds1 +++| BEGIN
00229 M00S00222.comfds1 +++| ITEM BACKFIL1 U (00,00,18); # FDLF(1) #
00230 M00S00223.comfds1 +++| ITEM BACKFIL2 U (00,18,18); # FDLF(2) #
00231 M00S00224.comfds1 +++| ITEM BACKSPL1 U (00,36,06); # SPLIT FILE 1 #
00232 M00S00225.comfds1 +++| ITEM BACKSPL2 U (00,42,06); # SPLIT FILE 2 #
00233 M00S00226.comfds1 +++| ITEM BACKSPLN U (00,48,12); # SPLIT SIZE #
00234 M00S00227.comfds1 +++| END
00235 M00S00228.comfds1 +++|
00236 M00S00229.comfds1 +++| ARRAY BACKSTORE [0:TEMPIND] P(2); # SAVED POSITION STORAGE #
00237 M00S00230.comfds1 +++| BEGIN
00238 M00S00231.comfds1 +++| ITEM BKFDLFF1 U (00,00,18); # FDLF(1) #
00239 M00S00232.comfds1 +++| ITEM BKFDLFF2 U (00,18,18); # FDLF(2) #
00240 M00S00233.comfds1 +++| ITEM BKSPLIT2 U (00,36,06); # SPLIT FILE 2 #
00241 M00S00234.comfds1 +++| ITEM BKNROWS1 U (00,42,12); # SPLIT SIZE 1 #
00242 M00S00235.comfds1 +++| ITEM BKWHCHSP U (00,54,06); # WHICH SPLIT (0 = TOP) #
00243 M00S00236.comfds1 +++| ITEM BKNROWS2 U (01,00,12); # SPLIT SIZE 2 #
00244 M00S00237.comfds1 +++| ITEM BKCURSOR U (01,12,12); # CURSOR POSITION #
00245 M00S00238.comfds1 +++| END
00246 M00S00239.comfds1 +++|
00247 M00S00240.comfds1 +++|
00248 M00S00241.comfds1 +++| # MUST MATCH CORRESPONDING MULTI-USER ARRAY #
00249 M00S00242.comfds1 +++| ARRAY FKEYDEFS [-POSFKEYS:POSFKEYS];
00250 M00S00243.comfds1 +++| BEGIN
00251 M00S00244.comfds1 +++| ITEM FKEYNAME C(0,0,10)=[NUMFKEYS(" ")];
00252 M00S00245.comfds1 +++| END
00253 M00S00246.comfds1 +++|
00254 M00S00247.comfds1 +++| # MUST MATCH CORRESPONDING MULTI-USER ARRAY #
00255 M00S00248.comfds1 +++| ARRAY AUDITSTAGE[0:AUDITSIZE]; ITEM AUDITWORD;
00256 M00S00249.comfds1 +++|
00257 M00S00250.comfds1 +++|
00258 M00S00251.comfds1 +++| # LOCATE AND CHANGE STRING BUFFERS HOLD 80 CHARS PLUS EOL #
00259 M00S00252.comfds1 +++|
00260 M00S00253.comfds1 +++| # MUST MATCH CORRESPONDING MULTI-USER ARRAY #
00261 M00S00254.comfds1 +++| ARRAY LOCSTRING1 [0:STRWIDM1]; ITEM LOCSTR1=[STRWID(-1)];
00262 M00S00255.comfds1 +++| ARRAY LOCSTRING2 [0:STRWIDM1]; ITEM LOCSTR2=[STRWID(-1)];
00263 M00S00256.comfds1 +++| ARRAY CHGSTRING1 [0:STRWIDM1]; ITEM CHGSTR1=[STRWID(-1)];
00264 M00S00257.comfds1 +++|
00265 M00S00258.comfds1 +++| # MUST MATCH CORRESPONDING MULTI-USER ARRAY #
00266 M00S00259.comfds1 +++| ARRAY FKEYSTRINGS[-POSFKEYS:POSFKEYS] S(2);
00267 M00S00260.comfds1 +++| BEGIN
00268 M00S00261.comfds1 +++| ITEM FKEYSTRING U(0)=[NUMFKEYS(NULLIN)];
00269 M00S00262.comfds1 +++| END
00270 M00S00263.comfds1 +++|
| Line S00001 Modification History |
M01 (Added by) | ns2675 |
Seq # *Modification Id* Act
----------------------------+
00271 M01S00001.ns2675 +++| # MUST MATCH CORRESPONDING MULTI-USER ARRAY #
00272 M01S00002.ns2675 +++| ARRAY FKEYNUMB[1:POSFKEYS];
00273 M01S00003.ns2675 +++| BEGIN
00274 M01S00004.ns2675 +++| ITEM FKEYNUMS U = [POSFKEYS(0)];
00275 M01S00005.ns2675 +++| END
00276 M01S00006.ns2675 +++|
00277 M00S00264.comfds1 +++| # MUST MATCH CORRESPONDING MULTI-USER ARRAY #
00278 M00S00265.comfds1 +++|
00279 M00S00266.comfds1 +++| ARRAY TITLE1LIN [0:TTLLNLEN]; # TITLE LINE ONE ARRAY #
00280 M00S00267.comfds1 +++| BEGIN # ARRAY TITLE1LIN #
00281 M00S00268.comfds1 +++| ITEM TITLE1LINE I=[STRWID(-1)]; # TITLE LINE ONE #
00282 M00S00269.comfds1 +++| END # ARRAY TITLE1LIN #
00283 M00S00270.comfds1 +++|
00284 M00S00271.comfds1 +++| ARRAY TITLE2LIN [0:TTLLNLEN]; # TITLE LINE TWO ARRAY #
00285 M00S00272.comfds1 +++| BEGIN # ARRAY TITLE2LIN #
00286 M00S00273.comfds1 +++| ITEM TITLE2LINE I=[STRWID(-1)]; # TITLE LINE TWO #
00287 M00S00274.comfds1 +++| END # ARRAY TITLE2LIN #
00288 M00S00275.comfds1 +++|
00289 M00S00276.comfds1 +++|
00290 M00S00277.comfds1 +++| ITEM ARRAYEND;
00291 M00S00278.comfds1 +++|CONTROL FI;
00292 M00S00279.comfds1 +++|
00293 M00S00280.comfds1 +++|
00294 M00S00281.comfds1 +++|
00295 M00S00282.comfds1 +++|
00296 M00S00283.comfds1 +++|
00297 M00S00284.comfds1 +++| # THE NEXT SEGMENT OF COMMON IS WRITTEN INTO A BINARY FILE #
00298 M00S00285.comfds1 +++| # RECORD FOR COMMUNICATION BETWEEN FSE AND SMFEX, SO IT #
00299 M00S00286.comfds1 +++| # CANNOT CONTAIN *CONTROL IF* DEPENDENT ON MODULE. #
00300 M00S00287.comfds1 +++|
00301 M00S00288.comfds1 +++| # DATASTART, SEGMENTVER, SEGMENTLEN1, AND SEGMENTLEN2 ARE #
00302 M00S00289.comfds1 +++| # REQUIRED TO BE THE FIRST FOUR WORDS OF THE SCALAR SEGMENT, #
00303 M00S00290.comfds1 +++| # SO THAT WORKFILE RESUMPTION CAN VERIFY THEM AT FIXED ADDR. #
00304 M00S00291.comfds1 +++|
00305 M00S00292.comfds1 +++| ITEM DATASTART;
00306 M00S00293.comfds1 +++|
00307 M00S00294.comfds1 +++| ITEM SEGMENTVER=0; # DATA SEGMENT VERSION #
00308 M00S00295.comfds1 +++| ITEM SEGMENTLEN1=0; # DATA SEGMENT LENGTH #
00309 M00S00296.comfds1 +++| ITEM SEGMENTLEN2=0; # ARRAY SEGMENT LENGTH #
00310 M00S00297.comfds1 +++|
00311 M00S00298.comfds1 +++| CONTROL LIST;