a Keil C program for C501