Компилятор C для MCS-48 ?

[Tronix]

fasmg

Ну, FASM все-таки ассемблер, хоть и богатый конечно на макросы. Но до языка высокого уровня не дотягивает.
С ассемблерами под сабж проблем то нет никаких...

Вообще, по прикидкам, набросать простенький компилятор с Паскаля можно. Например, я когда-то давным давно взял какой-то сорец http://exmortis.narod.ru/comp_src/pp002.zip набросанный по мотивам статьи Let's Build a Compiler, by Jack Crenshaw допилил его маленько для кодо-генерации платформы chip-8, а затем и вымышленной chip-16.

Кушал он примерно такие сорцы (рисование мандельброта):

var
   xPixels, yPixels, xStart, yStart, Xsize, YSize, maxiter : integer;
   xStep, yStep : integer;
   ix,iy,x,y,x0,y0,iteration,xtemp : integer;
   dist : byte;
   temp : byte;
   xx,yy : byte;

begin
  XPixels := 160;
  YPixels := 100;
  XStart := $FF9c;
  YStart := $FFce;
  XSize := 160;
  YSize := 100;
  MaxIter := 16;

  XStep := XSize div XPixels;
  YStep := YSize div YPixels;

  yy := 20;
  For iy := 0 to yPixels do
    begin
          xx := 0;
          For ix := 0 to xPixels do
            begin
               x := xStart + ix * xStep;
               y := yStart + iy * yStep;
               x0 := x;
               y0 := y;
               iteration := 0;
               Repeat
                     xtemp := ((x*x) div 48) - ((y*y) div 48) + x0;
                     y := 2*((x*y) div 48) + y0;
                     x := xtemp;
                     iteration := iteration + 1;
                     dist := ((x*x) div 48) + ((y*y) div 48);
                     If iteration = maxiter then dist := 4000;
               Until dist > 192;

               If iteration <> maxiter then
                If iteration > 1 then
                begin
                 temp := ((iteration shl 4) or iteration) shl 8;
                 temp := temp or ((iteration shl 4) or iteration);
                 DrawSprite(xx,yy,$0201,^temp);
                end;
               xx := xx + 2;
            end;
          yy := yy + 2;
    end;
end. 

Так что можно попробовать just for fun перенести и на msc48.

Еще одна большая проблема с сабжем - что его нет в Протеусе. Но выход из этого то же есть. Например, есть такая приставка - Magnavox Odyssey² , дык в ней в качестве CPU как раз воткнут i8048. Ессно есть эмуляторы с открытым кодом, щаз не помню но вроде какой-то EM2 или как-то так, там 8048 ядро прям выдрать запросто можно, я выдирал безболезненно.