Збекистон миллий университети

Процессор регистрлари билан боғланган функциялар

Процессор регистр Турбо-паскал

функцияси
CS Cseg
DS Dseg
SS Sseg
SP Sptr


ТП программа кодининг бажарилишида хотира тақсимоти.

MS DOS хотирасининг юқори чегараси	Динамик объектлар учун хотира қисми	УЮМ 6
	Оверлей буфери (зарур бўлса)	5
Sseg:Sptr	Стекнинг тўлдирилган қисми («пастга» тўлдирилади)	Cтек(локал ўзгарувчи лар ва параметрларни
Sseg:0000	Стекнинг бўш қисми	сақлаш учун) 4
	Глобал ўзгарувчилар	Берилганлар сегменти 3
Dseg:0000	Турланган константалар
	Система модулининг (SYSTEM) ишчи коди	Бу ерда EXE –файл
	Биринчи модулнинг (UNIT) ишчи коди	нусхаси жойлашади 2
Агар Киритилган бўлса	... Бошқа модулларнинг (UNIT) ишчи кодлари ....
	Охирги модул (UNIT) ишчи коди
	Программа асосий блокининг ишчи коди
PrefixSeg:0000	Программа префикс сегменти (PSP 256 байт)	1

Pointer тури. ТПда махсус адрес тури Pointer–кўрсатгич аниқланган Бу тур орқали хотира катаги адресини аниқловчи ўзгарувчиларни эълон қилиши мумкин.
Var p: pointer; узунлиги 4 Кбайт.
Адреслар билан ишлаш воситалари

Функция: тур	Қайтарадиган қиймати
Addr (x): Pointer Seg(x): Word Ofs(x): Word Ptr(S,О:Word): Pointer @x:	х объектнинг хотирадаги адреси х объект жойлашган сегмент х объект учун сегментдаги силжиш S сегмент О силжиш билан берилган хотира катагига кўрсатгич х объектнинг хотирадаги адреси

Аddr(x), Seg(x), Ofs(x) ва @ оператори Х объект аниқлаб беради. Бу ерда Х сифатида ихтиёрий турдаги ўзгарувчи, объектлар, процедура ва функциялар бўлиши мумкин (константалардан ташқари).
Мисол.
Var x:string;
p, r:Pointer;
. . .
p:Addr(x);
q:@x; { pºq }

Pointer туридаги қийматни экранга чиқариб бўлмайди, лекин сегмент ва силжишларни алоҳида чиқариш мумкин:

Writeln(‘Сегмент -’,Seg(p), ‘ Силжиш - ’ , Ofs(p));
Ptr(Seg, Ofs : Word) – функцияси Addr функциясига нисбатан тескари иш қилади, яъни сегмент ва силжиш кўрсатадиган жойга кўрстагич ҳосил қилади. Одатда бу функция динамик структураларни хотиранинг резерв қилинган жойларига боғлаш учун ишлатилади. Қуйида кўрсатгични видеохотирага боғлашни кўришимиз мумкин.
Type
VideoArray  Array [0..3999] of byte;
Var
V:^VideoArray;
Begin
V:Ptr($B000,0);
...
{ V^[i] – бевосита видеохотира катагига мурожаат }
...
End;