jpag0001 のバックアップ(No.2)

バックアップ一覧
差分を表示
現在との差分を表示
ソースを表示
jpag0001 へ行く。
- 1 (2013-06-24 (月) 14:52:34)
- 2 (2013-06-24 (月) 15:17:34)
- 3 (2013-06-24 (月) 20:17:43)
- 4 (2013-06-24 (月) 20:17:43)

junkなpage #0000

(by K, 2013.06.24)

(1) 配列（？）を使ったプログラム例

「エラトステネスのふるい」のアルゴリズムを使った素数表示プログラムです。

#include "osecpu_ask.h"

// osecpu049に書き忘れたので自分で書く(すみません！).
#define my_malloc(_p, typ, len)  R38=typ; R39=len;  DB(0x32,_p&0x3f,0x38,0x39)
#define T_UINT1     0x0d

#define L_putDec    LOCAL(0)
LOCALLABELS(1);

#define putDec(i)   R30=i; CALL(L_putDec)

    // main
    for (;0;) {
        int32s i:R00, j:R02;
        my_malloc(P01, T_UINT1, 1000);
        R01 = 0;
        for (i = 2; i != 1000; i++) {
            PADD(P02, T_UINT1, P01, R00); // i
            SMEM(R01, T_UINT1, P02); DB(0);
        }
        R01 = 1;
        for (i = 2; i != 1000; i++) {
            j = i * 2;
            for (;;) {
                if (j >= 1000) break;
                PADD(P02, T_UINT1, P01, R02); // j
                SMEM(R01, T_UINT1, P02); DB(0);
                j += i;
            }
        }
        for (i = 2; i != 1000; i++) {
            PADD(P02, T_UINT1, P01, R00); // i
            LMEM(R01, T_UINT1, P02); DB(0);
            if (R01 == 0) {
	         putDec(i);
                junkApi_putConstString(' ');
            }
        }
    }
    jnukApi_exit(0);

beginFunc(L_putDec);
    for (;0;) {
        int32s i:R00, flag:R01, j:R02, ii:R03;
        i = R30;
        flag = 0;
        if (i < 0) {
            junkApi_putConstString('-');
            i *= -1;
        }
        for (j = 1000000000; j >= 10; j /= 10) {
            ii = i / j;
            i %= j;
            if (!(flag == 0 & ii == 0)) {
                flag = 1;
                ii += '0';
                junkApi_putchar(ii);
            }
        }
        i += '0';
        junkApi_putchar(i);
    }
endFunc();

[解説]

my_malloc(P01, T_UINT1, 1000);

1ビットの符号なし整数1000個分のメモリをシステムからもらってきて、P01に格納します。
OSECPUでは1ビットの配列という、C言語ではなかなかできないようなことを平然とやってのけます！

その他の型のIDについては以下の通りです。

#define T_SINT8     0x02 // 8bitの符号付き, いわゆる signed char.
#define T_UINT8     0x03
#define T_SINT16    0x04 // 16bitの符号付き, いわゆる short.
#define T_UINT16    0x05
#define T_SINT32    0x06
#define T_UINT32    0x07
#define T_SINT4     0x08
#define T_UINT4     0x09
#define T_SINT2     0x0a
#define T_UINT2     0x0b
#define T_SINT1     0x0c // 代入できるのは0か-1のみ.
#define T_UINT1     0x0d
#define T_SINT12    0x0e
#define T_UINT12    0x0f
#define T_SINT20    0x10
#define T_UINT20    0x11
#define T_SINT24    0x12
#define T_UINT24    0x13
#define T_SINT28    0x14
#define T_UINT28    0x15

PADD(P02, T_UINT1, P01, R00);
- ポインタレジスタP01は、T_UINT1を指し示すポインタであることを明示して、R00を加えて、結果をP02に入れます。
- P02 = &P01[R00]; みたいな感じです。
- ちなみにこういうアセンブラチックな命令では、変数宣言しておいたiが使えません。泣けます。
SMEM(R01, T_UINT1, P02); DB(0);
- P02で指し示されるメモリにR01の値を書き込みます。
- こんな風に型を毎回明示する必要があります。そしてmallocしたときと違う型を指定すると、エラーになって動作しないので注意してください。
- 型を間違えるとだめなのは、PADDのときも同様です。
- 後ろのDB(0);がすごく汚らしいですが、これを忘れると大変なことになりますので、いつも忘れずにつけておいてください。
LMEM(R01, T_UINT1, P02); DB(0);
- P02で指し示されるメモリにアクセスして、その値をR01に代入します。
- その他についてはSMEM()と同様です。

↑

こめんと欄

コメント	お名前	NameLink