Seq # *Modification Id* Act
----------------------------+
00001 M00S00001.fsefile +++|PROC FSEFILE;
00002 M00S00002.fsefile +++|BEGIN
00003 M00S00003.fsefile +++|
00004 M00S00004.fsefile +++|
00005 M00S00005.fsefile +++|#
00006 M00S00006.fsefile +++|*** FSEFILE -- SUBROUTINES FOR FILE ACCESS.
00007 M00S00007.fsefile +++|*
| Line S00008 Modification History |
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00008 M01S00008.281l803 ---|* COPYRIGHT CONTROL DATA CORPORATION, 1983.
| Line S00001 Modification History |
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00009 M01S00001.281l803 +++|* COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00010 M00S00009.fsefile +++|*
00011 M00S00010.fsefile +++|* FSEFILE HAS THE ROUTINES TO TEST THE ATTRIBUTES OF
00012 M00S00011.fsefile +++|* VARIOUS LOCAL FILES. THIS IS THEREFORE USED ONLY FOR
00013 M00S00012.fsefile +++|* THE SINGLE-USER VERSION OF FSE AND IS NOT PROGRAMMED
00014 M00S00013.fsefile +++|* REENTRANTLY. THIS MODULE IS A CANDIDATE FOR FUTURE
00015 M00S00014.fsefile +++|* OVERLAY STRUCTURING. IT MAY BE USED BY THE FSEMAIN MODULE
00016 M00S00015.fsefile +++|* AND THE FILCMD MODULE ONLY.
00017 M00S00016.fsefile +++|#
00018 M00S00017.fsefile +++|
00019 M00S00018.fsefile +++| DEF LISTCON #0#;
00020 M00S00019.fsefile +++|
00021 M00S00020.fsefile +++|CONTROL EJECT; # UNIVERSAL DECLARES #
00022 M00S00021.fsefile +++|
00023 M00S00022.fsefile +++|*IFCALL SINGLE,COMFSGL
00024 M00S00023.fsefile +++|*IFCALL ONLY,COMFONL
00025 M00S00024.fsefile +++|*IFCALL MULTI,COMFMLT
00026 M00S00025.fsefile +++|*CALL COMFFSE
00027 M00S00026.fsefile +++|
00028 M00S00027.fsefile +++| # EXTERNALS #
00029 M00S00028.fsefile +++|
00030 M00S00029.fsefile +++|
00031 M00S00030.fsefile +++|XDEF
00032 M00S00031.fsefile +++| BEGIN
00033 M00S00032.fsefile +++|*CALL COMFXFL
00034 M00S00033.fsefile +++| END
00035 M00S00034.fsefile +++|
00036 M00S00035.fsefile +++|XREF ARRAY MAXADDR;; # KEY ADDRESSES IN BUFFER SEGMENT #
00037 M00S00036.fsefile +++|XREF ARRAY WORKBUF;;
00038 M00S00037.fsefile +++|
00039 M00S00038.fsefile +++|XREF PROC FASTRLC;
00040 M00S00039.fsefile +++|
00041 M00S00040.fsefile +++|XREF
00042 M00S00041.fsefile +++| BEGIN
00043 M00S00042.fsefile +++| PROC PF;
00044 M00S00043.fsefile +++| PROC FILINFO;
00045 M00S00044.fsefile +++| PROC READ;
00046 M00S00045.fsefile +++| PROC READC;
00047 M00S00046.fsefile +++| PROC REWIND;
00048 M00S00047.fsefile +++| PROC FLDLEN;
| Line S00001 Modification History |
M01 (Added by) | ns2377 |
Seq # *Modification Id* Act
----------------------------+
00049 M01S00001.ns2377 +++| PROC RTIME;
00050 M01S00002.ns2377 +++| PROC TTLIN;
00051 M01S00003.ns2377 +++| PROC TTSTR;
00052 M01S00004.ns2377 +++| PROC VDTCLO;
00053 M01S00005.ns2377 +++| PROC VDTOPN;
| Line S00001 Modification History |
M01 (Added by) | ns2249 |
Seq # *Modification Id* Act
----------------------------+
00054 M01S00001.ns2249 +++| PROC VDTPRT$; # PROMPT ON/OFF #
00055 M00S00048.fsefile +++| END
00056 M00S00049.fsefile +++|
00057 M00S00050.fsefile +++|XREF
00058 M00S00051.fsefile +++| BEGIN
00059 M00S00052.fsefile +++|*CALL COMFXSB
00060 M00S00053.fsefile +++|*CALL COMFXSC
00061 M00S00054.fsefile +++|*CALL COMFXED
00062 M00S00055.fsefile +++|*CALL COMFXWK
00063 M00S00056.fsefile +++| END
00064 M00S00057.fsefile +++|
00065 M00S00058.fsefile +++| # COMMON DATA #
00066 M00S00059.fsefile +++|
00067 M00S00060.fsefile +++|*CALL COMFDS1
00068 M00S00061.fsefile +++|*CALL COMFVD2
00069 M00S00062.fsefile +++|*CALL COMFDS2
| Line S00001 Modification History |
M01 (Added by) | ns2568 |
Seq # *Modification Id* Act
----------------------------+
00070 M01S00001.ns2568 +++|*CALL COMSPFM
00071 M00S00063.fsefile +++|PAGE # HERE WE GO #
00072 M00S00064.fsefile +++|
00073 M00S00065.fsefile +++|
00074 M00S00066.fsefile +++|FUNC MSEQUIP(NAME) B;
00075 M00S00067.fsefile +++| BEGIN
00076 M00S00068.fsefile +++|#
00077 M00S00069.fsefile +++|** MSEQUIP - TEST FILE ATTRIBUTES FOR MASS STORAGE.
00078 M00S00070.fsefile +++|*
00079 M00S00071.fsefile +++|* ENTRY NAME - NAME OF FILE TO INSPECT.
00080 M00S00072.fsefile +++|*
00081 M00S00073.fsefile +++|* EXIT MSEQUIP - TRUE IF ALREADY ON MASS STORAGE OR IF
00082 M00S00074.fsefile +++|* ANTICIPATED TO BE ON MASS STORAGE BY DEFAULT.
00083 M00S00075.fsefile +++|* OTHERWISE FALSE.
00084 M00S00076.fsefile +++|*
00085 M00S00077.fsefile +++|* CALLS GETINFO, TRIMNAME.
00086 M00S00078.fsefile +++|*
00087 M00S00079.fsefile +++|* NOTE ASSUMES CORRECT DEFINITION OF DEFAULT NAMES
00088 M00S00080.fsefile +++|* FOR INPUT AND OUTPUT FILES.
00089 M00S00081.fsefile +++|#
00090 M00S00082.fsefile +++| ITEM NAME C(7);
| Line S00001 Modification History |
M01 (Added by) | fsefi4 |
Seq # *Modification Id* Act
----------------------------+
00091 M01S00001.fsefi4 +++|
00092 M01S00002.fsefi4 +++| FILINFSTAT = 0;
00093 M00S00083.fsefile +++| IF B<0,42>NAME EQ 0 THEN
00094 M00S00084.fsefile +++| BEGIN
00095 M00S00085.fsefile +++| MSEQUIP=FALSE;
00096 M00S00086.fsefile +++| RETURN;
00097 M00S00087.fsefile +++| END
00098 M00S00088.fsefile +++| MSEQUIP=TRUE;
00099 M00S00089.fsefile +++| GETINFO(NAME);
00100 M00S00090.fsefile +++| IF FILINFSTAT EQ 0 THEN
00101 M00S00091.fsefile +++| BEGIN
00102 M00S00092.fsefile +++| IF TRIMNAME(NAME) EQ DEFINPNAM THEN MSEQUIP=FALSE;
00103 M00S00093.fsefile +++| IF TRIMNAME(NAME) EQ DEFOUTNAM THEN MSEQUIP=FALSE;
00104 M00S00094.fsefile +++| END
00105 M00S00095.fsefile +++| ELSE
00106 M00S00096.fsefile +++| BEGIN
00107 M00S00097.fsefile +++| IF NOT (FILINFRMS AND FILINFREAD) THEN MSEQUIP=FALSE;
00108 M00S00098.fsefile +++| END
00109 M00S00099.fsefile +++| END # OF MSEQUIP #
00110 M00S00100.fsefile +++|
00111 M00S00101.fsefile +++|FUNC TTEQUIP(NAME) B;
00112 M00S00102.fsefile +++| BEGIN
00113 M00S00103.fsefile +++|#
00114 M00S00104.fsefile +++|** TTEQUIP - TEST FILE ATTRIBUTES FOR TERMINAL.
00115 M00S00105.fsefile +++|*
00116 M00S00106.fsefile +++|* ENTRY NAME - FILE TO TEST.
00117 M00S00107.fsefile +++|*
00118 M00S00108.fsefile +++|* EXIT TTEQUIP - TRUE IF FILE ALREADY ASSIGNED TO TERMINAL
00119 M00S00109.fsefile +++|* EQUIPMENT, OR IF ANTICIPATED TO BE SO ASSIGNED
00120 M00S00110.fsefile +++|* BY DEFAULT. OTHERWISE FALSE.
00121 M00S00111.fsefile +++|*
00122 M00S00112.fsefile +++|* CALLS GETINFO, TRIMNAME.
00123 M00S00113.fsefile +++|*
00124 M00S00114.fsefile +++|* NOTE ASSUMES CORRECT DEFINITION OF DEFAULT NAMES FOR
00125 M00S00115.fsefile +++|* INPUT AND OUTPUT FILES.
00126 M00S00116.fsefile +++|#
00127 M00S00117.fsefile +++| ITEM NAME C(7);
00128 M00S00118.fsefile +++| TTEQUIP=FALSE;
00129 M00S00119.fsefile +++| IF B<0,42>NAME EQ 0 THEN RETURN;
00130 M00S00120.fsefile +++| GETINFO(NAME);
00131 M00S00121.fsefile +++| IF FILINFSTAT EQ 0 THEN # NOT EXIST #
00132 M00S00122.fsefile +++| BEGIN
00133 M00S00123.fsefile +++| IF TRIMNAME(NAME) EQ DEFINPNAM THEN TTEQUIP=TRUE;
00134 M00S00124.fsefile +++| IF TRIMNAME(NAME) EQ DEFOUTNAM THEN TTEQUIP=TRUE;
00135 M00S00125.fsefile +++| END
00136 M00S00126.fsefile +++| ELSE # FILE ALREADY EXIST #
00137 M00S00127.fsefile +++| BEGIN
00138 M00S00128.fsefile +++| IF FILINFTTY THEN TTEQUIP=TRUE;
00139 M00S00129.fsefile +++| END
00140 M00S00130.fsefile +++| END # OF TTEQUIP #
00141 M00S00131.fsefile +++|
00142 M00S00132.fsefile +++|
00143 M00S00133.fsefile +++|FUNC WRITEABLE(NAME) B;
00144 M00S00134.fsefile +++| BEGIN
00145 M00S00135.fsefile +++|#
00146 M00S00136.fsefile +++|** WRITEABLE - TEST FILE FOR NON-READ-ONLY DISK.
00147 M00S00137.fsefile +++|*
00148 M00S00138.fsefile +++|* ENTRY NAME - FILE TO INSPECT.
00149 M00S00139.fsefile +++|*
00150 M00S00140.fsefile +++|* EXIT - WRITEABLE - TRUE IF AND ONLY IF FILE IS ON
00151 M00S00141.fsefile +++|* MASS STORAGE AND HAS NO ACCESS RESTRICTIONS.
00152 M00S00142.fsefile +++|*
00153 M00S00143.fsefile +++|* CALLS MSEQUIP.
00154 M00S00144.fsefile +++|*
00155 M00S00145.fsefile +++|* NOTE CODING ASSUMES GETINFO WILL BE CALLED FOR THIS
00156 M00S00146.fsefile +++|* FILE NO LATER THAN COMPLETION OF MSEQUIP.
00157 M00S00147.fsefile +++|#
00158 M00S00148.fsefile +++| ITEM NAME C(7);
00159 M00S00149.fsefile +++| WRITEABLE=FALSE;
00160 M00S00150.fsefile +++| IF MSEQUIP(NAME) THEN
00161 M00S00151.fsefile +++| BEGIN
00162 M00S00152.fsefile +++| WRITEABLE=FILINFWRIT;
00163 M00S00153.fsefile +++| IF FILINFSTAT EQ 0 THEN WRITEABLE=TRUE;
00164 M00S00154.fsefile +++| END
00165 M00S00155.fsefile +++| END # OF WRITEABLE #
00166 M00S00156.fsefile +++|
00167 M00S00157.fsefile +++|
00168 M00S00158.fsefile +++|FUNC LOCALFILE(NAME) B;
00169 M00S00159.fsefile +++| BEGIN
00170 M00S00160.fsefile +++|#
00171 M00S00161.fsefile +++|** LOCALFILE - TEST FILE ATTRIBUTES FOR LOFT.
00172 M00S00162.fsefile +++|*
00173 M00S00163.fsefile +++|* ENTRY NAME - FILE TO INSPECT.
00174 M00S00164.fsefile +++|*
00175 M00S00165.fsefile +++|* EXIT LOCALFILE - TRUE IF AND ONLY IF FILE IS ON
00176 M00S00166.fsefile +++|* MASS STORAGE, HAS WRITE PERMISSION, AND IS OF
00177 M00S00167.fsefile +++|* LOCAL FILE TYPE.
00178 M00S00168.fsefile +++|*
00179 M00S00169.fsefile +++|* CALLS WRITEABLE.
00180 M00S00170.fsefile +++|*
00181 M00S00171.fsefile +++|* NOTE ASSUMES GETINFO IS CALLED BY WRITEABLE.
00182 M00S00172.fsefile +++|#
00183 M00S00173.fsefile +++| ITEM NAME C(7);
00184 M00S00174.fsefile +++| LOCALFILE=FALSE;
00185 M00S00175.fsefile +++| IF WRITEABLE(NAME) THEN
00186 M00S00176.fsefile +++| BEGIN
00187 M00S00177.fsefile +++| IF FILINFFT EQ 0
00188 M00S00178.fsefile +++| OR FILINFFT EQ 6 THEN LOCALFILE=TRUE;
00189 M00S00179.fsefile +++| END
00190 M00S00180.fsefile +++| END # OF LOCALFILE #
00191 M00S00181.fsefile +++|
00192 M00S00182.fsefile +++|
00193 M00S00183.fsefile +++|PROC GETINFO(NAME);
00194 M00S00184.fsefile +++| BEGIN
00195 M00S00185.fsefile +++|#
00196 M00S00186.fsefile +++|** GETINFO - INTERFACE TO FILINFO MACRO.
00197 M00S00187.fsefile +++|*
00198 M00S00188.fsefile +++|* ENTRY NAME - FILE TO PROCESS.
00199 M00S00189.fsefile +++|*
00200 M00S00190.fsefile +++|* EXIT FILINFPARMS ARRAY IS FILLED IN.
00201 M00S00191.fsefile +++|*
00202 M00S00192.fsefile +++|* CALLS TRIMNAME, FILINFO.
00203 M00S00193.fsefile +++|#
00204 M00S00194.fsefile +++| ITEM NAME C(7), NEWNAME C(7);
00205 M00S00195.fsefile +++| NEWNAME=TRIMNAME(NAME);
00206 M00S00196.fsefile +++| FILINFNAME=NEWNAME;
00207 M00S00197.fsefile +++| FILINFO(FILINFPARMS);
00208 M00S00198.fsefile +++| END # OF GETINFO #
00209 M00S00199.fsefile +++|
00210 M00S00200.fsefile +++|
00211 M00S00201.fsefile +++|FUNC ASSGNFILE(NAME) B;
00212 M00S00202.fsefile +++| BEGIN
00213 M00S00203.fsefile +++|#
00214 M00S00204.fsefile +++|** ASSGNFILE - TEST FILE FOR FNT ASSIGNMENT.
00215 M00S00205.fsefile +++|*
00216 M00S00206.fsefile +++|* ENTRY NAME - FILE TO INSPECT.
00217 M00S00207.fsefile +++|*
00218 M00S00208.fsefile +++|* EXIT ASSGNFILE - TRUE IF AND ONLY IF THIS JOB HAS
00219 M00S00209.fsefile +++|* AN FNT FOR THE FILE.
00220 M00S00210.fsefile +++|*
00221 M00S00211.fsefile +++|* CALLS GETINFO.
00222 M00S00212.fsefile +++|#
00223 M00S00213.fsefile +++| ITEM NAME C(7);
00224 M00S00214.fsefile +++| ASSGNFILE=FALSE;
00225 M00S00215.fsefile +++| IF B<0,42>NAME EQ 0 THEN RETURN;
00226 M00S00216.fsefile +++| GETINFO(NAME);
00227 M00S00217.fsefile +++| IF FILINFSTAT NQ 0 THEN ASSGNFILE=TRUE;
00228 M00S00218.fsefile +++| END # OF ASSGNFILE #
00229 M00S00219.fsefile +++|
00230 M00S00220.fsefile +++|
00231 M00S00221.fsefile +++|PROC VFYFILE(NAME,MODE);
00232 M00S00222.fsefile +++| BEGIN
00233 M00S00223.fsefile +++|#
00234 M00S00224.fsefile +++|** VFYFILE - VERIFY FILE AS LEGAL TO BE EDITED.
00235 M00S00225.fsefile +++|*
00236 M00S00226.fsefile +++|* ENTRY NAME - FILE TO INSPECT.
00237 M00S00227.fsefile +++|* MODE - POSITIVE IMPLIES USE ERRJUMP FOR FAILURES,
00238 M00S00228.fsefile +++|* NEGATIVE IMPLIES ABORT THE JOB STEP VIA MORTAL.
00239 M00S00229.fsefile +++|*
00240 M00S00230.fsefile +++|* EXIT TO CALLER IF FILE IS LEGAL, OTHERWISE TO
00241 M00S00231.fsefile +++|* SPECIFIED ERROR ROUTINE WITHOUT RETURN.
00242 M00S00232.fsefile +++|*
00243 M00S00233.fsefile +++|* CALLS ERRJUMP, MORTAL, ERROR(INTERNAL), COMPARE(INTERNAL).
00244 M00S00234.fsefile +++|#
00245 M00S00235.fsefile +++| ITEM NAME C(7), MODE I;
00246 M00S00236.fsefile +++|
00247 M00S00237.fsefile +++| PROC ERROR(STR);
00248 M00S00238.fsefile +++| BEGIN
00249 M00S00239.fsefile +++| ITEM STR C(40);
00250 M00S00240.fsefile +++| IF MODE GQ 0 THEN ERRJUMP(STR);
00251 M00S00241.fsefile +++| MORTAL(STR);
00252 M00S00242.fsefile +++| END
00253 M00S00243.fsefile +++|
00254 M00S00244.fsefile +++| PROC COMPARE(PARM);
00255 M00S00245.fsefile +++| BEGIN
00256 M00S00246.fsefile +++| ITEM PARM C(7), NAME1 C(7), NAME2 C(7);
00257 M00S00247.fsefile +++| NAME1=TRIMNAME(NAME);
00258 M00S00248.fsefile +++| NAME2=TRIMNAME(PARM);
00259 M00S00249.fsefile +++| IF NAME1 EQ NAME2 THEN ERROR("RESERVED FILE$");
00260 M00S00250.fsefile +++| END
00261 M00S00251.fsefile +++|
00262 M00S00252.fsefile +++| COMPARE(INPTNAM);
00263 M00S00253.fsefile +++| COMPARE(OUTPNAM);
00264 M00S00254.fsefile +++| COMPARE(WORKNAM);
00265 M00S00255.fsefile +++| COMPARE("ZZZMOVE");
| Line S00256 Modification History |
M01 (Removed by) | fsefi4 |
Seq # *Modification Id* Act
----------------------------+
00266 M01S00256.fsefi4 ---| IF NOT MSEQUIP(NAME) THEN ERROR("FILE MUST BE ON DISK$");
| Line S00003 Modification History |
M01 (Added by) | fsefi4 |
Seq # *Modification Id* Act
----------------------------+
00267 M01S00003.fsefi4 +++| IF NOT MSEQUIP(NAME) THEN
00268 M01S00004.fsefi4 +++| BEGIN
00269 M01S00005.fsefi4 +++| IF FILINFSTAT NQ 0 AND FILINFRMS THEN
00270 M01S00006.fsefi4 +++| BEGIN # IF FILE HAS NO READ PERMISSION #
00271 M01S00007.fsefi4 +++| ERROR("FILE DOES NOT HAVE READ PERMISSION$");
00272 M01S00008.fsefi4 +++| END
00273 M01S00009.fsefi4 +++| ELSE
00274 M01S00010.fsefi4 +++| BEGIN # IF FILE IS NOT ON DISK #
00275 M01S00011.fsefi4 +++| ERROR("FILE MUST BE ON DISK$");
00276 M01S00012.fsefi4 +++| END
00277 M01S00013.fsefi4 +++| END
00278 M00S00257.fsefile +++| END # OF VFYFILE #
00279 M00S00258.fsefile +++|PAGE # FILE READ SUBROUTINE #
00280 M00S00259.fsefile +++|
00281 M00S00260.fsefile +++|
00282 M00S00261.fsefile +++|PROC FILEREAD;
00283 M00S00262.fsefile +++| BEGIN
00284 M00S00263.fsefile +++|#
00285 M00S00264.fsefile +++|** FILEREAD - READ A LOCAL FILE INTO FILE IMAGE BRACKET.
00286 M00S00265.fsefile +++|*
00287 M00S00266.fsefile +++|* NOTE THAT TO SAVE THE CPU OVERHEAD OF RELOCATING THE
00288 M00S00267.fsefile +++|* POINTER STACKS FOR EVERY INSERTION, WE CALL WORKIO
00289 M00S00268.fsefile +++|* DIRECTLY, THEN WE CALL RELOCATE TO CORRECT FOR BYPASSING
00290 M00S00269.fsefile +++|* THE "INSY" INTERFACE.
00291 M00S00270.fsefile +++|*
00292 M00S00271.fsefile +++|* NOTE THAT THE "USRBRK" FLAG IS CONTINUALLY CHECKED
00293 M00S00272.fsefile +++|* TO DETECT AN EXTERNAL INTERRUPT.
00294 M00S00273.fsefile +++|*
00295 M00S00274.fsefile +++|* ENTRY FILNUM - WHICH BRACKET.
00296 M00S00275.fsefile +++|* FILEFET - ALREADY INITIALIZED.
00297 M00S00276.fsefile +++|* ASCII[FILNUM] - CHARACTER SET.
00298 M00S00277.fsefile +++|*
00299 M00S00278.fsefile +++|* EXIT NUMBERED[FILNUM] - WHETHER FILE REALLY NUMBERED.
00300 M00S00279.fsefile +++|* FILEFET - AT EOI, OR INDETERINATE IF USER BREAK.
00301 M00S00280.fsefile +++|*
00302 M00S00281.fsefile +++|* CALLS READ, READC, CONVIN, GETLNUM, TRIMPAD, INS, FASTRLC.
00303 M00S00282.fsefile +++|*
00304 M00S00283.fsefile +++|* USES WIDTHFOUND.
00305 M00S00284.fsefile +++|#
| Line S00006 Modification History |
M01 (Added by) | ns2377 |
Seq # *Modification Id* Act
----------------------------+
00306 M01S00006.ns2377 +++| DEF AVERAGE #500#; # AVERAGE FILE SIZE #
00307 M01S00007.ns2377 +++| DEF TWOANAHALF #2500#; # TWO AND A HALF SECONDS #
00308 M00S00285.fsefile +++| ITEM LOOPCTL, RESULT, LASTNUM, ASCIITYPE, MAXL, RECYCLE, FIRSTPOS;
00309 M00S00286.fsefile +++| ITEM ZERO=0;
| Line S00287 Modification History |
M01 (Removed by) | ns2377 |
Seq # *Modification Id* Act
----------------------------+
00310 M01S00287.ns2377 ---|
| Line S00008 Modification History |
M01 (Added by) | ns2377 |
Seq # *Modification Id* Act
----------------------------+
00311 M01S00008.ns2377 +++| ITEM COUNTER I; # LINE COUNTER #
00312 M01S00009.ns2377 +++| ITEM SAMPLE I; # LINE SAMPLE RATE #
00313 M01S00010.ns2377 +++| ITEM STARTTIME I; # REAL TIME CLOCK (START) #
00314 M01S00011.ns2377 +++| ITEM CHECKTIME I; # REAL TIME CLOCK (CHECK) #
00315 M01S00012.ns2377 +++| IF SCREENMODE OR DONTPRINT OR NOT INTERACT
00316 M01S00013.ns2377 +++| OR READNAM EQ "FSEPROC" THEN
00317 M01S00014.ns2377 +++| BEGIN # IF NO MESSAGE SHOULD BE SENT #
00318 M01S00015.ns2377 +++| COUNTER = 0;
00319 M01S00016.ns2377 +++| END
00320 M01S00017.ns2377 +++| ELSE
00321 M01S00018.ns2377 +++| BEGIN # MESSAGE MAY BE SENT #
00322 M01S00019.ns2377 +++| COUNTER = 1;
00323 M01S00020.ns2377 +++| SAMPLE = AVERAGE;
00324 M01S00021.ns2377 +++| RTIME(STARTTIME);
00325 M01S00022.ns2377 +++| STARTTIME = B<24,36>STARTTIME;
00326 M01S00023.ns2377 +++| END
00327 M00S00288.fsefile +++| REWIND(FILEFET,1);
00328 M00S00289.fsefile +++| READ(FILEFET,0);
00329 M00S00290.fsefile +++| FIRSTPOS=CURRENT;
00330 M00S00291.fsefile +++| RESULT=0;
00331 M00S00292.fsefile +++| MAXL=0;
00332 M00S00293.fsefile +++| RECYCLE=0;
00333 M00S00294.fsefile +++| LASTNUM=0;
| Line S00295 Modification History |
M01 (Removed by) | fsefi1 |
Seq # *Modification Id* Act
----------------------------+
00334 M01S00295.fsefi1 ---| ASCIITYPE=ASCII[FILNUM];
00335 M00S00296.fsefile +++| FOR LOOPCTL=LOOPCTL WHILE RESULT EQ 0 AND USRBRK EQ 0 DO
00336 M00S00297.fsefile +++| BEGIN
| Line S00001 Modification History |
M01 (Added by) | fsefi1 |
Seq # *Modification Id* Act
----------------------------+
00337 M01S00001.fsefi1 +++| ASCIITYPE=ASCII[FILNUM]; # CHARACTER SET FOR FILE #
00338 M00S00298.fsefile +++| LINE[0]=0;
00339 M00S00299.fsefile +++| READC(FILEFET,TMPLIN,BUFWID2P1,RESULT);
| Line S00024 Modification History |
M01 (Added by) | ns2377 |
Seq # *Modification Id* Act
----------------------------+
00340 M01S00024.ns2377 +++| IF COUNTER NQ 0 THEN
00341 M01S00025.ns2377 +++| BEGIN # IF MESSAGE STILL TO ISSUE #
00342 M01S00026.ns2377 +++| COUNTER = COUNTER + 1;
00343 M01S00027.ns2377 +++| IF COUNTER GR SAMPLE THEN
00344 M01S00028.ns2377 +++| BEGIN # IF SAMPLE SIZE REACHED #
00345 M01S00029.ns2377 +++| RTIME(CHECKTIME);
00346 M01S00030.ns2377 +++| CHECKTIME = B<24,36>CHECKTIME - STARTTIME;
00347 M01S00031.ns2377 +++| IF CHECKTIME GR TWOANAHALF THEN
00348 M01S00032.ns2377 +++| BEGIN # IF ENOUGH TIME HAS PASSED #
00349 M01S00033.ns2377 +++| TTSTR("BUILDING: $");
00350 M01S00034.ns2377 +++| TTLFN(READNAM);
00351 M01S00035.ns2377 +++| TTLIN(" ONE MOMENT PLEASE$");
00352 M01S00036.ns2377 +++| COUNTER = 0; # ONE MESSAGE IS ENOUGH #
00353 M01S00037.ns2377 +++| VDTCLO(COUNTER); # FLUSH OUTPUT,NO RECALL #
00354 M01S00038.ns2377 +++| END
00355 M01S00039.ns2377 +++| ELSE
00356 M01S00040.ns2377 +++| BEGIN # COMPUTE PROBABLE SAMPLE COUNT #
00357 M01S00041.ns2377 +++| SAMPLE = (SAMPLE*TWOANAHALF)/CHECKTIME;
00358 M01S00042.ns2377 +++| END
00359 M01S00043.ns2377 +++| END
00360 M01S00044.ns2377 +++| END
00361 M00S00300.fsefile +++| IF RESULT GR 0 THEN
00362 M00S00301.fsefile +++| BEGIN
| Line S00002 Modification History |
M01 (Added by) | fsefi1 |
Seq # *Modification Id* Act
----------------------------+
00363 M01S00002.fsefi1 +++| ASCIITYPE=1; # CHARACTER SET FOR EORCON #
00364 M00S00302.fsefile +++| TMPLINE[0]=EORCON;
00365 M00S00303.fsefile +++| FILECODE=1;
00366 M00S00304.fsefile +++| READ(FILEFET,1);
00367 M00S00305.fsefile +++| IF FILECODE EQ O"31" THEN RESULT=-1;
00368 M00S00306.fsefile +++| ELSE IF FILECODE NQ O"1031" OR FILEIN NQ FILEOUT THEN
00369 M00S00307.fsefile +++| BEGIN
00370 M00S00308.fsefile +++| RESULT=0;
00371 M00S00309.fsefile +++| END
00372 M00S00310.fsefile +++| END
00373 M00S00311.fsefile +++| IF RESULT EQ -1 THEN
00374 M00S00312.fsefile +++| BEGIN
| Line S00003 Modification History |
M01 (Added by) | fsefi1 |
Seq # *Modification Id* Act
----------------------------+
00375 M01S00003.fsefi1 +++| ASCIITYPE=1; # CHARACTER SET FOR EOFCON #
00376 M00S00313.fsefile +++| RESULT=0;
00377 M00S00314.fsefile +++| TMPLINE[0]=EOFCON;
00378 M00S00315.fsefile +++| FILECODE=1;
00379 M00S00316.fsefile +++| READ(FILEFET,0);
00380 M00S00317.fsefile +++| END
00381 M00S00318.fsefile +++| IF RESULT EQ 0 THEN # PREPARE LINE OF TEXT #
00382 M00S00319.fsefile +++| BEGIN
00383 M00S00320.fsefile +++| MAXL=MAXL+1; # COUNT RELOCATION FACTOR #
00384 M00S00321.fsefile +++| CONVIN(LIN,ASCIITYPE);
00385 M00S00322.fsefile +++| IF NUMBERED[FILNUM] NQ 0 THEN # VERIFY/ADJUST SEQUENCE NUMBERS #
00386 M00S00323.fsefile +++| BEGIN
00387 M00S00324.fsefile +++| GETLNUM;
00388 M00S00325.fsefile +++| IF LINENO LQ LASTNUM THEN # FILE IS NOT REALLY SEQUENCED #
00389 M00S00326.fsefile +++| BEGIN
00390 M00S00327.fsefile +++| NUMBERED[FILNUM]=0;
00391 M00S00328.fsefile +++| CHANGED[FILNUM]=0; # TAKE BACK FLAG FOR ADJUSTMENTS #
00392 M00S00329.fsefile +++| IF MAXL GR 1 THEN
00393 M00S00330.fsefile +++| BEGIN
00394 M00S00331.fsefile +++| REWIND(FILEFET,1);
00395 M00S00332.fsefile +++| READ(FILEFET,0);
00396 M00S00333.fsefile +++| POSZ(FIRSTPOS);
00397 M00S00334.fsefile +++| RECYCLE=MAXL-1;
00398 M00S00335.fsefile +++| MAXL=0;
00399 M00S00336.fsefile +++| TEST LOOPCTL;
00400 M00S00337.fsefile +++| END
00401 M00S00338.fsefile +++| END
00402 M00S00339.fsefile +++| ELSE # ADJUST SEQUENCING DIGITS #
00403 M00S00340.fsefile +++| BEGIN
00404 M00S00341.fsefile +++| IF WIDTHFOUND EQ NUMWIDTH THEN
00405 M00S00342.fsefile +++| BEGIN # FIX INTERVENING BLANK #
00406 M00S00343.fsefile +++| GETCHAR(LINE,NUMWIDTH,LINCTR);
00407 M00S00344.fsefile +++| IF BLANKS NQ 0 AND LINCTR NQ CBLANK THEN
00408 M00S00345.fsefile +++| BEGIN
00409 M00S00346.fsefile +++| RSHIFT(LIN,NUMWIDTH,1);
00410 M00S00347.fsefile +++| SETCHAR(LINE,NUMWIDTH,CBLANK);
00411 M00S00348.fsefile +++| CHANGED[FILNUM]=1; # FLAG THAT WE ADJUSTED TEXT #
00412 M00S00349.fsefile +++| END
00413 M00S00350.fsefile +++| END
| Line S00351 Modification History |
M01 (Removed by) | fsefi2 |
Seq # *Modification Id* Act
----------------------------+
00414 M01S00351.fsefi2 ---| IF WIDTHFOUND GR 0 AND WIDTHFOUND LS NUMWIDTH THEN
| Line S00001 Modification History |
M01 (Added by) | fsefi2 |
Seq # *Modification Id* Act
----------------------------+
00415 M01S00001.fsefi2 +++| IF WIDTHFOUND GR 0 AND WIDTHFOUND LS NUMWIDTH
00416 M01S00002.fsefi2 +++| AND NUMMODE EQ NUMST"PREFER" THEN
00417 M00S00352.fsefile +++| BEGIN # ADJUST DIGITS #
00418 M00S00353.fsefile +++| CHANGED[FILNUM]=1; # FLAG THAT WE ADJUSTED TEXT #
00419 M00S00354.fsefile +++| SETLNUM;
00420 M00S00355.fsefile +++| GETLNUM;
00421 M00S00356.fsefile +++| END
00422 M00S00357.fsefile +++| END
00423 M00S00358.fsefile +++| END
00424 M00S00359.fsefile +++| LASTNUM=LINENO;
00425 M00S00360.fsefile +++| TRIMPAD;
00426 M00S00361.fsefile +++| IF RECYCLE NQ 0 THEN
00427 M00S00362.fsefile +++| BEGIN
00428 M00S00363.fsefile +++| ZERO = = P<LINEBUF>; # POSITION INVISIBLY #
00429 M00S00364.fsefile +++| FWDZ; # POSITION INVISIBLY #
00430 M00S00365.fsefile +++| ZERO = = P<LINEBUF>; # POSITION INVISIBLY #
00431 M00S00366.fsefile +++| REP;
00432 M00S00367.fsefile +++| RECYCLE=RECYCLE-1;
00433 M00S00368.fsefile +++| END
00434 M00S00369.fsefile +++| ELSE INS;
00435 M00S00370.fsefile +++| END
00436 M00S00371.fsefile +++| END
00437 M00S00372.fsefile +++| FASTRLC(REGSTACK,MAXREG+1,CURRENT-MAXL+1,MAXL);
00438 M00S00373.fsefile +++|
00439 M00S00374.fsefile +++| END # OF FILEREAD #
00440 M00S00375.fsefile +++|PAGE # ADDFILE CONTROLS FILEBUILD #
00441 M00S00376.fsefile +++|
00442 M00S00377.fsefile +++|
00443 M00S00378.fsefile +++|PROC ADDFILE;
00444 M00S00379.fsefile +++| BEGIN
00445 M00S00380.fsefile +++|#
00446 M00S00381.fsefile +++|** ADDFILE - ADD AN EXTERNAL FILE TO INTERNAL FILES.
00447 M00S00382.fsefile +++|*
00448 M00S00383.fsefile +++|* ENTRY FILNUM - WHICH BRACKET.
00449 M00S00384.fsefile +++|* READNAM - FILE NAME.
00450 M00S00385.fsefile +++|* CHARPARM - CHARACTER SET PREFERENCE OR DEFAULT.
00451 M00S00386.fsefile +++|* GETPARM - PERMANENT/LOCAL PREFERENCE OR DEFAULT.
00452 M00S00387.fsefile +++|* ALLASCII - DEFAULT CHARACTER SET.
00453 M00S00388.fsefile +++|* SMALLFIELD - WHETHER FIELD LENGTH NOW SMALL OR LARGE.
00454 M00S00389.fsefile +++|* BOTC(FILECTL) - BRACKETS FILE DIRECTORY AREA.
00455 M00S00390.fsefile +++|* TOPA(AUDITCTL) - BRACKETS AUDIT TRAIL.
00456 M00S00391.fsefile +++|* NUMMMODE - WHAT TO DO WITH EMPTY FILE.
| Line S00001 Modification History |
M01 (Added by) | ns2607 |
Seq # *Modification Id* Act
----------------------------+
00457 M01S00001.ns2607 +++|* SCNFDINIT - 1 IF FILE IS INITIAL EDIT FILE,
00458 M01S00002.ns2607 +++|* 0 OTHERWISE.
00459 M00S00392.fsefile +++|*
00460 M00S00393.fsefile +++|* EXIT GETPARM - INDICATES WHETHER GET REALLY DONE.
00461 M00S00394.fsefile +++|* LOCKED[FILNUM] - SET BY FILE ATTRIBUTES.
00462 M00S00395.fsefile +++|* ASCII[FILNUM] - SET BY PARAMETER.
00463 M00S00396.fsefile +++|* CHANGED[FILUM] - FALSE.
00464 M00S00397.fsefile +++|* NUMBERED[FILNUM] - SET BY NUMMODE AND FILE CONTENT.
00465 M00S00398.fsefile +++|* BOTC, TOPA - RELOCATED, ALSO VARIOUS OTHERS.
00466 M00S00399.fsefile +++|* CURRENT, CURF(FILNUM) - TOP OF FILE.
00467 M00S00400.fsefile +++|* FDLF(FILNUM) - UPDATED.
00468 M00S00401.fsefile +++|* TOPF(FILNUM), BOTF(FILNUM) - BRACKET THE FILE.
00469 M00S00402.fsefile +++|*
00470 M00S00403.fsefile +++|* USES FILEFET, DSKSIZ, UTILFET.
00471 M00S00404.fsefile +++|*
00472 M00S00405.fsefile +++|* CALLS VFYFILE, FLDLEN, PAUSEIO, TRIMNAME, ASSGNFILE,
00473 M00S00406.fsefile +++|* MAKEFET, GET, WRITEABLE, POSZ, FORMFDL, INSY,
00474 M00S00407.fsefile +++|* FILEREAD, REWIND.
00475 M00S00408.fsefile +++|#
00476 M00S00409.fsefile +++| ITEM NEWNAME C(7);
00477 M00S00410.fsefile +++|
00478 M00S00411.fsefile +++| VFYFILE(READNAM,0);
00479 M00S00412.fsefile +++|
00480 M00S00413.fsefile +++| IF SMALLFIELD THEN
00481 M00S00414.fsefile +++| BEGIN
00482 M00S00415.fsefile +++| FLDLEN(LOC(MAXADDR)+4);
00483 M00S00416.fsefile +++| PAUSEIO; # DRAIN BUFFERS SO WE CAN ... #
00484 M00S00417.fsefile +++| DSKSIZ=INIDSKSIZ; # ... ENLARGE BUFFERS #
00485 M00S00418.fsefile +++| END
00486 M00S00419.fsefile +++|
00487 M00S00420.fsefile +++| NEWNAME=TRIMNAME(READNAM);
00488 M00S00421.fsefile +++| IF GETPARM EQ 1 AND NOT ASSGNFILE(READNAM) THEN GETPARM=2;
00489 M00S00422.fsefile +++| IF GETPARM EQ 2 THEN
00490 M00S00423.fsefile +++| BEGIN
| Line S00424 Modification History |
M01 (Removed by) | ns2568 |
Seq # *Modification Id* Act
----------------------------+
00491 M01S00424.ns2568 ---| PF("GET",READNAM,READNAM,"RC",PFMERROR,0);
00492 M01S00425.ns2568 ---| IF PFMERROR NQ 0 THEN
| Line S00002 Modification History |
M01 (Added by) | ns2568 |
Seq # *Modification Id* Act
----------------------------+
00493 M01S00002.ns2568 +++| PF("GET",READNAM,READNAM,"RC",PFMERROR,"EM",PFMMSG,"EL","40",0);
00494 M01S00003.ns2568 +++| IF PFMERROR EQ 0 THEN
00495 M01S00004.ns2568 +++| BEGIN # IF POSSIBLE CALL TO *CPUPFM* #
00496 M01S00005.ns2568 +++| IF SCREENMODE AND TABTYPHEAD[0] THEN
00497 M01S00006.ns2568 +++| BEGIN # IF RUNNING WITH TYPE AHEAD #
00498 M01S00007.ns2568 +++| VDTPRT$(0); # ASSURE PROMPT IS OFF #
00499 M01S00008.ns2568 +++| END
00500 M01S00009.ns2568 +++| END
00501 M01S00010.ns2568 +++| IF PFMERROR EQ FNF THEN
00502 M00S00426.fsefile +++| BEGIN
| Line S00427 Modification History |
M01 (Removed by) | ns2189 |
Seq # *Modification Id* Act
----------------------------+
00503 M01S00427.ns2189 ---| PF("ATTACH",READNAM,READNAM,"RC",PFMERROR,"M","W","NA","YES",0);
| Line S00001 Modification History |
M01 (Added by) | ns2189 |
Seq # *Modification Id* Act
----------------------------+
00504 M01S00001.ns2189 +++| PF("ATTACH",READNAM,READNAM,"RC",PFMERROR,"M","W","NA","YES",
| Line S00002 Modification History |
M01 (Added by) | ns2189 |
M02 (Removed by) | ns2568 |
Seq # *Modification Id* Act
----------------------------+
00505 M02S00002.ns2568 ---| "SR","NF",0);
| Line S00428 Modification History |
M01 (Removed by) | ns2568 |
Seq # *Modification Id* Act
----------------------------+
00506 M01S00428.ns2568 ---| END
| Line S00002 Modification History |
M01 (Added by) | ns2249 |
M02 (Removed by) | ns2568 |
Seq # *Modification Id* Act
----------------------------+
00507 M02S00002.ns2568 ---| ELSE
00508 M02S00003.ns2568 ---| BEGIN # IF POSSIBLE CALL TO *CPUPFM* #
00509 M02S00004.ns2568 ---| IF SCREENMODE AND TABTYPHEAD[0] THEN
00510 M02S00005.ns2568 ---| BEGIN # IF RUNNING WITH TYPE AHEAD #
00511 M02S00006.ns2568 ---| VDTPRT$(0); # ASSURE PROMPT IS OFF #
00512 M02S00007.ns2568 ---| END
| Line S00011 Modification History |
M01 (Added by) | ns2568 |
Seq # *Modification Id* Act
----------------------------+
00513 M01S00011.ns2568 +++| "SR","NF","EM",PFMMSG,"EL","40",0);
| Line S00008 Modification History |
M01 (Added by) | ns2249 |
Seq # *Modification Id* Act
----------------------------+
00514 M01S00008.ns2249 +++| END
00515 M00S00429.fsefile +++| IF PFMERROR NQ 0 THEN
00516 M00S00430.fsefile +++| BEGIN
| Line S00431 Modification History |
M01 (Removed by) | ns2568 |
Seq # *Modification Id* Act
----------------------------+
00517 M01S00431.ns2568 ---| ERRSTRING="PFN BUSY OR NOT FOUND, USING LOCAL FILE$";
| Line S00012 Modification History |
M01 (Added by) | ns2568 |
Seq # *Modification Id* Act
----------------------------+
00518 M01S00012.ns2568 +++| C<0,18>ERRSTRING="USING LOCAL FILE -";
00519 M01S00013.ns2568 +++| C<18,40>ERRSTRING=C<0,40>PFMMSG;
00520 M01S00014.ns2568 +++| C<58,1>ERRSTRING="$";
00521 M00S00432.fsefile +++| END
00522 M00S00433.fsefile +++| END
00523 M00S00434.fsefile +++| IF GETPARM GQ 2 THEN GETPARM=0;
00524 M00S00435.fsefile +++| FILENAM[FILNUM]=NEWNAME;
00525 M00S00436.fsefile +++| CHANGED[FILNUM]=0;
00526 M00S00437.fsefile +++| LOCKED[FILNUM]=0;
| Line S00003 Modification History |
M01 (Added by) | ns2607 |
Seq # *Modification Id* Act
----------------------------+
00527 M01S00003.ns2607 +++| INITFILE[FILNUM]=SCNFDINIT;
00528 M00S00438.fsefile +++| ASCII[FILNUM]=CHARPARM;
00529 M00S00439.fsefile +++| IF CHARPARM EQ 0 AND ALLASCII THEN ASCII[FILNUM]=2;
| Line S00440 Modification History |
M01 (Removed by) | fsefi3 |
Seq # *Modification Id* Act
----------------------------+
00530 M01S00440.fsefi3 ---| NUMBERED[FILNUM]=1;
00531 M00S00441.fsefile +++| IF NOT WRITEABLE(READNAM) THEN LOCKED[FILNUM]=1;
00532 M00S00442.fsefile +++| POSZ(BOTC(FILECTL)-1);
00533 M00S00443.fsefile +++| FORMFDL(FILNUM);
00534 M00S00444.fsefile +++| INSY;
00535 M00S00445.fsefile +++| FDLF(FILNUM)=CURRENT;
00536 M00S00446.fsefile +++|
00537 M00S00447.fsefile +++| # NEW FILE BRACKET GOES BEFORE AUDIT TRAIL BRACKET #
00538 M00S00448.fsefile +++| POSZ(TOPA(AUDITCTL)-1);
00539 M00S00449.fsefile +++| TOPF(FILNUM)=CURRENT;
00540 M00S00450.fsefile +++| MAKEFET(FILEFET,READNAM,FILEBUF,DSKSIZ);
00541 M00S00451.fsefile +++| IF ASSGNFILE(READNAM) THEN
00542 M00S00452.fsefile +++| BEGIN
00543 M00S00453.fsefile +++| FILEREAD;
00544 M00S00454.fsefile +++| REWIND(FILEFET,0);
00545 M00S00455.fsefile +++| END
00546 M00S00456.fsefile +++| LINE[0]=NULLIN;
00547 M00S00457.fsefile +++| INSY;
00548 M00S00458.fsefile +++| BOTF(FILNUM)=CURRENT;
00549 M00S00459.fsefile +++|
00550 M00S00460.fsefile +++| IF BOTF(FILNUM) EQ TOPF(FILNUM)+1 THEN
00551 M00S00461.fsefile +++| BEGIN
00552 M00S00462.fsefile +++| POSZ(TOPF(FILNUM));
00553 M00S00463.fsefile +++| IF NUMMODE EQ NUMST"INTERPRET" THEN NUMBERED[FILNUM]=0;
00554 M00S00464.fsefile +++| END
00555 M00S00465.fsefile +++| ELSE POSZ(TOPF(FILNUM)+1);
00556 M00S00466.fsefile +++| CURF(FILNUM)=CURRENT;
00557 M00S00467.fsefile +++|
00558 M00S00468.fsefile +++| IF SMALLFIELD THEN
00559 M00S00469.fsefile +++| BEGIN
00560 M00S00470.fsefile +++| PAUSEIO; # DRAIN BUFFERS SO WE CAN ... #
00561 M00S00471.fsefile +++| DSKSIZ=DISKSIZE; # ... SHRINK BUFFERS BACK #
00562 M00S00472.fsefile +++| FLDLEN(LOC(WORKBUF)+DSKSIZ+4);
00563 M00S00473.fsefile +++| END
00564 M00S00474.fsefile +++|
00565 M00S00475.fsefile +++| END # OF ADDFILE #
00566 M00S00476.fsefile +++|
00567 M00S00477.fsefile +++|
00568 M00S00478.fsefile +++|END TERM