Turbo Basic 1.1. Ðóêîâîäñòâî ïîëüçîâàòåëÿ
çàãðóæàåò âûáðàííûé ýëåìåíò áóôåðà ðåãèñòðîâ
Àðãóìåíò ðåãèñòðà Ðåãèñòð
----------------------------------------------------------------------------
0 Ôëàãè
1 ÀÕ
2 ÂÕ
3 ÑÕ
4 DX
5 SI
6 DI
7 BP
8 DS
9 ES
----------------------------------------------------------------------------
REG,êàê îïåðàòîð, çàãðóæàåò âûáðàííûé ýëåìåíò áóôåðà ðåãèñòðîâ óêà-
çàííûì öåëûì çíà÷åíèåì:
REG 2,&H1000 'çàãðóçèòü 1000H íà ÂÕ áóôåðà ðåãèñòðîâ
REG ,êàê ôóíêöèÿ,âîçâðàùàåò çíà÷åíèå âûáðàííîãî ýëåìåíòà áóôåðà
ðåãèñòðîâ:
PRINT REG (2) 'âûâåñòè çíà÷åíèÿ èç ÂÕ áóôåðà ðåãèñòðîâ
Ïðîãðàììèñò îòâåòñòâåííåí çà çàùèòó ðåãèñòðîâ ñåãìåíòà äàííûõ
- 85 -
(DS),ñåãìåíòà ñòåêà (SS),óêàçàòåëÿ áàçû (BP),óêàçàòåëÿ ñòåêà (SP)
ñì òàêæå CALL INTERRUPT
DEF SEG
REG
Ïðèìåð defint a-z
dim a(100)
dim ÇàïîëíåíèÿÏîäïðîãðàììà (10)
ÇàïîëíåíèÿÏîäïðîãðàììà (0)=&HF2FC
ÇàïîëíåíèÿÏîäïðîãðàììà (1)=&HCBAA
reg 1,-1
reg 3,101*2
reg 9,varseg(a(0))
reg 6,varptr(a(0))
def seg=varseg(ÇàïîëíåíèÿÏîäïðîãðàììà (0))
print a(1)
while not instat:wend
ÇàïîëíèòüÀäðåñ=varptr(ÇàïîëíåíèÿÏîäïðîãðàììà(0))
call absolute ÇàïîëíèòüÀäðåñ '(reg)
print a(1)
end
Îïåðàòîð CALL INTERRUPT
-----------------------
