4．マシン語プログラム

このソースコードはプログラム番号0番のBASICで使用するマシン語です。
IchigoJam,IchigoDAKE,IchigoKAKE（LPC1114シリーズCPU）でのみ動作します。IchigoJamR（GD32VF103CBT6 CPU）では動作しません。

POKE#880,248,181,224,35,27,136,152,71,0,36,202,38,10,39,9,77,51,136,152,71,3,0,48,59,9,43,3,216,124,67,5,77,228,24,245,231,1,61,0,45,1,221,10,40,240,209,32,0
POKE#8B0,248,189,192,70,0,#10,0,0

// input With Time Out
int32_t input_wtm(int32_t cmd)
{
int32_t max_count;
int32_t v;
uint32_t k;
int32_t e;

max_count = 0x00001000;
e=max_count;
v=0;

uputc(cmd);

do {
　　　　k=inkey();
　　　　if (k>=’0′ && k<=’9′)
　　　　　　　　{
　　　　　　　　v=v*10+k-‘0’;
　　　　　　　　e = max_count;
　　　　　　　　}
　　　　　else
　　　　　　　　{
　　　　　　　　if (–e <= 0 )
　　　　　　　　　　　　return v;
　　　　　　　 }
} while(k!=0x0a);
return v;
}