Справочник программиста на персональном компьютере фирмы IBM. Приложения - Включение ассемблерных процедур в программы  на Бейсике

Приложение Г.  Включение ассемблерных процедур в программы  на Бейсике.

   Процедуры на языке ассемблера состоят из строк байтов машинно-
го кода. При выполнении этой процедуры Бейсик передает управление
из  последовательности инструкций, составляющих программу на Бей-
сике, в то место, где  хранятся  инструкции,  которые  могут быть
декодированы  в  последовательность инструкций языка  ассемблера.
При завершении ассемблерной  процедуры  управление возвращается в
то место бейсиковской программы, откуда была вызвана процедура.
   В этой книге ассемблерные процедуры, используемые в программах
на Бейсике, приведены в двух видах. В обоих видах процедуры вклю-
чены  в программу, а не хранятся в виде отдельного дискового фай-
ла. При первом способе требуется, чтобы коды процедуры находились
в  отдельном месте в памяти, а при втором, менее принятом,  этого
не требуется.
   В первом способе процедура помещается в операторы DATA и прог-
рамма  пересылается в неиспользуемую часть памяти, а затем  вызы-
вается оператором CALL. Надо позаботиться о том, чтобы код проце-
дуры  не  накладывался на какие-либо данные и наоборот.   Обычное
решение этой проблемы состоит в  том,  что процедура помещается в
те  адреса  памяти,  к которым Бейсик не может  получить  доступ.
Поскольку интерпретатор Бейсика не  может иметь доступ за пределы
64K,  то  для системы, скажем, с памятью  256K,  нужно  поместить
процедуру в старшие  64K.  Для  систем  с  памятью 128K Вы должны
вычислить  сколько памяти требуется операционной системе, Бейсику
и драйверам  устройств.   Допустимо,  чтобы они занимали 25K плюс
64K,  используемых  Бейсиком.  В системах с 64K  используйте  при
старте команду CLEAR, которая ограничивает объем памяти доступный
для Бейсика. CLEAR,n ограничивает Бейсик n байтами.  Затем помес-
тите процедуру в самые верхние адреса памяти.
   Для указания начала  области,  куда  будет помещена процедура,
используйте  оператор  DEF SEG, а затем с помощью оператора  READ
считываются байты процедуры  и  помещаются  в  память до тех пор,
пока вся процедура не будет помещена на место. Например:

100 DATA &Hxx, &Hxx, &Hxx, &Hxx, &Hxx  '10-байтная процедура
110 DATA &Hxx, &Hxx, &Hxx, &Hxx, &Hxx
 .
 .
300 '''помещаем процедуру в память
310 DEF SEG = &H3000   'указываем на область памяти
320 FOR N = 0 TO 9     'для каждого из 10 байтов
330 READ Q             'читаем байт данных
340 POKE N,Q           'помещаем его в память
350 NEXT

   После  того  как процедура загружена в память и Вы  хотите  ее
использовать, необходимо чтобы  последний оператор DEF SEG указы-
вал на начало процедуры.  Затем присвойте целой переменной значе-
ние 0 и напишите оператор  CALL  с  именем  этой переменной. Если
процедуре  передаются  параметры,  то они должны быть  указаны  в
скобках в конце оператора CALL. Например:

500 DEF SEG = &H3000   'указываем на начало процедуры
510 DOGS = 12          'у нее 3 параметра
520 CATS = 44          '
530 POSSUMS = 1        '
540 CASUALTIES = 0     'начинаем выполнение с 1-го байта
550 CALL CASUALTIES(DOGS,CATS,POSSUMS)  'выполняем процедуру

   Имеется  намного  более простой и экономичный способ  создания
ассемблерных процедур, который  избегает  проблемы  распределения
памяти. Надо просто создать процедуру в виде строковой переменной
внутри программы.  Каждый байт  может  быть закодирован с помощью
CHR$.  Затем используйте функцию VARPTR для определения положения
этой строки в памяти. Смещение по которому находится эта перемен-
ная  хранится в двух байтах, которые идут за тем, на который ука-
жет VARPTR (в первом байте  содержится  длина строки). Затем этот
адрес используется для вызова процедуры.  Отметим способ, которым
используется оператор DEF  SEG,  для  указания  на сегмент данных
Бейсика, с тем чтобы полученное смещение указывало на адрес стро-
ки для оператора CALL. Например:

100 DEF SEG         'устанавливаем сегмент на данные Бейсика
110 X$ = "CHR$(B4)+..."  'код процедуры
120 Y = VARPTR(X$)       'получаем дескриптор строки
130 Z = PEEK(Y+1)+PEEK(Y+2)*256  'вычисляем ее адрес
140 CALL Z

Многие значения, выражаемые  через CHR$() могут быть представлены
и в виде символов ASCII.  Вы можете писать ROUT = CHR$(12) + "AB"
вместо ROUT = CHR$(12) + CHR$(65) + CHR$(66). На самом деле боль-
шинство символов ASCII могут вводиться путем нажатия клавиши Alt,
наборе номера кода на дополнительной клавиатуре, а затем отпуска-
ния  клавиши  Alt.  Однако коды от 0 до 31 не могут быть  введены
таким образом для наших целей.