Action unknown: copypageplugin__copy
cdc:nos2.source:opl.opl871:deck:virterm
Deck VIRTERM
Library Member Format: MODIFY
Listing Sections
- Deck VIRTERM Start
- Deck VIRTERM Part 1 (Line 2187)
- Deck VIRTERM Part 2 (Line 3968)
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.virterm +++|PROC VIRTERM; 00002 M00S00002.virterm +++| 00003 M00S00003.virterm +++|# TITLE VIRTERM - VIRTUAL TERMINAL INTERFACE. # 00004 M00S00004.virterm +++| 00005 M00S00005.virterm +++|BEGIN # VIRTERM # 00006 M00S00006.virterm +++| 00007 M00S00007.virterm +++|# 00008 M00S00008.virterm +++|*** VIRTERM - VIRTUAL TERMINAL INTERFACE. 00009 M00S00009.virterm +++|* 00010 M00S00010.virterm +++|* *VIRTERM* PROVIDES VIRTUAL TERMINAL OBJECT ROUTINES TO MAP 00011 M00S00011.virterm +++|* TO AND FROM TERMINAL-INDEPENDENT APPLICATION REQUESTS AND 00012 M00S00012.virterm +++|* TERMINAL-DEPENDENT CODE SEQUENCES. 00013 M00S00013.virterm +++|* 00014 M00S00014.virterm +++|* PROC VIRTERM 00015 M00S00015.virterm +++|* 00016 M00S00016.virterm +++|* ENTRY OBJECT ROUTINE CALLED. 00017 M00S00017.virterm +++|* 00018 M00S00018.virterm +++|* EXIT OBJECT ROUTINE EXECUTED. 00019 M00S00019.virterm +++|*
| Line S00020 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00020 M01S00020.281l803 ---|* COPYRIGHT CONTROL DATA CORPORATION, 1984.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00021 M01S00001.281l803 +++|* COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00022 M00S00021.virterm +++|# 00023 M00S00022.virterm +++| 00024 M00S00023.virterm +++|DEF LISTCON #1#; # LIST COMDECKS # 00025 M00S00024.virterm +++| 00026 M00S00025.virterm +++|*IFCALL SINGLE,COMFSGL 00027 M00S00026.virterm +++|*IFCALL ONLY,COMFONL 00028 M00S00027.virterm +++|*IFCALL MULTI,COMFMLT 00029 M00S00028.virterm +++|*IFCALL EDITOR,COMFFSE 00030 M00S00029.virterm +++| 00031 M00S00030.virterm +++|# START OF CODE SEQUENCE CONDITIONALLY PRODUCED BY MODIFY UTILITY # 00032 M00S00031.virterm +++| 00033 M00S00032.virterm +++|*NIFCALL EDITOR,COMFTIO 00034 M00S00033.virterm +++|*IF UNDEF,EDITOR 00035 M00S00034.virterm +++|DEF EDITORVDT #0#; # STANDALONE VERSION OF VIRTERM # 00036 M00S00035.virterm +++|DEF IOBEGIN(XXX) #BEGIN#; # BEGIN COMPOUND STATEMENT # 00037 M00S00036.virterm +++|DEF IOEND #END#; # END COMPOUND STATEMENT # 00038 M00S00037.virterm +++|DEF IORET #RETURN;#; # RETURN FROM SUBPROGRAM # 00039 M00S00038.virterm +++|DEF SINGLE #1#; # SINGLE-USER VERSION # 00040 M00S00039.virterm +++|DEF MULTI #0#; # NOT MULTI-USER # 00041 M00S00040.virterm +++| 00042 M00S00041.virterm +++|CONTROL PRESET; 00043 M00S00042.virterm +++|*ENDIF 00044 M00S00043.virterm +++| 00045 M00S00044.virterm +++|*IF UNDEF,QTRM 00046 M00S00045.virterm +++|DEF QTRMV #0#; # NOT QTRM VERSION # 00047 M00S00046.virterm +++|*ELSE 00048 M00S00047.virterm +++|DEF QTRMV #1#; # QTRM VERSION # 00049 M00S00048.virterm +++|*ENDIF 00050 M00S00049.virterm +++| 00051 M00S00050.virterm +++|# END OF CODE SEQUENCE CONDITIONALLY PRODUCED BY MODIFY UTILITY # 00052 M00S00051.virterm +++|CONTROL EJECT; 00053 M00S00052.virterm +++| 00054 M00S00053.virterm +++|CONTROL IFEQ MULTI,1; # IF MULTI USER FSE VIRTERM # 00055 M00S00054.virterm +++| XREF ARRAY RENTSTK [1:MAXREENT] P(1); # SUBROUTINE STACK # 00056 M00S00055.virterm +++| BEGIN # ARRAY RENTSTK # 00057 M00S00056.virterm +++| ITEM RSTK I; # STACK WORD # 00058 M00S00057.virterm +++| END # ARRAY RENTSTK # 00059 M00S00058.virterm +++| XREF ITEM RSTKPTR I; # STACK POINTER # 00060 M00S00059.virterm +++|CONTROL FI; # END OF IF MULTI USER FSE # 00061 M00S00060.virterm +++| 00062 M00S00061.virterm +++|CONTROL IFEQ SINGLE,1; # IF NOT MULTI USER FSE # 00063 M00S00062.virterm +++| ARRAY TDUFET [0:0] P(5); # FET TO READ ZZZZTRM FILE # 00064 M00S00063.virterm +++| BEGIN 00065 M00S00064.virterm +++| ITEM TDUNAME C(00,00,07) = ["ZZZZTRM"]; # FILE NAME # 00066 M00S00065.virterm +++| ITEM TDUCODE U(00,42,18) = [1]; # STATUS CODE # 00067 M00S00066.virterm +++| ITEM TDUFET1 U(01,00,42) = [0]; # FET + 1 # 00068 M00S00067.virterm +++| ITEM TDUFIRST U(01,42,18) = [0]; # FIRST # 00069 M00S00068.virterm +++| ITEM TDUFET2 U(02,00,42) = [0]; # FET + 2 # 00070 M00S00069.virterm +++| ITEM TDUIN U(02,42,18) = [0]; # IN # 00071 M00S00070.virterm +++| ITEM TDUFET3 U(03,00,42) = [0]; # FET + 3 # 00072 M00S00071.virterm +++| ITEM TDUOUT U(03,42,18) = [0]; # OUT # 00073 M00S00072.virterm +++| ITEM TDUFET4 U(04,00,42) = [0]; # FET + 4 # 00074 M00S00073.virterm +++| ITEM TDULIMIT U(04,42,18) = [0]; # LIMIT # 00075 M00S00074.virterm +++| END 00076 M00S00075.virterm +++| 00077 M00S00076.virterm +++| DEF TDUBUFFLEN #O"301"#; # *TDU* BUFFER LENGTH # 00078 M00S00077.virterm +++| 00079 M00S00078.virterm +++| ARRAY TDUBUF [0:0] P(TDUBUFFLEN);; # *TDU* BUFFER # 00080 M00S00079.virterm +++| 00081 M00S00080.virterm +++| BASED ARRAY TEMPSTORE [0:0] P(1); 00082 M00S00081.virterm +++| BEGIN # USED TO MOVE *TDU* TABLE # 00083 M00S00082.virterm +++| ITEM TEMPWORD U; # WORD # 00084 M00S00083.virterm +++| END 00085 M00S00084.virterm +++| 00086 M00S00085.virterm +++|ARRAY T3270RTA [0:63] P(1); 00087 M00S00086.virterm +++| BEGIN # 3270 RELATIVE TO ABSOLUTE # 00088 M00S00087.virterm +++| ITEM RTA3270 U(00,00,60) = [ 00089 M00S00088.virterm +++| X"20", X"41", X"42", X"43", X"44", X"45", X"46", X"47", 00090 M00S00089.virterm +++| X"48", X"49", X"5B", X"2E", X"3C", X"28", X"2B", X"21", 00091 M00S00090.virterm +++| X"26", X"4A", X"4B", X"4C", X"4D", X"4E", X"4F", X"50", 00092 M00S00091.virterm +++| X"51", X"52", X"5D", X"24", X"2A", X"29", X"3B", X"5E", 00093 M00S00092.virterm +++| X"2D", X"2F", X"53", X"54", X"55", X"56", X"57", X"58", 00094 M00S00093.virterm +++| X"59", X"5A", X"7C", X"2C", X"25", X"5F", X"3E", X"3F", 00095 M00S00094.virterm +++| X"30", X"31", X"32", X"33", X"34", X"35", X"36", X"37", 00096 M00S00095.virterm +++| X"38", X"39", X"3A", X"23", X"40", X"27", X"3D", X"22" ]; 00097 M00S00096.virterm +++| END 00098 M00S00097.virterm +++| 00099 M00S00098.virterm +++|ARRAY T3270ATR [0:127] P(1); 00100 M00S00099.virterm +++| BEGIN # 3270 ABSOLUTE TO RELATIVE # 00101 M00S00100.virterm +++| ITEM ATR3270 U(00,00,60) = [ 00102 M00S00101.virterm +++| X"00", X"00", X"00", X"00", X"00", X"00", X"00", X"00", # 00-07 # 00103 M00S00102.virterm +++| X"00", X"00", X"00", X"00", X"00", X"00", X"00", X"00", # 08-0F # 00104 M00S00103.virterm +++| X"00", X"00", X"00", X"00", X"00", X"00", X"00", X"00", # 10-17 # 00105 M00S00104.virterm +++| X"00", X"00", X"00", X"00", X"00", X"00", X"00", X"00", # 18-1F # 00106 M00S00105.virterm +++| X"00", X"0F", X"3F", X"3B", X"1B", X"2C", X"10", X"3D", # 20-27 #
| Line S00106 Modification History | |
|---|---|
M01 (Removed by) | virte10 |
Seq # *Modification Id* Act ----------------------------+ 00107 M01S00106.virte10 ---| X"0D", X"1D", X"1C", X"0E", X"00", X"20", X"0B", X"21", # 28-2F #
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | virte10 |
Seq # *Modification Id* Act ----------------------------+ 00108 M01S00001.virte10 +++| X"0D", X"1D", X"1C", X"0E", X"2B", X"20", X"0B", X"21", # 28-2F # 00109 M00S00107.virterm +++| X"30", X"31", X"32", X"33", X"34", X"35", X"36", X"37", # 30-30 # 00110 M00S00108.virterm +++| X"38", X"39", X"3A", X"1E", X"0C", X"3E", X"2E", X"2F", # 38-3F # 00111 M00S00109.virterm +++| X"3C", X"01", X"02", X"03", X"04", X"05", X"06", X"07", # 40-40 # 00112 M00S00110.virterm +++| X"08", X"09", X"11", X"12", X"13", X"14", X"15", X"16", # 48-4F # 00113 M00S00111.virterm +++| X"17", X"18", X"19", X"22", X"23", X"24", X"25", X"26", # 50-50 #
| Line S00112 Modification History | |
|---|---|
M01 (Removed by) | virte10 |
Seq # *Modification Id* Act ----------------------------+ 00114 M01S00112.virte10 ---| X"27", X"28", X"29", X"0A", X"2B", X"1A", X"1F", X"20", # 58-5F #
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | virte10 |
Seq # *Modification Id* Act ----------------------------+ 00115 M01S00002.virte10 +++| X"27", X"28", X"29", X"0A", X"00", X"1A", X"1F", X"2D", # 58-5F # 00116 M00S00113.virterm +++| X"00", X"00", X"00", X"00", X"00", X"00", X"00", X"00", # 60-60 # 00117 M00S00114.virterm +++| X"00", X"00", X"00", X"00", X"00", X"00", X"00", X"00", # 68-6F # 00118 M00S00115.virterm +++| X"00", X"00", X"00", X"00", X"00", X"00", X"00", X"00", # 70-70 # 00119 M00S00116.virterm +++| X"00", X"00", X"00", X"00", X"2A", X"00", X"00", X"00" ]; # 78-7F # 00120 M00S00117.virterm +++| END 00121 M00S00118.virterm +++| 00122 M00S00119.virterm +++|CONTROL FI; # END OF NOT MULTI USER FSE # 00123 M00S00120.virterm +++|CONTROL EJECT; 00124 M00S00121.virterm +++| 00125 M00S00122.virterm +++|XDEF 00126 M00S00123.virterm +++| BEGIN 00127 M00S00124.virterm +++|*CALL COMFXVT 00128 M00S00125.virterm +++|*IF DEF,QTRM 00129 M00S00126.virterm +++| PROC VDTWTO; # WRITE ONE WORD OF OUTPUT # 00130 M00S00127.virterm +++|*ENDIF 00131 M00S00128.virterm +++| END 00132 M00S00129.virterm +++| 00133 M00S00130.virterm +++|XREF 00134 M00S00131.virterm +++| BEGIN 00135 M00S00132.virterm +++|*IF DEF,QTRM 00136 M00S00133.virterm +++| PROC PF; # GET PERMANENT FILE # 00137 M00S00134.virterm +++| PROC SCRCCK; # VALIDATE TERMINAL CAPSULE # 00138 M00S00135.virterm +++| PROC SCRLCP; # LOAD TERMINAL CAPSULE # 00139 M00S00136.virterm +++| PROC SCRUGD; # UNLOAD GROUP DIRECTORY # 00140 M00S00137.virterm +++| PROC SFDQUE; # QTRM DEQUEUE # 00141 M00S00138.virterm +++| PROC SFNQUE; # QTRM ENQUEUE # 00142 M00S00139.virterm +++| PROC VDTGTO; # GET TERMINAL ORDINAL # 00143 M00S00140.virterm +++|*ENDIF 00144 M00S00141.virterm +++|*IF DEF,DEBUG 00145 M00S00142.virterm +++| PROC VDTDMP$; # DUMP OUTPUT TO XXXDUMP # 00146 M00S00143.virterm +++|*ENDIF 00147 M00S00144.virterm +++| PROC VDTGSL; # GET OS SCREEN LINE MODE # 00148 M00S00145.virterm +++| PROC VDTGTA; # GET *TDU* TABLE ADDRESS # 00149 M00S00146.virterm +++| PROC VDTRDO; # READ ONE WORD OF INPUT # 00150 M00S00147.virterm +++| PROC VDTRD$; # READ FILE TO CIO BUFFER # 00151 M00S00148.virterm +++| PROC VDTREO$; # READ WORD FROM CIO BUFFER # 00152 M00S00149.virterm +++| PROC VDTWRR$; # WRITE END OF RECORD # 00153 M00S00150.virterm +++|*IF UNDEF,QTRM 00154 M00S00151.virterm +++| PROC VDTWTO; # WRITE ONE WORD OF OUTPUT # 00155 M00S00152.virterm +++|*ENDIF 00156 M00S00153.virterm +++| PROC VDTWTC; # WRITE ONE LINE OF OUTPUT # 00157 M00S00154.virterm +++| END 00158 M00S00155.virterm +++| 00159 M00S00156.virterm +++|CONTROL IFEQ EDITORVDT,0; 00160 M00S00157.virterm +++| XREF 00161 M00S00158.virterm +++| BEGIN 00162 M00S00159.virterm +++| PROC VDTABT$; # ABORT THE CALLING ROUTINE # 00163 M00S00160.virterm +++| PROC VDTCLO; # DO WRITER ON OUTPUT FET # 00164 M00S00161.virterm +++| PROC VDTMSG$; # MESSAGE MACRO # 00165 M00S00162.virterm +++| END 00166 M00S00163.virterm +++|CONTROL FI; 00167 M00S00164.virterm +++| 00168 M00S00165.virterm +++|*IF UNDEF,QTRM 00169 M00S00166.virterm +++|CONTROL IFEQ SINGLE,1; 00170 M00S00167.virterm +++| CONTROL IFEQ EDITORVDT,1; 00171 M00S00168.virterm +++| XREF 00172 M00S00169.virterm +++| BEGIN 00173 M00S00170.virterm +++| PROC VDTCLO; # DO WRITER ON OUTPUT FET # 00174 M00S00171.virterm +++| PROC VDTPRT$; # PROMPT ON/OFF # 00175 M00S00172.virterm +++| END 00176 M00S00173.virterm +++| CONTROL FI; 00177 M00S00174.virterm +++|CONTROL FI; 00178 M00S00175.virterm +++|*ENDIF 00179 M00S00176.virterm +++| 00180 M00S00177.virterm +++|CONTROL IFEQ SINGLE,1; # IF NOT MULTI USER FSE # 00181 M00S00178.virterm +++| XREF 00182 M00S00179.virterm +++| BEGIN 00183 M00S00180.virterm +++| PROC VDTRWD; # REWIND FILE # 00184 M00S00181.virterm +++| END 00185 M00S00182.virterm +++|CONTROL FI; 00186 M00S00183.virterm +++|CONTROL EJECT; 00187 M00S00184.virterm +++| 00188 M00S00185.virterm +++|DEF XPARENTOUT #O"00070000000000000000"#; # XPARENT OUTPUT # 00189 M00S00186.virterm +++| 00190 M00S00187.virterm +++|*CALL COMFVDT 00191 M00S00188.virterm +++| # COMMON DATA BLOCK # 00192 M00S00189.virterm +++|*IFCALL EDITOR,COMFDS1 00193 M00S00190.virterm +++|*IFCALL EDITOR,COMFVD2 00194 M00S00191.virterm +++|*IFCALL EDITOR,COMFDS2 00195 M00S00192.virterm +++| 00196 M00S00193.virterm +++|*NIFCALL EDITOR,COMFVD1 00197 M00S00194.virterm +++|*NIFCALL EDITOR,COMFVD2 00198 M00S00195.virterm +++|*NIFCALL EDITOR,COMFVD3 00199 M00S00196.virterm +++| 00200 M00S00197.virterm +++|CONTROL IFEQ SINGLE,1; 00201 M00S00198.virterm +++| CONTROL IFEQ EDITORVDT,1; 00202 M00S00199.virterm +++| ARRAY ENABLEMMSG [0:3] P(1); # ENABLE MULTI-MSG TRANSPARENT # 00203 M00S00200.virterm +++| BEGIN 00204 M00S00201.virterm +++| ITEM MULTIMSG I = [ # TERMDEF CODES # 00205 M00S00202.virterm +++| O"0016 4070 4001 4071 4011", # XPT CHAR, UPPER BITS 2500D # 00206 M00S00203.virterm +++| O"4072 4304 4073 4015 4074", # LOWER BITS 2500D, CR DEL # 00207 M00S00204.virterm +++| O"4000 4105 4377 4106 4001", # NO TIMEOUT, R.O. DEL, M-MSG # 00208 M00S00205.virterm +++| O"4064 4001 0000 0000 0000" ]; # START TRANSPARENT # 00209 M00S00206.virterm +++| END 00210 M00S00207.virterm +++| 00211 M00S00208.virterm +++| ARRAY DISABLMMSG [0:3] P(1); # DISABLE MULTI-MSG TRANSPARENT # 00212 M00S00209.virterm +++| BEGIN 00213 M00S00210.virterm +++| ITEM SINGLEMSG I = [ # TERMDEF CODES # 00214 M00S00211.virterm +++| O"0016 4070 4001 4071 4011", # XPT CHAR, UPPER BITS 2500D # 00215 M00S00212.virterm +++| O"4072 4304 4073 4015 4074", # LOWER BITS 2500D, CR DEL # 00216 M00S00213.virterm +++| O"4000 4105 4377 4106 4000", # NO TIMEOUT, R.O. DEL, S-MSG # 00217 M00S00214.virterm +++| O"4064 4000 0000 0000 0000" ]; # END TRANSPARENT # 00218 M00S00215.virterm +++| END 00219 M00S00216.virterm +++| CONTROL FI; 00220 M00S00217.virterm +++|CONTROL FI; 00221 M00S00218.virterm +++|CONTROL EJECT; 00222 M00S00219.virterm +++| 00223 M00S00220.virterm +++|CONTROL IFEQ EDITORVDT,0; # PROCEDURES NOT NEEDED BY FSE # 00224 M00S00221.virterm +++| 00225 M00S00222.virterm +++|PROC VDTBOI(ORDINAL); 00226 M00S00223.virterm +++| 00227 M00S00224.virterm +++|# TITLE VDTBOI - BEGINNING OF INPUT. # 00228 M00S00225.virterm +++| 00229 M00S00226.virterm +++|BEGIN # VDTBOI # 00230 M00S00227.virterm +++| 00231 M00S00228.virterm +++|# 00232 M00S00229.virterm +++|** VDTBOI - BEGINNING OF INPUT. 00233 M00S00230.virterm +++|* 00234 M00S00231.virterm +++|* THIS PROCEDURES PROVIDES THE ABILITY TO START AND MONITOR 00235 M00S00232.virterm +++|* INPUT SEQUENCES. IT IS IDENTICAL TO PROCEDURE *VDTPPI* EX- 00236 M00S00233.virterm +++|* CEPT THAT IT RETURNS AN ORDINAL. 00237 M00S00234.virterm +++|* 00238 M00S00235.virterm +++|* PROC VDTBOI(ORDINAL) 00239 M00S00236.virterm +++|* 00240 M00S00237.virterm +++|* EXIT ORDINAL = 0, IF TRANSPARENT INPUT RECEIVED OK. 00241 M00S00238.virterm +++|* = NON ZERO, IF TYPEAHEAD. 00242 M00S00239.virterm +++|* 00243 M00S00240.virterm +++|* CALLS VDTPPI. 00244 M00S00241.virterm +++|* 00245 M00S00242.virterm +++|* USES VTORDN. 00246 M00S00243.virterm +++|# 00247 M00S00244.virterm +++| 00248 M00S00245.virterm +++|ITEM ORDINAL I; # VTORDN # 00249 M00S00246.virterm +++| 00250 M00S00247.virterm +++|VDTPPI; # PRE-PROCESS INPUT # 00251 M00S00248.virterm +++|IF VTINPDATA EQ 0 THEN VTORDN = 1; # NULL TYPEAHEAD # 00252 M00S00249.virterm +++|ORDINAL = VTORDN; 00253 M00S00250.virterm +++| 00254 M00S00251.virterm +++|END # VDTBOI # 00255 M00S00252.virterm +++|CONTROL EJECT; 00256 M00S00253.virterm +++| 00257 M00S00254.virterm +++|PROC VDTBOX(ORDINAL); 00258 M00S00255.virterm +++| 00259 M00S00256.virterm +++|# TITLE VDTBOX - OUTPUT LINE DRAWING CHARACTER. # 00260 M00S00257.virterm +++| 00261 M00S00258.virterm +++|BEGIN # VDTBOX # 00262 M00S00259.virterm +++| 00263 M00S00260.virterm +++|# 00264 M00S00261.virterm +++|** VDTBOX - OUTPUT LINE DRAWING CHARACTER. 00265 M00S00262.virterm +++|* 00266 M00S00263.virterm +++|* THIS PROCEDURE OUTPUTS LINE DRAWING CHARACTERS BY ORDINAL. 00267 M00S00264.virterm +++|* 00268 M00S00265.virterm +++|* PROC VDTBOX(ORDINAL) 00269 M00S00266.virterm +++|* 00270 M00S00267.virterm +++|* CALLS VDCTRL. 00271 M00S00268.virterm +++|# 00272 M00S00269.virterm +++| 00273 M00S00270.virterm +++|ITEM ORDINAL I; # LINE DRAWING CHARACTER ORDINAL # 00274 M00S00271.virterm +++| 00275 M00S00272.virterm +++|IF ORDINAL GQ 0 AND ORDINAL LQ 11 THEN 00276 M00S00273.virterm +++| BEGIN # IF VALID ORDINAL # 00277 M00S00274.virterm +++| VDCTRL(OUT"LDFHORIZON" + ORDINAL + (13 * (BOXWEIGHT - 1))); 00278 M00S00275.virterm +++| END 00279 M00S00276.virterm +++| 00280 M00S00277.virterm +++|END # VDTBOX # 00281 M00S00278.virterm +++|CONTROL EJECT; 00282 M00S00279.virterm +++| 00283 M00S00280.virterm +++|PROC VDTCAA(NEWMASK); 00284 M00S00281.virterm +++| 00285 M00S00282.virterm +++|# TITLE VDTCAA - CHANGE ALL ATTRIBUTES. # 00286 M00S00283.virterm +++| 00287 M00S00284.virterm +++|BEGIN # VDTCAA # 00288 M00S00285.virterm +++| 00289 M00S00286.virterm +++|# 00290 M00S00287.virterm +++|** VDTCAA - CHANGE ALL ATTRIBUTES. 00291 M00S00288.virterm +++|* 00292 M00S00289.virterm +++|* THIS PROCEDURE CHANGES THE CURRENT ATTRIBUTE MASK. 00293 M00S00290.virterm +++|* 00294 M00S00291.virterm +++|* PROC VDTCAA(NEWMASK) 00295 M00S00292.virterm +++|# 00296 M00S00293.virterm +++|ITEM NEWMASK U; # NEW ATTRIBUTE MASK # 00297 M00S00294.virterm +++| 00298 M00S00295.virterm +++|ATTRIBMASK[0] = NEWMASK; # SET NEW ATTRIBUTE MASK # 00299 M00S00296.virterm +++| 00300 M00S00297.virterm +++|END # VDTCAA # 00301 M00S00298.virterm +++|*IF DEF,ECHO 00302 M00S00299.virterm +++|CONTROL EJECT; 00303 M00S00300.virterm +++| 00304 M00S00301.virterm +++|PROC VDTCLR; 00305 M00S00302.virterm +++| 00306 M00S00303.virterm +++|# TITLE VDTCLR - CLEAR TO END OF SCREEN. # 00307 M00S00304.virterm +++| 00308 M00S00305.virterm +++|BEGIN # VDTCLR # 00309 M00S00306.virterm +++| 00310 M00S00307.virterm +++|# 00311 M00S00308.virterm +++|** VDTCLR - CLEAR TO END OF SCREEN. 00312 M00S00309.virterm +++|* 00313 M00S00310.virterm +++|* THIS PROCEDURE CLEARS THE SCREEN FROM THE CURRENT CURSOR 00314 M00S00311.virterm +++|* POSITION TO THE END OF THE SCREEN AND POSITIONS THE CURSOR 00315 M00S00312.virterm +++|* TO THE HOME POSITION. 00316 M00S00313.virterm +++|* 00317 M00S00314.virterm +++|* PROC VDTCLR 00318 M00S00315.virterm +++|* 00319 M00S00316.virterm +++|* EXIT VTXCUR = 0. 00320 M00S00317.virterm +++|* VTYCUR = 0 OR VTYMAX. 00321 M00S00318.virterm +++|* 00322 M00S00319.virterm +++|* CALLS VDCTRL, VDTBOO, VDTHOM. 00323 M00S00320.virterm +++|# 00324 M00S00321.virterm +++| 00325 M00S00322.virterm +++|VDTBOO; # BEGIN OUTPUT SEQUENCE # 00326 M00S00323.virterm +++|VDCTRL(OUT"CLREOS"); # CLEAR TO END OF SCREEN # 00327 M00S00324.virterm +++|VDTHOM; # POSITION CURSOR TO HOME # 00328 M00S00325.virterm +++| 00329 M00S00326.virterm +++|END # VDTCLR # 00330 M00S00327.virterm +++|CONTROL EJECT; 00331 M00S00328.virterm +++| 00332 M00S00329.virterm +++|PROC VDTCUD; 00333 M00S00330.virterm +++| 00334 M00S00331.virterm +++|# TITLE VDTCUD - MOVE CURSOR DOWN ONE POSITION. # 00335 M00S00332.virterm +++| 00336 M00S00333.virterm +++|BEGIN # VDTCUD # 00337 M00S00334.virterm +++| 00338 M00S00335.virterm +++|# 00339 M00S00336.virterm +++|** VDTCUD - MOVE CURSOR DOWN ONE POSITION. 00340 M00S00337.virterm +++|* 00341 M00S00338.virterm +++|* THIS PROCEDURE MOVES THE CURSOR DOWN ONE POSITION. 00342 M00S00339.virterm +++|* 00343 M00S00340.virterm +++|* PROC VDTCUD 00344 M00S00341.virterm +++|* 00345 M00S00342.virterm +++|* EXIT VTYCUR AND VTXCUR ADJUSTED IF NECESSARY. 00346 M00S00343.virterm +++|* 00347 M00S00344.virterm +++|* CALLS VDCTRL. 00348 M00S00345.virterm +++|* 00349 M00S00346.virterm +++|* USES VTXCUR, VTYCUR. 00350 M00S00347.virterm +++|* 00351 M00S00348.virterm +++|* NOTES IF MOVING THE CURSOR DOWN ONE POSITON WILL CAUSE 00352 M00S00349.virterm +++|* THE TERMINAL TO SCROLL, OR THE CURSOR TO GO HOME 00353 M00S00350.virterm +++|* (OR IF THE CURSOR WILL STOP) THIS IS A NOOP. 00354 M00S00351.virterm +++|# 00355 M00S00352.virterm +++| 00356 M00S00353.virterm +++|IF VTYCUR EQ VTYMAX THEN 00357 M00S00354.virterm +++| BEGIN # IF PRESENTLY ON LAST LINE # 00358 M00S00355.virterm +++| IF TABDWNCRSR[0] GQ CURSORMOVE"SPIRAL" THEN 00359 M00S00356.virterm +++| BEGIN # IF NOT STOP, SCROLL OR HOME # 00360 M00S00357.virterm +++| VTYCUR = 0; # CURSOR WILL MOVE TO FIRST LINE # 00361 M00S00358.virterm +++| IF TABDWNCRSR[0] EQ CURSORMOVE"SPIRAL" THEN VTXCUR = VTXCUR + 1; 00362 M00S00359.virterm +++| VDCTRL(OUT"CURSORDOWN"); # MOVE CURSOR DOWN # 00363 M00S00360.virterm +++| END 00364 M00S00361.virterm +++| END 00365 M00S00362.virterm +++|ELSE 00366 M00S00363.virterm +++| BEGIN # NOT YET AT BOTTOM OF SCREEN # 00367 M00S00364.virterm +++| VTYCUR = VTYCUR + 1; # ADJUST POSITION # 00368 M00S00365.virterm +++| VDCTRL(OUT"CURSORDOWN"); # MOVE CURSOR DOWN # 00369 M00S00366.virterm +++| END 00370 M00S00367.virterm +++| 00371 M00S00368.virterm +++|END # VDTCUD # 00372 M00S00369.virterm +++|CONTROL EJECT; 00373 M00S00370.virterm +++| 00374 M00S00371.virterm +++|PROC VDTCUL; 00375 M00S00372.virterm +++| 00376 M00S00373.virterm +++|# TITLE VDTCUL - MOVE CURSOR LEFT ONE POSITION. # 00377 M00S00374.virterm +++| 00378 M00S00375.virterm +++|BEGIN # VDTCUL # 00379 M00S00376.virterm +++| 00380 M00S00377.virterm +++|# 00381 M00S00378.virterm +++|** VDTCUL - MOVE CURSOR LEFT ONE POSITION. 00382 M00S00379.virterm +++|* 00383 M00S00380.virterm +++|* THIS PROCEDURE MOVES THE CURSOR LEFT ONE POSITION. 00384 M00S00381.virterm +++|* 00385 M00S00382.virterm +++|* PROC VDTCUL 00386 M00S00383.virterm +++|* 00387 M00S00384.virterm +++|* EXIT VTXCUR AND VTYCUR ADJUSTED IF NECESSARY. 00388 M00S00385.virterm +++|* 00389 M00S00386.virterm +++|* CALLS VDCTRL, VDTCUU. 00390 M00S00387.virterm +++|* 00391 M00S00388.virterm +++|* USES VTXCUR, VTYCUR. 00392 M00S00389.virterm +++|* 00393 M00S00390.virterm +++|* NOTES IF MOVING THE CURSOR LEFT ONE POSITON WILL CAUSE 00394 M00S00391.virterm +++|* THE TERMINAL TO SCROLL, OR THE CURSOR TO GO HOME 00395 M00S00392.virterm +++|* (OR IF THE CURSOR WILL STOP) THIS IS A NOOP. 00396 M00S00393.virterm +++|# 00397 M00S00394.virterm +++| 00398 M00S00395.virterm +++|IF VTXCUR EQ 0 THEN 00399 M00S00396.virterm +++| BEGIN # IF PRESENTLY IN FIRST COLUMN # 00400 M00S00397.virterm +++| IF TABLEFTCUR[0] GQ CURSORMOVE"SPIRAL" THEN 00401 M00S00398.virterm +++| BEGIN # IF NOT STOP, SCROLL OR HOME # 00402 M00S00399.virterm +++| VTYCUR = VTYMAX; # CURSOR MOVES TO LAST COLUMN # 00403 M00S00400.virterm +++| IF TABLEFTCUR[0] EQ CURSORMOVE"SPIRAL" THEN VTYCUR = VTYCUR - 1; 00404 M00S00401.virterm +++| VDCTRL(OUT"CURSORLEFT"); # MOVE CURSOR LEFT # 00405 M00S00402.virterm +++| END 00406 M00S00403.virterm +++| END 00407 M00S00404.virterm +++|ELSE 00408 M00S00405.virterm +++| BEGIN # NOT YET AT LEFT SIDE OF SCREEN # 00409 M00S00406.virterm +++| VTXCUR = VTXCUR - 1; # ADJUST POSITION # 00410 M00S00407.virterm +++| VDCTRL(OUT"CURSORLEFT"); # MOVE CURSOR LEFT # 00411 M00S00408.virterm +++| END 00412 M00S00409.virterm +++| 00413 M00S00410.virterm +++|END # VDTCUL # 00414 M00S00411.virterm +++|CONTROL EJECT; 00415 M00S00412.virterm +++| 00416 M00S00413.virterm +++|PROC VDTCUR; 00417 M00S00414.virterm +++| 00418 M00S00415.virterm +++|# TITLE VDTCUR - MOVE CURSOR RIGHT ONE POSITION. # 00419 M00S00416.virterm +++| 00420 M00S00417.virterm +++|BEGIN # VDTCUR # 00421 M00S00418.virterm +++| 00422 M00S00419.virterm +++|# 00423 M00S00420.virterm +++|** VDTCUR - MOVE CURSOR RIGHT ONE POSITION. 00424 M00S00421.virterm +++|* 00425 M00S00422.virterm +++|* THIS PROCEDURE MOVES THE CURSOR RIGHT ONE POSITION. 00426 M00S00423.virterm +++|* 00427 M00S00424.virterm +++|* PROC VDTCUR 00428 M00S00425.virterm +++|* 00429 M00S00426.virterm +++|* EXIT VTXCUR AND VTYCUR ADJUSTED IF NECESSARY. 00430 M00S00427.virterm +++|* 00431 M00S00428.virterm +++|* CALLS VDCTRL. 00432 M00S00429.virterm +++|* 00433 M00S00430.virterm +++|* USES VTXCUR, VTYCUR. 00434 M00S00431.virterm +++|* 00435 M00S00432.virterm +++|* NOTES IF MOVING THE CURSOR RIGHT ONE POSITON WILL CAUSE 00436 M00S00433.virterm +++|* THE TERMINAL TO SCROLL, OR THE CURSOR TO GO HOME 00437 M00S00434.virterm +++|* (OR IF THE CURSOR WILL STOP) THIS IS A NOOP. 00438 M00S00435.virterm +++|# 00439 M00S00436.virterm +++| 00440 M00S00437.virterm +++|IF VTXCUR EQ VTXMAX THEN 00441 M00S00438.virterm +++| BEGIN # IF PRESENTLY IN LAST COLUMN # 00442 M00S00439.virterm +++| IF TABRGHTCUR[0] GQ CURSORMOVE"SPIRAL" THEN 00443 M00S00440.virterm +++| BEGIN # IF NOT STOP, SCROLL OR HOME # 00444 M00S00441.virterm +++| VTYCUR = 0; # CURSOR MOVES TO FIRST COLUMN # 00445 M00S00442.virterm +++| IF TABRGHTCUR[0] EQ CURSORMOVE"SPIRAL" THEN VTYCUR = VTYCUR + 1; 00446 M00S00443.virterm +++| VDCTRL(OUT"CURSORIGHT"); # MOVE CURSOR RIGHT # 00447 M00S00444.virterm +++| END 00448 M00S00445.virterm +++| END 00449 M00S00446.virterm +++|ELSE 00450 M00S00447.virterm +++| BEGIN # NOT AT RIGHT SIDE OF SCREEN # 00451 M00S00448.virterm +++| VTXCUR = VTXCUR + 1; # ADJUST POSITION # 00452 M00S00449.virterm +++| VDCTRL(OUT"CURSORIGHT"); # MOVE CURSOR RIGHT # 00453 M00S00450.virterm +++| END 00454 M00S00451.virterm +++| 00455 M00S00452.virterm +++|END # VDTCUR # 00456 M00S00453.virterm +++|CONTROL EJECT; 00457 M00S00454.virterm +++| 00458 M00S00455.virterm +++|PROC VDTCUU; 00459 M00S00456.virterm +++| 00460 M00S00457.virterm +++|# TITLE VDTCUU - MOVE CURSOR UP ONE POSITION. # 00461 M00S00458.virterm +++| 00462 M00S00459.virterm +++|BEGIN # VDTCUU # 00463 M00S00460.virterm +++| 00464 M00S00461.virterm +++|# 00465 M00S00462.virterm +++|** VDTCUU - MOVE CURSOR UP ONE POSTION. 00466 M00S00463.virterm +++|* 00467 M00S00464.virterm +++|* THIS PROCEDURE MOVES THE CURSOR UP ONE POSITION. 00468 M00S00465.virterm +++|* 00469 M00S00466.virterm +++|* PROC VDTCUU 00470 M00S00467.virterm +++|* 00471 M00S00468.virterm +++|* EXIT VTYCUR AND VTXCUR ADJUSTED IF NECESSARY. 00472 M00S00469.virterm +++|* 00473 M00S00470.virterm +++|* CALLS VDCTRL. 00474 M00S00471.virterm +++|* 00475 M00S00472.virterm +++|* USES VTXCUR, VTYCUR 00476 M00S00473.virterm +++|* 00477 M00S00474.virterm +++|* NOTES IF MOVING THE CURSOR UP ONE POSITON WILL CAUSE 00478 M00S00475.virterm +++|* THE TERMINAL TO SCROLL, OR THE CURSOR TO GO HOME 00479 M00S00476.virterm +++|* (OR IF THE CURSOR WILL STOP) THIS IS A NOOP. 00480 M00S00477.virterm +++|# 00481 M00S00478.virterm +++| 00482 M00S00479.virterm +++|IF VTYCUR EQ 0 THEN 00483 M00S00480.virterm +++| BEGIN # IF PRESENTLY ON FIRST LINE # 00484 M00S00481.virterm +++| IF TABUPCURSR[0] GQ CURSORMOVE"SPIRAL" THEN 00485 M00S00482.virterm +++| BEGIN # IF NOT STOP, SCROLL OR HOME # 00486 M00S00483.virterm +++| VTYCUR = VTYMAX; # CURSOR WILL MOVE TO LAST LINE # 00487 M00S00484.virterm +++| IF TABUPCURSR[0] EQ CURSORMOVE"SPIRAL" THEN VTXCUR = VTXCUR - 1; 00488 M00S00485.virterm +++| VDCTRL(OUT"CURSORUP"); # MOVE CURSOR UP # 00489 M00S00486.virterm +++| END 00490 M00S00487.virterm +++| END 00491 M00S00488.virterm +++|ELSE 00492 M00S00489.virterm +++| BEGIN # NOT YET AT TOP OF SCREEN # 00493 M00S00490.virterm +++| VTYCUR = VTYCUR - 1; # ADJUST POSITION # 00494 M00S00491.virterm +++| VDCTRL(OUT"CURSORUP"); # MOVE CURSOR UP # 00495 M00S00492.virterm +++| END 00496 M00S00493.virterm +++| 00497 M00S00494.virterm +++|END # VDTCUU # 00498 M00S00495.virterm +++|CONTROL EJECT; 00499 M00S00496.virterm +++| 00500 M00S00497.virterm +++|PROC VDTDEC; 00501 M00S00498.virterm +++| 00502 M00S00499.virterm +++|# TITLE VDTDEC - DELETE ONE CHARACTER. # 00503 M00S00500.virterm +++| 00504 M00S00501.virterm +++|BEGIN # VDTDEC # 00505 M00S00502.virterm +++| 00506 M00S00503.virterm +++|# 00507 M00S00504.virterm +++|** VDTDEC - DELETE ONE CHARACTER. 00508 M00S00505.virterm +++|* 00509 M00S00506.virterm +++|* THIS PROCEDURE DELETES ONE CHARACTER FROM THE TEXT ON THE SCREEN 00510 M00S00507.virterm +++|* SHIFTING EXISTING TEXT THAT WAS TO THE RIGHT OF THE CHARACTER ONE 00511 M00S00508.virterm +++|* POSITION TO THE LEFT. 00512 M00S00509.virterm +++|* 00513 M00S00510.virterm +++|* PROC VDTDEC 00514 M00S00511.virterm +++|* 00515 M00S00512.virterm +++|* CALLS VDCTRL. 00516 M00S00513.virterm +++|# 00517 M00S00514.virterm +++| 00518 M00S00515.virterm +++|VDCTRL(OUT"DELETECHAR"); # DELETE CHARACTER # 00519 M00S00516.virterm +++| 00520 M00S00517.virterm +++|END # VDTDEC # 00521 M00S00518.virterm +++|CONTROL EJECT; 00522 M00S00519.virterm +++| 00523 M00S00520.virterm +++|PROC VDTDEL; 00524 M00S00521.virterm +++| 00525 M00S00522.virterm +++|# TITLE VDTDEL - DELETE ONE LINE. # 00526 M00S00523.virterm +++| 00527 M00S00524.virterm +++|BEGIN # VDTDEL # 00528 M00S00525.virterm +++| 00529 M00S00526.virterm +++|# 00530 M00S00527.virterm +++|** VDTDEL - DELETE ONE LINE. 00531 M00S00528.virterm +++|* 00532 M00S00529.virterm +++|* THIS PROCEDURE DELETES THE LINE THAT THE CURSOR IS ON AND 00533 M00S00530.virterm +++|* MOVES THE REMAINING LINES BELOW THE DELETED AREA UP ONE, 00534 M00S00531.virterm +++|* POSITIONING THE CURSOR TO THE START OF THE LINE. 00535 M00S00532.virterm +++|* 00536 M00S00533.virterm +++|* PROC VDTDEL 00537 M00S00534.virterm +++|* 00538 M00S00535.virterm +++|* CALLS VDCTRL, VDMOVE. 00539 M00S00536.virterm +++|* 00540 M00S00537.virterm +++|* USES VTXCUR. 00541 M00S00538.virterm +++|# 00542 M00S00539.virterm +++| 00543 M00S00540.virterm +++|VDCTRL(OUT"DELINECURL"); # DELETE LINE, CURSOR LEFT # 00544 M00S00541.virterm +++|IF NUMBERBYTE EQ 0 THEN 00545 M00S00542.virterm +++| BEGIN # IF NO FUNCTION AVAILABLE # 00546 M00S00543.virterm +++| VDCTRL(OUT"DELETELINE"); # DELETE LINE # 00547 M00S00544.virterm +++| IF NUMBERBYTE NQ 0 AND VTXCUR NQ 0 THEN 00548 M00S00545.virterm +++| BEGIN # IF POSITION NEEDS UPDATE # 00549 M00S00546.virterm +++| VTXCUR = 0; # CLEAR X POSITION # 00550 M00S00547.virterm +++| VDMOVE(VTXCUR,VTYCUR); # POSITION CURSOR # 00551 M00S00548.virterm +++| END 00552 M00S00549.virterm +++| END 00553 M00S00550.virterm +++|ELSE 00554 M00S00551.virterm +++| BEGIN # FUNCTION AVAILABLE # 00555 M00S00552.virterm +++| VTXCUR = 0; # CLEAR X POSITION # 00556 M00S00553.virterm +++| END 00557 M00S00554.virterm +++| 00558 M00S00555.virterm +++|END # VDTDEL # 00559 M00S00556.virterm +++|*ENDIF 00560 M00S00557.virterm +++|CONTROL EJECT; 00561 M00S00558.virterm +++| 00562 M00S00559.virterm +++|PROC VDTDRW(WEIGHT); 00563 M00S00560.virterm +++| 00564 M00S00561.virterm +++|# TITLE VDTDRW - SET LINE DRAWING CHARACTER SET. # 00565 M00S00562.virterm +++| 00566 M00S00563.virterm +++|BEGIN # VDTDRW # 00567 M00S00564.virterm +++| 00568 M00S00565.virterm +++|# 00569 M00S00566.virterm +++|** VDTDRW - SET LINE DRAWING CHARACTER SET. 00570 M00S00567.virterm +++|* 00571 M00S00568.virterm +++|* THIS PROCEDURE SETS OR CLEARS THE LINE DRAWING CHARACTER SET FOR 00572 M00S00569.virterm +++|* THOSE TERMINALS THAT HAVE A LINE DRAWING CHARACTER SET. 00573 M00S00570.virterm +++|* 00574 M00S00571.virterm +++|* PROC VDTDRW(WEIGHT) 00575 M00S00572.virterm +++|* 00576 M00S00573.virterm +++|* ENTRY BOXWEIGHT = CURRENT LINE DRAWING WEIGHT. 00577 M00S00574.virterm +++|* WEIGHT = REQUESTED LINE DRAWING WEIGHT. 00578 M00S00575.virterm +++|* = 0, IF TURNING OFF LINE DRAWING. 00579 M00S00576.virterm +++|* = 1, IF FINE LINE DRAWING REQUESTED. 00580 M00S00577.virterm +++|* = 2, IF MEDIUM LINE DRAWING REQUESTED. 00581 M00S00578.virterm +++|* = 3, IF BOLD LINE DRAWING REQUESTED. 00582 M00S00579.virterm +++|* 00583 M00S00580.virterm +++|* EXIT BOXWEIGHT = CURRENT LINE DRAWING WEIGHT. 00584 M00S00581.virterm +++|* 00585 M00S00582.virterm +++|* CALLS VDCTRL. 00586 M00S00583.virterm +++|# 00587 M00S00584.virterm +++| 00588 M00S00585.virterm +++|ITEM WEIGHT I; # LINE DRAWING WEIGHT # 00589 M00S00586.virterm +++| 00590 M00S00587.virterm +++|IF WEIGHT GQ 0 AND WEIGHT LQ 3 AND WEIGHT NQ BOXWEIGHT THEN 00591 M00S00588.virterm +++| BEGIN # IF VALID CHANGE REQUESTED # 00592 M00S00589.virterm +++| IF BOXWEIGHT GR 0 THEN 00593 M00S00590.virterm +++| BEGIN # IF LINE DRAWING IS ON # 00594 M00S00591.virterm +++| VDCTRL(OUT"LDFINEOFF"+((BOXWEIGHT-1)*13)); 00595 M00S00592.virterm +++| END 00596 M00S00593.virterm +++| IF WEIGHT GR 0 THEN 00597 M00S00594.virterm +++| BEGIN # IF NEW WEIGHT REQUESTED # 00598 M00S00595.virterm +++| VDCTRL(OUT"LDFINEON"+((WEIGHT-1)*13)); 00599 M00S00596.virterm +++| END 00600 M00S00597.virterm +++| BOXWEIGHT = WEIGHT; # SAVE NEW BOX WEIGHT # 00601 M00S00598.virterm +++| END 00602 M00S00599.virterm +++| 00603 M00S00600.virterm +++|END # VDTDRW # 00604 M00S00601.virterm +++|*IF DEF,ECHO 00605 M00S00602.virterm +++|CONTROL EJECT; 00606 M00S00603.virterm +++| 00607 M00S00604.virterm +++|PROC VDTEOI; 00608 M00S00605.virterm +++| 00609 M00S00606.virterm +++|# TITLE VDTEOI - END OF INFORMATION. # 00610 M00S00607.virterm +++| 00611 M00S00608.virterm +++|BEGIN # VDTEOI # 00612 M00S00609.virterm +++| 00613 M00S00610.virterm +++|# 00614 M00S00611.virterm +++|** VDTEOI - END OF INFORMATION. 00615 M00S00612.virterm +++|* 00616 M00S00613.virterm +++|* THIS PROCEDURE SENDS AN END OF INFORMATION BYTE. 00617 M00S00614.virterm +++|* 00618 M00S00615.virterm +++|* PROC VDTEOI 00619 M00S00616.virterm +++|* 00620 M00S00617.virterm +++|* CALLS VDTOUT. 00621 M00S00618.virterm +++|# 00622 M00S00619.virterm +++| 00623 M00S00620.virterm +++|VDTOUT(X"00"); # END OF INFORMATION BYTE # 00624 M00S00621.virterm +++| 00625 M00S00622.virterm +++|END # VDTEOI # 00626 M00S00623.virterm +++|CONTROL EJECT; 00627 M00S00624.virterm +++| 00628 M00S00625.virterm +++|PROC VDTERC; 00629 M00S00626.virterm +++| 00630 M00S00627.virterm +++|# TITLE VDTERC - ERASE CHARACTER. # 00631 M00S00628.virterm +++| 00632 M00S00629.virterm +++|BEGIN # VDTERC # 00633 M00S00630.virterm +++| 00634 M00S00631.virterm +++|# 00635 M00S00632.virterm +++|** VDTERC - ERASE CHARACTER. 00636 M00S00633.virterm +++|* 00637 M00S00634.virterm +++|* THIS PROCEDURE MOVES THE CURSOR LEFT ONE POSITION AND 00638 M00S00635.virterm +++|* CLEARS THE (UNPROTECTED) CHARACTER IN THAT POSITION. 00639 M00S00636.virterm +++|* 00640 M00S00637.virterm +++|* PROC VDTERC 00641 M00S00638.virterm +++|* 00642 M00S00639.virterm +++|* EXIT VTXCUR AND VTYCUR ADJUSTED IF NECESSARY. 00643 M00S00640.virterm +++|* 00644 M00S00641.virterm +++|* CALLS VDCTRL. 00645 M00S00642.virterm +++|# 00646 M00S00643.virterm +++| 00647 M00S00644.virterm +++|VDCTRL(OUT"ERASECHAR"); 00648 M00S00645.virterm +++| 00649 M00S00646.virterm +++|VTXCUR = VTXCUR - 1; 00650 M00S00647.virterm +++|IF VTXCUR LS 0 THEN 00651 M00S00648.virterm +++| BEGIN # IF OFF LEFT SIDE OF SCREEN # 00652 M00S00649.virterm +++| IF TABLEFTCHR[0] GQ CURSORMOVE"SPIRAL" THEN 00653 M00S00650.virterm +++| BEGIN # IF WRAP OR SPIRAL # 00654 M00S00651.virterm +++| VTXCUR = VTXMAX; # CURSOR IS IN LAST COLUMN # 00655 M00S00652.virterm +++| IF TABLEFTCHR[0] EQ CURSORMOVE"SPIRAL" THEN VTYCUR = VTYCUR - 1; 00656 M00S00653.virterm +++| END 00657 M00S00654.virterm +++| ELSE 00658 M00S00655.virterm +++| BEGIN # CURSOR HAS STOPPED AT LEFT # 00659 M00S00656.virterm +++| VTXCUR = 0; # CURSOR IS IN FIRST COLUMN # 00660 M00S00657.virterm +++| END 00661 M00S00658.virterm +++| END 00662 M00S00659.virterm +++| 00663 M00S00660.virterm +++|END # VDTERC # 00664 M00S00661.virterm +++|CONTROL EJECT; 00665 M00S00662.virterm +++| 00666 M00S00663.virterm +++|PROC VDTERL; 00667 M00S00664.virterm +++| 00668 M00S00665.virterm +++|# TITLE VDTERL - ERASE LINE. # 00669 M00S00666.virterm +++| 00670 M00S00667.virterm +++|BEGIN # VDTERL # 00671 M00S00668.virterm +++| 00672 M00S00669.virterm +++|# 00673 M00S00670.virterm +++|** VDTERL - ERASE LINE. 00674 M00S00671.virterm +++|* 00675 M00S00672.virterm +++|* THIS PROCEDURE ERASES THE UNPROTECTED AREAS OF THE ACTIVE LINE. 00676 M00S00673.virterm +++|* 00677 M00S00674.virterm +++|* PROC VDTERL 00678 M00S00675.virterm +++|* 00679 M00S00676.virterm +++|* EXIT VTXCUR = 0. 00680 M00S00677.virterm +++|* 00681 M00S00678.virterm +++|* CALLS VDTCLL, VDCTRL, VDMOVE. 00682 M00S00679.virterm +++|* 00683 M00S00680.virterm +++|* USES VTXCUR. 00684 M00S00681.virterm +++|# 00685 M00S00682.virterm +++| 00686 M00S00683.virterm +++|VDCTRL(OUT"ERASELNECL"); # ERASE LINE, CURSOR LEFT # 00687 M00S00684.virterm +++|IF NUMBERBYTE EQ 0 THEN 00688 M00S00685.virterm +++| BEGIN # IF NO FUNCTION AVAILABLE # 00689 M00S00686.virterm +++| IF VTXCUR NQ 0 THEN 00690 M00S00687.virterm +++| BEGIN # IF NOT AT START OF LINE # 00691 M00S00688.virterm +++| VTXCUR = 0; # SET X POSITION # 00692 M00S00689.virterm +++| VDMOVE(VTXCUR,VTYCUR); # POSITION CURSOR # 00693 M00S00690.virterm +++| END 00694 M00S00691.virterm +++| VDCTRL(OUT"ERASELINE"); # ERASE LINE # 00695 M00S00692.virterm +++| IF NUMBERBYTE EQ 0 THEN 00696 M00S00693.virterm +++| BEGIN # IF NO FUNCTION AVAILABLE # 00697 M00S00694.virterm +++| VDTCLL(VTXCUR,VTYCUR); # CLEAR LINE # 00698 M00S00695.virterm +++| END 00699 M00S00696.virterm +++| END 00700 M00S00697.virterm +++|ELSE 00701 M00S00698.virterm +++| BEGIN 00702 M00S00699.virterm +++| VTXCUR = 0; # CLEAR X POSITION # 00703 M00S00700.virterm +++| END 00704 M00S00701.virterm +++| 00705 M00S00702.virterm +++|END # VDTERL # 00706 M00S00703.virterm +++|*ENDIF 00707 M00S00704.virterm +++|CONTROL EJECT; 00708 M00S00705.virterm +++| 00709 M00S00706.virterm +++|PROC VDTGTF(WORD,INDEX); 00710 M00S00707.virterm +++| 00711 M00S00708.virterm +++|# TITLE VDTGTF - GET TERMINAL ATTRIBUTE FLAGS. # 00712 M00S00709.virterm +++| 00713 M00S00710.virterm +++|BEGIN # VDTGTF # 00714 M00S00711.virterm +++| 00715 M00S00712.virterm +++|# 00716 M00S00713.virterm +++|** VDTGTF - GET TERMINAL ATTRIBUTE FLAGS. 00717 M00S00714.virterm +++|* 00718 M00S00715.virterm +++|* THIS PROCEDURE RETURNS *TDU* TERMINAL ATTRIBUTE FLAGS. 00719 M00S00716.virterm +++|* 00720 M00S00717.virterm +++|* PROC VDTGTF(WORD,INDEX) 00721 M00S00718.virterm +++|* 00722 M00S00719.virterm +++|* EXIT WORD = TERMINAL ATTRIBUTE WORD FROM *TDU* TABLE. 00723 M00S00720.virterm +++|# 00724 M00S00721.virterm +++|ITEM WORD U; # TERMINAL ATTRIBUTE WORD # 00725 M00S00722.virterm +++|ITEM INDEX I; # INDEX INTO *TDU* TABLE # 00726 M00S00723.virterm +++| 00727 M00S00724.virterm +++|WORD = TABHEADONE[INDEX]; # RETURN WORD FROM TABLE # 00728 M00S00725.virterm +++| 00729 M00S00726.virterm +++|END # VDTGTF # 00730 M00S00727.virterm +++|*IF DEF,ECHO 00731 M00S00728.virterm +++|CONTROL EJECT; 00732 M00S00729.virterm +++| 00733 M00S00730.virterm +++|PROC VDTINC; 00734 M00S00731.virterm +++| 00735 M00S00732.virterm +++|# TITLE VDTINC - INSERT ONE SPACE CHARACTER. # 00736 M00S00733.virterm +++| 00737 M00S00734.virterm +++|BEGIN # VDTINC # 00738 M00S00735.virterm +++| 00739 M00S00736.virterm +++|# 00740 M00S00737.virterm +++|** VDTINC - INSERT ONE SPACE CHARACTER. 00741 M00S00738.virterm +++|* 00742 M00S00739.virterm +++|* THIS PROCEDURE INSERTS ONE BLANK CHARACTER INTO THE TEXT ON THE 00743 M00S00740.virterm +++|* SCREEN, SHIFTING EXISTING TEXT PAST THE CURSOR ONE POSITION TO 00744 M00S00741.virterm +++|* THE RIGHT. 00745 M00S00742.virterm +++|* 00746 M00S00743.virterm +++|* PROC VDTINC 00747 M00S00744.virterm +++|* 00748 M00S00745.virterm +++|* CALLS VDCTRL. 00749 M00S00746.virterm +++|# 00750 M00S00747.virterm +++| 00751 M00S00748.virterm +++|VDCTRL(OUT"INSERTCHAR"); # INSERT CHARACTER # 00752 M00S00749.virterm +++| 00753 M00S00750.virterm +++|END # VDTINC # 00754 M00S00751.virterm +++|CONTROL EJECT; 00755 M00S00752.virterm +++| 00756 M00S00753.virterm +++|PROC VDTINL; 00757 M00S00754.virterm +++| 00758 M00S00755.virterm +++|# TITLE VDTINL - INSERT ONE BLANK LINE. # 00759 M00S00756.virterm +++| 00760 M00S00757.virterm +++|BEGIN # VDTINL # 00761 M00S00758.virterm +++| 00762 M00S00759.virterm +++|# 00763 M00S00760.virterm +++|** VDTINL - INSERT ONE BLANK LINE. 00764 M00S00761.virterm +++|* 00765 M00S00762.virterm +++|* THIS PROCEDURE INSERTS A BLANK LINE, MOVING THE LINE THAT 00766 M00S00763.virterm +++|* THE CURSOR IS ON AND ALL FOLLOWING LINES DOWN ONE, POS- 00767 M00S00764.virterm +++|* TIONING THE CURSOR TO THE START OF THE LINE. 00768 M00S00765.virterm +++|* 00769 M00S00766.virterm +++|* PROC VDTINL 00770 M00S00767.virterm +++|* 00771 M00S00768.virterm +++|* CALLS VDCTRL, VDMOVE. 00772 M00S00769.virterm +++|* 00773 M00S00770.virterm +++|* USES VTXCUR. 00774 M00S00771.virterm +++|# 00775 M00S00772.virterm +++| 00776 M00S00773.virterm +++|VDCTRL(OUT"INSLNECURL"); # INSERT LINE, CURSOR LEFT # 00777 M00S00774.virterm +++|IF NUMBERBYTE EQ 0 THEN 00778 M00S00775.virterm +++| BEGIN # IF NO FUNCTION AVAILABLE # 00779 M00S00776.virterm +++| VDCTRL(OUT"INSERTLINE"); # INSERT LINE # 00780 M00S00777.virterm +++| IF NUMBERBYTE NQ 0 AND VTXCUR NQ 0 THEN 00781 M00S00778.virterm +++| BEGIN # IF POSITION NEEDS UPDATE # 00782 M00S00779.virterm +++| VTXCUR = 0; # CLEAR X POSITION # 00783 M00S00780.virterm +++| VDMOVE(VTXCUR,VTYCUR); # POSITION CURSOR # 00784 M00S00781.virterm +++| END 00785 M00S00782.virterm +++| END 00786 M00S00783.virterm +++|ELSE 00787 M00S00784.virterm +++| BEGIN # FUNCTION AVAILABLE # 00788 M00S00785.virterm +++| VTXCUR = 0; # CLEAR X POSITION # 00789 M00S00786.virterm +++| END 00790 M00S00787.virterm +++| 00791 M00S00788.virterm +++|END # VDTINL # 00792 M00S00789.virterm +++|*ENDIF 00793 M00S00790.virterm +++|CONTROL EJECT; 00794 M00S00791.virterm +++| 00795 M00S00792.virterm +++|PROC VDTINP(ORDINAL,COLUMN,LINE,CHAR,N); 00796 M00S00793.virterm +++| 00797 M00S00794.virterm +++|# TITLE VDTINP - IDENTIFY NEXT VIRTUAL INPUT EVENT. # 00798 M00S00795.virterm +++| 00799 M00S00796.virterm +++|BEGIN # VDTINP # 00800 M00S00797.virterm +++| 00801 M00S00798.virterm +++|# 00802 M00S00799.virterm +++|** VDTINP - IDENTIFY NEXT VIRTUAL INPUT EVENT. 00803 M00S00800.virterm +++|* 00804 M00S00801.virterm +++|* THIS PROCEDURE INDENTIFIES THE NEXT VIRTUAL TERMINAL INPUT 00805 M00S00802.virterm +++|* EVENT. THIS REQUIRES THAT *VDTBOI* MUST BE CALLED FIRST TO 00806 M00S00803.virterm +++|* SET UP FOR INPUT EVENTS. 00807 M00S00804.virterm +++|* 00808 M00S00805.virterm +++|* PROC VDTINP(ORDINAL,COLUMN,LINE,CHAR,N) 00809 M00S00806.virterm +++|* 00810 M00S00807.virterm +++|* ENTRY VTINCR = RESIDUAL CURSOR INCREMENT. 00811 M00S00808.virterm +++|* VTXMAX = NUMBER OF COLUMNS ON SCREEN. 00812 M00S00809.virterm +++|* VTYMAX = NUMBER OF LINES ON SCREEN. 00813 M00S00810.virterm +++|* 00814 M00S00811.virterm +++|* EXIT ORDINAL = EVENT CATEGORY. 00815 M00S00812.virterm +++|* CHAR = DATA CHARACTER, OR FUNCTION ORDINAL. 00816 M00S00813.virterm +++|* COLUMN = COLUMN CURSOR POSITION. 00817 M00S00814.virterm +++|* LINE = LINE CURSOR POSITION. 00818 M00S00815.virterm +++|* N = INCREMENTAL CURSOR MOVEMENT. 00819 M00S00816.virterm +++|* 00820 M00S00817.virterm +++|* CALLS VDTIINP. 00821 M00S00818.virterm +++|# 00822 M00S00819.virterm +++| 00823 M00S00820.virterm +++|ITEM ORDINAL I; # EVENT CATEGORY # 00824 M00S00821.virterm +++|ITEM COLUMN I; # COLUMN POSITION # 00825 M00S00822.virterm +++|ITEM LINE I; # LINE POSITION # 00826 M00S00823.virterm +++|ITEM CHAR I; # DATA CHARACTER # 00827 M00S00824.virterm +++|ITEM N I; # INCREMENTAL CURSOR MOVEMENT # 00828 M00S00825.virterm +++| 00829 M00S00826.virterm +++|VDTIINP; # PERFORM INPUT SEQUENCE # 00830 M00S00827.virterm +++|ORDINAL = VTORDN; 00831 M00S00828.virterm +++|COLUMN = VTXCUR; 00832 M00S00829.virterm +++|LINE = VTYCUR; 00833 M00S00830.virterm +++|CHAR = VTCHAR; 00834 M00S00831.virterm +++|N = VTDELT; 00835 M00S00832.virterm +++| 00836 M00S00833.virterm +++|END # VDTINP # 00837 M00S00834.virterm +++|CONTROL EJECT; 00838 M00S00835.virterm +++| 00839 M00S00836.virterm +++|PROC VDTPRO(ORD); 00840 M00S00837.virterm +++| 00841 M00S00838.virterm +++|# TITLE VDTPRO - SET PROTECTION. # 00842 M00S00839.virterm +++| 00843 M00S00840.virterm +++|BEGIN # VDTPRO # 00844 M00S00841.virterm +++| 00845 M00S00842.virterm +++|# 00846 M00S00843.virterm +++|** VDTPRO - SET PROTECTION. 00847 M00S00844.virterm +++|* 00848 M00S00845.virterm +++|* THIS PROCEDURE ISSUES OUTPUT SEQUENCES DEALING WITH PROTECT. 00849 M00S00846.virterm +++|* 00850 M00S00847.virterm +++|* PROC VDTPRO(ORD) 00851 M00S00848.virterm +++|* 00852 M00S00849.virterm +++|* ENTRY ORD = OUTPUT SEQUENCE ORDINAL FOR PROTECT 00853 M00S00850.virterm +++|* ALL, BEGIN DISPLAY OR END DISPLAY. 00854 M00S00851.virterm +++|* 00855 M00S00852.virterm +++|* EXIT REQUESTED SEQUENCE ISSUED. 00856 M00S00853.virterm +++|* 00857 M00S00854.virterm +++|* CALLS VDCTRL. 00858 M00S00855.virterm +++|# 00859 M00S00856.virterm +++|ITEM ORD I; # OUTPUT SEQUENCE ORDINAL # 00860 M00S00857.virterm +++| 00861 M00S00858.virterm +++|VDCTRL(ORD); # ISSUE REQUESTED SEQUENCE # 00862 M00S00859.virterm +++| 00863 M00S00860.virterm +++|END # VDTPRO # 00864 M00S00861.virterm +++|CONTROL EJECT; 00865 M00S00862.virterm +++| 00866 M00S00863.virterm +++|PROC VDTPSU; 00867 M00S00864.virterm +++| 00868 M00S00865.virterm +++|# TITLE VDTPSU - PSEUDO UNDERLINE. # 00869 M00S00866.virterm +++| 00870 M00S00867.virterm +++|BEGIN # VDTPSU # 00871 M00S00868.virterm +++| 00872 M00S00869.virterm +++|# 00873 M00S00870.virterm +++|** VDTPSU - PSEUDO UNDERLINE. 00874 M00S00871.virterm +++|* 00875 M00S00872.virterm +++|* THIS PROCEDURE ALLOWS INPUT FIELDS TO BE SEEN ON DUMB TERMINALS 00876 M00S00873.virterm +++|* BY TURNING THE BLANK AREA OF AN INPUT FIELD INTO UNDERSCORES. 00877 M00S00874.virterm +++|* 00878 M00S00875.virterm +++|* PROC VDTPSU 00879 M00S00876.virterm +++|* 00880 M00S00877.virterm +++|* ENTRY VTPSUNDACT = TRUE, IF PSEUDO UNDERLINING. 00881 M00S00878.virterm +++|* 00882 M00S00879.virterm +++|* EXIT BLANK OR UNDERSCORE OUTPUT AS NECESSARY. 00883 M00S00880.virterm +++|# 00884 M00S00881.virterm +++| 00885 M00S00882.virterm +++|IF VTPSUNDACT[0] THEN 00886 M00S00883.virterm +++| BEGIN # IF PSEUDO UNDERLINING # 00887 M00S00884.virterm +++| VDTCHR(O"0137"); 00888 M00S00885.virterm +++| END 00889 M00S00886.virterm +++|ELSE 00890 M00S00887.virterm +++| BEGIN # JUST A BLANK # 00891 M00S00888.virterm +++| VDTCHR(O"0040"); 00892 M00S00889.virterm +++| END 00893 M00S00890.virterm +++| 00894 M00S00891.virterm +++|END # VDTPSU # 00895 M00S00892.virterm +++|*IF DEF,ECHO 00896 M00S00893.virterm +++|CONTROL EJECT; 00897 M00S00894.virterm +++| 00898 M00S00895.virterm +++|PROC VDTRES; 00899 M00S00896.virterm +++| 00900 M00S00897.virterm +++|# TITLE VDTRES - RESET. # 00901 M00S00898.virterm +++| 00902 M00S00899.virterm +++|BEGIN # VDTRES # 00903 M00S00900.virterm +++| 00904 M00S00901.virterm +++|# 00905 M00S00902.virterm +++|** VDTRES - RESET. 00906 M00S00903.virterm +++|* 00907 M00S00904.virterm +++|* THIS PROCEDURE ISSUES A RESET SEQUENCE. 00908 M00S00905.virterm +++|* 00909 M00S00906.virterm +++|* PROC VDTRES 00910 M00S00907.virterm +++|* 00911 M00S00908.virterm +++|* CALLS VDCTRL. 00912 M00S00909.virterm +++|# 00913 M00S00910.virterm +++| 00914 M00S00911.virterm +++|VDCTRL(OUT"RESET"); # ISSUE RESET SEQUENCE # 00915 M00S00912.virterm +++| 00916 M00S00913.virterm +++|END # VDTRES # 00917 M00S00914.virterm +++|CONTROL EJECT; 00918 M00S00915.virterm +++| 00919 M00S00916.virterm +++|PROC VDTRET; 00920 M00S00917.virterm +++| 00921 M00S00918.virterm +++|# TITLE VDTRET - RETURN. # 00922 M00S00919.virterm +++| 00923 M00S00920.virterm +++|BEGIN # VDTRET # 00924 M00S00921.virterm +++| 00925 M00S00922.virterm +++|# 00926 M00S00923.virterm +++|** VDTRET - RETURN. 00927 M00S00924.virterm +++|* 00928 M00S00925.virterm +++|* THIS PROCEDURE ISSUES A RETURN SEQUENCE. 00929 M00S00926.virterm +++|* 00930 M00S00927.virterm +++|* PROC VDTRET 00931 M00S00928.virterm +++|* 00932 M00S00929.virterm +++|* CALLS VDCTRL. 00933 M00S00930.virterm +++|# 00934 M00S00931.virterm +++| 00935 M00S00932.virterm +++|VDCTRL(OUT"RET"); 00936 M00S00933.virterm +++| 00937 M00S00934.virterm +++|END # VDTRET # 00938 M00S00935.virterm +++|CONTROL EJECT; 00939 M00S00936.virterm +++| 00940 M00S00937.virterm +++|PROC VDTTAB; 00941 M00S00938.virterm +++| 00942 M00S00939.virterm +++|# TITLE VDTTAB - TAB FORWARD. # 00943 M00S00940.virterm +++| 00944 M00S00941.virterm +++|BEGIN # VDTTAB # 00945 M00S00942.virterm +++| 00946 M00S00943.virterm +++|# 00947 M00S00944.virterm +++|** VDTTAB - TAB FORWARD. 00948 M00S00945.virterm +++|* 00949 M00S00946.virterm +++|* THIS PROCEDURE MOVES THE CURSOR TO THE NEXT TAB POSITION OR 00950 M00S00947.virterm +++|* UNPROTECTED FIELD. 00951 M00S00948.virterm +++|* 00952 M00S00949.virterm +++|* PROC VDTTAB 00953 M00S00950.virterm +++|* 00954 M00S00951.virterm +++|* CALLS VDCTRL. 00955 M00S00952.virterm +++|* 00956 M00S00953.virterm +++|* NOTES THE INTERNAL CURSOR POSITION IS INCORRECT AFTER 00957 M00S00954.virterm +++|* A TAB FUNCTION SO PROCEDURE VDTCOR MUST BE CALLED. 00958 M00S00955.virterm +++|# 00959 M00S00956.virterm +++| 00960 M00S00957.virterm +++|VDCTRL(OUT"TABFORWARD"); # TAB FORWARD # 00961 M00S00958.virterm +++| 00962 M00S00959.virterm +++|END # VDTTAB # 00963 M00S00960.virterm +++|CONTROL EJECT; 00964 M00S00961.virterm +++| 00965 M00S00962.virterm +++|PROC VDTTBB; 00966 M00S00963.virterm +++| 00967 M00S00964.virterm +++|# TITLE VDTTBB - TAB BACKWARD. # 00968 M00S00965.virterm +++| 00969 M00S00966.virterm +++|BEGIN # VDTTBB # 00970 M00S00967.virterm +++| 00971 M00S00968.virterm +++|# 00972 M00S00969.virterm +++|** VDTTBB - TAB BACKWARD. 00973 M00S00970.virterm +++|* 00974 M00S00971.virterm +++|* THIS PROCEDURE MOVES THE CURSOR TO THE PREVIOUS TAB POSITION 00975 M00S00972.virterm +++|* OR UNPROTECTED FIELD. 00976 M00S00973.virterm +++|* 00977 M00S00974.virterm +++|* PROC VDTTBB 00978 M00S00975.virterm +++|* 00979 M00S00976.virterm +++|* CALLS VDCTRL. 00980 M00S00977.virterm +++|* 00981 M00S00978.virterm +++|* NOTES THE INTERNAL CURSOR POSITION IS INCORRECT AFTER 00982 M00S00979.virterm +++|* A TAB FUNCTION SO PROCEDURE VDTCOR MUST BE CALLED. 00983 M00S00980.virterm +++|# 00984 M00S00981.virterm +++| 00985 M00S00982.virterm +++|VDCTRL(OUT"TABACKWARD"); # TAB BACKWARD # 00986 M00S00983.virterm +++| 00987 M00S00984.virterm +++|END # VDTTBB # 00988 M00S00985.virterm +++|*ENDIF 00989 M00S00986.virterm +++| 00990 M00S00987.virterm +++|CONTROL FI; # END OF SFORM ONLY PROCEDURES # 00991 M00S00988.virterm +++|CONTROL EJECT; # VDTTFF USED BY SFORM AND FSE # 00992 M00S00989.virterm +++| 00993 M00S00990.virterm +++|CONTROL IFEQ SINGLE,1; # IF NOT MULTI USER FSE # 00994 M00S00991.virterm +++| 00995 M00S00992.virterm +++|PROC VDTTFF(OUTORD,COUNT); 00996 M00S00993.virterm +++| 00997 M00S00994.virterm +++|# TITLE VDTTFF - TEST FOR OUTPUT FUNCTION. # 00998 M00S00995.virterm +++| 00999 M00S00996.virterm +++|BEGIN # VDTTFF # 01000 M00S00997.virterm +++| 01001 M00S00998.virterm +++|# 01002 M00S00999.virterm +++|** VDTTFF - TEST FOR OUTPUT FUNCTION. 01003 M00S01000.virterm +++|* 01004 M00S01001.virterm +++|* THIS PROCEDURE TESTS FOR A *TDU* DEFINED OUTPUT FUNCTION FOR A 01005 M00S01002.virterm +++|* GIVEN ORDINAL. 01006 M00S01003.virterm +++|* 01007 M00S01004.virterm +++|* PROC VDTTFF(OUTORD,COUNT) 01008 M00S01005.virterm +++|* 01009 M00S01006.virterm +++|* ENTRY OUTORD = THE *TDU* OUPUT ORDINAL TO BE CHECKED. 01010 M00S01007.virterm +++|* 01011 M00S01008.virterm +++|* EXIT COUNT = THE NUMBER OF BYTES IN THE SEQUENCE. 01012 M00S01009.virterm +++|# 01013 M00S01010.virterm +++| 01014 M00S01011.virterm +++|ITEM OUTORD I; # *TDU* OUTPUT ORDINAL # 01015 M00S01012.virterm +++|ITEM COUNT I; # BTYE COUNT FOR SEQUENCE # 01016 M00S01013.virterm +++| 01017 M00S01014.virterm +++|ITEM TDUOFFSET I; # *TDU* OFFSET FOR SEQUENCE # 01018 M00S01015.virterm +++|ITEM CHARINDEX I; # CHARACTER INDEX INTO WORD # 01019 M00S01016.virterm +++|ITEM WORDINDEX I; # WORD INDEX INTP *TDU* TABLE # 01020 M00S01017.virterm +++| 01021 M00S01018.virterm +++|IF OUTORD GR OUT"RESERVED" AND OUTORD LS OUT"LASTOUT" THEN 01022 M00S01019.virterm +++| BEGIN # IF LEGAL OUTPUT ORDINAL # 01023 M00S01020.virterm +++| WORDINDEX = OUTORD / 5; # GET OFFSET FOR ORDINAL # 01024 M00S01021.virterm +++| CHARINDEX = 12 * (OUTORD - (WORDINDEX * 5)); 01025 M00S01022.virterm +++| TDUOFFSET = B<CHARINDEX,12>TABFULLWRD[WORDINDEX]; 01026 M00S01023.virterm +++| IF CHARINDEX NQ 48 THEN 01027 M00S01024.virterm +++| BEGIN # IF NEXT BYTE IS IN SAME WORD # 01028 M00S01025.virterm +++| COUNT = B<CHARINDEX+12,12>TABFULLWRD[WORDINDEX]; 01029 M00S01026.virterm +++| END 01030 M00S01027.virterm +++| ELSE 01031 M00S01028.virterm +++| BEGIN # GET BYTE FROM NEXT WORD # 01032 M00S01029.virterm +++| COUNT = B<0,12>TABFULLWRD[WORDINDEX+1]; 01033 M00S01030.virterm +++| END 01034 M00S01031.virterm +++| COUNT = COUNT - TDUOFFSET; # CALCULATE NUMBER OF BYTES # 01035 M00S01032.virterm +++| IF COUNT LS 0 THEN COUNT = 0; # IF NEGATIVE COUNT, RETURN ZERO # 01036 M00S01033.virterm +++| END 01037 M00S01034.virterm +++|ELSE 01038 M00S01035.virterm +++| BEGIN # IF ILLEGAL ORDINAL # 01039 M00S01036.virterm +++| COUNT = 0; # RETURN ZERO COUNT # 01040 M00S01037.virterm +++| END 01041 M00S01038.virterm +++| 01042 M00S01039.virterm +++|END # VDTTFF # 01043 M00S01040.virterm +++| 01044 M00S01041.virterm +++|CONTROL FI; # END OF IF NOT MULTI USER FSE # 01045 M00S01042.virterm +++|CONTROL EJECT; # FSE USED PROCEDURE VDTAPS # 01046 M00S01043.virterm +++|CONTROL IFEQ EDITORVDT,1; # IF EDITOR VERSION OF VIRTERM # 01047 M00S01044.virterm +++| CONTROL IFEQ SINGLE,1; # IF NOT MULTI USER FSE # 01048 M00S01045.virterm +++| 01049 M00S01046.virterm +++| PROC VDTAPS(NAME,STRING,LENGTH,STAT); 01050 M00S01047.virterm +++| 01051 M00S01048.virterm +++| # TITLE VDTAPS - GET APPLICATION STRING FROM *TDU* TABLE. # 01052 M00S01049.virterm +++| 01053 M00S01050.virterm +++| BEGIN # VDTAPS # 01054 M00S01051.virterm +++| 01055 M00S01052.virterm +++| # 01056 M00S01053.virterm +++| ** VDTAPS - GET APPLICATION STRING FROM *TDU* TABLE. 01057 M00S01054.virterm +++| * 01058 M00S01055.virterm +++| * THIS PROCEDURE GETS THE NEXT APPLICATION STRING FROM THE 01059 M00S01056.virterm +++| * *TDU* TABLE. 01060 M00S01057.virterm +++| * 01061 M00S01058.virterm +++| * PROC VDTAPS(NAME,STRING,LENGTH,STAT) 01062 M00S01059.virterm +++| * 01063 M00S01060.virterm +++| * ENTRY NAME = NAME OF APPLICATION STRING REQUESTED. 01064 M00S01061.virterm +++| * TDUINDEX = WORD COUNT READ SO FAR OF *TDU* TABLE. 01065 M00S01062.virterm +++| * TDURESID = RESIDENT *TDU* TABLE FLAG. 01066 M00S01063.virterm +++| * 01067 M00S01064.virterm +++| * EXIT STRING = APPLICATION STRING (SEVEN BIT FORMAT). 01068 M00S01065.virterm +++| * LENGTH = NUMBER OF CHARACTERS IN STRING. 01069 M00S01066.virterm +++| * STAT = 0, IF NO ERROR. 01070 M00S01067.virterm +++| * = 1, IF NO STRING. 01071 M00S01068.virterm +++| * TDUINDEX = UPDATED. 01072 M00S01069.virterm +++| * 01073 M00S01070.virterm +++| * CALLS VDGETW. 01074 M00S01071.virterm +++| * 01075 M00S01072.virterm +++| * USES TDUINDEX. 01076 M00S01073.virterm +++| # 01077 M00S01074.virterm +++| 01078 M00S01075.virterm +++| ITEM NAME C(7); # NAME OF STRING # 01079 M00S01076.virterm +++| ARRAY STRING [0:0] P(1); 01080 M00S01077.virterm +++| BEGIN # APPLICATION STRING # 01081 M00S01078.virterm +++| ITEM STRINGWORD U; # WORD # 01082 M00S01079.virterm +++| END 01083 M00S01080.virterm +++| ITEM LENGTH I; # NUMBER OF CHARACTERS # 01084 M00S01081.virterm +++| ITEM STAT I; # STATUS RETURNED # 01085 M00S01082.virterm +++| 01086 M00S01083.virterm +++| ITEM FOUND B; # FLAG # 01087 M00S01084.virterm +++| ITEM COUNTER I; # COUNTER # 01088 M00S01085.virterm +++| ITEM COUNTER2 I; # COUNTER2 # 01089 M00S01086.virterm +++| ITEM COUNTER3 I; # COUNTER3 # 01090 M00S01087.virterm +++| ITEM WORD U; # WORD FROM *TDU* TABLE # 01091 M00S01088.virterm +++| ARRAY WORDEXP [0:0] P(1); # EXPANDED *TDU* TABLE WORD # 01092 M00S01089.virterm +++| BEGIN 01093 M00S01090.virterm +++| ITEM WORDFULL U(00,00,60); # FULL WORD # 01094 M00S01091.virterm +++| ITEM WORDNAME C(00,00,07); # APPLICATION STRING NAME # 01095 M00S01092.virterm +++| ITEM WORDCOUNT I(00,42,18); # CHARACTER COUNT # 01096 M00S01093.virterm +++| END 01097 M00S01094.virterm +++| 01098 M00S01095.virterm +++| STAT = 0; 01099 M00S01096.virterm +++| IF TDUINDEX[0] GQ TABSTRINIT[0] THEN 01100 M00S01097.virterm +++| BEGIN # IF PAST APPLICATION STRINGS # 01101 M00S01098.virterm +++| STAT = 1; # NO MORE STRINGS # 01102 M00S01099.virterm +++| END 01103 M00S01100.virterm +++| ELSE 01104 M00S01101.virterm +++| BEGIN 01105 M00S01102.virterm +++| IF TDUINDEX[0] LS TABSTRAPPS THEN 01106 M00S01103.virterm +++| BEGIN # IF NOT AT APPLICATION STRINGS # 01107 M00S01104.virterm +++| COUNTER2 = TABSTRAPPS[0] - TDUINDEX[0]; 01108 M00S01105.virterm +++| FOR COUNTER = 0 STEP 1 UNTIL COUNTER2 - 1 DO 01109 M00S01106.virterm +++| BEGIN # SKIP TO APPLICATION STRINGS # 01110 M00S01107.virterm +++| VDGETW(WORD,STAT); 01111 M00S01108.virterm +++| END 01112 M00S01109.virterm +++| END 01113 M00S01110.virterm +++| IF STAT EQ 0 THEN 01114 M00S01111.virterm +++| BEGIN # IF NOT END OF TABLE # 01115 M00S01112.virterm +++| FOUND = FALSE; # NOT FOUND YET # 01116 M00S01113.virterm +++| FOR COUNTER = 0 STEP 1 WHILE STAT EQ 0 AND NOT FOUND DO 01117 M00S01114.virterm +++| BEGIN 01118 M00S01115.virterm +++| VDGETW(WORD,STAT); # GET APPLICATION STRING NAME # 01119 M00S01116.virterm +++| WORDFULL = WORD; 01120 M00S01117.virterm +++| IF WORDCOUNT[0] EQ 0 THEN 01121 M00S01118.virterm +++| BEGIN # IF END OF APPLICATION STRINGS # 01122 M00S01119.virterm +++| STAT = 1; 01123 M00S01120.virterm +++| END 01124 M00S01121.virterm +++| IF STAT EQ 0 THEN 01125 M00S01122.virterm +++| BEGIN # IF NOT END OF TABLE # 01126 M00S01123.virterm +++| COUNTER3 = (WORDCOUNT[0] + 7) / 8; 01127 M00S01124.virterm +++| IF WORDNAME[0] NQ NAME THEN 01128 M00S01125.virterm +++| BEGIN # IF NO MATCH ON NAME # 01129 M00S01126.virterm +++| FOR COUNTER2 = 0 STEP 1 UNTIL COUNTER3 - 1 DO 01130 M00S01127.virterm +++| BEGIN 01131 M00S01128.virterm +++| VDGETW(WORD,STAT); # SKIP THROUGH STRING # 01132 M00S01129.virterm +++| END 01133 M00S01130.virterm +++| END 01134 M00S01131.virterm +++| ELSE 01135 M00S01132.virterm +++| BEGIN # IF NAME MATCHES # 01136 M00S01133.virterm +++| FOR COUNTER2 = 0 STEP 1 UNTIL COUNTER3 - 1 DO 01137 M00S01134.virterm +++| BEGIN 01138 M00S01135.virterm +++| VDGETW(WORD,STAT); # GET WORD FROM *TDU* TABLE # 01139 M00S01136.virterm +++| STRINGWORD[COUNTER2] = WORD; 01140 M00S01137.virterm +++| END 01141 M00S01138.virterm +++| LENGTH = WORDCOUNT[0]; 01142 M00S01139.virterm +++| FOUND = TRUE; # FOUND IT # 01143 M00S01140.virterm +++| END 01144 M00S01141.virterm +++| END 01145 M00S01142.virterm +++| END 01146 M00S01143.virterm +++| END 01147 M00S01144.virterm +++| END 01148 M00S01145.virterm +++| 01149 M00S01146.virterm +++| END # VDTAPS # 01150 M00S01147.virterm +++| CONTROL FI; # END OF NOT MULTI USER FSE # 01151 M00S01148.virterm +++|CONTROL FI; # END OF IF EDITOR VIRTERM # 01152 M00S01149.virterm +++|CONTROL EJECT; # SFORM USED PROCEDURE VDTAPS # 01153 M00S01150.virterm +++|CONTROL IFEQ EDITORVDT,1; # IF EDITOR VIRTERM # 01154 M00S01151.virterm +++|CONTROL IFEQ EDITORVDT,0; # IF NOT EDITOR VIRTERM # 01155 M00S01152.virterm +++| 01156 M00S01153.virterm +++| PROC VDTAPS(NAME,STRING,LENGTH,STAT); 01157 M00S01154.virterm +++| 01158 M00S01155.virterm +++| # TITLE VDTAPS - GET APPLICATION STRING FROM *TDU* TABLE. # 01159 M00S01156.virterm +++| 01160 M00S01157.virterm +++| BEGIN # VDTAPS # 01161 M00S01158.virterm +++| 01162 M00S01159.virterm +++| # 01163 M00S01160.virterm +++| ** VDTAPS - GET APPLICATION STRING FROM *TDU* TABLE. 01164 M00S01161.virterm +++| * 01165 M00S01162.virterm +++| * THIS PROCEDURE GETS THE NEXT APPLICATION STRING FROM THE 01166 M00S01163.virterm +++| * *TDU* TABLE. 01167 M00S01164.virterm +++| * 01168 M00S01165.virterm +++| * PROC VDTAPS(NAME,STRING,LENGTH,STAT) 01169 M00S01166.virterm +++| * 01170 M00S01167.virterm +++| * ENTRY NAME = NAME OF APPLICATION STRING REQUESTED. 01171 M00S01168.virterm +++| * TDUINDEX = WORD COUNT READ SO FAR OF *TDU* TABLE. 01172 M00S01169.virterm +++| * TDURESID = RESIDENT *TDU* TABLE FLAG. 01173 M00S01170.virterm +++| * 01174 M00S01171.virterm +++| * EXIT STRING = APPLICATION STRING (8/12 FORMAT). 01175 M00S01172.virterm +++| * LENGTH = NUMBER OF CHARACTERS IN STRING. 01176 M00S01173.virterm +++| * STAT = 0, IF NO ERROR. 01177 M00S01174.virterm +++| * = 1, IF NO STRING. 01178 M00S01175.virterm +++| * TDUINDEX = UPDATED. 01179 M00S01176.virterm +++| * 01180 M00S01177.virterm +++| * CALLS VDGETW. 01181 M00S01178.virterm +++| * 01182 M00S01179.virterm +++| * USES TDUINDEX. 01183 M00S01180.virterm +++| # 01184 M00S01181.virterm +++| 01185 M00S01182.virterm +++| ITEM NAME C(7); # NAME OF STRING # 01186 M00S01183.virterm +++| ARRAY STRING [0:0] P(1); 01187 M00S01184.virterm +++| BEGIN # APPLICATION STRING # 01188 M00S01185.virterm +++| ITEM STRINGWORD U; # WORD # 01189 M00S01186.virterm +++| END 01190 M00S01187.virterm +++| ITEM LENGTH I; # NUMBER OF CHARACTERS # 01191 M00S01188.virterm +++| ITEM STAT I; # STATUS RETURNED # 01192 M00S01189.virterm +++| 01193 M00S01190.virterm +++| ITEM FOUND B; # FLAG # 01194 M00S01191.virterm +++| ITEM COUNTER I; # COUNTER # 01195 M00S01192.virterm +++| ITEM COUNTER2 I; # COUNTER2 # 01196 M00S01193.virterm +++| ITEM COUNTER3 I; # COUNTER3 # 01197 M00S01194.virterm +++| ITEM WORD U; # WORD FROM *TDU* TABLE # 01198 M00S01195.virterm +++| ARRAY WORDEXP [0:0] P(1); # EXPANDED *TDU* TABLE WORD # 01199 M00S01196.virterm +++| BEGIN 01200 M00S01197.virterm +++| ITEM WORDFULL U(00,00,60); # FULL WORD # 01201 M00S01198.virterm +++| ITEM WORDNAME C(00,00,07); # APPLICATION STRING NAME # 01202 M00S01199.virterm +++| ITEM WORDCOUNT I(00,42,18); # CHARACTER COUNT # 01203 M00S01200.virterm +++| END 01204 M00S01201.virterm +++| 01205 M00S01202.virterm +++| STAT = 0; 01206 M00S01203.virterm +++| IF TDUINDEX[0] GQ TABSTRINIT[0] THEN 01207 M00S01204.virterm +++| BEGIN # IF PAST APPLICATION STRINGS # 01208 M00S01205.virterm +++| STAT = 1; # NO MORE STRINGS # 01209 M00S01206.virterm +++| END 01210 M00S01207.virterm +++| ELSE 01211 M00S01208.virterm +++| BEGIN # NOT PAST APPLICATION STRINGS # 01212 M00S01209.virterm +++| IF TDUINDEX[0] LS TABSTRAPPS THEN 01213 M00S01210.virterm +++| BEGIN # IF NOT AT APPLICATION STRINGS # 01214 M00S01211.virterm +++| COUNTER2 = TABSTRAPPS[0] - TDUINDEX[0]; 01215 M00S01212.virterm +++| FOR COUNTER = 0 STEP 1 UNTIL COUNTER2 - 1 DO 01216 M00S01213.virterm +++| BEGIN # SKIP TO APPLICATION STRINGS # 01217 M00S01214.virterm +++| VDGETW(WORD,STAT); 01218 M00S01215.virterm +++| END 01219 M00S01216.virterm +++| END 01220 M00S01217.virterm +++| IF STAT EQ 0 THEN 01221 M00S01218.virterm +++| BEGIN # IF NOT END OF TABLE # 01222 M00S01219.virterm +++| FOUND = FALSE; # NOT FOUND YET # 01223 M00S01220.virterm +++| FOR COUNTER = 0 STEP 1 WHILE STAT EQ 0 AND NOT FOUND DO 01224 M00S01221.virterm +++| BEGIN 01225 M00S01222.virterm +++| VDGETW(WORD,STAT); # GET APPLICATION STRING NAME # 01226 M00S01223.virterm +++| WORDFULL = WORD; 01227 M00S01224.virterm +++| IF WORDCOUNT[0] EQ 0 THEN 01228 M00S01225.virterm +++| BEGIN # IF END OF APPLICATION STRINGS # 01229 M00S01226.virterm +++| STAT = 1; 01230 M00S01227.virterm +++| END 01231 M00S01228.virterm +++| IF STAT EQ 0 THEN 01232 M00S01229.virterm +++| BEGIN # IF NOT END OF TABLE # 01233 M00S01230.virterm +++| COUNTER3 = (WORDCOUNT[0] + 7) / 8; 01234 M00S01231.virterm +++| IF WORDNAME[0] NQ NAME THEN 01235 M00S01232.virterm +++| BEGIN # IF NO MATCH ON NAME # 01236 M00S01233.virterm +++| FOR COUNTER2 = 0 STEP 1 UNTIL COUNTER3 - 1 DO 01237 M00S01234.virterm +++| BEGIN 01238 M00S01235.virterm +++| VDGETW(WORD,STAT); # SKIP THROUGH STRING # 01239 M00S01236.virterm +++| END 01240 M00S01237.virterm +++| END 01241 M00S01238.virterm +++| ELSE 01242 M00S01239.virterm +++| BEGIN # IF NAME MATCHES # 01243 M00S01240.virterm +++| FOR COUNTER2 = 0 STEP 1 UNTIL COUNTER3 - 1 DO 01244 M00S01241.virterm +++| BEGIN 01245 M00S01242.virterm +++| VDGETW(WORD,STAT); # GET WORD FROM *TDU* TABLE # 01246 M00S01243.virterm +++| B<0,12>STRINGWORD[COUNTER2] = B<4,7>WORD; 01247 M00S01244.virterm +++| B<12,12>STRINGWORD[COUNTER2] = B<11,7>WORD; 01248 M00S01245.virterm +++| B<24,12>STRINGWORD[COUNTER2] = B<18,7>WORD; 01249 M00S01246.virterm +++| B<36,12>STRINGWORD[COUNTER2] = B<25,7>WORD; 01250 M00S01247.virterm +++| B<48,12>STRINGWORD[COUNTER2] = B<32,7>WORD; 01251 M00S01248.virterm +++| END 01252 M00S01249.virterm +++| LENGTH = WORDCOUNT[0]; 01253 M00S01250.virterm +++| FOUND = TRUE; # FOUND IT # 01254 M00S01251.virterm +++| END 01255 M00S01252.virterm +++| END 01256 M00S01253.virterm +++| END 01257 M00S01254.virterm +++| END 01258 M00S01255.virterm +++| END 01259 M00S01256.virterm +++| 01260 M00S01257.virterm +++| END # VDTAPS # 01261 M00S01258.virterm +++|CONTROL FI; # END OF IF EDITOR # 01262 M00S01259.virterm +++|CONTROL FI; # END OF IF NOT EDITOR # 01263 M00S01260.virterm +++|CONTROL EJECT; 01264 M00S01261.virterm +++| 01265 M00S01262.virterm +++|PROC VDTBEL; 01266 M00S01263.virterm +++| 01267 M00S01264.virterm +++|# TITLE VDTBEL - RING THE BELL. # 01268 M00S01265.virterm +++| 01269 M00S01266.virterm +++|IOBEGIN(VDTBEL) 01270 M00S01267.virterm +++| 01271 M00S01268.virterm +++|# 01272 M00S01269.virterm +++|** VDTBEL - RING THE BELL. 01273 M00S01270.virterm +++|* 01274 M00S01271.virterm +++|* THIS PROCEDURE SOUNDS THE AUDIBLE ALARM. 01275 M00S01272.virterm +++|* 01276 M00S01273.virterm +++|* PROC VDTBEL 01277 M00S01274.virterm +++|* 01278 M00S01275.virterm +++|* CALLS VDCTRL. 01279 M00S01276.virterm +++|# 01280 M00S01277.virterm +++| 01281 M00S01278.virterm +++|VDCTRL(OUT"RINGBELL"); # RING THE BELL # 01282 M00S01279.virterm +++| 01283 M00S01280.virterm +++|IOEND # VDTBELL # 01284 M00S01281.virterm +++|CONTROL EJECT; 01285 M00S01282.virterm +++| 01286 M00S01283.virterm +++|PROC VDTBOO; 01287 M00S01284.virterm +++| 01288 M00S01285.virterm +++|# TITLE VDTBOO - BEGINNING OF OUTPUT SEQUENCE. # 01289 M00S01286.virterm +++| 01290 M00S01287.virterm +++|IOBEGIN(VDTBOO) 01291 M00S01288.virterm +++| 01292 M00S01289.virterm +++|# 01293 M00S01290.virterm +++|** VDTBOO - BEGINNING OF OUTPUT SEQUENCE. 01294 M00S01291.virterm +++|* 01295 M00S01292.virterm +++|* THIS PROCEDURE IS CALLED TO START EACH OUTPUT SEQUENCE. 01296 M00S01293.virterm +++|* 01297 M00S01294.virterm +++|* PROC VDTBOO 01298 M00S01295.virterm +++|* 01299 M00S01296.virterm +++|* CALLS VDCTRL. 01300 M00S01297.virterm +++|* 01301 M00S01298.virterm +++|* NOTES TO PROTECT USERS FROM THEMSELVES THE CONTROL 01302 M00S01299.virterm +++|* SEQUENCE TO TURN OFF INSERT MODE IS ISSUED. 01303 M00S01300.virterm +++|# 01304 M00S01301.virterm +++| 01305 M00S01302.virterm +++|VTINSMODE[0] = FALSE; # INSERT MODE IS FALSE # 01306 M00S01303.virterm +++|VDCTRL(OUT"INSRTMDOFF"); # TURN OFF INSERT MODE # 01307 M00S01304.virterm +++|VDCTRL(OUT"BEGINOUT"); # BEGIN OUTPUT SEQUENCE # 01308 M00S01305.virterm +++|CONTROL IFEQ EDITORVDT,0; # IF NOT EDITOR VIRTERM # 01309 M00S01306.virterm +++| VDCTRL(OUT"BEGINDIS"); # OUTPUT BEGIN DISPLAY # 01310 M00S01307.virterm +++| IF NUMBERBYTE NQ 0 THEN 01311 M00S01308.virterm +++| BEGIN # IF A SEQUENCE WAS SENT # 01312 M00S01309.virterm +++| ATTRIBMASK = O"6001"; # PROTECT ATTRIBUTE IS ON # 01313 M00S01310.virterm +++| END 01314 M00S01311.virterm +++|CONTROL FI; # END OF IF NOT EDITOR # 01315 M00S01312.virterm +++| 01316 M00S01313.virterm +++|IOEND # VDTBOO # 01317 M00S01314.virterm +++|CONTROL EJECT; 01318 M00S01315.virterm +++| 01319 M00S01316.virterm +++|PROC VDTCHR(CHAR); 01320 M00S01317.virterm +++| 01321 M00S01318.virterm +++|# TITLE VDTCHR - OUTPUT ONE BYTE OF TEXT. # 01322 M00S01319.virterm +++| 01323 M00S01320.virterm +++|IOBEGIN(VDTCHR) 01324 M00S01321.virterm +++| 01325 M00S01322.virterm +++|# 01326 M00S01323.virterm +++|** VDTCHR - OUTPUT ONE 12 BIT BYTE. 01327 M00S01324.virterm +++|* 01328 M00S01325.virterm +++|* THIS PROCEDURE OUTPUTS A CHARACTER. 01329 M00S01326.virterm +++|* 01330 M00S01327.virterm +++|* PROC VDTCHR(CHAR) 01331 M00S01328.virterm +++|* 01332 M00S01329.virterm +++|* ENTRY CHAR = 12 BIT BYTE OF DATA. 01333 M00S01330.virterm +++|* 01334 M00S01331.virterm +++|* EXIT VTXCUR AND VTYCUR ADJUSTED AS NECESSARY. 01335 M00S01332.virterm +++|* 01336 M00S01333.virterm +++|* CALLS VDTOUT. 01337 M00S01334.virterm +++|* 01338 M00S01335.virterm +++|* USES VTCHAR, VTXCUR, VTYCUR. 01339 M00S01336.virterm +++|* 01340 M00S01337.virterm +++|* NOTES IF THE MOVEMENT OF THE CURSOR THAT WILL OCCUR WHEN 01341 M00S01338.virterm +++|* THE CHARACTER IS OUTPUT WILL CAUSE THE TERMINAL TO 01342 M00S01339.virterm +++|* SCROLL THEN THE CHARACTER WILL NOT BE OUTPUT. 01343 M00S01340.virterm +++|# 01344 M00S01341.virterm +++| 01345 M00S01342.virterm +++|ITEM CHAR I; # OUTPUT BYTE # 01346 M00S01343.virterm +++| 01347 M00S01344.virterm +++|VTCHAR = CHAR; 01348 M00S01345.virterm +++| 01349 M00S01346.virterm +++|# END OF NON-REENTRANT PARAMETER USAGE # 01350 M00S01347.virterm +++| 01351 M00S01348.virterm +++|IF VTXCUR EQ VTXMAX THEN 01352 M00S01349.virterm +++| BEGIN # IF PRESENTLY IN LAST COLUMN # 01353 M00S01350.virterm +++| IF VTYCUR EQ VTYMAX THEN 01354 M00S01351.virterm +++| BEGIN # IF PRESENTLY ON LAST LINE # 01355 M00S01352.virterm +++| IF TABLASTPOS[0] NQ CURSORMOVE"SCROLL" THEN 01356 M00S01353.virterm +++| BEGIN # IF TERMINAL WILL NOT SCROLL # 01357 M00S01354.virterm +++| VDTOUT(VTCHAR); # OUTPUT CHARACTER # 01358 M00S01355.virterm +++| IF TABLASTPOS[0] GQ CURSORMOVE"SPIRAL" THEN 01359 M00S01356.virterm +++| BEGIN # IF WRAP OR SPIRAL # 01360 M00S01357.virterm +++| VTXCUR = 0; 01361 M00S01358.virterm +++| IF TABLASTPOS[0] EQ CURSORMOVE"SPIRAL" THEN VTYCUR = 0; 01362 M00S01359.virterm +++| END 01363 M00S01360.virterm +++| END 01364 M00S01361.virterm +++| END 01365 M00S01362.virterm +++| ELSE 01366 M00S01363.virterm +++| BEGIN # NOT YET AT BOTTOM OF SCREEN # 01367 M00S01364.virterm +++| VDTOUT(VTCHAR); # OUTPUT CHARACTER # 01368 M00S01365.virterm +++| IF TABRGHTCHR[0] GQ CURSORMOVE"SPIRAL" THEN 01369 M00S01366.virterm +++| BEGIN # IF WRAP OR SPIRAL # 01370 M00S01367.virterm +++| VTXCUR = 0; 01371 M00S01368.virterm +++| IF TABRGHTCHR[0] EQ CURSORMOVE"SPIRAL" THEN VTYCUR = VTYCUR + 1; 01372 M00S01369.virterm +++| END 01373 M00S01370.virterm +++| END 01374 M00S01371.virterm +++| END 01375 M00S01372.virterm +++|ELSE 01376 M00S01373.virterm +++| BEGIN # NOT YET AT LAST COLUMN # 01377 M00S01374.virterm +++| VDTOUT(VTCHAR); # OUTPUT CHARACTER # 01378 M00S01375.virterm +++| VTXCUR = VTXCUR + 1; # ADJUST POSITION # 01379 M00S01376.virterm +++| END 01380 M00S01377.virterm +++| 01381 M00S01378.virterm +++|IOEND # VDTCHR # 01382 M00S01379.virterm +++|CONTROL EJECT; 01383 M00S01380.virterm +++| 01384 M00S01381.virterm +++|PROC VDTCLL(XX,YY); 01385 M00S01382.virterm +++| 01386 M00S01383.virterm +++|# TITLE VDTCLL - CLEAR TO END OF LINE. # 01387 M00S01384.virterm +++| 01388 M00S01385.virterm +++|IOBEGIN(VDTCLL) 01389 M00S01386.virterm +++| 01390 M00S01387.virterm +++|# 01391 M00S01388.virterm +++|** VDTCLL - CLEAR TO END OF LINE. 01392 M00S01389.virterm +++|* 01393 M00S01390.virterm +++|* THIS PROCEDURE ERASES ALL CHARACTERS FROM THE COLUMN XX TO THE 01394 M00S01391.virterm +++|* END OF THE LINE FOR LINE YY. 01395 M00S01392.virterm +++|* 01396 M00S01393.virterm +++|* PROC VDTCLL(XX,YY) 01397 M00S01394.virterm +++|* 01398 M00S01395.virterm +++|* ENTRY XX = X COORDINATE TO CLEAR FROM. 01399 M00S01396.virterm +++|* YY = Y COORDINATE OF LINE TO CLEAR. 01400 M00S01397.virterm +++|* 01401 M00S01398.virterm +++|* EXIT VTXCUR UPDATED. 01402 M00S01399.virterm +++|* VTYCUR UPDATED. 01403 M00S01400.virterm +++|* LINE CLEARED. 01404 M00S01401.virterm +++|* 01405 M00S01402.virterm +++|* USES VTHOLD, VTXCUR, VTYCUR. 01406 M00S01403.virterm +++|* 01407 M00S01404.virterm +++|* CALLS VDCTRL, VDMOVE, VDTCHR, VDTOUT. 01408 M00S01405.virterm +++|# 01409 M00S01406.virterm +++| 01410 M00S01407.virterm +++|ITEM XX I; # X CORDINATE # 01411 M00S01408.virterm +++|ITEM YY I; # Y CORDINATE # 01412 M00S01409.virterm +++| 01413 M00S01410.virterm +++|# START OF NON-REENTRANT PARAMETER USAGE # 01414 M00S01411.virterm +++| 01415 M00S01412.virterm +++|IF VTXCUR NQ XX OR VTYCUR NQ YY THEN 01416 M00S01413.virterm +++| BEGIN 01417 M00S01414.virterm +++| VTXCUR = XX; 01418 M00S01415.virterm +++| VTYCUR = YY; 01419 M00S01416.virterm +++| 01420 M00S01417.virterm +++|# END OF NON-REENTRANT PARAMETER USAGE # 01421 M00S01418.virterm +++| 01422 M00S01419.virterm +++| VDMOVE(VTXCUR,VTYCUR); # POSITION CURSOR # 01423 M00S01420.virterm +++| END 01424 M00S01421.virterm +++| 01425 M00S01422.virterm +++|CONTROL IFEQ EDITORVDT,1; # IF EDITOR VERSION OF VIRTERM # 01426 M00S01423.virterm +++|CONTROL IFEQ SINGLE,1; # IF NOT MULTI USER FSE # 01427 M00S01424.virterm +++| 01428 M00S01425.virterm +++|# 01429 M00S01426.virterm +++|* FSE USES THE LAST CHARACTER POSITION OF EACH LINE AS THE FIELD 01430 M00S01427.virterm +++|* ATTRIBUTE FOR THE NEXT LINE ON A BLOCK MODE TERMINAL. TO PRE- 01431 M00S01428.virterm +++|* VENT THIS ATTRIBUTE CHARACTER FROM BEING OVERWRITTEN BY THE 01432 M00S01429.virterm +++|* NORMAL CLEAR-TO-END-OF-LINE SEQUENCE, A SPECIAL SEQUENCE IS 01433 M00S01430.virterm +++|* GENERATED THAT ONLY CLEARS UP TO, BUT NOT INCLUDING THE LAST 01434 M00S01431.virterm +++|* POSITION OF THE LINE. 01435 M00S01432.virterm +++|# 01436 M00S01433.virterm +++| 01437 M00S01434.virterm +++| IF TABLOCKMDE[0] THEN 01438 M00S01435.virterm +++| BEGIN # IF BLOCK MODE TERMINAL # 01439 M00S01436.virterm +++| IF VTXCUR NQ VTXMAX THEN 01440 M00S01437.virterm +++| BEGIN # IF NOT ALREADY AT END OF LINE # 01441 M00S01438.virterm +++| VTI = (VTYCUR * (VTXMAX + 1)) + VTXMAX; 01442 M00S01439.virterm +++| VDTOUT(X"14"); # REPEAT TO ADDRESS # 01443 M00S01440.virterm +++| VDTOUT(RTA3270[B<48,6>VTI]); # OUTPUT BYTE 1 OF ADDRESS # 01444 M00S01441.virterm +++| VDTOUT(RTA3270[B<54,6>VTI]); # OUTPUT BYTE 2 OF ADDRESS # 01445 M00S01442.virterm +++| VDTOUT(X"00"); # REPEAT (NULL CHARACTER) # 01446 M00S01443.virterm +++| VDMOVE(VTXCUR,VTYCUR); # REPOSITION CURSOR # 01447 M00S01444.virterm +++| END 01448 M00S01445.virterm +++| IORET 01449 M00S01446.virterm +++| END 01450 M00S01447.virterm +++| 01451 M00S01448.virterm +++|CONTROL FI; # END OF IF NOT MULTI FSE # 01452 M00S01449.virterm +++|CONTROL FI; # END OF IF EDITOR VIRTERM # 01453 M00S01450.virterm +++| 01454 M00S01451.virterm +++|VDCTRL(OUT"CLREOL"); # CLEAR TO END OF LINE # 01455 M00S01452.virterm +++|IF NUMBERBYTE EQ 0 THEN 01456 M00S01453.virterm +++| BEGIN # IF NO FUNCTION AVAILABLE # 01457 M00S01454.virterm +++| FOR VTI = VTXCUR STEP 1 UNTIL VTXMAX - 1 DO 01458 M00S01455.virterm +++| BEGIN # UNTIL END OF LINE # 01459 M00S01456.virterm +++| VDTOUT(X"20"); # OUTPUT BLANK # 01460 M00S01457.virterm +++| END 01461 M00S01458.virterm +++| CONTROL IFEQ EDITORVDT,1; # IF EDITOR VERSION OF VIRTERM # 01462 M00S01459.virterm +++| VTHOLD = VTXCUR; # SAVE X COORDINATE # 01463 M00S01460.virterm +++| VTI = VTYCUR; 01464 M00S01461.virterm +++| CONTROL FI; # END OF IF EDITOR VIRTERM # 01465 M00S01462.virterm +++| VTXCUR = VTXMAX; # CURSOR IS AT EDGE OF SCREEN # 01466 M00S01463.virterm +++| VDTCHR(X"20"); # OUTPUT CHARACTER WITH CHECK # 01467 M00S01464.virterm +++| CONTROL IFEQ EDITORVDT,1; # IF EDITOR VERSION OF VIRTERM # 01468 M00S01465.virterm +++| VTXCUR = VTHOLD; # RESTORE X COORDINATE # 01469 M00S01466.virterm +++| VTYCUR = VTI; 01470 M00S01467.virterm +++| VDMOVE(VTXCUR,VTYCUR); # RESET CURSOR POSITION # 01471 M00S01468.virterm +++| CONTROL FI; # END OF IF EDITOR VIRTERM # 01472 M00S01469.virterm +++| END 01473 M00S01470.virterm +++| 01474 M00S01471.virterm +++|IOEND # VDTCLL # 01475 M00S01472.virterm +++|CONTROL EJECT; 01476 M00S01473.virterm +++| 01477 M00S01474.virterm +++|PROC VDTCLS; 01478 M00S01475.virterm +++| 01479 M00S01476.virterm +++|# TITLE VDTCLS - CLEAR SCREEN. # 01480 M00S01477.virterm +++| 01481 M00S01478.virterm +++|IOBEGIN(VDTCLS) 01482 M00S01479.virterm +++| 01483 M00S01480.virterm +++|# 01484 M00S01481.virterm +++|** VDTCLS - CLEAR SCREEN. 01485 M00S01482.virterm +++|* 01486 M00S01483.virterm +++|* THIS PROCEDURE CLEARS THE SCREEN AND POSITIONS THE CURSOR TO 01487 M00S01484.virterm +++|* THE HOME POSITION. 01488 M00S01485.virterm +++|* 01489 M00S01486.virterm +++|* PROC VDTCLS 01490 M00S01487.virterm +++|* 01491 M00S01488.virterm +++|* EXIT VTXCUR = 0. 01492 M00S01489.virterm +++|* VTYCUR = 0 OR VTYMAX. 01493 M00S01490.virterm +++|*
| Line S01491 Modification History | |
|---|---|
M01 (Removed by) | ns2524 |
Seq # *Modification Id* Act ----------------------------+ 01494 M01S01491.ns2524 ---|* CALLS VDCTRL, VDTBOO, VDTHOM.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2524 |
Seq # *Modification Id* Act ----------------------------+ 01495 M01S00001.ns2524 +++|* CALLS VDCTRL, VDTHOM. 01496 M00S01492.virterm +++|* 01497 M00S01493.virterm +++|* USES VTXCUR, VTYCUR. 01498 M00S01494.virterm +++|* 01499 M00S01495.virterm +++|* NOTES THE *TDU* DEFINITION OF THE BEGIN OUTPUT SEQUENCE
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2524 |
Seq # *Modification Id* Act ----------------------------+ 01500 M01S00002.ns2524 +++|* (WHICH MUST BE ISSUED PRIOR TO CALLING VDTCLS) 01501 M00S01496.virterm +++|* INCLUDES THE SEQUENCE TO TURN OFF INSERT MODE AND 01502 M00S01497.virterm +++|* TO DISABLE PROTECT. 01503 M00S01498.virterm +++|# 01504 M00S01499.virterm +++|
| Line S01500 Modification History | |
|---|---|
M01 (Removed by) | ns2524 |
Seq # *Modification Id* Act
----------------------------+
01505 M01S01500.ns2524 ---|VDTBOO; # BEGIN OUTPUT SEQUENCE #
01506 M00S01501.virterm +++|VDCTRL(OUT"CLRSCRCURH"); # CLEAR SCREEN, CURSOR HOME #
01507 M00S01502.virterm +++|IF NUMBERBYTE EQ 0 THEN
01508 M00S01503.virterm +++| BEGIN # IF NO CLEAR WITH CURSOR HOME #
01509 M00S01504.virterm +++| VDCTRL(OUT"CLRSCREEN"); # ISSUE CLEAR SCREEN SEQUENCE #
01510 M00S01505.virterm +++| VDTHOM; # POSITION CURSOR TO HOME #
01511 M00S01506.virterm +++| END
01512 M00S01507.virterm +++|ELSE
01513 M00S01508.virterm +++| BEGIN # CURSOR IS AT HOME POSITION #
01514 M00S01509.virterm +++| VTXCUR = 0; # RESET COLUMN POINTER #
01515 M00S01510.virterm +++| IF TABVTHOMEU[0] THEN
01516 M00S01511.virterm +++| BEGIN # IF HOME POSITION IS TOP #
01517 M00S01512.virterm +++| VTYCUR = 0; # CLEAR Y COORDINATE #
01518 M00S01513.virterm +++| END
01519 M00S01514.virterm +++| ELSE
01520 M00S01515.virterm +++| BEGIN # HOME IS AT BOTTOM #
01521 M00S01516.virterm +++| VTYCUR = VTYMAX; # SET Y COORDINATE #
01522 M00S01517.virterm +++| END
01523 M00S01518.virterm +++| END
01524 M00S01519.virterm +++|
01525 M00S01520.virterm +++|IOEND # VDTCLS #
01526 M00S01521.virterm +++|CONTROL EJECT;
01527 M00S01522.virterm +++|
01528 M00S01523.virterm +++|PROC VDTCOR(LINE,COLUMN);
01529 M00S01524.virterm +++|
01530 M00S01525.virterm +++|# TITLE VDTCOR - SET INTERNAL CURSOR POSITION. #
01531 M00S01526.virterm +++|
01532 M00S01527.virterm +++|BEGIN # VDTCOR #
01533 M00S01528.virterm +++|
01534 M00S01529.virterm +++|#
01535 M00S01530.virterm +++|** VDTCOR - SET INTERNAL CURSOR POSITION.
01536 M00S01531.virterm +++|*
01537 M00S01532.virterm +++|* THIS PROCEDURE ALLOWS AN APPLICATION PROGRAM TO SET THE
01538 M00S01533.virterm +++|* INTERNAL CURSOR POSITION TO A SPECIFIED LINE AND COLUMN.
01539 M00S01534.virterm +++|*
01540 M00S01535.virterm +++|* PROC VDTCOR(LINE,COLUMN)
01541 M00S01536.virterm +++|*
01542 M00S01537.virterm +++|* ENTRY LINE = DESIRED Y COORDINATE.
01543 M00S01538.virterm +++|* COLUMN = DESIRED X COORDINATE.
01544 M00S01539.virterm +++|*
01545 M00S01540.virterm +++|* EXIT VTYCUR = LINE.
01546 M00S01541.virterm +++|* VTXCUR = COLUMN.
01547 M00S01542.virterm +++|*
01548 M00S01543.virterm +++|* NOTES THIS ROUTINE DOES NOT PHYSICALLY MOVE THE CURSOR
01549 M00S01544.virterm +++|* BUT MERELY CHANGES THE INTERNAL POINTERS TO THE
01550 M00S01545.virterm +++|* CORRECT VALUES IF THEY ARE NO LONGER VALID, FOR
01551 M00S01546.virterm +++|* EXAMPLE AFTER A TAB FUNCTION HAS BEEN RECEIVED.
01552 M00S01547.virterm +++|#
01553 M00S01548.virterm +++|
01554 M00S01549.virterm +++|ITEM LINE I; # DESIRED X COORDINATE #
01555 M00S01550.virterm +++|ITEM COLUMN I; # DESIRED Y COORDIANTE #
01556 M00S01551.virterm +++|
01557 M00S01552.virterm +++|VTYCUR = LINE;
01558 M00S01553.virterm +++|VTXCUR = COLUMN;
01559 M00S01554.virterm +++|
01560 M00S01555.virterm +++|END # VDTCOR #
01561 M00S01556.virterm +++|CONTROL EJECT;
01562 M00S01557.virterm +++|
01563 M00S01558.virterm +++|PROC VDTCTS;
01564 M00S01559.virterm +++|
01565 M00S01560.virterm +++|# TITLE VDTCTS - CLEAR ALL TABS. #
01566 M00S01561.virterm +++|
01567 M00S01562.virterm +++|IOBEGIN(VDTCTS)
01568 M00S01563.virterm +++|
01569 M00S01564.virterm +++|#
01570 M00S01565.virterm +++|** VDTCTS - CLEAR ALL TABS.
01571 M00S01566.virterm +++|*
01572 M00S01567.virterm +++|* THIS PROCEDURE CLEARS ALL TAB STOPS.
01573 M00S01568.virterm +++|*
01574 M00S01569.virterm +++|* PROC VDTCTS
01575 M00S01570.virterm +++|*
01576 M00S01571.virterm +++|* EXIT VTTABS CLEARED.
01577 M00S01572.virterm +++|*
01578 M00S01573.virterm +++|* CALLS VDCTRL.
01579 M00S01574.virterm +++|#
01580 M00S01575.virterm +++|
01581 M00S01576.virterm +++|VDCTRL(OUT"CLRALLTABS"); # CLEAR TAB STOPS #
01582 M00S01577.virterm +++|
01583 M00S01578.virterm +++|IOEND # VDTCTS #
01584 M00S01579.virterm +++|CONTROL EJECT;
01585 M00S01580.virterm +++|
01586 M00S01581.virterm +++|PROC VDTEOO;
01587 M00S01582.virterm +++|
01588 M00S01583.virterm +++|# TITLE VDTEOO - END OF OUTPUT SEQUENCE. #
01589 M00S01584.virterm +++|
01590 M00S01585.virterm +++|IOBEGIN(VDTEOO)
01591 M00S01586.virterm +++|
01592 M00S01587.virterm +++|#
01593 M00S01588.virterm +++|** VDTEOO - END OF OUTPUT SEQUENCE.
01594 M00S01589.virterm +++|*
01595 M00S01590.virterm +++|* THIS PROCEDURE IS CALLED TO END EACH OUTPUT SEQUENCE.
01596 M00S01591.virterm +++|*
01597 M00S01592.virterm +++|* EXIT VTOUTDATA = TRANSPARENT OUTPUT WORD.
01598 M00S01593.virterm +++|* VTOUTNEXT = 12.
01599 M00S01594.virterm +++|*
01600 M00S01595.virterm +++|* CALLS VDCTRL, VDSYNCH.
01601 M00S01596.virterm +++|*
01602 M00S01597.virterm +++|#
01603 M00S01598.virterm +++|
01604 M00S01599.virterm +++|CONTROL IFEQ EDITORVDT,0; # IF NOT EDITOR VIRTERM #
01605 M00S01600.virterm +++| VDCTRL(OUT"ENDISPLAY"); # OUTPUT END DISPLAY #
01606 M00S01601.virterm +++| IF NUMBERBYTE NQ 0 THEN
01607 M00S01602.virterm +++| BEGIN # IF A SEQUENCE WAS SENT #
01608 M00S01603.virterm +++| ATTRIBMASK = 0; # NO ATTRIBUTES #
01609 M00S01604.virterm +++| END
01610 M00S01605.virterm +++|CONTROL FI; # END OF IF NOT EDITOR #
01611 M00S01606.virterm +++|VDCTRL(OUT"ENDOUTPUT"); # END OUTPUT SEQUENCE #
01612 M00S01607.virterm +++|
01613 M00S01608.virterm +++|VDSYNCH;
01614 M00S01609.virterm +++|
01615 M00S01610.virterm +++|IOEND # VDTEOO #
01616 M00S01611.virterm +++|CONTROL EJECT;
01617 M00S01612.virterm +++|
01618 M00S01613.virterm +++|PROC VDTGTD(COLUMNS,LINES);
01619 M00S01614.virterm +++|
01620 M00S01615.virterm +++|# TITLE VDTGTD - GET TERMINAL DIMENSIONS. #
01621 M00S01616.virterm +++|
01622 M00S01617.virterm +++|BEGIN # VDTGTD #
01623 M00S01618.virterm +++|
01624 M00S01619.virterm +++|#
01625 M00S01620.virterm +++|** VDTGTD - GET TERMINAL DIMENSIONS.
01626 M00S01621.virterm +++|*
01627 M00S01622.virterm +++|* THIS PROCEDURE RETURNS THE CURRENT NUMBER OF COLUMNS AND LINES.
01628 M00S01623.virterm +++|*
01629 M00S01624.virterm +++|* PROC VDTGTD(COLUMNS,LINES)
01630 M00S01625.virterm +++|*
01631 M00S01626.virterm +++|* EXIT COLUMNS = NUMBER OF COLUMNS ON SCREEN.
01632 M00S01627.virterm +++|* LINES = NUMBER OF LINES ON SCREEN.
01633 M00S01628.virterm +++|#
01634 M00S01629.virterm +++|
01635 M00S01630.virterm +++|ITEM COLUMNS I; # NUMBER OF COLUMNS #
01636 M00S01631.virterm +++|ITEM LINES I; # NUMBER OF LINES #
01637 M00S01632.virterm +++|
01638 M00S01633.virterm +++|COLUMNS = VTXMAX + 1;
01639 M00S01634.virterm +++|LINES = VTYMAX + 1;
01640 M00S01635.virterm +++|
01641 M00S01636.virterm +++|END # VDTGTD #
01642 M00S01637.virterm +++|CONTROL EJECT;
01643 M00S01638.virterm +++|
01644 M00S01639.virterm +++|PROC VDTHOM;
01645 M00S01640.virterm +++|
01646 M00S01641.virterm +++|# TITLE VDTHOM - MOVE CURSOR TO HOME POSITION. #
01647 M00S01642.virterm +++|
01648 M00S01643.virterm +++|IOBEGIN(VDTHOM)
01649 M00S01644.virterm +++|
01650 M00S01645.virterm +++|#
01651 M00S01646.virterm +++|** VDTHOM - MOVE CURSOR TO HOME POSITION.
01652 M00S01647.virterm +++|*
01653 M00S01648.virterm +++|* THIS PROCEDURE POSITIONS THE CURSOR TO HOME.
01654 M00S01649.virterm +++|*
01655 M00S01650.virterm +++|* PROC VDTHOM
01656 M00S01651.virterm +++|*
01657 M00S01652.virterm +++|* EXIT VTXCUR = 0.
01658 M00S01653.virterm +++|* VTYCUR = 0 OR VTYMAX.
01659 M00S01654.virterm +++|*
01660 M00S01655.virterm +++|* CALLS VDCTRL.
01661 M00S01656.virterm +++|*
01662 M00S01657.virterm +++|* USES VTXCUR, VTYCUR.
01663 M00S01658.virterm +++|#
01664 M00S01659.virterm +++|
01665 M00S01660.virterm +++|VDCTRL(OUT"CURSORHOME"); # POSITION CURSOR TO HOME #
01666 M00S01661.virterm +++|
01667 M00S01662.virterm +++|VTXCUR = 0; # RESET COLUMN POINTER #
01668 M00S01663.virterm +++|IF TABVTHOMEU[0] THEN
01669 M00S01664.virterm +++| BEGIN # IF HOME POSITION IS TOP #
01670 M00S01665.virterm +++| VTYCUR = 0; # CLEAR Y COORDINATE #
01671 M00S01666.virterm +++| END
01672 M00S01667.virterm +++|ELSE
01673 M00S01668.virterm +++| BEGIN # HOME IS AT BOTTOM #
01674 M00S01669.virterm +++| VTYCUR = VTYMAX; # SET Y COORDINATE #
01675 M00S01670.virterm +++| END
01676 M00S01671.virterm +++|
01677 M00S01672.virterm +++|IOEND # VDTHOM #
01678 M00S01673.virterm +++|CONTROL EJECT;
01679 M00S01674.virterm +++|CONTROL IFEQ SINGLE,1; # IF NOT MULTI USER FSE #
01680 M00S01675.virterm +++|
01681 M00S01676.virterm +++|PROC VDTITD(MODELNAME);
01682 M00S01677.virterm +++|
01683 M00S01678.virterm +++|# TITLE VDTITD - INITIALIZE *TDU* TABLE. #
01684 M00S01679.virterm +++|
01685 M00S01680.virterm +++|BEGIN # VDTITD #
01686 M00S01681.virterm +++|
01687 M00S01682.virterm +++|#
01688 M00S01683.virterm +++|** VDTITD - INITIALIZE *TDU* TABLE.
01689 M00S01684.virterm +++|*
01690 M00S01685.virterm +++|* THIS PROCEDURE GETS THE *TDU* (TERMINAL DEFINITION UTILITY) TABLE
01691 M00S01686.virterm +++|* FROM MEMORY OR FILE *ZZZZTRM* AND MOVES IT TO ARRAYS *TABLEHEADR*
01692 M00S01687.virterm +++|* AND *TABLEWORDS* SO THAT THE TERMINAL CAN BE RUN IN SCREEN MODE.
01693 M00S01688.virterm +++|* TDUINDEX IS LEFT POSITIONED WHERE THE READING OF THE INPUT AND
01694 M00S01689.virterm +++|* OUPTUT DATA STOPPED TO ALLOW SUBSEQUENT ACCESS TO THE REST OF
01695 M00S01690.virterm +++|* THE DATA IN THE REMAINING SECTIONS OF THE *TDU* TABLE.
01696 M00S01691.virterm +++|*
01697 M00S01692.virterm +++|* PROC VDTITD(MODELNAME)
01698 M00S01693.virterm +++|*
01699 M00S01694.virterm +++|* EXIT MODELNAME = THE MODELNAME OF THE TERMINAL AS DEFINED
01700 M00S01695.virterm +++|* TO *TDU*, LEFT JUSTIFIED, BLANK FILL.
01701 M00S01696.virterm +++|* = BLANK, IF NO *TDU* DEFINITION EXISTS.
01702 M00S01697.virterm +++|*
01703 M00S01698.virterm +++|* CALLS VDGETW, VDTGSL, VDTGTA.
01704 M00S01699.virterm +++|*
01705 M00S01700.virterm +++|* USES VTI, VTJ, VTMODEL.
01706 M00S01701.virterm +++|*
01707 M00S01702.virterm +++|* NOTES VDTITD CAN NOT BE CALLED IN THE MULTI USER VERSION
01708 M00S01703.virterm +++|* VERSION OF THE EDITOR SINCE IT MAY DO DISK I/O TO
01709 M00S01704.virterm +++|* TO GET A USER DEFINED *TDU* TABLE.
01710 M00S01705.virterm +++|#
01711 M00S01706.virterm +++|
01712 M00S01707.virterm +++|ITEM MODELNAME C(6); # MODEL NAME #
01713 M00S01708.virterm +++|ITEM TDUINOUT U; # COUNT OF *TDU* I/O INFORMATION #
01714 M00S01709.virterm +++|ITEM TDUWORD U; # WORD FROM *TDU* TABLE #
01715 M00S01710.virterm +++|
01716 M00S01711.virterm +++|CONTROL IFEQ QTRMV,1; # IF QTRM #
01717 M00S01712.virterm +++|ITEM I I;
01718 M00S01713.virterm +++|ITEM TMODEL C(7); # TEMP MODEL NAME #
01719 M00S01714.virterm +++|ITEM SCRCLS I; # CAPSULE LOADED SUCCESSFULLY #
01720 M00S01715.virterm +++|ITEM SCRLCA U; # LOADED CAPSULE ADDRESS #
01721 M00S01716.virterm +++|ITEM SCRPFF I; # PERMANENT FILE FOUND FLAG #
01722 M00S01717.virterm +++|ITEM SCRPFN C(7) = "TERMLIB"; # PERMANENT FILE NAME #
01723 M00S01718.virterm +++|ITEM SCRSTS B; # *TERMLIB* STATUS FLAG #
01724 M00S01719.virterm +++|ITEM SCRTCL I; # TERMINAL CAPSULE LENGTH #
01725 M00S01720.virterm +++|ITEM SCRUSN C(7) = "LIBRARY"; # ALTERNATE USER NUMBER #
01726 M00S01721.virterm +++|ITEM SCRZTM C(7); # MODEL NAME PREFACED WITH Z #
01727 M00S01722.virterm +++|CONTROL FI; # END OF IF QTRM #
01728 M00S01723.virterm +++|
01729 M00S01724.virterm +++|IF NOT VTTDUREAD[0] THEN
01730 M00S01725.virterm +++| BEGIN # IF *TDU* TABLE NOT READ YET #
01731 M00S01726.virterm +++|*IF UNDEF,QTRM
01732 M00S01727.virterm +++| VDTGSL(VTMODEL,VTI); # GET MODEL AND SCREEN OR LINE #
01733 M00S01728.virterm +++| IF VTMODEL NQ 0 THEN
01734 M00S01729.virterm +++| BEGIN # IF TERMINAL HAS BEEN DEFINED #
01735 M00S01730.virterm +++| IF VTMODEL NQ 1 THEN
01736 M00S01731.virterm +++| BEGIN # IF SYSTEM RESIDENT TABLE #
01737 M00S01732.virterm +++| VDTGTA(VTMODEL,VTJ); # GET ADDRESS FOR *TDU* TABLE #
01738 M00S01733.virterm +++| P<TEMPSTORE> = VTJ; # POSITION BASED ARRAY #
01739 M00S01734.virterm +++| TDURESID[0] = TRUE; # SET RESIDENT TABLE #
01740 M00S01735.virterm +++| END
01741 M00S01736.virterm +++| ELSE
01742 M00S01737.virterm +++| BEGIN # NOT SYSTEM RESIDENT TABLE #
01743 M00S01738.virterm +++| VTJ = LOC(TDUBUF); # PRESET FET FOR READ #
01744 M00S01739.virterm +++| TDUCODE = 1;
01745 M00S01740.virterm +++| TDUIN = VTJ;
01746 M00S01741.virterm +++| TDUFIRST = VTJ;
01747 M00S01742.virterm +++| TDUOUT = VTJ;
01748 M00S01743.virterm +++| TDULIMIT = VTJ + TDUBUFFLEN; # BUFFER LENGTH #
01749 M00S01744.virterm +++| VDTRWD(TDUFET,1); # REWIND FET WITH RECALL #
01750 M00S01745.virterm +++| VDTRD$(TDUFET,1); # READ *TDU* TABLE WITH RECALL #
01751 M00S01746.virterm +++| TDURESID[0] = FALSE; # CLEAR RESIDENT TABLE #
01752 M00S01747.virterm +++| END
01753 M00S01748.virterm +++| TDUINDEX[0] = 0; # START INDEX AT ZERO #
01754 M00S01749.virterm +++| VDGETW(TDUWORD,VTI); # MOVE TABLE HEADER TO COMMON #
01755 M00S01750.virterm +++| IF VTI EQ 0 THEN
01756 M00S01751.virterm +++| BEGIN # IF TABLE EXISTS #
01757 M00S01752.virterm +++| TABHEADONE[0] = TDUWORD;
01758 M00S01753.virterm +++| VDGETW(TDUWORD,VTI);
01759 M00S01754.virterm +++| TABHEADTWO[0] = TDUWORD;
01760 M00S01755.virterm +++| VDGETW(TDUWORD,VTI);
01761 M00S01756.virterm +++| TABHEADTHR[0] = TDUWORD;
01762 M00S01757.virterm +++| VDGETW(TDUWORD,VTI);
01763 M00S01758.virterm +++| TABHEADFOU[0] = TDUWORD;
01764 M00S01759.virterm +++| VDGETW(TDUWORD,VTI);
01765 M00S01760.virterm +++| TABHEADFIV[0] = TDUWORD;
01766 M00S01761.virterm +++| VDGETW(TDUWORD,VTI);
01767 M00S01762.virterm +++| TABHEADSIX[0] = TDUWORD;
01768 M00S01763.virterm +++| TDUINOUT = TABSTRNMES[0] - 7; # COUNT *TDU* I/O INFORMATION #
01769 M00S01764.virterm +++| IF TDUINOUT GR TDUBUFFLEN - O"10" THEN
01770 M00S01765.virterm +++| BEGIN # IF TOO MUCH I/O INFORMATION #
01771 M00S01766.virterm +++| TDUINOUT = TDUBUFFLEN - O"10";
01772 M00S01767.virterm +++| END
01773 M00S01768.virterm +++| FOR VTJ = 0 STEP 1 UNTIL TDUINOUT DO
01774 M00S01769.virterm +++| BEGIN # MOVE BODY OF TABLE TO COMMON #
01775 M00S01770.virterm +++| VDGETW(TDUWORD,VTI);
01776 M00S01771.virterm +++| TABFULLWRD[VTJ] = TDUWORD;
01777 M00S01772.virterm +++| END
01778 M00S01773.virterm +++| VTTDUREAD[0] = TRUE; # SET TABLE READ FLAG #
01779 M00S01774.virterm +++| END
01780 M00S01775.virterm +++| ELSE
01781 M00S01776.virterm +++| BEGIN # TABLE CAN NOT BE FOUND #
01782 M00S01777.virterm +++| TABMODNAME[0] = " "; # SET BLANK NAME IN BLOCK #
01783 M00S01778.virterm +++| END
01784 M00S01779.virterm +++| END
01785 M00S01780.virterm +++| ELSE
01786 M00S01781.virterm +++| BEGIN # UNDEFINED TERMINAL #
01787 M00S01782.virterm +++| TABMODNAME[0] = " "; # SET BLANK NAME IN BLOCK #
01788 M00S01783.virterm +++| END
01789 M00S01784.virterm +++| END
01790 M00S01785.virterm +++|*ELSE
01791 M00S01786.virterm +++| VDTGTO(VTMODEL,MODELNAME); # GET TERMINAL ORDINAL #
01792 M00S01787.virterm +++| IF VTMODEL NQ 0 THEN
01793 M00S01788.virterm +++| BEGIN # IF SYSTEM RESIDENT TABLE #
01794 M00S01789.virterm +++| VDTGTA(VTMODEL,VTJ); # GET ADDRESS FOR *TDU* TABLE #
01795 M00S01790.virterm +++| P<TEMPSTORE> = VTJ; # POSITION BASED ARRAY #
01796 M00S01791.virterm +++| TDURESID[0] = TRUE; # SET RESIDENT TABLE #
01797 M00S01792.virterm +++| END
01798 M00S01793.virterm +++| ELSE
01799 M00S01794.virterm +++| BEGIN # NOT SYSTEM RESIDENT TABLE #
01800 M00S01795.virterm +++| PF("GET",SCRPFN,SCRPFN,"RC",SCRPFF,"UN",SCRUSN,0);
01801 M00S01796.virterm +++| IF SCRPFF NQ 0 THEN
01802 M00S01797.virterm +++| BEGIN # IF NOT INDIRECT, TRY DIRECT #
01803 M00S01798.virterm +++| PF("ATTACH",SCRPFN,SCRPFN,"RC",SCRPFF,"UN",SCRUSN,"PN",
01804 M00S01799.virterm +++| "0","NA",0,0);
01805 M00S01800.virterm +++| END
01806 M00S01801.virterm +++| IF SCRPFF EQ 0 THEN
01807 M00S01802.virterm +++| BEGIN # IF FILE FOUND #
01808 M00S01803.virterm +++| C<0>SCRZTM = "Z"; # LOADER PREFIX #
01809 M00S01804.virterm +++| FOR I = 1 STEP 1 UNTIL 6 DO C<I>SCRZTM = C<I-1>MODELNAME;
01810 M00S01805.virterm +++| SCRLCP(SCRZTM,SCRLCA,SCRCLS); # LOAD TERMINAL CAPSULE #
01811 M00S01806.virterm +++| IF SCRCLS EQ 0 THEN
01812 M00S01807.virterm +++| BEGIN # IF CAPSULE LOADED #
01813 M00S01808.virterm +++| P<TEMPSTORE> = SCRLCA; # POSITION BASED ARRAY #
01814 M00S01809.virterm +++| TDURESID[0] = TRUE; # SET RESIDENT TABLE #
01815 M00S01810.virterm +++| TABMODNAME[0] = MODELNAME; # BLANK NAME IN BLOCK #
01816 M00S01811.virterm +++| END # CAPSULE LOADED #
01817 M00S01812.virterm +++| END
01818 M00S01813.virterm +++| IF ((SCRCLS NQ 0) OR (SCRPFF NQ 0)) THEN
01819 M00S01814.virterm +++| BEGIN # IF CAPSULE NOT FOUND #
01820 M00S01815.virterm +++| TABMODNAME[0] = " "; # SET BLANK NAME IN BLOCK #
01821 M00S01816.virterm +++| END
01822 M00S01817.virterm +++| END
01823 M00S01818.virterm +++| TDUINDEX[0] = 0; # START INDEX AT ZERO #
01824 M00S01819.virterm +++| VDGETW(TDUWORD,VTI); # MOVE TABLE HEADER TO COMMON #
01825 M00S01820.virterm +++| TABHEADONE[0] = TDUWORD;
01826 M00S01821.virterm +++| VDGETW(TDUWORD,VTI);
01827 M00S01822.virterm +++| TABHEADTWO[0] = TDUWORD;
01828 M00S01823.virterm +++| VDGETW(TDUWORD,VTI);
01829 M00S01824.virterm +++| TABHEADTHR[0] = TDUWORD;
01830 M00S01825.virterm +++| VDGETW(TDUWORD,VTI);
01831 M00S01826.virterm +++| TABHEADFOU[0] = TDUWORD;
01832 M00S01827.virterm +++| VDGETW(TDUWORD,VTI);
01833 M00S01828.virterm +++| TABHEADFIV[0] = TDUWORD;
01834 M00S01829.virterm +++| VDGETW(TDUWORD,VTI);
01835 M00S01830.virterm +++| TABHEADSIX[0] = TDUWORD;
01836 M00S01831.virterm +++| TDUINOUT = TABSTRNMES[0] - 7; # COUNT *TDU* I/O INFORMATION #
01837 M00S01832.virterm +++| IF TDUINOUT GR TDUBUFFLEN - O"10" THEN
01838 M00S01833.virterm +++| BEGIN # IF TOO MUCH I/O INFORMATION #
01839 M00S01834.virterm +++| TDUINOUT = TDUBUFFLEN - O"10";
01840 M00S01835.virterm +++| END
01841 M00S01836.virterm +++| FOR VTJ = 0 STEP 1 UNTIL TDUINOUT DO
01842 M00S01837.virterm +++| BEGIN # MOVE BODY OF TABLE TO COMMON #
01843 M00S01838.virterm +++| VDGETW(TDUWORD,VTI);
01844 M00S01839.virterm +++| TABFULLWRD[VTJ] = TDUWORD;
01845 M00S01840.virterm +++| END
01846 M00S01841.virterm +++| VTTDUREAD[0] = TRUE; # SET TABLE READ FLAG #
01847 M00S01842.virterm +++| END
01848 M00S01843.virterm +++|*ENDIF
01849 M00S01844.virterm +++|C<0,6>MODELNAME = TABMODNAME[0]; # RETURN MODEL NAME #
01850 M00S01845.virterm +++|
01851 M00S01846.virterm +++|END # VDTITD #
01852 M00S01847.virterm +++|CONTROL FI; # END OF IF SINGLE USER FSE #
01853 M00S01848.virterm +++|*IF UNDEF,QTRM
01854 M00S01849.virterm +++|CONTROL EJECT;
01855 M00S01850.virterm +++|
01856 M00S01851.virterm +++|PROC VDTOUT(CHAR);
01857 M00S01852.virterm +++|
01858 M00S01853.virterm +++|# TITLE VDTOUT - ISSUE ONE BYTE TO ACCUMULATOR WORD. #
01859 M00S01854.virterm +++|
01860 M00S01855.virterm +++|IOBEGIN(VDTOUT)
01861 M00S01856.virterm +++|
01862 M00S01857.virterm +++|#
01863 M00S01858.virterm +++|** VDTOUT - ISSUE ONE BYTE TO ACCUMULATOR WORD.
01864 M00S01859.virterm +++|*
01865 M00S01860.virterm +++|* THIS PROCEDURE ALLOWS THE GENERAL OUTPUT OF ONE CHARACTER.
01866 M00S01861.virterm +++|*
01867 M00S01862.virterm +++|* PROC VDTOUT(CHAR)
01868 M00S01863.virterm +++|*
01869 M00S01864.virterm +++|* ENTRY CHAR = 12 BIT BYTE TO QUEUE OR TRANSMIT.
01870 M00S01865.virterm +++|* VTOUTDATA = ACCUMULATOR WORD.
01871 M00S01866.virterm +++|* VTOUTNEXT = PRESENT BIT POSITION.
01872 M00S01867.virterm +++|*
01873 M00S01868.virterm +++|* EXIT VTOUTDATA, VTOUTNEXT UPDATED.
01874 M00S01869.virterm +++|*
01875 M00S01870.virterm +++|* CALLS VDTWTO.
01876 M00S01871.virterm +++|*
01877 M00S01872.virterm +++|* USES VTOUTDATA, VTOUTNEXT.
01878 M00S01873.virterm +++|#
01879 M00S01874.virterm +++|
01880 M00S01875.virterm +++|ITEM CHAR I; # OUTPUT BYTE #
01881 M00S01876.virterm +++|
01882 M00S01877.virterm +++|B<VTOUTNEXT,12>VTOUTDATA = CHAR LOR O"4000"; # XPARENT BYTE #
01883 M00S01878.virterm +++|
01884 M00S01879.virterm +++|# END OF NON-REENTRANT PARAMETER USAGE #
01885 M00S01880.virterm +++|
01886 M00S01881.virterm +++|VTOUTNEXT = VTOUTNEXT +12; # INCREMENT BIT POSITION #
01887 M00S01882.virterm +++|IF VTOUTNEXT EQ 60 THEN
01888 M00S01883.virterm +++| BEGIN # IF ACCUMULATOR WORD IS FULL #
01889 M00S01884.virterm +++| VDTWTO(VTOUTDATA); # WRITE WORD #
01890 M00S01885.virterm +++| VTOUTDATA = 0; # CLEAR ACCUMULATOR WORD #
01891 M00S01886.virterm +++| VTOUTNEXT = 0; # SET BIT POSITION #
01892 M00S01887.virterm +++| END
01893 M00S01888.virterm +++|
01894 M00S01889.virterm +++|IOEND # VDTOUT #
01895 M00S01890.virterm +++|*ELSE
01896 M00S01891.virterm +++|CONTROL EJECT; # QTRM VARIANT OF VDTOUT #
01897 M00S01892.virterm +++|
01898 M00S01893.virterm +++|PROC VDTOUT(CHAR);
01899 M00S01894.virterm +++|
01900 M00S01895.virterm +++|# TITLE VDTOUT - ISSUE ONE BYTE TO ACCUMULATOR WORD. #
01901 M00S01896.virterm +++|
01902 M00S01897.virterm +++|BEGIN # VDTOUT #
01903 M00S01898.virterm +++|
01904 M00S01899.virterm +++|#
01905 M00S01900.virterm +++|** VDTOUT - ISSUE ONE BYTE TO ACCUMULATOR WORD.
01906 M00S01901.virterm +++|*
01907 M00S01902.virterm +++|* THIS PROCEDURE ALLOWS GENERAL QTRM OUTPUT OF ONE CHARACTER.
01908 M00S01903.virterm +++|*
01909 M00S01904.virterm +++|* PROC VDTOUT(CHAR)
01910 M00S01905.virterm +++|*
01911 M00S01906.virterm +++|* ENTRY CHAR = 12 BIT BYTE TO QUEUE OR TRANSMIT.
01912 M00S01907.virterm +++|* VTOUTDATA = ACCUMULATOR WORD.
01913 M00S01908.virterm +++|* VTOUTNEXT = PRESENT BIT POSITION.
01914 M00S01909.virterm +++|*
01915 M00S01910.virterm +++|* EXIT VTOUTDATA, VTOUTNEXT UPDATED.
01916 M00S01911.virterm +++|*
01917 M00S01912.virterm +++|* CALLS SFNQUE.
01918 M00S01913.virterm +++|*
01919 M00S01914.virterm +++|* USES VTOUTDATA, VTOUTNEXT.
01920 M00S01915.virterm +++|#
01921 M00S01916.virterm +++|ITEM CHAR I; # OUTPUT BYTE #
01922 M00S01917.virterm +++|ITEM I I; # DUMMY PARAMETER #
01923 M00S01918.virterm +++|
01924 M00S01919.virterm +++| B<VTOUTNEXT,12>VTOUTDATA = CHAR;
01925 M00S01920.virterm +++| VTOUTNEXT = VTOUTNEXT + 12;
01926 M00S01921.virterm +++| IF VTOUTNEXT EQ 60 THEN
01927 M00S01922.virterm +++| BEGIN # IF ACCUMULATOR WORD IS FULL #
01928 M00S01923.virterm +++| NIT$CTLC = 5; # ENQUEUE WORD #
01929 M00S01924.virterm +++| SFNQUE("PUT",VTOUTDATA,I);
01930 M00S01925.virterm +++| VTOUTDATA = 0; # CLEAR ACCUMULATOR WORD #
01931 M00S01926.virterm +++| VTOUTNEXT = 0; # SET BIT POSITION #
01932 M00S01927.virterm +++| END
01933 M00S01928.virterm +++|
01934 M00S01929.virterm +++|END # VDTOUT #
01935 M00S01930.virterm +++|*ENDIF
01936 M00S01931.virterm +++|CONTROL EJECT;
01937 M00S01932.virterm +++|
01938 M00S01933.virterm +++|PROC VDTPOS(XX,YY);
01939 M00S01934.virterm +++|
01940 M00S01935.virterm +++|# TITLE VDTPOS - POSITION CURSOR. #
01941 M00S01936.virterm +++|
01942 M00S01937.virterm +++|IOBEGIN(VDTPOS)
01943 M00S01938.virterm +++|
01944 M00S01939.virterm +++|#
01945 M00S01940.virterm +++|** VDTPOS - POSITION CURSOR.
01946 M00S01941.virterm +++|*
01947 M00S01942.virterm +++|* THIS PROCEDURE MOVES THE CURSOR TO THE SPECIFIED POSITION.
01948 M00S01943.virterm +++|*
01949 M00S01944.virterm +++|* PROC VDTPOS(XX,YY)
01950 M00S01945.virterm +++|*
01951 M00S01946.virterm +++|* ENTRY XX = DESIRED X COORDINATE.
01952 M00S01947.virterm +++|* YY = DESIRED Y COORDINATE.
01953 M00S01948.virterm +++|*
01954 M00S01949.virterm +++|* EXIT VTXCUR = XX.
01955 M00S01950.virterm +++|* VTYCUR = YY.
01956 M00S01951.virterm +++|*
01957 M00S01952.virterm +++|* CALLS VDMOVE.
01958 M00S01953.virterm +++|#
01959 M00S01954.virterm +++|
01960 M00S01955.virterm +++|ITEM XX I; # COLUMN POSITION #
01961 M00S01956.virterm +++|ITEM YY I; # LINE POSITION #
01962 M00S01957.virterm +++|
01963 M00S01958.virterm +++|VTXCUR = XX; # RESET COLUMN POINTER #
01964 M00S01959.virterm +++|VTYCUR = YY; # RESET LINE POINTER #
01965 M00S01960.virterm +++|
01966 M00S01961.virterm +++|# END OF NON-REENTRANT PARAMETER USAGE #
01967 M00S01962.virterm +++|
01968 M00S01963.virterm +++|VDMOVE(VTXCUR,VTYCUR); # POSITION CURSOR #
01969 M00S01964.virterm +++|
01970 M00S01965.virterm +++|IOEND # VDTPOS #
01971 M00S01966.virterm +++|*IF UNDEF,QTRM
01972 M00S01967.virterm +++|CONTROL EJECT;
01973 M00S01968.virterm +++|
01974 M00S01969.virterm +++|PROC VDTPPI;
01975 M00S01970.virterm +++|
01976 M00S01971.virterm +++|# TITLE VDTPPI - PRE-PROCESS INPUT. #
01977 M00S01972.virterm +++|
01978 M00S01973.virterm +++|IOBEGIN(VDTPPI)
01979 M00S01974.virterm +++|
01980 M00S01975.virterm +++|#
01981 M00S01976.virterm +++|** VDTPPI - PRE-PROCESS INPUT.
01982 M00S01977.virterm +++|*
01983 M00S01978.virterm +++|* THIS PROCEDURE VERIFIES THAT THE INPUT IS EITHER NULL OR IS
01984 M00S01979.virterm +++|* TRANSPARENT INPUT. THE EFFECT IS TO BANISH MOST TYPE AHEAD
01985 M00S01980.virterm +++|* EXCEPT FOR TYPED AHEAD CARRIAGE RETURNS WHICH CAN BE IGNORED.
01986 M00S01981.virterm +++|*
01987 M00S01982.virterm +++|* PROC VDTPPI
01988 M00S01983.virterm +++|*
01989 M00S01984.virterm +++|* EXIT VTORDN = 0, IF TRANSPARENT INPUT RECEIVED OK.
01990 M00S01985.virterm +++|* = NON ZERO, IF NON-NULL TYPEAHEAD.
01991 M00S01986.virterm +++|* VTINPDATA = CONTAINS NEW TRANSPARENT INPUT DATA.
01992 M00S01987.virterm +++|* VTRESINP = BLOCK MODE RESIDUAL INPUT.
01993 M00S01988.virterm +++|* VTINPNEXT = UPDATED.
01994 M00S01989.virterm +++|*
01995 M00S01990.virterm +++|* CALLS VDTRDO, VDTWTO.
01996 M00S01991.virterm +++|*
01997 M00S01992.virterm +++|* USES VTINPDATA, VTINPDATA, VTORDN.
01998 M00S01993.virterm +++|*
01999 M00S01994.virterm +++|* NOTES SINCE THIS PROCEDURE INITIALIZES THE BIT POINTER
02000 M00S01995.virterm +++|* (VTINPNEXT), IT MUST BE CALLED EXACTLY AT THE
02001 M00S01996.virterm +++|* START OF EACH INPUT SEQUENCE.
02002 M00S01997.virterm +++|#
02003 M00S01998.virterm +++|
02004 M00S01999.virterm +++|CONTROL IFEQ EDITORVDT,1; # IF EDITOR VIRTERM #
02005 M00S02000.virterm +++| CONTROL IFEQ SINGLE,1; # MULTI DOES THIS IN TTITRAP #
02006 M00S02001.virterm +++| IF NOT TABTYPHEAD[0] THEN
02007 M00S02002.virterm +++| BEGIN # IF TYPE AHEAD NOT ENABLED #
02008 M00S02003.virterm +++| VDTWTO(O"0006 4704 0015 0000 0000"); # XPARENT INPUT MODE #
02009 M00S02004.virterm +++| END
02010 M00S02005.virterm +++| CONTROL FI;
02011 M00S02006.virterm +++|CONTROL FI;
02012 M00S02007.virterm +++|
02013 M00S02008.virterm +++|CONTROL IFEQ EDITORVDT,0; # IF STAND ALONE VIRTERM #
02014 M00S02009.virterm +++| VDTWTO(O"0006 4704 0015 0000 0000"); # XPARENT INPUT MODE #
02015 M00S02010.virterm +++|CONTROL FI;
02016 M00S02011.virterm +++|
02017 M00S02012.virterm +++|VTORDN = 1;
02018 M00S02013.virterm +++|VDTRDO(VTINPDATA); # READ WORD #
02019 M00S02014.virterm +++|VTINPNEXT = 12; # RESET BIT POSITION #
02020 M00S02015.virterm +++|VTRESINP = 0; # CLEAR RESIDUAL INPUT #
02021 M00S02016.virterm +++|
02022 M00S02017.virterm +++|IF B<0,12>VTINPDATA EQ 7 THEN
02023 M00S02018.virterm +++| BEGIN # IF TRANSPARENT INPUT #
02024 M00S02019.virterm +++| VTORDN = 0;
02025 M00S02020.virterm +++|CONTROL IFEQ SINGLE,1; # IF NOT MULTI USER FSE #
02026 M00S02021.virterm +++| IF TABLOCKMDE[0] THEN
02027 M00S02022.virterm +++| BEGIN # IF BLOCK MODE TYPE TERMINAL #
02028 M00S02023.virterm +++| B<00,12>VTRESINP = B<24,12>VTINPDATA; # CURSOR ADDRESS #
02029 M00S02024.virterm +++| B<12,12>VTRESINP = B<36,12>VTINPDATA;
02030 M00S02025.virterm +++| B<24,12>VTRESINP = B<12,12>VTINPDATA; # ATTENTION IDENTIFIER #
02031 M00S02026.virterm +++| VTINPNEXT = 48; # SET BIT POINTER #
02032 M00S02027.virterm +++| END
02033 M00S02028.virterm +++|CONTROL FI; # END OF IF NOT MULTI FSE #
02034 M00S02029.virterm +++| END
02035 M00S02030.virterm +++|ELSE
02036 M00S02031.virterm +++| BEGIN # NOT TRANSPARENT INPUT #
02037 M00S02032.virterm +++| IF VTINPDATA EQ 0 THEN VTORDN = 0; # CHECK FOR NULL TYPE AHEAD #
02038 M00S02033.virterm +++| END
02039 M00S02034.virterm +++|
02040 M00S02035.virterm +++|IOEND # VDTPPI #
02041 M00S02036.virterm +++|*ELSE
02042 M00S02037.virterm +++|CONTROL EJECT; # QTRM VARIANT OF VDTPPI #
02043 M00S02038.virterm +++|
02044 M00S02039.virterm +++|PROC VDTPPI;
02045 M00S02040.virterm +++|
02046 M00S02041.virterm +++|# TITLE VDTPPI - PRE-PROCESS INPUT. #
02047 M00S02042.virterm +++|
02048 M00S02043.virterm +++|BEGIN # VDTPPI #
02049 M00S02044.virterm +++|
02050 M00S02045.virterm +++|#
02051 M00S02046.virterm +++|** VDTPPI - PRE-PROCESS INPUT.
02052 M00S02047.virterm +++|*
02053 M00S02048.virterm +++|* THIS PROCEDURE DOES INITIALIZATION FOR QTRM INPUT.
02054 M00S02049.virterm +++|*
02055 M00S02050.virterm +++|* PROC VDTPPI
02056 M00S02051.virterm +++|*
02057 M00S02052.virterm +++|* EXIT VTINPDATA = FIRST WORD OF INPUT.
02058 M00S02053.virterm +++|* VTINPWORD = 1.
02059 M00S02054.virterm +++|* VTINPNEXT = 0.
02060 M00S02055.virterm +++|* VTORDN = 0.
02061 M00S02056.virterm +++|*
02062 M00S02057.virterm +++|* USES VTINPDATA, VTINPNEXT, VTINPWORD, VTORDN.
02063 M00S02058.virterm +++|#
02064 M00S02059.virterm +++|ITEM WORD I; # WORD POINTER #
02065 M00S02060.virterm +++|ITEM BIT I; # BIT POINTER #
02066 M00S02061.virterm +++|
02067 M00S02062.virterm +++|VTINPNEXT = 0; # CLEAR INPUT WORD #
02068 M00S02063.virterm +++|VTORDN = 0; # CLEAR ORDINAL #
02069 M00S02064.virterm +++|VTINPWORD = 1;
02070 M00S02065.virterm +++|WORD = (NIT$CTLC + 1) / 5; # INSERT DUMMY CARRIAGE RETURN #
02071 M00S02066.virterm +++|BIT = (NIT$CTLC + 1 - (WORD * 5)) * 12;
02072 M00S02067.virterm +++|B<BIT,12>QTRM$WD0[WORD] = O"15";
02073 M00S02068.virterm +++|VTINPDATA = QTRM$WD0[0];
02074 M00S02069.virterm +++|
02075 M00S02070.virterm +++|END # VDTPPI #
02076 M00S02071.virterm +++|*ENDIF
02077 M00S02072.virterm +++|CONTROL EJECT;
02078 M00S02073.virterm +++|
02079 M00S02074.virterm +++|PROC VDTSAM(MASK);
02080 M00S02075.virterm +++|
02081 M00S02076.virterm +++|# TITLE VDTSAM - SET ATTRIBUTE MASK. #
02082 M00S02077.virterm +++|
02083 M00S02078.virterm +++|IOBEGIN(VDTSAM)
02084 M00S02079.virterm +++|
02085 M00S02080.virterm +++|#
02086 M00S02081.virterm +++|** VDTSAM - SET ATTRIBUTE MASK.
02087 M00S02082.virterm +++|*
02088 M00S02083.virterm +++|* THIS PROCEDURE SETS THE ATTRIBUTES REQUESTED BY MASK.
02089 M00S02084.virterm +++|*
02090 M00S02085.virterm +++|* PROC VDTSAM(MASK)
02091 M00S02086.virterm +++|*
02092 M00S02087.virterm +++|* ENTRY MASK = MASK OF LOGICAL/PHYSICAL ATTRIBUTES.
02093 M00S02088.virterm +++|* ATTRIBMASK = CURRENT ATTRIBUTE MASK.
02094 M00S02089.virterm +++|*
02095 M00S02090.virterm +++|* EXIT ATTRIBMASK = NEW ATTRIBUTE MASK.
02096 M00S02091.virterm +++|*
02097 M00S02092.virterm +++|* CALLS VDCTRL, VDTOUT.
02098 M00S02093.virterm +++|*
02099 M00S02094.virterm +++|* USES ATTNEWMASK, ATTRIBMASK, ATTRIBSAME.
02100 M00S02095.virterm +++|#
02101 M00S02096.virterm +++|
02102 M00S02097.virterm +++|ITEM MASK U; # REQUESTED ATTRIBUTES #
02103 M00S02098.virterm +++|
02104 M00S02099.virterm +++|ATTNEWMASK = MASK; # SAVE NEW ATTRIBUTES #
02105 M00S02100.virterm +++|
02106 M00S02101.virterm +++|IF NOT TABNOTMASK[0] THEN
02107 M00S02102.virterm +++| BEGIN # IF ATTRIBUTES ARE MASKABLE #
02108 M00S02103.virterm +++|
02109 M00S02104.virterm +++| # CALCULATE ATTRIBUTES THAT WILL BE UNCHANGED #
02110 M00S02105.virterm +++|
02111 M00S02106.virterm +++| ATTRIBSAME = (ATTNEWMASK LAN ATTRIBMASK[0]) LAN O"3000";
02112 M00S02107.virterm +++| IF ATTLOGICAL[0] THEN
02113 M00S02108.virterm +++| BEGIN # IF LOGICAL ATTRIBUTE #
02114 M00S02109.virterm +++| IF B<0,1>ATTNEWMASK EQ 1 AND ATTORDINAL[0] EQ B<6,6>ATTNEWMASK THEN
02115 M00S02110.virterm +++| ATTRIBSAME = ATTRIBSAME LOR (ATTNEWMASK LAN O"4077");
02116 M00S02111.virterm +++| END
02117 M00S02112.virterm +++| ELSE
02118 M00S02113.virterm +++| BEGIN # PHYSICAL ATTRIBUTES #
02119 M00S02114.virterm +++| IF B<0,1> ATTNEWMASK EQ 0 THEN
02120 M00S02115.virterm +++| BEGIN
02121 M00S02116.virterm +++| ATTRIBSAME = ATTRIBSAME LOR
02122 M00S02117.virterm +++| ((ATTNEWMASK LAN ATTRIBMASK[0]) LAN O"0017");
02123 M00S02118.virterm +++| END
02124 M00S02119.virterm +++| END
02125 M00S02120.virterm +++|
02126 M00S02121.virterm +++| # TURN OFF ATTRIBUTES THAT ARE ON AND NOT REQUESTED THIS CALL #
02127 M00S02122.virterm +++|
02128 M00S02123.virterm +++| ATTRIBMASK[0] = ATTRIBMASK[0] LXR ATTRIBSAME;
02129 M00S02124.virterm +++|
02130 M00S02125.virterm +++|END
02131 M00S02126.virterm +++|
02132 M00S02127.virterm +++|IF ATTRIBMASK[0] NQ 0 THEN
02133 M00S02128.virterm +++| BEGIN # IF TURNING OFF ANY ATTRIBUTES #
02134 M00S02129.virterm +++| IF ATTLOGICAL[0] THEN
02135 M00S02130.virterm +++| BEGIN # TURN OFF LOGICAL ATTRIBUTE #
02136 M00S02131.virterm +++| IF ATTORDINAL[0] GQ 0 AND ATTORDINAL[0] LQ MAXLOGTYPE THEN
02137 M00S02132.virterm +++| BEGIN # IF GROUP ONE LOGICAL #
02138 M00S02133.virterm +++| VDCTRL(OUT"INPTEXTOFF" + (ATTORDINAL[0] * 2));
02139 M00S02134.virterm +++| IF ATTORDINAL[0] EQ 0 THEN VTPSUNDACT[0] = FALSE;
02140 M00S02135.virterm +++| END
02141 M00S02136.virterm +++| ELSE
02142 M00S02137.virterm +++| BEGIN # NOT GROUP ONE LOGICAL #
02143 M00S02138.virterm +++| IF ATTORDINAL[0] LQ MAXLOGTYPE*2+1 THEN
02144 M00S02139.virterm +++| BEGIN # IF LEGAL GROUP TWO LOGICAL #
02145 M00S02140.virterm +++| VDCTRL(OUT"INPUTE2" + ((ATTORDINAL[0]-6) * 2));
02146 M00S02141.virterm +++| END
02147 M00S02142.virterm +++| END
02148 M00S02143.virterm +++| END
02149 M00S02144.virterm +++| ELSE
02150 M00S02145.virterm +++| BEGIN # TURN OFF PHYSICAL ATTRIBUTES #
02151 M00S02146.virterm +++| IF ATTUNDERLN[0] THEN VTPSUNDACT[0] = FALSE;
02152 M00S02147.virterm +++| IF ATTUNDERLN[0] THEN VDCTRL(OUT"UNDERLNOFF");
02153 M00S02148.virterm +++| IF ATTALTERIN[0] THEN VDCTRL(OUT"ALTINTNOFF");
02154 M00S02149.virterm +++| IF ATTINVERSE[0] THEN VDCTRL(OUT"INVERSEOFF");
02155 M00S02150.virterm +++| IF ATTBLINKMD[0] THEN VDCTRL(OUT"BLINKOFF");
02156 M00S02151.virterm +++| END
02157 M00S02152.virterm +++| IF ATTPROTECT[0] THEN VDCTRL(OUT"PROTECTOFF");
02158 M00S02153.virterm +++| IF ATTGUARDMD[0] THEN VDCTRL(OUT"GUARDOFF");
02159 M00S02154.virterm +++| END
02160 M00S02155.virterm +++|
02161 M00S02156.virterm +++|# TURN ON ATTRIBUTES THAT ARE NOT ON AND ARE REQUESTED THIS CALL #
02162 M00S02157.virterm +++|
02163 M00S02158.virterm +++|ATTRIBMASK[0] = ATTNEWMASK; # RESET NEW ATTRIBUTES #
02164 M00S02159.virterm +++|
02165 M00S02160.virterm +++|IF ATTRIBMASK NQ 0 THEN
02166 M00S02161.virterm +++| BEGIN # IF ANY ATTRIBUTES TO TURN ON #
02167 M00S02162.virterm +++| IF NOT TABLOCKMDE[0] THEN
02168 M00S02163.virterm +++| BEGIN # IF NOT BLOCK TYPE TERMINAL #
02169 M00S02164.virterm +++| IF NOT TABNOTMASK[0] THEN
02170 M00S02165.virterm +++| BEGIN # IF ATTRIBUTES ARE MASKABLE #
02171 M00S02166.virterm +++| ATTRIBMASK[0] = ATTRIBMASK[0] LXR ATTRIBSAME;
02172 M00S02167.virterm +++| END
02173 M00S02168.virterm +++| IF ATTPROTECT[0] THEN VDCTRL(OUT"PROTECTON");
02174 M00S02169.virterm +++| IF ATTGUARDMD[0] THEN VDCTRL(OUT"GUARDON");
02175 M00S02170.virterm +++| END
02176 M00S02171.virterm +++| IF ATTLOGICAL[0] THEN
02177 M00S02172.virterm +++| BEGIN # TURN ON LOGICAL ATTRIBUTE #
02178 M00S02173.virterm +++| IF ATTORDINAL[0] GQ 0 AND ATTORDINAL[0] LQ MAXLOGTYPE THEN
02179 M00S02174.virterm +++| BEGIN # IF GROUP ONE LOGICAL #
02180 M00S02175.virterm +++| VDCTRL(OUT"INPTEXTON" + (ATTORDINAL[0] * 2));
02181 M00S02176.virterm +++| IF ATTORDINAL[0] EQ 0 THEN VTPSUNDACT[0] = VTPSUNDREQ[0];
02182 M00S02177.virterm +++| END
02183 M00S02178.virterm +++| ELSE
02184 M00S02179.virterm +++| BEGIN # NOT GROUP ONE LOGICAL #
02185 M00S02180.virterm +++| IF ATTORDINAL[0] LQ MAXLOGTYPE*2+1 THEN
02186 M00S02181.virterm +++| BEGIN # IF LEGAL GROUP TWO LOGICAL #
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/virterm.txt · Last modified: by 127.0.0.1