int y = 0;
int busy = 0;

void F01_1_Handler()
   {
   char s[4];
        if ( busy ) return;
        busy = 1;
   memset(s, '\0', 4);
   sprintf(s, "%d", MainBatteryPercentage());
   PrintXY(78, y, (const unsigned char *) "    ", 0);
   PrintXY(78, y, (const unsigned char *) s, 0);
     Bdisp_PutDisp_DD();
   y++;
        busy = 0;
   }
  
int AddIn_main(int isAppli, unsigned short OptionNum)
   {
   unsigned int key;
   Bdisp_AllClr_DDVRAM();
   SetTimer(ID_USER_TIMER1, 100, (void *) F01_1_Handler);
   while (1)
      {
      F01_1_Handler();
      GetKey(&key);
      }
   return 1;
   }
// instant syscalls (fx-9860)
#define SCA 0xD201D002
#define SCB 0x422B0009
#define SCE 0x80010070
typedef void(*sc_vpuc)(unsigned char*);
typedef int(*sc_iv)(void);
typedef int(*sc_i2pui)( unsigned int*, unsigned int* );
typedef int(*sc_i4pui)( unsigned int*, unsigned int*, unsigned int*, unsigned int* );
typedef int(*sc_i2puc2pus)( unsigned char*, unsigned char*, unsigned short*, unsigned short* );
typedef int(*sc_iipci)( int, unsigned char*, int );
const unsigned int sc003B[] = { SCA, SCB, SCE, 0x003B };
#define RTC_GetTicks (*(sc_iv)sc003B)
const unsigned int sc0D65[] = { SCA, SCB, SCE, 0x0D65 };
#define InputDateMonth (*(sc_i2pui)sc0D65)
const unsigned int sc0D67[] = { SCA, SCB, SCE, 0x0D67 };
#define InputDateYear (*(sc_i2pui)sc0D67)
const unsigned int sc0D64[] = { SCA, SCB, SCE, 0x0D64 };
#define InputDate (*(sc_i4pui)sc0D64)
const unsigned int sc0015[] = { SCA, SCB, SCE, 0x0015 };
#define GlibGetOSVersionInfo (*(sc_i2puc2pus)sc0015)
const unsigned int sc06C4[] = { SCA, SCB, SCE, 0x06C4 };
#define KBD_PRGM_GetKey (*(sc_vpuc)sc06C4)
const unsigned int sc0160[] = { SCA, SCB, SCE, 0x0160 };
#define LongToAsc (*(sc_iipci)sc0160)
// instant syscalls

// for fx9860 only!
#define PORT_E_DR 0xA4000128

#define OS202GII2 0x02020000
//
char IsSlim(){
   if ( ( OSVersionAsInt() & 0xFFFF0000 ) == OS202GII2 ) return 0;
   else return !( *(char*)PORT_E_DR & 0x08 );
}

//
char IsSD(){
   return ( *(char*)PORT_E_DR & 0x01 );
}

//
int IsEmulator(){
   return !( *(int*)0x8000FFD0 || *(int*)0x8000FFD4 );
}

#define OS102 0x01020000
#define OS103 0x01030000
#define OS104 0x01040000
#define OS105 0x01050000
#define OS1051 0x01051000
#define OS110 0x01100000
#define OS111 0x01110000
#define OS200 0x02000300
#define OS200slim 0x02000100
#define OS200GII 0x02000200

//
int OSVersionAsInt( void ){
unsigned char mainversion;
unsigned char minorversion;
unsigned short release;
unsigned short build;
  GlibGetOSVersionInfo( &mainversion, &minorversion, &release, &build );
  return ( ( mainversion << 24 ) & 0xFF000000 ) | ( ( minorversion << 16 ) & 0x00FF0000 ) | ( release & 0x0000FFFF );
}

//
int GetMainBatteryVoltagePointer(){
unsigned int ea;
unsigned int j;
    ea = *(unsigned int*)0x8001007C;
    ea = ea + 0x049C*4;
    ea = *(unsigned int*)( ea );
    while ( *(unsigned short*)( ea ) != 0xE464 ){
      ea = ea + 2;
    };
    ea = ea + 2;
    j = *(unsigned char*)( ea + 1 );
    j = 4*j;
    j = ( ea + j + 4 ) & 0xFFFFFFFC;
    return *(unsigned int*)( j );
}

// battery = 1 = main (do not use other values)
// firstlevel: warning level
// secondlevel: shutdown level
int GetBatteryStatus( int battery, int*firstlevel, int*secondlevel ){
int (*iGBS)( int ) = 0;  // declare an int function pointer
int*battconfig = (int*)0x80000334;
   *firstlevel = 0x17F;
   *secondlevel = 0x16D;

   iGBS = (int(*)(int))GetMainBatteryVoltagePointer();

     switch ( OSVersionAsInt() ){
       case OS102 : break;
       case OS103 : break;
       case OS104 :
       case OS105 :
         if ( *battconfig==0x43444844 ){
           *firstlevel = 0x1A5;
           *secondlevel = 0x191;
         };
         break;
       case OS1051 :
         if ( *battconfig==0x43444844 ){
           *firstlevel = 0x1A5;
           *secondlevel = 0x191;
         };
         break;
       case OS110 :
         *firstlevel = 0x2AA;
         *secondlevel = 0x288;
         break;
       case OS111 :
         *firstlevel = 0x2AA;
         *secondlevel = 0x288;
         break;
       case OS200 :
         if ( *battconfig==0x43444844 ){
           *firstlevel = 0x1A5;
           *secondlevel = 0x191;
         };
         break;
      case OS200GII :
         break;
      case OS200slim :
         *firstlevel = 0x2AA;
         *secondlevel = 0x288;
         break;
     };
   if (IsSlim()){
      *firstlevel = 0x2AA;
      *secondlevel = 0x288;
   }  
   if (iGBS!=0) return (*iGBS)( battery );
   else return 0;
}

// the warning level lies around 2/3 full scale
int MainBatteryPercentage( void ){
int firstlevel, secondlevel;
int i;
   if ( IsEmulator() ){
      i = 100;
      firstlevel = 70;
      secondlevel = 65;
   } else i = GetBatteryStatus( 1, &firstlevel, &secondlevel );
      
   if (firstlevel > 0 ) return ( 200*i )/(firstlevel*3);
   else return 0;
}

//
int F01_1_Handler(){
unsigned int key;
unsigned char x[21];
int currentlevel = 0;
   memset( x, 0, sizeof( x ) );
   while (1){
      currentlevel = MainBatteryPercentage();
      locate(5,3);  
      LongToAsc(currentlevel, (unsigned char*)x, 5 );  
      Print( (unsigned char*)x );
      Print( "%" );
      GetKey( &key );
      if ( key == KEY_CTRL_EXIT ) break;
   }
   return 1;
}

Executing Hitachi SH C/C++ Compiler/Assembler phase

set SHC_INC=C:\CASIO\fx-9860G SDK\OS\SH\include
set PATH=C:\CASIO\fx-9860G SDK\OS\SH\bin
set SHC_LIB=C:\CASIO\fx-9860G SDK\OS\SH\bin
set SHC_TMP=D:\telechargement\casiosdk\test2\Debug
"C:\CASIO\fx-9860G SDK\OS\SH\bin\shc.exe" -subcommand=C:\Users\Pierre\AppData\Local\Temp\hmkD69.tmp
D:\telechargement\casiosdk\test2\test.c(22) : C2225 (E) Undeclared name "ID_USER_TIMER1"
D:\telechargement\casiosdk\test2\test.c(185) : C2136 (E) Type mismatch
D:\telechargement\casiosdk\test2\test.c(197) : C2225 (E) Undeclared name "KEY_CTRL_EXIT"

HMAKE MAKE UTILITY Ver. 1.1
Copyright (C) Hitachi Micro Systems Europe Ltd. 1998
Copyright (C) Hitachi Ltd. 1998


    ERROR: Process failed with return code: 1
Build was not successful.

Executing Hitachi SH C/C++ Compiler/Assembler phase

set SHC_INC=C:\CASIO\fx-9860G SDK\OS\SH\include
set PATH=C:\CASIO\fx-9860G SDK\OS\SH\bin
set SHC_LIB=C:\CASIO\fx-9860G SDK\OS\SH\bin
set SHC_TMP=D:\telechargement\casiosdk\test2\Debug
"C:\CASIO\fx-9860G SDK\OS\SH\bin\shc.exe" -subcommand=C:\Users\Pierre\AppData\Local\Temp\hmk89F8.tmp
D:\telechargement\casiosdk\test2\test.c(23) : C2225 (E) Undeclared name "ID_USER_TIMER1"
D:\telechargement\casiosdk\test2\test.c(186) : C2136 (E) Type mismatch
D:\telechargement\casiosdk\test2\test.c(196) : C1016 (W) Argument mismatch

HMAKE MAKE UTILITY Ver. 1.1
Copyright (C) Hitachi Micro Systems Europe Ltd. 1998
Copyright (C) Hitachi Ltd. 1998


    ERROR: Process failed with return code: 1
Build was not successful.