*COMDECK ASMCOMM                                                         ASMCOMM
                                                                         ASMCOMM
          DEF  DOWHILE #FOR Q = Q WHILE#;                                ASMCOMM
          DEF   WORDSIZE  #60#;                                          ASMCOMM
                                                                         ASMCOMM
          STATUS  UPIND    UPOK, UPYES, UPNO;                            ASMCOMM
                                                                         ASMCOMM
          COMMON  ASMCOMM;                                               ASMCOMM
          BEGIN                                                          ASMCOMM
          ITEM  ADSUBBLK;             #USE BLOCK FOR ADDSUB LIST       #
          ITEM  ATEMPCNT;             #COUNT OF ASSEMBLER TEMPORARIES  # ASMCOMM
          ITEM  ASMREG;               #ASSEMBLER SCRATCH REGISTER      # ASMCOMM
          ITEM  BLOCK;                #INDEX OF CURRENT USE BLOCK      # ASMCOMM
          ITEM  CODEBLOCK;            #USE BLOCK FOR CODE              #
          ITEM  ENDINST;              #SAVED END$ INSTRUCTION          #
          ITEM  ENDP     B;           #END ASSEMBLY FLAG               # ASMCOMM
          ITEM  ENDSEQ;               #END CURRENT SEQUENCE, INSTLIST  # ASMCOMM
          ITEM  FIRSTLINE;            #FIRST LINE OF SUBSEQUENCE       #
          ITEM  LINE;                  #SOURCE LINE NUMBER             #
          ITEM  LOCKLIM;              # LOCK LIST LIMIT                #
          ITEM  LOCKSIZE;     #LENGTH LOCKING INSTRUCTION LIST         #
          ITEM  NATEMPS;              #MAXIMUM NUMBER ASSEMBLER TEMPS  #
          ITEM  NEXTUP   S:UPIND;     #FORCE UPPER INDICATOR           # ASMCOMM
          ITEM  NOTE  C(10);           #CGEN NOTE                      #
          ITEM  ORG;                  #ORIGIN COUNTER                  # ASMCOMM
          ITEM  POS;                  #POSITION COUNTER                # ASMCOMM
          ITEM  Q;                    #DUMMY FOR INDEX                 # ASMCOMM
                                                                         ASMCOMM
  
          END                                                            ASMCOMM
                                                                         ASMCOMM
