User Tools

Site Tools


cdc:nos2.source:opl.opl871:common:comfvd1

Common COMFVD1

1 Modification

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.comfvd1 +++|
00002  M01S00002.comfvd1 +++|#     COMFVD1 - VIRTUAL TERMINAL STORAGE MODULE 1. #
00003  M01S00003.comfvd1 +++|                                               CONTROL NOLIST;
00004  M01S00004.comfvd1 +++|                                               CONTROL IFEQ LISTCON,1;
00005  M01S00005.comfvd1 +++|                                               CONTROL LIST;
00006  M01S00006.comfvd1 +++|                                               CONTROL FI;
00007  M01S00007.comfvd1 +++|
00008  M01S00008.comfvd1 +++|#
00009  M01S00009.comfvd1 +++|***   COMFVD1 - VIRTUAL TERMINAL STORAGE MODULE 1.
00010  M01S00001.281l803 +++|*
00011  M01S00002.281l803 +++|*     COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00012  M01S00010.comfvd1 +++|*
00013  M01S00011.comfvd1 +++|*     COMFVD1 CONTAINS STORAGE SYMBOLS FOR *VDT* ROUTINES
00014  M01S00012.comfvd1 +++|*     TO BE USED BY ANY APPLICATION.
00015  M01S00013.comfvd1 +++|#
00016  M01S00014.comfvd1 +++|
00017  M01S00015.comfvd1 +++|COMMON COMVDT;
00018  M01S00016.comfvd1 +++|
00019  M01S00017.comfvd1 +++|  BEGIN  # COMVDT #
00020  M01S00018.comfvd1 +++|
00021  M01S00019.comfvd1 +++|  ITEM VTACTIVE   B=FALSE;           # VIRTUAL TERMINAL ACTIVE #
00022  M01S00020.comfvd1 +++|  ITEM SCREENMODE B=FALSE;           # SCREEN/LINE MODE FLAG #
00023  M01S00021.comfvd1 +++|  ITEM FKEYNDX    I=0;               # TEMPORARY STORAGE #
00024  M01S00022.comfvd1 +++|
00025  M01S00023.comfvd1 +++|ARRAY TABLEHEADR [0:0] P(6);         # *TDU* TABLE HEADER INFORMATION #
00026  M01S00024.comfvd1 +++|  BEGIN
00027  M01S00025.comfvd1 +++|  ITEM TABHEADONE U(00,00,60);       # WORD ONE #
00028  M01S00026.comfvd1 +++|  ITEM TABMODNAME C(00,00,07);       # MODEL NAME #
00029  M01S00027.comfvd1 +++|  ITEM TABVERSION U(00,42,18);       # VERSION NUMBER #
00030  M01S00028.comfvd1 +++|  ITEM TABHEADTWO U(01,00,60);       # WORD TWO #
00031  M01S00029.comfvd1 +++|  ITEM TABSTRINPT U(01,00,12);       # OFFSET TO START OF INPUT TABLE #
00032  M01S00030.comfvd1 +++|  ITEM TABSTRNMES U(01,12,12);       # OFFSET TO START OF KEY LABELS #
00033  M01S00031.comfvd1 +++|  ITEM TABSTRINIT U(01,24,12);       # OFFSET FOR INITIALIZATION DATA #
00034  M01S00032.comfvd1 +++|  ITEM TABSTRAPPS U(01,36,12);       # OFFSET FOR APPLICATION STRINGS #
00035  M01S00033.comfvd1 +++|  ITEM TABSTRENDT U(01,48,12);       # OFFSET TO END OF TABLE #
00036  M01S00034.comfvd1 +++|  ITEM TABHEADTHR U(02,00,60);       # WORD THREE #
00037  M01S00035.comfvd1 +++|  ITEM TABRESERV2 U(02,00,60);       # RESERVED #
00038  M01S00036.comfvd1 +++|  ITEM TABHEADFOU U(03,00,60);       # WORD FOUR #
00039  M01S00037.comfvd1 +++|  ITEM TABCURADDT U(03,00,06);       # CURSOR ADDRESSING TYPE #
00040  M01S00038.comfvd1 +++|  ITEM TABCURBIAS I(03,06,08);       # CURSOR BIAS FOR POSTIONING #
00041  M01S00039.comfvd1 +++|  ITEM TABLEFTCUR U(03,14,04);       # CURSOR LEFT BEHAVIOR #
00042  M01S00040.comfvd1 +++|  ITEM TABRGHTCUR U(03,18,04);       # CURSOR RIGHT BEHAVIOR #
00043  M01S00041.comfvd1 +++|  ITEM TABUPCURSR U(03,22,04);       # CURSOR UP BEHAVIOR #
00044  M01S00042.comfvd1 +++|  ITEM TABDWNCRSR U(03,26,04);       # CURSOR DOWN BEHAVIOR #
00045  M01S00043.comfvd1 +++|  ITEM TABLEFTCHR U(03,30,04);       # CHARACTER LEFT BEHAVIOR #
00046  M01S00044.comfvd1 +++|  ITEM TABRGHTCHR U(03,34,04);       # CHARACTER RIGHT BEHAVIOR #
00047  M01S00045.comfvd1 +++|  ITEM TABLASTPOS U(03,38,04);       # LAST POSITION BEHAVIOR (CHAR) #
00048  M01S00046.comfvd1 +++|  ITEM TABXFIRSTY B(03,42,01);       # X BEFORE Y IN CURSOR OUTPUT #
00049  M01S00047.comfvd1 +++|  ITEM TABXDECIML U(03,43,03);       # X COORDINATE COUNT IF DECIMAL #
00050  M01S00048.comfvd1 +++|  ITEM TABYDECIML U(03,46,03);       # Y COORDINATE COUNT IF DECIMAL #
00051  M01S00049.comfvd1 +++|  ITEM TABRESERV3 U(03,49,11);       # RESERVED #
00052  M01S00050.comfvd1 +++|  ITEM TABHEADFIV U(04,00,60);       # WORD FIVE #
00053  M01S00051.comfvd1 +++|  ITEM TABVTFLAGS U(04,00,60);       # VIRTUAL TERMINAL FLAGS #
00054  M01S00052.comfvd1 +++|  ITEM TABVTHOMEU B(04,00,01);       # HOME UP FLAG #
00055  M01S00053.comfvd1 +++|  ITEM TABVTPROTM B(04,01,01);       # TERMINAL HAS PROTECT #
00056  M01S00054.comfvd1 +++|  ITEM TABVTDIFSS B(04,02,01);       # DIFFERENT SCREEN SIZES #
00057  M01S00055.comfvd1 +++|  ITEM TABVTUNUSD B(04,03,01);       # UNUSED #
00058  M01S00056.comfvd1 +++|  ITEM TABVTGUARD B(04,04,01);       # TERMINAL HAS GUARD #
00059  M01S00057.comfvd1 +++|  ITEM TABVTABHME B(04,05,01);       # PROTECTED TAB GOES TO HOME #
00060  M01S00058.comfvd1 +++|  ITEM TABVTABUPF B(04,06,01);       # TABS TO UNPROTECTED FIELDS #
00061  M01S00059.comfvd1 +++|  ITEM TABVTABSTP B(04,07,01);       # TABS TO TAB STOP #
00062  M01S00060.comfvd1 +++|  ITEM TABVTSCLRS B(04,08,01);       # SIZE CHANGE CLEARS SCREEN #
00063  M01S00061.comfvd1 +++|  ITEM TABAUTOTAB B(04,09,01);       # TERMINAL HAS AUTOMATIC TABBING #
00064  M01S00062.comfvd1 +++|  ITEM TABTYPHEAD B(04,10,01);       # TYPE AHEAD ENABLED #
00065  M01S00063.comfvd1 +++|  ITEM TABLOCKMDE B(04,11,01);       # BLOCK MODE TERMINAL #
00066  M01S00064.comfvd1 +++|  ITEM TABPTDWFPG B(04,13,01);       # PROT TABS WILL NOT WRAP PAGE   #
00067  M01S00065.comfvd1 +++|  ITEM TABPTDWBLN B(04,14,01);       # PROT TABS DO NOT WRAP BKW LINE #
00068  M01S00066.comfvd1 +++|  ITEM TABPTDWBPG B(04,15,01);       # PROT TABS DO NOT WRAP BKW PAGE #
00069  M01S00067.comfvd1 +++|  ITEM TABUNDWFLN B(04,16,01);       # UNPROT TABS DO NOT WRAP FWD LN #
00070  M01S00068.comfvd1 +++|  ITEM TABUNDWFPG B(04,17,01);       # UNPROT TABS DO NOT WRAP FWD PG #
00071  M01S00069.comfvd1 +++|  ITEM TABUNDWBLN B(04,18,01);       # UNPROT TABS DO NOT WRAP BKW LN #
00072  M01S00070.comfvd1 +++|  ITEM TABUNDWBPG B(04,19,01);       # UNPROT TABS DO NOT WRAP BKW PG #
00073  M01S00071.comfvd1 +++|  ITEM TABATTRCHR B(04,20,01);       # ATTRIBUTE CHARACTER NEEDS BYTE #
00074  M01S00072.comfvd1 +++|  ITEM TABATTRSET B(04,21,01);       # RESET ATTRIBUTES BEFORE VDTPOS #
00075  M01S00073.comfvd1 +++|  ITEM TABSNDSPLR B(04,22,01);       # SEND DISPLAY REWRITE FOR SFORM #
00076  M01S00074.comfvd1 +++|  ITEM TABSNDSPLH B(04,23,01);       # SEND DISPLAY ON HELP FOR SFORM #
00077  M01S00075.comfvd1 +++|  ITEM TABNOTMASK B(04,24,01);       # ATTRIBUTES ARE NOT MASKABLE    #
00078  M01S00076.comfvd1 +++|  ITEM TABNOTCHAR B(04,25,01);       # ATTRIBUTES ARE LINE/PAGE BASED #
00079  M01S00077.comfvd1 +++|  ITEM TABNOVDTEO B(04,26,01);       # DISABLE OUTPUT END (ERR. EXIT) #
00080  M01S00078.comfvd1 +++|  ITEM TABPROCLRS B(04,27,01);       # PROTECT ALL CLEARS THE SCREEN  #
00081  M01S00079.comfvd1 +++|  ITEM TABCLEARSM B(04,28,01);       # CLEARS ACROSS PROTECTED FIELDS #
00082  M01S00080.comfvd1 +++|  ITEM TABRSBIT29 B(04,29,01);       # RESERVED FOR CDC (FUTURE CODE) #
00083  M01S00081.comfvd1 +++|  ITEM TABRSBIT30 B(04,30,01);       # RESERVED FOR CDC (FUTURE CODE) #
00084  M01S00082.comfvd1 +++|  ITEM TABRSBIT31 B(04,31,01);       # RESERVED FOR CDC (FUTURE CODE) #
00085  M01S00083.comfvd1 +++|  ITEM TABRSBIT32 B(04,32,01);       # RESERVED FOR CDC (FUTURE CODE) #
00086  M01S00084.comfvd1 +++|  ITEM TABRSBIT33 B(04,33,01);       # RESERVED FOR CDC (FUTURE CODE) #
00087  M01S00085.comfvd1 +++|  ITEM TABRSBIT34 B(04,34,01);       # RESERVED FOR CDC (FUTURE CODE) #
00088  M01S00086.comfvd1 +++|  ITEM TABRSBIT35 B(04,35,01);       # RESERVED FOR CDC (FUTURE CODE) #
00089  M01S00087.comfvd1 +++|  ITEM TABRSBIT36 B(04,36,01);       # RESERVED FOR CDC (FUTURE CODE) #
00090  M01S00088.comfvd1 +++|  ITEM TABINSTL01 B(04,37,01);       # RESERVED FOR INSTALLATION CODE #
00091  M01S00089.comfvd1 +++|  ITEM TABINSTL02 B(04,38,01);       # RESERVED FOR INSTALLATION CODE #
00092  M01S00090.comfvd1 +++|  ITEM TABINSTL03 B(04,39,01);       # RESERVED FOR INSTALLATION CODE #
00093  M01S00091.comfvd1 +++|  ITEM TABINSTL04 B(04,40,01);       # RESERVED FOR INSTALLATION CODE #
00094  M01S00092.comfvd1 +++|  ITEM TABINSTL05 B(04,41,01);       # RESERVED FOR INSTALLATION CODE #
00095  M01S00093.comfvd1 +++|  ITEM TABINSTL06 B(04,42,01);       # RESERVED FOR INSTALLATION CODE #
00096  M01S00094.comfvd1 +++|  ITEM TABINSTL07 B(04,43,01);       # RESERVED FOR INSTALLATION CODE #
00097  M01S00095.comfvd1 +++|  ITEM TABINSTL08 B(04,44,01);       # RESERVED FOR INSTALLATION CODE #
00098  M01S00096.comfvd1 +++|  ITEM TABINSTL09 B(04,45,01);       # RESERVED FOR INSTALLATION CODE #
00099  M01S00097.comfvd1 +++|  ITEM TABINSTL10 B(04,46,01);       # RESERVED FOR INSTALLATION CODE #
00100  M01S00098.comfvd1 +++|  ITEM TABINSTL11 B(04,47,01);       # RESERVED FOR INSTALLATION CODE #
00101  M01S00099.comfvd1 +++|  ITEM TABINSTL12 B(04,48,01);       # RESERVED FOR INSTALLATION CODE #
00102  M01S00100.comfvd1 +++|  ITEM TABINSTL13 B(04,49,01);       # RESERVED FOR INSTALLATION CODE #
00103  M01S00101.comfvd1 +++|  ITEM TABINSTL14 B(04,50,01);       # RESERVED FOR INSTALLATION CODE #
00104  M01S00102.comfvd1 +++|  ITEM TABINSTL15 B(04,51,01);       # RESERVED FOR INSTALLATION CODE #
00105  M01S00103.comfvd1 +++|  ITEM TABINSTL16 B(04,52,01);       # RESERVED FOR INSTALLATION CODE #
00106  M01S00104.comfvd1 +++|  ITEM TABINSTL17 B(04,53,01);       # RESERVED FOR INSTALLATION CODE #
00107  M01S00105.comfvd1 +++|  ITEM TABINSTL18 B(04,54,01);       # RESERVED FOR INSTALLATION CODE #
00108  M01S00106.comfvd1 +++|  ITEM TABINSTL19 B(04,55,01);       # RESERVED FOR INSTALLATION CODE #
00109  M01S00107.comfvd1 +++|  ITEM TABINSTL20 B(04,56,01);       # RESERVED FOR INSTALLATION CODE #
00110  M01S00108.comfvd1 +++|  ITEM TABVTFKLSM U(04,57,03);       # FUNCTION KEY MARK COUNT #
00111  M01S00109.comfvd1 +++|  ITEM TABHEADSIX U(05,00,60);       # WORD SIX #
00112  M01S00110.comfvd1 +++|  ITEM TABXMAXONE U(05,00,08);       # X MAX, SCREEN SIZE ONE #
00113  M01S00111.comfvd1 +++|  ITEM TABYMAXONE U(05,08,07);       # Y MAX, SCREEN SIZE ONE #
00114  M01S00112.comfvd1 +++|  ITEM TABXMAXTWO U(05,15,08);       # X MAX, SCREEN SIZE ONE #
00115  M01S00113.comfvd1 +++|  ITEM TABYMAXTWO U(05,23,07);       # Y MAX, SCREEN SIZE ONE #
00116  M01S00114.comfvd1 +++|  ITEM TABXMAXTHR U(05,30,08);       # X MAX, SCREEN SIZE ONE #
00117  M01S00115.comfvd1 +++|  ITEM TABYMAXTHR U(05,38,07);       # Y MAX, SCREEN SIZE ONE #
00118  M01S00116.comfvd1 +++|  ITEM TABXMAXFOR U(05,45,08);       # X MAX, SCREEN SIZE ONE #
00119  M01S00117.comfvd1 +++|  ITEM TABYMAXFOR U(05,53,07);       # Y MAX, SCREEN SIZE ONE #
00120  M01S00118.comfvd1 +++|  END
00121  M01S00119.comfvd1 +++|
00122  M01S00120.comfvd1 +++|ARRAY TABLEWORDS [0:O"271"] P(1);    # *TDU* TABLE I/O INFORMATION #
00123  M01S00121.comfvd1 +++|  BEGIN
00124  M01S00122.comfvd1 +++|  ITEM TABFULLWRD U(00,00,60);       # TABLE WORD #
00125  M01S00123.comfvd1 +++|  END
00126  M01S00124.comfvd1 +++|
00127  M01S00125.comfvd1 +++|
00128  M01S00126.comfvd1 +++|                                               CONTROL LIST;
00129  M01S00127.comfvd1 +++|
cdc/nos2.source/opl.opl871/common/comfvd1.txt ยท Last modified: by 127.0.0.1