Listing 5

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
}