*COMDECK TCB$DMP
#                                                                      #
#     TERMINAL CONTROL BLOCK - FORMATTED FOR INPUT TO FORTRAN.         #
#                                                                      #
#           USE - THIS IS AN EXACT DUPLICATE OF BASED ARRAY TCB,       #
#                 FORMATTED SUCH THAT FORTRAN CAN BE USED TO GENERATE  #
#                 A SYMBOLIC TABLE DUMPING PROGRAM (IE. DMP$TCB).      #
#                 ANY CHANGES TO TCB$COM SHOULD BE MADE HERE ALSO,     #
#                 AND FORTRAN WILL GENERATE A PROGRAM TO DUMP THE NEW  #
#                 TABLE STRUCTURE.  OTHERWISE THIS COMMON DECK SHOULD  #
#                 NEVER BE USED (EXCEPT AS A SYMPL TEXT FOR DMP$TCB).  #
#                 SEE THE FORTRAN USERS GUIDE FOR MORE INFORMATION.    #
#                                                                      #
#          NOTE - FORTRAN REQUIRES ANY STATUS LISTS USED IN TCB$COM    #
#                 TO BE DECLARED HERE ALSO.                            #
#                                                                      #
#    TCBDEVTYPE - SAME AS DEVICETYPE STATUS LIST IN MISC$.             #
  
      STATUS TCBDEVTYPE   # TCB$DT #
        TCBCONSOLE, 
        TCBCARDRDR, 
        TCBLINEPRT, 
        TCBPUNCH, 
        TCBPLOTTER; 
  
#    TCBCONINPT - SAME AS CONINPUT STATUS LIST IN MISC$.               #
  
      STATUS TCBCONINPT   # TCB$CURINPUT #
        TCBNULLY, 
        TCBINPUT, 
        TCBOUTPUT,
        TCBRESUME,
        TCBINTRUPT, 
        TCBBATCMD,
        TCBREFRESH, 
        TCBTERFAIL, 
        TCBCONBRKN, 
        TCBUSRINTR, 
        TCBREADYX,
        TCBLASTINP; 
  
#    TCBCONSTAT - SAME AS CONSOLESTATE STATUS LIST IN MISC$.           #
  
     STATUS TCBCONSTAT   # TCB$CURSTATE # 
       TCBNULLZ,
       TCBIDLE, 
       TCBACTIVE, 
       TCBGO, 
       TCBERROR;
  
#    TCBTERCLAS - SAME AS TERMINALCLAS STATUS LIST IN TCH$COM.         #
  
      STATUS TCBTERCLAS   # TCB$TC #
        TCBNULL,
        TCBM33, 
        TCB713, 
        TCBM1240, 
        TCB2741,
        TCBM40, 
        TCBH2000, 
        TCB751, 
        TCBT401X, 
        TCBHASP$PST,
        TCB200UT, 
        TCB714$30,
        TCB711, 
        TCB714$10,
        TCBHASP$PRE,
        TCB734$1, 
        TCB2780,
        TCB3780,
        TCB3270;
      BASED ARRAY TCB$DMP S(8); 
        BEGIN 
        ITEM TCB$COMPLETE    B(00,00,01);        # EVENT COMPLETE      #
        ITEM TCB$CRINTR      B(00,01,01);        # BATCH INTERRUPT,CR  #
        ITEM TCB$LPINTR      B(00,02,01);        # BATCH INTERRUPT,LP  #
        ITEM TCB$INTERRPT    U(00,01,02);        # INTERRUPT FLAG,200UT#
        ITEM TCB$RESUME      B(00,03,01);        # INTERACTIVE MODE    #
        ITEM TCB$REFRESH     B(00,04,01);        # REFRESH MODE        #
        ITEM TCB$BATCH       B(00,05,01);        # BATCH MODE          #
        ITEM TCB$INPTYPE     U(00,06,06);        # INPUT TYPE          #
        ITEM TCB$TIME        U(00,12,12);        # CONSOLE TIMMER      #
        ITEM TCB$EVENT       U(00,24,18);        # EVENT ADDRESS       #
        ITEM TCB$LINK        U(00,42,18);        # RETURN ADDRESS      #
        ITEM TCB$BLKSIZE     U(01,00,12);        # XMISSION BLOCK SIZE #
        ITEM TCB$REF         U(01,12,12);        # REFRESH TIMMER      #
        ITEM TCB$ACN         U(01,24,12);        # CONSOLE ACN         #
        ITEM TCB$ABL         U(01,36,03);        # BLOCK LIMIT         #
        ITEM TCB$STPFLAG     B(01,39,01);        # CONSOLE STOPPED     #
        ITEM TCB$IAFFLAG     B(01,40,01);        # GONE TO IAF         #
        ITEM TCB$ENDFLAG     B(01,41,01);        # END CONNECTION      #
        ITEM TCB$AUTOGO      B(01,42,01);        # RESTRICED I/O       #
        ITEM TCB$RIC         U(01,42,01); 
        ITEM TCB$MD4A        B(01,43,01);        # MODE 4A TERMINAL    #
        ITEM TCB$DT          S:TCBDEVTYPE(01,44,03);# DEVICE TYPE      #
        ITEM TCB$TC          S:TCBTERCLAS(01,47,05);# TERMINAL CLASS   #
        ITEM TCB$DTTC        U(01,44,08);        # DEVICE TYPE/CLASS   #
        ITEM TCB$NDEVICE     U(01,52,08);        # NO OF BATCH DEVICES #
        ITEM TCB$TERMNAME    C(02,00,07);        # NAME OF CONSOLE     #
        ITEM TCB$READY       B(02,42,01);        # ISSUE READY MSG     #
        ITEM TCB$PAGEWAIT    B(02,43,01);        # PAGE WAIT FLAG      #
        ITEM TCB$PW          U(02,44,08);        # PAGE WIDTH          #
        ITEM TCB$PL          U(02,52,08);        # PAGE LENGTH         #
        ITEM TCB$FAMNAME     C(03,00,07);        # LOGIN FAMILY NAME   #
        ITEM TCB$FAMORD      U(03,42,18);        # FAMILY ORDINAL      #
        ITEM TCB$FAMWORD     U(03,00,60);        # FAMILY NAME/ORDINAL #
        ITEM TCB$USERNUM     C(04,00,07);        # LOGIN USER NUMBER   #
        ITEM TCB$USERORD     U(04,42,18);        # USER ORDINAL        #
        ITEM TCB$USRWORD     U(04,00,60);        # USER NUMBER/ORDINAL #
        ITEM TCB$DIS         I(05,00,10);        # DISPLAY TYPE        #
        ITEM TCB$JOBFLAG     B(05,00,01);        # JOB DISPLAY FLAG    #
        ITEM TCB$DEVFLAG     B(05,01,01);        # DEVICE DISPLAY FLAG #
        ITEM TCB$QFLAGS      U(05,05,05);        # QUEUE TYPE          #
        ITEM TCB$EXFLAG      B(05,08,01);        # EXECUTE QUEUE FLAG  #
        ITEM TCB$OQFLAGS     U(05,05,03);        # OUTPUT QUEUE        #
        ITEM TCB$PTFLAG      B(05,05,01);        # PLOT QUEUE DISPLAY  #
        ITEM TCB$PUFLAG      B(05,06,01);        # PUNCH QUEUE DISPLAY #
        ITEM TCB$PRFLAG      B(05,07,01);        # PRINT QUEUE DISPLAY #
        ITEM TCB$INFLAG      B(05,09,01);        # INPUT QUEUE DISPLAY #
        ITEM TCB$MOREINQ     B(05,10,01);        # MORE JOBS ON DIS,RFR#
        ITEM TCB$EXTDIVC1    B(05,11,01);        # QAC CALLED 1ST TIME #
        ITEM TCB$DIVFLAGS    U(05,12,04);        # DIVERT FLAGS        #
        ITEM TCB$EXTDIVS     U(05,13,03);        # EXTENDD DIVERT FLAG #
        ITEM TCB$EXTPTDIV    B(05,13,01);        # PLOT QUEUE DIVERT   #
        ITEM TCB$EXTPUDIV    B(05,14,01);        # PUNCH QUEUE DIVERT  #
        ITEM TCB$EXTPRDIV    B(05,15,01);        # PRINT QUEUE DIVERT  #
        ITEM TCB$NEXTBSN     U(05,16,04);        # NEXT BSN            #
        ITEM TCB$NXTACKSN    U(05,20,04);        # NEXT ACK BSN EXPECT #
        ITEM TCB$QABBUF      U(05,24,12);        # QAC REQUEST BLOCK   #
        ITEM TCB$ANNEXORD    U(05,24,12);        # ADDITIONAL BLK, DIS #
        ITEM TCB$ILAST       U(05,36,12);        # LAST INPUT BLOCK    #
        ITEM TCB$INPUT       U(05,48,12);        # FIRST INPUT BLOCK   #
        ITEM TCB$WAITACK     B(06,00,01);        # WAIT FOR ACK FLAG   #
        ITEM TCB$ALOFLAG     B(06,01,01);        # AUTO-LOGOUT FLAG    #
        ITEM TCB$ALOTIME     U(06,02,12);        # INACTIVITY TIMER    #
        ITEM TCB$HWFLAG      B(06,14,01);        # HARDWIRED TERM FLAG #
        ITEM TCB$CITBUF      U(06,24,12);        # CMD INTERFACE BLOCK #
        ITEM TCB$OLAST       U(06,36,12);        # LAST OUTPUT BLOCK   #
        ITEM TCB$OUTPUT      U(06,48,12);        # FIRST OUTPUT BLOCK  #
        ITEM TCB$JOBNAME     C(07,00,07);        # JOB NAME            #
        ITEM TCB$JSN         C(07,00,04);        # JOB SEQUENCE NUMBER #
        ITEM TCB$ZERO        U(07,24,18);        # ZERO FIELD          #
        ITEM TCB$JOBZERO     I(07,00,42);        # JOB NAME            #
        ITEM TCB$CURACTN     U(07,42,06);        # CURRENT ACTION      #
        ITEM TCB$CURSTATE    S:TCBCONSTAT(07,48,06);# CURRENT STATE    #
        ITEM TCB$CURINPUT    S:TCBCONINPT(07,54,06);# CURRENT INPUT    #
        ITEM TCB$LASTWD      I(07,00,60);        # LAST WORD OF TCB    #
        END 
