cdc:nos2.source:opl.opl871:deck:termio
Deck TERMIO
6 Modifications
Source
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
cdc/nos2.source/opl.opl871/deck/termio.txt · Last modified: by 127.0.0.1