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