*COMDECK  DEQCOM
  
                                                                       #
* * * * * * * * * * ----------  DEQCOM  ---------- * * * * * * * * * *
  
*     CAUTION ... THIS COMMON BLOCK IS ALSO BEING USED BY THE 
*                 COMPASS ROUTINES BCONV, OMOVE, AND RDUMP. 
                                                                       #
*CALL ASCIIDEF
  
      COMMON FORDEQ;
                             BEGIN
   ARRAY FORD P(1);              # MARKS POSITION OF COMDECK IN DUMP   #
                             BEGIN
      ITEM FORDM#C,0,0,6#                                              #
*#                           C(0,0,6)=["FORDEQ"]; 
      ITEM FORDZ#U,0,36,6#                                             #
*#                           U(0,36,6)=[0]; 
      ITEM FORD7#U,0,42,18#                                            #
*#                           U(0,42,18)=[O"777777"];
                             END
                                                                       #
          BSS    1
                                                                       #
      ITEM ACT;              # CHAR TYPE CONVERT TO-12BIT ASCII/DISPLY #
      ITEM DRPTR;            # FWA OF BUFFER BEFORE CONVERSION         #
      ITEM CHARCNT;          # NUMBER OF CHARACTERS TO CONVERT         #
      ITEM BUFFIN;           # FWA OF BUFFER AFTER CONVERSION          #
                             END
                                                                       #
          USE    *           END COMMON BLOCK IN COMPASS ROUTINES 
                                                                       #
  
