*COMDECK DUPMACS
  
*         COMDECK DUPMACS CONTAINS MACROS WHICH DIFFER IN FUNCTION
*         IN CGEN AND THE ASSEMBLER 
  
 MACNUM   SET    1
 MACOFF   EQU    4000B
 OBJNUM   SET    0
          MACRO  RMACRO,NAM,NSY,NR,NC 
 NAM      EQU    MACNUM+MACOFF
 #M1      DECMIC MACNUM,2 
          NOREF  #NSYMP"#M1",#NREGP"#M1",#NCONP"#M1"
 #NSYMP"#M1" EQU  NSY 
 #NREGP"#M1" EQU  NR
 #NCONP"#M1" EQU  NC
 MACNUM   SET    MACNUM+1 
          ENDM
 ENDR     MACRO 
          ENDM
          MACROE INST,NAME,CL,DEF,USE,L,TYPE,CM,OP,UP,NU,SEQ,COPY,INUSE,
,REF,SP 
 #T1      DECMIC NAME 
 CLS."#T1" EQU   CL 
 NAME     MACRO  P1,P2,P3 
          ENDM
          MACROE OBJ,NAME,I,O,S,SQ,BREG 
 OBJNUM   SET    OBJNUM+1 
 NAME     EQU    OBJNUM 
 #M1      DECMIC NAME,3 
 #T1      SET    0                 * COUNT INPUT REGISTERS
          ECHO   1,A=(I)
 #T1      SET    #T1+1
 #IREG"#M1" EQU  #T1
 #T1      SET    0                 * COUNT OUTPUT REGISTERS 
          ECHO   1,A=(O)
 #T1      SET    #T1+1
 #OREG"#M1" EQU  #T1
          IFC    NE,*BREG**,2 
 #BREG"#M1" EQU  1
          SKIP   1
 #BREG"#M1" EQU  0
          ENDM
 NR       SET    0
          MACRO  RESERVE,RNAME,RNUM,TYPE
 RNAME    EQU    NR 
 NR       SET    NR+1 
          ENDM
  
