Каковы возможности встроенного ассемблера в турбо паскале?

[Чудо-программист]

Можно и BGI пользоваться

Нельзя.
Во-первых, там нет прозрачного цвета. Только мутные логические операции.
Во-вторых, BGI не умеет отражать спрайты.
В-третьих, драйвер svga256.bgi мне придется красть из порнотетриса, потому как в стандартный паскаль он не входит. Без него — 16 цветов.
В-четвертых и главных, BGI работает крайне неспешно и неторопливо.
В-пятых и еще более главных, BGI крайне негибко.

Если используются стандартные режимы EGA с ограниченным количеством цветов (8, 16 или 64, не помню), для пересылки в экранный буфер используется очень хитрый механизм с регистрами-задвижками и портами

Именно поэтому не пользуюсь режимами EGA. Вообще нормальная плавная графика пошла после того, как EGA-режимами перестали пользоваться.
У меня режим 13h. 320x200, 256 цветов из палитры, строго один байт на пиксель, полный экран чуть меньше сегмента.

Но вопрос не в этом. Вопрос — где ошибка в моем простеньком коде.
Я ошибки не вижу, а программа вылетает.

лучше поискать готовую графическую библиотеку для Turbo Pascal, ориентированную на игры

Да там нечего искать. Нарисовать спрайт, нарисовать тайл, бросить буфер на экран, вывести текст, поправить палитру — ничего сложного.
Просто немного тормозит на чистом паскале.

[Vapaamies]

Сообщение от Чудо-программист

У меня режим 13h. 320x200, 256 цветов из палитры, строго один байт на пиксель, полный экран чуть меньше сегмента.

Ну вот, блин. Надо было сразу так и говорить. Перечитай свое первое сообщение в теме и скажи, плакать надо или смеяться. Чуть было в "Юмор" тему не перевели.

Сообщение от Чудо-программист

Да там нечего искать. Нарисовать спрайт, нарисовать тайл, бросить буфер на экран, вывести текст, поправить палитру — ничего сложного.

Вот этим и должна заниматься библиотека. Код, написанный и отлаженный другими программистами с учетом особенностей аппаратуры и прочего.

Код из сообщения #8 может падать из-за неверного вычисления адресов. Квадратные скобки не забыты? Как описаны переменные Screen1 и Screen2?

[Чудо-программист]

type
  TScreen = array[0..ScreenMaxY, 0..ScreenMaxX] of Byte;
  PScreen = ^TScreen;

var
  Screen1. Screen2: PScreen

...

procedure InitBufs;

begin
  New(Screen1);
  Screen2 := Ptr(40960, 0)
end;

Как-то так они описаны.

[Vapaamies]

И что мешает использовать системную процедуру Move? Вот ее исходник (memh.asm):

; Move standard procedure

MoveMem:

	MOV	BX,SP
	MOV	DX,DS
	LDS	SI,SS:[BX+10]
	LES	DI,SS:[BX+6]
	MOV	CX,SS:[BX+4]
	CLD
	CMP	SI,DI
	JAE	@@1
	ADD	SI,CX
	ADD	DI,CX
	DEC	SI
	DEC	DI
	STD
@@1:	REP	MOVSB
	CLD
	MOV	DS,DX
	RETF	10

Вызывать ее из Паскаля, и всё, будет быстро:

begin
  Move(Screen1^, Screen2^, SizeOf(TScreen));
end;

[Чудо-программист]

Экран режима 13h — очень тормозной, поэтому Movsw будет ровно вдвое быстрее.
А так у меня вообще было Screen2^ := Screen1^, по скорости как Move.