Реферат: Взаимодействие основных частей ЭВМ при выполнении программы

procedure Page_4_7;

begin

SetViewPort(X, Y, GetMaxX - X, YS - 10, ClipOn);

SetColor(TxtCol);

MyText(0, 80, 'На этом выполнение первой машинной команды ' +

'заканчивается, происходит');

КР. 991096.00.00.00 ПЗ Лист ——– Изм. Лист № докум. Подп. Дата 10

MyText(0, 88, 'переход к следующей по порядку машинной команде. ' +

'Содержимое ячейки ОЗУ с');

MyText(0, 96, 'адресом, следующим за стартовым, пересылается в УУ ' +

'и все повторяется.');

SetViewPort(0, 0, GetMaxX, GetMaxY, ClipOn)

end; {Page_4_6}

{-------------------}

{+------------------+}

{ }

{ Процедуры анимации }

{ }

{+------------------+}

procedure Move_1;

begin

BLink(150, 285, 'kurs.exe');

end; {Move_1}

{-------------------}

procedure Move_2;

begin

SetColor(Green);

Animation(150, 285, -125, 2, ' █ █', True)

end; {Move_2}

{-------------------}