*COMDECK,TIOCOM  COMMON DECK FOR TIO. 
      IMPLICIT INTEGER (B-Z)
      COMMON /DEF/CORE(1),PAR(3,20),FMTOP(8),ECODE(7) 
      COMMON //BUFWR(2048),BUFRD(2000),PASSES,PASS,FLT,FLST,FHST,FPAT,
     , FRD,FWR,NR,RE(5),RP(5),RT(5),RO(5),PAT,FILES,MAX,MIN,ERR,FMODE,
     , HTBL(8,5),LACT,LEXP,MSKU,MSKR,SEQ,RAN,INHST,H(50),LOP(5),MODE, 
     , CVT1,CVT2,PRT(20),RWTM,SECT,BK,EF,RD,RW,SF,SR,WR,VP,PTM,M(200) 
