気候センシングに挑戦2

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;
}