In other words, you are welcome to use, share and improve this program.
You are forbidden to forbid anyone else to use, share and improve
what you give them. Help stamp out software-hoarding!
+
+ 2001060401: Improved by was@icb.snz.chel.su
-------------------------------------------------------------------------*/
+
/* following formats are supported :-
format output type argument-type
%d decimal int
*/
#include <stdarg.h>
-#include <reg51.h>
-extern void putchar(char );
+#include <stdio.h>
+#ifndef __ds390
+#include <8051.h> // for the SP
+#endif
static data volatile char ch;
static data char radix ;
static char * data str ;
static data long val;
-static void pvalhex( long val)
+static void pval(void)
{
- volatile char sp = SP;
- unsigned long lval = val;
-
- if (!long_flag)
- lval &= 0x0000ffff;
-
- if (short_flag)
- lval &= 0x000000ff;
-
- while (lval) {
- ch = "0123456789ABCDEF"[(unsigned short)lval & 0x0f];
- _asm push _ch _endasm;
- lval /= 16;
- }
-
- while (sp != SP) {
- _asm pop _ch _endasm;
- putchar(ch);
+ char sp;
+ unsigned long lval;
+ sp = SP;
+
+ if (val < 0 && radix != 16)
+ {
+ lval = -val;
+ sign = 1;
}
+ else { sign = 0; lval = val;}
+
+ if (!long_flag) {
+ lval &= 0x0000ffff;
+ }
+ if (short_flag) {
+ lval &= 0x000000ff;
+ }
+
+ do
+ {
+#if 1
+ if(radix != 16) ch = (lval % radix) + '0';
+ else ch = "0123456789ABCDEF"[(unsigned short)lval & 0x0f];
+ _asm push _ch _endasm;
+ lval /= radix;
+#else
+ // This only looks more efficient, but isn't. see the .map
+ ch = (lval % radix) + '0';
+ if (ch>'9') ch+=7;
+ _asm push _ch _endasm;
+ lval /= radix;
+#endif
+ }
+ while (lval);
-}
-
-static void pvaloct(long val)
-{
- char sp ;
- unsigned long lval;
- sp = SP;
- if (val < 0) {
- lval = -val;
- sign = 1;
- } else {
- lval = val;
- sign = 0;
- }
-
- if (!long_flag)
- lval &= 0x0000ffff;
- if (short_flag)
- lval &= 0x000000ff;
-
- while (lval) {
- ch = (lval % 8) + '0';
- _asm push _ch _endasm;
- lval = lval / 8;
- }
-
- if (sign) {
- ch = '-';
- _asm push _ch _endasm;
- }
-
-
- while (sp != SP) {
- _asm pop _ch _endasm;
- putchar(ch);
+ if (sign) {
+ ch = '-';
+ _asm push _ch _endasm;
}
-}
-static void pvaldec(long val )
-{
- char sp ;
- unsigned long lval;
- sp = SP;
- if (val < 0) {
- lval = -val;
- sign = 1;
- } else {
- lval = val;
- sign = 0;
- }
-
- while (lval) {
- ch = (lval % 10) + '0';
- _asm push _ch _endasm;
- lval = lval / 10;
- }
-
- if (sign) {
- ch = '-';
- _asm push _ch _endasm;
- }
-
-
- while (sp != SP) {
- _asm pop _ch _endasm;
- putchar(ch);
+ while (sp != SP) {
+ _asm pop _ch _endasm;
+ putchar(ch);
}
}
va_start(ap,fmt);
for (; *fmt ; fmt++ ) {
- if (*fmt == '%') {
- long_flag = string_flag = short_flag = 0;
- fmt++ ;
- switch (*fmt) {
- case 'l':
- long_flag = 1;
- fmt++;
- break;
- case 'h':
- short_flag = 1;
- fmt++;
- }
-
- switch (*fmt) {
- case 's':
- string_flag = 1;
- break;
- case 'd':
- radix = 10;
- break;
- case 'x':
- radix = 16;
- break;
- case 'c':
- radix = 0;
- break;
- case 'o':
- radix = 8;
- break;
- }
-
- if (string_flag) {
- str = va_arg(ap,char _generic *);
- while (*str) putchar(*str++);
- continue ;
- }
-
- if (long_flag)
- val = va_arg(ap,long);
- else
- if (short_flag)
- val = va_arg(ap,short);
- else
- val = va_arg(ap,int);
-
- switch (radix) {
- case 10:
- pvaldec(val) ;
- break;
- case 16:
- pvalhex (val);
- break;
- case 0:
- putchar((char)val);
- break;
- case 8:
- pvaloct(val) ;
- break;
- }
-
- } else
- putchar(*fmt);
+ if (*fmt == '%') {
+ long_flag = string_flag = short_flag = 0;
+ fmt++ ;
+ switch (*fmt) {
+ case 'l':
+ long_flag = 1;
+ fmt++;
+ break;
+ case 'h':
+ short_flag = 1;
+ fmt++;
+ }
+
+ switch (*fmt) {
+ case 's':
+ string_flag = 1;
+ break;
+ case 'd':
+ radix = 10;
+ break;
+ case 'x':
+ radix = 16;
+ break;
+ case 'c':
+ radix = 0;
+ break;
+ case 'o':
+ radix = 8;
+ break;
+ }
+
+ if (string_flag) {
+ str = va_arg(ap, char _generic *);
+ while (*str) putchar(*str++);
+ continue ;
+ }
+
+ if (long_flag)
+ val = va_arg(ap,long);
+ else
+ if (short_flag)
+ val = va_arg(ap,short);
+ else
+ val = va_arg(ap,int);
+
+ if (radix) pval();
+ else putchar((char)val);
+
+ } else
+ putchar(*fmt);
}
}