*DECK             CODEX 
USETEXT   TSOURCE 
USETEXT   TCEXECQ 
USETEXT   TCOM37Q 
USETEXT   TCOM39Q 
USETEXT   TCOM78Q 
USETEXT   TC7DECS 
USETEXT   TCOM39
PROC CODEX; # BOOKKEEPS CODE FILE AND BUFFER #
BEGIN 
*CALL COMEX 
    XREF PROC PTCFL;
ENTRY PROC CODE;
    CFIX=CFIX+1;
    IF CFIX GQ CFUP THEN
         BEGIN
         PTCFL(CF,CFUP);
         CFIX=0;
         END
    RETURN; 
ENTRY PROC CDINIT; #INITIAL CODE FILE ENTRY#
    CF00[0]=0;
    CFOP[0]=QCFOP"CODE";
    CFIX=1; #NEXT VALID INDEX#
    RETURN; 
ENTRY PROC CDFLSH; #FLUSHES CODE BUFFER IF NECESSARY# 
    IF CFIX GR 0 THEN 
         BEGIN
         PTCFL(CF,CFIX);
         CFIX=0;
         END
END 
TERM
