*COMDECK DRIVRCOM 
    COMMON DB$$COM; 
      BEGIN 
      ITEM JOBCOUNT;         # NUMBER OF JOBS STILL EXECUTING          #
      ITEM JOBX;
      ITEM XFCDCS;           # CDCS TRANSFER ADDRESS                   #
      ITEM XFDRIV;           # DRIVER TRANSFER ADDRESS                 #
      ITEM XFLOOPX;          # LOCATION OF LOOPX IN CDCSBTF            #
  
      ARRAY JOBINFO [1:16] (9); 
        BEGIN 
        ITEM JOBWORD  I(0,0,60);
        ITEM JOBWAITF B(0,0,1); 
        ITEM JOBDONEF B(0,1,1); 
        ITEM JOBSWAPF B(0,3,1); 
        ITEM JOBCONNF B(0,5,1); 
        ITEM JOBCONTA (0,24,18);
        ITEM JOBCOMPA (0,42,18);
        ITEM CPA (1,0,60);
        ITEM CPB (2,0,60);
        ITEM IO (3,0,60); 
        ITEM CM (4,0,60); 
        ITEM ECS (5,0,60);
        ITEM PP (6,0,60); 
        ITEM JOBNAME C(7,0,7);
        ITEM JOBA0 U(08,00,60);    # CONTENTS OF REGISTER A0           #
        END 
      BASED ARRAY ATBL;      # ACCOUNTING INFORMATION                  #
        BEGIN 
        ITEM ACPA (0,0,60); 
        ITEM ACPB (1,0,60); 
        ITEM AIO (2,0,60);
        ITEM ACM (3,0,60);
        ITEM AECS (4,0,60); 
        ITEM APP (5,0,60);
        END 
      END 
