*COMDECK DEBUGVARS
CONTROL NOLIST; 
COMMON DEBUGVARS; 
BEGIN 
ITEM $CURRMODL$ C(20);  #CURRENT MODULE NAME SET BY START#
ITEM $DUMMY$ I;     #DUMMY CONTROL VARIABLE USED IN FOR LOOP# 
CONTROL IFEQ DEBUG$SW,1;
CONTROL PRESET; 
ARRAY $RAZERO$ [0] S(1);
  BEGIN 
  ITEM $SW1$ B(0,53,1); 
  END 
ITEM $START$ C(10) = "START OF";
ITEM $FINIS$ C(10) = "FINISH OF"; 
ITEM $THEN$ C(10) = "THEN"; 
ITEM $ELSE$ C(10) = "ELSE"; 
ITEM $LOOP$  C(10) = "LOOP "; 
ITEM $STEPLP$ C(10) = "LOOP UNTIL"; 
ITEM $EXITIF$ C(10) = "EXIT IF "; 
ITEM $EXIT$  C(10) = "EXIT";
ITEM $ELOOP$ C(10) = "END LOOP";
ITEM $SPACES$ C(10) = " ";
ITEM $QUIT$  C(10) = "QUIT";
ITEM $ASTERS$ C(10) = "**********"; 
ITEM $SELCASE$ C(10) = "SEL. CASE"; 
ITEM $CASE$  C(10) = "CASE";
ITEM $ENDCASE$ C(10) = "END CASE";
ITEM $LOVAL$ C(10) = "LOW VALUE"; 
ITEM $HIVAL$ C(10) = "HIGH VALUE";
ITEM $RANGER$ C(60)="ABOVE VARIABLE OUT OF RANGE (SEE BELOW) *********";
ITEM $CASER$ C(60) ="CASE ERROR - VARIABLE VALUE NOT MATCHED *********";
ITEM $DBUG$ C(20)="DEBUG OUTPUT"; 
ITEM $ON$ C(10)="TURNED ON";
ITEM $OFF$ C(10)="TURNED OFF";
ITEM $VARIABLE$ C(10) ="VARIABLE";
  
#COMMON VARIABLES SET BY CV$, IV$ AND OV$ IN PREFERENCE 
TO HANDING OVER PARAMETERS TO DEBUGPROC.
# 
ITEM $DBUGTYPE$;  #INDICATES MACRO GENERATING DEBUG OUTPUT# 
ITEM $DATATYPE$;  #SPECIFIES WHETHER OUTPUT IS CHAR, DEC OR OCT#
ITEM $CVALUE$ C(80);    #CONTAINS CHARACTER VALUE TO BE OUTPUT# 
ITEM $NVALUE$;    #CONTAINS NUMERIC VALUE (DEC/OCT) TO BE OUTPUT# 
ITEM $TITLE$ C(20); #CONTAINS TITLE TO BE PRINTED TO LEFT OF VALUE# 
CONTROL FI; 
  
END #COMMON VARIABLES#
  
CONTROL IFEQ DEBUG$SW,1;
DEF $SWITCH1$ #$SW1$[0]#;  #FOR CONVENIENCE#
  
#DEBUG DATA TYPES#
DEF $CHAR$ #1#;  #CHARACTERS# 
DEF $INT$ #2#;   #DECIMAL INTEGERS# 
DEF $OCT$ #3#;   #OCTAL VALUES# 
  
#DEBUG OUTPUT TYPES#
DEF $STARFIN$ #1#;  #START/FINIS/QUIT#
DEF $SET$ #2#;      #ALL SETX AND SETXRC# 
DEF $LOGIC$ #3#;    #ALL LOGIC MACROS#
CONTROL FI; 
  
CONTROL LIST; 
