Передает управление в процедуру на языке Ассемблер. -аргументы -аргументы, передающиеся в процедуру; -смещение% -смещение от текущего кода сегмента, установленного DEF SEG, до выполнения процедуры.
Пример от Microsoft:
'Вызывает подпрограмму дл печати содержимого на принтере
DIM a%(2)
DEF SEG = VARSEG(a%(0))
FOR i% = 0 to 2
READ d%
POKE VARPTR(a%(0)) + i%, d%
NEXT i%
DATA 205, 5, 203
CALL ABSOLUTE(VARPTR(a%(0)))
DEF SEG
|