COMFVD1 
COMMON
  
#     COMFVD1 - VIRTUAL TERMINAL STORAGE MODULE 1. #
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL FI;
  
# 
***   COMFVD1 - VIRTUAL TERMINAL STORAGE MODULE 1.
* 
*     COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
* 
*     COMFVD1 CONTAINS STORAGE SYMBOLS FOR *VDT* ROUTINES 
*     TO BE USED BY ANY APPLICATION.
# 
  
COMMON COMVDT;
  
  BEGIN  # COMVDT # 
  
  ITEM VTACTIVE   B=FALSE;           # VIRTUAL TERMINAL ACTIVE #
  ITEM SCREENMODE B=FALSE;           # SCREEN/LINE MODE FLAG #
  ITEM FKEYNDX    I=0;               # TEMPORARY STORAGE #
  
ARRAY TABLEHEADR [0:0] P(6);         # *TDU* TABLE HEADER INFORMATION # 
  BEGIN 
  ITEM TABHEADONE U(00,00,60);       # WORD ONE # 
  ITEM TABMODNAME C(00,00,07);       # MODEL NAME # 
  ITEM TABVERSION U(00,42,18);       # VERSION NUMBER # 
  ITEM TABHEADTWO U(01,00,60);       # WORD TWO # 
  ITEM TABSTRINPT U(01,00,12);       # OFFSET TO START OF INPUT TABLE # 
  ITEM TABSTRNMES U(01,12,12);       # OFFSET TO START OF KEY LABELS #
  ITEM TABSTRINIT U(01,24,12);       # OFFSET FOR INITIALIZATION DATA # 
  ITEM TABSTRAPPS U(01,36,12);       # OFFSET FOR APPLICATION STRINGS # 
  ITEM TABSTRENDT U(01,48,12);       # OFFSET TO END OF TABLE # 
  ITEM TABHEADTHR U(02,00,60);       # WORD THREE # 
  ITEM TABRESERV2 U(02,00,60);       # RESERVED # 
  ITEM TABHEADFOU U(03,00,60);       # WORD FOUR #
  ITEM TABCURADDT U(03,00,06);       # CURSOR ADDRESSING TYPE # 
  ITEM TABCURBIAS I(03,06,08);       # CURSOR BIAS FOR POSTIONING # 
  ITEM TABLEFTCUR U(03,14,04);       # CURSOR LEFT BEHAVIOR # 
  ITEM TABRGHTCUR U(03,18,04);       # CURSOR RIGHT BEHAVIOR #
  ITEM TABUPCURSR U(03,22,04);       # CURSOR UP BEHAVIOR # 
  ITEM TABDWNCRSR U(03,26,04);       # CURSOR DOWN BEHAVIOR # 
  ITEM TABLEFTCHR U(03,30,04);       # CHARACTER LEFT BEHAVIOR #
  ITEM TABRGHTCHR U(03,34,04);       # CHARACTER RIGHT BEHAVIOR # 
  ITEM TABLASTPOS U(03,38,04);       # LAST POSITION BEHAVIOR (CHAR) #
  ITEM TABXFIRSTY B(03,42,01);       # X BEFORE Y IN CURSOR OUTPUT #
  ITEM TABXDECIML U(03,43,03);       # X COORDINATE COUNT IF DECIMAL #
  ITEM TABYDECIML U(03,46,03);       # Y COORDINATE COUNT IF DECIMAL #
  ITEM TABRESERV3 U(03,49,11);       # RESERVED # 
  ITEM TABHEADFIV U(04,00,60);       # WORD FIVE #
  ITEM TABVTFLAGS U(04,00,60);       # VIRTUAL TERMINAL FLAGS # 
  ITEM TABVTHOMEU B(04,00,01);       # HOME UP FLAG # 
  ITEM TABVTPROTM B(04,01,01);       # TERMINAL HAS PROTECT # 
  ITEM TABVTDIFSS B(04,02,01);       # DIFFERENT SCREEN SIZES # 
  ITEM TABVTUNUSD B(04,03,01);       # UNUSED # 
  ITEM TABVTGUARD B(04,04,01);       # TERMINAL HAS GUARD # 
  ITEM TABVTABHME B(04,05,01);       # PROTECTED TAB GOES TO HOME # 
  ITEM TABVTABUPF B(04,06,01);       # TABS TO UNPROTECTED FIELDS # 
  ITEM TABVTABSTP B(04,07,01);       # TABS TO TAB STOP # 
  ITEM TABVTSCLRS B(04,08,01);       # SIZE CHANGE CLEARS SCREEN #
  ITEM TABAUTOTAB B(04,09,01);       # TERMINAL HAS AUTOMATIC TABBING # 
  ITEM TABTYPHEAD B(04,10,01);       # TYPE AHEAD ENABLED # 
  ITEM TABLOCKMDE B(04,11,01);       # BLOCK MODE TERMINAL #
  ITEM TABPTDWFPG B(04,13,01);       # PROT TABS WILL NOT WRAP PAGE   # 
  ITEM TABPTDWBLN B(04,14,01);       # PROT TABS DO NOT WRAP BKW LINE # 
  ITEM TABPTDWBPG B(04,15,01);       # PROT TABS DO NOT WRAP BKW PAGE # 
  ITEM TABUNDWFLN B(04,16,01);       # UNPROT TABS DO NOT WRAP FWD LN # 
  ITEM TABUNDWFPG B(04,17,01);       # UNPROT TABS DO NOT WRAP FWD PG # 
  ITEM TABUNDWBLN B(04,18,01);       # UNPROT TABS DO NOT WRAP BKW LN # 
  ITEM TABUNDWBPG B(04,19,01);       # UNPROT TABS DO NOT WRAP BKW PG # 
  ITEM TABATTRCHR B(04,20,01);       # ATTRIBUTE CHARACTER NEEDS BYTE # 
  ITEM TABATTRSET B(04,21,01);       # RESET ATTRIBUTES BEFORE VDTPOS # 
  ITEM TABSNDSPLR B(04,22,01);       # SEND DISPLAY REWRITE FOR SFORM # 
  ITEM TABSNDSPLH B(04,23,01);       # SEND DISPLAY ON HELP FOR SFORM # 
  ITEM TABNOTMASK B(04,24,01);       # ATTRIBUTES ARE NOT MASKABLE    # 
  ITEM TABNOTCHAR B(04,25,01);       # ATTRIBUTES ARE LINE/PAGE BASED # 
  ITEM TABNOVDTEO B(04,26,01);       # DISABLE OUTPUT END (ERR. EXIT) # 
  ITEM TABPROCLRS B(04,27,01);       # PROTECT ALL CLEARS THE SCREEN  # 
  ITEM TABCLEARSM B(04,28,01);       # CLEARS ACROSS PROTECTED FIELDS # 
  ITEM TABRSBIT29 B(04,29,01);       # RESERVED FOR CDC (FUTURE CODE) # 
  ITEM TABRSBIT30 B(04,30,01);       # RESERVED FOR CDC (FUTURE CODE) # 
  ITEM TABRSBIT31 B(04,31,01);       # RESERVED FOR CDC (FUTURE CODE) # 
  ITEM TABRSBIT32 B(04,32,01);       # RESERVED FOR CDC (FUTURE CODE) # 
  ITEM TABRSBIT33 B(04,33,01);       # RESERVED FOR CDC (FUTURE CODE) # 
  ITEM TABRSBIT34 B(04,34,01);       # RESERVED FOR CDC (FUTURE CODE) # 
  ITEM TABRSBIT35 B(04,35,01);       # RESERVED FOR CDC (FUTURE CODE) # 
  ITEM TABRSBIT36 B(04,36,01);       # RESERVED FOR CDC (FUTURE CODE) # 
  ITEM TABINSTL01 B(04,37,01);       # RESERVED FOR INSTALLATION CODE # 
  ITEM TABINSTL02 B(04,38,01);       # RESERVED FOR INSTALLATION CODE # 
  ITEM TABINSTL03 B(04,39,01);       # RESERVED FOR INSTALLATION CODE # 
  ITEM TABINSTL04 B(04,40,01);       # RESERVED FOR INSTALLATION CODE # 
  ITEM TABINSTL05 B(04,41,01);       # RESERVED FOR INSTALLATION CODE # 
  ITEM TABINSTL06 B(04,42,01);       # RESERVED FOR INSTALLATION CODE # 
  ITEM TABINSTL07 B(04,43,01);       # RESERVED FOR INSTALLATION CODE # 
  ITEM TABINSTL08 B(04,44,01);       # RESERVED FOR INSTALLATION CODE # 
  ITEM TABINSTL09 B(04,45,01);       # RESERVED FOR INSTALLATION CODE # 
  ITEM TABINSTL10 B(04,46,01);       # RESERVED FOR INSTALLATION CODE # 
  ITEM TABINSTL11 B(04,47,01);       # RESERVED FOR INSTALLATION CODE # 
  ITEM TABINSTL12 B(04,48,01);       # RESERVED FOR INSTALLATION CODE # 
  ITEM TABINSTL13 B(04,49,01);       # RESERVED FOR INSTALLATION CODE # 
  ITEM TABINSTL14 B(04,50,01);       # RESERVED FOR INSTALLATION CODE # 
  ITEM TABINSTL15 B(04,51,01);       # RESERVED FOR INSTALLATION CODE # 
  ITEM TABINSTL16 B(04,52,01);       # RESERVED FOR INSTALLATION CODE # 
  ITEM TABINSTL17 B(04,53,01);       # RESERVED FOR INSTALLATION CODE # 
  ITEM TABINSTL18 B(04,54,01);       # RESERVED FOR INSTALLATION CODE # 
  ITEM TABINSTL19 B(04,55,01);       # RESERVED FOR INSTALLATION CODE # 
  ITEM TABINSTL20 B(04,56,01);       # RESERVED FOR INSTALLATION CODE # 
  ITEM TABVTFKLSM U(04,57,03);       # FUNCTION KEY MARK COUNT #
  ITEM TABHEADSIX U(05,00,60);       # WORD SIX # 
  ITEM TABXMAXONE U(05,00,08);       # X MAX, SCREEN SIZE ONE # 
  ITEM TABYMAXONE U(05,08,07);       # Y MAX, SCREEN SIZE ONE # 
  ITEM TABXMAXTWO U(05,15,08);       # X MAX, SCREEN SIZE ONE # 
  ITEM TABYMAXTWO U(05,23,07);       # Y MAX, SCREEN SIZE ONE # 
  ITEM TABXMAXTHR U(05,30,08);       # X MAX, SCREEN SIZE ONE # 
  ITEM TABYMAXTHR U(05,38,07);       # Y MAX, SCREEN SIZE ONE # 
  ITEM TABXMAXFOR U(05,45,08);       # X MAX, SCREEN SIZE ONE # 
  ITEM TABYMAXFOR U(05,53,07);       # Y MAX, SCREEN SIZE ONE # 
  END 
  
ARRAY TABLEWORDS [0:O"271"] P(1);    # *TDU* TABLE I/O INFORMATION #
  BEGIN 
  ITEM TABFULLWRD U(00,00,60);       # TABLE WORD # 
  END 
  
  
                                               CONTROL LIST;
  
