/* trad.t

 *  Samples for a very old "Reiser" model preprocessor.

 */

#define glue(a, b)  a/**/b

#define xglue(a, b) glue(a,b)

#define ctrl( c)    'c' & 0x1f

#define debug(n1,n2)    printf("n1= %d, n2= %s", x/**/n1, x/**/n2)

/* ISO C preprocessor expands to    :a b c;

 * very old preprocessor does to    :abc;

 */

    glue( glue( a,b),c);

/* ISO C        :a b c;

 * very old     :abc;

 */

    xglue( xglue( a,b),c);

#define abc ABC

/* ISO C preprocessor expands to    :a b c;

 * very old preprocessor does to    :ABC;

 */

    glue( glue( a,b),c);

/* ISO C        :'c' & 0x1f;

 * very old     :'A' & 0x1f;

 */

    ctrl( A);

/* ISO C        :printf("n1= %d, n2= %s", x 1, x 2);

 * very old     :printf("1= %d, 2= %s", x1, x2);

 */

    debug(1,2);

/* ISO C        :text other than comment after #else, #endif line is error

 * very old     :the text is skipped quietly

 */

#define OLD_PREPROCESSOR    1

#if     OLD_PREPROCESSOR

#else   OLD_PREPROCESSOR

#endif  OLD_PREPROCESSOR

/* ISO C     :Token error

 * very old  :Implicit closing quote at end of line

 */

asm("

    .text

_probeintr:

    ss

    incl    _npx_intrs_while_probing

    pushl   %eax

    movb    $0x20,%al

#ifdef PC98

    outb    %al,$0x08

    outb    %al,$0x0

#else

    outb    %al,$0xa0

    outb    %al,$0x20

#endif

");