Turbo Basic 1.1.


Turbo Basic 1.1. - . 154



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