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

[Tronix]

Хе-хе, вот например программка

Var
    x,y : byte;
Begin
    x := 1;
    y := 2;
    x := x + y;
End. 

Генерируется в тонну *****кода:

;;    MSC-48 PASCAL
;;    Tronix (c) 2017

      .org 0		; reset vector
      dis   i
      jmp   MAIN

      .org 3		; external interrupt vector--trap
      retr

      .org 7		; timer interrupt vector
      retr
MAIN:
      mov   a,1			; load const
      mov   r0,_X		; store variable
      mov   @r0,a
      mov   a,2			; load const
      mov   r0,_Y		; store variable
      mov   @r0,a
      mov   r0,_X		; load variable
      mov   a,@r0
      mov   r2,a		; push to stack
      mov   r0,_Y		; load variable
      mov   a,@r0
      mov   r1,a		; save V0->V1, get V0 from stack
      mov   a,r2
      add   a,r1		; make addiction
      mov   r0,_X		; store variable
      mov   @r0,a
_PEND:
      jmp  _PEND		; end program
; ***** Library Code ***** 
; ***** Library Ends *****
; Variable Area
.equ	_Y	32
.equ	_X	33
; String constants