cdc:nos2.source:opl.opl871:deck:fsemain
Deck FSEMAIN
38 Modifications
Listing Sections
- Deck FSEMAIN Start
- Deck FSEMAIN Part 1 (Line 1093)
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.fsemain +++|PROC FSEMAIN; 00002 M01S00002.fsemain +++|BEGIN 00003 M01S00003.fsemain +++| 00004 M01S00004.fsemain +++|# 00005 M01S00005.fsemain +++|*** FSEMAIN -- FILE-BUILD/CTL-CRACK OVERLAY 00006 M01S00006.fsemain +++|*
Line S00007 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00007 M02S00007.281l803 ---|* COPYRIGHT CONTROL DATA CORPORATION, 1983. 00008 M01S00001.281l803 +++|* COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00009 M01S00008.fsemain +++|* 00010 M01S00009.fsemain +++|* FSEMAIN PERFORMS CONTROL CARD SCANNING, INITIALIZTION 00011 M01S00010.fsemain +++|* OF THE EDITOR AND WORKFILE, RESUMPTION OF PREVIOUS WORK 00012 M01S00011.fsemain +++|* FILES, AND INITIAL/FINAL COPYING OF FILES. IF THE EDITOR 00013 M01S00012.fsemain +++|* IS CONVERTED TO AN OVERLAY STRUCTURE AT A FUTURE DATE, 00014 M01S00013.fsemain +++|* THIS MODULE WOULD BE A CANDIDATE FOR AN OVERLAY. THIS 00015 M01S00014.fsemain +++|* MODULE EXISTS ONLY IN THE SINGLE-USER VERSION OF THE 00016 M01S00015.fsemain +++|* EDITOR, SO IT IS PROGRAMMED NON-REENTRANTLY. 00017 M01S00016.fsemain +++|# 00018 M01S00017.fsemain +++| 00019 M01S00018.fsemain +++| DEF LISTCON #0#; 00020 M01S00019.fsemain +++| 00021 M01S00020.fsemain +++|CONTROL EJECT; # UNIVERSAL DECLARES # 00022 M01S00021.fsemain +++|*IFCALL SINGLE,COMFSGL 00023 M01S00022.fsemain +++|*IFCALL ONLY,COMFONL 00024 M01S00023.fsemain +++|*IFCALL MULTI,COMFMLT 00025 M01S00024.fsemain +++|*CALL COMFFSE 00026 M01S00025.fsemain +++| 00027 M01S00026.fsemain +++| # EXTERNALS # 00028 M01S00027.fsemain +++| 00029 M01S00028.fsemain +++|XDEF PROC BLDINIT; 00030 M01S00029.fsemain +++|XDEF PROC BLDTERM; 00031 M01S00030.fsemain +++| 00032 M01S00031.fsemain +++|XREF 00033 M01S00032.fsemain +++| BEGIN 00034 M01S00033.fsemain +++|*CALL COMFXFL 00035 M01S00034.fsemain +++|*CALL COMFXFO 00036 M01S00035.fsemain +++|*CALL COMFXTI 00037 M01S00036.fsemain +++|*CALL COMFXVT 00038 M01S00037.fsemain +++|*CALL COMFXSB 00039 M01S00038.fsemain +++|*CALL COMFXWK 00040 M01S00039.fsemain +++| END 00041 M01S00040.fsemain +++| 00042 M01S00041.fsemain +++|XREF # FSELIB SUPPORT # 00043 M01S00042.fsemain +++| BEGIN 00044 M01S00043.fsemain +++| FUNC LENGTH; 00045 M01S00001.ns2206 +++| PROC DISSJ; # DISABLE/ENABLE SSJ= # 00046 M01S00044.fsemain +++| PROC MOVEWD; 00047 M01S00045.fsemain +++| PROC FLDLEN; 00048 M01S00046.fsemain +++| PROC DISTCON;
Line S00047 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00049 M02S00047.v23l617 ---| # START OF MODIFY CONDITIONAL SEQUENCE #
Line S00048 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00050 M02S00048.v23l617 ---|*IF UNDEF,RETRO 00051 M01S00049.fsemain +++| PROC SETNAD; 00052 M01S00050.fsemain +++| PROC VDTGSL; 00053 M01S00051.fsemain +++| PROC SETAUC; # APPLICATION UNIT CHARGE #
Line S00052 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00054 M02S00052.v23l617 ---|*ENDIF
Line S00053 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00055 M02S00053.v23l617 ---| # END OF MODIFY CONDITIONAL SEQUENCE # 00056 M01S00054.fsemain +++| PROC VDTGTN; 00057 M01S00055.fsemain +++| END 00058 M01S00056.fsemain +++| 00059 M01S00057.fsemain +++|XREF # SRVLIB SUPPORT # 00060 M01S00058.fsemain +++| BEGIN 00061 M01S00059.fsemain +++| PROC REWIND; 00062 M01S00060.fsemain +++| PROC WRITEC; 00063 M01S00061.fsemain +++| PROC WRITEF; 00064 M01S00062.fsemain +++| PROC WRITER; 00065 M01S00063.fsemain +++| PROC READC; 00066 M01S00064.fsemain +++| PROC MESSAGE; 00067 M01S00065.fsemain +++| PROC ENDRUN; 00068 M01S00066.fsemain +++| PROC ABORT; 00069 M01S00067.fsemain +++| PROC EXCST; 00070 M01S00068.fsemain +++| PROC TSTATUS; 00071 M01S00069.fsemain +++| PROC GETJO; 00072 M01S00070.fsemain +++| PROC RECALL; 00073 M01S00071.fsemain +++| PROC READ; 00074 M01S00072.fsemain +++| PROC RETERN; 00075 M01S00001.ns2377 +++| PROC RTIME; 00076 M01S00073.fsemain +++| PROC DEFINE; 00077 M01S00074.fsemain +++| PROC PURGE; 00078 M01S00075.fsemain +++| PROC GETSS; 00079 M01S00076.fsemain +++| PROC PF; 00080 M01S00077.fsemain +++| END 00081 M01S00078.fsemain +++| 00082 M01S00079.fsemain +++|XREF # BUFFER MAPPING # 00083 M01S00080.fsemain +++| BEGIN 00084 M01S00081.fsemain +++| ARRAY WORKBUF;; 00085 M01S00082.fsemain +++| ARRAY BUILDBF;; 00086 M01S00083.fsemain +++| ITEM MAXADDR; 00087 M01S00084.fsemain +++| END 00088 M01S00085.fsemain +++| 00089 M01S00086.fsemain +++| 00090 M01S00087.fsemain +++|*CALL COMFDS1 00091 M01S00088.fsemain +++|*CALL COMFVD2 00092 M01S00089.fsemain +++|*CALL COMFDS2 00093 M01S00090.fsemain +++|*CALL COMFTAB 00094 M01S00001.ns2568 +++|*CALL COMSPFM 00095 M01S00001.v23l617 +++|PAGE # COMMAND BUFFER MANIPULATION # 00096 M01S00002.v23l617 +++| 00097 M01S00003.v23l617 +++| 00098 M01S00004.v23l617 +++|PROC SETCMD(STR,LEN,OFFSET); 00099 M01S00005.v23l617 +++| BEGIN 00100 M01S00006.v23l617 +++| ITEM STR C(40); 00101 M01S00007.v23l617 +++| ITEM LEN, OFFSET; 00102 M01S00008.v23l617 +++| ITEM TMP1, TMP2; 00103 M01S00009.v23l617 +++| TMP2=0; 00104 M01S00010.v23l617 +++| FOR TMP1=1 STEP 1 UNTIL LEN DO 00105 M01S00011.v23l617 +++| BEGIN 00106 M01S00012.v23l617 +++| C<9,1>TMP2=C<TMP1-1,1>STR; 00107 M01S00013.v23l617 +++| IF TMP2 EQ 0 THEN C<9,1>TMP2=" "; 00108 M01S00014.v23l617 +++| SETCHAR(CMDLINE,OFFSET+TMP1-1,TMP2); 00109 M01S00015.v23l617 +++| END 00110 M01S00016.v23l617 +++| END # OF SETCMD # 00111 M01S00091.fsemain +++|PAGE # INITIAL FILE CONSTRUCTION # 00112 M01S00092.fsemain +++| 00113 M01S00093.fsemain +++| 00114 M01S00094.fsemain +++|PROC FILBUILD; 00115 M01S00095.fsemain +++| BEGIN 00116 M01S00096.fsemain +++|# 00117 M01S00097.fsemain +++|** FILBUILD - READ FIRST SOURCE FILE INTO WORKFILE. 00118 M01S00098.fsemain +++|* 00119 M01S00099.fsemain +++|* FILBUILD PERFORMS INITIAL FILE COPYING AND CERTAIN OTHER 00120 M01S00100.fsemain +++|* TASKS TO INITIALIZE THE EDITOR. FILBUILD IS CALLED IF 00121 M01S00101.fsemain +++|* THERE IS A FILE SPECIFIED BY THE CONTROL STATEMENT OR IF 00122 M01S00102.fsemain +++|* THERE WAS NO FILE AND NO RESUMABLE WORKFILE IMAGE. IN THE 00123 M01S00103.fsemain +++|* LATTER CASE, FILBUILD ATTEMPTS TO IDENTIFY A PRIMARY FILE 00124 M01S00104.fsemain +++|* AS THE FILE TO EDIT. 00125 M01S00105.fsemain +++|* 00126 M01S00106.fsemain +++|* IN ADDITION TO COPYING THE FIRST SOURCE FILE OF THE EDIT 00127 M01S00107.fsemain +++|* SESSION, FILBUILD ALSO INITIALIZES THE WORKFILE MANAGER, 00128 M01S00108.fsemain +++|* SETS THE CHARACTER SET FOR LINE-MODE TERMINAL 00129 M01S00109.fsemain +++|* COMMUNICATIONS, READS IN THE DEFAULT PROCEDURE FILE, AND 00130 M01S00110.fsemain +++|* INITIALIZES THE RELOCATION VECTOR TO BRACKET THE SOURCE 00131 M01S00111.fsemain +++|* FILE AND A NEW, EMPTY AUDIT TRAIL IMAGE. 00132 M01S00112.fsemain +++|* 00133 M01S00113.fsemain +++|* ENTRY FILENAM[1] - NAME OF FILE TO EDIT OR BLANK. 00134 M01S00114.fsemain +++|* CHARPARM - FILE CHARACTER SET SPECIFICATION. 00135 M01S00115.fsemain +++|* GETPARM - PERMANENT FILE ACCESS REQUEST. 00136 M01S00116.fsemain +++|* ALLASCII - WHETHER DEFAULT CHARACTER SET IS 6/12. 00137 M01S00117.fsemain +++|* 00138 M01S00118.fsemain +++|* EXIT FILENAM[1] - NAME OF PRIMARY FILE IF NEEDED. 00139 M01S00119.fsemain +++|* BUILDCIO - CIO COUNT FOR FILE COPY. 00140 M01S00120.fsemain +++|* TOPC(), BOTC() - BRACKET FILE DIRECTORY. 00141 M01S00121.fsemain +++|* TOPF(), BOTF() - BRACKET FILE IMAGES. 00142 M01S00122.fsemain +++|* TOPA(), BOTA(), CURA() - BRACKET AUDIT TRAIL. 00143 M01S00017.v23l617 +++|* TOPK(), BOTK() - BRACKET FUNCTION KEY STRINGS. 00144 M01S00123.fsemain +++|* 00145 M01S00124.fsemain +++|* CALLS MAKEFET, FATAL, VFYFILE, INITIO, SETCSET, 00146 M01S00125.fsemain +++|* INSY, ADDFILE, TTSTR, TTLFN, TTBRK, TTLIN, PUSH, 00147 M01S00126.fsemain +++|* OPENFILE, POP. 00148 M01S00127.fsemain +++|* 00149 M01S00128.fsemain +++|* USES FILNUM, READNAM, CURFILE, CHARPARM, GETPARM. 00150 M01S00129.fsemain +++|# 00151 M01S00018.v23l617 +++| ITEM TMP1; 00152 M01S00130.fsemain +++| 00153 M01S00131.fsemain +++| INITIO; 00154 M01S00132.fsemain +++| ONWAYINBLK=BLANKS; 00155 M01S00133.fsemain +++| SETCSET(TRUE); 00156 M01S00134.fsemain +++|
Line S00135 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00157 M02S00135.v23l617 ---| TOPC(FILECTL)=PALAST[0]; # FILE DIRECTORY IS 1ST BRACKET # 00158 M01S00019.v23l617 +++| TOPK(FKEYS)=PALAST[0]; # FUNCTION KEYS ARE 1ST BRACKET # 00159 M01S00020.v23l617 +++| LINE[0]=NULLIN; 00160 M01S00021.v23l617 +++| FOR TMP1=1 STEP 1 UNTIL NUMFKEYS DO 00161 M01S00022.v23l617 +++| BEGIN 00162 M01S00023.v23l617 +++| INSY; # INSERT BLANK LINE FOR EACH KEY # 00163 M01S00024.v23l617 +++| END 00164 M01S00025.v23l617 +++| BOTK(FKEYS)=PALAST[0]; # FKEY BRACKET NEVER CHANGE SIZE # 00165 M01S00026.v23l617 +++| TOPC(FILECTL)=PALAST[0]; # FILE DIRECTORY IS 2ND BRACKET # 00166 M01S00136.fsemain +++| LINE[0]=NULLIN; 00167 M01S00137.fsemain +++| INSY; 00168 M01S00138.fsemain +++| BOTC(FILECTL)=PALAST[0];
Line S00139 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00169 M02S00139.v23l617 ---| INSY; # AUDIT NEEDS EXTRA SEPARATOR LINE #
Line S00140 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00170 M02S00140.v23l617 ---| TOPA(AUDITCTL)=PALAST[0]; # AUDIT TRAIL MUST BE LAST BRACKET # 00171 M01S00027.v23l617 +++| INSY; # AUDIT NEEDS EXTRA SEPARATOR # 00172 M01S00028.v23l617 +++| TOPA(AUDITCTL)=PALAST[0]; # AUDIT MUST BE LAST BRACKET # 00173 M01S00141.fsemain +++| CURA(AUDITCTL)=PALAST[0]; 00174 M01S00142.fsemain +++| INSY; 00175 M01S00143.fsemain +++| BOTA(AUDITCTL)=PALAST[0]; 00176 M01S00144.fsemain +++| 00177 M01S00145.fsemain +++| FILNUM=1; # ADD FIRST FILE BRACKET # 00178 M01S00146.fsemain +++| READNAM=FILENAM[1]; 00179 M01S00147.fsemain +++| FILENAM[1]=" "; 00180 M01S00001.ns2607 +++| SCNFDINIT = 1; # INDICATE INITIAL FILE # 00181 M01S00148.fsemain +++| ADDFILE; # BUILD FIRST FILE # 00182 M01S00001.ns2404 +++| IF NOT INTERACT THEN 00183 M01S00002.ns2404 +++| BEGIN 00184 M01S00003.ns2404 +++| TTLIN("1$"); # CARRIAGE CONTROL # 00185 M01S00004.ns2404 +++| TTSTR(" $"); # MOVE EDIT/CREATE # 00186 M01S00005.ns2404 +++| END
Line S00149 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | ns2377 |
Seq # *Modification Id* Act ----------------------------+ 00187 M02S00149.ns2377 ---| IF BOTF(1) GR TOPF(1)+1 THEN TTSTR("EDIT: $");
Line S00150 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | ns2377 |
Seq # *Modification Id* Act ----------------------------+ 00188 M02S00150.ns2377 ---| ELSE TTSTR("CREATE: $"); 00189 M01S00002.ns2377 +++| IF BOTF(1) GR TOPF(1)+1 THEN 00190 M01S00003.ns2377 +++| BEGIN # IF NON-EMPTY FILE # 00191 M01S00004.ns2377 +++| TTSTR("EDIT: $"); 00192 M01S00005.ns2377 +++| END 00193 M01S00006.ns2377 +++| ELSE 00194 M01S00007.ns2377 +++| BEGIN # NEW FILE # 00195 M01S00008.ns2377 +++| TTSTR("CREATE: $"); 00196 M01S00009.ns2377 +++| END 00197 M01S00151.fsemain +++| TTLFN(READNAM); 00198 M01S00152.fsemain +++| IF LOCKED[1] NQ 0 THEN TTSTR(" (READ-ONLY FILE) $"); 00199 M01S00153.fsemain +++| TTBRK; 00200 M01S00154.fsemain +++| IF NUMBERED[1] NQ 0 THEN TTLIN("SEQUENCE NUMBERED FILE$"); 00201 M01S00155.fsemain +++| 00202 M01S00156.fsemain +++| CURFILE=1; 00203 M01S00157.fsemain +++| PUSH; # HOLD POSITION WHILE INIT PROCS #
Line S00158 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | fsema17 |
Seq # *Modification Id* Act ----------------------------+ 00204 M02S00158.fsema17 ---| READNAM=PROCNAM; # TRY TO READ UP PROC LIB # 00205 M01S00159.fsemain +++| FILNUM=2;
Line S00160 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | ns2530 |
Seq # *Modification Id* Act ----------------------------+ 00206 M02S00160.ns2530 ---| CHARPARM=0;
Line S00001 Modification History | |
---|---|
M01 (Added by) | ns2530 |
M02 (Updated by) | fsema17 |
Seq # *Modification Id* Act ----------------------------+ 00207 M02S00001.fsema17 ---| CHARPARM=2; 00208 M01S00161.fsemain +++| GETPARM=1; 00209 M01S00001.fsema17 +++| IF PROCNAM NQ READNAM THEN 00210 M01S00002.fsema17 +++| BEGIN # IF PROCEDURE FILE IS NOT EDIT FILE # 00211 M01S00003.fsema17 +++| CHARPARM=2; # FORCE PROCEDURE FILE TO ASCII MODE # 00212 M01S00004.fsema17 +++| READNAM=PROCNAM; 00213 M01S00005.fsema17 +++| END 00214 M01S00162.fsemain +++| OPENFILE; 00215 M01S00163.fsemain +++| POP; 00216 M01S00164.fsemain +++| 00217 M01S00165.fsemain +++| CONTROL IFEQ METERING,1; 00218 M01S00166.fsemain +++| BUILDCIO=CIOCOUNT; 00219 M01S00167.fsemain +++| CONTROL FI; 00220 M01S00168.fsemain +++| 00221 M01S00169.fsemain +++| END # OF FILBUILD # 00222 M01S00170.fsemain +++| 00223 M01S00171.fsemain +++| 00224 M01S00172.fsemain +++|PROC RESUMEFILES; 00225 M01S00173.fsemain +++| BEGIN 00226 M01S00174.fsemain +++|# 00227 M01S00175.fsemain +++|** RESUMEFILES - ATTEMPT TO RESUME PREVIOUS SESSION. 00228 M01S00176.fsemain +++|* 00229 M01S00177.fsemain +++|* RESUMEFILES ATTEMPTS TO RESUME SOME PREVIOUS EDIT SESSION 00230 M01S00178.fsemain +++|* FROM A LEFT-OVER WORKFILE. THIS MAY BE POSSIBLE BECAUSE 00231 M01S00179.fsemain +++|* WORKFILES CONTAIN NOT ONLY ALL TEXT OF ALL FILES, BUT ALSO 00232 M01S00180.fsemain +++|* BINARY DATA IMAGES FOR ALL EDITOR DATA. 00233 M01S00181.fsemain +++|* 00234 M01S00182.fsemain +++|* THE CALLER DECIDES WHETHER TO CALL RESUMEFILES ON THE BASIS 00235 M01S00183.fsemain +++|* OF CONTROL STATEMENT SYNTAX. IF RESUMEFILES IS NOT 00236 M01S00184.fsemain +++|* SUCCESSFUL, THEN IT CLEARS THE TRYRESUME FLAG AS A SIGNAL 00237 M01S00185.fsemain +++|* TO THE CALLER THAT FILBUILD SHOULD BE CALLED. 00238 M01S00186.fsemain +++|*
Line S00187 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | fsema12 |
Seq # *Modification Id* Act ----------------------------+ 00239 M02S00187.fsema12 ---|* IF RESUMPTION OCCURRS, THEN RESUMEFILES RE-INITIALIZES SOME 00240 M01S00001.fsema12 +++|* IF RESUMPTION OCCURS, THEN RESUMEFILES RE-INITIALIZES SOME 00241 M01S00188.fsemain +++|* OF THE DATA READ UP FROM THE WORKFILE. THE TERMINAL IS
Line S00189 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00242 M02S00189.v23l617 ---|* RECONFIGURED (FOR SCREEN MODE) BY CALLING VDTSTM AND 00243 M01S00029.v23l617 +++|* RECONFIGURED (FOR SCREEN MODE) BY CALLING VDTSTM/STD AND 00244 M01S00190.fsemain +++|* COPYTABS. THE COMMAND BUFFER IS CLEARED. THE MULTI-USER 00245 M01S00191.fsemain +++|* CONNECTION STATUS IS CLEARED. THE INTERNAL FILE DIRECTORY
Line S00192 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | fsema12 |
Seq # *Modification Id* Act ----------------------------+ 00246 M02S00192.fsema12 ---|* IS SEARCHED AND EVERY FILE IS FLAGGED AS UNALTERED AND IS
Line S00193 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | fsema12 |
Seq # *Modification Id* Act ----------------------------+ 00247 M02S00193.fsema12 ---|* RE-VERIFIED FOR PERMISSIONS. THE USER'S LAST CURRENT LINE
Line S00194 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | fsema12 |
Seq # *Modification Id* Act ----------------------------+ 00248 M02S00194.fsema12 ---|* SELECTION IS RESTORED. 00249 M01S00002.fsema12 +++|* IS SEARCHED AND EACH FILE IS RE-VERIFIED FOR PERMISSIONS. 00250 M01S00003.fsema12 +++|* IF THE LAST EXIT WAS A *QUIT REPLACE*, EACH FILE IS FLAGGED 00251 M01S00004.fsema12 +++|* AS UNALTERED. THE LAST CURRENT LINE SELECTION IS RESTORED. 00252 M01S00195.fsemain +++|* 00253 M01S00196.fsemain +++|* ENTRY TRYRESUME - PRESUMED TRUE. 00254 M01S00197.fsemain +++|* 00255 M01S00198.fsemain +++|* EXIT TRYRESUME - FORCED FALSE IF NO RESUMPTION OCCURRED. 00256 M01S00199.fsemain +++|* ALL DATA REDEFINED IF RESUMPTION OCCURRED. 00257 M01S00200.fsemain +++|* 00258 M01S00201.fsemain +++|* MACROS SETCHAR. 00259 M01S00202.fsemain +++|*
Line S00203 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00260 M02S00203.v23l617 ---|* CALLS RESUMIO, TTSYNC, VDTSTM, COPYTABS, SETCSET, POSZ,
Line S00204 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00261 M02S00204.v23l617 ---|* SCANFDL, VFYFILE, WRITEABLE, REPY, FWDZ. 00262 M01S00030.v23l617 +++|* CALLS COPYTABS, FWDZ, POSZ, REPY, RESUMIO, SCANFDL, SETCSET, 00263 M01S00031.v23l617 +++|* TTSYNC, VDTSTD, VDTSTM, VFYFILE, WRITEABLE. 00264 M01S00205.fsemain +++|# 00265 M01S00032.v23l617 +++| 00266 M01S00033.v23l617 +++| ITEM TMP1 I; # TEMPORARY STORAGE # 00267 M01S00034.v23l617 +++| ITEM TMP2 I; # TEMPORARY STORAGE #
Line S00005 Modification History | |
---|---|
M01 (Added by) | fsema12 |
M02 (Updated by) | fsem12a |
Seq # *Modification Id* Act ----------------------------+ 00268 M02S00005.fsem12a ---| ITEM QUITSAVED B; # TEMPORARY FLAG # 00269 M01S00035.v23l617 +++| 00270 M01S00206.fsemain +++| RESUMIO; 00271 M01S00207.fsemain +++| IF IORESUMED THEN # THERE IS OLD EDIT # 00272 M01S00208.fsemain +++| BEGIN 00273 M01S00209.fsemain +++| # RESUMED EDIT ACCEPTABLE -- FINAL SETUP FOLLOWS # 00274 M01S00210.fsemain +++| # OVERRIDE SOME RESTORED DATA #
Line S00006 Modification History | |
---|---|
M01 (Added by) | fsema12 |
M02 (Updated by) | fsem12a |
Seq # *Modification Id* Act ----------------------------+ 00275 M02S00006.fsem12a ---| QUITSAVED=EXITSAVE;
Line S00211 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | fsem12a |
Seq # *Modification Id* Act ----------------------------+ 00276 M02S00211.fsem12a ---| EXITFLAGS=0; 00277 M01S00212.fsemain +++| CONNECTED=FALSE;
Line S00213 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00278 M02S00213.v23l617 ---| SCREENMODE=HOLDSCREEN AND INTERACT;
Line S00214 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00279 M02S00214.v23l617 ---| CMDLINE[0]=NULLIN;
Line S00215 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00280 M02S00215.v23l617 ---| IF SCREENMODE THEN 00281 M01S00036.v23l617 +++| FOR TMP1=0 STEP 1 UNTIL 10 DO SETCHAR(CMDLINE,TMP1,CBLANK); 00282 M01S00037.v23l617 +++| SETCHAR(CMDLINE,11,CENDLINE); 00283 M01S00038.v23l617 +++| IF INTERACT THEN 00284 M01S00216.fsemain +++| BEGIN
Line S00217 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00285 M02S00217.v23l617 ---| TTSYNC;
Line S00218 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00286 M02S00218.v23l617 ---| VDTSTM(MIN(VTXMAX,USRNUMCOL),VTMODEL,1);
Line S00219 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00287 M02S00219.v23l617 ---| COPYTABS; 00288 M01S00039.v23l617 +++| VDTGSL(TMP1,TMP2); # GET SCREEN/LINE MODE # 00289 M01S00040.v23l617 +++| IF TMP2 NQ 0 THEN SETCMD("SET SCREEN",10,0); 00290 M01S00041.v23l617 +++| ELSE SETCMD("SET LINE",8,0); 00291 M01S00220.fsemain +++| END 00292 M01S00221.fsemain +++| SETCSET(TRUE); 00293 M01S00222.fsemain +++| POSZ(TOPC(FILECTL)+1); 00294 M01S00223.fsemain +++| WHYLE CURRENT LS BOTC(FILECTL) DO # CHECK ALL FILES IN SESSION # 00295 M01S00224.fsemain +++| BEGIN # UPDATE LOCKED, CHANGED # 00296 M01S00225.fsemain +++| SCANFDL(READNAM); 00297 M01S00226.fsemain +++| VFYFILE(READNAM,-1); 00298 M01S00227.fsemain +++| IF NOT WRITEABLE(READNAM) THEN 00299 M01S00228.fsemain +++| BEGIN 00300 M01S00229.fsemain +++| SETCHAR(LINE,8,CDIGIT0+1); 00301 M01S00230.fsemain +++| IF CURRENT EQ FDLF(1) THEN LOCKED[1]=1; 00302 M01S00231.fsemain +++| IF CURRENT EQ FDLF(2) THEN LOCKED[2]=1; 00303 M01S00232.fsemain +++| END
Line S00233 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | fsema12 |
Seq # *Modification Id* Act ----------------------------+ 00304 M02S00233.fsema12 ---| SETCHAR(LINE,10,CDIGIT0);
Line S00007 Modification History | |
---|---|
M01 (Added by) | fsema12 |
M02 (Updated by) | fsem12a |
Seq # *Modification Id* Act ----------------------------+ 00305 M02S00007.fsem12a ---| IF QUITSAVED THEN
Line S00008 Modification History | |
---|---|
M01 (Added by) | fsema12 |
M02 (Updated by) | fsem12a |
Seq # *Modification Id* Act ----------------------------+ 00306 M02S00008.fsem12a ---| BEGIN # IF LAST EXIT WAS QUIT REPLACE #
Line S00009 Modification History | |
---|---|
M01 (Added by) | fsema12 |
M02 (Updated by) | fsem12a |
Seq # *Modification Id* Act ----------------------------+ 00307 M02S00009.fsem12a ---| CHANGED[1]=0;
Line S00010 Modification History | |
---|---|
M01 (Added by) | fsema12 |
M02 (Updated by) | fsem12a |
Seq # *Modification Id* Act ----------------------------+ 00308 M02S00010.fsem12a ---| CHANGED[2]=0;
Line S00011 Modification History | |
---|---|
M01 (Added by) | fsema12 |
M02 (Updated by) | fsem12a |
Seq # *Modification Id* Act ----------------------------+ 00309 M02S00011.fsem12a ---| END 00310 M01S00001.fsem12a +++| IF EXITSAVE THEN SETCHAR(LINE,10,CDIGIT0); 00311 M01S00234.fsemain +++| REPY; # UPDATE FILE DESCRIPTOR # 00312 M01S00235.fsemain +++| FWDZ; # NEXT FILE DESCRIPTOR # 00313 M01S00236.fsemain +++| END 00314 M01S00002.fsem12a +++| IF EXITSAVE THEN 00315 M01S00003.fsem12a +++| BEGIN # IF REPLACED ON EXIT # 00316 M01S00004.fsem12a +++| CHANGED[1]=0; 00317 M01S00005.fsem12a +++| CHANGED[2]=0; 00318 M01S00006.fsem12a +++| END 00319 M01S00007.fsem12a +++| EXITFLAGS=0;
Line S00237 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | fsema12 |
Seq # *Modification Id* Act ----------------------------+ 00320 M02S00237.fsema12 ---| CHANGED[1]=0;
Line S00238 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | fsema12 |
Seq # *Modification Id* Act ----------------------------+ 00321 M02S00238.fsema12 ---| CHANGED[2]=0; 00322 M01S00239.fsemain +++| POSZ(SAVECURL); 00323 M01S00240.fsemain +++| END 00324 M01S00241.fsemain +++| ELSE TRYRESUME=FALSE; 00325 M01S00242.fsemain +++| END # OF RESUMEFILES # 00326 M01S00243.fsemain +++|PAGE # FINAL FILE RECONSTRUCTION # 00327 M01S00244.fsemain +++| 00328 M01S00245.fsemain +++| 00329 M01S00246.fsemain +++|PROC FILEWRITE; 00330 M01S00247.fsemain +++| BEGIN 00331 M01S00248.fsemain +++|# 00332 M01S00249.fsemain +++|** FILEWRITE - COPY ONE INTERNAL FILE IMAGE TO LOCAL FILE. 00333 M01S00250.fsemain +++|* 00334 M01S00251.fsemain +++|* ENTRY FILEFET - INITIALIZED FOR EXTERNAL FILE. 00335 M01S00252.fsemain +++|* TOPF(1), BOTF(1) - BRACKET INTERNAL FILE IMAGE. 00336 M01S00253.fsemain +++|* 00337 M01S00254.fsemain +++|* EXIT FILEFET - EOR WRITTEN, REWOUND. 00338 M01S00255.fsemain +++|* 00339 M01S00256.fsemain +++|* CALLS REWIND, POSZ, FWDZ, CONVOUT, WRITER, WRITEF, 00340 M01S00257.fsemain +++|* WRITEC. 00341 M01S00258.fsemain +++|* 00342 M01S00259.fsemain +++|* USES LIN, TMPLIN, CURRENT. 00343 M01S00260.fsemain +++|# 00344 M01S00010.ns2377 +++| DEF AVERAGE #500#; # AVERAGE FILE SIZE # 00345 M01S00011.ns2377 +++| DEF TWOANAHALF #2500#; # TWO AND A HALF SECONDS # 00346 M01S00012.ns2377 +++| ITEM COUNTER I; # LINE COUNTER # 00347 M01S00013.ns2377 +++| ITEM SAMPLE I; # LINE SAMPLE RATE # 00348 M01S00014.ns2377 +++| ITEM STARTTIME I; # REAL TIME CLOCK (START) # 00349 M01S00015.ns2377 +++| ITEM CHECKTIME I; # REAL TIME CLOCK (CHECK) # 00350 M01S00016.ns2377 +++| IF DONTPRINT OR NOT INTERACT THEN 00351 M01S00017.ns2377 +++| BEGIN # IF NO MESSAGE SHOULD BE SENT # 00352 M01S00018.ns2377 +++| COUNTER = 0; 00353 M01S00019.ns2377 +++| END 00354 M01S00020.ns2377 +++| ELSE 00355 M01S00021.ns2377 +++| BEGIN # MESSAGE MAY BE SENT # 00356 M01S00022.ns2377 +++| COUNTER = 1; 00357 M01S00023.ns2377 +++| SAMPLE = AVERAGE; 00358 M01S00024.ns2377 +++| RTIME(STARTTIME); 00359 M01S00025.ns2377 +++| STARTTIME = B<24,36>STARTTIME; 00360 M01S00026.ns2377 +++| END 00361 M01S00261.fsemain +++| REWIND(FILEFET,1); 00362 M01S00262.fsemain +++| POSZ(TOPF(1)); 00363 M01S00263.fsemain +++| WHYLE CURRENT LS BOTF(1)-1 DO 00364 M01S00264.fsemain +++| BEGIN 00365 M01S00265.fsemain +++| FWDZ; 00366 M01S00266.fsemain +++| CONVOUT(LIN,1); 00367 M01S00267.fsemain +++| IF TMPLINE[0] EQ EORCON THEN WRITER(FILEFET,1); 00368 M01S00268.fsemain +++| ELSE IF TMPLINE[0] EQ EOFCON THEN WRITEF(FILEFET,1); 00369 M01S00269.fsemain +++| ELSE 00370 M01S00270.fsemain +++| BEGIN 00371 M01S00271.fsemain +++| CONVOUT(LIN,ASCII[1]); 00372 M01S00272.fsemain +++| WRITEC(FILEFET,TMPLIN); 00373 M01S00027.ns2377 +++| IF COUNTER NQ 0 THEN 00374 M01S00028.ns2377 +++| BEGIN # IF MESSAGE STILL TO ISSUE # 00375 M01S00029.ns2377 +++| COUNTER = COUNTER + 1; 00376 M01S00030.ns2377 +++| IF COUNTER GR SAMPLE THEN 00377 M01S00031.ns2377 +++| BEGIN # IF SAMPLE SIZE REACHED # 00378 M01S00032.ns2377 +++| RTIME(CHECKTIME); 00379 M01S00033.ns2377 +++| CHECKTIME = B<24,36>CHECKTIME - STARTTIME; 00380 M01S00034.ns2377 +++| IF CHECKTIME GR TWOANAHALF THEN 00381 M01S00035.ns2377 +++| BEGIN # IF ENOUGH TIME HAS PASSED # 00382 M01S00036.ns2377 +++| TTLIN(" (REBUILDING) $"); 00383 M01S00037.ns2377 +++| TTSTR(" $"); 00384 M01S00038.ns2377 +++| COUNTER = 0; # ONE MESSAGE IS ENOUGH # 00385 M01S00039.ns2377 +++| VDTCLO(COUNTER); # FLUSH OUTPUT, NO RECALL # 00386 M01S00040.ns2377 +++| END 00387 M01S00041.ns2377 +++| ELSE 00388 M01S00042.ns2377 +++| BEGIN # COMPUTE PROBABLE SAMPLE COUNT # 00389 M01S00043.ns2377 +++| SAMPLE = (SAMPLE*TWOANAHALF)/CHECKTIME; 00390 M01S00044.ns2377 +++| END 00391 M01S00045.ns2377 +++| END 00392 M01S00046.ns2377 +++| END 00393 M01S00273.fsemain +++| END 00394 M01S00274.fsemain +++| END 00395 M01S00275.fsemain +++| WRITER(FILEFET,1); 00396 M01S00276.fsemain +++| REWIND(FILEFET,1); 00397 M01S00277.fsemain +++| END 00398 M01S00278.fsemain +++| 00399 M01S00279.fsemain +++| 00400 M01S00280.fsemain +++|PROC FILREBUILD; 00401 M01S00281.fsemain +++| BEGIN 00402 M01S00282.fsemain +++|# 00403 M01S00283.fsemain +++|** FILREBUILD - REBUILD ALL SOURCE FILES. 00404 M01S00284.fsemain +++|* 00405 M01S00285.fsemain +++|* FILREBUILD IS CALLED AT THE END OF AN EDIT SESSION. IT 00406 M01S00286.fsemain +++|* GOES THRU THE DIRECTORY OF INTERNAL FILE IMAGES. FOR EVERY 00407 M01S00287.fsemain +++|* ALTERED FILE, THE LOCAL FILE IS RECONSTRUCTED OUT OF THE 00408 M01S00288.fsemain +++|* EDITOR'S INTERNAL FILE IMAGE. IF THE REPLACE OPTION WAS 00409 M01S00289.fsemain +++|* SELECTED, THEN FILREBUILD ALSO ASSURES THAT PERMANENT FILES 00410 M01S00290.fsemain +++|* ARE BUILT. IF THE REPLACE OPTION WAS IGNORED, THEN 00411 M01S00291.fsemain +++|* FILREBUILD PERFORMS A RETURN MACRO TO ASSURE THAT THE FILE 00412 M01S00292.fsemain +++|* WRITTEN IS A PURELY LOCAL FILE, AND NOT A PRE-ATTACHED 00413 M01S00293.fsemain +++|* PERMANENT FILE. 00414 M01S00294.fsemain +++|* 00415 M01S00295.fsemain +++|* FOR ALL FILES (EVEN THOSE UNALTERED OR READ-ONLY 00416 M01S00296.fsemain +++|* RESTRICTED) FILREBUILD PRINTS OUT A STATUS MESSAGE. THE 00417 M01S00297.fsemain +++|* STATUS MESSAGES, HOWEVER, ARE SUPPRESSED IF THE USER 00418 M01S00298.fsemain +++|* SELECTED THE QUIET OPTION. 00419 M01S00299.fsemain +++|* 00420 M01S00300.fsemain +++|* FILREBUILD CLOSES OUT BOTH BRACKETS, AS NEEDED, AND CLEARS 00421 M01S00301.fsemain +++|* THE COMMAND BUFFER, THEN CHECKPOINTS THE WORKFILE. IT 00422 M01S00302.fsemain +++|* IS ABSOLUTELY ESSENTIAL THAT NEITHER FILREBUILD NOR THE 00423 M01S00303.fsemain +++|* CALLER NOR ANY OTHER ROUTINE PERFORM ANY DESTRUCTIVE 00424 M01S00304.fsemain +++|* WORKFILE ACCESSES ONCE CHECKIO HAS BEEN CALLED, OTHERWISE 00425 M01S00305.fsemain +++|* THE USER MAY PERCEIVE A CONFUSING FILE SELECTION SHOULD THE 00426 M01S00306.fsemain +++|* WORKFILE BE RESUMED INTO A LATER EDIT SESSION. 00427 M01S00307.fsemain +++|* 00428 M01S00308.fsemain +++|* ENTRY DONTPRINT - QUIET OPTION. 00429 M01S00309.fsemain +++|* EXITSAVE - REPLACE OPTION. 00430 M01S00310.fsemain +++|* FILE DIRECTORY - DESCRIBES ALL INTERNAL IMAGES. 00431 M01S00311.fsemain +++|* 00432 M01S00312.fsemain +++|* EXIT FILE WRITTEN, POSSIBLY SAVED. 00433 M01S00313.fsemain +++|* 00434 M01S00314.fsemain +++|* CALLS PADNAME, CLOSEFILE, CHECKIO, POSZ, SCANFDL, PUSH, 00435 M01S00315.fsemain +++|* OPENFILE, TTSTR, TTLFN, MAKEFET, ASSGNFILE, 00436 M01S00316.fsemain +++|* LOCALFILE, RETERN, FILEWRITE, REPLACE, ATTACH, 00437 M01S00317.fsemain +++|* TTBRK, POP, FWDZ. 00438 M01S00318.fsemain +++|* 00439 M01S00319.fsemain +++|* USES FILNUM, FILENAM[1], FILENAM[2], READNAM, CURRENT, 00440 M01S00320.fsemain +++|* LIN, CHARPARM, GETPARM, CHANGED[1], LOCKED[1], 00441 M01S00321.fsemain +++|* ASCII[1], PFMFET. 00442 M01S00322.fsemain +++|# 00443 M01S00323.fsemain +++| ITEM TMP1, TMP2; 00444 M01S00001.fsema3 +++| ITEM NOTCHANGED B; # NOT CHANGED FLAG # 00445 M01S00324.fsemain +++| 00446 M01S00325.fsemain +++| CMDLINE[0]=NULLIN; 00447 M01S00012.fsema12 +++| IF EXITSAVE THEN 00448 M01S00013.fsema12 +++| BEGIN # IF QUIT WITH REPLACE REQUESTED # 00449 M01S00014.fsema12 +++| TMP1=CURFILE; 00450 M01S00015.fsema12 +++| IF FILENAM[TMP1] EQ "FSEHELP" 00451 M01S00016.fsema12 +++| AND CHANGED[TMP1] EQ 0 THEN TMP1=3 LXR TMP1; 00452 M01S00017.fsema12 +++| END 00453 M01S00018.fsema12 +++| ELSE TMP1=0; 00454 M01S00326.fsemain +++| FOR FILNUM=1 STEP 1 UNTIL 2 DO 00455 M01S00327.fsemain +++| BEGIN
Line S00328 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | fsema12 |
Seq # *Modification Id* Act ----------------------------+ 00456 M02S00328.fsema12 ---| IF PADNAME(FILENAM[FILNUM]) NQ " " THEN CLOSEFILE; 00457 M01S00019.fsema12 +++| IF PADNAME(FILENAM[FILNUM]) NQ " " THEN 00458 M01S00020.fsema12 +++| BEGIN # IF A FILE IN THIS SPLIT # 00459 M01S00021.fsema12 +++| IF FILNUM EQ TMP1 THEN 00460 M01S00022.fsema12 +++| BEGIN # IF CURRENT FILE TO BE REPLACED # 00461 M01S00023.fsema12 +++| IF FILENAM[FILNUM] NQ "FSTEACH" THEN CHANGED[FILNUM]=1; 00462 M01S00024.fsema12 +++| END 00463 M01S00025.fsema12 +++| CLOSEFILE; 00464 M01S00026.fsema12 +++| END 00465 M01S00329.fsemain +++| END 00466 M01S00330.fsemain +++| CHECKIO; # ABSOLUTELY MUST NOT CHANGE WORKFILE AFTER THIS # 00467 M01S00331.fsemain +++| 00468 M01S00002.fsema3 +++| NOTCHANGED=FALSE; # RESET NOT CHANGED FLAG # 00469 M01S00332.fsemain +++| IF NOT EXITQUIT THEN 00470 M01S00333.fsemain +++| BEGIN
Line S00001 Modification History | |
---|---|
M01 (Added by) | ns2225 |
M02 (Updated by) | fsema5 |
Seq # *Modification Id* Act ----------------------------+ 00471 M02S00001.fsema5 ---| IF ZEROCOLIN AND INTERACT THEN
Line S00002 Modification History | |
---|---|
M01 (Added by) | ns2225 |
M02 (Updated by) | fsema5 |
Seq # *Modification Id* Act ----------------------------+ 00472 M02S00002.fsema5 ---| BEGIN
Line S00003 Modification History | |
---|---|
M01 (Added by) | ns2225 |
M02 (Updated by) | ns2249 |
M03 (Updated by) | fsema5 |
Seq # *Modification Id* Act ----------------------------+ 00473 M03S00003.fsema5 ---| TTLIN("WARNING: ONE OR MORE OF YOUR ASCII FILES$");
Line S00004 Modification History | |
---|---|
M01 (Added by) | ns2225 |
M02 (Updated by) | ns2249 |
M03 (Updated by) | fsema5 |
Seq # *Modification Id* Act ----------------------------+ 00474 M03S00004.fsema5 ---| TTLIN("CONTAINED COLONS ENCODED IN THE DISPLAY $");
Line S00005 Modification History | |
---|---|
M01 (Added by) | ns2225 |
M02 (Updated by) | ns2249 |
M03 (Updated by) | fsema5 |
Seq # *Modification Id* Act ----------------------------+ 00475 M03S00005.fsema5 ---| TTLIN("CODE FORMAT OF OCTAL 00 (:), RATHER THAN$");
Line S00006 Modification History | |
---|---|
M01 (Added by) | ns2225 |
M02 (Updated by) | ns2249 |
M03 (Updated by) | fsema5 |
Seq # *Modification Id* Act ----------------------------+ 00476 M03S00006.fsema5 ---| TTLIN("THE ASCII FORMAT OF OCTAL 7404 (:). $");
Line S00007 Modification History | |
---|---|
M01 (Added by) | ns2225 |
M02 (Updated by) | ns2249 |
M03 (Updated by) | fsema5 |
Seq # *Modification Id* Act ----------------------------+ 00477 M03S00007.fsema5 ---| TTLIN(" $");
Line S00008 Modification History | |
---|---|
M01 (Added by) | ns2225 |
M02 (Updated by) | ns2249 |
M03 (Updated by) | fsema5 |
Seq # *Modification Id* Act ----------------------------+ 00478 M03S00008.fsema5 ---| TTLIN("IF YOU WANT DISPLAY CODE (:) FORMAT REPLY$");
Line S00009 Modification History | |
---|---|
M01 (Added by) | ns2225 |
M02 (Updated by) | ns2249 |
M03 (Updated by) | fsema5 |
Seq # *Modification Id* Act ----------------------------+ 00479 M03S00009.fsema5 ---| TTSTR("YES, FOR ASCII (:) FORMAT REPLY NO. $");
Line S00001 Modification History | |
---|---|
M01 (Added by) | ns2249 |
M02 (Updated by) | fsema5 |
Seq # *Modification Id* Act ----------------------------+ 00480 M02S00001.fsema5 ---| TTLIN("WARNING:ONE OR MORE OF YOUR ASCII FILES$");
Line S00002 Modification History | |
---|---|
M01 (Added by) | ns2249 |
M02 (Updated by) | fsema5 |
Seq # *Modification Id* Act ----------------------------+ 00481 M02S00002.fsema5 ---| TTLIN("CONTAINED COLONS ENCODED IN THE DISPLAY$");
Line S00003 Modification History | |
---|---|
M01 (Added by) | ns2249 |
M02 (Updated by) | fsema5 |
Seq # *Modification Id* Act ----------------------------+ 00482 M02S00003.fsema5 ---| TTLIN("CODE FORMAT OF OCTAL 00 (:) RATHER THAN$");
Line S00004 Modification History | |
---|---|
M01 (Added by) | ns2249 |
M02 (Updated by) | fsema5 |
Seq # *Modification Id* Act ----------------------------+ 00483 M02S00004.fsema5 ---| TTLIN("THE ASCII FORMAT OF OCTAL 7404 (@D). $");
Line S00005 Modification History | |
---|---|
M01 (Added by) | ns2249 |
M02 (Updated by) | fsema5 |
Seq # *Modification Id* Act ----------------------------+ 00484 M02S00005.fsema5 ---| TTLIN(" $");
Line S00006 Modification History | |
---|---|
M01 (Added by) | ns2249 |
M02 (Updated by) | fsema5 |
Seq # *Modification Id* Act ----------------------------+ 00485 M02S00006.fsema5 ---| TTLIN("IF YOU WANT YOUR COLONS LEFT IN DISPLAY$");
Line S00007 Modification History | |
---|---|
M01 (Added by) | ns2249 |
M02 (Updated by) | fsema5 |
Seq # *Modification Id* Act ----------------------------+ 00486 M02S00007.fsema5 ---| TTLIN("CODE FORMAT (:) TYPE YES AT THE PROMPT.$");
Line S00008 Modification History | |
---|---|
M01 (Added by) | ns2249 |
M02 (Updated by) | fsema5 |
Seq # *Modification Id* Act ----------------------------+ 00487 M02S00008.fsema5 ---| TTLIN("IF YOU WANT THESE COLONS TO BE IN ASCII$");
Line S00009 Modification History | |
---|---|
M01 (Added by) | ns2249 |
M02 (Updated by) | fsema5 |
Seq # *Modification Id* Act ----------------------------+ 00488 M02S00009.fsema5 ---| TTSTR("FORMAT (@D) TYPE NO. $");
Line S00010 Modification History | |
---|---|
M01 (Added by) | ns2225 |
M02 (Updated by) | fsema5 |
Seq # *Modification Id* Act ----------------------------+ 00489 M02S00010.fsema5 ---| PROMPT(QCCKWRD);
Line S00011 Modification History | |
---|---|
M01 (Added by) | ns2225 |
M02 (Updated by) | fsema5 |
Seq # *Modification Id* Act ----------------------------+ 00490 M02S00011.fsema5 ---| CONVIN(CMDLIN,2);
Line S00012 Modification History | |
---|---|
M01 (Added by) | ns2225 |
M02 (Updated by) | fsema5 |
Seq # *Modification Id* Act ----------------------------+ 00491 M02S00012.fsema5 ---| GETCHAR(CMDLINE,0,TMP1);
Line S00013 Modification History | |
---|---|
M01 (Added by) | ns2225 |
M02 (Updated by) | fsema5 |
Seq # *Modification Id* Act ----------------------------+ 00492 M02S00013.fsema5 ---| TMP1=XLTINTDSP[TMP1];
Line S00014 Modification History | |
---|---|
M01 (Added by) | ns2225 |
M02 (Updated by) | fsema5 |
Seq # *Modification Id* Act ----------------------------+ 00493 M02S00014.fsema5 ---| IF TMP1 EQ CLETTERY THEN ZEROCOLOUT=TRUE;
Line S00015 Modification History | |
---|---|
M01 (Added by) | ns2225 |
M02 (Updated by) | fsema5 |
Seq # *Modification Id* Act ----------------------------+ 00494 M02S00015.fsema5 ---| END 00495 M01S00334.fsemain +++| FILENAM[2]=" "; 00496 M01S00335.fsemain +++| POSZ(TOPC(FILECTL)+1); 00497 M01S00336.fsemain +++| WHYLE CURRENT LS BOTC(FILECTL) DO 00498 M01S00337.fsemain +++| BEGIN 00499 M01S00338.fsemain +++| SCANFDL(READNAM); 00500 M01S00339.fsemain +++| IF READNAM NQ "ZZZNULL" THEN 00501 M01S00340.fsemain +++| BEGIN 00502 M01S00341.fsemain +++| PUSH; 00503 M01S00342.fsemain +++| FILENAM[1]=" "; 00504 M01S00343.fsemain +++| FILNUM=1; 00505 M01S00344.fsemain +++| CHARPARM=0; 00506 M01S00345.fsemain +++| GETPARM=0; 00507 M01S00346.fsemain +++| OPENFILE; 00508 M01S00001.ns2449 +++| IF ZEROCOLASK THEN ZEROCOLIN = FALSE; # DO NOT "ASK" TWICE #
Line S00001 Modification History | |
---|---|
M01 (Added by) | fsema7 |
M02 (Updated by) | fsema9 |
Seq # *Modification Id* Act ----------------------------+ 00509 M02S00001.fsema9 ---| IF B<00,01>MEM[CSMR] EQ 0 THEN
Line S00002 Modification History | |
---|---|
M01 (Added by) | fsema7 |
M02 (Updated by) | fsema9 |
Seq # *Modification Id* Act ----------------------------+ 00510 M02S00002.fsema9 ---| BEGIN # IF SYSTEM CHARACTER SET = 63 #
Line S00003 Modification History | |
---|---|
M01 (Added by) | fsema7 |
M02 (Updated by) | fsema9 |
Seq # *Modification Id* Act ----------------------------+ 00511 M02S00003.fsema9 ---| ZEROCOLIN = FALSE; # DO NOT ASK COLON QUESTION #
Line S00004 Modification History | |
---|---|
M01 (Added by) | fsema7 |
M02 (Updated by) | fsema9 |
Seq # *Modification Id* Act ----------------------------+ 00512 M02S00004.fsema9 ---| ZEROCOLOUT = TRUE; # DO NOT CHANGE 00 BYTES #
Line S00005 Modification History | |
---|---|
M01 (Added by) | fsema7 |
M02 (Updated by) | fsema9 |
Seq # *Modification Id* Act ----------------------------+ 00513 M02S00005.fsema9 ---| END 00514 M01S00001.fsema5 +++| IF ZEROCOLIN AND INTERACT AND CHANGED[1] NQ 0 00515 M01S00002.fsema5 +++| AND FILENAM[1] NQ "FSEPROC" THEN 00516 M01S00003.fsema5 +++| BEGIN # IF MESSAGE TO SEND # 00517 M01S00004.fsema5 +++| ZEROCOLIN = FALSE; # ONCE IS ENOUGH #
Line S00001 Modification History | |
---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | fsema14 |
Seq # *Modification Id* Act ----------------------------+ 00518 M02S00001.fsema14 ---| TTLIN(" $"); 00519 M01S00001.fsema14 +++| TTLIN(" $");
Line S00005 Modification History | |
---|---|
M01 (Added by) | fsema5 |
M02 (Updated by) | fsema13 |
Seq # *Modification Id* Act ----------------------------+ 00520 M02S00005.fsema13 ---| TTLIN("WARNING:ONE OR MORE OF YOUR ASCII FILES $"); 00521 M01S00001.fsema13 +++| TTLIN("WARNING: ONE OR MORE OF YOUR ASCII FILES $");
Line S00006 Modification History | |
---|---|
M01 (Added by) | fsema5 |
M02 (Updated by) | fsema9 |
Seq # *Modification Id* Act ----------------------------+ 00522 M02S00006.fsema9 ---| TTLIN("CONTAINED COLONS ENCODED IN THE DISPLAY $"); 00523 M01S00001.fsema9 +++| TTLIN("CONTAINED CHARACTERS CODED IN THE DISPLAY $"); 00524 M01S00007.fsema5 +++| TTLIN("CODE FORMAT OF OCTAL 00 (:) RATHER THAN $"); 00525 M01S00008.fsema5 +++| TTLIN("THE ASCII FORMAT OF OCTAL 7404 (@D). $"); 00526 M01S00002.242l642 +++| ASKAGAIN: # ASK UNTIL Y OR N # 00527 M01S00009.fsema5 +++| TTLIN(" $");
Line S00010 Modification History | |
---|---|
M01 (Added by) | fsema5 |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00528 M02S00010.242l642 ---| TTLIN("ENTER... $");
Line S00003 Modification History | |
---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | fsema14 |
Seq # *Modification Id* Act ----------------------------+ 00529 M02S00003.fsema14 ---| TTLIN("ENTER ... $"); 00530 M01S00002.fsema14 +++| TTLIN("ENTER ... $");
Line S00011 Modification History | |
---|---|
M01 (Added by) | fsema5 |
M02 (Updated by) | fsema9 |
Seq # *Modification Id* Act ----------------------------+ 00531 M02S00011.fsema9 ---| TTLIN("YES COLONS LEFT IN DISPLAY CODE (:) $");
Line S00012 Modification History | |
---|---|
M01 (Added by) | fsema5 |
M02 (Updated by) | fsema9 |
Seq # *Modification Id* Act ----------------------------+ 00532 M02S00012.fsema9 ---| TTLIN("NO COLONS CHANGED TO ASCII (@D) $");
Line S00002 Modification History | |
---|---|
M01 (Added by) | fsema9 |
M02 (Updated by) | fsema14 |
Seq # *Modification Id* Act ----------------------------+ 00533 M02S00002.fsema14 ---| TTLIN("YES CHARACTERS LEFT IN DISPLAY CODE (:) $");
Line S00003 Modification History | |
---|---|
M01 (Added by) | fsema9 |
M02 (Updated by) | fsema14 |
Seq # *Modification Id* Act ----------------------------+ 00534 M02S00003.fsema14 ---| TTLIN("NO CHARACTERS CHANGED TO ASCII (@D) $"); 00535 M01S00003.fsema14 +++| TTLIN 00536 M01S00004.fsema14 +++| ("YES DISPLAY(:) AND ASCII(@D) CHANGED TO DISPLAY(:)$"); 00537 M01S00005.fsema14 +++| TTLIN 00538 M01S00006.fsema14 +++| ("NO DISPLAY(:) AND ASCII(@D) CHANGED TO ASCII(@D)$"); 00539 M01S00013.fsema5 +++| PROMPT(QCCKWRD); 00540 M01S00014.fsema5 +++| CONVIN(CMDLIN,2); 00541 M01S00015.fsema5 +++| GETCHAR(CMDLINE,0,TMP1); 00542 M01S00016.fsema5 +++| TMP1 = XLTINTDSP[TMP1]; 00543 M01S00004.242l642 +++| IF TMP1 NQ CLETTERY AND TMP1 NQ CLETTERN THEN GOTO ASKAGAIN; 00544 M01S00017.fsema5 +++| IF TMP1 EQ CLETTERY THEN ZEROCOLOUT = TRUE; 00545 M01S00018.fsema5 +++| END 00546 M01S00347.fsemain +++| IF NOT DONTPRINT THEN 00547 M01S00348.fsemain +++| BEGIN 00548 M01S00006.ns2404 +++| IF NOT INTERACT THEN TTSTR(" $"); 00549 M01S00349.fsemain +++| TTSTR("FILE: $"); 00550 M01S00350.fsemain +++| TTLFN(FILENAM[1]);
Line S00351 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | ns2449 |
Seq # *Modification Id* Act ----------------------------+ 00551 M02S00351.ns2449 ---| IF CHANGED[1] EQ 0 THEN TTSTR(" (NO CHANGES)$");
Line S00352 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | ns2449 |
Seq # *Modification Id* Act ----------------------------+ 00552 M02S00352.ns2449 ---| IF LOCKED[1] NQ 0 THEN TTSTR(" (READ-ONLY FILE)$"); 00553 M01S00002.ns2449 +++| IF LOCKED[1] NQ 0 THEN 00554 M01S00003.ns2449 +++| BEGIN 00555 M01S00004.ns2449 +++| TTSTR(" (READ-ONLY) $"); 00556 M01S00005.ns2449 +++| END 00557 M01S00006.ns2449 +++| ELSE 00558 M01S00007.ns2449 +++| BEGIN 00559 M01S00008.ns2449 +++| IF CHANGED[1] EQ 0 THEN TTSTR(" (NO CHANGES)$"); 00560 M01S00009.ns2449 +++| END 00561 M01S00010.ns2449 +++| IF EXITSAVE AND CHANGED[1] EQ 0 THEN 00562 M01S00011.ns2449 +++| BEGIN # IF QUIT REPLACE OPTION # 00563 M01S00012.ns2449 +++| TTSTR(" (NOT REPLACED)$"); 00564 M01S00013.ns2449 +++| END 00565 M01S00353.fsemain +++| END 00566 M01S00354.fsemain +++| IF CHANGED[1] NQ 0 AND LOCKED[1] EQ 0 THEN 00567 M01S00355.fsemain +++| BEGIN 00568 M01S00356.fsemain +++| MAKEFET(FILEFET,FILENAM[1],FILEBUF,DSKSIZ);
Line S00357 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | fsema1 |
Seq # *Modification Id* Act ----------------------------+ 00569 M02S00357.fsema1 ---| # GET RID OF PREATTACHED FILE WHEN NO REPLACE OPTION #
Line S00358 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | fsema1 |
Seq # *Modification Id* Act ----------------------------+ 00570 M02S00358.fsema1 ---| IF ASSGNFILE(READNAM) AND (NOT LOCALFILE(READNAM))
Line S00359 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | fsema1 |
Seq # *Modification Id* Act ----------------------------+ 00571 M02S00359.fsema1 ---| AND (NOT EXITSAVE) THEN RETERN(FILEFET,1); 00572 M01S00360.fsemain +++| # REWRITE LOCAL OR PREATTACHED FILE # 00573 M01S00361.fsemain +++| FILEWRITE;
Line S00362 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | fsema13 |
Seq # *Modification Id* Act ----------------------------+ 00574 M02S00362.fsema13 ---| IF EXITSAVE THEN
Line S00363 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | fsema13 |
Seq # *Modification Id* Act ----------------------------+ 00575 M02S00363.fsema13 ---| BEGIN
Line S00364 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | fsema13 |
Seq # *Modification Id* Act ----------------------------+ 00576 M02S00364.fsema13 ---| PFMERROR=0;
Line S00365 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | fsema1 |
M03 (Updated by) | fsema13 |
Seq # *Modification Id* Act ----------------------------+ 00577 M03S00365.fsema13 ---| IF (NOT ASSGNFILE(READNAM))
Line S00366 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | fsema1 |
M03 (Updated by) | fsema13 |
Seq # *Modification Id* Act ----------------------------+ 00578 M03S00366.fsema13 ---| OR (LOCALFILE(READNAM)) THEN
Line S00001 Modification History | |
---|---|
M01 (Added by) | fsema1 |
M02 (Updated by) | fsema13 |
Seq # *Modification Id* Act ----------------------------+ 00579 M02S00001.fsema13 ---| IF LOCALFILE(READNAM) THEN
Line S00367 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | fsema13 |
Seq # *Modification Id* Act ----------------------------+ 00580 M02S00367.fsema13 ---| BEGIN # NOT PREATTACHED #
Line S00368 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | fsema13 |
Seq # *Modification Id* Act ----------------------------+ 00581 M02S00368.fsema13 ---| # FILE NEEDS TO BE MADE PERMANENT - TRY INDIRECT FIRST #
Line S00369 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | ns2568 |
M03 (Updated by) | fsema13 |
Seq # *Modification Id* Act ----------------------------+ 00582 M03S00369.fsema13 ---| PF("REPLACE",READNAM,READNAM,"RC",PFMERROR,0);
Line S00370 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | ns2568 |
M03 (Updated by) | fsema13 |
Seq # *Modification Id* Act ----------------------------+ 00583 M03S00370.fsema13 ---| IF PFMERROR NQ 0 THEN
Line S00002 Modification History | |
---|---|
M01 (Added by) | ns2568 |
M02 (Updated by) | fsema13 |
Seq # *Modification Id* Act ----------------------------+ 00584 M02S00002.fsema13 ---| PF("REPLACE",READNAM,READNAM,"RC",PFMERROR,"EM",PFMMSG,
Line S00003 Modification History | |
---|---|
M01 (Added by) | ns2568 |
M02 (Updated by) | fsema13 |
Seq # *Modification Id* Act ----------------------------+ 00585 M02S00003.fsema13 ---| "EL","40",0);
Line S00004 Modification History | |
---|---|
M01 (Added by) | ns2568 |
M02 (Updated by) | fsema13 |
Seq # *Modification Id* Act ----------------------------+ 00586 M02S00004.fsema13 ---| IF PFMERROR EQ FNF THEN
Line S00371 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | fsema13 |
Seq # *Modification Id* Act ----------------------------+ 00587 M02S00371.fsema13 ---| BEGIN # RESORT TO ATTACH, REWRITE #
Line S00372 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | ns2568 |
M03 (Updated by) | fsema13 |
Seq # *Modification Id* Act ----------------------------+ 00588 M03S00372.fsema13 ---| PF("ATTACH",READNAM,READNAM,"RC",PFMERROR,
Line S00373 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | ns2189 |
M03 (Updated by) | ns2568 |
M04 (Updated by) | fsema13 |
Seq # *Modification Id* Act ----------------------------+ 00589 M04S00373.fsema13 ---| "M","W","NA","YES",0);
Line S00001 Modification History | |
---|---|
M01 (Added by) | ns2189 |
M02 (Updated by) | ns2568 |
M03 (Updated by) | fsema13 |
Seq # *Modification Id* Act ----------------------------+ 00590 M03S00001.fsema13 ---| "M","W","NA","YES","SR","NF",0);
Line S00005 Modification History | |
---|---|
M01 (Added by) | ns2568 |
M02 (Updated by) | fsema13 |
Seq # *Modification Id* Act ----------------------------+ 00591 M02S00005.fsema13 ---| PF("ATTACH",READNAM,READNAM,"RC",PFMERROR,"M","W",
Line S00006 Modification History | |
---|---|
M01 (Added by) | ns2568 |
M02 (Updated by) | fsema13 |
Seq # *Modification Id* Act ----------------------------+ 00592 M02S00006.fsema13 ---| "NA","YES","SR","NF","EM",PFMMSG,"EL","40",0); 00593 M01S00002.fsema13 +++| IF EXITSAVE AND LOCALFILE(READNAM) THEN 00594 M01S00003.fsema13 +++| BEGIN # IF FILE TO BE MADE PERMANENT # 00595 M01S00004.fsema13 +++| # FILE NEEDS TO BE MADE PERMANENT - TRY INDIRECT FIRST # 00596 M01S00005.fsema13 +++| PF("REPLACE",READNAM,READNAM,"RC",PFMERROR,"EM",PFMMSG, 00597 M01S00006.fsema13 +++| "EL","40",0); 00598 M01S00007.fsema13 +++| IF PFMERROR EQ FNF THEN 00599 M01S00008.fsema13 +++| BEGIN # IF NOT INDIRECT TRY ATTACH # 00600 M01S00009.fsema13 +++| PF("ATTACH",READNAM,READNAM,"RC",PFMERROR,"M","W", 00601 M01S00010.fsema13 +++| "NA","YES","SR","NF","EM",PFMMSG,"EL","40",0); 00602 M01S00011.fsema13 +++| FILEWRITE; 00603 M01S00012.fsema13 +++| END 00604 M01S00013.fsema13 +++| ELSE 00605 M01S00014.fsema13 +++| BEGIN 00606 M01S00015.fsema13 +++| IF PFMERROR EQ FTL THEN 00607 M01S00016.fsema13 +++| BEGIN # IF FILE TOO LONG # 00608 M01S00017.fsema13 +++| # SAVE FIRST ERROR, RETURN LOCAL FILE, TRY DEFINE # 00609 M01S00018.fsema13 +++| PFMMS2=PFMMSG; 00610 M01S00019.fsema13 +++| RETERN(FILEFET,1); 00611 M01S00020.fsema13 +++| PF("DEFINE",READNAM,READNAM,"RC",PFMERROR, 00612 M01S00021.fsema13 +++| "EM",PFMMSG,"EL","40",0); 00613 M01S00374.fsemain +++| FILEWRITE; 00614 M01S00022.fsema13 +++| IF PFMERROR NQ 0 THEN 00615 M01S00023.fsema13 +++| BEGIN # IF DEFINE FAILED # 00616 M01S00024.fsema13 +++| PFMMSG=PFMMS2; # REPLACE ERROR MESSAGE # 00617 M01S00025.fsema13 +++| END 00618 M01S00375.fsemain +++| END
Line S00007 Modification History | |
---|---|
M01 (Added by) | ns2568 |
M02 (Updated by) | fsema13 |
Seq # *Modification Id* Act ----------------------------+ 00619 M02S00007.fsema13 ---| ELSE
Line S00008 Modification History | |
---|---|
M01 (Added by) | ns2568 |
M02 (Updated by) | fsema13 |
Seq # *Modification Id* Act ----------------------------+ 00620 M02S00008.fsema13 ---| BEGIN
Line S00009 Modification History | |
---|---|
M01 (Added by) | ns2568 |
M02 (Updated by) | fsema13 |
Seq # *Modification Id* Act ----------------------------+ 00621 M02S00009.fsema13 ---| IF PFMERROR EQ FTL THEN
Line S00010 Modification History | |
---|---|
M01 (Added by) | ns2568 |
M02 (Updated by) | fsema13 |
Seq # *Modification Id* Act ----------------------------+ 00622 M02S00010.fsema13 ---| BEGIN # IF FILE TOO LONG #
Line S00011 Modification History | |
---|---|
M01 (Added by) | ns2568 |
M02 (Updated by) | fsema13 |
Seq # *Modification Id* Act ----------------------------+ 00623 M02S00011.fsema13 ---| # SAVE FIRST ERROR, RETURN LOCAL FILE, TRY DEFINE #
Line S00012 Modification History | |
---|---|
M01 (Added by) | ns2568 |
M02 (Updated by) | fsema13 |
Seq # *Modification Id* Act ----------------------------+ 00624 M02S00012.fsema13 ---| PFMMS2=PFMMSG;
Line S00013 Modification History | |
---|---|
M01 (Added by) | ns2568 |
M02 (Updated by) | fsema13 |
Seq # *Modification Id* Act ----------------------------+ 00625 M02S00013.fsema13 ---| RETERN(FILEFET,1);
Line S00014 Modification History | |
---|---|
M01 (Added by) | ns2568 |
M02 (Updated by) | fsema13 |
Seq # *Modification Id* Act ----------------------------+ 00626 M02S00014.fsema13 ---| PF("DEFINE",READNAM,READNAM,"RC",PFMERROR,
Line S00015 Modification History | |
---|---|
M01 (Added by) | ns2568 |
M02 (Updated by) | fsema13 |
Seq # *Modification Id* Act ----------------------------+ 00627 M02S00015.fsema13 ---| "EM",PFMMSG,"EL","40",0);
Line S00016 Modification History | |
---|---|
M01 (Added by) | ns2568 |
M02 (Updated by) | fsema13 |
Seq # *Modification Id* Act ----------------------------+ 00628 M02S00016.fsema13 ---| FILEWRITE;
Line S00017 Modification History | |
---|---|
M01 (Added by) | ns2568 |
M02 (Updated by) | fsema13 |
Seq # *Modification Id* Act ----------------------------+ 00629 M02S00017.fsema13 ---| IF PFMERROR NQ 0 THEN
Line S00018 Modification History | |
---|---|
M01 (Added by) | ns2568 |
M02 (Updated by) | fsema13 |
Seq # *Modification Id* Act ----------------------------+ 00630 M02S00018.fsema13 ---| BEGIN # IF DEFINE FAILED #
Line S00019 Modification History | |
---|---|
M01 (Added by) | ns2568 |
M02 (Updated by) | fsema13 |
Seq # *Modification Id* Act ----------------------------+ 00631 M02S00019.fsema13 ---| PFMMSG=PFMMS2; # REPLACE ERROR MESSAGE #
Line S00020 Modification History | |
---|---|
M01 (Added by) | ns2568 |
M02 (Updated by) | fsema13 |
Seq # *Modification Id* Act ----------------------------+ 00632 M02S00020.fsema13 ---| END
Line S00021 Modification History | |
---|---|
M01 (Added by) | ns2568 |
M02 (Updated by) | fsema13 |
Seq # *Modification Id* Act ----------------------------+ 00633 M02S00021.fsema13 ---| END
Line S00022 Modification History | |
---|---|
M01 (Added by) | ns2568 |
M02 (Updated by) | fsema13 |
Seq # *Modification Id* Act ----------------------------+ 00634 M02S00022.fsema13 ---| END
Line S00023 Modification History | |
---|---|
M01 (Added by) | ns2568 |
M02 (Updated by) | fsema13 |
Seq # *Modification Id* Act ----------------------------+ 00635 M02S00023.fsema13 ---| IF PFMERROR NQ 0 THEN
Line S00024 Modification History | |
---|---|
M01 (Added by) | ns2568 |
M02 (Updated by) | fsema13 |
Seq # *Modification Id* Act ----------------------------+ 00636 M02S00024.fsema13 ---| BEGIN
Line S00025 Modification History | |
---|---|
M01 (Added by) | ns2568 |
M02 (Updated by) | fsema13 |
Seq # *Modification Id* Act ----------------------------+ 00637 M02S00025.fsema13 ---| TMP1=39;
Line S00026 Modification History | |
---|---|
M01 (Added by) | ns2568 |
M02 (Updated by) | fsema13 |
Seq # *Modification Id* Act ----------------------------+ 00638 M02S00026.fsema13 ---| WHYLE C<TMP1,1>PFMMSG EQ " " DO TMP1=TMP1-1;
Line S00027 Modification History | |
---|---|
M01 (Added by) | ns2568 |
M02 (Updated by) | fsema13 |
Seq # *Modification Id* Act ----------------------------+ 00639 M02S00027.fsema13 ---| C<0,1>PFMMSG="(";
Line S00028 Modification History | |
---|---|
M01 (Added by) | ns2568 |
M02 (Updated by) | fsema13 |
Seq # *Modification Id* Act ----------------------------+ 00640 M02S00028.fsema13 ---| C<TMP1,2>PFMMSG=")$";
Line S00029 Modification History | |
---|---|
M01 (Added by) | ns2568 |
M02 (Updated by) | fsema13 |
Seq # *Modification Id* Act ----------------------------+ 00641 M02S00029.fsema13 ---| END 00642 M01S00376.fsemain +++| END
Line S00377 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | fsema13 |
Seq # *Modification Id* Act ----------------------------+ 00643 M02S00377.fsema13 ---| IF NOT DONTPRINT THEN 00644 M01S00026.fsema13 +++| IF PFMERROR NQ 0 THEN
Line S00378 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | fsema13 |
Seq # *Modification Id* Act ----------------------------+ 00645 M02S00378.fsema13 ---| BEGIN 00646 M01S00027.fsema13 +++| BEGIN # IF FILE NOT MADE PERMANENT #
Line S00379 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | fsema13 |
Seq # *Modification Id* Act ----------------------------+ 00647 M02S00379.fsema13 ---| IF PFMERROR EQ 0 THEN TTSTR(" (PERMANENT)$");
Line S00380 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | fsema1 |
M03 (Updated by) | fsema13 |
Seq # *Modification Id* Act ----------------------------+ 00648 M03S00380.fsema13 ---| ELSE TTSTR(" (LOCAL FILE)$");
Line S00002 Modification History | |
---|---|
M01 (Added by) | fsema1 |
M02 (Updated by) | fsema3 |
M03 (Updated by) | fsema13 |
Seq # *Modification Id* Act ----------------------------+ 00649 M03S00002.fsema13 ---| ELSE TTSTR(" (LOCAL)$");
Line S00003 Modification History | |
---|---|
M01 (Added by) | fsema3 |
M02 (Updated by) | fsema13 |
Seq # *Modification Id* Act ----------------------------+ 00650 M02S00003.fsema13 ---| ELSE
Line S00004 Modification History | |
---|---|
M01 (Added by) | fsema3 |
M02 (Updated by) | fsema13 |
Seq # *Modification Id* Act ----------------------------+ 00651 M02S00004.fsema13 ---| BEGIN
Line S00005 Modification History | |
---|---|
M01 (Added by) | fsema3 |
M02 (Updated by) | ns2568 |
M03 (Updated by) | fsema13 |
Seq # *Modification Id* Act ----------------------------+ 00652 M03S00005.fsema13 ---| TTSTR(" (LOCAL - COULD NOT BE SAVED)$");
Line S00030 Modification History | |
---|---|
M01 (Added by) | ns2568 |
M02 (Updated by) | fsema13 |
Seq # *Modification Id* Act ----------------------------+ 00653 M02S00030.fsema13 ---| TTLIN(" (LOCAL - COULD NOT BE SAVED)$");
Line S00031 Modification History | |
---|---|
M01 (Added by) | ns2568 |
M02 (Updated by) | fsema13 |
Seq # *Modification Id* Act ----------------------------+ 00654 M02S00031.fsema13 ---| TTSTR(" $");
Line S00032 Modification History | |
---|---|
M01 (Added by) | ns2568 |
M02 (Updated by) | fsema13 |
Seq # *Modification Id* Act ----------------------------+ 00655 M02S00032.fsema13 ---| TTSTR(PFMMSG);
Line S00006 Modification History | |
---|---|
M01 (Added by) | fsema3 |
M02 (Updated by) | fsema13 |
Seq # *Modification Id* Act ----------------------------+ 00656 M02S00006.fsema13 ---| NOTCHANGED=TRUE; # SET NOT CHANGED FLAG #
Line S00007 Modification History | |
---|---|
M01 (Added by) | fsema3 |
M02 (Updated by) | fsema13 |
Seq # *Modification Id* Act ----------------------------+ 00657 M02S00007.fsema13 ---| END
Line S00381 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | fsema13 |
Seq # *Modification Id* Act ----------------------------+ 00658 M02S00381.fsema13 ---| END
Line S00001 Modification History | |
---|---|
M01 (Added by) | fsema6 |
M02 (Updated by) | fsema13 |
Seq # *Modification Id* Act ----------------------------+ 00659 M02S00001.fsema13 ---| ELSE
Line S00002 Modification History | |
---|---|
M01 (Added by) | fsema6 |
M02 (Updated by) | fsema13 |
Seq # *Modification Id* Act ----------------------------+ 00660 M02S00002.fsema13 ---| BEGIN # QUIET OPTION #
Line S00003 Modification History | |
---|---|
M01 (Added by) | fsema6 |
M02 (Updated by) | fsema13 |
Seq # *Modification Id* Act ----------------------------+ 00661 M02S00003.fsema13 ---| IF PFMERROR NQ 0 THEN
Line S00004 Modification History | |
---|---|
M01 (Added by) | fsema6 |
M02 (Updated by) | fsema13 |
Seq # *Modification Id* Act ----------------------------+ 00662 M02S00004.fsema13 ---| BEGIN # IF PFM ERROR, OVERRIDE QUIET # 00663 M01S00028.fsema13 +++| TMP1=39; 00664 M01S00029.fsema13 +++| WHYLE C<TMP1,1>PFMMSG EQ " " DO TMP1=TMP1-1; 00665 M01S00030.fsema13 +++| C<0,1>PFMMSG="("; 00666 M01S00031.fsema13 +++| C<TMP1,2>PFMMSG=")$"; 00667 M01S00032.fsema13 +++| IF DONTPRINT THEN 00668 M01S00033.fsema13 +++| BEGIN # IF QUIET OPTION, OVERRIDE # 00669 M01S00005.fsema6 +++| IF NOT INTERACT THEN TTSTR(" $"); 00670 M01S00006.fsema6 +++| TTSTR("FILE: $"); 00671 M01S00007.fsema6 +++| TTLFN(FILENAM[1]);
Line S00008 Modification History | |
---|---|
M01 (Added by) | fsema6 |
M02 (Updated by) | ns2568 |
Seq # *Modification Id* Act ----------------------------+ 00672 M02S00008.ns2568 ---| TTSTR(" (LOCAL - COULD NOT BE SAVED)$");
Line S00033 Modification History | |
---|---|
M01 (Added by) | ns2568 |
M02 (Updated by) | fsema13 |
Seq # *Modification Id* Act ----------------------------+ 00673 M02S00033.fsema13 ---| TTLIN(" (LOCAL - COULD NOT BE SAVED)$");
Line S00034 Modification History | |
---|---|
M01 (Added by) | ns2568 |
M02 (Updated by) | fsema13 |
Seq # *Modification Id* Act ----------------------------+ 00674 M02S00034.fsema13 ---| TTSTR(" $");
Line S00035 Modification History | |
---|---|
M01 (Added by) | ns2568 |
M02 (Updated by) | fsema13 |
Seq # *Modification Id* Act ----------------------------+ 00675 M02S00035.fsema13 ---| TTSTR(PFMMSG);
Line S00009 Modification History | |
---|---|
M01 (Added by) | fsema6 |
M02 (Updated by) | fsema13 |
Seq # *Modification Id* Act ----------------------------+ 00676 M02S00009.fsema13 ---| NOTCHANGED=TRUE; # TRIGGER WARNING MESSAGE #
Line S00010 Modification History | |
---|---|
M01 (Added by) | fsema6 |
M02 (Updated by) | fsema13 |
Seq # *Modification Id* Act ----------------------------+ 00677 M02S00010.fsema13 ---| TTBRK; 00678 M01S00011.fsema6 +++| END 00679 M01S00034.fsema13 +++| TTLIN(" (LOCAL - COULD NOT BE SAVED)$"); 00680 M01S00035.fsema13 +++| TTSTR(" $"); 00681 M01S00036.fsema13 +++| TTSTR(PFMMSG); 00682 M01S00037.fsema13 +++| NOTCHANGED=TRUE; # SET NOT CHANGED FLAG # 00683 M01S00038.fsema13 +++| IF DONTPRINT THEN TTBRK; 00684 M01S00012.fsema6 +++| END 00685 M01S00039.fsema13 +++| ELSE 00686 M01S00040.fsema13 +++| BEGIN # IF FILE WAS MADE PERMANENT # 00687 M01S00041.fsema13 +++| IF NOT DONTPRINT THEN TTSTR(" (PERMANENT)$"); 00688 M01S00042.fsema13 +++| END 00689 M01S00003.fsema1 +++| END
Line S00004 Modification History | |
---|---|
M01 (Added by) | fsema1 |
M02 (Updated by) | fsema13 |
Seq # *Modification Id* Act ----------------------------+ 00690 M02S00004.fsema13 ---| ELSE # NOT EXITSAVE # 00691 M01S00043.fsema13 +++| ELSE # IF NOT TO BE MADE PERMANENT # 00692 M01S00005.fsema1 +++| BEGIN 00693 M01S00006.fsema1 +++| IF NOT DONTPRINT THEN
Line S00007 Modification History | |
---|---|
M01 (Added by) | fsema1 |
M02 (Updated by) | fsema13 |
Seq # *Modification Id* Act ----------------------------+ 00694 M02S00007.fsema13 ---| BEGIN 00695 M01S00044.fsema13 +++| BEGIN # IF NOT QUIET OPTION # 00696 M01S00008.fsema1 +++| IF LOCALFILE(READNAM) THEN TTSTR(" (LOCAL)$"); 00697 M01S00045.fsema13 +++| ELSE IF FILINFFT EQ 2 THEN TTSTR(" (QUEUED)$"); 00698 M01S00009.fsema1 +++| ELSE TTSTR(" (PERMANENT)$"); 00699 M01S00010.fsema1 +++| END 00700 M01S00382.fsemain +++| END 00701 M01S00383.fsemain +++| END 00702 M01S00384.fsemain +++| IF NOT DONTPRINT THEN TTBRK; 00703 M01S00385.fsemain +++| POP; 00704 M01S00386.fsemain +++| END 00705 M01S00387.fsemain +++| FWDZ; 00706 M01S00388.fsemain +++| END 00707 M01S00016.ns2225 +++| ZEROCOLOUT=FALSE; 00708 M01S00389.fsemain +++| END 00709 M01S00008.fsema3 +++| 00710 M01S00009.fsema3 +++| IF NOTCHANGED AND INTERACT THEN # IF FILE NOT CHANGED # 00711 M01S00010.fsema3 +++| BEGIN
Line S00011 Modification History | |
---|---|
M01 (Added by) | fsema3 |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00712 M02S00011.242l642 ---| TTLIN("WARNING: ONE OR MORE OF YOUR FILES IS NOW$");
Line S00012 Modification History | |
---|---|
M01 (Added by) | fsema3 |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00713 M02S00012.242l642 ---| TTLIN("TOO LONG TO BE SAVED AND HAS BEEN LEFT AS$");
Line S00013 Modification History | |
---|---|
M01 (Added by) | fsema3 |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00714 M02S00013.242l642 ---| TTLIN("A LOCAL FILE BY THE EDITOR.$");
Line S00014 Modification History | |
---|---|
M01 (Added by) | fsema3 |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00715 M02S00014.242l642 ---| TTLIN(" $");
Line S00015 Modification History | |
---|---|
M01 (Added by) | fsema3 |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 00716 M02S00015.242l642 ---| TTSTR("PLEASE ENTER CARRIAGE RETURN TO CONTINUE. $"); 00717 M01S00005.242l642 +++| TTLIN(" $");
Line S00006 Modification History | |
---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | fsema6 |
Seq # *Modification Id* Act ----------------------------+ 00718 M02S00006.fsema6 ---| TTLIN("WARNING:ONE OR MORE OF YOUR FILES COULD $");
Line S00007 Modification History | |
---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | fsema6 |
Seq # *Modification Id* Act ----------------------------+ 00719 M02S00007.fsema6 ---| TTLIN("NOT BE SAVED BECAUSE OF YOUR VALIDATION $");
Line S00008 Modification History | |
---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | fsema6 |
Seq # *Modification Id* Act ----------------------------+ 00720 M02S00008.fsema6 ---| TTLIN("LIMITS (THE FILE IS NOW TOO LONG OR YOU $");
Line S00009 Modification History | |
---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | fsema6 |
Seq # *Modification Id* Act ----------------------------+ 00721 M02S00009.fsema6 ---| TTLIN("HAVE EXCEEDED YOUR LIMITS FOR NUMBER OF $");
Line S00010 Modification History | |
---|---|
M01 (Added by) | 242l642 |
M02 (Updated by) | fsema6 |
Seq # *Modification Id* Act ----------------------------+ 00722 M02S00010.fsema6 ---| TTLIN("FILES) AND HAS BEEN LEFT LOCAL BY FSE. $");
Line S00013 Modification History | |
---|---|
M01 (Added by) | fsema6 |
M02 (Updated by) | fsema13 |
Seq # *Modification Id* Act ----------------------------+ 00723 M02S00013.fsema13 ---| TTLIN("WARNING:ONE OR MORE OF YOUR FILES COULD NOT $");
Line S00014 Modification History | |
---|---|
M01 (Added by) | fsema6 |
M02 (Updated by) | ns2568 |
M03 (Updated by) | fsema10 |
M04 (Updated by) | fsema13 |
Seq # *Modification Id* Act ----------------------------+ 00724 M04S00014.fsema13 ---| TTLIN("BE SAVED. A SYSTEM ERROR HAS OCCURED, OR A $");
Line S00001 Modification History | |
---|---|
M01 (Added by) | fsema10 |
M02 (Updated by) | ns2568a |
M03 (Updated by) | fsema13 |
Seq # *Modification Id* Act ----------------------------+ 00725 M03S00001.fsema13 ---| TTLIN("BE SAVED. A SYSTEM ERROR HAS OCCURRED, OR A $");
Line S00015 Modification History | |
---|---|
M01 (Added by) | fsema6 |
M02 (Updated by) | ns2568 |
M03 (Updated by) | fsema13 |
Seq # *Modification Id* Act ----------------------------+ 00726 M03S00015.fsema13 ---| TTLIN("USER VALIDATION LIMIT (FOR LENGTH OF A FILE $");
Line S00016 Modification History | |
---|---|
M01 (Added by) | fsema6 |
M02 (Updated by) | ns2568 |
M03 (Updated by) | fsema13 |
Seq # *Modification Id* Act ----------------------------+ 00727 M03S00016.fsema13 ---| TTLIN("OR FOR THE TOTAL NUMBER OF FILES PERMITTED) $");
Line S00017 Modification History | |
---|---|
M01 (Added by) | fsema6 |
M02 (Updated by) | ns2568 |
M03 (Updated by) | fsema13 |
Seq # *Modification Id* Act ----------------------------+ 00728 M03S00017.fsema13 ---| TTLIN("HAS BEEN EXCEEDED. THE FILE LIST ABOVE HAS $");
Line S00018 Modification History | |
---|---|
M01 (Added by) | fsema6 |
M02 (Updated by) | ns2568 |
M03 (Updated by) | fsema13 |
Seq # *Modification Id* Act ----------------------------+ 00729 M03S00018.fsema13 ---| TTLIN("INDICATED WHICH FILE OR FILES ARE INVOLVED. $");
Line S00036 Modification History | |
---|---|
M01 (Added by) | ns2568 |
M02 (Updated by) | fsema13 |
Seq # *Modification Id* Act ----------------------------+ 00730 M02S00036.fsema13 ---| TTLIN("BE SAVED. $"); 00731 M01S00046.fsema13 +++| TTLIN("WARNING: ONE OR MORE OF YOUR FILES $"); 00732 M01S00047.fsema13 +++| TTLIN("COULD NOT BE SAVED. $"); 00733 M01S00011.242l642 +++| TTLIN(" $"); 00734 M01S00012.242l642 +++| TTLIN("ENTER ... CARRIAGE RETURN TO CONTINUE. $"); 00735 M01S00016.fsema3 +++| PROMPT(QCCKWRD); 00736 M01S00017.fsema3 +++| END 00737 M01S00390.fsemain +++| 00738 M01S00391.fsemain +++| END # OF FILREBUILD # 00739 M01S00392.fsemain +++|PAGE # INITIATION ROUTINE # 00740 M01S00393.fsemain +++| 00741 M01S00394.fsemain +++| 00742 M01S00395.fsemain +++|PROC CRACKCTL; 00743 M01S00396.fsemain +++| BEGIN 00744 M01S00397.fsemain +++|# 00745 M01S00398.fsemain +++|** CRACKCTL - CRACK CONTROL STATEMENT. 00746 M01S00399.fsemain +++|* 00747 M01S00400.fsemain +++|* ENTRY RA+2, RA+3, ETC - PARAMETERS, EITHER FORMAT. 00748 M01S00401.fsemain +++|* FILENAM[1] - BLANK.
Line S00402 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | ns2623 |
Seq # *Modification Id* Act ----------------------------+ 00749 M02S00402.ns2623 ---|* INPTNAM, OUTPNAM, PROCNAM, WORKNAM - DEFAULTS.
Line S00403 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | ns2623 |
Seq # *Modification Id* Act ----------------------------+ 00750 M02S00403.ns2623 ---|* GETPARM, CHARPARM - DEFAULTS. 00751 M01S00001.ns2623 +++|* INPTNAM, OUTPNAM, PROCNAM, WORKNAM, - DEFAULTS. 00752 M01S00002.ns2623 +++|* GETPARM, CHARPARM, ECHOOFF - DEFAULTS. 00753 M01S00404.fsemain +++|* 00754 M01S00405.fsemain +++|* EXIT TRYRESUME - WHETHER RESUMPTION SHOULD BE TRIED. 00755 M01S00406.fsemain +++|* FILENAM[1] - FILLED IN IF SUPPLIED. 00756 M01S00407.fsemain +++|* INPTNAM - CHANGED IF SUPPLIED. 00757 M01S00408.fsemain +++|* OUTPNAM - CHANGED IF SUPPLIED. 00758 M01S00409.fsemain +++|* PROCNAM - CHANGED IF SUPPLIED. 00759 M01S00410.fsemain +++|* WORKNAM - CHANGED IF SUPPLIED. 00760 M01S00411.fsemain +++|* GETPARM - 2 IF "GET" PARAMETER SPECIFIED. 00761 M01S00412.fsemain +++|* CHARPARM - 1, 2, OR 3 IF SPECIFIED. 00762 M01S00003.ns2623 +++|* ECHOOFF - TRUE IF *E=NO* SPECIFIED, FALSE IF *E=YES*. 00763 M01S00413.fsemain +++|* 00764 M01S00414.fsemain +++|* CALLS PADNAME, MATCHKEY. 00765 M01S00415.fsemain +++|* 00766 M01S00416.fsemain +++|* USES TOKENSYM, KEYWDNDX, KEYWDTYPE, TOKENLEN. 00767 M01S00417.fsemain +++|# 00768 M01S00418.fsemain +++| 00769 M01S00419.fsemain +++| # PARMKEYS AND PARMSW MUST MATCH #
Line S00420 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | ns2623 |
Seq # *Modification Id* Act ----------------------------+ 00770 M02S00420.ns2623 ---| DEF MAXPARMS #7#; 00771 M01S00004.ns2623 +++| DEF MAXPARMS #8#; 00772 M01S00421.fsemain +++| ARRAY PARMKEYS [0:MAXPARMS]; ITEM PARMKEY C(0,0,7) = [ "*NULL*",
Line S00422 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | ns2623 |
Seq # *Modification Id* Act ----------------------------+ 00773 M02S00422.ns2623 ---| "FN", "I", "L", "IP", "CS", "OP", "WF" ]; 00774 M01S00005.ns2623 +++| "FN", "I", "L", "IP", "CS", "OP", "WF", "E" ]; 00775 M01S00423.fsemain +++| SWITCH KEYPARMSW PSDFLT, PSFILE, PSINP, PSLST, PSPROC,
Line S00424 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | ns2623 |
Seq # *Modification Id* Act ----------------------------+ 00776 M02S00424.ns2623 ---| PSCHAR, PSOP, PSWORK;
Line S00425 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | ns2623 |
Seq # *Modification Id* Act ----------------------------+ 00777 M02S00425.ns2623 ---| SWITCH POSPARMSW PSOP, PSFILE, PSOP, PSINP, PSLST, PSPROC, PSWORK;
Line S00426 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | ns2623 |
Seq # *Modification Id* Act ----------------------------+ 00778 M02S00426.ns2623 ---| 00779 M01S00006.ns2623 +++| PSCHAR, PSOP, PSWORK, PSECHO; 00780 M01S00007.ns2623 +++| SWITCH POSPARMSW PSOP, PSFILE, PSOP, PSINP, PSLST, PSPROC, PSWORK, 00781 M01S00008.ns2623 +++| PSECHO; 00782 M01S00427.fsemain +++| ITEM TMP1, TMP2, TMP3, TMP4, QUIT B, KEYPARM, POSPARM; 00783 M01S00428.fsemain +++| 00784 M01S00429.fsemain +++| TRYRESUME=TRUE; 00785 M01S00430.fsemain +++| KEYPARM=0; 00786 M01S00431.fsemain +++| POSPARM=0;
Line S00432 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | fsema2 |
Seq # *Modification Id* Act ----------------------------+ 00787 M02S00432.fsema2 ---| TMP1=2;
Line S00433 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | fsema2 |
Seq # *Modification Id* Act ----------------------------+ 00788 M02S00433.fsema2 ---| WHYLE MEM[TMP1] NQ 0 AND TMP1 LS O"63" DO 00789 M01S00001.fsema2 +++| FOR TMP1=2 STEP 1 UNTIL 1+B<42,18>MEM[O"64"] DO
Line S00434 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | fsema8 |
Seq # *Modification Id* Act ----------------------------+ 00790 M02S00434.fsema8 ---| BEGIN 00791 M01S00001.fsema8 +++| BEGIN # UNTIL PARAMETERS EXHAUSTED # 00792 M01S00435.fsemain +++| TOKENSYM=PADNAME(MEM[TMP1]); 00793 M01S00436.fsemain +++| IF B<42,18>MEM[TMP1] EQ 2 OR B<42,18>MEM[TMP1] EQ O"54" THEN
Line S00437 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | fsema8 |
Seq # *Modification Id* Act ----------------------------+ 00794 M02S00437.fsema8 ---| BEGIN # KEYWORD ASSIGNMENT #
Line S00438 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | fsema8 |
Seq # *Modification Id* Act ----------------------------+ 00795 M02S00438.fsema8 ---| FOR TMP2=0 STEP 1 UNTIL MAXPARMS DO IF TOKENSYM EQ
Line S00439 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | fsema8 |
Seq # *Modification Id* Act ----------------------------+ 00796 M02S00439.fsema8 ---| PARMKEY[TMP2] THEN KEYPARM=TMP2; 00797 M01S00002.fsema8 +++| BEGIN # KEYWORD ASSIGNMENT # 00798 M01S00003.fsema8 +++| IF KEYPARM NQ 0 THEN 00799 M01S00004.fsema8 +++| BEGIN # IF BAD ASSIGNMENT # 00800 M01S00005.fsema8 +++| MORTAL(" UNRECOGNIZED FSE COMMAND SYNTAX.$"); 00801 M01S00006.fsema8 +++| END 00802 M01S00007.fsema8 +++| FOR TMP2=0 STEP 1 UNTIL MAXPARMS DO 00803 M01S00008.fsema8 +++| BEGIN # SEARCH FOR MATCH # 00804 M01S00009.fsema8 +++| IF TOKENSYM EQ PARMKEY[TMP2] THEN KEYPARM=TMP2; 00805 M01S00010.fsema8 +++| END 00806 M01S00011.fsema8 +++| IF KEYPARM EQ 0 THEN 00807 M01S00012.fsema8 +++| BEGIN # NO MATCH FOUND # 00808 M01S00013.fsema8 +++| ERRSTRING = " UNKNOWN FSE OPTION : "; 00809 M01S00014.fsema8 +++| C<22,7>ERRSTRING = C<0,7>TOKENSYM; 00810 M01S00015.fsema8 +++| C<29,1>ERRSTRING = "$"; 00811 M01S00016.fsema8 +++| MORTAL(ERRSTRING); 00812 M01S00017.fsema8 +++| END 00813 M01S00440.fsemain +++| END
Line S00441 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | fsema8 |
Seq # *Modification Id* Act ----------------------------+ 00814 M02S00441.fsema8 ---| ELSE # STANDALONE PARAMETER #
Line S00442 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | fsema8 |
Seq # *Modification Id* Act ----------------------------+ 00815 M02S00442.fsema8 ---| BEGIN 00816 M01S00018.fsema8 +++| ELSE 00817 M01S00019.fsema8 +++| BEGIN # PARAMETER # 00818 M01S00443.fsemain +++| IF KEYPARM NQ 0 THEN GOTO KEYPARMSW[KEYPARM]; 00819 M01S00444.fsemain +++| POSPARM=POSPARM+1; 00820 M01S00020.fsema8 +++| IF POSPARM GR MAXPARMS - 1 THEN 00821 M01S00021.fsema8 +++| BEGIN # IF TOO MANY PARAMETERS # 00822 M01S00022.fsema8 +++| MORTAL(" TOO MANY FSE COMMAND PARAMETERS.$"); 00823 M01S00023.fsema8 +++| END 00824 M01S00024.fsema8 +++| TMP2 = B<42,18>MEM[TMP1]; 00825 M01S00025.fsema8 +++| IF TMP2 NQ 0 AND TMP2 NQ 1 AND TMP2 NQ 2 AND TMP2 NQ O"17" THEN 00826 M01S00026.fsema8 +++| BEGIN # IF BAD SYNTAX # 00827 M01S00027.fsema8 +++| MORTAL(" UNRECOGNIZED FSE COMMAND SYNTAX.$"); 00828 M01S00028.fsema8 +++| END 00829 M01S00445.fsemain +++| IF B<0,42>MEM[TMP1] NQ 0 THEN GOTO POSPARMSW[POSPARM]; 00830 M01S00446.fsemain +++| GOTO NEXTPARM; 00831 M01S00447.fsemain +++| 00832 M01S00448.fsemain +++|PSFILE: 00833 M01S00449.fsemain +++| FILENAM[1]=C<0,7>MEM[TMP1]; 00834 M01S00450.fsemain +++| TRYRESUME=FALSE; 00835 M01S00451.fsemain +++| GOTO NEXTPARM; 00836 M01S00452.fsemain +++| 00837 M01S00453.fsemain +++|PSINP: 00838 M01S00454.fsemain +++| INPTNAM=C<0,7>MEM[TMP1]; 00839 M01S00455.fsemain +++| GOTO NEXTPARM; 00840 M01S00456.fsemain +++| 00841 M01S00457.fsemain +++|PSLST: 00842 M01S00458.fsemain +++| OUTPNAM=C<0,7>MEM[TMP1]; 00843 M01S00459.fsemain +++| GOTO NEXTPARM; 00844 M01S00460.fsemain +++| 00845 M01S00461.fsemain +++|PSPROC: 00846 M01S00462.fsemain +++| PROCNAM=C<0,7>MEM[TMP1]; 00847 M01S00463.fsemain +++| GOTO NEXTPARM; 00848 M01S00464.fsemain +++| 00849 M01S00465.fsemain +++|PSWORK: 00850 M01S00466.fsemain +++| WORKNAM=C<0,7>MEM[TMP1]; 00851 M01S00467.fsemain +++| GOTO NEXTPARM; 00852 M01S00468.fsemain +++| 00853 M01S00009.ns2623 +++|PSECHO: 00854 M01S00010.ns2623 +++| FOR TOKENLEN=7 STEP -1 WHILE TOKENLEN GR 0 DO 00855 M01S00011.ns2623 +++| BEGIN 00856 M01S00012.ns2623 +++| IF C<TOKENLEN-1,1>TOKENSYM NQ " " THEN GOTO PSECH2; 00857 M01S00013.ns2623 +++| END 00858 M01S00014.ns2623 +++|PSECH2: 00859 M01S00015.ns2623 +++| KEYWDNDX=-1; 00860 M01S00016.ns2623 +++| KEYWDTYPE=3; 00861 M01S00017.ns2623 +++| MATCHKEY(TMP2); 00862 M01S00018.ns2623 +++| IF KEYWDNDX EQ KEYST"STNO" THEN ECHOOFF=TRUE; 00863 M01S00019.ns2623 +++| ELSE IF KEYWDNDX EQ KEYST"SYES" THEN ECHOOFF=FALSE; 00864 M01S00020.ns2623 +++| ELSE MORTAL(" UNKNOWN FSE COMMAND OPTION.$"); 00865 M01S00021.ns2623 +++| GOTO NEXTPARM; 00866 M01S00022.ns2623 +++| 00867 M01S00469.fsemain +++|PSDFLT: PSCHAR: PSOP: 00868 M01S00470.fsemain +++| FOR TOKENLEN=7 STEP -1 WHILE TOKENLEN GR 0 DO 00869 M01S00471.fsemain +++| BEGIN 00870 M01S00472.fsemain +++| IF C<TOKENLEN-1,1>TOKENSYM NQ " " THEN GOTO PSOP2; 00871 M01S00473.fsemain +++| END 00872 M01S00474.fsemain +++|PSOP2: 00873 M01S00475.fsemain +++| KEYWDNDX=-1; 00874 M01S00476.fsemain +++| KEYWDTYPE=4; 00875 M01S00477.fsemain +++| MATCHKEY(TMP2); 00876 M01S00478.fsemain +++| IF KEYWDNDX EQ KEYST"XGET" THEN GETPARM=2; 00877 M01S00479.fsemain +++| ELSE IF KEYWDNDX EQ KEYST"XDIS" OR KEYWDNDX EQ KEYST"XNOR" 00878 M01S00480.fsemain +++| THEN CHARPARM=1; 00879 M01S00481.fsemain +++| ELSE IF KEYWDNDX EQ KEYST"XASC" THEN CHARPARM=2; 00880 M01S00482.fsemain +++| ELSE IF KEYWDNDX EQ KEYST"XASC8" OR KEYWDNDX EQ KEYST"XA8" 00881 M01S00483.fsemain +++| THEN CHARPARM=3; 00882 M01S00484.fsemain +++| ELSE MORTAL(" UNKNOWN FSE COMMAND OPTION.$"); 00883 M01S00485.fsemain +++| TOKENSYM=C<TMP2,10-TMP2>TOKENSYM; 00884 M01S00486.fsemain +++| TOKENLEN=TOKENLEN-TMP2; 00885 M01S00487.fsemain +++| IF TOKENLEN GR 0 THEN GOTO PSOP2; 00886 M01S00488.fsemain +++| 00887 M01S00489.fsemain +++|NEXTPARM: 00888 M01S00490.fsemain +++| KEYPARM=0; 00889 M01S00491.fsemain +++| 00890 M01S00492.fsemain +++| END
Line S00493 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | fsema2 |
Seq # *Modification Id* Act ----------------------------+ 00891 M02S00493.fsema2 ---| TMP1=TMP1+1; 00892 M01S00494.fsemain +++| END 00893 M01S00495.fsemain +++| 00894 M01S00496.fsemain +++| END # OF CRACKCTL # 00895 M01S00497.fsemain +++| 00896 M01S00498.fsemain +++| 00897 M01S00499.fsemain +++|PROC BLDINIT; 00898 M01S00500.fsemain +++| BEGIN 00899 M01S00501.fsemain +++|# 00900 M01S00502.fsemain +++|** BLDINIT - INITIALIZE EDIT SESSION. 00901 M01S00503.fsemain +++|* 00902 M01S00504.fsemain +++|* ENTRY EVERYTHING DEFAULTED. 00903 M01S00505.fsemain +++|*
Line S00506 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | fsema15 |
Seq # *Modification Id* Act ----------------------------+ 00904 M02S00506.fsema15 ---|* EXIT OLD SESION RESUMED OR NEW SESSION STARTED. 00905 M01S00001.fsema15 +++|* EXIT OLD SESSION RESUMED OR NEW SESSION STARTED. 00906 M01S00507.fsemain +++|* ERRSTRING - ANNOUNCEMENT OF THE DAY. 00907 M01S00508.fsemain +++|* P<CORE> - ZERO. 00908 M01S00509.fsemain +++|* NUMMODE - CONTROLS EMPTY FILE SEQUENCE ASSUMPTION. 00909 M01S00510.fsemain +++|* P<FET,OBF,READLST,BFPRU,DISK,FILEBUF> - INIT. 00910 M01S00511.fsemain +++|* CONTROL STATEMENT SCANNED. 00911 M01S00512.fsemain +++|* FILENAM[1] - FIRST FILE TO EDIT. 00912 M01S00513.fsemain +++|* INPTNAM, OUTPNAM, WORKNAM, PROCNAM - FILE NAMES. 00913 M01S00514.fsemain +++|* IORESUMED - TRUE. 00914 M01S00515.fsemain +++|* NULLINPUT - WHETHER THERE IS ANY INPUT FILE. 00915 M01S00516.fsemain +++|* INTERACT - WHETHER TRUE INTERACTIVE SESSION. 00916 M01S00517.fsemain +++|* ALLASCII - WHETHER DISPLAY CODE OR 6/12 ASCII DEFAULT. 00917 M01S00518.fsemain +++|* TTYINPUT - WHETHER INPUT IS FROM A TERMINAL. 00918 M01S00519.fsemain +++|* WORKFILE ACCESS VALIDATED. 00919 M01S00520.fsemain +++|* DEFAULT PROCEDURE FILE ACCESSED IF NEEDED. 00920 M01S00521.fsemain +++|* SINGLEONLY - WHETHER TO SUPPRESS MULTI-USER. 00921 M01S00522.fsemain +++|* CMDLIN - CLEARED OR BUILT-IN FIRST COMMAND. 00922 M01S00523.fsemain +++|* SCANPOS, TOKENPOS - SET TO START SYNTAX SCAN. 00923 M01S00524.fsemain +++|* SMALLFIELD - TRUE, AND FIELD LENGTH REDUCED. 00924 M01S00525.fsemain +++|* USER BREAKS DISABLED IF INTERACT. 00925 M01S00526.fsemain +++|* 00926 M01S00527.fsemain +++|* MACROS SETCHAR. 00927 M01S00528.fsemain +++|* 00928 M01S00529.fsemain +++|* CALLS GETSS, GETJO, CRACKCTL, TSTATUS, TTEQUIP, 00929 M01S00530.fsemain +++|* VDTOPN, TTINIT, WRITEABLE, FATAL, VFYFILE, 00930 M01S00531.fsemain +++|* ASSGNFILE, MAKEFET, GET, READ, LOCALFILE, 00931 M01S00532.fsemain +++|* RESUMEFILES, FILBUILD, PAUSEIO, FLDLEN, STARTCMD, 00932 M01S00533.fsemain +++|* DISTCON. 00933 M01S00534.fsemain +++|* 00934 M01S00535.fsemain +++|* USES PFMFET, CHARPARM, GETPARM, DSKSIZ, SETCMD(INTERNAL). 00935 M01S00536.fsemain +++|# 00936 M01S00537.fsemain +++| ITEM TMP1, TMP2, TMP3; 00937 M01S00538.fsemain +++|
Line S00539 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00938 M02S00539.v23l617 ---|
Line S00540 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00939 M02S00540.v23l617 ---| PROC SETCMD(STR,LEN,OFFSET);
Line S00541 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00940 M02S00541.v23l617 ---| BEGIN
Line S00542 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00941 M02S00542.v23l617 ---| ITEM STR C(40);
Line S00543 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00942 M02S00543.v23l617 ---| ITEM LEN, OFFSET;
Line S00544 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00943 M02S00544.v23l617 ---| ITEM TMP1, TMP2;
Line S00545 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00944 M02S00545.v23l617 ---| TMP2=0;
Line S00546 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00945 M02S00546.v23l617 ---| FOR TMP1=1 STEP 1 UNTIL LEN DO
Line S00547 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00946 M02S00547.v23l617 ---| BEGIN
Line S00548 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00947 M02S00548.v23l617 ---| C<9,1>TMP2=C<TMP1-1,1>STR;
Line S00549 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00948 M02S00549.v23l617 ---| IF TMP2 EQ 0 THEN C<9,1>TMP2=" ";
Line S00550 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00949 M02S00550.v23l617 ---| SETCHAR(CMDLINE,OFFSET+TMP1-1,TMP2);
Line S00551 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00950 M02S00551.v23l617 ---| END
Line S00552 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00951 M02S00552.v23l617 ---| END # OF SETCMD #
Line S00553 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00952 M02S00553.v23l617 ---|
Line S00554 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00953 M02S00554.v23l617 ---|
Line S00555 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00954 M02S00555.v23l617 ---| # MAIN CODE STARTS HERE #
Line S00556 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00955 M02S00556.v23l617 ---| 00956 M01S00557.fsemain +++| ERRSTRING="NOS FULL SCREEN EDITOR$"; 00957 M01S00558.fsemain +++| P<CORE>=0; 00958 M01S00001.ns2167 +++| IF B<00,01>MEM[CSMR] EQ 0 THEN # IF SYSTEM CHARACTER SET = 63 # 00959 M01S00002.ns2167 +++| BEGIN 00960 M01S00003.ns2167 +++| XLTINTXP[O"00"]=O"4045"; # COLON = PERCENT # 00961 M01S00004.ns2167 +++| XLTINTXP[O"63"]=O"4072"; # PERCENT = COLON # 00962 M01S00005.ns2167 +++| XLTDSPXP[O"00"]=O"4045"; # COLON = PERCENT # 00963 M01S00006.ns2167 +++| XLTDSPXP[O"63"]=O"4072"; # PERCENT = COLON # 00964 M01S00007.ns2167 +++| XLTDSPINT[O"00"]=O"0063"; # COLON = PERCENT # 00965 M01S00008.ns2167 +++| XLTDSPINT[O"63"]=O"0000"; # PERCENT = COLON # 00966 M01S00009.ns2167 +++| XLTXPINT[O"45"]=O"0000"; # PERCENT = COLON # 00967 M01S00010.ns2167 +++| XLTXPINT[O"72"]=O"0063"; # COLON = PERCENT # 00968 M01S00011.ns2167 +++| XLTINTDSP[O"00"]=O"0055"; # COLON = BLANK # 00969 M01S00012.ns2167 +++| END 00970 M01S00559.fsemain +++| NUMMODE=NUMST"INTERPRET"; 00971 M01S00560.fsemain +++| GETSS(TMP1); 00972 M01S00561.fsemain +++| GETJO(ORIGIN); 00973 M01S00562.fsemain +++| IF TMP1 EQ BASIC THEN NUMMODE=NUMST"PREFER"; 00974 M01S00563.fsemain +++| IF TMP1 EQ FORTRAN OR TMP1 EQ FTNTS THEN 00975 M01S00564.fsemain +++| BEGIN 00976 M01S00565.fsemain +++| NUMMODE=NUMST"PREFER"; 00977 M01S00566.fsemain +++| BLANKS=0; 00978 M01S00567.fsemain +++| END 00979 M01S00568.fsemain +++| P<FET>=LOC(SNGLFET); 00980 M01S00569.fsemain +++| P<OBF>=LOC(SNGLOBF); 00981 M01S00570.fsemain +++| P<READLST>=LOC(SNGLLST); 00982 M01S00571.fsemain +++| P<BFPRU>=LOC(SNGLPRU); 00983 M01S00572.fsemain +++| P<DISK>=LOC(WORKBUF); 00984 M01S00573.fsemain +++| P<FILEBUF>=LOC(BUILDBF); 00985 M01S00574.fsemain +++| LINE[0]=NULLIN; 00986 M01S00575.fsemain +++| CMDLINE[0]=NULLIN; 00987 M01S00576.fsemain +++| TTYLINE[0]=NULLIN; 00988 M01S00577.fsemain +++| CRACKCTL; 00989 M01S00578.fsemain +++| 00990 M01S00579.fsemain +++| IF OUTPNAM EQ DEFOUTNAM AND FILENAM[1] EQ DEFOUTNAM 00991 M01S00580.fsemain +++| THEN B<0,42>OUTPNAM=0; 00992 M01S00581.fsemain +++| IF OUTPNAM EQ NULLNAM THEN B<0,42>OUTPNAM=0; 00993 M01S00582.fsemain +++| IF INPTNAM EQ NULLNAM THEN 00994 M01S00583.fsemain +++| BEGIN 00995 M01S00584.fsemain +++| B<0,42>INPTNAM=0; 00996 M01S00585.fsemain +++| NULLINPUT=TRUE; 00997 M01S00586.fsemain +++| END 00998 M01S00587.fsemain +++| IF FILENAM[1] EQ NULLNAM 00999 M01S00588.fsemain +++| OR (GETPARM EQ 3 AND NOT TRYRESUME) THEN TRYRESUME=TRUE; 01000 M01S00589.fsemain +++| 01001 M01S00590.fsemain +++| INTERACT=FALSE; 01002 M01S00591.fsemain +++| IF ORIGIN EQ TXOT THEN 01003 M01S00592.fsemain +++| BEGIN 01004 M01S00593.fsemain +++| INTERACT=TRUE; 01005 M01S00594.fsemain +++| TSTATUS(TSTATAREA); 01006 M01S00595.fsemain +++| FORMERASCII=CURRENTASC; 01007 M01S00596.fsemain +++| ALLASCII=INITASCII; 01008 M01S00597.fsemain +++| END 01009 M01S00598.fsemain +++| TTYINPUT=INTERACT AND TTEQUIP(INPTNAM);
Line S00599 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | ns2132 |
Seq # *Modification Id* Act ----------------------------+ 01010 M02S00599.ns2132 ---| INTERACT=INTERACT AND TTYINPUT AND TTEQUIP(OUTPNAM); 01011 M01S00001.ns2132 +++| TTYOUTPUT=INTERACT AND TTEQUIP(OUTPNAM); 01012 M01S00002.ns2132 +++| INTERACT=INTERACT AND TTYINPUT AND TTYOUTPUT; 01013 M01S00600.fsemain +++| VDTOPN; 01014 M01S00601.fsemain +++| TTINIT; 01015 M01S00602.fsemain +++| IF NOT (WRITEABLE(WORKNAM) AND WRITEABLE("ZZZMOVE"))
Line S00603 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | fsema4 |
Seq # *Modification Id* Act ----------------------------+ 01016 M02S00603.fsema4 ---| THEN MORTAL(" FILE MUST BE ON DISK.$"); 01017 M01S00001.fsema4 +++| THEN MORTAL(" WORKFILE MUST BE WRITABLE.$");
Line S00001 Modification History | |
---|---|
M01 (Added by) | ns2626 |
M02 (Updated by) | fsema16 |
Seq # *Modification Id* Act ----------------------------+ 01018 M02S00001.fsema16 ---| WORKORG = WORKNAM; # SAVE FOR USE IN &Z MICRO #
Line S00604 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | fsema15 |
Seq # *Modification Id* Act ----------------------------+ 01019 M02S00604.fsema15 ---| VFYFILE(FILENAM[1],-1); 01020 M01S00002.fsema15 +++| IF FILENAM[1] NQ " " THEN VFYFILE(FILENAM[1],-1); 01021 M01S00605.fsemain +++| 01022 M01S00606.fsemain +++| IF NOT ASSGNFILE(PROCNAM) THEN 01023 M01S00607.fsemain +++| BEGIN 01024 M01S00608.fsemain +++| PF("GET",PROCNAM,PROCNAM,"RC",PFMERROR,0); 01025 M01S00609.fsemain +++| IF PROCNAM EQ "FSEPROC" AND PFMERROR NQ 0 THEN 01026 M01S00610.fsemain +++| BEGIN
Line S00611 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | ns2247 |
Seq # *Modification Id* Act ----------------------------+ 01027 M02S00611.ns2247 ---| PF("GET",PROCNAM,PROCNAM,"RC",PFMERROR,"UN",HELPUSERNUM,0); 01028 M01S00001.ns2247 +++| PF("GET",PROCNAM,PROCNAM,"RC",PFMERROR,"UN",HELPUSERNUM,"PN","0",0); 01029 M01S00612.fsemain +++| END 01030 M01S00613.fsemain +++| IF PFMERROR NQ 0 THEN 01031 M01S00614.fsemain +++| BEGIN 01032 M01S00615.fsemain +++| MAKEFET(PFMFET,PROCNAM,UTILBUF,MINIBUFSIZ); 01033 M01S00616.fsemain +++| READ(PFMFET,1); # ASSIGN NULL FILE # 01034 M01S00617.fsemain +++| END 01035 M01S00618.fsemain +++| END 01036 M01S00619.fsemain +++| 01037 M01S00620.fsemain +++| DSKSIZ=INIDSKSIZ; # NOW BUILD OR RESUME # 01038 M01S00621.fsemain +++| 01039 M01S00622.fsemain +++| # NOTE RESUMEFILES WILL CLEAR TRYRESUME IF UNABLE, THUS IT # 01040 M01S00623.fsemain +++| # IS NECESSARY TO INTERROGATE TRYRESUME AGAIN AFTERWARDS # 01041 M01S00624.fsemain +++| IF TRYRESUME THEN RESUMEFILES; 01042 M01S00625.fsemain +++| IF NOT TRYRESUME THEN 01043 M01S00626.fsemain +++| BEGIN # NO RESUME ATTEMPT OR ATTEMPT FAILED #
Line S00627 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | ns2132 |
Seq # *Modification Id* Act ----------------------------+ 01044 M02S00627.ns2132 ---| IF FILENAM[1] EQ " " THEN 01045 M01S00003.ns2132 +++| IF FILENAM[1] EQ " " AND INTERACT THEN 01046 M01S00628.fsemain +++| BEGIN 01047 M01S00629.fsemain +++| TTSTR("WHICH FILE$"); 01048 M01S00630.fsemain +++| PROMPT(QCCKWRD); 01049 M01S00631.fsemain +++| CONVIN(TTYLIN,2); 01050 M01S00632.fsemain +++| TRIM(TTYLIN,0); 01051 M01S00633.fsemain +++| TMP3=0; 01052 M01S00634.fsemain +++| FOR TMP1=0 STEP 1 UNTIL LENGTH(TTYLIN)-1 DO 01053 M01S00635.fsemain +++| BEGIN 01054 M01S00636.fsemain +++| GETCHAR(TTYLINE,TMP1,TMP2); 01055 M01S00637.fsemain +++| # CODE ASSUMES INTERNAL CHARSET EQUALS DISPLAY CODE # 01056 M01S00638.fsemain +++| CONTROL IFNQ CLETTERA,1; DEFERROR; CONTROL FI; 01057 M01S00639.fsemain +++| CONTROL IFNQ CDIGIT0,O"33"; DEFERROR; CONTROL FI; 01058 M01S00640.fsemain +++| IF TMP2 GQ CLOWERA AND TMP2 LQ CLOWERZ 01059 M01S00641.fsemain +++| THEN TMP2=TMP2-CLOWERA+CLETTERA; 01060 M01S00642.fsemain +++| IF NOT DELIMITER[TMP2] AND TMP3 LQ 6 THEN 01061 M01S00643.fsemain +++| BEGIN 01062 M01S00644.fsemain +++| C<TMP3,1>FILENAM[1]=C<9,1>TMP2; 01063 M01S00645.fsemain +++| TMP3=TMP3+1; 01064 M01S00646.fsemain +++| END 01065 M01S00647.fsemain +++| ELSE IF TMP2 NQ CBLANK THEN MORTAL("INVALID FILE NAME$"); 01066 M01S00648.fsemain +++| END
Line S00649 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | ns2132 |
Seq # *Modification Id* Act ----------------------------+ 01067 M02S00649.ns2132 ---| IF FILENAM[1] EQ " " THEN
Line S00650 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | ns2132 |
Seq # *Modification Id* Act ----------------------------+ 01068 M02S00650.ns2132 ---| BEGIN
Line S00651 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | ns2132 |
Seq # *Modification Id* Act ----------------------------+ 01069 M02S00651.ns2132 ---| MORTAL(" NO FILE NAME ON FSE COMMAND.$");
Line S00652 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | ns2132 |
Seq # *Modification Id* Act ----------------------------+ 01070 M02S00652.ns2132 ---| END 01071 M01S00653.fsemain +++| VFYFILE(FILENAM[1],-1); 01072 M01S00004.ns2132 +++| END 01073 M01S00005.ns2132 +++| IF FILENAM[1] EQ " " THEN 01074 M01S00006.ns2132 +++| BEGIN 01075 M01S00007.ns2132 +++| MORTAL(" NO FILE NAME ON FSE COMMAND.$"); 01076 M01S00654.fsemain +++| END 01077 M01S00655.fsemain +++| FILBUILD;
Line S00656 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01078 M02S00656.v23l617 ---| FOR TMP1=0 STEP 1 UNTIL 27 DO SETCHAR(CMDLINE,TMP1,CBLANK);
Line S00657 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01079 M02S00657.v23l617 ---| SETCHAR(CMDLINE,28,CENDLINE); 01080 M01S00042.v23l617 +++| FOR TMP1=0 STEP 1 UNTIL 20 DO SETCHAR(CMDLINE,TMP1,CBLANK); 01081 M01S00043.v23l617 +++| SETCHAR(CMDLINE,21,CENDLINE);
Line S00658 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01082 M02S00658.v23l617 ---| # START OF MODIFY CONDITIONAL SEQUENCE #
Line S00659 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01083 M02S00659.v23l617 ---|*IF UNDEF,RETRO 01084 M01S00660.fsemain +++| IF INTERACT THEN
Line S00661 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | ns2404 |
Seq # *Modification Id* Act ----------------------------+ 01085 M02S00661.ns2404 ---| BEGIN 01086 M01S00007.ns2404 +++| BEGIN # IF INTERACTIVE # 01087 M01S00662.fsemain +++| VDTGSL(TMP1,TMP2); # GET SCREEN/LINE MODE # 01088 M01S00663.fsemain +++| IF TMP2 NQ 0 THEN # SCREEN MODE # 01089 M01S00664.fsemain +++| BEGIN
Line S00665 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01090 M02S00665.v23l617 ---| VDTGTN(TMP1,TMP2); # GET TERMINAL NAME #
Line S00666 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01091 M02S00666.v23l617 ---| SETCMD("SET SCREEN ",11,0); # CONSTRUCT SETSCREEN COMMAND #
Line S00667 Modification History | |
---|---|
M01 (Added by) | fsemain |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01092 M02S00667.v23l617 ---| SETCMD(TMP2,7,11);
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/fsemain.txt ยท Last modified: by 127.0.0.1