*DECK INCADDR                                                            INCADDR
          PROC  INCADDR(OPC);                                            INCADDR
  
 # * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * #
 #                                                                     #
 #   INCRADDR - INCREMENTS ASSEMBLER COUNTERS                          #
 #                                                                     #
 #   GIVEN - CURRENT VALUES OF COUNTERS AND OPCODE OF INSTRUCTION LAST #
 #          PROCESSED                                                  #
 #                                                                     #
 #   DOES - INCREMENTS COUNTERS ACCORDING TO LENGTH OF INSTRUCTION     #
 #                                                                     #
 # * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * #
*CALL ASMCOMM                                                            INCADDR
*CALL ASMINST                                                            INCADDR
          ITEM OPC;                                                      INCADDR
          BEGIN                                                          INCADDR
          IF POS EQ 0                                                    INCADDR
          THEN                                                           INCADDR
              BEGIN                                                      INCADDR
              POS = WORDSIZE;                                            INCADDR
              ORG = ORG + 1;                                             INCADDR
              END                                                        INCADDR
          IF  NXTUP[OPC] THEN NEXTUP = S"UPYES";                         INCADDR
          RETURN;                                                        INCADDR
          END                                                            INCADDR
          TERM                                                           INCADDR
