заполнение матрицы по спирали (в TurboPascal создать EXE размером менее 2100 байт)

[Serge_Bliznykov]

компилировать можно только на турбо паскале.

Какая версия?!

[denisbrain]

procedure writeS(s:string);assembler;
asm
  push ds {сохраняем сегмент данных}
  mov ah,40h {номер функции прерывания}
  mov bx,1{стандартный вывод это 1}
  lds dx,s {адрес строки в ds:dx}
  mov si,dx {адрес строки в ds:si для lodsb}
  lodsb {длинну строки в al (первый байт в строке это ее длина!)}
  inc dx{чтобы не напечатать первый байт}
  xor cx,cx;mov cl,al{чтобы в сх была длинна строки}
  int 21h {DOS}
  pop ds {восстанавливаем ds}
  {как видишь всё просто :) }
end;

    program wrBIOS;
    uses DOS;
    procedure writeXYS(x,y:byte;s:string);
    var
      R:registers;
    begin
      with R do
      begin
        DH:=Y;{mov dh,y понятно}
        DL:=X;{mov dl,x понятно}
        AX:=$1301;{mov ax,1301h 13h функция 1 подфункция }
        BP:=ofs(s);ES:=seg(s);{les bp,s  адрес s в es:bp}
        BH:=0;{mov bh,0  номер страницы}
        BL:=16*2+15;{mov bl,16*2+15 атрибут символа}
        CH:=CX xor CX;{xor ch,ch }
        CL:=mem[ES:BP];{mov cl,byte ptr es:[bp] в сх положим длину строки}
        INC(BP);{inc bp Чтобы не напечатать нулевой символ в s}
      end;
      intr($10,R);
    end;
    {------------}
    begin
      writeXYS(40,10,'123456');
      readln;
    end.

(1*744 байт) exe file

[Jenn]

версия - любая.


к сожалению, ассемблерные вставки использовать нельзя

[Mad_Cat]

можно было бы упаковщик UPX использовать

UPX не жмет Turbo Pascal вроде
у меня спиралька на 2.75 Кб вышла

[Serge_Bliznykov]

Сообщение от Jenn

к сожалению, ассемблерные вставки использовать нельзя

Вы знаете, я сперва тоже самое хотел написать denisbrain...

а потом обратил внимание. второй пример кода:

uses DOS;
 R:registers;

НЕ ЯВЛЯЕТСЯ ассемблерной вставкой. Используются методы модуля DOS (ну да, там они реализованы через встроенный ассемблер). Но этот модуль СТАНДАРТНЫЙ. Т.е. входит в состав TurboPascal - и никакого запрета на его использование в условиях задачи я НЕ ВИЖУ!

[denisbrain]

Сообщение от Mad_Cat

UPX не жмет Turbo Pascal вроде
у меня спиралька на 2.75 Кб вышла

пришлю сюда код, посмотрим

Turbo Pascal в конечном счете все к ASM сводит

[denisbrain]

Сообщение от Serge_Bliznykov

Вы знаете, я сперва тоже самое хотел написать denisbrain...

а потом обратил внимание. второй пример кода:

НЕ ЯВЛЯЕТСЯ ассемблерной вставкой. Используются методы модуля DOS (ну да, там они реализованы через встроенный ассемблер). Но этот модуль СТАНДАРТНЫЙ. Т.е. входит в состав TurboPascal - и никакого запрета на его использование в условиях задачи я НЕ ВИЖУ!

т.е. в данном примере вывод происходит через прерывания и функциями MS DOS. своего рода aPI функции того времени

[Serge_Bliznykov]

у меня ваш второй код (через использование модуля DOS)

паскалем 7.0

Turbo Pascal  Version 7.0  Copyright (c) 1983,92 Borland International

компилируется в EXE файл размером 2208 байт.
Что я делаю не так?!

p.s. кстати, можно попытаться воспользоваться более старой версией Паскаля. Например, 5.0. IMHO, они генерировали более компактный код.

[denisbrain]

Сообщение от Serge_Bliznykov

у меня ваш второй код (через использование модуля DOS)

паскалем 7.0

компилируется в EXE файл размером 2208 байт.
Что я делаю не так?!

p.s. кстати, можно попытаться воспользоваться более старой версией Паскаля. Например, 5.0. IMHO, они генерировали более компактный код.

хм
видимо выше изложенные директивы помогают компилятору

директивы

{$A-,B-,D-,E-,F-,G-,I-,L-,N-,O-,P-,Q-,R-,S-,T-,V+,X+}
{$M 16384,0,655360}

[Serge_Bliznykov]

Сообщение от denisbrain

хм
видимо выше изложенные директивы помогают компилятору

директивы

{$A-,B-,D-,E-,F-,G-,I-,L-,N-,O-,P-,Q-,R-,S-,T-,V+,X+}
{$M 16384,0,655360}

ну да. помогают.
без них (ну, точнее с теми настройками компилятора, которые идут по умолчанию) получается ровно 2352 байта...