cdc:nos2.source:opl.opl871:common:comfds2
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;
cdc/nos2.source/opl.opl871/common/comfds2.txt · Last modified: by 127.0.0.1