

     exam(stuff)
     char *stuff;
     {
        char i;

        for (i=6; i>=0; i--)
        {
           I_O = stuff[i];
     #asm                        /* #asm to indicate start of assembly */
           xref  VARIABLE?       /* note the external reference */
           STAA  VARIABLE?       /* to VARIABLE                 */
     #endasm                     /* #endasm to indicate end of assembly */
        }
        ;                        /* required semi-colon to preceed #asm */
     #asm
        xref  OTHER?
        LDAA  OTHER?
     #endasm
     }

