?codesize
?use80486
?argc TRUE
#include <file.h-->


  byte  QUIT=0;
  word  IP = 0;
  word  script;

#include "text.h--"
#include "emu.h--"



void main(void)
  word   i;
  word   handle;
{
  // Здесь будет РОМа
  GS = CS+0x1000;
  script = AX;

  // Курсор пошёл нафиг
  AH = 1;
  CL = 0;
  CH = 0b10000;
  $int 0x10

  // Нуууу.....8)
  handle = open(PARAMSTR(1), F_READ);
  IF (!EAX)
  {
      WRITESTR("Не могу открыть файл");
      return;
  }

  // Чёто не то!
  readfar(handle, script, 0, 65535);
  IF (!EAX)
  {
      WRITESTR("Ошибка чтения");
      close(handle);
      return;
  }

  close(handle);

  // Очистка переменных
  ES = DS;
  DI = #variable;
  AL = 0;
  CX = 100;
  $rep $stosb


  // Запуск эмуляции моего процессора 8]
  StartEMU();
}