Seq # *Modification Id* Act
----------------------------+
00001 M01S00001.termio +++|PROC TERMIO;
00002 M01S00002.termio +++|# TITLE TERMIO - TERMINAL INPUT/OUTPUT MODULE. #
00003 M01S00003.termio +++|
00004 M01S00004.termio +++| BEGIN # TERMIO #
00005 M01S00005.termio +++|
00006 M01S00006.termio +++|#
00007 M01S00007.termio +++|*** TERMIO - TERMINAL INPUT/OUTPUT MODULE.
00008 M01S00008.termio +++|*
00009 M01S00009.termio +++|* *TERMIO* PROVIDES FETS, CIRCULAR BUFFERS, AND FUNDAMENTAL
00010 M01S00010.termio +++|* I/O MACROS FOR THE FULL SCREEN EDITOR AND FOR PRODUCTS
00011 M01S00011.termio +++|* BUILT ON THE VIRTUAL DISPLAY TERMINAL OBJECT ROUTINES.
00012 M01S00012.termio +++|*
00013 M01S00013.termio +++|* FOR THE FULL SCREEN EDITOR, *TERMIO* MAPS STORAGE INTO THE
00014 M01S00014.termio +++|* GLOBAL COMMON BLOCK AND GENERATES CODE APPROPRIATE TO THE
00015 M01S00015.termio +++|* SINGLE AND MULTI USER VERSIONS OF THE EDITOR. FOR OTHER
00016 M01S00016.termio +++|* PRODUCTS, *TERMIO* STANDS ALONE.
00017 M01S00017.termio +++|*
00018 M01S00018.termio +++|* PROC TERMIO
00019 M01S00019.termio +++|*
00020 M01S00020.termio +++|* ENTRY OBJECT ROUTINE CALLED.
00021 M01S00021.termio +++|*
00022 M01S00022.termio +++|* EXIT OBJECT ROUTINE EXECUTED.
00023 M01S00023.termio +++|*
00024 M01S00024.termio +++|* NOTES THE *TERMIO* ROUTINES ALLOW USE OF BOTH *FORTRAN*
00025 M01S00025.termio +++|* AND *COBOL* CALLING SEQUENCES.
00026 M01S00026.termio +++|*
| Line S00027 Modification History |
M01 (Added by) | termio |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00027 M02S00027.281l803 ---|* COPYRIGHT CONTROL DATA CORPORATION, 1983.
00028 M01S00001.281l803 +++|* COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00029 M01S00028.termio +++|#
00030 M01S00029.termio +++|
00031 M01S00030.termio +++|# START OF MODIFY CONDITIONAL SEQUENCE #
00032 M01S00031.termio +++|*IF DEF,EDITOR
00033 M01S00032.termio +++|DEF LISTCON #0#; # DO NOT LIST COMDECKS #
00034 M01S00033.termio +++|*ELSE
00035 M01S00034.termio +++|DEF LISTCON #1#; # LIST COMDECKS #
00036 M01S00035.termio +++|*ENDIF
00037 M01S00036.termio +++|# END OF MODIFY CONDITIONAL #
00038 M01S00037.termio +++|
00039 M01S00038.termio +++|*IFCALL SINGLE,COMFSGL
00040 M01S00039.termio +++|*IFCALL ONLY,COMFONL
00041 M01S00040.termio +++|*IFCALL MULTI,COMFMLT
00042 M01S00041.termio +++|*IFCALL EDITOR,COMFFSE
00043 M01S00042.termio +++|
00044 M01S00043.termio +++|# START OF CODE SEQUENCE CONDITIONALLY PRODUCED BY MODIFY UTILITY #
00045 M01S00044.termio +++|
00046 M01S00045.termio +++|*NIFCALL EDITOR,COMFTIO
00047 M01S00046.termio +++|*IF UNDEF,EDITOR
00048 M01S00047.termio +++|DEF SINGLE #1#; # SINGLE-USER VERSION #
00049 M01S00048.termio +++|DEF MULTI #0#; # NOT MULTI-USER VERSION #
00050 M01S00049.termio +++|DEF EDITORVDT #0#; # STANDALONE VERSION OF VIRTERM #
00051 M01S00050.termio +++|DEF IOBEGIN(XXX) #BEGIN#; # BEGIN COMPOUND STATEMENT #
00052 M01S00051.termio +++|DEF IOEND #END#; # END COMPOUND STATEMENT #
00053 M01S00052.termio +++|DEF IORET #RETURN;#; # EXIT FROM SUBPROGRAM #
00054 M01S00053.termio +++|CONTROL PRESET;
00055 M01S00054.termio +++|*ENDIF
00056 M01S00001.242l642 +++|
00057 M01S00002.242l642 +++|*IF UNDEF,QTRM
00058 M01S00003.242l642 +++|DEF QTRMV #0#; # NOT QTRM VERSION #
00059 M01S00004.242l642 +++|*ELSE
00060 M01S00005.242l642 +++|DEF QTRMV #1#; # QTRM VERSION #
00061 M01S00006.242l642 +++|*ENDIF
00062 M01S00055.termio +++|
00063 M01S00056.termio +++|# END OF MODIFY CONDITIONAL #
00064 M01S00057.termio +++|
00065 M01S00058.termio +++| # COMMON DATA #
00066 M01S00059.termio +++|
00067 M01S00060.termio +++|CONTROL IFEQ MULTI,1;
00068 M01S00061.termio +++| XREF ARRAY RENTSTK [1:MAXREENT] P(1); # SUBROUTINE STACK #
00069 M01S00062.termio +++| BEGIN # ARRAY RENTSTK #
00070 M01S00063.termio +++| ITEM RSTK I; # STACK WORD #
00071 M01S00064.termio +++| END # ARRAY RENTSTK #
00072 M01S00065.termio +++| XREF ITEM RSTKPTR I; # STACK POINTER #
00073 M01S00066.termio +++|CONTROL FI;
00074 M01S00067.termio +++|
00075 M01S00068.termio +++|CONTROL IFEQ MULTI,1;
00076 M01S00069.termio +++| XREF
00077 M01S00070.termio +++| BEGIN
00078 M01S00071.termio +++| PROC TTITRAP; # TELETYPE INPUT TRAP #
00079 M01S00072.termio +++| PROC TTOTRAP; # TELETYPE OUTPUT TRAP #
00080 M01S00073.termio +++| PROC VOLUNTEER; # VOLUNTEER PREEMPTIVE SWAPPING #
00081 M01S00074.termio +++| FUNC NOSWDSZ; # NOS WORD SIZE #
00082 M01S00075.termio +++| END
00083 M01S00076.termio +++|CONTROL FI;
00084 M01S00077.termio +++|
00085 M01S00078.termio +++|XREF
00086 M01S00079.termio +++| BEGIN
00087 M01S00080.termio +++|*IFCALL EDITOR,COMFXSB
00088 M01S00081.termio +++| CONTROL IFEQ SINGLE,1;
00089 M01S00082.termio +++| PROC VDTLOF$; # SET LIST OF FILES #
00090 M01S00083.termio +++| PROC VDTRD$; # READ AFTER EOR #
00091 M01S00084.termio +++| PROC VDTREC$; # READ CODED LINE #
00092 M01S00085.termio +++| PROC VDTREO$; # READ ONE WORD #
00093 M01S00086.termio +++| PROC VDTWRC$; # WRITE CODED LINE #
00094 M01S00087.termio +++| PROC VDTWRO$; # CIO WRITE WORD #
00095 M01S00088.termio +++| PROC VDTWRR$; # WRITE EOR #
| Line S00089 Modification History |
M01 (Added by) | termio |
M02 (Updated by) | ns2133 |
Seq # *Modification Id* Act
----------------------------+
00096 M02S00089.ns2133 ---| CONTROL FI;
| Line S00001 Modification History |
M01 (Added by) | ns2133 |
M02 (Updated by) | ns2175 |
Seq # *Modification Id* Act
----------------------------+
00097 M02S00001.ns2175 ---| CONTROL IFEQ EDITORVDT,0;
| Line S00002 Modification History |
M01 (Added by) | ns2133 |
M02 (Updated by) | ns2175 |
Seq # *Modification Id* Act
----------------------------+
00098 M02S00002.ns2175 ---| PROC VDTCLO$; # CLOSE CRM OUTPUT FILE #
| Line S00003 Modification History |
M01 (Added by) | ns2133 |
M02 (Updated by) | ns2175 |
Seq # *Modification Id* Act
----------------------------+
00099 M02S00003.ns2175 ---| PROC VDTOPN$; # OPEN CRM OUTPUT FILE #
| Line S00004 Modification History |
M01 (Added by) | ns2133 |
M02 (Updated by) | ns2175 |
Seq # *Modification Id* Act
----------------------------+
00100 M02S00004.ns2175 ---| CONTROL FI;
00101 M01S00001.ns2175 +++|*IF DEF,CRM
00102 M01S00002.ns2175 +++|
00103 M01S00003.ns2175 +++| # START OF MODIFY CONDITIONAL FOR TERMINAL OUTPUT. #
00104 M01S00004.ns2175 +++|
00105 M01S00005.ns2175 +++| PROC VDTCLO$; # CLOSE CRM OUTPUT FILE #
00106 M01S00006.ns2175 +++| PROC VDTOPN$; # OPEN CRM OUTPUT FILE #
00107 M01S00007.ns2175 +++|
00108 M01S00008.ns2175 +++| # END OF MODIFY CONDITIONAL FOR TERMINAL OUTPUT. #
00109 M01S00009.ns2175 +++|
00110 M01S00010.ns2175 +++|*ENDIF
00111 M01S00005.ns2133 +++| CONTROL FI;
00112 M01S00090.termio +++| END
00113 M01S00091.termio +++|
00114 M01S00092.termio +++|XDEF
00115 M01S00093.termio +++| BEGIN # COMFXTI #
00116 M01S00094.termio +++|*CALL COMFXTI
00117 M01S00095.termio +++| END # COMFXTI #
00118 M01S00096.termio +++|
00119 M01S00097.termio +++|
00120 M01S00098.termio +++| # COMMON DATA BLOCK #
00121 M01S00099.termio +++|*IFCALL EDITOR,COMFDS1
00122 M01S00100.termio +++|*IFCALL EDITOR,COMFVD2
00123 M01S00101.termio +++|*IFCALL EDITOR,COMFDS2
00124 M01S00102.termio +++|
00125 M01S00103.termio +++|*NIFCALL EDITOR,COMFVD1
00126 M01S00104.termio +++|*NIFCALL EDITOR,COMFVD2
00127 M01S00105.termio +++|*NIFCALL EDITOR,COMFVD3
00128 M01S00106.termio +++|CONTROL EJECT;
00129 M01S00107.termio +++|
00130 M01S00108.termio +++|PROC VDTFLS;
00131 M01S00109.termio +++|# TITLE VDTFLS - FLUSH OUTPUT BUFFER. #
00132 M01S00110.termio +++|
00133 M01S00111.termio +++| BEGIN # VDTFLS #
00134 M01S00112.termio +++|
00135 M01S00113.termio +++|#
00136 M01S00114.termio +++|** VDTFLS - FLUSH OUTPUT BUFFER.
00137 M01S00115.termio +++|*
00138 M01S00116.termio +++|* *VDTFLS* FLUSHES THE OUTPUT BUFFER.
00139 M01S00117.termio +++|*
00140 M01S00118.termio +++|* PROC VDTFLS
00141 M01S00119.termio +++|*
00142 M01S00120.termio +++|* EXIT TTYO - FET HAS RESET TO SHOW THE OUTPUT BUFFER
00143 M01S00121.termio +++|* EMPTY.
00144 M01S00122.termio +++|#
00145 M01S00123.termio +++|
00146 M01S00124.termio +++| CONTROL IFEQ SINGLE,1;
00147 M01S00125.termio +++| TTYOIN = TTYOOT; # SET IN EQUAL TO OUT #
00148 M01S00126.termio +++| CONTROL FI;
00149 M01S00127.termio +++|
00150 M01S00128.termio +++| END # VDTFLS #
00151 M01S00129.termio +++|CONTROL EJECT;
00152 M01S00130.termio +++|
00153 M01S00131.termio +++|PROC VDTDRN;
00154 M01S00132.termio +++|# TITLE VDTDRN - FLUSH THE INPUT BUFFER. #
00155 M01S00133.termio +++|
00156 M01S00134.termio +++| IOBEGIN(VDTDRN)
00157 M01S00135.termio +++|
00158 M01S00136.termio +++|#
00159 M01S00137.termio +++|** VDTDRN - FLUSH THE INPUT BUFFER.
00160 M01S00138.termio +++|*
00161 M01S00139.termio +++|* *VDTDRN* FLUSHES THE INPUT BUFFER.
00162 M01S00140.termio +++|*
00163 M01S00141.termio +++|* PROC VDTDRN
00164 M01S00142.termio +++|*
00165 M01S00143.termio +++|* EXIT TTYI - FET HAS EMPTY CIRCULAR BUFFER, IN EITHER
00166 M01S00144.termio +++|* SINGLE-EDITOR OR STANDALONE VERSION.
00167 M01S00145.termio +++|*
00168 M01S00146.termio +++|* CALLS TTITRAP (MULTI ONLY).
00169 M01S00147.termio +++|*
00170 M01S00148.termio +++|* USES TTILEN (MULTI ONLY).
00171 M01S00149.termio +++|#
00172 M01S00150.termio +++|
00173 M01S00151.termio +++| CONTROL IFEQ SINGLE,1;
00174 M01S00152.termio +++| TTYIOT=TTYIIN;
00175 M01S00153.termio +++| CONTROL FI;
00176 M01S00154.termio +++| CONTROL IFEQ MULTI,1;
00177 M01S00155.termio +++| TTILEN=-1;
00178 M01S00156.termio +++| TTITRAP;
00179 M01S00157.termio +++| CONTROL FI;
00180 M01S00158.termio +++|
00181 M01S00159.termio +++| IOEND # VDTDRN #
00182 M01S00160.termio +++|CONTROL EJECT;
00183 M01S00161.termio +++|
00184 M01S00162.termio +++|PROC VDTRDO(L);
00185 M01S00163.termio +++|# TITLE VDTRDO - READ ONE WORD OF INPUT. #
00186 M01S00164.termio +++|
00187 M01S00165.termio +++| IOBEGIN(VDTRDO)
00188 M01S00166.termio +++|
00189 M01S00167.termio +++|#
00190 M01S00168.termio +++|** VDTRDO - READ ONE WORD OF INPUT.
00191 M01S00169.termio +++|*
00192 M01S00170.termio +++|* *VDTRDO* READS ONE WORD OF INPUT INTO BUFFER *L*.
00193 M01S00171.termio +++|*
00194 M01S00172.termio +++|* PROC VDTRDO(L)
00195 M01S00173.termio +++|*
00196 M01S00174.termio +++|* ENTRY L - WORD TO BE READ INTO.
00197 M01S00175.termio +++|*
00198 M01S00176.termio +++|* CALLS READ, READO (SINGLE OR STANDALONE).
00199 M01S00177.termio +++|* MORTAL (SINGLE-EDITOR ONLY).
00200 M01S00178.termio +++|* TTITRAP, VOLUNTEER (MULTI-EDITOR ONLY).
00201 M01S00179.termio +++|*
00202 M01S00180.termio +++|* USES TTYI FET (SINGLE OR STANDALONE).
00203 M01S00181.termio +++|* TTIADDR, TTILEN (MULTI ONLY).
00204 M01S00182.termio +++|* TTYINPUT (SINGLE EDITOR ONLY)
00205 M01S00183.termio +++|#
00206 M01S00184.termio +++|
00207 M01S00185.termio +++| ARRAY L [0:0] P(1); # WORD TO BE READ INTO #
00208 M01S00186.termio +++| BEGIN # ARRAY L #
00209 M01S00187.termio +++| ITEM LL I; # LINE OF INPUT #
00210 M01S00188.termio +++| END # ARRAY L #
00211 M01S00189.termio +++|
00212 M01S00190.termio +++| CONTROL IFEQ MULTI,1;
00213 M01S00191.termio +++| TTIADDR=LOC(L);
00214 M01S00192.termio +++| TTILEN=1;
00215 M01S00193.termio +++| TTITRAP; # GET FROM SMFEX #
00216 M01S00194.termio +++| VOLUNTEER; # MOVE FAST IF LOW TTI #
00217 M01S00195.termio +++| CONTROL FI;
00218 M01S00196.termio +++|
00219 M01S00197.termio +++| CONTROL IFEQ SINGLE,1;
00220 M01S00198.termio +++| ITEM R I; # READ STATUS #
00221 M01S00199.termio +++| LL = 0; # EMPTY LINE BY DEFAULT #
00222 M01S00200.termio +++| R=-1; # EOF DETECTED ON FILE #
| Line S00201 Modification History |
M01 (Added by) | termio |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
00223 M02S00201.242l642 ---| IF TTYIIN EQ TTYIOT THEN VDTRD$(TTYI,1); # READ MACRO #
00224 M01S00007.242l642 +++| IF TTYIIN EQ TTYIOT THEN
00225 M01S00008.242l642 +++| BEGIN
00226 M01S00009.242l642 +++|*IF DEF,DEBUG
00227 M01S00010.242l642 +++| VDTDMP$;
00228 M01S00011.242l642 +++|*ENDIF
00229 M01S00012.242l642 +++| VDTRD$(TTYI,1); # READ MACRO #
00230 M01S00013.242l642 +++| END
00231 M01S00202.termio +++| IF TTYIIN NQ TTYIOT THEN VDTREO$(TTYI,L,R); # READO MACRO #
00232 M01S00203.termio +++| # START OF CODE CONDITIONALLY PRODUCED BY MODIFY UTILITY #
00233 M01S00204.termio +++|*IF DEF,EDITOR
00234 M01S00205.termio +++| IF R NQ 0 AND NOT TTYINPUT
00235 M01S00206.termio +++| THEN MORTAL(" QUIT IS REQUIRED FOR BATCH JOBS.$");
00236 M01S00207.termio +++|*ENDIF
00237 M01S00208.termio +++| # END OF MODIFY UTILITY CONDITIONAL #
00238 M01S00209.termio +++| CONTROL FI;
00239 M01S00210.termio +++|
00240 M01S00211.termio +++| IOEND # VDTRDO #
00241 M01S00212.termio +++|CONTROL EJECT;
00242 M01S00213.termio +++|
00243 M01S00214.termio +++|PROC VDTWTO(A);
00244 M01S00215.termio +++|# TITLE VDTWTO - WRITE ONE WORD OF OUTPUT. #
00245 M01S00216.termio +++|
00246 M01S00217.termio +++| IOBEGIN(VDTWTO)
00247 M01S00218.termio +++|
00248 M01S00219.termio +++|#
00249 M01S00220.termio +++|** VDTWTO - WRITE ONE WORD OF OUTPUT.
00250 M01S00221.termio +++|*
00251 M01S00222.termio +++|* *VDTWTO* WRITES ONE WORD OF OUTPUT FROM BUFFER *A*.
00252 M01S00223.termio +++|*
00253 M01S00224.termio +++|* PROC VDTWTO(A)
00254 M01S00225.termio +++|*
00255 M01S00226.termio +++|* ENTRY A - THE WORD.
00256 M01S00227.termio +++|*
00257 M01S00228.termio +++|* CALLS WRITEO (SINGLE-EDITOR OR STANDALONE).
00258 M01S00229.termio +++|* TTOTRAP (MULTI ONLY).
00259 M01S00230.termio +++|*
00260 M01S00231.termio +++|* USES TTOLEN, TTOTYPE, TTOADDR (MULTI ONLY).
00261 M01S00232.termio +++|#
00262 M01S00233.termio +++|
00263 M01S00234.termio +++| ARRAY A [0:0] P(1);; # WORD OF OUTPUT #
00264 M01S00235.termio +++|
00265 M01S00236.termio +++| CONTROL IFEQ MULTI,1;
00266 M01S00237.termio +++| TTOADDR=LOC(A);
00267 M01S00238.termio +++| TTOLEN=1;
00268 M01S00239.termio +++| TTOTYPE=TTOST"NORMAL";
00269 M01S00240.termio +++| TTOTRAP;
00270 M01S00241.termio +++| CONTROL FI;
00271 M01S00242.termio +++|
00272 M01S00243.termio +++| CONTROL IFEQ SINGLE,1;
00273 M01S00244.termio +++| VDTWRO$(TTYO,A); # WRITEO MACRO #
00274 M01S00245.termio +++| CONTROL FI;
00275 M01S00246.termio +++|
00276 M01S00247.termio +++| IOEND # VDTWTO #
00277 M01S00248.termio +++|CONTROL EJECT;
00278 M01S00249.termio +++|
00279 M01S00250.termio +++|PROC VDTRDC(L,N);
00280 M01S00251.termio +++|# TITLE VDTRDC - READ ONE LINE OF INPUT. #
00281 M01S00252.termio +++|
00282 M01S00253.termio +++| IOBEGIN(VDTRDC)
00283 M01S00254.termio +++|
00284 M01S00255.termio +++|#
00285 M01S00256.termio +++|** VDTRDC - READ ONE LINE OF INPUT.
00286 M01S00257.termio +++|*
00287 M01S00258.termio +++|* *VDTRDC* READS ONE LINE OF INPUT INTO BUFFER *L*.
00288 M01S00259.termio +++|*
00289 M01S00260.termio +++|* PROC VDTRDC(L,N)
00290 M01S00261.termio +++|*
00291 M01S00262.termio +++|* ENTRY L - LINE IMAGE BUFFER.
00292 M01S00263.termio +++|* N - BUFFER CAPACITY IN WORDS.
00293 M01S00264.termio +++|*
00294 M01S00265.termio +++|* CALLS READ, READC (SINGLE OR STANDALONE).
00295 M01S00266.termio +++|* MORTAL (SINGLE-EDITOR ONLY).
00296 M01S00267.termio +++|* TTITRAP, VOLUNTEER (MULTI-EDITOR ONLY).
00297 M01S00268.termio +++|*
00298 M01S00269.termio +++|* USES TTYI FET (SINGLE OR STANDALONE).
00299 M01S00270.termio +++|* TTIADDR, TTILEN (MULTI ONLY).
00300 M01S00271.termio +++|* TTYINPUT (SINGLE EDITOR ONLY)
00301 M01S00272.termio +++|#
00302 M01S00273.termio +++|
00303 M01S00274.termio +++| ARRAY L [0:0] P(1); # LINE IMAGE BUFFER #
00304 M01S00275.termio +++| BEGIN # ARRAY L #
00305 M01S00276.termio +++| ITEM LL I; # LINE IMAGE #
00306 M01S00277.termio +++| END # ARRAY L #
00307 M01S00278.termio +++|
00308 M01S00279.termio +++| ITEM N I; # MAX NUM WORDS #
00309 M01S00280.termio +++|
00310 M01S00281.termio +++| CONTROL IFEQ MULTI,1;
00311 M01S00282.termio +++| TTIADDR=LOC(L);
00312 M01S00283.termio +++| TTILEN=N;
00313 M01S00284.termio +++| TTITRAP; # GET FROM SMFEX #
00314 M01S00285.termio +++| VOLUNTEER; # MOVE FAST IF LOW TTI #
00315 M01S00286.termio +++| CONTROL FI;
00316 M01S00287.termio +++|
00317 M01S00288.termio +++| CONTROL IFEQ SINGLE,1;
00318 M01S00289.termio +++| ITEM R I; # READ STATUS #
00319 M01S00290.termio +++| LL = 0; # EMPTY LINE BY DEFAULT #
00320 M01S00291.termio +++| R=-1; # EOF DETECTED ON FILE #
00321 M01S00292.termio +++| IF TTYIIN EQ TTYIOT THEN VDTRD$(TTYI,1); # READ MACRO #
00322 M01S00293.termio +++| IF TTYIIN NQ TTYIOT THEN VDTREC$(TTYI,L,N,R); # READC MACRO #
00323 M01S00294.termio +++| # START OF SEQUENCE CONDITIONALLY PRODUCED BY MODIFY UTILITY #
00324 M01S00295.termio +++|*IF DEF,EDITOR
00325 M01S00296.termio +++| IF R NQ 0 AND NOT TTYINPUT
00326 M01S00297.termio +++| THEN MORTAL(" QUIT IS REQUIRED FOR BATCH JOBS.$");
00327 M01S00298.termio +++|*ENDIF
00328 M01S00299.termio +++| # END OF MODIFY CONDITIONAL #
00329 M01S00300.termio +++| CONTROL FI;
00330 M01S00301.termio +++|
00331 M01S00302.termio +++| IOEND # VDTRDC #
00332 M01S00303.termio +++|CONTROL EJECT;
00333 M01S00304.termio +++|
00334 M01S00305.termio +++|PROC VDTWTC(A);
00335 M01S00306.termio +++|# TITLE VDTWTC - WRITE ONE LINE OF OUTPUT. #
00336 M01S00307.termio +++|
00337 M01S00308.termio +++| IOBEGIN(VDTWTC)
00338 M01S00309.termio +++|
00339 M01S00310.termio +++|#
00340 M01S00311.termio +++|** VDTWTC - WRITE ONE LINE OF OUTPUT.
00341 M01S00312.termio +++|*
00342 M01S00313.termio +++|* *VDTWTC* WRITES ONE LINE OF OUTPUT FROM BUFFER *A*.
00343 M01S00314.termio +++|*
00344 M01S00315.termio +++|* PROC VDTWTC(A)
00345 M01S00316.termio +++|*
00346 M01S00317.termio +++|* ENTRY A - LINE IMAGE BUFFER WITH ZERO BYTE TERMINATOR.
00347 M01S00318.termio +++|*
00348 M01S00319.termio +++|* CALLS WRITEC (SINGLE-EDITOR OR STANDALONE).
00349 M01S00320.termio +++|* TTOTRAP (MULTI ONLY).
00350 M01S00321.termio +++|*
00351 M01S00322.termio +++|* USES TTOLEN, TTOTYPE, TTOADDR (MULTI ONLY).
00352 M01S00323.termio +++|#
00353 M01S00324.termio +++|
00354 M01S00325.termio +++| ARRAY A [0:0] P(1);; # LINE IMAGE BUFFER #
00355 M01S00326.termio +++|
00356 M01S00327.termio +++| CONTROL IFEQ MULTI,1;
00357 M01S00328.termio +++| TTOADDR=LOC(A);
| Line S00329 Modification History |
M01 (Added by) | termio |
M02 (Updated by) | v22l602 |
Seq # *Modification Id* Act
----------------------------+
00358 M02S00329.v22l602 ---| TTOLEN=NOSWDSZ(BUFWID2P1,A);
00359 M01S00001.v22l602 +++| TTOLEN=NOSWDSZ(9999,A);
00360 M01S00330.termio +++| TTOTYPE=TTOST"NORMAL";
00361 M01S00331.termio +++| TTOTRAP;
00362 M01S00332.termio +++| CONTROL FI;
00363 M01S00333.termio +++|
00364 M01S00334.termio +++| CONTROL IFEQ SINGLE,1;
00365 M01S00335.termio +++| VDTWRC$(TTYO,A); # WRITEC MACRO #
00366 M01S00336.termio +++| CONTROL FI;
00367 M01S00337.termio +++|
00368 M01S00338.termio +++| IOEND # VDTWTC #
00369 M01S00339.termio +++|CONTROL EJECT;
00370 M01S00340.termio +++|
00371 M01S00341.termio +++|PROC VDTCLO(RCL);
00372 M01S00342.termio +++|# TITLE VDTCLO - DO A WRITER ON OUTPUT FET. #
00373 M01S00343.termio +++|
00374 M01S00344.termio +++| IOBEGIN(VDTCLO)
00375 M01S00345.termio +++|
00376 M01S00346.termio +++|#
00377 M01S00347.termio +++|** VDTCLO - DO A WRITER ON OUTPUT FET.
00378 M01S00348.termio +++|*
00379 M01S00349.termio +++|* *VDTCLO* CLOSES THE OUTPUT FET BY DOING A *WRITER*.
00380 M01S00350.termio +++|*
00381 M01S00351.termio +++|* PROC VDTCLO(RCL)
00382 M01S00352.termio +++|*
| Line S00353 Modification History |
M01 (Added by) | termio |
M02 (Updated by) | ns2175 |
Seq # *Modification Id* Act
----------------------------+
00383 M02S00353.ns2175 ---|* CALLS WRITER (SINGLE EDITOR OR STANDALONE).
| Line S00006 Modification History |
M01 (Added by) | ns2133 |
M02 (Updated by) | ns2175 |
Seq # *Modification Id* Act
----------------------------+
00384 M02S00006.ns2175 ---|* VDTCLO$ (STANDALONE ONLY).
00385 M01S00011.ns2175 +++|* CALLS VDTWRR$ (SINGLE EDITOR OR STANDALONE).
00386 M01S00012.ns2175 +++|*IF DEF,CRM
00387 M01S00013.ns2175 +++|* VDTCLO$ (CRM STANDALONE ONLY).
00388 M01S00014.ns2175 +++|*ENDIF
00389 M01S00354.termio +++|#
00390 M01S00355.termio +++|
00391 M01S00356.termio +++| ITEM RCL I; # RECALL PARAMETER #
00392 M01S00357.termio +++| CONTROL IFEQ SINGLE,1;
00393 M01S00014.242l642 +++|*IF DEF,DEBUG
00394 M01S00015.242l642 +++| VDTDMP$;
00395 M01S00016.242l642 +++|*ENDIF
00396 M01S00358.termio +++| VDTWRR$(TTYO,RCL); # WRITER MACRO #
| Line S00359 Modification History |
M01 (Added by) | termio |
M02 (Updated by) | ns2133 |
Seq # *Modification Id* Act
----------------------------+
00397 M02S00359.ns2133 ---| CONTROL FI;
| Line S00007 Modification History |
M01 (Added by) | ns2133 |
M02 (Updated by) | ns2175 |
Seq # *Modification Id* Act
----------------------------+
00398 M02S00007.ns2175 ---| CONTROL IFEQ EDITORVDT,0;
| Line S00008 Modification History |
M01 (Added by) | ns2133 |
M02 (Updated by) | ns2175 |
Seq # *Modification Id* Act
----------------------------+
00399 M02S00008.ns2175 ---| VDTCLO$; # CLOSE CRM OUTPUT FILE #
| Line S00009 Modification History |
M01 (Added by) | ns2133 |
M02 (Updated by) | ns2175 |
Seq # *Modification Id* Act
----------------------------+
00400 M02S00009.ns2175 ---| CONTROL FI;
00401 M01S00015.ns2175 +++|*IF DEF,CRM
00402 M01S00016.ns2175 +++|
00403 M01S00017.ns2175 +++| # START OF MODIFY CONDITIONAL FOR TERMINAL OUTPUT. #
00404 M01S00018.ns2175 +++|
00405 M01S00019.ns2175 +++| VDTCLO$; # CLOSE CRM OUTPUT FILE #
00406 M01S00020.ns2175 +++|
00407 M01S00021.ns2175 +++| # END OF MODIFY CONDITIONAL FOR TERMINAL OUTPUT. #
00408 M01S00022.ns2175 +++|
00409 M01S00023.ns2175 +++|*ENDIF
00410 M01S00010.ns2133 +++| CONTROL FI;
00411 M01S00360.termio +++|
00412 M01S00361.termio +++| IOEND # VDTCLO #
00413 M01S00362.termio +++|CONTROL EJECT;
00414 M01S00363.termio +++|
00415 M01S00001.ns2619 +++|PROC VDTFOS(RCL);
00416 M01S00002.ns2619 +++|# TITLE VDTFOS - FLUSH OUTPUT TO SCREEN. #
00417 M01S00003.ns2619 +++|
00418 M01S00004.ns2619 +++| IOBEGIN(VDTFOS)
00419 M01S00005.ns2619 +++|
00420 M01S00006.ns2619 +++|#
00421 M01S00007.ns2619 +++|** VDTFOS - FLUSH OUTPUT TO SCREEN.
00422 M01S00008.ns2619 +++|*
00423 M01S00009.ns2619 +++|* *VDTFOS* FLUSHES THE OUTPUT TO SCREEN BY A WRITER ON OUTPUT FET.
00424 M01S00010.ns2619 +++|*
00425 M01S00011.ns2619 +++|* PROC VDTFOS(RCL)
00426 M01S00012.ns2619 +++|*
00427 M01S00013.ns2619 +++|* CALLS VDTWRR$ (SINGLE EDITOR OR STANDALONE).
00428 M01S00014.ns2619 +++|#
00429 M01S00015.ns2619 +++|
00430 M01S00016.ns2619 +++| ITEM RCL I; # RECALL PARAMETER #
00431 M01S00017.ns2619 +++| CONTROL IFEQ SINGLE,1;
00432 M01S00018.ns2619 +++|*IF DEF,DEBUG
00433 M01S00019.ns2619 +++| VDTDMP$;
00434 M01S00020.ns2619 +++|*ENDIF
00435 M01S00021.ns2619 +++| VDTWRR$(TTYO,RCL); # WRITER MACRO #
00436 M01S00022.ns2619 +++| CONTROL FI;
00437 M01S00023.ns2619 +++|
00438 M01S00024.ns2619 +++| IOEND # VDTFOS #
00439 M01S00025.ns2619 +++|CONTROL EJECT;
00440 M01S00026.ns2619 +++|
00441 M01S00364.termio +++|PROC VDTOPN;
00442 M01S00365.termio +++|# TITLE VDTOPN - INITIALIZE TERMIO MODULE. #
00443 M01S00366.termio +++|
00444 M01S00367.termio +++| IOBEGIN(VDTOPN)
00445 M01S00368.termio +++|
00446 M01S00369.termio +++|#
00447 M01S00370.termio +++|** VDTOPN - INITIALIZE TERMIO MODULE.
00448 M01S00371.termio +++|*
00449 M01S00372.termio +++|* *VDTOPN* OPENS THE INPUT AND OUTPUT FETS AND INITIALIZES
00450 M01S00373.termio +++|* THEM.
00451 M01S00374.termio +++|*
00452 M01S00375.termio +++|* PROC VDTOPN
00453 M01S00376.termio +++|*
00454 M01S00377.termio +++|* ENTRY INTERACT - WHETHER TRULY INTERACTIVE (SINGLE EDITOR).
00455 M01S00378.termio +++|*
00456 M01S00379.termio +++|* EXIT TTYI, TTYO - FETS ARE INITIALIZED.
00457 M01S00380.termio +++|* LIST OF FILES IS SET UP.
00458 M01S00381.termio +++|*
00459 M01S00382.termio +++|* CALLS MAKEFET (INTERNAL) (STANDALONE ONLY).
00460 M01S00383.termio +++|* MAKEFET (EXTERNAL) (SINGLE-EDITOR ONLY).
| Line S00384 Modification History |
M01 (Added by) | termio |
M02 (Updated by) | ns2133 |
Seq # *Modification Id* Act
----------------------------+
00461 M02S00384.ns2133 ---|* SETLOF (SINGLE OR STANDALONE).
| Line S00011 Modification History |
M01 (Added by) | ns2133 |
M02 (Updated by) | ns2175 |
Seq # *Modification Id* Act
----------------------------+
00462 M02S00011.ns2175 ---|* SETLOF (SINGLE-EDITOR ONLY).
| Line S00012 Modification History |
M01 (Added by) | ns2133 |
M02 (Updated by) | ns2175 |
Seq # *Modification Id* Act
----------------------------+
00463 M02S00012.ns2175 ---|* VDTOPN$ (STANDALONE ONLY).
00464 M01S00024.ns2175 +++|*IF UNDEF,CRM
00465 M01S00025.ns2175 +++|* VDTLOF$ (SINGLE EDITOR OR STANDALONE).
00466 M01S00026.ns2175 +++|*ELSE
00467 M01S00027.ns2175 +++|* VDTOPN$ (CRM STANDALONE ONLY).
00468 M01S00028.ns2175 +++|*ENDIF
00469 M01S00385.termio +++|*
00470 M01S00386.termio +++|* NOTE CURRENTLY A NO-OP FOR MULTI-EDITOR.
00471 M01S00387.termio +++|#
00472 M01S00388.termio +++|
00473 M01S00389.termio +++|# START OF SEQUENCE CONDITIONALLY PRODUCED BY MODIFY UTILITY #
00474 M01S00390.termio +++|
00475 M01S00391.termio +++|*IF UNDEF EDITOR
00476 M01S00392.termio +++| DEF INTERACT #TRUE#; # INTERACTIVE TERMINALS #
00477 M01S00393.termio +++|
00478 M01S00394.termio +++|
00479 M01S00395.termio +++| PROC MAKEFET(FET,NAME,BUFFER,LENGTH);
00480 M01S00396.termio +++|# TITLE MAKEFET - MAKE A FET. #
00481 M01S00397.termio +++|
00482 M01S00398.termio +++| BEGIN # MAKEFET #
00483 M01S00399.termio +++|
00484 M01S00400.termio +++|#
00485 M01S00401.termio +++|** MAKEFET - MAKE A FET.
00486 M01S00402.termio +++|*
00487 M01S00403.termio +++|* *MAKEFET* SETS UP THE FET AND INITIALIZES IT.
00488 M01S00404.termio +++|*
00489 M01S00405.termio +++|* PROC MAKEFET(FET,NAME,BUFFER,LENGTH)
00490 M01S00406.termio +++|*
00491 M01S00407.termio +++|* ENTRY NAME - FET NAME.
00492 M01S00408.termio +++|* BUFFER - FIRST ADDRESS.
00493 M01S00409.termio +++|* LENGTH - FET LENGTH.
00494 M01S00410.termio +++|*
00495 M01S00411.termio +++|* EXIT FET INITIALIZED.
00496 M01S00412.termio +++|#
00497 M01S00413.termio +++|
00498 M01S00414.termio +++| ARRAY FET [0:0] S(5);
00499 M01S00415.termio +++| BEGIN # ARRAY FET #
00500 M01S00416.termio +++| ITEM FETNAME C(00,00,07); # FET NAME #
00501 M01S00417.termio +++| ITEM FETCODE U(00,42,18); # FET STATUS CODES #
00502 M01S00418.termio +++| ITEM FETFIRST I(01,00,60); # FIRST ADDRESS #
00503 M01S00419.termio +++| ITEM FETIN I(02,00,60); # IN ADDRESS #
00504 M01S00420.termio +++| ITEM FETOUT I(03,00,60); # OUT ADDRESS #
00505 M01S00421.termio +++| ITEM FETLIMIT I(04,00,60); # LIMIT ADDRESS #
00506 M01S00422.termio +++| END # ARRAY FET #
00507 M01S00423.termio +++|
00508 M01S00424.termio +++| ITEM NAME C(07); # FET NAME #
00509 M01S00425.termio +++| ARRAY BUFFER [0:0] P(1);; # FIRST ADDRESS #
00510 M01S00426.termio +++| ITEM LENGTH I; # FET LENGTH #
00511 M01S00427.termio +++| ITEM TMP1 I; # TEMPORARY STORAGE #
00512 M01S00428.termio +++|
00513 M01S00429.termio +++| FETNAME=NAME;
00514 M01S00430.termio +++| FOR TMP1=0 STEP 1 UNTIL 6 DO
00515 M01S00431.termio +++| BEGIN
00516 M01S00432.termio +++| IF C<TMP1,1>FETNAME EQ " " THEN C<TMP1,1>FETNAME=0;
00517 M01S00433.termio +++| END
00518 M01S00434.termio +++| FETCODE=1;
00519 M01S00435.termio +++| FETFIRST=LOC(BUFFER);
00520 M01S00436.termio +++| FETIN=FETFIRST;
00521 M01S00437.termio +++| FETOUT=FETFIRST;
00522 M01S00438.termio +++| FETLIMIT=FETFIRST+LENGTH;
00523 M01S00439.termio +++|
00524 M01S00440.termio +++| END # MAKEFET #
00525 M01S00441.termio +++|
00526 M01S00442.termio +++|*ENDIF
00527 M01S00443.termio +++|# END OF MODIFY CONDITIONAL FOR MAKEFET #
00528 M01S00444.termio +++|
00529 M01S00445.termio +++|# START OF MAIN-LINE CODE FOR VDTOPN #
00530 M01S00446.termio +++|
00531 M01S00447.termio +++| CONTROL IFEQ SINGLE,1;
00532 M01S00448.termio +++| MAKEFET(TTYI,INPTNAM,TTYIBF,TTYIBUFSIZ);
| Line S00449 Modification History |
M01 (Added by) | termio |
M02 (Updated by) | ns2133 |
Seq # *Modification Id* Act
----------------------------+
00533 M02S00449.ns2133 ---| MAKEFET(TTYO,OUTPNAM,TTYOBF,TTYOBUFSIZ);
| Line S00450 Modification History |
M01 (Added by) | termio |
M02 (Updated by) | ns2133 |
Seq # *Modification Id* Act
----------------------------+
00534 M02S00450.ns2133 ---| IF INTERACT THEN
| Line S00451 Modification History |
M01 (Added by) | termio |
M02 (Updated by) | ns2133 |
Seq # *Modification Id* Act
----------------------------+
00535 M02S00451.ns2133 ---| BEGIN
| Line S00452 Modification History |
M01 (Added by) | termio |
M02 (Updated by) | ns2133 |
Seq # *Modification Id* Act
----------------------------+
00536 M02S00452.ns2133 ---| B<12,18>LISTFETPTR=LOC(FETLIST);
| Line S00453 Modification History |
M01 (Added by) | termio |
M02 (Updated by) | ns2133 |
Seq # *Modification Id* Act
----------------------------+
00537 M02S00453.ns2133 ---| FETLSTNAM=TTYONM;
| Line S00454 Modification History |
M01 (Added by) | termio |
M02 (Updated by) | ns2133 |
Seq # *Modification Id* Act
----------------------------+
00538 M02S00454.ns2133 ---| FETLSTLOC=LOC(TTYO);
| Line S00455 Modification History |
M01 (Added by) | termio |
M02 (Updated by) | ns2133 |
Seq # *Modification Id* Act
----------------------------+
00539 M02S00455.ns2133 ---| TTYOFB=TRUE;
| Line S00456 Modification History |
M01 (Added by) | termio |
M02 (Updated by) | ns2133 |
Seq # *Modification Id* Act
----------------------------+
00540 M02S00456.ns2133 ---| VDTLOF$(LISTFETPTR); # SETLOF MACRO #
| Line S00457 Modification History |
M01 (Added by) | termio |
M02 (Updated by) | ns2133 |
Seq # *Modification Id* Act
----------------------------+
00541 M02S00457.ns2133 ---| END
| Line S00013 Modification History |
M01 (Added by) | ns2133 |
M02 (Updated by) | ns2175 |
Seq # *Modification Id* Act
----------------------------+
00542 M02S00013.ns2175 ---| CONTROL IFEQ EDITORVDT,1;
| Line S00014 Modification History |
M01 (Added by) | ns2133 |
M02 (Updated by) | ns2175 |
Seq # *Modification Id* Act
----------------------------+
00543 M02S00014.ns2175 ---| MAKEFET(TTYO,OUTPNAM,TTYOBF,TTYOBUFSIZ);
| Line S00015 Modification History |
M01 (Added by) | ns2133 |
M02 (Updated by) | ns2175 |
Seq # *Modification Id* Act
----------------------------+
00544 M02S00015.ns2175 ---| IF INTERACT THEN
| Line S00016 Modification History |
M01 (Added by) | ns2133 |
M02 (Updated by) | ns2175 |
Seq # *Modification Id* Act
----------------------------+
00545 M02S00016.ns2175 ---| BEGIN
| Line S00017 Modification History |
M01 (Added by) | ns2133 |
M02 (Updated by) | ns2175 |
Seq # *Modification Id* Act
----------------------------+
00546 M02S00017.ns2175 ---| B<12,18>LISTFETPTR=LOC(FETLIST);
| Line S00018 Modification History |
M01 (Added by) | ns2133 |
M02 (Updated by) | ns2175 |
Seq # *Modification Id* Act
----------------------------+
00547 M02S00018.ns2175 ---| FETLSTNAM=TTYONM;
| Line S00019 Modification History |
M01 (Added by) | ns2133 |
M02 (Updated by) | ns2175 |
Seq # *Modification Id* Act
----------------------------+
00548 M02S00019.ns2175 ---| FETLSTLOC=LOC(TTYO);
| Line S00020 Modification History |
M01 (Added by) | ns2133 |
M02 (Updated by) | ns2175 |
Seq # *Modification Id* Act
----------------------------+
00549 M02S00020.ns2175 ---| TTYOFB=TRUE;
| Line S00021 Modification History |
M01 (Added by) | ns2133 |
M02 (Updated by) | ns2175 |
Seq # *Modification Id* Act
----------------------------+
00550 M02S00021.ns2175 ---| VDTLOF$(LISTFETPTR); # SETLOF MACRO #
| Line S00022 Modification History |
M01 (Added by) | ns2133 |
M02 (Updated by) | ns2175 |
Seq # *Modification Id* Act
----------------------------+
00551 M02S00022.ns2175 ---| END
| Line S00023 Modification History |
M01 (Added by) | ns2133 |
M02 (Updated by) | ns2175 |
Seq # *Modification Id* Act
----------------------------+
00552 M02S00023.ns2175 ---| CONTROL FI;
| Line S00024 Modification History |
M01 (Added by) | ns2133 |
M02 (Updated by) | ns2175 |
Seq # *Modification Id* Act
----------------------------+
00553 M02S00024.ns2175 ---| CONTROL IFEQ EDITORVDT,0;
| Line S00025 Modification History |
M01 (Added by) | ns2133 |
M02 (Updated by) | ns2175 |
Seq # *Modification Id* Act
----------------------------+
00554 M02S00025.ns2175 ---| VDTOPN$(LISTFETPTR); # OPEN CRM OUTPUT FILE #
| Line S00026 Modification History |
M01 (Added by) | ns2133 |
M02 (Updated by) | ns2175 |
Seq # *Modification Id* Act
----------------------------+
00555 M02S00026.ns2175 ---| P<TTYO>=LISTFETPTR; # SET BASED ARRAY ADDRESS #
| Line S00027 Modification History |
M01 (Added by) | ns2133 |
M02 (Updated by) | ns2175 |
Seq # *Modification Id* Act
----------------------------+
00556 M02S00027.ns2175 ---| CONTROL FI;
00557 M01S00029.ns2175 +++|
00558 M01S00030.ns2175 +++| # START OF MODIFY CONDITIONAL FOR TERMINAL OUTPUT. #
00559 M01S00031.ns2175 +++|
00560 M01S00032.ns2175 +++|*IF UNDEF,CRM
00561 M01S00033.ns2175 +++| MAKEFET(TTYO,OUTPNAM,TTYOBF,TTYOBUFSIZ);
00562 M01S00034.ns2175 +++| IF INTERACT THEN
00563 M01S00035.ns2175 +++| BEGIN
00564 M01S00036.ns2175 +++| B<12,18>LISTFETPTR=LOC(FETLIST);
00565 M01S00037.ns2175 +++| FETLSTNAM=TTYONM;
00566 M01S00038.ns2175 +++| FETLSTLOC=LOC(TTYO);
00567 M01S00039.ns2175 +++| TTYOFB=TRUE;
00568 M01S00040.ns2175 +++| VDTLOF$(LISTFETPTR); # SETLOF MACRO #
00569 M01S00041.ns2175 +++| END
00570 M01S00042.ns2175 +++|*ELSE
00571 M01S00043.ns2175 +++| VDTOPN$(LISTFETPTR); # OPEN CRM OUTPUT FILE #
00572 M01S00044.ns2175 +++| P<TTYO>=LISTFETPTR; # SET BASED ARRAY ADDRESS #
00573 M01S00045.ns2175 +++|*ENDIF
00574 M01S00046.ns2175 +++|
00575 M01S00047.ns2175 +++| # END OF MODIFY CONDITIONAL FOR TERMINAL OUTPUT. #
00576 M01S00048.ns2175 +++|
00577 M01S00458.termio +++| CONTROL FI;
00578 M01S00459.termio +++|
00579 M01S00460.termio +++| IOEND # VDTOPN #
00580 M01S00017.242l642 +++|*IF DEF,DEBUG
00581 M01S00018.242l642 +++|CONTROL EJECT;
00582 M01S00019.242l642 +++|
00583 M01S00020.242l642 +++|PROC VDTDMP$;
00584 M01S00021.242l642 +++|# TITLE VDTDMP$ - DUMP OUTPUT DATA TO XXXDUMP. #
00585 M01S00022.242l642 +++|
00586 M01S00023.242l642 +++| BEGIN # VDTDMP$ #
00587 M01S00024.242l642 +++|
00588 M01S00025.242l642 +++|#
00589 M01S00026.242l642 +++|** VDTDMP$ - DUMP OUTPUT DATA TO XXXDUMP.
00590 M01S00027.242l642 +++|*
00591 M01S00028.242l642 +++|* THIS PROCEDURE DUMPS THE CURRENT CONTENTS OF THE OUPUT FET TO
00592 M01S00029.242l642 +++|* THE LOCAL FILE *XXXDUMP* OR DEBUGGING ANALYSIS.
00593 M01S00030.242l642 +++|*
00594 M01S00031.242l642 +++|* PROC VDTDMP$.
00595 M01S00032.242l642 +++|*
00596 M01S00033.242l642 +++|* EXIT DATA DUMPED TO XXXDUMP.
00597 M01S00034.242l642 +++|*
00598 M01S00035.242l642 +++|* CALLS VDTWRR$.
00599 M01S00036.242l642 +++|#
00600 M01S00037.242l642 +++|
00601 M01S00038.242l642 +++| ARRAY XXXDUMP [0:0] P(5);
00602 M01S00039.242l642 +++| BEGIN
00603 M01S00040.242l642 +++| ITEM DUMPLFN U(00,00,60) = [O"3030 3004 2515 2000 0001"];
00604 M01S00041.242l642 +++| ITEM DUMPFT U(01,42,18);
00605 M01S00042.242l642 +++| ITEM DUMPIN U(02,42,18);
00606 M01S00043.242l642 +++| ITEM DUMPOT U(03,42,18);
00607 M01S00044.242l642 +++| ITEM DUMPLM U(04,42,18);
00608 M01S00045.242l642 +++| END
00609 M01S00046.242l642 +++|
00610 M01S00047.242l642 +++| DUMPFT = TTYOFT; # SET FET POINTERS #
00611 M01S00048.242l642 +++| DUMPIN = TTYOIN;
00612 M01S00049.242l642 +++| DUMPOT = TTYOOT;
00613 M01S00050.242l642 +++| DUMPIN = TTYOLM;
00614 M01S00051.242l642 +++| VDTWRR$(XXXDUMP,1); # DUMP BUFFER #
00615 M01S00052.242l642 +++|
00616 M01S00053.242l642 +++| END # VDTDMP$ #
00617 M01S00054.242l642 +++|*ENDIF
00618 M01S00461.termio +++|
00619 M01S00462.termio +++|
00620 M01S00463.termio +++|END # TERMIO #
00621 M01S00464.termio +++|
00622 M01S00465.termio +++|TERM