FILES

BASIC プログラム EEPROM 一覧表示

「あれ? この EEPROM、BASIC で使ってたかな???」

そういう時にこのプログラムを使って下さい。

BASIC の FILES 同等に一覧を表示します。

 

2019年4月19日より
IchigoCake BASIC EEPROM 版を加えています。

 

ms . で実行すると「files>」と表示するので、

表示させたい最終プログラム番号を入力して下さい。

IchigoJam BASIC 1.1 以降で FILES 番号 の

番号 と同じ指定が可能です。

省略可能です。
省略または 0 の場合は 1024k EEPROM になります。

 

EEPROM のサイズ別に次のプログラム番号になります。

 

IchigoJam BASIC EEPROM の場合

  • 0032k EEPROM → 103
  • 0064k EEPROM → 107
  • 0128k EEPROM → 115
  • 0256k EEPROM → 131
  • 0512k EEPROM → 163
  • 1024k EEPROM → 227

IchigoCake BASIC EEPROM の場合

  • 0032k EEPROM → 100
  • 0064k EEPROM → 101
  • 0128k EEPROM → 103
  • 0256k EEPROM → 107
  • 0512k EEPROM → 115
  • 1024k EEPROM → 131 

プログラム番号 100 より順番に 1 行目を表示していきます。

1 画面おきに「more>」を表示します。Enter(return)で続きを表示します。Esc で中断です。

全て表示した時はプログラムが終了し、lash のプロンプトになっています。

BASIC の カタカナ は IchigoLatte では ひらがな になります。キャラクターも一部異なります。

 

IchigoJam BASIC 0.9.3〜0.9.9-RC9 では EEPROM の保存状態が異なるため、結果が異なります。

(FILES は 1.0.0 で対応されています)

 

IchigoJam BASIC EEPROM

//FILES IchigoJam BASIC

var k,a,p=100,r,d=0,b=0,h=0,l;
var m=0;

log("files>");
k=input();

if(k==0)
{
  k=227;
}

while(p<=k)
{
  a=0x50+b*0x04;
  l=3;

  log(p," ");

  while(l<30)
  {
    i2cw(a,h,l);
    i2cr(a,r);

    if((l==3)*(r==255))
    {
      break;
    }

    if((r==0)+(r==10))
    {
      break;
    }

    log(chr(r));

    l=l+1;
  }
  log("\n");

  p=p+1;
  d=d+1024;

  l=d%256;
  h=(d/256)%65536;
  b=d/65536;

  m=m+1;

  if(m==23)
  {
    log("more>");
    m=input();
    m=0;
  }
}

MixJuice・MicJack ダウンロード

lash>echo MJ GET 15lt.eu.org/filesjam.js> uart;cat uart > .

IchigoCake BASIC EEPROM

//FILES IchigoCake BASIC

var k,a,p=100,r,d=0,b=0,h=0,l;
var m=0;

log("files>");
k=input();

if(k==0)
{
  k=131;
}

while(p<=k)
{
  a=0x50+b*0x04;
  l=3;

  log(p," ");

  while(l<30)
  {
    i2cw(a,h,l);
    i2cr(a,r);

    if((l==3)*(r==255))
    {
      break;
    }

    if((r==0)+(r==10))
    {
      break;
    }

    log(chr(r));

    l=l+1;
  }
  log("\n");

  p=p+1;
  d=d+4096;

  l=d%256;
  h=(d/256)%65536;
  b=d/65536;

  m=m+1;

  if(m==23)
  {
    log("more>");
    m=input();
    m=0;
  }
}

MixJuice・MicJack ダウンロード
lash>echo MJ GET 15lt.eu.org/filescake.js> uart;cat uart > .