*COMDECK COMCODE                                                         COMCODE
 #  * * * * * * * * *   FIRST CARD OF COMCODE   * * * * * * * * * * * # 
#         COMMON FOR SYNTAX (OVERLAY 1,6) CODE BUFFERS -               #
#         THIS COMDECK SHOULD BE USED ONLY BY SRCH AND "CODE".         # COMCODE
                                                                         COMCODE
                                                                         COMCODE
          DEF SMAX #99#;                                                 21FEB77
      COMMON COMCODE;                                                    COMCODE
          BEGIN                                                          COMCODE
#         ARRAY COBUFF - CONTROL OF CODE BUFFERS.  CODE BUFFERS ARE      COMCODE
*         IDENTIFIED BY BUFF NUMBERS WHICH ARE SUBSCRIPTS INTO COBUFF.   COMCODE
*         WHEN SYMBOL TABLE IS SCM RESIDENT,                             COMCODE
*         COBUFF IS KEPT RESIDENT IN HIGHEST CORE FROM SYM0[SYMCP-2]     21FEB77
*         DOWN THROUGH SYMCP-2-SMAX INCLUSIVE, THUS SMAX+1 WORDS LONG.   COMCODE
*         IT IS MOVED UP, AS ARE THE CODE BUFFERS, WHEN WE INCREASE FL.  21FEB77
*         WHEN ST IS LCM RESIDENT, COBUFF IS BASED ON LOCOBUFF.          COMCODE
*#                                                                       COMCODE
          BASED ARRAY COBUFF[SMAX] S(1);  ITEM   #CODE BUFFER CTL TABLE# COMCODE
              LSTR (0,0,18),     # FIRST AVAILABLE BLOCK, IF OPEN #      COMCODE
              SVALID B(0,18,1),    #BUFFER HAS BEEN VALIDATED #          COMCODE
              SOPEN B(0,19,1),   #BUFF IS OPEN #                         COMCODE
              SFULL B(0,20,1),                                           COMCODE
              LINK (0,42,18),    # FIRST BLOCK #                         COMCODE
              SAVWRD(0,0,60);    # FULLWORD ACCESS FOR CLEARING #        COMCODE
                                                                         COMCODE
          ITEM HIGSAV;           # HIGHEST COBUFF ENTRY EVER YET USED#   COMCODE
          BASED ARRAY PUTIL;                                             COMCODE
              BEGIN #PUTIL#                                              COMCODE
#                            * * THIS-ID PLUS 1 IS *CALL COM37I...#      COMCODE
*CALL COM37I                                                             COMCODE
#                            * * * RESUME COMCODE * **                 # COMCODE
              ITEM SLINK(0,0,18),  #CODE-BUFF LINK, SAME SPOT AS COLK #  COMCODE
                  WDSS (0,42,18),    # NUM WDS IN CURR BUFF #            COMCODE
                  ILWD (0,0,60);  # A WORD OF IL #                       COMCODE
              END #PUTIL#                                                COMCODE
                                                                         COMCODE
          CONTROL IFNQ SYMTBLV,0;    #LCM#                               COMCODE
              ARRAY LOCOBUFF [SMAX];;   #MUST BE IN SCM. #               COMCODE
          CONTROL ENDIF;                                                 COMCODE
          END                                                            COMCODE
                                                                         21FEB77
#         * * * * THIS-ID PLUS 1 IS *CALL SCMSPACE . . . . #             21FEB77
*CALL SCMSPACE                                                           21FEB77
#         * * **  RESUME COMCODE * * * * #                               21FEB77
          CONTROL OVERLAP PUTIL;                                         21FEB77
#                                                                      # COMCODE
 #  * * * * *   LAST CARD OF COMCODE * ** * *                         #  COMCODE
