*COMDECK TCD$DMP
#                                                                      #
#     TCB$DEVICE CONTROL BLOCK - FORMATTED FOR INPUT TO FORTRAN.       #
#                                                                      #
#           USE - THIS IS AN EXACT DUPLICATE OF BASED ARRAY TCB$DEVICE #
#                 FORMATTED SUCH THAT FORTRAN CAN BE USED TO GENERATE  #
#                 A SYMBOLIC TABLE DUMPING PROGRAM (IE. DMP$TCD).      #
#                 ANY CHANGES TO TCB$DEVICE 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$TCD).  #
#                 SEE THE FORTRAN USERS GUIDE FOR MORE INFORMATION.    #
#                                                                      #
#          NOTE - FORTRAN REQUIRES ANY STATUS LISTS USED IN TCB$DEVICE #
#                 TO BE DECLARED HERE ALSO.                            #
#                                                                      #
#    TCDDEVTYPE - SAME AS DEVICETYPE STATUS LIST IN MISC$.             #
  
      STATUS TCDDEVTYPE   # TCD$DEVDT # 
        TCDCONSOLE, 
        TCDCARDRDR, 
        TCDLINEPRT, 
        TCDPUNCH, 
        TCDPLOTTER; 
  
#    TCDTERCLAS - SAME AS TERMINALCLAS STATUS LIST IN TCH$COM.         #
  
      STATUS TCDTERCLAS   # TCD$DEVTC # 
        TCDNULL,
        TCDM33, 
        TCD713, 
        TCDM1240, 
        TCD2741,
        TCDM40, 
        TCDH2000, 
        TCD751, 
        TCDT401X, 
        TCDHASP$PST,
        TCD200UT, 
        TCD714$30,
        TCD711, 
        TCD714$10,
        TCDHASP$PRE,
        TCD734$1, 
        TCD2780,
        TCD3780,
        TCD3270;
  
      BASED ARRAY TCD$DMP S(2); 
        BEGIN 
        ITEM TCD$DEVWORD1    U(00,00,60);        # WORD 1 OF TABLE     #
        ITEM TCD$DEVWORD2    U(01,00,60);        # WORD 2 OF TABLE     #
        ITEM TCD$DEVBSZ      U(00,00,12);        # XMISSION BLOCK SIZE #
        ITEM TCD$ORGWIDTH    U(00,12,07);        # DEFAULT PAGE WIDTH  #
        ITEM TCD$CURWIDTH    U(00,19,07);        # CURRENT PAGE WIDTH  #
        ITEM TCD$ENDCON      B(00,26,01);        # END BATCH DEV.200UT #
        ITEM TCD$DEVDTTC     U(00,27,08);        # DEVICE TYPE/CLASS   #
        ITEM TCD$DEVDT       S:TCDDEVTYPE(00,27,03); # DEVICE TYPE     #
        ITEM TCD$DEVTC       S:TCDTERCLAS(00,30,05); # TERMINAL CLASS  #
        ITEM TCD$ERRORS      U(00,35,10);        # DEVICE DISPLAY FLAGS#
        ITEM TCD$NOTRDY      B(00,35,01);        # CR NOTREADY         #
        ITEM TCD$CARDERR     B(00,36,01);        # CARD READER ERROR   #
        ITEM TCD$INPQFULL    B(00,37,01);        # INPUT QUEUE FULL    #
        ITEM TCD$DISKERR     B(00,38,01);        # DISK PARITY ERROR   #
        ITEM TCD$DISKFULL    B(00,39,01);        # DISK FULL           #
        ITEM TCD$JOBERR      B(00,40,01);        # JOB CARD ERROR      #
        ITEM TCD$ACCTERR     B(00,41,01);        # USER CARD ERROR     #
        ITEM TCD$PM          B(00,42,01);        # PM INTERRUPT        #
        ITEM TCD$DEVACN      U(00,45,12);        # DEVICE ACN          #
        ITEM TCD$ORD         U(00,57,03);        # DEVICE ORDINAL      #
        ITEM TCD$SKPVAL      I(01,00,13);        # SKIP VALUE          #
        ITEM TCD$SKPDFL      B(01,13,01);        # SKIP TO DAYFILE FLAG#
        ITEM TCD$REPEAT      I(01,14,07);        # REPEAT COUNTER      #
        ITEM TCD$OPT         U(01,21,03);        # OPTIONS IN EFFECT   #
        ITEM TCD$ACKFLAG     B(01,21,01);        # ACKNOLEDGE JOB NAME #
        ITEM TCD$FMTFLAG     B(01,22,01);        # FORMAT EFFECTOR FLAG#
        ITEM TCD$BANFLAG     B(01,23,01);        # BANNER FLAG         #
        ITEM TCB$DEVUPS      U(01,24,02);        # UPLINE SIZE IN PRU  #
        ITEM TCB$DEVDPS      U(01,24,02);        # DOWNLNE SIZE IN PRU #
        ITEM TCD$PRIORITY    U(01,24,12);        # FILE PRIORITY       #
        ITEM TCD$FORMS       U(01,36,12);        # FORMS CODE          #
        ITEM TCD$TRAIN       U(01,51,03);        # PRINT TRAIN TYPE    #
        ITEM TCD$CMDTY       U(01,54,06);        # BATCH COMMAND       #
        END 
