# -cmacro- common block # put on a file called 'cmacro' # Used only by the macro tool common /cmacro/ cp, ep, evalst(EVALSIZE), defcnt, defstk(DEFSTACKSIZE) integer cp # current call stack pointer integer ep # next free position in evalst character evalst # evaluation stack logical defcnt # depth of _ifdef nesting logical defstk # remembers status of _ifdef levels common /cmacro/ ap, argstk(ARGSIZE), callst(CALLSIZE), plev(CALLSIZE) integer ap # pointer to next available space in argstk integer argstk # pointers to evalst integer callst # points to invocation frames in argstk integer plev # parenthesis level at current invocation frame