cdc:nos2.source:opl.opl871:common:comfds1
Common COMFDS1
Library Member Format: MODIFY
Source
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;
cdc/nos2.source/opl.opl871/common/comfds1.txt · Last modified: (external edit)