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
            -----------------------

Ñîäåðæàíèå  Íàçàä  Âïåðåä