*COMDECK COM39
          CONTROL NOLIST;    #COM39#
DEF CFUP #127#; 
  
  
COMMON COM39; 
BEGIN 
  
ARRAY CF[0:CFUP]S(1); ITEM
CFOP S:QCFOP (0,0,12), #ENTRY TYPE# 
CFWC I       (0,12,6), #WORD COUNT# 
CFST I       (0,18,18),#SYMBOL TABLE POINTER# 
CFI           (0,36,3), 
CFJ           (0,39,3), 
CFK           (0,42,3), 
CFTYP I      (0,36,24),#CONTROL STUFF#
CFKK I       (0,42,18),#K FIELD#
CF00 I       (0,0,60); #FULL WORD OVERLAY#
END 
          CONTROL LIST;      #COM39#
